home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
megatrek.zip
/
SOS.ASC
< prev
next >
Wrap
Text File
|
1982-07-04
|
1KB
|
31 lines
50000 IF C5$<>"DOCKED"THEN 50030
50010 PRINT"--> CAPTAIN, WE'RE ALREADY DOCKED!"
50020 GOTO 70
50030 IF D4(9)=0 THEN 50050
50040 PRINT"SUBSPACE RADIO DAMAGED...CANNOT TRANSMIT.":GOTO 70
50050 IF R3<>0 THEN 50070
50060 PRINT"CAPTAIN, NO RESPONSE FROM STARBASE !":GOTO 70
50070 N1=N1+1:IF B6=0 THEN 50090
50080 GOTO 50150
50090 D1=1E+30
50100 FOR L=1 TO R3:X=10*SQR((B2(L)-Q1)^2+(B3(L)-Q2)^2)
50110 IF X>D1 THEN 50130
50120 D1=X:K=L
50130 NEXT L
50140 Q1=B2(K):Q2=B3(K):GOSUB 18000
50150 Q$(S6,S7)="."
50160 PRINT
50170 PRINT"STARBASE IN QUADRANT";Q1;"-";Q2;"RESPONDS --";
50180 PRINT" ";S5$;" DEMATERIALIZES."
50190 P2=(1-.9799999^D1)^.333333
50200 FOR L=1 TO 3
50210 IF L=1 THEN PRINT"1ST ";
50220 IF L=2 THEN PRINT"2ND ";
50230 IF L=3 THEN PRINT"3RD ";
50240 PRINT"ATTEMPT TO RE-MATERIALIZE THE ";S5$;". . . . .";
50250 IF RND(1)>P2 THEN 11220
50260 PRINT"FAILS.":NEXT L
50270 F9=11:CHAIN MERGE "END.ASC",50000!,ALL,DELETE 50000-60000
60000 REM end overlay
HEN 11220
50260 PRINT"FAILS.":NEXT