home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib26a.dsk / DECEMBER.1985:ANATOMY2LINER / MAZE.3.bas < prev    next >
BASIC Source File  |  2023-02-26  |  549b  |  2 lines

  1. 10  RESTORE : HOME :X = 10:Y = 10: HGR : HCOLOR= 3: FOR I = 768 TO 779: READ A: POKE I,A: NEXT : POKE 232,0: POKE 233,3: HPLOT 140,80:A = 8: FOR I = 1 TO 16: ROT= A: SCALE= I *2: DRAW 1:A = (A +16) *(A <240): NEXT : SCALE= 3: FOR I = 1 TO 99999: DRAW 2 AT X,Y: IF  PEEK(234) >0  THEN  PRINT  CHR$(7): GOTO 10
  2. 20  XDRAW 2 AT X,Y:X = X +( PDL(0) >200) -( PDL(0) <75):Y = Y +( PDL(1) >200) -( PDL(1) <75): VTAB 23: PRINT "SCORE IS ";I:I = I +((X >130) *(X <140) *(Y >80) *(Y <90) *(99999 -I)): NEXT : PRINT "YOU WIN!!!": DATA 2,0,6,0,9,0,45,5,0,53,39,0