' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (  ͠@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`D OF SUCH A USER !":210:20503&:PW$ENTRY$(A%,2)K&;L%(PW$):17:958T&<870x&=P$PW$ĺ"WRONG !!":210:2108&H:4&RI15&\16:I". "W$(I):&fI&p18:16:"WHICH ? ";:A$:A%(A$):A%1A$(27)A%52160&u" "A$ 'wA$(2. : XXX )"%:D$;"IN# 0"@% 14:16:A$:A$;:A$(27)2300_%"UI$A$:A$:A$;:UI$UI$A$v%#A$:A$:UI$UI$A$%%(UI$)32080%4UI$"XXX"460%6I1NU%7UI$ENTRY$(I,1)ĂI%8A%I&9UI$ENTRY$(A%,1)Ģ16:958:"THERE IS NO RECORvD$"CLOSE USERS"!$NUNU10000$NU02030I$D$"OPEN USERS, L65"U$I1NUm$D$"READ USERS, R"Ix$J15$ENTRY$(I,J)$J$I$D$"CLOSE USERS"$250$11:958:14:"USER INITIALS: " % 22:"(ADD/SEE/CHANGE USERS . . 41#I" * TEACHERS' GRADEBOOK MASTER DISKETTE *"x#J::"REMOVE THE SYSTEM MASTER AND INSERT YOURUSER DATA DISKETTE."#K::8:"HIT WHEN READY."#L1830#N232#S#XD$"OPEN USERS, L65"#]2310#bD$"READ USERS, R0"#lNU$10:"YOUR PROGRAM IS BEING LOADED . . . . "3"L" PROGRAMT"23""PUT USER DISK IN DRIVE AND HIT ";"&16368,0"0(16384)1411840":16368,0"D20:958"F2410"G:D$;"LOCK BOOK"#H"":10:958:1D$"OPEN "UM$", L440".!D$"READ "UM$", R0"7!NC%J!D$"CLOSE "UM$d!D$"OPEN "UM$", L440"}!D$"WRITE "UM$", R0"!NC%!J25!ENTRY$(A%,J)! J! D$"CLOSE "UM$! :6:"CHANGE COMPLETED."! ! :2:(40(W$))2)W$-" CONFIRM IT" ^870g hP$NP$Ģ13:958:14:1:"CONFIRMATION FAILS . . . ; TRY AGAIN.":210:1590| mENTRY$(A%,2)NP$ r:D$"OPEN USERS, L65" |D$"WRITE USERS, R"A% J15 ENTRY$(A%,J) J D$"CLOSE USERS" UM$UI$W$(6)!0PW$ENTRY$(A%,2)$L%(PW$)D14:"FIRST THE OLD . . . "M870qP$PW$ĺ"WRONG !!":210:1550|OP$P$"13:958:14:1:" . . . NOW THE NEW . . . "6860@NP$P$:P$""J13:958:14:1 T"TYPE YOUR PASSWORD AGAIN, TO ";:A$:A$(78)A$(89)14501A$(78)ıV:6:"WHICH USER (INITIALS): ";UI$"":I13:A$:A$;:UI$UI$A$:II1NUUI$ENTRY$(I,1)ĂIA%(I)UI$ENTRY$(A%,1)Ģ9:"THERE IS NO RECORD OF SUCH A USER.":210:145)ENTRY$(I1,J)2J<I&F410?PD$"OPEN USERS, L65"KZI1NUddD$"WRITE USERS, R"InENTRY$(I,1):ENTRY$(I,2)xENTRY$(I,3):ENTRY$(I,4):ENTRY$(I,5)ID$"CLOSE USERS"!:10:"CHANGE A PASSWORD NOW (Y/N) ?182" "A$A$(78)ı'94021220;260Z(222)5NC0:250:1280iNC01280uI1NCN$K$(I)W$(2):960N$K$(I)W$(3):960N$K$(I)W$(4):960N$UM$:960 NUNU1IA%NUJ15(ENTRY$(I,J958:16:"BY DELETING THIS USER, ALL ASSOCIATED FILES WILL BE PERMANENTLY DESTROYED!"20:"CONTINUE (Y/N) ? ";:A$:A$(89)A$(78)1170" "A$A$(78)ı20:958:"DELETE USER AND DESTROY RECORDS ? ";:A$:A$(89)A$(78)1A%:A%1A%NU1053#A$(27)ı,$950A.UI$ENTRY$(A%,1)J8:6dB"READY TO DELETE "L$yL"AS A USER"::V"(USER INITIALS = "UI$" )"`PW$ENTRY$(A%,2)jL%(PW$)t870~P$ENTRY$(A%,2)ĺ"WRONG!!":210:1140Y12:)"USERS":I1NUII". "ENTRY$(I,3)" "ENTRY$(I,4)" "ENTRY$(I,5)PI`D$;"PR# 0"p16368,0:v:10:"DELETE A USER NOW . . . (Y/N)? ";:A$:A$(78)A$(89)1048A$(78)ı99022:"DELETE WHICH USER (#) ? ";IA%3ı_ I1300:I:23:2::"(HIT

TO PRINT; OTHERWISE )";:16368,0 (16384)160(16384)2081034 : (16384)160Ĺ16368,0: :D$;"PR#1":" 80N" "''TEACHERS' GRADEBOOK''"::5)"DATA DISKETTE":9ETE "N$ I1NU2T%2:I9T%1iT%)I". "ENTRY$(I,3)" "ENTRY$(I,4)" "ENTRY$(I,5)PI20:PPP(P):PP0Ģ23:"(HIT ANY KEY TO SEE MORE . . . . )":16368,0PP0(16384)1281025PP0ėPP0(16384)1281030730 !BT$(I)BT$:ET$(I)ET$'!I5! 760:830;! a! "FOR EACH CLASS MEETING ENTER: "l!$ :710x!. I1DW!8 19)MD$(I)!B 730!L BT$(I)BT$:ET$(I)ET$!V 760!` BLD$(I)BLD$:RN$(I)RN$!j I!t !~ HL$(1)"INSTITUTION "" HL$( R710:730:790! \760:830' f: p710:730:790b z"FOR EACH CLASS MEETING ENTER: ":n I1DW~ 19)MD$(I) 760 BLD$(I)BLD$:RN$(I)RN$ I  "FOR EACH CLASS MEETING ENTER: " :710 I1DW 19)MD$(I)!!:D$"WRITE "UM$", R"C)K$4I18@VL$(I)GIODW[I1DWMD$(I):BT$(I):ET$(I):RN$(I):BLD$(I)I D$"CLOSE "UM$ D$"OPEN "UM$", L440"*D$"WRITE "UM$", R0"4NC100>D$"CLOSE "UM$ H,9):VL$(6)(VL$(6),4)@NVL$(7)(VL$(7),6):VL$(8)(VL$(8),4)LXI1DWybRN$(I)(RN$(I),6):BLD$(I)(BLD$(I),12)lIv87023"IS THIS INFO CORRECT? ";:A$:A$(89)A$(78)1930:16368,0:D$"OPEN "UM$", L440":B$(89)B$(78)17807A$(89)B$(89)İ2130TA$(89)B$(78)İ2160qA$(78)B$(89)İ2240A$(78)B$(78)İ2330&0VL$(1)(VL$(1),36):VL$(2)(VL$(2),36):VL$(3)(VL$(3),36):VL$(4)(VL$(4),21)DVL$(5)(VL$(5)$(I):DD1I"DDW11770k:"YOU'RE BEING INCONSISTENT; LET'S HAVE THIS INFO AGAIN !":1040u1630:"DOES CLASS ALWAYS MEET AT SAME TIME? ";:A$:A$(89)A$(78)1770A$:" PLACE? ";:B$HAT DAYS DOES THIS CLASS MEET?":"(TYPE Y/N FOR EACH DAY)":DW$(1)"SAT":DW$(2)"SUN":DW$(3)"MON":DW$(4)"TUE":DW$(5)"WED":DW$(6)"THU":DW$(7)"FRI"D1I17DW$(I);A$:A$(89)A$(78)1710" "A$ A$(89)MD$(D)DWE: "VL$(CF):"TO: ";VL$(CF)+,CF9İ1630<6CF10İ1770{@23:"MORE CHANGES? (Y/N) ";:A$:A$(89)A$(78)1600E" "A$JA$(89)ī1510T^:HL$(9)"(NUMBER)";hDWrDW7ĺ:DW" !! IMPOSSIBLE!; ENTER AGAIN ":1630<|:"W)BLD$(I)ID$;"PR# 0"%1K180;"*";BKHd:D$"PR# 1":" 80N";:l:wI09I". "HL$(I1)I:"CHANGE WHICH ? ";:A$:A$:CF(A$)1CF1A$(27)CF101560A$(27)ı"CF8ĺ"CHANG(3)))2)VL$(3):ZZVL$(4);:8)VL$(5)" / "VL$(6);:6)VL$(8)" CREDIT UNITS";:4)VL$(7)dd1460n::" DAY TIME ROOM BUILDING"xI1DW8)MD$(I);:15)BT$(I)" TO "ET$(I);:14)RN$(I);:6VL$(I)IDW"I1DWOMD$(I):BT$(I):ET$(I):RN$(I):BLD$(I)VIiD$"CLOSE "UM$oy1120870 1500I121460(I2<(80(VL$(1)))2)VL$(1)F(80(VL$(2)))2)VL$(2)P(80(VL$$:A$(78)A$(89)2360&+: " "A$7+B A$(78)18@+L 410I+V 530^+` NUNU1000:2050q+j (222)61870+o (222)41864+t 232+~ (222)6232+ 2244IUM$"":I12000:I::** (222)5240B* :D$"DELETE USERS"L* 250Z*$ 12:958*. "":"THERE ARE NO RECORDS FOR USERS ON THE DISK NOW IN THE DRIVE --"*3 :"DO YOU WISH TO PUT USER DATA FILES ON THIS DISKETTE? (Y/N) :"+8 17:23:AEACHERS' GRADEBOOK"::)10:"GOOD BYE FOR NOW . . . . "n)21:"(HIT TO PASS BOOK TO A NEW USER;") 23:" . . . TO CLOSE THE GRADEBOOK)") (16384)155(16384)1602306) 15:958) (16384)16018* 768,0:16368,0:((16384)1412246%(16368,00(2430Q(A%2260,2270,2280,2290,2300x(W$W$(1):1805:D$"RUN "W$(1)",D1"(W$W$(2):1805:D$"RUN "W$(2)",D1"(W$W$(3):1805:D$"RUN "W$(3)",D1"(W$W$(4):1805:D$"RUN "W$(4)",D1"):2:11::"T7)A%52300'zUI$UI$PW$*'L%(UI$)6'768,L%B'I1L%T'V$(UI$,I,1)i'V%(V$):P768Is'P,V%z'I'A$(27)2050':"":8:2::"INSERT TEACHERS' GRADEBOOK MASTER DISK."':11:8:"HIT WHEN READY.":16368,0:26401* 112014 870i1> 23:"DELETE THIS CLASS RECORD FROM FILE ? ";:A$:A$(89)A$(78)33901H A$(78)Ĺ34,0:26401R 9:958:16::"IF YOU DELETE THIS CLASS NOW, ALL ASSOCIATED RECORDS WILL BE DESTROYED."32\ 20:"DELETE CLASS &:A$:A$(89)A$(78)329010 A$(78)2640F0 K$K$(C)::1950u0 CR$(C)VL$(5):SCT$(C)VL$(6):CN$(C)VL$(4)0 26400 RECORD DELETION MODULE0 :16)"DELETION":34,20 5000 MLNC:591:CA%1" A$(27)Ĺ34,0 23:"(HIT TO CONTINUE TO QUIT)">/ 16368,0f/ (16384)155(16384)1603254/ (16384)155Ĺ34,0:2640/ 16368,0/ 1510/ A$(27)2640/ 1840/ A$(78)32600 23:958:"WRITE REVISION(S) TO FILE ? ";:A$1 .N 20800.S IN$VL$(1):F$VL$(2):DP$VL$(3)b.X CN$(NC)VL$(4):CR$(NC)VL$(5):SCT$(NC)VL$(6)l.l 2640.v RECORD CORRECTION/REVISION MODULE. 2430. 500. MLNC:591:CA%. A$(27)2640. 1120. 8700/3I%I%26:3073*- NC0X$(193):3076A- X$(K$(NC),I1,1)N- X%(X$)[- I%I%X%v- I%193I%I%26:3078- L$(I%)- C$C$L$- I-& K$(UI$,1)(C$,2)(UI$,2,1)(C$,2)(UI$,1)-+ K$(NC1)K$-0 CNC1-: 1950-? .D NCNC510 , 2970, 23:958^, 23:"WRITE THIS INFO TO THE CLASS FILE AS A NEW RECORD? ";, A$:A$(89)A$(78)3030, " "A$, A$(78)2640, , L$"":C$"":K$"", I14, X(I), I%((X26))193, I%I%(NC)- I%19$(I): +J I+T 2960^+^ :"INITIALIZE FIRST CLASS? (Y/N) ";:A$:A$(78)A$(89)2910q+c A$(78)2640+f :"ENTER THE FOLLOWING INFORMATION: ":34,2:4+h I18+r HL$(I);+| VL$(I):+ I+ 1630+ 1840+ A$(89)3010, 1 . ?" * 4:(40(IN$))2)IN$6* (40(F$))2)F$N* (40(DP$))2)DP$* 1:35:"(Y/N)";:A$:A$(27)A$(89)A$(78)2830* A$* A$(27)2640* A$(78)2918*" VL$(1)IN$:VL$(2)F$:VL$(3)DP$:8*, I48*6 HL$(I);+@ VL384)208İ1290) :2640R) RECORD INITIALIZAION MODULE) NC8ė:10:"9 CLASSES IS THE LIMIT FOR ANY ONE USER ON ONE DISK; YOU HAVE REACHED THE LIMIT!":1040:2640) 2430) NC02910* :"IS NEW CLASS ALSO HEADED . .;:A$:A$;(r A%(A$):A%1A$(27)A$(48)A%NC2672N(y A$(27)2640X(} 34,0h( A%02740t( J1NC( CJ:1240( 1070:23( (16384)208İ1290( 23( (16384)1552640( J( :2640( CA%:1240( 1112) (16FUSION ABOUT FILES AND PASSWORDS -- CHECK YOUR DISK AND RESTART"Q'> 1040:2599\'A 2535b'F p'P 16368,0y'R 630'U 34,0'Z A%2670,2770,3350,3200'd CLASS RECORD DISPLAY MODULE'n 34,2:470 (p 23:16:"WHICH ? "6&) PROGRAMi&* :"":8:7::"INSERT USER DATA DISKETTE.":&+ 11:8:"HIT WHEN READY.":16368,0&, (16384)1412604&2 2592&4 310&< P$PW$2625A'= 12:958:"":"THERE'S SOME CON THE GRADEBOOK SYSTEM AND CHECK THE LIST OF USERS."%$ 21:"HIT TO RESTART BOOK & SEE USERS.":23:"HIT TO TRY AGAIN DIRECTLY.":16368,0%% (16384)141(16384)1552597%& (16384)1412602%' 176:2561%( D$;"RUN BOOK"(219)256%$ :"ERROR "P" AT "PP:C$ (222)5(222)42562S$! :6:""$" "CANNOT FIND A MASTER FILE FOR THE LOGGEDUSER ON THIS DISK."5%# 11:"CHECK TO SEE THAT YOU HAVE INSERTED THE CORRECT DISK -- IF IN DOUBT, RETURN TO THE BEGINNING OF :D$"OPEN "N$%# :D$"DELETE "N$+# ># (222)62599R# (222)82572]# ""# 22:"CANNOT READ DISK IN DRIVE -- CHECK DISK AND HIT TO START AGAIN."# 16368,0# (16384)1412566# 16368,0: $ P(222):PP(218)2)"COLLEGE/FACULTY "." HL$(3)"DEPARTMENT "G" HL$(4)"CLASS NAME "^" HL$(5)"COURSE # "v" HL$(6)"SECTION # "" HL$(7)"CODE/LINE # "" HL$(8)"CREDIT UNITS "" HL$(9)"MEETING DAYS "" HL$(10)"MEETING TIMES & PLACES "" " 783:#(16384)160ė:,$ 16368,0:34,4::1420<$ A$(27)ı`$ M$(NE):M$(M$,2):M%((M$))$ F1M%0ė:"FILE IS FULL.":1390:3250$ F1BE1$ F11090$ $ J1E$ 2390$ F0JEİ512:$ J$ 2550$ 1160% K180OSE "N$ # <# :"CHECK FOR DUPLICATIONS OR OMISSIONS: "H# 34,6:S#$ J1E]#. 2390q#8 F0JEİ512:x#B J~#L #V T1:J10T2#` T)J". "ENTRY$(J,1)" "ENTRY$(J,2)" "ENTRY$(J,3)#j FJ16:F%(F):FFF%#t # 23:958:1570$ 16384)155I(EAN)""z16368,0("B":D$"OPEN "N$", L72"\":D$"WRITE "N$", R0"n"E:MARL%:NE":D$"CLOSE "N$"":D$"OPEN "N$", L72""IBE":D$"WRITE "N$", R"I"J19"ENTRY$(I,J1)"J"I#:D$"CL(8))52070-!15:"STATUS CODE IS WRONG--"7!1500U!"STATUS? ";S%:S%42050f! RL$(8)(S%)l!! C$(A%):CR$((I)):(CR$)10CR$"0"CR$!*CRC$C$CR$!4!>RL$(0)CRC$!HK19!RENTRY$(I,K1)RL$(K1)!\K!f640"p(L$(5)(RL$(5),4); RL$(6)(RL$(6),1):RL$(7)(RL$(7),5)R RL$(8)(RL$(8),1)v RL$(6)(70)RL$(6)(77)2020 19:"SEX CODE IS WRONG--TYPE OR " "SEX? ";RL$(6):RL$(6)(70)RL$(6)(77)2000 19:958 !(RL$(8))0(RL$K18BENTRY$(I,K)RL$(K)$CK*DHN:(40(NAME$))2)NAME$`X3:15:E" ENTRIES"fbl:28:"ENTRY # "I:vJ18RH$(J);:RL$(J)JRL$(1)(RL$(1),11):RL$(2)(RL$(2),11):RL$(3)(RL$(3),11) RL$(4)(RL$(4),12):R32:ST$(S)%J186J". "RH$(J)=J18:"CHANGE WHICH ? ";:A$:A$:F(A$):F1A$(27)F81820!A$(27)ı&20:"CHANGE: "ENTRY$(I,F)0"TO: ";ENTRY$(I,F)<K18=RL$(K)ENTRY$(I,K)>K@1940A6384)1951670#h16368,0:1780=jA$(27)A$"":1610G|II1NIT_:I:p:958:I:ENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3);:40:ENTRY$(I,6)ENTRY$(I,4);:16:ENTRY$(I,5);26:ENTRY$(I,7);S(ENTRY$(I,8))11:"3="ST$(3)" 4="ST$(4)!LNAME$CR$(A%)"/"SCT$(A%)" "CN$(A%)l:(40(NAME$))2)NAME$:"16368,0:23:"(TYPE TO CORRECT; TO CONT.)",(16384)195(16384)16015806@IBEJ1690T1570^(116:"WHICH ? ";:A$:A$<F(A$):F1A$(27)F21440BP23:958`I1300:In16368,02::"(HIT

