Menu: Difference between revisions
Content added Content deleted
(add FreeBASIC) |
(add gwbasic) |
||
Line 1,301: | Line 1,301: | ||
You picked "huff and puff" |
You picked "huff and puff" |
||
</pre> |
</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}}== |
=={{header|Haskell}}== |