' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]h2ECAE ȿEDȢ ȿ B@` ꢩLҦ 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 췌`ȱBȄD巬x (`(8`I`B` `P>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`mmµHB@浰LHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  @AB L鶍cpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆL| ߼Lꢭ õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`[ X16,Y42X26,Y42:&[ ARM 1G[X,Y36X6,Y28X18,Y34:S[ ARM 2x[X24,Y34X36,Y30X30,Y22:[" LEG 1['X18,Y20X8,Y12X8,YX,Y:[, LEG 2[1X24,Y20X24,Y10X34,YX26,Y:[@ WATER[E6[JP140\O0X18,Y20:Z HEADEZX18,Y38X14,Y40X12,Y44X12,Y46sZX14,Y50X18,Y52X24,Y52X28,Y50ZX30,Y46X30,Y44X28,Y40X24,Y38:Z FACEZX16,Y48X18,Y48:X22,Y48X24,Y48ZX20,Y46X20,Y44X22,Y4434-YX20,Y34X20,Y8X14,Y8X14,Y2SYX18,Y2X18,YX12,YX12,Y8yYX6,Y8X6,Y2X10,Y2X10,YYX4,YX4,Y8X,Y8YX6,Y20X8,Y20YX12,Y20X14,Y20YY BODY ZX18,Y20X18,Y38X24,Y38X24,Y2:220,120P279,120P:P.XKX240:Y118:1705GXRX240:Y159:2:1705UXU3:P03rXW200P2,100232P2,159{XZP:Xx LITTLE MANX}X,Y8X,Y18X2,Y22XX6,Y26X10,Y28X14,Y26X18,Y22YX18,Y30X16,Y30X16,Y38X16,Y4,Y10X16,Y10:W) .>W*X6,YX6,Y4X8,Y4X8,Y:MW- MAKE ICEWW.1600W0P03:7:0,120P2279,120P2:P:WF BREAK ICE-MANWH0:P07:220P,120P222P,120P:240P,120P242P,120PWI260P,120P262P,120P:PXJP07V V Z.VX,Y20X20,Y20X,YX20,Y4VEV QUES. MARKXVX,Y14X,Y17qVX4,Y20X16,Y20VX20,Y17X20,Y14VX16,Y10X10,Y10VX10,Y5V X10,YX10,Y1V#V% 'V&X8,Y12X14,Y20:V' -W(X,YUX20,Y3X20,Y20!U)U VFUX,Y20X10,YX20,Y20LUTU WpUX,Y20X4,YX10,Y12UX16,YX20,Y20UU XUX,Y20X20,YUX,YX20,Y20UU YUX10,YX10,Y10X,Y20UX10,Y10X20,Y20 T S0TX,Y6X,Y3X4,YX16,YX20,Y3ITX20,Y7X16,Y10_TX4,Y10X,Y13TX,Y17X4,Y20X16,Y20TX20,Y17X20,Y14TT TTX10,YX10,Y20TX2,Y20X18,Y20TT UUX,Y20X,Y3X4,YX16X16,Y20X20,Y17X20,Y33SX20,YX12,Y69SAS P[SX,YX,Y20X18,Y20uSX20,Y17X20,Y13SX18,Y10X,Y10SS RSX,YX,Y20X18,Y20SX20,Y17X20,Y13SX18,Y10X,Y10SX20,YX10,Y10TX10,Y5RdX20,Y20X20,Y%Rh-Rj NNRlX,YX,Y20X20,YX20,Y20TRr\Rt OwRvX20,Y3X16,YX4,YRxX,Y3X,Y17X4,Y20RyX16,Y20X20,Y17X20,Y3R|R~ QRX20,Y3X16,YX4,YRX,Y3X,Y17X4,Y20S15,YQ>X5,Y20X15,Y20"Q@*QB JEQDX4,Y6X4,Y3X8,Y[QFX16,YX20,Y3kQHX20,Y20qQJyQL KQNX,YX,Y20QOX,Y5X20,Y20QQX20,YX8,Y10QTQV LQXX,YX,Y20QZX,YX20,YQ^Q` MRbX,YX,Y2010 P"P$ G(P&X12,Y6X20,Y6DP(X20,Y3X16,YX4,Y`P)X,Y3X,Y17X4,Y20P+X16,Y20X20,Y17X20,Y14P-P. HP0X,YX,Y20P2X,Y10X20,Y10P4X20,YX20,Y20P6P8 IP:X10,YX10,Y20Q<X5,YXX,Y3X,Y17X4,Y20:OX16,Y20X20,Y17X20,Y14@OHO DOX,YX,Y20X18,Y20X20,Y17X20,Y3X18,YX,YOO EOX20,YX,YX,Y20X20,Y20OX,Y10X10,Y10OO FOX,YX,Y20X20,Y20PX,Y10X10,Y "NEED TO LOOK AT THE CATALOG?";8 " (Y OR N) ";X$I X$"Y"3348Z X$"N"3040d 3310v D$;"CATALOG" :"PRESS RETURN TO CONTINUE.";X$ 3040> :"PRESS RETURN TO CONTINUE.";X$H D$;"CLOSE ";Z$R 1402v J "END OF LIST":3390D :"PRESS RETURN TO CONTINUE. ";X$R X0:3190c ERROR ROUTp Y(222) Y5I03300 Y53400 Y63300 Y255Ā D$ "UNUSUAL ERROR ";Y: "FILE NAME NOT FOUND." D$;"DELETE ";Z$#HE MAKE SPELL LIST PROGRAM."" I "TYPE NAME OF SPELLING LIST? ";Z$O b D$;"OPEN ";Z$u D$;"READ ";Z$| I I03300& J1I0 :A$(J): JD D$;"CLOSE ";Z$N J1IX :"WORD # ";J;" ";A$(J)b XX1l X53210ōȍύà͠ԠϠÍč̍ǠϠȍҍҍō٠ƠǠ΍ٍ̍ŠҠӻ׍č̍ŠԠĠĠӍҍٍٍԍōһōӍƠŠŠč͍ĠҠΠĠԠԠΠǠĠǍԍ˻̠ϠӍōӻԠԍٍȠĠǍD(222)` Y5I03100&` Y425104` Y77510A` Y254ĦU` Y53W10:765w` Y11ĺ"FILE NOT FOUND":2540` Y255Ā` "UNUSUAL ERROR ",Y` W10:765` "FILE NAME NOT FOUND."`& D$;"DELETE ";N$`0 2540IST ";N$5_ :"2. START SPELLING WORDS ON LIST ";N$Z_ :"3. GET A NEW LIST OF WORDS."y_ :"4. EXIT THIS PROGRAM."_ ::"TYPE NUMBER OF PROGRAM WANTED ?";P2_ :::_ P21700_ P22750_ P232500_ P24Ā_ P242740` Y ::"TYPE THE SPELLING LIST NAME ";N$7^( READ LISTJ^2 D$;"OPEN ";N$]^< D$;"READ ";N$d^F Io^P Z1Iz^Z S$(Z)^d Z^n D$;"CLOSE ";N$^x D$^ ^ SUB MENU OF SPELLING^ :^ ::"SELECT A PROGRAM"_ :"1. SEE ALL WORDS ON LST TYPE THE NAME OF THE"<] "SPELLING LIST THAT YOU WANT."c] "FOR NOW USE 'SAMPLE SPELL LIST'"] :"DO YOU NEED TO SEE THE DISC CATALOG "] "NAMES OF SPELLING LISTS (Y OR N)? ";M$] M$"Y"2555] M$"N"2580] 2540] D$;"CATALOG"'^0,119P279,119P:P\T#\23\X240:Y118>\P17h\P1500,1510,1530,1550,1560,1570,1580o\Pu\\ :::\ 3000\ D$(4):I0\ :"WELCOME TO MYSTERY WORD SPELLING!!"\ ::"BEFORE YOU CAN USE THIS PROGRAM"] "YOU MUԍԻŻȍ؍ǻӠƠӍũōŠҠȠԍɍٍ͍ӠΠĠٍٻōԍлōٍō٠ҍōŠƠǍ͍ԍŠ٠ǻŠРΠԍÍӻλԍԍ̠ǻčōŠǍčǠŠӍōػōҍٻٍРΠ͠ˍō٠ōčōԠҠǍō΍ōĻȍӍōōōһō                       ԍ̠ӠŠҠҭ̭îԍԠӠҠԠ٠Ҡ̍ԠƠŠĠٍ΍ĻčϠӍ΍λƭō΍ĠԍӻȠĠҍ΍ǠҠǠٻΠӭŠƠӠԍǻ٠ǠٻǠҠԠōōŠΠӠٍ΍ΠƠ׻΍čĠΠΠŠƠōӍӻٍ΍٭ōōΠƠŠǠȠҠǠŠĠŠҠӍٍӻӠƠȍōȻΠϠҠ΍ō΍č̻λčōŠǠ΍̠ŠǠԍӍٻԭčԍǠΠŭ˭îԍҍҠٍÍǠԻǍg  D$(4)'D$;"OPEN VOCAB,L150"@D$;"WRITE VOCAB,R0"H#X0O(Xe2D$;"CLOSE VOCAB" .0 N765N A-NX,YX10,Y20X20,YCNX5,Y7X15,Y7INQN BkNX,YX,Y20X18,Y20NX20,Y17X20,Y13NX18,Y10X,Y10NX,YX18,YX20,Y3X20,Y7X18,Y10NN CNX20,Y6X20,Y3X16,YX4,YO580 M/::M4W17İ1350-M6W17900:M8RC1ıCM<Y80cM>W1840,841,842,843,844,845qMCA$W$:92wMEMHX0:MIX26:MJX52:MKX78:MLX104:MMX130:M SPELL WORDM3:550MA$S$(Z):92MP15000:PNW1 LXX8:PLW10:765'LP11204L2:1705AL0:1705OLXX8:P1]LW10:765qL  WRONG ROUTINEL"W1W11:X240:Y118:2L$W11İ1500L%W12İ1509L&W13İ1530L'W14İ1550L(W15İ1560L)W16İ1570M*W17İ1M2KK3M1&KMIKK1:7605KNIī2700NKZ110:L$(Z)" ":ZkKZM:MM4:NN1:R0:500K  RIGHT ANS ROUT.K 6:A$S$(Z):550:92KX240:Y118:0:804KP((1)21):P784,790KX0:Y118KP130K7:1400:0:1400J6JA$W$J92 J5500JRR1:WW16JJJ SEE ALL WORDSSJY60^JZ1IgJ:3pJ550}JA$S$(Z)J92JPA13000:PAJZJ2700J SELECT WORDS FROM LISTJN0:K(I4)JMK:K0M4JK1M3KK2XX78:650&IbW$L$(5)XX104:650AIdW$L$(6)XX130:650\IfW$L$(7)XX156:650wIhW$L$(8)XX182:650IjW$L$(9)XX208:650IlW$L$(10)XX234:650InRC1780IpW0ĺ"WRONG":800Ir:::W0Iv510I PRINT LETTER EACH LETTERHKB$S$(Z))HMK$(B$,C1);HNL$(L)(K$,1)QHOL$(L)" "R1:0lHPX1,YX120,Y:X1X126~HQL$(L)(K$,1)HSC1C11HULHV1325HY510HZW$L$(1)XX0:650H\W$L$(2)XX26:650H^W$L$(3)XX52:650 I`W$L$(4);"510GW$"/"510)GW$"7"W$"'"3G:: :k "GENERAL INSTRUCTIONS FOR MYSTERY WORD"| "SPELLING." :"THIS SERIES OF PROGRAMS CAN BE USED" "BY BOTH THE STUDENTS AND PARENTS OR" "TEACHERS." ! &"MYSTERY WORD S."" :"6. SEE A DISC CATALOG."H :"7. QUIT THIS ENTIRE PROGRAM."x :"TYPE THE PROGRAM NUMBER YOU WANT ? ";P2 P2300,500,1000,3000,2000,400,280 :"TYPE A NUMBER 1-7.":240  ,104,64:16384,0 1(4);"RUN SPELLING" D$;"CAWING"3 "PROGRAMS BY TYPING THE PROGRAM NUMBER."V :"1. MYSTERY WORD SPELLING."x :"2. GENERAL INSTRUCTIONS." :"3. TYPE IN NEW SPELLING LISTS." :"4. FAST VIEW ANY SPELLING LIST ON DISC." :"5. CORRECT MISTAKES IN A SPELLING LIST : D$(4)"A$(100),Z(10)Kd:"MYSTERY WORD SPELLING"on::"BY DR. CHARLES E. OPHARDTx:"COPYRIGHT 1982."}:"PROGRAM MAY BE COPIED""BY SOFTDISK USERS."P15000:P: "YOU MAY ACCESS ANY OF THE FOLLO           ōŠٍ̍ŻŠō΍ǠŠŠȠŠĠƠÍ̍ҠōٍӻǠčōǠōōĠ΍΍ō̍ˠԻԍԍԠȠӍԍԻӍōԠʮI1Z1:W$(I):I0Y:"WOULD YOU LIKE ANOTHER COPY ? ";A$:A$"Y"Ċ1:650_ TO CREATE PUZZLE...":1,bX140:Y120AlA%(X,Y)45640_vB((1)26)65:A%(X,Y)BiY:Xr680:"COMPUTER GENERATED WORD PUZZLE:::730X140:Y120(A%(X,Y));" ";Y::X::"WORD LIST":X 22:1:39);:170, X140:Y120@ A%(X,Y)0560[ &A%(X,Y)45:Y:X:"-";e 0Y:X :22:"READY TO PRINT:TURN ON PRINTER AND HIT ...";A$:1:680 D:"WORD PUZZLE ANSWER KEY" N::X0::"PLEASE WAIT A MINUTE FOR ME 1Y1B%(1,1)1420 440= X((1)3)1:Y((1)3)1^ (X0Y0)B%(X2,Y2)0420l X1L:Y1U{ C1(A$) X1X1X:Y1Y1Y A%(X1,Y1)((A$,C,1)) BLANK500 Y1:X1:(A%(X1,Y1)); C B0:X13:Y13:B%(X,Y)0:Y:A%(X1,Y1)0310B "A%(X1,Y1)((A$,C,1))B%(X2,Y2)0:330` ,B%(X2,Y2)B%(X2,Y2)1g 6C @B%(X2,Y2)B%(X2,Y2)1:BB1 JY:X TB0210 ^R2:D2 hX13:Y13 rB%(X,Y)B%(R,D)RX:DY |Y:X XR2:YD2 X0) ZZ17 22:1:"WORD #";Z;":";:A$:A$""180J A$"STOP"530W W$(Z)A$y U((1)20)1:L((1)40)1 X11:Y11 XYY0330 X1L:Y1U C1(A$) X1X1X:Y1Y1Y X140X11Y120Y11B%(X2,Y2)0:330 ALL THE WORDS YOU WOULD LIKE IN THE PUZZLE, TYPE 'STOP' AND THE APPLE WILL DO THE REST." 18:"IF YOU WOULD LIKE TO MAKE A PUZZLE FOR YOURSELF (BLANK SCREEN), THEN TYPE '1'; OTHERWISE TYPE '0'TO BEGIN: "; BLANK::Z0 W$(200),B%(3,3),A%(40,2a_d:10:14:"WORD SEARCH PUZZLE":12:14:"BY DAVID W.DURKEE":14:14:"COPYRIGHT (C)1981"pnI12000:Ix:10:"TO CREATE A PUZZLE, SIMPLE ENTER A WORD YOU WOULD LIKE TO HAVE IN THE PUZZLE AFTER THE '?' PROMPT."Z 14:"WHEN YOU'VE ENTERED   70:("S")3178,170:("A")31102,170 ("L")31126,170:("E")31138,170:("T")31150,170:("T")31162,170:("E")31174,170:("R")31186,170 ("-")31210,170 2  2200:1470:14807!("W")3130,170:("O")3142,170:2<:10,F:5:"1 COMPUTER PLAY"EP:5:"2 TWO PLAYER"Z15:5:"ENTER GAME TYPE--";:T$:(T$)1(T$)21370d(T$)1T0750n(T$)1770x8802' ("G")3130,170:("U")3142,170:("E")3154,170:("S")3166,131210C20,R2515::63:5:"1 ";G$(1)H :5:"2 ";G$(2)]:5:"3 ";G$(3)r:5:"4 ";G$(4){#DD2(15:5:"ENTER VOCABULARY LEVEL--";:G$:(G$)1(G$)41320):10:"DIFFICULTY-- E)ASY OR H)ARD- ";:DD$*DD$"E"DD1170:("E")3154,170:("R")3166,170:("E")3178,170:("A")31102,170:("R")31114,170v("E")31126,170("N")31150,170:("O")31162,170:(GU$)31186,170:("S")31210,170R((WG2)3):CWG2((WG2)3)3(GU$)ɔ("I")31102,170:("S")31114,170P((R))31138,170:(GU$)31162,170VjWGWG1:SWSW1SW170,220,240,260,280,300,320,350,370,400,430,480,520,570,64031230:I1WT::1250:2200:1010_("T")3130,170:("H")3142,:("A")31102,170:("R")31114,170=k("E")31126,170{l((R))31150,170:(GU$)31174,170:("S")31198,170m1170:I1WT::2200:1010%("T")3130,170:("H")3142,170:("E")3154,170:("R")3166,170:("E")3178,170:0 I1LO$(WO$,I,1)GU$Ĕ(GU$)31I20N,144:RR1:TRTR1:TRL1540U._82200fB2tLR01200VR11160`1130:I1WT::2200:1010&j("T")3130,170:("H")3142,170:("E")3154,170:("R")3166,170:("E")3178,170DS"910:5:(7);"OK! LET'S GO ";P2$:I15000::120W2:0:NG0:WG0:TR0:SW0iL(WO$):N10I1L:N5I20,160NI207,160:3:1410:R0GU$:GU$(23)1460NGNG1:(GU$)65(GU$)90NGNG1:1020(GU$)31234,171$:::"ENTER A WORD (15 CHARACTERS MAXIMUM):"::5:"YOUR WORD-- ";WO$n:I1NW:WO$WO$(I)INW::975:NWNW1:WO$(NW)WO$:D$"OPEN ";G$((G$));" WORDS,L15":D$"WRITE ";G$((G$));" WORDS,R1":NW:I1NW:WO$(I):::D$"CLOSE ";G$((G$));" WORMAKER'S NAME-";P1$7z:5:"WORD GUESSER'S NAME-";P2$a::D$"OPEN ";G$((G$));" WORDS,L15"D$"READ ";G$((G$));" WORDS,R1"NWI1NW:WO$(I):::D$"CLOSE":10:P2$;", PLEASE TURN AROUND AND DO NOT PEEK!!"H::((P1$)2):PE$(27)S0:1270:770+*S1ī870S4:D$"OPEN ";G$((G$));" WORDS,L15"x>D$"READ ";G$((G$));" WORDS,R1"HNWRI1NW:WO$(I):\D$"CLOSE ";G$((G$));" WORDS"f2000:WO$WO$(N):S1:120pS1970rS1u:7:5:"WORD :12:1:"WHAT IS YOUR NAME --";P1$|:7:(18((P1$)2))::"HI ";P1$:15:4:"I HOPE YOU ENJOY HANGING AROUND!!":20:790::12:"SELECTING FROM ";G$((G$)):16:5:" TO CHANGE VOCABULARY":18:5::"ANY OTHER KEY TO CONTINUE";::E$ĠϠ͠ӻǠ΍Ӎ̻͍Ӎűٍٍȍٍ̍ōٍԍҍҍҍҍ  (MM/DD/YY) ";DA$7 D$;"RENAME VOCAB,VOCAB";DA$Q: D$;"OPEN VOCAB,L150"bD J0:I1RE%tN B%(I)18300X JJ1:D$;"WRITE VOCAB,R";Jb A$(I):B$(I)l Iv D$;"WRITE VOCAB,R0" J D$;"CLOSE VOCAB" 100E%"|::"WORD ";I;" OF ";RE%:F5::"WORD:":::" ";A$(I)O50010::"MEANING:":::32,5:6:ST$B$(I):605:32,0::S$"SHOULD THIS BE REMOVED?":502:A$"Y"B%(I)1500I :"WHAT IS TODAY'S DATE? 55%t(B$(I),X,1)" "XX1:6260J~(B$(I),X1):B$(I)(B$(I),X1)m(B$(I))55ĺ25);B$(I):6300~25);:6300:ID$;"PR#0"100@EI1RE%:B%(I)0:IJ2000T2100^I1RE%:XI:2500:Ih2600rI1R:NHRE%TY%:NL1:545:FI%V1D:5:10::"READING THE WORDS.":N2100lI1TY%:XFI%I:2500:Iv260062008D$;"PR#1":" 80N"BI1TY%LJ25(A$(I))11:A$(I)A$(I)" ":JVA$(I);`(B$(I))55ĺB$(I):6300jX;AN$ dAN$""120# nWO$(I)AN$) x/ R D$;"OPEN ";A$(A);" WORDS,L15"u D$;"WRITE ";A$(A);" WORDS,R1"} NW I1NW:WO$(I): D$"CLOSE"D:D$;"OPEN ";A$(A);" WORDS,L15"D D$;"READ ";A$(A);" WORDS,R1"L (NWb 2I1NW:WO$(I):r <D$;"CLOSE"~ FI1NW K P"RECORD ";I;" IS ";WO$(I) Z:"ENTER CORRECT SPELLING OR HIT FOR NO CHANGE -- "WO$(1000)^A$(1)"GRADES 1-4":A$(2)"GRADES 5-8":A$(3)"GRADES 9-12":A$(4)"COLLEGE"j D$(4) :5:"1 GRADES 1-4"::"2 GRADES 5-8"::"3 GRADES 9-12"::"4 COLLEGE":::" ENTER VOCABULARY LEVEL ";A$:(A$)1(A$)411 A(A$)" ):A$(2)(33):A$(3)(92)!)L'I0>)V'I((I1)4((I1)4))4j)`'22:15:A$(I);:20:A$(I);:25:A$(I);)j'(16384)127ı)t'10070!"::D$"RUN MENU"(4?(0:ZZ165178:0,ZZ279,ZZ::3:P(' TITLE PAGEX(':`('10z('13);"APPLE HANGMAN"('($'19);"BY"()'(.'10);"PAUL AND SUE MADISON"(3'20(8'10);::"HIT ANY KEY TO BEGIN":)B'A$(0)(45):A$(1)(47170'I15000:'15900' NO.DUP.RANDSW' A(TU)((((78)(79)256)NW)1)p'NA(TU):B(N)12060{' B(N)1(*TUTU1:TUNWġ::10:"THERE ARE NO MORE WORDS IN THE ":G$((G$));" VOCABULARY."::5:"THANK YOU FOR PLAYING APPLE HANGMAN!!("E")31114,170:B&3:2:I1L:((WO$,I,1))31I20N,144:&("W")3130,170:("A")3142,170:("S")3154,170:("T")3178,170:("H")3190,170:("E")31102,170'("W")31126,170:("O")31138,170:("R")31150,170:("D")31162,$"NO"80%G(T$)1770#%J880P%T:10:"SAME SETUP? ";:AN$:AN$"N"740`%^T$"1"770i%h880%r3:1660:I1WT::2200:1670&|("Y")3130,170:("O")3142,170:("U")3154,170:("L")3178,170:("O")3190,170:("S")31102,170:12000:E$6::7:"YOU MADE ";NG;" GUESSES -- ";WG;" WERE WRONG!"$@:"DO YOU WISH TO PLAY AGAIN? Y";:28:"";AN$:AN$"N"AN$"NO"ė:10:"THANK YOU FOR PLAYING APPLE HANGMAN!!!!"::D$"RUN MENU" %E:10:10:"SAME SETUP? Y";:22:"";Z$:Z$"N"Z1I20N,144:#("Y")3130,170:("O")3142,170:("U")3154,170:("G")3178,170:("U")3190,170:("E")31102,170:("S")31114,170#("S")31126,170#("E")31138,170:("D")31150,170:("I")31174,170:("T")31186,170 $,I50,370,400,430,480,520,570,640("1010"("W")3130,170:("R")3142,170:("O")3154,170:("N")3166,170:("G")3178,170:("W")31102,170:("O")31114,170"("R")31126,170:("D")31138,170:#2200:3:2:I1L:((WO$,I,1))3("R")3154,170:("D")3166,170:("-")3178,170:G!J90:WG$""S!NGNG1^!I1L!L$:(L$)31J,170:WG$WG$L$:JJ12:!2200:WG$WO$1540!1530:I1WT::2200:16368,0!WGWG1:SWSW1"SW170,220,240,260,280,300,320,3@300 J& T LAST MOD. JULY 1979, ^c h DONATED BY AUTHOR KEVIN ARMSTRONG...i r} | 'ALPHABETIZE'  ALPHABETIZE * *":9 "* * BY KEVIN ARMSTRONG * *"::g ":" THIS PROGRAM WILL SORT WORDS OR": '"STRINGS ALPHABETICALLY.." ,20:" PRESS 'ESC' TO END" 1" PRESS THE SPACE BAR TO CONTINUE..." 6(16384)155270 ;(16384)1601 A$(I) i n I" x I 1 N3 J 1 NI@ A$A$(J)O B$A$(J1)a A$B$ 190n A$(J)B$} A$(J1)A$ J,I I 1 N A$(I) I  40 :936:10:10:"* * * THE END * * *":  5:"* *936:280:10:10+A$(100)9:10:10U "*** ALPHABETIZE ***"[f15:6 "TO END THE PROGRAM ENTER 0"#20:10("NUMBER OF ITEMS";" ";2 N< N0 270K:5P I 1 NZ"ITEM";" ";I;" "; d  A1(B$)2:"-";: "/""4 XX1500:XXJ 14:19:958::z 19:"SORRY!!";:XX1500:XX:19:868::I90`(EE$)1EE$"":11405jEE$(EE$,(EE$)1)[tCV((EE$)40)24CVCV1:1140y~CV:CH:EE$;:958:1090(13);:CV:17:"/";A1(B$)2:"-";:(92);CV1:16:"<";:16(B$)1:">";CV2:17:(92);A1(B$)2:"-";: "/""4 XX1500:XXJ 14:19:958::z 19:"SORRY!!";:XX1500:XX:19:868::90`(EE$)1EE$"":11405jEE$(EE$,(EE$)1)[tCV((EE$)40)24CVCV1:1140y~CV:CH:EE$;:958:1090(13);:CV:17:"/";A1(B$)2:"-";:(92);CV1:16:"<";:16(B$)1:">";CV2:17:(92);  CHAIR,AWOKE,AROUSE,SIPHONP ZIGZAG,DONKEY,SPENT,VANITY,FAMOUS,INFUSE^ END,ENDd$. CURSOR INPUT ROUTINE8EE$"":CV(37)1:CH(36)1BG$:AA(G$):AA13(EE$)2551160LAA8EE$EE$(AA):(AA);:1090V(EE$)010NIMBLE' YIELD,ABYSS,EMPLOY,FASTENH ALBUM,TWINE,RANSOM,BEDECKh IGLOO,WHINE,GRIMLY,SOLID LOUSY,APRON,BANGLE,ANKLET FINISH,PREFER,IODINE,DABBLE GUTTER,NICKLE,POISON,OUTING,MOBILE,RAMROD NERVE,CHIME,HYMNAL,FACTORp SOUSE,FUZZY,AFFRAY,ESTATE@z CLEFT,STEED,OUTBID,WIDESTb LINEAR,THYME,DISMAL,HELMET CLOVE,HITCH,DUPLEX,ARTERY WEDGE,TAFFY,QUAVER,BUTTER ENACT,JOINT,THRUSH,WISDOM DOUBT,QUEEN,MARINA,BEHELD BEGIN,CANAL,GHOST,SY,WINDOW)* FELON,DICED,THROW,CLOUDYZ4 DARING,BAFFLE,INVITE,ENAMEL,DAHLIA,OBJECTy> WINCE,CRESS,DRUG,INVERTH SNORT,MOTIF,CHORUS,GENDERR POUCH,EXACT,BUTTON,ORIOLE\ YOKEL,ARMOR,VANDAL,PICKETf LIMIT,GAUDY,SINGLE,DOUBLYD$(4):D$;"RUN MENU";:> HOBBY,BUILT,DIVERT,FLOWER_ GRIMY,SMART,ENGINE,MUFFIN RUSTY,DESTROY,ICEBOX,DEBTOR SCHOOL,HENNA,ARCADE,PURPLE  RAINY,LAPEL,FROZEN,CIPHER NUTTY,MAGIC,PASTRY,SOLACE   BOOTY,CLOUT,DROWT100.5)Y(WT100.5)%:KX;"% CORRECT ";Y;"% WRONG"S:"IS THERE ANYONE ELSE WAITING TO PLAY?""(Y FOR YES OR N FOR NO)=>";QQ$:QQ$""707QQ$"Y"ĬQQ$"N"707::8:"* * * T H E E N D * * *"A$::WW0:580#WW1:51060"CORRECT!!":@:RR1jD:"SCORE: CORRECT ";R;" WRONG ";WN23:"ANOTHER WORD? (Y OR N) ==>";SQQ$:QQ$""595XQQ$"Y"ė:3:240bQQ$"N"595:::"YOU ANSWERED: "TWR X(R,D,1) B$B$B$(E) A(D)1' E6 A$B$360e 10:" UNSCRAMBLE: ";B$;:CV(37):2000m 14 "WHAT'S YOUR GUESS? "; 1060 : C$EE$ A$C$560 530 3100:WWWW1:WW3İ3000:445" THE ANSWER IS: ";::AMBLED WORD GAME":::! 34,53 B$(20),A(20)9 C A$""M B$""W C$""c Z120n A(Z)0u "Z ,A((1)301) 6B1A @A$ JA$"END"Į:BB1 TB ^C(A$) hE1C rD((1)C1) |A(D)1370 B$(E)(A$ *#  * *A  ***********************_  *PROGRAM MAY BE COPIED*}  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE,INC * " *********************** d:::255 ::: 8);"SCR EDUCATORS *3  * *Q  * SOFTSWAP *o  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  *(415)364-5600 EX 4401*  * DAPTED TO THE APPLE FROM THE PET BY KEITH ROLLINa *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * *  * COMPUTER-USING *  * {" SCRAMBLED WORD 7/1980 / e UNSCRAMBLE LETTERS TO SPELL A GIVEN WORD.p {  APPLESOFT 8K  AUTHOR UNKNOWN BUT IT WAS KID PROOFED ON 7/17/80 BY QJ C A     S KEPT.";" THE MISSED":"WORDS CAN BE REVIEWED AFTER THE TEST.":"WORDS ARE PRESENTED IN RANDOM ORDER TO AVOID ROTE MEMORY RESPONSES.":"PRESS A KEY FOR MENU: ";:A$:1 CREEN TO PROMPT THE USER FOR TYPING OUT ON THE KEYBOARD." l:"PROVISION IS ALSO MADE FOR A PRINTER LISTING."::"THE SPELLING TEST PROVIDES FOR THREE LOOKS AT THE WORD BEFORE IT IS BYPASSED TO THE NEXT WORD. A RECORD OF NUMBER OF CORRECT WORDS I(A$,1)"Y"190B:"DON'T BLAME ME IF YOU DON'T GET YOUR"_"SPELLING TEST RIGHT!!"ekxI1NUMI(I)ĺW$(I)I:X"THIS PROGRAM PROVIDES FOR ENTERING A LIST OF SPELLING WORDS WHICH WILL THEN BE FLASHED ON THE S00|CV(37)CV:1:B$.T10CC1F"YOUR SCORE IS:";CMNU:x"YOU GOT ";C;" WORDS CORRECT"~:"DO YOU WANT TO SEE THE WORDS YOU MISSED (Y/N)? ";A$(A$,1)"Y"İ500:"DO YOU WANT TO DO IT AGAIN (Y/N)? ";A$ ";""DO YOU WANT TO SEE THE WORD AGAIN? ";J,A$:1:B$].TT1:T3400o1A$(13)240y6:A$;(W$(I),1)" "320<W$(I)(W$(I),((W$(I))1)):315@(A$,((W$(I))))W$(I)380ET1I(I)1JT11:T3240T4 ":C00I1NUM:R(I)0:I(I)0:I\"SPELLING TEST: TO BEGIN PRESS RETURN"qA$:(A$)13Ā~N1NUMI%(NUM.5)(1)1R(I%)0222II%:R(I)1T0:T1010:W$(I)J120Q(3)J10:1:" M1:D$;"READ SPELLING LIST,R";NUM/W$(NUM)DW$(NUM)""145wD$;"CLOSE SPELLING LIST":NUMNUM1:OPN1180(4);"PR#1"(20)I1NUM5)I;". ";W$(I)I(4);"PR#0"B$"  gD$;"CLOSE SPELLING LIST"= hD$;"LOCK SPELLING LIST":1_ i(A$)0Ģ(37)2:958:100m nNUM(A$) s:"ENTER WORD: ";W$(NUM) xD$;"WRITE SPELLING LIST,R";NUM }W$(NUM) NUMNUM1:80 D$;"OPEN SPELLING LIST,L20":NUM0"NUMNU0" PNUMNUM1:NLNL1; RD$;"READ SPELLING LIST,R";NUMH UW$(NUM)b WW$(NUM)""NL20:95 ZD$:5)NUM;". ";W$(NUM) _NL20NL0:D$::"IF YOU WANT TO MAKE A CORRECTION, ENTER # OF WORD,OTHERWISE PRESS RETURN: ";A$:105 dW$(NUM)""8035,22% #D$;"DELETE SPELLING LIST"F (D$;"OPEN SPELLING LIST,L20"o -NUMNUM1:D$:5)NUM;". ";:W$(NUM) 2D$;"WRITE SPELLING LIST,R";NUM 7W$(NUM) <W$(NUM)""45 F LIST SPELLING WORDS HNL0:NUM0:: KD$;"OPEN SPELLING LIST,L2 D$;"UNLOCK SPELLING LIST"> OPN370: CORRECT WORDS !:"** SPELLING LIST IS ABOUT TO BE DELETED."::10)"PRESS ESC TO AVOID.":A$:(A$)271 "::"ENTER YOUR WORD AFTER THE ?":I(37):24:"PRESS RETURN AFTER ? TO END INPUT. ";:I1::ND CORRECT WORDS") 5)"4. PRINT LIST"C 5)"5. INSTRUCTIONS"m 5)"6. STOP"::"INPUT OPTION? ";OPN D$(4):D$;"OPEN SPELLING LIST,L20" OPN1140 OPN4140: PRINT SPELLING LIST OPN5ė:600: INSTRUCTIONS OPN6ĺ(7): "W$(100),R(100),I(100):NUM0=:13)"SPELLING TEST"h:10)"BY RICHARD A. MICHAEL 1980  **THE GREEN APPLES** **CEDAR FALLS IOWA** :"OPTIONS:"5)"1. TAKE SPELLING TEST"5)"2. ENTER NEW WORDS" 5)"3. LIST A      ** INSERT ALPHABETIZE SUBROUTINE HERE **GD$;"RUN ALPHABETIZE"x ** INSERT EXIT TO BASIC SUBROUTINE HERE **D$;"FP"DBBLE.HELP"; ** INSERT SCRAMBLE WORD SUBROUTINE HERE **X D$;"RUN SCRAMBLED WORD" ** INSERT LATIN (CONVERSION FROM ENGLISH TO PIG) SUBROUTINE HERE ** D$;"RUN PIG.LATIN"  ** INSERT SAT WORDS SUBROUTINE HERE ** D$;"RUN SAT.TEST"-D$;"RUN APPLE HANGMAN"L  ** INSERT VOCABULARY LESSONS SUBROUTINE HERE **l D$;"RUN APPLE WORD PUZZLE"  ** INSERT DICTIONARY GAME SUBROUTINE HERE ** D$;"RUN DICTIONARY GAME" ** INSERT SCRABBLE HELP SUBROUTINE HERE ** D$;"RUN SCRA̍΍Íōٍٍ΍ԍٍٍz#  ӠӠ ŠӠ ٠ȠӠ! ٠ԮԠ"ՠ  ? ŠΠ#ҠҠӠӠӠ ӠӠ Š Ӡ ŠĠŠ Ǡ٠ŠԠ Š̠ԠǠ#®Ҡ ٠̠" Ҡ!Ҡ"Ҡ̠ ǠԠǠԠĠĠϠǮΠ ҠԮԠŮР ĠĠ٠Š29,109# **MOUTH AND EYEBROWS**<5:147,46153,46:4y147,47147,46148,46148,45152,45152,46153,46153,475:144,35147,35:153,35156,35:44:144,34146,34:146,35147,35:153,35154,35:154,34156,34:16501270:1340#148,82173,107:147,82172,107:146,82172,108:146,83171,108145,83171,109:146,82124,104:147,83125,104:148,83125,105:149,83126,105:150,83126,106151,82127,106:152,82127,107:153,82128,107:154,82128,108:154,83129,108:155,831:143,59128,74:142,59127,74Bl147,57153,57:147,56153,56:Rv **PANTS**6:146,81154,81177,104171,110150,89129,110123,104146,81154,82176,104:153,82174,104:152,82175,105:151,82174,105>150,82174,106:149,82173,106:1,76bN156,59156,78:155,59155,79:154,59154,80:153,59153,80:152,59152,80:151,59151,80X150,59150,80:149,59149,80:148,59148,80:147,59147,80:146,59146,80:145,59145,79:144,59144,78b146,59129,76:145,59129,75:144,59128,75125,78122,82:127,78:120,80:127,82128,82B&127,78127,82:R0 **SHIRT**:1:142,58158,58174,74171,77157,63157,78155,80145,80143,78143,63129,77126,74142,58D158,59173,74:157,59172,74:156,59172,75:155,59171,75:154,5917:173,77177,80:173,78177,81:173,78H172,82173,82:178,82180,80_DD2SWSW1:510e| **RIGHT HAND** 5124,75128,78128,80127,80127,79126,79123,82121,80121,79124,75-125,76122,79:124,77121,81:125,77123,80:,111177,113174,111T175,111182,104:176,111183,104:176,112177,111:177,112|181,107184,104:182,107183,106: **LEFT HAND**5:172,78175,75179,79179,80177,82174,79173,79173,81172,81172,78&174,76178,79:174,77178,80,108118,108115,105115,103118,103} 124,110118,104:123,110117,104:123,111122,110:119,107116,104:118,107116,105 DD2SWSW1:420   **RIGHT FOOT** 5174,111182,103184,103185,104185,105182,108178,108177,1091798155,38155,39154,392 ODD2SWSW2:340:3608 QK T **EYEBROWS**r ^4:144,35147,35:153,35156,35: h **NOSE AND MOUTH** r4 |149,42151,42:147,46153,46:  **LEFT FOOT**$ 5:118,103125,110123,112121,110122,1091215 DD2SWSW1:250 2 **RIGHT ARM**Q 3:150,58155,58172,75:d  **LEFT LEG**x 150,83125,108 DD2SWSW1:290  " **RIGHT LEG** ,150,83175,108: 6 **EYES** @4:145,38146,38146,39145,39 J4:154,3,20150,29 980" **HEAD**) 5f 138,41:X138162:Y(144(X150)2):X,41Y:X,41Y: 138,39135,39135,42138,42 162,39165,39165,42162,42: **BODY** 3:150,52150,83: **LEFT ARM** 3:150,58145,58128,7+ (D$(13)(4):D$"BLOAD SHAPES,A$8F97"6 236759B <D$(4)^ FWO$(200),A(200),B(200) PG$(1)"GRADES 1-4":G$(2)"GRADES 5-8":G$(3)"GRADES 9-12":G$(4)"COLLEGE" ZT0:D$(4) dS0 n740 x 2 70,120120,120:90,12090,20150!" APPLE HANGMAN SUBMITTED TO@ SOFTDISK - JUNE 1983 BYY SUE & PAUL MADISONq 1008 ESPLANADE ST LAKE CHARLES, LA 70605WT600 10000 (232)151(233)143(1)2(0)128ī500,128:1,2:232,151:233,143 37401                "  D$(4) D$;"RUN MENU" "$;"WRITE ";A$(A);" WORDS,R1"$ NW: I1NW:WO$(I):I D$"CLOSE"I1NW:WO$(I):n D$"CLOSE":D$;"OPEN ";A$(A);" WORDS,L15"D D$;"READ ";A$(A);" WORDS,R1"L (NWb 2I1NW:WO$(I):r <D$;"CLOSE"~ FNWNW1 K:7:5:"ENTER WORD OR 'CTL S' ";WO$(NW):(WO$(NW))19NWNW1:130 P70 D$;"OPEN ";A$(A);" WORDS,L15" DKWO$(1000)^A$(1)"GRADES 1-4":A$(2)"GRADES 5-8":A$(3)"GRADES 9-12":A$(4)"COLLEGE"j D$(4) :5:"1 GRADES 1-4"::"2 GRADES 5-8"::"3 GRADES 9-12"::"4 COLLEGE":::" ENTER VOCABULARY LEVEL ";A$:(A$)1(A$)411 A(A$)"  THE WORD AND ADD 'AY'=:(X$(I),4)(X$(I),3)"AY ";:350uDTHE WORD TYPED STARTS WITH MORE THAN 3 CONSONANTSN::(7);"YOU MUST BE TRYING TO TRICK ME!"::"LET'S START ALL OVER!":I1500:I:190HE END OF THE WORD AND ADD 'AY'E(X$(I),2)(X$(I),1)"AY ";:350THE WORD STARTS WITH 2 CONSONANTS, MOVE THEM TO THEEND OF THE WORD AND ADD 'AY'&(X$(I),3)(X$(I),2)"AY ";:3500THE WORD STARTS WITH 3 CONSONANTS, MOVE THEM TO THEEND OFCE? ";A$ (A$,1)"Y"ė:1906(A$,1)"N"390U:"EESAY OUYAY ATERLAY!!"[ THE WORD STARTS WITH A VOWEL, ADD 'WAY' TO THE END OF THE WORDX$(I)"WAY ";:350THE WORD STARTS WITH A SINGLE CONSONANT, MOVE THE CONSONANT TO TH)"U"(X$(I),4,1)"Y"5708JWORD MUST BE TYPED WRONGAT590H^Ih CHECK CURSOR POSITION, MOVE IT BACK ONE SPACE AND PRINT PUNCTUATIONrCH(36):36,CH1:P$|:"THERE! WASN'T THAT CLEVER OF ME!":"DO YOU WANT TO DO ANOTHER SENTEN2,1)"Y"530< ,IS THE THIRD LETTER OF THIS WORD A VOWEL? 6(X$(I),3,1)"A"(X$(I),3,1)"E"(X$(I),3,1)"I"(X$(I),3,1)"O"(X$(I),3,1)"U"(X$(I),3,1)"Y"550@(X$(I),4,1)"A"(X$(I),4,1)"E"(X$(I),4,1)"I"(X$(I),4,1)"O"(X$(I),4,1ER OF THIS WORD A VOWEL?m (X$(I),1)"A"(X$(I),1)"E"(X$(I),1)"I"(X$(I),1)"O"(X$(I),1)"U"510 IS THE SECOND LETTER OF THIS WORD A VOWEL? "(X$(I),2,1)"A"(X$(I),2,1)"E"(X$(I),2,1)"I"(X$(I),2,1)"O"(X$(I),2,1)"U"(X$(I),5:"TYPE ONE WORD AT A TIME AND":5:"THEN PRESS THE 'RETURN' KEY.":Q X$(N)z I1N:5:"WORD ";I;:": ";X$(I):I :5:"WHAT PUNCTUATION DO YOU WANT":5:"AT THE END? ";P$:: P$"."P$"!"P$"?"230 I1N IS THE FIRST LETTE."X :"THEN YOU WILL TYPE THE WORDS AND I,":"BEFORE YOUR VERY EYES, WILL SHOW YOU" "YOUR SENTENCE IN PIG LATIN.":::"<> <> <> <> <> <> <> <> <> <> <> <> <>" :5:"HOW MANY WORDS WILL BE IN YOUR":5:"SENTENCE? ";N$:N(N$):N0190F :ORIGINAL PROGRAM)"U 15:11:"YBAY ANDYSAY ITHSMAY":17:12:"(BY SANDY SMITH)"f I13000:I ::"I, THE MARVELOUS APPLE II WILL WRITE":"SENTENCES IN PIG LATIN FOR YOU!!" :"FIRST YOU'LL NEED TO TELL ME HOW LONG":"YOUR SENTENCE WILL B  ** PIG LATIN **5** AN ORIGINAL PROGRAM **P ** CONTRIBUTED BY **k( ** SANDY SMITH **2 ** FEBRUARY 1982 **d:n5:12:"** IGPAY ATINLAY **":7:16:"(PIG LATIN)" x10:8:"ANWAY ORIGINALWAY OGRAMPRAY":12:10:"(AN         K$J$(A):A+(:"YOUR MESSAGE JUMBLED:"9 (J$K$:J$D(JU$J$(:"RUN UNJUMBLER WITH THIS JUMBLE (Y/N) :";I$::(I$,1)"Y"130("RUN THE PROGRAM AGAIN? (Y/N) :";I$::(I$,1)"Y"Ĭ(("SO LONG.":$(" ",(J$))CG'N(J$)^I'J1(J$):J$(J)"":JmL'J1(J$)V'R(N(1))1`'A1j'C0t'J$(A)""CC1~'CR10200'AA1:10100'J$(A)(J$,J,1)'NN1:J'K$"" 'A1(J$):K$E JUMBLE OVER AGAIN? (Y/N) :";I$'K#<P#(I$,1)"Y"130xZ#"DO YOU WANT TO RUN THE PROGRAM AGAIN? (Y/N) :";I$:d#(I$,1)"Y"Ĭn#"SO LONG."x#' JUMBLE':$'"ENTER LINE YOU WANT JUMBLED.".'500:J$I$8'J$""100307B'KIT:3001A1J$(JU$,1)(J$,2)VA(J$)J$(J$,A1)(JU$,A,1)A1A(J$)J$(J$,A1)(JU$,A,1)(J$,A1)(# END2#:<#:"JUMBLE:":JU$::"YOUR SOLUTION:":K$:A#J$JU$:T1!F#"DO YOU WANT TO DO THE SAM1)" "(K$,T)( REMOVE SPACE4 L(K$)H T1K$(K$,2)b TLK$(K$,(K$)1) T1TLK$(K$,T1)(K$,T1)  ELIMINATED0O$(K$,T,1)A1(JU$)(JU$,A,1)O$(J$,A,1)"*"D0İ4500:D1A0+LI(I$):I32(K$,T,1)"-"I$"-"ıRVI32(K$,T,1)" "I$"-"İ700:|`I32((K$,T,1))32I$"-"İ4000:jI$""((K$,T,1))32İ4000:3000:K$K$"-"tI$" "İ20001000 ADD SPACET1K$" "K$T1K$(K$,T)"-"İ300:K$K$"-"&=I$" "TT18?T(K$)1000^BI$""(K$,T,1)" "İ3000:1000DI$""(K$,T,1)"-"İ3000:K$K$"-":1000GI$"-"(K$,T,1)" "İ4000II$"-"(K$,T,1)" "İ700:IT:300JI$"-"TT1:1000KT(K$)100;:868T1T1)T(K$)T(K$)1IT<12:TDI$UI$"*"1040f14:1:868I$(21)TT1:1000$I$(8)TT1:1000.I$(13)90003I$" "(K$,T,1)"-"(K$,T,1)" "İ4000:300:K$K$"-"8I$" "(K$,T,1K$,(K$)1): X(K$)1G (K$,X,1)"-"K$(K$,X1)(K$,X1):Q XX1j (XT)D0TT1:D1w X1730 (K$,1)"-"K$(K$,2): D1TT1 14:1:"NO MORE LETTERS."::1000  WAIT FOR INPUT1:8:J$;:868:1:12:K$$(13)ĺ"";:510% A$(13)ĺ:J A$"*"A$"-"A$" "ĺ"";:510S A$;` !I$I$A$i &510r +<-- 0I$""ı 5(I$)1I$"" :(I$)1I$(I$,(I$)1) ?A$;:868: GET RID OF THE RIGHTMOST - D0 (K$,1)"-"K$($)1)"*"5 B1B(J$)J$(J$,B1)"*"(J$,B1); R , UPDATE SOLVING $i 6I1K$I$(K$,2) @I(K$)K$(K$,(K$)1)I$ JI1I(K$)K$(K$,I1)I$(K$,I1) T INPUT I$"" A$ A$(8)İ555:510 (I$)38A" RETURN: EXIT PROGRAM" ) 1000< F0:B1(J$)W I$(J$,B,1)F0İ200_ IT B:F0Ģ14:1:"THERE IS NO '"I$"'.":868:I$"-":300:155 TT1 300:155 INSERT * F1 B1J$"*"(J$,2) B(J$)J$(J$,(JJU$J$ ! K$"":A1(J$)? (J$,A,1)" "K$K$"-"H A: 1:6:"JUMBLED STRING:":1:10:"UNJUMBLED STRING:" 1:16:"==========================":" CTRL-I: INSERT SPACE":" CTRL-D: DELETE CHARACTER" " ARROWS: MOVE CURSOR" J$(40)_2:10:12:"JUMBLER / UNJUMBLER"::7:"BY DANIEL TOBIAS JAN. 1982"<:7:"(J)UMBLE OR (U)NJUMBLE? ";I$F(I$,1)"J"10000d STARTiT1n:s"ENTER JUMBLE YOU WANT TO SOLVE:":500:J$I$xJ$""115 }     AL,MITE,LILLIPUTION,EXIGOUS,SCINTILLA,X68 TO SCOLDB VITUPERATE,BERATE,UPBRAID,REVILE,REBUKE,FLAY,EXCORCIATE,CHASTISE,CASTIGATE,REPROVE,REPROACH,XL BEGINNERV TYRO,TENDERFOOT,NOVICE,NEOPHYTE,ACOLYTE,X` STUBBORNMj REFRACTORY,RECALCNING"< CURTAIL,ABRIDGEMENT,WANING,ABATEMENT,ATTRITION,XK PEACEFULz SERENE,PACIFIC,HALCYON,PLACID,TRANQUIL,X VERY LARGE IN SIZE LEVIATHAN,PRODIGIOUS,MAMMOTH,GARGANTUAN,TITANIC,COLLOSSAL,X$ VERY SMALL IN SIZE'. INFINITESIME MOMENT"N SPONTANEOUS,IMPROMPTU,EXTEMPERANEOUS,FORTUITOUS,ADVENTITIOUS,X[ STINGY NIGGARDLY,PARSIMONIOUS,PENURIOUS,FRUGAL,THRIFTY,X "TEMPORARY, NOT LASTING" EPHERMAL,TRANSIENT,FLEETING,EVANESCENT,X"REDUCTION IN SIZE, LESSE INIMICAL,NOXIOUS,LETHAL,MIASMIC,DELETERIOUS,REPUGNANT,FATAL,EGREGIOUS,NEFARIOUS,INVIDIOUS,BALEFUL,BANEFUL,HEINOUS,MALIGNANT,VIRULENT,ODIOUS,X"FEARFUL; COWARDLY" TIMOROUS,CRAUEN,PUSILLANIMOUS,DASTARDLY,FECKLESS,X "UNREHEARSED; SPUR OF THELLIGERENT,BELLACOSE,PUGNACIOUS,TRUCULENT,CONTENTIOUS,XA\ TOPf APEX,APOGEE,ZENITH,PEAK,CREST,ACME,PINNACLE,SUMMIT,PLATEAU,CULMINATION,Xp BOTTOM z PLAIN,CANYON,VALLEY,PERIGEE,BASE,GORGE,NADIR,ROOT,TROUGH,X "BAD; HARMFUL; DEADLY"SAD* DEJECTED,LUGUBRIOUS,DOLOROUS,MELANCHOLY,DOWNCAST,DISCONSOLATE,DESPONDENT,ELEGY,DIRGE,LAMENT,LACHRYMOSE,SATURNINE,MOROSE,X4 WORLDLY> SOPHISTICATED,URBANE,SUAVE,COSMOPOLITAN,POLISHED,REFINED,XH QUARRELSOME7R CHOLERIC,IRASCIBLE,BLIB,CIRCUMLOCUTORY,EXPATIATE,XB"SHORT, PRECICE; TO THE POINT" TERSE,PITHY,SUCCINCT,CONCISE,LACONIC,EPIGRAMMATIC,TACITURN,SENTENTIOUS,APHORISTIC,CURT,X  HAPPYSANGUINE,BLITHE,EXULTANT,JOCUND,FELICITY,JUBILANT,BEATIFIC,CONVIVIAL,X  ----"34,213906 "SLOW, LAZY, LIFELESS" SLUGGISH,LETHARGIC,LACKADAISACAL,LANGUID,COMATOSE,TORPID,PHLEGMATIC,LISTLESS,X "REPETITIVE; OVERLY WORDY; TALKATIVE" PROLIX,TAUTOLOGIC,VERBOSE,BOLUBLE,LOQUACIOUS,REDUNDANT,GARRULOUS,G$(N,J)CW$(N,I):CW$(N,I)G$%HI:J+R7\:936GfCA$(N)::Mp[zH1C(N)iCW$(N,H)pH:"PRESS ANY KEY TO CONTINUE";A$936X1N1XX;".";6);CA$(X)X"-----------------------------------C(N)1850$ CC$(1)CW$(N,1):NC13 H11C(N)@ H21NC[ CW$(N,H1)CC$(H2)780c H2 NCNC1:CC$(NC)CW$(N,H1) H1 C(N)NC H1C(N):CW$(N,H)CC$(H):H *J1C(N)1:IJ1C(N) 4CW$(N,J)CW$(N,I)840>G$CW$(N,J):CWCT".";6);CA$(CT) N936. XC(CT)C(CT)1I bCW$(CT,C(CT))W$(CT,W)R l360p v"LIST WHICH CATEGORY ";N N1NN1ĺ(7);:680 C(N)0710 ::"NO WORDS IN THIS CATEGORY"  :"PRESS ANY KEY TO CONTINUE"; A$ 390 A$"L"630 A(A$)# 9361 ACT500Q "SORRY, THAT IS INCORRECT.s "THE CORRECT CHOICE IS: ";CT| 510 "THAT IS CORRECT." CT:1  CT".";6);CA$(CT) 24:"PRESS ANY KEY TO CONTINUE"; & 0A$ :CT:1 D "X1N1 ,X' 6X;".";6);CA$(X). @X6 J21e T"---------------------------------------"p ^34,21 hCT((8)N1)1 rW((8)17)1 |W$(CT,W)""W$(CT,W)"X"370  22 W$(CT,W): "WHAT CATEGORY IS THIS FROM ";A$ NS (Y/N) ===>";AN$) (AN$,1)"Y"40001 16\ "HOW MANY POSSIBLE CATEGORIES DO YOU"t :"WANT (2-20)";N1 N12N120N1(N1)ĺ(7):30 X1N1 CA$(X) N0 NN1 W$(X,N) W$(X,N)"X"270 230 X 936 3# CA$(27),W$(27,20),CW$(27,30)6C(27),CC$(30)>:X(A$"SAT / PSAT":3000^2<A$"VERBAL PREPARATION":3000F:PA$"SYNONYMS TEST":3000ZdA$"PROGRAMMED BY LARRY SELTZER"n3000xI116014 "INSTRUCTIO          ;5-,<35577,,55-$3.56%%??177---*56??55>?', $,-%%??V177=-$??6-6??$--$??6m16,:>55--=?/8/?'$$-55??2??$$,-5)>>>'$$-.??$,$--E8?7.6&*5>?'$$---$4.6fI&$$/=66>- $66>?',%66fQ!''?R1??$$4<<66fI&$$7.6%$$3=$766 $??66.-%$;xz|~(246?HQSUboy"-7CO\ku%%, >>fI>,$-26-$?26?4-6$-)-7%%%377%%??66%.-%$$7 6>-%%??N2?6---$??2--$-$6--6&?$-TO CONTINUE" A$& A$" "5020, 2 A:"RESET."?&::"IF YOU REALLY WANT TO DO WELL ON THE"m0:"SATS, YOU SHOULD CONTINUE PRACTICING"::"THIS TEST UNTIL YOU ARE ABLE TO PLACE"D:"EVERY WORD IN THE CORRECT CATEGORY."N5000X30 22:"PRESS THE SPACE BAR E ALREADY PUT IN A CATEGORY,"J:"TYPE 'L' INSTEAD OF A NUMBER. THEN"w:"TYPE IN THE NUMBER OF THE CATEGORY."5000"ONE MORE THING....":"ONCE YOU'VE STARTED THE TEST, THE ONLY":"WAY TO STOP IT IS TO PRESS CTRL-C OR"E TOP OF THE"=:"SCREEN. A WORD WILL BE PRINTED ON THE"n:"BOTTOM OF THE SCREEN, AND YOU MUST TYPE":"IN THE NUMBER OF THE CATEGORY TO WHICH":"THIS WORD BELONGS."::"IF YOU WANT A LIST OF SOME OF THE WORDS":"THAT YOU'V"NOT ONLY IS THIS EASIER TO REMEMBER,"OT:"BUT IT GIVES YOU ALMOST ALL THE"^:"INFORMATION THE SATS WILL EVER ASK YOU"h:"TO SUPPLY ABOUT A WORD."r5000|"IN THIS TEST, YOU WILL SEE FROM 2 TO 20" :"CATEGORIES PRINTED AT THER ONE DEFINITION."5000#V::"FOR EXAMPLE, YOU COULD GROUP THE WORDS:"":"ZENITH, PEAK, CREST, ACME, APOGEE,",:"PINNACLE, SUMMIT, PLATEAU AND"6:"CULMINATION TOGETHER AND REMEMBER THAT"@:"THEY ALL MEAN 'TOP'"&J::DS YOU NEED"8:"TO KNOW FOR YOUR SAT TEST IS QUITE"e:"LARGE. RATHER THAN LEARN THE EXACT":"DEFINITION OF EACH WORD, WHICH WOULD":"TAKE A GREAT DEAL OF TIME, YOU COULD":"LEARN TO GROUP WORDS TOGETHER AND":"JUST REMEMBF RESTRAINT"[ WANTON,HEDONISTIC,PROFLIGATE,DISSOLUTE,LASCIVIOUS,LICENTIOUS,LIBERTINE,Xm UNEMOTIONAL STAID,STOLID,SEDATE,IMPASSIVE,PHLEGMATIC,GRAVE,SOMBER,X 20((A$)2));A$ I15 "THE NUMBER OF VOCABULARY WORRIC,PAEAN,EULOGY,X# "BAD-DOER"S TRANSGRESSOR,MALEFACTOR,FELON,MISCREANT,Xc IRRITABLE PETULANT,WASPISH,CANTAKEROUS,QUERULOUS,BILIOUS,FRACTIUOS,X IMPOVERISHED IMPECUNIOUS,INDIGENT,DESTITUTE,PENURY,X  "MORALLY LAX; NO SELITRANT,TENACIOUS,OBDURATE,ADAMANT,RESOLUTE,INTRACTABLE,PERTINACIOUS,DUCTILE,X]t TO SOOTHE~ PLACATE,PACIFY,MOLLIFY,ALLAY,ASSUAYE,PALLIATE,APPEASE,PROPITIATE,X "HONOR; AWARD" ACCOLADE,LAURAL,PLAUDITS,RECONGNITION,ENCOMIUM,LAUDITORY,PANEGY΍ōԍӍōҍōӍ͍Ǎԍ׍ٍ̍Ѝٍٍ΍ٍԍˍҍٍȍ̍ҍčȍٍˍčԍčٍ̍ԍ΍Ӎ΍ԍҍҍō؍ҍ΍ԍōӍЍҍO IT ALL AGAIN WITH THE NEW 5-LETTER WORD/O$,4): GRAB THE FIRST LETTERG330: SEND WHAT'S LEFT TO THE 4-LOOPiN124M120A2424M120A|A$(N)W$A$(N)NFIVE$(FIVE$,1)(FIVE$,4): MAKE A NEW 5-LETTER WORD BY PUTTING THE LAST LETTER FIRST (ABCDE BECOMES EABCD))M: D|KyFOUR$(FOUR$,1)(FOUR$,3): MAKE A NEW WORD BY TAKING THE LAST LETTER AND MAKING IT FIRST (ABCD BECOMES DABC)J: DO IT ALL AGAIN WITH THE NEW 4-LETTER WORD**5-LETTER LOOP**M04W$(FIVE$,1):FOUR$(FIVE0: SEND WHAT'S LEFT TO THE 3-LETTER LOOPhK16J24M120A66J24M120A: A COUNTS THE NUMBER OF PASSES THROUGH THE 6-LOOP, M COUNTS THE 5-LOOP AND J COUNTS THE 4-LOOP - EACH PERMUTATION GETS A UNIQUE PLACE IN THE ARRAY A$()rA$(K)X$A$(K)(E$,2,1):&"E$(E$,3,1)(E$,2):,&H'**STOP-PRINT ROUTINE**N(x,::"HIT RETURN TO SEE MORE...";R$:6R$""ı@310DE**4-LETTER LOOP**FJJ03TX$(FOUR$,1):THREE$(FOUR$,3): GRAB THE FIRST LETTER)^23 CBA), THE RESULT IS STORED, THE COUNTER INCREMENTED, AND THE PROCEDURE REPEATED. 3 PASSES THROUGH THIS LOOP WILL PRODUCE ALL 6 PERMUTATIONS OF  3 LETTERS. THESE PERMUTATIONS ARE THEN RETURNED TO THE 4-LETTER LOOP. E$(E$,1,1)(E$,3,1)M. LINE 280 "SWAPS" THE 3-LETTER WORD (ABC BECOMES ACB); THE RESULT GOES IN ARRAY A$() WHICH STORES ALL RESULTS. THE COUNTER IS INCREMENTED AND THE WORD IS SWAPPED AGAIN,  RESTORING THE ORIGINAL ORDER. LINE 290 THEN "ROTATES" THE WORD (ABC BECOMES:Y1Q) A$(Y),:Y60(Y60)İ3000 Y6 T "ANOTHER ONE? (Y/N) ";V$c V$"Y"Āi o **3-LETTER LOOP** E$THREE$ I13 280:A$(C)E$:CC1:280:290:A$(C)E$:CC1 I: THIS IS THE HEART OF THE PROGRA-LETTER COMBINATIONS SIX$(SIX$,1)(SIX$,5): TAKE THE LAST LETTER OF THE WORD AND STICK IT ON THE FRONT INSTEAD - THIS MAKES A NEW 6-LETTER COMBINATION A: DO IT ALL AGAIN WITH THE NEW 6-LETTER COMBINATION **OUTPUT ROUTINE** OUGH THE 6-LETTER LOOP; EACH TIME THROUGH THERE ARE 120 NEW COMBINATIONS TO BE ADDED TO THE ARRAY A$()y xA$(P)Y$A$(P) P: THIS LOOP TAKES 120 FIVE-LETTER COMBINATIONS FROM THE 5-LETTER LOOP AND ADDS THE SIXTH LETTER PULLED OFF IN LINE 90 TO MAKE 6<L5FIVE$O$:420:160 @7 A **6-LETTER LOOP**= BI FSIX$O$T PA05 ZY$(SIX$,1):FIVE$(SIX$,5): PULL THE FIRST LETTER OFF d420: SEND WHAT'S LEFT TO THE 5-LETTER LOOPf nP1120A120120A: A COUNTS THE NUMBER OF TIMES THR0 . ::12::"WORD UNSCRAMBLER":A$(720):O6:"GIMME THE LETTERS! ";O$C1:L(O$):Q1:S1L:QQS:S: C IS A COUNTER; Q CALCULATES L! (L FACTORIAL), THE TOTAL NUMBER OF PERMUTATIONS(:12:16:"THINKING":2L4FOUR$O$:330:160      WNG010'20(TEMP$(WRDNO))<G$;TEMP$(WRDNO)GDSSHWR 10010X_8s(" OK, ";NAME$2" WHAT WAS THE WORD I SHOWED YOU? "<10100FP5Z"?";de7:" ";:6noAN$""p" ";xZ170SE22D$;"OPEN ";F$(D$;"READ ";F$0NR<N1NRIWRD$(N)OcD$;"CLOSE ";F$m630v750 ********************** *** WORD SELECTION ***N1NRTEMP$(N)WRD$(N)NNRWRDNO((1)N)1;F$ D$;"DELETE ";F$+ D$;"OPEN ";F$? D$;"WRITE ";F$G NRS N1NR` WRD$(N)f z D$;"CLOSE ";F$& 750 ********************** *** GET LIST ***10200:12:"NAME OF YOUR SPELLING LIST ? ";F$F$""4068  WN2 5( "WORD NUMBER ";1$ WN;D. " ";WRD$(WN);L8 23RB sL " CHANGE ANOTHER ? Y/N) ";}V 2130 ********************** :12:"NAME OF YOUR SPELLING LIST ?";F$ F$""3005 *** SAVE LIST *** D$;"OPEN ") p868z34,21*AN$(27)ī630@AN$"Y"ĉ:3005H23NT|" CHANGE WHICH WORD NUMBER ? ";WNWNNRWN02260" NO SUCH WORD NUMBER!"2210" WORD NUMBER ";WN;" ? ";WRD$(WN)WN28`NR0NRN) **********************C *** CHECK LIST ***In" FOLLOWING IS THE WORD LIST:"tN1NR 5"WORD NUMBER "; N;*" ";WRD$(N)4>H" WANT TO CHANGE ANY ? (Y/N) ";RAN$\f(37 **********************9 *** INPUT ROUTINE ***D10100J" PRESS 'RETURN' AFTER EACH WORD AND AGAIN AFTER THE LAST WORD."N1100$5."WORD NUMBER ";8N;B" ? ";WRD$(N)LWRD$(N)""NRN1:N100V " OK, ";NAME$;". WE'LL START NOW.",>2HJR" FIRST WORD:"^\WRD$(1)""900gfDS3rp10010{z91040105010D$;"OPEN ";F$D$;"READ ";F$NRN1NRWRD$(N)D$;"CLOSE ";F$800SAVED SPELLING LIST? (Y/N) OR PRESS 'ESC' TO QUIT."=XAN$CbWl(AN$)27680]ve10m16}"GOOD-BYE"AN$"N"ī400010100100010 " WHAT IS YOUR NAME? ";NAME$NAME$""760 *5&4 'N' IF YOU WANT NEITHER ? ";* AN$> AN$"I"İ11010R AN$"P"İ11210X v  *********************** 400  *** MENU ***  8 10 & 0" MY SPELLING TEST " : D224N" DO YOU WANT TO USE A PREVIOUSLY  ******* THIS SUBROUTINE WILL GIVE YOU THE CHANCE TO GET INSTRUCTIONS OR CHANGE PARAMETERS. ******* r  8:10: " MY SPELLING TEST ": 10! "INPUT AN 'I' FOR INSTRUCTIONS 'P' TO CHANGE PERAMETERS LY SAVED SPELLING LIST (N)EW SPELLING LIST (Q) TO QUIT "; A216,0 EAN$ J:AN$"Q"630 OAN$"S"930 TAN$"P"ī4000 ^AN$"N"ī315 h1000l 3 SHW2 F$""# NAME$""2 WRD$(100)B TEMP$(100) *** SKIP TO NEW WORD LIST QUERY IF PROGRAM HAS JUST BEEN SAVED WITH NEW VALUES *** CH111670 500 ;:10 @" INPUT (S)AME SPELLING LIST (P)REVIOUS ****************** d& n2 xD$(4)M G$(7): *** BELL ***c D$;"NOMON O,I,C" *********************** *** DEFAULT VALUES OF RESPONSE TIME, NUMBER OF WRONG GUESSES ALLOWED AND DISPLAY TIME FOR EACH WORD *** SEC5 NW\$ MODIFIED BY YA YATES8 ****************** S *** ***p *** MY *** ( *** *** - *** SPELLING ***< *** *** F *** TEST *** P *** ***  Z              + &+24& +&*+12&4+6&>+"MY SPELLING TEST"<&H+B&M+a&R+" IS A GAME WHICH HELPS"&\+" CHILDREN TO LEARN VOCABULARY WORDS."&f+E'p+" AFTER AN ADULT HAS STORED A LIST OF WORDS, THEY ARE SHOWN ONE BY ONE TO THE CHILD WHO IS AS***************,%' *** ERROR HANDLING ***2%'=%'216,0E%'10M%(10S% (n%("NO WORD LIST STORED"t%(|%((20%2(" WANT TO ENTER A SPELLING LIST? ";%<(AN$%d(AN$"N"630%n(1010%* *********************%+ *** INPUTS ***& $ !XX1$!X,Y $ !Y4,Y2X*$*!XX30$4!L$' *********************a$' *** TIMER ***q$$'T1740DSx$.'T~$8'$t' *********************$~' *** EXCESS INPUT ERROR TRAP ***$'X(16384):16368,0$'X128ı$'10120%' ******#N X1,X3Y2!#X X1,X3Y4.#b Y,Y4X9#l X3,YF#v X2,Y1S# X3,Y3Y# j# *** T ***y# Y,Y3X2# X,X4Y4# XX1# # *** A ***# X1,X2Y2# X1,X2Y4# Y,Y4X# Y,Y4X3# #! *** ! ***"" *** U ***""Y,Y4X1"Y,Y4X3@"X1,X2YF"W" *** P ***h"X1,X3Y4y"X1,X3Y2"Y,Y4X"X3,Y3"" *** E ***" X1,X3Y" X1,X2Y2"& X1,X3Y4"0 Y,Y4X": "D *** R ***N$!AN$"N"7890'!AN$"Y"78103!RIGHT0>!1233G!400P!315V!`!DS10k!10000v!1233!630!@ **********************!J *** LETTERS ***!T *** S ***!^VY4Y2!hX,X3V!r!|X,Y3!X3,Y18140 XX5 8200$ XX5. 82607 X11B YY10L 8020V XX5` 8340j XX5t 8390~ (XX5 28260 <XX5 F8450 PXX5 Z8450 dXX5 nDS5 x10000   " WANT TO PLAY AGAIN? ";!A*** FINALE ***lv23">"WHAT DO YOU CALL A ";DR"GREAT";Xp" APPLE SPELLER ^"vL **********************V *** SUPERSTAR ***`j((1)14)1tX4~Y98020XX58090XX5 C1((1)14)1(C2((1)14)18C2C16560FL0382NC1Z0,39LbC2n0,39LuL10010X1233:*** RESET TEXT MODE ***8" OK, ";NAME$;"! NEXT WORD:""X **********************b EX$"TASTY APPLE CIDER !!!"(6180GEX$"O K! APPLE CORE !!! "N$2T.h8EX$;", ";NAME$pB10L"THAT'S ";V`RIGHT;jt" RIGHT!!"~d **********************n *** GRAPHICS ***xDS.25X15 *** SCORE KEEPING ****RIGHTRIGHT1=RIGHTNR7000CK23]X((1)5)1}X6090,6110,6130,6150,6170EX$"GREAT APPLES !!! "6180EX$"SUPER APPLE STEMS !!!"6180EX$"FANTASTIC GREEN APPLES !!! "6180AT'S NOT QUITE RIGHT !!"5" TRY AGAIN.":5850rG$;"LITTLE CRAB APPLES !! WAS THAT A GUESS, ";NAME$;"?"" TRY AGAIN.":5850118685200"?"; 5250 p **********************z *** REWARD ***"SQUSHIED APPLES !! ";NAME$:" PLEASE TRY AGAIN ?":5850m"ROTTEN APPLES ! ";NAME$;" THAT'S NOT IT !"" TRY AGAIN.":5850"SOUR APPLE CORES !!! ";NAME$:" YOU MISSED IT !"" TRY AGAIN.":5850"WORMY APPLES !!! ";NAME$;" TH11" THE WORD WAS ";!3TEMP$(WRDNO)9\" LET'S TRY ANOTHER, ";NAME$eDS5p10010z506010&0868:10DNXPHRASE((1)5)1b13l958vPHRASE5760,5770,5790,5810,5830;5610 X$8"X$;),"";ANS$:6ANS$X$ANS$W@ANS$TEMP$(WRDNO)5510aJ6010{TTEMP$(WRDNO)TEMP$(N)^NN1hN1ır5060| ********************** *** TRY AGAIN ***WNGWNG1WNGNW5700C!X(16384):X128ĂZ:5280;16368,0:X1415440RANS$ANS$(X128)d11:7:ANS$;r:" ";:yZ10"OOPS! SORRY, TIME IS UP. "" THE WORD WAS ";TEMP$(WRDNO)10010čˍٍōҍҍҍҍ΍΍΍ٍҍōԍٍҍӍٍōōō΍ȍٍٍٍō΍΍ǍǍNT TO STORE A NEW WORD LIST? (Y/N) ";.,-AN$4,-G,-AN$"N"1000Q,-51,0[,-4000CF$ =";(34);F$;(34)9+B-"196 NAME$ =";(34);NAME$;(34)X+F-"UNLOCK MY SPELLING TEST"u+P-"SAVE MY SPELLING TEST"+Z-"LOCK MY SPELLING TEST"+d-"CH = 1"+n-"GOTO 10"+x-D$;"CLOSE SCRATCH"+-D$;"EXEC SCRATCH"+-+-315+-10%,-" WA*, *********************V*, *** CHANGE NW, REPLY AND DISPLAY TIMES THEN SAVE ***m*-D$;"OPEN SCRATCH"* -D$;"DELETE SCRATCH"*-D$;"OPEN SCRATCH"*-D$;"WRITE SCRATCH"*(-"170 SEC = ";SEC*2-"180 NW = ";NW*<-"190 SHW = ";SHW+A-"195 W VALUES? (D/N) ";)+AN$/)+AN$"N"116705)+=)+10x)+" NUMBER OF TRIES ALLOWED FOR EACH WORD? ";NW~)+)+)+" HOW MANY SECONDS FOR A CORRECT RESPONSE? ";SEC),),)," HOW MANY SECONDS FOR DISPLAY? ";SHW WORD WILL BE DISPLAYED BEFORE ERASURE."2(+(+" DEFAULT VALUES ARE ";NW;" CHANCES, ";SEC;" SECONDS FOR A CORRECT ANSWER AND ";SHW;" SECONDS FOR WORD DISPLAY."(+)+" DO YOU WANT TO USE THE DEFAULT VALUES OR ENTER NEKED TO SPELL EACH AFTER IT HAS BEEN ERASED FROM THE SCREEN."K'z+,(+" YOU WILL BE ASKED HOW MANY CHANCES THE CHILD WILL BE GIVEN TO SPELL EACH WORD, HOW MANY SECONDS WILL BE ALLOWED FOR THE CORRECT RESPONSE AND HOW MANY SECONDS EACH---------------------- GET.PLAYER'S.NAMES ------------------------Y:(4)" TELL ME THE NAMES OF ALL PLAYERS"(8):(2)"FIRST NAME AND INITIAL OF LAST NAME"" WILL DO"20:3! :"*";::" RETURN WITRUCTED TO"6|"SELECT A NEW WORD, A NEW DICTIONARY"V"HOLDER IS SELECTED ALSO.":"YOU MAY SET YOUR OWN END OF GAME POLICY""BASED ON TIME OR NUMBER OF WORDS."::(12)"GOOD LUCK!"8000N --N."4,:"REMEMBER, THE PURPOSE OF THE GAME IS TO"S6"STIMULATE CONVERSATION."]@8000hJ:(4)T"YOU MIGHT WANT TO DIVIDE UP INTO TEAMS"^"AND WRITE YOUR DEFINITIONS DOWN PRIOR"h"TO REVEALING THEM." r:"EACH TIME THE APPLE IS INSSE"/"BUT THEY SHOULD CONVEY THAT YOU KNOW"K"WHAT THE WORD MEANS."{:"YOU CAN ADOPT YOUR OWN HOUSE RULES BUT""I GIVE AS MUCH CREDIT TO A PLAYER WHO""AGREES WITH A CORRECT DEFINITION AS TO"""THE PLAYER WHO STATED THE DEFINITIOHOLDER SPELLS AND"("PRONOUNCES IT."28000=:(4)k"THE PLAYERS THEN ATTEMPT TO DEFINE THE""WORD. THE DICTIONARY HOLDER IS THE""JUDGE OF WETHER A DEFINITION IS CORRECT""OR NOT.":"DEFINITIONS DO NOT HAVE TO BE PRECI+Z"PAGE 116 AND STARTING AT THE LOWER "Xd"LEFT HAND CORNER OF THE PAGE; MEASURE"ln"UP 3 INCHES."x:"THE WORD NEAREST TO THE END OF THE""RULER WOULD BE THE SELECTED WORD.":"ONCE THE WORD HAS BEEN SELECTED THE""DICTIONARY 1. A PAGE NUMBER IS SPECIFIED"F" 2. A PAGE CORNER IS SPECIFIED"h" 3. A LENGTH IS SPECIFIED"r(8000}2:(4)<"FOR EXAMPLE THE APPLE MIGHT SPECIFY:":F"PAGE 116 - LOWER LEFT - 3 INCHES":P"THE DICTIONARY HOLDER WOULD TURN TO"AMES OF ALL THE PLAYERS."B:"NEXT THE APPLE SELECTS A PLAYER"f"TO BE THE DICTIONARY HOLDER.""(THIS DUTY WILL BE ROTATED)":"THE APPLE PROCEEDS TO DIRECT THE""DICTIONARY HOLDER TO A WORD IN THE""FOLLOWING MANNER:": " CONVERSATION.">t:"THE PRIMARY PART THE APPLE PLAYS IS TO"e~"RANDOMLY SELECT A WORD FROM THE""DICTIONARY. THE APPLE ALSO KEEPS""SCORE."8000:(4)"HERE'S HOW PLAY GOES ----":"FIRST THE APPLE ASKS FOR THE""N)/ $"DO YOU NEED INSTRUCTIONS? (Y OR N) ";R$@ .R$"N"1990K 8:(6)u B"DICTIONARY.GAME REQUIRES AN APPLE," L"A DICTIONARY, A RULER AND AT LEAST TWO" V"PLAYERS. `:"THE OBJECT OF THE GAME IS TO SHARPEN"j"VOCABULARY AND STIMULATE IVE.MODULE ------------------------8 1000B 2000L 3000U &540[   ------------------------ GAME.INSTRUCTIONS ------------------------ : (8):(14) "DICTIONARY GAME" (12S SCORES7 WD = WORD NUMBER , ------------------------ HOUSEKEEPING.MODULE ------------------------ 6PL$(20) @SC(20).  ------------------------ EXECUT PL = PLAYER NUMBERe PL$(20) = ARRAY FOR PLAYER NAMES R$ = GENERAL RESPONSE VARIABLE SC(20) = ARRAY FOR PLAYER' I = GENERAL INDEXR LG = LENGTH LP = LAST PAGE NP = NUMBER OF PLAYERS PG = PAGE NUMBER 1! *** DICTIONARY.GAME ***d ----------------------- DOCUMENTATION.MODULE -----------------------n CR = CORNER OF PAGEx DH = DICTIONARY HOLDER(           čԍ΍ҍōōٍ͍ҍӍō̍ōҍӍō΍ōǍٍ͍ōčōō΍ύÍ̍ύ΍ōōӍÍٍٍٍ͍̍̍ˍǍӍٍٍӍӍԍǍӍٍԍJ(24):(12))T"** HIT RETURN ** ";R$/^R1 3IR$-R$"X"SC(I)SC(I)1KR$;:3:"SCORE = ";SC(I)RIZ24d868"HIT RETURN FOR A NEW WORD ";R$@ ------------------------ ASK.FOR.RETURN ------------------------ ----------- GET.SCORES ------------------------ez:"ENTER AN X FOR CREDIT,""HIT SPACE BAR FOR NO CREDIT"WDWD1:24:12:"WORD NUMBER ";WD;:4I1PL13:"SCORE = ";SC(I);:15:PL$(I)II1PL ";PG(14):(12)-CR1ĺ"UPPER LEFT"FCR2ĺ"UPPER RIGHT"^CR3ĺ"LOWER LEFT"wCR4ĺ"LOWER RIGHT"16:(12)LG;" INCHES" 22"HIT RETURN WHEN READY TO POST SCORES ";R$Cp ------------- IS"DHDH1:DHNPDH1&:153PL$(DH)9 ------------------------ SELECT.A.WORD ------------------------PG((1)(LP1))CR((1)4)1LG((1)80)10(12):(12)"PAGE---------- PLAY.A.TURN ------------------------L 4000V 5000` 6000f  ------------------------ SELECT.DICTIONARY.HOLDER ------------------------:48"THE DICTIONARY HOLDERTH NO INPUT WHEN THRU ";::"*":-PLPL1= (14):868a*"PLAYER NO. ";PL;:" ";PL$(PL)w4PL$(PL)""20709NPPL1>:12H"IN YOUR DICTIONARY,"R:"ON WHAT PAGE IS THE WORD ZYME? ";LPB -------------- 429:((4Z3)(ZB1)):""WL$(RW,1)"":W< ***PRINTS SYLLABLES***y@ ***AS PART OF DIRECTIONS***F1:1K"AND THE SYLLABLES"M"FROM THESE WORDS ARE "O:" ":PGG1162 Z3:4(GG1):""S3"BEFORE THE"831:16*="WORDS"6B31:17GG"DISAPPEAR"XLPP16000:^QhV4500n`t ***PRINTS GAME WORDS***y27:1:"THE WORDS FOR"~27:2:"THIS GAME ARE"27:3::" ":29:4Z3:""WL$(RW,1)""R IS CHOOSING".W "THE WORDS FOR THIS ROUND"F\ "OF 'SILLY BULL'."[f :"PLEASE WAIT"az k ZE16x CH116 SL$(CH,3)"0"ZEZE1  ZE1450 31:13"YOU HAVE"$31:14)"10 SECONDS".31:15MW$3040  4200" TWQ5 ((SL$(Q,1)))H ((SL$(Q,2)))U " "a R116x SL$(R,3)"0"3090~  TNR ((SL$(R,1)))& ((SL$(R,2)))0 ""MW$"": SL$(TW,3)"0"D SL$(TN,3)MW$N H 4400R "THE COMPUTE STST11Z AYn /T WL$(RW,4)"0"24605Y B AA116R SL$(AA,3)0X ^ y ***MOVES MW$ INTO*** ***EMPTY SPACE ***ON SCREEN GRID AND* ***STORES NEW SYLLABLE ***LOCATION IN SL$*** Q116  SL$(Q,3)EA$"4"2538 3800 ZB$ 1 AZ2L2; 3500T SY$(AZ1)WL$(RW,AZ)\ AZ ***PUT EACH SYLLABLE IN SL$*** AY1(L21) RP(16(1))1# ***CHECKS IF SPACE IS OCCUPIED***( SL$(RP,3)"0"2590< SL$(RP,3)SY$(AY) PRC1:S30:ST0:L20&~ SR(3(1))15 SR22430B Z31SRL 5450m WL$(RW,4)"0"RCRC1:2510 S3S31:L24:2540 EA$"4"2525 3700 Z3 ZB1(15(SR3))2 5450 WL$(RW,4)"0"RCRC1:2533 L23:2540  *** CW0I1150%J1145WL$(I1,J1)OWL$(I1,1)"XXX"2260UaCWCW1gm` ***PICKS SYLLABLES***e ***AT RANDOM AND PUTS*j ***THEM IN GAME GRID**o ***AND SL$(16,3)t ***AT START OF NEW ROUNDy *POSITION ARRAY FOR SL$***&I1161J13?SL$(I,J)EKQ q 2,3,0,8,3,0,14,3,0,20,3,0 2,7,0,8,7,0,14,7,0,20,7,0 2,11,0,8,11,0,14,11,0,20,11,0 2,15,0,8,15,0,14,15,0,20,15,0 ***SETS UP WORD & SYLLABLE ARRAY"AND PRESS 'RETURN'.)";MW$' 30001 4400N "HAVE YOU MADE A WORD?"g "(PRESS 'Y' OR 'N'" "AND THEN 'RETURN'.)";PP$ PP$"Y"İ4400:780 700 "ENTER THE WORD, " "THEN PRESS 'RETURN'." HL$ 46000 700 ** SL$(P,3)"0"ĺ" ":4902 ""SL$(P,3)""9 P? I 4400l  ***GAME MAINLINE ROUTINES*** 15000:6200:6300 4400 "WHICH SYLLABLE DO YOU " "WANT TO MOVE INTO" "THE EMPTY SPACE??" :"(TYPE IN THE SYLLABLE " VERY HARD)" EA$' EA$"1"İ50008 EA$"2"350I "EA$"3"350x ,EA$"4"ė:3400:2400:40:450:6200:700 6EA$"4"200 ^:3400:2400 cEA$"3"İ3600 h40:450 6200 500 P116 ((SL$(P,1))) ((SL$(P,2)))IRECTIONS"0 6:8:"2. TO PLAY WITH THE GAME"Y 6:9:" WORDS SHOWING (EASIEST)" 6:11:"3. TO PLAY AFTER SEEING THE WORDS" 6:12:" FOR TEN SECONDS. (HARD)" 6:15:"4. TO PLAY WITHOUT SEEING" 6:16:" THE WORDS AT ALL. (:"ENTER THE FIRST PLAYER'S NAME. "C "THEN PRESS 'RETURN'.";P1$m :"ENTER THE SECOND PLAYER'S NAME. " "THEN PRESS 'RETURN'.";P2$ :"PRESS THE NUMBER OF CHOICE YOU WANT. " ::" ": 6:6:"1. D  SW07 SL$(16,3),WL$(50,4),RS(150)@'110N(J1174Z*I125d-I:Jm0"-"w2I:J7G1256<H216AG:HF"!"PHZGcn2000:2200x:"'SILLY BULL' IS ABOUT TO BEGIN. "z:# }          FOR,GOT,TEN&&2( GASOLINE, GAS,O,LINEF&<( FLASHLIGHT, FLASH,LIGHT,0\&F( HASTY, HAS,TY,0v&P( DAYTIME, DAY,TIME,0&d( DOORSTEP,DOOR,STEP,0&n( ENGINEER, EN,GI,NEER&x( ELDER,EL,DER,0&( DONKEY,DON,KEY,0&( CARELESS,CARE,LESS,0'( BUTTER' ***OR '0' IF NO 3RD SYLLABLE***<%' MACHINE,MA,CHINE,0U%' MEASURE,MEA,SURE,0n%' OUTWARD,OUT,WARD,0%' NIBBLE,NIB,BLE,0%( REFUSE,RE,FUSE,0% ( PROMISE, PRO,MISE,0%( RUBBISH, RUB,BISH,0%( SETTLEMENT, SET,TLE,MENT &(( FORGOTTEN,23:21:P1$;" HAS WON":?$23:20::"CONGRATULATIONS!":c$23:21:"THE WINNER IS ";P2$:i$t'$~' ***DATA FOR WORD AND$' ***SYLLABLE LIST***$' ***CONFIGURATION: WORD,$' ***1ST SYLLABLE, 2ND***$' ***SYLLABLE, 3RD SYLLABLE***#%LE$#PL$P1$SQ(1)SQ(1)SC:6460@#(PL$P2$SQ(2)SQ(2)SCJ#<6700X#ALE0:SC0^#Fw#, ***PRINTS SCORE***#EPC26745#O37:16:SQ(1)#PSQ(1)206800#Y37:18:SQ(2)#ZSQ(2)206810#h#23:20::"THE GAME IS OVER!":$"L29:16:""(P1$,6)""4"~29:18:""(P2$,6)""W" ***SHOWS WHOSE TURN IT IS***f"PC26350r"PC1ğ"29:16:""(P1$,6)""""PC1ı"PC2ğ"29:18:""(P2$,6)""""" ***FIGURES SCORE***" LE(HL$)#SC !Q1SW!!HL$SW$(Q)6135'!1!6010T!1:18:"SORRY, THAT WORD HAS"u!1:19:"ALREADY BEEN USED."!1:20:"NEXT PLAYER'S TURN"!1:21:"TOUCH 'RETURN' TO CONTINUE"!PP$:700!8!;28:15!=:" SCORE "!?"BUR WORD" ""WL$(AZ,1)"?"5 "PLEASE ENTER YOUR"I "WORD AGAIN. "X HL$:6000b 6400 4400:"YOUR WORD IS CORRECT. " 6100 "(PRESS ANY KEY TO CONTINUE)" PP$   ***FILE USED WORDS*** SWSW1 SW$(SW)HL$!AZ150AZCW160351WL$(AZ,1)HL$6070S(HL$,3)(WL$(AZ,1),3)6050[AZy4400:"YOUR WORD IS NOT""CORRECT. IT IS THE":"NEXT PLAYER'S TURN. ""(PRESS 'RETURN'":"TO CONTINUE)":PP$:15000:705 4400:"IS YO CONTINUE)"xPP${/}2000:2200:2005fJ ***CHECKS THAT DIFFERENT WORDS ARE USED***zYRW(CW(1))1^X0RChRWRS(X)5465r|RS(RC)RWRCRC1p **CHECKS IF THE PLAYERS WORD IS CORRECT***u6120z"OTHER. "#F31:9:"THEY DON'T":K31:10:"HAVE TO"SP31:11:"BE IN THE"jU31:12:"CORRECT"Z31:13:"ORDER."_4400d"PLAYERS SCORE 1 POINT"i"FOR EACH LETTER IN A WORD"n"THEY PUT BACK TOGETHER" s:"(PRESS ANY KEY TO GRID UNTIL"&"THEY MAKE A WORD. "3NG110GRX(10(1))1YMW$SL$(RX,3)o3000:C1500:Cw#NG%4500(31:2:"A WORD IS"-31:3:"REMADE IF"231:4:"ITS"731:5:"SYLLABLES"<31:6:"TOUCH EACH" A31:7:"THE COMPUTER PRINTS"8"THESE SYLLABLES ON A GRID. "C1:22f"(PRESS ANY KEY TO CONTINUE)"oPP$|ZN1171:ZN:" "440040:4501:18"PLAYERS MOVE THE SYLLABLES"  "AROUND THE*5:3:"THE COMPUTER FINDS SOME WORDS"Y5:4:"AND BREAKS THEM INTO THEIR PARTS."5:6:"EACH PART IS CALLED A SYLLABLE.":27:7:" ":::"(PRESS ANY KEY TO CONTINUE)"PP$EA$"Y":2400:39001:19A916:1:17A9:D" "BNA9MX1:18Sbq ***ERASES RIGHT SIDE***~SX11727:SX" " ***PRINTS DIRECTIONS***:958"HERE IS HOW TO PLAY 'SILLY BULL':"BLE TO***%w ***BE MOVED IS NOT***C| ***CORRECTLY SPELLED***M4400e"THE SYLLABLE YOU""ENTERED IS NOT SPELLED""CORRECTLY. PLEASE ENTER""THE SYLLABLE AGAIN.""THEN PRESS 'RETURN'."MW$30007500L$(GG,3)""-]11:4(GG1):""SL$(GG1,3)""=_C1350:CEdGGKnQ~"DO YOU WANT TO SEE SILLY BULL'S WORDS""BEFORE THE COMPUTER BREAKS THEM UP?""(PRESS 'Y' OR 'N')";EA$h ***GIVES ANOTHER CHANCE*** r ***IF SYLLAčōčӍԍ؍ύٍٍ̍̍ō؍̍؍ȍōōٍՍ͍ӍӍ΍ōōԍō؍ٍٍō̍ԍōٍōٍ΍ōٍٍōōԍÍ͍ō͍ڍč  (:SFLY,BUT,TER,FLY,'( BROADCAST,BROAD,CAST,0F'( COMPUTER,COM,PU,TER`'( MAGAZINE,MAG,A,ZINE}'( CLASSROOM,CLASS,ROOM,0'( JUNKYARD,JUNK,YARD,0'( XXX,XXX,XXX': ***WHOSE TURN***':PCPC1':PC3PC1':PC1PL$P1$(:PC2PL$P2$ORDER FROM THE FILE? ";:NH2:NL1:545::<V6050,6100p:5:10::"SELECTING THE WORDS."::NRE%:580:5:10::"READING THE WORDS.":2100I1TY%:XA%(I):2500:I26006200::"WHAT WORD SHOULD I START WITH? ";EANING:":::32,5:6:ST$B$(I):605:32,03500: IC100]o ** TYPE A WORD LISTcpmz2000"HOW MANY WORDS DO YOU WANT TYPED? ";:NHRE%:NL1:545:TY%V+::"DO YOU WANT"::" 1. A RANDOM LIST"::" 2. IN 500A10::"MEANING:":::32,5:6:ST$B$(I):605:32,0J500QIZ"100`j2000t2100I1RE%:XI:2500:I2600I1RE%::"WORD ";I;" OF ";RE%:5::"WORD:":::" ";A$(I)500*10::"MNOW ";RE%;" WORDS IN THE FILE."::"HOW MANY WORDS WOULD YOU LIKE TO REVIEW? ";:NHRE%:NL1:546:RV%V}NRE%:5802100I1RV%:XA%(I):2500:I2600I1RV%::"WORD ";I;" OF ";RV%:5::"WORD:":::" ";A$(I) "WHEN YOU ARE FINISHED, ENTER '.' AS THE WORD."::L "WORD: ";A$(I)g A$(I)"."II1:1000 :"MEANING: ";B$(I) :S$"IS THIS CORRECT? ":501 A$"N"ĺ::3010 II1:3005 ** FLASH CARDS2000n"THERE ARE DATAD$;"OPEN VOCAB,L150"6D$;"READ VOCAB,R0"?RE%UD$;"CLOSE VOCAB"[u4D$;"OPEN VOCAB,L150"{> D$;"READ VOCAB,R"X A$(I),B$(I) ( D$;"CLOSE VOCAB"2  ** INPUT NEW WORDS I1 ::"WORD ";I::7T$)40ĺST$: b605 c1  ** STORE DATAK D$;"OPEN VOCAB,L150"c D$;"READ VOCAB,R0"l RE%w J1I D$;"WRITE VOCAB,R";RE%J A$(J):B$(J) $J .D$;"WRITE VOCAB,R0" 8RE%I BD$;"CLOSE VOCAB" L100 ** READ 1)N)1)! FXA%(I):B%(X)1581- GB%(X)1T H"THINKING":I::"OK, I'M READY."Z I{ \ ** OUTPUT ST$ WORD BY WORD ](0)(ST$)40ĺST$: ^II40(0)11:(ST$,II,1)" "ĺ(ST$,II1):ST$(ST$,II1):II1:608 _II1ĺ `II a(S" ! ** INPUT W/IN RANGE NH TO NL0 "NHNH9c #VT(37):HT(36):V$:V(V$):VNHVNL549 $VT2::" MUST BE BETWEEN ";NL;" AND ";NH;" "::X11600::VT2:868:VT1:HT1:547 % C ** NO DUPLICATE RANDOMS DI1N EA%(I)(((:"CHOICE >> ";" NH6:NL1:546F V3000,4000,5000,6000,8000,199L c  ** PRESS ANY KEY 23::" PRESS ANY KEY TO CONTINUE... ";::16384,128,1:16368,0:  ** ONLY Y/N S$;" (Y/N)? ";:A$:A$:A$"Y"A$"N"501 ECORDS, A$()=WORD,B$()=DEFINITIONS( d< n"SELECT ONE: "\ x:" 1. INPUT NEW WORDS"x y:" 2. FLASH CARDS" z:" 3. REVIEW ALL WORDS" {:" 4. TYPE A WORD LIST" |:" 5. DELETE WORDS FROM LIST" }:" 6. END" 2:20' *FROM SOFTDISK JUNE 1983 *M *PAT SINE *s *3824 FRANCES AVE * *WILMINGTON, DELWARE * D$(4)2000:A$(RE%100),B$(RE%100),A%(RE%100),B%(RE%100):2600"  ** RE%= NUMBER OF R            AL MESSAGE WAS " y10);# :+ M$3 :S " THE ENCODED MESSAGE IS "[ :f J1Lr E$(J);y ,J I14::I % AN ENCODER ** 800322 **3 JBTATE NM2$(50),E$(50),M3(50)o" TYPE IN YOUR MESSAGE ";M$w#:(L(M$)2I1L<M2$(I)(M$,I,1)AM3(I)(M2$(I))CM3(I)32M3(I)M3(I)1DE$(I)(M3(I))FI x" THE ORIGIN  ΠΠ͠ȠϠǩŠŠ͠ԠԠӠŠŠ͠ԠŠŠŠ͠ԠԠϠàŠŠŠŠ͠Ԡ٠ӠŠŠ͠Ԡ٠ŠŠŠ͠ԠŠРŠŠ͠ԠŠĠŠŠ͠ԠԢҠŠȤȽ̨ȤƠȼҠȾϲΠȠµϠ͠Ԡ٠ȠӠŠŠ͠ԠŠΠΠŠТԠŠĢԠΠΠ͠ȠϠǩԠԠӢԠŢԠԠϠâԍźԺԠՠԍԠ٠ȠӢԠŠ΢Ԡ٠ӢԠ٠ŢԠųų Ҡؽ϶Ԡ¤Ԡ؍± ԨԢ٠Ԣ̺ųųųų²¨ӠŠҢԠѤų̠͠΍źĤҤ̭čԺź¤ҠرϠР Ԡ¨ر±¨ررҠٽϱٺԠ¨ٺԠ¨ԠٍźŠų! ! ! !!!!ODED MESSAGER WAS " y10);& :. M$6 :V " THE DECODED MESSAGE IS "^ :i J1Lu E$(J);| ,J I14::I  A DECODER ** 800322 **, JBTATE GM2$(50),E$(50),M3(50)r" TYPE IN YOUR MESSAGE TO DECODE ";M$z#:(L(M$)2I1L<M2$(I)(M$,I,1)AM3(I)(M2$(I))CM3(I)32M3(I)M3(I)1DE$(I)(M3(I))FI x" THE ENC!! CE : ";CH$( CH(CH$):CH1CH10250a CH500,1000,1500,2000,2500,3000,3500,4000,4500,5000j 130  ** INSERT VOCABULARY FLASH CARDS SUBROUTINE HERE ** D$;"RUN VOCABULARY FLASH CARDS"  ** INSERT APPLE HANGMAN SUBROUTINE HERE ** ) DICTIONARY GAME"2 " 5.) SCRABBLE HELP"Q " 6.) SCRAMBLE WORD" " 7.) LATIN (CONVERSION FROM ENGLISH TO PIG)" " 8.) SAT WORDS" " 9.) ALPHABETIZE" " 10.) EXIT TO BASIC" "ENTER CHOI32,0:33,40:34,20:35,23= d23:22)"PRESS SPACE BAR";:Q$W n34,0: NORMAL SCREEN ::" ********** MENU **********": " 1.) VOCABULARY FLASH CARDS" " 2.) APPLE HANGMAN" " 3.) APPLE WORD PUZZLE" " 4. :D$(4):CNTL-DD::A$"*":B$" "oX13381:7:X1)A$:14:X1)A$:X1(Y813:Y:33)A$:Y:8)A$:Y2:32,8:33,25:34,7:35,14:8<X16:B$:XF10:(1211)P"VOCABULARY DEVELOPMENT" Z:""""   030 X0:YY9  Y4530001 : GOTO3005"Y1 C$:C$"*"Ā' C$" "30226 C(C$)64G C$"?"C27X C$"!"C28k (C$)273000~ C28C13010 C10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37 0:X,X3Y1:3 XX5:X363NO, ";N$;" TRY AGAIN: ";:W1$-,W1$W$400Q6"NO, THE RIGHT SPELLING IS: ";cFL1:52:250m1000FL0::((1)15)1200 HOUSE,DOG,CAT,BAT,TOP,*T15500:: :16302,0:X0:Y9 0:S4047:0,39S::3 X,X348H:Z1,Z1((A$,Z1,1))48((A$,(Z2),1))48V:Z:_d:"HELLO, WHAT'S YOUR NAME ?";N$gW$xW$"*"240:200X0:Y9:T1(W$):C$(W$,T,1):3011:FL14201000:3:W1$W1$W$40050""Y6,Y4X3:X,Y6:Y4,Y2X2:X2,Y:B %Y7,Y2X2:X2,Y: 2A$"4202611820335037330:4045645036736107427907268429420420":54 4A$"4202611820335037330:4015315615915026426826127727268429" 6((1)15)197H15:V25:Z1523:Z1((A$,Z,1))X1,Y1:X2,Y:> Y,Y7X:Y,Y7X3:X,X3Y:Y,Y2X2:} !Y,Y2X:Y4,Y7X:Y4,Y7X3:Y2,YX3:X1,X2Y3: "Y7,Y4X:Y7,Y4X3:X1,X2Y3:Y,Y2X2: #X,X3Y:X,X3Y5:X,Y1:X1,Y2:X2,Y3:X3,Y4:( $X,X3Y7:X2Y:X2,Y1:X1,Y2:f Y,Y7X:X,X3Y7:X,X3Y4:Y7,Y4X3:X1,Y3:X2,Y2:X3,Y1: X,X3Y7:X,X3Y:X,X3Y4:Y7,Y4X:Y3,Y1X3: Y,Y7X1:X,X3Y7: Y,Y7X:Y,Y7X3:X,X3Y: Y7,Y2X:Y7,Y1X3:2X3: Y,Y7X:X,X3Y:R Y,Y7X:Y,Y7X3:X,X3Y7:Y7,Y5X2:w Y,Y7X:Y,Y7X3:X,X3Y7: Y,Y7X:Y7,YX3:X,X3Y:X,X3Y7: Y,Y7X:X,X3Y7:X,X3Y4:Y7,Y4X3: Y,Y7X:Y1,Y7X3:X,X3Y7:X,2Y4:- Y,Y7X:X,X2Y4:X,X3Y7:h Y,Y7X:X,X3Y7:X,X3Y:Y,Y4X3:X2,X3Y4: Y,Y7X:Y,Y7X3:X,X3Y4: Y,Y7X1: Y,Y7X3:X,X3Y:Y,Y2X: Y,Y7X:X1,Y4:X2,Y3:X2,Y5:X3,Y6:X3,Y7:Y,Y2 :3:100? Y,Y7X:Y,Y7X3:X,X3Y3:X,X3Y7: Y,Y7X:Y1,Y3X3:Y5,Y6X2:X,X3Y:X,X3Y4:X,X2Y7: Y,Y7X:X,X3Y:X,X3Y7: Y,Y7X:X,X2Y:X,X2Y7:Y1,Y6X3: Y,Y7X:X,X3Y:X,X3Y7:X,X"" " " " " """"