TO PRINT; OTHERWISE )";(16384)160(16384)208148016:11:"1="ST$(1)" 2="ST$(2)Y/N) ";:A$:A$:A$(89)A$(78)1342H@A$(89)Q11:4210:1390RB:Q0fZB1:2230:2190ldn16368,0:23:10)"(HIT ANY KEY TO CONTINUE)";x(16384)128140016368,0:10:16:"1. ADD"12:16:"2. DELETE"16:"REGARDLESS OF HOW MANY RECORDS MAY BE DELETED FROM THIS FILE . . . "::y"SPACE FOR ONLY "M" ADDITIONAL RECORDS""IS BEING RESERVED."(15702(16384)195Ĺ16368,0:1240<16368,0:34,4:)>12:"SORT ROSTER BEFORE WRITING IT (MBER OF STUDENTS WHICH MIGHT HAVE TO BE ADDED TO THIS ROSTER ?"OSP%90Em12:18:M:M0M901250MSP%ĺ"TOO MANY; SPACE FOR A MAXIMUM OF "SP%" WILL BE RESERVED.":MSP%:1390MARL%((EM)1.1):MARL%90MARL%9034,4:L 10:0A$(27)A$"":1160!+34,49B1:1600HE991240:8:"YOU HAVE FILLED THE ROSTER FILE; NO LATER ADDITIONS WILL BE POSSIBLE."1390MARL%99:1340B:6:"IGNORING ANY POSSIBLE 'DROPS', WHAT IS THE MAXIMUM NU3 3103 34,0:264040WIT

