Set of Apple II Hard Drive Images/hard.hdv/HARD/NIBBLE/INDY

Applesoft BASIC Source Code | 1992-01-15 | 206 b | 7 lines | [FC] Applesoft BASIC Program (0x0801)

5  HOME
10 W = (W = 0) *10 +W -.01 +(W <3)
20 K =  PEEK(49152):X = X -(K = 174) +(K = 175) +(X = 0) *10
30 L = (L <4) *2 +L + SGN( RND(1) -.5) -(L +W >30)
40  COLOR= 12: HLIN 0,L -1 AT 47: HLIN L +W +1,34 AT 47:C =  SCRN( X -1,21)
50  HTAB X: VTAB 11: PRINT "V";: HTAB 37: VTAB 24:T = T +1: PRINT T
60  IF C < >12  THEN 10