Security 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