TO PRINT; OTHERWISE );:GET A$W DESTROY RECORDS ? ";:A$:A$(89)A$(78)3420M2f A$(78)Ĺ34,0:2640S2k l2p N$K$(C)W$(2):25402z N$K$(C)W$(3):25402 N$K$(C)W$(4):25402 CNC35202 JCNC12 CJ1:1120:K$K$(C)2 CJ:19502 J2 NCNC12 2080:D$"OPEN "N$", L72".4$:D$"WRITE "N$", R"I94.J19L48ENTRY$(I,J1)S4BJe4LD$"CLOSE "N$o4V32504`23:958:12:"WHICH ENTRY (#) ? ";:A$:A$4cA$(27)ı4eA1$A$:23:31:A$:A$:A$(13)A1$A1$A$5hA$(13)Ģ23:32:A$:3632503 :910:17803 1690D3 23:7:"MORE CHANGES (Y/N) ? ";j3 A$:A$:A$(78)A$(89)3566}3 A$(89)35603 1690323:958:"WRITE REVISION(S) TO THE FILE (Y/N) ? ";:A$:A$(89)A$(78)35903A$(78)Ĺ34,2::3250434562z 29902~ 146022 (16384)208İ2850@2 16368,0J2 3250t2 34,2::NAME$"CHANGES":1540:34,4:2 J1E2 23902 F0JEİ512:2 J2 MLE:36802 IP:A$(27)32502 2 16902 6403 (16384)155Ĺ34,2:: A$(27)Ĺ34,0:2401 <1 F%3430,3360,3470,3700,4200F1 1460^1* (16384)2083406i14 I1Es1> 16901H 640:(16384)15532501I I1J :1K 14601L (16384)16034081N 26601P 16368,01\ 32501f 14602p (16384)208::1880:34,4:8?0 "1. ROSTER LISTING / DATA INPUT FORMS":g0 "2. REPORT COMPLETE ROSTER DATA":0 "3. CORRECT/CHANGE AN ENTRY":0 "4. ADD/DELETE STUDENTS":0 "5. SORT ROSTER ENTRIES"0 :D$"IN# 0":10020 16368,00 ML5:6221D TO CONTINUE"/| 6407/~ (16384)160Ĺ34,0::297@/ 240N/ 16368,0/ 23:16:"WHICH ? ";:A$:A$:A%(A$):A%1A$(27)A%NC3201/ A$(27)Ĺ34,0:240/ 34,0:1530:34,2/ N$K$(A%)"ROSTER"/ 670/ 760/ 6300 34,2G 11:8:"HIT WHEN READY.":16368,0G.H (16384)1413144R.I 3117[.X 360e.^ 630.b P$PW$ė:"THERE'S SOME CONFUSION ABOUT FILES AND PASSWORDS; START AGAIN.":1390:358.v 550.x NC03200/z 10:"YOU MUST HAVE A CLASS RECOR5 :D$;"RUN BOOK"R-? :"":8:2::"INSERT TEACHERS' GRADEBOOK MASTER DISK.":-@ 11:8:"HIT WHEN READY.":16368,0-A (16384)1413137-B -D PROGRAM-F :"":8:7::"INSERT USER DATA DISKETTE.":..THE BEGINNING OF THE GRADEBOOK SYSTEM AND CHECK THE LIST OF USERS.",1 21:"HIT TO RESTART BOOK & SEE USERS.":23:"HIT TO TRY AGAIN DIRECTLY.":16368,0,2 (16384)141(16384)1553122,3 (16384)1413142,4 3135:3104-(222):PP(218)(219)2567+, :"ERROR "P" AT "PP:U+- (222)5(222)43108c+. :6:""+/ "CANNOT FIND A MASTER FILE FOR THE LOGGEDUSER ON THIS DISK."E,0 11:"CHECK TO SEE THAT YOU HAVE INSERTED THE CORRECT DISK -- IF IN DOUBT, RETURN TO ES" * * 6400* (16384)155Ĺ34,0:240B* 34,2::3250T* (222)6358h*$ (222)83115*% "":22:"CANNOT READ DISK IN DRIVE -- CHECK DISK AND HIT TO START AGAIN."*& 16368,0*' (16384)1413111*( 16368,0:++ P 40:" "ENTRY$(I,4)) I,) D$;"PR# 0"2) :) :E) I1EW) T1:I10T2e) T)I".";) 4:ENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3)) FI16:F%(F):FFF%) F0IEİ512:) I) ) (80(NAME$))2)NAME$:* 35:E" ENTRI0"( (" 2650(, ((6 2510:2510.(@ Y(E NAME$CR$(A%)"/"SCT$(A%)" "CN$(A%)c(J 3070m(T 2510(^ :"INDEX";:12)"NAME";:18)"STUDENT #"(h (r I1E(t T1:I10T2(v T)I".";(| 5:ENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3);)I10T2' T)I". ";E' ENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3);^' 40:1)ENTRY$(I,4);' 13(ENTRY$(I,4)))ENTRY$(I,5);' 9(ENTRY$(I,5)))ENTRY$(I,6);' 5)ENTRY$(I,7);' X(ENTRY$(I,8)):4(ENTRY$(I,7)))ST$(X)' I( D$;"PR# &Z :D$"PR# 1":" 80N";:)&d 2650:9&n 2510:2510?&x j&} NAME$CR$(A%)"/"SCT$(A%)" "CN$(A%)t& 3070~& 2510& & "INDEX";:9)"NAME";:21)"STUDENT #";& 4)"MAJOR";:3)"SEX";:2)"YEAR";:3)"STATUS"& & I1E' T1: % "*";% K% X% 20:958:"DELETE WHICH (INDEX #) ? ";DB%:DB%1DB%E2550% EE1:34,2::15:E" ENTRIES":34,4% JDB%E% F%(ENTRY$(J1,0)):F%F%1% ENTRY$(J,0)(F%)%( K18%2 ENTRY$(J,K)ENTRY$(J1,K)%< K%F J&P $(3)JL%100L%100.TD$"OPEN "N$",L"L%E^D$"WRITE "N$",R0"RhL%:FL$]r"999"e|GCqI1GC}GC$(I)"00"ID$"CLOSE "N$NG999:14:"ENTER "W$" FOR . . . ?"18:13:"MONTH (1-12) ";:A$:A$;:A$15301390@:"THESE ARE THE DECLARED CATEGORIES: ":6LI1GC_I". "GC$(I):fIl",:12:"COMPLETE INITIALIZATION & OPEN FILE ? ";:A$:A$:A$(89)A$(78)15806A$(78)440@L%(MARL%4)44:FL$"OPEN":N$K$(A%)WEL"F10:"CHANGE WHICH? ";:A$:A$:A(A$):A1A$(27)A21430YA$(27)1380gA11310vA2İ153023:"CHANGE WHICH LABEL? ";:A$:A$:A(A$):A1A$(27)AGC1470A$(27)1380"CHANGE: "GC$(A)"TO: ";GC$(A)ACTERS)"<:I1GC.F"CATEGORY "I" : ";MPGC$(I):GC$(I)(GC$(I),8)TZI^d1530n23:"ANY CHANGES/CORRECTIONS ? ";:A$:A$:A$(89)A$(78)1390xA$(78)1580:4:11)"1. NUMBER OF CATEGORIES":11)"2. A CATEGORY LABD@B$(J)B$(L)5450#@K198@X$ENTRY$(J,K1)X@ENTRY$(J,K1)ENTRY$(L,K1)m@ENTRY$(L,K1)X$t@ K@X$B$(J)@B$(J)B$(L)@(B$(L)X$@2J@JI@T5030@|W)I1E?B$(I)ENTRY$(I,5)#?I-?43028?I1EN?B$(I)ENTRY$(I,6)U? I_?4302j?*I1E?4B$(I)ENTRY$(I,7)?>I?H4302?D1?DD2?DE5010?D((D1)2)?D05500?I1ED?" .";?JI1D@LJU>:10:"WRITE NEWLY SORTED ROSTER TO FILE ? ";:A$:A$:A$(78)A$(89)4326m>A$(89)B1:2230w>3250>I1E>B$(I)ENTRY$(I,3)" "ENTRY$(I,1)" "ENTRY$(I,2)>I>4302>I1E>B$(I)ENTRY$(I,4)>I>4302?A$(27)Ĺ34,4:3250==C%4280,4350,4500,4550,4600,4650H=I1E~=B$(I)ENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3)=I==6:"SORTING"=5000=:(7):(7)=2990=Q11ı=1460=(16384)208İ2850>16368,08:6:"1. FIRST-SECOND-LAST NAMES"L<10:6:"2. LAST-FIRST-SECOND NAMES"j<12:6:"3. STUDENT ID #"<14:6:"4. MAJOR SUBJECT"<16:6:"5. SEX"<18:6:"6. CLASSYEAR"<21:19:"WHICH ? ";:A$:A$:C%(A$):C%1A$(27)C%64260=1:3250;F;545:N$K$(A%)W$(3):545:N$K$(A%)W$(4):545:240S;JDB%E^;K19;ENTRY$(J,K1)ENTRY$(J1,K1);"K;,J;6BDB%:2230:2190;@3250;h ******************************SORT ROUTINE;r;|5:"SORT BY ? ";#<04100:10:"YOU ARE DELETING THE LAST REMAINING ENTRY IN THIS ROSTER FILE; SO, THE FILE AND ITS ASSOCIATED GRADES AND ABSENCES FILES--IF ANY--WILL ALSO BE DELETED.":15:15:"CONTINUE ? ";:A$:A$;:A$(78)A$(89)4094;A$(78)EEJ1E92390#9F0JEİ512:*9J99MLE:3680L9A$(27)3250Y9DB%(P)k9IDB%::1690923:"DELETE THIS RECORD FROM THE FILE ? ";:A$:A$:A$(89)A$(78)40709A$(78)32509EE1:34,2::15:E" ENTRIES":34,4:E08FI8P34,2::34,6$8Z160068n34,2::18808x12:"WRITE ADDITIONS TO THE FILE ? ";:A$:A$:A$(78)A$(89)39608A$(78)Ĺ34,2::32508NE(ENTRY$(E,0))1:2230:2190832508:NAME$"DELETIONS":34,2:1540:34,4:59:"THERE'S SPACE FOR "SP%" RECORD(S)."/7640N7(16384)155Ĺ34,0:3250Y7ANSP%b7910q734,2:960w775:"ENTER THE BASIC INFO FOR EACH STUDENT:"734,67 BE17IBEAN719007(CRC$(NE)72NENE177EI8<211"ADD HOW MANY STUDENTS ? ";AN:AN1AN903745@6SP%AN38106:"AT INITIALIZATION, SPACE WAS RESERVED FOR A MAXIMUM OF "MARL%" RECORDS--REGARDLESS"6"OF SUBSEQUENT DELETIONS . . . . ":6AN" ADDITIONS WOULD BE IN EXCESS OF THAT!"&714885jP(A1$):P1PML3680$5o05t:1420J5yA$(27)Ĺ34,4:3250[5~F3720,4000a55M$(NE):M$(M$,2):M%((M$))5M%0SP%05M%0SP%(MARL%(M%1))5SP%0Ģ8:"FILE IS FULL; NO ADDITIONS ARE POSSIBLE":1390:3250.68:", L"L% * D$"READ "N$",R"NG15* DT$:R$:AV:E%A* I1E%N* GL(0,I)U* In* D$"READ "N$",R"NG2z* I1GC* AV(I)* I* E%* I1E%** L$(I)*4 I*> D$"CLOSE "N$*H :6*R 1890:6*\ I1GC*f 14:"("AV(I)")":+1E1)X ENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3)L)b 3:"("ENTRY$(I,4)")";V)l 3580w)v 20:GL(0,F%);:30:L$(F%):) XI5:X%(X):XXX%) X0IEİ1250:) I) ) :NAME$"WEIGHTED-AVERAGES & FINAL GRADES":2820:34,4* :D$"OPEN "N$"IN# 0"!( :D$"OPEN "N$", L"L%*( TR06( I1NGL( D$"READ "N$",R"IT( C%e( C%G%3120( E%(TR):MX%(TR):DT$(TR):R$(TR):AV(TR)( J1E%(TR)( GL%(TR,J)( J(& TRTR1(+ TRCN%(G%)ING(0 I(: D$"CLOSE "N$(D )N I(16384)1602840'" %', K180/'6 "*";6'@ K<'J X'T :D$"PR# 1":" 80N";:`'^ :k'h I1E}'r T1:I10T2'| T)I". ";' ENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3)' FI12:F%(F):FFF%' F0IEİ1250:' I' ( :D$;S CONTINUES QUITS)";W& (16384)208(16384)160(16384)1552790]& c& & NAME$CR$(A%)"/"SCT$(A%)" "CN$(A%)& :(40(NAME$))2)NAME$:& 16368,0:23:"(TYPE TO CORRECT; TO CONT.)"' (16384)195TO CONTINUE)";&% (16384)12827106% 16368,0:t% 23:958:2::"(HIT

TO PRINT; OTHERWISE )";% X1300:X% 16368,0% (16384)160(16384)2082766% :% 23:958% X1300:X% 16368,0 & :"(

PRINT14:"FOR THE "N" GOOD SCORES:"H$< 16:6:"HIGH = "HI%;:PHI%MX%:1790W$F 22:P" %"$P 18:7:"LOW = "LO%;:PLO%MX%:1790$Z 22:P" % "$d 20:3:"AVERAGE = "AV;:PAVMX%:1790$n 22:P" %"$x 2700$ % 16368,0:23:10)"(HIT ANY KEY L%(K))0(L%(K))LO%LO%(L%(K)):# (L%(K))0MG%MG%1X# L%(K)999RT%RT%L%(K)_# Ke# q# NEMG%~# AVRT%N# AV(((AV100).5))100# # :8# 12:E" STUDENTS # 10:12:N" MARKS"#( 12:12:MG%" MISSING MARK(S)"$2 "V D$"OPEN "N$'"X D$"WRITE "N$",R0"="Z L%:FL$:NG$:GCI"\ J1GCU"^ GC$(J)}"` ZZ$(CN%(J)):(ZZ$)2ZZ$"0"ZZ$"j ZZ$"t J"~ D$"CLOSE "N$" " HI%0:LO%MX%:MG%0:RT%0:N0:" K1HI" L%(K)999L%(K)HI%HI%L%(K)!# ()!I!,!NGNG1:NG999NGNG999^!NG$(NG):(NG$)3NG$"00"NG$:NG$(NG$,3)l! NG(NG$)! CN%(B%)CN%(B%)1! D$"OPEN "N$",L"L%! D$"WRITE "N$",R"NG!$ B%:HI:MX%:DT$:R$:AV!. J1HI!8 L%(J)!B J!L D$"CLOSE "N$ fP(ENTRY$(J,5))MX%:1790. p27:P" %"8 z2830P (16384)1602220^ 16368,0 16:10:"CHANGE: ";:24:868:"TO: ";ENTRY$(J,5):(ENTRY$(J,5))MX%2200 JJ1 16368,0:J  I1E 3580!L%(F%)((ENTRY$(I,5))868713:2:ENTRY$(J,1)" "ENTRY$(J,2)" "ENTRY$(J,3)j 16:15:"MARK ? ";A:A0AMX%A(A)02060|16:21:868 ENTRY$(J,5)(A)*J4>J1EHR14:868:ENTRY$(J,1)" "ENTRY$(J,2)" "ENTRY$(J,3) \16:18:ENTRY$(J,5);730':"REFERENCE: ";R$:R$(R$,21)c:"MAXIMUM POSSIBLE POINTS ? ";MX%:MX%1MX%99819906:958:DT$;:8:"("R$")";:33:MX%" PTS"21:"ENTER THE MARK FOR EACH STUDENT: (IF NO MARK, ENTER <0> )"J1E13:1:(A$):B%1A$(27)B%GC19303A$(27)5110U:(40(GC$(B%)))2)GC$(B%)CN%(B%)19Ģ10:"THE GRADEBOOK ALLOWS FOR ONLY 20 MARKS PER GRADE CATEGORY; YOU HAVE REACHED THAT FOR THIS CATEGORY.":2700:34,2:511034,4W$W$(3):1.5))100::D$"OPEN "N$1:D$"READ "N$FL%:FL$:NG:GCR&J1GC^0GC$(J)j5CN%(J)q:JDD$"CLOSE "N$NX9bJ1GClJ". "GC$(J);:14:"("CN%(J)")":vJ 22:"ENTER MARKS FOR . . . ? ";:A$:A$:B%(27)Ĺ34,2:5110=P$A$:A$:A$;:A$(13)P$P$A$:A$`A$(13)Ģ18:13:868:1740M%((P$)):M%1M%12Ģ17:958:174020:15:"DAY (1-31) ";D%:D%1D%311750D1$(M%):D2$(D%)DT$D1$"-"D2$ P(((P10000)EN FILE":ML3:900:C%(V)0:A$(27)440G:C%5520,5310,7920W:3240:5220m:W$"GRADES ENTRY"}:1290:34,3::8:1540:1930:2020:34,7;:10:"CHECK ENTRIES & SEE PERCENTAGES ? ";:A$:A$:A$(89)A$(78)539E: THIS FILE CONTAINS NO GRADE RECORDS YET.":2700:5110J9PA$(27)440f9ZC%5320,5520,6540,80209d34,2::"THIS FILE IS CLOSED:"9n16368,09x89"1. SEE COMPONENT RECORDS":9"2. SEE WEIGHTED-AVERAGES & FINAL GRADES"::"3. REOP5220834,2::8+8"1. INPUT MARKS":R8 "2. DISPLAY RECORDS & AVERAGES":8"3. CALCULATE WEIGHTED-AVERAGES/GRADES":8"4. CHANGE/CORRECT AN ENTRY"8(D$;"IN# 0":10028216368,08<ML4:900:C%(V)89FNG999C%1ė:6:"IMPOSSIBL0:4407`16368,0+7jMLNC:900:A%(V)=7tA$(27)440G7~34,0W72810:34,2k7N$K$(A%)W$(2)x7W$W$(2)71010711207HINE1:HI$(HI):HI$(HI$,2):HI(HI$)7N$K$(A%)W$(3)7W$W$(3)7180079308FL$"SHUT"141486469726650%69306P$PW$ė:"THERE'S SOME CONFUSION ABOUT FILES AND PASSWORDS; START AGAIN.":2700:6256$8106.NC049606810:"YOU MUST HAVE A CLASS RECORD TO CONTINUE"6B9406L(16384)160Ĺ34,0::5257V34,35805J1G%15GL%(C%,J)GL%(C%,J)GL%(0,J)85J>5E5IK5]5D$"CLOSE "N$c55 PROGRAM5:"":8:7::"INSERT USER DATA DISKETTE.":511:8:"HIT WHEN READY.":16368,06(16384)4GL%(I,J)0:L$(J)""4 J&4I,4 @4*N$K$(A%)W$(3)Z44:D$"OPEN "N$", L"L%f4>I1NG|4HD$"READ "N$",R"I4RC%:G%:MX%4\DT$(0):R$(0):AV(0)4fJ1G%4pGL%(0,J)4zJ4MX%(C%)MX%(C%)MX%4GL%(C%,0)GL%(C%,0)15A$".00"314(A$))A$;*36)L$(F%)13I73E3S14550n3FL$"SHUT"ĺ"(FILE CLOSED: "DT$")";340:11)"AVE = "AV3D$;"PR# 0"33:8:"( . . . PATIENCE PLEASE; HOUSE-CLEANING)"3I173MX%(I)0:GL%(I,0)04J1906)"("P"%)"2:D$;"PR# 0"$2.22900822860B24120j2&H$"WEIGHTED-AVERAGES/GRADES":4140p20{2:I1S2DS1IS%2NENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3);2X40:ENTRY$(I,4);2b35802lXGL(0,F%):A$(X)3v(A$)2A$I1)" PTS.":1J1EF1ENTRY$(J,1)" "ENTRY$(J,2)" "ENTRY$(J,3);d1F%(((ENTRY$(J,0),2)))1ZZ$(GL%(I1,F%)):ZZ(ZZ$)140:3ZZ)GL%(I1,F%)1J1:34:"AV = "AV(I1);1PAV(I1)MX%(I1)1P((P10000).5):P((P))100 2%" 0:0D$;"PR#0"0G0H$CR$(A%)"/"SCT$(A%)" "CN$(A%)N0"1f0,(80(H$))2)H$:p0629000@S1I142100J28600T41200^(80(GC$(G%)))2)GC$(G%);0h3)"("TR")":0rI;:4:DT$(I1);0|12:R$(I1); 140:MX%(1/x(80(NAME$))2)NAME$(/4120H/(80(GC$(G%)))2)GC$(G%)N/Z/J1TRp/J;:4:DT$(J1);/12:R$(J1);/ZZ$(GL%(J1,F%)):ZZ(ZZ$)/40:3ZZ)GL%(J1,F%);/"/"MX%(J1)/J/:10:"N = "TR;020:"AV = "AV".X0ITRİ1250:10:958$.I*.6.I1NGP.:D$"OPEN "N$", L"L%f.D$"READ "N$",R"In. T%.T%G%3900.E%:MX%:DT$:R$.(DT$DT$(C%)R$R$(C%)3900.2R%(I):ING.<I.FD$"CLOSE "N$.P.Z2900.d2860/n OF THIS TYPE.":2700:34,2:5110--I1TR>-T2:I9T1M-T:I". ";v-T0:P$(DT$(I1),2,1):P$(45)T1-T)DT$(I1);:11:R$(I1);-ZZ$(GL%(I1,F%)):ZZ(ZZ$)-36ZZ:GL%(I1,F%);-36:"/"MX%(I1)-XI12:X%(X):XXX%C:900:G%(V)(,.A$(27)Ĺ34,2:5110@,8NAME$GC$(G%):2820J,B34,6T,L3010Z,V,`TR0Ģ10:"THERE ARE NO RECORDS OF THIS TYPE.":2700:34,2:5110,j8:ENTRY$(S%,1)" "ENTRY$(S%,2)" "ENTRY$(S%,3),t10!-~TR0Ģ10:"THERE ARE NO RECORDSp I"+z :"(FILE CLOSED: "DT$")".+ 2700:8+ 3150B+ 2762W+ (16384)160ıe+ 16368,0s+ SE:4360y+ + + I1HI+ L%(I)999+ I+ + F$ENTRY$(I,0):F$(F$,2):F%((F$)):+:8+1890+:D$;"IN# 0",$MLG4:" "GL(0,F%)(JDXI12:X%(X):XXX%@JNX0ISİ1250::6GJXIUJbS17030kJl:15:"AVE = "AVuJv2770J(16384)155Ĺ16368,0:34,2:5110J(16384)208İ4360:22:958:7030J16368,0JS1Ĺ34,2:5110J:KD$;"IN# J,F%)MX%(J))AV(J),IGL(0,F%)GL(0,F%)AV3IJ]IGL(0,F%)(((GL(0,F%)10000).5))100pIRTRTGL(0,F%)wIIIAVRTEIAV(((AV100).5))100I:6II1SIS1IS%I&ENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3);I03580J:3H@IHEF(F)=HJF1ĺ:"TOTAL <> 1.0 !!":2700:6610QHTN$K$(A%)W$(2)[H^1120oHcN$K$(A%)W$(3)Hh:10:" . . . CALCULATING . . ."HrRT0H|I1SHS1IS%H3580HGL(0,F%)0HJ1GCHMX%(J)0MX%(J)1IAV(GL%(;G10:"("GL%(I,0)")":"GI-G8:F0SG22:868:22:AV$:AV$"="6680bGAV1GC:8nGI1GC{GAV(I)AVG22:868GAV(I):GIG6740GI1GCG"16368,0G,22:868:22:AV(I):AV(I)0AV(I)16700H6FFAV(I):4,3 FF9401F(16384)155Ĺ34,2:5110?F16368,0GFSEQF4570[F34,4F:"ENTER THE RELATIVE WEIGHT FOR EACH TYPE: (USE DECIMALS; TOTAL MUST = 1.0)"F"HIT <=> TO EQUALLY WEIGHT ALL CATEGORIES"F8FI1GCGGC$(I)16384)155FL$"SHUT"5220CE<(16384)155Ĺ16268,0:34,2:5110fEF(16384)160Ĺ16368,0:6500tEP16368,0EZ4150:22:958:6440Ed34,4EnIExFL$"SHUT"5220E34,2:5110E34,2ENAME$"WEIGHTED-AVERAGES/GRADES":2820F3TRY$(J,0),2))-DZZ$(GL%(I1,F)):ZZ(ZZ$)GD39ZZ:" "GL%(I1,F)aDXJ12:X%(X):XXX%yDX0JEİ1250::8DJD20:958::"AVE = "AV(I1);D PAV(I1)MX%(I1)DP((P10000).5):P((P))100D14:"("P"%)"D(2770E2(3010FCtTR0Ģ10:"THERE ARE NO RECORDS OF THIS TYPE.":2700:6180aC~3:25:"("TR")":34,4mCI1TRsCCI;:4:DT$(I1);:11:R$(I1);:33:MX%(I1)" PTS"C34,6::8CJ1ECENTRY$(J,1)" "ENTRY$(J,2)" "ENTRY$(J,3); DF((ENB(16384)208İ3930:22:958:61005B16368,0?B34,2EBLBIaBFL$"SHUT"5220qB$34,2:5110B.:6:1890B8MLGC:900:G%(V)BBA$(27)FL$"SHUT"5220BLA$(27)5110BV:34,2:NAME$GC$(G%):2820B`N$K$(A%)W$(3)Cj%);Ap32:"/"MX%(J1)0AzTS%TS%GL%(J1,F%)EATM%TM%MX%(J1)_AXJ12:X%(X):XXX%~AX0JTRİ1250:7:958:AJAAVTS%TM%AAV(((AV10000).5))100A21:"N = "TR;A14:"AVE = "AV"%"A2770A(16384)1556170')" "ENTRY$(I,3)@3580'@ :2820J@5:(40(GC$(G%)))2)GC$(G%)T@ 34,6g@*8:TS%0:TM%0s@4J1TR{@6T1@8P$(DT$(J1),2,1):P$(45)T2@>T)DT$(J1);@H7:R$(J1);@RZZ$(GL%(J1,F%))@\ZZ(ZZ$)Af(32ZZ):GL%(J1,F)?A$(27)5520 ?:3010_?TR0ė:10:"THERE ARE NO "GC$(G%)" RECORDS!":2700:6180i?34,2t?I1S?S15870?NAME$ENTRY$(S%,1)" "ENTRY$(S%,2)" "ENTRY$(S%,3)?5900?S%(ENTRY$(I,0))@NAME$ENTRY$(I,1)" "ENTRY$(I,2SPACE>)";>:16368,0?>D(16384)141(16384)1605700b>N(16384)160Ĺ16368,0:5740p>X16368,0z>b2910>l22:958:12:"WHICH STUDENT ? ";S%:S%1S%E5740>vIS%:3580>34,4>D%28750>:6:1890?MLGC:900:G%(V$(27)5110#=D%5610,5610,6190C=:10:10:"1. ONE STUDENT"b=12:10:"2. ALL STUDENTS"t=ML2:900:SV=A$(27)5520=S2SE:5760=:5=&"ENTER THE INDEX # FOR THIS STUDENT:":34,6 >023:"(HIT FOR INDEX; OTHERWISE <110<34,2:/<4:W$"REPORTS":1290:34,4c<10:"1. STUDENT(S) X ALL GRADES (OF A TYPE)"<12:"2. X SUMMARY (BY TYPES)"<14:"3. GRADES (OF A TYPE) X ALL STUDENTS"<ML3:900:D%(V)<A$(27)FL$"SHUT"5220 =A0;A$(78)5420;"2110B;,:12:14:"SUMMARIZING . . . "L;63540\;@2240:2450f;J2460p;T2530z;^2570;h:16:"WRITE THESE MARKS TO THE FILE ? ";:A$:A$:A$(89)A$(78)5480;rA$(78)Ĺ34,1::5110;|2290<34,2::5:A$(78)A$(89)85604Zz!A$(78)Ĺ34,2:5110:Z!IZ!RT%0:GG0YZ!I1E%(C%)Z!GL%(C%,I)999RT%RT%GL%(C%,I)Z!GL%(C%,I)999GL%(C%,I)0GGGG1Z!IZ!AVRT%GGZ!AV((AV100).5)100Z!3820Z!:D$"OPEN "N$", L"L%[!:8Y>!C%C%1;YH!DT$(C%)" "R$(C%)" ("MX%(C%)" PTS.)"oYR!11:ENTRY$(S%,1)" "ENTRY$(S%,2)" "ENTRY$(S%,3)Y\!16:"CHANGE: "GL%(C%,F%)" TO: ";Yf!GL%(C%,F%):GL%(C%,F%)0GL%(C%,F%)MX%(C%)8550Zp!22:"WRITE THIS MARK TO THE FILE ? ";:A$:A$X CN%(G%)CN%(G%)1X 2390.X 34,2:51107X :6AX 2910tX 22:10:"WHICH STUDENT ? ";S%:S%1S%E8440X!IS%:3580X !3590X!A$(27)8020X !:D$;"IN# 0":1002X*!22:"CHANGE THE MARK FOR WHICH RECORD ? ";C%:C%1C%TR8490Y4!%(0,J) WN JWX D$"CLOSE "N$6Wb D$"OPEN "N$",L"L%MWl D$"WRITE "N$",R"IkWv T%:E%:MX%:DT$:R$:AVwW J1E%W GL%(0,J)W JW D$"CLOSE "N$W IW NGNG1:NG0NG999W NG$(NG):(NG$)3NG$"00"NG$:NG$(NG$,3)W NG(NG$)AV(C%)"/"MX%(C%)")"NV16:17:"(Y/N) ? ";:A$:A$:A$(78)A$(89)8160hVA$(78)Ĺ34,2:5110nVxV3820V NG1R%NG8370V IR%NG1V :D$"OPEN "N$", L"L%V& D$"READ "N$",R"I1V0 T%:E%:MX%:DT$:R$:AVV: J1E%WD GL STDS.)"U|ML2:900:C%(V)1UA$(27)5110CUC%8420,8090MU3590`UA$(27)8020oUD$;"IN#0"U22:6:"DELETE WHICH RECORD ? ";C%:C%1C%TR8120UC%C%1U:8:"DELETE ALL MARKS FOR . . . "V11:DT$(C%)" "R$(C%)" (AVE="(78)5220$T:D$"OPEN "N$",L"L%;T"D$"WRITE "N$",R0"KT,L%:"OPEN"]T6D$"CLOSE "N$lT@FL$"OPEN"|TJ34,2:5110TT:NAME$"REVISIONS"T^34,2:2820:34,4Th10:"1. CHANGE A MARK FOR 1 STUDENT"Ur12:"2. DELETE A GRADE RECORD (FOR ALL"SD$"CLOSE "N$"SFL$"SHUT",S5220S:6:"RE-OPENING THE FILE WILL EFFECTIVELY ERASE PREVIOUSLY CALCULATED WEIGHTED- AVERAGES AND FINAL GRADES."S12:"CONTINUE AND RE-OPEN FILE (Y/N) ? ";SA$:A$:A$(78)A$(89)7940 TA$,R"NG1R(DT$:R$:AV:HI(R2I1HIAR<XGL(0,I):X%(X.5)IRFX%PRPIjRZD$"WRITE "N$",R"NG2vRdI1GCRnAV(I)RxIRHIRI1HIRL$(I)RIRD$"CLOSE "N$R:D$"OPEN "N$", L"L%RD$"WRITE "N$",R0"SL%:"SHUT:10:"WRITE WEIGHTED-AVERAGES & GRADES TO FILEAND CLOSE FILE?"oQ14:19:A$:A$:A$(89)A$(78)7650QA$(78)Ĺ34,2:5110QW$"FINAL GRADES":1730QR$"WEIGHTED-AVERAGE"Q N$K$(A%)W$(3)Q:D$"OPEN "N$", L"L%RD$"WRITE "N$"P22:"CHANGE GRADE FOR WHICH STUDENT (#) ? ";C%:C%1C%HI7580RPIC%:3580P22:958:"CHANGE: "L$(F%)" TO ";:L$(F%)PL$(L$(F%),1):X(L$):X65L907600P(L$(F%))2L$(L$(F%),1):X(L$):X65X43X45X907600P7460AQ6384)1555110&O8(16384)16075204OB16368,0>OL4360ROV22:958:7470\O`:10jOj16368,0Ot"ADJUST ANY OF THESE FINAL GRADES, AT TEACHERS' DISCRETION (Y/N) ? ";O~A$:A$:A$(78)A$(89)7550OA$(78)7640O2910C7320 NINN22:"MAKE ANY CHANGES ? ";:A$:A$:A$(89)A$(78)7370aNA$(89)7300N:10:" . . . CALCULATING . . . "NI1EN3580NJ1R%NGL(0,F%)P(J1)ĂJNL$(F%)DT$(J)NIN$:34,4:3150N.2770O3(1:"ENTER THE GRADE FOR EACH RANGE: (LETTERS AND + OR - ; 2 CHARS. MAX.)"YM8eMI1R%MI7:15:868:DT$(I)M(DT$(I))27320MA$(DT$(I),1):A(A$):A65A907320N(DT$(I))2A$(DT$(I),1):A(A$):A65A43A45A902LP(I)" - ";:P(I1):P(I1)0P(I1)P(I)7170>L R%R%1QLP(I1)0I15XL IaL*:8rL4P(1)"-"P(2)~L>I2R%LH2:P(I)"-"P(I1)LRIL\22:"ANY CHANGES ? ";:A$:A$:A$(78)A$(89)7260LfA$(89)7130Lp22:958RMz50"\K23:958:"ASSIGN GRADES TO WEIGHTED-AVERAGES ? ";:A$:A$:A$(78)A$(89)7100vKA$(78)Ĺ34,2:5110K:"YOU MAY DECLARE UP TO 12 GRADE RANGES; ENTER THE LOWER PARAMETER FOR EACH:"K8:958K7:KP(1)100:R%0KI112650( (16384)160Ĺ16368,0:34,2:6 16368,0@ 1550\ F1BNA1:34,2:2160u 34,4::35,22:2050 35,24:23:"DELETE WHICH (INDEX #) ? ";DB:DB1DBE2240 D0 J1NA1 AB%(J)DB2290 DJ:JNA1 J.!D0Ģ34,7: J1NAWAB$ENTRY$(AB%(J),1)" "ENTRY$(AB%(J),2)" "ENTRY$(AB%(J),3)p Q$(AB%(J)):Q(Q$)*T2:Q2T14T)AB%(J);:4:AB$>FJ12:F%(F):FFF%HF0(JNA)İ1520:RJ\fB1:NA0p1830z2040 1J1E3600+F0JEİ652:8:9582J@22:958KJBE23:958:12:"ABSENCE "J" ";:AB%(J):AB%(J)1AB%(J)E1980820(16384)155NAJ:JE16368,0J34,5::"CHECK YOUR REPORTED ABSENCES:"8)DT$::"ENTER ABSENCES, BY INDEX (#) :":34,6=:16368,0rD23:"(HIT FOR INDEX; OTHERWISE )";N(16384)141(16384)160(16384)1551870S(16384)1554660X(16384)160Ĺ16368,0:1960b16368,0l:8v(FM$)1FM$"0"FM$8FD$(FD%):(FD$)1FD$"0"FD$HT1$TM$TD$XT2$FM$FD$(T1$)(T2$)ĺ"THIS DATE PRECEDES FIRST CLASS DAY!":1520:1680D1$(M%):D2$(D%)DT$D1$"-"D2$3810&:(40(D$(Z)))2)D$(Z)/01W$" FOR . . . ?"B15:13:"MONTH (1-12) ";M%:M%1M%121690fTM$(M%):(TM$)1TM$"0"TM$17:15:"DAY (1-31) ";D%:D%1D%311710TD$(D%):(TD$)1TD$"0"TD$19:13:"YEAR (YYYY) ";Y%:Y%FY%Y%FY%11730FM$(FM%):,0*J(16384)160(16384)20816100O6Ta^NAME$CR$(A%)"/"SCT$(A%)" "CN$(A%)h:(40(NAME$))2)NAME$:r16368,0:23:"(TYPE TO CORRECT; TO CONT.)"|(16384)195(16384)1601660:10:"ENTER "IT ANY KEY TO CONTINUE)";1(16384)1281530A16368,0:]21:958:15:"1. ADD"r15:"2. DELETE""24:19:A$:A$:F(A$):F1F21570,623:958;X1300:X@2::"(HIT

