10 REM-S5,T          Starting  Steps              ++/++/++
   20 REM... Adds... Day of Week Option 
   30 PRINT : SET OF=#0: CURSOR 15,0: GOTO 370
   40 PRINT "PAUSE   ";: INPUT (1,0)Z9$
   50 PRINT "\K": CURSOR 15,000: RETURN 
   60 PRINT : PRINT : PRINT : RETURN 
   70 REM... *    .    +    *    $    *    +    .    * ...REM 
   80 PRINT TAB(11);"*";TAB(45);"*"
   90 PRINT "         * * * * * * * * * * * * * * * * * * * *"
  100 PRINT TAB(11);"*";TAB(45);"*": RETURN 
  110 INPUT (1,0)"*** 0=DISPLAY   1=PRINTER ***",P9$
  120 IF P9$="0" THEN 50
  130 IF P9$<>" " THEN 140 ELSE  GOSUB 50: END 
  140 IF P9$="1" THEN 150 ELSE  GOSUB 50: GOTO 110
  150 SET OF="L": RETURN 
  160 PRINT "\K";"ENTER DATE {use  mm,dd,yy}": INPUT (2,0)D1
  170 INPUT (2,0)D2: INPUT (2,0)D3: LET D4=10000*D3+100*D1+D2
  180 PRINT "\K": CURSOR 15,0
  190 LET Z3=D3+1900
  200 IF D1<3 THEN  LET A=Z3-1: LET B=D1+13: GOTO 220
  210 LET A=Z3: LET B=D1+1
  220 LET N=INT(365.25*A)+INT(30.6*B)+D2-621049
  230 LET D=INT((N/7-INT(N/7))*7+1.1)
  240 ON D RESTORE 250,260,270,280,290,300,310
  250 DATA "SUNDAY"
  260 DATA "MONDAY"
  270 DATA "TUESDAY"
  280 DATA "WEDNESDAY"
  290 DATA "THURSDAY"
  300 DATA "FRIDAY"
  310 DATA "SATURDAY"
  320 READ D$
  330 PRINT %#2I;D1;"/";D2;"/";D3;%#: PRINT : GOSUB 80
  340 PRINT TAB(11);"*";TAB(25);D$;TAB(45);"*": GOSUB 80
  350 PRINT : INPUT (1,0)"*** 0=CORRECT   Else=Retry ***",Z9$
  360 IF Z9$<>"0" THEN 160 ELSE  GOSUB 50
  370 REM... * DIMENSION   STATEMENT
  380 GOSUB 80
  900 PRINT "           *  12345678901234567890123456789  *"
  910 GOSUB 80: GOSUB 60: GOSUB 40