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