10REM Author Tim Parsons 20: 30VDU15 40PROCinitialise`printer 50PROCget`title 60PROCget`drive 70PROCif`drive 80PROCset`margin 90PROCget`info 100PROCstart`again`or`finish 110END 120: 130DEFPROCinitialise`printer 140VDU2 150VDU1,27,1,64:REM initialise printer 160VDU1,27,1,15:REM condensed mode 170VDU3 180ENDPROC 190: 200DEFPROCget`title 210INPUT "TITLE FOR PRINTOUT ",T$ 220ENDPROC 230: 240DEFPROCget`drive 250INPUT "DRIVE NUMBER ",A 260ENDPROC 270: 280DEFPROCset`margin 290VDU2 300IF A=0 THEN VDU1,27,1,108,1,0:REM l eft margin = 0 310IF A=1 THEN VDU1,27,1,108,1,0:REM l eft margin = 0 320IF A=2 THEN VDU1,27,1,108,1,50:REM left margin = 50 330IF A=3 THEN VDU1,27,1,108,1,50:REM left margin = 50 340VDU3 350ENDPROC 360: 370DEFPROCget`info 380VDU2 390PRINT:PRINT T$:PRINT 400*INFO*.* 410VDU3 420ENDPROC 430: 440DEFPROCif`side`two`or`three`rewind 450CLS 460REPEAT 470PRINT TAB(0,6) "PRESS THE ""9""KEY TO REWIND THE PAPER" 480PRINT TAB(10,7)"THEN" 490PRINT TAB(0,8) "PRESS THE ""8"" TO PRINT" 500A$=GET$ 510IF A$ ="9"THEN PROCrewind 520UNTIL A$ = "8":CLS 530ENDPROC 540: 550DEFPROCstart`again`or`finish 560CLS 570PRINT TAB(0,6)"DO YOU WANT TO CONTI NUE Y/N ?" 580G$=GET$ 590IF G$="Y" THEN RUN 600STOP 610ENDPROC 620: 630DEFPROCrewind 640VDU2 650VDU1,27,1,106,1,36 660VDU3 670ENDPROC 680: 690DEFPROCif`drive 700IF A=0 THEN *DRIVE 0 710IF A=1 THEN *DRIVE 1 720IF A=2 THEN *DRIVE 2 730IF A=3 THEN *DRIVE 3 740IF A = 2 OR A = 3 THEN PROCif`side` two`or`three`rewind 750ENDPROC 760: