home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 25
/
025.d81
/
nature.menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
738b
|
27 lines
10 rem nature.menu
20 poke53280,0:poke53281,5:print"[147]"
25 printspc(6)"**************************"
30 printspc(6)"* [206][160][193][160][212][160][213][160][210][160][197][160][160][209][160][213][160][197][160][211][160][212] *"
35 printspc(6)"**************************"
40 :
45 print:print
50 printspc(18)"by"
55 printspc(13)"[203]aren [199]arrett"
57 printspc(14)"[202]on [194]arnes"
60 :
70 print"[215]hich would you like to do:"
75 print
80 print" [193] ==> [211]ee the hummingbird fly?"
85 print" [194] ==> [214]iew the hummingbird's habitat?"
90 print" [195] ==> [210]eturn to [204][207][193][196][211][212][193][210]?"
95 print"[215]hich?"
100 poke198,0:wait198,1:geta$
110 ifa$="b"thenf$="hummer.map":s$="the hummingbird's home!":goto130
115 ifa$="a"thenf$="hummer.fly":s$="see the hummingbird fly!":goto130
120 ifa$="c"thenf$="hello connect":s$="[204][207][193][196][211][212][193][210]!":goto130
125 goto100
130 :
140 print"[147] [199]oing to "s$
150 print"load f$,8":print"run"
160 poke631,13:poke632,13:poke198,2:end