TO PRINT; OTHERWISE )";E16368J1E D$"READ "N$", R"J>ENTRY$(J,0):ENTRY$(J,1)\ENTRY$(J,2):ENTRY$(J,3)zENTRY$(J,4):ENTRY$(J,5)ENTRY$(J,6):ENTRY$(J,7)ENTRY$(J,8)JD$"CLOSE "N$:2:(40(W$))2)W$:16368,0:23:10)"(H0""00":"00":"0000"%"000"8FM$:FD$:FY$K FM$:FD$:FY$SDW_I1DWk(MD$(I)r2I<D$"CLOSE "N$F4640P:D$"OPEN "N$",L72"Z:D$"READ "N$", R0"dE:MARL%:NEnD$"CLOSE "N$x:D$"OPEN "N$", L72" 8,0R`$"CALCULATE WEIGHTED-AVERAGE(S) TOO ? ";:A$:A$:A$(78)A$(89)9390l`$A$(78)Ĺ34,2:5110`$34,2::NAME$"WEIGHTED-AVERAGE":2820:34,3`$6600,F%)):ZZ(ZZ$)&_$30ZZ:GL%(J,F%);:_"$30:"/"MX%(J);P_,$MX%(J)0ĺ:9300i_6$P(GL%(J,F%))MX%(J)s_@$1790_J$35:" = "P"%"_T$J_^$_h$K_r$D$;"PR# 0"_|$_$FL$"SHUT"5220_$FL$"SHUT"Ĺ34,2:5110_$16368,0`$:12:16369350^#2900:2860^#4120=^#H$"GRADES SUMMARY":4130I^#:2860O^#Z^#K1Sh^#S1KS%^#ENTRY$(K,1)" "ENTRY$(K,2)" "ENTRY$(K,3)^#"("ENTRY$(K,4)")"^#J1GC^#10:GC$(J);^#20:"("GL%(J,0)")";^$IK:3580_$ZZ$(GL%(J24:" = "P"%"]#J] #2770B]#(16384)155FL$"SHUT"5220a]#(16384)155Ĺ34,2:5110](#(16384)208TS:B%S%:S1:S%(I):9100:ST:S%B%:22:958:8970]2#16368,0]<#I]F#S19350]P#:2762]n#(16384)1609350]x#9100^# "ENTRY$(I,2)" "ENTRY$(I,3)4\~":"("ENTRY$(I,4)")"<\"10H\"J1GCU\"GC$(J);n\"10:"("GL%(J,0)")";x\"3580\"ZZ$(GL%(J,F%)):ZZ(ZZ$)\"19ZZ:GL%(J,F%);\"19:"/"MX%(J);\"MX%(J)0ĺ:8960\"P(GL%(J,F%))MX%(J)\"1790]"D$"WRITE "N$",R"R%A[!G%:E%(C%):MX%(C%):DT$(C%):R$(C%):AVQ[!I1E%(C%)`["GL%(C%,I)g["Iy["D$"CLOSE "N$[$"34,2:5110[."34,2:[8"NAME$"GRADES SUMMARY":2820:34,3[B"4570[L"[V"I1S[`"S1IS%[j":6\t"ENTRY$(I,1)"D$(Z)", "NM%"-"ND%"-"NY%r012:"ENTER ABSENCES FOR THIS DATE? ";:A$:A$:A$(89)A$(78)A$(27)40600A$(27)46600A$(89)DT$(NM%)"-"(ND%):014:"1. CLASS TAUGHT -- NO ABSENCES"0"2. CLASS WAS NOT TAUGHT " 1"3. G" /4030$/M%LM%:D%LD%:Y%LY%./3810v/"THE MOST RECENT DATE FOR WHICH ABSENCES HAVE BEEN CONSIDERED IS:"/D$(Z)", "LM%"-"LD%"-"LY%;:24:"("CDT%" DAYS TAUGHT)"/M%NM%:D%ND%:Y%NY%:3810/8:"THE NEXT CLASS DAY IN SEQUENCE IS:"0"SUNDAY".N(0.61M%)&. LY%N4.PM%12N@.CL100L.(Y1(C)Z.2Z1(C4)j.<Z3(5L4).FZ4(13(P1)5).PZZ4Z3Y1Z1D%5.ZZZ(7(Z7))1.d.n:4.sA0:W0.xLM%03990/"NO ABSENCES HAVE BEEN REPORTED YET.-~"("ENTRY$(I,0)") ";F-ENTRY$(I,1)" "ENTRY$(I,2)" "ENTRY$(I,3)`-FI12:F%(F):FFF%u-F0IEİ1520:|-I--4490-D$(1)"MONDAY":D$(2)"TUESDAY"-D$(3)"WEDNESDAY":D$(4)"THURSDAY" .D$(5)"FRIDAY":D$(6)"SATURDAY":D$(7), J7, 23:958:16:"WHICH ? ";S%:S%1S%E3570A, 34,2G,Y,T1:J10T2,T)J". "ENTRY$(J,1)" "ENTRY$(J,2)" "ENTRY$(J,3),$FJ12:F%(F):FFF%,.,8K180,B"*";,LK,V,`:D$"PR# 1":" 80N";:,j:-tI1E 34,7:16368,0D+ 23:"(HIT FOR INDICES; TO CONT)"{+ (16384)141(16384)160(16384)1553470+ (16384)1554660+ (16384)160Ĺ16368,0::3570+ 16368,0+ :8+ J1E+ 3600+ F0JEİ652:8:958K31ĺ:T:"(MOST RECENT 30)":KY:3420>*. T$(AR$(J,K),H,1)T*/ T$(45)TH:H3[*0 Hf*2 TTSTw*9 T:AR$(J,K)*> FK12:F%(F):FFF%*H F0TS25:10*R K24KYİ652::TS12*\ K*f *p :6:"ENTER THE INDEX # FOR THIS STUDENT:"+z$(J,2)" "ENTRY$(J,3) ) 1640N) (40(ENTRY$(J,4)))2)"("ENTRY$(J,4)")"X) 34,5^) ) 7:"ABSENCES = "AR$(J,1);:22:"THROUGH "LM%"-"LD%"-"LY%) 22:"DAYS TAUGHT = "CDT%) :34,9) Y(AR$(J,1))1) TS12)* K2Y), H23'*- (? AR$(L,M)AR$(L,M1)(@ M/(B AR$(L,31)DT$9(C 3145L(D AR$(L,X1)DT$T(I LE[(N Lb(X Ki(b J{(l D$"CLOSE "N$(v ( ( J1E( 3280( 3330( 820( (16384)1554660( 34,2:( J( ) NAME$ENTRY$(J,1)" "ENTRYM%:LD%:LY%' CDT%)' NM%:ND%:NY%<' FM%:FD%:FY%D' DWP' I1DW\' MD$(I)c' Io' J1AEw' NA' DT$' K1NA' AB$'& L1E'0 AB$AR$(L,0)3150'5 X(AR$(L,1)):XX1': AR$(L,1)(X)'< X303140'> M230;&^ FK10:F%(F):FFF%&&h F0ĺ-&r K5&| :<& JJ& D$"PR#0"P& [& J1E& AR$(J,0)ENTRY$(J,0):AR$(J,1)"0":AR$(J,2)""& J& 8:958:"COUNTING "W$(4)& :D$"OPEN "N$& D$"READ "N$& AE:AEAE1000& AE03180 ' L% ENTRY$(J,1)" "ENTRY$(J,2)" "ENTRY$(J,3);H% 40:"("ENTRY$(J,4)")";f% 8)"ABSENCES = "AR$(J,1)~%" (AR$(J,1))02950%, Y(AR$(J,1))1%6 F0%@ K2Y%E K31ĺ3)"(MOST RECENT 30)":KY:2930%J S7(AR$(J,K1)):F0S5&T S)AR$(J,K)% $ DW$ I1DW!$ MD$(I)($ I:$ D$"CLOSE "N$@$ P$ 3680:3640{$ NAME$CR$(A%)"/"SCT$(A%)" "CN$(A%)$ $ (80(NAME$))2)NAME$$ (80(W$))2)W$;:18)"THROUGH "LM%"-"LD%"-"LY%$ 62)"DAYS TAUGHT = "CDT%:$ J1E,Y$ # CDT$# NM$:ND$:NY$1# D$"CLOSE "N$7#( #2 23:958:"WRITE THESE "W$" TO THE FILE ? ";:A$:A$:A$(89)A$(78)2610#< #F :D$"OPEN "N$#P D$"READ "N$#Z AE%#d LM%:LD%:LY%#n CDT%#x NM%:ND%:NY%$ FM%:FD%:FY"j NA"t DT$"~ I1NA@" P$ENTRY$(AB%(I),0):P%((P$))N" AB%(I)P%Z" AB%(I)a" Is" D$"CLOSE "N$" D$"OPEN "N$" D$"READ "N$" AR" D$"CLOSE "N$" D$"OPEN "N$" D$"WRITE "N$" W2ĺAR:2560" AR1# LM$:LD$:L20:958::"NO MATCH; TRY AGAIN!":1520:2230I1DW@@MD$(I)@BI@DJ1AE@FNA@PDT$@ZL1NA@dAB$@nPP1AxDT$DA$AB$ENTRY$(S%,0)PP11DW(2958:"DELETE ABSENCE FOR WHICH DATE ? ";DA$;?Y31Y31F?K2Y^?DA$AR$(S%,K)5130e?Ks?20:958?"DELETION DOES NOT MATCH ANY ENTRIES! -- TRY AGAIN."?820?(16384)1554660?19:958:5050? X$"XXX"?P0 @:DFILE.">B1520:4660 >L3200.>N16368,0:>V:1590U>`(16384)208ė:2760c>j16368,0m>t4660w>~3440>JS%:3280>2980>JS%::3330>(AR$(J,1))0Ģ16:"NO ABSENCES REPORTED . . . !":1520:4660>:D$;"IN# 0",?22:(LY%)*=NM$(NM%):(NM$)1NM$"0"NM$O=ND$(ND%):(ND$)1ND$"0"ND$^=NY$(NY%)l=W24873v=2390=W24880= 2490=4660=NAME$"REPORTS":1640=2980=(7)=$AE04940=.>86:"NO ABSENCE REPORTS IN THE 24790<2150<2610.<A$(78)4660<<A34805L<CDT%CDT%1h<LM%NM%:LD%ND%:LY%NY%r<4220<CDT$(CDT%):(CDT$)3CDT$"00"CDT$:CDT$(CDT$,3)<LM$(LM%):(LM$)1LM$"0"LM$<LD$(LD%):(LD$)1LD$"0"LD$=LY$H8:"2. REPORT STUDENT ABSENCES":K;R8:"3. DELETE A REPORTED ABSENCE"c;\:D$;"IN# 0":1002;f18:16:"WHICH ? ";:A$:A$:C%(A$):C%1A$(27)C%34710;kA$(27)340;pC%4730,4890,4990;zW$W$(4):3950;~W2A14775<W2A(27)340:34,0$:1630:34,28:N$K$(A%)W$(2)B:750L:1360V:740:NE$(NE):HI$(NE$,2):HI%((HI$)):HI%HI%1: N$K$(A%)W$(4):900: 2630:*740:434,2::8:916368,0:>8:"1. ENTER ABSENCE REPORTS":$;!9NAME$"ABSENCES":1640:34,2*966099NC04545m910:"YOU MUST HAVE A CLASS RECORD TO CONTINUE"v98209(16384)160Ĺ34,0::4089340916368,0923:958:16:"WHICH ? ";:A$:A$:A%(A$):A%1A$(27)A%NC4550 :A$ PROGRAM;8e:"":8:7::"INSERT USER DATA DISKETTE.":l8g11:8:"HIT WHEN READY.":16368,08h(16384)14144568j44358l4708vP$PW$ė:"THERE'S SOME CONFUSION ABOUT FILES AND PASSWORDS; START AGAIN.":1520:45897407Y(16384)1414453)7Z4444:4426>7[:D$;"RUN BOOK"}7\:"":8:2::"INSERT TEACHERS'GRADEBOOK MASTER DISK.":7]11:8:"HIT WHEN READY.":16368,07^(16384)14144467_8d THE CORRECT DISK -- IF IN DOUBT, RETURN TO THE BEGINNING OF THE GRADEBOOK SYSTEM AND CHECK THE LIST OF USRS."6W21:"HIT TO RESTART BOOK & SEE USERS.":23:"HIT TO TRY AGAIN DIRECTLY.":16368,07X(16384)141(16384)1554440(16384)1414430%5P16368,0:G5QP(222):PP(218)(219)256b5R:"ERROR "P" AT "PP:5S(222)5(222)444275T:6:""5U"CANNOT FIND A MASTER FILE FOR THE LOGGEDUSER ON THIS DISK."q6V11:"CHECK TO SEE THAT YOU HAVE INSERTEDZ),3)MD$(I)ı40I4:4220K4DNM%NM%1:ND%1:NM%13NM%1:NY%NY%1Q4Ec4H(222)6410m4I44274J(222)64584K(222)844334L"":22:"CANNOT READ DISK IN DRIVE -- CHECK DISK AND HIT TO START AGAIN."4M16368,05N4203NM%5ND%31İ442033NM%6ND%30İ4420K3NM%7ND%31İ4420c3NM%8ND%31İ4420{3NM%9ND%30İ44203NM%10ND%31İ44203NM%11ND%30İ44203NM%12ND%31İ44203M%NM%:D%ND%:Y%NY%338103I1DW4&(D$(1262 W2ı2"A4140,4150/2,CDT%CDT%1K26LM%NM%:LD%ND%:LY%NY%U2@4220_2J3950k2r1680:y2|ND%ND%12NM%1ND%31İ44202NM%2ND%28NY%4(NY%4)0İ44202NM%2ND%29İ44202NM%3ND%31İ44203NM%4ND%30İ4O BACK TO ENTER OMITTED ABSENCE"a118:16:"WHICH ? ";:A$:A$:A(A$):A1A$(27)A34120t1A$(27)46601A34210113:958114:9:"1. CONTINUE -- NEXT DAY"116:9:"2. QUIT"218:16:"WHICH ? ";:A$:A$:W(A$):W1W24J):5270ALAJ(AD$"CLOSE "N$9AD$"OPEN "N$SAD$"POSITION "N$",R"PeAD$"WRITE "N$mAX$AD$"CLOSE "N$A4660W660Wz#     ͠ˠ%Ӡ-Ҡ:ӠZӠ;TECTED.":190:230:S2730010:E0:5020u EC10ĉ:210:12:T$"DLXX00 IS LOCKED.":190:230:S2730010:E0:5020:210:10:T$MG$:190:11:T$"IN SLOT "LH$" DRIVE "DH$:190:230:S2730010:E0:5020:MIMI%(MS):NN$"003":LS$"UTS"NN$32,1:34,1:235e22:T$"ENTER YOUR SELECTION -> ":185:200:SHX:SVY:SC2:SL2:180:S27ī30010qE5100MS(RS$):MS1MSMN1DF$RS$:G$;:5120 22:T$N$:185:MSMN15135( 3100:E05100:EC4ĉ:210:12:T$"DISKETTE IS WRITE PRO**************************"::YT223:1:YT:"*";:40:"*";::1:T$AS$:190:T$PD$:190:T$(AS$,33)RN$(AS$,2):24:190:3:9:"TODAY'S DATE ";CD$:I1MN:I5:HC1(I9):I;". ";MS$(I);:I:I5:HC1(I9):I;". CHANGE TODAY'S DATE":33,38:DH):VH$(VH):MS$(12),MI%(12),NP$(12),FT$(12)DN1:VL$"UTS003":240:Eĉ:210:10:T$MG$:190:11:T$"IN SLOT "LH$" DRIVE "DH$:190:230:S2730010:E0:5020OD$DA$:TD$DA$:CD$(TD$,3,2)"/"(TD$,5,2)"/"(TD$,1,2):3000:AS$"************N$:260:E0CD$RS$:TD$(ST$,5,2)(ST$,1,2)(ST$,3,2):3030F! .36352:202:195:PD$"** DAKIN5 PROGRAMMING AIDS 3.3 MENU **":N$"":NP$N$:LS$"UTS003":MG$"INSERT THE DISKETTE MARKED "LS$:LH(47095)16:VH(47094):DH(47096):LH$(LH):DH$(S:MS0ī3020r MS$:NP$:FT$:MI%(MI)MI:MS0MNMN1:MS$(MN)MS$:NP$(MN)NP$:FT$(MN)FT$:(MS$)HCHC(MS$)x  HC(38HC)2: 202:OP$;LF$;",L18":RE$;LF$;",R0":DL$:WR$;LF$;",R0":(DL$,11);TD$;D$:CL$;LF$::@ SH3:SV3:DF$CD$:DD$:aXTSH:YTSV:DT$DF$:YT:XT:"ENTER DATE (MM/DD/YY) ";:200:SHX:SVY:SL8:SC0:180:Eı SV:SH:(RS$SP$,8);:DT$RS$:T$RS$:250:E0ıE$DD$" DATE IS INVALID.":225:E0SHXT:SVYT:DF$DT$:260  :MN0:HC18:MM:MI1MM:MT$,6,1)"/"ı]ST$(T$,2)(T$,4,2)(T$,7):T1(ST$):T1((ST$,T,1))48:T10T19ı:MM((ST$,2)):DD((ST$,3,2)):YY((ST$,5)):DD1MM1MM12YY70ıT(MM4MM6MM9MM11):DD(28(MM2YY(YY4)4)(MM2)(2(T)))ıE0$:185:200:SHX:SVY:SC0:SL0:180:220:G198:T150::198:202:E0:DL$"":DA$DL$:OP$;LF$;",L18":RE$;LF$;",R0":DL$:DA$(DL$,12):DL$(DL$,11):E((DL$,1,(VL$))VL$):RN$(DL$,8,3)CL$;LF$::E1:(T$)8(T$,3,1)"/"(23:T$EP$:185:, 936:1:T$PD$:185: SC0:SL1:DT$DF$:XTSH:YTSV:XT:YT:PS$;:200:205:SHX:SVY:180:RS$"Y"RS$"N"E0ĺG$;:DF$DT$:SHXT:SVYT:215 T$"":TY2223:TY:185:: G$;:22:T$E$:185:23:T$"":185+23:T$EP ":ZR$"0000000000" 768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:31000 X(36)1:Y(37)1: 34,0:35,0:33,1:32,0:: 22:T$"ENTER 'Y' FOR YES, OR 'N' FOR NO, AND":185:8684 T$(T$,1,(33)):1((33)(T$))2:T$;:$ D$(13)(4):G$(7):EP$"PRESS 'RETURN' KEY TO CONTINUE. ":D$;"NOMON I,O,C":PL$"PROGRAM LOADING":OP$D$"OPEN":RE$D$"READ":WR$D$"WRITE":CL$D$"CLOSE":LF$"DLXX00":SP$" )"-")((S45)((RS$"")(SC2)))((S45)((S48S57)((RS$)SL)))))ĺT1$;:110k S$;:RS$RS$S$:110 T0:(T$)āT(T$)11:(T$,T,1)" "ĂT:T0 T$"":TL0āT1TL:T$T$(TC): 100:DF$"":E(S27):ST$RS$:SKS: 1:051 S13RS$RS$(DF$,1,(DF$)((RS$)0)): S8T((RS$)0):RS$(RS$,1,(RS$)T):THTHT:SV:TH:((DF$,THSH1,1)".",1,1);:TT1$"" S21S$(DF$,THSH1,1):115R E(S31S44S58(RS$,1)" "):E((RS$)SL(SC1))(SC(((RS$,1,** COPYRIGHT 1980, DAKIN5 CORPORATION65000|d16368,0:T$DF$:160:DF$(T$,1,T):TLSLT(SC1):TC("."):170iRS$"":SV:SH:DF$;T$;nTHSH(RS$):SV:TH:S$sT1$G$:S$""ĺT1$;:110xS(S$):S27RS$"": }S24ĺT1$;:1         600","A" : 10,"THE SCREEN PRINTER","UT8200","A" : 11,"THE PROMPTER","UT5100","A"  } 12,"THE CRUNCHER","UT4700","B": 1,"THE LISTER","UT1500","A" : -1,"**END**"::** UT0002** COPYRIGHT 1979, DAKIN5 CORPORATION. D,"THE VARIABLE REFERENCE","UT4900","A" } 4,"THE PEEKER","UT1600","A" : 5,"THE PATCHER","UT6800","A" : 6,"THE COPIER","UT6601","A" : 7,"THE DISKETTE COPY","UT6500","A" Y} 8,"THE ARRAY EDITOR","UT3600","A" : 9,"THE CALCULATOR","UT2*":51456yEL3030E1:245|y:E0:E240,30004,30005,3030:T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:185:E$"REFER TO YOUR USER'S MANUAL.":225::5000'} 12: 1,"THE LISTER","UT1500","A" : 2,"THE LINE REFERENCE","UT4800","A" : 348:216,0:363525u)6uD$;"RUN";NP$t:uT$"DAKIN5 PROGRAMMING AIDS 3.3 COMPLETED.":::185::216,0:38400:yEC(222):EL(218)(219)256:768:D$:EL240E1:245,yEL30004EL30005E1:E01:G$:PD$"** DAKIN5 PROGRAMMING AIDS 3.3 MENU *2u210:12:T$"YOUR PROGRAM IS NOW BEING LOADED.":185:3030:202:NP$"UT4700"ĺD$;"BLOADUT4700":38153,LH48:38340,LH48:38161,DH48:38337,DH484uNP$"UT4700"Ĺ38343,((VH$,1,((VH$)3)))48:38344,((VH$,2,((VH$)1)))48:38345,((VH$,3,1))202:VL$LS$:DN1:240:E0EdEĉ:210:10:T$MG$:190:11:T$"IN SLOT "LH$" DRIVE "DH$:190z#E0İ230:Eī5100(E0ī5138<MM$("UT",2MI1,2):NP$NP$(MS):FT$FT$(MS):PD$"** "MS$(MS)" **":300000u202:CL$::936:(NP$)0ī30010CES) IS COPYRIGHT 1981? BY RICHARD BRUCE RICKARDL :::6o 11::"TEACHER'S GRADEBOOK":{ #D$(4) (:D$"RUN BOOK"S  "TEACHERS' GRADEBOOK"; COPYRIGHT 1981Z RICHARD BRUCE RICKARDx THIS PROGRAM CONSITUTES ONE MODULAR COMPONENT OF "TEACHERS' GRADEBOOK" THE WHOLE OF WHICH  (BOOK--CLASSES--ROSTER-- GRADES--ABSEN 958:"PASSWORD LENGTH: ";L%:L%1L%12860Qf17:958:P$"":19:"PASSWORD: "]pI1L%mz19:11:L$zP$P$L$IP$(P$,12)UM$UI$W$(6):L$ENTRY$(A%,3)" "ENTRY$(A%,4)" "ENTRY$(A%,5):D$"OPEN "N$D$"DELN$(I) I$D$"CLOSE USERS"> D$"OPEN "UM$", L440"W*D$"WRITE "UM$", R0"g4"100":PW$>N$(1):N$(2):N$(3)HD$"CLOSE "UM$JENTRY$(NU,1)UI$:ENTRY$(NU,2)PW$KI35LENTRY$(NU,I)N$(I2)MIO:410R+\17:HAS BEEN RECORDED; TYPE ITAGAIN TO CONFIRM IT . . . "870:PW$P$ĺ"THERE'S SOME CONFUSION HERE -- LET'S TRY IT AGAIN . . . ":210:670940NUNU1D$"OPEN USERS, L65"D$"WRITE USERS, R"NUUI$:PW$I13T65T90ĺ"YOU MUST USE ALPHABETIC CHARACTERS !":210::580FvIRI1NUUI$ENTRY$(I,1)ĺ"SORRY, THESE INITIALS HAVE ALREADY BEEN USED; YOU WILL HAVE TO DECLARE ANOTHER COMBINATION . . . ":580I860:PW$P$5:"YOUR PASSWORD 3.0"NAME"I": ";:N$(I):N$(I)(N$(I),15):B2(N$(1))0540I:ID14:"INITIALS (3 LETTERS) TO BE USED AS ID: ";:UI$NL%(UI$):L%3Ģ16:"YOU WERE ASKED FOR 3 LETTERS, NOT "L%:210:14:958:580XI13bT$(UI$,I,1):T(T$)?lMAKES A FULL HOUSE -- YOU'LL HAVE TO FIND ANOTHER DISKETTE . . . SORRY!":210:460jA$(78)ı:10:"ADD A NEW USER NOW . . . (Y/N) ? ";:A$:A$:A$(78)A$(89)530A$(78)ı:"ENTER THE FOLLOWING INFO: "6&I1(A$):A%1A$(27)A%4480)" "A$?A$(27)ė:2050~NUOA%1ė:19:"THERE ARE NO USERS IN FILE.":210:460A%530,1048,990,1450460ZNU8ė:10:"THERE ARE ALREADY 9 USERS REGISTERED ON THIS DATA DISKETTE -- THAT R0"NU1000%D$"CLOSE USERS"+M:7:10:"1. ADD A NEW USER"l9:10:"2. DELETE A USER"11:10:"3. LIST USERS"13:10:"4. CHANGE USER PASSWORD"23:5:"( TO RETURN TO ENTRY LEVEL)"17:17:"WHICH ? ";:A$:A%0" NC"D$"CLOSE "UM$+,NCNC10096NC0400S@D$"OPEN "UM$", L440"_JI1NCwTD$"READ "UM$", R"I^K$(I)hIN$:F$:DP$rCN$(I):CR$(I):SCT$(I)|ID$"CLOSE "UM$D$"OPEN USERS, L65"D$"WRITE USERS, T 22:"CANNOT READ DISK IN DRIVE -- CHECK DISK AND HIT TO START AGAIN."b 16368,0y (16384)128236 16368,0: :10:ER(222):L(218)(219)256:"ERROR "E" AT "L: 783: D$"OPEN "UM$", L440"D$"READ "UM$", R I783792:PP:I,PP:I# I0W 104, 168, 104, 166, 223, 154, 72, 152, 72, 96a 1810 SUBROUTINES 16368,0:23:8)"(HIT ANY KEY TO CONTINUE)" (16384)128220 16368,0: (222)8240 ""55 <I1400 FIH P SOME SYSTEM VARIABLEST ZD$(4)k dD$"NOMON I, O, C" xW$(1)"CLASSES":W$(2)"ROSTER" W$(3)"GRADES":W$(4)"ABSENCES" W$(5)"QUIT":W$(6)"MASTER" APPLESOFT ONERR GOTO SUBROUTINE I16:6:"*";:35:"*"! I( 9C I115:TL5I:TR36I[ TL:"*";:TR:"*";b Io 21:"*"| I1400 "I &(7) (12:12)"COPYRIGHT 1981" *(7) -14:9)"RICHARD BRUCE RICKARD" /17:12:"(VERSION 1.2.1)" 22--ABSENCES)' IS COPYRIGHT 1981F BY RICHARD BRUCE RICKARDc  BOOKv ENTRY$(100,5) 34,0 :6:11::"TEACHERS' GRADEBOOK": 3:175 21:"*"; I114:TL21I:TR21I TL:"*";:TR:"*"; I #' "TEACHERS' GRADEBOOK" 1.2.1B COPYRIGHT 1981a RICHARD BRUCE RICKARD THIS PROGRAM CONSITUTES ONE MODULAR COMPONENT OF "TEACHERS' GRADEBOOK" THE WHOLE OF WHICH  (BOOK--CLASSES--ROSTER-- GRADES             (16384)1551100Q V.X23:958HY16368,0:I1300:I|Z:2:"(HIT

TO PRINT; OTHERWISE )";[(16384)160(16384)2081114\^`:D$;"OPEN "UM$", L440"jD$"READ "UM$", R"CtK$(C)~I18$(I);28:BLD$(I)I#V16368,0:23:10)"(HIT ANY KEY TO CONTINUE)"n(16384)1281050~$16368,0:.23:9588I1300:I=16368,0B:"(

