home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / P102L5 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-02-02  |  379 b   |  3 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM DAVID LINKER-- SEATTLE,WA
  2. 1  GR : HOME : COLOR= 15:T = 39: FOR I = 0 TO 1: VLIN 0,T AT I *T: HLIN 0,T AT I *T: NEXT :X = 5:Y = 5:S = 0:T = 38: COLOR= 1: PLOT X,Y: FOR C = 1 TO 14:A =  RND(1) *T +1:B =  RND(1) *T +1: COLOR= C +1: PLOT A,B: COLOR= C: VTAB 23: PRINT "YOUR SCORE=";S: FOR I = 1 TO 50: IF (N = 15)  OR (N < = C  AND N >0)  THEN  END 
  3. 2 N =  PEEK( -16368):N =  PEEK( -16384):G = (N = 21) -(N = 8):D = (N = 90) -(N = 65): ON  ABS(G +D) +1 GOTO 2:X = X +G:Y = Y +D:N =  SCRN( X,Y):S = S +200 *(N = C +1):Z =  PEEK( -16336): PLOT X,Y: NEXT :S = S +100: COLOR= 0: PLOT A,B: NEXT : VTAB 23: HTAB 12: PRINT S;" YOU WIN!": FOR I = 1 TO 9: CALL  -1052: NEXT