home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
megatrek.zip
/
ABANDON.ASC
next >
Wrap
Text File
|
1982-07-04
|
1KB
|
28 lines
50000 ON SGN(D4(10))+2 GOTO 50010,50030,50020
50010 PRINT"YE FAERIE QUEENE HAS NO SHUTTLE CRAFT.":GOTO 70
50020 PRINT"SHUTTLE CRAFT DAMAGED.":GOTO 70
50030 PRINT:COLOR 24,7:PRINT"***ABANDON SHIP! ABANDON SHIP!";:PRINT ""
50040 PRINT"***ALL HANDS ABANDON SHIP!";:COLOR 7,0:PRINT "":PRINT:GOSUB 44000
50050 PRINT"YOU AND THE BRIDGE CREW ESCAPE IN THE GALILEO."
50060 PRINT"THE REMAINDER OF THE CREW BEAMS DOWN"
50070 PRINT"TO THE NEAREST HABITABLE PLANET.":IF R3<>0 THEN 50090
50080 F9=9:CHAIN MERGE "END.ASC",50000!,ALL,DELETE 50000-60000
50090 PRINT:PRINT"YOU ARE CAPTURED BY KLINGONS AND RELEASED TO"
50100 PRINT"THE FEDERATION IN A PRISONER-OF-WAR EXCHANGE."
50110 PRINT"STARFLEET PUTS YOU IN COMMAND OF ANOTHER SHIP,"
50120 PRINT"THE FAERIE QUEENE WHICH IS ANTIQUATED, BUT"
50130 PRINT"STILL USABLE.":N=INT(RND(1)*R3+1):Q1=B2(N):Q2=B3(N)
50140 S6=5:S7=5:GOSUB 18000:Q$(S6,S7)="."
50150 FOR L=1 TO 3:S6=INT(2*RND(1)-1+B6)
50160 IF(S6<1)OR(S7>10)THEN 50190
50170 S7=INT(3*RND(1)-1+B7):IF(S7<1)OR(S7>10)THEN 50190
50180 IF Q$(S6,S7)="."THEN 50200
50190 NEXT L:GOTO 50140
50200 S5$="FAERIE QUEENE":Q$(S6,S7)=LEFT$(S5$,1):C5$="DOCKED"
50210 FOR L=1 TO 12:D4(L)=0:NEXT:D4(10)=-1:E1=3000:I7=E1
50220 S3=1500:I8=S3:T4=6:I9=T4:L1=3:J1=L1:S4=0:W1=5:W2=25
50230 GOTO 70
60000 REM end overlay
NEXT:D4(10)=-1:E1=3000:I7=E1
50220 S3=1500:I8=S3:T4=6:I9=T4:L1=3:J1=L1:S4=0:W1=5:W2=25
50230 G