PRINTS CONTINUES QUITS)";L(16384)160(16384)208L$(2)%(40(VL$(3)))2)VL$(3):E(40(VL$(4)))2)VL$(4):VL$(5);:11:VL$(6);:16:VL$(8)" CREDIT UNITS";:34:VL$(7):10:"DAY TIME RM BLDG ":I1DWMD$(I)" ";BT$(I)" TO "ET$(I);" "RN" BUILDING: ";BLD$0" ROOM NUMBER ";RN$6 BI1DW\ BT$(I)BT$:ET$(I)ET$c*Ii4u>I1DWHBLD$(I)BLD$:RN$(I)RN$RI\f890p960z34,0::2"("C")";:(40(VL$(1)))2)VL$(1)(40(VL$(2)))2)VSS RECORDS IN YOUR FILE.":1040:630*G:2:(40(W$))2)W$::"(INPUT TIME USING 24-HOUR NOTATION, E.G., 0830, 1400, ETC.)":"CLASS BEGINS ";BT$:(BT$)2400730" ENDS ";ET$::(ET$)2400740EE COMPLETE CLASS RECORD(S)"?8:5:"2. ADD A CLASS RECORD"f10:5:"3. DELETE A CLASS RECORD"12:5:"4. CORRECT/REVISE A CLASS RECORD"16368,0ML4:591A%(A$)A$(27)Ĺ34,0:190$NC0A%2Ģ17::"THERE ARE NO CLA;:4:CR$(I);:14:SCT$(I);:19:CN$(I):0DI6NOO23:16:"WHICH ? ";[PA$:A$kQA$(27)ıSA%(A$):A%1A%ML591VX16368,0:23:"(HIT ANY KEY TO SEE MORE . . . . )"](16384)128605b16368,0:v:6:5:"1. S(I) ID$"CLOSE "UM$#,500:"0. ALL"@i:4:"YOUR CLASS FILE CONTAINS "NC;NC1ĺ" CLASS:":530" CLASSES:"7:NC0590I1NC&PI8:PP(P):PPPP0P0(I1)NCİ600:6:958::16368,0):I"."BOOK"6D$"OPEN "UM$", L440"7@D$"READ "UM$", R0"CJNC:P$\TN$(1):N$(2):N$(3)o^D$"CLOSE "UM$}hNCNC100rNC0460|D$"OPEN "UM$", L440"I1NCD$"READ "UM$", R"IK$(I)IN$:F$:DP$CN$(I):CR$(I):SCT$ "6 /21:"(HIT TO PASS BOOK TO A NEW USER;"f 023:" . . . TO CLOSE THE GRADEBOOK)"t 116368,0 2(16384)155(16384)160306 315:958:(16384)155āI12000:I:768,0:16368,0:UM$"":: 41765180::D$;"RUN ) A%0A%5 1806 A%260,270,280,290,295@ 2630g W$W$(2):176:172:D$"RUN "W$(2)" W$W$(3):176:172:D$"RUN "W$(3)" "W$W$(4):176:172:D$"RUN "W$(4)" ':2:11::"TEACHERS' GRADEBOOK": .10:"GOOD BYE FOR NOW . . . .. . " J :"":8:2::"INSERT TEACHERS' GRADEBOOK MASTER DISK":{ 11:8:"HIT WHEN READY.":16368,0 (16384)141178 (222)6250 2562 :4 I15 16:I". "W$(I): I ML5:591 A%(A$T":W$(6)"MASTER"# UM$UI$W$(6)? I783792:PP:I,PP:IG I0t 104,168,104,166,223,154,72,152,72,96 ~ 2602 SUB-ROUTINES :2:(40(W$))2)W$ 10:"YOUR PROGRAM IS BEING LOADED . . CLASSES# W$"CLASSES":700- 34,29 D$(4)G (A%(768)S 2I1A%_ <P768Ij FV(P)v PL$(V) ZA$A$L$ dI nUI$(A$,3) xPW$(A$,4) W$(1)"CLASSES":W$(2)"ROSTER" W$(3)"GRADES":W$(4)"ABSENCES" W$(5)"QUI+ COPYRIGHT 1981; RICHARD BRUCE RICKARD[ THIS PROGRAM CONSTITUTES { ONE MODULAR COMPONENT OF  "TEACHERS' GRADEBOOK"--  THE WHOLE OF WHICH IS  COPYRIGHT 1981 BY RICHARD BRUCE RICKARD              '":1390$E0$.B1:AN994834,0:1530eB3:"ENTER THE BASIC INFO FOR EACH STUDENT:"oL34,5{VIBAN`1900:2080eEIg2110jIt34,2:35,24:~3:15:E" ENTRIES":34,42320NE(ENTRY$(E,0))1245: " -:4:10)"* * EXPLANATION * *"{6:"ANY OR ALL OF THE FOLLOWING DATA MAY BE RECORDED FOR EACH STUDENT: "9:I18RH$(I)I150021:"HIT TO SKIP OVER ANY FIELD YOU WISH TO IGNORE--EXCEPT 'SEX' OR 'STATUS(W$))2)W$<10:"YOUR PROGRAM IS BEING LOADED . . . . "B_:2:(40(W$))2)W$:RH$(1)"NAME 1: ":RH$(2)"NAME 2: "RH$(3)"NAME 3: ":RH$(4)"STUDENT ID # "RH$(5)"MAJOR: ":RH$(6)"SEX: "RH$(7)"CLASSYEAR: ":RH$(8)"STATUSD$"CLOSE "N$& :D$"OPEN "N$", L72"1*J1EH4D$"READ "N$", R"Jf>ENTRY$(J,0):ENTRY$(J,1)HENTRY$(J,2):ENTRY$(J,3)RENTRY$(J,4):ENTRY$(J,5)\ENTRY$(J,6):ENTRY$(J,7)fENTRY$(J,8)pJuD$"CLOSE "N$z :2:(40NUE.":6402(16384)155Ĺ16368,0:34,0:240;910:8:"REMEMBER--'TEACHERS' GRADEBOOK' PROVIDESFOR A MAXIMUM OF 99 ENTRIES.":13909601060:11903250:D$"OPEN "N$", L72":D$"READ "N$", R0" E:MARL%:NE NUE; TO QUIT)";<(16384)155(16384)160650BT(222)5690:10:ER(222):L(218)(219)256:"ERROR "E" AT "L::D$"DELETE "N$ 216,0::6:"THERE IS NO ROSTER FILE FOR THIS CLASS; YOU MUST INITIALIZE ONE TO CONTI:CR$(I);:14:SCT$(I);:19:CN$(I):RZPI7:PP(P):PPP0INCİ512:7:958YbI_l~n23:958:16:"WHICH ? ";o16368,0pA$:A$:F%(A$):F%1A$(27)F%ML622r16368,0:v783:16368,0:23:"(HIT TO CONTIEE MORE . . . . )")(16384)128513716368,0=F550WNC1". ALL"]!:D$"OPEN "N$:D$"DELETE "N$:&:4:"YOUR CLASS FILE CONTAINS "NC;0NC1ĺ" CLASS:":580:" CLASSES:"D7:NC0620NI1NC%XI".";:4N$(1):N$(2):N$(3)&D$"CLOSE "UM$4NCNC100BNC0510\D$"OPEN "UM$", L440"hI1NCD$"READ "UM$", R"IK$(I)IN$:F$:DP$CN$(I):CR$(I):SCT$(I)ID$"CLOSE "UM$16368,0:23:"(HIT ANY KEY TO S> TO CLOSE THE GRADEBOOK)"( c16368,0O d(16384)155(16384)160356 e15:958:(16384)155āI12000:I:768,0:16368,0:UM$"":: f3135:3104 g:D$;"RUN BOOK" h:D$"OPEN "UM$",L440" rD$"READ "UM$", R0" |NC:P$D$;"RUN "W$(1) @3190A JW$W$(3):3135:895:D$;"RUN "W$(3)i TW$W$(4):3135:895:D$;"RUN "W$(4) Y:2:11::"TEACHERS' GRADEBOOK": ^10:"GOOD BYE FOR NOW . . . . " `21:"(HIT TO PASS BOOK TO A NEW USER;" b23:" . . . WHEN READY.":16368,0(16384)141983(222)51030 :10:ER(222):L(218)(219)256:"ERROR "EK -- IF IN DOUBT, RETURN TO THE BEGINNING OF THE GRADEBOOK SYSTEM AND CHECK THE LIST OF USERS."21:"HIT TO RESTART BOOK & SEE USERS.":23:"HIT TO TRY AGAIN DIRECTLY.":16368,0(16384)141(16384)155977(16384)4196816368,0:8P(222):PP(218)(219)256S:"ERROR "P" AT "PP:p(222)5(222)4965:6:"""CANNOT FIND A MASTER FILE FOR THE LOGGEDUSER ON THIS DISK."b11:"CHECK TO SEE THAT YOU HAVE INSERTED THE CORRECT DISNTINUE; TO QUIT)";?(16384)155(16384)160950EW(222)6530`965r(222)6625(222)8970"":22:"CANNOT READ DISK IN DRIVE -- CHECK DISK AND HIT TO START AGAIN."16368,0(16384)1 RI1NC>\I".";:4:CR$(I);:14:SCT$(I);:19:CN$(I):ffVI7:V(V)0INCİ1250:7:958mpIsz23:958:16:"WHICH ? ";:A$A$:V(A$):V1A$(27)VML90016368,0:783:16368,0:23:"(HIT TO CO00D$"OPEN "UM$", L440"(I1NC@D$"READ "UM$", R"IKK$(I)]IN$:F$:DP$zCN$(I):CR$(I):SCT$(I) ID$"CLOSE "UM$ *:4:"YOUR CLASS FILE CONTAINS "NC;4NC1ĺ" CLASS:":840>" CLASSES:"H7:NC0890"":: q981:964) v:D$"RUN BOOK"D :2:(40(W$))2)W$u 10:"YOUR PROGRAM IS BEING LOADED . . . . "{  :D$"OPEN "UM$",L440" D$"READ "UM$", R0" NC:P$ N$(1):N$(2):N$(3) D$"CLOSE "UM$ NCNC100NC08:' D10:"GOOD BYE FOR NOW . . . . "[ N21:"(HIT TO PASS BOOK TO A NEW USER;" X23:" . . . TO CLOSE THE GRADEBOOK)" b16368,0 g(16384)155(16384)160615 l15:958:(16384)155āI12000:I:768,0:16368,0:UM$оA$:A$:A%(A$):A%1A$(27)A%55108 A%0A%5B 961^ A%540,550,560,570,575 W$W$(1):981:646:D$"RUN "W$(1) &W$W$(2):981:646:D$"RUN "W$(2) 04900 :W$W$(4):981:646:D$"RUN "W$(4) ?:2:11::"TEACHERS' GRADEBOOK"P:I |I0@  104, 168, 104, 166, 223, 154, 72, 152, 72, 96J 4860v  SUB-ROUTINES :4 A%0 34,0: 4 I15 16:I". "W$(I): I D$;"IN#0":1002 16368,0) 18:16:"WHICH ? ";:(P) L$(V) A$A$L$% I5 UI$(A$,3)E PW$(A$,4)W UM$UI$W$(6)i ENTRY$(90,5)u L%(90) P(12) "E%(20) ,MX%(20) 6DT$(20) @R$(20) JAV(20) TGL%(20,90) ^GL(1,90) hL$(90) rI783792:PP:I,PX< COPYRIGHT, 19815F RICHARD BRUCE RICKARDXdW$(1)"CLASSES":W$(2)"ROSTER"|nW$(3)"GRADES":W$(4)"ABSENCES"xW$(5)"QUIT":W$(6)"MASTER"W$W$(3)::2:(40(W$))2)W$34,3D$(4)N(768)I1NP768I V                                                NGE DATE OF FIRST CLASS DAY"D19:"2. CHANGE CLASS MEETING DAYS"z21:16:"WHICH? ";:A$:A$:A(A$):A1A21200A1020,42010:"OK -- MAKE ANY CHANGES? ";:A$:A$:A$(89)A$(78)1220A$(89)1180D$"WRITE "N$"100Wt(D$(Z),3)MD$(I)1220$~IP10:D$(Z)" DOES NOT MATCH ANY OF YOUR""DECLARED CLASS MEETING DAYS -- EITHER YOU HAVE ENTERED THE WRONG DATE, OR YOU HAVE INCORRECTLY DECLARED THE MEETING DAYS IN YOUR CLASS MASTER FILE!"17:"1. CHA$"0"FM$810:"DAY (DD) ";FD%:FD%1FD%311050]$FD$(FD%):(FD$)1FD$"0"FD$.12:"YEAR (YYYY) ";FY%:FY%1901FY%209910708FY$(FY%)BM%FM%:Y%FY%:D%FD%L3810V6:958`7:FM%"-"FD%"-"FY%" IS A "D$(Z)jI1DVL$(I)IDW"I1DWOMD$(I):BT$(I):ET$(I):RN$(I):BLD$(I)VIiD$"CLOSE "UM$:4:"INITIALIZATION REQUIRES THE DATE OF THE FIRST CLASS MEETING DAY:"8:"MONTH (MM) ";FM%:FM%1FM%121030 FM$(FM%):(FM$)1FMON THIS DISK -- YOU SHOULD STARTAGAIN, FROM THE BEGINNING.":1520^p1520::D$"RUN BOOK,D1"z:10:ER(222):L(218)(219)256:"ERROR "ER" AT "L:(222)5890:D$;"OPEN "UM$", L440"D$"READ "UM$", R"A%K$(A%)I1816368,08300 (16384)160Ĺ34,0:430A*34,0::340416368,0:23:"(HIT TO CONTINUE; TO QUIT)";>(16384)155(16384)160830HR(222)5890\:6Af"THERE IS A PROBLEM FINDING A MASTER FILEFOR YOU 14:SCT$(I);:19:CN$(I):.FI7:FF(F)JF0INCİ652:7:958QIWb783:u(222)589010:"THERE IS NO ROSTER FILE FOR THIS CLASS; YOU MUST HAVE ONE TO CONTINUE."22:"(HIT TO CONTINUE; TO QUIT)"  NC1". ALL"P23:958:"(HIT ANY KEY TO SEE MORE . . . . )":16368,0g(16384)128654w16368,0::4:"YOUR CLASS FILE CONTAINS "NC;NC1ĺ" CLASS:":690" CLASSES:"7:NC0730I1NCI".";:4:CR$(I);:", R0"NC:P$+N$(1):N$(2):N$(3)>D$"CLOSE "UM$LNCNC100ZNC0620tD$"OPEN "UM$", L440"&I1NC0D$"READ "UM$", R"I:K$(I)DIN$:F$:DP$NCN$(I):CR$(I):SCT$(I)XIbD$"CLOSE "UM$lv660 (16384)160456[ 15:958:(16384)155āI12000:I:768,0:POIKE16368,0:UM$""::l 4444:4426 :D$;"RUN BOOK" :2:(40(W$))2)W$ 10:"YOUR PROGRAM IS BEING LOADED . . . . "  :D$"OPEN "UM$",L440"D$"READ "UM$3):4444:465:D$"RUN "W$(3)",D1"+ 4490S :2:11::"TEACHERS' GRADEBOOK":x 10:"GOOD BYE FOR NOW . . . . " 21:"(HIT TO PASS BOOK TO A NEW USER;" 23:" . . . TO CLOSE THE GRADEBOOK)" 16368,0 (16384)1556:I". "W$(I): rI$ |16368,0g 18:16:"WHICH ? ";:A$:A$:A%(A$):A%1A$(27)A%5400v A%0A%5 4424 A%420,430,440,450,451 W$W$(1):4444:465:D$"RUN "W$(1)",D1" W$W$(2):4444:465:D$"RUN "W$(2)",D1"! W$W$() UM$UI$W$(6)% ENTRY$(90,8)2 AB%(90)> L%(90)N AR$(90,31)j "I783792:PP:I,PP:Ir ,I0 6 104, 168, 104, 166, 223, 154, 72, 152, 72, 96 @4453 J SUB-ROUTINES T34,0::4 ^I15 h1ES% dW$(1)"CLASSES":W$(2)"ROSTER"I nW$(3)"GRADES":W$(4)"ABSENCES"i xW$(5)"QUIT":W$(6)"MASTER"| W$W$(4):1510 34,2 D$(4) N(768) I1N P768I V(P) L$(V) A$A$L$ I UI$(A$,3) PW$(A$,49 COPYRIGHT 19819 RICHARD BRUCE RICKARDX THIS PROGRAM CONSTITUTESw( ONE MODULAR COMPONENT OF2 "TEACHERS' GRADEBOOK"--< THE WHOLE OF WHICH IS F COPYRIGHT 1981P BY RICHARD BRUCE RICKARD Z ABSENC