10 CLS
11 INPUT "Hello, I'm Trini the Computer!  What is Your Name";A$
12 PRINT
13 PRINT "INSTRUCTIONS"
14 PRINT
15 PRINT "1.  Although this Program is called HANGMAN, You will not See a Man"
16 PRINT "    being drawn for the wrong guesses You make.  Instead, I tally Your              Your wrong guesses.  The number of wrong guesses allowed depends                on how long the word is."
20 PRINT "3.  Words (or Strings) or use only CAPITOL LETTERS.  If You guess                   a small 'r' I may count it as incorrect.  To avoid this problem,                press the CAPS LOCK key on Your keyboard.  Make sure you can "
21 PRINT "    type only CAPITOL LETTERS."
22 PRINT "4.  You may make Your own Words for other players to guess if                       if You want."
23 PRINT ". . . . Hit any Key to Continue."
24 V$ = INKEY$
25 IF V$ = "" THEN 24 ELSE 1000
1000 CLS
1001 LOCATE 9,10
1002 PRINT "1) User to guess Computer's word"
1003 PRINT TAB(10);"2) One player to guess another Player's word"
1004 PRINT TAB(10);"3) Quit"
1005 PRINT TAB(10);"   Please enter your selection"
1006 INPUT "            Choice - ",PICK$
1007 P = VAL(PICK$)
1008 IF P < 1 OR P > 3 THEN 1001
1009 ON P GOSUB 1010,1020,1069
1010 REM
1011 REM  *** Word Input By the Computer ***
1012 REM
1013 RANDOMIZE TIMER
1014 RESTORE
1015 FOR X = 1 TO INT(RND*155)+1
1016 READ WORD$
1017 NEXT X
1018 GOSUB 1035
1019 RETURN
1020 REM
1021 REM  **** Word Enter By the Player  ****
1022 REM
1023 PRINT "Type in a Word and Press Enter!"
1024 WORD$ = ""
1025 T$ = ""
1026 WHILE T$ <> CHR$(13)
1027 T$ = INKEY$
1028 IF T$ = "" THEN 1027
1029 WORD$ = WORD$ + T$
1030 PRINT "*";
1031 WEND
1032 WORD$ = LEFT$(WORD$,LEN(WORD$)-1)
1033 GOSUB 1035
1034 RETURN
1035 REM  **** Guess Routine ****
1036 CLS
1037 LOCATE 6,10
1038 L = LEN(WORD$)
1039 G = 1
1040 PRINT "The Word has";L;"Characters." :                                          IF LEN(WORD$) > 10 THEN W = 16 ELSE W = 11
1041 LOCATE 10,10
1042 GUESS$ = STRING$(L,45)
1043 PRINT GUESS$
1044 WHILE G < W
1045 LOCATE 18,10
1046 PRINT "You Missed";G-1;"times out of";W-1
1047 LOCATE 20,10
1048 PRINT TAB(10);"Words chosen by the Computer may have spaces.  "
1049 PRINT TAB(10);"If You think that their are any, just press the SPACEBAR."
1050 PRINT
1051 PRINT TAB(10);"Guess a Character in the String - ";
1054 G$ = INKEY$
1055 IF G$ = "" OR G$ = CHR$(13) THEN 1054 ELSE 1056
1056 PRINT G$:M = G
1057 FOR J = 1 TO L
1058 IF MID$(WORD$,J,1) <> G$ THEN 1061                                              ELSE MID$(GUESS$,J,1) = G$
1059 LOCATE 10,10
1060 PRINT GUESS$:E = 1
1061 NEXT J
1062 G = G + 1:G = G - E:IF G > M THEN LOCATE 16,10:BEEP:                            PRINT "Their is no ";G$;"!"      ELSE LOCATE 16,9:                              PRINT "                             ":E = 0
1063 IF GUESS$ = WORD$ THEN G = W
1064 WEND
1065 LOCATE 14,10
1066 IF GUESS$ = WORD$ THEN PRINT "Way to Go, ";A$                                   ELSE PRINT "Sorry, ";A$;"! The Word or Name was ";WORD$
1067 FOR I = 1 TO 2000: NEXT
1068 RETURN
1069 END
65521 DATA KWAME,WHEELER,LINKA,"MATE",ALPHA,"DONKEY KONG","DIDDY KONG",                    "CANDY KONG","EDDIE SEGOURA","BILLY YOST","BARBARA DOLGINS",                    "FIOR 6097","HmArOnE PASSWORD","WALTER Z. JONES","RYAN STEEL"
65522 DATA "ROBERT STEAL","KAITLIN STAR","FUNKY KONG","CAPTAIN GAMEPLAY",                  "SAMUS ARAN","KIMBERLY JOHNSON","J.B REESE",TRAVIS YOUNGER,BENEATHA
65523 DATA "CRANKY KONG",MARIO,LUIGI,HASHEM,JEB,JAFAR,ZORDON,GRIMLORD,                     "KING K. ROOL","RITA REPULSA",BOWSER,IAGO,LINK,ZELDA,DENNIS,                    PETER,RAY,WINSTON,EGON
65524 DATA 10,KWAME,20,WHEELER,30,LINKA,40,MATE,325,JAFAR,3,Aladdin,                  4,Queen Gaia,64564,Bowser,10,Kwame,500,Earth,10,Wheeler,650,Fire,               25,Linka,300,Wind,35,Mate,50,Chess
65525 DATA HOUSE,TREE,QUEEN,KING,VIRTUALIZER,GAME,WHEEL,TELEVISION,MOVIE,                  CHRISTMAS,CHANUKAH,HALLOWEEN,YOM KIPPUR,PASSOVER,EASTER,                        NEW YEARS DAY,POWER MORPHER,PLANETEER RING,KEYBOARD,DISK DRIVE
65527 DATA ERROR,METROID,VENUS,MIGHTY MORPHIN POWER GENIES,MERCURY,MARS,                   SATURN,JUPITER,URANUS,NEPTUNE,PLUTO,SUN,MOON,STARS,WHEEL OF FORTUNE,            JEOPARDY,DISNEY,MICKEY MOUSE,ORLANDO FLORIDA,THE DISNEY CHANNEL
65528 DATA MATH,SCIENCE,HISTORY,READING,THE PRICE IS RIGHT,THE MAGIC BOX,                  BOOKS,BOOK,LOOK,RUN,JUMP,CASSETTE,RECORD,PLAY,STOP,FAST FORWARD,                REWIND,RADIO,Z100,MIX 105,WPLJ,CABLE TV,CONVERTER,ELECTRONICS
65529 DATA KWAME,WHEELER,LINKA,MATE,EARTH,FIRE,WIND,CHESS,PLANETEER,WISHES,                NINTENDO,SAMUS,ALADDIN(ÆRED,WILMA,COMPUTERS,"MAGIC LAMP"