home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / dosplus.boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  802b  |  29 lines
  1. 10 poke53281,2:poke53280,2
  2. 15 print"[158][147]"
  3. 20 print"   [215]arning!"
  4. 30 print:print
  5. 40 print"[217]ou are about to exit the [204][207][193][196][211][212][193][210]"
  6. 50 print:print"environment."
  7. 60 print:print"[208]ress 1 to run [196][207][211][208][204][213][211]."
  8. 70 print:print"[208]ress 2 to run [196][207][211][208][204][213][211] [195]reator."
  9. 72 print:print"[208]ress 3 to return to [204]oadstar."
  10. 80 print:print"[215]hich?"
  11. 90 getk$:ifk$=""thengosub60000:goto90
  12. 100 poke53280,rnd(1)*15
  13. 110 k=val(k$)
  14. 120 onkgoto62000,62500,63000:goto90
  15. 60000 ifc=0thenc=1:goto60005
  16. 60002 c=0
  17. 60005 ifc=0thenprint"   [215]arning!"
  18. 60010 ifc=1thenprint"   [215]arning!"
  19. 60020 return
  20. 62000 remconnect to actual pgm
  21. 62002 print"[147]load"chr$(34)"dosplus loader"chr$(34)",8":print"run"
  22. 62004 poke198,0:poke631,13:poke632,13:poke198,2:end
  23. 62500 remconnect to creator pgm
  24. 62502 print"[147]load"chr$(34)"dosplus creator"chr$(34)",8":print"run"
  25. 62504 poke198,0:poke631,13:poke632,13:poke198,2:end
  26. 63000 rem    connect back to l.s.
  27. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  28. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  29.