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- posted
17 years ago