1 REM SPWR2.ECB
    3 DIM X(3)
    5 PRINT TAB(15);"<#>  S P A C E W R  <#>"
    6 PRINT
    7 PRINT
   10 PRINT "DO YOU NEED INSTRUCTIONS  ( Y OR N ) ---=>";
   20 INPUT A$
   30 IF A$="N" THEN 76
   40 PRINT "THIS PROGRAM SIMULATES A WAR BETWEEN"
   42 PRINT "EARTH COLONY GAMMA AND THE EVIL SNYBORGIAN EMPIOR"
   43 PRINT "YOU COMMAND EARTH COLONY GAMMA"
   44 PRINT "YOU WILL BE GIVEN VARIOUS TARGETS TO ATTACK"
   45 PRINT "TROOP TRANSPORTS, FACTORYS,FUEL DEPOES ETC......"
   46 PRINT "YOU CAN ATTACK WITH (1) CRUISERS(2)BATTLESHIPS"
   47 PRINT "(3)MISSLES"
   48 PRINT "GOOD LUCK"
   50 PRINT ":::::::::VITAL STATS::::::::::"
   52 PRINT "CRUISERS-"
   54 PRINT "CREW-2000 PEOPLE"
   56 PRINT "ARAMENTS    3 ANTI MATTER TORP"
   58 PRINT "             20 ELION ENERGY BOLTS"
   60 PRINT "DEFENCE       10 LASAR CANNONS "
   62 PRINT "             DEFLECTOR SHIELDS"
   64 PRINT "BATTLESHIPS-"
   67 PRINT "             CREW 300 PEOPLE"
   68 PRINT "  ARMAENTS     20 ELION ENERGY BOLTS"
   69 PRINT "                NILLAW TIME DISTORTERS"
   70 PRINT "DEFENCE     10 LASAR CANNONS"
   72 PRINT "                 DEFLECTOR SHIELDS"
   74 PRINT "MISSLES-"
   75 PRINT "MOST WILL BE DESTROYED"
   76 PRINT
   77 PRINT
   78 PRINT "GOOD LUCK"
   80 LET C=INT(1000*RND(0)+1)
   81 PRINT
   82 IF C>200 THEN 88
   84 PRINT "SNYBORGIAN TRANSPORT ";C-100
   86 GOTO 120
   88 IF C>400 THEN 94
   90 PRINT "FUEL DEPO "
   92 GOTO 120
   94 IF C>600 THEN 100
   96 PRINT "SNYBORGIAN LITHINGH FACTORY ";C-500
   98 GOTO 120
  100 IF C>800 THEN 106
  102 PRINT "SNYBORGIAN SPACESTATION ";C-700
  104 GOTO 120
  106 IF C>950 THEN 112
  108 PRINT "SNYBORGIAN BATTLE CONTROL STATION"
  110 GOTO 120
  112 PRINT "YOU WON "
  113 PRINT "GREAT JOB COMMANDOR ";B$
  114 PRINT "THEY SURRENDORED"
  116 GOTO 8000
  120 PRINT "APPEARS TO BE BEST TARGET"
  130 PRINT "WHAT DO YOU WANT TO ATTACK WITH"
  140 PRINT "(1) CRUISERS (2) BATTLESHIPS (3) MISSLES"
  150 INPUT D
  160 IF D=1 THEN 640
  170 IF D=2 THEN 1130
  180 PRINT "TYPE IN THE NUMBER OF MISSLES YOU WANT TO FIRE (1-20)"
  190 INPUT E
  192 IF E<21 THEN 200
  193 PRINT "YOU INPUTED  TOO MANY ,......RE ENTER NEW DATA"
  194 GOTO 190
  200 PRINT
  550 PRINT
  560 LET F=RND(F)
  565 LET F=INT(20*F)
  570 PRINT F;" MISSLES GOT THROUGH........."
  580 LET F=F*5
  585 PRINT "SCANNARS REPORT "
  590 PRINT F;" PERCENT DAMAGE DONE"
  592 IF F>7.5 THEN 598
  594 PRINT "YOU DID NOT CAUSE MUCH DAMAGE ......"
  595 PRINT "START IMPROVING......."
  598 PRINT "GOOD WORK"
  599 GOTO 80
  640 PRINT "WHICH CRUISER DO YOU WANT DEPLOYED ---=>";
  650 INPUT I$
  660 PRINT
  670 PRINT I$;" IS BEING DEPLOYED............"
  680 PRINT "ETA IS 2 DAYS GAMMA TIME,3 SECONDS OUR TIME TRAVILING "
  690 PRINT "THROUGH  HYPER-SPACE"
  700 PRINT ".................2.............1......"
  710 PRINT "NOW OUT OF HYPER-SPACE"
  720 PRINT "DISTANCE LEFT TO TARGET"
  730 LET J=RND(J)*999999
  740 IF J<200000 THEN 730
  750 PRINT J;" KILOMETERS"
  760 PRINT "WHICH WEAPONS DO YOU WANT TO USE (1) ANTI-MATTER TORPEDOES"
  770 PRINT "(2) ELION ENERGY BOLTS ---=>";
  780 INPUT J(2)
  790 PRINT
  800 IF J(2)=1 THEN 1500
  810 PRINT "YOU HAVE 20 CHARGES OF ELION ENERGY BOLTS"
  820 PRINT "HOW MANY DO YOU WANT TO FIRE ---=>";
  830 INPUT K
  834 IF K<21 THEN 840
  836 PRINT "YOU DO NOT HAVE THAT MANY , RE-ENTER DATA"
  838 GOTO 830
  840 PRINT "HOW FAR DO YOU WANT TO FIRE FROM( RANGE IS ABOUT 10000 KM)"
  860 INPUT L
  870 LET Z=INT(1000*RND(0)+1)
  873 LET Z=Z*K
  875 LET Z=Z/L
  880 PRINT "FIRE ...........................**BOOOOMMMMMMM**"
  882 PRINT
  884 PRINT
  885 IF Z<K THEN 890
  886 LET Z=K
  890 PRINT "NUMBER OF BOLTSTO HIT TARGET ";Z
  900 PRINT "DAMAGE ON TARGET IS ABOUT "
  910 LET Z(2)=INT(7*RND(0)+1)
  914 LET Z(2)=Z(2)*Z
  920 PRINT Z(2);" PERCENT"
  925 LET M=INT(10000*RND(0)+1)
  930 IF M>L THEN 1700
  940 GOTO 81
  950 PRINT
  960 GOTO 1700
 1120 PRINT
 1130 PRINT "WHICH BATTLESHIP DO YOU WANT DEPLOYED ---=>";
 1140 INPUT I$
 1150 PRINT
 1160 PRINT I$;" IS HEADING TO TARGET........."
 1170 LET I(2)=INT(360*RND(0)+1)
 1180 LET I(3)=INT(180*RND(0)+1)
 1190 PRINT "COURSE ";I(2);" DEGRESS MARK ";I(3)
 1200 PRINT
 1210 PRINT "NOW GOING INTO HYPER-SPACE DRIVE............"
 1220 PRINT ".........................NOW OUT OF HYPER-SPACE"
 1230 PRINT
 1240 LET J=INT(1000000*RND(0)+1)
 1250 IF J<20000 THEN 1240
 1260 PRINT J;" KILOMETERS LEFT TO TARGET......"
 1265 PRINT "WHICH WEAPION DO YOU WANT TO USE"
 1270 PRINT "(1)ELION ENERGY BOLTS OR (2)NILLAW TIME DISTORTERS"
 1280 INPUT F(2)
 1290 IF F(2)=1 THEN 810
 1320 PRINT "NILLAW TIME DISTORTERS READY......"
 1330 PRINT "YOU HAVE ONE SHOT.........GOOD LUCK"
 1340 PRINT "WARNING: THE NILLAW TIME DISTORTERS ARE"
 1350 PRINT "A NEW EXPERAMENTAL WEAPON.......IT "
 1360 PRINT "WILL ETHIER COMPLETELY DESTROY THE ENEMY OR IT WILL"
 1370 PRINT "DESTROY YOU ......DO YOU WANT TO CHANCE IT ";
 1380 INPUT Q$
 1390 IF Q$="N" THEN 810
 1400 PRINT "OK YOU WANT TO CHANCE IT SO GOOD LUCK"
 1401 PRINT "PHUTT"
 1402 FOR Y=1 TO 10
 1404   PRINT "*"
 1406 NEXT Y
 1411 LET Z=INT(20*RND(0)+1)
 1416 IF A<10 THEN 1428
 1420 PRINT "SCANNARS REPORT THAT YOU WILL NOT HAVE TO WORRY"
 1422 PRINT "ABOUT THIS PLACE ANY MORE............GOOD WORK"
 1426 GOTO 81
 1428 PRINT "OOOOUPSSS........IT BOUNCED BACK"
 1430 PRINT "WELL I HAVE SOME GOOD NEWS AND SOME BAD NEWS"
 1432 PRINT "THE GOOD NEWS IS THAT YOU WILL NOT HAVE TO PAY YOUR"
 1434 PRINT "INCOME TAX.....THE BAD NEWS IS YOUR WIDOW WILL"
 1436 PRINT "TOO BAD"
 1440 GOTO 81
 1500 PRINT "HOW MANY TORPEDOS DO YOU WANT TO FIRE ---=>";
 1510 INPUT S
 1520 IF S<3.1 THEN 1570
 1530 PRINT "YOU DO NOT HAVE THAT MANY......RETYPE DATA"
 1540 GOTO 1510
 1570 PRINT "INPUT DISTANCE YOU WANT TO FIRE FROM "
 1580 PRINT "EFFECTIVE RANGE IS 3000 KM MAX ---=>";
 1590 INPUT Y
 1600 LET Z=INT(100*RND(0)+1)
 1610 PRINT
 1620 PRINT ".................................BOOOOMMMMMMMMM"
 1630 PRINT ""
 1640 PRINT Z;"PERCENT DAMAGE DONE "
 1650 LET X(2)=INT(1000*RND(0)+1)
 1655 LET Z=X(2)*S/Y
 1670 PRINT Z;" TORPEDOS HIT"
 1680 LET A(2)=INT(3000*RND(0)+1)
 1690 IF A(2)>Y THEN 1700
 1695 GOTO 80
 1700 PRINT "FIGHTERS ATTACKING"
 1710 PRINT "POSSIBILITIES (1)LASAR CANNONS (2)DEFLECTORS AND CALL"
 1720 PRINT "FOR HELP.........STATEGY ---=>";
 1730 INPUT A(3)
 1740 IF A(3)=1 THEN 2070
 1750 PRINT "ENGINES NOW OFF...."
 1760 PRINT "ALL POWER GOING TO COMUNACATIONS AND DEFLECTORS"
 1770 PRINT ".......MAYDAY  SENT"
 1800 LET B(2)=INT(1000*RND(0)+1)
 1840 IF B(2)<850 THEN 1950
 1850 PRINT "HERE COME GAMMA FIGHTERS ....."
 1860 PRINT "SHIELDS HOLDING FIRM AND WE ARE NOW OUT OF DANGER"
 1880 PRINT ""
 1885 IF Z>30 THEN 1930
 1890 PRINT "YOU PUT THE CREW OF THE ";I$
 1900 PRINT "IN DANGER CAUSING ONLY ";Z;" PERCENT DAMAGE"
 1910 PRINT ".............SHAPE UP'"
 1920 GOTO 80
 1930 PRINT "GOOD ATTACK COMMANDER"
 1940 GOTO 80
 1950 PRINT "SHIELDS DAMAGED AND WEAKENING......."
 1960 PRINT "FIGHTERS NOW ATTACKING LIFESUPPORT"
 1970 PRINT ".......**BOOOOMMMMMM**-----LIFESUPPORT GONE"
 1980 PRINT "           **ABANDONE SHIP**"
 1990 PRINT
 2000 LET B(2)=INT(100*RND(0)+1)
 2005 PRINT "FINAL STATIS THIS BATTLE"
 2006 PRINT "---------------------------"
 2010 PRINT "CASUALTIES ";B(2);" PERCENT"
 2020 PRINT "";I$;" DESTROYED"
 2030 PRINT "WEAPONS TO HIT TARGET ";Z
 2040 PRINT
 2045 PRINT
 2047 PRINT
 2050 PRINT "RESQUE SHIP NOW PICKING UP SURVIVERS"
 2055 PRINT "     YOU BLEW IT "
 2060 GOTO 80
 2070 PRINT
 2080 PRINT " CENTRAL COMPUTER NOW DIVERTED TO LASAR CANNONS"
 2090 PRINT "........IN  RANGE IN 5 SECONDS...........4"
 3000 PRINT ".......3...........2.........1......"
 3020 PRINT "................................."
 3023 PRINT "-----------------------------------****ZAP'"
 3030 PRINT
 3040 LET D(2)=INT(10*RND(0)+1)
 3050 IF D(2)<5 THEN 3080
 3060 PRINT D(2);" FIGHTERS GOT THROUGH"
 3065 PRINT "YOU WHERE ATTACKED BUT GOOD"
 3067 PRINT "YOU LOST THIS BATTLE"
 3070 GOTO 2000
 3080 PRINT "GOOD DEFENCE........NO FIGHTERS GOT THROUGH"
 3090 PRINT ".......................YOUR SAFE"
 7999 GOTO 81
 8000 END