Saturn Lander

Source Code

    3 REM 
    4 REM 
    7 REM       SATURN LANDER
    8 REM       \''\''\''\''\''\''\''\''\''\''\''\''\''
    9 REM 
   10 REM    FROM "YOUR COMPUTER"             MAGAZINE MAY 1983
   11 REM 
   12 REM         Entered by
   13 REM        G.F.Chambers
   14 REM 
   15 REM 
   16 REM 
   17 GO TO 20
   18 PLOT SX,SY: PLOT SX,SY+1: DRAW 3,0: PLOT SX+3,SY: PLOT SX+1,SY+2: PLOT SX+2,SY+2
   19 RETURN 
   20 PAPER 0: INK 7: CLS : OVER 1
   21 PLOT 0,0: DRAW 10,20: DRAW 9,-10: DRAW 8,6: DRAW 14,-10: DRAW 6,4
   22 DRAW 4,-4: DRAW 8,6: DRAW 14,-10: DRAW 16,0
   24 DRAW 0,1: DRAW -16,0: DRAW OVER 0;16,-1
   26 DRAW 14,6: DRAW 4,-4: DRAW 18,8: DRAW 6,-2: DRAW 8,4
   28 DRAW 10,-10: DRAW 10,6: DRAW 8,12: DRAW 10,-8: DRAW 8,4
   30 DRAW 16,-10: DRAW 24,14: DRAW 8,-10: DRAW 4,2: DRAW 8,-10
   32 DRAW 10,-4
   35 RANDOMIZE : FOR S=1 TO RND*100: LET L=USR 32300: NEXT S
   40 LET r$="\a\b  \c\d  \a\b  \c\d \a\b  \c\d  \c\d \a\b \c\d"
   45 PRINT AT 12,0;R$;AT 15,0;R$: LET R$=R$(15 TO )+R$( TO 14): PRINT AT 17,0;R$
   50 LET R$="EFG  KLM   KLM   EFG  EFG  KLM  HIJ  NOP   NOP   HIJ  HIJ  NOP  "
   51 LET r$="\e\f\g  \k\l\m   \k\l\m   \e\f\g  \e\f\g  \k\l\m  \h\i\j  \n\o\p   \n\o\p   \h\i\j  \h\i\j  \n\o\p"
   55 PRINT INK 5;AT 4,0;R$;AT 8,0;R$
   60 LET SX=RND*100+75: LET SY=165
   61 LET HU=0: LET VV=0
   62 LET S=0
   64 GO SUB 18
   65 IF POINT (SX,SY-1)+POINT (SX+1,SY-1)+POINT (SX+2,SY-1)=3 THEN GO TO 2000
   66 LET OSX=SX: LET OSY=SY
   67 LET SX=SX+HU
   68 LET SY=SY-VV: IF SY>165 THEN LET VV=0
   69 LET NSX=SX: LET NSY=SY: LET SX=OSX: LET SY=OSY
   70 GO SUB 18
   71 LET SX=NSX: LET SY=NSY
   72 LET S=S+1-(INKEY$<>"")
   75 LET L=USR 32200
   76 LET HU=HU+.25*((INKEY$="3" AND SX<250 AND HU<=3)-(INKEY$="1" AND SX>2 AND HU>=-3))
   77 LET VV=VV+.25-.5*(INKEY$="2")
   78 INPUT "": PRINT #1;"VERT.VEL=";INT (VV*100)/100,"HOR.VEL=";INT (HU*100)/100
   80 IF POINT (SX,SY)+POINT (SX,SY+1)+POINT (SX+1,SY+1)+POINT (SX+1,SY+2)+POINT (SX+2,SY+1)+POINT (SX+2,SY+2)+POINT (SX+3,SY)+POINT (SX+3,SY+1)<>0 THEN GO TO 1000
  200 GO TO 64
 1000 FOR F=0 TO 30: OVER (F/2=INT (F/2)): INK 2: PLOT SX,SY: DRAW 3,2
 1010 PLOT SX,SY+2: DRAW 3,-2
 1020 OUT 254,55*(F/2=INT (F/2))
 1030 NEXT F
 1035 INK 7
 1040 OUT 254,0
 1050 PRINT  OVER 1;AT 10,11; FLASH 1;"GAME OVER"
 1055 PRINT TAB 11;"SCORE=";S
 1056 PRINT AT 18,2; FLASH 1;"PRESS ANY KEY TO PLAY AGAIN"
 1060 PAUSE 1000: RUN 
 2000 IF ABS HU>.25 OR SY>5 THEN GO TO 1000
 2010 FOR X=10 TO 50 STEP 5: BEEP .1,X: NEXT X
 2015 INK 7
 2020 PRINT AT 10,12; FLASH 1;"WELL DONE"
 2030 PRINT TAB 11;"SCORE=";200-S
 8000 STOP 
 8900 CLEAR 31999: PRINT AT 5,0;"Controls are:"
 8905 PRINT "       1-accelerate to left            2-accelerate to the right       0-accelerate upwards"
 8910 PRINT ''"Wait for data to load"
 9000 RESTORE 9000: FOR U=0 TO 127
 9010 READ DATUM: POKE USR "A"+U,DATUM: NEXT U
 9020 DATA 0,15,31,31,63,63,7,0,0,192,224,248,252,252,192,0
 9030 DATA 0,1,15,31,127,63,31,0,0,224,252,254,254,248,240,0
 9040 DATA 0,0,0,3,15,31,63,61,0,0,0,248,254,255,255,255,0,0,0,0,0,0,128,192
 9050 DATA 126,127,127,127,127,63,15,0,247,15,255,255,255,255,255,255,224,240,BIN 10110000,BIN 10111000,BIN 01111000,DATUM,240,0
 9060 DATA 0,0,0,0,0,1,3,15,0,0,0,0,127,255,255,255,0,0,0,0,128,224,240,248
 9070 DATA BIN 00110111,111,111,BIN 00110111,31,3,0,0,251,247,239,223,255,255,0,0,248,248,240,240,128,0,0,0
 9502 RESTORE 9610
 9505 READ ADD
 9510 LET A$=""
 9520 IF A$="" THEN READ A$
 9525 IF A$="N" THEN GO TO 9505
 9526 IF A$="S" THEN GO TO 10
 9540 IF CODE A$(1)>64 THEN LET A$(1)=CHR$ (CODE A$(1)-7)
 9550 IF CODE A$(2)>64 THEN LET A$(2)=CHR$ (CODE A$(2)-7)
 9560 POKE ADD,16*CODE A$+CODE A$(2)-816
 9570 LET ADD=ADD+1
 9580 LET A$=A$(3 TO )
 9590 GO TO 9520
 9610 DATA 32000,"C5D5E5F52B1120000608C5237ECB172BF519F10620CB162B10FB24C110ECF1E1D1C1C9N"
 9620 DATA 32100,"C5D5E5F51120000608C52B197ECB1FF5A7ED5223F10620CB1E2310FBA7ED5224C110E6F1E1D1C1C9N"
 9630 DATA 32200,"218040CD007D21A040CD007D210048CD647D212048CD647D218048CD007D21E048CD647D212050CD007DC9N"
 9640 DATA 32300,"216050CD647D218050CD647D21A050CD647DC9N"
 9700 DATA 0,"S"
 9998 SAVE "Saturn" LINE 8900
 9999 PRINT "Rewind to Verify": VERIFY "Saturn"