10 REM-S4,T          Starting  Steps              ++/++/++
   20 REM... Adds   The   Date   Option 
   30 PRINT : SET OF=#0: CURSOR 15,0: GOTO 190
   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 IF D3>99 THEN 0 ELSE  PRINT "\K": CURSOR 15,0: RETURN 
  190 REM... * DIMENSION   STATEMENT
  200 GOSUB 80
  210 PRINT "           *  12345678901234567890123456789  *"
  220 GOSUB 80: GOSUB 60: GOSUB 40