10 REM Author Tim Parsons   
   20 :
   30 VDU15
   40 PROCinitialise_printer
   50 PROCget_title
   60 PROCget_drive
   70 PROCif_drive
   80 PROCset_margin
   90 PROCget_info
  100 PROCstart_again_or_finish
  110 END
  120 :
  130 DEFPROCinitialise_printer
  140 VDU2
  150 VDU1,27,1,64:REM initialise printer
  160 VDU1,27,1,15:REM condensed mode 
  170 VDU3
  180 ENDPROC
  190 :
  200 DEFPROCget_title 
  210 INPUT "TITLE FOR PRINTOUT  ",T$
  220 ENDPROC
  230 :
  240 DEFPROCget_drive
  250 INPUT "DRIVE NUMBER  ",A
  260 ENDPROC
  270 :
  280 DEFPROCset_margin
  290 VDU2
  300 IF A=0 THEN VDU1,27,1,108,1,0:REM left margin = 0
  310 IF A=1 THEN VDU1,27,1,108,1,0:REM left margin = 0
  320 IF A=2 THEN VDU1,27,1,108,1,50:REM left margin = 50
  330 IF A=3 THEN VDU1,27,1,108,1,50:REM left margin = 50
  340 VDU3
  350 ENDPROC
  360 :
  370 DEFPROCget_info  
  380 VDU2
  390 PRINT:PRINT T$:PRINT 
  400 *INFO*.*
  410 VDU3
  420 ENDPROC
  430 :
  440 DEFPROCif_side_two_or_three_rewind
  450 CLS
  460 REPEAT
  470 PRINT TAB(0,6) "PRESS THE ""9""KEY TO REWIND THE PAPER" 
  480 PRINT TAB(10,7)"THEN"
  490 PRINT TAB(0,8) "PRESS THE ""8"" TO PRINT"
  500 A$=GET$
  510 IF A$ ="9"THEN PROCrewind
  520 UNTIL A$ = "8":CLS
  530 ENDPROC
  540 :
  550 DEFPROCstart_again_or_finish
  560 CLS
  570 PRINT TAB(0,6)"DO YOU WANT TO CONTINUE Y/N ?" 
  580 G$=GET$
  590 IF G$="Y" THEN RUN
  600 STOP
  610 ENDPROC 
  620 :
  630 DEFPROCrewind
  640 VDU2
  650 VDU1,27,1,106,1,36
  660 VDU3
  670 ENDPROC
  680 :
  690 DEFPROCif_drive
  700 IF A=0 THEN *DRIVE 0
  710 IF A=1 THEN *DRIVE 1
  720 IF A=2 THEN *DRIVE 2
  730 IF A=3 THEN *DRIVE 3
  740 IF A = 2 OR A = 3 THEN PROCif_side_two_or_three_rewind 
  750 ENDPROC
  760 :