' +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*`(F$) X1(F$)+ 774X,((F$,X,1))1& R0 CALL SELECTED PROGRAM. r: P3140,3150,3160,3170,3180D D$;"RUN VOCAB HANGMAN"N D$;"RUN VOCAB SCRAMBLE"X D$;"RUN VOCAB SPELL1"b D$;"RUN VOCAB SPELL2"l D$;"RUN VOCAB WORDER"v0, DISPLAY TITLE AND DELAY MESSAGE. 2 < 1040K DF0:1080g 21:14:"PLEASE WAIT." 23:" PROGRAM AND FILE BEING PREPARED." 34,23 PREPARE COMMON AT $300.  768,19:769,20:770,1:771,18 772,P:773,UF:774,00 | PX* ADVISE UPDATE STATUS. d :(UF0)((P3)(P4))3000: :IF FILE UPDATEABLE. 13:"PLEASE NOTE: NO RECORD WILL BE MADE":"OF THIS RUN OF ";(34);A$;(34);".":24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$: GT$(3)320THE NUMBER OF THE PROGRAM YOU WANT":"IF YOU WANT DESCRIPTIONS, TYPE 'D'.)";A$x@ X15:(A$,1,6)(OL$,X65,6)2930~J T 23:"THAT IS NOT IN THE MENU.":"PRESS ANY KEY TO TRY AGAIN: ";:16368,0:GT$^ GT$(3)3200h 2760r X4S2129MENU. GET PROGRAM NAME. & :958] 14:"VOCABULARY":2:10:"AVAILABLE PROGRAMS":: 9:"1 HANGMAN"::9:"2 SCRAMBLE"::9:"3 SPELL1": S212850 9:"4 SPELL 2"::9:"5 WORDER"::9:"6 END", 19:1:958:16368,0N6 "TYPE ,2680,2690 Z "HANGMAN";:27007d "SCRAMBLE";:2700Ln "SPELL1";:2700ax "SPELL2";:2700p "WORDER"; (34);" ?"; 16368,0:GT$:GT$ GT$"Y"3000 GT$(3)3200 GT$"N"ė:20:"TYPE OR PLEASE.":10:2630 SELECTION.  S20E T2$"N"NS2S21: :IF *SPELL2* EXCLUDED.U FR12760 : GOTO PROGRAM MENU IF *SPELL2* CAN NOT BE RUN AGAIN.( P4S2127602 RESTART. < :10F "DO YOU WANT ANOTHER RUN OF ";(34); P P2650,2660,2670:769,15:770,14:771,54v C$;D$;"RUN MICRO QUEST"TW DISKETTE.":22:5:"PRESS THE ";::"SPACE BAR";::" TO CONTINUE":A$A (13)(4);"IN#6"D A$"Y"3080N :21:14:"PLEASE WAIT."X 23:" PROGRAM AND FILES BEING RESET."b 34,23:10100 16368,0:A$*5 A$"N"3140: A$"N"Č62450:::10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:A$:A$"N"ĉ::? :10:9:"INSERT THE NEW DISKETTE"A 23:5:"PRESS THE ";::"SPACE BAR";::" TO CONTUNUE":A$:B (13)(4 X0:Y88:Z$"^NUMBER INCORRECT: ":I210Z$Z$" "P Z$Z$(I2):1010 X0:Y174:Z$"^PRESS ANY KEY TO GO ON:":1010:16368,0:A$ 62450 C$;D$;"CLOSE"v C$;D$;"RUN MICRO QUEST"TO RUN":1010& X0:Y139:Z$"ANY MORE LESSONS?":Y37:Z$"^TOTAL QUESTIONS ASKED: ":N110Z$Z$" "J Z$Z$(N1):1010 X0:Y54:Z$"^CORRECT ON FIRST TRY: ":(N1I1)10Z$Z$" " Z$Z$(N1I1):1010 X0:Y71:Z$"^CORRECT ON SECOND TRY: ":(I1I2)10Z$Z$" " Z$Z$(I1I2):1010:$,Z,1):Z:Z$Z$".":1010A^ 16368,0:Z1500:(16384)128ĂKh 2950ir :Z1(10(1)1):Z$:| X0:Y172:Z$"^"Z$"!":1010 QQ1:QN12550 16368,0:Z1750:(16384)128Ă 62450 X0:Y3:Z$"^THAT IS ALL.":10104 X0 2720- X0:Y172:Z$"^INCORRECT.":1010V" 16368,0:Z11000:(16384)128Ăn, Y1155:Y2191:1410z6 I2I21@ X0:Y155:Z$"^THE CORRECT ANSWER IS":1010J X0:Y172:Z$"":Z1(A$):(A$,Z,1)"A"(A$,Z,1)"Z"Z$Z$"^"T Z$Z$(AB"NS0Ĺ216,0:2460: :IF VALID FILE. 4V 216,0W` (222)5ĺD$;"DELETE VOC.";F$j 20:"THAT WORD FILE IS NOT AVAILABLE."t 24:"PRESS ANY KEY TO TRY AGAIN: ";:16368,0:GT$~ GT$(3)3200 2290  CHECK FOR WRITE PROTECT OR LOCKE WORD FILE YOU"; "WISH TO USE AFTER THE QUESTION MARK"l "AND THEN PRESS THE KEY MARKED .":~ 16368,0:F$$ (F$)02410. 23908 D$;"OPEN VOC.";F$;",L80":D$;"READ VOC.";F$;",R0"B V$:NS:Z:Z:T2$:TA$:D$)L V$"VOCA);" ?";16368,0:GT$:GT$1GT$"Y"2350DGT$(3)3200yGT$"N"ė:20:"TYPE OR PLEASE.":2210D$;"CLOSE" GET AND VALIDATE FILE NAME. :10:1:"WHICH WORD FILE DO YOU WANT TO USE?":"ENTER THE NAME OF TH(A)(A1)256 CS(B1)164CS1CS7CS6E(4)"PR#"CSK~ GET PREVIOUS PROGRAM NUMBER AND FILE NAME.P(772):F$"":X1(774):F$F$((774X))::10:"DO YOU WISH TO CONTINUE USING""THE WORD FILE ";(34);F$;(34"Y"ė:20:"TYPE OR PLEASE.":2160z10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1)VX$"Y"ė:10:9:"INSERT THE NEW DISKETTE.":20500::2186VX$"N"2181::255A(999)(1000)256BDISTRICTS DATA PROCESSING JOINT BOARD."OH16368,0:X1750:(16384)128ĂWR:a\2290f CHECK FOR USER TERMINATION. p10:"DO YOU WISH TO CONTINUE WITH":"THE VOCAB PACKAGE? ";:16368,0:GT$:zGT$"N"GT$(3)ė:2181+GT$DER"" CHECK IF FIRST RUN. JRS$"":X768771:RS$RS$((X)): RS$(4)(15)(14)(5)Ĺ768,0:FR1:2160::IF RESTART. DISPLAY TITLE PAGE.  *10404DF1:1080'>21:2:"COPYRIGHT (C) 1980 BY MINNESOTA SCHOOL":2:"37:36,33171 BEGINNING OF PROGRAM. =D$(4)S(1023)1232020e::1023,123:16302,0:::D$"BLOAD LOGO":16304,0:16368,0J1(16384)128:J127J132JJ1:J4002018:OL$"HANGMASCRAMBSPELL1SPELL2WOR12,79LDF1İ1010BV17,2611:12,1626:25,1716:15,1217R`DF1İ1010j18,1723:22,1817:18,2618:19,2326:23,25tDF1İ1010~29,2522:23,2625:26,3026:25,1730:29,2517:25,18DF1İ1010 7,2632:33,3726:25,17P.  X11000::)  TITLE PAGE. 9 ::D$(4)q :16302,0:::D$"BLOAD LOGO":16304,0:16368,0  : BACKGROUND. 1 X035:0,39X: $ .: VOCAB. 811B7,122:13,183:19,244:5,625:5,626:24,197:18,138:E * * ANALYST, TIES *9 * PROGRAMMED BY: *T * R. CHRISTIANSEN *o * TIES, 7/80 * * & DAVID E. LADEN * * TIES, 4/80 * * * &********************* 0 2000  DELAY LOONALYST, TIES *+ * PROGRAMMED BY: *F * SCOTT COSTELLO *a * TIES, 7/77 *| * * * APPLE II * * CONVERSION AND * * ENHANCEMENTS * * DESIGNED BY: * * DANIEL M. FORD * "* SCRAMBLE, *8 ,* SPELL1, *S 6* SPELL2, *n @* AND WORDER. * J* * T* ORIGINAL TIME- * ^* SHARE PACKAGE * h* DESIGNED BY: * r* DANIEL M. FORDE * |* APLESOFT BASIC ** * *E * DESCRIPTION: *` * THIS PROGRAM IS *{ * DRIVER PROGRAM * * FOR THE VOCAB * * PACKAGE. IT * * LINKS THESE * * PROGRAMS: * * HANGMAN, d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB ** ** LANGUAGE: * * AP3,UF:774,(F$) X1(F$)6 774X,((F$,X,1))<& ]0 CALL SELECTED PROGRAM. }: P3140,3150,3160,3170,3180D D$;"RUN VOCAB HANGMAN"N D$;"RUN VOCAB SCRAMBLE"X D$;"RUN VOCAB SPELL1"b D$;"RUN VOCAB SPELL2"l D$;"RUN VOCAB T$(3)32007 DISPLAY TITLE AND DELAY MESSAGE. = G 1040V DF0:1080r 21:14:"PLEASE WAIT." 23:" PROGRAM AND FILE BEING PREPARED." 34,23 PREPARE COMMON AT $300.  768,19:769,20:770,1:771,18 772,P:77X4S212900| PX5 ADVISE UPDATE STATUS. o :(UF0)((P3)(P4))3000: :IF FILE UPDATEABLE. 13:"PLEASE NOTE: NO RECORD WILL BE MADE":"OF THIS RUN OF ";(34);A$;(34);".":24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$:  GER WORD FINDING PUZZLE"5, 19:1:958:16368,0Y6 "WHAT PROGRAM DO YOU WANT?";A$@ X15:(A$,1,6)(OL$,X65,6)2930J T 23:"THAT IS NOT IN THE MENU.":"PRESS ANY KEY TO TRY AGAIN: ";:16368,0:GT$^ GT$(3)3200h 2760 r 0:1:9584 "HERE IS A LIST OF THE PROGRAMS YOU"D "MAY RUN:"J o "HANGMAN THE GAME OF HANGMAN" "SCRAMBLE WORD SCRAMBLE GAME" "SPELL1 SPELLING MEMORY DRILL" S212850 "SPELL2 SPELLING RECOGNITION DRILL"" "WORDd "SCRAMBLE";:2700+n "SPELL1";:2700@x "SPELL2";:2700O "WORDER";` (34);" ?";x 16368,0:GT$:GT$ GT$"Y"3000 GT$(3)3200 GT$"N"ė:20:"TYPE OR PLEASE.":10:2630 MENU. GET PROGRAM NAME.  1ITE VOC.";F$;",R0" "VOCAB"/ D$;"CLOSE"Z UF0:216,0:2560: :IF UPDATEABLE. e 216,0 (222)4UF1:2560::IF WRITE PROTECTED. (222)10UF2:2560::IF LOCKED FILE.  *SPELL2* OPTION SELECTION.  S20$ T2$"NFILE. V 216,06` (222)5ĺD$;"DELETE VOC.";F$bj 20:"THAT WORD FILE IS NOT AVAILABLE."t 24:"PRESS ANY KEY TO TRY AGAIN: ";:16368,0:GT$~ GT$(3)3200 2290 CHECK FOR WRITE PROTECT OR LOCKED FILE.  2510 D$;"WRE AFTER THE QUESTION MARK"K "AND THEN PRESS THE KEY MARKED .":] 16368,0:F$o$ (F$)02410z. 23908 D$;"OPEN VOC.";F$;",L80":D$;"READ VOC.";F$;",R0"B V$:NS:Z:Z:T2$:TA$:D$L V$"VOCAB"NS0Ĺ216,0:2460: :IF VALID GT$"Y"2350#GT$(3)3200XGT$"N"ė:20:"TYPE OR PLEASE.":2210hD$;"CLOSE" GET AND VALIDATE FILE NAME. :10:1:"WHICH WORD FILE DO YOU WANT TO USE?":"ENTER THE NAME OF THE WORD FILE YOU" "WISH TO US"ė:20:"TYPE OR PLEASE.":2160] GET PREVIOUS PROGRAM NUMBER AND FILE NAME. P(772):F$"":X1(774):F$F$((774X))::10:"DO YOU WISH TO CONTINUE USING""THE WORD FILE ";(34);F$;(34);" ?";16368,0:GT$:GT$DISTRICTS DATA PROCESSING JOINT BOARD."OH16368,0:X1750:(16384)128ĂWR:a\2290f CHECK FOR USER TERMINATION. p10:"DO YOU WISH TO CONTINUE WITH":"THE VOCAB PACKAGE? ";:16368,0:GT$:zGT$"N"GT$(3)3200(GT$"YDER"" CHECK IF FIRST RUN. JRS$"":X768771:RS$RS$((X)): RS$(4)(15)(14)(5)Ĺ768,0:FR1:2160::IF RESTART. DISPLAY TITLE PAGE.  *10404DF1:1080'>21:2:"COPYRIGHT (C) 1980 BY MINNESOTA SCHOOL":2:"37:36,33171 BEGINNING OF PROGRAM. =D$(4)S(1023)1232020e::1023,123:16302,0:::D$"BLOAD LOGO":16304,0:16368,0J1(16384)128:J127J132JJ1:J4002018:OL$"HANGMASCRAMBSPELL1SPELL2WOR12,79LDF1İ1010BV17,2611:12,1626:25,1716:15,1217R`DF1İ1010j18,1723:22,1817:18,2618:19,2326:23,25tDF1İ1010~29,2522:23,2625:26,3026:25,1730:29,2517:25,18DF1İ1010 7,2632:33,3726:25,17P.  X11000::)  TITLE PAGE. 9 ::D$(4)q :16302,0:::D$"BLOAD LOGO":16304,0:16368,0  : BACKGROUND. 1 X035:0,39X: $ .: VOCAB. 811B7,122:13,183:19,244:5,625:5,626:24,197:18,138:E * * ANALYST, TIES *9 * PROGRAMMED BY: *T * R. CHRISTIANSEN *o * TIES, 7/80 * * & DAVID E. LADEN * * TIES, 4/80 * * * &********************* 0 2000  DELAY LOONALYST, TIES *+ * PROGRAMMED BY: *F * SCOTT COSTELLO *a * TIES, 7/77 *| * * * APPLE II * * CONVERSION AND * * ENHANCEMENTS * * DESIGNED BY: * * DANIEL M. FORD * "* SCRAMBLE, *8 ,* SPELL1, *S 6* SPELL2, *n @* AND WORDER. * J* * T* ORIGINAL TIME- * ^* SHARE PACKAGE * h* DESIGNED BY: * r* DANIEL M. FORDE * |* APLESOFT BASIC ** * *E * DESCRIPTION: *` * THIS PROGRAM IS *{ * DRIVER PROGRAM * * FOR THE VOCAB * * PACKAGE. IT * * LINKS THESE * * PROGRAMS: * * HANGMAN, ZH1:J1200:ZZ*P24:7:16368,0\#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";(PZC(16384):ZC141ZC160205202P16368,0:7:868:21::ZV1:ZH1:DSLOT #CS1CS7CS6+(4)"PR#"CS1IP SPACE BAR ROUTINEmPZH(36):ZV(37):ZZ1200:ZZP24:7:16368,0#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";(PZC(16384):ZC141ZC160205202P16368,0:7:868:21::ZV1:62450V10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1)VX$"Y"ė:10:9:"INSERT THE NEW DISKETTE.":20500::4720VX$"N"4610::255pA(999)(1000)256zB(A)(A1)256CS(B1)16:  X1(F$)' 772X,((F$,X,1))- u : BRANCH TO GRAPHICS OR TEXT VERSION DEPENDING UPON LESSON FORMAT. 768,19:769,20:770,1:771,18 T1T2ĺD$;"RUN MICRO QUEST STUDENT GRAPHICS" D$;"RUN MICRO QUEST STUDENT TEXT": GT$(3)2410 2420-( D$;"CLOSE"T2 : DISPLAY TITLE PAGE AND MESSAGE.\< :fF 1120uP DF0:1160Z 21:14:"PLEASE WAIT."d 23:" PROGRAM AND FILE BEING PREPARED."n 34,23x : POKE FILENAME OUT TO 300 PAGE. 772,(F$) FILE IS ON DISKETTE.  2540Q D$;"OPEN MIC.";F$:D$;"READ MIC.";F$:T:D$m T1T4Ĺ216,0:2600| 216,0:D$ (222)5ĺD$;"DELETE MIC.";F$ 20:"THAT LESSON IS NOT AVAILABLE." 16368,0:24:"PRESS ANY KEY TO TRY AGAIN: ";:GT$* "WANT TO RUN AFTER THE QUESTION MARK"Y "AND THEN PRESS THE KEY MARKED ." :"IF YOU NO LONGER WANT TO USE THIS":"PROGRAM, TYPE 'END' AND ":  2410 16368,0:F$ F$"END"4500 (F$)02560 : SEE IFf21:2:"COPYRIGHT (C) 1980 BY MINNESOTA SCHOOL"cp2:"DISTRICTS DATA PROCESSING JOINT BOARD."z16368,0:X1750:(16384)128Ăj : GET FILE NAME.t ::10~ "WHICH LESSON DO YOU WANT TO RUN?" :"ENTER THE NAME OF THE LESSON YOU"(4)": DN$="DONE" IN CONTROLS.@DN$(4)(15)(14)(5)i: CHECK TO SEE IF FIRST RUN OR NOT.t DF$""X14 DF$DF$((767X))*4DF$DN$Ĺ768,0:2420>: DISPLAY GRAPHIC TITLE PAGE.H::R1120\DF1:1160211:12,1529:28,1915&DF1İ1010R22,1819:20,2918:19,2229:19,2124b(DF1İ1010229,2519:20,2425:26,2924:25,2929:28,2529<DF1İ1010F32,3619:20,2934P BEGINNING OF PROGRAM. : INITIALIZE.D$1İ10104 22,6:22,185:6,1518:19,2215:22,14D DF1İ1010u 5,1525:26,295:6,929:28,269:10,1528 DF1İ1010 5,1532:33,3615:14,536:35,335 DF1İ1010 19,292:3,829:28,197:6,319 DF1İ1010 19,29ATE: 8/20/81 RJG 2000.  DELAY LOOP. ? X1500::S L TITLE PAGE. f V: BACKGROUND.m `2 jX035:0,39X: t ~: MICRO QUEST. 7 15,52:3,75:5,158:6,115 DF1İ1010 11,155:6,1413:11,1515 DFANCEMENTS *+ * DESIGNED BY: *F * DANIEL M. FORDE *a * ANALYST, TIES *| * PROGRAMMED BY: * * DAVID E. LADEN * * TIES, 7/80 * * * *********************   LAST UPD * "* TEXT). *8 ,* *S 6* ORIGINAL TIME- *n @* SHARE VERSION * J* OF THIS PROGRAM * T* IS CALLED PHONET. * ^* * h* APPLE II * r* CONVERSION AND * |* ENHPLESOFT BASIC ** * *E * DESCRIPTION: *` * THIS IS THE *{ * DRIVER PROGRAM * * WHICH LINKS THE * * TWO VERSIONS OF * * MICRO QUEST * * STUDENT * * (GRAPHICS AND ŠȢԠŠӠӠ٠ԠԬԠԠҮנӠԿŠȢŠŮŠȢŢ̠ҠҠעϠŬҠŢ͠ԠϠάҠĠŠϢҬήͮŠȢŠȢӠӠΠŠƠՠŠҠӠƠ΢ŮԱӠŠԠƠŢҮΠӠĢŠӠϠננϢŠҠŠӢԠԠŠԢάԠ٢ŠԮŠȢԬ٠Ȣ̠ĠҬ   "l 768,4:769,15:770,14:771,5?v C$;D$;"RUN MICRO QUEST"Kz#????     îӠîԠ"ϠԠϠԠԠӠϠԠԠԠӠ îӠڠϠ"ϠdJE. 772,(F$)  X1(F$)8 772X,((F$,X,1))>  : BRANCH TO GRAPHICS OR TEXT VERSION DEPENDING UPON LESSON FORMAT. 768,19:769,20:770,1:771,18 T1T2ĺD$;"RUN MICRO QUEST STUDENT GRAPHICS" D$;"RUN MICRO QUEST STUDENT TTRY AGAIN: ";:GT$$ GT$(3)ė:. 2420>( D$;"CLOSE"e2 : DISPLAY TITLE PAGE AND MESSAGE.m< :wF 1120P DF0:1160Z 21:14:"PLEASE WAIT."d 23:" PROGRAM AND FILE BEING PREPARED."n 34,23x : POKE FILENAME OUT TO 300 PAG2560' : SEE IF FILE IS ON DISKETTE.2 2540c D$;"OPEN MIC.";F$:D$;"READ MIC.";F$:T:D$ T1T4Ĺ216,0:2600 216,0:D$ (222)5ĺD$;"DELETE MIC.";F$ 20:"THAT LESSON IS NOT AVAILABLE." 16368,0:24:"PRESS ANY KEY TO 16384)128Ă"j : GET FILE NAME..t ::10V~ "WHICH LESSON DO YOU WANT TO RUN?" :"ENTER THE NAME OF THE LESSON YOU" "WANT TO RUN AFTER THE QUESTION MARK" "AND THEN PRESS THE KEY MARKED ."  16368,0:F$ (F$)0 DF$DF$((767X))*84DF$DN$Ĺ768,0:2420[>: DISPLAY GRAPHIC TITLE PAGE.eH::oR1120~\DF1:1160f21:2:"COPYRIGHT (C) 1980 BY MINNESOTA SCHOOL"p2:"DISTRICTS DATA PROCESSING JOINT BOARD." z16368,0:X1750:(2924:25,2929:28,2529)<DF1İ1010AF32,3619:20,2934GPe BEGINNING OF PROGRAM. x: INITIALIZE.D$(4): DN$="DONE" IN CONTROLS.DN$(4)(15)(14)(5): CHECK TO SEE IF FIRST RUN OR NOT. DF$""X14İ1010/5,1532:33,3615:14,536:35,335?DF1İ1010e19,292:3,829:28,197:6,319uDF1İ1010 19,2911:12,1529:28,1915DF1İ101022,1819:20,2918:19,2229:19,2124(DF1İ1010229,2519:20,2425:26,X: t ~: MICRO QUEST.% 7H 15,52:3,75:5,158:6,115X DF1İ1010x 11,155:6,1413:11,1515 DF1İ1010 22,6:22,185:6,1518:19,2215:22,14 DF1İ1010 5,1525:26,295:6,929:28,269:10,1528DF1 * PROGRAMMED BY: *6 * DAVID E. LADEN *Q * TIES, 7/80 *l * * *********************  2000  DELAY LOOP. X1500:: L TITLE PAGE. V: BACKGROUND. `2 jX035:0,39VERSION *( J* OF THIS PROGRAM *C T* IS CALLED PHONET. *^ ^* *y h* APPLE II * r* CONVERSION AND * |* ENHANCEMENTS * * DESIGNED BY: * * DANIEL M. FORDE * * ANALYST, TIES * * DRIVER PROGRAM *5 * WHICH LINKS THE *P * TWO VERSIONS OF *k * MICRO QUEST * * STUDENT * * (GRAPHICS AND * "* TEXT). * ,* * 6* ORIGINAL TIME- * @* SHARE TIES. *' * *B * PROGRAM NAME: *] * MICRO QUEST *x * * * LANGUAGE: * * APPLESOFT BASIC * * * * DESCRIPTION: * * THIS IS THE *  D$(4)::&(1023)12310041023,123l:16302,0:::D$"BLOAD LOGO":16304,0:16368,0J1(16384)128:J127J132JJ1:J40030d*********************n* *x* COPYRIGHT 1980 * * BY  (I$)02760A (I$,(I$),1)" "I$(I$,1,(I$)1):2740Q A$I$2930` IN12840 X0:Y172:Z$"^INCORRECT, TRY AGAIN.":1010 16368,0:Z11000:(16384)128Ă I1I11 Y1155:Y2191:1410 IN1:: SET INCORRECT FLAG=1))02660,Z X44:YJ1768:Z$PC$(J):16103d J?n A$:D$]x : REMOVE TRAILING BLANKSo (A$)02710 (A$,(A$),1)" "A$(A$,1,(A$)1):2690 IN0:: SET INCORRECT FLAG=0 X0:Y155:Z$"?":1010:1210 : REMOVE TRAILING BLANKS Q0 : ASK QUESTION1 O$:P$;A%(Q1)1@ R$:62450` X0:Y0:Z$(Q1)".":1010} J14:Z$:(Z$)02600 X44:Y(J1)17:1610( J2 T12630< Z14:PC$(Z):F X0:Y68:Z$"^POSSIBLE CHOICES:":1010 P J14:(PC$(J0:R$" J110:Z$:Z$""24703 FL0Č62450Q FL1:X0:Y(J1)17:1610\ J:D$ FL1X0:Y174:Z$"^PRESS ANY KEY TO GO ON:":1010:16368,0:A$:A$(3)3080 P T22530 : READ POSSIBLE CHOICES R$:Z14:PC$(Z)::D$(N)"):":1010:1210:N1(I$).. N103080G8 N1(N1)N1N2420sB X0:Y122:Z$"^INVALID RESPONSE,":1010L X0:Y139:Z$"TRY AGAIN.":1010V Z11000:(16384)128Ă` 62450:2320j : DISPLAY INSTRUCTIONSt O$:R$:T~ P12:FL:Z$"CONTAIN ANY QUESTIONS.":1010,3090G: RANDOMIZE QUESTIONS ZN11:R(Z(1)1):AA%(R):A%(R)A%(Z):A%(Z)A: X0:Y54:Z$"^HOW MANY QUESTIONS DO":1010 X0:Y71:Z$"YOU WANT TO ANSWER?":1010$ X0:Y88:Z$"(THE MAXIMUM IS ": GET NUMBER OF QUESTIONS ON FILE02240GL20(T1)4:P$;LaR$:Q$:P$;4(T2)4{Q$""NN1:A%(N)LLL5(T2)4:N992210216,0:D$:16302,0N02300X0:Y54:Z$"^THAT LESSON DOES NOT":1010"X0:Y71">232,0:233,64:1:0:31H: GET FILENAME_RF$"MIC.":X1(772):F$F$((772X)):\: FILE CMDS--O$=OPEN, R$=READ, P$=POSITIONfO$C$D$"OPEN "F$:R$C$D$"READ "F$:P$C$D$"POSITION "F$", R"pO$:R$:T:D$zN0:I10:I20%: INITIALIZE1A%(99):PC$(4):C$(13):D$(4)]: CHECK TO SEE IF DRIVER WAS RUN FIRST{S$(19)(20)(1)(18) T$"":Z14:T$T$((767Z)):S$T$ĺC$;D$;"RUN MICRO QUEST" 768,0*: LOAD SHAPES4C$;D$;"BLOAD CHARACTERSR$(34) N JZ1(Z$):(Z$,Z,1)(91)Z$(Z$,1,Z1)(34)(Z$,Z1,(Z$)Z)Z ^:1010n  REWARD DATA FANTASTIC,THAT WAS CORRECT,TERRIFIC,SUPER,VERY GOOD,EXCELLENT,GOOD,PERFECT,GREAT,YOU ARE RIGHT  BEGINNING OF PROGRAM 18432  (I$)01220' XX11:X2691280J 0:ZYY16:X,ZX10,Z:Z:3g I$(I$,1,(I$)1):1220 Z$" "Z$"Z"1220 I$I$Z$:Z$"A"Z$"Z"Z$"^"Z$ 1010:1220 x CLR SCRN 0:ZY1Y2:0,Z279,Z::3: @ CHR$(91) TO CHXX11:10500 ZXX(Z1)11:ZX0ZX2691050@ XB321050 XAXBCP6:XAZX,Y:XAZX1,Y:XAZX1,Y1:XAZX,Y1:CP58CP0 :Z$"":XZX11:  INPUT STRNG I$"":16368,0 Z$:Z$(13)ı Z$(3)3080 Z$(8)1290 * "* JAMES A. HENKE *8 ,* TIES, 12/79 *S 6* & DAVID E. LADEN *n @* TIES, 7/80 * J* * T********************* ^ 2000  HIRES CHAR PLOT CP0:Z1(Z$):XB((Z$,Z,1)):XB94CP58: ** * LANGUAGE: *E * APPLESOFT BASIC *` * *{ * CONVERSION AND * * ENHANCEMENTS * * DESIGNED BY: * * DANIEL M. FORDE * * ANALYST, TIES * * PROGRAMMED BY: d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** MICRO QUEST ** STUDENT ** GRAPHICS * *         !)10ĺ" "; (I1I2)G :"NUMBER INCORRECT: ";:I210ĺ" ";R (I2) 24:"PRESS ANY KEY TO GO ON: ";:16368,0:A$  C$;D$;"CLOSE"N :21:14:"PLEASE WAIT."X 23:" PROGRAM AND FILES BEING RESET."b 34,23l 768,4SS ANY KEY TO GO ON: ";:16368,0:Z1750:(16384)128ĂC :Z 2:"THAT IS ALL." 5:"TOTAL QUESTIONS ASKED: ";:N10ĺ" "; (N1) :"CORRECT ON FIRST TRY: ";:(N1I1)10ĺ" "; (N1I1)  :"CORRECT ON SECOND TRY: ";:(I1I227202 20:"INCORRECT. THE CORRECT ANSWER IS">6 I2I21RT Z$A$".":1610^ 24:"PRESS ANY KEY TO GO ON: ";:16368,0:Z1750:(16384)128Ăh 2950r :Z1(10(1)1):Z$:| 20:Z$;"!" QQ1:34,23:QN12550; 1:24:"PRE(I$)02760= (I$,(I$),1)" "I$(I$,1,(I$)1):2740M A$I$2930\ IN12840r 20:"INCORRECT." 24:"PRESS ANY KEY TO TRY AGAIN: ";:16368,0:Z11000:(16384)128Ă I1I11 18:958 IN1:: SET INCORRECT FLAG=1 ))02660&Z J11:6:Z$PC$(J):1610-d J9n A$:D$Wx : REMOVE TRAILING BLANKSi (A$)02710 (A$,(A$),1)" "A$(A$,1,(A$)1):2690 IN0:: SET INCORRECT FLAG=0 18:1:958:16368,0:"?";I$ : REMOVE TRAILING BLANKS  14:PC$(Z)::D$ Q0. : ASK QUESTIOND O$:P$;A%(Q1)1P R$::v 2:"QUESTION NUMBER ";(Q1);":" J14:Z$:(Z$)02600 J3:6:1610( J2 T12630< Z14:PC$(Z):F 10:"POSSIBLE CHOICES:" P J14:(PC$(JISPLAY INSTRUCTIONS(t O$:R$:T:TT21~ FL0M J120:Z$:Z$""2470Y FL0ėm FL1:J1:1610x J:D$ FL1Ģ24:"PRESS ANY KEY TO GO ON: ";:16368,0:A$:A$(3)3080 34,23 T22530 : READ POSSIBLE CHOICES R$:ZIONS DO YOU WANT"> "TO ANSWER? (THE MAXIMUM IS ";(N)")";S$ ":";I$:N1(I$)c. N103080|8 N1(N1)N1N2420B 20:"INVALID RESPONSE, TRY AGAIN."V 24:"PRESS ANY KEY TO CONTINUE: ";:Z11000:(16384)128Ă` :15:2320j : D:A%(N)L%LL5(T2)4:N9922104216,0:D$<:JN02300j15:"THAT LESSON DOES NOT""CONTAIN ANY QUESTIONS."3090: RANDOMIZE QUESTIONS ZN11:R(Z(1)1):AA%(R):A%(R)A%(Z):A%(Z)A: 15:"HOW MANY QUEST, R$=READ, P$=POSITION` fO$C$D$"OPEN "F$:R$C$D$"READ "F$:P$C$D$"POSITION "F$", R"y pO$:R$:T:TT2:D$ zN0:I10:I20 : GET NUMBER OF QUESTIONS ON FILE 2240 L20(T1)4:P$;L R$:Q$:P$;4(T2)4Q$""NN1(4)1 : CHECK TO SEE IF DRIVER WAS RUN FIRSTO S$(19)(20)(1)(18)t T$"":Z14:T$T$((767Z)): S$T$ĺC$;D$;"RUN MICRO QUEST" 768,0 H: GET FILENAME RF$"MIC.":X1(772):F$F$((772X)): \: FILE CMDS--O$=OPEN(Z$,Z,1)(91)ĺ(34);:1630. T(Z$,Z,1);8 ^::M  REWARD DATA. FANTASTIC,THAT WAS CORRECT,TERRIFIC,SUPER,VERY GOOD,EXCELLENT,GOOD,PERFECT,GREAT,YOU ARE RIGHT  BEGINNING OF PROGRAM : INITIALIZE A%(99):PC$(4):C$(13):D$ * "* TIES, 12/79 *8 ,* & DAVID E. LADEN *S 6* TIES, 7/80 *n @* * J********************* T ^ LAST MODIFIED 08/24/81 RJG 2000 @ CHANGE CHR$(91) TO CHR$(34) AND OUTPUT  JZ1(Z$):UAGE: ** * APPLESOFT BASIC *E * *` * CONVERSION AND *{ * ENHANCEMENTS * * DESIGNED BY: * * DANIEL M. FORDE * * ANALYST, TIES * * PROGRAMMED BY: * * JAMES A. HENKE 5d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** MICRO QUEST ** STUDENT TEXT ** * * LANG      ---II9??76666.--=r)--56666>??/"!!!1111!I$$66666266&$ 66&$d 66&266&$ -66 -u6?$ 26666$$$ -6? -%46666$$<?$2. -u?76& --u??v--u??I6?--?666ve26v- %$466&26e $4266f u$$$ruۛ e 26v- %$4666???*---/  --?6 --66?$69$$66v--- -%466&<?$ 66666$d -6? --??6--  -%$$46666&<?$ -u>???v--*-=766&$$$d - -%4666??--e$$?$666f -66#$$I266II2666?66666$d $I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$----6& --??v-- ??d -d --66?@--($I  I  5 II----???? --$4I16666&$$$$-u???6---6???)u?d-M nI) ?v-Iv-- Nd I16$II66uuuu66 I16666fI  --????-I16666&$$??----J  6R---  II --&&$$$ 666-- $$???66&$$$$4 --666 ??$$$ ----?w?766$$$$$ --??v--??----??666666666-- $$$$666 $$$6666v  $$$$4vd 4v66&$$ 4----.---=I1666 6n $4I66666$.":n "IF YOU NO LONGER WANT TO USE THIS ":"PROGRAM, TYPE 'END' AND .":y 2280 16368,0:F$ F$"END"2181$ (F$)02410. 23908 D$;"OPEN VOC.";F$;",L80":D$;"READ VOC.";F$;",R0"B V$:NS:CS(B1)16%CS1CS7CS64D$"PR#"CS:` GET AND VALIDATE FILE NAME. :10:1:"WHICH WORD FILE DO YOU WANT TO USE?":"ENTER THE NAME OF THE WORD FILE YOU" "WISH TO USE AFTER THE QUESTION MARK" "AND THEN PRES)::z2550jD$"CLOSE"::10:1:"DO YOU WANT TO RUN ANOTHER":"DISKETTE";:868:VX$:VX$(VX$,1)VX$"Y"ė:10:9:"INSERT THE NEW DISKETTE.":20500::2186VX$"N"2181::255A(999)(1000)256B(A)(A1)2564DF1:1080p>21:2:"COPYRIGHT (C) 1980 BY MINNESOTA SCHOOL":2:"DISTRICTS DATA PROCESSING JOINT BOARD."H16368,0:X1750:(16384)128ĂR:\2290f CHECK FOR USER TERMINATION. pP(772):F$"":X1(774):F$F$((774X)1737:36,33173 BEGINNING OF PROGRAM. ED$(13)(4)M:k CHECK IF FIRST RUN. RS$"":X768771:RS$RS$((X)): RS$(4)(15)(14)(5)Ĺ768,0:FR1:2160::IF RESTART. DISPLAY TITLE PAGE.  *1040:12,79LDF1İ1010DV17,2611:12,1626:25,1716:15,1217T`DF1İ1010j18,1723:22,1817:18,2618:19,2326:23,25tDF1İ1010~29,2522:23,2625:26,3026:25,1730:29,2517:25,18DF1İ10107,2632:33,3726:25,1/8/20 RJG D22016 N16384/ X:::2559 2000M  DELAY LOOP. _ X11000::s  TITLE PAGE.  : BACKGROUND. 1 X035:0,39X: $ .: VOCAB. 811B7,122:13,183:19,244:5,625:5,626:24,197:18,138E * * ANALYST, TIES *9 * PROGRAMMED BY: *T * R. CHRISTIANSEN *o * TIES, 7/80 * * & DAVID E. LADEN * * TIES, 4/80 * * * &********************* 0 :LAST MODIFICATION: 8NALYST, TIES *+ * PROGRAMMED BY: *F * SCOTT COSTELLO *a * TIES, 7/77 *| * * * APPLE II * * CONVERSION AND * * ENHANCEMENTS * * DESIGNED BY: * * DANIEL M. FORD * "* SCRAMBLE, *8 ,* SPELL1, *S 6* SPELL2, *n @* AND WORDER. * J* * T* ORIGINAL TIME- * ^* SHARE PACKAGE * h* DESIGNED BY: * r* DANIEL M. FORDE * |* APLESOFT BASIC ** * *E * DESCRIPTION: *` * THIS PROGRAM IS *{ * DRIVER PROGRAM * * FOR THE VOCAB * * PACKAGE. IT * * LINKS THESE * * PROGRAMS: * * HANGMAN, d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB ** ** LANGUAGE: * * AP         ٠ơؠԮ̢ˠŢΠŢԠӠŠ̢ƠȠˢԠӠŠ̢ƠȠŢӠӠڠϠԢҠŠƠŢӠΠŠծӮՠ̠ŠΠ̢ŠӠҠҢҮŠŠ̠̠բΠϠήŠҠŠĠ΢ΠՠŠٮ ox<@}~??|_Oox?g}xG?_>{m7]?go?~o@|?p>{m?_}v??ppx?X_~zoo>{k/?{~?~>{o7owoW?O~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}}>}~_~{}wsO{_qq~{nqan{`xqqo88`}~?~~gox?O}x~?_{o7m?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~C?@~`?@_O~zog>{K/{~??~>{o7_ow[oO?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}}>}~_~{}w{{o_nn~{v{nn{{wnnO0?~}~?_qwlw`\o<~`ox?a@}xx?x>{0p?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mv???`@?`@?W~v[k>w-w.{~?> x`\o_`wpg_X_nvW_{]_~nwoo|?o?x?o~_}}8p~p`|?@{?|c@ooo}}`|a?l?~gO??p~~`|~n~{z{fn{{onl_ |~?_?|k{o;_ow[o_?>_ox? }xc?_>{o7}~?X_{{?ww~_>wv{w?o@?x?~>{m?_Uv?G_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o          ox?>pp}xO?_]{m7}~?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[g_?^wgog?wox?o@?~?x>{m?_9v>}xA?ooo}];?oogy{s}>}~_~{}{~nnun{~n{{nnfw?~oxp67\_{]qcfoxG?G|}x?_k{m7}~?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xAxs~xXc{o~_ow[k_?]wwoO?w{nsox|?xO>n?_}xA|xA?ooo}@}~_~{}{nnnnn{~n{ynnnw|g?|{oox?q?@}|?`wn7@?8ok=?o{z^>?Wt?~Ox?x|}?`>n7@}~?OO|O@_~{~?k{m?_}v>?|x~0W]v[k6wmo.{~?y>x`ow[m_?[wsownw_opq?xg~xA?oOoy]_{??oogO{}}>}~_~{A|qqpnpqan`{qqqwqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q?_>{m7=?oo~o@_~{~?g]{m?_}v??~~~?~PO>zog>{k/{~?|>{o7ow[n_?Wwxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}}>}~_~{}wwg?|{_P24:7:16368,0D #P"PRESS ";::"SPACE BAR";::" TO CONTINUE";l (PZC(16384):ZC141ZC16020520 2P16368,0:7:868:21::ZV1:ZH1: "SPELL1 - "," SPELLING MEMORY DRILL",""E SPELL2,VOCAB SPELL2x "SPELL2 - "," SPELLING RECOGNITION DRILL","" WORDER,VOCAB WORDER "WORDER - "," WORD FINDING PUZZLE",""P SPACE BAR ROUTINE PZH(36):ZV(37):ZZ1200:ZZ :20500::4200( VOCABULARY,6D HANGMAN,VOCAB HANGMAN "HANGMAN - "," THE GAME OF HANGMAN PLAYED WITH OR"," WITHOUT HI-RES PICTURES" SCRAMBLE,VOCAB SCRAMBLE "SCRAMBLE - "," WORD SCRAMBLE GAME","" SPELL1,VOCAB SPELL1+RY AGAIN";:4550:4500>ZM:868:CV1(CV23):ZN(ZN$):WCV1:36,CH:868:m DESCRIPTIONS {:34,1:14:"DESCRIPTIONS":34,4T1N1:(37)18İ20500:C24:N$(T,C)""N$(T,C)" "4835N$(T,C):C:TN14470El22:1:"PLEASE ENTER A NUMBER FROM 1 TO "N".":16:4280SvQN2181f~230,32:62450p2950CH(36):CV(37)"";ZN$:(ZN$)(((ZN$)))4520(ZN$)0ZN$"0"4540ZN$"D"ZN0:ZM:"THAT IS NOT A NUMBER - TN6T((N1)2)ĺ+T:(1023)12342801I16368,0:1023,123O16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:86816303,04490ZN$"D"4800XQZN]PZNbQ0QNN1:N$(N,4)6LL0!:NN1];T1N1:C04:N$(T,C)::(N$(T,0))LLLL(N$(T,0))@:N$(N,0)"END":LL18(LL2)h1:20(T$)2:T$kVV4(N9)m2:11:"AVAILABLE PROGRAMS":VVrT1N:LLT10ĺ" ";T" "N$(T,0)& %0 CALL SELECTED PROGRAM. F ZN3210,3220,3230,3240,3250a D$"RUN VOCAB HANGMAN"} D$"RUN VOCAB SCRAMBLE" D$"RUN VOCAB SPELL1" D$"RUN VOCAB SPELL2" D$"RUN VOCAB WORDER" MENU ROUTINE ,ZM24:D$(4)1:T$,N:  1040 DF0:1080: 21:14:"PLEASE WAIT."i 23:" PROGRAM AND FILE BEING PREPARED."t 34,23 PREPARE COMMON AT $300.  768,19:769,20:770,1:771,18 772,P:773,UF:774,(F$) X1(F$) 774X,((F$,X,1))E UPDATE STATUS. L :(UF0)((P3)(P4))3000: :IF FILE UPDATEABLE. 13:"PLEASE NOTE: NO RECORD WILL BE MADE":"OF THIS RUN.":24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$: GT$(3)3200 DISPLAY TITLE AND DELAY MESSAGE. . , *SPELL2* OPTION SELECTION. 5 S20e T2$"N"NS2S21: :IF *SPELL2* EXCLUDED.u FR12760 : GOTO PROGRAM MENU IF *SPELL2* CAN NOT BE RUN AGAIN.( P4S212760 MENU. GET PROGRAM NAME.  :4100 ADVIS CHECK FOR WRITE PROTECT OR LOCKED FILE. 5 2510S D$;"WRITE VOC.";F$;",R0"` "VOCAB"p D$;"CLOSE" UF0:216,0:2560: :IF UPDATEABLE.  216,0 (222)4UF1:2560::IF WRITE PROTECTED. (222)10UF2:2560::IF LOCKED FILEZ:Z:T2$:TA$:D$IL V$"VOCAB"NS0Ĺ216,0:2460: :IF VALID FILE. TV 216,0w` (222)5ĺD$;"DELETE VOC.";F$j 21:"THAT WORD FILE IS NOT AVAILABLE."t 24:"PRESS ANY KEY TO TRY AGAIN: ";:16368,0:GT$~ GT$(3)2280 2290* yxA?ooo}={{^o^k|sg}>}~_~{}w{~np{p{~`{{aqjwxO8oJV[_{]n]vLAST UPDATE: 8/26/81 RPB4(1023)123600@230,32Y::1023,123:62450:16302,0:::(4)"BLOAD LOGO":16304,0:16368,0J1(16384)128:J127J132JJ1:J40053062450X(4);"RUN MICRO QUEST" Ţ̠ҠҠעϠŬҠŢ͠ԠϠάҠĠŠϢҬήͮŠȢŠȢӠӠΠŠƠՠŠҠӠƠ΢ŮMICRO QUEST STUDENT TEXT"LENAME OUT TO 300 PAGE.& 772,(F$)5 X1(F$)M 772X,((F$,X,1))S  : BRANCH TO GRAPHICS OR TEXT VERSION DEPENDING UPON LESSON FORMAT. 768,19:769,20:770,1:771,18 T1T2ĺD$;"RUN MICRO QUEST STUDENT GRAPHICS" D$;"RUN 4:"PRESS ANY KEY TO TRY AGAIN: ";:GT$9 GT$(3)ė:C 2420S( D$;"CLOSE"z2 : DISPLAY TITLE PAGE AND MESSAGE.< :F 1120P DF0:1160Z 21:14:"PLEASE WAIT."d 23:" PROGRAM AND FILE BEING PREPARED."n 34,23x : POKE FI8,0:F$ (F$)02560< : SEE IF FILE IS ON DISKETTE.G 2540x D$;"OPEN MIC.";F$:D$;"READ MIC.";F$:T:D$ T1T4Ĺ216,0:2600 216,0:D$ (222)5ĺD$;"DELETE MIC.";F$ 20:"THAT LESSON IS NOT AVAILABLE."' 16368,0:216368,0:X1750:(16384)128Ă7j : GET FILE NAME.Ct ::10k~ "WHICH LESSON DO YOU WANT TO RUN?" :"ENTER THE NAME OF THE LESSON YOU" "WANT TO RUN AFTER THE QUESTION MARK" "AND THEN PRESS THE KEY MARKED ."  1636  DF$""X14- DF$DF$((767X))3*M4DF$DN$Ĺ768,0:2420p>: DISPLAY GRAPHIC TITLE PAGE.zH::R1120\DF1:1160f21:2:"COPYRIGHT (C) 1980 BY MINNESOTA SCHOOL"p2:"DISTRICTS DATA PROCESSING JOINT BOARD."!z,2519:20,2425:26,2924:25,2929:28,2529><DF1İ1010VF32,3619:20,2934\Pz BEGINNING OF PROGRAM. : INITIALIZE.D$(4): DN$="DONE" IN CONTROLS.DN$(4)(15)(14)(5): CHECK TO SEE IF FIRST RUN OR NOT.9:10,1528DF1İ1010D5,1532:33,3615:14,536:35,335TDF1İ1010z19,292:3,829:28,197:6,319DF1İ1010 19,2911:12,1529:28,1915DF1İ101022,1819:20,2918:19,2229:19,2124(DF1İ1010.2292 jX035:0,39X: t3 ~: MICRO QUEST.: 7] 15,52:3,75:5,158:6,115m DF1İ1010 11,155:6,1413:11,1515 DF1İ1010 22,6:22,185:6,1518:19,2215:22,14 DF1İ1010 5,1525:26,295:6,929:28,26ATE: 8/20/81 RJG% (1023)1239997 ::1023,123q :16302,0:::(4)"BLOAD LOGO":16304,0:16368,0 J1(16384)128:J127J132JJ1:J400530 2000  DELAY LOOP. X1500:: L TITLE PAGE. V: BACKGROUND. `ANCEMENTS *+ * DESIGNED BY: *F * DANIEL M. FORDE *a * ANALYST, TIES *| * PROGRAMMED BY: * * DAVID E. LADEN * * TIES, 7/80 * * * *********************   LAST UPD * "* TEXT). *8 ,* *S 6* ORIGINAL TIME- *n @* SHARE VERSION * J* OF THIS PROGRAM * T* IS CALLED PHONET. * ^* * h* APPLE II * r* CONVERSION AND * |* ENHPLESOFT BASIC ** * *E * DESCRIPTION: *` * THIS IS THE *{ * DRIVER PROGRAM * * WHICH LINKS THE * * TWO VERSIONS OF * * MICRO QUEST * * STUDENT * * (GRAPHICS AND  d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** MICRO QUEST ** ** LANGUAGE: * * APd*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** MICRO QUEST ** ** LANGUAGE: * * AP     ŠȢԠŠӠӠ٠ԠԬԠԠҮנӠԿŠȢŠŮԠȢŢ̠ҠҠעϠŬҠŢ͠ԠϠάҠĠŠϢҬήͮŠȢŠȢӠӠΠŠƠՠŠҠӠƠ΢ŮӠŠԠƠŢҮΠӠĢŠӠϠננϢŠҠŠӢԠԠŠԢάԠ٠ŠԮŠȢԬ٠Ȣ̠ĠҬ  ŠȢԠŠӠӠ٠ԠԬԠԠҮנӠԿŠȢŠŮԠȢŢ̠ҠҠעϠŬҠŢ͠ԠϠάҠĠŠϢҬήͮŠȢŠȢӠӠΠŠƠՠŠҠӠƠ΢ŮӠŠԠƠŢҮΠӠĢŠӠϠננϢŠҠŠӢԠԠŠԢάԠ٠ŠԮŠȢԬ٠Ȣ̠ĠҬ! ! ! );"IN#6"D A$"Y"30809N 16301,0:16298,0:62450[l 768,4:769,15:770,14:771,5xv C$;D$;"RUN MICRO QUEST"UŠȢԠŠӠӠ٠ԠԬԠԠҮנӠԿŠȢŠŮŠȢŢ̠ҠҠעϠŬҠŢ͠ԠϠάҠĠŠϢҬήͮŠȢŠȢӠӠΠŠƠՠŠҠӠƠ΢ŮӠŠԠƠŢҮΠӠĢŠӠϠננϢŠҠŠӢԠԠŠԢάԠ٠ŠԮŠȢԬ٠Ȣ̠ĠҬ"" "