home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
megatrek.zip
/
TRANSFER.ASC
< prev
next >
Wrap
Text File
|
1982-07-04
|
640b
|
17 lines
50000 J3=0:IF D4(12)<>0 THEN 50130
50010 INPUT"NUMBER OF UNITS TO SHIELDS";Z3
50020 IF Z3<0 THEN GOTO 50200
50030 IF E1+S3-Z3>0 THEN 50060
50040 PRINT"SCOTT HERE- 'WE ONLY HAVE";FNR(E1+S3);"UNITS LEFT.'"
50050 GOTO 50200
50060 E1=E1+S3-Z3:S3=Z3:PRINT"--ENERGY TRANSFER COMPLETE--"
50070 PRINT"(SHIP ENERGY=";FNR(E1);" SHIELD ENERGY=";FNR(S3);")"
50080 J3=1
50090 T1=.1:P5=(K3+4*C3)/48:IF P5<.1 THEN P5=.1
50100 IF P5>RND(1)THEN GOSUB 1000
50110 IF A2<>0 THEN GOTO 50200
50120 GOSUB 9000:GOTO 50200
50130 PRINT"TRANSFER PANEL DAMAGED."
50200 IF J3=0 THEN GOTO 70 ELSE GOTO 585
60000 REM end of overlay
SUB 9000:GOTO 5020