' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` 鷎귭෍ᷩ췩緈JJJJx i 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/  !"#$%&'()*+,-./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`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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-zF  ǮԠǠ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ Ť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볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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 ~(` d֠ĭz#z#???     ҠԮŠŠԮŠŠԮԠ ŠԮҠǮԠǠ)٠  TN$""TQ0ī3210 :"WOULD YOU LIKE TO SELECT A TEST OTHER":" THAN TEST:";TN$;" (Y OR ";::"N";::"):";:A$:A$"N"A$(13)ī3238 A$"Y"ĺ(7):32057 :"PLEASE ENTER THE NAME OF THE TEST ":"WITH WHICH YOU WISH TO WORK"::"(000:  D :"SAVE REVISED TEST ";TN$;"?";:8890:A$"N"ī3099f LN4:RW1:DM$"MASTER":10000x FLAG1ī3099 FLAG0::9700 FLAG0İ9900:1000 :::"WARNING: NEW VERSION OF"::"TEST ";TN$;" NOT SAVED":"PRESS ANY KEY";:A$:1000 REVISE THE TEST, HOWEVER, IF YOU DO" " NOT CREATE ONE NOW, YOU WILL LOOSE THE":" TEST YOU JUST CREATED!!"::"PROCEED WITH SAVE? (Y/N):";:A$:A$"Y"A$"N"ī3080 A$"Y"ī3087 :"ARE YOU SURE? (Y/N):";:A$:A$"Y"ī3080 1000 5NG QUESTIONS...":CQ0T CQ1MQė:"NO MORE QUESTIONS ALLOWED (";MQ;" MAX)":3080 CQCQ1::8000:TQ$(CQ)""TQCQ1:3080 3065 TQ0TN$"":1000:% :12:"YOU MUST CREATE A ";::"MASTER"::" TEST TAKING DISK NOW. LATER YOU MAY ":"":GP$(5)"F":XP(1)90:XP(2)80:XP(3)70:XP(4)60:XP(5)50: :"EACH QUESTION MAY HAVE UP TO ";MA:" SELECTIONS, HOW MANY SHOULD THIS":" TEST HAVE? (2 FOR TRUE/FALSE):";:SL1:8900:(SI$)2((SI$)MA)ī3050 TA(SI$)::"INSTRUCTIONS FOR INPUTTI$(SI$,2):3043< (SI$,1)" "SI$(SI$,(SI$)1):3044N SI$""ī1000 TN$SI$:TC5:GC$(1)"A":GC$(2)"B":GC$(3)"C":GC$(4)"D":GC$(5)"F":XC(1)10:XC(2)20:XC(3)55:XC(4)12:XC(5)3:; GM$"P":TP5:GP$(1)"A":GP$(2)"B":GP$(3)"C":GP$(4)"D SAVED TO A DISK!)"::"DO YOU WANT THIS TO HAPPEN? (Y OR N)";:A$:A$"Y"ī1000 :" CREATION OF A NEW TEST"::SL20:"THE NAME OF THE NEW TEST MUST BE ":" LESS THAN ";SL1;" LETTERS LONG"::"TYPE THE NEW NAME:";:8900: (SI$,1)" "SI MANUAL FOR FURTHER ":" INFORMATION.":24:1:"PRESS ANY KEY TO RETURN TO THE MENU!";:A$:f1000l  :12:"JUST A MOMENT PLEASE...":I(0): :TN$""ī3030Q "THIS WILL DELETE ALL INFORMATION":" FOR TEST: ";TN$:" (UNLESS IT HAS BEEN' TEST":" TAKING DISKS MAY CREATED AT ANY TIME!"::"THE ENCOURAGEMENT PHRASES MAY BE ":" MODIFIED, ADDED TO OR PRINTED."\:"REMEMBER, QUOTES (";(34);") ARE NOT":" ALLOWED WHEN ENTERING QUESTIONS ":" OR ANSWERS TO QUESTIONS!":::"PLEASE SEE THERUCTION NOTES:"::"FROM THIS MENU A TEST MAY BE PREPARED":" FROM 'SCRATCH'. AN EXISTING TEST ":" MAY BE MODIFIED, ADDED TO OR PRINTED."{:"'MASTER' TEST TAKING DISKS MUST BE ":" CREATED IMMEDIATELY AFTER SELECTING":" OPTION 1, HOWEVER, 'STUDENT"' DISK)"::"6. JUMP TO TEST SCORING AND ANALYSIS "::"7. EXIT TESTING GENIE": L22:1:"ENTER CHOICE (1...7 OR ? FOR HELP):":22:36:A$:A$"?"ī2000 t(A$)1(A$)7ī1100 (A$)3000,3240,3500,8700,8600,4000,7000  :" TEST CONST TAKING DISK)": "2. REVISE EXISTING TEST"::"3. PRINT/REVIEW EXISTING TEST "::"4. EDIT/PRINT ENCOURAGEMENT PHRASES":Q 0"5. CREATE '";::"STUDENT";::"' OR '";::"MASTER";::"' TEST":" TAKING DISK (FROM '";::"MASTER";::: ES$(MQ):4 LN1:RW0:DM$"PROGRAM":10000F FLAG1ī7010R 9500:X ^  :" TESTING GENIE TEST CONSTRUCTION MENU":" ===================================="::"1. CREATE NEW TEST (AND '";::"MASTER";::"' TEST":" : ^MA5: `ME20:' bGM$" ":3 cMG15:@ nTN$"":R rTC$"SPARE":] sTP0:h tTC0:w uGC$(MG): vGP$(MG): wXC(MG): xXP(MG): }TQ0: TA0: TE0: TQ$(MQ): TA$(MQ,MA): AS$(MQ): ET$(ME)zF1012,0:216,0:10500*FDD$" ":GBS$" ":RW0:LDM$"PROGRAM":RCQ0:TCA0:UCE0:VWT1000: \MQ50                         OR UPDATING!!"::"PRESS ANY KEY TO GO ON...";:A$&::"IMPORTANT";::" PLEASE READ THIS:":::"THIS PROCESS WILL ERASE THE ENTIRE":" CONTENTS OF A DISK, SO BE SURE AND ":" USE A DISK WHICH IS BLANK OR OF NO "'" IMPORTANCE. THE NEW TEST TAKIT TAKING DISK? (M OR S):";:A$:A$"M"A$"S"ī5006%A$"M"BD$"MASTER"::::"IMPORTANT:":::"PLEASE IDENTIFY THIS DISK AS A COPY OF":" AN ORIGINAL MASTER - OTHERWISE YOU "2&A$"M"ĺ" WILL HAVE DIFFICULTY KNOWING WHICH IS":" THE ORIGINAL F,0:10500s$::"TESTING GENIE ";::"PROGRAM DISK"::" WAS NOT FOUND IN DRIVE 1"::"PRESS ANY KEY":A$:1000$BD$"MASTER":5007:$BD$"STUDENT":5%:5:"WOULD YOU LIKE TO CREATE A ";::"MASTER";::" OR A ":" ";::"STUDENT";::" TES 1 AND PRESS RETURN"::" (PRESS ESCAPE TO RETURN TO MENU)";:A$:A$(27)ī1000l#A$(13)ĺ(7):4000w#4040#:(4);"VERIFY CG.SCORE/ANALYSIS,D1":216,0:10500#:12::"JUST A MOMENT PLEASE..."::(4);"RUN CG.SCORE/ANALYSIS" $216):3635,"2(TQ$(CQ),41,40):(TQ$(CQ),81)]"3:CA1TA:A$" ":CA(AS$(CQ))KK1A$"X""BA$;" ";CA;") ";TA$(CQ,CA):::ES$(CQ)""KK1ĺES$(CQ):"G:(4);"PR#0":3450"Q#:"PLACE TESTING GENIE ";::"PROGRAM DISK";::" IN":" DRIVE5((((TQ$(CQ))1)40)1)TA:ES$(CQ)""KK1QLQL2\!((IQL)58:J1(66I):::I0!)IIQL:"--------------------------------------":"QUESTION #";CQ;" TEST:";TN$::(TQ$(CQ))40ĺTQ$(CQ):3635"1(TQ$(CQ),40):(TQ$(CQ))81ĺ(TQ$(CQ),41A$(13))CQCQ1:3585' (7):3593-  PN(A$)::3:"PRINT THE ANSWERS AND ":" ENCOURAGEMENT PHRASES?";:8890:KK1:A$"N"KK0 :"ALIGN THE PAPER IN THE PRINTER"::"PRESS ANY KEY WHEN READY";:A$::(4);"PR#";PN:I0:8!$CQIIJJ:QL 22:1:"PRESS RETURN (OR ";::"->";::") TO ADVANCE,(";::"<-";::") TO":" BACK UP 'E' TO EDIT AND ESCAPE TO QUIT";:A$:A$(69)Ģ22:1:8880:23:1:8880:1:8820:FLAG1:3585 A$(8)CQ1CQCQ1:3585 A$(27)ī3450 (A$(21))(3560$ (SI$)II(SI$)TQī35422 JJ(SI$)8  :A$"0":"ENTER PRINTER SLOT # (0 FOR SCREEN)";:A$:A$(13)A$"0" (A$)0(A$)8ī3565 A$"0"ī3600 CQII:FLAG0::" REVIEW OF TEST:";TN$:CQTQĺ(7):CQTQ9000) MAY BE REVIEWED/PRINTED":::"PLEASE ENTER THE STARTING QUESTION":" OR RETURN FOR ENTIRE TEST:";:SL3:8900:SI$""II1:JJTQ:3560 (SI$)1(SI$)TQī3505 II(SI$) 10:1:"ENTER THE ENDING QUES.# (UP TO ";TQ;"):";:JJTQ:8900:SI$""MQ;")":(7):I1WT::3245^R ::"ADD";::" QUESTION, ";:CQTQ1:8000:TQ$(CQ)""ī3245wf TQTQ1:FLAG1:3245}z  FLAG0ī1000: 3090:  FLAG0:RL2:3200 FLAG1ī1000 :"A RANGE OF QUESTIONS (OR THE ENTIRE":" TEST890:A$"N"ī3245K4 22:1:8880:1:"ARE YOU SURE?";:8890:A$"N"ī3245k9 FLAG1:CQTQTQTQ1:3245> ICQTQ1:TQ$(I)TQ$(I1):AS$(I)AS$(I1):J1TA:TA$(I,J)TA$(I1,J):::TQTQ1:3245H M TQMQė:"SORRY, AT LIMIT OF # QUESTIONS (";(SI$)1(SI$)TQĺ(7):3290- CQ(SI$):3 I 3290:CQ0ī3500 ::"EDIT";::" QUESTION, TEST:";TN$:9000:8800:FLAG1:3245  3290:CQ0ī3500% ::"DELETE";::" QUESTION, TEST:";TN$:9000:22:1:"DELETE THIS QUESTION?";:8 A QUESTION"::"4. RETURN TO MAIN MENU":::22:"PLEASE SELECT AN OPTION:";:A$:A$(13)ī3450| (A$)1(A$)4ī3285 (A$)3300,3350,3400,3450  22:1:8880:1:"ENTER THE NUMBER OF THE QUESTION:";:SL3:8900:SI$""CQ0:3245  FLAG1ī1000 FLAG0:' : "TEST NAME:";TN$::"NUMBER OF QUESTIONS:";TQ::"NUMBER OF RESPONSES/QUESTION:";TA:TA2ĺ" (TRUE/FALSE TEST)":a 8:1::"OPTIONS:":::"1. EDIT (MODIFY) A QUESTION"::"2. DELETE A QUESTION"::"3. ADDOR PRESS RETURN): ";:SL20:8900:SI$""FLAG1:1000:K SI$"?"ī10200u LN3:RW0:TN$SI$:DM$"MASTER":10000{  FLAG1TN$"":1000: TN$SI$:9600 FLAG1TN$"":1000: 9800 RL3242,3503,8606  FLAG0:RL1:3200XIMUM NUMBER OF PHRASES":" ENTERED! PRESS ANY KEY";:(7):A$:8705o62"FLAG1:CETE1:8760:ET$(CE)""ī870564"TETE1:TEMEī875165"870568"E7:"3:"THE ENCOURAGEMENT PHRASE MAY CONTAIN":" THE FOLLOWING 'MACROS'.":" THESE WILL BE REPLACED WI5$"(A$)1(A$)4ī873595)"(A$)8751,8778,8785,8795?5+"5,"22:1:8880:1:"ENTER ENCOURAGEMENT PHRASE # (1..";TE;"):";:SL3:8900:(SI$)0((SI$)TE)ĺ(7):87485."CE(SI$):5/"D60":" ADD ENCOURAGEMENT PHRASE"::TEMEĺ:"SORRY, MABLE: ";TE;" (MAX POSS.: ";ME;")":::"OPTIONS:":::"1. ADD ENCOURAGEMENT PHRASE"::"2. DELETE ENCOURAGEMENT PHRASE":4""3. LIST PHRASES (SCREEN OR PRINTER)"::"4. RETURN TO MAIN MENU":4"::22:"PLEASE SELECT AN OPTION:";:A$:A$(13)ī8795((SI$)):9400:22:1:8880:1:23:8880:22:1:"IS THIS THE ONE YOU HAD IN MIND?";:8890:A$"Y"ıy3a!ES$(CQ)"":85053!3!FLAG0:RL3:3200:3!FLAG1ī10003!5005:3!3!FLAG0:y4":" ENCOURAGEMENT PHRASES REVIEW"::"# AVAILA102(SI$):1::"X"::AS$(CQ)SI$:8410E2!102(SI$):1:"X":K24!29!22:1:8880:1:"ENTER ENCOURAGEMENT PHRASE # (1..";TE;")":" (OR RETURN IF NONE DESIRED):";:SL2:8900:SI$""Ģ23:1:8880:1:2H!(SI$)1(SI$)TEī8505d3M!ES$(CQ)ET$(TA$(CQ,CA)):8900:A(SI$)ĺ(BS$,(A(SI$)))E1 TA$(CQ,CA)SI$:K1 Z1 AS$(CQ)""1 22:1:"PLEASE INDICATE CORRECT ANSWER";:A$:AS$(CQ)""A$(13)ī84701 SI$A$:((SI$)1)((SI$)TA)ī84101 AS$(CQ)""Ģ102(AS$(CQ)):1:" "*2 0:8500:8800:0i03:1:"QUESTION #";CQ::SL119:A(TQ$(CQ)):8900:A(SI$)ĺ(BS$,(A(SI$))){0TQ$(CQ)SI$:0 0 TA2ī82100 TA$(CQ,1)"TRUE":TA$(CQ,2)"FALSE":9200:0 CA1TA:8300::0l 01v SL34:102CA:3:CA;") ";:A"N"ī1000:/b:12:S$"6":"'BOOT' FROM SLOT:";S$:12:18Y/A$:A$(13)Ģ13:1:7120z/(A$)1(A$)8S$A$:7100/(7):7010/12:18:S$:12:19:7040/:(4);"PR#";S$:/@/E" TEST: ";TN$:8100:TQ$(CQ)""ı0T8200:840T DISTURB..."::(4);"OPEN TEMP,D1":(4);"WRITE TEMP":(34);TN$;(34);",";BD$;",";(34);DD$;(34):(4);"CLOSE TEMP"::(4);"RUN CG.TEST TAKING,D1":I14WT::1000.X.]:12:"ARE YOU SURE? (Y OR N):":12:24:A$:A$"Y"A$"N"ī7005 /`A$ANY KEY!";:A$-DD$" "ė:12:"PLEASE PUT THE TESTING GENIE ":::"PROGRAM DISK";::" IN THE DISK DRIVE D1"::"AND PRESS RETURN WHEN READY:";:A$:A$(13)ī5273-LN5:DM$"PROGRAM":RW0:10000-FLAG1DD$" ":1000.:12:"PLEASE DO NOOSE":YY1:9730:,ZYY0:;,BD$"MASTER"YY1:9930:F,YY0:,DD$" "ė:5:"REMOVE THE DISK IN THE DRIVE ":" AND WITH A FELT TIP PEN WRITE":::"TEST: ";TN$::BD$;" DISK":::"ON THE DISK"-DD$" "ĺ:"WHEN YOU HAVE DONE THIS, PRESS KING"::(4);"OPEN ";BD$+(4);"CLOSE ";BD$:(4);"OPEN TEST.NAME";DD$:(4);"WRITE TEST.NAME":TN$:(4);"CLOSE":(4);"OPEN ";TN$;".SCORE";DD$:(4);"WRITE ";TN$;".SCORE":TN$;",";TQ;",";TA;",0",#A$(34)" "(34):A$;",";A$;",0,0,";A$:(4);"CL"N";::"):";:A$:A$(13)A$"N"J*A$"Y"BD$"MASTER"FLAG1:3099_*A$"Y"ī5000:+::"CREATING ";::BD$;::" TEST TAKING DISK"::" FOR TEST: ";TN$:12:"PLEASE BE PATIENT..."::(4);"INIT CG.TEST TAKING";DD$:(4);"DELETE CG.TEST TA" DISK WHICH SHOULD BE ERASED!!!!!"::" PLEASE REPLACE IT WITH A BLANK DISK!"::"PRESS ANY KEY";:A$:5010)216,0:10500)E(222):E8ī5080)FLAG0:)FLAG1" ":1000:"*::"ARE YOU SURE YOU WANT TO ERASE THIS ":" DISK? (Y/";::" PRESS THE RETURN KEY WHEN READY":" TO CREATE THE ";::BD$;::" DISK:";:A$:A$(13)ī5010l(5070(:(4);"VERIFY CG.TEST CONSTRUCTION";DD$:216,0:10500m):(7);"WE JUST SAVED YOU SOME MONEY!!"::"THE TESTING GENIE PROGRAM IS NOT A ":NG DISK":" WILL CONTAIN A TOTALLY EMPTY SCORE ":" FILE!!"::"ARE YOU USING 1 OR 2 DRIVES? (1 OR 2):";:A$:A$"1"A$"2"ī5010'DD$" ":A$"2"DD$",D2"a(:11:"THANK YOU. NOW, PLEASE PLACE THE NEW ":" DISK IN THE DISK DRIVE ";DD$;", AND ":"WRITE ";TN$;".TEST":(34);TN$;(34);",";TQ;",";TA;",";TC$:I1TQ:(34);TQ$(I);(34);",";(34);ES$(I);(34):J1TA:(34);TA$(I,J);(34):::(4);"CLOSE":YY1ī5210FC&3098FH&FM&9815FR&(4);"VERIFY ";TN$;".ANSWER";DD$:9820GW&216,0:16,0:105005E%:(7):"FOUND TEST CALLED ";TN$;"!"E%:"PROCEED TO SAVE NEW VERSION?":" (WILL ERASE OLD VERSION!)--(Y OR N):";:A$:A$"Y"A$"N"ī9717E%A$"N"FLAG1:9795E%216,0:10500E%YY0F&:(4);"OPEN ";TN$;".TEST";DD$:(4);ND TEST ";TN$:I1WT::FLAG1:96957D%216,0:10500D%(4);"OPEN ";TN$;".TEST";DD$:(4);"READ ";TN$;".TEST":TN$,TQ,TA,TC$:I1TQ:TQ$(I),ES$(I):J1TA:TA$(I,J):::(4);"CLOSE"D%3236D%D%9720 E%(4);"VERIFY ";TN$;".TEST";DD$:21S ESCAPE TO NOT SAVE CHANGES)";:A$:A$(27)ī1000=CW%9550PCX%216,0:10500CY%:(4);"OPEN ENCOURAGEMENT":(4);"WRITE ENCOURAGEMENT":TE:I1TE:(34);ET$(I);(34)::(4);"CLOSE":1000C%C%9620C%216,0:10500$D%:(7);"COULD NOT FI(4);"OPEN ENCOURAGEMENT":(4);"READ ENCOURAGEMENT":TE:I1TE:ET$(I)::(4);"CLOSE":205bBN%mBP%9557BS%:(4);"VERIFY ENCOURAGEMENT,D1":9560BU%216,0:105003CV%:"PLEASE INSERT THE PROGRAM DISK IN":" DRIVE 1 AND PRESS RETURN":" (OR PRES0ĺES$(CQ);A$A%"A%9507NA!%:(4);"VERIFY ENCOURAGEMENT,D1":9510aA#%216,0:10500A$%"PLEASE INSERT THE PROGRAM DISK IN":" DRIVE 1 AND PRESS RETURN":" (OR PRESS ESCAPE TO QUIT)";:A$:A$(27)ī7000A%%9500A&%216,0:10500\B'%:8940#@$#SI$(SI$,(SI$)1):8940)@(#Z@2#9100:9200:102(AS$(CQ)):1:"X":9400:`@#@#3:1:"QUESTION #";CQ;" (OF ";TQ;")"::TQ$(CQ)@#@#CA1TA:9300:CA:@T$@h$102CA:3:CA;") ";TA$(CQ,CA):@$ A$24:1:8880:1:CQ1)" "JI:I0 ?#I:J0ī8960b?#SI$(SI$,J)(BS$,(KJ1))(SI$,KJ1)A$:5:1:SI$;:8940h?#?#(SI$)1SI$"":8940? #(SI$)80Ģ6:40:" ":6:40:8996?!#(SI$)40Ģ5:40:" ":5:40:8996@"#X(0):(X):" ";:(X):(SI$)1SI$"":(27)SI$"":%>"XX1ĺ(7);:8940X>"((A$)32)((A$)95)(A$(34))ĺ(7);:8940>"((SI$)40(SI$)80)A$" "(SI$,1)" "ī8975>#SI$SI$A$:(SI$)SLXX1>#A$;:8940>#J0:K(SI$)1:IIK40:(K40)1II1?#IKII1:(SI$,I,A$"N"İ8500="="K="" ";:Q="a="" (Y/N):";="A$:A$"N"A$"Y"ī8894="="="MG5:SI$""="A$:(SI$)SLXX0="(SI$)MGSLĺ(7);="A$(13)XX0:="A$(8)ī8990:>"A$";:8890:A$"Y"ī8840b TO USE, OR TO":" RETURN TO THE MENU:";:A$:A$(27)TN$"":1000MF(A$(13)ī3220Md(10270M(216,0:105002N(:(7);"THE DISK IN THE DRIVE ";DD$::"IS NOT A VALID TEST TAKING D.. PRESS RETURN":A$:A$(13)ī10168RL'DD$B$:LN200,8798,3221,3095,5280,5074^L'10400L':(4);"VERIFY TEST.NAME";DD$:(4);"OPEN TEST.NAME":(4);"READ TEST.NAME":TN$:(4);"CLOSE":216,0:10500M(:"THE DISK IN THE DRIVE ";DD$:"CONTAINS'RW1Ğ:"WITHOUT THE PROTECT TAB!"::K'" PRESS RETURN WHEN READY ":" (OR ESCAPE TO QUIT OPERATION!)";:A$:A$(13)A$(27)ĺ(7):10100K'A$(13)ī10012K'FLAG1&L':(7)::"WARNING";::" WILL NOT PERFORM REQUESTED":" OPERATION..DELETE DUMMY":216,0:10500'J`'10170:Jj'216,0:10500Jt'::(7):"PLEASE INSERT THE ";::DM$;" DISK"::DM$"PROGRAM"ĺ:" FOR TEST ";::TN$::J'DM$"PROGRAM"ĺ:" IN THE DISK DRIVE D1":J'DM$"PROGRAM"ĺ" IN THE DISK DRIVE ";DD$:)K:(4);"CLOSE ":YY1ī5260!I''I'RI'FLAG0:B$DD$:DM$"PROGRAM"DD$",D1"^I'10090I':DM$"BLANK"ĺ(4);"VERIFY ";DM$;DD$I 'DM$"MASTER"ĺ(4);"VERIFY ";TN$;".TEST"I$'RW0ī10170J8'(4);"OPEN DUMMY";DD$:(4);"CLOSE DUMMY":(4);"OSE" H&H&H&YY0H&(4);"OPEN ";TN$;".ANSWER";DD$:(4);"WRITE ";TN$;".ANSWER":(34);TN$;(34);",";TQ;",";TA:I1TQ:AS$(I)::TC;",";TP;",";(34);GM$;(34):I1TCI&(34);GC$(I);(34);",";XC(I):I:I1TP:(34);GP$(I);(34);",";XP(I):I0500CGX&(7);"COULD NOT FIND ANSWER ";TN$:I1500::FLAG1:9890VG\&216,0:10500Gf&:(4);"OPEN ";TN$;".ANSWER";DD$:(4);"READ ";TN$;".ANSWER":TN$,TQ,TA:I1TQ:AS$(I)::TC,TP,GM$:I1TCH&GC$(I),XC(I):I:I1TP:GP$(I),XP(I):I:(4);"CLŠԍŠԢ٬΢ŬԢÍԬŢÍԬ͢Ĭ¢ÍĬ!̠Ԡ٢Ԡ̠ԠŠ͢ՠ̠̠٠Π̢ŠҠ̠ԠϠϡĠƠӬՠΠӠźէŠҠŠĠסޢ¬ŢԠԠƠӢԠŠŠҢǠ٠ΠŠġԠǠԠ΢ǠҠҢƠՠ٠ϠŠӠΠҠԺĠάԿŠŠ̠נТŠˠ̠ĠՠȠŠ΢ŠĠӠΡŠԠԠҠ̠ҢԠ̠٠Š٢ՠΠˠȠǠŢΧԠâ̠ƠŠŢŠ٠ϠԠŠΠŠΠǠԠӠϺŠĠΠŠҠˠԠŠſˠլŢӠΠŠȠƠŠԢӠΠŠŠƠҢ٠РϠҠϢĠӠΠԠƠӢƠҠĠΠҠҠӠҠΠŠΠԠΠҠˠҠӠӿŠՠǿӠΠȠƠҠԢŠĠŠˠ̠ԠϠԢҠ͠٠ՠȢ٠РϠȠǬ̢נ٠ӠΠŠŠĠĠԠŢĠ̠ƠŠŢŠ͠Š̠ϠנՠϠŠҠ٠ƺȬȿŠԠӢŠԠƢŠԠӢҠŠΠŠҢՠŢנ٠ӠΠŠӠΡԠŠĠƠŠŠԢŠҠԠŠŢ٠Ǡ٠ĠĠŠ͠Š̠נՠϠԠҠԠҺϠǡ٢٠ѠƠĢ٠ϺϠҠԬŢԠҠΠ٢٠ҠŠӢŠҠΠŠϠŢŠŠŠƠŠŧ̠ƠŠŠƠՠŠΠҠΠǠΠΠՠΠԠԺΠȡ̠ԠԠŢ̠ԠԠӢź̠ƠŠŢŠ̠ҠƠԠӠĠӺ׬ŢŠҠΠΠƠŠԠӠҠӠĠԢŠԮǠΠŠӢΠϠŠǠӠРĠӠҠǠҢ̠ƠŠŢŠàźӠӠϠ٠Ρ̠ˠȠ٠ҡΠŠҠ٠Ϡˠ̺РԠРŢŠŠӠҠǢԠ̠͠ӢŠŠ٠ˠȠҠӢ̠Ǡ٠ƠӠŠԢՠҠԠŠƠŠŬՠ٠ԠϺ٠ҢŠբŠԢōŠ͠ŠӺĠ ŢŠΠŠƠ΢٠ŠΠ٢ӠŠ٢ӠǠТ̠ƠŠŢŠҠԠˠŠ͠Š     ŠԢâ¢âĢƢ¢âĢƢ:TA2ĺ" 1.OR.";TA;" ANSWERS THE QUESTION":i TA2ĺ" 1.TO.";TA;" ANSWERS THE QUESTION":1 "RETURN OR -> ADVANCES TO NEXT QUESTION":"-> OR <- ADVANCES OR BACKS UP"::" U.......FINDS ";::"U";::"NANSWERED QUESTIONS"::" Q1:8700*(A$(70))(CQ1)CQ1:1200JA$(76)CQTQCQTQ:1200wA$(71)İ3290:SI$""CQ(SI$):1200A$(85)ī8600A$(63)İ3000:1200(7);:1200: 3 :" ";NF$;"'S INSTRUCTIONS":::"KEY PRESS ACTION":24:1:8880:1:"ENTER ANSWER, COMMAND OR ?: ";:A$:((A$)0)((A$)TA)İ8400:9400:1210CQTQ((A$(13))(A$(21)))ī8500(CQTQ)ī1227(A$(21))(A$(13))CQCQ1:1200A$(8)CQ1CQCQ1:1200A$(81)Ģ22:1:8880:22:1:"DID I GET EVERYTHING THE WAY YOU"423:1:8880:1:" WANT IT ";SA$;NL$;"? (Y/N): ";:SL2:8900:SI$"N"SI$"Y"ī10765SI$"N"ī10108:8:"VERY GOOD ";NF$;".":I1WT::CQ0:3000CQ1CQ1:" TEST: ";TN$:9000_$(SI$,2):1037>(SI$,1)" "SI$(SI$,1,(SI$)1):1038Dv10:1:8880:1:"YOU MUST TYPE SOMETHING!":10:1:8880:1:"ARE YOU MALE OR FEMALE? (M/F):";:SL2:8900:SI$"M"SI$"F"ī1050.SX$SI$:SA$"MR. ":SX$"F"SA$"MS. "+35:1:8880:1:SL15:"PLEASE ENTER YOUR ";::"FIRST";::" NAME:";:8900:1036:SI$""İ1040:1015qNF$SI$7:1:8880:1:"PLEASE ENTER YOUR ";::"LAST";::" NAME:";:8900:1036:SI$""İ1040:1030 NL$SI$:1050  (SI$,1)" "SIA$:A$(13)ī1009'A$(27)ī7000z(7):23:1:"THE RETURN KEY IS ON THE RIGHT SIDE":" OF THE KEYBOARD";:100623:1:8880:24:1:8880:1:"OK!";:I1WT::1:1:"I NEED TO KNOW A FEW THING ABOUT YOU":" BEFORE WE GET STARTED."e ":z"TEST TYPE:";:TA2ĺ" MULTIPLE CHOICE (";TA;" CHOICES).":1005" TRUE/FALSE"::"NUMBER OF QUESTIONS: ";TQ19:1:"PLEASE PRESS (RETURN) TO GO ON,";:" OR PRESS (ESCAPE) TO QUIT";:E (ESC TO REBOOT)";:A$:A$(27)ī70000200C216,0:10500(4);"OPEN TEST.NAME":(4);"READ TEST.NAME":TN$:(4);"CLOSE":96005:"TEST: ";TN$:::NF$"":NL$"":SX$"":SA$"":AA$" APPLE IIE PLEASE ":" BE SURE THE 'CAPS LOCK' KEY IS DOWN!)"B L 210q (4);"VERIFY TEST.NAME,D1":215'10500:(7);"PLEASE INSERT VALID TEST DISK":"(MASTER OR STUDENT TYPE DISKS)":" IN THE DISK DRIVE ";DD$;". PRESS ANY KEY":" TO CONTINU TQ$(MQ):" TA$(MQ,MA):1 ES$(MQ):@ SN$(MS):O SR$(MS):] SS(MS):k SP(MS):z SG$(MS): NF$"": NL$"": SX$"": AA$"": SA$"":< :12::"JUST A MOMENT PLEASE..."::18:"(IF YOU ARE USING AN 10:S @::12:"JUST A MOMENT PLEASE..."::(4);"RUN CG.TEST CONSTRUCTION,D1":f A216,0:10500s FDD$"":~ RCQ0: TCA0: UCS0: VWT1000: \MQ50: ^MA5: bMS100: nTN$"": sTC$"": xTQ0: TA0: TS0:"ON THE DISK."N <DD$" "ĺ:"WHEN YOU HAVE DONE THIS, PRESS ANY KEY!";:A$ =DD$" "ė:12:"PLEASE PUT THE CLASS ROOM GENIE"::"PROGRAM DISK";:"IN DRIVE 1"::"AND PRESS ANY KEY WHEN READY ";:A$ >LN2:RW0:DM$"PROGRAM":10000 ?FLAG1ī70E D1"::"PRESS ANY KEY WHEN READY ";:A$F 7LN1:RW1:DM$BD$:10000Z 9FLAG1ī7010: ::(4);"SAVE CG.TEST TAKING";DD$:DD$" "ė:10:"PLEASE REMOVE THE DISK IN DRIVE 2,"::" AND WITH A FELT TIP PEN WRITE:":::"TEST: ";TN$:BD$;" DISK":::'1012,0:216,0:10500%65T(4);"VERIFY PROGRAM,D1":216,0:10500:n(:(4);"OPEN TEMP":) -(4);"READ TEMP":TN$,BD$,DD$:(4);"CLOSE TEMP":DD$" "ė:5:"PLEASE PUT THE ";::BD$;" DISK":::"FOR TEST: ";TN$::"IN THE DISK DRIV               &$I1ī9445&&$((AZ$)I)5ī9455e&$(AZ$,I,6)"%FNAME"AZ$(AZ$,1,I1)NF$(AZ$,I6):9415&$(AZ$,I,6)"%LNAME"AZ$(AZ$,1,I1)SA$NL$(AZ$,I6):9415&$(AZ$,I,6)"%FNAME"AZ$NF$(AZ$,I6):9415'$(AZ$,I,6)"%LNAME"AZ$SA$NL$ (OF ";TQ;")"::TQ$(CQ)%#7%#CA1TA:9300:CA:=%T$c%h$102CA:3:CA;") ";TA$(CQ,CA):i%$%$22:1:8880:1:ES$(CQ)""ı%$AZ$ES$(CQ):9415:%$22::AZ$;::%$I1(AZ$):%$(AZ$,I,1)"%"ī9430%$:%$((AZ$)I)5ıA$:(SI$)SLXX1!$#A$;:8940'$#B$ #(SI$)1SI$"":8940t$"#X(0):(X):" ";:(X):(SI$)1SI$"":8940$$#SI$(SI$,(SI$)1):8940$(#$2#9100:9200:AZ$(AA$,CQ,1):AZ$" "Ģ102(AZ$):1:"X"$P#$#%#4:1:"QUESTION #";CQ;"; #"A$:A$"N"A$"Y"ī8894&#",#"7#"MG3:B#"SI$""Z#"A$:(SI$)SLXX0s#"(SI$)MGSLĺ(7);#"A$(13)XX0:#"A$(8)ī8990:#"A$(27)SI$"":#"XX1ĺ(7);:8940#"((A$)32)((A$)95)ĺ(7);:8940$#SI$SI$OR ESC TO ABORT";:A$:A$(27)ī10007"Q"AZ$AZ$"*A*"="V"O"["TSTS1:CSTSy"`"SN$(CS)AZ$:SR$(CS)(AA$,1,TQ):9900"t""y":12:"JUST A MOMENT PLEASE.. ":I(0):1000:""""" ";:""#"" (Y/N):":" ";NF$" "NL$!B":"WOULD YOU LIKE TO REPLACE THE ANSWERS":" IN THE SCORE FILE?";:8890:A$"Y"CSI:AZ$AZ$"*R*":8800%"G"::"I AM GOING TO ADD THESE ANSWERS TO THE":" SCORE FILE UNDER THE NAME:":" ";AZ$"*A*"::"PRESS RETURN TO PROCEED H )"I1TS:A$SN$(I):(A$,3)"*A*"(A$,3)"*R*"A$(A$,(SN$(I))3)Z ."A$AZ$ī8760g 3"I:8790m 8"!=":"I HAVE FOUND A STUDENT IN THE SCORE":" FILE WITH THE SAME NAME AS THE":" STUDENT WHO JUST TOOK THIS TEST!!"::" THE STUDENT'S NAME IS:")(JJTA)ĺ:"SCORE FILE TEST DOES NOT MATCH TEST":" JUST GIVEN!!!!":(7):A$:8715"TSMSĺ:"THE SCORE FILE IS ALL FILLED UP!!!":(7);" YOU WILL NEED TO DELETE A STUDENT OR":" USE A FRESH SCORE FILE - SEE MANUAL":A$:8715 $"AZ$NL$", "NF$:SURE";::" YOU":24:1:8880:1:" WANT TO QUIT?";:8890::1:8880:A$"N"ī1200[": ":"PLEASE INSERT THE DISK ON WHICH TO SAVE":" THE ANSWERS IN DRIVE ";DD$::"PRESS RETURN WHEN READY";:A$:A$(13)ĺ(7):8715"9800"V"(IITQCQ1TQ:(AA$,I,1)" "CQI:1200(!O!I1CQ:(AA$,I,1)" "CQI:1200!:24:1:8880:1:NF$;", YOU HAVE ANSWERED":" EVERY QUESTION!! ARE YOU DONE?";:8890:A$"N"Ģ23:1:8880:1210!8700!S"23:1:8880:1:NF$;" ";::"ARE YOU RETURN TO THE TEST":" TO ANSWER THOSE QUESTION(S)?";:8890:A$"N"Ģ22:8700\!:::"REMEMBER ";::"U";::" ALLOWS YOU TO QUICKLY ":" FIND ALL UNANSWERED QUESTIONS!":24:"----> PRESS U OR ANY KEY TO GO ON";:A$:1224!!CQTQī8620"!IJJ1;M!:J0ĺ" YOU HAVE EVEN ANSWERED EVERY QUESTION!"S!J0ĺ:" WOULD YOU LIKE TO RETURN TO THE TEST":" TO REVIEW YOUR ANSWERS?";:8890:A$"N"ī8700U!J0ī1200MW!"YOU HAVE SKIPPED ";::J;::" QUESTION(S) OF ";TQ::" WOULD YOU LIKE TO 02(AZ$):1:" "F 102(A$):1::"X"::CQ1AA$A$(AA$,2):h!CQTQAA$(AA$,1,TQ1)A$:!AA$(AA$,1,CQ1)A$(AA$,CQ1):4!>!:"CONGRATULATIONS ";NF$::" YOU HAVE REACHED THE END OF THE TEST!":::J0:I1TQ:(AA$,I,1)" "TQĺ(7):3290 XDZS$"6"::12:"'BOOT' FROM SLOT:";S$Pb12:18hdA$:A$(13)ī7030l((A$)2)((A$)7)ī7027nS$A$:12:18:S$:12:19:7012s(7):7002v14:1::(4);"PR#";S$:  AZ$(AA$,CQ,1):AZ$" "Ģ1----> PRESS RETURN OR ENTER INSTRUCTION";:A$:A$"G"ė:"ENTER A NUMBER BETWEEN 1 AND ";TQ::"PRESS RETURN AFTER ENTERING THE NUMBER." 1224  24:1:8880:1:"ENTER THE NUMBER OF THE QUESTION:";:SL2:8900:SI$""ī1200 (SI$)1(SI$).......WHEN ALL THROUGH, TO ";::"Q";::"UIT": " F.......GOES TO ";::"F";::"IRST QUESTION"::" L.......GOES TO ";::"L";::"AST QUESTION"::" G.......";::"G";::"ETS ANY QUESTION"::" ?.......SHOWS THIS SCREEN" 24:1:"10A$(27)ĺ(7):10100+.'A$(13)ī100126.'FLAG1.':(7)::"WARNING";::" WILL NOT PERFORM REQUESTED":" OPERATION.... PRESS RETURN":A$:A$(13)ī10168.'DD$B$:LN57,63/):::(4);"PR#0":::12:"PRESS ANY KEY TO CONTINUE";:A$:2"ĺ:" FOR TEST ";::TN$::M-'DM$"PROGRAM"ĺ:" IN THE DISK DRIVE D1":~-'DM$"PROGRAM"ĺ" IN THE DISK DRIVE ";DD$:-'RW1Ğ:"WITHOUT THE PROTECT TAB!"::.'" PRESS RETURN WHEN READY ":" (OR ESCAPE TO QUIT OPERATION!)";:A$:A$(13)Y ";DM$;DD$9, 'DM$"MASTER"ĺ(4);"VERIFY ";TN$;".TEST"J,$'RW0ī10170,8'(4);"OPEN DUMMY";DD$:(4);"CLOSE DUMMY":(4);"DELETE DUMMY":216,0:10500,`'10170,j'216,0:10500-t'::(7):"PLEASE INSERT THE ";::DM$;" DISK"::DM$"PROGRAMDD$:(4);"WRITE ";TN$;".SCORE":(34);TN$;(34);",";TQ;",";TA;",";TS:I1TS:(34);SN$(I);(34);",";SR$(I);",";SS(I);",";SP(I);",";SG$(I)::(4);"CLOSE ":8820+'+'FLAG0:B$DD$:DM$"PROGRAM"DD$",D1"+'10090 ,':DM$"BLANK"ĺ(4);"VERIFA$:A$(27)ī7000&*Z&A$(13)ī98007*[&(7);:9816J*\&216,0:10500*f&:(4);"OPEN ";TN$;".SCORE";DD$:(4);"READ ";TN$;".SCORE":TN$,II,JJ,TS:I1TS:SN$(I),SR$(I),SS(I),SP(I),SG$(I)::(4);"CLOSE":8725*&+&:(4);"OPEN ";TN$;".SCORE";:::(4);"CLOSE")%250!)H&,)M&9815Y)R&:(4);"VERIFY ";TN$;".SCORE";DD$:9820l)W&216,0:10500*X&:(7);"COULD NOT FIND SCORE FILE FOR":"TEST ";TN$::"PLEASE INSERT CORRECT MASTER OR STUDENT":"DISK AND PRESS RETURN (ESC TO 'REBOOT')";:1:"PRESS A KEY";:A$:(%((%9620;(%216,0:10500y(%:(7);"COULD NOT FIND TEST ";TN$:I1WT::FLAG1:9695(%216,0:10500)%(4);"OPEN ";TN$;".TEST";DD$:(4);"READ ";TN$;".TEST":TN$,TQ,TA,TC$:I1TQ:TQ$(I),ES$(I):J1TA:TA$(I,J)(AZ$,I6):9415D'$(AZ$,I,6)"%FNAME"AZ$(AZ$,1,I1)NF$:9415|'$(AZ$,I,6)"%LNAME"AZ$(AZ$,1,I1)SA$LF$:9415(!%:TN$;" SCORES TO DATE"::"NAME ANSWERS":"==========================":I1TS:SN$(I);17);(SR$(I),1,TQ)::22:ÍҬ΢̬Ţ