home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 79 / Tiger_Disk_079_2000-10_Tiger-Crew-Disk_de_Side_B.d64 / parprint.prg (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  36 lines
  1. 4 rem ---------- par-print -----------
  2. 5 rem parallel printer basic interface
  3. 6 rem be= start addr.  e= end addr.
  4. 7 rem
  5. 8 rem 1998 - ilker ficicilar
  6. 9 rem filker@newton.physics.metu.edu.tr
  7. 10 be= 828 :l=1000
  8. 20 deffna(x)=x-(48-7*(x>64))
  9. 30 printl"[145]":s=0:readb$,c:ifb$="end"thenend:run
  10. 40 fori=0to31:v=fna(asc(mid$(b$,i*2+1,1)))*16+fna(asc(mid$(b$,i*2+2,1)))
  11. 50 pokebe+i,v:s=s+v:next:ifs=cthenl=l+10:be=be+32:goto30
  12. 60 print"data error in line #"l:stop
  13. 90 end
  14. 1000 data4c45034c7b034c5103a9ff8d03dd20fdae209eb78a488a48a9102c0dddd00c20, 3266
  15. 1010 databcf620e1ffd0f1a9ff859168aa688d01ddad00dd09048d00dd29fb8d00dd60a9, 4526
  16. 1020 dataff8d03dda51948a51a4820fdae209ead20a3b68619841aaaa000b119204203c8, 3494
  17. 1030 datacad0f768851a6885196000000000000000000000000000000000000000000000, 1278
  18. 1040 data end,0
  19. 1900 rem
  20. 1910 rem par-print  prints text to a
  21. 1920 rem parallel printer, using
  22. 1930 rem geocable type userport
  23. 1940 rem interface.
  24. 1950 rem
  25. 2000 rem
  26. 2010 rem usage:
  27. 2020 rem        sys828,byte
  28. 2030 rem     or
  29. 2040 rem        sys831,string
  30. 2050 rem eg.:
  31. 2060 rem        sys828,13
  32. 2070 rem        sys831,"hello "
  33. 2080 rem        a$="world"+chr$(10)
  34. 2090 rem        sys831,a$
  35. 2100 rem
  36.