Minigame Mastery

1 gosub 1000
10 print "Minigame Mastery"
20 print "----------------"
30 print "1 - Hangman"
40 print "2 - lol"
50 print "3 - wow"
60 input "Pick a game:";a
70 if a>3 or a<1 then print "?REENTER":goto 60
80 on a goto 90,100,110
90 goto 120
100 print "NYI":goto 30
110 print "NYI":goto 30
120 gosub 1000
130 print "Hangman v0.1":print "by MineRobber9000":print "for inclusion in Minigame Mastery":print "---------------------------------"
140 input "Have a friend enter a word:",word$
145 dim worda$(len(word$))
150 for i=1 to len(word$):let worda$(i) = left$(word$,i,1):next i
999 end
1000 for i=1 to 40:print "":next i:return