' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ĠàÍŠΠÍ̠̠Íˠ٠Í٠٠ÍӠҠǠÍӠÍҠŠÍӠԠÍêŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠō INDEX.":#pN:"ESC = ";:"STOP."DzN:"YOUR CHOICE (D/M/ESC)?";SNB$"INDEX"\NQQ$pNQQ$"D"ĺ::0NQQ$"M"ĺ:"RUN MASTER "B$: CTRL-DNQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-DN20100"B$: CTRL-D&NQQ$ESC$ĺ:LINE::I:!> PRINTER OFFF>LINE12:15000:"PR#0": CTRL-Dz>:"TURN OFF THE PRINTER, THEN 'RETURN'.";QP$: N DIRECTORY>N:5HN"'D' = SET UP A CLASS FILE FOR A":7:"DIFFERENT CLASS." fN:"'M' = RETURN TO GRADEBOOK":7:"MASTERX/I b/6 PRINTER ON?"6K6"DO YOU WANT HARD COPY (Y/N)?";QHC$[6QHC$"N"ıo6QHC$"Y"14030z6140226:"TURN ON THE PRINTER, THEN 'RETURN'.";QP$6PR16"PR#"(PR): CTRL-D6LINE5:15000:: PRINT LINES :I130 H+I5R+LOWHIGH1:HIGHHIGH10:QHC$"Y"11050Of+9000:8:958:11050_z+ASTER$::j. SORT/CARET$"^": SHIFT-N, ASCII 94/IP1%C%/T$CARET$&/JP1%C%0/A$(J)T$12100:/T$A$(J):KJD/JN/B$(I)T$:A$(K)CARET$LLOWED, AND":"THE FIRST CHARACTER ";:"MUST";:" BE A LETTER.)":PASTER$:\(# PAUSEP#:"TO PROCEED, PRESS 'RETURN'.";QR$:Z#* PRESENT A$(I)+:5:COURSE$;" ROSTER:":::LOW1:HIGH10*+ILOWHIGH4+I;") ";B$(I)>+IC%111HABETICAL LIST FOR ":COURSE$;:" CLASS:":4:"CLASS MEAN = ";CM;"%"::u4:"NAME";:29:"% AVG":LOWP1%:HIGH10&ILOWHIGH0A$(I)""ĺI;")":1860:I;") ";A$(I);:29:MEAN(I)DIC%1900NI XLOWHIGHP1%:HIGHHIGH10:QHC$"Y"1= ";:"ALPHABETICAL ORDER."H:5:"'R' = ";:"% AVERAGE RANK ORDER."q:5:"'B' = ";:"BOTH 'A' AND 'R'.":"YOUR CHOICE (A/R/B)?";Q5$Q5$"A"Q5$"R"Q5$"B"ı1760 ALPHABETICAL OPTIONLINE5:QHC$"Y"İ1150H:2:"ALP";Q3$:Q3$"Y"Q3$"N"1680%1660:"DO YOU WANT A SUMMARY LIST":"(NAMES, % AVGS, AND SIGMAS ONLY)":"FOR THE ENTIRE CLASS?""Y/N?";Q4$:Q4$"N"ıQ4$"Y"17201690::"YOU HAVE 3 OPTIONS ON THE SUMMARY LIST:":5:"'A' UDENT REPORT"*@"Y/N?";SR$::SR$"Y"ı{J:5:"DO YOU WANT THE STATISTICS FOR EACH":"STUDENT IN ";COURSE$;" CLASS?"T"Y/N?";Q2$:Q2$"Y"1650^Q2$"N"1680h1620r:"SHOULD I INCLUDE EACH STUDENT'S":"RAW SCORES AS WELL?"|"Y/N?I.LOWHIGHP1%:HIGHHIGH10:QHC$"Y"1470I:1040:9:958:1470iASTER$:QHC$"N"ĺ:1040:|LINE5:1150: SET FLAGS" SUBROUTINE DETERMINES WHAT DATA TO PRINT OUT, ****************** 6:5:"DO YOU WANT AN INDIVIDUAL STEV(K):MEAN(K)N2%Ih:2:"RANK-ORDER LIST FOR":COURSE$;:" CLASS:":4:"CLASS MEAN = ";CM;"%"p:4:"NAME";:29:"% AVG"::LOWP1%:HIGH10ILOWHIGHB$(I)""ĺI;")":1500I;") ";B$(I);:29:BMEAN(I)IC%1540$:"END":: CTRL-D(128062 RANK-ORDER OPTIONQ<LINE5:QHC$"Y"İ1150F:2:"JUST A MOMENT WHILE I RANK THE AVERAGES.":PIP1%C%ZTN2%dJP1%C%nMEAN(J)T1410xTMEAN(J):KJJBMEAN(I)T:B$(I)A$(K):BDEV(I)D"DIFFERENT CLASS."I:"'M' = RETURN TO GRADEBOOK":7:"MASTER INDEX."c:"ESC = ";:"STOP.":"YOUR CHOICE (D/M/ESC)?";B$"INDEX"QQ$ QQ$"D"ĺ::10QQ$"M"ĺ:"RUN MASTER "B$: CTRL-DQQ$ESC$ĺ:"LOCK MASTER "B(PR): CTRL-D!tLINE5:1150:3~ PRINT LINESFI1LINE::IL^ PRINTER OFFLINE12:1150:"PR#0": CTRL-D:"TURN OFF THE PRINTER, THEN 'RETURN'.";QP$: DIRECTORY:5"'D' = PRINT CURRENT STATISTICS FOR A":7:ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-D8N20100QQ$NQQ$"D"ĺ::0DNQQ$"M"ĺ:"RUN MASTER "B$: CTRL-D{NQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-DN20100"B$: CTRL-DNQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-DN20100"RUN MASTER "B$: CTRL-D-NQQ$10:9000:8:958:11050"6PR12 N DIRECTORY;>N:5zHN"'D' = EDIT STUDENT RECORDS FOR A":7:"DIFFERENT CLASS."fN:"'M' = RETURN TO GRADEBOOK":7:"MASTER INDEX."pN:"ESC = ";:"STOP."zN:"YOUR CHOICE (D/M/ESC)?";NB$"INDEX"NTRL-D"N20100"B$: CTRL-DX"NQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-Dc"N20100 00"NQQ$"D"ĺ::0"NQQ$"M"ĺ:"RUN MASTER "B$: CTRL-D"NQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-D"N20100SS.";!fN:"'M' = RETURN TO GRADEBOOK":7:"MASTER INDEX."U!pN:"ESC = ";:"STOP."v!zN:"YOUR CHOICE (D/M/ESC)?";!NB$"INDEX"!NQQ$!NQQ$"D"ĺ::0!NQQ$"M"ĺ:"RUN MASTER "B$: CTRL-D"NQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CD 6LINE5:15000:' : PRINT LINES: :I1LINE::I@ :R > PRINTER OFFw >LINE12:15000:"PR#0": CTRL-D >:"TURN OFF THE PRINTER, THEN 'RETURN'.";QP$: N DIRECTORY >N:5!HN"'D' = ENTER A SET OF SCORES FOR A":7:"DIFFERENT CLA:KJ 63J.@3B%(I)T%:B$(I)A$(K):H%(K)N2%5J3I;T3M6 PRINTER ON?S6|6"DO YOU WANT HARD COPY (Y/N)?";QHC$6QHC$"N"ı6QHC$"Y"140306140226:"TURN ON THE PRINTER, THEN 'RETURN'.";QP$6PR1 6"PR#"(PR): CTRL-.'LOWHIGHP1%:HIGHHIGH10:QHC$"Y"10090H'9000:6:958:10090':"CLASS MEAN = ";CM::ASTER$:9000:QHC$"Y"İ16000'2 RANK SCORES2IP1%C%:H%(I)G%(I):I3IP1%C%3T%N2%3JP1%C%"3H%(J)T%13110,3T%H%(J) ASSIGNMENT #";N%P1%8V'"(";PP%;" POINTS POSSIBLE)":J`'LOW1:HIGH10Zj'ILOWHIGHgt'I;") ";~'CUE$"A"A$(I)""ĺ:10150'CUE$"R"B$(I)""ĺ:10150'CUE$"A"ĺA$(I);:30:G%(I)'CUE$"R"ĺB$(I);:30:B%(I)'IC%10210'IRECT ENTRY":CHECK$:"TRY AGAIN!":SLASH$:NFLAG1::?5040K(# PAUSEvP#:"TO PROCEED, PRESS 'RETURN'.";QR$:|Z#' PRESENT NAMES/SCORES.':2:COURSE$;" CLASS:"8'CUE$"A"ĺ"ALPHABETICAL ";B'CUE$"R"ĺ"RANK-ORDER ";L'"LIST FORILE,R":CL$"CLOSE": CTRL-D 4X( OP$3 RF$;0W COURSE$,NMB%,C%,CE%,N%,CAVG,SD` CL$f r CHECK:::"I HAVE RECORDED THAT AS":CHECK$"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$::5QC$"N"ĺ:"I HAVE DELETED THE INCORILE": CTRL-D*DL$g:2:"NO CLASS FILE NAMED":COURSE$:"WAS EVER SET UP ON THIS DISK!";B3EEP$x :::20040 DISK COMMANDS/HEADER B$"L120" OP$"OPEN "COURSE$"FILE,"B$ RF$"READ "COURSE$"FILE,R":WF$"WRITE "COURSE$"F$(94)#8TWO(X)((X100))100VUTIL$(42):IP1%P40%:ASTER$ASTER$UTIL$:IUTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:I ERROR ROUTINE:ERR(222):ERR255ĀERR52080: EOF216,0:  DL$"DELETE "COURSE$"FWF$;P2%NMB%P1%+/JP1%N%:LAST%(J):J44CL$?920000O VARIABLESP0%0:P1%1:P2%2:P30%30:P40%40:N1%1:N2%2:G$"": CTRL-G.B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4%))):SDP0%775IP1%C%0A$(I)""770SDEV(I)TWO((MEAN(I)CAVG)SD)ZIeWF$;0 COURSE$:NMB%:C%:CE%:N%:CAVG:SDIP1%C%WF$;IA$(I)""805 A$(I):I:INMB%:PTS%(I):SUM%(I):MEAN(I):DEV(I)%I*"LOCK MASTER "B$:"END":: CTRL-D1N20100N00x"RUN MASTER "B$: CTRL-DNQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-DN20100 ";AF$;"ASGN"&"D$"WRITE "AF$"ASGN"."N%:"J1N%F"ZZ$(J)M"Jf"D$"CLOSE "AF$"ASGN"l""AF$"ASGN""N%"J1N%"ZZ$(J)"J"D$"CLOSE "AF$"ASGN""!*"ASSIGNMENT #"J":"ZZ$(J)%! JM! "UPDATE ASSIGNMENT LIST Y/N : ";K$^! K$"N"3070! "ASSIGNMENT #"J":";:ZZ$(J)! N%J! JJ1! 3010! "SAVE UPDATED LIST Y/N : ";K$! K$"N"ī3095! 4000! TA7! "D$(4):D$;"OPEN830 b:1040:9:958:1830> lASTER$:QHC$"N"ĺ:1040:Q vLINE5:1150:o "ASSIGNMENT FILE NAME :"x AF$ D$(4) D$"OPEN "AF$"ASGN" D$"READ "AF$"ASGN" N% J1N% ZZ$(J) J D$"CLOSE "AF$"ASGN"! J1N%NE5:15000:GHHIGH10:QHC$"Y"230906Z:9000:9:958:23090VZASTER$:QHC$"N"ĺ:9000:jZLINE5:15000:Z:9000:9:958:23090ZASTER$:QHC$"N"ĺ:9000:ZLINE5:15000::M9:958:23090ZASTER$:QHC$"N"ĺ:9000: ZLISS:":4:"CLASS MEAN = ";CM;"%":4:"STANDARD DEVIATION = ";SD::|Z4:"NAME";:29:"% AVG";:37:"SD"::LOWP1%:HIGH102ZILOWHIGHN:5HN"'D' = CHANGE THE ROSTER FOR A":7:"DIFFERENT CLASS."fN:"'M' = RETURN TO GRADEBOOK":7:"MASTERGE/DELETE SUBROUTINEHZF:5:"I WILL SHOW YOU THE ":COURSE$;" ROSTER.dF:"PLEASE NOTE THE ";:"NUMBER";:" OF THE STUDENT"nF"WHOSE NAME IS TO BE ";NSERT$:9000:11000F:"ENTER THE ";:"NUMBER";:" OF THE STUDENT":"WHOSE NAME IS TO BE ";NSEH+I4R+LOWHIGH1:HIGHHIGH10:QHC$"Y"11050Nf+9000:8:958:11050W6PR1whB CHANGE STUDENT RECORD # IrBOP$|BRF$;IBNAME$,SN%,RN%,PTS%,SUM%,PER,DEVBWF$;IBA$(I):SN%:RN%:PTS%:SUM%:PER:DEVBCL$BPF CHAND, AND":"THE FIRST CHARACTER ";:"MUST";:" BE A LETTER.)":KASTER$:W(# PAUSEP#:"TO PROCEED, PRESS 'RETURN'.";QR$:Z#* PRESENT A$(I)+:5:COURSE$;" ROSTER:":::LOW1:HIGH10*+ILOWHIGH4+I;") ";A$(I):IC%ĺ:ASTER$::Π΍ĠӠ̍詍Ҡ͍ΠٍҠ͍٠ĠٍΠٍ        2:"JUST A MOMENT WHILE I RANK THE AVERAGES.":>:RIP1%C%HDRTN2%VNRJP1%C%kXRMEAN(J)T21100}bRTMEAN(J):KJlRJvRBMEAN(I)T:B$(I)A$(K):BDEV(I)DEV(K):MEAN(K)N2%RIR:2:"RANK-ORDER LIST FOR":COURSE$;:" CLASS:":4:"CLASӮǠӠǠԠˍӠԍӠŠӍӠڠԍӠڠΠĠTER ON?>6:"DO YOU WANT HARD COPY (Y/N)?";QHC$:QHC$"N"ıR6QHC$"Y"14030]6140226:"TURN ON THE PRINTER, THEN 'RETURN'.";QP$6PR16"PR#"(PR): CTRL-D6LINE5:15000:: PRINT LINES:I1LINE::I:> PRINTERECORDED THAT AS":CHECK$O"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$::QC$"N"ĺ:"I HAVE DELETED THE INCORRECT ENTRY":CHECK$:"TRY AGAIN!":SLASH$:NFLAG1::5040(# PAUSEP#:"TO PROCEED, PRESS 'RETURN'.";QR$:Z#6 PRINMANDS/HEADER B$"L120"> OP$"OPEN "COURSE$"FILE,"B$ RF$"READ "COURSE$"FILE,R":WF$"WRITE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4X OP$ RF$;0 COURSE$,NMB%,C%,CE%,N%,CAVG,SD CL$  CHECK:::"I HAVE R ERROR ROUTINE8:255:ERR(222):ERR255ĀNERR52080: EOF[216,0: DL$"DELETE "COURSE$"FILE": CTRL-D*DL$:2:"NO CLASS FILE NAMED":COURSE$:"WAS EVER SET UP ON THIS DISK!";B3EEP$ :::20040  DISK COM0%40:N1%1:N2%2:G$"": CTRL-G.B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$(94)UTIL$(42):IP1%P40%:ASTER$ASTER$UTIL$:IUTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:IQ5$"A"Q5$"B"İ230005&Q5$"R"Q5$"B"İ21000J0QHC$"Y"İ16000U:20000pXMEAN(I)90LA$"A":]MEAN(I)80LA$"B":bMEAN(I)70LA$"C":gMEAN(I)60LA$"D":lLA$"F": VARIABLES#P0%0:P1%1:P2%2:P30%30:P4255::9000+XX$"Y"P1%TP1%:C%TC%>SR$"Y"ī540cQHC$"Y"İ16000:P1%TP1%:C%TC%"WHAT STUDENT # DO YOU WANT?"::"ENTER 99 TO QUIT"::SN%:SN%C%SN%99534SN%9920000TP1%P1%:TC%C%:P1%SN%:C%SN%XX$"Y":351 : ";(27)(14);LA$&PR$"N"ī5206:::::"__________________________ _________________________":" TEACHER SIGNATURE PARENT SIGNATURE":" IF YOU HAVE ANY QUESTIONS CALL 979-4700":::I$(I):A$(I)""520#(27)(19)r5:PTS%(I);" OUT OF ";SUM%(I);" POSSIBLE = ";MEAN(I);" %":5:Q3$"N"513x"RAW SCORES:"J1N%5:M%(I,J);" OUTOF ";LAST%(J);:20:ZZ$(J)J600"YOUR CURRENT LETTER GRADE ISREPORT? Y/N?";PR$:, h14000:Q2$"N"540@ rSR$"Y"ė:410X :2:QHC$"N"ĩ150 "INDIVIDUAL STUDENT STATISTICS FOR":COURSE$;:" CLASS:": IP1%C% PR$"Y"Ė15:(27)(14);COURSE$;" PROGRESS REPORT": (27)(17)I;") ";AӍÍ׍  ĠǠŠԠҠЍϠǠҠŠ٠̠ɠ ";AF$;"ASGN"&"D$"WRITE "AF$"ASGN"."N%:"J1N%F"ZZ$(J)M"Jf"D$"CLOSE "AF$"ASGN"l""!*"ASSIGNMENT #"J":"ZZ$(J)%! JM! "UPDATE ASSIGNMENT LIST Y/N : ";K$^! K$"N"3070! "ASSIGNMENT #"J":";:ZZ$(J)! N%J! JJ1! 3010! "SAVE UPDATED LIST Y/N : ";K$! K$"N"ī3095! 4000! TA7! "D$(4):D$;"OPEN830 b:1040:9:958:1830> lASTER$:QHC$"N"ĺ:1040:Q vLINE5:1150:o "ASSIGNMENT FILE NAME :"x AF$ D$(4) D$"OPEN "AF$"ASGN" D$"READ "AF$"ASGN" N% J1N% ZZ$(J) J D$"CLOSE "AF$"ASGN"! J1N%HABETICAL LIST FOR ":COURSE$;:" CLASS:":4:"CLASS MEAN = ";CM;"%"::u4:"NAME";:29:"% AVG":LOWP1%:HIGH10&ILOWHIGH0A$(I)""ĺI;")":1860:I;") ";A$(I);:29:MEAN(I)DIC%1900NI XLOWHIGHP1%:HIGHHIGH10:QHC$"Y"1= ";:"ALPHABETICAL ORDER."H:5:"'R' = ";:"% AVERAGE RANK ORDER."q:5:"'B' = ";:"BOTH 'A' AND 'R'.":"YOUR CHOICE (A/R/B)?";Q5$Q5$"A"Q5$"R"Q5$"B"ı1760 ALPHABETICAL OPTIONLINE5:QHC$"Y"İ1150H:2:"ALP";Q3$:Q3$"Y"Q3$"N"1680%1660:"DO YOU WANT A SUMMARY LIST":"(NAMES, % AVGS, AND SIGMAS ONLY)":"FOR THE ENTIRE CLASS?""Y/N?";Q4$:Q4$"N"ıQ4$"Y"17201690::"YOU HAVE 3 OPTIONS ON THE SUMMARY LIST:":5:"'A' UDENT REPORT"*@"Y/N?";SR$::SR$"Y"ı{J:5:"DO YOU WANT THE STATISTICS FOR EACH":"STUDENT IN ";COURSE$;" CLASS?"T"Y/N?";Q2$:Q2$"Y"1650^Q2$"N"1680h1620r:"SHOULD I INCLUDE EACH STUDENT'S":"RAW SCORES AS WELL?"|"Y/N?I.LOWHIGHP1%:HIGHHIGH10:QHC$"Y"1470I:1040:9:958:1470iASTER$:QHC$"N"ĺ:1040:|LINE5:1150: SET FLAGS" SUBROUTINE DETERMINES WHAT DATA TO PRINT OUT, ****************** 6:5:"DO YOU WANT AN INDIVIDUAL STEV(K):MEAN(K)N2%Ih:2:"RANK-ORDER LIST FOR":COURSE$;:" CLASS:":4:"CLASS MEAN = ";CM;"%"p:4:"NAME";:29:"% AVG"::LOWP1%:HIGH10ILOWHIGHB$(I)""ĺI;")":1500I;") ";B$(I);:29:BMEAN(I)IC%1540$:"END":: CTRL-D(128062 RANK-ORDER OPTIONQ<LINE5:QHC$"Y"İ1150F:2:"JUST A MOMENT WHILE I RANK THE AVERAGES.":PIP1%C%ZTN2%dJP1%C%nMEAN(J)T1410xTMEAN(J):KJJBMEAN(I)T:B$(I)A$(K):BDEV(I)D"DIFFERENT CLASS."I:"'M' = RETURN TO GRADEBOOK":7:"MASTER INDEX."c:"ESC = ";:"STOP.":"YOUR CHOICE (D/M/ESC)?";B$"INDEX"QQ$ QQ$"D"ĺ::10QQ$"M"ĺ:"RUN MASTER "B$: CTRL-DQQ$ESC$ĺ:"LOCK MASTER "B(PR): CTRL-D!tLINE5:1150:3~ PRINT LINESFI1LINE::IL^ PRINTER OFFLINE12:1150:"PR#0": CTRL-D:"TURN OFF THE PRINTER, THEN 'RETURN'.";QP$: DIRECTORY:5"'D' = PRINT CURRENT STATISTICS FOR A":7:NFLAG1::1010! PAUSEL:"TO PROCEED, PRESS 'RETURN'.";QR$:R$d. PRINTER ON?8:"DO YOU WANT HARD COPY (Y/N)?";QHC$:QHC$"N"ıBQHC$"Y"1110L1080V:"TURN ON THE PRINTER, THEN 'RETURN'.";QP$`PR1j"PR#"RF$;0-COURSE$,NMB%,C%,CE%,N%,CAVG,SD6CL$<H CHECKu:::"I HAVE RECORDED THAT AS":CHECK$"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$:: QC$"N"ĺ:"I HAVE DELETED THE INCORRECT ENTRY":CHECK$:"TRY AGAIN!":SLASH$:S FILE NAMED":COURSE$:"WAS EVER SET UP ON THIS DISK!";B3EEP$Nz:::1230i DISK COMMANDS/HEADERwB$"L120"OP$"OPEN "COURSE$"FILE,"B$RF$"READ "COURSE$"FILE,R":WF$"WRITE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4XOP$ P40%:ASTER$ASTER$UTIL$:IN UTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:IT*h4 ERROR ROUTINE>:255:ERR(222):ERR255ĀHERR5880: EO F R216,0:\DL$"DELETE "COURSE$"FILE": CTRL-DfDL$>p:2:"NO CLASN(I)60LA$"D": LA$"F":0 VARIABLEStP0%0:P1%1:P2%2:P30%30:P40%40:N1%1:N2%2:G$"": CTRL-G B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$(94)UTIL$(42):IP1%%SN%99630SN%991210ATP1%P1%:TC%C%:P1%SN%:C%SN%RXX$"Y":303mQ5$"A"Q5$"B"İ1790Q5$"R"Q5$"B"İ1330QHC$"Y"İ11801210MEAN(I)90LA$"A":MEAN(I)80LA$"B":MEAN(I)70LA$"C":MEA SIGNATURE":" IF YOU HAVE ANY QUESTIONS CALL THE SCHOOL"TD:::IeN255::1040XXX$"Y"P1%TP1%:C%TC%bSR$"Y"ī670lQHC$"Y"İ1180:P1%TP1%:C%TC% v"WHAT STUDENT # DO YOU WANT?"::"ENTER 99 TO QUIT"::SN%:SN%CUTOF ";LAST%(J);:20:ZZ$(J)#J,7102i"YOUR CURRENT LETTER GRADE IS : ";(27)(14);LA${&PR$"N"ī5800:::::G:"__________________________ _________________________":" TEACHER SIGNATURE PARENTPR$"Y"Ė15:(27)(14);COURSE$;" PROGRESS REPORT":G(27)(17)gI;") ";A$(I):A$(I)""580x(27)(19)5:PTS%(I);" OUT OF ";SUM%(I);" POSSIBLE = ";MEAN(I);" %":5:Q3$"N"520"RAW SCORES:"J1N%5:M%(I,J);" O THE FILE NAME ";AF$:4000j h"DO YOU WANT TO PRINT A MIDTERM PROGRESS REPORT? Y/N?";PR$: r1070:Q2$"N"670 |SR$"Y"ė:410 :2:QHC$"N"ĩ150 "INDIVIDUAL STUDENT STATISTICS FOR":COURSE$;:" CLASS:": IP1%C%6ENT? Y/N ?";ZR$::ZR$"N"ė:I1N%:ZZ$(I)" "::360E @J1N%h J"ASSIGNMENT# ";J;":";:ZZ$(J)o TJ ^::"ARE ALL ASSIGNMENT DESCRIPTIONS CORRECT? Y/N?";AD$::AD$"N"ī310 c"DO YOU WANT TO CREATE A FILE Y/N: ";K$:K$"Y"ĺ:"WHAT ISJP1%N% M%(I,J) J$ I: RF$;P2%NMB%P1%U JP1%N%:LAST%(J):Jp "CL$:SR$"Y"ĺ::620 ,:PR$"N":Q2$"N"Q3$"N"ī370 /"IS THERE AN ASSIGN FILE Y/N: ";K$:K$"Y"İ2000 1TA73609 6"DO YOU WANT TO LABEL EACH ASSIGNM"CURRENT STATISTICS?":"TYPE 'QUIT' TO EXIT"z ZNFLAG0::"CLASS NAME?";COURSE$:COURSE$"QUIT"ĺ(4)"RUN MASTER INDEX" dCHECK$COURSE$:990:NFLAG190- n900:CMCAVG:1560::5:"THIS MAY TAKE A WHILE --":A$(C%),PTS%(C%),SUM%(C%),MEAN(C%),DEV(C%m D$(4)L PROGRAM NAME 'END OF TERM' (PART 8 OF 10, GRADEBOOK 1.0)V820c(ZZ$(25)2"NOMON I,O,C": CTRL-D<760F:2:12:"* END OF TERM *"K"STORES ASSIGNMENT FILE, PRINT IND REPORT"- P::"FOR WHAT CLASS DO YOU WISH":                #ZZ$(J)#J,#D$"CLOSE "AF$"ASGN"2#e3070&" "ASSIGNMENT #"J":";:ZZ$(J)/" N%J9" JJ1C" 3010f" "SAVE UPDATED LIST Y/N : ";K$" (K$"N")(K$"Y")ī3070" K$"N"ī3095" 4000" TA7" "D$(4):D$;"OPEN ";AF$;"ASGN""D$"WRITE "AF$"ASGN""N%#J1N%FLAG1ī2000$!D$"OPEN "AF$"ASGN"IC%1540EIrLOWHIGHP1%:HIGHHIGH10:QHC$"Y"1470:1040:9:958:1470ASTER$:QHC$"N"ĺ:1040:LINE5:1150: SET FLAGS" SUBROUTINE DETERMINES WHAT DATA TO PRINT T1410xTMEAN(J):KJJUBMEAN(I)T:B$(I)A$(K):BDEV(I)DEV(K):MEAN(K)N2%\I:2:"RANK-ORDER LIST FOR":COURSE$;:" CLASS:":4:"CLASS MEAN = ";CM;"%":4:"NAME";:29:"% AVG"::LOWP1%:HIGH10ILOWHIGHB$(I)"M"ĺ:"RUN MASTER "B$: CTRL-DXQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-Db(1280z2 RANK-ORDER OPTION<LINE5:QHC$"Y"İ1150F:2:"JUST A MOMENT WHILE I RANK THE AVERAGES.":PIP1%C%ZTN2%dJP1%C%nMEAN(J)Ѳ DIRECTORY:5W"'D' = PRINT CURRENT STATISTICS FOR A":7:"DIFFERENT CLASS.":"'M' = RETURN TO GRADEBOOK":7:"MASTER INDEX.":"ESC = ";:"STOP.":"YOUR CHOICE (D/M/ESC)?";B$"INDEX"QQ$ QQ$"D"ĺ::5!QQ$":"I HAVE DELETED THE INCORRECT ENTRY":CHECK$:"TRY AGAIN!":SLASH$:NFLAG1::Z1010f PAUSE:"TO PROCEED, PRESS 'RETURN'.";QR$:$. PRINTER ON?8:"DO YOU WANT HARD COPY (Y/N)?";QHC$:QHC$"N"ıBQHC$"Y"1110L1080.TE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4X7OP$BRF$;0fCOURSE$,NMB%,C%,CE%,N%,CAVG,SDoCL$u CHECKNFLAG0:::"I HAVE RECORDED THAT AS":CHECK$"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$::PQC$"N"ĺERR(222):ERR255Ā8HERR5880: EO F ER216,0:wp:2:"YOU MADE A MISTAKE , TRY AGAIN";B3EEP$z:::1230 DISK COMMANDS/HEADERB$"L120"OP$"OPEN "COURSE$"FILE,"B$.RF$"READ "COURSE$"FILE,R":WF$"WRIt B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$(94)UTIL$(42):IP1%P40%:ASTER$ASTER$UTIL$:I UTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:I*4 ERROR ROUTINE>:255:5$"R"Q5$"B"İ1330(QHC$"Y"İ118021210MMEAN(I)90LA$"A":hMEAN(I)80LA$"B":MEAN(I)70LA$"C":MEAN(I)60LA$"D":LA$"F": VARIABLESP0%0:P1%1:P2%2:P30%30:P40%40:N1%1:N2%2:G$"": CTRL-G1%TP1%:C%TC%!bSR$"Y"ī670ElQHC$"Y"İ1180:P1%TP1%:C%TC%v"WHAT STUDENT # DO YOU WANT?"::"ENTER 99 TO QUIT"::SN%:SN%C%SN%99630SN%991210TP1%P1%:TC%C%:P1%SN%:C%SN%XX$"Y":303Q5$"A"Q5$"B"İ1790Q"N"ī5800::::::"__________________________ _________________________":" TEACHER SIGNATURE PARENT SIGNATURE":" IF YOU HAVE ANY QUESTIONS CALL 979-4700"D:::IN255::1040XXX$"Y"P(19)U5:PTS%(I);" OUT OF ";SUM%(I);" POSSIBLE = ";MEAN(I);" %":5:Q3$"N"520[n"RAW SCORES:"zJ1N%5:M%(I,J);" OUTOF ";LAST%(J);:20:ZZ$(J)J710"YOUR CURRENT LETTER GRADE IS : ";(27)(14);LA$ &PR$70:Q2$"N"670#|SR$"Y"ė:410;:2:QHC$"N"ĩ150{"INDIVIDUAL STUDENT STATISTICS FOR":COURSE$;:" CLASS:":IP1%C%PR$"Y"Ė15:(27)(14);COURSE$;" PROGRESS REPORT":(27)(17)I;") ";A$(I):A$(I)""580(27)::"ARE ALL ASSIGNMENT DESCRIPTIONS CORRECT? Y/N?";AD$::AD$"N"ī310j c(AD$"Y")(AD$"N")ī350 d(K$"N")(K$"Y")ī355 h"DO YOU WANT TO PRINT A MIDTERM PROGRESS REPORT? Y/N?";PR$: m(PR$"Y")(PR$"N")ī360r10Y/N: ";K$:K$"Y"İ20005 0(K$"N")(K$"Y")ī303C 1TA7360 6"DO YOU WANT TO LABEL EACH ASSIGNMENT? Y/N ?";ZR$::ZR$"N"ė:I1N%:ZZ$(I)" "::360 ;(ZR$"Y")(ZR$"N")ī310 @J1N% J"ASSIGNMENT# ";J;":";:ZZ$(J) TJJ ^ M%(C%,N%),LAST%(N%)& IP1%C%8 A$(I)""260H RF$;INMB%V JP1%N%c M%(I,J)j Jq I RF$;P2%NMB%P1% JP1%N%:LAST%(J):J "CL$:SR$"Y"ĺ::620 ,:PR$"N":Q2$"N"Q3$"N"ī370 /"IS THERE AN ASSIGN FILE 60::5:"THIS MAY TAKE A WHILE --":A$(C%),PTS%(C%),SUM%(C%),MEAN(C%),DEV(C%):Q5$"R"Q5$"B"ĆB$(C%),BMEAN(C%),BDEV(C%) xQ2$"N"Q4$"N"820 OP$ IP1%C% RF$;I A$(I),SN%,RN%,PTS%(I),SUM%(I),MEAN(I),DEV(I) I Q3$"N"290"**PRINTS AND STORES ASSIGN FILES**"z P::"FOR WHAT CLASS DO YOU WISH":"CURRENT STATISTICS?":"TYPE 'QUIT' TO EXIT" ZNFLAG0::"CLASS NAME?";COURSE$:COURSE$"QUIT"ĺ(4)"RUN MASTER INDEX" dCHECK$COURSE$:990:NFLAG190z n900:CMCAVG:153 D$(4)L PROGRAM NAME 'END OF TERM' (PART 8 OF 10, GRADEBOOK 1.0) COPYRIGHT 1979 BY GLEN M BEVER FOR POLYTECH, 428 N. BROADWAY, PERU, IN 46970820(ZZ$(25)2"NOMON I,O,C": CTRL-D<760F:2:12:"* END OF TERM *"& KȠōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,        ŠΠÍҠΠÍŠ̠ÍԠ٠ÍÍҠÍŠΠÍƠٍŠ׍ƠÍƠٍˠč٠ǍǠōz #?  ϲŠ ϳŠ Π ²Π³ΠŠ ͠ʹŠ ͵ŠͶŠ  Ӡ!ق   "נĠƠ͠Π ǵΠŠ$ Š$Š Π ӠҠŠĠƠ͠Š ˠԠĠ٠ŠϠ͠Ҡ !ҠؠˠӠŠΠŠ٠ŠԠҠӠǠӠǠԠˍӠԍӠŠӍӠڠԍӠڠΠĠǠڍȠڍР  ڍǠ ȠԍǠӠ  ؍ȠڍӠˠȠ ԠȠȠԍȠӍ͠ĠǠŠÍΠԠÍŠΠÍϠ٠ÍΠÍ٠ԠÍΠĠÍ٠̠ÍӠӠÍŠΠԠÍҠȠÍڠŠĠŠÍΠΠà ŠÍ٠ȠàϠŠÍΠӠÍ̠ÍӠ٠ÍΠӠÍԱ TY OF LAW"; PI12000:I% U1:@ Z"RUN MASTER INDEX":Z 8:13:"GRADEBOOK"0PI12000:I9U1:XZ(4);"RUN MASTER INDEX":LASTER INDEX":0NG"(14:"P.O. BOX 789-M"27:"MORRISTOWN, NEW JERSEY 07960"<21:9:"THIS SOFTWARE MAY NOT BE" F23:7:"COPIED UNDER PENAL ōˠٍΠҍ          TIATION,SCORE ENTRY,RECORD CHECK,SINGLE STUDENT EDITOR,CLASS ROSTER CHANGE,END OF TERM,FILEWIPE,SYSTEM TAILOR RY,RCHECK,SINGLE STUDENT EDITOR,CLASS ROSTER CHANGE,END OF TERM,FILEWIPE,SYSTEM TAILORCK,SINGLE STUDENT EDITOR,CLASS ROSTER CHANGE,END OF TERM,FILEWIPE,SYSTEM TAILORWIPE,SYSTEM TAILORAS": CTRL-DnX MASTER INDEX,DISK CONTENTS,CLASSFILE INI(PNU%):L$%L$"UNLOCK "A$(I):L$>L$"SAVE "A$(I):L$WL$"LOCK "A$(I):L$^Ix"DELETE ALTERATIONS""CLOSE ALTERATIONS": CTRL-D"EXEC ALTERATIONS": CTRL-DWX MASTER INDEX,DISK CONTENTS,CLASSFILE INITIATION,SCORE ENTQUOTE$"INDEX"QUOTE$KhDNU%P2%L$"20099 B$="QUOTE$"INDEX,D1"QUOTE$SmL$rIP2%IP5%IP6%IP7%IP9%390: NO PRINTER|POLD%PNU%L$"14035 PR="(PNU%):L$ IPTEN%L$"20 AOLD$="QUOTE$ANU$QUOTE$":DOLD%="(DNU%)":POLD%="%32078DNU%P1%L$"55 B$="QUOTE$"CATALOG"QUOTE$l:DNU%P2%L$"55 B$="QUOTE$"CATALOG,D2"QUOTE$u<340@DNU%P1%L$"3020 B$="QUOTE$"L120"QUOTE$JDNU%P2%L$"3020 B$="QUOTE$"L120,D2"QUOTE$TL$^DNU%P1%L$"20099 B$="ȺOP$: CTRL-D1 "DELETE ALTERATIONS": CTRL-D: OP$] "WRITE ALTERATIONS": CTRL-Dn IP1%PTEN% L$"LOAD "A$(I):L$ ANU$AOLD$300 ANU$"C"ĺDC$ "ANU$"D"ĺCD$ ,IP1%395 .IPTEN%390 1DOLD%DNU%3806IP2ITING PROCESS CAN TAKE":"AS MUCH AS 3 MINUTES ---" B3EEP$:"DO NOT REMOVE THE DISK FROM THE DRIVE":"UNTIL IT COMES TO A COMPLETE STOP!";B3EEP$::"(YOU MAY THEN 'RUN MASTER INDEX'.)" A$(PTEN%):IP1%PTEN%:A$(I):I OP$"OPEN ALTERATIONS":TEM."::"IF ANY OF THE PARAMETERS JUST ENTERED":"CHANGE, 'RUN SYSTEM TAILOR' AGAIN" "AND ENTER THE NEW INFORMATION."::ASTER$::AOLD$ANU$DOLD%DNU%POLD%PNU%:B3EEP$;"YOUR SYSTEM ALREADY MATCHES!";B3EEP$::(4);"RUN MASTER INDEX"3 "THE EDASTER$:120 n100c x::"2) WHICH SLOT IN YOUR APPLE IS THE":4:"PRINTER CONTROL CARD IN?": "WHICH (1/2/3/4/5/6/7)?";PNU%:PNU%1PNU%7ĺASTER$:150 130U :5:"I WILL NOW TAILOR THE 'GRADEBOOK'":"PACKAGE TO FIT YOUR PARTICULAR SYS9:PTEN%10:PFRTY%40J *UTIL$(42):IP1%PFRTY%:ASTER$ASTER$UTIL$:I 2:11:"*** GRADEBOOK ***"::12:"'SYSTEM TAILOR'" Z::"1) WILL YOU BE USING 'GRADEBOOK' AS A":4:"1-DISK OR A 2-DISK SYSTEM?": d"WHICH (1/2)?";DNU%:DNU%1DNU%2ĺX C PROGRAM NAME 'SYSTEM TAILOR' (PART 10 OF 10, GRADEBOOK 1.0)`AOLD$"":DOLD%1:POLD%1}"NOMON I,O,C": CTRL-D(RET$(13):QUOTE$(34):DC$"CALL 54514":CD$"CALL 3314":G$"":B3EEP$G$G$G$: CTRL-G )P1%1:P2%2:P5%5:P6%6:P7%7:P9%     ύȠ̍          CTRL-D= NQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-DH N20100"B$: CTRL-D NQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-D N20100.82N20100"* P#:"TO PROCEED, PRESS 'RETURN'.";QR$:0 Z#9 6PR1I N DIRECTORYR >N:5 fN:"'M' = RETURN TO GRADEBOOK":7:"MASTER INDEX." pN:"ESC = ";:"STOP." zN:"YOUR CHOICE (M/ESC)?"; NB$"INDEX" NQQ$ NQQ$"M"ĺ:"RUN MASTER "B$: IC PROGRAM NAME 'DISK CONTENTS' (PART 2 OF 10, GRADEBOOK 1.0)N2000k"NOMON I,O,C": CTRL-D(ESC$(27):RET$(13)7B$"CATALOG"<:""B$: CTRL-DP9000:20000 ERROR ROUTINE:(222)255Ā216,0:(# PAUSE  T ENTRY":CHECK$:"TRY AGAIN!":SLASH$:NFLAG1::<5040Ip FORMATASTER$::"ENTER THE NAME ";:"EXACTLY";:" AS IT SHOULD""APPEAR. BE CAREFUL: EVEN BLANK SPACES":"ARE SIGNIFICANT!"B:"(NO ";:"COMMAS";:" OR ";:"COLONS";:" ARE ASTRING$"*** NO MORE ENTRIES! ***":c|B$;:COUNTERCOUNTERP1%:STRING$(STRING$,COUNTER):4070o CHECK:::"I HAVE RECORDED THAT AS":CHECK$"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$::2QC$"N"ĺ:"I HAVE DELETED THE INCORRECB$B$CC$Ā(B$CM$B$CN$4070CB$RET$COUNTERP0%ıUB$ESC$4200yCOUNTERP0%B$L1$B$L2$4070"B$LA$COUNTERP1%4220,B$L3$B$L4$40706B$;:COUNTERCOUNTERP1%:STRING$STRING$B$:(STRING$)P30%ı^4070%h216,0:" DISK COMMANDS0 B$"L120"T OP$"OPEN "COURSE$"FILE,"B$ RF$"READ "COURSE$"FILE,R":WF$"WRITE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4X  'GET' STRING$STRING$"":COUNTERP0%:LINE$;:36,0: CURSORLASH$SLASH$UTIL$:IFUTIL$(95):IP1%P30%:LINE$LINE$UTIL$:IL` ERROR ROUTINEt:(222)255Ā(222)9ĺ:B3EEP$;"THIS DISK IS FULL. TO SAVE THE":"CURRENT CLASS ROSTER, INSERT ANOTHER":"DISK AND TYPE 'GOTO 530', THEN RETURN.":40:N1%1:IP0%:JP0%:KP0%:P30%30:G$"": CTRL-G (BELL).B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$(94)UTIL$(42):IP1%P40%:ASTER$ASTER$UTIL$:IUTIL$(47):IP1%P40%:SB$(I):I:INMB%:P0%:P0%:P0%:P0%/IHINMB%P1%P2%NMB%SWF$;I\N1%cIyWF$;P2%NMB%P1%P0%CL$Q4$"Y"20000::Q4$"N"ĺ"JUST PRACTICING, HUH?":9000:20000 VARIABLES;P0%0:P1%1:P2%2:P40%E"IS READY TO BE SENT TO THE DISK."::"DO YOU WISH TO STORE IT?"U&"Y/N?";Q4$f0Q4$"Y"590w:Q4$"N"770D550N:"BACK IN A MINUTE --"l3000:OP$vWF$;P0%COURSE$:NMB%:C%:C%:P0%:P0%:P0%IP1%NMB%WF$;I(290C%C%1W::COURSE$;" CLASS":"NOW HAS A TOTAL ENROLLMENT OF ";:C%;:"."ASTER$:::"JUST A MOMENT WHILE I PREPARE THE":COURSE$;" ROSTER --":12000:14000:11000:QHC$"Y"İ16000QHC$"N"İ9000:5:"THE ";COURSE$;" ROSTER"RING$:5000:NFLAG1300) TB$ESC$440[ ^A$(C%)CHECK$::C%;") ";A$(C%)::FUBB1450n |C%NMB%1420 "LAST STUDENT COMING UP!";B3EEP$ FUBB1:"(MAXIMUM ENROLLMENT SET AT ";:NMB%;:".)":: :"IF NO MORE STUDENTS, PRESS 'ESC'.""IN ANY PARTICULAR ORDER -- I WILL":"ALPHABETIZE THEM LATER." :"HOWEVER, STUDENT NAMES (30 CHAR-":"ACTERS MAXIMUM) MUST BE ENTERED" "LAST NAME FIRST!":: 9000::6000 "C%C%1: COUNTER ,NFLAG0::C%;") ";:"NAME?":4000:CHECK$ST NFLAG0:A "MAXIMUM NUMBER OF STUDENTS?";NMB%:NMB%1190 CHECK$"MAXIMUM ENROLLMENT = "(NMB%):5000:NFLAG1180 A$(NMB%),B$(NMB%): ORIGINAL, SORTED ROSTER> ::"IN ASSEMBLING THE ";COURSE$:"ROSTER, STUDENTS NEED NOT BE ENTERED":0:NFLAG1110b COURSE$CHECK$::"TO SET UP THE":COURSE$;" FILE,":"I NEED SOME INFORMATION." :"WHAT WILL BE THE MAXIMUM ENROLLMENT IN":COURSE$;" CLASS?" :"BE SURE TO LEAVE SOME EXTRA SPOTS FOR":"LATE ARRIVALS! ":REMAINDER OF THE GRADEBOOK PROGRAM." P:"EACH CLASS, OR SECTION, MUST HAVE ITS":"OWN NAME (26 CHARACTERS MAXIMUM), BY":"WHICH YOU WILL CALL IT EACH TIME YOU":"USE 'GRADEBOOK'." Z9000::6000 nNFLAG0::"CLASS NAME?":4000:CHECK$STRING$:500J PROGRAM NAME 'CLASSFILE INITIATION' (PART 3 OF 10, GRADEBOOK 1.0)U2000r"NOMON I,O,C": CTRL-D|(10002:2:8:"* CLASSFILE INITIATION *"<::"THIS PROGRAM SETS UP A CLASS FILE":"ON YOUR DISK SO THAT YOU CAN USE THE"$ F"     (I)P0%:670JMEAN(I)TWO((PTS%SUM%)100):MTTLMTTLMEAN(I):Z%Z%P1%QIrZ%P0%CAVGP0%:SDP0%:775CAVGTWO(MTTLZ%)IP1%C%A$(I)""715DSQDSQ(MEAN(I)CAVG)P2%IZ%P2%SDP0%:775SDTWO((DSQ(Z%P1TATISTICSIOP$"NMTTL0:Z%00SIP1%C%BXA$(I)""670X]PTS%P0%:SUM%P0%hbRF$;INMB%gJP1%N%:M%(J):JlJP1%N%qM%(J)N1%635vPTS%PTS%M%(J):SUM%SUM%LAST%(J){JPTS%(I)PTS%:SUM%(I)SUM% SUM%P0%MEAN$N%35İ9000:575f!:"DO YOU WISH TO ENTER ANOTHER SET OF":"SCORES FOR ";COURSE$;" CLASS?"&"Y/N?";Q9$:Q9$"Y"1400Q9$"N"5705550:N%NOLD%825?:5:"THIS MAY TAKE A WHILE --":"(PATIENCE IS A VIRTUE!!)" D UPDATE SB%JP1%N%P1%:M%(J):J/M%(N%)G%(I)?WF$;INMB%WJP1%N%:M%(J):J^IgCL$:5:"YOU HAVE JUST RECORDED YOUR ";:N%;:"TH":"SET OF SCORES FOR ";COURSE$ "CLASS. YOU CAN RECORD A MAXIMUM OF ":35N%;" MORE SETS!";B3EEP$"R":10000?:5:"OK TO RECORD THIS SET OF SCORES ON THE"h"DISK AS ASSIGNMENT #";:N%1;:"?""Y/N?";QD$:QD$"Y"465QD$"N"545445N%N%P1%:LAST%(N%)PP%:5:"BACK IN A MINUTE --"OP$IP1%C%RF$;INMIST THE SCORES YOU":"JUST ENTERED.":14000:CUE$"A":10000:5:"DO YOU WANT A RANKED LIST OF SCORES":"ON THIS ASSIGNMENT?""Y/N?";Q6$:Q6$"Y"410Q6$"N"430390 :5:"JUST A MOMENT WHILE I RANK THE SCORES --":13000:14000:CUE:"THAT'S GREATER THAN ";PP%;"!";B3EEP$`@"SHOULD I RECORD IT ANYWAY (Y/N)?";QG$:QG$"Y"350JQG$"N"ĺ:"TRY AGAIN!":SLASH$:260O320^TTL%TTL%G%(I):Z%Z%1cIhCMTWO(TTL%Z%): CLASS MEAN;m:ASTER$:9000::2:"I WILL NOW L:I;") ";A$(I), A$(I)""G%(I)N1%:3559 NULL$""M"SCORE?";TEMP$bTEMP$NULL$290(TEMP$)48(TEMP$)57305TEMP$"E"G%(I)N1%:355TEMP$"I"G%(I)P0%:355"B3EEP$;:2701G%(I)(TEMP$)6G%(I)PP%350';LL NOT AFFECT THE":5:"STUDENT'S GRADE IN ANY WAY.)::"REMEMBER: SCORES CAN BE CHANGED AFTER":"YOU LEAVE THIS PROGRAM BY USING THE""GRADEBOOK ";:"'MASTER INDEX'";:" PROCEDURE ";:"#3";:"."23:9000::2:TTL%0:Z%0IP1%C%ES INTO THE STUDENT'S"K 5:"RECORD AS A ";:"0";:" AND STAYS THAT WAY"r 5:"UNLESS YOU CHANGE IT LATER.)"x "'E'";:"=";:"EXCUSED";:" (GOES INTO THE STUDENT'S" 5:"RECORD AS A ";:"-1";:" WHICH IS MERELY A"45:"MARKER, AND WI9000::2l "I WILL PRESENT THE STUDENTS IN":COURSE$;:" CLASS":"SO THAT YOU CAN ENTER THEIR SCORES." :"IF A STUDENT HAS NO SCORE AT THIS TIME,":"YOU MAY ENTER ";:"'I'";:" OR ";:"'E'";:" INSTEAD." :"'I'";:"=";:"INCOMPLETE";:" (GO1% JP1%N%:LAST%(J):J& CL$L :5:COUNTER0:TTL0:COURSE$;":" "HOW MANY POINTS WERE POSSIBLE":"ON ASSIGNMENT #";:N%1;:"?" :"POINTS POSSIBLE?";PP%:PP%P1%155 NFLAG0:CHECK$(PP%)" POINTS POSSIBLE":5000:NFLAG1155 CORE SET (INITIAL, TEMPORARY, RANKED)D FM%(35): WORK-IN-PROGRESSe KLAST%(35): POINTS POSSIBLE PPTS%(C%),SUM%(C%),MEAN(C%),DEV(C%): UPDATED STUDENT PTS, PTS POSSIBLE, % AVG, SD dOP$ iIP1%C% nRF$;I:A$(I) xI }RF$;P2%NMB%PS NAME?";COURSE$:COURSE$"QUIT"ĺ(4)"RUN MASTER INDEX"] -CHECK$COURSE$:5000:NFLAG135 23000:NOLD%N%:N%35ė:2:"> 35 SCORES -- SORRY!";B3EEP$:::20040 <A$(C%),B$(C%): CLASS ROSTER (INITIAL, RANKED)% AG%(C%),H%(C%),B%(C%): NEW S@ PROGRAM NAME 'SCORE ENTRY' (PART 4 OF 10, GRADEBOOK 1.0)K 2000h"NOMON I,O,C": CTRL-Dr1000:2:11:"* SCORE ENTRY *":"FOR WHICH CLASS DO YOU WISH":"TO ENTER A SET OF SCORES?":"TYPE 'QUIT' TO EXIT"8 #NFLAG0::"CLAS          "TRY AGAIN!":SLASH$:NFLAG1::*50406(# PAUSEaP#:"TO PROCEED, PRESS 'RETURN'.";QR$:gZ#{* PRESENT A$(I)+:5:COURSE$;" ROSTER:":::LOW1:HIGH10*+ILOWHIGH4+I;") ";A$(I):IC%ĺ:ASTER$::H+IR+LOWHIGH1:HIGHHIGH$;I:A$(I): I'D RF$;P2%NMB%P1%BN JP1%N%:LAST%(J):JK CL$Q ] CHECK:::"I HAVE RECORDED THAT AS":CHECK$"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$:: QC$"N"ĺ:"I HAVE DELETED THE INCORRECT ENTRY":CHECK$:  B$"L120"1 OP$"OPEN "COURSE$"FILE,"B$ RF$"READ "COURSE$"FILE,R":WF$"WRITE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4X OP$ RF$;0 COURSE$,NMB%,C%,CE%,N%,CAVG,SD! A$(C%),PTS%(N%P1%),LAST%(N%P1%)& IP1%C% 0 RF ERROR ROUTINE+:ERR(222):ERR255ĀAERR52080: EOFN216,0:y DL$"DELETE "COURSE$"FILE": CTRL-D*DL$:2:"NO CLASS FILE NAMED":COURSE$:"WAS EVER SET UP ON THIS DISK!";B3EEP$ :::20040 DISK COMMANDS/HEADERs.B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$(94)UTIL$(42):IP1%P40%:ASTER$ASTER$UTIL$:IUTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:ITWO(X)((X100))100:SUM%:PER:DEVCL$s:5:"DO YOU WISH TO EDIT":"THE SCORES OF ANOTHER STUDENT":"IN ";COURSE$;" CLASS?""Y/N?";Q7$:Q7$"Y"60Q7$"N"20000490 VARIABLESP0%0:P1%1:P2%2:P30%30:P40%40:N1%1:N2%2:G$"": CTRL-GPTS%P0%:SUM%P0%"JP1%N%7PTS%(J)N1%435`PTS%PTS%PTS%(J):SUM%SUM%LAST%(J)gJSUM%P0%PERP0%:DEVP0%:470PERTWO((PTS%SUM%)100):SDP0%DEVP0%:470DEVTWO((PERCAVG)SD)WF$;IA$(I):I:INMB%:PTS%5 c340mPTS%(J)D%Qr:J;") ";:PTS%(J);:" OUT OF ";LAST%(J)::ASTER$w:"DO YOU WISH TO EDIT ANY MORE SCORES":"FOR ";:A$(I);:"?"|"Y/N?";Q6$:Q6$"Y"165Q6$"N"400380OP$WF$;INMB%JP1%N%:PTS%(J):J325#,TEMP$"E"PTS%(J)N1%:370C1TEMP$"I"PTS%(J)P0%:370L6290nED%(TEMP$):D%LAST%(J)365J:"THAT'S GREATER THAN ";LAST%(J);"!";G$;G$T"SHALL I RECORD IT ANYWAY (Y/N)?";Q9$:Q9$"Y"365^Q9$"N"ĺ:"TRY AGAIN!":SLASH$:27 JP1%JN%260D :J;") ";:PTS%(J);:" OUT OF ";LAST%(J): :"WHAT IS THE CORRECT SCORE?":"(YOU MAY USE ";:"'I'";:" OR ";:"'E'";:" AS NECESSARY.)" NULL$"": ""CORRECT SCORE?";TEMP$:TEMP$NULL$290'(TEMP$)47(TEMP$)58TS%(J);" OUT OF ";LAST%(J):JN%ĺ:ASTER$:2456 Jh LOWHIGHP1%:HIGHHIGH10:9000:5:958:205 :"WHICH ";:"SCORE NUMBER";:" DO YOU WISH":"TO CHANGE?" :"TO EXIT PROGRAM, PRESS 'RETURN'.": "SCORE #?";TEMP$:J(TEMP$):JP0%400K :"I WILL SHOW YOU":"THE CURRENT RAW SCORES FOR":I;") ";A$(I);" -- " :"PLEASE NOTE THE ";:"NUMBER";:" OF THE SCORE":"YOU WISH TO CHANGE." 9000::2:I;") ";A$(I);":":"CURRENT RAW SCORES"::LOWP1%:HIGH10 JLOWHIGH/ J;") ";PARE TO BE EDITED." d9000' n11000| s:"ENTER THE ";:"NUMBER";:" OF THE STUDENT":"WHOSE SCORES YOU WISH TO EDIT." x:"STUDENT #?";I%:II%:IP1%IC%120 A$(I)""120 OP$ RF$;INMB% JP1%N%:PTS%(J):J CL$ :3T' TO EXIT"X (NFLAG0::"CLASS NAME?";COURSE$:COURSE$"QUIT"ĺ(4)"RUN MASTER INDEX"} 2CHECK$COURSE$:5000:NFLAG140 73000 <:5:"I WILL SHOW YOU THE":COURSE$;" ROSTER."::"PLEASE NOTE THE ";:"NUMBER";:" OF THE STUDENT":"WHOSE SCORES J PROGRAM NAME 'SINGLE STUDENT EDITOR' (PART 6 OF 10, GRADEBOOK 1.0)U 2000r"NOMON I,O,C": CTRL-D|1000:5:7"* SINGLE STUDENT EDITOR *" #:"FOR WHICH CLASS DO YOU WISH TO EDIT":"A SINGLE STUDENT'S RECORD?":"TYPE 'QUI     RY":CHECK$:"TRY AGAIN!":SLASH$:NFLAG1::75040Dp FORMATASTER$::"ENTER THE NAME ";:"EXACTLY";:" AS IT SHOULD""APPEAR. BE CAREFUL: EVEN BLANK SPACES":"ARE SIGNIFICANT!"=:"(NO ";:"COMMAS";:" OR ";:"COLONS";:" ARE ALLOWENG$"*** NO MORE ENTRIES! ***":^|B$;:COUNTERCOUNTERP1%:STRING$(STRING$,COUNTER):4070j CHECK:::"I HAVE RECORDED THAT AS":CHECK$"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$::-QC$"N"ĺ:"I HAVE DELETED THE INCORRECT ENTB$CC$Ā#B$CM$B$CN$4070>B$RET$COUNTERP0%ıPB$ESC$4200tCOUNTERP0%B$L1$B$L2$4070"B$LA$COUNTERP1%4220,B$L3$B$L4$40706B$;:COUNTERCOUNTERP1%:STRING$STRING$B$:(STRING$)P30%ı^4070 hSTRI"WRITE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4X< OP$G RF$;0k COURSE$,NMB%,C%,CE%,N%,CAVG,SDy& A$(NMB%)0 IP1%C%: RF$;I:A$(I)D I CL$  'GET' STRING$STRING$"":COUNTERP0%:LINE$;:36,0: CURSORB$ DELETE "COURSE$"FILE": CTRL-D**DL${:2:"NO CLASS FILE NAMED":COURSE$:"WAS EVER SET UP ON THIS DISK!";B3EEP$ :::20040 DISK COMMANDS/HEADER B$"L120" OP$"OPEN "COURSE$"FILE,"B$3 RF$"READ "COURSE$"FILE,R":WF$(94)9UTIL$(42):IP1%P40%:ASTER$ASTER$UTIL$:IlUTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:IUTIL$(95):IP1%P30%:LINE$LINE$UTIL$:I ERROR ROUTINE:ERR(222):ERR255ĀERR52080: EOF216,0:! DL$"*COURSE$:NMB%:C%:CE%:N%:CAVG:SD3 CL$>20000N VARIABLESP0%0:P1%1:P2%2:P30%30:P40%40:N1%1:N2%2:G$"": CTRL-G.B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$$STRING$:5000:NFLAG1640XA$(I)STRING$:17000::"DONE.":I;") ";A$(I):::9000:2:"DO YOU WISH TO CHANGE THE":COURSE$;" ROSTER ANY FURTHER?""Y/N?";Q9$:Q9$"Y"110Q9$"N"740700 HEADER UPDATEOP$WF$;P0%NSERT$"DELETED.":18000:S$A$(I):A$(I)"":CE%CE%P1%:17000::"DONE.":I;") "::9000:690: 3) CHANGE NAMEDNSERT$"CHANGED.":18000::2:"ENTER THE NEW NAME FOR":I;") ";A$(I):6000:NFLAG0:I;") ";:"NEW NAME?":4000:CHECKP$::ASTER$ :9000:690P :5:"THE ";COURSE$;" ROSTER IS FULL!";B3EEP$ :"WHEN YOU INITIALIZED THE":COURSE$;" FILE,":"YOU SPECIFIED A MAXIMUM ENROLLMENT":"OF ";:NMB%;:" STUDENTS. SORRY!" SLASH$:::9000:690  2) DELETE NAMEk%:P0%:P0%:P0%! @WF$;C%NMB%7 JJP1%N%:N1%:J@ TCL$_ ^:"DONE:":C%;") ";A$(C%)p hC%NMB%410 rASTER$::"NOTE: ";A$(C%):"IS THE LAST OF THE ";NMB%;" STUDENTS" |"SPECIFIED AS THE MAXIMUM ENROLLMENT":"IN ";COURSE$;" CLASS.";B3EE":"ADDED TO THE ";COURSE$;" ROSTER."::6000::"TO STOP, PRESS 'ESC'."w :C%P1%;") NEW NAME?":4000:B$ESC$690 NFLAG0:CHECK$STRING$:5000:NFLAG1240 C%C%P1%:CE%CE%P1%:A$(C%)STRING$ "OP$ ,WF$;C% 6A$(C%):C%:C%NMB%:P0 ROSTER."U :"3) CHANGE THE NAME OF A STUDENT":4:"ALREADY ON THE CLASS ROSTER."k :"4) STOP.":: "YOUR CHOICE (1/2/3/4)?";PN PN200,500,570,740 170 1) ADD NAME C%NMB%430H :2:"ENTER THE NAME OF THE STUDENT TO BEFLAG0::"CLASS NAME?";COURSE$:COURSE$"QUIT"ĺ(4)"RUN MASTER INDEX"l PCHECK$COURSE$:5000:NFLAG170v d3000 n:2:9:"* CLASS ROSTER CHANGE *"::13:"'SUB-INDEX'"::"1) ADD A STUDENT TO CLASS ROSTER." :"2) DELETE A STUDENT FROM CLASSH PROGRAM NAME 'CLASS ROSTER CHANGE' (PART 7 OF 10, GRADEBOOK 1.0)S2000p"NOMON I,O,C": CTRL-Dz(10002:2:9:"* CLASS ROSTER CHANGE *"<5:"FOR WHICH CLASS DO YOU WISH TO MAKE":"A ROSTER CHANGE?":"TYPE 'QUIT' TO EXIT"G FN         35:BDEV(I)RIC%21300"SIP SLOWHIGHP1%:HIGHHIGH10:QHC$"Y"21200l S:9000:9:958:212004SASTER$:QHC$"N"ĺ:9000:>SLINE5:15000:U SET FLAGSU SUBROUTINE DETERMINES WHAT DATA TO PRINT OUTU ******************MnR:2:"RANK-ORDER LIST FOR":COURSE$;:" CLASS:":4:"CLASS MEAN = ";CM;"%":4:"STANDARD DEVIATION = ";SDvR:R4:"NAME";:29:"% AVG";:37:"SD"::LOWP1%:HIGH10RILOWHIGHRB$(I)""ĺI;")":21240 RI;") ";B$(I);:29:BMEAN(I);:100R RANK-ORDER OPTION7&RLINE5:QHC$"Y"İ15000n0R:2:"JUST A MOMENT WHILE I RANK THE AVERAGES.":|:RIP1%C%DRTN2%NRJP1%C%XRMEAN(J)T21100bRTMEAN(J):KJlRJvRBMEAN(I)T:B$(I)A$(K):BDEV(I)DEV(K):MEAN(K)N2%RI'M' = RETURN TO GRADEBOOK":7:"MASTER INDEX."HpN:"ESC = ";:"STOP."izN:"YOUR CHOICE (D/M/ESC)?";xNB$"INDEX"NQQ$NQQ$"D"ĺ::0NQQ$"M"ĺ:"RUN MASTER "B$: CTRL-DNQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-DN20000:: PRINT LINES*:I1LINE::I0:B> PRINTER OFFg>LINE12:15000:"PR#0": CTRL-D>:"TURN OFF THE PRINTER, THEN 'RETURN'.";QP$: N DIRECTORY>N:5HN"'D' = PRINT CURRENT STATISTICS FOR A":7:"DIFFERENT CLASS.".fN:"SE-P#:"TO PROCEED, PRESS 'RETURN'.";QR$:3Z#E6 PRINTER ON?|6:"DO YOU WANT HARD COPY (Y/N)?";QHC$:QHC$"N"ı6QHC$"Y"140306140226:"TURN ON THE PRINTER, THEN 'RETURN'.";QP$6PR16"PR#"(PR): CTRL-D6LINE5:15CE%,N%,CAVG,SD CL$ ) CHECKV:::"I HAVE RECORDED THAT AS":CHECK$"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$::QC$"N"ĺ:"I HAVE DELETED THE INCORRECT ENTRY":CHECK$:"TRY AGAIN!":SLASH$:NFLAG1::5040(# PAUR SET UP ON THIS DISK!";B3EEP$/ :::20040J DISK COMMANDS/HEADERX B$"L120"| OP$"OPEN "COURSE$"FILE,"B$ RF$"READ "COURSE$"FILE,R":WF$"WRITE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4X OP$ RF$;0 COURSE$,NMB%,C%,UTIL$:I;UTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:IAU ERROR ROUTINEv:255:ERR(222):ERR255ĀERR52080: EOF216,0: DL$"DELETE "COURSE$"FILE": CTRL-D*DL$:2:"NO CLASS FILE NAMED":COURSE$:"WAS EVE00 :20000  VARIABLESa P0%0:P1%1:P2%2:P30%30:P40%40:N1%1:N2%2:G$"": CTRL-G .B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$(94)UTIL$(42):IP1%P40%:ASTER$ASTER$IS IS ";DEV(I);" SIGMAS":5:"FROM THE CLASS MEAN OF ";CM;" %":Q3$"N"520^ "RAW SCORES:"l JP1%N% 5:M%(I,J);" OUT OF ";LAST%(J) J :::I 255::9000 Q5$"A"Q5$"B"İ23000 &Q5$"R"Q5$"B"İ21000 0QHC$"Y"İ1601%N%:LAST%(J):J ^CL$3 h14000:Q2$"N"540K :2:QHC$"N"ĩ150 "INDIVIDUAL STUDENT STATISTICS FOR":COURSE$;:" CLASS:": IP1%C% I;") ";A$(I):A$(I)""520K 5:PTS%(I);" OUT OF ";SUM%(I);" POSSIBLE = ";MEAN(I);" %":5:"TH000 OP$ IP1%C%% RF$;IW A$(I),SN%,RN%,PTS%(I),SUM%(I),MEAN(I),DEV(I)^ Io Q3$"N"350 M%(C%,N%),LAST%(N%) IP1%C% A$(I)""300 RF$;INMB% JP1%N% M%(I,J) "J ,I 6RF$;P2%NMB%P1% @JPE?";COURSE$:COURSE$"QUIT"ĺ(4)"RUN MASTER INDEX"X PCHECK$COURSE$:5000:NFLAG170 d3000:CMCAVG:22000::5:"THIS MAY TAKE A WHILE --":A$(C%),PTS%(C%),SUM%(C%),MEAN(C%),DEV(C%):Q5$"R"Q5$"B"ĆB$(C%),BMEAN(C%),BDEV(C%) nQ2$"N"Q4$"N"2k@ PROGRAM NAME 'END OF TERM' (PART 8 OF 10, GRADEBOOK 1.0)K2000h"NOMON I,O,C": CTRL-Dr(10002:2:12:"* END OF TERM *"<::"FOR WHAT CLASS DO YOU WISH":"CURRENT STATISTICS?":"TYPE 'QUIT' TO EXIT"3 FNFLAG0::"CLASS NAM       CTRL-D?NQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-DJN20100"B$: CTRL-DNQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-DN201002ETE/PARTIAL FILEWIPE FOR A":7::"DIFFERENT CLASS.":qfN:"'M' = RETURN TO GRADEBOOK":7::"MASTER INDEX.":pN:"ESC = ";::"STOP.":zN:"YOUR CHOICE (D/M/ESC)?";NB$"INDEX"NQQ$NQQ$"D"ĺ::0NQQ$"M"ĺ:"RUN MASTER "B$:/N)?";QC$:QC$"Y"ĺASTER$::QC$"N"ĺ:"I HAVE DELETED THE INCORRECT ENTRY"::CHECK$::"TRY AGAIN!":SLASH$:NFLAG1::5040(# PAUSEP#::"TO PROCEED, PRESS 'RETURN'.";QR$::Z#6PR1 N DIRECTORY>N:56HN"'D' = COMPL:WF$"WRITE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4Xc DL$"DELETE "COURSE$"FILE": CTRL-Dl OP$w RF$;0 COURSE$,NMB%,C%,CE%,N%,CAVG,SD CL$  CHECK:::"I HAVE RECORDED THAT AS"::CHECK$:"IS THAT CORRECT (Y"DELETE "COURSE$"FILE": CTRL-D+*DL$:2:"NO CLASS FILE NAMED"::COURSE$::"WAS EVER SET UP ON THIS DISK!";B3EEP$ :::20040 DISK COMMANDS/HEADER B$"L120" OP$"OPEN "COURSE$"FILE,"B$8 RF$"READ "COURSE$"FILE,R"):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$(94)k UTIL$(42):IP1%P40%:ASTER$ASTER$UTIL$:I UTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:I   ERROR ROUTINE :ERR(222):ERR255Ā ERR52080: EOF 216,0:" DL$LL THE OLD SCORES, HOWEVER, HAVE ":"GONE TO THE GREAT BIT PILE IN THE SKY.)":p ,:ASTER$::9000:20000  VARIABLES P0%0:P1%1:P2%2:P30%30:P40%40:N1%1:N2%2:G$"": CTRL-G8 .B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44% RF$;I:NAME$D WF$;I:NAME$:I:INMB%:P0%:P0%:P0%:P0%K Id INMB%P1%P2%NMB%t WF$;I:N1%{ I WF$;P2%NMB%P1% P0% CL$ :2:"DONE.":::"THE ";::COURSE$;::" ROSTER":"IS STILL INTACT."::S "::"(AURSE$::CHECK$COURSE$:5000:NFLAG1110^ x3000::5::"DO YOU REALLY WANT TO DO THIS?":{ "Y/N?";Q2$:Q2$"Y"160 Q2$"N"20000 130 Q7$"D"ĺDL$:20000 OP$ WF$;P0% COURSE$:NMB%:C%:CE%:P0%:P0%:P0% IP1%NMB"ERASE";::" ALL STUDENT SCORES, BUT":7:"KEEP THE CLASS ROSTER INTACT.": F"'S' = ";::"STOP";::" WITHOUT DOING ANYTHING.":: P"YOUR CHOICE (D/E/S)?";Q7$:Q7$"S"20000 ZQ7$"D"Q7$"E"ĺ::110 d80) nNFLAG0:::"CLASS NAME?";COK = PROGRAM NAME 'FILEWIPE' (PART 9 OF 10, GRADEBOOK 1.0)H2000e"NOMON I,O,C": CTRL-Do(10002:2:12::"*** FILEWIPE ***":::<"YOU HAVE 3 OPTIONS:":::"'D' = ";::"DELETE";::" A CLASS FROM THE DISK."M >:"'E' = ";::     RUN MASTER "B$: CTRL-DPNQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-D[N20100"B$: CTRL-DNQQ$ESC$ĺ:"LOCK MASTER "B$:"END":: CTRL-DN20100RF:"LOCK MASTER "B$:"END":: CTRL-DN20100ECTORY>N:5OHN"'D' = CHECK STUDENT RECORDS FOR A":7:"DIFFERENT CLASS."fN:"'M' = RETURN TO GRADEBOOK":7:"MASTER INDEX."pN:"ESC = ";:"STOP."zN:"YOUR CHOICE (D/M/ESC)?";NB$"INDEX"NQQ$NQQ$"D"ĺ::0NQQ$"M"ĺ:"THAT AS":CHECK$G"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$::QC$"N"ĺ:"I HAVE DELETED THE INCORRECT ENTRY":CHECK$:"TRY AGAIN!":SLASH$:NFLAG1::5040(# PAUSEP#:"TO PROCEED, PRESS 'RETURN'.";QR$:Z#6PR1 N DIRFILE,R":WF$"WRITE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4XH OP$S RF$;0w COURSE$,NMB%,C%,CE%,N%,CAVG,SD! LAST%(N%P1%),PTS%(N%P1%)& RF$;P2%NMB%P1%0 JP1%N%:LAST%(J):J CL$  CHECK:::"I HAVE RECORDED :- DL$"DELETE "COURSE$"FILE": CTRL-D6*DL$:2:"NO CLASS FILE NAMED":COURSE$:"WAS EVER SET UP ON THIS DISK!";B3EEP$ :::20040 DISK COMMANDS/HEADER B$"L120" OP$"OPEN "COURSE$"FILE,"B$? RF$"READ "COURSE$"7):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$(94)vUTIL$(42):IP1%P40%:ASTER$ASTER$UTIL$:IUTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:I ERROR ROUTINE:ERR(222):ERR255ĀERR52080: EOF216,0LOWHIGH1J;") ";PTS%(J);" OUT OF ";LAST%(J)@JN%210GJ{:9000:LOWHIGHP1%:HIGHHIGH10:6:958:710 VARIABLESP0%0:P1%1:P2%2:P30%30:P40%40:N1%1:N2%2:G$"": CTRL-GC.B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(2W (-)":4:"THE CLASS MEAN= ";DEV::2109 RAW SCORESBOP$RRF$;RNMB%qNAME$:NAME$""ĺCL$:300|RF$;R&JP1%N%:PTS%(J):JCL$:2:"RECORD #";R;":":"RAW SCORES OF STUDENT #";RNMB%;":":NAME$::LOWP1%:HIGH10 J :"1) NAME:";:NAME$:; "2) STUDENT NUMBER= ";SN%e "3) RAW SCORES IN RECORD # ";:RN%: "4) TOTAL POINTS THUS FAR= ";PTS% "5) TOTAL POINTS POSSIBLE= ";SUM%: "6) PERCENT AVERAGE= ";PER;" %":("7) # OF SIGMAS ABOVE (+)/BELO%5003 ,:5:"RECORD #";R;":"::RNMB%RRNMB%l @"THERE IS NO STUDENT #";R;"!";B3EEP$::SLASH$:210 T STUDENT RECORDS ^OP$ hRF$;R rNAME$:NAME$""ĺCL$:300 tSN%,RN%,PTS%,SUM%,PER,DEV |CL$ :2:"STUDENT RECORD #";R;":";NMB%;": STUDENT RECORDS. ":"RECORDS #";NMB%P1%;"-";P2%NMB%;": STUDENT RAW SCORES " " AND POINTS POSSIBLE.":6:"TO STOP, PRESS 'RETURN'."::"EXAMINE RECORD #?";R$:R(R$):RP0%20000 RP1%RC%340 "RNMB%RNMB%CC%' "4) CURRENT ENROLLMENT= ";CE%:U "5) SCORE SETS RECORDED THUS FAR= ";N%: "6) MEAN OF DISTRIBUTION":4:"OF STUDENT AVERAGES= ";CAVG;" %": "7) STANDARD DEVIATION OF DISTRIBUTION":4:"OF STUDENT AVERAGES= ";SDZ 19:"RECORDS # 1-"0::"CLASS NAME?";COURSE$:COURSE$"QUIT"ĺ(4)"RUN MASTER INDEX"g PCHECK$COURSE$:5000:NFLAG170 x3000::2:"RECORD #0 (CLASS HEADER) :": "1) NAME: ";:COURSE$ "2) MAXIMUM ENROLLMENT= ";NMB%: "3) LAST SPACE CURRENTLY IN USE= ";\ A PROGRAM NAME 'RECORD CHECK' (PART 5 OF 10, GRADEBOOK 1.0)L2000i"NOMON I,O,C": CTRL-Ds(10002:2:12:"* RECORD CHECK *"::<"FOR WHICH CLASS DO YOU WISH TO":"EXAMINE THE RECORD CONTENTS?":"TYPE 'QUIT' TO EXIT"B FNFLAG     ĠҠ؍ԍĠˠӍԍĠŠ΍ԍĠŠٍԍĠĠˍԍĠŠԠҍԍĠӠҠōԍĠĠƠ͍ԍĠŚōԍĠ͠ҍԍ!ҠˠڠΠԠŠ̠ȠɠӠ̠ǠŠŠҠԠ͠٠ΠؠΠӠڍԠ160  ERROR ROUTINE- :(222)255Ā: 216,0: :"END":::q PN9ĺ(4);"RUN NEW END OF TERM"z 160  ERROR ROUTINE :(222)255Ā 216,0:"RUN SINGLE STUDENT EDITOR": CTRL-DT PN4ĺ"RUN CLASS ROSTER CHANGE": CTRL-Dm PN5ĺ"RUN RCHECK" PN6ĺ"RUN END OF TERM": CTRL-D PN7ĺ"RUN DISK CONTENTS": CTRL-D PN8ĺ:"END"::: PN9ĺ(4);"RUN NEW END OF TERM" :"8) STOP."< :"9) PRINT ASSIGN LIST OR PROG REPORT" 23:868:"YOUR CHOICE (1/2/3/4/5/6/7/8/9)?";PN$:(PN$)0160 PN(PN$):PN1PN9160 PN1ĺ"RUN CLASSFILE INITIATION": CTRL-D PN2ĺ"RUN SCORE ENTRY": CTRL-D% PN3ĺ SCORE(S)."b n:"4) CHANGE AN EXISTING CLASS ROSTER":4:"(ADD, DELETE, CHANGE STUDENT NAMES)." x:"5) EXAMINE INDIVIDUAL STUDENT RECORDS." :"6) SUMMARY OF CURRENT STATISTICS FOR":4:"AN ENTIRE CLASS." :"7) CATALOG OF DISK CONTENTS." ;B PROGRAM NAME 'MASTER INDEX' (PART 1 OF 10, GRADEBOOK 1.0)M2000j("NOMON I,O,C": CTRL-Dt2:11<"*** GRADEBOOK ***"P:"1) SET UP NEW CLASS ROSTER."Z:"2) ENTER A CLASS SET OF SCORES." d:"3) CHANGE A SINGLE STUDENT'S!! ! ! ! NFLAG1::1010! PAUSEL:"TO PROCEED, PRESS 'RETURN'.";QR$:R$d. PRINTER ON?8:"DO YOU WANT HARD COPY (Y/N)?";QHC$:QHC$"N"ıBQHC$"Y"1110L1080V:"TURN ON THE PRINTER, THEN 'RETURN'.";QP$`PR1j"PR#"RF$;0-COURSE$,NMB%,C%,CE%,N%,CAVG,SD6CL$<H CHECKu:::"I HAVE RECORDED THAT AS":CHECK$"IS THAT CORRECT (Y/N)?";QC$:QC$"Y"ĺASTER$:: QC$"N"ĺ:"I HAVE DELETED THE INCORRECT ENTRY":CHECK$:"TRY AGAIN!":SLASH$:S FILE NAMED":COURSE$:"WAS EVER SET UP ON THIS DISK!";B3EEP$Nz:::1230i DISK COMMANDS/HEADERwB$"L120"OP$"OPEN "COURSE$"FILE,"B$RF$"READ "COURSE$"FILE,R":WF$"WRITE "COURSE$"FILE,R":CL$"CLOSE": CTRL-D 4XOP$ P40%:ASTER$ASTER$UTIL$:IN UTIL$(47):IP1%P40%:SLASH$SLASH$UTIL$:IT*h4 ERROR ROUTINE>:255:ERR(222):ERR255ĀHERR5880: EO F R216,0:\DL$"DELETE "COURSE$"FILE": CTRL-DfDL$>p:2:"NO CLASN(I)60LA$"D": LA$"F":0 VARIABLEStP0%0:P1%1:P2%2:P30%30:P40%40:N1%1:N2%2:G$"": CTRL-G B3EEP$G$G$G$:CC$(3):RET$(13):ESC$(27):CM$(44):CN$(58):LA$(8):L1$"A":L2$"Z":L3$(32):L4$(94)UTIL$(42):IP1%%SN%99630SN%991210ATP1%P1%:TC%C%:P1%SN%:C%SN%RXX$"Y":303mQ5$"A"Q5$"B"İ1790Q5$"R"Q5$"B"İ1330QHC$"Y"İ11801210MEAN(I)90LA$"A":MEAN(I)80LA$"B":MEAN(I)70LA$"C":MEA SIGNATURE":" IF YOU HAVE ANY QUESTIONS CALL THE SCHOOL"TD:::IeN255::1040XXX$"Y"P1%TP1%:C%TC%bSR$"Y"ī670lQHC$"Y"İ1180:P1%TP1%:C%TC% v"WHAT STUDENT # DO YOU WANT?"::"ENTER 99 TO QUIT"::SN%:SN%CUTOF ";LAST%(J);:20:ZZ$(J)#J,7102i"YOUR CURRENT LETTER GRADE IS : ";(27)(14);LA${&PR$"N"ī5800:::::G:"__________________________ _________________________":" TEACHER SIGNATURE PARENTPR$"Y"Ė15:(27)(14);COURSE$;" PROGRESS REPORT":G(27)(17)gI;") ";A$(I):A$(I)""580x(27)(19)5:PTS%(I);" OUT OF ";SUM%(I);" POSSIBLE = ";MEAN(I);" %":5:Q3$"N"520"RAW SCORES:"J1N%5:M%(I,J);" O THE FILE NAME ";AF$:4000j h"DO YOU WANT TO PRINT A MIDTERM PROGRESS REPORT? Y/N?";PR$: r1070:Q2$"N"670 |SR$"Y"ė:410 :2:QHC$"N"ĩ150 "INDIVIDUAL STUDENT STATISTICS FOR":COURSE$;:" CLASS:": IP1%C%6ENT? Y/N ?";ZR$::ZR$"N"ė:I1N%:ZZ$(I)" "::360E @J1N%h J"ASSIGNMENT# ";J;":";:ZZ$(J)o TJ ^::"ARE ALL ASSIGNMENT DESCRIPTIONS CORRECT? Y/N?";AD$::AD$"N"ī310 c"DO YOU WANT TO CREATE A FILE Y/N: ";K$:K$"Y"ĺ:"WHAT ISJP1%N% M%(I,J) J$ I: RF$;P2%NMB%P1%U JP1%N%:LAST%(J):Jp "CL$:SR$"Y"ĺ::620 ,:PR$"N":Q2$"N"Q3$"N"ī370 /"IS THERE AN ASSIGN FILE Y/N: ";K$:K$"Y"İ2000 1TA73609 6"DO YOU WANT TO LABEL EACH ASSIGNM):Q5$"R"Q5$"B"ĆB$(C%),BMEAN(C%),BDEV(C%)F xQ2$"N"Q4$"N"820O OP$] IP1%C%h RF$;I A$(I),SN%,RN%,PTS%(I),SUM%(I),MEAN(I),DEV(I) I Q3$"N"290 M%(C%,N%),LAST%(N%) IP1%C% A$(I)""260 RF$;INMB% "CURRENT STATISTICS?":"TYPE 'QUIT' TO EXIT"z ZNFLAG0::"CLASS NAME?";COURSE$:COURSE$"QUIT"ĺ(4)"RUN MASTER INDEX" dCHECK$COURSE$:990:NFLAG190- n900:CMCAVG:1560::5:"THIS MAY TAKE A WHILE --":A$(C%),PTS%(C%),SUM%(C%),MEAN(C%),DEV(C%m D$(4)L PROGRAM NAME 'END OF TERM' (PART 8 OF 10, GRADEBOOK 1.0)V820c(ZZ$(25)2"NOMON I,O,C": CTRL-D<760F:2:12:"* END OF TERM *"K"STORES ASSIGNMENT FILE, PRINT IND REPORT"- P::"FOR WHAT CLASS DO YOU WISH":"" " " " " """""""""