' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 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*`qQJU63Cwx{JUNGAGsBs600p00CBnJ*NGAGsBcB6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgC<<; J*BBC ACD|JU~|~~00{C3ACFJUNGSC<!?|xyy|~xxEyZGsvC6ACFJ*NGSG~OA|ApB|@aVGsBcB6f`CBwJUNGmq?VGsBBCFB;FJ*NGm~|~||~VGsB`B0`Ca]a}}JUNGAGsBgB0gC.5B;J*NGAGsBsBVGQF@D`@H?BByBLyCFJUNGQA|ApB|@aFB~~GB~~WGOFx~J~xHBBX}- CFJ*NGSCByCRF?VGOH@NHxBByB{CFJUNGSL DLBsqprCsA@BsaLBVGsBBqCFJ*NGSp`gF sssEDsVGsCFJUNGSy0C2rEDyCECByCVGQF@`Dp`@HB@@_BY_CFJ*NGS@~@EA DLE LL |TGOG|L|HBFACFJUNGSDsEr`DdEd`gg`dg`pTGOD@CAAGA <B~BBBYAB8ABAABBGlo`OCC~xJ*NGjG|AVGO~x`FBAQB oBlOCFJUNGmBgVGP?D@B`ABpAB8ABAABBLBlOCFJ*NGPAAyAAyABF?H20B302VGOaHBAQBBOB`OCFJUNGPAEABFLasEBDVGQ|0T*B*B***B*AB*C*BBB3C;2*;J*NGAGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB Cpoq~`J*NGAGOCUBWBB@B`@CA?JUNGAGOCC@B`ABp捿ttmtt`BB0xXCFJ*B037B6ACB]kwJUBBC3AC >8> J*BA_BBC3AC8W8{JUNA]??B/++*C*BB3?>C?<; J*NGAGO?_WUUUBUABUCUBB>0C Bw JUNGTvGJ??Ct u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)     RTIUM,160,94,105,116,127,138,147,155,165,176D 16302,0:16304,0y J1(16384)128:J127J132JJ1:J400200 D$;"RUN VOCAB SIMS"48H57140 A100B905 H32H1XXC:170K H64H90HH64` HABX,Y:XXCi G:, INNESOTA,46,96,107,118,129,140,151,160,170,DUCATIONAL,84,94,103,112,121,128,133,140,149,158,164,OMPUTING,122,94,103,113,122,130,135,143,152,ONSO D$;"RUN VOCAB SIMS"MS"8Z$"COPYRIGHT 1980":Y180:X90:C7:A0:130z nZ$"ELEMENTARY":Y79:X180:A100:C9:130 xZ$"VOLUME 12":X183:C9:Y142:130:Z$"VERSION 2.0":X175:C9:Y153:130:190 G1(Z$):H((Z$,G,1)) B0B0 H)(65435)6ĺ(4)"PR#0":(4)"IN#0"; 16372,0::M D$(13)(4)b(1023)123210p1023,123x2:<D$(13)(4):230,32:D$"BRUN LOGO":16297,0:16302,0:16300,0:16304,0J1(16384)128:J127J132JJ1:J400200׍čύ׍ԍύōҍҍ͍ōō΍ٍ΍ҍύ     ȍԍԍˍčȍ΍̍ȍԍȍč΍ٍȍ̍ȍčٍЍčōҍ΍׍ōčč׍΍ٍ׍׍ȍ ȍōčԍЍԍԍōԍԍčԍ΍ٍԍ̍ƍ    ̍ōčōԍō̍ōōԍ΍ō΍ٍ΍ōԍōōԍčōԍōԍōԍЍč΍ٍōԍӍ   ǍǍˍˍčǍԍˍōǍԍǍ΍ٍˍԍЍ  ҍō΍ҍōԍ΍ٍōԍ̍΍΍ٍٍԍ΍ԍԍԍԍԍԍӍԍӍӍԍԍ΍ٍӍԍӍ     ٍ̍׍čԍ׍Ӎԍٍō׍ٍ΍ٍҍȍٍōҍ΍ȍˍōҍȍ΍čԍȍ΍ٍččԍ ōōōԍ̍ȍ͍ōōӍōˍ΍ٍōЍō    ƍ͍ˍԍȍōԍčЍӍԍȍ΍ٍԍȍō      ȍȍȍԍˍǍȍōƍˍȍ΍ٍȍōˍ   ōōԍЍ΍ōō΍ԍӍٍō΍ٍǍčÍ    ōōōōōōōōōōōō΍ٍōԍō      ƍˍōȍȍԍˍǍˍԍȍō΍ٍǍˍō ԍ̍Ѝ΍ҍҍٍԍōԍōҍ΍ٍҍԍǍ     ōōōōōōōōōōōō΍ٍōōō     ȍčōԍčōԍȍčȍōō΍ٍčԍč   ōōƍōōōƍōčōōԍ΍ٍōčō      ˍԍЍ̍ԍˍōˍˍˍȍˍ΍ٍȍōȍ   ٍ΍΍ٍōōō΍ōōٍ΍΍ٍ΍ōٍ    ٍōōҍōčٍҍō̍ōԍ΍ٍčԍō      ԍōٍ͍ō̍ō΍ҍԍ΍č΍ٍ͍ōč ō΍ٍōōԍҍō΍ōčҍ΍ٍٍōȍ  ōōōōōōōōōōōō΍ٍōōō ǍҍҍٍҍҍٍҍӍҍ΍ٍٍҍٍ    ΍͍ȍȍȍōč΍čˍԍ΍΍ٍ͍ԍЍčԍԍԍōԍōˍčōōō΍ٍ͍΍̍   ōҍҍōˍōō΍ٍҍҍҍ΍ٍ̍ҍ̍  ԍԍˍԍ׍ԍٍ̍̍ԍȍٍ΍ٍč׍ٍč͍͍̍̍̍ԍ̍̍̍čō΍ٍ̍̍̍     ȍˍ΍΍׍ԍz#îӵ îӵϠϠ îӱϠ îӴîӴîӴ îӴîӴîӵ îӵ îӳ îӳ îӴ îӴîӴ îӴîӴ îӳ îӳ îӳ îӳ îӳ îӳ îӳ   îӲîӲîӲ îӲîӲ îӲ îӳ  îӱîӱ îӱîӲ îӲîӲîӲ  îӱ îӱîӱ îӱîӱîӱ îӱ   îӳîӴ îӵîӶîӷ îӸîӹ   ΠӮ  ΠӮ  ΠӮ ΠӮӠ îӱîӲ٠̠Ӡ" Ӡ!  Π! Πɠ  Š ̱  Ҡ΍ԍҍ΍ˍō΍ٍ׍ˍԍ̍ԍٍ΍ٍٍٍ̍č΍ٍԍ΍ٍ΍ٍ̍ ǍҍčǍǍҍǍčǍčǍҍ΍ٍǍčǍ    ǍōōˍӍōˍōōōԍō΍ٍ΍ōōōōōōōōōōōōōō΍ٍōōō   č΍čč΍ԍԍč̍ӍčЍ΍ٍˍč΍  ӍčҍǍٍҍččӍٍǍӍ΍ٍҍčӍˍǍˍˍǍˍǍǍˍˍˍˍ΍ٍˍǍˍ     ōЍԍԍčˍЍȍԍōԍԍ΍ٍԍčЍƍ̍̍΍ˍˍ΍ˍ͍Ѝȍ΍ٍȍЍˍ Ӎ͍ǍˍԍЍǍˍЍčȍ΍ٍӍȍ΍    ȍȍȍȍȍ΍ԍԍˍˍȍȍ΍ٍȍȍ͍ҍӍǍǍčӍӍӍӍǍčٍ΍ٍٍӍӍ   ٍٍٍٍٍӍٍٍٍٍӍٍ΍ٍٍٍӍ  čҍččӍҍčҍӍҍӍҍ΍ٍҍҍčǍӍӍǍӍǍӍӍӍӍӍӍ΍ٍǍӍǍ     ΍΍ЍЍˍˍԍˍӍЍˍԍ΍ٍ΍Ǎ΍ˍӍڍЍˍӍˍˍӍ؍ڍ؍΍ٍōˍˍ Ǎ̍Ǎ̍̍΍΍ЍǍčǍǍ΍ٍԍ΍ԍ    ͍͍ЍЍ͍ԍԍԍԍЍԍč΍ٍЍ͍č---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$"&*.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-,%-,%- --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;?((((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?>?> :>"&*.26:>#'+/37;?#'+/37;?((((PPPP1VF JJJGVFJJJG˩и` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,0484444466666666666666666666666666666666$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$666666666666666666666666666666666III III III III II ='$$$$$$$$$$$$$$$$$,$$%@._*-=QRQRQRQRQRQRRQRRQR-----------------$$$$$$$$66666666666666666666666666     88 H#j'32,168,252,169,0,133,36,173,2,3,240,9,237,1,3,233,247,144 o#t'4,105,31,133,36,104,96,108,3,3 8,3,3 E"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,104#`'72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,!'2,40,0,5,34,24,176,56,152,72,172,0,3,8,169,5,141,3y!$'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,144 58:"HIGH OR LOW SPEED?"Q "PRESS FOR HIGH, FOR LOW: ";:16368,0:GT$d GT$(3)3550 GT$"L"ĺ"LOW":802,82:818,82:PS1: GT$"H"Ė1:15:"TYPE OR PLEASE.":11:3750 "HIGH":PS1: ' DATA FOR PRINT ROUTINE. 6130:JJ130:A%(II,JJ)0::B%(II)0:GLC00:T00:LN0:P0:SU0:N10MVW`2160yj PRINTER INITIALIZATION. tPS1ı: IF ALREADY SET.~: LOAD PRINTER ROUTINE:DA768939:DE:DA,DE:823,75: SET COLUMN WIDTH 10:1:9- X1(F$)4:(774X),((F$,(4X),1)):{::10:14:"PLEASE WAIT."::"PROGRAM AND WORD LIST ARE BEING PREPARED"CL$D$;"RUN VOCAB SIMS"$ RESTART. .14:958:1:"PLEASE WAIT FOR A MOMENT."8Y2$"":Y$Y2$:N$Y2$&BII,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 :32,168,252,169,0,133,36,173,2,3,240,9,237,1,3,233,247,144 :4,105,31,133,36,104,96,108,3,3 ,4:769,15:770,14:771,5 772,N2:773,UF:774,(F$)48,169,3,153,142,192,169,17,153,142,192 :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 :42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176V'3,72,169,160,44,98":802,82:818,82:PS1:SGT$"H"Ė1:15:"PRESS OR PLEASE.":11:3750_"HIGH"jPS1:'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 e.'248,7,152,10,10,10,10,16FOR SLOT 2: ";:16368,0:GT$:GT$"1"GT$"2"3704G{S(GT$):GT$U|S13800~:DA768939:DE:DA,DE::823,75:10:1:958:"HIGH OR LOW SPEED?""PRESS FOR HIGH, FOR LOW: ";:16368,0:GT$:GT$(3)3550GT$"L"ĺ"LOW.":Y2$"":Y$Y2$:N$Y2$:II130:JJ130:A%(II,JJ)0::B%(II)0::C00:T00:LN0:P0:SU0:N10::2160mjytPS1ıuS(1)S(2)3704vS1:S(2)1S2w37085x10:1:958:"WHERE SHOULD THE PUZZLE BE PRINTED?":"PRESS <1> FOR SLOT 1, <2>  768,4:769,15:770,14:771,5:772,N2:773,UF:774,(F$)4:X1(F$)4:(774X),((F$,(4X),1))::::10:7:"PLEASE WAIT. PROGRAM AND"::7:"WORD LIST ARE BEING PREPARED.":CL$:D$;"RUN VOCAB SIMS"$g.14:958:1:"PLEASE WAIT FOR A MOMENT3460:% C$;D$;"PR#1":(9);"80N";F Y$:JJ:::D$;"PR#0":3550L y Y$"S":Y2$"ARE":T0SU1Y$"":Y2$"IS" "THERE ";Y2$;" AT LEAST "T0SU;" WORD";Y$;" HERE--CAN YOU FIND ";:T0SU1ĺ"IT?":3540 "THEM?" ::D$;"PR#0": IIT0:T00:JJ0II3:D$;"PR#0":; Y$"":Y2$(3)3550F Y13d N1N11:N1NYY1:3440* 7:R$;N1:W$:D$:LN(W$):LNP3360> T0T01:Y$Y$W$:(25LN)03430\ KK1(25LN):Y$Y$" ":f Yp Y$(Y$,1,(Y2)25LN):S2Č775:(F$)2);"PUZZLE USING WORD LIST ";(F$,5):::II1P:32P);:JJ1P:A%(II,JJ)46A%(II,JJ)0A%(II,JJ)((1)26)65 (A%(II,JJ));" ";:JJ::II:::Y$"YES"3500 Y$"S":T0SU1Y$""" "FIND ";T0SU;" WORD";Y$;" FROM THIS LIST:"::N10:0": & ;: 3690::10:"THE PUZZLE IS READY TO PRINT."D 12:1:"PRESS SPACE BAR TO BEGIN: ";:16368,0:GT$:GT$(3)3550S GT$" "3140X 14:1:"THE PUZZLE IS BEING PRINTED...":S2Č775:3180:g C$;D$;"PR#1":(9);"80N"xl :221:"THE ANSWER KEY IS BEING PRINTED...":S2Č775:3020:X C$;D$;"PR#1":(9);"80N" :16(F$)2);"ANSWERS TO PUZZLE USING WORD LIST ";(F$,5)::::II1P:32P);:JJ1P:A%(II,JJ)0A%(II,JJ)46 (A%(II,JJ));" ";:JJ::II:::D$;"PR#E PUZZLE IS COMPLETED.":T0SUN2940Lr 12:"NOT ALL WORDS ARE INCLUDED."g| 1080::Y2$"NO"3130 3690::10:"THE ANSWER KEY IS READY TO PRINT." 12:1:"PRESS SPACE BAR TO BEGIN: ";:16368,0:GT$:GT$(3)3550 GT$" "2980: 14:)A%(YII1,XII1)02450N II:II1LN:A%(YII1,XII1)B%(II):II:2380T" h, :T0SU02910@ 10:1:"THE PUZZLE SIZE IS NOT LARGE ENOUGH."::"NONE OF THE WORDS FIT IN THE PUZZLE."::"TRY A LARGER PUZZLE SIZE.":1080:3620%^ 10:1:"TH):II:2380n xx X((1)(PLN))1:Y((1)(PLN))1:II1LN:B%(II)A%(YII1,XII1)A%(IIY1,XII1)02450 II:II1LN:A%(YII1,XII1)B%(II):II:2380  X((1)(PLN))1:Y((1)(PLN))LN:II1LN:B%(II)A%(YII1,XII1(1)(PLN))1:Y((1)P)1:II1LN::B%(II)A%(Y,XII1)A%(Y,XII1)02450~ II:II1LN:A%(Y,XII1)B%(II):II:2380  X((1)P)1:Y((1)(PLN))1:II1LN:B%(II)A%(YII1,X)A%(YII1,X)02450 < II:II1LN:A%(YII1,X)B%(II%(II,JJ)0:JJ:II)L N1N11:N1N2420SV 7:R$;N1:W$:D$:LN(W$):LNP2380_j T0T01et ~ CO0:II1LN:B%(II)((W$,II,1)):II:N1N2850 COCO1:CO51000 CO11SUSU1:2380 ((1)4)12490,2580,2670,2760 O X(2:34:Y$e  14:1:958:"WOULD YOU LIKE AN ANSWER KEY? ";:16368,0:Y2$:Y2$"Y"Y2$"YES":2350  Y2$"N"Y2$"NO":2350 $ 15:1:"TYPE OR PLEASE.":1080:2310. 14:31:Y2$::10:"THE PUZZLE IS BEING CONSTRUCTED.":II1P:JJ1P:A312250? 12:"PUZZLE SIZE MUST BE LESS THAN 31":1080:2160 12:1:958:"WOULD YOU LIKE THE WORDS LISTED? ";:16368,0:Y$:Y$(3)3550 Y$"Y"Y$"YES":2300 Y$"N"Y$"NO":2300 14:1:"TYPE OR PLEASE.":1080:2250 1 IN A SQUARE PUZZLE"::"THAT WILL BE GENERATED. YOU WILL ENTER"::"THE SIZE OF ONE SIDE OF THE PUZZLE WHEN"::"THE APPLE ASKS YOU FOR THE PUZZLE SIZE." 1080:10:1:958:16368,0:"ENTER PUZZLE SIZE (1-30) : ";Y$:P((Y$)0.5):P03550 PYOU WILL BE UNABLE TO USE WORDER."::"YOU DO NOT HAVE A PRINTER ATTACHED TO"::"YOUR APPLE.":1080:3560: %O$C$D$"OPEN "F$",L80":R$C$D$"READ "F$",R":CL$C$D$"CLOSE":O$:R$;0:W$:N:D$:::A%(30,30),B%(30) p10:"WORDS WILL BE HIDDEN$(19)(20)(1)(18)ĺD$;"RUN VOCAB SIMS"O 768,0:N2(772):UF(773):v S(1)0:S(2)0:(15872)44S(2)1 (16128)44(16128)24(16128)8S(1)1 F$"VOC.":X1(774):F$F$((774X))::LP1:S(1)S(2)LP0:2085l ::10:" 2000VII1LN2:JJB%(II):B%(II)B%(LNII1):B%(LNII1)JJ:II:2480824:1:" PRESS SPACE BAR TO GO ON: ";:16368,0:GT$:GT$(3)3550GGT$" "1080L. D$(4):C$(13):RS$"":X768771:RS$RS$((X))::RS       0,14:771,5* 16301,0:16298,0:62450F C$;D$;"RUN VOCAB SIMS" ON 3RD TRY: "(T3):1010Z X0:Y136:Z$"^INCORRECT: "(N1T1T2T3):1010 X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1010:16368,0:GT$ GT$" "Ĺ16368,0:GT$:3285 UPDATE $300 & RETURN.  CL$  768,4:769,15:77"(N1):1010B X0:Y51:Z$"^NUMBER OF TRIES: "(T9):1010z X0:Y68:Z$"^AVERAGE TRIES/WORD: "(T9N1):1010 X0:Y85:Z$"^CORRECT ON 1ST TRY: "(T1):1010 X0:Y102:Z$"^CORRECT ON 2ND TRY: "(T2):1010 X0:Y119:Z$"^CORRECTTN SUMMARY. ,X Y1174:Y2191:1410ob X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1010:16368,0:GT$l GT$(3)3290q GT$" "Ĺ16368,0:3180v 62450 X0:Y0:Z$"^THIS IS HOW YOU DID.":1010  X0:Y34:Z$"^NUMBER OF WORDS: 285# UPDATE $300 & RETURN. , CL$N 768,4:769,15:770,14:771,5m 16301,0:16298,0:62450 C$;D$;"RUN VOCAB SIMS"" O$:R$;CW CW$:Z$:C1:C2:C3:C4 O$:W$;CW CW$:Z$& C11:C20 C3(TN1):C4: D$D :Z$"^CORRECT ON 2ND TRY: "(T2):1010^ X0:Y119:Z$"^CORRECT ON 3RD TRY: "(T3):1010 X0:Y136:Z$"^INCORRECT: "(N1T1T2T3):1010 X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1010:16368,0:GT$ GT$" "Ĺ16368,0:GT$:3THIS IS HOW YOU DID.":1010P X0:Y34:Z$"^NUMBER OF WORDS: "(N1):1010 X0:Y51:Z$"^NUMBER OF TRIES: "(T9):1010 X0:Y68:Z$"^AVERAGE TRIES/WORD: "(T9N1):1010 X0:Y85:Z$"^CORRECT ON 1ST TRY: "(T1):1010( X0:Y102:W$;CW CW$:Z$"& C11:C250 C3(TN1):C4=: D$DD TWN SUMMARY. oX Y1174:Y2191:1410b X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1010:16368,0:GT$l GT$(3)3290q GT$" "Ĺ16368,0:3180v 62450 X0:Y0:Z$"^Z$Z$".":1010 3060, CORRECT. d X0:Y102:Z$"^"(RE$,(((1)8)1)109,10):1010u T1T1(TN1) T2T2(TN2) T3T3(TN3) UPDATE FILE.  UF0āDL12000::3140 O$:R$;CW CW$:Z$:C1:C2:C3:C4 O$W$,Z,1):2890@ Z$Z$"-"'J :1010>T Y151:Y2118:1410H^ 2710]h INCORRECT. r X0:Y102:Z$"^THAT IS INCORRECT.":1010| X0:Y119:Z$"^THE CORRECT SPELLING IS":1010 X0:Y136:Z$"" Z1(CW$) Z$Z$"^"(CW$,Z,1) :I$),1)" "I$(I$,1,(I$)1):27804 I$CW$3010D TN32930T HINT.  X0:Y102:Z$"^NO, THAT IS NOT CORRECT.":1010 X0:Y119:Z$"^HERE IS YOUR HINT:":1010" X0:Y136:Z$"", Z1(CW$) 6 (I$,Z,1)(CW$,Z,1)Z$Z$"^"(C CORRECT SPELLING.":1010l TN0RS1X0:Y174:Z$"^TYPE "(34)"/"(34)" TO REPEAT WORD.":1010:RS0 X0:Y68:Z$"?":1010:1210 TNTN1 T9T91 (I$,1,1)"/"RS1:2620 TN1Y1102:Y2152:1410 (I$)02810# (I$,(0 < 62450HF X0:Y34:Z$"":Z1(CW$):Z$Z$"^"(CW$,Z,1)::1010[P 16368,0:TR0vZ TRTR1:TRTM522680d GT(16384):GT1282650n GT141TRTR1:2650x 16368,0 GET ANSWER.  Y134:Y250:1410 X0:Y51:Z$"^TYPERESS SPACE BAR TO GO ON:":1010:16368,0:GT$A GT$(3)3290d GT$" "Ĺ16368,0:GT$:2520m N1N GET WORD.  T1N1:RS0 CW((1)N1) A%(CW)12560 A%(CW)1 O$:R$;CW:CW$:D$( DISPLAY & DELAY. 2 TN501 X0:Y17:Z$"^HOW MANY WORDS DO YOU":1010b X0:Y34:Z$"WANT TO TRY?":1010:TL30:1210o N1(I$) N103310 N1N2550 X0:Y68:Z$"^SORRY, THERE ARE ONLY":1010 X0:Y85:Z$(N)" WORDS FOR YOU.":1010. X0:Y174:Z$"^P":1010:TL30:1210;8 (I$)0(I$)255TM(I$):2430PB Y10:Y283:1410L X0:Y0:Z$"^THAT VALUE IS NOT WITHIN":1010V X0:Y17:Z$"ALLOWED LIMITS. ^PLEASE":1010` X0:Y34:Z$"TRY AGAIN.":1010j Y1136:Y2173:1410t 2340~ 624"A"I$"Z"Z$"^"I$:1010,I$"N"2430CY185:Y2119:1410U I$"Y"2250 X0:Y85:Z$"^THE MAXIMUM TIME LIMIT":1010 X0:Y102:Z$"ALLOWED IS 255 SECONDS.":1010$ X0:Y136:Z$"^HOW MANY SECONDS DO":1010. X0:Y153:Z$"YOU WANT?OR "(TM):1010A X0:Y34:Z$"SECONDS. ^YOU MUST THEN":1010r X0:Y51:Z$"TYPE THE WORD CORRECTLY.":1010 TA$"N"2430 X0:Y85:Z$"^DO YOU WISH TO CHANGE":1010 X0:Y102:Z$"THE TIME?":1010:16368,0:I$ I$(3)3290I$ fO$D$"OPEN "F$",L80":R$D$"READ "F$",R":W$D$"WRITE "F$",R":CL$D$"CLOSE"d pO$:R$;0 zZ$:N:TM:X:Z$:TM$:D$  INSTRUCTIONS. :16302,0 X0:Y0:Z$"^THE ^A^P^P^L^E WILL PRINT A":1010 X0:Y17:Z$"WORD AND WAIT F(1)(18)ĺD$;"RUN VOCAB SIMS"+ 768,08 *A%(100)A 4T90 >RE$"GOOD! VERY GOOD!FANTASTIC!GREAT! TERRIFIC! RIGHT! SUPER! EXCELLENT!" H GET UPDATE FLAG & FILENAME. RUF(773) \F$"VOC.":X1(774):F$F$((774X)):V10:1220 x CLR SCRN ; 0:ZY1Y2:0,Z279,Z::3:X  BEGINNING OF PROGRAM c 18432x C$(13):D$(4) D$;"BLOAD CHARACTERS" 232,0:233,64:3:1:0 : FROM VOCAB? RS$"":X768771:RS$RS$((X)): RS$(19)(20).  I$"":16368,0+ Z$:Z$(13)ı= Z$(3)3290P Z$(8)1290b (I$)01220y XX11:X2691280 0:ZYY16:X,ZX10,Z::3 I$(I$,1,(I$)1):1220 Z$" "Z$"Z"1220 I$I$Z$:Z$"A"Z$"Z"Z$"^"Z$ 10 2000# HIRES CHAR PLOT aCP0:Z1(Z$):XB((Z$,Z,1)):XB94CP58:XX11:1050ZXX(Z1)11:ZX0ZX2691050XB321050XAXBCP6:XAZX,Y:XAZX1,Y:XAZX1,Y1:XAZX,Y1:CP0Z:Z$"":XZX11:  INPUT STRNG        PLEASE WAIT. PROGRAM AND"::7:"WORD LIST ARE BEING PREPARED.":D$;"RUN VOCAB SIMS"P10:3170s (C$)03150 (C$,(C$),1)" "C$(C$,1,(C$)1):3020 C$A$3150 ::10:RR1:Z((1)8)1:C$(RE$,Z109,10) (C$,(C$),1)" " GT$" "Ė1:3200j N2:10:"THIS IS HOW YOU DID.":15:R;" CORRECT ";W;" WRONG ";O;" OVERTIME" 24:" PRESS SPACE BAR TO GO ON: ";:16368,0:GT$:GT$" "Ė1:3250 U (13);D$;"CLOSE":768,4:769,15:770,14:771,5::10:7:"CORRECTLY."::3170NN ::10:"I'M SORRY, BUT THAT IS NOT CORRECT."::WW1b "THE WORD WAS ";(34);A$;(34);".":N2N13200v 18:"TRY TO UNSCRAMBLE THE NEXT WORD." 24:" PRESS SPACE BAR TO GO ON: ";:16368,0:GT$::GT$(3)3260Z:::10:3170! (C$)03150Q (C$,(C$),1)" "C$(C$,1,(C$)1):3020b C$A$3150 ::10:RR1:Z((1)8)1:C$(RE$,Z109,10) (C$,(C$),1)" "C$(C$,1,(C$)1):3100& "THAT IS ";C$;(7);" YOU UNSCRAMBLED"::"THE WORD 06 KY1362900D@ (C$)1C$(C$,(C$)1):(8);:868:2930jJ (C$)1C$"":(8);:868:2930{T KY1602930^ GT$(KY128):GT$;:C$C$GT$r 1000:IDI2850 OO1::::12:"YOUR TIME IS UP"::BZ1200:ZZ(16336)(16336):B9: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)I:I:X10:I0:"THE SCRAMBLED WORD IS: ";B$::"ENTER THE ANSWER: ";:16368,0" KY(16384):16368,0:KY14130218)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(Y13)13I 10,28(Y12)26(Y12)12:9,29(Y11)27(Y11)11:9,29(Y10)28(Y10)10:8,30(Y9)29(Y9)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:10,1230:5,1031:0,632 9:18,20(Y18)20(Y: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,288c 28,337:32,386:6,3239:32,3832:28,3331: WW((1)N1):B%(WW)12480X B%(WW)1:(13);D$;"READ ";F$;",R";WW:A$:D$:C(A$)y D((5)C)1:D1C12550 P(D)1:B$(A$,D,1):C12660( E2C2 D((5)C)1:P(D)12610F B$B$(A$,D,1):P(D)1:d n :4:0,66:5,107U HAVE FINISHED TYPING THE WORD.":24:" PRESS SPACE BAR TO GO ON: ";:16368,0:GT$p` GT$(3)ė:3260e GT$" "Ĺ16368,0:GT$:2400f :N21N1::I119:P(I)::Y018:DI:Z38Y:TBP(Y1)ĂY I124:P(I)0::A$"":B$"":C$""ONLY"::N;" WORDS FOR YOU.":N1Nm 8 24:" PRESS SPACE BAR TO GO ON: ";:16368,0:GT$:GT$(3)3260 G GT$" "Ė1:2360ZL :6:"GET READY FOR YOUR FIRST WORD."::"REMEMBER TO TYPE CAREFULLY, AND"::"TO PRESS THE KEY AFTER"::"YOS 255 SECONDS."::"HOW MANY SECONDS DO YOU WANT";:16368,0:A$:(A$)255(A$)12260k TB((A$).5)  14:958:"HOW MANY WORDS WOULD YOU LIKE TO TRY";:16368,0:A$:N1((A$).5):N10ė:3260 $ N1N2380! . 17:958:"SORRY, THERE ARE UNSCRAMBLE IT BEFORE"::"YOUR TIME RUNS OUT.":TA$"N"2310 14:868:"DO YOU WISH TO CHANGE THE TIME? ";:16368,0:GT$:GT$:GT$"N"2310 GT$(3)3260 GT$"Y"Ģ20:"TYPE OR PLEASE.":2210X 16:958:"THE MAXIMUM TIME LIMIT I58,443,427,395,360,335,305,295,265,235,205,180,150,120,100,75,45,25 R::D$;"OPEN ";F$;",L80":D$;"READ ";F$;",R0":A$:N:TS:TB:T2$:TA$:D$:6:"THE APPLE WILL PRINT A SCRAMBLED WORD"::"AND WAIT FOR ";TB;" SECONDS. YOU":< z"WILL THEN TRY TO (1)(18)ĺD$;"RUN VOCAB SIMS"d 768,0:F$"VOC.":X1(774):F$F$((774X))::P(24),B%(100)C *RE$"GOOD! VERY GOOD!FANTASTIC!GREAT! TERRIFIC! RIGHT! SUPER! EXCELLENT!":107,100,93,86,78,69,62,55,50,45,38,32,28,22,17,14,10,6,4:475,4V 2000WII1:C919(Z1):9:19,C9:0:19,C9:C9:X19X1:X,Y)91090k.0:X,Y:9:X,ZBX1X1:(2(I2))((2I)2)X1X11VX113X10:YY1:ZZ1` D$(4):RS$"":X768771:RS$RS$((X))::RS$(19)(20)          3)3650GT$" "ī372021:20:958:2560l:10:"SORRY, THE WORD IS NOT"::(34);B$;(34);"."24:" PRESS SPACE BAR TO GO ON:";:16368,0:GT$:GT$(3)3650GT$" "Ė1:37801000:2970D368,0:GT$:16368,0:GT$" "E":768,4:769,15:770,14:771,5::10:7:"PLEASE WAIT. PROGRAM AND"::7:"WORD LIST ARE BEING PREPARED.":D$;"RUN VOCAB SIMS"~20:1:"THAT LETTER HAS BEEN GUESSED; TRY AGAIN.";24:1:" PRESS SPACE BAR TO GO ON:";:16368,0:GT$:GT$(I11000::I15:17664:17750::I11000: G:16303,0:5:"THIS IS HOW YOU DID.":10:15:"GAMES: ";K::11:"GAMES WON: ";W::10:"GAMES LOST: ";L.24:" PRESS SPACE BAR TO GO ON:";:16368,0:GT$::GT$" "Ė1:3630BC$;D$;"CLOS11000::3570 X5:Y112d 0:6X,Y:XX1:Y12020((X10)12.7):3:6X,Y:X80Ĕ2100,100t X1053470 2100,100:I150:0:6X,Y:J(16336)(16336)(16336)(16336)(16336)(16336)(16336):3:6X,Y::I11000::3570. 8107,I::I5477:3:6I21,11:0:6I21,11:3:7I2,11:0:7I2,11::I11000: 0:5100,100:3:585,100:17920:3570 I11000::X12:I611:JI(I9)(18I)(I8):0:J100,100:3:J(I9)(I8)100,100::A1500:\ X:17664:I SPACE BAR TO GO ON:";:16368,0:GT$::GT$(3)3650D G03570\& 16304,0:S53140y0 D1:JS1:SJ5:1060:D F3150,3340,3460,3562N I153:3:6I21,187:0:6I21,187:3:7I2,187:0:7I2,187::I187111:3:8107,IX 0:FT."6 LL1:15:"THE WORD WAS ";(34);W$;(34);"." 24:" PRESS SPACE BAR TO GO ON:";:16368,0:GT$::GT$" "Ė1:3020 35706 :10:"YOU HAVE GUESSED THE WORD!";(7):WW1:15:"THE WORD WAS ";(34);W$;(34);".":24:" PRESSA,1)B$37101 :A1(W$):B$(W$,A,1)2910[@ P$(P$,1,A1)B$(P$,A1):CBB1cT C1|^ :CI$I$B$:2970r P$W$3050| G02970 J(B((M1)6))(((M1)6)1):J(J)SJ:1060 H::10:"TOO BAD. YOU HAVE NO GUESSES LE16368,0:GT$:GT$" "Ė1:26808 20:1:958:2560I (B$)3770 (B$)1(B$,(B$),1)" "B$(B$,1,(B$)1):2710 958:B$W$3050 (B$,1,1)"/"ė:3000 (B$)13770 A1(I$):(I$,A,1)B$3710  :A1(W$):(P$,1):(8);:868:2590kP (GT$" "GT$"'"GT$"-"GT$"/"GT$"A")(GT$"/"(B$)0)(GT$"Z")2670Z GT$;:B$B$GT$:2590n 20:1:"USE LETTERS, SPACES, APOSTROPHES,":"AND HYPHENS ONLY, PLEASE."!x 24:" PRESS SPACE BAR TO GO ON:";:;:37:G:11:13:P$:(I$)2560D 5:13:A1(I$):A14Ģ6:13Z (I$,A,1);" ";: 15:1:" ENTER YOUR":" GUESS : ";:868:B$"":16368,0  GT$:GT$(13)2710 ( GT$(3)3650 2 GT$(8)2640 < (B$)2590F B$(B$,1,(B$)U GUESS CORRECT LETTERS, A ";(S$,F65,6)::"WILL BE DRAWN. "; j "TO GIVE UP, TYPE ";(34);"/";(34);".":14:"GOOD LUCK!" ~ 21:"PRESS SPACE BAR TO BEGIN:";:16368,0:GT$:GT$(3)3650 GT$" "Ė1:2430! 1000:H1(W$)5:C0:2:10:H:B$"":A1(W$):P$P$".":A1B$(W$,1,1):2330\  I1(B$):(W$,A,1)(B$,I,1)2330r  :B$B$(W$,A,1)  A:M(B$):62450::16303,0:6:"I KNOW A WORD. IT HAS ";(W$);" LETTERS."::"WHY DON'T YOU TRY TO GUESS IT?"::G02410A V "AS YOP%(I)0:::16302,0::G1K::B0:D0:S0:3L pJ(N(1))1:P%(J)2160p P%(J)1:R$;J:W$:D$:G02270 F14:Q%(F)2230 :F14:Q%(F)0: F((1)4)1:Q%(F)2230 Q%(F)1:C$;D$;"BLOAD VOCAB HANGMAN SHAPES.";F3 P$"":I$""$;D$;"RUN VOCAB SIMS" 232,0:233,64:1:0:F$"VOC.":A1(774):F$F$((774A))::R$C$D$"READ "F$",R":S$"ROCKETSUN FLOWERRABBIT":P%(100):W0:L0:768,0:C$;D$;"OPEN ";F$;",L80":K((774)775):N((774)776):G0((774)777). >I1100: 2000t::" GUESS # ";:30:"GAME #":4:" INCORRECT":" LETTERS :":10:" CORRECT":" LETTERS :":$DĹ16304,0:I12000:.S100,100:D1110BI13000::16303,0V 18432:D$(4):C$(13):(768)8Ĺ768,0:C!!!!!!      769,15:770,14:771,5:::10:7:"PLEASE WAIT. PROGRAM AND"::7:"WORD LIST ARE BEING PREPARED.":D$;"RUN VOCAB SIMS"GW WHAT THE WORD"::"IS, YOU MAY TYPE IN THE WHOLE WORD."19:16368,0:"HOW MANY WORDS DO YOU WANT TO TRY? ";GT$:K(GT$):K GT$"N"Ģ20:"PLEASE TYPE OR .":22908  G00 $ (775(774)),K:(776(774)),N:(777(774)),G0::10:7:"PLEASE WAIT. PROGRAM AND"::7:"WORD LIST ARE BEING PREPARED.":768,8: B C$;D$;"RUN VOCAB HANGMAN II"x L C$;D$;"CLOSE":768,4:16368,0:GT$:KN$ GT$(3)2380G GT$" "Ĺ16368,0:GT$:2250 :6:"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:2340/ OU MAY TYPE IN THE WHOLE WORD."~ 19:16368,0:"HOW MANY WORDS DO YOU WANT TO TRY? ";GT$:K(GT$):K(K)Ģ19:958:2190 K02380 KN2260 21:958:"I'M SORRY. THERE ARE ONLY ";N;" WORDS.":24:" PRESS SPACE BAR TO GO ON:";:U WILL"::"GUESS THE LETTERS IN IT. IF YOUR"::"GUESS IS CORRECT, I WILL SHOW YOU"::"WHERE THE LETTER BELONGS. IF YOUR": \"GUESS IS WRONG, I WILL ADD THE"::"LETTER TO A LIST OF WRONG LETTERS."::"IF YOU THINK YOU KNOW WHAT THE WORD"::"IS, YylC$(13):D$(4):RS$"":A768771:RS$RS$((A))::RS$(19)(20)(1)(18)ĺD$;"RUN VOCAB SIMS"F$"VOC.":A1(774):F$F$((774A))::R$C$D$"READ "F$",R":D$;"OPEN ";F$;",L80":R$;0:B$:N:D$ 4::"I WILL THINK OF A WORD. YO! ! ! ! !!!(1000)256:ZB(ZA)(ZA1)256CZS(ZB1)16:ZS1ZS7ZS6V(4);"PR#";ZS\o"VX$"N"4020w,:}6"DO YOU WANT TO USE ANOTHER"::"DISKETTE? ";VX$:VX$(VX$,1)PVX$"Y"4130u:10:11:"INSERT NEW DISKETTE"24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";16368,0Z(16384):Z141Z160407016368,0::!ZA(999) !0 P3130,3140,3150,3150,3170=: D$;"RUN VOCAB HANGMAN"ZD D$;"RUN VOCAB SCRAMBLE"uN D$;"RUN VOCAB SPELL1"b D$;"RUN VOCAB WORDER"l GT$(3)3190v TERMINATE PACKAGE.  (13);D$;"CLOSE"::ENDING ROUTINE:=10: WAIT." 33,40E 23:" PROGRAM AND WORD LIST BEING PREPARED."P 34,23r PREPARE COMMON AT $300.  768,19:769,20:770,1:771,18 772,P:773,UF:774,(F$) X1(F$) 774X,((F$,X,1)) & CALL SELECTED PROGRAM. "PLEASE NOTE: NO RECORD WILL BE MADE":"OF THIS RUN OF ";A$;".":24:"PRESS SPACE BAR TO CONTINUE: ";:16368,0:GT$ GT$(3)3190 GT$" "2960  DISPLAY TITLE AND DELAY MESSAGE.   1040 DF0:1075 21:14:"PLEASE2930 @ aJ 23:"THAT IS NOT IN THE MENU.":"PRESS SPACE BAR TO TRY AGAIN: ";:16368,0:GT$tT GT$(3)3190Y GT$" "Ė1:2890^ 2750r PX| ADVISE UPDATE STATUS.  :(UF0)((P3)(P4))2990: :IF FILE UPDATEABLE.u 13:"MAY RUN:" 6 "HANGMAN THE GAME OF HANGMAN"Z "SCRAMBLE WORD SCRAMBLE GAME" "SPELL1 SPELLING MEMORY DRILL" "WORDER WORD FINDING PUZZLE"" 19:1:958, "WHAT PROGRAM DO YOU WANT?";A$6 X15:(A$,1,6)(OL$,X65,6);:2690x "WORDER";' (34);" ?";? 16368,0:GT$:GT$Q GT$"Y"2990d GT$(3)3190 GT$"N"ė:20:"TYPE OR PLEASE.":10:2620 MENU. GET PROGRAM NAME.  10:1:958 "HERE IS A LIST OF THE PROGRAMS YOU"  :2570::IF WRITE PROTECTED.H (222)10UF2:2570::IF LOCKED FILE.N ^ FR12750q( RESTART. {2 :10< "DO YOU WANT ANOTHER RUN OF ";(34);F P2640,2650,2660,2660,2680P "HANGMAN";:2690Z "SCRAMBLE";:2690d "SPELL1":16368,0:GT$"t GT$(3)31909y GT$" "Ė1:2410C~ 2280u CHECK FOR WRITE PROTECT OR LOCKED FILE.  2500 D$;"WRITE VOC.";F$;",R0" "VOCAB" D$;"CLOSE" UF0:216,0:2570::IF UPDATEABLE. 216,0 (222)4UF1"!8 V$:NS:Z:Z:T2$:TA$:D$OB V$"VOCAB"Ĺ216,0:2450::IF VALID FILE.ZL 216,0}V (222)5ĺD$;"DELETE VOC.";F$` 20:"THAT CATEGORY IS NOT AVAILABLE.":e "PLEASE ENTER A NUMBER FROM 1 TO 53."j 24:"PRESS SPACE BAR TO TRY AGAIN: ";SS THE KEY MARKED .":n "IF YOU NO LONGER WANT TO USE THIS":"PROGRAM, TYPE 'END' AND .": 16368,0:F$ F$"END"4000 (F$)53(F$)12400 F$"SIMS"F$$ 2380. D$;"OPEN VOC.";F$;",L80":D$;"READ VOC.";F$;",R0)3190; GT$"N"ė:20:"TYPE OR PLEASE.":2210a  GET AND VALIDATE FILE NAME. :10:1:"WHICH CATEGORY DO YOU WANT TO USE?": "ENTER THE NUMBER OF THE CATEGORY YOU" "WISH TO USE AFTER THE QUESTION MARK" "AND THEN PRE> OR PLEASE.":2160L  GET PREVIOUS PROGRAM NUMBER AND FILE NAME. P(772):F$"":X1(774):F$F$((774X)):: 10:"DO YOU WISH TO CONTINUE USING" "CATEGORY ";(F$,5);" ?"; 16368,0:GT$:GT$ GT$"Y"2340 GT$(3ROCESSING JOINT BOARD."? H16368,0:X1750:(16384)128ĂG R:Q \2280w f CHECK FOR USER TERMINATION. p10:"DO YOU WISH TO CONTINUE WITH":"THE SIMS PACKAGE? ";:16368,0:GT$: zGT$"N"GT$(3)3190 GT$"Y"ė:20:"TYPE 21:2:"COPYRIGHT (C) 1980 BY MINNESOTA SCHOOL":2:"DISTRICTS DATA P' L27,720:21,267:8,2726:8,19237 QDF1İ1010k V34,287:8,1728:29,3417:18,2734:33,2827q `  BEGINNING OF PROGRAM. : D$(4) OL$"HANGMASCRAMBSPELL1SPELL1WORDER"::SECOND SPELL1 PRE-EMPTS SPELL2 USAGE.  CHE~ 2000 DELAY LOOP. 1X11000::E TITLE PAGE. Y : BACKGROUND.`1vX035:0,39X:|$.:SIMS.311810,47:8,174:5,1017:18,2710:9,427=DF1İ1010B12,187:8,2615:12,1827GDF1İ1010""" " " " " """""""""!!!