|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7976 (0x1f28)
Notes: pts_type(SC)
Names: »RKAPPL.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/RKAPPL.SC«
IDENT RKAPPL R]KONVERTERING 9.2 810126 NJ OPTNS LINES=46 DDUM KMD08 PDIV ENTRY RKAPPL EXT SPCHK1 INCLUDE EQUATE RKAPPL PROC IB SPBINW3,APPL1,APPL2,APPL3,APPL4,APPL5,APPL6 B ARET01 INVALID APPLVALUE APPL1 APPL2 APPL4 APPL5 B ARET01 APPL6 * FIND OUT IF THE FIELD IS VALID. * SAVE THE FIELDNBR MOVE GSWBCD6,SPINPUT MOVE GSWBIN1,GSWBCD6 MOVE GSWBIN2,CBIN1 APPL61 CBG CSLUTFLD(GSWBIN2,CBIN1),GSWBIN1,APPL62 CBE CSLUTFLD(GSWBIN2,CBIN1),GSWBIN1,APPL63 ADD GSWBIN2,CBIN1 B APPL61 APPL62 FIELDNR INVALID MOVE SPBINW4,CBIN1 MOVE GSWBCD4,=D'3536' MOVE SPBINW3,CBIN3 B ARET01 APPL63 MOVE SPBINW3,CBIN0 B ARET01 APPL3 * * FIND OUT IF A CHECK IS TO BE PERFORMED * PERF GETLC CBNE FIELD(SPBINW3,SPBINW4),=D'0',APPL300 B APPL3ER APPL300 MOVE GSWBCD1,FIELD(SPBINW3,SPBINW4) MOVE SPBINW3,GSWBCD1 MOVE GSWBIN8,CBIN1 APPL301 CBE CSLUTFLD(GSWBIN8,CBIN1),SPBINW3,APPL302 ADD GSWBIN8,CBIN1 B APPL301 APPL302 MOVE GSWSTR1,SPINPUT CBNE GSWSTR1,='X',APPL303 FIELD TO BE DELETED? TBWD BACKWARD TAB DSC1 SCREEN,ERASE,CBIN3 ERASE 3 POS PERF GETLC MOVE FIELD(SPBINW3,SPBINW4),CBIN0 MOVE SAVEF(SPBINW3,SPBINW4),=X'00' TFWD DSC1 SCREEN,ERASE,CBIN10 MOVE SPINPUT,=X'00' B APPL310 NORMAL EXIT APPL303 MOVE GSWBCD1,SPINPUT MOVE GSWBIN8,CSLUTFLD(GSWBIN8,CBIN2) MOVE CHECKVALUE ADD GSWBIN8,CBIN1 IB GSWBIN8, C APPL310, C APPL311, C APPL312, C APPL313, C APPL314, C APPL315, C APPL316, C APPL317, C APPL318, C APPL319, C APPL320, C APPL321, C APPL322, C APPL323, C APPL324, C APPL325, C APPL326, C APPL327, C APPL328, C APPL329, C APPL330, C APPL331, C APPL332, C APPL333 APPL310 NO CHECK AT ALL (OR OK) MOVE SPBINW3,CBIN0 B ARET01 APPL311 PERSONFRADRAGSKODE MOVE GSWSTR1,SPINPUT CBE SPINPUT,='S',APPL310 MOVE SPBINW3,GSWBCD1 IB SPBINW3,APPL310,APPL3ER,APPL310,APPL310,APPL3ER, C APPL3ER,APPL310,APPL310,APPL310 B APPL3ER APPL312 >= 0 CBNL GSWBCD1,=D'0',APPL310 B APPL3ER APPL313 AKTIEUDBYTTE CBL GSWBCD1,=D'0',APPL313A CBG GSWBCD1,=D'25000',APPL313A B APPL310 APPL313A B APPL3ER APPL314 RENTENEDSLAGSBELOB CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'50000',APPL3ER B APPL310 APPL315 S[RLIG UDB CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'10000',APPL3ER B APPL310 APPL316 CPRNR PERF SPCHK1 CBNE SPBINW3,CBIN3,APPL310 MOVE SPBINW4,CBIN1 MOVE GSWBCD4,=D'3540' B APPL3ER APPL317 CIRNR PERF SPCHK1 CBNE SPBINW3,CBIN3,APPL310 MOVE SPBINW4,CBIN1 MOVE GSWBCD4,=D'3514' B APPL3ER APPL318 SAMBESKATNINGSKODE CBL GSWBCD1,=D'1',APPL3ER CBG GSWBCD1,=D'2',APPL3ER B APPL310 APPL319 SKATTEPL OMFANG CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'7',APPL3ER B APPL310 APPL320 FORSKUDT REGNSKABS]R MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 S ALLOWED CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'12',APPL3ER B APPL310 APPL321 SKONSPOSTER MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 CBNE GSWBCD1,=D'1',APPL3ER B APPL310 APPL322 ERKL[RINGSKODE MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 CBE GSWBCD1,=D'0',APPL310 CBE GSWBCD1,=D'3',APPL310 B APPL3ER APPL323 KIRKEDATO CBL GSWBCD1,=D'0101',APPL3ER CBG GSWBCD1,=D'3112',APPL3ER B APPL310 APPL324 KONTROLLOV MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 'S' ALLOWED CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'5',APPL3ER B APPL310 APPL325 LIGNINGSART MOVE GSWSTR1,SPINPUT CBE GSWSTR1,='S',APPL310 CBE GSWSTR1,=' ',APPL310 CBL GSWBCD1,=D'1',APPL3ER CBG GSWBCD1,=D'7',APPL3ER B APPL310 APPL326 SLETTEKODE CBNE GSWBCD1,=D'1',APPL3ER B APPL310 APPL327 ENKEKODE MOVE GSWBIN1,GSWBCD1 IB GSWBIN1,APPL310,APPL3ER,APPL310,APPL310,APPL310, C APPL310,APPL310,APPL310 B APPL3ER APPL328 S[RBEHANDLINGSKODE MOVE GSWSTR1,SPINPUT CBE GSWSTR1,=' ',APPL310 MOVE GSWBIN1,GSWBCD1 CBL GSWBCD1,=D'1',APPL3ER CBG GSWBCD1,=D'8',APPL3ER B APPL310 APPL329 MEDHJ [GTEF[LLE CBG GSWBCD1,MEDHJ,APPL3ER B APPL310 APPL330 SELVANG. FORMUE B APPL3ER APPL331 SOMANDSDAGE CBL GSWBCD1,=D'0',APPL3ER CBE GSWBCD1,=D'999',APPL332A CBG GSWBCD1,=D'365',APPL3ER B APPL310 APPL332 MOVE GSWSTR1,SPINPUT TILL[GSSKPL BELOB CBE GSWSTR1,='S',APPL332A 'S' ALLOWED CBL GSWBCD1,=D'0',APPL3ER APPL332A B APPL310 APPL333 CBL GSWBCD1,=D'0',APPL3ER CBG GSWBCD1,=D'6000',APPL3ER B APPL310 APPL3ER MOVE SPBINW4,CBIN1 MOVE GSWBCD4,=D'3539' MOVE SPBINW3,CBIN3 ARET01 RET PEND EJECT GETLC PROC GETABX SPBINW3 GET NUMBER OF INPUTFIELD ADD SPBINW3,CBIN7 MOVE SPBINW4,SPBINW3 COMPUTE ROW/COLUMN DIV SPBINW3,CBIN8 LINENBR MOVE GSWBIN1,SPBINW3 MUL GSWBIN1,CBIN8 SUB SPBINW4,GSWBIN1 COLUMN ADD SPBINW4,CBIN1 DIV SPBINW4,CBIN2 CBNE SPBINW4,CBIN0,GETLC10 MOVE SPBINW4,CBIN4 SUB SPBINW3,CBIN1 GETLC10 RET PEND END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT RKAPPL R]KONVERTERING 9.2 810126 NJ«, t00=0x0000, t01=0x0004}
0x0032…004a Head {h00=0x0014, h01=0x0050, text=» OPTNS LINES=46 «, t00=0x0000, t01=0x0036}
0x004a…005e Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x004e}
0x005e…006c Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0062}
0x006c…0082 Head {h00=0x0012, h01=0x0050, text=» ENTRY RKAPPL «, t00=0x0000, t01=0x0070}
0x0082…0096 Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK1 «, t00=0x0000, t01=0x0086}
0x0096…00ae Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x009a}
0x00ae…00b6 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00b2}
0x00b6…00be Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00ba}
0x00be…00c6 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00c2}
0x00c6…00ce Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00ca}
0x00ce…00e2 Head {h00=0x0010, h01=0x0050, text=»RKAPPL PROC «, t00=0x0000, t01=0x00d2}
0x00e2…011a Head {h00=0x0034, h01=0x0050, text=» IB SPBINW3,APPL1,APPL2,APPL3,APPL4,APPL5,APPL6 «, t00=0x0000, t01=0x00e6}
0x011a…013e Head {h00=0x0020, h01=0x0050, text=» B ARET01 INVALID APPLVALUE «, t00=0x0000, t01=0x011e}
0x013e…0146 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0142}
0x0146…0154 Head {h00=0x000a, h01=0x0050, text=»APPL1 «, t00=0x0000, t01=0x014a}
0x0154…0162 Head {h00=0x000a, h01=0x0050, text=»APPL2 «, t00=0x0000, t01=0x0158}
0x0162…0170 Head {h00=0x000a, h01=0x0050, text=»APPL4 «, t00=0x0000, t01=0x0166}
0x0170…017e Head {h00=0x000a, h01=0x0050, text=»APPL5 «, t00=0x0000, t01=0x0174}
0x017e…0190 Head {h00=0x000e, h01=0x0050, text=» B ARET01 «, t00=0x0000, t01=0x0182}
0x0190…0198 (1, 0, 398) Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0004}
0x0198…01a6 Head {h00=0x000a, h01=0x0050, text=»APPL6 «, t00=0x0001, t01=0x000c}
0x01a6…01d0 Head {h00=0x0026, h01=0x0050, text=»* FIND OUT IF THE FIELD IS VALID. «, t00=0x0001, t01=0x001a}
0x01d0…01ec Head {h00=0x0018, h01=0x0050, text=»* SAVE THE FIELDNBR «, t00=0x0001, t01=0x0044}
0x01ec…020a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0001, t01=0x0060}
0x020a…0228 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD6 «, t00=0x0001, t01=0x007e}
0x0228…0244 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN1 «, t00=0x0001, t01=0x009c}
0x0244…0252 Head {h00=0x000a, h01=0x0050, text=»APPL61«, t00=0x0001, t01=0x00b8}
0x0252…0286 Head {h00=0x0030, h01=0x0050, text=» CBG CSLUTFLD(GSWBIN2,CBIN1),GSWBIN1,APPL62 «, t00=0x0001, t01=0x00c6}
0x0286…02ba Head {h00=0x0030, h01=0x0050, text=» CBE CSLUTFLD(GSWBIN2,CBIN1),GSWBIN1,APPL63 «, t00=0x0001, t01=0x00fa}
0x02ba…02d4 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN2,CBIN1«, t00=0x0001, t01=0x012e}
0x02d4…02e6 Head {h00=0x000e, h01=0x0050, text=» B APPL61 «, t00=0x0001, t01=0x0148}
0x02e6…0306 Head {h00=0x001c, h01=0x0050, text=»APPL62 FIELDNR INVALID«, t00=0x0001, t01=0x015a}
0x0306…0322 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN1 «, t00=0x0001, t01=0x017a}
0x0322…0340 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,=D'3536'«, t00=0x0002, t01=0x0008}
0x0340…035c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x0002, t01=0x0026}
0x035c…036e Head {h00=0x000e, h01=0x0050, text=» B ARET01 «, t00=0x0002, t01=0x0042}
0x036e…037c Head {h00=0x000a, h01=0x0050, text=»APPL63«, t00=0x0002, t01=0x0054}
0x037c…0398 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x0002, t01=0x0062}
0x0398…03aa Head {h00=0x000e, h01=0x0050, text=» B ARET01 «, t00=0x0002, t01=0x007e}
0x03aa…03b2 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0090}
0x03b2…03ba Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0098}
0x03ba…03c2 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00a0}
0x03c2…03d0 Head {h00=0x000a, h01=0x0050, text=»APPL3 «, t00=0x0002, t01=0x00a8}
0x03d0…03da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b6}
0x03da…040a Head {h00=0x002c, h01=0x0050, text=»* FIND OUT IF A CHECK IS TO BE PERFORMED«, t00=0x0002, t01=0x00c0}
0x040a…0414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f0}
0x0414…0428 Head {h00=0x0010, h01=0x0050, text=» PERF GETLC «, t00=0x0002, t01=0x00fa}
0x0428…045a Head {h00=0x002e, h01=0x0050, text=» CBNE FIELD(SPBINW3,SPBINW4),=D'0',APPL300«, t00=0x0002, t01=0x010e}
0x045a…046c Head {h00=0x000e, h01=0x0050, text=» B APPL3ER«, t00=0x0002, t01=0x0140}
0x046c…047c Head {h00=0x000c, h01=0x0050, text=»APPL300 «, t00=0x0002, t01=0x0152}
0x047c…04a8 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD1,FIELD(SPBINW3,SPBINW4)«, t00=0x0002, t01=0x0162}
0x04a8…04c6 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GSWBCD1 «, t00=0x0002, t01=0x018e}
0x04c6…04e2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN1 «, t00=0x0003, t01=0x001c}
0x04e2…04f2 Head {h00=0x000c, h01=0x0050, text=»APPL301 «, t00=0x0003, t01=0x0038}
0x04f2…0526 Head {h00=0x0030, h01=0x0050, text=» CBE CSLUTFLD(GSWBIN8,CBIN1),SPBINW3,APPL302«, t00=0x0003, t01=0x0048}
0x0526…0540 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN8,CBIN1«, t00=0x0003, t01=0x007c}
0x0540…0552 Head {h00=0x000e, h01=0x0050, text=» B APPL301«, t00=0x0003, t01=0x0096}
0x0552…0562 Head {h00=0x000c, h01=0x0050, text=»APPL302 «, t00=0x0003, t01=0x00a8}
0x0562…0580 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR1,SPINPUT «, t00=0x0003, t01=0x00b8}
0x0580…05b8 Head {h00=0x0034, h01=0x0050, text=» CBNE GSWSTR1,='X',APPL303 FIELD TO BE DELETED? «, t00=0x0003, t01=0x00d6}
0x05b8…05d4 Head {h00=0x0018, h01=0x0050, text=» TBWD BACKWARD TAB«, t00=0x0003, t01=0x010e}
0x05d4…0600 Head {h00=0x0028, h01=0x0050, text=» DSC1 SCREEN,ERASE,CBIN3 ERASE 3 POS«, t00=0x0003, t01=0x012a}
0x0600…0614 Head {h00=0x0010, h01=0x0050, text=» PERF GETLC «, t00=0x0003, t01=0x0156}
0x0614…063e Head {h00=0x0026, h01=0x0050, text=» MOVE FIELD(SPBINW3,SPBINW4),CBIN0«, t00=0x0003, t01=0x016a}
0x063e…066a (4, 0, 400) Head {h00=0x0028, h01=0x0050, text=» MOVE SAVEF(SPBINW3,SPBINW4),=X'00' «, t00=0x0004, t01=0x0004}
0x066a…0678 Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0004, t01=0x0030}
0x0678…069a Head {h00=0x001e, h01=0x0050, text=» DSC1 SCREEN,ERASE,CBIN10 «, t00=0x0004, t01=0x003e}
0x069a…06b6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0004, t01=0x0060}
0x06b6…06d4 Head {h00=0x001a, h01=0x0050, text=» B APPL310 NORMAL EXIT«, t00=0x0004, t01=0x007c}
0x06d4…06e4 Head {h00=0x000c, h01=0x0050, text=»APPL303 «, t00=0x0004, t01=0x009a}
0x06e4…0702 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0004, t01=0x00aa}
0x0702…0740 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN8,CSLUTFLD(GSWBIN8,CBIN2) MOVE CHECKVALUE «, t00=0x0004, t01=0x00c8}
0x0740…075a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN8,CBIN1«, t00=0x0004, t01=0x0106}
0x075a…0772 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN8, C «, t00=0x0004, t01=0x0120}
0x0772…0788 Head {h00=0x0012, h01=0x0050, text=» APPL310, C «, t00=0x0004, t01=0x0138}
0x0788…079e Head {h00=0x0012, h01=0x0050, text=» APPL311, C «, t00=0x0004, t01=0x014e}
0x079e…07b4 Head {h00=0x0012, h01=0x0050, text=» APPL312, C «, t00=0x0004, t01=0x0164}
0x07b4…07ca Head {h00=0x0012, h01=0x0050, text=» APPL313, C «, t00=0x0004, t01=0x017a}
0x07ca…07e0 Head {h00=0x0012, h01=0x0050, text=» APPL314, C «, t00=0x0004, t01=0x0190}
0x07e0…07f6 Head {h00=0x0012, h01=0x0050, text=» APPL315, C «, t00=0x0005, t01=0x0016}
0x07f6…080c Head {h00=0x0012, h01=0x0050, text=» APPL316, C «, t00=0x0005, t01=0x002c}
0x080c…0822 Head {h00=0x0012, h01=0x0050, text=» APPL317, C «, t00=0x0005, t01=0x0042}
0x0822…0838 Head {h00=0x0012, h01=0x0050, text=» APPL318, C «, t00=0x0005, t01=0x0058}
0x0838…084e Head {h00=0x0012, h01=0x0050, text=» APPL319, C «, t00=0x0005, t01=0x006e}
0x084e…0864 Head {h00=0x0012, h01=0x0050, text=» APPL320, C «, t00=0x0005, t01=0x0084}
0x0864…087a Head {h00=0x0012, h01=0x0050, text=» APPL321, C «, t00=0x0005, t01=0x009a}
0x087a…0890 Head {h00=0x0012, h01=0x0050, text=» APPL322, C «, t00=0x0005, t01=0x00b0}
0x0890…08a6 Head {h00=0x0012, h01=0x0050, text=» APPL323, C «, t00=0x0005, t01=0x00c6}
0x08a6…08bc Head {h00=0x0012, h01=0x0050, text=» APPL324, C «, t00=0x0005, t01=0x00dc}
0x08bc…08d2 Head {h00=0x0012, h01=0x0050, text=» APPL325, C «, t00=0x0005, t01=0x00f2}
0x08d2…08e8 Head {h00=0x0012, h01=0x0050, text=» APPL326, C «, t00=0x0005, t01=0x0108}
0x08e8…08fe Head {h00=0x0012, h01=0x0050, text=» APPL327, C «, t00=0x0005, t01=0x011e}
0x08fe…0914 Head {h00=0x0012, h01=0x0050, text=» APPL328, C «, t00=0x0005, t01=0x0134}
0x0914…092a Head {h00=0x0012, h01=0x0050, text=» APPL329, C «, t00=0x0005, t01=0x014a}
0x092a…0940 Head {h00=0x0012, h01=0x0050, text=» APPL330, C «, t00=0x0005, t01=0x0160}
0x0940…0956 Head {h00=0x0012, h01=0x0050, text=» APPL331, C «, t00=0x0005, t01=0x0176}
0x0956…096c Head {h00=0x0012, h01=0x0050, text=» APPL332, C «, t00=0x0005, t01=0x018c}
0x096c…097e Head {h00=0x000e, h01=0x0050, text=» APPL333 «, t00=0x0006, t01=0x0012}
0x097e…0986 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0024}
0x0986…09b0 Head {h00=0x0026, h01=0x0050, text=»APPL310 NO CHECK AT ALL (OR OK) «, t00=0x0006, t01=0x002c}
0x09b0…09cc Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x0006, t01=0x0056}
0x09cc…09de Head {h00=0x000e, h01=0x0050, text=» B ARET01 «, t00=0x0006, t01=0x0072}
0x09de…09e6 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0084}
0x09e6…0a0a Head {h00=0x0020, h01=0x0050, text=»APPL311 PERSONFRADRAGSKODE«, t00=0x0006, t01=0x008c}
0x0a0a…0a28 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR1,SPINPUT «, t00=0x0006, t01=0x00b0}
0x0a28…0a4a Head {h00=0x001e, h01=0x0050, text=» CBE SPINPUT,='S',APPL310 «, t00=0x0006, t01=0x00ce}
0x0a4a…0a68 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GSWBCD1 «, t00=0x0006, t01=0x00f0}
0x0a68…0aa8 Head {h00=0x003c, h01=0x0050, text=» IB SPBINW3,APPL310,APPL3ER,APPL310,APPL310,APPL3ER, C «, t00=0x0006, t01=0x010e}
0x0aa8…0ad2 Head {h00=0x0026, h01=0x0050, text=» APPL3ER,APPL310,APPL310,APPL310 «, t00=0x0006, t01=0x014e}
0x0ad2…0ae4 Head {h00=0x000e, h01=0x0050, text=» B APPL3ER«, t00=0x0006, t01=0x0178}
0x0ae4…0aec Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x018a}
0x0aec…0afc (7, 0, 400) Head {h00=0x000c, h01=0x0050, text=»APPL312 «, t00=0x0007, t01=0x0004}
0x0afc…0b0c Head {h00=0x000c, h01=0x0050, text=» >= 0 «, t00=0x0007, t01=0x0014}
0x0b0c…0b30 Head {h00=0x0020, h01=0x0050, text=» CBNL GSWBCD1,=D'0',APPL310 «, t00=0x0007, t01=0x0024}
0x0b30…0b42 Head {h00=0x000e, h01=0x0050, text=» B APPL3ER«, t00=0x0007, t01=0x0048}
0x0b42…0b4a Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x005a}
0x0b4a…0b68 Head {h00=0x001a, h01=0x0050, text=»APPL313 AKTIEUDBYTTE«, t00=0x0007, t01=0x0062}
0x0b68…0b8c Head {h00=0x0020, h01=0x0050, text=» CBL GSWBCD1,=D'0',APPL313A «, t00=0x0007, t01=0x0080}
0x0b8c…0bb4 Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'25000',APPL313A «, t00=0x0007, t01=0x00a4}
0x0bb4…0bc6 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x0007, t01=0x00cc}
0x0bc6…0bd6 Head {h00=0x000c, h01=0x0050, text=»APPL313A«, t00=0x0007, t01=0x00de}
0x0bd6…0be8 Head {h00=0x000e, h01=0x0050, text=» B APPL3ER«, t00=0x0007, t01=0x00ee}
0x0be8…0bf0 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0100}
0x0bf0…0c14 Head {h00=0x0020, h01=0x0050, text=»APPL314 RENTENEDSLAGSBELOB«, t00=0x0007, t01=0x0108}
0x0c14…0c36 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',APPL3ER«, t00=0x0007, t01=0x012c}
0x0c36…0c5c Head {h00=0x0022, h01=0x0050, text=» CBG GSWBCD1,=D'50000',APPL3ER«, t00=0x0007, t01=0x014e}
0x0c5c…0c6e Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x0007, t01=0x0174}
0x0c6e…0c76 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0186}
0x0c76…0c92 Head {h00=0x0018, h01=0x0050, text=»APPL315 S[RLIG UDB«, t00=0x0007, t01=0x018e}
0x0c92…0cb4 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',APPL3ER«, t00=0x0008, t01=0x001a}
0x0cb4…0cda Head {h00=0x0022, h01=0x0050, text=» CBG GSWBCD1,=D'10000',APPL3ER«, t00=0x0008, t01=0x003c}
0x0cda…0cec Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x0008, t01=0x0062}
0x0cec…0cf4 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0074}
0x0cf4…0d0c Head {h00=0x0014, h01=0x0050, text=»APPL316 CPRNR «, t00=0x0008, t01=0x007c}
0x0d0c…0d20 Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK1«, t00=0x0008, t01=0x0094}
0x0d20…0d44 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW3,CBIN3,APPL310 «, t00=0x0008, t01=0x00a8}
0x0d44…0d60 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN1 «, t00=0x0008, t01=0x00cc}
0x0d60…0d7e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,=D'3540'«, t00=0x0008, t01=0x00e8}
0x0d7e…0d90 Head {h00=0x000e, h01=0x0050, text=» B APPL3ER«, t00=0x0008, t01=0x0106}
0x0d90…0d98 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0118}
0x0d98…0db0 Head {h00=0x0014, h01=0x0050, text=»APPL317 CIRNR «, t00=0x0008, t01=0x0120}
0x0db0…0dc4 Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK1«, t00=0x0008, t01=0x0138}
0x0dc4…0de8 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW3,CBIN3,APPL310 «, t00=0x0008, t01=0x014c}
0x0de8…0e04 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN1 «, t00=0x0008, t01=0x0170}
0x0e04…0e22 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,=D'3514'«, t00=0x0008, t01=0x018c}
0x0e22…0e34 Head {h00=0x000e, h01=0x0050, text=» B APPL3ER«, t00=0x0009, t01=0x001a}
0x0e34…0e3c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x002c}
0x0e3c…0e60 Head {h00=0x0020, h01=0x0050, text=»APPL318 SAMBESKATNINGSKODE«, t00=0x0009, t01=0x0034}
0x0e60…0e82 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',APPL3ER«, t00=0x0009, t01=0x0058}
0x0e82…0ea4 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD1,=D'2',APPL3ER«, t00=0x0009, t01=0x007a}
0x0ea4…0eb6 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x0009, t01=0x009c}
0x0eb6…0ebe Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00ae}
0x0ebe…0ee0 Head {h00=0x001e, h01=0x0050, text=»APPL319 SKATTEPL OMFANG «, t00=0x0009, t01=0x00b6}
0x0ee0…0f02 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',APPL3ER«, t00=0x0009, t01=0x00d8}
0x0f02…0f24 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD1,=D'7',APPL3ER«, t00=0x0009, t01=0x00fa}
0x0f24…0f36 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x0009, t01=0x011c}
0x0f36…0f3e Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x012e}
0x0f3e…0f64 Head {h00=0x0022, h01=0x0050, text=»APPL320 FORSKUDT REGNSKABS]R«, t00=0x0009, t01=0x0136}
0x0f64…0f82 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR1,SPINPUT «, t00=0x0009, t01=0x015c}
0x0f82…0fae Head {h00=0x0028, h01=0x0050, text=» CBE GSWSTR1,='S',APPL310 S ALLOWED «, t00=0x0009, t01=0x017a}
0x0fae…0fd0 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',APPL3ER«, t00=0x000a, t01=0x0016}
0x0fd0…0ff4 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD1,=D'12',APPL3ER «, t00=0x000a, t01=0x0038}
0x0ff4…1006 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000a, t01=0x005c}
0x1006…100e Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x006e}
0x100e…102c Head {h00=0x001a, h01=0x0050, text=»APPL321 SKONSPOSTER «, t00=0x000a, t01=0x0076}
0x102c…104a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR1,SPINPUT «, t00=0x000a, t01=0x0094}
0x104a…106c Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR1,='S',APPL310 «, t00=0x000a, t01=0x00b2}
0x106c…1090 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD1,=D'1',APPL3ER «, t00=0x000a, t01=0x00d4}
0x1090…10a2 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000a, t01=0x00f8}
0x10a2…10aa Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x010a}
0x10aa…10ca Head {h00=0x001c, h01=0x0050, text=»APPL322 ERKL[RINGSKODE«, t00=0x000a, t01=0x0112}
0x10ca…10e8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR1,SPINPUT «, t00=0x000a, t01=0x0132}
0x10e8…110a Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR1,='S',APPL310 «, t00=0x000a, t01=0x0150}
0x110a…112c Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'0',APPL310«, t00=0x000a, t01=0x0172}
0x112c…114e (11, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'3',APPL310«, t00=0x000b, t01=0x0004}
0x114e…1160 Head {h00=0x000e, h01=0x0050, text=» B APPL3ER«, t00=0x000b, t01=0x0026}
0x1160…1168 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0038}
0x1168…1184 Head {h00=0x0018, h01=0x0050, text=»APPL323 KIRKEDATO «, t00=0x000b, t01=0x0040}
0x1184…11aa Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'0101',APPL3ER «, t00=0x000b, t01=0x005c}
0x11aa…11d0 Head {h00=0x0022, h01=0x0050, text=» CBG GSWBCD1,=D'3112',APPL3ER «, t00=0x000b, t01=0x0082}
0x11d0…11e2 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000b, t01=0x00a8}
0x11e2…11ea Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00ba}
0x11ea…1206 Head {h00=0x0018, h01=0x0050, text=»APPL324 KONTROLLOV«, t00=0x000b, t01=0x00c2}
0x1206…1224 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR1,SPINPUT «, t00=0x000b, t01=0x00de}
0x1224…1252 Head {h00=0x002a, h01=0x0050, text=» CBE GSWSTR1,='S',APPL310 'S' ALLOWED «, t00=0x000b, t01=0x00fc}
0x1252…1274 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',APPL3ER«, t00=0x000b, t01=0x012a}
0x1274…1296 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD1,=D'5',APPL3ER«, t00=0x000b, t01=0x014c}
0x1296…12a8 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000b, t01=0x016e}
0x12a8…12b0 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0180}
0x12b0…12ce Head {h00=0x001a, h01=0x0050, text=»APPL325 LIGNINGSART «, t00=0x000b, t01=0x0188}
0x12ce…12ec Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR1,SPINPUT «, t00=0x000c, t01=0x0016}
0x12ec…130e Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR1,='S',APPL310 «, t00=0x000c, t01=0x0034}
0x130e…1330 Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR1,=' ',APPL310 «, t00=0x000c, t01=0x0056}
0x1330…1352 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',APPL3ER«, t00=0x000c, t01=0x0078}
0x1352…1374 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD1,=D'7',APPL3ER«, t00=0x000c, t01=0x009a}
0x1374…1386 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000c, t01=0x00bc}
0x1386…138e Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00ce}
0x138e…13aa Head {h00=0x0018, h01=0x0050, text=»APPL326 SLETTEKODE«, t00=0x000c, t01=0x00d6}
0x13aa…13ce Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD1,=D'1',APPL3ER «, t00=0x000c, t01=0x00f2}
0x13ce…13e0 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000c, t01=0x0116}
0x13e0…13e8 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0128}
0x13e8…1402 Head {h00=0x0016, h01=0x0050, text=»APPL327 ENKEKODE«, t00=0x000c, t01=0x0130}
0x1402…1420 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD1 «, t00=0x000c, t01=0x014a}
0x1420…1460 Head {h00=0x003c, h01=0x0050, text=» IB GSWBIN1,APPL310,APPL3ER,APPL310,APPL310,APPL310, C «, t00=0x000c, t01=0x0168}
0x1460…1482 Head {h00=0x001e, h01=0x0050, text=» APPL310,APPL310,APPL310 «, t00=0x000d, t01=0x0018}
0x1482…1494 Head {h00=0x000e, h01=0x0050, text=» B APPL3ER«, t00=0x000d, t01=0x003a}
0x1494…149c Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x004c}
0x149c…14c0 Head {h00=0x0020, h01=0x0050, text=»APPL328 S[RBEHANDLINGSKODE«, t00=0x000d, t01=0x0054}
0x14c0…14de Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR1,SPINPUT «, t00=0x000d, t01=0x0078}
0x14de…1500 Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR1,=' ',APPL310 «, t00=0x000d, t01=0x0096}
0x1500…151e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD1 «, t00=0x000d, t01=0x00b8}
0x151e…1540 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',APPL3ER«, t00=0x000d, t01=0x00d6}
0x1540…1562 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD1,=D'8',APPL3ER«, t00=0x000d, t01=0x00f8}
0x1562…1574 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000d, t01=0x011a}
0x1574…157c Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x012c}
0x157c…159e Head {h00=0x001e, h01=0x0050, text=»APPL329 MEDHJ [GTEF[LLE «, t00=0x000d, t01=0x0134}
0x159e…15c0 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD1,MEDHJ,APPL3ER«, t00=0x000d, t01=0x0156}
0x15c0…15d2 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000d, t01=0x0178}
0x15d2…15da Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x018a}
0x15da…15fc (14, 0, 398) Head {h00=0x001e, h01=0x0050, text=»APPL330 SELVANG. FORMUE «, t00=0x000e, t01=0x0004}
0x15fc…160e Head {h00=0x000e, h01=0x0050, text=» B APPL3ER«, t00=0x000e, t01=0x0026}
0x160e…1616 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0038}
0x1616…1634 Head {h00=0x001a, h01=0x0050, text=»APPL331 SOMANDSDAGE «, t00=0x000e, t01=0x0040}
0x1634…1656 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',APPL3ER«, t00=0x000e, t01=0x005e}
0x1656…167c Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD1,=D'999',APPL332A «, t00=0x000e, t01=0x0080}
0x167c…16a0 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD1,=D'365',APPL3ER«, t00=0x000e, t01=0x00a6}
0x16a0…16b2 Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000e, t01=0x00ca}
0x16b2…16ba Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00dc}
0x16ba…16ca Head {h00=0x000c, h01=0x0050, text=»APPL332 «, t00=0x000e, t01=0x00e4}
0x16ca…16fa Head {h00=0x002c, h01=0x0050, text=» MOVE GSWSTR1,SPINPUT TILL[GSSKPL BELOB «, t00=0x000e, t01=0x00f4}
0x16fa…1728 Head {h00=0x002a, h01=0x0050, text=» CBE GSWSTR1,='S',APPL332A 'S' ALLOWED«, t00=0x000e, t01=0x0124}
0x1728…174a Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',APPL3ER«, t00=0x000e, t01=0x0152}
0x174a…175a Head {h00=0x000c, h01=0x0050, text=»APPL332A«, t00=0x000e, t01=0x0174}
0x175a…176c Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000e, t01=0x0184}
0x176c…1774 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0008}
0x1774…1784 Head {h00=0x000c, h01=0x0050, text=»APPL333 «, t00=0x000f, t01=0x0010}
0x1784…17a6 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'0',APPL3ER«, t00=0x000f, t01=0x0020}
0x17a6…17cc Head {h00=0x0022, h01=0x0050, text=» CBG GSWBCD1,=D'6000',APPL3ER «, t00=0x000f, t01=0x0042}
0x17cc…17de Head {h00=0x000e, h01=0x0050, text=» B APPL310«, t00=0x000f, t01=0x0068}
0x17de…17e6 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x007a}
0x17e6…17ee Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0082}
0x17ee…17f6 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x008a}
0x17f6…1806 Head {h00=0x000c, h01=0x0050, text=»APPL3ER «, t00=0x000f, t01=0x0092}
0x1806…1822 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN1 «, t00=0x000f, t01=0x00a2}
0x1822…1840 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,=D'3539'«, t00=0x000f, t01=0x00be}
0x1840…185c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x000f, t01=0x00dc}
0x185c…1864 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00f8}
0x1864…1872 Head {h00=0x000a, h01=0x0050, text=»ARET01«, t00=0x000f, t01=0x0100}
0x1872…187e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x010e}
0x187e…188c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x011a}
0x188c…189a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0128}
0x189a…18ac Head {h00=0x000e, h01=0x0050, text=»GETLC PROC«, t00=0x000f, t01=0x0136}
0x18ac…18dc Head {h00=0x002c, h01=0x0050, text=» GETABX SPBINW3 GET NUMBER OF INPUTFIELD«, t00=0x000f, t01=0x0148}
0x18dc…18f6 Head {h00=0x0016, h01=0x0050, text=» ADD SPBINW3,CBIN7«, t00=0x000f, t01=0x0178}
0x18f6…1926 (16, 2, 378) Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,SPBINW3 COMPUTE ROW/COLUMN«, t00=0x0010, t01=0x0004}
0x1926…1948 Head {h00=0x001e, h01=0x0050, text=» DIV SPBINW3,CBIN8 LINENBR«, t00=0x0010, t01=0x0034}
0x1948…1966 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,SPBINW3 «, t00=0x0010, t01=0x0056}
0x1966…1980 Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN1,CBIN8«, t00=0x0010, t01=0x0074}
0x1980…19a4 Head {h00=0x0020, h01=0x0050, text=» SUB SPBINW4,GSWBIN1 COLUMN «, t00=0x0010, t01=0x008e}
0x19a4…19be Head {h00=0x0016, h01=0x0050, text=» ADD SPBINW4,CBIN1«, t00=0x0010, t01=0x00b2}
0x19be…19d8 Head {h00=0x0016, h01=0x0050, text=» DIV SPBINW4,CBIN2«, t00=0x0010, t01=0x00cc}
0x19d8…19fc Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW4,CBIN0,GETLC10 «, t00=0x0010, t01=0x00e6}
0x19fc…1a18 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN4 «, t00=0x0010, t01=0x010a}
0x1a18…1a32 Head {h00=0x0016, h01=0x0050, text=» SUB SPBINW3,CBIN1«, t00=0x0010, t01=0x0126}
0x1a32…1a42 Head {h00=0x000c, h01=0x0050, text=»GETLC10 «, t00=0x0010, t01=0x0140}
0x1a42…1a4e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0150}
0x1a4e…1a5c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x015c}
0x1a5c…1a68 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0010, t01=0x016a}
0x1a68…1a6c Head {h00=0x4004, h01=0x0000}
0x1a6c…1a70 00 10 01 76 ┆ v┆
0x1a70…1a78 (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x1a78…1ac8 (18, 0, 400) 34 2d 5d 52 53 20 46 4f 4c 4b 00 01 01 7e 00 06 00 50 2a 20 00 02 00 12 00 12 00 50 20 43 4c 45 41 52 20 54 42 4f 4f 4c 31 20 00 02 00 1c 00 12 00 50 20 43 4c 45 41 52 20 54 42 4f 4f 4c 32 20 00 02 00 32 00 12 00 50 20 43 4c 45 41 52 20 54 ┆4-]RS FOLK ~ P* P CLEAR TBOOL1 P CLEAR TBOOL2 2 P CLEAR T┆
0x1ac8…1b18 42 4f 4f 4c 33 20 00 02 00 48 00 12 00 50 20 43 4c 45 41 52 20 54 42 4f 4f 4c 34 20 00 02 00 5e 00 12 00 50 20 43 4c 45 41 52 20 54 42 4f 4f 4c 35 20 00 02 00 74 00 12 00 50 20 43 4c 45 41 52 20 54 42 4f 4f 4c 36 20 00 02 00 8a 00 12 00 50 ┆BOOL3 H P CLEAR TBOOL4 ^ P CLEAR TBOOL5 t P CLEAR TBOOL6 P┆
0x1b18…1b68 20 43 4c 45 41 52 20 54 42 4f 4f 4c 37 20 00 02 00 a0 00 12 00 50 20 43 4c 45 41 52 20 54 42 4f 4f 4c 38 20 00 02 00 b6 00 12 00 50 20 43 4c 45 41 52 20 54 42 4f 4f 4c 39 20 00 02 00 cc 00 12 00 50 20 43 4c 45 41 52 20 54 42 4f 4f 4c 31 30 ┆ CLEAR TBOOL7 P CLEAR TBOOL8 P CLEAR TBOOL9 P CLEAR TBOOL10┆
0x1b68…1bb8 00 02 00 e2 00 0a 00 50 20 45 4a 45 43 54 00 02 00 f8 00 06 00 50 2a 20 00 02 01 06 00 1e 00 50 2a 20 48 4f 56 45 44 50 45 52 53 4f 4e 20 44 45 46 49 4e 49 54 49 4f 4e 3a 20 00 02 01 10 00 3a 00 50 2a 20 20 20 4d 41 4e 44 3a 20 20 20 20 41 ┆ P EJECT P* P* HOVEDPERSON DEFINITION: : P* MAND: A┆
0x1bb8…1c08 4c 54 49 44 2c 20 42 4f 52 54 53 45 54 20 46 52 41 20 53 41 4d 42 45 53 4b 41 54 54 45 44 45 20 4d 41 4e 44 20 4d 45 44 00 02 01 32 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 4b 45 4b 4f 44 45 20 37 2e 00 02 01 70 00 26 00 50 ┆LTID, BORTSET FRA SAMBESKATTEDE MAND MED 2 P* ENKEKODE 7. p & P┆
0x1c08…1c58 (19, 0, 400) 2a 20 4b 56 49 4e 44 45 3a 20 20 20 31 29 20 41 4c 4c 45 20 55 47 49 46 54 45 20 4b 56 49 4e 44 45 52 00 02 01 90 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 32 29 20 47 49 46 54 45 20 4b 56 49 4e 44 45 52 20 4d 45 44 20 45 4e 4b 45 4b ┆* KVINDE: 1) ALLE UGIFTE KVINDER 0 P* 2) GIFTE KVINDER MED ENKEK┆
0x1c58…1ca8 4f 44 45 20 38 20 00 03 00 2a 00 06 00 50 2a 20 00 03 00 5e 00 1e 00 50 2a 20 41 4c 4c 45 20 41 4e 44 52 45 20 45 52 20 42 49 50 45 52 53 4f 4e 45 52 00 03 00 68 00 06 00 50 2a 20 00 03 00 8a 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 ┆ODE 8 * P* ^ P* ALLE ANDRE ER BIPERSONER h P* P MOVE GSWBCD┆
0x1ca8…1cf8 31 2c 43 50 52 4e 52 20 00 03 00 94 00 16 00 50 20 44 49 56 20 47 53 57 42 43 44 31 2c 3d 44 27 32 27 00 03 00 b0 00 16 00 50 20 4d 55 4c 20 47 53 57 42 43 44 31 2c 3d 44 27 32 27 00 03 00 ca 00 10 00 50 20 43 4c 45 41 52 20 54 4d 41 4c 45 ┆1,CPRNR P DIV GSWBCD1,=D'2' P MUL GSWBCD1,=D'2' P CLEAR TMALE┆
0x1cf8…1d48 00 03 00 e4 00 2a 00 50 20 43 42 45 20 47 53 57 42 43 44 31 2c 43 50 52 4e 52 2c 52 4b 54 30 32 30 20 45 56 45 4e 20 43 50 52 4e 52 3f 20 00 03 00 f8 00 1a 00 50 20 53 45 54 20 54 4d 41 4c 45 20 4e 4f 2c 20 3d 3e 20 4d 41 4c 45 00 03 01 26 ┆ * P CBE GSWBCD1,CPRNR,RKT020 EVEN CPRNR? P SET TMALE NO, => MALE &┆
0x1d48…1d98 00 0a 00 50 52 4b 54 30 32 30 00 03 01 44 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 3d 57 27 34 38 27 00 03 01 52 00 2c 00 50 20 50 45 52 46 20 46 49 4e 44 46 4c 44 2c 3d 44 27 31 30 31 27 20 53 41 4d 42 45 53 4b 41 54 4e 49 4e ┆ PRKT020 D P MOVE GSWBIN3,=W'48' R , P PERF FINDFLD,=D'101' SAMBESKATNIN┆
0x1d98…1de8 (20, 0, 400) 47 53 4b 4f 44 45 00 03 01 6e 00 22 00 50 20 42 4e 4f 4b 20 52 4b 54 32 32 41 20 4e 4f 54 20 46 4f 55 4e 44 2c 20 45 52 52 4f 52 20 00 04 00 0e 00 3c 00 50 20 43 42 4e 45 20 47 53 57 42 43 44 36 2c 3d 44 27 32 27 2c 52 4b 54 30 33 30 20 45 ┆GSKODE n " P BNOK RKT22A NOT FOUND, ERROR < P CBNE GSWBCD6,=D'2',RKT030 E┆
0x1de8…1e38 4a 20 53 41 4d 42 45 53 4b 41 54 54 45 20 3d 3e 20 48 4f 56 45 44 50 45 52 53 4f 4e 00 04 00 34 00 10 00 50 20 53 45 54 20 54 42 4f 4f 4c 32 20 00 04 00 74 00 28 00 50 20 50 45 52 46 20 46 49 4e 44 46 4c 44 2c 3d 44 27 31 37 30 27 20 48 45 ┆J SAMBESKATTE => HOVEDPERSON 4 P SET TBOOL2 t ( P PERF FINDFLD,=D'170' HE┆
0x1e38…1e88 4e 54 20 45 4e 4b 45 4b 4f 44 45 20 00 04 00 88 00 2a 00 50 20 42 4e 4f 4b 20 52 4b 54 30 34 30 20 46 49 4e 44 45 53 20 49 4b 4b 45 2c 20 3d 3e 20 42 49 50 45 52 53 4f 4e 20 00 04 00 b4 00 28 00 50 20 43 42 45 20 47 53 57 42 43 44 36 2c 3d ┆NT ENKEKODE * P BNOK RKT040 FINDES IKKE, => BIPERSON ( P CBE GSWBCD6,=┆
0x1e88…1ed8 44 27 37 27 2c 52 4b 54 31 30 30 20 41 46 44 4f 44 20 4d 41 4e 44 00 04 00 e2 00 2e 00 50 20 43 42 45 20 47 53 57 42 43 44 36 2c 3d 44 27 38 27 2c 52 4b 54 30 33 30 20 45 46 54 45 52 4c 41 44 54 20 4b 56 49 4e 44 45 00 04 01 0e 00 0a 00 50 ┆D'7',RKT100 AFDOD MAND . P CBE GSWBCD6,=D'8',RKT030 EFTERLADT KVINDE P┆
0x1ed8…1f28 52 4b 54 30 33 30 00 04 01 40 00 10 00 50 20 53 45 54 20 54 42 4f 4f 4c 31 20 00 04 01 4e 00 0e 00 50 20 42 20 52 4b 54 31 30 30 20 00 04 01 62 00 0a 00 50 52 4b 54 30 34 30 00 04 01 74 00 38 00 50 2a 20 53 41 4d 42 45 53 4b 41 54 54 45 44 ┆RKT030 @ P SET TBOOL1 N P B RKT100 b PRKT040 t 8 P* SAMBESKATTED┆