10 REM ... WWIII.ECB ...Source MECC H5K3005 : Rev. 02-28-81 R.E.H. 20 PRINT "&K&J&J" 30 PRINT ,"< < < W W I I I > > >&J&J" 40 PRINT "This is a SIMULATED ATOMIC WAR in the year 2005," 50 PRINT "between the USA and the USSR&J" 60 LET T0=0: REM ...CDC's BASIC TIM( ) function simulated 70 DEF FNT(T0)=INT(RND(0)*T0) 100 LET R=1 110 PRINT "Do need a GAME description? (Y or N) ---=>"; 120 INPUT (1,0)I$: LET I$=I$+"N" 130 IF I$(1,1)="N" THEN 240 140 IF I$(1,1)="n" THEN 240 150 PRINT "&K" 160 PRINT "YOU ARE A UNITED STATES GENERAL YOUR DECISIONS" 170 PRINT "MEAN VICTORY OR DEFEAT FOR THE U.S." 180 PRINT "AND LIFE OR DEATH TO HUNDREDS OF THOUSANDS OF SOLDIERS" 190 PRINT "THERE ARE 18 BATTLES" 200 PRINT "IF ========== MEN LEFT ========== = 0 FOR BOTH TEAMS" 210 PRINT "THE TEAM WITH THE LEAST CASAULTIES USAULY WINS THE BATTLE*" 220 PRINT "" 230 PRINT " *IF THE ORIGANAL NUMBER OF SOLDIERS DIFFERS GREATLY THIS" 235 PRINT " MAY NOT BE TRUE" 237 INPUT (1,0)"Enter any letter to continue ---=>",I$ 240 PRINT ,"&K&JBATTLE #1&J" 250 GOTO 270 260 PRINT ,"&K&JBATTLE #";R: PRINT 270 PRINT " USA"," USSR" 280 PRINT " (MEN)"," (MEN)" 290 LET X=FNT(1) 300 LET B=RND(X) 310 LET B=B*1000000 320 LET B=INT(B) 340 LET R2=FNT(10) 350 LET C=RND(R2) 360 LET C=C*1000000 370 LET C=INT(C) 390 PRINT %C;B,C 400 PRINT " " 420 LET E=RND(E) 430 LET E=E*100 440 LET E=INT(E) 450 PRINT "YOU HAVE ";E;" MISSLES " 460 LET F=RND(F) 470 LET F=F*10 480 IF F<5 THEN 500 490 IF F>5 THEN 520 500 PRINT "YOU'RE ON THE DEFENSIVE" 510 GOTO 550 520 PRINT "YOU'RE ON THE OFFENSIVE" 530 PRINT "YOUR OFFENSIVE STRATAGIES ARE:" 540 GOTO 560 550 PRINT "THE DEFENSIVE STRATAGIES ARE:" 560 PRINT "(1)FIRE NUCLEUR MISSLES (2)FLANKING MANUEVERS" 570 PRINT "(3)FRONTAL ATTACK (4)SURRENDER BATTLE (5)SURRENDER WAR" 580 INPUT (1,0)" ---=>",G 590 IF G=1 THEN 690 600 IF G=2 THEN 760 610 IF G=3 THEN 760 620 IF G=4 THEN 1560 630 IF G=5 THEN 1650 640 LET V=FNT(1) 650 LET H=RND(V) 660 LET H=H*1000000 670 LET H=INT(H) 680 GOTO 1090 690 PRINT "NUMBER OF MISSLES TO FIRE(0-";E;") ---=>"; 700 INPUT I 710 IF I<10.5 THEN 1010 720 IF I>10.5 AND I<40.5 THEN 1060 730 IF I>40.5 AND I",J 780 IF J",K 830 IF J+K10 THEN 900 880 PRINT "NUMBER OF MISSLES TO FIRE (0 -";E;" ) "; 890 GOTO 910 900 PRINT "NUMBER of MISSLES to FIRE (0-10) ---=>"; 910 INPUT L 920 IF L>11 THEN 970 930 LET M=J+K+L 940 IF M<25001 THEN 990 950 IF M>25001 AND M<50001 THEN 1060 960 IF M>50001 AND M999999 THEN 1040 1070 LET H=INT(H) 1080 LET W=FNT(1) 1090 LET N=RND(W) 1100 LET N=N*10 1110 IF N<3.3 THEN 1140 1120 IF N>3.3 AND N<6.6 THEN 1160 1130 IF N>6.6 THEN 1180 1140 LET O=1 1150 GOTO 1220 1160 LET O=2 1170 GOTO 1270 1180 LET O=3 1190 GOTO 1320 1200 PRINT "The SOVIET UNION'S defence was "; 1201 IF O=1 THEN PRINT "firing NUCLEAR missles." 1202 IF O=2 THEN PRINT "flanking manuevers." 1203 IF O=3 THEN PRINT "a frontal attack." 1204 IF O=4 THEN PRINT "to surrender the battle." 1205 IF O=5 THEN PRINT "to SURRENDER THE WAR !!!" 1210 GOTO 1360 1220 LET P=RND(P) 1230 LET P=P*1000000 1240 LET P=INT(P) 1250 GOTO 1200 1260 PRINT "" 1270 LET P=RND(P) 1280 LET P=P*100000 1290 LET P=INT(P) 1300 GOTO 1200 1310 PRINT "" 1320 LET P=RND(P) 1330 LET P=P*10000 1340 LET P=INT(P) 1350 GOTO 1200 1360 PRINT 1370 PRINT "- - - - - - - - - - CASUALTIES - - - - - - - - - - " 1380 PRINT " USA","USSR" 1390 PRINT %C;P,H 1400 LET C=C-H 1410 LET B=B-P 1420 IF C<.1 THEN 1440 1430 IF C>.1 THEN 1470 1440 LET C=0 1450 IF B>.1 THEN 1470 1460 LET B=0 1470 PRINT "==========","MEN LEFT","==========" 1480 PRINT " USA"," "," USSR" 1490 PRINT %C;B," ",C 1500 IF B>C THEN 1520 1510 IF B18 THEN 1640 1595 INPUT (1,0)"Enter any letter to continue ---=>",I$ 1600 GOTO 260 1610 PRINT "CONGRADULATIONS" 1620 PRINT "*****YOU WON THE WAR*****" 1630 GOTO 1670 1640 IF C>B THEN 1610 1650 PRINT "YOU LOST THE WAR" 1660 PRINT "THE USA IS NOW A COMMUNIST COUNTRY" 1670 PRINT "Do you want to play again? (Y or N) ---=>"; 1680 INPUT (1,0)I$: LET I$=I$+"N" 1690 IF I$(1,1)="Y" THEN 100 1700 IF I$(1,1)="y" THEN 100 1710 END