Atari 8-bit Source code

10REM**WORLDPOWER**BYJOEJAWORSKI6/27/77
20REM**WRITTENFORSWTPC8KBASICREV2.0SEEINTERFACEMAG.2-78
30REM**TRANSLATIONTONORTHSTARBASICBYJIMSTEINBRECHER3-5-78
40REM**TRANSLATIONTOMONROEBASICBYJIMSTEINBRECHER11-28-81
50REM**TRANSLATIONTOATARIBASICBYJIMSTEINBRECHER8-6-82
60W=3:DIMZ$(1),S$(6):S$="SHORE":GRAPHICS0:?
70DIMA(10,10),C(10,10),N$(100),D$(50),L$(50)
80N$="N.AMERICAAUSTRALIAS.AMERICARUSSIAJAPAN"
90N$(LEN(N$)+1)="AFRICAKOREACHINAGREENLANDENGLAND"
100D$="TROOPSPLANESARTILLARYTANKSMISSILES"
110L$="NORTHSOUTHEASTWEST"
115GRAPHICS0:?:?"";
120FORX=1TO10:C(X,1)=INT((5000*RND(0))+5000)*10:NEXTX
130FORX=1TO10:FORJ=2TO5:C(X,J)=INT(50*RND(0))+25:NEXTJ:NEXTX
140FORJ=1TO10:FORX=6TO10:C(J,X)=INT(4*RND(0))+1:NEXTX:NEXTJ
150FORX=1TO5:FORJ=1TO10:A(X,J)=C(X,J):C(X,J)=0:NEXTJ:NEXTX
160FORX=6TO10:FORJ=1TO10:A(X,J)=0:NEXTJ:NEXTX
165GOSUB1630
170GOSUB1550
180Y6=Y6+1
185TRAP185:?:?"MANUEVER:";:INPUTM:IFM=99THENEND
190IFM>5THEN170
200IFM<1THEN170
210ONMGOTO220,310,540,630,790
220?"COUNTRY";:INPUTR
230IFR>10THEN220
240IFR<1THEN220
250?:?"STATUSREPORT:";N$(R*10-9,R*10)
260?:?"#DEFENCEQUANTITYLOCATION":?:FORX=1TO5
270?X;"";D$(X*10-9,X*10);"";A(R,X);:POKE85,28
280IFA(R,X)<>0THEN?L$(A(R,(X+5))*10-9,A(R,(X+5))*10-5);S$
290IFA(R,X)=0THEN?
300NEXTX:GOTO170
310?"ENTERCOUNTRIES:(FROM,TO)";:INPUTF,T
320IFF>10THEN310
330IFF<1THEN310
340IFT>10THEN310
350IFT<1THEN310
360?"WHATDEFENCE";:INPUTD
370IFD>5THEN360
380IFD<1THEN360
390?"QUANITY";:INPUTQ
400IFA(F,D)>=QTHEN430
410?"YOUONLYHAVE";A(F,D);"";D$(D*10-9,D*10)
420?"IN";N$(F*10-9,F*10):GOTO170
430IFF<>TTHEN460
440IFA(F,D)=QTHEN460
450?"YOUMUSTMOVEALL";D$(D*10-9,D*10):GOTO170
460A(T,D)=A(T,D)+Q:A(F,D)=A(F,D)-Q
470?"WHATSHORE(1-4)";:INPUTL
480IFL>4THEN470
490IFL<1THEN470
500A(T,(D+5))=L
510IFINT(RND(0)*100)>25THEN530
520GOSUB1310
530GOTO170
540?:?"---GLOBALREPORT---":?
550?"#COUNTRYALLIESENEMYALLIED":?
560FORX=1TO10:IFX<10THEN?"";
565?X;"";N$(X*10-9,X*10);"";A(X,1),;
570POKE85,24:?C(X,1),;
580K2=0:FORF2=1TO5:IFC(X,F2)<>0THENK2=K2+1
590NEXTF2
600IFK2>0THEN?"no":GOTO610
605?"YES"
610NEXTX
620GOTO170
630?"ENTERCOUNTRIES:(FROM,TO)";:INPUTF,T
640IFA(F,2)>=10THEN670
650?"YOUDON'THAVEENOUGHPLANES"
660?"IN";N$(F*10-9,F*10):GOTO170
670A(F,2)=A(F,2)-10
680?:?"SPYMISSIONREPORT:";N$(T*10-9,T*10):?
690IFINT(RND(0)*100)>20THEN730
700IFINT(50*RND(0))>26THEN720
710?"ALLPLANESLOSTATSEA":GOTO170
720?"PLANESSHOTDOWNOVER";N$(T*10-9,T*10):GOTO170
730?"#DEFENCEQUANTITYLOCATION":?:FORX=1TO5
740IFINT(RND(0)*100)>40THEN750
745GOTO780
750?X;"";D$(X*10-9,X*10);"";C(T,X);:POKE85,27
760IFC(T,(X+5))<>0THEN?L$(C(T,(X+5))*10-9,C(T,(X+5))*10-5);
770?
780NEXTX:GOTO170
790K=0:FORX=1TO10:FORJ=1TO5
800IFA(X,J)<>0THEN880
810NEXTJ:NEXTX:IFK>0THEN790
820H=0:K=0:FORX=1TO10:FORJ=1TO5
830IFC(X,J)<>0THENK=K+1
840IFA(X,J)<>0THENH=H+1
850NEXTJ:NEXTX:IFK=0THEN1510
860IFH=0THEN1490
870GOTO170
880C=1
890IFC(X,C)<>0THEN920
900C=C+1:IFC=6THEN810
910GOTO890
920IFA(X,(J+5))<>C(X,(C+5))THEN900
930K=K+1:?:?CHR$(253);"BATTLEIN";N$(X*10-9,X*10)
940?"ONTHE";L$(A(X,(J+5))*10-9,A(X,(J+5))*10-5);S$;"!"
950?"ENEMY";D$(C*10-9,C*10);"ALLIED";D$(J*10-9,J*10)
960O=C(X,C):O1=A(X,J):E=O:E1=O1
970IFJ=1ANDC<>1THEN1170
980IFC=1ANDJ<>1THEN1240
990?E;CHR$(253);,E1
1000GOSUB1430
1010IFE1=0THENE8=1:IFE1=0THEN1060
1020IFE=0THENE8=0:IFE=0THEN1060
1030IFE1>E*1.7THENE8=0:IFE1>E*1.7THEN1060
1040IFE>E1*1.5THENE8=1:IFE>E1*1.5THEN1060
1050GOTO990
1060?E;CHR$(253),E1:?:?"*****AVICTORY*****"
1065?"FORTHE";
1070IFE8=1THEN?"ENEMYIN";:GOTO1080
1075?"ALLIESIN";
1080?N$(X*10-9,X*10):?"ONTHE";
1090?L$(A(X,(J+5))*10-9,A(X,(J+5))*10-5);S$
1100?"TOTALCASUALTIES:"
1110?"ENEMY";D$(C*10-9,C*10),":";O-E
1120?"ALLIED";D$(J*10-9,J*10),":";O1-E1
1130IFE8=0THEN1140
1135C(X,J)=C(X,J)+A(X,J):A(X,J)=0:GOTO1160
1140A(X,C)=A(X,C)+C(X,C):C(X,C)=0:A(X,(C+5))=C(X,(C+5))
1150?E;"";D$(C*10-9,C*10),"WERECAPTURED":GOTO810
1160C(X,(J+5))=A(X,(J+5)):GOTO810
1170?E;CHR$(253);"";E1
1180GOSUB1430
1190IFE=0THENE8=0:IFE=0THEN1060
1200IFE1=0THENE8=1:IFE1=0THEN1060
1210IFE1/1000>ETHENE8=0:IFE1/1000>ETHEN1060
1220IFE>E1*1000THENE8=1:IFE>E1*1000THEN1060
1230GOTO1170
1240?E;CHR$(253);"";E1
1250GOSUB1430
1260IFE=0THENE8=0:IFE=0THEN1060
1270IFE1=0THENE8=1:IFE1=0THEN1060
1280IFE/1000>E1THENE8=1:IFE/1000>E1THEN1060
1290IFE1>E*1000THENE8=1:IFE1>E*1000THEN1060
1300GOTO1240
1310R=INT(100*RND(0))+1:X2=INT(10*RND(0))+2
1315IFD=1THENX2=INT(RND(0)+2)
1320IFA(T,D)<=X2THENX2=A(T,D)
1330A(T,D)=A(T,D)-X2
1340IFR<33THEN1400
1350IFR>66THEN1420
1360?"AMBUSHDURINGTRANSPORT!"
1370?"YOUJUSTLOST";X2;"";D$(D*10-9,D*10)
1380?"TOTALARRIVEDIN";N$(T*10-9,T*10);"=";
1390?A(T,D):RETURN
1400?"SNIPERSONTHE";L$(A(T,(D+5))*10-9,A(T,(D+5))*10-5);S$
1410GOTO1370
1420?"VIOLENTSEASSINKSATRANSPORTSHIP":GOTO1370
1430E=E-INT((E/3)*RND(0))-2
1440IFE<=0THENE=0
1450E1=E1-INT((E1/3)*RND(0))-2
1460IFE1<=0THENE1=0
1470A(X,J)=E1:C(X,C)=E
1480RETURN
1490?:?:?"SORRY,YOUBLEWIT!"
1500?"ALLYOURDEFENSESAREGONE.":?:?:?:GOTO1540
1510?:?:?:?"CONGRADULATIONS!!!"
1520?"YOUHAVECONQUEREDTHEWORLD!!!"
1530?"IN";Y6;"MANUEVERS!"
1540END
1550?:REMINSTRUCTIONS
1560?"MANUEVERS:"
1570?"1=Statusreport";
1580?"2=Movedefence"
1590?"3=Globalreport";
1600?"4=Spymission"
1610?"5=EngageinCombat"
1620RETURN
1630POSITION2,2:?"INSTRUCTIONS";:INPUTZ$
1640?:IFASC(Z$)=78THENRETURN
1650?"You,theAllies,willstartwith"
1660?"5countries,1-5.Theobjectisto"
1670?"moveyourdefencestotheother5"
1680?"countriesandengageincombat."
1690?:?"WhentheAllieshaveall10countries"
1695REM
1700?"orareoutofdefences,thegameends."
1705?:?"SHORESARE:"
1710?"1=NORTH2=SOUTH"
1720?"3=EAST4=WEST"
1800RETURN	

• Download link 1

• Download link 1