CKLIST.BAS

    1 REM:CLASS/LABCHECKLIST
   10 COLOR 15,1:CLS
   15 WIDTH LPRINT 132
   20 DIM N$(31),P(5),BOOK(3,31),CON$(3,1,31)
   30 PRINT TAB(1+15)"CHECK LIST GENERATER"
   40 PRINT "MAKE SURE PRINTER IS ON AND DATA DISK IS IN!!"
   50 INPUT "HOW MANY PERIODS IS THIS FOR";P
   51 FOR X=1 TO P:PRINT "PER. # OF CLASS";X;:INPUT P(X):NEXT X
   52 FOR E=1 TO P
   53 FI$="schdata\PER"+RIGHT$(STR$(P(E)),1)
   54 OPEN "I",2,FI$
   55 IF EOF(2) THEN GOTO 101
   60 INPUT #2,P2,S,Q,M,K,CON$(0,0,0),CON$(1,0,0),CON$(2,0,0),CON$(3,0,0)
   62 IF Q=0 THEN INPUT#2,QU$(0):GOTO 80
   64 FOR X= 1 TO Q: INPUT#2,QU$(0):NEXT X
   80 FOR X=1 TO S
   85 IF EOF(2) THEN GOTO 101
   90 INPUT #2,N$(X),G$,B$,BOOK(0,X),CON$(0,0,X),CON$(0,1,X),BOOK(1,X),CON$(1,0,X), CON$(1,1,X),BOOK(2,X),CON$(2,0,X),CON$(2,1,X),BOOK(3,X),CON$(3,0,X),CON$(3,1,X)
  100 NEXT X
  101 CLOSE 
  104 IF S < 28 THEN GOSUB 175
  106 LPRINT CHR$(27);CHR$(106);CHR$(132);
  109 LPRINT TAB(1+33)"PERIOD  ";P(E)
  110 LPRINT TAB(22)"CLASS WORK/LAB CHECK SHEET"
  122 GOSUB 200
  130 LPRINT CHR$(27);CHR$(38);CHR$(108);CHR$(56);CHR$(68);:FOR X=1 TO S
  131 S1=(P(E)*100)+X
  135 LPRINT TAB(4) S1; TAB(9) N$(X);
  140 FOR L=30 TO 70 STEP 5:LPRINT TAB(1+L)"    ";"|";:NEXT L
  150 LPRINT "    ";"|"
  155 FOR U=5 TO 78: LPRINT TAB(1+U)"-";:NEXT U
  160 LPRINT TAB(1+U)"-"
  170 NEXT X: LPRINT " ": LPRINT "#__-______________  #__-______________  #__-______________  #__-______________": LPRINT " ": LPRINT"#__-______________  #__-______________  #__-______________  #__-______________": LPRINT " ": LPRINT "#__-______________"
  172 GOTO 180
  175 TS=66-((S*2)+6):TS=TS-5
  176 IF TS<0 THEN TS=1
  177 FOR SLP = 1 TO TS: LPRINT " ":NEXT SLP
  179 RETURN
  180 LPRINT CHR$(27);CHR$(38);CHR$(108);CHR$(48);CHR$(72)
  190 LPRINT CHR$(27);CHR$(38);CHR$(108);CHR$(54);CHR$(68);:NEXT E :SYSTEM
  200 LPRINT CHR$(27);CHR$(38);CHR$(100);CHR$(48);CHR$(68);:LPRINT "                Grade Number  ";:GOTO 220
  220 FOR L= 30 TO 70 STEP 5: LPRINT "    ";"|";:NEXT L
  230 LPRINT "    ";:LPRINT CHR$(27);CHR$(38);CHR$(100);CHR$(64);"|"
  240 LPRINT CHR$(27);CHR$(38);CHR$(100);CHR$(48);CHR$(68);:LPRINT "                      Out Of  ";
  250 FOR L= 35 TO 75 STEP 5: LPRINT "    ";"|";:NEXT L
  260 LPRINT "    ";
  270 LPRINT CHR$(27);CHR$(38);CHR$(100);CHR$(64);"|"
  280 RETURN