home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 203 / 203.d81 / b.libraries (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  616b  |  21 lines
  1. 5 print"[147]"
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53282,0:poke646,14
  4. 30 poke214,6:print:printtab(12)"[204][207][193][196][211][212][193][210] [204][201][194][210][193][210][201][197][211]"
  5. 40 poke214,8:print:printtab(12)"1. [201]ssues 1 - 100"
  6. 50 poke214,10:print:printtab(12)"2. [201]ssues 100 - 186"
  7. 51 poke214,12:print:printtab(12)"3. [201]ssues 187 -    "
  8. 55 poke214,14:print:printtab(12)"4. [197]xit [204]ibraries  "
  9. 60 poke198,0:wait198,1:getz$
  10. 70 z=val(z$):ifz=1thena$="b.library 1-100":goto100
  11. 71 ifz=2thena$="b.library101-186":goto100
  12. 72 ifz=3thena$="b.ls lib v7":goto100
  13. 73 ifz=4thenpoke53280,14:poke53281,6:print"[147]";:load"end",dv
  14. 100 q$=chr$(34)
  15. 110 print"[144][147]l[207]"q$a$q$","dv""
  16. 120 forx=1to4:reada:poke630+x,a:next:poke198,4:end
  17. 130 data13,82,213,13
  18. 9999 end
  19. 10000 d=peek(186):n$="b.libraries":open15,d,15,"s0:"+n$:close15:saven$,d:end
  20. 60000 goto10000
  21.