image of READY prompt

Wang2200.org

Listing of file='SPACE' on disk='vmedia/games.wvd.zip'

# Sector 442, program filename = 'SPACE'
0010 DIM D$64
0015 REM "SPACE"
0020 PRINT HEX(030A0A0A0A0A0A0A);TAB(25);"SPACE CHALLENGE"
0030 DIM C(160)
0040 FOR A=1TO 160
0050 B=INT(RND(9)*63)
   : IF B<5THEN 50
0060 C(A)=B
0070 NEXT A
0073 SELECT P3
0075 PRINT
   : PRINT
   : PRINT
   : PRINT
   : PRINT
   : PRINT
   : PRINT
   : PRINT
   : PRINT "THE OBJECT OF THE GAME IS TO MOVE THE SPACECRAFT FROM THE LAUNCH P
     AD SAFELY THROUGH THE ASTEROID BELT"
0076 PRINT "THIS IS DONE BY USING KEYBOARD INPUTS- '1'=FORWARD,  '2'=REVERSE,
      '3'=FAST FORWARD,  '0'=STOP"
0077 PRINT "YOU HAVE 10 TRIES, GOOD LUCK!"
0078 FOR I=1TO 1500
   : NEXT I
0079 SELECT P
0080 FOR D=1TO 160
   : PRINT TAB(C(D));"*"
0084 FOR E1=1TO 15
   : NEXT E1
0085 PRINT HEX(0A)
0100 GOSUB 140
   : NEXT D
0110 GOTO 80
0120 GOSUB 140
0130 GOTO 50
0140 PRINT HEX(01);TAB(X);"===>"
0150 IF X>=63THEN 460
0160 IF D<14THEN 180
   : F=D-13
0170 GOTO 190
0180 F=160-(13-D)
0185 KEYIN A$,300,380
0190 IF C(F)=XTHEN 390
0200 IF C(F)=X+1THEN 390
0210 IF C(F)=X+2THEN 390
0220 IF C(F)=X+3THEN 390
0225 IF C(F)=X+4THEN 390
0230 GOSUB 280
0240 KEYIN A$,300,380
0250 IF A$="1"THEN 360
0260 IF A$="2"THEN 320
0265 IF A$="3"THEN 355
0270 RETURN
0280 PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A)
0290 RETURN
0300 IF A$="1"THEN 360
0310 IF A$="0"THEN 340
0315 IF A$="3"THEN 355
0320 X=X-1
0330 GOTO 270
0340 X=X
0350 GOTO 270
0355 X=X+1
0360 X=X+1
0370 GOTO 270
0380 PRINT
0390 READ D$
0400 PRINT HEX(01);TAB(X);"BOOM",D$
   : X=0
   : A$="0"
0405 T=T+1
0410 DATA "TRY AGAIN BUD","COME ON, YOU'RE NOT TRYING","THE THIRD TIME'S THE C
     HARM","ARE YOU WORKING FOR THE RUSSIANS?","I CAN'T BELIEVE YOU'RE ALWAYS
     THIS SPASTIC"
0420 DATA "THIS CAN BE DONE YOU KNOW!!","WHAT'S THE HANGUP?!!","YOU'RE WHAT TH
     EY CALL A NASA NIGHTMARE!!","I'M ONLY GIVING YOU ONE MORE CHANCE"
0430 DATA "THAT'S TEN ATTEMPTS, TRY 'OLD MAID'"
0440 IF D$="THAT'S TEN ATTEMPTS, TRY 'OLD MAID'"THEN 710
0450 FOR Q=1TO 300
   : NEXT Q
   : GOTO 80
0460 PRINT HEX(01);TAB(30);"MISSION ACCOMPLISHED!!"
0463 T=T+1
   : T1=T1+1
0464 PRINT "YEA TEAM!  THAT'S ";T1;" SUCCESSES FOR ";T;" TRIES! !"
0465 X=0
   : A$="0"
   : FOR Q=1TO 300
   : NEXT Q
   : GOTO 80
0710 RESTORE 1
   : END
0999 DEFFN'14
   : LOAD DC R"MENU"