I was very bored, so I made this, took about 15 minutes.
randomize timer():set display mode 200,150,16:dim word$(100,2):dim lett$(20):dim letts(20):dim tries(26)
open to read 1,"words.txt":repeat:read string 1,w$:if w$ <> "":inc w,1:word$(w,2) = w$:read string 1,word$(w,1):endif:until file end(1)
set window on:set window size 200,150:set window title "Hang Man":sync on : sync rate 60
start:
wd = rnd(w-1)+1: lwd = wd:sp = 0:w$ = word$(wd,1):l = len(w$):lms = l:for s = 1 to l:lett$(s) = upper$(mid$(w$,s)):letts(s) = 0 : if lett$(s) = " " : lms = lms - 1 : : letts(s) = 1 : ENDIF :next s
for ct = 1 to 26 : tries(ct) = 0 : next ct : f = 0 : c = 0
do : ink rgb(255,255,255),0 : text 5,115,word$(wd,2)+":" : for dl = 1 to l : if letts(dl) : text 5+((dl-1)*10),130,lett$(dl) : else : text 5+((dl-1)*10),130,"_":endif : next dl
line 10,10,40,10:line 10,10,10,70:line 10,70,50,70:line 40,10,40,15
if f => 1 : circle 40,21,6 : endif:if f => 2 : line 40,27,40,45: endif:if f => 3 : line 30,34,40,34: endif:if f => 4 : line 40,34,50,34: endif:if f => 5 : line 40,45,30,53: endif
if f => 6 :line 40,45,50,53 : text 5,75,"You failed.": text 5,90,"Press SPACE": for e = 1 to l : letts(e) = 1 : next e : if spacekey() = 1 : goto start : endif :endif
if returnkey() = 1 and g$ <> "" : if tries(asc(g$)-64) = 0 : tries(asc(g$)-64) = 1 : oc = c : for ch = 1 to l : if lett$(ch) = g$ : letts(ch) = 1 : c = c + 1 : endif: next ch : if c = oc then f = f + 1
tries(asc(g$)-64) = 1 : g$ = "":w = 10:else:ink rgb(255,0,0),0:endif:endif
if c = lms : text 5,75,"Well done." : text 5,90,"Press SPACE" : if spacekey() = 1 then goto start
endif : if w = 0 : if inkey$() <> i$ : i$ = upper$(inkey$()) : endif: if asc(i$) => 65 and asc(i$) <= 90 : g$ = i$ : w = 10 : endif : else : w = w - 1 : endif
text 185,130,g$ : sync
cls : loop
Create a TXT file called "words.txt" in the same directory and fill it with words.
You need to type a clue, then on the next line the actual word and then a blank line.
Example enclosed.
Might be a little bit of fun now and then if you're bored.
Enjoy.