>... >m.cat = ITEMS(1) >@ 3,1 SAY ' ' GET m.cat PICTURE '@^' FROM ITEMS DEFAULT ITEMS(1) >... >>
>>M.PMONTH="" >>M.IAMOUNT=0 >>M.VAT=0 >>M.CAT="" >> >>RELEASE ITEMS >>DECLARE ITEMS(16) >>ITEMS(1)='CONF' >>ITEMS(2)='CIGS' >>ITEMS(3)='TEMP LABOUR' >>ITEMS(4)='MOTOR' >>ITEMS(5)='CARRIAGE' >>ITEMS(6)='LIGHT' >>ITEMS(7)='PH_FX' >>ITEMS(8)='PPSA' >>ITEMS(9)='REPRS' >>ITEMS(10)='SUNDR' >>ITEMS(11)='BANK CHARGES' >>ITEMS(12)="LEASE/RENTAL" >>ITEMS(13)="SEC SERVICE" >>ITEMS(14)="H&S SERVICES" >>ITEMS(15)="FIXED ASSETS" >>ITEMS(16)="PROF&AC FEES" >> >>@ 3,1 SAY ' ' GET m.cat PICTURE '@^' FROM ITEMS DEFAULT ITEMS(1) >>m.pyear = right(str(year(date())),2) >>@ $,$+2 get m.pyear picture '99' >>@ 4,1 SAY 'Posting Catgory:' >>@ 7,1 say 'Posting Month :' >>READ >>>>