' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`(L1)I$:1310$ $ 28301$ II$(27)4230\$ W$:L1110:(34);L$(L1);(34)::D$p$ P2L10:2700y$" L20$, ENTER POSSIBLE CHOICE SECTION IF FORMAT 1. $6 T23030$@ :1910:1310$J 6:1:"POSSIBLE CHOICES:":%T L114:4)ED WHEN USED HERE.# PPF1'# PP11# 1310U# 6:1:"INSTRUCTION PAGE #";P:# LL25: : SET LINE LENGTH FOR INSTRUCTION PAGES.# L1110:4);(91);30);"]":# L1110:L$(L1)"":# L1110# L17:5:1010# (I$)02820 $ L$5"; T$T$RN$@"< :"LESSON NAME - ";F$:"LESSON FORMAT - ";TP"F W$:T$:D$v"P ENTER INSTRUCTION SECTIONS. "Z PF1: : SET STARTING PAGE TO 1."d L0: : SET LINE COUNTER TO ZERO."n 34,3::1910#x : DOUBLE NESTED FOR/NEXT LOOPS BOMBSTIONS")!4 "PRESENTED IN RANDOM ORDER?"e!5 "PRESS FOR YES, FOR NO: ";:16368,0:RN$:RN$!6 RN$"Y"RN$"N"2611!7 22:958:"ARE YOU SURE?"!8 "PRESS FOR YES, FOR NO: ";:16368,0:GT$:GT$!9 GT$"N"2611": GT$"Y"261"* "PROTECTED AND RERUN THIS PROGRAM."0 A (222)5ĦJ 944s LF0: : SET ALL OPTIONS AVAILABLE.  16:1:868  "LESSON FORMAT (1 OR 2) ";:16368,0:T$:T$ ( T$"1"T$"2"2580 2 T(T$)!3 18:958:"DO YOU WISH THE QUE7:"THAT LESSON IS NOT A"E "MICRO QUEST GRAPHICS VERSION LESSON."O 1660Y 2200h D$:216,0| (222)42550 17:"YOUR DISKETTE IS WRITE PROTECTED." :"IF YOU WANT TO CREATE A NEW LESSON," "INSERT A DISKETTE THAT IS NOT WRITEN FILE, R$=READ FILE, W$=WRITE FILE, AND P$=POSITION FILE.V8 O$C$D$"OPEN MIC."F$rB R$C$D$"READ MIC."F$L W$C$D$"WRITE MIC."F$V P$C$D$"POSITION MIC."F$", R"` 2480j O$:R$:T$:T(T$)t D$:216,0~ T1T24010 1N A LESSON NAME IS 20."!24600F1(F$)V(F$,F,1)" "(F$,F,1)"Z"2300b:234017:"ILLEGAL CHARACTERS IN LESSON NAME." :"CONTROL CHARACTERS ARE NOT ALLOWED" "IN A LESSON NAME." 2460$ 958:. : SET UP O$=OPEITALS QUIZ"(7);:2160D ENTER FILE NAME AND VALIDATE. s14:1:958:16368,0:"LESSON NAME: ";F$(F$)02200(F$)20227017:"YOUR LESSON NAME IS TOO LONG.":"THE MAXIMUM NUMBER OF CHARACTERS""THAT MAY BE I" PRESS SPACE BAR TO CONTINUE: ";Yv34,23:16368,0:GT$:16368,0:GT$" "2166dw2178xC$;D$;"OPEN MIC.CAPITALS QUIZ"zC$;D$;"READ MIC.CAPITALS QUIZ"|T$~CL$216,0:34,0:2200 216,0:(222)5ĺC$;D$;"DELETE MIC.CAPUSED"-R" TO END THIS PROGRAM. IF A"Z\" CONTROL-C IS USED, THE CONTENTS"f" OF YOUR LESSON MAY BE LOST."p9:1:958:"INSERT THE STUDENT PRESENTATION"r"DISKETTE ON WHICH THE LESSON"t"IS/WILL BE SAVED."&u24:1:(16128)24(16128)8S(1)1)LP0AS(1)0S(2)0LP1g DISPLAY HEADING & MESSAGES. q ::*" MICRO QUEST GRAPHICS "4" LESSON BUILDER FOR MICRO QUEST ">H:"NOTE: A CONTROL-C SHOULD NEVER BE OR ERROR HANDLING ROUTINE.h : THIS ROUTINE, WHEN CALLED, CLEARS UP PROBLEMS WITH ONERR CONDITIONS. 944,104:945,168:946,104:947,166:948,223:949,154:950,72:951,152:952,72:953,96S(1)0:S(2)0(15872)44S(2)1 (16128)4458:"PRESS SPACE BAR TO RETURN"R"TO THE LINE NUMBER PROMPT: ";:16368,0:GT$o16368,0:GT$" "1970u BEGINNING OF PROGRAM - INITIALIZATION. C$(13):D$(4) : CL$=CLOSE ALL FILES.CL$C$D$"CLOSE" : POKES FN."3 24:" PRESS SPACE BAR TO CONTINUE: ";U 16368,0:GT$:GT$" "2960` :6:{'ER(222):ER610020''1:10:"BE SURE THE TEACHER UTILITIES DISK ":"IS PROPERLY INSERTED IN THE DISK DRIVE."::23:" PRESS SPACE BAR TO INUE: ";* 16368,0:GT$:GT$" "28204 2300kT ::10:1:"DO YOU WANT TO RUN ANOTHER DISKETTE?"^ "PRESS FOR YES, FOR NO: ";h 16368,0:GT$:GT$"N"ė::(4);"FP"r GT$"Y"2900| :10:"INSERT THE DISKETTE YOU WISH TO RU+4"TO THE END OF THE LESSON TO FIX THE"94"ERROR."f4:"USE THE 'LIST' AND 'CHANGE' OPTIONS"4"TO EXAMINE AND CORRECT THESE LINES."416604:4p CHANGE OPTION. 4z13604:234"-PRESS ONLY TO QUIT"5" AND 1))(LQ)(54(T2))%3LQ03030;3LQ(54(T2))LQ[3W$:L11LQ:(34);(34):p3D$:LLL1:5330z330303 : PRINT MESSAGE RE ERRORS ON FILE.312:"THERE WAS AN ERROR ON YOUR LESSON."4::"A NUMBER OF BLANK LINES WERE ADDED"D$:L10:5330"22L10PF2:267012<L195210S2FW$:L1L120:(34);(34):f2PD$:L20:5330u2ZL2028702d(T1L24)(T2L20)52502nW$:L1L124:(34);(34):2xD$:L24:53302LQ(L204(T1))(54(T2))3LQ(L204(T : FIND LAST LINE NUMBER.$15080,1R$@1I$:LL1:5070X1216,0:(222)5Ħa1944q1O$:P$;L1{134,31 : FIND PLACE TO ADD AND IF MISSING LINES, ADD NULL LINES.1 L026501L951701W$:L1L110:(34);(34): 2(ĺ"ADD":5010/0GT$"C"LF0ĺ"CHANGE":6010J0GT$"L"ĺ"LIST":7010\0GT$"N"2080x0GT$"P"ĺ"PRINT":80100GT$"S"ĉ::042500 ADD OPTION. 015:"PREPARING LESSON...PLEASE WAIT.":34,160L00O$:R$:T$:D$1 RITE PROTECT OR LOCKED FILE.7/| GET NEXT OPTION. @/CL$Q/34,3:35,24e/:"OPTION: ";t/LF14280/10:"ADD":10:"CHANGE"/10:"LIST":10:"NEW LESSON"/10:"PRINT":10:"STOP";/20:":";:16368,0:GT$ 0GT$"A"LF0(222)44150:.""YOUR DISKETTE IS WRITE PROTECTED."D.,4170V.6(222)10Ħt.@"YOUR LESSON IS LOCKED."}.J944.T:"YOU WILL BE UNABLE TO USE THE".^"'ADD' AND 'CHANGE' OPTIONS.".h1660/rLF1:: : SET TO LIMITED OPTIONS DUE TO W- ";F$:"LESSON FORMAT - ";T:34,3S- : CHECK FOR WRITE PROTECT OR LOCKED FILE.^-4100n-O$:R$:T$-O$:W$:T$:D$-CL$-216,0-LF0-4230- : ERROR HANDLING ROUTINE FOR WRITE PROTECT OR LOCKED FILE.-216,0:10:1.(L1)I$:1310, , 36001, II$(27)4230D,LL7L1:1310_,5:13((T2)6):1010{,(I$)0II$(27)4230,$L$(5((T2)4))I$,.W$:L115((T2)4):(34);L$(L1);(34)::D$,83210, DISPLAY HEADING. "-:"LESSON NAME TO ADVANCE"3+R " WITHIN THIS SECTION.";>+\ 35,20J+f L124]+p 5:L16:1010o+z (I$)03490+ L$(L1)I$:1310+ + 3510+ II$(27)4230+ LL4L1:1310+ T13600+ L158+ 5:L18:1010+ (I$)03580 , L$ RETURN TO THE OPTION LIST.";(* 35,20J* L115((T2)4):L$(L1)"":Z* 5:7:1010l* (I$)04230* L$(1)I$:1310** 35,24:21:1:958*4 "-PRESS ONLY TO IGNORE THIS"*> " SECTION AND RETURN TO THE OPTION LIST,"+H "-PRESS ONLY 6:1:"QUESTION:"6) L114:4);(91);25);"]":G) T3270,3250b) :"POSSIBLE CHOICES:") L114:4);(91);25);"]":) :"ANSWER:") 4);(91);25);"]") 35,24:21:1:958) "-PRESS ONLY TO IGNORE THIS"* " SECTION ANDE OF CHOICES";25);"]"D(N 4);(91);"4TH LINE OF CHOICES";25);"]"U(X :"ANSWER:"~(b 4);(91);"CORRECT ANSWER";25);"]"(l 1660(v ENTER QUESTION & ANSWER SECTIONS. ( LL20: : SET LINE LENGTH FOR QUESTION/ANSWER SECTIONS.( :1310)]"1' 4);(91);"3RD LINE OF QUESTION";25);"]"`' 4);(91);"4TH LINE OF QUESTION";25);"]"q' T3160,3110'& :"POSSIBLE CHOICES:"'0 4);(91);"1ST LINE OF CHOICES";25);"]"': 4);(91);"2ND LINE OF CHOICES";25);"]"(D 4);(91);"3RD LIN DISPLAY STRUCTURE FOR QUESTION & ANSWER SECTIONS. e& :"THE APPLE WILL GIVE YOU THESE PROMPTS"& "FOR THE QUESTION & ANSWER SECTIONS."& 7:"QUESTION:"& 4);(91);"1ST LINE OF QUESTION";25);"]"' 4);(91);"2ND LINE OF QUESTION";25);";(91);25);"]":)%^ L114:L$(L1)"":^%h LL20: : SET LINE LENGTH FOR POSSIBLE CHOICES.j%r L114}%| L17:5:1010% (I$)02990% L$(L1)I$:1310% % 3000% II$(27)4230% W$:L114:(34);L$(L1);(34)::D$% L246& "--------------------":&DD L1110bDN I$:L110(P1);".";4((L110(P1))(10)));:1610hDX pDb :~Dl P28230Dv L20D T28390D "POSSIBLE CHOICES:"D "-----------------":D L12124E I$:L1;".";4((L1)(10)));:161775CO$:R$:T$:T(T$)MC"LESSON NAME - ";F$:"LESSON FORMAT - ";TvCDA117((F$)5)((F$)5):"-";:C::C 8570C : DOUBLE NESTED FOR/NEXT LOOPS BOMBED WHEN USED HERE.C P0C& PP1C0 "INSTRUCTION PART #";P;":"D: $"L"ĺ"LOW":802,82:818,82:81105BGT$"H"8060AB"HIGH"JBPS1lB18:"PRESS ANY KEY WHEN YOU"B"ARE READY FOR THE OUTPUT: ";:16368,0:GT$B22:1:"THE LESSON IS NOW BEING PRINTED........"BS1ĺC$;D$;"PR#1":(9);"75N":8160CS <1> FOR SLOT 1, <2> FOR SLOT 2:";:16368,0:GT$NAXGT$"1"GT$"2"8022`AYGT$:S(GT$)nAZS18110Ah:DA768939:DE:DA,DE:Ar823,75A|15:1:958:"HIGH OR LOW SPEED?"A"PRESS FOR HIGH, FOR LOW:";:16368,0:GT$"BGT24:1:"PRESS SPACE BAR TO CONTINUE: ";J@M16368,0:GT$:GT$" "8013T@N4230c@OPS18120}@PS(1)0S(2)08022@QS1:S(2)1S2@R8026@T : POKE IN PRINTER ROUTINE.@V12:1:958:"WHERE SHOULD THE LESSON BE PRINTED?"2AW"PRES216,0:D$:(222)5(222)2Ħ+?944D?:"END OF LISTING."N? 1970Z?34,3:d?7010|?@ PRINT OPTION. ?JLP08015?K15:958:"YOU WILL BE UNABLE TO USE THE PRINT":"OPTION. THERE IS NO PRINTER ATTACHED":"TO YOUR APPLE."(@L$:1:LL1;".";6);:1610%>~:LL43>T17610P>13:"POSSIBLE CHOICES:"\>L114>L113:I$:1:LL1;".";6);:1610>:LL4>LL1>13((T2)6):"ANSWER:">14((T2)6):I$:1:L;".";6);:1610>C$;D$:1810>7500"?ES:"="-----------------"%=R$1=L114W=L16:I$:1:LL1;".";6);:1610]=f=$L24w=.C$;D$:1810=8:"QUESTION & ANSWER SECTIONS:"=B"---------------------------":34,6=L=VR$=`7:"QUESTION:"=jL114>tL17:IR/NEXT LOOPS BOMBED WHEN USED HERE.-T1LQ(LS5)525;HT2LQ((LS3)9)918;RP$;LQ;\LLLQ;f7480# TO QUIT":" AND RETURN TO THE OPTION LIST.";;(91);25(NL20)5);"]";(85:1610@813:1:"NEW LINE:"d84);(91);25(NL20)5);"]";q85:10108II$(27)I$T$8W$;".TEMP":(34);I$;(34):D$8OLNL:60208216,0:(222)5Ħ8 944915:"LINE NUMBER ";NL;" DOES NO DEPENDING UPON LINE NUMBER.47tLL20:NL20LL25b7~21:"-PRESS ONLY TO IGNORE CHANGE"7" AND RETURN TO THE LINE NUMBER PROMPT,"7"-PRESS ONLY TO DELETE THE"7" CONTENTS OF THE LINE.";710:1:868:"OLD LINE:"84)L1:141061360R615:"READING/COPYING LESSON...PLEASE WAIT.";:958:34,16]66400o6$OL1NL62306.L1OL1NL168R$:I$6BW$;".TEMP":(34);I$;(34)6LD$:6VR$:I$:D$:T$I$6`216,0:34,3:6:9587j : SET LINE LENGTHRETURN TO THE OPTION LIST.";d51:5:868:16368,0:"LINE NUMBER TO CHANGE: ";GT$:(GT$)06080s5FL2:1410}542305NL(GT$)5NL0(NL)NL6130515:"LINE NUMBER MUST BE A POSITIVE INTEGER."51970560205NLOL6160 6F(15872)44S(2)1D(16128)44(16128)24(16128)8S(1)1MLP0eS(1)0S(2)0LP1 DISPLAY HEADING AND MESSAGES.  ::*" MICRO QUEST TEXT "4" LESSON BUILDER FOR MICRO QUEST. ">+HCL$C$D$"CLOSE"> : POKES FOR ERROR HANDLING ROUTINE. : THIS ROUTINE, WHEN CALLED, CLEARS UP PROBLEMS WITH ONERR CONDITIONS. 944,104:945,168:946,104:947,166:948,223:949,154:950,72:951,152:952,72:953,96S(1)0:S(2)08Ij' 32,168,252,169,0,133,36,173,2,3,240,9,237,1,3,233,247,144 It' 4,105,31,133,36,104,96,108,3,3 0,108,3,3 0173,231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145HL' 42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176 $IV' 3,72,169,160,44,98,3,240,3,238,2,3,8,32,169,3,40,104gI`' 72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,8,34,24,176,56,152,72,172,0,3,8,169,5,141,3G$' 3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153H.' 248,7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192ZH8' 169,40,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144HB' 14,FH!LL1}FR!"ANSWER:"F\!I$:L;".";4((L)(10)));:1610Ff!:"-----------------------------------------":Fp!8410Fz!216,0:(222)5ĦG!9440G!::"END OF LISTING":D$;"PR#0":4230UG' DATA FOR PRINTER ROUTINE. G' 2,40,0,5ECTIONS:"E "---------------------------":E "QUESTION:"E L114E I$:LL1;".";4((LL1)(10)));:1610E :LL4E!E !T18520F!"POSSIBLE CHOICES:"$F !L114RF*!I$:LL1;".";4((LL1)(10)));:1610^F4!:LL4dF>!n:L110(P1);".";4((L110(P1))(10)));:1610DX Db :Dl P28230Dv L20D T28390D "POSSIBLE CHOICES:"E "-----------------":E L121249E I$:L1;".";4((L1)(10)));:1610CE ::LE L24oE "QUESTION & ANSWER SME - ";F$:"LESSON FORMAT - ";TCDA117((F$)5)((F$)5):"-";:C::C 8570D : DOUBLE NESTED FOR/NEXT LOOPS BOMBED WHEN USED HERE. D P0D& PP13D0 "INSTRUCTION PART #";P;":"QD: "--------------------":^DD L1110DN I$......."1CS1ĺC$;D$;"PR#1":(9);"75N":8160:C775XCO$:R$:T$:T(T$):TT2C"FILE NA73,13,10,208,13,141,2,3,169,138,32,169,3,169,88sIj' 32,168,252,169,0,133,36,173,2,3,240,9,237,1,3,233,247,144 It' 4,105,31,133,36,104,96,108,3,3133,42,160,0,140,2,3,132,43,40,144hHB' 14,173,231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145HL' 42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176 HV' 3,72,169,160,44,98,3,240,3,238,2,3,8,32,169,3,40,104/I`' 72,144,228, DATA FOR PRINTER ROUTINE. XG' 2,40,0,5,34,24,176,56,152,72,172,0,3,8,169,5,141,3G$' 3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153G.' 248,7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192"H8' 169,40,141,1,3,169,54,4((LL1)(10)));:1610&F4!:LL4,F>!6FH!LL1EFR!"ANSWER:"mF\!I$:L;".";4((L)(10)));:1610Ff!:"-----------------------------------------":Fp!8410Fz!216,0:(222)5ĦF!944F!::"END OF LISTING":D$;"PR#0":4230G' 0 E ::E L247E "QUESTION & ANSWER SECTIONS:"\E "---------------------------":mE "QUESTION:"yE L114E I$:LL1;".";4((LL1)(10)));:1610E :LL4E!E !T18520E!"POSSIBLE CHOICES:"E !L114F*!I$:LL1;".";: SET LINE LENGTH FOR QUESTION/ANSWER SECTIONS.;( :1310R( 6:1:"QUESTION:"u( L114:4);(91);40);"]";:( T3270,3250( :"POSSIBLE CHOICES:"( L114:4);(91);40);"]";:( :"ANSWER:"( 4);(91);40);"]";) 35,24:21:1(91);"2ND LINE OF CHOICES";40);"]";S'D 4);(91);"3RD LINE OF CHOICES";40);"]";'N 4);(91);"4TH LINE OF CHOICES";40);"]";'X :"ANSWER:"'b 4);(91);"CORRECT ANSWER";40);"]"'l 1660'v ENTER QUESTION & ANSWER SECTIONS. /( LL35: ;40);"]";:& 4);(91);"2ND LINE OF QUESTION";40);"]";j& 4);(91);"3RD LINE OF QUESTION";40);"]";& 4);(91);"4TH LINE OF QUESTION";40);"]";& T3160,3110&& :"POSSIBLE CHOICES:"&0 4);(91);"1ST LINE OF CHOICES";40);"]";$': 4); W$:L114:(34);L$(L1);(34)::D$0% L24l% DISPLAY STRUCTURE FOR QUESTION & ANSWER SECTIONS. % :"THE APPLE WILL GIVE YOU THESE PROMPTS"% "FOR THE QUESTION & ANSWER SECTIONS."% 7:"QUESTION:" & 4);(91);"1ST LINE OF QUESTION"0"$J 6:1:"POSSIBLE CHOICES:":E$T L114:4);(91);40);"]";:]$^ L114:L$(L1)"":$h LL35: : SET LINE LENGTH FOR POSSIBLE CHOICES. $r L114$| L17:5:1010$ (I$)02990$ L$(L1)I$:1310$ $ 3000$ II$(27)4230'%L1110# L17:5:1010,# (I$)02820@# L$(L1)I$:1310F# P# 2830d# II$(27)4230# W$:L1110:(34);L$(L1);(34)::D$# P2L10:2700#" L20#, ENTER POSSIBLE CHOICE SECTION IF FORMAT 1. #6 T23030$@ :1910:131:1910D"x : DOUBLE NESTED FOR/NEXT LOOPS BOMBED WHEN USED HERE.O" PPF1Y" PP1c" 1310" 6:1:"INSTRUCTION PART #";P:" LL35: : SET LINE LENGTH FOR INSTRUCTION PARTS." L1110:4);(91);40);"]";:" L1110:L$(L1)"":# 68,0:GT$:GT$ !9 GT$"N"26113!: GT$"Y"2615A!; T$T$RN$r!< :"LESSON NAME - ";F$:"LESSON FORMAT - ";T!F W$:T$:D$!P ENTER INSTRUCTION SECTIONS. !Z PF1: : SET STARTING PART TO 1.!d L0: : SET LINE COUNTER TO ZERO."n 34,3:(T$):T$(T2)9 3 18:958:"DO YOU WISH THE QUESTIONS"[ 4 "PRESENTED IN RANDOM ORDER?" 5 "PRESS FOR YES, FOR NO: ";:16368,0:RN$:RN$ 6 RN$"Y"RN$"N"2611 7 22:958:"ARE YOU SURE?"!8 "PRESS FOR YES, FOR NO: ";:163 "INSERT A DISKETTE THAT IS NOT WRITE"R "PROTECTED AND RERUN THIS PROGRAM."X i (222)5Ħr 944 LF0: : SET ALL OPTIONS AVAILABLE. 16:1:868 "LESSON FORMAT (1 OR 2) ";:16368,0:T$:T$( T$"1"T$"2"2580 2 TT2t D$:216,0%~ T1T24010E 17:"THAT LESSON IS NOT A"m "MICRO QUEST TEXT VERSION LESSON."w 1660 2200 D$:216,0 (222)42550 17:"YOUR DISKETTE IS WRITE PROTECTED." :"IF YOU WANT TO CREATE A NEW LESSON,")2460$ 958`. : SET UP O$=OPEN FILE, R$=READ FILE, W$=WRITE FILE, AND P$=POSITION FILE.|8 O$C$D$"OPEN MIC."F$B R$C$D$"READ MIC."F$L W$C$D$"WRITE MIC."F$V P$C$D$"POSITION MIC."F$", R"` 2480j O$:R$:T$:T(T$):TBER OF CHARACTERS"="THAT MAY BE IN A LESSON NAME IS 20."G2460VF1(F$)|(F$,F,1)" "(F$,F,1)"Z"2300:234017:"ILLEGAL CHARACTERS IN LESSON NAME." :"CONTROL CHARACTERS ARE NOT ALLOWED" "IN A LESSON NAME." 216,0:(222)5ĺC$;D$;"DELETE MIC.CAPITALS QUIZ"B(7);:2160j ENTER FILE NAME AND VALIDATE. 14:1:958:16368,0:"LESSON NAME: ";F$(F$)02200(F$)20227017:"YOUR LESSON NAME IS TOO LONG.":"THE MAXIMUM NUMt"IS/WILL BE SAVED."Uu24:1:" PRESS SPACE BAR TO CONTINUE.";:16368,0uv34,23:(16384)1602166w16368,0:2178xC$;D$;"OPEN MIC.CAPITALS QUIZ"zC$;D$;"READ MIC.CAPITALS QUIZ"|T$~CL$216,0:34,0:22001:"NOTE: A CONTROL-C SHOULD NEVER BE USED"SR" TO END THIS PROGRAM. IF A"\" CONTROL-C IS USED, THE CONTENTS"f" OF YOUR LESSON MAY BE LOST."p9:1:958:"INSERT THE STUDENT PRESENTATION"r"DISKETTE ON WHICH THE LESSON" 944;815:"LINE NUMBER ";NL;" DOES NOT EXIST.";:958J8FL3:1490T8(1970Z82d8<6010{8X LIST OPTION. 8b15:1:"PREPARING LESSON...PLEASE WAIT.";:958:34,168lO$:R$:T$:D$8v34,3:8239"-PRESS ONLY TO QUNTS OF THE LINE.";0710:1:868:"OLD LINE:"I74);(91);40);"]";Z711:5:1610r713:1:"NEW LINE:"74);(91);40);"]";714:5:10107II$(27)I$T$7W$;".TEMP":(34);I$;(34):D$7OLNL:60207216,0:(222)5Ħ8LD$:6VR$:I$:D$:T$I$76`216,0:34,3:6:958c6j : SET LINE LENGTH FOR CHANGE OPTION.m6tLL356~21:"-PRESS ONLY TO IGNORE CHANGE"6" AND RETURN TO THE LINE NUMBER PROMPT,"6"-PRESS ONLY TO DELETE THE"7" CONTENE NUMBER MUST BE A POSITIVE INTEGER."051970:56020J5NLOL6160Y5FL1:1410c51360515:"READING/COPYING LESSON...PLEASE WAIT.";:958:34,16564005$OL1NL62305.L1OL1NL158R$:I$5BW$;".TEMP":(34);I$;(34)6NGE OPTION. 4z1360 4:23D4"-PRESS ONLY TO QUIT"l4" AND RETURN TO THE OPTION LIST.";41:5:868:16368,0:"LINE NUMBER TO CHANGE: ";GT$:(GT$)060804FL2:1410442304NL(GT$)4NL0(NL)NL6130&515:"LIHERE WAS AN ERROR IN YOUR LESSON."P3::"A NUMBER OF BLANK LINES WERE ADDED"{3"TO THE END OF THE LESSON TO FIX THE"3"ERROR."3:"USE THE 'LIST' AND 'CHANGE' OPTIONS"3"TO EXAMINE AND CORRECT THESE LINES."316603: 4p CHA);(34):2xD$:L24:5330>2LQ(L204(T1))(54(T2))f2LQ(L204(T1))(LQ)(54(T2))u2LQ030302LQ(54(T2))LQ2W$:L11LQ:(34);(34):2D$:LLL1:5330230302 : PRINT MESSAGE RE ERRORS ON FILE."312:"T NULL LINES.1 L02650(1L95170J1W$:L1L110:(34);(34):]1(D$:L10:5330r12L10PF2:26701<L1952101FW$:L1L120:(34);(34):1PD$:L20:53301ZL2028701d(T1L24)(T2L20)5250 2nW$:L1L124:(3415:"PREPARING LESSON...PLEASE WAIT.":34,1650L0I0O$:R$:T$:D$i0 : FIND LAST LINE NUMBER.t05080|0R$0I$:LL1:50700216,0:(222)5Ħ09440O$:P$;L1034,3 1 : FIND PLACE TO ADD AND IF MISSING LINES, ADDON"!/10:"PRINT":10:"STOP";>/20:":";:16368,0:GT$]/GT$"A"LF0ĺ"ADD":5010/GT$"C"LF0ĺ"CHANGE":6010/GT$"L"ĺ"LIST":7010/GT$"N"2080/GT$"P"ĺ"PRINT":8010/GT$"S"ĉ::/4250/ ADD OPTION. -0DD' AND 'CHANGE' OPTIONS."$.h1660n.rLF1: : SET TO LIMITED OPTIONS DUE TO WRITE PROTECT OR LOCKED FILE..| GET NEXT OPTION. .CL$.34,3:35,24.:"OPTION:";.LF14280.10:"ADD":10:"CHANGE"/10:"LIST":10:"NEW LESS : ERROR HANDLING ROUTINE FOR WRITE PROTECT OR LOCKED FILE.P-216,0:10:1d-(222)44150-""YOUR DISKETTE IS WRITE PROTECTED."-,4170-6(222)10Ħ-@"YOUR LESSON IS LOCKED."-J944-T:"YOU WILL BE UNABLE TO USE THE".^"'A(34)::D$,832100, DISPLAY HEADING. g,:"LESSON NAME - ";F$:"LESSON FORMAT - ";T:34,3, : CHECK FOR WRITE PROTECT OR LOCKED FILE.,4100,O$:R$:T$:T(T$):TT2,O$:W$:T$:D$,CL$,216,0,LF0,4230>- + T13600+ L158,+ 5:L18:1010>+ (I$)03580R+ L$(L1)I$:1310X+ b+ 3600v+ II$(27)4230+LL7L1:1310+5:13((T2)6):1010+(I$)0II$(27)4230+$L$(5((T2)4))I$ ,.W$:L115((T2)4):(34);L$(L1);HIS"3*> " SECTION AND RETURN TO THE OPTION LIST,"Z*H "-PRESS ONLY TO ADVANCE"x*R " WITHIN THIS SECTION.";*\ 35,20*f L124*p 5:L16:1010*z (I$)03490* L$(L1)I$:1310* * 3510* II$(27)4230* LL4L1:1310:9582) 21:"-PRESS ONLY TO IGNORE THIS"b) " SECTION AND RETURN TO THE OPTION LIST.";m) 35,20) L115((T2)4):L$(L1)"":) 5:7:1010) (I$)04230) L$(1)I$:1310)* 35,24:21:1:958*4 "-PRESS ONLY TO IGNORE T36,104,176 JHV' 3,72,169,160,44,98,3,240,3,238,2,3,8,32,169,3,40,104H`' 72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88Hj' 32,168,252,169,0,133,36,173,2,3,240,9,237,1,3,233,247,144 Ht' 4,105,31,133,36,104,96,108,3,3C04,9 248,7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192G8' 169,40,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144GB' 14,173,231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145 HL' 42,200,169,3,145,42,104,168,96,72,72,173,2,3,197, Fp!8410"Fz!216,0:(222)5Ħ+F!944VF!::"END OF LISTING":D$;"PR#0":4230{F' DATA FOR PRINTER ROUTINE. F' 2,40,0,5,34,24,176,56,152,72,172,0,3,8,169,5,141,3F$' 3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153?G.' 1610E :LL4E!%E !T18520>E!"POSSIBLE CHOICES:"JE !L114xE*!I$:LL1;".";4((LL1)(10)));:1610E4!:LL4E>!EH!LL1ER!"ANSWER:"E\!I$:L;".";4((L)(10)));:1610Ff!:"-----------------------------------------":LE CHOICES:"'D "-----------------":5D L12124_D I$:L1;".";4((L1)(10)));:1610iD ::rD L24D "QUESTION & ANSWER SECTIONS:"D "---------------------------":D "QUESTION:"D L114E I$:LL1;".";4((LL1)(10)));:D FOR/NEXT LOOPS BOMBED WHEN USED HERE./C P09C& PP1YC0 "INSTRUCTION PART #";P;":"wC: "--------------------":CD L1110CN I$:L110(P1);".";4((L110(P1))(10)));:1610CX Cb :Cl P28230Cv L20C T28390 D "POSSIB1:"THE LESSON IS NOW BEING PRINTED........"VBS1ĺC$;D$;"PR#1":(9);"75N":8160_B775}BO$:R$:T$:T(T$):TT2B"LESSON NAME - ";F$:"LESSON FORMAT - ";TBDA117((F$)5)((F$)5):"-";:B::B 8570'C : DOUBLE NESTE:"HIGH OR LOW SPEED?"OA"PRESS FOR HIGH, FOR LOW: ";:16368,0:GT$yAGT$"L"ĺ"LOW":802,82:818,82:8110AGT$"H"8060A"HIGH"APS1A18:"PRESS SPACE BAR WHEN YOU"A"ARE READY FOR THE OUTPUT: ";:16368,0:GT$-B22:OT 2:";:16368,0:GT$2@XGT$"1"GT$"2"8022D@YGT$:S(GT$)R@ZS18110t@] : POKE IN PRINTER ROUTINE.@^ : (FOR USE WITH A COMMUNICATIONS CARD IN SLOT 2.)@h:DA768939:DE:DA,DE:@r823,75: : SET COLUMN WIDTH.A|15:1:958 PRINTER ATTACHED":"TO YOUR APPLE.".?L16608?N4230G?OPS18120a?PS(1)0S(2)08022u?QS1:S(2)1S2?R8026?T : POKE IN PRINTER ROUTINE.?V12:1:958:"WHERE WHOULD THE LESSON BE PRINTED?"@W"PRESS <1> FOR SLOT 1, <2> FOR SL;6);:1610>C$;D$:1810&>7500L>216,0:D$:(222)5(222)2ĦU>944m>:"END OF LISTING"w> 1970>34,3:>7010>@ PRINT OPTION. >JLP08015$?K15:958:"YOU WILL BE UNABLE TO USE THE PRINT":"OPTION. THERE IS NO`7:"QUESTION:"=jL114C=tL17:I$:1:LL1;".";6);:1610O=~:LL4]=T17610z=13:"POSSIBLE CHOICES:"=L114=L113:I$:1:LL1;".";6);:1610=:LL4=LL1=13((T2)6):"ANSWER:" >14((T2)6):I$:1:L;"."L20<T27480.<:"POSSIBLE CHOICES:"G<"-----------------"O<R$[<L114<L16:I$:1:LL1;".";6);:1610<<$L24<.C$;D$:1810<8:"QUESTION & ANSWER SECTIONS:"T1LQ(LS5)525:HT2LQ((LS3)9)918:RP$;LQ;\IT"+9" AND RETURN TO THE OPTION LIST.";v91:5:868:16368,0:"LINE NUMBER TO LIST FROM: ";GT$:(GT$)042309LS(GT$)9LS0(LS)LS7140915:"LINE NUMBER MUST BE A POSITIVE INTEGER."9197097030 : : FIND PLACE IN FILE ENTER OPTION. -%4:"OPTION:";:10:"LIST"E%$LF0Ė10:"MODIFY"t%.10:"NEW LIST":10:"REPORT":10:"STOP";%818:":";:16368,0:GT$%BGT$"M"LF0ĺ"MODIFY":3820%LGT$"L"ĺ"LIST":6010%VGT$"R"ĺ"REPORT":6510 &`GT$"N"ĺ"NEW L":$\ "MODIFY OPTIONS."$$f 1010G$p LF1::SELECT LIMITED OPTIONS.^$z PRINT HEADING. $ R$;0:A$:N:T1:TS:T2$:TA$:D$$ :"WORD LIST NAME - ";F$:"NUMBER OF WORD SETS - ";N$ : RESET FILE AND SCREEN.$ 34,3:35,24:$ O$% IONS. # 3360 # R$;0:V$2# W$;0:V$:D$;# CL$Q# LF0:216,0:3460b# 216,0::10v#* (222)43390#4 "YOUR DISKETTE IS WRITE PROTECTED."::3410#> (222)10Ħ#H "YOUR WORD LIST IS LOCKED.":$R "YOU WILL BE UNABLE TO USE THE" *" W$;N1:A$:B$:0:0:0:0:D$?" NN1:2:23:N;I" 3040W" O$:W$;0}" "VOCAB":N:T1:TS:T2$:TA$:D$" : RETURN TO MODIFY SUB-OPTION IF NOT A NEW FILE." NF03820" NF0:: SET NEW FILE FLAG=NO." 3490# LIMIT OPT(B$)24Ģ10:958:13:"ENTER 24 CHARACTERS OR LESS, PLEASE.":10:3140X!l C1(B$)"v (B$,C,1)" "(B$,C,1)"'"(B$,C,1)"-"(B$,C,1)"A"(B$,C,1)"Z"Ģ10:958:13:"USE LETTERS, SPACES, APOSTROPHES,":"AND HYPHENS ONLY, PLEASE.":10:3140(A$,C,1)"Z"Ģ7:958:13:"USE LETTERS, SPACES, APOSTROPHES,":"AND HYPHENS ONLY, PLEASE.":3050i & 0 T2$"N"B$"":3210 : 10:958 D "INCORRECT":"SPELLING: ";:868:"";B$ N C(B$):C03240 X (B$,C,1)" "B$(B$,1,C1):3150I!b 7:"CORRECT":"SPELLING: ";:868:"";A$@ C(A$):C03240h (A$,C,1)" "A$(A$,1,C1):3060 (A$)24Ģ7:958:13:"ENTER 24 CHARACTERS OR LESS, PLEASE.":3050 C1(A$)c  (A$,C,1)" "(A$,C,1)"'"(A$,C,1)"-"(A$,C,1)"A": RESET FILE FOR ADD.^ O$1 ADD OPTION.  23:958:"-PRESS ONLY TO QUIT":" ENTERING WORDS.";:35,21:3030: :GET TRAILER FOR BUILD.  :1510::GET TRAILER FOR MODIFY SUB-OPTION. 2:23:N; :"WORD SET NUMBER ";N1*NG RUN?";28);TA$;35);:8685 GT$:(GT$)02860_ (GT$,1,1)"Y"(GT$,1,1)"N"2810r" TA$(GT$,1,1), 18:35:868:TA$6 W$;0:"VOCAB":N:T1:TS:T2$:TA$:D$@ : RETURN TO MODIFY SUB-OPTION IF NOT A NEW FILE.J NF03820T  13:35:868:T1F 15:"SPELL2 USAGE FLAG";28);T2$;35);:868^ GT$:(GT$)02800 (GT$,1,1)"Y"(GT$,1,1)"N"2760 T2$(GT$,1,1):CF1::CHANGE FLAG = YES. 15:35:868:T2$ 17:"ALLOW STUDENTS TO ALTER" "TIMES DURIUE"3x 11:"SCRAMBLE RESPONSE TIME";28);TS;35);V GT$:(GT$)0Ģ11:868:2680u (GT$)0TS((GT$).5) 11:35:868:TS 13:"SPELL1 RECOGNITION TIME";28);T1;35); GT$:(GT$)0Ģ13:868:2720 (GT$)0T1((GT$).5)( PARAMETERS OPTION. 72 : READ CURRENT VALUES.^< R$;0:A$:N:T1:TS:T2$:TA$:D$F :"TO KEEP THE CURRENT VALUES, JUST"P "PRESS . OTHERWISE, ENTER"Z "A NEW VALUE."d :25:"PRESENT";34);"NEW"n 26:"VALUE";33);"VALAM."   (222)5ĦB LF0:: SET ALL OPTIONS AVAILABLE. :"WORD LIST NAME - ";F$:"NUMBER OF WORD SETS - ";0:34,3 NF1:: SET NEW FILE FLAG=YES. : INITIALIZE RECORD 0 WITH DEFAULT VALUES. W$;0:"VOCAB":0:3:60:"Y":"Y":D$S NOT A VOCAB WORD LIST.";S` 24:" PRESS SPACE BAR TO TRY AGAIN.";:16368,0ue GT$:16368,0:GT$" "2405g 16368,0j 2150t D$:216,0~ (222)42470 "INSERT A DISKETTE THAT IS NOT WRITE" "PROTECTED AND RERUN THIS PROGRW$=WRITE FILE.1 O$C$D$"OPEN VOC."F$",L80"R R$C$D$"READ VOC."F$",R"t W$C$D$"WRITE VOC."F$",R"$ 2420. O$:R$;0:V$8 D$:216,0B : IF OLD FILE, SET NEW FILE FLAG=NO.L V$"VOCAB"NF0:3310V 17:"THAT WORD LIST I6,108,3,3RESET.":19:34,19#5R$;0:A$:N\5C1N:R$;C:A$:B$:W$;C:A$:B$:0:0:0:0::D$l534,3:3820y535,24:510:"THERE ARE NO WORDS TO RESET."51010538205p WORD LIST OPTION. 5z:N06130U6"DO YOU WISH THE LIST TO AP12:868:"DO YOU WISH TO RESET THE COUNTERS? ";:16368,0:GT$:GT$:14GT$"N"GT$(13)Ģ18:868:"NO RESET COMPLETED":38204GT$"Y"Ģ18:"ENTER , , OR PLEASE.":5540518:958:"PLEASE WAIT. ":"THE WORD LIST IS BEING 101033820%3| RESET OPTION. 33N05610O3:1510: :GET TRAILER.3:"THE RESET OPTION INITIALIZES THE USAGE":"STATISTICS FOR THE WORDS ON THIS VOCAB":"WORD LIST. VOCAB WILL OPERATE AS IF":"THESE WORDS HAVE NEVER BEFORE BEEN USED."J40(2<R$;C:B$:C1$:TC:TD:TE:TF:D$Q2FW$;C1:B$:C1$:TC:TD:TE:TF:D$[2P51702ZR$;0:A$:N:T1:TS:T2$:TA$:D$2dW$;0:A$:N1:T1:TS:T2$:TA$:D$2nNN1:34,32x5030235,24:210:"THERE ARE NO WORDS TO DELETE."341CNĢ20:"THAT WORD SET DOES NOT EXIST.":5120g120:"WORD NUMBER MUST BE A POSITIVE INTEGER."135,24:958:1010::GET PRESS KEY TRAILER.1 :1510::GET MODIFY TRAILER.14:50501958:19:34,191(R$;C:A$:D$22CC1:CN521N. 0N05250-0:1510: :GET TRAILER.R02:23:N;:868:::GET HEADER.`0N038200"WHICH WORD SET DO YOU WISH TO DELETE?"0"ENTER WORD SET NUMBER: ";:868:16368,0:GT$0(GT$)038200C((GT$))1CNC1C(C)5150B$,D,1)"Z"Ģ16:958:19:"USE LETTERS, SPACES, APOSTROPHES,":"AND HYPHENS ONLY, PLEASE.":16:4440k/v/B$BB$/W$;C:A$:B$:0:0:0:0:D$/4020/35,24:/10:"THERE ARE NO WORDS TO CHANGE."/1010/38200 DELETE OPTIO868:"SPELLING: ";BB$:9582.bD(BB$):D04520].l(BB$,D,1)" "BB$(BB$,1,D1):4450.v(BB$)24Ģ16:958:20:"ENTER 24 CHARACTERS OR LESS, PLEASE.":4430.D1(BB$)e/(BB$,D,1)" "(BB$,D,1)"'"(BB$,D,1)"-"(BB$,D,1)"A"(B$"N"4520-35,24:22:958N-"-PRESS ONLY TO LEAVE INCORRECT"{-" SPELLING UNALTERED, AND TO RETURN TO"-&" WORD SET SELECTION.";:35,21:1-013:958-:"OLD INCORRECT"-D"SPELLING: ";B$-N16:958.X"NEW INCORRECT"::"ENTER 24 CHARACTERS OR LESS, PLEASE.":4260>,D1(AA$),(AA$,D,1)" "(AA$,D,1)"'"(AA$,D,1)"-"(AA$,D,1)"A"(AA$,D,1)"Z"Ģ10:958:13:"USE LETTERS, SPACES, APOSTROPHES,":"AND HYPHENS ONLY, PLEASE.":4260,,A$AA$ -T2O RETURN":" TO WORD SET SELECTION.";3+|35,21:1@+7:958S+"OLD CORRECT"h+"SPELLING: ";A$+10:"NEW CORRECT"+868:"SPELLING: ";AA$:958+D(AA$):D04350+(AA$,D,1)" "AA$(AA$,1,D1):4280.,(AA$)24Ģ10:958:13GET MODIFY TRAILER. *"4:40406*,R$;C:A$:B$:D$K*635,24:22:958b*@T2$"N"Ģ23:4210*J"-PRESS ONLY TO LEAVE CORRECT"*T" SPELLING UNALTERED, AND TO MOVE TO"*^" INCORRECT WORD ENTRY.";*h4220%+r"-PRESS ONLY TBER: ";:868:16368,0:GT$/)(GT$)03820?)C((GT$))Z)CNC1C(C)4140)CNĢ20:"THAT WORD SET DOES NOT EXIST.":4110)20:"WORD NUMBER MUST BE A POSITIVE INTEGER.")35,24:958:1010::GET PRESS KEY TRAILER.*:1510:::35,24:2610)(ZGT$"R"ĺ"RESET":5510=(dGT$(13)3490q(n20:1:"PLEASE ENTER A SUBOPTION.":4:1:3850( CHANGE OPTION. (N04540(:1510: :GET TRAILER. (("WHICH WORD SET DO YOU WISH TO CHANGE?")"ENTER WORD SET NUM1 'O$:0' "MODIFY SUBOPTION:";:20:"ADD"P'20:"CHANGE":20:"DELETE"t'20:"PARAMETERS":20:"RESET";'(30:":";:16368,0:GT$'2GT$"A"ĺ"ADD":3020'<GT$"C"ĺ"CHANGE":4010'FGT$"D"ĺ"DELETE":5010 (PGT$"P"ĺ"PARAMETERS"IST":8010%&jGT$"S"ĺ"STOP":8010X&t20:1:"PLEASE ENTER AN OPTION: ":4:1:3610}& MODIFY SUB-OPTION SELECTION. &: RESET FILE AND SCREEN.&34,3:35,24::23:"-PRESS ONLY TO QUIT AND":" RETURN TO THE OPTION LIST.";'35,2,247,144 .Dt'4,105,31,133,36,104,96,108,3,3D,169,99,145OCL'42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176 CV'3,72,169,160,44,98,3,240,3,238,2,3,8,32,169,3,40,104C`'72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88 Dj'32,168,252,169,0,133,36,173,2,3,240,9,237,1,3,2335,141,3FB$'3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153B.'248,7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192B8'169,40,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144 CB'14,173,231,3,233,110,133,42,173,232,3,233,0,133,43RRECT WORDS, THE SPELL2 FLAG":MA"HAS BEEN RESET TO ";(34);"N";(34);"."[A1010::AW$;0:"VOCAB":N:T1:TS:"N":TA$:D$ACL$::AAA$"S"ĀA2000A' DATA FOR PRINTER ROUTINE. B'2,40,0,5,34,24,176,56,152,72,172,0,3,8,169,";7);TA$4@:::"END OF LIST.":D$;"PR#0":3490L@@ NEWFILE/STOP. t@JAA$GT$:CF0T2$"N"N0ĉ::8120@T19:34,19@^CN11@hR$;C:A$:B$@r(B$)0Ă:8120@|D$@::10:"SINCE ALL WORD SETS DO NOT INCLUDE":A"INCOA$:B$5?C;9((C)(10)));A$:(B$)0ĺ10);B$R?::::"PARAMETERS:":y?"SCRAMBLE RESPONSE TIME";6);TS:?"SPELL1 RECOGNITION TIME";5);T1:?"SPELL2 USAGE FLAG";11);T2$:?"ALLOW STUDENTS TO ALTER" @"TIMES DURING THE RUN?":16368,0->oGT$:16368,0:GT$" "7535;>p16368,0b>t20:1:"HERE IS THE WORD LIST..."v>~S2Č775:7560>C$;D$;"PR#1":(9);"80N">::"WORD LIST NAME - ";F$>C1(F$)12:"-";::>::"NUMBER WORDS":?C1N:R$;C:0ĺ"*":7160#=(MOUO1000)10R=::::"END OF REPORT.":D$;"PR#0":3490n=L PRINTED WORD LIST. =V:INITIALIZE PRINTER ROUTINE.=`RN$"WORD LIST":1030 >j16:1:958:" PRESS SPACE BAR WHEN YOU ARE ":" READY FOR THE OUTPUT.:"-";::=<::"WORD % OF TIMES MISSED ON FIRST TRY"\<:22);"SPELL1 SPELL2":<C1N:R$;C:A$:B$:US:UO:MS:MO<A$;24(A$));:US0ĺ"*";7);:7140<MS0ĺ0;7):7140<(MSUS1000)10;8(((MSUS1000)10))); =UORESS SPACE BAR WHEN YOU ARE ":" READY FOR THE OUTPUT.":16368,0j;{GT$:16368,0:GT$" "7035x;|16368,0;20:1:"HERE IS THE REPORT...";S2Č775:7060;C$;D$;"PR#1":(9);"80N";::"WORD LIST NAME - ";F$ <C1(F$)12*";:6640 :(MSUS1000)10;9:33:UO0ĺ"*":6580O:}(MOUO1000)10Y:6580:10:"THERE ARE NO WORDS TO REPORT.":1010:"3490:X PRINTED REPORT. :b:INITIALIZE PRINTER ROUTINE:lRN$"REPORT":1030H;v16:1:958:" PD % OF TIMES MISSED ON FIRST TRY"?923:"SPELL1 SPELL2"O934,5::C0}9CC1:CNİ1010:34,3:(4);"PR#0":34909((C1)8((C1)8))(C1)İ1010:9R$;C:A$:B$:US:UO:MS:MO:D$97((C1)((C1)8)8)2 :A$;:25:US0ĺ"RT OPTION. 8n:N066708x"DO YOU WISH THE REPORT TO APPEAR":"ON THE SCREEN OR ON THE PRINTER?":"PRESS FOR SCREEN,

