Source Code
5 REM DAILY SECURITY CODES
6 PRINT "%D%A%I%L%Y% %S%E%C%U%R%I%T%Y% %C%O%D%E%S"
7 LPRINT "%D%A%I%L%Y% %S%E%C%U%R%I%T%Y% %C%O%D%E%S"
8 PRINT
9 PRINT "ENTER DAY/WEEK OF: ";
10 INPUT D
11 PRINT D
12 LPRINT "ENTER DAY/WEEK OF: ";D
18 GOSUB 300
100 LPRINT "SUNDAY: ";C
110 GOSUB 300
120 LPRINT "MONDAY: ";C
130 GOSUB 300
140 LPRINT "TUESDAY: ";C
150 GOSUB 300
160 LPRINT "WEDNESDAY: ";C
170 GOSUB 300
180 LPRINT "THURSDAY: ";C
190 GOSUB 300
200 LPRINT "FRIDAY: ";C
210 GOSUB 300
220 LPRINT "SATURDAY: ";C
230 STOP
300 LET C=INT (10000*RND)
310 IF C<1000 THEN GOTO 300
320 RETURN
375 CLEAR
400 SAVE "1001%8"
500 RUN