:59468,12< GODZILLA COPYRIGHT(C)1980 R LOCKWOODM 90 DYKE RDe SETAUKET NY 11733k: CURSOR #19 APR 80 BOX 550, GOLETA, CA 93017: 28 APR 80 8:15PMd:nZ(TI):140vS$"TOO FARxZ11500::C$S$"CAN'T":120:KG$"GODZILLA":S59464:S,0:S3,16:S2,51:RR190j""9)"CURSOR #19 "G$"!" COPYRIGHT (C) 1980 BY R. LOCKWOODI120:"";:::"SAVE TOKYO!""PRESS RETURN TO BEGIN"A$:A$""180"P(4,4),N(4,4),T(4,4),U%(4,4),S%(4,4),W%(4,4)h"":S$"":K%2500:K1E7C$S$"  "B$" ":DF$"I02:N(I,3)K::N(3,0)K:N(3,1)K1.5'N(3,2)K:N(3,3)K.4:N(4,0)K:N(4,1)KYA04:B04:P(A,B):P(A,B)P(A,B)32808::83,87,92,97,102,283,287,291,256,301,483,487,492,456,501,683,687,691655,701,844,806,851,856,861A04:B04:U%(A,B)::0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,1,1,1,1,0,1,1,0,0,0:"A04:B04:U%(A,B)0310h,W%(A,B)(1)100:T(A,B)(N(A,B)80):3206S%(A,B)(1)61:T(A,B)S%(A,B)350@::M%10:400JX((1)5):Y((1)5):570:370TGDGD15:"":23)G$" AT:"X;Y:PG,G%:PGP(X,Y)2 ^G%(PG):PG,135:I17:PG,7:S,200:Z170:W hPG,135:S,80:Z190:::S,0:t r340:570:650:510:370 " ";:A04:A" ";: :I03:""(48I)""::"4" I120:Z,Z$:Z)Z$:: 17," ",17," ",17," ",16," ",15,"ߩ",15,"_ 16," ",16," ",16," ",15," ",14," ",13," " 11," ",11," T",6," ",4,"  " 7,"  ",3," ",4," ",4,"" TK2E72020 GDK%1800 X1X:XX2(((1)31)):X4X0XX1:530O Y1Y:YY2(((1)31)):Y4Y0YY1:540b &X3Y31940n 01830: :"":23)"INFO FOR:"X;Y DN(X,Y)1N(X,Y)0 N:23)"POP.:";B$(N(X,Y)) XT(X,Y)0T(X,Y)0 b23)"TROOPS:"B$T(X,Y) l23)"SHIPS:"B$S%(X,Y)0 v23)"PLANES:"B$W%(X,Y):C ~C$S$"HOW MANYg S$DF$;:R$:R(R$):ABR$"":} N(3,3)10001980 TK2E72020 C$S$"COMMAND":640 AB"":670 R$"I"1480 R$"TM"780 R$"SM"890 R$"TA"990 R$"M"1120 R$"AR"12402 R$"SA"1360D R$"AB"1500U R$"Q"2040c 130:650y 638:TMR:AB650 C$S$"FROM TO 640:AB650 *1630:E0790 4U%(S1,S2)0790 >TMT(S1,S2)780 HU%(S3,S4)1790\(S1S3)(S2S4)3118:790CpT(S1,S2)T(S1,S2)TM:T(S3,S4)T(S3,S4)TM:czC$S$"FROM TO":640:AB650v1630:E1890S%(S1,S2)1890U%(S3,S4)0890(S1S3)(S2S4)3118:890S%(S1,S2)S%(S1,S2)1:S%(S3,S4)S%(S3,S4)1D%(T(S1,S2)(S%(S1,S2)1))ET(S1,S2)T(S1,S2)D%:T(S3,S4)T(S3,S4)D%:_U%(X,Y)1130:650wT(X,Y)1130:650638:TAR:N%TA9999:TA0AB650TAT(X,Y)130:1030.20008SK(TA(1)):T(X,Y)T(X,Y)SK:TKTKSK BC$S$T(X,Y)" LEFT":1202LZ%1(TA8000)((1)3):Z%7Z%7>V1770:d`M%1S$"NO MISSILES":120:650jM%M%1:S,50:Z199::S,0:C$S$"LAUNCHED":120t2000:NK(N(X,Y)(1)):TKTKNK:N(X,Y)N(X,Y)NK~SK(T(X,Y)(1)):O%SK350T(X,Y)T(X,Y)SK:TKTKSK5C$S$"CASUALTIES":S$""NKSK:120SU%(X,Y)1S%(X,Y)01230pT(X,Y)S%(X,Y)2001230S%(X,Y)0S%(X,Y)0O%S%(X,Y)O%S%(X,Y)S%(X,Y)S%(X,Y)O%C$S$O%" SHIP(S) SUNK":120Z%(1)91:1770:C$S$"FROM":640:AB650$1630:E11240@W%(S1,S2)0130:1240c(XS1)(YS2)7118:1240 638:NP%R:N%NP%:NP%0AB650(NP%W%(S1,S2)S$"TOO MANY":120:129022000:Z%NP%(1)31:Z%9Z%9<C%NP%(1):C$S$C%" PLANES":S$"DESTROYED":1205F1770:W%(S1,S2)W%(S1,S2)C%:510OPU%(X,Y)0130:650dN%S%(X,Y)20:N%1S$"NO SHIPS":120:650xT(X,Y)S%(X,Y)1001420S$"TOO FEW SAILORS":120:6702000:Z%S%(X,Y)((1)4):Z%7Z%71770:SK((1)T(X,Y))/O%(SK300):O%S%(X,Y)O%S%(X,Y)FS%(X,Y)S%(X,Y)O%hS%(X,Y)0SKT(X,Y):T(X,Y)0TKTKSK:T(X,Y)T(X,Y)SK:C$S$SK" KILLEDS$""O%" SHIP(S) SUNK":120:C$S$"COORD":640:AB6501630:E11480X1X:Y1Y:XS1:YS2:570:XX1:YY1:650%H01520EC$S$"ALREADY USED":120:iH1:2000:AX1X1:BY1Y1wA01610B01600B41610A41620"P(A,B),86:T(A,B)0:NK(20(1)N(A,B)),NKN(A,B)NKN(A,B)6N(A,B)N(A,B)NK:TKTKNK @BJA6TG%86:GDGD(800(1)1500):I^E0:2100:EkcS1((R$,1)):S2((R$,2,1))hS3((R$,3,1)):S4((R$,1))rS10S14S20S241690|(R$)3S30S34S40S441690130:E1:"NO";:DG5:"LITTLE";:DG20:,"SOME";:DG100:C"MAJOR";:DG150:["SEVERE";:DG300:r"GRAVE";:DG400:C$S$;:Z%1710,1710,1720,1730,1730,1740,1750,1750,1760" DAMAGE TO":S$""G$:120GDGDDG:GDK%C$S$""G$" IS DEAD":1204C$S$"HE KILLED":S$""(TK):120:120:2040M&DG200DG4001930{0340:570:C$S$G$" ON":S$"RAMPAGE":120:U%(X,Y)11900DS%(X,Y)11930NSK(((1)T(X,Y))S%(X,Y))XT(X,Y)T(X,Y)SK:TKTKSK:S%(X,Y)S%(X,Y)1$bC$S$"SHIP SUNK":S$"KILLING "SK:120:1930LlNK(N(X,Y)(1)):SK(T(X,Y)(1))uvC$S$NKSK" KILLED":120:TKTKNKSKN(X,Y)N(X,Y)NK:T(X,Y)T(X,Y)SK340:C$S$G$" IS":S$"IN TOKYO!":120NK(N(3,3)(1)3):SK(T(3,3)(1))(N(3,3)N(3,3)NK:T(3,3)T(3,3)SK:TKTKSKNK\N(3,3)1E4C$S$"TOKYO DESTROYED!":120:2020C$S$NKSK:S$"KILLED":120:POP(X,Y):I110N%:PO,214:S,150:S,0:PO,86:S,75N%0:S,0::PO,135:C$S$(TK):S$"HAVE DIED":120C$S$G$" WINS!!":1204C$S$"PLAY AGAIN?":S$DF$;:A$R (A$,1)"N":RR1:100kS3,0:S2,0:S,0:|4R$""E1:>Z1(R$):Z$(R$,Z,1):Z$"0"Z$"9"E1:HZ: