lunar.bas

10   RANDOMIZE TIMER
20   CLS:CLEAR ,,,32768!
30   SOUND ON
40   SCREEN 5:KEY OFF
50   RM=1:XB=40
60   DRAW"BM0,6C12R16L1H1L12D2C4R12L1G1L8BL1BU4C11R10H1L8U1R8H1L6R1E1R2D1C15R1D1R1D1BD1BL3C3L3U1F1U1E1"
70   DIM S(85)
80   GET(0,0)-(16,8),S
90   CLS
100  LINE(0,0)-(60,20),6
110  FOR A = 1 TO 8
120  READ X,Y:LINE-(X,Y),6
130  NEXT A
140  PAINT(160,10),6,6
150  PAINT(160,190),6,6
160  FOR X=60 TO 240 STEP 20
170  Z=INT(RND*43+1)+XB
180  LINE(X,20)-(X+10,Z),6
190  LINE-(X+20,20),6
200  PAINT(X+10,22),6,6
210  Z=INT(RND*50+1)+100
220  LINE(X+10,180)-(X+20,Z),6
230  LINE-(X+30,180),6
240  PAINT(X+20,178),6,6
250  NEXT
260  LOCATE 1,10
270  PRINT "LEVEL";RM
280  X=1:Y=30:YAD=0
290  PUT(X,Y),S
300  K$=INKEY$
310  IF K$="" THEN YAD=YAD+.4:GOTO 350
320  YAD=YAD-1
330  NOISE 4,8,.5
340  NOISE 4,4,.5
350  PUT(X,Y),S:X=X+1
360  Y=Y+YAD
370  IF POINT(X+17,Y+6)=6 OR POINT(X+9,Y-1)=6 OR POINT(X+8,Y+9)=6 THEN 430
380  PUT(X,Y),S
385  T = TIMER:WHILE T = TIMER:WEND:T = TIMER:WHILE T = TIMER:WEND
390  IF X<>303 THEN GOTO 300
400  PLAY"T255L64MLO0V15EFEF"
410  RM=RM+1:XB=XB+2
420  CLS:RESTORE:GOTO 100
430  NOISE 6,13,1
440  NOISE 6,15,2
450  NOISE 6,12,1
460  LOCATE 10,15
470  PRINT "GAME OVER"
480  PRINT "PLAY AGAIN? Y/N"
490  INPUT A$
500  IF A$="N" THEN 530
510  RM=1:CLS:RESTORE:XB=40:GOTO 100
520  DATA 260,20,290,90,320,90,320,110,290,110,270,180,70,180,0,199
530  END