abZ)'?'ALPHABET¤ANSWER¤BODY¤CHECK¤L¤NAME¤TYPE¤UNUSED¤WORD¤DELAÙØÙÉÖYOÕMÅÚÁÃÌOËÄÅÍÂY¤BÏËPITCÈDURATIOÎRESÔ $; EF P ]w @ @F @ @ À@@@@@ƒ@@@@€@&À HANGMAN 1.5›by Jim Wilson›(C) 1983 Wilson Software›(Berkley, Mi›2All rights reserved›<77Provided to ATARI EXPLORER courtesy of›FM.A.C.E.›P77The Michigan Atari Computer Enthusiasts›Z›dhh€;@&,;@,‚;@#,ƒ;@,„;@,…;@,†;@,‡;@&,ˆ;@&,n6†. BY JIM WILSONx +@‚'B7tA'@AŒ'A@P'A@X–‰-@A ‰ 6Š-6‹-ª7 -Š‹(@N" Ap(-Š‹7(@ ´P‹"@-Š‹$(@N06Š-@<6‹-F A`P A¾)6Š-Š%@6‹-‹%@) ApÈ7 -Š‹(@H" Ap(-Š‹7(@ ÒP‹"@-Š‹$(@H06Š-@<6‹-@ F A`P A0Ü)6Š-Š&@6‹-‹%@) Aæ7 -Š‹(@1" Ap(-Š‹7(@ ðP‹"@-Š‹$(@106Š-@<6‹-@ F A`P A`ú)6Š-Š%@6‹-‹&@) A07 -Š‹(@M" Ap(-Š‹7(@ P‹"@-Š‹$(@M06Š-@<6‹-@ F A`P A)6Š-Š&@6‹-‹&@) A`"7 -Š‹(@N" Ap(-Š‹7(@ ,P‹"@-Š‹$(@N06Š-@<6‹-F A`P A 6)6Š-Š&@6‹-‹&@) A@7 -Š‹(@A" Ap(-Š‹7(@ JP‹"@-Š‹$(@A06Š-@<6‹-@ F A`P APT)6Š-Š&@6‹-‹%@) A ^7 -Š‹(@." Ap(-Š‹7(@ hP‹"@-Š‹$(@.06Š-<6‹-@F A`P A€r)6Š-Š%@6‹-‹&@) AP|7 -Š‹(@A" Ap(-Š‹7(@ †P‹"@-Š‹$(@A06Š-@<6‹-@ F A`P A)6Š-Š%@6‹-‹%@) A€š7 -Š‹(@5" Ap(-Š‹7(@ ¤P‹"@-Š‹$(@506Š-@<6‹-@ F A`P A@®)6Š-Š%@6‹-‹&@) A¸7 -Š‹(@G" Ap(-Š‹7(@ Â8‹"@-Š‹$(@G. A`8 A€Ì)6Š-Š&@6‹-‹&@) A@Ö$à6Š-@6‹-@ê‰-@@P ‰ô A0þŒ-@B:†,) -Š‹(@†7Œ<Œ,)6Š-Š%@†7Œ<Œ,4  A€ Œ Ap Œ& A0C -@6?P<2@@@ C$:C -@6@<2@@@ C$D‰-@@ ‰$N[ +@A@P1A@PCA@XO6Ž-[6-X'@A'B7tAb[-@@.(@ HANGMAN 1.5@-@@[(@ BY JIM WILSONlQ%6-P:@2$H:,%@,/#A Q6Š-P:@P$H:,%@,v( ENTER YOUR FIRST NAME €…ŠA @”Œ-@Šž"ˆ¨6‘-@²Dˆ4****#A :6Š-P:@P$H:,%@,D A`¼ ŒÆ AÐŒ-@ŠÚ"ˆäDˆ4****#A :6Š-P:@P$H:,%@,D A î Œø 6€.6‘-@ Dˆ4****#A :6Š-P:@P$H:,%@,D A  +@ '@A'B7tA*22INITIALIZE REMAINING LETTERS STRING›4$$6‡.ABCDEFGHIJKLMNOPQRSTUVWXYZ>9AAT'AAD9AADH/-@/(@… 'S HANGMANR7-@7(@____________________\(-@@( @SCOREfN-@@)(@YOU Ž;-@@N(@ME p)-@@)(@******z)-@@)(@* !„Œ-@@Ž-@Œ(@*˜ Œ¢&-@&(@***¬&-@&(@***¶*-@@ *(@LETTERSÀ,-@@,(@ REMAININGÊ,-@@,(@ ---------Ô}-@@,(@ ABCDEFGHI>-@@U(@ JKLMNOPQRg-@@}(@STUVWXYZÞPRINT BLANK SPACES›è;-@&Œ-@B:ˆ,7(@_ ; Œò""INITIALIZE CHECK WORD LENGTH›ü+Œ-@B:ˆ,!6ƒ7Œ<Œ,.*% Œ+6.ˆ6’-0AR@((0( GUESS A LETTER 2A @'AR@2@$AdAU.##@@K:8)@“BA @L ApV(+”,AP` 6„.>:“,j„4APtCCREMOVE INPUT LETTER FROM REMAINING LETTER STRING›~Œ-@B:‡,ˆ%‡7Œ<Œ,4„6‡7Œ<Œ,. % A€’ Œœ22REMOVE INPUT LETTER FROM STRING›¦6•-@6–-@°Œ-@B:‡,º) -•–(@‡7Œ<Œ,)6•-•%@Ä)•"@ 6•-@)6–-–%@Î ŒØ??REMOVE INPUT LETTER FROM INPUT REJECT STRING›â—-@B:€,ì€4Aö€7—<—,4„(} AP — !!CHECK WORD FOR INPUT LETTER›6’-’%@6˜-(Œ-@B:ˆ,2$ˆ7Œ<Œ,4„6˜-@$ Ap< ŒF˜"ApP APZHANGMAN CHARACTER›d!!6‚.-(^.^)_!!!!>--<n77‘AA@ApAAA0x HEAD›‚¡-@@3(@‚7@<@,E-@@c(@‚7@<@,u-@@“(@‚7@ <@,¡6‘-‘%@Œ A  AP– BODY› Ã-@@3(@‚7@<@,E-@@ c(@‚7@<@,u-@@“(@‚7@<@,¥-@@Ã(@‚7@<@,ª%6‘-‘%@ A % AP´LEFT ARM›¾U-@@ 3(@‚7@<@,A6‘-‘%@K A U APÈRIGHT ARM›ÒU-@@ 3(@‚7@<@,A6‘-‘%@K A U APÜLEFT LEG›æ…-@@3(@‚7@ <@ ,E-@@c(@‚7@!<@!,q6‘-‘%@{ A … APðRIGHT LEG›úq-@@3(@‚7@"<@",E-@@c(@‚7@#<@#,q6‘-‘%@QA @'AR@*(-(0(Q(SORRY, YOU HAVE BEEN HANGED.Z#(THE CORRECT WORD WAS .16-%@C-@@P(@Z A0 A`"PLACE CORRECT LETTERS›,WWŒAAAA A0A@APA`ApA€6E-@'(@ˆ7Œ<Œ,1 Ap; AE A@@E-@@'(@ˆ7Œ<Œ,1 Ap; AE A@JE-@@'(@ˆ7Œ<Œ,1 Ap; AE A@TE-@@'(@ˆ7Œ<Œ,1 Ap; AE A@^E-@@'(@ˆ7Œ<Œ,1 Ap; AE A@hE-@@'(@ˆ7Œ<Œ,1 Ap; AE A@rE-@@'(@ˆ7Œ<Œ,1 Ap; AE A@|E-@@'(@ˆ7Œ<Œ,1 Ap; AE A@†E-@@'(@ˆ7Œ<Œ,1 Ap; AE A@E-@@'(@ˆ7Œ<Œ,1 Ap; AE A@šGGREPLACE CORRECTLY GUESSED LETTER WITH CHECK CHARACTER›¤6ˆ7Œ<Œ,.*® ˆ4ƒ ' A0¸$‰-@@% ‰ÌzŒ-@@4-@@6@P2@&@T X Œz2Öm( (.( VERY GOOD, YOU GUESSED THE WORD!<6Ž-Ž%@N-@@[(@ŽmA @àMAR(8(DO YOU WANT TO PLAY AGAIN?C@M A0€ê 6„.>:“,ôq „4Y6ƒ.6€.;6-P:@2$H:,%@,E#A g6Š-P:@P$H:,%@,q A þ„4NA !( ( ((!A @ A``( ( (((9(!DOES ANOTHER PERSON WANT TO PLAY?KA @V@` A0€& 6„.>:“,0# „4Y6€.6ƒ.# A: „4N+D( ( ( A N%%2@@`@@X›-@@% ›b%%2@l 6€7’,.„v$€%%2@@@@@Š›-@@% ›”%%2@ž 6€7’,.„¨$²<<SUBROUTINE TO CHECK INPUT LETTER IS A TO Z›¼6”-Æ“ @e)“!@$Ð6”-@$ÚffHOUSE,BANANA,HAMBURGER,BOOK,BICYCLE,CHICKEN,SCHOOL,NECKLACE,THUNDER,GARAGE,AUTOMOBILE,TELEVISION›ähhCABBAGE,FAMILY,STEREO,JACKET,SLIPPERY,LAWNMOWER,ELEPHANT,ROBE,ELEVATOR,PRINCESS,STOMACH,LIZARD,CAT›îffSUGAR,MUSTARD,ENVELOPE,COVER,CUCUMBER,BUSH,NEWSPAPER,SLIPPERS,CATSUP,TOMATO,WRIST,SLEEVE,PICTURE›øffLIGHTNING,STOVE,HANGMAN,TRAIN,COW,SWING,CHAIR,QUEEN,YELLOW,COUCH,AWNING,FENCE,COMPUTER,MICROWAVE›""----------------------------› nnEnter your own words here. Make sure that the final data statement is "DATA ****"›""----------------------------›® ****›¸ #A10 "œžÌ A@Ö œ"6@$à 2œ@@ê DF:A@,":2D A0pô A0@þ A@ž A0 AdAU ##@@K: )@“& A @0 $: kk204,36,9,204,36,9,217,12,9,204,36,9,173,36,9,182,12,9,182,36,9,204,12,9,204,36,9,217,12,9,204,42,9,-1›D 0,0›€D:MACEHANG.BAS