' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(q `Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`C> TO IGNORE THIS":&> " SECTION AND RETURN TO THE MENU,"a&H "-PRESS ONLY TO ADVANCE"&R " WITHIN THIS SECTION.";&\ 35,20&f L124&p 5:L16:1010&z (I$)03490& L$(L1)I$:1310& & 3510& II$(27)4230' LL4L125);"]"% 35,24:21:1:958G% "-PRESS ONLY TO IGNORE THIS"p% " SECTION AND RETURN TO THE MENU.";{% 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 QUIT"56" AND RETURN TO THE MENU.";61:5:868:16368,0:"LINE NUMBER TO LIST FROM: ";GT$:(GT$)042306LS(GT$)6LS0(LS)LS7140615:"LINE NUMBER MUST BE A POSITIVE INTEGER."61970670307: FIND PLACE 6,0:(222)5Ħ5 944N515:"LINE NUMBER ";NL;" DOES NOT EXIST.";:958]5FL3:1490g5(1970m52w5<60105X LIST OPTION. 5b15:1:"PREPARING FILE.....PLEASE WAIT.";:958:34,165lO$:R$:T:D$5v34,3:5236"-PRESS ONCONTENTS OF THE LINE.";5410:1:868:"OLD LINE:"Y44);(91);25(NL20)5);"]";f45:1610~413:1:"NEW LINE:"44);(91);25(NL20)5);"]";45:10104II$(27)I$T$4W$;".TEMP":(34);I$;(34):D$4OLNL:6020521I$:D$:T$I$'3`216,0:34,3:6:958Z3j: SET LINE LENGTH DEPENDING UPON LINE NUMBER.r3tLL20:NL20LL253~21:"-PRESS ONLY TO IGNORE CHANGE"3" AND RETURN TO THE LINE NUMBER PROMPT,"3"-PRESS ONLY TO DELETE THE"4" E A POSITIVE INTEGER." 21970*26020:2NLOL6160I2FL1:1410S21360215:"READING/COPYING FILE.....PLEASE WAIT.";:958:34,16264002$OL1NL62302.L1OL1NL128R$:I$2BW$;".TEMP":(34);I$;(34)2LD$: 3VR$:N. 1z13601:23;1"-PRESS ONLY TO QUIT"\1" AND RETURN TO THE MENU.";11:5:868:16368,0:"LINE NUMBER TO CHANGE: ";GT$:(GT$)060801FL2:1410142301NL(GT$)1NL0(NL)NL6130215:"LINE NUMBER MUST BBER OF BLANK LINES WERE ADDED"G0"TO THE END OF THE FILE TO FIX THE"U0"ERROR."0:"USE THE 'LIST' AND 'CHANGE' OPTIONS"0"TO EXAMINE AND CORRECT THESE LINES."024:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$0:1p CHANGE OPTIO1))(54(T2))8/LQ(L204(T1))(LQ)(54(T2))G/LQ03030]/LQ(54(T2))LQ}/W$:L11LQ:(34);(34):/D$:LLL1:5330/3030/: PRINT MESSAGE RE ERRORS ON FILE./12:"THERE WAS AN ERROR ON YOUR FILE."0::"A NUMW$:L1L110:(34);(34):/.(D$:L10:5330D.2L10PF2:2670S.<L195210u.FW$:L1L120:(34);(34):.PD$:L20:5330.ZL202870.d(T1L24)(T2L20)5250.nW$:L1L124:(34);(34):.xD$:L24:5330/LQ(L204(T4,16 -L0-O$:R$:T:D$=-: FIND LAST LINE NUMBER.H-5080P-R$d-I$:LL1:5070|-216,0:(222)5Ħ-944-O$:P$;L1-34,3-: FIND PLACE TO ADD AND IF MISSING LINES, ADD NULL LINES.- L02650-L95170.INSERT TEACHER UTILITIES VOL. 2 DISKETTE"u, 23:5:"PRESS 'SPACE BAR' TO CONTINUE":16368,0:16384,128:16368,0, ::10:"GETTING THE MENU...",(13)(4);"RUN HELLO",4250, ADD OPTION. -15:"PREPARING FILE.....PLEASE WAIT.":310:"LIST":10:"NEWFILE"7+10:"PRINT":10:"STOP";T+20:":";:16368,0:GT$s+GT$"A"LF0ĺ"ADD":5010+GT$"C"LF0ĺ"CHANGE":6010+GT$"L"ĺ"LIST":7010+GT$"N"2080+GT$"P"ĺ"PRINT":8010+GT$"S"4370), ::12:"TIONS.">*h24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$*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"+ING ROUTINE FOR WRITE PROTECT OR LOCKED FILE.?)216,0:10:1S)(222)44150|)""YOUR DISKETTE IS WRITE PROTECTED."),4170)6(222)10Ħ)@"YOUR FILE IS LOCKED.")J994)T:"YOU WILL BE UNABLE TO USE THE"*^"'ADD' AND 'CHANGE' OPL$(L1);(34)::D$(832105( DISPLAY HEADING. j(:"FILE NAME - ";F$:"LESSON FORMAT - ";T:34,3(: CHECK FOR WRITE PROTECT OR LOCKED FILE.(4100(O$:R$:T(O$:W$:T:D$(CL$(216,0(LF0(4230-): ERROR HANDL:1310' T13600 ' L1583' 5:L18:1010E' (I$)03580Y' L$(L1)I$:1310_' i' 3600}' II$(27)4230'LL7L1:1310'5:13((T2)6):1010'(I$)0II$(27)4230'$L$(5((T2)4))I$(.W$:L115((T2)4):(34);16368,0:GT$ 2200% D$:216,09 (222)42550f 17:"YOUR DISKETTE IS WRITE PROTECTED." :"IF YOU WANT TO CREATE A NEW FILE," "INSERT A DISKETTE THAT IS NOT WRITE" "PROTECTED AND RERUN THIS PROGRAM."B :23:"PRESS 'SPACE BEAD MIC."F$)L W$C$D$"WRITE MIC."F$OV P$C$D$"POSITION MIC."F$", R"Z` 2480oj O$:R$:T:TT2~t D$:216,0~ T1T24010 17:"THAT FILE IS NOT A" "MICRO QUEST TEXT VERSION FILE."  24:"PRESS ANY KEY TO TRY AGAIN: ";:40.17:"ILLEGAL CHARACTERS IN FILE NAME."Z :"CONTROL CHARACTERS ARE NOT ALLOWED"q "IN A FILE NAME."{ 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$"R36,104,176DCV'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,88Cj'32,168,252,169,0,133,36,173,2,3,240,9,237,1,3,233,247,144Ct'4,105,31,133,36,104,96,108,3,3U,153HB.'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,144BB'14,173,231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145 CL'42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,------------------":Ap!84107Az!216,0:(222)5Ħ@A!944kA!::"END OF LISTING":D$;"PR#0":4230A' DATA FOR PRINTER ROUTINE. A'2,40,0,5,34,24,176,56,152,72,172,0,3,8,169,5,141,3B$'3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17I$:LL1;".";4((LL1)(10)));:17105@ :LL4;@!I@ !T18520b@!"POSSIBLE CHOICES:"n@ !L114@*!I$:LL1;".";4((LL1)(10)));:1710@4!:LL4@>!@H!LL1@R!"ANSWER:"@\!I$:L;".";4((L)(10)));:1710Af!:"-------- ?v L20? T283900? "POSSIBLE CHOICES:"K? "-----------------":Y? L12124? I$:L1;".";4((L1)(10)));:1710? ::? L24? "QUESTION & ANSWER SECTIONS:"? "---------------------------":? "QUESTION:"? L114)@ ::> 8570K> : DOUBLE NESTED FOR/NEXT LOOPS BOMBED WHEN USED HERE.S> P0]>& PP1}>0 "INSTRUCTION PAGE #";P;":">: "--------------------":>D L1110>N I$:L110(P1);".";4((L110(P1))(10)));:1710>X >b :?l P28230S1%=15:"PRESS ANY KEY WHEN YOU"W="ARE READY FOR THE OUTPUT: ";:16368,0:GT$=20:1:"THE FILE IS NOW BEING PRINTED.........."=775=O$:R$:T="FILE NAME - ";F$:"LESSON FORMAT - ";T=DA117((F$)5)((F$)5):"-";:> CARD IN SLOT 2.)0 FOR HIGH, FOR LOW: ";:16368,0:GT$<GT$"L"ĺ"LOW":802,82:818,82:8110<GT$"H"8060<"HIGH"=P:L;".";6);:1610#;C$;D$:1810-;7500S;216,0:D$:(222)5(222)2Ħ\;944u;:"END OF LISTING."; 1970;34,3:;7010;@ PRINT OPTION. ;JPS18120;T: POKE IN PRINTER ROUTINE.<^: (FOR USE WITH A COMMUNICATIONSR$:`7:"QUESTION:"$:jL114J:tL17:I$:1:LL1;".";6);:1610V:~:LL4d:T17610:13:"POSSIBLE CHOICES:":L114:L113:I$:1:LL1;".";6);:1610::LL4:LL1:13((T2)6):"ANSWER:";14((T2)6):I$:1290 9L209T2748059:"POSSIBLE CHOICES:"N9"-----------------"V9R$b9L1149L16:I$:1:LL1;".";6);:161099$L249.C$;D$:181098:"QUESTION & ANSWER SECTIONS:"9B"---------------------------":34,69L:V$;LQ8\LLLQ8f7480T8p: DOUBLE NESTED FOR/NEXT LOOPS BOMBED WHEN USED HERE.^8zPP18:"INSTRUCTION PAGE #";P;":"8"--------------------"8R$8L11108L16:I$:1:L1(P1)10;".";6);:161088C$;D$:18109P27IN FILE TO LIST FROM.D715:"READING FILE.....PLEASE WAIT";:958O77660e7LS10P0:7290p7P$;107 LS20P1:72907P$;107 LS24T173807*L2074T1ĺP$;4:L247>T1LQ(LS5)5257HT2LQ((LS3)9)9188RP16368,0:GT$,)GT$"A"LF0ĺ"ADD":5010N)GT$"C"LF0ĺ"CHANGE":6010i)GT$"L"ĺ"LIST":7010{)GT$"N"2080)GT$"P"ĺ"PRINT":8010)GT$"S"4370) ::12:"INSERT TEACHER UTILITIES VOL. 2 DISKETTE".* 23:5:"PRESS 'SPACE BARF1:: SET TO LIMITED OPTIONS DUE TO WRITE PROTECT OR LOCKED FILE.[(| GET NEXT OPTION. d(CL$u(34,3:35,24(:"OPTION:";(LF14280(10:"ADD":10:"CHANGE"(10:"LIST":10:"NEWFILE"(10:"PRINT":10:"STOP"; )20:":";:(222)441508'""YOUR DISKETTE IS WRITE PROTECTED."B',4170T'6(222)10Ħp'@"YOUR FILE IS LOCKED."y'J994'T:"YOU WILL BE UNABLE TO USE THE"'^"'ADD' AND 'CHANGE' OPTIONS."'h24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$B(rLF$:"LESSON FORMAT - ";T:34,3M&: CHECK FOR WRITE PROTECT OR LOCKED FILE.X&4100m&O$:R$:T:TT2&O$:W$:T2: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. &:"FILE 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$" SECTION AND RETURN TO THE MENU.";/# 35,20Q# L115((T2)4):L$(L1)"":a# 5:7:1010s# (I$)04230# L$(1)I$:1310#* 35,24:21:1:958#4 "-PRESS ONLY TO IGNORE THIS"#> " SECTION AND RETURN TO THE MENU,"$H "-PRESS ONLY1310" 6:1:"QUESTION:">" L114:4);(91);40);"]";:O" T3270,3250j" :"POSSIBLE CHOICES:"" L114:4);(91);40);"]";:" :"ANSWER:"" 4);(91);40);"]";" 35,24:21:1:958" 21:"-PRESS ONLY TO IGNORE THIS"$# );"4TH LINE OF CHOICES";40);"]";2!X :"ANSWER:"[!b 4);(91);"CORRECT ANSWER";40);"]"!l 24:1:"PRESS ANY KEY TO BEGIN : ";:16368,0:GT$!v ENTER QUESTION & ANSWER SECTIONS. ! LL35:: SET LINE LENGTH FOR QUESTION/ANSWER SECTIONS." :40);"]";9  4);(91);"4TH LINE OF QUESTION";40);"]";J  T3160,3110e & :"POSSIBLE CHOICES:" 0 4);(91);"1ST LINE OF CHOICES";40);"]"; : 4);(91);"2ND LINE OF CHOICES";40);"]"; D 4);(91);"3RD LINE OF CHOICES";40);"]";!!N 4);(91 SECTIONS. : :"THE APPLE WILL GIVE YOU THESE PROMPTS"e "FOR THE QUESTION & ANSWER SECTIONS."y 7:"QUESTION:" 4);(91);"1ST LINE OF QUESTION";40);"]"; 4);(91);"2ND LINE OF QUESTION";40);"]";  4);(91);"3RD LINE OF QUESTION";5h LL35: : SET LINE LENGTH FOR POSSIBLE CHOICES. Ar L114T| L17:5:1010f (I$)02990z L$(L1)I$:1310  3000 II$(27)4230 W$:L114:(34);L$(L1);(34)::D$ L24  DISPLAY STRUCTURE FOR QUESTION & ANSWER(27)42304 W$:L1110:(34);L$(L1);(34)::D$H P2L10:2700Q" L20, ENTER POSSIBLE CHOICE SECTION IF FORMAT 1. 6 T23030@ :1910:1310J 6:1:"POSSIBLE CHOICES:":T L114:4);(91);40);"]";:^ L114:L$(L1)"":  1310. 6:1:"INSTRUCTION PART #";P:b LL35:: SET LINE LENGTH FOR INSTRUCTION PARTS. L1110:4);(91);40);"]";: L1110:L$(L1)"": L1110 L17:5:1010 (I$)02820 L$(L1)I$:1310  2830  II$D$1F :"FILE NAME - ";F$:"LESSON FORMAT - ";TUP ENTER INSTRUCTION SECTIONS. yZ PF1:: SET STARTING PART TO 1.d L0:: SET LINE COUNTER TO ZERO.n 34,3::1910x : DOUBLE NESTED FOR/NEXT LOOPS BOMBED WHEN USED HERE. PPF1 PP1AR' TO CONTINUE":16368,0:16384,128:16368,0:(4);"RUN HELLO"S (222)5Ħ\ 944 LF0:: SET ALL OPTIONS AVAILABLE. 16:1:868 "LESSON FORMAT (1 OR 2) ";:16368,0:GT$:GT$( GT$"1"GT$"2"25802 T(GT$)< W$:T2::"END OF LISTING"9 1970(934,3:297010H9@ PRINT OPTION. W9JPS18120w9T: POKE IN PRINTER ROUTINE.9^: (FOR USE WITH A COMMUNICATIONS CARD IN SLOT 2.)9h:DA768939:DE:DA,DE:9r823,75:: SET COLUMN WIDTH.:|12:1:958:10813:"POSSIBLE CHOICES:"+8L114R8L113:I$:1:LL1;".";6);:1610^8:LL4h8LL1813((T2)6):"ANSWER:"814((T2)6):I$:1:L;".";6);:16108C$;D$:1810875008216,0:D$:(222)5(222)2Ħ89449&7L16:I$:1:LL1;".";6);:1610,757$L24F7.C$;D$:1810k78:"QUESTION & ANSWER SECTIONS:"7B"---------------------------":34,67L7VR$7`7:"QUESTION:"7jL1147tL17:I$:1:LL1;".";6);:16107~:LL48T176:"INSTRUCTION PART #";P;":";6"--------------------"C6R$P6L1110|6L16:I$:1:L1(P1)10;".";6):161066C$;D$:18106P272906L206T274806:"POSSIBLE CHOICES:"6"-----------------"6R$7L11472905P$;10%5 LS20P1:729005P$;10E5 LS24T17380N5*L20b54T1ĺP$;4:L24{5>T1LQ(LS5)5255HT2LQ((LS3)9)9185RP$;LQ5\LLLQ5f74805p: DOUBLE NESTED FOR/NEXT LOOPS BOMBED WHEN USED HERE.5zPP16LIST FROM: ";GT$:(GT$)04230-4LS(GT$)E4LS0(LS)LS7140x415:"LINE NUMBER MUST BE A POSITIVE INTEGER."41970470304: FIND PLACE IN FILE TO LIST FROM.415:"READING FILE.....PLEASE WAIT";:958476605LS10P0:0323<6010&3X LIST OPTION. b3b15:1:"PREPARING FILE.....PLEASE WAIT.";:958:34,16{3lO$:R$:T:TT2:D$3v34,3:3233"-PRESS ONLY TO QUIT"3" AND RETURN TO THE MENU.";41:5:868:16368,0:"LINE NUMBER TO 5:1610213:1:"NEW LINE:"824);(91);40);"]";I214:5:1010^2II$(27)I$T$2W$;".TEMP":(34);I$;(34):D$2OLNL:60202216,0:(222)5Ħ2 944215:"LINE NUMBER ";NL;" DOES NOT EXIST.";:9582FL3:14903(197R CHANGE OPTION.1tLL35H1~21:"-PRESS ONLY TO IGNORE CHANGE"v1" AND RETURN TO THE LINE NUMBER PROMPT,"1"-PRESS ONLY TO DELETE THE"1" CONTENTS OF THE LINE.";110:1:868:"OLD LINE:"14);(91);40);"]";211:1:141001360Q015:"READING/COPYING FILE.....PLEASE WAIT.";:958:34,16\06400n0$OL1NL62300.L1OL1NL108R$:I$0BW$;".TEMP":(34);I$;(34)0LD$:0VR$:I$:D$:T$I$0`216,0:34,3:6:9581j: SET LINE LENGTH FO" AND RETURN TO THE MENU.";c/1:5:868:16368,0:"LINE NUMBER TO CHANGE: ";GT$:(GT$)06080r/FL2:1410|/4230/NL(GT$)/NL0(NL)NL6130/15:"LINE NUMBER MUST BE A POSITIVE INTEGER."/1970/6020/NLOL61600FLX THE"."ERROR."A.:"USE THE 'LIST' AND 'CHANGE' OPTIONS"l."TO EXAMINE AND CORRECT THESE LINES.".24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$.:.p CHANGE OPTION. .z1360.:23."-PRESS ONLY TO QUIT"/03030-LQ(54(T2))LQ<-W$:L11LQ:(34);(34):Q-D$:LLL1:5330[-3030-: PRINT MESSAGE RE ERRORS ON FILE.-12:"THERE WAS AN ERROR ON YOUR FILE."-::"A NUMBER OF BLANK LINES WERE ADDED"."TO THE END OF THE FILE TO FI670,<L1952104,FW$:L1L120:(34);(34):G,PD$:L20:5330V,ZL202870x,d(T1L24)(T2L20)5250,nW$:L1L124:(34);(34):,xD$:L24:5330,LQ(L204(T1))(54(T2)),LQ(L204(T1))(LQ)(54(T2))-LQ5080+R$#+I$:LL1:5070;+216,0:(222)5ĦD+944T+O$:P$;L1^+34,3+: FIND PLACE TO ADD AND IF MISSING LINES, ADD NULL LINES.+ L02650+L95170+W$:L1L110:(34);(34):+(D$:L10:5330,2L10PF2:2' TO CONTINUE":16368,0:16384,128:16368,0Q* ::10:"GETTING THE MENU..."m*(13)(4);"RUN HELLO"w*4250* ADD OPTION. *15:"PREPARING FILE.....PLEASE WAIT.":34,16*L0*O$:R$:T:TT2:D$*: FIND LAST LINE NUMBER.+0:0:0:0:D$# NN1:2:23:N;- 3040; O$:W$;0a "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 OPTIONS.  3360 R$;0"B$(B$,1,C1):3150db (B$)24Ģ10:958:13:"ENTER 24 CHARACTERS OR LESS, PLEASE.":10:3140sl C1(B$)v (B$,C,1)" "(B$,C,1)"A"(B$,C,1)"Z"Ģ10:958:13:"USE LETTERS AND SPPACES ONLY, PELASE.":10:3140  W$;N1:A$:B$:3050 C1(A$)~ (A$,C,1)" "(A$,C,1)"A"(A$,C,1)"Z"Ģ7:958:13:"USE LETTERS AND SPACES ONLY, PLEASE.":3050& 0 T2$"N"B$"":3210: 10:958D "INCORRECT":"SPELLING: ";:868:"";B$N C(B$):C03240X (B$,C,1)" GET TRAILER FOR MODIFY SUB-OPTION.1 2:23:N;O :"WORD SET NUMBER ";N1} 7:"CORRECT":"SPELLING: ";:868:"";A$ C(A$):C03240 (A$,C,1)" "A$(A$,1,C1):3060 (A$)24Ģ7:958:13:"ENTER 24 CHARACTERS OR LESS, PLEASE.":TA$:D$>@ : RETURN TO MODIFY SUB-OPTION IF NOT A NEW FILE.MJ NF03820hT : RESET FILE FOR ADD.p^ O$ ADD OPTION.  23:958:"-PRESS ONLY TO QUIT":" ENTERING WORDS.";:35,21:3030: :GET TRAILER FOR BUILD. " :1510::G = YES. 15:35:868:T2$B 17:"ALLOW STUDENTS TO ALTER"p "TIMES DURING RUN?";28);TA$;35);:868 GT$:(GT$)02860 (GT$,1,1)"Y"(GT$,1,1)"N"2810" TA$(GT$,1,1), 18:35:868:TA$6 W$;0:"VOCAB":N:T1:TS:T2$:";28);T1;35);2 GT$:(GT$)0Ģ13:868:2720Q (GT$)0T1((GT$).5)g 13:35:868:T1 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 FLATER"Z "A NEW VALUE."8d :25:"PRESENT";34);"NEW"Vn 26:"VALUE";33);"VALUE"x 11:"SCRAMBLE RESPONSE TIME";28);TS;35); GT$:(GT$)0Ģ11:868:2680 (GT$)0TS((GT$).5) 11:35:868:TS 13:"SPELL1 RECOGNITION TIME44,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88uAj'32,168,252,169,0,133,36,173,2,3,240,9,237,1,3,233,247,144At'4,105,31,133,36,104,96,108,3,33169,40,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144{@B'14,173,231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145@L'42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176@V'3,72,169,160,44,98,3,240,3,238,2,3,8,32,169,3,40,1046A`'72,1 OF LISTING":D$;"PR#0":4230??' DATA FOR PRINTER ROUTINE. w?'2,40,0,5,34,24,176,56,152,72,172,0,3,8,169,5,141,3?$'3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153?.'248,7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,1928@8'CES:"> !L114?>*!I$:LL1;".";4((LL1)(10)));:1610K>4!:LL4Q>>![>H!LL1j>R!"ANSWER:">\!I$:L;".";4((L)(10)));:1610>f!:"-----------------------------------------":>p!8410>z!216,0:(222)5Ħ>!944?!::"END I$:L1;".";4((L1)(10)));:16100= ::9= L24\= "QUESTION & ANSWER SECTIONS:"= "---------------------------":= "QUESTION:"= L114= I$:LL1;".";4((LL1)(10)));:1610= :LL4=!= !T18520>!"POSSIBLE CHOI <0 "INSTRUCTION PART #";P;":"><: "--------------------":K FOR HIGH, FOR LOW: ";:16368,0:GT$x:GT$"L"ĺ"LOW":802,82:818,82:8110:GT$"H"8060:"HIGH":PS1:15:"PRESS ANY KEY WHEN YOU":"ARE READY FOR THE OUTPUT: ";:16368,0:GT$*;20:1:$:N1:T1:TS:T2$:TA$:D$,.nNN1:34,36.x5030C.35,24:l.10:"THERE ARE NO WORDS TO DELETE."v.1010.3820.| RESET OPTION. .N05610.:1510: :GET TRAILER.i/:"THE RESET OPTION INITIALIZES THE USAGE":"STATISTICS FOTRAILER.*- :1510::GET MODIFY TRAILER.7-4:5050L-958:19:34,19^-(R$;C:A$:D$r-2CC1:CN5210-<R$;C:B$:C1$:TC:TD:TE:TF:D$-FW$;C1:B$:C1$:TC:TD:TE:TF:D$-P5170-ZR$;0:A$:N:T1:TS:T2$:TA$:D$.dW$;0:A,"ENTER WORD SET NUMBER: ";:868:16368,0:GT$F,(GT$)03820V,C((GT$))q,CNC1C(C)5150,CNĢ20:"THAT WORD SET DOES NOT EXIST.":5120,20:"WORD NUMBER MUST BE A POSITIVE INTEGER."-35,24:958:1010::GET PRESS KEY 0:0:D$+4020 +35,24:I+10:"THERE ARE NO WORDS TO CHANGE."S+1010]+3820t+ DELETE OPTION. +N05250+:1510: :GET TRAILER.+2:23:N;:868:::GET HEADER.+N03820+"WHICH WORD SET DO YOU WISH TO DELETE?"3D1):4450X*v(BB$)24Ģ16:958:20:PRIN"ENTER 24 CHARACTERS OR LESS, PLEASE.":4430h*D1(BB$)*(BB$,D,1)" "(BB$,D,1)"A"(BB$,D,1)"Z"Ģ16:958:20:"USE LETTERS AND SPACES ONLY,PLEASE.":4430**B$BB$ +W$;C:A$:B$:0:0:" SPELLING UNALTERED, AND TO RETURN TO"O)&" WORD SET SELECTION.";:35,21:1])013:958r):"OLD INCORRECT")D"SPELLING: ";B$)N16:958:"NEW INCORRECT")X868:"SPELLING: ";BB$:958)bD(BB$):D04520 *l(BB$,D,1)" "BB$(BB$,1, LESS, PLEASE.":4260%(D1(AA$)((AA$,D,1)" "(AA$,D,1)"A"(AA$,D,1)"Z"Ģ10:958:13:"USE LETTERS AND SPACES ONLY, PLEASE.":4260((A$AA$(T2$"N"4520(35,24:22:958("-PRESS ONLY TO LEAVE INCORRECT"()SELECTION.";'|35,21:1''7:958:'"OLD CORRECT"O'"SPELLING: ";A$f'10:"NEW CORRECT"'868:"SPELLING: ";AA$:958'D(AA$):D04350'(AA$,D,1)" "AA$(AA$,1,D1):4280((AA$)24Ģ10:958:13:"ENTER 24 CHARACTERS OR4:4040&,R$;C:A$:B$:D$2&635,24:22:958I&@T2$"N"Ģ23:4210v&J"-PRESS ONLY TO LEAVE CORRECT"&T" SPELLING UNALTERED, AND TO MOVE TO"&^" INCORRECT WORD ENTRY.";&h4220 'r"-PRESS ONLY TO RETURN":" TO WORD SET GT$%(GT$)03820&%C((GT$))A%CNC1C(C)4140u%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::GET MODIFY TRAILER.&":5510$dGT$(13)3490X$n20:1:"PLEASE ENTER AN OPTION IN THE MENU.":4:1:3850o$ CHANGE OPTION. }$N04540$:1510: :GET TRAILER. $$"WHICH WORD SET DO YOU WISH TO CHANGE?"%"ENTER WORD SET NUMBER: ";:868:16368,0:";:20:"ADD"-#20:"CHANGE":20:"DELETE"Q#20:"PARAMETERS":20:"RESET";n#(30:":";:16368,0:GT$#2GT$"A"ĺ"ADD":3020#<GT$"C"ĺ"CHANGE":4010#FGT$"D"ĺ"DELETE":5010#PGT$"P"ĺ"PARAMETERS":35,24:2610$ZGT$"R"ĺ"RESET"t20:1:"PLEASE ENTER AN OPTION IN THE MENU.":4:1:3610`" MODIFY SUB-OPTION SELECTION. ~": RESET FILE AND SCREEN."34,3:35,24::23:"-PRESS ONLY TO QUIT":" AND RETURN TO THE MENU.";"35,21"O$: # "MODIFY SUB-OPTION:"LIST"!$LF0Ė10:"MODIFY"M!.10:"NEWFILE":10:"REPORT":10:"STOP";j!818:":";:16368,0:GT$!BGT$"M"LF0ĺ"MODIFY":3820!LGT$"L"ĺ"LIST":6010!VGT$"R"ĺ"REPORT":6510!`GT$"N"ĺ"NEWFILE":8010!jGT$"S"ĺ"STOP":8010;"010& p LF1::SELECT LIMITED OPTIONS.= z PRINT HEADING. d R$;0:A$:N:T1:TS:T2$:TA$:D$ :"FILE NAME - ";F$:"NUMBER OF WORD SETS - ";N : RESET FILE AND SCREEN. 34,3:35,24: O$  ENTER OPTION. !4:"OPTION:";:10::V$ W$;0:V$:D$ CL$5 LF0:216,0:3460F 216,0::10Z* (222)433904 "YOUR DISKETTE IS WRITE PROTECTED."::3410> (222)10ĦH "YOUR FILE IS LOCKED.":R "YOU WILL BE UNABLE TO USE THE":\ "MODIFY OPTIONS." f 131,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145y>L'42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176 >V'3,72,169,160,44,98,3,240,3,238,2,3,8,32,169,3,40,104>`'72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,884?j'32,168,,40,0,5,34,24,176,56,152,72,172,0,3,8,169,5,141,3p=$'3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153=.'248,7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192=8'169,40,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,1445>B'14,173,2"S"8140B<::12:"INSERT TEACHER UTILITIES VOL. 2 DISKETTE"<23:5:"PRESS 'SPACE BAR' TO CONTINUE":16368,0:16384,128:16368,0<::10:"GETTING THE MENU..."<(13)(4);"RUN HELLO"<2000<' DATA FOR PRINTER ROUTINE. 1='2A$:B$;r(B$)0Ă:8120$;|D$X;::10:"SINCE ALL WORD SETS DO NOT INCLUDE":;"INCORRECT WORDS, THE SPELL2 FLAG":;"HAS BEEN RESET TO ";(34);"N";(34);".";1010::;W$;0:"VOCAB":N:T1:TS:"N":TA$:D$;CL$:: <AA$T1:(:"SPELL2 USAGE FLAG";11);T2$:G:"ALLOW STUDENTS TO ALTER"l:"TIMES DURING THE RUN?";7);TA$::::"END OF LIST.":D$;"PR#0":3490:@ NEWFILE/STOP. :JAA$GT$:CF0T2$"N"N0ĉ::8120:T19:34,19:^CN11;hR$;C:::"FILE NAME - ";F$39C1(F$)12:"-";::P9::"NUMBER WORDS":i9C1N:R$;C:A$:B$9C;9((C)(10)));A$:(B$)0ĺ10);B$9::::"PARAMETERS:":9"SCRAMBLE RESPONSE TIME";6);TS::"SPELL1 RECOGNITION TIME";5);.8::::"END OF REPORT.":D$;"PR#0":3490J8L PRINTED WORD LIST. l8V:INITIALIZE PRINTER ROUTINE.v8`10208j15:958:"PRESS ANY KEY WHEN YOU":"ARE READY FOR THE OUTPUT: ";:16368,0:GT$8t20:1:"HERE IS THE WORD LIST..."8~7759IMES MISSED ON FIRST TRY"87:22);"SPELL1 SPELL2":a7C1N:R$;C:A$:B$:US:UO:MS:MO7A$;24(A$));:US0ĺ"*";7);:71407MS0ĺ0;7):71407(MSUS1000)10;8(((MSUS1000)10)));7UO0ĺ"*":71607(MOUO1000)10 "6b:INITIALIZE PRINTER ROUTINE,6l10206v15:958:"PRESS ANY KEY WHEN YOU ARE":"READY FOR THE OUTPUT: ";:16368,0:GT$620:1:"HERE IS THE REPORT..."67756::"FILE NAME - ";F$6C1(F$)12:"-";::7::"WORD % OF T;C:A$:B$:US:UO:MS:MO:D$<57((C1)((C1)8)8)2[5A$;:25:US0ĺ"*";:6640r5(MSUS1000)10;533:UO0ĺ"*":65805(MOUO1000)1056580510:"THERE ARE NO WORDS TO REPORT."510105"34906X PRINTED REPORT. $:GT$"P"ĺ"P":7010O4GT$"S"Ė1:20:"PRESS OR

