|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 8401 (0x20d1)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSFB«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSFB«
00100 // **************************************************
00110 // *………………………………………………………………………………………………………………………………*
00120 // *…………………………Bogf|ringssystemet…'SYS-KAS'…………………………*
00130 // *………………………………………………vers.…1.0………………………………………………………*
00140 // *………………………………………………………………………………………………………………………………*
00150 // *…Udviklet…marts…1983…p}…en…'SPC/1'…mikrodatamat…*
00160 // *…Programsystemet…er…skrevet…i…COMAL80…vers.…1.2…*
00170 // *………………………………………………………………………………………………………………………………*
00180 // *…Udviklet…af…:…Peter…Kristensen……………………………………………*
00190 // *………………………………………Vestervang…6,…6920…Videb{k…………………*
00200 // *………………………………………………………………………………………………………………………………*
00210 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
00220 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
00230 // *………………………………………7400……Herning……………………………………………………*
00240 // **************************************************
00250 EXEC DIMENSIONER
00260 EXEC INITIER
00270 EXEC FUNKTIONSMENU
00280 CHAIN PROGRAM $
00290 // =============…procedurer…starter…=============
00300 PROC DIMENSIONER
00310 // Standard…variable
00320 DIM SPC $ OF 80 , TAL $ OF 10 , ALFA $ OF 28 , SVAR $ OF 12 , PRGFL $ OF 8
00330 DIM PROGRAM $ OF 17
00340 REAL RESRV , PPAR
00350 INTEGER OK , TRUE , FALSE , I , J , K
00360 // Hj{lpevariable
00370 DIM HJ_ST $ OF 10 , A_TXT $ OF 20 , A_BNR $ OF 5 , A_KTONR $ OF 8 , NONBOOK $ OF 60
00380 DIM A_KTO_TYPE $ OF 1 , A_KTO_NAVN $ OF 40
00390 REAL A_KTO_ULTIMO , NULR , T[LLER ( 3 ) , OVERSKUD
00400 INTEGER POS , HIGH , LOW , IDXPOS , DEBET , KREDIT , NUL , KOLNR , MAX_LIN
00410 INTEGER A_NTRANS , A_KTO_SP , LIN_T , TABNR ( 2 ) , SIDENR
00420 // Variable…til…filen…SYSPARA
00430 DIM SYSPARA $ OF 17
00440 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00450 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00460 // Variable…til…filen…@@PARAM
00470 DIM PARAM $ OF 17
00480 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 8
00490 REAL MOMS
00500 DIM ST_DATO $ OF 6
00510 INTEGER ANT_PER , PER_NR
00520 // Variable…til…filen…@@TRANS
00530 DIM TRANS $ OF 17
00540 INTEGER T_H\JREC , T_MAXREC
00550 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
00560 REAL BMOMS , BBEL\B
00570 INTEGER NTRANS , DK
00580 // Variable…til…filen…@@DRIFT\
00590 DIM DRIFT\ $ OF 17
00600 DIM PRIMODAT $ OF 6
00610 REAL DRIFT ( 2 )
00620 // Variable…til…filen…@@KONTO
00630 DIM KONTO $ OF 17
00640 INTEGER N_FRIREC , N_MAXREC
00650 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00660 REAL KTO_PRIMO , KTO_ULTIMO
00670 INTEGER KTO_FP , KTO_SP
00680 // Variable…til…filen…@@KTOIDX
00690 DIM KTOIDX $ OF 17
00700 INTEGER I_H\JREC , I_MAXREC
00710 DIM KTONR $ OF 8
00720 INTEGER RECNR
00730 // Variable…til…filen…@@FKTONR
00740 DIM FKTONR $ OF 17
00750 DIM BAL_KTO $ OF 8 , RES_KTO $ OF 8 , BALANCE $ OF 8 , PRIVATF $ OF 8 , OVERSK $ OF 8
00760 DIM INDMOMS_KTO $ OF 8 , UDMOMS_KTO $ OF 8
00770 // Variable…til…filen…@@KTOGRP
00780 DIM KTOGRP $ OF 17
00790 DIM KREDGRP $ OF 8 , DEBGRP $ OF 8
00800 ENDPROC DIMENSIONER
00810
00820 PROC INITIER
00830 LET PRGFL $ := "DP2"
00840 LET PROGRAM $ := PRGFL $ + ":SYSA"
00850 LET TAL $ := "0123456789"
00860 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00870 LET SPC $ := "…………………………………………………………………………………………………………"
00880 LET SPC $ := SPC $ + SPC $
00890 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00900 LET DEBET := 1 ; KREDIT := - 1 ; NULR := 0
00910 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00920 EXEC OPENFIL ( SYSPARA $ , "R" )
00930 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00940 EXEC TERMINAL_IDX
00950 CLOSE SYSPARA $
00960 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00970 EXEC OPENFIL ( PARAM $ , "W" )
00980 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00990 GET PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
01000 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
01010 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
01020 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
01030 LET DRIFT\ $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DRIFT\"
01040 LET FKTONR $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "FKTONR"
01050 LET KTOGRP $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOGRP"
01060 EXEC OPENFIL ( TRANS $ , "W" )
01070 EXEC OPENFIL ( KTOIDX $ , "W" )
01080 EXEC OPENFIL ( KONTO $ , "W" )
01090 EXEC OPENFIL ( FKTONR $ , "R" )
01100 GET FKTONR $ , 7 : RES_KTO $
01110 GET FKTONR $ , 8 : BAL_KTO $
01120 CLOSE FKTONR $
01130 EXEC OPENFIL ( KTOGRP $ , "R" )
01140 GET KTOGRP $ , 12 : DEBGRP $
01150 GET KTOGRP $ , 17 : KREDGRP $
01160 CLOSE KTOGRP $
01170 ENDPROC INITIER
01180
01190 //
01200 PROC TERMINAL_IDX
01210 LET PPAR := 5 ; RESRV := 0
01220 CALL 7"DDE:PRES"
01230 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01240 ENDPROC TERMINAL_IDX
01250
01260 PROC OPENFIL ( FNAVN $ , WAY $ )
01270 REPEAT
01280 IF AY $ = "W" OR WAY $ = "w" THEN
01290 OPEN FNAVN $ , W
01300 ELSE
01310 OPEN FNAVN $ , R
01320 ENDIF
01330 IF ( FNAVN $ ) THEN
01340 PRINT "<S>" ; CHR$ ( 7 )
01350 IF ( FNAVN $ ) = 6 THEN
01360 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
01370 INPUT "" : SVAR $
01380 ELSE
01390 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01400 PRINT "<S>" ; FNAVN $ ; "…***"
01410 INPUT "" : SVAR $
01420 PRINT "<C0102>" ; SPC $
01430 ENDIF
01440 ENDIF
01450 UNTIL NOT ╱cd╱ ( FNAVN $ )
01460 ENDPROC OPENFIL
01470
01480 PROC OVERSKRIFT ( ST $ , L )
01490 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01500 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01510 PRINT SYST_DAT $ ( 5 : 2 )
01520 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
01530 PRINT "***…" ; ST $ ; "…***"
01540 ENDPROC OVERSKRIFT
01550
01560 PROC SL_FEJLLINIE
01570 LET OK := TRUE
01580 PRINT "<C0102>" ; SPC $
01590 ENDPROC SL_FEJLLINIE
01600
01610 PROC FEJL ( ST $ )
01620 LET OK := FALSE
01630 CURSOR 36 - ( ╱cb╱ ( ST $ ) / 2 ) , 2
01640 PRINT "<S>***…" + ST $ + "…***" ; CHR$ ( 7 )
01650 ENDPROC FEJL
01660
01670 PROC SKRIV_KONTOOPL
01680 IF OPRET THEN EXEC FIND_IDXPLADS
01690 LET KTO_TYPE $ := A_KTO_TYPE $
01700 EXEC SKRIV_KONTO ( RECNR )
01710 ENDPROC SKRIV_KONTOOPL
01720
01730 PROC L[S_KONTO ( P )
01740 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01750 ENDPROC L[S_KONTO
01760
01770 PROC SKRIV_KONTO ( P )
01780 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01790 ENDPROC SKRIV_KONTO
01800
01810 PROC ST_BGST ( REF RST $ )
01820 FOR J := 1 TO ( RST $ ) DO
01830 IF "a" =< RST $ ( J ) AND RST $ ( J ) =< "}" THEN LET RST $ ( J ) := CHR$ ( ╱cc╱ ( RST $ ( J ) ) - 32 )
01840 NEXT J
01850 ENDPROC ST_BGST
01860
01870 PROC TAL_CONTROL ( REF RST $ )
01880 LET J := 0 ; OK := TRUE ; K := 0
01890 FOR I := 1 TO ( RST $ ) DO
01900 IF RST $ ( I ) IN "0123456789" THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
01910 IF RST $ ( I ) = "." AND K = 0 THEN LET J := J + 1 ; K := K + 1 ; RST $ ( J ) := RST $ ( I )
01920 NEXT I
01930 IF = 0 THEN
01940 LET OK := FALSE
01950 ELSE
01960 LET RST $ := RST $ ( 1 : J )
01970 ENDIF
01980 ENDPROC TAL_CONTROL
01990
02000 PROC FIND_KTO ( REF R_KTONR $ )
02010 LET OK := FALSE
02020 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
02030 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
02040 IF IGH > 1 THEN
02050 REPEAT
02060 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
02070 GET KTOIDX $ , POS : KTONR $ , RECNR
02080 IF TONR $ > R_KTONR $ THEN
02090 LET HIGH := POS
02100 ELSE
02110 IF TONR $ < R_KTONR $ THEN
02120 LET LOW := POS
02130 ENDIF
02140 ENDIF
02150 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
02160 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
02170 GET KTOIDX $ , POS : KTONR $ , RECNR
02180 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
02190 ENDIF
02200 LET FIND_KTO := POS
02210 ENDPROC FIND_KTO
02220
02230 PROC FUNKTIONSMENU
02240 IF ER_NR = 0 THEN
02250 EXEC OVERSKRIFT ( "Fremf|ring…af…balancetal…i…ny…regning" , 6 )
02260 PRINT "<C1809>Har…du…f}et…udskrevet…kontokort…"
02270 PRINT "<C1810>Er…datoen…=…den…f|rste…dato…i…det…nye…regnskabs}r…"
02280 PRINT "<C1811>Er…der…foretaget…sikkerhedskopiering"
02290 EDIT "<C3414>(j/n)?…" : SVAR $ ( 1 )
02300 IF VAR $ IN "JAja" AND SVAR $ >< "" THEN
02310 EXEC TILBAGEF\R
02320 EXEC FREMF\R
02330 ENDIF
02340 ELSE
02350 PRINT "<XSC0712>Ulovlig…fremf|ring…af…balancetal…-…regnskabs}ret…ikke…"
02360 PRINT "afsluttet"
02370 INPUT "<SC6523>Tryk…RETURN" : SVAR $
02380 ENDIF
02390 CHAIN PROGRAM $
02400 ENDPROC FUNKTIONSMENU
02410
02420 PROC BOGF\R ( REF Q_KTO $ , REF Q_DAT $ , REF Q_TXT $ , REF Q_M , REF Q_KR , Q_DK , QN $ )
02430 EXEC FIND_KTO ( Q_KTO $ )
02440 IF OK THEN
02450 EXEC FEJL ( "UKENDT…KONTONR:…" + Q_KTO $ )
02460 EXIT
02470 ELSE
02480 EXEC L[S_KONTO ( RECNR )
02490 IF TO_TYPE $ >< "A" THEN
02500 EXEC FEJL ( "ULOVLIG…KONTONR:…" + Q_KTO $ )
02510 EXIT
02520 ENDIF
02530 ENDIF
02540 GET TRANS $ , 1 : T_H\JREC , T_MAXREC
02550 IF _H\JREC = T_MAXREC THEN
02560 EXEC FEJL ( "TRANSAKTIONSFILEN…ER…FULD" )
02570 EXIT
02580 ENDIF
02590 LET T_H\JREC := T_H\JREC + 1
02600 IF TO_FP > 0 THEN
02610 EXEC L[S_TRANS ( KTO_SP )
02620 LET NTRANS := T_H\JREC
02630 EXEC SKRIV_TRANS ( KTO_SP )
02640 ELSE
02650 LET KTO_FP := T_H\JREC
02660 ENDIF
02670 LET BKTONR $ := Q_KTO $ ; BDATO $ := Q_DAT $ ; BTXT $ := Q_TXT $ ; BMOMS := Q_M ; BBEL\B := Q_KR
02680 LET DK := Q_DK ; NTRANS := NUL ; BLGNR $ := QN $
02690 EXEC SKRIV_TRANS ( T_H\JREC )
02700 LET KTO_SP := T_H\JREC
02710 IF K = DEBET THEN
02720 LET KTO_ULTIMO := KTO_ULTIMO + BBEL\B
02730 ELSE
02740 LET KTO_ULTIMO := KTO_ULTIMO - BBEL\B
02750 ENDIF
02760 EXEC SKRIV_KONTO ( RECNR )
02770 PUT TRANS $ , 1 : T_H\JREC , T_MAXREC
02780 ENDPROC BOGF\R
02790
02800 PROC SKRIV_TRANS ( P )
02810 PUT TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
02820 ENDPROC SKRIV_TRANS
02830
02840 PROC L[S_TRANS ( P )
02850 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
02860 ENDPROC L[S_TRANS
02870
02880 PROC TILBAGEF\R
02890 EXEC FIND_KTO ( BAL_KTO $ )
02900 EXEC L[S_KONTO ( RECNR )
02910 LET A_NTRANS := KTO_FP ; A_KTO_SP := KTO_SP
02920 REPEAT
02930 EXEC L[S_TRANS ( A_NTRANS )
02940 LET A_NTRANS := NTRANS
02950 LET A_KTONR $ := BTXT $ ( 11 : 8 ) ; A_TXT $ := "OVERF\RT…TIL…" + A_KTONR $
02960 LET A_DK := DK * ( - 1 ) ; A_BNR $ := "……" ; A_KTO_ULTIMO := BBEL\B
02970 EXEC BOGF\R ( BAL_KTO $ , SYST_DAT $ , A_TXT $ , NULR , A_KTO_ULTIMO , A_DK , A_BNR $ )
02980 LET A_TXT $ := "OVERF\RT…FRA…" + BAL_KTO $ ; A_DK := A_DK * ( - 1 )
02990 EXEC BOGF\R ( A_KTONR $ , SYST_DAT $ , A_TXT $ , NULR , A_KTO_ULTIMO , A_DK , A_BNR $ )
03000 PRINT "<SC3613>" ; A_KTONR $ ; SPC $ ( 1 : 10 )
03010 UNTIL A_NTRANS > A_KTO_SP
03020 LET PER_NR := PER_NR + 1 ; ST_DATO $ := SYST_DAT $
03030 PUT PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
03040 PUT DRIFT\ $ , 1 : SYST_DAT $
03050 ENDPROC TILBAGEF\R
03060 PROC FREMF\R
03070 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
03080 FOR I := 2 TO _H\JREC DO
03090 GET KTOIDX $ , I : KTONR $ , RECNR
03100 EXEC L[S_KONTO ( RECNR )
03110 PRINT "<C3613>" ; KTONR $ ; SPC $ ( 1 : 10 )
03120 LET KTO_PRIMO := KTO_ULTIMO ; KTO_FP := 0 ; KTO_SP := 0
03130 EXEC SKRIV_KONTO ( RECNR )
03140 NEXT I
03150 GET TRANS $ , 1 : T_H\JREC , T_MAXREC
03160 LET T_H\JREC := 1
03170 PUT TRANS $ , 1 : T_H\JREC , T_MAXREC
03180 LET PER_NR := PER_NR + 1 ; ST_DATO $ := SYST_DAT $
03190 ENDPROC FREMF\R
38382 ╱00╱ ╱00╱
0x0000…0038 (0,) 9626 00100 // **************************************************
0x0000…0038 LineComal80 {
0x0000…0038 ptr = 0x9626 // 0x0 @0x0
0x0000…0038 lno = 0x0064 // 0x2 @0x2
0x0000…0038 at0004 = ╱89╱ // ╱ // 0x4 @0x4
0x0000…0038 at0005 = ╱2a╱*╱ // 0x5 @0x5
0x0000…0038 at0006 = ╱2a╱*╱ // 0x6 @0x6
0x0000…0038 at0007 = ╱2a╱*╱ // 0x7 @0x7
0x0000…0038 at0008 = ╱2a╱*╱ // 0x8 @0x8
0x0000…0038 at0009 = ╱2a╱*╱ // 0x9 @0x9
0x0000…0038 at000a = ╱2a╱*╱ // 0xa @0xa
0x0000…0038 at000b = ╱2a╱*╱ // 0xb @0xb
0x0000…0038 at000c = ╱2a╱*╱ // 0xc @0xc
0x0000…0038 at000d = ╱2a╱*╱ // 0xd @0xd
0x0000…0038 at000e = ╱2a╱*╱ // 0xe @0xe
0x0000…0038 at000f = ╱2a╱*╱ // 0xf @0xf
0x0000…0038 at0010 = ╱2a╱*╱ // 0x10 @0x10
0x0000…0038 at0011 = ╱2a╱*╱ // 0x11 @0x11
0x0000…0038 at0012 = ╱2a╱*╱ // 0x12 @0x12
0x0000…0038 at0013 = ╱2a╱*╱ // 0x13 @0x13
0x0000…0038 at0014 = ╱2a╱*╱ // 0x14 @0x14
0x0000…0038 at0015 = ╱2a╱*╱ // 0x15 @0x15
0x0000…0038 at0016 = ╱2a╱*╱ // 0x16 @0x16
0x0000…0038 at0017 = ╱2a╱*╱ // 0x17 @0x17
0x0000…0038 at0018 = ╱2a╱*╱ // 0x18 @0x18
0x0000…0038 at0019 = ╱2a╱*╱ // 0x19 @0x19
0x0000…0038 at001a = ╱2a╱*╱ // 0x1a @0x1a
0x0000…0038 at001b = ╱2a╱*╱ // 0x1b @0x1b
0x0000…0038 at001c = ╱2a╱*╱ // 0x1c @0x1c
0x0000…0038 at001d = ╱2a╱*╱ // 0x1d @0x1d
0x0000…0038 at001e = ╱2a╱*╱ // 0x1e @0x1e
0x0000…0038 at001f = ╱2a╱*╱ // 0x1f @0x1f
0x0000…0038 at0020 = ╱2a╱*╱ // 0x20 @0x20
0x0000…0038 at0021 = ╱2a╱*╱ // 0x21 @0x21
0x0000…0038 at0022 = ╱2a╱*╱ // 0x22 @0x22
0x0000…0038 at0023 = ╱2a╱*╱ // 0x23 @0x23
0x0000…0038 at0024 = ╱2a╱*╱ // 0x24 @0x24
0x0000…0038 at0025 = ╱2a╱*╱ // 0x25 @0x25
0x0000…0038 at0026 = ╱2a╱*╱ // 0x26 @0x26
0x0000…0038 at0027 = ╱2a╱*╱ // 0x27 @0x27
0x0000…0038 at0028 = ╱2a╱*╱ // 0x28 @0x28
0x0000…0038 at0029 = ╱2a╱*╱ // 0x29 @0x29
0x0000…0038 at002a = ╱2a╱*╱ // 0x2a @0x2a
0x0000…0038 at002b = ╱2a╱*╱ // 0x2b @0x2b
0x0000…0038 at002c = ╱2a╱*╱ // 0x2c @0x2c
0x0000…0038 at002d = ╱2a╱*╱ // 0x2d @0x2d
0x0000…0038 at002e = ╱2a╱*╱ // 0x2e @0x2e
0x0000…0038 at002f = ╱2a╱*╱ // 0x2f @0x2f
0x0000…0038 at0030 = ╱2a╱*╱ // 0x30 @0x30
0x0000…0038 at0031 = ╱2a╱*╱ // 0x31 @0x31
0x0000…0038 at0032 = ╱2a╱*╱ // 0x32 @0x32
0x0000…0038 at0033 = ╱2a╱*╱ // 0x33 @0x33
0x0000…0038 at0034 = ╱2a╱*╱ // 0x34 @0x34
0x0000…0038 at0035 = ╱2a╱*╱ // 0x35 @0x35
0x0000…0038 at0036 = ╱2a╱*╱ // 0x36 @0x36
0x0000…0038 at0037 = EOL // 0x37 @0x37
0x0000…0038 }
0x0038…0070 965e 00110 // *………………………………………………………………………………………………………………………………*
0x0038…0070 LineComal80 {
0x0038…0070 ptr = 0x965e // 0x38 @0x0
0x0038…0070 lno = 0x006e // 0x3a @0x2
0x0038…0070 at0004 = ╱89╱ // ╱ // 0x3c @0x4
0x0038…0070 at0005 = ╱2a╱*╱ // 0x3d @0x5
0x0038…0070 at0006 = ╱20╱…╱ // 0x3e @0x6
0x0038…0070 at0007 = ╱20╱…╱ // 0x3f @0x7
0x0038…0070 at0008 = ╱20╱…╱ // 0x40 @0x8
0x0038…0070 at0009 = ╱20╱…╱ // 0x41 @0x9
0x0038…0070 at000a = ╱20╱…╱ // 0x42 @0xa
0x0038…0070 at000b = ╱20╱…╱ // 0x43 @0xb
0x0038…0070 at000c = ╱20╱…╱ // 0x44 @0xc
0x0038…0070 at000d = ╱20╱…╱ // 0x45 @0xd
0x0038…0070 at000e = ╱20╱…╱ // 0x46 @0xe
0x0038…0070 at000f = ╱20╱…╱ // 0x47 @0xf
0x0038…0070 at0010 = ╱20╱…╱ // 0x48 @0x10
0x0038…0070 at0011 = ╱20╱…╱ // 0x49 @0x11
0x0038…0070 at0012 = ╱20╱…╱ // 0x4a @0x12
0x0038…0070 at0013 = ╱20╱…╱ // 0x4b @0x13
0x0038…0070 at0014 = ╱20╱…╱ // 0x4c @0x14
0x0038…0070 at0015 = ╱20╱…╱ // 0x4d @0x15
0x0038…0070 at0016 = ╱20╱…╱ // 0x4e @0x16
0x0038…0070 at0017 = ╱20╱…╱ // 0x4f @0x17
0x0038…0070 at0018 = ╱20╱…╱ // 0x50 @0x18
0x0038…0070 at0019 = ╱20╱…╱ // 0x51 @0x19
0x0038…0070 at001a = ╱20╱…╱ // 0x52 @0x1a
0x0038…0070 at001b = ╱20╱…╱ // 0x53 @0x1b
0x0038…0070 at001c = ╱20╱…╱ // 0x54 @0x1c
0x0038…0070 at001d = ╱20╱…╱ // 0x55 @0x1d
0x0038…0070 at001e = ╱20╱…╱ // 0x56 @0x1e
0x0038…0070 at001f = ╱20╱…╱ // 0x57 @0x1f
0x0038…0070 at0020 = ╱20╱…╱ // 0x58 @0x20
0x0038…0070 at0021 = ╱20╱…╱ // 0x59 @0x21
0x0038…0070 at0022 = ╱20╱…╱ // 0x5a @0x22
0x0038…0070 at0023 = ╱20╱…╱ // 0x5b @0x23
0x0038…0070 at0024 = ╱20╱…╱ // 0x5c @0x24
0x0038…0070 at0025 = ╱20╱…╱ // 0x5d @0x25
0x0038…0070 at0026 = ╱20╱…╱ // 0x5e @0x26
0x0038…0070 at0027 = ╱20╱…╱ // 0x5f @0x27
0x0038…0070 at0028 = ╱20╱…╱ // 0x60 @0x28
0x0038…0070 at0029 = ╱20╱…╱ // 0x61 @0x29
0x0038…0070 at002a = ╱20╱…╱ // 0x62 @0x2a
0x0038…0070 at002b = ╱20╱…╱ // 0x63 @0x2b
0x0038…0070 at002c = ╱20╱…╱ // 0x64 @0x2c
0x0038…0070 at002d = ╱20╱…╱ // 0x65 @0x2d
0x0038…0070 at002e = ╱20╱…╱ // 0x66 @0x2e
0x0038…0070 at002f = ╱20╱…╱ // 0x67 @0x2f
0x0038…0070 at0030 = ╱20╱…╱ // 0x68 @0x30
0x0038…0070 at0031 = ╱20╱…╱ // 0x69 @0x31
0x0038…0070 at0032 = ╱20╱…╱ // 0x6a @0x32
0x0038…0070 at0033 = ╱20╱…╱ // 0x6b @0x33
0x0038…0070 at0034 = ╱20╱…╱ // 0x6c @0x34
0x0038…0070 at0035 = ╱20╱…╱ // 0x6d @0x35
0x0038…0070 at0036 = ╱2a╱*╱ // 0x6e @0x36
0x0038…0070 at0037 = EOL // 0x6f @0x37
0x0038…0070 }
0x0070…00a8 9696 00120 // *…………………………Bogf|ringssystemet…'SYS-KAS'…………………………*
0x0070…00a8 LineComal80 {
0x0070…00a8 ptr = 0x9696 // 0x70 @0x0
0x0070…00a8 lno = 0x0078 // 0x72 @0x2
0x0070…00a8 at0004 = ╱89╱ // ╱ // 0x74 @0x4
0x0070…00a8 at0005 = ╱2a╱*╱ // 0x75 @0x5
0x0070…00a8 at0006 = ╱20╱…╱ // 0x76 @0x6
0x0070…00a8 at0007 = ╱20╱…╱ // 0x77 @0x7
0x0070…00a8 at0008 = ╱20╱…╱ // 0x78 @0x8
0x0070…00a8 at0009 = ╱20╱…╱ // 0x79 @0x9
0x0070…00a8 at000a = ╱20╱…╱ // 0x7a @0xa
0x0070…00a8 at000b = ╱20╱…╱ // 0x7b @0xb
0x0070…00a8 at000c = ╱20╱…╱ // 0x7c @0xc
0x0070…00a8 at000d = ╱20╱…╱ // 0x7d @0xd
0x0070…00a8 at000e = ╱20╱…╱ // 0x7e @0xe
0x0070…00a8 at000f = ╱20╱…╱ // 0x7f @0xf
0x0070…00a8 at0010 = ╱42╱B╱ // 0x80 @0x10
0x0070…00a8 at0011 = ╱6f╱o╱ // 0x81 @0x11
0x0070…00a8 at0012 = ╱67╱g╱ // 0x82 @0x12
0x0070…00a8 at0013 = ╱66╱f╱ // 0x83 @0x13
0x0070…00a8 at0014 = ╱7c╱|╱ // 0x84 @0x14
0x0070…00a8 at0015 = ╱72╱r╱ // 0x85 @0x15
0x0070…00a8 at0016 = ╱69╱i╱ // 0x86 @0x16
0x0070…00a8 at0017 = ╱6e╱n╱ // 0x87 @0x17
0x0070…00a8 at0018 = ╱67╱g╱ // 0x88 @0x18
0x0070…00a8 at0019 = ╱73╱s╱ // 0x89 @0x19
0x0070…00a8 at001a = ╱73╱s╱ // 0x8a @0x1a
0x0070…00a8 at001b = ╱79╱y╱ // 0x8b @0x1b
0x0070…00a8 at001c = ╱73╱s╱ // 0x8c @0x1c
0x0070…00a8 at001d = ╱74╱t╱ // 0x8d @0x1d
0x0070…00a8 at001e = ╱65╱e╱ // 0x8e @0x1e
0x0070…00a8 at001f = ╱6d╱m╱ // 0x8f @0x1f
0x0070…00a8 at0020 = ╱65╱e╱ // 0x90 @0x20
0x0070…00a8 at0021 = ╱74╱t╱ // 0x91 @0x21
0x0070…00a8 at0022 = ╱20╱…╱ // 0x92 @0x22
0x0070…00a8 at0023 = ╱27╱'╱ // 0x93 @0x23
0x0070…00a8 at0024 = ╱53╱S╱ // 0x94 @0x24
0x0070…00a8 at0025 = ╱59╱Y╱ // 0x95 @0x25
0x0070…00a8 at0026 = ╱53╱S╱ // 0x96 @0x26
0x0070…00a8 at0027 = ╱2d╱-╱ // 0x97 @0x27
0x0070…00a8 at0028 = ╱4b╱K╱ // 0x98 @0x28
0x0070…00a8 at0029 = ╱41╱A╱ // 0x99 @0x29
0x0070…00a8 at002a = ╱53╱S╱ // 0x9a @0x2a
0x0070…00a8 at002b = ╱27╱'╱ // 0x9b @0x2b
0x0070…00a8 at002c = ╱20╱…╱ // 0x9c @0x2c
0x0070…00a8 at002d = ╱20╱…╱ // 0x9d @0x2d
0x0070…00a8 at002e = ╱20╱…╱ // 0x9e @0x2e
0x0070…00a8 at002f = ╱20╱…╱ // 0x9f @0x2f
0x0070…00a8 at0030 = ╱20╱…╱ // 0xa0 @0x30
0x0070…00a8 at0031 = ╱20╱…╱ // 0xa1 @0x31
0x0070…00a8 at0032 = ╱20╱…╱ // 0xa2 @0x32
0x0070…00a8 at0033 = ╱20╱…╱ // 0xa3 @0x33
0x0070…00a8 at0034 = ╱20╱…╱ // 0xa4 @0x34
0x0070…00a8 at0035 = ╱20╱…╱ // 0xa5 @0x35
0x0070…00a8 at0036 = ╱2a╱*╱ // 0xa6 @0x36
0x0070…00a8 at0037 = EOL // 0xa7 @0x37
0x0070…00a8 }
0x00a8…00e0 96ce 00130 // *………………………………………………vers.…1.0………………………………………………………*
0x00a8…00e0 LineComal80 {
0x00a8…00e0 ptr = 0x96ce // 0xa8 @0x0
0x00a8…00e0 lno = 0x0082 // 0xaa @0x2
0x00a8…00e0 at0004 = ╱89╱ // ╱ // 0xac @0x4
0x00a8…00e0 at0005 = ╱2a╱*╱ // 0xad @0x5
0x00a8…00e0 at0006 = ╱20╱…╱ // 0xae @0x6
0x00a8…00e0 at0007 = ╱20╱…╱ // 0xaf @0x7
0x00a8…00e0 at0008 = ╱20╱…╱ // 0xb0 @0x8
0x00a8…00e0 at0009 = ╱20╱…╱ // 0xb1 @0x9
0x00a8…00e0 at000a = ╱20╱…╱ // 0xb2 @0xa
0x00a8…00e0 at000b = ╱20╱…╱ // 0xb3 @0xb
0x00a8…00e0 at000c = ╱20╱…╱ // 0xb4 @0xc
0x00a8…00e0 at000d = ╱20╱…╱ // 0xb5 @0xd
0x00a8…00e0 at000e = ╱20╱…╱ // 0xb6 @0xe
0x00a8…00e0 at000f = ╱20╱…╱ // 0xb7 @0xf
0x00a8…00e0 at0010 = ╱20╱…╱ // 0xb8 @0x10
0x00a8…00e0 at0011 = ╱20╱…╱ // 0xb9 @0x11
0x00a8…00e0 at0012 = ╱20╱…╱ // 0xba @0x12
0x00a8…00e0 at0013 = ╱20╱…╱ // 0xbb @0x13
0x00a8…00e0 at0014 = ╱20╱…╱ // 0xbc @0x14
0x00a8…00e0 at0015 = ╱20╱…╱ // 0xbd @0x15
0x00a8…00e0 at0016 = ╱20╱…╱ // 0xbe @0x16
0x00a8…00e0 at0017 = ╱20╱…╱ // 0xbf @0x17
0x00a8…00e0 at0018 = ╱76╱v╱ // 0xc0 @0x18
0x00a8…00e0 at0019 = ╱65╱e╱ // 0xc1 @0x19
0x00a8…00e0 at001a = ╱72╱r╱ // 0xc2 @0x1a
0x00a8…00e0 at001b = ╱73╱s╱ // 0xc3 @0x1b
0x00a8…00e0 at001c = ╱2e╱.╱ // 0xc4 @0x1c
0x00a8…00e0 at001d = ╱20╱…╱ // 0xc5 @0x1d
0x00a8…00e0 at001e = ╱31╱1╱ // 0xc6 @0x1e
0x00a8…00e0 at001f = ╱2e╱.╱ // 0xc7 @0x1f
0x00a8…00e0 at0020 = ╱30╱0╱ // 0xc8 @0x20
0x00a8…00e0 at0021 = ╱20╱…╱ // 0xc9 @0x21
0x00a8…00e0 at0022 = ╱20╱…╱ // 0xca @0x22
0x00a8…00e0 at0023 = ╱20╱…╱ // 0xcb @0x23
0x00a8…00e0 at0024 = ╱20╱…╱ // 0xcc @0x24
0x00a8…00e0 at0025 = ╱20╱…╱ // 0xcd @0x25
0x00a8…00e0 at0026 = ╱20╱…╱ // 0xce @0x26
0x00a8…00e0 at0027 = ╱20╱…╱ // 0xcf @0x27
0x00a8…00e0 at0028 = ╱20╱…╱ // 0xd0 @0x28
0x00a8…00e0 at0029 = ╱20╱…╱ // 0xd1 @0x29
0x00a8…00e0 at002a = ╱20╱…╱ // 0xd2 @0x2a
0x00a8…00e0 at002b = ╱20╱…╱ // 0xd3 @0x2b
0x00a8…00e0 at002c = ╱20╱…╱ // 0xd4 @0x2c
0x00a8…00e0 at002d = ╱20╱…╱ // 0xd5 @0x2d
0x00a8…00e0 at002e = ╱20╱…╱ // 0xd6 @0x2e
0x00a8…00e0 at002f = ╱20╱…╱ // 0xd7 @0x2f
0x00a8…00e0 at0030 = ╱20╱…╱ // 0xd8 @0x30
0x00a8…00e0 at0031 = ╱20╱…╱ // 0xd9 @0x31
0x00a8…00e0 at0032 = ╱20╱…╱ // 0xda @0x32
0x00a8…00e0 at0033 = ╱20╱…╱ // 0xdb @0x33
0x00a8…00e0 at0034 = ╱20╱…╱ // 0xdc @0x34
0x00a8…00e0 at0035 = ╱20╱…╱ // 0xdd @0x35
0x00a8…00e0 at0036 = ╱2a╱*╱ // 0xde @0x36
0x00a8…00e0 at0037 = EOL // 0xdf @0x37
0x00a8…00e0 }
0x00e0…0118 9706 00140 // *………………………………………………………………………………………………………………………………*
0x00e0…0118 LineComal80 {
0x00e0…0118 ptr = 0x9706 // 0xe0 @0x0
0x00e0…0118 lno = 0x008c // 0xe2 @0x2
0x00e0…0118 at0004 = ╱89╱ // ╱ // 0xe4 @0x4
0x00e0…0118 at0005 = ╱2a╱*╱ // 0xe5 @0x5
0x00e0…0118 at0006 = ╱20╱…╱ // 0xe6 @0x6
0x00e0…0118 at0007 = ╱20╱…╱ // 0xe7 @0x7
0x00e0…0118 at0008 = ╱20╱…╱ // 0xe8 @0x8
0x00e0…0118 at0009 = ╱20╱…╱ // 0xe9 @0x9
0x00e0…0118 at000a = ╱20╱…╱ // 0xea @0xa
0x00e0…0118 at000b = ╱20╱…╱ // 0xeb @0xb
0x00e0…0118 at000c = ╱20╱…╱ // 0xec @0xc
0x00e0…0118 at000d = ╱20╱…╱ // 0xed @0xd
0x00e0…0118 at000e = ╱20╱…╱ // 0xee @0xe
0x00e0…0118 at000f = ╱20╱…╱ // 0xef @0xf
0x00e0…0118 at0010 = ╱20╱…╱ // 0xf0 @0x10
0x00e0…0118 at0011 = ╱20╱…╱ // 0xf1 @0x11
0x00e0…0118 at0012 = ╱20╱…╱ // 0xf2 @0x12
0x00e0…0118 at0013 = ╱20╱…╱ // 0xf3 @0x13
0x00e0…0118 at0014 = ╱20╱…╱ // 0xf4 @0x14
0x00e0…0118 at0015 = ╱20╱…╱ // 0xf5 @0x15
0x00e0…0118 at0016 = ╱20╱…╱ // 0xf6 @0x16
0x00e0…0118 at0017 = ╱20╱…╱ // 0xf7 @0x17
0x00e0…0118 at0018 = ╱20╱…╱ // 0xf8 @0x18
0x00e0…0118 at0019 = ╱20╱…╱ // 0xf9 @0x19
0x00e0…0118 at001a = ╱20╱…╱ // 0xfa @0x1a
0x00e0…0118 at001b = ╱20╱…╱ // 0xfb @0x1b
0x00e0…0118 at001c = ╱20╱…╱ // 0xfc @0x1c
0x00e0…0118 at001d = ╱20╱…╱ // 0xfd @0x1d
0x00e0…0118 at001e = ╱20╱…╱ // 0xfe @0x1e
0x00e0…0118 at001f = ╱20╱…╱ // 0xff @0x1f
0x00e0…0118 at0020 = ╱20╱…╱ // 0x100 @0x20
0x00e0…0118 at0021 = ╱20╱…╱ // 0x101 @0x21
0x00e0…0118 at0022 = ╱20╱…╱ // 0x102 @0x22
0x00e0…0118 at0023 = ╱20╱…╱ // 0x103 @0x23
0x00e0…0118 at0024 = ╱20╱…╱ // 0x104 @0x24
0x00e0…0118 at0025 = ╱20╱…╱ // 0x105 @0x25
0x00e0…0118 at0026 = ╱20╱…╱ // 0x106 @0x26
0x00e0…0118 at0027 = ╱20╱…╱ // 0x107 @0x27
0x00e0…0118 at0028 = ╱20╱…╱ // 0x108 @0x28
0x00e0…0118 at0029 = ╱20╱…╱ // 0x109 @0x29
0x00e0…0118 at002a = ╱20╱…╱ // 0x10a @0x2a
0x00e0…0118 at002b = ╱20╱…╱ // 0x10b @0x2b
0x00e0…0118 at002c = ╱20╱…╱ // 0x10c @0x2c
0x00e0…0118 at002d = ╱20╱…╱ // 0x10d @0x2d
0x00e0…0118 at002e = ╱20╱…╱ // 0x10e @0x2e
0x00e0…0118 at002f = ╱20╱…╱ // 0x10f @0x2f
0x00e0…0118 at0030 = ╱20╱…╱ // 0x110 @0x30
0x00e0…0118 at0031 = ╱20╱…╱ // 0x111 @0x31
0x00e0…0118 at0032 = ╱20╱…╱ // 0x112 @0x32
0x00e0…0118 at0033 = ╱20╱…╱ // 0x113 @0x33
0x00e0…0118 at0034 = ╱20╱…╱ // 0x114 @0x34
0x00e0…0118 at0035 = ╱20╱…╱ // 0x115 @0x35
0x00e0…0118 at0036 = ╱2a╱*╱ // 0x116 @0x36
0x00e0…0118 at0037 = EOL // 0x117 @0x37
0x00e0…0118 }
0x0118…0150 973e 00150 // *…Udviklet…marts…1983…p}…en…'SPC/1'…mikrodatamat…*
0x0118…0150 LineComal80 {
0x0118…0150 ptr = 0x973e // 0x118 @0x0
0x0118…0150 lno = 0x0096 // 0x11a @0x2
0x0118…0150 at0004 = ╱89╱ // ╱ // 0x11c @0x4
0x0118…0150 at0005 = ╱2a╱*╱ // 0x11d @0x5
0x0118…0150 at0006 = ╱20╱…╱ // 0x11e @0x6
0x0118…0150 at0007 = ╱55╱U╱ // 0x11f @0x7
0x0118…0150 at0008 = ╱64╱d╱ // 0x120 @0x8
0x0118…0150 at0009 = ╱76╱v╱ // 0x121 @0x9
0x0118…0150 at000a = ╱69╱i╱ // 0x122 @0xa
0x0118…0150 at000b = ╱6b╱k╱ // 0x123 @0xb
0x0118…0150 at000c = ╱6c╱l╱ // 0x124 @0xc
0x0118…0150 at000d = ╱65╱e╱ // 0x125 @0xd
0x0118…0150 at000e = ╱74╱t╱ // 0x126 @0xe
0x0118…0150 at000f = ╱20╱…╱ // 0x127 @0xf
0x0118…0150 at0010 = ╱6d╱m╱ // 0x128 @0x10
0x0118…0150 at0011 = ╱61╱a╱ // 0x129 @0x11
0x0118…0150 at0012 = ╱72╱r╱ // 0x12a @0x12
0x0118…0150 at0013 = ╱74╱t╱ // 0x12b @0x13
0x0118…0150 at0014 = ╱73╱s╱ // 0x12c @0x14
0x0118…0150 at0015 = ╱20╱…╱ // 0x12d @0x15
0x0118…0150 at0016 = ╱31╱1╱ // 0x12e @0x16
0x0118…0150 at0017 = ╱39╱9╱ // 0x12f @0x17
0x0118…0150 at0018 = ╱38╱8╱ // 0x130 @0x18
0x0118…0150 at0019 = ╱33╱3╱ // 0x131 @0x19
0x0118…0150 at001a = ╱20╱…╱ // 0x132 @0x1a
0x0118…0150 at001b = ╱70╱p╱ // 0x133 @0x1b
0x0118…0150 at001c = ╱7d╱}╱ // 0x134 @0x1c
0x0118…0150 at001d = ╱20╱…╱ // 0x135 @0x1d
0x0118…0150 at001e = ╱65╱e╱ // 0x136 @0x1e
0x0118…0150 at001f = ╱6e╱n╱ // 0x137 @0x1f
0x0118…0150 at0020 = ╱20╱…╱ // 0x138 @0x20
0x0118…0150 at0021 = ╱27╱'╱ // 0x139 @0x21
0x0118…0150 at0022 = ╱53╱S╱ // 0x13a @0x22
0x0118…0150 at0023 = ╱50╱P╱ // 0x13b @0x23
0x0118…0150 at0024 = ╱43╱C╱ // 0x13c @0x24
0x0118…0150 at0025 = ╱2f╱/╱ // 0x13d @0x25
0x0118…0150 at0026 = ╱31╱1╱ // 0x13e @0x26
0x0118…0150 at0027 = ╱27╱'╱ // 0x13f @0x27
0x0118…0150 at0028 = ╱20╱…╱ // 0x140 @0x28
0x0118…0150 at0029 = ╱6d╱m╱ // 0x141 @0x29
0x0118…0150 at002a = ╱69╱i╱ // 0x142 @0x2a
0x0118…0150 at002b = ╱6b╱k╱ // 0x143 @0x2b
0x0118…0150 at002c = ╱72╱r╱ // 0x144 @0x2c
0x0118…0150 at002d = ╱6f╱o╱ // 0x145 @0x2d
0x0118…0150 at002e = ╱64╱d╱ // 0x146 @0x2e
0x0118…0150 at002f = ╱61╱a╱ // 0x147 @0x2f
0x0118…0150 at0030 = ╱74╱t╱ // 0x148 @0x30
0x0118…0150 at0031 = ╱61╱a╱ // 0x149 @0x31
0x0118…0150 at0032 = ╱6d╱m╱ // 0x14a @0x32
0x0118…0150 at0033 = ╱61╱a╱ // 0x14b @0x33
0x0118…0150 at0034 = ╱74╱t╱ // 0x14c @0x34
0x0118…0150 at0035 = ╱20╱…╱ // 0x14d @0x35
0x0118…0150 at0036 = ╱2a╱*╱ // 0x14e @0x36
0x0118…0150 at0037 = EOL // 0x14f @0x37
0x0118…0150 }
0x0150…0188 9776 00160 // *…Programsystemet…er…skrevet…i…COMAL80…vers.…1.2…*
0x0150…0188 LineComal80 {
0x0150…0188 ptr = 0x9776 // 0x150 @0x0
0x0150…0188 lno = 0x00a0 // 0x152 @0x2
0x0150…0188 at0004 = ╱89╱ // ╱ // 0x154 @0x4
0x0150…0188 at0005 = ╱2a╱*╱ // 0x155 @0x5
0x0150…0188 at0006 = ╱20╱…╱ // 0x156 @0x6
0x0150…0188 at0007 = ╱50╱P╱ // 0x157 @0x7
0x0150…0188 at0008 = ╱72╱r╱ // 0x158 @0x8
0x0150…0188 at0009 = ╱6f╱o╱ // 0x159 @0x9
0x0150…0188 at000a = ╱67╱g╱ // 0x15a @0xa
0x0150…0188 at000b = ╱72╱r╱ // 0x15b @0xb
0x0150…0188 at000c = ╱61╱a╱ // 0x15c @0xc
0x0150…0188 at000d = ╱6d╱m╱ // 0x15d @0xd
0x0150…0188 at000e = ╱73╱s╱ // 0x15e @0xe
0x0150…0188 at000f = ╱79╱y╱ // 0x15f @0xf
0x0150…0188 at0010 = ╱73╱s╱ // 0x160 @0x10
0x0150…0188 at0011 = ╱74╱t╱ // 0x161 @0x11
0x0150…0188 at0012 = ╱65╱e╱ // 0x162 @0x12
0x0150…0188 at0013 = ╱6d╱m╱ // 0x163 @0x13
0x0150…0188 at0014 = ╱65╱e╱ // 0x164 @0x14
0x0150…0188 at0015 = ╱74╱t╱ // 0x165 @0x15
0x0150…0188 at0016 = ╱20╱…╱ // 0x166 @0x16
0x0150…0188 at0017 = ╱65╱e╱ // 0x167 @0x17
0x0150…0188 at0018 = ╱72╱r╱ // 0x168 @0x18
0x0150…0188 at0019 = ╱20╱…╱ // 0x169 @0x19
0x0150…0188 at001a = ╱73╱s╱ // 0x16a @0x1a
0x0150…0188 at001b = ╱6b╱k╱ // 0x16b @0x1b
0x0150…0188 at001c = ╱72╱r╱ // 0x16c @0x1c
0x0150…0188 at001d = ╱65╱e╱ // 0x16d @0x1d
0x0150…0188 at001e = ╱76╱v╱ // 0x16e @0x1e
0x0150…0188 at001f = ╱65╱e╱ // 0x16f @0x1f
0x0150…0188 at0020 = ╱74╱t╱ // 0x170 @0x20
0x0150…0188 at0021 = ╱20╱…╱ // 0x171 @0x21
0x0150…0188 at0022 = ╱69╱i╱ // 0x172 @0x22
0x0150…0188 at0023 = ╱20╱…╱ // 0x173 @0x23
0x0150…0188 at0024 = ╱43╱C╱ // 0x174 @0x24
0x0150…0188 at0025 = ╱4f╱O╱ // 0x175 @0x25
0x0150…0188 at0026 = ╱4d╱M╱ // 0x176 @0x26
0x0150…0188 at0027 = ╱41╱A╱ // 0x177 @0x27
0x0150…0188 at0028 = ╱4c╱L╱ // 0x178 @0x28
0x0150…0188 at0029 = ╱38╱8╱ // 0x179 @0x29
0x0150…0188 at002a = ╱30╱0╱ // 0x17a @0x2a
0x0150…0188 at002b = ╱20╱…╱ // 0x17b @0x2b
0x0150…0188 at002c = ╱76╱v╱ // 0x17c @0x2c
0x0150…0188 at002d = ╱65╱e╱ // 0x17d @0x2d
0x0150…0188 at002e = ╱72╱r╱ // 0x17e @0x2e
0x0150…0188 at002f = ╱73╱s╱ // 0x17f @0x2f
0x0150…0188 at0030 = ╱2e╱.╱ // 0x180 @0x30
0x0150…0188 at0031 = ╱20╱…╱ // 0x181 @0x31
0x0150…0188 at0032 = ╱31╱1╱ // 0x182 @0x32
0x0150…0188 at0033 = ╱2e╱.╱ // 0x183 @0x33
0x0150…0188 at0034 = ╱32╱2╱ // 0x184 @0x34
0x0150…0188 at0035 = ╱20╱…╱ // 0x185 @0x35
0x0150…0188 at0036 = ╱2a╱*╱ // 0x186 @0x36
0x0150…0188 at0037 = EOL // 0x187 @0x37
0x0150…0188 }
0x0188…01c0 97ae 00170 // *………………………………………………………………………………………………………………………………*
0x0188…01c0 LineComal80 {
0x0188…01c0 ptr = 0x97ae // 0x188 @0x0
0x0188…01c0 lno = 0x00aa // 0x18a @0x2
0x0188…01c0 at0004 = ╱89╱ // ╱ // 0x18c @0x4
0x0188…01c0 at0005 = ╱2a╱*╱ // 0x18d @0x5
0x0188…01c0 at0006 = ╱20╱…╱ // 0x18e @0x6
0x0188…01c0 at0007 = ╱20╱…╱ // 0x18f @0x7
0x0188…01c0 at0008 = ╱20╱…╱ // 0x190 @0x8
0x0188…01c0 at0009 = ╱20╱…╱ // 0x191 @0x9
0x0188…01c0 at000a = ╱20╱…╱ // 0x192 @0xa
0x0188…01c0 at000b = ╱20╱…╱ // 0x193 @0xb
0x0188…01c0 at000c = ╱20╱…╱ // 0x194 @0xc
0x0188…01c0 at000d = ╱20╱…╱ // 0x195 @0xd
0x0188…01c0 at000e = ╱20╱…╱ // 0x196 @0xe
0x0188…01c0 at000f = ╱20╱…╱ // 0x197 @0xf
0x0188…01c0 at0010 = ╱20╱…╱ // 0x198 @0x10
0x0188…01c0 at0011 = ╱20╱…╱ // 0x199 @0x11
0x0188…01c0 at0012 = ╱20╱…╱ // 0x19a @0x12
0x0188…01c0 at0013 = ╱20╱…╱ // 0x19b @0x13
0x0188…01c0 at0014 = ╱20╱…╱ // 0x19c @0x14
0x0188…01c0 at0015 = ╱20╱…╱ // 0x19d @0x15
0x0188…01c0 at0016 = ╱20╱…╱ // 0x19e @0x16
0x0188…01c0 at0017 = ╱20╱…╱ // 0x19f @0x17
0x0188…01c0 at0018 = ╱20╱…╱ // 0x1a0 @0x18
0x0188…01c0 at0019 = ╱20╱…╱ // 0x1a1 @0x19
0x0188…01c0 at001a = ╱20╱…╱ // 0x1a2 @0x1a
0x0188…01c0 at001b = ╱20╱…╱ // 0x1a3 @0x1b
0x0188…01c0 at001c = ╱20╱…╱ // 0x1a4 @0x1c
0x0188…01c0 at001d = ╱20╱…╱ // 0x1a5 @0x1d
0x0188…01c0 at001e = ╱20╱…╱ // 0x1a6 @0x1e
0x0188…01c0 at001f = ╱20╱…╱ // 0x1a7 @0x1f
0x0188…01c0 at0020 = ╱20╱…╱ // 0x1a8 @0x20
0x0188…01c0 at0021 = ╱20╱…╱ // 0x1a9 @0x21
0x0188…01c0 at0022 = ╱20╱…╱ // 0x1aa @0x22
0x0188…01c0 at0023 = ╱20╱…╱ // 0x1ab @0x23
0x0188…01c0 at0024 = ╱20╱…╱ // 0x1ac @0x24
0x0188…01c0 at0025 = ╱20╱…╱ // 0x1ad @0x25
0x0188…01c0 at0026 = ╱20╱…╱ // 0x1ae @0x26
0x0188…01c0 at0027 = ╱20╱…╱ // 0x1af @0x27
0x0188…01c0 at0028 = ╱20╱…╱ // 0x1b0 @0x28
0x0188…01c0 at0029 = ╱20╱…╱ // 0x1b1 @0x29
0x0188…01c0 at002a = ╱20╱…╱ // 0x1b2 @0x2a
0x0188…01c0 at002b = ╱20╱…╱ // 0x1b3 @0x2b
0x0188…01c0 at002c = ╱20╱…╱ // 0x1b4 @0x2c
0x0188…01c0 at002d = ╱20╱…╱ // 0x1b5 @0x2d
0x0188…01c0 at002e = ╱20╱…╱ // 0x1b6 @0x2e
0x0188…01c0 at002f = ╱20╱…╱ // 0x1b7 @0x2f
0x0188…01c0 at0030 = ╱20╱…╱ // 0x1b8 @0x30
0x0188…01c0 at0031 = ╱20╱…╱ // 0x1b9 @0x31
0x0188…01c0 at0032 = ╱20╱…╱ // 0x1ba @0x32
0x0188…01c0 at0033 = ╱20╱…╱ // 0x1bb @0x33
0x0188…01c0 at0034 = ╱20╱…╱ // 0x1bc @0x34
0x0188…01c0 at0035 = ╱20╱…╱ // 0x1bd @0x35
0x0188…01c0 at0036 = ╱2a╱*╱ // 0x1be @0x36
0x0188…01c0 at0037 = EOL // 0x1bf @0x37
0x0188…01c0 }
0x01c0…01f8 97e6 00180 // *…Udviklet…af…:…Peter…Kristensen……………………………………………*
0x01c0…01f8 LineComal80 {
0x01c0…01f8 ptr = 0x97e6 // 0x1c0 @0x0
0x01c0…01f8 lno = 0x00b4 // 0x1c2 @0x2
0x01c0…01f8 at0004 = ╱89╱ // ╱ // 0x1c4 @0x4
0x01c0…01f8 at0005 = ╱2a╱*╱ // 0x1c5 @0x5
0x01c0…01f8 at0006 = ╱20╱…╱ // 0x1c6 @0x6
0x01c0…01f8 at0007 = ╱55╱U╱ // 0x1c7 @0x7
0x01c0…01f8 at0008 = ╱64╱d╱ // 0x1c8 @0x8
0x01c0…01f8 at0009 = ╱76╱v╱ // 0x1c9 @0x9
0x01c0…01f8 at000a = ╱69╱i╱ // 0x1ca @0xa
0x01c0…01f8 at000b = ╱6b╱k╱ // 0x1cb @0xb
0x01c0…01f8 at000c = ╱6c╱l╱ // 0x1cc @0xc
0x01c0…01f8 at000d = ╱65╱e╱ // 0x1cd @0xd
0x01c0…01f8 at000e = ╱74╱t╱ // 0x1ce @0xe
0x01c0…01f8 at000f = ╱20╱…╱ // 0x1cf @0xf
0x01c0…01f8 at0010 = ╱61╱a╱ // 0x1d0 @0x10
0x01c0…01f8 at0011 = ╱66╱f╱ // 0x1d1 @0x11
0x01c0…01f8 at0012 = ╱20╱…╱ // 0x1d2 @0x12
0x01c0…01f8 at0013 = ╱3a╱:╱ // 0x1d3 @0x13
0x01c0…01f8 at0014 = ╱20╱…╱ // 0x1d4 @0x14
0x01c0…01f8 at0015 = ╱50╱P╱ // 0x1d5 @0x15
0x01c0…01f8 at0016 = ╱65╱e╱ // 0x1d6 @0x16
0x01c0…01f8 at0017 = ╱74╱t╱ // 0x1d7 @0x17
0x01c0…01f8 at0018 = ╱65╱e╱ // 0x1d8 @0x18
0x01c0…01f8 at0019 = ╱72╱r╱ // 0x1d9 @0x19
0x01c0…01f8 at001a = ╱20╱…╱ // 0x1da @0x1a
0x01c0…01f8 at001b = ╱4b╱K╱ // 0x1db @0x1b
0x01c0…01f8 at001c = ╱72╱r╱ // 0x1dc @0x1c
0x01c0…01f8 at001d = ╱69╱i╱ // 0x1dd @0x1d
0x01c0…01f8 at001e = ╱73╱s╱ // 0x1de @0x1e
0x01c0…01f8 at001f = ╱74╱t╱ // 0x1df @0x1f
0x01c0…01f8 at0020 = ╱65╱e╱ // 0x1e0 @0x20
0x01c0…01f8 at0021 = ╱6e╱n╱ // 0x1e1 @0x21
0x01c0…01f8 at0022 = ╱73╱s╱ // 0x1e2 @0x22
0x01c0…01f8 at0023 = ╱65╱e╱ // 0x1e3 @0x23
0x01c0…01f8 at0024 = ╱6e╱n╱ // 0x1e4 @0x24
0x01c0…01f8 at0025 = ╱20╱…╱ // 0x1e5 @0x25
0x01c0…01f8 at0026 = ╱20╱…╱ // 0x1e6 @0x26
0x01c0…01f8 at0027 = ╱20╱…╱ // 0x1e7 @0x27
0x01c0…01f8 at0028 = ╱20╱…╱ // 0x1e8 @0x28
0x01c0…01f8 at0029 = ╱20╱…╱ // 0x1e9 @0x29
0x01c0…01f8 at002a = ╱20╱…╱ // 0x1ea @0x2a
0x01c0…01f8 at002b = ╱20╱…╱ // 0x1eb @0x2b
0x01c0…01f8 at002c = ╱20╱…╱ // 0x1ec @0x2c
0x01c0…01f8 at002d = ╱20╱…╱ // 0x1ed @0x2d
0x01c0…01f8 at002e = ╱20╱…╱ // 0x1ee @0x2e
0x01c0…01f8 at002f = ╱20╱…╱ // 0x1ef @0x2f
0x01c0…01f8 at0030 = ╱20╱…╱ // 0x1f0 @0x30
0x01c0…01f8 at0031 = ╱20╱…╱ // 0x1f1 @0x31
0x01c0…01f8 at0032 = ╱20╱…╱ // 0x1f2 @0x32
0x01c0…01f8 at0033 = ╱20╱…╱ // 0x1f3 @0x33
0x01c0…01f8 at0034 = ╱20╱…╱ // 0x1f4 @0x34
0x01c0…01f8 at0035 = ╱20╱…╱ // 0x1f5 @0x35
0x01c0…01f8 at0036 = ╱2a╱*╱ // 0x1f6 @0x36
0x01c0…01f8 at0037 = EOL // 0x1f7 @0x37
0x01c0…01f8 }
0x01f8…0230 981e 00190 // *………………………………………Vestervang…6,…6920…Videb{k…………………*
0x01f8…0230 LineComal80 {
0x01f8…0230 ptr = 0x981e // 0x1f8 @0x0
0x01f8…0230 lno = 0x00be // 0x1fa @0x2
0x01f8…0230 at0004 = ╱89╱ // ╱ // 0x1fc @0x4
0x01f8…0230 at0005 = ╱2a╱*╱ // 0x1fd @0x5
0x01f8…0230 at0006 = ╱20╱…╱ // 0x1fe @0x6
0x01f8…0230 at0007 = ╱20╱…╱ // 0x1ff @0x7
0x01f8…0230 at0008 = ╱20╱…╱ // 0x200 @0x8
0x01f8…0230 at0009 = ╱20╱…╱ // 0x201 @0x9
0x01f8…0230 at000a = ╱20╱…╱ // 0x202 @0xa
0x01f8…0230 at000b = ╱20╱…╱ // 0x203 @0xb
0x01f8…0230 at000c = ╱20╱…╱ // 0x204 @0xc
0x01f8…0230 at000d = ╱20╱…╱ // 0x205 @0xd
0x01f8…0230 at000e = ╱20╱…╱ // 0x206 @0xe
0x01f8…0230 at000f = ╱20╱…╱ // 0x207 @0xf
0x01f8…0230 at0010 = ╱20╱…╱ // 0x208 @0x10
0x01f8…0230 at0011 = ╱20╱…╱ // 0x209 @0x11
0x01f8…0230 at0012 = ╱20╱…╱ // 0x20a @0x12
0x01f8…0230 at0013 = ╱20╱…╱ // 0x20b @0x13
0x01f8…0230 at0014 = ╱20╱…╱ // 0x20c @0x14
0x01f8…0230 at0015 = ╱56╱V╱ // 0x20d @0x15
0x01f8…0230 at0016 = ╱65╱e╱ // 0x20e @0x16
0x01f8…0230 at0017 = ╱73╱s╱ // 0x20f @0x17
0x01f8…0230 at0018 = ╱74╱t╱ // 0x210 @0x18
0x01f8…0230 at0019 = ╱65╱e╱ // 0x211 @0x19
0x01f8…0230 at001a = ╱72╱r╱ // 0x212 @0x1a
0x01f8…0230 at001b = ╱76╱v╱ // 0x213 @0x1b
0x01f8…0230 at001c = ╱61╱a╱ // 0x214 @0x1c
0x01f8…0230 at001d = ╱6e╱n╱ // 0x215 @0x1d
0x01f8…0230 at001e = ╱67╱g╱ // 0x216 @0x1e
0x01f8…0230 at001f = ╱20╱…╱ // 0x217 @0x1f
0x01f8…0230 at0020 = ╱36╱6╱ // 0x218 @0x20
0x01f8…0230 at0021 = ╱2c╱,╱ // 0x219 @0x21
0x01f8…0230 at0022 = ╱20╱…╱ // 0x21a @0x22
0x01f8…0230 at0023 = ╱36╱6╱ // 0x21b @0x23
0x01f8…0230 at0024 = ╱39╱9╱ // 0x21c @0x24
0x01f8…0230 at0025 = ╱32╱2╱ // 0x21d @0x25
0x01f8…0230 at0026 = ╱30╱0╱ // 0x21e @0x26
0x01f8…0230 at0027 = ╱20╱…╱ // 0x21f @0x27
0x01f8…0230 at0028 = ╱56╱V╱ // 0x220 @0x28
0x01f8…0230 at0029 = ╱69╱i╱ // 0x221 @0x29
0x01f8…0230 at002a = ╱64╱d╱ // 0x222 @0x2a
0x01f8…0230 at002b = ╱65╱e╱ // 0x223 @0x2b
0x01f8…0230 at002c = ╱62╱b╱ // 0x224 @0x2c
0x01f8…0230 at002d = ╱7b╱{╱ // 0x225 @0x2d
0x01f8…0230 at002e = ╱6b╱k╱ // 0x226 @0x2e
0x01f8…0230 at002f = ╱20╱…╱ // 0x227 @0x2f
0x01f8…0230 at0030 = ╱20╱…╱ // 0x228 @0x30
0x01f8…0230 at0031 = ╱20╱…╱ // 0x229 @0x31
0x01f8…0230 at0032 = ╱20╱…╱ // 0x22a @0x32
0x01f8…0230 at0033 = ╱20╱…╱ // 0x22b @0x33
0x01f8…0230 at0034 = ╱20╱…╱ // 0x22c @0x34
0x01f8…0230 at0035 = ╱20╱…╱ // 0x22d @0x35
0x01f8…0230 at0036 = ╱2a╱*╱ // 0x22e @0x36
0x01f8…0230 at0037 = EOL // 0x22f @0x37
0x01f8…0230 }
0x0230…0268 9856 00200 // *………………………………………………………………………………………………………………………………*
0x0230…0268 LineComal80 {
0x0230…0268 ptr = 0x9856 // 0x230 @0x0
0x0230…0268 lno = 0x00c8 // 0x232 @0x2
0x0230…0268 at0004 = ╱89╱ // ╱ // 0x234 @0x4
0x0230…0268 at0005 = ╱2a╱*╱ // 0x235 @0x5
0x0230…0268 at0006 = ╱20╱…╱ // 0x236 @0x6
0x0230…0268 at0007 = ╱20╱…╱ // 0x237 @0x7
0x0230…0268 at0008 = ╱20╱…╱ // 0x238 @0x8
0x0230…0268 at0009 = ╱20╱…╱ // 0x239 @0x9
0x0230…0268 at000a = ╱20╱…╱ // 0x23a @0xa
0x0230…0268 at000b = ╱20╱…╱ // 0x23b @0xb
0x0230…0268 at000c = ╱20╱…╱ // 0x23c @0xc
0x0230…0268 at000d = ╱20╱…╱ // 0x23d @0xd
0x0230…0268 at000e = ╱20╱…╱ // 0x23e @0xe
0x0230…0268 at000f = ╱20╱…╱ // 0x23f @0xf
0x0230…0268 at0010 = ╱20╱…╱ // 0x240 @0x10
0x0230…0268 at0011 = ╱20╱…╱ // 0x241 @0x11
0x0230…0268 at0012 = ╱20╱…╱ // 0x242 @0x12
0x0230…0268 at0013 = ╱20╱…╱ // 0x243 @0x13
0x0230…0268 at0014 = ╱20╱…╱ // 0x244 @0x14
0x0230…0268 at0015 = ╱20╱…╱ // 0x245 @0x15
0x0230…0268 at0016 = ╱20╱…╱ // 0x246 @0x16
0x0230…0268 at0017 = ╱20╱…╱ // 0x247 @0x17
0x0230…0268 at0018 = ╱20╱…╱ // 0x248 @0x18
0x0230…0268 at0019 = ╱20╱…╱ // 0x249 @0x19
0x0230…0268 at001a = ╱20╱…╱ // 0x24a @0x1a
0x0230…0268 at001b = ╱20╱…╱ // 0x24b @0x1b
0x0230…0268 at001c = ╱20╱…╱ // 0x24c @0x1c
0x0230…0268 at001d = ╱20╱…╱ // 0x24d @0x1d
0x0230…0268 at001e = ╱20╱…╱ // 0x24e @0x1e
0x0230…0268 at001f = ╱20╱…╱ // 0x24f @0x1f
0x0230…0268 at0020 = ╱20╱…╱ // 0x250 @0x20
0x0230…0268 at0021 = ╱20╱…╱ // 0x251 @0x21
0x0230…0268 at0022 = ╱20╱…╱ // 0x252 @0x22
0x0230…0268 at0023 = ╱20╱…╱ // 0x253 @0x23
0x0230…0268 at0024 = ╱20╱…╱ // 0x254 @0x24
0x0230…0268 at0025 = ╱20╱…╱ // 0x255 @0x25
0x0230…0268 at0026 = ╱20╱…╱ // 0x256 @0x26
0x0230…0268 at0027 = ╱20╱…╱ // 0x257 @0x27
0x0230…0268 at0028 = ╱20╱…╱ // 0x258 @0x28
0x0230…0268 at0029 = ╱20╱…╱ // 0x259 @0x29
0x0230…0268 at002a = ╱20╱…╱ // 0x25a @0x2a
0x0230…0268 at002b = ╱20╱…╱ // 0x25b @0x2b
0x0230…0268 at002c = ╱20╱…╱ // 0x25c @0x2c
0x0230…0268 at002d = ╱20╱…╱ // 0x25d @0x2d
0x0230…0268 at002e = ╱20╱…╱ // 0x25e @0x2e
0x0230…0268 at002f = ╱20╱…╱ // 0x25f @0x2f
0x0230…0268 at0030 = ╱20╱…╱ // 0x260 @0x30
0x0230…0268 at0031 = ╱20╱…╱ // 0x261 @0x31
0x0230…0268 at0032 = ╱20╱…╱ // 0x262 @0x32
0x0230…0268 at0033 = ╱20╱…╱ // 0x263 @0x33
0x0230…0268 at0034 = ╱20╱…╱ // 0x264 @0x34
0x0230…0268 at0035 = ╱20╱…╱ // 0x265 @0x35
0x0230…0268 at0036 = ╱2a╱*╱ // 0x266 @0x36
0x0230…0268 at0037 = EOL // 0x267 @0x37
0x0230…0268 }
0x0268…02a0 (8,) 988e 00210 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
0x0268…02a0 LineComal80 {
0x0268…02a0 ptr = 0x988e // 0x268 @0x0
0x0268…02a0 lno = 0x00d2 // 0x26a @0x2
0x0268…02a0 at0004 = ╱89╱ // ╱ // 0x26c @0x4
0x0268…02a0 at0005 = ╱2a╱*╱ // 0x26d @0x5
0x0268…02a0 at0006 = ╱20╱…╱ // 0x26e @0x6
0x0268…02a0 at0007 = ╱20╱…╱ // 0x26f @0x7
0x0268…02a0 at0008 = ╱20╱…╱ // 0x270 @0x8
0x0268…02a0 at0009 = ╱28╱(╱ // 0x271 @0x9
0x0268…02a0 at000a = ╱43╱C╱ // 0x272 @0xa
0x0268…02a0 at000b = ╱29╱)╱ // 0x273 @0xb
0x0268…02a0 at000c = ╱20╱…╱ // 0x274 @0xc
0x0268…02a0 at000d = ╱20╱…╱ // 0x275 @0xd
0x0268…02a0 at000e = ╱20╱…╱ // 0x276 @0xe
0x0268…02a0 at000f = ╱20╱…╱ // 0x277 @0xf
0x0268…02a0 at0010 = ╱20╱…╱ // 0x278 @0x10
0x0268…02a0 at0011 = ╱20╱…╱ // 0x279 @0x11
0x0268…02a0 at0012 = ╱20╱…╱ // 0x27a @0x12
0x0268…02a0 at0013 = ╱3a╱:╱ // 0x27b @0x13
0x0268…02a0 at0014 = ╱20╱…╱ // 0x27c @0x14
0x0268…02a0 at0015 = ╱66╱f╱ // 0x27d @0x15
0x0268…02a0 at0016 = ╱6f╱o╱ // 0x27e @0x16
0x0268…02a0 at0017 = ╱72╱r╱ // 0x27f @0x17
0x0268…02a0 at0018 = ╱6c╱l╱ // 0x280 @0x18
0x0268…02a0 at0019 = ╱61╱a╱ // 0x281 @0x19
0x0268…02a0 at001a = ╱67╱g╱ // 0x282 @0x1a
0x0268…02a0 at001b = ╱65╱e╱ // 0x283 @0x1b
0x0268…02a0 at001c = ╱74╱t╱ // 0x284 @0x1c
0x0268…02a0 at001d = ╱20╱…╱ // 0x285 @0x1d
0x0268…02a0 at001e = ╱73╱s╱ // 0x286 @0x1e
0x0268…02a0 at001f = ╱79╱y╱ // 0x287 @0x1f
0x0268…02a0 at0020 = ╱73╱s╱ // 0x288 @0x20
0x0268…02a0 at0021 = ╱74╱t╱ // 0x289 @0x21
0x0268…02a0 at0022 = ╱69╱i╱ // 0x28a @0x22
0x0268…02a0 at0023 = ╱6d╱m╱ // 0x28b @0x23
0x0268…02a0 at0024 = ╱65╱e╱ // 0x28c @0x24
0x0268…02a0 at0025 = ╱20╱…╱ // 0x28d @0x25
0x0268…02a0 at0026 = ╱61╱a╱ // 0x28e @0x26
0x0268…02a0 at0027 = ╱2f╱/╱ // 0x28f @0x27
0x0268…02a0 at0028 = ╱73╱s╱ // 0x290 @0x28
0x0268…02a0 at0029 = ╱20╱…╱ // 0x291 @0x29
0x0268…02a0 at002a = ╱20╱…╱ // 0x292 @0x2a
0x0268…02a0 at002b = ╱20╱…╱ // 0x293 @0x2b
0x0268…02a0 at002c = ╱20╱…╱ // 0x294 @0x2c
0x0268…02a0 at002d = ╱20╱…╱ // 0x295 @0x2d
0x0268…02a0 at002e = ╱20╱…╱ // 0x296 @0x2e
0x0268…02a0 at002f = ╱20╱…╱ // 0x297 @0x2f
0x0268…02a0 at0030 = ╱20╱…╱ // 0x298 @0x30
0x0268…02a0 at0031 = ╱20╱…╱ // 0x299 @0x31
0x0268…02a0 at0032 = ╱20╱…╱ // 0x29a @0x32
0x0268…02a0 at0033 = ╱20╱…╱ // 0x29b @0x33
0x0268…02a0 at0034 = ╱20╱…╱ // 0x29c @0x34
0x0268…02a0 at0035 = ╱20╱…╱ // 0x29d @0x35
0x0268…02a0 at0036 = ╱2a╱*╱ // 0x29e @0x36
0x0268…02a0 at0037 = EOL // 0x29f @0x37
0x0268…02a0 }
0x02a0…02d8 98c6 00220 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
0x02a0…02d8 LineComal80 {
0x02a0…02d8 ptr = 0x98c6 // 0x2a0 @0x0
0x02a0…02d8 lno = 0x00dc // 0x2a2 @0x2
0x02a0…02d8 at0004 = ╱89╱ // ╱ // 0x2a4 @0x4
0x02a0…02d8 at0005 = ╱2a╱*╱ // 0x2a5 @0x5
0x02a0…02d8 at0006 = ╱20╱…╱ // 0x2a6 @0x6
0x02a0…02d8 at0007 = ╱20╱…╱ // 0x2a7 @0x7
0x02a0…02d8 at0008 = ╱20╱…╱ // 0x2a8 @0x8
0x02a0…02d8 at0009 = ╱20╱…╱ // 0x2a9 @0x9
0x02a0…02d8 at000a = ╱20╱…╱ // 0x2aa @0xa
0x02a0…02d8 at000b = ╱20╱…╱ // 0x2ab @0xb
0x02a0…02d8 at000c = ╱20╱…╱ // 0x2ac @0xc
0x02a0…02d8 at000d = ╱20╱…╱ // 0x2ad @0xd
0x02a0…02d8 at000e = ╱20╱…╱ // 0x2ae @0xe
0x02a0…02d8 at000f = ╱20╱…╱ // 0x2af @0xf
0x02a0…02d8 at0010 = ╱20╱…╱ // 0x2b0 @0x10
0x02a0…02d8 at0011 = ╱20╱…╱ // 0x2b1 @0x11
0x02a0…02d8 at0012 = ╱20╱…╱ // 0x2b2 @0x12
0x02a0…02d8 at0013 = ╱20╱…╱ // 0x2b3 @0x13
0x02a0…02d8 at0014 = ╱20╱…╱ // 0x2b4 @0x14
0x02a0…02d8 at0015 = ╱4b╱K╱ // 0x2b5 @0x15
0x02a0…02d8 at0016 = ╱6c╱l╱ // 0x2b6 @0x16
0x02a0…02d8 at0017 = ╱6f╱o╱ // 0x2b7 @0x17
0x02a0…02d8 at0018 = ╱6b╱k╱ // 0x2b8 @0x18
0x02a0…02d8 at0019 = ╱6b╱k╱ // 0x2b9 @0x19
0x02a0…02d8 at001a = ╱65╱e╱ // 0x2ba @0x1a
0x02a0…02d8 at001b = ╱62╱b╱ // 0x2bb @0x1b
0x02a0…02d8 at001c = ╱61╱a╱ // 0x2bc @0x1c
0x02a0…02d8 at001d = ╱6b╱k╱ // 0x2bd @0x1d
0x02a0…02d8 at001e = ╱6b╱k╱ // 0x2be @0x1e
0x02a0…02d8 at001f = ╱65╱e╱ // 0x2bf @0x1f
0x02a0…02d8 at0020 = ╱6e╱n╱ // 0x2c0 @0x20
0x02a0…02d8 at0021 = ╱20╱…╱ // 0x2c1 @0x21
0x02a0…02d8 at0022 = ╱32╱2╱ // 0x2c2 @0x22
0x02a0…02d8 at0023 = ╱30╱0╱ // 0x2c3 @0x23
0x02a0…02d8 at0024 = ╱2c╱,╱ // 0x2c4 @0x24
0x02a0…02d8 at0025 = ╱20╱…╱ // 0x2c5 @0x25
0x02a0…02d8 at0026 = ╱47╱G╱ // 0x2c6 @0x26
0x02a0…02d8 at0027 = ╱6a╱j╱ // 0x2c7 @0x27
0x02a0…02d8 at0028 = ╱65╱e╱ // 0x2c8 @0x28
0x02a0…02d8 at0029 = ╱6c╱l╱ // 0x2c9 @0x29
0x02a0…02d8 at002a = ╱6c╱l╱ // 0x2ca @0x2a
0x02a0…02d8 at002b = ╱65╱e╱ // 0x2cb @0x2b
0x02a0…02d8 at002c = ╱72╱r╱ // 0x2cc @0x2c
0x02a0…02d8 at002d = ╱75╱u╱ // 0x2cd @0x2d
0x02a0…02d8 at002e = ╱70╱p╱ // 0x2ce @0x2e
0x02a0…02d8 at002f = ╱20╱…╱ // 0x2cf @0x2f
0x02a0…02d8 at0030 = ╱20╱…╱ // 0x2d0 @0x30
0x02a0…02d8 at0031 = ╱20╱…╱ // 0x2d1 @0x31
0x02a0…02d8 at0032 = ╱20╱…╱ // 0x2d2 @0x32
0x02a0…02d8 at0033 = ╱20╱…╱ // 0x2d3 @0x33
0x02a0…02d8 at0034 = ╱20╱…╱ // 0x2d4 @0x34
0x02a0…02d8 at0035 = ╱20╱…╱ // 0x2d5 @0x35
0x02a0…02d8 at0036 = ╱2a╱*╱ // 0x2d6 @0x36
0x02a0…02d8 at0037 = EOL // 0x2d7 @0x37
0x02a0…02d8 }
0x02d8…0310 98fe 00230 // *………………………………………7400……Herning……………………………………………………*
0x02d8…0310 LineComal80 {
0x02d8…0310 ptr = 0x98fe // 0x2d8 @0x0
0x02d8…0310 lno = 0x00e6 // 0x2da @0x2
0x02d8…0310 at0004 = ╱89╱ // ╱ // 0x2dc @0x4
0x02d8…0310 at0005 = ╱2a╱*╱ // 0x2dd @0x5
0x02d8…0310 at0006 = ╱20╱…╱ // 0x2de @0x6
0x02d8…0310 at0007 = ╱20╱…╱ // 0x2df @0x7
0x02d8…0310 at0008 = ╱20╱…╱ // 0x2e0 @0x8
0x02d8…0310 at0009 = ╱20╱…╱ // 0x2e1 @0x9
0x02d8…0310 at000a = ╱20╱…╱ // 0x2e2 @0xa
0x02d8…0310 at000b = ╱20╱…╱ // 0x2e3 @0xb
0x02d8…0310 at000c = ╱20╱…╱ // 0x2e4 @0xc
0x02d8…0310 at000d = ╱20╱…╱ // 0x2e5 @0xd
0x02d8…0310 at000e = ╱20╱…╱ // 0x2e6 @0xe
0x02d8…0310 at000f = ╱20╱…╱ // 0x2e7 @0xf
0x02d8…0310 at0010 = ╱20╱…╱ // 0x2e8 @0x10
0x02d8…0310 at0011 = ╱20╱…╱ // 0x2e9 @0x11
0x02d8…0310 at0012 = ╱20╱…╱ // 0x2ea @0x12
0x02d8…0310 at0013 = ╱20╱…╱ // 0x2eb @0x13
0x02d8…0310 at0014 = ╱20╱…╱ // 0x2ec @0x14
0x02d8…0310 at0015 = ╱37╱7╱ // 0x2ed @0x15
0x02d8…0310 at0016 = ╱34╱4╱ // 0x2ee @0x16
0x02d8…0310 at0017 = ╱30╱0╱ // 0x2ef @0x17
0x02d8…0310 at0018 = ╱30╱0╱ // 0x2f0 @0x18
0x02d8…0310 at0019 = ╱20╱…╱ // 0x2f1 @0x19
0x02d8…0310 at001a = ╱20╱…╱ // 0x2f2 @0x1a
0x02d8…0310 at001b = ╱48╱H╱ // 0x2f3 @0x1b
0x02d8…0310 at001c = ╱65╱e╱ // 0x2f4 @0x1c
0x02d8…0310 at001d = ╱72╱r╱ // 0x2f5 @0x1d
0x02d8…0310 at001e = ╱6e╱n╱ // 0x2f6 @0x1e
0x02d8…0310 at001f = ╱69╱i╱ // 0x2f7 @0x1f
0x02d8…0310 at0020 = ╱6e╱n╱ // 0x2f8 @0x20
0x02d8…0310 at0021 = ╱67╱g╱ // 0x2f9 @0x21
0x02d8…0310 at0022 = ╱20╱…╱ // 0x2fa @0x22
0x02d8…0310 at0023 = ╱20╱…╱ // 0x2fb @0x23
0x02d8…0310 at0024 = ╱20╱…╱ // 0x2fc @0x24
0x02d8…0310 at0025 = ╱20╱…╱ // 0x2fd @0x25
0x02d8…0310 at0026 = ╱20╱…╱ // 0x2fe @0x26
0x02d8…0310 at0027 = ╱20╱…╱ // 0x2ff @0x27
0x02d8…0310 at0028 = ╱20╱…╱ // 0x300 @0x28
0x02d8…0310 at0029 = ╱20╱…╱ // 0x301 @0x29
0x02d8…0310 at002a = ╱20╱…╱ // 0x302 @0x2a
0x02d8…0310 at002b = ╱20╱…╱ // 0x303 @0x2b
0x02d8…0310 at002c = ╱20╱…╱ // 0x304 @0x2c
0x02d8…0310 at002d = ╱20╱…╱ // 0x305 @0x2d
0x02d8…0310 at002e = ╱20╱…╱ // 0x306 @0x2e
0x02d8…0310 at002f = ╱20╱…╱ // 0x307 @0x2f
0x02d8…0310 at0030 = ╱20╱…╱ // 0x308 @0x30
0x02d8…0310 at0031 = ╱20╱…╱ // 0x309 @0x31
0x02d8…0310 at0032 = ╱20╱…╱ // 0x30a @0x32
0x02d8…0310 at0033 = ╱20╱…╱ // 0x30b @0x33
0x02d8…0310 at0034 = ╱20╱…╱ // 0x30c @0x34
0x02d8…0310 at0035 = ╱20╱…╱ // 0x30d @0x35
0x02d8…0310 at0036 = ╱2a╱*╱ // 0x30e @0x36
0x02d8…0310 at0037 = EOL // 0x30f @0x37
0x02d8…0310 }
0x0310…0348 9936 00240 // **************************************************
0x0310…0348 LineComal80 {
0x0310…0348 ptr = 0x9936 // 0x310 @0x0
0x0310…0348 lno = 0x00f0 // 0x312 @0x2
0x0310…0348 at0004 = ╱89╱ // ╱ // 0x314 @0x4
0x0310…0348 at0005 = ╱2a╱*╱ // 0x315 @0x5
0x0310…0348 at0006 = ╱2a╱*╱ // 0x316 @0x6
0x0310…0348 at0007 = ╱2a╱*╱ // 0x317 @0x7
0x0310…0348 at0008 = ╱2a╱*╱ // 0x318 @0x8
0x0310…0348 at0009 = ╱2a╱*╱ // 0x319 @0x9
0x0310…0348 at000a = ╱2a╱*╱ // 0x31a @0xa
0x0310…0348 at000b = ╱2a╱*╱ // 0x31b @0xb
0x0310…0348 at000c = ╱2a╱*╱ // 0x31c @0xc
0x0310…0348 at000d = ╱2a╱*╱ // 0x31d @0xd
0x0310…0348 at000e = ╱2a╱*╱ // 0x31e @0xe
0x0310…0348 at000f = ╱2a╱*╱ // 0x31f @0xf
0x0310…0348 at0010 = ╱2a╱*╱ // 0x320 @0x10
0x0310…0348 at0011 = ╱2a╱*╱ // 0x321 @0x11
0x0310…0348 at0012 = ╱2a╱*╱ // 0x322 @0x12
0x0310…0348 at0013 = ╱2a╱*╱ // 0x323 @0x13
0x0310…0348 at0014 = ╱2a╱*╱ // 0x324 @0x14
0x0310…0348 at0015 = ╱2a╱*╱ // 0x325 @0x15
0x0310…0348 at0016 = ╱2a╱*╱ // 0x326 @0x16
0x0310…0348 at0017 = ╱2a╱*╱ // 0x327 @0x17
0x0310…0348 at0018 = ╱2a╱*╱ // 0x328 @0x18
0x0310…0348 at0019 = ╱2a╱*╱ // 0x329 @0x19
0x0310…0348 at001a = ╱2a╱*╱ // 0x32a @0x1a
0x0310…0348 at001b = ╱2a╱*╱ // 0x32b @0x1b
0x0310…0348 at001c = ╱2a╱*╱ // 0x32c @0x1c
0x0310…0348 at001d = ╱2a╱*╱ // 0x32d @0x1d
0x0310…0348 at001e = ╱2a╱*╱ // 0x32e @0x1e
0x0310…0348 at001f = ╱2a╱*╱ // 0x32f @0x1f
0x0310…0348 at0020 = ╱2a╱*╱ // 0x330 @0x20
0x0310…0348 at0021 = ╱2a╱*╱ // 0x331 @0x21
0x0310…0348 at0022 = ╱2a╱*╱ // 0x332 @0x22
0x0310…0348 at0023 = ╱2a╱*╱ // 0x333 @0x23
0x0310…0348 at0024 = ╱2a╱*╱ // 0x334 @0x24
0x0310…0348 at0025 = ╱2a╱*╱ // 0x335 @0x25
0x0310…0348 at0026 = ╱2a╱*╱ // 0x336 @0x26
0x0310…0348 at0027 = ╱2a╱*╱ // 0x337 @0x27
0x0310…0348 at0028 = ╱2a╱*╱ // 0x338 @0x28
0x0310…0348 at0029 = ╱2a╱*╱ // 0x339 @0x29
0x0310…0348 at002a = ╱2a╱*╱ // 0x33a @0x2a
0x0310…0348 at002b = ╱2a╱*╱ // 0x33b @0x2b
0x0310…0348 at002c = ╱2a╱*╱ // 0x33c @0x2c
0x0310…0348 at002d = ╱2a╱*╱ // 0x33d @0x2d
0x0310…0348 at002e = ╱2a╱*╱ // 0x33e @0x2e
0x0310…0348 at002f = ╱2a╱*╱ // 0x33f @0x2f
0x0310…0348 at0030 = ╱2a╱*╱ // 0x340 @0x30
0x0310…0348 at0031 = ╱2a╱*╱ // 0x341 @0x31
0x0310…0348 at0032 = ╱2a╱*╱ // 0x342 @0x32
0x0310…0348 at0033 = ╱2a╱*╱ // 0x343 @0x33
0x0310…0348 at0034 = ╱2a╱*╱ // 0x344 @0x34
0x0310…0348 at0035 = ╱2a╱*╱ // 0x345 @0x35
0x0310…0348 at0036 = ╱2a╱*╱ // 0x346 @0x36
0x0310…0348 at0037 = EOL // 0x347 @0x37
0x0310…0348 }
0x0348…0359 9947 00250 EXEC DIMENSIONER
0x0348…0359 LineComal80 {
0x0348…0359 ptr = 0x9947 // 0x348 @0x0
0x0348…0359 lno = 0x00fa // 0x34a @0x2
0x0348…0359 at0004 = ╱9d╱ EXEC ╱ // 0x34c @0x4
0x0348…0359 at0005 = ╱44╱D╱ // 0x34d @0x5
0x0348…0359 at0006 = ╱49╱I╱ // 0x34e @0x6
0x0348…0359 at0007 = ╱4d╱M╱ // 0x34f @0x7
0x0348…0359 at0008 = ╱45╱E╱ // 0x350 @0x8
0x0348…0359 at0009 = ╱4e╱N╱ // 0x351 @0x9
0x0348…0359 at000a = ╱53╱S╱ // 0x352 @0xa
0x0348…0359 at000b = ╱49╱I╱ // 0x353 @0xb
0x0348…0359 at000c = ╱4f╱O╱ // 0x354 @0xc
0x0348…0359 at000d = ╱4e╱N╱ // 0x355 @0xd
0x0348…0359 at000e = ╱45╱E╱ // 0x356 @0xe
0x0348…0359 at000f = ╱52╱R╱ // 0x357 @0xf
0x0348…0359 at0010 = EOL // 0x358 @0x10
0x0348…0359 }
0x0359…0366 9954 00260 EXEC INITIER
0x0359…0366 LineComal80 {
0x0359…0366 ptr = 0x9954 // 0x359 @0x0
0x0359…0366 lno = 0x0104 // 0x35b @0x2
0x0359…0366 at0004 = ╱9d╱ EXEC ╱ // 0x35d @0x4
0x0359…0366 at0005 = ╱49╱I╱ // 0x35e @0x5
0x0359…0366 at0006 = ╱4e╱N╱ // 0x35f @0x6
0x0359…0366 at0007 = ╱49╱I╱ // 0x360 @0x7
0x0359…0366 at0008 = ╱54╱T╱ // 0x361 @0x8
0x0359…0366 at0009 = ╱49╱I╱ // 0x362 @0x9
0x0359…0366 at000a = ╱45╱E╱ // 0x363 @0xa
0x0359…0366 at000b = ╱52╱R╱ // 0x364 @0xb
0x0359…0366 at000c = EOL // 0x365 @0xc
0x0359…0366 }
0x0366…0379 9967 00270 EXEC FUNKTIONSMENU
0x0366…0379 LineComal80 {
0x0366…0379 ptr = 0x9967 // 0x366 @0x0
0x0366…0379 lno = 0x010e // 0x368 @0x2
0x0366…0379 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0379 at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…0379 at0006 = ╱55╱U╱ // 0x36c @0x6
0x0366…0379 at0007 = ╱4e╱N╱ // 0x36d @0x7
0x0366…0379 at0008 = ╱4b╱K╱ // 0x36e @0x8
0x0366…0379 at0009 = ╱54╱T╱ // 0x36f @0x9
0x0366…0379 at000a = ╱49╱I╱ // 0x370 @0xa
0x0366…0379 at000b = ╱4f╱O╱ // 0x371 @0xb
0x0366…0379 at000c = ╱4e╱N╱ // 0x372 @0xc
0x0366…0379 at000d = ╱53╱S╱ // 0x373 @0xd
0x0366…0379 at000e = ╱4d╱M╱ // 0x374 @0xe
0x0366…0379 at000f = ╱45╱E╱ // 0x375 @0xf
0x0366…0379 at0010 = ╱4e╱N╱ // 0x376 @0x10
0x0366…0379 at0011 = ╱55╱U╱ // 0x377 @0x11
0x0366…0379 at0012 = EOL // 0x378 @0x12
0x0366…0379 }
0x0379…0387 9975 00280 CHAIN PROGRAM $
0x0379…0387 LineComal80 {
0x0379…0387 ptr = 0x9975 // 0x379 @0x0
0x0379…0387 lno = 0x0118 // 0x37b @0x2
0x0379…0387 at0004 = ╱ac╱ CHAIN ╱ // 0x37d @0x4
0x0379…0387 at0005 = ╱50╱P╱ // 0x37e @0x5
0x0379…0387 at0006 = ╱52╱R╱ // 0x37f @0x6
0x0379…0387 at0007 = ╱4f╱O╱ // 0x380 @0x7
0x0379…0387 at0008 = ╱47╱G╱ // 0x381 @0x8
0x0379…0387 at0009 = ╱52╱R╱ // 0x382 @0x9
0x0379…0387 at000a = ╱41╱A╱ // 0x383 @0xa
0x0379…0387 at000b = ╱4d╱M╱ // 0x384 @0xb
0x0379…0387 at000c = ╱ef╱ $ ╱ // 0x385 @0xc
0x0379…0387 at000d = EOL // 0x386 @0xd
0x0379…0387 }
0x0387…03bb 99a9 00290 // =============…procedurer…starter…=============
0x0387…03bb LineComal80 {
0x0387…03bb ptr = 0x99a9 // 0x387 @0x0
0x0387…03bb lno = 0x0122 // 0x389 @0x2
0x0387…03bb at0004 = ╱89╱ // ╱ // 0x38b @0x4
0x0387…03bb at0005 = ╱3d╱=╱ // 0x38c @0x5
0x0387…03bb at0006 = ╱3d╱=╱ // 0x38d @0x6
0x0387…03bb at0007 = ╱3d╱=╱ // 0x38e @0x7
0x0387…03bb at0008 = ╱3d╱=╱ // 0x38f @0x8
0x0387…03bb at0009 = ╱3d╱=╱ // 0x390 @0x9
0x0387…03bb at000a = ╱3d╱=╱ // 0x391 @0xa
0x0387…03bb at000b = ╱3d╱=╱ // 0x392 @0xb
0x0387…03bb at000c = ╱3d╱=╱ // 0x393 @0xc
0x0387…03bb at000d = ╱3d╱=╱ // 0x394 @0xd
0x0387…03bb at000e = ╱3d╱=╱ // 0x395 @0xe
0x0387…03bb at000f = ╱3d╱=╱ // 0x396 @0xf
0x0387…03bb at0010 = ╱3d╱=╱ // 0x397 @0x10
0x0387…03bb at0011 = ╱3d╱=╱ // 0x398 @0x11
0x0387…03bb at0012 = ╱20╱…╱ // 0x399 @0x12
0x0387…03bb at0013 = ╱70╱p╱ // 0x39a @0x13
0x0387…03bb at0014 = ╱72╱r╱ // 0x39b @0x14
0x0387…03bb at0015 = ╱6f╱o╱ // 0x39c @0x15
0x0387…03bb at0016 = ╱63╱c╱ // 0x39d @0x16
0x0387…03bb at0017 = ╱65╱e╱ // 0x39e @0x17
0x0387…03bb at0018 = ╱64╱d╱ // 0x39f @0x18
0x0387…03bb at0019 = ╱75╱u╱ // 0x3a0 @0x19
0x0387…03bb at001a = ╱72╱r╱ // 0x3a1 @0x1a
0x0387…03bb at001b = ╱65╱e╱ // 0x3a2 @0x1b
0x0387…03bb at001c = ╱72╱r╱ // 0x3a3 @0x1c
0x0387…03bb at001d = ╱20╱…╱ // 0x3a4 @0x1d
0x0387…03bb at001e = ╱73╱s╱ // 0x3a5 @0x1e
0x0387…03bb at001f = ╱74╱t╱ // 0x3a6 @0x1f
0x0387…03bb at0020 = ╱61╱a╱ // 0x3a7 @0x20
0x0387…03bb at0021 = ╱72╱r╱ // 0x3a8 @0x21
0x0387…03bb at0022 = ╱74╱t╱ // 0x3a9 @0x22
0x0387…03bb at0023 = ╱65╱e╱ // 0x3aa @0x23
0x0387…03bb at0024 = ╱72╱r╱ // 0x3ab @0x24
0x0387…03bb at0025 = ╱20╱…╱ // 0x3ac @0x25
0x0387…03bb at0026 = ╱3d╱=╱ // 0x3ad @0x26
0x0387…03bb at0027 = ╱3d╱=╱ // 0x3ae @0x27
0x0387…03bb at0028 = ╱3d╱=╱ // 0x3af @0x28
0x0387…03bb at0029 = ╱3d╱=╱ // 0x3b0 @0x29
0x0387…03bb at002a = ╱3d╱=╱ // 0x3b1 @0x2a
0x0387…03bb at002b = ╱3d╱=╱ // 0x3b2 @0x2b
0x0387…03bb at002c = ╱3d╱=╱ // 0x3b3 @0x2c
0x0387…03bb at002d = ╱3d╱=╱ // 0x3b4 @0x2d
0x0387…03bb at002e = ╱3d╱=╱ // 0x3b5 @0x2e
0x0387…03bb at002f = ╱3d╱=╱ // 0x3b6 @0x2f
0x0387…03bb at0030 = ╱3d╱=╱ // 0x3b7 @0x30
0x0387…03bb at0031 = ╱3d╱=╱ // 0x3b8 @0x31
0x0387…03bb at0032 = ╱3d╱=╱ // 0x3b9 @0x32
0x0387…03bb at0033 = EOL // 0x3ba @0x33
0x0387…03bb }
0x03bb…03cd 99bb 00300 PROC DIMENSIONER
0x03bb…03cd LineComal80 {
0x03bb…03cd ptr = 0x99bb // 0x3bb @0x0
0x03bb…03cd lno = 0x012c // 0x3bd @0x2
0x03bb…03cd at0004 = ╱9e00╱ PROC ╱ // 0x3bf @0x4
0x03bb…03cd at0006 = ╱44╱D╱ // 0x3c1 @0x6
0x03bb…03cd at0007 = ╱49╱I╱ // 0x3c2 @0x7
0x03bb…03cd at0008 = ╱4d╱M╱ // 0x3c3 @0x8
0x03bb…03cd at0009 = ╱45╱E╱ // 0x3c4 @0x9
0x03bb…03cd at000a = ╱4e╱N╱ // 0x3c5 @0xa
0x03bb…03cd at000b = ╱53╱S╱ // 0x3c6 @0xb
0x03bb…03cd at000c = ╱49╱I╱ // 0x3c7 @0xc
0x03bb…03cd at000d = ╱4f╱O╱ // 0x3c8 @0xd
0x03bb…03cd at000e = ╱4e╱N╱ // 0x3c9 @0xe
0x03bb…03cd at000f = ╱45╱E╱ // 0x3ca @0xf
0x03bb…03cd at0010 = ╱52╱R╱ // 0x3cb @0x10
0x03bb…03cd at0011 = EOL // 0x3cc @0x11
0x03bb…03cd }
0x03cd…03e4 99d2 00310 // Standard…variable
0x03cd…03e4 LineComal80 {
0x03cd…03e4 ptr = 0x99d2 // 0x3cd @0x0
0x03cd…03e4 lno = 0x0136 // 0x3cf @0x2
0x03cd…03e4 at0004 = ╱89╱ // ╱ // 0x3d1 @0x4
0x03cd…03e4 at0005 = ╱53╱S╱ // 0x3d2 @0x5
0x03cd…03e4 at0006 = ╱74╱t╱ // 0x3d3 @0x6
0x03cd…03e4 at0007 = ╱61╱a╱ // 0x3d4 @0x7
0x03cd…03e4 at0008 = ╱6e╱n╱ // 0x3d5 @0x8
0x03cd…03e4 at0009 = ╱64╱d╱ // 0x3d6 @0x9
0x03cd…03e4 at000a = ╱61╱a╱ // 0x3d7 @0xa
0x03cd…03e4 at000b = ╱72╱r╱ // 0x3d8 @0xb
0x03cd…03e4 at000c = ╱64╱d╱ // 0x3d9 @0xc
0x03cd…03e4 at000d = ╱20╱…╱ // 0x3da @0xd
0x03cd…03e4 at000e = ╱76╱v╱ // 0x3db @0xe
0x03cd…03e4 at000f = ╱61╱a╱ // 0x3dc @0xf
0x03cd…03e4 at0010 = ╱72╱r╱ // 0x3dd @0x10
0x03cd…03e4 at0011 = ╱69╱i╱ // 0x3de @0x11
0x03cd…03e4 at0012 = ╱61╱a╱ // 0x3df @0x12
0x03cd…03e4 at0013 = ╱62╱b╱ // 0x3e0 @0x13
0x03cd…03e4 at0014 = ╱6c╱l╱ // 0x3e1 @0x14
0x03cd…03e4 at0015 = ╱65╱e╱ // 0x3e2 @0x15
0x03cd…03e4 at0016 = EOL // 0x3e3 @0x16
0x03cd…03e4 }
0x03e4…0423 9a11 00320 DIM SPC $ OF 80 , TAL $ OF 10 , ALFA $ OF 28 , SVAR $ OF 12 , PRGFL $ OF 8
0x03e4…0423 LineComal80 {
0x03e4…0423 ptr = 0x9a11 // 0x3e4 @0x0
0x03e4…0423 lno = 0x0140 // 0x3e6 @0x2
0x03e4…0423 at0004 = ╱87╱ DIM ╱ // 0x3e8 @0x4
0x03e4…0423 at0005 = ╱53╱S╱ // 0x3e9 @0x5
0x03e4…0423 at0006 = ╱50╱P╱ // 0x3ea @0x6
0x03e4…0423 at0007 = ╱43╱C╱ // 0x3eb @0x7
0x03e4…0423 at0008 = ╱ef╱ $ ╱ // 0x3ec @0x8
0x03e4…0423 at0009 = ╱ba╱ OF ╱ // 0x3ed @0x9
0x03e4…0423 at000a = ╱38╱8╱ // 0x3ee @0xa
0x03e4…0423 at000b = ╱30╱0╱ // 0x3ef @0xb
0x03e4…0423 at000c = ╱f25000╱ // 0x3f0 @0xc
0x03e4…0423 at000f = ╱ec╱ , ╱ // 0x3f3 @0xf
0x03e4…0423 at0010 = ╱54╱T╱ // 0x3f4 @0x10
0x03e4…0423 at0011 = ╱41╱A╱ // 0x3f5 @0x11
0x03e4…0423 at0012 = ╱4c╱L╱ // 0x3f6 @0x12
0x03e4…0423 at0013 = ╱ef╱ $ ╱ // 0x3f7 @0x13
0x03e4…0423 at0014 = ╱ba╱ OF ╱ // 0x3f8 @0x14
0x03e4…0423 at0015 = ╱31╱1╱ // 0x3f9 @0x15
0x03e4…0423 at0016 = ╱30╱0╱ // 0x3fa @0x16
0x03e4…0423 at0017 = ╱f20a00╱ // 0x3fb @0x17
0x03e4…0423 at001a = ╱ec╱ , ╱ // 0x3fe @0x1a
0x03e4…0423 at001b = ╱41╱A╱ // 0x3ff @0x1b
0x03e4…0423 at001c = ╱4c╱L╱ // 0x400 @0x1c
0x03e4…0423 at001d = ╱46╱F╱ // 0x401 @0x1d
0x03e4…0423 at001e = ╱41╱A╱ // 0x402 @0x1e
0x03e4…0423 at001f = ╱ef╱ $ ╱ // 0x403 @0x1f
0x03e4…0423 at0020 = ╱ba╱ OF ╱ // 0x404 @0x20
0x03e4…0423 at0021 = ╱32╱2╱ // 0x405 @0x21
0x03e4…0423 at0022 = ╱38╱8╱ // 0x406 @0x22
0x03e4…0423 at0023 = ╱f21c00╱ // 0x407 @0x23
0x03e4…0423 at0026 = ╱ec╱ , ╱ // 0x40a @0x26
0x03e4…0423 at0027 = ╱53╱S╱ // 0x40b @0x27
0x03e4…0423 at0028 = ╱56╱V╱ // 0x40c @0x28
0x03e4…0423 at0029 = ╱41╱A╱ // 0x40d @0x29
0x03e4…0423 at002a = ╱52╱R╱ // 0x40e @0x2a
0x03e4…0423 at002b = ╱ef╱ $ ╱ // 0x40f @0x2b
0x03e4…0423 at002c = ╱ba╱ OF ╱ // 0x410 @0x2c
0x03e4…0423 at002d = ╱31╱1╱ // 0x411 @0x2d
0x03e4…0423 at002e = ╱32╱2╱ // 0x412 @0x2e
0x03e4…0423 at002f = ╱f20c00╱ // 0x413 @0x2f
0x03e4…0423 at0032 = ╱ec╱ , ╱ // 0x416 @0x32
0x03e4…0423 at0033 = ╱50╱P╱ // 0x417 @0x33
0x03e4…0423 at0034 = ╱52╱R╱ // 0x418 @0x34
0x03e4…0423 at0035 = ╱47╱G╱ // 0x419 @0x35
0x03e4…0423 at0036 = ╱46╱F╱ // 0x41a @0x36
0x03e4…0423 at0037 = ╱4c╱L╱ // 0x41b @0x37
0x03e4…0423 at0038 = ╱ef╱ $ ╱ // 0x41c @0x38
0x03e4…0423 at0039 = ╱ba╱ OF ╱ // 0x41d @0x39
0x03e4…0423 at003a = ╱38╱8╱ // 0x41e @0x3a
0x03e4…0423 at003b = ╱f20800╱ // 0x41f @0x3b
0x03e4…0423 at003e = EOL // 0x422 @0x3e
0x03e4…0423 }
0x0423…0437 9a25 00330 DIM PROGRAM $ OF 17
0x0423…0437 LineComal80 {
0x0423…0437 ptr = 0x9a25 // 0x423 @0x0
0x0423…0437 lno = 0x014a // 0x425 @0x2
0x0423…0437 at0004 = ╱87╱ DIM ╱ // 0x427 @0x4
0x0423…0437 at0005 = ╱50╱P╱ // 0x428 @0x5
0x0423…0437 at0006 = ╱52╱R╱ // 0x429 @0x6
0x0423…0437 at0007 = ╱4f╱O╱ // 0x42a @0x7
0x0423…0437 at0008 = ╱47╱G╱ // 0x42b @0x8
0x0423…0437 at0009 = ╱52╱R╱ // 0x42c @0x9
0x0423…0437 at000a = ╱41╱A╱ // 0x42d @0xa
0x0423…0437 at000b = ╱4d╱M╱ // 0x42e @0xb
0x0423…0437 at000c = ╱ef╱ $ ╱ // 0x42f @0xc
0x0423…0437 at000d = ╱ba╱ OF ╱ // 0x430 @0xd
0x0423…0437 at000e = ╱31╱1╱ // 0x431 @0xe
0x0423…0437 at000f = ╱37╱7╱ // 0x432 @0xf
0x0423…0437 at0010 = ╱f21100╱ // 0x433 @0x10
0x0423…0437 at0013 = EOL // 0x436 @0x13
0x0423…0437 }
0x0437…0447 9a35 00340 REAL RESRV , PPAR
0x0437…0447 LineComal80 {
0x0437…0447 ptr = 0x9a35 // 0x437 @0x0
0x0437…0447 lno = 0x0154 // 0x439 @0x2
0x0437…0447 at0004 = ╱b3╱ REAL ╱ // 0x43b @0x4
0x0437…0447 at0005 = ╱52╱R╱ // 0x43c @0x5
0x0437…0447 at0006 = ╱45╱E╱ // 0x43d @0x6
0x0437…0447 at0007 = ╱53╱S╱ // 0x43e @0x7
0x0437…0447 at0008 = ╱52╱R╱ // 0x43f @0x8
0x0437…0447 at0009 = ╱56╱V╱ // 0x440 @0x9
0x0437…0447 at000a = ╱ec╱ , ╱ // 0x441 @0xa
0x0437…0447 at000b = ╱50╱P╱ // 0x442 @0xb
0x0437…0447 at000c = ╱50╱P╱ // 0x443 @0xc
0x0437…0447 at000d = ╱41╱A╱ // 0x444 @0xd
0x0437…0447 at000e = ╱52╱R╱ // 0x445 @0xe
0x0437…0447 at000f = EOL // 0x446 @0xf
0x0437…0447 }
0x0447…0460 9a4e 00350 INTEGER OK , TRUE , FALSE , I , J , K
0x0447…0460 LineComal80 {
0x0447…0460 ptr = 0x9a4e // 0x447 @0x0
0x0447…0460 lno = 0x015e // 0x449 @0x2
0x0447…0460 at0004 = ╱b2╱ INTEGER ╱ // 0x44b @0x4
0x0447…0460 at0005 = ╱4f╱O╱ // 0x44c @0x5
0x0447…0460 at0006 = ╱4b╱K╱ // 0x44d @0x6
0x0447…0460 at0007 = ╱ec╱ , ╱ // 0x44e @0x7
0x0447…0460 at0008 = ╱54╱T╱ // 0x44f @0x8
0x0447…0460 at0009 = ╱52╱R╱ // 0x450 @0x9
0x0447…0460 at000a = ╱55╱U╱ // 0x451 @0xa
0x0447…0460 at000b = ╱45╱E╱ // 0x452 @0xb
0x0447…0460 at000c = ╱ec╱ , ╱ // 0x453 @0xc
0x0447…0460 at000d = ╱46╱F╱ // 0x454 @0xd
0x0447…0460 at000e = ╱41╱A╱ // 0x455 @0xe
0x0447…0460 at000f = ╱4c╱L╱ // 0x456 @0xf
0x0447…0460 at0010 = ╱53╱S╱ // 0x457 @0x10
0x0447…0460 at0011 = ╱45╱E╱ // 0x458 @0x11
0x0447…0460 at0012 = ╱ec╱ , ╱ // 0x459 @0x12
0x0447…0460 at0013 = ╱49╱I╱ // 0x45a @0x13
0x0447…0460 at0014 = ╱ec╱ , ╱ // 0x45b @0x14
0x0447…0460 at0015 = ╱4a╱J╱ // 0x45c @0x15
0x0447…0460 at0016 = ╱ec╱ , ╱ // 0x45d @0x16
0x0447…0460 at0017 = ╱4b╱K╱ // 0x45e @0x17
0x0447…0460 at0018 = EOL // 0x45f @0x18
0x0447…0460 }
0x0460…0474 9a62 00360 // Hj{lpevariable
0x0460…0474 LineComal80 {
0x0460…0474 ptr = 0x9a62 // 0x460 @0x0
0x0460…0474 lno = 0x0168 // 0x462 @0x2
0x0460…0474 at0004 = ╱89╱ // ╱ // 0x464 @0x4
0x0460…0474 at0005 = ╱48╱H╱ // 0x465 @0x5
0x0460…0474 at0006 = ╱6a╱j╱ // 0x466 @0x6
0x0460…0474 at0007 = ╱7b╱{╱ // 0x467 @0x7
0x0460…0474 at0008 = ╱6c╱l╱ // 0x468 @0x8
0x0460…0474 at0009 = ╱70╱p╱ // 0x469 @0x9
0x0460…0474 at000a = ╱65╱e╱ // 0x46a @0xa
0x0460…0474 at000b = ╱76╱v╱ // 0x46b @0xb
0x0460…0474 at000c = ╱61╱a╱ // 0x46c @0xc
0x0460…0474 at000d = ╱72╱r╱ // 0x46d @0xd
0x0460…0474 at000e = ╱69╱i╱ // 0x46e @0xe
0x0460…0474 at000f = ╱61╱a╱ // 0x46f @0xf
0x0460…0474 at0010 = ╱62╱b╱ // 0x470 @0x10
0x0460…0474 at0011 = ╱6c╱l╱ // 0x471 @0x11
0x0460…0474 at0012 = ╱65╱e╱ // 0x472 @0x12
0x0460…0474 at0013 = EOL // 0x473 @0x13
0x0460…0474 }
0x0474…04bc 9aaa 00370 DIM HJ_ST $ OF 10 , A_TXT $ OF 20 , A_BNR $ OF 5 , A_KTONR $ OF 8 , NONBOOK $ OF 60
0x0474…04bc LineComal80 {
0x0474…04bc ptr = 0x9aaa // 0x474 @0x0
0x0474…04bc lno = 0x0172 // 0x476 @0x2
0x0474…04bc at0004 = ╱87╱ DIM ╱ // 0x478 @0x4
0x0474…04bc at0005 = ╱48╱H╱ // 0x479 @0x5
0x0474…04bc at0006 = ╱4a╱J╱ // 0x47a @0x6
0x0474…04bc at0007 = ╱5f╱_╱ // 0x47b @0x7
0x0474…04bc at0008 = ╱53╱S╱ // 0x47c @0x8
0x0474…04bc at0009 = ╱54╱T╱ // 0x47d @0x9
0x0474…04bc at000a = ╱ef╱ $ ╱ // 0x47e @0xa
0x0474…04bc at000b = ╱ba╱ OF ╱ // 0x47f @0xb
0x0474…04bc at000c = ╱31╱1╱ // 0x480 @0xc
0x0474…04bc at000d = ╱30╱0╱ // 0x481 @0xd
0x0474…04bc at000e = ╱f20a00╱ // 0x482 @0xe
0x0474…04bc at0011 = ╱ec╱ , ╱ // 0x485 @0x11
0x0474…04bc at0012 = ╱41╱A╱ // 0x486 @0x12
0x0474…04bc at0013 = ╱5f╱_╱ // 0x487 @0x13
0x0474…04bc at0014 = ╱54╱T╱ // 0x488 @0x14
0x0474…04bc at0015 = ╱58╱X╱ // 0x489 @0x15
0x0474…04bc at0016 = ╱54╱T╱ // 0x48a @0x16
0x0474…04bc at0017 = ╱ef╱ $ ╱ // 0x48b @0x17
0x0474…04bc at0018 = ╱ba╱ OF ╱ // 0x48c @0x18
0x0474…04bc at0019 = ╱32╱2╱ // 0x48d @0x19
0x0474…04bc at001a = ╱30╱0╱ // 0x48e @0x1a
0x0474…04bc at001b = ╱f21400╱ // 0x48f @0x1b
0x0474…04bc at001e = ╱ec╱ , ╱ // 0x492 @0x1e
0x0474…04bc at001f = ╱41╱A╱ // 0x493 @0x1f
0x0474…04bc at0020 = ╱5f╱_╱ // 0x494 @0x20
0x0474…04bc at0021 = ╱42╱B╱ // 0x495 @0x21
0x0474…04bc at0022 = ╱4e╱N╱ // 0x496 @0x22
0x0474…04bc at0023 = ╱52╱R╱ // 0x497 @0x23
0x0474…04bc at0024 = ╱ef╱ $ ╱ // 0x498 @0x24
0x0474…04bc at0025 = ╱ba╱ OF ╱ // 0x499 @0x25
0x0474…04bc at0026 = ╱35╱5╱ // 0x49a @0x26
0x0474…04bc at0027 = ╱f20500╱ // 0x49b @0x27
0x0474…04bc at002a = ╱ec╱ , ╱ // 0x49e @0x2a
0x0474…04bc at002b = ╱41╱A╱ // 0x49f @0x2b
0x0474…04bc at002c = ╱5f╱_╱ // 0x4a0 @0x2c
0x0474…04bc at002d = ╱4b╱K╱ // 0x4a1 @0x2d
0x0474…04bc at002e = ╱54╱T╱ // 0x4a2 @0x2e
0x0474…04bc at002f = ╱4f╱O╱ // 0x4a3 @0x2f
0x0474…04bc at0030 = ╱4e╱N╱ // 0x4a4 @0x30
0x0474…04bc at0031 = ╱52╱R╱ // 0x4a5 @0x31
0x0474…04bc at0032 = ╱ef╱ $ ╱ // 0x4a6 @0x32
0x0474…04bc at0033 = ╱ba╱ OF ╱ // 0x4a7 @0x33
0x0474…04bc at0034 = ╱38╱8╱ // 0x4a8 @0x34
0x0474…04bc at0035 = ╱f20800╱ // 0x4a9 @0x35
0x0474…04bc at0038 = ╱ec╱ , ╱ // 0x4ac @0x38
0x0474…04bc at0039 = ╱4e╱N╱ // 0x4ad @0x39
0x0474…04bc at003a = ╱4f╱O╱ // 0x4ae @0x3a
0x0474…04bc at003b = ╱4e╱N╱ // 0x4af @0x3b
0x0474…04bc at003c = ╱42╱B╱ // 0x4b0 @0x3c
0x0474…04bc at003d = ╱4f╱O╱ // 0x4b1 @0x3d
0x0474…04bc at003e = ╱4f╱O╱ // 0x4b2 @0x3e
0x0474…04bc at003f = ╱4b╱K╱ // 0x4b3 @0x3f
0x0474…04bc at0040 = ╱ef╱ $ ╱ // 0x4b4 @0x40
0x0474…04bc at0041 = ╱ba╱ OF ╱ // 0x4b5 @0x41
0x0474…04bc at0042 = ╱36╱6╱ // 0x4b6 @0x42
0x0474…04bc at0043 = ╱30╱0╱ // 0x4b7 @0x43
0x0474…04bc at0044 = ╱f23c00╱ // 0x4b8 @0x44
0x0474…04bc at0047 = EOL // 0x4bb @0x47
0x0474…04bc }
0x04bc…04e4 9ad2 00380 DIM A_KTO_TYPE $ OF 1 , A_KTO_NAVN $ OF 40
0x04bc…04e4 LineComal80 {
0x04bc…04e4 ptr = 0x9ad2 // 0x4bc @0x0
0x04bc…04e4 lno = 0x017c // 0x4be @0x2
0x04bc…04e4 at0004 = ╱87╱ DIM ╱ // 0x4c0 @0x4
0x04bc…04e4 at0005 = ╱41╱A╱ // 0x4c1 @0x5
0x04bc…04e4 at0006 = ╱5f╱_╱ // 0x4c2 @0x6
0x04bc…04e4 at0007 = ╱4b╱K╱ // 0x4c3 @0x7
0x04bc…04e4 at0008 = ╱54╱T╱ // 0x4c4 @0x8
0x04bc…04e4 at0009 = ╱4f╱O╱ // 0x4c5 @0x9
0x04bc…04e4 at000a = ╱5f╱_╱ // 0x4c6 @0xa
0x04bc…04e4 at000b = ╱54╱T╱ // 0x4c7 @0xb
0x04bc…04e4 at000c = ╱59╱Y╱ // 0x4c8 @0xc
0x04bc…04e4 at000d = ╱50╱P╱ // 0x4c9 @0xd
0x04bc…04e4 at000e = ╱45╱E╱ // 0x4ca @0xe
0x04bc…04e4 at000f = ╱ef╱ $ ╱ // 0x4cb @0xf
0x04bc…04e4 at0010 = ╱ba╱ OF ╱ // 0x4cc @0x10
0x04bc…04e4 at0011 = ╱31╱1╱ // 0x4cd @0x11
0x04bc…04e4 at0012 = ╱f20100╱ // 0x4ce @0x12
0x04bc…04e4 at0015 = ╱ec╱ , ╱ // 0x4d1 @0x15
0x04bc…04e4 at0016 = ╱41╱A╱ // 0x4d2 @0x16
0x04bc…04e4 at0017 = ╱5f╱_╱ // 0x4d3 @0x17
0x04bc…04e4 at0018 = ╱4b╱K╱ // 0x4d4 @0x18
0x04bc…04e4 at0019 = ╱54╱T╱ // 0x4d5 @0x19
0x04bc…04e4 at001a = ╱4f╱O╱ // 0x4d6 @0x1a
0x04bc…04e4 at001b = ╱5f╱_╱ // 0x4d7 @0x1b
0x04bc…04e4 at001c = ╱4e╱N╱ // 0x4d8 @0x1c
0x04bc…04e4 at001d = ╱41╱A╱ // 0x4d9 @0x1d
0x04bc…04e4 at001e = ╱56╱V╱ // 0x4da @0x1e
0x04bc…04e4 at001f = ╱4e╱N╱ // 0x4db @0x1f
0x04bc…04e4 at0020 = ╱ef╱ $ ╱ // 0x4dc @0x20
0x04bc…04e4 at0021 = ╱ba╱ OF ╱ // 0x4dd @0x21
0x04bc…04e4 at0022 = ╱34╱4╱ // 0x4de @0x22
0x04bc…04e4 at0023 = ╱30╱0╱ // 0x4df @0x23
0x04bc…04e4 at0024 = ╱f22800╱ // 0x4e0 @0x24
0x04bc…04e4 at0027 = EOL // 0x4e3 @0x27
0x04bc…04e4 }
0x04e4…0511 9aff 00390 REAL A_KTO_ULTIMO , NULR , T[LLER ( 3 ) , OVERSKUD
0x04e4…0511 LineComal80 {
0x04e4…0511 ptr = 0x9aff // 0x4e4 @0x0
0x04e4…0511 lno = 0x0186 // 0x4e6 @0x2
0x04e4…0511 at0004 = ╱b3╱ REAL ╱ // 0x4e8 @0x4
0x04e4…0511 at0005 = ╱41╱A╱ // 0x4e9 @0x5
0x04e4…0511 at0006 = ╱5f╱_╱ // 0x4ea @0x6
0x04e4…0511 at0007 = ╱4b╱K╱ // 0x4eb @0x7
0x04e4…0511 at0008 = ╱54╱T╱ // 0x4ec @0x8
0x04e4…0511 at0009 = ╱4f╱O╱ // 0x4ed @0x9
0x04e4…0511 at000a = ╱5f╱_╱ // 0x4ee @0xa
0x04e4…0511 at000b = ╱55╱U╱ // 0x4ef @0xb
0x04e4…0511 at000c = ╱4c╱L╱ // 0x4f0 @0xc
0x04e4…0511 at000d = ╱54╱T╱ // 0x4f1 @0xd
0x04e4…0511 at000e = ╱49╱I╱ // 0x4f2 @0xe
0x04e4…0511 at000f = ╱4d╱M╱ // 0x4f3 @0xf
0x04e4…0511 at0010 = ╱4f╱O╱ // 0x4f4 @0x10
0x04e4…0511 at0011 = ╱ec╱ , ╱ // 0x4f5 @0x11
0x04e4…0511 at0012 = ╱4e╱N╱ // 0x4f6 @0x12
0x04e4…0511 at0013 = ╱55╱U╱ // 0x4f7 @0x13
0x04e4…0511 at0014 = ╱4c╱L╱ // 0x4f8 @0x14
0x04e4…0511 at0015 = ╱52╱R╱ // 0x4f9 @0x15
0x04e4…0511 at0016 = ╱ec╱ , ╱ // 0x4fa @0x16
0x04e4…0511 at0017 = ╱54╱T╱ // 0x4fb @0x17
0x04e4…0511 at0018 = ╱5b╱[╱ // 0x4fc @0x18
0x04e4…0511 at0019 = ╱4c╱L╱ // 0x4fd @0x19
0x04e4…0511 at001a = ╱4c╱L╱ // 0x4fe @0x1a
0x04e4…0511 at001b = ╱45╱E╱ // 0x4ff @0x1b
0x04e4…0511 at001c = ╱52╱R╱ // 0x500 @0x1c
0x04e4…0511 at001d = ╱ed╱ ( ╱ // 0x501 @0x1d
0x04e4…0511 at001e = ╱33╱3╱ // 0x502 @0x1e
0x04e4…0511 at001f = ╱f20300╱ // 0x503 @0x1f
0x04e4…0511 at0022 = ╱ee╱ ) ╱ // 0x506 @0x22
0x04e4…0511 at0023 = ╱ec╱ , ╱ // 0x507 @0x23
0x04e4…0511 at0024 = ╱4f╱O╱ // 0x508 @0x24
0x04e4…0511 at0025 = ╱56╱V╱ // 0x509 @0x25
0x04e4…0511 at0026 = ╱45╱E╱ // 0x50a @0x26
0x04e4…0511 at0027 = ╱52╱R╱ // 0x50b @0x27
0x04e4…0511 at0028 = ╱53╱S╱ // 0x50c @0x28
0x04e4…0511 at0029 = ╱4b╱K╱ // 0x50d @0x29
0x04e4…0511 at002a = ╱55╱U╱ // 0x50e @0x2a
0x04e4…0511 at002b = ╱44╱D╱ // 0x50f @0x2b
0x04e4…0511 at002c = EOL // 0x510 @0x2c
0x04e4…0511 }
0x0511…0549 9b37 00400 INTEGER POS , HIGH , LOW , IDXPOS , DEBET , KREDIT , NUL , KOLNR , MAX_LIN
0x0511…0549 LineComal80 {
0x0511…0549 ptr = 0x9b37 // 0x511 @0x0
0x0511…0549 lno = 0x0190 // 0x513 @0x2
0x0511…0549 at0004 = ╱b2╱ INTEGER ╱ // 0x515 @0x4
0x0511…0549 at0005 = ╱50╱P╱ // 0x516 @0x5
0x0511…0549 at0006 = ╱4f╱O╱ // 0x517 @0x6
0x0511…0549 at0007 = ╱53╱S╱ // 0x518 @0x7
0x0511…0549 at0008 = ╱ec╱ , ╱ // 0x519 @0x8
0x0511…0549 at0009 = ╱48╱H╱ // 0x51a @0x9
0x0511…0549 at000a = ╱49╱I╱ // 0x51b @0xa
0x0511…0549 at000b = ╱47╱G╱ // 0x51c @0xb
0x0511…0549 at000c = ╱48╱H╱ // 0x51d @0xc
0x0511…0549 at000d = ╱ec╱ , ╱ // 0x51e @0xd
0x0511…0549 at000e = ╱4c╱L╱ // 0x51f @0xe
0x0511…0549 at000f = ╱4f╱O╱ // 0x520 @0xf
0x0511…0549 at0010 = ╱57╱W╱ // 0x521 @0x10
0x0511…0549 at0011 = ╱ec╱ , ╱ // 0x522 @0x11
0x0511…0549 at0012 = ╱49╱I╱ // 0x523 @0x12
0x0511…0549 at0013 = ╱44╱D╱ // 0x524 @0x13
0x0511…0549 at0014 = ╱58╱X╱ // 0x525 @0x14
0x0511…0549 at0015 = ╱50╱P╱ // 0x526 @0x15
0x0511…0549 at0016 = ╱4f╱O╱ // 0x527 @0x16
0x0511…0549 at0017 = ╱53╱S╱ // 0x528 @0x17
0x0511…0549 at0018 = ╱ec╱ , ╱ // 0x529 @0x18
0x0511…0549 at0019 = ╱44╱D╱ // 0x52a @0x19
0x0511…0549 at001a = ╱45╱E╱ // 0x52b @0x1a
0x0511…0549 at001b = ╱42╱B╱ // 0x52c @0x1b
0x0511…0549 at001c = ╱45╱E╱ // 0x52d @0x1c
0x0511…0549 at001d = ╱54╱T╱ // 0x52e @0x1d
0x0511…0549 at001e = ╱ec╱ , ╱ // 0x52f @0x1e
0x0511…0549 at001f = ╱4b╱K╱ // 0x530 @0x1f
0x0511…0549 at0020 = ╱52╱R╱ // 0x531 @0x20
0x0511…0549 at0021 = ╱45╱E╱ // 0x532 @0x21
0x0511…0549 at0022 = ╱44╱D╱ // 0x533 @0x22
0x0511…0549 at0023 = ╱49╱I╱ // 0x534 @0x23
0x0511…0549 at0024 = ╱54╱T╱ // 0x535 @0x24
0x0511…0549 at0025 = ╱ec╱ , ╱ // 0x536 @0x25
0x0511…0549 at0026 = ╱4e╱N╱ // 0x537 @0x26
0x0511…0549 at0027 = ╱55╱U╱ // 0x538 @0x27
0x0511…0549 at0028 = ╱4c╱L╱ // 0x539 @0x28
0x0511…0549 at0029 = ╱ec╱ , ╱ // 0x53a @0x29
0x0511…0549 at002a = ╱4b╱K╱ // 0x53b @0x2a
0x0511…0549 at002b = ╱4f╱O╱ // 0x53c @0x2b
0x0511…0549 at002c = ╱4c╱L╱ // 0x53d @0x2c
0x0511…0549 at002d = ╱4e╱N╱ // 0x53e @0x2d
0x0511…0549 at002e = ╱52╱R╱ // 0x53f @0x2e
0x0511…0549 at002f = ╱ec╱ , ╱ // 0x540 @0x2f
0x0511…0549 at0030 = ╱4d╱M╱ // 0x541 @0x30
0x0511…0549 at0031 = ╱41╱A╱ // 0x542 @0x31
0x0511…0549 at0032 = ╱58╱X╱ // 0x543 @0x32
0x0511…0549 at0033 = ╱5f╱_╱ // 0x544 @0x33
0x0511…0549 at0034 = ╱4c╱L╱ // 0x545 @0x34
0x0511…0549 at0035 = ╱49╱I╱ // 0x546 @0x35
0x0511…0549 at0036 = ╱4e╱N╱ // 0x547 @0x36
0x0511…0549 at0037 = EOL // 0x548 @0x37
0x0511…0549 }
0x0549…0579 9b67 00410 INTEGER A_NTRANS , A_KTO_SP , LIN_T , TABNR ( 2 ) , SIDENR
0x0549…0579 LineComal80 {
0x0549…0579 ptr = 0x9b67 // 0x549 @0x0
0x0549…0579 lno = 0x019a // 0x54b @0x2
0x0549…0579 at0004 = ╱b2╱ INTEGER ╱ // 0x54d @0x4
0x0549…0579 at0005 = ╱41╱A╱ // 0x54e @0x5
0x0549…0579 at0006 = ╱5f╱_╱ // 0x54f @0x6
0x0549…0579 at0007 = ╱4e╱N╱ // 0x550 @0x7
0x0549…0579 at0008 = ╱54╱T╱ // 0x551 @0x8
0x0549…0579 at0009 = ╱52╱R╱ // 0x552 @0x9
0x0549…0579 at000a = ╱41╱A╱ // 0x553 @0xa
0x0549…0579 at000b = ╱4e╱N╱ // 0x554 @0xb
0x0549…0579 at000c = ╱53╱S╱ // 0x555 @0xc
0x0549…0579 at000d = ╱ec╱ , ╱ // 0x556 @0xd
0x0549…0579 at000e = ╱41╱A╱ // 0x557 @0xe
0x0549…0579 at000f = ╱5f╱_╱ // 0x558 @0xf
0x0549…0579 at0010 = ╱4b╱K╱ // 0x559 @0x10
0x0549…0579 at0011 = ╱54╱T╱ // 0x55a @0x11
0x0549…0579 at0012 = ╱4f╱O╱ // 0x55b @0x12
0x0549…0579 at0013 = ╱5f╱_╱ // 0x55c @0x13
0x0549…0579 at0014 = ╱53╱S╱ // 0x55d @0x14
0x0549…0579 at0015 = ╱50╱P╱ // 0x55e @0x15
0x0549…0579 at0016 = ╱ec╱ , ╱ // 0x55f @0x16
0x0549…0579 at0017 = ╱4c╱L╱ // 0x560 @0x17
0x0549…0579 at0018 = ╱49╱I╱ // 0x561 @0x18
0x0549…0579 at0019 = ╱4e╱N╱ // 0x562 @0x19
0x0549…0579 at001a = ╱5f╱_╱ // 0x563 @0x1a
0x0549…0579 at001b = ╱54╱T╱ // 0x564 @0x1b
0x0549…0579 at001c = ╱ec╱ , ╱ // 0x565 @0x1c
0x0549…0579 at001d = ╱54╱T╱ // 0x566 @0x1d
0x0549…0579 at001e = ╱41╱A╱ // 0x567 @0x1e
0x0549…0579 at001f = ╱42╱B╱ // 0x568 @0x1f
0x0549…0579 at0020 = ╱4e╱N╱ // 0x569 @0x20
0x0549…0579 at0021 = ╱52╱R╱ // 0x56a @0x21
0x0549…0579 at0022 = ╱ed╱ ( ╱ // 0x56b @0x22
0x0549…0579 at0023 = ╱32╱2╱ // 0x56c @0x23
0x0549…0579 at0024 = ╱f20200╱ // 0x56d @0x24
0x0549…0579 at0027 = ╱ee╱ ) ╱ // 0x570 @0x27
0x0549…0579 at0028 = ╱ec╱ , ╱ // 0x571 @0x28
0x0549…0579 at0029 = ╱53╱S╱ // 0x572 @0x29
0x0549…0579 at002a = ╱49╱I╱ // 0x573 @0x2a
0x0549…0579 at002b = ╱44╱D╱ // 0x574 @0x2b
0x0549…0579 at002c = ╱45╱E╱ // 0x575 @0x2c
0x0549…0579 at002d = ╱4e╱N╱ // 0x576 @0x2d
0x0549…0579 at002e = ╱52╱R╱ // 0x577 @0x2e
0x0549…0579 at002f = EOL // 0x578 @0x2f
0x0549…0579 }
0x0579…0599 9b87 00420 // Variable…til…filen…SYSPARA
0x0579…0599 LineComal80 {
0x0579…0599 ptr = 0x9b87 // 0x579 @0x0
0x0579…0599 lno = 0x01a4 // 0x57b @0x2
0x0579…0599 at0004 = ╱89╱ // ╱ // 0x57d @0x4
0x0579…0599 at0005 = ╱56╱V╱ // 0x57e @0x5
0x0579…0599 at0006 = ╱61╱a╱ // 0x57f @0x6
0x0579…0599 at0007 = ╱72╱r╱ // 0x580 @0x7
0x0579…0599 at0008 = ╱69╱i╱ // 0x581 @0x8
0x0579…0599 at0009 = ╱61╱a╱ // 0x582 @0x9
0x0579…0599 at000a = ╱62╱b╱ // 0x583 @0xa
0x0579…0599 at000b = ╱6c╱l╱ // 0x584 @0xb
0x0579…0599 at000c = ╱65╱e╱ // 0x585 @0xc
0x0579…0599 at000d = ╱20╱…╱ // 0x586 @0xd
0x0579…0599 at000e = ╱74╱t╱ // 0x587 @0xe
0x0579…0599 at000f = ╱69╱i╱ // 0x588 @0xf
0x0579…0599 at0010 = ╱6c╱l╱ // 0x589 @0x10
0x0579…0599 at0011 = ╱20╱…╱ // 0x58a @0x11
0x0579…0599 at0012 = ╱66╱f╱ // 0x58b @0x12
0x0579…0599 at0013 = ╱69╱i╱ // 0x58c @0x13
0x0579…0599 at0014 = ╱6c╱l╱ // 0x58d @0x14
0x0579…0599 at0015 = ╱65╱e╱ // 0x58e @0x15
0x0579…0599 at0016 = ╱6e╱n╱ // 0x58f @0x16
0x0579…0599 at0017 = ╱20╱…╱ // 0x590 @0x17
0x0579…0599 at0018 = ╱53╱S╱ // 0x591 @0x18
0x0579…0599 at0019 = ╱59╱Y╱ // 0x592 @0x19
0x0579…0599 at001a = ╱53╱S╱ // 0x593 @0x1a
0x0579…0599 at001b = ╱50╱P╱ // 0x594 @0x1b
0x0579…0599 at001c = ╱41╱A╱ // 0x595 @0x1c
0x0579…0599 at001d = ╱52╱R╱ // 0x596 @0x1d
0x0579…0599 at001e = ╱41╱A╱ // 0x597 @0x1e
0x0579…0599 at001f = EOL // 0x598 @0x1f
0x0579…0599 }
0x0599…05ad 9b9b 00430 DIM SYSPARA $ OF 17
0x0599…05ad LineComal80 {
0x0599…05ad ptr = 0x9b9b // 0x599 @0x0
0x0599…05ad lno = 0x01ae // 0x59b @0x2
0x0599…05ad at0004 = ╱87╱ DIM ╱ // 0x59d @0x4
0x0599…05ad at0005 = ╱53╱S╱ // 0x59e @0x5
0x0599…05ad at0006 = ╱59╱Y╱ // 0x59f @0x6
0x0599…05ad at0007 = ╱53╱S╱ // 0x5a0 @0x7
0x0599…05ad at0008 = ╱50╱P╱ // 0x5a1 @0x8
0x0599…05ad at0009 = ╱41╱A╱ // 0x5a2 @0x9
0x0599…05ad at000a = ╱52╱R╱ // 0x5a3 @0xa
0x0599…05ad at000b = ╱41╱A╱ // 0x5a4 @0xb
0x0599…05ad at000c = ╱ef╱ $ ╱ // 0x5a5 @0xc
0x0599…05ad at000d = ╱ba╱ OF ╱ // 0x5a6 @0xd
0x0599…05ad at000e = ╱31╱1╱ // 0x5a7 @0xe
0x0599…05ad at000f = ╱37╱7╱ // 0x5a8 @0xf
0x0599…05ad at0010 = ╱f21100╱ // 0x5a9 @0x10
0x0599…05ad at0013 = EOL // 0x5ac @0x13
0x0599…05ad }
0x05ad…05d0 9bbe 00440 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x05ad…05d0 LineComal80 {
0x05ad…05d0 ptr = 0x9bbe // 0x5ad @0x0
0x05ad…05d0 lno = 0x01b8 // 0x5af @0x2
0x05ad…05d0 at0004 = ╱87╱ DIM ╱ // 0x5b1 @0x4
0x05ad…05d0 at0005 = ╱53╱S╱ // 0x5b2 @0x5
0x05ad…05d0 at0006 = ╱59╱Y╱ // 0x5b3 @0x6
0x05ad…05d0 at0007 = ╱53╱S╱ // 0x5b4 @0x7
0x05ad…05d0 at0008 = ╱54╱T╱ // 0x5b5 @0x8
0x05ad…05d0 at0009 = ╱5f╱_╱ // 0x5b6 @0x9
0x05ad…05d0 at000a = ╱4e╱N╱ // 0x5b7 @0xa
0x05ad…05d0 at000b = ╱41╱A╱ // 0x5b8 @0xb
0x05ad…05d0 at000c = ╱56╱V╱ // 0x5b9 @0xc
0x05ad…05d0 at000d = ╱4e╱N╱ // 0x5ba @0xd
0x05ad…05d0 at000e = ╱ef╱ $ ╱ // 0x5bb @0xe
0x05ad…05d0 at000f = ╱ba╱ OF ╱ // 0x5bc @0xf
0x05ad…05d0 at0010 = ╱33╱3╱ // 0x5bd @0x10
0x05ad…05d0 at0011 = ╱30╱0╱ // 0x5be @0x11
0x05ad…05d0 at0012 = ╱f21e00╱ // 0x5bf @0x12
0x05ad…05d0 at0015 = ╱ec╱ , ╱ // 0x5c2 @0x15
0x05ad…05d0 at0016 = ╱53╱S╱ // 0x5c3 @0x16
0x05ad…05d0 at0017 = ╱5f╱_╱ // 0x5c4 @0x17
0x05ad…05d0 at0018 = ╱4b╱K╱ // 0x5c5 @0x18
0x05ad…05d0 at0019 = ╱4f╱O╱ // 0x5c6 @0x19
0x05ad…05d0 at001a = ╱44╱D╱ // 0x5c7 @0x1a
0x05ad…05d0 at001b = ╱45╱E╱ // 0x5c8 @0x1b
0x05ad…05d0 at001c = ╱ef╱ $ ╱ // 0x5c9 @0x1c
0x05ad…05d0 at001d = ╱ba╱ OF ╱ // 0x5ca @0x1d
0x05ad…05d0 at001e = ╱31╱1╱ // 0x5cb @0x1e
0x05ad…05d0 at001f = ╱f20100╱ // 0x5cc @0x1f
0x05ad…05d0 at0022 = EOL // 0x5cf @0x22
0x05ad…05d0 }
0x05d0…05ef 9bdd 00450 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x05d0…05ef LineComal80 {
0x05d0…05ef ptr = 0x9bdd // 0x5d0 @0x0
0x05d0…05ef lno = 0x01c2 // 0x5d2 @0x2
0x05d0…05ef at0004 = ╱87╱ DIM ╱ // 0x5d4 @0x4
0x05d0…05ef at0005 = ╱44╱D╱ // 0x5d5 @0x5
0x05d0…05ef at0006 = ╱41╱A╱ // 0x5d6 @0x6
0x05d0…05ef at0007 = ╱54╱T╱ // 0x5d7 @0x7
0x05d0…05ef at0008 = ╱41╱A╱ // 0x5d8 @0x8
0x05d0…05ef at0009 = ╱46╱F╱ // 0x5d9 @0x9
0x05d0…05ef at000a = ╱4c╱L╱ // 0x5da @0xa
0x05d0…05ef at000b = ╱ef╱ $ ╱ // 0x5db @0xb
0x05d0…05ef at000c = ╱ba╱ OF ╱ // 0x5dc @0xc
0x05d0…05ef at000d = ╱38╱8╱ // 0x5dd @0xd
0x05d0…05ef at000e = ╱f20800╱ // 0x5de @0xe
0x05d0…05ef at0011 = ╱ec╱ , ╱ // 0x5e1 @0x11
0x05d0…05ef at0012 = ╱54╱T╱ // 0x5e2 @0x12
0x05d0…05ef at0013 = ╱5f╱_╱ // 0x5e3 @0x13
0x05d0…05ef at0014 = ╱4b╱K╱ // 0x5e4 @0x14
0x05d0…05ef at0015 = ╱4f╱O╱ // 0x5e5 @0x15
0x05d0…05ef at0016 = ╱44╱D╱ // 0x5e6 @0x16
0x05d0…05ef at0017 = ╱45╱E╱ // 0x5e7 @0x17
0x05d0…05ef at0018 = ╱ef╱ $ ╱ // 0x5e8 @0x18
0x05d0…05ef at0019 = ╱ba╱ OF ╱ // 0x5e9 @0x19
0x05d0…05ef at001a = ╱31╱1╱ // 0x5ea @0x1a
0x05d0…05ef at001b = ╱f20100╱ // 0x5eb @0x1b
0x05d0…05ef at001e = EOL // 0x5ee @0x1e
0x05d0…05ef }
0x05ef…060f 9bfd 00460 // Variable…til…filen…@@PARAM
0x05ef…060f LineComal80 {
0x05ef…060f ptr = 0x9bfd // 0x5ef @0x0
0x05ef…060f lno = 0x01cc // 0x5f1 @0x2
0x05ef…060f at0004 = ╱89╱ // ╱ // 0x5f3 @0x4
0x05ef…060f at0005 = ╱56╱V╱ // 0x5f4 @0x5
0x05ef…060f at0006 = ╱61╱a╱ // 0x5f5 @0x6
0x05ef…060f at0007 = ╱72╱r╱ // 0x5f6 @0x7
0x05ef…060f at0008 = ╱69╱i╱ // 0x5f7 @0x8
0x05ef…060f at0009 = ╱61╱a╱ // 0x5f8 @0x9
0x05ef…060f at000a = ╱62╱b╱ // 0x5f9 @0xa
0x05ef…060f at000b = ╱6c╱l╱ // 0x5fa @0xb
0x05ef…060f at000c = ╱65╱e╱ // 0x5fb @0xc
0x05ef…060f at000d = ╱20╱…╱ // 0x5fc @0xd
0x05ef…060f at000e = ╱74╱t╱ // 0x5fd @0xe
0x05ef…060f at000f = ╱69╱i╱ // 0x5fe @0xf
0x05ef…060f at0010 = ╱6c╱l╱ // 0x5ff @0x10
0x05ef…060f at0011 = ╱20╱…╱ // 0x600 @0x11
0x05ef…060f at0012 = ╱66╱f╱ // 0x601 @0x12
0x05ef…060f at0013 = ╱69╱i╱ // 0x602 @0x13
0x05ef…060f at0014 = ╱6c╱l╱ // 0x603 @0x14
0x05ef…060f at0015 = ╱65╱e╱ // 0x604 @0x15
0x05ef…060f at0016 = ╱6e╱n╱ // 0x605 @0x16
0x05ef…060f at0017 = ╱20╱…╱ // 0x606 @0x17
0x05ef…060f at0018 = ╱40╱@╱ // 0x607 @0x18
0x05ef…060f at0019 = ╱40╱@╱ // 0x608 @0x19
0x05ef…060f at001a = ╱50╱P╱ // 0x609 @0x1a
0x05ef…060f at001b = ╱41╱A╱ // 0x60a @0x1b
0x05ef…060f at001c = ╱52╱R╱ // 0x60b @0x1c
0x05ef…060f at001d = ╱41╱A╱ // 0x60c @0x1d
0x05ef…060f at001e = ╱4d╱M╱ // 0x60d @0x1e
0x05ef…060f at001f = EOL // 0x60e @0x1f
0x05ef…060f }
0x060f…0621 9c0f 00470 DIM PARAM $ OF 17
0x060f…0621 LineComal80 {
0x060f…0621 ptr = 0x9c0f // 0x60f @0x0
0x060f…0621 lno = 0x01d6 // 0x611 @0x2
0x060f…0621 at0004 = ╱87╱ DIM ╱ // 0x613 @0x4
0x060f…0621 at0005 = ╱50╱P╱ // 0x614 @0x5
0x060f…0621 at0006 = ╱41╱A╱ // 0x615 @0x6
0x060f…0621 at0007 = ╱52╱R╱ // 0x616 @0x7
0x060f…0621 at0008 = ╱41╱A╱ // 0x617 @0x8
0x060f…0621 at0009 = ╱4d╱M╱ // 0x618 @0x9
0x060f…0621 at000a = ╱ef╱ $ ╱ // 0x619 @0xa
0x060f…0621 at000b = ╱ba╱ OF ╱ // 0x61a @0xb
0x060f…0621 at000c = ╱31╱1╱ // 0x61b @0xc
0x060f…0621 at000d = ╱37╱7╱ // 0x61c @0xd
0x060f…0621 at000e = ╱f21100╱ // 0x61d @0xe
0x060f…0621 at0011 = EOL // 0x620 @0x11
0x060f…0621 }
0x0621…0646 9c34 00480 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 8
0x0621…0646 LineComal80 {
0x0621…0646 ptr = 0x9c34 // 0x621 @0x0
0x0621…0646 lno = 0x01e0 // 0x623 @0x2
0x0621…0646 at0004 = ╱87╱ DIM ╱ // 0x625 @0x4
0x0621…0646 at0005 = ╱46╱F╱ // 0x626 @0x5
0x0621…0646 at0006 = ╱49╱I╱ // 0x627 @0x6
0x0621…0646 at0007 = ╱52╱R╱ // 0x628 @0x7
0x0621…0646 at0008 = ╱4d╱M╱ // 0x629 @0x8
0x0621…0646 at0009 = ╱41╱A╱ // 0x62a @0x9
0x0621…0646 at000a = ╱4e╱N╱ // 0x62b @0xa
0x0621…0646 at000b = ╱41╱A╱ // 0x62c @0xb
0x0621…0646 at000c = ╱56╱V╱ // 0x62d @0xc
0x0621…0646 at000d = ╱4e╱N╱ // 0x62e @0xd
0x0621…0646 at000e = ╱ef╱ $ ╱ // 0x62f @0xe
0x0621…0646 at000f = ╱ba╱ OF ╱ // 0x630 @0xf
0x0621…0646 at0010 = ╱33╱3╱ // 0x631 @0x10
0x0621…0646 at0011 = ╱30╱0╱ // 0x632 @0x11
0x0621…0646 at0012 = ╱f21e00╱ // 0x633 @0x12
0x0621…0646 at0015 = ╱ec╱ , ╱ // 0x636 @0x15
0x0621…0646 at0016 = ╱53╱S╱ // 0x637 @0x16
0x0621…0646 at0017 = ╱59╱Y╱ // 0x638 @0x17
0x0621…0646 at0018 = ╱53╱S╱ // 0x639 @0x18
0x0621…0646 at0019 = ╱54╱T╱ // 0x63a @0x19
0x0621…0646 at001a = ╱5f╱_╱ // 0x63b @0x1a
0x0621…0646 at001b = ╱44╱D╱ // 0x63c @0x1b
0x0621…0646 at001c = ╱41╱A╱ // 0x63d @0x1c
0x0621…0646 at001d = ╱54╱T╱ // 0x63e @0x1d
0x0621…0646 at001e = ╱ef╱ $ ╱ // 0x63f @0x1e
0x0621…0646 at001f = ╱ba╱ OF ╱ // 0x640 @0x1f
0x0621…0646 at0020 = ╱38╱8╱ // 0x641 @0x20
0x0621…0646 at0021 = ╱f20800╱ // 0x642 @0x21
0x0621…0646 at0024 = EOL // 0x645 @0x24
0x0621…0646 }
0x0646…0650 9c3e 00490 REAL MOMS
0x0646…0650 LineComal80 {
0x0646…0650 ptr = 0x9c3e // 0x646 @0x0
0x0646…0650 lno = 0x01ea // 0x648 @0x2
0x0646…0650 at0004 = ╱b3╱ REAL ╱ // 0x64a @0x4
0x0646…0650 at0005 = ╱4d╱M╱ // 0x64b @0x5
0x0646…0650 at0006 = ╱4f╱O╱ // 0x64c @0x6
0x0646…0650 at0007 = ╱4d╱M╱ // 0x64d @0x7
0x0646…0650 at0008 = ╱53╱S╱ // 0x64e @0x8
0x0646…0650 at0009 = EOL // 0x64f @0x9
0x0646…0650 }
0x0650…0663 9c51 00500 DIM ST_DATO $ OF 6
0x0650…0663 LineComal80 {
0x0650…0663 ptr = 0x9c51 // 0x650 @0x0
0x0650…0663 lno = 0x01f4 // 0x652 @0x2
0x0650…0663 at0004 = ╱87╱ DIM ╱ // 0x654 @0x4
0x0650…0663 at0005 = ╱53╱S╱ // 0x655 @0x5
0x0650…0663 at0006 = ╱54╱T╱ // 0x656 @0x6
0x0650…0663 at0007 = ╱5f╱_╱ // 0x657 @0x7
0x0650…0663 at0008 = ╱44╱D╱ // 0x658 @0x8
0x0650…0663 at0009 = ╱41╱A╱ // 0x659 @0x9
0x0650…0663 at000a = ╱54╱T╱ // 0x65a @0xa
0x0650…0663 at000b = ╱4f╱O╱ // 0x65b @0xb
0x0650…0663 at000c = ╱ef╱ $ ╱ // 0x65c @0xc
0x0650…0663 at000d = ╱ba╱ OF ╱ // 0x65d @0xd
0x0650…0663 at000e = ╱36╱6╱ // 0x65e @0xe
0x0650…0663 at000f = ╱f20600╱ // 0x65f @0xf
0x0650…0663 at0012 = EOL // 0x662 @0x12
0x0650…0663 }
0x0663…0677 9c65 00510 INTEGER ANT_PER , PER_NR
0x0663…0677 LineComal80 {
0x0663…0677 ptr = 0x9c65 // 0x663 @0x0
0x0663…0677 lno = 0x01fe // 0x665 @0x2
0x0663…0677 at0004 = ╱b2╱ INTEGER ╱ // 0x667 @0x4
0x0663…0677 at0005 = ╱41╱A╱ // 0x668 @0x5
0x0663…0677 at0006 = ╱4e╱N╱ // 0x669 @0x6
0x0663…0677 at0007 = ╱54╱T╱ // 0x66a @0x7
0x0663…0677 at0008 = ╱5f╱_╱ // 0x66b @0x8
0x0663…0677 at0009 = ╱50╱P╱ // 0x66c @0x9
0x0663…0677 at000a = ╱45╱E╱ // 0x66d @0xa
0x0663…0677 at000b = ╱52╱R╱ // 0x66e @0xb
0x0663…0677 at000c = ╱ec╱ , ╱ // 0x66f @0xc
0x0663…0677 at000d = ╱50╱P╱ // 0x670 @0xd
0x0663…0677 at000e = ╱45╱E╱ // 0x671 @0xe
0x0663…0677 at000f = ╱52╱R╱ // 0x672 @0xf
0x0663…0677 at0010 = ╱5f╱_╱ // 0x673 @0x10
0x0663…0677 at0011 = ╱4e╱N╱ // 0x674 @0x11
0x0663…0677 at0012 = ╱52╱R╱ // 0x675 @0x12
0x0663…0677 at0013 = EOL // 0x676 @0x13
0x0663…0677 }
0x0677…0697 9c85 00520 // Variable…til…filen…@@TRANS
0x0677…0697 LineComal80 {
0x0677…0697 ptr = 0x9c85 // 0x677 @0x0
0x0677…0697 lno = 0x0208 // 0x679 @0x2
0x0677…0697 at0004 = ╱89╱ // ╱ // 0x67b @0x4
0x0677…0697 at0005 = ╱56╱V╱ // 0x67c @0x5
0x0677…0697 at0006 = ╱61╱a╱ // 0x67d @0x6
0x0677…0697 at0007 = ╱72╱r╱ // 0x67e @0x7
0x0677…0697 at0008 = ╱69╱i╱ // 0x67f @0x8
0x0677…0697 at0009 = ╱61╱a╱ // 0x680 @0x9
0x0677…0697 at000a = ╱62╱b╱ // 0x681 @0xa
0x0677…0697 at000b = ╱6c╱l╱ // 0x682 @0xb
0x0677…0697 at000c = ╱65╱e╱ // 0x683 @0xc
0x0677…0697 at000d = ╱20╱…╱ // 0x684 @0xd
0x0677…0697 at000e = ╱74╱t╱ // 0x685 @0xe
0x0677…0697 at000f = ╱69╱i╱ // 0x686 @0xf
0x0677…0697 at0010 = ╱6c╱l╱ // 0x687 @0x10
0x0677…0697 at0011 = ╱20╱…╱ // 0x688 @0x11
0x0677…0697 at0012 = ╱66╱f╱ // 0x689 @0x12
0x0677…0697 at0013 = ╱69╱i╱ // 0x68a @0x13
0x0677…0697 at0014 = ╱6c╱l╱ // 0x68b @0x14
0x0677…0697 at0015 = ╱65╱e╱ // 0x68c @0x15
0x0677…0697 at0016 = ╱6e╱n╱ // 0x68d @0x16
0x0677…0697 at0017 = ╱20╱…╱ // 0x68e @0x17
0x0677…0697 at0018 = ╱40╱@╱ // 0x68f @0x18
0x0677…0697 at0019 = ╱40╱@╱ // 0x690 @0x19
0x0677…0697 at001a = ╱54╱T╱ // 0x691 @0x1a
0x0677…0697 at001b = ╱52╱R╱ // 0x692 @0x1b
0x0677…0697 at001c = ╱41╱A╱ // 0x693 @0x1c
0x0677…0697 at001d = ╱4e╱N╱ // 0x694 @0x1d
0x0677…0697 at001e = ╱53╱S╱ // 0x695 @0x1e
0x0677…0697 at001f = EOL // 0x696 @0x1f
0x0677…0697 }
0x0697…06a9 9c97 00530 DIM TRANS $ OF 17
0x0697…06a9 LineComal80 {
0x0697…06a9 ptr = 0x9c97 // 0x697 @0x0
0x0697…06a9 lno = 0x0212 // 0x699 @0x2
0x0697…06a9 at0004 = ╱87╱ DIM ╱ // 0x69b @0x4
0x0697…06a9 at0005 = ╱54╱T╱ // 0x69c @0x5
0x0697…06a9 at0006 = ╱52╱R╱ // 0x69d @0x6
0x0697…06a9 at0007 = ╱41╱A╱ // 0x69e @0x7
0x0697…06a9 at0008 = ╱4e╱N╱ // 0x69f @0x8
0x0697…06a9 at0009 = ╱53╱S╱ // 0x6a0 @0x9
0x0697…06a9 at000a = ╱ef╱ $ ╱ // 0x6a1 @0xa
0x0697…06a9 at000b = ╱ba╱ OF ╱ // 0x6a2 @0xb
0x0697…06a9 at000c = ╱31╱1╱ // 0x6a3 @0xc
0x0697…06a9 at000d = ╱37╱7╱ // 0x6a4 @0xd
0x0697…06a9 at000e = ╱f21100╱ // 0x6a5 @0xe
0x0697…06a9 at0011 = EOL // 0x6a8 @0x11
0x0697…06a9 }
0x06a9…06c0 9cae 00540 INTEGER T_H\JREC , T_MAXREC
0x06a9…06c0 LineComal80 {
0x06a9…06c0 ptr = 0x9cae // 0x6a9 @0x0
0x06a9…06c0 lno = 0x021c // 0x6ab @0x2
0x06a9…06c0 at0004 = ╱b2╱ INTEGER ╱ // 0x6ad @0x4
0x06a9…06c0 at0005 = ╱54╱T╱ // 0x6ae @0x5
0x06a9…06c0 at0006 = ╱5f╱_╱ // 0x6af @0x6
0x06a9…06c0 at0007 = ╱48╱H╱ // 0x6b0 @0x7
0x06a9…06c0 at0008 = ╱5c╱\╱ // 0x6b1 @0x8
0x06a9…06c0 at0009 = ╱4a╱J╱ // 0x6b2 @0x9
0x06a9…06c0 at000a = ╱52╱R╱ // 0x6b3 @0xa
0x06a9…06c0 at000b = ╱45╱E╱ // 0x6b4 @0xb
0x06a9…06c0 at000c = ╱43╱C╱ // 0x6b5 @0xc
0x06a9…06c0 at000d = ╱ec╱ , ╱ // 0x6b6 @0xd
0x06a9…06c0 at000e = ╱54╱T╱ // 0x6b7 @0xe
0x06a9…06c0 at000f = ╱5f╱_╱ // 0x6b8 @0xf
0x06a9…06c0 at0010 = ╱4d╱M╱ // 0x6b9 @0x10
0x06a9…06c0 at0011 = ╱41╱A╱ // 0x6ba @0x11
0x06a9…06c0 at0012 = ╱58╱X╱ // 0x6bb @0x12
0x06a9…06c0 at0013 = ╱52╱R╱ // 0x6bc @0x13
0x06a9…06c0 at0014 = ╱45╱E╱ // 0x6bd @0x14
0x06a9…06c0 at0015 = ╱43╱C╱ // 0x6be @0x15
0x06a9…06c0 at0016 = EOL // 0x6bf @0x16
0x06a9…06c0 }
0x06c0…06f6 9ce4 00550 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
0x06c0…06f6 LineComal80 {
0x06c0…06f6 ptr = 0x9ce4 // 0x6c0 @0x0
0x06c0…06f6 lno = 0x0226 // 0x6c2 @0x2
0x06c0…06f6 at0004 = ╱87╱ DIM ╱ // 0x6c4 @0x4
0x06c0…06f6 at0005 = ╱42╱B╱ // 0x6c5 @0x5
0x06c0…06f6 at0006 = ╱4b╱K╱ // 0x6c6 @0x6
0x06c0…06f6 at0007 = ╱54╱T╱ // 0x6c7 @0x7
0x06c0…06f6 at0008 = ╱4f╱O╱ // 0x6c8 @0x8
0x06c0…06f6 at0009 = ╱4e╱N╱ // 0x6c9 @0x9
0x06c0…06f6 at000a = ╱52╱R╱ // 0x6ca @0xa
0x06c0…06f6 at000b = ╱ef╱ $ ╱ // 0x6cb @0xb
0x06c0…06f6 at000c = ╱ba╱ OF ╱ // 0x6cc @0xc
0x06c0…06f6 at000d = ╱38╱8╱ // 0x6cd @0xd
0x06c0…06f6 at000e = ╱f20800╱ // 0x6ce @0xe
0x06c0…06f6 at0011 = ╱ec╱ , ╱ // 0x6d1 @0x11
0x06c0…06f6 at0012 = ╱42╱B╱ // 0x6d2 @0x12
0x06c0…06f6 at0013 = ╱44╱D╱ // 0x6d3 @0x13
0x06c0…06f6 at0014 = ╱41╱A╱ // 0x6d4 @0x14
0x06c0…06f6 at0015 = ╱54╱T╱ // 0x6d5 @0x15
0x06c0…06f6 at0016 = ╱4f╱O╱ // 0x6d6 @0x16
0x06c0…06f6 at0017 = ╱ef╱ $ ╱ // 0x6d7 @0x17
0x06c0…06f6 at0018 = ╱ba╱ OF ╱ // 0x6d8 @0x18
0x06c0…06f6 at0019 = ╱36╱6╱ // 0x6d9 @0x19
0x06c0…06f6 at001a = ╱f20600╱ // 0x6da @0x1a
0x06c0…06f6 at001d = ╱ec╱ , ╱ // 0x6dd @0x1d
0x06c0…06f6 at001e = ╱42╱B╱ // 0x6de @0x1e
0x06c0…06f6 at001f = ╱4c╱L╱ // 0x6df @0x1f
0x06c0…06f6 at0020 = ╱47╱G╱ // 0x6e0 @0x20
0x06c0…06f6 at0021 = ╱4e╱N╱ // 0x6e1 @0x21
0x06c0…06f6 at0022 = ╱52╱R╱ // 0x6e2 @0x22
0x06c0…06f6 at0023 = ╱ef╱ $ ╱ // 0x6e3 @0x23
0x06c0…06f6 at0024 = ╱ba╱ OF ╱ // 0x6e4 @0x24
0x06c0…06f6 at0025 = ╱35╱5╱ // 0x6e5 @0x25
0x06c0…06f6 at0026 = ╱f20500╱ // 0x6e6 @0x26
0x06c0…06f6 at0029 = ╱ec╱ , ╱ // 0x6e9 @0x29
0x06c0…06f6 at002a = ╱42╱B╱ // 0x6ea @0x2a
0x06c0…06f6 at002b = ╱54╱T╱ // 0x6eb @0x2b
0x06c0…06f6 at002c = ╱58╱X╱ // 0x6ec @0x2c
0x06c0…06f6 at002d = ╱54╱T╱ // 0x6ed @0x2d
0x06c0…06f6 at002e = ╱ef╱ $ ╱ // 0x6ee @0x2e
0x06c0…06f6 at002f = ╱ba╱ OF ╱ // 0x6ef @0x2f
0x06c0…06f6 at0030 = ╱32╱2╱ // 0x6f0 @0x30
0x06c0…06f6 at0031 = ╱30╱0╱ // 0x6f1 @0x31
0x06c0…06f6 at0032 = ╱f21400╱ // 0x6f2 @0x32
0x06c0…06f6 at0035 = EOL // 0x6f5 @0x35
0x06c0…06f6 }
0x06f6…0708 9cf6 00560 REAL BMOMS , BBEL\B
0x06f6…0708 LineComal80 {
0x06f6…0708 ptr = 0x9cf6 // 0x6f6 @0x0
0x06f6…0708 lno = 0x0230 // 0x6f8 @0x2
0x06f6…0708 at0004 = ╱b3╱ REAL ╱ // 0x6fa @0x4
0x06f6…0708 at0005 = ╱42╱B╱ // 0x6fb @0x5
0x06f6…0708 at0006 = ╱4d╱M╱ // 0x6fc @0x6
0x06f6…0708 at0007 = ╱4f╱O╱ // 0x6fd @0x7
0x06f6…0708 at0008 = ╱4d╱M╱ // 0x6fe @0x8
0x06f6…0708 at0009 = ╱53╱S╱ // 0x6ff @0x9
0x06f6…0708 at000a = ╱ec╱ , ╱ // 0x700 @0xa
0x06f6…0708 at000b = ╱42╱B╱ // 0x701 @0xb
0x06f6…0708 at000c = ╱42╱B╱ // 0x702 @0xc
0x06f6…0708 at000d = ╱45╱E╱ // 0x703 @0xd
0x06f6…0708 at000e = ╱4c╱L╱ // 0x704 @0xe
0x06f6…0708 at000f = ╱5c╱\╱ // 0x705 @0xf
0x06f6…0708 at0010 = ╱42╱B╱ // 0x706 @0x10
0x06f6…0708 at0011 = EOL // 0x707 @0x11
0x06f6…0708 }
0x0708…0717 9d05 00570 INTEGER NTRANS , DK
0x0708…0717 LineComal80 {
0x0708…0717 ptr = 0x9d05 // 0x708 @0x0
0x0708…0717 lno = 0x023a // 0x70a @0x2
0x0708…0717 at0004 = ╱b2╱ INTEGER ╱ // 0x70c @0x4
0x0708…0717 at0005 = ╱4e╱N╱ // 0x70d @0x5
0x0708…0717 at0006 = ╱54╱T╱ // 0x70e @0x6
0x0708…0717 at0007 = ╱52╱R╱ // 0x70f @0x7
0x0708…0717 at0008 = ╱41╱A╱ // 0x710 @0x8
0x0708…0717 at0009 = ╱4e╱N╱ // 0x711 @0x9
0x0708…0717 at000a = ╱53╱S╱ // 0x712 @0xa
0x0708…0717 at000b = ╱ec╱ , ╱ // 0x713 @0xb
0x0708…0717 at000c = ╱44╱D╱ // 0x714 @0xc
0x0708…0717 at000d = ╱4b╱K╱ // 0x715 @0xd
0x0708…0717 at000e = EOL // 0x716 @0xe
0x0708…0717 }
0x0717…0738 9d26 00580 // Variable…til…filen…@@DRIFT\
0x0717…0738 LineComal80 {
0x0717…0738 ptr = 0x9d26 // 0x717 @0x0
0x0717…0738 lno = 0x0244 // 0x719 @0x2
0x0717…0738 at0004 = ╱89╱ // ╱ // 0x71b @0x4
0x0717…0738 at0005 = ╱56╱V╱ // 0x71c @0x5
0x0717…0738 at0006 = ╱61╱a╱ // 0x71d @0x6
0x0717…0738 at0007 = ╱72╱r╱ // 0x71e @0x7
0x0717…0738 at0008 = ╱69╱i╱ // 0x71f @0x8
0x0717…0738 at0009 = ╱61╱a╱ // 0x720 @0x9
0x0717…0738 at000a = ╱62╱b╱ // 0x721 @0xa
0x0717…0738 at000b = ╱6c╱l╱ // 0x722 @0xb
0x0717…0738 at000c = ╱65╱e╱ // 0x723 @0xc
0x0717…0738 at000d = ╱20╱…╱ // 0x724 @0xd
0x0717…0738 at000e = ╱74╱t╱ // 0x725 @0xe
0x0717…0738 at000f = ╱69╱i╱ // 0x726 @0xf
0x0717…0738 at0010 = ╱6c╱l╱ // 0x727 @0x10
0x0717…0738 at0011 = ╱20╱…╱ // 0x728 @0x11
0x0717…0738 at0012 = ╱66╱f╱ // 0x729 @0x12
0x0717…0738 at0013 = ╱69╱i╱ // 0x72a @0x13
0x0717…0738 at0014 = ╱6c╱l╱ // 0x72b @0x14
0x0717…0738 at0015 = ╱65╱e╱ // 0x72c @0x15
0x0717…0738 at0016 = ╱6e╱n╱ // 0x72d @0x16
0x0717…0738 at0017 = ╱20╱…╱ // 0x72e @0x17
0x0717…0738 at0018 = ╱40╱@╱ // 0x72f @0x18
0x0717…0738 at0019 = ╱40╱@╱ // 0x730 @0x19
0x0717…0738 at001a = ╱44╱D╱ // 0x731 @0x1a
0x0717…0738 at001b = ╱52╱R╱ // 0x732 @0x1b
0x0717…0738 at001c = ╱49╱I╱ // 0x733 @0x1c
0x0717…0738 at001d = ╱46╱F╱ // 0x734 @0x1d
0x0717…0738 at001e = ╱54╱T╱ // 0x735 @0x1e
0x0717…0738 at001f = ╱5c╱\╱ // 0x736 @0x1f
0x0717…0738 at0020 = EOL // 0x737 @0x20
0x0717…0738 }
0x0738…074b (24,) 9d39 00590 DIM DRIFT\ $ OF 17
0x0738…074b LineComal80 {
0x0738…074b ptr = 0x9d39 // 0x738 @0x0
0x0738…074b lno = 0x024e // 0x73a @0x2
0x0738…074b at0004 = ╱87╱ DIM ╱ // 0x73c @0x4
0x0738…074b at0005 = ╱44╱D╱ // 0x73d @0x5
0x0738…074b at0006 = ╱52╱R╱ // 0x73e @0x6
0x0738…074b at0007 = ╱49╱I╱ // 0x73f @0x7
0x0738…074b at0008 = ╱46╱F╱ // 0x740 @0x8
0x0738…074b at0009 = ╱54╱T╱ // 0x741 @0x9
0x0738…074b at000a = ╱5c╱\╱ // 0x742 @0xa
0x0738…074b at000b = ╱ef╱ $ ╱ // 0x743 @0xb
0x0738…074b at000c = ╱ba╱ OF ╱ // 0x744 @0xc
0x0738…074b at000d = ╱31╱1╱ // 0x745 @0xd
0x0738…074b at000e = ╱37╱7╱ // 0x746 @0xe
0x0738…074b at000f = ╱f21100╱ // 0x747 @0xf
0x0738…074b at0012 = EOL // 0x74a @0x12
0x0738…074b }
0x074b…075f 9d4d 00600 DIM PRIMODAT $ OF 6
0x074b…075f LineComal80 {
0x074b…075f ptr = 0x9d4d // 0x74b @0x0
0x074b…075f lno = 0x0258 // 0x74d @0x2
0x074b…075f at0004 = ╱87╱ DIM ╱ // 0x74f @0x4
0x074b…075f at0005 = ╱50╱P╱ // 0x750 @0x5
0x074b…075f at0006 = ╱52╱R╱ // 0x751 @0x6
0x074b…075f at0007 = ╱49╱I╱ // 0x752 @0x7
0x074b…075f at0008 = ╱4d╱M╱ // 0x753 @0x8
0x074b…075f at0009 = ╱4f╱O╱ // 0x754 @0x9
0x074b…075f at000a = ╱44╱D╱ // 0x755 @0xa
0x074b…075f at000b = ╱41╱A╱ // 0x756 @0xb
0x074b…075f at000c = ╱54╱T╱ // 0x757 @0xc
0x074b…075f at000d = ╱ef╱ $ ╱ // 0x758 @0xd
0x074b…075f at000e = ╱ba╱ OF ╱ // 0x759 @0xe
0x074b…075f at000f = ╱36╱6╱ // 0x75a @0xf
0x074b…075f at0010 = ╱f20600╱ // 0x75b @0x10
0x074b…075f at0013 = EOL // 0x75e @0x13
0x074b…075f }
0x075f…0770 9d5e 00610 REAL DRIFT ( 2 )
0x075f…0770 LineComal80 {
0x075f…0770 ptr = 0x9d5e // 0x75f @0x0
0x075f…0770 lno = 0x0262 // 0x761 @0x2
0x075f…0770 at0004 = ╱b3╱ REAL ╱ // 0x763 @0x4
0x075f…0770 at0005 = ╱44╱D╱ // 0x764 @0x5
0x075f…0770 at0006 = ╱52╱R╱ // 0x765 @0x6
0x075f…0770 at0007 = ╱49╱I╱ // 0x766 @0x7
0x075f…0770 at0008 = ╱46╱F╱ // 0x767 @0x8
0x075f…0770 at0009 = ╱54╱T╱ // 0x768 @0x9
0x075f…0770 at000a = ╱ed╱ ( ╱ // 0x769 @0xa
0x075f…0770 at000b = ╱32╱2╱ // 0x76a @0xb
0x075f…0770 at000c = ╱f20200╱ // 0x76b @0xc
0x075f…0770 at000f = ╱ee╱ ) ╱ // 0x76e @0xf
0x075f…0770 at0010 = EOL // 0x76f @0x10
0x075f…0770 }
0x0770…0790 9d7e 00620 // Variable…til…filen…@@KONTO
0x0770…0790 LineComal80 {
0x0770…0790 ptr = 0x9d7e // 0x770 @0x0
0x0770…0790 lno = 0x026c // 0x772 @0x2
0x0770…0790 at0004 = ╱89╱ // ╱ // 0x774 @0x4
0x0770…0790 at0005 = ╱56╱V╱ // 0x775 @0x5
0x0770…0790 at0006 = ╱61╱a╱ // 0x776 @0x6
0x0770…0790 at0007 = ╱72╱r╱ // 0x777 @0x7
0x0770…0790 at0008 = ╱69╱i╱ // 0x778 @0x8
0x0770…0790 at0009 = ╱61╱a╱ // 0x779 @0x9
0x0770…0790 at000a = ╱62╱b╱ // 0x77a @0xa
0x0770…0790 at000b = ╱6c╱l╱ // 0x77b @0xb
0x0770…0790 at000c = ╱65╱e╱ // 0x77c @0xc
0x0770…0790 at000d = ╱20╱…╱ // 0x77d @0xd
0x0770…0790 at000e = ╱74╱t╱ // 0x77e @0xe
0x0770…0790 at000f = ╱69╱i╱ // 0x77f @0xf
0x0770…0790 at0010 = ╱6c╱l╱ // 0x780 @0x10
0x0770…0790 at0011 = ╱20╱…╱ // 0x781 @0x11
0x0770…0790 at0012 = ╱66╱f╱ // 0x782 @0x12
0x0770…0790 at0013 = ╱69╱i╱ // 0x783 @0x13
0x0770…0790 at0014 = ╱6c╱l╱ // 0x784 @0x14
0x0770…0790 at0015 = ╱65╱e╱ // 0x785 @0x15
0x0770…0790 at0016 = ╱6e╱n╱ // 0x786 @0x16
0x0770…0790 at0017 = ╱20╱…╱ // 0x787 @0x17
0x0770…0790 at0018 = ╱40╱@╱ // 0x788 @0x18
0x0770…0790 at0019 = ╱40╱@╱ // 0x789 @0x19
0x0770…0790 at001a = ╱4b╱K╱ // 0x78a @0x1a
0x0770…0790 at001b = ╱4f╱O╱ // 0x78b @0x1b
0x0770…0790 at001c = ╱4e╱N╱ // 0x78c @0x1c
0x0770…0790 at001d = ╱54╱T╱ // 0x78d @0x1d
0x0770…0790 at001e = ╱4f╱O╱ // 0x78e @0x1e
0x0770…0790 at001f = EOL // 0x78f @0x1f
0x0770…0790 }
0x0790…07a2 9d90 00630 DIM KONTO $ OF 17
0x0790…07a2 LineComal80 {
0x0790…07a2 ptr = 0x9d90 // 0x790 @0x0
0x0790…07a2 lno = 0x0276 // 0x792 @0x2
0x0790…07a2 at0004 = ╱87╱ DIM ╱ // 0x794 @0x4
0x0790…07a2 at0005 = ╱4b╱K╱ // 0x795 @0x5
0x0790…07a2 at0006 = ╱4f╱O╱ // 0x796 @0x6
0x0790…07a2 at0007 = ╱4e╱N╱ // 0x797 @0x7
0x0790…07a2 at0008 = ╱54╱T╱ // 0x798 @0x8
0x0790…07a2 at0009 = ╱4f╱O╱ // 0x799 @0x9
0x0790…07a2 at000a = ╱ef╱ $ ╱ // 0x79a @0xa
0x0790…07a2 at000b = ╱ba╱ OF ╱ // 0x79b @0xb
0x0790…07a2 at000c = ╱31╱1╱ // 0x79c @0xc
0x0790…07a2 at000d = ╱37╱7╱ // 0x79d @0xd
0x0790…07a2 at000e = ╱f21100╱ // 0x79e @0xe
0x0790…07a2 at0011 = EOL // 0x7a1 @0x11
0x0790…07a2 }
0x07a2…07b9 9da7 00640 INTEGER N_FRIREC , N_MAXREC
0x07a2…07b9 LineComal80 {
0x07a2…07b9 ptr = 0x9da7 // 0x7a2 @0x0
0x07a2…07b9 lno = 0x0280 // 0x7a4 @0x2
0x07a2…07b9 at0004 = ╱b2╱ INTEGER ╱ // 0x7a6 @0x4
0x07a2…07b9 at0005 = ╱4e╱N╱ // 0x7a7 @0x5
0x07a2…07b9 at0006 = ╱5f╱_╱ // 0x7a8 @0x6
0x07a2…07b9 at0007 = ╱46╱F╱ // 0x7a9 @0x7
0x07a2…07b9 at0008 = ╱52╱R╱ // 0x7aa @0x8
0x07a2…07b9 at0009 = ╱49╱I╱ // 0x7ab @0x9
0x07a2…07b9 at000a = ╱52╱R╱ // 0x7ac @0xa
0x07a2…07b9 at000b = ╱45╱E╱ // 0x7ad @0xb
0x07a2…07b9 at000c = ╱43╱C╱ // 0x7ae @0xc
0x07a2…07b9 at000d = ╱ec╱ , ╱ // 0x7af @0xd
0x07a2…07b9 at000e = ╱4e╱N╱ // 0x7b0 @0xe
0x07a2…07b9 at000f = ╱5f╱_╱ // 0x7b1 @0xf
0x07a2…07b9 at0010 = ╱4d╱M╱ // 0x7b2 @0x10
0x07a2…07b9 at0011 = ╱41╱A╱ // 0x7b3 @0x11
0x07a2…07b9 at0012 = ╱58╱X╱ // 0x7b4 @0x12
0x07a2…07b9 at0013 = ╱52╱R╱ // 0x7b5 @0x13
0x07a2…07b9 at0014 = ╱45╱E╱ // 0x7b6 @0x14
0x07a2…07b9 at0015 = ╱43╱C╱ // 0x7b7 @0x15
0x07a2…07b9 at0016 = EOL // 0x7b8 @0x16
0x07a2…07b9 }
0x07b9…07dd 9dcb 00650 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
0x07b9…07dd LineComal80 {
0x07b9…07dd ptr = 0x9dcb // 0x7b9 @0x0
0x07b9…07dd lno = 0x028a // 0x7bb @0x2
0x07b9…07dd at0004 = ╱87╱ DIM ╱ // 0x7bd @0x4
0x07b9…07dd at0005 = ╱4b╱K╱ // 0x7be @0x5
0x07b9…07dd at0006 = ╱54╱T╱ // 0x7bf @0x6
0x07b9…07dd at0007 = ╱4f╱O╱ // 0x7c0 @0x7
0x07b9…07dd at0008 = ╱5f╱_╱ // 0x7c1 @0x8
0x07b9…07dd at0009 = ╱54╱T╱ // 0x7c2 @0x9
0x07b9…07dd at000a = ╱59╱Y╱ // 0x7c3 @0xa
0x07b9…07dd at000b = ╱50╱P╱ // 0x7c4 @0xb
0x07b9…07dd at000c = ╱45╱E╱ // 0x7c5 @0xc
0x07b9…07dd at000d = ╱ef╱ $ ╱ // 0x7c6 @0xd
0x07b9…07dd at000e = ╱ba╱ OF ╱ // 0x7c7 @0xe
0x07b9…07dd at000f = ╱31╱1╱ // 0x7c8 @0xf
0x07b9…07dd at0010 = ╱f20100╱ // 0x7c9 @0x10
0x07b9…07dd at0013 = ╱ec╱ , ╱ // 0x7cc @0x13
0x07b9…07dd at0014 = ╱4b╱K╱ // 0x7cd @0x14
0x07b9…07dd at0015 = ╱54╱T╱ // 0x7ce @0x15
0x07b9…07dd at0016 = ╱4f╱O╱ // 0x7cf @0x16
0x07b9…07dd at0017 = ╱5f╱_╱ // 0x7d0 @0x17
0x07b9…07dd at0018 = ╱4e╱N╱ // 0x7d1 @0x18
0x07b9…07dd at0019 = ╱41╱A╱ // 0x7d2 @0x19
0x07b9…07dd at001a = ╱56╱V╱ // 0x7d3 @0x1a
0x07b9…07dd at001b = ╱4e╱N╱ // 0x7d4 @0x1b
0x07b9…07dd at001c = ╱ef╱ $ ╱ // 0x7d5 @0x1c
0x07b9…07dd at001d = ╱ba╱ OF ╱ // 0x7d6 @0x1d
0x07b9…07dd at001e = ╱34╱4╱ // 0x7d7 @0x1e
0x07b9…07dd at001f = ╱30╱0╱ // 0x7d8 @0x1f
0x07b9…07dd at0020 = ╱f22800╱ // 0x7d9 @0x20
0x07b9…07dd at0023 = EOL // 0x7dc @0x23
0x07b9…07dd }
0x07dd…07f7 9de5 00660 REAL KTO_PRIMO , KTO_ULTIMO
0x07dd…07f7 LineComal80 {
0x07dd…07f7 ptr = 0x9de5 // 0x7dd @0x0
0x07dd…07f7 lno = 0x0294 // 0x7df @0x2
0x07dd…07f7 at0004 = ╱b3╱ REAL ╱ // 0x7e1 @0x4
0x07dd…07f7 at0005 = ╱4b╱K╱ // 0x7e2 @0x5
0x07dd…07f7 at0006 = ╱54╱T╱ // 0x7e3 @0x6
0x07dd…07f7 at0007 = ╱4f╱O╱ // 0x7e4 @0x7
0x07dd…07f7 at0008 = ╱5f╱_╱ // 0x7e5 @0x8
0x07dd…07f7 at0009 = ╱50╱P╱ // 0x7e6 @0x9
0x07dd…07f7 at000a = ╱52╱R╱ // 0x7e7 @0xa
0x07dd…07f7 at000b = ╱49╱I╱ // 0x7e8 @0xb
0x07dd…07f7 at000c = ╱4d╱M╱ // 0x7e9 @0xc
0x07dd…07f7 at000d = ╱4f╱O╱ // 0x7ea @0xd
0x07dd…07f7 at000e = ╱ec╱ , ╱ // 0x7eb @0xe
0x07dd…07f7 at000f = ╱4b╱K╱ // 0x7ec @0xf
0x07dd…07f7 at0010 = ╱54╱T╱ // 0x7ed @0x10
0x07dd…07f7 at0011 = ╱4f╱O╱ // 0x7ee @0x11
0x07dd…07f7 at0012 = ╱5f╱_╱ // 0x7ef @0x12
0x07dd…07f7 at0013 = ╱55╱U╱ // 0x7f0 @0x13
0x07dd…07f7 at0014 = ╱4c╱L╱ // 0x7f1 @0x14
0x07dd…07f7 at0015 = ╱54╱T╱ // 0x7f2 @0x15
0x07dd…07f7 at0016 = ╱49╱I╱ // 0x7f3 @0x16
0x07dd…07f7 at0017 = ╱4d╱M╱ // 0x7f4 @0x17
0x07dd…07f7 at0018 = ╱4f╱O╱ // 0x7f5 @0x18
0x07dd…07f7 at0019 = EOL // 0x7f6 @0x19
0x07dd…07f7 }
0x07f7…080a 9df8 00670 INTEGER KTO_FP , KTO_SP
0x07f7…080a LineComal80 {
0x07f7…080a ptr = 0x9df8 // 0x7f7 @0x0
0x07f7…080a lno = 0x029e // 0x7f9 @0x2
0x07f7…080a at0004 = ╱b2╱ INTEGER ╱ // 0x7fb @0x4
0x07f7…080a at0005 = ╱4b╱K╱ // 0x7fc @0x5
0x07f7…080a at0006 = ╱54╱T╱ // 0x7fd @0x6
0x07f7…080a at0007 = ╱4f╱O╱ // 0x7fe @0x7
0x07f7…080a at0008 = ╱5f╱_╱ // 0x7ff @0x8
0x07f7…080a at0009 = ╱46╱F╱ // 0x800 @0x9
0x07f7…080a at000a = ╱50╱P╱ // 0x801 @0xa
0x07f7…080a at000b = ╱ec╱ , ╱ // 0x802 @0xb
0x07f7…080a at000c = ╱4b╱K╱ // 0x803 @0xc
0x07f7…080a at000d = ╱54╱T╱ // 0x804 @0xd
0x07f7…080a at000e = ╱4f╱O╱ // 0x805 @0xe
0x07f7…080a at000f = ╱5f╱_╱ // 0x806 @0xf
0x07f7…080a at0010 = ╱53╱S╱ // 0x807 @0x10
0x07f7…080a at0011 = ╱50╱P╱ // 0x808 @0x11
0x07f7…080a at0012 = EOL // 0x809 @0x12
0x07f7…080a }
0x080a…082b 9e19 00680 // Variable…til…filen…@@KTOIDX
0x080a…082b LineComal80 {
0x080a…082b ptr = 0x9e19 // 0x80a @0x0
0x080a…082b lno = 0x02a8 // 0x80c @0x2
0x080a…082b at0004 = ╱89╱ // ╱ // 0x80e @0x4
0x080a…082b at0005 = ╱56╱V╱ // 0x80f @0x5
0x080a…082b at0006 = ╱61╱a╱ // 0x810 @0x6
0x080a…082b at0007 = ╱72╱r╱ // 0x811 @0x7
0x080a…082b at0008 = ╱69╱i╱ // 0x812 @0x8
0x080a…082b at0009 = ╱61╱a╱ // 0x813 @0x9
0x080a…082b at000a = ╱62╱b╱ // 0x814 @0xa
0x080a…082b at000b = ╱6c╱l╱ // 0x815 @0xb
0x080a…082b at000c = ╱65╱e╱ // 0x816 @0xc
0x080a…082b at000d = ╱20╱…╱ // 0x817 @0xd
0x080a…082b at000e = ╱74╱t╱ // 0x818 @0xe
0x080a…082b at000f = ╱69╱i╱ // 0x819 @0xf
0x080a…082b at0010 = ╱6c╱l╱ // 0x81a @0x10
0x080a…082b at0011 = ╱20╱…╱ // 0x81b @0x11
0x080a…082b at0012 = ╱66╱f╱ // 0x81c @0x12
0x080a…082b at0013 = ╱69╱i╱ // 0x81d @0x13
0x080a…082b at0014 = ╱6c╱l╱ // 0x81e @0x14
0x080a…082b at0015 = ╱65╱e╱ // 0x81f @0x15
0x080a…082b at0016 = ╱6e╱n╱ // 0x820 @0x16
0x080a…082b at0017 = ╱20╱…╱ // 0x821 @0x17
0x080a…082b at0018 = ╱40╱@╱ // 0x822 @0x18
0x080a…082b at0019 = ╱40╱@╱ // 0x823 @0x19
0x080a…082b at001a = ╱4b╱K╱ // 0x824 @0x1a
0x080a…082b at001b = ╱54╱T╱ // 0x825 @0x1b
0x080a…082b at001c = ╱4f╱O╱ // 0x826 @0x1c
0x080a…082b at001d = ╱49╱I╱ // 0x827 @0x1d
0x080a…082b at001e = ╱44╱D╱ // 0x828 @0x1e
0x080a…082b at001f = ╱58╱X╱ // 0x829 @0x1f
0x080a…082b at0020 = EOL // 0x82a @0x20
0x080a…082b }
0x082b…083e 9e2c 00690 DIM KTOIDX $ OF 17
0x082b…083e LineComal80 {
0x082b…083e ptr = 0x9e2c // 0x82b @0x0
0x082b…083e lno = 0x02b2 // 0x82d @0x2
0x082b…083e at0004 = ╱87╱ DIM ╱ // 0x82f @0x4
0x082b…083e at0005 = ╱4b╱K╱ // 0x830 @0x5
0x082b…083e at0006 = ╱54╱T╱ // 0x831 @0x6
0x082b…083e at0007 = ╱4f╱O╱ // 0x832 @0x7
0x082b…083e at0008 = ╱49╱I╱ // 0x833 @0x8
0x082b…083e at0009 = ╱44╱D╱ // 0x834 @0x9
0x082b…083e at000a = ╱58╱X╱ // 0x835 @0xa
0x082b…083e at000b = ╱ef╱ $ ╱ // 0x836 @0xb
0x082b…083e at000c = ╱ba╱ OF ╱ // 0x837 @0xc
0x082b…083e at000d = ╱31╱1╱ // 0x838 @0xd
0x082b…083e at000e = ╱37╱7╱ // 0x839 @0xe
0x082b…083e at000f = ╱f21100╱ // 0x83a @0xf
0x082b…083e at0012 = EOL // 0x83d @0x12
0x082b…083e }
0x083e…0855 9e43 00700 INTEGER I_H\JREC , I_MAXREC
0x083e…0855 LineComal80 {
0x083e…0855 ptr = 0x9e43 // 0x83e @0x0
0x083e…0855 lno = 0x02bc // 0x840 @0x2
0x083e…0855 at0004 = ╱b2╱ INTEGER ╱ // 0x842 @0x4
0x083e…0855 at0005 = ╱49╱I╱ // 0x843 @0x5
0x083e…0855 at0006 = ╱5f╱_╱ // 0x844 @0x6
0x083e…0855 at0007 = ╱48╱H╱ // 0x845 @0x7
0x083e…0855 at0008 = ╱5c╱\╱ // 0x846 @0x8
0x083e…0855 at0009 = ╱4a╱J╱ // 0x847 @0x9
0x083e…0855 at000a = ╱52╱R╱ // 0x848 @0xa
0x083e…0855 at000b = ╱45╱E╱ // 0x849 @0xb
0x083e…0855 at000c = ╱43╱C╱ // 0x84a @0xc
0x083e…0855 at000d = ╱ec╱ , ╱ // 0x84b @0xd
0x083e…0855 at000e = ╱49╱I╱ // 0x84c @0xe
0x083e…0855 at000f = ╱5f╱_╱ // 0x84d @0xf
0x083e…0855 at0010 = ╱4d╱M╱ // 0x84e @0x10
0x083e…0855 at0011 = ╱41╱A╱ // 0x84f @0x11
0x083e…0855 at0012 = ╱58╱X╱ // 0x850 @0x12
0x083e…0855 at0013 = ╱52╱R╱ // 0x851 @0x13
0x083e…0855 at0014 = ╱45╱E╱ // 0x852 @0x14
0x083e…0855 at0015 = ╱43╱C╱ // 0x853 @0x15
0x083e…0855 at0016 = EOL // 0x854 @0x16
0x083e…0855 }
0x0855…0866 9e54 00710 DIM KTONR $ OF 8
0x0855…0866 LineComal80 {
0x0855…0866 ptr = 0x9e54 // 0x855 @0x0
0x0855…0866 lno = 0x02c6 // 0x857 @0x2
0x0855…0866 at0004 = ╱87╱ DIM ╱ // 0x859 @0x4
0x0855…0866 at0005 = ╱4b╱K╱ // 0x85a @0x5
0x0855…0866 at0006 = ╱54╱T╱ // 0x85b @0x6
0x0855…0866 at0007 = ╱4f╱O╱ // 0x85c @0x7
0x0855…0866 at0008 = ╱4e╱N╱ // 0x85d @0x8
0x0855…0866 at0009 = ╱52╱R╱ // 0x85e @0x9
0x0855…0866 at000a = ╱ef╱ $ ╱ // 0x85f @0xa
0x0855…0866 at000b = ╱ba╱ OF ╱ // 0x860 @0xb
0x0855…0866 at000c = ╱38╱8╱ // 0x861 @0xc
0x0855…0866 at000d = ╱f20800╱ // 0x862 @0xd
0x0855…0866 at0010 = EOL // 0x865 @0x10
0x0855…0866 }
0x0866…0871 9e5f 00720 INTEGER RECNR
0x0866…0871 LineComal80 {
0x0866…0871 ptr = 0x9e5f // 0x866 @0x0
0x0866…0871 lno = 0x02d0 // 0x868 @0x2
0x0866…0871 at0004 = ╱b2╱ INTEGER ╱ // 0x86a @0x4
0x0866…0871 at0005 = ╱52╱R╱ // 0x86b @0x5
0x0866…0871 at0006 = ╱45╱E╱ // 0x86c @0x6
0x0866…0871 at0007 = ╱43╱C╱ // 0x86d @0x7
0x0866…0871 at0008 = ╱4e╱N╱ // 0x86e @0x8
0x0866…0871 at0009 = ╱52╱R╱ // 0x86f @0x9
0x0866…0871 at000a = EOL // 0x870 @0xa
0x0866…0871 }
0x0871…0892 9e80 00730 // Variable…til…filen…@@FKTONR
0x0871…0892 LineComal80 {
0x0871…0892 ptr = 0x9e80 // 0x871 @0x0
0x0871…0892 lno = 0x02da // 0x873 @0x2
0x0871…0892 at0004 = ╱89╱ // ╱ // 0x875 @0x4
0x0871…0892 at0005 = ╱56╱V╱ // 0x876 @0x5
0x0871…0892 at0006 = ╱61╱a╱ // 0x877 @0x6
0x0871…0892 at0007 = ╱72╱r╱ // 0x878 @0x7
0x0871…0892 at0008 = ╱69╱i╱ // 0x879 @0x8
0x0871…0892 at0009 = ╱61╱a╱ // 0x87a @0x9
0x0871…0892 at000a = ╱62╱b╱ // 0x87b @0xa
0x0871…0892 at000b = ╱6c╱l╱ // 0x87c @0xb
0x0871…0892 at000c = ╱65╱e╱ // 0x87d @0xc
0x0871…0892 at000d = ╱20╱…╱ // 0x87e @0xd
0x0871…0892 at000e = ╱74╱t╱ // 0x87f @0xe
0x0871…0892 at000f = ╱69╱i╱ // 0x880 @0xf
0x0871…0892 at0010 = ╱6c╱l╱ // 0x881 @0x10
0x0871…0892 at0011 = ╱20╱…╱ // 0x882 @0x11
0x0871…0892 at0012 = ╱66╱f╱ // 0x883 @0x12
0x0871…0892 at0013 = ╱69╱i╱ // 0x884 @0x13
0x0871…0892 at0014 = ╱6c╱l╱ // 0x885 @0x14
0x0871…0892 at0015 = ╱65╱e╱ // 0x886 @0x15
0x0871…0892 at0016 = ╱6e╱n╱ // 0x887 @0x16
0x0871…0892 at0017 = ╱20╱…╱ // 0x888 @0x17
0x0871…0892 at0018 = ╱40╱@╱ // 0x889 @0x18
0x0871…0892 at0019 = ╱40╱@╱ // 0x88a @0x19
0x0871…0892 at001a = ╱46╱F╱ // 0x88b @0x1a
0x0871…0892 at001b = ╱4b╱K╱ // 0x88c @0x1b
0x0871…0892 at001c = ╱54╱T╱ // 0x88d @0x1c
0x0871…0892 at001d = ╱4f╱O╱ // 0x88e @0x1d
0x0871…0892 at001e = ╱4e╱N╱ // 0x88f @0x1e
0x0871…0892 at001f = ╱52╱R╱ // 0x890 @0x1f
0x0871…0892 at0020 = EOL // 0x891 @0x20
0x0871…0892 }
0x0892…08a5 9e93 00740 DIM FKTONR $ OF 17
0x0892…08a5 LineComal80 {
0x0892…08a5 ptr = 0x9e93 // 0x892 @0x0
0x0892…08a5 lno = 0x02e4 // 0x894 @0x2
0x0892…08a5 at0004 = ╱87╱ DIM ╱ // 0x896 @0x4
0x0892…08a5 at0005 = ╱46╱F╱ // 0x897 @0x5
0x0892…08a5 at0006 = ╱4b╱K╱ // 0x898 @0x6
0x0892…08a5 at0007 = ╱54╱T╱ // 0x899 @0x7
0x0892…08a5 at0008 = ╱4f╱O╱ // 0x89a @0x8
0x0892…08a5 at0009 = ╱4e╱N╱ // 0x89b @0x9
0x0892…08a5 at000a = ╱52╱R╱ // 0x89c @0xa
0x0892…08a5 at000b = ╱ef╱ $ ╱ // 0x89d @0xb
0x0892…08a5 at000c = ╱ba╱ OF ╱ // 0x89e @0xc
0x0892…08a5 at000d = ╱31╱1╱ // 0x89f @0xd
0x0892…08a5 at000e = ╱37╱7╱ // 0x8a0 @0xe
0x0892…08a5 at000f = ╱f21100╱ // 0x8a1 @0xf
0x0892…08a5 at0012 = EOL // 0x8a4 @0x12
0x0892…08a5 }
0x08a5…08ef 9edd 00750 DIM BAL_KTO $ OF 8 , RES_KTO $ OF 8 , BALANCE $ OF 8 , PRIVATF $ OF 8 , OVERSK $ OF 8
0x08a5…08ef LineComal80 {
0x08a5…08ef ptr = 0x9edd // 0x8a5 @0x0
0x08a5…08ef lno = 0x02ee // 0x8a7 @0x2
0x08a5…08ef at0004 = ╱87╱ DIM ╱ // 0x8a9 @0x4
0x08a5…08ef at0005 = ╱42╱B╱ // 0x8aa @0x5
0x08a5…08ef at0006 = ╱41╱A╱ // 0x8ab @0x6
0x08a5…08ef at0007 = ╱4c╱L╱ // 0x8ac @0x7
0x08a5…08ef at0008 = ╱5f╱_╱ // 0x8ad @0x8
0x08a5…08ef at0009 = ╱4b╱K╱ // 0x8ae @0x9
0x08a5…08ef at000a = ╱54╱T╱ // 0x8af @0xa
0x08a5…08ef at000b = ╱4f╱O╱ // 0x8b0 @0xb
0x08a5…08ef at000c = ╱ef╱ $ ╱ // 0x8b1 @0xc
0x08a5…08ef at000d = ╱ba╱ OF ╱ // 0x8b2 @0xd
0x08a5…08ef at000e = ╱38╱8╱ // 0x8b3 @0xe
0x08a5…08ef at000f = ╱f20800╱ // 0x8b4 @0xf
0x08a5…08ef at0012 = ╱ec╱ , ╱ // 0x8b7 @0x12
0x08a5…08ef at0013 = ╱52╱R╱ // 0x8b8 @0x13
0x08a5…08ef at0014 = ╱45╱E╱ // 0x8b9 @0x14
0x08a5…08ef at0015 = ╱53╱S╱ // 0x8ba @0x15
0x08a5…08ef at0016 = ╱5f╱_╱ // 0x8bb @0x16
0x08a5…08ef at0017 = ╱4b╱K╱ // 0x8bc @0x17
0x08a5…08ef at0018 = ╱54╱T╱ // 0x8bd @0x18
0x08a5…08ef at0019 = ╱4f╱O╱ // 0x8be @0x19
0x08a5…08ef at001a = ╱ef╱ $ ╱ // 0x8bf @0x1a
0x08a5…08ef at001b = ╱ba╱ OF ╱ // 0x8c0 @0x1b
0x08a5…08ef at001c = ╱38╱8╱ // 0x8c1 @0x1c
0x08a5…08ef at001d = ╱f20800╱ // 0x8c2 @0x1d
0x08a5…08ef at0020 = ╱ec╱ , ╱ // 0x8c5 @0x20
0x08a5…08ef at0021 = ╱42╱B╱ // 0x8c6 @0x21
0x08a5…08ef at0022 = ╱41╱A╱ // 0x8c7 @0x22
0x08a5…08ef at0023 = ╱4c╱L╱ // 0x8c8 @0x23
0x08a5…08ef at0024 = ╱41╱A╱ // 0x8c9 @0x24
0x08a5…08ef at0025 = ╱4e╱N╱ // 0x8ca @0x25
0x08a5…08ef at0026 = ╱43╱C╱ // 0x8cb @0x26
0x08a5…08ef at0027 = ╱45╱E╱ // 0x8cc @0x27
0x08a5…08ef at0028 = ╱ef╱ $ ╱ // 0x8cd @0x28
0x08a5…08ef at0029 = ╱ba╱ OF ╱ // 0x8ce @0x29
0x08a5…08ef at002a = ╱38╱8╱ // 0x8cf @0x2a
0x08a5…08ef at002b = ╱f20800╱ // 0x8d0 @0x2b
0x08a5…08ef at002e = ╱ec╱ , ╱ // 0x8d3 @0x2e
0x08a5…08ef at002f = ╱50╱P╱ // 0x8d4 @0x2f
0x08a5…08ef at0030 = ╱52╱R╱ // 0x8d5 @0x30
0x08a5…08ef at0031 = ╱49╱I╱ // 0x8d6 @0x31
0x08a5…08ef at0032 = ╱56╱V╱ // 0x8d7 @0x32
0x08a5…08ef at0033 = ╱41╱A╱ // 0x8d8 @0x33
0x08a5…08ef at0034 = ╱54╱T╱ // 0x8d9 @0x34
0x08a5…08ef at0035 = ╱46╱F╱ // 0x8da @0x35
0x08a5…08ef at0036 = ╱ef╱ $ ╱ // 0x8db @0x36
0x08a5…08ef at0037 = ╱ba╱ OF ╱ // 0x8dc @0x37
0x08a5…08ef at0038 = ╱38╱8╱ // 0x8dd @0x38
0x08a5…08ef at0039 = ╱f20800╱ // 0x8de @0x39
0x08a5…08ef at003c = ╱ec╱ , ╱ // 0x8e1 @0x3c
0x08a5…08ef at003d = ╱4f╱O╱ // 0x8e2 @0x3d
0x08a5…08ef at003e = ╱56╱V╱ // 0x8e3 @0x3e
0x08a5…08ef at003f = ╱45╱E╱ // 0x8e4 @0x3f
0x08a5…08ef at0040 = ╱52╱R╱ // 0x8e5 @0x40
0x08a5…08ef at0041 = ╱53╱S╱ // 0x8e6 @0x41
0x08a5…08ef at0042 = ╱4b╱K╱ // 0x8e7 @0x42
0x08a5…08ef at0043 = ╱ef╱ $ ╱ // 0x8e8 @0x43
0x08a5…08ef at0044 = ╱ba╱ OF ╱ // 0x8e9 @0x44
0x08a5…08ef at0045 = ╱38╱8╱ // 0x8ea @0x45
0x08a5…08ef at0046 = ╱f20800╱ // 0x8eb @0x46
0x08a5…08ef at0049 = EOL // 0x8ee @0x49
0x08a5…08ef }
0x08ef…0917 9f05 00760 DIM INDMOMS_KTO $ OF 8 , UDMOMS_KTO $ OF 8
0x08ef…0917 LineComal80 {
0x08ef…0917 ptr = 0x9f05 // 0x8ef @0x0
0x08ef…0917 lno = 0x02f8 // 0x8f1 @0x2
0x08ef…0917 at0004 = ╱87╱ DIM ╱ // 0x8f3 @0x4
0x08ef…0917 at0005 = ╱49╱I╱ // 0x8f4 @0x5
0x08ef…0917 at0006 = ╱4e╱N╱ // 0x8f5 @0x6
0x08ef…0917 at0007 = ╱44╱D╱ // 0x8f6 @0x7
0x08ef…0917 at0008 = ╱4d╱M╱ // 0x8f7 @0x8
0x08ef…0917 at0009 = ╱4f╱O╱ // 0x8f8 @0x9
0x08ef…0917 at000a = ╱4d╱M╱ // 0x8f9 @0xa
0x08ef…0917 at000b = ╱53╱S╱ // 0x8fa @0xb
0x08ef…0917 at000c = ╱5f╱_╱ // 0x8fb @0xc
0x08ef…0917 at000d = ╱4b╱K╱ // 0x8fc @0xd
0x08ef…0917 at000e = ╱54╱T╱ // 0x8fd @0xe
0x08ef…0917 at000f = ╱4f╱O╱ // 0x8fe @0xf
0x08ef…0917 at0010 = ╱ef╱ $ ╱ // 0x8ff @0x10
0x08ef…0917 at0011 = ╱ba╱ OF ╱ // 0x900 @0x11
0x08ef…0917 at0012 = ╱38╱8╱ // 0x901 @0x12
0x08ef…0917 at0013 = ╱f20800╱ // 0x902 @0x13
0x08ef…0917 at0016 = ╱ec╱ , ╱ // 0x905 @0x16
0x08ef…0917 at0017 = ╱55╱U╱ // 0x906 @0x17
0x08ef…0917 at0018 = ╱44╱D╱ // 0x907 @0x18
0x08ef…0917 at0019 = ╱4d╱M╱ // 0x908 @0x19
0x08ef…0917 at001a = ╱4f╱O╱ // 0x909 @0x1a
0x08ef…0917 at001b = ╱4d╱M╱ // 0x90a @0x1b
0x08ef…0917 at001c = ╱53╱S╱ // 0x90b @0x1c
0x08ef…0917 at001d = ╱5f╱_╱ // 0x90c @0x1d
0x08ef…0917 at001e = ╱4b╱K╱ // 0x90d @0x1e
0x08ef…0917 at001f = ╱54╱T╱ // 0x90e @0x1f
0x08ef…0917 at0020 = ╱4f╱O╱ // 0x90f @0x20
0x08ef…0917 at0021 = ╱ef╱ $ ╱ // 0x910 @0x21
0x08ef…0917 at0022 = ╱ba╱ OF ╱ // 0x911 @0x22
0x08ef…0917 at0023 = ╱38╱8╱ // 0x912 @0x23
0x08ef…0917 at0024 = ╱f20800╱ // 0x913 @0x24
0x08ef…0917 at0027 = EOL // 0x916 @0x27
0x08ef…0917 }
0x0917…0938 9f26 00770 // Variable…til…filen…@@KTOGRP
0x0917…0938 LineComal80 {
0x0917…0938 ptr = 0x9f26 // 0x917 @0x0
0x0917…0938 lno = 0x0302 // 0x919 @0x2
0x0917…0938 at0004 = ╱89╱ // ╱ // 0x91b @0x4
0x0917…0938 at0005 = ╱56╱V╱ // 0x91c @0x5
0x0917…0938 at0006 = ╱61╱a╱ // 0x91d @0x6
0x0917…0938 at0007 = ╱72╱r╱ // 0x91e @0x7
0x0917…0938 at0008 = ╱69╱i╱ // 0x91f @0x8
0x0917…0938 at0009 = ╱61╱a╱ // 0x920 @0x9
0x0917…0938 at000a = ╱62╱b╱ // 0x921 @0xa
0x0917…0938 at000b = ╱6c╱l╱ // 0x922 @0xb
0x0917…0938 at000c = ╱65╱e╱ // 0x923 @0xc
0x0917…0938 at000d = ╱20╱…╱ // 0x924 @0xd
0x0917…0938 at000e = ╱74╱t╱ // 0x925 @0xe
0x0917…0938 at000f = ╱69╱i╱ // 0x926 @0xf
0x0917…0938 at0010 = ╱6c╱l╱ // 0x927 @0x10
0x0917…0938 at0011 = ╱20╱…╱ // 0x928 @0x11
0x0917…0938 at0012 = ╱66╱f╱ // 0x929 @0x12
0x0917…0938 at0013 = ╱69╱i╱ // 0x92a @0x13
0x0917…0938 at0014 = ╱6c╱l╱ // 0x92b @0x14
0x0917…0938 at0015 = ╱65╱e╱ // 0x92c @0x15
0x0917…0938 at0016 = ╱6e╱n╱ // 0x92d @0x16
0x0917…0938 at0017 = ╱20╱…╱ // 0x92e @0x17
0x0917…0938 at0018 = ╱40╱@╱ // 0x92f @0x18
0x0917…0938 at0019 = ╱40╱@╱ // 0x930 @0x19
0x0917…0938 at001a = ╱4b╱K╱ // 0x931 @0x1a
0x0917…0938 at001b = ╱54╱T╱ // 0x932 @0x1b
0x0917…0938 at001c = ╱4f╱O╱ // 0x933 @0x1c
0x0917…0938 at001d = ╱47╱G╱ // 0x934 @0x1d
0x0917…0938 at001e = ╱52╱R╱ // 0x935 @0x1e
0x0917…0938 at001f = ╱50╱P╱ // 0x936 @0x1f
0x0917…0938 at0020 = EOL // 0x937 @0x20
0x0917…0938 }
0x0938…094b 9f39 00780 DIM KTOGRP $ OF 17
0x0938…094b LineComal80 {
0x0938…094b ptr = 0x9f39 // 0x938 @0x0
0x0938…094b lno = 0x030c // 0x93a @0x2
0x0938…094b at0004 = ╱87╱ DIM ╱ // 0x93c @0x4
0x0938…094b at0005 = ╱4b╱K╱ // 0x93d @0x5
0x0938…094b at0006 = ╱54╱T╱ // 0x93e @0x6
0x0938…094b at0007 = ╱4f╱O╱ // 0x93f @0x7
0x0938…094b at0008 = ╱47╱G╱ // 0x940 @0x8
0x0938…094b at0009 = ╱52╱R╱ // 0x941 @0x9
0x0938…094b at000a = ╱50╱P╱ // 0x942 @0xa
0x0938…094b at000b = ╱ef╱ $ ╱ // 0x943 @0xb
0x0938…094b at000c = ╱ba╱ OF ╱ // 0x944 @0xc
0x0938…094b at000d = ╱31╱1╱ // 0x945 @0xd
0x0938…094b at000e = ╱37╱7╱ // 0x946 @0xe
0x0938…094b at000f = ╱f21100╱ // 0x947 @0xf
0x0938…094b at0012 = EOL // 0x94a @0x12
0x0938…094b }
0x094b…096b 9f59 00790 DIM KREDGRP $ OF 8 , DEBGRP $ OF 8
0x094b…096b LineComal80 {
0x094b…096b ptr = 0x9f59 // 0x94b @0x0
0x094b…096b lno = 0x0316 // 0x94d @0x2
0x094b…096b at0004 = ╱87╱ DIM ╱ // 0x94f @0x4
0x094b…096b at0005 = ╱4b╱K╱ // 0x950 @0x5
0x094b…096b at0006 = ╱52╱R╱ // 0x951 @0x6
0x094b…096b at0007 = ╱45╱E╱ // 0x952 @0x7
0x094b…096b at0008 = ╱44╱D╱ // 0x953 @0x8
0x094b…096b at0009 = ╱47╱G╱ // 0x954 @0x9
0x094b…096b at000a = ╱52╱R╱ // 0x955 @0xa
0x094b…096b at000b = ╱50╱P╱ // 0x956 @0xb
0x094b…096b at000c = ╱ef╱ $ ╱ // 0x957 @0xc
0x094b…096b at000d = ╱ba╱ OF ╱ // 0x958 @0xd
0x094b…096b at000e = ╱38╱8╱ // 0x959 @0xe
0x094b…096b at000f = ╱f20800╱ // 0x95a @0xf
0x094b…096b at0012 = ╱ec╱ , ╱ // 0x95d @0x12
0x094b…096b at0013 = ╱44╱D╱ // 0x95e @0x13
0x094b…096b at0014 = ╱45╱E╱ // 0x95f @0x14
0x094b…096b at0015 = ╱42╱B╱ // 0x960 @0x15
0x094b…096b at0016 = ╱47╱G╱ // 0x961 @0x16
0x094b…096b at0017 = ╱52╱R╱ // 0x962 @0x17
0x094b…096b at0018 = ╱50╱P╱ // 0x963 @0x18
0x094b…096b at0019 = ╱ef╱ $ ╱ // 0x964 @0x19
0x094b…096b at001a = ╱ba╱ OF ╱ // 0x965 @0x1a
0x094b…096b at001b = ╱38╱8╱ // 0x966 @0x1b
0x094b…096b at001c = ╱f20800╱ // 0x967 @0x1c
0x094b…096b at001f = EOL // 0x96a @0x1f
0x094b…096b }
0x096b…097c 9f6a 00800 ENDPROC DIMENSIONER
0x096b…097c LineComal80 {
0x096b…097c ptr = 0x9f6a // 0x96b @0x0
0x096b…097c lno = 0x0320 // 0x96d @0x2
0x096b…097c at0004 = ╱9f╱ ENDPROC ╱ // 0x96f @0x4
0x096b…097c at0005 = ╱44╱D╱ // 0x970 @0x5
0x096b…097c at0006 = ╱49╱I╱ // 0x971 @0x6
0x096b…097c at0007 = ╱4d╱M╱ // 0x972 @0x7
0x096b…097c at0008 = ╱45╱E╱ // 0x973 @0x8
0x096b…097c at0009 = ╱4e╱N╱ // 0x974 @0x9
0x096b…097c at000a = ╱53╱S╱ // 0x975 @0xa
0x096b…097c at000b = ╱49╱I╱ // 0x976 @0xb
0x096b…097c at000c = ╱4f╱O╱ // 0x977 @0xc
0x096b…097c at000d = ╱4e╱N╱ // 0x978 @0xd
0x096b…097c at000e = ╱45╱E╱ // 0x979 @0xe
0x096b…097c at000f = ╱52╱R╱ // 0x97a @0xf
0x096b…097c at0010 = EOL // 0x97b @0x10
0x096b…097c }
0x097c…0981 9f6f 00810
0x097c…0981 LineComal80 {
0x097c…0981 ptr = 0x9f6f // 0x97c @0x0
0x097c…0981 lno = 0x032a // 0x97e @0x2
0x097c…0981 at0004 = EOL // 0x980 @0x4
0x097c…0981 }
0x0981…098f 9f7d 00820 PROC INITIER
0x0981…098f LineComal80 {
0x0981…098f ptr = 0x9f7d // 0x981 @0x0
0x0981…098f lno = 0x0334 // 0x983 @0x2
0x0981…098f at0004 = ╱9e00╱ PROC ╱ // 0x985 @0x4
0x0981…098f at0006 = ╱49╱I╱ // 0x987 @0x6
0x0981…098f at0007 = ╱4e╱N╱ // 0x988 @0x7
0x0981…098f at0008 = ╱49╱I╱ // 0x989 @0x8
0x0981…098f at0009 = ╱54╱T╱ // 0x98a @0x9
0x0981…098f at000a = ╱49╱I╱ // 0x98b @0xa
0x0981…098f at000b = ╱45╱E╱ // 0x98c @0xb
0x0981…098f at000c = ╱52╱R╱ // 0x98d @0xc
0x0981…098f at000d = EOL // 0x98e @0xd
0x0981…098f }
0x098f…09a1 9f8f 00830 LET PRGFL $ := "DP2"
0x098f…09a1 LineComal80 {
0x098f…09a1 ptr = 0x9f8f // 0x98f @0x0
0x098f…09a1 lno = 0x033e // 0x991 @0x2
0x098f…09a1 at0004 = ╱86╱ LET ╱ // 0x993 @0x4
0x098f…09a1 at0005 = ╱50╱P╱ // 0x994 @0x5
0x098f…09a1 at0006 = ╱52╱R╱ // 0x995 @0x6
0x098f…09a1 at0007 = ╱47╱G╱ // 0x996 @0x7
0x098f…09a1 at0008 = ╱46╱F╱ // 0x997 @0x8
0x098f…09a1 at0009 = ╱4c╱L╱ // 0x998 @0x9
0x098f…09a1 at000a = ╱ef╱ $ ╱ // 0x999 @0xa
0x098f…09a1 at000b = ╱f0╱ := ╱ // 0x99a @0xb
0x098f…09a1 at000c = ╱22╱"╱ // 0x99b @0xc
0x098f…09a1 at000d = ╱44╱D╱ // 0x99c @0xd
0x098f…09a1 at000e = ╱50╱P╱ // 0x99d @0xe
0x098f…09a1 at000f = ╱32╱2╱ // 0x99e @0xf
0x098f…09a1 at0010 = ╱22╱"╱ // 0x99f @0x10
0x098f…09a1 at0011 = EOL // 0x9a0 @0x11
0x098f…09a1 }
0x09a1…09be 9fac 00840 LET PROGRAM $ := PRGFL $ + ":SYSA"
0x09a1…09be LineComal80 {
0x09a1…09be ptr = 0x9fac // 0x9a1 @0x0
0x09a1…09be lno = 0x0348 // 0x9a3 @0x2
0x09a1…09be at0004 = ╱86╱ LET ╱ // 0x9a5 @0x4
0x09a1…09be at0005 = ╱50╱P╱ // 0x9a6 @0x5
0x09a1…09be at0006 = ╱52╱R╱ // 0x9a7 @0x6
0x09a1…09be at0007 = ╱4f╱O╱ // 0x9a8 @0x7
0x09a1…09be at0008 = ╱47╱G╱ // 0x9a9 @0x8
0x09a1…09be at0009 = ╱52╱R╱ // 0x9aa @0x9
0x09a1…09be at000a = ╱41╱A╱ // 0x9ab @0xa
0x09a1…09be at000b = ╱4d╱M╱ // 0x9ac @0xb
0x09a1…09be at000c = ╱ef╱ $ ╱ // 0x9ad @0xc
0x09a1…09be at000d = ╱f0╱ := ╱ // 0x9ae @0xd
0x09a1…09be at000e = ╱50╱P╱ // 0x9af @0xe
0x09a1…09be at000f = ╱52╱R╱ // 0x9b0 @0xf
0x09a1…09be at0010 = ╱47╱G╱ // 0x9b1 @0x10
0x09a1…09be at0011 = ╱46╱F╱ // 0x9b2 @0x11
0x09a1…09be at0012 = ╱4c╱L╱ // 0x9b3 @0x12
0x09a1…09be at0013 = ╱ef╱ $ ╱ // 0x9b4 @0x13
0x09a1…09be at0014 = ╱eb╱ + ╱ // 0x9b5 @0x14
0x09a1…09be at0015 = ╱22╱"╱ // 0x9b6 @0x15
0x09a1…09be at0016 = ╱3a╱:╱ // 0x9b7 @0x16
0x09a1…09be at0017 = ╱53╱S╱ // 0x9b8 @0x17
0x09a1…09be at0018 = ╱59╱Y╱ // 0x9b9 @0x18
0x09a1…09be at0019 = ╱53╱S╱ // 0x9ba @0x19
0x09a1…09be at001a = ╱41╱A╱ // 0x9bb @0x1a
0x09a1…09be at001b = ╱22╱"╱ // 0x9bc @0x1b
0x09a1…09be at001c = EOL // 0x9bd @0x1c
0x09a1…09be }
0x09be…09d5 9fc3 00850 LET TAL $ := "0123456789"
0x09be…09d5 LineComal80 {
0x09be…09d5 ptr = 0x9fc3 // 0x9be @0x0
0x09be…09d5 lno = 0x0352 // 0x9c0 @0x2
0x09be…09d5 at0004 = ╱86╱ LET ╱ // 0x9c2 @0x4
0x09be…09d5 at0005 = ╱54╱T╱ // 0x9c3 @0x5
0x09be…09d5 at0006 = ╱41╱A╱ // 0x9c4 @0x6
0x09be…09d5 at0007 = ╱4c╱L╱ // 0x9c5 @0x7
0x09be…09d5 at0008 = ╱ef╱ $ ╱ // 0x9c6 @0x8
0x09be…09d5 at0009 = ╱f0╱ := ╱ // 0x9c7 @0x9
0x09be…09d5 at000a = ╱22╱"╱ // 0x9c8 @0xa
0x09be…09d5 at000b = ╱30╱0╱ // 0x9c9 @0xb
0x09be…09d5 at000c = ╱31╱1╱ // 0x9ca @0xc
0x09be…09d5 at000d = ╱32╱2╱ // 0x9cb @0xd
0x09be…09d5 at000e = ╱33╱3╱ // 0x9cc @0xe
0x09be…09d5 at000f = ╱34╱4╱ // 0x9cd @0xf
0x09be…09d5 at0010 = ╱35╱5╱ // 0x9ce @0x10
0x09be…09d5 at0011 = ╱36╱6╱ // 0x9cf @0x11
0x09be…09d5 at0012 = ╱37╱7╱ // 0x9d0 @0x12
0x09be…09d5 at0013 = ╱38╱8╱ // 0x9d1 @0x13
0x09be…09d5 at0014 = ╱39╱9╱ // 0x9d2 @0x14
0x09be…09d5 at0015 = ╱22╱"╱ // 0x9d3 @0x15
0x09be…09d5 at0016 = EOL // 0x9d4 @0x16
0x09be…09d5 }
0x09d5…09fd 9feb 00860 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
0x09d5…09fd LineComal80 {
0x09d5…09fd ptr = 0x9feb // 0x9d5 @0x0
0x09d5…09fd lno = 0x035c // 0x9d7 @0x2
0x09d5…09fd at0004 = ╱b400╱ FOR ╱ // 0x9d9 @0x4
0x09d5…09fd at0006 = ╱49╱I╱ // 0x9db @0x6
0x09d5…09fd at0007 = ╱f0╱ := ╱ // 0x9dc @0x7
0x09d5…09fd at0008 = ╱cc╱ // 0x9dd @0x8
0x09d5…09fd at0009 = ╱ed╱ ( ╱ // 0x9de @0x9
0x09d5…09fd at000a = ╱22╱"╱ // 0x9df @0xa
0x09d5…09fd at000b = ╱41╱A╱ // 0x9e0 @0xb
0x09d5…09fd at000c = ╱22╱"╱ // 0x9e1 @0xc
0x09d5…09fd at000d = ╱ee╱ ) ╱ // 0x9e2 @0xd
0x09d5…09fd at000e = ╱b7cc╱ TO ╱ // 0x9e3 @0xe
0x09d5…09fd at0010 = ╱ed╱ ( ╱ // 0x9e5 @0x10
0x09d5…09fd at0011 = ╱22╱"╱ // 0x9e6 @0x11
0x09d5…09fd at0012 = ╱5d╱]╱ // 0x9e7 @0x12
0x09d5…09fd at0013 = ╱22╱"╱ // 0x9e8 @0x13
0x09d5…09fd at0014 = ╱ee╱ ) ╱ // 0x9e9 @0x14
0x09d5…09fd at0015 = ╱bb╱ DO ╱ // 0x9ea @0x15
0x09d5…09fd at0016 = ╱86╱ LET ╱ // 0x9eb @0x16
0x09d5…09fd at0017 = ╱41╱A╱ // 0x9ec @0x17
0x09d5…09fd at0018 = ╱4c╱L╱ // 0x9ed @0x18
0x09d5…09fd at0019 = ╱46╱F╱ // 0x9ee @0x19
0x09d5…09fd at001a = ╱41╱A╱ // 0x9ef @0x1a
0x09d5…09fd at001b = ╱ef╱ $ ╱ // 0x9f0 @0x1b
0x09d5…09fd at001c = ╱f0╱ := ╱ // 0x9f1 @0x1c
0x09d5…09fd at001d = ╱41╱A╱ // 0x9f2 @0x1d
0x09d5…09fd at001e = ╱4c╱L╱ // 0x9f3 @0x1e
0x09d5…09fd at001f = ╱46╱F╱ // 0x9f4 @0x1f
0x09d5…09fd at0020 = ╱41╱A╱ // 0x9f5 @0x20
0x09d5…09fd at0021 = ╱ef╱ $ ╱ // 0x9f6 @0x21
0x09d5…09fd at0022 = ╱eb╱ + ╱ // 0x9f7 @0x22
0x09d5…09fd at0023 = ╱d0╱ CHR$ ╱ // 0x9f8 @0x23
0x09d5…09fd at0024 = ╱ed╱ ( ╱ // 0x9f9 @0x24
0x09d5…09fd at0025 = ╱49╱I╱ // 0x9fa @0x25
0x09d5…09fd at0026 = ╱ee╱ ) ╱ // 0x9fb @0x26
0x09d5…09fd at0027 = EOL // 0x9fc @0x27
0x09d5…09fd }
0x09fd…0a32 a020 00870 LET SPC $ := "…………………………………………………………………………………………………………"
0x09fd…0a32 LineComal80 {
0x09fd…0a32 ptr = 0xa020 // 0x9fd @0x0
0x09fd…0a32 lno = 0x0366 // 0x9ff @0x2
0x09fd…0a32 at0004 = ╱86╱ LET ╱ // 0xa01 @0x4
0x09fd…0a32 at0005 = ╱53╱S╱ // 0xa02 @0x5
0x09fd…0a32 at0006 = ╱50╱P╱ // 0xa03 @0x6
0x09fd…0a32 at0007 = ╱43╱C╱ // 0xa04 @0x7
0x09fd…0a32 at0008 = ╱ef╱ $ ╱ // 0xa05 @0x8
0x09fd…0a32 at0009 = ╱f0╱ := ╱ // 0xa06 @0x9
0x09fd…0a32 at000a = ╱22╱"╱ // 0xa07 @0xa
0x09fd…0a32 at000b = ╱20╱…╱ // 0xa08 @0xb
0x09fd…0a32 at000c = ╱20╱…╱ // 0xa09 @0xc
0x09fd…0a32 at000d = ╱20╱…╱ // 0xa0a @0xd
0x09fd…0a32 at000e = ╱20╱…╱ // 0xa0b @0xe
0x09fd…0a32 at000f = ╱20╱…╱ // 0xa0c @0xf
0x09fd…0a32 at0010 = ╱20╱…╱ // 0xa0d @0x10
0x09fd…0a32 at0011 = ╱20╱…╱ // 0xa0e @0x11
0x09fd…0a32 at0012 = ╱20╱…╱ // 0xa0f @0x12
0x09fd…0a32 at0013 = ╱20╱…╱ // 0xa10 @0x13
0x09fd…0a32 at0014 = ╱20╱…╱ // 0xa11 @0x14
0x09fd…0a32 at0015 = ╱20╱…╱ // 0xa12 @0x15
0x09fd…0a32 at0016 = ╱20╱…╱ // 0xa13 @0x16
0x09fd…0a32 at0017 = ╱20╱…╱ // 0xa14 @0x17
0x09fd…0a32 at0018 = ╱20╱…╱ // 0xa15 @0x18
0x09fd…0a32 at0019 = ╱20╱…╱ // 0xa16 @0x19
0x09fd…0a32 at001a = ╱20╱…╱ // 0xa17 @0x1a
0x09fd…0a32 at001b = ╱20╱…╱ // 0xa18 @0x1b
0x09fd…0a32 at001c = ╱20╱…╱ // 0xa19 @0x1c
0x09fd…0a32 at001d = ╱20╱…╱ // 0xa1a @0x1d
0x09fd…0a32 at001e = ╱20╱…╱ // 0xa1b @0x1e
0x09fd…0a32 at001f = ╱20╱…╱ // 0xa1c @0x1f
0x09fd…0a32 at0020 = ╱20╱…╱ // 0xa1d @0x20
0x09fd…0a32 at0021 = ╱20╱…╱ // 0xa1e @0x21
0x09fd…0a32 at0022 = ╱20╱…╱ // 0xa1f @0x22
0x09fd…0a32 at0023 = ╱20╱…╱ // 0xa20 @0x23
0x09fd…0a32 at0024 = ╱20╱…╱ // 0xa21 @0x24
0x09fd…0a32 at0025 = ╱20╱…╱ // 0xa22 @0x25
0x09fd…0a32 at0026 = ╱20╱…╱ // 0xa23 @0x26
0x09fd…0a32 at0027 = ╱20╱…╱ // 0xa24 @0x27
0x09fd…0a32 at0028 = ╱20╱…╱ // 0xa25 @0x28
0x09fd…0a32 at0029 = ╱20╱…╱ // 0xa26 @0x29
0x09fd…0a32 at002a = ╱20╱…╱ // 0xa27 @0x2a
0x09fd…0a32 at002b = ╱20╱…╱ // 0xa28 @0x2b
0x09fd…0a32 at002c = ╱20╱…╱ // 0xa29 @0x2c
0x09fd…0a32 at002d = ╱20╱…╱ // 0xa2a @0x2d
0x09fd…0a32 at002e = ╱20╱…╱ // 0xa2b @0x2e
0x09fd…0a32 at002f = ╱20╱…╱ // 0xa2c @0x2f
0x09fd…0a32 at0030 = ╱20╱…╱ // 0xa2d @0x30
0x09fd…0a32 at0031 = ╱20╱…╱ // 0xa2e @0x31
0x09fd…0a32 at0032 = ╱20╱…╱ // 0xa2f @0x32
0x09fd…0a32 at0033 = ╱22╱"╱ // 0xa30 @0x33
0x09fd…0a32 at0034 = EOL // 0xa31 @0x34
0x09fd…0a32 }
0x0a32…0a46 a034 00880 LET SPC $ := SPC $ + SPC $
0x0a32…0a46 LineComal80 {
0x0a32…0a46 ptr = 0xa034 // 0xa32 @0x0
0x0a32…0a46 lno = 0x0370 // 0xa34 @0x2
0x0a32…0a46 at0004 = ╱86╱ LET ╱ // 0xa36 @0x4
0x0a32…0a46 at0005 = ╱53╱S╱ // 0xa37 @0x5
0x0a32…0a46 at0006 = ╱50╱P╱ // 0xa38 @0x6
0x0a32…0a46 at0007 = ╱43╱C╱ // 0xa39 @0x7
0x0a32…0a46 at0008 = ╱ef╱ $ ╱ // 0xa3a @0x8
0x0a32…0a46 at0009 = ╱f0╱ := ╱ // 0xa3b @0x9
0x0a32…0a46 at000a = ╱53╱S╱ // 0xa3c @0xa
0x0a32…0a46 at000b = ╱50╱P╱ // 0xa3d @0xb
0x0a32…0a46 at000c = ╱43╱C╱ // 0xa3e @0xc
0x0a32…0a46 at000d = ╱ef╱ $ ╱ // 0xa3f @0xd
0x0a32…0a46 at000e = ╱eb╱ + ╱ // 0xa40 @0xe
0x0a32…0a46 at000f = ╱53╱S╱ // 0xa41 @0xf
0x0a32…0a46 at0010 = ╱50╱P╱ // 0xa42 @0x10
0x0a32…0a46 at0011 = ╱43╱C╱ // 0xa43 @0x11
0x0a32…0a46 at0012 = ╱ef╱ $ ╱ // 0xa44 @0x12
0x0a32…0a46 at0013 = EOL // 0xa45 @0x13
0x0a32…0a46 }
0x0a46…0a71 a05f 00890 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x0a46…0a71 LineComal80 {
0x0a46…0a71 ptr = 0xa05f // 0xa46 @0x0
0x0a46…0a71 lno = 0x037a // 0xa48 @0x2
0x0a46…0a71 at0004 = ╱86╱ LET ╱ // 0xa4a @0x4
0x0a46…0a71 at0005 = ╱46╱F╱ // 0xa4b @0x5
0x0a46…0a71 at0006 = ╱41╱A╱ // 0xa4c @0x6
0x0a46…0a71 at0007 = ╱4c╱L╱ // 0xa4d @0x7
0x0a46…0a71 at0008 = ╱53╱S╱ // 0xa4e @0x8
0x0a46…0a71 at0009 = ╱45╱E╱ // 0xa4f @0x9
0x0a46…0a71 at000a = ╱f0╱ := ╱ // 0xa50 @0xa
0x0a46…0a71 at000b = ╱30╱0╱ // 0xa51 @0xb
0x0a46…0a71 at000c = ╱f20000╱ // 0xa52 @0xc
0x0a46…0a71 at000f = ╱ea╱ ; ╱ // 0xa55 @0xf
0x0a46…0a71 at0010 = ╱54╱T╱ // 0xa56 @0x10
0x0a46…0a71 at0011 = ╱52╱R╱ // 0xa57 @0x11
0x0a46…0a71 at0012 = ╱55╱U╱ // 0xa58 @0x12
0x0a46…0a71 at0013 = ╱45╱E╱ // 0xa59 @0x13
0x0a46…0a71 at0014 = ╱f0╱ := ╱ // 0xa5a @0x14
0x0a46…0a71 at0015 = ╱31╱1╱ // 0xa5b @0x15
0x0a46…0a71 at0016 = ╱f20100╱ // 0xa5c @0x16
0x0a46…0a71 at0019 = ╱89╱ // ╱ // 0xa5f @0x19
0x0a46…0a71 at001a = ╱62╱b╱ // 0xa60 @0x1a
0x0a46…0a71 at001b = ╱6f╱o╱ // 0xa61 @0x1b
0x0a46…0a71 at001c = ╱6f╱o╱ // 0xa62 @0x1c
0x0a46…0a71 at001d = ╱6c╱l╱ // 0xa63 @0x1d
0x0a46…0a71 at001e = ╱73╱s╱ // 0xa64 @0x1e
0x0a46…0a71 at001f = ╱6b╱k╱ // 0xa65 @0x1f
0x0a46…0a71 at0020 = ╱65╱e╱ // 0xa66 @0x20
0x0a46…0a71 at0021 = ╱20╱…╱ // 0xa67 @0x21
0x0a46…0a71 at0022 = ╱76╱v╱ // 0xa68 @0x22
0x0a46…0a71 at0023 = ╱61╱a╱ // 0xa69 @0x23
0x0a46…0a71 at0024 = ╱72╱r╱ // 0xa6a @0x24
0x0a46…0a71 at0025 = ╱69╱i╱ // 0xa6b @0x25
0x0a46…0a71 at0026 = ╱61╱a╱ // 0xa6c @0x26
0x0a46…0a71 at0027 = ╱62╱b╱ // 0xa6d @0x27
0x0a46…0a71 at0028 = ╱6c╱l╱ // 0xa6e @0x28
0x0a46…0a71 at0029 = ╱65╱e╱ // 0xa6f @0x29
0x0a46…0a71 at002a = EOL // 0xa70 @0x2a
0x0a46…0a71 }
0x0a71…0a98 a086 00900 LET DEBET := 1 ; KREDIT := - 1 ; NULR := 0
0x0a71…0a98 LineComal80 {
0x0a71…0a98 ptr = 0xa086 // 0xa71 @0x0
0x0a71…0a98 lno = 0x0384 // 0xa73 @0x2
0x0a71…0a98 at0004 = ╱86╱ LET ╱ // 0xa75 @0x4
0x0a71…0a98 at0005 = ╱44╱D╱ // 0xa76 @0x5
0x0a71…0a98 at0006 = ╱45╱E╱ // 0xa77 @0x6
0x0a71…0a98 at0007 = ╱42╱B╱ // 0xa78 @0x7
0x0a71…0a98 at0008 = ╱45╱E╱ // 0xa79 @0x8
0x0a71…0a98 at0009 = ╱54╱T╱ // 0xa7a @0x9
0x0a71…0a98 at000a = ╱f0╱ := ╱ // 0xa7b @0xa
0x0a71…0a98 at000b = ╱31╱1╱ // 0xa7c @0xb
0x0a71…0a98 at000c = ╱f20100╱ // 0xa7d @0xc
0x0a71…0a98 at000f = ╱ea╱ ; ╱ // 0xa80 @0xf
0x0a71…0a98 at0010 = ╱4b╱K╱ // 0xa81 @0x10
0x0a71…0a98 at0011 = ╱52╱R╱ // 0xa82 @0x11
0x0a71…0a98 at0012 = ╱45╱E╱ // 0xa83 @0x12
0x0a71…0a98 at0013 = ╱44╱D╱ // 0xa84 @0x13
0x0a71…0a98 at0014 = ╱49╱I╱ // 0xa85 @0x14
0x0a71…0a98 at0015 = ╱54╱T╱ // 0xa86 @0x15
0x0a71…0a98 at0016 = ╱f0╱ := ╱ // 0xa87 @0x16
0x0a71…0a98 at0017 = ╱de╱ - ╱ // 0xa88 @0x17
0x0a71…0a98 at0018 = ╱31╱1╱ // 0xa89 @0x18
0x0a71…0a98 at0019 = ╱f20100╱ // 0xa8a @0x19
0x0a71…0a98 at001c = ╱ea╱ ; ╱ // 0xa8d @0x1c
0x0a71…0a98 at001d = ╱4e╱N╱ // 0xa8e @0x1d
0x0a71…0a98 at001e = ╱55╱U╱ // 0xa8f @0x1e
0x0a71…0a98 at001f = ╱4c╱L╱ // 0xa90 @0x1f
0x0a71…0a98 at0020 = ╱52╱R╱ // 0xa91 @0x20
0x0a71…0a98 at0021 = ╱f0╱ := ╱ // 0xa92 @0x21
0x0a71…0a98 at0022 = ╱30╱0╱ // 0xa93 @0x22
0x0a71…0a98 at0023 = ╱f20000╱ // 0xa94 @0x23
0x0a71…0a98 at0026 = EOL // 0xa97 @0x26
0x0a71…0a98 }
0x0a98…0ab8 a0a6 00910 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x0a98…0ab8 LineComal80 {
0x0a98…0ab8 ptr = 0xa0a6 // 0xa98 @0x0
0x0a98…0ab8 lno = 0x038e // 0xa9a @0x2
0x0a98…0ab8 at0004 = ╱86╱ LET ╱ // 0xa9c @0x4
0x0a98…0ab8 at0005 = ╱53╱S╱ // 0xa9d @0x5
0x0a98…0ab8 at0006 = ╱59╱Y╱ // 0xa9e @0x6
0x0a98…0ab8 at0007 = ╱53╱S╱ // 0xa9f @0x7
0x0a98…0ab8 at0008 = ╱50╱P╱ // 0xaa0 @0x8
0x0a98…0ab8 at0009 = ╱41╱A╱ // 0xaa1 @0x9
0x0a98…0ab8 at000a = ╱52╱R╱ // 0xaa2 @0xa
0x0a98…0ab8 at000b = ╱41╱A╱ // 0xaa3 @0xb
0x0a98…0ab8 at000c = ╱ef╱ $ ╱ // 0xaa4 @0xc
0x0a98…0ab8 at000d = ╱f0╱ := ╱ // 0xaa5 @0xd
0x0a98…0ab8 at000e = ╱50╱P╱ // 0xaa6 @0xe
0x0a98…0ab8 at000f = ╱52╱R╱ // 0xaa7 @0xf
0x0a98…0ab8 at0010 = ╱47╱G╱ // 0xaa8 @0x10
0x0a98…0ab8 at0011 = ╱46╱F╱ // 0xaa9 @0x11
0x0a98…0ab8 at0012 = ╱4c╱L╱ // 0xaaa @0x12
0x0a98…0ab8 at0013 = ╱ef╱ $ ╱ // 0xaab @0x13
0x0a98…0ab8 at0014 = ╱eb╱ + ╱ // 0xaac @0x14
0x0a98…0ab8 at0015 = ╱22╱"╱ // 0xaad @0x15
0x0a98…0ab8 at0016 = ╱3a╱:╱ // 0xaae @0x16
0x0a98…0ab8 at0017 = ╱53╱S╱ // 0xaaf @0x17
0x0a98…0ab8 at0018 = ╱59╱Y╱ // 0xab0 @0x18
0x0a98…0ab8 at0019 = ╱53╱S╱ // 0xab1 @0x19
0x0a98…0ab8 at001a = ╱50╱P╱ // 0xab2 @0x1a
0x0a98…0ab8 at001b = ╱41╱A╱ // 0xab3 @0x1b
0x0a98…0ab8 at001c = ╱52╱R╱ // 0xab4 @0x1c
0x0a98…0ab8 at001d = ╱41╱A╱ // 0xab5 @0x1d
0x0a98…0ab8 at001e = ╱22╱"╱ // 0xab6 @0x1e
0x0a98…0ab8 at001f = EOL // 0xab7 @0x1f
0x0a98…0ab8 }
0x0ab8…0ad3 a0c1 00920 EXEC OPENFIL ( SYSPARA $ , "R" )
0x0ab8…0ad3 LineComal80 {
0x0ab8…0ad3 ptr = 0xa0c1 // 0xab8 @0x0
0x0ab8…0ad3 lno = 0x0398 // 0xaba @0x2
0x0ab8…0ad3 at0004 = ╱9d╱ EXEC ╱ // 0xabc @0x4
0x0ab8…0ad3 at0005 = ╱4f╱O╱ // 0xabd @0x5
0x0ab8…0ad3 at0006 = ╱50╱P╱ // 0xabe @0x6
0x0ab8…0ad3 at0007 = ╱45╱E╱ // 0xabf @0x7
0x0ab8…0ad3 at0008 = ╱4e╱N╱ // 0xac0 @0x8
0x0ab8…0ad3 at0009 = ╱46╱F╱ // 0xac1 @0x9
0x0ab8…0ad3 at000a = ╱49╱I╱ // 0xac2 @0xa
0x0ab8…0ad3 at000b = ╱4c╱L╱ // 0xac3 @0xb
0x0ab8…0ad3 at000c = ╱ed╱ ( ╱ // 0xac4 @0xc
0x0ab8…0ad3 at000d = ╱53╱S╱ // 0xac5 @0xd
0x0ab8…0ad3 at000e = ╱59╱Y╱ // 0xac6 @0xe
0x0ab8…0ad3 at000f = ╱53╱S╱ // 0xac7 @0xf
0x0ab8…0ad3 at0010 = ╱50╱P╱ // 0xac8 @0x10
0x0ab8…0ad3 at0011 = ╱41╱A╱ // 0xac9 @0x11
0x0ab8…0ad3 at0012 = ╱52╱R╱ // 0xaca @0x12
0x0ab8…0ad3 at0013 = ╱41╱A╱ // 0xacb @0x13
0x0ab8…0ad3 at0014 = ╱ef╱ $ ╱ // 0xacc @0x14
0x0ab8…0ad3 at0015 = ╱ec╱ , ╱ // 0xacd @0x15
0x0ab8…0ad3 at0016 = ╱22╱"╱ // 0xace @0x16
0x0ab8…0ad3 at0017 = ╱52╱R╱ // 0xacf @0x17
0x0ab8…0ad3 at0018 = ╱22╱"╱ // 0xad0 @0x18
0x0ab8…0ad3 at0019 = ╱ee╱ ) ╱ // 0xad1 @0x19
0x0ab8…0ad3 at001a = EOL // 0xad2 @0x1a
0x0ab8…0ad3 }
0x0ad3…0af9 a0e7 00930 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x0ad3…0af9 LineComal80 {
0x0ad3…0af9 ptr = 0xa0e7 // 0xad3 @0x0
0x0ad3…0af9 lno = 0x03a2 // 0xad5 @0x2
0x0ad3…0af9 at0004 = ╱a9╱ GET ╱ // 0xad7 @0x4
0x0ad3…0af9 at0005 = ╱53╱S╱ // 0xad8 @0x5
0x0ad3…0af9 at0006 = ╱59╱Y╱ // 0xad9 @0x6
0x0ad3…0af9 at0007 = ╱53╱S╱ // 0xada @0x7
0x0ad3…0af9 at0008 = ╱50╱P╱ // 0xadb @0x8
0x0ad3…0af9 at0009 = ╱41╱A╱ // 0xadc @0x9
0x0ad3…0af9 at000a = ╱52╱R╱ // 0xadd @0xa
0x0ad3…0af9 at000b = ╱41╱A╱ // 0xade @0xb
0x0ad3…0af9 at000c = ╱ef╱ $ ╱ // 0xadf @0xc
0x0ad3…0af9 at000d = ╱ec╱ , ╱ // 0xae0 @0xd
0x0ad3…0af9 at000e = ╱31╱1╱ // 0xae1 @0xe
0x0ad3…0af9 at000f = ╱f20100╱ // 0xae2 @0xf
0x0ad3…0af9 at0012 = ╱f1╱ : ╱ // 0xae5 @0x12
0x0ad3…0af9 at0013 = ╱53╱S╱ // 0xae6 @0x13
0x0ad3…0af9 at0014 = ╱59╱Y╱ // 0xae7 @0x14
0x0ad3…0af9 at0015 = ╱53╱S╱ // 0xae8 @0x15
0x0ad3…0af9 at0016 = ╱54╱T╱ // 0xae9 @0x16
0x0ad3…0af9 at0017 = ╱5f╱_╱ // 0xaea @0x17
0x0ad3…0af9 at0018 = ╱4e╱N╱ // 0xaeb @0x18
0x0ad3…0af9 at0019 = ╱41╱A╱ // 0xaec @0x19
0x0ad3…0af9 at001a = ╱56╱V╱ // 0xaed @0x1a
0x0ad3…0af9 at001b = ╱4e╱N╱ // 0xaee @0x1b
0x0ad3…0af9 at001c = ╱ef╱ $ ╱ // 0xaef @0x1c
0x0ad3…0af9 at001d = ╱ec╱ , ╱ // 0xaf0 @0x1d
0x0ad3…0af9 at001e = ╱53╱S╱ // 0xaf1 @0x1e
0x0ad3…0af9 at001f = ╱5f╱_╱ // 0xaf2 @0x1f
0x0ad3…0af9 at0020 = ╱4b╱K╱ // 0xaf3 @0x20
0x0ad3…0af9 at0021 = ╱4f╱O╱ // 0xaf4 @0x21
0x0ad3…0af9 at0022 = ╱44╱D╱ // 0xaf5 @0x22
0x0ad3…0af9 at0023 = ╱45╱E╱ // 0xaf6 @0x23
0x0ad3…0af9 at0024 = ╱ef╱ $ ╱ // 0xaf7 @0x24
0x0ad3…0af9 at0025 = EOL // 0xaf8 @0x25
0x0ad3…0af9 }
0x0af9…0b0b a0f9 00940 EXEC TERMINAL_IDX
0x0af9…0b0b LineComal80 {
0x0af9…0b0b ptr = 0xa0f9 // 0xaf9 @0x0
0x0af9…0b0b lno = 0x03ac // 0xafb @0x2
0x0af9…0b0b at0004 = ╱9d╱ EXEC ╱ // 0xafd @0x4
0x0af9…0b0b at0005 = ╱54╱T╱ // 0xafe @0x5
0x0af9…0b0b at0006 = ╱45╱E╱ // 0xaff @0x6
0x0af9…0b0b at0007 = ╱52╱R╱ // 0xb00 @0x7
0x0af9…0b0b at0008 = ╱4d╱M╱ // 0xb01 @0x8
0x0af9…0b0b at0009 = ╱49╱I╱ // 0xb02 @0x9
0x0af9…0b0b at000a = ╱4e╱N╱ // 0xb03 @0xa
0x0af9…0b0b at000b = ╱41╱A╱ // 0xb04 @0xb
0x0af9…0b0b at000c = ╱4c╱L╱ // 0xb05 @0xc
0x0af9…0b0b at000d = ╱5f╱_╱ // 0xb06 @0xd
0x0af9…0b0b at000e = ╱49╱I╱ // 0xb07 @0xe
0x0af9…0b0b at000f = ╱44╱D╱ // 0xb08 @0xf
0x0af9…0b0b at0010 = ╱58╱X╱ // 0xb09 @0x10
0x0af9…0b0b at0011 = EOL // 0xb0a @0x11
0x0af9…0b0b }
0x0b0b…0b19 a107 00950 CLOSE SYSPARA $
0x0b0b…0b19 LineComal80 {
0x0b0b…0b19 ptr = 0xa107 // 0xb0b @0x0
0x0b0b…0b19 lno = 0x03b6 // 0xb0d @0x2
0x0b0b…0b19 at0004 = ╱a8╱ CLOSE ╱ // 0xb0f @0x4
0x0b0b…0b19 at0005 = ╱53╱S╱ // 0xb10 @0x5
0x0b0b…0b19 at0006 = ╱59╱Y╱ // 0xb11 @0x6
0x0b0b…0b19 at0007 = ╱53╱S╱ // 0xb12 @0x7
0x0b0b…0b19 at0008 = ╱50╱P╱ // 0xb13 @0x8
0x0b0b…0b19 at0009 = ╱41╱A╱ // 0xb14 @0x9
0x0b0b…0b19 at000a = ╱52╱R╱ // 0xb15 @0xa
0x0b0b…0b19 at000b = ╱41╱A╱ // 0xb16 @0xb
0x0b0b…0b19 at000c = ╱ef╱ $ ╱ // 0xb17 @0xc
0x0b0b…0b19 at000d = EOL // 0xb18 @0xd
0x0b0b…0b19 }
0x0b19…0b49 a137 00960 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x0b19…0b49 LineComal80 {
0x0b19…0b49 ptr = 0xa137 // 0xb19 @0x0
0x0b19…0b49 lno = 0x03c0 // 0xb1b @0x2
0x0b19…0b49 at0004 = ╱86╱ LET ╱ // 0xb1d @0x4
0x0b19…0b49 at0005 = ╱50╱P╱ // 0xb1e @0x5
0x0b19…0b49 at0006 = ╱41╱A╱ // 0xb1f @0x6
0x0b19…0b49 at0007 = ╱52╱R╱ // 0xb20 @0x7
0x0b19…0b49 at0008 = ╱41╱A╱ // 0xb21 @0x8
0x0b19…0b49 at0009 = ╱4d╱M╱ // 0xb22 @0x9
0x0b19…0b49 at000a = ╱ef╱ $ ╱ // 0xb23 @0xa
0x0b19…0b49 at000b = ╱f0╱ := ╱ // 0xb24 @0xb
0x0b19…0b49 at000c = ╱44╱D╱ // 0xb25 @0xc
0x0b19…0b49 at000d = ╱41╱A╱ // 0xb26 @0xd
0x0b19…0b49 at000e = ╱54╱T╱ // 0xb27 @0xe
0x0b19…0b49 at000f = ╱41╱A╱ // 0xb28 @0xf
0x0b19…0b49 at0010 = ╱46╱F╱ // 0xb29 @0x10
0x0b19…0b49 at0011 = ╱4c╱L╱ // 0xb2a @0x11
0x0b19…0b49 at0012 = ╱ef╱ $ ╱ // 0xb2b @0x12
0x0b19…0b49 at0013 = ╱eb╱ + ╱ // 0xb2c @0x13
0x0b19…0b49 at0014 = ╱22╱"╱ // 0xb2d @0x14
0x0b19…0b49 at0015 = ╱3a╱:╱ // 0xb2e @0x15
0x0b19…0b49 at0016 = ╱22╱"╱ // 0xb2f @0x16
0x0b19…0b49 at0017 = ╱eb╱ + ╱ // 0xb30 @0x17
0x0b19…0b49 at0018 = ╱53╱S╱ // 0xb31 @0x18
0x0b19…0b49 at0019 = ╱5f╱_╱ // 0xb32 @0x19
0x0b19…0b49 at001a = ╱4b╱K╱ // 0xb33 @0x1a
0x0b19…0b49 at001b = ╱4f╱O╱ // 0xb34 @0x1b
0x0b19…0b49 at001c = ╱44╱D╱ // 0xb35 @0x1c
0x0b19…0b49 at001d = ╱45╱E╱ // 0xb36 @0x1d
0x0b19…0b49 at001e = ╱ef╱ $ ╱ // 0xb37 @0x1e
0x0b19…0b49 at001f = ╱eb╱ + ╱ // 0xb38 @0x1f
0x0b19…0b49 at0020 = ╱54╱T╱ // 0xb39 @0x20
0x0b19…0b49 at0021 = ╱5f╱_╱ // 0xb3a @0x21
0x0b19…0b49 at0022 = ╱4b╱K╱ // 0xb3b @0x22
0x0b19…0b49 at0023 = ╱4f╱O╱ // 0xb3c @0x23
0x0b19…0b49 at0024 = ╱44╱D╱ // 0xb3d @0x24
0x0b19…0b49 at0025 = ╱45╱E╱ // 0xb3e @0x25
0x0b19…0b49 at0026 = ╱ef╱ $ ╱ // 0xb3f @0x26
0x0b19…0b49 at0027 = ╱eb╱ + ╱ // 0xb40 @0x27
0x0b19…0b49 at0028 = ╱22╱"╱ // 0xb41 @0x28
0x0b19…0b49 at0029 = ╱50╱P╱ // 0xb42 @0x29
0x0b19…0b49 at002a = ╱41╱A╱ // 0xb43 @0x2a
0x0b19…0b49 at002b = ╱52╱R╱ // 0xb44 @0x2b
0x0b19…0b49 at002c = ╱41╱A╱ // 0xb45 @0x2c
0x0b19…0b49 at002d = ╱4d╱M╱ // 0xb46 @0x2d
0x0b19…0b49 at002e = ╱22╱"╱ // 0xb47 @0x2e
0x0b19…0b49 at002f = EOL // 0xb48 @0x2f
0x0b19…0b49 }
0x0b49…0b62 a150 00970 EXEC OPENFIL ( PARAM $ , "W" )
0x0b49…0b62 LineComal80 {
0x0b49…0b62 ptr = 0xa150 // 0xb49 @0x0
0x0b49…0b62 lno = 0x03ca // 0xb4b @0x2
0x0b49…0b62 at0004 = ╱9d╱ EXEC ╱ // 0xb4d @0x4
0x0b49…0b62 at0005 = ╱4f╱O╱ // 0xb4e @0x5
0x0b49…0b62 at0006 = ╱50╱P╱ // 0xb4f @0x6
0x0b49…0b62 at0007 = ╱45╱E╱ // 0xb50 @0x7
0x0b49…0b62 at0008 = ╱4e╱N╱ // 0xb51 @0x8
0x0b49…0b62 at0009 = ╱46╱F╱ // 0xb52 @0x9
0x0b49…0b62 at000a = ╱49╱I╱ // 0xb53 @0xa
0x0b49…0b62 at000b = ╱4c╱L╱ // 0xb54 @0xb
0x0b49…0b62 at000c = ╱ed╱ ( ╱ // 0xb55 @0xc
0x0b49…0b62 at000d = ╱50╱P╱ // 0xb56 @0xd
0x0b49…0b62 at000e = ╱41╱A╱ // 0xb57 @0xe
0x0b49…0b62 at000f = ╱52╱R╱ // 0xb58 @0xf
0x0b49…0b62 at0010 = ╱41╱A╱ // 0xb59 @0x10
0x0b49…0b62 at0011 = ╱4d╱M╱ // 0xb5a @0x11
0x0b49…0b62 at0012 = ╱ef╱ $ ╱ // 0xb5b @0x12
0x0b49…0b62 at0013 = ╱ec╱ , ╱ // 0xb5c @0x13
0x0b49…0b62 at0014 = ╱22╱"╱ // 0xb5d @0x14
0x0b49…0b62 at0015 = ╱57╱W╱ // 0xb5e @0x15
0x0b49…0b62 at0016 = ╱22╱"╱ // 0xb5f @0x16
0x0b49…0b62 at0017 = ╱ee╱ ) ╱ // 0xb60 @0x17
0x0b49…0b62 at0018 = EOL // 0xb61 @0x18
0x0b49…0b62 }
0x0b62…0b8d a17b 00980 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x0b62…0b8d LineComal80 {
0x0b62…0b8d ptr = 0xa17b // 0xb62 @0x0
0x0b62…0b8d lno = 0x03d4 // 0xb64 @0x2
0x0b62…0b8d at0004 = ╱a9╱ GET ╱ // 0xb66 @0x4
0x0b62…0b8d at0005 = ╱50╱P╱ // 0xb67 @0x5
0x0b62…0b8d at0006 = ╱41╱A╱ // 0xb68 @0x6
0x0b62…0b8d at0007 = ╱52╱R╱ // 0xb69 @0x7
0x0b62…0b8d at0008 = ╱41╱A╱ // 0xb6a @0x8
0x0b62…0b8d at0009 = ╱4d╱M╱ // 0xb6b @0x9
0x0b62…0b8d at000a = ╱ef╱ $ ╱ // 0xb6c @0xa
0x0b62…0b8d at000b = ╱ec╱ , ╱ // 0xb6d @0xb
0x0b62…0b8d at000c = ╱31╱1╱ // 0xb6e @0xc
0x0b62…0b8d at000d = ╱f20100╱ // 0xb6f @0xd
0x0b62…0b8d at0010 = ╱f1╱ : ╱ // 0xb72 @0x10
0x0b62…0b8d at0011 = ╱46╱F╱ // 0xb73 @0x11
0x0b62…0b8d at0012 = ╱49╱I╱ // 0xb74 @0x12
0x0b62…0b8d at0013 = ╱52╱R╱ // 0xb75 @0x13
0x0b62…0b8d at0014 = ╱4d╱M╱ // 0xb76 @0x14
0x0b62…0b8d at0015 = ╱41╱A╱ // 0xb77 @0x15
0x0b62…0b8d at0016 = ╱4e╱N╱ // 0xb78 @0x16
0x0b62…0b8d at0017 = ╱41╱A╱ // 0xb79 @0x17
0x0b62…0b8d at0018 = ╱56╱V╱ // 0xb7a @0x18
0x0b62…0b8d at0019 = ╱4e╱N╱ // 0xb7b @0x19
0x0b62…0b8d at001a = ╱ef╱ $ ╱ // 0xb7c @0x1a
0x0b62…0b8d at001b = ╱ec╱ , ╱ // 0xb7d @0x1b
0x0b62…0b8d at001c = ╱53╱S╱ // 0xb7e @0x1c
0x0b62…0b8d at001d = ╱59╱Y╱ // 0xb7f @0x1d
0x0b62…0b8d at001e = ╱53╱S╱ // 0xb80 @0x1e
0x0b62…0b8d at001f = ╱54╱T╱ // 0xb81 @0x1f
0x0b62…0b8d at0020 = ╱5f╱_╱ // 0xb82 @0x20
0x0b62…0b8d at0021 = ╱44╱D╱ // 0xb83 @0x21
0x0b62…0b8d at0022 = ╱41╱A╱ // 0xb84 @0x22
0x0b62…0b8d at0023 = ╱54╱T╱ // 0xb85 @0x23
0x0b62…0b8d at0024 = ╱ef╱ $ ╱ // 0xb86 @0x24
0x0b62…0b8d at0025 = ╱ec╱ , ╱ // 0xb87 @0x25
0x0b62…0b8d at0026 = ╱4d╱M╱ // 0xb88 @0x26
0x0b62…0b8d at0027 = ╱4f╱O╱ // 0xb89 @0x27
0x0b62…0b8d at0028 = ╱4d╱M╱ // 0xb8a @0x28
0x0b62…0b8d at0029 = ╱53╱S╱ // 0xb8b @0x29
0x0b62…0b8d at002a = EOL // 0xb8c @0x2a
0x0b62…0b8d }
0x0b8d…0bb6 a1a4 00990 GET PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
0x0b8d…0bb6 LineComal80 {
0x0b8d…0bb6 ptr = 0xa1a4 // 0xb8d @0x0
0x0b8d…0bb6 lno = 0x03de // 0xb8f @0x2
0x0b8d…0bb6 at0004 = ╱a9╱ GET ╱ // 0xb91 @0x4
0x0b8d…0bb6 at0005 = ╱50╱P╱ // 0xb92 @0x5
0x0b8d…0bb6 at0006 = ╱41╱A╱ // 0xb93 @0x6
0x0b8d…0bb6 at0007 = ╱52╱R╱ // 0xb94 @0x7
0x0b8d…0bb6 at0008 = ╱41╱A╱ // 0xb95 @0x8
0x0b8d…0bb6 at0009 = ╱4d╱M╱ // 0xb96 @0x9
0x0b8d…0bb6 at000a = ╱ef╱ $ ╱ // 0xb97 @0xa
0x0b8d…0bb6 at000b = ╱ec╱ , ╱ // 0xb98 @0xb
0x0b8d…0bb6 at000c = ╱32╱2╱ // 0xb99 @0xc
0x0b8d…0bb6 at000d = ╱f20200╱ // 0xb9a @0xd
0x0b8d…0bb6 at0010 = ╱f1╱ : ╱ // 0xb9d @0x10
0x0b8d…0bb6 at0011 = ╱53╱S╱ // 0xb9e @0x11
0x0b8d…0bb6 at0012 = ╱54╱T╱ // 0xb9f @0x12
0x0b8d…0bb6 at0013 = ╱5f╱_╱ // 0xba0 @0x13
0x0b8d…0bb6 at0014 = ╱44╱D╱ // 0xba1 @0x14
0x0b8d…0bb6 at0015 = ╱41╱A╱ // 0xba2 @0x15
0x0b8d…0bb6 at0016 = ╱54╱T╱ // 0xba3 @0x16
0x0b8d…0bb6 at0017 = ╱4f╱O╱ // 0xba4 @0x17
0x0b8d…0bb6 at0018 = ╱ef╱ $ ╱ // 0xba5 @0x18
0x0b8d…0bb6 at0019 = ╱ec╱ , ╱ // 0xba6 @0x19
0x0b8d…0bb6 at001a = ╱41╱A╱ // 0xba7 @0x1a
0x0b8d…0bb6 at001b = ╱4e╱N╱ // 0xba8 @0x1b
0x0b8d…0bb6 at001c = ╱54╱T╱ // 0xba9 @0x1c
0x0b8d…0bb6 at001d = ╱5f╱_╱ // 0xbaa @0x1d
0x0b8d…0bb6 at001e = ╱50╱P╱ // 0xbab @0x1e
0x0b8d…0bb6 at001f = ╱45╱E╱ // 0xbac @0x1f
0x0b8d…0bb6 at0020 = ╱52╱R╱ // 0xbad @0x20
0x0b8d…0bb6 at0021 = ╱ec╱ , ╱ // 0xbae @0x21
0x0b8d…0bb6 at0022 = ╱50╱P╱ // 0xbaf @0x22
0x0b8d…0bb6 at0023 = ╱45╱E╱ // 0xbb0 @0x23
0x0b8d…0bb6 at0024 = ╱52╱R╱ // 0xbb1 @0x24
0x0b8d…0bb6 at0025 = ╱5f╱_╱ // 0xbb2 @0x25
0x0b8d…0bb6 at0026 = ╱4e╱N╱ // 0xbb3 @0x26
0x0b8d…0bb6 at0027 = ╱52╱R╱ // 0xbb4 @0x27
0x0b8d…0bb6 at0028 = EOL // 0xbb5 @0x28
0x0b8d…0bb6 }
0x0bb6…0be8 a1d6 01000 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x0bb6…0be8 LineComal80 {
0x0bb6…0be8 ptr = 0xa1d6 // 0xbb6 @0x0
0x0bb6…0be8 lno = 0x03e8 // 0xbb8 @0x2
0x0bb6…0be8 at0004 = ╱86╱ LET ╱ // 0xbba @0x4
0x0bb6…0be8 at0005 = ╱4b╱K╱ // 0xbbb @0x5
0x0bb6…0be8 at0006 = ╱54╱T╱ // 0xbbc @0x6
0x0bb6…0be8 at0007 = ╱4f╱O╱ // 0xbbd @0x7
0x0bb6…0be8 at0008 = ╱49╱I╱ // 0xbbe @0x8
0x0bb6…0be8 at0009 = ╱44╱D╱ // 0xbbf @0x9
0x0bb6…0be8 at000a = ╱58╱X╱ // 0xbc0 @0xa
0x0bb6…0be8 at000b = ╱ef╱ $ ╱ // 0xbc1 @0xb
0x0bb6…0be8 at000c = ╱f0╱ := ╱ // 0xbc2 @0xc
0x0bb6…0be8 at000d = ╱44╱D╱ // 0xbc3 @0xd
0x0bb6…0be8 at000e = ╱41╱A╱ // 0xbc4 @0xe
0x0bb6…0be8 at000f = ╱54╱T╱ // 0xbc5 @0xf
0x0bb6…0be8 at0010 = ╱41╱A╱ // 0xbc6 @0x10
0x0bb6…0be8 at0011 = ╱46╱F╱ // 0xbc7 @0x11
0x0bb6…0be8 at0012 = ╱4c╱L╱ // 0xbc8 @0x12
0x0bb6…0be8 at0013 = ╱ef╱ $ ╱ // 0xbc9 @0x13
0x0bb6…0be8 at0014 = ╱eb╱ + ╱ // 0xbca @0x14
0x0bb6…0be8 at0015 = ╱22╱"╱ // 0xbcb @0x15
0x0bb6…0be8 at0016 = ╱3a╱:╱ // 0xbcc @0x16
0x0bb6…0be8 at0017 = ╱22╱"╱ // 0xbcd @0x17
0x0bb6…0be8 at0018 = ╱eb╱ + ╱ // 0xbce @0x18
0x0bb6…0be8 at0019 = ╱53╱S╱ // 0xbcf @0x19
0x0bb6…0be8 at001a = ╱5f╱_╱ // 0xbd0 @0x1a
0x0bb6…0be8 at001b = ╱4b╱K╱ // 0xbd1 @0x1b
0x0bb6…0be8 at001c = ╱4f╱O╱ // 0xbd2 @0x1c
0x0bb6…0be8 at001d = ╱44╱D╱ // 0xbd3 @0x1d
0x0bb6…0be8 at001e = ╱45╱E╱ // 0xbd4 @0x1e
0x0bb6…0be8 at001f = ╱ef╱ $ ╱ // 0xbd5 @0x1f
0x0bb6…0be8 at0020 = ╱eb╱ + ╱ // 0xbd6 @0x20
0x0bb6…0be8 at0021 = ╱54╱T╱ // 0xbd7 @0x21
0x0bb6…0be8 at0022 = ╱5f╱_╱ // 0xbd8 @0x22
0x0bb6…0be8 at0023 = ╱4b╱K╱ // 0xbd9 @0x23
0x0bb6…0be8 at0024 = ╱4f╱O╱ // 0xbda @0x24
0x0bb6…0be8 at0025 = ╱44╱D╱ // 0xbdb @0x25
0x0bb6…0be8 at0026 = ╱45╱E╱ // 0xbdc @0x26
0x0bb6…0be8 at0027 = ╱ef╱ $ ╱ // 0xbdd @0x27
0x0bb6…0be8 at0028 = ╱eb╱ + ╱ // 0xbde @0x28
0x0bb6…0be8 at0029 = ╱22╱"╱ // 0xbdf @0x29
0x0bb6…0be8 at002a = ╱4b╱K╱ // 0xbe0 @0x2a
0x0bb6…0be8 at002b = ╱54╱T╱ // 0xbe1 @0x2b
0x0bb6…0be8 at002c = ╱4f╱O╱ // 0xbe2 @0x2c
0x0bb6…0be8 at002d = ╱49╱I╱ // 0xbe3 @0x2d
0x0bb6…0be8 at002e = ╱44╱D╱ // 0xbe4 @0x2e
0x0bb6…0be8 at002f = ╱58╱X╱ // 0xbe5 @0x2f
0x0bb6…0be8 at0030 = ╱22╱"╱ // 0xbe6 @0x30
0x0bb6…0be8 at0031 = EOL // 0xbe7 @0x31
0x0bb6…0be8 }
0x0be8…0c18 a206 01010 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
0x0be8…0c18 LineComal80 {
0x0be8…0c18 ptr = 0xa206 // 0xbe8 @0x0
0x0be8…0c18 lno = 0x03f2 // 0xbea @0x2
0x0be8…0c18 at0004 = ╱86╱ LET ╱ // 0xbec @0x4
0x0be8…0c18 at0005 = ╱4b╱K╱ // 0xbed @0x5
0x0be8…0c18 at0006 = ╱4f╱O╱ // 0xbee @0x6
0x0be8…0c18 at0007 = ╱4e╱N╱ // 0xbef @0x7
0x0be8…0c18 at0008 = ╱54╱T╱ // 0xbf0 @0x8
0x0be8…0c18 at0009 = ╱4f╱O╱ // 0xbf1 @0x9
0x0be8…0c18 at000a = ╱ef╱ $ ╱ // 0xbf2 @0xa
0x0be8…0c18 at000b = ╱f0╱ := ╱ // 0xbf3 @0xb
0x0be8…0c18 at000c = ╱44╱D╱ // 0xbf4 @0xc
0x0be8…0c18 at000d = ╱41╱A╱ // 0xbf5 @0xd
0x0be8…0c18 at000e = ╱54╱T╱ // 0xbf6 @0xe
0x0be8…0c18 at000f = ╱41╱A╱ // 0xbf7 @0xf
0x0be8…0c18 at0010 = ╱46╱F╱ // 0xbf8 @0x10
0x0be8…0c18 at0011 = ╱4c╱L╱ // 0xbf9 @0x11
0x0be8…0c18 at0012 = ╱ef╱ $ ╱ // 0xbfa @0x12
0x0be8…0c18 at0013 = ╱eb╱ + ╱ // 0xbfb @0x13
0x0be8…0c18 at0014 = ╱22╱"╱ // 0xbfc @0x14
0x0be8…0c18 at0015 = ╱3a╱:╱ // 0xbfd @0x15
0x0be8…0c18 at0016 = ╱22╱"╱ // 0xbfe @0x16
0x0be8…0c18 at0017 = ╱eb╱ + ╱ // 0xbff @0x17
0x0be8…0c18 at0018 = ╱53╱S╱ // 0xc00 @0x18
0x0be8…0c18 at0019 = ╱5f╱_╱ // 0xc01 @0x19
0x0be8…0c18 at001a = ╱4b╱K╱ // 0xc02 @0x1a
0x0be8…0c18 at001b = ╱4f╱O╱ // 0xc03 @0x1b
0x0be8…0c18 at001c = ╱44╱D╱ // 0xc04 @0x1c
0x0be8…0c18 at001d = ╱45╱E╱ // 0xc05 @0x1d
0x0be8…0c18 at001e = ╱ef╱ $ ╱ // 0xc06 @0x1e
0x0be8…0c18 at001f = ╱eb╱ + ╱ // 0xc07 @0x1f
0x0be8…0c18 at0020 = ╱54╱T╱ // 0xc08 @0x20
0x0be8…0c18 at0021 = ╱5f╱_╱ // 0xc09 @0x21
0x0be8…0c18 at0022 = ╱4b╱K╱ // 0xc0a @0x22
0x0be8…0c18 at0023 = ╱4f╱O╱ // 0xc0b @0x23
0x0be8…0c18 at0024 = ╱44╱D╱ // 0xc0c @0x24
0x0be8…0c18 at0025 = ╱45╱E╱ // 0xc0d @0x25
0x0be8…0c18 at0026 = ╱ef╱ $ ╱ // 0xc0e @0x26
0x0be8…0c18 at0027 = ╱eb╱ + ╱ // 0xc0f @0x27
0x0be8…0c18 at0028 = ╱22╱"╱ // 0xc10 @0x28
0x0be8…0c18 at0029 = ╱4b╱K╱ // 0xc11 @0x29
0x0be8…0c18 at002a = ╱4f╱O╱ // 0xc12 @0x2a
0x0be8…0c18 at002b = ╱4e╱N╱ // 0xc13 @0x2b
0x0be8…0c18 at002c = ╱54╱T╱ // 0xc14 @0x2c
0x0be8…0c18 at002d = ╱4f╱O╱ // 0xc15 @0x2d
0x0be8…0c18 at002e = ╱22╱"╱ // 0xc16 @0x2e
0x0be8…0c18 at002f = EOL // 0xc17 @0x2f
0x0be8…0c18 }
0x0c18…0c48 a236 01020 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
0x0c18…0c48 LineComal80 {
0x0c18…0c48 ptr = 0xa236 // 0xc18 @0x0
0x0c18…0c48 lno = 0x03fc // 0xc1a @0x2
0x0c18…0c48 at0004 = ╱86╱ LET ╱ // 0xc1c @0x4
0x0c18…0c48 at0005 = ╱54╱T╱ // 0xc1d @0x5
0x0c18…0c48 at0006 = ╱52╱R╱ // 0xc1e @0x6
0x0c18…0c48 at0007 = ╱41╱A╱ // 0xc1f @0x7
0x0c18…0c48 at0008 = ╱4e╱N╱ // 0xc20 @0x8
0x0c18…0c48 at0009 = ╱53╱S╱ // 0xc21 @0x9
0x0c18…0c48 at000a = ╱ef╱ $ ╱ // 0xc22 @0xa
0x0c18…0c48 at000b = ╱f0╱ := ╱ // 0xc23 @0xb
0x0c18…0c48 at000c = ╱44╱D╱ // 0xc24 @0xc
0x0c18…0c48 at000d = ╱41╱A╱ // 0xc25 @0xd
0x0c18…0c48 at000e = ╱54╱T╱ // 0xc26 @0xe
0x0c18…0c48 at000f = ╱41╱A╱ // 0xc27 @0xf
0x0c18…0c48 at0010 = ╱46╱F╱ // 0xc28 @0x10
0x0c18…0c48 at0011 = ╱4c╱L╱ // 0xc29 @0x11
0x0c18…0c48 at0012 = ╱ef╱ $ ╱ // 0xc2a @0x12
0x0c18…0c48 at0013 = ╱eb╱ + ╱ // 0xc2b @0x13
0x0c18…0c48 at0014 = ╱22╱"╱ // 0xc2c @0x14
0x0c18…0c48 at0015 = ╱3a╱:╱ // 0xc2d @0x15
0x0c18…0c48 at0016 = ╱22╱"╱ // 0xc2e @0x16
0x0c18…0c48 at0017 = ╱eb╱ + ╱ // 0xc2f @0x17
0x0c18…0c48 at0018 = ╱53╱S╱ // 0xc30 @0x18
0x0c18…0c48 at0019 = ╱5f╱_╱ // 0xc31 @0x19
0x0c18…0c48 at001a = ╱4b╱K╱ // 0xc32 @0x1a
0x0c18…0c48 at001b = ╱4f╱O╱ // 0xc33 @0x1b
0x0c18…0c48 at001c = ╱44╱D╱ // 0xc34 @0x1c
0x0c18…0c48 at001d = ╱45╱E╱ // 0xc35 @0x1d
0x0c18…0c48 at001e = ╱ef╱ $ ╱ // 0xc36 @0x1e
0x0c18…0c48 at001f = ╱eb╱ + ╱ // 0xc37 @0x1f
0x0c18…0c48 at0020 = ╱54╱T╱ // 0xc38 @0x20
0x0c18…0c48 at0021 = ╱5f╱_╱ // 0xc39 @0x21
0x0c18…0c48 at0022 = ╱4b╱K╱ // 0xc3a @0x22
0x0c18…0c48 at0023 = ╱4f╱O╱ // 0xc3b @0x23
0x0c18…0c48 at0024 = ╱44╱D╱ // 0xc3c @0x24
0x0c18…0c48 at0025 = ╱45╱E╱ // 0xc3d @0x25
0x0c18…0c48 at0026 = ╱ef╱ $ ╱ // 0xc3e @0x26
0x0c18…0c48 at0027 = ╱eb╱ + ╱ // 0xc3f @0x27
0x0c18…0c48 at0028 = ╱22╱"╱ // 0xc40 @0x28
0x0c18…0c48 at0029 = ╱54╱T╱ // 0xc41 @0x29
0x0c18…0c48 at002a = ╱52╱R╱ // 0xc42 @0x2a
0x0c18…0c48 at002b = ╱41╱A╱ // 0xc43 @0x2b
0x0c18…0c48 at002c = ╱4e╱N╱ // 0xc44 @0x2c
0x0c18…0c48 at002d = ╱53╱S╱ // 0xc45 @0x2d
0x0c18…0c48 at002e = ╱22╱"╱ // 0xc46 @0x2e
0x0c18…0c48 at002f = EOL // 0xc47 @0x2f
0x0c18…0c48 }
0x0c48…0c7a a268 01030 LET DRIFT\ $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DRIFT\"
0x0c48…0c7a LineComal80 {
0x0c48…0c7a ptr = 0xa268 // 0xc48 @0x0
0x0c48…0c7a lno = 0x0406 // 0xc4a @0x2
0x0c48…0c7a at0004 = ╱86╱ LET ╱ // 0xc4c @0x4
0x0c48…0c7a at0005 = ╱44╱D╱ // 0xc4d @0x5
0x0c48…0c7a at0006 = ╱52╱R╱ // 0xc4e @0x6
0x0c48…0c7a at0007 = ╱49╱I╱ // 0xc4f @0x7
0x0c48…0c7a at0008 = ╱46╱F╱ // 0xc50 @0x8
0x0c48…0c7a at0009 = ╱54╱T╱ // 0xc51 @0x9
0x0c48…0c7a at000a = ╱5c╱\╱ // 0xc52 @0xa
0x0c48…0c7a at000b = ╱ef╱ $ ╱ // 0xc53 @0xb
0x0c48…0c7a at000c = ╱f0╱ := ╱ // 0xc54 @0xc
0x0c48…0c7a at000d = ╱44╱D╱ // 0xc55 @0xd
0x0c48…0c7a at000e = ╱41╱A╱ // 0xc56 @0xe
0x0c48…0c7a at000f = ╱54╱T╱ // 0xc57 @0xf
0x0c48…0c7a at0010 = ╱41╱A╱ // 0xc58 @0x10
0x0c48…0c7a at0011 = ╱46╱F╱ // 0xc59 @0x11
0x0c48…0c7a at0012 = ╱4c╱L╱ // 0xc5a @0x12
0x0c48…0c7a at0013 = ╱ef╱ $ ╱ // 0xc5b @0x13
0x0c48…0c7a at0014 = ╱eb╱ + ╱ // 0xc5c @0x14
0x0c48…0c7a at0015 = ╱22╱"╱ // 0xc5d @0x15
0x0c48…0c7a at0016 = ╱3a╱:╱ // 0xc5e @0x16
0x0c48…0c7a at0017 = ╱22╱"╱ // 0xc5f @0x17
0x0c48…0c7a at0018 = ╱eb╱ + ╱ // 0xc60 @0x18
0x0c48…0c7a at0019 = ╱53╱S╱ // 0xc61 @0x19
0x0c48…0c7a at001a = ╱5f╱_╱ // 0xc62 @0x1a
0x0c48…0c7a at001b = ╱4b╱K╱ // 0xc63 @0x1b
0x0c48…0c7a at001c = ╱4f╱O╱ // 0xc64 @0x1c
0x0c48…0c7a at001d = ╱44╱D╱ // 0xc65 @0x1d
0x0c48…0c7a at001e = ╱45╱E╱ // 0xc66 @0x1e
0x0c48…0c7a at001f = ╱ef╱ $ ╱ // 0xc67 @0x1f
0x0c48…0c7a at0020 = ╱eb╱ + ╱ // 0xc68 @0x20
0x0c48…0c7a at0021 = ╱54╱T╱ // 0xc69 @0x21
0x0c48…0c7a at0022 = ╱5f╱_╱ // 0xc6a @0x22
0x0c48…0c7a at0023 = ╱4b╱K╱ // 0xc6b @0x23
0x0c48…0c7a at0024 = ╱4f╱O╱ // 0xc6c @0x24
0x0c48…0c7a at0025 = ╱44╱D╱ // 0xc6d @0x25
0x0c48…0c7a at0026 = ╱45╱E╱ // 0xc6e @0x26
0x0c48…0c7a at0027 = ╱ef╱ $ ╱ // 0xc6f @0x27
0x0c48…0c7a at0028 = ╱eb╱ + ╱ // 0xc70 @0x28
0x0c48…0c7a at0029 = ╱22╱"╱ // 0xc71 @0x29
0x0c48…0c7a at002a = ╱44╱D╱ // 0xc72 @0x2a
0x0c48…0c7a at002b = ╱52╱R╱ // 0xc73 @0x2b
0x0c48…0c7a at002c = ╱49╱I╱ // 0xc74 @0x2c
0x0c48…0c7a at002d = ╱46╱F╱ // 0xc75 @0x2d
0x0c48…0c7a at002e = ╱54╱T╱ // 0xc76 @0x2e
0x0c48…0c7a at002f = ╱5c╱\╱ // 0xc77 @0x2f
0x0c48…0c7a at0030 = ╱22╱"╱ // 0xc78 @0x30
0x0c48…0c7a at0031 = EOL // 0xc79 @0x31
0x0c48…0c7a }
0x0c7a…0cac a29a 01040 LET FKTONR $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "FKTONR"
0x0c7a…0cac LineComal80 {
0x0c7a…0cac ptr = 0xa29a // 0xc7a @0x0
0x0c7a…0cac lno = 0x0410 // 0xc7c @0x2
0x0c7a…0cac at0004 = ╱86╱ LET ╱ // 0xc7e @0x4
0x0c7a…0cac at0005 = ╱46╱F╱ // 0xc7f @0x5
0x0c7a…0cac at0006 = ╱4b╱K╱ // 0xc80 @0x6
0x0c7a…0cac at0007 = ╱54╱T╱ // 0xc81 @0x7
0x0c7a…0cac at0008 = ╱4f╱O╱ // 0xc82 @0x8
0x0c7a…0cac at0009 = ╱4e╱N╱ // 0xc83 @0x9
0x0c7a…0cac at000a = ╱52╱R╱ // 0xc84 @0xa
0x0c7a…0cac at000b = ╱ef╱ $ ╱ // 0xc85 @0xb
0x0c7a…0cac at000c = ╱f0╱ := ╱ // 0xc86 @0xc
0x0c7a…0cac at000d = ╱44╱D╱ // 0xc87 @0xd
0x0c7a…0cac at000e = ╱41╱A╱ // 0xc88 @0xe
0x0c7a…0cac at000f = ╱54╱T╱ // 0xc89 @0xf
0x0c7a…0cac at0010 = ╱41╱A╱ // 0xc8a @0x10
0x0c7a…0cac at0011 = ╱46╱F╱ // 0xc8b @0x11
0x0c7a…0cac at0012 = ╱4c╱L╱ // 0xc8c @0x12
0x0c7a…0cac at0013 = ╱ef╱ $ ╱ // 0xc8d @0x13
0x0c7a…0cac at0014 = ╱eb╱ + ╱ // 0xc8e @0x14
0x0c7a…0cac at0015 = ╱22╱"╱ // 0xc8f @0x15
0x0c7a…0cac at0016 = ╱3a╱:╱ // 0xc90 @0x16
0x0c7a…0cac at0017 = ╱22╱"╱ // 0xc91 @0x17
0x0c7a…0cac at0018 = ╱eb╱ + ╱ // 0xc92 @0x18
0x0c7a…0cac at0019 = ╱53╱S╱ // 0xc93 @0x19
0x0c7a…0cac at001a = ╱5f╱_╱ // 0xc94 @0x1a
0x0c7a…0cac at001b = ╱4b╱K╱ // 0xc95 @0x1b
0x0c7a…0cac at001c = ╱4f╱O╱ // 0xc96 @0x1c
0x0c7a…0cac at001d = ╱44╱D╱ // 0xc97 @0x1d
0x0c7a…0cac at001e = ╱45╱E╱ // 0xc98 @0x1e
0x0c7a…0cac at001f = ╱ef╱ $ ╱ // 0xc99 @0x1f
0x0c7a…0cac at0020 = ╱eb╱ + ╱ // 0xc9a @0x20
0x0c7a…0cac at0021 = ╱54╱T╱ // 0xc9b @0x21
0x0c7a…0cac at0022 = ╱5f╱_╱ // 0xc9c @0x22
0x0c7a…0cac at0023 = ╱4b╱K╱ // 0xc9d @0x23
0x0c7a…0cac at0024 = ╱4f╱O╱ // 0xc9e @0x24
0x0c7a…0cac at0025 = ╱44╱D╱ // 0xc9f @0x25
0x0c7a…0cac at0026 = ╱45╱E╱ // 0xca0 @0x26
0x0c7a…0cac at0027 = ╱ef╱ $ ╱ // 0xca1 @0x27
0x0c7a…0cac at0028 = ╱eb╱ + ╱ // 0xca2 @0x28
0x0c7a…0cac at0029 = ╱22╱"╱ // 0xca3 @0x29
0x0c7a…0cac at002a = ╱46╱F╱ // 0xca4 @0x2a
0x0c7a…0cac at002b = ╱4b╱K╱ // 0xca5 @0x2b
0x0c7a…0cac at002c = ╱54╱T╱ // 0xca6 @0x2c
0x0c7a…0cac at002d = ╱4f╱O╱ // 0xca7 @0x2d
0x0c7a…0cac at002e = ╱4e╱N╱ // 0xca8 @0x2e
0x0c7a…0cac at002f = ╱52╱R╱ // 0xca9 @0x2f
0x0c7a…0cac at0030 = ╱22╱"╱ // 0xcaa @0x30
0x0c7a…0cac at0031 = EOL // 0xcab @0x31
0x0c7a…0cac }
0x0cac…0cde a2cc 01050 LET KTOGRP $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOGRP"
0x0cac…0cde LineComal80 {
0x0cac…0cde ptr = 0xa2cc // 0xcac @0x0
0x0cac…0cde lno = 0x041a // 0xcae @0x2
0x0cac…0cde at0004 = ╱86╱ LET ╱ // 0xcb0 @0x4
0x0cac…0cde at0005 = ╱4b╱K╱ // 0xcb1 @0x5
0x0cac…0cde at0006 = ╱54╱T╱ // 0xcb2 @0x6
0x0cac…0cde at0007 = ╱4f╱O╱ // 0xcb3 @0x7
0x0cac…0cde at0008 = ╱47╱G╱ // 0xcb4 @0x8
0x0cac…0cde at0009 = ╱52╱R╱ // 0xcb5 @0x9
0x0cac…0cde at000a = ╱50╱P╱ // 0xcb6 @0xa
0x0cac…0cde at000b = ╱ef╱ $ ╱ // 0xcb7 @0xb
0x0cac…0cde at000c = ╱f0╱ := ╱ // 0xcb8 @0xc
0x0cac…0cde at000d = ╱44╱D╱ // 0xcb9 @0xd
0x0cac…0cde at000e = ╱41╱A╱ // 0xcba @0xe
0x0cac…0cde at000f = ╱54╱T╱ // 0xcbb @0xf
0x0cac…0cde at0010 = ╱41╱A╱ // 0xcbc @0x10
0x0cac…0cde at0011 = ╱46╱F╱ // 0xcbd @0x11
0x0cac…0cde at0012 = ╱4c╱L╱ // 0xcbe @0x12
0x0cac…0cde at0013 = ╱ef╱ $ ╱ // 0xcbf @0x13
0x0cac…0cde at0014 = ╱eb╱ + ╱ // 0xcc0 @0x14
0x0cac…0cde at0015 = ╱22╱"╱ // 0xcc1 @0x15
0x0cac…0cde at0016 = ╱3a╱:╱ // 0xcc2 @0x16
0x0cac…0cde at0017 = ╱22╱"╱ // 0xcc3 @0x17
0x0cac…0cde at0018 = ╱eb╱ + ╱ // 0xcc4 @0x18
0x0cac…0cde at0019 = ╱53╱S╱ // 0xcc5 @0x19
0x0cac…0cde at001a = ╱5f╱_╱ // 0xcc6 @0x1a
0x0cac…0cde at001b = ╱4b╱K╱ // 0xcc7 @0x1b
0x0cac…0cde at001c = ╱4f╱O╱ // 0xcc8 @0x1c
0x0cac…0cde at001d = ╱44╱D╱ // 0xcc9 @0x1d
0x0cac…0cde at001e = ╱45╱E╱ // 0xcca @0x1e
0x0cac…0cde at001f = ╱ef╱ $ ╱ // 0xccb @0x1f
0x0cac…0cde at0020 = ╱eb╱ + ╱ // 0xccc @0x20
0x0cac…0cde at0021 = ╱54╱T╱ // 0xccd @0x21
0x0cac…0cde at0022 = ╱5f╱_╱ // 0xcce @0x22
0x0cac…0cde at0023 = ╱4b╱K╱ // 0xccf @0x23
0x0cac…0cde at0024 = ╱4f╱O╱ // 0xcd0 @0x24
0x0cac…0cde at0025 = ╱44╱D╱ // 0xcd1 @0x25
0x0cac…0cde at0026 = ╱45╱E╱ // 0xcd2 @0x26
0x0cac…0cde at0027 = ╱ef╱ $ ╱ // 0xcd3 @0x27
0x0cac…0cde at0028 = ╱eb╱ + ╱ // 0xcd4 @0x28
0x0cac…0cde at0029 = ╱22╱"╱ // 0xcd5 @0x29
0x0cac…0cde at002a = ╱4b╱K╱ // 0xcd6 @0x2a
0x0cac…0cde at002b = ╱54╱T╱ // 0xcd7 @0x2b
0x0cac…0cde at002c = ╱4f╱O╱ // 0xcd8 @0x2c
0x0cac…0cde at002d = ╱47╱G╱ // 0xcd9 @0x2d
0x0cac…0cde at002e = ╱52╱R╱ // 0xcda @0x2e
0x0cac…0cde at002f = ╱50╱P╱ // 0xcdb @0x2f
0x0cac…0cde at0030 = ╱22╱"╱ // 0xcdc @0x30
0x0cac…0cde at0031 = EOL // 0xcdd @0x31
0x0cac…0cde }
0x0cde…0cf7 a2e5 01060 EXEC OPENFIL ( TRANS $ , "W" )
0x0cde…0cf7 LineComal80 {
0x0cde…0cf7 ptr = 0xa2e5 // 0xcde @0x0
0x0cde…0cf7 lno = 0x0424 // 0xce0 @0x2
0x0cde…0cf7 at0004 = ╱9d╱ EXEC ╱ // 0xce2 @0x4
0x0cde…0cf7 at0005 = ╱4f╱O╱ // 0xce3 @0x5
0x0cde…0cf7 at0006 = ╱50╱P╱ // 0xce4 @0x6
0x0cde…0cf7 at0007 = ╱45╱E╱ // 0xce5 @0x7
0x0cde…0cf7 at0008 = ╱4e╱N╱ // 0xce6 @0x8
0x0cde…0cf7 at0009 = ╱46╱F╱ // 0xce7 @0x9
0x0cde…0cf7 at000a = ╱49╱I╱ // 0xce8 @0xa
0x0cde…0cf7 at000b = ╱4c╱L╱ // 0xce9 @0xb
0x0cde…0cf7 at000c = ╱ed╱ ( ╱ // 0xcea @0xc
0x0cde…0cf7 at000d = ╱54╱T╱ // 0xceb @0xd
0x0cde…0cf7 at000e = ╱52╱R╱ // 0xcec @0xe
0x0cde…0cf7 at000f = ╱41╱A╱ // 0xced @0xf
0x0cde…0cf7 at0010 = ╱4e╱N╱ // 0xcee @0x10
0x0cde…0cf7 at0011 = ╱53╱S╱ // 0xcef @0x11
0x0cde…0cf7 at0012 = ╱ef╱ $ ╱ // 0xcf0 @0x12
0x0cde…0cf7 at0013 = ╱ec╱ , ╱ // 0xcf1 @0x13
0x0cde…0cf7 at0014 = ╱22╱"╱ // 0xcf2 @0x14
0x0cde…0cf7 at0015 = ╱57╱W╱ // 0xcf3 @0x15
0x0cde…0cf7 at0016 = ╱22╱"╱ // 0xcf4 @0x16
0x0cde…0cf7 at0017 = ╱ee╱ ) ╱ // 0xcf5 @0x17
0x0cde…0cf7 at0018 = EOL // 0xcf6 @0x18
0x0cde…0cf7 }
0x0cf7…0d11 a2ff 01070 EXEC OPENFIL ( KTOIDX $ , "W" )
0x0cf7…0d11 LineComal80 {
0x0cf7…0d11 ptr = 0xa2ff // 0xcf7 @0x0
0x0cf7…0d11 lno = 0x042e // 0xcf9 @0x2
0x0cf7…0d11 at0004 = ╱9d╱ EXEC ╱ // 0xcfb @0x4
0x0cf7…0d11 at0005 = ╱4f╱O╱ // 0xcfc @0x5
0x0cf7…0d11 at0006 = ╱50╱P╱ // 0xcfd @0x6
0x0cf7…0d11 at0007 = ╱45╱E╱ // 0xcfe @0x7
0x0cf7…0d11 at0008 = ╱4e╱N╱ // 0xcff @0x8
0x0cf7…0d11 at0009 = ╱46╱F╱ // 0xd00 @0x9
0x0cf7…0d11 at000a = ╱49╱I╱ // 0xd01 @0xa
0x0cf7…0d11 at000b = ╱4c╱L╱ // 0xd02 @0xb
0x0cf7…0d11 at000c = ╱ed╱ ( ╱ // 0xd03 @0xc
0x0cf7…0d11 at000d = ╱4b╱K╱ // 0xd04 @0xd
0x0cf7…0d11 at000e = ╱54╱T╱ // 0xd05 @0xe
0x0cf7…0d11 at000f = ╱4f╱O╱ // 0xd06 @0xf
0x0cf7…0d11 at0010 = ╱49╱I╱ // 0xd07 @0x10
0x0cf7…0d11 at0011 = ╱44╱D╱ // 0xd08 @0x11
0x0cf7…0d11 at0012 = ╱58╱X╱ // 0xd09 @0x12
0x0cf7…0d11 at0013 = ╱ef╱ $ ╱ // 0xd0a @0x13
0x0cf7…0d11 at0014 = ╱ec╱ , ╱ // 0xd0b @0x14
0x0cf7…0d11 at0015 = ╱22╱"╱ // 0xd0c @0x15
0x0cf7…0d11 at0016 = ╱57╱W╱ // 0xd0d @0x16
0x0cf7…0d11 at0017 = ╱22╱"╱ // 0xd0e @0x17
0x0cf7…0d11 at0018 = ╱ee╱ ) ╱ // 0xd0f @0x18
0x0cf7…0d11 at0019 = EOL // 0xd10 @0x19
0x0cf7…0d11 }
0x0d11…0d2a a318 01080 EXEC OPENFIL ( KONTO $ , "W" )
0x0d11…0d2a LineComal80 {
0x0d11…0d2a ptr = 0xa318 // 0xd11 @0x0
0x0d11…0d2a lno = 0x0438 // 0xd13 @0x2
0x0d11…0d2a at0004 = ╱9d╱ EXEC ╱ // 0xd15 @0x4
0x0d11…0d2a at0005 = ╱4f╱O╱ // 0xd16 @0x5
0x0d11…0d2a at0006 = ╱50╱P╱ // 0xd17 @0x6
0x0d11…0d2a at0007 = ╱45╱E╱ // 0xd18 @0x7
0x0d11…0d2a at0008 = ╱4e╱N╱ // 0xd19 @0x8
0x0d11…0d2a at0009 = ╱46╱F╱ // 0xd1a @0x9
0x0d11…0d2a at000a = ╱49╱I╱ // 0xd1b @0xa
0x0d11…0d2a at000b = ╱4c╱L╱ // 0xd1c @0xb
0x0d11…0d2a at000c = ╱ed╱ ( ╱ // 0xd1d @0xc
0x0d11…0d2a at000d = ╱4b╱K╱ // 0xd1e @0xd
0x0d11…0d2a at000e = ╱4f╱O╱ // 0xd1f @0xe
0x0d11…0d2a at000f = ╱4e╱N╱ // 0xd20 @0xf
0x0d11…0d2a at0010 = ╱54╱T╱ // 0xd21 @0x10
0x0d11…0d2a at0011 = ╱4f╱O╱ // 0xd22 @0x11
0x0d11…0d2a at0012 = ╱ef╱ $ ╱ // 0xd23 @0x12
0x0d11…0d2a at0013 = ╱ec╱ , ╱ // 0xd24 @0x13
0x0d11…0d2a at0014 = ╱22╱"╱ // 0xd25 @0x14
0x0d11…0d2a at0015 = ╱57╱W╱ // 0xd26 @0x15
0x0d11…0d2a at0016 = ╱22╱"╱ // 0xd27 @0x16
0x0d11…0d2a at0017 = ╱ee╱ ) ╱ // 0xd28 @0x17
0x0d11…0d2a at0018 = EOL // 0xd29 @0x18
0x0d11…0d2a }
0x0d2a…0d44 a332 01090 EXEC OPENFIL ( FKTONR $ , "R" )
0x0d2a…0d44 LineComal80 {
0x0d2a…0d44 ptr = 0xa332 // 0xd2a @0x0
0x0d2a…0d44 lno = 0x0442 // 0xd2c @0x2
0x0d2a…0d44 at0004 = ╱9d╱ EXEC ╱ // 0xd2e @0x4
0x0d2a…0d44 at0005 = ╱4f╱O╱ // 0xd2f @0x5
0x0d2a…0d44 at0006 = ╱50╱P╱ // 0xd30 @0x6
0x0d2a…0d44 at0007 = ╱45╱E╱ // 0xd31 @0x7
0x0d2a…0d44 at0008 = ╱4e╱N╱ // 0xd32 @0x8
0x0d2a…0d44 at0009 = ╱46╱F╱ // 0xd33 @0x9
0x0d2a…0d44 at000a = ╱49╱I╱ // 0xd34 @0xa
0x0d2a…0d44 at000b = ╱4c╱L╱ // 0xd35 @0xb
0x0d2a…0d44 at000c = ╱ed╱ ( ╱ // 0xd36 @0xc
0x0d2a…0d44 at000d = ╱46╱F╱ // 0xd37 @0xd
0x0d2a…0d44 at000e = ╱4b╱K╱ // 0xd38 @0xe
0x0d2a…0d44 at000f = ╱54╱T╱ // 0xd39 @0xf
0x0d2a…0d44 at0010 = ╱4f╱O╱ // 0xd3a @0x10
0x0d2a…0d44 at0011 = ╱4e╱N╱ // 0xd3b @0x11
0x0d2a…0d44 at0012 = ╱52╱R╱ // 0xd3c @0x12
0x0d2a…0d44 at0013 = ╱ef╱ $ ╱ // 0xd3d @0x13
0x0d2a…0d44 at0014 = ╱ec╱ , ╱ // 0xd3e @0x14
0x0d2a…0d44 at0015 = ╱22╱"╱ // 0xd3f @0x15
0x0d2a…0d44 at0016 = ╱52╱R╱ // 0xd40 @0x16
0x0d2a…0d44 at0017 = ╱22╱"╱ // 0xd41 @0x17
0x0d2a…0d44 at0018 = ╱ee╱ ) ╱ // 0xd42 @0x18
0x0d2a…0d44 at0019 = EOL // 0xd43 @0x19
0x0d2a…0d44 }
0x0d44…0d5f a34d 01100 GET FKTONR $ , 7 : RES_KTO $
0x0d44…0d5f LineComal80 {
0x0d44…0d5f ptr = 0xa34d // 0xd44 @0x0
0x0d44…0d5f lno = 0x044c // 0xd46 @0x2
0x0d44…0d5f at0004 = ╱a9╱ GET ╱ // 0xd48 @0x4
0x0d44…0d5f at0005 = ╱46╱F╱ // 0xd49 @0x5
0x0d44…0d5f at0006 = ╱4b╱K╱ // 0xd4a @0x6
0x0d44…0d5f at0007 = ╱54╱T╱ // 0xd4b @0x7
0x0d44…0d5f at0008 = ╱4f╱O╱ // 0xd4c @0x8
0x0d44…0d5f at0009 = ╱4e╱N╱ // 0xd4d @0x9
0x0d44…0d5f at000a = ╱52╱R╱ // 0xd4e @0xa
0x0d44…0d5f at000b = ╱ef╱ $ ╱ // 0xd4f @0xb
0x0d44…0d5f at000c = ╱ec╱ , ╱ // 0xd50 @0xc
0x0d44…0d5f at000d = ╱37╱7╱ // 0xd51 @0xd
0x0d44…0d5f at000e = ╱f20700╱ // 0xd52 @0xe
0x0d44…0d5f at0011 = ╱f1╱ : ╱ // 0xd55 @0x11
0x0d44…0d5f at0012 = ╱52╱R╱ // 0xd56 @0x12
0x0d44…0d5f at0013 = ╱45╱E╱ // 0xd57 @0x13
0x0d44…0d5f at0014 = ╱53╱S╱ // 0xd58 @0x14
0x0d44…0d5f at0015 = ╱5f╱_╱ // 0xd59 @0x15
0x0d44…0d5f at0016 = ╱4b╱K╱ // 0xd5a @0x16
0x0d44…0d5f at0017 = ╱54╱T╱ // 0xd5b @0x17
0x0d44…0d5f at0018 = ╱4f╱O╱ // 0xd5c @0x18
0x0d44…0d5f at0019 = ╱ef╱ $ ╱ // 0xd5d @0x19
0x0d44…0d5f at001a = EOL // 0xd5e @0x1a
0x0d44…0d5f }
0x0d5f…0d7a a368 01110 GET FKTONR $ , 8 : BAL_KTO $
0x0d5f…0d7a LineComal80 {
0x0d5f…0d7a ptr = 0xa368 // 0xd5f @0x0
0x0d5f…0d7a lno = 0x0456 // 0xd61 @0x2
0x0d5f…0d7a at0004 = ╱a9╱ GET ╱ // 0xd63 @0x4
0x0d5f…0d7a at0005 = ╱46╱F╱ // 0xd64 @0x5
0x0d5f…0d7a at0006 = ╱4b╱K╱ // 0xd65 @0x6
0x0d5f…0d7a at0007 = ╱54╱T╱ // 0xd66 @0x7
0x0d5f…0d7a at0008 = ╱4f╱O╱ // 0xd67 @0x8
0x0d5f…0d7a at0009 = ╱4e╱N╱ // 0xd68 @0x9
0x0d5f…0d7a at000a = ╱52╱R╱ // 0xd69 @0xa
0x0d5f…0d7a at000b = ╱ef╱ $ ╱ // 0xd6a @0xb
0x0d5f…0d7a at000c = ╱ec╱ , ╱ // 0xd6b @0xc
0x0d5f…0d7a at000d = ╱38╱8╱ // 0xd6c @0xd
0x0d5f…0d7a at000e = ╱f20800╱ // 0xd6d @0xe
0x0d5f…0d7a at0011 = ╱f1╱ : ╱ // 0xd70 @0x11
0x0d5f…0d7a at0012 = ╱42╱B╱ // 0xd71 @0x12
0x0d5f…0d7a at0013 = ╱41╱A╱ // 0xd72 @0x13
0x0d5f…0d7a at0014 = ╱4c╱L╱ // 0xd73 @0x14
0x0d5f…0d7a at0015 = ╱5f╱_╱ // 0xd74 @0x15
0x0d5f…0d7a at0016 = ╱4b╱K╱ // 0xd75 @0x16
0x0d5f…0d7a at0017 = ╱54╱T╱ // 0xd76 @0x17
0x0d5f…0d7a at0018 = ╱4f╱O╱ // 0xd77 @0x18
0x0d5f…0d7a at0019 = ╱ef╱ $ ╱ // 0xd78 @0x19
0x0d5f…0d7a at001a = EOL // 0xd79 @0x1a
0x0d5f…0d7a }
0x0d7a…0d87 a375 01120 CLOSE FKTONR $
0x0d7a…0d87 LineComal80 {
0x0d7a…0d87 ptr = 0xa375 // 0xd7a @0x0
0x0d7a…0d87 lno = 0x0460 // 0xd7c @0x2
0x0d7a…0d87 at0004 = ╱a8╱ CLOSE ╱ // 0xd7e @0x4
0x0d7a…0d87 at0005 = ╱46╱F╱ // 0xd7f @0x5
0x0d7a…0d87 at0006 = ╱4b╱K╱ // 0xd80 @0x6
0x0d7a…0d87 at0007 = ╱54╱T╱ // 0xd81 @0x7
0x0d7a…0d87 at0008 = ╱4f╱O╱ // 0xd82 @0x8
0x0d7a…0d87 at0009 = ╱4e╱N╱ // 0xd83 @0x9
0x0d7a…0d87 at000a = ╱52╱R╱ // 0xd84 @0xa
0x0d7a…0d87 at000b = ╱ef╱ $ ╱ // 0xd85 @0xb
0x0d7a…0d87 at000c = EOL // 0xd86 @0xc
0x0d7a…0d87 }
0x0d87…0da1 a38f 01130 EXEC OPENFIL ( KTOGRP $ , "R" )
0x0d87…0da1 LineComal80 {
0x0d87…0da1 ptr = 0xa38f // 0xd87 @0x0
0x0d87…0da1 lno = 0x046a // 0xd89 @0x2
0x0d87…0da1 at0004 = ╱9d╱ EXEC ╱ // 0xd8b @0x4
0x0d87…0da1 at0005 = ╱4f╱O╱ // 0xd8c @0x5
0x0d87…0da1 at0006 = ╱50╱P╱ // 0xd8d @0x6
0x0d87…0da1 at0007 = ╱45╱E╱ // 0xd8e @0x7
0x0d87…0da1 at0008 = ╱4e╱N╱ // 0xd8f @0x8
0x0d87…0da1 at0009 = ╱46╱F╱ // 0xd90 @0x9
0x0d87…0da1 at000a = ╱49╱I╱ // 0xd91 @0xa
0x0d87…0da1 at000b = ╱4c╱L╱ // 0xd92 @0xb
0x0d87…0da1 at000c = ╱ed╱ ( ╱ // 0xd93 @0xc
0x0d87…0da1 at000d = ╱4b╱K╱ // 0xd94 @0xd
0x0d87…0da1 at000e = ╱54╱T╱ // 0xd95 @0xe
0x0d87…0da1 at000f = ╱4f╱O╱ // 0xd96 @0xf
0x0d87…0da1 at0010 = ╱47╱G╱ // 0xd97 @0x10
0x0d87…0da1 at0011 = ╱52╱R╱ // 0xd98 @0x11
0x0d87…0da1 at0012 = ╱50╱P╱ // 0xd99 @0x12
0x0d87…0da1 at0013 = ╱ef╱ $ ╱ // 0xd9a @0x13
0x0d87…0da1 at0014 = ╱ec╱ , ╱ // 0xd9b @0x14
0x0d87…0da1 at0015 = ╱22╱"╱ // 0xd9c @0x15
0x0d87…0da1 at0016 = ╱52╱R╱ // 0xd9d @0x16
0x0d87…0da1 at0017 = ╱22╱"╱ // 0xd9e @0x17
0x0d87…0da1 at0018 = ╱ee╱ ) ╱ // 0xd9f @0x18
0x0d87…0da1 at0019 = EOL // 0xda0 @0x19
0x0d87…0da1 }
0x0da1…0dbc a3aa 01140 GET KTOGRP $ , 12 : DEBGRP $
0x0da1…0dbc LineComal80 {
0x0da1…0dbc ptr = 0xa3aa // 0xda1 @0x0
0x0da1…0dbc lno = 0x0474 // 0xda3 @0x2
0x0da1…0dbc at0004 = ╱a9╱ GET ╱ // 0xda5 @0x4
0x0da1…0dbc at0005 = ╱4b╱K╱ // 0xda6 @0x5
0x0da1…0dbc at0006 = ╱54╱T╱ // 0xda7 @0x6
0x0da1…0dbc at0007 = ╱4f╱O╱ // 0xda8 @0x7
0x0da1…0dbc at0008 = ╱47╱G╱ // 0xda9 @0x8
0x0da1…0dbc at0009 = ╱52╱R╱ // 0xdaa @0x9
0x0da1…0dbc at000a = ╱50╱P╱ // 0xdab @0xa
0x0da1…0dbc at000b = ╱ef╱ $ ╱ // 0xdac @0xb
0x0da1…0dbc at000c = ╱ec╱ , ╱ // 0xdad @0xc
0x0da1…0dbc at000d = ╱31╱1╱ // 0xdae @0xd
0x0da1…0dbc at000e = ╱32╱2╱ // 0xdaf @0xe
0x0da1…0dbc at000f = ╱f20c00╱ // 0xdb0 @0xf
0x0da1…0dbc at0012 = ╱f1╱ : ╱ // 0xdb3 @0x12
0x0da1…0dbc at0013 = ╱44╱D╱ // 0xdb4 @0x13
0x0da1…0dbc at0014 = ╱45╱E╱ // 0xdb5 @0x14
0x0da1…0dbc at0015 = ╱42╱B╱ // 0xdb6 @0x15
0x0da1…0dbc at0016 = ╱47╱G╱ // 0xdb7 @0x16
0x0da1…0dbc at0017 = ╱52╱R╱ // 0xdb8 @0x17
0x0da1…0dbc at0018 = ╱50╱P╱ // 0xdb9 @0x18
0x0da1…0dbc at0019 = ╱ef╱ $ ╱ // 0xdba @0x19
0x0da1…0dbc at001a = EOL // 0xdbb @0x1a
0x0da1…0dbc }
0x0dbc…0dd8 a3c6 01150 GET KTOGRP $ , 17 : KREDGRP $
0x0dbc…0dd8 LineComal80 {
0x0dbc…0dd8 ptr = 0xa3c6 // 0xdbc @0x0
0x0dbc…0dd8 lno = 0x047e // 0xdbe @0x2
0x0dbc…0dd8 at0004 = ╱a9╱ GET ╱ // 0xdc0 @0x4
0x0dbc…0dd8 at0005 = ╱4b╱K╱ // 0xdc1 @0x5
0x0dbc…0dd8 at0006 = ╱54╱T╱ // 0xdc2 @0x6
0x0dbc…0dd8 at0007 = ╱4f╱O╱ // 0xdc3 @0x7
0x0dbc…0dd8 at0008 = ╱47╱G╱ // 0xdc4 @0x8
0x0dbc…0dd8 at0009 = ╱52╱R╱ // 0xdc5 @0x9
0x0dbc…0dd8 at000a = ╱50╱P╱ // 0xdc6 @0xa
0x0dbc…0dd8 at000b = ╱ef╱ $ ╱ // 0xdc7 @0xb
0x0dbc…0dd8 at000c = ╱ec╱ , ╱ // 0xdc8 @0xc
0x0dbc…0dd8 at000d = ╱31╱1╱ // 0xdc9 @0xd
0x0dbc…0dd8 at000e = ╱37╱7╱ // 0xdca @0xe
0x0dbc…0dd8 at000f = ╱f21100╱ // 0xdcb @0xf
0x0dbc…0dd8 at0012 = ╱f1╱ : ╱ // 0xdce @0x12
0x0dbc…0dd8 at0013 = ╱4b╱K╱ // 0xdcf @0x13
0x0dbc…0dd8 at0014 = ╱52╱R╱ // 0xdd0 @0x14
0x0dbc…0dd8 at0015 = ╱45╱E╱ // 0xdd1 @0x15
0x0dbc…0dd8 at0016 = ╱44╱D╱ // 0xdd2 @0x16
0x0dbc…0dd8 at0017 = ╱47╱G╱ // 0xdd3 @0x17
0x0dbc…0dd8 at0018 = ╱52╱R╱ // 0xdd4 @0x18
0x0dbc…0dd8 at0019 = ╱50╱P╱ // 0xdd5 @0x19
0x0dbc…0dd8 at001a = ╱ef╱ $ ╱ // 0xdd6 @0x1a
0x0dbc…0dd8 at001b = EOL // 0xdd7 @0x1b
0x0dbc…0dd8 }
0x0dd8…0de5 a3d3 01160 CLOSE KTOGRP $
0x0dd8…0de5 LineComal80 {
0x0dd8…0de5 ptr = 0xa3d3 // 0xdd8 @0x0
0x0dd8…0de5 lno = 0x0488 // 0xdda @0x2
0x0dd8…0de5 at0004 = ╱a8╱ CLOSE ╱ // 0xddc @0x4
0x0dd8…0de5 at0005 = ╱4b╱K╱ // 0xddd @0x5
0x0dd8…0de5 at0006 = ╱54╱T╱ // 0xdde @0x6
0x0dd8…0de5 at0007 = ╱4f╱O╱ // 0xddf @0x7
0x0dd8…0de5 at0008 = ╱47╱G╱ // 0xde0 @0x8
0x0dd8…0de5 at0009 = ╱52╱R╱ // 0xde1 @0x9
0x0dd8…0de5 at000a = ╱50╱P╱ // 0xde2 @0xa
0x0dd8…0de5 at000b = ╱ef╱ $ ╱ // 0xde3 @0xb
0x0dd8…0de5 at000c = EOL // 0xde4 @0xc
0x0dd8…0de5 }
0x0de5…0df2 a3e0 01170 ENDPROC INITIER
0x0de5…0df2 LineComal80 {
0x0de5…0df2 ptr = 0xa3e0 // 0xde5 @0x0
0x0de5…0df2 lno = 0x0492 // 0xde7 @0x2
0x0de5…0df2 at0004 = ╱9f╱ ENDPROC ╱ // 0xde9 @0x4
0x0de5…0df2 at0005 = ╱49╱I╱ // 0xdea @0x5
0x0de5…0df2 at0006 = ╱4e╱N╱ // 0xdeb @0x6
0x0de5…0df2 at0007 = ╱49╱I╱ // 0xdec @0x7
0x0de5…0df2 at0008 = ╱54╱T╱ // 0xded @0x8
0x0de5…0df2 at0009 = ╱49╱I╱ // 0xdee @0x9
0x0de5…0df2 at000a = ╱45╱E╱ // 0xdef @0xa
0x0de5…0df2 at000b = ╱52╱R╱ // 0xdf0 @0xb
0x0de5…0df2 at000c = EOL // 0xdf1 @0xc
0x0de5…0df2 }
0x0df2…0df7 a3e5 01180
0x0df2…0df7 LineComal80 {
0x0df2…0df7 ptr = 0xa3e5 // 0xdf2 @0x0
0x0df2…0df7 lno = 0x049c // 0xdf4 @0x2
0x0df2…0df7 at0004 = EOL // 0xdf6 @0x4
0x0df2…0df7 }
0x0df7…0dfd a3eb 01190 //
0x0df7…0dfd LineComal80 {
0x0df7…0dfd ptr = 0xa3eb // 0xdf7 @0x0
0x0df7…0dfd lno = 0x04a6 // 0xdf9 @0x2
0x0df7…0dfd at0004 = ╱89╱ // ╱ // 0xdfb @0x4
0x0df7…0dfd at0005 = EOL // 0xdfc @0x5
0x0df7…0dfd }
0x0dfd…0e10 a3fe 01200 PROC TERMINAL_IDX
0x0dfd…0e10 LineComal80 {
0x0dfd…0e10 ptr = 0xa3fe // 0xdfd @0x0
0x0dfd…0e10 lno = 0x04b0 // 0xdff @0x2
0x0dfd…0e10 at0004 = ╱9e00╱ PROC ╱ // 0xe01 @0x4
0x0dfd…0e10 at0006 = ╱54╱T╱ // 0xe03 @0x6
0x0dfd…0e10 at0007 = ╱45╱E╱ // 0xe04 @0x7
0x0dfd…0e10 at0008 = ╱52╱R╱ // 0xe05 @0x8
0x0dfd…0e10 at0009 = ╱4d╱M╱ // 0xe06 @0x9
0x0dfd…0e10 at000a = ╱49╱I╱ // 0xe07 @0xa
0x0dfd…0e10 at000b = ╱4e╱N╱ // 0xe08 @0xb
0x0dfd…0e10 at000c = ╱41╱A╱ // 0xe09 @0xc
0x0dfd…0e10 at000d = ╱4c╱L╱ // 0xe0a @0xd
0x0dfd…0e10 at000e = ╱5f╱_╱ // 0xe0b @0xe
0x0dfd…0e10 at000f = ╱49╱I╱ // 0xe0c @0xf
0x0dfd…0e10 at0010 = ╱44╱D╱ // 0xe0d @0x10
0x0dfd…0e10 at0011 = ╱58╱X╱ // 0xe0e @0x11
0x0dfd…0e10 at0012 = EOL // 0xe0f @0x12
0x0dfd…0e10 }
0x0e10…0e2a a418 01210 LET PPAR := 5 ; RESRV := 0
0x0e10…0e2a LineComal80 {
0x0e10…0e2a ptr = 0xa418 // 0xe10 @0x0
0x0e10…0e2a lno = 0x04ba // 0xe12 @0x2
0x0e10…0e2a at0004 = ╱86╱ LET ╱ // 0xe14 @0x4
0x0e10…0e2a at0005 = ╱50╱P╱ // 0xe15 @0x5
0x0e10…0e2a at0006 = ╱50╱P╱ // 0xe16 @0x6
0x0e10…0e2a at0007 = ╱41╱A╱ // 0xe17 @0x7
0x0e10…0e2a at0008 = ╱52╱R╱ // 0xe18 @0x8
0x0e10…0e2a at0009 = ╱f0╱ := ╱ // 0xe19 @0x9
0x0e10…0e2a at000a = ╱35╱5╱ // 0xe1a @0xa
0x0e10…0e2a at000b = ╱f20500╱ // 0xe1b @0xb
0x0e10…0e2a at000e = ╱ea╱ ; ╱ // 0xe1e @0xe
0x0e10…0e2a at000f = ╱52╱R╱ // 0xe1f @0xf
0x0e10…0e2a at0010 = ╱45╱E╱ // 0xe20 @0x10
0x0e10…0e2a at0011 = ╱53╱S╱ // 0xe21 @0x11
0x0e10…0e2a at0012 = ╱52╱R╱ // 0xe22 @0x12
0x0e10…0e2a at0013 = ╱56╱V╱ // 0xe23 @0x13
0x0e10…0e2a at0014 = ╱f0╱ := ╱ // 0xe24 @0x14
0x0e10…0e2a at0015 = ╱30╱0╱ // 0xe25 @0x15
0x0e10…0e2a at0016 = ╱f20000╱ // 0xe26 @0x16
0x0e10…0e2a at0019 = EOL // 0xe29 @0x19
0x0e10…0e2a }
0x0e2a…0e3c a42a 01220 CALL 7"DDE:PRES"
0x0e2a…0e3c LineComal80 {
0x0e2a…0e3c ptr = 0xa42a // 0xe2a @0x0
0x0e2a…0e3c lno = 0x04c4 // 0xe2c @0x2
0x0e2a…0e3c at0004 = ╱ad32╱ CALL ╱ // 0xe2e @0x4
0x0e2a…0e3c at0006 = ╱37╱7╱ // 0xe30 @0x6
0x0e2a…0e3c at0007 = ╱22╱"╱ // 0xe31 @0x7
0x0e2a…0e3c at0008 = ╱44╱D╱ // 0xe32 @0x8
0x0e2a…0e3c at0009 = ╱44╱D╱ // 0xe33 @0x9
0x0e2a…0e3c at000a = ╱45╱E╱ // 0xe34 @0xa
0x0e2a…0e3c at000b = ╱3a╱:╱ // 0xe35 @0xb
0x0e2a…0e3c at000c = ╱50╱P╱ // 0xe36 @0xc
0x0e2a…0e3c at000d = ╱52╱R╱ // 0xe37 @0xd
0x0e2a…0e3c at000e = ╱45╱E╱ // 0xe38 @0xe
0x0e2a…0e3c at000f = ╱53╱S╱ // 0xe39 @0xf
0x0e2a…0e3c at0010 = ╱22╱"╱ // 0xe3a @0x10
0x0e2a…0e3c at0011 = EOL // 0xe3b @0x11
0x0e2a…0e3c }
0x0e3c…0e65 a453 01230 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x0e3c…0e65 LineComal80 {
0x0e3c…0e65 ptr = 0xa453 // 0xe3c @0x0
0x0e3c…0e65 lno = 0x04ce // 0xe3e @0x2
0x0e3c…0e65 at0004 = ╱a9╱ GET ╱ // 0xe40 @0x4
0x0e3c…0e65 at0005 = ╱53╱S╱ // 0xe41 @0x5
0x0e3c…0e65 at0006 = ╱59╱Y╱ // 0xe42 @0x6
0x0e3c…0e65 at0007 = ╱53╱S╱ // 0xe43 @0x7
0x0e3c…0e65 at0008 = ╱50╱P╱ // 0xe44 @0x8
0x0e3c…0e65 at0009 = ╱41╱A╱ // 0xe45 @0x9
0x0e3c…0e65 at000a = ╱52╱R╱ // 0xe46 @0xa
0x0e3c…0e65 at000b = ╱41╱A╱ // 0xe47 @0xb
0x0e3c…0e65 at000c = ╱ef╱ $ ╱ // 0xe48 @0xc
0x0e3c…0e65 at000d = ╱ec╱ , ╱ // 0xe49 @0xd
0x0e3c…0e65 at000e = ╱31╱1╱ // 0xe4a @0xe
0x0e3c…0e65 at000f = ╱f20100╱ // 0xe4b @0xf
0x0e3c…0e65 at0012 = ╱e5╱ + ╱ // 0xe4e @0x12
0x0e3c…0e65 at0013 = ╱52╱R╱ // 0xe4f @0x13
0x0e3c…0e65 at0014 = ╱45╱E╱ // 0xe50 @0x14
0x0e3c…0e65 at0015 = ╱53╱S╱ // 0xe51 @0x15
0x0e3c…0e65 at0016 = ╱52╱R╱ // 0xe52 @0x16
0x0e3c…0e65 at0017 = ╱56╱V╱ // 0xe53 @0x17
0x0e3c…0e65 at0018 = ╱f1╱ : ╱ // 0xe54 @0x18
0x0e3c…0e65 at0019 = ╱44╱D╱ // 0xe55 @0x19
0x0e3c…0e65 at001a = ╱41╱A╱ // 0xe56 @0x1a
0x0e3c…0e65 at001b = ╱54╱T╱ // 0xe57 @0x1b
0x0e3c…0e65 at001c = ╱41╱A╱ // 0xe58 @0x1c
0x0e3c…0e65 at001d = ╱46╱F╱ // 0xe59 @0x1d
0x0e3c…0e65 at001e = ╱4c╱L╱ // 0xe5a @0x1e
0x0e3c…0e65 at001f = ╱ef╱ $ ╱ // 0xe5b @0x1f
0x0e3c…0e65 at0020 = ╱ec╱ , ╱ // 0xe5c @0x20
0x0e3c…0e65 at0021 = ╱54╱T╱ // 0xe5d @0x21
0x0e3c…0e65 at0022 = ╱5f╱_╱ // 0xe5e @0x22
0x0e3c…0e65 at0023 = ╱4b╱K╱ // 0xe5f @0x23
0x0e3c…0e65 at0024 = ╱4f╱O╱ // 0xe60 @0x24
0x0e3c…0e65 at0025 = ╱44╱D╱ // 0xe61 @0x25
0x0e3c…0e65 at0026 = ╱45╱E╱ // 0xe62 @0x26
0x0e3c…0e65 at0027 = ╱ef╱ $ ╱ // 0xe63 @0x27
0x0e3c…0e65 at0028 = EOL // 0xe64 @0x28
0x0e3c…0e65 }
0x0e65…0e77 a465 01240 ENDPROC TERMINAL_IDX
0x0e65…0e77 LineComal80 {
0x0e65…0e77 ptr = 0xa465 // 0xe65 @0x0
0x0e65…0e77 lno = 0x04d8 // 0xe67 @0x2
0x0e65…0e77 at0004 = ╱9f╱ ENDPROC ╱ // 0xe69 @0x4
0x0e65…0e77 at0005 = ╱54╱T╱ // 0xe6a @0x5
0x0e65…0e77 at0006 = ╱45╱E╱ // 0xe6b @0x6
0x0e65…0e77 at0007 = ╱52╱R╱ // 0xe6c @0x7
0x0e65…0e77 at0008 = ╱4d╱M╱ // 0xe6d @0x8
0x0e65…0e77 at0009 = ╱49╱I╱ // 0xe6e @0x9
0x0e65…0e77 at000a = ╱4e╱N╱ // 0xe6f @0xa
0x0e65…0e77 at000b = ╱41╱A╱ // 0xe70 @0xb
0x0e65…0e77 at000c = ╱4c╱L╱ // 0xe71 @0xc
0x0e65…0e77 at000d = ╱5f╱_╱ // 0xe72 @0xd
0x0e65…0e77 at000e = ╱49╱I╱ // 0xe73 @0xe
0x0e65…0e77 at000f = ╱44╱D╱ // 0xe74 @0xf
0x0e65…0e77 at0010 = ╱58╱X╱ // 0xe75 @0x10
0x0e65…0e77 at0011 = EOL // 0xe76 @0x11
0x0e65…0e77 }
0x0e77…0e7c a46a 01250
0x0e77…0e7c LineComal80 {
0x0e77…0e7c ptr = 0xa46a // 0xe77 @0x0
0x0e77…0e7c lno = 0x04e2 // 0xe79 @0x2
0x0e77…0e7c at0004 = EOL // 0xe7b @0x4
0x0e77…0e7c }
0x0e7c…0e97 a485 01260 PROC OPENFIL ( FNAVN $ , WAY $ )
0x0e7c…0e97 LineComal80 {
0x0e7c…0e97 ptr = 0xa485 // 0xe7c @0x0
0x0e7c…0e97 lno = 0x04ec // 0xe7e @0x2
0x0e7c…0e97 at0004 = ╱9e00╱ PROC ╱ // 0xe80 @0x4
0x0e7c…0e97 at0006 = ╱4f╱O╱ // 0xe82 @0x6
0x0e7c…0e97 at0007 = ╱50╱P╱ // 0xe83 @0x7
0x0e7c…0e97 at0008 = ╱45╱E╱ // 0xe84 @0x8
0x0e7c…0e97 at0009 = ╱4e╱N╱ // 0xe85 @0x9
0x0e7c…0e97 at000a = ╱46╱F╱ // 0xe86 @0xa
0x0e7c…0e97 at000b = ╱49╱I╱ // 0xe87 @0xb
0x0e7c…0e97 at000c = ╱4c╱L╱ // 0xe88 @0xc
0x0e7c…0e97 at000d = ╱ed╱ ( ╱ // 0xe89 @0xd
0x0e7c…0e97 at000e = ╱46╱F╱ // 0xe8a @0xe
0x0e7c…0e97 at000f = ╱4e╱N╱ // 0xe8b @0xf
0x0e7c…0e97 at0010 = ╱41╱A╱ // 0xe8c @0x10
0x0e7c…0e97 at0011 = ╱56╱V╱ // 0xe8d @0x11
0x0e7c…0e97 at0012 = ╱4e╱N╱ // 0xe8e @0x12
0x0e7c…0e97 at0013 = ╱ef╱ $ ╱ // 0xe8f @0x13
0x0e7c…0e97 at0014 = ╱ec╱ , ╱ // 0xe90 @0x14
0x0e7c…0e97 at0015 = ╱57╱W╱ // 0xe91 @0x15
0x0e7c…0e97 at0016 = ╱41╱A╱ // 0xe92 @0x16
0x0e7c…0e97 at0017 = ╱59╱Y╱ // 0xe93 @0x17
0x0e7c…0e97 at0018 = ╱ef╱ $ ╱ // 0xe94 @0x18
0x0e7c…0e97 at0019 = ╱ee╱ ) ╱ // 0xe95 @0x19
0x0e7c…0e97 at001a = EOL // 0xe96 @0x1a
0x0e7c…0e97 }
0x0e97…0e9e a48c 01270 REPEAT
0x0e97…0e9e LineComal80 {
0x0e97…0e9e ptr = 0xa48c // 0xe97 @0x0
0x0e97…0e9e lno = 0x04f6 // 0xe99 @0x2
0x0e97…0e9e at0004 = ╱9700╱ REPEAT ╱ // 0xe9b @0x4
0x0e97…0e9e at0006 = EOL // 0xe9d @0x6
0x0e97…0e9e }
0x0e9e…0eb7 a4a5 01280 IF AY $ = "W" OR WAY $ = "w" THEN
0x0e9e…0eb7 LineComal80 {
0x0e9e…0eb7 ptr = 0xa4a5 // 0xe9e @0x0
0x0e9e…0eb7 lno = 0x0500 // 0xea0 @0x2
0x0e9e…0eb7 at0004 = ╱9b0057╱ IF ╱ // 0xea2 @0x4
0x0e9e…0eb7 at0007 = ╱41╱A╱ // 0xea5 @0x7
0x0e9e…0eb7 at0008 = ╱59╱Y╱ // 0xea6 @0x8
0x0e9e…0eb7 at0009 = ╱ef╱ $ ╱ // 0xea7 @0x9
0x0e9e…0eb7 at000a = ╱df╱ = ╱ // 0xea8 @0xa
0x0e9e…0eb7 at000b = ╱22╱"╱ // 0xea9 @0xb
0x0e9e…0eb7 at000c = ╱57╱W╱ // 0xeaa @0xc
0x0e9e…0eb7 at000d = ╱22╱"╱ // 0xeab @0xd
0x0e9e…0eb7 at000e = ╱d8╱ OR ╱ // 0xeac @0xe
0x0e9e…0eb7 at000f = ╱57╱W╱ // 0xead @0xf
0x0e9e…0eb7 at0010 = ╱41╱A╱ // 0xeae @0x10
0x0e9e…0eb7 at0011 = ╱59╱Y╱ // 0xeaf @0x11
0x0e9e…0eb7 at0012 = ╱ef╱ $ ╱ // 0xeb0 @0x12
0x0e9e…0eb7 at0013 = ╱df╱ = ╱ // 0xeb1 @0x13
0x0e9e…0eb7 at0014 = ╱22╱"╱ // 0xeb2 @0x14
0x0e9e…0eb7 at0015 = ╱77╱w╱ // 0xeb3 @0x15
0x0e9e…0eb7 at0016 = ╱22╱"╱ // 0xeb4 @0x16
0x0e9e…0eb7 at0017 = ╱b5╱ THEN ╱ // 0xeb5 @0x17
0x0e9e…0eb7 at0018 = EOL // 0xeb6 @0x18
0x0e9e…0eb7 }
0x0eb7…0ec5 a4b3 01290 OPEN FNAVN $ , W
0x0eb7…0ec5 LineComal80 {
0x0eb7…0ec5 ptr = 0xa4b3 // 0xeb7 @0x0
0x0eb7…0ec5 lno = 0x050a // 0xeb9 @0x2
0x0eb7…0ec5 at0004 = ╱a7╱ OPEN ╱ // 0xebb @0x4
0x0eb7…0ec5 at0005 = ╱46╱F╱ // 0xebc @0x5
0x0eb7…0ec5 at0006 = ╱4e╱N╱ // 0xebd @0x6
0x0eb7…0ec5 at0007 = ╱41╱A╱ // 0xebe @0x7
0x0eb7…0ec5 at0008 = ╱56╱V╱ // 0xebf @0x8
0x0eb7…0ec5 at0009 = ╱4e╱N╱ // 0xec0 @0x9
0x0eb7…0ec5 at000a = ╱ef╱ $ ╱ // 0xec1 @0xa
0x0eb7…0ec5 at000b = ╱ec╱ , ╱ // 0xec2 @0xb
0x0eb7…0ec5 at000c = ╱57╱W╱ // 0xec3 @0xc
0x0eb7…0ec5 at000d = EOL // 0xec4 @0xd
0x0eb7…0ec5 }
0x0ec5…0ecc a4ba 01300 ELSE
0x0ec5…0ecc LineComal80 {
0x0ec5…0ecc ptr = 0xa4ba // 0xec5 @0x0
0x0ec5…0ecc lno = 0x0514 // 0xec7 @0x2
0x0ec5…0ecc at0004 = ╱9a00╱ ELSE ╱ // 0xec9 @0x4
0x0ec5…0ecc at0006 = EOL // 0xecb @0x6
0x0ec5…0ecc }
0x0ecc…0eda a4c8 01310 OPEN FNAVN $ , R
0x0ecc…0eda LineComal80 {
0x0ecc…0eda ptr = 0xa4c8 // 0xecc @0x0
0x0ecc…0eda lno = 0x051e // 0xece @0x2
0x0ecc…0eda at0004 = ╱a7╱ OPEN ╱ // 0xed0 @0x4
0x0ecc…0eda at0005 = ╱46╱F╱ // 0xed1 @0x5
0x0ecc…0eda at0006 = ╱4e╱N╱ // 0xed2 @0x6
0x0ecc…0eda at0007 = ╱41╱A╱ // 0xed3 @0x7
0x0ecc…0eda at0008 = ╱56╱V╱ // 0xed4 @0x8
0x0ecc…0eda at0009 = ╱4e╱N╱ // 0xed5 @0x9
0x0ecc…0eda at000a = ╱ef╱ $ ╱ // 0xed6 @0xa
0x0ecc…0eda at000b = ╱ec╱ , ╱ // 0xed7 @0xb
0x0ecc…0eda at000c = ╱52╱R╱ // 0xed8 @0xc
0x0ecc…0eda at000d = EOL // 0xed9 @0xd
0x0ecc…0eda }
0x0eda…0ee0 a4ce 01320 ENDIF
0x0eda…0ee0 LineComal80 {
0x0eda…0ee0 ptr = 0xa4ce // 0xeda @0x0
0x0eda…0ee0 lno = 0x0528 // 0xedc @0x2
0x0eda…0ee0 at0004 = ╱9c╱ ENDIF ╱ // 0xede @0x4
0x0eda…0ee0 at0005 = EOL // 0xedf @0x5
0x0eda…0ee0 }
0x0ee0…0ef1 a4df 01330 IF ( FNAVN $ ) THEN
0x0ee0…0ef1 LineComal80 {
0x0ee0…0ef1 ptr = 0xa4df // 0xee0 @0x0
0x0ee0…0ef1 lno = 0x0532 // 0xee2 @0x2
0x0ee0…0ef1 at0004 = ╱9b00cd╱ IF ╱ // 0xee4 @0x4
0x0ee0…0ef1 at0007 = ╱ed╱ ( ╱ // 0xee7 @0x7
0x0ee0…0ef1 at0008 = ╱46╱F╱ // 0xee8 @0x8
0x0ee0…0ef1 at0009 = ╱4e╱N╱ // 0xee9 @0x9
0x0ee0…0ef1 at000a = ╱41╱A╱ // 0xeea @0xa
0x0ee0…0ef1 at000b = ╱56╱V╱ // 0xeeb @0xb
0x0ee0…0ef1 at000c = ╱4e╱N╱ // 0xeec @0xc
0x0ee0…0ef1 at000d = ╱ef╱ $ ╱ // 0xeed @0xd
0x0ee0…0ef1 at000e = ╱ee╱ ) ╱ // 0xeee @0xe
0x0ee0…0ef1 at000f = ╱b5╱ THEN ╱ // 0xeef @0xf
0x0ee0…0ef1 at0010 = EOL // 0xef0 @0x10
0x0ee0…0ef1 }
0x0ef1…0f04 a4f2 01340 PRINT "<S>" ; CHR$ ( 7 )
0x0ef1…0f04 LineComal80 {
0x0ef1…0f04 ptr = 0xa4f2 // 0xef1 @0x0
0x0ef1…0f04 lno = 0x053c // 0xef3 @0x2
0x0ef1…0f04 at0004 = ╱92╱ PRINT ╱ // 0xef5 @0x4
0x0ef1…0f04 at0005 = ╱22╱"╱ // 0xef6 @0x5
0x0ef1…0f04 at0006 = ╱3c╱<╱ // 0xef7 @0x6
0x0ef1…0f04 at0007 = ╱53╱S╱ // 0xef8 @0x7
0x0ef1…0f04 at0008 = ╱3e╱>╱ // 0xef9 @0x8
0x0ef1…0f04 at0009 = ╱22╱"╱ // 0xefa @0x9
0x0ef1…0f04 at000a = ╱ea╱ ; ╱ // 0xefb @0xa
0x0ef1…0f04 at000b = ╱d0╱ CHR$ ╱ // 0xefc @0xb
0x0ef1…0f04 at000c = ╱ed╱ ( ╱ // 0xefd @0xc
0x0ef1…0f04 at000d = ╱37╱7╱ // 0xefe @0xd
0x0ef1…0f04 at000e = ╱f20700╱ // 0xeff @0xe
0x0ef1…0f04 at0011 = ╱ee╱ ) ╱ // 0xf02 @0x11
0x0ef1…0f04 at0012 = EOL // 0xf03 @0x12
0x0ef1…0f04 }
0x0f04…0f1a a508 01350 IF ( FNAVN $ ) = 6 THEN
0x0f04…0f1a LineComal80 {
0x0f04…0f1a ptr = 0xa508 // 0xf04 @0x0
0x0f04…0f1a lno = 0x0546 // 0xf06 @0x2
0x0f04…0f1a at0004 = ╱9b00cd╱ IF ╱ // 0xf08 @0x4
0x0f04…0f1a at0007 = ╱ed╱ ( ╱ // 0xf0b @0x7
0x0f04…0f1a at0008 = ╱46╱F╱ // 0xf0c @0x8
0x0f04…0f1a at0009 = ╱4e╱N╱ // 0xf0d @0x9
0x0f04…0f1a at000a = ╱41╱A╱ // 0xf0e @0xa
0x0f04…0f1a at000b = ╱56╱V╱ // 0xf0f @0xb
0x0f04…0f1a at000c = ╱4e╱N╱ // 0xf10 @0xc
0x0f04…0f1a at000d = ╱ef╱ $ ╱ // 0xf11 @0xd
0x0f04…0f1a at000e = ╱ee╱ ) ╱ // 0xf12 @0xe
0x0f04…0f1a at000f = ╱df╱ = ╱ // 0xf13 @0xf
0x0f04…0f1a at0010 = ╱36╱6╱ // 0xf14 @0x10
0x0f04…0f1a at0011 = ╱f20600╱ // 0xf15 @0x11
0x0f04…0f1a at0014 = ╱b5╱ THEN ╱ // 0xf18 @0x14
0x0f04…0f1a at0015 = EOL // 0xf19 @0x15
0x0f04…0f1a }
0x0f1a…0f5f a54d 01360 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x0f1a…0f5f LineComal80 {
0x0f1a…0f5f ptr = 0xa54d // 0xf1a @0x0
0x0f1a…0f5f lno = 0x0550 // 0xf1c @0x2
0x0f1a…0f5f at0004 = ╱92╱ PRINT ╱ // 0xf1e @0x4
0x0f1a…0f5f at0005 = ╱22╱"╱ // 0xf1f @0x5
0x0f1a…0f5f at0006 = ╱3c╱<╱ // 0xf20 @0x6
0x0f1a…0f5f at0007 = ╱53╱S╱ // 0xf21 @0x7
0x0f1a…0f5f at0008 = ╱43╱C╱ // 0xf22 @0x8
0x0f1a…0f5f at0009 = ╱31╱1╱ // 0xf23 @0x9
0x0f1a…0f5f at000a = ╱36╱6╱ // 0xf24 @0xa
0x0f1a…0f5f at000b = ╱30╱0╱ // 0xf25 @0xb
0x0f1a…0f5f at000c = ╱32╱2╱ // 0xf26 @0xc
0x0f1a…0f5f at000d = ╱3e╱>╱ // 0xf27 @0xd
0x0f1a…0f5f at000e = ╱2a╱*╱ // 0xf28 @0xe
0x0f1a…0f5f at000f = ╱2a╱*╱ // 0xf29 @0xf
0x0f1a…0f5f at0010 = ╱2a╱*╱ // 0xf2a @0x10
0x0f1a…0f5f at0011 = ╱20╱…╱ // 0xf2b @0x11
0x0f1a…0f5f at0012 = ╱46╱F╱ // 0xf2c @0x12
0x0f1a…0f5f at0013 = ╱65╱e╱ // 0xf2d @0x13
0x0f1a…0f5f at0014 = ╱6a╱j╱ // 0xf2e @0x14
0x0f1a…0f5f at0015 = ╱6c╱l╱ // 0xf2f @0x15
0x0f1a…0f5f at0016 = ╱20╱…╱ // 0xf30 @0x16
0x0f1a…0f5f at0017 = ╱6e╱n╱ // 0xf31 @0x17
0x0f1a…0f5f at0018 = ╱72╱r╱ // 0xf32 @0x18
0x0f1a…0f5f at0019 = ╱2e╱.╱ // 0xf33 @0x19
0x0f1a…0f5f at001a = ╱20╱…╱ // 0xf34 @0x1a
0x0f1a…0f5f at001b = ╱36╱6╱ // 0xf35 @0x1b
0x0f1a…0f5f at001c = ╱20╱…╱ // 0xf36 @0x1c
0x0f1a…0f5f at001d = ╱2d╱-╱ // 0xf37 @0x1d
0x0f1a…0f5f at001e = ╱20╱…╱ // 0xf38 @0x1e
0x0f1a…0f5f at001f = ╱69╱i╱ // 0xf39 @0x1f
0x0f1a…0f5f at0020 = ╱6e╱n╱ // 0xf3a @0x20
0x0f1a…0f5f at0021 = ╱64╱d╱ // 0xf3b @0x21
0x0f1a…0f5f at0022 = ╱73╱s╱ // 0xf3c @0x22
0x0f1a…0f5f at0023 = ╱7b╱{╱ // 0xf3d @0x23
0x0f1a…0f5f at0024 = ╱74╱t╱ // 0xf3e @0x24
0x0f1a…0f5f at0025 = ╱20╱…╱ // 0xf3f @0x25
0x0f1a…0f5f at0026 = ╱64╱d╱ // 0xf40 @0x26
0x0f1a…0f5f at0027 = ╱69╱i╱ // 0xf41 @0x27
0x0f1a…0f5f at0028 = ╱73╱s╱ // 0xf42 @0x28
0x0f1a…0f5f at0029 = ╱6b╱k╱ // 0xf43 @0x29
0x0f1a…0f5f at002a = ╱65╱e╱ // 0xf44 @0x2a
0x0f1a…0f5f at002b = ╱74╱t╱ // 0xf45 @0x2b
0x0f1a…0f5f at002c = ╱74╱t╱ // 0xf46 @0x2c
0x0f1a…0f5f at002d = ╱65╱e╱ // 0xf47 @0x2d
0x0f1a…0f5f at002e = ╱20╱…╱ // 0xf48 @0x2e
0x0f1a…0f5f at002f = ╱6f╱o╱ // 0xf49 @0x2f
0x0f1a…0f5f at0030 = ╱67╱g╱ // 0xf4a @0x30
0x0f1a…0f5f at0031 = ╱20╱…╱ // 0xf4b @0x31
0x0f1a…0f5f at0032 = ╱74╱t╱ // 0xf4c @0x32
0x0f1a…0f5f at0033 = ╱72╱r╱ // 0xf4d @0x33
0x0f1a…0f5f at0034 = ╱79╱y╱ // 0xf4e @0x34
0x0f1a…0f5f at0035 = ╱6b╱k╱ // 0xf4f @0x35
0x0f1a…0f5f at0036 = ╱20╱…╱ // 0xf50 @0x36
0x0f1a…0f5f at0037 = ╱3c╱<╱ // 0xf51 @0x37
0x0f1a…0f5f at0038 = ╱52╱R╱ // 0xf52 @0x38
0x0f1a…0f5f at0039 = ╱45╱E╱ // 0xf53 @0x39
0x0f1a…0f5f at003a = ╱54╱T╱ // 0xf54 @0x3a
0x0f1a…0f5f at003b = ╱55╱U╱ // 0xf55 @0x3b
0x0f1a…0f5f at003c = ╱52╱R╱ // 0xf56 @0x3c
0x0f1a…0f5f at003d = ╱4e╱N╱ // 0xf57 @0x3d
0x0f1a…0f5f at003e = ╱3e╱>╱ // 0xf58 @0x3e
0x0f1a…0f5f at003f = ╱20╱…╱ // 0xf59 @0x3f
0x0f1a…0f5f at0040 = ╱2a╱*╱ // 0xf5a @0x40
0x0f1a…0f5f at0041 = ╱2a╱*╱ // 0xf5b @0x41
0x0f1a…0f5f at0042 = ╱2a╱*╱ // 0xf5c @0x42
0x0f1a…0f5f at0043 = ╱22╱"╱ // 0xf5d @0x43
0x0f1a…0f5f at0044 = EOL // 0xf5e @0x44
0x0f1a…0f5f }
0x0f5f…0f6d a55b 01370 INPUT "" : SVAR $
0x0f5f…0f6d LineComal80 {
0x0f5f…0f6d ptr = 0xa55b // 0xf5f @0x0
0x0f5f…0f6d lno = 0x055a // 0xf61 @0x2
0x0f5f…0f6d at0004 = ╱91╱ INPUT ╱ // 0xf63 @0x4
0x0f5f…0f6d at0005 = ╱22╱"╱ // 0xf64 @0x5
0x0f5f…0f6d at0006 = ╱22╱"╱ // 0xf65 @0x6
0x0f5f…0f6d at0007 = ╱f1╱ : ╱ // 0xf66 @0x7
0x0f5f…0f6d at0008 = ╱53╱S╱ // 0xf67 @0x8
0x0f5f…0f6d at0009 = ╱56╱V╱ // 0xf68 @0x9
0x0f5f…0f6d at000a = ╱41╱A╱ // 0xf69 @0xa
0x0f5f…0f6d at000b = ╱52╱R╱ // 0xf6a @0xb
0x0f5f…0f6d at000c = ╱ef╱ $ ╱ // 0xf6b @0xc
0x0f5f…0f6d at000d = EOL // 0xf6c @0xd
0x0f5f…0f6d }
0x0f6d…0f74 a562 01380 ELSE
0x0f6d…0f74 LineComal80 {
0x0f6d…0f74 ptr = 0xa562 // 0xf6d @0x0
0x0f6d…0f74 lno = 0x0564 // 0xf6f @0x2
0x0f6d…0f74 at0004 = ╱9a00╱ ELSE ╱ // 0xf71 @0x4
0x0f6d…0f74 at0006 = EOL // 0xf73 @0x6
0x0f6d…0f74 }
0x0f74…0fb5 a5a3 01390 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x0f74…0fb5 LineComal80 {
0x0f74…0fb5 ptr = 0xa5a3 // 0xf74 @0x0
0x0f74…0fb5 lno = 0x056e // 0xf76 @0x2
0x0f74…0fb5 at0004 = ╱92╱ PRINT ╱ // 0xf78 @0x4
0x0f74…0fb5 at0005 = ╱22╱"╱ // 0xf79 @0x5
0x0f74…0fb5 at0006 = ╱3c╱<╱ // 0xf7a @0x6
0x0f74…0fb5 at0007 = ╱53╱S╱ // 0xf7b @0x7
0x0f74…0fb5 at0008 = ╱43╱C╱ // 0xf7c @0x8
0x0f74…0fb5 at0009 = ╱31╱1╱ // 0xf7d @0x9
0x0f74…0fb5 at000a = ╱38╱8╱ // 0xf7e @0xa
0x0f74…0fb5 at000b = ╱30╱0╱ // 0xf7f @0xb
0x0f74…0fb5 at000c = ╱32╱2╱ // 0xf80 @0xc
0x0f74…0fb5 at000d = ╱3e╱>╱ // 0xf81 @0xd
0x0f74…0fb5 at000e = ╱2a╱*╱ // 0xf82 @0xe
0x0f74…0fb5 at000f = ╱2a╱*╱ // 0xf83 @0xf
0x0f74…0fb5 at0010 = ╱2a╱*╱ // 0xf84 @0x10
0x0f74…0fb5 at0011 = ╱20╱…╱ // 0xf85 @0x11
0x0f74…0fb5 at0012 = ╱46╱F╱ // 0xf86 @0x12
0x0f74…0fb5 at0013 = ╱65╱e╱ // 0xf87 @0x13
0x0f74…0fb5 at0014 = ╱6a╱j╱ // 0xf88 @0x14
0x0f74…0fb5 at0015 = ╱6c╱l╱ // 0xf89 @0x15
0x0f74…0fb5 at0016 = ╱20╱…╱ // 0xf8a @0x16
0x0f74…0fb5 at0017 = ╱6e╱n╱ // 0xf8b @0x17
0x0f74…0fb5 at0018 = ╱72╱r╱ // 0xf8c @0x18
0x0f74…0fb5 at0019 = ╱2e╱.╱ // 0xf8d @0x19
0x0f74…0fb5 at001a = ╱20╱…╱ // 0xf8e @0x1a
0x0f74…0fb5 at001b = ╱22╱"╱ // 0xf8f @0x1b
0x0f74…0fb5 at001c = ╱ea╱ ; ╱ // 0xf90 @0x1c
0x0f74…0fb5 at001d = ╱d0╱ CHR$ ╱ // 0xf91 @0x1d
0x0f74…0fb5 at001e = ╱ed╱ ( ╱ // 0xf92 @0x1e
0x0f74…0fb5 at001f = ╱cd╱ // 0xf93 @0x1f
0x0f74…0fb5 at0020 = ╱ed╱ ( ╱ // 0xf94 @0x20
0x0f74…0fb5 at0021 = ╱46╱F╱ // 0xf95 @0x21
0x0f74…0fb5 at0022 = ╱4e╱N╱ // 0xf96 @0x22
0x0f74…0fb5 at0023 = ╱41╱A╱ // 0xf97 @0x23
0x0f74…0fb5 at0024 = ╱56╱V╱ // 0xf98 @0x24
0x0f74…0fb5 at0025 = ╱4e╱N╱ // 0xf99 @0x25
0x0f74…0fb5 at0026 = ╱ef╱ $ ╱ // 0xf9a @0x26
0x0f74…0fb5 at0027 = ╱ee╱ ) ╱ // 0xf9b @0x27
0x0f74…0fb5 at0028 = ╱ec╱ , ╱ // 0xf9c @0x28
0x0f74…0fb5 at0029 = ╱32╱2╱ // 0xf9d @0x29
0x0f74…0fb5 at002a = ╱f20200╱ // 0xf9e @0x2a
0x0f74…0fb5 at002d = ╱ee╱ ) ╱ // 0xfa1 @0x2d
0x0f74…0fb5 at002e = ╱ea╱ ; ╱ // 0xfa2 @0x2e
0x0f74…0fb5 at002f = ╱22╱"╱ // 0xfa3 @0x2f
0x0f74…0fb5 at0030 = ╱20╱…╱ // 0xfa4 @0x30
0x0f74…0fb5 at0031 = ╱76╱v╱ // 0xfa5 @0x31
0x0f74…0fb5 at0032 = ╱65╱e╱ // 0xfa6 @0x32
0x0f74…0fb5 at0033 = ╱64╱d╱ // 0xfa7 @0x33
0x0f74…0fb5 at0034 = ╱20╱…╱ // 0xfa8 @0x34
0x0f74…0fb5 at0035 = ╱7d╱}╱ // 0xfa9 @0x35
0x0f74…0fb5 at0036 = ╱62╱b╱ // 0xfaa @0x36
0x0f74…0fb5 at0037 = ╱6e╱n╱ // 0xfab @0x37
0x0f74…0fb5 at0038 = ╱69╱i╱ // 0xfac @0x38
0x0f74…0fb5 at0039 = ╱6e╱n╱ // 0xfad @0x39
0x0f74…0fb5 at003a = ╱67╱g╱ // 0xfae @0x3a
0x0f74…0fb5 at003b = ╱20╱…╱ // 0xfaf @0x3b
0x0f74…0fb5 at003c = ╱61╱a╱ // 0xfb0 @0x3c
0x0f74…0fb5 at003d = ╱66╱f╱ // 0xfb1 @0x3d
0x0f74…0fb5 at003e = ╱20╱…╱ // 0xfb2 @0x3e
0x0f74…0fb5 at003f = ╱22╱"╱ // 0xfb3 @0x3f
0x0f74…0fb5 at0040 = EOL // 0xfb4 @0x40
0x0f74…0fb5 }
0x0fb5…0fce a5bc 01400 PRINT "<S>" ; FNAVN $ ; "…***"
0x0fb5…0fce LineComal80 {
0x0fb5…0fce ptr = 0xa5bc // 0xfb5 @0x0
0x0fb5…0fce lno = 0x0578 // 0xfb7 @0x2
0x0fb5…0fce at0004 = ╱92╱ PRINT ╱ // 0xfb9 @0x4
0x0fb5…0fce at0005 = ╱22╱"╱ // 0xfba @0x5
0x0fb5…0fce at0006 = ╱3c╱<╱ // 0xfbb @0x6
0x0fb5…0fce at0007 = ╱53╱S╱ // 0xfbc @0x7
0x0fb5…0fce at0008 = ╱3e╱>╱ // 0xfbd @0x8
0x0fb5…0fce at0009 = ╱22╱"╱ // 0xfbe @0x9
0x0fb5…0fce at000a = ╱ea╱ ; ╱ // 0xfbf @0xa
0x0fb5…0fce at000b = ╱46╱F╱ // 0xfc0 @0xb
0x0fb5…0fce at000c = ╱4e╱N╱ // 0xfc1 @0xc
0x0fb5…0fce at000d = ╱41╱A╱ // 0xfc2 @0xd
0x0fb5…0fce at000e = ╱56╱V╱ // 0xfc3 @0xe
0x0fb5…0fce at000f = ╱4e╱N╱ // 0xfc4 @0xf
0x0fb5…0fce at0010 = ╱ef╱ $ ╱ // 0xfc5 @0x10
0x0fb5…0fce at0011 = ╱ea╱ ; ╱ // 0xfc6 @0x11
0x0fb5…0fce at0012 = ╱22╱"╱ // 0xfc7 @0x12
0x0fb5…0fce at0013 = ╱20╱…╱ // 0xfc8 @0x13
0x0fb5…0fce at0014 = ╱2a╱*╱ // 0xfc9 @0x14
0x0fb5…0fce at0015 = ╱2a╱*╱ // 0xfca @0x15
0x0fb5…0fce at0016 = ╱2a╱*╱ // 0xfcb @0x16
0x0fb5…0fce at0017 = ╱22╱"╱ // 0xfcc @0x17
0x0fb5…0fce at0018 = EOL // 0xfcd @0x18
0x0fb5…0fce }
0x0fce…0fdc a5ca 01410 INPUT "" : SVAR $
0x0fce…0fdc LineComal80 {
0x0fce…0fdc ptr = 0xa5ca // 0xfce @0x0
0x0fce…0fdc lno = 0x0582 // 0xfd0 @0x2
0x0fce…0fdc at0004 = ╱91╱ INPUT ╱ // 0xfd2 @0x4
0x0fce…0fdc at0005 = ╱22╱"╱ // 0xfd3 @0x5
0x0fce…0fdc at0006 = ╱22╱"╱ // 0xfd4 @0x6
0x0fce…0fdc at0007 = ╱f1╱ : ╱ // 0xfd5 @0x7
0x0fce…0fdc at0008 = ╱53╱S╱ // 0xfd6 @0x8
0x0fce…0fdc at0009 = ╱56╱V╱ // 0xfd7 @0x9
0x0fce…0fdc at000a = ╱41╱A╱ // 0xfd8 @0xa
0x0fce…0fdc at000b = ╱52╱R╱ // 0xfd9 @0xb
0x0fce…0fdc at000c = ╱ef╱ $ ╱ // 0xfda @0xc
0x0fce…0fdc at000d = EOL // 0xfdb @0xd
0x0fce…0fdc }
0x0fdc…0ff0 a5de 01420 PRINT "<C0102>" ; SPC $
0x0fdc…0ff0 LineComal80 {
0x0fdc…0ff0 ptr = 0xa5de // 0xfdc @0x0
0x0fdc…0ff0 lno = 0x058c // 0xfde @0x2
0x0fdc…0ff0 at0004 = ╱92╱ PRINT ╱ // 0xfe0 @0x4
0x0fdc…0ff0 at0005 = ╱22╱"╱ // 0xfe1 @0x5
0x0fdc…0ff0 at0006 = ╱3c╱<╱ // 0xfe2 @0x6
0x0fdc…0ff0 at0007 = ╱43╱C╱ // 0xfe3 @0x7
0x0fdc…0ff0 at0008 = ╱30╱0╱ // 0xfe4 @0x8
0x0fdc…0ff0 at0009 = ╱31╱1╱ // 0xfe5 @0x9
0x0fdc…0ff0 at000a = ╱30╱0╱ // 0xfe6 @0xa
0x0fdc…0ff0 at000b = ╱32╱2╱ // 0xfe7 @0xb
0x0fdc…0ff0 at000c = ╱3e╱>╱ // 0xfe8 @0xc
0x0fdc…0ff0 at000d = ╱22╱"╱ // 0xfe9 @0xd
0x0fdc…0ff0 at000e = ╱ea╱ ; ╱ // 0xfea @0xe
0x0fdc…0ff0 at000f = ╱53╱S╱ // 0xfeb @0xf
0x0fdc…0ff0 at0010 = ╱50╱P╱ // 0xfec @0x10
0x0fdc…0ff0 at0011 = ╱43╱C╱ // 0xfed @0x11
0x0fdc…0ff0 at0012 = ╱ef╱ $ ╱ // 0xfee @0x12
0x0fdc…0ff0 at0013 = EOL // 0xfef @0x13
0x0fdc…0ff0 }
0x0ff0…0ff6 a5e4 01430 ENDIF
0x0ff0…0ff6 LineComal80 {
0x0ff0…0ff6 ptr = 0xa5e4 // 0xff0 @0x0
0x0ff0…0ff6 lno = 0x0596 // 0xff2 @0x2
0x0ff0…0ff6 at0004 = ╱9c╱ ENDIF ╱ // 0xff4 @0x4
0x0ff0…0ff6 at0005 = EOL // 0xff5 @0x5
0x0ff0…0ff6 }
0x0ff6…0ffc a5ea 01440 ENDIF
0x0ff6…0ffc LineComal80 {
0x0ff6…0ffc ptr = 0xa5ea // 0xff6 @0x0
0x0ff6…0ffc lno = 0x05a0 // 0xff8 @0x2
0x0ff6…0ffc at0004 = ╱9c╱ ENDIF ╱ // 0xffa @0x4
0x0ff6…0ffc at0005 = EOL // 0xffb @0x5
0x0ff6…0ffc }
0x0ffc…100c a5fa 01450 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x0ffc…100c LineComal80 {
0x0ffc…100c ptr = 0xa5fa // 0xffc @0x0
0x0ffc…100c lno = 0x05aa // 0xffe @0x2
0x0ffc…100c at0004 = ╱98╱ UNTIL ╱ // 0x1000 @0x4
0x0ffc…100c at0005 = ╱d7╱ NOT ╱ // 0x1001 @0x5
0x0ffc…100c at0006 = ╱cd╱ // 0x1002 @0x6
0x0ffc…100c at0007 = ╱ed╱ ( ╱ // 0x1003 @0x7
0x0ffc…100c at0008 = ╱46╱F╱ // 0x1004 @0x8
0x0ffc…100c at0009 = ╱4e╱N╱ // 0x1005 @0x9
0x0ffc…100c at000a = ╱41╱A╱ // 0x1006 @0xa
0x0ffc…100c at000b = ╱56╱V╱ // 0x1007 @0xb
0x0ffc…100c at000c = ╱4e╱N╱ // 0x1008 @0xc
0x0ffc…100c at000d = ╱ef╱ $ ╱ // 0x1009 @0xd
0x0ffc…100c at000e = ╱ee╱ ) ╱ // 0x100a @0xe
0x0ffc…100c at000f = EOL // 0x100b @0xf
0x0ffc…100c }
0x100c…1019 a607 01460 ENDPROC OPENFIL
0x100c…1019 LineComal80 {
0x100c…1019 ptr = 0xa607 // 0x100c @0x0
0x100c…1019 lno = 0x05b4 // 0x100e @0x2
0x100c…1019 at0004 = ╱9f╱ ENDPROC ╱ // 0x1010 @0x4
0x100c…1019 at0005 = ╱4f╱O╱ // 0x1011 @0x5
0x100c…1019 at0006 = ╱50╱P╱ // 0x1012 @0x6
0x100c…1019 at0007 = ╱45╱E╱ // 0x1013 @0x7
0x100c…1019 at0008 = ╱4e╱N╱ // 0x1014 @0x8
0x100c…1019 at0009 = ╱46╱F╱ // 0x1015 @0x9
0x100c…1019 at000a = ╱49╱I╱ // 0x1016 @0xa
0x100c…1019 at000b = ╱4c╱L╱ // 0x1017 @0xb
0x100c…1019 at000c = EOL // 0x1018 @0xc
0x100c…1019 }
0x1019…101e a60c 01470
0x1019…101e LineComal80 {
0x1019…101e ptr = 0xa60c // 0x1019 @0x0
0x1019…101e lno = 0x05be // 0x101b @0x2
0x1019…101e at0004 = EOL // 0x101d @0x4
0x1019…101e }
0x101e…1036 a624 01480 PROC OVERSKRIFT ( ST $ , L )
0x101e…1036 LineComal80 {
0x101e…1036 ptr = 0xa624 // 0x101e @0x0
0x101e…1036 lno = 0x05c8 // 0x1020 @0x2
0x101e…1036 at0004 = ╱9e00╱ PROC ╱ // 0x1022 @0x4
0x101e…1036 at0006 = ╱4f╱O╱ // 0x1024 @0x6
0x101e…1036 at0007 = ╱56╱V╱ // 0x1025 @0x7
0x101e…1036 at0008 = ╱45╱E╱ // 0x1026 @0x8
0x101e…1036 at0009 = ╱52╱R╱ // 0x1027 @0x9
0x101e…1036 at000a = ╱53╱S╱ // 0x1028 @0xa
0x101e…1036 at000b = ╱4b╱K╱ // 0x1029 @0xb
0x101e…1036 at000c = ╱52╱R╱ // 0x102a @0xc
0x101e…1036 at000d = ╱49╱I╱ // 0x102b @0xd
0x101e…1036 at000e = ╱46╱F╱ // 0x102c @0xe
0x101e…1036 at000f = ╱54╱T╱ // 0x102d @0xf
0x101e…1036 at0010 = ╱ed╱ ( ╱ // 0x102e @0x10
0x101e…1036 at0011 = ╱53╱S╱ // 0x102f @0x11
0x101e…1036 at0012 = ╱54╱T╱ // 0x1030 @0x12
0x101e…1036 at0013 = ╱ef╱ $ ╱ // 0x1031 @0x13
0x101e…1036 at0014 = ╱ec╱ , ╱ // 0x1032 @0x14
0x101e…1036 at0015 = ╱4c╱L╱ // 0x1033 @0x15
0x101e…1036 at0016 = ╱ee╱ ) ╱ // 0x1034 @0x16
0x101e…1036 at0017 = EOL // 0x1035 @0x17
0x101e…1036 }
0x1036…105c a64a 01490 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x1036…105c LineComal80 {
0x1036…105c ptr = 0xa64a // 0x1036 @0x0
0x1036…105c lno = 0x05d2 // 0x1038 @0x2
0x1036…105c at0004 = ╱92╱ PRINT ╱ // 0x103a @0x4
0x1036…105c at0005 = ╱22╱"╱ // 0x103b @0x5
0x1036…105c at0006 = ╱3c╱<╱ // 0x103c @0x6
0x1036…105c at0007 = ╱58╱X╱ // 0x103d @0x7
0x1036…105c at0008 = ╱43╱C╱ // 0x103e @0x8
0x1036…105c at0009 = ╱30╱0╱ // 0x103f @0x9
0x1036…105c at000a = ╱31╱1╱ // 0x1040 @0xa
0x1036…105c at000b = ╱30╱0╱ // 0x1041 @0xb
0x1036…105c at000c = ╱31╱1╱ // 0x1042 @0xc
0x1036…105c at000d = ╱3e╱>╱ // 0x1043 @0xd
0x1036…105c at000e = ╱46╱F╱ // 0x1044 @0xe
0x1036…105c at000f = ╱69╱i╱ // 0x1045 @0xf
0x1036…105c at0010 = ╱72╱r╱ // 0x1046 @0x10
0x1036…105c at0011 = ╱6d╱m╱ // 0x1047 @0x11
0x1036…105c at0012 = ╱61╱a╱ // 0x1048 @0x12
0x1036…105c at0013 = ╱6e╱n╱ // 0x1049 @0x13
0x1036…105c at0014 = ╱61╱a╱ // 0x104a @0x14
0x1036…105c at0015 = ╱76╱v╱ // 0x104b @0x15
0x1036…105c at0016 = ╱6e╱n╱ // 0x104c @0x16
0x1036…105c at0017 = ╱3a╱:╱ // 0x104d @0x17
0x1036…105c at0018 = ╱20╱…╱ // 0x104e @0x18
0x1036…105c at0019 = ╱22╱"╱ // 0x104f @0x19
0x1036…105c at001a = ╱ea╱ ; ╱ // 0x1050 @0x1a
0x1036…105c at001b = ╱46╱F╱ // 0x1051 @0x1b
0x1036…105c at001c = ╱49╱I╱ // 0x1052 @0x1c
0x1036…105c at001d = ╱52╱R╱ // 0x1053 @0x1d
0x1036…105c at001e = ╱4d╱M╱ // 0x1054 @0x1e
0x1036…105c at001f = ╱41╱A╱ // 0x1055 @0x1f
0x1036…105c at0020 = ╱4e╱N╱ // 0x1056 @0x20
0x1036…105c at0021 = ╱41╱A╱ // 0x1057 @0x21
0x1036…105c at0022 = ╱56╱V╱ // 0x1058 @0x22
0x1036…105c at0023 = ╱4e╱N╱ // 0x1059 @0x23
0x1036…105c at0024 = ╱ef╱ $ ╱ // 0x105a @0x24
0x1036…105c at0025 = EOL // 0x105b @0x25
0x1036…105c }
0x105c…10a4 a692 01500 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x105c…10a4 LineComal80 {
0x105c…10a4 ptr = 0xa692 // 0x105c @0x0
0x105c…10a4 lno = 0x05dc // 0x105e @0x2
0x105c…10a4 at0004 = ╱92╱ PRINT ╱ // 0x1060 @0x4
0x105c…10a4 at0005 = ╱22╱"╱ // 0x1061 @0x5
0x105c…10a4 at0006 = ╱3c╱<╱ // 0x1062 @0x6
0x105c…10a4 at0007 = ╱53╱S╱ // 0x1063 @0x7
0x105c…10a4 at0008 = ╱43╱C╱ // 0x1064 @0x8
0x105c…10a4 at0009 = ╱36╱6╱ // 0x1065 @0x9
0x105c…10a4 at000a = ╱35╱5╱ // 0x1066 @0xa
0x105c…10a4 at000b = ╱30╱0╱ // 0x1067 @0xb
0x105c…10a4 at000c = ╱31╱1╱ // 0x1068 @0xc
0x105c…10a4 at000d = ╱3e╱>╱ // 0x1069 @0xd
0x105c…10a4 at000e = ╱44╱D╱ // 0x106a @0xe
0x105c…10a4 at000f = ╱61╱a╱ // 0x106b @0xf
0x105c…10a4 at0010 = ╱74╱t╱ // 0x106c @0x10
0x105c…10a4 at0011 = ╱6f╱o╱ // 0x106d @0x11
0x105c…10a4 at0012 = ╱3a╱:╱ // 0x106e @0x12
0x105c…10a4 at0013 = ╱20╱…╱ // 0x106f @0x13
0x105c…10a4 at0014 = ╱22╱"╱ // 0x1070 @0x14
0x105c…10a4 at0015 = ╱ea╱ ; ╱ // 0x1071 @0x15
0x105c…10a4 at0016 = ╱53╱S╱ // 0x1072 @0x16
0x105c…10a4 at0017 = ╱59╱Y╱ // 0x1073 @0x17
0x105c…10a4 at0018 = ╱53╱S╱ // 0x1074 @0x18
0x105c…10a4 at0019 = ╱54╱T╱ // 0x1075 @0x19
0x105c…10a4 at001a = ╱5f╱_╱ // 0x1076 @0x1a
0x105c…10a4 at001b = ╱44╱D╱ // 0x1077 @0x1b
0x105c…10a4 at001c = ╱41╱A╱ // 0x1078 @0x1c
0x105c…10a4 at001d = ╱54╱T╱ // 0x1079 @0x1d
0x105c…10a4 at001e = ╱ef╱ $ ╱ // 0x107a @0x1e
0x105c…10a4 at001f = ╱ed╱ ( ╱ // 0x107b @0x1f
0x105c…10a4 at0020 = ╱31╱1╱ // 0x107c @0x20
0x105c…10a4 at0021 = ╱f20100╱ // 0x107d @0x21
0x105c…10a4 at0024 = ╱f1╱ : ╱ // 0x1080 @0x24
0x105c…10a4 at0025 = ╱32╱2╱ // 0x1081 @0x25
0x105c…10a4 at0026 = ╱f20200╱ // 0x1082 @0x26
0x105c…10a4 at0029 = ╱ee╱ ) ╱ // 0x1085 @0x29
0x105c…10a4 at002a = ╱ea╱ ; ╱ // 0x1086 @0x2a
0x105c…10a4 at002b = ╱22╱"╱ // 0x1087 @0x2b
0x105c…10a4 at002c = ╱2e╱.╱ // 0x1088 @0x2c
0x105c…10a4 at002d = ╱22╱"╱ // 0x1089 @0x2d
0x105c…10a4 at002e = ╱ea╱ ; ╱ // 0x108a @0x2e
0x105c…10a4 at002f = ╱53╱S╱ // 0x108b @0x2f
0x105c…10a4 at0030 = ╱59╱Y╱ // 0x108c @0x30
0x105c…10a4 at0031 = ╱53╱S╱ // 0x108d @0x31
0x105c…10a4 at0032 = ╱54╱T╱ // 0x108e @0x32
0x105c…10a4 at0033 = ╱5f╱_╱ // 0x108f @0x33
0x105c…10a4 at0034 = ╱44╱D╱ // 0x1090 @0x34
0x105c…10a4 at0035 = ╱41╱A╱ // 0x1091 @0x35
0x105c…10a4 at0036 = ╱54╱T╱ // 0x1092 @0x36
0x105c…10a4 at0037 = ╱ef╱ $ ╱ // 0x1093 @0x37
0x105c…10a4 at0038 = ╱ed╱ ( ╱ // 0x1094 @0x38
0x105c…10a4 at0039 = ╱33╱3╱ // 0x1095 @0x39
0x105c…10a4 at003a = ╱f20300╱ // 0x1096 @0x3a
0x105c…10a4 at003d = ╱f1╱ : ╱ // 0x1099 @0x3d
0x105c…10a4 at003e = ╱32╱2╱ // 0x109a @0x3e
0x105c…10a4 at003f = ╱f20200╱ // 0x109b @0x3f
0x105c…10a4 at0042 = ╱ee╱ ) ╱ // 0x109e @0x42
0x105c…10a4 at0043 = ╱ea╱ ; ╱ // 0x109f @0x43
0x105c…10a4 at0044 = ╱22╱"╱ // 0x10a0 @0x44
0x105c…10a4 at0045 = ╱2e╱.╱ // 0x10a1 @0x45
0x105c…10a4 at0046 = ╱22╱"╱ // 0x10a2 @0x46
0x105c…10a4 at0047 = EOL // 0x10a3 @0x47
0x105c…10a4 }
0x10a4…10be a6ac 01510 PRINT SYST_DAT $ ( 5 : 2 )
0x10a4…10be LineComal80 {
0x10a4…10be ptr = 0xa6ac // 0x10a4 @0x0
0x10a4…10be lno = 0x05e6 // 0x10a6 @0x2
0x10a4…10be at0004 = ╱92╱ PRINT ╱ // 0x10a8 @0x4
0x10a4…10be at0005 = ╱53╱S╱ // 0x10a9 @0x5
0x10a4…10be at0006 = ╱59╱Y╱ // 0x10aa @0x6
0x10a4…10be at0007 = ╱53╱S╱ // 0x10ab @0x7
0x10a4…10be at0008 = ╱54╱T╱ // 0x10ac @0x8
0x10a4…10be at0009 = ╱5f╱_╱ // 0x10ad @0x9
0x10a4…10be at000a = ╱44╱D╱ // 0x10ae @0xa
0x10a4…10be at000b = ╱41╱A╱ // 0x10af @0xb
0x10a4…10be at000c = ╱54╱T╱ // 0x10b0 @0xc
0x10a4…10be at000d = ╱ef╱ $ ╱ // 0x10b1 @0xd
0x10a4…10be at000e = ╱ed╱ ( ╱ // 0x10b2 @0xe
0x10a4…10be at000f = ╱35╱5╱ // 0x10b3 @0xf
0x10a4…10be at0010 = ╱f20500╱ // 0x10b4 @0x10
0x10a4…10be at0013 = ╱f1╱ : ╱ // 0x10b7 @0x13
0x10a4…10be at0014 = ╱32╱2╱ // 0x10b8 @0x14
0x10a4…10be at0015 = ╱f20200╱ // 0x10b9 @0x15
0x10a4…10be at0018 = ╱ee╱ ) ╱ // 0x10bc @0x18
0x10a4…10be at0019 = EOL // 0x10bd @0x19
0x10a4…10be }
0x10be…10da a6c8 01520 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
0x10be…10da LineComal80 {
0x10be…10da ptr = 0xa6c8 // 0x10be @0x0
0x10be…10da lno = 0x05f0 // 0x10c0 @0x2
0x10be…10da at0004 = ╱a1╱ CURSOR ╱ // 0x10c2 @0x4
0x10be…10da at0005 = ╱33╱3╱ // 0x10c3 @0x5
0x10be…10da at0006 = ╱34╱4╱ // 0x10c4 @0x6
0x10be…10da at0007 = ╱f22200╱ // 0x10c5 @0x7
0x10be…10da at000a = ╱e6╱ - ╱ // 0x10c8 @0xa
0x10be…10da at000b = ╱c6╱ INT ╱ // 0x10c9 @0xb
0x10be…10da at000c = ╱ed╱ ( ╱ // 0x10ca @0xc
0x10be…10da at000d = ╱cb╱ // 0x10cb @0xd
0x10be…10da at000e = ╱ed╱ ( ╱ // 0x10cc @0xe
0x10be…10da at000f = ╱53╱S╱ // 0x10cd @0xf
0x10be…10da at0010 = ╱54╱T╱ // 0x10ce @0x10
0x10be…10da at0011 = ╱ef╱ $ ╱ // 0x10cf @0x11
0x10be…10da at0012 = ╱ee╱ ) ╱ // 0x10d0 @0x12
0x10be…10da at0013 = ╱e8╱ / ╱ // 0x10d1 @0x13
0x10be…10da at0014 = ╱32╱2╱ // 0x10d2 @0x14
0x10be…10da at0015 = ╱f20200╱ // 0x10d3 @0x15
0x10be…10da at0018 = ╱ee╱ ) ╱ // 0x10d6 @0x18
0x10be…10da at0019 = ╱ec╱ , ╱ // 0x10d7 @0x19
0x10be…10da at001a = ╱4c╱L╱ // 0x10d8 @0x1a
0x10be…10da at001b = EOL // 0x10d9 @0x1b
0x10be…10da }
0x10da…10f1 a6df 01530 PRINT "***…" ; ST $ ; "…***"
0x10da…10f1 LineComal80 {
0x10da…10f1 ptr = 0xa6df // 0x10da @0x0
0x10da…10f1 lno = 0x05fa // 0x10dc @0x2
0x10da…10f1 at0004 = ╱92╱ PRINT ╱ // 0x10de @0x4
0x10da…10f1 at0005 = ╱22╱"╱ // 0x10df @0x5
0x10da…10f1 at0006 = ╱2a╱*╱ // 0x10e0 @0x6
0x10da…10f1 at0007 = ╱2a╱*╱ // 0x10e1 @0x7
0x10da…10f1 at0008 = ╱2a╱*╱ // 0x10e2 @0x8
0x10da…10f1 at0009 = ╱20╱…╱ // 0x10e3 @0x9
0x10da…10f1 at000a = ╱22╱"╱ // 0x10e4 @0xa
0x10da…10f1 at000b = ╱ea╱ ; ╱ // 0x10e5 @0xb
0x10da…10f1 at000c = ╱53╱S╱ // 0x10e6 @0xc
0x10da…10f1 at000d = ╱54╱T╱ // 0x10e7 @0xd
0x10da…10f1 at000e = ╱ef╱ $ ╱ // 0x10e8 @0xe
0x10da…10f1 at000f = ╱ea╱ ; ╱ // 0x10e9 @0xf
0x10da…10f1 at0010 = ╱22╱"╱ // 0x10ea @0x10
0x10da…10f1 at0011 = ╱20╱…╱ // 0x10eb @0x11
0x10da…10f1 at0012 = ╱2a╱*╱ // 0x10ec @0x12
0x10da…10f1 at0013 = ╱2a╱*╱ // 0x10ed @0x13
0x10da…10f1 at0014 = ╱2a╱*╱ // 0x10ee @0x14
0x10da…10f1 at0015 = ╱22╱"╱ // 0x10ef @0x15
0x10da…10f1 at0016 = EOL // 0x10f0 @0x16
0x10da…10f1 }
0x10f1…1101 a6ef 01540 ENDPROC OVERSKRIFT
0x10f1…1101 LineComal80 {
0x10f1…1101 ptr = 0xa6ef // 0x10f1 @0x0
0x10f1…1101 lno = 0x0604 // 0x10f3 @0x2
0x10f1…1101 at0004 = ╱9f╱ ENDPROC ╱ // 0x10f5 @0x4
0x10f1…1101 at0005 = ╱4f╱O╱ // 0x10f6 @0x5
0x10f1…1101 at0006 = ╱56╱V╱ // 0x10f7 @0x6
0x10f1…1101 at0007 = ╱45╱E╱ // 0x10f8 @0x7
0x10f1…1101 at0008 = ╱52╱R╱ // 0x10f9 @0x8
0x10f1…1101 at0009 = ╱53╱S╱ // 0x10fa @0x9
0x10f1…1101 at000a = ╱4b╱K╱ // 0x10fb @0xa
0x10f1…1101 at000b = ╱52╱R╱ // 0x10fc @0xb
0x10f1…1101 at000c = ╱49╱I╱ // 0x10fd @0xc
0x10f1…1101 at000d = ╱46╱F╱ // 0x10fe @0xd
0x10f1…1101 at000e = ╱54╱T╱ // 0x10ff @0xe
0x10f1…1101 at000f = EOL // 0x1100 @0xf
0x10f1…1101 }
0x1101…1106 a6f4 01550
0x1101…1106 LineComal80 {
0x1101…1106 ptr = 0xa6f4 // 0x1101 @0x0
0x1101…1106 lno = 0x060e // 0x1103 @0x2
0x1101…1106 at0004 = EOL // 0x1105 @0x4
0x1101…1106 }
0x1106…1119 a707 01560 PROC SL_FEJLLINIE
0x1106…1119 LineComal80 {
0x1106…1119 ptr = 0xa707 // 0x1106 @0x0
0x1106…1119 lno = 0x0618 // 0x1108 @0x2
0x1106…1119 at0004 = ╱9e00╱ PROC ╱ // 0x110a @0x4
0x1106…1119 at0006 = ╱53╱S╱ // 0x110c @0x6
0x1106…1119 at0007 = ╱4c╱L╱ // 0x110d @0x7
0x1106…1119 at0008 = ╱5f╱_╱ // 0x110e @0x8
0x1106…1119 at0009 = ╱46╱F╱ // 0x110f @0x9
0x1106…1119 at000a = ╱45╱E╱ // 0x1110 @0xa
0x1106…1119 at000b = ╱4a╱J╱ // 0x1111 @0xb
0x1106…1119 at000c = ╱4c╱L╱ // 0x1112 @0xc
0x1106…1119 at000d = ╱4c╱L╱ // 0x1113 @0xd
0x1106…1119 at000e = ╱49╱I╱ // 0x1114 @0xe
0x1106…1119 at000f = ╱4e╱N╱ // 0x1115 @0xf
0x1106…1119 at0010 = ╱49╱I╱ // 0x1116 @0x10
0x1106…1119 at0011 = ╱45╱E╱ // 0x1117 @0x11
0x1106…1119 at0012 = EOL // 0x1118 @0x12
0x1106…1119 }
0x1119…1126 a714 01570 LET OK := TRUE
0x1119…1126 LineComal80 {
0x1119…1126 ptr = 0xa714 // 0x1119 @0x0
0x1119…1126 lno = 0x0622 // 0x111b @0x2
0x1119…1126 at0004 = ╱86╱ LET ╱ // 0x111d @0x4
0x1119…1126 at0005 = ╱4f╱O╱ // 0x111e @0x5
0x1119…1126 at0006 = ╱4b╱K╱ // 0x111f @0x6
0x1119…1126 at0007 = ╱f0╱ := ╱ // 0x1120 @0x7
0x1119…1126 at0008 = ╱54╱T╱ // 0x1121 @0x8
0x1119…1126 at0009 = ╱52╱R╱ // 0x1122 @0x9
0x1119…1126 at000a = ╱55╱U╱ // 0x1123 @0xa
0x1119…1126 at000b = ╱45╱E╱ // 0x1124 @0xb
0x1119…1126 at000c = EOL // 0x1125 @0xc
0x1119…1126 }
0x1126…113a a728 01580 PRINT "<C0102>" ; SPC $
0x1126…113a LineComal80 {
0x1126…113a ptr = 0xa728 // 0x1126 @0x0
0x1126…113a lno = 0x062c // 0x1128 @0x2
0x1126…113a at0004 = ╱92╱ PRINT ╱ // 0x112a @0x4
0x1126…113a at0005 = ╱22╱"╱ // 0x112b @0x5
0x1126…113a at0006 = ╱3c╱<╱ // 0x112c @0x6
0x1126…113a at0007 = ╱43╱C╱ // 0x112d @0x7
0x1126…113a at0008 = ╱30╱0╱ // 0x112e @0x8
0x1126…113a at0009 = ╱31╱1╱ // 0x112f @0x9
0x1126…113a at000a = ╱30╱0╱ // 0x1130 @0xa
0x1126…113a at000b = ╱32╱2╱ // 0x1131 @0xb
0x1126…113a at000c = ╱3e╱>╱ // 0x1132 @0xc
0x1126…113a at000d = ╱22╱"╱ // 0x1133 @0xd
0x1126…113a at000e = ╱ea╱ ; ╱ // 0x1134 @0xe
0x1126…113a at000f = ╱53╱S╱ // 0x1135 @0xf
0x1126…113a at0010 = ╱50╱P╱ // 0x1136 @0x10
0x1126…113a at0011 = ╱43╱C╱ // 0x1137 @0x11
0x1126…113a at0012 = ╱ef╱ $ ╱ // 0x1138 @0x12
0x1126…113a at0013 = EOL // 0x1139 @0x13
0x1126…113a }
0x113a…114c a73a 01590 ENDPROC SL_FEJLLINIE
0x113a…114c LineComal80 {
0x113a…114c ptr = 0xa73a // 0x113a @0x0
0x113a…114c lno = 0x0636 // 0x113c @0x2
0x113a…114c at0004 = ╱9f╱ ENDPROC ╱ // 0x113e @0x4
0x113a…114c at0005 = ╱53╱S╱ // 0x113f @0x5
0x113a…114c at0006 = ╱4c╱L╱ // 0x1140 @0x6
0x113a…114c at0007 = ╱5f╱_╱ // 0x1141 @0x7
0x113a…114c at0008 = ╱46╱F╱ // 0x1142 @0x8
0x113a…114c at0009 = ╱45╱E╱ // 0x1143 @0x9
0x113a…114c at000a = ╱4a╱J╱ // 0x1144 @0xa
0x113a…114c at000b = ╱4c╱L╱ // 0x1145 @0xb
0x113a…114c at000c = ╱4c╱L╱ // 0x1146 @0xc
0x113a…114c at000d = ╱49╱I╱ // 0x1147 @0xd
0x113a…114c at000e = ╱4e╱N╱ // 0x1148 @0xe
0x113a…114c at000f = ╱49╱I╱ // 0x1149 @0xf
0x113a…114c at0010 = ╱45╱E╱ // 0x114a @0x10
0x113a…114c at0011 = EOL // 0x114b @0x11
0x113a…114c }
0x114c…1151 a73f 01600
0x114c…1151 LineComal80 {
0x114c…1151 ptr = 0xa73f // 0x114c @0x0
0x114c…1151 lno = 0x0640 // 0x114e @0x2
0x114c…1151 at0004 = EOL // 0x1150 @0x4
0x114c…1151 }
0x1151…1161 a74f 01610 PROC FEJL ( ST $ )
0x1151…1161 LineComal80 {
0x1151…1161 ptr = 0xa74f // 0x1151 @0x0
0x1151…1161 lno = 0x064a // 0x1153 @0x2
0x1151…1161 at0004 = ╱9e00╱ PROC ╱ // 0x1155 @0x4
0x1151…1161 at0006 = ╱46╱F╱ // 0x1157 @0x6
0x1151…1161 at0007 = ╱45╱E╱ // 0x1158 @0x7
0x1151…1161 at0008 = ╱4a╱J╱ // 0x1159 @0x8
0x1151…1161 at0009 = ╱4c╱L╱ // 0x115a @0x9
0x1151…1161 at000a = ╱ed╱ ( ╱ // 0x115b @0xa
0x1151…1161 at000b = ╱53╱S╱ // 0x115c @0xb
0x1151…1161 at000c = ╱54╱T╱ // 0x115d @0xc
0x1151…1161 at000d = ╱ef╱ $ ╱ // 0x115e @0xd
0x1151…1161 at000e = ╱ee╱ ) ╱ // 0x115f @0xe
0x1151…1161 at000f = EOL // 0x1160 @0xf
0x1151…1161 }
0x1161…116f a75d 01620 LET OK := FALSE
0x1161…116f LineComal80 {
0x1161…116f ptr = 0xa75d // 0x1161 @0x0
0x1161…116f lno = 0x0654 // 0x1163 @0x2
0x1161…116f at0004 = ╱86╱ LET ╱ // 0x1165 @0x4
0x1161…116f at0005 = ╱4f╱O╱ // 0x1166 @0x5
0x1161…116f at0006 = ╱4b╱K╱ // 0x1167 @0x6
0x1161…116f at0007 = ╱f0╱ := ╱ // 0x1168 @0x7
0x1161…116f at0008 = ╱46╱F╱ // 0x1169 @0x8
0x1161…116f at0009 = ╱41╱A╱ // 0x116a @0x9
0x1161…116f at000a = ╱4c╱L╱ // 0x116b @0xa
0x1161…116f at000b = ╱53╱S╱ // 0x116c @0xb
0x1161…116f at000c = ╱45╱E╱ // 0x116d @0xc
0x1161…116f at000d = EOL // 0x116e @0xd
0x1161…116f }
0x116f…118d a77b 01630 CURSOR 36 - ( ╱cb╱ ( ST $ ) / 2 ) , 2
0x116f…118d LineComal80 {
0x116f…118d ptr = 0xa77b // 0x116f @0x0
0x116f…118d lno = 0x065e // 0x1171 @0x2
0x116f…118d at0004 = ╱a1╱ CURSOR ╱ // 0x1173 @0x4
0x116f…118d at0005 = ╱33╱3╱ // 0x1174 @0x5
0x116f…118d at0006 = ╱36╱6╱ // 0x1175 @0x6
0x116f…118d at0007 = ╱f22400╱ // 0x1176 @0x7
0x116f…118d at000a = ╱e6╱ - ╱ // 0x1179 @0xa
0x116f…118d at000b = ╱ed╱ ( ╱ // 0x117a @0xb
0x116f…118d at000c = ╱cb╱ // 0x117b @0xc
0x116f…118d at000d = ╱ed╱ ( ╱ // 0x117c @0xd
0x116f…118d at000e = ╱53╱S╱ // 0x117d @0xe
0x116f…118d at000f = ╱54╱T╱ // 0x117e @0xf
0x116f…118d at0010 = ╱ef╱ $ ╱ // 0x117f @0x10
0x116f…118d at0011 = ╱ee╱ ) ╱ // 0x1180 @0x11
0x116f…118d at0012 = ╱e8╱ / ╱ // 0x1181 @0x12
0x116f…118d at0013 = ╱32╱2╱ // 0x1182 @0x13
0x116f…118d at0014 = ╱f20200╱ // 0x1183 @0x14
0x116f…118d at0017 = ╱ee╱ ) ╱ // 0x1186 @0x17
0x116f…118d at0018 = ╱ec╱ , ╱ // 0x1187 @0x18
0x116f…118d at0019 = ╱32╱2╱ // 0x1188 @0x19
0x116f…118d at001a = ╱f20200╱ // 0x1189 @0x1a
0x116f…118d at001d = EOL // 0x118c @0x1d
0x116f…118d }
0x118d…11af a79d 01640 PRINT "<S>***…" + ST $ + "…***" ; CHR$ ( 7 )
0x118d…11af LineComal80 {
0x118d…11af ptr = 0xa79d // 0x118d @0x0
0x118d…11af lno = 0x0668 // 0x118f @0x2
0x118d…11af at0004 = ╱92╱ PRINT ╱ // 0x1191 @0x4
0x118d…11af at0005 = ╱22╱"╱ // 0x1192 @0x5
0x118d…11af at0006 = ╱3c╱<╱ // 0x1193 @0x6
0x118d…11af at0007 = ╱53╱S╱ // 0x1194 @0x7
0x118d…11af at0008 = ╱3e╱>╱ // 0x1195 @0x8
0x118d…11af at0009 = ╱2a╱*╱ // 0x1196 @0x9
0x118d…11af at000a = ╱2a╱*╱ // 0x1197 @0xa
0x118d…11af at000b = ╱2a╱*╱ // 0x1198 @0xb
0x118d…11af at000c = ╱20╱…╱ // 0x1199 @0xc
0x118d…11af at000d = ╱22╱"╱ // 0x119a @0xd
0x118d…11af at000e = ╱eb╱ + ╱ // 0x119b @0xe
0x118d…11af at000f = ╱53╱S╱ // 0x119c @0xf
0x118d…11af at0010 = ╱54╱T╱ // 0x119d @0x10
0x118d…11af at0011 = ╱ef╱ $ ╱ // 0x119e @0x11
0x118d…11af at0012 = ╱eb╱ + ╱ // 0x119f @0x12
0x118d…11af at0013 = ╱22╱"╱ // 0x11a0 @0x13
0x118d…11af at0014 = ╱20╱…╱ // 0x11a1 @0x14
0x118d…11af at0015 = ╱2a╱*╱ // 0x11a2 @0x15
0x118d…11af at0016 = ╱2a╱*╱ // 0x11a3 @0x16
0x118d…11af at0017 = ╱2a╱*╱ // 0x11a4 @0x17
0x118d…11af at0018 = ╱22╱"╱ // 0x11a5 @0x18
0x118d…11af at0019 = ╱ea╱ ; ╱ // 0x11a6 @0x19
0x118d…11af at001a = ╱d0╱ CHR$ ╱ // 0x11a7 @0x1a
0x118d…11af at001b = ╱ed╱ ( ╱ // 0x11a8 @0x1b
0x118d…11af at001c = ╱37╱7╱ // 0x11a9 @0x1c
0x118d…11af at001d = ╱f20700╱ // 0x11aa @0x1d
0x118d…11af at0020 = ╱ee╱ ) ╱ // 0x11ad @0x20
0x118d…11af at0021 = EOL // 0x11ae @0x21
0x118d…11af }
0x11af…11b9 a7a7 01650 ENDPROC FEJL
0x11af…11b9 LineComal80 {
0x11af…11b9 ptr = 0xa7a7 // 0x11af @0x0
0x11af…11b9 lno = 0x0672 // 0x11b1 @0x2
0x11af…11b9 at0004 = ╱9f╱ ENDPROC ╱ // 0x11b3 @0x4
0x11af…11b9 at0005 = ╱46╱F╱ // 0x11b4 @0x5
0x11af…11b9 at0006 = ╱45╱E╱ // 0x11b5 @0x6
0x11af…11b9 at0007 = ╱4a╱J╱ // 0x11b6 @0x7
0x11af…11b9 at0008 = ╱4c╱L╱ // 0x11b7 @0x8
0x11af…11b9 at0009 = EOL // 0x11b8 @0x9
0x11af…11b9 }
0x11b9…11be a7ac 01660
0x11b9…11be LineComal80 {
0x11b9…11be ptr = 0xa7ac // 0x11b9 @0x0
0x11b9…11be lno = 0x067c // 0x11bb @0x2
0x11b9…11be at0004 = EOL // 0x11bd @0x4
0x11b9…11be }
0x11be…11d3 a7c1 01670 PROC SKRIV_KONTOOPL
0x11be…11d3 LineComal80 {
0x11be…11d3 ptr = 0xa7c1 // 0x11be @0x0
0x11be…11d3 lno = 0x0686 // 0x11c0 @0x2
0x11be…11d3 at0004 = ╱9e00╱ PROC ╱ // 0x11c2 @0x4
0x11be…11d3 at0006 = ╱53╱S╱ // 0x11c4 @0x6
0x11be…11d3 at0007 = ╱4b╱K╱ // 0x11c5 @0x7
0x11be…11d3 at0008 = ╱52╱R╱ // 0x11c6 @0x8
0x11be…11d3 at0009 = ╱49╱I╱ // 0x11c7 @0x9
0x11be…11d3 at000a = ╱56╱V╱ // 0x11c8 @0xa
0x11be…11d3 at000b = ╱5f╱_╱ // 0x11c9 @0xb
0x11be…11d3 at000c = ╱4b╱K╱ // 0x11ca @0xc
0x11be…11d3 at000d = ╱4f╱O╱ // 0x11cb @0xd
0x11be…11d3 at000e = ╱4e╱N╱ // 0x11cc @0xe
0x11be…11d3 at000f = ╱54╱T╱ // 0x11cd @0xf
0x11be…11d3 at0010 = ╱4f╱O╱ // 0x11ce @0x10
0x11be…11d3 at0011 = ╱4f╱O╱ // 0x11cf @0x11
0x11be…11d3 at0012 = ╱50╱P╱ // 0x11d0 @0x12
0x11be…11d3 at0013 = ╱4c╱L╱ // 0x11d1 @0x13
0x11be…11d3 at0014 = EOL // 0x11d2 @0x14
0x11be…11d3 }
0x11d3…11ee a7dc 01680 IF OPRET THEN EXEC FIND_IDXPLADS
0x11d3…11ee LineComal80 {
0x11d3…11ee ptr = 0xa7dc // 0x11d3 @0x0
0x11d3…11ee lno = 0x0690 // 0x11d5 @0x2
0x11d3…11ee at0004 = ╱8200╱ IF ╱ // 0x11d7 @0x4
0x11d3…11ee at0006 = ╱4f╱O╱ // 0x11d9 @0x6
0x11d3…11ee at0007 = ╱50╱P╱ // 0x11da @0x7
0x11d3…11ee at0008 = ╱52╱R╱ // 0x11db @0x8
0x11d3…11ee at0009 = ╱45╱E╱ // 0x11dc @0x9
0x11d3…11ee at000a = ╱54╱T╱ // 0x11dd @0xa
0x11d3…11ee at000b = ╱b5╱ THEN ╱ // 0x11de @0xb
0x11d3…11ee at000c = ╱9d╱ EXEC ╱ // 0x11df @0xc
0x11d3…11ee at000d = ╱46╱F╱ // 0x11e0 @0xd
0x11d3…11ee at000e = ╱49╱I╱ // 0x11e1 @0xe
0x11d3…11ee at000f = ╱4e╱N╱ // 0x11e2 @0xf
0x11d3…11ee at0010 = ╱44╱D╱ // 0x11e3 @0x10
0x11d3…11ee at0011 = ╱5f╱_╱ // 0x11e4 @0x11
0x11d3…11ee at0012 = ╱49╱I╱ // 0x11e5 @0x12
0x11d3…11ee at0013 = ╱44╱D╱ // 0x11e6 @0x13
0x11d3…11ee at0014 = ╱58╱X╱ // 0x11e7 @0x14
0x11d3…11ee at0015 = ╱50╱P╱ // 0x11e8 @0x15
0x11d3…11ee at0016 = ╱4c╱L╱ // 0x11e9 @0x16
0x11d3…11ee at0017 = ╱41╱A╱ // 0x11ea @0x17
0x11d3…11ee at0018 = ╱44╱D╱ // 0x11eb @0x18
0x11d3…11ee at0019 = ╱53╱S╱ // 0x11ec @0x19
0x11d3…11ee at001a = EOL // 0x11ed @0x1a
0x11d3…11ee }
0x11ee…1209 a7f7 01690 LET KTO_TYPE $ := A_KTO_TYPE $
0x11ee…1209 LineComal80 {
0x11ee…1209 ptr = 0xa7f7 // 0x11ee @0x0
0x11ee…1209 lno = 0x069a // 0x11f0 @0x2
0x11ee…1209 at0004 = ╱86╱ LET ╱ // 0x11f2 @0x4
0x11ee…1209 at0005 = ╱4b╱K╱ // 0x11f3 @0x5
0x11ee…1209 at0006 = ╱54╱T╱ // 0x11f4 @0x6
0x11ee…1209 at0007 = ╱4f╱O╱ // 0x11f5 @0x7
0x11ee…1209 at0008 = ╱5f╱_╱ // 0x11f6 @0x8
0x11ee…1209 at0009 = ╱54╱T╱ // 0x11f7 @0x9
0x11ee…1209 at000a = ╱59╱Y╱ // 0x11f8 @0xa
0x11ee…1209 at000b = ╱50╱P╱ // 0x11f9 @0xb
0x11ee…1209 at000c = ╱45╱E╱ // 0x11fa @0xc
0x11ee…1209 at000d = ╱ef╱ $ ╱ // 0x11fb @0xd
0x11ee…1209 at000e = ╱f0╱ := ╱ // 0x11fc @0xe
0x11ee…1209 at000f = ╱41╱A╱ // 0x11fd @0xf
0x11ee…1209 at0010 = ╱5f╱_╱ // 0x11fe @0x10
0x11ee…1209 at0011 = ╱4b╱K╱ // 0x11ff @0x11
0x11ee…1209 at0012 = ╱54╱T╱ // 0x1200 @0x12
0x11ee…1209 at0013 = ╱4f╱O╱ // 0x1201 @0x13
0x11ee…1209 at0014 = ╱5f╱_╱ // 0x1202 @0x14
0x11ee…1209 at0015 = ╱54╱T╱ // 0x1203 @0x15
0x11ee…1209 at0016 = ╱59╱Y╱ // 0x1204 @0x16
0x11ee…1209 at0017 = ╱50╱P╱ // 0x1205 @0x17
0x11ee…1209 at0018 = ╱45╱E╱ // 0x1206 @0x18
0x11ee…1209 at0019 = ╱ef╱ $ ╱ // 0x1207 @0x19
0x11ee…1209 at001a = EOL // 0x1208 @0x1a
0x11ee…1209 }
0x1209…1221 a80f 01700 EXEC SKRIV_KONTO ( RECNR )
0x1209…1221 LineComal80 {
0x1209…1221 ptr = 0xa80f // 0x1209 @0x0
0x1209…1221 lno = 0x06a4 // 0x120b @0x2
0x1209…1221 at0004 = ╱9d╱ EXEC ╱ // 0x120d @0x4
0x1209…1221 at0005 = ╱53╱S╱ // 0x120e @0x5
0x1209…1221 at0006 = ╱4b╱K╱ // 0x120f @0x6
0x1209…1221 at0007 = ╱52╱R╱ // 0x1210 @0x7
0x1209…1221 at0008 = ╱49╱I╱ // 0x1211 @0x8
0x1209…1221 at0009 = ╱56╱V╱ // 0x1212 @0x9
0x1209…1221 at000a = ╱5f╱_╱ // 0x1213 @0xa
0x1209…1221 at000b = ╱4b╱K╱ // 0x1214 @0xb
0x1209…1221 at000c = ╱4f╱O╱ // 0x1215 @0xc
0x1209…1221 at000d = ╱4e╱N╱ // 0x1216 @0xd
0x1209…1221 at000e = ╱54╱T╱ // 0x1217 @0xe
0x1209…1221 at000f = ╱4f╱O╱ // 0x1218 @0xf
0x1209…1221 at0010 = ╱ed╱ ( ╱ // 0x1219 @0x10
0x1209…1221 at0011 = ╱52╱R╱ // 0x121a @0x11
0x1209…1221 at0012 = ╱45╱E╱ // 0x121b @0x12
0x1209…1221 at0013 = ╱43╱C╱ // 0x121c @0x13
0x1209…1221 at0014 = ╱4e╱N╱ // 0x121d @0x14
0x1209…1221 at0015 = ╱52╱R╱ // 0x121e @0x15
0x1209…1221 at0016 = ╱ee╱ ) ╱ // 0x121f @0x16
0x1209…1221 at0017 = EOL // 0x1220 @0x17
0x1209…1221 }
0x1221…1235 a823 01710 ENDPROC SKRIV_KONTOOPL
0x1221…1235 LineComal80 {
0x1221…1235 ptr = 0xa823 // 0x1221 @0x0
0x1221…1235 lno = 0x06ae // 0x1223 @0x2
0x1221…1235 at0004 = ╱9f╱ ENDPROC ╱ // 0x1225 @0x4
0x1221…1235 at0005 = ╱53╱S╱ // 0x1226 @0x5
0x1221…1235 at0006 = ╱4b╱K╱ // 0x1227 @0x6
0x1221…1235 at0007 = ╱52╱R╱ // 0x1228 @0x7
0x1221…1235 at0008 = ╱49╱I╱ // 0x1229 @0x8
0x1221…1235 at0009 = ╱56╱V╱ // 0x122a @0x9
0x1221…1235 at000a = ╱5f╱_╱ // 0x122b @0xa
0x1221…1235 at000b = ╱4b╱K╱ // 0x122c @0xb
0x1221…1235 at000c = ╱4f╱O╱ // 0x122d @0xc
0x1221…1235 at000d = ╱4e╱N╱ // 0x122e @0xd
0x1221…1235 at000e = ╱54╱T╱ // 0x122f @0xe
0x1221…1235 at000f = ╱4f╱O╱ // 0x1230 @0xf
0x1221…1235 at0010 = ╱4f╱O╱ // 0x1231 @0x10
0x1221…1235 at0011 = ╱50╱P╱ // 0x1232 @0x11
0x1221…1235 at0012 = ╱4c╱L╱ // 0x1233 @0x12
0x1221…1235 at0013 = EOL // 0x1234 @0x13
0x1221…1235 }
0x1235…123a a828 01720
0x1235…123a LineComal80 {
0x1235…123a ptr = 0xa828 // 0x1235 @0x0
0x1235…123a lno = 0x06b8 // 0x1237 @0x2
0x1235…123a at0004 = EOL // 0x1239 @0x4
0x1235…123a }
0x123a…124d a83b 01730 PROC L[S_KONTO ( P )
0x123a…124d LineComal80 {
0x123a…124d ptr = 0xa83b // 0x123a @0x0
0x123a…124d lno = 0x06c2 // 0x123c @0x2
0x123a…124d at0004 = ╱9e00╱ PROC ╱ // 0x123e @0x4
0x123a…124d at0006 = ╱4c╱L╱ // 0x1240 @0x6
0x123a…124d at0007 = ╱5b╱[╱ // 0x1241 @0x7
0x123a…124d at0008 = ╱53╱S╱ // 0x1242 @0x8
0x123a…124d at0009 = ╱5f╱_╱ // 0x1243 @0x9
0x123a…124d at000a = ╱4b╱K╱ // 0x1244 @0xa
0x123a…124d at000b = ╱4f╱O╱ // 0x1245 @0xb
0x123a…124d at000c = ╱4e╱N╱ // 0x1246 @0xc
0x123a…124d at000d = ╱54╱T╱ // 0x1247 @0xd
0x123a…124d at000e = ╱4f╱O╱ // 0x1248 @0xe
0x123a…124d at000f = ╱ed╱ ( ╱ // 0x1249 @0xf
0x123a…124d at0010 = ╱50╱P╱ // 0x124a @0x10
0x123a…124d at0011 = ╱ee╱ ) ╱ // 0x124b @0x11
0x123a…124d at0012 = EOL // 0x124c @0x12
0x123a…124d }
0x124d…1292 a880 01740 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x124d…1292 LineComal80 {
0x124d…1292 ptr = 0xa880 // 0x124d @0x0
0x124d…1292 lno = 0x06cc // 0x124f @0x2
0x124d…1292 at0004 = ╱a9╱ GET ╱ // 0x1251 @0x4
0x124d…1292 at0005 = ╱4b╱K╱ // 0x1252 @0x5
0x124d…1292 at0006 = ╱4f╱O╱ // 0x1253 @0x6
0x124d…1292 at0007 = ╱4e╱N╱ // 0x1254 @0x7
0x124d…1292 at0008 = ╱54╱T╱ // 0x1255 @0x8
0x124d…1292 at0009 = ╱4f╱O╱ // 0x1256 @0x9
0x124d…1292 at000a = ╱ef╱ $ ╱ // 0x1257 @0xa
0x124d…1292 at000b = ╱ec╱ , ╱ // 0x1258 @0xb
0x124d…1292 at000c = ╱50╱P╱ // 0x1259 @0xc
0x124d…1292 at000d = ╱f1╱ : ╱ // 0x125a @0xd
0x124d…1292 at000e = ╱4b╱K╱ // 0x125b @0xe
0x124d…1292 at000f = ╱54╱T╱ // 0x125c @0xf
0x124d…1292 at0010 = ╱4f╱O╱ // 0x125d @0x10
0x124d…1292 at0011 = ╱5f╱_╱ // 0x125e @0x11
0x124d…1292 at0012 = ╱54╱T╱ // 0x125f @0x12
0x124d…1292 at0013 = ╱59╱Y╱ // 0x1260 @0x13
0x124d…1292 at0014 = ╱50╱P╱ // 0x1261 @0x14
0x124d…1292 at0015 = ╱45╱E╱ // 0x1262 @0x15
0x124d…1292 at0016 = ╱ef╱ $ ╱ // 0x1263 @0x16
0x124d…1292 at0017 = ╱ec╱ , ╱ // 0x1264 @0x17
0x124d…1292 at0018 = ╱4b╱K╱ // 0x1265 @0x18
0x124d…1292 at0019 = ╱54╱T╱ // 0x1266 @0x19
0x124d…1292 at001a = ╱4f╱O╱ // 0x1267 @0x1a
0x124d…1292 at001b = ╱5f╱_╱ // 0x1268 @0x1b
0x124d…1292 at001c = ╱4e╱N╱ // 0x1269 @0x1c
0x124d…1292 at001d = ╱41╱A╱ // 0x126a @0x1d
0x124d…1292 at001e = ╱56╱V╱ // 0x126b @0x1e
0x124d…1292 at001f = ╱4e╱N╱ // 0x126c @0x1f
0x124d…1292 at0020 = ╱ef╱ $ ╱ // 0x126d @0x20
0x124d…1292 at0021 = ╱ec╱ , ╱ // 0x126e @0x21
0x124d…1292 at0022 = ╱4b╱K╱ // 0x126f @0x22
0x124d…1292 at0023 = ╱54╱T╱ // 0x1270 @0x23
0x124d…1292 at0024 = ╱4f╱O╱ // 0x1271 @0x24
0x124d…1292 at0025 = ╱5f╱_╱ // 0x1272 @0x25
0x124d…1292 at0026 = ╱50╱P╱ // 0x1273 @0x26
0x124d…1292 at0027 = ╱52╱R╱ // 0x1274 @0x27
0x124d…1292 at0028 = ╱49╱I╱ // 0x1275 @0x28
0x124d…1292 at0029 = ╱4d╱M╱ // 0x1276 @0x29
0x124d…1292 at002a = ╱4f╱O╱ // 0x1277 @0x2a
0x124d…1292 at002b = ╱ec╱ , ╱ // 0x1278 @0x2b
0x124d…1292 at002c = ╱4b╱K╱ // 0x1279 @0x2c
0x124d…1292 at002d = ╱54╱T╱ // 0x127a @0x2d
0x124d…1292 at002e = ╱4f╱O╱ // 0x127b @0x2e
0x124d…1292 at002f = ╱5f╱_╱ // 0x127c @0x2f
0x124d…1292 at0030 = ╱55╱U╱ // 0x127d @0x30
0x124d…1292 at0031 = ╱4c╱L╱ // 0x127e @0x31
0x124d…1292 at0032 = ╱54╱T╱ // 0x127f @0x32
0x124d…1292 at0033 = ╱49╱I╱ // 0x1280 @0x33
0x124d…1292 at0034 = ╱4d╱M╱ // 0x1281 @0x34
0x124d…1292 at0035 = ╱4f╱O╱ // 0x1282 @0x35
0x124d…1292 at0036 = ╱ec╱ , ╱ // 0x1283 @0x36
0x124d…1292 at0037 = ╱4b╱K╱ // 0x1284 @0x37
0x124d…1292 at0038 = ╱54╱T╱ // 0x1285 @0x38
0x124d…1292 at0039 = ╱4f╱O╱ // 0x1286 @0x39
0x124d…1292 at003a = ╱5f╱_╱ // 0x1287 @0x3a
0x124d…1292 at003b = ╱46╱F╱ // 0x1288 @0x3b
0x124d…1292 at003c = ╱50╱P╱ // 0x1289 @0x3c
0x124d…1292 at003d = ╱ec╱ , ╱ // 0x128a @0x3d
0x124d…1292 at003e = ╱4b╱K╱ // 0x128b @0x3e
0x124d…1292 at003f = ╱54╱T╱ // 0x128c @0x3f
0x124d…1292 at0040 = ╱4f╱O╱ // 0x128d @0x40
0x124d…1292 at0041 = ╱5f╱_╱ // 0x128e @0x41
0x124d…1292 at0042 = ╱53╱S╱ // 0x128f @0x42
0x124d…1292 at0043 = ╱50╱P╱ // 0x1290 @0x43
0x124d…1292 at0044 = EOL // 0x1291 @0x44
0x124d…1292 }
0x1292…12a1 a88f 01750 ENDPROC L[S_KONTO
0x1292…12a1 LineComal80 {
0x1292…12a1 ptr = 0xa88f // 0x1292 @0x0
0x1292…12a1 lno = 0x06d6 // 0x1294 @0x2
0x1292…12a1 at0004 = ╱9f╱ ENDPROC ╱ // 0x1296 @0x4
0x1292…12a1 at0005 = ╱4c╱L╱ // 0x1297 @0x5
0x1292…12a1 at0006 = ╱5b╱[╱ // 0x1298 @0x6
0x1292…12a1 at0007 = ╱53╱S╱ // 0x1299 @0x7
0x1292…12a1 at0008 = ╱5f╱_╱ // 0x129a @0x8
0x1292…12a1 at0009 = ╱4b╱K╱ // 0x129b @0x9
0x1292…12a1 at000a = ╱4f╱O╱ // 0x129c @0xa
0x1292…12a1 at000b = ╱4e╱N╱ // 0x129d @0xb
0x1292…12a1 at000c = ╱54╱T╱ // 0x129e @0xc
0x1292…12a1 at000d = ╱4f╱O╱ // 0x129f @0xd
0x1292…12a1 at000e = EOL // 0x12a0 @0xe
0x1292…12a1 }
0x12a1…12a6 a894 01760
0x12a1…12a6 LineComal80 {
0x12a1…12a6 ptr = 0xa894 // 0x12a1 @0x0
0x12a1…12a6 lno = 0x06e0 // 0x12a3 @0x2
0x12a1…12a6 at0004 = EOL // 0x12a5 @0x4
0x12a1…12a6 }
0x12a6…12bb (62,) a8a9 01770 PROC SKRIV_KONTO ( P )
0x12a6…12bb LineComal80 {
0x12a6…12bb ptr = 0xa8a9 // 0x12a6 @0x0
0x12a6…12bb lno = 0x06ea // 0x12a8 @0x2
0x12a6…12bb at0004 = ╱9e00╱ PROC ╱ // 0x12aa @0x4
0x12a6…12bb at0006 = ╱53╱S╱ // 0x12ac @0x6
0x12a6…12bb at0007 = ╱4b╱K╱ // 0x12ad @0x7
0x12a6…12bb at0008 = ╱52╱R╱ // 0x12ae @0x8
0x12a6…12bb at0009 = ╱49╱I╱ // 0x12af @0x9
0x12a6…12bb at000a = ╱56╱V╱ // 0x12b0 @0xa
0x12a6…12bb at000b = ╱5f╱_╱ // 0x12b1 @0xb
0x12a6…12bb at000c = ╱4b╱K╱ // 0x12b2 @0xc
0x12a6…12bb at000d = ╱4f╱O╱ // 0x12b3 @0xd
0x12a6…12bb at000e = ╱4e╱N╱ // 0x12b4 @0xe
0x12a6…12bb at000f = ╱54╱T╱ // 0x12b5 @0xf
0x12a6…12bb at0010 = ╱4f╱O╱ // 0x12b6 @0x10
0x12a6…12bb at0011 = ╱ed╱ ( ╱ // 0x12b7 @0x11
0x12a6…12bb at0012 = ╱50╱P╱ // 0x12b8 @0x12
0x12a6…12bb at0013 = ╱ee╱ ) ╱ // 0x12b9 @0x13
0x12a6…12bb at0014 = EOL // 0x12ba @0x14
0x12a6…12bb }
0x12bb…1300 a8ee 01780 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x12bb…1300 LineComal80 {
0x12bb…1300 ptr = 0xa8ee // 0x12bb @0x0
0x12bb…1300 lno = 0x06f4 // 0x12bd @0x2
0x12bb…1300 at0004 = ╱aa╱ PUT ╱ // 0x12bf @0x4
0x12bb…1300 at0005 = ╱4b╱K╱ // 0x12c0 @0x5
0x12bb…1300 at0006 = ╱4f╱O╱ // 0x12c1 @0x6
0x12bb…1300 at0007 = ╱4e╱N╱ // 0x12c2 @0x7
0x12bb…1300 at0008 = ╱54╱T╱ // 0x12c3 @0x8
0x12bb…1300 at0009 = ╱4f╱O╱ // 0x12c4 @0x9
0x12bb…1300 at000a = ╱ef╱ $ ╱ // 0x12c5 @0xa
0x12bb…1300 at000b = ╱ec╱ , ╱ // 0x12c6 @0xb
0x12bb…1300 at000c = ╱50╱P╱ // 0x12c7 @0xc
0x12bb…1300 at000d = ╱f1╱ : ╱ // 0x12c8 @0xd
0x12bb…1300 at000e = ╱4b╱K╱ // 0x12c9 @0xe
0x12bb…1300 at000f = ╱54╱T╱ // 0x12ca @0xf
0x12bb…1300 at0010 = ╱4f╱O╱ // 0x12cb @0x10
0x12bb…1300 at0011 = ╱5f╱_╱ // 0x12cc @0x11
0x12bb…1300 at0012 = ╱54╱T╱ // 0x12cd @0x12
0x12bb…1300 at0013 = ╱59╱Y╱ // 0x12ce @0x13
0x12bb…1300 at0014 = ╱50╱P╱ // 0x12cf @0x14
0x12bb…1300 at0015 = ╱45╱E╱ // 0x12d0 @0x15
0x12bb…1300 at0016 = ╱ef╱ $ ╱ // 0x12d1 @0x16
0x12bb…1300 at0017 = ╱ec╱ , ╱ // 0x12d2 @0x17
0x12bb…1300 at0018 = ╱4b╱K╱ // 0x12d3 @0x18
0x12bb…1300 at0019 = ╱54╱T╱ // 0x12d4 @0x19
0x12bb…1300 at001a = ╱4f╱O╱ // 0x12d5 @0x1a
0x12bb…1300 at001b = ╱5f╱_╱ // 0x12d6 @0x1b
0x12bb…1300 at001c = ╱4e╱N╱ // 0x12d7 @0x1c
0x12bb…1300 at001d = ╱41╱A╱ // 0x12d8 @0x1d
0x12bb…1300 at001e = ╱56╱V╱ // 0x12d9 @0x1e
0x12bb…1300 at001f = ╱4e╱N╱ // 0x12da @0x1f
0x12bb…1300 at0020 = ╱ef╱ $ ╱ // 0x12db @0x20
0x12bb…1300 at0021 = ╱ec╱ , ╱ // 0x12dc @0x21
0x12bb…1300 at0022 = ╱4b╱K╱ // 0x12dd @0x22
0x12bb…1300 at0023 = ╱54╱T╱ // 0x12de @0x23
0x12bb…1300 at0024 = ╱4f╱O╱ // 0x12df @0x24
0x12bb…1300 at0025 = ╱5f╱_╱ // 0x12e0 @0x25
0x12bb…1300 at0026 = ╱50╱P╱ // 0x12e1 @0x26
0x12bb…1300 at0027 = ╱52╱R╱ // 0x12e2 @0x27
0x12bb…1300 at0028 = ╱49╱I╱ // 0x12e3 @0x28
0x12bb…1300 at0029 = ╱4d╱M╱ // 0x12e4 @0x29
0x12bb…1300 at002a = ╱4f╱O╱ // 0x12e5 @0x2a
0x12bb…1300 at002b = ╱ec╱ , ╱ // 0x12e6 @0x2b
0x12bb…1300 at002c = ╱4b╱K╱ // 0x12e7 @0x2c
0x12bb…1300 at002d = ╱54╱T╱ // 0x12e8 @0x2d
0x12bb…1300 at002e = ╱4f╱O╱ // 0x12e9 @0x2e
0x12bb…1300 at002f = ╱5f╱_╱ // 0x12ea @0x2f
0x12bb…1300 at0030 = ╱55╱U╱ // 0x12eb @0x30
0x12bb…1300 at0031 = ╱4c╱L╱ // 0x12ec @0x31
0x12bb…1300 at0032 = ╱54╱T╱ // 0x12ed @0x32
0x12bb…1300 at0033 = ╱49╱I╱ // 0x12ee @0x33
0x12bb…1300 at0034 = ╱4d╱M╱ // 0x12ef @0x34
0x12bb…1300 at0035 = ╱4f╱O╱ // 0x12f0 @0x35
0x12bb…1300 at0036 = ╱ec╱ , ╱ // 0x12f1 @0x36
0x12bb…1300 at0037 = ╱4b╱K╱ // 0x12f2 @0x37
0x12bb…1300 at0038 = ╱54╱T╱ // 0x12f3 @0x38
0x12bb…1300 at0039 = ╱4f╱O╱ // 0x12f4 @0x39
0x12bb…1300 at003a = ╱5f╱_╱ // 0x12f5 @0x3a
0x12bb…1300 at003b = ╱46╱F╱ // 0x12f6 @0x3b
0x12bb…1300 at003c = ╱50╱P╱ // 0x12f7 @0x3c
0x12bb…1300 at003d = ╱ec╱ , ╱ // 0x12f8 @0x3d
0x12bb…1300 at003e = ╱4b╱K╱ // 0x12f9 @0x3e
0x12bb…1300 at003f = ╱54╱T╱ // 0x12fa @0x3f
0x12bb…1300 at0040 = ╱4f╱O╱ // 0x12fb @0x40
0x12bb…1300 at0041 = ╱5f╱_╱ // 0x12fc @0x41
0x12bb…1300 at0042 = ╱53╱S╱ // 0x12fd @0x42
0x12bb…1300 at0043 = ╱50╱P╱ // 0x12fe @0x43
0x12bb…1300 at0044 = EOL // 0x12ff @0x44
0x12bb…1300 }
0x1300…1311 a8ff 01790 ENDPROC SKRIV_KONTO
0x1300…1311 LineComal80 {
0x1300…1311 ptr = 0xa8ff // 0x1300 @0x0
0x1300…1311 lno = 0x06fe // 0x1302 @0x2
0x1300…1311 at0004 = ╱9f╱ ENDPROC ╱ // 0x1304 @0x4
0x1300…1311 at0005 = ╱53╱S╱ // 0x1305 @0x5
0x1300…1311 at0006 = ╱4b╱K╱ // 0x1306 @0x6
0x1300…1311 at0007 = ╱52╱R╱ // 0x1307 @0x7
0x1300…1311 at0008 = ╱49╱I╱ // 0x1308 @0x8
0x1300…1311 at0009 = ╱56╱V╱ // 0x1309 @0x9
0x1300…1311 at000a = ╱5f╱_╱ // 0x130a @0xa
0x1300…1311 at000b = ╱4b╱K╱ // 0x130b @0xb
0x1300…1311 at000c = ╱4f╱O╱ // 0x130c @0xc
0x1300…1311 at000d = ╱4e╱N╱ // 0x130d @0xd
0x1300…1311 at000e = ╱54╱T╱ // 0x130e @0xe
0x1300…1311 at000f = ╱4f╱O╱ // 0x130f @0xf
0x1300…1311 at0010 = EOL // 0x1310 @0x10
0x1300…1311 }
0x1311…1316 a904 01800
0x1311…1316 LineComal80 {
0x1311…1316 ptr = 0xa904 // 0x1311 @0x0
0x1311…1316 lno = 0x0708 // 0x1313 @0x2
0x1311…1316 at0004 = EOL // 0x1315 @0x4
0x1311…1316 }
0x1316…132b a919 01810 PROC ST_BGST ( REF RST $ )
0x1316…132b LineComal80 {
0x1316…132b ptr = 0xa919 // 0x1316 @0x0
0x1316…132b lno = 0x0712 // 0x1318 @0x2
0x1316…132b at0004 = ╱9e00╱ PROC ╱ // 0x131a @0x4
0x1316…132b at0006 = ╱53╱S╱ // 0x131c @0x6
0x1316…132b at0007 = ╱54╱T╱ // 0x131d @0x7
0x1316…132b at0008 = ╱5f╱_╱ // 0x131e @0x8
0x1316…132b at0009 = ╱42╱B╱ // 0x131f @0x9
0x1316…132b at000a = ╱47╱G╱ // 0x1320 @0xa
0x1316…132b at000b = ╱53╱S╱ // 0x1321 @0xb
0x1316…132b at000c = ╱54╱T╱ // 0x1322 @0xc
0x1316…132b at000d = ╱ed╱ ( ╱ // 0x1323 @0xd
0x1316…132b at000e = ╱b6╱ REF ╱ // 0x1324 @0xe
0x1316…132b at000f = ╱52╱R╱ // 0x1325 @0xf
0x1316…132b at0010 = ╱53╱S╱ // 0x1326 @0x10
0x1316…132b at0011 = ╱54╱T╱ // 0x1327 @0x11
0x1316…132b at0012 = ╱ef╱ $ ╱ // 0x1328 @0x12
0x1316…132b at0013 = ╱ee╱ ) ╱ // 0x1329 @0x13
0x1316…132b at0014 = EOL // 0x132a @0x14
0x1316…132b }
0x132b…1341 a92f 01820 FOR J := 1 TO ( RST $ ) DO
0x132b…1341 LineComal80 {
0x132b…1341 ptr = 0xa92f // 0x132b @0x0
0x132b…1341 lno = 0x071c // 0x132d @0x2
0x132b…1341 at0004 = ╱8300╱ FOR ╱ // 0x132f @0x4
0x132b…1341 at0006 = ╱4a╱J╱ // 0x1331 @0x6
0x132b…1341 at0007 = ╱f0╱ := ╱ // 0x1332 @0x7
0x132b…1341 at0008 = ╱31╱1╱ // 0x1333 @0x8
0x132b…1341 at0009 = ╱f20100╱ // 0x1334 @0x9
0x132b…1341 at000c = ╱b7cb╱ TO ╱ // 0x1337 @0xc
0x132b…1341 at000e = ╱ed╱ ( ╱ // 0x1339 @0xe
0x132b…1341 at000f = ╱52╱R╱ // 0x133a @0xf
0x132b…1341 at0010 = ╱53╱S╱ // 0x133b @0x10
0x132b…1341 at0011 = ╱54╱T╱ // 0x133c @0x11
0x132b…1341 at0012 = ╱ef╱ $ ╱ // 0x133d @0x12
0x132b…1341 at0013 = ╱ee╱ ) ╱ // 0x133e @0x13
0x132b…1341 at0014 = ╱bb╱ DO ╱ // 0x133f @0x14
0x132b…1341 at0015 = EOL // 0x1340 @0x15
0x132b…1341 }
0x1341…137c a96a 01830 IF "a" =< RST $ ( J ) AND RST $ ( J ) =< "}" THEN LET RST $ ( J ) := CHR$ ( ╱cc╱ ( RST $ ( J ) ) - 32 )
0x1341…137c LineComal80 {
0x1341…137c ptr = 0xa96a // 0x1341 @0x0
0x1341…137c lno = 0x0726 // 0x1343 @0x2
0x1341…137c at0004 = ╱8200╱ IF ╱ // 0x1345 @0x4
0x1341…137c at0006 = ╱22╱"╱ // 0x1347 @0x6
0x1341…137c at0007 = ╱61╱a╱ // 0x1348 @0x7
0x1341…137c at0008 = ╱22╱"╱ // 0x1349 @0x8
0x1341…137c at0009 = ╱e2╱ =< ╱ // 0x134a @0x9
0x1341…137c at000a = ╱52╱R╱ // 0x134b @0xa
0x1341…137c at000b = ╱53╱S╱ // 0x134c @0xb
0x1341…137c at000c = ╱54╱T╱ // 0x134d @0xc
0x1341…137c at000d = ╱ef╱ $ ╱ // 0x134e @0xd
0x1341…137c at000e = ╱ed╱ ( ╱ // 0x134f @0xe
0x1341…137c at000f = ╱4a╱J╱ // 0x1350 @0xf
0x1341…137c at0010 = ╱ee╱ ) ╱ // 0x1351 @0x10
0x1341…137c at0011 = ╱d9╱ AND ╱ // 0x1352 @0x11
0x1341…137c at0012 = ╱52╱R╱ // 0x1353 @0x12
0x1341…137c at0013 = ╱53╱S╱ // 0x1354 @0x13
0x1341…137c at0014 = ╱54╱T╱ // 0x1355 @0x14
0x1341…137c at0015 = ╱ef╱ $ ╱ // 0x1356 @0x15
0x1341…137c at0016 = ╱ed╱ ( ╱ // 0x1357 @0x16
0x1341…137c at0017 = ╱4a╱J╱ // 0x1358 @0x17
0x1341…137c at0018 = ╱ee╱ ) ╱ // 0x1359 @0x18
0x1341…137c at0019 = ╱e2╱ =< ╱ // 0x135a @0x19
0x1341…137c at001a = ╱22╱"╱ // 0x135b @0x1a
0x1341…137c at001b = ╱7d╱}╱ // 0x135c @0x1b
0x1341…137c at001c = ╱22╱"╱ // 0x135d @0x1c
0x1341…137c at001d = ╱b5╱ THEN ╱ // 0x135e @0x1d
0x1341…137c at001e = ╱86╱ LET ╱ // 0x135f @0x1e
0x1341…137c at001f = ╱52╱R╱ // 0x1360 @0x1f
0x1341…137c at0020 = ╱53╱S╱ // 0x1361 @0x20
0x1341…137c at0021 = ╱54╱T╱ // 0x1362 @0x21
0x1341…137c at0022 = ╱ef╱ $ ╱ // 0x1363 @0x22
0x1341…137c at0023 = ╱ed╱ ( ╱ // 0x1364 @0x23
0x1341…137c at0024 = ╱4a╱J╱ // 0x1365 @0x24
0x1341…137c at0025 = ╱ee╱ ) ╱ // 0x1366 @0x25
0x1341…137c at0026 = ╱f0╱ := ╱ // 0x1367 @0x26
0x1341…137c at0027 = ╱d0╱ CHR$ ╱ // 0x1368 @0x27
0x1341…137c at0028 = ╱ed╱ ( ╱ // 0x1369 @0x28
0x1341…137c at0029 = ╱cc╱ // 0x136a @0x29
0x1341…137c at002a = ╱ed╱ ( ╱ // 0x136b @0x2a
0x1341…137c at002b = ╱52╱R╱ // 0x136c @0x2b
0x1341…137c at002c = ╱53╱S╱ // 0x136d @0x2c
0x1341…137c at002d = ╱54╱T╱ // 0x136e @0x2d
0x1341…137c at002e = ╱ef╱ $ ╱ // 0x136f @0x2e
0x1341…137c at002f = ╱ed╱ ( ╱ // 0x1370 @0x2f
0x1341…137c at0030 = ╱4a╱J╱ // 0x1371 @0x30
0x1341…137c at0031 = ╱ee╱ ) ╱ // 0x1372 @0x31
0x1341…137c at0032 = ╱ee╱ ) ╱ // 0x1373 @0x32
0x1341…137c at0033 = ╱e6╱ - ╱ // 0x1374 @0x33
0x1341…137c at0034 = ╱33╱3╱ // 0x1375 @0x34
0x1341…137c at0035 = ╱32╱2╱ // 0x1376 @0x35
0x1341…137c at0036 = ╱f22000╱ // 0x1377 @0x36
0x1341…137c at0039 = ╱ee╱ ) ╱ // 0x137a @0x39
0x1341…137c at003a = EOL // 0x137b @0x3a
0x1341…137c }
0x137c…1383 a971 01840 NEXT J
0x137c…1383 LineComal80 {
0x137c…1383 ptr = 0xa971 // 0x137c @0x0
0x137c…1383 lno = 0x0730 // 0x137e @0x2
0x137c…1383 at0004 = ╱84╱ NEXT ╱ // 0x1380 @0x4
0x137c…1383 at0005 = ╱4a╱J╱ // 0x1381 @0x5
0x137c…1383 at0006 = EOL // 0x1382 @0x6
0x137c…1383 }
0x1383…1390 a97e 01850 ENDPROC ST_BGST
0x1383…1390 LineComal80 {
0x1383…1390 ptr = 0xa97e // 0x1383 @0x0
0x1383…1390 lno = 0x073a // 0x1385 @0x2
0x1383…1390 at0004 = ╱9f╱ ENDPROC ╱ // 0x1387 @0x4
0x1383…1390 at0005 = ╱53╱S╱ // 0x1388 @0x5
0x1383…1390 at0006 = ╱54╱T╱ // 0x1389 @0x6
0x1383…1390 at0007 = ╱5f╱_╱ // 0x138a @0x7
0x1383…1390 at0008 = ╱42╱B╱ // 0x138b @0x8
0x1383…1390 at0009 = ╱47╱G╱ // 0x138c @0x9
0x1383…1390 at000a = ╱53╱S╱ // 0x138d @0xa
0x1383…1390 at000b = ╱54╱T╱ // 0x138e @0xb
0x1383…1390 at000c = EOL // 0x138f @0xc
0x1383…1390 }
0x1390…1395 a983 01860
0x1390…1395 LineComal80 {
0x1390…1395 ptr = 0xa983 // 0x1390 @0x0
0x1390…1395 lno = 0x0744 // 0x1392 @0x2
0x1390…1395 at0004 = EOL // 0x1394 @0x4
0x1390…1395 }
0x1395…13ae a99c 01870 PROC TAL_CONTROL ( REF RST $ )
0x1395…13ae LineComal80 {
0x1395…13ae ptr = 0xa99c // 0x1395 @0x0
0x1395…13ae lno = 0x074e // 0x1397 @0x2
0x1395…13ae at0004 = ╱9e00╱ PROC ╱ // 0x1399 @0x4
0x1395…13ae at0006 = ╱54╱T╱ // 0x139b @0x6
0x1395…13ae at0007 = ╱41╱A╱ // 0x139c @0x7
0x1395…13ae at0008 = ╱4c╱L╱ // 0x139d @0x8
0x1395…13ae at0009 = ╱5f╱_╱ // 0x139e @0x9
0x1395…13ae at000a = ╱43╱C╱ // 0x139f @0xa
0x1395…13ae at000b = ╱4f╱O╱ // 0x13a0 @0xb
0x1395…13ae at000c = ╱4e╱N╱ // 0x13a1 @0xc
0x1395…13ae at000d = ╱54╱T╱ // 0x13a2 @0xd
0x1395…13ae at000e = ╱52╱R╱ // 0x13a3 @0xe
0x1395…13ae at000f = ╱4f╱O╱ // 0x13a4 @0xf
0x1395…13ae at0010 = ╱4c╱L╱ // 0x13a5 @0x10
0x1395…13ae at0011 = ╱ed╱ ( ╱ // 0x13a6 @0x11
0x1395…13ae at0012 = ╱b6╱ REF ╱ // 0x13a7 @0x12
0x1395…13ae at0013 = ╱52╱R╱ // 0x13a8 @0x13
0x1395…13ae at0014 = ╱53╱S╱ // 0x13a9 @0x14
0x1395…13ae at0015 = ╱54╱T╱ // 0x13aa @0x15
0x1395…13ae at0016 = ╱ef╱ $ ╱ // 0x13ab @0x16
0x1395…13ae at0017 = ╱ee╱ ) ╱ // 0x13ac @0x17
0x1395…13ae at0018 = EOL // 0x13ad @0x18
0x1395…13ae }
0x13ae…13c9 a9b7 01880 LET J := 0 ; OK := TRUE ; K := 0
0x13ae…13c9 LineComal80 {
0x13ae…13c9 ptr = 0xa9b7 // 0x13ae @0x0
0x13ae…13c9 lno = 0x0758 // 0x13b0 @0x2
0x13ae…13c9 at0004 = ╱86╱ LET ╱ // 0x13b2 @0x4
0x13ae…13c9 at0005 = ╱4a╱J╱ // 0x13b3 @0x5
0x13ae…13c9 at0006 = ╱f0╱ := ╱ // 0x13b4 @0x6
0x13ae…13c9 at0007 = ╱30╱0╱ // 0x13b5 @0x7
0x13ae…13c9 at0008 = ╱f20000╱ // 0x13b6 @0x8
0x13ae…13c9 at000b = ╱ea╱ ; ╱ // 0x13b9 @0xb
0x13ae…13c9 at000c = ╱4f╱O╱ // 0x13ba @0xc
0x13ae…13c9 at000d = ╱4b╱K╱ // 0x13bb @0xd
0x13ae…13c9 at000e = ╱f0╱ := ╱ // 0x13bc @0xe
0x13ae…13c9 at000f = ╱54╱T╱ // 0x13bd @0xf
0x13ae…13c9 at0010 = ╱52╱R╱ // 0x13be @0x10
0x13ae…13c9 at0011 = ╱55╱U╱ // 0x13bf @0x11
0x13ae…13c9 at0012 = ╱45╱E╱ // 0x13c0 @0x12
0x13ae…13c9 at0013 = ╱ea╱ ; ╱ // 0x13c1 @0x13
0x13ae…13c9 at0014 = ╱4b╱K╱ // 0x13c2 @0x14
0x13ae…13c9 at0015 = ╱f0╱ := ╱ // 0x13c3 @0x15
0x13ae…13c9 at0016 = ╱30╱0╱ // 0x13c4 @0x16
0x13ae…13c9 at0017 = ╱f20000╱ // 0x13c5 @0x17
0x13ae…13c9 at001a = EOL // 0x13c8 @0x1a
0x13ae…13c9 }
0x13c9…13df a9cd 01890 FOR I := 1 TO ( RST $ ) DO
0x13c9…13df LineComal80 {
0x13c9…13df ptr = 0xa9cd // 0x13c9 @0x0
0x13c9…13df lno = 0x0762 // 0x13cb @0x2
0x13c9…13df at0004 = ╱8300╱ FOR ╱ // 0x13cd @0x4
0x13c9…13df at0006 = ╱49╱I╱ // 0x13cf @0x6
0x13c9…13df at0007 = ╱f0╱ := ╱ // 0x13d0 @0x7
0x13c9…13df at0008 = ╱31╱1╱ // 0x13d1 @0x8
0x13c9…13df at0009 = ╱f20100╱ // 0x13d2 @0x9
0x13c9…13df at000c = ╱b7cb╱ TO ╱ // 0x13d5 @0xc
0x13c9…13df at000e = ╱ed╱ ( ╱ // 0x13d7 @0xe
0x13c9…13df at000f = ╱52╱R╱ // 0x13d8 @0xf
0x13c9…13df at0010 = ╱53╱S╱ // 0x13d9 @0x10
0x13c9…13df at0011 = ╱54╱T╱ // 0x13da @0x11
0x13c9…13df at0012 = ╱ef╱ $ ╱ // 0x13db @0x12
0x13c9…13df at0013 = ╱ee╱ ) ╱ // 0x13dc @0x13
0x13c9…13df at0014 = ╱bb╱ DO ╱ // 0x13dd @0x14
0x13c9…13df at0015 = EOL // 0x13de @0x15
0x13c9…13df }
0x13df…1414 aa02 01900 IF RST $ ( I ) IN "0123456789" THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
0x13df…1414 LineComal80 {
0x13df…1414 ptr = 0xaa02 // 0x13df @0x0
0x13df…1414 lno = 0x076c // 0x13e1 @0x2
0x13df…1414 at0004 = ╱8200╱ IF ╱ // 0x13e3 @0x4
0x13df…1414 at0006 = ╱52╱R╱ // 0x13e5 @0x6
0x13df…1414 at0007 = ╱53╱S╱ // 0x13e6 @0x7
0x13df…1414 at0008 = ╱54╱T╱ // 0x13e7 @0x8
0x13df…1414 at0009 = ╱ef╱ $ ╱ // 0x13e8 @0x9
0x13df…1414 at000a = ╱ed╱ ( ╱ // 0x13e9 @0xa
0x13df…1414 at000b = ╱49╱I╱ // 0x13ea @0xb
0x13df…1414 at000c = ╱ee╱ ) ╱ // 0x13eb @0xc
0x13df…1414 at000d = ╱dc╱ IN ╱ // 0x13ec @0xd
0x13df…1414 at000e = ╱22╱"╱ // 0x13ed @0xe
0x13df…1414 at000f = ╱30╱0╱ // 0x13ee @0xf
0x13df…1414 at0010 = ╱31╱1╱ // 0x13ef @0x10
0x13df…1414 at0011 = ╱32╱2╱ // 0x13f0 @0x11
0x13df…1414 at0012 = ╱33╱3╱ // 0x13f1 @0x12
0x13df…1414 at0013 = ╱34╱4╱ // 0x13f2 @0x13
0x13df…1414 at0014 = ╱35╱5╱ // 0x13f3 @0x14
0x13df…1414 at0015 = ╱36╱6╱ // 0x13f4 @0x15
0x13df…1414 at0016 = ╱37╱7╱ // 0x13f5 @0x16
0x13df…1414 at0017 = ╱38╱8╱ // 0x13f6 @0x17
0x13df…1414 at0018 = ╱39╱9╱ // 0x13f7 @0x18
0x13df…1414 at0019 = ╱22╱"╱ // 0x13f8 @0x19
0x13df…1414 at001a = ╱b5╱ THEN ╱ // 0x13f9 @0x1a
0x13df…1414 at001b = ╱86╱ LET ╱ // 0x13fa @0x1b
0x13df…1414 at001c = ╱4a╱J╱ // 0x13fb @0x1c
0x13df…1414 at001d = ╱f0╱ := ╱ // 0x13fc @0x1d
0x13df…1414 at001e = ╱4a╱J╱ // 0x13fd @0x1e
0x13df…1414 at001f = ╱e5╱ + ╱ // 0x13fe @0x1f
0x13df…1414 at0020 = ╱31╱1╱ // 0x13ff @0x20
0x13df…1414 at0021 = ╱f20100╱ // 0x1400 @0x21
0x13df…1414 at0024 = ╱ea╱ ; ╱ // 0x1403 @0x24
0x13df…1414 at0025 = ╱52╱R╱ // 0x1404 @0x25
0x13df…1414 at0026 = ╱53╱S╱ // 0x1405 @0x26
0x13df…1414 at0027 = ╱54╱T╱ // 0x1406 @0x27
0x13df…1414 at0028 = ╱ef╱ $ ╱ // 0x1407 @0x28
0x13df…1414 at0029 = ╱ed╱ ( ╱ // 0x1408 @0x29
0x13df…1414 at002a = ╱4a╱J╱ // 0x1409 @0x2a
0x13df…1414 at002b = ╱ee╱ ) ╱ // 0x140a @0x2b
0x13df…1414 at002c = ╱f0╱ := ╱ // 0x140b @0x2c
0x13df…1414 at002d = ╱52╱R╱ // 0x140c @0x2d
0x13df…1414 at002e = ╱53╱S╱ // 0x140d @0x2e
0x13df…1414 at002f = ╱54╱T╱ // 0x140e @0x2f
0x13df…1414 at0030 = ╱ef╱ $ ╱ // 0x140f @0x30
0x13df…1414 at0031 = ╱ed╱ ( ╱ // 0x1410 @0x31
0x13df…1414 at0032 = ╱49╱I╱ // 0x1411 @0x32
0x13df…1414 at0033 = ╱ee╱ ) ╱ // 0x1412 @0x33
0x13df…1414 at0034 = EOL // 0x1413 @0x34
0x13df…1414 }
0x1414…1450 aa3e 01910 IF RST $ ( I ) = "." AND K = 0 THEN LET J := J + 1 ; K := K + 1 ; RST $ ( J ) := RST $ ( I )
0x1414…1450 LineComal80 {
0x1414…1450 ptr = 0xaa3e // 0x1414 @0x0
0x1414…1450 lno = 0x0776 // 0x1416 @0x2
0x1414…1450 at0004 = ╱8200╱ IF ╱ // 0x1418 @0x4
0x1414…1450 at0006 = ╱52╱R╱ // 0x141a @0x6
0x1414…1450 at0007 = ╱53╱S╱ // 0x141b @0x7
0x1414…1450 at0008 = ╱54╱T╱ // 0x141c @0x8
0x1414…1450 at0009 = ╱ef╱ $ ╱ // 0x141d @0x9
0x1414…1450 at000a = ╱ed╱ ( ╱ // 0x141e @0xa
0x1414…1450 at000b = ╱49╱I╱ // 0x141f @0xb
0x1414…1450 at000c = ╱ee╱ ) ╱ // 0x1420 @0xc
0x1414…1450 at000d = ╱df╱ = ╱ // 0x1421 @0xd
0x1414…1450 at000e = ╱22╱"╱ // 0x1422 @0xe
0x1414…1450 at000f = ╱2e╱.╱ // 0x1423 @0xf
0x1414…1450 at0010 = ╱22╱"╱ // 0x1424 @0x10
0x1414…1450 at0011 = ╱d9╱ AND ╱ // 0x1425 @0x11
0x1414…1450 at0012 = ╱4b╱K╱ // 0x1426 @0x12
0x1414…1450 at0013 = ╱df╱ = ╱ // 0x1427 @0x13
0x1414…1450 at0014 = ╱30╱0╱ // 0x1428 @0x14
0x1414…1450 at0015 = ╱f20000╱ // 0x1429 @0x15
0x1414…1450 at0018 = ╱b5╱ THEN ╱ // 0x142c @0x18
0x1414…1450 at0019 = ╱86╱ LET ╱ // 0x142d @0x19
0x1414…1450 at001a = ╱4a╱J╱ // 0x142e @0x1a
0x1414…1450 at001b = ╱f0╱ := ╱ // 0x142f @0x1b
0x1414…1450 at001c = ╱4a╱J╱ // 0x1430 @0x1c
0x1414…1450 at001d = ╱e5╱ + ╱ // 0x1431 @0x1d
0x1414…1450 at001e = ╱31╱1╱ // 0x1432 @0x1e
0x1414…1450 at001f = ╱f20100╱ // 0x1433 @0x1f
0x1414…1450 at0022 = ╱ea╱ ; ╱ // 0x1436 @0x22
0x1414…1450 at0023 = ╱4b╱K╱ // 0x1437 @0x23
0x1414…1450 at0024 = ╱f0╱ := ╱ // 0x1438 @0x24
0x1414…1450 at0025 = ╱4b╱K╱ // 0x1439 @0x25
0x1414…1450 at0026 = ╱e5╱ + ╱ // 0x143a @0x26
0x1414…1450 at0027 = ╱31╱1╱ // 0x143b @0x27
0x1414…1450 at0028 = ╱f20100╱ // 0x143c @0x28
0x1414…1450 at002b = ╱ea╱ ; ╱ // 0x143f @0x2b
0x1414…1450 at002c = ╱52╱R╱ // 0x1440 @0x2c
0x1414…1450 at002d = ╱53╱S╱ // 0x1441 @0x2d
0x1414…1450 at002e = ╱54╱T╱ // 0x1442 @0x2e
0x1414…1450 at002f = ╱ef╱ $ ╱ // 0x1443 @0x2f
0x1414…1450 at0030 = ╱ed╱ ( ╱ // 0x1444 @0x30
0x1414…1450 at0031 = ╱4a╱J╱ // 0x1445 @0x31
0x1414…1450 at0032 = ╱ee╱ ) ╱ // 0x1446 @0x32
0x1414…1450 at0033 = ╱f0╱ := ╱ // 0x1447 @0x33
0x1414…1450 at0034 = ╱52╱R╱ // 0x1448 @0x34
0x1414…1450 at0035 = ╱53╱S╱ // 0x1449 @0x35
0x1414…1450 at0036 = ╱54╱T╱ // 0x144a @0x36
0x1414…1450 at0037 = ╱ef╱ $ ╱ // 0x144b @0x37
0x1414…1450 at0038 = ╱ed╱ ( ╱ // 0x144c @0x38
0x1414…1450 at0039 = ╱49╱I╱ // 0x144d @0x39
0x1414…1450 at003a = ╱ee╱ ) ╱ // 0x144e @0x3a
0x1414…1450 at003b = EOL // 0x144f @0x3b
0x1414…1450 }
0x1450…1457 aa45 01920 NEXT I
0x1450…1457 LineComal80 {
0x1450…1457 ptr = 0xaa45 // 0x1450 @0x0
0x1450…1457 lno = 0x0780 // 0x1452 @0x2
0x1450…1457 at0004 = ╱84╱ NEXT ╱ // 0x1454 @0x4
0x1450…1457 at0005 = ╱49╱I╱ // 0x1455 @0x5
0x1450…1457 at0006 = EOL // 0x1456 @0x6
0x1450…1457 }
0x1457…1465 aa53 01930 IF = 0 THEN
0x1457…1465 LineComal80 {
0x1457…1465 ptr = 0xaa53 // 0x1457 @0x0
0x1457…1465 lno = 0x078a // 0x1459 @0x2
0x1457…1465 at0004 = ╱9b004a╱ IF ╱ // 0x145b @0x4
0x1457…1465 at0007 = ╱df╱ = ╱ // 0x145e @0x7
0x1457…1465 at0008 = ╱30╱0╱ // 0x145f @0x8
0x1457…1465 at0009 = ╱f20000╱ // 0x1460 @0x9
0x1457…1465 at000c = ╱b5╱ THEN ╱ // 0x1463 @0xc
0x1457…1465 at000d = EOL // 0x1464 @0xd
0x1457…1465 }
0x1465…1473 aa61 01940 LET OK := FALSE
0x1465…1473 LineComal80 {
0x1465…1473 ptr = 0xaa61 // 0x1465 @0x0
0x1465…1473 lno = 0x0794 // 0x1467 @0x2
0x1465…1473 at0004 = ╱86╱ LET ╱ // 0x1469 @0x4
0x1465…1473 at0005 = ╱4f╱O╱ // 0x146a @0x5
0x1465…1473 at0006 = ╱4b╱K╱ // 0x146b @0x6
0x1465…1473 at0007 = ╱f0╱ := ╱ // 0x146c @0x7
0x1465…1473 at0008 = ╱46╱F╱ // 0x146d @0x8
0x1465…1473 at0009 = ╱41╱A╱ // 0x146e @0x9
0x1465…1473 at000a = ╱4c╱L╱ // 0x146f @0xa
0x1465…1473 at000b = ╱53╱S╱ // 0x1470 @0xb
0x1465…1473 at000c = ╱45╱E╱ // 0x1471 @0xc
0x1465…1473 at000d = EOL // 0x1472 @0xd
0x1465…1473 }
0x1473…147a aa68 01950 ELSE
0x1473…147a LineComal80 {
0x1473…147a ptr = 0xaa68 // 0x1473 @0x0
0x1473…147a lno = 0x079e // 0x1475 @0x2
0x1473…147a at0004 = ╱9a00╱ ELSE ╱ // 0x1477 @0x4
0x1473…147a at0006 = EOL // 0x1479 @0x6
0x1473…147a }
0x147a…1491 aa7f 01960 LET RST $ := RST $ ( 1 : J )
0x147a…1491 LineComal80 {
0x147a…1491 ptr = 0xaa7f // 0x147a @0x0
0x147a…1491 lno = 0x07a8 // 0x147c @0x2
0x147a…1491 at0004 = ╱86╱ LET ╱ // 0x147e @0x4
0x147a…1491 at0005 = ╱52╱R╱ // 0x147f @0x5
0x147a…1491 at0006 = ╱53╱S╱ // 0x1480 @0x6
0x147a…1491 at0007 = ╱54╱T╱ // 0x1481 @0x7
0x147a…1491 at0008 = ╱ef╱ $ ╱ // 0x1482 @0x8
0x147a…1491 at0009 = ╱f0╱ := ╱ // 0x1483 @0x9
0x147a…1491 at000a = ╱52╱R╱ // 0x1484 @0xa
0x147a…1491 at000b = ╱53╱S╱ // 0x1485 @0xb
0x147a…1491 at000c = ╱54╱T╱ // 0x1486 @0xc
0x147a…1491 at000d = ╱ef╱ $ ╱ // 0x1487 @0xd
0x147a…1491 at000e = ╱ed╱ ( ╱ // 0x1488 @0xe
0x147a…1491 at000f = ╱31╱1╱ // 0x1489 @0xf
0x147a…1491 at0010 = ╱f20100╱ // 0x148a @0x10
0x147a…1491 at0013 = ╱f1╱ : ╱ // 0x148d @0x13
0x147a…1491 at0014 = ╱4a╱J╱ // 0x148e @0x14
0x147a…1491 at0015 = ╱ee╱ ) ╱ // 0x148f @0x15
0x147a…1491 at0016 = EOL // 0x1490 @0x16
0x147a…1491 }
0x1491…1497 aa85 01970 ENDIF
0x1491…1497 LineComal80 {
0x1491…1497 ptr = 0xaa85 // 0x1491 @0x0
0x1491…1497 lno = 0x07b2 // 0x1493 @0x2
0x1491…1497 at0004 = ╱9c╱ ENDIF ╱ // 0x1495 @0x4
0x1491…1497 at0005 = EOL // 0x1496 @0x5
0x1491…1497 }
0x1497…14a8 aa96 01980 ENDPROC TAL_CONTROL
0x1497…14a8 LineComal80 {
0x1497…14a8 ptr = 0xaa96 // 0x1497 @0x0
0x1497…14a8 lno = 0x07bc // 0x1499 @0x2
0x1497…14a8 at0004 = ╱9f╱ ENDPROC ╱ // 0x149b @0x4
0x1497…14a8 at0005 = ╱54╱T╱ // 0x149c @0x5
0x1497…14a8 at0006 = ╱41╱A╱ // 0x149d @0x6
0x1497…14a8 at0007 = ╱4c╱L╱ // 0x149e @0x7
0x1497…14a8 at0008 = ╱5f╱_╱ // 0x149f @0x8
0x1497…14a8 at0009 = ╱43╱C╱ // 0x14a0 @0x9
0x1497…14a8 at000a = ╱4f╱O╱ // 0x14a1 @0xa
0x1497…14a8 at000b = ╱4e╱N╱ // 0x14a2 @0xb
0x1497…14a8 at000c = ╱54╱T╱ // 0x14a3 @0xc
0x1497…14a8 at000d = ╱52╱R╱ // 0x14a4 @0xd
0x1497…14a8 at000e = ╱4f╱O╱ // 0x14a5 @0xe
0x1497…14a8 at000f = ╱4c╱L╱ // 0x14a6 @0xf
0x1497…14a8 at0010 = EOL // 0x14a7 @0x10
0x1497…14a8 }
0x14a8…14ad aa9b 01990
0x14a8…14ad LineComal80 {
0x14a8…14ad ptr = 0xaa9b // 0x14a8 @0x0
0x14a8…14ad lno = 0x07c6 // 0x14aa @0x2
0x14a8…14ad at0004 = EOL // 0x14ac @0x4
0x14a8…14ad }
0x14ad…14c7 aab5 02000 PROC FIND_KTO ( REF R_KTONR $ )
0x14ad…14c7 LineComal80 {
0x14ad…14c7 ptr = 0xaab5 // 0x14ad @0x0
0x14ad…14c7 lno = 0x07d0 // 0x14af @0x2
0x14ad…14c7 at0004 = ╱9e00╱ PROC ╱ // 0x14b1 @0x4
0x14ad…14c7 at0006 = ╱46╱F╱ // 0x14b3 @0x6
0x14ad…14c7 at0007 = ╱49╱I╱ // 0x14b4 @0x7
0x14ad…14c7 at0008 = ╱4e╱N╱ // 0x14b5 @0x8
0x14ad…14c7 at0009 = ╱44╱D╱ // 0x14b6 @0x9
0x14ad…14c7 at000a = ╱5f╱_╱ // 0x14b7 @0xa
0x14ad…14c7 at000b = ╱4b╱K╱ // 0x14b8 @0xb
0x14ad…14c7 at000c = ╱54╱T╱ // 0x14b9 @0xc
0x14ad…14c7 at000d = ╱4f╱O╱ // 0x14ba @0xd
0x14ad…14c7 at000e = ╱ed╱ ( ╱ // 0x14bb @0xe
0x14ad…14c7 at000f = ╱b6╱ REF ╱ // 0x14bc @0xf
0x14ad…14c7 at0010 = ╱52╱R╱ // 0x14bd @0x10
0x14ad…14c7 at0011 = ╱5f╱_╱ // 0x14be @0x11
0x14ad…14c7 at0012 = ╱4b╱K╱ // 0x14bf @0x12
0x14ad…14c7 at0013 = ╱54╱T╱ // 0x14c0 @0x13
0x14ad…14c7 at0014 = ╱4f╱O╱ // 0x14c1 @0x14
0x14ad…14c7 at0015 = ╱4e╱N╱ // 0x14c2 @0x15
0x14ad…14c7 at0016 = ╱52╱R╱ // 0x14c3 @0x16
0x14ad…14c7 at0017 = ╱ef╱ $ ╱ // 0x14c4 @0x17
0x14ad…14c7 at0018 = ╱ee╱ ) ╱ // 0x14c5 @0x18
0x14ad…14c7 at0019 = EOL // 0x14c6 @0x19
0x14ad…14c7 }
0x14c7…14d5 aac3 02010 LET OK := FALSE
0x14c7…14d5 LineComal80 {
0x14c7…14d5 ptr = 0xaac3 // 0x14c7 @0x0
0x14c7…14d5 lno = 0x07da // 0x14c9 @0x2
0x14c7…14d5 at0004 = ╱86╱ LET ╱ // 0x14cb @0x4
0x14c7…14d5 at0005 = ╱4f╱O╱ // 0x14cc @0x5
0x14c7…14d5 at0006 = ╱4b╱K╱ // 0x14cd @0x6
0x14c7…14d5 at0007 = ╱f0╱ := ╱ // 0x14ce @0x7
0x14c7…14d5 at0008 = ╱46╱F╱ // 0x14cf @0x8
0x14c7…14d5 at0009 = ╱41╱A╱ // 0x14d0 @0x9
0x14c7…14d5 at000a = ╱4c╱L╱ // 0x14d1 @0xa
0x14c7…14d5 at000b = ╱53╱S╱ // 0x14d2 @0xb
0x14c7…14d5 at000c = ╱45╱E╱ // 0x14d3 @0xc
0x14c7…14d5 at000d = EOL // 0x14d4 @0xd
0x14c7…14d5 }
0x14d5…14f9 aae7 02020 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x14d5…14f9 LineComal80 {
0x14d5…14f9 ptr = 0xaae7 // 0x14d5 @0x0
0x14d5…14f9 lno = 0x07e4 // 0x14d7 @0x2
0x14d5…14f9 at0004 = ╱a9╱ GET ╱ // 0x14d9 @0x4
0x14d5…14f9 at0005 = ╱4b╱K╱ // 0x14da @0x5
0x14d5…14f9 at0006 = ╱54╱T╱ // 0x14db @0x6
0x14d5…14f9 at0007 = ╱4f╱O╱ // 0x14dc @0x7
0x14d5…14f9 at0008 = ╱49╱I╱ // 0x14dd @0x8
0x14d5…14f9 at0009 = ╱44╱D╱ // 0x14de @0x9
0x14d5…14f9 at000a = ╱58╱X╱ // 0x14df @0xa
0x14d5…14f9 at000b = ╱ef╱ $ ╱ // 0x14e0 @0xb
0x14d5…14f9 at000c = ╱ec╱ , ╱ // 0x14e1 @0xc
0x14d5…14f9 at000d = ╱31╱1╱ // 0x14e2 @0xd
0x14d5…14f9 at000e = ╱f20100╱ // 0x14e3 @0xe
0x14d5…14f9 at0011 = ╱f1╱ : ╱ // 0x14e6 @0x11
0x14d5…14f9 at0012 = ╱49╱I╱ // 0x14e7 @0x12
0x14d5…14f9 at0013 = ╱5f╱_╱ // 0x14e8 @0x13
0x14d5…14f9 at0014 = ╱48╱H╱ // 0x14e9 @0x14
0x14d5…14f9 at0015 = ╱5c╱\╱ // 0x14ea @0x15
0x14d5…14f9 at0016 = ╱4a╱J╱ // 0x14eb @0x16
0x14d5…14f9 at0017 = ╱52╱R╱ // 0x14ec @0x17
0x14d5…14f9 at0018 = ╱45╱E╱ // 0x14ed @0x18
0x14d5…14f9 at0019 = ╱43╱C╱ // 0x14ee @0x19
0x14d5…14f9 at001a = ╱ec╱ , ╱ // 0x14ef @0x1a
0x14d5…14f9 at001b = ╱49╱I╱ // 0x14f0 @0x1b
0x14d5…14f9 at001c = ╱5f╱_╱ // 0x14f1 @0x1c
0x14d5…14f9 at001d = ╱4d╱M╱ // 0x14f2 @0x1d
0x14d5…14f9 at001e = ╱41╱A╱ // 0x14f3 @0x1e
0x14d5…14f9 at001f = ╱58╱X╱ // 0x14f4 @0x1f
0x14d5…14f9 at0020 = ╱52╱R╱ // 0x14f5 @0x20
0x14d5…14f9 at0021 = ╱45╱E╱ // 0x14f6 @0x21
0x14d5…14f9 at0022 = ╱43╱C╱ // 0x14f7 @0x22
0x14d5…14f9 at0023 = EOL // 0x14f8 @0x23
0x14d5…14f9 }
0x14f9…151e ab0c 02030 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
0x14f9…151e LineComal80 {
0x14f9…151e ptr = 0xab0c // 0x14f9 @0x0
0x14f9…151e lno = 0x07ee // 0x14fb @0x2
0x14f9…151e at0004 = ╱86╱ LET ╱ // 0x14fd @0x4
0x14f9…151e at0005 = ╱4c╱L╱ // 0x14fe @0x5
0x14f9…151e at0006 = ╱4f╱O╱ // 0x14ff @0x6
0x14f9…151e at0007 = ╱57╱W╱ // 0x1500 @0x7
0x14f9…151e at0008 = ╱f0╱ := ╱ // 0x1501 @0x8
0x14f9…151e at0009 = ╱31╱1╱ // 0x1502 @0x9
0x14f9…151e at000a = ╱f20100╱ // 0x1503 @0xa
0x14f9…151e at000d = ╱ea╱ ; ╱ // 0x1506 @0xd
0x14f9…151e at000e = ╱48╱H╱ // 0x1507 @0xe
0x14f9…151e at000f = ╱49╱I╱ // 0x1508 @0xf
0x14f9…151e at0010 = ╱47╱G╱ // 0x1509 @0x10
0x14f9…151e at0011 = ╱48╱H╱ // 0x150a @0x11
0x14f9…151e at0012 = ╱f0╱ := ╱ // 0x150b @0x12
0x14f9…151e at0013 = ╱49╱I╱ // 0x150c @0x13
0x14f9…151e at0014 = ╱5f╱_╱ // 0x150d @0x14
0x14f9…151e at0015 = ╱48╱H╱ // 0x150e @0x15
0x14f9…151e at0016 = ╱5c╱\╱ // 0x150f @0x16
0x14f9…151e at0017 = ╱4a╱J╱ // 0x1510 @0x17
0x14f9…151e at0018 = ╱52╱R╱ // 0x1511 @0x18
0x14f9…151e at0019 = ╱45╱E╱ // 0x1512 @0x19
0x14f9…151e at001a = ╱43╱C╱ // 0x1513 @0x1a
0x14f9…151e at001b = ╱ea╱ ; ╱ // 0x1514 @0x1b
0x14f9…151e at001c = ╱50╱P╱ // 0x1515 @0x1c
0x14f9…151e at001d = ╱4f╱O╱ // 0x1516 @0x1d
0x14f9…151e at001e = ╱53╱S╱ // 0x1517 @0x1e
0x14f9…151e at001f = ╱f0╱ := ╱ // 0x1518 @0x1f
0x14f9…151e at0020 = ╱32╱2╱ // 0x1519 @0x20
0x14f9…151e at0021 = ╱f20200╱ // 0x151a @0x21
0x14f9…151e at0024 = EOL // 0x151d @0x24
0x14f9…151e }
0x151e…152f ab1d 02040 IF IGH > 1 THEN
0x151e…152f LineComal80 {
0x151e…152f ptr = 0xab1d // 0x151e @0x0
0x151e…152f lno = 0x07f8 // 0x1520 @0x2
0x151e…152f at0004 = ╱9b0048╱ IF ╱ // 0x1522 @0x4
0x151e…152f at0007 = ╱49╱I╱ // 0x1525 @0x7
0x151e…152f at0008 = ╱47╱G╱ // 0x1526 @0x8
0x151e…152f at0009 = ╱48╱H╱ // 0x1527 @0x9
0x151e…152f at000a = ╱e1╱ > ╱ // 0x1528 @0xa
0x151e…152f at000b = ╱31╱1╱ // 0x1529 @0xb
0x151e…152f at000c = ╱f20100╱ // 0x152a @0xc
0x151e…152f at000f = ╱b5╱ THEN ╱ // 0x152d @0xf
0x151e…152f at0010 = EOL // 0x152e @0x10
0x151e…152f }
0x152f…1536 ab24 02050 REPEAT
0x152f…1536 LineComal80 {
0x152f…1536 ptr = 0xab24 // 0x152f @0x0
0x152f…1536 lno = 0x0802 // 0x1531 @0x2
0x152f…1536 at0004 = ╱9700╱ REPEAT ╱ // 0x1533 @0x4
0x152f…1536 at0006 = EOL // 0x1535 @0x6
0x152f…1536 }
0x1536…1562 ab50 02060 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x1536…1562 LineComal80 {
0x1536…1562 ptr = 0xab50 // 0x1536 @0x0
0x1536…1562 lno = 0x080c // 0x1538 @0x2
0x1536…1562 at0004 = ╱86╱ LET ╱ // 0x153a @0x4
0x1536…1562 at0005 = ╱50╱P╱ // 0x153b @0x5
0x1536…1562 at0006 = ╱4f╱O╱ // 0x153c @0x6
0x1536…1562 at0007 = ╱53╱S╱ // 0x153d @0x7
0x1536…1562 at0008 = ╱f0╱ := ╱ // 0x153e @0x8
0x1536…1562 at0009 = ╱c6╱ INT ╱ // 0x153f @0x9
0x1536…1562 at000a = ╱ed╱ ( ╱ // 0x1540 @0xa
0x1536…1562 at000b = ╱ed╱ ( ╱ // 0x1541 @0xb
0x1536…1562 at000c = ╱48╱H╱ // 0x1542 @0xc
0x1536…1562 at000d = ╱49╱I╱ // 0x1543 @0xd
0x1536…1562 at000e = ╱47╱G╱ // 0x1544 @0xe
0x1536…1562 at000f = ╱48╱H╱ // 0x1545 @0xf
0x1536…1562 at0010 = ╱e6╱ - ╱ // 0x1546 @0x10
0x1536…1562 at0011 = ╱4c╱L╱ // 0x1547 @0x11
0x1536…1562 at0012 = ╱4f╱O╱ // 0x1548 @0x12
0x1536…1562 at0013 = ╱57╱W╱ // 0x1549 @0x13
0x1536…1562 at0014 = ╱ee╱ ) ╱ // 0x154a @0x14
0x1536…1562 at0015 = ╱e8╱ / ╱ // 0x154b @0x15
0x1536…1562 at0016 = ╱32╱2╱ // 0x154c @0x16
0x1536…1562 at0017 = ╱f20200╱ // 0x154d @0x17
0x1536…1562 at001a = ╱e5╱ + ╱ // 0x1550 @0x1a
0x1536…1562 at001b = ╱2e╱.╱ // 0x1551 @0x1b
0x1536…1562 at001c = ╱35╱5╱ // 0x1552 @0x1c
0x1536…1562 at001d = ╱f88000000000000005╱ // 0x1553 @0x1d
0x1536…1562 at0026 = ╱ee╱ ) ╱ // 0x155c @0x26
0x1536…1562 at0027 = ╱e5╱ + ╱ // 0x155d @0x27
0x1536…1562 at0028 = ╱4c╱L╱ // 0x155e @0x28
0x1536…1562 at0029 = ╱4f╱O╱ // 0x155f @0x29
0x1536…1562 at002a = ╱57╱W╱ // 0x1560 @0x2a
0x1536…1562 at002b = EOL // 0x1561 @0x2b
0x1536…1562 }
0x1562…1580 ab6e 02070 GET KTOIDX $ , POS : KTONR $ , RECNR
0x1562…1580 LineComal80 {
0x1562…1580 ptr = 0xab6e // 0x1562 @0x0
0x1562…1580 lno = 0x0816 // 0x1564 @0x2
0x1562…1580 at0004 = ╱a9╱ GET ╱ // 0x1566 @0x4
0x1562…1580 at0005 = ╱4b╱K╱ // 0x1567 @0x5
0x1562…1580 at0006 = ╱54╱T╱ // 0x1568 @0x6
0x1562…1580 at0007 = ╱4f╱O╱ // 0x1569 @0x7
0x1562…1580 at0008 = ╱49╱I╱ // 0x156a @0x8
0x1562…1580 at0009 = ╱44╱D╱ // 0x156b @0x9
0x1562…1580 at000a = ╱58╱X╱ // 0x156c @0xa
0x1562…1580 at000b = ╱ef╱ $ ╱ // 0x156d @0xb
0x1562…1580 at000c = ╱ec╱ , ╱ // 0x156e @0xc
0x1562…1580 at000d = ╱50╱P╱ // 0x156f @0xd
0x1562…1580 at000e = ╱4f╱O╱ // 0x1570 @0xe
0x1562…1580 at000f = ╱53╱S╱ // 0x1571 @0xf
0x1562…1580 at0010 = ╱f1╱ : ╱ // 0x1572 @0x10
0x1562…1580 at0011 = ╱4b╱K╱ // 0x1573 @0x11
0x1562…1580 at0012 = ╱54╱T╱ // 0x1574 @0x12
0x1562…1580 at0013 = ╱4f╱O╱ // 0x1575 @0x13
0x1562…1580 at0014 = ╱4e╱N╱ // 0x1576 @0x14
0x1562…1580 at0015 = ╱52╱R╱ // 0x1577 @0x15
0x1562…1580 at0016 = ╱ef╱ $ ╱ // 0x1578 @0x16
0x1562…1580 at0017 = ╱ec╱ , ╱ // 0x1579 @0x17
0x1562…1580 at0018 = ╱52╱R╱ // 0x157a @0x18
0x1562…1580 at0019 = ╱45╱E╱ // 0x157b @0x19
0x1562…1580 at001a = ╱43╱C╱ // 0x157c @0x1a
0x1562…1580 at001b = ╱4e╱N╱ // 0x157d @0x1b
0x1562…1580 at001c = ╱52╱R╱ // 0x157e @0x1c
0x1562…1580 at001d = EOL // 0x157f @0x1d
0x1562…1580 }
0x1580…1597 ab85 02080 IF TONR $ > R_KTONR $ THEN
0x1580…1597 LineComal80 {
0x1580…1597 ptr = 0xab85 // 0x1580 @0x0
0x1580…1597 lno = 0x0820 // 0x1582 @0x2
0x1580…1597 at0004 = ╱9b004b╱ IF ╱ // 0x1584 @0x4
0x1580…1597 at0007 = ╱54╱T╱ // 0x1587 @0x7
0x1580…1597 at0008 = ╱4f╱O╱ // 0x1588 @0x8
0x1580…1597 at0009 = ╱4e╱N╱ // 0x1589 @0x9
0x1580…1597 at000a = ╱52╱R╱ // 0x158a @0xa
0x1580…1597 at000b = ╱ef╱ $ ╱ // 0x158b @0xb
0x1580…1597 at000c = ╱e1╱ > ╱ // 0x158c @0xc
0x1580…1597 at000d = ╱52╱R╱ // 0x158d @0xd
0x1580…1597 at000e = ╱5f╱_╱ // 0x158e @0xe
0x1580…1597 at000f = ╱4b╱K╱ // 0x158f @0xf
0x1580…1597 at0010 = ╱54╱T╱ // 0x1590 @0x10
0x1580…1597 at0011 = ╱4f╱O╱ // 0x1591 @0x11
0x1580…1597 at0012 = ╱4e╱N╱ // 0x1592 @0x12
0x1580…1597 at0013 = ╱52╱R╱ // 0x1593 @0x13
0x1580…1597 at0014 = ╱ef╱ $ ╱ // 0x1594 @0x14
0x1580…1597 at0015 = ╱b5╱ THEN ╱ // 0x1595 @0x15
0x1580…1597 at0016 = EOL // 0x1596 @0x16
0x1580…1597 }
0x1597…15a5 ab93 02090 LET HIGH := POS
0x1597…15a5 LineComal80 {
0x1597…15a5 ptr = 0xab93 // 0x1597 @0x0
0x1597…15a5 lno = 0x082a // 0x1599 @0x2
0x1597…15a5 at0004 = ╱86╱ LET ╱ // 0x159b @0x4
0x1597…15a5 at0005 = ╱48╱H╱ // 0x159c @0x5
0x1597…15a5 at0006 = ╱49╱I╱ // 0x159d @0x6
0x1597…15a5 at0007 = ╱47╱G╱ // 0x159e @0x7
0x1597…15a5 at0008 = ╱48╱H╱ // 0x159f @0x8
0x1597…15a5 at0009 = ╱f0╱ := ╱ // 0x15a0 @0x9
0x1597…15a5 at000a = ╱50╱P╱ // 0x15a1 @0xa
0x1597…15a5 at000b = ╱4f╱O╱ // 0x15a2 @0xb
0x1597…15a5 at000c = ╱53╱S╱ // 0x15a3 @0xc
0x1597…15a5 at000d = EOL // 0x15a4 @0xd
0x1597…15a5 }
0x15a5…15ac ab9a 02100 ELSE
0x15a5…15ac LineComal80 {
0x15a5…15ac ptr = 0xab9a // 0x15a5 @0x0
0x15a5…15ac lno = 0x0834 // 0x15a7 @0x2
0x15a5…15ac at0004 = ╱9a00╱ ELSE ╱ // 0x15a9 @0x4
0x15a5…15ac at0006 = EOL // 0x15ab @0x6
0x15a5…15ac }
0x15ac…15c3 abb1 02110 IF TONR $ < R_KTONR $ THEN
0x15ac…15c3 LineComal80 {
0x15ac…15c3 ptr = 0xabb1 // 0x15ac @0x0
0x15ac…15c3 lno = 0x083e // 0x15ae @0x2
0x15ac…15c3 at0004 = ╱9b004b╱ IF ╱ // 0x15b0 @0x4
0x15ac…15c3 at0007 = ╱54╱T╱ // 0x15b3 @0x7
0x15ac…15c3 at0008 = ╱4f╱O╱ // 0x15b4 @0x8
0x15ac…15c3 at0009 = ╱4e╱N╱ // 0x15b5 @0x9
0x15ac…15c3 at000a = ╱52╱R╱ // 0x15b6 @0xa
0x15ac…15c3 at000b = ╱ef╱ $ ╱ // 0x15b7 @0xb
0x15ac…15c3 at000c = ╱e0╱ < ╱ // 0x15b8 @0xc
0x15ac…15c3 at000d = ╱52╱R╱ // 0x15b9 @0xd
0x15ac…15c3 at000e = ╱5f╱_╱ // 0x15ba @0xe
0x15ac…15c3 at000f = ╱4b╱K╱ // 0x15bb @0xf
0x15ac…15c3 at0010 = ╱54╱T╱ // 0x15bc @0x10
0x15ac…15c3 at0011 = ╱4f╱O╱ // 0x15bd @0x11
0x15ac…15c3 at0012 = ╱4e╱N╱ // 0x15be @0x12
0x15ac…15c3 at0013 = ╱52╱R╱ // 0x15bf @0x13
0x15ac…15c3 at0014 = ╱ef╱ $ ╱ // 0x15c0 @0x14
0x15ac…15c3 at0015 = ╱b5╱ THEN ╱ // 0x15c1 @0x15
0x15ac…15c3 at0016 = EOL // 0x15c2 @0x16
0x15ac…15c3 }
0x15c3…15d0 abbe 02120 LET LOW := POS
0x15c3…15d0 LineComal80 {
0x15c3…15d0 ptr = 0xabbe // 0x15c3 @0x0
0x15c3…15d0 lno = 0x0848 // 0x15c5 @0x2
0x15c3…15d0 at0004 = ╱86╱ LET ╱ // 0x15c7 @0x4
0x15c3…15d0 at0005 = ╱4c╱L╱ // 0x15c8 @0x5
0x15c3…15d0 at0006 = ╱4f╱O╱ // 0x15c9 @0x6
0x15c3…15d0 at0007 = ╱57╱W╱ // 0x15ca @0x7
0x15c3…15d0 at0008 = ╱f0╱ := ╱ // 0x15cb @0x8
0x15c3…15d0 at0009 = ╱50╱P╱ // 0x15cc @0x9
0x15c3…15d0 at000a = ╱4f╱O╱ // 0x15cd @0xa
0x15c3…15d0 at000b = ╱53╱S╱ // 0x15ce @0xb
0x15c3…15d0 at000c = EOL // 0x15cf @0xc
0x15c3…15d0 }
0x15d0…15d6 abc4 02130 ENDIF
0x15d0…15d6 LineComal80 {
0x15d0…15d6 ptr = 0xabc4 // 0x15d0 @0x0
0x15d0…15d6 lno = 0x0852 // 0x15d2 @0x2
0x15d0…15d6 at0004 = ╱9c╱ ENDIF ╱ // 0x15d4 @0x4
0x15d0…15d6 at0005 = EOL // 0x15d5 @0x5
0x15d0…15d6 }
0x15d6…15dc abca 02140 ENDIF
0x15d6…15dc LineComal80 {
0x15d6…15dc ptr = 0xabca // 0x15d6 @0x0
0x15d6…15dc lno = 0x085c // 0x15d8 @0x2
0x15d6…15dc at0004 = ╱9c╱ ENDIF ╱ // 0x15da @0x4
0x15d6…15dc at0005 = EOL // 0x15db @0x5
0x15d6…15dc }
0x15dc…15ff abed 02150 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
0x15dc…15ff LineComal80 {
0x15dc…15ff ptr = 0xabed // 0x15dc @0x0
0x15dc…15ff lno = 0x0866 // 0x15de @0x2
0x15dc…15ff at0004 = ╱98╱ UNTIL ╱ // 0x15e0 @0x4
0x15dc…15ff at0005 = ╱48╱H╱ // 0x15e1 @0x5
0x15dc…15ff at0006 = ╱49╱I╱ // 0x15e2 @0x6
0x15dc…15ff at0007 = ╱47╱G╱ // 0x15e3 @0x7
0x15dc…15ff at0008 = ╱48╱H╱ // 0x15e4 @0x8
0x15dc…15ff at0009 = ╱e6╱ - ╱ // 0x15e5 @0x9
0x15dc…15ff at000a = ╱4c╱L╱ // 0x15e6 @0xa
0x15dc…15ff at000b = ╱4f╱O╱ // 0x15e7 @0xb
0x15dc…15ff at000c = ╱57╱W╱ // 0x15e8 @0xc
0x15dc…15ff at000d = ╱e2╱ =< ╱ // 0x15e9 @0xd
0x15dc…15ff at000e = ╱31╱1╱ // 0x15ea @0xe
0x15dc…15ff at000f = ╱f20100╱ // 0x15eb @0xf
0x15dc…15ff at0012 = ╱d8╱ OR ╱ // 0x15ee @0x12
0x15dc…15ff at0013 = ╱52╱R╱ // 0x15ef @0x13
0x15dc…15ff at0014 = ╱5f╱_╱ // 0x15f0 @0x14
0x15dc…15ff at0015 = ╱4b╱K╱ // 0x15f1 @0x15
0x15dc…15ff at0016 = ╱54╱T╱ // 0x15f2 @0x16
0x15dc…15ff at0017 = ╱4f╱O╱ // 0x15f3 @0x17
0x15dc…15ff at0018 = ╱4e╱N╱ // 0x15f4 @0x18
0x15dc…15ff at0019 = ╱52╱R╱ // 0x15f5 @0x19
0x15dc…15ff at001a = ╱ef╱ $ ╱ // 0x15f6 @0x1a
0x15dc…15ff at001b = ╱df╱ = ╱ // 0x15f7 @0x1b
0x15dc…15ff at001c = ╱4b╱K╱ // 0x15f8 @0x1c
0x15dc…15ff at001d = ╱54╱T╱ // 0x15f9 @0x1d
0x15dc…15ff at001e = ╱4f╱O╱ // 0x15fa @0x1e
0x15dc…15ff at001f = ╱4e╱N╱ // 0x15fb @0x1f
0x15dc…15ff at0020 = ╱52╱R╱ // 0x15fc @0x20
0x15dc…15ff at0021 = ╱ef╱ $ ╱ // 0x15fd @0x21
0x15dc…15ff at0022 = EOL // 0x15fe @0x22
0x15dc…15ff }
0x15ff…162b ac19 02160 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x15ff…162b LineComal80 {
0x15ff…162b ptr = 0xac19 // 0x15ff @0x0
0x15ff…162b lno = 0x0870 // 0x1601 @0x2
0x15ff…162b at0004 = ╱86╱ LET ╱ // 0x1603 @0x4
0x15ff…162b at0005 = ╱50╱P╱ // 0x1604 @0x5
0x15ff…162b at0006 = ╱4f╱O╱ // 0x1605 @0x6
0x15ff…162b at0007 = ╱53╱S╱ // 0x1606 @0x7
0x15ff…162b at0008 = ╱f0╱ := ╱ // 0x1607 @0x8
0x15ff…162b at0009 = ╱c6╱ INT ╱ // 0x1608 @0x9
0x15ff…162b at000a = ╱ed╱ ( ╱ // 0x1609 @0xa
0x15ff…162b at000b = ╱ed╱ ( ╱ // 0x160a @0xb
0x15ff…162b at000c = ╱48╱H╱ // 0x160b @0xc
0x15ff…162b at000d = ╱49╱I╱ // 0x160c @0xd
0x15ff…162b at000e = ╱47╱G╱ // 0x160d @0xe
0x15ff…162b at000f = ╱48╱H╱ // 0x160e @0xf
0x15ff…162b at0010 = ╱e6╱ - ╱ // 0x160f @0x10
0x15ff…162b at0011 = ╱4c╱L╱ // 0x1610 @0x11
0x15ff…162b at0012 = ╱4f╱O╱ // 0x1611 @0x12
0x15ff…162b at0013 = ╱57╱W╱ // 0x1612 @0x13
0x15ff…162b at0014 = ╱ee╱ ) ╱ // 0x1613 @0x14
0x15ff…162b at0015 = ╱e8╱ / ╱ // 0x1614 @0x15
0x15ff…162b at0016 = ╱32╱2╱ // 0x1615 @0x16
0x15ff…162b at0017 = ╱f20200╱ // 0x1616 @0x17
0x15ff…162b at001a = ╱e5╱ + ╱ // 0x1619 @0x1a
0x15ff…162b at001b = ╱2e╱.╱ // 0x161a @0x1b
0x15ff…162b at001c = ╱35╱5╱ // 0x161b @0x1c
0x15ff…162b at001d = ╱f88000000000000005╱ // 0x161c @0x1d
0x15ff…162b at0026 = ╱ee╱ ) ╱ // 0x1625 @0x26
0x15ff…162b at0027 = ╱e5╱ + ╱ // 0x1626 @0x27
0x15ff…162b at0028 = ╱4c╱L╱ // 0x1627 @0x28
0x15ff…162b at0029 = ╱4f╱O╱ // 0x1628 @0x29
0x15ff…162b at002a = ╱57╱W╱ // 0x1629 @0x2a
0x15ff…162b at002b = EOL // 0x162a @0x2b
0x15ff…162b }
0x162b…1649 ac37 02170 GET KTOIDX $ , POS : KTONR $ , RECNR
0x162b…1649 LineComal80 {
0x162b…1649 ptr = 0xac37 // 0x162b @0x0
0x162b…1649 lno = 0x087a // 0x162d @0x2
0x162b…1649 at0004 = ╱a9╱ GET ╱ // 0x162f @0x4
0x162b…1649 at0005 = ╱4b╱K╱ // 0x1630 @0x5
0x162b…1649 at0006 = ╱54╱T╱ // 0x1631 @0x6
0x162b…1649 at0007 = ╱4f╱O╱ // 0x1632 @0x7
0x162b…1649 at0008 = ╱49╱I╱ // 0x1633 @0x8
0x162b…1649 at0009 = ╱44╱D╱ // 0x1634 @0x9
0x162b…1649 at000a = ╱58╱X╱ // 0x1635 @0xa
0x162b…1649 at000b = ╱ef╱ $ ╱ // 0x1636 @0xb
0x162b…1649 at000c = ╱ec╱ , ╱ // 0x1637 @0xc
0x162b…1649 at000d = ╱50╱P╱ // 0x1638 @0xd
0x162b…1649 at000e = ╱4f╱O╱ // 0x1639 @0xe
0x162b…1649 at000f = ╱53╱S╱ // 0x163a @0xf
0x162b…1649 at0010 = ╱f1╱ : ╱ // 0x163b @0x10
0x162b…1649 at0011 = ╱4b╱K╱ // 0x163c @0x11
0x162b…1649 at0012 = ╱54╱T╱ // 0x163d @0x12
0x162b…1649 at0013 = ╱4f╱O╱ // 0x163e @0x13
0x162b…1649 at0014 = ╱4e╱N╱ // 0x163f @0x14
0x162b…1649 at0015 = ╱52╱R╱ // 0x1640 @0x15
0x162b…1649 at0016 = ╱ef╱ $ ╱ // 0x1641 @0x16
0x162b…1649 at0017 = ╱ec╱ , ╱ // 0x1642 @0x17
0x162b…1649 at0018 = ╱52╱R╱ // 0x1643 @0x18
0x162b…1649 at0019 = ╱45╱E╱ // 0x1644 @0x19
0x162b…1649 at001a = ╱43╱C╱ // 0x1645 @0x1a
0x162b…1649 at001b = ╱4e╱N╱ // 0x1646 @0x1b
0x162b…1649 at001c = ╱52╱R╱ // 0x1647 @0x1c
0x162b…1649 at001d = EOL // 0x1648 @0x1d
0x162b…1649 }
0x1649…1668 ac56 02180 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
0x1649…1668 LineComal80 {
0x1649…1668 ptr = 0xac56 // 0x1649 @0x0
0x1649…1668 lno = 0x0884 // 0x164b @0x2
0x1649…1668 at0004 = ╱8200╱ IF ╱ // 0x164d @0x4
0x1649…1668 at0006 = ╱4b╱K╱ // 0x164f @0x6
0x1649…1668 at0007 = ╱54╱T╱ // 0x1650 @0x7
0x1649…1668 at0008 = ╱4f╱O╱ // 0x1651 @0x8
0x1649…1668 at0009 = ╱4e╱N╱ // 0x1652 @0x9
0x1649…1668 at000a = ╱52╱R╱ // 0x1653 @0xa
0x1649…1668 at000b = ╱ef╱ $ ╱ // 0x1654 @0xb
0x1649…1668 at000c = ╱df╱ = ╱ // 0x1655 @0xc
0x1649…1668 at000d = ╱52╱R╱ // 0x1656 @0xd
0x1649…1668 at000e = ╱5f╱_╱ // 0x1657 @0xe
0x1649…1668 at000f = ╱4b╱K╱ // 0x1658 @0xf
0x1649…1668 at0010 = ╱54╱T╱ // 0x1659 @0x10
0x1649…1668 at0011 = ╱4f╱O╱ // 0x165a @0x11
0x1649…1668 at0012 = ╱4e╱N╱ // 0x165b @0x12
0x1649…1668 at0013 = ╱52╱R╱ // 0x165c @0x13
0x1649…1668 at0014 = ╱ef╱ $ ╱ // 0x165d @0x14
0x1649…1668 at0015 = ╱b5╱ THEN ╱ // 0x165e @0x15
0x1649…1668 at0016 = ╱86╱ LET ╱ // 0x165f @0x16
0x1649…1668 at0017 = ╱4f╱O╱ // 0x1660 @0x17
0x1649…1668 at0018 = ╱4b╱K╱ // 0x1661 @0x18
0x1649…1668 at0019 = ╱f0╱ := ╱ // 0x1662 @0x19
0x1649…1668 at001a = ╱54╱T╱ // 0x1663 @0x1a
0x1649…1668 at001b = ╱52╱R╱ // 0x1664 @0x1b
0x1649…1668 at001c = ╱55╱U╱ // 0x1665 @0x1c
0x1649…1668 at001d = ╱45╱E╱ // 0x1666 @0x1d
0x1649…1668 at001e = EOL // 0x1667 @0x1e
0x1649…1668 }
0x1668…166e ac5c 02190 ENDIF
0x1668…166e LineComal80 {
0x1668…166e ptr = 0xac5c // 0x1668 @0x0
0x1668…166e lno = 0x088e // 0x166a @0x2
0x1668…166e at0004 = ╱9c╱ ENDIF ╱ // 0x166c @0x4
0x1668…166e at0005 = EOL // 0x166d @0x5
0x1668…166e }
0x166e…1680 ac6e 02200 LET FIND_KTO := POS
0x166e…1680 LineComal80 {
0x166e…1680 ptr = 0xac6e // 0x166e @0x0
0x166e…1680 lno = 0x0898 // 0x1670 @0x2
0x166e…1680 at0004 = ╱86╱ LET ╱ // 0x1672 @0x4
0x166e…1680 at0005 = ╱46╱F╱ // 0x1673 @0x5
0x166e…1680 at0006 = ╱49╱I╱ // 0x1674 @0x6
0x166e…1680 at0007 = ╱4e╱N╱ // 0x1675 @0x7
0x166e…1680 at0008 = ╱44╱D╱ // 0x1676 @0x8
0x166e…1680 at0009 = ╱5f╱_╱ // 0x1677 @0x9
0x166e…1680 at000a = ╱4b╱K╱ // 0x1678 @0xa
0x166e…1680 at000b = ╱54╱T╱ // 0x1679 @0xb
0x166e…1680 at000c = ╱4f╱O╱ // 0x167a @0xc
0x166e…1680 at000d = ╱f0╱ := ╱ // 0x167b @0xd
0x166e…1680 at000e = ╱50╱P╱ // 0x167c @0xe
0x166e…1680 at000f = ╱4f╱O╱ // 0x167d @0xf
0x166e…1680 at0010 = ╱53╱S╱ // 0x167e @0x10
0x166e…1680 at0011 = EOL // 0x167f @0x11
0x166e…1680 }
0x1680…168e ac7c 02210 ENDPROC FIND_KTO
0x1680…168e LineComal80 {
0x1680…168e ptr = 0xac7c // 0x1680 @0x0
0x1680…168e lno = 0x08a2 // 0x1682 @0x2
0x1680…168e at0004 = ╱9f╱ ENDPROC ╱ // 0x1684 @0x4
0x1680…168e at0005 = ╱46╱F╱ // 0x1685 @0x5
0x1680…168e at0006 = ╱49╱I╱ // 0x1686 @0x6
0x1680…168e at0007 = ╱4e╱N╱ // 0x1687 @0x7
0x1680…168e at0008 = ╱44╱D╱ // 0x1688 @0x8
0x1680…168e at0009 = ╱5f╱_╱ // 0x1689 @0x9
0x1680…168e at000a = ╱4b╱K╱ // 0x168a @0xa
0x1680…168e at000b = ╱54╱T╱ // 0x168b @0xb
0x1680…168e at000c = ╱4f╱O╱ // 0x168c @0xc
0x1680…168e at000d = EOL // 0x168d @0xd
0x1680…168e }
0x168e…1693 ac81 02220
0x168e…1693 LineComal80 {
0x168e…1693 ptr = 0xac81 // 0x168e @0x0
0x168e…1693 lno = 0x08ac // 0x1690 @0x2
0x168e…1693 at0004 = EOL // 0x1692 @0x4
0x168e…1693 }
0x1693…16a7 ac95 02230 PROC FUNKTIONSMENU
0x1693…16a7 LineComal80 {
0x1693…16a7 ptr = 0xac95 // 0x1693 @0x0
0x1693…16a7 lno = 0x08b6 // 0x1695 @0x2
0x1693…16a7 at0004 = ╱9e00╱ PROC ╱ // 0x1697 @0x4
0x1693…16a7 at0006 = ╱46╱F╱ // 0x1699 @0x6
0x1693…16a7 at0007 = ╱55╱U╱ // 0x169a @0x7
0x1693…16a7 at0008 = ╱4e╱N╱ // 0x169b @0x8
0x1693…16a7 at0009 = ╱4b╱K╱ // 0x169c @0x9
0x1693…16a7 at000a = ╱54╱T╱ // 0x169d @0xa
0x1693…16a7 at000b = ╱49╱I╱ // 0x169e @0xb
0x1693…16a7 at000c = ╱4f╱O╱ // 0x169f @0xc
0x1693…16a7 at000d = ╱4e╱N╱ // 0x16a0 @0xd
0x1693…16a7 at000e = ╱53╱S╱ // 0x16a1 @0xe
0x1693…16a7 at000f = ╱4d╱M╱ // 0x16a2 @0xf
0x1693…16a7 at0010 = ╱45╱E╱ // 0x16a3 @0x10
0x1693…16a7 at0011 = ╱4e╱N╱ // 0x16a4 @0x11
0x1693…16a7 at0012 = ╱55╱U╱ // 0x16a5 @0x12
0x1693…16a7 at0013 = EOL // 0x16a6 @0x13
0x1693…16a7 }
0x16a7…16ba aca8 02240 IF ER_NR = 0 THEN
0x16a7…16ba LineComal80 {
0x16a7…16ba ptr = 0xaca8 // 0x16a7 @0x0
0x16a7…16ba lno = 0x08c0 // 0x16a9 @0x2
0x16a7…16ba at0004 = ╱9b0050╱ IF ╱ // 0x16ab @0x4
0x16a7…16ba at0007 = ╱45╱E╱ // 0x16ae @0x7
0x16a7…16ba at0008 = ╱52╱R╱ // 0x16af @0x8
0x16a7…16ba at0009 = ╱5f╱_╱ // 0x16b0 @0x9
0x16a7…16ba at000a = ╱4e╱N╱ // 0x16b1 @0xa
0x16a7…16ba at000b = ╱52╱R╱ // 0x16b2 @0xb
0x16a7…16ba at000c = ╱df╱ = ╱ // 0x16b3 @0xc
0x16a7…16ba at000d = ╱30╱0╱ // 0x16b4 @0xd
0x16a7…16ba at000e = ╱f20000╱ // 0x16b5 @0xe
0x16a7…16ba at0011 = ╱b5╱ THEN ╱ // 0x16b8 @0x11
0x16a7…16ba at0012 = EOL // 0x16b9 @0x12
0x16a7…16ba }
0x16ba…16f8 ace6 02250 EXEC OVERSKRIFT ( "Fremf|ring…af…balancetal…i…ny…regning" , 6 )
0x16ba…16f8 LineComal80 {
0x16ba…16f8 ptr = 0xace6 // 0x16ba @0x0
0x16ba…16f8 lno = 0x08ca // 0x16bc @0x2
0x16ba…16f8 at0004 = ╱9d╱ EXEC ╱ // 0x16be @0x4
0x16ba…16f8 at0005 = ╱4f╱O╱ // 0x16bf @0x5
0x16ba…16f8 at0006 = ╱56╱V╱ // 0x16c0 @0x6
0x16ba…16f8 at0007 = ╱45╱E╱ // 0x16c1 @0x7
0x16ba…16f8 at0008 = ╱52╱R╱ // 0x16c2 @0x8
0x16ba…16f8 at0009 = ╱53╱S╱ // 0x16c3 @0x9
0x16ba…16f8 at000a = ╱4b╱K╱ // 0x16c4 @0xa
0x16ba…16f8 at000b = ╱52╱R╱ // 0x16c5 @0xb
0x16ba…16f8 at000c = ╱49╱I╱ // 0x16c6 @0xc
0x16ba…16f8 at000d = ╱46╱F╱ // 0x16c7 @0xd
0x16ba…16f8 at000e = ╱54╱T╱ // 0x16c8 @0xe
0x16ba…16f8 at000f = ╱ed╱ ( ╱ // 0x16c9 @0xf
0x16ba…16f8 at0010 = ╱22╱"╱ // 0x16ca @0x10
0x16ba…16f8 at0011 = ╱46╱F╱ // 0x16cb @0x11
0x16ba…16f8 at0012 = ╱72╱r╱ // 0x16cc @0x12
0x16ba…16f8 at0013 = ╱65╱e╱ // 0x16cd @0x13
0x16ba…16f8 at0014 = ╱6d╱m╱ // 0x16ce @0x14
0x16ba…16f8 at0015 = ╱66╱f╱ // 0x16cf @0x15
0x16ba…16f8 at0016 = ╱7c╱|╱ // 0x16d0 @0x16
0x16ba…16f8 at0017 = ╱72╱r╱ // 0x16d1 @0x17
0x16ba…16f8 at0018 = ╱69╱i╱ // 0x16d2 @0x18
0x16ba…16f8 at0019 = ╱6e╱n╱ // 0x16d3 @0x19
0x16ba…16f8 at001a = ╱67╱g╱ // 0x16d4 @0x1a
0x16ba…16f8 at001b = ╱20╱…╱ // 0x16d5 @0x1b
0x16ba…16f8 at001c = ╱61╱a╱ // 0x16d6 @0x1c
0x16ba…16f8 at001d = ╱66╱f╱ // 0x16d7 @0x1d
0x16ba…16f8 at001e = ╱20╱…╱ // 0x16d8 @0x1e
0x16ba…16f8 at001f = ╱62╱b╱ // 0x16d9 @0x1f
0x16ba…16f8 at0020 = ╱61╱a╱ // 0x16da @0x20
0x16ba…16f8 at0021 = ╱6c╱l╱ // 0x16db @0x21
0x16ba…16f8 at0022 = ╱61╱a╱ // 0x16dc @0x22
0x16ba…16f8 at0023 = ╱6e╱n╱ // 0x16dd @0x23
0x16ba…16f8 at0024 = ╱63╱c╱ // 0x16de @0x24
0x16ba…16f8 at0025 = ╱65╱e╱ // 0x16df @0x25
0x16ba…16f8 at0026 = ╱74╱t╱ // 0x16e0 @0x26
0x16ba…16f8 at0027 = ╱61╱a╱ // 0x16e1 @0x27
0x16ba…16f8 at0028 = ╱6c╱l╱ // 0x16e2 @0x28
0x16ba…16f8 at0029 = ╱20╱…╱ // 0x16e3 @0x29
0x16ba…16f8 at002a = ╱69╱i╱ // 0x16e4 @0x2a
0x16ba…16f8 at002b = ╱20╱…╱ // 0x16e5 @0x2b
0x16ba…16f8 at002c = ╱6e╱n╱ // 0x16e6 @0x2c
0x16ba…16f8 at002d = ╱79╱y╱ // 0x16e7 @0x2d
0x16ba…16f8 at002e = ╱20╱…╱ // 0x16e8 @0x2e
0x16ba…16f8 at002f = ╱72╱r╱ // 0x16e9 @0x2f
0x16ba…16f8 at0030 = ╱65╱e╱ // 0x16ea @0x30
0x16ba…16f8 at0031 = ╱67╱g╱ // 0x16eb @0x31
0x16ba…16f8 at0032 = ╱6e╱n╱ // 0x16ec @0x32
0x16ba…16f8 at0033 = ╱69╱i╱ // 0x16ed @0x33
0x16ba…16f8 at0034 = ╱6e╱n╱ // 0x16ee @0x34
0x16ba…16f8 at0035 = ╱67╱g╱ // 0x16ef @0x35
0x16ba…16f8 at0036 = ╱22╱"╱ // 0x16f0 @0x36
0x16ba…16f8 at0037 = ╱ec╱ , ╱ // 0x16f1 @0x37
0x16ba…16f8 at0038 = ╱36╱6╱ // 0x16f2 @0x38
0x16ba…16f8 at0039 = ╱f20600╱ // 0x16f3 @0x39
0x16ba…16f8 at003c = ╱ee╱ ) ╱ // 0x16f6 @0x3c
0x16ba…16f8 at003d = EOL // 0x16f7 @0x3d
0x16ba…16f8 }
0x16f8…1727 ad15 02260 PRINT "<C1809>Har…du…f}et…udskrevet…kontokort…"
0x16f8…1727 LineComal80 {
0x16f8…1727 ptr = 0xad15 // 0x16f8 @0x0
0x16f8…1727 lno = 0x08d4 // 0x16fa @0x2
0x16f8…1727 at0004 = ╱92╱ PRINT ╱ // 0x16fc @0x4
0x16f8…1727 at0005 = ╱22╱"╱ // 0x16fd @0x5
0x16f8…1727 at0006 = ╱3c╱<╱ // 0x16fe @0x6
0x16f8…1727 at0007 = ╱43╱C╱ // 0x16ff @0x7
0x16f8…1727 at0008 = ╱31╱1╱ // 0x1700 @0x8
0x16f8…1727 at0009 = ╱38╱8╱ // 0x1701 @0x9
0x16f8…1727 at000a = ╱30╱0╱ // 0x1702 @0xa
0x16f8…1727 at000b = ╱39╱9╱ // 0x1703 @0xb
0x16f8…1727 at000c = ╱3e╱>╱ // 0x1704 @0xc
0x16f8…1727 at000d = ╱48╱H╱ // 0x1705 @0xd
0x16f8…1727 at000e = ╱61╱a╱ // 0x1706 @0xe
0x16f8…1727 at000f = ╱72╱r╱ // 0x1707 @0xf
0x16f8…1727 at0010 = ╱20╱…╱ // 0x1708 @0x10
0x16f8…1727 at0011 = ╱64╱d╱ // 0x1709 @0x11
0x16f8…1727 at0012 = ╱75╱u╱ // 0x170a @0x12
0x16f8…1727 at0013 = ╱20╱…╱ // 0x170b @0x13
0x16f8…1727 at0014 = ╱66╱f╱ // 0x170c @0x14
0x16f8…1727 at0015 = ╱7d╱}╱ // 0x170d @0x15
0x16f8…1727 at0016 = ╱65╱e╱ // 0x170e @0x16
0x16f8…1727 at0017 = ╱74╱t╱ // 0x170f @0x17
0x16f8…1727 at0018 = ╱20╱…╱ // 0x1710 @0x18
0x16f8…1727 at0019 = ╱75╱u╱ // 0x1711 @0x19
0x16f8…1727 at001a = ╱64╱d╱ // 0x1712 @0x1a
0x16f8…1727 at001b = ╱73╱s╱ // 0x1713 @0x1b
0x16f8…1727 at001c = ╱6b╱k╱ // 0x1714 @0x1c
0x16f8…1727 at001d = ╱72╱r╱ // 0x1715 @0x1d
0x16f8…1727 at001e = ╱65╱e╱ // 0x1716 @0x1e
0x16f8…1727 at001f = ╱76╱v╱ // 0x1717 @0x1f
0x16f8…1727 at0020 = ╱65╱e╱ // 0x1718 @0x20
0x16f8…1727 at0021 = ╱74╱t╱ // 0x1719 @0x21
0x16f8…1727 at0022 = ╱20╱…╱ // 0x171a @0x22
0x16f8…1727 at0023 = ╱6b╱k╱ // 0x171b @0x23
0x16f8…1727 at0024 = ╱6f╱o╱ // 0x171c @0x24
0x16f8…1727 at0025 = ╱6e╱n╱ // 0x171d @0x25
0x16f8…1727 at0026 = ╱74╱t╱ // 0x171e @0x26
0x16f8…1727 at0027 = ╱6f╱o╱ // 0x171f @0x27
0x16f8…1727 at0028 = ╱6b╱k╱ // 0x1720 @0x28
0x16f8…1727 at0029 = ╱6f╱o╱ // 0x1721 @0x29
0x16f8…1727 at002a = ╱72╱r╱ // 0x1722 @0x2a
0x16f8…1727 at002b = ╱74╱t╱ // 0x1723 @0x2b
0x16f8…1727 at002c = ╱20╱…╱ // 0x1724 @0x2c
0x16f8…1727 at002d = ╱22╱"╱ // 0x1725 @0x2d
0x16f8…1727 at002e = EOL // 0x1726 @0x2e
0x16f8…1727 }
0x1727…1768 ad56 02270 PRINT "<C1810>Er…datoen…=…den…f|rste…dato…i…det…nye…regnskabs}r…"
0x1727…1768 LineComal80 {
0x1727…1768 ptr = 0xad56 // 0x1727 @0x0
0x1727…1768 lno = 0x08de // 0x1729 @0x2
0x1727…1768 at0004 = ╱92╱ PRINT ╱ // 0x172b @0x4
0x1727…1768 at0005 = ╱22╱"╱ // 0x172c @0x5
0x1727…1768 at0006 = ╱3c╱<╱ // 0x172d @0x6
0x1727…1768 at0007 = ╱43╱C╱ // 0x172e @0x7
0x1727…1768 at0008 = ╱31╱1╱ // 0x172f @0x8
0x1727…1768 at0009 = ╱38╱8╱ // 0x1730 @0x9
0x1727…1768 at000a = ╱31╱1╱ // 0x1731 @0xa
0x1727…1768 at000b = ╱30╱0╱ // 0x1732 @0xb
0x1727…1768 at000c = ╱3e╱>╱ // 0x1733 @0xc
0x1727…1768 at000d = ╱45╱E╱ // 0x1734 @0xd
0x1727…1768 at000e = ╱72╱r╱ // 0x1735 @0xe
0x1727…1768 at000f = ╱20╱…╱ // 0x1736 @0xf
0x1727…1768 at0010 = ╱64╱d╱ // 0x1737 @0x10
0x1727…1768 at0011 = ╱61╱a╱ // 0x1738 @0x11
0x1727…1768 at0012 = ╱74╱t╱ // 0x1739 @0x12
0x1727…1768 at0013 = ╱6f╱o╱ // 0x173a @0x13
0x1727…1768 at0014 = ╱65╱e╱ // 0x173b @0x14
0x1727…1768 at0015 = ╱6e╱n╱ // 0x173c @0x15
0x1727…1768 at0016 = ╱20╱…╱ // 0x173d @0x16
0x1727…1768 at0017 = ╱3d╱=╱ // 0x173e @0x17
0x1727…1768 at0018 = ╱20╱…╱ // 0x173f @0x18
0x1727…1768 at0019 = ╱64╱d╱ // 0x1740 @0x19
0x1727…1768 at001a = ╱65╱e╱ // 0x1741 @0x1a
0x1727…1768 at001b = ╱6e╱n╱ // 0x1742 @0x1b
0x1727…1768 at001c = ╱20╱…╱ // 0x1743 @0x1c
0x1727…1768 at001d = ╱66╱f╱ // 0x1744 @0x1d
0x1727…1768 at001e = ╱7c╱|╱ // 0x1745 @0x1e
0x1727…1768 at001f = ╱72╱r╱ // 0x1746 @0x1f
0x1727…1768 at0020 = ╱73╱s╱ // 0x1747 @0x20
0x1727…1768 at0021 = ╱74╱t╱ // 0x1748 @0x21
0x1727…1768 at0022 = ╱65╱e╱ // 0x1749 @0x22
0x1727…1768 at0023 = ╱20╱…╱ // 0x174a @0x23
0x1727…1768 at0024 = ╱64╱d╱ // 0x174b @0x24
0x1727…1768 at0025 = ╱61╱a╱ // 0x174c @0x25
0x1727…1768 at0026 = ╱74╱t╱ // 0x174d @0x26
0x1727…1768 at0027 = ╱6f╱o╱ // 0x174e @0x27
0x1727…1768 at0028 = ╱20╱…╱ // 0x174f @0x28
0x1727…1768 at0029 = ╱69╱i╱ // 0x1750 @0x29
0x1727…1768 at002a = ╱20╱…╱ // 0x1751 @0x2a
0x1727…1768 at002b = ╱64╱d╱ // 0x1752 @0x2b
0x1727…1768 at002c = ╱65╱e╱ // 0x1753 @0x2c
0x1727…1768 at002d = ╱74╱t╱ // 0x1754 @0x2d
0x1727…1768 at002e = ╱20╱…╱ // 0x1755 @0x2e
0x1727…1768 at002f = ╱6e╱n╱ // 0x1756 @0x2f
0x1727…1768 at0030 = ╱79╱y╱ // 0x1757 @0x30
0x1727…1768 at0031 = ╱65╱e╱ // 0x1758 @0x31
0x1727…1768 at0032 = ╱20╱…╱ // 0x1759 @0x32
0x1727…1768 at0033 = ╱72╱r╱ // 0x175a @0x33
0x1727…1768 at0034 = ╱65╱e╱ // 0x175b @0x34
0x1727…1768 at0035 = ╱67╱g╱ // 0x175c @0x35
0x1727…1768 at0036 = ╱6e╱n╱ // 0x175d @0x36
0x1727…1768 at0037 = ╱73╱s╱ // 0x175e @0x37
0x1727…1768 at0038 = ╱6b╱k╱ // 0x175f @0x38
0x1727…1768 at0039 = ╱61╱a╱ // 0x1760 @0x39
0x1727…1768 at003a = ╱62╱b╱ // 0x1761 @0x3a
0x1727…1768 at003b = ╱73╱s╱ // 0x1762 @0x3b
0x1727…1768 at003c = ╱7d╱}╱ // 0x1763 @0x3c
0x1727…1768 at003d = ╱72╱r╱ // 0x1764 @0x3d
0x1727…1768 at003e = ╱20╱…╱ // 0x1765 @0x3e
0x1727…1768 at003f = ╱22╱"╱ // 0x1766 @0x3f
0x1727…1768 at0040 = EOL // 0x1767 @0x40
0x1727…1768 }
0x1768…179b ad89 02280 PRINT "<C1811>Er…der…foretaget…sikkerhedskopiering"
0x1768…179b LineComal80 {
0x1768…179b ptr = 0xad89 // 0x1768 @0x0
0x1768…179b lno = 0x08e8 // 0x176a @0x2
0x1768…179b at0004 = ╱92╱ PRINT ╱ // 0x176c @0x4
0x1768…179b at0005 = ╱22╱"╱ // 0x176d @0x5
0x1768…179b at0006 = ╱3c╱<╱ // 0x176e @0x6
0x1768…179b at0007 = ╱43╱C╱ // 0x176f @0x7
0x1768…179b at0008 = ╱31╱1╱ // 0x1770 @0x8
0x1768…179b at0009 = ╱38╱8╱ // 0x1771 @0x9
0x1768…179b at000a = ╱31╱1╱ // 0x1772 @0xa
0x1768…179b at000b = ╱31╱1╱ // 0x1773 @0xb
0x1768…179b at000c = ╱3e╱>╱ // 0x1774 @0xc
0x1768…179b at000d = ╱45╱E╱ // 0x1775 @0xd
0x1768…179b at000e = ╱72╱r╱ // 0x1776 @0xe
0x1768…179b at000f = ╱20╱…╱ // 0x1777 @0xf
0x1768…179b at0010 = ╱64╱d╱ // 0x1778 @0x10
0x1768…179b at0011 = ╱65╱e╱ // 0x1779 @0x11
0x1768…179b at0012 = ╱72╱r╱ // 0x177a @0x12
0x1768…179b at0013 = ╱20╱…╱ // 0x177b @0x13
0x1768…179b at0014 = ╱66╱f╱ // 0x177c @0x14
0x1768…179b at0015 = ╱6f╱o╱ // 0x177d @0x15
0x1768…179b at0016 = ╱72╱r╱ // 0x177e @0x16
0x1768…179b at0017 = ╱65╱e╱ // 0x177f @0x17
0x1768…179b at0018 = ╱74╱t╱ // 0x1780 @0x18
0x1768…179b at0019 = ╱61╱a╱ // 0x1781 @0x19
0x1768…179b at001a = ╱67╱g╱ // 0x1782 @0x1a
0x1768…179b at001b = ╱65╱e╱ // 0x1783 @0x1b
0x1768…179b at001c = ╱74╱t╱ // 0x1784 @0x1c
0x1768…179b at001d = ╱20╱…╱ // 0x1785 @0x1d
0x1768…179b at001e = ╱73╱s╱ // 0x1786 @0x1e
0x1768…179b at001f = ╱69╱i╱ // 0x1787 @0x1f
0x1768…179b at0020 = ╱6b╱k╱ // 0x1788 @0x20
0x1768…179b at0021 = ╱6b╱k╱ // 0x1789 @0x21
0x1768…179b at0022 = ╱65╱e╱ // 0x178a @0x22
0x1768…179b at0023 = ╱72╱r╱ // 0x178b @0x23
0x1768…179b at0024 = ╱68╱h╱ // 0x178c @0x24
0x1768…179b at0025 = ╱65╱e╱ // 0x178d @0x25
0x1768…179b at0026 = ╱64╱d╱ // 0x178e @0x26
0x1768…179b at0027 = ╱73╱s╱ // 0x178f @0x27
0x1768…179b at0028 = ╱6b╱k╱ // 0x1790 @0x28
0x1768…179b at0029 = ╱6f╱o╱ // 0x1791 @0x29
0x1768…179b at002a = ╱70╱p╱ // 0x1792 @0x2a
0x1768…179b at002b = ╱69╱i╱ // 0x1793 @0x2b
0x1768…179b at002c = ╱65╱e╱ // 0x1794 @0x2c
0x1768…179b at002d = ╱72╱r╱ // 0x1795 @0x2d
0x1768…179b at002e = ╱69╱i╱ // 0x1796 @0x2e
0x1768…179b at002f = ╱6e╱n╱ // 0x1797 @0x2f
0x1768…179b at0030 = ╱67╱g╱ // 0x1798 @0x30
0x1768…179b at0031 = ╱22╱"╱ // 0x1799 @0x31
0x1768…179b at0032 = EOL // 0x179a @0x32
0x1768…179b }
0x179b…17bd adab 02290 EDIT "<C3414>(j/n)?…" : SVAR $ ( 1 )
0x179b…17bd LineComal80 {
0x179b…17bd ptr = 0xadab // 0x179b @0x0
0x179b…17bd lno = 0x08f2 // 0x179d @0x2
0x179b…17bd at0004 = ╱b1╱ EDIT ╱ // 0x179f @0x4
0x179b…17bd at0005 = ╱22╱"╱ // 0x17a0 @0x5
0x179b…17bd at0006 = ╱3c╱<╱ // 0x17a1 @0x6
0x179b…17bd at0007 = ╱43╱C╱ // 0x17a2 @0x7
0x179b…17bd at0008 = ╱33╱3╱ // 0x17a3 @0x8
0x179b…17bd at0009 = ╱34╱4╱ // 0x17a4 @0x9
0x179b…17bd at000a = ╱31╱1╱ // 0x17a5 @0xa
0x179b…17bd at000b = ╱34╱4╱ // 0x17a6 @0xb
0x179b…17bd at000c = ╱3e╱>╱ // 0x17a7 @0xc
0x179b…17bd at000d = ╱28╱(╱ // 0x17a8 @0xd
0x179b…17bd at000e = ╱6a╱j╱ // 0x17a9 @0xe
0x179b…17bd at000f = ╱2f╱/╱ // 0x17aa @0xf
0x179b…17bd at0010 = ╱6e╱n╱ // 0x17ab @0x10
0x179b…17bd at0011 = ╱29╱)╱ // 0x17ac @0x11
0x179b…17bd at0012 = ╱3f╱?╱ // 0x17ad @0x12
0x179b…17bd at0013 = ╱20╱…╱ // 0x17ae @0x13
0x179b…17bd at0014 = ╱22╱"╱ // 0x17af @0x14
0x179b…17bd at0015 = ╱f1╱ : ╱ // 0x17b0 @0x15
0x179b…17bd at0016 = ╱53╱S╱ // 0x17b1 @0x16
0x179b…17bd at0017 = ╱56╱V╱ // 0x17b2 @0x17
0x179b…17bd at0018 = ╱41╱A╱ // 0x17b3 @0x18
0x179b…17bd at0019 = ╱52╱R╱ // 0x17b4 @0x19
0x179b…17bd at001a = ╱ef╱ $ ╱ // 0x17b5 @0x1a
0x179b…17bd at001b = ╱ed╱ ( ╱ // 0x17b6 @0x1b
0x179b…17bd at001c = ╱31╱1╱ // 0x17b7 @0x1c
0x179b…17bd at001d = ╱f20100╱ // 0x17b8 @0x1d
0x179b…17bd at0020 = ╱ee╱ ) ╱ // 0x17bb @0x20
0x179b…17bd at0021 = EOL // 0x17bc @0x21
0x179b…17bd }
0x17bd…17da adc8 02300 IF VAR $ IN "JAja" AND SVAR $ >< "" THEN
0x17bd…17da LineComal80 {
0x17bd…17da ptr = 0xadc8 // 0x17bd @0x0
0x17bd…17da lno = 0x08fc // 0x17bf @0x2
0x17bd…17da at0004 = ╱9b0053╱ IF ╱ // 0x17c1 @0x4
0x17bd…17da at0007 = ╱56╱V╱ // 0x17c4 @0x7
0x17bd…17da at0008 = ╱41╱A╱ // 0x17c5 @0x8
0x17bd…17da at0009 = ╱52╱R╱ // 0x17c6 @0x9
0x17bd…17da at000a = ╱ef╱ $ ╱ // 0x17c7 @0xa
0x17bd…17da at000b = ╱dc╱ IN ╱ // 0x17c8 @0xb
0x17bd…17da at000c = ╱22╱"╱ // 0x17c9 @0xc
0x17bd…17da at000d = ╱4a╱J╱ // 0x17ca @0xd
0x17bd…17da at000e = ╱41╱A╱ // 0x17cb @0xe
0x17bd…17da at000f = ╱6a╱j╱ // 0x17cc @0xf
0x17bd…17da at0010 = ╱61╱a╱ // 0x17cd @0x10
0x17bd…17da at0011 = ╱22╱"╱ // 0x17ce @0x11
0x17bd…17da at0012 = ╱d9╱ AND ╱ // 0x17cf @0x12
0x17bd…17da at0013 = ╱53╱S╱ // 0x17d0 @0x13
0x17bd…17da at0014 = ╱56╱V╱ // 0x17d1 @0x14
0x17bd…17da at0015 = ╱41╱A╱ // 0x17d2 @0x15
0x17bd…17da at0016 = ╱52╱R╱ // 0x17d3 @0x16
0x17bd…17da at0017 = ╱ef╱ $ ╱ // 0x17d4 @0x17
0x17bd…17da at0018 = ╱e4╱ >< ╱ // 0x17d5 @0x18
0x17bd…17da at0019 = ╱22╱"╱ // 0x17d6 @0x19
0x17bd…17da at001a = ╱22╱"╱ // 0x17d7 @0x1a
0x17bd…17da at001b = ╱b5╱ THEN ╱ // 0x17d8 @0x1b
0x17bd…17da at001c = EOL // 0x17d9 @0x1c
0x17bd…17da }
0x17da…17ea add8 02310 EXEC TILBAGEF\R
0x17da…17ea LineComal80 {
0x17da…17ea ptr = 0xadd8 // 0x17da @0x0
0x17da…17ea lno = 0x0906 // 0x17dc @0x2
0x17da…17ea at0004 = ╱9d╱ EXEC ╱ // 0x17de @0x4
0x17da…17ea at0005 = ╱54╱T╱ // 0x17df @0x5
0x17da…17ea at0006 = ╱49╱I╱ // 0x17e0 @0x6
0x17da…17ea at0007 = ╱4c╱L╱ // 0x17e1 @0x7
0x17da…17ea at0008 = ╱42╱B╱ // 0x17e2 @0x8
0x17da…17ea at0009 = ╱41╱A╱ // 0x17e3 @0x9
0x17da…17ea at000a = ╱47╱G╱ // 0x17e4 @0xa
0x17da…17ea at000b = ╱45╱E╱ // 0x17e5 @0xb
0x17da…17ea at000c = ╱46╱F╱ // 0x17e6 @0xc
0x17da…17ea at000d = ╱5c╱\╱ // 0x17e7 @0xd
0x17da…17ea at000e = ╱52╱R╱ // 0x17e8 @0xe
0x17da…17ea at000f = EOL // 0x17e9 @0xf
0x17da…17ea }
0x17ea…17f7 ade5 02320 EXEC FREMF\R
0x17ea…17f7 LineComal80 {
0x17ea…17f7 ptr = 0xade5 // 0x17ea @0x0
0x17ea…17f7 lno = 0x0910 // 0x17ec @0x2
0x17ea…17f7 at0004 = ╱9d╱ EXEC ╱ // 0x17ee @0x4
0x17ea…17f7 at0005 = ╱46╱F╱ // 0x17ef @0x5
0x17ea…17f7 at0006 = ╱52╱R╱ // 0x17f0 @0x6
0x17ea…17f7 at0007 = ╱45╱E╱ // 0x17f1 @0x7
0x17ea…17f7 at0008 = ╱4d╱M╱ // 0x17f2 @0x8
0x17ea…17f7 at0009 = ╱46╱F╱ // 0x17f3 @0x9
0x17ea…17f7 at000a = ╱5c╱\╱ // 0x17f4 @0xa
0x17ea…17f7 at000b = ╱52╱R╱ // 0x17f5 @0xb
0x17ea…17f7 at000c = EOL // 0x17f6 @0xc
0x17ea…17f7 }
0x17f7…17fd adeb 02330 ENDIF
0x17f7…17fd LineComal80 {
0x17f7…17fd ptr = 0xadeb // 0x17f7 @0x0
0x17f7…17fd lno = 0x091a // 0x17f9 @0x2
0x17f7…17fd at0004 = ╱9c╱ ENDIF ╱ // 0x17fb @0x4
0x17f7…17fd at0005 = EOL // 0x17fc @0x5
0x17f7…17fd }
0x17fd…1804 adf2 02340 ELSE
0x17fd…1804 LineComal80 {
0x17fd…1804 ptr = 0xadf2 // 0x17fd @0x0
0x17fd…1804 lno = 0x0924 // 0x17ff @0x2
0x17fd…1804 at0004 = ╱9a00╱ ELSE ╱ // 0x1801 @0x4
0x17fd…1804 at0006 = EOL // 0x1803 @0x6
0x17fd…1804 }
0x1804…184b ae39 02350 PRINT "<XSC0712>Ulovlig…fremf|ring…af…balancetal…-…regnskabs}ret…ikke…"
0x1804…184b LineComal80 {
0x1804…184b ptr = 0xae39 // 0x1804 @0x0
0x1804…184b lno = 0x092e // 0x1806 @0x2
0x1804…184b at0004 = ╱92╱ PRINT ╱ // 0x1808 @0x4
0x1804…184b at0005 = ╱22╱"╱ // 0x1809 @0x5
0x1804…184b at0006 = ╱3c╱<╱ // 0x180a @0x6
0x1804…184b at0007 = ╱58╱X╱ // 0x180b @0x7
0x1804…184b at0008 = ╱53╱S╱ // 0x180c @0x8
0x1804…184b at0009 = ╱43╱C╱ // 0x180d @0x9
0x1804…184b at000a = ╱30╱0╱ // 0x180e @0xa
0x1804…184b at000b = ╱37╱7╱ // 0x180f @0xb
0x1804…184b at000c = ╱31╱1╱ // 0x1810 @0xc
0x1804…184b at000d = ╱32╱2╱ // 0x1811 @0xd
0x1804…184b at000e = ╱3e╱>╱ // 0x1812 @0xe
0x1804…184b at000f = ╱55╱U╱ // 0x1813 @0xf
0x1804…184b at0010 = ╱6c╱l╱ // 0x1814 @0x10
0x1804…184b at0011 = ╱6f╱o╱ // 0x1815 @0x11
0x1804…184b at0012 = ╱76╱v╱ // 0x1816 @0x12
0x1804…184b at0013 = ╱6c╱l╱ // 0x1817 @0x13
0x1804…184b at0014 = ╱69╱i╱ // 0x1818 @0x14
0x1804…184b at0015 = ╱67╱g╱ // 0x1819 @0x15
0x1804…184b at0016 = ╱20╱…╱ // 0x181a @0x16
0x1804…184b at0017 = ╱66╱f╱ // 0x181b @0x17
0x1804…184b at0018 = ╱72╱r╱ // 0x181c @0x18
0x1804…184b at0019 = ╱65╱e╱ // 0x181d @0x19
0x1804…184b at001a = ╱6d╱m╱ // 0x181e @0x1a
0x1804…184b at001b = ╱66╱f╱ // 0x181f @0x1b
0x1804…184b at001c = ╱7c╱|╱ // 0x1820 @0x1c
0x1804…184b at001d = ╱72╱r╱ // 0x1821 @0x1d
0x1804…184b at001e = ╱69╱i╱ // 0x1822 @0x1e
0x1804…184b at001f = ╱6e╱n╱ // 0x1823 @0x1f
0x1804…184b at0020 = ╱67╱g╱ // 0x1824 @0x20
0x1804…184b at0021 = ╱20╱…╱ // 0x1825 @0x21
0x1804…184b at0022 = ╱61╱a╱ // 0x1826 @0x22
0x1804…184b at0023 = ╱66╱f╱ // 0x1827 @0x23
0x1804…184b at0024 = ╱20╱…╱ // 0x1828 @0x24
0x1804…184b at0025 = ╱62╱b╱ // 0x1829 @0x25
0x1804…184b at0026 = ╱61╱a╱ // 0x182a @0x26
0x1804…184b at0027 = ╱6c╱l╱ // 0x182b @0x27
0x1804…184b at0028 = ╱61╱a╱ // 0x182c @0x28
0x1804…184b at0029 = ╱6e╱n╱ // 0x182d @0x29
0x1804…184b at002a = ╱63╱c╱ // 0x182e @0x2a
0x1804…184b at002b = ╱65╱e╱ // 0x182f @0x2b
0x1804…184b at002c = ╱74╱t╱ // 0x1830 @0x2c
0x1804…184b at002d = ╱61╱a╱ // 0x1831 @0x2d
0x1804…184b at002e = ╱6c╱l╱ // 0x1832 @0x2e
0x1804…184b at002f = ╱20╱…╱ // 0x1833 @0x2f
0x1804…184b at0030 = ╱2d╱-╱ // 0x1834 @0x30
0x1804…184b at0031 = ╱20╱…╱ // 0x1835 @0x31
0x1804…184b at0032 = ╱72╱r╱ // 0x1836 @0x32
0x1804…184b at0033 = ╱65╱e╱ // 0x1837 @0x33
0x1804…184b at0034 = ╱67╱g╱ // 0x1838 @0x34
0x1804…184b at0035 = ╱6e╱n╱ // 0x1839 @0x35
0x1804…184b at0036 = ╱73╱s╱ // 0x183a @0x36
0x1804…184b at0037 = ╱6b╱k╱ // 0x183b @0x37
0x1804…184b at0038 = ╱61╱a╱ // 0x183c @0x38
0x1804…184b at0039 = ╱62╱b╱ // 0x183d @0x39
0x1804…184b at003a = ╱73╱s╱ // 0x183e @0x3a
0x1804…184b at003b = ╱7d╱}╱ // 0x183f @0x3b
0x1804…184b at003c = ╱72╱r╱ // 0x1840 @0x3c
0x1804…184b at003d = ╱65╱e╱ // 0x1841 @0x3d
0x1804…184b at003e = ╱74╱t╱ // 0x1842 @0x3e
0x1804…184b at003f = ╱20╱…╱ // 0x1843 @0x3f
0x1804…184b at0040 = ╱69╱i╱ // 0x1844 @0x40
0x1804…184b at0041 = ╱6b╱k╱ // 0x1845 @0x41
0x1804…184b at0042 = ╱6b╱k╱ // 0x1846 @0x42
0x1804…184b at0043 = ╱65╱e╱ // 0x1847 @0x43
0x1804…184b at0044 = ╱20╱…╱ // 0x1848 @0x44
0x1804…184b at0045 = ╱22╱"╱ // 0x1849 @0x45
0x1804…184b at0046 = EOL // 0x184a @0x46
0x1804…184b }
0x184b…185c ae4a 02360 PRINT "afsluttet"
0x184b…185c LineComal80 {
0x184b…185c ptr = 0xae4a // 0x184b @0x0
0x184b…185c lno = 0x0938 // 0x184d @0x2
0x184b…185c at0004 = ╱92╱ PRINT ╱ // 0x184f @0x4
0x184b…185c at0005 = ╱22╱"╱ // 0x1850 @0x5
0x184b…185c at0006 = ╱61╱a╱ // 0x1851 @0x6
0x184b…185c at0007 = ╱66╱f╱ // 0x1852 @0x7
0x184b…185c at0008 = ╱73╱s╱ // 0x1853 @0x8
0x184b…185c at0009 = ╱6c╱l╱ // 0x1854 @0x9
0x184b…185c at000a = ╱75╱u╱ // 0x1855 @0xa
0x184b…185c at000b = ╱74╱t╱ // 0x1856 @0xb
0x184b…185c at000c = ╱74╱t╱ // 0x1857 @0xc
0x184b…185c at000d = ╱65╱e╱ // 0x1858 @0xd
0x184b…185c at000e = ╱74╱t╱ // 0x1859 @0xe
0x184b…185c at000f = ╱22╱"╱ // 0x185a @0xf
0x184b…185c at0010 = EOL // 0x185b @0x10
0x184b…185c }
0x185c…187d ae6b 02370 INPUT "<SC6523>Tryk…RETURN" : SVAR $
0x185c…187d LineComal80 {
0x185c…187d ptr = 0xae6b // 0x185c @0x0
0x185c…187d lno = 0x0942 // 0x185e @0x2
0x185c…187d at0004 = ╱91╱ INPUT ╱ // 0x1860 @0x4
0x185c…187d at0005 = ╱22╱"╱ // 0x1861 @0x5
0x185c…187d at0006 = ╱3c╱<╱ // 0x1862 @0x6
0x185c…187d at0007 = ╱53╱S╱ // 0x1863 @0x7
0x185c…187d at0008 = ╱43╱C╱ // 0x1864 @0x8
0x185c…187d at0009 = ╱36╱6╱ // 0x1865 @0x9
0x185c…187d at000a = ╱35╱5╱ // 0x1866 @0xa
0x185c…187d at000b = ╱32╱2╱ // 0x1867 @0xb
0x185c…187d at000c = ╱33╱3╱ // 0x1868 @0xc
0x185c…187d at000d = ╱3e╱>╱ // 0x1869 @0xd
0x185c…187d at000e = ╱54╱T╱ // 0x186a @0xe
0x185c…187d at000f = ╱72╱r╱ // 0x186b @0xf
0x185c…187d at0010 = ╱79╱y╱ // 0x186c @0x10
0x185c…187d at0011 = ╱6b╱k╱ // 0x186d @0x11
0x185c…187d at0012 = ╱20╱…╱ // 0x186e @0x12
0x185c…187d at0013 = ╱52╱R╱ // 0x186f @0x13
0x185c…187d at0014 = ╱45╱E╱ // 0x1870 @0x14
0x185c…187d at0015 = ╱54╱T╱ // 0x1871 @0x15
0x185c…187d at0016 = ╱55╱U╱ // 0x1872 @0x16
0x185c…187d at0017 = ╱52╱R╱ // 0x1873 @0x17
0x185c…187d at0018 = ╱4e╱N╱ // 0x1874 @0x18
0x185c…187d at0019 = ╱22╱"╱ // 0x1875 @0x19
0x185c…187d at001a = ╱f1╱ : ╱ // 0x1876 @0x1a
0x185c…187d at001b = ╱53╱S╱ // 0x1877 @0x1b
0x185c…187d at001c = ╱56╱V╱ // 0x1878 @0x1c
0x185c…187d at001d = ╱41╱A╱ // 0x1879 @0x1d
0x185c…187d at001e = ╱52╱R╱ // 0x187a @0x1e
0x185c…187d at001f = ╱ef╱ $ ╱ // 0x187b @0x1f
0x185c…187d at0020 = EOL // 0x187c @0x20
0x185c…187d }
0x187d…1883 ae71 02380 ENDIF
0x187d…1883 LineComal80 {
0x187d…1883 ptr = 0xae71 // 0x187d @0x0
0x187d…1883 lno = 0x094c // 0x187f @0x2
0x187d…1883 at0004 = ╱9c╱ ENDIF ╱ // 0x1881 @0x4
0x187d…1883 at0005 = EOL // 0x1882 @0x5
0x187d…1883 }
0x1883…1891 ae7f 02390 CHAIN PROGRAM $
0x1883…1891 LineComal80 {
0x1883…1891 ptr = 0xae7f // 0x1883 @0x0
0x1883…1891 lno = 0x0956 // 0x1885 @0x2
0x1883…1891 at0004 = ╱ac╱ CHAIN ╱ // 0x1887 @0x4
0x1883…1891 at0005 = ╱50╱P╱ // 0x1888 @0x5
0x1883…1891 at0006 = ╱52╱R╱ // 0x1889 @0x6
0x1883…1891 at0007 = ╱4f╱O╱ // 0x188a @0x7
0x1883…1891 at0008 = ╱47╱G╱ // 0x188b @0x8
0x1883…1891 at0009 = ╱52╱R╱ // 0x188c @0x9
0x1883…1891 at000a = ╱41╱A╱ // 0x188d @0xa
0x1883…1891 at000b = ╱4d╱M╱ // 0x188e @0xb
0x1883…1891 at000c = ╱ef╱ $ ╱ // 0x188f @0xc
0x1883…1891 at000d = EOL // 0x1890 @0xd
0x1883…1891 }
0x1891…18a4 ae92 02400 ENDPROC FUNKTIONSMENU
0x1891…18a4 LineComal80 {
0x1891…18a4 ptr = 0xae92 // 0x1891 @0x0
0x1891…18a4 lno = 0x0960 // 0x1893 @0x2
0x1891…18a4 at0004 = ╱9f╱ ENDPROC ╱ // 0x1895 @0x4
0x1891…18a4 at0005 = ╱46╱F╱ // 0x1896 @0x5
0x1891…18a4 at0006 = ╱55╱U╱ // 0x1897 @0x6
0x1891…18a4 at0007 = ╱4e╱N╱ // 0x1898 @0x7
0x1891…18a4 at0008 = ╱4b╱K╱ // 0x1899 @0x8
0x1891…18a4 at0009 = ╱54╱T╱ // 0x189a @0x9
0x1891…18a4 at000a = ╱49╱I╱ // 0x189b @0xa
0x1891…18a4 at000b = ╱4f╱O╱ // 0x189c @0xb
0x1891…18a4 at000c = ╱4e╱N╱ // 0x189d @0xc
0x1891…18a4 at000d = ╱53╱S╱ // 0x189e @0xd
0x1891…18a4 at000e = ╱4d╱M╱ // 0x189f @0xe
0x1891…18a4 at000f = ╱45╱E╱ // 0x18a0 @0xf
0x1891…18a4 at0010 = ╱4e╱N╱ // 0x18a1 @0x10
0x1891…18a4 at0011 = ╱55╱U╱ // 0x18a2 @0x11
0x1891…18a4 at0012 = EOL // 0x18a3 @0x12
0x1891…18a4 }
0x18a4…18a9 ae97 02410
0x18a4…18a9 LineComal80 {
0x18a4…18a9 ptr = 0xae97 // 0x18a4 @0x0
0x18a4…18a9 lno = 0x096a // 0x18a6 @0x2
0x18a4…18a9 at0004 = EOL // 0x18a8 @0x4
0x18a4…18a9 }
0x18a9…18e3 aed1 02420 PROC BOGF\R ( REF Q_KTO $ , REF Q_DAT $ , REF Q_TXT $ , REF Q_M , REF Q_KR , Q_DK , QN $ )
0x18a9…18e3 LineComal80 {
0x18a9…18e3 ptr = 0xaed1 // 0x18a9 @0x0
0x18a9…18e3 lno = 0x0974 // 0x18ab @0x2
0x18a9…18e3 at0004 = ╱9e00╱ PROC ╱ // 0x18ad @0x4
0x18a9…18e3 at0006 = ╱42╱B╱ // 0x18af @0x6
0x18a9…18e3 at0007 = ╱4f╱O╱ // 0x18b0 @0x7
0x18a9…18e3 at0008 = ╱47╱G╱ // 0x18b1 @0x8
0x18a9…18e3 at0009 = ╱46╱F╱ // 0x18b2 @0x9
0x18a9…18e3 at000a = ╱5c╱\╱ // 0x18b3 @0xa
0x18a9…18e3 at000b = ╱52╱R╱ // 0x18b4 @0xb
0x18a9…18e3 at000c = ╱ed╱ ( ╱ // 0x18b5 @0xc
0x18a9…18e3 at000d = ╱b6╱ REF ╱ // 0x18b6 @0xd
0x18a9…18e3 at000e = ╱51╱Q╱ // 0x18b7 @0xe
0x18a9…18e3 at000f = ╱5f╱_╱ // 0x18b8 @0xf
0x18a9…18e3 at0010 = ╱4b╱K╱ // 0x18b9 @0x10
0x18a9…18e3 at0011 = ╱54╱T╱ // 0x18ba @0x11
0x18a9…18e3 at0012 = ╱4f╱O╱ // 0x18bb @0x12
0x18a9…18e3 at0013 = ╱ef╱ $ ╱ // 0x18bc @0x13
0x18a9…18e3 at0014 = ╱ec╱ , ╱ // 0x18bd @0x14
0x18a9…18e3 at0015 = ╱b6╱ REF ╱ // 0x18be @0x15
0x18a9…18e3 at0016 = ╱51╱Q╱ // 0x18bf @0x16
0x18a9…18e3 at0017 = ╱5f╱_╱ // 0x18c0 @0x17
0x18a9…18e3 at0018 = ╱44╱D╱ // 0x18c1 @0x18
0x18a9…18e3 at0019 = ╱41╱A╱ // 0x18c2 @0x19
0x18a9…18e3 at001a = ╱54╱T╱ // 0x18c3 @0x1a
0x18a9…18e3 at001b = ╱ef╱ $ ╱ // 0x18c4 @0x1b
0x18a9…18e3 at001c = ╱ec╱ , ╱ // 0x18c5 @0x1c
0x18a9…18e3 at001d = ╱b6╱ REF ╱ // 0x18c6 @0x1d
0x18a9…18e3 at001e = ╱51╱Q╱ // 0x18c7 @0x1e
0x18a9…18e3 at001f = ╱5f╱_╱ // 0x18c8 @0x1f
0x18a9…18e3 at0020 = ╱54╱T╱ // 0x18c9 @0x20
0x18a9…18e3 at0021 = ╱58╱X╱ // 0x18ca @0x21
0x18a9…18e3 at0022 = ╱54╱T╱ // 0x18cb @0x22
0x18a9…18e3 at0023 = ╱ef╱ $ ╱ // 0x18cc @0x23
0x18a9…18e3 at0024 = ╱ec╱ , ╱ // 0x18cd @0x24
0x18a9…18e3 at0025 = ╱b6╱ REF ╱ // 0x18ce @0x25
0x18a9…18e3 at0026 = ╱51╱Q╱ // 0x18cf @0x26
0x18a9…18e3 at0027 = ╱5f╱_╱ // 0x18d0 @0x27
0x18a9…18e3 at0028 = ╱4d╱M╱ // 0x18d1 @0x28
0x18a9…18e3 at0029 = ╱ec╱ , ╱ // 0x18d2 @0x29
0x18a9…18e3 at002a = ╱b6╱ REF ╱ // 0x18d3 @0x2a
0x18a9…18e3 at002b = ╱51╱Q╱ // 0x18d4 @0x2b
0x18a9…18e3 at002c = ╱5f╱_╱ // 0x18d5 @0x2c
0x18a9…18e3 at002d = ╱4b╱K╱ // 0x18d6 @0x2d
0x18a9…18e3 at002e = ╱52╱R╱ // 0x18d7 @0x2e
0x18a9…18e3 at002f = ╱ec╱ , ╱ // 0x18d8 @0x2f
0x18a9…18e3 at0030 = ╱51╱Q╱ // 0x18d9 @0x30
0x18a9…18e3 at0031 = ╱5f╱_╱ // 0x18da @0x31
0x18a9…18e3 at0032 = ╱44╱D╱ // 0x18db @0x32
0x18a9…18e3 at0033 = ╱4b╱K╱ // 0x18dc @0x33
0x18a9…18e3 at0034 = ╱ec╱ , ╱ // 0x18dd @0x34
0x18a9…18e3 at0035 = ╱51╱Q╱ // 0x18de @0x35
0x18a9…18e3 at0036 = ╱4e╱N╱ // 0x18df @0x36
0x18a9…18e3 at0037 = ╱ef╱ $ ╱ // 0x18e0 @0x37
0x18a9…18e3 at0038 = ╱ee╱ ) ╱ // 0x18e1 @0x38
0x18a9…18e3 at0039 = EOL // 0x18e2 @0x39
0x18a9…18e3 }
0x18e3…18f9 aee7 02430 EXEC FIND_KTO ( Q_KTO $ )
0x18e3…18f9 LineComal80 {
0x18e3…18f9 ptr = 0xaee7 // 0x18e3 @0x0
0x18e3…18f9 lno = 0x097e // 0x18e5 @0x2
0x18e3…18f9 at0004 = ╱9d╱ EXEC ╱ // 0x18e7 @0x4
0x18e3…18f9 at0005 = ╱46╱F╱ // 0x18e8 @0x5
0x18e3…18f9 at0006 = ╱49╱I╱ // 0x18e9 @0x6
0x18e3…18f9 at0007 = ╱4e╱N╱ // 0x18ea @0x7
0x18e3…18f9 at0008 = ╱44╱D╱ // 0x18eb @0x8
0x18e3…18f9 at0009 = ╱5f╱_╱ // 0x18ec @0x9
0x18e3…18f9 at000a = ╱4b╱K╱ // 0x18ed @0xa
0x18e3…18f9 at000b = ╱54╱T╱ // 0x18ee @0xb
0x18e3…18f9 at000c = ╱4f╱O╱ // 0x18ef @0xc
0x18e3…18f9 at000d = ╱ed╱ ( ╱ // 0x18f0 @0xd
0x18e3…18f9 at000e = ╱51╱Q╱ // 0x18f1 @0xe
0x18e3…18f9 at000f = ╱5f╱_╱ // 0x18f2 @0xf
0x18e3…18f9 at0010 = ╱4b╱K╱ // 0x18f3 @0x10
0x18e3…18f9 at0011 = ╱54╱T╱ // 0x18f4 @0x11
0x18e3…18f9 at0012 = ╱4f╱O╱ // 0x18f5 @0x12
0x18e3…18f9 at0013 = ╱ef╱ $ ╱ // 0x18f6 @0x13
0x18e3…18f9 at0014 = ╱ee╱ ) ╱ // 0x18f7 @0x14
0x18e3…18f9 at0015 = EOL // 0x18f8 @0x15
0x18e3…18f9 }
0x18f9…1904 aef2 02440 IF OK THEN
0x18f9…1904 LineComal80 {
0x18f9…1904 ptr = 0xaef2 // 0x18f9 @0x0
0x18f9…1904 lno = 0x0988 // 0x18fb @0x2
0x18f9…1904 at0004 = ╱9b00d7╱ IF ╱ // 0x18fd @0x4
0x18f9…1904 at0007 = ╱4f╱O╱ // 0x1900 @0x7
0x18f9…1904 at0008 = ╱4b╱K╱ // 0x1901 @0x8
0x18f9…1904 at0009 = ╱b5╱ THEN ╱ // 0x1902 @0x9
0x18f9…1904 at000a = EOL // 0x1903 @0xa
0x18f9…1904 }
0x1904…1929 af17 02450 EXEC FEJL ( "UKENDT…KONTONR:…" + Q_KTO $ )
0x1904…1929 LineComal80 {
0x1904…1929 ptr = 0xaf17 // 0x1904 @0x0
0x1904…1929 lno = 0x0992 // 0x1906 @0x2
0x1904…1929 at0004 = ╱9d╱ EXEC ╱ // 0x1908 @0x4
0x1904…1929 at0005 = ╱46╱F╱ // 0x1909 @0x5
0x1904…1929 at0006 = ╱45╱E╱ // 0x190a @0x6
0x1904…1929 at0007 = ╱4a╱J╱ // 0x190b @0x7
0x1904…1929 at0008 = ╱4c╱L╱ // 0x190c @0x8
0x1904…1929 at0009 = ╱ed╱ ( ╱ // 0x190d @0x9
0x1904…1929 at000a = ╱22╱"╱ // 0x190e @0xa
0x1904…1929 at000b = ╱55╱U╱ // 0x190f @0xb
0x1904…1929 at000c = ╱4b╱K╱ // 0x1910 @0xc
0x1904…1929 at000d = ╱45╱E╱ // 0x1911 @0xd
0x1904…1929 at000e = ╱4e╱N╱ // 0x1912 @0xe
0x1904…1929 at000f = ╱44╱D╱ // 0x1913 @0xf
0x1904…1929 at0010 = ╱54╱T╱ // 0x1914 @0x10
0x1904…1929 at0011 = ╱20╱…╱ // 0x1915 @0x11
0x1904…1929 at0012 = ╱4b╱K╱ // 0x1916 @0x12
0x1904…1929 at0013 = ╱4f╱O╱ // 0x1917 @0x13
0x1904…1929 at0014 = ╱4e╱N╱ // 0x1918 @0x14
0x1904…1929 at0015 = ╱54╱T╱ // 0x1919 @0x15
0x1904…1929 at0016 = ╱4f╱O╱ // 0x191a @0x16
0x1904…1929 at0017 = ╱4e╱N╱ // 0x191b @0x17
0x1904…1929 at0018 = ╱52╱R╱ // 0x191c @0x18
0x1904…1929 at0019 = ╱3a╱:╱ // 0x191d @0x19
0x1904…1929 at001a = ╱20╱…╱ // 0x191e @0x1a
0x1904…1929 at001b = ╱22╱"╱ // 0x191f @0x1b
0x1904…1929 at001c = ╱eb╱ + ╱ // 0x1920 @0x1c
0x1904…1929 at001d = ╱51╱Q╱ // 0x1921 @0x1d
0x1904…1929 at001e = ╱5f╱_╱ // 0x1922 @0x1e
0x1904…1929 at001f = ╱4b╱K╱ // 0x1923 @0x1f
0x1904…1929 at0020 = ╱54╱T╱ // 0x1924 @0x20
0x1904…1929 at0021 = ╱4f╱O╱ // 0x1925 @0x21
0x1904…1929 at0022 = ╱ef╱ $ ╱ // 0x1926 @0x22
0x1904…1929 at0023 = ╱ee╱ ) ╱ // 0x1927 @0x23
0x1904…1929 at0024 = EOL // 0x1928 @0x24
0x1904…1929 }
0x1929…192f af1d 02460 EXIT
0x1929…192f LineComal80 {
0x1929…192f ptr = 0xaf1d // 0x1929 @0x0
0x1929…192f lno = 0x099c // 0x192b @0x2
0x1929…192f at0004 = ╱99╱ EXIT ╱ // 0x192d @0x4
0x1929…192f at0005 = EOL // 0x192e @0x5
0x1929…192f }
0x192f…1936 af24 02470 ELSE
0x192f…1936 LineComal80 {
0x192f…1936 ptr = 0xaf24 // 0x192f @0x0
0x192f…1936 lno = 0x09a6 // 0x1931 @0x2
0x192f…1936 at0004 = ╱9a00╱ ELSE ╱ // 0x1933 @0x4
0x192f…1936 at0006 = EOL // 0x1935 @0x6
0x192f…1936 }
0x1936…194c af3a 02480 EXEC L[S_KONTO ( RECNR )
0x1936…194c LineComal80 {
0x1936…194c ptr = 0xaf3a // 0x1936 @0x0
0x1936…194c lno = 0x09b0 // 0x1938 @0x2
0x1936…194c at0004 = ╱9d╱ EXEC ╱ // 0x193a @0x4
0x1936…194c at0005 = ╱4c╱L╱ // 0x193b @0x5
0x1936…194c at0006 = ╱5b╱[╱ // 0x193c @0x6
0x1936…194c at0007 = ╱53╱S╱ // 0x193d @0x7
0x1936…194c at0008 = ╱5f╱_╱ // 0x193e @0x8
0x1936…194c at0009 = ╱4b╱K╱ // 0x193f @0x9
0x1936…194c at000a = ╱4f╱O╱ // 0x1940 @0xa
0x1936…194c at000b = ╱4e╱N╱ // 0x1941 @0xb
0x1936…194c at000c = ╱54╱T╱ // 0x1942 @0xc
0x1936…194c at000d = ╱4f╱O╱ // 0x1943 @0xd
0x1936…194c at000e = ╱ed╱ ( ╱ // 0x1944 @0xe
0x1936…194c at000f = ╱52╱R╱ // 0x1945 @0xf
0x1936…194c at0010 = ╱45╱E╱ // 0x1946 @0x10
0x1936…194c at0011 = ╱43╱C╱ // 0x1947 @0x11
0x1936…194c at0012 = ╱4e╱N╱ // 0x1948 @0x12
0x1936…194c at0013 = ╱52╱R╱ // 0x1949 @0x13
0x1936…194c at0014 = ╱ee╱ ) ╱ // 0x194a @0x14
0x1936…194c at0015 = EOL // 0x194b @0x15
0x1936…194c }
0x194c…1961 af4f 02490 IF TO_TYPE $ >< "A" THEN
0x194c…1961 LineComal80 {
0x194c…1961 ptr = 0xaf4f // 0x194c @0x0
0x194c…1961 lno = 0x09ba // 0x194e @0x2
0x194c…1961 at0004 = ╱9b004b╱ IF ╱ // 0x1950 @0x4
0x194c…1961 at0007 = ╱54╱T╱ // 0x1953 @0x7
0x194c…1961 at0008 = ╱4f╱O╱ // 0x1954 @0x8
0x194c…1961 at0009 = ╱5f╱_╱ // 0x1955 @0x9
0x194c…1961 at000a = ╱54╱T╱ // 0x1956 @0xa
0x194c…1961 at000b = ╱59╱Y╱ // 0x1957 @0xb
0x194c…1961 at000c = ╱50╱P╱ // 0x1958 @0xc
0x194c…1961 at000d = ╱45╱E╱ // 0x1959 @0xd
0x194c…1961 at000e = ╱ef╱ $ ╱ // 0x195a @0xe
0x194c…1961 at000f = ╱e4╱ >< ╱ // 0x195b @0xf
0x194c…1961 at0010 = ╱22╱"╱ // 0x195c @0x10
0x194c…1961 at0011 = ╱41╱A╱ // 0x195d @0x11
0x194c…1961 at0012 = ╱22╱"╱ // 0x195e @0x12
0x194c…1961 at0013 = ╱b5╱ THEN ╱ // 0x195f @0x13
0x194c…1961 at0014 = EOL // 0x1960 @0x14
0x194c…1961 }
0x1961…1987 af75 02500 EXEC FEJL ( "ULOVLIG…KONTONR:…" + Q_KTO $ )
0x1961…1987 LineComal80 {
0x1961…1987 ptr = 0xaf75 // 0x1961 @0x0
0x1961…1987 lno = 0x09c4 // 0x1963 @0x2
0x1961…1987 at0004 = ╱9d╱ EXEC ╱ // 0x1965 @0x4
0x1961…1987 at0005 = ╱46╱F╱ // 0x1966 @0x5
0x1961…1987 at0006 = ╱45╱E╱ // 0x1967 @0x6
0x1961…1987 at0007 = ╱4a╱J╱ // 0x1968 @0x7
0x1961…1987 at0008 = ╱4c╱L╱ // 0x1969 @0x8
0x1961…1987 at0009 = ╱ed╱ ( ╱ // 0x196a @0x9
0x1961…1987 at000a = ╱22╱"╱ // 0x196b @0xa
0x1961…1987 at000b = ╱55╱U╱ // 0x196c @0xb
0x1961…1987 at000c = ╱4c╱L╱ // 0x196d @0xc
0x1961…1987 at000d = ╱4f╱O╱ // 0x196e @0xd
0x1961…1987 at000e = ╱56╱V╱ // 0x196f @0xe
0x1961…1987 at000f = ╱4c╱L╱ // 0x1970 @0xf
0x1961…1987 at0010 = ╱49╱I╱ // 0x1971 @0x10
0x1961…1987 at0011 = ╱47╱G╱ // 0x1972 @0x11
0x1961…1987 at0012 = ╱20╱…╱ // 0x1973 @0x12
0x1961…1987 at0013 = ╱4b╱K╱ // 0x1974 @0x13
0x1961…1987 at0014 = ╱4f╱O╱ // 0x1975 @0x14
0x1961…1987 at0015 = ╱4e╱N╱ // 0x1976 @0x15
0x1961…1987 at0016 = ╱54╱T╱ // 0x1977 @0x16
0x1961…1987 at0017 = ╱4f╱O╱ // 0x1978 @0x17
0x1961…1987 at0018 = ╱4e╱N╱ // 0x1979 @0x18
0x1961…1987 at0019 = ╱52╱R╱ // 0x197a @0x19
0x1961…1987 at001a = ╱3a╱:╱ // 0x197b @0x1a
0x1961…1987 at001b = ╱20╱…╱ // 0x197c @0x1b
0x1961…1987 at001c = ╱22╱"╱ // 0x197d @0x1c
0x1961…1987 at001d = ╱eb╱ + ╱ // 0x197e @0x1d
0x1961…1987 at001e = ╱51╱Q╱ // 0x197f @0x1e
0x1961…1987 at001f = ╱5f╱_╱ // 0x1980 @0x1f
0x1961…1987 at0020 = ╱4b╱K╱ // 0x1981 @0x20
0x1961…1987 at0021 = ╱54╱T╱ // 0x1982 @0x21
0x1961…1987 at0022 = ╱4f╱O╱ // 0x1983 @0x22
0x1961…1987 at0023 = ╱ef╱ $ ╱ // 0x1984 @0x23
0x1961…1987 at0024 = ╱ee╱ ) ╱ // 0x1985 @0x24
0x1961…1987 at0025 = EOL // 0x1986 @0x25
0x1961…1987 }
0x1987…198d af7b 02510 EXIT
0x1987…198d LineComal80 {
0x1987…198d ptr = 0xaf7b // 0x1987 @0x0
0x1987…198d lno = 0x09ce // 0x1989 @0x2
0x1987…198d at0004 = ╱99╱ EXIT ╱ // 0x198b @0x4
0x1987…198d at0005 = EOL // 0x198c @0x5
0x1987…198d }
0x198d…1993 af81 02520 ENDIF
0x198d…1993 LineComal80 {
0x198d…1993 ptr = 0xaf81 // 0x198d @0x0
0x198d…1993 lno = 0x09d8 // 0x198f @0x2
0x198d…1993 at0004 = ╱9c╱ ENDIF ╱ // 0x1991 @0x4
0x198d…1993 at0005 = EOL // 0x1992 @0x5
0x198d…1993 }
0x1993…1999 af87 02530 ENDIF
0x1993…1999 LineComal80 {
0x1993…1999 ptr = 0xaf87 // 0x1993 @0x0
0x1993…1999 lno = 0x09e2 // 0x1995 @0x2
0x1993…1999 at0004 = ╱9c╱ ENDIF ╱ // 0x1997 @0x4
0x1993…1999 at0005 = EOL // 0x1998 @0x5
0x1993…1999 }
0x1999…19bc afaa 02540 GET TRANS $ , 1 : T_H\JREC , T_MAXREC
0x1999…19bc LineComal80 {
0x1999…19bc ptr = 0xafaa // 0x1999 @0x0
0x1999…19bc lno = 0x09ec // 0x199b @0x2
0x1999…19bc at0004 = ╱a9╱ GET ╱ // 0x199d @0x4
0x1999…19bc at0005 = ╱54╱T╱ // 0x199e @0x5
0x1999…19bc at0006 = ╱52╱R╱ // 0x199f @0x6
0x1999…19bc at0007 = ╱41╱A╱ // 0x19a0 @0x7
0x1999…19bc at0008 = ╱4e╱N╱ // 0x19a1 @0x8
0x1999…19bc at0009 = ╱53╱S╱ // 0x19a2 @0x9
0x1999…19bc at000a = ╱ef╱ $ ╱ // 0x19a3 @0xa
0x1999…19bc at000b = ╱ec╱ , ╱ // 0x19a4 @0xb
0x1999…19bc at000c = ╱31╱1╱ // 0x19a5 @0xc
0x1999…19bc at000d = ╱f20100╱ // 0x19a6 @0xd
0x1999…19bc at0010 = ╱f1╱ : ╱ // 0x19a9 @0x10
0x1999…19bc at0011 = ╱54╱T╱ // 0x19aa @0x11
0x1999…19bc at0012 = ╱5f╱_╱ // 0x19ab @0x12
0x1999…19bc at0013 = ╱48╱H╱ // 0x19ac @0x13
0x1999…19bc at0014 = ╱5c╱\╱ // 0x19ad @0x14
0x1999…19bc at0015 = ╱4a╱J╱ // 0x19ae @0x15
0x1999…19bc at0016 = ╱52╱R╱ // 0x19af @0x16
0x1999…19bc at0017 = ╱45╱E╱ // 0x19b0 @0x17
0x1999…19bc at0018 = ╱43╱C╱ // 0x19b1 @0x18
0x1999…19bc at0019 = ╱ec╱ , ╱ // 0x19b2 @0x19
0x1999…19bc at001a = ╱54╱T╱ // 0x19b3 @0x1a
0x1999…19bc at001b = ╱5f╱_╱ // 0x19b4 @0x1b
0x1999…19bc at001c = ╱4d╱M╱ // 0x19b5 @0x1c
0x1999…19bc at001d = ╱41╱A╱ // 0x19b6 @0x1d
0x1999…19bc at001e = ╱58╱X╱ // 0x19b7 @0x1e
0x1999…19bc at001f = ╱52╱R╱ // 0x19b8 @0x1f
0x1999…19bc at0020 = ╱45╱E╱ // 0x19b9 @0x20
0x1999…19bc at0021 = ╱43╱C╱ // 0x19ba @0x21
0x1999…19bc at0022 = EOL // 0x19bb @0x22
0x1999…19bc }
0x19bc…19d5 afc3 02550 IF _H\JREC = T_MAXREC THEN
0x19bc…19d5 LineComal80 {
0x19bc…19d5 ptr = 0xafc3 // 0x19bc @0x0
0x19bc…19d5 lno = 0x09f6 // 0x19be @0x2
0x19bc…19d5 at0004 = ╱9b0054╱ IF ╱ // 0x19c0 @0x4
0x19bc…19d5 at0007 = ╱5f╱_╱ // 0x19c3 @0x7
0x19bc…19d5 at0008 = ╱48╱H╱ // 0x19c4 @0x8
0x19bc…19d5 at0009 = ╱5c╱\╱ // 0x19c5 @0x9
0x19bc…19d5 at000a = ╱4a╱J╱ // 0x19c6 @0xa
0x19bc…19d5 at000b = ╱52╱R╱ // 0x19c7 @0xb
0x19bc…19d5 at000c = ╱45╱E╱ // 0x19c8 @0xc
0x19bc…19d5 at000d = ╱43╱C╱ // 0x19c9 @0xd
0x19bc…19d5 at000e = ╱df╱ = ╱ // 0x19ca @0xe
0x19bc…19d5 at000f = ╱54╱T╱ // 0x19cb @0xf
0x19bc…19d5 at0010 = ╱5f╱_╱ // 0x19cc @0x10
0x19bc…19d5 at0011 = ╱4d╱M╱ // 0x19cd @0x11
0x19bc…19d5 at0012 = ╱41╱A╱ // 0x19ce @0x12
0x19bc…19d5 at0013 = ╱58╱X╱ // 0x19cf @0x13
0x19bc…19d5 at0014 = ╱52╱R╱ // 0x19d0 @0x14
0x19bc…19d5 at0015 = ╱45╱E╱ // 0x19d1 @0x15
0x19bc…19d5 at0016 = ╱43╱C╱ // 0x19d2 @0x16
0x19bc…19d5 at0017 = ╱b5╱ THEN ╱ // 0x19d3 @0x17
0x19bc…19d5 at0018 = EOL // 0x19d4 @0x18
0x19bc…19d5 }
0x19d5…19fc afea 02560 EXEC FEJL ( "TRANSAKTIONSFILEN…ER…FULD" )
0x19d5…19fc LineComal80 {
0x19d5…19fc ptr = 0xafea // 0x19d5 @0x0
0x19d5…19fc lno = 0x0a00 // 0x19d7 @0x2
0x19d5…19fc at0004 = ╱9d╱ EXEC ╱ // 0x19d9 @0x4
0x19d5…19fc at0005 = ╱46╱F╱ // 0x19da @0x5
0x19d5…19fc at0006 = ╱45╱E╱ // 0x19db @0x6
0x19d5…19fc at0007 = ╱4a╱J╱ // 0x19dc @0x7
0x19d5…19fc at0008 = ╱4c╱L╱ // 0x19dd @0x8
0x19d5…19fc at0009 = ╱ed╱ ( ╱ // 0x19de @0x9
0x19d5…19fc at000a = ╱22╱"╱ // 0x19df @0xa
0x19d5…19fc at000b = ╱54╱T╱ // 0x19e0 @0xb
0x19d5…19fc at000c = ╱52╱R╱ // 0x19e1 @0xc
0x19d5…19fc at000d = ╱41╱A╱ // 0x19e2 @0xd
0x19d5…19fc at000e = ╱4e╱N╱ // 0x19e3 @0xe
0x19d5…19fc at000f = ╱53╱S╱ // 0x19e4 @0xf
0x19d5…19fc at0010 = ╱41╱A╱ // 0x19e5 @0x10
0x19d5…19fc at0011 = ╱4b╱K╱ // 0x19e6 @0x11
0x19d5…19fc at0012 = ╱54╱T╱ // 0x19e7 @0x12
0x19d5…19fc at0013 = ╱49╱I╱ // 0x19e8 @0x13
0x19d5…19fc at0014 = ╱4f╱O╱ // 0x19e9 @0x14
0x19d5…19fc at0015 = ╱4e╱N╱ // 0x19ea @0x15
0x19d5…19fc at0016 = ╱53╱S╱ // 0x19eb @0x16
0x19d5…19fc at0017 = ╱46╱F╱ // 0x19ec @0x17
0x19d5…19fc at0018 = ╱49╱I╱ // 0x19ed @0x18
0x19d5…19fc at0019 = ╱4c╱L╱ // 0x19ee @0x19
0x19d5…19fc at001a = ╱45╱E╱ // 0x19ef @0x1a
0x19d5…19fc at001b = ╱4e╱N╱ // 0x19f0 @0x1b
0x19d5…19fc at001c = ╱20╱…╱ // 0x19f1 @0x1c
0x19d5…19fc at001d = ╱45╱E╱ // 0x19f2 @0x1d
0x19d5…19fc at001e = ╱52╱R╱ // 0x19f3 @0x1e
0x19d5…19fc at001f = ╱20╱…╱ // 0x19f4 @0x1f
0x19d5…19fc at0020 = ╱46╱F╱ // 0x19f5 @0x20
0x19d5…19fc at0021 = ╱55╱U╱ // 0x19f6 @0x21
0x19d5…19fc at0022 = ╱4c╱L╱ // 0x19f7 @0x22
0x19d5…19fc at0023 = ╱44╱D╱ // 0x19f8 @0x23
0x19d5…19fc at0024 = ╱22╱"╱ // 0x19f9 @0x24
0x19d5…19fc at0025 = ╱ee╱ ) ╱ // 0x19fa @0x25
0x19d5…19fc at0026 = EOL // 0x19fb @0x26
0x19d5…19fc }
0x19fc…1a02 aff0 02570 EXIT
0x19fc…1a02 LineComal80 {
0x19fc…1a02 ptr = 0xaff0 // 0x19fc @0x0
0x19fc…1a02 lno = 0x0a0a // 0x19fe @0x2
0x19fc…1a02 at0004 = ╱99╱ EXIT ╱ // 0x1a00 @0x4
0x19fc…1a02 at0005 = EOL // 0x1a01 @0x5
0x19fc…1a02 }
0x1a02…1a08 aff6 02580 ENDIF
0x1a02…1a08 LineComal80 {
0x1a02…1a08 ptr = 0xaff6 // 0x1a02 @0x0
0x1a02…1a08 lno = 0x0a14 // 0x1a04 @0x2
0x1a02…1a08 at0004 = ╱9c╱ ENDIF ╱ // 0x1a06 @0x4
0x1a02…1a08 at0005 = EOL // 0x1a07 @0x5
0x1a02…1a08 }
0x1a08…1a24 b012 02590 LET T_H\JREC := T_H\JREC + 1
0x1a08…1a24 LineComal80 {
0x1a08…1a24 ptr = 0xb012 // 0x1a08 @0x0
0x1a08…1a24 lno = 0x0a1e // 0x1a0a @0x2
0x1a08…1a24 at0004 = ╱86╱ LET ╱ // 0x1a0c @0x4
0x1a08…1a24 at0005 = ╱54╱T╱ // 0x1a0d @0x5
0x1a08…1a24 at0006 = ╱5f╱_╱ // 0x1a0e @0x6
0x1a08…1a24 at0007 = ╱48╱H╱ // 0x1a0f @0x7
0x1a08…1a24 at0008 = ╱5c╱\╱ // 0x1a10 @0x8
0x1a08…1a24 at0009 = ╱4a╱J╱ // 0x1a11 @0x9
0x1a08…1a24 at000a = ╱52╱R╱ // 0x1a12 @0xa
0x1a08…1a24 at000b = ╱45╱E╱ // 0x1a13 @0xb
0x1a08…1a24 at000c = ╱43╱C╱ // 0x1a14 @0xc
0x1a08…1a24 at000d = ╱f0╱ := ╱ // 0x1a15 @0xd
0x1a08…1a24 at000e = ╱54╱T╱ // 0x1a16 @0xe
0x1a08…1a24 at000f = ╱5f╱_╱ // 0x1a17 @0xf
0x1a08…1a24 at0010 = ╱48╱H╱ // 0x1a18 @0x10
0x1a08…1a24 at0011 = ╱5c╱\╱ // 0x1a19 @0x11
0x1a08…1a24 at0012 = ╱4a╱J╱ // 0x1a1a @0x12
0x1a08…1a24 at0013 = ╱52╱R╱ // 0x1a1b @0x13
0x1a08…1a24 at0014 = ╱45╱E╱ // 0x1a1c @0x14
0x1a08…1a24 at0015 = ╱43╱C╱ // 0x1a1d @0x15
0x1a08…1a24 at0016 = ╱e5╱ + ╱ // 0x1a1e @0x16
0x1a08…1a24 at0017 = ╱31╱1╱ // 0x1a1f @0x17
0x1a08…1a24 at0018 = ╱f20100╱ // 0x1a20 @0x18
0x1a08…1a24 at001b = EOL // 0x1a23 @0x1b
0x1a08…1a24 }
0x1a24…1a37 b025 02600 IF TO_FP > 0 THEN
0x1a24…1a37 LineComal80 {
0x1a24…1a37 ptr = 0xb025 // 0x1a24 @0x0
0x1a24…1a37 lno = 0x0a28 // 0x1a26 @0x2
0x1a24…1a37 at0004 = ╱9b004b╱ IF ╱ // 0x1a28 @0x4
0x1a24…1a37 at0007 = ╱54╱T╱ // 0x1a2b @0x7
0x1a24…1a37 at0008 = ╱4f╱O╱ // 0x1a2c @0x8
0x1a24…1a37 at0009 = ╱5f╱_╱ // 0x1a2d @0x9
0x1a24…1a37 at000a = ╱46╱F╱ // 0x1a2e @0xa
0x1a24…1a37 at000b = ╱50╱P╱ // 0x1a2f @0xb
0x1a24…1a37 at000c = ╱e1╱ > ╱ // 0x1a30 @0xc
0x1a24…1a37 at000d = ╱30╱0╱ // 0x1a31 @0xd
0x1a24…1a37 at000e = ╱f20000╱ // 0x1a32 @0xe
0x1a24…1a37 at0011 = ╱b5╱ THEN ╱ // 0x1a35 @0x11
0x1a24…1a37 at0012 = EOL // 0x1a36 @0x12
0x1a24…1a37 }
0x1a37…1a4e b03c 02610 EXEC L[S_TRANS ( KTO_SP )
0x1a37…1a4e LineComal80 {
0x1a37…1a4e ptr = 0xb03c // 0x1a37 @0x0
0x1a37…1a4e lno = 0x0a32 // 0x1a39 @0x2
0x1a37…1a4e at0004 = ╱9d╱ EXEC ╱ // 0x1a3b @0x4
0x1a37…1a4e at0005 = ╱4c╱L╱ // 0x1a3c @0x5
0x1a37…1a4e at0006 = ╱5b╱[╱ // 0x1a3d @0x6
0x1a37…1a4e at0007 = ╱53╱S╱ // 0x1a3e @0x7
0x1a37…1a4e at0008 = ╱5f╱_╱ // 0x1a3f @0x8
0x1a37…1a4e at0009 = ╱54╱T╱ // 0x1a40 @0x9
0x1a37…1a4e at000a = ╱52╱R╱ // 0x1a41 @0xa
0x1a37…1a4e at000b = ╱41╱A╱ // 0x1a42 @0xb
0x1a37…1a4e at000c = ╱4e╱N╱ // 0x1a43 @0xc
0x1a37…1a4e at000d = ╱53╱S╱ // 0x1a44 @0xd
0x1a37…1a4e at000e = ╱ed╱ ( ╱ // 0x1a45 @0xe
0x1a37…1a4e at000f = ╱4b╱K╱ // 0x1a46 @0xf
0x1a37…1a4e at0010 = ╱54╱T╱ // 0x1a47 @0x10
0x1a37…1a4e at0011 = ╱4f╱O╱ // 0x1a48 @0x11
0x1a37…1a4e at0012 = ╱5f╱_╱ // 0x1a49 @0x12
0x1a37…1a4e at0013 = ╱53╱S╱ // 0x1a4a @0x13
0x1a37…1a4e at0014 = ╱50╱P╱ // 0x1a4b @0x14
0x1a37…1a4e at0015 = ╱ee╱ ) ╱ // 0x1a4c @0x15
0x1a37…1a4e at0016 = EOL // 0x1a4d @0x16
0x1a37…1a4e }
0x1a4e…1a63 b051 02620 LET NTRANS := T_H\JREC
0x1a4e…1a63 LineComal80 {
0x1a4e…1a63 ptr = 0xb051 // 0x1a4e @0x0
0x1a4e…1a63 lno = 0x0a3c // 0x1a50 @0x2
0x1a4e…1a63 at0004 = ╱86╱ LET ╱ // 0x1a52 @0x4
0x1a4e…1a63 at0005 = ╱4e╱N╱ // 0x1a53 @0x5
0x1a4e…1a63 at0006 = ╱54╱T╱ // 0x1a54 @0x6
0x1a4e…1a63 at0007 = ╱52╱R╱ // 0x1a55 @0x7
0x1a4e…1a63 at0008 = ╱41╱A╱ // 0x1a56 @0x8
0x1a4e…1a63 at0009 = ╱4e╱N╱ // 0x1a57 @0x9
0x1a4e…1a63 at000a = ╱53╱S╱ // 0x1a58 @0xa
0x1a4e…1a63 at000b = ╱f0╱ := ╱ // 0x1a59 @0xb
0x1a4e…1a63 at000c = ╱54╱T╱ // 0x1a5a @0xc
0x1a4e…1a63 at000d = ╱5f╱_╱ // 0x1a5b @0xd
0x1a4e…1a63 at000e = ╱48╱H╱ // 0x1a5c @0xe
0x1a4e…1a63 at000f = ╱5c╱\╱ // 0x1a5d @0xf
0x1a4e…1a63 at0010 = ╱4a╱J╱ // 0x1a5e @0x10
0x1a4e…1a63 at0011 = ╱52╱R╱ // 0x1a5f @0x11
0x1a4e…1a63 at0012 = ╱45╱E╱ // 0x1a60 @0x12
0x1a4e…1a63 at0013 = ╱43╱C╱ // 0x1a61 @0x13
0x1a4e…1a63 at0014 = EOL // 0x1a62 @0x14
0x1a4e…1a63 }
0x1a63…1a7c b06a 02630 EXEC SKRIV_TRANS ( KTO_SP )
0x1a63…1a7c LineComal80 {
0x1a63…1a7c ptr = 0xb06a // 0x1a63 @0x0
0x1a63…1a7c lno = 0x0a46 // 0x1a65 @0x2
0x1a63…1a7c at0004 = ╱9d╱ EXEC ╱ // 0x1a67 @0x4
0x1a63…1a7c at0005 = ╱53╱S╱ // 0x1a68 @0x5
0x1a63…1a7c at0006 = ╱4b╱K╱ // 0x1a69 @0x6
0x1a63…1a7c at0007 = ╱52╱R╱ // 0x1a6a @0x7
0x1a63…1a7c at0008 = ╱49╱I╱ // 0x1a6b @0x8
0x1a63…1a7c at0009 = ╱56╱V╱ // 0x1a6c @0x9
0x1a63…1a7c at000a = ╱5f╱_╱ // 0x1a6d @0xa
0x1a63…1a7c at000b = ╱54╱T╱ // 0x1a6e @0xb
0x1a63…1a7c at000c = ╱52╱R╱ // 0x1a6f @0xc
0x1a63…1a7c at000d = ╱41╱A╱ // 0x1a70 @0xd
0x1a63…1a7c at000e = ╱4e╱N╱ // 0x1a71 @0xe
0x1a63…1a7c at000f = ╱53╱S╱ // 0x1a72 @0xf
0x1a63…1a7c at0010 = ╱ed╱ ( ╱ // 0x1a73 @0x10
0x1a63…1a7c at0011 = ╱4b╱K╱ // 0x1a74 @0x11
0x1a63…1a7c at0012 = ╱54╱T╱ // 0x1a75 @0x12
0x1a63…1a7c at0013 = ╱4f╱O╱ // 0x1a76 @0x13
0x1a63…1a7c at0014 = ╱5f╱_╱ // 0x1a77 @0x14
0x1a63…1a7c at0015 = ╱53╱S╱ // 0x1a78 @0x15
0x1a63…1a7c at0016 = ╱50╱P╱ // 0x1a79 @0x16
0x1a63…1a7c at0017 = ╱ee╱ ) ╱ // 0x1a7a @0x17
0x1a63…1a7c at0018 = EOL // 0x1a7b @0x18
0x1a63…1a7c }
0x1a7c…1a83 b071 02640 ELSE
0x1a7c…1a83 LineComal80 {
0x1a7c…1a83 ptr = 0xb071 // 0x1a7c @0x0
0x1a7c…1a83 lno = 0x0a50 // 0x1a7e @0x2
0x1a7c…1a83 at0004 = ╱9a00╱ ELSE ╱ // 0x1a80 @0x4
0x1a7c…1a83 at0006 = EOL // 0x1a82 @0x6
0x1a7c…1a83 }
0x1a83…1a98 b086 02650 LET KTO_FP := T_H\JREC
0x1a83…1a98 LineComal80 {
0x1a83…1a98 ptr = 0xb086 // 0x1a83 @0x0
0x1a83…1a98 lno = 0x0a5a // 0x1a85 @0x2
0x1a83…1a98 at0004 = ╱86╱ LET ╱ // 0x1a87 @0x4
0x1a83…1a98 at0005 = ╱4b╱K╱ // 0x1a88 @0x5
0x1a83…1a98 at0006 = ╱54╱T╱ // 0x1a89 @0x6
0x1a83…1a98 at0007 = ╱4f╱O╱ // 0x1a8a @0x7
0x1a83…1a98 at0008 = ╱5f╱_╱ // 0x1a8b @0x8
0x1a83…1a98 at0009 = ╱46╱F╱ // 0x1a8c @0x9
0x1a83…1a98 at000a = ╱50╱P╱ // 0x1a8d @0xa
0x1a83…1a98 at000b = ╱f0╱ := ╱ // 0x1a8e @0xb
0x1a83…1a98 at000c = ╱54╱T╱ // 0x1a8f @0xc
0x1a83…1a98 at000d = ╱5f╱_╱ // 0x1a90 @0xd
0x1a83…1a98 at000e = ╱48╱H╱ // 0x1a91 @0xe
0x1a83…1a98 at000f = ╱5c╱\╱ // 0x1a92 @0xf
0x1a83…1a98 at0010 = ╱4a╱J╱ // 0x1a93 @0x10
0x1a83…1a98 at0011 = ╱52╱R╱ // 0x1a94 @0x11
0x1a83…1a98 at0012 = ╱45╱E╱ // 0x1a95 @0x12
0x1a83…1a98 at0013 = ╱43╱C╱ // 0x1a96 @0x13
0x1a83…1a98 at0014 = EOL // 0x1a97 @0x14
0x1a83…1a98 }
0x1a98…1a9e b08c 02660 ENDIF
0x1a98…1a9e LineComal80 {
0x1a98…1a9e ptr = 0xb08c // 0x1a98 @0x0
0x1a98…1a9e lno = 0x0a64 // 0x1a9a @0x2
0x1a98…1a9e at0004 = ╱9c╱ ENDIF ╱ // 0x1a9c @0x4
0x1a98…1a9e at0005 = EOL // 0x1a9d @0x5
0x1a98…1a9e }
0x1a9e…1ae3 b0d1 02670 LET BKTONR $ := Q_KTO $ ; BDATO $ := Q_DAT $ ; BTXT $ := Q_TXT $ ; BMOMS := Q_M ; BBEL\B := Q_KR
0x1a9e…1ae3 LineComal80 {
0x1a9e…1ae3 ptr = 0xb0d1 // 0x1a9e @0x0
0x1a9e…1ae3 lno = 0x0a6e // 0x1aa0 @0x2
0x1a9e…1ae3 at0004 = ╱86╱ LET ╱ // 0x1aa2 @0x4
0x1a9e…1ae3 at0005 = ╱42╱B╱ // 0x1aa3 @0x5
0x1a9e…1ae3 at0006 = ╱4b╱K╱ // 0x1aa4 @0x6
0x1a9e…1ae3 at0007 = ╱54╱T╱ // 0x1aa5 @0x7
0x1a9e…1ae3 at0008 = ╱4f╱O╱ // 0x1aa6 @0x8
0x1a9e…1ae3 at0009 = ╱4e╱N╱ // 0x1aa7 @0x9
0x1a9e…1ae3 at000a = ╱52╱R╱ // 0x1aa8 @0xa
0x1a9e…1ae3 at000b = ╱ef╱ $ ╱ // 0x1aa9 @0xb
0x1a9e…1ae3 at000c = ╱f0╱ := ╱ // 0x1aaa @0xc
0x1a9e…1ae3 at000d = ╱51╱Q╱ // 0x1aab @0xd
0x1a9e…1ae3 at000e = ╱5f╱_╱ // 0x1aac @0xe
0x1a9e…1ae3 at000f = ╱4b╱K╱ // 0x1aad @0xf
0x1a9e…1ae3 at0010 = ╱54╱T╱ // 0x1aae @0x10
0x1a9e…1ae3 at0011 = ╱4f╱O╱ // 0x1aaf @0x11
0x1a9e…1ae3 at0012 = ╱ef╱ $ ╱ // 0x1ab0 @0x12
0x1a9e…1ae3 at0013 = ╱ea╱ ; ╱ // 0x1ab1 @0x13
0x1a9e…1ae3 at0014 = ╱42╱B╱ // 0x1ab2 @0x14
0x1a9e…1ae3 at0015 = ╱44╱D╱ // 0x1ab3 @0x15
0x1a9e…1ae3 at0016 = ╱41╱A╱ // 0x1ab4 @0x16
0x1a9e…1ae3 at0017 = ╱54╱T╱ // 0x1ab5 @0x17
0x1a9e…1ae3 at0018 = ╱4f╱O╱ // 0x1ab6 @0x18
0x1a9e…1ae3 at0019 = ╱ef╱ $ ╱ // 0x1ab7 @0x19
0x1a9e…1ae3 at001a = ╱f0╱ := ╱ // 0x1ab8 @0x1a
0x1a9e…1ae3 at001b = ╱51╱Q╱ // 0x1ab9 @0x1b
0x1a9e…1ae3 at001c = ╱5f╱_╱ // 0x1aba @0x1c
0x1a9e…1ae3 at001d = ╱44╱D╱ // 0x1abb @0x1d
0x1a9e…1ae3 at001e = ╱41╱A╱ // 0x1abc @0x1e
0x1a9e…1ae3 at001f = ╱54╱T╱ // 0x1abd @0x1f
0x1a9e…1ae3 at0020 = ╱ef╱ $ ╱ // 0x1abe @0x20
0x1a9e…1ae3 at0021 = ╱ea╱ ; ╱ // 0x1abf @0x21
0x1a9e…1ae3 at0022 = ╱42╱B╱ // 0x1ac0 @0x22
0x1a9e…1ae3 at0023 = ╱54╱T╱ // 0x1ac1 @0x23
0x1a9e…1ae3 at0024 = ╱58╱X╱ // 0x1ac2 @0x24
0x1a9e…1ae3 at0025 = ╱54╱T╱ // 0x1ac3 @0x25
0x1a9e…1ae3 at0026 = ╱ef╱ $ ╱ // 0x1ac4 @0x26
0x1a9e…1ae3 at0027 = ╱f0╱ := ╱ // 0x1ac5 @0x27
0x1a9e…1ae3 at0028 = ╱51╱Q╱ // 0x1ac6 @0x28
0x1a9e…1ae3 at0029 = ╱5f╱_╱ // 0x1ac7 @0x29
0x1a9e…1ae3 at002a = ╱54╱T╱ // 0x1ac8 @0x2a
0x1a9e…1ae3 at002b = ╱58╱X╱ // 0x1ac9 @0x2b
0x1a9e…1ae3 at002c = ╱54╱T╱ // 0x1aca @0x2c
0x1a9e…1ae3 at002d = ╱ef╱ $ ╱ // 0x1acb @0x2d
0x1a9e…1ae3 at002e = ╱ea╱ ; ╱ // 0x1acc @0x2e
0x1a9e…1ae3 at002f = ╱42╱B╱ // 0x1acd @0x2f
0x1a9e…1ae3 at0030 = ╱4d╱M╱ // 0x1ace @0x30
0x1a9e…1ae3 at0031 = ╱4f╱O╱ // 0x1acf @0x31
0x1a9e…1ae3 at0032 = ╱4d╱M╱ // 0x1ad0 @0x32
0x1a9e…1ae3 at0033 = ╱53╱S╱ // 0x1ad1 @0x33
0x1a9e…1ae3 at0034 = ╱f0╱ := ╱ // 0x1ad2 @0x34
0x1a9e…1ae3 at0035 = ╱51╱Q╱ // 0x1ad3 @0x35
0x1a9e…1ae3 at0036 = ╱5f╱_╱ // 0x1ad4 @0x36
0x1a9e…1ae3 at0037 = ╱4d╱M╱ // 0x1ad5 @0x37
0x1a9e…1ae3 at0038 = ╱ea╱ ; ╱ // 0x1ad6 @0x38
0x1a9e…1ae3 at0039 = ╱42╱B╱ // 0x1ad7 @0x39
0x1a9e…1ae3 at003a = ╱42╱B╱ // 0x1ad8 @0x3a
0x1a9e…1ae3 at003b = ╱45╱E╱ // 0x1ad9 @0x3b
0x1a9e…1ae3 at003c = ╱4c╱L╱ // 0x1ada @0x3c
0x1a9e…1ae3 at003d = ╱5c╱\╱ // 0x1adb @0x3d
0x1a9e…1ae3 at003e = ╱42╱B╱ // 0x1adc @0x3e
0x1a9e…1ae3 at003f = ╱f0╱ := ╱ // 0x1add @0x3f
0x1a9e…1ae3 at0040 = ╱51╱Q╱ // 0x1ade @0x40
0x1a9e…1ae3 at0041 = ╱5f╱_╱ // 0x1adf @0x41
0x1a9e…1ae3 at0042 = ╱4b╱K╱ // 0x1ae0 @0x42
0x1a9e…1ae3 at0043 = ╱52╱R╱ // 0x1ae1 @0x43
0x1a9e…1ae3 at0044 = EOL // 0x1ae2 @0x44
0x1a9e…1ae3 }
0x1ae3…1b06 b0f4 02680 LET DK := Q_DK ; NTRANS := NUL ; BLGNR $ := QN $
0x1ae3…1b06 LineComal80 {
0x1ae3…1b06 ptr = 0xb0f4 // 0x1ae3 @0x0
0x1ae3…1b06 lno = 0x0a78 // 0x1ae5 @0x2
0x1ae3…1b06 at0004 = ╱86╱ LET ╱ // 0x1ae7 @0x4
0x1ae3…1b06 at0005 = ╱44╱D╱ // 0x1ae8 @0x5
0x1ae3…1b06 at0006 = ╱4b╱K╱ // 0x1ae9 @0x6
0x1ae3…1b06 at0007 = ╱f0╱ := ╱ // 0x1aea @0x7
0x1ae3…1b06 at0008 = ╱51╱Q╱ // 0x1aeb @0x8
0x1ae3…1b06 at0009 = ╱5f╱_╱ // 0x1aec @0x9
0x1ae3…1b06 at000a = ╱44╱D╱ // 0x1aed @0xa
0x1ae3…1b06 at000b = ╱4b╱K╱ // 0x1aee @0xb
0x1ae3…1b06 at000c = ╱ea╱ ; ╱ // 0x1aef @0xc
0x1ae3…1b06 at000d = ╱4e╱N╱ // 0x1af0 @0xd
0x1ae3…1b06 at000e = ╱54╱T╱ // 0x1af1 @0xe
0x1ae3…1b06 at000f = ╱52╱R╱ // 0x1af2 @0xf
0x1ae3…1b06 at0010 = ╱41╱A╱ // 0x1af3 @0x10
0x1ae3…1b06 at0011 = ╱4e╱N╱ // 0x1af4 @0x11
0x1ae3…1b06 at0012 = ╱53╱S╱ // 0x1af5 @0x12
0x1ae3…1b06 at0013 = ╱f0╱ := ╱ // 0x1af6 @0x13
0x1ae3…1b06 at0014 = ╱4e╱N╱ // 0x1af7 @0x14
0x1ae3…1b06 at0015 = ╱55╱U╱ // 0x1af8 @0x15
0x1ae3…1b06 at0016 = ╱4c╱L╱ // 0x1af9 @0x16
0x1ae3…1b06 at0017 = ╱ea╱ ; ╱ // 0x1afa @0x17
0x1ae3…1b06 at0018 = ╱42╱B╱ // 0x1afb @0x18
0x1ae3…1b06 at0019 = ╱4c╱L╱ // 0x1afc @0x19
0x1ae3…1b06 at001a = ╱47╱G╱ // 0x1afd @0x1a
0x1ae3…1b06 at001b = ╱4e╱N╱ // 0x1afe @0x1b
0x1ae3…1b06 at001c = ╱52╱R╱ // 0x1aff @0x1c
0x1ae3…1b06 at001d = ╱ef╱ $ ╱ // 0x1b00 @0x1d
0x1ae3…1b06 at001e = ╱f0╱ := ╱ // 0x1b01 @0x1e
0x1ae3…1b06 at001f = ╱51╱Q╱ // 0x1b02 @0x1f
0x1ae3…1b06 at0020 = ╱4e╱N╱ // 0x1b03 @0x20
0x1ae3…1b06 at0021 = ╱ef╱ $ ╱ // 0x1b04 @0x21
0x1ae3…1b06 at0022 = EOL // 0x1b05 @0x22
0x1ae3…1b06 }
0x1b06…1b21 b10f 02690 EXEC SKRIV_TRANS ( T_H\JREC )
0x1b06…1b21 LineComal80 {
0x1b06…1b21 ptr = 0xb10f // 0x1b06 @0x0
0x1b06…1b21 lno = 0x0a82 // 0x1b08 @0x2
0x1b06…1b21 at0004 = ╱9d╱ EXEC ╱ // 0x1b0a @0x4
0x1b06…1b21 at0005 = ╱53╱S╱ // 0x1b0b @0x5
0x1b06…1b21 at0006 = ╱4b╱K╱ // 0x1b0c @0x6
0x1b06…1b21 at0007 = ╱52╱R╱ // 0x1b0d @0x7
0x1b06…1b21 at0008 = ╱49╱I╱ // 0x1b0e @0x8
0x1b06…1b21 at0009 = ╱56╱V╱ // 0x1b0f @0x9
0x1b06…1b21 at000a = ╱5f╱_╱ // 0x1b10 @0xa
0x1b06…1b21 at000b = ╱54╱T╱ // 0x1b11 @0xb
0x1b06…1b21 at000c = ╱52╱R╱ // 0x1b12 @0xc
0x1b06…1b21 at000d = ╱41╱A╱ // 0x1b13 @0xd
0x1b06…1b21 at000e = ╱4e╱N╱ // 0x1b14 @0xe
0x1b06…1b21 at000f = ╱53╱S╱ // 0x1b15 @0xf
0x1b06…1b21 at0010 = ╱ed╱ ( ╱ // 0x1b16 @0x10
0x1b06…1b21 at0011 = ╱54╱T╱ // 0x1b17 @0x11
0x1b06…1b21 at0012 = ╱5f╱_╱ // 0x1b18 @0x12
0x1b06…1b21 at0013 = ╱48╱H╱ // 0x1b19 @0x13
0x1b06…1b21 at0014 = ╱5c╱\╱ // 0x1b1a @0x14
0x1b06…1b21 at0015 = ╱4a╱J╱ // 0x1b1b @0x15
0x1b06…1b21 at0016 = ╱52╱R╱ // 0x1b1c @0x16
0x1b06…1b21 at0017 = ╱45╱E╱ // 0x1b1d @0x17
0x1b06…1b21 at0018 = ╱43╱C╱ // 0x1b1e @0x18
0x1b06…1b21 at0019 = ╱ee╱ ) ╱ // 0x1b1f @0x19
0x1b06…1b21 at001a = EOL // 0x1b20 @0x1a
0x1b06…1b21 }
0x1b21…1b36 b124 02700 LET KTO_SP := T_H\JREC
0x1b21…1b36 LineComal80 {
0x1b21…1b36 ptr = 0xb124 // 0x1b21 @0x0
0x1b21…1b36 lno = 0x0a8c // 0x1b23 @0x2
0x1b21…1b36 at0004 = ╱86╱ LET ╱ // 0x1b25 @0x4
0x1b21…1b36 at0005 = ╱4b╱K╱ // 0x1b26 @0x5
0x1b21…1b36 at0006 = ╱54╱T╱ // 0x1b27 @0x6
0x1b21…1b36 at0007 = ╱4f╱O╱ // 0x1b28 @0x7
0x1b21…1b36 at0008 = ╱5f╱_╱ // 0x1b29 @0x8
0x1b21…1b36 at0009 = ╱53╱S╱ // 0x1b2a @0x9
0x1b21…1b36 at000a = ╱50╱P╱ // 0x1b2b @0xa
0x1b21…1b36 at000b = ╱f0╱ := ╱ // 0x1b2c @0xb
0x1b21…1b36 at000c = ╱54╱T╱ // 0x1b2d @0xc
0x1b21…1b36 at000d = ╱5f╱_╱ // 0x1b2e @0xd
0x1b21…1b36 at000e = ╱48╱H╱ // 0x1b2f @0xe
0x1b21…1b36 at000f = ╱5c╱\╱ // 0x1b30 @0xf
0x1b21…1b36 at0010 = ╱4a╱J╱ // 0x1b31 @0x10
0x1b21…1b36 at0011 = ╱52╱R╱ // 0x1b32 @0x11
0x1b21…1b36 at0012 = ╱45╱E╱ // 0x1b33 @0x12
0x1b21…1b36 at0013 = ╱43╱C╱ // 0x1b34 @0x13
0x1b21…1b36 at0014 = EOL // 0x1b35 @0x14
0x1b21…1b36 }
0x1b36…1b46 b134 02710 IF K = DEBET THEN
0x1b36…1b46 LineComal80 {
0x1b36…1b46 ptr = 0xb134 // 0x1b36 @0x0
0x1b36…1b46 lno = 0x0a96 // 0x1b38 @0x2
0x1b36…1b46 at0004 = ╱9b0044╱ IF ╱ // 0x1b3a @0x4
0x1b36…1b46 at0007 = ╱4b╱K╱ // 0x1b3d @0x7
0x1b36…1b46 at0008 = ╱df╱ = ╱ // 0x1b3e @0x8
0x1b36…1b46 at0009 = ╱44╱D╱ // 0x1b3f @0x9
0x1b36…1b46 at000a = ╱45╱E╱ // 0x1b40 @0xa
0x1b36…1b46 at000b = ╱42╱B╱ // 0x1b41 @0xb
0x1b36…1b46 at000c = ╱45╱E╱ // 0x1b42 @0xc
0x1b36…1b46 at000d = ╱54╱T╱ // 0x1b43 @0xd
0x1b36…1b46 at000e = ╱b5╱ THEN ╱ // 0x1b44 @0xe
0x1b36…1b46 at000f = EOL // 0x1b45 @0xf
0x1b36…1b46 }
0x1b46…1b68 b156 02720 LET KTO_ULTIMO := KTO_ULTIMO + BBEL\B
0x1b46…1b68 LineComal80 {
0x1b46…1b68 ptr = 0xb156 // 0x1b46 @0x0
0x1b46…1b68 lno = 0x0aa0 // 0x1b48 @0x2
0x1b46…1b68 at0004 = ╱86╱ LET ╱ // 0x1b4a @0x4
0x1b46…1b68 at0005 = ╱4b╱K╱ // 0x1b4b @0x5
0x1b46…1b68 at0006 = ╱54╱T╱ // 0x1b4c @0x6
0x1b46…1b68 at0007 = ╱4f╱O╱ // 0x1b4d @0x7
0x1b46…1b68 at0008 = ╱5f╱_╱ // 0x1b4e @0x8
0x1b46…1b68 at0009 = ╱55╱U╱ // 0x1b4f @0x9
0x1b46…1b68 at000a = ╱4c╱L╱ // 0x1b50 @0xa
0x1b46…1b68 at000b = ╱54╱T╱ // 0x1b51 @0xb
0x1b46…1b68 at000c = ╱49╱I╱ // 0x1b52 @0xc
0x1b46…1b68 at000d = ╱4d╱M╱ // 0x1b53 @0xd
0x1b46…1b68 at000e = ╱4f╱O╱ // 0x1b54 @0xe
0x1b46…1b68 at000f = ╱f0╱ := ╱ // 0x1b55 @0xf
0x1b46…1b68 at0010 = ╱4b╱K╱ // 0x1b56 @0x10
0x1b46…1b68 at0011 = ╱54╱T╱ // 0x1b57 @0x11
0x1b46…1b68 at0012 = ╱4f╱O╱ // 0x1b58 @0x12
0x1b46…1b68 at0013 = ╱5f╱_╱ // 0x1b59 @0x13
0x1b46…1b68 at0014 = ╱55╱U╱ // 0x1b5a @0x14
0x1b46…1b68 at0015 = ╱4c╱L╱ // 0x1b5b @0x15
0x1b46…1b68 at0016 = ╱54╱T╱ // 0x1b5c @0x16
0x1b46…1b68 at0017 = ╱49╱I╱ // 0x1b5d @0x17
0x1b46…1b68 at0018 = ╱4d╱M╱ // 0x1b5e @0x18
0x1b46…1b68 at0019 = ╱4f╱O╱ // 0x1b5f @0x19
0x1b46…1b68 at001a = ╱e5╱ + ╱ // 0x1b60 @0x1a
0x1b46…1b68 at001b = ╱42╱B╱ // 0x1b61 @0x1b
0x1b46…1b68 at001c = ╱42╱B╱ // 0x1b62 @0x1c
0x1b46…1b68 at001d = ╱45╱E╱ // 0x1b63 @0x1d
0x1b46…1b68 at001e = ╱4c╱L╱ // 0x1b64 @0x1e
0x1b46…1b68 at001f = ╱5c╱\╱ // 0x1b65 @0x1f
0x1b46…1b68 at0020 = ╱42╱B╱ // 0x1b66 @0x20
0x1b46…1b68 at0021 = EOL // 0x1b67 @0x21
0x1b46…1b68 }
0x1b68…1b6f b15d 02730 ELSE
0x1b68…1b6f LineComal80 {
0x1b68…1b6f ptr = 0xb15d // 0x1b68 @0x0
0x1b68…1b6f lno = 0x0aaa // 0x1b6a @0x2
0x1b68…1b6f at0004 = ╱9a00╱ ELSE ╱ // 0x1b6c @0x4
0x1b68…1b6f at0006 = EOL // 0x1b6e @0x6
0x1b68…1b6f }
0x1b6f…1b91 b17f 02740 LET KTO_ULTIMO := KTO_ULTIMO - BBEL\B
0x1b6f…1b91 LineComal80 {
0x1b6f…1b91 ptr = 0xb17f // 0x1b6f @0x0
0x1b6f…1b91 lno = 0x0ab4 // 0x1b71 @0x2
0x1b6f…1b91 at0004 = ╱86╱ LET ╱ // 0x1b73 @0x4
0x1b6f…1b91 at0005 = ╱4b╱K╱ // 0x1b74 @0x5
0x1b6f…1b91 at0006 = ╱54╱T╱ // 0x1b75 @0x6
0x1b6f…1b91 at0007 = ╱4f╱O╱ // 0x1b76 @0x7
0x1b6f…1b91 at0008 = ╱5f╱_╱ // 0x1b77 @0x8
0x1b6f…1b91 at0009 = ╱55╱U╱ // 0x1b78 @0x9
0x1b6f…1b91 at000a = ╱4c╱L╱ // 0x1b79 @0xa
0x1b6f…1b91 at000b = ╱54╱T╱ // 0x1b7a @0xb
0x1b6f…1b91 at000c = ╱49╱I╱ // 0x1b7b @0xc
0x1b6f…1b91 at000d = ╱4d╱M╱ // 0x1b7c @0xd
0x1b6f…1b91 at000e = ╱4f╱O╱ // 0x1b7d @0xe
0x1b6f…1b91 at000f = ╱f0╱ := ╱ // 0x1b7e @0xf
0x1b6f…1b91 at0010 = ╱4b╱K╱ // 0x1b7f @0x10
0x1b6f…1b91 at0011 = ╱54╱T╱ // 0x1b80 @0x11
0x1b6f…1b91 at0012 = ╱4f╱O╱ // 0x1b81 @0x12
0x1b6f…1b91 at0013 = ╱5f╱_╱ // 0x1b82 @0x13
0x1b6f…1b91 at0014 = ╱55╱U╱ // 0x1b83 @0x14
0x1b6f…1b91 at0015 = ╱4c╱L╱ // 0x1b84 @0x15
0x1b6f…1b91 at0016 = ╱54╱T╱ // 0x1b85 @0x16
0x1b6f…1b91 at0017 = ╱49╱I╱ // 0x1b86 @0x17
0x1b6f…1b91 at0018 = ╱4d╱M╱ // 0x1b87 @0x18
0x1b6f…1b91 at0019 = ╱4f╱O╱ // 0x1b88 @0x19
0x1b6f…1b91 at001a = ╱e6╱ - ╱ // 0x1b89 @0x1a
0x1b6f…1b91 at001b = ╱42╱B╱ // 0x1b8a @0x1b
0x1b6f…1b91 at001c = ╱42╱B╱ // 0x1b8b @0x1c
0x1b6f…1b91 at001d = ╱45╱E╱ // 0x1b8c @0x1d
0x1b6f…1b91 at001e = ╱4c╱L╱ // 0x1b8d @0x1e
0x1b6f…1b91 at001f = ╱5c╱\╱ // 0x1b8e @0x1f
0x1b6f…1b91 at0020 = ╱42╱B╱ // 0x1b8f @0x20
0x1b6f…1b91 at0021 = EOL // 0x1b90 @0x21
0x1b6f…1b91 }
0x1b91…1b97 b185 02750 ENDIF
0x1b91…1b97 LineComal80 {
0x1b91…1b97 ptr = 0xb185 // 0x1b91 @0x0
0x1b91…1b97 lno = 0x0abe // 0x1b93 @0x2
0x1b91…1b97 at0004 = ╱9c╱ ENDIF ╱ // 0x1b95 @0x4
0x1b91…1b97 at0005 = EOL // 0x1b96 @0x5
0x1b91…1b97 }
0x1b97…1baf b19d 02760 EXEC SKRIV_KONTO ( RECNR )
0x1b97…1baf LineComal80 {
0x1b97…1baf ptr = 0xb19d // 0x1b97 @0x0
0x1b97…1baf lno = 0x0ac8 // 0x1b99 @0x2
0x1b97…1baf at0004 = ╱9d╱ EXEC ╱ // 0x1b9b @0x4
0x1b97…1baf at0005 = ╱53╱S╱ // 0x1b9c @0x5
0x1b97…1baf at0006 = ╱4b╱K╱ // 0x1b9d @0x6
0x1b97…1baf at0007 = ╱52╱R╱ // 0x1b9e @0x7
0x1b97…1baf at0008 = ╱49╱I╱ // 0x1b9f @0x8
0x1b97…1baf at0009 = ╱56╱V╱ // 0x1ba0 @0x9
0x1b97…1baf at000a = ╱5f╱_╱ // 0x1ba1 @0xa
0x1b97…1baf at000b = ╱4b╱K╱ // 0x1ba2 @0xb
0x1b97…1baf at000c = ╱4f╱O╱ // 0x1ba3 @0xc
0x1b97…1baf at000d = ╱4e╱N╱ // 0x1ba4 @0xd
0x1b97…1baf at000e = ╱54╱T╱ // 0x1ba5 @0xe
0x1b97…1baf at000f = ╱4f╱O╱ // 0x1ba6 @0xf
0x1b97…1baf at0010 = ╱ed╱ ( ╱ // 0x1ba7 @0x10
0x1b97…1baf at0011 = ╱52╱R╱ // 0x1ba8 @0x11
0x1b97…1baf at0012 = ╱45╱E╱ // 0x1ba9 @0x12
0x1b97…1baf at0013 = ╱43╱C╱ // 0x1baa @0x13
0x1b97…1baf at0014 = ╱4e╱N╱ // 0x1bab @0x14
0x1b97…1baf at0015 = ╱52╱R╱ // 0x1bac @0x15
0x1b97…1baf at0016 = ╱ee╱ ) ╱ // 0x1bad @0x16
0x1b97…1baf at0017 = EOL // 0x1bae @0x17
0x1b97…1baf }
0x1baf…1bd2 b1c0 02770 PUT TRANS $ , 1 : T_H\JREC , T_MAXREC
0x1baf…1bd2 LineComal80 {
0x1baf…1bd2 ptr = 0xb1c0 // 0x1baf @0x0
0x1baf…1bd2 lno = 0x0ad2 // 0x1bb1 @0x2
0x1baf…1bd2 at0004 = ╱aa╱ PUT ╱ // 0x1bb3 @0x4
0x1baf…1bd2 at0005 = ╱54╱T╱ // 0x1bb4 @0x5
0x1baf…1bd2 at0006 = ╱52╱R╱ // 0x1bb5 @0x6
0x1baf…1bd2 at0007 = ╱41╱A╱ // 0x1bb6 @0x7
0x1baf…1bd2 at0008 = ╱4e╱N╱ // 0x1bb7 @0x8
0x1baf…1bd2 at0009 = ╱53╱S╱ // 0x1bb8 @0x9
0x1baf…1bd2 at000a = ╱ef╱ $ ╱ // 0x1bb9 @0xa
0x1baf…1bd2 at000b = ╱ec╱ , ╱ // 0x1bba @0xb
0x1baf…1bd2 at000c = ╱31╱1╱ // 0x1bbb @0xc
0x1baf…1bd2 at000d = ╱f20100╱ // 0x1bbc @0xd
0x1baf…1bd2 at0010 = ╱f1╱ : ╱ // 0x1bbf @0x10
0x1baf…1bd2 at0011 = ╱54╱T╱ // 0x1bc0 @0x11
0x1baf…1bd2 at0012 = ╱5f╱_╱ // 0x1bc1 @0x12
0x1baf…1bd2 at0013 = ╱48╱H╱ // 0x1bc2 @0x13
0x1baf…1bd2 at0014 = ╱5c╱\╱ // 0x1bc3 @0x14
0x1baf…1bd2 at0015 = ╱4a╱J╱ // 0x1bc4 @0x15
0x1baf…1bd2 at0016 = ╱52╱R╱ // 0x1bc5 @0x16
0x1baf…1bd2 at0017 = ╱45╱E╱ // 0x1bc6 @0x17
0x1baf…1bd2 at0018 = ╱43╱C╱ // 0x1bc7 @0x18
0x1baf…1bd2 at0019 = ╱ec╱ , ╱ // 0x1bc8 @0x19
0x1baf…1bd2 at001a = ╱54╱T╱ // 0x1bc9 @0x1a
0x1baf…1bd2 at001b = ╱5f╱_╱ // 0x1bca @0x1b
0x1baf…1bd2 at001c = ╱4d╱M╱ // 0x1bcb @0x1c
0x1baf…1bd2 at001d = ╱41╱A╱ // 0x1bcc @0x1d
0x1baf…1bd2 at001e = ╱58╱X╱ // 0x1bcd @0x1e
0x1baf…1bd2 at001f = ╱52╱R╱ // 0x1bce @0x1f
0x1baf…1bd2 at0020 = ╱45╱E╱ // 0x1bcf @0x20
0x1baf…1bd2 at0021 = ╱43╱C╱ // 0x1bd0 @0x21
0x1baf…1bd2 at0022 = EOL // 0x1bd1 @0x22
0x1baf…1bd2 }
0x1bd2…1bde b1cc 02780 ENDPROC BOGF\R
0x1bd2…1bde LineComal80 {
0x1bd2…1bde ptr = 0xb1cc // 0x1bd2 @0x0
0x1bd2…1bde lno = 0x0adc // 0x1bd4 @0x2
0x1bd2…1bde at0004 = ╱9f╱ ENDPROC ╱ // 0x1bd6 @0x4
0x1bd2…1bde at0005 = ╱42╱B╱ // 0x1bd7 @0x5
0x1bd2…1bde at0006 = ╱4f╱O╱ // 0x1bd8 @0x6
0x1bd2…1bde at0007 = ╱47╱G╱ // 0x1bd9 @0x7
0x1bd2…1bde at0008 = ╱46╱F╱ // 0x1bda @0x8
0x1bd2…1bde at0009 = ╱5c╱\╱ // 0x1bdb @0x9
0x1bd2…1bde at000a = ╱52╱R╱ // 0x1bdc @0xa
0x1bd2…1bde at000b = EOL // 0x1bdd @0xb
0x1bd2…1bde }
0x1bde…1be3 b1d1 02790
0x1bde…1be3 LineComal80 {
0x1bde…1be3 ptr = 0xb1d1 // 0x1bde @0x0
0x1bde…1be3 lno = 0x0ae6 // 0x1be0 @0x2
0x1bde…1be3 at0004 = EOL // 0x1be2 @0x4
0x1bde…1be3 }
0x1be3…1bf8 b1e6 02800 PROC SKRIV_TRANS ( P )
0x1be3…1bf8 LineComal80 {
0x1be3…1bf8 ptr = 0xb1e6 // 0x1be3 @0x0
0x1be3…1bf8 lno = 0x0af0 // 0x1be5 @0x2
0x1be3…1bf8 at0004 = ╱9e00╱ PROC ╱ // 0x1be7 @0x4
0x1be3…1bf8 at0006 = ╱53╱S╱ // 0x1be9 @0x6
0x1be3…1bf8 at0007 = ╱4b╱K╱ // 0x1bea @0x7
0x1be3…1bf8 at0008 = ╱52╱R╱ // 0x1beb @0x8
0x1be3…1bf8 at0009 = ╱49╱I╱ // 0x1bec @0x9
0x1be3…1bf8 at000a = ╱56╱V╱ // 0x1bed @0xa
0x1be3…1bf8 at000b = ╱5f╱_╱ // 0x1bee @0xb
0x1be3…1bf8 at000c = ╱54╱T╱ // 0x1bef @0xc
0x1be3…1bf8 at000d = ╱52╱R╱ // 0x1bf0 @0xd
0x1be3…1bf8 at000e = ╱41╱A╱ // 0x1bf1 @0xe
0x1be3…1bf8 at000f = ╱4e╱N╱ // 0x1bf2 @0xf
0x1be3…1bf8 at0010 = ╱53╱S╱ // 0x1bf3 @0x10
0x1be3…1bf8 at0011 = ╱ed╱ ( ╱ // 0x1bf4 @0x11
0x1be3…1bf8 at0012 = ╱50╱P╱ // 0x1bf5 @0x12
0x1be3…1bf8 at0013 = ╱ee╱ ) ╱ // 0x1bf6 @0x13
0x1be3…1bf8 at0014 = EOL // 0x1bf7 @0x14
0x1be3…1bf8 }
0x1bf8…1c39 b227 02810 PUT TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
0x1bf8…1c39 LineComal80 {
0x1bf8…1c39 ptr = 0xb227 // 0x1bf8 @0x0
0x1bf8…1c39 lno = 0x0afa // 0x1bfa @0x2
0x1bf8…1c39 at0004 = ╱aa╱ PUT ╱ // 0x1bfc @0x4
0x1bf8…1c39 at0005 = ╱54╱T╱ // 0x1bfd @0x5
0x1bf8…1c39 at0006 = ╱52╱R╱ // 0x1bfe @0x6
0x1bf8…1c39 at0007 = ╱41╱A╱ // 0x1bff @0x7
0x1bf8…1c39 at0008 = ╱4e╱N╱ // 0x1c00 @0x8
0x1bf8…1c39 at0009 = ╱53╱S╱ // 0x1c01 @0x9
0x1bf8…1c39 at000a = ╱ef╱ $ ╱ // 0x1c02 @0xa
0x1bf8…1c39 at000b = ╱ec╱ , ╱ // 0x1c03 @0xb
0x1bf8…1c39 at000c = ╱50╱P╱ // 0x1c04 @0xc
0x1bf8…1c39 at000d = ╱f1╱ : ╱ // 0x1c05 @0xd
0x1bf8…1c39 at000e = ╱42╱B╱ // 0x1c06 @0xe
0x1bf8…1c39 at000f = ╱4b╱K╱ // 0x1c07 @0xf
0x1bf8…1c39 at0010 = ╱54╱T╱ // 0x1c08 @0x10
0x1bf8…1c39 at0011 = ╱4f╱O╱ // 0x1c09 @0x11
0x1bf8…1c39 at0012 = ╱4e╱N╱ // 0x1c0a @0x12
0x1bf8…1c39 at0013 = ╱52╱R╱ // 0x1c0b @0x13
0x1bf8…1c39 at0014 = ╱ef╱ $ ╱ // 0x1c0c @0x14
0x1bf8…1c39 at0015 = ╱ec╱ , ╱ // 0x1c0d @0x15
0x1bf8…1c39 at0016 = ╱42╱B╱ // 0x1c0e @0x16
0x1bf8…1c39 at0017 = ╱44╱D╱ // 0x1c0f @0x17
0x1bf8…1c39 at0018 = ╱41╱A╱ // 0x1c10 @0x18
0x1bf8…1c39 at0019 = ╱54╱T╱ // 0x1c11 @0x19
0x1bf8…1c39 at001a = ╱4f╱O╱ // 0x1c12 @0x1a
0x1bf8…1c39 at001b = ╱ef╱ $ ╱ // 0x1c13 @0x1b
0x1bf8…1c39 at001c = ╱ec╱ , ╱ // 0x1c14 @0x1c
0x1bf8…1c39 at001d = ╱42╱B╱ // 0x1c15 @0x1d
0x1bf8…1c39 at001e = ╱4c╱L╱ // 0x1c16 @0x1e
0x1bf8…1c39 at001f = ╱47╱G╱ // 0x1c17 @0x1f
0x1bf8…1c39 at0020 = ╱4e╱N╱ // 0x1c18 @0x20
0x1bf8…1c39 at0021 = ╱52╱R╱ // 0x1c19 @0x21
0x1bf8…1c39 at0022 = ╱ef╱ $ ╱ // 0x1c1a @0x22
0x1bf8…1c39 at0023 = ╱ec╱ , ╱ // 0x1c1b @0x23
0x1bf8…1c39 at0024 = ╱42╱B╱ // 0x1c1c @0x24
0x1bf8…1c39 at0025 = ╱54╱T╱ // 0x1c1d @0x25
0x1bf8…1c39 at0026 = ╱58╱X╱ // 0x1c1e @0x26
0x1bf8…1c39 at0027 = ╱54╱T╱ // 0x1c1f @0x27
0x1bf8…1c39 at0028 = ╱ef╱ $ ╱ // 0x1c20 @0x28
0x1bf8…1c39 at0029 = ╱ec╱ , ╱ // 0x1c21 @0x29
0x1bf8…1c39 at002a = ╱42╱B╱ // 0x1c22 @0x2a
0x1bf8…1c39 at002b = ╱4d╱M╱ // 0x1c23 @0x2b
0x1bf8…1c39 at002c = ╱4f╱O╱ // 0x1c24 @0x2c
0x1bf8…1c39 at002d = ╱4d╱M╱ // 0x1c25 @0x2d
0x1bf8…1c39 at002e = ╱53╱S╱ // 0x1c26 @0x2e
0x1bf8…1c39 at002f = ╱ec╱ , ╱ // 0x1c27 @0x2f
0x1bf8…1c39 at0030 = ╱42╱B╱ // 0x1c28 @0x30
0x1bf8…1c39 at0031 = ╱42╱B╱ // 0x1c29 @0x31
0x1bf8…1c39 at0032 = ╱45╱E╱ // 0x1c2a @0x32
0x1bf8…1c39 at0033 = ╱4c╱L╱ // 0x1c2b @0x33
0x1bf8…1c39 at0034 = ╱5c╱\╱ // 0x1c2c @0x34
0x1bf8…1c39 at0035 = ╱42╱B╱ // 0x1c2d @0x35
0x1bf8…1c39 at0036 = ╱ec╱ , ╱ // 0x1c2e @0x36
0x1bf8…1c39 at0037 = ╱44╱D╱ // 0x1c2f @0x37
0x1bf8…1c39 at0038 = ╱4b╱K╱ // 0x1c30 @0x38
0x1bf8…1c39 at0039 = ╱ec╱ , ╱ // 0x1c31 @0x39
0x1bf8…1c39 at003a = ╱4e╱N╱ // 0x1c32 @0x3a
0x1bf8…1c39 at003b = ╱54╱T╱ // 0x1c33 @0x3b
0x1bf8…1c39 at003c = ╱52╱R╱ // 0x1c34 @0x3c
0x1bf8…1c39 at003d = ╱41╱A╱ // 0x1c35 @0x3d
0x1bf8…1c39 at003e = ╱4e╱N╱ // 0x1c36 @0x3e
0x1bf8…1c39 at003f = ╱53╱S╱ // 0x1c37 @0x3f
0x1bf8…1c39 at0040 = EOL // 0x1c38 @0x40
0x1bf8…1c39 }
0x1c39…1c4a b238 02820 ENDPROC SKRIV_TRANS
0x1c39…1c4a LineComal80 {
0x1c39…1c4a ptr = 0xb238 // 0x1c39 @0x0
0x1c39…1c4a lno = 0x0b04 // 0x1c3b @0x2
0x1c39…1c4a at0004 = ╱9f╱ ENDPROC ╱ // 0x1c3d @0x4
0x1c39…1c4a at0005 = ╱53╱S╱ // 0x1c3e @0x5
0x1c39…1c4a at0006 = ╱4b╱K╱ // 0x1c3f @0x6
0x1c39…1c4a at0007 = ╱52╱R╱ // 0x1c40 @0x7
0x1c39…1c4a at0008 = ╱49╱I╱ // 0x1c41 @0x8
0x1c39…1c4a at0009 = ╱56╱V╱ // 0x1c42 @0x9
0x1c39…1c4a at000a = ╱5f╱_╱ // 0x1c43 @0xa
0x1c39…1c4a at000b = ╱54╱T╱ // 0x1c44 @0xb
0x1c39…1c4a at000c = ╱52╱R╱ // 0x1c45 @0xc
0x1c39…1c4a at000d = ╱41╱A╱ // 0x1c46 @0xd
0x1c39…1c4a at000e = ╱4e╱N╱ // 0x1c47 @0xe
0x1c39…1c4a at000f = ╱53╱S╱ // 0x1c48 @0xf
0x1c39…1c4a at0010 = EOL // 0x1c49 @0x10
0x1c39…1c4a }
0x1c4a…1c4f b23d 02830
0x1c4a…1c4f LineComal80 {
0x1c4a…1c4f ptr = 0xb23d // 0x1c4a @0x0
0x1c4a…1c4f lno = 0x0b0e // 0x1c4c @0x2
0x1c4a…1c4f at0004 = EOL // 0x1c4e @0x4
0x1c4a…1c4f }
0x1c4f…1c62 b250 02840 PROC L[S_TRANS ( P )
0x1c4f…1c62 LineComal80 {
0x1c4f…1c62 ptr = 0xb250 // 0x1c4f @0x0
0x1c4f…1c62 lno = 0x0b18 // 0x1c51 @0x2
0x1c4f…1c62 at0004 = ╱9e00╱ PROC ╱ // 0x1c53 @0x4
0x1c4f…1c62 at0006 = ╱4c╱L╱ // 0x1c55 @0x6
0x1c4f…1c62 at0007 = ╱5b╱[╱ // 0x1c56 @0x7
0x1c4f…1c62 at0008 = ╱53╱S╱ // 0x1c57 @0x8
0x1c4f…1c62 at0009 = ╱5f╱_╱ // 0x1c58 @0x9
0x1c4f…1c62 at000a = ╱54╱T╱ // 0x1c59 @0xa
0x1c4f…1c62 at000b = ╱52╱R╱ // 0x1c5a @0xb
0x1c4f…1c62 at000c = ╱41╱A╱ // 0x1c5b @0xc
0x1c4f…1c62 at000d = ╱4e╱N╱ // 0x1c5c @0xd
0x1c4f…1c62 at000e = ╱53╱S╱ // 0x1c5d @0xe
0x1c4f…1c62 at000f = ╱ed╱ ( ╱ // 0x1c5e @0xf
0x1c4f…1c62 at0010 = ╱50╱P╱ // 0x1c5f @0x10
0x1c4f…1c62 at0011 = ╱ee╱ ) ╱ // 0x1c60 @0x11
0x1c4f…1c62 at0012 = EOL // 0x1c61 @0x12
0x1c4f…1c62 }
0x1c62…1ca3 b291 02850 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
0x1c62…1ca3 LineComal80 {
0x1c62…1ca3 ptr = 0xb291 // 0x1c62 @0x0
0x1c62…1ca3 lno = 0x0b22 // 0x1c64 @0x2
0x1c62…1ca3 at0004 = ╱a9╱ GET ╱ // 0x1c66 @0x4
0x1c62…1ca3 at0005 = ╱54╱T╱ // 0x1c67 @0x5
0x1c62…1ca3 at0006 = ╱52╱R╱ // 0x1c68 @0x6
0x1c62…1ca3 at0007 = ╱41╱A╱ // 0x1c69 @0x7
0x1c62…1ca3 at0008 = ╱4e╱N╱ // 0x1c6a @0x8
0x1c62…1ca3 at0009 = ╱53╱S╱ // 0x1c6b @0x9
0x1c62…1ca3 at000a = ╱ef╱ $ ╱ // 0x1c6c @0xa
0x1c62…1ca3 at000b = ╱ec╱ , ╱ // 0x1c6d @0xb
0x1c62…1ca3 at000c = ╱50╱P╱ // 0x1c6e @0xc
0x1c62…1ca3 at000d = ╱f1╱ : ╱ // 0x1c6f @0xd
0x1c62…1ca3 at000e = ╱42╱B╱ // 0x1c70 @0xe
0x1c62…1ca3 at000f = ╱4b╱K╱ // 0x1c71 @0xf
0x1c62…1ca3 at0010 = ╱54╱T╱ // 0x1c72 @0x10
0x1c62…1ca3 at0011 = ╱4f╱O╱ // 0x1c73 @0x11
0x1c62…1ca3 at0012 = ╱4e╱N╱ // 0x1c74 @0x12
0x1c62…1ca3 at0013 = ╱52╱R╱ // 0x1c75 @0x13
0x1c62…1ca3 at0014 = ╱ef╱ $ ╱ // 0x1c76 @0x14
0x1c62…1ca3 at0015 = ╱ec╱ , ╱ // 0x1c77 @0x15
0x1c62…1ca3 at0016 = ╱42╱B╱ // 0x1c78 @0x16
0x1c62…1ca3 at0017 = ╱44╱D╱ // 0x1c79 @0x17
0x1c62…1ca3 at0018 = ╱41╱A╱ // 0x1c7a @0x18
0x1c62…1ca3 at0019 = ╱54╱T╱ // 0x1c7b @0x19
0x1c62…1ca3 at001a = ╱4f╱O╱ // 0x1c7c @0x1a
0x1c62…1ca3 at001b = ╱ef╱ $ ╱ // 0x1c7d @0x1b
0x1c62…1ca3 at001c = ╱ec╱ , ╱ // 0x1c7e @0x1c
0x1c62…1ca3 at001d = ╱42╱B╱ // 0x1c7f @0x1d
0x1c62…1ca3 at001e = ╱4c╱L╱ // 0x1c80 @0x1e
0x1c62…1ca3 at001f = ╱47╱G╱ // 0x1c81 @0x1f
0x1c62…1ca3 at0020 = ╱4e╱N╱ // 0x1c82 @0x20
0x1c62…1ca3 at0021 = ╱52╱R╱ // 0x1c83 @0x21
0x1c62…1ca3 at0022 = ╱ef╱ $ ╱ // 0x1c84 @0x22
0x1c62…1ca3 at0023 = ╱ec╱ , ╱ // 0x1c85 @0x23
0x1c62…1ca3 at0024 = ╱42╱B╱ // 0x1c86 @0x24
0x1c62…1ca3 at0025 = ╱54╱T╱ // 0x1c87 @0x25
0x1c62…1ca3 at0026 = ╱58╱X╱ // 0x1c88 @0x26
0x1c62…1ca3 at0027 = ╱54╱T╱ // 0x1c89 @0x27
0x1c62…1ca3 at0028 = ╱ef╱ $ ╱ // 0x1c8a @0x28
0x1c62…1ca3 at0029 = ╱ec╱ , ╱ // 0x1c8b @0x29
0x1c62…1ca3 at002a = ╱42╱B╱ // 0x1c8c @0x2a
0x1c62…1ca3 at002b = ╱4d╱M╱ // 0x1c8d @0x2b
0x1c62…1ca3 at002c = ╱4f╱O╱ // 0x1c8e @0x2c
0x1c62…1ca3 at002d = ╱4d╱M╱ // 0x1c8f @0x2d
0x1c62…1ca3 at002e = ╱53╱S╱ // 0x1c90 @0x2e
0x1c62…1ca3 at002f = ╱ec╱ , ╱ // 0x1c91 @0x2f
0x1c62…1ca3 at0030 = ╱42╱B╱ // 0x1c92 @0x30
0x1c62…1ca3 at0031 = ╱42╱B╱ // 0x1c93 @0x31
0x1c62…1ca3 at0032 = ╱45╱E╱ // 0x1c94 @0x32
0x1c62…1ca3 at0033 = ╱4c╱L╱ // 0x1c95 @0x33
0x1c62…1ca3 at0034 = ╱5c╱\╱ // 0x1c96 @0x34
0x1c62…1ca3 at0035 = ╱42╱B╱ // 0x1c97 @0x35
0x1c62…1ca3 at0036 = ╱ec╱ , ╱ // 0x1c98 @0x36
0x1c62…1ca3 at0037 = ╱44╱D╱ // 0x1c99 @0x37
0x1c62…1ca3 at0038 = ╱4b╱K╱ // 0x1c9a @0x38
0x1c62…1ca3 at0039 = ╱ec╱ , ╱ // 0x1c9b @0x39
0x1c62…1ca3 at003a = ╱4e╱N╱ // 0x1c9c @0x3a
0x1c62…1ca3 at003b = ╱54╱T╱ // 0x1c9d @0x3b
0x1c62…1ca3 at003c = ╱52╱R╱ // 0x1c9e @0x3c
0x1c62…1ca3 at003d = ╱41╱A╱ // 0x1c9f @0x3d
0x1c62…1ca3 at003e = ╱4e╱N╱ // 0x1ca0 @0x3e
0x1c62…1ca3 at003f = ╱53╱S╱ // 0x1ca1 @0x3f
0x1c62…1ca3 at0040 = EOL // 0x1ca2 @0x40
0x1c62…1ca3 }
0x1ca3…1cb2 b2a0 02860 ENDPROC L[S_TRANS
0x1ca3…1cb2 LineComal80 {
0x1ca3…1cb2 ptr = 0xb2a0 // 0x1ca3 @0x0
0x1ca3…1cb2 lno = 0x0b2c // 0x1ca5 @0x2
0x1ca3…1cb2 at0004 = ╱9f╱ ENDPROC ╱ // 0x1ca7 @0x4
0x1ca3…1cb2 at0005 = ╱4c╱L╱ // 0x1ca8 @0x5
0x1ca3…1cb2 at0006 = ╱5b╱[╱ // 0x1ca9 @0x6
0x1ca3…1cb2 at0007 = ╱53╱S╱ // 0x1caa @0x7
0x1ca3…1cb2 at0008 = ╱5f╱_╱ // 0x1cab @0x8
0x1ca3…1cb2 at0009 = ╱54╱T╱ // 0x1cac @0x9
0x1ca3…1cb2 at000a = ╱52╱R╱ // 0x1cad @0xa
0x1ca3…1cb2 at000b = ╱41╱A╱ // 0x1cae @0xb
0x1ca3…1cb2 at000c = ╱4e╱N╱ // 0x1caf @0xc
0x1ca3…1cb2 at000d = ╱53╱S╱ // 0x1cb0 @0xd
0x1ca3…1cb2 at000e = EOL // 0x1cb1 @0xe
0x1ca3…1cb2 }
0x1cb2…1cb7 b2a5 02870
0x1cb2…1cb7 LineComal80 {
0x1cb2…1cb7 ptr = 0xb2a5 // 0x1cb2 @0x0
0x1cb2…1cb7 lno = 0x0b36 // 0x1cb4 @0x2
0x1cb2…1cb7 at0004 = EOL // 0x1cb6 @0x4
0x1cb2…1cb7 }
0x1cb7…1cc8 b2b6 02880 PROC TILBAGEF\R
0x1cb7…1cc8 LineComal80 {
0x1cb7…1cc8 ptr = 0xb2b6 // 0x1cb7 @0x0
0x1cb7…1cc8 lno = 0x0b40 // 0x1cb9 @0x2
0x1cb7…1cc8 at0004 = ╱9e00╱ PROC ╱ // 0x1cbb @0x4
0x1cb7…1cc8 at0006 = ╱54╱T╱ // 0x1cbd @0x6
0x1cb7…1cc8 at0007 = ╱49╱I╱ // 0x1cbe @0x7
0x1cb7…1cc8 at0008 = ╱4c╱L╱ // 0x1cbf @0x8
0x1cb7…1cc8 at0009 = ╱42╱B╱ // 0x1cc0 @0x9
0x1cb7…1cc8 at000a = ╱41╱A╱ // 0x1cc1 @0xa
0x1cb7…1cc8 at000b = ╱47╱G╱ // 0x1cc2 @0xb
0x1cb7…1cc8 at000c = ╱45╱E╱ // 0x1cc3 @0xc
0x1cb7…1cc8 at000d = ╱46╱F╱ // 0x1cc4 @0xd
0x1cb7…1cc8 at000e = ╱5c╱\╱ // 0x1cc5 @0xe
0x1cb7…1cc8 at000f = ╱52╱R╱ // 0x1cc6 @0xf
0x1cb7…1cc8 at0010 = EOL // 0x1cc7 @0x10
0x1cb7…1cc8 }
0x1cc8…1ce0 b2ce 02890 EXEC FIND_KTO ( BAL_KTO $ )
0x1cc8…1ce0 LineComal80 {
0x1cc8…1ce0 ptr = 0xb2ce // 0x1cc8 @0x0
0x1cc8…1ce0 lno = 0x0b4a // 0x1cca @0x2
0x1cc8…1ce0 at0004 = ╱9d╱ EXEC ╱ // 0x1ccc @0x4
0x1cc8…1ce0 at0005 = ╱46╱F╱ // 0x1ccd @0x5
0x1cc8…1ce0 at0006 = ╱49╱I╱ // 0x1cce @0x6
0x1cc8…1ce0 at0007 = ╱4e╱N╱ // 0x1ccf @0x7
0x1cc8…1ce0 at0008 = ╱44╱D╱ // 0x1cd0 @0x8
0x1cc8…1ce0 at0009 = ╱5f╱_╱ // 0x1cd1 @0x9
0x1cc8…1ce0 at000a = ╱4b╱K╱ // 0x1cd2 @0xa
0x1cc8…1ce0 at000b = ╱54╱T╱ // 0x1cd3 @0xb
0x1cc8…1ce0 at000c = ╱4f╱O╱ // 0x1cd4 @0xc
0x1cc8…1ce0 at000d = ╱ed╱ ( ╱ // 0x1cd5 @0xd
0x1cc8…1ce0 at000e = ╱42╱B╱ // 0x1cd6 @0xe
0x1cc8…1ce0 at000f = ╱41╱A╱ // 0x1cd7 @0xf
0x1cc8…1ce0 at0010 = ╱4c╱L╱ // 0x1cd8 @0x10
0x1cc8…1ce0 at0011 = ╱5f╱_╱ // 0x1cd9 @0x11
0x1cc8…1ce0 at0012 = ╱4b╱K╱ // 0x1cda @0x12
0x1cc8…1ce0 at0013 = ╱54╱T╱ // 0x1cdb @0x13
0x1cc8…1ce0 at0014 = ╱4f╱O╱ // 0x1cdc @0x14
0x1cc8…1ce0 at0015 = ╱ef╱ $ ╱ // 0x1cdd @0x15
0x1cc8…1ce0 at0016 = ╱ee╱ ) ╱ // 0x1cde @0x16
0x1cc8…1ce0 at0017 = EOL // 0x1cdf @0x17
0x1cc8…1ce0 }
0x1ce0…1cf6 (96,) b2e4 02900 EXEC L[S_KONTO ( RECNR )
0x1ce0…1cf6 LineComal80 {
0x1ce0…1cf6 ptr = 0xb2e4 // 0x1ce0 @0x0
0x1ce0…1cf6 lno = 0x0b54 // 0x1ce2 @0x2
0x1ce0…1cf6 at0004 = ╱9d╱ EXEC ╱ // 0x1ce4 @0x4
0x1ce0…1cf6 at0005 = ╱4c╱L╱ // 0x1ce5 @0x5
0x1ce0…1cf6 at0006 = ╱5b╱[╱ // 0x1ce6 @0x6
0x1ce0…1cf6 at0007 = ╱53╱S╱ // 0x1ce7 @0x7
0x1ce0…1cf6 at0008 = ╱5f╱_╱ // 0x1ce8 @0x8
0x1ce0…1cf6 at0009 = ╱4b╱K╱ // 0x1ce9 @0x9
0x1ce0…1cf6 at000a = ╱4f╱O╱ // 0x1cea @0xa
0x1ce0…1cf6 at000b = ╱4e╱N╱ // 0x1ceb @0xb
0x1ce0…1cf6 at000c = ╱54╱T╱ // 0x1cec @0xc
0x1ce0…1cf6 at000d = ╱4f╱O╱ // 0x1ced @0xd
0x1ce0…1cf6 at000e = ╱ed╱ ( ╱ // 0x1cee @0xe
0x1ce0…1cf6 at000f = ╱52╱R╱ // 0x1cef @0xf
0x1ce0…1cf6 at0010 = ╱45╱E╱ // 0x1cf0 @0x10
0x1ce0…1cf6 at0011 = ╱43╱C╱ // 0x1cf1 @0x11
0x1ce0…1cf6 at0012 = ╱4e╱N╱ // 0x1cf2 @0x12
0x1ce0…1cf6 at0013 = ╱52╱R╱ // 0x1cf3 @0x13
0x1ce0…1cf6 at0014 = ╱ee╱ ) ╱ // 0x1cf4 @0x14
0x1ce0…1cf6 at0015 = EOL // 0x1cf5 @0x15
0x1ce0…1cf6 }
0x1cf6…1d1b b309 02910 LET A_NTRANS := KTO_FP ; A_KTO_SP := KTO_SP
0x1cf6…1d1b LineComal80 {
0x1cf6…1d1b ptr = 0xb309 // 0x1cf6 @0x0
0x1cf6…1d1b lno = 0x0b5e // 0x1cf8 @0x2
0x1cf6…1d1b at0004 = ╱86╱ LET ╱ // 0x1cfa @0x4
0x1cf6…1d1b at0005 = ╱41╱A╱ // 0x1cfb @0x5
0x1cf6…1d1b at0006 = ╱5f╱_╱ // 0x1cfc @0x6
0x1cf6…1d1b at0007 = ╱4e╱N╱ // 0x1cfd @0x7
0x1cf6…1d1b at0008 = ╱54╱T╱ // 0x1cfe @0x8
0x1cf6…1d1b at0009 = ╱52╱R╱ // 0x1cff @0x9
0x1cf6…1d1b at000a = ╱41╱A╱ // 0x1d00 @0xa
0x1cf6…1d1b at000b = ╱4e╱N╱ // 0x1d01 @0xb
0x1cf6…1d1b at000c = ╱53╱S╱ // 0x1d02 @0xc
0x1cf6…1d1b at000d = ╱f0╱ := ╱ // 0x1d03 @0xd
0x1cf6…1d1b at000e = ╱4b╱K╱ // 0x1d04 @0xe
0x1cf6…1d1b at000f = ╱54╱T╱ // 0x1d05 @0xf
0x1cf6…1d1b at0010 = ╱4f╱O╱ // 0x1d06 @0x10
0x1cf6…1d1b at0011 = ╱5f╱_╱ // 0x1d07 @0x11
0x1cf6…1d1b at0012 = ╱46╱F╱ // 0x1d08 @0x12
0x1cf6…1d1b at0013 = ╱50╱P╱ // 0x1d09 @0x13
0x1cf6…1d1b at0014 = ╱ea╱ ; ╱ // 0x1d0a @0x14
0x1cf6…1d1b at0015 = ╱41╱A╱ // 0x1d0b @0x15
0x1cf6…1d1b at0016 = ╱5f╱_╱ // 0x1d0c @0x16
0x1cf6…1d1b at0017 = ╱4b╱K╱ // 0x1d0d @0x17
0x1cf6…1d1b at0018 = ╱54╱T╱ // 0x1d0e @0x18
0x1cf6…1d1b at0019 = ╱4f╱O╱ // 0x1d0f @0x19
0x1cf6…1d1b at001a = ╱5f╱_╱ // 0x1d10 @0x1a
0x1cf6…1d1b at001b = ╱53╱S╱ // 0x1d11 @0x1b
0x1cf6…1d1b at001c = ╱50╱P╱ // 0x1d12 @0x1c
0x1cf6…1d1b at001d = ╱f0╱ := ╱ // 0x1d13 @0x1d
0x1cf6…1d1b at001e = ╱4b╱K╱ // 0x1d14 @0x1e
0x1cf6…1d1b at001f = ╱54╱T╱ // 0x1d15 @0x1f
0x1cf6…1d1b at0020 = ╱4f╱O╱ // 0x1d16 @0x20
0x1cf6…1d1b at0021 = ╱5f╱_╱ // 0x1d17 @0x21
0x1cf6…1d1b at0022 = ╱53╱S╱ // 0x1d18 @0x22
0x1cf6…1d1b at0023 = ╱50╱P╱ // 0x1d19 @0x23
0x1cf6…1d1b at0024 = EOL // 0x1d1a @0x24
0x1cf6…1d1b }
0x1d1b…1d22 b310 02920 REPEAT
0x1d1b…1d22 LineComal80 {
0x1d1b…1d22 ptr = 0xb310 // 0x1d1b @0x0
0x1d1b…1d22 lno = 0x0b68 // 0x1d1d @0x2
0x1d1b…1d22 at0004 = ╱9700╱ REPEAT ╱ // 0x1d1f @0x4
0x1d1b…1d22 at0006 = EOL // 0x1d21 @0x6
0x1d1b…1d22 }
0x1d22…1d3b b329 02930 EXEC L[S_TRANS ( A_NTRANS )
0x1d22…1d3b LineComal80 {
0x1d22…1d3b ptr = 0xb329 // 0x1d22 @0x0
0x1d22…1d3b lno = 0x0b72 // 0x1d24 @0x2
0x1d22…1d3b at0004 = ╱9d╱ EXEC ╱ // 0x1d26 @0x4
0x1d22…1d3b at0005 = ╱4c╱L╱ // 0x1d27 @0x5
0x1d22…1d3b at0006 = ╱5b╱[╱ // 0x1d28 @0x6
0x1d22…1d3b at0007 = ╱53╱S╱ // 0x1d29 @0x7
0x1d22…1d3b at0008 = ╱5f╱_╱ // 0x1d2a @0x8
0x1d22…1d3b at0009 = ╱54╱T╱ // 0x1d2b @0x9
0x1d22…1d3b at000a = ╱52╱R╱ // 0x1d2c @0xa
0x1d22…1d3b at000b = ╱41╱A╱ // 0x1d2d @0xb
0x1d22…1d3b at000c = ╱4e╱N╱ // 0x1d2e @0xc
0x1d22…1d3b at000d = ╱53╱S╱ // 0x1d2f @0xd
0x1d22…1d3b at000e = ╱ed╱ ( ╱ // 0x1d30 @0xe
0x1d22…1d3b at000f = ╱41╱A╱ // 0x1d31 @0xf
0x1d22…1d3b at0010 = ╱5f╱_╱ // 0x1d32 @0x10
0x1d22…1d3b at0011 = ╱4e╱N╱ // 0x1d33 @0x11
0x1d22…1d3b at0012 = ╱54╱T╱ // 0x1d34 @0x12
0x1d22…1d3b at0013 = ╱52╱R╱ // 0x1d35 @0x13
0x1d22…1d3b at0014 = ╱41╱A╱ // 0x1d36 @0x14
0x1d22…1d3b at0015 = ╱4e╱N╱ // 0x1d37 @0x15
0x1d22…1d3b at0016 = ╱53╱S╱ // 0x1d38 @0x16
0x1d22…1d3b at0017 = ╱ee╱ ) ╱ // 0x1d39 @0x17
0x1d22…1d3b at0018 = EOL // 0x1d3a @0x18
0x1d22…1d3b }
0x1d3b…1d50 b33e 02940 LET A_NTRANS := NTRANS
0x1d3b…1d50 LineComal80 {
0x1d3b…1d50 ptr = 0xb33e // 0x1d3b @0x0
0x1d3b…1d50 lno = 0x0b7c // 0x1d3d @0x2
0x1d3b…1d50 at0004 = ╱86╱ LET ╱ // 0x1d3f @0x4
0x1d3b…1d50 at0005 = ╱41╱A╱ // 0x1d40 @0x5
0x1d3b…1d50 at0006 = ╱5f╱_╱ // 0x1d41 @0x6
0x1d3b…1d50 at0007 = ╱4e╱N╱ // 0x1d42 @0x7
0x1d3b…1d50 at0008 = ╱54╱T╱ // 0x1d43 @0x8
0x1d3b…1d50 at0009 = ╱52╱R╱ // 0x1d44 @0x9
0x1d3b…1d50 at000a = ╱41╱A╱ // 0x1d45 @0xa
0x1d3b…1d50 at000b = ╱4e╱N╱ // 0x1d46 @0xb
0x1d3b…1d50 at000c = ╱53╱S╱ // 0x1d47 @0xc
0x1d3b…1d50 at000d = ╱f0╱ := ╱ // 0x1d48 @0xd
0x1d3b…1d50 at000e = ╱4e╱N╱ // 0x1d49 @0xe
0x1d3b…1d50 at000f = ╱54╱T╱ // 0x1d4a @0xf
0x1d3b…1d50 at0010 = ╱52╱R╱ // 0x1d4b @0x10
0x1d3b…1d50 at0011 = ╱41╱A╱ // 0x1d4c @0x11
0x1d3b…1d50 at0012 = ╱4e╱N╱ // 0x1d4d @0x12
0x1d3b…1d50 at0013 = ╱53╱S╱ // 0x1d4e @0x13
0x1d3b…1d50 at0014 = EOL // 0x1d4f @0x14
0x1d3b…1d50 }
0x1d50…1d90 b37e 02950 LET A_KTONR $ := BTXT $ ( 11 : 8 ) ; A_TXT $ := "OVERF\RT…TIL…" + A_KTONR $
0x1d50…1d90 LineComal80 {
0x1d50…1d90 ptr = 0xb37e // 0x1d50 @0x0
0x1d50…1d90 lno = 0x0b86 // 0x1d52 @0x2
0x1d50…1d90 at0004 = ╱86╱ LET ╱ // 0x1d54 @0x4
0x1d50…1d90 at0005 = ╱41╱A╱ // 0x1d55 @0x5
0x1d50…1d90 at0006 = ╱5f╱_╱ // 0x1d56 @0x6
0x1d50…1d90 at0007 = ╱4b╱K╱ // 0x1d57 @0x7
0x1d50…1d90 at0008 = ╱54╱T╱ // 0x1d58 @0x8
0x1d50…1d90 at0009 = ╱4f╱O╱ // 0x1d59 @0x9
0x1d50…1d90 at000a = ╱4e╱N╱ // 0x1d5a @0xa
0x1d50…1d90 at000b = ╱52╱R╱ // 0x1d5b @0xb
0x1d50…1d90 at000c = ╱ef╱ $ ╱ // 0x1d5c @0xc
0x1d50…1d90 at000d = ╱f0╱ := ╱ // 0x1d5d @0xd
0x1d50…1d90 at000e = ╱42╱B╱ // 0x1d5e @0xe
0x1d50…1d90 at000f = ╱54╱T╱ // 0x1d5f @0xf
0x1d50…1d90 at0010 = ╱58╱X╱ // 0x1d60 @0x10
0x1d50…1d90 at0011 = ╱54╱T╱ // 0x1d61 @0x11
0x1d50…1d90 at0012 = ╱ef╱ $ ╱ // 0x1d62 @0x12
0x1d50…1d90 at0013 = ╱ed╱ ( ╱ // 0x1d63 @0x13
0x1d50…1d90 at0014 = ╱31╱1╱ // 0x1d64 @0x14
0x1d50…1d90 at0015 = ╱31╱1╱ // 0x1d65 @0x15
0x1d50…1d90 at0016 = ╱f20b00╱ // 0x1d66 @0x16
0x1d50…1d90 at0019 = ╱f1╱ : ╱ // 0x1d69 @0x19
0x1d50…1d90 at001a = ╱38╱8╱ // 0x1d6a @0x1a
0x1d50…1d90 at001b = ╱f20800╱ // 0x1d6b @0x1b
0x1d50…1d90 at001e = ╱ee╱ ) ╱ // 0x1d6e @0x1e
0x1d50…1d90 at001f = ╱ea╱ ; ╱ // 0x1d6f @0x1f
0x1d50…1d90 at0020 = ╱41╱A╱ // 0x1d70 @0x20
0x1d50…1d90 at0021 = ╱5f╱_╱ // 0x1d71 @0x21
0x1d50…1d90 at0022 = ╱54╱T╱ // 0x1d72 @0x22
0x1d50…1d90 at0023 = ╱58╱X╱ // 0x1d73 @0x23
0x1d50…1d90 at0024 = ╱54╱T╱ // 0x1d74 @0x24
0x1d50…1d90 at0025 = ╱ef╱ $ ╱ // 0x1d75 @0x25
0x1d50…1d90 at0026 = ╱f0╱ := ╱ // 0x1d76 @0x26
0x1d50…1d90 at0027 = ╱22╱"╱ // 0x1d77 @0x27
0x1d50…1d90 at0028 = ╱4f╱O╱ // 0x1d78 @0x28
0x1d50…1d90 at0029 = ╱56╱V╱ // 0x1d79 @0x29
0x1d50…1d90 at002a = ╱45╱E╱ // 0x1d7a @0x2a
0x1d50…1d90 at002b = ╱52╱R╱ // 0x1d7b @0x2b
0x1d50…1d90 at002c = ╱46╱F╱ // 0x1d7c @0x2c
0x1d50…1d90 at002d = ╱5c╱\╱ // 0x1d7d @0x2d
0x1d50…1d90 at002e = ╱52╱R╱ // 0x1d7e @0x2e
0x1d50…1d90 at002f = ╱54╱T╱ // 0x1d7f @0x2f
0x1d50…1d90 at0030 = ╱20╱…╱ // 0x1d80 @0x30
0x1d50…1d90 at0031 = ╱54╱T╱ // 0x1d81 @0x31
0x1d50…1d90 at0032 = ╱49╱I╱ // 0x1d82 @0x32
0x1d50…1d90 at0033 = ╱4c╱L╱ // 0x1d83 @0x33
0x1d50…1d90 at0034 = ╱20╱…╱ // 0x1d84 @0x34
0x1d50…1d90 at0035 = ╱22╱"╱ // 0x1d85 @0x35
0x1d50…1d90 at0036 = ╱eb╱ + ╱ // 0x1d86 @0x36
0x1d50…1d90 at0037 = ╱41╱A╱ // 0x1d87 @0x37
0x1d50…1d90 at0038 = ╱5f╱_╱ // 0x1d88 @0x38
0x1d50…1d90 at0039 = ╱4b╱K╱ // 0x1d89 @0x39
0x1d50…1d90 at003a = ╱54╱T╱ // 0x1d8a @0x3a
0x1d50…1d90 at003b = ╱4f╱O╱ // 0x1d8b @0x3b
0x1d50…1d90 at003c = ╱4e╱N╱ // 0x1d8c @0x3c
0x1d50…1d90 at003d = ╱52╱R╱ // 0x1d8d @0x3d
0x1d50…1d90 at003e = ╱ef╱ $ ╱ // 0x1d8e @0x3e
0x1d50…1d90 at003f = EOL // 0x1d8f @0x3f
0x1d50…1d90 }
0x1d90…1dc5 b3b3 02960 LET A_DK := DK * ( - 1 ) ; A_BNR $ := "……" ; A_KTO_ULTIMO := BBEL\B
0x1d90…1dc5 LineComal80 {
0x1d90…1dc5 ptr = 0xb3b3 // 0x1d90 @0x0
0x1d90…1dc5 lno = 0x0b90 // 0x1d92 @0x2
0x1d90…1dc5 at0004 = ╱86╱ LET ╱ // 0x1d94 @0x4
0x1d90…1dc5 at0005 = ╱41╱A╱ // 0x1d95 @0x5
0x1d90…1dc5 at0006 = ╱5f╱_╱ // 0x1d96 @0x6
0x1d90…1dc5 at0007 = ╱44╱D╱ // 0x1d97 @0x7
0x1d90…1dc5 at0008 = ╱4b╱K╱ // 0x1d98 @0x8
0x1d90…1dc5 at0009 = ╱f0╱ := ╱ // 0x1d99 @0x9
0x1d90…1dc5 at000a = ╱44╱D╱ // 0x1d9a @0xa
0x1d90…1dc5 at000b = ╱4b╱K╱ // 0x1d9b @0xb
0x1d90…1dc5 at000c = ╱e7╱ * ╱ // 0x1d9c @0xc
0x1d90…1dc5 at000d = ╱ed╱ ( ╱ // 0x1d9d @0xd
0x1d90…1dc5 at000e = ╱de╱ - ╱ // 0x1d9e @0xe
0x1d90…1dc5 at000f = ╱31╱1╱ // 0x1d9f @0xf
0x1d90…1dc5 at0010 = ╱f20100╱ // 0x1da0 @0x10
0x1d90…1dc5 at0013 = ╱ee╱ ) ╱ // 0x1da3 @0x13
0x1d90…1dc5 at0014 = ╱ea╱ ; ╱ // 0x1da4 @0x14
0x1d90…1dc5 at0015 = ╱41╱A╱ // 0x1da5 @0x15
0x1d90…1dc5 at0016 = ╱5f╱_╱ // 0x1da6 @0x16
0x1d90…1dc5 at0017 = ╱42╱B╱ // 0x1da7 @0x17
0x1d90…1dc5 at0018 = ╱4e╱N╱ // 0x1da8 @0x18
0x1d90…1dc5 at0019 = ╱52╱R╱ // 0x1da9 @0x19
0x1d90…1dc5 at001a = ╱ef╱ $ ╱ // 0x1daa @0x1a
0x1d90…1dc5 at001b = ╱f0╱ := ╱ // 0x1dab @0x1b
0x1d90…1dc5 at001c = ╱22╱"╱ // 0x1dac @0x1c
0x1d90…1dc5 at001d = ╱20╱…╱ // 0x1dad @0x1d
0x1d90…1dc5 at001e = ╱20╱…╱ // 0x1dae @0x1e
0x1d90…1dc5 at001f = ╱22╱"╱ // 0x1daf @0x1f
0x1d90…1dc5 at0020 = ╱ea╱ ; ╱ // 0x1db0 @0x20
0x1d90…1dc5 at0021 = ╱41╱A╱ // 0x1db1 @0x21
0x1d90…1dc5 at0022 = ╱5f╱_╱ // 0x1db2 @0x22
0x1d90…1dc5 at0023 = ╱4b╱K╱ // 0x1db3 @0x23
0x1d90…1dc5 at0024 = ╱54╱T╱ // 0x1db4 @0x24
0x1d90…1dc5 at0025 = ╱4f╱O╱ // 0x1db5 @0x25
0x1d90…1dc5 at0026 = ╱5f╱_╱ // 0x1db6 @0x26
0x1d90…1dc5 at0027 = ╱55╱U╱ // 0x1db7 @0x27
0x1d90…1dc5 at0028 = ╱4c╱L╱ // 0x1db8 @0x28
0x1d90…1dc5 at0029 = ╱54╱T╱ // 0x1db9 @0x29
0x1d90…1dc5 at002a = ╱49╱I╱ // 0x1dba @0x2a
0x1d90…1dc5 at002b = ╱4d╱M╱ // 0x1dbb @0x2b
0x1d90…1dc5 at002c = ╱4f╱O╱ // 0x1dbc @0x2c
0x1d90…1dc5 at002d = ╱f0╱ := ╱ // 0x1dbd @0x2d
0x1d90…1dc5 at002e = ╱42╱B╱ // 0x1dbe @0x2e
0x1d90…1dc5 at002f = ╱42╱B╱ // 0x1dbf @0x2f
0x1d90…1dc5 at0030 = ╱45╱E╱ // 0x1dc0 @0x30
0x1d90…1dc5 at0031 = ╱4c╱L╱ // 0x1dc1 @0x31
0x1d90…1dc5 at0032 = ╱5c╱\╱ // 0x1dc2 @0x32
0x1d90…1dc5 at0033 = ╱42╱B╱ // 0x1dc3 @0x33
0x1d90…1dc5 at0034 = EOL // 0x1dc4 @0x34
0x1d90…1dc5 }
0x1dc5…1e0a b3f8 02970 EXEC BOGF\R ( BAL_KTO $ , SYST_DAT $ , A_TXT $ , NULR , A_KTO_ULTIMO , A_DK , A_BNR $ )
0x1dc5…1e0a LineComal80 {
0x1dc5…1e0a ptr = 0xb3f8 // 0x1dc5 @0x0
0x1dc5…1e0a lno = 0x0b9a // 0x1dc7 @0x2
0x1dc5…1e0a at0004 = ╱9d╱ EXEC ╱ // 0x1dc9 @0x4
0x1dc5…1e0a at0005 = ╱42╱B╱ // 0x1dca @0x5
0x1dc5…1e0a at0006 = ╱4f╱O╱ // 0x1dcb @0x6
0x1dc5…1e0a at0007 = ╱47╱G╱ // 0x1dcc @0x7
0x1dc5…1e0a at0008 = ╱46╱F╱ // 0x1dcd @0x8
0x1dc5…1e0a at0009 = ╱5c╱\╱ // 0x1dce @0x9
0x1dc5…1e0a at000a = ╱52╱R╱ // 0x1dcf @0xa
0x1dc5…1e0a at000b = ╱ed╱ ( ╱ // 0x1dd0 @0xb
0x1dc5…1e0a at000c = ╱42╱B╱ // 0x1dd1 @0xc
0x1dc5…1e0a at000d = ╱41╱A╱ // 0x1dd2 @0xd
0x1dc5…1e0a at000e = ╱4c╱L╱ // 0x1dd3 @0xe
0x1dc5…1e0a at000f = ╱5f╱_╱ // 0x1dd4 @0xf
0x1dc5…1e0a at0010 = ╱4b╱K╱ // 0x1dd5 @0x10
0x1dc5…1e0a at0011 = ╱54╱T╱ // 0x1dd6 @0x11
0x1dc5…1e0a at0012 = ╱4f╱O╱ // 0x1dd7 @0x12
0x1dc5…1e0a at0013 = ╱ef╱ $ ╱ // 0x1dd8 @0x13
0x1dc5…1e0a at0014 = ╱ec╱ , ╱ // 0x1dd9 @0x14
0x1dc5…1e0a at0015 = ╱53╱S╱ // 0x1dda @0x15
0x1dc5…1e0a at0016 = ╱59╱Y╱ // 0x1ddb @0x16
0x1dc5…1e0a at0017 = ╱53╱S╱ // 0x1ddc @0x17
0x1dc5…1e0a at0018 = ╱54╱T╱ // 0x1ddd @0x18
0x1dc5…1e0a at0019 = ╱5f╱_╱ // 0x1dde @0x19
0x1dc5…1e0a at001a = ╱44╱D╱ // 0x1ddf @0x1a
0x1dc5…1e0a at001b = ╱41╱A╱ // 0x1de0 @0x1b
0x1dc5…1e0a at001c = ╱54╱T╱ // 0x1de1 @0x1c
0x1dc5…1e0a at001d = ╱ef╱ $ ╱ // 0x1de2 @0x1d
0x1dc5…1e0a at001e = ╱ec╱ , ╱ // 0x1de3 @0x1e
0x1dc5…1e0a at001f = ╱41╱A╱ // 0x1de4 @0x1f
0x1dc5…1e0a at0020 = ╱5f╱_╱ // 0x1de5 @0x20
0x1dc5…1e0a at0021 = ╱54╱T╱ // 0x1de6 @0x21
0x1dc5…1e0a at0022 = ╱58╱X╱ // 0x1de7 @0x22
0x1dc5…1e0a at0023 = ╱54╱T╱ // 0x1de8 @0x23
0x1dc5…1e0a at0024 = ╱ef╱ $ ╱ // 0x1de9 @0x24
0x1dc5…1e0a at0025 = ╱ec╱ , ╱ // 0x1dea @0x25
0x1dc5…1e0a at0026 = ╱4e╱N╱ // 0x1deb @0x26
0x1dc5…1e0a at0027 = ╱55╱U╱ // 0x1dec @0x27
0x1dc5…1e0a at0028 = ╱4c╱L╱ // 0x1ded @0x28
0x1dc5…1e0a at0029 = ╱52╱R╱ // 0x1dee @0x29
0x1dc5…1e0a at002a = ╱ec╱ , ╱ // 0x1def @0x2a
0x1dc5…1e0a at002b = ╱41╱A╱ // 0x1df0 @0x2b
0x1dc5…1e0a at002c = ╱5f╱_╱ // 0x1df1 @0x2c
0x1dc5…1e0a at002d = ╱4b╱K╱ // 0x1df2 @0x2d
0x1dc5…1e0a at002e = ╱54╱T╱ // 0x1df3 @0x2e
0x1dc5…1e0a at002f = ╱4f╱O╱ // 0x1df4 @0x2f
0x1dc5…1e0a at0030 = ╱5f╱_╱ // 0x1df5 @0x30
0x1dc5…1e0a at0031 = ╱55╱U╱ // 0x1df6 @0x31
0x1dc5…1e0a at0032 = ╱4c╱L╱ // 0x1df7 @0x32
0x1dc5…1e0a at0033 = ╱54╱T╱ // 0x1df8 @0x33
0x1dc5…1e0a at0034 = ╱49╱I╱ // 0x1df9 @0x34
0x1dc5…1e0a at0035 = ╱4d╱M╱ // 0x1dfa @0x35
0x1dc5…1e0a at0036 = ╱4f╱O╱ // 0x1dfb @0x36
0x1dc5…1e0a at0037 = ╱ec╱ , ╱ // 0x1dfc @0x37
0x1dc5…1e0a at0038 = ╱41╱A╱ // 0x1dfd @0x38
0x1dc5…1e0a at0039 = ╱5f╱_╱ // 0x1dfe @0x39
0x1dc5…1e0a at003a = ╱44╱D╱ // 0x1dff @0x3a
0x1dc5…1e0a at003b = ╱4b╱K╱ // 0x1e00 @0x3b
0x1dc5…1e0a at003c = ╱ec╱ , ╱ // 0x1e01 @0x3c
0x1dc5…1e0a at003d = ╱41╱A╱ // 0x1e02 @0x3d
0x1dc5…1e0a at003e = ╱5f╱_╱ // 0x1e03 @0x3e
0x1dc5…1e0a at003f = ╱42╱B╱ // 0x1e04 @0x3f
0x1dc5…1e0a at0040 = ╱4e╱N╱ // 0x1e05 @0x40
0x1dc5…1e0a at0041 = ╱52╱R╱ // 0x1e06 @0x41
0x1dc5…1e0a at0042 = ╱ef╱ $ ╱ // 0x1e07 @0x42
0x1dc5…1e0a at0043 = ╱ee╱ ) ╱ // 0x1e08 @0x43
0x1dc5…1e0a at0044 = EOL // 0x1e09 @0x44
0x1dc5…1e0a }
0x1e0a…1e41 b42f 02980 LET A_TXT $ := "OVERF\RT…FRA…" + BAL_KTO $ ; A_DK := A_DK * ( - 1 )
0x1e0a…1e41 LineComal80 {
0x1e0a…1e41 ptr = 0xb42f // 0x1e0a @0x0
0x1e0a…1e41 lno = 0x0ba4 // 0x1e0c @0x2
0x1e0a…1e41 at0004 = ╱86╱ LET ╱ // 0x1e0e @0x4
0x1e0a…1e41 at0005 = ╱41╱A╱ // 0x1e0f @0x5
0x1e0a…1e41 at0006 = ╱5f╱_╱ // 0x1e10 @0x6
0x1e0a…1e41 at0007 = ╱54╱T╱ // 0x1e11 @0x7
0x1e0a…1e41 at0008 = ╱58╱X╱ // 0x1e12 @0x8
0x1e0a…1e41 at0009 = ╱54╱T╱ // 0x1e13 @0x9
0x1e0a…1e41 at000a = ╱ef╱ $ ╱ // 0x1e14 @0xa
0x1e0a…1e41 at000b = ╱f0╱ := ╱ // 0x1e15 @0xb
0x1e0a…1e41 at000c = ╱22╱"╱ // 0x1e16 @0xc
0x1e0a…1e41 at000d = ╱4f╱O╱ // 0x1e17 @0xd
0x1e0a…1e41 at000e = ╱56╱V╱ // 0x1e18 @0xe
0x1e0a…1e41 at000f = ╱45╱E╱ // 0x1e19 @0xf
0x1e0a…1e41 at0010 = ╱52╱R╱ // 0x1e1a @0x10
0x1e0a…1e41 at0011 = ╱46╱F╱ // 0x1e1b @0x11
0x1e0a…1e41 at0012 = ╱5c╱\╱ // 0x1e1c @0x12
0x1e0a…1e41 at0013 = ╱52╱R╱ // 0x1e1d @0x13
0x1e0a…1e41 at0014 = ╱54╱T╱ // 0x1e1e @0x14
0x1e0a…1e41 at0015 = ╱20╱…╱ // 0x1e1f @0x15
0x1e0a…1e41 at0016 = ╱46╱F╱ // 0x1e20 @0x16
0x1e0a…1e41 at0017 = ╱52╱R╱ // 0x1e21 @0x17
0x1e0a…1e41 at0018 = ╱41╱A╱ // 0x1e22 @0x18
0x1e0a…1e41 at0019 = ╱20╱…╱ // 0x1e23 @0x19
0x1e0a…1e41 at001a = ╱22╱"╱ // 0x1e24 @0x1a
0x1e0a…1e41 at001b = ╱eb╱ + ╱ // 0x1e25 @0x1b
0x1e0a…1e41 at001c = ╱42╱B╱ // 0x1e26 @0x1c
0x1e0a…1e41 at001d = ╱41╱A╱ // 0x1e27 @0x1d
0x1e0a…1e41 at001e = ╱4c╱L╱ // 0x1e28 @0x1e
0x1e0a…1e41 at001f = ╱5f╱_╱ // 0x1e29 @0x1f
0x1e0a…1e41 at0020 = ╱4b╱K╱ // 0x1e2a @0x20
0x1e0a…1e41 at0021 = ╱54╱T╱ // 0x1e2b @0x21
0x1e0a…1e41 at0022 = ╱4f╱O╱ // 0x1e2c @0x22
0x1e0a…1e41 at0023 = ╱ef╱ $ ╱ // 0x1e2d @0x23
0x1e0a…1e41 at0024 = ╱ea╱ ; ╱ // 0x1e2e @0x24
0x1e0a…1e41 at0025 = ╱41╱A╱ // 0x1e2f @0x25
0x1e0a…1e41 at0026 = ╱5f╱_╱ // 0x1e30 @0x26
0x1e0a…1e41 at0027 = ╱44╱D╱ // 0x1e31 @0x27
0x1e0a…1e41 at0028 = ╱4b╱K╱ // 0x1e32 @0x28
0x1e0a…1e41 at0029 = ╱f0╱ := ╱ // 0x1e33 @0x29
0x1e0a…1e41 at002a = ╱41╱A╱ // 0x1e34 @0x2a
0x1e0a…1e41 at002b = ╱5f╱_╱ // 0x1e35 @0x2b
0x1e0a…1e41 at002c = ╱44╱D╱ // 0x1e36 @0x2c
0x1e0a…1e41 at002d = ╱4b╱K╱ // 0x1e37 @0x2d
0x1e0a…1e41 at002e = ╱e7╱ * ╱ // 0x1e38 @0x2e
0x1e0a…1e41 at002f = ╱ed╱ ( ╱ // 0x1e39 @0x2f
0x1e0a…1e41 at0030 = ╱de╱ - ╱ // 0x1e3a @0x30
0x1e0a…1e41 at0031 = ╱31╱1╱ // 0x1e3b @0x31
0x1e0a…1e41 at0032 = ╱f20100╱ // 0x1e3c @0x32
0x1e0a…1e41 at0035 = ╱ee╱ ) ╱ // 0x1e3f @0x35
0x1e0a…1e41 at0036 = EOL // 0x1e40 @0x36
0x1e0a…1e41 }
0x1e41…1e86 b474 02990 EXEC BOGF\R ( A_KTONR $ , SYST_DAT $ , A_TXT $ , NULR , A_KTO_ULTIMO , A_DK , A_BNR $ )
0x1e41…1e86 LineComal80 {
0x1e41…1e86 ptr = 0xb474 // 0x1e41 @0x0
0x1e41…1e86 lno = 0x0bae // 0x1e43 @0x2
0x1e41…1e86 at0004 = ╱9d╱ EXEC ╱ // 0x1e45 @0x4
0x1e41…1e86 at0005 = ╱42╱B╱ // 0x1e46 @0x5
0x1e41…1e86 at0006 = ╱4f╱O╱ // 0x1e47 @0x6
0x1e41…1e86 at0007 = ╱47╱G╱ // 0x1e48 @0x7
0x1e41…1e86 at0008 = ╱46╱F╱ // 0x1e49 @0x8
0x1e41…1e86 at0009 = ╱5c╱\╱ // 0x1e4a @0x9
0x1e41…1e86 at000a = ╱52╱R╱ // 0x1e4b @0xa
0x1e41…1e86 at000b = ╱ed╱ ( ╱ // 0x1e4c @0xb
0x1e41…1e86 at000c = ╱41╱A╱ // 0x1e4d @0xc
0x1e41…1e86 at000d = ╱5f╱_╱ // 0x1e4e @0xd
0x1e41…1e86 at000e = ╱4b╱K╱ // 0x1e4f @0xe
0x1e41…1e86 at000f = ╱54╱T╱ // 0x1e50 @0xf
0x1e41…1e86 at0010 = ╱4f╱O╱ // 0x1e51 @0x10
0x1e41…1e86 at0011 = ╱4e╱N╱ // 0x1e52 @0x11
0x1e41…1e86 at0012 = ╱52╱R╱ // 0x1e53 @0x12
0x1e41…1e86 at0013 = ╱ef╱ $ ╱ // 0x1e54 @0x13
0x1e41…1e86 at0014 = ╱ec╱ , ╱ // 0x1e55 @0x14
0x1e41…1e86 at0015 = ╱53╱S╱ // 0x1e56 @0x15
0x1e41…1e86 at0016 = ╱59╱Y╱ // 0x1e57 @0x16
0x1e41…1e86 at0017 = ╱53╱S╱ // 0x1e58 @0x17
0x1e41…1e86 at0018 = ╱54╱T╱ // 0x1e59 @0x18
0x1e41…1e86 at0019 = ╱5f╱_╱ // 0x1e5a @0x19
0x1e41…1e86 at001a = ╱44╱D╱ // 0x1e5b @0x1a
0x1e41…1e86 at001b = ╱41╱A╱ // 0x1e5c @0x1b
0x1e41…1e86 at001c = ╱54╱T╱ // 0x1e5d @0x1c
0x1e41…1e86 at001d = ╱ef╱ $ ╱ // 0x1e5e @0x1d
0x1e41…1e86 at001e = ╱ec╱ , ╱ // 0x1e5f @0x1e
0x1e41…1e86 at001f = ╱41╱A╱ // 0x1e60 @0x1f
0x1e41…1e86 at0020 = ╱5f╱_╱ // 0x1e61 @0x20
0x1e41…1e86 at0021 = ╱54╱T╱ // 0x1e62 @0x21
0x1e41…1e86 at0022 = ╱58╱X╱ // 0x1e63 @0x22
0x1e41…1e86 at0023 = ╱54╱T╱ // 0x1e64 @0x23
0x1e41…1e86 at0024 = ╱ef╱ $ ╱ // 0x1e65 @0x24
0x1e41…1e86 at0025 = ╱ec╱ , ╱ // 0x1e66 @0x25
0x1e41…1e86 at0026 = ╱4e╱N╱ // 0x1e67 @0x26
0x1e41…1e86 at0027 = ╱55╱U╱ // 0x1e68 @0x27
0x1e41…1e86 at0028 = ╱4c╱L╱ // 0x1e69 @0x28
0x1e41…1e86 at0029 = ╱52╱R╱ // 0x1e6a @0x29
0x1e41…1e86 at002a = ╱ec╱ , ╱ // 0x1e6b @0x2a
0x1e41…1e86 at002b = ╱41╱A╱ // 0x1e6c @0x2b
0x1e41…1e86 at002c = ╱5f╱_╱ // 0x1e6d @0x2c
0x1e41…1e86 at002d = ╱4b╱K╱ // 0x1e6e @0x2d
0x1e41…1e86 at002e = ╱54╱T╱ // 0x1e6f @0x2e
0x1e41…1e86 at002f = ╱4f╱O╱ // 0x1e70 @0x2f
0x1e41…1e86 at0030 = ╱5f╱_╱ // 0x1e71 @0x30
0x1e41…1e86 at0031 = ╱55╱U╱ // 0x1e72 @0x31
0x1e41…1e86 at0032 = ╱4c╱L╱ // 0x1e73 @0x32
0x1e41…1e86 at0033 = ╱54╱T╱ // 0x1e74 @0x33
0x1e41…1e86 at0034 = ╱49╱I╱ // 0x1e75 @0x34
0x1e41…1e86 at0035 = ╱4d╱M╱ // 0x1e76 @0x35
0x1e41…1e86 at0036 = ╱4f╱O╱ // 0x1e77 @0x36
0x1e41…1e86 at0037 = ╱ec╱ , ╱ // 0x1e78 @0x37
0x1e41…1e86 at0038 = ╱41╱A╱ // 0x1e79 @0x38
0x1e41…1e86 at0039 = ╱5f╱_╱ // 0x1e7a @0x39
0x1e41…1e86 at003a = ╱44╱D╱ // 0x1e7b @0x3a
0x1e41…1e86 at003b = ╱4b╱K╱ // 0x1e7c @0x3b
0x1e41…1e86 at003c = ╱ec╱ , ╱ // 0x1e7d @0x3c
0x1e41…1e86 at003d = ╱41╱A╱ // 0x1e7e @0x3d
0x1e41…1e86 at003e = ╱5f╱_╱ // 0x1e7f @0x3e
0x1e41…1e86 at003f = ╱42╱B╱ // 0x1e80 @0x3f
0x1e41…1e86 at0040 = ╱4e╱N╱ // 0x1e81 @0x40
0x1e41…1e86 at0041 = ╱52╱R╱ // 0x1e82 @0x41
0x1e41…1e86 at0042 = ╱ef╱ $ ╱ // 0x1e83 @0x42
0x1e41…1e86 at0043 = ╱ee╱ ) ╱ // 0x1e84 @0x43
0x1e41…1e86 at0044 = EOL // 0x1e85 @0x44
0x1e41…1e86 }
0x1e86…1eb0 b49e 03000 PRINT "<SC3613>" ; A_KTONR $ ; SPC $ ( 1 : 10 )
0x1e86…1eb0 LineComal80 {
0x1e86…1eb0 ptr = 0xb49e // 0x1e86 @0x0
0x1e86…1eb0 lno = 0x0bb8 // 0x1e88 @0x2
0x1e86…1eb0 at0004 = ╱92╱ PRINT ╱ // 0x1e8a @0x4
0x1e86…1eb0 at0005 = ╱22╱"╱ // 0x1e8b @0x5
0x1e86…1eb0 at0006 = ╱3c╱<╱ // 0x1e8c @0x6
0x1e86…1eb0 at0007 = ╱53╱S╱ // 0x1e8d @0x7
0x1e86…1eb0 at0008 = ╱43╱C╱ // 0x1e8e @0x8
0x1e86…1eb0 at0009 = ╱33╱3╱ // 0x1e8f @0x9
0x1e86…1eb0 at000a = ╱36╱6╱ // 0x1e90 @0xa
0x1e86…1eb0 at000b = ╱31╱1╱ // 0x1e91 @0xb
0x1e86…1eb0 at000c = ╱33╱3╱ // 0x1e92 @0xc
0x1e86…1eb0 at000d = ╱3e╱>╱ // 0x1e93 @0xd
0x1e86…1eb0 at000e = ╱22╱"╱ // 0x1e94 @0xe
0x1e86…1eb0 at000f = ╱ea╱ ; ╱ // 0x1e95 @0xf
0x1e86…1eb0 at0010 = ╱41╱A╱ // 0x1e96 @0x10
0x1e86…1eb0 at0011 = ╱5f╱_╱ // 0x1e97 @0x11
0x1e86…1eb0 at0012 = ╱4b╱K╱ // 0x1e98 @0x12
0x1e86…1eb0 at0013 = ╱54╱T╱ // 0x1e99 @0x13
0x1e86…1eb0 at0014 = ╱4f╱O╱ // 0x1e9a @0x14
0x1e86…1eb0 at0015 = ╱4e╱N╱ // 0x1e9b @0x15
0x1e86…1eb0 at0016 = ╱52╱R╱ // 0x1e9c @0x16
0x1e86…1eb0 at0017 = ╱ef╱ $ ╱ // 0x1e9d @0x17
0x1e86…1eb0 at0018 = ╱ea╱ ; ╱ // 0x1e9e @0x18
0x1e86…1eb0 at0019 = ╱53╱S╱ // 0x1e9f @0x19
0x1e86…1eb0 at001a = ╱50╱P╱ // 0x1ea0 @0x1a
0x1e86…1eb0 at001b = ╱43╱C╱ // 0x1ea1 @0x1b
0x1e86…1eb0 at001c = ╱ef╱ $ ╱ // 0x1ea2 @0x1c
0x1e86…1eb0 at001d = ╱ed╱ ( ╱ // 0x1ea3 @0x1d
0x1e86…1eb0 at001e = ╱31╱1╱ // 0x1ea4 @0x1e
0x1e86…1eb0 at001f = ╱f20100╱ // 0x1ea5 @0x1f
0x1e86…1eb0 at0022 = ╱f1╱ : ╱ // 0x1ea8 @0x22
0x1e86…1eb0 at0023 = ╱31╱1╱ // 0x1ea9 @0x23
0x1e86…1eb0 at0024 = ╱30╱0╱ // 0x1eaa @0x24
0x1e86…1eb0 at0025 = ╱f20a00╱ // 0x1eab @0x25
0x1e86…1eb0 at0028 = ╱ee╱ ) ╱ // 0x1eae @0x28
0x1e86…1eb0 at0029 = EOL // 0x1eaf @0x29
0x1e86…1eb0 }
0x1eb0…1ec7 b4b5 03010 UNTIL A_NTRANS > A_KTO_SP
0x1eb0…1ec7 LineComal80 {
0x1eb0…1ec7 ptr = 0xb4b5 // 0x1eb0 @0x0
0x1eb0…1ec7 lno = 0x0bc2 // 0x1eb2 @0x2
0x1eb0…1ec7 at0004 = ╱98╱ UNTIL ╱ // 0x1eb4 @0x4
0x1eb0…1ec7 at0005 = ╱41╱A╱ // 0x1eb5 @0x5
0x1eb0…1ec7 at0006 = ╱5f╱_╱ // 0x1eb6 @0x6
0x1eb0…1ec7 at0007 = ╱4e╱N╱ // 0x1eb7 @0x7
0x1eb0…1ec7 at0008 = ╱54╱T╱ // 0x1eb8 @0x8
0x1eb0…1ec7 at0009 = ╱52╱R╱ // 0x1eb9 @0x9
0x1eb0…1ec7 at000a = ╱41╱A╱ // 0x1eba @0xa
0x1eb0…1ec7 at000b = ╱4e╱N╱ // 0x1ebb @0xb
0x1eb0…1ec7 at000c = ╱53╱S╱ // 0x1ebc @0xc
0x1eb0…1ec7 at000d = ╱e1╱ > ╱ // 0x1ebd @0xd
0x1eb0…1ec7 at000e = ╱41╱A╱ // 0x1ebe @0xe
0x1eb0…1ec7 at000f = ╱5f╱_╱ // 0x1ebf @0xf
0x1eb0…1ec7 at0010 = ╱4b╱K╱ // 0x1ec0 @0x10
0x1eb0…1ec7 at0011 = ╱54╱T╱ // 0x1ec1 @0x11
0x1eb0…1ec7 at0012 = ╱4f╱O╱ // 0x1ec2 @0x12
0x1eb0…1ec7 at0013 = ╱5f╱_╱ // 0x1ec3 @0x13
0x1eb0…1ec7 at0014 = ╱53╱S╱ // 0x1ec4 @0x14
0x1eb0…1ec7 at0015 = ╱50╱P╱ // 0x1ec5 @0x15
0x1eb0…1ec7 at0016 = EOL // 0x1ec6 @0x16
0x1eb0…1ec7 }
0x1ec7…1ef2 b4e0 03020 LET PER_NR := PER_NR + 1 ; ST_DATO $ := SYST_DAT $
0x1ec7…1ef2 LineComal80 {
0x1ec7…1ef2 ptr = 0xb4e0 // 0x1ec7 @0x0
0x1ec7…1ef2 lno = 0x0bcc // 0x1ec9 @0x2
0x1ec7…1ef2 at0004 = ╱86╱ LET ╱ // 0x1ecb @0x4
0x1ec7…1ef2 at0005 = ╱50╱P╱ // 0x1ecc @0x5
0x1ec7…1ef2 at0006 = ╱45╱E╱ // 0x1ecd @0x6
0x1ec7…1ef2 at0007 = ╱52╱R╱ // 0x1ece @0x7
0x1ec7…1ef2 at0008 = ╱5f╱_╱ // 0x1ecf @0x8
0x1ec7…1ef2 at0009 = ╱4e╱N╱ // 0x1ed0 @0x9
0x1ec7…1ef2 at000a = ╱52╱R╱ // 0x1ed1 @0xa
0x1ec7…1ef2 at000b = ╱f0╱ := ╱ // 0x1ed2 @0xb
0x1ec7…1ef2 at000c = ╱50╱P╱ // 0x1ed3 @0xc
0x1ec7…1ef2 at000d = ╱45╱E╱ // 0x1ed4 @0xd
0x1ec7…1ef2 at000e = ╱52╱R╱ // 0x1ed5 @0xe
0x1ec7…1ef2 at000f = ╱5f╱_╱ // 0x1ed6 @0xf
0x1ec7…1ef2 at0010 = ╱4e╱N╱ // 0x1ed7 @0x10
0x1ec7…1ef2 at0011 = ╱52╱R╱ // 0x1ed8 @0x11
0x1ec7…1ef2 at0012 = ╱e5╱ + ╱ // 0x1ed9 @0x12
0x1ec7…1ef2 at0013 = ╱31╱1╱ // 0x1eda @0x13
0x1ec7…1ef2 at0014 = ╱f20100╱ // 0x1edb @0x14
0x1ec7…1ef2 at0017 = ╱ea╱ ; ╱ // 0x1ede @0x17
0x1ec7…1ef2 at0018 = ╱53╱S╱ // 0x1edf @0x18
0x1ec7…1ef2 at0019 = ╱54╱T╱ // 0x1ee0 @0x19
0x1ec7…1ef2 at001a = ╱5f╱_╱ // 0x1ee1 @0x1a
0x1ec7…1ef2 at001b = ╱44╱D╱ // 0x1ee2 @0x1b
0x1ec7…1ef2 at001c = ╱41╱A╱ // 0x1ee3 @0x1c
0x1ec7…1ef2 at001d = ╱54╱T╱ // 0x1ee4 @0x1d
0x1ec7…1ef2 at001e = ╱4f╱O╱ // 0x1ee5 @0x1e
0x1ec7…1ef2 at001f = ╱ef╱ $ ╱ // 0x1ee6 @0x1f
0x1ec7…1ef2 at0020 = ╱f0╱ := ╱ // 0x1ee7 @0x20
0x1ec7…1ef2 at0021 = ╱53╱S╱ // 0x1ee8 @0x21
0x1ec7…1ef2 at0022 = ╱59╱Y╱ // 0x1ee9 @0x22
0x1ec7…1ef2 at0023 = ╱53╱S╱ // 0x1eea @0x23
0x1ec7…1ef2 at0024 = ╱54╱T╱ // 0x1eeb @0x24
0x1ec7…1ef2 at0025 = ╱5f╱_╱ // 0x1eec @0x25
0x1ec7…1ef2 at0026 = ╱44╱D╱ // 0x1eed @0x26
0x1ec7…1ef2 at0027 = ╱41╱A╱ // 0x1eee @0x27
0x1ec7…1ef2 at0028 = ╱54╱T╱ // 0x1eef @0x28
0x1ec7…1ef2 at0029 = ╱ef╱ $ ╱ // 0x1ef0 @0x29
0x1ec7…1ef2 at002a = EOL // 0x1ef1 @0x2a
0x1ec7…1ef2 }
0x1ef2…1f1b b509 03030 PUT PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
0x1ef2…1f1b LineComal80 {
0x1ef2…1f1b ptr = 0xb509 // 0x1ef2 @0x0
0x1ef2…1f1b lno = 0x0bd6 // 0x1ef4 @0x2
0x1ef2…1f1b at0004 = ╱aa╱ PUT ╱ // 0x1ef6 @0x4
0x1ef2…1f1b at0005 = ╱50╱P╱ // 0x1ef7 @0x5
0x1ef2…1f1b at0006 = ╱41╱A╱ // 0x1ef8 @0x6
0x1ef2…1f1b at0007 = ╱52╱R╱ // 0x1ef9 @0x7
0x1ef2…1f1b at0008 = ╱41╱A╱ // 0x1efa @0x8
0x1ef2…1f1b at0009 = ╱4d╱M╱ // 0x1efb @0x9
0x1ef2…1f1b at000a = ╱ef╱ $ ╱ // 0x1efc @0xa
0x1ef2…1f1b at000b = ╱ec╱ , ╱ // 0x1efd @0xb
0x1ef2…1f1b at000c = ╱32╱2╱ // 0x1efe @0xc
0x1ef2…1f1b at000d = ╱f20200╱ // 0x1eff @0xd
0x1ef2…1f1b at0010 = ╱f1╱ : ╱ // 0x1f02 @0x10
0x1ef2…1f1b at0011 = ╱53╱S╱ // 0x1f03 @0x11
0x1ef2…1f1b at0012 = ╱54╱T╱ // 0x1f04 @0x12
0x1ef2…1f1b at0013 = ╱5f╱_╱ // 0x1f05 @0x13
0x1ef2…1f1b at0014 = ╱44╱D╱ // 0x1f06 @0x14
0x1ef2…1f1b at0015 = ╱41╱A╱ // 0x1f07 @0x15
0x1ef2…1f1b at0016 = ╱54╱T╱ // 0x1f08 @0x16
0x1ef2…1f1b at0017 = ╱4f╱O╱ // 0x1f09 @0x17
0x1ef2…1f1b at0018 = ╱ef╱ $ ╱ // 0x1f0a @0x18
0x1ef2…1f1b at0019 = ╱ec╱ , ╱ // 0x1f0b @0x19
0x1ef2…1f1b at001a = ╱41╱A╱ // 0x1f0c @0x1a
0x1ef2…1f1b at001b = ╱4e╱N╱ // 0x1f0d @0x1b
0x1ef2…1f1b at001c = ╱54╱T╱ // 0x1f0e @0x1c
0x1ef2…1f1b at001d = ╱5f╱_╱ // 0x1f0f @0x1d
0x1ef2…1f1b at001e = ╱50╱P╱ // 0x1f10 @0x1e
0x1ef2…1f1b at001f = ╱45╱E╱ // 0x1f11 @0x1f
0x1ef2…1f1b at0020 = ╱52╱R╱ // 0x1f12 @0x20
0x1ef2…1f1b at0021 = ╱ec╱ , ╱ // 0x1f13 @0x21
0x1ef2…1f1b at0022 = ╱50╱P╱ // 0x1f14 @0x22
0x1ef2…1f1b at0023 = ╱45╱E╱ // 0x1f15 @0x23
0x1ef2…1f1b at0024 = ╱52╱R╱ // 0x1f16 @0x24
0x1ef2…1f1b at0025 = ╱5f╱_╱ // 0x1f17 @0x25
0x1ef2…1f1b at0026 = ╱4e╱N╱ // 0x1f18 @0x26
0x1ef2…1f1b at0027 = ╱52╱R╱ // 0x1f19 @0x27
0x1ef2…1f1b at0028 = EOL // 0x1f1a @0x28
0x1ef2…1f1b }
0x1f1b…1f37 b525 03040 PUT DRIFT\ $ , 1 : SYST_DAT $
0x1f1b…1f37 LineComal80 {
0x1f1b…1f37 ptr = 0xb525 // 0x1f1b @0x0
0x1f1b…1f37 lno = 0x0be0 // 0x1f1d @0x2
0x1f1b…1f37 at0004 = ╱aa╱ PUT ╱ // 0x1f1f @0x4
0x1f1b…1f37 at0005 = ╱44╱D╱ // 0x1f20 @0x5
0x1f1b…1f37 at0006 = ╱52╱R╱ // 0x1f21 @0x6
0x1f1b…1f37 at0007 = ╱49╱I╱ // 0x1f22 @0x7
0x1f1b…1f37 at0008 = ╱46╱F╱ // 0x1f23 @0x8
0x1f1b…1f37 at0009 = ╱54╱T╱ // 0x1f24 @0x9
0x1f1b…1f37 at000a = ╱5c╱\╱ // 0x1f25 @0xa
0x1f1b…1f37 at000b = ╱ef╱ $ ╱ // 0x1f26 @0xb
0x1f1b…1f37 at000c = ╱ec╱ , ╱ // 0x1f27 @0xc
0x1f1b…1f37 at000d = ╱31╱1╱ // 0x1f28 @0xd
0x1f1b…1f37 at000e = ╱f20100╱ // 0x1f29 @0xe
0x1f1b…1f37 at0011 = ╱f1╱ : ╱ // 0x1f2c @0x11
0x1f1b…1f37 at0012 = ╱53╱S╱ // 0x1f2d @0x12
0x1f1b…1f37 at0013 = ╱59╱Y╱ // 0x1f2e @0x13
0x1f1b…1f37 at0014 = ╱53╱S╱ // 0x1f2f @0x14
0x1f1b…1f37 at0015 = ╱54╱T╱ // 0x1f30 @0x15
0x1f1b…1f37 at0016 = ╱5f╱_╱ // 0x1f31 @0x16
0x1f1b…1f37 at0017 = ╱44╱D╱ // 0x1f32 @0x17
0x1f1b…1f37 at0018 = ╱41╱A╱ // 0x1f33 @0x18
0x1f1b…1f37 at0019 = ╱54╱T╱ // 0x1f34 @0x19
0x1f1b…1f37 at001a = ╱ef╱ $ ╱ // 0x1f35 @0x1a
0x1f1b…1f37 at001b = EOL // 0x1f36 @0x1b
0x1f1b…1f37 }
0x1f37…1f47 b535 03050 ENDPROC TILBAGEF\R
0x1f37…1f47 LineComal80 {
0x1f37…1f47 ptr = 0xb535 // 0x1f37 @0x0
0x1f37…1f47 lno = 0x0bea // 0x1f39 @0x2
0x1f37…1f47 at0004 = ╱9f╱ ENDPROC ╱ // 0x1f3b @0x4
0x1f37…1f47 at0005 = ╱54╱T╱ // 0x1f3c @0x5
0x1f37…1f47 at0006 = ╱49╱I╱ // 0x1f3d @0x6
0x1f37…1f47 at0007 = ╱4c╱L╱ // 0x1f3e @0x7
0x1f37…1f47 at0008 = ╱42╱B╱ // 0x1f3f @0x8
0x1f37…1f47 at0009 = ╱41╱A╱ // 0x1f40 @0x9
0x1f37…1f47 at000a = ╱47╱G╱ // 0x1f41 @0xa
0x1f37…1f47 at000b = ╱45╱E╱ // 0x1f42 @0xb
0x1f37…1f47 at000c = ╱46╱F╱ // 0x1f43 @0xc
0x1f37…1f47 at000d = ╱5c╱\╱ // 0x1f44 @0xd
0x1f37…1f47 at000e = ╱52╱R╱ // 0x1f45 @0xe
0x1f37…1f47 at000f = EOL // 0x1f46 @0xf
0x1f37…1f47 }
0x1f47…1f55 b543 03060 PROC FREMF\R
0x1f47…1f55 LineComal80 {
0x1f47…1f55 ptr = 0xb543 // 0x1f47 @0x0
0x1f47…1f55 lno = 0x0bf4 // 0x1f49 @0x2
0x1f47…1f55 at0004 = ╱9e00╱ PROC ╱ // 0x1f4b @0x4
0x1f47…1f55 at0006 = ╱46╱F╱ // 0x1f4d @0x6
0x1f47…1f55 at0007 = ╱52╱R╱ // 0x1f4e @0x7
0x1f47…1f55 at0008 = ╱45╱E╱ // 0x1f4f @0x8
0x1f47…1f55 at0009 = ╱4d╱M╱ // 0x1f50 @0x9
0x1f47…1f55 at000a = ╱46╱F╱ // 0x1f51 @0xa
0x1f47…1f55 at000b = ╱5c╱\╱ // 0x1f52 @0xb
0x1f47…1f55 at000c = ╱52╱R╱ // 0x1f53 @0xc
0x1f47…1f55 at000d = EOL // 0x1f54 @0xd
0x1f47…1f55 }
0x1f55…1f79 b567 03070 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x1f55…1f79 LineComal80 {
0x1f55…1f79 ptr = 0xb567 // 0x1f55 @0x0
0x1f55…1f79 lno = 0x0bfe // 0x1f57 @0x2
0x1f55…1f79 at0004 = ╱a9╱ GET ╱ // 0x1f59 @0x4
0x1f55…1f79 at0005 = ╱4b╱K╱ // 0x1f5a @0x5
0x1f55…1f79 at0006 = ╱54╱T╱ // 0x1f5b @0x6
0x1f55…1f79 at0007 = ╱4f╱O╱ // 0x1f5c @0x7
0x1f55…1f79 at0008 = ╱49╱I╱ // 0x1f5d @0x8
0x1f55…1f79 at0009 = ╱44╱D╱ // 0x1f5e @0x9
0x1f55…1f79 at000a = ╱58╱X╱ // 0x1f5f @0xa
0x1f55…1f79 at000b = ╱ef╱ $ ╱ // 0x1f60 @0xb
0x1f55…1f79 at000c = ╱ec╱ , ╱ // 0x1f61 @0xc
0x1f55…1f79 at000d = ╱31╱1╱ // 0x1f62 @0xd
0x1f55…1f79 at000e = ╱f20100╱ // 0x1f63 @0xe
0x1f55…1f79 at0011 = ╱f1╱ : ╱ // 0x1f66 @0x11
0x1f55…1f79 at0012 = ╱49╱I╱ // 0x1f67 @0x12
0x1f55…1f79 at0013 = ╱5f╱_╱ // 0x1f68 @0x13
0x1f55…1f79 at0014 = ╱48╱H╱ // 0x1f69 @0x14
0x1f55…1f79 at0015 = ╱5c╱\╱ // 0x1f6a @0x15
0x1f55…1f79 at0016 = ╱4a╱J╱ // 0x1f6b @0x16
0x1f55…1f79 at0017 = ╱52╱R╱ // 0x1f6c @0x17
0x1f55…1f79 at0018 = ╱45╱E╱ // 0x1f6d @0x18
0x1f55…1f79 at0019 = ╱43╱C╱ // 0x1f6e @0x19
0x1f55…1f79 at001a = ╱ec╱ , ╱ // 0x1f6f @0x1a
0x1f55…1f79 at001b = ╱49╱I╱ // 0x1f70 @0x1b
0x1f55…1f79 at001c = ╱5f╱_╱ // 0x1f71 @0x1c
0x1f55…1f79 at001d = ╱4d╱M╱ // 0x1f72 @0x1d
0x1f55…1f79 at001e = ╱41╱A╱ // 0x1f73 @0x1e
0x1f55…1f79 at001f = ╱58╱X╱ // 0x1f74 @0x1f
0x1f55…1f79 at0020 = ╱52╱R╱ // 0x1f75 @0x20
0x1f55…1f79 at0021 = ╱45╱E╱ // 0x1f76 @0x21
0x1f55…1f79 at0022 = ╱43╱C╱ // 0x1f77 @0x22
0x1f55…1f79 at0023 = EOL // 0x1f78 @0x23
0x1f55…1f79 }
0x1f79…1f90 b57e 03080 FOR I := 2 TO _H\JREC DO
0x1f79…1f90 LineComal80 {
0x1f79…1f90 ptr = 0xb57e // 0x1f79 @0x0
0x1f79…1f90 lno = 0x0c08 // 0x1f7b @0x2
0x1f79…1f90 at0004 = ╱8300╱ FOR ╱ // 0x1f7d @0x4
0x1f79…1f90 at0006 = ╱49╱I╱ // 0x1f7f @0x6
0x1f79…1f90 at0007 = ╱f0╱ := ╱ // 0x1f80 @0x7
0x1f79…1f90 at0008 = ╱32╱2╱ // 0x1f81 @0x8
0x1f79…1f90 at0009 = ╱f20200╱ // 0x1f82 @0x9
0x1f79…1f90 at000c = ╱b749╱ TO ╱ // 0x1f85 @0xc
0x1f79…1f90 at000e = ╱5f╱_╱ // 0x1f87 @0xe
0x1f79…1f90 at000f = ╱48╱H╱ // 0x1f88 @0xf
0x1f79…1f90 at0010 = ╱5c╱\╱ // 0x1f89 @0x10
0x1f79…1f90 at0011 = ╱4a╱J╱ // 0x1f8a @0x11
0x1f79…1f90 at0012 = ╱52╱R╱ // 0x1f8b @0x12
0x1f79…1f90 at0013 = ╱45╱E╱ // 0x1f8c @0x13
0x1f79…1f90 at0014 = ╱43╱C╱ // 0x1f8d @0x14
0x1f79…1f90 at0015 = ╱bb╱ DO ╱ // 0x1f8e @0x15
0x1f79…1f90 at0016 = EOL // 0x1f8f @0x16
0x1f79…1f90 }
0x1f90…1fac b59a 03090 GET KTOIDX $ , I : KTONR $ , RECNR
0x1f90…1fac LineComal80 {
0x1f90…1fac ptr = 0xb59a // 0x1f90 @0x0
0x1f90…1fac lno = 0x0c12 // 0x1f92 @0x2
0x1f90…1fac at0004 = ╱a9╱ GET ╱ // 0x1f94 @0x4
0x1f90…1fac at0005 = ╱4b╱K╱ // 0x1f95 @0x5
0x1f90…1fac at0006 = ╱54╱T╱ // 0x1f96 @0x6
0x1f90…1fac at0007 = ╱4f╱O╱ // 0x1f97 @0x7
0x1f90…1fac at0008 = ╱49╱I╱ // 0x1f98 @0x8
0x1f90…1fac at0009 = ╱44╱D╱ // 0x1f99 @0x9
0x1f90…1fac at000a = ╱58╱X╱ // 0x1f9a @0xa
0x1f90…1fac at000b = ╱ef╱ $ ╱ // 0x1f9b @0xb
0x1f90…1fac at000c = ╱ec╱ , ╱ // 0x1f9c @0xc
0x1f90…1fac at000d = ╱49╱I╱ // 0x1f9d @0xd
0x1f90…1fac at000e = ╱f1╱ : ╱ // 0x1f9e @0xe
0x1f90…1fac at000f = ╱4b╱K╱ // 0x1f9f @0xf
0x1f90…1fac at0010 = ╱54╱T╱ // 0x1fa0 @0x10
0x1f90…1fac at0011 = ╱4f╱O╱ // 0x1fa1 @0x11
0x1f90…1fac at0012 = ╱4e╱N╱ // 0x1fa2 @0x12
0x1f90…1fac at0013 = ╱52╱R╱ // 0x1fa3 @0x13
0x1f90…1fac at0014 = ╱ef╱ $ ╱ // 0x1fa4 @0x14
0x1f90…1fac at0015 = ╱ec╱ , ╱ // 0x1fa5 @0x15
0x1f90…1fac at0016 = ╱52╱R╱ // 0x1fa6 @0x16
0x1f90…1fac at0017 = ╱45╱E╱ // 0x1fa7 @0x17
0x1f90…1fac at0018 = ╱43╱C╱ // 0x1fa8 @0x18
0x1f90…1fac at0019 = ╱4e╱N╱ // 0x1fa9 @0x19
0x1f90…1fac at001a = ╱52╱R╱ // 0x1faa @0x1a
0x1f90…1fac at001b = EOL // 0x1fab @0x1b
0x1f90…1fac }
0x1fac…1fc2 b5b0 03100 EXEC L[S_KONTO ( RECNR )
0x1fac…1fc2 LineComal80 {
0x1fac…1fc2 ptr = 0xb5b0 // 0x1fac @0x0
0x1fac…1fc2 lno = 0x0c1c // 0x1fae @0x2
0x1fac…1fc2 at0004 = ╱9d╱ EXEC ╱ // 0x1fb0 @0x4
0x1fac…1fc2 at0005 = ╱4c╱L╱ // 0x1fb1 @0x5
0x1fac…1fc2 at0006 = ╱5b╱[╱ // 0x1fb2 @0x6
0x1fac…1fc2 at0007 = ╱53╱S╱ // 0x1fb3 @0x7
0x1fac…1fc2 at0008 = ╱5f╱_╱ // 0x1fb4 @0x8
0x1fac…1fc2 at0009 = ╱4b╱K╱ // 0x1fb5 @0x9
0x1fac…1fc2 at000a = ╱4f╱O╱ // 0x1fb6 @0xa
0x1fac…1fc2 at000b = ╱4e╱N╱ // 0x1fb7 @0xb
0x1fac…1fc2 at000c = ╱54╱T╱ // 0x1fb8 @0xc
0x1fac…1fc2 at000d = ╱4f╱O╱ // 0x1fb9 @0xd
0x1fac…1fc2 at000e = ╱ed╱ ( ╱ // 0x1fba @0xe
0x1fac…1fc2 at000f = ╱52╱R╱ // 0x1fbb @0xf
0x1fac…1fc2 at0010 = ╱45╱E╱ // 0x1fbc @0x10
0x1fac…1fc2 at0011 = ╱43╱C╱ // 0x1fbd @0x11
0x1fac…1fc2 at0012 = ╱4e╱N╱ // 0x1fbe @0x12
0x1fac…1fc2 at0013 = ╱52╱R╱ // 0x1fbf @0x13
0x1fac…1fc2 at0014 = ╱ee╱ ) ╱ // 0x1fc0 @0x14
0x1fac…1fc2 at0015 = EOL // 0x1fc1 @0x15
0x1fac…1fc2 }
0x1fc2…1fe9 b5d7 03110 PRINT "<C3613>" ; KTONR $ ; SPC $ ( 1 : 10 )
0x1fc2…1fe9 LineComal80 {
0x1fc2…1fe9 ptr = 0xb5d7 // 0x1fc2 @0x0
0x1fc2…1fe9 lno = 0x0c26 // 0x1fc4 @0x2
0x1fc2…1fe9 at0004 = ╱92╱ PRINT ╱ // 0x1fc6 @0x4
0x1fc2…1fe9 at0005 = ╱22╱"╱ // 0x1fc7 @0x5
0x1fc2…1fe9 at0006 = ╱3c╱<╱ // 0x1fc8 @0x6
0x1fc2…1fe9 at0007 = ╱43╱C╱ // 0x1fc9 @0x7
0x1fc2…1fe9 at0008 = ╱33╱3╱ // 0x1fca @0x8
0x1fc2…1fe9 at0009 = ╱36╱6╱ // 0x1fcb @0x9
0x1fc2…1fe9 at000a = ╱31╱1╱ // 0x1fcc @0xa
0x1fc2…1fe9 at000b = ╱33╱3╱ // 0x1fcd @0xb
0x1fc2…1fe9 at000c = ╱3e╱>╱ // 0x1fce @0xc
0x1fc2…1fe9 at000d = ╱22╱"╱ // 0x1fcf @0xd
0x1fc2…1fe9 at000e = ╱ea╱ ; ╱ // 0x1fd0 @0xe
0x1fc2…1fe9 at000f = ╱4b╱K╱ // 0x1fd1 @0xf
0x1fc2…1fe9 at0010 = ╱54╱T╱ // 0x1fd2 @0x10
0x1fc2…1fe9 at0011 = ╱4f╱O╱ // 0x1fd3 @0x11
0x1fc2…1fe9 at0012 = ╱4e╱N╱ // 0x1fd4 @0x12
0x1fc2…1fe9 at0013 = ╱52╱R╱ // 0x1fd5 @0x13
0x1fc2…1fe9 at0014 = ╱ef╱ $ ╱ // 0x1fd6 @0x14
0x1fc2…1fe9 at0015 = ╱ea╱ ; ╱ // 0x1fd7 @0x15
0x1fc2…1fe9 at0016 = ╱53╱S╱ // 0x1fd8 @0x16
0x1fc2…1fe9 at0017 = ╱50╱P╱ // 0x1fd9 @0x17
0x1fc2…1fe9 at0018 = ╱43╱C╱ // 0x1fda @0x18
0x1fc2…1fe9 at0019 = ╱ef╱ $ ╱ // 0x1fdb @0x19
0x1fc2…1fe9 at001a = ╱ed╱ ( ╱ // 0x1fdc @0x1a
0x1fc2…1fe9 at001b = ╱31╱1╱ // 0x1fdd @0x1b
0x1fc2…1fe9 at001c = ╱f20100╱ // 0x1fde @0x1c
0x1fc2…1fe9 at001f = ╱f1╱ : ╱ // 0x1fe1 @0x1f
0x1fc2…1fe9 at0020 = ╱31╱1╱ // 0x1fe2 @0x20
0x1fc2…1fe9 at0021 = ╱30╱0╱ // 0x1fe3 @0x21
0x1fc2…1fe9 at0022 = ╱f20a00╱ // 0x1fe4 @0x22
0x1fc2…1fe9 at0025 = ╱ee╱ ) ╱ // 0x1fe7 @0x25
0x1fc2…1fe9 at0026 = EOL // 0x1fe8 @0x26
0x1fc2…1fe9 }
0x1fe9…201b b609 03120 LET KTO_PRIMO := KTO_ULTIMO ; KTO_FP := 0 ; KTO_SP := 0
0x1fe9…201b LineComal80 {
0x1fe9…201b ptr = 0xb609 // 0x1fe9 @0x0
0x1fe9…201b lno = 0x0c30 // 0x1feb @0x2
0x1fe9…201b at0004 = ╱86╱ LET ╱ // 0x1fed @0x4
0x1fe9…201b at0005 = ╱4b╱K╱ // 0x1fee @0x5
0x1fe9…201b at0006 = ╱54╱T╱ // 0x1fef @0x6
0x1fe9…201b at0007 = ╱4f╱O╱ // 0x1ff0 @0x7
0x1fe9…201b at0008 = ╱5f╱_╱ // 0x1ff1 @0x8
0x1fe9…201b at0009 = ╱50╱P╱ // 0x1ff2 @0x9
0x1fe9…201b at000a = ╱52╱R╱ // 0x1ff3 @0xa
0x1fe9…201b at000b = ╱49╱I╱ // 0x1ff4 @0xb
0x1fe9…201b at000c = ╱4d╱M╱ // 0x1ff5 @0xc
0x1fe9…201b at000d = ╱4f╱O╱ // 0x1ff6 @0xd
0x1fe9…201b at000e = ╱f0╱ := ╱ // 0x1ff7 @0xe
0x1fe9…201b at000f = ╱4b╱K╱ // 0x1ff8 @0xf
0x1fe9…201b at0010 = ╱54╱T╱ // 0x1ff9 @0x10
0x1fe9…201b at0011 = ╱4f╱O╱ // 0x1ffa @0x11
0x1fe9…201b at0012 = ╱5f╱_╱ // 0x1ffb @0x12
0x1fe9…201b at0013 = ╱55╱U╱ // 0x1ffc @0x13
0x1fe9…201b at0014 = ╱4c╱L╱ // 0x1ffd @0x14
0x1fe9…201b at0015 = ╱54╱T╱ // 0x1ffe @0x15
0x1fe9…201b at0016 = ╱49╱I╱ // 0x1fff @0x16
0x1fe9…201b at0017 = ╱4d╱M╱ // 0x2000 @0x17
0x1fe9…201b at0018 = ╱4f╱O╱ // 0x2001 @0x18
0x1fe9…201b at0019 = ╱ea╱ ; ╱ // 0x2002 @0x19
0x1fe9…201b at001a = ╱4b╱K╱ // 0x2003 @0x1a
0x1fe9…201b at001b = ╱54╱T╱ // 0x2004 @0x1b
0x1fe9…201b at001c = ╱4f╱O╱ // 0x2005 @0x1c
0x1fe9…201b at001d = ╱5f╱_╱ // 0x2006 @0x1d
0x1fe9…201b at001e = ╱46╱F╱ // 0x2007 @0x1e
0x1fe9…201b at001f = ╱50╱P╱ // 0x2008 @0x1f
0x1fe9…201b at0020 = ╱f0╱ := ╱ // 0x2009 @0x20
0x1fe9…201b at0021 = ╱30╱0╱ // 0x200a @0x21
0x1fe9…201b at0022 = ╱f20000╱ // 0x200b @0x22
0x1fe9…201b at0025 = ╱ea╱ ; ╱ // 0x200e @0x25
0x1fe9…201b at0026 = ╱4b╱K╱ // 0x200f @0x26
0x1fe9…201b at0027 = ╱54╱T╱ // 0x2010 @0x27
0x1fe9…201b at0028 = ╱4f╱O╱ // 0x2011 @0x28
0x1fe9…201b at0029 = ╱5f╱_╱ // 0x2012 @0x29
0x1fe9…201b at002a = ╱53╱S╱ // 0x2013 @0x2a
0x1fe9…201b at002b = ╱50╱P╱ // 0x2014 @0x2b
0x1fe9…201b at002c = ╱f0╱ := ╱ // 0x2015 @0x2c
0x1fe9…201b at002d = ╱30╱0╱ // 0x2016 @0x2d
0x1fe9…201b at002e = ╱f20000╱ // 0x2017 @0x2e
0x1fe9…201b at0031 = EOL // 0x201a @0x31
0x1fe9…201b }
0x201b…2033 b621 03130 EXEC SKRIV_KONTO ( RECNR )
0x201b…2033 LineComal80 {
0x201b…2033 ptr = 0xb621 // 0x201b @0x0
0x201b…2033 lno = 0x0c3a // 0x201d @0x2
0x201b…2033 at0004 = ╱9d╱ EXEC ╱ // 0x201f @0x4
0x201b…2033 at0005 = ╱53╱S╱ // 0x2020 @0x5
0x201b…2033 at0006 = ╱4b╱K╱ // 0x2021 @0x6
0x201b…2033 at0007 = ╱52╱R╱ // 0x2022 @0x7
0x201b…2033 at0008 = ╱49╱I╱ // 0x2023 @0x8
0x201b…2033 at0009 = ╱56╱V╱ // 0x2024 @0x9
0x201b…2033 at000a = ╱5f╱_╱ // 0x2025 @0xa
0x201b…2033 at000b = ╱4b╱K╱ // 0x2026 @0xb
0x201b…2033 at000c = ╱4f╱O╱ // 0x2027 @0xc
0x201b…2033 at000d = ╱4e╱N╱ // 0x2028 @0xd
0x201b…2033 at000e = ╱54╱T╱ // 0x2029 @0xe
0x201b…2033 at000f = ╱4f╱O╱ // 0x202a @0xf
0x201b…2033 at0010 = ╱ed╱ ( ╱ // 0x202b @0x10
0x201b…2033 at0011 = ╱52╱R╱ // 0x202c @0x11
0x201b…2033 at0012 = ╱45╱E╱ // 0x202d @0x12
0x201b…2033 at0013 = ╱43╱C╱ // 0x202e @0x13
0x201b…2033 at0014 = ╱4e╱N╱ // 0x202f @0x14
0x201b…2033 at0015 = ╱52╱R╱ // 0x2030 @0x15
0x201b…2033 at0016 = ╱ee╱ ) ╱ // 0x2031 @0x16
0x201b…2033 at0017 = EOL // 0x2032 @0x17
0x201b…2033 }
0x2033…203a b628 03140 NEXT I
0x2033…203a LineComal80 {
0x2033…203a ptr = 0xb628 // 0x2033 @0x0
0x2033…203a lno = 0x0c44 // 0x2035 @0x2
0x2033…203a at0004 = ╱84╱ NEXT ╱ // 0x2037 @0x4
0x2033…203a at0005 = ╱49╱I╱ // 0x2038 @0x5
0x2033…203a at0006 = EOL // 0x2039 @0x6
0x2033…203a }
0x203a…205d b64b 03150 GET TRANS $ , 1 : T_H\JREC , T_MAXREC
0x203a…205d LineComal80 {
0x203a…205d ptr = 0xb64b // 0x203a @0x0
0x203a…205d lno = 0x0c4e // 0x203c @0x2
0x203a…205d at0004 = ╱a9╱ GET ╱ // 0x203e @0x4
0x203a…205d at0005 = ╱54╱T╱ // 0x203f @0x5
0x203a…205d at0006 = ╱52╱R╱ // 0x2040 @0x6
0x203a…205d at0007 = ╱41╱A╱ // 0x2041 @0x7
0x203a…205d at0008 = ╱4e╱N╱ // 0x2042 @0x8
0x203a…205d at0009 = ╱53╱S╱ // 0x2043 @0x9
0x203a…205d at000a = ╱ef╱ $ ╱ // 0x2044 @0xa
0x203a…205d at000b = ╱ec╱ , ╱ // 0x2045 @0xb
0x203a…205d at000c = ╱31╱1╱ // 0x2046 @0xc
0x203a…205d at000d = ╱f20100╱ // 0x2047 @0xd
0x203a…205d at0010 = ╱f1╱ : ╱ // 0x204a @0x10
0x203a…205d at0011 = ╱54╱T╱ // 0x204b @0x11
0x203a…205d at0012 = ╱5f╱_╱ // 0x204c @0x12
0x203a…205d at0013 = ╱48╱H╱ // 0x204d @0x13
0x203a…205d at0014 = ╱5c╱\╱ // 0x204e @0x14
0x203a…205d at0015 = ╱4a╱J╱ // 0x204f @0x15
0x203a…205d at0016 = ╱52╱R╱ // 0x2050 @0x16
0x203a…205d at0017 = ╱45╱E╱ // 0x2051 @0x17
0x203a…205d at0018 = ╱43╱C╱ // 0x2052 @0x18
0x203a…205d at0019 = ╱ec╱ , ╱ // 0x2053 @0x19
0x203a…205d at001a = ╱54╱T╱ // 0x2054 @0x1a
0x203a…205d at001b = ╱5f╱_╱ // 0x2055 @0x1b
0x203a…205d at001c = ╱4d╱M╱ // 0x2056 @0x1c
0x203a…205d at001d = ╱41╱A╱ // 0x2057 @0x1d
0x203a…205d at001e = ╱58╱X╱ // 0x2058 @0x1e
0x203a…205d at001f = ╱52╱R╱ // 0x2059 @0x1f
0x203a…205d at0020 = ╱45╱E╱ // 0x205a @0x20
0x203a…205d at0021 = ╱43╱C╱ // 0x205b @0x21
0x203a…205d at0022 = EOL // 0x205c @0x22
0x203a…205d }
0x205d…2070 b65e 03160 LET T_H\JREC := 1
0x205d…2070 LineComal80 {
0x205d…2070 ptr = 0xb65e // 0x205d @0x0
0x205d…2070 lno = 0x0c58 // 0x205f @0x2
0x205d…2070 at0004 = ╱86╱ LET ╱ // 0x2061 @0x4
0x205d…2070 at0005 = ╱54╱T╱ // 0x2062 @0x5
0x205d…2070 at0006 = ╱5f╱_╱ // 0x2063 @0x6
0x205d…2070 at0007 = ╱48╱H╱ // 0x2064 @0x7
0x205d…2070 at0008 = ╱5c╱\╱ // 0x2065 @0x8
0x205d…2070 at0009 = ╱4a╱J╱ // 0x2066 @0x9
0x205d…2070 at000a = ╱52╱R╱ // 0x2067 @0xa
0x205d…2070 at000b = ╱45╱E╱ // 0x2068 @0xb
0x205d…2070 at000c = ╱43╱C╱ // 0x2069 @0xc
0x205d…2070 at000d = ╱f0╱ := ╱ // 0x206a @0xd
0x205d…2070 at000e = ╱31╱1╱ // 0x206b @0xe
0x205d…2070 at000f = ╱f20100╱ // 0x206c @0xf
0x205d…2070 at0012 = EOL // 0x206f @0x12
0x205d…2070 }
0x2070…2093 b681 03170 PUT TRANS $ , 1 : T_H\JREC , T_MAXREC
0x2070…2093 LineComal80 {
0x2070…2093 ptr = 0xb681 // 0x2070 @0x0
0x2070…2093 lno = 0x0c62 // 0x2072 @0x2
0x2070…2093 at0004 = ╱aa╱ PUT ╱ // 0x2074 @0x4
0x2070…2093 at0005 = ╱54╱T╱ // 0x2075 @0x5
0x2070…2093 at0006 = ╱52╱R╱ // 0x2076 @0x6
0x2070…2093 at0007 = ╱41╱A╱ // 0x2077 @0x7
0x2070…2093 at0008 = ╱4e╱N╱ // 0x2078 @0x8
0x2070…2093 at0009 = ╱53╱S╱ // 0x2079 @0x9
0x2070…2093 at000a = ╱ef╱ $ ╱ // 0x207a @0xa
0x2070…2093 at000b = ╱ec╱ , ╱ // 0x207b @0xb
0x2070…2093 at000c = ╱31╱1╱ // 0x207c @0xc
0x2070…2093 at000d = ╱f20100╱ // 0x207d @0xd
0x2070…2093 at0010 = ╱f1╱ : ╱ // 0x2080 @0x10
0x2070…2093 at0011 = ╱54╱T╱ // 0x2081 @0x11
0x2070…2093 at0012 = ╱5f╱_╱ // 0x2082 @0x12
0x2070…2093 at0013 = ╱48╱H╱ // 0x2083 @0x13
0x2070…2093 at0014 = ╱5c╱\╱ // 0x2084 @0x14
0x2070…2093 at0015 = ╱4a╱J╱ // 0x2085 @0x15
0x2070…2093 at0016 = ╱52╱R╱ // 0x2086 @0x16
0x2070…2093 at0017 = ╱45╱E╱ // 0x2087 @0x17
0x2070…2093 at0018 = ╱43╱C╱ // 0x2088 @0x18
0x2070…2093 at0019 = ╱ec╱ , ╱ // 0x2089 @0x19
0x2070…2093 at001a = ╱54╱T╱ // 0x208a @0x1a
0x2070…2093 at001b = ╱5f╱_╱ // 0x208b @0x1b
0x2070…2093 at001c = ╱4d╱M╱ // 0x208c @0x1c
0x2070…2093 at001d = ╱41╱A╱ // 0x208d @0x1d
0x2070…2093 at001e = ╱58╱X╱ // 0x208e @0x1e
0x2070…2093 at001f = ╱52╱R╱ // 0x208f @0x1f
0x2070…2093 at0020 = ╱45╱E╱ // 0x2090 @0x20
0x2070…2093 at0021 = ╱43╱C╱ // 0x2091 @0x21
0x2070…2093 at0022 = EOL // 0x2092 @0x22
0x2070…2093 }
0x2093…20be b6ac 03180 LET PER_NR := PER_NR + 1 ; ST_DATO $ := SYST_DAT $
0x2093…20be LineComal80 {
0x2093…20be ptr = 0xb6ac // 0x2093 @0x0
0x2093…20be lno = 0x0c6c // 0x2095 @0x2
0x2093…20be at0004 = ╱86╱ LET ╱ // 0x2097 @0x4
0x2093…20be at0005 = ╱50╱P╱ // 0x2098 @0x5
0x2093…20be at0006 = ╱45╱E╱ // 0x2099 @0x6
0x2093…20be at0007 = ╱52╱R╱ // 0x209a @0x7
0x2093…20be at0008 = ╱5f╱_╱ // 0x209b @0x8
0x2093…20be at0009 = ╱4e╱N╱ // 0x209c @0x9
0x2093…20be at000a = ╱52╱R╱ // 0x209d @0xa
0x2093…20be at000b = ╱f0╱ := ╱ // 0x209e @0xb
0x2093…20be at000c = ╱50╱P╱ // 0x209f @0xc
0x2093…20be at000d = ╱45╱E╱ // 0x20a0 @0xd
0x2093…20be at000e = ╱52╱R╱ // 0x20a1 @0xe
0x2093…20be at000f = ╱5f╱_╱ // 0x20a2 @0xf
0x2093…20be at0010 = ╱4e╱N╱ // 0x20a3 @0x10
0x2093…20be at0011 = ╱52╱R╱ // 0x20a4 @0x11
0x2093…20be at0012 = ╱e5╱ + ╱ // 0x20a5 @0x12
0x2093…20be at0013 = ╱31╱1╱ // 0x20a6 @0x13
0x2093…20be at0014 = ╱f20100╱ // 0x20a7 @0x14
0x2093…20be at0017 = ╱ea╱ ; ╱ // 0x20aa @0x17
0x2093…20be at0018 = ╱53╱S╱ // 0x20ab @0x18
0x2093…20be at0019 = ╱54╱T╱ // 0x20ac @0x19
0x2093…20be at001a = ╱5f╱_╱ // 0x20ad @0x1a
0x2093…20be at001b = ╱44╱D╱ // 0x20ae @0x1b
0x2093…20be at001c = ╱41╱A╱ // 0x20af @0x1c
0x2093…20be at001d = ╱54╱T╱ // 0x20b0 @0x1d
0x2093…20be at001e = ╱4f╱O╱ // 0x20b1 @0x1e
0x2093…20be at001f = ╱ef╱ $ ╱ // 0x20b2 @0x1f
0x2093…20be at0020 = ╱f0╱ := ╱ // 0x20b3 @0x20
0x2093…20be at0021 = ╱53╱S╱ // 0x20b4 @0x21
0x2093…20be at0022 = ╱59╱Y╱ // 0x20b5 @0x22
0x2093…20be at0023 = ╱53╱S╱ // 0x20b6 @0x23
0x2093…20be at0024 = ╱54╱T╱ // 0x20b7 @0x24
0x2093…20be at0025 = ╱5f╱_╱ // 0x20b8 @0x25
0x2093…20be at0026 = ╱44╱D╱ // 0x20b9 @0x26
0x2093…20be at0027 = ╱41╱A╱ // 0x20ba @0x27
0x2093…20be at0028 = ╱54╱T╱ // 0x20bb @0x28
0x2093…20be at0029 = ╱ef╱ $ ╱ // 0x20bc @0x29
0x2093…20be at002a = EOL // 0x20bd @0x2a
0x2093…20be }
0x20be…20cb 0000 03190 ENDPROC FREMF\R
0x20be…20cb LineComal80 {
0x20be…20cb ptr = 0x0000 // 0x20be @0x0
0x20be…20cb lno = 0x0c76 // 0x20c0 @0x2
0x20be…20cb at0004 = ╱9f╱ ENDPROC ╱ // 0x20c2 @0x4
0x20be…20cb at0005 = ╱46╱F╱ // 0x20c3 @0x5
0x20be…20cb at0006 = ╱52╱R╱ // 0x20c4 @0x6
0x20be…20cb at0007 = ╱45╱E╱ // 0x20c5 @0x7
0x20be…20cb at0008 = ╱4d╱M╱ // 0x20c6 @0x8
0x20be…20cb at0009 = ╱46╱F╱ // 0x20c7 @0x9
0x20be…20cb at000a = ╱5c╱\╱ // 0x20c8 @0xa
0x20be…20cb at000b = ╱52╱R╱ // 0x20c9 @0xb
0x20be…20cb at000c = EOL // 0x20ca @0xc
0x20be…20cb }
0x20cb…20d1 (110,) 95ee 38382 ╱00╱ ╱00╱
0x20cb…20d1 LineComal80 {
0x20cb…20d1 ptr = 0x95ee // 0x20cb @0x0
0x20cb…20d1 lno = 0x95ee // 0x20cd @0x2
0x20cb…20d1 at0004 = ╱00╱ // 0x20cf @0x4
0x20cb…20d1 at0005 = ╱00╱ // 0x20d0 @0x5
0x20cb…20d1 }