10 REM BY:JERRY TRAVIS
 20 X$=CHR$(0):PRINT:PRINT"TRYS (Y/N)";:INPUTT$
 30 FORI=53248TO54271:POKEI,32:NEXT:K=0:P=53639:RESTORE
 40 READA$:K=K+1:IFA$<>"-1"GOTO40
 45 S=K+1
 50 READA$:K=K+1:IFA$<>"-1"GOTO50
 55 N=K-S:K=0:A9=128:B9=136:C9=135:D9=143
 60 GOSUB9000:POKE54117,32:B$="H A N G M A N":X8=53449:U=135:GOSUB8000
 70 R=INT(859*RND(R))+P-53638:R=INT(N*RND(R))+S:FORI=1TOLEN(X$)
 80 IFASC(MID$(X$,I,1))=R-S+1GOTO70
 85 NEXT:X$=X$+CHR$(R-S+1):RESTORE
 90 FORI=1TOR:READA$:NEXT:RESTORE:READQ$:FORI=1TO5:READROW(I):NEXT
 100 FORI=1TO7:READCOL(I):NEXT:FORI=54055TO54054+LEN(A$):POKEI,95:NEXT
 110 POKE54000,161:FORI=54001TO54007:POKEI,161:POKEI-32,161:NEXT
 120 FORI=53942TO53590STEP-32:POKEI,161:NEXT:POKE53975,178
 130 FORI=53558TO53554STEP-1:POKEI,154:NEXT:POKE53586,143:POKE53618,143
 140 POKE53619,136:POKE53650,224:POKE53651,225:B$="TRYS":X8=53575
 150 IFASC(T$)=89THENGOSUB8000
 160 U=0:B$="GUESS?":X8=53767:GOSUB8000:GOSUB1000:IFZ$=" "THENGOTO160
 170 IFZ$="#"THENPRINT"BYE!":END
 175 IFZ$="$"THENGOTO30
 180 FORI=1TOLEN(A$):IFMID$(A$,I,1)=Z$ANDPEEK(54054+I)=95GOTO300
 190 NEXT:B$="WRONG!":GOSUB8000:FORI=1TO500:NEXT
 200 IFASC(T$)=89THENPOKEP,ASC(Z$)
 210 P=P+1:GOSUB2000:IFX8=54055GOTO30
 220 GOTO160
 300 POKE54054+I,ASC(MID$(A$,I,1)):K=K+1:IFK=LEN(A$)GOTO400
 310 B$="RIGHT!":GOSUB8000:FORI=1TO1000:NEXT:GOTO160
 400 B$="YOU WIN!":GOSUB8000:A9=188:B9=188:C9=188:D9=188:GOSUB9000
 410 A9=18:B9=20:C9=22:D9=16:GOSUB9000:GOTO30
 1000 POKE 530,1
 1010 FORI=1TO5:POKE57088,ROW(I):FORJ=1TO7:IFPEEK(57088)=COL(J)GOTO1200
 1020 NEXTJ:NEXTI:GOTO1010
 1200 POKE530,0:Z$=MID$(Q$,(I-1)*7+J,1):RETURN
 2000 READI:IFI=0THENRETURN
 2010 IFI=-1GOTO2500
 2020 READJ:POKEI,J:GOTO2000
 2500 B$="YOU LOSE":GOSUB8000:B$=A$:X8=54055:U=135:GOSUB8000:RETURN
 3000 DATA" LO$#  WERTYUISDFGHJKXCVBNM QAZ   P"
 3010 DATA223,239,247,251,253,127,191,223,239,247,251,253
 4000 DATA53650,227,53651,228,0,53682,147,53683,146,0
 4010 DATA53714,161,53715,161,53746,161,53747,161,53778,161,53779,161,0
 4020 DATA53713,176,53745,156,53777,156,53776,165,0
 4030 DATA53716,178,53748,157,53780,157,53781,167,0
 4040 DATA53810,187,53811,187,0
 4050 DATA53842,175,53841,176,53873,177,53874,178,53906,175,0
 4060 DATA53843,177,53844,178,53876,175,53875,176,53907,177,-1
 5000 REM HANGMAN WORDS
 5100 DATA"THYME","SHOE","BATTLESHIP","MIRROR","FENCE","SKUNK","ZEBRA"
 5110 DATA"BOOK","LIGHT","TEACHER","PROPORTION","QUICK","HARMONICS"
 5120 DATA"PHILOSOPHY","CALCULUS","BOX","STAR","MAP","STAIRCASE","MARS"
 5130 DATA"TRANSFORMER","ORBIT","GOBLET","CALCULATE","POLYHEDRA"
 5140 DATA"GEODESICS","VISUAL","EQUATION","OWL","GRAPH","VOLUME","JAR"
 5150 DATA"TEA","TEE","LANTERN","SUPERMAN","FISH","HOUSE","YARD","ROAD"
 5170 DATA"ASTRONOMY","TRIANGLE","LETTER","ENVELOPE","PEOPLE","WOOD"
 5180 DATA"PROPAGANDA","TRANSDUCER","ULTRASONIC","AUTOMOBILE","FILE"
 5190 DATA"PROPELLER","ENGINE","PLANE","MOTOR","SWITCH","WALL","GARAGE"
 5200 DATA"KEYBOARD","PERFORMANCE","KIT","RAIN","SUN","WIND","SHADOW"
 5210 DATA"WASH","CAMP","TYPEWRITER","PLASTIC","ROCKET","PLATFORM"
 5230 DATA"APPLE","GARDEN","LUNCH","BRAIN","COMPUTER","SATURN","EARTH"
 5240 DATA"FLOWER","CABBAGE","NIGHT","LOST","CRAB","BUTTON","GIVE"
 5250 DATA"VACUUM","SCIENTIFIC","KNIFE","NUT","ASPIRINE","PILLOW"
 5260 DATA"WINDOW","SPOON","STICK","CAR","VOLKSWAGEN","RADIO","ROOF"
 5270 DATA"CLOTHES","FOUNDATION","LIBRARY","SATIRE","MYSTERIOUS"
 5280 DATA"CONVERSATION","DOLPHIN","PROMISE","OCEANOGRAPHER","SHORE"
 5290 DATA"GEOGRAPHY","EAT","ACCIDENT","BOWL","CLOUDS","HURRICANE"
 5300 DATA"SQUASH","CUCUMBER","DEVISE","HALF","SOLID","TRAVEL","EGG"
 5310 DATA"SUSPENSION","SUSPENSE","VECTOR","COIL","SEA","ZONE","ZOO"
 5320 DATA"ZOMBIE","TAPERECORDER","VANISH","SLEEP","TURTLE","APRON"
 5900 DATA-1:REM END OF0WORDS
 8000 FORI=X8TOX8+LEN(B$)-1:POKEI,ASC(B$):IFU<>0THENPOKEI+32,U
 8010 B$=MID$(B$,2,LEN(B$)-1):NEXT:RETURN
 9000 FORI=53381TO53401:POKEI,A9:NEXT:FORI=53434TO54138STEP32:POKEI,B9
 9010 NEXT:FORI=54169TO54149STEP-1:POKEI,C9:NEXT
 9020 FORI=54116TO53412STEP-32:POKEI,D9:NEXT:RETURN
 9999 END