Nascom Journal |
Dezember 1981 · Ausgabe 11/12 |
930 IFD>0THENIFD<=P2THEN950 940 PRINT"Invalid response, Sir":GOTO920 950 D1=SQR((K2-E2)^2+(K1-E1)^2):D2=D/D1:P2=P2-D 953 GOSUB8000:GOSUB30 956 IFH1=1THEN380 960 GOTO5000 961 S8=S8-D2:IFS8<0THEN970 962 IFS8<0THEN970 965 GOTO1000 970 PRINT"** Enemy destroyed **" 971 FORT=1TO400:NEXTT 980 G(Q1,Q2)=G(Q1,Q2)-10:K9=K9-1:C9=1: Q(K1,K2)=0 981 K1=0:K2=0:M=0:N=0 985 GOSUB1990 990 IFK9=0THEN1680 995 GOTO380 1000 GOSUB8002:IFH1=1THEN380:REM Kling schiesst? 1003 D1=(K2-E2)^2+(K1-E1)^2 1005 D=S8:S8=S8/4:D=D-S8 1010 GOSUB31:PRINT"** Enemy attacks **" 1011 FORT=1TO400:NEXTT 1020 P1=P1-D/D1:PRINTD/D1;"unit hit from enemy" 1030 PRINT" Sensors report,that enemy is down to" 1031 PRINTD;"units of fuel" 1070 IFP1<0 THEN1710 1075 FORI=1TO2000:NEXTI:GOSUB30:GOTO380 1080 IFC$<>"BC"THEN1180 1085 GOSUB6000 1090 IFK3-E1<>0THEN1120 1100 IFK4>E2THEND=90:GOTO1150 1105 D=270 1110 GOTO1150 1120 D=(K4-E2)/(K3-E1):D=ATN(D)*180/3.14159 1130 IFK3<E1THEND=D+180 1140 IFD<0THEND=D+360 1150 GOSUB31:PRINT"** Battle Computer **" 1160 PRINT"The bearing of the enemy is";D;"degrees" 1170 GOSUB6000:C$="":GOTO1000 1180 IFC$<>"FT"THEN1320 1181 GOSUB31:IFC9=2THEN1190 1183 GOTO1192 1190 IFT1<>0THEN1210 1191 GOTO1200 1192 PRINT"Where is Your enemy,Sir ?" 1193 FORI=1TO500:NEXT:GOSUB31 1194 GOTO380 1200 PRINT"No Photon torpedoes left, Sir" 1201 GOSUB30:GOTO380 1210 INPUT"Torpedo bearing,Sir ";W 1220 T1=T1-1:GOSUB8000:IFH1=1THEN380 1240 D1=K1-E1:IFD1<>0THEN1270 1250 IFK2>E2THEND2=90:GOTO1260 1255 D2=270 1260 GOTO1300 1270 D2=ATN((K2-E2)/D1)*180/3.14159 1280 IFD1<0THEND2=D2+180 1290 IFD2<0THEND2=D2+360 1292 IFD2=360THEND2=0 1294 IFW=360THENW=0 1300 IFABS(W-D2)<2.5THEN970 1310 PRINT"Photon torpedo missed "; 1315 PRINT"by";ABS(W-D2);"degrees , Sir":GOTO1000 1320 IFLEFT$(C$,1)<>"M"THEN1670 1380 GOSUB31:C1=E1:C2=E2:IFV9>=1THENGOSUB 1530:GOTO1580 1390 FORI=1TO500:NEXT:PRINT"Impulse engines engaged, Sir" 1400 P2=P2-20*V9^2:IFP2<0THENP2=0 1410 IFP2<>0THEN1430 1420 PRINT"Insufficient engine power, Sir" 1421 GOSUB30:GOTO380 1430 GOSUB31:GOSUB1530 1440 C2=C2+D2*10*V9
1450 C1=C1+D1*10*V9 1470 IFC1<=0THENC1=1:GOTO1480 1471 IFC1>=24THENC1=23:GOTO1480 1472 IFC2<=0THENC2=1:GOTO1480 1473 IFC2>=10THENC2=09:GOTO1480 1474 GOTO1491 1480 PRINT"Enterprise blocked at edge of sector, Sir" 1491 FORE=E1TOC1STEPSGN(C1-E1) 1492 FORC=E2TOC2STEPSGN(C2-E2) 1494 IFQ(E1,E2)=Q(E,C)THEN1496 1495 IFQ(E,C)<>0THENIFQ(E,C)<5THEN1500 1496 NEXTC:NEXTE:GOTO1510 1500 PRINT"Enterprise blocked by Objekt, Sir" 1505 C1=E-SGN(E-E1):C2=C-SGN(C-E2) 1510 Q(E1,E2)=0:E1=C1:E2=C2:Q(E1,E2)=1 1520 IFC9=2THEN 1000 1525 GOSUB31:GOTO380 1529 GOSUB 1535:GOTO1580 1530 GOSUB30:REM 1535 D1=0:D2=0 1540 IFC$="MD"THEND2=-1 1550 IFC$="ML"THEND1=-1 1560 IFC$="MR"THEND1=1 1570 IFC$="MU"THEND2=1 1575 RETURN 1580 PRINT"Warp engines engaged, Sir" 1590 P2=P2-20*V9^2:IFP2<0THENP2=0 1600 IFP2=0THEN1420 1610 C1=Q1+D1*V9:C2=Q2+D2*V9 1620 IFC1<1THENC1=1:GOTO380 1630 IFC1>8THENC1=8:GOTO380 1640 IFC2<1THENC2=1:GOTO380 1650 IFC2>11THENC2=11:GOTO380 1655 IFG(Q1,Q2)<1000THENG(Q1,Q2)=G(Q1,Q2)+1000 1660 Q1=C1:Q2=C2:GOSUB2020:GOTO380 1670 PRINT"Invalid command, Sir":GOSUB30:GOTO380 1680 PRINT"Congratulations !!! You have got them !!" 1690 PRINT"The Klingons have been defeated and the univers" 1700 PRINT"is once again safe from their terror !":END 1710 PRINT"You have been destroyed by the enemy battle cruiser !" 1720 PRINT"You were the galaxy's last chance.All is lost." 1730 PRINT"The Klingons will now rule the galaxy":END 1740 DEFFNR(N)=INT(RND(1)*N+1):RETURN 1760 DEFFNP(N)=SGN(SGN(N/10-RND(1))+1) 1780 RETURN 1790 D=INT(RND(1)*100) 1800 IFD>20THENRETURN 1810 IFD<16THENRETURN 1820 GOSUB31:PRINT"*Warning -- Condition Alert*" 1825 ONINT(RND(1)*6+1)GOSUB1830,1840,1870, 1890,1910,1930:GOTO380 1830 PRINT"Enterprise hit by secret weapon - all weapon energy's gone" 1835 P2=0:RETURN 1840 PRINT"Enterprise hit by solar storm screens reduced" 1850 P1=P1-RND(1)*100:IFP1<0THENP1=0 1860 PRINT"Screen power now at";P1;"units":RETURN 1870 PRINT"Enterprise hit by secret weapon - all torpedoesdestroyed" 1880 T1=0:RETURN 1890 PRINT"Enterprise hit by secret weapon - all weapon energy gone" 1900 P2=0:RETURN 1910 PRINT"Enterprise caught in ion storm - energy sourcesdepleted" 1920 P1=P1/2:P2=P2/2:RETURN 1930 PRINT"Enterprise hit by Plasma Bomb - energy sources depleted"
|
|
|
Seite 20 von 55 |
|
|
|
---|
Download des Programms von der Nascom Home Page.