' +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*`HAT IS NOT CORRECT.":1010G X0:Y119:Z$"^HERE IS YOUR HINT:":1010[" X0:Y136:Z$""k, Z1(CW$)6 (I$,Z,1)(CW$,Z,1)Z$Z$"^"(CW$,Z,1):2890@ Z$Z$"-"J :1010T Y151:Y2118:1410^ 2710h INCORRECT. r X0:Y102:Z X0:Y68:Z$"?":1010:1210+ TNTN17 T9T91U (I$,1,1)"/"RS1:2620t TN1Y1102:Y2152:1410 (I$)02810 (I$,(I$),1)" "I$(I$,1,(I$)1):2780 I$CW$3010 TN32930 HINT.  X0:Y102:Z$"^NO, T4:771,5R :10:14:"PLEASE WAIT."::" PROGRAM AND FILE ARE BEING PREPARED."f D$;"RUN VOCAB"B(3)3260 N2$ SUMMARY. w 10:"THIS IS HOW YOU DID.":15:R;" CORRECT ";W;" WRONG ";O;" OVERTIME" 24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$: (13);D$;"CLOSE" UPDATE $300 & RETURN.  768,4:769,15:770,13170D INCORRECT. ON ::10:"I'M SORRY, BUT THAT IS NOT CORRECT.":YX WW1b "THE WORD WAS ";(34);A$;(34);"."l N2N13200v 18:"TRY TO UNSCRAMBLE THE NEXT WORD." 24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$:  GT$" "C$(C$,1,(C$)1):3020- C$A$3150@ CORRECT. L ::10V RR1h Z((1)8)1 C$(RE$,Z109,10) (C$,(C$),1)" "C$(C$,1,(C$)1):3100& "THAT IS ";C$;(7);" YOU UNSCRAMBLED":0 "THE WORD CORRECTLY.":: 2930T KY1602930.^ GT$(KY128):GT$;<h C$C$GT$Fr 1000V| IDI2850j OVERTIME. t OO1 :::12:"YOUR TIME IS UP": BZ1200 ZZ(16336)(16336) BZ ::10:3170 (C$)03150 (C$,(C$),1):I X10:I0& QUERY USER. H "THE SCRAMBLED WORD IS: ";B$p :"ENTER THE ANSWER: ";:16368,0" KY(16384):16368,0, KY14130206 KY1362900@ (C$)1C$(C$,(C$)1):(8);:868:2930J (C$)1C$"":(8);:868:)13 10,28(Y12)26(Y12)12:9,29(Y11)27(Y11)11:9,29(Y10)28(Y10)10:8,30(Y9)29(Y9)9:8,30(Y8)30(Y8)8 8,30(Y7)31(Y7)7:8,30(Y6)32(Y6)6 8,30(Y5)33(Y5)5:I401:7,31(YI)(38I)(YI)I0,1230:5,1031:0,632Q FILL WITH SAND. DRILL TIME DETERMINES HEIGHT.  9:18,20(Y18)20(Y18)18:17,21(Y17)21(Y17)17:15,23(Y16)22(Y16)16:13,25(Y15)23(Y15)15 12,26(Y14)24(Y14)14:11,27(Y13)25(Y130 10002970UAIN.";?24:1:"PRESS ANY KEY TO CONTINUE:";:16368,0:GT$RGT$(3)3650c1:20:958m2560~:INCORRECT.:10:"SORRY, THE WORD IS NOT"::(34);B$;(34);"."24:"PRESS ANY KEY TO CONTINUE:";:16368,0:GT$GT$(3)365GT$: 8:UPDATE $300 & RTRN.3BC$;D$;"CLOSE"UL768,4:769,15:770,14:771,5[V`10:14:"PLEASE WAIT."::" PROGRAM AND FILE ARE BEING PREPARED."jD$;"RUN VOCAB"t:ALREADY GUESSED.~20:1:"THAT LETTER HAS BEEN GUESSED; TRY AG I11000: I15) 17664:17750/ ? I11000:P G:16303,0_ :SUMMARY.~5:"THIS IS HOW YOU DID."10:15:"GAMES: ";K:11:"GAMES WON: ";W:$10:"GAMES LOST: ";L.24:"PRESS ANY KEY TO CONTINUE:";:16368,0: 0:6X,Y. XX1:Y12020((X10)12.7)< 3:6X,YQ X80Ĕ2100,100a X1053470p 2100,100| I150 0:6X,Y:J(16336)(16336)(16336)(16336)(16336)(16336)(16336):3:6X,Y  I11000: 3570 11000:( 0:5100,100:3:585,1003 17920= 3570M I11000:X X12d I611* JI(I9)(18I)(I8)4 0:J100,100> 3:J(I9)(I8)100,100H R A1500:\ Xf 17664p I11000:z 3570 X5:Y112 " FROM THIS LIST:":( N10:IIT0:T007 JJ0II3W D$;"PR#0"::DESELCT PRNTR.a Y$""t Y2$(3)3550 Y13 N1N11:N1NYY1:3440* 7:R$;N1:W$:D$4 LN(W$):LNP3360> T0T01H Y$Y$W$R (25LN)03430\ KILE ";(F$,5)v :* II1P:32P);6 JJ1Pl A%(II,JJ)46A%(II,JJ)0A%(II,JJ)((1)26)65 (A%(II,JJ));" "; JJ :II ::Y$"YES"3500 DUMP WORD LIST.  Y$"S":T0SU1Y$"" "FIND ";T0SU;" WORD";Y$;0 DUMP PUZZLE. H: 3690::10:"THE PUZZLE IS READY TO PRINT."D 12:1:"PRESS ANY KEY TO BEGIN: ";:16368,0:GT$N GT$(3)3550X 14:1:"THE PUZZLE IS BEING PRINTED..."b 775::SELCT PRNTR. l :22(F$)2);"PUZZLE USING WORD FPRINTED..."# 775::SELCT PRNTR.d :16(F$)2);"ANSWERS TO PUZZLE USING WORD FILE ";(F$,5)n :: II1P:32P); JJ1P A%(II,JJ)0A%(II,JJ)46 (A%(II,JJ));" "; JJ :II ::D$;"PR#0"::DESELCT PRNTR.& 12:"NOT ALL WORDS ARE INCLUDED."-| 1080:@ Y2$"NO"3130[ DUMP ANSWER KEY.  3690::10:"THE ANSWER KEY IS READY TO PRINT." 12:1:"PRESS ANY KEY TO BEGIN: ";:16368,0:GT$ GT$(3)3550  14:1:"THE ANSWER KEY IS BEING 14:771,5( 16301,0:16298,0:62450? C$;D$;"RUN VOCAB"^ "(N1):1040E X0:Y68:Z$"^NUMBER CORRECT: "(W6):1040} X0:Y85:Z$"^NUMBER INCORRECT: "(N1W6):1040 X0:Y174:Z$"^PRESS ANY KEY TO GO ON:":1040:16368,0:GT$ UPDATE $300 & RETURN.  CL$  768,4:769,15:770,O$:W$;Y31T W0$:W1$:C1:C21:C3:C4(W91)9^ D$@h TSr SUMMARY. | X0:Y174:Z$"^PRESS ANY KEY TO GO ON:":1040:16368,0:GT$:62450 GT$(3)3010 X0:Y0:Z$"^THIS IS HOW YOU DID.":1040 X0:Y51:Z$"^NUMBER OF WORDS: 40! X0:Y153:Z$W0$".":1000+ W105 2850H CORRECT. [ Z((1)8)1 X0:Y119:Z$"^"(RE$,Z109,10):1040 W6W6(W91)" UPDATE FILE. , UF0āDL11200::29206 O$:R$;Y3@ W0$:W1$:C1:C2:C3:C4 J 50 Y185:Y2102:1220K X0:Y119:Z$"^PLEASE ENTER ONE OF THE":1040y X0:Y136:Z$"WORDS ON THE SCREEN.":1040 2630 INCORRECT.  WW1 X0:Y119:Z$"^THAT IS INCORRECT.":1040 X0:Y136:Z$"^THE CORRECT SPELLING IS":10WER. 2 Y168:Y284:1220P< X0:Y68:Z$"^TYPE THE CORRECT SPELLING.":1040pF X0:Y85:Z$"?":1040:1100P Y1102:Y2153:1220Z W90d (I$)02700n (I$,(I$),1)" "I$(I$,1,(I$)1):2660x I$W0$W91:2820 I$W1$I$W2$27T1T2T3):1010Q X0:Y174:Z$"^PRESS ANY KEY TO GO ON:":1010:16368,0:GT$q UPDATE $300 & RETURN. z CL$ 768,4:769,15:770,14:771,5 16301,0:16298,0:62450 C$;D$;"RUN VOCAB"7:Y68:Z$"^AVERAGE TRIES/WORD: "(T9N1):1010e X0:Y85:Z$"^CORRECT ON 1ST TRY: "(T1):1010 X0:Y102:Z$"^CORRECT ON 2ND TRY: "(T2):1010 X0:Y119:Z$"^CORRECT ON 3RD TRY: "(T3):1010 X0:Y136:Z$"^INCORRECT: "(N110Cb X0:Y174:Z$"^PRESS ANY KEY TO GO ON:":1010:16368,0:GT$Vl GT$(3)3290av 62450 X0:Y0:Z$"^THIS IS HOW YOU DID.":1010 X0:Y34:Z$"^NUMBER OF WORDS: "(N1):1010 X0:Y51:Z$"^NUMBER OF TRIES: "(T9):10100 X01(TN1) T2T2(TN2)* T3T3(TN3)A UPDATE FILE. _ UF0āDL12000::3140n O$:R$;CW CW$:Z$:C1:C2:C3:C4 O$:W$;CW CW$:Z$& C11:C20 C3(TN1):C4: D$D TN SUMMARY. X Y1174:Y2191:14$"^THAT IS INCORRECT.":1010O| X0:Y119:Z$"^THE CORRECT SPELLING IS":1010c X0:Y136:Z$""s Z1(CW$) Z$Z$"^"(CW$,Z,1) :Z$Z$".":1010 3060 CORRECT.  X0:Y102:Z$"^"(RE$,(((1)8)1)109,10):1010 T1TDF1İ1010=j18,1723:22,1817:18,2618:19,2326:23,25MtDF1İ1010~29,2522:23,2625:26,3026:25,1730:29,2517:25,18DF1İ10107,2632:33,3726:25,1737:36,3317 BEGINNING OF PROGRAM. D$(4)::6P.  X11000::)  TITLE PAGE. =  : BACKGROUND.D 1Z X035:0,39X:` $n .: VOCAB.v 811 B7,122:13,183:19,244:5,625:5,626:24,197:18,138:12,79 LDF1İ1010 V17,2611:12,1626:25,1716:15,1217 `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: * * AP     4,105,31,133,36,104,96,108,3,3 g2,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176t"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,88 "j'32,168,252,169,0,133,36,173,2,3,240,9,237,1,3,233,247,144 #t',0,3,141,4,3,169,255,153,120,7,169,17,153 r!.'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,144 !B'14,173,231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145 :"L'4GT$ GT$(3)3550A GT$"L"ĺ"LOW":802,82:818,82:PS1:{ GT$"H"Ė1:15:"TYPE OR PLEASE.":11:3750 "HIGH":PS1: ' DATA FOR PRINT ROUTINE. '2,40,0,5,34,24,176,56,152,72,172,0,3,8,169,5,141,3 ,!$'3,169,192,24,109 `2160+j PRINTER INITIALIZATION. ItPS1ı: IF ALREADY SET.e~: LOAD PRINTER ROUTINE:DA768939:DE:DA,DE:823,75: SET COLUMN WIDTH10:1:958:"HIGH OR LOW SPEED?" "PRESS FOR HIGH, FOR LOW: ";:16368,0:WAIT."::" PROGRAM AND FILE ARE BEING PREPARED.";CL$OD$;"RUN VOCAB"b$ RESTART. .14:958:1:"PLEASE WAIT FOR A MOMENT."8Y2$"":Y$Y2$:N$Y2$BII130:JJ130:A%(II,JJ)0::B%(II)0:LC00:T00:LN0:P0:SU0:N10VU FIND ";:T0SU1ĺ"IT?":3540, "THEM?"P ::D$;"PR#0"::DESELCT PRNTR.v SET COMMON $300 AND RETURN.  768,4:769,15:770,14:771,5 772,N2:773,UF:774,(F$)4 X1(F$)4:(774X),((F$,(4X),1)):2::10:14:"PLEASE K1(25LN):Y$Y$" ":f Y9p Y$(Y$,1,(Y2)25LN)Qz 775::SELCT PRNTR.Y Y$a JJt ::D$;"PR#0"~ 3550 :IF NO WORD LIST. Y$"S":Y2$"ARE":T0SU1Y$"":Y2$"IS" "THERE ";Y2$;" AT LEAST "T0SU;" WORD";Y$;" HERE--CAN YO D$(4)#(1023)12320205::1023,123m:16302,0:::D$"BLOAD LOGO":16304,0:16368,0J1(16384)128:J127J132JJ1:J4002018D$;"RUN VOCAB"d yxA?ooo}={{^o^k|sg~np{p{~`{{aqjwxO8oJV[_{]n]vox?>pp}xO}>}~_~{}w?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?_{o7m?]{o}_ow[g_?^wgog?wox?o@?~?x>{m?_9v^}xA?ooo}];?oogy{s~nnun{~n{{nnfw?~oxp67\_{]qcfoxG?G|}x}>}~_~{}w{?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}x_xs~xXc{0p?c>{o~_ow[k_?]wwoO?w{nsox|?xO>n?_}x^|xA?ooo}@?Wt?~Ox?x|}??p~~`|?OO|O@_~{~?k{m?_}v_?|x~0W]v[k6wmo.{~?_>{o7}~?y>x`ow[m_?[wsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qqqwqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q}>}~_~{}w{?oo~o@_~{~?g]{m?_}v_?~~~?~PO>zog>{k/{~?_]{m7}~?|>{o7ow[n_?Wwxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ox<@}~??|_Oox?g}xG}>}~_~{}{?go?~o@|?p>{m?_}v_?ppx?X_~zoo>{k/?{~?_k{m7}~?~>{o7owoW?O~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xqqo88`}~?`>n7@}~?~~gox?O}x~}>}~_~{}{?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~?@~`?@_O~zog>{K/{~`wn7@??~>{o7_ow[oO?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wnnO0?~}~?_>{m7=?_qwlw`\o<~`ox?a@}xx}>}~_~{A|?8o{;?o{~_}~.wvsw?o@G?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_ |~?_>{m7]?_?|k{o;_ow[o_?>_ox? }xc}>}~_~{}w?X_{{?ww~_>wv{w?o@?x?~>{m?_Uv^G_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o                    ;ZS   VX$"N"3220$ :*  D)256:ZB(ZA)(ZA1)256< ZS(ZB1)16:ZS1ZS7ZS6O (4);"PR#";ZSU h VX$"N"3220p :v Z141Z1603270 16368,0:: ZA(999)(1000)256:ZB(ZA)(ZA1)256 ZS(ZB1)16:ZS1ZS7ZS6 (4);"PR#"7:16368,0>#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";f(PZC(16384):ZC141ZC160205202P16368,0:7:868:21::ZV1:ZH1:"!VOCAB TEACHER,VOCAB TEACHER^$"VOCAB TEACHER","FILE BUILDER FOR THE VOCAB PACKAGE",""s.CLEANUP,CLEANUP8 "CLEANUP","DELETES FILES CREATED BY THE FILE","BUILDER PROGRAMS"P SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZ P24:H::200$ TEACHER UTILITIES,5SMICRO QUEST GRAPHICS,MICRO QUEST GRAPHICS"MICRO QUEST GRAPHICS","FILE BUILDER FOR MICRO QUEST GRAPHICS",""MICRO QUEST TEXT,MICRO QUEST TEXT"MICRO QUEST TEXT","FILE BUILDER FOR MICRO QUEST TEXT",""(A)(A1)256'CS(B1)16:SLOT #;CS1CS7CS6L(4)"PR#"CSRd DESCRIPTIONSr*:34,1:/14:"DESCRIPTIONS":34,424T1N1:(37)18İ20500:9C24:N$(T,C)""N$(T,C)" "835>N$(T,C):CC:T:20500 (ZN$):"&CV1:36,CH:868:*X:zb10: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)256BTTING THE PROGRAM..."(230,32:62450?D$;"RUN ";N$(Q,1)UCH(36):CV(37){"";ZN$:(ZN$)(((ZN$)))520(ZN$)0ZN$"0"540ZN$"D"ZN0:ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:868p16303,0y"490,ZN$"D"800QZNQ0QN147022:1:"PLEASE ENTER A NUMBER FROM 1 TO "N".":16:280QN600::10:"GELL2) 1:20(T$)2:T$+ VV4(N9)P 2:11:"AVAILABLE PROGRAMS":VV_ T1N:LLo T10ĺ" "; T" "N$(T,0) N6T((N1)2)ĺ T:(1023)123280 J1(16384)128:J10JJ1:J300275 16368,0:1023,123 b DISTRIBUTED WITHOUT PERMISSION."[ :" PRESS ";::"SPACE BAR";::" TO CONTINUE.";g A$::y ZM24:D$(4) :T$,N:NN1:N$(N,4) LL0 NN1 T1N1:C04:N$(T,C)::(N$(T,0))LLLL(N$(T,0)) :N$(N,0)"END":LL18(T TEXT":1022 15:1:ZZ$"- VOCAB TEACHER":102= 18:2s 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! "BE";:27:" ";:31:" " vX13A w17:" ";:27:" ";:31:" "H xXd y17:" ";:27:" ";j z {19:"EACHER";:33:"TILITIES" |8:15:"FOR MICRO QUEST AND VOCAB." }11:1:ZZ$"- MICRO QUEST GRAPHICS":102 ~13:1:ZZ$"- MICRO QUES(ZZ$,X,1);$ gXX15:C(16336):3 hXX110:: iXL jXX1100::j k BEGINNING OF PROGRAM. r l:y m2 n"************" o"* *" p" * TIES *" q" * ---- *" r" * -- *" s" ****" t u2:15:" D$(4)#(1023)12320205::1023,123m:16302,0:::D$"BLOAD LOGO":16304,0:16368,0J1(16384)128:J127J132JJ1:J4002018D$;"RUN VOCAB"d6368,02D$"NOMON CIO"<275d108e fX1(ZZ$):     :" TO CONTINUE"; 16368,0C Z(16384):Z141Z1603270U 16368,0:: ZA(999)(1000)256:ZB(ZA)(ZA1)256 ZS(ZB1)16:ZS1ZS7ZS6 (4);"PR#";ZS  VX$"N"3220 : 8,0:: ZA(999)(1000z#??    ϠîӠ  ΠӮ  ΠӮ ΠӮ ΠӮӠ îӠ Ϡ"  Π  Πɠ Š ̱ ̲ Ҡ:" TO CONTINUE"; 16368,0C Z(16384):Z141Z1603270U 16368,0:: ZA(999)(1000)256:ZB(ZA)(ZA1)256 ZS(ZB1)16:ZS1ZS7ZS6 (4);"PR#";ZS  VX$"N"3220 : DN VOCAB WORDER""v GT$(3)3200? TERMINATE PACKAGE. Y (13);D$;"CLOSE":: 10:"DO YOU WANT TO USE ANOTHER"::"DISKETTE? ";VX$:VX$(VX$,1) VX$"Y"3330 :10:11:"INSERT NEW DISKETTE" 24:7:"PRESS ";::"SPACE BAR";:72,P:773,UF:774,(F$)& X1(F$)> 774X,((F$,X,1))D& e0 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$;"RU GT$(3)3200? DISPLAY TITLE AND DELAY MESSAGE. E O 1040^ DF0:1080z 21:14:"PLEASE WAIT." 23:" PROGRAM AND FILE BEING PREPARED." 34,23 PREPARE COMMON AT $300.  768,19:769,20:770,1:771,18 760r X4S212900| PX= ADVISE UPDATE STATUS. w :(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$: THIS DISKETTE"*, 20:1:958:16368,0N6 "WHAT PROGRAM DO YOU WANT?";A$a; A$"END"3200@ 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 27S YOU" "MAY RUN:" A "HANGMAN THE GAME OF HANGMAN"e "SCRAMBLE WORD SCRAMBLE GAME" "SPELL1 SPELLING MEMORY DRILL" S212850 "SPELL2 SPELLING RECOGNITION DRILL"" "WORDER WORD FINDING PUZZLE"' "END ENDx "SPELL2";:2700! "WORDER";2 (34);" ?";J 16368,0:GT$:GT$\ GT$"Y"3000o GT$(3)3200 GT$"N"ė:20:"TYPE OR PLEASE.":10:2630 MENU. GET PROGRAM NAME.  10:1:958 "HERE IS A LIST OF THE PROGRAM12760A : GOTO PROGRAM MENU IF *SPELL2* CAN NOT BE RUN AGAIN.T( P4S212760g2 RESTART. q< :10F "DO YOU WANT ANOTHER RUN OF ";(34);P P2650,2660,2670,2680,2690Z "HANGMAN";:2700d "SCRAMBLE";:2700n "SPELL1";:2700", UF0:216,0:2560: :IF UPDATEABLE. 7 216,0f (222)4UF1:2560::IF WRITE PROTECTED. (222)10UF2:2560::IF LOCKED FILE.  *SPELL2* OPTION SELECTION.  S20 T2$"N"NS2S21: :IF *SPELL2* EXCLUDED. FRVOC.";F$4j 20:"THAT WORD FILE IS NOT AVAILABLE."lt 24:"PRESS ANY KEY TO TRY AGAIN: ";:16368,0:GT$~ GT$(3)3200 2290 CHECK FOR WRITE PROTECT OR LOCKED FILE.  2510 D$;"WRITE VOC.";F$;",R0" "VOCAB" D$;"CLOSEETURN>.": 16368,0:F$/ F$"END"3200A$ (F$)02410L. 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 FILE. V 216,0` (222)5ĺD$;"DELETE :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 PRESS THE KEY MARKED .":  "IF YOU NO LONGER WANT TO USE THIS":"DISKETTE, TYPE 'END' AND OR PLEASE.":2210D$;"CLOSE" GET AND VALIDATE FILE NAME. 2RIGHT (C) 1980 BY MINNESOTA SCHOOL":2:"DISTRICTS DATA PROCESSING JOINT BOARD."xH16368,0:X1750:(16384)128ĂR:\2290fp GET PREVIOUS PROGRAM NUMBER AND FILE NAME. P(772):F$"":X1(774):F$F$((774X))::2454-OL$"HANGMASCRAMBSPELL1SPELL2WORDER"K CHECK IF FIRST RUN. sRS$"":X768771:RS$RS$((X)): RS$(4)(15)(14)(5)Ĺ768,0:FR1:2160::IF RESTART. DISPLAY TITLE PAGE.  *10404DF1:1080P>21:2:"COPYN VOCAB WORDER""v GT$(3)3200? TERMINATE PACKAGE. Y (13);D$;"CLOSE":: 10:"DO YOU WANT TO USE ANOTHER"::"DISKETTE? ";VX$:VX$(VX$,1) VX$"Y"3330 :10:11:"INSERT NEW DISKETTE" 24:7:"PRESS ";::"SPACE BAR";:72,P:773,UF:774,(F$)& X1(F$)> 774X,((F$,X,1))D& e0 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$;"RU GT$(3)3200? DISPLAY TITLE AND DELAY MESSAGE. E O 1040^ DF0:1080z 21:14:"PLEASE WAIT." 23:" PROGRAM AND FILE BEING PREPARED." 34,23 PREPARE COMMON AT $300.  768,19:769,20:770,1:771,18 760r X4S212900| PX= ADVISE UPDATE STATUS. w :(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$: THIS DISKETTE"*, 20:1:958:16368,0N6 "WHAT PROGRAM DO YOU WANT?";A$a; A$"END"3200@ 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 27S YOU" "MAY RUN:" A "HANGMAN THE GAME OF HANGMAN"e "SCRAMBLE WORD SCRAMBLE GAME" "SPELL1 SPELLING MEMORY DRILL" S212850 "SPELL2 SPELLING RECOGNITION DRILL"" "WORDER WORD FINDING PUZZLE"' "END ENDx "SPELL2";:2700! "WORDER";2 (34);" ?";J 16368,0:GT$:GT$\ GT$"Y"3000o GT$(3)3200 GT$"N"ė:20:"TYPE OR PLEASE.":10:2630 MENU. GET PROGRAM NAME.  10:1:958 "HERE IS A LIST OF THE PROGRAM$;D$;"CLOSE".V 768,4:769,15:770,14:771,54` |j 10:14:"PLEASE WAIT."::" PROGRAM AND FILE ARE BEING PREPARED."t D$;"RUN VOCAB"B405 GT$"N"Ģ20:"PLEASE TYPE OR .":2290> G00s$ (775(774)),K:(776(774)),N:(777(774)),G0. :10:14:"PLEASE WAIT."::" PROGRAM AND FILE ARE BEING PREPARED."8 768,8::SET HANGMAN.B C$;D$;"RUN VOCAB HANGMAN II" L C ANY KEY TO CONTINUE:";:16368,0:GT$:KN=GT$(3)2380F:6w"I CAN DRAW PICTURES OF MANY THINGS WHEN":"YOU GUESS MY LETTERS CORRECTLY."15:868:"DO YOU WANT ME TO DRAW PICTURES? ";16368,0:GT$:GT$ GT$"Y"G01:23YOU MAY TYPE IN THE WHOLE WORD."6:GET # OF WORDS.s19:16368,0:"HOW MANY WORDS DO YOU WANT TO TRY? ";GT$K(GT$):K(K)Ģ19:958:2190K02380KN226021:958*"I'M SORRY. THERE ARE ONLY ";N;" WORDS.":24:"PRESSHE LETTERS IN IT. IF YOUR":H H"GUESS IS CORRECT, I WILL SHOW YOU":t R"WHERE THE LETTER BELONGS. IF YOUR": \"GUESS IS WRONG, I WILL ADD THE": f"LETTER TO A LIST OF WRONG LETTERS.": p"IF YOU THINK YOU KNOW WHAT THE WORD": z"IS, (20)(1)(18)ĺD$;"RUN VOCAB"5 :GET FILENAME.c F$"VOC.":A1(774):F$F$((774A)): R$C$D$"READ "F$",R" D$;"OPEN ";F$;",L80" R$;0:B$:N:D$ *:INSTRUCTIONS. 4::"I WILL THINK OF A WORD. YOU WILL": >"GUESS T. CHRISTIANSEN *+ * TIES, 8/80 *F * & DAVID E. LADEN *a * TIES, 8/80 *| * * *********************  C$(13):D$(4) :FROM VOCAB? RS$"":A768771:RS$RS$((A)):! RS$(19) * "* TIES, 7/78 *8 ,* *S 6* APPLE II *n @* CONVERSION AND * J* ENHANCEMENTS * T* DESIGNED BY: * ^* DANIEL M. FORDE * h* ANALYST, TIES * r* PROGRAMMED BY: * |* RIS IS A ** * SPELLING *E * GUESSING DRILL. *` * *{ * ORIGINAL TIME- * * SHARE PROGRAM * * WRITTEN BY: * * LYLE DIXSON * * BURNSVILLE,7/74 * * & SCOTT COSTELLO d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB HANGMAN ** ** DESCRIPTION: * * TH     340,3460,3562N I153-X 3:6I21,187Ab 0:6I21,187Sl 3:7I2,187ev 0:7I2,187k | I187111 3:8107,I 0:8107,I  I5477 3:6I21,11 0:6I21,11 3:7I2,11 0:7I2,11  :I :10:"YOU HAVE GUESSED THE WORD!";(7)4 WW1` 15:"THE WORD WAS ";(34);W$;(34);"." 24:"PRESS ANY KEY TO CONTINUE:";:16368,0:GT$: GT$(3)3650 G03570& 16304,0:S531400 D1:JS1: SJ5:1060: D F3150,3))(((M1)6)1)' J(J)SJ:1060. HD :OUT OF GUESSES.u :10:"TOO BAD. YOU HAVE NO GUESSES LEFT." LL1 15:"THE WORD WAS ";(34);W$;(34);"." 24:"PRESS ANY KEY TO CONTINUE:";:16368,0:GT$: 3570 :CORRECT.)1)B$3710  A1(W$)6 (P$,A,1)B$3710< U" :SET MATCH IN HINT.d, A1(W$)|6 B$(W$,A,1)2910@ P$(P$,1,A1)B$(P$,A1)J CBB1T C1^ h CI$I$B$:2970r P$W$3050| G02970 J(B((M1)68,0:GT$ 20:1:958# 25604 (B$)3770m (B$)1(B$,(B$),1)" "B$(B$,1,(B$)1):2710w 958 :PROCESS. B$W$3050 (B$,1,1)"/"ė:3000 (B$)13770 :CHECK IF ALREADY GUESSED. A1(I$)  (I$,A,640< (B$)2590>F B$(B$,1,(B$)1):(8);:868:2590P (GT$" "GT$"/"GT$"A")(GT$"/"(B$)0)(GT$"Z")2670Z GT$;:B$B$GT$d 2590n 20:1:"USE LETTERS AND SPACES ONLY, PLEASE."x 24:"PRESS ANY KEY TO CONTINUE:";:1636:37:G 11:13:P$( (I$)25603 5:13B A1(I$)S A14Ģ6:13g (I$,A,1);" ";m  15:1:" ENTER YOUR":" GUESS : ";:868 :GET GUESS. B$"":16368,0 GT$:GT$(13)2710( GT$(3)36502 GT$(8)2T LETTERS, A ";(S$,F65,6):7` "WILL BE DRAWN. ";dj "TO GIVE UP, TYPE ";(34);"/";(34);"."zt 14:"GOOD LUCK!"~ 21:"PRESS ANY KEY TO BEGIN:";:16368,0:GT$ GT$(3)3650 1000 :GUESS LOOP. H1(W$)5:C0 2:10:H;$(W$,1,1):2330: I1(B$):(W$,A,1)(B$,I,1)2330P :B$B$(W$,A,1)W Ac$ M(B$)z. 62450::16303,08 6:"I KNOW A WORD. IT HAS ";(W$);" LETTERS.":B "WHY DON'T YOU TRY TO GUESS IT?":L G02410V "AS YOU GUESS CORREC zP%(J)2160 P%(J)1, R$;J:W$:D$: G02270R F14:Q%(F)2230i :F14:Q%(F)0:{ F((1)4)1 Q%(F)2230 Q%(F)1 C$;D$;"BLOAD VOCAB HANGMAN SHAPES.";F P$"":I$"":B$"" A1(W$) P$P$"-"A1B S$"ROCKETSUN FLOWERRABBIT"- P%(100): W0:L0^ *768,0:C$;D$;"OPEN ";F$;",L80" 4K((774)775):N((774)776):G0((774)777) >I1100:P%(I)0: H:16302,0 R:MAIN LOOP. \:G1K: fB0:D0:S0:3 pJ(N(1))1S100,100 8D1110' BI13000:5 L16303,0; VU :BEGINNING OF PRGRM.q 18432:D$(4):C$(13) (768)8Ĺ768,0:C$;D$;"RUN VOCAB" 232,0:233,64:1:0 F$"VOC.":A1(774):F$F$((774A)): R$C$D$"READ "F$",R" * "* *8 ,*********************B 6 L 2000Z :SCREEN.~ ::" GUESS # ";:30:"GAME #" 4:" INCORRECT":" LETTERS :" 10:" CORRECT":" LETTERS :"  :PLOT GRAPHICS. $DĹ16304,0:I12000: .ERSION AND ** * ENHANCEMENTS *E * DESIGNED BY: *` * DANIEL M. FORDE *{ * ANALYST, TIES * * PROGRAMMED BY: * * R. CHRISTIANSEN * * TIES, 8/80 * * & DAVID E. LADEN * * TIES, 8/80 d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB HANGMAN II** ** APPLE II * * CONV         337:32,386:6,3239:32,3832:28,3331:26,2830:29,26:29,25 28,25:28,24:27,24:27,23:26,23:25,22:24,22:23,21:22,21:22,20:21,20 20,19:21,18:22,18:22,17:23,17:24,16:25,16:26,15:27,15:27,14:28,14 28,13:29,13:29,12:1GLASS. n Ux 4:0,66:5,107:10,128:9,12:9,13:10,13:10,14:11,14:11,15 12,15:13,16:14,16:15,17:16,17:16,18:17,18:18,19:17,20:16,20:16,21 15,21:14,22:13,22:12,23:11,23:11,24:10,24:10,25:9,25:9,26:26,288B 28,LEAST FIRST LETTER IS NOT FROM FIRST POSITION.@ D((5)C)1S D1C12550k P(D)1:B$(A$,D,1) :SCRAMBLE REMAINING LETTERS. C12660( E2C2 D((5)C)1< P(D)12610F B$B$(A$,D,1)P P(D)1Z d DRAW HOUR(I): Y018:DI:Z38Y. TBP(Y1)ĂYU I124:P(I)0::A$"":B$"":C$""i GET WORD.  WW((1)N1):B%(WW)12480 B%(WW)1 (13);D$;"READ ";F$;",R";WW A$:D$ C(A$) SCRAMBLE WORD. . :ENSURE THAT AT RST WORD."::"REMEMBER TO TYPE CAREFULLY, AND":V "TO PRESS THE KEY AFTER"::"YOU HAVE FINISHED TYPING THE WORD.":24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$` :GT$(3)3260j BEGIN MAIN LOOP. t N21N1~ :I119:P LIKE TO TRY";/ 16368,0:A$:N1((A$).5)B N10ė:3260R$ N1N2380. 17:958:"SORRY, THERE ARE ONLY"::N;" WORDS FOR YOU.":N1N8 24:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$B GT$(3)32601L :6:"GET READY FOR YOUR FI OR PLEASE.":2210S16:958:"THE MAXIMUM TIME LIMIT IS 255 SECONDS.":x"HOW MANY SECONDS DO YOU WANT";16368,0:A$:(A$)255(A$)12260TB((A$).5) GET NUMBER OF PROBLEMS.  14:958:"HOW MANY WORDS WOULD YOU"WILL THEN TRY TO UNSCRAMBLE IT BEFORE":F"YOUR TIME RUNS OUT."d GET NEW TIME LIMIT. vTA$"N"231014:868:"DO YOU WISH TO CHANGE THE TIME? ";16368,0:GT$:GT$GT$"N"2310GT$(3)3260GT$"Y"Ģ20:"TYPE 60,335,305,295,265,235,205,180,150,120,100,75,45,25KH INSTRUCTIONS. ~R::D$;"OPEN ";F$;",L80":D$;"READ ";F$;",R0"\A$:N:TS:TB:T2$:TA$:D$f6:"THE APPLE WILL PRINT A SCRAMBLED WORD":p"AND WAIT FOR ";TB;" SECONDS. YOU":+zT FILENAME.9 F$"VOC.":X1(774):F$F$((774X)):L P(24),B%(100) *RE$"GOOD! VERY GOOD!FANTASTIC!GREAT! TERRIFIC! RIGHT! SUPER! EXCELLENT!" 4107,100,93,86,78,69,62,55,50,45,38,32,28,22,17,14,10,6,43>475,458,443,427,395,3X,Z BX1X13 L(2(I2))((2I)2)X1X11O VX113X10:YY1:ZZ1U `s  BEGINNING OF PROGRAM.  D$(4) : FROM VOCAB? RS$"":X768771:RS$RS$((X)): RS$(19)(20)(1)(18)ĺD$;"RUN VOCAB" 768,0 : GEAVID E. LADEN *+ * TIES, 6/80 *F * *a *********************k  u 2000  MOVE SAND ROUTINE. II1 C919(Z1):9:19,C9 0:19,C9 C9 X19X1 $X,Y)91090 .0:X,Y 89: * "* MARSHALLTOWN, *8 ,* IOWA. *S 6* *n @* DESIGNED BY: * J* DANIEL M. FORDE * T* ANALYST, TIES * ^* PROGRAMMED BY: * h* R. CHRISTIANSEN * r* TIES, 7/80 * |* & DPLESOFT BASIC ** * *E * DESCRIPTION: *` * THIS IS A *{ * SCRAMBLED WORD * * GAME. * * * * GRAPHICS ADAPTED * * FROM "WORD" BY: * * JOHN COOK, gd*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB SCRAMBLE ** ** LANGUAGE: * * AP      M522680'd GT(16384):GT1282650Bn GT141TRTR1:2650Px 16368,0f GET ANSWER. | Y134:Y250:1410 X0:Y51:Z$"^TYPE CORRECT SPELLING.":1010 TN0RS1X0:Y174:Z$"^TYPE "(34)"/"(34)" TO REPEAT WORD.":1010:RS0 GET WORD. % T1N1:RS08 CW((1)N1)K A%(CW)12560X A%(CW)1p O$:R$;CW:CW$:D$( DISPLAY & DELAY. 2 TN0< 62450F X0:Y34:Z$"":Z1(CW$):Z$Z$"^"(CW$,Z,1)::1010P 16368,0:TR0 Z TRTR1:TRTTO TRY?":1010:TL30:1210' N1(I$)7 N103310G N1N2550v X0:Y68:Z$"^SORRY, THERE ARE ONLY":1010 X0:Y85:Z$(N)" WORDS FOR YOU.":1010 X0:Y174:Z$"^PRESS ANY KEY TO GO ON:":1010:16368,0:GT$ GT$(3)3290 N1N83:14109L X0:Y0:Z$"^THAT VALUE IS NOT WITHIN":1010jV X0:Y17:Z$"ALLOWED LIMITS. ^PLEASE":1010` X0:Y34:Z$"TRY AGAIN.":1010j Y1136:Y2173:1410t 2340~ 62450 X0:Y17:Z$"^HOW MANY WORDS DO YOU":1010 X0:Y34:Z$"WANT I$"Y"2250= X0:Y85:Z$"^THE MAXIMUM TIME LIMIT":1010n X0:Y102:Z$"ALLOWED IS 255 SECONDS.":1010$ X0:Y136:Z$"^HOW MANY SECONDS DO":1010. X0:Y153:Z$"YOU WANT?":1010:TL30:12108 (I$)0(I$)255TM(I$):2430B Y10:Y20:Y51:Z$"TYPE THE WORD CORRECTLY.":1010<TA$"N"2430kX0:Y85:Z$"^DO YOU WISH TO CHANGE":1010X0:Y102:Z$"THE TIME?":1010:16368,0:I$I$(3)3290I$"A"I$"Z"Z$"^"I$:1010I$"N"2430Y185:Y2119:1410  CL$D$"CLOSE"pO$:R$;0;zZ$:N:TM:X:Z$:TM$:D$S INSTRUCTIONS. c:16302,0X0:Y0:Z$"^THE ^A^P^P^L^E WILL PRINT A":1010X0:Y17:Z$"WORD AND WAIT FOR "(TM):1010X0:Y34:Z$"SECONDS. ^YOU MUST THEN":1010*X$"GOOD! VERY GOOD!FANTASTIC!GREAT! TERRIFIC! RIGHT! SUPER! EXCELLENT!"zH GET UPDATE FLAG & FILENAME. RUF(773)\F$"VOC.":X1(774):F$F$((774X)):fO$D$"OPEN "F$",L80":R$D$"READ "F$",R":W$D$"WRITE "F$",R":BEGINNING OF PROGRAM 184325C$(13):D$(4)PD$;"BLOAD CHARACTERS"l232,0:233,64:3:1:0: FROM VOCAB? RS$"":X768771:RS$RS$((X)):RS$(19)(20)(1)(18)ĺD$;"RUN VOCAB" 768,0*A%(100)4T90T>REZ$(8)1290 (I$)012206 XX11:X2691280X 0:ZYY16:X,ZX10,Z::3u 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: ,1)):XB94CP58:XX11:1050B ZXX(Z1)11:ZX0ZX2691050R XB321050 XAXBCP6:XAZX,Y:XAZX1,Y:XAZX1,Y1:XAZX,Y1:CP0 Z:Z$"":XZX11:  INPUT STRNG. I$"":16368,0 Z$:Z$(13)ı Z$(3)3290 ROGRAMMED BY: *- * R. CHRISTIANSEN *H * TIES, 7/80 *c * & DAVID E. LADEN *~ * TIES, 5/80 * * * *********************  2000  HIRES CHAR PLOT  CP0:Z1(Z$):XB((Z$,Z * "* INSTRUCTIONAL *: ,* STAFF. *U 6* *p @* APPLE II * J* CONVERSION AND * T* ENHANCEMENTS * ^* DESIGNED BY: * h* DANIEL M. FORDE * r* ANALYST, TIES * |* PAPPLESOFT BASIC *, * *G * DESCRIPTION: *b * DRILL ON *} * SPELLING WORDS. * * * * ORIGINAL TIME- * * SHARE PROGRAM * * WRITTEN BY: * * TIES d*********************7n* *Tx* COPYRIGHT 1980 * o* BY TIES. ** ** PROGRAM NAME: ** VOCAB SPELL1 ** ** LANGUAGE: * *         34:Z$W2$:1000:2610` X0:Y0:Z$W1$:1000:X0:Y17:Z$W2$:1000:X0:Y34:Z$W0$:1000:2610 X0:Y0:Z$W2$:1000:X0:Y17:Z$W0$:1000:X0:Y34:Z$W1$:1000:2610 X0:Y0:Z$W2$:1000:X0:Y17:Z$W1$:1000:X0:Y34:Z$W0$:1000( GET ANS 62450:((1)5)12540,2550,2560,2570,2580,2590 X0:Y0:Z$W0$:1000:X0:Y17:Z$W1$:1000:X0:Y34:Z$W2$:1000:2610 X0:Y0:Z$W0$:1000:X0:Y17:Z$W2$:1000:X0:Y34:Z$W1$:1000:2610 X0:Y0:Z$W1$:1000:X0:Y17:Z$W0$:1000:X0:YT1,2)0T2T217~ T22ĂT1:T11N1:B%(T1,2)0:T1[ Y0((1)N)1:B%(Y0,2)12440j B%(Y0,2)1 Y1((1)N)1:B%(Y1,2)12460 B%(Y1,2)1 O$ R$;Y3:W0$:D$ R$;Y0:GT$:W1$:D$ R$;Y1:GT$:W2$:D$ DISPLAY. 4 ON:":1040:16368,0:GT$:624504$ GT$(3)3010=. N1NK8 W60:W90`B GET WORDS. lL T1N1V Y3((1)N)1:B%(Y3,1)12390` B%(Y3,1)1j : SEE IF AT LEAST 2 INCORRECT WORDS ARE LEFT. IF NOT, RESET MATRIX.t T20:T11N1:B%(W MANY PROBLEMS WOULD":1040ZX0:Y17:Z$"YOU LIKE TO TRY?":1040:TL30:1100:N1(I$)jN103030zN1N2360 X0:Y51:Z$"^SORRY, THERE ARE ONLY":1040 X0:Y68:Z$(N)" PROBLEMS FOR YOU.":1040! X0:Y174:Z$"^PRESS ANY KEY TO GO/X0:Y51:Z$"CORRECTLY. ^THE OTHERS":1040`X0:Y68:Z$"ARE NOT. ^YOU MUST PICK":1040X0:Y85:Z$"THE ONE THAT IS CORRECT.":1040X0:Y174:Z$"^PRESS ANY KEY TO GO ON:":1040:16368,0:GT$GT$(3)301062450:X0:Y0:Z$"^HOXCELLENT!"\O$:R$;07fA$:N:Z:Z:GT$:TA$:D$EpW10:W0]z INSTRUCTIONS. m:16302,0X0:Y0:Z$"^FOR EACH PROBLEM, THE":1040X0:Y17:Z$"^A^P^P^L^E WILL PRINT THREE":1040X0:Y34:Z$"WORDS. ^ONE IS SPELLED":1040G & FILENAME. 4UF(773)K>F$"VOC.":X1(774):F$F$((774X)):HO$C$D$"OPEN "F$",L80":R$C$D$"READ "F$",R":W$C$D$"WRITE "F$",R":CL$C$D$"CLOSE" RRE$"GOOD! VERY GOOD!FANTASTIC!GREAT! TERRIFIC! RIGHT! SUPER! EING OF PROGRAM. ,18432:D$(4):C$(13)GD$;"BLOAD CHARACTERS"c232,0:233,64:3:1:0v: FROM VOCAB?RS$"":X768771:RS$RS$((X)): RS$(19)(20)(1)(18)ĺD$;"RUN VOCAB"768,0 B%(100,2)* GET UPDATE FLA1180 t(I$)01110- ~XX11:X2691170O 0:ZYY16:X,ZX10,Z::3l I$(I$,1,(I$)1):1110 Z$" "Z$"Z"1110 I$I$Z$:Z$"A"Z$"Z"Z$"^"Z$ 1040:1110  CLR SCRN. 0:ZY1Y2:0,Z279,Z::3: BEGINN94CP58:XX11:10809 ZXX(Z1)11:ZX0ZX2691080I $XB321080 .XAXBCP6:XAZX,Y:XAZX1,Y:XAZX1,Y1:XAZX,Y1:CP0 8Z:Z$"":XZX11: B INPUT STRNG. LI$"":16368,0 VZ$:Z$(13)ı `Z$(3)3010 jZ$(8) *+ *********************5  ? 2000\ :UPPER CASE CONVERSION. ZZ$"":Z1(Z$):(Z$,Z,1)"A"(Z$,Z,1)"Z"ZZ$ZZ$"^" ZZ$ZZ$(Z$,Z,1)::Z$ZZ$  HIRES CHAR PLOT.  CP0:Z1(Z$):XB((Z$,Z,1)):XB * "* *8 ,* DESIGNED BY: *S 6* DANIEL M. FORDE *n @* ANALYST, TIES * J* PROGRAMMED BY: * T* R. CHRISTIANSEN * ^* TIES, 7/80 * h* & DAVID E. LADEN * r* TIES, 6/80 * |* PLESOFT BASIC ** * *E * DESCRIPTION: *` * THIS IS A DRILL *{ * ON SPELLING * * RECOGNITION. * * * * * * PROGRAM ADAPTED * * FROM VOCSPL. @d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB SPELL2 ** ** LANGUAGE: * * AP       0" BEGIN OUTPUT. , 16 T0SU02910<@ 10:1J "THE PUZZLE SIZE IS NOT LARGE ENOUGH."::"NONE OF THE WORDS FIT IN THE PUZZLE."T :"TRY A LARGER PUZZLE SIZE.":1080:3620^ 10:1:"THE PUZZLE IS COMPLETED."h T0SUN2940!r  A%(YII1,XII1)B%(II)$ II. 2380M UPPER LEFT - LOWER RIGHTx X((1)(PLN))1:Y((1)(PLN))LN II1LN B%(II)A%(YII1,XII1)A%(YII1,XII1)02450 II II1LN A%(YII1,XII1)B%(II) II 238YII1,X)A%(YII1,X)02450%< II2F II1LNJP A%(YII1,X)B%(II)RZ II\d 2380{n LOWER LEFT - UPPER RIGHTx X((1)(PLN))1:Y((1)(PLN))1 II1LN B%(II)A%(YII1,XII1)A%(IIY1,XII1)02450 II II1LNECTION+ X((1)(PLN))1:Y((1)P)18 II1LNg :B%(II)A%(Y,XII1)A%(Y,XII1)02450o II| II1LN A%(Y,XII1)B%(II) II 2380 UP-DOWN SECTION X((1)P)1:Y((1)(PLN))1( II1LN2 B%(II)A%(20V 7:R$;N1:W$:D$0` LN(W$):LNP2380<j T0T01Xt CONSTRUCT MATRIX. ~ CO0:II1LN:B%(II)((W$,II,1)):II N1N2850 COCO1 CO51000 CO11SUSU1:2380 ((1)4)12490,2580,2670,2760 LEFT - RIGHT SER KEY? ";:16368,0:Y2$6 Y2$"Y"Y2$"YES":2350R Y2$"N"Y2$"NO":2350$ 15:1:"TYPE OR PLEASE.":1080:2310. 14:31:Y2$8 :10:"THE PUZZLE IS BEING CONSTRUCTED."B II1P:JJ1P:A%(II,JJ)0:JJ:IIL N1N11:N1N2480:2160M12:1:958:"WOULD YOU LIKE THE WORDS LISTED? ";:16368,0:Y$_Y$(3)3550zY$"Y"Y$"YES":2300Y$"N"Y$"NO":230014:1:"TYPE OR PLEASE.":1080:225012:34:Y$ 14:1:958:"WOULD YOU LIKE AN ANSW"THE SIZE OF ONE SIDE OF THE PUZZLE WHEN":\"THE APPLE ASKS YOU FOR THE PUZZLE SIZE."f108010:1:958:16368,0:"ENTER PUZZLE SIZE (1-30) : ";Y$P((Y$)0.5):P03550P31225012:"PUZZLE SIZE MUST BE LESS THAN 31":10OPEN "F$",L80"-*R$C$D$"READ "F$",R"C4CL$C$D$"CLOSE"Q>O$:R$;0`HW$:N:D$hR:~\A%(30,30),B%(30)f GET USR INFO. p10:"WORDS WILL BE HIDDEN IN A SQUARE PUZZLE":z"THAT WILL BE GENERATED. YOU WILL ENTER":-D$(4):C$(13)$ :FROM VOCAB?L RS$"":X768771:RS$RS$((X)):} RS$(19)(20)(1)(18)ĺD$;"RUN VOCAB" 768,0:N2(772):UF(773)::SAVE PARAMETRES. :GET FILENAME. F$"VOC.":X1(774):F$F$((774X)): O$C$D$" REVERSE WORD. # II1LN21 JJB%(II)H B%(II)B%(LNII1)[ B%(LNII1)JJc IIm $2480 . PRESS KEY ROUTINE. 824:1:"PRESS ANY KEY TO CONTINUE: ";:16368,0:GT$ BGT$(3)3550 L  BEGINNING OF PROGRAM.  ANIEL M. FORDE *+ * ANALYST, TIES *F * PROGRAMMED BY: *a * ROBERT ALBERTI *| * TIES, 6/80 * * & R. CHRISTIANSEN * * TIES, 7/80 * * * *********************  2000 * "* LINDA BORRY *8 ,* TIES *S 6* & SCOTT COSTELLO *n @* TIES, 7/78 * J* * T* APPLE II * ^* CONVERSION AND * h* ENHANCEMENTS * r* DESIGNED BY: * |* DPLESOFT BASIC ** * *E * DESCRIPTION: *` * CREATES *{ * WORD FINDER * * PUZZLES. * * * * ORIGINAL TIME- * * SHARE PROGRAM * * WRITTEN BY: !d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB WORDER ** ** LANGUAGE: * * AP          :>"&*.26:>#'+/37;?#'+/37;?((((PPPP1VF JJJGVFJJJG˩и` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,0484444466666666666666666666666666666666$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$666666666666666666666666666666666III III III III II ='$$$$$$$$$$$$$$$$$,$$%@._*-=QRQRQRQRQRQRRQRRQR-----------------$$$$$$$$66666666666666666666666666     "&*.26:>"&*.26:>#'+/37;?#'+/37;?((((PPPP \E JJJF\EJJJF ˩ ɿд ` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,04867>67>67>>>>>>5-5-5-----%--,@@@@@@@II)--ee d$$$???666vIIIIIIIIIIIIIII)--ee d$$$???666v@@@@@@@II)--ee d$$$???666v@@@@@@@@@@----- e $$?????66@@@@@@@@@@@---?>?6.65.65.65.>?????????666666667?67>67>677.'''?<<<<''''?<>>>>>77777?6<$'<$'<$'<$'?7?7?7?7?7?7$$$$$$$<$=?????????$%,$,$%$%,<'?<'?'?<'?',,,,,,,,,,,R-$=5-.55-...55-.-.-.5-5--5%54-%--%--%-%-,-,%%-,,,%,,,..       >7?>77?>>7>>>>>>>>677>67>6>67667666/7,/&&&ۀۀۀ'''''''''''''-,-,-,-,-,-$<$'<$'<$'<,---------<$$$$$$$,,-.-5-5--.-5,$%,$%,$%,,,...5555-...5/%%%%%-,,,,,%.65.65.65...-,-,-%-%--466666665---------6>6>6>6>6>.5-5-5-.-.-./7777777777777,............>7?>?>7?7@4 '4ۀۀ5'5666566565.6..65.6555....55.55-..55-55--...5-..55-.5-.5-5-5--.---.-------,-%--%---,%-,%-,%%%-,,,,,,,,$%%,$%%,,$,$,$$%$$$$$<$$$'$<$'<$''<<$''<'<<'''''?<<<'?<'?'?<'??'???7?>?>     -,%-,%- --5?9? % uu-- e<???NIII'lI>.79ȿ#$,-=$$%=???????'????????'&$$,----%-----,-----$'<$''<$''<$''<$''<$''67777>>>>>677777>>>>>>?'$,$,$,$,$,$,$,$,$,$,,>????????????????4444656565656565656565.>7?&''<<$'''<<$'''<<$'''7457>>67>>67>>67>>677-.-.-.-.5-5-5-5667??'????7?>7?>67?67>6>6565....-.-.-----    777777777?>>>>>>>>>75-.5-.5-.55-.5-.5-.5$$$$$$$$$$$$$$lIII&666666666666666%-,%-,%-,%-,%-,%-,%-<''''''''''''''''''?$%,,555555-......555555-&%,$%,$%,$%,$%,$%''?<<<<$<66.6656.6.655565..6.....55-.-.5-5-.------,-,-,--,QQJQQQJQQQJQQQJQ/,,,$%%,,$%%-,$-,,,,%%-,-,--,---%5,.-5-.5-...5....65'????>??7???>7?>77?>>>>777?>777?>7?>??''?<  %-%-,$%%,$$%$<$$<<<<<@S7%             666666666666666666666666666666666666666666666666666666666>NIII$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$QRQRQRQRQRQQQQ?<$'?$''<<<<<$'?<<'?<'?'?"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((PPPP E JJJnFEJJJnF ɯ˩ и `E JJJnFEJJJnF  ˩ и ` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,04<$'?<<<'''?Ӛ%,,$%%%,44,--,$%,$<777><>>>>*$$<$'<<<<77>>>66>./VRRR7...6.>6??7?7??7??>?>7?777..m777..5-.,6..-%  ,,$<<<<$&IJIJIJIJIJIJIJI%%,,$-,,-%5-5567%-,--555556>67?7?..55556>>6?>77???>>6>67.655..65555555-.--.---=77>>6766555-.5567?>>?>7?7??>?77/&&7?>7>6655-=>67655--,6...-,%-,%%%-,,%%-,%%-,%%%$<<<<<<''<<|$%%-,,,,,,$$,$<$''?<<<''''''<<<$'<$'$<$$$$$$$$'$<$$$,,-.55-.5555-.6-.6555....65.6.6.6.656.6.",'<,..&$$$<$'$'<$''<<$'<<<<<<|QQQQQQQQJ"%$,$,$%,$%,$%%,,,,,,,%-,,,,%-,%%-,,%%-,-5.667777>>>>6>676>6>.76>6>677>>677777?,>>675..-,,$,$65.//--$$67$>&4&'6$7&'./6 '5.6555-.5-.-.-.-5---------%-,,u ,%,$$%$$$''<$'''''<<''?7?>>77?>>>>>>>>>777>67.6     ---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${o7wo?go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~?~>{o7owoW?O~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xqqo88`}~?~~gox?O}x~o7_}Xo>{0{o?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~??~>{o7_ow[oO?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wnnO0?~}~?_qwlw`\o<~`ox?a@}xxo7_}wp>{o7`o?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?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? }xco7_}w[o>{o7_W?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o          !!! ! ! ! ! !!!!!!!!!""ox?>pp}xOo7_}n]o>{_;_;?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[g_?^wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{s~nnun{~n{{nnfw?~oxp67\_{]qcfoxG?G|}xo7_}^^o>{?=_}~?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[k_?]wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@{>`}~?8ok=?o{z^>?Wt?~Ox?x|}~`wpAl7_o?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~?y>x`ow[m_?[wsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qqqwqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q?=_}v[o>{o7oo?oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~?|>{o7ow[n_?Wwxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ yxA?ooo}={{^o^k|sg~np{p{~`{{aqjwxO8oJV[_{]n]v