Set of Apple II Hard Drive Images/hard.hdv/HARD/TWOLINERS/TL.NUMEROSITY

Applesoft BASIC Source Code | 1992-02-02 | 186 b | 3 lines | [FC] Applesoft BASIC Program (0x0801)

0  REM  SCOTT BROS, FT WORTH
1  DATA  1,0,4,0,18,63,32,100,45,21,54,30,7,0: FOR I = 7676 TO 7689: READ A: POKE I,A: NEXT : HGR2 : POKE 232,252: POKE 233,29: ROT= 0
2  FOR C = 1 TO 7: HCOLOR= C: FOR R = 1 TO 140: SCALE= R: DRAW 1 AT 140,96: NEXT : FOR S = 140 TO 1  STEP  -1: SCALE= S: XDRAW 1 AT 140,96: NEXT : GOTO 2