' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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- ( D Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`pزfzfzfzSGLSGL/S*/S*SGLSGLgYlв fLSGLSGLSGLSGLSGLиUYUYUYSGLSGLfzfGSGLSGLPزIv\вIv\в fLSGLSGLyHpyHp fLSGLSGL(ifY|7iHv\вIv\в fL fLyHpz| fL fLmJHmJHY+jزZJJتeyXJءh\yHpyHpyHpItlItlItlItlhehehefGfGfGY+jزZJJتeyXJءh\ಌz|z|z|pزIv\вIv\в/S*/S*/S*,Sh:Uj"5BO\iv,9CPZahu಍fzfzfz/S*/S*/S*/S*hyijвhyijвhyijЀyv|yv|UYUYCiCifzfG/S*/S*I#mm @?IiA  N`3 L ɍ4  Jɍ䩮 Jꭟ)} LB`L(  ) 7?O_o *0+ %,& 1-.'/!$"#kl Nm Nm Nm Nm Nm Nm Nm Nm N쭺  N   N쭼  N쭽  N쭾  N쭺0L쭿  N  N  N  N  N  NL쭺))a[N$\c(O&_O:c^O$acCb/CR_.N R`OU>a[&RcN@Yc^O[UHc'aN RO:c^O[cAN_)_N6cc>^&[a9b^>a[b[44[W['W[W['W[W[W[[cN_QPPW[PP5PIP5cZ;NZBPPKPHOP&a[&a[a[P VCSVG#V@[Vى::A '[W[WW[[W,PCRcB]O6YKY:U[Aa[[@UR9cR:RN:RY_OcHR[b9[b5[cO)Y_>\aQbT.TIT$RT QTW[T R]O(T!W[T;TC[]c _ddɏ\\\Rc\.Ձd(cBc#Ή=RCRb?R-VG.)#&[+):P#(#UU=UU_)^#P.OOOOO&[[;\XR[CQX.\HX(\(W_W[[@_\)RӓW[W[W[W[W[W[[W[[aӃ[Q΁WR[ccTc(τc(ϔc;T$cT'[T9TĪ;?cCY"Փ<)[27_CBb"D;'S*K7a7_(υ!!!;RNPCR[Χ;Rcώ5ώ?ώ)RRRϓ;%YCT.?[)QbYb6bb&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&Ӯ頠Ơؠɠ鮯̠ňծҠȆРϠҠƠؠɠࠠҠՠҠҠԠɠƠɠԅϠLB΅𮒠ՠ̠Ҡàʠ͐஽ࠠɠϙ̠Ơՠ̠̮àʠȠ˃Π̠ɠ̙̠Ơ蠠ՠɠàίȠɠ̠ࠥŠɠҠ堆àŪՀ蠌KfKfKf'@XIwfq'qq QԥAF#j3ou%jww Hg,V9uXzВe8TT T mftsttttԥAF#j3ou%j#j3頀ɠԉ⮥ҠՠҠԠɠƠɠԅϠՠҠ7iHSJНSJK*eK*eK*eJ9xJ9xJ9xkk Xe XeDeEjDeEjmJHmJHIdJгIdJIdJгIdJsș̦̦̦̦ KE flUXXXXssssseeeeeew g,V9uXzвe8TT T"AGAIN?"& ET$H& "DO YOU WANT TO SEE THE INSTRUCTIONS AGAIN?":EB$X& 2100:2100s& :"TYPE 'Y' OR 'N': "|& YN$& YN$"Y"2400& YN$"N"3400& 3290&H ----- GO TO GAME ITSELF&R &\ 10:8:"THEN LET'S PLAY THE GAME!"'a 5000T GE3S (U1 W'R2D":2100S% V$"7WI2),LE3S , (A3N , TE3N , R*2/ GE2SI1ZS,,"c% 2100:2100% EO$::13:"GOOD LUCK!"% % V$"GQ3D LU3K"% EB$% 2100% 3900% RS$"R"3120% EO$& "DO YOU WANT TO SEE THE INSTRUCTIONS"::NNZS %3 L:1ZS,,"$ EB$*$ 2100:550004$ 3900F$& RS$"R"3010^$0 "TO WIN THE GAME,"$: :"YOU MUST GUESS THE WORD"$D :"WITH LESS THAN TEN WRONG GUESSES."$N " ---- ---- ---"$b ET$$l V$"7T:2 WI3N (U1 G@2M":2100%v V$"7%2 MU2S :"THAT MEANS YOU LOSE."## ET$O# "IF YOU GUESS TOO MANY WRONG LETTERS,"Y# 2100# "AND ALL THE BODY PARTS HAVE BEEN DRAWNNN "# V$"7*2N (U1+9GAL3-5OZZ2,":2100:2100# V$"7W&2 S@3 %2 ;R2,,, +++9HA3/D --"# 2100:2100$ V$"7(A2T M&3RAWNNN"7" V$"7*2N (U1 HA3/MA2NZ +++9GAL3 ---4OZZ1,,"@" EB$J" 3900\" RS$"R"2910y" "IF YOU GUESS TOO MANY"" :"WRONG LETTERS,"" :"AND ALL THE BODY PARTS HAVE BEEN"" :"DRAWN ON THE GALLOWS,"" :"WE SAY YOU ARE 'HANGED'!"#;:2100;!S EB$;:"E":2100'!T 39009!Y RS$"R"2810a!^ "BUT IF YOU GUESS A WRONG LETTER,"!h :"PART OF A BODY WILL BE DRAWN"!r :"ON THE HANGMAN'S GALLOWS!"!| ET$! "BUT IF YOU GUESS A WRONG LETTER,":2100" "PART OF A BODY WILL BE DTTER IS IN THE WORD":2100S @ V$"7I2T WI2L U2P&R3 I1N I1TS PR;2 P'R2 PL@3S":2100 J "AS THE BLANKS ARE PRINTED ON THE SCREENNN." O EB$ P :"FOR EXAMPLE: ":2100: Q "- ";:(7);:2100;:"- ";:(7);:2100;!R "K ";:EO$;:2100;:"- ";:(7)N GUESS A LETTER TO FILL A BLANK."H "IF THAT LETTER IS IN THE WORD,"t :"IT WILL APPEAR IN ITS PROPER PLACE" :"AS THE BLANKS ARE PRINTED ON THE SCREEN."" ET$, "YOU THEN GUESS A LETTER TO FILL A BLANK."1 2100:2100 6 "IF THAT LE V$"7@1 RO2 U1V BLA3/KS ,,,,,,,,,"U V$"7&3C U1KU3MPA2N&1D B!2 @1 , B&3P":2100 V$"7(E2N U1P&R2ZS *2N (U1p V$"PRE3S (U1 ,SP@3S B;R2, T:2 K;2NTI3N%1"Vr 3900:RS$"R"2407tt "IN THE GAME OF HANGMAN"y :"YOU WILL TRY TO GUESS A WORD"~ :"BEFORE YOU ARE 'HANGED'"::"FROM THE GALLOWS!" ET$ V$"7I1N (U1 G@2M U1V HA3/MA1R' TO REPEAT"2j " ------"Sk "THE READING OF THAT PAGE."m :"PRESS THE 'SPACE BAR' TO CONTINUE.":ET$n V$"7A2FT'R2 &3C P@3DJU2V I2NSTRU3K$U1NZS":2100o V$"7T!2P (U1 LE2T'R2 , ;R2,T:2 R&2P&3T (U1 R&3D&2/ U2V (A3T P@2DJ00+Q" PLEASE PRESS 'RETURN'. ";Z$4V370:R4PAUSE1300:PAUSEX>jET$;:D$(I);zEB$;:208; ET$` ----- INSTRUCTIONSb d 2100:2100:4f EO$g "AFTER EACH PAGE OF INSTRUCTIONS," h :"TYPE THE LETTER ' 28,303028,3030)28,3032732,3430E30,3234Z28,3036:36,32k$0:29,3032q.LEO$;:"OOPS! YOU LOSE! THE WORD WAS":A$NET$:"OOPS.. YOU LOOZ. THE WORD WAS":A$OE$"L":2100:100:A$:255PEB$:E$"W":21,2313411,13219->6:20,2110:3CDR3:25,2713R\11,1327Xaif6:27,2810x YOU LOST9X20324YX2X,Y28X,Y32XX2026428,32XYX228,32YX28,3228923,25119,1123*&9,11250+AX DOES BODYI]12Wb12,1624plI1720:23,25I:Ivq LEGS AND FEET321,2523:6:21,2325:3:21,2525:6:25,2725:  ARMS AND HANDS%3*21EN WE ADD THE LEFT HAND.":B:"NEXT WE DRAW THE RIGHT ARM.":f:"NOW WE ADD THE RIGHT HAND."M500,600,700,720,750,770,800,830,850,8702100E$"24P"M10200550001100 MAN9 DOES THE HEAD23,25"NOW WE ADD THE LEFT FOOT."LET$:V$"7N#3 W&2 A2D (U1 LE2FT FQ2T":EB$:s:"THEN WE DRAW THE RIGHT LEG.":EO$::"NEXT WE ADD THE RIGHT FOOT."ET$:V$"7NE3KTS W&2 A2D (U1 R!3T FQ2T":EB$::"NOW WE DRAW THE LEFT ARM."::"TH STAND5$8,123017,3010>10,247J7,824PM462,464,466,468,470,472,474,476,478,480490:"FIRST, WE DRAW THE HEAD."::"NOW WE DRAW THE BODY."::"NEXT WE DRAW THE LEFT LEG.":EO$::LL, IT'S BEEN FUN!!! SO LONG!":2100:yEO$::"YOU FOUND THE WORD! ";A$:ET$:"YOU FOUND THE WORD.":2100:2100:A$E$"L":2100:100:A$:255:EB$:E$"W":2100:2100:2100:360:"SORRY! THAT LETTER ISN'T IN THE WORD.":2100:E$"14P":458 !"/iET$:"IT TOOK YOU":53:"GUESSES!":EB$?j2100:2100tm" PRESS SPACE BAR TO CONTINUE. ";:CT$:370}o365r::(10):"DO YOU WANT ANOTHER WORD?"w:"TYPE 'Y' OR 'N': "xW$:W$"Y"50yW$"N"380z376'|::::"WE:L$(I)G$280I:R0290'300?D$(I)G$:RR1:270N"MM1:400s,I1L:D$(I)"-"ė:"YES!":2006I:50000:390TA$G$İ50000:390^:"TRY AGAIN.":2100:170h:EO$:((40(A$))2):A$:" IT TOOK YOU ";T1;" GUESSES:"GUESS A LETTER: ";G$:R0WG$""170: ----- ALLOW FOR REPEAT OF LETTERS GUESSEDh(G$)1340I126:N$(I)""250G$N$(I)ė:"YOU GUESSED THAT LETTER BEFORE!":170I:"PROGRAM ERROR. RUN AGAIN.":N$(I)G$:T1T11I1L LETTERS: ":2100 E$"E"@ I126:N$(I);:N$(I1)""200M ",";:Iu 2100:2100::2100:FS$"Y"ĺE$"C" :"THE WORD IS:":2100: I1L 2100 EO$; D$(I);" ";:D$(I)"-"2200; (7); I EB$:2100:2100"YOU DID ALL THE WORDS!!":> `:"PRESS SPACE BAR TO BEGIN."] a(16384)128DU(1):97o dQ(N(1)1) nU(Q)1100 sU(Q)1:CC1:T10 A$WO$(Q) L(A$):I1L:L$(I)(A$,I,1):I N$(1)""200 2100::"YOU HAVE GUESSED THESES 6T110ĺ"TEN":. 7T111ĺ"EE LEVEN":E 8T112ĺ"TWELVE":` 9T113ĺ"THIRT TEEN":z :T114ĺ"FORT TEEN": ;T115ĺ"FIFTEEN": <T116ĺ"SIXTEEN": =T117ĺ"SEVENTEEN": F402: ----- DRAW GALLOWS ZNC96 _::(10):B -(10):"DO YOU WANT GAME INSTRUCTIONS?"::"TYPE 'Y' OR 'N': "K .YN$~ /YN$"Y"ĺEO$:"OKAY!":ET$:"O K!":EB$:2400 0YN$"N"50 146 2I120:D$(I)"-":I:M0 4I126:N$(I)"":I:70 5 ----- SUBROUTINES TO PRONOUNCE NUMBER NAMEES 17 0,255PI: PITCH8 1,LE: NOTE LENGTHQ 771: PLAY THE NOTEW i X1100:X:  ----- SET ECHO II CODES EO$E$(79) EB$E$(66) ET$E$(84) V$(22) C1:NWC $:4000: ----- TITLE PAGE &:C):E$(5)E$"B"A(10):"DO YOU WANT FAST SPEECH?"e(12):"TYPE 'Y' OR 'N': ":FS$|FS$"Y"ĺE$"C":8FS$"N"ĺE$"E":83L$(20),D$(20),N$(26),U(50),WO$(200) 10000: LOAD WORDLIST 60000: ----- LOAD MUSIC POK               C",2<" COPYRIGHT (C), 1982 BEAGLE BROS"22P2 ----- FURTHER ADAPTED BY NANCY Z. RINKER, VSDB, STAUNTON, VA 24401, 12/84D 12/84ԍӍōԍǍǍǍǍ΍ōӍō؍čԍύȍ΍ԍӍҍӍӍӍӍ- FURTHER ADAPTED BY NANCY Z. RINKER, VSDB, STAUNTON, VA 24401, 12/84GLE BROS"0Pa0 ----- FURTHER ADAPTED BY NANCY Z. RINKER, VSDB, STAUNTON, VA 24401, 1/85E789,96:0( ----- CREDIT TO BEAGLE BROTHERS0102" MUSIC POKES FROM APPLE MECHANIC"0<" COPYRIGHT (C), 1982 BEAGLE BROS"0PE1 ----2:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3/788,3:789,96:/( ----- CREDIT TO BEAGLE BROTHERS/1/2" MUSIC POKES FROM APPLE MECHANIC" 0<" COPYRIGHT (C), 1982 BEA41:LE60:12".PI159:LE255:12(.ñB.ֲ ----- LOSING SOUNDSW. :"EACH ACCOMPANIED BY A 'BEEP',"c :"THEN APPEARS ON THE SCREEN."l ET$v 2100 V$"7@2 HA3/MA2NZS, +++9GAL3 --5OZZ2,,,," V$"7I1ZS DR*2N *1N (U1 SKR&3N ":2100 V$"7@1 RO2 U1V BLA3/KS ,,,,,,,,,"' V$"77%2 WI2L B&2 GI3VE1N O1NL&1 WU3N KL:2,,,,"Gn V$"7U1B#2T (U1 W'R3D,"Qs 2100x V$"7%2 WI2L NO2 H#3 ME3N&2 LE3T'R2ZS,,," V$"7(U1 W'R3D K;2N T@1NZS,,," 3900 RS$"R"2610 "A HANGMAN'S GALLOWS" :"IS DRAWN ON THE SCREEN."3D,,,,,"D V$"7BI1FOR3 %2 ;R,HA3/D,7FR1UM(U1++9GAL3 ---4OZZ1,,,,"M EB$W( 3900i, RS$"R"24202 "YOU WILL BE GIVEN ONLY ONE CLUE"< :"ABOUT THE WORD -"F :"YOU WILL KNOW HOW MANY LETTERS"P :"THE WORD CONTAINS."Z ET$+d V$" T:2 K;2NTI3N%1"(r 3900:RS$"R"2407Ft "IN THE GAME OF HANGMAN"ly :"YOU WILL TRY TO GUESS A WORD"~ :"BEFORE YOU ARE 'HANGED'"::"FROM THE GALLOWS!" ET$ V$"7I1N (U1 G@2M U1V HA3/MA1N,,,,," V$"7%2 WI2L TR!2 T:2 GE2S @1 W'R---"%k "THE READING OF THAT PAGE."Vm :"PRESS THE 'SPACE BAR' TO CONTINUE.":ET$n V$"7A2FT'R2 &3C P@3DJU2V I2NSTRU3K$U1NZS":2100o V$"7T!2P (U1 LE2T'R2 , ;R2,T:2 R&2P&3T (U1 R&3D&2/ U2V (A3T P@2DJ ,":2100:2100p V$"PRE3S (U1 ,SP@3S B;R2,V370 $4PAUSE1300:PAUSE*><ET$;:D$(I);LEB$;:208;U ET$n` ----- INSTRUCTIONStb d 2100:2100:4f EO$g "AFTER EACH PAGE OF INSTRUCTIONS,"h :"TYPE THE LETTER 'R' TO REPEAT"j " ---32,343030,3234,28,3036:36,32=$0:29,3032C.qLEO$;:"OOPS! YOU LOSE! THE WORD WAS":A$NET$:"OOPS.. YOU LOOZ. THE WORD WAS":A$OE$"L":2100:100:A$:255PEB$:E$"W":2100Q" PLEASE PRESS 'RETURN'. ";Z$CR3:25,2713$\11,1327*a;f6:27,2810J YOU LOSTQ9`X20324jYX2vX,Y28X,Y32XX2026428,32XYX228,32YX28,322828,303028,303028,3032 X DOES BODY]12)b12,1624BlI1720:23,25I:IHq] LEGS AND FEETd3t21,2523:6:21,2325:3:21,2525:6:25,2725:  ARMS AND HANDS%3*21,2313411,13219>6:20,2110:AW THE RIGHT ARM.":8:"NOW WE ADD THE RIGHT HAND."gM500,600,700,720,750,770,800,830,850,870q2100~E$"24P"M10200550001100 MAN9 DOES THE HEAD23,25923,25119,1123&9,1125+W&2 A2D (U1 LE2FT FQ2T":EB$:E:"THEN WE DRAW THE RIGHT LEG.":oEO$::"NEXT WE ADD THE RIGHT FOOT."ET$:V$"7NE3KTS W&2 A2D (U1 R!3T FQ2T":EB$::"NOW WE DRAW THE LEFT ARM."::"THEN WE ADD THE LEFT HAND."::"NEXT WE DR1010,2477,824"QM462,464,466,468,470,472,474,476,478,480Z490~:"FIRST, WE DRAW THE HEAD."::"NOW WE DRAW THE BODY."::"NEXT WE DRAW THE LEFT LEG.":EO$::"NOW WE ADD THE LEFT FOOT."ET$:V$"7N#3 O$::"YOU FOUND THE WORD! ";A$:ET$:"YOU FOUND THE WORD.":2100:2100:A$E$"L":2100:100:A$:255:EB$:E$"W":2100:2100:2100:360:"SORRY! THAT LETTER ISN'T IN THE WORD.":2100:E$"14P":458 STAND58,12307,30OOK YOU ";T1;" GUESSES!"(j2100:2100]m" PRESS SPACE BAR TO CONTINUE. ";:CT$:370fo365r::(10):"DO YOU WANT ANOTHER WORD?"w:"TYPE 'Y' OR 'N': ";W$:(W$,1,1)"Y"50|::::"WELL, IT'S BEEN FUN!!! SO LONG!":2100:KEI1L:L$(I)G$280%I:R0290.300FD$(I)G$:RR1:270U"MM1:400z,I1L:D$(I)"-"ė:"YES!":2006I:50000:390TA$G$İ50000:390^:"TRY JUST ONE LETTER.":2100:170h:EO$:((40(A$))2):A$:EB$:" IT T00# :"GUESS A LETTER: ";G$:R0^ G$""170: ----- ALLOW FOR REPEAT OF LETTERS GUESSEDo (G$)1340 I126:N$(I)""250 G$N$(I)ė:"YOU GUESSED THAT LETTER BEFORE!":170 I:"PROGRAM ERROR. RUN AGAIN.": N$(I)G$:T1T11D THESE LETTERS: ":2100# E$"E"G I126:N$(I);:N$(I1)""200T ",";:I| 2100:2100::2100:FS$"Y"ĺE$"C" :"THE WORD IS:":2100: I1L 2100 EO$; D$(I);" ";:D$(I)"-"2200; (7); I EB$:2100:21(10):"YOU DID ALL THE WORDS!!":E `:"PRESS SPACE BAR TO BEGIN."d a(16384)128DU(1):97v dQ(N(1)1) nU(Q)1100 sU(Q)1:CC1:T10 A$WO$(Q) L(A$):I1L:L$(I)(A$,I,1):I N$(1)""200 2100::"YOU HAVE GUESSEB -(10):"DO YOU WANT GAME INSTRUCTIONS?"::"TYPE 'Y' OR 'N': "K .YN$~ /YN$"Y"ĺEO$:"OKAY!":ET$:"O K!":EB$:2400 0YN$"N"50 146 2I120:D$(I)"-":I:M0 <I126:N$(I)"":I F402: ----- DRAW GALLOWS ZNC96" _::ES 17 0,255PI: PITCH8 1,LE: NOTE LENGTHQ 771: PLAY THE NOTEW i X1100:X:  ----- SET ECHO II CODES EO$E$(79) EB$E$(66) ET$E$(84) V$(22) C1:NWC $:4000: ----- TITLE PAGE &:b(:E$(5)E$"B"A(10):"DO YOU WANT FAST SPEECH?"e(12):"TYPE 'Y' OR 'N': ":FS$|FS$"Y"ĺE$"C":8FS$"N"ĺE$"E":83L$(20),D$(20),N$(26),U(50),WO$(200) 10000: LOAD WORDLIST 60000: ----- LOAD MUSIC POK                          POKES1771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,31788,3:789,96:1( ----- CREDIT TO BEAGLE BROTHERS1122" MUSIC POKES FROM APPLE MECHANIǍ̍ōҍÍҍōԍčԍ̍̍ԍҍԍӍÍčōōԍҍӍčӍӍōЍ΍ٍ ӍӍӍҠǍÍӍҠҠǍҍ͍ōōōōԍԍҍč΍ٍȍԍ΍čō̍ӍӍӍҠҠz#???????     ҠӠΠ, ӠǠàԠϠҮ͠Үͮʠ.ԮӠӠԠŠҠFURTHER ADAPTED BY NANCY Z. RINKER, VSDB, STAUNTON, VA 24401, 1/85E ----- FURTHER ADAPTED BY NANCY Z. RINKER, VSDB, STAUNTON, VA 24401, 1/851, 1/85EBY NANCY Z. RINKER, VSDB, STAUNTON, VA 24401, 1/851,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3j0788,3:789,96:0( ----- CREDIT TO BEAGLE BROTHERS0102" MUSIC POKES FROM APPLE MECHANIC"0<" COPYRIGHT (C), 1982 BEAGLE BROS"0PB1 ----- 12 /ñ#/ֲ ----- LOSING SOUNDS8/+.'FI$"LIST.WORDFILES"`+8'D$;"OPEN";FI$:D$;"READ";FI$h+B'COu+L'CC1CO+V'DI$(CC):+`'D$;"CLOSE";FI$+j':+m':8:" PRESS SPACE BAR FOR INSTRUCTIONS"::" OR 'RETURN' TO SKIP THEM."+n'XX$O THE GAME OF"!*V$"HA3/MA2NN"1*EO$:60200:*\EB$E*50000U*.2100:2100[*3a*{*' READ DISK DIRECTORY*' MODIFICATIONS FOR READING WORDLIST FILES 10/84 BY VANCE BLOSSER*' RT 1 BOX 3023 CRIMORA, VA 24431 (703) 943-7856+'D$(:14,188:12,18102)12,1813:12,1815:14,12b)12,1818:12,2120:18,1921:19,18:19,12)"12,1823:12,1825:12,1827:24,12:26,12),30,3212:30,3214:30,3218:12,1832:14,1830)612,1835:12,1837:36,12)ET$*"WELCOME T (ZRS$(_E$"24P"((dRS$"R"3980<(nRS$(32)3960F(s3920T(x:4:EO$`(2100:p(EO$::4:( ----- NAME OF GAME((1(X039(0,39X(X(15(7,182(7,185(3,412)8,1012:8,1014:8,10180'f 2100:2100:2100'250p'< ----- SUBROUTINE FOR ADVANCING TO NEXT SCREEN OR REPEATING CURRENT SCREENy'?EB$'A2100'F19:E$"14P"'KE$"C"'P" 'R' TO REPEAT":'U" 'SPACE' TO CONTINUE"(WE$"E":FS$"Y"ĺE$"C"=  (4);"BRUN TEXTALKER.RAM"&<(4)"RUNHANGMAN"N̍̍ǍӍ̍ǍǍǍǍҍǍ̍ǍǍǍ̍̍΍ٍǍ̍ǍǍǍƍ BתּL jLS ߼6789`LHLԭh`hLHLԭhL` )`  𕚭`àҠɠԠ̨ˠӬͬ֠ÍàҨ֍ǠӠɠōԨԍĤϮҮ„ZY\[ X %$I ה  Xim LSTUVL+i,-,iK߼ = Q H ? 6 - $   r  (#ŏ W[œNQ&RcYNF6HRH@_@F6&a96:VB&&YY1YKYO)QYNYYe`AUlj`Ŕ`&`e@[``eKY'\ϔ`;ӕ`;[e`O9c`d[:Ɂ\ɏ\Ʌ\[aaCQa__ __c_ _B_)W[_B S_ $_<Ձe(Ą__ń󉌌օ&U._. S R R_6F/'.//..W[.6URŗ?@R9NN`@RDž'e$9OIE.+I99?NNW[%a%9^N^N9Re$^^ ^6 S^;]^ ^)c^'R^AW[^AN^^[aa? :*1'ߝ rs6SiART^&[&[[ō9cc&RE$R_$W[$c$RҏO/9[ Lj Lj) sLjHHHHHHHHHH`Pa@p@q@a`a@@aQA``Pq !"'()*,-.&:,;6?A[L\h^m_u`abcde   `` S)L``ȱ`LCݽ)`)Ȍ̈ `N  sꍐ4 8 N84 Lj^ 84 Ljɳ84Q ɳ S)L``ȱ)`ȱ)` i@ݝ`  ` ` ` ` ` ` S)8` S)@ʩ` S)8` S)@8@`&B0,()*!ݝ`ʈ)`Ȉ)` i@ݝ` $ ` $ ` ` ` ` o` ` ` S)" `` S)@` S) 8 ` S) ``yޅLڭ ޅȹޅ)`Lnڭ,;?.! : 3!ȌN  ڭ @ݭ ͋L٭`ȱɠ ɠ ʈ !`ȱ0ȱeeLڱ ٭) N = )ύLc ) )8 Lc))LHɀ@ ) h` ٭ ]` `)ɰ ɺ=[5)0.) SL٢J y0ʽyޅ` ` ٢`)LﮒLɍ JL﩮 Jꭟ)Lﭑ) Lc٭ɺ ɰ)) mL Lc LcLcLcLc @Lc ) kLH nh n٩ n`)@`hH) ح Lﭟ)L7ح)LWح)͚ ح Lﭟ)L.ح L$ L$ح)%) ֝ ؤ$( n٩ nٮ 8 ېi莍  ɍɀ( n( n٠`LMբH֝ h ٰݍ8͖0ͭ n٩ n٠ խ͕ LM Lբ֝ ح()L!ԮL`Ŭԍ׍ύˍ̬$% L֌ Lթi n٩ n٭  ɕLWɈLɍ LɯLɻLɛLpɠL I@LɬL֘H hL(K 9() nٱ(ɠ` Lgթ n٭0L)Lձ( n'L (L L (ɠLeՈ( nLլ LԬ LԱ$,L׭)L֭ حɘɌL֍)֝  ɠ>L LVɟɀ1Ԣ֝ ح1i@ L% $()Lٰ8()֝ حi ح                TURN'. ";Z$V370g POUNCE,FURIOUS,STALK,PRECIOUS,SCROLL,ADMIRED,MARVELOUS,CEILING,CHORUS,PEERED GYM,NATURE,HARDSHIP,UNCERTAIN,PRIVATE,SUSPECT,MYSTERIES,GAGGED,TOUGH,RECORD CAFETERIA,RIGHTFUL,SPRINT,STATION,REMEMBER,OVERTOOK,LUCKILY,EQUI28,303232,3430%30,3234:28,3036:36,32K$0:29,3032Q.LEO$;:"OOPS! YOU LOSE! THE WORD WAS":A$NET$:"OOPS.. YOU LOOZ. THE WORD WAS":A$OE$"L":2100:100:A$:255PEB$:E$"W":2100 Q" PLEASE PRESS 'RE6:20,2110:C$R3:25,27132\11,13278aIf6:27,2810X YOU LOST_9nX20324xYX2X,Y28X,Y32XX2026428,32XYX228,32YX28,322828,303028,3030 &9,1125+!X DOES BODY)]127b12,1624PlI1720:23,25I:IVqk LEGS AND FEETr321,2523:6:21,2325:3:21,2525:6:25,2725:  ARMS AND HANDS%3*21,2313411,13219 >$"NEXT WE DRAW THE RIGHT ARM.":F"NOW WE ADD THE RIGHT HAND."uM500,600,700,720,750,770,800,830,850,8702100E$"24P"M10200550001100 MAN9 DOES THE HEAD23,25923,25119,1123  FOOT."8ET$:V$"7N#3 W&2 A2D (U1 LE2FT FQ2T":EB$:]"THEN WE DRAW THE RIGHT LEG.":EO$:"NEXT WE ADD THE RIGHT FOOT."ET$:V$"7NE3KTS W&2 A2D (U1 R!3T FQ2T":EB$:"NOW WE DRAW THE LEFT ARM.":"THEN WE ADD THE LEFT HAND.": 58,1230%7,3010210,247>7,824DsM462,464,466,468,470,472,474,476,478,480|490"FIRST, WE DRAW THE HEAD.":"NOW WE DRAW THE BODY.":"NEXT WE DRAW THE LEFT LEG.":EO$:"NOW WE ADD THE LEFT, IT'S BEEN FUN!!! SO LONG!":2100:uEO$:"YOU FOUND THE WORD! ";A$:ET$:"YOU FOUND THE WORD.":2100:2100:A$E$"L":2100:100:A$:255:EB$:E$"W":2100:2100:365"SORRY! THAT LETTER ISN'T IN THE WORD.":2100:E$"14P":458 STAND TRY ANOTHER LETTER."::170Hh"RIGHT! IT TOOK YOU ";T1;" GUESSES!"Xj2100:2100m:" PRESS 'RETURN' TO CONTINUE. ";:CT$:370o365r::(10):"DO YOU WANT ANOTHER WORD?"w:"TYPE 'Y' OR 'N': ";W$:(W$,1,1)"Y"50%|:"WELL THAT LETTER BEFORE!":170@ I:"PROGRAM ERROR. RUN AGAIN.":U N$(I)G$:T1T11n I1L:L$(I)G$280~ I:R0290 300 D$(I)G$:RR1:270 "MM1:400 ,I1L:D$(I)"-"ĺ"YES!":200 6I:50000:390 TA$G$360^"WRONG. 2100 EO$;6 D$(I);" ";:D$(I)"-"2200;A (7);H I] EB$:2100:2100~ :"GUESS A LETTER: ";G$:R0 G$""170: ----- ALLOW FOR REPEAT OF LETTERS GUESSED (G$)1340 I126:N$(I)""250 G$N$(I)ĺ"YOU GUESSED1100 sU(Q)1:CC1:T10* A$WO$(Q)P L(A$):I1L:L$(I)(A$,I,1):Ib N$(1)""200 2100:"YOU HAVE GUESSED THESE LETTERS: ":2100 I126:N$(I);:N$(I1)""200 ",";:I 2100::2100 "THE WORD IS:":2100: I1L ";YN$ /(YN$,1,1)"Y"2400< 2I120:D$(I)"-":I:M0T <I126:N$(I)"":Is F402: ----- DRAW SCAFFOLD ZNC96 _::(10):"YOU DID ALL THE WORDS!!": `"ANY KEY WHEN READY" a(16384)128DU(1):97 dQ(N(1)1) nU(Q)) EO$E$(79)% EB$E$(66)7 ET$E$(84)E V$(22)R C1:NWC^ $:4000f (: *(10):"DO YOU WANT FAST SPEECH?"::"TYPE 'Y' OR 'N': ";FS$ +(FS$,1,1)"Y"ĺE$"C": -(10):"DO YOU WANT INSTRUCTIONS?"::"TYPE 'Y' OR 'N':ǍÍӍҠҠӍ̍̍ǍӍ̍ǍǍǍǍҍǍ̍ǍǍǍ̍̍΍ٍǍ̍ǍǍǍƍSTNA$LI$45000: DELETE WORDLIST FILE LLI$"":: FINISHEDdD"":: FINISHEDdLETE A WORDLIST":"----------------------------------------"J^34,(37)ph::"LIST TO BE DELETED IS ";LI$r:"CONTINUE ?";:AN$:AN$"Y"ı|CC1CODI$(CC)LI$āXXCCCO1:DI$(XX)DI$(XX1)::COCO13000: REWRITE MASTER LIyNA$LI$:6000@"y"PLEASE MAKE SURE THE PRINTER IS READY"O,yD$;"PR#1"m6y10);"LISTING OF ";NA$:z@yCC1WCJy5);"# ";CC;:CC$(CC):LE(CC$):8LE);WO$(CC)Ty^yD$;"PR#0"hy@ DELETE A WORDLIST SUBMENUJ:<T11:"DE"LISTING OF ";LI$:34,(37)(uCC1WCIu"# ";CC;" ";:15);WO$(CC)yu(37)20ĺ:"ANY KEY TO CONTINUE";:A$::uu:"ANY KEY TO RETURN TO MENU":A$::y PRINTER ROUTINES FOR LISTINGyLI$""ĺ"MUST CHOOSE A TOPIC":CC1500::"DISPLAY LIST":"---------------------------------------":34,(37)Nu:"S)CREEN OR P)RINTER ?":AN$:A$(AN$,1):A$"S"A$"P"30010XuA$"P"31000: PRINTER ROUTINESbuLI$""ĺ" MUST CHOOSE A TOPIC":CC1300::luNA$LI$:6000vu: USED. OVERLAY THAT FILE?":20200:AN$"N"201207NQNDI$(CO1)NA$:COCO1vN3000: REWRITE MASTER DIRECTORYN4000: WRITE WORD LIST FILEN: FINISHEDNAN$:AN$""20200NAN$"N"201500u DISPLAY LIST OF WORDS:u:DDu14:NWO$(X)AN$:20040fNX1ı'kNXX1FpN:CC1X:CC;". ";WO$(CC)yzN(37)20ĺ::"ANY KEY TO CONTINUE":A$:::NN:"OKAY? ";:AN$:AN$"N"X0:NN"NAME OF NEW FILE ";NA$:NA$""201201NCC1CO:DI$(CC)NA$ĺ"NAME ALREADY):ACO101003'10090: SET STRING AND EXIT LOOPK N ADD NEW WORD LISTS*N:4N10:"CREATE NEW WORD LIST"::12:"('RETURN' ENDS)":"----------------------------------------":34,(37)>NX0HNXX1RN"WORD # ";X;" ";:AN$:AN$""20070\.'34,(37)3'LI$""%8'X1CO<B'5:X;" : ";DI$(X)QL'(37)20İ10100V'::"ENTER SELECTION (0 QUITS)":AN$:A(AN$):A0ı`'ACO10070j'LI$DI$(A):t':"PRESS 'RETURN' TO CONTINUE OR TYPE # OF CHOICE.":AN$:AN$""ı ~'A(AN$$ : FINISHED DELETE- p READ WORDLISTO zD$;"OPEN";NA$:D$;"READ";NA$W WCd CC1WCq WO$(CC)w  D$;"CLOSE";NA$  ' SELECT WORD LIST FROM FILE ':$'2:14:"SELECT LIST":"::::::::::::::::::::::::::::::::::::::::":D$;"DELETE";NA$:D$;"OPEN";NA$:D$;"WRITE";NA$I X: NUMBER OF WORDSU CC1Xb WO$(CC)h | D$;"CLOSE";NA$ : FINISHED WRITE  DELETE WORDLIST FILE : 10:10:"DELETING WORDLIST FILE" D$;"OPEN ";NA$:D$;"DELETE";NA 10:10:"WRITING MASTER DIRECTORY"h D$;"OPEN";DI$:D$;"DELETE";DI$:D$;"OPEN";DI$:D$;"WRITE";DI$p CO} CC1CO DI$(CC): D$;"CLOSE";DI$   WRITE WORDLIST FILE : 10:10:"WRITING WORDLIST FILE"0 D$;"OPEN";NA$1:10:"2. CREATE NEW LIST": 13:10:"3. DISPLAY LIST"X 15:10:"4. DELETE LIST"o 17:10:"5. QUIT" :"SELECTION-->";:A$:A$:A(A$):A1A52010 *A5ı 4A10000,20000,30000,40000 >2000 WRITE MASTER DIRECTORY :% (100) 1090# D$;"OPEN";DI$6 D$;"READ";DI$> $COT .X1CO:DI$(X):j 8D$;"CLOSE";DI$:~ B216,0:CO0:20  MAIN MENU : 9::"WORD LIST MAINTENANCE": 3:5:"CURRENT LIST IS ";LI$ 9:10:"1. SELECT LIST" 1N BY VANCE BLOSSER, RT 1 BOX 3023D CRIMORA, VA 24431Y (703) 943-7856m OCTOBER, 1984 1000: INITIALIZATION2000: MAIN MENU: FINISHED PROGRAM INITIALIZATION D$(4):DI$"LIST.WORDFILES" WO$(100),DI$     321,2523:*6:21,2325:=3:21,2525:P6:25,2725:f  ARMS AND HANDSm%3{*21,2313411,13219>6:20,2110:CR3:25,2713\11,1327af6:27,2810 YOU LOST9X20330,850,8702100!E$"24P"0M10200;55000E1100O MANV9j DOES THE HEADw23,25923,25119,1123&9,1125+X DOES BODY]12b12,1624lI1720:23,25I:Iq LEGS AND FEETD THE RIGHT FOOT."EET$:V$"7NE3KTS W&2 A2D (U1 R!3T FQ2T":EB$:j:"NOW WE DRAW THE LEFT ARM."::"THEN WE ADD THE LEFT HAND."::"NEXT WE DRAW THE RIGHT ARM."::"NOW WE ADD THE RIGHT HAND." M500,600,700,720,750,770,800,8:"FIRST, WE DRAW THE HEAD.":B:"NOW WE DRAW THE BODY.":h:"NEXT WE DRAW THE LEFT LEG.":EO$::"NOW WE ADD THE LEFT FOOT."ET$:V$"7N#3 W&2 A2D (U1 LE2FT FQ2T":EB$::"THEN WE DRAW THE RIGHT LEG.":EO$::"NEXT WE AD100:A$:255:EB$:E$"W":2100:2100:2100:360s:"SORRY! THAT LETTER ISN'T IN THE WORD.":2100:E$"14P":458 STAND58,12307,301010,2477,824M462,464,466,468,470,472,474,476,478,480490!:"DO YOU WANT ANOTHER WORD?"8w:"TYPE 'Y' OR 'N': "KxW$:W$"Y"50[yW$"N"380dz376|::::"WELL, IT'S BEEN FUN!!! SO LONG!":2100:EO$::"YOU FOUND THE WORD! ";A$:ET$:"YOU FOUND THE WORD.":2100:2100:A$0E$"L":2100:B$:" IT TOOK YOU ";T1;" GUESSES!":364vj:EO$:((40(A$))2):A$::" IT TOOK YOU ";T1;" GUESSES!"kET$:"IT TOOK YOU":53:"GUESSES!":EB$;l2100:2100m" PRESS SPACE BAR TO CONTINUE. ";:CT$:370o365r::(10)$:T1T11"I1L:L$(I)G$2802I:R0290;300SD$(I)G$:RR1:270b"MM1:400,I1L:D$(I)"-"ė:"YES!":2006I:50000:390TA$G$İ50000:390^:"TRY AGAIN.":2100:170hT19362.i:EO$:((40(A$))2):A$:EEB$:2100:21000:"GUESS A LETTER: ";G$:R0kG$""170: ----- ALLOW FOR REPEAT OF LETTERS GUESSED|(G$)1340I126:N$(I)""250G$N$(I)ė:"THAT LETTER WAS GUESSED BEFORE!":170I:"PROGRAM ERROR. RUN AGAIN.": N$(I)G HAVE BEEN GUESSED: ":2100& E$"E"J I126:N$(I);:N$(I1)""200W ",";:I 2100:2100::2100:FS$"Y"FS$(27)ĺE$"C" :"THE WORD IS:":2100: I1L 2100 EO$; D$(I);" ";:D$(I)"-"2200; (7); I:(10):"YOU DID ALL THE WORDS!!":G `:"PRESS SPACE BAR TO BEGIN."f a(16384)128DU(1):97x dQ(N(1)1) nU(Q)1100 sU(Q)1:CC1:T10 A$WO$(Q) L(A$):I1L:L$(I)(A$,I,1):I N$(1)""200 2100::"THESE LETTERSMBER NAMES 6T110ĺ"TEN":7 7T111ĺ"EE LEVEN":N 8T112ĺ"TWELVE":i 9T113ĺ"THIRT TEEN": :T114ĺ"FORT TEEN": ;T115ĺ"FIFTEEN": <T116ĺ"SIXTEEN": =T117ĺ"SEVENTEEN": F402: ----- DRAW GALLOWS ZNC96$ _:(27)50K -(10):"DO YOU WANT GAME INSTRUCTIONS?"::"TYPE 'Y' OR 'N': "T .YN$ /YN$"Y"ĺEO$:"OKAY!":ET$:"O K!":EB$:2400 0YN$"N"50 146 2I120:D$(I)"-":I:M0 4I126:N$(I)"":I:70 5 ----- SUBROUTINES TO PRONOUNCE NUD$(20),N$(26),U(50),WO$(200)7 10000: LOAD WORDLIST[ 60000: ----- LOAD MUSIC POKESc 32y 0,255PI: PITCH 1,LE: NOTE LENGTH 771: PLAY THE NOTE  X1100:X: C1:NWC $:4000: ----- TITLE PAGE &: (FS$*: ----- SET ECHO CODESZE$(5):EO$E$(79):EB$E$(66):ET$E$(84):V$(22)EB$:(10):"DO YOU WANT FAST SPEECH?":(12):"TYPE 'Y' OR 'N': ":FS$FS$(27)ĺE$"C":8FS$"Y"ĺE$"C":8FS$"N"ĺE$"E":83 L$(20),               V$"GQ3D LU3K"& EB$!& 2100+& 3900=& RS$"R"3120F& EO$}& "DO YOU WANT TO SEE THE INSTRUCTIONS"::"AGAIN?"& ET$& "DO YOU WANT TO SEE THE INSTRUCTIONS AGAIN?":EB$& 2100:2100& :"TYPE 'Y' OR 'N': "& YN$' YN$"Y"2H LESS THAN TEN WRONG GUESSES."9%N " ---- ---- ---"B%b ET$d%l V$"7T:2 WI3N (U1 G@2M":2100%v V$"7%2 MU2ST GE3S (U1 W'R2D":2100% V$"7WI2),LE3S , (A3N , TE3N , R*2/ GE2SI1ZS,,"% 2100:2100% EO$::13:"GOOD LUCK!"% & *$ V$"7*2N (U1+9GAL3-5OZZ2,":2100:2100S$ V$"7W&2 S@3 %2 ;R2,,, +++9HA3/D --"c$ 2100:2100$ V$"7(A2T M&3NNZS %3 L:1ZS,,"$ EB$$ 2100:55000$ 3900$& RS$"R"3010$0 "TO WIN THE GAME,"$: :"YOU MUST GUESS THE WORD"%D :"WITTERS,"0# :"AND ALL THE BODY PARTS HAVE BEEN"O# :"DRAWN ON THE GALLOWS,"q# :"WE SAY YOU ARE 'HANGED'!"# :"THAT MEANS YOU LOSE."# ET$# "IF YOU GUESS TOO MANY WRONG LETTERS,"# 2100# "AND ALL THE BODY PARTS HAVE BEEN DRAWNNN " :"ON THE HANGMAN'S GALLOWS!"("| ET$V" "BUT IF YOU GUESS A WRONG LETTER,":2100|" "PART OF A BODY WILL BE DRAWNNN"" V$"7*2N (U1 HA3/MA2NZ +++9GAL3 ---4OZZ1,,"" EB$" 3900" RS$"R"2910" "IF YOU GUESS TOO MANY"# :"WRONG LETEB$"!P :"FOR EXAMPLE: ":2100:P!Q "- ";:(7);:2100;:"- ";:(7);:2100;}!R "K ";:EO$;:2100;:"- ";:(7);:2100;!S EB$;:"E":2100!T 3900!Y RS$"R"2810!^ "BUT IF YOU GUESS A WRONG LETTER,"!h :"PART OF A BODY WILL BE DRAWN""rARE PRINTED ON THE SCREEN."$ " ET$T , "YOU THEN GUESS A LETTER TO FILL A BLANK."d 1 2100:2100 6 "IF THAT LETTER IS IN THE WORD":2100 @ V$"7I2T WI2L U2P&R3 I1N I1TS PR;2 P'R2 PL@3S":2100 J "AS THE BLANKS ARE PRINTED ON THE SCREENNN."!O :"FOR EXAMPLE: ":2100:K EXAMPLE15:(7);:"- ";:2100;:EXAMPLEU 3900g RS$"R"2710 "YOU THEN GUESS A LETTER TO FILL A BLANK." "IF THAT LETTER IS IN THE WORD," :"IT WILL APPEAR IN ITS PROPER PLACE"  :"AS THE BLANKS REEN." ET$ 2100G V$"7@2 HA3/MA2NZS, +++9GAL3 --5OZZ2,,,,"r V$"7I1ZS DR*2N *1N (U1 SKR&3N ":2100 V$"7@1 RO2 U1V BLA3/KS ,,,,,,,,," V$"7&3C U1KU3MPA2N&1D B!2 @1 , B&3P":2100 V$"7(E2N U1P&R2ZS *2N (U1ET$;:D$(I);EB$;:208; ET$` -24 YX2X,Y28%X,Y32,X;X20264H28,32XRYX2_28,32YfXt28,322828,303028,303028,303232,343030,323428,3036:36,32$0:29,3032.LEO$;:"OOPS! YOU LOS:784,166:785,0:786,76:787,341788,3:789,96:Z1( ----- CREDIT TO BEAGLE BROTHERS`1112" MUSIC POKES FROM APPLE MECHANIC"1<" COPYRIGHT (C), 1982 BEAGLE BROS"1P2 ----- FURTHER ADAPTED BY NANCY Z. RINKER, 26 OAK LANE, STAU120FPI153:12 0PPI141:12/0ZPI127:12>0dPI111:12M0nPI103:12[0xPI84:12p0PI63:LE100:12v0ױ0` ----- MUSIC POKES1771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246'WC/'CC1WC!/'WO$(CC):5/'D$;"CLOSE";NA$;/'S/Pò ----- CHARGE SONGg/PI63:LE40:12v/PI111:12/PI141:12/PI159:LE50:12/ð16/PI141:LE60:12/PI159:LE255:12/ñ/ֲ ----- LOSING SOUNDS06:20,2110:CR3:25,2713\11,1327ADD THE RIGHT HAND."CM500,600,700,720,750,770,800,830,850,870M2100ZE$"24P"iM10200t55000~1100 MAN9 DOES THE HEAD23,25923,25119,1123&9,1125+X DOES BODY]12b12,:"THEN WE DRAW THE RIGHT LEG.":KEO$::"NEXT WE ADD THE RIGHT FOOT."~ET$:V$"7NE3KTS W&2 A2D (U1 R!3T FQ2T":EB$::"NOW WE DRAW THE LEFT ARM."::"THEN WE ADD THE LEFT HAND."::"NEXT WE DRAW THE RIGHT ARM."::"NOW WE M462,464,466,468,470,472,474,476,478,4806490Z:"FIRST, WE DRAW THE HEAD.":{:"NOW WE DRAW THE BODY."::"NEXT WE DRAW THE LEFT LEG.":EO$::"NOW WE ADD THE LEFT FOOT."ET$:V$"7N#3 W&2 A2D (U1 LE2FT FQ2T":EB$:!:"YOU FOUND THE WORD.":2100:2100:A$iE$"L":2100:100:A$:255:EB$:E$"W":2100:2100:2100:365:"SORRY! THAT LETTER ISN'T IN THE WORD.":2100:E$"14P":458 STAND58,12307,301010,2477,824-009m:" PRESS SPACE BAR TO CONTINUE. ";:CT$:370Bo365mr::(10):"DO YOU WANT ANOTHER WORD?"w:"TYPE 'Y' OR 'N': ";W$:(W$,1,1)"Y"50|::::"WELL, IT'S BEEN FUN!!! SO LONG!":2100:'EO$::"YOU FOUND THE WORD! ";A$:ET$0D$(I)G$:RR1:270("MM1:400M,I1L:D$(I)"-"ė:"YES!":200`6I:50000:390oTA$G$360^:"TRY AGAIN.":2100:170hEO$:"RIGHT! IT TOOK YOU ";T1;" GUESSES!"iET$:"RIGHT! IT TOOK YOU":53:"GUESSES!":EB$j2100:21"170: ----- ALLOW FOR REPEAT OF LETTERS GUESSEDB(G$)1340\I126:N$(I)""250G$N$(I)ė:"YOU GUESSED THAT LETTER BEFORE!":170I:"PROGRAM ERROR. RUN AGAIN.":N$(I)G$:T1T11I1L:L$(I)G$280I:R029030ERS: ":21000 I126:N$(I);:N$(I1)""200= ",";:IO 2100::2100m :"THE WORD IS:":2100:x I1L 2100 EO$; D$(I);" ";:D$(I)"-"2200; (7); I EB$:2100:2100 :"GUESS A LETTER: ";G$:R01G$"DID ALL THE WORDS!!":9 `:"PRESS SPACE BAR TO BEGIN."X a(16384)128DU(1):97j dQ(N(1)1)z nU(Q)1100 sU(Q)1:CC1:T10 A$WO$(Q) L(A$):I1L:L$(I)(A$,I,1):I N$(1)""200 2100::"YOU HAVE GUESSED THESE LETT ;T115İ67:# <T116İ68:4 =T117İ69:A >"TEN":S ?"EE LEVEN":c @"TWELVE":w A"THIRT TEEN": B"FORT TEEN": C"FIFTEEN": D"SIXTEEN": E"SEVENTEEN": F402: ----- DRAW SCAFFOLD ZNC96 _::(10):"YOU STRUCTIONS?"::"TYPE 'Y' OR 'N': ";YN$@ /(YN$,1,1)"Y"2400] 2I120:D$(I)"-":I:M0y 4I126:N$(I)"":I:70 5 ----- SUBROUTINES TO PRONOUNCE NUMBER NAMES 6T110İ62: 7T111İ63: 8T112İ64: 9T113İ65: :T114İ66:ES E$(5)! EO$E$(79)3 EB$E$(66)E ET$E$(84)S V$(22)` C1:NWC $:4000: ----- TITLE PAGE (: *(10):"DO YOU WANT FAST SPEECH?"::"TYPE 'Y' OR 'N': ";FS$ +(FS$,1,1)"Y"ĺE$"C":' -(10):"DO YOU WANT IN*(5);"B">L$(20),D$(20),N$(26),U(50),WO$(200)Y 10000: LOAD WORDLIST} 60000: ----- LOAD MUSIC POKES 17 0,255PI: PITCH 1,LE: NOTE LENGTH771: PLAY THE NOTEX1100:X:  ----- SET ECHO II COD          !!! ! ! ! ! !!!!!!!!!""" " " " " """  T$$&l V$"7T:2 WI3N (U1 G@2M":2100L&v V$"7%2 MU2ST GE3S (U1 W'R2D":2100& V$"7WI2),LE3S , (A3N , TE3N , R*2/ GE2SI1ZS,,"& 2100:2100& EO$::13:"GOOD LUCK!"& & V$"GQ3D LU3K"& EB$& 2100& 3900& RS$"R"3120' S@3 %2 ;R2,,,HU3/"#% 2100:2100E% V$"7(A2T M&3NNZS %3 L:1ZS,,"N% EB$_% 2100:55000i% 3900{%& RS$"R"3010%0 "TO WIN THE GAME,"%: :"YOU MUST GUESS THE WORD"%D :"WITH LESS THAN TEN WRONG GUESSES."%N " ---- ---- ---"&b E :"DRAWN ON THE SCAFFOLD,"<$ :"WE SAY YOU ARE 'HUNG'!"Z$ :"THAT MEANS YOU LOSE."c$ ET$$ "IF YOU GUESS TOO MANY WRONG LETTERS,"$ 2100$ "AND ALL THE BODY PARTS HAVE BEEN DRAWNNN "$ V$"7*2N (U1 SKA3FO1LD,":2100:2100% V$"7W&2"BUT IF YOU GUESS A WRONG LETTER,":2100O# "PART OF A BODY WILL BE DRAWNNN"x# V$"7*2N (U1 HA3/MA2NZS SKA3FO1LD,,"# EB$# 3900# RS$"R"2910# "IF YOU GUESS TOO MANY"# :"WRONG LETTERS,"# :"AND ALL THE BODY PARTS HAVE BEEN"$ֺ(7);:2100;:"- ";:(7);:2100;O"R "K ";:EO$;:2100;:"- ";:(7);:2100;d"S EB$;:"E":2100n"T 3900"Y RS$"R"2810"^ "BUT IF YOU GUESS A WRONG LETTER,""h :"PART OF A BODY WILL BE DRAWN""r :"ON THE HANGMAN'S SCAFFOLD!""| ET$)# THEN GUESS A LETTER TO FILL A BLANK."6!1 2100:2100a!6 "IF THAT LETTER IS IN THE WORD":2100!@ V$"7I2T WI2L U2P&R3 I1N I1TS PR;2 P'R2 PL@3S":2100!J "AS THE BLANKS ARE PRINTED ON THE SCREENNN."!O EB$!P :"FOR EXAMPLE: ":2100:""Q "- ";:(7);:"- ";:2100;:EXAMPLE' 39009 RS$"R"2710i "YOU THEN GUESS A LETTER TO FILL A BLANK."  "IF THAT LETTER IS IN THE WORD,"  :"IT WILL APPEAR IN ITS PROPER PLACE"  :"AS THE BLANKS ARE PRINTED ON THE SCREEN." " ET$&!, "YOUA2NZS , 7SKA3 7FO2LD,,,,"D V$"7I1ZS DR*2N *1N (U1 SKR&3N ":2100k V$"7@1 RO2 U1V BLA3/KS ,,,,,,,,," V$"7&3C U1KU3MPA2N&1D B!2 @1 , B&3P":2100 V$"7(E2N U1P&R2ZS *2N (U1ET$;:D$(I);EB$;:208; ET$` ----- INSTRUCTIONSb d 21ECIOUS,SCROLL,ADMIRED,MARVELOUS,CEILING,CHORUS,PEERED GYM,NATURE,HARDSHIP,UNCERTAIN,PRIVATE,SUSPECT,MYSTERIES,GAGGED,TOUGH,RECORD CAFETERIA,RIGHTFUL,SPRINT,STATION,REMEMBER,OVERTOOK,LUCKILY,EQUIPMENT,BRACES,RESTAURANT5 SYSTEM,VIOLETS,FUTUR6:36,32$0:29,3032.MLEO$;:"OOPS! YOU LOSE! THE WORD WAS":A${NET$:"OOPS.. YOU LOOZ. THE WORD WAS":A$OE$"L":2100:100:A$:255PEB$:E$"W":2100Q" PLEASE PRESS 'RETURN'. ";Z$V3705 POUNCE,FURIOUS,STALK,PRǍÍӍҠ"PI159:LE50:120ð16/0PI141:LE60:12E0PI159:LE255:12K0ñe0ֲ ----- LOSING SOUNDSz0