Space Crisis

Gallery

Source Code

   1 REM "SPACE CRISIS"
   2 REM 
   3 REM RONALD DUGUID
   4 REM SYNC MAGAZINE
   5 REM JANUARY/FEBRUARY 1983
   6 REM 
  18 LET P=0
  20 LET A=0
  22 LET G=0
  24 LET H=0
  26 LET J=0
  28 LET K=0
  32 LET M=0
  34 LET N=0
  38 LET Q=0
  40 LET SA=18000
  42 LET SC=18000
  44 LET QR=0
 165 CLS 
 170 FAST 
 175 FOR A=1 TO 60
 180 PLOT A,41
 185 NEXT A
 190 FOR A=1 TO 60
 195 PLOT A,10
 200 NEXT A
 205 FOR A=1 TO 60
 210 PLOT A,4
 215 NEXT A
 220 FOR A=1 TO 60
 225 PLOT A,0
 230 NEXT A
 235 FOR A=1 TO 4
 240 PLOT 1,A
 245 NEXT A
 250 FOR A=1 TO 4
 255 PLOT 22,A
 260 NEXT A
 265 FOR A=1 TO 4
 270 PLOT 44,A
 275 NEXT A
 280 FOR A=1 TO 4
 285 PLOT 60,A
 290 NEXT A
 295 FOR A=1 TO 31
 300 PLOT 1,10+A
 305 NEXT A
 310 FOR A=1 TO 31
 315 PLOT 60,10+A
 320 NEXT A
 322 PRINT AT 18,1;"SPEED(ACT)";TAB 12;"SPEED(CAL)";TAB 23;"CONTROL"
 323 IF P=1 THEN GOTO 990
 324 PRINT AT 20,1;"HYPER-WARP";TAB 12;"HYPER-WARP";TAB 23;"ALEC"
 325 PAUSE 750
 330 SLOW 
 333 PRINT AT 3,2;"ALEC HERE-PREPARE TO LEAVE"
 334 PRINT AT 4,2;"HYPER-WARP. NORMAL SPACE"
 335 PRINT AT 5,2;"IN 27 SECONDS"
 337 PAUSE 350
 338 FAST 
 339 LET H=1
 340 FOR G=1 TO 29
 342 LET J=INT (RND*10)+1
 344 IF J=1 THEN GOTO 350
 346 IF J>=2 THEN GOTO 355
 350 PRINT AT H,G;"%*"
 352 GOTO 360
 355 PRINT AT H,G;"% "
 360 IF G<=28 THEN GOTO 390
 370 LET H=H+1
 375 IF H>=17 THEN GOTO 392
 380 GOTO 340
 390 NEXT G
 396 LET C$="BRIDGE"
 398 PRINT AT 20,1;SA;TAB 6;"/MPH ";TAB 12;SC;TAB 17;"/MPH ";TAB 23;C$
 400 PAUSE 500
 405 SLOW 
 410 PRINT AT 2,2;"ALEC HERE-WE HAVE EMERGED"
 420 PRINT AT 3,2;"FROM HYPER-WARP AND ARE"
 430 PRINT AT 4,2;"NOW MOVING AT A SUB-LIGHT"
 440 PRINT AT 5,2;"SPEED OF 18000/MPH. WE ARE"
 450 PRINT AT 6,2;"APPROACHING OUR SOLAR"
 460 PRINT AT 7,2;"SYSTEM. I WILL TAKE"
 470 PRINT AT 8,2;"CONTROL OF THE SHIP FOR"
 480 PRINT AT 9,2;"DECELERATION TO DOCKING"
 490 PRINT AT 10,2;"APPROACH FOR MOON BASE 2."
 495 PRINT AT 20,23;"ALEC  "
 500 PRINT AT 11,2;"I WILL DE-CONTROL AT 1000"
 510 PRINT AT 12,2;"MPH TO LET THE DOCKING"
 520 PRINT AT 13,2;"COMPUTER TAKE CONTROL OF"
 530 PRINT AT 14,2;"THE SHIP. OUR ETA IS--AWK?"
 540 PRINT AT 15,2;"**MARY HAD A??1+1=2//BLEEP??"
 550 PAUSE 1500
 553 LET H=2
 555 GOSUB 2000
 640 PRINT AT 2,2;"PROFESSOR CYPHER HERE-ALEC,"
 650 PRINT AT 3,2;"YOU HAVE NOT BEEN STUDYING"
 660 PRINT AT 4,2;"YOUR INFORMATION TAPES."
 670 PRINT AT 5,2;"YOU HAVE WRONG ANSWERS ON"
 680 PRINT AT 6,2;"ALL THE QUESTIONS ABOUT"
 690 PRINT AT 7,2;"OUR SOLAR SYSTEM. YOU WILL"
 700 PRINT AT 8,2;"HAVE TO DO THEM OVER."
 710 PRINT AT 10,2;"CAN THE CREW HELP ME?"
 720 PRINT AT 12,2;"OF COURSE THEY CAN. AND, IF"
 730 PRINT AT 13,2;"THE ANSWERS ARE CORRECT, YOU"
 740 PRINT AT 14,2;"CAN CONTROL THE SHIP."
 750 PAUSE 1000
 760 GOSUB 2000
 770 PRINT AT 2,2;"YES, PROFESSOR, AND FOR A"
 780 PRINT AT 3,2;"CORRECT ANSWER, I WILL"
 790 PRINT AT 4,2;"DECELERATE THE SPEED BY"
 800 PRINT AT 5,2;"1000 MPH. THEY MUST REDUCE"
 810 PRINT AT 6,2;"THE SHIP SPEED TO 1000 MPH"
 820 PRINT AT 7,2;"BEFORE THE CALCULATED SPEED"
 830 PRINT AT 8,2;"REACHES 1000 MPH, OR THEY"
 840 PRINT AT 9,2;"WILL CRASH ON MOONBASE 2."
 850 PRINT AT 11,2;"QUESTIONS ARE ANSWERED BY"
 860 PRINT AT 12,2;"ENTERING A PLANET NAME."
 870 PRINT AT 14,2;"ARE YOU READY CREW? Y OR N"
 880 INPUT B$
 890 IF B$="Y" THEN GOTO 990
 900 IF B$="N" THEN GOTO 940
 920 IF B$<>"N" THEN GOSUB 3000
 930 GOTO 870
 940 GOSUB 2500
 950 GOTO 3500
 990 PRINT AT 20,23;"     "
 992 PRINT AT 20,1;SA;TAB 6;"/MPH ";TAB 12;SC;TAB 17;"/MPH ";TAB 23;"ALEC"
