' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>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()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  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 õ ĵµ 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- ( l  Ϡ@跻~!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 ~(` i d ֠Ġ MX*@#nj@#_M$"OH BEAUTIF"THE EARLY BIRD CATCHES THE WORM.":R M$"I'M DREAMING OF A WHITE CHRISTMAS.":M$"DON'T BURN YOUR CANDLE AT BOTH ENDS.":M$"A PENNY SAVED IS A PENNY EARNED.":M$"AN EVIL MAN HAS A BOLD MOUTH.": M$"A WISE SON MAKES A GLAD FATHER."MERCY IS NOT STRAINED.":IM$"LAUGH AND THE WORLD LAUGHS WITH YOU.":}M$"FLOAT LIKE A BUTTERFLY, STING LIKE A BEE":M$"APPLE COMPUTERS HAVE NO WORMS.":M$"THE LION IS THE KING OF BEASTS":M$"EARLY TO BED, EARLY TO RISE":$M$Р STOP Š I - ՠ J - ĠĠ K - Π L - Ǡ M - ̠ƠŠ N - Ġ͠ O - ӠӠA - Ϡ B - ՠ٠ C - ĠӠ D - Ǡ E - ®Ҡ F - ٠ȠӠ G - ԠԠԠԠ H - Ġ؍ӭԭԭ؍ō؍ϭӍ؍׍؍ȭͭ؍ōǍ؍ɭխ؍ōǍ؍ǭ؍čˍ؍ͭ؍č؍έϭ؍΍؍ϭ؍Ǎō؍؍ҍ؍ǭŭ؍ōŠٍ؍έ؍Ǎ؍č؍٠ΠŠ͍؍Ӎō؍ҍ؍ͭ؍ō؍έí؍΍ȍ؍ՍӍҭ؍ӍčЍ؍ϭҭ؍čȍ؍ҭԭ؍ٍ٠΍ɭ؍΍ҍ؍έɭͭϭ؍čԍ؍ҭҭ؍ōō؍խ؍č؍ԭح؍č؍խح؍׍؍ɭ؍ƍ؍ԭ؍Ǎȍ؍ԭԭ؍ˍԍ؍ҭɭ؍٫ӭɪԵڬםەܯպԭҳ󪤥ڛ껯ʴޛ׫ګ픔Ҷڿ̥<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@ @` 0@P`p (08@H<<N ++,,--..//00112233445566778899::;;<<==>>??@@Ld21Ĭ.o$A19320 .r$A12000H.t$R(SL1)14(SL2)19(SL3)29::.|$510:" THIS PARAGRAPH IS BEING CONSTRUCTED BASED ON YOUR INITIAL LEVEL CHOICE.":5150"!"(34)"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ???^"-T$936:8:10:510:"1. TYPING TUTOR":11:510:10:"2. PRACTICE PARAGRAPH"-^$15:14:510:"SELECT (1,2)"-h$A(16384):A1289320-j$16368,0:AA12848:A29320.m$AɁI058:D(I)((KY$,59I,1))T,#F(I)((KY$,I1,1)):I:X58:Y1:Z1:XN50:SP60k,#I0127:S(I)0:Iz,#SL19150,#Z29:X28:SL2Z39:X18,#I0Z:AF(I):S(A)5:I:XNX,#I1160:I141E$E$(13):9154,#E$E$" ",#IH-#E$E$6)42:WD(7)52:WD(8)76:WD(9)141:WD(10)168:WD(11)236\+s#WD(12)260:WD(13)264:WD(14)267+x#WX$"ABS ASC LEN SGN RND TAB POS SPC FRE VAL STR$ CHR$ LEFT$ RIGHT$MID$ SCRN SIN COS TAN ATN INT SQR EXP LOG ",#HO0:HIMEMLOMEMHTAB DEFFN"*Z#WF$WF$"BLACKCALL CAME CAN CARRYCLEANCHAP CHILLCOLD COME COULDCUT MUCH ONCE PICK WHICHCOLORCON CLR TRACECLEAR"*d#WF$WF$"SCALESCANTCONT SIX NEXT TEXT XDRAWZEBRARAZORZOO "7+n#WD(1)4:WD(2)7:WD(3)9:WD(4)12:WD(5)21:WD(OUNDFUNNYKIND KNOW LONG MANY ")F#WE$WE$"NEVERNEW NOT NOW ON ONE ONLY OPEN OWN RAN ROUNDRUN SAW SEVENSING SOON TEN THANKTHEN THINKUNDER"*P#WE$WE$"UPON WANT WENT WHEN GOINGGREENIN INTO END GOSUB":WF$"HLIN INPUTMAN RUN ONERRVLIN VTAB OM GAVE GIVE HAVE HIM "(2#WD$WD$"JUMP LIVE MADE MAKE MAY ME MUST MY OVER SMALLSOME THEM VERY WARM DIM MOD REM SAVE HOME ABOUTAN AND ANY BE ")<#WD$WD$"BEEN PRINTBEST BIG BLUE BOTH BRING":WE$"BROWNBUT BUY BY DONE DOWN DRINKFIND F STARTSTOP TAKE TELL THAT THE "'#WC$WC$"THEIRTHERETHESETHEY THIS THOSETHREETO TODAYTOO TRY TWO WHAT WHY WITH WRITEYES YOU YOUR STRAPSTRIPSPOT "((#WC$WC$"SPAR DRY TREATAUTO GOTO PLOT ":WD$"STEP WAIT STOREDATA HPLOTROT AM EVERYFIVE FR HAS HE HELP HER HERE HIS HOLD AGAIN"& #WB$WB$"HOW LAUGHSHALLSHE SHOW WASH WHEREWISH GR FLASHHGR AFTERAT ATE AWAY EAT EIGHTFAST FIRSTFLY GET GOT "!'#WB$WB$"HOT HURT IT ":WC$"ITS JUST LET LIGHTLIST OUT PLAY PUT RIGHTSAY SITEKIDS;ARE FAR FULL READ RED RIDE US USE; USR DO; DOES "%"WA$WA$"DRAW FOR FOUR LOOK OF OFF OLD OR OUR SO WALK WAS WE WELL WERE WILL WORK WOULDLOAD KEEP PULL SLEEP"*&#WB$"DSP PDL PEEK POKE POP SPEEDUP GO GOES GOOD GROW HAD I)0:I,$"AL$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"z$"KY$"ASDFJKL;EIRUWOQPGHTYMVBNC,X.Z/4738291056-:$'#("(34)")%&!?=*<>+@^"$"HM$"J;;LK;;;AJFLSKDJF;;JF;ALSKDJF;ALSKDJFFJJFJF;ALSJFKDASDFJKL;">%"WA$"FADS SAD ADS FA JAFFAASK JA FALL LADS;JADE SLID3):";!#hA(16384):A1288030F#j16368,0:SLA12848:SL18030U#lSL38030#n19:1:868:15:510:" THANK YOU "#"LZ175:KZ59:RZ27:WZ267:WX24#"WD(14),D(KZ),E(KZ),F(KZ)#"M(82),N(82),L(LZ),S(127),K(3),P(10)$"I182:M(I)0:N("HOWARD ROTHSTEIN PRESENTS"$"E510N"J5:10:510:"* * TYPING TUTOR * *"|"O7:9:510:"***************************""T12:16:510:"1. LETTERS":14:16:510:"2. NUMBERS""Y16:16:510:"3. SYMBOLS":510#^19:8:"SELECT KEYS TO LEARN (1-!l24:16:510:"SELECT(1-4)";;!A(16384):A1287110`!16368,0:AA12848:A219300r!A1A47110!A22000!A45000!A(2A)(SP5):A0A1!SPSPA:2000!A(16384):16368,0:A128137350!"@:510:3:10:6100 L(J)SP61001 ZZ1:F(Z)P(J):6200M XX1:D(X)P(J):STST1_ 8J:ST36000k B:2500 X19:8:510:"1. ALLOW SLOWER RESPONSE":8:510:"2. SAME RESPONSE" b8:510:"3. REQUIRE FASTER RESPONSE":8:510:"4. PRACTICE PARAGRAPH"40:I03:K(I)D(X):XX1:XXNXNX3rX06400:tIzI((1)4):W((1)4):J14:P(J)K(I):P(J5)K(W):II1:WW1:I0I3|W3W0~J7:15:J110:C$(C$,J1)(E$,P(J)128,1):J:C$;:IX10:8:15:100 ST0:J69:L(J)SP:510:15:"** BEGIN **";#23000nP21:10:510:"1. TYPING LESSONS":22:10:510:"2. ANOTHER PARAGRAPH"Z510:24:14:"SELECT (1,2)";dA(16384):A1285220i16368,0:A1559300nAA12848:A12000xA250005220%p:SPJC(JC225)5:X$(WF$,JC4,5)%t/::510:" THIS PARAGRAPH IS BEING CONSTRUCTED BASED ON YOUR RESPONSE TIMES IN THE LESSONS"6:4000 I14:I:868:I#I13:510:2:15:"** BEGIN **";(500:15:" ";:I$(WA$,JC54,5):4980'.JC904920O3JC(JC45)5:X$(WB$,JC4,5):4980`8JC1354930=JC(JC90)5:X$(WC$,JC4,5):4980BJC1804940GJC(JC135)5:X$(WD$,JC4,5):4980LJC2254950QJC(JC180)5:X$(WE$,JC4,5):4980VLL:X$(X$,JC1)+J(X$)394530OJ1:C$(C$,I2)(13):::500C$(C$,I1(I1))X$:JJ(X$)1:(C$,I);:510:II(X$):C$(C$,I1(I1))" ":II1:" ";:ILZ154050II1:C$(C$,I1)(13):IXI::500:$JC454910)X,JC1)",":JCJC1:L((1)10)31:X$(X$,JC1)(KY$,L,1):JCJC1oX$(X$,JC1)")":"MID$"(X$,4)4500X$(X$,JC1)",":JCJC1:L((1)10)31:X$(X$,JC1)(KY$,L,1):JCJC1:X$(X$,JC1)")"K(X$):JCK1:LK11:" "(X$,L,1)JC500!X$(X$,JC1)"(":JCJC1L((1)26)1:M((1)26)1:X$(X$,JC1)(AL$,L,1):JCJC1:X$(X$,JC1)(AL$,M,1):JCJC1:X$(X$,JC1)"$":JCJC1X$(X$,JC1)")":("LEFT$"(X$,5))("RIGHT$"(X$,6))("MID$"(X$,4))4500CX$(X$JC1:4230q|L((1)10)31:M((1)10)31:X$(X$,JC1)(KY$,L,1):JCJC1:X$(X$,JC1)(KY$,M,1):JCJC1X$(X$,JC1)")":"SCRN"(X$,4)4500X$(X$,JC1)",":JCJC1:L((1)26)1:X$(X$,JC1)(AL$,L,1):JCJC1:X$(X$,JC1)")":4(X$,L,1)JCL"YL:X$(X$,JC1)t^(X$"ASC")(X$"VAL")(X$"LEN")(X$"LEFT$")(X$"RIGHT$")(X$"MID$")4300hX$(X$,JC1)"(":JCJC1:(1).54220 rL((1)26)1:M((1)26)1:X$(X$,JC1)(AL$,L,1):JCJC1:X$(X$,JC1)(AL$,M,1):JC20"JC((1)JZ)1:4900:4500jK110:A((1)(JYJB))JB1:X$X$(KY$,A,1):K4X$(X$,3)","K8X$(X$,7)".""(K1)(R20)((1).5)X$"$",K:4500JJC(((1)WX)1)6:X$(WX$,JC5,5):K(X$):JCK1 TLK11:" "12IX((3L5IXK10)128H(10000128)))X:"YOUR RATE IS ";W;" WORDS PER MINUTE."`:wC$"":I1:J1:JRRR15JZWD(R)R14JZWD(14)R154050JB30:JY40:R17JY2R2X$"":JX((1)JR)1:JX224170JX1441 M(20)0ĺ" SPACE ";  :.H N03710{R "YOU WERE SLOWER ON THESE KEYS:"::I2182:N(I)1ĺ(E$,I140,1);" ";W N(I)0\ I:N(1)1ĺ"RETURN ";a N(20)1ĺ"SPACE ";f ~:"YOUR ACCURACY IS ";((IXK)100IX);" PERCENT."*W(7:HHIN:LMD!X L(I)SPN(A)1)b N1Z I:L(1)10000A(C$)12:M(A)M(A)1:KK1j :K03400 "YOU MISSED ";K;" KEYSTROKES ON THE":"FOLLOWING LETTERS:": I2182:M(I)0ĺ(E$,I140,1);" ";:M(I)0 I M(1)0ĺ" RETURN "; 16368,0! B16384:C16368+ 7:1? 100:KI03090L KI0::o :3:1:"PARAGRAPH ANALYSIS:"& H0:L0:K0:N00 I2IX:A((C$,I,1))12:L(I)100003140: M(A)1:KK1:L(I)L(I)10000D LLL(I):L100003160 N QL:T10000:17:"LESSON";:31:"NEW":18:"KEYS"AZ0āIZ0Z:2600:IZ]4X0āJX0X:2700:JXf 200 R((56XN)2)(X52)(X50):7000( QIZ:T10:7:IN3:MD2:510:(E$,F(IZ)128,1);: QJX:T10:7:IN3:MD28:510:(E$,D(JX)128,1);: I)E(J):530:II1:J:Y1`JI:I0J:C((1)(Z1)):K(I)F(C):F(C)F(Z):550:ZZ1:I:400 I0:K(0)D(X):540:K(2)K(0):K(1)((HM$,X1,1)):K(3)K(1):XX1:XNX:HOK(1)*I13:535:I:400P(5)32:P(10)13::AV0:AN0%1:5:"FAST";:3:MD2:500:" ";:530KXJ0A:K(I)D(X):540:XX1:II1:J:I0400X]Y0620bJ0Y:K(I)E(J):530:II1:J:Y1:I0400lI0Z:K(I)F(I):570:I:Z1:400Y0730Y3720I03:K(I)E(Y):530:YY1:I:400J0Y:K(:KL%(KM%):KM%,0:KK:6KK110:KL%(KM%):KK:]510:5:18I:(E$,K(I)128,1);:w510:5:18I:" ";:QX:T10:7:IN3:MD28:500:" ";:530&QC:7:IN3:MD2:500:(E$,F(Z)128,1);:QZ:7:IN3:MD2:" ";:530:QI:7:IN28,1):J7 IX10:I1IX:(C$,I,1);:510:I:16:100L 1:15:KI0465[ 958:130 ::J0:LL(1)9999:I210:QL(I):T10000:7:JJMD:LLIN:I " ERRORS: ";L1;" WORDS PER MINUTE: ";(15360(3J50(L1)10));" ":130KK115C):550:F(C)F(Z):II1:ZZ1:J:I0400P JI:I0J:K(I)E(Y):530:YY1:I I((1)4):W((1)4):J14:P(J)K(I):P(J5)K(W):II1:WW1:I0I3 W3W0 J:12:16:" ":16:" ":12:16:C$"":J110:C$C$(E$,P(J)1I:HO0:KI1195 LS:25006 KI0:LS9:LS:2500Y LS09:I3:16368,0:X0700f Y3220 I03:K(I)E(Y):530:YY1:I:400 XXN800 K(I)D(X):540:XX1:II1:AYZ:A1600 Y1240) A1Y:J0A:C((1)(Z1)):K(I)F(P2)(C0)S(A)C11 (L(J)SP)(C5)S(A)C1s J:J110:L(J)0:J:I032(HO0):CK(I):AS(C):CHO190 A0155 XX1:D(X)C:535:JXX:2700:190 A4160 YY1:E(Y)C:190 ZZ1:F(Z)C:535:IZZ:2600 Z58Z58 A(B$)128110 &1202 (IIX:I:KI1:IX10ıM *I1IX:L(I)SP1:I:\ 2" ";:120} dI1IX:B$(C$,I,1):J0:10 nL(I)J:QRA:I: xKA99959999:L(KM%):KM%,0:KA:JJKA:110 :J26(HO0)9:AP(J):CS(A):AHO150 (L(J)S&$KM%16336:::QTINMD:8000HIN(QT):MD(T(QTIN).5):^ "-";:36,(36)1x A(16384):A12720JJ1:1216368,0:B$(13)30" "::A(B$)128110120A14150 A15540"A223ĺ(E$,A,1); $                    AT REFERS TO "S$)$"TYPE IN ONE WORD."<.1140:"=>";K$L8K$""1070V=::\BoL SECOND TIMERxVTT1`TITWTITI1:1120jt~23:"PRESS TO CONTINUE.";:IN$::(IN$)131150(IN$)131150"WORDS THAT DESCRIBE A FEELING YOU GET"<"DURING "S$"."Bm"TYPE IN A FEELING USING FOUR WORDS."1140:"=>";G$G$""1000:: 5TH LINE OF POEM"THE 5TH, AND LAST, LINE OF YOUR CINQUAIN";"NEEDS ONE WORD THS"-z"THREE WORDS THAT DESCRIBE SOMETHING"J"THAT HAPPENS IN "S$"."P~"TYPE IN A HAPPENING USING THREE WORDS."1140:"=>";D$D$""920:: 4TH LINE OF PROGRAM"THE 4TH LINE OF YOUR CINQUAIN NEEDS FOUR";(GRAM1*"THE SECOND LINE YOUR CINQUAIN NEEDS 2"R4"WORDS THAT DESCRIBE "S$"."X9>"PLEASE TYPE IN A DESCRIPTION USING TWO WORDS."H1140:"=>";B$RB$""840W::\f 3RD LINE OF POEMp"THE 3RD LINE OF YOUR CINQUAIN NEEDNG"710 I"ENTER ONLY ONE OF THE WORDS ABOVE. ":W150:1100:605OY::_gS$o:~W10:1100W10:1100"THAT'S THE FIRST LINE OF YOUR CINQUAIN."W300:1100W10:1100   SECOND LINE OF PRO2)b" WHAT IS YOUR FAVORITE SEASON? "9l" ------"Iv" SUMMER"Y" AUTUMN"i" WINTER"y" SPRING""TYPE IN TITLE'S NAME AND PRESS .""WHICH ONE? ";S$S$"SUMMER"710S$"AUTUMN"S$"WINTER"S$"SPRI32A$"Y"ĺ:564&A$"N"500/:2]"A CINQUAIN (SIN KWANE') IS A POEM THAT"v&"HAS ONLY 5 LINES."0W150:11004:"I'M GOING TO HELP YOU WRITE A CINQUAIN."?1150:590DW150:1100NX - CHOOSING A TITLE]:"TO TRY? (Y FOR YES OR N FOR NO)=>";6V$:V$"Y"ĬGV$"N"434_::"GOOD BYE ";N$e}:3: INTRODUCTION:"HI, "N$".""DO YOU KNOW WHAT A CINQUAIN IS? ""(Y, N, OR IF YOU WANT TO QUIT=>";A$:(A$)274))B$: r(20(D$)2))D$:6 |(20(G$)2))G$:N (20(K$)2))K$:} "WOULD YOU LIKE TO TRY ANOTHER CINQUAIN?" "(Y FOR YES OR N FOR NO)=>"; V$:V$""410 V$"Y"210 V$"N"410$:3:"IS THERE ANYONE ELSE WHO WANTS":ION TO GAME 600:: TITLE: 800: 2ND LINE OF POEM@ \ 870: 3RD LINE OF POEMb " ,950: 4TH LINE OF POEM 6 @1030: 5TH LINE OF POEM J TN$", HERE IS YOUR CINQUAIN: " Y:: ^(20(S$)2))S$: h(20(B$)2OR EDUCATIONAL USE &*3 *MAY NOT BE SOLD.COPY-*Q ! *RIGHT 1981 CUE,INC *o " ***********************w : W100:1100 : "WHAT IS YOUR NAME? ";N$ N$""ĺ"GEE, I THOUGHT EVERYONE HAD A NAME.":12:220 460: INTRODUCT  * 333 MAIN STREET *;  * REDWOOD CITY *Y  * CA 94063 *w  *(415)364-5600 EX 4401*  * *  ***********************  *  ***********************  *PROGRAM MAY BE COPIED*  *F *-  * SAN MATEO COUNTY *K  * OFFICE OF EDUCATION *i  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  CINQUAIN 12/13/1980& P HELPS MAKE CINQUAIN POEMS W ^ t APPLESOFT 16K}  DOREAN BARNES  ADAPTED FROM THE PET VERSION  *********************** *      "/"  XX1500:XX2 14:19:958::b 19:"SORRY!!";:XX1500:XX:19:868::500:XX:19:868::I1140jEE$(EE$,(EE$)1)CtCV((EE$)40)24CVCV1:1140a~CV:CH:EE$;:958:1090o(13);:CV:17:"/";A1(B$)2:"-";:(92);CV1:16:"<";:16(B$)1:">";CV2:17:(92);A1(B$)2:"-";: E,SIPHON8 ZIGZAG,DONKEY,SPENT,VANITY,FAMOUS,INFUSEF END,ENDL$g. CURSOR INPUT ROUTINE8EE$"":CV(37)1:CH(36)1BG$:AA(G$):AA13(EE$)2551160LAA8EE$EE$(AA):(AA);:1090V(EE$)01090`(EE$)1EE$"":S,EMPLOY,FASTEN0 ALBUM,TWINE,RANSOM,BEDECKP IGLOO,WHINE,GRIMLY,SOLIDq LOUSY,APRON,BANGLE,ANKLET FINISH,PREFER,IODINE,DABBLE GUTTER,NICKLE,POISON,OUTING,MOBILE,RAMROD NERVE,CHIME,HYMNAL,FACTOR CHAIR,AWOKE,AROUS,ESTATE(z CLEFT,STEED,OUTBID,WIDESTJ LINEAR,THYME,DISMAL,HELMETk CLOVE,HITCH,DUPLEX,ARTERY WEDGE,TAFFY,QUAVER,BUTTER ENACT,JOINT,THRUSH,WISDOM DOUBT,QUEEN,MARINA,BEHELD BEGIN,CANAL,GHOST,NIMBLE YIELD,ABYSICED,THROW,CLOUDYB4 DARING,BAFFLE,INVITE,ENAMEL,DAHLIA,OBJECTa> WINCE,CRESS,DRUG,INVERTH SNORT,MOTIF,CHORUS,GENDERR POUCH,EXACT,BUTTON,ORIOLE\ YOKEL,ARMOR,VANDAL,PICKETf LIMIT,GAUDY,SINGLE,DOUBLYp SOUSE,FUZZY,AFFRAY& HOBBY,BUILT,DIVERT,FLOWERG GRIMY,SMART,ENGINE,MUFFINj RUSTY,DESTROY,ICEBOX,DEBTOR SCHOOL,HENNA,ARCADE,PURPLE  RAINY,LAPEL,FROZEN,CIPHER NUTTY,MAGIC,PASTRY,SOLACE  BOOTY,CLOUT,DROWSY,WINDOW* FELON,DT100.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 *  * c" 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          457 OUT$(OUT$,L1)A$:459?OUT$A$(OUT$,2,L1):459eOUT$(OUT$,II1)A$(OUT$,LII)mII~22:1:OUT$1:E146424:"MISTAKES: ";:I1E:(E$,I,1);" ";:II1L(OUT$,I,1)"-"I999I$21:1:" "E3395E4:380-22:1:OUT$:E1300E24:1a"MISTAKES: ";:I1Ex(E$,I,1);" ";:IE65703001:21:"* * * H I T * * * "II1L:(M$,II,1)A$459II1IIL458II1(16336)0(A$)3Ā32(A$)48(A$)90303Ic23:30:" ";ThI1LpmJI:(M$,I,1)A$I999wrItI888375uIJ:450wEE1:E$E$A$|E1042,1055,1065,1075,1085,10941:21:"* * * M I S S * * * 5,2540,2545,2550,2555,2560,2565,2570,2575,2580,2585,2690,2695,2700W NN1:N1N115r L(M$):OUT$"":I1L A$"-":X$(M$,I,1) (X$)48(X$)90A$X$ OUT$OUT$A$:I 22:OUT$ ,23:30:"GUESS ?"; /A$:I(16336)(16336)***************C$:C$;)C$R$ı>MF$(I)MF$(I)C$H1000 DT"# v"TO DISPLAY THE MENU AGAIN") 4 (13)G D$;"RUN ";GN$e :"LEAVING MENU PROGRAM"m : "PRESS OPEN APPLE - CONTROL - RESET " "TO SEE MENU AGAIN"   ********************  READ MENUFILE SUBROUTINE *****:  ********************4  FIND AND RUN GAMEP  *********************\ I1CT (MF$(I),1)CH$GN$(MF$(I),5,30) &I X"NOW RUNNING ";GN$ b k:: l:" WHEN DONE WITH PROGRAM. " q" PRESS OPEN APPLE - CONTROL - RESEF YOUR CHOICE-> "; YCH$7 ZCH$"X"CH$"x"ī350h [936:"DO YOU REALLY WANT TO EXIT? ->";:R$ \R$"Y"R$"y"ī740 ]355 ^(CH$)64(CH$)64CTī500 c936 d:CH$; e h" NOT A VALID CHOICE. TRY AGAIN." r340 :O "ī210Z MF$(I)"STOP "ī300g :MF$(I)p CTIw I ,D$;"CLOSE MENUFILE" -"X - EXIT": ."MAKE SURE CAPS LOCK IS ON ": 6 GET CHOICE @34,CT6:: T"TYPE THE LETTER O"PROJECT ACCESS PD/SHAREWARE COLLECTION"0 c "BY L. DEMARAIS, W. HILLER AND G. MODELL" t " M E N U" " -------" READ MENUFILE FROM DISK R$;D$;"OPEN MENUFILE" D$;"READ MENUFILE" I1100 1000$ MF$(I)"HELLЍ؍íԭԭ؍č؍í؍ԍ؍ɭ؍΍ō؍խ؍̍؍ŭحíƭ؍͍ԍ؍ԭԭԭٍ؍ōύ؍í؍ōč؍حí؍ٍ؍ҭԭŭԭ؍ٍҍ؍ĭ؍ȍԍ؍؍̭ϭ؍ō؍ͭ؍΍؍ōӍϭ؍č؍ɭ؍ȍ΍ԍӍ؍ԭխխ؍ˍٍ؍έӍҭέҍ؍ٍٍ؍íέح؍ȍ؍ͭέ΍؍ō΍؍ͭέ؍ͭϭͭέέͭͭ؍ҍȍ؍ԭύ؍ԍ΍؍ҭҭӭ؍΍Ǎ؍­ԭ؍ō؍í؍΍؍ɭɭɭ؍ƍ؍ԭԭ؍ȍ؍ҭϭ؍Ԡčԭč؍ͭ CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTRICTS DATA PROCESSING JOINT BOARD (TIES). S EVENT AS THE STUDENT COULD WELL GET THEh **** IMPRESSION THAT THIS IS THE ONLY FORM THAT HAIKU CAN **** TAKE. THERE ARE MANY FINE BOOKS ON THE TOPIC OF HAIKU-- **** CHECK YOUR LOCAL AND SCHOOL LIBRARY.$ :"SAYONARA". v}:<><> E AS A FIRST EXPERIENCE IN WRITING c **** HAIKU. USED IN THIS WAY THIS PROGRAM CAN BE A GOOD **** MOTIVATION FOR THE STUDENT TO GO ON TO THE FINER POINTS  **** OF THIS POETIC FORM. ALSO, DON'T USE THIS PROGRAM AS( **** AN ISOLATED" "F$\@f"****************************************"Fptz"WOULD YOU LIKE TO WRITE ANOTHER HAIKU?"z"TYPE Y FOR YES, N FOR NO : ";G$G$"Y"1530G$"N"22402180 $ **** NOTE TO TEACHERS: USINSIGHT"+"INTO THE EMOTION OF ";C$;"."19F$C936s"****************************************"y" THE ";C$;" OF ";B$;", A HAIKU"" BY ";A$;""  *" "D$4>" "E$H RE A 5 SYLLABLE LINE ABOUT ";B$;"."(D0ND$6X^b"NOW WRITE A 7 SYLLABLE LINE THAT"l"ASSOCIATES ";B$;" WITH THE EMOTION"v"OF ";C$;"."E$"O.K. NOW WRITE ANOTHER 5 SYLLABLE LINE""THAT WILL GIVE THE READER AN ER USE THE 'CORRECT' KEY"C"(A SMALL ARROW POINTING LEFT), FOR"q"SINGLE LETTER MISTAKES, OR THE CONTROL""'X' FOR WHOLE LINE DELETIONS. TO USE A""CONTROL 'X' PRESS THE 'CTRL' KEY AND"&"THE 'X' KEY SIMULTANEOUSLY."0":"WRIT";B$ 6" (2) WHAT EMOTION DO YOU ASSOCIATE"T" WITH ";B$;" : ";\C$b"NOW FOLLOW MY INSTRUCTIONS CAREFULLY AS""YOU WRITE YOUR OWN HAIKU. IF YOU MAKE""A MISTAKE AND WOULD LIKE TO CORRECT IT""YOU CAN EITH*T"PLEASE TYPE IN YOUR FULL NAME : ";A$0^[h"NOW YOU WILL AUTHOR YOUR OWN HAIKU."r"PLEASE ANSWER THE FOLLOWING QUESTIONS"|"WITH ONE WORD ANSWERS:"" (1) WHAT SEASON OF THE YEAR WOULD"" YOU LIKE TO WRITE ABOUT : ONTINUE : ";:GT$9362 A$=NAME STRINGK B$=SEASON STRINGe C$=EMOTION STRING~" D$=LINE 1 STRING, E$=LINE 2 STRING6 F$=LINE 3 STRING@ G$=YES/NO STRING (RUN AGAIN?)J I$=YES/NO STRING (INSTRUCTIONS?)O CONTINUE : ";:GT$936J" HERE IS A HAIKU. WATCH FOR THE"a"ABOVE ELEMENTS."gm" RED, GOLD LEAVES FALLING"" DANCING WITH THE JOY OF LIFE"" THE SEED IS PLANTED"24:"PRESS ANY KEY TO C("ESSENTIAL ELEMENTS IN A HAIKU ARE:"- 2V <" (1) A REFERENCE TO A SEASON OF"m F" THE YEAR"s P Z" (2) AN EMOTION ASSOCIATED WITH" d" THAT SEASON" n x" (3) AN INSIGHT INTO THE EMOTION"24:"PRESS ANY KEY T"PREFERRING IT IN THEIR USE OF WORDS AS"T "WELL AS OTHER ASPECTS OF LIFE. AS A"w "RESULT, THEY CREATED HAIKU."}  " A HAIKU CONTAINS 17 SYLLABLES IN" "THREE LINES, EACH LINE WITH A SET" "NUMBER OF SYLLABLES: 5,7,5. OTHER"' & j"WOULD YOU LIKE INSTRUCTIONS?", tP ~"TYPE Y FOR YES, N FOR NO : ";X I$i I$"Y"1200y I$"N"500 1140 936 " HAIKU"  " IN ANCIENT JAPAN, PEOPLE WERE" "DELIGHTED WITH UNDERSTATEMENT,"( I . * * 8 * ****************************************** * B ****************************************************************** L936 V" HAIKU" ` *n  * AUTHOR: JAMES L'ALLIER *  * STILLWATER SENIOR HIGH * $ * NOVEMBER 2, 1974 *J ****************************************************************** * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. * * *****************HAIKU******************** *%  *           E WHO DON'T SPELL WELL OFTEN FIND THEMSELVES IN A DIFFICULT PREDICAMENT AT THE FAR END OF A TAUT ROPE." 7:"BY THE WAY, THEY HUNG THE HANDLE WILD BILL APPLE ON ME WHEN I WAS KNEE HIGH TO A SNAKE'S RATTLER." <:"BEFORE WE GET STARTED TELL MEv) BY BOB CHINN/ 112 S. EVERGREEN ST.G ONARGA, IL. 60955[ (815)268-7373c:~ 13:"*** HANGMAN ***"::14:"FIRST EDITION"::14:"BY BOB CHINN"#9500(9300k 2:"WELCOME TO THE WILD WEST PARDNER, WHERE THOS  17,17:21,17'17,2116"'4D'19,3018:19,3019:19,3020K'4]'17,20:21,20u'21,2716:21,2722|'9'31,3718:31,3720':21,2722'9'31,3718:31,3720'AT MEN DO LIVES AFTER THEM.":+& N1:2618& N1:261E& N1:261R& N1:261_&# N1:261l&( N1:261s&7&10,2835:10,2836&I826:6,31I:I&0:3,1019&8&16,2211&16,2218&12,1715:12,1723 '17,13:21,13: MOTHER OF INVENTION.":8% M$"SEEING IS BELIEVING.":S% M$"POOR BUT HONEST":y% M$"A ROSE IS A ROSE IS A ROSE":% M$"IN THE GOOD OLD SUMMERTIME":% M$"I CAME, I SAW, I CONQUERED.":% M$"HUSBANDS, LOVE YOUR WIVES.":& M$"THE EVIL TH $ M$"2 GOOD 2 BE 4 GOTTEN":D$ M$"AS AMERICAN AS APPLE PIE":c$ M$"THE SKY IS FALLING.":$ M$"PENNY WISE AND POUND FOOLISH":$ M$"WE THE PEOPLE":$ M$"TEMPIS FUGIT":$ M$"THE CHILD IS FATHER OF THE MAN.":% M$"NECESSITY IS THEHIGH AS A KITE":,# M$"COKE ADDS LIFE.":R# M$"PRIDE GOETH BEFORE A FALL.":}# M$"LOOK TO THE ANT, THOU SLUGGARD.":# M$"AN APPLE A DAY KEEPS THE DOCTOR AWAY.":# M$"A POEM AS LOVELY AS A TREE":$ M$"COLORS ARE THE SMILES OF NATURE.":؍ԭӭ̭֭؍΍؍ɍ؍č؍íԭ؍ҍ؍ĭӭ؍ō؍˭íԭ؍̍؍̭έ؍ȍ̍؍؍؍ح؍č؍ɭ؍čč؍֭؍Ѝō؍ԭԭ؍ԍč؍íԭí؍ōˍ؍έέ؍č؍ŭ؍ҍԍ؍ͭϭ؍ԍ؍ԭ؍Ǎ̍׍؍ӭ؍Ӎč؍έԭ؍ōǭ̭؍Ǎō؍ϭ؍čč؍ǭ؍ˍō؍ŭɭ؍č؍ԭҭ؍ٍ؍­ԭ؍ō΍؍ϭӭ؍ԍ؍ŭ؍ԍٍ؍ԭխ؍׍؍ĭɭ؍ԍ؍έ؍č؍έ ҭ؍ԍč؍Эҭ؍ٍ؍ͭϭ؍č؍ԭٍԭ؍ҍ̍ȍ؍ĭԭ؍ō؍íō؍׍ؠͭϭͭέέͭͭ؍ҍȍ؍؍ԭ؍ԭ؍č؍ϭέխ؍č؍ϭԍ؍ҍ؍έ؍ō؍ĭӭԭ؍ԍ؍ͭɭ؍č؍ɭ­ԭɭ؍ٍ؍ĭӭ؍ԍō؍έɭ؍׍ō؍ɭϭҭ؍ˍ؍ϭ؍ō؍ĭӭ؍̍؍ԭԭ؍Ǎ؍ԭԭȭ؍č؍ЭЭ؍ō؍ɭĭ؍ԍ؍΍ɍ؍ȍ؍ŭĭӭӭ؍ύō؍ҭ؍č؍I,3),2):KKDXY(W(I,3),1):P#(IE2XY$"HERE IS THE ANSWER KEY:"O<1070WF:]P M:(W$(J))01210-(0)(W$(J))TW2ĺ9W$(J),G::::Mo(X$,1)"Y"(X$,1)"Y"1250u{I1L:J1W:A$(I,J)".":J:II1MLN(W$(I)):JW(I,2):KW(I,1) P1LNA$(J,K)(W$(I),P,1)JJDXY(W(X$"Y"Ċ14TW80ĺ" 80N"18T(TW2W)2:7BPL(TW(XY$))2);XY$XV:i`J1L:T);jK1W:A$(J,K)"."ĺ". ";:1140o((A$(J,K)));" ";tK::J~:"FIND THESE HIDDEN WORDS IN THE ABOVE":"PUZZLE:"J1S$(I)W$(J)10307HZ$W$(I):W$(I)W$(J):W$(J)HZ$`K13:HZW(I,K):W(I,K)W(J,K)HZ:KjJ:I"HOW MANY COPIES OF THIS PUZZLE DO YOU WANT?";N"FOR EACH COPY, HIT RETURN TO BEGIN":"PRINTING...."$C1N:1070::1230.A$: 31)790)pJJDXY(SD,2):KKDXY(SD,1):P7JSY:KSXXP1LN:A$(J,K)(W$(I),P,1)zJJDXY(SD,2):KKDXY(SD,1):W(I,1)SX:W(I,2)SY:W(I,3)SDII1LJ1WA$(I,J)""A$(I,J)(A(26)64):I1M1:JI1M(L):X1SY(LN1)DXY(SD,2):X11X1L790D4NTNT1:NTWL2850s>"COULDN'T FIT '";W$(I);"' IN THE PUZZLE."@"DO YOU WANT ME TO START OVER?";A$B(A$,1)"Y"750DW$(I)"":950RJSY:KSX\P1LNf(A$(J,K))A$(J,K)(W$(I),P,DXY(I,2):I128:DD(I):K 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7 I1MLN(W$(I))NT0SDDD(A(28)) SXA(W):X1SX(LN1)DXY(SD,1):X11X1W790)*SYA;l"YOU ENTERED THAT ONE ALREADY. ":"TRY ANOTHER.":480HvW$(I)T$OIn"THAT'S IT..";M;" WORDS.""NOW LET ME PONDER THIS...."I1M1JI1M(W$(I))(W$(J))HZ$W$(I):W$(I)W$(J):W$(J)HZ$J,I I18:DXY(I,1),T$)T$(T$,J1):580:&J1T$(T$,(T$)1):JJ1:570_0T$(T$,J1)(T$,(T$)J):JJ1w:JJ1:J(T$)520D"-";T$;"-"X(T$)MD610]"THAT'S TOO LONG, I'M AFRAID.";_" TRY ANOTHER ONE:":480bIZ1I1:W$(IZ)T$Ă:630REDO ";W$(I);"...":480.T$"."MI1:660V(T$)0ĺ"INPUT ERROR; REDO:":480^J1fT$TE$(T$,J,1):TE$"A"TE$"Z"570 TE$"A"TE$"Z"530T$(T$,J1)(((T$,J,1))32)(T$,(T$)J):570TE$T$T$"":500J(ENTER A HEADING THAT WILL BE":"PRINTED OVER THE PUZZLE:"B XY$r "OK...ENTER A WORD AT EACH QUESTION MARK." "TO REDO THE PREVIOUS WORD, TYPE A HYPHEN (-)." "WHEN YOU RUN OUT OF WORDS, TYPE A PERIOD (.)." I1MT$:T$"-"II1:"YW1330( ^"THE LENGTH";L:LWMDL5 cL1350t h"WHAT IS THE MAXIMUM NUMBER OF WORDS":"IN THE PUZZLE?";M rM2380 w"SORRY, THERE MUST BE AT LEAST 2 WORDS.":360 | A$(L,W),W$(M) S$(M) W(M,3),DXY(8,2),DD(28)9 "NOW 00:PAUSE & ,A(Z)((1)Z1)\ 6"HOW MAY COLUMNS DOES YOUR PRINTER":"HAVE? ";TW @"DO YOU WANT A SOLUTION PRINTOUT?";X$ J"WHAT IS TO BE THE WIDTH OF THE PUZZLE?";W:MDW TW2TW345 W"THAT WILL NOT FIT IN ";TW;" COLUMNS.":330 SK YOU IF IT SHOULD START THE"K "PUZZLE OVER. IF YOU DON'T WANT IT TO"z "START OVER, TYPING 'NO' WILL THROW AWAY" "THAT PARTICULAR WORD. IF THIS PERSISTS,"; "TRY GIVING LESS WORDS OR BIGGER PUZZLE" "DIMENSIONS!":: PAUSE120-", F"ALPHABETIC CHARACTERS OUT OF THEM,"U P"AND INCORPORATES THEM INTO A WORD"m Z"SEARCH PUZZLE.": d" IN THE COURSE OF MAKING THE PUZZLE, " n"THE MACHINE MAY FIND THAT IT CAN'T" x"PUT A PARTICULAR WORD ANYWHERE, AND" "SO WILL A_ ***WORD SEARCH PUZZLE< 10);"WORD SEARCH PUZZLE"[10);"CREATIVE COMPUTING"}9);"MORRISTOWN, NEW JERSEY"(2" THIS PROGRAM IS A WORD SEARCH PUZZLE":"GENERATOR!! THE PROGRAM TAKES A SET OF" <"INPUT STRINGS, PURGES ALL NON          PETULANT\ END,ENDfh23:6:"PRESS TO CONTINUE...":6:"OR TO END PROGRAM.";~Z$:(Z$)27375(Z$)131010:2:" W O R K I N G ":Z TO MEND A HOLE (5),PATCHd4 "THROW A BALL; PUT UP A TENT (5)",PITCH> A FLOWER; ALSO A GIRL'S NAME (7),PETUNIAH A BASEBALL PLAYER; ALSO A POURING VESSEL (7),PITCHERR PEEVISHLY IMPATIENT (8), STORMS (6),PETREL7 AN UNDERSKIRT (9),PETTICOATX WORKER IN CLAY (6),POTTER  "SOUND OF TINY FEET; ALSO RAPID SPEECH (6)",PATTER SMALL AND DAINTY (6),PETITE  FARMER'S IMPLEMENT (9),PITCHFORK* A PIECE">";CV2:17:(92);4A1(B$)2:"-";:= "/"CU XX1500:XXk 14:19:958:: 19:"SORRY!!";:XX1500:XX:19:868::CMEMBER OF (6),PATROL AN AUTO FUEL (6),PETROL A SMALL SEA-BIRD ASSOCIATED WITH 17:(92);$A1(B$)2:"-";:- "/"3E XX1500:XX[ 14:19:958:: 19:"SORRY!!";:XX1500:XX:19:868::500:XX:19:868::CCV:17:"/";A1(B$)2:"-";:(92);CV1:16:"<";:16(B$)1:V(EE$)01090.`(EE$)1EE$"":1140FjEE$(EE$,(EE$)1)ltCV((EE$)40)24CVCV1:1140~CV:CH:EE$;:958:1090(13);:CV:17:"/";A1(B$)2:"-";:(92);CV1:16:"<";:16(B$)1:">"; CV2:ME,HYMNAL,FACTOR1 CHAIR,AWOKE,AROUSE,SIPHONa ZIGZAG,DONKEY,SPENT,VANITY,FAMOUS,INFUSEo END,ENDu$. CURSOR INPUT ROUTINE8EE$"":CV(37)1:CH(36)1BG$:AA(G$):AA13(EE$)2551160LAA8EE$EE$(AA):(AA);:1090EGIN,CANAL,GHOST,NIMBLE8 YIELD,ABYSS,EMPLOY,FASTENY ALBUM,TWINE,RANSOM,BEDECKy IGLOO,WHINE,GRIMLY,SOLID LOUSY,APRON,BANGLE,ANKLET FINISH,PREFER,IODINE,DABBLE GUTTER,NICKLE,POISON,OUTING,MOBILE,RAMROD NERVE,CHIY,SINGLE,DOUBLY0p SOUSE,FUZZY,AFFRAY,ESTATEQz CLEFT,STEED,OUTBID,WIDESTs LINEAR,THYME,DISMAL,HELMET CLOVE,HITCH,DUPLEX,ARTERY WEDGE,TAFFY,QUAVER,BUTTER ENACT,JOINT,THRUSH,WISDOM DOUBT,QUEEN,MARINA,BEHELD B BOOTY,CLOUT,DROWSY,WINDOW; * FELON,DICED,THROW,CLOUDYl 4 DARING,BAFFLE,INVITE,ENAMEL,DAHLIA,OBJECT > WINCE,CRESS,DRUG,INVERT H SNORT,MOTIF,CHORUS,GENDER R POUCH,EXACT,BUTTON,ORIOLE \ YOKEL,ARMOR,VANDAL,PICKETf LIMIT,GAUD07) ::8:"* * * T H E E N D * * *"/ P  HOBBY,BUILT,DIVERT,FLOWERq  GRIMY,SMART,ENGINE,MUFFIN  RUSTY,DESTROY,ICEBOX,DEBTOR  SCHOOL,HENNA,ARCADE,PURPLE  RAINY,LAPEL,FROZEN,CIPHER  NUTTY,MAGIC,PASTRY,SOLACE  ::"YOU ANSWERED: " TWR3 X(RT100.5)G Y(WT100.5)O :u X;"% CORRECT ";Y;"% WRONG"} : "IS THERE ANYONE ELSE WAITING TO PLAY?" "(Y FOR YES OR N FOR NO)=>"; QQ$:QQ$""707 QQ$"Y"Ĭ QQ$"N"7İ3000:4450 " THE ANSWER IS: ";::A$::> WW0:580M WW1:510` 0"CORRECT!!":j :RR1 D:"SCORE: CORRECT ";R;" WRONG ";W N23:"ANOTHER WORD? (Y OR N) ==>"; SQQ$:QQ$""595 XQQ$"Y"ė:3:240 bQQ$"N"595 :((1)C1) |A(D)1370/ B$(E)(A$,D,1)? B$B$B$(E)J A(D)1Q E` A$B$360 10:" UNSCRAMBLE: ";B$;:CV(37):2000 14 "WHAT'S YOUR GUESS? "; 1060 : C$EE$ A$C$560 530 3100:WWWW1:WW3 d:::255:::A8);"SCRAMBLED WORD GAME":::K34,5]B$(20),A(20)cmA$""wB$""C$""Z120A(Z)0"Z,A((1)301)6B1A@A$JA$"END"Į:BB1TB^C(A$)hE1C rD       ĠϠ͠ӻǠ΍Ӎ̻͍ӍōŠٍ̍ŻŠō΍ǠŠŠȠŠĠƠÍ̍ҠōٍӻǠčōǠōōĠ΍΍ō̍ˠԻԍԍԠȠӍԍԻӍōԠʮōҍٍӠ΍Ԡλ΍΍נԻŠΠӍԍȻŻčō͍ȠĠϠӻٍӍĻӍōĠ΍̍ǠϠ̠ӠԠ٠ӍŠҠԍҍҍԍ׻ǠǠ΍ٍӠĠΠǍǍύ͠٠ĠΠ͠ϠΠōӻЍ͍ԠƠŠΠԠƠ΍ǠӠΠč΍ԠƠǠӠŠҠԍٍčӻčԍԠĠҠĠŠҠٍ̠ԠԠĻٍōһōԍ٠ԠӠĻȠȠӍ΍ԠƠǠٍōٻōԍ̠ӠŠҠҭ̭îԍԠӠҠԠ٠Ҡ̍ԠƠŠĠٍ΍ĻčϠӍ΍λƭō΍ĠԍӻȠĠҍ΍ǠҠǠٻΠӭŠƠӠԍǻ٠ǠٻǠҠԠōōŠΠӠٍ΍ΠƠ׻΍čĠΠΠŠƠōӍӻٍ΍٭ōōΠƠŠǠȠҠǠŠĠŠҠӍ MX*@#nj@#_ TO CONTINUE ":1000::23:37:GE$GE$(32)ĺ(7):2035 SUB RAZZ PQ13PP110:CLICK(49200):PPPAUSE130:PAUSEPQ20::CT$"WRONG CHOICE":1000:8PAUSE1400:PAUSEY20:CT$" ":1000_t SUB BLANKING Q1LI$W$(Q)W$(Q)(47):1540Q8::G1L:W$(G);:G:: SUB SEE ANSWER 8:1::SCRAMBLED$18:A$p ************************ YOU CAN REMOVE THE "END" AND USE A PRINT D$;"RUN MENU" OR ANYTHING ELSE IF YOU DESIRE. ************************  SUB CENTER STRING J((40(CT$))2):(J):CT$: SUB INFORM  CHANGE CATEGORY":1000( 10:20:GT$BGT$(27)ī830:QUITb GT$(32)ī280:START OVERq*(7):7804 GOODBYE >H12:CT$"THANKS FOR PLAYING":1000R PLAY CLOSING SONG \X(16)f872g:(4)"RUNMENU"h216,0:IONS 1500:BLANKINGGZZ15:CLICK(49200):ZZ:SPEAKER CLICKNXp6000:TO BIG CONGRATULATIONS300:NEXT SCRAMBLE  QUIT OR CHANGE? :HG0:RESET QUIT FLAG5:CT$"PLEASE PRESS TO QUIT":1000::CT$"OR TO(27)İ2000:300:TO SEE ANSWER AND CONTINUEI$(65)I$(90)ĺ(7):610:BETWEEN A AND Z OR SPACE ELSE TRY AGAIN - WITH BELLI$(A$(R),X,1)ī690:CORRECT4000:1200:610:RAZZ,INFORM,REPEAT18:(X):I$:5000:TO SUB SMALL CONGRATULATT LETTER OR SPACE IS...?":1000~022::CT$"PRESS TO SEE ANSWER":1000:CT$"OR TO QUIT OR CHANGE CATEGORY":1000:: CHANGING LETTERS D18:NY1L:"-";:YXX1Lb18:XlI$vI$"/"ī750I$(32)ī670,I$(NR)HOLD$ P$  BUILD WORD 6 SCRAMBLED$""A Q1La SCRAMBLED$SCRAMBLED$W$(Q)h Q~  SET UP SCREEN  1:CT$HE$::1000: 4:CT$"UNSCRAMBLE THE FOLLOWING WORD(S)":1000 8::SCRAMBLED$:&12:CT$"THE CORREC00H @R(((78)(79)256)IJ)GH: IJ AND GH FROM CATAGORY CHOOSERW JL(A$(R))l T SET UP BOXES w ^X1L hW$(X)(A$(R),X,1) rX | START SCRAMBLE P1L NR(((78)(79)256)L)1 HOLD$W$(P) W$(P)W$(NR) W$Y JIM BALDRIDGE ************************ ^ X(15):PLAY OPENING SONGr  PICK A WORD HG0:10000:SET FLAG THEN TO CATAGORY CHOOSER "HG1ī750:CHECK QUITFLAG ,K(0):GARBAGE COLLECTION 6RZ255:NEEDED IN SUB 504)# 6400:DATA FILL CHEER WORDSw D$;"BRUN SCRAMBLED WORDS SONGS.MODULE":S:ACTIVATE SONG MODULE, CHOOSE SPEAKER? ************************ SONG MODULE CONSTRUCTED BY GARY HAYMAN USING MUSIC MAKER FROM SUBLOGIC WRITTEN BKE SONG INITILIZER K 7000:TITLEu 21:"GETTING THINGS IN ORDER.....": " .....A MOMENT'S WAIT PLEASE"; READ IN WORDS Z1180 A$(Z) A$(Z)"DONE"ī220 Z D$(13)(i% *************'* *:* SCRAMBLED *M(* WORDS *`2* BY *s<* GARY *F* HAYMAN *P* *Z*************d SCRAMBLED WORDS n:xA$(180),W$(40),S$(16),CHEER$(25): 8000:PO               ,"FAYE DUNAWAY","BILLY DEE WILLIAMS","HARRISON FORD" '6ă "OLIVIA NEWTON JOHN","MARSHA MASON","DOLLY PARTON","JOANNE WOODWARD","SISSY SPACEK","PATTY DUKE","DIANE KEATON","RICHARD DREYFUSS","BARBRA STREISAND","SIGOURNEY WEAVER","JULIE ANDREWS","MERYL STRENEY","STEVE MCQUEEN","CLINT EASTWOOD","MEL GIBSON","JOHN WAYNE","JANE FONDA","DUSTIN HOFFMAN"5&,ă "BURT REYNOLDS","JACK NICHOLSON","DUDLEY MOORE","TERI GARR","JAMES GARNER","JAMES CAAN","JOHN TRAVOLTA","SHIRLEY MACLAINE","WARREN BEATTY","TOM CRUISE"NNECTICUT","PROVIDENCE RHODE ISLAND","MONTPELIER VERMONT","CONCORD NEW HAMPSHIRE","AUGUSTA MAINE","JUNEAU ALASKA","HONOLULU HAWAII"$IJ DATA MOVIE STARS ]%"ă "ROBERT REDFORD","PAUL NEWMAN","RACQUEL WELCH","SEAN CONNERY","ELIZABETH TAYLOR","MICKEY ROOLANTA GEORGIA","COLUMBIA SOUTH CAROLINA","RALEIGH NORTH CAROLINA","RICHMOND VIRGINIA","CHARLESTON WEST VIRGINIA","ANNAPOLIS MARYLAND","DOVER DELAWARE","HARRISBURG PENNSYLVANIA"$Ã"TRENTON NEW JERSEY","ALBANY NEW YORK","BOSTON MASSACHUSETTS","HARTFORD COCK ARKANSAS","BATON ROUGE LOUISIANA","MADISON WISCONSIN","SPRINGFIELD ILLINOIS","LANSING MICHIGAN", "INDIANAPOLIS INDIANA","COLUMBUS OHIO","FRANKFORT KENTUCKY","NASHVILLE TENNESSEE","JACKSON MISSISSIPPI"#à "MONTGOMERY ALABAMA","TALLAHASSEE FLORDIA","ATMING","DENVER COLORADO"!à "SANTA FE NEW MEXICO","BISMARCK NORTH DAKOTA","PIERRE SOUTH DAKOTA","LINCOLN NEBRASKA","TOPEKA KANSAS","OKLAHOMA CITY OKLAHOMA","AUSTIN TEXAS","SAINT PAUL MINNESOTA","DES MOINES IOWA","JEFFERSON CITY MISSOURI""Ã"LITTLE ROAND","VERMONT","NEW HAMPSHIRE","MAINE","ALASKA","HAWAII"T ò CAPITALS AND STATES !à "OLYMPIA WASHINGTON","SALEM OREGON","SACRAMENTO CALIFORNIA","HELENA MONTANA","BOISE IDAHO","CARSON CITY NEVADA","SALT LAKE CITY UTAH","PHOENIX ARIZONA","CHEYENNE WYOAN","INDIANA","OHIO","KENTUCKY","TENNESSEE","MISSISSIPPI","ALABAMA","FLORIDA","GEORGIA","SOUTH CAROLINA","NORTH CAROLINA","VIRGINIA","WEST VIRGINIA"8 nà "MARYLAND","DELAWARE","PENNSYLVANIA","NEW JERSEY","NEW YORK","MASSACHUSETTS","CONNECTICUT","RHODE ISLGON","CALIFORNIA","MONTANA","IDAHO","NEVADA","UTAH","ARIZONA","WYOMING","COLORADO","NEW MEXICO","NORTH DAKOTA","SOUTH DAKOTA","NEBRASKA","KANSAS","OKLAHOMA","TEXAS","MINNESOTA","IOWA","MISSOURI"dà "ARKANSAS","LOUISIANA","WISCONSIN","ILLINOIS","MICHIGJ50:HE$"CAPITALS AND STATES":Ut'CH$"C"GH101:IJ50:HE$"FAMOUS MOVIE STARS":~'CH$"D"GH150:IJ25:HE$"SAYINGS OR PROVERBS":'(7):10000'IJ=NUMBER OF ITEMS INGROUP. GH=WHERE ITEMS BEGIN Pò DATA STATES Zà "WASHINGTON","ORE (HARDER)"@L'14:"D) SAYINGS OR PROVERBS (HARDEST)"V'20::CT$" PLEASE CHOOSE A, B, C, OR D":1000:22:CT$"OR TO QUIT":1000::24:20:CH$['CH$(27)HG1::QUIT FLAG`'CH$"A"GH1:IJ50:HE$"STATES": j'CH$"B"GH51:IOF 14 SONGS(' SUB CATAGORY CHOOSER M':2:CT$"SCRAMBLED WORDS":1000w$'4::CT$"PICK YOUR CATEGORY":1000:.'8:"A) STATES (EASIEST)"8'10:"B) CAPITALS AND STATES (HARDER)" B'12:"C) FAMOUS MOVIE STARS 775,5:776,206:777,1:778,3:779,240:780,9:781,202|782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0(# SUB PLAY SONG 2#SELECT SONG 7#XYXY19#XY15XY1:ALLOW 14 SONGS <#X(XY)::PLAYS 1 SPEAKER CLICKX Y$*255</PAUSE1200:PAUSE_412:12:SS$:X15:(7):X:|@ SUB SOUND INITILIZER J*********************TSOUND INITIALIZER PROG^*********************5r770,173:771,48:772,192:773,136:774,208:17:20::"BY GARY HAYMAN":*Y17<SCRAMBLE SS$HP116jSR(((78)(79)256)16)1zHOLD$S$(P)S$(P)S$(SR)S$(SR)HOLD$P150:12:12PRINT & CLICKX116S$(X);  ZZ12:CLICK(49200):ZZ:"SCRAMBLED WORDS"@lX116:S$(X)(SS$,X,1):X:SET UP BOXESiv10:" ********************"" * *"" * *"" * *"" ********************"HAN THE REST OF YOU!":6000[-"AND NOW, IF YOU'RE READY, WE'LL GO FOR THE BONUS ROUND."- "YOU'LL HAVE A PUZZLE ON WHICH YOU CAN GUESS SIX LETTERS -- FIVE CONSONANTS ANDONE VOWEL. IF YOU CAN GUESS THE PUZZLE,YOU'LL WIN $5,000 CASH.".:"PRESST(1):GW1:GT(2)GTGTGT(2):GW2=,GT(3)GTGTGT(3):GW3,"WITH A TOTAL OF $"GT;",":PL$(GW)" IS THE WINNER FOR TODAY!",LOOP110:198:LOOP,PAUSE11000:PAUSE,-(PL$(GW),5)"APPLE"ĺ"IT LOOKS LIKE THE COMPUTER IS SMARTER T USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001F+145+IP(1)Ģ10:10050:"ONLY VOWELS LEFT...I'LL GUESS.":12:100:RE$:255:8000+11:"I'LL SPIN...":PAUSE1200:PAUSE:(37):868:1001++ END OF DAY+:!,GTGP1(REAL$):(REAL$,LOOP,1)GUESS$IZIT1:16:LOOP:GU$;:198:CASH(C)CASH(C)AMTw*LOOP:20:(GU$)64:GU$;:1*UL$UL$GU$*IZITIP((GU$)64)0:1030*SS115:SOUND(16336)(16336)(16336):SS=+FS(C)FS(C)FS(C)1:11:"I'LLUSE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001[)WH$(PW)"LOSE A TURN"145l)8:868:11)GUESS$(FL$,CC,1):CCCC1:DD1(UL$):GU$(UL$,DD,1)1011)DD:IZIT0:11:"I'LL GUESS...";GU$:PAUSE1200:PAUSE:(37):868U*LOO(WH$(PW))AMT(WH$(PW))(WH$(PW)"BANKRUPT"Č771:CASH(C)0:9000:FS(C)FS(C)FS(C)1:11:"I'LL USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001(WH$(PW)"BANKRUPT"145<)WH$(PW)"LOSE A TURN"İ9000:FS(C)FS(C)FS(C)1:11:"I'LL N.....":PAUSE1150:PAUSE:(37):8682'9000G'QT((1)3024)'LOOP1QT:PWPW1(24(PW24)):4:WH$(PW);" ":SPEAK(16336):SPEAK(16336):PAUSE11.7LOOP:PAUSE,LOOP:FF(0)'WH$(PW)"FREE SPIN"FS(C)FS(C)1:1000(45 & GHESS$""GHESS$"S"159& GH$"G"GU$RE$IP(1)āPA1012:PA:868:PA:10:"WE'VE REACHED A DRAW. THE SOLUTION IS BELOW. CASH ACCUMULATED ADDED TO VALUE OF NEXT GAME.":16:RE$:9503:101& 260& COMPUTER SECTION('11:"MY TURSH(C)CASH(C)250:9000:200v%GHESS$"G"Ģ11:"TYPE YOUR ANSWER. INCLUDE ALL SPACES. ";GUESS$:GUESS$REAL$8000&GHESS$"G"GUESS$REAL$Ģ10:868:11:868:12:868:"SORRY, THAT'S WRONG!":PAUSE1650:PAUSE:(37):868:((IP(1))1)266,1OU ARE A WINNER ! "," YOU ARE LEADERSHIP MATERIAL ! ","END"h- SAVE AS SCRAMBLED WORDS S ! "," A SUPER INTELLIGENT PERSON ! ",Lǃ" BRAIN POWER ! "," VERY GOOD ! "," YOU HAVE GREAT MERIT ! "," A SUPERIOR PERSON ! "," A CHAMPION ! "," YOU ARE BRILLIANT ! "," PRECISELY ! "," TREMENDOUS GUESSER ! "," VERY ACCURATE ! ";-Qǃ" QUITE EXACT ! "," YDONE"+8Dz DATA CHEERS +Bǃ" YOU GOT IT ! "," YOU ARE CORRECT ! "," YOU ARE RIGHT ! "," RIGHT ON ! "," YOU ARE TERRIFIC ! "," A SUPER BRAIN ! "," YOU ARE VERY SMART ! "," HIGHLY INTELLIGENT ! "," FANTASTIC ! "%,Gǃ" PHD CANDIDATE ! "," HEAD OF CLASSHERE IS SMOKE THERE IS FIRE","TWO HEADS ARE BETTER THAN ONE","KILL TWO BIRDS WITH ONE STONE"+ă "EASIER SAID THAN DONE","LOVE IS BLIND","FORBIDDEN FRUIT IS THE SWEETEST","MAKE HAY WHILE THE SUN SHINES","HASTE MAKES WASTE","BLOOD IS THICKER THAN WATER","E GATHERS NO MOSS","WHO HAS BEEN EATING MY PORRIDGE","STILL WATERS RUN DEEP","A LITTLE KNOWLEDGE IS A DANGEROUS THING"\*ă"SEEK AND YOU SHALL FIND","THE GRASS IS GREENER ON THE OTHER SIDE","LOSE LIPS SINK SHIPS","THE EARLY BIRD CATCHES THE WORM","WHERE TTCH IN TIME SAVES NINE","REPORTS OF MY DEATH ARE EXAGGERATED","ASK AND YOU SHALL RECEIVE","CHARITY BEGINS AT HOME","GREATER LOVE HATH NO MAN","YOUTH IS WASTED ON THE YOUNG"v)ă "A NEW BROOM SWEEPS CLEAN","I NEVER MET A MAN I DID NOT LIKE","A ROLLING STONEP"'@ă "WALTER MATTHAU","JACK LEMON","CHEVY CHASE","ALI MACGRAW","ROBERT DE NIRO","LAUREN BACALL","HUMPHREY BOGART","WILLIAM HURT","MARILYN MONROE","YUL BRYNNER","WILLIAM SHATNER","KATHARINE HEPBURN","GINGER ROGERS" '|IJ DATA SAYINGS (ă"A STI<<<<$0'0 $ ʚhiahi ȱ @  @i$0,ɛо``000 ! ! "@ + ! ! ! "! !!"! $! "! !! "! $@$@$! "@ + *$0'0 $ ʚhiahi ȱ @  @i$0,ɛо``<<<Y <<Y <<<<<<<<Y <<Y    "$0$  0    $0'0 $ ʚhiahi ȱ @  @i$0,ɛо``! ! ! ! @+! ! ! ! ! @+` 0"! ! ! "! ! ! "! 0,ɛо``,' .' ,' .' ,.' ,,M)' *' )' *' )*' ))M'' )' '' )' ')' ''' )' '' %' '' %' '' %' $0'0 $ ʚhiahi ȱ @  @i$0,ɛо``$  0$0,ɛо``   H @ 000   @` 0   `0  H0  H$0'0 $ ʚhiahi ȱ @  @i$ȱ @  @i$0,ɛо``   U    @0!   ! $0'0 $ ʚhiahi ȱ @  @i  "     Y$0'0 $ ʚhiahi ȱ @  @i$0,ɛо``00000@$0'0 $ ʚhiahi ! ! ! ! ! ! ! ! ! ! !  !  ! ! ! ! ! ! @$0'0 $ ʚhiahi ȱ @  @i$0,ɛо``"YY YY< <  YY #   #     Y " $0,ɛо``' M' M' M' :::M' M$0'0 $ ʚhiahi ȱ @  @i$0,ɛо``! ! ! ! ! ! !  ȱ @  @i$0,ɛо``      ! " ""w'   Y  <   w'$0'0 $ ʚhiahi ȱ @  @i@i$0,ɛо``00  00  00  00  00  00  00    $0'0 $ ʚhiahi@  @i$0,ɛо``! ! @! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! "@! ! ! ! +$0'0 $ ʚhiahi ȱ @  0 $ ʚhiahi ȱ @  @i$0,ɛо`` !  +!  +!  +!  99$0'0 $ ʚhiahi ȱ Ѕ--0./` --0./` ,,0./`,,0./`øz{stmmggaa[\VWQRMMHIDE@A==9:663300-.++()&&$%"# !ABCDEdFBGHHIJqKCL TO ";::"SPIN";::", TO GUESS THE PUZZLE";:CASH(C)250ĺ" OR TO BUY A VOWEL ";y6*6 N---------------- WHEEL OF FORTUNE JOE ISHAM ---------------- 8:.5B'QR15:(7);:PAUSE155:PAUSE,QR:_5*8:1:"YOUR CASH IS $"CASH(C)" ":9000:5*16368,0:16384,128:16368,0:FF(((78)(79)256)):5*QR1(REAL$):QR$(REAL$,QR,1):QR$" "QR$"-"QR$"'"IP((QR$)64)IP((QR$)64)16H(CM)0/4%CM::1:29::"GRAND TOTAL":34,2P4%CM13:GT(CM)GT(CM)CA(CM)4%2CM:31:CM:2CM:33:0(GT(CM)10000)(GT(CM)1000)(GT(CM)100)(GT(CM)10));GT(CM):CM:4%PAUSE11000:PAUSE:5'11:"PRESS RETURN TO SPIN ";ZZ$:(37):86 3YLL:]3@:PL$(C);" WINS!!!":LOOP15:198:LOOP:9499:PAUSE11000:PAUSE:PZ:20003(#:3:31:1:4:31:2:5:31:3::2C:31:C:3)#2C:33:0(CASH(C)10000)(CASH(C)1000)(CASH(C)100)(CASH(C)10));CASH(C):4%:CM13:CMCCASSE=2p21:958::"PRESS C TO PLAY AGAIN, Q TO QUIT ";:YN$Z2q::YN$"C"FF(0)::m2rYN$"Q"6000s2W2XLL1(UL$):(UL$,LL,1)GUESS$Ģ11:"SORRY, YOU'VE USED A USED LETTER.":PAUSE11000:PAUSE:(37):868:LL(UL$):LL:11000::255 YOUR GUESS?":9:868:GU$:9:868f1KGU$RE$Ģ8:868:"SORRY, THE ANSWER WAS...":16:RE$:21251L16:RE$:8:868:"RIGHT!!!!!":GTGT50002M20:"TODAY, YOU WON...$";GT:"CONGRATULATIONS!!!!!":LOOP15:198:LOOP:PAUSE1500:PAU ";:VO$X0F(VO$"A"VO$"E"VO$"I"VO$"O"VO$"U")ĺ(7);:21170GL15:GG$(L)(CN$,L,1):L:GG$(6)VO$0HL16:LOOP1(REAL$):(REAL$,LOOP,1)GG$(L)Ģ16:LOOP:GG$(L);:1980ILOOP,L$1J8:1:868:"FOR $5000, WHAT'S IS : ";::IT$(ZT):b/BL115:L:868:L:8:"NOW, TYPE FIVE CONSONANTS, ALL AT ONCE ";:CN$/CL15:KN$(CN$,L,1):KN$"@"KN$"["(KN$"A"KN$"E"KN$"I"KN$"O"KN$"U")ĺ(7);:1:L5:L:2114/DL:9:8680E8:"NOW, INPUT THE VOWEL ANY KEY WHEN READY.":11001c. QQ126:IP(QQ)0:QQ:ZT((1)QA1):REAL$REAL$(ZT):UP(ZT)2080w.*11002:UP(ZT)1.>16:LOOP1(REAL$):(REAL$,LOOP,1)"@"(REAL$,LOOP,1)"["ĺ(95);:2112.?(REAL$,LOOP,1);.@LOOP::/A23:"THE PUZZLE  @i$0,ɛо``FF$ i#$ $ $ $ FFFF$ i#$ $ $ $ FF F F$ F $ $$ $ $ $ $ i#FF$ F$$ ] /_""  0  0000$0'0 $ ʚhiahi ȱ @)4X>22HHR(21):"DO YOU WISH TO CHANGE ANYTHING? ":10[\AN$"Y"ī3010f(21):958:"DO YOU WANT TO SAVE THESE WORDS NOW?":10hAN$"Y"ė:2370jAN$"Y"ī730 p(23):"STUDY THESE WORDS...WHEN YOU'RE READY TO BE TESTED PU"PLEASE RE-TYPE THE WORD CAREFULLY":5402 e ----------------LIST WORDS-----------------m :(3):"HERE IS A LIST OF THIS WEEKS WORDS:":N15ī800X1NX;". ";A$(X), X830 X1N*X;". ";A$(X64:(5):"PLEASE TYPE IN EACH WORD CAREFULLY"L10)"AND PRESS RETURN"WA$(N)bX1N13:"WORD NUMBER ";X;" ";:"";A$(X)N:(8):"IS THIS THE CORRECT WORD?"l(13):16)A$(X):10AN$"N"ī69074:730:(5)*--------------ENTER NEW WORDS-------------2 ?64:(5)k"HOW MANY WORDS IN THIS WEEKS LIST?":"I CAN HANDLE UP TO 30 ";N$N(N$):N1ī400N31ī490(5)"I CAN ONLY ACCEPT 30 WORDS...SORRY!"223900ILL BE SHOWN";6:"IF YOU SCORE LESS THAN 80%, YOU WILL"Z@"HAVE TO REPEAT THE LIST"bJ22T(15):"IF YOU SCORE HIGHER YOU WILL HAVE "^"YOUR CHOICE."h22rV20:Z$"TO BEGIN, PRESS ANY KEY":25|WOOSEY$2590 * -220(15):"THEN EACH WORD IN ORDER WILL BE"W"REPEATED-- AFTER WHICH YOU MUST"y"RE-TYPE THE WORD CORRECTLY""(YOU WILL HAVE 3 TRYS)"V20:Z$"WHEN YOU HAVE READ THIS, PUSH ANY KEY":25"NS$ ,74:(10):"AT THE END YOUR SCORE W -----------------------------INSTRUCTIONS--------------------K :(5):"THIS PROGRAM WILL ASK YOU TO TYPE IN":"THIS WEEK'S SPELLING LIST."22(10):"AFTER YOU HAVE DONE SO, THE ENTIRE LIST WILL BE REPEATED FOR YOU TO STUDY"::::Z124:::d2790)n50003r6000?x:2140i::V10:L$" HI "NA$:45q23:V12:Z$" WELCOME TO OUR SPELLING BEE":252168:(10):"DO YOU KNOW THE RULES ?"10AN$"Y"ī390 CT LEFT:G24:Z3901:32,Z:33,40Z:::Z124:::HH SLANT RpI24:Z140:33,Z:::Z124:::J SLANT FROM CENTER K24:Z1901:32,Z:33,(20Z)2:::Z124:::L SLANT FROM EDGES M24:Z120:33,Z:32,0::32,40Z: @ VERTICAL - CENTER WIPEQ AZ1901:32,Z:33,402Z:ZZ115::::k B TWO WAY CENTER WIPE CZ1901:32,Z:33,402Z:34,(Z2):35,24(Z2)::: D SIMPLE SCROLL UP EZ124::ZZ(16336)(16336):ZQ150:::F SLAN6)X(16336)(16336)X(16336)(16336)X(16336)(16336):ZT 7255::f 8 COLUMN WIPE 9A140:33,A:B110::::A115:: ; < L TO R WIPE =Z140:33,Z:ZZ115:::: > R TO L WIPE ?Z3901:32,Z:33,40Z::Z2(Z2)Z$Z$" ":ZZ1b +Z10:V:ZZZ211:20Z1:Z1Z11:(Z$,Z1);(Z$,Z1);:::255: - SLOT MACHINE TEXT REQUIRES THESE VARIABLES: /V:240 1Z1(L$):Z$(L$,Z,1) 3ZZ32255:(ZZ);:(ZZ)Z$Č1008:G 5X(16336)(1633ARIABLES:= Z$Z$" "k !240:Z039:V:40Z:(Z$,Z1)::255: # LEFT PULL REQUIRES THESE VARIABLES: %235:Z1(Z$):V:1:(Z$,Z)::255: ' CENTER PULL REQUIRES THESE VARIABLES: )235:Z(Z$):AN$"Y"ī15 AN$"N"ī15$ 11, :< Z11000:L Z11000:\ Z11000:l Z11000:r   CLICKS REQUIRES THESE VARIABLES: 180:V:Z1(Z$):(Z$,Z,1);:ZZ(16336)(16336):255:::  RIGHT PULL REQUIRES THESE Vt&SS16368:100:(4);"OPEN TSPELL":(4);"DELETE TSPELL":(4);"OPEN TSPELL":(4);"WRITE TSPELL"::(4);"CLOSE TSPELL":S16368 CV(37):CV20CV20:SS,0 (CV3):10:"CHOOSE ";::"Y";::"ES OR ";::"N";::"O ";:AN$                AD";OLD$& N*& N0ĺ"STOP":K$:20725& A$(N)@& X1NN& A$(X):Xe& (4);"CLOSE";OLD$n& 730~& :ER(222)& ER5ī2880& :(5)& "I CANT FIND THAT FILE. TRY AGAIN"& "OR START A NEW LIST"' (10):"DO YOU WANT TO MAKE A NG A NEW LIST?":10%%F AN$"Y"ī400X%Z (15):"WHAT PAGE DID THE OLD LIST COME FROM?"{%d 17:"PAGE NUMBER ";U$:U(U$)%i U1ĺ(7):2650%n OLD$"PAGE "U$%x :(5):"HMMM...LET'S SEE IF I CAN FIND THAT"% % (4);"OPEN";OLD$& (4);"RE"CLOSE";NO$$ 68:$ (20):"WORDS NOW STORED ON DISK!"B$ 22H$ N$ $( "I CAN REMEMBER AN OLD WORD LIST":"IF YOU SAVED IT":"OR YOU CAN GIVE ME A NEW LIST"$- :"(PAGE 5 CONTAINS A SPELLING LIST TO GET YOU STARTED)"%2 (10):"ARE YOU MAKI,".#t "ALWAYS REFER TO THIS PAGE NUMBER: ";U6#y 22_#~ (15):"I WILL NOW SAVE THESE WORDS"j# X1Nx# A$(X):X~# # (4);"OPEN";NO$# (4);"DELETE";NO$# (4);"OPEN";NO$# (4);"WRITE";NO$# N# X1N# A$(X):X $ (4);"";NA$ " c" 64:"IF YOU HAVEN'T ALREADY DONE SO":"DO YOU WISH TO SAVE THIS WEEKS LIST? ":10v". AN$"N"ī2070"B (5):958:"WHAT PAGE DID THESE WORDS COME FROM?""L U$:U(U$):U1ī2370"` NO$"PAGE "U$#j (10):"TO RETURN TO THESE WORDSY"ī730!R2330!W2070!!\(!f96!pCOL039D!z0,39COLJ!R!15a!COL1225o!5,25COLu!|!0!8,2214!14,1714!8,2217!8,2222!Z01000:Z!::(10)!10)"WHAT IS YOUR NAME?"" (12):(13)::25,2710:24,2814, 30,3510:10,1833? CA:AB:BC:ZP Z01000:Z\ :2330w :(15):15)"THE END" 2080 :(4)"RUNMENU" 216,0: *70:(15):"YOUR SCORE IS PRETTY GOOD" 4"DO YOU WANT TO TRY AGAIN? ":10!HAN$"70::A0:B9Z03!B8X039:0,39X:X?Am10,184:4,810:4,818:15,188:7,91510,1811:11,1510:11,1513:10,1315:12,14:13,15:14,16:15,17:15,1810,1817:17,2110:17,2014:17,2118 11,1824:11,1828:392:S$(S):V14:Z$"YOUR SCORE WAS: "S$:39jDI$(((S100)(N3)))"%":V17:Z$"THAT'S "I$:39tI6540|N20XPER(S100)(N3)bPER100ī1940lPER80ī2090v70:(15):"YOUR SCORE ISN'T BAD, BUT TRY AGAIN"22730 (14)1"YOUR CURRENT TOTAL SCORE IS: ";SZ:"THE WORD YOU MISSED WAS: ";A$(D)`"YOUR CURRENT PERCENTAGE IS: ";((S100)(D3));"%"ZO6000:ZD&:V10:Z$"WE'RE DONE!":390N$(N3):V12:Z$"MAXIMUM SCORE WAS: "N$ THIS WORD WAS: ";SCJ(18)DT"YOUR TOTAL SCORE SO FAR IS: ";SJ^zh"YOUR PERCENTAGE IS ";((S100)(D3));"%"r22D1830:(10)"YOU HAVE HAD 3 CHANCES WITH THIS WORD"(12)"YOU SCORE NO POINTS WITH THIS WORD"10)"THE FIRST LETTER IS WRONG!":22/1380;SCSC1KSC1ī1720Q[1390fSSSCr:(10)x(05):"!!CONGRATULATIONS!! ";NA$(12):(10)"YOU ARE CORRECT!"6500"23,676:(15)@"YOUR SCORE ON SHOULD BE LEFT OFF:". (13):15)(B$,CL)622@1470L(SCSC1[2T1ī1430g<:(10)F"FROM THE BEGINNING, THIS MUCH"P"IS OK: "Z10)(B$,T1)dSC1ī1720n(18)x10)"NOW TRY AGAIN"211190%:(10):300~SOUND(16336)Z*:10703SC3;64f(10):SS,0:"NOW SPELL THE WORD: ";B$zB$A$(D)ī1510T1LAA$(A$(D),1,T)BB$(B$,1,T)BB$AA$ī1320TC(B$):(10):"YOUR WORD IS TOO LONG!":"THISD1N$L(A$(D)):D$(D)N.:V5:Z$"HERE IS WORD NUMBER "D$":":35X36520n8V12:Z$A$(D):39B(20):SS,0:" PUSH WHEN READY ";L" ";YY$VYY$""ī1180`:(15):j"PUSH BEFORE SPELLING WORD"tZ0SH ANY KEY"zZZ$p68:(10):"NOW I WILL SHOW YOU EACH WORD ":"IN THE ORDER THAT YOU TYPED THEM IN.":22(14):"AFTER YOU HAVE STUDIED EACH WORD, PRESS ":22:"YOU'LL HAVE 3 CHANCES TO SPELL THE WORD CORRECTLY"22S0:"PRESS TO CONTINUE.";0RRRR1:Q$6E":CC1:NR,CN610e6N1((1)N1)v@R(N1)1310JR(N1)1TI1N1^N2hJ1N2rW$(J)|JIJ1N2:L(J)J:JL(0)N2G((1)N21):L(G)L(LOTHER WORD IN THE ENGLISH LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME MEANING."` " I CHOOSE A WORD -- YOU TYPE A SYNONYM." "IF YOU CAN'T THINK OF A SYNONYM, TYPE THE WORD 'HELP' AND I WILL TELL YOU A SYNONYM." 23:7 Y M" ::- R$(7),W$(10),L(30),R(30)j R$(1)"RIGHT":R$(2)"CORRECT":R$(3)"FINE":R$(4)"GOOD!" R$(5)"RIGHT ON!" R$(6)"YOU GOT IT ON THE BUTTON!" R$(7)"AN EXCELLENT ANSWER!" RR0:XX0 C0Z "A SYNONYM OF A WORD MEANS AN2 *$  * *B  ***********************`  *PROGRAM MAY BE COPIED*~  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1983 CUE, INC. * " *********************** d n x" S Y N O N EDUCATORS *4  * *R  * SOFTSWAP *p  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * *  * (415)363-547 WEST MARIN SCHOOL > APPLE II W/APPLESOFT 8KD b ***********************  * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  *::::::::::::::::::::::9 ADVANCED SYNONYMp MORE DIFFICULT GUESSING OF COMPUTERS WORDS.w  MODIFIED FROM 'BASIC COMPUTER GAMES' BY  DAVID AHL (CREATIVE COMPUTING) BY  MIKE CONWAY     9,D(I):770:.nD.x768,160:769,56:770:768,120:769,0:770:l.I1631:768,P(I):769,D(I):770:r.197,243,197,160,120,160,197,243,160,120,243,220,197,183,160,160,144,144,160,120,160,183,197,220,197,243- 27,27,27,27,27,27,27,27,27,27,27,27,0,56,0,27,27,27,27,56,56,56,56,128 ,56,128 ,56,56,56,56,128 -QQ(0)- .dI113:768,P(I):7627,27,27,27,27,27,27,27,0-,I156:P(I):A,I156:D(I):G,,:21:"SPELLING BEE BY JIM WEISSMAN, M.D.":I156:768,P(I):769,D(I):(1)15:(9)39,(9)39:770:,,pI131:P(I):,zI131:D(I):g- 243,197,160,120,160,8,120,144,128,160,120,69,78,88,95,78,88,69,78,88,95,107,120,95,107,88,95,107,120,128,144,120,128,107,120, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 730 **X56#*P(X),D(X)q* 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 *A770790:I:A,I:Ah+ 243,220,197,183,220,197,243,160,243,220,197,183,220,197,243,160,160,144,128,120,144,128,160,107,160,144,12(L$):L1ī3070) LNī30706) :(10):15)A$(L)d) (12):"PLEASE TYPE IN THE NEW WORD ";NW$r) A$(L)NW${) 730) :(15)) "THAT WORD IS NOT LISTED") Z0100) S16336)& SOUND(S)(S)(S)(S)(S)(S))0 Z)5 S16368*:ADY LISTED YOUR WORDS?":10-(| AN$"Y"ī7303( 9( W( ER254Ĺ216,0:K$:2072( :"YOU MUST TRY TO ANSWER THE QUESTION CORRECTLY--IF YOU ARE UNSURE--PRESS 'CNTRL C'"( Z03000:Z( ( (22):SS,0:"WHICH WORD NUMBER? ";L$) LNEW LIST? ":10''" (4);"DELETE";OLD$9', AN$"Y"ī400E'6 :2650X'@ ER255ī2970'J :(10):"DO YOU WISH TO STOP THIS PROGRAM? ":10'T AN$"Y"2072'^ :(10):"DO YOU WANT TO START OVER AGAIN? ":10'h AN$"Y"Ĭ(r :(10):"HAVE YOU ALRE$"HE WHO LOVES PLEASURE SHALL BE POOR.":YM$"WHERE THERE IS SMOKE THERE IS FIRE.":M$"A ROLLING STONE GATHERS NO MOSS.":M$"EXPERIENCE IS A HARD TEACHER.":M$"A POEM AS LOVELY AS A TREE":M$"RED SKY AT NIGHT, SAILOR'S DELIGHT":,\M$"FOUR SCORE AND SEVEN YEARS AGO":ZaM$"WHEN IN THE COURSE OF HUMAN EVENTS":fM$"BEAUTY IS ONLY SKIN DEEP.":kM$"CHILDREN OBEY YOUR PARENTS.":pM$"A WORD TO THE WISE IS SUFFICIENT.":uM$"A FOOL'S MOUTH IS HIS RUIN.":*zMɭ؍ԍ؍ͭ؍ԍӍ؍έɍ؍ԍō؍íɭԭ؍ō؍؍ō؍؍ҍ؍ϭ؍̍؍ҭ؍̍؍ӭϭ؍č؍ӭԭ؍ԍ؍­֭ԭ؍ō؍ȭ؍͍ō؍ԭϭ؍ȍ؍ԭ؍ō؍ϭ؍Ӎҍ؍ԭ؍Ѝ̍؍ϭ֭؍׍íέϭ؍ԍ؍ĭӭ؍ٍ؍έ؍΍؍ϭ؍ԍō؍ɭ؍ԍ؍̭؍̍؍ĭ؍ҍ؍ɍō؍؍ҭϭ؍ҍ؍ҭ؍ҍ؍ǭӭ؍ōˍ؍ҭɭ؍E:: THE NUMBER OF SETS.8:: THE NUMBERS BEFORER:: THE WORDS SET THEm:: NUMBER OF POSSIBLE:: RIGHT ANSWERS.:::::::::::::::::::::::: RIGHT ANSWERS.::::::::::::::::::::::::::::R:::::::::::::::O","INTIMATE","COMRADE","COMPANION" -fIp::::::::::::::::::::::ez:: WORDS MAY EASILY BE:: CHANGED BY REVISING:: THE DATA STATEMENTS:: STARTING AT:: LINE 750.:::: THE NUMBER IN LINE:: 750 DETERMINES THCHASM","ABYSS" M> 7,"PUSH","SHOVE","THRUST","PROD","POKE","BUTT","PRESS"H 6,"RED","ROUGE","SCARLET","CRIMSON","FLAME","RUBY"R 7,"PAIN","SUFFERING","HURT","MISERY","DISTRESS","ACHE","DISCOMFORT"'\ 7 ,"FRIEND","ACQUAINTANCE","BUDDY","AMIGANDARD","CRITERION"L 5,"SMALL","INSIGNIFICANT","LITTLE","TINY","MINUTE"  6,"STOP","HALT","STAY","ARREST","CHECK","STANDSTILL" * 6,"HOUSE","DWELLING","RESIDENCE","DOMICILE","LODGING","HABITATION"4 7,"PIT","HOLE","HOLLOW","WELL","GULF","IT."G$:(G$)27730-(G$)137106100W:10:12:"*** THE END ***"_:i 11 5,"FIRST","START","BEGINNING","ONSET","INITIAL"  5 ,"SIMILAR","ALIKE","SAME","LIKE","RESEMBLING"  5,"MODEL","PATTERN","PROTOTYPE","ST SCORE WAS ";((RRXX)RR100);"%"(J"CORRECT ON YOUR FIRST TRY."Q8x" PRESS RETURN TO CONTINUE ";QA$"NOW WHY DON'T YOU TRY IT AGAIN AND SEE"::"HOW MUCH BETTER YOU CAN DO."21"PRESS TO CONTINUE, TO":"QUANY KEY TO GO ON>";&27020G1((1)L(0)1)8:oD"**** A SYNONYM OF ";W$(G);" IS ";W$(L(G1));".":NL(G1)L(L(0)):L(0)L(0)1:440XL(G1)L(L(0)):L(0)L(0)1:440b:"SYNONYM DRILL COMPLETED.":620lv8""VERY GOOD! YOUR(0)):L(0)N21:C" WHAT IS A SYNONYM OF ";W$(G);"?":"--> ";A$VA$"HELP"560bK1N2oGK490A$W$(K)510KXXXX1::" TRY AGAIN."::440:Z$R$((1)71):20(Z$)2Z$U1800:U23:7:"1300.H"TOTAL SCORE....."NR((R(RW))100);"% RIGHT"n\((W(RW))100);"% WRONG"f:"PRESS 'A' TO PRACTICE AGAIN WITH THE"p:"WORDS YOU MISSED."z:"PRESS 'S' TO END"A$A$"S"ĀZ121300"X"810B$(Z,J):J!810B"RIGHT":RR1:PQ1200:PQeB$(Z,2)"XXX"B$(Z,2)"X"820:"THE OTHER CHOICES WERE..."PQ1150:PQ J15B$(Z,J)"XXX"B$(Z,J)"X"810 B$(Z,J):J*:"PRESS THE SPACE BAR TO CONTINUE01360 :: DDE$""620* NY15? XDE$B$(Z,Y)740F bYa l"WRONG":PQ1300:PQk vWW1} C$(W)A$(Z,C) Y15 D$(W,Y)B$(Z,Y) Y :"THE CORRECT ANSWERS ARE...." PQ1100:PQ J15B$(Z,J)"XXX"B$(Z,J)A$(C,Z)R$4 R$B$(X,Z):B$(X,Z)B$(C,Z):B$(C,Z)R$; ZB XH T Z1XXb 16368,0l 1300w DE$"" "QUESTION #";Z R;" RIGHT" W;" WRONG" C((8)6)1 A$(Z,C)"X"A$(Z,C)""520 ::15);A$(Z,C) &:: XX"B$(X,Z)"X"350 T310 ^L$(A$(X,1)" ",15)(B$(X,1)" ",12)(B$(X,2)" ",12) cL$ h230 rXXX1:D$;"CLOSE ROOT ";G |X1XX:C((8)XX)1 Z110 R$A$(X,Z):A$(X,Z)A$(C,Z):00 X07 "HERE IS A SNEAK PREVIEW OF SOME WORDS"A 34,1G Z OP$;"ROOT ";Gm RD$;"ROOT ";Gs } XX1 Z0 ZZ1 A$(X,Z) A$(X,Z)"X"300 A$(X,Z)"XZX"370 "250 ,Z0 6ZZ1 @B$(X,Z) JB$(X,Z)"X CUM- THROUGH FID-"< "4. FILI- THROUGH GYRO- ^ "5. HAL- THROUGH LOG- "6. LUC- THROUGH NOUNC- "7. ONYM- THROUGH RE- "8. REG- THROUGH VOL- 16368,0 G(16384)176 G1G8182 13  D$(4),(OP$D$"OPEN "?2RD$D$"READ "i<A$(33,10),B$(33,10),C$(33),D$(33,10)uF:1300P"ON WHICH SHEET WOULD YOU LIKE TO BE"Z"TESTED:"d"1. A- THROUGH BI-n"2. BIBLI- THROUGH CRESC-  x"3.     g  D$(4)'D$;"OPEN VOCAB,L150"@D$;"WRITE VOCAB,R0"H#X0O(Xe2D$;"CLOSE VOCAB" .LD THIS BE REMOVED?":502:A$"Y"B%(I)125009I~ :"WHAT IS TODAY'S DATE? (MM/DD/YY) ";DA$ D$;"RENAME VOCAB,VOCAB";DA$: D$;"OPEN VOCAB,L150"D J0:I1RE%N B%(I)18300X JJ1:D$;"WRITE VOCAB,R";Jb100 @%EI1RE%:B%(I)0:I/J20009T2100S^I1RE%:XI:2500:I]h2600jrI1RE%|::"WORD ";I;" OF ";RE%:5::"WORD:":::" ";A$(I)50010::"MEANING:":::32,5:6:ST$B$(I):605:32,0)::S$"SHOU BI1TY%7LJ25(A$(I))11:A$(I)A$(I)" ":JCVA$(I);a`(B$(I))55ĺB$(I):6300jjX55t(B$(I),X,1)" "XX1:6260~(B$(I),X1):B$(I)(B$(I),X1)(B$(I))55ĺ25);B$(I):630025);:6300:ID$;"PR#0" 2100'I1TY%:XA%(I):2500:I12600;6200::"WHAT WORD SHOULD I START WITH? ";:NHRE%TY%:NL1:545:FI%V1:5:10::"READING THE WORDS.":2100I1TY%:XFI%I:2500:I260062008D$;"PR#1":" 80N" TYPED? ";:NHRE%:NL1:545:TY%V::"DO YOU WANT"::" 1. A RANDOM LIST"::" 2. IN ORDER FROM THE FILE? ";:NH2:NL1:545::V6050,6100:5:10::"SELECTING THE WORDS."::NRE%:580:5:10::"READING THE WORDS.": I1RE%-::"WORD ";I;" OF ";RE%:Q5::"WORD:":::" ";A$(I)Z50010::"MEANING:":::32,5:6:ST$B$(I):605:32,0500 I100o ** TYPE A WORD LISTpz2000$"HOW MANY WORDS DO YOU WANT %(I):2500:I2600$I1RV%D::"WORD ";I;" OF ";RV%:h5::"WORD:":::" ";A$(I)q50010::"MEANING:":::32,5:6:ST$B$(I):605:32,0500I"10020002100I1RE%:XI:2500:I2600CT? ":501! A$"N"ĺ::30101 II1:3005G ** FLASH CARDSMW2000"THERE ARE NOW ";RE%;" WORDS IN THE FILE."::"HOW MANY WORDS WOULD YOU LIKE TO REVIEW? ";:NHRE%:NL1:546:RV%VNRE%:5802100 I1RV%:XAA$(I),B$(I) (( D$;"CLOSE VOCAB".2 G ** INPUT NEW WORDSO I1f ::"WORD ";I:: "WHEN YOU ARE FINISHED, ENTER '.' AS THE WORD.":: "WORD: ";A$(I) A$(I)"."II1:1000 :"MEANING: ";B$(I)  :S$"IS THIS CORREA$(J):B$(J) $J/ .D$;"WRITE VOCAB,R0": 8RE%IP BD$;"CLOSE VOCAB"Y L100l  ** READ DATA D$;"OPEN VOCAB,L150" D$;"READ VOCAB,R0" RE% D$;"CLOSE VOCAB"  4D$;"OPEN VOCAB,L150" > D$;"READ VOCAB,R"X  ^II40(0)11:(ST$,II,1)" "ĺ(ST$,II1):ST$(ST$,II1):II1:608W _II1ĺ_ `IIv a(ST$)40ĺST$: b605 c  ** STORE DATA D$;"OPEN VOCAB,L150" D$;"READ VOCAB,R0" RE% J1I D$;"WRITE VOCAB,R";RE%J :X11600::VT2:868:VT1:HT1:547/ %M C ** NO DUPLICATE RANDOMSX DI1Np EA%(I)(((1)N)1) FXA%(I):B%(X)1581 GB%(X)1 H"THINKING":I::"OK, I'M READY." I \ ** OUTPUT ST$ WORD BY WORD ](0)(ST$)40ĺST$:K";::16384,128,1:16368,0:0  ** ONLY Y/Na S$;" (Y/N)? ";:A$:A$:A$"Y"A$"N"501g  ! ** INPUT W/IN RANGE NH TO NL "NHNH9 #VT(37):HT(36):V$:V(V$):VNHVNL549) $VT2::" MUST BE BETWEEN ";NL;" AND ";NH;" ":"" {:" 4. TYPE A WORD LIST"I |:" 5. DELETE WORDS FROM LIST"] }:" 6. END"w 2:20:"CHOICE >> "; NH6:NL1:546 V3000,4000,5000,6000,8000,199  ** PRESS ANY KEY 23::" PRESS ANY KEY TO CONTINUE... U  D$(4)N2000:A$(RE%100),B$(RE%100),A%(RE%100),B%(RE%100):2600 ** RE%= NUMBER OF RECORDS, A$()=WORD,B$()=DEFINITIONSdn"SELECT ONE: "x:" 1. INPUT NEW WORDS"y:" 2. FLASH CARDS" z:" 3. REVIEW ALL WORDS      E LIKE HONEY.":;" M$"CHILDREN ARE POOR MEN'S RICHES.":S" M$"GOOD AS GOLD":|" M$"FASTER THAN A SPEEDING BULLET":" M$"BAREFOOT BOY WITH CHEEKS OF TAN":" M$"LIFE IS REAL, LIFE IS EARNEST.":" M$"OLD SOLDIERS NEVER DIE.":# M$"AS !` M$"PAINT THE TOWN RED.":L!e M$"KEEP YOUR MOUTH AND KEEP YOUR LIFE.":p!j M$"AN APPLE FOR THE TEACHER":!o M$"A FOOL'S HONOR IS SUMMER SNOW.":!t M$"NICE GUYS FINISH LAST.":!y M$"A CHEERFUL HEART IS GOOD MEDICINE.":"~ M$"KIND WORDS AR' = M$"PATIENCE IS PASSION TAMED.":O B M$"HERE TODAY AND GONE TOMORROW":u G M$"ONE GIANT LEAP FOR MANKIND": L M$"BLESSED ARE THE PEACEMAKERS.": Q M$"TO BE OR NOT TO BE": V M$"UNCLE SAM NEEDS YOU.": [ M$"GARBAGE IN, GARBAGE OUT": M$"AS HUNGRY AS A BEAR":6 M$"AS FAT AS A PIG":T$ M$"AS HAPPY AS A LARK":z) M$"THANK GOODNESS IT'S FRIDAY":. M$"LAUGH AND THE WORLD LAUGHS WITH YOU.":3 M$"REJOICE IN THE WIFE OF THY YOUTH.": 8 M$"2 4 6 8 WHO DO WE APPRECIATE?":E ME LIBERTY OR GIVE ME DEATH.":KM$"WHO'S THE FAIREST OF THEM ALL?":x M$"LANGUAGE IS THE DRESS OF THOUGHT.": M$"NO MAN CAN SERVE TWO MASTERS.": M$"AS CUTE AS A BUTTON": M$"AS MAD AS A HORNET": M$"AS STRONG AS AN OX": ELEPHANT":'M$"AS SLY AS A FOX":IM$"AS PRETTY AS A PICTURE":tM$"KNEE HIGH BY THE FOURTH OF JULY":M$"A LISTENER IS A SILENT FLATTERER.":M$"THE POT CALLED THE KETTLE BLACK.":M$"IT'S RAINING CATS AND DOGS.":!M$"GIV"ALL'S WELL THAT ENDS WELL.":RM$"FAILURE IS THE LINE OF LEAST PERSISTENCE":M$"DON'T BURN YOUR CANDLE AT BOTH ENDS.":M$"TIME AND TIDE WAIT FOR NO MAN.":M$"AS BUSY AS A BEAVER":M$"AS BUSY AS A BEE": M$"A MEMORY LIKE AN:4M$"DON'T BITE OFF MORE THAN YOU CAN CHEW.":eM$"ASK WHAT YOU CAN DO FOR YOUR COUNTRY.":M$"ONE IF BY LAND, TWO IF BY SEA":M$"AS HARMLESS AS A DOVE":M$"GO WEST YOUNG MAN.":M$"A GENTLEMAN'S WORD IS HIS BOND.":M$Ѝҍ؍͍Ͱ؍ԍ؍ϭ؍čҍō؍ҭҭ؍؍ŭ؍ˍ΍؍؍΍؍؍έ؍؍ҭ؍ȍ؍ԭ؍ˍˍ؍ҭϭ؍ō؍̭ϭ؍ōǍ؍ϭέ؍č؍Í؍ōō؍΍ԍ؍̍Ӎ؍ɭí؍č؍έӍԭ؍ōԍ؍ԭ؍ҍ؍ͭͭͭ؍ō؍­íЭ؍ԍǍ؍ԭ؍؍ɭέ؍ٍ̍؍؍ōҍ؍̭؍ˍˍ؍ȭ؍Ǎ؍ɭ؍ҍ؍ԭĭ؍ԍ؍̭ӭ؍ōȍ؍ĭӭ؍Ǎȍ؍ԭԭ׍΍؍ҭϭ؍ҍ؍ɍԍ؍ҍΠύ؍ϭ؍ƍō؍̭ɭҭɭ؍ҍ؍ŭխ؍̍č؍ɭխԭϭ؍ύ؍ɭ؍ˍ΍؍ϭͭ؍ōԍ؍խɭ؍ҍ؍ŭŭ؍ōĠƠōΠԠƍ؍ϭҭͭɭ؍΍؍ɍԍ؍Ǎԍ؍؍ҍ؍ȭ؍̍ҍ؍ĭ֭؍­έŭӭέ؍ԍԍٍ͍΍؍ҍύ؍ԍȍ؍ĭ؍ύčԍ؍ǭí؍ύ؍ҍɍύ؍͍č؍ҭϭ؍ҍԍ؍ɭɭ؍ȍč؍̭؍ˍ؍؍Ѝ A$(I):B$(I)l I.v D$;"WRITE VOCAB,R0"5 JK D$;"CLOSE VOCAB"T 100ԍԻŻȍ؍ǻӠƠӍũōŠҠȠԍɍٍ͍ӠΠĠٍٻōԍлōٍō٠ҍōŠƠǍ͍ԍŠ٠ǻŠРΠԍÍӻλԍԍ̠ǻčōŠǍčǠŠӍōػōҍٻٍРΠ͠ˍō٠ōčōԠҠǍō΍ōĻȍӍōōčӠ͍ō!! ! ! ! ! !!!!!!!!!""" " " " " """""""""          ٍӻӠƠȍōȻΠϠҠ΍ō΍č̻λčōŠǠ΍̠ŠǠԍӍٻԭčԍǠΠŭ˭îԍҍҠٍÍǠԻǍōȍύà͠ԠϠÍč̍ǠϠȍҍҍō٠ƠǠ΍ٍ̍ŠҠӻ׍č̍ŠԠĠĠӍҍٍٍԍōһōӍƠŠŠč͍ĠҠΠĠԠԠΠǠĠǍԍ˻̠ϠӍōӻԠԍٍȠĠǍ