home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / TL.BOX.BOUT (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-02-02  |  279 b   |  3 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM SCOTT BROS--FT.WORTH,TX
  2. 1  DATA  1,0,4,0,18,63,39,36,44,45,45,53,54,62,63,0: FOR I = 7676 TO 7691: READ A: POKE I,A: NEXT : HGR2 : POKE 232,252: POKE 233,29: ROT= 0
  3. 2  FOR C = 1 TO 7: HCOLOR= C:S = 21: FOR R = 1 TO 20:S = S -1: SCALE= R: DRAW 1 AT 70,48: DRAW 1 AT 210,144: SCALE= S: XDRAW 1 AT 210,48: XDRAW 1 AT 70,144: NEXT :T = 21: FOR U = 1 TO 20:T = T -1: SCALE= T: XDRAW 1 AT 70,48: XDRAW 1 AT 210,144: SCALE= U: DRAW 1 AT 210,48: DRAW 1 AT 70,144: NEXT : NEXT : GOTO 2