' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]렮 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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-(D 0ÁӠ@跻~!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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`/N)? ";:A$:A$"Y"1710X&Q2ĺ"ANOTHER ATTENDANCE PERIOD (Y/N)? ";:A$:A$"Y"2050i&A$"N"1660s&2010&:Q2:Q$"ATT. "::15:"ATTENDANCE ":::K0İ1655:1660&P1K:P;5);TA$(P)::1740'X((I20(I20))20.05)(I20):X0C$:RP%Q2AB$(I,P)SC$>%X1:32:868:Q1ĺSM$(I,P)Q%Q2ĺAB$(I,P)%22:1:958:"CORRECT ANOTHER RECORD (Y/N)? ";:A$:A$"Y"1780%A$"N"2010%1980&:11:"CORRECT A STUDENT'S RECORD FOR ":Q1ĺ"ANOTHER TEST/ASSIGNMENT (Y90$DI1IN1980T$N22:1:958:"CORRECT ";NM$(I);" (Y/N)?";:A$:A$"Y"1900e$XA$"N"1980o$b1870$l2055:Q1İ3830$X1:32::Q1ĺSM$(I,P):$Q2ĺAB$(I,P):%22:1:TM1:868:"ENTRY FOR ";NM$(I);34);:3660:Q1SM$(I,P)S:#Q1ĺTEI$(P)%#Q2ĺTA$(P)X#LL1:JJ1:J;4);NM$(J);32);:Q1ĺSM$(J,P)k#Q2ĺAB$(J,P)~#&L20JN1850#01810$:22:1:868::" TYPE # OF STUDENT OR ":" FOR 'NONE' OR TO CONTINUE ";I$::I(I$):I$""JNL0::17"::C0İ1655:1660+"H1:J20:C21JCG"PHJ:P;6);TEI$(P):"22:868:1::" TYPE # AFFECTED (0=NONE) ":" OR TO CONTINUE ";P$::P(P$):P$""A1JCė:H21:JC:1730"P01660"A2PK1740"A1PC1740#L0:J0:SC3:340:EI$(C)SC$:X$(18)CC1:15405!r3390_!w:"NO RECORDS ENTERED":I12000::e!|z!N0İ3960:1540!::" REVISE A STUDENT'S MARKS/ATTENDANCE"::1265!A$:A(A$):A1710,2050,1540:1700":Q1:8::" TEST OR ASSIGNMENT A32860 TCC1:Q1:TM1:Q$"MARK "::20:2::" TO RETURN TO MENU PRESS CTRL R ";::1:1:"ENTER TITLE OF THE TEST OR ASSIGNMENT":" AND UP TO A 3 CHARACTER CODE" ^4:1:X4:Y4:SC27:C;4);:340:TEI$(C)SC$:X$(18)CC1:1540+!hX35TS"::"7. SAVE FILE"::"8. RETURN TO MAIN MENU"e"20::" ENTER THE # OF THE DESIRED OPTION ";:,A$:A(A$):A460,1590,1590,1660,2160,2900,750,100:15806N0İ3960:1540@(A2C40)(A3K10)ė:12:"FILE CLOSED":L12000::1540 J ENTER/REVISE STUDENTS' RECORDS MENU ":::N0Ğ"1. LOAD FILE":::"2. ENTER MARKS FOR WHOLE CLASS"::"3. ENTER ATTENDANCE FOR WHOLE CLASS"1:"4. REVISE MARKS/ATTENDANCE"::"5. REVISE TITLE/DELETE MARKS/ATTENDANCE"::"6. ENTER/REVISE COMMEN(I)SC$:OF$(I)""OF$(I)"-"HJJ:1:868:I;4);NM$(I);30);OF$(I)22:1:958:"CORRECT ANOTHER NAME/ID (Y/N)? ";:A$:A$"Y"1390A$"N"1500F1F0:25101130SCB0ıL1SCB:(95);::14190:1:1::":22:1:868:"ENTER NEW NAME & ID CODE":LP0:SC$"":B$NM$(I):BB$OF$(I):B(B$):SC24:23:1:I4)B$;:153530)BB$;:B(BB$):SC9:1535:23:4SC24:Y23:X4:350:NM$(I)SC$:B(SC$):1535:LP0:SC$"":B$BB$:23:30:X30:SC9:350:OF$HER STUDENT (Y/N)? ";:A$:A$"Y"12708ZA$"N"1360Bd1130Hn]xN0İ3960:1130x2780:NS1NS0:150022:1:958:"CORRECT ";NM$(I);" (Y/N)? ";:A$:A$"Y"CR1:F1:1450A$"N"142015002055:JJXwJJ:1::I:22:1:958:"DROP ";NM$(I);" (Y/N)? ";:A$:A$"Y"CR1:1330QA$"N"1300[(136022150:DIN1:NM$(D)NM$(D1):OF$(D)OF$(D1):CO$(D)CO$(D1)<P1C:SM$(D,P)SM$(D1,P):FP1K:AB$(D,P)AB$(D1,P)::D:NN1&P:12::"DROP ANOTA$"N"İ2510:1130"1240:::" 1. TEST OR ASSIGNMENT":::" 2. ATTENDANCE":::" 3. RETURN TO ENTER/REVISE RECORDS MENU 16::" ENTER THE # OF THE DESIRED OPTION ";::N0İ3960:1130 2780:NS1NS0:1360?N)(0):NN1:1130GX30:SC9:340:OF$(N)SC$:OF$(N)""OF$(N)"-"CO$(N)"-":P1C:SM$(N,P)"ABS"::P1K:AB$(N,P)"0"::N51ĺ:" FILE IS NOW CLOSED ":L12000::2510:113020:1:958:"ADD ANOTHER STUDENT (Y/N)? ";:A$:A$"Y"1170090,750,990,100:11600N0İ3960:1130bN51ĺ:" FILE IS CLOSED":L12000::1130NN1:CR1:::"STUDENT'S NAME ID CODE"::23:10:"(0 = NO NEW STUDENT)":3:1:N;4);X4:Y3:SC24:340:NM$(N)SC$:NM$(N)"0"NM$(TUDENT? ";:A$:A(A$):A1A2298026 A13190M6 2780:NS1NS0:2900]6 3230:30406 :12:"WRITE COMMENTS FOR ANOTHER STUDENT":" (Y/N)? ";:A$:A$"Y"30006 A$"N"29006 30156 3:1:NM$(I):CO$(I);:Y(37)1:X(0):X1X1:Y1YVE'S COMMENT CODES"::"4. RETURN TO ENTER/REVISE RECORDS MENU":18::"ENTER THE # OF THE DESIRED OPTION";:5| QJ$:QJ(QJ$):QJ1QJ429405 QJ3İ3990:NT1İ3850:40805 QJ3NT0:29005 QJ41540$6 CR1::"(1) FULL CLASS OR (2) ONE S340:TA$(K)SC$:X$(18)KK1:1540Y4@ X35:SC3:340:EA$(K)SC$:X$(18)KK1:1540c4J 3390i4T ~4^ N0İ3960:15404h :4::"ENTER/REVISE COMMENTS SUB-MENU ":::::"1. ENTER/ADD COMMENT"::"2. REVISE COMMENT":m5r "3. PRINT CLASSMATL0::28003 I1INNS1:/3 I0INı:3" NS1:3, KK1:TM1:Q2:Q$"ATT. "::20:2::"TO RETURN TO MENU PRESS CTRL R "::1:1:"ENTER TITLE OF THE ATTENDANCE PERIOD":" AND UP TO A 3 CHARACTER CODE"%46 4:1:Y4:X4:SC27:K;4);:6,106,105,192,141,37,2,76,0,198>2 I512549:J:I,J:I:512D2 R2 L0:J0:2 LL1:JJ1:J;4);NM$(J);30);OF$(J):L20JN28202 2800 3 22:1:868::"TYPE # OF STUDENT OR ":"FOR 'NONE' OR TO CONTINUE ";I$::I(I$):I$""JNTING (Y/N)? ";::A$:A$"Y"İ800:277581 A$"N"2775B1 27301 :11:"INSERT AN INITIALIZED DISK IN DRIVE ONE":"PRESS TO REBOOT ";A$2 169,0,160,3,174,233,183,133,0,132,1,145,0,200,208,251,230,1,165,1,201,192,208,243,138,24,106,106,10570 0n J0x NM$(J),NM$(JF):OF$(J),OF$(JF):CO$(J),CO$(JF):C02700l0 P1C:SM$(J,P),SM$(JF,P):z0 K027200 P1K:AB$(J,P),AB$(JF,P):0 0 0 TM0CR02775'1 :10:(7)::"DO YOU WANT TO SAVE YOUR NEW":"DATA BEFORE EXI2SF18/ ::10:12:"SORTING BY ";:SF1ĺ"NAME":O/ SF2ĺ"ID CODE":Z/ N1ıb/ FNq/ F(F3)1~/ I1NF/ JI1F:SF22620/( NM$(J)NM$(JF)2650/2 2680:2640/< OF$(J)OF$(JF)2650/F 2680/P J/Z I0d F1290. A$"N"2160. 2440. 2150:A1āI1N:XPC1:SM$(I,X)SM$(I,X1):X::XPC1:TEI$(X)TEI$(X1):EI$(X)EI$(X1)::CC1:2160. I1N:XPK1:AB$(I,X)AB$(I,X1):X::XPK1:TA$(X)TA$(X1):EA$(X)EA$(X1)::KK1:1550. / SFEA$(P)SC$>-j PP:1:868:P;4);:A1ĺTEI$(P);35);EI$(P)[-t A2ĺTA$(P);35);EA$(P)-~ 22:1:958:4::" PRESS TO CONTINUE ";A$::2160- 22:1:958:"DELETE ";:A1ĺTEI$(P);- A2ĺTA$(P);. " (Y/N)? ";:A$:A$"Y"TM1:2422:1:958:" ENTER NEW TITLE AND CODE ":SC27:X4:Y23:P4);B$;:1535:B(BB$):SC3,= 35)BB$;:1535:23:4:SC27:350:B(SC$):1535:A1TEI$(P)SC$,B A2TA$(P)SC$,L 23:35:LP0:SC$"":B$BB$:SC3:X35:350:A1EI$(P)SC$ -V A2ONE) OR TO CONTINUE ";P$::P(P$):P$""A1JCH21:JC::2290i+ (A1PC)(A2PK)2300w+ P02160+$ A$"D"2440+. PPP:P20PPP20+3 LP0:SC$"":B$TEI$(P):BB$EI$(P):A2B$TA$(P):BB$EA$(P)_,8 B(B$):TM1:PP:1::P:: REVISE TITLE ";:A$:A$"D"A$"R"22602*2240V*B$"DELETE":A$"R"B$"REVISE"*:A2āP1K:P;4);TA$(P);35);EA$(P)::2300*H1:J20:C21JC*PHJ:P;4);TEI$(P);35);EI$(P):K+22:958:"TYPE # OF ITEM ON SCREEN TO "B$:"(0=NT$:: )p!)zN0İ3960:1540\)::"REVISE TITLE OR DELETE MARKS/ATTENDANCE"::1265v)A$:A(A$):A31540)A1A32200)(A1C0)(A2K0)İ1655:2170)B$"TEST":A2B$"ATTENDANCE"(*20:1:"PRESS D TO DELETE ";B$" OR":"R TO0"CLASSMATE3"*(OMC1Č520"CLASSMATE4"F(R109,(107):110,(108)_(\X(0):N0:K0:C0:(f:12:11::"...PLEASE WAIT..."::(iRD$"ONE":DR$"D2"RD$"TWO"(k(l:12::"PLACE DATA DISK IN DRIVE "RD$)m"PRESS TO CONTINUE ";X20 ''9' TM1CR1GZ1:800:TM0:CR0:GZ0'*DR$"D2"ė:12::"PLACE PROGRAM DISK IN DRIVE ONE":" PRESS TO CONTINUE ";T$:'42150:2130'>(13)(4);"BLOAD CHAIN,A520,D1"'HMC4MC6Č520"CLASSMATE2"(MMC5Č52AL ROOM";:40:" OR OUT OF ROOM PASS USAGE"FP" PC PROGRAM CHANGED";:40:" PI PARENT CONTACTED--INTERVIEW":" PL PARENT CONTACTED--LETTER";:40:" PP PARENT CONTACTED--PHONE"hGZ" PR PERMANENT RECORD CHECKED";:40:" RC REPORT CARD 56:E<" HB HOMEWORK--BELOW AVERAGE";:40:" HS HOMEWORK--SUPERIOR":" HU HOME CONTACT CARD UP TO DATE";:40:" LE LUNCH ELIGIBILITY FORM ON FILE".FF" LN LATENESS--NOTES ON FILE";:40:" LU LATENESS--UNEXUSED":" MR REFERRAL TO MEDICUTTING"D(" DR DISCIPLINARY REFERRAL";:40:" EC EXTRA CREDIT":" GF CONFIDENTIAL FILE IN GUID.OFF.";:40:" GO STUDENT ORG. MEMBER"E2" GR GUIDANCE REFERRAL";:40:" HA HOMEWORK--AVERAGE":QJ3Ģ23:1:"PRESS RETURN TO CONTINUE";:7 CODE COMMENT"C" AF ADMIT FORM ON FILE";:40:" AN ABSENCE--NOTES ON FILE":" AU ABSENCE--UNEXCUSED";:40:" BK BOOK OWED"D" CA CLASSWORK--AVERAGE";:40:" CB CLASSWORK--BELOW AVERAGE":" CS CLASSWORK--SUPERIOR";:40:" CU C* CHECK APPLE MANUAL":"** RETURNING TO MENU **":I14000:EB140B23:1::"CTRL";::" + ";::"A=ABS";3);"E=EXC";3);"N=NON";3);"T=CUT"::B:" COMMENTS "::" CODE COMMENT":3860C 36:" COMMENTS "::" CODE COMMENT";:40:" /A(MC3MC2)(TM1CR1)İ2156:800:140~A(MC3MC2)DR$"D2"ė:"DISK NOT READY.":"PRESS WHEN READY";A$AMC3MC2140A(7):E(222):E6ĺ"ERROR CODE ";E;":NO SUCH FILE ON DISK ":I12500::460 3470_> 23:1:868::"ENTER ANOTHER ";Q$;"(Y/N)? ";::A$:A$"Y"Q11590t> A$"Y"Q21590> A$"N"1540> 3500> 23:1:958::"# OF THE STUDENT TO CHANGE ";::I$:I(I$):INI03540? 22:1:958:"ENTRY FOR "NMM20:3430:M40:L21:3430:MN:L41:3430:3500@=f :Q1İ3830=p 1::" NAME";29);Q$::ILM:I;4);:NM$(I);32);:3660:Q1SM$(I,C)SC$:RC=z Q2AB$(I,K)SC$= = 22:1:958:::"ARE ALL ENTRIES CORRECT (Y/N)? ";::A$:A$"Y"ı > (I);30);OF$(I)::23:1:"PRESS TO CONTINUE OR ":" FOR MENU";:A$:<4 :12:"TOTAL REGISTER IS ";N:22:"PRESS TO CONTINUE ";A$:140<> TO CONTINUE ";A$:8& X$(8)P$P$AA$:316080 X$(13)P$P$AA$:CO$(I)CO$(I)P$:8: LE(P$)(AA$)239ĺ(7);:3070!9D X$(31)AA$AA$X$:X$;:X$(32)P$P$A7 QJ2ĺ:XX110:(95);::Y8:2:"-END COMMENT-":YY2:X1:Y:1:X1X:Y1Y:3060~7 XX1:10:2:"-END COMMENT-":Y:X7 AA$""7 X$:X$(12)İ3840:3230:30407 P$""AA$""Ģ23:21:868:Y1:X17 QJ2CO$(I)""b8 LE239Ģ18:1:"E1)ĺNM$(I):"STUDENT ISN'T MISSING ANY MARKS":?! A$"P"ıP! MS1:NM$(I)b! A$"P"2810~! H1:C21JC:2860::! J20:2860:H21:JC:2860::! H1:C11JC:2860:! J10:C10C21İ2860::H11:JC:2860:" 2860::H11:J20:220:1:958:"DO YOU WANT A DISTRIBUTION OF MARKS":"(Y/N)? ";:A$:A$"Y"İ3810:3490:2530o A$"N"2690y 2530 C0ė:"NO GRADES ENTERED":L11000:: H1C:SM$(I,H)"ABS"SM$(I,H)"CUT"SM$(I,H)"NON"27701! :E2(A$"P"02650(P LL1:SUSUS:S(PF$)DD1SZ :CLASUL:CLA(100CLA.5)100:3830d 22:1:" DO YOU WANT A PRINTOUT (Y/N)? ";:A$:A$"Y"İ4390:NT1NT0:2690n A$"Y"Ģ20:1:958:4470:34,23:4510:3830:4520:34,0:2690x A$"N"2660] /ASSIGN.TO ANALYZE ":"(0=NONE) OR TO CONTINUE ";P$::P(P$):P$""JCė:3280:2570q P0PC2530 P02530( M1İ31002 M1İ3070< 793:3810:SU0:L0:D0:I1N:S$SM$(I,P):2910:S$"CUT"S$"NON"S$"-100"F S(S$):S::N0Ğe 4:1:"1. LOAD FILE":::"2. DISPLAY/PRINT STATISTICS"::"3. RETURN TO MAIN MENU" 15:1::" ENTER THE # OF THE DESIRED OPTION ";::A$:A(A$):A230,2550,100:2540 :C0N0İ4370:150 3260_ 22:1::"TYPE # OF TEST4(PX)1);EI$(P);:::PHJ::4(PX)1);SM$(I,P);:::KZ11580YK01580"P1K:4(P1)1);EA$(P);:::P1K:4(P1)1);AB$(I,P);::,ZZ11630@:"COMMENTS ";CO$(I):^  4550:1:9::" ANALYZE STATISTICS MENU ":8001430#C01550GH1:X1:C11JC:1530::1540C11C21J10:1530::H11:JC:X11:1530::1540J10:1530::H11:J20:X11:1530::H21:J30:X21:C31JC1530::C30H31:X31:JC:1530:1540<PHJ:27İ4520:800=d:MS0ĺ"NO STUDENT IS MISSING ANY GRADES"Ln4520:800sxE2ė:12:4470:2720:4520:1310:E2İ2720:1310I1N::2720:23:1:"PRESS TO CONTINUE":" OR FOR MENU ";L$:L$(27)800L$(13)Ă0:::4520:800O22:1:868:" ANOTHER STUDENT (Y/N)? ";:Y$:Y$"Y"1100a(Y$"N"1310j2150x<E21400F4460:X38(CL$)2:36,X:CL$:33);"MISSING MARKS";:36,60:DA$:PI1N:2720:X(16384):YX128:Y19Č657:1380 ZX1O CONTINUE OR FOR MENU ";5P$:P$(27)150HP$(13)1230R1200b:A2ī800A$"P"İ4460:X40(CL$)2:36,X:CL$:36,50:DA$I1N:X(16384):YX128:Y19Č657:1280X127İ4520:150NM$(I);:36,31:OF$(I):702İ3420:NS1NS0:150-VA$"P"A41340;`A41410jA$"P"MMC8::12:4470:4510:NM$(I);35);OF$(I):700:MMC0:1160tA3ė:NM$(I);30);OF$(I):1460A$"P"İ45201310I1N::NM$(I);30);OF$(I):1460:24:1:" T:1:N0ĺ"NO FILE IN MEMORY"9KhN0ĺFI$;" IN MEMORY"?Kr 0ĺFI$;" IN MEMORY"]Kr IN MEMORY"qKr958:21:1:"SORT BY NAME (N) OR ID CODE (I) ";:A$OJA$"N"A$"I"4130YJ4090oJ"SF1:A$"I"SF2J,CR1:2510:3270J@:8:4::DR$"D2"DR$"D1"JJ"PLACE DATA DISK IN DRIVE "RD$::JT23:10::"CTRL C FOR CATALOG"::K^:23IQJ340503I:12:"TITLE FOR PRINTOUT: ";CL$I"":"MAKE SURE PRINTER IS ON":"PRESS WHEN READY";:756:QJ34070I::"PRESS TO CANCEL PRINTING"I(13)D$;"PR#";SL:(9);"80N":ID$;"PR#0":IN0İ3960:1407J000::MHNM$(52),SM$(52,41),OF$(52),TEI$(41),EI$(41),AB$(52,10),CO$(52):SHH:(SL$,1,1)"Y"SL1ĺ"USING A PRINTER (Y/N)? ";:SL$:SL$"Y"ĺ:"SLOT NUMBER? ";:S$:S$:SL(S$):SL1SL73990HSL$"Y"4030HSL$"N"NT1:H3990 NOT RETURNED SIGNED":" TA TRIP AUTHORIZATION FORM ON FILE";:40:" TF TRANSPORTATION FORM ON FILE"Gd" U(#) USER CODES DEVELOPED BY TEACHER"::QJ3Ģ23:1:"PRESS RETURN TO CONTINUE";:756:GnHx:(7):12:11:"NO DATA IN MEMORY":Q125):" 70 - 74"21)A(6):" 65 - 69"21)A(7):" 60 - 64"21)A(8)1" 55 - 59"21)A(9):" LESS THAN 55"18)A(10):11:12:10::" ...PLEASE WAIT... "::32:FI$:TEI$(P)::"NUMBER OF STUDENTS PRESENT IS ";L:"NUMBER OF STUDENTF)0ĺ1);:3780%0A(F)Iĺ(42);70A(F)Iĺ1);A0::0:" DISTRIBUTION OF MARKS ":::" RANGE"20)"NUMBER"::" 95 - 100"20)A(1):" 90 - 94"21)A(2)G1" 85 - 89"21)A(3):" 80 - 84"21)A(4):" 75 - 79"21)A( 70 75 80 85 90 95":" THAN TO TO TO TO TO TO TO TO":" 55 64 69 74 79 84 89 94 100":/~2);:A(10)Iĺ(42);/A(10)Iĺ1);/F811:3);:F8(A(9)A(8))Iĺ1);:3780/F8(A(9)A(8))Iĺ(42);:37800A("Y"MMC8:4470:4510:3680:4520:36709.LA$"N"3645K.V34,0:MMC0:o.`:14::"DISTRIBUTION CURVE":.jI51123:I;(33);:3710::I933:" ";I;(33);:3710::I1:" ";1;(33);:Y2:3710p/t" ";:I135:(45);:::" LESS 55 65 N)? ";:A$:A$"Y"MMC8:4390:NT1NT0:MMC0:3640-$A$"Y"Ģ20:1:958:4470:MMC0:34,23:4510:3790:4520:34,0:3640-.A$"N"3610-83680-=34,23:6:"DO YOU WANT A PRINTOUT (Y/N)? ";:A$:A$"Y"MMC8::4410:NT1NT0:3670'.BA$Т *, LH100:J110:A(J)0::I1N:J1b, S$SM$(I,P):2910:S$"-100"S$"CUT"S$"NON"3550, LHLH5:(S$)LHA(J)A(J)1:3550, JJ1:J10A(10)A(10)1:3550, 3520, LH100::3790:36105-22:1:868:"DO YOU WANT A PRINTOUT (Y/ I512549:J:I,J:I:512!+\ /+f L0:J0:h+p LL1:JJ1:J;4);NM$(J);30);OF$(J):L20JN3460r+z 3440+ 22:1:958:"TYPE # OF STUDENT OR FOR":"'NONE' OR TO CONTINUE ";I$:I(I$):I$""JNL0::3440+ I0INNS1+ ,X(0):N0:K0:C0:** o*W :11:"INSERT AN INITIALIZED DISK IN DRIVE ONE":"PRESS TO REBOOT ";A$*X 169,0,160,3,174,233,183,133,0,132,1,145,0,200,208,251,230,1,165,1,201,192,208,243,138,24,106,106,106,106,105,192,141,37,2,76,0,198 +Y:12:"PLACE PROGRAM DISK IN DRIVE 1":"PRESS TO CONTINUE ";T$:_) 3820:3360:GP0) (13)(4);"BLOAD CHAIN,A520,D1") MC2MC3Č520"CLASSMATE1") MC5Č520"CLASSMATE3") MC1Č520"CLASSMATE4") 109,(107):110,(108)*% Q113:AM$(Q)::D$;"CLOSE":}( :D$(4):D$;"OPEN LETTER.TC,"DR$:D$;"WRITE LETTER.TC":Q113:AM$(Q)::D$;"CLOSE":( H1:J20:C21JC( 3290( H21:JC( PHJ:P;5);TEI$(P)::( ( CR1TM1GZ1:550:GZ0J) DR$"D2"ė:ISFACTORY (Y/N)? ";:Y$:Y$"N"31606'l Y$"Y"3170'v 20:1:"DO YOU WANT TO SAVE THESE VALUES ON DISK (Y/N)? ";:A$:M1:A$"Y"İ3240:' A$"N"ı' 3190( :D$(4):D$;"VERIFY LETTER.TC,"DR$:D$;"OPEN LETTER.TC,"DR$:D$;"READ LETTER.TC": ";:AN$:AN$"Y"ı&&: AN$"N"3120&D 20:1:958:M0:"DO YOU HAVE ALTERNATIVE VALUES YOU WISH TO USE ON DISK (Y/N)? ";:Y$:Y$"Y"DK1:Y$:3220:DK0:M1:3100&N Y$"N"3140&X :J113:MA$(J);:AM$(J):J:$'b 20:1:"ARE THESE VALUES SAT= ":MA$(9)" C- = ":MA$(10)" D+ = ":MA$(11)" D = ":MA$(12)" D- = ":MA$(13)" F = "% :"NUMBER VALUES FOR LETTER MARKS ENTERED":%& J16:MA$(J);AM$(J);20);MA$(J7);AM$(J7):::MA$(7);AM$(7)&0 20:1:"ARE THESE VALUES SATISFACTORY (Y/N) ?(10)$ S$"D"S$AM$(11)3$ S$"D-"S$AM$(12)J$ S$"F"S$AM$(13)k$ S$"EXC"S$"ABS"S$"-100"q$ {$ 4280$ MA$(1)" A+ = ":MA$(2)" A = ":MA$(3)" A- = ":MA$(4)" B+ = ":MA$(5)" B = ":MA$(6)" B- = "W% MA$(7)" C+ = ":MA$(8)" C $(I,P);#J :L0ĺ#T #^ 7#h S$"A+"S$AM$(1)M#r S$"A"S$AM$(2)d#| S$"A-"S$AM$(3){# S$"B+"S$AM$(4)# S$"B"S$AM$(5)# S$"B-"S$AM$(6)# S$"C+"S$AM$(7)# S$"C"S$AM$(8)# S$"C-"S$AM$(9)$ S$"D+"S$AM$860::H21:J30:C31JC:" 2860:C30ĺ:H31:JC:2860@"" ", L0:PHJ:SM$(I,P)"ABS"SM$(I,P)"CUT"SM$(I,P)"NON"LL1:X4(L1):36,X:EI$(P);"6 :L0ĺ#@ L0:PHJ:SM$(I,P)"ABS"SM$(I,P)"CUT"SM$(I,P)"NON"LL1:X4(L1):36,X:SMY"1100(Y$"N"1310"2150u4520:22:1:"PRINT TESTS AND WEIGHTS (Y/N)? ";:Y$:Y$"Y"İ4510:2250:1160Y$"N"11601452C01550H1:X1:C11JC:1530::1540C11C21J10:1530::H11:JC:X11:1530::154$"P"İ4460:X40(CL$)2:36,X:CL$:36,50:DA$aI1N:X(16384):YX128:Y19Č657:1280wX127İ4520:150NM$(I);:36,31:OF$(I):700:2130::::A13İ4520:2290 2230::227022:1:868:" ANOTHER STUDENT (Y/N)? ";:Y$:Y$"30);OF$(I):1460-~2130:A$"P"A131452?A$"P"İ4520I1310I1N::NM$(I);30);OF$(I):1460:2130:24:1:" TO CONTINUE OR FOR MENU ";P$:P$(27)150P$(13)12301200::A13229022300A1:868:P;:1920:C>:22:1:958:N0ĺ" NO FILE IN MEMORY";`>N0ĺFI$;" IN MEMORY";f>>23:10::" CTRL C FOR CATALOG ";::>:9:5::" PLACE DATA DISK IN DRIVE "RD$::RDISK IN DRIVE "RD$::IN DRIVE "RD$::D"PRESS TO CANCEL PRINTING"::19:"OR"=:5:"PRESS CTRL S TO PAUSE PRINTING":5:"AND TO RESUME PRINTING"=(13)(4);"PR#";SL:(9);"80N":=(13)(4);"PR#0":>24:1:"TYPE PERCENT FOR EACH ITEM ";:PHJ:22:SL$:"SLOT NUMBER ";:S$:SL(S$):SL1SL73972D WHEN READY ";:756:MMC8MC6ı<E245100=:9:5:I$(C1),AB$(N,K1),MA$(14),AM$(14),G(C1),CO$(N):y;#AD0(N$(0))(131)256(132)7:110,AD256:109,AD256(110):;%N$(N),O$(N),S$(N),ST$(N),ST(N):;&;020:1:958;:(SL$,1,1)"Y"SL1ı2 WHEN READY";A$69MC4MC51509(7):E(222):E6ĺ"ERROR CODE ";E;":NO SUCH FILE ON DISK ":I12500::DK1ī2309E6DK1DK0::150:"** ERROR CODE ";E;" ** CHECK APPLE MANUAL":"** RETURNING TO MENU **":I13000:":AM$(9)"70":AM$(10)"68":AM$(11)"65":AM$(12)"60":AM$(13)"55":`82920:S$"NON"S$"-40"w8S$"CUT"S$"-50"8S$"-100"ST$(X)"EXC"S$"- 90"888(MC4MC5)(TM1CR1)İ75:550:150#9(MC4MC5)DR$"D2"ė:"DISK NOT READX1N:(ST$(X),1,1)(64)S$ST$(X):4290:ST$(X)S$S7|:X1N:ST(X)(ST$(X)):`7I1N17JI11:ST(J)ST(J1)426074180:J7I7C8AM$(1)"99":AM$(2)"95":AM$(3)"90":AM$(4)"88":AM$(5)"85":AM$(6)"80":AM$(7)"78":AM$(8)"75NF6JI1F!6SP24120:6N$(J)N$(JF)4150J64180:4140c6O$(J)O$(JF)4150m6"4180t6,J{66I6@F140606J6TO$(J),O$(JF):N$(J),N$(JF):S$(J),S$(JF)6^SP3AST(J):ST(J)ST(J1):ST(J1)A6h47rF1:4280:43:S$(I):::4520:800554389:22:1:958:"LIST BY 1) NAME, 2) ID CODE OR 3) RANK ";:SP$:SP(SP$):SP1SP3403053820:X1N:N$(X)NM$(X):O$(X)OF$(X):S$(X)SM$(X,P):ST$(X)SM$(X,P)::FN:SPSFı5SP342105F(F3)16I13880 4d4n@4x4460:X35(CL$)2:36,X:CL$:36,46:DA$g4X35(TEI$(P))2:36,X:TEI$(P):4"NAME";:36,30:"ID CODE";:36,43:"GRADE":4I1N:X(16384):YX128:Y19Č657:40104X127İ4520:8005N$(I);:36,31:O$(I);:36,:TEI$(P):"NAME";25);"ID CODE";35);"GRADE":L0:I0r3(LL1:II1:N$(I);25);O$(I);37);S$(I):L20IN3900|3238803<23:1:868:L0:"PRESS TO CONTINUE":"OR ESC FOR MENU";:P$:P$(27)8003FP$(13)39303P39004ZINė::S ABSENT IS "NL::" CLASS AVERAGE IS ";CLA;"%":2" NUMBER OF STUDENTS WHO PASSED IS ";LD:" FOR A PERCENTAGE OF ";:Y(LD)L:Y(100Y.5):Y;"%":2 " NUMBER OF STUDENTS WHO FAILED IS ";D:" FOR A PERCENTAGE OF ";100Y;"%":263AVED ON DISK ALTERNATIVE":"VALUES WHICH YOU WISH TO USE (Y/N)? ";:Y$:Y$"Y"DK1:Y$:3230:DK0:VV1:1990)Y$"N"ė:2052)998:20309*"WHEN MAKING UP YOUR NEW AVERAGE-ROUNDING MODIFICATIONS, NOTE THE FOLLOWING:"::" IF YOUR SCHOOL USESTO GET # GRADE OF";21);"NEED MIN. AVG. OF"::WQ112:4)M1$(WQ);25);AG(WQ):~(:"(OR YOUR LETTER":"GRADE EQUIVALENT)"(21:1:"ARE THESE VALUES SATISFACTORY (Y/N)? ";:AN$:AN$"N"2030(AN$"Y"1080(2000m)21:1:958:"HAVE YOU S)":GA$(6)" (B-/SAT/3.0)":GA$(7)" (C+/SAT/2.5)":GA$(8)" (C/SAT/2.0)"'GA$(9)" (C-/N/2.0)":GA$(10)" (D+/N/1.5)":GA$(11)" (D/N/1.0)":GA$(12)" (D-/N/1.0)":GA$(13)" (F/UN)":GA$(0)"40 (F/UN/ABS)"P(699::" AVERAGE-ROUNDING MODIFICATIONS "::"950&VV0AG(1)97:AG(2)92.5:AG(3)89:AG(4)86.5:AG(5)82.5:AG(6)78.5:AG(7)76.5:AG(8)72.5:AG(9)68.5:AG(10)66.5:AG(11)62.5:AG(12)58.5F'GA$(1)" (A+/EX/4.0)":GA$(2)" (A/EX/4.0)":GA$(3)" (A-/EX/4.0)":GA$(4)" (B+/SAT/3.5)":GA$(5)" (B/SAT/3.0O NOT USE THIS OPTION, THE GRADE WILL THEN BE THE WEIGHTED AVERAGE TO THE NEAREST WHOLE NUMBER (OR YOUR LETTER GRADE EQUIVALENT)."%:"DO YOU WANT TO USE THE AVERAGE ROUNDING OPTION (Y/N)? ";:Y$%Y$"Y"AG11:1960%Y$"N"AG10:1080&1TY(TY$):G(P)TY:XP:P20XP20\$X:1:868::G(P);::4);P;" ";TEI$(P);:FFG(P):$1697:::"CLASSMATE PROVIDES AN 'AVERAGE ROUNDING OPTION' FOR SCHOOLS USING STANDARIZED NUMBER GRADES (E.G., GRADES IN MULTIPLES OF '5')."%:"IF YOU DE # TO CHANGE (0 TO RESTART) OR":" TO CONTINUE ";P$:P(P$):P$""JCė:H21:JC:1880s#lP0PC1800#vFFG(P):22:1:958:"WHAT IS THE NEW PERCENT FOR ";P;" ";:1920:1825#TY$:(TY$,1)"0"(TY$,1)"9"Ģ22:1:868:P;:1920"$1:958:F100Ģ22:1:"PERCENTS TOTAL ";F;", NOT 100":D14000::1870"022:1:868:"DO YOU ACCEPT ALL ENTRIES (Y/N)? ";:Y$:Y$"N"1870":Y$"Y"1950"D1840"N:H1:JC:C20J20"XPHJ::G(P);::P;TEI$(P):`#b22:1:868:"TYP2!GP11640E!GP1::F0:3260:C20Ģ21:28::"...MORE...":!24:1:"TYPE PERCENT FOR EACH ITEM ";:PHJ:22:1:868:P;:1920:!JCė:21:17::"TOTAL SCREEN ONE = ";F::1:1:3280:1810!!F99.99F100.00F100J"&22:. TOTAL POINTS"e 14:1::" ENTER THE # OF THE DESIRED OPTION ";::A1$:A1(A1$):A11A131782 A11TY(100100C.5)100:P1C:G(P)TY::GP0:1950!A13GP0::12:1:" WHAT IS THE MAXIMUM NUMBER OF POINTS A STUDENT CAN EARN? ";PT:108RED OPTION ";::TT0:GZ1:R0<A$:A(A$):A5GZ0:100OA4GZ0:510\A1230nA2A31730958:N0İ4370:150C01700870 ::" METHOD FOR AVERAGING "::::" 1. EVEN AVERAGE":::" 2. WEIGHTED AVERAGE":::" 30:1:4::" COMPUTE WEIGHTED AVERAGES MENU "::N0Ğ}::"1. LOAD FILE":::"2. DISPLAY/PRINT AVERAGES FOR THE CLASS":"3. DISPLAY/PRINT AVERAGE FOR A STUDENT"::"4. SAVE FILE"::"5. RETURN TO MAIN MENU":16:1::" ENTER THE # OF THE DESI (B+/SAT/3.5)":GA$(5)" (B/SAT/3.0)":GA$(6)" (B-/SAT/3.0)":GA$(7)" (C+/SAT/2.5)":GA$(8)" (C/SAT/2.0)"GA$(9)" (C-/N/2.0)":GA$(10)" (D+/N/1.5)":GA$(11)" (D/N/1.0)":GA$(12)" (D-/N/1.0)":GA$(13)" (F/UN)":GA$(0)"40 (F/UN/ABS)":6D0:455RN> TO CONTINUE";Y$::H21:JC:I|PHJ::G(P);::P;" ";TEI$(P)::22:1:"DO YOU WANT TO USE THE SAME VALUES":"(Y/N)? ";:Y$:Y$"Y"1950Y$"N"18001670hGA$(1)" (A+/EX/4.0)":GA$(2)" (A/EX/4.0)":GA$(3)" (A-/EX/4.0)":GA$(4)"1K:4(P1)1);EA$(P);:::P1K:4(P1)1);AB$(I,P);::O,ZZ11630h6ZZ1C30GZ11610n@J"COMMENTS ";CO$(I)TZZ1Z1GZ1C30Ģ21:1^h:H1:C21JC:1660 rP120::G(P);::P;TEI$(P)::22:5::"PRESS TO CONTINUE ";P$::P(P$):P$""JCė:3280:25706 P0PC25306 P025306( M1İ310062 M1İ30707< 793:3810:SU0:L0:D0:I1N:S$SM$(I,P):2910:S$"CUT"S$"NON"S$"-10 STATISTICS MENU "::N0Ğw5 4:1:"1. LOAD FILE":::"2. DISPLAY/PRINT STATISTICS"::"3. RETURN TO MAIN MENU"5 15:1::" ENTER THE # OF THE DESIRED OPTION ";::A$:A(A$):A230,2550,100:25405 :C0N0İ4370:1505 3260q6 22:1:):GA$(AVG):2520:B4 QW113:AVGAG(QW)GA$M1$(QW):2520:H4 _4 (AM$(1))7925274 WQ113:(GA$)(AM$(WQ))GA$M1$(WQ)GA$(WQ):4 4 W112:(GA$)(AM$(W))GA$GA$GA$(W):4 :GA$GA$GA$(W):5 4550:1:9::" ANALYZE38 X$(8)2400(3B (SC$)SC2350F3L X$(31)ĺX$;:SC$SC$X$P3V 2350i3` LE(SC$):LE023503j SC$(SC$,1,LE1):(8);(95);(8);:23503t I1N:SM$(I,C)SM$(I,R)::GZ0:5103~ 17003 AVG40TQ0GA$GA$(0):4 AG10AVG(AVG.5I12000::17002 TM1:CC1:"ENTER TITLE FOR GRADING PERIOD MARK":" AND UP TO A 3 CHARACTER CODE":Y6:X4:SC27:Y:1:C;:2340:TEI$(C)SC$:X35:SC3:2340:EI$(C)SC$:24202$ SC$"":Y:X:I1SC:(95);::Y:X3. X$:X$(13)(SC$)0"DO YOU WANT A DISTRIBUTION OF MARKS":"(Y/N)? ";:A$:A$"Y"İ3810:3560:2290a1A$"N"22701:12:"DO YOU WANT TO SAVE THE ROUNDED AVERAGES (Y/N)? ";:A$:A$"Y"ė:23201A$"N"17001 22902 C40ĺ" FILE CLOSED -- CANNOT SAVE GRADES":C:TEI$(P);:36,45:EI$(P);:36,60:G(P)::0A$"P"ĺ10)"LETTER GRADES AND THEIR MINIMUM NUMERICAL EQUIVALENTS":J17:MA$(J);AM$(J);" ";:::J813:MA$(J);AM$(J);" ";:::4520:023:1:"PRESS TO CONTINUE";R$O122:1:958:S IN THE CLASS IS ";N:"THE # PASSING ("PF$" & UP) IS ";NTT:" FOR A PERCENTAGE OF ";(100NM.5);"%"/"THE # FAILING (BELOW "PF$") IS ";TT:" FOR A PERCENTAGE OF "100(100NM.5);"%"-0A$"P"ĺ:12);"TESTING INSTRUMENTS AND THEIR WEIGHTS ":P1POINTS = "TP:"PERCENTAGE IS "GA$:;.TQ0AVG40:2190c.AVG100SUTQ:AVG(100AVG.5)100.:"WEIGHTED AVERAGE IS ";AVG:2440:(GA$)(PF$)TTTT1."ROUNDED AVERAGE/GRADE ";GA$;:SM$(I,R)(GA$,1,3):g/NM(NTT)N:"THE # OF STUDENT1C:S$SM$(I,P):(S$,1,1)(64)İ2910D-\S$"CUT"S$"NON"S$"0"a-fS(S$):A13S100S0y-hA13TPTPS:2170-oS1002170-pSS.01G(P):SUSUS:TQG(P)TQ$.zP:A13AVG(100TPPT.5):AG10:1697:2450:SM$(I,R)(GA$,1,3)::"TOTAL 958::AG(WQ):::VV1^, 20:1:"ARE THESE VALUES SATISFACTORY (Y/N)? ";:Y$:Y$"N"2060p,*Y$"Y"2080,420:1:"DO YOU WANT TO SAVE THESE VALUES ON DISK (Y/N)? ";:Y$:Y$"Y"İ3250:1080,>Y$"N"1080,H2100&-RTP0:SU0:TQ0:AVG0:PRETURN> TO CONTINUE ";:Y$q+ :" TO GET # GRADE";23);"NEED MIN. AVG. OF":"(OR LETTER EQUIV.)":" OF":+WQ112:8);M1$(WQ);27);AG(WQ)+22:1:"PRESS TO ACCEPT DEFAULT OR TYPE OWN VALUE ";Y$:Y$""AG(WQ)(Y$),WQ4:27: STANDARD NUMBER GRADES, BUT DOES NOT USE ONE OR MORE OF"*"THE GRADES LISTED ON THE NEXT SCREEN, THEN ENTER '101' FOR EACH ITEM NOT USED.(FOR EXAMPLE, IF YOUR SCHOOL DOESN'T USE A GRADE OF '88', THEN ENTER '101' NEXT TO THAT GRADE.)"+:"PRESS C S$SM$(I,P):2910:S$"-100"S$"CUT"S$"NON"3550gC LHLH5:(S$)LHA(J)A(J)1:3550C JJ1:J10A(10)A(10)1:3550C 3520C LH100::3790:3610C LH100:J110:A(J)0::I1N:J1:S$SM$(I,R) D LHLH5:(S$)LHA(J)A(f L0:J0:DBp LL1:JJ1:J;4);NM$(J);30);OF$(J):L20JN3460NBz 3440B 22:1:958:"TYPE # OF STUDENT OR FOR":"'NONE' OR TO CONTINUE ";I$:I(I$):I$""JNL0::3440B I0INNS1B B C LH100:J110:A(J)0::I1:"INSERT AN INITIALIZED DISK IN DRIVE ONE":"PRESS TO REBOOT ";A$AX 169,0,160,3,174,233,183,133,0,132,1,145,0,200,208,251,230,1,165,1,201,192,208,243,138,24,106,106,106,106,105,192,141,37,2,76,0,198 AY I512549:J:I,J:I:512A\ BSSMATE2"$@ MC1Č520"CLASSMATE4"@@ 109,(107):110,(108)Y@% X(0):N0:K0:C0:_@* s@4 TM0CR03415@> :10:(7)::"DO YOU WANT TO SAVE YOUR NEW DATA BEFORE EXITING (Y/N)? ";::A$:A$"Y"İ550:3415@H A$"N"3415@R 3370KAW :11I$(P)::? -? CR1TM1GZ1:550:GZ0? DR$"D2"ė::12:"PLACE PROGRAM DISK IN DRIVE 1":"PRESS TO CONTINUE ";T$:? 3820:3360:GP0? (13)(4);"BLOAD CHAIN,A520,D1"? MC2MC3Č520"CLASSMATE1"@ MC4MC6Č520"CLAE":b> :D$(4):D$;"OPEN LETTER.TC,"DR$:D$;"WRITE LETTER.TC":Q113:AM$(Q)::D$;"CLOSE":> :D$(4):D$;"OPEN AVG.TC2,"DR$:D$;"WRITE AVG.TC2":WQ112:AG(WQ)::D$;"CLOSE":> H1:J20:C21JC> 3290> H21:JC ? PHJ:P;5);TE = Y$"N"ı= 3190= :D$(4):D$;"VERIFY LETTER.TC,"DR$:D$;"OPEN LETTER.TC,"DR$:D$;"READ LETTER.TC":Q113:AM$(Q)::D$;"CLOSE":> :D$(4):D$;"VERIFY AVG.TC2,"DR$:D$;"OPEN AVG.TC2,"DR$:D$;"READ AVG.TC2":WQ112:AG(WQ)::D$;"CLOS:Y$:3220:DK0:M1:3100+;& 2:"SORTING BY ";:SF1ĺ"NAME":8 SF2ĺ"ID CODE":C N1ıK FNZ F(F3)1g I1NF JI1F:SF22620( NM$(J)NM$(JF)26502 2680:2640< OF$(J)OF$(JF)2650F 2680P JZ Id F12570n 3x NM$(J),NR109,(107):110,(108)4\X(0):N0:K0:C0:]f:12:11::"...PLEASE WAIT..."::iRD$"ONE":DR$"D2"RD$"TWO"kl:12::"PLACE DATA DISK IN DRIVE "RD$m"PRESS TO CONTINUE ";T$::  SF2SF1! ::10:1CR1İ790j*DR$"D2"ė:12::"PLACE PROGRAM DISK IN DRIVE ONE":" PRESS TO CONTINUE ";T$:z42150:2130>(13)(4);"BLOAD CHAIN,A520,D1"HMC4MC6Č520"CLASSMATE2"MMC2MC3Č520"CLASSMATE1"OMC5Č520"CLASSMATE3","DR$:::" A FILE ALREADY EXISTS WITH THAT NAME. ENTER A DIFFERENT NAME FOR THE NEW FILE":3780I13500::MC1A510807903780E(222):E6MC1A51120E6FI$F$:800:MC$(27)27301403780  TM112:1:958:" TYPE NEW CLASS NAME TO TRANSFER PRESENT ROSTER TO":23:1::"CTRL";::" + ";::"F=LOAD NEW FILE";:=25);::"R=RETURN TO MENU";::F$"":15:1:520:1161`FI$F$:C0:K0:CR1:800:1401165d(13)(4);"VERIFY";F$".NMENT1NT0:140lCL$CL$" ROSTER":40(CL$)2);CL$:36,65:DA$::I1N:P(16384):P127İ4080:140NM$(I);:27:OF$(I);:40:"---------------------------":::"THE TOTAL REGISTER IS ";N:4080:140$N0500.CR1TM1760u84160:AIN MENU":19::" ENTER THE # OF THE DESIRED OPTION ";:pA$:A(A$):A230,4090,750,990,1060,4300,100:980N0İ3960:140958:21:1:"PRESS D FOR SCREEN DISPLAY OR":"P FOR PRINTER ";:P$:P$"D"3270P$"P"103010003980:LASS ROSTER MENU "::::" 1. ENTER CLASS ROSTER"::" 2. SORT CLASS ROSTER"::" 3. SAVE CLASS ROSTER":" 4. DISPLAY/PRINT CLASS ROSTER"::" 5. TRANSFER ROSTER TO NEW FILE"::" 6. PREPARE CLASSMATE DATA DISK"9:" 7. RETURN TO M PLACE DATA DISK IN DRIVE "RD$::RDISK IN DRIVE "RD$::Q80N":P(13)(4);"PR#0":rP24:1:"TYPE PERCENT FOR EACH ITEM ";:PHJ:22:1:868:P;:1920:P:22:1:958:N0ĺ" NO FILE IN MEMORY";PN0ĺFI$;" IN MEMORY";PP23:10::" CTRL C FOR CATALOG ";::"Q:9:5::"E PRINTER IS ON":"PRESS WHEN READY ";:756:MMC8MC6ıQOE24510O:9:5:"PRESS TO CANCEL PRINTING"::19:"OR"O:5:"PRESS CTRL S TO PAUSE PRINTING":5:"AND TO RESUME PRINTING"P(13)(4);"PR#";SL:(9);"&N020:1:958/N:(SL$,1,1)"Y"SL1ıND"USING A PRINTER (Y/N)? ";:SL$:SL$"Y"ĺSL$:"SLOT NUMBER ";:S$:SL(S$):SL1SL74420NNSL$"N"NT1NXSL$"N"SL$"Y"ıNb4420Nl:12:"TITLE FOR PRINTOUT? ";CL$COv(7)::"MAKE SUR):(13)D$;"VERIFY";FI$".TTM,"DR$MM958:CHN1Ģ22:1:"LOADING ";FI$MD$;"OPEN";FI$".TTM":D$;"READ";FI$".TTM":N,C,K:D$;"CLOSE"M!NM$(N),SM$(N,40),OF$(N),TEI$(40),EI$(40),AB$(N,K),MA$(13),AM$(13),G(40),CO$(N),AG(13),GA$(13),M1$(13):N(222):E6ĺ"ERROR CODE ";E;":NO SUCH FILE ON DISK ":I12500::DK1ī230gLE6DK1DK0::150L"** ERROR CODE ";E;" ** CHECK APPLE MANUAL":"** RETURNING TO MENU **":I13000::150L:12:11:"NO DATA IN MEMORY":F12000::$MD$(4"60":AM$(13)"55":1K2920:S$"NON"S$"-40"HKS$"CUT"S$"-50"nKS$"-100"ST$(X)"EXC"S$"- 90"tKzKKMC5(TM1CR1)İ75:550:150KMC5DR$"D2"ė:"DISK NOT READY.":"PRESS WHEN READY";A$KMC5150NL(7):EL:Y(100Y.5):Y;"%":nJ " NUMBER OF STUDENTS WHO FAILED IS ";D:" FOR A PERCENTAGE OF ";100Y;"%":KAM$(1)"99":AM$(2)"95":AM$(3)"90":AM$(4)"88":AM$(5)"85":AM$(6)"80":AM$(7)"78":AM$(8)"75":AM$(9)"70":AM$(10)"68":AM$(11)"65":AM$(12)INIT HELLO,"DR$)0950LO,"DR$+)0950E INTO"("DRIVE "(DR$,2,1)N(:"PRESS THE SPACE BAR TO BEGIN OR PRESS"("ANY OTHER KEY TO CANCEL DATA DISK":"PREPARATION.":(A$:A$(32)ī950(&A$(32)ĺ::"PREPARING CLASSMATE DATA DISKETTE"::(4);"INIT HELLO,"DR$(0950L;")'T23:10::"CTRL C FOR CATALOG"::S'^:23:1:N0GM0ĺFI$;" IN MEMORY"Y're':(7)'2:4::"PREPARE CLASSMATE DATA DISK":':"REMOVE ANY DISK YOU MAY HAVE IN"'"DRIVE "(DR$,2,1)(:"INSERT A ";::"BLANK";::" DISKETT(9);"80N":&D$;"PR#0":0&N0İ3960:140j&958:21:1:"SORT BY NAME (N) OR ID CODE (I) ";:A$&A$"N"A$"I"4130&4090&"SF1:A$"I"SF2&,CR1:2510:3270&@:8:4::DR$"D2"DR$"D1"'J"PLACE DATA DISK IN DRIVE "RD$::0%SL$"Y"4030'%SL$"N"NT1:1%3990@%QJ34050f%:12:"TITLE FOR PRINTOUT: ";CL$%"":"MAKE SURE PRINTER IS ON":"PRESS WHEN READY";:756:QJ34070%::"PRESS TO CANCEL PRINTING" &(13)D$;"PR#";SL:ORY":Q12000::a$NM$(N1),SM$(N1,C1),OF$(N1),TEI$(C1),EI$(C1),AB$(N1,K1),CO$(N1):$NM$(52),OF$(52),CO$(52):$%:(SL$,1,1)"Y"SL1ĺ"USING A PRINTER (Y/N)? ";:SL$:SL$"Y"ĺ:"SLOT NUMBER? ";:S$:S$:SL(S$):SL1SL7399S WHEN READY";A$'#MC1140z#(7):E(222):E6ĺ"ERROR CODE ";E;":NO SUCH FILE ON DISK ":I12500::460#"** ERROR CODE ";E;" ** CHECK APPLE MANUAL":"** RETURNING TO MENU **":I14000:#140$x:(7):12:11:"NO DATA IN MEM:NM$(I);30);OF$(I)::23:1:"PRESS TO CONTINUE OR ":" FOR MENU";:A$:"4 :12:"TOTAL REGISTER IS ";N:22:"PRESS TO CONTINUE ";A$:140""MC1(TM1CR1)İ2156:790:140#MC1DR$"D2"ė:"DISK NOT READY.":"PRES,76,0,198 ,! I512549:J:I,J:I:5122! F! N0İ3960:140]! H1:J20:N21JNu! 3370:A$(27)140! N213380! H21:J40:N20N41JN! 3370:A$(27)140! N413380! H41:JN:3370:A$(27)140! 3380X"* :IHJ$"Y"İ790:2775! A$"N"2775+ 2730 :11:"INSERT AN INITIALIZED DISK IN DRIVE ONE":"PRESS TO REBOOT ";A$ ! 169,0,160,3,174,233,183,133,0,132,1,145,0,200,208,251,230,1,165,1,201,192,208,243,138,24,106,106,106,106,105,192,141,37,2M$(JF):OF$(J),OF$(JF):CO$(J),CO$(JF):C02700U P1C:SM$(J,P),SM$(JF,P):c K02720 P1K:AB$(J,P),AB$(JF,P):   TM0CR02775 :10:(7)::"DO YOU WANT TO SAVE YOUR NEW":"DATA BEFORE EXITING (Y/N)? ";::A$:Az#     ÁӠÁűEÁŲ8ÁųKÁŴ#ÁΠ2000::ROUDY":&JI12000::I12000::I5:16:"PRESENTS":J ,8:15::" CLASSMATE "::9:15:"VERSION 2.1":| 612:4:"A PROGRAM TO MANAGE CLASS RECORDS": @14:19:"BY":16:10:"LINDA AND SID BROUDY":19:5:"COPYRIGHT (C) 1984, 1985, 1987":20:12:"BY L. & S. BROUDY":JI1S":I12500::80t I140:(95);::I223:I:40:"!";::I3911:23:I:(95);::I2321:I:1:"!";: 1:1:I140:"*";::I223:I:40:"*";::I3911:23:I:"*";::I2321:I:1:"*";:: "4:9:"DAVIDSON AND ASSOCIATES":/N)? ";:A$< (A$,1,1)"N"ĢX:28::A$:I1300:::80n (A$,1,1)"Y"ĢX:26::A$:I1300:::230w 190 :280:290:300:310:320 (13)(4);"BLOAD CHAIN,A520,D1" 520"CLASSMATE1" (7)::"PLEASE FOLLOW SCREEN DIRECTION:SL$::180/ SL$"Y"Ģ7:18::SL$::1608 120 12:1:"SLOT NUMBER FOR PRINTER (DEFAULT 1)";:1008:1008:L$::L$;::L$(13)L$"1":12:34::L$: SL(L$):SL1SL7160 X18:SL$"N"X12 :X:"ARE ALL ENTRIES CORRECT (Y5000:5 P::"ENTER TODAY'S DATE (MM/DD/YY) ";DA$ Z:" # OF DISK DRIVES (DEFAULT 1)";:1008:1008:DR$::DR$;::DR$(13)Ģ4:28::"1": dDR$"2"DR$"D1" nDR$"2"DR$"D2" x:7:"USING A PRINTER (Y/N) ";:SL$ SL$"N"Ģ7:20: # CLASSMATE APPLE VERSION FP6 -- CLASS A(21)RIN$"":2602:270:290:330:300:330:310:330:320:I13000:<:P(1101):P6ī80 F12:1:"ENTER ALL PROMPT RESPONSES AND LETTER":12:"GRADES IN ";::"CAPS";::I1     STUDENT"::" 4. CORRECT A NAME";~"/ID CODE"::" 5. SORT THE ROSTER"::" 6. SAVE FILE"::" 7. DISPLAY/PRINT CLASS ROSTER"::" 8. RETURN TO MAIN MENU":19::" ENTER THE # OF THE DESIRED OPTION ";:A$:A(A$):A460,1170,1270,1390,4127İ4080:140vNM$(I);:27:OF$(I);:40:"---------------------------":::"THE TOTAL REGISTER IS ";N:4080:140|jtF0:4190:1:6::" REVISE CLASS ROSTER MENU ":::N0Ğ#y" 1. LOAD FILE ":::" 2. ADD A STUDENT"::" 3. DROP A 768:IN$(IN$,1):&N0İ3960:140|958:21:1:"PRESS D FOR SCREEN DISPLAY OR":"P FOR PRINTER ";:P$:P$"D"3270P$"P"103010003980:NT1NT0:140CL$CL$" ROSTER":40(CL$)2);CL$:36,65:DA$::I1N:P(16384):P(13)D$;"OPEN";FI$".TTM,"DR$E\D$;"WRITE";FI$".TTM":N:C:KSfC0900qpP1C:TEI$(P):EI$(P):zI1N:P1C:SM$(I,P)::IK0930P1K:TA$(P):EA$(P):I1N:P1K:AB$(I,P)::ID$;"CLOSE":CR0:TM0:A$:A$"Y"ĺA$:800:140)A$"N"1402 760c D$(4):GZ1Ģ22:1:958:" SAVING ";FI$;r*CR18504(13)D$;"OPEN";FI$".NME,"DR$>D$;"WRITE";FI$".NME":N:SFHI1N:NM$(I)::I1N:OF$(I)::I1N:CO$(I)::D$;"CLOSE"!R0700-P1C:940:TEI$(P)IN$:EI$(P):NI1N:P1C:SM$(I,P)::I\K0730P1K:940:TA$(P)IN$:EA$(P):I1N:P1K:AB$(I,P)::ID$;"CLOSE":CHN0:140N0İ3960:1404160::::"SAVE TO DATA DISK (Y/N)? ";:1Ģ22:1:"LOADING ";FI$:958>XD$;"OPEN";FI$".NME,"DR$XbD$;"READ";FI$".NME"blN,SFvI1N:940:NM$(I)IN$::I1N:OF$(I)::I1N:940:CO$(I)IN$::D$;"CLOSE"D$;"OPEN";FI$".TTM,"DR$D$;"READ";FI$".TTM"N,C,KC:"NAME OF FILE TO LOAD ";5A$:A$(3)İ440:500NFI$""A$(13)510`A$(13)580&A$(8)X(FI$):X05200A$(8)XX1:FI$(FI$,1,X):(8);" ";(8);:520:A$;:FI$FI$A$:520D(13)D$;"VERIFY";FI$".NME,"DR$NCHNR1500w:9:(7):" YOU'LL LOSE ALL DATA IN MEMORY":" CONTINUE (Y/N) ";:A$:A$"Y"TM0:CR0:GM0:500A$"N"1404704160:4180:FI$""Ģ10:1:" ...PLEASE WAIT...":2130:3970:10:1:868FI$"":D$(4):16:1 350! LE(SC$):LE0350\ LELE1:SC$(SC$,1,LE):(8);(95);(8);:LPLP1:350u ::"CATALOG,"DR$ :"REMEMBER TO CALL FOR A FILE ONLY BY ITS":"NAME, WITHOUT THE PERIOD AND EXTENSION.":"PRESS RETURN TO CONTINUE ";A$:TM1CY:X:I1SC:(95);::Y:X5 ^X$:SC9X$(13)ıN hX$(13)(SC$)0ı^ rX$(18)ıo |X$(8)420 X$(21)(A4A$"R")LPLP1:AA$(B$,LP,1):SC$SC$AA$:AA$;:350 (SC$)SCĺ(7);:350 X$(31)ĺX$;:SC$SC$X$:LPLP1::350Z 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213 32,227,223,133,133,132,134,32,190,222,32,227,223,160,2,177,133,72,177,131,145,133,104,145,131,136,16,243,96 1013,76:1014,23:1015,3  TSC$"":ANALYZE STATISTICS"d x::" ESC EXIT PROGRAM":CR1TM1Ğ:22:8:" DATA HAS BEEN MODIFIED ": 20:4::" ENTER THE # OF THE DESIRED OPTION ";::MC$:MC(MC$):MC$(27)2730 MC2070,1130,1540,2070,2070,2070:130 I152:J:767I,J:1 -- Z d:8::" CLASSMATE MAIN MENU "::4:1:" 1. ENTER CLASS ROSTER"::" 2. REVISE CLASS ROSTER"::" 3. ENTER/REVISE STUDENTS' RECORDS" n:" 4. EXAMINE/PRINT STUDENTS' RECORDS"::" 5. COMPUTE WEIGHTED AVERAGES"::" 6. @C# CLASSMATE APPLE VERSION FP "CLASSMATE:A PROGRAM TO MANAGE CLASS RECORDS" COPYRIGHT 1984, 1985 BY L. AND S. BROUDY3780IN$"":180:2153:3970(MC0DR$"D2"İ21562MC0FI$""140<MC0CHN1:580 P -- CLASSMATE                       A2İ4020:3860:800[21:1:" LIST ATTENDANCE ALSO (Y/N)? ";:Z$:Z0:Z$"Y"Z1:1030mZ$"N"1010uZ$22:1:" LIST COMMENTS ALSO (Y/N)? ";:Z$:ZZ0:Z$"Y"ZZ1:1060Z$"N"1040$Z$:A2A$"P"1250BA21180LA3ENE STUDENT? ";:E$:E(E$):E0E29206A41100ED21010RC0800^:326022:1:"TYPE THE # OF THE ITEM TO LIST (0=NONE) OR TO CONTINUE ";P$:P(P$):JCP$""ė:3280:970P0PC800A$"P"İ4020:3950A$"P"İ4390:NT1NT0:13305pA$"P"A$"D"900>z870O18:1:958A2GZ0ĺ"LIST:":"1) MARKS FOR ALL TESTS/ASSIGNMENTS, OR":"2) MARKS FOR ONE TEST/ASSIGNMENT ";:GD$::D(GD$):D1D2900(A4Ģ22:1:"LIST 1) FULL CLASS OR 2) O/PRINT MISSING MARKS"::"5. RETURN TO MAIN MENU":16:1::" ENTER THE # OF THE DESIRED OPTION ";>:E0:A$:A(A$):A5100HA1230RA0A5830\958:N0İ4370:150f18:1:"PRESS D FOR SCREEN DISPLAY OR":"P FOR PRINTER ";:A$::A$"Y"A$"N"ı793# |*4387:4550:MS0:D0:GZ0:1:1::" EXAMINE/PRINT STUDENTS' RECORDS MENU "::N0Ğ/::"1. LOAD FILE":::"2. DISPLAY/PRINT RECORDS FOR WHOLE CLASS"b4"3. DISPLAY/PRINT ONE STUDENT'S RECORD"::"4. DISPLAYK:X4(P1):36,X:AB$(I,P);::> ZZ1ĺ"COMMENTS ";CO$(I)D:6:"THE LOWEST PASSING GRADE IS "PF$:"DO YOU WISH TO CHANGE THIS (Y/N)? ";:A$:A$:A$"Y"ĺ::"WHAT IS THE LOWEST PASSING GRADE? ";PF$A$"Y"PF$(64)S$PF$:2910:PF$S$IN$,1):C0750;Y1:H1:JC:C21İ740:750gC20J20:740:H21:Y21:JC:740:750PHJ:X4(PY):36,X:EI$(P);:::PHJ:X4(PY):36,X:SM$(I,P);:::K0780Z1780 P1K:X4(P1):36,X:EA$(P);:::P1M,"DR$!D$;"READ";FI$".TTM",N,C,K:C0470`P1C:690:TEI$(P)IN$:EI$(P):I1N:P1C:SM$(I,P)::IK0500P1K:690:TA$(P)IN$:EA$(P):I1N:P1K:AB$(I,P)::ID$;"CLOSE":CHN0:150768:IN$(0ĺ(8);" ";(8);:FI$(FI$,1,X1):300IJSC$(31)ĺSC$;:FI$FI$SC$RT300qrD$;"OPEN";FI$".NME,"DR$|D$;"READ";FI$".NME"N,SFI1N:690:NM$(I)IN$::I1N:OF$(I)::I1N:690:CO$(I)IN$::D$;"CLOSE"D$;"OPEN";FI$".TT":"DO YOU WANT TO CONTINUE (Y/N)? ";::A$:A$"Y"280G A$"N"150P 250 4590:4580:GP0:FI$"":M0:VV0:N0:C0:K0:15:1:"NAME OF FILE TO LOAD "; ,SC$:SC$(3)İ210:280 6SC$(13)FI$""İ3360:4380:370(@X(FI$):SC$(8)X5,131,136,16,243,96 . ::"CATALOG,"DR$ :"REMEMBER TO CALL FOR A FILE ONLY BY ITS":"NAME, WITHOUT THE PERIOD AND EXTENSION.":"PRESS TO CONTINUE ";A$: TM1CR12807 :11::(7):"YOU WILL LOSE ALL CURRENT DATA IN MEMORY,3300,2530:140E I152:J:767I,J::1013,76:1014,23:1015,3: 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213  32,227,223,133,133,132,134,32,190,222,32,227,223,160,2,177,133,72,177,131,145,133,104,14 x" 4. EXAMINE/PRINT STUDENTS' RECORDS"::" 5. COMPUTE WEIGHTED AVERAGES"::" 6. ANALYZE STATISTICS":::" ESC EXIT PROGRAM" 20:3::" ENTER THE # OF THE DESIRED OPTION ";::MC$:MC(MC$):MC$(27)3370 MC3300,3300,3300,800TO CONTINUE ";T$::- P -- CLASSMATE2 --e Z -- COPYRIGHT 1984, 1985 BY LINDA AND SID BROUDYk d n:8::" CLASSMATE MAIN MENU "::3:1:" 1. ENTER CLASS ROSTER"::" 2. REVISE CLASS ROSTER"::" 3. ENTER/REVISE STUDENTS' RECORDS":6# CLASSMATE APPLE VERSION FP.4330>IN$"":160FM0q#PF$"65":RD$"ONE":DR$"D2"RD$"TWO"(MC0DR$"D2"İ752MC0FI$""150<MC0CHN1:4380:370F100 K::12:"PLACE DATA DISK IN DRIVE "RD$:"PRESS                  :Z$"Y"ZZ1:1060%Z$"N"1040>$Z$:M0İ3070:1780S.M1İ3100:1780\8793q:A2A$"P"1250BA21180LA3E2İ3420:NS1NS0:150jA$"P"MMC8::12:4470:4510:NM$(I);35);OF$(I):700:MMC0:1150tA3ė:NM$(I);R":"P FOR PRINTER ";:A$::A$"P"İ4390:NT1NT0:1330QpA$"P"A$"D"900Zz870k18:1:95821:1:" LIST ATTENDANCE ALSO (Y/N)? ";:Z$:Z0:Z$"Y"Z1:1030Z$"N"1010Z$22:1:" LIST COMMENTS ALSO (Y/N)? ";:Z$:ZZ0:"THE LOWEST PASSING GRADE IS "PF$:"DO YOU WISH TO CHANGE THIS (Y/N)? ";:A2$:A2$:A2$"Y"ĺ::"WHAT IS THE LOWEST PASSING GRADE? ";PF$A2$"Y"PF$(64)S$PF$:2910:PF$S$A2$"Y"A2$"N"ı793:f18:1:"PRESS D FOR SCREEN DISPLAY O40:H21:Y21:JC:740:750jPHJ:X4(PY):36,X:EI$(P);:::PHJ:X4(PY):36,X:SM$(I,P);:::wK0780Z1780P1K:X4(P1):36,X:EA$(P);:::P1K:X4(P1):36,X:AB$(I,P);:: ZZ1ĺ"COMMENTS ";CO$(I):6(AM$(W))ı:M1$(1)"99":M1$(2)"95":M1$(3)"90":M1$(4)"88":M1$(5)"85":M1$(6)"80":M1$(7)"78":M1$(8)"75":M1$(9)"70":M1$(10)"68":M1$(11)"65":M1$(12)"60":M1$(13)"55":C0750Y1:H1:JC:C21İ740:750C20J20:7KlC0650.vP1C:TEI$(P):EI$(P):OI1N:P1C:SM$(I,P)::I]K0680zP1K:TA$(P):EA$(P):I1N:P1K:AB$(I,P)::ID$;"CLOSE":CR0:TM0:768:IN$(IN$,1):(AM$(1))80WWQ: W112:(M1$(WQ))D$;"CLOSE":CHN0:150-N0İ4370:150o4590:16:"SAVE TO DATA DISK (Y/N)? ";:A$:A$"Y"İ550:150A$"N"150520&D$(4):GZ1Ģ22:1:958:" SAVING ";FI$;X(13)D$;"OPEN";FI$".TTM,"DR$bD$;"WRITE";FI$".TTM":N:C:690:CO$(I)IN$::D$;"CLOSE"cD$;"OPEN";FI$".TTM,"DR$:D$;"READ";FI$".TTM":N,C,K:C0470P1C:690:TEI$(P)IN$:EI$(P):I1N:P1C:SM$(I,P)::IK0500P1K:690:TA$(P)IN$:EA$(P):I1N:P1K:AB$(I,P)::ISC$(13)FI$""İ3360:4380:370e@X(FI$):SC$(8)X0ĺ(8);" ";(8);:FI$(FI$,1,X1):300JSC$(31)ĺSC$;:FI$FI$SC$T300rD$;"OPEN";FI$".NME,"DR$:D$;"READ";FI$".NME":N,SFI1N:690:NM$(I)IN$::I1N:OF$(I)::I1N:t :11::(7):"YOU WILL LOSE ALL CURRENT DATA IN MEMORY":"DO YOU WANT TO CONTINUE (Y/N)? ";::A$:A$"Y"280 A$"N"150 250 4590:4580:GP0:FI$"":M0:VV0:N0:C0:K0:15:1:"NAME OF FILE TO LOAD "; ,SC$:SC$(3)İ210:280$632,190,222,32,227,223,160,2,177,133,72,177,131,145,133,104,145,131,136,16,243,96 k ::"CATALOG,"DR$ :"REMEMBER TO CALL FOR A FILE ONLY BY ITS":"NAME, WITHOUT THE PERIOD AND EXTENSION.":"PRESS TO CONTINUE ";A$: TM1CR1280::MC$:MC(MC$):MC$(27)3370L MC3300,3300,3300,3300,1700,2530:140 I152:J:767I,J::1013,76:1014,23:1015,3: 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213 R 32,227,223,133,133,132,134,CORDS":} x" 4. EXAMINE/PRINT STUDENTS' RECORDS"::" 5. COMPUTE WEIGHTED AVERAGES"::" 6. ANALYZE STATISTICS": :" ESC EXIT PROGRAM":CR1TM1Ğ:22:9:"DATA HAS BEEN MODIFIED ":! 20:3::" ENTER THE # OF THE DESIRED OPTION ";URN> TO CONTINUE ";T$::4 P -- CLASSMATE3 -- l Z -- COPYRIGHT 1984, 1985 BY LINDA AND SID BROUDYr d n:8::" CLASSMATE MAIN MENU "::3:1:" 1. ENTER CLASS ROSTER"::" 2. REVISE CLASS ROSTER"::" 3. ENTER/REVISE STUDENTS' RE#I# CLASSMATE APPLE VERSION FP.4330>IN$"":160FM0q#PF$"65":RD$"ONE":DR$"D2"RD$"TWO"(MC0DR$"D2"İ752MC0FI$""150<MC0CHN1:VV0:4380:370F100 K::12:"PLACE DATA DISK IN DRIVE "RD$:"PRESS D$;"WRITE";FI$".NME":N:SFHI1N:NM$(I)::I1N:OF$(I)::I1N:CO$(I)::D$;"CLOSE"R(13)D$;"OPEN";FI$".TTM,"DR$ \D$;"WRITE";FI$".TT D$;"CLOSE":CHN0:A51060)140=N0İ3960:1404160::::"SAVE TO DATA DISK (Y/N)? ";:A$:A$"Y"ĺA$:790:A51080A$"N"A51080A$"N"A$"Y"140 760D$(4):GM1İ4160::::"NAME OF FILE TO SAVE ";:F$:116)IN$::D$;"CLOSE"2D$;"OPEN";FI$".TTM,"DR$LD$;"READ";FI$".TTM"WN,C,KeC0700P1C:940:TEI$(P)IN$:EI$(P):I1N:P1C:SM$(I,P)::IK0730P1K:940:TA$(P)IN$:EA$(P):I1N:P1K:AB$(I,P)::I"DR$:2130TID$;"OPEN";FI$".TTM":D$;"READ";FI$".TTM":N,C,K:D$;"CLOSE":3970}NCHN1Ģ22:1:"LOADING ";FI$:958XD$;"OPEN";FI$".NME,"DR$bD$;"READ";FI$".NME"lN,SFvI1N:940:NM$(I)IN$::I1N:OF$(I)::I1N:940:CO$(I$:580!A$:A$(3)İ440:5006 A5A$(6)500LA5A$(18)140dF$""A$(13)520tA$(13)ı&A$(8)X(F$):X05200A$(8)XX1:F$(F$,1,X):(8);" ";(8);:520:A$;:F$F$A$:520 D(13)D$;"VERIFY";FI$".NME,LOSE ALL DATA IN MEMORY":" CONTINUE (Y/N) ";:A$:A$"Y"TM0:CR0:GM0:500cA$"N"140l4704160:4180:FI$""Ģ10:1:" ...PLEASE WAIT...":2130:3970:10:1:868F$"":D$(4):16:1:"NAME OF FILE TO LOAD ";:520:FI$F03508LELE1:SC$(SC$,1,LE):(8);(95);(8);:350Q::"CATALOG,"DR$:"REMEMBER TO CALL FOR A FILE ONLY BY ITS":"NAME, WITHOUT THE PERIOD AND EXTENSION.":"PRESS RETURN TO CONTINUE ";A$:TM1CR1500S:9:(7):" YOU'LL 1:N22N43İ2150:A(0):280)J:290RTSC$"":Y:X:I1SC:(95);::Y:Xk^X$:SC9X$(13)ıhX$(13)(SC$)0ırX$(18)ı|X$(8)420(SC$)SCĺ(7);:350X$(31)ĺX$;:SC$SC$X$:350350LE(SC$):LEURN> ID CODE":x "SC24:X4:N;4);:Y(37)1:340:NM$(N)SC$:NM$(N)"0"NM$(N)(0):NN1:I1N:CO$(I)"-"::950 ,X30:SC9:340:OF$(N)SC$:OF$(N)""OF$(N)"-" 6N51ĺ:" FILE IS NOW CLOSED ":I12000::I1N:CO$(I)"-"::950@NN10::(7):"YOU WILL LOSE ANY CURRENT DATA IN MEMORY":"DO YOU WANT TO CONTINUE (Y/N)? ";::A$:A$"Y"270| A$"N"950 240 2150:2130:3975:N1:CR1:GM1:FI$"" :24:8::"ENTER ZERO WHEN FINISHED ";::1:1::"STUDENT'S NAME