REM A Trigger for nuclear Detonations REM A Safety is designed to allow a completed control system. REM A well considered design. REM A non- trick safety switch allows programs to run while REM transporting the device. A safe switch input allows the false usage. REM "SAFE" is a computer read switch! REM Turning on the computer with the switch NOT safe, runs the detonation REM sequence. DIM TIME0, TIME1
1 DDAYS = 0
3 SAFETY1 = 0
4 INPUT safe
5 IF (safe = 1) THEN GOTO 10000
6 IF (DDAYS > 0) THEN GOTO 5000
10 CLS REM learn the safety logical sequenceing! REM a first reading,as input is a kind of safety. REM Add a keypad lock out as the main while loop is entered! REM REM PRINT "NUclear Detonation Timer" PRINT "Version 2.44"
111 d$ = DATE$
113 t$ = TIME$ PRINT "Date:"; d$ PRINT "Time:"; t$
145 TIME0 = (((VAL(t$) / 24)) + VAL(MID$(t$, 4)) / 1440) REM
147 TIME1 = 1
149 PRINT "*************ENTER TIME************"
1500 PRINT "Enter delays days:"
1505 INPUT DVAL REM REM
1700 CLS
1702 PRINT "Detonation Time="; TIME0 + 24
1706 a$ = LEFT$(d$, 5)
1711 a$ = RIGHT$(a$, 2)
1714 a$ = STR$(VAL(a$) + 2)
1715 f$ = LEFT$(d$, 3) + a$ + RIGHT$(d$, 5)
1717 PRINT "Detonation Date:"; f$ REM a style of user requires a false timer, so th eonly time allowed REM displayed is a false display. REM REM REM
1904 IF DVAL >= 1 THEN DVAL = .001
1905 IF DVAL + TIME0 > 1 THEN
1907 DVAL = (DVAL + TIME0) - 1
1908 TIME0 = TIME0 - 1
1909 END IF
1910 IF DVAL + TIME0 "" REM
2001 DDAYS = 1 REM A sequencer, as the safety and detonation was designed carefully. REM Do not ever use a different system.
2123 t$ = TIME$
2234 TIME1 = (((VAL(t$) / 24)) + VAL(MID$(t$, 4)) / 1440)
3090 IF (TIME1 + TIME0 > DVAL) THEN GOTO 6 REM
3094 PRINT "INPUT SAFETY1"
3095 INPUT SAFETY1
3096 IF (SAFETY1 = 1) THEN GOTO 6 REM
4000 LOOP REM
4001 GOTO 5000 REM IF you want to play with sneaky safeties place a REM "IF...GOTO 10000" switch READ here. REM And always let the timer time out to make it safe! REM
5000 PRINT "Place detonation output switch action here.!"
5001 PRINT "TIME="; TIME$
5101 GOTO 20000
10000 PRINT "Why did you power up the device?"
12000 PRINT "Place auto safe shutdown here."
20000 END