home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 83 / 083.d81 / library / BOOT (.txt) next >
Commodore BASIC  |  2022-08-26  |  1KB  |  29 lines
  1. 1 ifa=0thendv=peek(186):ifdv<8thendv=8
  2. 5 ifa=0thena=1:load"reader c800",dv,1
  3. 10 print"[147]":gosub70
  4. 30 poke51253,dv:print"      [211][208][193][195][197][159] to view docs [210][159] to [210][213][206]"
  5. 40 print"[158]     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":f$="t.library boot"
  6. 50 geta$:ifa$<>" "anda$<>"r"then50
  7. 60 ifa$=" "thensys51200,f$,"[204][160][207][160][193][160][196][160][211][160][212][160][193][160][210] [160] [204][160][201][160][194][160][210][160][193][160][210] [217]":f$="":goto50
  8. 65 print"[147]":goto60000
  9. 70 poke53280,0:poke53281,0:iffthenreturn
  10. 80 poke214,10:print"[145]";
  11. 90 fori=1to13:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
  12. 100 fori=217to242:pokei,peek(i)or128:next
  13. 110 poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  14. 120 fori=1to7:printtab(4)"[155]                                [151][146][223]":next
  15. 130 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][146][223]"
  16. 140 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
  17. 150 poke214,14:print"[145][155]";
  18. 160 fori=1to5:reada$:gosub170:next:goto180
  19. 170 printspc(20-len(a$)/2)""a$:a$="":return
  20. 180 :return
  21. 190 data"[204][207][193][196][211][212][193][210][160][204][201][194][210][193][210][217]","by [202]eff [202]ones"
  22. 200 data"[208]ublished on [204][207][193][196][211][212][193][210] #81","[211]ubscriptions 1-800-831-2694"
  23. 210 data"[195]opyright ([195]) 1991 [211]oftdisk"
  24. 60000 a$="library boot":open15,dv,15,"r0:"+a$+"="+a$:input#15,er:close15
  25. 60010 if er<>63 then print"[147]":end
  26. 60011 q$=chr$(34):poke646,peek(53281):print"[147]"
  27. 60020 print"load"q$a$q$","dv
  28. 60030 print"run":poke631,13:poke632,13:poke198,2:end
  29.