10   REM ......MECC SYSTEM  * WW3 *    COPIED  3-1-78
20   FOR R=1 TO 10
30      PRINT 
40   NEXT R
50   PRINT TAB(15);"###############"
60   PRINT TAB(15);"### W.W.III ###"
70   PRINT TAB(15);"###############"
80   PRINT 
90   PRINT 
100  R=1
110  PRINT "DESCRIPTION OF GAME (1)YES (2)NO"
120  INPUT A
125  PRINT 
130  IF A=2 THEN 00240
140  PRINT "THIS IS SIMULATED ATOMIC WAR IN THE YEAR 2005, BETWEEN THE USA"
150  PRINT "AND THE USSR."
160  PRINT "YOU ARE A UNITED STATES GENERAL YOUR DESITIONS"
170  PRINT "MEAN VICTORY OR DEFEAT FOR THE U.S."
180  PRINT "AND LIFE OR DEATH TO HUNDREDS OF THOUSANDS OF SOLDIERS"
181  PRINT 
185  PRINT "*** TYPE IN ANY NUMBER TO SEE MORE --->";
186  INPUT X
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"
236  PRINT "*** TYPE IN ANY NUMBER TO SEE MORE --->";
237  INPUT X
238  PRINT 
240  PRINT "BATTLE #1"
250  GOTO 00270
260  PRINT "*** TYPE IN ANY NUMBER TO SEE MORE --->";
261  INPUT X
262  PRINT 
265  PRINT "BATTLE #";R
270  PRINT "  USA"," USSR"
280  PRINT " (MEN)"," (MEN)"
290  REM .....WAS---->  X=TIME(0)
300  B=RND(0)
310  B=B*1000000
320  B=INT(B)
330  PRINT " "
340  REM ....WAS--->   R2=TIM(10)
350  C=RND(0): REM ....C=RND(R2)
360  C=C*1000000
370  C=INT(C)
380  PRINT " "
390  PRINT B,C
400  PRINT " "
410  PRINT ""
420  E=RND(0): REM .....E=RND(E)
430  E=E*100
440  E=INT(E)
450  PRINT "YOU HAVE ";E;" MISSLES "
460  F=RND(0): REM .....F=RND(F)
470  F=F*10
480  IF F<5 THEN 500
490  IF F>5 THEN 00520
500  PRINT "YOU'RE ON THE DEFENSIVE"
510  GOTO 00550
520  PRINT "YOU'RE ON THE OFFENSIVE"
530  PRINT "YOUR OFFENSIVE STRATAGIES ARE:"
540  GOTO 00560
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 G
590  IF G=1 THEN 00690
600  IF G=2 THEN 00760
610  IF G=3 THEN 00760
620  IF G=4 THEN 01560
630  IF G=5 THEN 01650
640  V=RND(0): REM ....V=TIM(1)
650  H=RND(0): REM .....H=RND(V)
660  H=H*1000000
670  H=INT(H)
680  GOTO 01090
690  PRINT "NUMBER OF MISSLES TO FIRE(0-";E;")"
700  INPUT I
710  IF I<10.5 THEN 01010
720  IF I>10.5 THEN IF I<40.5 THEN 01060
730  IF I>40.5 THEN IF I<E+1 THEN 00640
740  PRINT "YOU ONLY HAVE ";E;" MISSLES"
750  GOTO 00690
760  PRINT "NUMBER OF MEN TO CHARGE ENEMY  "
770  INPUT J
780  IF J<B+1 THEN 00810
790  PRINT "YOU ONLY HAVE ";C;" MEN"
800  GOTO 00760
810  PRINT "NUMBER OF MEN TO FIRE FROM STATIONARY POSITION"
820  INPUT K
830  IF J+K<B+1 THEN 00860
840  PRINT "YOU ONLY HAVE ";B;" MEN"
850  GOTO 00810
860  IF E<10 THEN 00880
870  IF E>10 THEN 00900
880  PRINT "NUMBER OF MISSLES TO FIRE(0-";E;")"
890  GOTO 00910
900  PRINT "NUMBER OF MISSLES TO FIRE(0-10)"
910  INPUT L
920  IF L>11 THEN 00970
930  M=J+K+L
940  IF M<25001 THEN 00990
950  IF M>25000 THEN IF M<50001 THEN 01060
960  IF M>50000 THEN IF M<C+11 THEN 00640
965  GOTO 1000
970  PRINT "THINK AGAIN... YOU ONLY HAVE 10 MISSLES"
980  GOTO 00900
990  REM ....U=TIM(1)
1000 H=RND(0): REM .... H=RND(U)
1010 H=H*10000
1020 H=INT(H)
1030 GOTO 01090
1040 REM .... U=TIM(1)
1050 H=RND(0): REM ..... H=RND(U)
1060 H=H*100000
1061 IF H>999999 THEN 1040
1070 H=INT(H)
1080 REM .... W=TIM(1)
1090 N=RND(0): REM .... N=RND(W)
1100 N=N*10
1110 IF N<3.3 THEN 01140
1120 IF N>3.3 THEN IF N<6.6 THEN 01160
1130 IF N>6.6 THEN 01180
1140 O=1
1150 GOTO 01220
1160 O=2
1170 GOTO 01270
1180 O=3
1190 GOTO 01320
1200 PRINT "THE SOVIET UNION CHOSE PLAN ";O
1210 GOTO 01360
1220 P=RND(0): REM ....P=RND(P)
1230 P=P*1000000
1240 P=INT(P)
1250 GOTO 01200
1260 PRINT ""
1270 P=RND(0): REM ....P=RND(P)
1280 P=P*100000
1290 P=INT(P)
1300 GOTO 01200
1310 PRINT ""
1320 P=RND(0): REM ....P=RND(P)
1330 P=P*10000
1340 P=INT(P)
1350 GOTO 01200
1360 PRINT ""
1370 PRINT "- - - - - - - - - - CASUALTIES - - - - - - - - - - "
1380 PRINT "   USA","USSR"
1390 PRINT P,H
1400 C=C-H
1410 B=B-P
1420 IF C<.1 THEN 01440
1430 IF C>.1 THEN 01470
1440 C=0
1450 IF B>.1 THEN 01470
1460 B=0
1470 PRINT "==========","MEN LEFT","=========="
1480 PRINT "   USA","   ","   USSR"
1490 PRINT B,"   ",C
1500 IF B>C THEN 01520
1510 IF B<C THEN 01560
1520 PRINT "THE UNITED STATES WON THE BATTLE"
1530 Z=Z+1
1540 R=R+1
1550 GOTO 01590
1560 PRINT "THE SOVIET UNION WON THE BATTLE"
1570 Y=Y+1
1580 R=R+1
1590 IF R>18 THEN 01640
1600 GOTO 260
1610 PRINT "CONGRADULATIONS"
1620 PRINT "*****YOU WON THE WAR*****"
1630 GOTO 1670
1640 IF C>B THEN 01610
1650 PRINT "YOU LOST THE WAR"
1660 PRINT "THE USA IS NOW A COMMUNIST COUNTRY"
1670 PRINT "DO YOU WANT TO PLAY AGAIN (1)YES (2)NO"
1680 INPUT T
1690 IF T<1.5 THEN 00100
1700 END