home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / color.boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  941b  |  29 lines
  1. 10 rem    save"color.boot",8
  2. 20 :
  3. 30 poke53280,4:poke53281,0:poke646,1
  4. 40 print"[147]"
  5. 50 printspc(12)"[195][207][204][207][210][210][213][208][212][207][210]"
  6. 60 print" [212]his program is not to be run while"
  7. 70 print"you are running [204][207][193][196][211][212][193][210].  [212]he program"
  8. 80 print"interferes with the execution of the"
  9. 90 print"[204][207][193][196][211][212][193][210] system."
  10. 100 print" [198]or information on how to [210][213][206] this "
  11. 110 print"program, please read the [193][194][207][213][212] file"
  12. 120 print"for this program.  [217]ou can find this"
  13. 130 print"article in the [208][207][215][197][210] [208][204][193][217] [208][210][207][199][210][193][205] menu."
  14. 140 printspc(12)"<press a key>"
  15. 150 poke198,0:wait198,1
  16. 160 :
  17. 200 print"[147]"spc(14)"[195][207][204][207][210][210][213][208][212][207][210]"
  18. 210 print"           1. [197]xit to [194][193][211][201][195]"
  19. 220 print"           2. [210]eturn to [204][207][193][196][211][212][193][210]"
  20. 230 print"[215]hich?";
  21. 240 poke198,0:wait198,1:getk$:ifk$<>"1"andk$<>"2"then240
  22. 250 printk$
  23. 260 ifk$="1"thenprint"           [193]re you sure?";:poke198,0:wait198,1:gets$
  24. 265 ifs$<>"y"andk$="1"then200
  25. 270 ifk$="1"thenprint"[147]     [217]ou have now exited [204][207][193][196][211][212][193][210].":end
  26. 280 print"              working ....."
  27. 290 print"[144]load"chr$(34)"c.payload"chr$(34)",8":print"run"
  28. 300 poke631,13:poke632,13:poke198,2:end
  29.