Menu: Difference between revisions
add gwbasic
(add FreeBASIC) |
(add gwbasic) |
||
Line 1,301:
You picked "huff and puff"
</pre>
=={{header|GW-BASIC}}==
<lang gwbasic>
10 DATA "Fee fie", "Huff and Puff", "Mirror mirror", "Tick tock"
20 VC = 0
30 DIM M$(3)
40 FOR I = 0 TO 3
50 READ M$(I)
60 NEXT I
70 CLS
80 FOR I = 0 TO 3
90 PRINT I+1;" ";M$(I)
100 NEXT I
110 PRINT
120 INPUT "Choice? ", C$
130 VC = VAL(C$)
140 IF VC<1 OR VC>4 THEN GOTO 70
150 PRINT "You picked ", M$(VC-1)
160 END
</lang>
=={{header|Haskell}}==
| |||