' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩 緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIZRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLOɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# dנz# u`".";:30240(P4vZFĢ24:1:CE:ZX:ZY:.P>vCPyESC-ESC HANDLER^Py:D$"CLOSE":EX0:QN0tP"y54915:(901)ĬP,y::2000P}STANDARD ERROR PROCESSINGP}D$"CLOSE":POFFP }ZE(222):ZN(218)(219)256P}ZE1532110P}ZUĦ Q(} USERS2Ov ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)JO vZXCH(S):ZYCV(S)OvZL((ZT)):ZL$"-09":ZB10ZT10ZL$"-"(ZB)(ZT)O vZX:ZY:INP,(ZL,ZL$,(ZC)),ZN$:ZN(ZN$):ZCZN$""ı P*vZNZBZNZTĢ24:ZF1:"Enter a number between "ZB" and "ZTP141300202NXu1:868:1::ZV:ZH:16368,0:MNuSTANDARD YES-NO INPUTeNuZXCH(S):ZYCV(S)NuZY:ZX:INP,(3,"YESNOyesno",ZC),Z$:Z$""Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"30120NuNuSTANDARD RANGED NUMERIC INPUT (HI-RES)NDARD SPACE BAR ROUTINE6M5uZH(36)1:ZV(37)1:ZF0M:u24:1:CL:7:(64435)6ĺ"PRESS ";::"SPACE BAR";::" TO CONTINUE";:30020M?u"Press SPACE BAR to continue";MDu16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000 NNuZP160Z(QU$(1,0))63),0),Z$:Z$""ı9LiQU$(1,(QU$(1,0)))Z$:ILiTRUE FALSEWLiZYCV(S)Li"True or False? ";:INP,(5,"TRUEFALS",0),Z$:Z$""ıLi(Z$,1)"T"(Z$,1)"F"ĢZY:CE:27110LiQU$(1,1)"TRUE":(Z$,1)"F"QU$(1,1)"FALSE"LjM0uSTACV(S):20:WBI,2,13,1,LE$,1,IN$,RC:QU$(1,ZN)"":L0RC1:QU$(1,ZN)QU$(1,ZN)IN$(L)::1:QU$(0,ZN)Z$:yK gTRUE FALSEK*gQU$(0,ZN)Z$:KgQU$(2,ZN)Z$:KxiCHANGE ANSWERKiQT427100Li"Which letter is the correct answer? ";:INP,(1,"-A"(hPjjjjjjj0jj) i0ȱjij iiiР`8pPH)8 qȥq8)h` g R  QP (`L Fi`L)  @ igjiisjiighggmgig`8pggJJJ) }hkggmigjg`((((PPPPiHhii iJ` &eeiei lgiIihi i vgmiiMi@ f f "g`L?c 7e#g$gLtf -`,"g`zim{imʈ}i~i|iʎi$20Li gighg`ggig gjgkg`gg g gjgkghg`ggg8pg.g(8#gH$gJhj`m#g#g$g` ?c 7e` ?c 7eI``,L 7ee80 " fm8h)` 7eem88eLf` 7eeme` 7e8`,gLf fɝS```%g穀,g +g`%g3&g'%g%g ``) ``%gʽ`) ` `%gH`mS` *eS`)e`e ie 6he}`m%g8#g$g`+g` 7eL?c,0*`%%g (g#g&g$g'g,gh`%g "gS```em#g#g$g)g *g`em)g)g*g`) %g+g)g*g$g#gO,0 `)  7e`+g(`HH%g,P#g88`&g d fhLc%gH+gH(g%g,P d fh+g8h+g%g)g#g*g$g+g``S` n,PLN,09Ɉlhɘ ,ɿɯ 詍0S,ɁɍA, ,0) ⮖9 ,0 L L ` ֩PyQ AL `⪎ ` ~LH)hJJJ` ` HR-?nLnL H H -᪭ Lି^` , g  , ) )N ߅ l ) L{,0㩠  , ɛ @g @RPQ` @{ @娭m^_<ҍ= Ѱ` I @{ @千^_ @ @{ݥॡ @` 㩀⍽ ( L {$0$ n ,Li {$0LcN LVގ @ @掲`7PL[ߍ\ߍ7]ߍP(L @ʊLLେ v` Oߍ<ҍ=ҭ Ѱc斬߭<=)<кȌ߭<=ߑ<ȩ<ȩ< @ެ v` IQU$(0,0))1))(QT2Z22)18,LE$,1),Z$:Z2226500NJeQT126200,26100,26400rJeMULTIPLE CHOICE AND COMPLETIONJeZ3(QU$(0,0)):Z4(QU$(1,0)):Z0:ZSZN:ZSZ3ZSZSZ3:Z1JfQU$(Z,ZS)Z$:JXfMATCHINGJ]fWBI,1,13,1,LE$,1,IN$,RC:Z$IN$(0)iKbf(ZE1):IeCHANGE LINE\IeZ22QU$(2,0)"0"ĺ"There is no feedback to change.":30000:IeZB1:ZTNL:"Change which line? ";:ZC1:30200:ZC0:ZN0ıIeZY:1:CE:"Enter your new line #"ZN".":ZN". ";:QT2Z22262002JeINP,(33(2(QT1ZN(ZN:Z0:25600:*HcDELETE FEEDBACK LINEjHc"Delete which line? ";:ZB1:ZTNL:ZC1:30200:ZC0:ZN0ıHcZ2:ZSZN:25600:HdDELETE LINE FROM QU$H dZE(QU$(Z,0)):ZEZSāZ3ZSZE1:QU$(Z,Z3)QU$(Z,Z31):HdZEZSQU$(Z,ZS)""IdQU$(Z,0)1:ZTNL:ZC1:30200:ZN0ı>GzbZSZN:Z0:25600:Z1:25600:pGbZ3(QU$(0,0)):Z4(QU$(1,0)):ZB1:Z31ZB2GbZTNL:Z41ZTZ3GbZC1:30200:ZC0:ZNıGbZ0:ZSZN:ZSZ3ZSZSZ3:Z1Gb25600:G8cZB1:ZTNL:ZC1:30200:ZC0:ZN0ıHBcZS!F*bZ0:ZSZN:ZSZ3ZSZSZ3:Z13F4b25600:Z0ıUF>bZ3(QU$(1,ZE1))64:Z3ZSıyFCbZ3ZSQU$(1,ZE1)(64Z31):FHbZ4ZY:QU$(1,ZE1)"6":17000:Z4:1:CE:"Which letter is the new answer? ";:INP,(1,"-A"(64ZE2),1),Z$:QU$(1,ZE1)Z$:GpbZB000:EaZ2225500eEaNLMIĺ"This question aleady has the minimum number of lines.":30000:Ea"Delete which line? ";:QT125200,25300,25400E bZ3(QU$(0,0)):Z4(QU$(1,0))1:ZB1:Z31ZB2EbZTNL:Z41ZTZ3E bZC1:30200:ZC0:ZNı3,LE$,1),Z$"D_ZSZN:Z2:24600:@D`INSERT LINE IN QU$ ARRAYD"`ZE(QU$(Z,0)):ZSZEāZ3ZEZS1:QU$(Z,Z31)QU$(Z,Z3):D,`QU$(Z,ZS)Z$:QU$(Z,0)(ZE1):D|`GET THE INPUTDaDELETE A LINEEaZ22NL0ĺ"There is no feedback to delete.":30)CP_ZB1:ZTNL1:ZC1:30200:ZC0:ZN0ı}CZ_ZY:1:CE:"Enter new line #"ZN:ZN". ";:INP,(33,LE$,1),Z$:ZSZN:Z0:24600:C_INSERT FEEDBACK LINEC_"Insert before which line? ";:ZB1:ZTNL1:ZC1:30200:ZC0:ZN0ı D_ZY:1:CE:ZN". ";:INP,(3ZSZN:24600:Z1:ZSZN:Z$Z1$:24600:ZB^Z3(QU$(0,0)):Z4(QU$(1,0)):ZB1:Z410ZB11tB^ZTNL1:Z45ZTZT5B_ZC1:30200:ZC0:ZNıB _ZY:1:CE:"Enter new line # "ZN:ZN". ";:INP,(33,LE$,1),Z$:Z0:ZSZN:ZSZ31ZSZSZ3:Z1B_24600:0ı9AV^Z3(QU$(1,ZE1)):ZSZ364QU$(1,ZE1)(Z31)?A`^dA^ZB1:ZTNL1:ZC1:30200:ZN0ıA^ZY:1:CE:"Enter new line #"ZN:ZN". ";:WBI,1,13,1,LE$,1,IN$,RC:Z$IN$(0):20:WBI,2,13,1,LE$,1,IN$,RC:Z1$"":L0RC1:Z1$Z1$IN$(L)::1&B^Z0:@]QT124200,24300,24400L@$^Z3(QU$(0,0)):Z4(QU$(1,0)):ZB1:Z37ZB9f@.^ZTNL1:Z46ZTZT5@8^ZC1:30200:ZC0:ZNı@B^ZY:1:CE:"Enter new line # "ZN:ZN". ";:INP,(33(2(ZNZ31)),LE$,1),Z$:Z0:ZSZN:ZSZ31ZSZSZ3:Z1AL^24600:ZCREEN,4:30000:'?[SCREEN,5:30000:8?]INSERT LINE|?]NL3Z22ĺ"There is only room for 3 feedback lines.":30000:?]Z2224500?]NLMĺ"This question already has the maximum number of lines.":30000:?]"Insert before which line? ";>R:>UGET INPUTu>UWBI,ML,33,1,LE$"?",RT,IN$,RC:ZRC101:IN$(Z1)IN$(Z)::Z1CV(S):" ":Z1RC:CE:>YHELP SCREENS>Y:QT123100,23200,23300>YSCREEN,0:30000::SCREEN,1:30000:>ONE MOMENT PLEASE:>1:CE:12:"One moment please..."::hBDISPLAY QUESTION:iB2:mBCE:QT2Z1217030;rBCO1:ZC65:LZ1Z2:NL(QU$(L,0)):NL170E,LZD,ZEMA::WRITE:LELEZDn96BA,L(LE):BA1,H(LE):L02:PA(Q)L,0::WRITE,0,60530OBBA:WRITE:9:READ A QUESTION9:L02:L1010:Q$(L,L1)"":::Z(0)9:Z(PA(Q)2):QOHN(Z):QTLN(Z):PTR,A(Q):L02:CO1,::SREED,(13)(1ETE QUESTIONU86ZA(Q):Z10:ZL65535:L115OBMQ:A(L)ZĭA(L)ZLZLA(L):Z1Ll86:Z1LEZ:1406086ZDZLZ:L115OBMQ:A(L)ZZ1A(L)ZD:PA(L),L(Z1):PA(L)1,H(Z1)86:LZLLEBL:ZEBL:LBL(LE)ZELEL196REED,L,ZEMA:WRITQU$(L,L1)QU$(L,L1)" "72P72L11:Z1āL11Z1:SWRITE,QU$(L,L1)(13):72SWRITE,QU$(L,L1)(127)::GPTR,LE:LE0LELE6553672BA,L(LE):BA1,H(LE):ZPA(Q):Z,L(ZP):Z1,H(ZP):Z2,QO16QT:WRITE,0,60530OBBA:WRITE:ZP0: 86DEL:ZNĺ(" "(L1),2)". ";.6/FI$(L1)::ZB:D62WRITE A QUESTIONO621600062ZPP(BA):ZP63000ė:12:"This set is as large as it can be.":30000:62ZPP(BA):PTR,ZP:L02:Z(QU$(L,0)):L1QU$(L,0)"0"1301572L11Z:(QU$(L,L1),1)" ")"0"(Z$,1)"9"12100B5N/Z0:F0:LZ1Z2:Z$FI$(L)FL:LZ2R5X/:F12100d5b/ZNL:FI$Z$:5/PRINT OUT A SCREEN OF FILES5/:1:FY:CE:ZZ2Z1:L1Z1Z1(Z2):ZNĺ(" "(L1),2)". ";5/FI$(L1):::ZB20:L1Z2ı6/:FY:L1L1Z2:21MF1:Z2NFZ2NF40/12200+4:/ZN12100}4?/1:ZB:CE:ZNĺ"Which number? ";:ZBZ1:ZTZ2:ZC1:30200:ZC0:ZN0FI$"":4@/FI$FI$(ZN):4D/1:ZB:CE:"Which set do you want to":E$"? ";:INP,(15,"'-AZ-09. -",0),Z$:Z$""FI$"":ZN0:5I/(Z$,1CH(S):FYCV(S):MF26:ZO0:Z((NF1)MF):Z120703/L1Z:Z11ZO:Z2Z1MF1:12200:ZOZOMF:"Do you want to "E$" any of these":"sets? ";:ZC1:30100:ZC0:Z$"Y"L9993/Z$""L1003/:L1000120903!/L101ZN0:FI$"":4&/Z11ZO:Z2Z1ATA"02 +ZU1:ZE0:Z0:ZEĺD$"VERIFY"Z$D2$:Z1@2+ZU0:ZE0:\2.GET A FILE NAME/NUMBERq2.ZW1:ZD1:330002.FCN,".DATA",FI$,NF2.NF0Ģ12:"There are no sets on this data diskette.":30000:ZN0:FI$"":33/Z$"List of Sets":S(S))Z$::ZX975,255:RNH,"MANAGEMENT"11'COUNT FREE SECTORSF1'ZW1:ZD1:330001$'CNT,A:A(A(370256)):11:"There is room for approximately ":A" question"(115(A1))" on your data diskette.":30000:11:CE:1*FIND A FILE2+ZW1:ZD1:33000:Z$FI$".D:30000::Z11ZO:Z2Z1MF1:Z2NFZ2NFM0Z11ZO:Z2Z1MF1:Z2NFZ2NFa012200:30000:u0XRETURN TO MENU0bZD0:ZW0:330001l:12:"Getting the management options menu...":901,0:216,0:NOFILT:RNH,"STUDYUTIL.OVL":RNH,"STUDYUTIL.OBJ":E A LISTG/z:Z$"See a List of Set Names":S(S))Z$:ZD1:ZW1:33000/FCN,".DATA",FI$,NF:NF0Ģ12:"There are no sets on this diskette.":30000:/ZN0:3:ZX1:FY3:MF26:ZO0:Z((NF1)MF):Z6050)0L1Z:Z11ZO:Z2Z1MF1:12200:ZOZOMF ",16)(" "NC$,4)(" "NT$,8)(" "SC$,8)"%"M.5050g.ZU0:ZE0:PRİ30000{.PRįFEED:POFF.CLOSE::11:"Would you like to erase the scores for "FI$"? ";:30100:Z$"N"ı. 16000:D$"DELETE"FI$".SCOR":/pSE--- ------ ------- -------"C-OPEN,FI$".SCOR":ZU1:ZE0:PTR,2-ZEįSREED,(13),Z$:NA$Z$"":SREED,(13),Z$:NC$Z$"":SREED,(13),Z$:NT$Z$"":SREED,(13),Z$:SC$Z$""-ZE5100-PRCV(S)20İ30000:6:CEC.20PR)(NA$" 1:"Do you want to use a printer? ";:30100:PR(Z$"Y"):PRİ38000,:20PR);:Z$"Set: "FI$:Z$;25(Z$))"Mastery: "PE"%"-:PR20)"Student Number Number Percent":PR20)"Name Tried Correct Correct":20PR)"------------Student Records":S(S))Z$::ZN1:E$"see the records":ZD1:ZW1:33000+FCN,".SCOR",FI$,NF:NF0Ģ12:"There are no scores stored on this data diskette.":30000:+12030:ZN0ı+16000:OPEN,FI$".DATA":REED,0,5BA:PE(BA4):CLOSEB,:1o be deleted."::"Are you sure you want to delete":FI$"? ";:30100:Z$"N"ı*16000:D$"DELETE"FI$".DATA"D2$:ZU1:ZE0:ZEĺD$"DELETE"FI$".SCOR"D2$*ZU0:12:CE:"The set "FI$:"has been deleted.":30000:*SEE STUDENT RECORDSH+:Z$"See "That question is not in this set.":30000:3810<)QZN:Y)<CLOSE THE QUESTION FILEt)F16000:14000:13000:)DELETE):Z$"Delete a Set":S(S))Z$::ZN0:E$"delete":12000:ZNıN*2:CE:9:"All student records for this set will alsions in this set.":ZN0:30000:(12:CE:"Which question do you want to ":E$"? ";:ZXCH(S):ZYCV(S):::"(To see the list of questions, press RETURN and choose Examine a List.)"(ZX:ZY:ZC1:ZB1:ZTMQ:30200:ZC0:ZNı1)A(ZN)ĺ:::D$"RENAME"FI$".DATA,"Z$".DATA"D2$:ZE0:ZU1:ZEĺD$"RENAME"FI$".SCOR,"Z$".SCOR"'ZU0::FI$" is now "Z$".":FI$Z$:OPEN,FI$".DATA"'BA3,RE:BA4,PE:WRITE,0,60530OBBA:WRITE:'GET QUESTION NUMBER (2:CE:12:NQĺ"There are no questke to have a record kept of the student's scores? ";:30100:RE(Z$"Y")&::"Would you like to change the":"title? ";:30100:Z$"N"3760&:"What is the new title? ";:INP,(15,"-AZ-09. -",1),Z$:(Z$,1)"A"(Z$,1)"Z"Ģ(37)1:3750Q'CLOSE:2%yZ$"Change Management Features":S(S))Z$::%~5:"The current mastery level is "PE"%.":"Would you like to change this? ";:ZC1:30100:ZC0:Z$""ı%Z$"Y"ĺ:"What is the new mastery level? ";:ZB1:ZT100:30200:PEZNG&::"Would you liswer: "QU$(1,1):I$YQT1PRĺ:"The answer is "QU$(1,(QU$(1,0)))".":Y$ZPRİ30000$[QU$(2,0)"0"Z22:Z12::"Feedback #"Q:::17005:PRİ30000$`QN0::$ePRįPOFF$h:PRįPACT:FEED:POFF$jEX0:$tCHANGE MANAGEMENT FEATURESu want to use a printer? ";:30100:PR(Z$"Y")H#BEX1:PRİ38000:POFFa#GQZ1Z2::PRįPACTq#HA(Q)3670#L:12:"There is no question #"Q:::PRİ30000#Q3685#V15000::"Question #"Q:::Z10:Z21(QT4):QN1:17005:$XQT4ĺ:"Anwhich question? ";:ZXCH(S):ZYCV(S):::"(Enter 0 for all questions)"{"$ZY:ZX:ZB0:ZTMQ:ZC1:30200:ZC0:ZN$""ı")CE:Z1ZN:Z10Z11:Z2MQ:3640".15:"Stop at which question? ";:ZBZ1:ZC1:30200:ZC0:Z2ZN:Z20Z2Z1.#8:::"Do yo"ıa! 16000:14000:NQNQ1:MQMQ(QMQ):1:CE:12:"Question #"Q" has been deleted.":30000:u!EXAMINE A LIST!Z$"Examine a List of Questions":S(S))Z$::!2:CE:NQĢ12:"There are no questions in this set.":30000:I"8:"Start at 223900 Z12:Z22:34203 DELETE A QUESTION] Z$"Delete a Question":S(S))Z$::z E$"delete":3800:ZNı! 16000:15000::"Question #"Q::Z10:Z21(QT4):17000:20:"Are you sure you want to delete this question? ";:30100:Z$"N line";:20:QY1:"4. Change answer":20:"5";f ". No change":20:QY1:"Which number? ";:ZC0:ZB1:ZT4(Z22((QT1)(QT4))):30200:20:QY1:CE:QY1:1:ZN4(Z22(QT1QT4))ZN5p ZN53460z ZN24000,25000,26000,27000:3420 Z15(QT4)10:MI(QT1)2(QT2)1(QT3)2(QT4)1]\ 17000:19:Z22ĺ"Feedback #"Q:3422p] "Question #"Q^ QYCV(S):QY1:"1. Insert a line":"2. Delete a line":(QT1QT4)Z22ĢQY1:20:"3. Change a line":20:"4";:3430/a "3. Change aL)::QU$(2,0)(RC)Z> :12:"Storing question "Q"...":13007:ZP0NQNQ1:MQMQ(QMQ)`? uH CHANGE QUESTIONK Z$"Change a Question":S(S))Z$::M E$"change":3800:ZNıR 16000:15000:Z10:Z21(QT4)3W M(QT1)12(QT2)5(QT3)374 0 ZZ1-1 QU$(0,0)(Z):QU$(1,0)(Z)4 :"You may type remedial feedback or press RETURN to go on. Press RETURN only when you are finished.":::ZYCV(S):ML3:ZH0:RT1:220009 QU$(2,0)"0":QU$(2,1)"":IN$(1)""āL1RC:QU$(2,L)IN$(:ZY:20:IN$(1)"":WBI,2,13,1,LE$,1,IN$,RC:QU$(1,1)IN$(0)IN$(1):ZYZY2:Z2. 1:ZY:CE:Z". ";:WBI,1,13,1,LE$,0,IN$,RC:IN$(0)""ZZ1:3377/ QU$(0,Z)IN$(0):ZY:20:IN$(1)"":WBI,2,13,1,LE$,1,IN$,RC:QU$(1,Z)IN$(0)IN$(1):ZYZY2:ZZ1:Z63item and press RETURN. Press an extra RETURN when you are completely finished. For more information, press a ? before you begin."+ :"1. ";:ZX4:ZYCV(S):WBI,1,13,1,LE$"?",0,IN$,RC:IN$(0)"?"İ23000:3370, IN$(0)""ıN- QU$(0,1)IN$(0)(Z1(QU$(1,Z1)"")):A ZY2:"True or False? ";:ZXCH(S)% ZYZY2:L01:ZY:ZX:CL:INP,(5,"TRUEFALS",1),Z$:L((Z$,1)"T"(Z$,1)"F")::QU$(1,0)"1":QU$(1,1)"TRUE":(Z$,1)"F"QU$(1,1)"FALSE"& * :"Type each half of the matching h letter is the correct answer? ";:Z(QU$(1,0)):INP,(1,"-A"(64Z),1),A$q ZZ1:QU$(1,0)(Z):QU$(1,Z)A$: "Type each answer and press RETURN.":ZY:::Z1:L01:Z". "; INP,(31,LE$,(Z1)),QU$(1,Z):ZZ1:L(Z6)(QU$(1,Z1)"")::QU$(1,0)d press RETURN. Press an extra RETURN when you are finished.":Z1:ZY:L01:(64Z)". ";:INP,(30,LE$,(Z1)),QU$(1,Z) ZZ1:L(Z6)(QU$(1,Z1)"")::QU$(1,0)(Z1(QU$(1,Z1)"")):ZYCV(S)(Z6):1:35,4:CE:35,24:ZY:CE:K :"WhicQH$(QT):"For more information, press a ? before you begin."::ZYCV(S):22000:IN$(1)"?"İ23000:3340z IN$(1)""ı CE:L1RC:QU$(0,L)IN$(L)::QU$(0,0)(RC):ZYCV(S)1:WB,4:1:CE:WB,23:QT3350,0,3355,3360:3380 "Type each answer an5BA:WRITE 2:CE:4:"What type of format do you want to use?":::L14:" "L". "ME$(4,L)::::"Which number? ";:INP,(1,"-14",OB),Z$:ZN(Z$):ZNı QTZN:PA(Q)2,QT16T:QT23370i Z1:LO1:WD30:RT1:ML(QT1)7(QT1)10:ZH1:::"Type the objective statement or press RETURN.":::IN$(0)"":WBI,4,35,1,LE$,0,IN$,RC:16000:L0:ZP(BA):PTR,Z:RC1āL0RC2:SWRITE,IN$(L)(13):  SWRITE,IN$(L)(127):OA(QO),L(Z):OA(QO)1,H(Z):GPTR,Z:BA,L(Z):BA1,H(Z):WRITE,0,63S(S))Z$::W NQ200Ģ12:"There are already 200 questions in this set.":30000:z Q0:L1200:A(L)QL:L200 :T0:OB3330 3:"What is the objective number? ";:ZB1:ZT15:ZC1:30200:ZC0:ZN0ı QOZN:P(OA(ZN))3330 :I$".DATA":REED,0,5BA:LEP(BA):OB(BA2):RE(BA3):PE(BA4):REED,0,60530OBBAb 21000 :"# Questions: "NQ;:20:"Set: "FI$:5:Z3:20000:ZNZTįCLOSE: :ZN3300,3400,3500,3600,3700:3225 ADD A QUESTION Z$"Add a Question":b MQ0:NQ0:1:CE:7:"You may now add questions to this set. You also may change or delete questions,or change management features.":30000:3225 EDIT :Z$"Edit a Set":S(S))Z$:10000:2:CE::E$"edit":ZN1:12000:ZN0ıW 16000:OPEN,Fe objective":"numbers? ";:30100:OB(Z$"Y")II 2:CE:ZD1:ZW1:33000N 16000:LBABA60430OB:L,0::LE635:BA,L(LE):BA1,H(LE):BA2,OB:BA3,RE:BA4,PE:D$"OPEN"FI$".DATA"D2$:D$"CLOSE"X OPEN,FI$".DATA":WRITE,0,60530OBBA:WRITE the Examiner program.)"::"You can then use the Examiner program"@ "to print worksheets or tests by objective number. Students can use the Reviewer program to review questions by objective number within any set."-D ::"Do you want to uste a Set":S(S))Z$:::"You may assign objective numbers to the questions. For your convenience, you may also type in the objective statementthat is associated with each number."D? "(You can request a printout of the numbers and statements inZĺ::"That file is already on this diskette.":30000:3115 0 ::"What percentage is a mastery level grade(1-100)? ";:ZB1:ZT100:30200:PEZN 5 ::"Would you like to have a record kept of the student's scores? ";:30100:RE(Z$"Y"): :Z$"Crea:7:Z2:20000:ZNZTı/ ZN3100,3200:3010;  CREATEm & :Z$"Create a Set":S(S))Z$:10000:(A)ı + 4:CE:"What title do you want to give the":"set? ";:INP,(15,"' -AZ-09.-",0),FI$:FI$""ı , (FI$,1)"A"(FI$,1)"Z"3115< - 11000:04:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(ZS36):QP$"Designer" 901,1:::Z$"Designer":S(S))Z$:ZW1:ZD1:33000 2000 MAIN MENU SCREEN 901,1::5:Z1:20000 ZN3000,4000,5000,6000,7000:2010 CREATE/EDIT A SET o continue? ";:36000:Z$"N"İ500:";NDC(S36):DC3ĺCL$"Special Copy Setup"CC$:Q$"backup":21000:Q$T$(T1):21000:DC(D1$D2$)1"NCO,0,27:" from "N$".":30000:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$B!:ZU0:Q! NCOPY DISK}!*NT1U1:CL$"Copy a "T$(T1)" diskette"CC$$"4NCO,0,72:"Copying a "T$(T1)" diskette will erase whatever information is currently on the backup diskette."::"Do you want t16128:DR,17,017,0AD:AD60,255:AD61,255:AD64,255:AD65,255:DW,17,017,0AD :S,T1:D$"BSAVE MECC$$DISK,A"S",L$28"D2$:S,0 :ADD ANY FEATURES TO NEWLY CREATED DISKETTE HERE7!:CO,0,81:CEW::"This diskette is now prepared to handle "T$(T1)" in drive 2";*:".":30000:ZD2:390009:OK15099{:CO,0,27:CEW:CO,0,89:"Now creating a "T$(T1)" diskette...":DT$D2$:SNOPRO:400:ZE15099:ZSS:38000:CBS,ZN$".",AD:ZU1:ZE0:ZEįDW,0,00,0AD:ZU0:ZEįDW,0,00,0ADS :ADinue? ";:36000:Z$"N"15099~:CO,0,18::CEW:CO,0,73:"Please insert the diskette that you will use for storing "T$(T1);:(S36)3ĺ" in the drive located at:"::" Slot: "(S37):" Drive: "(S38):" Volume: "(S39);:(S36)2ĺ(953):958,254:ZC2Ĺ957,3(954)8.ZC1Ĺ957,(954)>C/O:CREATE DISK}:T1U1:CL$"Create a "T$(T1)" diskette"CC$:CO,0,72:"Creating a "T$(T1)" diskette will erase whatever information is currently on the diskette."::"Do you want to conteturn. ";."Pressing return alone will accept the current values (or the default values if no current values exist) displayed to the right.":30000..SET PAGE 3 VARS.ZC(S36):ZC3Ĺ956,(S37):957,(S38):958,(S39)".ZC3Ĺ956,;:36000:CO,0,144::CEL:Z$"N"11015FR+S37,SL:S38,DR:S39,VOL[+W|.HELP3.CL$"Special Disk Drive Setup Help"CC$: .:"To change the slot, drive or volume of the drive to hold the "T$(U1)" diskette, type the desired number and press rDL$"?"İ11900:11010r+M3:I$"-09?":L$" Volume: ":DF$((958)):300:VO(DL$):VO255VO254:CO,ZX,ZY:VO+DL$"?"İ11900:11010'+CEW:CO,0,99:CEL:CO,0,90:CEL:N$" will look for your "T$(U1)" diskette in:":CO,0,153:"Is this correct? ")$+CO,0,180:"Press ? for help."f +CO,0,90:CEL::CEL:"Where will your "T$(U1)" diskette be?"+:M1:I$"-37?":L$" Slot: ":DF$((956)):300:SL(DL$):DL$"?"İ11900:11010+M1:I$"12?":L$" Drive: ":DF$((957)):300:DR(DL$):ot, drive, and volume where your "T$(U1)" diskette will be located. ";R*30000X*k*SPECIAL SETUP+CL$"Special Disk Drive Setup"CC$:::"Your PROGRAM diskette was started from:"::" Slot: "(953):" Drive: "(954):" Volume: "(955n.":J*"Most users will have either one or two floppy disk drives. ";*"If you have a different setup (such as a hard disk or more than one controller card), use "QU$"Select special disk drive setup."QU$G*:"This option will ask you for the slHN(S)(S16):LN(S)SHN(S)16:OA(S)BA(S1)25:PA(S)(BA(S1)35(30OB))(S0)OA((S)1)(S1) `P(S)(S)(S1)256:A(S)P(PA(S)) jS(S)(20(Z$)2) tCH(S)(36)1:CV(S)(37)1 GET DATA DISK STUFFH 33100:ZS7868:WB35:MA134096:BL121024:BA74096:RFL,"HELP SCREENS.BIN"53248:SPTR,53248 Z:ME$(Z,6):L1Z:ME$(L,0):Z((ME$(L,0),1)):L11Z:ME$(L,L1):: QH$(4):L14:QH$(L): LFUNCTION DEFINITIONSm VH(S)(S256):L(S)SH(S)256:Q PROGRAM:DESIGNER6PROGRAMMER:S. P. MCCARRONPCOPYRIGHT:MECC, 1984n(LAST UPDATE:86/08/06 JJKINITIALIZATION(4)"MAXFILES1":901,0:SET,1:74096:32000LE$"- ":FI$(75),QU$(2,10)D$(4)IN$(10)S CE958:CL                           your "T$(T)" diskette":"for "N$;:ZC(S36):ZC2ĺ" in drive "ZD;2↭ZC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "(ZL1);2".":30500:345052 WP345993DR,17,017,016128:ZE0:ZEįDW,17,017,016O,ZP1ΆSPRO,ZP(ZP):ZE0:ZT1:SET,ZD:ZEįDR,34,1534,1516128:ZEįRFL,"MECC$$DISK"ZS:38000:(T0)(TZT)(N$ZN$)345701ц(T2)((T1ZT)(ZE6))(16128)IB345701Ԇ(TT1)((T1ZT)(ZE6ZP1))(16128)ID34570C2؆:10:"Please insert 16128:ZE0:ZEįDW,17,017,0161280 WP(WP1):ZE4ĺCL$:CO,0,89:"Please remove the write-protect tab from your "T$(T)" diskette.":WP2:30000:3400503ZU0:0ĆSPECIAL DISK VERIFY USED ONLY DURING COPY1ɆZU1:SET,ZD:ZSS0:CPRO,ZP:ZPįCPRZE7):CL$:CO,0,89:"Please insert your "T$(T)" diskette for "N$;:ZC(S36):ZC2ĺ" in drive "ZD;/ZC3ZL953(ZD2)3:" in the drive located at:"::" Slot: "(ZL):" Drive: "(ZL1);/".":30000:34005/WP34099$0DR,17,017,0K VERIFY;.ՄZU1:SET,ZD:ZSS0:ZV0:CPRO,ZP:ZPįCPRO,ZP.ڄSPRO,ZP(ZP):ZE0:ZEįRFL,"MECC$$DISK"ZS:38000:(TZT)(N$ZN$)34070.䄺CL$:CO,0,73:ZVZE7ĺ"The volume number of this diskette does not match the current setting.":30000d/ZV(-(}REENTRY POINT$-<}ZE25531000A-F}UNHOOK:FILT:::12:1-P}"Error "ZE" at line #"ZN:"in Diskette Support."::"Please report this error to MECC.":30500-U}500:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$-Z}T0:ZD1:WP0:34500::12:31060.ЄDIS"Getting the Management Options...",^yNOFILT:901,0:D$"BLOADHELLO.OBJ":8192,"STUDYUTIL.OVL":8192,"STUDYUTIL.OBJ":975,255:RNH,"MANAGEMENT",hyRNH,"MENU",}ERROR PROCESSING, }ZE(222):ZN(218)(219)256::(4)"CLOSE",}ZUZE0ZE16Ħ31000!+VwZP160ZP141305403+`w16368,0::G+yENDING ROUTINE\+ySPRO:(901)Ĭ+y500:(901)2T0:ZD1:WP0:34500::+ y54915:1000+6y500:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$+@yZU0:T0:ZD1:WP0:34000+JyZU0:CL$:CO,0,89$,TyCO,0,(118YY)9'*DRCEL:Z$"N"21010-*kRC*0uSPACE-BAR HI-REST*:u:SPACE::h*$wSPACE-BAR TEXT*.wZF0:24:1:868:7:"Press ";:(64435)6Ğ*8w"SPACE BAR";::" to continue";+Lw16368,0:16384,128:ZP(16384):ZF(ZF1)(ZP155):ZF2(DL$)a)0RM3:I$"-09":L$" Volume: ":DF$((OS2)):300:(DL$)255DL$"254":CO,ZX,ZY:DL$r)5ROS2,(DL$)*:RCEW:CO,0,(58YY)9:CEL:CO,0,(48YY)9:"Copy will look for your "Q$" diskette in:":CO,0,(118YY)9:"Is this correct? ";:36000:RGET COPY CONFIG(RYY(Q$T$(T1)):OS9533YY:CO,0,(108YY)9:CEL:CO,0,(58YY)9:CEL:"Where will your "Q$" diskette be?"(R:M1:I$"-37":L$" Slot: ":DF$((OS)):300:OS,(DL$))&RM1:I$"12":L$" Drive: ":DF$((OS1)):300:OS1,İ700'lNZU0:IS4'nNZ$"is":EFZ$"could not be"{'pN:11:"The copy of your "T$(T1)" diskette":Z$" finished.":30500'zN500:T0:ZD1:WP0::34500::12:"One moment please...":901,1:NOFILT:D$"BRUN PPRINT.OBJ"D1$:D$"BRUN DISKUTIL.OBJ"'N(:200763&aNK64QS34ZEįDR,5IS,07IS,1553248G&bNZEİ700:20076b&cNZD1:T2:WP1::34500&dN:12:"Writing to backup diskette...":SET,1:ZU1:ZE0:ZEįDW,IS,0QS,1516384&fNZEİ700:20076&hNK64QS34ZEįDW,5IS,07IS,1553248'jNZEįDW,34,1534,1516128/%[NZU0:ZEİ700:20078Q%\NUNHOOK:901,2:::FILT:EF0%]NIS0345(3K64):TT1:ZD2:WP0::34500%^N:12:"Reading from "T$(T1)" diskette...":SET,2:QSIS4:QS34QS34%_NZU1:ZE0:ZEįDR,IS,0QS,1516384&`NZEİ7006128$FNZU0:ZEİ700:20078-$GNID(16128)=$HNZD1:39000M$RNOKİ500:$WNCL$:CO,0,89:"Preparing your backup diskette...":DT$",S"((953))",D"((954))",V"((955)):SPRO,PT:400:ZEİ500:%YNIB(ID1)256(ID0):16128,IB:ZU1:ZE0:ZECEW:CO,0,90:"Please insert your backup diskette";:(S36)2ĺ" in drive 1 and your "T$(T1)" diskette in drive 2";#@N(S36)3DC2ĺ" and your "T$(T1)" diskette";#CN".":30000$ENDC2TT1:ZD2:WP0:34000:PTZP:ZU1:ZE0:ZEįDR,34,1534,151) )Nq ߅ l F ) L{,u0  a , aɛ n,PLN,u09Ɉlhɘ ,tɿɯ 詍0S,sɁɍ솏A,q ,u0쇏) T9 ,u ` 㩀qAutsv ( ML {$0$ 掇nu ,L {$0LNA ELڍC ̍R-?ntLnsL , ̍D ̍ ,-DDD 6LCEC^` , g 掆 ,A M <` ݌}}  N}a  斬<=)<кȌ< =<ȩ<ȩ< ެ :`L g RP Q ` { 娭 m  ^_}} ?}`L { ^_ {ݥ=4 eL׭3<4=<-=Ѝ.,, ,` { 媩}^_ |  ޥ 9`Lԩ7PL7P(L ʊLL &L`L 䎱 掲`  { ^_ %, ?},` y}`}}`} { R猐 { R猎 , { R猌`n `n5 { ^_ ( { R !#egiehj ,50 l,`,L 8n5 <3ted up." H30000:$ COMM CARD 3:"This diskette is currently set up to":"expect an Apple Communications Card":"in slot #";(PP);".": SD$"LOW":SD10:(PP2)127SD$"HIGH":SD30 7:"The speed is set to '";SD$;"'":"(usually ";SD;" CK CURRENT SETTINGS2 JP1((PP)0)((PP)127)K JP2100,2200,2300:Y 4DEFAULTS >5:"This diskette is currently set to the"::"default setting, which is to search"::"slots 1 and 2 for a recognizable card"::"each time the diskette is staro their":CO,38:"original state (slot search)":V " 4. Test printer settings": " 5. Return to Management Options menu" $::"Which number? ";:INP,(1,"-15",1),ZN$:ZN(ZN$) 8BOX:CO:ZN2000,5000,3000,4000,31040 BL00:L0 CHEV 24576:WIND:CO:"Printer Support"CC$:Q10:Q220:Q3279:Q4191:WIND,Q1,Q2,Q3,Q4` MENU L011:BOX:CO::"You may:": " 1. Check current printer settings": " 2. Change printer settings":1 " 3. Return printer settings t PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983y(LAST UPDATE: 85/03/29 RPB 2HI-RES VERSIONdINITIALIZATIONxD$(4)::P(19) PP(948)(949)256:CA$(1):CC$(3):CL$(12):Q$(34):VSP:HSP,1      "You are about to erase a "T$(ZT)" diskette for "ZN$".":::"Are you sure you want to do":"this? ";:36000:OK(Z$"Y")~7 ",D"((Z1))",V"((Z2))J6Z$"program":ZEZ$"data":ZP1OK1:6CO,0,73:"WARNING:"::"This appears to be a MECC "Z$" diskette. Are you sure you want to erase it? ";:36000:OK(Z$"Y")66MECC$$DISK FOUND6Ƙ38000:CO,0,73x7ИZ)):ZZ1:380205ZT(ZS)$5Ӕ@5XCAN DISK BE DESTROYED?o5bSET,ZD:CPRO,ZP:ZPįCPRO,ZP:ZPOK1:5lSPRO,ZP:ZU1:ZE0:ZS640:ZEįRFL,"MECC$$DISK"ZS5vCO,0,27:CEW:ZEİ39100:6ZU1:ZE0:Z9503ZD:ZEĺD$"VERIFY LOGO,S"((Z))58)) 44YES/NO INPUT24(1);:GCP,ZX,ZY4CO,ZX,ZY:INP,(3,"YESNOyesno",1),Z$:Z$(Z$,1):Z$"Y"Z$"y"Z$"N"Z$"n"360204(Z$)100Z$((Z$)32)44pGET DISK NAME AND TYPE4zZN$"":Z15(ZSZ)0Z36ZN$ZN$((ZS128v3WP(WP1):ZE4ė:12:"Please remove the write-protect tab":"from your "T$(T)" diskette.":WP2:30500:345053'ZU0:3BUILD DRIVE STRINGS3̈D1$",S"((953))",D"((954))",V"((955))4ֈD2$",S"((956))",D"((957))",V"((9CN,".DATA",FI$,NFe .NF0įCO,0,89:"There are no sets on this data diskette.":30000:ZN0:FI$"": /CL$"List of Sets"CC$::GCP,ZX,FY:MF26:ZO0:Z((NF1)MF):Z12070'!/L1Z:Z11ZO:Z2Z1MF1:12200:ZOZOMF:"Would you like to "E$" any of t28(QT2):EDGE,UX(1)4,UY(1)3,LX(1)2,LY(1)2,4,1$'UX(2)8:UY(2)LY(1)16:LX(2)270:LY(2)183:EDGE,UX(2)4,UY(2)3,LX(2)2,LY(2)2,4,2:*SELECT WINDOW Z+WIND,UX(Z),UY(Z),LX(Z),LY(Z):.GET A FILE NAME/NUMBER.ZD1:ZW1:33000 .FGCP,ZX,ZY:L01:CO,ZX,ZY:CEL:INP,(5,"TRUEFALS",1),Z$:Z$(Z$,1):L(Z$"T"Z$"F")::AN$" "QU$(1,1)".":AN(Z$(QU$(1,1),1)):'DRAW OUTER EDGES4'WIND:CL$"Question #"QC:CO,139,0:"Set: "FI$:GCP,ZX,ZY:UX(1)8:UY(1)ZY6:LX(1)270:LY(1)138U$(0,L):pZ2:11000:CO:"Type your answer:":INP,(33,LE$,1),Z$:F0:Z1(QU$(1,0)):L1Z1:Z$QU$(1,L)F1:AN$":"(13)QU$(1,1):ANF:pDISPLAY TRUE/FALSEzZ1(QU$(0,0))::L1Z1:QU$(0,L):Z2:11000:CO:"True or False? "CA$;:ZNZ14095#Z$"s":ZN1Z$""~:CO:CEW:"You have "ZN" correct answer"Z$". Please check your incorrect answers ";"with the correct letter in inverse.":30000AN(ZNZ1):AN$"":DISPLAY COMPLETION Z1(QU$(0,0))::L1Z1:Q:ZN$CA$;:ZN$"F"4070UCO,LX,LY:INP,(1,"-A"(Z164),1),Z$:S%((ZN$))(Z$)64tCO,UX(1),Y%((ZN$)):Z$:L(ZN$"F"):Z1:11000::CO:ZN0:L1Z1:CO,UX(1)9,Y%(L):Z$(A%(L)64):13000:ZNZN(A%(L)S%(L))::Z2:11000::CO:CEW ETURN. You may change your entries.":"When you are finished, type F.":CO,30:"Number "CA$;:GCP,NX,NY:" matches with letter "CA$;:GCP,LX,LY:" ."L1Z1:S%(L)0::L01:CO,LX,LY:" "CA$;:CO,LX:" "CA$;:CO,NX:INP,(0,"F-1"(Z1),1),ZN$X5,Y%(L)9:CO,ZX9:L"."CA$;:GCP,ZX,ZY:CO,ZX3:QU$(0,L)CA$;CO,139:(L64)"."CA$;:GCP,ZX,ZY:WIND,ZX3,ZY,LX(1),LY(1)::CO:QU$(1,L):Z1:11000:CO,UX(1):IZ2:11000:CO:"Type the number and the letter of each matching pair, then press R MATCHINGZ1(QU$(0,0)):L1Z1:QU$(1,L)(L)QU$(1,L)::L1Z1:Z2((1)Z1)1:Z3((1)Z1)1:Z$QU$(1,Z2):QU$(1,Z2)QU$(1,Z3):QU$(1,Z3)Z$:L1Z1:Z((QU$(1,L),1)):A%(Z)L:QU$(1,L)(QU$(1,L),2):@L1Z1:GCP,ZX,Y%(L):3:ZX,Y%(L)9Z1:Z3((1)Z1)1:Z$QU$(1,Z2):QU$(1,Z2)QU$(1,Z3):QU$(1,Z3)Z$:ZA:AZ2ZZ3^ AZ3ZZ2h AZ: L1Z1:(L64)". "QU$(1,L): Z2:11000:CO:"Which letter? ";:INP,(1,"-A"(Z164),1),Z$:AN$" "(A64)".":AN(Z$(A64)): DISPLAYSNOPRSPRSEPTSREEGPTSWRITINPINIPOFPACFEEWB!-GMd5^p <4L U_jSX]P7 `po `H^_mcmbh /^_`()%H]J) [)iZ ZZh`ժՖՖխժժժժխՖխժCLOSCNCPRSCREESPTFCFILNOFILREEWRITRFRNOPE2--# 2-1  2 2 111`h>`poB o8m?e)?e ?e<<= > < pmj? } kl<= hij%b$c8nf? 쑐 / 쑐Nfgۢ cݮed  t<=k>l?m@nAo s@A8@><ȥ><ȥ?<e<<=@>A?o ޮo 9` ˒kmNZU0:8&RFIND QUESTION DATAT& ROBāL115:LQ$(L)"":&RNQ0:LQ$" ":L1200:A(L)NQNQ1:LQ$LQ$(L):MQL:OBLQ$(HN((PA(L)2)))LQ$(HN((PA(L)2)))(L)&R:&0uSTANDARD SPACE BAR ROUTINE )HI-RES)G':uBOX,302:CO1I%:SREED,(13)(127),Z$,Z:QU$(L,CO)Z$"":Z1COCO1:15030`%:(Z$)0CO1CO0w%:QU$(L,0)(CO)::%>ONE MOMENT PLEASE...%>CO,0,10:CEW:CO,0,89:"One moment please...":% NVERIFY FILE%*NZ$Z$".SCOR"&4NZU1:ZE0:Z0:ZEFI$(L1)::CO,0,ZB:6$2INVERT FIRST CHARACTER OF Z$$2CA$;:GCP,ZX,ZY:BOX,ZX,ZY2,ZX10,ZY8,3:CO,ZX2::(Z$,1)CA$;::CO,ZX13:$:READ A QUESTION$:L02:L1010:Q$(L,L1)"":::Z(0)%:Z(PA(Q)2):QOHN(Z):QTLN(Z):PTR,A(Q):L0#b/ZNL:FI$Z$:4#/PRINT OUT A SCREEN OF FILES#/:CO,0,FY:CEW:ZZ2Z1:L1Z1Z1(Z2):ZNĺ(" "(L1),2)CA$;:GCP,ZX,T:CO,ZX4:#/FI$(L1):::ZB160:L1Z2ı#/:CO,0,FY:L1L1Z2:CO,139:ZNĺ(" "(L1),2)CA$;:GCP,ZX,T:CO,ZX4$/"?/CO,0,ZB:CEW:ZNĺ"Which set number? ";:ZBZ1:ZTZ2:30200:ZC0:ZN0FI$"":d"@/FI$FI$(ZN):"D/CO,0,ZB:CEW:"Which file do you want to":E$"? ";:INP,(15,"-AZ-09. -",0),Z$:Z$""FI$"":ZN0:"N/Z0:LZ1Z2:Z$FI$(L)FL:LZ2#X/:F1210hese sets? ";:ZC0:30100:Z$"Y"L9998!/Z$""L100L!/:L100012090e!!/L101ZN0:FI$"":!&/Z11ZO:Z2Z1MF1:Z2NFZ2NF!0/12200!:/ZN12100!ONE MOMENT PLEASE%>2:CE:12:"One moment pleasB20:L1Z2ı>#/:FY:L1L1Z2:21:ZNĺ(" "(L1),2)". ";S#/FI$(L1)::ZB:k#2PRINT ANSWER BLANK#2QT4ĺ:" True or False? ____________________":#2:40)"Answer: __________________________":#:READ A QUESTION$:Z02:Z101 want to":E$"? ";:INP,(15,"-AZ-09. -",0),Z$:Z$""FI$"":ZN0:g"N/Z0:LZ1Z2:Z$FI$(L)FL:LZ2w"X/:F12100"b/ZNL:FI$Z$:"/PRINT OUT A SCREEN OF FILES"/:1:FY:CE:ZZ2Z1:L1Z1Z1(Z2):ZNĺ(" "(L1),2)". "; #/FI$(L1):::Z/Z$""L100"!/:L100012090;!!/L101ZN0:FI$"":_!&/Z11ZO:Z2Z1MF1:Z2NFZ2NFj!0/12200y!:/ZN12100!?/1:ZB:CE:ZNĺ"Which number? ";:ZBZ1:ZTZ2:ZC1:30200:ZC0:ZN0FI$"":!@/FI$FI$(ZN):B"D/1:ZB:CE:"Which file do you diskette.":30000:ZN0:FI$"": /Z$"List of Sets":S(S))Z$::ZXCH(S):FYCV(S):MF26:ZO0:Z((NF1)MF):Z12070 /L1Z:Z11ZO:Z2Z1MF1:12200:ZOZOMF:"Do you want to "E$" any of these":"sets? ";:ZC1:30100:ZC0:Z$"Y"L999!QU$(0,Z1)QU$(0,Z11)::**FIND A FILEI+ZD1:33000:Z$FI$".DATA"u +ZU1:ZE0:Z0:ZEĺD$"VERIFY"Z$D2$:Z1+ZU0:ZE0:.GET A FILE NAME/NUMBER.ZD1:ZW0:33000.FCN,".DATA",FI$,NF& .NF0Ģ12:"There are no files on this data 1". "QU$(0,L1);40(8(QU$(0,L1))));(L164)". ";QU$(1,L1):CiDISPLAY TRUE/FALSE OR COMPLETIONAN$(L)QU$(1,1):10000:'PRINT OUT A QUESTION'Z(QU$(0,0)):Z10QU$(0,Z1)""$'(" "(L),3)". ";:Z11Z2:Z11ĺ" ";.'Z12:Z2((1)Z1)1:Z3((1)Z1)1:Z$QU$(1,P(Z2)):QU$(1,P(Z2))QU$(1,P(Z3)):QU$(1,P(Z3))Z$:ZP(Z2):P(Z2)P(Z3):P(Z3)Z:AN$(L)(P(1)64):Z11āL12Z1:AN$(L)AN$(L)", "(P(L1)64):(" "(L),3)". ";:L11Z1:L11ĺ6);="____ "L1)Z1)1:Z3((1)Z1)1:ZA:AZ2ZZ36 AZ3ZZ2} AZ:Z$QU$(1,Z2):QU$(1,Z2)QU$(1,Z3):QU$(1,Z3)Z$::AN$(L)(64A) 10000::L11(QU$(1,0))1:10)(L164)". "QU$(1,L1):L1:PRINT MATCHING}Z1(QU$(1,0)):L11Z1:P(L1)L1::L11ZN,0)):IS$(ZN,L)::::"Do you want to retype the":"instructions? ";:30100:Z$"N"2615eZ 2630u PAGE CHECK FEED,N,Z:ZPGPG1:65)"Page "PG:::  PRINT MULTIPLE CHOICE' Z1(QU$(1,0))1:A(QU$(1,Z11))64:L11Z12:Z2((:"6. End":32,0:::"Which number? ";:ZB1:ZT6:30200:ZNZTıF IS1::4:"Press RETURN only when you are finished."::WBI,6,38,1,LE$,0,IN$,RC:RCāL1RC:IS$(ZN,L)IN$(L1)::IS$(ZN,0)(RC):IS$(ZN,RC1)""[P :4:"Instructions:"::L1(IS$(rksheet? ";:30100:IS(Z$"Y"):ISı7 :3:"For which section do you want to includeinstructions?"::32,2::"1. General instructions"::"2. Multiple-choice section"::"3. Matching section":B< "4. Completion section"::"5. True/False section": OF VERSIONg FEED::"Answer key for version "VE".":::L1RN:(" "(L),3)". "AN$(L)::FEED:( GET THE INSTRUCTIONS- L14:IS$(L,0)"0":%2 ::"Do you want to include instructions or other information for sections of the test or wo00,5000 ABQT2İ13000( :LL1E! QPQP1:QP(LQ$)2323L$ Tr. 2500:VE:POFF:::CLOSE:31000` PRINT WITHOUT OBJECTIVES j Z$" ":L1RN:Z1((1)((LQ$)1))2:Z$Z$(LQ$,Z1,1):LQ$(LQ$,Z11)(LQ$,Z11)::LQ$Z$:  END)",V"((958)):.1GET DISK NAME AND TYPE=1ZN$"":Z1r1ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:332201΁ZT((ZS)0):ZM(ZS35)11PòDATA AREA1ZÃ4,"Good Job!","That's Correct!","Well Done!","Right!"t!"c i "g$20 L6h,o 8ɀ   LX8e湥 pHpH ,L`@ @ʩ WRPT` J  *eȱȱȱ` i%gH) #,,g h`` %g tf%%h $20 Lc $ aHaH`6eeeWeeefBfsffffgggg(bb, 7e gc,g i"g$20 6hNO0 b@íH bhH ,aɈ5hH gcb% i)H fh "g$20 6h gc Cf,bbh` g````L` ccԍb q$% `@ ?aDa6 ,-gL?cLfHa bHaa,,aaɠ,ra ` a欅aah,`ɀ)?  @IH gc$ 7e Cf$%0 7e      000::12:"Printing the test...":34,15:16:PINIT:((956))",D"((957))",V"((958)):E0GET DISK NAME AND TYPET0ZN$"":Z10ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:332200΁ZT((ZS)0):ZM(ZS35)00pSTANDARD PRINTER ACTIVATION51z2:CE:12:"Please prepare your printer.":3030993/.ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"/8ZE4ė:12:"Please remove the write-protect tab fromyour "Z$" diskette.":ZP1:30000:33040/KZW0:ZUZZ:/LGET DRIVE STRINGS/VD1$",S"((953))",D"((954))",V"((955)))0`D2$",S"drive "1(ZD(QC2))".":30000u.ZFQC3ĺ"the drive located at:":" Slot: "(ZC):" Drive: "(ZC1):30000.CPRO,ZR:ZRįCPRO,ZR.SPRO,ZRZR:ZE0:ZEĺD$"BLOAD MECC$$DISK,A"ZS;ZT$:33200.(ZDZT)(ZN$QN$)33020/$QDZD:ZW3MECC.":30000:310006-耲FORCE DISK SWITCH AND VERIFY-ZZZU:ZU1:SET,ZD1:ZS704:ZC9533ZD:ZP0:Z0:ZT$D1$:Z$"program":ZDZT$D2$:Z$"data".ZZ1:ZF(Z1(QC1ZDQD)):ZFė:12:"Please insert your "Z$" diskette":"for "QN$" in ";:QC3ĺ"error number "ZE" at line "ZN" in program DESIGNER.":32150U,n} PROCESS BASIC ERRORe,x}ZL53856ZEw,}ZE25531000,}:ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN" in program EXAMINER."-}:"Please report this error to k your diskette parameters.":30000:31000+F}ZE4ĺ"Please remove the write-protect sticker from your diskette.":30000:31000+P}ZE8ĺ"Disk bad - drive or format error.":30000:31000+Z}ZE9ĺ"This data diskette is full.":30000:31000;,d}"DOS OBJ"D1$:8192,"STUDYUTIL.OVL":8192,"STUDYUTIL.OBJ":975,255:RNH,"MANAGEMENT"m*}STANDARD ERROR PROCESSING~*}:D$"CLOSE"* }ZE(222):ZN(218)(219)256*}ZE1532110*}ZUĦ*(} USERS ENTRY POINT*2}:12*+<}ZE2ZE3ZE7ĺ"Please chec)y1::(4)"CLOSE"0)y54915:(901)ė::8)"y:),y12:"Would you like to print another set of questions? ";:30100:Z$"Y"ZD0:ZW0:33000:)1yZD0:33000)6y:12:"Getting the management options menu..."N*;y901,0:216,0:D$"BLOADHELLO.:(vZL((ZT)):ZL$"-09":ZB10ZT10ZL$"-"(ZB)(ZT)u( vZX:ZY:INP,(ZL,ZL$,(ZC)),ZN$:ZN(ZN$):ZCZN$""ı(*vZNZBZNZTĢ24:ZF1:"Enter a number between "ZB" and "ZT".";:30240(4vZFĢ24:1:CE:ZX:ZY:(>v)ySTANDARD ENDING ROUTINEUT'uZXCH(S):ZYCV(S)'uZY:ZX:INP,(3,"YESNOyesno",ZC),Z$:Z$""Z(Z$):Z$(Z(Z96Z123)32):Z$"Y"Z$"N"30120'u'uSTANDARD RANGED NUMERIC INPUT (HI-RES)'v ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)' vZXCH(S):ZYCV(S)(64435)6ĺ"PRESS ";::"SPACE BAR";::" TO CONTINUE";:30020c&?u"Press SPACE BAR to continue";&Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000&NuZP160ZP14130020&Xu1:868:1::ZV:ZH:16368,0:'uSTANDARD YES-NO INP4:QP2:IN0; Q((LQ$,QP,1)):LN((PA(Q)2))T2337 15000:N(QU$(0,0))((QU$(1,0))(QT1))42(QT1):INIS$(T1,0)"0"IS$(T1,0)""2330 NN8:IN1:2800:T11(IS$(T1,0))2:IS$(T1,T1)IS$(T1,T11)::: 2800:QT3000,4000,50________":::ISIS$(1,0)"0"ĺ:L1(IS$(1,0))2:IS$(1,L)IS$(1,L1):::c POİ2400:2320 LQ$" ":RN0:L115:RNRNR(L):R(L)āL11R(L):Z((1)((LQ$(L))1))2:LQ$LQ$(LQ$(L),Z,1):LQ$(L)(LQ$(L),Z1)(LQ$(L),Z1):  L1:T1R(((OB$,L1,1)))::ZįCLOSE:310006:6:2110JPRINT THE TESTT 2600 38000:VE1VN:21000:PG1:::VN1ĺ"Version "VE: "Name ___________________________________"20)"Date _____________"N ::"Class _________________________at objective.":30000:2270QV:CE:"How many questions would you like to usefrom objective "ZN"? ";:ZB0:ZTN(ZN):ZC0:OZN:30200:R(O)ZN:2260QV:CE:"Are you done selecting questions? ";:30100:Z$"N"2260'Z0:L1(OB$)1:ZZ "(N(L)),6)27)(" "(R(L)),6)-9:QV20QV:CE:QV3:"Press RETURN to end.":QV:"Which objective number would you like toselect questions from? ";:ZB1:ZT15:ZC1:30200:ZN02280$QV:CE:N(ZN)ĺ"There are no questions in thtive "O".":22407L11CT2:QU$(0,L1)QU$(0,L11):O:::FEED:POFF:U1:1:"Objective";15)"Questions"30)"Number":" Number";15);"Available";28);"Requested"::L115:N(L)(LQ$(L))1:N(L)2267'(" "(L),6)14)(" P(OA(O)):CT1TZ$"":SREED,(13)(127),Z$,Z:QU$(0,CT)Z$"":Z1CTCT1:2230rZ$"":(LQ$(O))2Z$"s"QU$(0,CT1)"":"Objective #"O": ("(LQ$(O))1" question"Z$")"::QU$(0,CT1)"":QU$(0,1)""ĺ"There is no objective statement for objec:5:"Would you like a print-out of the objective numbers and statements? ";:30100:Z$"N"2250:12:"Please prepare your printer...":30000::12:"Printing the objective statements...":34,16:17:PINIT:L2(OB$):O((OB$,L,1)):PTR,swer blanks printed? ";:30100:AB(Z$"Y")4R2300:9:"There are "NQ" questions in this set."::::"Do you want to print tests or worksheetsby objective number? ";:30100:PO(Z$"Y"):PO2100OB$" ":L115:P(OA(L))OB$OB$(L)j0 4:4:"There are "NQ" questions in this set.":::"How many questions do you want on each test or worksheet? ";:ZB1:ZC0:ZTNQ:30200:RNZN >::"How many different versions do you want? ";:ZB1:ZT99:30200:VNZN*H::"Do you want anr test.":30000> E$"print"::::ZN1:12000:FI$""31000 16000:OPEN,FI$".DATA":REED,0,5BA:LEP(BA):OB(BA2):RE(BA3):PE(BA4):REED,0,60530OBBA:21000 NQ0ė:11:"There are no questions in this set.":30000:31000 OB220is program, you must have created and stored a set of questions and answers with the Designer program. You may use this program to print a variety of worksheets or tests." ::"A separate answer key will be printed after each worksheet o0(Z$)2). tCH(S)(36)1:CV(S)(37)1G GET DATA DISK STUFF 33100:ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(ZS36):QP$"Examiner" 901,1:::Z$"Examiner":S(S))Z$:ZD1:33000 MAIN PROGRAM 2:CE:::"To use th(15),R(15),N(15),AN$(200)- CE958:CL868G LFUNCTION DEFINITIONS VH(S)(S256):L(S)SH(S)256:HN(S)(S16):LN(S)SHN(S)16:PA(S)BA(S1)35(30OB) `P(S)(S)(S1)256:A(S)P(PA(S)):OA(S)BA(S1)25 jS(S)(26) PROGRAM:EXAMINER6PROGRAMMER:S. P. MCCARRONPCOPYRIGHT:MECC, 1984n(LAST UPDATE:85/09/05 SPMINITIALIZATION(4)"MAXFILES1":901,0:74096:BA74096:32000LE$"- ":FI$(75),QU$(2,10),IN$(10),IS$(5,10)D$(4) LQ$                    ther objective? ";:30100:Z$"Y"2820O, LQ$" ":L115:R(L)LQ$LQ$LQ$(L)s6 :RN(LQ$)1:NTRN:NT031000y@  DISPLAY MULTIPLE CHOICE Z1(QU$(0,0)):L1Z1:QU$(0,L):::Z1(QU$(1,0))1:A(QU$(1,Z11))64:L1Z12O Z2((1)Z1)(L)0::PO0:CL$:CO,0,60) GCP,SX,SY CO,SX,SY:CEW::"Which objective number? ";:ZB1:ZT15:30200:(LQ$(ZN))0ĺ:"There are no questions in that objective.":GCP,ZX,ZY:30000:CO,ZX,ZY:2840 R(ZN)1:PO1& :"Do you want to specify ano0100:Z$"Y"2050u CO,0,89:CEW:"Do you want to review another":"set? ";:30100:Z$"Y"ĺCL$"Reviewer"CC$:2040 31030( GOOD ANSWER!2 Z2:11000:CO:CEW::QT2ĺ7 Z((1)NG)1:GO$(Z)CC$:30000: HANDLE OBJECTIVES L115:RWRITE,0,2BA:CLOSEFOPEN,FI$".SCOR":REED,0,2BA:NP(BA):PTR,NSWRITE,NA$(13)(NT)(13)(NC)(13)(SC)(13):GPTR,N:BA,L(N):BA1,H(N):WRITE,0,2BA:CLOSE 30000:CL$:SCPEįCO,0,89:"Do you want to review ":FI$" again? ";:3:"CA$;:CO,2309SC(NCNT100.5):(" "(SC),3)"%"lWIND:CO,0,130:SCPEĺ"Good Work!"CC$:2260"You should review this set again."CC$RE2500Z$FI$:20000:ZĺD$"OPEN"FI$".SCOR"D2$:D$"CLOSE":OPEN,FI$".SCOR":BA,2:BA1,0:$"":2070\NE1:2040)WE'RE DONE4CLOSEmCL$:EDGE,6,20,272,100,4,5:WIND,15,24,260,90::CO:"Number of questions requested:"CA$;:CO,230:(" "(NT),3)::"Number correct on first try:"CA$;:CO,230:(" "(NC),3)::"Your score0,6000/ANİ2600:2120c4Z2:11000:CO:CEW:AN$""ĺ"No, the answer is"AN$:30000:CO:CEWz7QU$(2,0)"0"21109L1(QU$(2,0)):QU$(2,L)::30000>NEIQ$IQ$(Q)HNCNC(NEAN)::IQ$""2200 RNE1:LQ$" "IQ$:RN(IQ$):IQ "FI$".":::"Questions you answer incorrectly will be asked a second time.":30000:QC0:NE0:NC0QN1RN:QCQC1:Z1((1)((LQ$)1))2:Q((LQ$,Z1,1)):LQ$(LQ$,Z11)(LQ$,Z11):QTLN((PA(Q)2)):10000:Z1:11000:CO:15000:QT3000,4000,500Z$"s":Z1$"are"CL$:CO,0,40:"There "Z1$" "NQ" question"Z$" in this set."::"How many questions do you want to review? ";:ZB1:ZTNQ:ZC0:30200:RNZN:NTZNZ$"":NT1Z$"s"cCL$:CO,0,50:"You will be asked "NT" question"Z$" from the setV NQ0įCO,0,10:CEW:CO,0,80:"There are no questions in this set.":30000:31000d OB2060 CL$:CO,0,70:"Did your instructor assign you to review this set by objective number? ";:30100:Z$"N"2060 2800:2065 Z$"":Z1$"is":NQ1įCO,0,10:CEW:CO,0,70R ::"What is your name? ";:INP,(15,"-AZ-az' -",1),NA$ ZN1:E$"review":CO,0,10:CEW:12000:CL$:FI$""31000 16000:OPEN,FI$".DATA":REED,0,5BA:LEP(BA):OB(BA2):RE(BA3):PE(BA4):REED,0,60530OBBA:21000,4,5::"To use this program, you will need a data diskette that your instructor has prepared with a set of questions.":: "Do you have a prepared data diskette? ";:30100:Z$"N"31035 WIND:CL$"Reviewer"CC$:33000 MAIN MENU SCREEN P(PA(S)):OA(S)BA(S1)259 jS(S)(21(Z$)2)R GET DATA DISK STUFF 33100:ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QE(ZS36):QP$"Reviewer" 901,1:CL$"Reviewer"CC$:ZD1:ZW1{ WIND,10,20,269,170:CO:EDGE,6,17,273,17312):CC$(3):CN$(14):CO$(15)- IN$(10)B BA7409611256\ NG:L1NG:GO$(L):v LFUNCTION DEFINITIONS VH(S)(S256):L(S)SH(S)256:HN(S)(S16):LN(S)SHN(S)16:PA(S)BA(S1)35(30OB) `P(S)(S)(S1)256:A(S)) PROGRAM:REVIEWER6PROGRAMMER:S. P. MCCARRONPCOPYRIGHT:MECC, 1984n(LAST UPDATE:86/02/12 SPMINITIALIZATIONHSP,1:(4)"MAXFILES1":901,0:44096:32000LE$"- ":FI$(75),QU$(2,10),R(15),LQ$(15) D$(4):CA$(1):CL$(                        -z#??   ı̮̠IJ̮̠ ҠӮΠ РӮΠ !ŮԠ"̮ʠҠ+Ҡ+̮ʠ, äˠՠ̮ʠ ҠSԠŠԠ1 ҠԠ٠ŠϠϮʠϠ ̮̠̮ʠԮʠt|x ````l8|x0x0x| x0`0````0``0``v000xx x000000xx0x0xx0000 0``0 0x`0x |||| ||x|8l````|| x````8p`````lxx|| ` 8 x8x x<`x 0```xxxx| ```0``0`00`x000||0xxx||````` xxxxlUSJUSCNNOCNGCVSHSCECEPAUSHOOUNHOOSPACCWININkdkkkkkkkkkk#m-gxmmm*lmm5n`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx0p0000xx 80,Ɉd`ɿɯ,p 詍0SɍpJ,p ,p0p@p) zp@p9p,p0 ,p0LoLo pLo ` ֩PyQ AL zppp`rpqp Rpqprp` ~L\pH)hJJJp` ` @BODFAFPARSNOJn Rp nco n Rp-cococo \pLnbodobo^` , g 掍p ,`o spp) p pp)p ߅ l eo ) L{?p,p0- HHHp hhh ɛn?p,?p?pPLAp?p,p  Fi`+ FiR("  Fi5880`L ppp`oppp ( spL3o {$0$ 掎pnp ,L o {$0LoN`o doLnbo nH-?npLmPݩ $mhhhhhhhhh,mp` ֩PyQ ALŠҠ僁zi{imiʈ}i~i &',|iq&i,$20Li N8`-g `.-g`mm ` ң Σ @)`,` j ެLj,H%l  (l  h,,(l,`L, HHHHHHHHH k m jmNO,ɍɠ ɛ8nm,3f̙jj ߅$0jj  c`Lvjj j` Fizi{i|i FimHihʍ}i~ii LiL H g Rh PQ`L   )?` `zi{i lgi`ji}i~i lgiZjiíiB|i vg&'i jQ&-iQ&&ȭíi j& jQ&-iQ&&|i|ii`i-ii|i vg&'i jQ&-iQ&&|i|ii`*U U*ժ j')JMj)i Q&,iP 0=j`j`J&)` `L<*>%>>*@%@@ 9E@L`ɪɭ`8` H` < mÒ̒Ւ F O X %ɩ` Z ZL{< ЬȽ` <= , X,lӠӠŠҍԠŠŠԠŠ͠ˍĠӠή`έ  ;$8` 8L8ɪɖ8*9-99*<%<D>ʱD>` L(`GG݌$8`cd a݅`pcd,p8`dd<=10<a {8 1᩸` ,Q,R,T X+JJJJ % "\  L+ɐxy+L_ɯL )8ɀ   Lޤȱ 0:,јe湥 GiHi , ,`xyL<=<ȥ?< <<= H <=#I<#<##`"q" ""ȱ h!"8ȱ ">? "6p"5#>6#? "!p ""<"=`""8쭇"`+#*#)#@A %#  # `@ i @ ȱ ;#`,"`, ,`<=ʱD>` <=5#?6# "!)">? "PLj"" 8` "L L L x@8MɭɊ=Le 2 `,0 (!U XT`I`I0, `n! J! { ^_ ( { R !,`L8n! <!=!< =Ѝ ,   GEMENT"# STANDARD YES-NO INPUT9(1);:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020 50#(A);CA$;$#K:Q$:CTCTL*#A0uSPACE BAR ROUTINER:u:SPACE::fyENDING ROUTINE"yWIND:CL$:10:"Do you want to try again? ";,y360006yZ$"Y"Ĭ@yWIND:CL$:CO,0,89:"Getting the Management Options...":SET,1:RNH,"MANAS$,K1)#n#R$"":LJR$(S$,LJ)5x#S$L$(X)R$G#LKLJ:9110N#JU#K#XQX:YQY:CO,X,Y:CA$;:0:50,Y1279,Y1:CEL:L(S$):K1L#A((S$,K,1)):PPCTK,A:A32AA64::GCP,X,Y:BOX,X1,Y1,X6,Y7,3:(A);CA$;::CO,X9,Y:91XXP(L):BOX,X1,Y1,X9,Y7,0:CEL:L18010ES$(S$,L1):8020X(#SCAN FOR CHR$n2#L(S$):L79120<#K1L6:(S$,K,5)"CHR$("9110F#JK6L:(S$,J,1)")"9100P#X$(S$,K5,JK5):X((X$))Z#X0X127X0d#L$"":K1L$(S$):CO,X,Y:INP,(0,I$,0),C$:A(C$):A13Ĺ16368,0:J^(A8L0)8010XhA88080lrA34L198020|A32AA64::BOX,X1,Y1,X6,Y7,3:(A);CA$;::P(L1)9:XX9:S$S$C$:8020(A);CA$;:GCP,ZX,ZY:P(L1)ZXX:XZX:S$S$C$:8020.~JUiCwx{JUNGKGsBs600p00CBnJ*NGKGsBcB6cCtwutJUNGKGsBsB63CCnJ*N[sBc600`CFJUOZs``wBfgC{9{{ J*^ MBlLC8W0W8JU^BgBlgClk {|J*^BC AC~~|~CFJ*NG_BsdGs00{C3ACFJUNG\By9B9dGsvC6ACFJ*NG_`@O@@`dGsBcB6f`CBwJUNGKGsBBCFB;FJ*NGKGsB`B0`Ca]a}}JUNGKGsBgB0gC.5B;J*NGKGsBsB63FACFJUNGKGOD@CAAGA <B~BBBYCFJUNG_CyCbGQF@`Dp`@HB@@_BY_CFJ*NG_G|~bGOG|L|HBBAABBGlo`OCFJ*NGKGO~x`FBAQB oBlOCFJUNG\ gggdGP?D@B`ABpAB8ABAABBLBlOCFJ*NG\ xps?8psspxdGOaHBAQBBOB`OCFJUNG]AyA`ByCdGQ|0TAA ~~B@@oBLOCFJ*NG_Ds??C*B*B***B*AB*C*BBB3CFJ*NGKGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGKGN~C*B*B* FBC BBB CFJ*NGKGOCUBWBB@B`@CFJUNGKGOCC@B`ABpAB8A     ^B0xXCFJ*^037B6ACFJU^BC3ACFJ*XA_BBC3ACFJUN[]??B/++*C*BB3?>CFJ*NGKGO?_WUUUBUABUCUBB>0CFJUNGTvGJ((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                   t BC#< |t=>0)?><@=0)?><@=@ |t>0BDHt&cu'Ch&BDBBC`((((((((((((((((      @{ @R Wװ"egiehj *,0 @l` I @!8n ݥ<ޥ=ަ @e I׭ޅ<ޅ=<~ޥ=Ѝސ,, ` @{ @媩<Ҥ^_ а @ޥ v` I @ (L` I @ @ ݅݅ @ @ @{`L @ % {, @{ @^ݥ_ X Ѱ` Ѱ`<ҍ=ҭ݅݅݅݅ݭ`:ҍ @{ @Rݍ @ @{ @Rݍ , @ @{ @Rݍ`n `n @{ @^_ ( @܍` @{ @ܥ^ܥ_ @ ֍܌ܠ ܈ @l @ޭ܅^܅_ թ հ rL_ܬܩLv܌܎ܭ ܰI ֍܌ܮ ʽ)ܭi܅>i܅?ܑ>ȭܑ>ȭܑ>` I @ {, @߅ݩ X Ѱ&,<=8m<ȥ?< <H<= H <= I<ِ<ٮ`բ ڠL2ڭEڮFڬG ڭHڮIڬJL2ڍ mڍڪ څ>? ذ4p >? ذ!p Aح?؅<@؅=,`Jح?8@`? v@؎ :Њp إD/٥E0٥B3مC4م@5مA6م>7م?8م-٭,٭+٩@A 'ّ  ٠ `@ i @ ȱ =٢`,` @QP (` I ` Iޥgh`ȱȘeiȑ Uت%)Aإ>? ذPL حA; 8`? @ g?إh@ؠȱ> Bرo? @?ȱ v@ؠ8ȱ Bر>?_֠ ȱ쨊 =ٰ$8` IȌ^֘i^+ɠ~ʱ`^ 8^֪$8`@ @ߩ ie`֌N8o֍֥p֍֭mn, I8. @L֭֬օop` @g @R  @uۮo۬p @Wvۮo۬p @Wvۮm۬n @W`uۮm۬nۅ @Wuۭoۮp @:vۭoۮp @:vۭmۮn @:uۭmۮn @:`uvmnۮopo`~ֈ0 ^ `ֈ :а>? =ٰ ` Iԭ_i#_ !֐ Ր_ieHeh`셦Ӡ< ЬȽ` <=%>>*@%@@ 3E@L`ɪɭ`8`>?4> ө<=8> <=Ή<=`ԩ А` G }а<ԭ mԨ ㍽ҹ ҹҹ@ӹIӹ R Ґ%ɩ` Z ZL`9ҭL҅M҅L5Ҡ :ґ9  D`ҎҩҢ .Ґ mҐ덅ҘmҐҬ``҈Χ Ұ 5$8` 8L2ӈɪɖ8*3ӽ-3Ӎ3ӽ*<%<<эюѢ( :АLѥ>Jҥ?Kҥ@HҥAIҥBFҥCGҥDBҍLҥECҍMҭхх̖ѐ D>ҭ?ҭ@ҩ:ҩ;Ү Ѱ BD` 8`@ҍAҎ:Ң;ҥ>ҥ?ҥBҥCҮ `:ҩ;Ң ` ѭL҅M҅LҍMҭD0 ԭUEڭ_FڭjGڭSHڭXIڭ]Jڭ[߭P]߭7\`<=ʱD>` Lн`нδ݌$8`ЩЍЭ и`pЩЍ,p8`dd$8       ! ` AS(5)Ĺ975,((975)):CL$:11:"The sound is now turned "SB$(((975)))"."CC$:30000:2000q AS(6)5000RUN THE PROGRAM902,0:16384A0ANPF1$MN$(A):F2$CN$(A)CL$:HSP:VSP:CO,0,89:"Getting "F1$"...":RNH,F2$ CL$:VSP,8:CO,0,75:"There are no management options available.":30000:2000 AS(2)A1F1$"the management options":F2$"MANAGEMENT" AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT" AS(4)F1$"Diskette Support":F2$"DISKETTE SUPPORT": PRINT N". Turn sound ";:SB$(0) = "on":SB$(1) = "off": PRINT SB$( PEEK (975))r HNN1:4(N9):S(6)N:N". End" RESPOND TO USER'S CHOICE :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which number? ";:9000:WIND AS(1)İ7000:2000N MOA1ĺN = N + 1: HTAB 4 - (N > 9):S(2) = N: PRINT N". Program Manager":MO = 1 *N = N + 1: HTAB 4 - (N > 9):S(3) = N: PRINT N". Printer Support" 4N = N + 1: HTAB 4 - (N > 9):S(4) = N: PRINT N". Diskette Support"N >N = N + 1: HTAB 4 - (N > 9):S(5) = N$:HSP:VSP:WINDE CL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$ CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s"; ":"::L1NP:4(L9):L". "MN$(L):: "Options:": NNP1:4(N9):S(1)N:N". General Information"I "H jMN$(NP),CN$(NP),DS$(NP,DP): MENU NAME, CATALOG NAME, DESCRIPTION} tL1NP:MN$(L),CN$(L):DPāL11DP:DS$(L,L1): y ~DATA STATEMENTS ARE AT 50000 DISPLAY MENU (975)255Č24768:975,1 230,64:24576:DFT,1,15128:AFT,1:CO0:FORMATTING PARAMETERS3 P(S)(S)(S1)256N RFL,"TITLE.PFT"15128f LPROGRAMMER OPTIONS VNP1:DP0:MO1: # OF PROGRAMS, # OF PARTS PER DESCRIPTION, BOOLEAN FOR HIDDEN MANAGEMENT OPTIONS `TITLE$"Study Guide":PART2$"":VE$"Version 1.5 STUDY GUIDE%PROGRAM: MENUBPROGRAMMER: P. BOUCHARD`(COPYRIGHT (C) MECC, 19842LAST UPDATE: 86/02/12 SPMZ32000INITIALIZATION15128CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15) MT13:ML37:SP       ފ v`PINIPOFPACFEEEDGCLOSCNCPRSCREESPTFCREEWRITRFRNOPESESNOPRSPRPTSREEGPTSWRITINywyyJ{ۉۥ۫ "6ރ޴0g]L@IݍAuBڍJuKxL p y `y ` RPyXLHNO)%ny,yp h" ֩PyQ ALyh) `$8L"w mͳ `x6xLxxx6H7Hw6w7,!w0 xɍ L~x$Hw8$ w$ xx  @ x$ whix$w6wh7h6xxx`ɍɌ  wͳ w` x`Hxx)hHxɍ xh`$0ww @ @c` IvnxSx Fvx$H)xh0,x0RLwww6x7  wwww!w,x5S,xNx x9xI7xwxwx߭ xɍwxw!w`xȱ"v,Cv0mDvDvEvH,( ,Cv0hEvHDvHH,,(`B v?F<?F<>ݥv >ݩv?Ȑ۩`?)8鍸ζ`H88HHа ,,i,,`?<>?>,>$f<<`ww @߅uL5uuu5u,, z,`ɯLu y )8ɀ   Lޤȱ 0:,јe湥 mziunzi vu , ,`uuL8,nCvhhDvhEv!v     program DESIGNER."LS}:"Please report this error to MECC.":30000:31000nS耲FORCE DISK SWITCH AND VERIFYSZZZU:ZU1:SET,ZD1:ZS704:ZC9533ZD:ZP0:Z0:ZT$D1$:Z$"program":ZDZT$D2$:Z$"data"VTZZ1:ZF(Z1(QC1ZDQD)):ZFė:12:"Pleaĺ"This data diskette is full.":30000:31000sRd}"DOS error number "ZE" at line "ZN" in program DESIGNER.":32150Rn} PROCESS BASIC ERRORRx}ZL53856ZER}ZE25531000S}:ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN" in ENTRY POINTQ2}:12bQ<}ZE2ZE3ZE7ĺ"Please check your diskette parameters.":30000:31000QF}ZE4ĺ"Please remove the write-protect sticker from your diskette.":30000:31000QP}ZE8ĺ"Disk bad - drive or format error.":30000:31000-RZ}ZE9viewer","REVIEWER"CError.";:32100G(}ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:30000:2}:"Error #"ZE" in line #"ZN" in Menu Program. Please report this error to MECC.":30000:d}" Please check your disk drive and diskette.":30000:PòUSER DATA AREAZÃ"ReZ128:16368,0:)0uSPACE BAR ROUTINE::u:SPACE::OyPROCESS ESC-ESCY"y2000_,yu}ERROR PROCESSING }ZE(222):ZN(218)(219)256:ZE255Ĭ}CO$CL$:WIND:HSP:VSP:CO,0,80:ZE6ĺ"Error: File not found.";:32100}ZE8ĺ"I/O $:CO,ZX,ZY:9100:AZ:A190707<#A49A(48N)9010JF#(A);DL$;CA$;_P#9100:Z139070Z#Z8Z127įCO,ZX,ZY:CEL:9010d#9040n#AA48:A1A1x#XX(XX):SEED RANDOM # GENERATOR#:#ZL11:XX(1):Z(16384):ZL(Z127)::Z"You may want to quit in the middle of a program. If so, press the Escape (Esc) Key twice whenever the computer is waiting for a response."WIND:VSP:30000:(#INPUT ROUTINE-#CA$;:16368,0:GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127)2#DLuiries to:"::" "CC$;:GCP,ZX,ZYH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55126":"(612) 481-3527"R30000:CL$:WINDESC ESC SCREENVSP,4:CL$:::"Use of Esc Key"CC$::1DP:DS$(L,L1);:L1:.WIND:::L:30000E SUPPORT BOOK INFO*CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP49:" Title: ";CA$;:GCP,ZX,ZY:TI$:PA$""įCO,ZX:PA$&>12:" Direct inqessed through management options. See the support manual for more information.":30000:CO,X1,Y1:CEW}SHOW DESCRIPTIONSDL7200L1NP:GCP,ZX,ZY:ZY150ZYY1İ30000::CO,X1,Y1:CEWMN$(L)::" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191:L1:CEW::"Examiner enables teachers to print the sets as worksheets or tests.":::"NOTE: The Designer and Examiner programs can only be accessed through management options.";f" Two other programs, Diskette Support and Printer Support, are also acc main programs: Designer, Reviewer, and Examiner."::"Designer enables teachers to create, edit, and store sets of ";"questions and answers on a data diskette."::"Reviewer enables students to review the sets at the computer.":30000CO,X1,Y1XL,Y1DYLX1DXL,Y1L:1:L02:9,6L432L,6L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:XGENERAL INFORMATIONbCL$TI$CC$:PA$""ĺPA$CC$lVE$CC$:::GCP,X1,Y1wv:"Study Guide consists of three9,6269,33:267,159267,185:269,158269,185^6:X10:Y10:X2278:Y2191:DX18:DY12:L02X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DEND OPTION::CL$:11:"Insert another diskette."CC$J30000:CL$nCS(P(P(999))1)16: SLOT #CS1CS7CS6CSpDRAW BORDERz4:21,021,191,1:9,69,33:11,611,32:9,1589,185:11,15911,185:267,6267,32:26ՖխժժժժխՖխժCBCPRDDFMFILNOFILRFRNSNOPRSPRSEוݕt"[mU_jSX]P7 `i @ ȱ {`,` {ݩD ^ D`RDSED`7PL7P(L ʊLL( &L`L 䎱 掲`ժL ȱ8쭓8ȱ>? :p"Z>[? %p g^h_^`ȱ^Șe^^_iȑ^^_PON@A J  : `@ PQ / ,L Ll`Q ͐eDRESBVCW@XAY>Z?[  ) e,L׭XLXLX $)Z>[? p G 8`Lg8hegiȱehj8ȱL( 掲 ` `?> `=<8?. e<&8>!>> g R>P>Q /?=<`L #H h`STɩST` ST` L ͐\DRESBVCW@XAY>Z?[  # { R`բ ]Lp ]Lp[ m[[\\ ][ \ \LpUz_j`S縎X]` ߅$0  c`Lv { (^_ <= ޤ<=LL _L  K, `  Q, <ȥ?< <H<= H <= I<<tiple-choice","Matching","Completion","True-False"YÃ"Type the question stem, then press RETURN. ","","Type the question, then press RETURN. ","Type the statement, then press RETURN."Lreate/Edit","Create and edit a new set","Edit an existing set","Return to Designer menu"XnÃ"6","Add a question","Change a question","Delete a question","Examine a list of questions","Change management features","Return to Create/Edit menu"2YxÃ"4","MulATIONDWz2:CE:12:"Please prepare your printer.":30000:PINIT:SWPòDATA AREAWZÃ4,"5Designer","Create/Edit a set of questions","Delete a set of questions","See student records","See a list of set names","Return to Management Options menu"XXdÃ"3CS"((953))",D"((954))",V"((955))aV`D2$",S"((956))",D"((957))",V"((958)):}VGET DISK NAME AND TYPEVZN$"":Z1Vā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220V΁ZT((ZS)0):ZM(ZS35)VWpSTANDARD PRINTER ACTIV$:33200'U(ZDZT)(ZN$QN$)33020(Study Guide,SL:957,(DRDC)1:958,0:DC3āZ02:956Z,(LL37Z):V 975,255:RNH,"MENU": (#:11:"THIS PRODUCT REQUIRES AT LEAST 64K OF RAM TO OPERATE."::"THIS APPLE HAS ONLY "(941)"K OF RAM.":16368,0:16384,128:16368,0 }:SL 88192,"LOGO":16304,0:16297,0:16299,0:16302,0:8192,"STUDYUTIL.OBJ":8192,"STUDYUTIL.OVL":RFL,"PPRINT.OBJ":RFL,"PRINTER COMMANDS.BIN"P(948) (941)64āZ14000::9000; LL704:RFL,"MECC$$DISK"LL:DC(LL36):953,SL:954,DR:955,VO:956 STUDY GUIDE&PROGRAM: HELLO@COPYRIGHT MECC, 1984_(LAST UPDATE: 85/07/18 SPMk32000:(4)"MAXFILES1":::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:DR(L2):VO(L14):(4)"BRUNHELLO.OBJ":(941)489000 230,64:    :ZZ1:33220*΁ZT((ZS)0):ZM(ZS35)0C"((955))B`D2$",S"((956))",D"((957))",V"((958)):UGET DISK NAMEdZN$"":Z1ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220΁ZT((ZS)0):ZM(ZS35)1D NAMEZN$"":Z1 ā(ZSZ)0Z36ZN$ZN$((ZSZ))D:ZW33099;.ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"8ZE4įWIND:CL$:CO,0,89:"Please remove the write-protect tab from your "Z$" diskette.":ZP1:SPACE::33040KZW0:ZUZZ:LGET DRIVE STRINGS VD1$",S"((953))",D"((954))",V3ĺ"drive "1(ZD(QC2))".":SPACE:}ZFQC3ĺ"the drive located at:":" Slot: "(ZC):" Drive: "(ZC1):SPACE:CPRO,ZR:ZRįCPRO,ZRSPRO,ZRZR:ZE0:ZEĺD$"BLOAD MECC$$DISK,A"ZS;ZT$:33200(ZDZT)(ZN$QN$)33020 $QDZ30000:31000/耲FORCE DISK SWITCH AND VERIFYZZZU:ZU1:SET,ZD1:ZS704:ZC9533ZD:ZP0:Z0:ZT$D1$:Z$"program":ZDZT$D2$:Z$"data"$ZZ1:ZF(Z1(QC1ZDQD)):ZFįWIND:CL$:CO,0,89:"Please insert your "Z$" diskette for "QN$" in ";:QCwrite protect sticker from your diskette.":32160|P}ZE8ĺ"I/O error. Please check your disk drive and diskette.":32160n} BASIC ERRORx}(12):CO,0,89}"Error "ZE" at line "ZN" in MANAGEMENT."}:"Please report this error to MECC." }:(901)Ĭ,y2000,} ERROR PROCESSING^ }ZE(222):ZN(218)(219)256:216,0:32000}}WIND:VSP,1:ZE25531000}(15):ZE1532110}ZUĦ: ZU=USER PROCESSING FLAG(} REENTRY POINT2}(12):CO,0,891F}ZE4ĺ"Please remove the ;:GCP,ZX,ZYvZL((ZT))` vCO,ZX,ZY:CEL:INP,(ZL,"-09",(ZC)),ZN$:ZN(ZN$):ZCZN$""ı*vZNZBZNZTįCO,0,181:ZF1:"Enter a number between "ZB" and "ZT"."(3):302404vZFįCO,0,181:CEW:CO,ZX,ZY:>vyNEW ENDING ROUTINE "y54915CE BAR ROUTINE (HI-RES)( :u:SPACE::C uSTANDARD YES-NO INPUTX uCA$;:GCP,ZX,ZY uCO,ZX,ZY:CEL:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"30120 u uRANGED NUMERIC INPUT v ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)  v(1)ing Designer...":RNH,"DESIGNER"i *CL$:CO,0,89:"Getting Diskette Support...":RNH,"DISKETTE SUPPORT" /CL$:CO,0,89:"Getting Printer Support...":RNH,"PRINTER SUPPORT" RDEFINE WINDOW RCA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191: 0uSTANDARD SPA89:"Getting the menu...":RNH,"MENU"R RFL,"HELLO.OBJ":ZN2090,2080,2075,2095 UNHOOK:D$"MAXFILES1":8192,"DESIGNUTIL.OBJ":::FILT:12:"Getting Examiner...":RNH,"EXAMINER" UNHOOK:D$"MAXFILES1":8192,"DESIGNUTIL.OBJ":FILT:::12:"Gett$:::"You may use:":WIND,20,0,279,191::"1. Diskette Support"::"2. Designer" :"3. Examiner"::"4. Printer Support":WIND::" or" :CO,20:"5. Return to main menu"::% "Which number? ";:ZC0:ZB1:ZT5:30200:ZNZTĺCL$:CO,0,(14):CO$(15)q FI$(1)"DESIGNER":FI$(2)"EXAMINER":FI$(3)"DISKETTE SUPPORT":FI$(4)"PRINTER SUPPORT":901,1 33100:ZS704:SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$:QC(ZC36):QP$"Management" MANAGEMENTR CL$"Management Options Menu"CC  PROGRAM:MANAGEMENT8PROGRAMMER:S. P. MCCARRONRCOPYRIGHT:MECC, 1984p(LAST UPDATE:85/09/05 SPMMAIN PROGRAM901,0:902,0:3200016384:(975)255Ĺ975,1:RNH,"PPRINT.OBJ" HSP,1:CA$(1):CC$(3):D$(4):CL$(12):CN$     600:WPĺCL$:CO,0,89:"You may now replace your write-protect tab.":30000Rs']*HELP2*CL$"Change Disk Drive Setup Help"CC$::*"This menu asks how many disk drives you are using. The current selection is displayed at the top of the scree"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help.":CO,ZX,ZYwB'INP,(1,"-14?",1),Z$:Z$"?"İ10900:10010G'(Z$)410099L'SC(Z$):SC3İ11000Q'S36,SC:T0:ZD1:WP1:34000V'D$"BSAVE MECC$$DISK,A"S",L$28"D1$Lo'12000:35000:ake significant changes to it.",30000:>'CHANGE SETUP'CL$"Change disk drive setup"CC$:200::"You may:"::" 1. Select one disk drive":" 2. Select two disk drives":" 3. Select special disk drive setup"'" 4. Make no change"H$':."QU$" This will prepare a diskette to hold "T$(U1)" created while using "N$".":"Whenever you need to make copies of a "T$(U1)" diskette, use "QU$"Copy a "T$(U1)" diskette."QU$" You should make backup copies of a "T$(U1)" diskette every time you mChange the disk drive setup."QU$" ";"The rest of "N$" will use this information to make multiple disk operations as easy as possible for you.":30000RCO,0,27:CEW:CRĺ"If you need a new "T$(U1)" diskette, select "QU$"Create a "T$(U1)" diskettend change the disk drive setup, and to ";:CRĺ"create and ";_{"copy "T$(U1)" diskettes.":%"The current disk drive setup is displayed at the top of the "QU$"Diskette Support"QU$" menu screen. If that setup is not what you are using, select "QU$"180:"Press ? for help.":CO,ZX,ZYV.INP,(1,"-1"(4(CR))"?",1),Z$:Z$"?"İ19008Z$"?"Ĵ(Z$)((CR)((Z$)1))10000,15000,20000,31030B1000lHELP1=vCL$"Diskette Support Help"CC$:::QU$"Diskette Support"QU$" allows you to view a. Change the disk drive setup":CRĺ" 2. Create a "T$(U1)" diskette"%" "2CR". Copy a "T$(U1)" diskette":" "3CR". "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"Return to the Management Options menu":WIND"):"Which number? "CA$;:GCP,ZX,ZY:CO,0,S(953):PD(954):PV(955):DS(956):DD(957):DV(958)@VWRITE/READ ERRORZE8ė:12:"This "T$(T)" diskette is damaged.":30500:EF1:IS34:32040MAIN PROGRAMWIND:CL$"Diskette Support"CC$:200F$:"You may:"::" 1:"Unable to create a "T$(T1)" diskette from this diskette. Be sure that your disk drive door is shut.":30000: ZE32040  RESTORE DRIVE SETTINGS 953,PS:954,PD:955,PV:956,DS:957,DD:958,DV:35000 W XGET DRIVE SETTINGS:bPCEL:  INIT DISKG ZU1:ZE0:ZEĺD$"BSAVE JUNK,A0,L1"DT$ ZE4įCO,0,162:CEW:"Please remove the write-protect tab from this diskette.":30000:CO,0,162:CEW:410 ZE0:ZEĺD$"INITHELLO"DT$:D$"DELETEHELLO"q ZU0:ZE8įCO,0,1401:"a special disk drive setup ";:"(data diskette in slot "(S37)", drive "(S38)", volume "(S39)")":WINDu + ,SLOT,DRIVE,VOL INPUT 6L$CA$;:GCP,ZX,ZY:CO,115,ZY:"["DF$"]":CO,ZX,ZY:INP,(M,I$,0),DL$:DL$""DL$DF$ @CO,ZX,ZY:DL$CA$;:nt":T$(4)"results":T$(5)"word lists"7 901,1:1000O SHOW CURRENT SETUP CO,0,27:"The current setup selection is:":(S36)1220,230::" one disk drive":: :" two disk drives"::o " "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,19D UTILPACK< nD$(4):CA$(1):CL$(12):CC$(3):QU$(34)i x35000::24576:D$"BRUNDISKUTIL.OBJ"D1$ S16064:S016000:RFL,"MECC$$DISK"S K64((941)63):ZSS:38000:N$ZN$:600& U11:T$(0)"program":T$(1)"data":T$(2)"backup":T$(3)"stude/ DISKETTE SUPPORT5PROGRAMMER: A HOLLENBECKRCOPYRIGHT (C) MECC 1984q(LAST UPDATE: 85/07/23 SPMd901,0:32000f:(4)"MAXFILES1":16000:230,64iCR1:Use create option? kPN$"Study Guide":UP$"MWSUTIL.OBJ":PRODUCT NAME AN                     x e statement is true or false. You may type remedial feedback for true/false questions. This feedback will be displayed with the incorrect answer. ":12000:ZNgn the feedback that you write to accomodate the intent of your question (spelling, accuracy, recall). See the support manual for more information. You have up to 10 lines to enter your true/false statement. The program will then ask if thsize an accurate and correctly spelled answer, type only one answer. If you are creating sets with an Apple //e or //c Computer and your students will be using an Apple ][ Computer, type answers in upper case letters only. You can desicceptable answers. The student's answer on the REVIEWER program must exactly match one of the answers you include. (including spaces and upper and lower case letters on an Apple //e or //c.) If you are designing a question to emphars correctly. You may type up to 10 lines for the question. Use a dashed line to indicatethe location of the completion item. If you are focusing on recall of a term or concept (without concern for spelling), you may include up to 5 aalf of the pair and press RETURN. For example: 1[first half ] [second half ] The next matching pair will then appear. When you are completely finished, press an extra RETURN. Students must match all paik for each question. Since each question has only one feedback statement that will be displayed with any incorrect response, you will want to focus on reinforcing the correct response. You may type up to 5 pairs of matching items. Type each he question, type the stem, then press RETURN. The letterA for the first answer choice will appear. Press RETURN after you type each answer. Press an extra RETURN whenyou are finished. You have the option to type up to 3 lines of remedial feedbacX   Each multiple choice item consists of the stem, which represents the problem, and the list of possible answers or options. You have up to 7 lines to typethe stem. You may include up to 5 answer choices. For each multiple choic     @ժՖՖխժժժժխՖխժխՖխժ @ժՖՖխժժժժխՖխժ0003f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6!! ! ! ! LL<,-ͩI 12 ʽ)i>i?>ȭ1>ȭ2>`LSTəST` ST` UL  H, ߅ %,, N}, ,   {`L  ' H,PyQ AL!h) ` }`L {   <`L 1L:?>,>$f<<`_` ߅$0_`  c`Lvn3S/ 4$H)5h0,60RL=abU67  bacce,35S,3N6 798 , <= <ȭ<ȭ<ȭ<ȭ<><ȥ?< <H<= H <= I<<`բ 鄠L 鄭L m焍焪脽 鄮焽脽LUz_j` =,` 8 ` ؁ {p DEBC@A>?@A 񃑝  რ `@ i @ ȱ `,`D D`DED``ȱȘeiȑ %) >? PLꂭ ; 8` g h ȱ> o  ȱ ؁ 8ȱ >? 4p >? !p < 8$8`gA >E?Ȑ۩`?)8鍸ζ`H88HH60 ^  {>?  `Lԭi# ـ ieHeh`>? ȱ쨊 $8`LȌi+ɠ6ʱ`8`>?4> 0<=8> <=0<=` \|`  $|< md~m~v~~~~ .~%ɩ` Z ZLM< ЬȽ` <=%>>*@%@@ ~E@LS~`ɪɭ D}}}}}>} } B}` 8`}}}}}}}}>} }`}} }` y}}}}}}`}}}L} }}  }`*~+%DHDDhE8 `D>ʱD>` L<|`[|[|݌$8`w||x| u|ݙ|`pw||x|,|p8`dd$8;}<}=}(>} {L:}>}?}@}A}B}C}D}}E}};}<}=}{L+{x{y{+{LgɯL{ƅ )8ɀ   Lޤȱ 0:,јe湥 3i{4i{ , ,`x{y{L, ֩PyQ AL<=