4 rem ---------- par-print -----------
5 rem parallel printer basic interface
6 rem be= start addr.  e= end addr.
7 rem
8 rem 1998 - ilker ficicilar
9 rem filker@newton.physics.metu.edu.tr
10 be= 828 :l=1000
20 deffna(x)=x-(48-7*(x>64))
30 printl"‘":s=0:readb$,c:ifb$="end"thenend:run
40 fori=0to31:v=fna(asc(mid$(b$,i*2+1,1)))*16+fna(asc(mid$(b$,i*2+2,1)))
50 pokebe+i,v:s=s+v:next:ifs=cthenl=l+10:be=be+32:goto30
60 print"data error in line #"l:stop
90 end
1000 data4c45034c7b034c5103a9ff8d03dd20fdae209eb78a488a48a9102c0dddd00c20, 3266
1010 databcf620e1ffd0f1a9ff859168aa688d01ddad00dd09048d00dd29fb8d00dd60a9, 4526
1020 dataff8d03dda51948a51a4820fdae209ead20a3b68619841aaaa000b119204203c8, 3494
1030 datacad0f768851a6885196000000000000000000000000000000000000000000000, 1278
1040 data end,0
1900 rem
1910 rem par-print  prints text to a
1920 rem parallel printer, using
1930 rem geocable type userport
1940 rem interface.
1950 rem
2000 rem
2010 rem usage:
2020 rem        sys828,byte
2030 rem     or
2040 rem        sys831,string
2050 rem eg.:
2060 rem        sys828,13
2070 rem        sys831,"hello "
2080 rem        a$="world"+chr$(10)
2090 rem        sys831,a$
2100 rem