53 lines
1.0 KiB
Plaintext
53 lines
1.0 KiB
Plaintext
1 rem menu
|
|
5 rem rosetta code
|
|
10 gosub 900
|
|
|
|
20 print chr$(147);chr$(14)
|
|
30 print " Menu "
|
|
35 print:print "Choose an incantation:":print
|
|
40 for i=1 to 5
|
|
45 print i;chr$(157);". ";op$(i,1)
|
|
50 next i:print
|
|
55 print "choose one: ";
|
|
60 get k$:if k$<"1" or k$>"5" then 60
|
|
65 k=val(k$):print chr$(147)
|
|
70 on k gosub 100,200,300,400,500
|
|
80 if k=5 then end
|
|
|
|
90 print:print "Press any key to continue."
|
|
95 get k$:if k$="" then 95
|
|
96 goto 20
|
|
|
|
100 rem fee fi
|
|
110 print op$(k,2)
|
|
115 return
|
|
|
|
200 rem huff puff
|
|
210 print op$(k,2)
|
|
215 return
|
|
|
|
300 rem mirror mirror
|
|
310 print op$(k,2)
|
|
315 return
|
|
|
|
400 rem tick tock
|
|
410 print op$(k,2)
|
|
415 return
|
|
|
|
500 rem quit
|
|
510 print op$(k,2):print "Goodbye!"
|
|
515 return
|
|
|
|
900 rem initialize
|
|
905 dim op$(10,2)
|
|
910 for a=1 to 5
|
|
915 read op$(a,1),op$(a,2)
|
|
920 next a
|
|
925 return
|
|
|
|
1000 data "Fee fi fo fum","I smell the blood of an Englishman!"
|
|
1005 data "Huff and puff","The house blew down!"
|
|
1010 data "Mirror, mirror","You seem to be the fairest of them all!"
|
|
1015 data "Tick tock","Time passes..."
|
|
1020 data "<Quit>","You decide to leave."
|