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