*Initialising Printer
?chr(27)+"34"+PT+chr(27)+"J"+chr(10)
?space(43)+chr(27)+"S"+chr(1) + iif(MACTYPE="C","X"," ") +chr(27)+"T"
space(7)+trim(MOWNINIT)+" "+MOWNNAME+space(11-len(trim(MOWNINIT)))+iif(MACTYPE="A","X"," ")
?space(28)+chr(14)+str(MINVNO,5)+iif(NLOOPS>1,"/"+substr("ABCDEF",I,1),"")
space(9)+MOWNADD1+space(4) +chr(27)+"S"+chr(1)+iif(MWORKTYPE="R","X"," ")+chr(27)+"T"
space(9)+MOWNADD2+space(4) +iif(MWORKTYPE="I","X"," ")
space(9)+MOWNADD3+space(4) +chr(27)+"S"+chr(0)+iif(MWORKTYPE="W","X"," ")+chr(27)+"T"
space(10)+MOWNTELH+space(12)+MOWNTELB
space(20)+iif(MOWNVAT,"   YES"," NO")
" "+chr(27)+"3/"
*Printing parts details
PC+prpart()+PT+space(7)+dtoc(MDATEIN)+space(6)+dtoc(MDATEOUT)+space(7)+dtoc(MDATEINV)
PC+prpart()+PT+space(11)+MAKEMODEL
PC+prpart()+PT+space(11)+str(MSPEEDO,6)+space(13)+PC+replicate("    ",MFUEL)+chr(14)+"O"+PT
PC+prpart()+PT+space(11)+MREGNO +space(10)+MYEAR
PC+prpart()+PT+space(11)+MPAINT+space(6)+MTRIM
PC+prpart()+PT+space(11)+MENGNO
PC+prpart()+PT+space(11)+MCHASNO
*Insurance Co details
PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSCO," ")
PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSADD1," ")
PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSADD2," ")
PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSENG," ")
PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSTEL," ")
PC+prpart()+PT+space(11)+MCLAIMNO
PC+prpart()+PT
PC+prpart()+PT
PC+prpart()+PT
PC+prpart()+PT
*Labour details
PC+prpart()+" "+PT+space(22)+MLABESTNO+space(2)+str(MLABOUR1,7,2)
PC+prpart()+" "+PT+space(3)+ML2TEXT+space(3)+PRPOS(MLABOUR2,"9999.99")
PC+prpart()+" "+PT+space(3)+ML3TEXT+space(3)+PRPOS(MLABOUR3,"9999.99")
PC+prpart()+" "+PT+space(3)+ML4TEXT+space(3)+PRPOS(MLABOUR4,"9999.99")
PC+prpart()+" "+PT+space(36)+str(MLABOURT,7,2)
PC+prpart()+PT
PC+prpart()+PT
*Account summary
PC+prpart()+PT+space(25)+PRPOS(MINSLAB,"9999.99")+space(5)+prpos(MOWNLAB,"9999.99")
PC+prpart()+PT+space(25)+PRPOS(MINSPART,"9999.99")+space(5)+PRPOS(MOWNPART,"9999.99")
PC+prpart()+PT+space(25)+PRPOS(MINSSPEC,"9999.99")+space(5)+PRPOS(MOWNSPEC,"9999.99")
PC+prpart()+PT
PC+prpart()+PT
PC+prpart()+PT
PC+prpart()+PT
PC+prpart()+PT+space(25)+PRPOS(MINSAMT,"9999.99")+space(5)+PRPOS(MOWNAMT,"9999.99")
PC+prpart()+PT+space(18)+PRPOS(MPARTDISC,"99")+space(5)+PRPOS(IPDSCNT,"9999.99")+space(5)+prpos(OPDSCNT,"9999.99")
PC+prpart()+PT+space(25)+PRPOS(ISUBTOT,"9999.99")+space(5)+PRPOS(OSUBTOT,"9999.99")
*Vat Amounts Now!
PC+prpart()+PT+space(8)+PRPOS(MVATRATE,"99.99")+space(12)+PRPOS(IVATAMT,"9999.99")+space(5)+PRPOS(OVATAMT,"9999.99")
PC+prpart()+PT+space(25)+PRPOS(INSSUB,"9999.99")+space(5)+PRPOS(OWNSUB,"9999.99")
PC+prpart()+PT+space(16)+PRPOS(MEXCESS,"9999.99")+space(14)+iif(MINSTOPAY,PRPOS(MEXCESS,"9999.99"),"")
PC+space(PARTPLEN)+PT+space(16)+PRPOS(MCONTRIB,"9999.99")+space(14)+iif(MINSTOPAY,PRPOS(MCONTRIB,"9999.99"),"")+PT
*Totals
PC+space(PARTPLEN)+PT+space(25)+PRPOS(MINSDUE,"9999.99")
PC+space(PARTPLEN)+PT+space(37)+PRPOS(MOWNDUE,"9999.99")
PC+space(PARTPLEN)+PT+space(37)+PRPOS(MINVTOTAL,"9999.99")
chr(18)