home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / docreader (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  664b  |  27 lines
  1. 10 poke53280,6:poke53281,6
  2. 20 printchr$(14);chr$(8);"[147]    [205]initel/64 [196]ocumentation [210]eader"
  3. 30 print"[208]ress any key to pause output and then"
  4. 40 print"press again to resume.  [208]ress [[211][212][207][208]]"
  5. 50 print"to quit."
  6. 60 print"[207]utput to screen or printer (s/p)? s[157]";:poke204,0
  7. 70 poke198,0
  8. 80 getdv$
  9. 90 ifdv$=chr$(13)thendv$="s":goto120
  10. 100 ifdv$="s"ordv$="p"then120
  11. 110 goto80
  12. 120 poke204,1
  13. 130 d=3:ifdv$="p"thend=4:s=7
  14. 140 ifd=4thengosub190
  15. 150 open1,8,2,"doc.minitel/64,m,r":open2,d,s:printchr$(14):print"[147]"
  16. 160 get#1,a$:ifst=0thenprint#2,a$;:wait198,1,1:poke198,0:goto160
  17. 170 print#2:close1:close2
  18. 180 end
  19. 190 print:print"[208]rinter device address (4/5)? 4[157]";:poke204,0
  20. 200 poke198,0
  21. 210 getpa$
  22. 220 ifpa$=chr$(13)thenpa$="4":goto250
  23. 230 ifpa$="4"orpa$="5"then250
  24. 240 goto210
  25. 250 d=4:ifpa$="5"thend=5
  26. 260 poke204,1:return
  27.