PROGM;123;2;1;TRIVIAL PAYROLL ROUTINE
ENTRY;100;3;RS
0;A1;5;1;50;;PT INPUT
1;P0;9;1;192;;PRINTER
CHAPS;1;100
0;10;40;1;1;TRANSIT AREA
1;11;40;0;1;INPUT AREA
2;12;8;0;1;W/LS
3;13;192;1;1;PRINT OUTPUT TRANSIT AREA
SHEET;1
PROCR;100;CALC
0;40;A1;;;;1
1;C;P0
2;52;13;0
3;C;201;0;;;;PAGE HEADING
4;43;P0
5;C;13;0
6;54;13;0;1;;384
7;52;13;0
8;C;201;10;;;;COLUMN HEADINGS
9;43;P0
10;C;13;0
11;60;;;;;;SET DECIMAL
12;54;13;0;1;;384
13;42;A1
14;C;10;0
15;51;10;0;;;;UNPACK
16;C;200;0
17;;11;0
18;12;;0;;;99999;TEST EOF
19;70;100;39;;;;> YES
20;;11;12;;;;£ TAX
21;30;;;;;2
22;1;11;13;;;;ADD PENCE
23;5;12;2;1;;;TAX PAID
24;;11;10;;;;£ GROSS
25;30;;;;;2
26;1;11;11;;;;ADD PENCE
27;3;12;0;1;;;GROSS PAY
28;2;12;2;1;;;TAX PAID
29;3;12;4;1;;;NET PAY
30;32;;;;;2-
31;5;12;4;;;;£ NET
32;32;;;;;2
33;5;12;5;;;;P NET
34;52;13;0;;;;EDIT PRINT LINE
35;C;201;26
36;43;P0;;;;;OUTPUT TO PRINTER
37;C;13;0
38;76;100;12;;;;> READ NEXT RECORD
39;41;A1;;;;1
40;C;P0
41;151
SHEET;2
TABLE;200;4;UNPACK PT INPUT
0;11;0;;;0;;;;;;;;;EMP NO.
2;11;2;;;2;;;;;;;;;EMP NAME
4;11;10;;;0;;;;;;;;;£ GROSS
6;11;11;;;0;;;;;;;;;PENCE GROSS
8;11;12;;;0;;;;;;;;;£ TAX
10;11;13;;;0;;;;;;;;1;PENCE TAX
SHEET;3
TABLE;201;1;PRINT LINE
0;301;2;;;2;;5;;;;;;;HOF FUNCTION WORD
2;300;2;;;2;;5
4;300;4;;;2;;5
6;300;6;;;2;;5;;;;;;;HEADING LINE
8;301;0;;;2;;1;4;4;;;;1;BLOCK END
10;301;2;;;2;;5;;;;;;;1 LINE FEEDS FW
12;300;8;;;0;;5
14;300;10;;;2;;5
16;300;18;;;1;;10;;10;10
18;300;12;;;2;;5
20;300;14;;;2;;5;;6
22;300;16;;;2;;5;;6;;;;;COLUMN HEADINGS
24;301;0;;;2;;1;4;7;;;;1;BLOCK END
26;301;2;;;2;;5;;;;;;;1 LINE FEED FW
28;11;0;;;0;;5;;;4
30;11;2;;;2;;5;;2
32;11;4;;;2;;5
34;11;6;;;2;;5
36;11;8;;;2;;5
38;11;10;;;0;;4;;2;3
40;300;0;;;2;;1
42;11;11;;;0;;2
44;11;12;;;0;;4;;2;3
46;300;0;;;2;;1
48;11;13;;;0;;2
50;12;4;;;0;;4;;2;3
52;300;0;;;2;;1
54;12;5;;;0;;2;;;;;;;EMPLOYEE DETAILS
56;301;0;;;2;;1;3;;;;;1;BLOCK END
SHEET;4
CONST;300;1;PRINTLINE CONSTANTS
0;(A).    
2;PAYRO
4;LL LI
6;STING
8;REF
10;NAME
12;GROSS
14;  TAX
16;  NET
18;(D)0
SHEET;5
CONST;301;0;MISC SHORT CONSTANTS
0;(D)7.;BE
1;7.000;BE IN FIRST CHAR
2;80;HOF
3;0;DUMMY
4;0;1 LF
END