1000 GOSUB 2000
1003 PRINT AT 2,1;"NAME THE PLANET THAT:"
1010 LET QR=INT (RND*27)+1
1015 IF QR=K THEN GOTO 1010
1020 LET K=QR
1025 IF QR<=3 THEN LET Q$="MERCURY"
1030 IF QR>3 AND QR<=6 THEN LET Q$="VENUS"
1035 IF QR>6 AND QR<=9 THEN LET Q$="EARTH"
1040 IF QR>9 AND QR<=12 THEN LET Q$="MARS"
1045 IF QR>12 AND QR<=15 THEN LET Q$="JUPITER"
1050 IF QR>15 AND QR<=18 THEN LET Q$="SATURN"
1055 IF QR>18 AND QR<=21 THEN LET Q$="URANUS"
1060 IF QR>21 AND QR<=24 THEN LET Q$="NEPTUNE"
1065 IF QR>24 AND QR<=27 THEN LET Q$="PLUTO"
1070 LET Q=1200+(QR*4)
1075 GOTO Q
1200 REM %S%O%L%A%R% %Q%U%E%S%T%I%O%N%S% % % % % % % % 
1204 PRINT AT 3,2;"IS FIRST IN LINE FROM THE"
1205 PRINT AT 4,2;"SUN."
1207 GOTO 1350
1208 PRINT AT 3,2;"REVOLVES AROUND THE SUN ONCE"
1209 PRINT AT 4,2;"EVERY 88 DAYS."
1211 GOTO 1350
1212 PRINT AT 3,2;"HAS A SURFACE TEMPERATURE OF"
1213 PRINT AT 4,2;"430 DEG. C ON THE DAY SIDE;"
1214 PRINT AT 5,2;"-170 C ON THE NIGHT SIDE."
1215 GOTO 1350
1216 PRINT AT 3,2;"IS 2ND IN LINE FROM THE SUN."
1219 GOTO 1350
1220 PRINT AT 3,2;"IS COVERED WITH THICK CLOUDS"
1221 PRINT AT 4,2;"OF SULFURIC ACID."
1223 GOTO 1350
1224 PRINT AT 3,2;"REVOLVES AROUND THE SUN ONCE"
1225 PRINT AT 4,2;"EVERY 225 DAYS."
1227 GOTO 1350
1228 PRINT AT 3,2;"IS 3RD IN LINE FROM THE SUN."
1231 GOTO 1350
1232 PRINT AT 3,2;"IS THE ONLY PLANET KNOWN TO"
1233 PRINT AT 4,2;"SUPPORT LIFE."
1235 GOTO 1350
1236 PRINT AT 3,2;"IS 149,600,000 KM FROM THE"
1237 PRINT AT 4,2;"SUN. (APPROX. 93 MILLION"
1238 PRINT AT 5,2;"MILES.)"
1239 GOTO 1350
1240 PRINT AT 3,2;"IS 4TH IN LINE FROM THE SUN."
1243 GOTO 1350
1244 PRINT AT 3,2;"IS KNOWN AS-THE RED PLANET."
1247 GOTO 1350
1248 PRINT AT 3,2;"HAS A VARIABLE SURFACE"
1249 PRINT AT 4,2;"TEMPERATURE AVERAGING MINUS"
1250 PRINT AT 5,2;"50 DEG C."
1251 GOTO 1350
1252 PRINT AT 3,2;"IS 5TH IN LINE FROM THE SUN."
1255 GOTO 1350
1256 PRINT AT 3,2;"REVOLVES AROUND THE SUN ONCE"
1257 PRINT AT 4,2;"EVERY 11.86 YEARS."
1259 GOTO 1350
1260 PRINT AT 3,2;"HAS A MAJOR MOON NAMED-"
1261 PRINT AT 4,2;"EUROPA."
1263 GOTO 1350
1264 PRINT AT 3,2;"IS 6TH IN LINE FROM THE SUN."
1267 GOTO 1350
1268 PRINT AT 3,2;"IS THE 2ND LARGEST PLANET IN"
1269 PRINT AT 4,2;"OUR SOLAR SYSTEM."
1271 GOTO 1350
1272 PRINT AT 3,2;"HAS SEVEN RINGS."
1275 GOTO 1350
1276 PRINT AT 3,2;"IS 7TH IN LINE FROM THE SUN."
1279 GOTO 1350
1280 PRINT AT 3,2;"HAS NINE RINGS."
1283 GOTO 1350
1284 PRINT AT 3,2;"HAS A TEMPERATURE OF -215"
1285 PRINT AT 4,2;"DEG. C AT THE CLOUD TOPS."
1287 GOTO 1350
1288 PRINT AT 3,2;"IS 8TH IN LINE FROM THE SUN."
1291 GOTO 1350
1292 PRINT AT 3,2;"HAS A MOON NAMED-TRITON."
1295 GOTO 1350
1296 PRINT AT 3,2;"REVOLVES AROUND THE SUN ONCE"
1297 PRINT AT 4,2;"EVERY 165 YEARS."
1299 GOTO 1350
1300 PRINT AT 3,2;"IS 9TH IN LINE FROM THE SUN."
1303 GOTO 1350
1304 PRINT AT 3,2;"IS THE SMALLEST PLANET IN"
1305 PRINT AT 4,2;"OUR SOLAR SYSTEM."
1307 GOTO 1350
1308 PRINT AT 3,2;"HAS A MOON NAMED-CHARON."
1350 INPUT A$
1353 PRINT AT 8,2;"   YOUR ANSWER-";A$
1354 PRINT AT 10,2;"CORRECT ANSWER-";Q$
1355 IF A$=Q$ THEN GOTO 1365
1360 IF A$<>Q$ THEN GOTO 1390
1365 LET SA=SA-1000
1375 PRINT AT 20,1;"     "
1385 PRINT AT 20,1;SA
1390 IF SA<=1000 AND SC>=1000 THEN GOTO 1500
1400 LET SC=SC-500
1420 PRINT AT 20,12;"     "
1430 PRINT AT 20,12;SC
1433 PAUSE 500
1435 IF SC>=1000 THEN GOTO 1450
1440 IF SC<1000 THEN GOSUB 2500
1445 GOSUB 3500
1460 GOSUB 2000
1465 GOTO 1003
1500 REM %S%A%F%E% %L%A%N%D%I%N%G% % % % % % % % % % % 
1510 PRINT AT 20,23;"DOCKING"
1520 PAUSE 250
1535 GOSUB 2000
1540 PRINT AT 2,2;"******CONGRATULATIONS******"
1550 PRINT AT 4,2;"YOU HAVE SURVIVED THE"
1560 PRINT AT 5,2;"CRISIS. PREPARE, NOW, FOR A"
1570 PRINT AT 6,2;"SAFE LANDING ON MOONBASE 2."
1580 PAUSE 1000
1590 GOSUB 3500
1998 REM %N%E%X%T% %L%I%N%E% %E%N%D%S% %P%R%O%G%R%A%M% 
1999 STOP 
2000 REM %C%L%E%A%R% %S%H%I%P%"%S% %S%C%R%E%E%N% % % % 
2010 FAST 
2020 LET H=2
2030 PRINT AT H,1;"                             "
2040 LET H=H+1
2050 IF H>=16 THEN GOTO 2085
2060 GOTO 2030
2085 SLOW 
2090 RETURN 
2500 REM %C%R%A%S%H% %M%E%S%S%A%G%E% % % % % % % % % % 
2505 GOSUB 2000
2510 PRINT AT 2,2;"ALL HOPE IS GONE."
2512 PRINT AT 3,2;"PREPARE FOR DISASTER."
2515 PAUSE 100
2520 PRINT AT 6,2;"GOODBY   GOODBY   GOODBY"
2530 PAUSE 500
2540 PRINT AT 14,11;"**CRASH**"
2545 PAUSE 250
2550 RETURN 
3000 REM %I%M%P%R%O%P%E%R% %I%N%P%U%T% %R%O%U%T%I%N%E% 
3001 GOSUB 2000
3010 PRINT AT 2,2;"*IMPROPER INPUT-PLEASE WAIT*"
3020 PAUSE 500
3030 GOSUB 2000
3040 RETURN 
3500 CLS 
3510 PRINT "DO YOU WISH TO PLAY AGAIN?"
3515 PRINT "Y OR N"
3520 INPUT B$
3530 IF B$="Y" THEN GOTO 3570
3540 IF B$="N" THEN GOTO 1999
3550 IF B$<>"N" THEN GOSUB 3000
3560 GOTO 3500
3570 LET P=1
3580 GOTO 20
3585 CLEAR 
3590 SAVE "1000%9"
3600 RUN