#è¤*****************************#ò¤* *#ü¤* HANGMAN V 009 *#¤* *#¤*****************************¤ By David Wess$¤ HANGMAN.¤ Version date 28/1/85*8¤ copyright (c) 1984 Tatung (UK) Ltd.B¤**** MAIN-CONTROL ****L¤2Vÿ”:Á 4: K~0 r 15:ÿ• K," ":› K:¤ START LINE 1=`“ Z s ‚:§ 1000:Z~u1: ‚:§ 1000: à ‘ 1190:¤ START LINE 2j 1200:¤ SET-UP"t 1450:¤ CHARACTER-DEFINITION'~ 2670:¤ INTRODUCTION/INSTRUCTIONS)ˆ 2990:¤ UNTIL COMND="F"(FOR FINISH)"’¤ PLAY THE GAMEœ¤ END,¦“ Z s 320: ÿ”:Á 4:ÿƒ 4::¤ FINISH LINE°¤º¤*** SET-UP ***ĤIÎÿ‡ u6,0:· "R1","R1","R1":ÿ,0:ÿ‚,0:„40:ÿ„ œ:ÿ…2:Œ 0: 0,0,10,0,255,0,ØGAMECOL~0:¤ GAME BACKGROUND TRANSPARENT5âINSTRCOL~0:¤ INSTRUCTIONS BACKGROUND TRANSPARENT ìMESCOL~7:¤ MESSAGES IN CYAN"öLRCOL~13:¤ LETTERS IN MAGENTA“ Z~1 s à ‘ 1260# Š M$(19):¤ WE HAVE 17 MESSAGESM$(0)~æ(" ",40)3M$(1)~" Press I for Instructions, press F to"(M$(2)~" Finish playing."42M$(3)~" Press H or E for a Hard or Easy word."5<M$(4)~" I will free you if you can guess the"*FM$(5)~" word that I am thinking of."PM$(7)~" It has"(ZM$(8)~" letters so I will give you"dM$(9)~" tries."+nM$(10)~" Choose a letter." xM$(11)~" You have"‚M$(12)~" tries left."ŒM$(13)~" try left."2–M$(14)~" I suppose I'll have to FREE you."0 M$(16)~" You HAVE tried that letter."ª¤´¤** MAN LEG BACK **¾¤È¤** YELLOW BITS **Ò¤Üÿ† &90,"03050F0703000000"æÿ† &91,"0010000001010100"ğÿ† &92,"80C0C0C080000000"úÿ† &93,"0000000080400000"¤¤** BLUE BITS **¤"ÿ† &94,"0002000000030707",ÿ† &95,"0F07070700000007"6ÿ† &96,"0000000000808080"@ÿ† &97,"8080808000002040"J¤T¤** MAN LEG FORWARDS **^¤h¤** YELLOW BITS **r¤|ÿ† &98,"03050F0703000000"†ÿ† &99,"0000000003050100"ÿ† &9A,"80C0C0C080000000"šÿ† &9B,"0020000000000000"¤¤®¤** BLUE BITS **¸¤Âÿ† &9C,"0002000000030707"Ìÿ† &9D,"0707070700100807"Öÿ† &9E,"0000000000808080"àÿ† &9F,"C080808000000000"ê¤ô¤** MAN LEGS OUT **ş¤¤** YELLOW BITS **¤ÿ† &A0,"03050F0703000000"&ÿ† &A1,"2000000002040000"0ÿ† &A2,"80C0C0C080000000":ÿ† &A3,"1000000080400000"D¤N¤** BLUE BITS **X¤bÿ† &A4,"000200000003071F"lÿ† &A5,"1707070700100800"vÿ† &A6,"00000000008080E0"€ÿ† &A7,"A080808000002040"Ф”¤** MAN LEGS DOWN **¤¨¤** YELLOW BITS **²¤¼ÿ† &A8,"03050F0703000000"Æÿ† &A9,"0000010001010100"Ğÿ† &AA,"80C0C0C080000000"Úÿ† &AB,"0000000000000000"ä¤î¤** BLUE BITS **ø¤ÿ† &AC,"0002000000030707" ÿ† &AD,"0707060700000003"ÿ† &AE,"0000000000808080" ÿ† &AF,"8080808000000000"*¤4¤** MAN LEG UP STEP **>¤H¤** YELLOW BITS **R¤\ÿ† &B8,"03050F0703000000"fÿ† &B9,"000001000F010100"pÿ† &BA,"80C0C0C080000000"zÿ† &BB,"0000000000000000"„¤¤** BLUE BITS **˜¤¢ÿ† &BC,"0002000000030707"¬ÿ† &BD,"0707060700180007"¶ÿ† &BE,"0000000000808080"Àÿ† &BF,"8080808000000000"ʤԤ** PORTCULLIS **ޤNèÿ† &B0,"070C14247F4444447F4444447F444444C0605040FC444444FC444444FC444444"Nòÿ† &B4,"070F1F3F7F7F7F7F7F7F7F7F7F7F7F7FC0E0F0F8FCFCFCFCFCFCFCFCFCFCFCFC"ü¤ ¤** MAN FACING ** ¤ ¤** YELLOW BITS **$ ¤N. ÿ† &C0,"03050707030000000000040002020200C0A0E0E0C00000000000200040404000"8 ¤B ¤** BLUE BITS **L ¤NV ÿ† &C4,"000200000107070707070303000000060040000080E0E0E0E0E0C0C000000060"` ¤j ¤** MAN FACING HANDS UP **t ¤~ ¤** YELLOW BITS **ˆ ¤N’ ÿ† &D0,"03450707030000000000000002020202C0A2E0E0C00000000000000040404000"œ ¤¦ ¤** BLUE BITS **° ¤Nº ÿ† &D4,"000220100807030303030303000000060040040810E0C0C0C0C0C0C000000060"Ä ¤!Î ¤** SET UP WALK VARIABLES **Ø ¤#â Y~44:XSTART~190:YD~44:X~XSTARTì XHALT(4)~158ö XHALT(3)~138 XHALT(2)~110 XHALT(1)~98 YELBIT(0)~&A8 YELBIT(1)~&98( YELBIT(2)~&A02 YELBIT(3)~&90< BLUEBIT(0)~&ACF BLUEBIT(1)~&9CP BLUEBIT(2)~&A4Z BLUEBIT(3)~&94d ¨n ¤(x ¤** DISPLAY-INTO/INSTRUCTION-PAGE**‚ ¤@Œ ÿ† &C8,"0808182444442418":ÿ11,0:¢Ç(&14):ÿƒ INSTRCOL:„:ÿ„ œ– TITL1$~æ(Ç(&C8),11)%  TITL2$~Ç(&C8)t" "tÇ(&C8)ª ¢@14,0;TITL1$´ ¢@14,1;TITL2$%¾ ¢@14,2;Ç(&C8);" HANGMAN ";Ç(&C8)È ¢@14,3;TITL2$Ò ¢@14,4;TITL1$ Ü ¢:ÿ 7,0/æ ¢" You have been sentenced to death by"*ğ ¢" hanging for cruel and dastardly "+ú ¢" crimes against Queen and country."/ ¢" At present you are awaiting execution" ¢" in the castle dungeon.. ¢" I am the jailer and I have decided"." ¢" to give you a chance to live. If you"/, ¢" can guess all the letters of the word")6 ¢" that I am thinking of then you "@ ¢" can go FREE."J ¢:¢/T ¢:ÿ 9:¢" Of course if you can't...":ÿ 7%^ ¢" <>";h “ ä } &20 s 2920 r ÿ 9,0| ¢@27,19;"then YOU DIE"† ¢ æ(" ",40)- Á 5:· "V0-E5R1-E5R1-E5R1-C9R1","R1","R1"š W~0 r 600:› W:¤ PAUSE¤ ¨® ¤¸ ¤** THE-GAME ** ¤Ì 3700:¤ DRAW-START-SCREEN$Ö 4210:¤ SPRITE START POSITIONS#à 2510:¤ SET-UP WALK VARIABLESê ¢@0,23;æ(" ",39);#ô 4390:LINE1~1:LINE2~2:LINE3~3ş 4390:¤ MESSAGE-SCREEN COMND$~Ç(ä z &DF)8 “ COMND$~"I" s 2670:‘ 3020:¤ DISPLAY INSTRUCTIONS( “ COMND$~"F" s ‘ 3690:¤ FINISH GAME:& “ COMND$~"E" s DICNAME$~"DICTIONE.DAT":DCSZ~97:‘ 3150:0 “ COMND$~"H" s DICNAME$~"DICTIONH.DAT":DCSZ~80:‘ 3150 : ‘ 3080D 4390:¤ CLEARS MESSAGE6N LINE1~4:LINE2~5: 4390:¤ IF YOU CAN THINK OF WORDX DICNAME$,FD$b REC0RD ~ 1 r Õ(DCSZ)l ”#FD$;W0RD$ v › REC0RD € ƒ FD$(Š ¤ WE NOW HAVE THE WORD TO BE GUESED” WRDL~Ï(W0RD$) PRNST~22uWRDLu1L¨ “ WRDL  5 s TRYSLF ~2w WRDL: TRYSLFT~WRDLt4:“ TRYSLFT}13 s TRYSLFT~136² “ TRYSLFTu4}4 s MOVESTART~4: MOVESTART~TRYSLFTu4¼ M$(17)~M$(7)tÚ(WRDL)tM$(8)Æ M$(18)~Ú(TRYSLFT)tM$(9)Ğ 4390:¤ CLEAR MESSAGE Ú LINE1~17 ä LINE2~18 î LINE3~10ø 4390:¤ MESSAGE ¢@PRNST,23;""; ÿ LRCOL" I~1 r WRDL:¤ PUT OUT DASHES ¢"_ ";* › I 4 LTF~0)> MANNM~0:T0GGLE~0:¤ WALK START SHAPES9H FSTLTTER~u1:TRY$~"":¤ FIRST LETTER TO BE GUESSED YET!R TRYSLFT~TRYSLFTu1 r 0 p u1X\ “ TRYSLFT~0 s M$(19)~M$(11)tÚ(TRYSLFTt1)tM$(13): M$(19)~M$(11)tÚ(TRYSLFTt1)tM$(12),f “ ç FSTLTTER s LINE1~19:LINE2~10: 4390p FSTLTTER~0^z “ TRYSLFT~2 z (WRDLuLTF)}3 s ÿ 3:¢@11,4;"Press @ for a hint.":Á 4:·"V0+C3G5R1","R1","R1"=„ LTTER$~Ç(ä z &DF):“ LTTER$  "@" { LTTER$ } "Z" s ‘ 3460? “ TRYSLFT~2 z (WRDLuLTF)}3 s “ LTTER$~"@" s 5510:‘ 3460˜ 4390:¤ CLEAR MESSAGE*¢ TRIED~0:¤ SET LETTER TRIED FLAG FALSE8¬ I~ 1 r Ï(TRY$):¤ THE LETTERS THAT HAVE BEEN TRIED/¶ “ LTTER$~Ş(TRY$,I,1) s LINE1~16: 4390:Á 5eÀ “ LTTER$~Ş(TRY$,I,1) s · "V0=C1=D1=C1=D1=C1R2","R","R": 4390:LINE1~19: 4390:I~Ï(TRY$):TRIED~u1Ê › I*Ô “ TRIED s ‘ 3460:¤ TRY ANOTHER LETTERŞ TRY$~TRY$tLTTER$)è LTTERBAD~u1:¤ SET FLAG TO BAD LETTERò W0RDLTTER~1 r WRDL!ü CRNLTR$~Ş(W0RD$,W0RDLTTER,1) ÿ LRCOL@“ LTTER$~CRNLTR$ s ¢@(PRNSTu2t(2wW0RDLTTER)),23;LTTER$;:Á 5D“ LTTER$~CRNLTR$ s · "V0C3+C1C3R1","R","R":LTF~LTFt1:LTTERBAD~0$› W0RDLTTER8.“ LTTERBAD s 5300: 4480:¤ ADVANCE-MAN-TO-GALLOWS%8“ ç LTTERBAD s TRYSLFT~TRYSLFTt1NB“ WRDL~LTF s LINE2~14 : 4390: 5360:Á 5:· "V0C5-G3-G3-#G5-G7-B5C7R6R6R6"?L“ WRDL~LTF s · "R","R","R":TRYSLFT~0:¤ THE WORD IS GUESSEDV› TRYSLFT `‘ 3030j¨t¤~¤*** DRAW-START-SCREEN ***ˆ¤’¤** CASTLE **œ¤ ¦ÿ‚ 11,0:ÿƒ GAMECOL:ÿ 3,0:„°¢@17,0;"HANGMAN"Jºÿ€ 152,28 r 152,112 r 159,112 r 159,105 r 168,105 r 168,112 r 175,112iÄÿ€ r 175,105 r 182,105 r 182,112 r 189,112 r 189,105 r 198,105 r 198,112 r 206,112 r 206,28 r 152,28Τؤ** BOX **⤠ìÿ‚ 15,01öÿ€ 55,16 r 55,145 r 208,145 r 208,16 r 55,16¤ ¤** STEPS **¤ ÿ‚ 11,0L(ÿ€ 143,28 r 141,28 r 141,30 r 139,30 r139,32 r 137,32 r 137,34 r 135,34F2ÿ€ r 135,36 r 133,36 r 133,38 r 131,38 r 131,40 r 129,40 r 129,42F<ÿ€ r 127,42 r 127,44 r 125,44 r 125,44 r 125,46 r 123,46 r 123,48;Fÿ€ r 121,48 r 121,50 r 119,50 r 80,50 r 80,28 r 143,28P¤Z¤** GALLOWS **d¤ nÿ‚ 6,07xÿ€ 88,50 r 88,97 r 110,97 r 110,94 r 91,94 r 91,50&‚ÿ€ 91,89 r 96,94 r 100,94 r 91,85Œ¤–¤** ROPE ** ¤ ªÿ‚ 10,0´ÿ€ 105,65 r 105,93¾¤È¤** SKY LINE **Ò¤ Üÿ‚ 7,0Cæÿ€ 55,80 r 65,80 r 96,110 r 110,99 r 122,111 r 138,95 r 151,95ğÿ€ 207,95 r 207,95ú¤ ÿ‚ 2,0¤ ** CASTLE WINDOWS **;ÿ€ 160,60 r 160,80 r 161,83 r 162,80 r 162,60 r 160,60;"ÿ€ 177,60 r 177,80 r 178,83 r 179,80 r 179,60 r 177,60;,ÿ€ 194,60 r 194,80 r 195,83 r 196,80 r 196,60 r 194,606¤@¤** FILLS **J¤Tÿ 90,61,6:ÿ95,90,6^ÿ 56,144 ,7h¨r¤$|¤*** SPRITE START POSITIONS ***†¤¤** PORTCULLIS **š¤$¤ÿ„ 1,190,46,3,&B0:¤ GREEN GRILL%®ÿ„ 2,190,46,1,&B4:¤ BLACK BEHIND*¸ÿ„14,190,46,6,&B4:¤ RED INSIDE CASTLE(ÂPCULLISDOWN~u1:¤ PORTCULLIS IS DOWN̤"Ö¤** START POSITION FOR MAN **àÿ„ 10,190,46,11,&C0êÿ„ 11,190,46,5 ,&C4ô¤ş¤** NOOSE **¤7ÿ‚ 11:« 104,64:« 104,63:« 105,62:« 106,63:« 106,64¨&¤0¤** MESSAGE-OUT**:¤Dÿ MESCOL,0N¢@0,2;M$(LINE1)X¢@0,3;M$(LINE2)b¢@0,4;M$(LINE3)7lLINE1~0:LINE2~0:LINE3~0:¤ ALL MESAGES SPACES AGAINv¨€¤"Ф*** ADVANCE MAN TO GALLOWS**”¤¤** VARIABLES PASSED6¨¤ TRYSLFT-THE NUMBER OF TRYS LEFTT BEFORE HANGINGO²¤ MOVESTART-THE TRYSLFT UPON WHICH THE MAN STARTS ADVANCING TO THE GALLOWS¼¤AÆ“ TRYSLFTMOVESTARTt1 s “ PCULLISDOWN s PCULLISDOWN~0: 4880)Ğ“ TRYSLFT~0 s 5010:‘ 4580:¤ HANG!!DÚ“ TRYSLFT  MOVESTARTt1 s 4590:¤ ADVANCE MAN TO CURRENT XHALTä¨î¤ø¤** MOVE MAN **¤)  XD~XSTART r XHALT(TRYSLFT) p u1“ XD  114 s 47704 “ XD  137 z XD } 113 s YD~YDt1 : 4690:MANNM~1*“ XD } 136 s 4770 4› XD>XSTART~XHALT(TRYSLFT)u1H¨R¤\¤** UPTHE STEPS **f¤Rp“ T0GGLE s YELB~&B8:BLUB~&BC:T0GGLE~0: YELB~&A8:BLUB~&AC:T0GGLE~u1:X~XD:Y~YDzÿ„ 10,X,Y,11,YELB„ÿ„ 11,X,Y, 5,BLUB W~0 r 180:› W˜¨¢¤¬¤** WALKING **¶¤À“ MANNM~2 { MANNM~3 s X~XDÊYELB~YELBIT(MANNM)ÔBLUB~BLUEBIT(MANNM)Şÿ„ 10,X,Y,11,YELBèÿ„ 11,X,Y, 5,BLUBò W~0 r 90:› W&üMANNM~MANNMt1:“ MANNM~4 s MANNM~0¨¤¤** LIFT PORTCULLIS **$¤.Ã1,&0F:¤ CH A LOW NOTE8à 6,&1F:¤ NOISE PERIODBà 8,&09:¤ CH A AMPLITUDEL YC~46 r 62Vÿ„ 1,190,YC,3,&B0`ÿ„ 2,190,YC,1,&B48jà 7,&76: W~YC r 100 :› W:Ã7,&7F:¤ PORTCULLIS SOUNDt W~(YCu46)w6 r 110:› W ~› YCˆ¨’¤œ¤** HANG **¦¤ °à 0,&7F ºà 2,&7F Äà 4,&7F Îà 6,&0A Øà 8,&10 âà 9,&10 ìÃ&A,&10 öÃ&C,&0B à 7,&47 Ã&D,&05ÿ„ 10,98,67,11,&C0ÿ„ 11,98,67,5 ,&C4( W~0 r 400 :› W2 Y~67 r 71<ÿ„ 10,98, Y,11,&C0Fÿ„ 11,98, Y, 5,&C4P› Y ZÃ&D,0d I~0 r 10 nà 7,&7Fx I~ 24 r 9 p u1%‚ÿI: ¢@11,2;"HANGED...HA HA HA!"Œ› IG–A$~"V0-C7R1-C6R1-C5R1-C7-#D6R1-D5R1-D7R1-C5R1-C7R1=#A5R1-C7R6R6R6" Á 5:· A$,"R","R"ª¨´¤¾¤** BADLETTER-MUSIC **ȤÒÁ 7UÜ·"V0-C1-#C1-D1-#D1-E1-#D1-D1-#C1-C3R1","V0-C1=B1=#A1=A1=#G1=A1=#A1=B1-C3R1","R1"æ¨ğ¤ú¤** MAN YIPPIE **¤“ PCULLISDOWN s ‘ 5500 JUMP~4" I~0 r 15,ÿ„ 10,X,Y,11,&D06ÿ„ 11,X,Y, 5,&D4@“ I~0 s W~1 r 200:› WJ W~0 r 50:› WTY~YtJUMP:JUMP~uJUMP^› Ihÿ„ 10,X,Y,11,&C0rÿ„ 11,X,Y, 5,&C4|¨†¤¤** HINT **𤤠I~1 r WRDL®HNT$~Ş(W0RD$,I,1)¸ J~1 r Ï(TRY$)+“ HNT$~Ş(TRY$,J,1) s HNT$~"":J~Ï(TRY$)Ì› J Öÿ LRCOLNà“ HNT$}"" s ¢@(PRNSTu2t(2wI)),23;HNT$;:Á 5:·"+E5-E2+E5R1","R","R":I~WRDLê› I6ôLTF~LTFt1: 4480:TRY$~TRY$tHNT$:TRYSLFT~TRYSLFTu1XşM$(19)~M$(11)tÚ(TRYSLFTt1)tM$(12):LINE1~19:LINE2~10: 4390:“ TRYSLFT~0 s ¢@25,2:" "¨”åI0ÿcI~@ÿ EZ``ƒHXP„ÈÀ0†£