' +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*` 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  FILL WITH SAND. DRILL TIME DETERMINE2560:INCORRECT.R:10:"SORRY, THE WORD IS NOT"::(34);B$;(34);"."24:" PRESS SPACE BAR TO GO ON:";:16368,0:GT$GT$(3)3650GT$" "Ė1:37801000297037:"WORD LIST ARE BEING PREPARED."7jD$;"RUN VOCAB"Nt:ALREADY GUESSED.~20:1:"THAT LETTER HAS BEEN GUESSED; TRY AGAIN.";24:1:" PRESS SPACE BAR TO GO ON:";:16368,0:GT$GT$(3)3650GT$" "ī37201:20:958"GAMES WON: ";W:+$10:"GAMES LOST: ";Li.24:" PRESS SPACE BAR TO GO ON:";:16368,0:GT$:3GT$" "Ė1:36308:UPDATE $300 & RTRN.BC$;D$;"CLOSE"L768,4:769,15:770,14:771,5V#`10:7:"PLEASE WAIT. PROGRAM AND"::16336)(16336)(16336)(16336)(16336):3:6X,Y? O I11000:Y 3570i I11000:t I15 17664:17750  I11000: G:16303,0 :SUMMARY.5:"THIS IS HOW YOU DID."10:15:"GAMES: ";K:11:I8)100,100H !R A1500:(\ X3f 17664Cp I11000:Mz 3570[ X5:Y112i 0:6X,Y XX1:Y12020((X10)12.7) 3:6X,Y X80Ĕ2100,100 X1053470 2100,100 I1509 0:6X,Y:J(16336)(16336)(  I5477 3:6I21,112 0:6I21,11C 3:7I2,11T 0:7I2,11f :I11000: 0:5100,100:3:585,100 17920 3570 I11000: X12 I611* JI(I9)(18I)(I8)4 0:J100,100 > 3:J(I9)((3)3650 G03570.& 16304,0:S53140<0 D1:JS1O: SJ5:1060:jD F3150,3340,3460,3562vN I153X 3:6I21,187b 0:6I21,187l 3:7I2,187v 0:7I2,187  I187111 3:8107,I 0:8107,I N"N D$;"RUN VOCAB SCRAMBLE":X D$;"RUN VOCAB SPELL1"Ub D$;"RUN VOCAB SPELL2"pl D$;"RUN VOCAB WORDER"v GT$(3)3200 TERMINATE PACKAGE.  (13);D$;"CLOSE"::: PREPARE COMMON AT $300. @ 768,19:769,20:770,1:771,18^ 772,P:773,UF:774,(F$)m X1(F$) 774X,((F$,X,1))& + X((78)256(79))0 CALL SELECTED PROGRAM. : P3140,3150,3160,3170,3180D D$;"RUN VOCAB HANGMA PRESS SPACE BAR TO GO ON: ";:16368,0:GT$:B GT$(3)3200Y GT$" "Ė1:2970 DISPLAY TITLE AND DELAY MESSAGE.   1040 DF0:1080 21:14:"PLEASE WAIT." 23:"PROGRAM AND WORD LIST BEING PREPARED." 34,23 (3)3200 c GT$" "Ė1:2900*h 2760=r X4S212900E| PXe ADVISE UPDATE STATUS.  :(UF0)((P3)(P4))3000: :IF FILE UPDATEABLE./ 13:"PLEASE NOTE: NO RECORD WILL BE MADE":"OF THIS RUN OF ";(34);A$;(34);".":24:" ITION DRILL"1" "WORDER WORD FINDING PUZZLE"L, 19:1:958:16368,0p6 "WHAT PROGRAM DO YOU WANT?";A$@ X15:(A$,1,6)(OL$,X65,6)2930J T 23:"THAT IS NOT IN THE MENU.":"PRESS SPACE BAR TO TRY AGAIN: ";:16368,0:GT$ ^ GT$ PROGRAM NAME. ! 10:1:958K "HERE IS A LIST OF THE PROGRAMS YOU"[ "MAY RUN:"a  "HANGMAN THE GAME OF HANGMAN" "SCRAMBLE WORD SCRAMBLE GAME" "SPELL1 SPELLING MEMORY DRILL" S212850  "SPELL2 SPELLING RECOGNZ "HANGMAN";:2700-d "SCRAMBLE";:2700Bn "SPELL1";:2700Wx "SPELL2";:2700f "WORDER";w (34);" ?"; 16368,0:GT$:GT$ GT$"Y"3000 GT$(3)3200 GT$"N"ė:20:"TYPE OR PLEASE.":10:2630 MENU. GET  S20; T2$"N"NS2S21: :IF *SPELL2* EXCLUDED.K 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,2680,2690 X0:Y136:Z$"^INCORRECT: "(N1T1T2T3):1010~ X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1010:16368,0:GT$ GT$" "3280 UPDATE $300 & RETURN.  CL$ 768,4:769,15:770,14:771,5 16301,0:16298,0:62450 ^NUMBER OF TRIES: "(T9):1010[ 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$"^CORRECT ON 3RD TRY: "(T3):1010;X Y1174:Y2191:1410[b X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1010:16368,0:GT$nl GT$(3)3290q GT$" "3170v 62450 X0:Y0:Z$"^THIS IS HOW YOU DID.":1010 X0:Y34:Z$"^NUMBER OF WORDS: "(N1):1010# X0:Y51:Z$"09,10):1010 T1T1(TN1)/ T2T2(TN2)@ T3T3(TN3)W UPDATE FILE. u UF0āDL12000::3140 O$:R$;CW CW$:Z$:C1:C2:C3:C4 O$:W$;CW CW$:Z$& C11:C20 C3(TN1):C4: D$D TN SUMMARY. ECT. 3r X0:Y102:Z$"^THAT IS INCORRECT.":1010e| X0:Y119:Z$"^THE CORRECT SPELLING IS":1010y X0:Y136:Z$"" Z1(CW$) Z$Z$"^"(CW$,Z,1) :Z$Z$".":1010 3060 CORRECT.  X0:Y102:Z$"^"(RE$,(((1)8)1)1 X0:Y102:Z$"^NO, THAT IS NOT CORRECT.":1010] X0:Y119:Z$"^HERE IS YOUR HINT:":1010q" X0:Y136:Z$"", Z1(CW$)6 (I$,Z,1)(CW$,Z,1)Z$Z$"^"(CW$,Z,1):2890@ Z$Z$"-"J :1010T Y151:Y2118:1410^ 2710h INCORREAT WORD.":1010:RS05 X0:Y68:Z$"?":1010:1210A TNTN1M T9T91k (I$,1,1)"/"RS1:2620 TN1Y1102:Y2152:1410 (I$)02810 (I$,(I$),1)" "I$(I$,1,(I$)1):2780 I$CW$3010 TN32930 HINT. 0TR0Z TRTR1:TRTM522680=d GT(16384):GT1282650Xn GT141TRTR1:2650fx 16368,0| GET ANSWER.  Y134:Y250:1410 X0:Y51:Z$"^TYPE CORRECT SPELLING.":1010 TN0RS1X0:Y174:Z$"^TYPE "(34)"/"(34)" TO REP :10:7:"PLEASE WAIT. PROGRAM AND"::7:"WORD LIST ARE BEING PREPARED."` D$;"RUN VOCAB"310:"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  (13);D$;"CLOSE" UPDATE $300 & RETURN.  768,4:769,15:770,14:771,5LRRECT.":X WW1;b "THE WORD WAS ";(34);A$;(34);"."Kl N2N13200wv 18:"TRY TO UNSCRAMBLE THE NEXT WORD." 24:" PRESS SPACE BAR TO GO ON: ";:16368,0:GT$: GT$(3)3260 GT$" "Ė1:3200 N2 SUMMARY. N ::10 RR1" Z((1)8)1: C$(RE$,Z109,10)j (C$,(C$),1)" "C$(C$,1,(C$)1):3100& "THAT IS ";C$;(7);" YOU UNSCRAMBLED":0 "THE WORD CORRECTLY.":: 3170D INCORRECT. N ::10:"I'M SORRY, BUT THAT IS NOT CO| IDI2850$ OVERTIME. . OO1Q :::12:"YOUR TIME IS UP":_ BZ1200z ZZ(16336)(16336) BZ ::10:3170 (C$)03150 (C$,(C$),1)" "C$(C$,1,(C$)1):3020 C$A$3150 CORRECT.  B$* :"ENTER THE ANSWER: ";:16368,0E" KY(16384):16368,0V, KY1413020h6 KY1362900@ (C$)1C$(C$,(C$)1):(8);:868:2930J (C$)1C$"":(8);:868:2930T KY1602930^ GT$(KY128):GT$;h C$C$GT$r 1000(Y10)28(Y10)10:8,30(Y9)29(Y9)9:8,30(Y8)30(Y8)8x 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 QUERY USER.  "THE SCRAMBLED WORD IS: ";S 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(Y13)13D 10,28(Y12)26(Y12)12:9,29(Y11)27(Y11)11:9,29N1N11:N1NYY1:3440/* 7:R$;N1:W$:D$G4 LN(W$):LNP3360S> T0T01`H Y$Y$W$uR (25LN)03430\ KK1(25LN):Y$Y$" ":f Yp Y$(Y$,1,(Y2)25LN)z S2Č775:3460::SELCT PRNTR. C$;D$;"PR#1":(9);"80N"; Y$ JJ :II) ::Y$"YES"3500C DUMP WORD LIST. ] Y$"S":T0SU1Y$"" "FIND ";T0SU;" WORD";Y$;" FROM THIS LIST:": N10:IIT0:T00 JJ0II3 D$;"PR#0"::DESELCT PRNTR. Y$"" Y2$(3)3550 Y13 BEING PRINTED..."5b S2Č775:3180::SELCT PRNTR.Sg C$;D$;"PR#1":(9);"80N"l :22(F$)2);"PUZZLE USING WORD LIST ";(F$,5)v : II1P:32P); JJ1P A%(II,JJ)46A%(II,JJ)0A%(II,JJ)((1)26)65 (A%(II,JJ));" ";";  JJ :II8 ::D$;"PR#0"::DESELCT PRNTR.>& U0 DUMP PUZZLE. : 3690::10:"THE PUZZLE IS READY TO PRINT."D 12:1:"PRESS SPACE BAR TO BEGIN: ";:16368,0:GT$N GT$(3)3550S GT$" "3140X 14:1:"THE PUZZLE IS ANSWER KEY IS BEING PRINTED..."C S2Č775:3020::SELCT PRNTR.a 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));" 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 SPACE BAR TO BEGIN: ";:16368,0:GT$ GT$(3)3550 GT$" "2980  14:1:"THE0" 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 238;D$;"RUN VOCAB""^NUMBER INCORRECT: "(N1W6):1040k X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1040:16368,0:GT$ GT$" "Ĺ16368,0:GT$:3005 UPDATE $300 & RETURN.  CL$ 768,4:769,15:770,14:771,5 16301,0:16298,0:62450 C$SS SPACE BAR TO GO ON:":1040:16368,0:GT$:62450F GT$(3)3010Y GT$" "2940 X0:Y0:Z$"^THIS IS HOW YOU DID.":1040 X0:Y51:Z$"^NUMBER OF WORDS: "(N1):1040 X0:Y68:Z$"^NUMBER CORRECT: "(W6):1040( X0:Y85:Z$Z$"^"(RE$,Z109,10):1040. W6W6(W91)E" UPDATE FILE. c, UF0āDL11200::2920r6 O$:R$;Y3@ W0$:W1$:C1:C2:C3:C4J O$:W$;Y3T W0$:W1$:C1:C21:C3:C4(W91)^ D$h Tr SUMMARY. 3| X0:Y174:Z$"^PRE SCREEN.":1040 2630. INCORRECT. 9 WW1f X0:Y119:Z$"^THAT IS INCORRECT.":1040 X0:Y136:Z$"^THE CORRECT SPELLING IS":1040 X0:Y153:Z$W0$".":1000 W10 2850 CORRECT.  Z((1)8)1 X0:Y119::1100P Y1102:Y2153:1220'Z W909d (I$)02700in (I$,(I$),1)" "I$(I$,1,(I$)1):2660x I$W0$W91:2820 I$W1$I$W2$2750 Y185:Y2102:1220 X0:Y119:Z$"^PLEASE ENTER ONE OF THE":1040 X0:Y136:Z$"WORDS ON THE0: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 ANSWER. 2 Y168:Y284:1220< X0:Y68:Z$"^TYPE THE CORRECT SPELLING.":1040F X0:Y85:Z$"?":1040C$;D$;"RUN VOCAB"G,3,40,104M&`'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'4,105,31,133,36,104,96,108,3,3 Y2,192 H%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'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.":11:3750$"HIGH"#$PS1:E$' 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,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,14768939:DE:DA,DE:3#823,75: SET COLUMN WIDTHZ#10:1:958:"HIGH OR LOW SPEED?"#"PRESS FOR HIGH, FOR LOW: ";:16368,0:GT$#GT$(3)3550#GT$"L"ĺ"LOW":802,82:818,82:PS1: $GT$"H"Ė1:15:"PRESS OR PLEASES(2)3704"vS1:S(2)1S2'"w3708_"x10:1:958:"WHERE SHOULD THE PUZZLE BE PRINTED?""y"PRESS <1> FOR SLOT 1, <2> FOR SLOT 2: ";:16368,0:GT$"zGT$"1"GT$"2"3704"{S(GT$):GT$"|S13800"~: LOAD PRINTER ROUTINE#:DAв RESTART. 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"!$ JJ ::D$;"PR#0"$ 3550; :IF NO WORD LIST.h 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"::DESELCT PRNTR. Sz #      ΠӮ  ΠӮ ΠӮ ΠӮӠ îӠ Ϡ  Π  Πɠ Š ̱ ̲ Ҡ  ::11:18:"HELLO":24d*  2510) D$;"WRITE VOC.";F$;",R0"6 "VOCAB"F D$;"CLOSE"q UF0:216,0:2560: :IF UPDATEABLE. | 216,0 (222)4UF1:2560::IF WRITE PROTECTED. (222)10UF2:2560::IF LOCKED FILE.  *SPELL2* OPTION SELECTION.LE. V 216,04` (222)5ĺD$;"DELETE VOC.";F$`j 20:"THAT WORD LIST IS NOT AVAILABLE."t 24:"PRESS SPACE BAR TO TRY AGAIN: ";:16368,0:GT$~ GT$(3)3200 GT$" "Ė1:2420 2290 CHECK FOR WRITE PROTECT OR LOCKED FILE. AFTER THE QUESTION MARK"I "AND THEN PRESS THE KEY MARKED .":[ 16368,0:F$m$ (F$)02410x. 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 FIGT$"Y"2350!GT$(3)3200VGT$"N"ė:20:"TYPE OR PLEASE.":2210fD$;"CLOSE" GET AND VALIDATE FILE NAME. :10:1:"WHICH WORD LIST DO YOU WANT TO USE?":"ENTER THE NAME OF THE WORD LIST YOU" "WISH TO USE 20:"TYPE OR PLEASE.":2160Y GET PREVIOUS PROGRAM NUMBER AND FILE NAME. P(772):F$"":X1(774):F$F$((774X))::10:"DO YOU WISH TO CONTINUE USING":"THE WORD LIST ";(34);F$;(34);" ?";16368,0:GT$:GT$CTS DATA PROCESSING JOINT BOARD."IH16368,0:X1750:(16384)128ĂQR:[\2290f CHECK FOR USER TERMINATION. p10:"DO YOU WISH TO CONTINUE WITH"::"THE VOCAB PACKAGE? ";:16368,0:GT$:zGT$"N"GT$(3)3200$GT$"Y"ė: CHECK IF FIRST RUN. DRS$"":X768771:RS$RS$((X)): RS$(4)(15)(14)(5)Ĺ768,0:FR1:2160::IF RESTART. DISPLAY TITLE PAGE.  *10404DF1:1080!>21:2:"COPYRIGHT (C) 1981 BY MINNESOTA SCHOOL":2:"DISTRI618:19,2326:23,25%tDF1İ1010b~29,2522:23,2625:26,3026:25,1730:29,2517:25,18rDF1İ10107,2632:33,3726:25,1737:36,3317 BEGINNING OF PROGRAM. :D$(4)OL$"HANGMASCRAMBSPELL1SPELL2WORDER"  : BACKGROUND.12X035:0,39X:8$F.: VOCAB.N811B7,122:13,183:19,244:5,625:5,626:24,197:18,138:12,79LDF1İ1010V17,2611:12,1626:25,1716:15,1217`DF1İ1010j18,1723:22,1817:18,2TIES, 9/81 *, $* *G (* REVISED BY: *b ** RON R. GEISER *} ,* TIES, 11/81 * .* * /********************* 0 2000  DELAY LOOP. X11000:: TITLE PAGE.E * * ANALYST, TIES *9 * PROGRAMMED BY: *T * R. CHRISTIANSEN *o * TIES, 7/80 * * & DAVID E. LADEN * * TIES, 4/80 * * * * REVISED BY: * * DAVID E. LADEN * "* NALYST, 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 1981 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB ** ** LANGUAGE: * * AP          "WORD LIST ARE BEING PREPARED."3t D$;"RUN VOCAB"S774)),G0X. :10:7:"PLEASE WAIT. PROGRAM AND"::7:"WORD LIST ARE BEING PREPARED."r8 768,8::SET HANGMAN.B C$;D$;"RUN VOCAB HANGMAN II"L C$;D$;"CLOSE"V 768,4:769,15:770,14:771,5` j :10:7:"PLEASE WAIT. PROGRAM AND"::7:INGS WHEN":3"YOU GUESS MY LETTERS CORRECTLY."g15:868:"DO YOU WANT ME TO DRAW PICTURES? ";16368,0:GT$:GT$ GT$"Y"G01:2340 GT$"N"Ģ20:"PLEASE TYPE OR .":2290 G00$ (775(774)),K:(776(774)),N:(777(2190K02380#KN2260121:958"I'M SORRY. THERE ARE ONLY ";N;" WORDS.":24:" PRESS SPACE BAR TO GO ON:";:16368,0:GT$:KNGT$(3)2380GT$" "Ĺ16368,0:GT$:2250:6 "I CAN DRAW PICTURES OF MANY THD THE":4f"LETTER TO A LIST OF WRONG LETTERS.":ap"IF YOU THINK YOU KNOW WHAT THE WORD":z"IS, YOU MAY TYPE IN THE WHOLE WORD.":GET # OF WORDS.19:16368,0:"HOW MANY WORDS DO YOU WANT TO TRY? ";GT$K(GT$):K(K)Ģ19:958:",L80" R$;0:B$:N:D$/ *:INSTRUCTIONS.^ 4::"I WILL THINK OF A WORD. YOU WILL": >"GUESS THE LETTERS IN IT. IF YOUR": H"GUESS IS CORRECT, I WILL SHOW YOU": R"WHERE THE LETTER BELONGS. IF YOUR":\"GUESS IS WRONG, I WILL AD***  " C$(13):D$(4)4 :FROM VOCAB?\ RS$"":A768771:RS$RS$((A)): RS$(19)(20)(1)(18)ĺD$;"RUN VOCAB" :GET FILENAME. F$"VOC.":A1(774):F$F$((774A)): R$C$D$"READ "F$",R" D$;"OPEN ";F$;. CHRISTIANSEN *+ * TIES, 8/80 *F * & DAVID E. LADEN *a * TIES, 8/80 *| * * * REVISED BY: * * RON R. GEISER * * TIES, 11/80 * * * ****************** * "* 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 4 d*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB HANGMAN ** ** DESCRIPTION: * * TH     CE BAR TO GO ON:";:16368,0:GT$:: GT$" "Ė1:3020D 3570S :CORRECT. :10:"YOU HAVE GUESSED THE WORD!";(7) WW1 15:"THE WORD WAS ";(34);W$;(34);"." 24:" PRESS SPACE BAR TO GO ON:";:16368,0:GT$: GT$B$:2970r P$W$3050'| G02970K J(B((M1)6))(((M1)6)1)a J(J)SJ:1060h H~ :OUT OF GUESSES. :10:"TOO BAD. YOU HAVE NO GUESSES LEFT." LL1 15:"THE WORD WAS ";(34);W$;(34);"."# 24:" PRESS SPA :CHECK IF ALREADY GUESSED.- A1(I$)D (I$,A,1)B$3710J Y A1(W$)p (P$,A,1)B$3710v " :SET MATCH IN HINT., A1(W$)6 B$(W$,A,1)2910@ P$(P$,1,A1)B$(P$,A1)J CBB1T C1^ h CI$I$ PRESS SPACE BAR TO GO ON:";:16368,0:GT$B| GT$" "Ė1:2680S 20:1:958] 2560n (B$)3770 (B$)1(B$,(B$),1)" "B$(B$,1,(B$)1):2710 958 :PROCESS. B$W$3050 (B$,1,1)"/"ė:3000 (B$)137702590/F B$(B$,1,(B$)1):(8);:868:2590P (GT$" "GT$"'"GT$"-"GT$"/"GT$"A")(GT$"/"(B$)0)(GT$"Z")2670Z GT$;:B$B$GT$d 2590n 20:1:"USE LETTERS, SPACES, APOSTROPHES,":"AND HYPHENS ONLY, PLEASE."+x 24:" :13:P$ (I$)2560$ 5:133 A1(I$)D A14Ģ6:13X (I$,A,1);" ";^  15:1:" ENTER YOUR":" GUESS : ";:868 :GET GUESS. B$"":16368,0 GT$:GT$(13)2710( GT$(3)36502 GT$(8)2640< (B$)L BE DRAWN. ";<j "TO GIVE UP, TYPE ";(34);"/";(34);"."Rt 14:"GOOD LUCK!"~ 21:"PRESS SPACE BAR TO BEGIN:";:16368,0:GT$ GT$(3)3650 GT$" "Ė1:2430 1000 :GUESS LOOP. H1(W$)5:C0 2:10:H;:37:G 11,1)(B$,I,1)2330( :B$B$(W$,A,1)/ A;$ M(B$)R. 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 CORRECT LETTERS, A ";(S$,F65,6):` "WIL:D$G02270*F14:Q%(F)2230A:F14:Q%(F)0:SF((1)4)1cQ%(F)2230oQ%(F)1C$;D$;"BLOAD VOCAB HANGMAN SHAPES.";FP$"":I$"":B$""A1(W$)P$P$"."A1B$(W$,1,1):2330 I1(B$):(W$,A(100) W0:L06 *768,0:C$;D$;"OPEN ";F$;",L80"k 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))1 zP%(J)2160 P%(J)1R$;J:W$ L16303,0 V- :BEGINNING OF PRGRM.I 18432:D$(4):C$(13)r (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" S$"ROCKETSUN FLOWERRABBIT" P%**************** 6 $ 20002 :SCREEN.V ::" GUESS # ";:30:"GAME #"y 4:" INCORRECT":" LETTERS :" 10:" CORRECT":" LETTERS :"  :PLOT GRAPHICS. $DĹ16304,0:I12000: .S100,100 8D1110 BI13000: * "* *8 $* REVISED BY: *S &* DAVID E. LADEN *n (* TIES, 8/81 * ** * .* REVISED BY: * 0* RON R. GEISER * 2* TIES, 11/81 * 4* * 5*****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 1981 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB HANGMAN II** ** APPLE II * * CONV     4: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,288 28,337:32,386:6,3239:32,3832:28,3331:26,2830:29,26:29,25MD1C12550% P(D)1:B$(A$,D,1)G :SCRAMBLE REMAINING LETTERS.U C12660`( E2Cr2 D((5)C)1< P(D)12610F B$B$(A$,D,1)P P(D)1Z d DRAW HOURGLASS. n x 4:0,66:5,107:10,128:9,12:9,13:10,13:10,1"":B$"":C$""# GET WORD. E WW((1)N1):B%(WW)12480R B%(WW)1s (13);D$;"READ ";F$;",R";WW A$:D$ C(A$) SCRAMBLE WORD.  :ENSURE THAT AT LEAST FIRST LETTER IS NOT FROM FIRST POSITION. D((5)C)1  THE WORD.":24:" PRESS SPACE BAR TO GO ON: ";:16368,0:GT$Y` GT$(3)ė:3260|e GT$" "Ĺ16368,0:GT$:2400f j BEGIN MAIN LOOP. t N21N1~ :I119:P(I): Y018:DI:Z38Y TBP(Y1)ĂY I124:P(I)0::A$N?8 24:" PRESS SPACE BAR TO GO ON: ";:16368,0:GT$RB GT$(3)3260iG GT$" "Ė1:2360L :6:"GET READY FOR YOUR FIRST WORD."::"REMEMBER TO TYPE CAREFULLY, AND":CV "TO PRESS THE KEY AFTER"::"YOU HAVE FINISHED TYPING 55(A$)12260"TB((A$).5)D GET NUMBER OF PROBLEMS. { 14:958:"HOW MANY WORDS WOULD YOU LIKE TO TRY"; 16368,0:A$:N1((A$).5) N10ė:3260$ N1N2380. 17:958:"SORRY, THERE ARE ONLY"::N;" WORDS FOR YOU.":N1TO CHANGE THE TIME? ";.16368,0:GT$:GT$@GT$"N"2310SGT$(3)3260GT$"Y"Ģ20:"TYPE OR PLEASE.":221016:958:"THE MAXIMUM TIME LIMIT IS 255 SECONDS.":"HOW MANY SECONDS DO YOU WANT";16368,0:A$:(A$)2T2$:TA$:D$>f6:"THE APPLE WILL PRINT A SCRAMBLED WORD":ip"AND WAIT FOR ";TB;" SECONDS. YOU":z"WILL THEN TRY TO UNSCRAMBLE IT BEFORE":"YOUR TIME RUNS OUT." GET NEW TIME LIMIT. TA$"N"231014:868:"DO YOU WISH UPER! EXCELLENT!"R4107,100,93,86,78,69,62,55,50,45,38,32,28,22,17,14,10,6,4>475,458,443,427,395,360,335,305,295,265,235,205,180,150,120,100,75,45,25H INSTRUCTIONS. R::D$;"OPEN ";F$;",L80":D$;"READ ";F$;",R0" \A$:N:TS:TB:' RS$"":X768771:RS$RS$((X)):X RS$(19)(20)(1)(18)ĺD$;"RUN VOCAB"c 768,0x : GET FILENAME. F$"VOC.":X1(774):F$F$((774X)): P(24),B%(100)*RE$"GOOD! VERY GOOD!FANTASTIC!GREAT! TERRIFIC! RIGHT! S II1$ C919(Z1):9:19,C92 0:19,C9: C9F X19X1Y $X,Y)91090e .0:X,Yq 89:X,Z| BX1X1 L(2(I2))((2I)2)X1X11 VX113X10:YY1:ZZ1 `  BEGINNING OF PROGRAM. D$(4) : FROM VOCAB?AVID E. LADEN *+ * TIES, 6/80 *F * *a * REVISED BY: *} * RON R. GEISER * * TIES, 11/81 * * * *********************  2000  MOVE SAND ROUTINE. * "* 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, ad*********************7n* *Rx* COPYRIGHT 1980 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB SCRAMBLE ** ** LANGUAGE: * * AP           T1N1:RS0# CW((1)N1)6 A%(CW)12560C A%(CW)1[ O$:R$;CW:CW$:D$v( DISPLAY & DELAY. 2 TN0< 62450F X0:Y34:Z$"":Z1(CW$):(CW$,Z,1)"A"(CW$,Z,1)"Z"Z$Z$"^"K Z$Z$(CW$,Z,1)::1010P 16368,0: N103310 N1N2550L X0:Y68:Z$"^SORRY, THERE ARE ONLY":1010y X0:Y85:Z$(N)" WORDS FOR YOU.":1010 X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1010:16368,0:GT$ GT$(3)3290 GT$" "2510 N1N GET WORD. T WITHIN":1010@V X0:Y17:Z$"ALLOWED LIMITS. ^PLEASE":1010c` X0:Y34:Z$"TRY AGAIN.":1010{j Y1136:Y2173:1410t 2340~ 62450 X0:Y17:Z$"^HOW MANY WORDS DO YOU":1010 X0:Y34:Z$"WANT TO TRY?":1010:TL30:1210 N1(I$) M TIME LIMIT":1010D X0:Y102:Z$"ALLOWED IS 255 SECONDS.":1010r$ X0:Y136:Z$"^HOW MANY SECONDS DO":1010. X0:Y153:Z$"YOU WANT?":1010:TL30:12108 (I$)0(I$)255TM(I$):2430B Y10:Y283:1410L X0:Y0:Z$"^THAT VALUE IS NOTA$"N"2430AX0:Y85:Z$"^DO YOU WISH TO CHANGE":1010rX0:Y102:Z$"THE TIME?":1010:16368,0:I$I$(3)3290I$"A"I$"Z"Z$"^"I$:1010I$"N"2430Y185:Y2119:1410 I$"Y"2250 X0:Y85:Z$"^THE MAXIMUM:X:Z$:TA$:D$) INSTRUCTIONS. 9:16302,0mX0: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":1010X0:Y51:Z$"TYPE THE WORD CORRECTLY.":1010 TERRIFIC! RIGHT! SUPER! EXCELLENT!"PH 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":CL$D$"CLOSE"pO$:R$;0zZ$:N:T13):D$(4)&D$;"BLOAD CHARACTERS"B232,0:233,64:3:1:0U: FROM VOCAB?} RS$"":X768771:RS$RS$((X)):RS$(19)(20)(1)(18)ĺD$;"RUN VOCAB" 768,0*A%(100)4T90*>RE$"GOOD! VERY GOOD!FANTASTIC!GREAT! :X2691280.0:ZYY16:X,ZX10,Z::3KI$(I$,1,(I$)1):1220c Z$" "Z$"Z"1220I$I$Z$:Z$"A"Z$"Z"Z$"^"Z$1010:1220x CLR SCRN 0:ZY1Y2:0,Z279,Z::3: BEGINNING OF PROGRAM 18432 C$(1)11:ZX0ZX2691050( XB321050h XAXBCP6:XAZX,Y:XAZX1,Y:XAZX1,Y1:XAZX,Y1:CP0 Z:Z$"":XZX11:  INPUT STRNG. I$"":16368,0 Z$:Z$(13)ı Z$(3)3290 Z$(8)1290 (I$)01220 XX11 * * REVISED BY: *9 * RON R. GEISER *T * TIES, 11/81 *o * * *********************  2000  HIRES CHAR PLOT CP0:Z1(Z$):XB((Z$,Z,1)):XB94CP58:XX11:1050 ZXX(ZGRAMMED BY: *+ * R. CHRISTIANSEN *F * TIES, 7/80 *a * & DAVID E. LADEN *| * TIES, 5/80 * * * * REVISED BY: * * DAVID E. LADEN * * TIES, 8/81 * * * "* INSTRUCTIONAL *8 ,* STAFF. *S 6* *n @* APPLE II * J* CONVERSION AND * T* ENHANCEMENTS * ^* DESIGNED BY: * h* DANIEL M. FORDE * r* ANALYST, TIES * |* PROPLESOFT BASIC ** * *E * DESCRIPTION: *` * DRILL ON *{ * SPELLING WORDS. * * * * ORIGINAL TIME- * * SHARE PROGRAM * * WRITTEN BY: * * TIES d*********************7n* *Rx* COPYRIGHT 1981 *m* BY TIES. ** ** PROGRAM NAME: ** VOCAB SPELL1 ** ** LANGUAGE: * * AP     34: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:Y34:Z$W2$:1000:2610 X0:Y0:Z$W1$:1000:X0:Y17:Z$W2$:1000:X0:Y34:Z$W0$:1000:2610A X0:Y$ Y1((1)N)1:B%(Y1,2)124603 B%(Y1,2)1; O$O R$;Y3:W0$:D$h R$;Y0:GT$:W1$:D$ R$;Y1:GT$:W2$:D$ DISPLAY.  62450:((1)5)12540,2550,2560,2570,2580,2590 X0:Y0:Z$W0$:1000:X0:Y17:Z$W1$:1000:X0:YN1&V Y3((1)N)1:B%(Y3,1)123905` B%(Y3,1)1~j : SEE IF AT LEAST 2 INCORRECT WORDS ARE LEFT. IF NOT, RESET MATRIX.t T20:T11N1:B%(T1,2)0T2T21~ T22ĂT1:T11N1:B%(T1,2)0:T1 Y0((1)N)1:B%(Y0,2)12440 B%(Y0,2)1X0:Y51:Z$"^SORRY, THERE ARE ONLY":1040Z X0:Y68:Z$(N)" PROBLEMS FOR YOU.":1040 X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1040:16368,0:GT$:62450$ GT$(3)3010) GT$" "2330. N1N8 W60:W90B GET WORDS. L T1X0:Y174:Z$"^PRESS SPACE BAR TO GO ON:":1040:16368,0:GT$SGT$(3)3010fGT$" "225062450:X0:Y0:Z$"^HOW MANY PROBLEMS WOULD":1040X0:Y17:Z$"YOU LIKE TO TRY?":1040:TL30:1100:N1(I$)N103030N1N2360* ":1040;X0:Y17:Z$"^A^P^P^L^E WILL PRINT THREE":1040kX0:Y34:Z$"WORDS. ^ONE IS SPELLED":1040X0:Y51:Z$"CORRECTLY. ^THE OTHERS":1040X0:Y68:Z$"ARE NOT. ^YOU MUST PICK":1040X0:Y85:Z$"THE ONE THAT IS CORRECT.":1040@"F$",R":CL$C$D$"CLOSE"vRRE$"GOOD! VERY GOOD!FANTASTIC!GREAT! TERRIFIC! RIGHT! SUPER! EXCELLENT!"\O$:R$;0fA$:N:Z:Z:GT$:TA$:D$pW10:W0z INSTRUCTIONS. :16302,0X0:Y0:Z$"^FOR EACH PROBLEM, THE((X)):; RS$(19)(20)(1)(18)ĺD$;"RUN VOCAB"F768,0U B%(100,2){* GET UPDATE FLAG & FILENAME. 4UF(773)>F$"VOC.":X1(774):F$F$((774X)):HO$C$D$"OPEN "F$",L80":R$C$D$"READ "F$",R":W$C$D$"WRITE $"A"Z$"Z"Z$"^"Z$(1040:1110< CLR SCRN. ^0:ZY1Y2:0,Z279,Z::3:| BEGINNING OF PROGRAM. 18432:D$(4):C$(13)D$;"BLOAD CHARACTERS"232,0:233,64:3:1:0: FROM VOCAB? RS$"":X768771:RS$RS$"":XZX11:# B INPUT STRNG. 7 LI$"":16368,0K VZ$:Z$(13)ı] `Z$(3)3010p jZ$(8)1180 t(I$)01110 ~XX11:X2691170 0:ZYY16:X,ZX10,Z::3 I$(I$,1,(I$)1):1110 Z$" "Z$"Z"1110I$I$Z$:Z$ZZ$"^"( ZZ$ZZ$(Z$,Z,1)::Z$ZZ$C  HIRES CHAR PLOT. CP0:Z1(Z$):XB((Z$,Z,1)):XB94CP58:XX11:1080 ZXX(Z1)11:ZX0ZX2691080 $XB321080 .XAXBCP6:XAZX,Y:XAZX1,Y:XAZX1,Y1:XAZX,Y1:CP0 8Z:Z$ *+ * REVISED BY: *F * RON R. GEISER, *a * TIES, 11/81 *| * * *********************  2000 :UPPER CASE CONVERSION. ZZ$"":Z1(Z$):(Z$,Z,1)"A"(Z$,Z,1)"Z"ZZ * "* *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          YII1,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":-:GET FILENAME.>F$"VOC.":X1(774):F$F$((774X)):GLP1aS(1)S(2)LP0:2085m::10"YOU WILL BE UNABLE TO USE WORDER.":"YOU DO NOT HAVE A PRINTER ATTACHED TO"::"YOUR APPLE."1080 3560::EXIT%O$C$D$"3):FROM VOCAB?<RS$"":X768771:RS$RS$((X)):mRS$(19)(20)(1)(18)ĺD$;"RUN VOCAB"768,0:N2(772):UF(773)::SAVE PARAMETRES.S(1)0:S(2)0(15872)44S(2)1(16128)44(16128)24(16128)8S(1)1 JJB%(II) B%(II)B%(LNII1)3 B%(LNII1)JJ; IIE $2480b . PRESS KEY ROUTINE. 824:1:" PRESS SPACE BAR TO GO ON: ";:16368,0:GT$ BGT$(3)3550 GGT$" "1080 L  BEGINNING OF PROGRAM. D$(4):C$(1 * * TIES, 9/81 *9 * *T * REVISED BY: *o * RON R. GEISER * * TIES, 11/81 * * * *********************  2000  REVERSE WORD. II1LN2 ANIEL M. FORDE *+ * ANALYST, TIES *F * PROGRAMMED BY: *a * ROBERT ALBERTI *| * TIES, 6/80 * * & R. CHRISTIANSEN * * TIES, 7/80 * * * * REVISED BY: * * DAVID E. LADEN * "* 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 1981 *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$fwooq?ow?o@?x?~>{m?_Uv^G_@X~nx1{~?G_ |~?_>{m7]?_?|k{o;_ow[o{?>_ox? }xc}>}~_~{}w?X_{{?ww~_>wv{?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{on{wpg_X_nvW_{]_~nwoo|?ow?o@G?xx>{m?_mv^??`@?`@?W~v[k>w-w.{~?> x`\o~`O0?~}~?_>{m7=?_qwlw`\o<~`ox?a@}xx}>}~_~{A|?8o{;?o{~_}~.wvs?x?ocO}{o_nn~{v{nn{{wn{gxs_X_nfWO{]_>nwOo?~?og?o@q?|C>{m?_}~?@~`?@_O~zog>{K/{~`wn7@??~>{o7_ow[o{}?_o88`}~?`>n7@}~?~~gox?O}x~}>}~_~{}{?|p{{@|~?~~1wvw?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xq`~ox_8onV;W[]_]nw_ox?|go?~o@|?p>{m?_}v_?ppx?X_~zoo>{k/?{~?_k{m7}~?~>{o7owo}?Oox<@}~??|_Oox?g}xG}>}~_~{}{?g~xA?o/wu>o{{^o_k~s}wg?|{_wxo?~_|pn6|Xg]_cnw_opg?xwo~o@_~{~?g]{m?_}v_?~~~?~PO>zog>{k/{~?_]{m7}~?|>{o7ow[n~?Wox>?|}?~?xp~@|_>?7{ox?s}|q}>}~_~{}w{?o~xA?oOoy]_{??oogO{}qqpnpqan`{qq{wqq`}Owsownw_opq?xgO|O@_~{~?k{m?_}v_?|x~0W]v[k6wmo.{~?_>{o7}~?y>x`ow[m?[ox?q?@}|?}8p~p`|?8ok=?o{z^>?Wt?~Ox?x|}??p~~`|?O|xA?ooo}@n?_}x^_y_@_8{~??~wp`}x_xs~xXc{0p?c>{o~_ow[ko?]oxG?G|}x}>}~_~{}w{?X_s;ww|_>?gv|_x?o~?~}?_}xA?ooo}];?oogy{s~nnun{~n{{nn{w?~oxp67\_{]qcfwgog?wox?o@?~?x>{m?_9v^_`_@_~{~?p_0G~~?_{o7m?]{o}_ow[gw?^ox?>pp}xO}>}~_~{}w?X_{{@ww~_>?wvyx?o`}?_yxA?ooo}={{^o^k|sg~np{p{~`{{aq{wxO8oJV[_{]n]v