home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 February / 64er_Magazin_93-02_1993_Markt__Technik_de_Side_B.d64 / microsetup (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  922b  |  41 lines
  1. 999 dr=4:se=1
  2. 1000 open1,8,15,"s:pr-micro"
  3. 1010 print#1,"c:pr-micro=microdruck"
  4. 1020 open2,8,2,"pr-micro,p,a"
  5. 1030 print#2,chr$(dr);chr$(se);:c$=""
  6. 1040 reada$:if a$="*" then 1070
  7. 1050 c$=c$+chr$(val(a$))
  8. 1060 goto 1040
  9. 1070 print#2,chr$(len(c$));c$;
  10. 1080 c$=""
  11. 1090 reada$:if a$<>"*" then 1050
  12. 1100 close2:close1
  13. 1110 end
  14. 2000 rem code fuer zeilenvorschub
  15. 2010 data 13,*
  16. 2100 rem code fuer 1920 punkte/zeile
  17. 2101 rem bzw. 240 punkte/zoll
  18. 2110 data 27,42,3,*
  19. 2200 rem code fuer 0/216 zoll vorschub
  20. 2210 data 27,51,0,*
  21. 2300 rem code fuer 1/216 zoll vorschub
  22. 2310 data 27,51,1,*
  23. 2400 rem code fuer 14/216 zoll vorschub
  24. 2410 data 27,51,14,*
  25. 2500 rem code fuer 22/216 zoll vorschub
  26. 2510 data 27,51,22,*
  27. 2601 rem bzw. 60 punkte/zoll
  28. 2610 data 27,42,0,*
  29. 2700 rem code um das blatt um 400/216
  30. 2701 rem zoll vorzuschieben
  31. 2710 data 27,74,200,27,74,200,*
  32. 2800 rem code um das blatt um 400/216
  33. 2801 rem zoll zurueckzuziehen
  34. 2810 data 27,106,200,27,106,200,*
  35. 2900 rem druckerinitialisierung
  36. 2901 rem (hier nur ein piepser)
  37. 2910 data 7,*
  38. 3000 rem drucker zuruecksetzen
  39. 3010 data 27,50,*
  40. 9999 data *
  41.