home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 83 / 083.d81 / extravaganza (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  525b  |  15 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,0:poke53280,0:print"[147][159]"
  3. 20 print"  [212]he only reason there is a [210]un [201]t for"
  4. 30 print"  [208][210][201][206][212] [211][200][207][208] [197][216][212][210][193][214][193][199][193][206][199][193] is that our"
  5. 40 print"  menu requires a [210]un [201]t file if there"
  6. 50 print"  is going to be a [195]opy [201]t.  [211]o here's"
  7. 60 print"  the [210]un [201]t.  [194]ig deal, huh?"
  8. 70 print"  [208]ress any key to go back to the menu.":poke198,0
  9. 80 geta$:ifa$=""then80
  10. 90 open15,dv,15,"r0:hello connect=hello connect":input#15,er:close15
  11. 100 ifer<>63thenend
  12. 110 print"[147][144]load"chr$(34)"hello connect"chr$(34)","dv
  13. 120 print"run"
  14. 130 poke631,13:poke632,13:poke198,2:end
  15.