home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 18 / 64er_Magazin_Sonderheft_18_19xx_Markt__Technik_de_Side_A.d64 / interface (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  847b  |  29 lines
  1. 10 print"[147]       ****  printer-basic  ****"
  2. 20 print"         interface -anpassung"
  3. 30 print"  diskette mit printer-basic[146] einlegen,"
  4. 40 print"      schreibschutz entfernen und"
  5. 50 print"            return[146] druecken"
  6. 60 geta$:ifa$<>chr$(13)then60
  7. 65 print"[147]              bitte warten"
  8. 70 open2,8,2,"printer-basic,p,r"
  9. 80 dimw$(1900):i=0
  10. 90 get#2,a$:w$(i)=a$:ifst=0theni=i+1:goto90
  11. 100 close2
  12. 110 print"[147] devicenummer  ";asc(w$(799)+chr$(0))
  13. 115 input"[145]";a
  14. 120 w$(799)=chr$(a)
  15. 130 print" filenummer    ";asc(w$(797)+chr$(0))
  16. 135 input"[145]";a
  17. 140 w$(797)=chr$(a):w$(822)=w$(797)
  18. 150 print" sekundaeradr. ";asc(w$(801)+chr$(0))
  19. 155 input"[145]";a
  20. 160 w$(801)=chr$(a)
  21. 170 print" sind sie sicher (j/n) ?"
  22. 180 geta$:ifa$="n"then110
  23. 190 ifa$<>"j"then180
  24. 195 print"              bitte warten"
  25. 200 open1,8,15,"s:printer-basic"
  26. 210 open2,8,2,"printer-basic,p,w"
  27. 220 fori=0to1900:print#2,chr$(asc(w$(i)+chr$(0)));:next
  28. 230 close2
  29.