PLEASE.":4:6520U44"WORD % OF TIMES MISSED ON FIRST TRY"423:"SPELL1 SPELL2"434,5::C04CC1:CNİ1010:34,3:34904((C1)8((C1)8))(C1)İ1010:5R$";10);A$:10);B$:6080?310:"THERE ARE NO WORDS TO LIST."I31010S33490j3d REPORT OPTION. z3n:N066704x"DO YOU WISH THE REPORT TO APPEAR":"ON THE SCREEN OR ON THE PRINTER?":"PRESS FOR SCREEN,

FOR PRINTER: ";:16368,0:GT

PLEASE.":4:6020222"NUMBER WORDS"B234,4:C0:]2CC1:CNİ1010:34902((C1)5((C1)5))(C1)İ1010:2R$;C:A$:B$:D$2T2$"N"Ģ6((C1)((C1)5)5)2:C;" - ";10);A$:608036((C1)((C1)5)5)3:C;" - 1101013820.1p WORD LIST OPTION. >1z:N061301"DO YOU WISH THE LIST TO APPEAR":"ON THE SCREEN OR ON THE PRINTER?":"PRESS FOR SCREEN,

FOR PRINTER: ";116368,0:GT$:GT$"P"ĺ"P":75202GT$"S"Ė1:20:"PRESS OR "Ģ18:"ENTER , , OR PLEASE.":5540q018:958:"PLEASE WAIT. FILE IS BEING RESET.":19:34,190R$;0:A$:N0C1N:R$;C:A$:B$:W$;C:A$:B$:0:0:0:0::D$034,3:3820035,24:110:"THERE ARE NO WORDS TO RESET."R THE WORDS ON THIS VOCAB":"FILE. VOCAB WILL OPERATE AS IF THESE":"WORDS HAVE NEVER BEFORE BEEN USED."/12:868:"DO YOU WISH TO RESET THE COUNTERS? ";:16368,0:GT$:GT$:1/GT$"N"GT$(13)Ģ18:868:"NO RESET COMPLETED":382020GT$"Y_`_@_~{~?`>n7@}~?p_0G~~}>}~_~{}{?]{o}_ow[g_?^wgog?wox?o@?~`wn7@?x>{m?_9v>}xA?ooo}];?oogy{s~nnun{~n{{nnfw?~oxp67\_{]qcfoxG?G|}x?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~?_>{m7=??~wp`}xxs~xXc}~_~{A|?c>{o~_ow[k_?]wwoO?w{nsox|?xO>n?_}xA|xA?ooo}@?Wt?~Ox?x|}?OO|O@_~{~?_>{m7]?k{m?_}v~?|x~0W]v[k6wmo.{~}>}~_~{}w?y>x`ow[m_?[wsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qqqwqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q?oo~o@_~{~?_{o7m?g]{m?_}v}?~~~?~PO>zog>{k/{~}>}~_~{}w?|>{o7ow[n_?Wwxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_252,169,0,133,36,173,2,3,240,9,237,1,3,233,247,144 X?t'4,105,31,133,36,104,96,108,3,31yxA?ooo}={{^o^k|sg~np{p{~`{{aqjwxO8oJV[_{]n]vox?>pp}xO?X_{{@ww~_>?wvyx?o`}?_z#??     îӠڠϠϠԠӠ=ϠԠԠ; Ҡ9Ϡ"îϠР(768)0Ā^ ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."d ,. (768)1250 = --IF THERE, LOAD INTG AND PA#1D t 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 --NO CARD OR CAN'T RELOAD  208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,96: 76977,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:B n804,0:805,e  HELLO :"(M2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDERZ768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104:K _7    ER PROGRAMS"$P SPACE-BAR ROUTINEHPZH(36):ZV(37):ZZ1200:ZZ]P24:7:16368,0#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";(PZC(16384):ZC141ZC160205202P16368,0:7:868:21::ZV1:ZH1::," REGULAR TEXT IN MICRO QUEST FORMAT."HVOCAB TEACHER,VOCAB TEACHER$ "VOOCAB TEACHER -"," ENABLES TEACHER TO CREATE WORD LISTS"," FOR DRILL USING VOCAB PROGRAMS.".CLEANUP,CLEANUP 8 "CLEANUP -"," DELETES FILES CREATED BY THE FILE"," BUILD QUEST GRAPHICS,MICRO QUEST GRAPHICS "MICRO QUEST GRAPHICS-"," ENABLES TEACHER TO CREATE LESSONS WITH"," LARGE LETTERS IN MICRO QUEST FORMAT."MICRO QUEST TEXT,MICRO QUEST TEXT' "MICRO QUEST TEXT -"," ENABLES TEACHER TO CREATE LESSONS WITH"1CS7CS6(4)"PR#"CS#5 DESCRIPTIONSC*:34,1:a/14:"DESCRIPTIONS":34,4g24T1N1:(37)18İ20500:9C24:N$(T,C)""N$(T,C)" "835>N$(T,C):CC:T:20500H::200 TEACHER UTILITIES,5$MICRO10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1)lVX$"Y"ė:10:9:"INSERT THE NEW DISKETTE.":20500::720vVX$"N"610::255A(999)(1000)256B(A)(A1)256CS(B1)16:SLOT # CS$;"RUN ";N$(Q,1)&CH(36):CV(37)L"";ZN$:(ZN$)(((ZN$)))520g(ZN$)0ZN$"0"540{ZN$"D"ZN0:ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500ZM:868:CV1(CV23):ZN(ZN$):&CV1:36,CH:868:X:Kb.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:868A16303,0J"490[,ZN$"D"800dQZNwQ0QN147022:1:"PLEASE ENTER A NUMBER FROM 1 TO "N".":16:280QN600::10:"GETTING THE PROGRAM..."230,32:62450D2:11:"AVAILABLE PROGRAMS":VV0 T1N:LL@ T10ĺ" ";Q T" "N$(T,0)i N6T((N1)2)ĺ T:(1023)123280 J1(16384)128:J10JJ1:J300275 16368,0:1023,123 316:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT"BE DISTRIBUTED WITHOUT PERMISSION."0 205008 :J ZM24:D$(4)e :T$,N:NN1:N$(N,4)n LL0x NN1 T1N1:C04:N$(T,C)::(N$(T,0))LLLL(N$(T,0)) :N$(N,0)"END":LL18(LL2) 1:20(T$)2:T$ VV4(N9)! QUEST TEXT":1026 15:1:ZZ$"- VOCAB TEACHER":102A 18:2w ZZ$"COPYRIGHT (C) 1980 BY MINNESOTA SCHOOL":102 19:2 ZZ$"DISTRICTS DATA PROCESSING JOINT BOARD.":102 21:2 "THE PROGRAMS ON THIS DISKETTE MAY NOT" 22:2% ";:27:" ";:31:" "$ vX13E w17:" ";:27:" ";:31:" "L xXh y17:" ";:27:" ";n z {19:"EACHER";:33:"TILITIES" |8:15:"FOR MICRO QUEST AND VOCAB." }11:1:ZZ$"- MICRO QUEST GRAPHICS":102 ~13:1:ZZ$"- MICRO ):(ZZ$,X,1);( gXX15:C(16336):7 hXX110:> iXP jXX1100::n k BEGINNING OF PROGRAM. v l:} m2 n"************" o"* *" p" * TIES *" q" * ---- *" r" * -- *" s" ****" t u2:15:" HELLOVERSION C-3.0=LAST UPDATE: 81/8/26 AWMCW(C) MECC 1980c D$(4)n 22016:::255:(1023)123140:16302,0:::D$"BLOAD LOGO":16304,0:16368,02D$"NOMON CIO"<275d108e fX1(ZZ$      ONERR CONDITIONS.m 944,104:945,168:946,104:947,166:948,223:949,154:950,72:951,152:952,72:953,96 DISPLAY HEADING & MESSAGES.  ::*" MICRO QUEST GRAPHICS "4" FILE BUILDER FOR MICRO QUEST "> NUMBER PROMPT: ";:16368,0:GT$'V BEGINNING OF PROGRAM - INITIALIZATION. kC$(13):D$(4): CL$=CLOSE ALL FILES.CL$C$D$"CLOSE": POKES FOR ERROR HANDLING ROUTINE.: THIS ROUTINE, WHEN CALLED, CLEARS UP PROBLEMS WITH"-PRESS ONLY TO IGNORE THIS"K" SECTION AND RETURN TO THE MENU,"s"-PRESS ONLY TO GO ON TO"" THE NEXT SECTION."; RETURN TO LINE NUMBER PROMPT MESSAGE. 23:1:958:"PRESS ANY KEY TO RETURN"!"TO THE LINE200 LIST OPTION-PAGING/PRESS KEY ROUTINE. X22:1:"-PRESS TO RETURN TO"x" THE LINE NUMBER PROMPT,"&"-PRESS ANY OTHER KEY TO GO ON.";:16368,0:GT$0GT$(27)ġ:34,3::7010:l MESSAGES. #v21:1:(I$,IC,1);:16204 OUTPUT ONE LINE TO PRINTER. =IC0WICIC1: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(I$,IC,1);:17D$;"RENAME MIC.";F$;".TEMP, MIC.";F$\34,3:FL6150,6070,6440:: RETURN FROM SENDER.@ OUTPUT ONE LINE TO SCREEN. JIC0TICIC1:IC(I$)ĺ:^(I$,IC,1)(91)ĺ(34);:1620h(I$,IC,1)"^"ICIC1::(I$,IC,1);::1620rnOL0:34,3:4x COPY REST OF FILE TO TEMP. r15:"READING/COPYING FILE.....PLEASE WAIT.":958:34,16}1460R$:I$W$;".TEMP":(34);I$;(34):D$1430216,0(222)5Ħ944CL$D$;"DELETE MIC.";F$($(I$,1,IC2)"^"II$(I$,IC((I$,IC1,1)"^")):1020N LINE COUNTER. oLL1:15:4:"LINE # ";L;:F INITIALIZING FILES FOR COPY. P15:"PREPARING FILES.....PLEASE WAIT.";:958:34,16ZO$:R$:TdO$;".TEMP":W$;".TEMP":T:D$(95)10201II$;:ICIC1:II$(34)II$(91)j(I$,IC,1)"^"I$(I$,1,IC1)II$(I$,IC2):1020I$(I$,1,IC1)II$(I$,IC1)1020II$:II$(8)1020II$(13)I$(I$,1,IC):II$"A"II$"Z"12408:II$;::ICIC2:III$"^"1240" VII$(27)11401 `IC01020= jI$"":R tII$(21)1190~ ~ICIC1:IC(I$)I$I$" ":" ";:1020 (I$,IC,1)(91)ĺ(34);:1020 (I$,IC,1)"^"ICIC1::(I$,IC,1);::1020 (I$,IC,1);:1020 II$(32)II$ROUTINE. " IC0:I$"":16368,0< II$:II$(13)1050s I$(I$,1,IC):(36)4LLāCL(36)4LL1:" ";:y  II$(8)1090 $IC0ĺ(7);:1020 .ICIC1:II$;:IC0ĭ(I$,IC,1)"^"ICIC1 81020 B(36)4LLĺ(7);:1020 LANALYST, TIES *, * PROGRAMMED BY: *G * JAMES A. HENKE *b * TIES, 12/79 *} * & DAVID E. LADEN * * TIES, 7/80 * * * *********************  L$(10):2010  CHARACTER INPUT * "* SHARE VERSION *9 ,* OF THIS PROGRAM *T 6* IS CALLED PHOFIL. *o @* * J* APPLE II * T* CONVERSION AND * ^* ENHANCEMENTS * h* DESIGNED BY: * r* DANIEL M. FORDE * |* UAGE: ** * APPLESOFT BASIC *E * *` * DESCRIPTION: *{ * THIS PROGRAM * * BUILDS MICRO * * QUEST GRAPHICS * * VERSION FILES. * * * * ORIGINAL TIME- ;d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** MICRO QUEST ** GRAPHICS ** * * LANG                    368,0:"FILE NAME: ";F$)(F$)02200=(F$)202270d17:"YOUR FILE NAME IS TOO LONG.":"THE MAXIMUM NUMBER OF CHARACTERS""THAT MAY BE IN A FILE NAME IS 20."2460F1(F$)(F$,F,1)" "(F$,F,1)"Z"2300:23CONTROL-C IS USED, THE CONTENTS"Gf" OF YOUR FILE MAY BE LOST."pp:"BEFORE YOU ENTER THE FILE NAME,"z"MAKE SURE YOU INSERT THE DISKETTE""ON WHICH THE FILE IS/WILL BE SAVED." ENTER FILE NAME AND VALIDATE. 14:1:958:16953,96- DISPLAY HEADING AND MESSAGES. 7 ::f*" MICRO QUEST TEXT "4" FILE BUILDER FOR MICRO QUEST. ">H:"NOTE: A CONTROL-C SHOULD NEVER BE USED"R" TO END THIS PROGRAM. IF A" \" (4)!: CL$=CLOSE ALL FILES.7CL$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:> TO GO ON TO")" THE NEXT SECTION.";/\ RETURN TO LINE NUMBER PROMPT MESSAGE.23:1:958:"PRESS ANY KEY TO RETURN""TO THE LINE NUMBER PROMPT: ";:16368,0:GT$ BEGINNING OF PROGRAM - INITIALIZATION. C$(13):D$INE NUMBER PROMPT,"I&"-PRESS ANY OTHER KEY TO GO ON.";:16368,0:GT$h0GT$(27)ġ:34,3::7010n:l MESSAGES. v21:1:"-PRESS ONLY TO IGNORE THIS"" SECTION AND RETURN TO THE MENU,""-PRESS ONLY TO RETURN TO"" THE L15:"READING/COPYING FILE.....PLEASE WAIT.":958:34,16G1460SR$:I$wW$;".TEMP":(34);I$;(34):D$1430216,0(222)5Ħ944CL$D$;"DELETE MIC.";F$D$;"RENAME MIC.";F$;".TEMP, MIC.";F$&34,3:FL LINE COUNTER. 1LL1:15:4:"LINE # ";L;:VF INITIALIZING FILES FOR COPY. P15:"PREPARING FILES.....PLEASE WAIT.";:958:34,16ZO$:R$:T:TT2dO$;".TEMP":W$;".TEMP":T2:D$nOL0:34,3:x COPY REST OF FILE TO TEMP. < jI$"":! tII$(21)1190M ~ICIC1:IC(I$)I$I$" ":" ";:1020q (I$,IC,1)(91)ĺ(34);:1020 (I$,IC,1);:1020 II$(32)II$(95)1020 II$;:ICIC1:II$(34)II$(91) I$(I$,1,IC1)II$(I$,IC1) 1020OUTINE. ! IC0:I$"":16368,0; II$:II$(13)1050r I$(I$,1,IC):(36)4LLāCL(36)4LL1:" ";:x  II$(8)1090 $IC0ĺ(7);:1020 .ICIC1:II$; 81020 B(36)4LLĺ(7);:1020 VII$(27)1140 `IC01020NALYST, TIES *+ * PROGRAMMED BY: *F * JAMES A. HENKE *a * TIES, 12/79 *| * & DAVID E. LADEN * * TIES, 7/80 * * * *********************  L$(10):2010  CHARACTER INPUT R * "* SHARE VERSION *8 ,* OF THIS PROGRAM *S 6* IS CALLED PHOFIL. *n @* * J* APPLE II * T* CONVERSION AND * ^* ENHANCEMENTS * h* DESIGNED BY: * r* DANIEL M. FORDE * |* AUAGE: ** * APPLESOFT BASIC *E * *` * DESCRIPTION: *{ * THIS PROGRAM * * BUILDS MICRO * * QUEST TEXT * * VERSION FILES. * * * * ORIGINAL TIME- 9d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** MICRO QUEST ** TEXT ** * * LANG                    INITIALIZE RECORD 0 WITH DEFAULT VALUES.S W$;0:"VOCAB":0:3:60:"Y":"Y":D$n( PARAMETERS OPTION. 2 : READ CURRENT VALUES.< R$;0:A$:N:T1:TS:T2$:TA$:D$F :"TO KEEP THE CURRENT VALUES, JUST"P "PRESS . OTHERWISE, ENRAM."b :23:"PRESS 'SPACE BAR' TO CONTINUE":16368,0:16384,128:16386,0:(4);"RUN HELLO"s (222)5Ħ LF0:: SET ALL OPTIONS AVAILABLE. :"FILE NAME - ";F$:"NUMBER OF WORD SETS - ";0:34,3 NF1:: SET NEW FILE FLAG=YES.( : LAG=NO."L V$"VOCAB"NF0:3310LV 17:"THAT FILE IS NOT A VOCAB FILE."` 24:"PRESS ANY KEY TO TRY AGAIN: ";:16368,0:GT$j 2150t D$:216,0~ (222)42470 "INSERT A DISKETTE THAT IS NOT WRITE" "PROTECTED AND RERUN THIS PROG2400958K: SET UP O$=OPEN FILE, R$=READ FILE, AND W$=WRITE FILE.n O$C$D$"OPEN VOC."F$",L80" R$C$D$"READ VOC."F$",R" W$C$D$"WRITE VOC."F$",R"$ 2420. O$:R$;0:V$8 D$:216,0B : IF OLD FILE, SET NEW FILE FMBER OF CHARACTERS">:"THAT MAY BE IN A FILE NAME IS 25."H2400WF1(F$)}(F$,F,1)" "(F$,F,1)"Z"2250:229017:"ILLEGAL CHARACTERS IN A FILE NAME.":"CONTROL CHARACTERS ARE NOT ALLOWED""IN A FILE NAME."E YOU ENTER THE FILE NAME,"DR"MAKE SURE YOU INSERT THE DISKETTE"o\"ON WHICH THE FILE IS/WILL BE SAVED."f14:1:958:16368,0:"FILE NAME: ";F$p(F$)02150z(F$)25222017:"YOUR FILE NAME IS TOO LONG.":"THE MAXIMUM NUHER "@ " FILE BUILDER FOR THE VOCAB PACKAGE "Fv :"NOTE: A CONTROL-C SHOULD NEVER BE USED"*" TO END THIS PROGRAM. IF A"4" CONTROL-C IS USED, THE CONTENTS">" OF YOUR FILE MAY BE LOST."H:"BEFOR22:958::"-PRESS ONLY TO RETURN":" TO MODIFY SUB-OPTION MENU.";:35,21:1: BEGINNING OF PROGRAM - INITIALIZATION. D$(4):C$(13): SET UP CL$=CLOSE ALL FILES.CL$C$D$"CLOSE"::" VOCAB TEAC0:958!8"HIGH OR LOW SPEED?"ZB"PRESS FOR HIGH, FOR LOW: ";:16368,0:GT$LGT$"L"ĺ"LOW":802,82:818,82:PS1:VGT$"H"Ė1:20:"TYPE OR PLEASE.":12:1080`"HIGH":PS1: MODIFY TRAILER MESSAGE. X35,24: 2000&  PRESS KEY ROUTINE. _ 24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$:  PRINTER INITIALIZATION. PS1ı::IF ALREADY SET. :LOAD PRINTER ROUTINE. :DA768939:DE:DA,DE: $823,75::SET COLUMN WIDTH..1 * * PROGRAMMED BY: *: * JAMES A. HENKE *U * TIES, 12/79 *p * R. CHRISTIANSEN * * TIES, 7/80 * * & DAVID E. LADEN * * TIES, 6/80 * &* * 0********************* : ITTEN 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 Y7d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB TEACHER ** ** LANGUAGE: * * AP                          ox<@}~??|_Oox?g}xG?go?~o@|?x>{0p?p>{m?_}v{?ppx?X_~zoo>{k/?{~}>}~_~{}w{?~>{o7owoW?O~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xqqo88`}~??p~~`|?~~gox?O}x~?|p{{@|~?~~1wvwg?o@q?_>{o7}~?|C>{m?_}~g?@~`?@_O~zog>{K/{~}8p~p`|??~>{o7_ow[oO?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wnnO0?~}~}>}~_~{}w{?_qwlw`\o<~`ox?a@}xx?8o{;?o{~_}~.wvsw?o@G?_]{m7}~?xx>{m?_mv_??`@?`@?W~v[k>w-w.{~?> x`\o_`wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{onl_ |~}>}~_~{}{?_?|k{o;_ow[o_?>_ox? }xc?X_{{?ww~_>wv{w?o@?_k{m7}~?x?~>{m?_Uv?G_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o                 16368,0! '24:1:868:1:1:1:1:DTHAT FILE... ENTER ANOTHER.";:10000:70} RE6ė:"SORRY, I CAN NOT FIND THAT FILE... TRY AGAIN.":10000:70 105 'G71999::1 '24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0 '(16384)12810005 ' RE(222):216,0} RE4ė:"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM THE EDGE OF THE DISKETTE.":10000:105 RE8ė:"INSERT THE BUSINESS DISKETTE, AND CLOSE THE DISK DRIVE DOOR...":10000:1050 RE10RE13ė:"YOU MAY NOT DELETE  A F::D$"CATALOG"F K24:"(TYPE 'DONE' WHEN DONE.)";:1:1 P23:868:"WHAT IS THE FILE'S NAME? ";NN$:NN$""80 ZA((NN$,1)):A65A9080 dNN$"DONE"ĉ::62 i34,21: n200 xD$"DELETE "NN$ }216,0 70 70EATED 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$"Y"YN$"N"Ģ23:"('YES' OR 'NO' PLEASE.)":50 <:YN$"Y"70 >(1023)123ĺD$"RUN HELLO"" PROGRAM: CLEANUP6 VERSION: 1.0 (MRF)S LAST UPDATE: 6/26/80Z r (C) MECC, 1979D$(13)(4)D$"NOMONC,I,O"::2:13:"C L E A N U P"] (10:"THIS PROGRAM ALLOWS YOU TO DELETE"::"OLD FILES THAT WERE CR     ٍٍ