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

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

0  REM KEVIN OSTROM--POWAY,CA
1 B = 191:C = 278:P = C/B:S =  RND(1) *9 +3: HGR2 : FOR I = 1 TO 0  STEP  -1: HCOLOR= I *3: FOR A = 0 TO B  STEP S: HPLOT O,A TO A *P,B TO C,B -A TO C -A *P,0 TO 0,A: NEXT : NEXT :X =  RND(1) *C:Y =  RND(1) *B: FOR I = 1 TO 0  STEP  -1: HCOLOR= I *3: FOR A = 0 TO B  STEP S: HPLOT 0,A TO X,Y TO C,B -A: HPLOT A *P,B TO X,Y TO C -A *P,0
2  NEXT : NEXT : FOR I = 1 TO 0  STEP  -1: HCOLOR= I *3: FOR A = 0 TO B  STEP S: HPLOT 0,0 TO C,A: HPLOT 0,B TO C,B -A: HPLOT C,0 TO 0,A: HPLOT C,B TO 0,B -A: NEXT : NEXT : FOR I = 1 TO 0  STEP  -1: HCOLOR= I *3: FOR A = 0 TO B  STEP S: HPLOT 0,A TO X,Y TO C,A: HPLOT 0,B -A TO X,B -Y TO C,B -A: NEXT : NEXT : GOTO 1