5 CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
10 '***************************************************************************
16 '??????????????????????????????????????????????????????????????????????????
18 '?                  DAILY PHONE CALL AND "DO-LIST" FORM                    ?
20 '?                                                                         ?
22 '?    The form generated by this program can be used to record daily or    ?
24 '? other period phone calls and projects.  This type of form has been a    ?
26 '? legal and acceptable evidential exhibit to the IRS and the courts if it ?
28 '? can be shown that keeping track of these events on a regular, orderly   ?
30 '? basis is a habit.  The form can be modified easily to increase or de-   ?
31 '? crease the number of phone calls and/or projects by making an appropr-  ?
32 '? iate change in the number of loops printed. The loop size entries are   ?
33 '? in lines  230 and 330. By deleting lines 190 thru 280, the phone call   ?
34 '? portion can be eliminated completely. Set print head on first line be-  ?
35 '? low the perforation and make certain printer is ON LINE. Press .    ?
36 '?                   (c) G I N A C O    1983              Ver 5.1/160/320  ?
38 '??????????????????????????????????????????????????????????????????????????
55 '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
57 ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
60 CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
80 REM ===== INITIALIZE PRINTER CODES =====
90 GOSUB 5000
100 ON ERROR GOTO 6000
110 REM ===== PUT IN FORM HEADING =====
120 LPRINT CLEANUP$;
130 WIDTH "LPT1:",96
140 LPRINT DARK$;
150 LPRINT STRING$(4,10);
160 LPRINT EXPAND$; TAB( 17);START.ULINE$"DO  LIST  FORM"END.ULINE$
170 LPRINT STRING$(2,10);
180 LPRINT TAB( 3);EXPAND$"DATE:"START.ULINE$"_        _"END.ULINE$"          DAY"START.ULINE$"_        _"END.ULINE$
190 LPRINT
200 LPRINT EXPAND$; TAB( 16);START.ULINE$"PHONE CALLS";END.ULINE$
210 LPRINT
220 LPRINT TAB( 3);EXPAND$"   "START.ULINE$"NAME"END.ULINE$"        "START.ULINE$"NUMBER"END.ULINE$"       "START.ULINE$"RESULTS"END.ULINE$
230 LPRINT
240 FOR I! = 1 TO 4
250   LPRINT TAB( 2);START.ULINE$"<_                _>"END.ULINE$"     "START.ULINE$"(     )-               _"END.ULINE$"    "START.ULINE$"                       "END.ULINE$
260   LPRINT
270 NEXT
280 LPRINT
290 LPRINT
300 LPRINT EXPAND$; TAB( 14);START.ULINE$"P R O J E C T S"END.ULINE$
310 LPRINT
320 LPRINT EXPAND$; TAB( 5);START.ULINE$"IDENTIFICATION"END.ULINE$"          "START.ULINE$"COMPLETED"END.ULINE$
330 LPRINT
340 FOR I! = 1 TO 11
350   LPRINT TAB( 2);START.ULINE$"<_                                           _>"END.ULINE$"    "START.ULINE$"<_                     _>"END.ULINE$
360   LPRINT
370   LPRINT
380 NEXT
390 LPRINT
400 LPRINT EXPAND$; TAB( 2)"COMMENTS: "START.ULINE$"<_                       _>"
410 LOCATE 10,30:PRINT"THE FORM IS PRINTING"
420 LPRINT CHR$(12):END
5000 '========== PRINTER CONTROL SUBROUTINE ==========
5030 SMALL$ = CHR$(15)
5060  UNSMALL$ = CHR$(18)
5090   EXPAND.SMALL$ = CHR$(14) + CHR$(15)
5120    CANX.EXP.COMP$ = CHR$(18) + CHR$(20)
5150     EXPAND$ = CHR$(14)
5180      EXPAND.END$ = CHR$(20)
5210       DARK$ = CHR$(27) + CHR$(69)
5240        ITALIC$ = CHR$(27) + CHR$(52)
5270         ITALIC.EXP.CON$ = CHR$(14) + CHR$(15) + CHR$(27) + CHR$(52)
5300 ITALIC.EXP$ = CHR$(27) + CHR$(52) + CHR$(14)
5330  END.ITALIC$ = CHR$(27) + CHR$(53)
5360   START.ULINE$ = CHR$(27) + CHR$(45) + CHR$(1)
5390    END.ULINE$ = CHR$(27) + CHR$(45) + CHR$(0)
5420     PERM.EXPAN$ = CHR$(27) + CHR$(87) + CHR$(1)
5450      END.PERMEXP$ = CHR$(27) + CHR$(87) + CHR$(0)
5480 START.DSTRIKE$ = CHR$(27) + CHR$(71)
5510  END.DSTRIKE$ = CHR$(27) + CHR$(72)
5540   TINYLINE$ = CHR$(27) + CHR$(83) + CHR$(0)
5570    END.TINY$ = CHR$(27) + CHR$(84)
5600     ESC$ = CHR$(27)
5630      CLEANUP$ = CHR$(27) + CHR$(64)
5660       RETURN
6000 REM ********* PRINTER ERROR ROUTINE ***************
6030 IF ERR = 24 THEN 6120 ELSE 6060
6060 IF ERR = 25 THEN 6120 ELSE 6090
6090 ON ERROR GOTO 0
6120 KEY OFF
6150  BEEP
6180   BEEP
6210    LOCATE 25,1
6240     PRINT SPC( 79)
6270      LOCATE 25,20
6300       PRINT "CHECK PRINTER - PRESS ANY KEY TO CONTINUE"
6330 IF INKEY$ = "" THEN 6330
6360 KEY OFF
6390  RESUME
6420   END
65000 REM ==========  SAVE ROUTINE  ==========
65100 SAVE "B:TASKLIST.BAS"