10 REM SCUD
20 REM BY WM. F. SNOW
30 GOSUB1020
40 CLR:DIM Q$(35),A$(35),CO$(35),CA$(35),Y(35):V=53248:SN=54272:POKESN+24,15
50 POKE53280,7:POKE53281,7:POKEV+31,0
60 POKESN+4,0:PRINT"[147]"SPC(14)"PLEASE WAIT":PRINT"   OUR SPIES ARE";
70 PRINT" CHECKING ON THE ENEMY"
80 FOR QA=1TO35:READQ$(QA),A$(QA):NEXT
90 FOR S=12288 TO 12351:READSP:POKES,SP:NEXT
100 FORS=12352TO 12415:READSP:POKES,SP:NEXT
110 FORS=12416 TO 12479:READ SP:POKES,SP:NEXT
120 FORS=12480TO12543:READSP:POKES,SP:NEXT
130 FORS=12544 TO 12607:READ SP:POKES,SP:NEXT
140 FORS=12608 TO 12671:READSP:POKES,SP:NEXT
150 FOR I=1 TO 35
160 X=INT(RND(.)*35)+1
170 FOR CK=1 TO35:IF X=Y(CK)THEN160
180 NEXTCK:Y(I)=X
190 CO$(X)=Q$(I):CA$(X)=A$(I):NEXTI
200 SC=0:FORI=1TO4:POKEV+I,0:NEXT:POKEV+21,0:P=P+1:IF P>35THENP=35:GOTO1140
210 POKE53280,13:POKE53281,1
220 JR=INT(RND(.)*10)+2
230 PRINT"[147]    SCUDS HAVE BEEN LAUNCHED AT THE
240 [153][166]9)"CAPITAL OF STOP"CO$(P)
250 [153]:[153][166]12)"SHOULD YOU GO TO"
260 Q[178][181]([187](.)[172]10)[170]1:[139] Q[178]P [167]260
270 R[178][181]([187](.)[172]10)[170]1:[139] R[178]P [176] R[178]Q [167]270
280 [151]2040,192:[151]V[170]29,1:[151]V[170]40,1
290 S[178][181]([187](.)[172]3)[170]1:[145] S [137]300,340,380
300 [153]:[153][166]9)"STOPA)"CA$(P):[153]:[153][166]9)"STOPB)"CA$(Q)
310 [153]:[153][166]9)"STOPC)"CA$(R):[153][166]9)"OPENHIT Q TO END GAME"
320 [141]680:[139] B$[178]"A"[167]420
330 [141]820:[137]200
340 [153]:[153][166]9)"STOPA)"CA$(Q):[153]:[153][166]9)"STOPB)"CA$(P)
350 [153]:[153][166]9)"STOPC)"CA$(R):[153][166]9)"OPENHIT Q TO END GAME"
360 [141]680:[139] B$[178]"B"[167]420
370 [141]820:[137]200
380 [153]:[153][166]9)"STOPA)"CA$(R):[153]:[153][166]9)"STOPB)"CA$(Q)
390 [153]:[153][166]9)"STOPC)"CA$(P):[153][166]9)"OPENHIT Q TO END GAME"
400 [141]680:[139] B$[178]"C"[167]420
410 [141]820:[137]200
420 [153]"LOAD":[151]53280,13:[151]53281,13
430 [153]""[166]8)"STOPPEEK":[153][166]7)"CLR(null)(null)   WAIT"
440 [153]"   STOP SGNORRIGHT$(null)(null)TAN (null)(null)":[153]"    CLR(null)(null)TAB( WAIT+PEEK(null)TO(null)(null)"
450 [153]"   STOP(null) +  WAIT+PEEKCLR(null) (null)+":[141]1120
460 [151]V[170]21,3:XA[178]75:YA[178]200:[151]2041,194:[151]V[170]39,11:[151]V[170]40,6
470 SC[178]SC[170]1:[139]SC[177]3 [167] [141]970:[137]200
480 PS[178][181]([187](.)[172]3)[170]1:[145] PS [137]490,720,770
490 [151]2040,192:[151]V[170]39,11:X[178]60:XX[178]255:[129]A[178]1[164]25:XX[178]XX[171]3:[151]V,XX
500 [151]V[170]1,X:[141]570
510 [151]V[170]2,XA:[151]V[170]3,YA:[130]
520 [151]V[170]30,0
530 [151]2040,193:[129]A[178]1[164]50:XX[178]XX[171]3:X[178]X[170]3:[151]V,XX:[151]V[170]1,X:[141]570
540 [139]FB[178]0[175][194](V[170]30)[175]2[178]2[167] [141]630:[137]470
550 [151]V[170]2,XA:[151]V[170]3,YA:[139]([194](V[170]31)[175]1)[178]1[167]910
560 [130]:[137]200
570 JY[178][194](56320)[175]15:FB[178][194](56320)[175]16:[143] READ STICK AND BUTTON
580 [139]JY[178]7[167]XA[178]XA[170]JR:[139] XA[177]255[167] XA[178]255
590 [139]JY[178]11[167]XA[178]XA[171]JR:[139]XA[179]1 [167] XA[178]1
600 [139]JY[178]13[167]YA[178]YA[170]JR:[139] YA[177]250 [167] YA[178]250
610 [139]JY[178]14[167]YA[178]YA[171]JR:[139] YA[179]1 [167] YA[178]1
620 [142]
630 [151]2040,195:[151]V[170]39,2:[141]1100:[151]V[170]23,1:[151]V[170]29,1
640 [129]EC[178]1[164]8:[151]V[170]39,EC:[129]DE[178]1[164]70:[130]:[130]:[151]V,0:[151]V[170]1,0
650 [151]V[170]31,0:[151]V[170]23,0:[142]
660 [161] B$:[139] B$[178]"" [167]660
670 [142]
680 [161] B$:[139]B$[178]""[167]680
690 [139] B$[178]"A"[176]B$[178]"C"[176]B$[178]"B"[167][142]
700 [139] B$[178]"Q"[167]1140
710 [137]680
720 [151]2040,196:[151]V[170]39,11:[151]V,60:[129]VS[178]0[164]200[169]5:[141]570
730 [151]V[170]1,VS:[151]V[170]30,0:[151]V[170]2,XA
740 [151]V[170]3,YA:[139]FB[178]0[175][194](V[170]30)[175]2[178]2[167][141]630:[137]470
750 [139] ([194](V[170]31)[175]1)[178]1 [167]910
760 [130]:[137]200
770 [151]2040,197:[151]V[170]39,11:[151]V,255:[151]V[170]1,220
780 [129]X[178]255[164]0[169][171]3:[141]570:[151]V,X:[151]V[170]30,0
790 [151]V[170]2,XA:[151]V[170]3,YA:[139]FB[178]0[175][194](V[170]30)[175]2[178]2[167][141]630:[137]470
800 [139] ([194](V[170]31)[175]1)[178]1 [167]910
810 [130]:[137]200
820 [153]"LOAD(null)(null) SGN +  SGN  SGN  (null)USR USR(null)USRUSR PEEK +(null)  SGN"
830 [153]"(null)(null) SGN +  SGN  SGN  (null)AND  +   PEEK + (null) SGN"
840 [153]"SGN(null) SGN +  SGN  SGN  SGN   +   PEEK +  (null)SGN"
850 [153]"(null)(null) (null)AND(null)  (null)AND (null)AND (null)AND  +   PEEK +   SGN"
860 [153] "STOP"[166]4)CA$(P):[153]" THE CAPITAL OFSTOP":[153][166]4)CO$(P)
870 [153]"  HAS BEEN DESTROYED ";
880 [153]"BY SCUD MISSLES.   THE PERSON WHO COULD HAVE SAVED THE CITYDID";
890 [153]" NOT HAVE ENOUGH INFORMATION TO GET  TO THE RIGHT CITY IN TIME."
900 [153]"PRINTHIT ANY KEY TO CONTINUE":[141]660:[142]
910 [151]V[170]21,0:[153]""[166]4)"(null) RND     (null) (null)":[141]1100
920 [153][166]4)"(null) (null)    (null) (null)(null)(null) (null)"
930 [153][166]3)"(null)(null) (null)-RIGHT$PEEKPEEK(null)SPC((null)NOTNOT(null)":[151]SN[170]4,0
940 [129]DE[178]1 [164]500:[130]:[129]CL[178]1704[164]1903:[151]CL,32:[130]
950 [153][166]3)"ONSTOP*POS GETNOTNEWNEW(null)= (null)NOTSQRSPC(CONT":[129]DE[178]1[164]1000:[130]
960 [151]V,0:[151]V[170]1,0:[151]V[170]31,0:[137]200
970 [151]V[170]21,0
980 [153]"LOADSTOPTHANK YOU!!":[153]:[153]"YOUR KNOWLEDGE AND MARKSMANSHIP";
990 [153]" HAVE    SAVEDSTOP":[153]:[153]CA$(P):[153]:[153]"THE CAPITAL OFSTOP"
1000 [153]:[153] CO$(P):[153]""
1010 [153]"HIT ANY KEY TO CONTINUE":[141]660:SS[178]SS[170]1:[142]
1020 [151]53280,10:[151]53281,10
1030 [153]"LOADSTOP"[166]12)"(null)TAB(TAB(  (null)TAB(TAB(  FN THEN  (null)(null)":[153][166]12)"(null)TO   FN    FN THEN  FNTHEN"
1040 [153][166]14)"(null)  FN    FN THEN  FNTHEN":[153][166]12)"TOTO(null)  (null)TOTO  (null)TO(null)  (null)(null)"
1050 [153]"   THE ENEMY IS LAUNCHING SCUD MISSILES AT NATIONAL CAPITALS";
1060 [153]" IN THE AMERICAS.   YOUR JOB IS TO GET TO THE CAPITAL UNDER ATTACK";
1070 [153]" AND DESTROY THE MISSILES. USE A  JOYSTICK IN PORT TWO,";
1080 [153]" BUT BE CAREFUL THEEQUIPMENT IN DIFFERENT CITIES DOES NOT ";
1090 [153]" ALWAYS RESPOND WITH THE SAME SPEED.":[141]900:[142]
1100 [151]SN[170]4,129:[151]SN[170]5,92:[151]SN[170]1,1:[151]SN,100:[129]F[178]1[164]999:[130]:[151]SN[170]4,0
1110 [142]
1120 [151]SN[170]14,5:[151]SN[170]18,16:[151]SN[170]3,1:[151]SN[170]6,240:[151]SN[170]4,65
1130 [151]SN,240:[151]SN[170]1,20:[151]V[170]30,0:[142]
1140 [153]"LOADYOU SAVED "SS" OUT OF THE "P
1150 [153]:[153]"CITIES THAT WERE ATTACKED"
1160 [153]"WOULD YOU LIKE TO TRY AGAIN (Y/N)":[141]660
1170 [139] B$[178]"N"[167] [128]
1180 [139]B$[178]"Y"[167] [138] 40
1190 [137]1140
1200 [131]ANTIGUA & BARBUDA,ST. JOHNS,BAHAMAS,NASSAU,BELIZE,BELMOPAN
1210 [131]CANADA,OTTAWA,COSTA RICA,SAN JOSE,CUBA,HAVANA,DOMINICA,ROSEAU
1220 [131]DOMINICAN REPUBLIC,SANTO DOMINGO,EL SALVADOR,SAN SALVADOR,GRENADA
1230 [131]ST. GEORGE'S,GUATEMALA,GUATEMALA,HAITI,PORT-AU-PRINCE,HONDURAS
1240 [131]TEGUCIGALPA,JAMAICA,KINGSTON,MEXICO,MEXICO CITY,NICARAGUA,MANAGUA
1250 [131]PANAMA,PANAMA CITY,SAINT LUCIA,CASTRIES,SAINT VINCENT & THE GRENADINES
1260 [131]KINGSTOWN,TRINIDAD & TOBAGO,PORT OF SPAIN,UNITED STATES,WASHINGTON D.C.
1270 [131]ARGENTINA,BUENOS AIRES,BOLIVIA,LA PAZ,BRAZIL,BRASILIA,CHILE,SANTIAGO
1280 [131]COLOMBIA,BOGOTA,ECUADOR,QUITO,GUYANA,GEORGETOWN,PARAGUAY,ASUNCION
1290 [131]PERU,LIMA,SURINAME,PARAMARIBO,URUGUAY,MONTIVIDEO,VENEZUELA,CARACAS
1300 [131]BARBADOS,BRIDGETOWN,ST. KITTS & NEVIS,BASSETERRE
1310 [131]000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
1320 [131]001,000,000,003,000,000,007,000,024,015,000,104,127,000,143,255,000
1330 [131]143,255,000,104,127,000,024,015,000,000,007,000,000,003,000,000,001
1340 [131]000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
1350 [131]000,000,000,000,000,000,000,000,000,000,000,000,000,000,004,000,000
1360 [131]006,000,000,007,000,000,007,128,000,007,192,000,007,224,000,007,240
1370 [131]000,007,248,000,007,252,000,015,254,000,028,000,000,120,000,000,144
1380 [131]000,000,144,000,000,224,000,000,000,000,000,000,000,000,000,000,000
1390 [131]000,000,000,000,000,000,000,000,000,000,000,008,000,000,008,000,000
1400 [131]008,000,000,008,000,000,255,128,000,008,000,000,008,000,000,008,000
1410 [131]000,008,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
1420 [131]000,000,000,000,000,000,032,000,008,032,032,004,032,000,000,032,000
1430 [131]001,002,000,000,132,000,000,072,000,128,048,000,064,120,002,092,252
1440 [131]248,128,120,002,000,048,000,000,072,000,000,132,000,001,002,000,000
1450 [131]016,000,000,016,000,008,016,032,016,016,032,000,000,000,000,000,000
1460 [131]000,003,255,128,001,215,000,000,214,000,000,124,000,000,056,000,000
1470 [131]040,000,000,040,000,000,040,000,000,040,000,000,040,000,000,040,000
1480 [131]000,040,000,000,040,000,000,040,000,000,056,000,000,016,000,000,016
1490 [131]000,000,016,000,000,000,000,000,000,000,000,000,000,000,000,000,000
1500 [131]000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
1510 [131]003,000,000,007,000,000,025,015,255,241,000,000,025,000,000,007,000
1520 [131]000,003,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
1530 [131]000,000,000,000,000,000,000,000,000,000