|
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: 20610 (0x5082)
Notes: pts_type(SC)
Names: »DPECCY.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/DPECCY.SC«
IDENT DPECCY EXCHANGE CURRENCY DDUM DEMODD PDIV EXPROC PAJRN EXPROC PCVCH EXPROC XBFMT EXPROC TNDCAB ENTRY DPECCY ENTRY SPAP26 ************************************************************************ * * * PROCEDURE: DPECCY* * FUNCTIONAL DESCRIPTION:* * EXCHANGE CURRENCY (BUYING OR SELLING)* * - IF THE FUNCTON-CHOISE INPUT-FIELD IS EMPTY A CURRENCY RECORD* * READ INTO THE CURRENCY BUFFER,* * OTHERWISE THE CURRENCY BUFFER HAS BEEN INITIALISED AND* * CCCCYCDE CONTAINS THE CURRENCY CODE FROM THE INPUT-FIELD.* * - IN THE LAST CASE THE CURRENCY BUFFER IS FURTHER INITIALISED* * BY DISPLAYING THE CURRENCY UPDATE SCREEN.* * - THEN THE CURRENCY EXCHANGE SCREEN IS DISPLAYED* * (THE COUNTER VALUE OF THE AMOUNT QUOTED IS CALCULATED* * IN SPAP26).* * - THE AMOUNT QUOTED AND THE AMOUNT CALCULATED ARE PRINTED* * AND THE OPERATOR BALANCES ARE UPDATED.* * USE OF VARIABLES:* * NWKTBIX: INDEX IN THE FUNCTION KEYTABLE (SET IN BESELF)* * SBFLDEMP: INPUT-FIELD EMPTY ? (SET IN BESELF)* * IDNR1: RATE 1 (BUYING OR SELLING)* * IDNR2: RATE 2 (BUYING OR SELLING)* * IDNR3: THE RATE ACTUALLY USED FOR THE EXCHANGE* * IDAMT1: AMOUNT QUOTED* * IDAMT2: AMOUNT CALCULATED (COUNTER VALUE OF IDAMT1)* * ICTEXT1: CURRENCY CODE FOR IDAMT1* * ICTEXT2: CURRENCY CODE FOR IDAMT2* * * ************************************************************************ DPECCY PROC DP000 SET SBECCY PERF PAJRN,=W'1' IDENTIFICATION PRINT * * * IF THE INPUT-FIELD CONTAINS A CURRENCY CODE THEN THE CURRENCY* * UPDATE SCREEN MUST BE DISPLAYED TO CREATE A NON-STANDARD* * CURRENCY RECORD IN THE CURRENCY BUFFER* * * TBT SBFLDEMP,DP100 FIELD EMPTY PERF XBFMT,=W'15' CURRENCY UPDATE TBT SBCANCEL,DP980 DP100 CBE NWKTBIX,=W'9',DP200 'IN', BUYING ** * 'OUT': CURRENCY SELLING* * * MOVE TDTRSCDE,=D'91' MOVE IDNR1,CDSEL1 RATE 1 MOVE IDNR2,CDSEL2 RATE 2 B DP300 * * * 'IN': CURRENCY BUYING* * * DP200 SET SBCCYIN TO CONTROL CCY EXCHANGE FORMAT MOVE TDTRSCDE,=D'92' MOVE IDNR1,CDBUY1 RATE 1 MOVE IDNR2,CDBUY2 RATE 2 * * * DISPLAY THE CURRENCY EXCHANGE SCREEN* * * DP300 MOVE IDNR4,=D'1' INIT CONTINUATION FIELD MOVE ICTEXT1,=C' ' INIT CURRENCY CODE 1 MOVE ICTEXT2,=C' ' INIT CURRENCY CODE 2 MOVE IDAMT2,=D'0' INIT COUNTER VALUE SET SBCCYKTB USE KTAB WITH CURRENCY KEYS PERF XBFMT,=W'58' CURRENCY EXCH. SCREEN TBT SBCANCEL,DP980 CBE IDNR4,=D'1',DP300 RESTART * NORMAT EXIT FROM CCY EXCHANGE* ADD YDLASSEQ,=D'1' MOVE TDTRSSEQ,YDLASSEQ TRANSACTION SEQUENCE NR. * * * PRINT AMOUNT QUOTED AND AMOUNT CALCULATED* * * MOVE ICTEXT3,ICTEXT1 CURRENCY CODE MOVE TDAMOUNT,IDAMT1 PERF PAJRN,=W'4' AMOUNT QUOTED MOVE ICTEXT3,ICTEXT2 CURRENCY CODE MOVE TDAMOUNT,IDAMT2 PERF PAJRN,=W'7' AMOUNT CALCULATED * * * IF THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY (I.E. AMOUNT IS CLOSED* * WITH A CURRENCY KEY), THEN SWAP IDAMT1 AND IDAMT2.* * THEN IDAMT1 CONTAINS THE AMOUNT IN THE SYSTEM CURRENCY* * AND IDAMT2 CONTAINS THE AMOUNT IN THE FOREIGN CURRENCY* * * TBT SBEOI,DP700 * SWAP IDAMT1 AND IDAMT2* MOVE WDEC1,IDAMT1 MOVE IDAMT1,IDAMT2 MOVE IDAMT2,WDEC1 * * * UPDATE THE OPERATOR BALANCES, IF THE INPUT-FIELD IS EMPTY* * * DP700 TBF SBFLDEMP,DP800 TBT SBCCYIN,DP750 * * * 'OUT': CURRENCY SELLING* * * ADD ODCASH(KW1,KW4),IDAMT1 CASH BALANCE SUB ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> ADD ODCASH(KW3,KW4),IDAMT1 ACCUM. CCY. SOLD - LOCAL VALUE ADD ODCASH(KW3,SWCCY),IDAMT2 ACC.CCY BOUGHT & SOLD B DP800 * * * 'IN': CURRENCY BUYING* * * DP750 MOVE TDAMOUNT,IDAMT1 SUB ODCASH(KW1,KW4),IDAMT1 CASH BALANCE ADD ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> ADD ODCASH(KW3,KW5),IDAMT1 ACCUM. CCY. BOUGHT - LOC. VAL. ADD ODCASH(KW3,SWCCY),IDAMT2 ACC.CCY BOUGHT & SOLD * * * PRINT CURRENCY EXCHANGE VOUCHER IF A TELLER PRINTER IS AVAILABLE* * * DP800 CBE RDPRTTYP,=D'2',DP999 CBE RDPRTTYP,=D'4',DP999 PERF PCVCH,=W'3' CURRENCY EXCH. VOUCHER DP980 DP999 CLEAR SBECCY CLEAR SBCCYIN RET PEND ************************************************************************ * * * PROCEDURE: SPAP26* * PARAMETERS:* * XWRET: RETURN CODE FOR SPAPPL* * FUNCTIONAL DESCRIPTION:* * CALCULATE CURRENCY EXCHANGE COUNTER VALUE (DPECCY (FMTO58)),* * DISPLAY THE COUNTER VALUE ON THE SCREEN AND* * FILL THE CURRENCY CODES ON THE SCREEN.* * IF RATE 2 IS NOT ZERO AND THE VALUE OF THE EXCHANGE * IN THE SYSTEM CURRENCY IS LARGER THAN CDLIMIT, * THEN RATE 2 MUST BE USED FOR THE EXCHANGE. * USE OF VARIABLES:* * IDNR1: RATE 1 (BUYING OR SELLING)* * IDNR2: RATE 2 (BUYING OR SELLING)* * IDNR3: WILL CONTAIN THE RATE ACTUALLY USED* * IDAMT1: AMOUNT QUOTED* * IDAMT2: WILL CONTAIN AMOUNT CALCULATED* * CCCCYCDE: CONTAINS THE CURRENCY CODE OF THE FOREIGN CCY USED* * SBEOI: WILL INDICATE WHETHER THE AMOUNT QUOTED IS CLOSED WITH * AN EOI OR NOT ** ************************************************************************ SPAP26 PROC XWRET PBIN XWRET S26000 MOVE IDNR3,IDNR1 INITIALISE AT RATE 1 CLEAR SBEOI * * KWSPCONT IS THE LAST NON APPLICATION FUNCTION KEY * KEYS WITH A HIGHER INDEX ARE CURRENCY KEYS * CBNG SPBINW2,KWSPCONT,S26400 * * * AMOUNT IS CLOSED WITH A CURRENCY KEY,* * THEN THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY* * * * TO PREVENT EXIT FROM SCREEN MANAGEMENT, ADAPT SPBINW2 * MOVE SPBINW2,KWSPEOI ADAPT KEYTABLE INDEX MOVE ICTEXT1,CCCCYCDE FOREIGN CURRENCY MOVE ICTEXT2,YCCCY(KW4) SYSTEM CURRENCY * * * COUNTER VALUE = IDAMT1 * 0.01 * RATE / CDRELAT * IF THE COUNTER VALUE USING RATE 1 IS LARGER THEN CDLIMIT* * AND RATE 2 IS NOT ZERO, USE RATE 2 FOR THE EXCHANGE* * * * START THE CALCULATION WITH RATE 1* ** MOVE IDAMT2,IDAMT1 MUL IDAMT2,IDNR1 DVR IDAMT2,CDRELAT DVR IDAMT2,=D'100' CBE IDNR2,=D'0',S26800 RATE 2 = 0 CBNG IDAMT2,CDLIMIT,S26800 VALUE =< CDLIMIT * USE RATE 2 FOR THE EXCHANGE* MOVE IDNR3,IDNR2 SAVE RATE 2 MOVE IDAMT2,IDAMT1 MUL IDAMT2,IDNR2 DVR IDAMT2,CDRELAT DVR IDAMT2,=D'100' B S26800 * * * AMOUNT IS CLOSED WITH EOI,* * THEN THE AMOUNT QUOTED IS IN THE SYSTEM CURRENCY* * * S26400 SET SBEOI INDICATE EOI MOVE ICTEXT1,YCCCY(KW4) SYSTEM CURRENCY MOVE ICTEXT2,CCCCYCDE FOREIGN CURRENCY * * * COUNTER VALUE = IDAMT1 * CDRELAT / (0.01 * RATE) * * MOVE IDAMT2,IDAMT1 MUL IDAMT2,CDRELAT MUL IDAMT2,=D'100' * * * IF RATE 2 = 0 OR IDAMT1 =< CDLIMIT THEN RATE 1 MUST BE USED* * ELSE USE RATE 2* * * CBE IDNR2,=D'0',S26600 RATE 2 = 0 CBNG IDAMT1,CDLIMIT,S26600 IDAMT1 =< CDLIMIT * USE RATE 2* MOVE IDNR3,IDNR2 SAVE RATE 2 DVR IDAMT2,IDNR2 B S26800 * USE RATE 1* S26600 DVR IDAMT2,IDNR1 * * * REDISPLAY THE CURRENT LINE AND THE NEXT ONE* * * S26800 ERASE 0,KW3,KW4 DISPLAY 4,KW3,KW4 S26999 RET PEND ************************************************************************ END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DPECCY EXCHANGE CURRENCY «, t00=0x0000, t01=0x0004}
0x0034…0084 Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0038}
0x0084…00d4 Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0088}
0x00d4…0128 Head {h00=0x0050, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x00d8}
0x0128…017c Head {h00=0x0050, h01=0x0050, text=» EXPROC PCVCH «, t00=0x0000, t01=0x012c}
0x017c…01d0 Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x0180}
0x01d0…01e6 Head {h00=0x0012, h01=0x0050, text=» EXPROC TNDCAB«, t00=0x0001, t01=0x0044}
0x01e6…0236 Head {h00=0x004c, h01=0x0050, text=» ENTRY DPECCY «, t00=0x0001, t01=0x005a}
0x0236…0286 Head {h00=0x004c, h01=0x0050, text=» ENTRY SPAP26 «, t00=0x0001, t01=0x00aa}
0x0286…02d6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x00fa}
0x02d6…0326 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x014a}
0x0326…0376 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: DPECCY *«, t00=0x0002, t01=0x000a}
0x0376…03c6 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0002, t01=0x005a}
0x03c6…0416 Head {h00=0x004c, h01=0x0050, text=»* EXCHANGE CURRENCY (BUYING OR SELLING) *«, t00=0x0002, t01=0x00aa}
0x0416…0466 Head {h00=0x004c, h01=0x0050, text=»* - IF THE FUNCTON-CHOISE INPUT-FIELD IS EMPTY A CURRENCY RECORD *«, t00=0x0002, t01=0x00fa}
0x0466…04b6 Head {h00=0x004c, h01=0x0050, text=»* READ INTO THE CURRENCY BUFFER, *«, t00=0x0002, t01=0x014a}
0x04b6…0506 Head {h00=0x004c, h01=0x0050, text=»* OTHERWISE THE CURRENCY BUFFER HAS BEEN INITIALISED AND *«, t00=0x0003, t01=0x000a}
0x0506…0556 Head {h00=0x004c, h01=0x0050, text=»* CCCCYCDE CONTAINS THE CURRENCY CODE FROM THE INPUT-FIELD. *«, t00=0x0003, t01=0x005a}
0x0556…05a6 Head {h00=0x004c, h01=0x0050, text=»* - IN THE LAST CASE THE CURRENCY BUFFER IS FURTHER INITIALISED *«, t00=0x0003, t01=0x00aa}
0x05a6…05f6 Head {h00=0x004c, h01=0x0050, text=»* BY DISPLAYING THE CURRENCY UPDATE SCREEN. *«, t00=0x0003, t01=0x00fa}
0x05f6…0646 Head {h00=0x004c, h01=0x0050, text=»* - THEN THE CURRENCY EXCHANGE SCREEN IS DISPLAYED *«, t00=0x0003, t01=0x014a}
0x0646…0696 Head {h00=0x004c, h01=0x0050, text=»* (THE COUNTER VALUE OF THE AMOUNT QUOTED IS CALCULATED *«, t00=0x0004, t01=0x000a}
0x0696…06e6 Head {h00=0x004c, h01=0x0050, text=»* IN SPAP26). *«, t00=0x0004, t01=0x005a}
0x06e6…0736 Head {h00=0x004c, h01=0x0050, text=»* - THE AMOUNT QUOTED AND THE AMOUNT CALCULATED ARE PRINTED *«, t00=0x0004, t01=0x00aa}
0x0736…0786 Head {h00=0x004c, h01=0x0050, text=»* AND THE OPERATOR BALANCES ARE UPDATED. * «, t00=0x0004, t01=0x00fa}
0x0786…07d6 Head {h00=0x004c, h01=0x0050, text=»* USE OF VARIABLES: *«, t00=0x0004, t01=0x014a}
0x07d6…0826 Head {h00=0x004c, h01=0x0050, text=»* NWKTBIX: INDEX IN THE FUNCTION KEYTABLE (SET IN BESELF) *«, t00=0x0005, t01=0x000a}
0x0826…0876 Head {h00=0x004c, h01=0x0050, text=»* SBFLDEMP: INPUT-FIELD EMPTY ? (SET IN BESELF) *«, t00=0x0005, t01=0x005a}
0x0876…08c6 Head {h00=0x004c, h01=0x0050, text=»* IDNR1: RATE 1 (BUYING OR SELLING) *«, t00=0x0005, t01=0x00aa}
0x08c6…0916 Head {h00=0x004c, h01=0x0050, text=»* IDNR2: RATE 2 (BUYING OR SELLING) *«, t00=0x0005, t01=0x00fa}
0x0916…0966 Head {h00=0x004c, h01=0x0050, text=»* IDNR3: THE RATE ACTUALLY USED FOR THE EXCHANGE *«, t00=0x0005, t01=0x014a}
0x0966…09b6 Head {h00=0x004c, h01=0x0050, text=»* IDAMT1: AMOUNT QUOTED *«, t00=0x0006, t01=0x000a}
0x09b6…0a06 Head {h00=0x004c, h01=0x0050, text=»* IDAMT2: AMOUNT CALCULATED (COUNTER VALUE OF IDAMT1) *«, t00=0x0006, t01=0x005a}
0x0a06…0a56 Head {h00=0x004c, h01=0x0050, text=»* ICTEXT1: CURRENCY CODE FOR IDAMT1 *«, t00=0x0006, t01=0x00aa}
0x0a56…0aa6 Head {h00=0x004c, h01=0x0050, text=»* ICTEXT2: CURRENCY CODE FOR IDAMT2 *«, t00=0x0006, t01=0x00fa}
0x0aa6…0af6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x014a}
0x0af6…0b46 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x000a}
0x0b46…0b96 Head {h00=0x004c, h01=0x0050, text=»DPECCY PROC «, t00=0x0007, t01=0x005a}
0x0b96…0be6 Head {h00=0x004c, h01=0x0050, text=»DP000 «, t00=0x0007, t01=0x00aa}
0x0be6…0c36 Head {h00=0x004c, h01=0x0050, text=» SET SBECCY «, t00=0x0007, t01=0x00fa}
0x0c36…0c86 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'1' IDENTIFICATION PRINT «, t00=0x0007, t01=0x014a}
0x0c86…0cd6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x000a}
0x0cd6…0d26 Head {h00=0x004c, h01=0x0050, text=»* IF THE INPUT-FIELD CONTAINS A CURRENCY CODE THEN THE CURRENCY *«, t00=0x0008, t01=0x005a}
0x0d26…0d76 Head {h00=0x004c, h01=0x0050, text=»* UPDATE SCREEN MUST BE DISPLAYED TO CREATE A NON-STANDARD *«, t00=0x0008, t01=0x00aa}
0x0d76…0dc6 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY RECORD IN THE CURRENCY BUFFER *«, t00=0x0008, t01=0x00fa}
0x0dc6…0e16 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x014a}
0x0e16…0e66 Head {h00=0x004c, h01=0x0050, text=» TBT SBFLDEMP,DP100 FIELD EMPTY «, t00=0x0009, t01=0x000a}
0x0e66…0eb6 Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'15' CURRENCY UPDATE «, t00=0x0009, t01=0x005a}
0x0eb6…0f06 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DP980 «, t00=0x0009, t01=0x00aa}
0x0f06…0f14 Head {h00=0x000a, h01=0x0050, text=»DP100 «, t00=0x0009, t01=0x00fa}
0x0f14…0f64 Head {h00=0x004c, h01=0x0050, text=» CBE NWKTBIX,=W'9',DP200 'IN', BUYING «, t00=0x0009, t01=0x0108}
0x0f64…0fb4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0158}
0x0fb4…1004 Head {h00=0x004c, h01=0x0050, text=»* 'OUT': CURRENCY SELLING *«, t00=0x000a, t01=0x0018}
0x1004…1054 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0068}
0x1054…10a4 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'91' «, t00=0x000a, t01=0x00b8}
0x10a4…10f4 Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR1,CDSEL1 RATE 1 «, t00=0x000a, t01=0x0108}
0x10f4…1144 Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR2,CDSEL2 RATE 2 «, t00=0x000a, t01=0x0158}
0x1144…1194 Head {h00=0x004c, h01=0x0050, text=» B DP300 «, t00=0x000b, t01=0x0018}
0x1194…11e4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0068}
0x11e4…1234 Head {h00=0x004c, h01=0x0050, text=»* 'IN': CURRENCY BUYING *«, t00=0x000b, t01=0x00b8}
0x1234…1284 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0108}
0x1284…1292 Head {h00=0x000a, h01=0x0050, text=»DP200 «, t00=0x000b, t01=0x0158}
0x1292…12e2 Head {h00=0x004c, h01=0x0050, text=» SET SBCCYIN TO CONTROL CCY EXCHANGE FORMAT «, t00=0x000b, t01=0x0166}
0x12e2…1332 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'92' «, t00=0x000c, t01=0x0026}
0x1332…1382 Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR1,CDBUY1 RATE 1 «, t00=0x000c, t01=0x0076}
0x1382…13d2 Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR2,CDBUY2 RATE 2 «, t00=0x000c, t01=0x00c6}
0x13d2…1422 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0116}
0x1422…1472 Head {h00=0x004c, h01=0x0050, text=»* DISPLAY THE CURRENCY EXCHANGE SCREEN *«, t00=0x000c, t01=0x0166}
0x1472…14c2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0026}
0x14c2…1512 Head {h00=0x004c, h01=0x0050, text=»DP300 «, t00=0x000d, t01=0x0076}
0x1512…1562 Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR4,=D'1' INIT CONTINUATION FIELD «, t00=0x000d, t01=0x00c6}
0x1562…15b2 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT1,=C' ' INIT CURRENCY CODE 1 «, t00=0x000d, t01=0x0116}
0x15b2…1602 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C' ' INIT CURRENCY CODE 2 «, t00=0x000d, t01=0x0166}
0x1602…1652 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,=D'0' INIT COUNTER VALUE «, t00=0x000e, t01=0x0026}
0x1652…1684 Head {h00=0x002e, h01=0x0050, text=» SET SBCCYKTB USE KTAB WITH CURRENCY KEYS «, t00=0x000e, t01=0x0076}
0x1684…16b4 Head {h00=0x002c, h01=0x0050, text=» PERF XBFMT,=W'58' CURRENCY EXCH. SCREEN«, t00=0x000e, t01=0x00a8}
0x16b4…1704 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DP980 «, t00=0x000e, t01=0x00d8}
0x1704…1754 Head {h00=0x004c, h01=0x0050, text=» CBE IDNR4,=D'1',DP300 RESTART «, t00=0x000e, t01=0x0128}
0x1754…17a4 Head {h00=0x004c, h01=0x0050, text=»* NORMAT EXIT FROM CCY EXCHANGE *«, t00=0x000e, t01=0x0178}
0x17a4…17f4 Head {h00=0x004c, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x000f, t01=0x0038}
0x17f4…1844 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ TRANSACTION SEQUENCE NR. «, t00=0x000f, t01=0x0088}
0x1844…1894 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00d8}
0x1894…18e4 Head {h00=0x004c, h01=0x0050, text=»* PRINT AMOUNT QUOTED AND AMOUNT CALCULATED *«, t00=0x000f, t01=0x0128}
0x18e4…1934 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0178}
0x1934…1984 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT3,ICTEXT1 CURRENCY CODE «, t00=0x0010, t01=0x0038}
0x1984…19d4 Head {h00=0x004c, h01=0x0050, text=» MOVE TDAMOUNT,IDAMT1 «, t00=0x0010, t01=0x0088}
0x19d4…1a24 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'4' AMOUNT QUOTED «, t00=0x0010, t01=0x00d8}
0x1a24…1a74 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT3,ICTEXT2 CURRENCY CODE «, t00=0x0010, t01=0x0128}
0x1a74…1ac4 Head {h00=0x004c, h01=0x0050, text=» MOVE TDAMOUNT,IDAMT2 «, t00=0x0010, t01=0x0178}
0x1ac4…1b14 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'7' AMOUNT CALCULATED «, t00=0x0011, t01=0x0038}
0x1b14…1b64 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0088}
0x1b64…1bb4 Head {h00=0x004c, h01=0x0050, text=»* IF THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY (I.E. AMOUNT IS CLOSED *«, t00=0x0011, t01=0x00d8}
0x1bb4…1c04 Head {h00=0x004c, h01=0x0050, text=»* WITH A CURRENCY KEY), THEN SWAP IDAMT1 AND IDAMT2. *«, t00=0x0011, t01=0x0128}
0x1c04…1c54 Head {h00=0x004c, h01=0x0050, text=»* THEN IDAMT1 CONTAINS THE AMOUNT IN THE SYSTEM CURRENCY *«, t00=0x0011, t01=0x0178}
0x1c54…1ca4 Head {h00=0x004c, h01=0x0050, text=»* AND IDAMT2 CONTAINS THE AMOUNT IN THE FOREIGN CURRENCY *«, t00=0x0012, t01=0x0038}
0x1ca4…1cf4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0088}
0x1cf4…1d44 Head {h00=0x004c, h01=0x0050, text=» TBT SBEOI,DP700 «, t00=0x0012, t01=0x00d8}
0x1d44…1d94 Head {h00=0x004c, h01=0x0050, text=»* SWAP IDAMT1 AND IDAMT2 *«, t00=0x0012, t01=0x0128}
0x1d94…1de4 Head {h00=0x004c, h01=0x0050, text=» MOVE WDEC1,IDAMT1 «, t00=0x0012, t01=0x0178}
0x1de4…1e34 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT1,IDAMT2 «, t00=0x0013, t01=0x0038}
0x1e34…1e84 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,WDEC1 «, t00=0x0013, t01=0x0088}
0x1e84…1ed4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x00d8}
0x1ed4…1f24 Head {h00=0x004c, h01=0x0050, text=»* UPDATE THE OPERATOR BALANCES, IF THE INPUT-FIELD IS EMPTY *«, t00=0x0013, t01=0x0128}
0x1f24…1f74 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0178}
0x1f74…1fc4 Head {h00=0x004c, h01=0x0050, text=»DP700 «, t00=0x0014, t01=0x0038}
0x1fc4…2014 Head {h00=0x004c, h01=0x0050, text=» TBF SBFLDEMP,DP800 «, t00=0x0014, t01=0x0088}
0x2014…2064 Head {h00=0x004c, h01=0x0050, text=» TBT SBCCYIN,DP750 «, t00=0x0014, t01=0x00d8}
0x2064…20b4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0128}
0x20b4…2104 Head {h00=0x004c, h01=0x0050, text=»* 'OUT': CURRENCY SELLING *«, t00=0x0014, t01=0x0178}
0x2104…2154 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0038}
0x2154…21a4 Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW1,KW4),IDAMT1 CASH BALANCE «, t00=0x0015, t01=0x0088}
0x21a4…21f4 Head {h00=0x004c, h01=0x0050, text=» SUB ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> «, t00=0x0015, t01=0x00d8}
0x21f4…2244 Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW3,KW4),IDAMT1 ACCUM. CCY. SOLD - LOCAL VALUE «, t00=0x0015, t01=0x0128}
0x2244…2280 Head {h00=0x0038, h01=0x0050, text=» ADD ODCASH(KW3,SWCCY),IDAMT2 ACC.CCY BOUGHT & SOLD «, t00=0x0015, t01=0x0178}
0x2280…22d0 Head {h00=0x004c, h01=0x0050, text=» B DP800 «, t00=0x0016, t01=0x0024}
0x22d0…2320 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0074}
0x2320…2370 Head {h00=0x004c, h01=0x0050, text=»* 'IN': CURRENCY BUYING *«, t00=0x0016, t01=0x00c4}
0x2370…23c0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0114}
0x23c0…2410 Head {h00=0x004c, h01=0x0050, text=»DP750 «, t00=0x0016, t01=0x0164}
0x2410…242e Head {h00=0x001a, h01=0x0050, text=» MOVE TDAMOUNT,IDAMT1 «, t00=0x0017, t01=0x0024}
0x242e…247e Head {h00=0x004c, h01=0x0050, text=» SUB ODCASH(KW1,KW4),IDAMT1 CASH BALANCE «, t00=0x0017, t01=0x0042}
0x247e…24ce Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> «, t00=0x0017, t01=0x0092}
0x24ce…251e Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW3,KW5),IDAMT1 ACCUM. CCY. BOUGHT - LOC. VAL. «, t00=0x0017, t01=0x00e2}
0x251e…255a Head {h00=0x0038, h01=0x0050, text=» ADD ODCASH(KW3,SWCCY),IDAMT2 ACC.CCY BOUGHT & SOLD «, t00=0x0017, t01=0x0132}
0x255a…25aa Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x016e}
0x25aa…25fa Head {h00=0x004c, h01=0x0050, text=»* PRINT CURRENCY EXCHANGE VOUCHER IF A TELLER PRINTER IS AVAILABLE *«, t00=0x0018, t01=0x002e}
0x25fa…264a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x007e}
0x264a…269a Head {h00=0x004c, h01=0x0050, text=»DP800 «, t00=0x0018, t01=0x00ce}
0x269a…26ea Head {h00=0x004c, h01=0x0050, text=» CBE RDPRTTYP,=D'2',DP999 «, t00=0x0018, t01=0x011e}
0x26ea…270c Head {h00=0x001e, h01=0x0050, text=» CBE RDPRTTYP,=D'4',DP999 «, t00=0x0018, t01=0x016e}
0x270c…275c Head {h00=0x004c, h01=0x0050, text=» PERF PCVCH,=W'3' CURRENCY EXCH. VOUCHER «, t00=0x0018, t01=0x0190}
0x275c…27ac Head {h00=0x004c, h01=0x0050, text=»DP980 «, t00=0x0019, t01=0x0050}
0x27ac…27fc Head {h00=0x004c, h01=0x0050, text=»DP999 «, t00=0x0019, t01=0x00a0}
0x27fc…284c Head {h00=0x004c, h01=0x0050, text=» CLEAR SBECCY «, t00=0x0019, t01=0x00f0}
0x284c…289c Head {h00=0x004c, h01=0x0050, text=» CLEAR SBCCYIN «, t00=0x0019, t01=0x0140}
0x289c…28ec Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0019, t01=0x0190}
0x28ec…293c Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x0050}
0x293c…298c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x00a0}
0x298c…29dc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001a, t01=0x00f0}
0x29dc…2a2c Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: SPAP26 *«, t00=0x001a, t01=0x0140}
0x2a2c…2a7c Head {h00=0x004c, h01=0x0050, text=»* PARAMETERS: *«, t00=0x001a, t01=0x0190}
0x2a7c…2acc Head {h00=0x004c, h01=0x0050, text=»* XWRET: RETURN CODE FOR SPAPPL *«, t00=0x001b, t01=0x0050}
0x2acc…2b1c Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x001b, t01=0x00a0}
0x2b1c…2b6c Head {h00=0x004c, h01=0x0050, text=»* CALCULATE CURRENCY EXCHANGE COUNTER VALUE (DPECCY (FMTO58)), *«, t00=0x001b, t01=0x00f0}
0x2b6c…2bbc Head {h00=0x004c, h01=0x0050, text=»* DISPLAY THE COUNTER VALUE ON THE SCREEN AND *«, t00=0x001b, t01=0x0140}
0x2bbc…2c0c Head {h00=0x004c, h01=0x0050, text=»* FILL THE CURRENCY CODES ON THE SCREEN. *«, t00=0x001b, t01=0x0190}
0x2c0c…2c4e Head {h00=0x003e, h01=0x0050, text=»* IF RATE 2 IS NOT ZERO AND THE VALUE OF THE EXCHANGE«, t00=0x001c, t01=0x0050}
0x2c4e…2c8c Head {h00=0x003a, h01=0x0050, text=»* IN THE SYSTEM CURRENCY IS LARGER THAN CDLIMIT, «, t00=0x001c, t01=0x0092}
0x2c8c…2cc6 Head {h00=0x0036, h01=0x0050, text=»* THEN RATE 2 MUST BE USED FOR THE EXCHANGE. «, t00=0x001c, t01=0x00d0}
0x2cc6…2d16 Head {h00=0x004c, h01=0x0050, text=»* USE OF VARIABLES: *«, t00=0x001c, t01=0x010a}
0x2d16…2d66 Head {h00=0x004c, h01=0x0050, text=»* IDNR1: RATE 1 (BUYING OR SELLING) *«, t00=0x001c, t01=0x015a}
0x2d66…2db6 Head {h00=0x004c, h01=0x0050, text=»* IDNR2: RATE 2 (BUYING OR SELLING) *«, t00=0x001d, t01=0x001a}
0x2db6…2e06 Head {h00=0x004c, h01=0x0050, text=»* IDNR3: WILL CONTAIN THE RATE ACTUALLY USED *«, t00=0x001d, t01=0x006a}
0x2e06…2e56 Head {h00=0x004c, h01=0x0050, text=»* IDAMT1: AMOUNT QUOTED *«, t00=0x001d, t01=0x00ba}
0x2e56…2ea6 Head {h00=0x004c, h01=0x0050, text=»* IDAMT2: WILL CONTAIN AMOUNT CALCULATED *«, t00=0x001d, t01=0x010a}
0x2ea6…2ef6 Head {h00=0x004c, h01=0x0050, text=»* CCCCYCDE: CONTAINS THE CURRENCY CODE OF THE FOREIGN CCY USED *«, t00=0x001d, t01=0x015a}
0x2ef6…2f46 Head {h00=0x004c, h01=0x0050, text=»* SBEOI: WILL INDICATE WHETHER THE AMOUNT QUOTED IS CLOSED WITH«, t00=0x001e, t01=0x001a}
0x2f46…2f6e Head {h00=0x0024, h01=0x0050, text=»* AN EOI OR NOT «, t00=0x001e, t01=0x006a}
0x2f6e…2fbe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001e, t01=0x0092}
0x2fbe…300e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001e, t01=0x00e2}
0x300e…305e Head {h00=0x004c, h01=0x0050, text=»SPAP26 PROC XWRET «, t00=0x001e, t01=0x0132}
0x305e…3072 Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x001e, t01=0x0182}
0x3072…30c2 Head {h00=0x004c, h01=0x0050, text=»S26000 «, t00=0x001f, t01=0x0008}
0x30c2…3112 Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR3,IDNR1 INITIALISE AT RATE 1 «, t00=0x001f, t01=0x0058}
0x3112…3126 Head {h00=0x0010, h01=0x0050, text=» CLEAR SBEOI«, t00=0x001f, t01=0x00a8}
0x3126…3130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00bc}
0x3130…316c Head {h00=0x0038, h01=0x0050, text=»* KWSPCONT IS THE LAST NON APPLICATION FUNCTION KEY «, t00=0x001f, t01=0x00c6}
0x316c…31a0 Head {h00=0x0030, h01=0x0050, text=»* KEYS WITH A HIGHER INDEX ARE CURRENCY KEYS«, t00=0x001f, t01=0x0102}
0x31a0…31aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0136}
0x31aa…31d0 Head {h00=0x0022, h01=0x0050, text=» CBNG SPBINW2,KWSPCONT,S26400 «, t00=0x001f, t01=0x0140}
0x31d0…3220 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0166}
0x3220…3270 Head {h00=0x004c, h01=0x0050, text=»* AMOUNT IS CLOSED WITH A CURRENCY KEY, *«, t00=0x0020, t01=0x0026}
0x3270…32c0 Head {h00=0x004c, h01=0x0050, text=»* THEN THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY *«, t00=0x0020, t01=0x0076}
0x32c0…3310 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0020, t01=0x00c6}
0x3310…3350 Head {h00=0x003c, h01=0x0050, text=»* TO PREVENT EXIT FROM SCREEN MANAGEMENT, ADAPT SPBINW2 «, t00=0x0020, t01=0x0116}
0x3350…335a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0156}
0x335a…338c Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW2,KWSPEOI ADAPT KEYTABLE INDEX«, t00=0x0020, t01=0x0160}
0x338c…33dc (33, 0, 400) Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT1,CCCCYCDE FOREIGN CURRENCY «, t00=0x0021, t01=0x0004}
0x33dc…342c Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,YCCCY(KW4) SYSTEM CURRENCY «, t00=0x0021, t01=0x0054}
0x342c…347c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0021, t01=0x00a4}
0x347c…34b4 Head {h00=0x0034, h01=0x0050, text=»* COUNTER VALUE = IDAMT1 * 0.01 * RATE / CDRELAT«, t00=0x0021, t01=0x00f4}
0x34b4…3504 Head {h00=0x004c, h01=0x0050, text=»* IF THE COUNTER VALUE USING RATE 1 IS LARGER THEN CDLIMIT *«, t00=0x0021, t01=0x012c}
0x3504…3554 Head {h00=0x004c, h01=0x0050, text=»* AND RATE 2 IS NOT ZERO, USE RATE 2 FOR THE EXCHANGE *«, t00=0x0021, t01=0x017c}
0x3554…35a4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0022, t01=0x003c}
0x35a4…35f4 Head {h00=0x004c, h01=0x0050, text=»* START THE CALCULATION WITH RATE 1 *«, t00=0x0022, t01=0x008c}
0x35f4…3644 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0022, t01=0x00dc}
0x3644…3694 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,IDAMT1 «, t00=0x0022, t01=0x012c}
0x3694…36e4 Head {h00=0x004c, h01=0x0050, text=» MUL IDAMT2,IDNR1 «, t00=0x0022, t01=0x017c}
0x36e4…3734 Head {h00=0x004c, h01=0x0050, text=» DVR IDAMT2,CDRELAT «, t00=0x0023, t01=0x003c}
0x3734…3750 Head {h00=0x0018, h01=0x0050, text=» DVR IDAMT2,=D'100' «, t00=0x0023, t01=0x008c}
0x3750…37a0 Head {h00=0x004c, h01=0x0050, text=» CBE IDNR2,=D'0',S26800 RATE 2 = 0 «, t00=0x0023, t01=0x00a8}
0x37a0…37f0 Head {h00=0x004c, h01=0x0050, text=» CBNG IDAMT2,CDLIMIT,S26800 VALUE =< CDLIMIT «, t00=0x0023, t01=0x00f8}
0x37f0…3840 Head {h00=0x004c, h01=0x0050, text=»* USE RATE 2 FOR THE EXCHANGE *«, t00=0x0023, t01=0x0148}
0x3840…3890 Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR3,IDNR2 SAVE RATE 2 «, t00=0x0024, t01=0x0008}
0x3890…38e0 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,IDAMT1 «, t00=0x0024, t01=0x0058}
0x38e0…3930 Head {h00=0x004c, h01=0x0050, text=» MUL IDAMT2,IDNR2 «, t00=0x0024, t01=0x00a8}
0x3930…3980 Head {h00=0x004c, h01=0x0050, text=» DVR IDAMT2,CDRELAT «, t00=0x0024, t01=0x00f8}
0x3980…399c Head {h00=0x0018, h01=0x0050, text=» DVR IDAMT2,=D'100' «, t00=0x0024, t01=0x0148}
0x399c…39ec Head {h00=0x004c, h01=0x0050, text=» B S26800 «, t00=0x0024, t01=0x0164}
0x39ec…3a3c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0025, t01=0x0024}
0x3a3c…3a8c Head {h00=0x004c, h01=0x0050, text=»* AMOUNT IS CLOSED WITH EOI, *«, t00=0x0025, t01=0x0074}
0x3a8c…3adc Head {h00=0x004c, h01=0x0050, text=»* THEN THE AMOUNT QUOTED IS IN THE SYSTEM CURRENCY *«, t00=0x0025, t01=0x00c4}
0x3adc…3b2c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0025, t01=0x0114}
0x3b2c…3b7c Head {h00=0x004c, h01=0x0050, text=»S26400 «, t00=0x0025, t01=0x0164}
0x3b7c…3bcc Head {h00=0x004c, h01=0x0050, text=» SET SBEOI INDICATE EOI «, t00=0x0026, t01=0x0024}
0x3bcc…3c1c Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT1,YCCCY(KW4) SYSTEM CURRENCY «, t00=0x0026, t01=0x0074}
0x3c1c…3c6c Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,CCCCYCDE FOREIGN CURRENCY «, t00=0x0026, t01=0x00c4}
0x3c6c…3cbc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0026, t01=0x0114}
0x3cbc…3cf6 Head {h00=0x0036, h01=0x0050, text=»* COUNTER VALUE = IDAMT1 * CDRELAT / (0.01 * RATE)«, t00=0x0026, t01=0x0164}
0x3cf6…3d46 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0027, t01=0x000e}
0x3d46…3d96 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,IDAMT1 «, t00=0x0027, t01=0x005e}
0x3d96…3de6 Head {h00=0x004c, h01=0x0050, text=» MUL IDAMT2,CDRELAT «, t00=0x0027, t01=0x00ae}
0x3de6…3e02 Head {h00=0x0018, h01=0x0050, text=» MUL IDAMT2,=D'100' «, t00=0x0027, t01=0x00fe}
0x3e02…3e52 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0027, t01=0x011a}
0x3e52…3ea2 Head {h00=0x004c, h01=0x0050, text=»* IF RATE 2 = 0 OR IDAMT1 =< CDLIMIT THEN RATE 1 MUST BE USED *«, t00=0x0027, t01=0x016a}
0x3ea2…3ef2 Head {h00=0x004c, h01=0x0050, text=»* ELSE USE RATE 2 *«, t00=0x0028, t01=0x002a}
0x3ef2…3f42 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0028, t01=0x007a}
0x3f42…3f92 Head {h00=0x004c, h01=0x0050, text=» CBE IDNR2,=D'0',S26600 RATE 2 = 0 «, t00=0x0028, t01=0x00ca}
0x3f92…3fe2 Head {h00=0x004c, h01=0x0050, text=» CBNG IDAMT1,CDLIMIT,S26600 IDAMT1 =< CDLIMIT «, t00=0x0028, t01=0x011a}
0x3fe2…4032 Head {h00=0x004c, h01=0x0050, text=»* USE RATE 2 *«, t00=0x0028, t01=0x016a}
0x4032…4082 Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR3,IDNR2 SAVE RATE 2 «, t00=0x0029, t01=0x002a}
0x4082…40d2 Head {h00=0x004c, h01=0x0050, text=» DVR IDAMT2,IDNR2 «, t00=0x0029, t01=0x007a}
0x40d2…4122 Head {h00=0x004c, h01=0x0050, text=» B S26800 «, t00=0x0029, t01=0x00ca}
0x4122…4172 Head {h00=0x004c, h01=0x0050, text=»* USE RATE 1 *«, t00=0x0029, t01=0x011a}
0x4172…41c2 Head {h00=0x004c, h01=0x0050, text=»S26600 «, t00=0x0029, t01=0x016a}
0x41c2…4212 Head {h00=0x004c, h01=0x0050, text=» DVR IDAMT2,IDNR1 «, t00=0x002a, t01=0x002a}
0x4212…4262 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002a, t01=0x007a}
0x4262…42b2 Head {h00=0x004c, h01=0x0050, text=»* REDISPLAY THE CURRENT LINE AND THE NEXT ONE *«, t00=0x002a, t01=0x00ca}
0x42b2…4302 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002a, t01=0x011a}
0x4302…4352 Head {h00=0x004c, h01=0x0050, text=»S26800 «, t00=0x002a, t01=0x016a}
0x4352…43a2 Head {h00=0x004c, h01=0x0050, text=» ERASE 0,KW3,KW4 «, t00=0x002b, t01=0x002a}
0x43a2…43f2 Head {h00=0x004c, h01=0x0050, text=» DISPLAY 4,KW3,KW4 «, t00=0x002b, t01=0x007a}
0x43f2…4442 Head {h00=0x004c, h01=0x0050, text=»S26999 «, t00=0x002b, t01=0x00ca}
0x4442…4492 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x002b, t01=0x011a}
0x4492…44e2 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x016a}
0x44e2…4532 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002c, t01=0x002a}
0x4532…4582 Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x002c, t01=0x007a}
0x4582…4586 Head {h00=0x4004, h01=0x0000}
0x4586…458a 00 2c 00 ca ┆ , ┆
0x458a…4592 (45, 1, 8) 20 04 00 00 00 2d 00 04 ┆ - ┆
0x4592…45e2 (46, 0, 400) 00 08 00 04 00 01 28 02 00 46 00 04 00 0c 00 08 00 03 20 06 00 d4 00 b1 00 46 00 10 00 0a 00 05 00 02 26 03 e0 d3 00 46 00 20 00 18 00 15 00 0a 26 13 c3 0f 4b 41 53 53 45 4e 42 45 53 54 41 4e 44 3a 00 46 00 2e 00 0a 00 06 00 02 26 04 c4 10 ┆ ( F F & F & KASSENBESTAND: F . & ┆
0x45e2…4632 00 46 00 4a 00 0c 00 07 00 03 26 05 c0 23 d4 41 00 46 00 58 00 0a 00 06 00 02 26 04 c4 14 00 46 00 68 00 1a 00 15 00 0a 1a 13 00 d5 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 20 00 46 00 76 00 0e 00 09 00 04 22 07 00 d5 87 d1 d4 53 00 46 ┆ F J & # A F X & F h ZZZZZZZZ9,99- F v " S F┆
0x4632…4682 00 94 00 0a 00 05 00 02 26 03 e1 d5 00 46 00 a6 00 1a 00 16 00 0a 26 14 c3 10 4b 41 53 53 45 4e 42 45 53 54 41 4e 44 20 3a 20 00 46 00 b4 00 0a 00 06 00 02 26 04 c4 10 00 46 00 d2 00 0c 00 07 00 03 26 05 c0 23 d1 41 00 46 00 e0 00 0a 00 06 ┆ & F & KASSENBESTAND : F & F & # A F ┆
0x4682…46d2 00 02 26 04 c4 14 00 46 00 f0 00 1a 00 15 00 0a 1a 13 00 d6 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 20 00 46 00 fe 00 0e 00 09 00 04 22 07 00 d6 87 d1 d1 53 00 46 01 1c 00 0a 00 05 00 02 26 03 e1 d6 00 46 01 2e 00 1a 00 16 00 0a 26 14 ┆ & F ZZZZZZZZ9,99- F " S F & F . & ┆
0x46d2…4722 c3 10 4b 41 53 53 45 4e 42 45 53 54 41 4e 44 20 3a 20 00 46 01 3c 00 0a 00 06 00 02 26 04 c4 10 00 46 01 5a 00 0c 00 07 00 03 26 05 c0 23 d2 41 00 46 01 68 00 0a 00 06 00 02 26 04 c4 14 00 46 01 78 00 1a 00 15 00 0a 1a 13 00 d7 10 0d 5a 5a ┆ KASSENBESTAND : F < & F Z & # A F h & F x ZZ┆
0x4722…4772 (47, 0, 400) 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 20 00 46 01 86 00 0e 00 09 00 04 22 07 00 d7 87 d1 d2 53 00 47 00 14 00 0a 00 05 00 02 26 03 e1 d7 00 47 00 26 00 1a 00 16 00 0a 26 14 c3 10 4b 41 53 53 45 4e 42 45 53 54 41 4e 44 20 3a 20 00 47 00 34 00 0a ┆ZZZZZZ9,99- F " S G & G & & KASSENBESTAND : G 4 ┆
0x4772…47c2 00 06 00 02 26 04 c4 10 00 47 00 52 00 0c 00 07 00 03 26 05 c0 23 d3 41 00 47 00 60 00 0a 00 06 00 02 26 04 c4 14 00 47 00 70 00 1a 00 15 00 0a 1a 13 00 d8 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 20 00 47 00 7e 00 0e 00 09 00 04 22 07 ┆ & G R & # A G ` & G p ZZZZZZZZ9,99- G ~ " ┆
0x47c2…4812 00 d8 87 d1 d3 53 00 47 00 9c 00 0a 00 05 00 02 26 03 e1 d8 00 47 00 ae 00 18 00 15 00 0a 26 13 c3 0f 53 43 48 45 43 4b 20 53 41 4c 44 4f 20 3a 00 47 00 bc 00 0a 00 06 00 02 26 04 c4 10 00 47 00 d8 00 0c 00 07 00 03 26 05 c0 23 d4 43 00 47 ┆ S G & G & SCHECK SALDO : G & G & # C G┆
0x4812…4862 00 e6 00 0a 00 06 00 02 26 04 c4 14 00 47 00 f6 00 1a 00 15 00 0a 1a 13 00 d9 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 20 00 47 01 04 00 0e 00 09 00 04 22 07 00 d9 87 d2 d1 45 00 47 01 22 00 0a 00 05 00 02 26 03 e1 d9 00 47 01 34 00 24 ┆ & G ZZZZZZZZ9,99- G " E G " & G 4 $┆
0x4862…48b2 00 20 00 0f 26 1e c3 1a 54 41 53 54 45 20 43 4f 4e 54 20 4f 44 45 52 20 54 41 53 54 45 20 43 41 4e 43 00 47 01 42 00 08 00 04 00 01 28 02 00 47 01 6a 00 0c 00 08 00 03 20 06 00 da 00 8b 00 47 01 76 00 0a 00 05 00 02 26 03 e0 1a 00 47 01 86 ┆ & TASTE CONT ODER TASTE CANC G B ( G j G v & G ┆
0x48b2…4902 (48, 0, 400) 00 18 00 14 00 09 26 12 c3 0e 47 45 53 41 4d 54 55 4d 53 41 54 5a 3a 20 00 48 00 04 00 0a 00 06 00 02 26 04 c4 10 00 48 00 20 00 0c 00 07 00 03 26 05 c0 23 d4 45 00 48 00 2e 00 0a 00 06 00 02 26 04 c4 14 00 48 00 3e 00 1a 00 15 00 0a 1a 13 ┆ & GESAMTUMSATZ: H & H & # E H . & H > ┆
0x4902…4952 00 db 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 20 00 48 00 4c 00 0c 00 07 00 03 22 05 00 db 4a 45 00 48 00 6a 00 0a 00 05 00 02 26 03 e1 db 00 48 00 7a 00 18 00 14 00 09 26 12 c3 0e 47 45 53 41 4d 54 55 4d 53 41 54 5a 3a 20 00 48 00 88 ┆ ZZZZZZZZ9,99- H L " JE H j & H z & GESAMTUMSATZ: H ┆
0x4952…49a2 00 0a 00 06 00 02 26 04 c4 10 00 48 00 a4 00 0c 00 07 00 03 26 05 c0 23 d1 45 00 48 00 b2 00 0a 00 06 00 02 26 04 c4 14 00 48 00 c2 00 1a 00 15 00 0a 1a 13 00 dc 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 20 00 48 00 d0 00 0e 00 09 00 04 ┆ & H & # E H & H ZZZZZZZZ9,99- H ┆
0x49a2…49f2 22 07 00 dc 87 d3 d1 41 00 48 00 ee 00 0a 00 05 00 02 26 03 e1 dc 00 48 01 00 00 18 00 14 00 09 26 12 c3 0e 47 45 53 41 4d 54 55 4d 53 41 54 5a 3a 20 00 48 01 0e 00 0a 00 06 00 02 26 04 c4 10 00 48 01 2a 00 0c 00 07 00 03 26 05 c0 23 d2 45 ┆" A H & H & GESAMTUMSATZ: H & H * & # E┆
0x49f2…4a42 00 48 01 38 00 0a 00 06 00 02 26 04 c4 14 00 48 01 48 00 1a 00 15 00 0a 1a 13 00 dd 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 20 00 48 01 56 00 0e 00 09 00 04 22 07 00 dd 87 d3 d2 41 00 48 01 74 00 0a 00 05 00 02 26 03 e1 dd 00 48 01 86 ┆ H 8 & H H ZZZZZZZZ9,99- H V " A H t & H ┆
0x4a42…4a92 (49, 0, 400) 00 18 00 14 00 09 26 12 c3 0e 47 45 53 41 4d 54 55 4d 53 41 54 5a 3a 20 00 49 00 04 00 0a 00 06 00 02 26 04 c4 10 00 49 00 20 00 0c 00 07 00 03 26 05 c0 23 d3 45 00 49 00 2e 00 0a 00 06 00 02 26 04 c4 14 00 49 00 3e 00 1a 00 15 00 0a 1a 13 ┆ & GESAMTUMSATZ: I & I & # E I . & I > ┆
0x4a92…4ae2 00 de 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 20 00 49 00 4c 00 0e 00 09 00 04 22 07 00 de 87 d3 d3 41 00 49 00 6a 00 0a 00 05 00 02 26 03 e1 de 00 49 00 7c 00 1a 00 17 00 0b 26 15 c3 11 57 41 45 48 52 55 4e 47 53 55 4d 53 41 54 5a 3a ┆ ZZZZZZZZ9,99- I L " A I j & I | & WAEHRUNGSUMSATZ:┆
0x4ae2…4b32 00 49 00 8a 00 0a 00 06 00 02 26 04 c4 10 00 49 00 a8 00 0c 00 07 00 03 26 05 c0 23 d4 41 00 49 00 b6 00 0a 00 06 00 02 26 04 c4 14 00 49 00 c6 00 1a 00 15 00 0a 1a 13 00 df 10 0d 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 2d 3a 00 49 00 d4 00 0c ┆ I & I & # A I & I ZZZZZZZZ9,99-: I ┆
0x4b32…4b82 00 07 00 03 22 05 00 df 4b 41 00 49 00 f2 00 08 00 04 00 01 28 02 00 49 01 02 00 0c 00 08 00 03 20 06 00 e0 00 13 00 49 01 0e 00 0a 00 05 00 02 26 03 e0 df 00 49 01 1e 00 1a 00 16 00 0a 26 14 c3 10 55 4e 47 55 45 4c 54 49 47 45 52 20 57 45 ┆ " KA I ( I I & I & UNGUELTIGER WE┆
0x4b82…4bd2 52 54 00 49 01 2c 00 08 00 04 00 01 28 02 00 49 01 4a 00 0c 00 08 00 03 20 06 00 e1 00 19 00 49 01 56 00 0a 00 05 00 02 26 03 e0 10 00 49 01 66 00 20 00 1c 00 0d 26 1a c3 16 47 45 53 43 48 55 45 54 5a 54 45 52 20 44 41 54 45 4e 53 41 54 5a ┆RT I , ( I J I V & I f & GESCHUETZTER DATENSATZ┆
0x4bd2…4c22 (50, 0, 400) 00 49 01 74 00 08 00 04 00 01 28 02 00 4a 00 08 00 0c 00 08 00 03 20 06 00 e2 00 0c 00 4a 00 14 00 0a 00 05 00 02 26 03 e0 16 00 4a 00 24 00 14 00 0f 00 07 26 0d c3 09 49 2f 4f 20 45 52 52 4f 52 54 00 4a 00 32 00 08 00 04 00 01 28 02 00 4a ┆ I t ( J J & J $ & I/O ERRORT J 2 ( J┆
0x4c22…4c72 00 4a 00 0c 00 08 00 03 20 06 00 e3 00 16 00 4a 00 56 00 0a 00 05 00 02 26 03 e0 09 00 4a 00 66 00 1e 00 19 00 0c 26 17 c3 13 45 4f 49 2d 4b 45 59 20 55 4e 5a 55 4c 41 45 53 53 49 47 41 00 4a 00 74 00 08 00 04 00 01 28 02 00 4a 00 96 00 0c ┆ J J V & J f & EOI-KEY UNZULAESSIGA J t ( J ┆
0x4c72…4cc2 00 08 00 03 20 06 00 e4 00 10 00 4a 00 a2 00 0a 00 05 00 02 26 03 e0 13 00 4a 00 b2 00 18 00 13 00 09 26 11 c3 0d 46 45 4c 44 20 45 49 4e 47 45 42 45 4e 41 00 4a 00 c0 00 08 00 04 00 01 28 02 00 4a 00 dc 00 0c 00 08 00 03 20 06 00 e5 00 11 ┆ J & J & FELD EINGEBENA J ( J ┆
0x4cc2…4d12 00 4a 00 e8 00 0a 00 05 00 02 26 03 e0 0d 00 4a 00 f8 00 18 00 14 00 09 26 12 c3 0e 50 4c 41 54 54 45 4e 2d 46 45 48 4c 45 52 00 4a 01 06 00 08 00 04 00 01 28 02 00 4a 01 22 00 0c 00 08 00 03 20 06 00 e6 00 16 00 4a 01 2e 00 0a 00 05 00 02 ┆ J & J & PLATTEN-FEHLER J ( J " J . ┆
0x4d12…4d62 26 03 e0 0e 00 4a 01 3e 00 1e 00 19 00 0c 26 17 c3 13 46 49 4c 45 2d 4f 50 45 4e 20 45 52 46 4f 4c 47 4c 4f 53 41 00 4a 01 4c 00 08 00 04 00 01 28 02 00 4a 01 6e 00 0c 00 08 00 03 20 06 00 e7 00 14 00 4a 01 7a 00 0a 00 05 00 02 26 03 e0 13 ┆& J > & FILE-OPEN ERFOLGLOSA J L ( J n J z & ┆
0x4d62…4db2 (51, 0, 400) 00 4a 01 8a 00 1c 00 17 00 0b 26 15 c3 11 53 43 48 41 4c 54 45 52 20 54 45 52 4d 49 4e 41 4c 4f 00 4b 00 08 00 08 00 04 00 01 28 02 00 4b 00 28 00 0c 00 08 00 03 20 06 00 e8 00 16 00 4b 00 34 00 0a 00 05 00 02 26 03 e0 11 00 4b 00 44 00 1e ┆ J & SCHALTER TERMINALO K ( K ( K 4 & K D ┆
0x4db2…4e02 00 19 00 0c 26 17 c3 13 57 45 52 54 20 4d 55 53 53 20 4e 55 4c 4c 20 53 45 49 4e 41 00 4b 00 52 00 08 00 04 00 01 28 02 00 4b 00 74 00 0c 00 08 00 03 20 06 00 e9 00 13 00 4b 00 80 00 0a 00 05 00 02 26 03 e0 13 00 4b 00 90 00 1a 00 16 00 0a ┆ & WERT MUSS NULL SEINA K R ( K t K & K ┆
0x4e02…4e52 26 14 c3 10 42 45 44 49 45 4e 55 4e 47 53 46 45 48 4c 45 52 00 4b 00 9e 00 08 00 04 00 01 28 02 00 4b 00 bc 00 0c 00 08 00 03 20 06 00 ea 00 18 00 4b 00 c8 00 0a 00 05 00 02 26 03 e0 10 00 4b 00 d8 00 20 00 1b 00 0d 26 19 c3 15 55 4e 47 55 ┆& BEDIENUNGSFEHLER K ( K K & K & UNGU┆
0x4e52…4ea2 45 4c 54 49 47 45 52 20 56 45 52 47 4c 45 49 43 48 5a 00 4b 00 e6 00 08 00 04 00 01 28 02 00 4b 01 0a 00 0c 00 08 00 03 20 06 00 eb 00 15 00 4b 01 16 00 0a 00 05 00 02 26 03 e0 15 00 4b 01 26 00 1c 00 18 00 0b 26 16 c3 12 42 45 44 49 45 4e ┆ELTIGER VERGLEICHZ K ( K K & K & & BEDIEN┆
0x4ea2…4ef2 45 52 20 55 4e 42 45 4b 41 4e 4e 54 00 4b 01 34 00 08 00 04 00 01 28 02 00 4b 01 54 00 0c 00 08 00 03 20 06 00 ec 00 1e 00 4b 01 60 00 0a 00 05 00 02 26 03 e0 12 00 4b 01 70 00 26 00 21 00 10 26 1f c3 1b 42 45 44 49 45 4e 45 52 20 42 45 52 ┆ER UNBEKANNT K 4 ( K T K ` & K p & ! & BEDIENER BER┆
0x4ef2…4f42 (52, 0, 400) 45 49 54 53 20 41 4e 47 45 4d 45 4c 44 45 54 52 00 4b 01 7e 00 08 00 04 00 01 28 02 00 4c 00 18 00 0c 00 08 00 03 20 06 00 ed 00 14 00 4c 00 24 00 0a 00 05 00 02 26 03 e0 1b 00 4c 00 34 00 1c 00 17 00 0b 26 15 c3 11 46 41 4c 53 43 48 45 53 ┆EITS ANGEMELDETR K ~ ( L L $ & L 4 & FALSCHES┆
0x4f42…4f92 20 4b 45 4e 4e 57 4f 52 54 41 00 4c 00 42 00 08 00 04 00 01 28 02 00 4c 00 62 00 0c 00 08 00 03 20 06 00 ee 00 22 00 4c 00 6e 00 0a 00 05 00 02 26 03 e0 11 00 4c 00 7e 00 2a 00 25 00 12 26 23 c3 1f 54 45 52 4d 2e 20 47 45 53 50 45 52 52 54 ┆ KENNWORTA L B ( L b " L n & L ~ * % &# TERM. GESPERRT┆
0x4f92…4fe2 2c 20 52 45 56 49 53 49 4f 4e 20 56 45 52 53 54 2c 45 00 4c 00 8c 00 08 00 04 00 01 28 02 00 4c 00 ba 00 0c 00 08 00 03 20 06 00 ef 00 11 00 4c 00 c6 00 0a 00 05 00 02 26 03 e0 1f 00 4c 00 d6 00 18 00 14 00 09 26 12 c3 0e 4b 4f 4e 54 4f 20 ┆, REVISION VERST,E L ( L L & L & KONTO ┆
0x4fe2…5032 47 45 53 50 45 52 52 54 00 4c 00 e4 00 08 00 04 00 01 28 02 00 4c 01 00 00 0c 00 08 00 03 20 06 00 f0 00 17 00 4c 01 0c 00 0a 00 05 00 02 26 03 e0 0e 00 4c 01 1c 00 1e 00 1a 00 0c 26 18 c3 14 52 45 43 4f 52 44 20 4b 45 59 20 55 4e 47 55 45 ┆GESPERRT L ( L L & L & RECORD KEY UNGUE┆
0x5032…5082 4c 54 49 47 00 4c 01 2a 00 08 00 04 00 01 28 02 00 4c 01 4c 00 0c 00 08 00 03 20 06 00 f1 00 1d 00 4c 01 58 00 0a 00 05 00 02 26 03 e0 14 00 4c 01 68 00 24 00 20 00 0f 26 1e c3 1a 4d 41 53 54 45 52 20 4b 45 59 53 45 54 54 49 4e 47 20 56 45 ┆LTIG L * ( L L L X & L h $ & MASTER KEYSETTING VE┆