home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
megatrek.zip
/
WARP.ASC
< prev
Wrap
Text File
|
1982-07-03
|
640b
|
18 lines
50000 INPUT"WARP FACTOR";K
50010 PRINT
50020 IF K<1 THEN 50130
50030 IF K>10 THEN 50140
50040 J=W1:W1=K:W2=W1*W1
50050 IF(W1<=J)OR(W1<=6)THEN 50080
50060 IF W1<=8 THEN 50090
50070 IF W1>8 THEN 50100
50080 PRINT"'WARP FACTOR";W1;"CAPTAIN'":GOTO 70
50090 PRINT"*** OUR MAXIMUM SAFE SPEED IS WARP 6":GOTO 70
50100 IF W1=10 THEN 50120
50110 PRINT"*** CAPTAIN, OUR ENGINES MAY NOT TAKE IT !":GOTO 70
50120 PRINT"-'AYE, CAPTAIN, WE'LL GIVE IT A TRY.'":GOTO 70
50130 PRINT"-'WE CAN'T GO BELOW WARP 1, CAPTAIN.'":GOTO 70
50140 PRINT"-'OUR TOP SPEED IS WARP 10, CAPTAIN.'"
50150 GOTO 70
60000 REM end overlay
GO BELOW WARP 1, CAPTA