FOR PRINTER: ";:16368,0:GT$:GT$"P"ĺ"P":70108GT$"S"Ė1:2:"PRESS OR

PLEASE.":4:65208%9"WOR7((C1)5((C1)5))(C1)İ1010:=7R$;C:A$:B$:D${7T2$"N"Ģ6((C1)((C1)5)5)2:C;" - ";10);A$:608076((C1)((C1)5)5)3:C;" - ";10);A$:10);B$:6080710:"THERE ARE NO WORDS TO LIST."7101073490 8d REPOPEAR":"ON THE SCREEN OR ON THE PRINTER?":"PRESS FOR SCREEN,

FOR PRINTER: ";|616368,0:GT$:GT$"P"ĺ"P":75206GT$"S"Ė1:20:"PRESS OR

PLEASE.":4:602066"NUMBER WORDS"634,4:C0:6CC1:CNİ1010:3490'z#?     ϠϠԠӠMϠԠԠC Ҡ>Р îӠڠҮŮ  ::11:18:"HELLO":24d* WITH"& " REGULAR TEXT LETTERS.", A "VOCAB TEACHER"j " ENABLES THE TEACHER TO CREATE," " EDIT, AND DISPLAY WORD LISTS" " FOR USE BY STUDENTS WITH THE" " VOCAB DRILL PROGRAMS." 24:" PRESS SPACE BAR TO CONT THE TEACHER TO CREATE,"= " EDIT, AND DISPLAY QUESTION"_ " AND ANSWER LESSONS WITH"x " LARGE LETTERS."~  "MICRO QUEST TEXT" " ENABLES THE TEACHER TO CREATE," " EDIT, AND DISPLAY QUESTION" " AND ANSWER LESSONS,0:GT$:GT$" "2639P Q 1:10:"INSERT THE TEACHER UTILITIES DISKETTE."::23:" PRESS SPACE BAR TO CONTINUE:";:A$:A$" "2641U 2300W P62900Z 3:1:958:14:"DESCRIPTIONS"d n "MICRO QUEST GRAPHICS"x " ENABLESC P42647E F 1:10:"INSERT THE STUDENT PRESENTATION ":"DISKETTE YOU WISH TO CATALOG."::23:" PRESS SPACE BAR TO CONTINUE:";:A$:A$" "2630K A$:L (4);"CATALOG"M N 23:" PRESS SPACE BAR TO CONTINUE:";O 16368HE RANGE 1-7."A 24:1:" PRESS SPACE BAR TO TRY AGAIN: ";c 16368,0:GT$:GT$" "2540m 2460( P1ĺ(4);"RUN MICRO QUEST GRAPHICS"2 P2ĺ(4);"RUN MICRO QUEST TEXT"< P3ĺ(4);"RUN VOCAB TEACHER"A P5ĺ(4);"RUN CLEANUP" ALOG":~ 8:"5. CLEANUP"" < 8:"6. DESCRIPTIONS"O :8:"7. END"` 20:1:958 "WHICH PROGRAM DO YOU WANT TO RUN"; 16368,0:": ";GT$ (GT$)02520 P(GT$) P1P7P(P)2600 22:"PLEASE TYPE A NUMBER IN TON.",16368,0:X1750:(16384)128Ă2= 1:11X "TEACHER UTILITIES":| 7:"FOR MICRO QUEST AND VOCAB"$ 5. 8:"1. MICRO QUEST GRAPHICS"8 B 8:"2. MICRO QUEST TEXT"L V 8:"3. VOCAB TEACHER"` t 8:"4. CATOCAB TEACHER":101018:2UZZ$"COPYRIGHT (C) 1981 BY MINNESOTA SCHOOL":1010`19:2ZZ$"DISTRICTS DATA PROCESSING JOINT BOARD.":101021:2"THE PROGRAMS ON THIS DISKETTE MAY NOT"22:2"BE DISTRIBUTED WITHOUT PERMISSIH17:" ";:27:" ";:31:" "&RXB\17:" ";:27:" ";Hfkp19:"EACHER";:33:"TILITIES"z8:15:"FOR MICRO QUEST AND VOCAB."11:1:ZZ$"- MICRO QUEST GRAPHICS":101013:1:ZZ$"- MICRO QUEST TEXT":101015:1:ZZ$"- V: XX110: X) XX150::H  BEGINNING OF PROGRAM. P :W 2k "************" "* *" " * TIES *" " * ---- *" " * -- *" " ****" * 42:15:" ";:27:" ";:31:" " >X13* B * REVISED BY: *9 D * EARL L. KEYSER *U F * TIES, 11/81 *q H * * I ********************* J 10000 2010  TYPEWRITER ROUTINE. X1(ZZ$):(ZZ$,X,1); XX15:C(16336)SK. *!  * *=  * PROGRAMMED BY: *Y " * DAVID E. LADEN *u , * TIES, 6/80 * 6 * * 8 * REVISED BY: * : * DAVID E. LADEN * < * TIES, 9/81 * > * *% * LANGUAGE: *A * APPLESOFT BASIC *] * *y * DESCRIPTION: * * HELLO PROGRAM * * FOR THE MICRO * * QUEST AND VOCAB * * TEACHER *  * UTILITIES DIJ:16368,0:1023,DN:16303,0) < E d *********************a n * *} x * COPYRIGHT 1981 * * BY TIES. * * * * PROGRAM NAME: * * HELLO * * O%*/49=@C ᷩ?"췩ʎ WRP`ZHELLOzTEACHER UTILITIES VOLUME 2LAST UPDATE: 8/18/82 RPB  DISPLAY MECC LOGO(1023)401001023,40:2054(J1300:(16384)128J300 2      MESSAGES. Iv21:1:"-PRESS ONLY TO IGNORE THIS"x" SECTION AND RETURN TO THE OPTION LIST,""-PRESS ONLY TO GO ON TO"" THE NEXT SECTION."; RETURN TO LINE NUMBER PROMPT MESSAGE. 23:1:9I$,IC,1);:1720? LIST OPTION-PAGING/PRESS KEY ROUTINE. g22:1:"-PRESS TO RETURN TO"" THE LINE NUMBER PROMPT,"&"-PRESS SPACE BAR TO GO ON.";:16368,0:GT$:16368,0+GT$(27)ġ:70100GT$" "Ė1:1830:l 160166516368,0:: A OUTPUT ONE LINE TO PRINTER. JIC0dICIC1:IC(I$)ĺ:(I$,IC,1)(91)ĺ(34);:1720(I$,IC,1)"^"ICIC1:(I$,IC,1);:1720(I$,IC,1)"A"(I$,IC,1)"Z"ĺ(((I$,IC,1))32);:1720(0TICIC1:IC(I$)ĺ:@^(I$,IC,1)(91)ĺ(34);:1620sh(I$,IC,1)"^"ICIC1::(I$,IC,1);::1620r(I$,IC,1);:1620{ PRESS SPACE BAR TO CONTINUE |24:1:" PRESS SPACE BAR TO CONTINUE:";:16368,0 (16384)#W$;".TEMP":(34);I$;(34):D$-14308216,0I(222)5ĦR944[CL$tD$;"DELETE MIC.";F$D$;"RENAME MIC.";F$;".TEMP, MIC.";F$34,3:FL6150,6070,6440: : RETURN FROM SENDER.@ OUTPUT ONE LINE TO SCREEN. JICCOPY. @P15:"PREPARING LESSONS...PLEASE WAIT.";:958:34,16PZO$:R$:T$tdO$;".TEMP":W$;".TEMP":T$:D$nOL0:34,3:x COPY REST OF FILE TO TEMP. 15:"READING/COPYING LESSON...PLEASE WAIT.":958:34,161460R$:I$1020II$:II$(8)1020<II$(13)I$(I$,1,IC):VII$"A"II$"Z"1240:II$;::ICIC2:I$(I$,1,IC2)"^"II$(I$,IC((I$,IC1,1)"^")):1020 LINE COUNTER. LL1:15:4:"LINE # ";L;:F INITIALIZING FILES FOR 1)ĺ(34);:1020C(I$,IC,1)"^"ICIC1::(I$,IC,1);::1020Z(I$,IC,1);:1020xII$(32)II$(95)1020II$;:ICIC1:II$(34)II$(91)(I$,IC,1)"^"I$(I$,1,IC1)II$(I$,IC2):1020I$(I$,1,IC1)II$(I$,IC1)IC0ĺ(7);:1020B.ICIC1:II$;:IC0ĭ(I$,IC,1)"^"ICIC1L81020iB(36)4LLĺ(7);:1020{LII$"^"1240VII$(27)1140`IC01020jI$"":tII$(21)1190~ICIC1:IC(I$)I$I$" ":" ";:1020(I$,IC,1)(9  * *8  *********************B  T L$(10):2010w  CHARACTER INPUT ROUTINE. IC0:I$"":16368,0 II$:II$(13)1050 I$(I$,1,IC):(36)4LLāCL(36)4LL1:" ";:  II$(8)1090$ * REVISED BY: *3  * DAVID E. LADEN *P  * TIES, 9/81 *m  * *  * REVISED BY: *  * EARL KEYSER *  * ANALYST, TIES *  * RON R. GEISER *  * TIES, 11/81 *SIGNED BY: *. r * DANIEL M. FORDE *K | * ANALYST, TIES *h  * PROGRAMMED BY: *  * JAMES A. HENKE *  * TIES, 12/79 *  * & DAVID E. LADEN *  * TIES, 7/80 *  * *  *)  * ORIGINAL TIME- *F " * SHARE VERSION *c , * OF THIS PROGRAM * 6 * IS CALLED PHOFIL. * @ * * J * APPLE II * T * CONVERSION AND * ^ * ENHANCEMENTS * h * DE *# * LANGUAGE: *@ * APPLESOFT BASIC *] * *z * DESCRIPTION: * * THIS PROGRAM * * BUILDS MICRO * * QUEST GRAPHICS *  * VERSION FILES. *  * nJd *********************;n * *Xx * COPYRIGHT 1981 *u * BY TIES. * * * * PROGRAM NAME: * * MICRO QUEST * * GRAPHICS * *                          UMBER PROMPT MESSAGE.l23:1:958:"PRESS SPACE BAR TO RETURN":"TO THE LINE NUMBER PROMPT.";:16368,0(16384)160197516368,0 BEGINNING OF PROGRAM - INITIALIZATION. C$(13):D$(4) : CL$=CLOSE ALL FILES.::7010716368,0:?l MESSAGES. nv21:1:"-PRESS ONLY TO IGNORE THIS"" SECTION AND RETURN TO THE OPTION LIST,""-PRESS ONLY TO GO ON TO"" THE NEXT SECTION."; RETURN TO LINE N LIST OPTION-PAGING/PRESS KEY ROUTINE. V22:1:"-PRESS TO RETURN TO"v" THE LINE NUMBER PROMPT,"&"-PRESS SPACE BAR TO CONTINUE.";:16368,0+(16384)160(16384)15518350(16384)1601847216368,05:34,3OUTPUT ONE LINE. JIC04TICIC1:IC(I$)ĺ:X^(I$,IC,1)(91)ĺ(34);:1620or(I$,IC,1);:1620{ PRESS SPACE BAR TO CONTINUE |24:1:" PRESS SPACE BAR TO CONTINUE:";:16368,0(16384)160166516368,0:: .958:34,161460!R$:I$EW$;".TEMP":(34);I$;(34):D$O1430Z216,0k(222)5Ħt944}CL$D$;"DELETE MIC.";F$D$;"RENAME MIC.";F$;".TEMP, MIC.";F$34,3:FL6150,6070,6440: : RETURN FROM SENDER.@ TIALIZING FILES FOR COPY. TP15:"PREPARING LESSONS...PLEASE WAIT.";:958:34,16rZO$:R$:T$:T(T$):TT2dO$;".TEMP":W$;".TEMP":T$:D$nOL0:34,3:x COPY REST OF FILE TO TEMP. 15:"READING/COPYING LESSON...PLEASE WAIT.":":" ";:10201(I$,IC,1)(91)ĺ(34);:1020H(I$,IC,1);:1020fII$(32)II$(95)1020II$;:ICIC1:II$(34)II$(91)I$(I$,1,IC1)II$(I$,IC1)1020 LINE COUNTER. LL1:15:4:"LINE # ";L;:F INII$(I$,1,IC):(36)4LLāCL(36)4LL1:" ";:8LII$(8)1090c$IC0ĺ(7);:1020u.ICIC1:II$;81020B(36)4LLĺ(7);:1020VII$(27)1140`IC01020jI$"":tII$(21)1190 ~ICIC1:IC(I$)I$I$" ** * DAVID E. LADEN *<+ * RON R. GEISER *Y, * TIES, 11/81 *v/ * *0 *********************L$(10):2010 CHARACTER INPUT ROUTINE. IC0:I$"":16368,0II$:II$(13)10502 * TIES, 12/79 *7  * R. CHRISTIANSEN *T  * TIES, 7/80 *q  * & DAVID E. LADEN *  * TIES, 6/80 * & * * ' * REVISED BY: * ( * EARL L. KEYSER *) * ANALYST, TIES* REVISED BY: *2  * DAVID E. LADEN *O  * TIES, 8/81 *l  * *  * DESIGNED BY: *  * DANIEL M. FORDE *  * ANALYST, TIES *  * PROGRAMMED BY: *  * JAMES A. HENKE * ANIEL M. FORDE *- r * ANALYST, TIES *J | * WRITTEN BY: *g  * SCOTT COSTELLO *  * TIES, 7/77 *  * *  * APPLE II *  * CONVERSION AND *  * ENHANCEMENTS *  *(  * ORIGINAL TIME- *E " * SHARE VERSION *b , * RESULTS OF THE * 6 * SPELL PROGRAMS. * @ * * J * ORIGINAL TIME- * T * SHARE PROGRAM * ^ * DESIGNED BY: * h * D *# * LANGUAGE: *@ * APPLESOFT BASIC *] * *z * DESCRIPTION: * * THIS PROGRAM * * BUILDS MICRO * * QUEST TEXT *  * VERSION FILES. *  * @d *********************;n * *Xx * COPYRIGHT 1981 *u * BY TIES. * * * * PROGRAM NAME: * * MICRO QUEST * * TEXT * *                           1(F$).(F$,F,1)" "(F$,F,1)"Z"2250::2290k17:"ILLEGAL CHARACTERS IN WORD LIST NAME.":"CONTROL CHARACTERS ARE NOT ALLOWED""IN A WORD LIST NAME."2400958: SET UP O$=OPEN WORD LIST, R$=READ WORD LIST, AND \(7);:2120Cf14:1:958:16368,0:"WORD LIST NAME: ";F$Up(F$)02150iz(F$)25222017:"YOUR WORD LIST NAME IS TOO LONG.":"THE MAXIMUM NUMBER OF CHARACTERS":"THAT MAY BE IN A WORD LIST NAME IS 25."2400FED."7M24:1:" PRESS SPACE BAR TO CONTINUE: ";`N34,23:16368,0:GT$:GT$" "2126kO2138PC$;D$;"OPEN VOC.SEASONS"RC$;D$;"READ VOC.SEASONS"TV$VCL$X216,0:34,0:2150Z216,0:(222)5ĺC$;D$;"DELETE VOC.SEASONS"D NEVER BE USED"8*" TO END THIS PROGRAM. IF A"e4" CONTROL-C IS USED, THE CONTENTS">" OF YOUR WORD LIST MAY BE LOST."H9:1:958:"INSERT THE STUDENT PRESENTATION"J"DISKETTE ON WHICH THE WORD LIST"L"IS/WILL BE SAV0:S(2)0!(15872)44S(2)1S(16128)44(16128)24(16128)8S(1)1\LP0rS(1)S(2)LP1|::" VOCAB TEACHER " "WORD LIST BUILDER FOR THE VOCAB PACKAGE" :"NOTE: A CONTROL-C SHOULTRAILER MESSAGE. v35,24:22:958::"-PRESS ONLY TO RETURN":" TO MODIFY SUBOPTION LIST.";:35,21:1: BEGINNING OF PROGRAM - INITIALIZATION. D$(4):C$(13): SET UP CL$=CLOSE ALL FILES.CL$C$D$"CLOSE"S(1)ET COLUMN WIDTH.!.13:1:958;8"HIGH OR LOW SPEED?"tB"PRESS FOR HIGH, FOR LOW: ";:16368,0:GT$LGT$"L"ĺ"LOW":802,82:818,82:PS1:VGT$"H"Ė1:20:"PRESS OR PLEASE.":12:1080`"HIGH"jPS1: MODIFY 45;10:1:958:"WHERE SHOULD THE ";RN$;" BE PRINTED?"y"PRESS <1> FOR SLOT 1, <2> FOR SLOT 2: ";:16368,0:GT$GT$"1"GT$"2"1039GT$:S(GT$)S11130:LOAD PRINTER ROUTINE.:DA768939:DE:DA,DE:$823,75::S368,0:GT$:GT$" "ī1011*16368,0:K PRINTER INITIALIZATION. YLP10351:10:958:"THERE IS NO PRINTER ATTACHED":"TO YOUR APPLE."1010 :3490 PS1ı::IF ALREADY SET. S(1)S(2)1039 S1:S(2)1S210. KEYSER, ANALY. *- ** DAVID E. LADEN *H +* RON R. GEISER *c ,* TIES, 11/81 *~ .* * 0********************* : 2000  PRESS KEY ROUTINE. 24:" PRESS SPACE BAR TO CONTINUE:";16 * * PROGRAMMED BY: *: * JAMES A. HENKE *U * TIES, 12/79 *p * R. CHRISTIANSEN * * TIES, 7/80 * * & DAVID E. LADEN * * TIES, 6/80 * &* * (* REVISED BY: * )* EITTEN BY: *, * SCOTT COSTELLO *G * TIES, 7/77 *b * *} * APPLE II * * CONVERSION AND * * ENHANCEMENTS * * DESIGNED BY: * * DANIEL M. FORDE * * ANALYST, TIES * "* OBTAIN THE *9 ,* RESULTS OF THE *T 6* SPELL PROGRAMS. *o @* * J* ORIGINAL TIME- * T* SHARE PROGRAM * ^* DESIGNED BY: * h* DANIEL M. FORDE * r* ANALYST, TIES * |* WRPLESOFT BASIC ** * *E * DESCRIPTION: *` * THIS PROGRAM *{ * BUILDS THE * * NECESSARY FILES * * FOR THE VOCAB * * PACKAGE. IT * * ALSO ALLOWS THE * * TEACHER TO /<d*********************7n* *Rx* COPYRIGHT 1981 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB TEACHER ** ** LANGUAGE: * * AP                                  AT LESSON OR WORD LIST. TRY AGAIN.";:10000::34,0:35,20::76P105c'G71999::1'24:" PRESS SPACE BAR TO CONTINUE.";:16368,0'(16384)16010005'16368,0'24:1:868:1:1:D00:105XRE8ė:"INSERT THE DISKETTE, AND CLOSE THE DISK DRIVE DOOR...":10000:105RE10RE13ė:"YOU MAY NOT DELETE THAT LESSON OR WORD LIST. PLEASE ENTER ANOTHER NAME.";:10000::34,0:35,20::76GRE6ė:"SORRY, I CAN NOT FIND THSKETTE.":10001 f104- gD$;"RUN HELLO"= h(7);:101J i34,20:T n200h xD$"DELETE "NN$s }216,0 34,0:35,20:76 RE(222):216,0RE4ė:"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM THE EDGE OF THE DISKETTE.":100M34,19:35,24: N24:"(TYPE 'DONE' WHEN DONE.)";:1:1 P21:868:"WHAT IS THE NAME OF THE LESSON":"OR WORD LIST YOU WISH TO DELETE?";NN$:NN$""80 ZA((NN$,1)):A65A9080 dNN$"DONE"105 e::10:"INSERT THE TEACHER UTILITIES DID$;"CLOSE":216,0:74I E216,0:(222)5ĺD$;"DELETE MIC.CAPITALS QUIZ"R F72 GD$;"OPEN VOC.SEASONS":D$;"READ VOC.SEASONS":V$:D$;"CLOSE":216,0:74 H216,0:(222)5ĺC$;D$;"DELETE VOC.SEASONS" I(7);:66 J35,20 L:D$"CATALOG" "Y"YN$"N"Ģ23:"('YES' OR 'NO' PLEASE.)":50A <:YN$"Y"66T >D$"RUN HELLO"Z A B::10:"INSERT THE STUDENT PRESENTATION"::"DISKETTE YOU WISH TO CLEANUP.":10001 C69 DD$;"OPEN MIC.CAPITALS QUIZ":D$;"READ MIC.CAPITALS QUIZ":T$:THIS PROGRAM ALLOWS YOU"::"TO DELETE OLD LESSONS" -:"AND WORD LISTS THAT"::"WERE CREATED WITH THE"::"MICRO QUEST GRAPHICS,"::"MICRO QUEST TEXT, AND"::"VOCAB TEACHER PROGRAMS."/ 220:868:"DO YOU WANT TO DO THIS? ";YN$:YN$(YN$,1):YN$ PROGRAM: CLEANUP T GREATLY REVISED BY: TIES FOR USE WITH QAV  LAST UPDATE: 11/18/81 EARL KEYSER  (C) MECC, 1979 D$(13)(4)D$"NOMONC,I,O"::2:13:"C L E A N U P"&33,30:32,63 (6:"               ׍ĠύōҤΠϠԢҤŠϠԢԲԠҤŢč΍׍ңԠŮŠҮŮԠ ԠӠŠҠϠźŠԠԤƠԤΠŠ  ԠԠŠҠӠŮԠ ԠӠŠҠϠà  ԠԠŠԠΠԠŠՠȠϠǮԠ ԠӠŠҠϠźԠƠΠԠŠԠҤǢРԠҤΠϠԠӢƠРΠԠҤΠϠԠԢƠРΠԠҤΠ ҢƠРΠԠҤΠТƠРΠŠĠРԠЩΠ ԠŠŠҠΠŠŠ  ԠӠŠҠϠ٠κŠԠԤƠԤΠϠƠРΠӢԠ ԠĢ  ̠ԠȠ͠ϠՠԠϠ΢ŠԠԤƠΠԤΠР̠ԤƠРĠРԠϠԠӢԠ ԠϠԠԢԠ Ԡ ҢԠ ԠǢԠ ԠТԠ ԠĠԠήŠҠؠϠƠˠΠԠŠ  ԠҠӢԠ ԠҠϠԠĠ¢  Ԡé٠̢   ڤӠǠԠĮ   ԠŠӠΠӠŠ٠Ԣ  ԠŠՠԠҠϠԠĠ®  ڤϠԠӢ   ڤϠԠԢ   ڤ Ң   ڤԠҠؠϠ Ԡ Ԡ ԠԠ؍ Ԡ Ԡ̠ ԠҢ ԠӢ  Š ԠԠԠӠԠԠԠŠ  Ԡ Ԡ ҠŮҠؠϠΠڤԠĤڤجҠؠϠàˠԠҠؠϠԠԠ؍ҠؠϠԠΠ͠ǠƠͮԠ͠͠Ġٺ̠̮͠Ҡ͠Ӭ͠͠͠ҠϠϠ͠Ӡˮ͠͠Ġٺ͠ĠŮΠ͠Ӭ͠͠Ġٺ͠ĠŮΠ͠Ӭ͠ź͠Ԡà͠͠κ͠Ϡ͠͠ҠŠϠ͠ԠĠ ͠Ҡ͠ԍ͠͠͠Ԡ͠٠Ӯ͠͠͠ź͠Ϡ͠٠ĠΠŠˠŮԠ ԠӠŠҠϠźԠƠΠϠԠàҽˠԠ̠ҠҢĠӠŠҠϠźŠԠԤƠԤΠŠңԠҠˠƠҠΠŠ  ԠŠŠŠҠӠˠԠӠԠӠپҠӬξҠϺŠԠԤƠԤ΢ΠŠԠԠҤТƠԤ٢ΠŠ ԠԠŠŠՠȠϠή ԠԠ ̠Ӯ ԠӠŠҠϠźŠԠԤƠԤΠϠԠŠ  ԠϠՠԠϠΠҠſԠĠҠӠȢԠҠԠӮԠԠ ҢԠӠŠҠϠŬԠԬĠ٠ĠӢԠҠŠ٠ӠȠŢԠԬĠ٠΢ԠĠҠӠȢԠŠӮԠԠϠԠԢԠӠŠҠϠŬԠԬĠ٠΢źԠƠΠϠƠРΠ  ̠ ԠӢԠԠϠԠӢԠӠŠҠϠŬICONTINUE:";:A$:A$" "10010('2300`$'"CATASTROPHIC ERROR="(222):"TELL YOUR TEACHER":wpO_X_lfW_{_>fwooq?ow?o@?x?~>{m?_Uv?G_@X~nx1{~?G_ |~?_>{m7]?_?|k{o;_ow[o{?>_ox? }xc}>}~_~{}w?X_{{?ww~_>wv{?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{on{wpg_X_nvW_{]_~nwoo|?ow?o@G?xx>{m?_mv_??`@?`@?W~v[k>w-w.{~?> x`\o~`O0?~}~?_>{m7=?_qwlw`\o<~`ox?a@}xx}>}~_~{A|?8o{;?o{~_}~.wvs?x?ocO}{o_nn~{v{nn{{wn{gxs_X_nfWO{]_>nwOo?~?og?o@q?|C>{m?_}~g?@~`?@_O~zog>{K/{~`wn7@??~>{o7_ow[o{}?_o88`}~?`>n7@}~?~~gox?O}x~}>}~_~{}{?|p{{@|~?~~1wvw?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xq`~ox_8onV;W[]_]nw_ox?|go?~o@|?p>{m?_}v{?ppx?X_~zoo>{k/?{~?_k{m7}~?~>{o7owo}?Oox<@}~??|_Oox?g}xG}>}~_~{}{?g~xA?o/wu>o{{^o_k~s}wg?|{_wxo?~_|pn6|Xg]_cnw_opg?xwo~o@_~{~?g]{m?_}v}?~~~?~PO>zog>{k/{~?_]{m7}~?|>{o7ow[n~?Wox>?|}?~?xp~@|_>?7{ox?s}|q}>}~_~{}w{?o~xA?oOoy]_{??oogO{}qqpnpqan`{qq{wqq`}Owsownw_opq?xgO|O@_~{~?k{m?_}v~?|x~0W]v[k6wmo.{~?_>{o7}~?y>x`ow[m?[ox?q?@}|?}8p~p`|?8ok=?o{z^>?Wt?~Ox?x|}??p~~`|?O|xA?ooo}@n?_}xA_y_@_8{~??~wp`}xxs~xXc{0p?c>{o~_ow[ko?]oxG?G|}x}>}~_~{}w{?X_s;ww|_>?gv|_x?o~?~}?_}xA?ooo}];?oogy{s~nnun{~n{{nn{w?~oxp67\_{]qcfwgog?wox?o@?~?x>{m?_9v>_`_@_~{~?p_0G~~?_{o7m?]{o}_ow[gw?^ox?>pp}xO}>}~_~{}w?X_{{@ww~_>?wvyx?o`}?_yxA?ooo}={{^o^k|sg~np{p{~`{{aq{wxO8oJV[_{]n]v