home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
megatrek.zip
/
DESTRUCT.ASC
< prev
next >
Wrap
Text File
|
1982-07-03
|
1KB
|
24 lines
50000 IF D4(11)=0 THEN 50030
50010 PRINT"COMPUTER DAMAGED - CANNOT EXECUTE DESTRUCT SEQUENCE"
50020 GOTO 70
50030 PRINT:PRINT" ---WORKING---"
50040 PRINT"IDENTIFICATION-POSITIVE"
50050 PRINT"SELF-DESTRUCT-SEQUENCE-ACTIVATED":J=3
50060 FOR I=10 TO 6 STEP-1:PRINT SPC(J);I:GOSUB 50210:J=J+3:NEXT
50070 PRINT"ENTER-YOUR-MISSION-PASSWORD-TO-CONTINUE"
50080 PRINT"SELF-DESTRUCT-SEQUENCE-OTHERWISE-DESTRUCT"
50090 PRINT"SEQUENCE-WILL-BE-ABORTED"
50100 INPUT B$:IF B$<>X$ THEN 50190
50110 PRINT"PASSWORD-ACCEPTED":J=10
50120 FOR I=5 TO 1 STEP-1:PRINT SPC(J);I:GOSUB 50210:J=J+3:NEXT
50130 PRINT:PRINT"*****ENTROPY OF ";S5$;" MAXIMIZED*****"
50140 PRINT:IF K3=0 THEN 50180
50150 W=20*E1:FOR L=1 TO K3:IF K6(L)*K7(L)>W THEN 50170
50160 A5=K4(L):A6=K5(L):T2$=Q$(A5,A6):GOSUB 6000
50170 NEXT L
50180 F9=10:CHAIN MERGE "END.ASC",50000!,ALL,DELETE 50000-60000
50190 PRINT"PASSWORD-REJECTED"
50200 PRINT"CONTINUITY-EFFECTED":PRINT:GOTO 70
50210 K=12345:FOR M=1 TO 90:K=K+1:NEXT M:RETURN
60000 REM end overlay
CT