' +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-U@Ϡ@跻~!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 ~(` F d֠ĭz# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d¾Πz# u`U*U*W/+U*UŪբ U*U*U*U*U*U*U*U*U*U*U ժԪT*U*U*U*U*U*Uo_:}*TժժժU*U*U*U*U*U*U*U*U*U*%ժԪ**U*U*U*U*U*U*U*U*U*ĈP*U*U*U*U*U*U*U*U*UˆժժT*U*U*U*U*U*U*U*U*ժՊP*U*U*U*U*U*U*U*U*U*U*H U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u>U+UժԪժՊU*U*U*U*U*U*U*(ժժժԪժըժT*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժժբժժQ*U*U*U*U*}z_W_***U*U*U*U*U*U*U*U*Uj?~wU*U*U*U*Uz?}{!U(UĈ"U*U*U*U*U*U*U*U*U*q}?~w*U*U*U*U*U*U+}*U**Ԫ U*U*U*U*U*U*U*U*U*U*U ~U*U*U*U*U*U*U.>]*(U*U*U*UT*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*Q*U*U"Q*U*U*U*U*U*U*U*U*)U* DA*U*UP*U*U*U*U*U*U*U*U**Ъժ*Q*U*U*U*U*U*U*U*U*U*U DT*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj.U-UB*U*@*U*U*U*U*U*U*U*U*a}?~w}?(U*U*U*U*U*U*U*U"U U*Q*U*U*U*U*U*U*U*U*U**U*U*U**U*UR*U*U*U*U*}zW_**U*U*U*U*U*U*U*U*UJժԪժ%U*U*U*U*Uj?}}oEЪՊU*U*U*U*U*U*U*U*eժժԪժL*U*U*U*U*U*U*U*U*ՊT*U*U*U*U*U*U*U*U*U*U*ժԪU*U*U*U*U*U*U*>W*QժժժT*U*U*U*U*U*U*U*U*U*ժԪJ*U*U*U*U*U*U*U*U*U*ĈP*U*U*U*U*U*U*U*U*UժժժQ*U*U*U*U*U*U*U*U*ժՂP*U*U*U*U*U*U*U*U*U*U@T@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*Wo-UժՀժՊU*U*U*U*U*U*U*ժժժԪժը*U*U*U*U*U*U*U*UĈT*U*U*U*U*U*U*U*U*U*ժժժQ*U*U*U*ժժըժժժԪժըժԪU*uzU~w/*A*U**U*U*U*U*U*U*U*U*U ?~w#U*U*U*U*Uj}?}w' TĈU*%U*U*U*U*U*U*U*U*E}?~wE*U*U*U*U*U*U*U*U*E*Պժ*U*U*U*U*U*U*U*U*U*U*U*q~U*U*U*U*U*U*U*zW*)U*@*U*U*U*U*U*U*U*U*U*U*>~wG*U*U*U*U*U*U*U*U*U* U U*U*T*U*U*U*U*U*U*U*U*)U*U DA*U*UR*U*U*U*U*U*U*U*U*P*łՠ*Q*U*U*U*U*U*U*U*U*U"DT*U *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*j?*UP*U*@*U*U*U*U*U*U*U*U*|}?~w}Q*U*U*U*U*U*U*U*U*TU(U*U*U*U*U*U*U*U*U*U**U*U"Պ*P*UR*U*U*U*}}?~w}~?U*UzU}Ղժժ*U*U*U*U*U*U*U*U*U*ժԪժ)U*U*U*U*Uz}?}NJժ"U*U*U*U*U*U*U*U*ժժԪժR*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*?fU*u>U*U*UժԪԪՊU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U ժժժբժժU*U*U*U*(A (D("T"DP(AU*}z_W_**U*U*U*U*ǏUz?}z!U*E"ĈU*U*U*U*U*`OĈU*U*U+}*U**Ԫ U*U*U*U*U*~|y揎U*U.>]**U*U*U*UT*U*U*U*U*U*U*U*U*U*Q*Q*U U"Q*U*U*U*U*|yϟU*U*U*U*(U* DA*U*UP*U*U*U*P "Q @ *T(PU*U*U*U*U**Ъժ*Q*U*U*U*U*U*U*U*U*U*U DT*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*fUj.U*U*UB*U*ժ*U*U*U*U*U*U*U*U*U*U*U"U U*Q*U*U*U*U*U*U*U*U*UJ*U*U*U**U*UR*U*U*U*(A@ *D(""T"DT(QU*}zW*U*U*U*U*pAρ́ǏUj?}jժըЪՊU*U*U*U*`OѢŊԈѢŊԨѢU*U*U*U*U*ՊT*U*U*U*U*f `瀀́U*U*>W*ԪժժժT*U*U*U*U*ԀU*U*U*U*U*ĈP*U*U*U*U*|qϟU*U*U*U*ԪժժժQ*U*U*U*U*U*U*U*U*ժՊP*U*U*U*U*U*U*U*U*U*U@ժ@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*WjU*UժЪԪՊU*U*U*U*U*U*U*U*U*UĈT*U*U*U*U*U*U*U*U*U ԪժժU*U*U*U* "T ""DP"D @ U*uzU~w/*A*U**U*U*U*U*xCρ́Uj}?}z'U T"ĈT*%U*U*U*U*`LѢѠłԨѠU*U*U*U*U**Պժ*U*U*U*U*U* `燀́U*U*zW*)U*@*U*U*U*U*U*ԀU*U*U*U*U* U U U*T*U*U*U*U*U*U*U*U *U*U DA*U*UR*U*U*U*U*U*U*U*U*P*łՠ*Q*U*U*U*U*U*U*U*U*U"DT*U *U*U*U*U*P "D E T(@U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*jW*UP*U*Ղ*U*U*U*U*U*U*U*U*U*U*U*TU(U*U*U*U*U*U*U*U*U*U*)U*U"ъ(P*UR*U*U*U* "T P"*DP"E (P @U*UzU~Tժժ*U*U*U*U*C쁀ǏUz}?}_ǪժĈ"U*U*U*U*`LUU*u_U_Ĉ*U*U*U*U*U*U*U*U*UBժԪժU*U*U*U*Uz?}{QժЪՊU*U*U*U*U*U*U*U**U*U*U*0?X%X\u\=\\XDxdp?@@}`~0K0+8k8{8 8 0 pI`{@}``VpVpvpp``@>[@[@[@[@[KO ~xXl6 67777|p0?Xll n:nnn,"<2x``~Hp`?4x| ~x3^@!@#@~``?@hp+x|pg""""""""""""" hp @lv[7@6_@@a?` p8ph? r|gxom>%?C~ @`0p`?PdxOp_Z|J~?|/@?``@ 0hp <~CG~}@!@  P `Wp0x`Ox||zC~ @/ ``p@px xt9~3| """" """" "" "" """"""         """""""""""""" """"  @ @ p x @ @ p  6``op7`p`8l@@_`o 4666@7`766@3p0X9 ^_XXN@C`f<| ~"000<>00@Mxx| D```x|``8pp7x @2xsLy`xN `{@ { `K@KK@epgshp ?@_@hlllo@ollg`a0s~?QXXX ?`90q<8q001<980X ~|3>~@s`bx~pb`~`bxrp2`20|yf|0|g@Ep}`E@}@Epe`e@e`p @p@wv@K`O0f`8,o.l, /.,@`L@pX8^?\8X?X^\ X ,?>@nrn~,b<2x` `?pXX}\\e\}XDxdp=@"""""" "" "" """hU*u_W߯Ĉ*U*U*U*U*Uz?}{ѪՊЪՊU*U*U*U*`LРĨрU*U*W/*U*UŪբ U*U*U*U*U*<|y揌ԀU*Uo_:}*ԪժժժU*U*U*U*U*pqϏ́U*U*U*U*U*ĈP*U*U*U*U* ÁU*U*U*U*ԪˆժժT*U*U*U*P"TQ"@ *T(QU*U*U*U*U*ժժ*P*U*U*U*U*U*U*U*U*U*U*T U*U*U*U*U*Tņ򀌀%zGuPr(oMn?kTń%GPM(?zzurnokIFFFHGFHFFG22222 PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPЈ܉/ I}5{Ixurok /37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((@@A@AB@ABC@ABCD@ABCDE@ABCDEF $(,048< $(,048"&*.26:>#'+/37;?#'+ 菙hLX동o``?@ }@0 `ȹLd @< L@Lu) e)J)) 0Lߐ L=> =>`"BLOADAPC  i (p pQ Q) й ` ȹ   i (  ʥ ` 1 LuLopQ QL`@L  h~C?Yllnnnn,$<4x`|~2?X X \ \ \ \ XHxhp?@ ȹ  ȱemfeng`?p{@M@M`M`M`M`M@E@G|@` v@@@@  ~x!@@l667777|p 0hp x|d~0088880pQ`pxH}`&`&p&p&p&p&`"`#@>@?@XL ll?o8@o?l8.8:|;f  ~ 1X9X^q_Xq\p>txwL3|~ b0&0s00c8a|hpog 0pox7@@M@}p x}@ `p#@?`0@@0@`_po63{`p{@ `G@9` `@?`_ lf6v@7`w6@~s @@@ v{@-@-`-`m`-`-@%@'|hp x7|D `L`f`~xF|~`FpBxQ`_0N` ``~0?X%X\u\=\\XDxdp?@@}`~0K0+8k8{8 8 0 pI`{@}``VpVpvpp``@> @lv[[@[@[@[@[KO ~xXl6 67777|p0?Xll n:nnn,"<2x` v{@-@-`-`m`-`-@%@'| """""""""""""""""""""""""""""""""""""hp RETURN):";:SL20:8900:SI$""ī6005Z&;CS0:I1TS:SI$(SN$(I),1,(SI$))CSI:ITS1&=:CS0ė:"COULD NOT FIND STUDENT WITH A NAME"::" OF ";SI$;" (EVEN PARTIAL)"::"PRESS ANY KEY":A$:6005'D::"DELETE RECORD FOR ":"STUDENT: ";SN$(CS);:6005:c%SN$(CS)SI$:SR$(CS)(BS$,50):SS(CS)0:SP(CS)0:SG$(CS)" ":6450:TSTS1:FLAG1:6005i%8%&9::"ENTER NAME OF STUDENT WHOSE RECORD YOU":"WANT TO DELETE (";::"LAST, FIRST";::")"::" OR THE FIRST FEW LETTERS OF THE LAST":" NAME (OR6252$(A$)1(A$)4ī6040>$(A$)6100,6200,6300,6700D$$TSMSė:(7);"SORRY...MAXIMUM STUDENTS ON FILE (";MS;")"::"PRESS ANY KEY";:A$:6005$CSTS1::" ADDING INFORMATION FOR STUDENT # ";CS:6400:SI$""ī6005%8700:SI$""T RECORDS"::"TEST: ";TN$::"NUMBER OF STUDENTS: ";TS::"1. ADD A STUDENT RECORD"::"2. DELETE A STUDENT RECORD"::"3. EDIT A STUDENT RECORD"::"4. DELETE ALL STUDENT RECORDS":$22:1:"ENTER SELECTION (1...4 OR RETURN):";:A$:A$(13)FLAG2:"TS0FLAG1:5105Y"CS1TS:II0:CGTP11:SP(CS)XP(CG)SG$(CS)GP$(CG):II1w" CG:II0SG$(CS)GP$(TP)"CS":12::"FINISHED SCORING ";TS;" STUDENTS"::I1WT2:::FLAG1:5105"p"rFLAG0:#u:" MODIFICATION OF STUDEN;XP(TP):5342!#!TP1ī5370M!II0:JJ0:I2TP:XP(I)XP(I1)III]!JJ0JJIIo!:II0ī5370!23:1:8880:22:1:8880:1:(7);"THE ";::"%";::"'S MUST BE DECREASING IN ORDER!":JJ7:13::"XX"::I13WT::5305!GM$"P":22:1:8880:1:"ENTER GRADE (OR RETURN): ";:SL3:8900:SI$""ī5305` TPTP1:GP$(TP)SI$ 22:1:8880:1:"ENTER MIN % CORRECT FOR GRADE ";GP$(TP)": ";:SL5:8900:(SI$)0(SI$)100Ė1:(7);:5344 !XP(TP)(SI$):7TP:1:3);GP$(TP);13)$II0:CG1TP:SI$GP$(CG)IICGA:II0Ģ22:(7);:5305CGII:23:1:8880:22:1:8880:1:"ENTER % CORRECT LIMIT FOR ";GP$(CG);" GRADE: ";:SL4:8900:(SI$)0(SI$)100ī5338XP(CG)(SI$):5305TP0:I824:I:1:8880:H 9I1TP:IIIIXP(I):XP(I)10ĺ3);GP$(I);16);XP(I)_XP(I)10ĺ3);GP$(I);15);XP(I)e22:1:"PRESS RETURN IF OK, Q TO QUIT, X TO":" CHANGE ALL OR GRADE TO CHANGE %: ";:SL3:8900:SI$""ī5350:SI$"Q"ī1000SI$"X"ī5340IXC(I):KKIIA$GC$(I):ITC1:5297+>:FLAG1:5105DWGM$"P"ī5305:"ASSIGNMENT OF GRADES BASED ON ":" ";::"PERCENT CORRECT";::5:1:" SCORE":"GRADE % CORRECT":"===== =========":II0:TP0XP(1)0:5330IIK):((IIK)(IIK))0II1:JJTS1CGTC1:5289JJJIī5287pSG$(SO(JJ))GC$(CG):JJJJ1:5282JJ(TS1)II:SP(SO(JJ))SP(SO(JJ1))SG$(SO(JJ))SG$(SO(JJ1)):JJJJ1:5287CG:FLAG1:5395KKIIī5298%II0:I1TC:III1II0:I1TC:IIIIXC(I)::II100ī527023:1:8880:22:1:8880:1:(7);"THE PERCENTAGES MUST =100! (ADD ";100II;"%)":I12WT::5205GM$"C":TS0FLAG1:51059300:II0:JJ1:K(1TS)100:CG1TC:IIIIXC(CG):I(80:1:"ENTER GRADE (OR RETURN): ";:SL3:8900:SI$""ī5205T{TCTC1:GC$(TC)SI$|22:1:8880:1:"ENTER % OF CLASS FOR GRADE ";GC$(TC)": ";:SL5:8900:(SI$)0(SI$)100Ė1:(7);:5244}XC(TC)(SI$):7TC:1:3);GC$(TC);13);XC(TC):5242X"ī5240(tCG1TC:SI$GC$(CG)ī5238?u:22:(7);:5205v23:1:8880:22:1:8880:1:"ENTER NEW CLASS % FOR ";GC$(CG);" GRADE: ";:SL5:8900:(SI$)0(SI$)100ī5238wXC(CG)(SI$):5205xyTC0:I824:I:1:8880:<z22:1:88;XC(I)-iXC(I)10ĺ3);GC$(I);13);XC(I):Qj:TC13ĺ" =========="nlTC13ĺ"TOTAL ";12);IIn22:1:"PRESS RETURN IF OK, Q TO QUIT, X TO":" CHANGE ALL OR GRADE TO CHANGE %: ";:SL3:8900:SI$""ī5250:qSI$"Q"ī1000sSI$"GM$"C"ī5205U:"ASSIGNMENT OF GRADES BASED ON ":" PERCENT OF ";::"CLASS ";::"(";TS;" STUDENTS)":5:1:" CLASS":"GRADE PERCENTAGE":"===== ==========":II0:TC0XC(1)0:5230gI1TC:IIIIXC(I):XC(I)10ĺ3);GC$(I);14)::PS$"0"ĺ:"PRESS ANY KEY TO CONTINUE";:A$96f!1000?6!d6!(SI$,1)" "SI$(SI$,2):87036"(SI$,1)" "SI$(SI$,(SI$)1):87046"J0:I1(SI$):(SI$,I,2)" "JI6":J0SI$(SI$,1,J)(SI$,J2):87057 "J0:I1(SI$):(SI$::CG1TG:LO100:HI0:NN0:CS1TS:SG$(CS)GD$(CG)ī8500^5,!NNNN1:SP(CS)HIHISP(CS)w51!SP(CS)LOLOSP(CS)54!:/69!P12:A$GD$(CG):9740:P110:P21:A(NNTS)100:9710:P118:P20:ANN:9710:P125:P21:ALO:9710:P132:P21:AHI:9710:9750TEST: "TN$:9740:9750:A$" ":9740:9750:P11:A$" % # % CORRECT":9740:9750:P11:A$"GRADE CLASS PUPILS LOW HIGH":9740:97504 !II1TG:LW$GD$(II):CGIITG:GD$(CG)LW$T$GD$(II):GD$(II)GD$(CG):GD$(CG)T$:LW$GD$(II)=5!:TG1:CG1:GD$(CG)SG$(1):CS1TS:FLAG0:A$" ":CG1TG:SG$(CS)GD$(CG)FLAG1Z3 :~3 FLAG0TGTG1:GD$(TG)SG$(CS)3 :3 PS$"0"ĺ"PLEASE ALIGN PAPER AND PRESS RETURN";:A$:::"PRINTING":4 :P11:A$" ":9740:9750:9750:P11:A$" PLEASE...":::(4);"RUN CG.TEST CONSTRUCTION"C2216,0:105002::"TESTING GENIE PROGRAM DISK ":(7);" NOT FOUND IN DRIVE 1"::"PRESS ANY KEY":A$:10002 2 TS0ė:"NO STUDENTS HAVE TAKEN THE TEST!!!":I1WT3::10002 9700:R3 ING GENIE ";::"PROGRAM";::" DISK IN":" DRIVE 1 AND PRESS RETURN"::" (PRESS ESCAPE TO RETURN TO MENU)";:A$:A$(27)ī10001A$(13)ĺ(7):7100171301:(4);"VERIFY CG.TEST CONSTRUCTION,D1":216,0:1050002::12:"JUST A MOMENT12:1:"ARE YOU SURE?";:8890:A$"Y"ī1000^0ZS$"6"::12:"'BOOT' FROM SLOT:";S$:12:18v0dA$:A$(13)ī70300l((A$)2)((A$)7)ī70270nS$A$:12:18:S$:12:19:70120s(7):70020v14:1::(4);"PR#";S$:01:"PLACE TESTQ)100:SG$(CS)" ":/x /,/6:12:"ARE YOU SURE YOU WANT TO "::" DELETE ALL STUDENT RECORDS (Y/N): ";:A$:A$"Y"A$"N"ī6710/;A$"N"ī6005/@20:1:"OK, ZERO STUDENTS ARE NOW ON FILE!"::"PRESS ANY KEY!";:A$:TS0:6005/X:-0Y.ZII1:1.[CQ1SR$(CS)A$(SR$(CS),2):6460_.\CQTQSR$(CS)(SR$(CS),1,TQ1)A$:6460.]SR$(CS)(SR$(CS),1,CQ1)A$(SR$(CS),CQ1):6460.d.eII0ı.fSS(CS)0:I1TQ:AS$(I)(SR$(CS),I,1)SS(CS)SS(CS)1/n:SP(CS)100(SS(CS)T880:1:"ANSWER TO QUES. #";CQ;" (OF ";TQ;") IS: ";(SR$(CS),CQ,1):22:1:"TYPE ANSWER, <- OR -> OR (ESC) TO EXIT ";:A$:A$(27)ī6500-KA$(8)CQ1CQCQ1:6460-PA$(21)CQTQCQCQ1:6460-U((A$)1)((A$)TA)ī6490-W(7);:6460 : ";:SL25:8900:18:1:8880:%,\,SG$(CS)""Ģ18:1:"OLD TEST GRADE IS: ";SG$(CS),22:1:8880:1:"ENTER NEW TEST GRADE (OR RETURN): ";:SL4:8900:SI$""ı,SG$(CS)SI$:,2,3II0:CQ1:14:1:"FOR STUDENT: ";SN$(CS)-<18:1:8HANGE)":23:1:SL25:":";:8900:SI$""İ8700:SI$""ī6005:X+SI$""SN$(CS)SI$~+18:1:8880:23:1:8880:6450:+18:1:8880:6420:+FLAG1:6005+,18:1:"NAME SHOULD BE IN FORM LAST, FIRST":22:1:8880:1:"ENTER NEW NAME900:SI$""ī6005F*CS0:I1TS:SI$(SN$(I),1,(SI$))CSI:ITS1*:CS0ė:"COULD NOT FIND STUDENT WITH A NAME"::" OF ";SI$;" (EVEN PARTIAL)"::"PRESS ANY KEY":A$:6005?+18:1:"OLD NAME: ";SN$(CS):22:1:"ENTER NEW NAME OR RETURN (NO CLN1:RW1:DM$"MASTER":10000:1)tFLAG1ī1000C)vOF2ī9900:O)y9500:U)*::"ENTER NAME OF STUDENT WHOSE RECORD YOU":"WANT TO MODIFY (";::"LAST, FIRST";::")"::" OR THE FIRST FEW LETTERS OF THE LAST":" NAME (OR RETURN):";:SL20:8" IN THE DISK DRIVE ";DD$(n:"THIS DISK WILL CONTAIN THE COMPLETE,":"UPDATED SCORES/RECORDS FOR ALL STUDENTS":::"... PRESS RETURN WHEN READY...":"(OR ESC TO NOT SAVE THE UPDATED INFO)";:A$:A$(27)ī1000(pA$(13)ĺ(7):6253)qOFFLAG:8890:A$"N"ī6005('ITS1TS0:6252'LICSTS:SN$(I)SN$(I1):SR$(I)SR$(I1):SS(I)SS(I1):SP(I)SP(I1):SG$(I)SG$(I1)::TSTS1:FLAG1:6005'lFLAG0ī1000(m:"PLEASE PLACE THE '";::"MASTER";::"' TEST DISK":" (FOR TEST: ";TN$;")"::;".ANSWER":TN$,II,JJ:I1II:AS$(I)::TC,TP,GM$:I1TCF%GC$(I),XC(I):I:I1TP:GP$(I),XP(I):I:(4);"CLOSE":::9800F%F%:PS$"0":"PLEASE ENTER THE SLOT FOR THE PRINTER":" (OR 0 TO PRINT TO THE SCREEN):";:PS$:PS$(13)PS$"0":G0E%:(7);"COULD NOT FIND ANSWER FILE FOR":"TEST ";TN$:"PLEASE INSERT CORRECT DISK":" AND PRESS RETURN"::"(ESCAPE TO RETURN TO MENU)";:A$:A$(27)FLAG1:1130E%9600E%216,0:10500:F%:(4);"OPEN ";TN$;".ANSWER";DD$:(4);"READ ";TN$(34);",";TQ;",";TA:I1TQ:AS$(I)::TC;",";TP;",";(34);GM$;(34):I1TCDg%(34);GC$(I);(34);",";XC(I)::I1TP:(34);GP$(I);(34);",";XP(I):I:(4);"CLOSE":9900:D%D%9615D%:(4);"VERIFY ";TN$;".ANSWER";DD$:9620E%216,0:1050 C"$9000CT$CY$I1TS:SO(I)I:OP(I)SP(I)::II1TS:HIOP(II):CSIITS:OP(CS)HITOP(II):OP(II)OP(CS):OP(CS)T:HIOP(II):TSO(II):SO(II)SO(CS):SO(CS)TCr$::C%LD&%(4);"OPEN ";TN$;".ANSWER";DD$:(4);"WRITE ";TN$;".ANSWER":(34);TN$;+-----+-----+":9740:9750:CS1TS:BF$" ! ! ! !":P11:A$(SN$(SO(CS)),21):9740B $P126:P20:ASS(SO(CS)):9710:P131:P21:ASP(SO(CS)):9710:P136:A$SG$(SO(CS)):9740:9750::PS$"0"ĺ:"PRESS A KEY TO CONTINUE";:A$ ":9740:9750:9750:P11:A$"TEST: "TN$" ("(TQ)" Q'S)":9740:9750:A$" ":9740:9750:P11:A$" ! # ! % ! !":9740:9750:P11:A$" STUDENT NAME: ! WRG!CORR.!GRADE!":9740:9750qB#P11:A$"---------------------+----750::PS$"0"ĺ:"PRESS A KEY TO CONTINUE";:A$:@#9000@@#@#I1TS:SO(I)I:OT$(I)SN$(I)::II1TS:LW$OT$(II):CSIITS:OT$(CS)LW$A$OT$(II):OT$(II)OT$(CS):OT$(CS)A$:LW$OT$(II):TSO(II):SO(II)SO(CS):SO(CS)T@#::@#A#P11:A$"1TQ:BF$BF$"-"::BF$BF$"---":9750:CS1TS:P11:A$(SN$(SO(CS)),17):9740?}#CQ1TQ:P1CQ16:A$" ":(SR$(SO(CS)),CQ,1)AS$(CQ)A$(SR$(SO(CS)),CQ,1)?#(SR$(SO(CS)),CQ,1)" "A$"*"0@#9740::EE16TQ1:P1EE3:P20:ASS(SO(CS)):9710:9"----------------":I1TQ:BF$BF$"-"::BF$BF$"---":9750:TQ9BF$" ":I10TQ:BF$BF$((I10)):I:9750P?u#BF$"NAME: QUES->":I1TQ:BF$BF$(((I10(I10))10.05)):I:BF$BF$" WRG":9750:BF$"----------------":IRESS RETURN";:A$:::"PRINTING":3=P#ZZ1ī9200=[#P11:A$" ":9740:9750:9750:P11:A$"TEST: "TN$" ("(TQ)" Q'S)":9740:9750:A$" ":9740:9750:BF$" ":9750:P11:A$"CORRECT ANSWERS:":9740:CQ1TQ:P1CQ16:A$AS$(CQ):9740:>n#9750:BF$CT":::" (OPTIONS 1 AND 2 ARE ALPHABETICAL)"v<:#22:1:"ENTER SELECTION (1...3 OR RETURN):";:A$:A$(13)ī1000<<#(A$)1(A$)3ī9018<>#ZZ(A$):9700::12::"SORTING":::ZZ3İ9300 TO USE, OR TO":" RETURN TO TH (OR ESCAPE TO QUIT OPERATION!)";:A$:A$(13)A$(27)ĺ(7):10100]O'A$(13)ī10012hO'FLAG1O':(7)::"WARNING";::" WILL NOT PERFORM REQUESTED":" OPERATION.... PRESS RETURN":A$:A$(13)ī10168O'LN6260,1124,9889:O'10400qTE DUMMY":216,0:10500#N`'101706Nj'216,0:10500Nt'::(7):"PLEASE INSERT THE ";::DM$;" DISK"::DM$"PROGRAM"ĺ:" FOR TEST ";::TN$::N'" IN THE DRIVE ";DD$::RW1Ğ:"WITHOUT THE PROTECT TAB!"::HO'" PRESS RETURN WHEN READY ":");TN$;(34);",";TQ;",";TA;",";TS:I1TS:(34);SN$(I);(34);",";SR$(I);",";SS(I);",";SP(I);",";SG$(I)::(4);"CLOSE ":1000M'M'FLAG0M'10090M':(4);"VERIFY ";DM$;DD$:RW0ī10170N8'(4);"OPEN DUMMY";DD$:(4);"CLOSE DUMMY":(4);"DELE:"SORRY, THERE IS A LIMIT OF ";MS:" STUDENTS TO ANALYZE AT ONCE!!"::" THESE SCORES CAN NOT BE ADDED TO THE":" OTHERS PREVIOUSLY READ IN.":XX0FLAG1:9890:L&9890:L&}M&:(4);"OPEN ";TN$;".SCORE";DD$:(4);"WRITE ";TN$;".SCORE":(34;"CLOSE":XX1:wK&:"IS THERE ANOTHER DISK WHICH CONTAINS":" STUDENT SCORES FOR THIS TEST?";:8890::A$"N"ī9890K&:"INSERT NEXT DISK AND PRESS ANY KEY";:A$:LN3:RW0:DM$"STUDENT":10000:K&FLAG1XX1FLAG0:K&1130L&(4);"CLOSE":O MENU)";:A$:A$(27)XX1ī9890:?JZ&A$(27)FLAG1:9890IJ[&9800\J\&216,0:10500Jf&:(4);"OPEN ";TN$;".SCORE";DD$:(4);"READ ";TN$;".SCORE":TN$,TQ,TA,CS:TSCSMSī9891K&J1CS:ITSJ:SN$(I),SR$(I),SS(I),SP(I),SG$(I)::TSTSCS:(4)II&TS0:XX0:9814AIR&:(4);"VERIFY ";TN$;".SCORE";DD$:9820TIV&216,0:10500$JW&:(7);"COULD NOT FIND SCORE FILE FOR":"TEST ";TN$::"DISK CATALOG:":(4);"CATALOG":::"PLEASE INSERT CORRECT DISK":" AND PRESS RETURN"::"(ESCAPE TO RETURN TIJP20A$A$(DC$,P21)?H&JIA$A$(DC$,2,P2(IJ1))EH &KH &mH&P11BF$A$(BF$,(A$)1):H&BF$(BF$,P11)A$(BF$,P1(A$)):H&H&PW79:PS$"0"PW39H &PS$"0"ĺ(4);"PR#";PS$H%&(BF$,PW):(4);"PR#0":BF$BS$:HH&%(PS$)0(PS$)8ī9700G%%G%XG%9715:BF$(BF$,P1J)A$(BF$,P1J(A$)1):^G%G%A(A10P2.5)(10P2.5):A$(A):I1(A$):(A$,I,1)"E"ĂG%J1I1:(A$,J,1)"."ĂG%JP2I1NJP2:9730G&NI1H&A$(A$,N)(A$,I):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:"$:/c'RW1Ğ:"WITHOUT THE PROTECT TAB!"::yc'" PRESS RETURN WHEN READY ":" (OR ESCAPE TO QUIT OPERATION!)";:A$c'A$(13)A$(27)ĺ(7):10100c'A$(13)ī10012c' QUIT!!! c'FLAG1?d':(7)::"WARNING";::" WILL NOT PERFORM Rb8'(4);"OPEN DUMMY";DD$3b='(4);"CLOSE DUMMY"LbB'(4);"DELETE DUMMY"_bV'216,0:10500jb`'10170}bj'216,0:10500bt'::(7)b~'"PLEASE INSERT THE ";::DM$;" DISK":b'DM$"PROGRAM"ĺ:" FOR TEST ";::TN$::c'" IN THE DRIVE ";DD4);TN$;(34);",";TQ;",";TA;",";TS-a&I1TSoa&(34);SN$(I);(34);",";SR$(I);",";SS(I);",";SP(I);",";SG$(I)ua&a'(4);"CLOSE "a'1000a' VERIFY DISK TYPE AND WRITEABILITYa'FLAG0a'10090a':(4);"VERIFY ";DM$;DD$b$'RW0ī10170OTHERS PREVIOUSLY READ IN."]`&XX0FLAG1:9890: IF HAVENT READ ANSWERS, NOTE AS ABORTED`&9890: IF ALREADY READ ANSWERS, JUST SKIP THIS DISK! `& WRITE SCORE FILE`&:(4);"OPEN ";TN$;".SCORE";DD$`&(4);"WRITE ";TN$;".SCORE"!a&(3URE STUDENT DISKh_&FLAG1XX1FLAG0: NOT TOO BAD SINCE MUST HAVE READ AT LEAST 1 SCORE DISK (XX=1)r_&1130_&(4);"CLOSE"`&:"SORRY, THERE IS A LIMIT OF ";MS:" STUDENTS TO ANALYZE AT ONCE!!"::" THESE SCORES CAN NOT BE ADDED TO THE":" STSCS^&(4);"CLOSE"?^&XX1: AT LEAST 1 SUCCESSFUL READ^&:"IS THERE ANOTHER DISK WHICH CONTAINS":" STUDENT SCORES FOR THIS TEST?";:8890::A$"N"ī9890_&:"INSERT NEXT DISK AND PRESS ANY KEY";:A$:LN3:RW0:DM$"STUDENT":10000: MAKE SCE READ ANSWERS ONCE!0]Z&A$(27)FLAG1:9890:][&9800M]\&216,0:10500r]f&:(4);"OPEN ";TN$;".SCORE";DD$]p&(4);"READ ";TN$;".SCORE"]z&TN$,TQ,TA,CS]|&TSCSMSī9891]&J1CS]&ITSJ]&SN$(I),SR$(I),SS(I),SP(I),SG$(I)]&^&T:9820\V&216,0:10500y\W&:(7);"COULD NOT FIND SCORE FILE FOR":"TEST ";TN$::"DISK CATALOG:":(4);"CATALOG"::\X&"PLEASE INSERT CORRECT DISK":" AND PRESS RETURN"::"(ESCAPE TO RETURN TO MENU)";:A$]Y&A$(27)XX1ī9890: NOT TO BAD SIN([&BF$(BF$,P11)A$(BF$,P1(A$)):?[& PRINT BF$ ON PS$X[&PW79:PS$"0"PW39v[ &PS$"0"ĺ(4);"PR#";PS$[%&(BF$,PW)[*&(4);"PR#0"[/&BF$BS$[4&[H& READ SCORE FILE[I&TS0:XX0[M&9814\R&:(4);"VERIFY ";TN$;".SCORE";DD$I,1)"E"ĂZ%J1I1.Z%(A$,J,1)"."ĂJZ%JP2I1NJP2:9730TZ&NI1kZ&A$(A$,N)(A$,I)Z&IJP20A$A$(DC$,P21)Z&JIA$A$(DC$,2,P2(IJ1))Z &Z & PUT A$ INTO BUFFER STARTING AT P1Z&P11BF$A$(BF$,(A$)1):": Y%(PS$)0(PS$)8ī9700&Y%]Y% CONVERT # TO $ AND PUT IN BUFF @ P1 W/P2 PLACESY%9715:BF$(BF$,P1J)A$(BF$,P1J(A$)1):Y% CONVERT A # INTO STRING W P2 PLACESY%A(A10P2.5)(10P2.5)Y%A$(A)Y%I1(A$) Z%(A$,,GM$X%I1TC"X%GC$(I),XC(I))X%I5X%I1TPGX%GP$(I),XP(I)NX%I`X%(4);"CLOSE"hX%:rX%9800X% GET PRINTER SLOTX%:PS$"0":"PLEASE ENTER THE SLOT FOR THE PRINTER":" (OR 0 TO PRINT TO THE SCREEN):";:PS$Y%PS$(13)PS$"0T CORRECT DISK":" AND PRESS RETURN"::"(ESCAPE TO RETURN TO MENU)";:A$eW%A$(27)FLAG1:1130oW%9600W%216,0:10500W%:(4);"OPEN ";TN$;".ANSWER";DD$W%(4);"READ ";TN$;".ANSWER"W%TN$,II,JJW%I1IIW%AS$(I)W%X%TC,TP:::(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:&$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)" " 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:3200" (OR ESCAPE TO QUIT OPERATION!)";:A$M7'A$(13)A$(27)ĺ(7):10100b7'A$(13)ī10012q7' QUIT!!! |7'FLAG17':(7)::"WARNING";::" WILL NOT PERFORM REQUESTED":" OPERATION.... PRESS RETURN":A$:A$(13)ī101688'DD$B$:LN57,E INSERT THE ";::DM$;" DISK":P6'DM$"PROGRAM"ĺ:" FOR TEST ";::TN$::6'DM$"PROGRAM"ĺ:" IN THE DISK DRIVE D1":6'DM$"PROGRAM"ĺ" IN THE DISK DRIVE ";DD$:6'RW1Ğ:"WITHOUT THE PROTECT TAB!"::'7'" PRESS RETURN WHEN READY ":5':DM$"BLANK"ĺ(4);"VERIFY ";DM$;DD$X5 'DM$"MASTER"ĺ(4);"VERIFY ";TN$;".TEST"i5$'RW0ī1017058'(4);"OPEN DUMMY";DD$5='(4);"CLOSE DUMMY"5B'(4);"DELETE DUMMY"5V'216,0:105005`'101705j'216,0:105005t'::(7) 6~'"PLEASORE".4&(34);TN$;(34);",";TQ;",";TA;",";TS:4&I1TS|4&(34);SN$(I);(34);",";SR$(I);",";SS(I);",";SP(I);",";SG$(I)4&4'(4);"CLOSE "4'88204' VERIFY DISK TYPE AND WRITEABILITY4'FLAG0:B$DD$:DM$"PROGRAM"DD$",D1"4'10090*&:(4);"OPEN ";TN$;".SCORE";DD$@3p&(4);"READ ";TN$;".SCORE"R3z&TN$,II,JJ,TS^3&I1TS3&SN$(I),SR$(I),SS(I),SP(I),SG$(I)3&3&(4);"CLOSE"3&87253& WRITE SCORE FILE3&:(4);"OPEN ";TN$;".SCORE";DD$4&(4);"WRITE ";TN$;".SC$:98202W&216,0:105002X&:(7);"COULD NOT FIND SCORE FILE FOR":"TEST ";TN$::"PLEASE INSERT CORRECT MASTER OR STUDENT":"DISK AND PRESS RETURN (ESC TO 'REBOOT')";:A$2Y&A$(27)ī70002Z&A$(13)ī98002[&(7);:98162\&216,0:10500!3f%216,0:1050021%(4);"OPEN ";TN$;".TEST";DD$P1%(4);"READ ";TN$;".TEST"c1%TN$,TQ,TA,TC$~1%I1TQ:TQ$(I),ES$(I)1%J1TA:TA$(I,J):1%1%(4);"CLOSE"1%2501H& READ SCORE FILE1M&98152R&:(4);"VERIFY ";TN$;".SCORE";DD=="0+%I1TS/00%SN$(I);17);(SR$(I),1,TQ)505%V0:%22:1:"PRESS A KEY";:A$:k0% READ TEST FILEu0%96200%96150%:(4);"VERIFY ";TN$;".TEST";DD$:96200%216,0:105000%:(7);"COULD NOT FIND TEST ";TN$:I1WT::FLAG1:9695110NA$NL$(AZ$,I6):9415Q/$(AZ$,I,6)"%FNAME"AZ$(AZ$,1,I1)NF$:9415/$(AZ$,I,6)"%LNAME"AZ$(AZ$,1,I1)SA$LF$:9415/% PRINT SCORE MATRIX/!%:TN$;" SCORES TO DATE":/&%"NAME ANSWERS"0(%"========================A$(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";" 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 ":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 URN TO END INPUT):"::8900:ET$(CE)SI$:ET$(CE)""ı;8A"A8J"{8K":" DELETE ENCOURAGEMENT PHRASE":TE0ĺ(7):87058L"8747:(TE0)(CE0)ī87058M"10:1:ET$(CE):22:1:8880:1:"DELETE THIS PHRASE?";:8890:A$"N"ī8705$9N"22:1:8880:1:TH THE ":" APPROPRIATE WORD AT THE TIME OF USE":" DURING THE TEST."58<":" %FNAME - FIRST NAME":" %LNAME - LAST NAME (+ SALUTATION)":14:"ENTERING FOR PHRASE # ";CE;" (OF ";ME;" MAX)":SL25:16:"ENTER PHRASE (MAX ";SL;" LETTERS LONG) ":" (RETXIMUM 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/";::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"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&(4);"CLOSE"T@&YY1ī5210TC&3098UH& READ ANSWER ";TN$;".TEST";DD$%S%216,0:10500OS%:(7):"FOUND TEST CALLED ";TN$;"!"S%:"PROCEED TO SAVE NEW VERSION?":" (WILL ERASE OLD VERSION!)--(Y OR N):";:A$S%A$"Y"A$"N"ī9717S%A$"N"FLAG1:9795S%216,0:10500S%YY0T&:(4);WT::FLAG1:9695%R%216,0:10500GR%(4);"OPEN ";TN$;".TEST";DD$eR%(4);"READ ";TN$;".TEST"xR%TN$,TQ,TA,TC$R%I1TQ:TQ$(I),ES$(I)R%J1TA:TA$(I,J):R%R%(4);"CLOSE"R%3236R% WRITE TEST FILER%9720S%(4);"VERIFYMENT"%Q]%(4);"WRITE ENCOURAGEMENT"-Qb%TEOQg%I1TE:(34);ET$(I);(34):aQl%(4);"CLOSE"kQv%8799Q% READ TEST FILEQ%9620Q%9615Q%:(4);"VERIFY ";TN$;".TEST";DD$:9620Q%216,0:10500R%:(7);"COULD NOT FIND TEST ";TN$:I17-PS%:(4);"VERIFY ENCOURAGEMENT,D1":9560@PU%216,0:10500PV%:"PLEASE INSERT THE PROGRAM DISK IN":" DRIVE 1 AND PRESS RETURN":" (OR PRESS ESCAPE TO NOT SAVE CHANGES)";:A$:A$(27)ī1000PW%9550PX%216,0:10500QY%:(4);"OPEN ENCOURAGESS RETURN":" (OR PRESS ESCAPE TO QUIT)";:A$:A$(27)ī7000GO%%9500ZO&%216,0:10500{O'%:(4);"OPEN ENCOURAGEMENT"O+%(4);"READ ENCOURAGEMENT"O0%TEO5%I1TE:ET$(I):O:%(4);"CLOSE"OD%205ON% WRITE NEW ENCOURAGEMENT INFOPP%955ISK!!!":FLAG1:TN$""::"PRESS ANY KEY":A$:1000yN):::(4);"PR#0":::12:"PRESS ANY KEY TO CONTINUE";:A$:10000%9507N!%:(4);"VERIFY ENCOURAGEMENT,D1":9510N#%216,0:10500=O$%"PLEASE INSERT THE PROGRAM DISK IN":" DRIVE 1 AND PRE A TEST CALLED:"::::SI$TN$:TN$::::"PRESS 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);"EY TO CONTINUE";:A$:11EY WHEN READY!";:B$:120x :::(4);"PR#0":::12:"PRESS ANY KEY TO CONTINUE";:A$:1C"WITHOUT THE PROTECT TAB!"::h"'" PRESS RETURN WHEN READY ":" (OR ESCAPE TO QUIT OPERATION!)";:A$"'A$(13)A$(27)ĺ(7):10100"'A$(13)ī10012"' QUIT!!! "'FLAG1.#':(7)::"WARNING";::" WILL NOT PERFORM REQUESTED":" OPE!8'(4);"OPEN DUMMY";DD$2!='(4);"CLOSE DUMMY"K!B'(4);"DELETE DUMMY"V!V'216,0a!`'10170l!j'216,0z!t'::(7)!~'"PLEASE INSERT THE ";::DM$;" DISK":!'DM$"PROGRAM"ĺ:" FOR TEST ";::TN$::!'" IN THE DRIVE ";DD$:"'RW1Ğ:! '(34);GP$(I);(34);",";XP(I)( 'I; '(4);"CLOSE "K 'YY1ī5260U '1000} ' VERIFY DISK TYPE AND WRITEABILITY 'FLAG0 '10090 ':DM$"BLANK"ĺ(4);"VERIFY ";DM$;DD$ 'DM$"MASTER"ĺ(4);"VERIFY ";TN$;".TEST" $'RW0ī10170 ANSWER FILE&YY09&(4);"OPEN ";TN$;".ANSWER";DD$Z&(4);"WRITE ";TN$;".ANSWER"}&(34);TN$;(34);",";TQ;",";TA&I1TQ&AS$(I)&&TC;",";TP;",";(34);GM$;(34)&I1TC&(34);GC$(I);(34);",";XC(I)'I'I1TP1500::FLAG1:9890\&216,0Ef&:(4);"OPEN ";TN$;".SCORE ";DD$fp&(4);"WRITE ";TN$;".SCORE "z&TN$;",";TQ;",";TA;",";TS&I1TS&(34);SN$(I);(34);",";SR$(I);",";SS(I);",";SP(I);",";SG$(I)&&(4);"CLOSE"&1000 & WRITEI);(34),*&J1TA:(34);TA$(I,J);(34):24&D>&(4);"CLOSE"T@&YY1ī5210^C&9900xH& WRITE SCORE FILEM&9815O&9830R& PRINT CHR$ (4);"VERIFY ";TN$;".ANSWER";DD$: GOTO 9820W&216,0:(7);"PROBLEM WRITING SCORE FILE";TN$:I VERSION!)--(Y OR N):;":A$6%A$"Y"A$"N"ī9717O%A$"N"FLAG1:9795Z%216,0c%YY0&:(4);"OPEN ";TN$;".TEST";DD$ &(4);"WRITE ";TN$;".TEST"&(34);TN$;(34);",";TQ;",";TA;",";TC$ &I1TQ:(34);TQ$(I);(34);",";(34);ES$(TQ:TQ$(I),ES$(I))%J1TA:TA$(I,J):/%A%(4);"CLOSE"K%3236a% WRITE TEST FILEl%9720%:(4);"VERIFY ";TN$;".TEST";DD$%216,0%:(7):"FOUND TEST CALLED ";TN$;"!"%:"PROCEED TO SAVE NEW VERSION?":" (WILL ERASE OLD% READ TEST FILE%9620'%9615S%:(4);"VERIFY ";TN$;".TEST";DD$:9620%216,0::(7);"COULD NOT FIND TEST ";TN$:I1WT::FLAG1:9695%216,0%(4);"OPEN ";TN$;".TEST";DD$%(4);"READ ";TN$;".TEST"%TN$,TQ,TA,TC$%I1VE CHANGES)";:A$:A$(27)ī1000+V%9550SX%216,0::(4);"OPEN ENCOURAGEMENT"s]%(4);"WRITE ENCOURAGEMENT"{b%TEg%I1TE:(34);ET$(I);(34):l%(4);"CLOSE"m%TG;",";GM$n%I1TGo%(34);GD$(I);(34);",";GP(I)p%v%10000%TE5%I1TE:ET$(I):0:%(4);"CLOSE"9D%205\N% WRITE NEW ENCOURAGEMENT INFOgP%9557S%:(4);"VERIFY ENCOURAGEMENT,D1":9560!U%216,0::"PLEASE INSERT THE PROGRAM DISK IN":" DRIVE 1 AND PRESS RETURN":" (OR PRESS ESCAPE TO NOT SA507/!%:(4);"VERIFY ENCOURAGEMENT,D1":9510#%216,0:"PLEASE INSERT THE PROGRAM DISK IN":" DRIVE 1 AND PRESS RETURN":" (OR PRESS ESCAPE TO QUIT)";:A$:A$(27)ī7000$%9500&%216,0::(4);"OPEN ENCOURAGEMENT"+%(4);"READ ENCOURAGEMENT"APS LOCK' KEY IS DOWN!)":(4);"BLOAD PICTR.TITLE.PIC,A$2000"::(4);"BLOAD PICTR.FINAL MENU.PIC,A$4000":(4);"BLOAD GENIE II.ANM":16297,0:16304,0:16302,0 PAUSE12000:PAUSE 36864:NN1:N22050 (30 2 <A$:(A$"1"A$"2"A1012,0:216,0:1000::3:"LOADING THE TESTING GENIE BY:":5:3:"FOSTER CLINE, M.D. STEPHEN HULL":10:3:1984 16:1:"(IF YOU ARE USING AN APPLE IIE PLEASE":" BE SURE THE 'C  U*U*U*U*U*ժժP*U*U*U*U*U*U*U*U*U*U*ժԪ(U*U*U*U*U*U*U*wzW*Ъ"U*U*U*U*U*U*U*U*U*U*UժԪR*U*U*U*U*U*U*U*U*U*ĈU*U*U*U*U*U*U*U*U*ժժՀժժQ*U*U*U*U*U*U*U*U*ԪՠP*U*U*U*U*U*U*U*U*Ĉժ U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*kw)ժժՊU*U*U*U*U*U*U*UPժժԪժըT*U*U*U*U*U*U*U*U*(U*U*U*U*U*U*U*U*U*U*ժЪբժQ*U*U*U*ժժըժժժԪժըժԪU*Uz~W>}*U*UT*U**U*U*U*U*U*U*U*U*U*|?~w)U*U*U*U*Uz}?}}U*ĈQ*)U*U*U*U*U*U*U*U*|?~wQ*U*U*U*U*U*U*U*U*Q ՊԪ*Q*U*U*U*U*U*U*U*U*U*U*|~*U*U*U*U*U*U*U*U>W*U (U*U*U*U*U*U*U*U*U*U*U8~wS*U*U*U*U*U*U*U*U*U*"U U*UU*U*U*U*U*U*U*U*U**U*U*Q*U*UR*U*U*U*U*U*U*U*U*U*Eժ*Q*U*U*U*U*U*U*U*U*%U*"DQ*U*T*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*w)U*U Ĉ*U*U*U*U*U*U*U*U*UB}?~w}U*U*U*U*U*U*U*U*U*Q*(U*U*U*U*U*U*U*U*U*U**U(P**UT*U*U*U*}}?~w}~~U*UW:}Tժժ*U*U*U*U*U*U*U*U*U*)ժԪժ(U*U*U*U*Uju?uʈ(U*U*U*U*U*U*U*U*UTժԪժT*U*U*U*U*U*U*U*U* ՠՊP*U*U*U*U*U*U*U*U*U*U*UPP*U*U*U*U*U*U*U*/}>U*U*!Т(U*U*U*U*U*U*U*U*U*U*UժԪP*U*U*U*U*U*U*U*U*U*Ĉ U*U*U*U*U*U*U*U*U*ժժժըժժQ*U*U*U*U*U*U*U*U*P*U*U*U*U*U*U*U*U*UժժT*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*}w/QժժժU*U*U*U*U*U*U*U ժժԪժը!U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U.U~*ժѪЪժT*U*U*U*ըժժժԪժըժԪU*U_*}**U*U*U*U@*U*U*U*U*U*U*U*U*U*q?~w?*U*U*U*U*U*uWW_S*Ĉ"Q**U*U*U*U*U*U*U*U*Ux?~w?T*U*U*U*U*U*U*U*U*TՂP*U*U*U*U*U*U*U*U*U*U*T*U*U*U*U*U*U*U*/;U*U*Њբ(U*U*U*U*U*U*U*U*U*U*U"~wT*U*U*U*U*U*U*U*U*U*U(U U**U*U*U*U*U*U*U*U*U**U*U*U*Q*U*UR*U*U*U*U*U*U*U*U*U*U (Q*U*U*U*U*U*U*U*U*%U*"DQ*U*UT*U*U*U*@U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz/}wo)U*UĈ U*U*U*U*U*U*U*U*U*~}?~w}(U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U>U~+*U*P*U*U*U*U*U*|}?~w}~ U*          U*U*U*U*U*ժժP*U*U*U*U*f `怀́U*U*wzW*ЪԢU*U*U*U*U*U*U*U*U*U*ĈU*U*U*U*U*U*U*U*U ժժՀժժQ*U*U*U*U*U*U*U*U*Ԫ P*U*U*U*U* paßU*U*U*U*Ĉժ U*U*U*U*P"D E T(AU*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*{w*ժԪՊU*U*U*U*U*U*U*U*U*U*(U*U*U*U*U*U*?U*U*U*U*ԪѢԢժQ*U*U*U*@"D P"*D"E" U*Uz~W>}*U*U"T*U**U*U*U*U*pAǟǏUz}?}_~U*Ĉ*)U*U*U*U*`LU*U*U*U*U*Q ՊԪ*Q*U*U*U*U*~ x揀U*U*U>W*U (U*U*U*U*U*ԀЂU*U*U*U*U*"U U*UU*U*U*U*U*U*U*U*U *U*U*Q*U*UR*U*U*U*U*U*U*U*U*Q*Eժ*Q*U*U*U*U* xsßU*U*U*U*!U*"DQ*U*T*U*U*U* TQ @AU*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*w{+U*U €@*U*U*U*U*U*ТрѠU*U*U*U*U*U*Q*P(U*U*U*U*U*U*3U*U*U*U*)U(ժ(*UT*U*U*U*(A@ *T(""TP"D "T(QU*UW:}.Ԫժժ*U*U*U*U*@܁Uju?uWʈĀ(U*U*U*U*U*U*U*U*U*ՠժP*U*U*U*U*< x揀U*U*/}>U*U*!Т(U*U*U*U*U*ЂU*U*U*U*U*Ĉ U*U*U*U*U*U*U*U*U ժժժըժժQ*U*U*U*U*U*U*U*U*P*U*U*U*U*|ÁU*U*U*U*ѪժժT*U*U*U*PTQ"@(@U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz*}/ѪժժժU*U*U*U*ТԈтѢU*U*U*U*U*U**U*U*U*U*U*U*U*U*P*U*ժ(U*U*U*U*U*            @% @'o|@p|[@{@[@[KO ^x`x<66w?797?1<p@?pxl l>nhp ~@`#030{88K8{0 pI`{0|@G`f`vp~ppv``@w>`x~@M@m`}`-`mDL7|%neN A|gx0p?`?oxK\KxOp0``@?<~0^p88~0p``@@p@x@y@_`] `y@@ ~|p`qs ? @;@s#~ |x`@bf~w2g?F ~3|? xp@  hp x |`<`/p.p|``?@@~8D\1l! a~ `xgt 0x?p@18cXCB|@pOh`p`?bpF00x0`P0@`@@@@@ `@  @~@~x7 ;#@~} ~|p" nvF0?0|3z?|x`"""""""""""""""" ***** *** """  hp  D` ``p`@? `@<pA|G|_.}&a$|`x_p`l D@`xx?\zLBHx?@p?`@Y@@pp8up `@3@@`U`@@ ~L D<17@+?@)8) ~7|?0 x ~c~oW~SpR@~0|ox06"`@ """  hp `? ` pj0  `@@ f"  ************************** " """ "  ***********  aCCr_b@|?|@B8,d?D xx0 p X Hpp@@ @3`2 ~ |`@@"g0@e0@|7@x?@0/0 D0NaKayoq`~_~?`@?k* ***** "" "  hp  `@` 0  ~0 ` `              ""4PYY1:9730: WRITE TEST FILEI4ZYY0: RETURN FROM WRITE OF TEST{4BD$"MASTER"YY1:9930: WRITE ANSWER FILE4YY0: RETURN FROM WRITE OF ANSWERS,5DD$" "ė:5:"REMOVE THE DISK IN THE DRIVE ":" AND WITH A FELT TIP PEN WRITE":::"TOSE ";BD$(3(4);"OPEN TEST.NAME";DD$D3(4);"WRITE TEST.NAME"M3TN$_3 (4);"CLOSE"3(4);"OPEN ";TN$;".SCORE";DD$3(4);"WRITE ";TN$;".SCORE"3TN$;",";TQ;",";TA;",0"3#A$(34)" "(34)3(A$;",";A$;",0,0,";A$4-(4);"CLOSE"Y"ī5000: YOU MUST CREATE 1 FOR A MASTER2::"CREATING ";::BD$;::" TEST TAKING DISK"::" FOR TEST: ";TN$:12:"PLEASE BE PATIENT..."2:(4);"INIT CG.TEST TAKING";DD$2(4);"DELETE CG.TEST TAKING"2:(4);"OPEN ";BD$ 3(4);"CLE8ī5080?1FLAG0: LN = 6:RW = 1:DM$ = "BLANK": GOTO 10000k1FLAG1" ":1000: RETURN FROM 100001::"ARE YOU SURE YOU WANT TO ERASE THIS ":" DISK? (Y/";::"N";::"):";:A$:A$(13)A$"N"1A$"Y"BD$"MASTER"FLAG1:3099,2A$NSTRUCTION";DD$0216,0p0:(7);"WE JUST SAVED YOU SOME MONEY!!"::"THE TESTING GENIE PROGRAM IS NOT A "0" DISK WHICH SHOULD BE ERASED!!!!!"::" PLEASE REPLACE IT WITH A BLANK DISK!"::"PRESS ANY KEY";:A$050100216,0 1E(222)::A$"2"DD$",D2"/:11:"THANK YOU. NOW, PLEASE PLACE THE NEW ":" DISK IN THE DISK DRIVE ";DD$;", AND ":" PRESS THE RETURN KEY WHEN READY":" TO CREATE THE ";::BD$;::" DISK:";/A$:A$(13)ī5010/50700:(4);"VERIFY CG.TEST COONTENTS OF A DISK, SO BE SURE AND ":" USE A DISK WHICH IS BLANK OR OF NO "." IMPORTANCE. THE NEW TEST TAKING 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$" " AN ORIGINAL MASTER - OTHERWISE YOU "-A$"M"ĺ" WILL HAVE DIFFICULTY KNOWING WHICH IS":" THE ORIGINAL FOR UPDATING!!"::"PRESS ANY KEY TO GO ON...";:A$-::"IMPORTANT";::" PLEASE READ THIS:"::K."THIS PROCESS WILL ERASE THE ENTIRE":" CDISK FOR TEST,:5:"WOULD YOU LIKE TO CREATE A ";::"MASTER";::" OR A ":" ";::"STUDENT";::" TEST TAKING DISK? (M OR S):";:A$:A$"M"A$"S"ī5006%-A$"M"BD$"MASTER"::::"IMPORTANT:":::"PLEASE IDENTIFY THIS DISK AS A COPY OF":"(4);"RUN CG.SCORE/ANALYSIS"*+216,0+::"TESTING GENIE ";::"PROGRAM DISK"::" WAS NOT FOUND IN DRIVE 1"::"PRESS ANY KEY"+A$:1000+BD$"MASTER":5007: BUILD NEW MASTER DISK FOR TEST ,BD$"STUDENT": SELECT FROM MENU WHICH PROGRAM DISK";::" IN"e*" DRIVE 1 AND PRESS RETURN"::" (PRESS ESCAPE TO RETURN TO MENU)";:A$y*A$(27)ī1000*A$(13)ĺ(7):4000*4040*:(4);"VERIFY CG.SCORE/ANALYSIS,D1"*216,0*:12::"JUST A MOMENT PLEASE...":+TQ$(CQ),41,40):(TQ$(CQ),81)#)30)8CA1TAV)=A$" ":CA(AS$(CQ))KK1A$"X"u)BA$;" ";CA;") ";TA$(CQ,CA){)C)E:ES$(CQ)""KK1ĺES$(CQ):)G)I(4);"PR#0")L3450) JUMP TO SCORE/ANALYSIS*:"PLACE TESTING GENIE ";::"63H8):::(4);"PR#0":::12:"PRESS ANY KEY TO CONTINUE";:A$:210à̠ӠӠҠϠϠ͠ǠŠɠΠŠԍč 0m:" ASSIGNMENT OF GRADES ":::"1. ASSIGN BY % OF CLASS (CURVE)":::"2. ASSIGN BY % CORRECT":22:1:"ENTER SELECTION (1 OR 2 OR RETURN):";:A$:A$(13)ī5140 (A$)1(A$)2ī5125(A$)5200,53006252P QoII31II64IIII:4pBF$BF$(II)::9750:@|:1000FTI1TS:SS(I)0:SP(I)0:22:1::"CALCULATING";::" % CORRECT FOR STUDENT ";I:J1TQ:AS$(J)(SR$(I),J,1)SS(I)SS(I)1:SP(I)100(SS(I)TQ)100::FLAG1576:SO(14)1704:SO(15)1832:SO(16)1960:SO(17)1104:SO(18)1232:SO(19)1360:SO(20)1488:SO(21)1616:SO(22)1744:SO(23)1872:SO(24)2000:"":9750:9750:I123:BF$"":J140:II(SO(I)1J):II159II223IIII128:4208nII1II32IIII64:42081::"SET UP PRINTER, PRESS (RET) (ESC QUITS)";:24:39:A$:1:39::A$(27)ī1000jMA$(13)ī4160TSO(1)1024:SO(2)1152:SO(3)1280:SO(4)1408:SO(5)1536:SO(6)1664:SO(7)1792:SO(8)1920:SO(9)1064:SO(10)1192:SO(11)1320:SO(12)1448VSO(13))SO(J)SO(J)1:J38 S ::I116:J136:SO(J)IĖJ4:20I:"X";{"::J136:SO(J)16Ģ3:J4:"X";6:@24:1:"PRESS RETURN (OR SLOT # TO PRINT GRAPH)";:A$:A$(13)ī1000E(A$)1(A$)8ĺ(7);:4160UGPS$A$:24:"+!+!+!+!+!+!+!+!+!":J4:4060:SI$" 2 4 6 8 0 2 4 6>":J3:4060:SI$" 1 1 1 1 ":J2:4060:4065I118:J:21I:(SI$,I,1);::I136:SO(I)0::I1TS:SP(I)30SO(1)SO(1)1:4100J236:IIJ228:SP(I)IISP(I)(II2::1:7:"TEST: ";TN$:23:19:"% CORRECT";:I19:7I:1:("#STUDENTS",I,1):::20:4:"++----+----+----+----+----+----+----+";:21:4:"<3 4 5 6 7 8 9 1";:22:4:" 0 0 0 0 0 0 0 0";j23:40:"0";:SI$' PROGRAM MAY BE":" USED TO MODIFY THE BODY OF THE TEST.":" YOU MAY JUMP TO THAT SEGMENT BY ":" SELECTING OPTION 6 FROM THE MENU!"":"PLEASE SEE THE MANUAL FOR FURTHER ":" INFORMATION.":24:1:"PRESS ANY KEY TO RETURN TO MENU";:A$:10000 m5000:o1095::"TEST SCORING AND ANALYSIS NOTES:":::"FROM THIS MENU A TEST MAY BE SCORED, ":" THE RESULTS ANALYZED, STUDENT RECORDS":" ENTERED (OR MODIFIED) AND PERTINENT":" INFORMATION PRINTED.":"THE 'TEST CONSTRUCTIONA$(13))ī1111+ [A$"N"A$(13)ī1095 `:"PLEASE ENTER THE NAME OF THE TEST ":" TO WORK WITH:";:SL20:8900:SI$""ī1000 aSI$"?"ī10200 bTN$SI$:LN2:RW0:DM$"MASTER":10000: dFLAG1ī1000 eFLAG0:9600: jlFLAG1ī1000 B(A$)1(A$)7ī10708 CZZ(A$):(A$)6ī1100c GZZ4000,5100,8400,9000,6000,7100,7000i L Q:TN$""TQ0ī1120 V"WOULD YOU LIKE TO DO THIS FOR A TEST":" OTHER THAN ";TN$;"? (Y OR ";::"N";::"): "; WA$:(A$"Y")(A$"N")(S (CURVE OR STRAIGHT %)": "3. DISPLAY GRADE DISTRIBUTION"::"4. PRINT STUDENT RECORDS"::"5. MODIFY STUDENT RECORDS"::"6. JUMP TO TEST CONSTRUCTION"::"7. EXIT TESTING GENIE": .22:1::"ENTER CHOICE (1...7 OR ? FOR HELP):";:A$:A$"?"ī150": AA$"": SA$"":* BF$"":8 BS$" ":j I1100:BS$BS$" "::BF$BS$:DC$".0000000"p  :" TESTING GENIE SCORING AND ANALYSIS":" =================================="::"1. VIEW TEST RESULTS GRAPHICALLY"::"2. ASSIGN GRADE TS0: TC0: TP0:. AS$(MQ):= GP$(MG):L GC$(MG):Z XP(MG):h XC(MG):w SN$(MS): SR$(MS): SS(MS): SP(MS): SG$(MS): SO(MS): OP(MS): OT$(MS): NF$"": NL$"": SX$"J1012,0:216,0:10500)FDD$"":7HPS$"0":BKRW0:VLDM$"PROGRAM":aRCQ0:lTCA0:wUCS0:VCG0:WWT1000:\MQ50:^MA5:aMS100:bGM$" ":cMG15:nTN$"":sTC$"":xTQ0:TA0:                                             ":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                             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                             !R CEtA:"3:"THE ENCOURAGEMENT PHRASE MAY CONTAIN":" THE FOLLOWING 'MACROS'.":" THESE WILL BE REPLACED WITH THE "A;"" APPROPRIATE WORD AT THE TIME OF USE":" DURING THE TEST."A<":" %FNAME - FIRST NAME":" %LNAME - LAST NAME (+ SALUTATION)"ENCOURAGEMENT PHRASE;@0":" ADD ENCOURAGEMENT PHRASE":@1"TEMEĺ:"SORRY, MAXIMUM NUMBER OF PHRASES":" ENTERED! PRESS ANY KEY";:(7):A$:8705@2"FLAG1:CETE1:8760@3"ET$(CE)""ī8705@4"TETE1:TEMEī8751@5"8705A8" GET PHRASE FO; ? "A$?""A$(13)ī87958?$"(A$)1(A$)4ī8735W?)"(A$)8751,8778,8785,8795q?+" GET ENCOURAGEMENT #?,"22:1:8880:1?-""ENTER ENCOURAGEMENT PHRASE # (1..";TE;"):";:SL3:8900:(SI$)0((SI$)TE)ĺ(7):8748?."CE(SI$):@/" ADD AVAILABLE: ";TE;" (MAX POSS.: ";ME;")"<>"::"OPTIONS:":c> ":"1. ADD ENCOURAGEMENT PHRASE":>""2. DELETE ENCOURAGEMENT PHRASE":>""3. LIST PHRASES (SCREEN OR PRINTER)":>""4. RETURN TO MAIN MENU":?"::22:"PLEASE SELECT AN OPTION:""Y"ı=a!ES$(CQ)"":85054=! PREPARE TEST DISKY=!FLAG0:RL3:3200: GET A TESTk=!FLAG1ī1000=!5005: STUDENT DISK SET MESSAGE=! EDIT ENCOURAGEMENT PHRASES =!FLAG0: MODIFIED FLAG&>":" ENCOURAGEMENT PHRASES REVIEW"::"# AGEMENT PHRASE # (1..";TE;")":" (OR RETURN IF NONE DESIRED):";:SL2:8900h!"ENTER ENCOUR :v SL34: 102CA:3': CA;") ";;: A(TA$(CQ,CA))E: 8900f: A(SI$)ĺ(BS$,(A(SI$)))y: TA$(CQ,CA)SI$: : GET ANSWER # TO QUESTION: AS$(CQ)"": 22:1: "PLEASE INDICATE CORRECT ANSWER";: A$; AS$(CQ)""A$(13STION #";CQ:9SL119)9A(TQ$(CQ))398900T9A(SI$)ĺ(BS$,(A(SI$)))d9TQ$(CQ)SI$j99 GET ALL SELECTIONS9 TA2ī82109 TA$(CQ,1)"TRUE":TA$(CQ,2)"FALSE"9 9200:9 CA1TA9 83009& 90 9l GET 1 SELECTION71008(7):7010$812:18:S$0812:19:87040O8:(4);"PR#";S$U8o8@ GET ENTIRE QUESTION8E" TEST: ";TN$8J81008OTQ$(CQ)""ı8T82008^84008c85008h88008r8 GET QUESTION PORTION83:1 9"QUE7I14WT:7o1000%7X EXITV7]:12:"ARE YOU SURE? (Y OR N):":12:24:A$q7_A$"Y"A$"N"ī70057`A$"N"ī10007b:127gS$"6"7l"'BOOT' FROM SLOT:";S$7v12:187A$7A$(13)Ģ13:1:71208(A$)1(A$)8S$A$:6LN5:DM$"PROGRAM":RW0:10000;6FLAG1DD$" ":1000a6:12:"PLEASE DO NOT DISTURB..."|6:(4);"OPEN TEMP,D1"6(4);"WRITE TEMP"6(34);TN$;(34);",";BD$;",";(34);DD$;(34)6(4);"CLOSE TEMP"6:(4);"RUN CG.TEST TAKING,D1"RATION.... PRESS RETURN":A$:A$(13)ī10168S#'LN200,8799,3221,3095,5280,5074Ԡ٬šŠӠΡ̬ŢԬŮԠ٬šŠӠΡĬŢ̬ŢӠΡĠ ŢРԠРŢӠӠϠ٠Ρ׬ŢϠҠԬŢŠӠΡȬȿˠլŢŠ¬ŢĠάԿէŠҠŠĠסԠԬŮ K IN":" DRIVE 1 AND PRESS RETURN":" (OR PRESS ESCAPE TO QUIT)";:A$:A$(27)ī7000_N$%9500N&%216,0::(4);"OPEN ENCOURAGEMENT"N+%(4);"READ ENCOURAGEMENT"N0%TEN5%I1TE:ET$(I):N:%(4);"CLOSE"ND%205ON% WRITE NEW ENCOURAGEMENT INCA:3M|$CA;") ";TA$(CQ,CA)$M$EM$ PRINT ENCOURAGEMENT (L 24)YM$24:1:8880:1nM$CQ0ĺES$(CQ);tM$M% READ ENCOURAGEMENT (FROM PROG DISK)M%9507M!%:(4);"VERIFY ENCOURAGEMENT,D1":9510UN#%216,0:"PLEASE INSERT THE PROGRAM DIS(AS$(CQ)):1:"X"LK#9400#LP#@L# PRINT QUESTION PORTIONJL#3:1pL#"QUESTION #";CQ;" (OF ";TQ;")":}L#TQ$(CQ)L# PRINT ALL SELECTIONSL#CA1TAL$9300L$CAL$LT$ PRINT 1 SELECTION L^$ SELECTION CA, QUESTION CQMh$102CEK#(SI$)1SI$"":8940EK #(SI$)80Ģ6:40:" ":6:40:8996mK!#(SI$)40Ģ5:40:" ":5:40:8996K"#X(0):(X):" ";:(X)K##(SI$)1SI$"":8940K$#SI$(SI$,(SI$)1)K⋬K(# PRINT ENTIRE QUESTIONK2#9100K<#9200LF#102975J#SI$SI$A$&J#(SI$)SLXX1/J#A$;9J #8940LJ#J0:K(SI$)1gJ#IIK40:(K40)1II1vJ#IKII1J#(SI$,I,1)" "JI:I0J#IJ#J0ī8960J#SI$(SI$,J)(BS$,(KJ1))(SI$,KJ1)A$J#5:1:SI$;J#8940K# BACKSPA$)SLXX0#I"(SI$)MGSLĺ(7);CI"A$(13)XX0:: RETURNbI"A$(8)ī8990: BACKSPACEI"A$(27)SI$"":: ESCAPEI"XX1ĺ(7);:8940I"((A$)32)((A$)95)(A$(34))ĺ(7);:8940J"((SI$)40(SI$)80)A$" "(SI$,1)" "ī8A$"N"İ8500H"+H" CLEAR 39 SPACES[H"" ";aH"wH" Y/N PRINT/INPUTH"" (Y/N):";H"A$:A$"N"A$"Y"ī8894H"H" GET STRING INPUTH" MAX LENGTH OF SLH"MG5H"SI$""H"A$ I"(SI8890:A$"Y"ī8840Gy"CA1TAbG~"1:22:8880:1:"IS RESPONSE ";CA;" OK?";:8890:A$"N"İ8300jG"CAG"1:22:8880:1:"IS THE ANSWER OK?";:8890:A$"N"Ģ102(AS$(CQ)):1:" ":8400 H"1:22:8880:1:"IS THE ENCOURAGEMENT PHRASE OK?";:8890:_"1000: NO MATTER WHAT!-F`" EDIT QUESTIONAFe"1:22:8880:1dFj""IS THIS QUESTION OK?";:8890rFo"A$"Y"ıFt"22:1:8880:1:"IS THE QUESTION PORTION OK?";:8890:A$"N"İ8100Fu"TA2ī8840Gv"1:22:8880:1:"IS THE RESPONSE PORTION OK?";:8705"EX"I1TE:I;". ";ET$(I):_EY"(4);"PR#0"::A$"0"ĺ"PRESS ANY KEY TO CONTINUE";:A$iEZ"8705E[" CHECK IF CHANGES MADEE\"FLAG0ī1000E]":"SAVE MODIFIED ENCOURAGEMENT PHRASES? ":8890:A$"N"ī1000E^"LN2:RW1:DM$"PROGRAM":10000F): DP"8705 DQ" LIST PHRASESYDR":A$"0":"ENTER PRINTER SLOT # (0 FOR SCREEN)";:A$nDS"A$(13)A$"0"DT"(A$)0(A$)8ī8786DU":(4);"PR#";(A$):::DV"A$"0"ėEW"" ENCOURAGEMENT PHRASES:"::TE0ĺ:"NONE AVAILABLE!!":I1WT::LETE ENCOURAGEMENT PHRASE":TE0ĺ(7):8705KCL"8747:(TE0)(CE0)ī8705CM"10:1:ET$(CE):22:1:8880:1:"DELETE THIS PHRASE?";:8890:A$"N"ī8705CN"22:1:8880:1:"ARE YOU SURE?";:8890:A$"N"ī8705DO"FLAG1:TETE1:ICETE:ET$(I)ET$(I1SK":::" IN DRIVE 1 AND PRESS ANY KEY!";:B$:75D X216,0:1000 ]:12:"TURN THE TESTING GENIE ";::"PROGRAM DISK":::" OVER, PLACE IT IN DRIVE 1 AND"::" PRESS ANY KEY WHEN READY!";:B$:120 :::(4);"PR#0":::12:"PRESS ANY KUCTION"1 nA$"2"ĺ(4);"RUN CG.SCORE/ANALYSIS"7 xA 600k :(4);"VERIFY MASTER":216,0:1000 :12:3::"JUST A MOMENT PLEASE!";::"...":(4);"RUN CG.TEST TAKING": 216,0:10002 :12:"PUT THE TESTING GENIE ";::"PROGRAM DI$"3")ĺ(7):60t G:2:30:"VER: A2 1.0":23:5:"GRAPHICS BY THE GRAPHICS MAGICIAN":I11200:::A$"3"ī120~ K500 L:(4);"VERIFY PROGRAM,D1":216,0:1000 P:12:3::"JUST A MOMENT PLEASE!";::"...":A$"1"ĺ(4);"RUN CG.TEST CONSTR0: MAXIMUM QUESTIONS0 ^MA5: MAXIMUM ANSWERS] `ME20: MAXIMUM NUMBER OF ENCOURAGEMENTSz bGM$" ": GRADING METHOD cMG15: MAX POSSIBLE GRADES d TEST DATA DEFINITIONS nTN$"": TEST NAME rTC$"SPARE": TEST CODE - FUTURE USE sT IN THE DRIVE ";DD$:"CONTAINS A TEST CALLED:":::K\((SI$TN$:TN$:::\2("PRESS TO USE, OR TO":" RETURN TO THE MENU:";\<(A$:A$(27)TN$"":1000\F(A$(13)ī3220\d(10270\(216,0:105001](:(7);"THE DISK IN THE DRPERATION.... PRESS RETURN":A$:A$(13)ī10168\['DD$B$:LN200,8799,3221,3095,5280,5074h['10400[':(4);"VERIFY TEST.NAME";DD$['(4);"OPEN TEST.NAME"['(4);"READ TEST.NAME"[(TN$[ ((4);"CLOSE"[(216,0:105004\(:"THE DISK095,5280,5074)E TO QUIT OPERATION!)";:A$AY'A$(13)A$(27)ĺ(7):10100VY'A$(13)ī10012eY' QUIT!!! pY'FLAG1Y':(7)::"WARNING";::" WILL NOT PERFORM REQUESTED":" OPERATION.... PRESS RETURN":A$:A$(13)ī10168 Z'DD$B$:LN200,8799,3221,3 ";::DM$;" DISK":DX'DM$"PROGRAM"ĺ:" FOR TEST ";::TN$::tX'DM$"PROGRAM"ĺ:" IN THE DISK DRIVE D1":X'DM$"PROGRAM"ĺ" IN THE DISK DRIVE ";DD$:X'RW1Ğ:"WITHOUT THE PROTECT TAB!"::Y'" PRESS RETURN WHEN READY ":" (OR ESCAP90.W':DM$"BLANK"ĺ(4);"VERIFY ";DM$;DD$\W 'DM$"MASTER"ĺ(4);"VERIFY ";TN$;".TEST"mW$'RW0ī10170W8'(4);"OPEN DUMMY";DD$W='(4);"CLOSE DUMMY"WB'(4);"DELETE DUMMY"WV'216,0W`'10170Wj'216,0Wt'::(7)X~'"PLEASE INSERT THE;(34);GM$;(34)V&I1TC>V&(34);GC$(I);(34);",";XC(I)EV'IQV'I1TPsV'(34);GP$(I);(34);",";XP(I)zV'IV'(4);"CLOSE "V'YY1ī5260V'V' VERIFY DISK TYPE AND WRITEABILITYV'FLAG0:B$DD$:DM$"PROGRAM"DD$",D1"W'100),XC(I)U&I!U&(4);"CLOSE "'U&.U&I@U&(4);"CLOSE"FU&^U& WRITE ANSWER FILEgU&YY0U&(4);"OPEN ";TN$;".ANSWER";DD$U&(4);"WRITE ";TN$;".ANSWER"U&(34);TN$;(34);",";TQ;",";TAU&I1TQU&AS$(I)U&V&TC;",";TP;","R";DD$:9820RTW&216,0:(7);"COULD NOT FIND ANSWER ";TN$:I1500::FLAG1:9890]T\&216,0Tf&:(4);"OPEN ";TN$;".ANSWER";DD$Tp&(4);"READ ";TN$;".ANSWER"Tz&TN$,TQ,TAT&I1TQT&AS$(I)T&T&9885: INPUT TC,GM$T&I1TCU&GC$(I.TEST"1S&(34);TN$;(34);",";TQ;",";TA;",";TC$hS &I1TQ:(34);TQ$(I);(34);",";(34);ES$(I);(34)S*&J1TA:(34);TA$(I,J);(34):S4&S>&(4);"CLOSE"S@&YY1ī5210SC&3098SH& READ ANSWER FILESM&9815 TR&(4);"VERIFY ";TN$;".ANSWE%:(7):"FOUND TEST CALLED ";TN$;"!"{R%:"PROCEED TO SAVE NEW VERSION?":" (WILL ERASE OLD VERSION!)--(Y OR N):";:A$R%A$"Y"A$"N"ī9717R%A$"N"FLAG1:9795R%216,0R%YY0R&:(4);"OPEN ";TN$;".TEST";DD$S &(4);"WRITE ";TN$;"216,0'Q%(4);"OPEN ";TN$;".TEST";DD$EQ%(4);"READ ";TN$;".TEST"XQ%TN$,TQ,TA,TC$sQ%I1TQ:TQ$(I),ES$(I)Q%J1TA:TA$(I,J):Q%Q%(4);"CLOSE"Q%3236Q% WRITE TEST FILEQ%9720Q%(4);"VERIFY ";TN$;".TEST";DD$Q%216,0'R(4);"WRITE ENCOURAGEMENT"!Pb%TECPg%I1TE:(34);ET$(I);(34):UPl%(4);"CLOSE"_Pv%8799tP% READ TEST FILE~P%9620P%9615P%:(4);"VERIFY ";TN$;".TEST";DD$:9620P%216,0::(7);"COULD NOT FIND TEST ";TN$:I1WT::FLAG1:9695Q%(I)""'J1TQ:SR$(I)SR$(I)(2):3SS(I)1HSP(I)(ITS)100XSG$(I)"A+"~23:1:"SCORE FILE STUDENT # ";IP:"INSERT THE DISK IN THE DRIVE AND PRESS":"ANY KEY";:A$Z9800% READ ENCOURAGEMENT (FROM PROG DISK)%9AME: ";TN$0"HOW MANY QUESTIONS?: ";TQW"HOW MANY ANSWERS/QUESTION?: ";TAv"HOW MANY STUDENTS?: ";TS"HOW LONG FOR EACH STUDENT NAME?(20): ";V1I1TSSN$(I)"STUDENT #"(I)(SN$(I))V1SN$(I)SN$(I)"X":5060SR$MANY CHARS/ENCOURAGEMENT?(25):";V1.I1TEOET$(I)"ENCOURAG TEXT "(I)y(ET$(I))V1ET$(I)ET$(I)"X":4070h:"INSERT THE DISK IN THE DRIVE AND PRESS":"ANY KEY";:A$r9550:"CREATE DUMMY SCORES":3 "ENTER THE TEST N":XC(1)10:GP$(1)"D":XP(1)10: SET GRADES TO NULLt :"INSERT THE DISK IN THE DRIVE AND PRESS":"ANY KEY";:A$~ 9700:"CREATE DUMMY ENCOURAGMENT FILE":3"ENTER THE TEST NAME: ";TN$"HOW MANY ENCOURAGEMENTS?: ";TE""HOW (CA)7 (TA$(I,CA))V2TA$(I,CA)TA$(I,CA)"X":3095? CAF& I`0 I1TQ:AS$(I)"1":Il: I1TQ? 23:1:"ENCOURAGEMENT FOR QUES ";ID ES$(I)"E FOR Q "(I)N (ES$(I))V3ES$(I)ES$(I)"X":3150X I4l TC1:TP1:GM$" ":GC$(1)"ATERS/ANSWER?(35): ";V2B "HOW MANY CHARACTERS/ENCOUR?(25): ";V3[ :"JUST A MOMENT.."g I1TQ TQ$(I)"TEST QUESTION #"(I) (TQ$(I))V1TQ$(I)TQ$(I)"X":3070 CA1TA 23:1:"QUESTION ";I;" ANSWER ";CA TA$(I,CA)"ANS "00,5000,2000):"THATS ALL FOLKS...."/M :"CREATE DUMMY TEST":3n "ENTER THE TEST NAME: ";TN$t  "HOW MANY QUESTIONS?: ";TQ "HOW MANY ANSWERS/QUESTION?: ";TA "HOW MANY CHARACTERS/QUESTION?(119): ";V1 "HOW MANY CHARAC====" )"1. CREATE DUMMY TEST":Q"2. CREATE DUMMY ENCOURAGEMENTS":u$"3. CREATE DUMMY SCORE FILE":8"4. EXIT PROGRAM ":L22:1V"ENTER CHOICE (1...4):"`22:36jA$t(A$)1(A$)4ī1100 (A$)3000,40NT": PRINT CHR$ (4);"CLOSE"%205HLN1:RW0:DM$"PROGRAM":10000ZFLAG1ī7010z9500: GET ENCOURAGEMENT RETURN FROM GET OF ENCOURG MAIN MENU:" CLASSROOM GENIE DEVELOPER UTILITIES"" ===============================ET$(ME): ENCOURAGEMENT TEXT9 SN$(MS): STUDENT NAMESX SR$(MS): STUDENT RESULTSu SS(MS): STUDENT SCORES SP(MS): STUDENT % CORRECT SG$(MS): STUDENT GRADES ES$(MQ): "" FOR EACH ? IN TEST PRINT CHR$ (4);"OPEN ENCOURAGEME CUTOFFS (PERCENT)- yTQ0: # QUESTIONSM TA0: # ANSWERS/QUESTIONr TE0: #ENCOURAGEMENTS IN FILE TS0: # STUDENTS TQ$(MQ): TEST QUESTIONS TA$(MQ,MA): TEST SELECTIONS AS$(MQ): TEST ANSWERS (FOR EACH QUESTION) T DATA DEFINITIONS* nTN$"": TEST NAMEV rTC$"SPARE": TEST CODE - FUTURE USEu sTC0: NUMBER OF GRADES tTP0: NUMBER OF GRADES uGC$(MG): POSSIBLE GRADES vGP$(MG): PERCENT GRADES wXC(MG): CUTOFFS (CURVE) xXP(MG): WAIT A MOMENT TIME% Z MAX LIMITSC \MQ50: MAXIMUM QUESTIONS^ ^MA5: MAXIMUM ANSWERS `ME20: MAXIMUM NUMBER OF ENCOURAGEMENTS aMS100: MAX NUMBER OF STUDENTS/ANALYSIS bGM$" ": GRADING METHOD cMG15: MAX POSSIBLE GRADES d TES ". KRW0: READ WRITE FLAG 1-YES,0-NOd LDM$"PROGRAM": DISK NAME(PROGRAM,MASTER,STUDENT)y P MISC VARIABLES RCQ0: CURRENT QUESTION SCA0: CURRENT SELECTION TCS0: CURRENT STUDENT UCE0: CURRENT ENCOURAGEMENT VWT1000:V2 CLASSROOM GENIE UTILITIES 3/11/84b COPYRIGHT 10/1/83 ADVANCED SYSTEM DESIGNFDD$"": DISK DRIVE DESTINATION GBS$"           GEMENT PHRASES MAY BE ":" MODIFIED, ADDED TO OR PRINTED.":"REMEMBER, QUOTES (";(34);") ARE NOT":" ALLOWED WHEN ENTERING QUESTIONS ":" OR ANSWERS TO QUESTIONS!"::"PLEASE SEE THE MANUAL FOR FURTHER ":" INFORMATION."24:1:"PRESS ANYCRATCH'. AN EXISTING TEST ":" MAY BE MODIFIED, ADDED TO OR PRINTED.":"'MASTER' TEST TAKING DISKS MUST BE ":" CREATED IMMEDIATELY AFTER SELECTING":" OPTION 1, HOWEVER, 'STUDENT' TEST":" TAKING DISKS MAY CREATED AT ANY TIME!"::"THE ENCOURAER CHOICE (1...7 OR ? FOR HELP):"-`22:365jA$GoA$"?"ī2000bt(A$)1(A$)7ī1100(A$)3000,3240,3500,8700,8600,4000,7000 INSTRUCTIONS:" TEST CONSTRUCTION NOTES:":G"FROM THIS MENU A TEST MAY BE PREPARED":" FROM 'S: PRINT " DISK)": PRINT `0"5. CREATE '";::"STUDENT";::"' OR '";::"MASTER";::"' TEST"1" TAKING DISK (FROM '";::"MASTER";::"' DISK)":4"6. JUMP TO TEST SCORING AND ANALYSIS ":8"7. EXIT TESTING GENIE":L22:1!V"ENTING DISK!!!"' (:"PRESS ANY KEY":A$1 (1000A$@ (1000E";DD$:"CONTAINS A TEST CALLED:":::5 ((TN$:::y 2("PRESS TO USE, OR TO":" RETURN TO THE MENU:"; <(A$:A$(27)ī1000 F(A$(13)ī3220 d(10270 (216,0 (:(7);"THE DISK IN THE DRIVE ";DD$::"IS NOT A VALID TEST TAK2"ENTER NAME:";A$*A$"?"ī102007"BYE":F"MENU":1X "PROCEED":1d'10400'(4);"VERIFY TEST.NAME";DD$'(4);"OPEN TEST.NAME"'(4);"READ TEST.NAME"(TN$ ((4);"CLOSE"(216,0& (:"THE DISK IN THE DRIVE ĠԠԬIJ EQUESTED":" OPERATION.... PRESS RETURN":A$:A$(13)ī10168k 'DD$B$:LN200,8799,3221,3095,5280,5074*$:/ 'RW1Ğ:"WITHOUT THE PROTECT TAB!"::y '" PRESS RETURN WHEN READY ":" (OR ESCAPE TO QUIT OPERATION!)";:A$ 'A$(13)A$(27)ĺ(7):10100 'A$(13)ī10012 ' QUIT!!! 'FLAG1? ':(7)::"WARNING";::" WILL NOT PERFORM R B'(4);"DELETE DUMMY"" V'216,0- `'101708 j'216,0F t'::(7)r ~'"PLEASE INSERT THE ";::DM$;" DISK": 'DM$"PROGRAM"ĺ:" FOR TEST ";::TN$:: 'DM$"PROGRAM"ĺ:" IN THE DISK DRIVE D1": 'DM$"PROGRAM"ĺ" IN THE DISK DRIVE ";DDn)' VERIFY DISK TYPE AND WRITEABILITYT'FLAG0:B$DD$:DM$"PROGRAM"DD$",D1"`'10090':DM$"BLANK"ĺ(4);"VERIFY ";DM$;DD$ 'DM$"MASTER"ĺ(4);"VERIFY ";TN$;".TEST"$'RW0ī101708'(4);"OPEN DUMMY";DD$='(4);"CLOSE DUMMY"   1:"ARE YOU SURE?";:8890:A$"N"ī3245H!9 FLAG1:CQTQTQTQ1:3245W!> ICQTQ1{!@ TQ$(I)TQ$(I1):AS$(I)AS$(I1)!B J1TA:TA$(I,J)TA$(I1,J):!D !F TQTQ1:3245!H ADD 1 QUESTION TO END? OF TEST("M TQMQė:"SORRY, AT LIMIT OF # Q";::" QUESTION, TEST:";TN$:9000, 88007 FLAG1A  3245d  SELECT AND DELETE 1 QUESTIONn  3290~ CQ0ī3500 % ::"DELETE";::" QUESTION, TEST:";TN$:9000 * 22:1:"DELETE THIS QUESTION?";:8890 / A$"N"ī3245(!4 22:1:8880:3350,3400,3450& SELECT A QUESTION: 22:1:8880:1 "ENTER THE NUMBER OF THE QUESTION:";:SL3:8900:SI$""CQ0:3245 (SI$)1(SI$)TQĺ(7):3290 CQ(SI$): SELECT AND EDIT 1 QUESTION 3290 CQ0ī3500" ::"EDIT1::"OPTIONS:"::8 "1. EDIT (MODIFY) A QUESTION":V "2. DELETE A QUESTION":q "3. ADD A QUESTION": "4. RETURN TO MAIN MENU" ::22:"PLEASE SELECT AN OPTION:"; A$ A$(13)ī3450 (A$)1(A$)4ī3285 (A$)3300,242,3503,8606 REVISE TEST5 FLAG0:RL1:3200G FLAG1ī1000g FLAG0: NO CHANGES TO TESTz : PRINT STAT "TEST NAME:";TN$::"NUMBER OF QUESTIONS:";TQ :"NUMBER OF RESPONSES/QUESTION:";TA:TA2ĺ" (TRUE/FALSE TEST)": 8: ";:SL20:8900:SI$""FLAG1:1000: ABORTS RETURNa LN3:RW0:TN$SI$:DM$"MASTER":10000z RETURN FROM 10000 FLAG1TN$"":1000: *** ABORTS RETURN TN$SI$:9600 FLAG1TN$"":1000: *** ABORTS RETURN!! 9800  RL3"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"::"(OR PRESS RETURN):"?";:8890:A$"N"ī3099: LN4:RW1:DM$"MASTER":10000L FLAG1ī3099_ FLAG0::9700w FLAG0İ9900:1000 :::"WARNING: NEW VERSION OF"::"TEST ";TN$;" NOT SAVED":"PRESS ANY KEY";:A$:1000 GET TEST IF NONE IN MEMORY  TN$"SE THE":" TEST YOU JUST CREATED!!"::"PROCEED WITH SAVE? (Y/N):";:A$:A$"Y"A$"N"ī3080p A$"Y"ī3087 :"ARE YOU SURE? (Y/N):";:A$:A$"Y"ī3080 1000 5000: SAVE MASTER!!!! SAVE TEST NOW? :"SAVE REVISED TEST ";TN$;"THE DISK IN THE DRIVE ";DD$:"CONTAINS A TEST CALLED:":::Te((SI$TN$:TN$:::e2("PRESS TO USE, OR TO":" RETURN TO THE MENU:";e<(A$:A$(27)TN$"":1000eF(A$(13)ī1122ed(10270e(216,0:10500:f(:(7);"THE DISK EQUESTED":" OPERATION.... PRESS RETURN":A$:A$(13)ī10168ed'LN6260,1124,9889: XXX,YYY,ZZZqd'10400d':(4);"VERIFY TEST.NAME";DD$d'(4);"OPEN TEST.NAME"d'(4);"READ TEST.NAME"d(TN$d ((4);"CLOSE"d(216,0:10500=e(:ESC> TO":" RETURN TO THE MENU:";: <(A$:A$(27)ī1000N F(A$(13)ī3220Y d(10270d (216,0 (:(7);"THE DISK IN THE DRIVE ";DD$::"IS NOT A VALID TEST TAKING DISK!!!" (:"PRESS ANY KEY":A$ (1000A '10400.'(4);"VERIFY TEST.NAME";DD$I'(4);"OPEN TEST.NAME"d'(4);"READ TEST.NAME"m(TN$ ((4);"CLOSE"(216,0(:"THE DISK IN THE DRIVE ";DD$:"CONTAINS A TEST CALLED:":::((TN$:::" 2("PRESS TO USE, OR < :"WITHOUT THE PROTECT TAB!"::jZ'" PRESS RETURN WHEN READY ":" (OR ESCAPE TO QUIT OPERATION!)";:A$Z'A$(13)A$(27)ĺ(7):10100Z'A$(13)ī10012Z' QUIT!!! Z'FLAG10[':(7)::"WARNING";::" WILL NOT PERFORM REQUESTED":" O6,0:10500Y`'10170)Yj'216,0:105007Yt'::(7)cY~'"PLEASE INSERT THE ";::DM$;" DISK":Y'DM$"PROGRAM"ĺ:" FOR TEST ";::TN$::Y'DM$"PROGRAM"ĺ:" IN THE DISK DRIVE D1":Y'DM$"PROGRAM"ĺ" IN THE DISK DRIVE ";DD$: Z'RW1Ğ1000 TN$SI$ TC5:GM$"P":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: SET CURVE GRADE DEFAULTS. TP5:GP$(1)"A":GP$(2)"B":GP$(3)"C":GP$(4)"D":GP$(5)"F":XP(1)90:XP(2)80:XP(3)70:XTO A DISK!)"? :"DO YOU WANT THIS TO HAPPEN? (Y OR N)";:A$R 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$"" KEY TO RETURN TO THE MENU!";-A$: PAUSE71000M CREATE NEW TEST :12:"JUST A MOMENT PLEASE...":I(0): GARBAGE COLLECTION :TN$""ī3030 "THIS WILL DELETE ALL INFORMATION":" FOR TEST: ";TN$  " (UNLESS IT HAS BEEN SAVED GEMENT PHRASES MAY BE ":" MODIFIED, ADDED TO OR PRINTED.":"REMEMBER, QUOTES (";(34);") ARE NOT":" ALLOWED WHEN ENTERING QUESTIONS ":" OR ANSWERS TO QUESTIONS!"::"PLEASE SEE THE MANUAL FOR FURTHER ":" INFORMATION."24:1:"PRESS ANYCRATCH'. AN EXISTING TEST ":" MAY BE MODIFIED, ADDED TO OR PRINTED.":"'MASTER' TEST TAKING DISKS MUST BE ":" CREATED IMMEDIATELY AFTER SELECTING":" OPTION 1, HOWEVER, 'STUDENT' TEST":" TAKING DISKS MAY CREATED AT ANY TIME!"::"THE ENCOURAER CHOICE (1...7 OR ? FOR HELP):"-`22:365jA$GoA$"?"ī2000bt(A$)1(A$)7ī1100(A$)3000,3240,3500,8700,8600,4000,7000 INSTRUCTIONS:" TEST CONSTRUCTION NOTES:":G"FROM THIS MENU A TEST MAY BE PREPARED":" FROM 'S: PRINT " DISK)": PRINT `0"5. CREATE '";::"STUDENT";::"' OR '";::"MASTER";::"' TEST"1" TAKING DISK (FROM '";::"MASTER";::"' DISK)":4"6. JUMP TO TEST SCORING AND ANALYSIS ":8"7. EXIT TESTING GENIE":L22:1!V"ENTST":-$"3. PRINT/REVIEW EXISTING TEST ":Z)"4. EDIT/PRINT ENCOURAGEMENT PHRASES":. PRINT "5. CREATE '";: INVERSE : PRINT "STUDENT";: NORMAL : PRINT "' TEST TAKING DISK ": PRINT " (FROM ";: INVERSE : PRINT "MASTER";: NORMAL ING GENIE TEST CONSTRUCTION MENU"O" ===================================="U"1. CREATE NEW TEST (AND '";::"MASTER";::"' TEST":" TAKING DISK)": PRINT "1. CREATE NEW TEST": PRINT "2. REVISE EXISTING TEACH ? IN TESTQ PRINT CHR$ (4);"OPEN ENCOURAGEMENT": PRINT CHR$ (4);"CLOSE"` GOTO 205 LN1:RW0:DM$"PROGRAM":10000 FLAG1ī7010 9500: GET ENCOURAGEMENT RETURN FROM GET OF ENCOURG 3048  MAIN MENU!:" TEST # QUESTIONS/ TA0: # ANSWERS/QUESTIONT TE0: #ENCOURAGEMENTS IN FILEr TQ$(MQ): TEST QUESTIONS TA$(MQ,MA): TEST SELECTIONS AS$(MQ): TEST ANSWERS (FOR EACH QUESTION) ET$(ME): ENCOURAGEMENT TEXT ES$(MQ): "" FOR EP0: NUMBER OF PERCENT GRADESA tTC0: NUMBER OF CURVE GRADESf uGC$(MG): POSSIBLE CURVE GRADES vGP$(MG): POSSIBLE PERCENT GRADES wXC(MG): PERCENT CUTOFFS FOR CURVE GRADING xXP(MG): PERCENT CUTOFFS FOR PERCENT GRADING }TQ0:0: MAXIMUM QUESTIONS0 ^MA5: MAXIMUM ANSWERS] `ME20: MAXIMUM NUMBER OF ENCOURAGEMENTSz bGM$" ": GRADING METHOD cMG15: MAX POSSIBLE GRADES d TEST DATA DEFINITIONS nTN$"": TEST NAME rTC$"SPARE": TEST CODE - FUTURE USE sT0: READ WRITE FLAG 1-YES,0-NOU LDM$"PROGRAM": DISK NAME(PROGRAM,MASTER,STUDENT)j P MISC VARIABLES RCQ0: CURRENT QUESTION TCA0: CURRENT SELECTION UCE0: CURRENT ENCOURAGEMENT VWT1000: WAIT A MOMENT TIME Z MAX LIMITS \MQ5R! CONVERSION OF ANSWER FILEQ COPYRIGHT 10/1/83 ADVANCED SYSTEM DESIGNwFDD$" ": DISK DRIVE DESTINATIONGBS$" " KRWIVE ";DD$::"IS NOT A VALID TEST TAKING DISK!!!"C](FLAG1:TN$""^](:"PRESS ANY KEY":A$h](1000]):::(4);"PR#0":::12:"PRESS ANY KEY TO CONTINUE";:A$:1000;'E' TO EDIT AND ESCAPE TO QUIT";:A$b& A$(69)Ģ22:1:8880:23:1:8880:1:8820:FLAG1:3585& A$(8)CQ1CQCQ1:3585& A$(27)ī3450& (A$(21))(A$(13))CQCQ1:3585&(7):3593& PRINTER @ VAL(A$) SLOT&PN(A$)P':% A$(13)A$"0".% (A$)0(A$)8ī3565A% A$"0"ī3600K% CQIIc% FLAG0: NO EDITING%:" REVIEW OF TEST:";TN$%CQTQĺ(7):CQTQ%9000$& 22:1:"PRESS RETURN (OR ";::"->";::") TO ADVANCE,(";::"<-";::") TO":" BACK UP (SI$)1(SI$)TQī3505%$ II(SI$)b$ 10:1:"ENTER THE ENDING QUES.# (UP TO ";TQ;"):";:JJTQz$ 8900:SI$""ī3560$ (SI$)II(SI$)TQī3542$ JJ(SI$)$ FROM II TO JJ QUESTIONS$ :A$"0":"ENTER PRINTER SLOT # (0 FOR SCREEN)";:A$+ QUESTIONS)"# FLAG0:RL2:32004# FLAG1ī1000# :"A RANGE OF QUESTIONS (OR THE ENTIRE":" TEST) MAY BE REVIEWED/PRINTED"::# "PLEASE ENTER THE STARTING QUESTION":" OR RETURN FOR ENTIRE TEST:";# SL3:8900:SI$""II1:JJTQ:3560$ IT OF # QUESTIONS (";MQ;")":(7):I1WT::3245S"R ::"ADD";::" QUESTION, ";_"\ CQTQ1{"a 8000:TQ$(CQ)""ī3245"f TQTQ1:FLAG1:3245"z SAVE MODIFIED TEST IF FLAG=1" FLAG0ī1000: NO CHANGES" 3090: SAVE TEST # PRINT TEST (11:8880:1:"ARE YOU SURE?";:8890:A$"N"ī3245Q!9 FLAG1:CQTQTQTQ1:3245`!> ICQTQ1!@ TQ$(I)TQ$(I1):AS$(I)AS$(I1)!B J1TA:TA$(I,J)TA$(I1,J):!D !F TQTQ1:3245!H ADD 1 QUESTION TO END? OF TEST1"M TQMQė:"SORRY, AT LIM::"EDIT";::" QUESTION, TEST:";TN$:90005 8800@ FLAG1J  3245m  SELECT AND DELETE 1 QUESTIONw  3290 CQ0ī3500 % ::"DELETE";::" QUESTION, TEST:";TN$:9000 * 22:1:"DELETE THIS QUESTION?";:8890 / A$"N"ī32451!4 22:A$)3300,3350,3400,3450/ SELECT A QUESTIONC 22:1:8880:1 "ENTER THE NUMBER OF THE QUESTION:";:SL3:8900:SI$""CQ0:3245 (SI$)1(SI$)TQĺ(7):3290 CQ(SI$): SELECT AND EDIT 1 QUESTION 3290 CQ0ī3500+  8:1::"OPTIONS:"::A "1. EDIT (MODIFY) A QUESTION":_ "2. DELETE A QUESTION":z "3. ADD A QUESTION": "4. RETURN TO MAIN MENU" ::22:"PLEASE SELECT AN OPTION:"; A$ A$(13)ī3450 (A$)1(A$)4ī3285 ( RL3242,3503,8606( REVISE TEST> FLAG0:RL1:3200P FLAG1ī1000p FLAG0: NO CHANGES TO TEST : PRINT STAT "TEST NAME:";TN$::"NUMBER OF QUESTIONS:";TQ :"NUMBER OF RESPONSES/QUESTION:";TA:TA2ĺ" (TRUE/FALSE TEST)": RETURN): ";:SL20:8900:SI$""FLAG1:1000: ABORTS RETURNj LN3:RW0:TN$SI$:DM$"MASTER":10000 RETURN FROM 10000 FLAG1TN$"":1000: *** ABORTS RETURN TN$SI$:9600 FLAG1TN$"":1000: *** ABORTS RETURN!! 9800 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):3205@ :"PLEASE ENTER THE NAME OF THE TEST ":"WITH WHICH YOU WISH TO WORK"::"(OR PRESSST ";TN$;"?";:8890:A$"N"ī3099C LN4:RW1:DM$"MASTER":10000U FLAG1ī3099h FLAG0::9700 FLAG0İ9900:1000 :::"WARNING: NEW VERSION OF"::"TEST ";TN$;" NOT SAVED":"PRESS ANY KEY";:A$:1000 GET TEST IF NONE IN MEMORY WILL LOOSE THE":" TEST YOU JUST CREATED!!"::"PROCEED WITH SAVE? (Y/N):";:A$:A$"Y"A$"N"ī3080y A$"Y"ī3087 :"ARE YOU SURE? (Y/N):";:A$:A$"Y"ī3080 1000 5000: SAVE MASTER!!!! SAVE TEST NOW?! :"SAVE REVISED TE00:TQ$(CQ)""TQCQ1:3080& 3065a TQ0TN$"":1000: DO NOT BOTHER SAVING A NULL TEST :12:"YOU MUST CREATE A ";::"MASTER"::" TEST TAKING DISK NOW. LATER YOU MAY ":" REVISE THE TEST, HOWEVER, IF YOU DO"g " NOT CREATE ONE NOW, YOUIN THE DRIVE ";DD$::"IS NOT A VALID TEST TAKING DISK!!!"Uf(:"PRESS ANY KEY":A$ff(TN$"":1000f):::(4);"PR#0":::12:"PRESS ANY KEY TO CONTINUE";:A$:1000: