10 '-----------------------------------------------------------------
12 REM		SCHEDULE.BAS	18 June 83 thru 10 Jul 83
14 REM				derived from
15 REM		SCHEDULE.BAS	15 Aug thru 10 Sep 82
16 REM
18 REM		Author: Hurle F. Priser
20 '-----------------------------------------------------------------
26 %INCLUDE SCHEDCOM


100 A=0:C=0:CP=0:J=0:K=0:M=0:SF=0
102 WIDTH 132:LPRINT CHR$(27);"Q"	'Max-80 small chars


103 LPRINT CHR$(27);"r";CHR$(10);CHR$(10);CHR$(27);"f"	'reverse line feed
104 PRINT CLS$

   :PRINT FNAT$(8,1);"":A$="****  SCHEDULE PROJECTS BY THE JOB ****"

   :GOSUB 206:PRINT:PRINT
106 A$="ENTER TODAY'S DATE":GOSUB 206
108 A$="USING THE FORMAT DD-MMM-YY":GOSUB 206
110 PRINT TAB(36);"DATE =";:GOSUB 208:DT$=A$


120 FOR I=1 TO 12:READ MO$(I),DA(I):NEXT I	'load arrays
122 DATA JAN,10,FEB,9,MAR,11,APR,10,MAY,9,JUN,11
124 DATA JUL,10,AUG,11,SEP,10,OCT,10,NOV,9,DEC,6
126 M=1
128 CHAIN "SCHEMENU"
130 END


200 '--------------------------------------------------
202 REM	STRING PRINT SUBROUTINES
204 '--------------------------------------------------
206 A=(80-LEN(A$))/2:PRINT TAB(A);A$:RETURN
208 PRINT" __________";TAB(POS(0)-11);CHR$(11);:INPUT A$:RETURN
210 END
------
206 A=(80-LEN(A$))/2:PRINT TAB(A);A$:RETURN
208 PRINT" __________";