01010H P303 01020FSLSCARD IP F00800080 DISK DAT303 P303 01030F KASCII P303 01031FARR303 IT F 9 9 EDISK ARR303 01032F KASCII 01040FSLSRPT O F01320132 OF PRINTEROUT303 P303 02010E SARR 0006006 2 P303 02020E PARR 0006007 2 P303 02030E TARR 0006008 2 P303 02040E ARR303 MAR 0010006009 P303 03010ISLSCARD NS 01 P303 03020I 00010005 CLASS L1 P303 03030I 00060011 NUMBER P303 03040I 001200472SARR P303 04005C SETOF OF P303 04010C XFOOTSARR TOTPRO0072 P303 04020C SARR ADD PARR PARR P303 04030CL1 PARR ADD TARR TARR P303 04040CL1 XFOOTPARR TOTOLS0082 P303 04050CL1 Z-ADD1 K 0010 P303 04060CL1 SETON OF P303 04070CL1 TOTLUP TAG P303 04080CL1 SETON 40 P303 04090CL1 EXCPT P303 04100CL1 SETOF 40OF P303 04110CL1 1 ADD K K P303 04120CL1 K COMP 7 41 P303 04130CL1N41 GOTO TOTLUP P303 04140CL1 SETON 45 P303 04150CL1 EXCPT P303 04160CL1 SETOF 45 04170CL1 SETON OF P303 04180CLR Z-ADD1 K P303 04190CLR SETON OF P303 04200CLR FINLUP TAG P303 04210CLR SETON 50 P303 04220CLR EXCPT P303 04230CLR SETOF 50OF P303 04240CLR 1 ADD K K P303 04250CLR K COMP 7 51 P303 04260CLRN51 GOTO FINLUP P303 08080CLR XFOOTTARR FINTOT0082 P303 08090CLR SETON 55 P303 08100CLR EXCPT P303 08110CLR SETOF 55 P303 09080OSLSRPT H 201 1P P303 09090O OR OF P303 09100O UDATE Y 0008 P303 09110O 0040 'S I X M O N T H' P303 09120O 0052 'S A L E S' P303 09130O 0066 'R E P O R T' P303 09140O 0085 'PAGE' P303 09150O PAGE 0090 P303 09160O H 1 1P P303 09170O OR OFN40N50 P303 09180O 0007 'PRODUCT' P303 09190O 0018 'PRODUCT' P303 09200O 0090 'SIX MONTH' P303 09210O H 2 1P P303 09220O OR OFN40N50 P303 09230O 0006 'CLASS' P303 09240O 0017 'NUMBER' P303 09250O 0029 'JANUARY' P303 10010O 0039 'FEBRUARY' P303 10020O 0048 'MARCH' P303 10030O 0058 'APRIL' P303 10040O 0067 'MAY' P303 10050O 0077 'JUNE' P303 10060O 0088 'TOTAL' P303 10130O D 1 01 P303 10140O L1 CLASS 0006 P303 10150O OF CLASS 0006 P303 10160O NUMBER 0017 P303 10170O SARR 1 0079 P303 10180O TOTPRO1 0090 P303 11020O EF10 40 P303 11030O OF 0022 'TOTALS - PRODUCT CLASS' P303 11040O OF CLASS 0028 P303 11050O MAR,K 0039 P303 11060O PARR,K1B0050 '$' P303 11150O E 2 45 P303 11160O 0035 'TOTAL' P303 11170O TOTOLS1B0050 '$' P303 11240O EF10 50 P303 11250O OF 0028 'FINAL TOTALS' P303 12010O MAR,K 0039 P303 12020O TARR,K1 0050 '$' P303 12090O E 2 55 P303 12100O 0035 'TOTAL' P303 12110O FINTOT1 0050 '$' P303