home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 October / Ahoy_Magazine_86-10_1986_Double_L.d64 / 1-0.bas (.txt) next >
Commodore BASIC  |  2022-10-26  |  404b  |  20 lines
  1. 10 open15,8,15
  2. 20 open5,8,5,"#"
  3. 30 print#15,"b-p:"5;0
  4. 40 print#5,chr$(67);chr$(66);chr$(77); : rem  * cbm code *
  5. 50 print#5,chr$(0);chr$(0);chr$(0);chr$(0);
  6. 60 print"[147]enter boot message":gosub1000
  7. 70 print#5,chr$(0);
  8. 80 print#5,"128-64.bin";
  9. 90 print#5,chr$(0);chr$(76);chr$(75);chr$(226);chr$(0);
  10. 100 print#15,"u2:"5;0;1;0
  11. 110 close5:close15
  12. 120 end
  13. 1000 print"  use '_' when done."
  14. 1005 r$="":poke212,1
  15. 1020 getg$:ifg$=""then1020
  16. 1030 ifg$=chr$(95)then1050
  17. 1040 r$=r$+g$:poke216,1:printg$;:goto1020
  18. 1050 poke212,0:print#5,r$;
  19. 1060 return
  20.