10REM HQ Print 20REM by Steven Flintham 30REM Verson 1.00 40REM Tuesday 9th April 1991 50REM Wednesday 10th April 1991 60: 70REM Creates data file of data which would be sent to the printer 80: 90MODE 0 100out$="LHPRN" 110chan%=OPENOUT(out$) 120f1$="SCR1" 130f2$="SCR2" 140PROCdump 150f1$="SCR3" 160f2$="SCR4" 170PROCdump 180CLOSE #chan% 190END 200: 210DEF PROCdump 220REM LOCAL 230count%=0 240FOR y%=1020 TO 0 STEP -128 250FOR y2%=0 TO 12 STEP 4 260count%=count%+1 270IF count%>4 THEN count%=1 280IF count%=4 THEN BPUT #chan%,27:BPU T #chan%,51:BPUT #chan%,21 ELSE BPUT #ch an%,27:BPUT #chan%,51:BPUT #chan%,1 290PROCdump`line(y%-y2%) 300NEXT 310NEXT 320ENDPROC 330: 340DEF PROCdump`line(Y%) 350LOCAL X%,D%,y% 360BPUT #chan%,27:BPUT #chan%,90:BPUT #chan%,0:BPUT #chan%,5 370FOR X%=0 TO 2558 STEP 2 380IF X%=0 THEN OSCLI "LOAD "+f1$+" FF FF3000" 390IF X%=1280 THEN OSCLI "LOAD "+f2$+" FFFF3000" 400D%=0 410FOR y%=0 TO 7*4 STEP 4 420D%=D%*2 430IF POINT(FNx(X%),Y%-y%*4)>0 THEN D% =D%+1 440NEXT 450BPUT #chan%,D% 460NEXT 470BPUT #chan%,10 480ENDPROC 490: 500DEF FNx(X%) 510IF X%>1276 THEN =X%-1280 520=X%