29 REM MODIFIED SCREEN FOR KAYPRO II
30 '---------------------------------------------------------
31 REM		Common area for Schedule ==> SCHEDCOM.BAS
32 '----------------------------------------------------------
33 DEFINT A-Z
34 DIM MO$(12),DA(12)		'months, days/2
35 DIM J$(102),L(102),P(102,102),E(102),S(102,2),BL(102),BF(102),SK(102)
36 COMMON MO$(),DA(),J$(),L(),P(),E(),S(),BL(),BF(),SK()
37 COMMON A,A$,B$,C,C$,CP,DT$,I,J,K,LJ,M,MAX%,NJ,SF,SF$,WO$
38 CLS$=CHR$(26)		'clear screen and home cursor
39 DEF FNAT$(Y%,X%)=CHR$(27)+CHR$(61)+CHR$(Y%+32)+CHR$(X%+32) 'print@
40 A$="":B$=SPACE$(58)
41 C$="##":SF$="DAYS"
42 MAX%=100				' maximim # of jobs