|
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: 8563 (0x2173)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSK«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSK«
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 // =============…procedurer…starter…=============
00290 PROC DIMENSIONER
00300 // Standard…variable
00310 DIM SPC $ OF 80 , TAL $ OF 10 , ALFA $ OF 28 , SVAR $ OF 8 , PRGFL $ OF 8
00320 DIM PROGRAM $ OF 17
00330 REAL RESRV , PPAR
00340 INTEGER OK , TRUE , FALSE , I , J
00350 // Hj{lpevariable
00360 DIM A_KTO_NAVN $ OF 40 , A_KTO_TYPE $ OF 1 , A_KTONR $ OF 8 , HJ_ST $ OF 10
00370 INTEGER POS , HIGH , LOW , OPRET , IDXPOS
00380 // Variable…til…filen…SYSPARA
00390 DIM SYSPARA $ OF 17
00400 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00410 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00420 // Variable…til…filen…@@PARAM
00430 DIM PARAM $ OF 17
00440 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 8
00450 REAL MOMS
00460 // Variable…til…filen…@@KONTO
00470 DIM KONTO $ OF 17
00480 DIM ST_DATO $ OF 6
00490 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
00500 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00510 REAL KTO_PRIMO , KTO_ULTIMO
00520 INTEGER KTO_FP , KTO_SP
00530 // Variable…til…filen…@@KTOIDX
00540 DIM KTOIDX $ OF 17
00550 INTEGER I_H\JREC , I_MAXREC
00560 DIM KTONR $ OF 8
00570 INTEGER RECNR
00580 ENDPROC DIMENSIONER
00590
00600 PROC INITIER
00610 LET PRGFL $ := "DP2"
00620 LET PROGRAM $ := PRGFL $ + ":SYS"
00630 LET TAL $ := "0123456789"
00640 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00650 LET SPC $ := "…………………………………………………………………………………………………………"
00660 LET SPC $ := SPC $ + SPC $
00670 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00680 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00690 EXEC OPENFIL ( SYSPARA $ , "R" )
00700 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00710 EXEC TERMINAL_IDX
00720 CLOSE SYSPARA $
00730 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00740 EXEC OPENFIL ( PARAM $ , "R" )
00750 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00760 CLOSE PARAM $
00770 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00780 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
00790 EXEC OPENFIL ( KTOIDX $ , "W" )
00800 EXEC OPENFIL ( KONTO $ , "W" )
00810 ENDPROC INITIER
00820
00830 PROC FUNKTIONSMENU
00840 REPEAT
00850 EXEC OVERSKRIFT ( "Kontofunktioner" , 6 )
00860 PRINT "<C2309>Opret/ret…konti………………………………………OK"
00870 PRINT "<C2311>Slet…konti……………………………………………………SK"
00880 PRINT "<C2314>Programfordeler…………………………………RETURN"
00890 LET SVAR $ := "……"
00900 REPEAT
00910 EDIT "<C2617>Indtast…funktionskode:…" : SVAR $ ( 1 : 2 )
00920 EXEC SL_FEJLLINIE
00930 IF "/" + SVAR $ + "/" IN "/……/OK/ok/SK/sk//" THEN
00940 EXEC FEJL ( "Ulovlig…funktionskode:…'" + SVAR $ + "'" )
00950 ENDIF
00960 UNTIL "/" + SVAR $ + "/" IN "/……/OK/ok/SK/sk//"
00970 CASE SVAR $ OF
00980 WHILE "OK" , "ok"
00990 EXEC OPRET_RET_KONTI
01000 WHILE "SK" , "sk"
01010 EXEC SLET_KONTI
01020 OTHERWISE
01030 CLOSE
01040 CHAIN PROGRAM $
01050 ENDCASE
01060 UNTIL FALSE
01070 ENDPROC FUNKTIONSMENU
01080 //
01090 PROC TERMINAL_IDX
01100 LET PPAR := 5 ; RESRV := 0
01110 CALL :PRES"
01120 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01130 ENDPROC TERMINAL_IDX
01140
01150 PROC OPENFIL ( FNAVN $ , WAY $ )
01160 REPEAT
01170 IF AY $ = "W" OR WAY $ = "w" THEN
01180 OPEN FNAVN $ , W
01190 ELSE
01200 OPEN FNAVN $ , R
01210 ENDIF
01220 IF ( FNAVN $ ) THEN
01230 PRINT "<S>" ; CHR$ ( 7 )
01240 IF ( FNAVN $ ) = 6 THEN
01250 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
01260 INPUT "" : SVAR $
01270 ELSE
01280 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01290 PRINT "<S>" ; FNAVN $ ; "…***"
01300 INPUT "" : SVAR $
01310 PRINT "<C0102>" ; SPC $
01320 ENDIF
01330 ENDIF
01340 UNTIL NOT ╱cd╱ ( FNAVN $ )
01350 ENDPROC OPENFIL
01360
01370 PROC OVERSKRIFT ( ST $ , L )
01380 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01390 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01400 PRINT SYST_DAT $ ( 5 : 2 )
01410 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
01420 PRINT "***…" ; ST $ ; "…***"
01430 ENDPROC OVERSKRIFT
01440
01450 PROC SL_FEJLLINIE
01460 LET OK := TRUE
01470 PRINT "<C0102>" ; SPC $
01480 ENDPROC SL_FEJLLINIE
01490
01500 PROC FEJL ( ST $ )
01510 LET OK := FALSE
01520 CURSOR 36 - ( ╱cb╱ ( ST $ ) / 2 ) , 2
01530 PRINT "<S>***…" + ST $ + "…***" ; CHR$ ( 7 )
01540 ENDPROC FEJL
01550
01560 PROC OPRET_RET_KONTI
01570 REPEAT
01580 LET A_KTONR $ := "" ; A_KTO_TYPE $ := "" ; KTO_NAVN $ := ""
01590 EXEC OVERSKRIFT ( "Opret/ret…konti" , 6 )
01600 FOR I := 1 TO DO
01610 EXEC RET_LINIE ( I )
01620 NEXT I
01630 REPEAT
01640 LET SVAR $ := "…"
01650 REPEAT
01660 PRINT "<SC0118>" ; SPC $ ( 1 : 78 )
01670 IF PRET THEN
01680 GET KONTO $ , 1 : N_FRIREC , N_MAXREC
01690 IF _FRIREC > N_MAXREC THEN
01700 EXEC FEJL ( "Der…kan…ikke…oprettes…flere…konti" )
01710 INPUT "<SC6524>Tryk…<RETURN>" : SVAR $
01720 // CHAIN…PROGRAM$
01730 ENDIF
01740 LET HJ_ST $ := "/J/j/N/n/"
01750 PRINT "<SC1318>Opret…konto…(j/n)…eller…linienummer…der…skal…"
01760 ELSE
01770 LET HJ_ST $ := "/J/j/"
01780 PRINT "<SC1218>Kontooplysninger…ok…(j)…eller…linienummer…der…skal…"
01790 ENDIF
01800 EDIT "rettes?…" : SVAR $ ( 1 )
01810 EXEC SL_FEJLLINIE
01820 IF "/" + SVAR $ ( 1 ) + "/" IN HJ_ST $ THEN
01830 EXEC TAL_CONTROL ( SVAR $ )
01840 IF OK THEN EXEC RET_LINIE ( ASC ( SVAR $ ) )
01850 LET OK := FALSE ; SVAR $ := "…"
01860 ENDIF
01870 UNTIL ╱cb╱ ( SVAR $ ) > 0 AND OK
01880 UNTIL "/" + SVAR $ + "/" IN HJ_ST $
01890 IF "/" + SVAR $ + "/" IN "/J/j/" THEN EXEC SKRIV_KONTOOPL
01900 CLEAR
01910 LET SVAR $ := "j"
01920 EDIT "<C1212>Opret/ret…flere…konti…(j/n)?…" : SVAR $ ( 1 )
01930 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
01940 ENDPROC OPRET_RET_KONTI
01950
01960 PROC RET_LINIE ( R_LIN )
01970 CASE R_LIN OF
01980 WHILE 1
01990 REPEAT
02000 EDIT "<C1710>1.…Kontonr……:…" : A_KTONR $
02010 UNTIL NOT A_KTONR $ IN "………………………"
02020 LET IDXPOS := FIND_KTO ( A_KTONR $ )
02030 IF OPRET = OK THEN LET KTO_NAVN $ := ""
02040 IF OK THEN
02050 LET OPRET := TRUE
02060 ELSE
02070 EXEC L[S_KONTO ( RECNR )
02080 LET A_KTO_TYPE $ := KTO_TYPE $
02090 LET OPRET := FALSE
02100 ENDIF
02110 PRINT "<C1711>2.…Kontonavn:…" ; KTO_NAVN $ ; SPC $ ( 1 : 40 - ╱cb╱ ( KTO_NAVN $ ) )
02120 PRINT "<C1712>3.…Kontotype:…" ; A_KTO_TYPE $ ; SPC $ ( 1 )
02130 WHILE 2
02140 EDIT "<C1711>2.…Kontonavn:…" : KTO_NAVN $
02150 WHILE 3
02160 IF _KTO_TYPE $ >< "A" OR OPRET THEN
02170 IF A_KTO_TYPE $ IN "…………" THEN LET A_KTO_TYPE $ := "A"
02180 REPEAT
02190 EDIT "<C1712>3.…Kontotype:…" : A_KTO_TYPE $
02200 EXEC SL_FEJLLINIE
02210 EXEC ST_BGST ( A_KTO_TYPE $ )
02220 IF "/" + A_KTO_TYPE $ + "/" IN "/A/B/C/D/E/F/G/H/I/J/K/L/" THEN
02230 EXEC FEJL ( "Ulovlig…kontotype:…'" + A_KTO_TYPE $ + "'" )
02240 ELSE
02250 PRINT "<C1712>3.…Kontotype:…" ; A_KTO_TYPE $
02260 LET OK := TRUE
02270 ELSE
02280 ENDIF
02290 UNTIL OK
02300 ENDIF
02310 ENDCASE
02320 ENDPROC RET_LINIE
02330
02340 PROC SKRIV_KONTOOPL
02350 IF OPRET THEN EXEC FIND_IDXPLADS
02360 LET KTO_TYPE $ := A_KTO_TYPE $
02370 EXEC SKRIV_KONTO ( RECNR )
02380 ENDPROC SKRIV_KONTOOPL
02390
02400 PROC FIND_IDXPLADS
02410 EXEC FIND_TOM_PLADS ( A_RECNR )
02420 LET I_H\JREC := I_H\JREC + 1 ; IDXPOS := IDXPOS
02430 FOR I := I_H\JREC - 1 TO DXPOS STEP - 1 DO
02440 GET KTOIDX $ , I : KTONR $ , RECNR
02450 PUT KTOIDX $ , I + 1 : KTONR $ , RECNR
02460 NEXT I
02470 LET KTONR $ := A_KTONR $ ; RECNR := A_RECNR
02480 PUT KTOIDX $ , IDXPOS : KTONR $ , RECNR
02490 PUT KTOIDX $ , 1 : I_H\JREC , I_MAXREC
02500 LET KTO_PRIMO , KTO_ULTIMO := 0 ; KTO_FP , KTO_SP := 0
02510 ENDPROC FIND_IDXPLADS
02520
02530 PROC FIND_TOM_PLADS ( REF R_NR )
02540 GET KONTO $ , 1 : N_FRIREC , N_MAXREC
02550 LET R_NR := N_FRIREC
02560 GET KONTO $ , N_FRIREC : N_FRIREC
02570 PUT KONTO $ , 1 : N_FRIREC , N_MAXREC
02580 ENDPROC FIND_TOM_PLADS
02590 PROC L[S_KONTO ( P )
02600 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
02610 ENDPROC L[S_KONTO
02620
02630 PROC SKRIV_KONTO ( P )
02640 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
02650 ENDPROC SKRIV_KONTO
02660
02670 PROC ST_BGST ( REF RST $ )
02680 FOR J := 1 TO ( RST $ ) DO
02690 IF "a" =< RST $ ( J ) AND RST $ ( J ) =< "}" THEN LET RST $ ( J ) := CHR$ ( ╱cc╱ ( RST $ ( J ) ) - 32 )
02700 NEXT J
02710 ENDPROC ST_BGST
02720
02730 PROC TAL_CONTROL ( REF RST $ )
02740 LET J := 0 ; OK := TRUE
02750 FOR I := 1 TO ( RST $ ) DO
02760 IF RST $ ( I ) IN "0123456789" THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
02770 NEXT I
02780 IF = 0 THEN
02790 LET OK := FALSE
02800 ELSE
02810 LET RST $ := RST $ ( 1 : J )
02820 ENDIF
02830 ENDPROC TAL_CONTROL
02840
02850 PROC SLET_KONTI
02860 REPEAT
02870 EXEC OVERSKRIFT ( "Slet…konti" , 6 )
02880 LET A_KTONR $ := "" ; A_KTO_TYPE $ := "" ; KTO_NAVN $ := ""
02890 REPEAT
02900 EXEC RET_LINIE ( 1 )
02910 EXEC SL_FEJLLINIE
02920 IF OPRET THEN EXEC FEJL ( "konto…eksisterer…ikke" )
02930 IF K THEN
02940 IF KTO_ULTIMO >< 0 THEN EXEC FEJL ( "Ulovlig…sletning:…Saldo…<>…0…" )
02950 ENDIF
02960 UNTIL OK
02970 REPEAT
02980 LET SVAR $ := "…"
02990 EDIT "<C2718>Slet…konto…(j/n)?…" : SVAR $ ( 1 )
03000 UNTIL "/" + SVAR $ ( 1 ) + "/" IN "/J/j/N/n/"
03010 IF "/" + SVAR $ ( 1 ) + "/" IN "/J/j/" THEN EXEC SLET
03020 CLEAR
03030 LET SVAR $ := "j"
03040 EDIT "<C1212>Skal…der…slettes…flere…konti…(j/n)?…" : SVAR $ ( 1 )
03050 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
03060 ENDPROC SLET_KONTI
03070
03080 PROC SLET
03090 LET KTO_TYPE $ := "*"
03100 EXEC SKRIV_KONTO ( RECNR )
03110 GET KONTO $ , 1 : N_FRIREC , N_MAXREC
03120 PUT KONTO $ , RECNR : N_FRIREC
03130 LET N_FRIREC := RECNR
03140 PUT KONTO $ , 1 : N_FRIREC , N_MAXREC
03150 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
03160 FOR I := IDXPOS TO _H\JREC - 1 DO
03170 GET KTOIDX $ , I + 1 : KTONR $ , RECNR
03180 PUT KTOIDX $ , I : KTONR $ , RECNR
03190 NEXT I
03200 LET I_H\JREC := I_H\JREC - 1
03210 PUT KTOIDX $ , 1 : I_H\JREC , I_MAXREC
03220 ENDPROC SLET
03230 PROC FIND_KTO ( REF R_KTONR $ )
03240 LET OK := FALSE
03250 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
03260 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
03270 IF IGH > 1 THEN
03280 REPEAT
03290 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
03300 GET KTOIDX $ , POS : KTONR $ , RECNR
03310 IF TONR $ > R_KTONR $ THEN
03320 LET HIGH := POS
03330 ELSE
03340 IF TONR $ < R_KTONR $ THEN
03350 LET LOW := POS
03360 ENDIF
03370 ENDIF
03380 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
03390 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
03400 GET KTOIDX $ , POS : KTONR $ , RECNR
03410 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
03420 IF KTONR $ < R_KTONR $ AND POS = I_H\JREC THEN LET POS := POS + 1
03430 ENDIF
03440 LET FIND_KTO := POS
03450 ENDPROC FIND_KTO
01600 FOR I := 1 TO DO
01720 CHAIN PROGRAM $
02170 LET A_KTO_TYPE $ := "A"
01600 FOR I := 1 TO DO
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…03ad 999b 00280 // =============…procedurer…starter…=============
0x0379…03ad LineComal80 {
0x0379…03ad ptr = 0x999b // 0x379 @0x0
0x0379…03ad lno = 0x0118 // 0x37b @0x2
0x0379…03ad at0004 = ╱89╱ // ╱ // 0x37d @0x4
0x0379…03ad at0005 = ╱3d╱=╱ // 0x37e @0x5
0x0379…03ad at0006 = ╱3d╱=╱ // 0x37f @0x6
0x0379…03ad at0007 = ╱3d╱=╱ // 0x380 @0x7
0x0379…03ad at0008 = ╱3d╱=╱ // 0x381 @0x8
0x0379…03ad at0009 = ╱3d╱=╱ // 0x382 @0x9
0x0379…03ad at000a = ╱3d╱=╱ // 0x383 @0xa
0x0379…03ad at000b = ╱3d╱=╱ // 0x384 @0xb
0x0379…03ad at000c = ╱3d╱=╱ // 0x385 @0xc
0x0379…03ad at000d = ╱3d╱=╱ // 0x386 @0xd
0x0379…03ad at000e = ╱3d╱=╱ // 0x387 @0xe
0x0379…03ad at000f = ╱3d╱=╱ // 0x388 @0xf
0x0379…03ad at0010 = ╱3d╱=╱ // 0x389 @0x10
0x0379…03ad at0011 = ╱3d╱=╱ // 0x38a @0x11
0x0379…03ad at0012 = ╱20╱…╱ // 0x38b @0x12
0x0379…03ad at0013 = ╱70╱p╱ // 0x38c @0x13
0x0379…03ad at0014 = ╱72╱r╱ // 0x38d @0x14
0x0379…03ad at0015 = ╱6f╱o╱ // 0x38e @0x15
0x0379…03ad at0016 = ╱63╱c╱ // 0x38f @0x16
0x0379…03ad at0017 = ╱65╱e╱ // 0x390 @0x17
0x0379…03ad at0018 = ╱64╱d╱ // 0x391 @0x18
0x0379…03ad at0019 = ╱75╱u╱ // 0x392 @0x19
0x0379…03ad at001a = ╱72╱r╱ // 0x393 @0x1a
0x0379…03ad at001b = ╱65╱e╱ // 0x394 @0x1b
0x0379…03ad at001c = ╱72╱r╱ // 0x395 @0x1c
0x0379…03ad at001d = ╱20╱…╱ // 0x396 @0x1d
0x0379…03ad at001e = ╱73╱s╱ // 0x397 @0x1e
0x0379…03ad at001f = ╱74╱t╱ // 0x398 @0x1f
0x0379…03ad at0020 = ╱61╱a╱ // 0x399 @0x20
0x0379…03ad at0021 = ╱72╱r╱ // 0x39a @0x21
0x0379…03ad at0022 = ╱74╱t╱ // 0x39b @0x22
0x0379…03ad at0023 = ╱65╱e╱ // 0x39c @0x23
0x0379…03ad at0024 = ╱72╱r╱ // 0x39d @0x24
0x0379…03ad at0025 = ╱20╱…╱ // 0x39e @0x25
0x0379…03ad at0026 = ╱3d╱=╱ // 0x39f @0x26
0x0379…03ad at0027 = ╱3d╱=╱ // 0x3a0 @0x27
0x0379…03ad at0028 = ╱3d╱=╱ // 0x3a1 @0x28
0x0379…03ad at0029 = ╱3d╱=╱ // 0x3a2 @0x29
0x0379…03ad at002a = ╱3d╱=╱ // 0x3a3 @0x2a
0x0379…03ad at002b = ╱3d╱=╱ // 0x3a4 @0x2b
0x0379…03ad at002c = ╱3d╱=╱ // 0x3a5 @0x2c
0x0379…03ad at002d = ╱3d╱=╱ // 0x3a6 @0x2d
0x0379…03ad at002e = ╱3d╱=╱ // 0x3a7 @0x2e
0x0379…03ad at002f = ╱3d╱=╱ // 0x3a8 @0x2f
0x0379…03ad at0030 = ╱3d╱=╱ // 0x3a9 @0x30
0x0379…03ad at0031 = ╱3d╱=╱ // 0x3aa @0x31
0x0379…03ad at0032 = ╱3d╱=╱ // 0x3ab @0x32
0x0379…03ad at0033 = EOL // 0x3ac @0x33
0x0379…03ad }
0x03ad…03bf 99ad 00290 PROC DIMENSIONER
0x03ad…03bf LineComal80 {
0x03ad…03bf ptr = 0x99ad // 0x3ad @0x0
0x03ad…03bf lno = 0x0122 // 0x3af @0x2
0x03ad…03bf at0004 = ╱9e01╱ PROC ╱ // 0x3b1 @0x4
0x03ad…03bf at0006 = ╱44╱D╱ // 0x3b3 @0x6
0x03ad…03bf at0007 = ╱49╱I╱ // 0x3b4 @0x7
0x03ad…03bf at0008 = ╱4d╱M╱ // 0x3b5 @0x8
0x03ad…03bf at0009 = ╱45╱E╱ // 0x3b6 @0x9
0x03ad…03bf at000a = ╱4e╱N╱ // 0x3b7 @0xa
0x03ad…03bf at000b = ╱53╱S╱ // 0x3b8 @0xb
0x03ad…03bf at000c = ╱49╱I╱ // 0x3b9 @0xc
0x03ad…03bf at000d = ╱4f╱O╱ // 0x3ba @0xd
0x03ad…03bf at000e = ╱4e╱N╱ // 0x3bb @0xe
0x03ad…03bf at000f = ╱45╱E╱ // 0x3bc @0xf
0x03ad…03bf at0010 = ╱52╱R╱ // 0x3bd @0x10
0x03ad…03bf at0011 = EOL // 0x3be @0x11
0x03ad…03bf }
0x03bf…03d6 99c4 00300 // Standard…variable
0x03bf…03d6 LineComal80 {
0x03bf…03d6 ptr = 0x99c4 // 0x3bf @0x0
0x03bf…03d6 lno = 0x012c // 0x3c1 @0x2
0x03bf…03d6 at0004 = ╱89╱ // ╱ // 0x3c3 @0x4
0x03bf…03d6 at0005 = ╱53╱S╱ // 0x3c4 @0x5
0x03bf…03d6 at0006 = ╱74╱t╱ // 0x3c5 @0x6
0x03bf…03d6 at0007 = ╱61╱a╱ // 0x3c6 @0x7
0x03bf…03d6 at0008 = ╱6e╱n╱ // 0x3c7 @0x8
0x03bf…03d6 at0009 = ╱64╱d╱ // 0x3c8 @0x9
0x03bf…03d6 at000a = ╱61╱a╱ // 0x3c9 @0xa
0x03bf…03d6 at000b = ╱72╱r╱ // 0x3ca @0xb
0x03bf…03d6 at000c = ╱64╱d╱ // 0x3cb @0xc
0x03bf…03d6 at000d = ╱20╱…╱ // 0x3cc @0xd
0x03bf…03d6 at000e = ╱76╱v╱ // 0x3cd @0xe
0x03bf…03d6 at000f = ╱61╱a╱ // 0x3ce @0xf
0x03bf…03d6 at0010 = ╱72╱r╱ // 0x3cf @0x10
0x03bf…03d6 at0011 = ╱69╱i╱ // 0x3d0 @0x11
0x03bf…03d6 at0012 = ╱61╱a╱ // 0x3d1 @0x12
0x03bf…03d6 at0013 = ╱62╱b╱ // 0x3d2 @0x13
0x03bf…03d6 at0014 = ╱6c╱l╱ // 0x3d3 @0x14
0x03bf…03d6 at0015 = ╱65╱e╱ // 0x3d4 @0x15
0x03bf…03d6 at0016 = EOL // 0x3d5 @0x16
0x03bf…03d6 }
0x03d6…0414 9a02 00310 DIM SPC $ OF 80 , TAL $ OF 10 , ALFA $ OF 28 , SVAR $ OF 8 , PRGFL $ OF 8
0x03d6…0414 LineComal80 {
0x03d6…0414 ptr = 0x9a02 // 0x3d6 @0x0
0x03d6…0414 lno = 0x0136 // 0x3d8 @0x2
0x03d6…0414 at0004 = ╱87╱ DIM ╱ // 0x3da @0x4
0x03d6…0414 at0005 = ╱53╱S╱ // 0x3db @0x5
0x03d6…0414 at0006 = ╱50╱P╱ // 0x3dc @0x6
0x03d6…0414 at0007 = ╱43╱C╱ // 0x3dd @0x7
0x03d6…0414 at0008 = ╱ef╱ $ ╱ // 0x3de @0x8
0x03d6…0414 at0009 = ╱ba╱ OF ╱ // 0x3df @0x9
0x03d6…0414 at000a = ╱38╱8╱ // 0x3e0 @0xa
0x03d6…0414 at000b = ╱30╱0╱ // 0x3e1 @0xb
0x03d6…0414 at000c = ╱f25000╱ // 0x3e2 @0xc
0x03d6…0414 at000f = ╱ec╱ , ╱ // 0x3e5 @0xf
0x03d6…0414 at0010 = ╱54╱T╱ // 0x3e6 @0x10
0x03d6…0414 at0011 = ╱41╱A╱ // 0x3e7 @0x11
0x03d6…0414 at0012 = ╱4c╱L╱ // 0x3e8 @0x12
0x03d6…0414 at0013 = ╱ef╱ $ ╱ // 0x3e9 @0x13
0x03d6…0414 at0014 = ╱ba╱ OF ╱ // 0x3ea @0x14
0x03d6…0414 at0015 = ╱31╱1╱ // 0x3eb @0x15
0x03d6…0414 at0016 = ╱30╱0╱ // 0x3ec @0x16
0x03d6…0414 at0017 = ╱f20a00╱ // 0x3ed @0x17
0x03d6…0414 at001a = ╱ec╱ , ╱ // 0x3f0 @0x1a
0x03d6…0414 at001b = ╱41╱A╱ // 0x3f1 @0x1b
0x03d6…0414 at001c = ╱4c╱L╱ // 0x3f2 @0x1c
0x03d6…0414 at001d = ╱46╱F╱ // 0x3f3 @0x1d
0x03d6…0414 at001e = ╱41╱A╱ // 0x3f4 @0x1e
0x03d6…0414 at001f = ╱ef╱ $ ╱ // 0x3f5 @0x1f
0x03d6…0414 at0020 = ╱ba╱ OF ╱ // 0x3f6 @0x20
0x03d6…0414 at0021 = ╱32╱2╱ // 0x3f7 @0x21
0x03d6…0414 at0022 = ╱38╱8╱ // 0x3f8 @0x22
0x03d6…0414 at0023 = ╱f21c00╱ // 0x3f9 @0x23
0x03d6…0414 at0026 = ╱ec╱ , ╱ // 0x3fc @0x26
0x03d6…0414 at0027 = ╱53╱S╱ // 0x3fd @0x27
0x03d6…0414 at0028 = ╱56╱V╱ // 0x3fe @0x28
0x03d6…0414 at0029 = ╱41╱A╱ // 0x3ff @0x29
0x03d6…0414 at002a = ╱52╱R╱ // 0x400 @0x2a
0x03d6…0414 at002b = ╱ef╱ $ ╱ // 0x401 @0x2b
0x03d6…0414 at002c = ╱ba╱ OF ╱ // 0x402 @0x2c
0x03d6…0414 at002d = ╱38╱8╱ // 0x403 @0x2d
0x03d6…0414 at002e = ╱f20800╱ // 0x404 @0x2e
0x03d6…0414 at0031 = ╱ec╱ , ╱ // 0x407 @0x31
0x03d6…0414 at0032 = ╱50╱P╱ // 0x408 @0x32
0x03d6…0414 at0033 = ╱52╱R╱ // 0x409 @0x33
0x03d6…0414 at0034 = ╱47╱G╱ // 0x40a @0x34
0x03d6…0414 at0035 = ╱46╱F╱ // 0x40b @0x35
0x03d6…0414 at0036 = ╱4c╱L╱ // 0x40c @0x36
0x03d6…0414 at0037 = ╱ef╱ $ ╱ // 0x40d @0x37
0x03d6…0414 at0038 = ╱ba╱ OF ╱ // 0x40e @0x38
0x03d6…0414 at0039 = ╱38╱8╱ // 0x40f @0x39
0x03d6…0414 at003a = ╱f20800╱ // 0x410 @0x3a
0x03d6…0414 at003d = EOL // 0x413 @0x3d
0x03d6…0414 }
0x0414…0428 9a16 00320 DIM PROGRAM $ OF 17
0x0414…0428 LineComal80 {
0x0414…0428 ptr = 0x9a16 // 0x414 @0x0
0x0414…0428 lno = 0x0140 // 0x416 @0x2
0x0414…0428 at0004 = ╱87╱ DIM ╱ // 0x418 @0x4
0x0414…0428 at0005 = ╱50╱P╱ // 0x419 @0x5
0x0414…0428 at0006 = ╱52╱R╱ // 0x41a @0x6
0x0414…0428 at0007 = ╱4f╱O╱ // 0x41b @0x7
0x0414…0428 at0008 = ╱47╱G╱ // 0x41c @0x8
0x0414…0428 at0009 = ╱52╱R╱ // 0x41d @0x9
0x0414…0428 at000a = ╱41╱A╱ // 0x41e @0xa
0x0414…0428 at000b = ╱4d╱M╱ // 0x41f @0xb
0x0414…0428 at000c = ╱ef╱ $ ╱ // 0x420 @0xc
0x0414…0428 at000d = ╱ba╱ OF ╱ // 0x421 @0xd
0x0414…0428 at000e = ╱31╱1╱ // 0x422 @0xe
0x0414…0428 at000f = ╱37╱7╱ // 0x423 @0xf
0x0414…0428 at0010 = ╱f21100╱ // 0x424 @0x10
0x0414…0428 at0013 = EOL // 0x427 @0x13
0x0414…0428 }
0x0428…0438 9a26 00330 REAL RESRV , PPAR
0x0428…0438 LineComal80 {
0x0428…0438 ptr = 0x9a26 // 0x428 @0x0
0x0428…0438 lno = 0x014a // 0x42a @0x2
0x0428…0438 at0004 = ╱b3╱ REAL ╱ // 0x42c @0x4
0x0428…0438 at0005 = ╱52╱R╱ // 0x42d @0x5
0x0428…0438 at0006 = ╱45╱E╱ // 0x42e @0x6
0x0428…0438 at0007 = ╱53╱S╱ // 0x42f @0x7
0x0428…0438 at0008 = ╱52╱R╱ // 0x430 @0x8
0x0428…0438 at0009 = ╱56╱V╱ // 0x431 @0x9
0x0428…0438 at000a = ╱ec╱ , ╱ // 0x432 @0xa
0x0428…0438 at000b = ╱50╱P╱ // 0x433 @0xb
0x0428…0438 at000c = ╱50╱P╱ // 0x434 @0xc
0x0428…0438 at000d = ╱41╱A╱ // 0x435 @0xd
0x0428…0438 at000e = ╱52╱R╱ // 0x436 @0xe
0x0428…0438 at000f = EOL // 0x437 @0xf
0x0428…0438 }
0x0438…044f 9a3d 00340 INTEGER OK , TRUE , FALSE , I , J
0x0438…044f LineComal80 {
0x0438…044f ptr = 0x9a3d // 0x438 @0x0
0x0438…044f lno = 0x0154 // 0x43a @0x2
0x0438…044f at0004 = ╱b2╱ INTEGER ╱ // 0x43c @0x4
0x0438…044f at0005 = ╱4f╱O╱ // 0x43d @0x5
0x0438…044f at0006 = ╱4b╱K╱ // 0x43e @0x6
0x0438…044f at0007 = ╱ec╱ , ╱ // 0x43f @0x7
0x0438…044f at0008 = ╱54╱T╱ // 0x440 @0x8
0x0438…044f at0009 = ╱52╱R╱ // 0x441 @0x9
0x0438…044f at000a = ╱55╱U╱ // 0x442 @0xa
0x0438…044f at000b = ╱45╱E╱ // 0x443 @0xb
0x0438…044f at000c = ╱ec╱ , ╱ // 0x444 @0xc
0x0438…044f at000d = ╱46╱F╱ // 0x445 @0xd
0x0438…044f at000e = ╱41╱A╱ // 0x446 @0xe
0x0438…044f at000f = ╱4c╱L╱ // 0x447 @0xf
0x0438…044f at0010 = ╱53╱S╱ // 0x448 @0x10
0x0438…044f at0011 = ╱45╱E╱ // 0x449 @0x11
0x0438…044f at0012 = ╱ec╱ , ╱ // 0x44a @0x12
0x0438…044f at0013 = ╱49╱I╱ // 0x44b @0x13
0x0438…044f at0014 = ╱ec╱ , ╱ // 0x44c @0x14
0x0438…044f at0015 = ╱4a╱J╱ // 0x44d @0x15
0x0438…044f at0016 = EOL // 0x44e @0x16
0x0438…044f }
0x044f…0463 9a51 00350 // Hj{lpevariable
0x044f…0463 LineComal80 {
0x044f…0463 ptr = 0x9a51 // 0x44f @0x0
0x044f…0463 lno = 0x015e // 0x451 @0x2
0x044f…0463 at0004 = ╱89╱ // ╱ // 0x453 @0x4
0x044f…0463 at0005 = ╱48╱H╱ // 0x454 @0x5
0x044f…0463 at0006 = ╱6a╱j╱ // 0x455 @0x6
0x044f…0463 at0007 = ╱7b╱{╱ // 0x456 @0x7
0x044f…0463 at0008 = ╱6c╱l╱ // 0x457 @0x8
0x044f…0463 at0009 = ╱70╱p╱ // 0x458 @0x9
0x044f…0463 at000a = ╱65╱e╱ // 0x459 @0xa
0x044f…0463 at000b = ╱76╱v╱ // 0x45a @0xb
0x044f…0463 at000c = ╱61╱a╱ // 0x45b @0xc
0x044f…0463 at000d = ╱72╱r╱ // 0x45c @0xd
0x044f…0463 at000e = ╱69╱i╱ // 0x45d @0xe
0x044f…0463 at000f = ╱61╱a╱ // 0x45e @0xf
0x044f…0463 at0010 = ╱62╱b╱ // 0x45f @0x10
0x044f…0463 at0011 = ╱6c╱l╱ // 0x460 @0x11
0x044f…0463 at0012 = ╱65╱e╱ // 0x461 @0x12
0x044f…0463 at0013 = EOL // 0x462 @0x13
0x044f…0463 }
0x0463…04a6 9a94 00360 DIM A_KTO_NAVN $ OF 40 , A_KTO_TYPE $ OF 1 , A_KTONR $ OF 8 , HJ_ST $ OF 10
0x0463…04a6 LineComal80 {
0x0463…04a6 ptr = 0x9a94 // 0x463 @0x0
0x0463…04a6 lno = 0x0168 // 0x465 @0x2
0x0463…04a6 at0004 = ╱87╱ DIM ╱ // 0x467 @0x4
0x0463…04a6 at0005 = ╱41╱A╱ // 0x468 @0x5
0x0463…04a6 at0006 = ╱5f╱_╱ // 0x469 @0x6
0x0463…04a6 at0007 = ╱4b╱K╱ // 0x46a @0x7
0x0463…04a6 at0008 = ╱54╱T╱ // 0x46b @0x8
0x0463…04a6 at0009 = ╱4f╱O╱ // 0x46c @0x9
0x0463…04a6 at000a = ╱5f╱_╱ // 0x46d @0xa
0x0463…04a6 at000b = ╱4e╱N╱ // 0x46e @0xb
0x0463…04a6 at000c = ╱41╱A╱ // 0x46f @0xc
0x0463…04a6 at000d = ╱56╱V╱ // 0x470 @0xd
0x0463…04a6 at000e = ╱4e╱N╱ // 0x471 @0xe
0x0463…04a6 at000f = ╱ef╱ $ ╱ // 0x472 @0xf
0x0463…04a6 at0010 = ╱ba╱ OF ╱ // 0x473 @0x10
0x0463…04a6 at0011 = ╱34╱4╱ // 0x474 @0x11
0x0463…04a6 at0012 = ╱30╱0╱ // 0x475 @0x12
0x0463…04a6 at0013 = ╱f22800╱ // 0x476 @0x13
0x0463…04a6 at0016 = ╱ec╱ , ╱ // 0x479 @0x16
0x0463…04a6 at0017 = ╱41╱A╱ // 0x47a @0x17
0x0463…04a6 at0018 = ╱5f╱_╱ // 0x47b @0x18
0x0463…04a6 at0019 = ╱4b╱K╱ // 0x47c @0x19
0x0463…04a6 at001a = ╱54╱T╱ // 0x47d @0x1a
0x0463…04a6 at001b = ╱4f╱O╱ // 0x47e @0x1b
0x0463…04a6 at001c = ╱5f╱_╱ // 0x47f @0x1c
0x0463…04a6 at001d = ╱54╱T╱ // 0x480 @0x1d
0x0463…04a6 at001e = ╱59╱Y╱ // 0x481 @0x1e
0x0463…04a6 at001f = ╱50╱P╱ // 0x482 @0x1f
0x0463…04a6 at0020 = ╱45╱E╱ // 0x483 @0x20
0x0463…04a6 at0021 = ╱ef╱ $ ╱ // 0x484 @0x21
0x0463…04a6 at0022 = ╱ba╱ OF ╱ // 0x485 @0x22
0x0463…04a6 at0023 = ╱31╱1╱ // 0x486 @0x23
0x0463…04a6 at0024 = ╱f20100╱ // 0x487 @0x24
0x0463…04a6 at0027 = ╱ec╱ , ╱ // 0x48a @0x27
0x0463…04a6 at0028 = ╱41╱A╱ // 0x48b @0x28
0x0463…04a6 at0029 = ╱5f╱_╱ // 0x48c @0x29
0x0463…04a6 at002a = ╱4b╱K╱ // 0x48d @0x2a
0x0463…04a6 at002b = ╱54╱T╱ // 0x48e @0x2b
0x0463…04a6 at002c = ╱4f╱O╱ // 0x48f @0x2c
0x0463…04a6 at002d = ╱4e╱N╱ // 0x490 @0x2d
0x0463…04a6 at002e = ╱52╱R╱ // 0x491 @0x2e
0x0463…04a6 at002f = ╱ef╱ $ ╱ // 0x492 @0x2f
0x0463…04a6 at0030 = ╱ba╱ OF ╱ // 0x493 @0x30
0x0463…04a6 at0031 = ╱38╱8╱ // 0x494 @0x31
0x0463…04a6 at0032 = ╱f20800╱ // 0x495 @0x32
0x0463…04a6 at0035 = ╱ec╱ , ╱ // 0x498 @0x35
0x0463…04a6 at0036 = ╱48╱H╱ // 0x499 @0x36
0x0463…04a6 at0037 = ╱4a╱J╱ // 0x49a @0x37
0x0463…04a6 at0038 = ╱5f╱_╱ // 0x49b @0x38
0x0463…04a6 at0039 = ╱53╱S╱ // 0x49c @0x39
0x0463…04a6 at003a = ╱54╱T╱ // 0x49d @0x3a
0x0463…04a6 at003b = ╱ef╱ $ ╱ // 0x49e @0x3b
0x0463…04a6 at003c = ╱ba╱ OF ╱ // 0x49f @0x3c
0x0463…04a6 at003d = ╱31╱1╱ // 0x4a0 @0x3d
0x0463…04a6 at003e = ╱30╱0╱ // 0x4a1 @0x3e
0x0463…04a6 at003f = ╱f20a00╱ // 0x4a2 @0x3f
0x0463…04a6 at0042 = EOL // 0x4a5 @0x42
0x0463…04a6 }
0x04a6…04c5 9ab3 00370 INTEGER POS , HIGH , LOW , OPRET , IDXPOS
0x04a6…04c5 LineComal80 {
0x04a6…04c5 ptr = 0x9ab3 // 0x4a6 @0x0
0x04a6…04c5 lno = 0x0172 // 0x4a8 @0x2
0x04a6…04c5 at0004 = ╱b2╱ INTEGER ╱ // 0x4aa @0x4
0x04a6…04c5 at0005 = ╱50╱P╱ // 0x4ab @0x5
0x04a6…04c5 at0006 = ╱4f╱O╱ // 0x4ac @0x6
0x04a6…04c5 at0007 = ╱53╱S╱ // 0x4ad @0x7
0x04a6…04c5 at0008 = ╱ec╱ , ╱ // 0x4ae @0x8
0x04a6…04c5 at0009 = ╱48╱H╱ // 0x4af @0x9
0x04a6…04c5 at000a = ╱49╱I╱ // 0x4b0 @0xa
0x04a6…04c5 at000b = ╱47╱G╱ // 0x4b1 @0xb
0x04a6…04c5 at000c = ╱48╱H╱ // 0x4b2 @0xc
0x04a6…04c5 at000d = ╱ec╱ , ╱ // 0x4b3 @0xd
0x04a6…04c5 at000e = ╱4c╱L╱ // 0x4b4 @0xe
0x04a6…04c5 at000f = ╱4f╱O╱ // 0x4b5 @0xf
0x04a6…04c5 at0010 = ╱57╱W╱ // 0x4b6 @0x10
0x04a6…04c5 at0011 = ╱ec╱ , ╱ // 0x4b7 @0x11
0x04a6…04c5 at0012 = ╱4f╱O╱ // 0x4b8 @0x12
0x04a6…04c5 at0013 = ╱50╱P╱ // 0x4b9 @0x13
0x04a6…04c5 at0014 = ╱52╱R╱ // 0x4ba @0x14
0x04a6…04c5 at0015 = ╱45╱E╱ // 0x4bb @0x15
0x04a6…04c5 at0016 = ╱54╱T╱ // 0x4bc @0x16
0x04a6…04c5 at0017 = ╱ec╱ , ╱ // 0x4bd @0x17
0x04a6…04c5 at0018 = ╱49╱I╱ // 0x4be @0x18
0x04a6…04c5 at0019 = ╱44╱D╱ // 0x4bf @0x19
0x04a6…04c5 at001a = ╱58╱X╱ // 0x4c0 @0x1a
0x04a6…04c5 at001b = ╱50╱P╱ // 0x4c1 @0x1b
0x04a6…04c5 at001c = ╱4f╱O╱ // 0x4c2 @0x1c
0x04a6…04c5 at001d = ╱53╱S╱ // 0x4c3 @0x1d
0x04a6…04c5 at001e = EOL // 0x4c4 @0x1e
0x04a6…04c5 }
0x04c5…04e5 9ad3 00380 // Variable…til…filen…SYSPARA
0x04c5…04e5 LineComal80 {
0x04c5…04e5 ptr = 0x9ad3 // 0x4c5 @0x0
0x04c5…04e5 lno = 0x017c // 0x4c7 @0x2
0x04c5…04e5 at0004 = ╱89╱ // ╱ // 0x4c9 @0x4
0x04c5…04e5 at0005 = ╱56╱V╱ // 0x4ca @0x5
0x04c5…04e5 at0006 = ╱61╱a╱ // 0x4cb @0x6
0x04c5…04e5 at0007 = ╱72╱r╱ // 0x4cc @0x7
0x04c5…04e5 at0008 = ╱69╱i╱ // 0x4cd @0x8
0x04c5…04e5 at0009 = ╱61╱a╱ // 0x4ce @0x9
0x04c5…04e5 at000a = ╱62╱b╱ // 0x4cf @0xa
0x04c5…04e5 at000b = ╱6c╱l╱ // 0x4d0 @0xb
0x04c5…04e5 at000c = ╱65╱e╱ // 0x4d1 @0xc
0x04c5…04e5 at000d = ╱20╱…╱ // 0x4d2 @0xd
0x04c5…04e5 at000e = ╱74╱t╱ // 0x4d3 @0xe
0x04c5…04e5 at000f = ╱69╱i╱ // 0x4d4 @0xf
0x04c5…04e5 at0010 = ╱6c╱l╱ // 0x4d5 @0x10
0x04c5…04e5 at0011 = ╱20╱…╱ // 0x4d6 @0x11
0x04c5…04e5 at0012 = ╱66╱f╱ // 0x4d7 @0x12
0x04c5…04e5 at0013 = ╱69╱i╱ // 0x4d8 @0x13
0x04c5…04e5 at0014 = ╱6c╱l╱ // 0x4d9 @0x14
0x04c5…04e5 at0015 = ╱65╱e╱ // 0x4da @0x15
0x04c5…04e5 at0016 = ╱6e╱n╱ // 0x4db @0x16
0x04c5…04e5 at0017 = ╱20╱…╱ // 0x4dc @0x17
0x04c5…04e5 at0018 = ╱53╱S╱ // 0x4dd @0x18
0x04c5…04e5 at0019 = ╱59╱Y╱ // 0x4de @0x19
0x04c5…04e5 at001a = ╱53╱S╱ // 0x4df @0x1a
0x04c5…04e5 at001b = ╱50╱P╱ // 0x4e0 @0x1b
0x04c5…04e5 at001c = ╱41╱A╱ // 0x4e1 @0x1c
0x04c5…04e5 at001d = ╱52╱R╱ // 0x4e2 @0x1d
0x04c5…04e5 at001e = ╱41╱A╱ // 0x4e3 @0x1e
0x04c5…04e5 at001f = EOL // 0x4e4 @0x1f
0x04c5…04e5 }
0x04e5…04f9 9ae7 00390 DIM SYSPARA $ OF 17
0x04e5…04f9 LineComal80 {
0x04e5…04f9 ptr = 0x9ae7 // 0x4e5 @0x0
0x04e5…04f9 lno = 0x0186 // 0x4e7 @0x2
0x04e5…04f9 at0004 = ╱87╱ DIM ╱ // 0x4e9 @0x4
0x04e5…04f9 at0005 = ╱53╱S╱ // 0x4ea @0x5
0x04e5…04f9 at0006 = ╱59╱Y╱ // 0x4eb @0x6
0x04e5…04f9 at0007 = ╱53╱S╱ // 0x4ec @0x7
0x04e5…04f9 at0008 = ╱50╱P╱ // 0x4ed @0x8
0x04e5…04f9 at0009 = ╱41╱A╱ // 0x4ee @0x9
0x04e5…04f9 at000a = ╱52╱R╱ // 0x4ef @0xa
0x04e5…04f9 at000b = ╱41╱A╱ // 0x4f0 @0xb
0x04e5…04f9 at000c = ╱ef╱ $ ╱ // 0x4f1 @0xc
0x04e5…04f9 at000d = ╱ba╱ OF ╱ // 0x4f2 @0xd
0x04e5…04f9 at000e = ╱31╱1╱ // 0x4f3 @0xe
0x04e5…04f9 at000f = ╱37╱7╱ // 0x4f4 @0xf
0x04e5…04f9 at0010 = ╱f21100╱ // 0x4f5 @0x10
0x04e5…04f9 at0013 = EOL // 0x4f8 @0x13
0x04e5…04f9 }
0x04f9…051c 9b0a 00400 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x04f9…051c LineComal80 {
0x04f9…051c ptr = 0x9b0a // 0x4f9 @0x0
0x04f9…051c lno = 0x0190 // 0x4fb @0x2
0x04f9…051c at0004 = ╱87╱ DIM ╱ // 0x4fd @0x4
0x04f9…051c at0005 = ╱53╱S╱ // 0x4fe @0x5
0x04f9…051c at0006 = ╱59╱Y╱ // 0x4ff @0x6
0x04f9…051c at0007 = ╱53╱S╱ // 0x500 @0x7
0x04f9…051c at0008 = ╱54╱T╱ // 0x501 @0x8
0x04f9…051c at0009 = ╱5f╱_╱ // 0x502 @0x9
0x04f9…051c at000a = ╱4e╱N╱ // 0x503 @0xa
0x04f9…051c at000b = ╱41╱A╱ // 0x504 @0xb
0x04f9…051c at000c = ╱56╱V╱ // 0x505 @0xc
0x04f9…051c at000d = ╱4e╱N╱ // 0x506 @0xd
0x04f9…051c at000e = ╱ef╱ $ ╱ // 0x507 @0xe
0x04f9…051c at000f = ╱ba╱ OF ╱ // 0x508 @0xf
0x04f9…051c at0010 = ╱33╱3╱ // 0x509 @0x10
0x04f9…051c at0011 = ╱30╱0╱ // 0x50a @0x11
0x04f9…051c at0012 = ╱f21e00╱ // 0x50b @0x12
0x04f9…051c at0015 = ╱ec╱ , ╱ // 0x50e @0x15
0x04f9…051c at0016 = ╱53╱S╱ // 0x50f @0x16
0x04f9…051c at0017 = ╱5f╱_╱ // 0x510 @0x17
0x04f9…051c at0018 = ╱4b╱K╱ // 0x511 @0x18
0x04f9…051c at0019 = ╱4f╱O╱ // 0x512 @0x19
0x04f9…051c at001a = ╱44╱D╱ // 0x513 @0x1a
0x04f9…051c at001b = ╱45╱E╱ // 0x514 @0x1b
0x04f9…051c at001c = ╱ef╱ $ ╱ // 0x515 @0x1c
0x04f9…051c at001d = ╱ba╱ OF ╱ // 0x516 @0x1d
0x04f9…051c at001e = ╱31╱1╱ // 0x517 @0x1e
0x04f9…051c at001f = ╱f20100╱ // 0x518 @0x1f
0x04f9…051c at0022 = EOL // 0x51b @0x22
0x04f9…051c }
0x051c…053b 9b29 00410 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x051c…053b LineComal80 {
0x051c…053b ptr = 0x9b29 // 0x51c @0x0
0x051c…053b lno = 0x019a // 0x51e @0x2
0x051c…053b at0004 = ╱87╱ DIM ╱ // 0x520 @0x4
0x051c…053b at0005 = ╱44╱D╱ // 0x521 @0x5
0x051c…053b at0006 = ╱41╱A╱ // 0x522 @0x6
0x051c…053b at0007 = ╱54╱T╱ // 0x523 @0x7
0x051c…053b at0008 = ╱41╱A╱ // 0x524 @0x8
0x051c…053b at0009 = ╱46╱F╱ // 0x525 @0x9
0x051c…053b at000a = ╱4c╱L╱ // 0x526 @0xa
0x051c…053b at000b = ╱ef╱ $ ╱ // 0x527 @0xb
0x051c…053b at000c = ╱ba╱ OF ╱ // 0x528 @0xc
0x051c…053b at000d = ╱38╱8╱ // 0x529 @0xd
0x051c…053b at000e = ╱f20800╱ // 0x52a @0xe
0x051c…053b at0011 = ╱ec╱ , ╱ // 0x52d @0x11
0x051c…053b at0012 = ╱54╱T╱ // 0x52e @0x12
0x051c…053b at0013 = ╱5f╱_╱ // 0x52f @0x13
0x051c…053b at0014 = ╱4b╱K╱ // 0x530 @0x14
0x051c…053b at0015 = ╱4f╱O╱ // 0x531 @0x15
0x051c…053b at0016 = ╱44╱D╱ // 0x532 @0x16
0x051c…053b at0017 = ╱45╱E╱ // 0x533 @0x17
0x051c…053b at0018 = ╱ef╱ $ ╱ // 0x534 @0x18
0x051c…053b at0019 = ╱ba╱ OF ╱ // 0x535 @0x19
0x051c…053b at001a = ╱31╱1╱ // 0x536 @0x1a
0x051c…053b at001b = ╱f20100╱ // 0x537 @0x1b
0x051c…053b at001e = EOL // 0x53a @0x1e
0x051c…053b }
0x053b…055b 9b49 00420 // Variable…til…filen…@@PARAM
0x053b…055b LineComal80 {
0x053b…055b ptr = 0x9b49 // 0x53b @0x0
0x053b…055b lno = 0x01a4 // 0x53d @0x2
0x053b…055b at0004 = ╱89╱ // ╱ // 0x53f @0x4
0x053b…055b at0005 = ╱56╱V╱ // 0x540 @0x5
0x053b…055b at0006 = ╱61╱a╱ // 0x541 @0x6
0x053b…055b at0007 = ╱72╱r╱ // 0x542 @0x7
0x053b…055b at0008 = ╱69╱i╱ // 0x543 @0x8
0x053b…055b at0009 = ╱61╱a╱ // 0x544 @0x9
0x053b…055b at000a = ╱62╱b╱ // 0x545 @0xa
0x053b…055b at000b = ╱6c╱l╱ // 0x546 @0xb
0x053b…055b at000c = ╱65╱e╱ // 0x547 @0xc
0x053b…055b at000d = ╱20╱…╱ // 0x548 @0xd
0x053b…055b at000e = ╱74╱t╱ // 0x549 @0xe
0x053b…055b at000f = ╱69╱i╱ // 0x54a @0xf
0x053b…055b at0010 = ╱6c╱l╱ // 0x54b @0x10
0x053b…055b at0011 = ╱20╱…╱ // 0x54c @0x11
0x053b…055b at0012 = ╱66╱f╱ // 0x54d @0x12
0x053b…055b at0013 = ╱69╱i╱ // 0x54e @0x13
0x053b…055b at0014 = ╱6c╱l╱ // 0x54f @0x14
0x053b…055b at0015 = ╱65╱e╱ // 0x550 @0x15
0x053b…055b at0016 = ╱6e╱n╱ // 0x551 @0x16
0x053b…055b at0017 = ╱20╱…╱ // 0x552 @0x17
0x053b…055b at0018 = ╱40╱@╱ // 0x553 @0x18
0x053b…055b at0019 = ╱40╱@╱ // 0x554 @0x19
0x053b…055b at001a = ╱50╱P╱ // 0x555 @0x1a
0x053b…055b at001b = ╱41╱A╱ // 0x556 @0x1b
0x053b…055b at001c = ╱52╱R╱ // 0x557 @0x1c
0x053b…055b at001d = ╱41╱A╱ // 0x558 @0x1d
0x053b…055b at001e = ╱4d╱M╱ // 0x559 @0x1e
0x053b…055b at001f = EOL // 0x55a @0x1f
0x053b…055b }
0x055b…056d 9b5b 00430 DIM PARAM $ OF 17
0x055b…056d LineComal80 {
0x055b…056d ptr = 0x9b5b // 0x55b @0x0
0x055b…056d lno = 0x01ae // 0x55d @0x2
0x055b…056d at0004 = ╱87╱ DIM ╱ // 0x55f @0x4
0x055b…056d at0005 = ╱50╱P╱ // 0x560 @0x5
0x055b…056d at0006 = ╱41╱A╱ // 0x561 @0x6
0x055b…056d at0007 = ╱52╱R╱ // 0x562 @0x7
0x055b…056d at0008 = ╱41╱A╱ // 0x563 @0x8
0x055b…056d at0009 = ╱4d╱M╱ // 0x564 @0x9
0x055b…056d at000a = ╱ef╱ $ ╱ // 0x565 @0xa
0x055b…056d at000b = ╱ba╱ OF ╱ // 0x566 @0xb
0x055b…056d at000c = ╱31╱1╱ // 0x567 @0xc
0x055b…056d at000d = ╱37╱7╱ // 0x568 @0xd
0x055b…056d at000e = ╱f21100╱ // 0x569 @0xe
0x055b…056d at0011 = EOL // 0x56c @0x11
0x055b…056d }
0x056d…0592 9b80 00440 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 8
0x056d…0592 LineComal80 {
0x056d…0592 ptr = 0x9b80 // 0x56d @0x0
0x056d…0592 lno = 0x01b8 // 0x56f @0x2
0x056d…0592 at0004 = ╱87╱ DIM ╱ // 0x571 @0x4
0x056d…0592 at0005 = ╱46╱F╱ // 0x572 @0x5
0x056d…0592 at0006 = ╱49╱I╱ // 0x573 @0x6
0x056d…0592 at0007 = ╱52╱R╱ // 0x574 @0x7
0x056d…0592 at0008 = ╱4d╱M╱ // 0x575 @0x8
0x056d…0592 at0009 = ╱41╱A╱ // 0x576 @0x9
0x056d…0592 at000a = ╱4e╱N╱ // 0x577 @0xa
0x056d…0592 at000b = ╱41╱A╱ // 0x578 @0xb
0x056d…0592 at000c = ╱56╱V╱ // 0x579 @0xc
0x056d…0592 at000d = ╱4e╱N╱ // 0x57a @0xd
0x056d…0592 at000e = ╱ef╱ $ ╱ // 0x57b @0xe
0x056d…0592 at000f = ╱ba╱ OF ╱ // 0x57c @0xf
0x056d…0592 at0010 = ╱33╱3╱ // 0x57d @0x10
0x056d…0592 at0011 = ╱30╱0╱ // 0x57e @0x11
0x056d…0592 at0012 = ╱f21e00╱ // 0x57f @0x12
0x056d…0592 at0015 = ╱ec╱ , ╱ // 0x582 @0x15
0x056d…0592 at0016 = ╱53╱S╱ // 0x583 @0x16
0x056d…0592 at0017 = ╱59╱Y╱ // 0x584 @0x17
0x056d…0592 at0018 = ╱53╱S╱ // 0x585 @0x18
0x056d…0592 at0019 = ╱54╱T╱ // 0x586 @0x19
0x056d…0592 at001a = ╱5f╱_╱ // 0x587 @0x1a
0x056d…0592 at001b = ╱44╱D╱ // 0x588 @0x1b
0x056d…0592 at001c = ╱41╱A╱ // 0x589 @0x1c
0x056d…0592 at001d = ╱54╱T╱ // 0x58a @0x1d
0x056d…0592 at001e = ╱ef╱ $ ╱ // 0x58b @0x1e
0x056d…0592 at001f = ╱ba╱ OF ╱ // 0x58c @0x1f
0x056d…0592 at0020 = ╱38╱8╱ // 0x58d @0x20
0x056d…0592 at0021 = ╱f20800╱ // 0x58e @0x21
0x056d…0592 at0024 = EOL // 0x591 @0x24
0x056d…0592 }
0x0592…059c 9b8a 00450 REAL MOMS
0x0592…059c LineComal80 {
0x0592…059c ptr = 0x9b8a // 0x592 @0x0
0x0592…059c lno = 0x01c2 // 0x594 @0x2
0x0592…059c at0004 = ╱b3╱ REAL ╱ // 0x596 @0x4
0x0592…059c at0005 = ╱4d╱M╱ // 0x597 @0x5
0x0592…059c at0006 = ╱4f╱O╱ // 0x598 @0x6
0x0592…059c at0007 = ╱4d╱M╱ // 0x599 @0x7
0x0592…059c at0008 = ╱53╱S╱ // 0x59a @0x8
0x0592…059c at0009 = EOL // 0x59b @0x9
0x0592…059c }
0x059c…05bc 9baa 00460 // Variable…til…filen…@@KONTO
0x059c…05bc LineComal80 {
0x059c…05bc ptr = 0x9baa // 0x59c @0x0
0x059c…05bc lno = 0x01cc // 0x59e @0x2
0x059c…05bc at0004 = ╱89╱ // ╱ // 0x5a0 @0x4
0x059c…05bc at0005 = ╱56╱V╱ // 0x5a1 @0x5
0x059c…05bc at0006 = ╱61╱a╱ // 0x5a2 @0x6
0x059c…05bc at0007 = ╱72╱r╱ // 0x5a3 @0x7
0x059c…05bc at0008 = ╱69╱i╱ // 0x5a4 @0x8
0x059c…05bc at0009 = ╱61╱a╱ // 0x5a5 @0x9
0x059c…05bc at000a = ╱62╱b╱ // 0x5a6 @0xa
0x059c…05bc at000b = ╱6c╱l╱ // 0x5a7 @0xb
0x059c…05bc at000c = ╱65╱e╱ // 0x5a8 @0xc
0x059c…05bc at000d = ╱20╱…╱ // 0x5a9 @0xd
0x059c…05bc at000e = ╱74╱t╱ // 0x5aa @0xe
0x059c…05bc at000f = ╱69╱i╱ // 0x5ab @0xf
0x059c…05bc at0010 = ╱6c╱l╱ // 0x5ac @0x10
0x059c…05bc at0011 = ╱20╱…╱ // 0x5ad @0x11
0x059c…05bc at0012 = ╱66╱f╱ // 0x5ae @0x12
0x059c…05bc at0013 = ╱69╱i╱ // 0x5af @0x13
0x059c…05bc at0014 = ╱6c╱l╱ // 0x5b0 @0x14
0x059c…05bc at0015 = ╱65╱e╱ // 0x5b1 @0x15
0x059c…05bc at0016 = ╱6e╱n╱ // 0x5b2 @0x16
0x059c…05bc at0017 = ╱20╱…╱ // 0x5b3 @0x17
0x059c…05bc at0018 = ╱40╱@╱ // 0x5b4 @0x18
0x059c…05bc at0019 = ╱40╱@╱ // 0x5b5 @0x19
0x059c…05bc at001a = ╱4b╱K╱ // 0x5b6 @0x1a
0x059c…05bc at001b = ╱4f╱O╱ // 0x5b7 @0x1b
0x059c…05bc at001c = ╱4e╱N╱ // 0x5b8 @0x1c
0x059c…05bc at001d = ╱54╱T╱ // 0x5b9 @0x1d
0x059c…05bc at001e = ╱4f╱O╱ // 0x5ba @0x1e
0x059c…05bc at001f = EOL // 0x5bb @0x1f
0x059c…05bc }
0x05bc…05ce 9bbc 00470 DIM KONTO $ OF 17
0x05bc…05ce LineComal80 {
0x05bc…05ce ptr = 0x9bbc // 0x5bc @0x0
0x05bc…05ce lno = 0x01d6 // 0x5be @0x2
0x05bc…05ce at0004 = ╱87╱ DIM ╱ // 0x5c0 @0x4
0x05bc…05ce at0005 = ╱4b╱K╱ // 0x5c1 @0x5
0x05bc…05ce at0006 = ╱4f╱O╱ // 0x5c2 @0x6
0x05bc…05ce at0007 = ╱4e╱N╱ // 0x5c3 @0x7
0x05bc…05ce at0008 = ╱54╱T╱ // 0x5c4 @0x8
0x05bc…05ce at0009 = ╱4f╱O╱ // 0x5c5 @0x9
0x05bc…05ce at000a = ╱ef╱ $ ╱ // 0x5c6 @0xa
0x05bc…05ce at000b = ╱ba╱ OF ╱ // 0x5c7 @0xb
0x05bc…05ce at000c = ╱31╱1╱ // 0x5c8 @0xc
0x05bc…05ce at000d = ╱37╱7╱ // 0x5c9 @0xd
0x05bc…05ce at000e = ╱f21100╱ // 0x5ca @0xe
0x05bc…05ce at0011 = EOL // 0x5cd @0x11
0x05bc…05ce }
0x05ce…05e1 9bcf 00480 DIM ST_DATO $ OF 6
0x05ce…05e1 LineComal80 {
0x05ce…05e1 ptr = 0x9bcf // 0x5ce @0x0
0x05ce…05e1 lno = 0x01e0 // 0x5d0 @0x2
0x05ce…05e1 at0004 = ╱87╱ DIM ╱ // 0x5d2 @0x4
0x05ce…05e1 at0005 = ╱53╱S╱ // 0x5d3 @0x5
0x05ce…05e1 at0006 = ╱54╱T╱ // 0x5d4 @0x6
0x05ce…05e1 at0007 = ╱5f╱_╱ // 0x5d5 @0x7
0x05ce…05e1 at0008 = ╱44╱D╱ // 0x5d6 @0x8
0x05ce…05e1 at0009 = ╱41╱A╱ // 0x5d7 @0x9
0x05ce…05e1 at000a = ╱54╱T╱ // 0x5d8 @0xa
0x05ce…05e1 at000b = ╱4f╱O╱ // 0x5d9 @0xb
0x05ce…05e1 at000c = ╱ef╱ $ ╱ // 0x5da @0xc
0x05ce…05e1 at000d = ╱ba╱ OF ╱ // 0x5db @0xd
0x05ce…05e1 at000e = ╱36╱6╱ // 0x5dc @0xe
0x05ce…05e1 at000f = ╱f20600╱ // 0x5dd @0xf
0x05ce…05e1 at0012 = EOL // 0x5e0 @0x12
0x05ce…05e1 }
0x05e1…0607 9bf5 00490 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
0x05e1…0607 LineComal80 {
0x05e1…0607 ptr = 0x9bf5 // 0x5e1 @0x0
0x05e1…0607 lno = 0x01ea // 0x5e3 @0x2
0x05e1…0607 at0004 = ╱b2╱ INTEGER ╱ // 0x5e5 @0x4
0x05e1…0607 at0005 = ╱4e╱N╱ // 0x5e6 @0x5
0x05e1…0607 at0006 = ╱5f╱_╱ // 0x5e7 @0x6
0x05e1…0607 at0007 = ╱46╱F╱ // 0x5e8 @0x7
0x05e1…0607 at0008 = ╱52╱R╱ // 0x5e9 @0x8
0x05e1…0607 at0009 = ╱49╱I╱ // 0x5ea @0x9
0x05e1…0607 at000a = ╱52╱R╱ // 0x5eb @0xa
0x05e1…0607 at000b = ╱45╱E╱ // 0x5ec @0xb
0x05e1…0607 at000c = ╱43╱C╱ // 0x5ed @0xc
0x05e1…0607 at000d = ╱ec╱ , ╱ // 0x5ee @0xd
0x05e1…0607 at000e = ╱4e╱N╱ // 0x5ef @0xe
0x05e1…0607 at000f = ╱5f╱_╱ // 0x5f0 @0xf
0x05e1…0607 at0010 = ╱4d╱M╱ // 0x5f1 @0x10
0x05e1…0607 at0011 = ╱41╱A╱ // 0x5f2 @0x11
0x05e1…0607 at0012 = ╱58╱X╱ // 0x5f3 @0x12
0x05e1…0607 at0013 = ╱52╱R╱ // 0x5f4 @0x13
0x05e1…0607 at0014 = ╱45╱E╱ // 0x5f5 @0x14
0x05e1…0607 at0015 = ╱43╱C╱ // 0x5f6 @0x15
0x05e1…0607 at0016 = ╱ec╱ , ╱ // 0x5f7 @0x16
0x05e1…0607 at0017 = ╱41╱A╱ // 0x5f8 @0x17
0x05e1…0607 at0018 = ╱4e╱N╱ // 0x5f9 @0x18
0x05e1…0607 at0019 = ╱54╱T╱ // 0x5fa @0x19
0x05e1…0607 at001a = ╱5f╱_╱ // 0x5fb @0x1a
0x05e1…0607 at001b = ╱50╱P╱ // 0x5fc @0x1b
0x05e1…0607 at001c = ╱45╱E╱ // 0x5fd @0x1c
0x05e1…0607 at001d = ╱52╱R╱ // 0x5fe @0x1d
0x05e1…0607 at001e = ╱ec╱ , ╱ // 0x5ff @0x1e
0x05e1…0607 at001f = ╱50╱P╱ // 0x600 @0x1f
0x05e1…0607 at0020 = ╱45╱E╱ // 0x601 @0x20
0x05e1…0607 at0021 = ╱52╱R╱ // 0x602 @0x21
0x05e1…0607 at0022 = ╱5f╱_╱ // 0x603 @0x22
0x05e1…0607 at0023 = ╱4e╱N╱ // 0x604 @0x23
0x05e1…0607 at0024 = ╱52╱R╱ // 0x605 @0x24
0x05e1…0607 at0025 = EOL // 0x606 @0x25
0x05e1…0607 }
0x0607…062b 9c19 00500 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
0x0607…062b LineComal80 {
0x0607…062b ptr = 0x9c19 // 0x607 @0x0
0x0607…062b lno = 0x01f4 // 0x609 @0x2
0x0607…062b at0004 = ╱87╱ DIM ╱ // 0x60b @0x4
0x0607…062b at0005 = ╱4b╱K╱ // 0x60c @0x5
0x0607…062b at0006 = ╱54╱T╱ // 0x60d @0x6
0x0607…062b at0007 = ╱4f╱O╱ // 0x60e @0x7
0x0607…062b at0008 = ╱5f╱_╱ // 0x60f @0x8
0x0607…062b at0009 = ╱54╱T╱ // 0x610 @0x9
0x0607…062b at000a = ╱59╱Y╱ // 0x611 @0xa
0x0607…062b at000b = ╱50╱P╱ // 0x612 @0xb
0x0607…062b at000c = ╱45╱E╱ // 0x613 @0xc
0x0607…062b at000d = ╱ef╱ $ ╱ // 0x614 @0xd
0x0607…062b at000e = ╱ba╱ OF ╱ // 0x615 @0xe
0x0607…062b at000f = ╱31╱1╱ // 0x616 @0xf
0x0607…062b at0010 = ╱f20100╱ // 0x617 @0x10
0x0607…062b at0013 = ╱ec╱ , ╱ // 0x61a @0x13
0x0607…062b at0014 = ╱4b╱K╱ // 0x61b @0x14
0x0607…062b at0015 = ╱54╱T╱ // 0x61c @0x15
0x0607…062b at0016 = ╱4f╱O╱ // 0x61d @0x16
0x0607…062b at0017 = ╱5f╱_╱ // 0x61e @0x17
0x0607…062b at0018 = ╱4e╱N╱ // 0x61f @0x18
0x0607…062b at0019 = ╱41╱A╱ // 0x620 @0x19
0x0607…062b at001a = ╱56╱V╱ // 0x621 @0x1a
0x0607…062b at001b = ╱4e╱N╱ // 0x622 @0x1b
0x0607…062b at001c = ╱ef╱ $ ╱ // 0x623 @0x1c
0x0607…062b at001d = ╱ba╱ OF ╱ // 0x624 @0x1d
0x0607…062b at001e = ╱34╱4╱ // 0x625 @0x1e
0x0607…062b at001f = ╱30╱0╱ // 0x626 @0x1f
0x0607…062b at0020 = ╱f22800╱ // 0x627 @0x20
0x0607…062b at0023 = EOL // 0x62a @0x23
0x0607…062b }
0x062b…0645 9c33 00510 REAL KTO_PRIMO , KTO_ULTIMO
0x062b…0645 LineComal80 {
0x062b…0645 ptr = 0x9c33 // 0x62b @0x0
0x062b…0645 lno = 0x01fe // 0x62d @0x2
0x062b…0645 at0004 = ╱b3╱ REAL ╱ // 0x62f @0x4
0x062b…0645 at0005 = ╱4b╱K╱ // 0x630 @0x5
0x062b…0645 at0006 = ╱54╱T╱ // 0x631 @0x6
0x062b…0645 at0007 = ╱4f╱O╱ // 0x632 @0x7
0x062b…0645 at0008 = ╱5f╱_╱ // 0x633 @0x8
0x062b…0645 at0009 = ╱50╱P╱ // 0x634 @0x9
0x062b…0645 at000a = ╱52╱R╱ // 0x635 @0xa
0x062b…0645 at000b = ╱49╱I╱ // 0x636 @0xb
0x062b…0645 at000c = ╱4d╱M╱ // 0x637 @0xc
0x062b…0645 at000d = ╱4f╱O╱ // 0x638 @0xd
0x062b…0645 at000e = ╱ec╱ , ╱ // 0x639 @0xe
0x062b…0645 at000f = ╱4b╱K╱ // 0x63a @0xf
0x062b…0645 at0010 = ╱54╱T╱ // 0x63b @0x10
0x062b…0645 at0011 = ╱4f╱O╱ // 0x63c @0x11
0x062b…0645 at0012 = ╱5f╱_╱ // 0x63d @0x12
0x062b…0645 at0013 = ╱55╱U╱ // 0x63e @0x13
0x062b…0645 at0014 = ╱4c╱L╱ // 0x63f @0x14
0x062b…0645 at0015 = ╱54╱T╱ // 0x640 @0x15
0x062b…0645 at0016 = ╱49╱I╱ // 0x641 @0x16
0x062b…0645 at0017 = ╱4d╱M╱ // 0x642 @0x17
0x062b…0645 at0018 = ╱4f╱O╱ // 0x643 @0x18
0x062b…0645 at0019 = EOL // 0x644 @0x19
0x062b…0645 }
0x0645…0658 9c46 00520 INTEGER KTO_FP , KTO_SP
0x0645…0658 LineComal80 {
0x0645…0658 ptr = 0x9c46 // 0x645 @0x0
0x0645…0658 lno = 0x0208 // 0x647 @0x2
0x0645…0658 at0004 = ╱b2╱ INTEGER ╱ // 0x649 @0x4
0x0645…0658 at0005 = ╱4b╱K╱ // 0x64a @0x5
0x0645…0658 at0006 = ╱54╱T╱ // 0x64b @0x6
0x0645…0658 at0007 = ╱4f╱O╱ // 0x64c @0x7
0x0645…0658 at0008 = ╱5f╱_╱ // 0x64d @0x8
0x0645…0658 at0009 = ╱46╱F╱ // 0x64e @0x9
0x0645…0658 at000a = ╱50╱P╱ // 0x64f @0xa
0x0645…0658 at000b = ╱ec╱ , ╱ // 0x650 @0xb
0x0645…0658 at000c = ╱4b╱K╱ // 0x651 @0xc
0x0645…0658 at000d = ╱54╱T╱ // 0x652 @0xd
0x0645…0658 at000e = ╱4f╱O╱ // 0x653 @0xe
0x0645…0658 at000f = ╱5f╱_╱ // 0x654 @0xf
0x0645…0658 at0010 = ╱53╱S╱ // 0x655 @0x10
0x0645…0658 at0011 = ╱50╱P╱ // 0x656 @0x11
0x0645…0658 at0012 = EOL // 0x657 @0x12
0x0645…0658 }
0x0658…0679 9c67 00530 // Variable…til…filen…@@KTOIDX
0x0658…0679 LineComal80 {
0x0658…0679 ptr = 0x9c67 // 0x658 @0x0
0x0658…0679 lno = 0x0212 // 0x65a @0x2
0x0658…0679 at0004 = ╱89╱ // ╱ // 0x65c @0x4
0x0658…0679 at0005 = ╱56╱V╱ // 0x65d @0x5
0x0658…0679 at0006 = ╱61╱a╱ // 0x65e @0x6
0x0658…0679 at0007 = ╱72╱r╱ // 0x65f @0x7
0x0658…0679 at0008 = ╱69╱i╱ // 0x660 @0x8
0x0658…0679 at0009 = ╱61╱a╱ // 0x661 @0x9
0x0658…0679 at000a = ╱62╱b╱ // 0x662 @0xa
0x0658…0679 at000b = ╱6c╱l╱ // 0x663 @0xb
0x0658…0679 at000c = ╱65╱e╱ // 0x664 @0xc
0x0658…0679 at000d = ╱20╱…╱ // 0x665 @0xd
0x0658…0679 at000e = ╱74╱t╱ // 0x666 @0xe
0x0658…0679 at000f = ╱69╱i╱ // 0x667 @0xf
0x0658…0679 at0010 = ╱6c╱l╱ // 0x668 @0x10
0x0658…0679 at0011 = ╱20╱…╱ // 0x669 @0x11
0x0658…0679 at0012 = ╱66╱f╱ // 0x66a @0x12
0x0658…0679 at0013 = ╱69╱i╱ // 0x66b @0x13
0x0658…0679 at0014 = ╱6c╱l╱ // 0x66c @0x14
0x0658…0679 at0015 = ╱65╱e╱ // 0x66d @0x15
0x0658…0679 at0016 = ╱6e╱n╱ // 0x66e @0x16
0x0658…0679 at0017 = ╱20╱…╱ // 0x66f @0x17
0x0658…0679 at0018 = ╱40╱@╱ // 0x670 @0x18
0x0658…0679 at0019 = ╱40╱@╱ // 0x671 @0x19
0x0658…0679 at001a = ╱4b╱K╱ // 0x672 @0x1a
0x0658…0679 at001b = ╱54╱T╱ // 0x673 @0x1b
0x0658…0679 at001c = ╱4f╱O╱ // 0x674 @0x1c
0x0658…0679 at001d = ╱49╱I╱ // 0x675 @0x1d
0x0658…0679 at001e = ╱44╱D╱ // 0x676 @0x1e
0x0658…0679 at001f = ╱58╱X╱ // 0x677 @0x1f
0x0658…0679 at0020 = EOL // 0x678 @0x20
0x0658…0679 }
0x0679…068c 9c7a 00540 DIM KTOIDX $ OF 17
0x0679…068c LineComal80 {
0x0679…068c ptr = 0x9c7a // 0x679 @0x0
0x0679…068c lno = 0x021c // 0x67b @0x2
0x0679…068c at0004 = ╱87╱ DIM ╱ // 0x67d @0x4
0x0679…068c at0005 = ╱4b╱K╱ // 0x67e @0x5
0x0679…068c at0006 = ╱54╱T╱ // 0x67f @0x6
0x0679…068c at0007 = ╱4f╱O╱ // 0x680 @0x7
0x0679…068c at0008 = ╱49╱I╱ // 0x681 @0x8
0x0679…068c at0009 = ╱44╱D╱ // 0x682 @0x9
0x0679…068c at000a = ╱58╱X╱ // 0x683 @0xa
0x0679…068c at000b = ╱ef╱ $ ╱ // 0x684 @0xb
0x0679…068c at000c = ╱ba╱ OF ╱ // 0x685 @0xc
0x0679…068c at000d = ╱31╱1╱ // 0x686 @0xd
0x0679…068c at000e = ╱37╱7╱ // 0x687 @0xe
0x0679…068c at000f = ╱f21100╱ // 0x688 @0xf
0x0679…068c at0012 = EOL // 0x68b @0x12
0x0679…068c }
0x068c…06a3 9c91 00550 INTEGER I_H\JREC , I_MAXREC
0x068c…06a3 LineComal80 {
0x068c…06a3 ptr = 0x9c91 // 0x68c @0x0
0x068c…06a3 lno = 0x0226 // 0x68e @0x2
0x068c…06a3 at0004 = ╱b2╱ INTEGER ╱ // 0x690 @0x4
0x068c…06a3 at0005 = ╱49╱I╱ // 0x691 @0x5
0x068c…06a3 at0006 = ╱5f╱_╱ // 0x692 @0x6
0x068c…06a3 at0007 = ╱48╱H╱ // 0x693 @0x7
0x068c…06a3 at0008 = ╱5c╱\╱ // 0x694 @0x8
0x068c…06a3 at0009 = ╱4a╱J╱ // 0x695 @0x9
0x068c…06a3 at000a = ╱52╱R╱ // 0x696 @0xa
0x068c…06a3 at000b = ╱45╱E╱ // 0x697 @0xb
0x068c…06a3 at000c = ╱43╱C╱ // 0x698 @0xc
0x068c…06a3 at000d = ╱ec╱ , ╱ // 0x699 @0xd
0x068c…06a3 at000e = ╱49╱I╱ // 0x69a @0xe
0x068c…06a3 at000f = ╱5f╱_╱ // 0x69b @0xf
0x068c…06a3 at0010 = ╱4d╱M╱ // 0x69c @0x10
0x068c…06a3 at0011 = ╱41╱A╱ // 0x69d @0x11
0x068c…06a3 at0012 = ╱58╱X╱ // 0x69e @0x12
0x068c…06a3 at0013 = ╱52╱R╱ // 0x69f @0x13
0x068c…06a3 at0014 = ╱45╱E╱ // 0x6a0 @0x14
0x068c…06a3 at0015 = ╱43╱C╱ // 0x6a1 @0x15
0x068c…06a3 at0016 = EOL // 0x6a2 @0x16
0x068c…06a3 }
0x06a3…06b4 9ca2 00560 DIM KTONR $ OF 8
0x06a3…06b4 LineComal80 {
0x06a3…06b4 ptr = 0x9ca2 // 0x6a3 @0x0
0x06a3…06b4 lno = 0x0230 // 0x6a5 @0x2
0x06a3…06b4 at0004 = ╱87╱ DIM ╱ // 0x6a7 @0x4
0x06a3…06b4 at0005 = ╱4b╱K╱ // 0x6a8 @0x5
0x06a3…06b4 at0006 = ╱54╱T╱ // 0x6a9 @0x6
0x06a3…06b4 at0007 = ╱4f╱O╱ // 0x6aa @0x7
0x06a3…06b4 at0008 = ╱4e╱N╱ // 0x6ab @0x8
0x06a3…06b4 at0009 = ╱52╱R╱ // 0x6ac @0x9
0x06a3…06b4 at000a = ╱ef╱ $ ╱ // 0x6ad @0xa
0x06a3…06b4 at000b = ╱ba╱ OF ╱ // 0x6ae @0xb
0x06a3…06b4 at000c = ╱38╱8╱ // 0x6af @0xc
0x06a3…06b4 at000d = ╱f20800╱ // 0x6b0 @0xd
0x06a3…06b4 at0010 = EOL // 0x6b3 @0x10
0x06a3…06b4 }
0x06b4…06bf 9cad 00570 INTEGER RECNR
0x06b4…06bf LineComal80 {
0x06b4…06bf ptr = 0x9cad // 0x6b4 @0x0
0x06b4…06bf lno = 0x023a // 0x6b6 @0x2
0x06b4…06bf at0004 = ╱b2╱ INTEGER ╱ // 0x6b8 @0x4
0x06b4…06bf at0005 = ╱52╱R╱ // 0x6b9 @0x5
0x06b4…06bf at0006 = ╱45╱E╱ // 0x6ba @0x6
0x06b4…06bf at0007 = ╱43╱C╱ // 0x6bb @0x7
0x06b4…06bf at0008 = ╱4e╱N╱ // 0x6bc @0x8
0x06b4…06bf at0009 = ╱52╱R╱ // 0x6bd @0x9
0x06b4…06bf at000a = EOL // 0x6be @0xa
0x06b4…06bf }
0x06bf…06d0 9cbe 00580 ENDPROC DIMENSIONER
0x06bf…06d0 LineComal80 {
0x06bf…06d0 ptr = 0x9cbe // 0x6bf @0x0
0x06bf…06d0 lno = 0x0244 // 0x6c1 @0x2
0x06bf…06d0 at0004 = ╱9f╱ ENDPROC ╱ // 0x6c3 @0x4
0x06bf…06d0 at0005 = ╱44╱D╱ // 0x6c4 @0x5
0x06bf…06d0 at0006 = ╱49╱I╱ // 0x6c5 @0x6
0x06bf…06d0 at0007 = ╱4d╱M╱ // 0x6c6 @0x7
0x06bf…06d0 at0008 = ╱45╱E╱ // 0x6c7 @0x8
0x06bf…06d0 at0009 = ╱4e╱N╱ // 0x6c8 @0x9
0x06bf…06d0 at000a = ╱53╱S╱ // 0x6c9 @0xa
0x06bf…06d0 at000b = ╱49╱I╱ // 0x6ca @0xb
0x06bf…06d0 at000c = ╱4f╱O╱ // 0x6cb @0xc
0x06bf…06d0 at000d = ╱4e╱N╱ // 0x6cc @0xd
0x06bf…06d0 at000e = ╱45╱E╱ // 0x6cd @0xe
0x06bf…06d0 at000f = ╱52╱R╱ // 0x6ce @0xf
0x06bf…06d0 at0010 = EOL // 0x6cf @0x10
0x06bf…06d0 }
0x06d0…06d5 9cc3 00590
0x06d0…06d5 LineComal80 {
0x06d0…06d5 ptr = 0x9cc3 // 0x6d0 @0x0
0x06d0…06d5 lno = 0x024e // 0x6d2 @0x2
0x06d0…06d5 at0004 = EOL // 0x6d4 @0x4
0x06d0…06d5 }
0x06d5…06e3 9cd1 00600 PROC INITIER
0x06d5…06e3 LineComal80 {
0x06d5…06e3 ptr = 0x9cd1 // 0x6d5 @0x0
0x06d5…06e3 lno = 0x0258 // 0x6d7 @0x2
0x06d5…06e3 at0004 = ╱9e02╱ PROC ╱ // 0x6d9 @0x4
0x06d5…06e3 at0006 = ╱49╱I╱ // 0x6db @0x6
0x06d5…06e3 at0007 = ╱4e╱N╱ // 0x6dc @0x7
0x06d5…06e3 at0008 = ╱49╱I╱ // 0x6dd @0x8
0x06d5…06e3 at0009 = ╱54╱T╱ // 0x6de @0x9
0x06d5…06e3 at000a = ╱49╱I╱ // 0x6df @0xa
0x06d5…06e3 at000b = ╱45╱E╱ // 0x6e0 @0xb
0x06d5…06e3 at000c = ╱52╱R╱ // 0x6e1 @0xc
0x06d5…06e3 at000d = EOL // 0x6e2 @0xd
0x06d5…06e3 }
0x06e3…06f5 9ce3 00610 LET PRGFL $ := "DP2"
0x06e3…06f5 LineComal80 {
0x06e3…06f5 ptr = 0x9ce3 // 0x6e3 @0x0
0x06e3…06f5 lno = 0x0262 // 0x6e5 @0x2
0x06e3…06f5 at0004 = ╱86╱ LET ╱ // 0x6e7 @0x4
0x06e3…06f5 at0005 = ╱50╱P╱ // 0x6e8 @0x5
0x06e3…06f5 at0006 = ╱52╱R╱ // 0x6e9 @0x6
0x06e3…06f5 at0007 = ╱47╱G╱ // 0x6ea @0x7
0x06e3…06f5 at0008 = ╱46╱F╱ // 0x6eb @0x8
0x06e3…06f5 at0009 = ╱4c╱L╱ // 0x6ec @0x9
0x06e3…06f5 at000a = ╱ef╱ $ ╱ // 0x6ed @0xa
0x06e3…06f5 at000b = ╱f0╱ := ╱ // 0x6ee @0xb
0x06e3…06f5 at000c = ╱22╱"╱ // 0x6ef @0xc
0x06e3…06f5 at000d = ╱44╱D╱ // 0x6f0 @0xd
0x06e3…06f5 at000e = ╱50╱P╱ // 0x6f1 @0xe
0x06e3…06f5 at000f = ╱32╱2╱ // 0x6f2 @0xf
0x06e3…06f5 at0010 = ╱22╱"╱ // 0x6f3 @0x10
0x06e3…06f5 at0011 = EOL // 0x6f4 @0x11
0x06e3…06f5 }
0x06f5…0711 9cff 00620 LET PROGRAM $ := PRGFL $ + ":SYS"
0x06f5…0711 LineComal80 {
0x06f5…0711 ptr = 0x9cff // 0x6f5 @0x0
0x06f5…0711 lno = 0x026c // 0x6f7 @0x2
0x06f5…0711 at0004 = ╱86╱ LET ╱ // 0x6f9 @0x4
0x06f5…0711 at0005 = ╱50╱P╱ // 0x6fa @0x5
0x06f5…0711 at0006 = ╱52╱R╱ // 0x6fb @0x6
0x06f5…0711 at0007 = ╱4f╱O╱ // 0x6fc @0x7
0x06f5…0711 at0008 = ╱47╱G╱ // 0x6fd @0x8
0x06f5…0711 at0009 = ╱52╱R╱ // 0x6fe @0x9
0x06f5…0711 at000a = ╱41╱A╱ // 0x6ff @0xa
0x06f5…0711 at000b = ╱4d╱M╱ // 0x700 @0xb
0x06f5…0711 at000c = ╱ef╱ $ ╱ // 0x701 @0xc
0x06f5…0711 at000d = ╱f0╱ := ╱ // 0x702 @0xd
0x06f5…0711 at000e = ╱50╱P╱ // 0x703 @0xe
0x06f5…0711 at000f = ╱52╱R╱ // 0x704 @0xf
0x06f5…0711 at0010 = ╱47╱G╱ // 0x705 @0x10
0x06f5…0711 at0011 = ╱46╱F╱ // 0x706 @0x11
0x06f5…0711 at0012 = ╱4c╱L╱ // 0x707 @0x12
0x06f5…0711 at0013 = ╱ef╱ $ ╱ // 0x708 @0x13
0x06f5…0711 at0014 = ╱eb╱ + ╱ // 0x709 @0x14
0x06f5…0711 at0015 = ╱22╱"╱ // 0x70a @0x15
0x06f5…0711 at0016 = ╱3a╱:╱ // 0x70b @0x16
0x06f5…0711 at0017 = ╱53╱S╱ // 0x70c @0x17
0x06f5…0711 at0018 = ╱59╱Y╱ // 0x70d @0x18
0x06f5…0711 at0019 = ╱53╱S╱ // 0x70e @0x19
0x06f5…0711 at001a = ╱22╱"╱ // 0x70f @0x1a
0x06f5…0711 at001b = EOL // 0x710 @0x1b
0x06f5…0711 }
0x0711…0728 9d16 00630 LET TAL $ := "0123456789"
0x0711…0728 LineComal80 {
0x0711…0728 ptr = 0x9d16 // 0x711 @0x0
0x0711…0728 lno = 0x0276 // 0x713 @0x2
0x0711…0728 at0004 = ╱86╱ LET ╱ // 0x715 @0x4
0x0711…0728 at0005 = ╱54╱T╱ // 0x716 @0x5
0x0711…0728 at0006 = ╱41╱A╱ // 0x717 @0x6
0x0711…0728 at0007 = ╱4c╱L╱ // 0x718 @0x7
0x0711…0728 at0008 = ╱ef╱ $ ╱ // 0x719 @0x8
0x0711…0728 at0009 = ╱f0╱ := ╱ // 0x71a @0x9
0x0711…0728 at000a = ╱22╱"╱ // 0x71b @0xa
0x0711…0728 at000b = ╱30╱0╱ // 0x71c @0xb
0x0711…0728 at000c = ╱31╱1╱ // 0x71d @0xc
0x0711…0728 at000d = ╱32╱2╱ // 0x71e @0xd
0x0711…0728 at000e = ╱33╱3╱ // 0x71f @0xe
0x0711…0728 at000f = ╱34╱4╱ // 0x720 @0xf
0x0711…0728 at0010 = ╱35╱5╱ // 0x721 @0x10
0x0711…0728 at0011 = ╱36╱6╱ // 0x722 @0x11
0x0711…0728 at0012 = ╱37╱7╱ // 0x723 @0x12
0x0711…0728 at0013 = ╱38╱8╱ // 0x724 @0x13
0x0711…0728 at0014 = ╱39╱9╱ // 0x725 @0x14
0x0711…0728 at0015 = ╱22╱"╱ // 0x726 @0x15
0x0711…0728 at0016 = EOL // 0x727 @0x16
0x0711…0728 }
0x0728…0750 9d3e 00640 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
0x0728…0750 LineComal80 {
0x0728…0750 ptr = 0x9d3e // 0x728 @0x0
0x0728…0750 lno = 0x0280 // 0x72a @0x2
0x0728…0750 at0004 = ╱b400╱ FOR ╱ // 0x72c @0x4
0x0728…0750 at0006 = ╱49╱I╱ // 0x72e @0x6
0x0728…0750 at0007 = ╱f0╱ := ╱ // 0x72f @0x7
0x0728…0750 at0008 = ╱cc╱ // 0x730 @0x8
0x0728…0750 at0009 = ╱ed╱ ( ╱ // 0x731 @0x9
0x0728…0750 at000a = ╱22╱"╱ // 0x732 @0xa
0x0728…0750 at000b = ╱41╱A╱ // 0x733 @0xb
0x0728…0750 at000c = ╱22╱"╱ // 0x734 @0xc
0x0728…0750 at000d = ╱ee╱ ) ╱ // 0x735 @0xd
0x0728…0750 at000e = ╱b7cc╱ TO ╱ // 0x736 @0xe
0x0728…0750 at0010 = ╱ed╱ ( ╱ // 0x738 @0x10
0x0728…0750 at0011 = ╱22╱"╱ // 0x739 @0x11
0x0728…0750 at0012 = ╱5d╱]╱ // 0x73a @0x12
0x0728…0750 at0013 = ╱22╱"╱ // 0x73b @0x13
0x0728…0750 at0014 = ╱ee╱ ) ╱ // 0x73c @0x14
0x0728…0750 at0015 = ╱bb╱ DO ╱ // 0x73d @0x15
0x0728…0750 at0016 = ╱86╱ LET ╱ // 0x73e @0x16
0x0728…0750 at0017 = ╱41╱A╱ // 0x73f @0x17
0x0728…0750 at0018 = ╱4c╱L╱ // 0x740 @0x18
0x0728…0750 at0019 = ╱46╱F╱ // 0x741 @0x19
0x0728…0750 at001a = ╱41╱A╱ // 0x742 @0x1a
0x0728…0750 at001b = ╱ef╱ $ ╱ // 0x743 @0x1b
0x0728…0750 at001c = ╱f0╱ := ╱ // 0x744 @0x1c
0x0728…0750 at001d = ╱41╱A╱ // 0x745 @0x1d
0x0728…0750 at001e = ╱4c╱L╱ // 0x746 @0x1e
0x0728…0750 at001f = ╱46╱F╱ // 0x747 @0x1f
0x0728…0750 at0020 = ╱41╱A╱ // 0x748 @0x20
0x0728…0750 at0021 = ╱ef╱ $ ╱ // 0x749 @0x21
0x0728…0750 at0022 = ╱eb╱ + ╱ // 0x74a @0x22
0x0728…0750 at0023 = ╱d0╱ CHR$ ╱ // 0x74b @0x23
0x0728…0750 at0024 = ╱ed╱ ( ╱ // 0x74c @0x24
0x0728…0750 at0025 = ╱49╱I╱ // 0x74d @0x25
0x0728…0750 at0026 = ╱ee╱ ) ╱ // 0x74e @0x26
0x0728…0750 at0027 = EOL // 0x74f @0x27
0x0728…0750 }
0x0750…0785 9d73 00650 LET SPC $ := "…………………………………………………………………………………………………………"
0x0750…0785 LineComal80 {
0x0750…0785 ptr = 0x9d73 // 0x750 @0x0
0x0750…0785 lno = 0x028a // 0x752 @0x2
0x0750…0785 at0004 = ╱86╱ LET ╱ // 0x754 @0x4
0x0750…0785 at0005 = ╱53╱S╱ // 0x755 @0x5
0x0750…0785 at0006 = ╱50╱P╱ // 0x756 @0x6
0x0750…0785 at0007 = ╱43╱C╱ // 0x757 @0x7
0x0750…0785 at0008 = ╱ef╱ $ ╱ // 0x758 @0x8
0x0750…0785 at0009 = ╱f0╱ := ╱ // 0x759 @0x9
0x0750…0785 at000a = ╱22╱"╱ // 0x75a @0xa
0x0750…0785 at000b = ╱20╱…╱ // 0x75b @0xb
0x0750…0785 at000c = ╱20╱…╱ // 0x75c @0xc
0x0750…0785 at000d = ╱20╱…╱ // 0x75d @0xd
0x0750…0785 at000e = ╱20╱…╱ // 0x75e @0xe
0x0750…0785 at000f = ╱20╱…╱ // 0x75f @0xf
0x0750…0785 at0010 = ╱20╱…╱ // 0x760 @0x10
0x0750…0785 at0011 = ╱20╱…╱ // 0x761 @0x11
0x0750…0785 at0012 = ╱20╱…╱ // 0x762 @0x12
0x0750…0785 at0013 = ╱20╱…╱ // 0x763 @0x13
0x0750…0785 at0014 = ╱20╱…╱ // 0x764 @0x14
0x0750…0785 at0015 = ╱20╱…╱ // 0x765 @0x15
0x0750…0785 at0016 = ╱20╱…╱ // 0x766 @0x16
0x0750…0785 at0017 = ╱20╱…╱ // 0x767 @0x17
0x0750…0785 at0018 = ╱20╱…╱ // 0x768 @0x18
0x0750…0785 at0019 = ╱20╱…╱ // 0x769 @0x19
0x0750…0785 at001a = ╱20╱…╱ // 0x76a @0x1a
0x0750…0785 at001b = ╱20╱…╱ // 0x76b @0x1b
0x0750…0785 at001c = ╱20╱…╱ // 0x76c @0x1c
0x0750…0785 at001d = ╱20╱…╱ // 0x76d @0x1d
0x0750…0785 at001e = ╱20╱…╱ // 0x76e @0x1e
0x0750…0785 at001f = ╱20╱…╱ // 0x76f @0x1f
0x0750…0785 at0020 = ╱20╱…╱ // 0x770 @0x20
0x0750…0785 at0021 = ╱20╱…╱ // 0x771 @0x21
0x0750…0785 at0022 = ╱20╱…╱ // 0x772 @0x22
0x0750…0785 at0023 = ╱20╱…╱ // 0x773 @0x23
0x0750…0785 at0024 = ╱20╱…╱ // 0x774 @0x24
0x0750…0785 at0025 = ╱20╱…╱ // 0x775 @0x25
0x0750…0785 at0026 = ╱20╱…╱ // 0x776 @0x26
0x0750…0785 at0027 = ╱20╱…╱ // 0x777 @0x27
0x0750…0785 at0028 = ╱20╱…╱ // 0x778 @0x28
0x0750…0785 at0029 = ╱20╱…╱ // 0x779 @0x29
0x0750…0785 at002a = ╱20╱…╱ // 0x77a @0x2a
0x0750…0785 at002b = ╱20╱…╱ // 0x77b @0x2b
0x0750…0785 at002c = ╱20╱…╱ // 0x77c @0x2c
0x0750…0785 at002d = ╱20╱…╱ // 0x77d @0x2d
0x0750…0785 at002e = ╱20╱…╱ // 0x77e @0x2e
0x0750…0785 at002f = ╱20╱…╱ // 0x77f @0x2f
0x0750…0785 at0030 = ╱20╱…╱ // 0x780 @0x30
0x0750…0785 at0031 = ╱20╱…╱ // 0x781 @0x31
0x0750…0785 at0032 = ╱20╱…╱ // 0x782 @0x32
0x0750…0785 at0033 = ╱22╱"╱ // 0x783 @0x33
0x0750…0785 at0034 = EOL // 0x784 @0x34
0x0750…0785 }
0x0785…0799 (25,) 9d87 00660 LET SPC $ := SPC $ + SPC $
0x0785…0799 LineComal80 {
0x0785…0799 ptr = 0x9d87 // 0x785 @0x0
0x0785…0799 lno = 0x0294 // 0x787 @0x2
0x0785…0799 at0004 = ╱86╱ LET ╱ // 0x789 @0x4
0x0785…0799 at0005 = ╱53╱S╱ // 0x78a @0x5
0x0785…0799 at0006 = ╱50╱P╱ // 0x78b @0x6
0x0785…0799 at0007 = ╱43╱C╱ // 0x78c @0x7
0x0785…0799 at0008 = ╱ef╱ $ ╱ // 0x78d @0x8
0x0785…0799 at0009 = ╱f0╱ := ╱ // 0x78e @0x9
0x0785…0799 at000a = ╱53╱S╱ // 0x78f @0xa
0x0785…0799 at000b = ╱50╱P╱ // 0x790 @0xb
0x0785…0799 at000c = ╱43╱C╱ // 0x791 @0xc
0x0785…0799 at000d = ╱ef╱ $ ╱ // 0x792 @0xd
0x0785…0799 at000e = ╱eb╱ + ╱ // 0x793 @0xe
0x0785…0799 at000f = ╱53╱S╱ // 0x794 @0xf
0x0785…0799 at0010 = ╱50╱P╱ // 0x795 @0x10
0x0785…0799 at0011 = ╱43╱C╱ // 0x796 @0x11
0x0785…0799 at0012 = ╱ef╱ $ ╱ // 0x797 @0x12
0x0785…0799 at0013 = EOL // 0x798 @0x13
0x0785…0799 }
0x0799…07c4 9db2 00670 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x0799…07c4 LineComal80 {
0x0799…07c4 ptr = 0x9db2 // 0x799 @0x0
0x0799…07c4 lno = 0x029e // 0x79b @0x2
0x0799…07c4 at0004 = ╱86╱ LET ╱ // 0x79d @0x4
0x0799…07c4 at0005 = ╱46╱F╱ // 0x79e @0x5
0x0799…07c4 at0006 = ╱41╱A╱ // 0x79f @0x6
0x0799…07c4 at0007 = ╱4c╱L╱ // 0x7a0 @0x7
0x0799…07c4 at0008 = ╱53╱S╱ // 0x7a1 @0x8
0x0799…07c4 at0009 = ╱45╱E╱ // 0x7a2 @0x9
0x0799…07c4 at000a = ╱f0╱ := ╱ // 0x7a3 @0xa
0x0799…07c4 at000b = ╱30╱0╱ // 0x7a4 @0xb
0x0799…07c4 at000c = ╱f20000╱ // 0x7a5 @0xc
0x0799…07c4 at000f = ╱ea╱ ; ╱ // 0x7a8 @0xf
0x0799…07c4 at0010 = ╱54╱T╱ // 0x7a9 @0x10
0x0799…07c4 at0011 = ╱52╱R╱ // 0x7aa @0x11
0x0799…07c4 at0012 = ╱55╱U╱ // 0x7ab @0x12
0x0799…07c4 at0013 = ╱45╱E╱ // 0x7ac @0x13
0x0799…07c4 at0014 = ╱f0╱ := ╱ // 0x7ad @0x14
0x0799…07c4 at0015 = ╱31╱1╱ // 0x7ae @0x15
0x0799…07c4 at0016 = ╱f20100╱ // 0x7af @0x16
0x0799…07c4 at0019 = ╱89╱ // ╱ // 0x7b2 @0x19
0x0799…07c4 at001a = ╱62╱b╱ // 0x7b3 @0x1a
0x0799…07c4 at001b = ╱6f╱o╱ // 0x7b4 @0x1b
0x0799…07c4 at001c = ╱6f╱o╱ // 0x7b5 @0x1c
0x0799…07c4 at001d = ╱6c╱l╱ // 0x7b6 @0x1d
0x0799…07c4 at001e = ╱73╱s╱ // 0x7b7 @0x1e
0x0799…07c4 at001f = ╱6b╱k╱ // 0x7b8 @0x1f
0x0799…07c4 at0020 = ╱65╱e╱ // 0x7b9 @0x20
0x0799…07c4 at0021 = ╱20╱…╱ // 0x7ba @0x21
0x0799…07c4 at0022 = ╱76╱v╱ // 0x7bb @0x22
0x0799…07c4 at0023 = ╱61╱a╱ // 0x7bc @0x23
0x0799…07c4 at0024 = ╱72╱r╱ // 0x7bd @0x24
0x0799…07c4 at0025 = ╱69╱i╱ // 0x7be @0x25
0x0799…07c4 at0026 = ╱61╱a╱ // 0x7bf @0x26
0x0799…07c4 at0027 = ╱62╱b╱ // 0x7c0 @0x27
0x0799…07c4 at0028 = ╱6c╱l╱ // 0x7c1 @0x28
0x0799…07c4 at0029 = ╱65╱e╱ // 0x7c2 @0x29
0x0799…07c4 at002a = EOL // 0x7c3 @0x2a
0x0799…07c4 }
0x07c4…07e4 9dd2 00680 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x07c4…07e4 LineComal80 {
0x07c4…07e4 ptr = 0x9dd2 // 0x7c4 @0x0
0x07c4…07e4 lno = 0x02a8 // 0x7c6 @0x2
0x07c4…07e4 at0004 = ╱86╱ LET ╱ // 0x7c8 @0x4
0x07c4…07e4 at0005 = ╱53╱S╱ // 0x7c9 @0x5
0x07c4…07e4 at0006 = ╱59╱Y╱ // 0x7ca @0x6
0x07c4…07e4 at0007 = ╱53╱S╱ // 0x7cb @0x7
0x07c4…07e4 at0008 = ╱50╱P╱ // 0x7cc @0x8
0x07c4…07e4 at0009 = ╱41╱A╱ // 0x7cd @0x9
0x07c4…07e4 at000a = ╱52╱R╱ // 0x7ce @0xa
0x07c4…07e4 at000b = ╱41╱A╱ // 0x7cf @0xb
0x07c4…07e4 at000c = ╱ef╱ $ ╱ // 0x7d0 @0xc
0x07c4…07e4 at000d = ╱f0╱ := ╱ // 0x7d1 @0xd
0x07c4…07e4 at000e = ╱50╱P╱ // 0x7d2 @0xe
0x07c4…07e4 at000f = ╱52╱R╱ // 0x7d3 @0xf
0x07c4…07e4 at0010 = ╱47╱G╱ // 0x7d4 @0x10
0x07c4…07e4 at0011 = ╱46╱F╱ // 0x7d5 @0x11
0x07c4…07e4 at0012 = ╱4c╱L╱ // 0x7d6 @0x12
0x07c4…07e4 at0013 = ╱ef╱ $ ╱ // 0x7d7 @0x13
0x07c4…07e4 at0014 = ╱eb╱ + ╱ // 0x7d8 @0x14
0x07c4…07e4 at0015 = ╱22╱"╱ // 0x7d9 @0x15
0x07c4…07e4 at0016 = ╱3a╱:╱ // 0x7da @0x16
0x07c4…07e4 at0017 = ╱53╱S╱ // 0x7db @0x17
0x07c4…07e4 at0018 = ╱59╱Y╱ // 0x7dc @0x18
0x07c4…07e4 at0019 = ╱53╱S╱ // 0x7dd @0x19
0x07c4…07e4 at001a = ╱50╱P╱ // 0x7de @0x1a
0x07c4…07e4 at001b = ╱41╱A╱ // 0x7df @0x1b
0x07c4…07e4 at001c = ╱52╱R╱ // 0x7e0 @0x1c
0x07c4…07e4 at001d = ╱41╱A╱ // 0x7e1 @0x1d
0x07c4…07e4 at001e = ╱22╱"╱ // 0x7e2 @0x1e
0x07c4…07e4 at001f = EOL // 0x7e3 @0x1f
0x07c4…07e4 }
0x07e4…07ff 9ded 00690 EXEC OPENFIL ( SYSPARA $ , "R" )
0x07e4…07ff LineComal80 {
0x07e4…07ff ptr = 0x9ded // 0x7e4 @0x0
0x07e4…07ff lno = 0x02b2 // 0x7e6 @0x2
0x07e4…07ff at0004 = ╱9d╱ EXEC ╱ // 0x7e8 @0x4
0x07e4…07ff at0005 = ╱4f╱O╱ // 0x7e9 @0x5
0x07e4…07ff at0006 = ╱50╱P╱ // 0x7ea @0x6
0x07e4…07ff at0007 = ╱45╱E╱ // 0x7eb @0x7
0x07e4…07ff at0008 = ╱4e╱N╱ // 0x7ec @0x8
0x07e4…07ff at0009 = ╱46╱F╱ // 0x7ed @0x9
0x07e4…07ff at000a = ╱49╱I╱ // 0x7ee @0xa
0x07e4…07ff at000b = ╱4c╱L╱ // 0x7ef @0xb
0x07e4…07ff at000c = ╱ed╱ ( ╱ // 0x7f0 @0xc
0x07e4…07ff at000d = ╱53╱S╱ // 0x7f1 @0xd
0x07e4…07ff at000e = ╱59╱Y╱ // 0x7f2 @0xe
0x07e4…07ff at000f = ╱53╱S╱ // 0x7f3 @0xf
0x07e4…07ff at0010 = ╱50╱P╱ // 0x7f4 @0x10
0x07e4…07ff at0011 = ╱41╱A╱ // 0x7f5 @0x11
0x07e4…07ff at0012 = ╱52╱R╱ // 0x7f6 @0x12
0x07e4…07ff at0013 = ╱41╱A╱ // 0x7f7 @0x13
0x07e4…07ff at0014 = ╱ef╱ $ ╱ // 0x7f8 @0x14
0x07e4…07ff at0015 = ╱ec╱ , ╱ // 0x7f9 @0x15
0x07e4…07ff at0016 = ╱22╱"╱ // 0x7fa @0x16
0x07e4…07ff at0017 = ╱52╱R╱ // 0x7fb @0x17
0x07e4…07ff at0018 = ╱22╱"╱ // 0x7fc @0x18
0x07e4…07ff at0019 = ╱ee╱ ) ╱ // 0x7fd @0x19
0x07e4…07ff at001a = EOL // 0x7fe @0x1a
0x07e4…07ff }
0x07ff…0825 9e13 00700 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x07ff…0825 LineComal80 {
0x07ff…0825 ptr = 0x9e13 // 0x7ff @0x0
0x07ff…0825 lno = 0x02bc // 0x801 @0x2
0x07ff…0825 at0004 = ╱a9╱ GET ╱ // 0x803 @0x4
0x07ff…0825 at0005 = ╱53╱S╱ // 0x804 @0x5
0x07ff…0825 at0006 = ╱59╱Y╱ // 0x805 @0x6
0x07ff…0825 at0007 = ╱53╱S╱ // 0x806 @0x7
0x07ff…0825 at0008 = ╱50╱P╱ // 0x807 @0x8
0x07ff…0825 at0009 = ╱41╱A╱ // 0x808 @0x9
0x07ff…0825 at000a = ╱52╱R╱ // 0x809 @0xa
0x07ff…0825 at000b = ╱41╱A╱ // 0x80a @0xb
0x07ff…0825 at000c = ╱ef╱ $ ╱ // 0x80b @0xc
0x07ff…0825 at000d = ╱ec╱ , ╱ // 0x80c @0xd
0x07ff…0825 at000e = ╱31╱1╱ // 0x80d @0xe
0x07ff…0825 at000f = ╱f20100╱ // 0x80e @0xf
0x07ff…0825 at0012 = ╱f1╱ : ╱ // 0x811 @0x12
0x07ff…0825 at0013 = ╱53╱S╱ // 0x812 @0x13
0x07ff…0825 at0014 = ╱59╱Y╱ // 0x813 @0x14
0x07ff…0825 at0015 = ╱53╱S╱ // 0x814 @0x15
0x07ff…0825 at0016 = ╱54╱T╱ // 0x815 @0x16
0x07ff…0825 at0017 = ╱5f╱_╱ // 0x816 @0x17
0x07ff…0825 at0018 = ╱4e╱N╱ // 0x817 @0x18
0x07ff…0825 at0019 = ╱41╱A╱ // 0x818 @0x19
0x07ff…0825 at001a = ╱56╱V╱ // 0x819 @0x1a
0x07ff…0825 at001b = ╱4e╱N╱ // 0x81a @0x1b
0x07ff…0825 at001c = ╱ef╱ $ ╱ // 0x81b @0x1c
0x07ff…0825 at001d = ╱ec╱ , ╱ // 0x81c @0x1d
0x07ff…0825 at001e = ╱53╱S╱ // 0x81d @0x1e
0x07ff…0825 at001f = ╱5f╱_╱ // 0x81e @0x1f
0x07ff…0825 at0020 = ╱4b╱K╱ // 0x81f @0x20
0x07ff…0825 at0021 = ╱4f╱O╱ // 0x820 @0x21
0x07ff…0825 at0022 = ╱44╱D╱ // 0x821 @0x22
0x07ff…0825 at0023 = ╱45╱E╱ // 0x822 @0x23
0x07ff…0825 at0024 = ╱ef╱ $ ╱ // 0x823 @0x24
0x07ff…0825 at0025 = EOL // 0x824 @0x25
0x07ff…0825 }
0x0825…0837 9e25 00710 EXEC TERMINAL_IDX
0x0825…0837 LineComal80 {
0x0825…0837 ptr = 0x9e25 // 0x825 @0x0
0x0825…0837 lno = 0x02c6 // 0x827 @0x2
0x0825…0837 at0004 = ╱9d╱ EXEC ╱ // 0x829 @0x4
0x0825…0837 at0005 = ╱54╱T╱ // 0x82a @0x5
0x0825…0837 at0006 = ╱45╱E╱ // 0x82b @0x6
0x0825…0837 at0007 = ╱52╱R╱ // 0x82c @0x7
0x0825…0837 at0008 = ╱4d╱M╱ // 0x82d @0x8
0x0825…0837 at0009 = ╱49╱I╱ // 0x82e @0x9
0x0825…0837 at000a = ╱4e╱N╱ // 0x82f @0xa
0x0825…0837 at000b = ╱41╱A╱ // 0x830 @0xb
0x0825…0837 at000c = ╱4c╱L╱ // 0x831 @0xc
0x0825…0837 at000d = ╱5f╱_╱ // 0x832 @0xd
0x0825…0837 at000e = ╱49╱I╱ // 0x833 @0xe
0x0825…0837 at000f = ╱44╱D╱ // 0x834 @0xf
0x0825…0837 at0010 = ╱58╱X╱ // 0x835 @0x10
0x0825…0837 at0011 = EOL // 0x836 @0x11
0x0825…0837 }
0x0837…0845 9e33 00720 CLOSE SYSPARA $
0x0837…0845 LineComal80 {
0x0837…0845 ptr = 0x9e33 // 0x837 @0x0
0x0837…0845 lno = 0x02d0 // 0x839 @0x2
0x0837…0845 at0004 = ╱a8╱ CLOSE ╱ // 0x83b @0x4
0x0837…0845 at0005 = ╱53╱S╱ // 0x83c @0x5
0x0837…0845 at0006 = ╱59╱Y╱ // 0x83d @0x6
0x0837…0845 at0007 = ╱53╱S╱ // 0x83e @0x7
0x0837…0845 at0008 = ╱50╱P╱ // 0x83f @0x8
0x0837…0845 at0009 = ╱41╱A╱ // 0x840 @0x9
0x0837…0845 at000a = ╱52╱R╱ // 0x841 @0xa
0x0837…0845 at000b = ╱41╱A╱ // 0x842 @0xb
0x0837…0845 at000c = ╱ef╱ $ ╱ // 0x843 @0xc
0x0837…0845 at000d = EOL // 0x844 @0xd
0x0837…0845 }
0x0845…0875 9e63 00730 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x0845…0875 LineComal80 {
0x0845…0875 ptr = 0x9e63 // 0x845 @0x0
0x0845…0875 lno = 0x02da // 0x847 @0x2
0x0845…0875 at0004 = ╱86╱ LET ╱ // 0x849 @0x4
0x0845…0875 at0005 = ╱50╱P╱ // 0x84a @0x5
0x0845…0875 at0006 = ╱41╱A╱ // 0x84b @0x6
0x0845…0875 at0007 = ╱52╱R╱ // 0x84c @0x7
0x0845…0875 at0008 = ╱41╱A╱ // 0x84d @0x8
0x0845…0875 at0009 = ╱4d╱M╱ // 0x84e @0x9
0x0845…0875 at000a = ╱ef╱ $ ╱ // 0x84f @0xa
0x0845…0875 at000b = ╱f0╱ := ╱ // 0x850 @0xb
0x0845…0875 at000c = ╱44╱D╱ // 0x851 @0xc
0x0845…0875 at000d = ╱41╱A╱ // 0x852 @0xd
0x0845…0875 at000e = ╱54╱T╱ // 0x853 @0xe
0x0845…0875 at000f = ╱41╱A╱ // 0x854 @0xf
0x0845…0875 at0010 = ╱46╱F╱ // 0x855 @0x10
0x0845…0875 at0011 = ╱4c╱L╱ // 0x856 @0x11
0x0845…0875 at0012 = ╱ef╱ $ ╱ // 0x857 @0x12
0x0845…0875 at0013 = ╱eb╱ + ╱ // 0x858 @0x13
0x0845…0875 at0014 = ╱22╱"╱ // 0x859 @0x14
0x0845…0875 at0015 = ╱3a╱:╱ // 0x85a @0x15
0x0845…0875 at0016 = ╱22╱"╱ // 0x85b @0x16
0x0845…0875 at0017 = ╱eb╱ + ╱ // 0x85c @0x17
0x0845…0875 at0018 = ╱53╱S╱ // 0x85d @0x18
0x0845…0875 at0019 = ╱5f╱_╱ // 0x85e @0x19
0x0845…0875 at001a = ╱4b╱K╱ // 0x85f @0x1a
0x0845…0875 at001b = ╱4f╱O╱ // 0x860 @0x1b
0x0845…0875 at001c = ╱44╱D╱ // 0x861 @0x1c
0x0845…0875 at001d = ╱45╱E╱ // 0x862 @0x1d
0x0845…0875 at001e = ╱ef╱ $ ╱ // 0x863 @0x1e
0x0845…0875 at001f = ╱eb╱ + ╱ // 0x864 @0x1f
0x0845…0875 at0020 = ╱54╱T╱ // 0x865 @0x20
0x0845…0875 at0021 = ╱5f╱_╱ // 0x866 @0x21
0x0845…0875 at0022 = ╱4b╱K╱ // 0x867 @0x22
0x0845…0875 at0023 = ╱4f╱O╱ // 0x868 @0x23
0x0845…0875 at0024 = ╱44╱D╱ // 0x869 @0x24
0x0845…0875 at0025 = ╱45╱E╱ // 0x86a @0x25
0x0845…0875 at0026 = ╱ef╱ $ ╱ // 0x86b @0x26
0x0845…0875 at0027 = ╱eb╱ + ╱ // 0x86c @0x27
0x0845…0875 at0028 = ╱22╱"╱ // 0x86d @0x28
0x0845…0875 at0029 = ╱50╱P╱ // 0x86e @0x29
0x0845…0875 at002a = ╱41╱A╱ // 0x86f @0x2a
0x0845…0875 at002b = ╱52╱R╱ // 0x870 @0x2b
0x0845…0875 at002c = ╱41╱A╱ // 0x871 @0x2c
0x0845…0875 at002d = ╱4d╱M╱ // 0x872 @0x2d
0x0845…0875 at002e = ╱22╱"╱ // 0x873 @0x2e
0x0845…0875 at002f = EOL // 0x874 @0x2f
0x0845…0875 }
0x0875…088e 9e7c 00740 EXEC OPENFIL ( PARAM $ , "R" )
0x0875…088e LineComal80 {
0x0875…088e ptr = 0x9e7c // 0x875 @0x0
0x0875…088e lno = 0x02e4 // 0x877 @0x2
0x0875…088e at0004 = ╱9d╱ EXEC ╱ // 0x879 @0x4
0x0875…088e at0005 = ╱4f╱O╱ // 0x87a @0x5
0x0875…088e at0006 = ╱50╱P╱ // 0x87b @0x6
0x0875…088e at0007 = ╱45╱E╱ // 0x87c @0x7
0x0875…088e at0008 = ╱4e╱N╱ // 0x87d @0x8
0x0875…088e at0009 = ╱46╱F╱ // 0x87e @0x9
0x0875…088e at000a = ╱49╱I╱ // 0x87f @0xa
0x0875…088e at000b = ╱4c╱L╱ // 0x880 @0xb
0x0875…088e at000c = ╱ed╱ ( ╱ // 0x881 @0xc
0x0875…088e at000d = ╱50╱P╱ // 0x882 @0xd
0x0875…088e at000e = ╱41╱A╱ // 0x883 @0xe
0x0875…088e at000f = ╱52╱R╱ // 0x884 @0xf
0x0875…088e at0010 = ╱41╱A╱ // 0x885 @0x10
0x0875…088e at0011 = ╱4d╱M╱ // 0x886 @0x11
0x0875…088e at0012 = ╱ef╱ $ ╱ // 0x887 @0x12
0x0875…088e at0013 = ╱ec╱ , ╱ // 0x888 @0x13
0x0875…088e at0014 = ╱22╱"╱ // 0x889 @0x14
0x0875…088e at0015 = ╱52╱R╱ // 0x88a @0x15
0x0875…088e at0016 = ╱22╱"╱ // 0x88b @0x16
0x0875…088e at0017 = ╱ee╱ ) ╱ // 0x88c @0x17
0x0875…088e at0018 = EOL // 0x88d @0x18
0x0875…088e }
0x088e…08b9 9ea7 00750 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x088e…08b9 LineComal80 {
0x088e…08b9 ptr = 0x9ea7 // 0x88e @0x0
0x088e…08b9 lno = 0x02ee // 0x890 @0x2
0x088e…08b9 at0004 = ╱a9╱ GET ╱ // 0x892 @0x4
0x088e…08b9 at0005 = ╱50╱P╱ // 0x893 @0x5
0x088e…08b9 at0006 = ╱41╱A╱ // 0x894 @0x6
0x088e…08b9 at0007 = ╱52╱R╱ // 0x895 @0x7
0x088e…08b9 at0008 = ╱41╱A╱ // 0x896 @0x8
0x088e…08b9 at0009 = ╱4d╱M╱ // 0x897 @0x9
0x088e…08b9 at000a = ╱ef╱ $ ╱ // 0x898 @0xa
0x088e…08b9 at000b = ╱ec╱ , ╱ // 0x899 @0xb
0x088e…08b9 at000c = ╱31╱1╱ // 0x89a @0xc
0x088e…08b9 at000d = ╱f20100╱ // 0x89b @0xd
0x088e…08b9 at0010 = ╱f1╱ : ╱ // 0x89e @0x10
0x088e…08b9 at0011 = ╱46╱F╱ // 0x89f @0x11
0x088e…08b9 at0012 = ╱49╱I╱ // 0x8a0 @0x12
0x088e…08b9 at0013 = ╱52╱R╱ // 0x8a1 @0x13
0x088e…08b9 at0014 = ╱4d╱M╱ // 0x8a2 @0x14
0x088e…08b9 at0015 = ╱41╱A╱ // 0x8a3 @0x15
0x088e…08b9 at0016 = ╱4e╱N╱ // 0x8a4 @0x16
0x088e…08b9 at0017 = ╱41╱A╱ // 0x8a5 @0x17
0x088e…08b9 at0018 = ╱56╱V╱ // 0x8a6 @0x18
0x088e…08b9 at0019 = ╱4e╱N╱ // 0x8a7 @0x19
0x088e…08b9 at001a = ╱ef╱ $ ╱ // 0x8a8 @0x1a
0x088e…08b9 at001b = ╱ec╱ , ╱ // 0x8a9 @0x1b
0x088e…08b9 at001c = ╱53╱S╱ // 0x8aa @0x1c
0x088e…08b9 at001d = ╱59╱Y╱ // 0x8ab @0x1d
0x088e…08b9 at001e = ╱53╱S╱ // 0x8ac @0x1e
0x088e…08b9 at001f = ╱54╱T╱ // 0x8ad @0x1f
0x088e…08b9 at0020 = ╱5f╱_╱ // 0x8ae @0x20
0x088e…08b9 at0021 = ╱44╱D╱ // 0x8af @0x21
0x088e…08b9 at0022 = ╱41╱A╱ // 0x8b0 @0x22
0x088e…08b9 at0023 = ╱54╱T╱ // 0x8b1 @0x23
0x088e…08b9 at0024 = ╱ef╱ $ ╱ // 0x8b2 @0x24
0x088e…08b9 at0025 = ╱ec╱ , ╱ // 0x8b3 @0x25
0x088e…08b9 at0026 = ╱4d╱M╱ // 0x8b4 @0x26
0x088e…08b9 at0027 = ╱4f╱O╱ // 0x8b5 @0x27
0x088e…08b9 at0028 = ╱4d╱M╱ // 0x8b6 @0x28
0x088e…08b9 at0029 = ╱53╱S╱ // 0x8b7 @0x29
0x088e…08b9 at002a = EOL // 0x8b8 @0x2a
0x088e…08b9 }
0x08b9…08c5 (29,) 9eb3 00760 CLOSE PARAM $
0x08b9…08c5 LineComal80 {
0x08b9…08c5 ptr = 0x9eb3 // 0x8b9 @0x0
0x08b9…08c5 lno = 0x02f8 // 0x8bb @0x2
0x08b9…08c5 at0004 = ╱a8╱ CLOSE ╱ // 0x8bd @0x4
0x08b9…08c5 at0005 = ╱50╱P╱ // 0x8be @0x5
0x08b9…08c5 at0006 = ╱41╱A╱ // 0x8bf @0x6
0x08b9…08c5 at0007 = ╱52╱R╱ // 0x8c0 @0x7
0x08b9…08c5 at0008 = ╱41╱A╱ // 0x8c1 @0x8
0x08b9…08c5 at0009 = ╱4d╱M╱ // 0x8c2 @0x9
0x08b9…08c5 at000a = ╱ef╱ $ ╱ // 0x8c3 @0xa
0x08b9…08c5 at000b = EOL // 0x8c4 @0xb
0x08b9…08c5 }
0x08c5…08f7 9ee5 00770 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x08c5…08f7 LineComal80 {
0x08c5…08f7 ptr = 0x9ee5 // 0x8c5 @0x0
0x08c5…08f7 lno = 0x0302 // 0x8c7 @0x2
0x08c5…08f7 at0004 = ╱86╱ LET ╱ // 0x8c9 @0x4
0x08c5…08f7 at0005 = ╱4b╱K╱ // 0x8ca @0x5
0x08c5…08f7 at0006 = ╱54╱T╱ // 0x8cb @0x6
0x08c5…08f7 at0007 = ╱4f╱O╱ // 0x8cc @0x7
0x08c5…08f7 at0008 = ╱49╱I╱ // 0x8cd @0x8
0x08c5…08f7 at0009 = ╱44╱D╱ // 0x8ce @0x9
0x08c5…08f7 at000a = ╱58╱X╱ // 0x8cf @0xa
0x08c5…08f7 at000b = ╱ef╱ $ ╱ // 0x8d0 @0xb
0x08c5…08f7 at000c = ╱f0╱ := ╱ // 0x8d1 @0xc
0x08c5…08f7 at000d = ╱44╱D╱ // 0x8d2 @0xd
0x08c5…08f7 at000e = ╱41╱A╱ // 0x8d3 @0xe
0x08c5…08f7 at000f = ╱54╱T╱ // 0x8d4 @0xf
0x08c5…08f7 at0010 = ╱41╱A╱ // 0x8d5 @0x10
0x08c5…08f7 at0011 = ╱46╱F╱ // 0x8d6 @0x11
0x08c5…08f7 at0012 = ╱4c╱L╱ // 0x8d7 @0x12
0x08c5…08f7 at0013 = ╱ef╱ $ ╱ // 0x8d8 @0x13
0x08c5…08f7 at0014 = ╱eb╱ + ╱ // 0x8d9 @0x14
0x08c5…08f7 at0015 = ╱22╱"╱ // 0x8da @0x15
0x08c5…08f7 at0016 = ╱3a╱:╱ // 0x8db @0x16
0x08c5…08f7 at0017 = ╱22╱"╱ // 0x8dc @0x17
0x08c5…08f7 at0018 = ╱eb╱ + ╱ // 0x8dd @0x18
0x08c5…08f7 at0019 = ╱53╱S╱ // 0x8de @0x19
0x08c5…08f7 at001a = ╱5f╱_╱ // 0x8df @0x1a
0x08c5…08f7 at001b = ╱4b╱K╱ // 0x8e0 @0x1b
0x08c5…08f7 at001c = ╱4f╱O╱ // 0x8e1 @0x1c
0x08c5…08f7 at001d = ╱44╱D╱ // 0x8e2 @0x1d
0x08c5…08f7 at001e = ╱45╱E╱ // 0x8e3 @0x1e
0x08c5…08f7 at001f = ╱ef╱ $ ╱ // 0x8e4 @0x1f
0x08c5…08f7 at0020 = ╱eb╱ + ╱ // 0x8e5 @0x20
0x08c5…08f7 at0021 = ╱54╱T╱ // 0x8e6 @0x21
0x08c5…08f7 at0022 = ╱5f╱_╱ // 0x8e7 @0x22
0x08c5…08f7 at0023 = ╱4b╱K╱ // 0x8e8 @0x23
0x08c5…08f7 at0024 = ╱4f╱O╱ // 0x8e9 @0x24
0x08c5…08f7 at0025 = ╱44╱D╱ // 0x8ea @0x25
0x08c5…08f7 at0026 = ╱45╱E╱ // 0x8eb @0x26
0x08c5…08f7 at0027 = ╱ef╱ $ ╱ // 0x8ec @0x27
0x08c5…08f7 at0028 = ╱eb╱ + ╱ // 0x8ed @0x28
0x08c5…08f7 at0029 = ╱22╱"╱ // 0x8ee @0x29
0x08c5…08f7 at002a = ╱4b╱K╱ // 0x8ef @0x2a
0x08c5…08f7 at002b = ╱54╱T╱ // 0x8f0 @0x2b
0x08c5…08f7 at002c = ╱4f╱O╱ // 0x8f1 @0x2c
0x08c5…08f7 at002d = ╱49╱I╱ // 0x8f2 @0x2d
0x08c5…08f7 at002e = ╱44╱D╱ // 0x8f3 @0x2e
0x08c5…08f7 at002f = ╱58╱X╱ // 0x8f4 @0x2f
0x08c5…08f7 at0030 = ╱22╱"╱ // 0x8f5 @0x30
0x08c5…08f7 at0031 = EOL // 0x8f6 @0x31
0x08c5…08f7 }
0x08f7…0927 9f15 00780 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
0x08f7…0927 LineComal80 {
0x08f7…0927 ptr = 0x9f15 // 0x8f7 @0x0
0x08f7…0927 lno = 0x030c // 0x8f9 @0x2
0x08f7…0927 at0004 = ╱86╱ LET ╱ // 0x8fb @0x4
0x08f7…0927 at0005 = ╱4b╱K╱ // 0x8fc @0x5
0x08f7…0927 at0006 = ╱4f╱O╱ // 0x8fd @0x6
0x08f7…0927 at0007 = ╱4e╱N╱ // 0x8fe @0x7
0x08f7…0927 at0008 = ╱54╱T╱ // 0x8ff @0x8
0x08f7…0927 at0009 = ╱4f╱O╱ // 0x900 @0x9
0x08f7…0927 at000a = ╱ef╱ $ ╱ // 0x901 @0xa
0x08f7…0927 at000b = ╱f0╱ := ╱ // 0x902 @0xb
0x08f7…0927 at000c = ╱44╱D╱ // 0x903 @0xc
0x08f7…0927 at000d = ╱41╱A╱ // 0x904 @0xd
0x08f7…0927 at000e = ╱54╱T╱ // 0x905 @0xe
0x08f7…0927 at000f = ╱41╱A╱ // 0x906 @0xf
0x08f7…0927 at0010 = ╱46╱F╱ // 0x907 @0x10
0x08f7…0927 at0011 = ╱4c╱L╱ // 0x908 @0x11
0x08f7…0927 at0012 = ╱ef╱ $ ╱ // 0x909 @0x12
0x08f7…0927 at0013 = ╱eb╱ + ╱ // 0x90a @0x13
0x08f7…0927 at0014 = ╱22╱"╱ // 0x90b @0x14
0x08f7…0927 at0015 = ╱3a╱:╱ // 0x90c @0x15
0x08f7…0927 at0016 = ╱22╱"╱ // 0x90d @0x16
0x08f7…0927 at0017 = ╱eb╱ + ╱ // 0x90e @0x17
0x08f7…0927 at0018 = ╱53╱S╱ // 0x90f @0x18
0x08f7…0927 at0019 = ╱5f╱_╱ // 0x910 @0x19
0x08f7…0927 at001a = ╱4b╱K╱ // 0x911 @0x1a
0x08f7…0927 at001b = ╱4f╱O╱ // 0x912 @0x1b
0x08f7…0927 at001c = ╱44╱D╱ // 0x913 @0x1c
0x08f7…0927 at001d = ╱45╱E╱ // 0x914 @0x1d
0x08f7…0927 at001e = ╱ef╱ $ ╱ // 0x915 @0x1e
0x08f7…0927 at001f = ╱eb╱ + ╱ // 0x916 @0x1f
0x08f7…0927 at0020 = ╱54╱T╱ // 0x917 @0x20
0x08f7…0927 at0021 = ╱5f╱_╱ // 0x918 @0x21
0x08f7…0927 at0022 = ╱4b╱K╱ // 0x919 @0x22
0x08f7…0927 at0023 = ╱4f╱O╱ // 0x91a @0x23
0x08f7…0927 at0024 = ╱44╱D╱ // 0x91b @0x24
0x08f7…0927 at0025 = ╱45╱E╱ // 0x91c @0x25
0x08f7…0927 at0026 = ╱ef╱ $ ╱ // 0x91d @0x26
0x08f7…0927 at0027 = ╱eb╱ + ╱ // 0x91e @0x27
0x08f7…0927 at0028 = ╱22╱"╱ // 0x91f @0x28
0x08f7…0927 at0029 = ╱4b╱K╱ // 0x920 @0x29
0x08f7…0927 at002a = ╱4f╱O╱ // 0x921 @0x2a
0x08f7…0927 at002b = ╱4e╱N╱ // 0x922 @0x2b
0x08f7…0927 at002c = ╱54╱T╱ // 0x923 @0x2c
0x08f7…0927 at002d = ╱4f╱O╱ // 0x924 @0x2d
0x08f7…0927 at002e = ╱22╱"╱ // 0x925 @0x2e
0x08f7…0927 at002f = EOL // 0x926 @0x2f
0x08f7…0927 }
0x0927…0941 9f2f 00790 EXEC OPENFIL ( KTOIDX $ , "W" )
0x0927…0941 LineComal80 {
0x0927…0941 ptr = 0x9f2f // 0x927 @0x0
0x0927…0941 lno = 0x0316 // 0x929 @0x2
0x0927…0941 at0004 = ╱9d╱ EXEC ╱ // 0x92b @0x4
0x0927…0941 at0005 = ╱4f╱O╱ // 0x92c @0x5
0x0927…0941 at0006 = ╱50╱P╱ // 0x92d @0x6
0x0927…0941 at0007 = ╱45╱E╱ // 0x92e @0x7
0x0927…0941 at0008 = ╱4e╱N╱ // 0x92f @0x8
0x0927…0941 at0009 = ╱46╱F╱ // 0x930 @0x9
0x0927…0941 at000a = ╱49╱I╱ // 0x931 @0xa
0x0927…0941 at000b = ╱4c╱L╱ // 0x932 @0xb
0x0927…0941 at000c = ╱ed╱ ( ╱ // 0x933 @0xc
0x0927…0941 at000d = ╱4b╱K╱ // 0x934 @0xd
0x0927…0941 at000e = ╱54╱T╱ // 0x935 @0xe
0x0927…0941 at000f = ╱4f╱O╱ // 0x936 @0xf
0x0927…0941 at0010 = ╱49╱I╱ // 0x937 @0x10
0x0927…0941 at0011 = ╱44╱D╱ // 0x938 @0x11
0x0927…0941 at0012 = ╱58╱X╱ // 0x939 @0x12
0x0927…0941 at0013 = ╱ef╱ $ ╱ // 0x93a @0x13
0x0927…0941 at0014 = ╱ec╱ , ╱ // 0x93b @0x14
0x0927…0941 at0015 = ╱22╱"╱ // 0x93c @0x15
0x0927…0941 at0016 = ╱57╱W╱ // 0x93d @0x16
0x0927…0941 at0017 = ╱22╱"╱ // 0x93e @0x17
0x0927…0941 at0018 = ╱ee╱ ) ╱ // 0x93f @0x18
0x0927…0941 at0019 = EOL // 0x940 @0x19
0x0927…0941 }
0x0941…095a 9f48 00800 EXEC OPENFIL ( KONTO $ , "W" )
0x0941…095a LineComal80 {
0x0941…095a ptr = 0x9f48 // 0x941 @0x0
0x0941…095a lno = 0x0320 // 0x943 @0x2
0x0941…095a at0004 = ╱9d╱ EXEC ╱ // 0x945 @0x4
0x0941…095a at0005 = ╱4f╱O╱ // 0x946 @0x5
0x0941…095a at0006 = ╱50╱P╱ // 0x947 @0x6
0x0941…095a at0007 = ╱45╱E╱ // 0x948 @0x7
0x0941…095a at0008 = ╱4e╱N╱ // 0x949 @0x8
0x0941…095a at0009 = ╱46╱F╱ // 0x94a @0x9
0x0941…095a at000a = ╱49╱I╱ // 0x94b @0xa
0x0941…095a at000b = ╱4c╱L╱ // 0x94c @0xb
0x0941…095a at000c = ╱ed╱ ( ╱ // 0x94d @0xc
0x0941…095a at000d = ╱4b╱K╱ // 0x94e @0xd
0x0941…095a at000e = ╱4f╱O╱ // 0x94f @0xe
0x0941…095a at000f = ╱4e╱N╱ // 0x950 @0xf
0x0941…095a at0010 = ╱54╱T╱ // 0x951 @0x10
0x0941…095a at0011 = ╱4f╱O╱ // 0x952 @0x11
0x0941…095a at0012 = ╱ef╱ $ ╱ // 0x953 @0x12
0x0941…095a at0013 = ╱ec╱ , ╱ // 0x954 @0x13
0x0941…095a at0014 = ╱22╱"╱ // 0x955 @0x14
0x0941…095a at0015 = ╱57╱W╱ // 0x956 @0x15
0x0941…095a at0016 = ╱22╱"╱ // 0x957 @0x16
0x0941…095a at0017 = ╱ee╱ ) ╱ // 0x958 @0x17
0x0941…095a at0018 = EOL // 0x959 @0x18
0x0941…095a }
0x095a…0967 9f55 00810 ENDPROC INITIER
0x095a…0967 LineComal80 {
0x095a…0967 ptr = 0x9f55 // 0x95a @0x0
0x095a…0967 lno = 0x032a // 0x95c @0x2
0x095a…0967 at0004 = ╱9f╱ ENDPROC ╱ // 0x95e @0x4
0x095a…0967 at0005 = ╱49╱I╱ // 0x95f @0x5
0x095a…0967 at0006 = ╱4e╱N╱ // 0x960 @0x6
0x095a…0967 at0007 = ╱49╱I╱ // 0x961 @0x7
0x095a…0967 at0008 = ╱54╱T╱ // 0x962 @0x8
0x095a…0967 at0009 = ╱49╱I╱ // 0x963 @0x9
0x095a…0967 at000a = ╱45╱E╱ // 0x964 @0xa
0x095a…0967 at000b = ╱52╱R╱ // 0x965 @0xb
0x095a…0967 at000c = EOL // 0x966 @0xc
0x095a…0967 }
0x0967…096c 9f5a 00820
0x0967…096c LineComal80 {
0x0967…096c ptr = 0x9f5a // 0x967 @0x0
0x0967…096c lno = 0x0334 // 0x969 @0x2
0x0967…096c at0004 = EOL // 0x96b @0x4
0x0967…096c }
0x096c…0980 9f6e 00830 PROC FUNKTIONSMENU
0x096c…0980 LineComal80 {
0x096c…0980 ptr = 0x9f6e // 0x96c @0x0
0x096c…0980 lno = 0x033e // 0x96e @0x2
0x096c…0980 at0004 = ╱9e03╱ PROC ╱ // 0x970 @0x4
0x096c…0980 at0006 = ╱46╱F╱ // 0x972 @0x6
0x096c…0980 at0007 = ╱55╱U╱ // 0x973 @0x7
0x096c…0980 at0008 = ╱4e╱N╱ // 0x974 @0x8
0x096c…0980 at0009 = ╱4b╱K╱ // 0x975 @0x9
0x096c…0980 at000a = ╱54╱T╱ // 0x976 @0xa
0x096c…0980 at000b = ╱49╱I╱ // 0x977 @0xb
0x096c…0980 at000c = ╱4f╱O╱ // 0x978 @0xc
0x096c…0980 at000d = ╱4e╱N╱ // 0x979 @0xd
0x096c…0980 at000e = ╱53╱S╱ // 0x97a @0xe
0x096c…0980 at000f = ╱4d╱M╱ // 0x97b @0xf
0x096c…0980 at0010 = ╱45╱E╱ // 0x97c @0x10
0x096c…0980 at0011 = ╱4e╱N╱ // 0x97d @0x11
0x096c…0980 at0012 = ╱55╱U╱ // 0x97e @0x12
0x096c…0980 at0013 = EOL // 0x97f @0x13
0x096c…0980 }
0x0980…0987 9f75 00840 REPEAT
0x0980…0987 LineComal80 {
0x0980…0987 ptr = 0x9f75 // 0x980 @0x0
0x0980…0987 lno = 0x0348 // 0x982 @0x2
0x0980…0987 at0004 = ╱9704╱ REPEAT ╱ // 0x984 @0x4
0x0980…0987 at0006 = EOL // 0x986 @0x6
0x0980…0987 }
0x0987…09af 9f9d 00850 EXEC OVERSKRIFT ( "Kontofunktioner" , 6 )
0x0987…09af LineComal80 {
0x0987…09af ptr = 0x9f9d // 0x987 @0x0
0x0987…09af lno = 0x0352 // 0x989 @0x2
0x0987…09af at0004 = ╱9d╱ EXEC ╱ // 0x98b @0x4
0x0987…09af at0005 = ╱4f╱O╱ // 0x98c @0x5
0x0987…09af at0006 = ╱56╱V╱ // 0x98d @0x6
0x0987…09af at0007 = ╱45╱E╱ // 0x98e @0x7
0x0987…09af at0008 = ╱52╱R╱ // 0x98f @0x8
0x0987…09af at0009 = ╱53╱S╱ // 0x990 @0x9
0x0987…09af at000a = ╱4b╱K╱ // 0x991 @0xa
0x0987…09af at000b = ╱52╱R╱ // 0x992 @0xb
0x0987…09af at000c = ╱49╱I╱ // 0x993 @0xc
0x0987…09af at000d = ╱46╱F╱ // 0x994 @0xd
0x0987…09af at000e = ╱54╱T╱ // 0x995 @0xe
0x0987…09af at000f = ╱ed╱ ( ╱ // 0x996 @0xf
0x0987…09af at0010 = ╱22╱"╱ // 0x997 @0x10
0x0987…09af at0011 = ╱4b╱K╱ // 0x998 @0x11
0x0987…09af at0012 = ╱6f╱o╱ // 0x999 @0x12
0x0987…09af at0013 = ╱6e╱n╱ // 0x99a @0x13
0x0987…09af at0014 = ╱74╱t╱ // 0x99b @0x14
0x0987…09af at0015 = ╱6f╱o╱ // 0x99c @0x15
0x0987…09af at0016 = ╱66╱f╱ // 0x99d @0x16
0x0987…09af at0017 = ╱75╱u╱ // 0x99e @0x17
0x0987…09af at0018 = ╱6e╱n╱ // 0x99f @0x18
0x0987…09af at0019 = ╱6b╱k╱ // 0x9a0 @0x19
0x0987…09af at001a = ╱74╱t╱ // 0x9a1 @0x1a
0x0987…09af at001b = ╱69╱i╱ // 0x9a2 @0x1b
0x0987…09af at001c = ╱6f╱o╱ // 0x9a3 @0x1c
0x0987…09af at001d = ╱6e╱n╱ // 0x9a4 @0x1d
0x0987…09af at001e = ╱65╱e╱ // 0x9a5 @0x1e
0x0987…09af at001f = ╱72╱r╱ // 0x9a6 @0x1f
0x0987…09af at0020 = ╱22╱"╱ // 0x9a7 @0x20
0x0987…09af at0021 = ╱ec╱ , ╱ // 0x9a8 @0x21
0x0987…09af at0022 = ╱36╱6╱ // 0x9a9 @0x22
0x0987…09af at0023 = ╱f20600╱ // 0x9aa @0x23
0x0987…09af at0026 = ╱ee╱ ) ╱ // 0x9ad @0x26
0x0987…09af at0027 = EOL // 0x9ae @0x27
0x0987…09af }
0x09af…09de 9fcc 00860 PRINT "<C2309>Opret/ret…konti………………………………………OK"
0x09af…09de LineComal80 {
0x09af…09de ptr = 0x9fcc // 0x9af @0x0
0x09af…09de lno = 0x035c // 0x9b1 @0x2
0x09af…09de at0004 = ╱92╱ PRINT ╱ // 0x9b3 @0x4
0x09af…09de at0005 = ╱22╱"╱ // 0x9b4 @0x5
0x09af…09de at0006 = ╱3c╱<╱ // 0x9b5 @0x6
0x09af…09de at0007 = ╱43╱C╱ // 0x9b6 @0x7
0x09af…09de at0008 = ╱32╱2╱ // 0x9b7 @0x8
0x09af…09de at0009 = ╱33╱3╱ // 0x9b8 @0x9
0x09af…09de at000a = ╱30╱0╱ // 0x9b9 @0xa
0x09af…09de at000b = ╱39╱9╱ // 0x9ba @0xb
0x09af…09de at000c = ╱3e╱>╱ // 0x9bb @0xc
0x09af…09de at000d = ╱4f╱O╱ // 0x9bc @0xd
0x09af…09de at000e = ╱70╱p╱ // 0x9bd @0xe
0x09af…09de at000f = ╱72╱r╱ // 0x9be @0xf
0x09af…09de at0010 = ╱65╱e╱ // 0x9bf @0x10
0x09af…09de at0011 = ╱74╱t╱ // 0x9c0 @0x11
0x09af…09de at0012 = ╱2f╱/╱ // 0x9c1 @0x12
0x09af…09de at0013 = ╱72╱r╱ // 0x9c2 @0x13
0x09af…09de at0014 = ╱65╱e╱ // 0x9c3 @0x14
0x09af…09de at0015 = ╱74╱t╱ // 0x9c4 @0x15
0x09af…09de at0016 = ╱20╱…╱ // 0x9c5 @0x16
0x09af…09de at0017 = ╱6b╱k╱ // 0x9c6 @0x17
0x09af…09de at0018 = ╱6f╱o╱ // 0x9c7 @0x18
0x09af…09de at0019 = ╱6e╱n╱ // 0x9c8 @0x19
0x09af…09de at001a = ╱74╱t╱ // 0x9c9 @0x1a
0x09af…09de at001b = ╱69╱i╱ // 0x9ca @0x1b
0x09af…09de at001c = ╱20╱…╱ // 0x9cb @0x1c
0x09af…09de at001d = ╱20╱…╱ // 0x9cc @0x1d
0x09af…09de at001e = ╱20╱…╱ // 0x9cd @0x1e
0x09af…09de at001f = ╱20╱…╱ // 0x9ce @0x1f
0x09af…09de at0020 = ╱20╱…╱ // 0x9cf @0x20
0x09af…09de at0021 = ╱20╱…╱ // 0x9d0 @0x21
0x09af…09de at0022 = ╱20╱…╱ // 0x9d1 @0x22
0x09af…09de at0023 = ╱20╱…╱ // 0x9d2 @0x23
0x09af…09de at0024 = ╱20╱…╱ // 0x9d3 @0x24
0x09af…09de at0025 = ╱20╱…╱ // 0x9d4 @0x25
0x09af…09de at0026 = ╱20╱…╱ // 0x9d5 @0x26
0x09af…09de at0027 = ╱20╱…╱ // 0x9d6 @0x27
0x09af…09de at0028 = ╱20╱…╱ // 0x9d7 @0x28
0x09af…09de at0029 = ╱20╱…╱ // 0x9d8 @0x29
0x09af…09de at002a = ╱20╱…╱ // 0x9d9 @0x2a
0x09af…09de at002b = ╱4f╱O╱ // 0x9da @0x2b
0x09af…09de at002c = ╱4b╱K╱ // 0x9db @0x2c
0x09af…09de at002d = ╱22╱"╱ // 0x9dc @0x2d
0x09af…09de at002e = EOL // 0x9dd @0x2e
0x09af…09de }
0x09de…0a0d 9ffb 00870 PRINT "<C2311>Slet…konti……………………………………………………SK"
0x09de…0a0d LineComal80 {
0x09de…0a0d ptr = 0x9ffb // 0x9de @0x0
0x09de…0a0d lno = 0x0366 // 0x9e0 @0x2
0x09de…0a0d at0004 = ╱92╱ PRINT ╱ // 0x9e2 @0x4
0x09de…0a0d at0005 = ╱22╱"╱ // 0x9e3 @0x5
0x09de…0a0d at0006 = ╱3c╱<╱ // 0x9e4 @0x6
0x09de…0a0d at0007 = ╱43╱C╱ // 0x9e5 @0x7
0x09de…0a0d at0008 = ╱32╱2╱ // 0x9e6 @0x8
0x09de…0a0d at0009 = ╱33╱3╱ // 0x9e7 @0x9
0x09de…0a0d at000a = ╱31╱1╱ // 0x9e8 @0xa
0x09de…0a0d at000b = ╱31╱1╱ // 0x9e9 @0xb
0x09de…0a0d at000c = ╱3e╱>╱ // 0x9ea @0xc
0x09de…0a0d at000d = ╱53╱S╱ // 0x9eb @0xd
0x09de…0a0d at000e = ╱6c╱l╱ // 0x9ec @0xe
0x09de…0a0d at000f = ╱65╱e╱ // 0x9ed @0xf
0x09de…0a0d at0010 = ╱74╱t╱ // 0x9ee @0x10
0x09de…0a0d at0011 = ╱20╱…╱ // 0x9ef @0x11
0x09de…0a0d at0012 = ╱6b╱k╱ // 0x9f0 @0x12
0x09de…0a0d at0013 = ╱6f╱o╱ // 0x9f1 @0x13
0x09de…0a0d at0014 = ╱6e╱n╱ // 0x9f2 @0x14
0x09de…0a0d at0015 = ╱74╱t╱ // 0x9f3 @0x15
0x09de…0a0d at0016 = ╱69╱i╱ // 0x9f4 @0x16
0x09de…0a0d at0017 = ╱20╱…╱ // 0x9f5 @0x17
0x09de…0a0d at0018 = ╱20╱…╱ // 0x9f6 @0x18
0x09de…0a0d at0019 = ╱20╱…╱ // 0x9f7 @0x19
0x09de…0a0d at001a = ╱20╱…╱ // 0x9f8 @0x1a
0x09de…0a0d at001b = ╱20╱…╱ // 0x9f9 @0x1b
0x09de…0a0d at001c = ╱20╱…╱ // 0x9fa @0x1c
0x09de…0a0d at001d = ╱20╱…╱ // 0x9fb @0x1d
0x09de…0a0d at001e = ╱20╱…╱ // 0x9fc @0x1e
0x09de…0a0d at001f = ╱20╱…╱ // 0x9fd @0x1f
0x09de…0a0d at0020 = ╱20╱…╱ // 0x9fe @0x20
0x09de…0a0d at0021 = ╱20╱…╱ // 0x9ff @0x21
0x09de…0a0d at0022 = ╱20╱…╱ // 0xa00 @0x22
0x09de…0a0d at0023 = ╱20╱…╱ // 0xa01 @0x23
0x09de…0a0d at0024 = ╱20╱…╱ // 0xa02 @0x24
0x09de…0a0d at0025 = ╱20╱…╱ // 0xa03 @0x25
0x09de…0a0d at0026 = ╱20╱…╱ // 0xa04 @0x26
0x09de…0a0d at0027 = ╱20╱…╱ // 0xa05 @0x27
0x09de…0a0d at0028 = ╱20╱…╱ // 0xa06 @0x28
0x09de…0a0d at0029 = ╱20╱…╱ // 0xa07 @0x29
0x09de…0a0d at002a = ╱20╱…╱ // 0xa08 @0x2a
0x09de…0a0d at002b = ╱53╱S╱ // 0xa09 @0x2b
0x09de…0a0d at002c = ╱4b╱K╱ // 0xa0a @0x2c
0x09de…0a0d at002d = ╱22╱"╱ // 0xa0b @0x2d
0x09de…0a0d at002e = EOL // 0xa0c @0x2e
0x09de…0a0d }
0x0a0d…0a3e a02c 00880 PRINT "<C2314>Programfordeler…………………………………RETURN"
0x0a0d…0a3e LineComal80 {
0x0a0d…0a3e ptr = 0xa02c // 0xa0d @0x0
0x0a0d…0a3e lno = 0x0370 // 0xa0f @0x2
0x0a0d…0a3e at0004 = ╱92╱ PRINT ╱ // 0xa11 @0x4
0x0a0d…0a3e at0005 = ╱22╱"╱ // 0xa12 @0x5
0x0a0d…0a3e at0006 = ╱3c╱<╱ // 0xa13 @0x6
0x0a0d…0a3e at0007 = ╱43╱C╱ // 0xa14 @0x7
0x0a0d…0a3e at0008 = ╱32╱2╱ // 0xa15 @0x8
0x0a0d…0a3e at0009 = ╱33╱3╱ // 0xa16 @0x9
0x0a0d…0a3e at000a = ╱31╱1╱ // 0xa17 @0xa
0x0a0d…0a3e at000b = ╱34╱4╱ // 0xa18 @0xb
0x0a0d…0a3e at000c = ╱3e╱>╱ // 0xa19 @0xc
0x0a0d…0a3e at000d = ╱50╱P╱ // 0xa1a @0xd
0x0a0d…0a3e at000e = ╱72╱r╱ // 0xa1b @0xe
0x0a0d…0a3e at000f = ╱6f╱o╱ // 0xa1c @0xf
0x0a0d…0a3e at0010 = ╱67╱g╱ // 0xa1d @0x10
0x0a0d…0a3e at0011 = ╱72╱r╱ // 0xa1e @0x11
0x0a0d…0a3e at0012 = ╱61╱a╱ // 0xa1f @0x12
0x0a0d…0a3e at0013 = ╱6d╱m╱ // 0xa20 @0x13
0x0a0d…0a3e at0014 = ╱66╱f╱ // 0xa21 @0x14
0x0a0d…0a3e at0015 = ╱6f╱o╱ // 0xa22 @0x15
0x0a0d…0a3e at0016 = ╱72╱r╱ // 0xa23 @0x16
0x0a0d…0a3e at0017 = ╱64╱d╱ // 0xa24 @0x17
0x0a0d…0a3e at0018 = ╱65╱e╱ // 0xa25 @0x18
0x0a0d…0a3e at0019 = ╱6c╱l╱ // 0xa26 @0x19
0x0a0d…0a3e at001a = ╱65╱e╱ // 0xa27 @0x1a
0x0a0d…0a3e at001b = ╱72╱r╱ // 0xa28 @0x1b
0x0a0d…0a3e at001c = ╱20╱…╱ // 0xa29 @0x1c
0x0a0d…0a3e at001d = ╱20╱…╱ // 0xa2a @0x1d
0x0a0d…0a3e at001e = ╱20╱…╱ // 0xa2b @0x1e
0x0a0d…0a3e at001f = ╱20╱…╱ // 0xa2c @0x1f
0x0a0d…0a3e at0020 = ╱20╱…╱ // 0xa2d @0x20
0x0a0d…0a3e at0021 = ╱20╱…╱ // 0xa2e @0x21
0x0a0d…0a3e at0022 = ╱20╱…╱ // 0xa2f @0x22
0x0a0d…0a3e at0023 = ╱20╱…╱ // 0xa30 @0x23
0x0a0d…0a3e at0024 = ╱20╱…╱ // 0xa31 @0x24
0x0a0d…0a3e at0025 = ╱20╱…╱ // 0xa32 @0x25
0x0a0d…0a3e at0026 = ╱20╱…╱ // 0xa33 @0x26
0x0a0d…0a3e at0027 = ╱20╱…╱ // 0xa34 @0x27
0x0a0d…0a3e at0028 = ╱20╱…╱ // 0xa35 @0x28
0x0a0d…0a3e at0029 = ╱52╱R╱ // 0xa36 @0x29
0x0a0d…0a3e at002a = ╱45╱E╱ // 0xa37 @0x2a
0x0a0d…0a3e at002b = ╱54╱T╱ // 0xa38 @0x2b
0x0a0d…0a3e at002c = ╱55╱U╱ // 0xa39 @0x2c
0x0a0d…0a3e at002d = ╱52╱R╱ // 0xa3a @0x2d
0x0a0d…0a3e at002e = ╱4e╱N╱ // 0xa3b @0x2e
0x0a0d…0a3e at002f = ╱22╱"╱ // 0xa3c @0x2f
0x0a0d…0a3e at0030 = EOL // 0xa3d @0x30
0x0a0d…0a3e }
0x0a3e…0a4e a03c 00890 LET SVAR $ := "……"
0x0a3e…0a4e LineComal80 {
0x0a3e…0a4e ptr = 0xa03c // 0xa3e @0x0
0x0a3e…0a4e lno = 0x037a // 0xa40 @0x2
0x0a3e…0a4e at0004 = ╱86╱ LET ╱ // 0xa42 @0x4
0x0a3e…0a4e at0005 = ╱53╱S╱ // 0xa43 @0x5
0x0a3e…0a4e at0006 = ╱56╱V╱ // 0xa44 @0x6
0x0a3e…0a4e at0007 = ╱41╱A╱ // 0xa45 @0x7
0x0a3e…0a4e at0008 = ╱52╱R╱ // 0xa46 @0x8
0x0a3e…0a4e at0009 = ╱ef╱ $ ╱ // 0xa47 @0x9
0x0a3e…0a4e at000a = ╱f0╱ := ╱ // 0xa48 @0xa
0x0a3e…0a4e at000b = ╱22╱"╱ // 0xa49 @0xb
0x0a3e…0a4e at000c = ╱20╱…╱ // 0xa4a @0xc
0x0a3e…0a4e at000d = ╱20╱…╱ // 0xa4b @0xd
0x0a3e…0a4e at000e = ╱22╱"╱ // 0xa4c @0xe
0x0a3e…0a4e at000f = EOL // 0xa4d @0xf
0x0a3e…0a4e }
0x0a4e…0a55 a043 00900 REPEAT
0x0a4e…0a55 LineComal80 {
0x0a4e…0a55 ptr = 0xa043 // 0xa4e @0x0
0x0a4e…0a55 lno = 0x0384 // 0xa50 @0x2
0x0a4e…0a55 at0004 = ╱9705╱ REPEAT ╱ // 0xa52 @0x4
0x0a4e…0a55 at0006 = EOL // 0xa54 @0x6
0x0a4e…0a55 }
0x0a55…0a8c a07a 00910 EDIT "<C2617>Indtast…funktionskode:…" : SVAR $ ( 1 : 2 )
0x0a55…0a8c LineComal80 {
0x0a55…0a8c ptr = 0xa07a // 0xa55 @0x0
0x0a55…0a8c lno = 0x038e // 0xa57 @0x2
0x0a55…0a8c at0004 = ╱b1╱ EDIT ╱ // 0xa59 @0x4
0x0a55…0a8c at0005 = ╱22╱"╱ // 0xa5a @0x5
0x0a55…0a8c at0006 = ╱3c╱<╱ // 0xa5b @0x6
0x0a55…0a8c at0007 = ╱43╱C╱ // 0xa5c @0x7
0x0a55…0a8c at0008 = ╱32╱2╱ // 0xa5d @0x8
0x0a55…0a8c at0009 = ╱36╱6╱ // 0xa5e @0x9
0x0a55…0a8c at000a = ╱31╱1╱ // 0xa5f @0xa
0x0a55…0a8c at000b = ╱37╱7╱ // 0xa60 @0xb
0x0a55…0a8c at000c = ╱3e╱>╱ // 0xa61 @0xc
0x0a55…0a8c at000d = ╱49╱I╱ // 0xa62 @0xd
0x0a55…0a8c at000e = ╱6e╱n╱ // 0xa63 @0xe
0x0a55…0a8c at000f = ╱64╱d╱ // 0xa64 @0xf
0x0a55…0a8c at0010 = ╱74╱t╱ // 0xa65 @0x10
0x0a55…0a8c at0011 = ╱61╱a╱ // 0xa66 @0x11
0x0a55…0a8c at0012 = ╱73╱s╱ // 0xa67 @0x12
0x0a55…0a8c at0013 = ╱74╱t╱ // 0xa68 @0x13
0x0a55…0a8c at0014 = ╱20╱…╱ // 0xa69 @0x14
0x0a55…0a8c at0015 = ╱66╱f╱ // 0xa6a @0x15
0x0a55…0a8c at0016 = ╱75╱u╱ // 0xa6b @0x16
0x0a55…0a8c at0017 = ╱6e╱n╱ // 0xa6c @0x17
0x0a55…0a8c at0018 = ╱6b╱k╱ // 0xa6d @0x18
0x0a55…0a8c at0019 = ╱74╱t╱ // 0xa6e @0x19
0x0a55…0a8c at001a = ╱69╱i╱ // 0xa6f @0x1a
0x0a55…0a8c at001b = ╱6f╱o╱ // 0xa70 @0x1b
0x0a55…0a8c at001c = ╱6e╱n╱ // 0xa71 @0x1c
0x0a55…0a8c at001d = ╱73╱s╱ // 0xa72 @0x1d
0x0a55…0a8c at001e = ╱6b╱k╱ // 0xa73 @0x1e
0x0a55…0a8c at001f = ╱6f╱o╱ // 0xa74 @0x1f
0x0a55…0a8c at0020 = ╱64╱d╱ // 0xa75 @0x20
0x0a55…0a8c at0021 = ╱65╱e╱ // 0xa76 @0x21
0x0a55…0a8c at0022 = ╱3a╱:╱ // 0xa77 @0x22
0x0a55…0a8c at0023 = ╱20╱…╱ // 0xa78 @0x23
0x0a55…0a8c at0024 = ╱22╱"╱ // 0xa79 @0x24
0x0a55…0a8c at0025 = ╱f1╱ : ╱ // 0xa7a @0x25
0x0a55…0a8c at0026 = ╱53╱S╱ // 0xa7b @0x26
0x0a55…0a8c at0027 = ╱56╱V╱ // 0xa7c @0x27
0x0a55…0a8c at0028 = ╱41╱A╱ // 0xa7d @0x28
0x0a55…0a8c at0029 = ╱52╱R╱ // 0xa7e @0x29
0x0a55…0a8c at002a = ╱ef╱ $ ╱ // 0xa7f @0x2a
0x0a55…0a8c at002b = ╱ed╱ ( ╱ // 0xa80 @0x2b
0x0a55…0a8c at002c = ╱31╱1╱ // 0xa81 @0x2c
0x0a55…0a8c at002d = ╱f20100╱ // 0xa82 @0x2d
0x0a55…0a8c at0030 = ╱f1╱ : ╱ // 0xa85 @0x30
0x0a55…0a8c at0031 = ╱32╱2╱ // 0xa86 @0x31
0x0a55…0a8c at0032 = ╱f20200╱ // 0xa87 @0x32
0x0a55…0a8c at0035 = ╱ee╱ ) ╱ // 0xa8a @0x35
0x0a55…0a8c at0036 = EOL // 0xa8b @0x36
0x0a55…0a8c }
0x0a8c…0a9e a08c 00920 EXEC SL_FEJLLINIE
0x0a8c…0a9e LineComal80 {
0x0a8c…0a9e ptr = 0xa08c // 0xa8c @0x0
0x0a8c…0a9e lno = 0x0398 // 0xa8e @0x2
0x0a8c…0a9e at0004 = ╱9d╱ EXEC ╱ // 0xa90 @0x4
0x0a8c…0a9e at0005 = ╱53╱S╱ // 0xa91 @0x5
0x0a8c…0a9e at0006 = ╱4c╱L╱ // 0xa92 @0x6
0x0a8c…0a9e at0007 = ╱5f╱_╱ // 0xa93 @0x7
0x0a8c…0a9e at0008 = ╱46╱F╱ // 0xa94 @0x8
0x0a8c…0a9e at0009 = ╱45╱E╱ // 0xa95 @0x9
0x0a8c…0a9e at000a = ╱4a╱J╱ // 0xa96 @0xa
0x0a8c…0a9e at000b = ╱4c╱L╱ // 0xa97 @0xb
0x0a8c…0a9e at000c = ╱4c╱L╱ // 0xa98 @0xc
0x0a8c…0a9e at000d = ╱49╱I╱ // 0xa99 @0xd
0x0a8c…0a9e at000e = ╱4e╱N╱ // 0xa9a @0xe
0x0a8c…0a9e at000f = ╱49╱I╱ // 0xa9b @0xf
0x0a8c…0a9e at0010 = ╱45╱E╱ // 0xa9c @0x10
0x0a8c…0a9e at0011 = EOL // 0xa9d @0x11
0x0a8c…0a9e }
0x0a9e…0ac8 a0b6 00930 IF "/" + SVAR $ + "/" IN "/……/OK/ok/SK/sk//" THEN
0x0a9e…0ac8 LineComal80 {
0x0a9e…0ac8 ptr = 0xa0b6 // 0xa9e @0x0
0x0a9e…0ac8 lno = 0x03a2 // 0xaa0 @0x2
0x0a9e…0ac8 at0004 = ╱9b06d7╱ IF ╱ // 0xaa2 @0x4
0x0a9e…0ac8 at0007 = ╱22╱"╱ // 0xaa5 @0x7
0x0a9e…0ac8 at0008 = ╱2f╱/╱ // 0xaa6 @0x8
0x0a9e…0ac8 at0009 = ╱22╱"╱ // 0xaa7 @0x9
0x0a9e…0ac8 at000a = ╱eb╱ + ╱ // 0xaa8 @0xa
0x0a9e…0ac8 at000b = ╱53╱S╱ // 0xaa9 @0xb
0x0a9e…0ac8 at000c = ╱56╱V╱ // 0xaaa @0xc
0x0a9e…0ac8 at000d = ╱41╱A╱ // 0xaab @0xd
0x0a9e…0ac8 at000e = ╱52╱R╱ // 0xaac @0xe
0x0a9e…0ac8 at000f = ╱ef╱ $ ╱ // 0xaad @0xf
0x0a9e…0ac8 at0010 = ╱eb╱ + ╱ // 0xaae @0x10
0x0a9e…0ac8 at0011 = ╱22╱"╱ // 0xaaf @0x11
0x0a9e…0ac8 at0012 = ╱2f╱/╱ // 0xab0 @0x12
0x0a9e…0ac8 at0013 = ╱22╱"╱ // 0xab1 @0x13
0x0a9e…0ac8 at0014 = ╱dc╱ IN ╱ // 0xab2 @0x14
0x0a9e…0ac8 at0015 = ╱22╱"╱ // 0xab3 @0x15
0x0a9e…0ac8 at0016 = ╱2f╱/╱ // 0xab4 @0x16
0x0a9e…0ac8 at0017 = ╱20╱…╱ // 0xab5 @0x17
0x0a9e…0ac8 at0018 = ╱20╱…╱ // 0xab6 @0x18
0x0a9e…0ac8 at0019 = ╱2f╱/╱ // 0xab7 @0x19
0x0a9e…0ac8 at001a = ╱4f╱O╱ // 0xab8 @0x1a
0x0a9e…0ac8 at001b = ╱4b╱K╱ // 0xab9 @0x1b
0x0a9e…0ac8 at001c = ╱2f╱/╱ // 0xaba @0x1c
0x0a9e…0ac8 at001d = ╱6f╱o╱ // 0xabb @0x1d
0x0a9e…0ac8 at001e = ╱6b╱k╱ // 0xabc @0x1e
0x0a9e…0ac8 at001f = ╱2f╱/╱ // 0xabd @0x1f
0x0a9e…0ac8 at0020 = ╱53╱S╱ // 0xabe @0x20
0x0a9e…0ac8 at0021 = ╱4b╱K╱ // 0xabf @0x21
0x0a9e…0ac8 at0022 = ╱2f╱/╱ // 0xac0 @0x22
0x0a9e…0ac8 at0023 = ╱73╱s╱ // 0xac1 @0x23
0x0a9e…0ac8 at0024 = ╱6b╱k╱ // 0xac2 @0x24
0x0a9e…0ac8 at0025 = ╱2f╱/╱ // 0xac3 @0x25
0x0a9e…0ac8 at0026 = ╱2f╱/╱ // 0xac4 @0x26
0x0a9e…0ac8 at0027 = ╱22╱"╱ // 0xac5 @0x27
0x0a9e…0ac8 at0028 = ╱b5╱ THEN ╱ // 0xac6 @0x28
0x0a9e…0ac8 at0029 = EOL // 0xac7 @0x29
0x0a9e…0ac8 }
0x0ac8…0af8 a0e6 00940 EXEC FEJL ( "Ulovlig…funktionskode:…'" + SVAR $ + "'" )
0x0ac8…0af8 LineComal80 {
0x0ac8…0af8 ptr = 0xa0e6 // 0xac8 @0x0
0x0ac8…0af8 lno = 0x03ac // 0xaca @0x2
0x0ac8…0af8 at0004 = ╱9d╱ EXEC ╱ // 0xacc @0x4
0x0ac8…0af8 at0005 = ╱46╱F╱ // 0xacd @0x5
0x0ac8…0af8 at0006 = ╱45╱E╱ // 0xace @0x6
0x0ac8…0af8 at0007 = ╱4a╱J╱ // 0xacf @0x7
0x0ac8…0af8 at0008 = ╱4c╱L╱ // 0xad0 @0x8
0x0ac8…0af8 at0009 = ╱ed╱ ( ╱ // 0xad1 @0x9
0x0ac8…0af8 at000a = ╱22╱"╱ // 0xad2 @0xa
0x0ac8…0af8 at000b = ╱55╱U╱ // 0xad3 @0xb
0x0ac8…0af8 at000c = ╱6c╱l╱ // 0xad4 @0xc
0x0ac8…0af8 at000d = ╱6f╱o╱ // 0xad5 @0xd
0x0ac8…0af8 at000e = ╱76╱v╱ // 0xad6 @0xe
0x0ac8…0af8 at000f = ╱6c╱l╱ // 0xad7 @0xf
0x0ac8…0af8 at0010 = ╱69╱i╱ // 0xad8 @0x10
0x0ac8…0af8 at0011 = ╱67╱g╱ // 0xad9 @0x11
0x0ac8…0af8 at0012 = ╱20╱…╱ // 0xada @0x12
0x0ac8…0af8 at0013 = ╱66╱f╱ // 0xadb @0x13
0x0ac8…0af8 at0014 = ╱75╱u╱ // 0xadc @0x14
0x0ac8…0af8 at0015 = ╱6e╱n╱ // 0xadd @0x15
0x0ac8…0af8 at0016 = ╱6b╱k╱ // 0xade @0x16
0x0ac8…0af8 at0017 = ╱74╱t╱ // 0xadf @0x17
0x0ac8…0af8 at0018 = ╱69╱i╱ // 0xae0 @0x18
0x0ac8…0af8 at0019 = ╱6f╱o╱ // 0xae1 @0x19
0x0ac8…0af8 at001a = ╱6e╱n╱ // 0xae2 @0x1a
0x0ac8…0af8 at001b = ╱73╱s╱ // 0xae3 @0x1b
0x0ac8…0af8 at001c = ╱6b╱k╱ // 0xae4 @0x1c
0x0ac8…0af8 at001d = ╱6f╱o╱ // 0xae5 @0x1d
0x0ac8…0af8 at001e = ╱64╱d╱ // 0xae6 @0x1e
0x0ac8…0af8 at001f = ╱65╱e╱ // 0xae7 @0x1f
0x0ac8…0af8 at0020 = ╱3a╱:╱ // 0xae8 @0x20
0x0ac8…0af8 at0021 = ╱20╱…╱ // 0xae9 @0x21
0x0ac8…0af8 at0022 = ╱27╱'╱ // 0xaea @0x22
0x0ac8…0af8 at0023 = ╱22╱"╱ // 0xaeb @0x23
0x0ac8…0af8 at0024 = ╱eb╱ + ╱ // 0xaec @0x24
0x0ac8…0af8 at0025 = ╱53╱S╱ // 0xaed @0x25
0x0ac8…0af8 at0026 = ╱56╱V╱ // 0xaee @0x26
0x0ac8…0af8 at0027 = ╱41╱A╱ // 0xaef @0x27
0x0ac8…0af8 at0028 = ╱52╱R╱ // 0xaf0 @0x28
0x0ac8…0af8 at0029 = ╱ef╱ $ ╱ // 0xaf1 @0x29
0x0ac8…0af8 at002a = ╱eb╱ + ╱ // 0xaf2 @0x2a
0x0ac8…0af8 at002b = ╱22╱"╱ // 0xaf3 @0x2b
0x0ac8…0af8 at002c = ╱27╱'╱ // 0xaf4 @0x2c
0x0ac8…0af8 at002d = ╱22╱"╱ // 0xaf5 @0x2d
0x0ac8…0af8 at002e = ╱ee╱ ) ╱ // 0xaf6 @0x2e
0x0ac8…0af8 at002f = EOL // 0xaf7 @0x2f
0x0ac8…0af8 }
0x0af8…0afe a0ec 00950 ENDIF
0x0af8…0afe LineComal80 {
0x0af8…0afe ptr = 0xa0ec // 0xaf8 @0x0
0x0af8…0afe lno = 0x03b6 // 0xafa @0x2
0x0af8…0afe at0004 = ╱9c╱ ENDIF ╱ // 0xafc @0x4
0x0af8…0afe at0005 = EOL // 0xafd @0x5
0x0af8…0afe }
0x0afe…0b25 a113 00960 UNTIL "/" + SVAR $ + "/" IN "/……/OK/ok/SK/sk//"
0x0afe…0b25 LineComal80 {
0x0afe…0b25 ptr = 0xa113 // 0xafe @0x0
0x0afe…0b25 lno = 0x03c0 // 0xb00 @0x2
0x0afe…0b25 at0004 = ╱98╱ UNTIL ╱ // 0xb02 @0x4
0x0afe…0b25 at0005 = ╱22╱"╱ // 0xb03 @0x5
0x0afe…0b25 at0006 = ╱2f╱/╱ // 0xb04 @0x6
0x0afe…0b25 at0007 = ╱22╱"╱ // 0xb05 @0x7
0x0afe…0b25 at0008 = ╱eb╱ + ╱ // 0xb06 @0x8
0x0afe…0b25 at0009 = ╱53╱S╱ // 0xb07 @0x9
0x0afe…0b25 at000a = ╱56╱V╱ // 0xb08 @0xa
0x0afe…0b25 at000b = ╱41╱A╱ // 0xb09 @0xb
0x0afe…0b25 at000c = ╱52╱R╱ // 0xb0a @0xc
0x0afe…0b25 at000d = ╱ef╱ $ ╱ // 0xb0b @0xd
0x0afe…0b25 at000e = ╱eb╱ + ╱ // 0xb0c @0xe
0x0afe…0b25 at000f = ╱22╱"╱ // 0xb0d @0xf
0x0afe…0b25 at0010 = ╱2f╱/╱ // 0xb0e @0x10
0x0afe…0b25 at0011 = ╱22╱"╱ // 0xb0f @0x11
0x0afe…0b25 at0012 = ╱dc╱ IN ╱ // 0xb10 @0x12
0x0afe…0b25 at0013 = ╱22╱"╱ // 0xb11 @0x13
0x0afe…0b25 at0014 = ╱2f╱/╱ // 0xb12 @0x14
0x0afe…0b25 at0015 = ╱20╱…╱ // 0xb13 @0x15
0x0afe…0b25 at0016 = ╱20╱…╱ // 0xb14 @0x16
0x0afe…0b25 at0017 = ╱2f╱/╱ // 0xb15 @0x17
0x0afe…0b25 at0018 = ╱4f╱O╱ // 0xb16 @0x18
0x0afe…0b25 at0019 = ╱4b╱K╱ // 0xb17 @0x19
0x0afe…0b25 at001a = ╱2f╱/╱ // 0xb18 @0x1a
0x0afe…0b25 at001b = ╱6f╱o╱ // 0xb19 @0x1b
0x0afe…0b25 at001c = ╱6b╱k╱ // 0xb1a @0x1c
0x0afe…0b25 at001d = ╱2f╱/╱ // 0xb1b @0x1d
0x0afe…0b25 at001e = ╱53╱S╱ // 0xb1c @0x1e
0x0afe…0b25 at001f = ╱4b╱K╱ // 0xb1d @0x1f
0x0afe…0b25 at0020 = ╱2f╱/╱ // 0xb1e @0x20
0x0afe…0b25 at0021 = ╱73╱s╱ // 0xb1f @0x21
0x0afe…0b25 at0022 = ╱6b╱k╱ // 0xb20 @0x22
0x0afe…0b25 at0023 = ╱2f╱/╱ // 0xb21 @0x23
0x0afe…0b25 at0024 = ╱2f╱/╱ // 0xb22 @0x24
0x0afe…0b25 at0025 = ╱22╱"╱ // 0xb23 @0x25
0x0afe…0b25 at0026 = EOL // 0xb24 @0x26
0x0afe…0b25 }
0x0b25…0b33 a121 00970 CASE SVAR $ OF
0x0b25…0b33 LineComal80 {
0x0b25…0b33 ptr = 0xa121 // 0xb25 @0x0
0x0b25…0b33 lno = 0x03ca // 0xb27 @0x2
0x0b25…0b33 at0004 = ╱a20700╱ CASE ╱ // 0xb29 @0x4
0x0b25…0b33 at0007 = ╱53╱S╱ // 0xb2c @0x7
0x0b25…0b33 at0008 = ╱56╱V╱ // 0xb2d @0x8
0x0b25…0b33 at0009 = ╱41╱A╱ // 0xb2e @0x9
0x0b25…0b33 at000a = ╱52╱R╱ // 0xb2f @0xa
0x0b25…0b33 at000b = ╱ef╱ $ ╱ // 0xb30 @0xb
0x0b25…0b33 at000c = ╱ba╱ OF ╱ // 0xb31 @0xc
0x0b25…0b33 at000d = EOL // 0xb32 @0xd
0x0b25…0b33 }
0x0b33…0b44 a132 00980 WHILE "OK" , "ok"
0x0b33…0b44 LineComal80 {
0x0b33…0b44 ptr = 0xa132 // 0xb33 @0x0
0x0b33…0b44 lno = 0x03d4 // 0xb35 @0x2
0x0b33…0b44 at0004 = ╱a40800╱ WHILE ╱ // 0xb37 @0x4
0x0b33…0b44 at0007 = ╱22╱"╱ // 0xb3a @0x7
0x0b33…0b44 at0008 = ╱4f╱O╱ // 0xb3b @0x8
0x0b33…0b44 at0009 = ╱4b╱K╱ // 0xb3c @0x9
0x0b33…0b44 at000a = ╱22╱"╱ // 0xb3d @0xa
0x0b33…0b44 at000b = ╱ec╱ , ╱ // 0xb3e @0xb
0x0b33…0b44 at000c = ╱22╱"╱ // 0xb3f @0xc
0x0b33…0b44 at000d = ╱6f╱o╱ // 0xb40 @0xd
0x0b33…0b44 at000e = ╱6b╱k╱ // 0xb41 @0xe
0x0b33…0b44 at000f = ╱22╱"╱ // 0xb42 @0xf
0x0b33…0b44 at0010 = EOL // 0xb43 @0x10
0x0b33…0b44 }
0x0b44…0b59 a147 00990 EXEC OPRET_RET_KONTI
0x0b44…0b59 LineComal80 {
0x0b44…0b59 ptr = 0xa147 // 0xb44 @0x0
0x0b44…0b59 lno = 0x03de // 0xb46 @0x2
0x0b44…0b59 at0004 = ╱9d╱ EXEC ╱ // 0xb48 @0x4
0x0b44…0b59 at0005 = ╱4f╱O╱ // 0xb49 @0x5
0x0b44…0b59 at0006 = ╱50╱P╱ // 0xb4a @0x6
0x0b44…0b59 at0007 = ╱52╱R╱ // 0xb4b @0x7
0x0b44…0b59 at0008 = ╱45╱E╱ // 0xb4c @0x8
0x0b44…0b59 at0009 = ╱54╱T╱ // 0xb4d @0x9
0x0b44…0b59 at000a = ╱5f╱_╱ // 0xb4e @0xa
0x0b44…0b59 at000b = ╱52╱R╱ // 0xb4f @0xb
0x0b44…0b59 at000c = ╱45╱E╱ // 0xb50 @0xc
0x0b44…0b59 at000d = ╱54╱T╱ // 0xb51 @0xd
0x0b44…0b59 at000e = ╱5f╱_╱ // 0xb52 @0xe
0x0b44…0b59 at000f = ╱4b╱K╱ // 0xb53 @0xf
0x0b44…0b59 at0010 = ╱4f╱O╱ // 0xb54 @0x10
0x0b44…0b59 at0011 = ╱4e╱N╱ // 0xb55 @0x11
0x0b44…0b59 at0012 = ╱54╱T╱ // 0xb56 @0x12
0x0b44…0b59 at0013 = ╱49╱I╱ // 0xb57 @0x13
0x0b44…0b59 at0014 = EOL // 0xb58 @0x14
0x0b44…0b59 }
0x0b59…0b6a a158 01000 WHILE "SK" , "sk"
0x0b59…0b6a LineComal80 {
0x0b59…0b6a ptr = 0xa158 // 0xb59 @0x0
0x0b59…0b6a lno = 0x03e8 // 0xb5b @0x2
0x0b59…0b6a at0004 = ╱a40900╱ WHILE ╱ // 0xb5d @0x4
0x0b59…0b6a at0007 = ╱22╱"╱ // 0xb60 @0x7
0x0b59…0b6a at0008 = ╱53╱S╱ // 0xb61 @0x8
0x0b59…0b6a at0009 = ╱4b╱K╱ // 0xb62 @0x9
0x0b59…0b6a at000a = ╱22╱"╱ // 0xb63 @0xa
0x0b59…0b6a at000b = ╱ec╱ , ╱ // 0xb64 @0xb
0x0b59…0b6a at000c = ╱22╱"╱ // 0xb65 @0xc
0x0b59…0b6a at000d = ╱73╱s╱ // 0xb66 @0xd
0x0b59…0b6a at000e = ╱6b╱k╱ // 0xb67 @0xe
0x0b59…0b6a at000f = ╱22╱"╱ // 0xb68 @0xf
0x0b59…0b6a at0010 = EOL // 0xb69 @0x10
0x0b59…0b6a }
0x0b6a…0b7a a168 01010 EXEC SLET_KONTI
0x0b6a…0b7a LineComal80 {
0x0b6a…0b7a ptr = 0xa168 // 0xb6a @0x0
0x0b6a…0b7a lno = 0x03f2 // 0xb6c @0x2
0x0b6a…0b7a at0004 = ╱9d╱ EXEC ╱ // 0xb6e @0x4
0x0b6a…0b7a at0005 = ╱53╱S╱ // 0xb6f @0x5
0x0b6a…0b7a at0006 = ╱4c╱L╱ // 0xb70 @0x6
0x0b6a…0b7a at0007 = ╱45╱E╱ // 0xb71 @0x7
0x0b6a…0b7a at0008 = ╱54╱T╱ // 0xb72 @0x8
0x0b6a…0b7a at0009 = ╱5f╱_╱ // 0xb73 @0x9
0x0b6a…0b7a at000a = ╱4b╱K╱ // 0xb74 @0xa
0x0b6a…0b7a at000b = ╱4f╱O╱ // 0xb75 @0xb
0x0b6a…0b7a at000c = ╱4e╱N╱ // 0xb76 @0xc
0x0b6a…0b7a at000d = ╱54╱T╱ // 0xb77 @0xd
0x0b6a…0b7a at000e = ╱49╱I╱ // 0xb78 @0xe
0x0b6a…0b7a at000f = EOL // 0xb79 @0xf
0x0b6a…0b7a }
0x0b7a…0b81 a16f 01020 OTHERWISE
0x0b7a…0b81 LineComal80 {
0x0b7a…0b81 ptr = 0xa16f // 0xb7a @0x0
0x0b7a…0b81 lno = 0x03fc // 0xb7c @0x2
0x0b7a…0b81 at0004 = ╱950a╱ OTHERWISE ╱ // 0xb7e @0x4
0x0b7a…0b81 at0006 = EOL // 0xb80 @0x6
0x0b7a…0b81 }
0x0b81…0b87 a175 01030 CLOSE
0x0b81…0b87 LineComal80 {
0x0b81…0b87 ptr = 0xa175 // 0xb81 @0x0
0x0b81…0b87 lno = 0x0406 // 0xb83 @0x2
0x0b81…0b87 at0004 = ╱a8╱ CLOSE ╱ // 0xb85 @0x4
0x0b81…0b87 at0005 = EOL // 0xb86 @0x5
0x0b81…0b87 }
0x0b87…0b95 a183 01040 CHAIN PROGRAM $
0x0b87…0b95 LineComal80 {
0x0b87…0b95 ptr = 0xa183 // 0xb87 @0x0
0x0b87…0b95 lno = 0x0410 // 0xb89 @0x2
0x0b87…0b95 at0004 = ╱ac╱ CHAIN ╱ // 0xb8b @0x4
0x0b87…0b95 at0005 = ╱50╱P╱ // 0xb8c @0x5
0x0b87…0b95 at0006 = ╱52╱R╱ // 0xb8d @0x6
0x0b87…0b95 at0007 = ╱4f╱O╱ // 0xb8e @0x7
0x0b87…0b95 at0008 = ╱47╱G╱ // 0xb8f @0x8
0x0b87…0b95 at0009 = ╱52╱R╱ // 0xb90 @0x9
0x0b87…0b95 at000a = ╱41╱A╱ // 0xb91 @0xa
0x0b87…0b95 at000b = ╱4d╱M╱ // 0xb92 @0xb
0x0b87…0b95 at000c = ╱ef╱ $ ╱ // 0xb93 @0xc
0x0b87…0b95 at000d = EOL // 0xb94 @0xd
0x0b87…0b95 }
0x0b95…0b9b a189 01050 ENDCASE
0x0b95…0b9b LineComal80 {
0x0b95…0b9b ptr = 0xa189 // 0xb95 @0x0
0x0b95…0b9b lno = 0x041a // 0xb97 @0x2
0x0b95…0b9b at0004 = ╱a3╱ ENDCASE ╱ // 0xb99 @0x4
0x0b95…0b9b at0005 = EOL // 0xb9a @0x5
0x0b95…0b9b }
0x0b9b…0ba6 a194 01060 UNTIL FALSE
0x0b9b…0ba6 LineComal80 {
0x0b9b…0ba6 ptr = 0xa194 // 0xb9b @0x0
0x0b9b…0ba6 lno = 0x0424 // 0xb9d @0x2
0x0b9b…0ba6 at0004 = ╱98╱ UNTIL ╱ // 0xb9f @0x4
0x0b9b…0ba6 at0005 = ╱46╱F╱ // 0xba0 @0x5
0x0b9b…0ba6 at0006 = ╱41╱A╱ // 0xba1 @0x6
0x0b9b…0ba6 at0007 = ╱4c╱L╱ // 0xba2 @0x7
0x0b9b…0ba6 at0008 = ╱53╱S╱ // 0xba3 @0x8
0x0b9b…0ba6 at0009 = ╱45╱E╱ // 0xba4 @0x9
0x0b9b…0ba6 at000a = EOL // 0xba5 @0xa
0x0b9b…0ba6 }
0x0ba6…0bb9 a1a7 01070 ENDPROC FUNKTIONSMENU
0x0ba6…0bb9 LineComal80 {
0x0ba6…0bb9 ptr = 0xa1a7 // 0xba6 @0x0
0x0ba6…0bb9 lno = 0x042e // 0xba8 @0x2
0x0ba6…0bb9 at0004 = ╱9f╱ ENDPROC ╱ // 0xbaa @0x4
0x0ba6…0bb9 at0005 = ╱46╱F╱ // 0xbab @0x5
0x0ba6…0bb9 at0006 = ╱55╱U╱ // 0xbac @0x6
0x0ba6…0bb9 at0007 = ╱4e╱N╱ // 0xbad @0x7
0x0ba6…0bb9 at0008 = ╱4b╱K╱ // 0xbae @0x8
0x0ba6…0bb9 at0009 = ╱54╱T╱ // 0xbaf @0x9
0x0ba6…0bb9 at000a = ╱49╱I╱ // 0xbb0 @0xa
0x0ba6…0bb9 at000b = ╱4f╱O╱ // 0xbb1 @0xb
0x0ba6…0bb9 at000c = ╱4e╱N╱ // 0xbb2 @0xc
0x0ba6…0bb9 at000d = ╱53╱S╱ // 0xbb3 @0xd
0x0ba6…0bb9 at000e = ╱4d╱M╱ // 0xbb4 @0xe
0x0ba6…0bb9 at000f = ╱45╱E╱ // 0xbb5 @0xf
0x0ba6…0bb9 at0010 = ╱4e╱N╱ // 0xbb6 @0x10
0x0ba6…0bb9 at0011 = ╱55╱U╱ // 0xbb7 @0x11
0x0ba6…0bb9 at0012 = EOL // 0xbb8 @0x12
0x0ba6…0bb9 }
0x0bb9…0bbf a1ad 01080 //
0x0bb9…0bbf LineComal80 {
0x0bb9…0bbf ptr = 0xa1ad // 0xbb9 @0x0
0x0bb9…0bbf lno = 0x0438 // 0xbbb @0x2
0x0bb9…0bbf at0004 = ╱89╱ // ╱ // 0xbbd @0x4
0x0bb9…0bbf at0005 = EOL // 0xbbe @0x5
0x0bb9…0bbf }
0x0bbf…0bd2 a1c0 01090 PROC TERMINAL_IDX
0x0bbf…0bd2 LineComal80 {
0x0bbf…0bd2 ptr = 0xa1c0 // 0xbbf @0x0
0x0bbf…0bd2 lno = 0x0442 // 0xbc1 @0x2
0x0bbf…0bd2 at0004 = ╱9e0b╱ PROC ╱ // 0xbc3 @0x4
0x0bbf…0bd2 at0006 = ╱54╱T╱ // 0xbc5 @0x6
0x0bbf…0bd2 at0007 = ╱45╱E╱ // 0xbc6 @0x7
0x0bbf…0bd2 at0008 = ╱52╱R╱ // 0xbc7 @0x8
0x0bbf…0bd2 at0009 = ╱4d╱M╱ // 0xbc8 @0x9
0x0bbf…0bd2 at000a = ╱49╱I╱ // 0xbc9 @0xa
0x0bbf…0bd2 at000b = ╱4e╱N╱ // 0xbca @0xb
0x0bbf…0bd2 at000c = ╱41╱A╱ // 0xbcb @0xc
0x0bbf…0bd2 at000d = ╱4c╱L╱ // 0xbcc @0xd
0x0bbf…0bd2 at000e = ╱5f╱_╱ // 0xbcd @0xe
0x0bbf…0bd2 at000f = ╱49╱I╱ // 0xbce @0xf
0x0bbf…0bd2 at0010 = ╱44╱D╱ // 0xbcf @0x10
0x0bbf…0bd2 at0011 = ╱58╱X╱ // 0xbd0 @0x11
0x0bbf…0bd2 at0012 = EOL // 0xbd1 @0x12
0x0bbf…0bd2 }
0x0bd2…0bec a1da 01100 LET PPAR := 5 ; RESRV := 0
0x0bd2…0bec LineComal80 {
0x0bd2…0bec ptr = 0xa1da // 0xbd2 @0x0
0x0bd2…0bec lno = 0x044c // 0xbd4 @0x2
0x0bd2…0bec at0004 = ╱86╱ LET ╱ // 0xbd6 @0x4
0x0bd2…0bec at0005 = ╱50╱P╱ // 0xbd7 @0x5
0x0bd2…0bec at0006 = ╱50╱P╱ // 0xbd8 @0x6
0x0bd2…0bec at0007 = ╱41╱A╱ // 0xbd9 @0x7
0x0bd2…0bec at0008 = ╱52╱R╱ // 0xbda @0x8
0x0bd2…0bec at0009 = ╱f0╱ := ╱ // 0xbdb @0x9
0x0bd2…0bec at000a = ╱35╱5╱ // 0xbdc @0xa
0x0bd2…0bec at000b = ╱f20500╱ // 0xbdd @0xb
0x0bd2…0bec at000e = ╱ea╱ ; ╱ // 0xbe0 @0xe
0x0bd2…0bec at000f = ╱52╱R╱ // 0xbe1 @0xf
0x0bd2…0bec at0010 = ╱45╱E╱ // 0xbe2 @0x10
0x0bd2…0bec at0011 = ╱53╱S╱ // 0xbe3 @0x11
0x0bd2…0bec at0012 = ╱52╱R╱ // 0xbe4 @0x12
0x0bd2…0bec at0013 = ╱56╱V╱ // 0xbe5 @0x13
0x0bd2…0bec at0014 = ╱f0╱ := ╱ // 0xbe6 @0x14
0x0bd2…0bec at0015 = ╱30╱0╱ // 0xbe7 @0x15
0x0bd2…0bec at0016 = ╱f20000╱ // 0xbe8 @0x16
0x0bd2…0bec at0019 = EOL // 0xbeb @0x19
0x0bd2…0bec }
0x0bec…0bfe a1ec 01110 CALL :PRES"
0x0bec…0bfe LineComal80 {
0x0bec…0bfe ptr = 0xa1ec // 0xbec @0x0
0x0bec…0bfe lno = 0x0456 // 0xbee @0x2
0x0bec…0bfe at0004 = ╱ad00╱ CALL ╱ // 0xbf0 @0x4
0x0bec…0bfe at0006 = ╱fe22444445╱ // 0xbf2 @0x6
0x0bec…0bfe at000b = ╱3a╱:╱ // 0xbf7 @0xb
0x0bec…0bfe at000c = ╱50╱P╱ // 0xbf8 @0xc
0x0bec…0bfe at000d = ╱52╱R╱ // 0xbf9 @0xd
0x0bec…0bfe at000e = ╱45╱E╱ // 0xbfa @0xe
0x0bec…0bfe at000f = ╱53╱S╱ // 0xbfb @0xf
0x0bec…0bfe at0010 = ╱22╱"╱ // 0xbfc @0x10
0x0bec…0bfe at0011 = EOL // 0xbfd @0x11
0x0bec…0bfe }
0x0bfe…0c27 a215 01120 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x0bfe…0c27 LineComal80 {
0x0bfe…0c27 ptr = 0xa215 // 0xbfe @0x0
0x0bfe…0c27 lno = 0x0460 // 0xc00 @0x2
0x0bfe…0c27 at0004 = ╱a9╱ GET ╱ // 0xc02 @0x4
0x0bfe…0c27 at0005 = ╱53╱S╱ // 0xc03 @0x5
0x0bfe…0c27 at0006 = ╱59╱Y╱ // 0xc04 @0x6
0x0bfe…0c27 at0007 = ╱53╱S╱ // 0xc05 @0x7
0x0bfe…0c27 at0008 = ╱50╱P╱ // 0xc06 @0x8
0x0bfe…0c27 at0009 = ╱41╱A╱ // 0xc07 @0x9
0x0bfe…0c27 at000a = ╱52╱R╱ // 0xc08 @0xa
0x0bfe…0c27 at000b = ╱41╱A╱ // 0xc09 @0xb
0x0bfe…0c27 at000c = ╱ef╱ $ ╱ // 0xc0a @0xc
0x0bfe…0c27 at000d = ╱ec╱ , ╱ // 0xc0b @0xd
0x0bfe…0c27 at000e = ╱31╱1╱ // 0xc0c @0xe
0x0bfe…0c27 at000f = ╱f20100╱ // 0xc0d @0xf
0x0bfe…0c27 at0012 = ╱e5╱ + ╱ // 0xc10 @0x12
0x0bfe…0c27 at0013 = ╱52╱R╱ // 0xc11 @0x13
0x0bfe…0c27 at0014 = ╱45╱E╱ // 0xc12 @0x14
0x0bfe…0c27 at0015 = ╱53╱S╱ // 0xc13 @0x15
0x0bfe…0c27 at0016 = ╱52╱R╱ // 0xc14 @0x16
0x0bfe…0c27 at0017 = ╱56╱V╱ // 0xc15 @0x17
0x0bfe…0c27 at0018 = ╱f1╱ : ╱ // 0xc16 @0x18
0x0bfe…0c27 at0019 = ╱44╱D╱ // 0xc17 @0x19
0x0bfe…0c27 at001a = ╱41╱A╱ // 0xc18 @0x1a
0x0bfe…0c27 at001b = ╱54╱T╱ // 0xc19 @0x1b
0x0bfe…0c27 at001c = ╱41╱A╱ // 0xc1a @0x1c
0x0bfe…0c27 at001d = ╱46╱F╱ // 0xc1b @0x1d
0x0bfe…0c27 at001e = ╱4c╱L╱ // 0xc1c @0x1e
0x0bfe…0c27 at001f = ╱ef╱ $ ╱ // 0xc1d @0x1f
0x0bfe…0c27 at0020 = ╱ec╱ , ╱ // 0xc1e @0x20
0x0bfe…0c27 at0021 = ╱54╱T╱ // 0xc1f @0x21
0x0bfe…0c27 at0022 = ╱5f╱_╱ // 0xc20 @0x22
0x0bfe…0c27 at0023 = ╱4b╱K╱ // 0xc21 @0x23
0x0bfe…0c27 at0024 = ╱4f╱O╱ // 0xc22 @0x24
0x0bfe…0c27 at0025 = ╱44╱D╱ // 0xc23 @0x25
0x0bfe…0c27 at0026 = ╱45╱E╱ // 0xc24 @0x26
0x0bfe…0c27 at0027 = ╱ef╱ $ ╱ // 0xc25 @0x27
0x0bfe…0c27 at0028 = EOL // 0xc26 @0x28
0x0bfe…0c27 }
0x0c27…0c39 a227 01130 ENDPROC TERMINAL_IDX
0x0c27…0c39 LineComal80 {
0x0c27…0c39 ptr = 0xa227 // 0xc27 @0x0
0x0c27…0c39 lno = 0x046a // 0xc29 @0x2
0x0c27…0c39 at0004 = ╱9f╱ ENDPROC ╱ // 0xc2b @0x4
0x0c27…0c39 at0005 = ╱54╱T╱ // 0xc2c @0x5
0x0c27…0c39 at0006 = ╱45╱E╱ // 0xc2d @0x6
0x0c27…0c39 at0007 = ╱52╱R╱ // 0xc2e @0x7
0x0c27…0c39 at0008 = ╱4d╱M╱ // 0xc2f @0x8
0x0c27…0c39 at0009 = ╱49╱I╱ // 0xc30 @0x9
0x0c27…0c39 at000a = ╱4e╱N╱ // 0xc31 @0xa
0x0c27…0c39 at000b = ╱41╱A╱ // 0xc32 @0xb
0x0c27…0c39 at000c = ╱4c╱L╱ // 0xc33 @0xc
0x0c27…0c39 at000d = ╱5f╱_╱ // 0xc34 @0xd
0x0c27…0c39 at000e = ╱49╱I╱ // 0xc35 @0xe
0x0c27…0c39 at000f = ╱44╱D╱ // 0xc36 @0xf
0x0c27…0c39 at0010 = ╱58╱X╱ // 0xc37 @0x10
0x0c27…0c39 at0011 = EOL // 0xc38 @0x11
0x0c27…0c39 }
0x0c39…0c3e a22c 01140
0x0c39…0c3e LineComal80 {
0x0c39…0c3e ptr = 0xa22c // 0xc39 @0x0
0x0c39…0c3e lno = 0x0474 // 0xc3b @0x2
0x0c39…0c3e at0004 = EOL // 0xc3d @0x4
0x0c39…0c3e }
0x0c3e…0c59 a247 01150 PROC OPENFIL ( FNAVN $ , WAY $ )
0x0c3e…0c59 LineComal80 {
0x0c3e…0c59 ptr = 0xa247 // 0xc3e @0x0
0x0c3e…0c59 lno = 0x047e // 0xc40 @0x2
0x0c3e…0c59 at0004 = ╱9e0c╱ PROC ╱ // 0xc42 @0x4
0x0c3e…0c59 at0006 = ╱4f╱O╱ // 0xc44 @0x6
0x0c3e…0c59 at0007 = ╱50╱P╱ // 0xc45 @0x7
0x0c3e…0c59 at0008 = ╱45╱E╱ // 0xc46 @0x8
0x0c3e…0c59 at0009 = ╱4e╱N╱ // 0xc47 @0x9
0x0c3e…0c59 at000a = ╱46╱F╱ // 0xc48 @0xa
0x0c3e…0c59 at000b = ╱49╱I╱ // 0xc49 @0xb
0x0c3e…0c59 at000c = ╱4c╱L╱ // 0xc4a @0xc
0x0c3e…0c59 at000d = ╱ed╱ ( ╱ // 0xc4b @0xd
0x0c3e…0c59 at000e = ╱46╱F╱ // 0xc4c @0xe
0x0c3e…0c59 at000f = ╱4e╱N╱ // 0xc4d @0xf
0x0c3e…0c59 at0010 = ╱41╱A╱ // 0xc4e @0x10
0x0c3e…0c59 at0011 = ╱56╱V╱ // 0xc4f @0x11
0x0c3e…0c59 at0012 = ╱4e╱N╱ // 0xc50 @0x12
0x0c3e…0c59 at0013 = ╱ef╱ $ ╱ // 0xc51 @0x13
0x0c3e…0c59 at0014 = ╱ec╱ , ╱ // 0xc52 @0x14
0x0c3e…0c59 at0015 = ╱57╱W╱ // 0xc53 @0x15
0x0c3e…0c59 at0016 = ╱41╱A╱ // 0xc54 @0x16
0x0c3e…0c59 at0017 = ╱59╱Y╱ // 0xc55 @0x17
0x0c3e…0c59 at0018 = ╱ef╱ $ ╱ // 0xc56 @0x18
0x0c3e…0c59 at0019 = ╱ee╱ ) ╱ // 0xc57 @0x19
0x0c3e…0c59 at001a = EOL // 0xc58 @0x1a
0x0c3e…0c59 }
0x0c59…0c60 a24e 01160 REPEAT
0x0c59…0c60 LineComal80 {
0x0c59…0c60 ptr = 0xa24e // 0xc59 @0x0
0x0c59…0c60 lno = 0x0488 // 0xc5b @0x2
0x0c59…0c60 at0004 = ╱970d╱ REPEAT ╱ // 0xc5d @0x4
0x0c59…0c60 at0006 = EOL // 0xc5f @0x6
0x0c59…0c60 }
0x0c60…0c79 a267 01170 IF AY $ = "W" OR WAY $ = "w" THEN
0x0c60…0c79 LineComal80 {
0x0c60…0c79 ptr = 0xa267 // 0xc60 @0x0
0x0c60…0c79 lno = 0x0492 // 0xc62 @0x2
0x0c60…0c79 at0004 = ╱9b0e57╱ IF ╱ // 0xc64 @0x4
0x0c60…0c79 at0007 = ╱41╱A╱ // 0xc67 @0x7
0x0c60…0c79 at0008 = ╱59╱Y╱ // 0xc68 @0x8
0x0c60…0c79 at0009 = ╱ef╱ $ ╱ // 0xc69 @0x9
0x0c60…0c79 at000a = ╱df╱ = ╱ // 0xc6a @0xa
0x0c60…0c79 at000b = ╱22╱"╱ // 0xc6b @0xb
0x0c60…0c79 at000c = ╱57╱W╱ // 0xc6c @0xc
0x0c60…0c79 at000d = ╱22╱"╱ // 0xc6d @0xd
0x0c60…0c79 at000e = ╱d8╱ OR ╱ // 0xc6e @0xe
0x0c60…0c79 at000f = ╱57╱W╱ // 0xc6f @0xf
0x0c60…0c79 at0010 = ╱41╱A╱ // 0xc70 @0x10
0x0c60…0c79 at0011 = ╱59╱Y╱ // 0xc71 @0x11
0x0c60…0c79 at0012 = ╱ef╱ $ ╱ // 0xc72 @0x12
0x0c60…0c79 at0013 = ╱df╱ = ╱ // 0xc73 @0x13
0x0c60…0c79 at0014 = ╱22╱"╱ // 0xc74 @0x14
0x0c60…0c79 at0015 = ╱77╱w╱ // 0xc75 @0x15
0x0c60…0c79 at0016 = ╱22╱"╱ // 0xc76 @0x16
0x0c60…0c79 at0017 = ╱b5╱ THEN ╱ // 0xc77 @0x17
0x0c60…0c79 at0018 = EOL // 0xc78 @0x18
0x0c60…0c79 }
0x0c79…0c87 a275 01180 OPEN FNAVN $ , W
0x0c79…0c87 LineComal80 {
0x0c79…0c87 ptr = 0xa275 // 0xc79 @0x0
0x0c79…0c87 lno = 0x049c // 0xc7b @0x2
0x0c79…0c87 at0004 = ╱a7╱ OPEN ╱ // 0xc7d @0x4
0x0c79…0c87 at0005 = ╱46╱F╱ // 0xc7e @0x5
0x0c79…0c87 at0006 = ╱4e╱N╱ // 0xc7f @0x6
0x0c79…0c87 at0007 = ╱41╱A╱ // 0xc80 @0x7
0x0c79…0c87 at0008 = ╱56╱V╱ // 0xc81 @0x8
0x0c79…0c87 at0009 = ╱4e╱N╱ // 0xc82 @0x9
0x0c79…0c87 at000a = ╱ef╱ $ ╱ // 0xc83 @0xa
0x0c79…0c87 at000b = ╱ec╱ , ╱ // 0xc84 @0xb
0x0c79…0c87 at000c = ╱57╱W╱ // 0xc85 @0xc
0x0c79…0c87 at000d = EOL // 0xc86 @0xd
0x0c79…0c87 }
0x0c87…0c8e a27c 01190 ELSE
0x0c87…0c8e LineComal80 {
0x0c87…0c8e ptr = 0xa27c // 0xc87 @0x0
0x0c87…0c8e lno = 0x04a6 // 0xc89 @0x2
0x0c87…0c8e at0004 = ╱9a0f╱ ELSE ╱ // 0xc8b @0x4
0x0c87…0c8e at0006 = EOL // 0xc8d @0x6
0x0c87…0c8e }
0x0c8e…0c9c a28a 01200 OPEN FNAVN $ , R
0x0c8e…0c9c LineComal80 {
0x0c8e…0c9c ptr = 0xa28a // 0xc8e @0x0
0x0c8e…0c9c lno = 0x04b0 // 0xc90 @0x2
0x0c8e…0c9c at0004 = ╱a7╱ OPEN ╱ // 0xc92 @0x4
0x0c8e…0c9c at0005 = ╱46╱F╱ // 0xc93 @0x5
0x0c8e…0c9c at0006 = ╱4e╱N╱ // 0xc94 @0x6
0x0c8e…0c9c at0007 = ╱41╱A╱ // 0xc95 @0x7
0x0c8e…0c9c at0008 = ╱56╱V╱ // 0xc96 @0x8
0x0c8e…0c9c at0009 = ╱4e╱N╱ // 0xc97 @0x9
0x0c8e…0c9c at000a = ╱ef╱ $ ╱ // 0xc98 @0xa
0x0c8e…0c9c at000b = ╱ec╱ , ╱ // 0xc99 @0xb
0x0c8e…0c9c at000c = ╱52╱R╱ // 0xc9a @0xc
0x0c8e…0c9c at000d = EOL // 0xc9b @0xd
0x0c8e…0c9c }
0x0c9c…0ca2 a290 01210 ENDIF
0x0c9c…0ca2 LineComal80 {
0x0c9c…0ca2 ptr = 0xa290 // 0xc9c @0x0
0x0c9c…0ca2 lno = 0x04ba // 0xc9e @0x2
0x0c9c…0ca2 at0004 = ╱9c╱ ENDIF ╱ // 0xca0 @0x4
0x0c9c…0ca2 at0005 = EOL // 0xca1 @0x5
0x0c9c…0ca2 }
0x0ca2…0cb3 (42,) a2a1 01220 IF ( FNAVN $ ) THEN
0x0ca2…0cb3 LineComal80 {
0x0ca2…0cb3 ptr = 0xa2a1 // 0xca2 @0x0
0x0ca2…0cb3 lno = 0x04c4 // 0xca4 @0x2
0x0ca2…0cb3 at0004 = ╱9b10cd╱ IF ╱ // 0xca6 @0x4
0x0ca2…0cb3 at0007 = ╱ed╱ ( ╱ // 0xca9 @0x7
0x0ca2…0cb3 at0008 = ╱46╱F╱ // 0xcaa @0x8
0x0ca2…0cb3 at0009 = ╱4e╱N╱ // 0xcab @0x9
0x0ca2…0cb3 at000a = ╱41╱A╱ // 0xcac @0xa
0x0ca2…0cb3 at000b = ╱56╱V╱ // 0xcad @0xb
0x0ca2…0cb3 at000c = ╱4e╱N╱ // 0xcae @0xc
0x0ca2…0cb3 at000d = ╱ef╱ $ ╱ // 0xcaf @0xd
0x0ca2…0cb3 at000e = ╱ee╱ ) ╱ // 0xcb0 @0xe
0x0ca2…0cb3 at000f = ╱b5╱ THEN ╱ // 0xcb1 @0xf
0x0ca2…0cb3 at0010 = EOL // 0xcb2 @0x10
0x0ca2…0cb3 }
0x0cb3…0cc6 a2b4 01230 PRINT "<S>" ; CHR$ ( 7 )
0x0cb3…0cc6 LineComal80 {
0x0cb3…0cc6 ptr = 0xa2b4 // 0xcb3 @0x0
0x0cb3…0cc6 lno = 0x04ce // 0xcb5 @0x2
0x0cb3…0cc6 at0004 = ╱92╱ PRINT ╱ // 0xcb7 @0x4
0x0cb3…0cc6 at0005 = ╱22╱"╱ // 0xcb8 @0x5
0x0cb3…0cc6 at0006 = ╱3c╱<╱ // 0xcb9 @0x6
0x0cb3…0cc6 at0007 = ╱53╱S╱ // 0xcba @0x7
0x0cb3…0cc6 at0008 = ╱3e╱>╱ // 0xcbb @0x8
0x0cb3…0cc6 at0009 = ╱22╱"╱ // 0xcbc @0x9
0x0cb3…0cc6 at000a = ╱ea╱ ; ╱ // 0xcbd @0xa
0x0cb3…0cc6 at000b = ╱d0╱ CHR$ ╱ // 0xcbe @0xb
0x0cb3…0cc6 at000c = ╱ed╱ ( ╱ // 0xcbf @0xc
0x0cb3…0cc6 at000d = ╱37╱7╱ // 0xcc0 @0xd
0x0cb3…0cc6 at000e = ╱f20700╱ // 0xcc1 @0xe
0x0cb3…0cc6 at0011 = ╱ee╱ ) ╱ // 0xcc4 @0x11
0x0cb3…0cc6 at0012 = EOL // 0xcc5 @0x12
0x0cb3…0cc6 }
0x0cc6…0cdc a2ca 01240 IF ( FNAVN $ ) = 6 THEN
0x0cc6…0cdc LineComal80 {
0x0cc6…0cdc ptr = 0xa2ca // 0xcc6 @0x0
0x0cc6…0cdc lno = 0x04d8 // 0xcc8 @0x2
0x0cc6…0cdc at0004 = ╱9b11cd╱ IF ╱ // 0xcca @0x4
0x0cc6…0cdc at0007 = ╱ed╱ ( ╱ // 0xccd @0x7
0x0cc6…0cdc at0008 = ╱46╱F╱ // 0xcce @0x8
0x0cc6…0cdc at0009 = ╱4e╱N╱ // 0xccf @0x9
0x0cc6…0cdc at000a = ╱41╱A╱ // 0xcd0 @0xa
0x0cc6…0cdc at000b = ╱56╱V╱ // 0xcd1 @0xb
0x0cc6…0cdc at000c = ╱4e╱N╱ // 0xcd2 @0xc
0x0cc6…0cdc at000d = ╱ef╱ $ ╱ // 0xcd3 @0xd
0x0cc6…0cdc at000e = ╱ee╱ ) ╱ // 0xcd4 @0xe
0x0cc6…0cdc at000f = ╱df╱ = ╱ // 0xcd5 @0xf
0x0cc6…0cdc at0010 = ╱36╱6╱ // 0xcd6 @0x10
0x0cc6…0cdc at0011 = ╱f20600╱ // 0xcd7 @0x11
0x0cc6…0cdc at0014 = ╱b5╱ THEN ╱ // 0xcda @0x14
0x0cc6…0cdc at0015 = EOL // 0xcdb @0x15
0x0cc6…0cdc }
0x0cdc…0d21 a30f 01250 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x0cdc…0d21 LineComal80 {
0x0cdc…0d21 ptr = 0xa30f // 0xcdc @0x0
0x0cdc…0d21 lno = 0x04e2 // 0xcde @0x2
0x0cdc…0d21 at0004 = ╱92╱ PRINT ╱ // 0xce0 @0x4
0x0cdc…0d21 at0005 = ╱22╱"╱ // 0xce1 @0x5
0x0cdc…0d21 at0006 = ╱3c╱<╱ // 0xce2 @0x6
0x0cdc…0d21 at0007 = ╱53╱S╱ // 0xce3 @0x7
0x0cdc…0d21 at0008 = ╱43╱C╱ // 0xce4 @0x8
0x0cdc…0d21 at0009 = ╱31╱1╱ // 0xce5 @0x9
0x0cdc…0d21 at000a = ╱36╱6╱ // 0xce6 @0xa
0x0cdc…0d21 at000b = ╱30╱0╱ // 0xce7 @0xb
0x0cdc…0d21 at000c = ╱32╱2╱ // 0xce8 @0xc
0x0cdc…0d21 at000d = ╱3e╱>╱ // 0xce9 @0xd
0x0cdc…0d21 at000e = ╱2a╱*╱ // 0xcea @0xe
0x0cdc…0d21 at000f = ╱2a╱*╱ // 0xceb @0xf
0x0cdc…0d21 at0010 = ╱2a╱*╱ // 0xcec @0x10
0x0cdc…0d21 at0011 = ╱20╱…╱ // 0xced @0x11
0x0cdc…0d21 at0012 = ╱46╱F╱ // 0xcee @0x12
0x0cdc…0d21 at0013 = ╱65╱e╱ // 0xcef @0x13
0x0cdc…0d21 at0014 = ╱6a╱j╱ // 0xcf0 @0x14
0x0cdc…0d21 at0015 = ╱6c╱l╱ // 0xcf1 @0x15
0x0cdc…0d21 at0016 = ╱20╱…╱ // 0xcf2 @0x16
0x0cdc…0d21 at0017 = ╱6e╱n╱ // 0xcf3 @0x17
0x0cdc…0d21 at0018 = ╱72╱r╱ // 0xcf4 @0x18
0x0cdc…0d21 at0019 = ╱2e╱.╱ // 0xcf5 @0x19
0x0cdc…0d21 at001a = ╱20╱…╱ // 0xcf6 @0x1a
0x0cdc…0d21 at001b = ╱36╱6╱ // 0xcf7 @0x1b
0x0cdc…0d21 at001c = ╱20╱…╱ // 0xcf8 @0x1c
0x0cdc…0d21 at001d = ╱2d╱-╱ // 0xcf9 @0x1d
0x0cdc…0d21 at001e = ╱20╱…╱ // 0xcfa @0x1e
0x0cdc…0d21 at001f = ╱69╱i╱ // 0xcfb @0x1f
0x0cdc…0d21 at0020 = ╱6e╱n╱ // 0xcfc @0x20
0x0cdc…0d21 at0021 = ╱64╱d╱ // 0xcfd @0x21
0x0cdc…0d21 at0022 = ╱73╱s╱ // 0xcfe @0x22
0x0cdc…0d21 at0023 = ╱7b╱{╱ // 0xcff @0x23
0x0cdc…0d21 at0024 = ╱74╱t╱ // 0xd00 @0x24
0x0cdc…0d21 at0025 = ╱20╱…╱ // 0xd01 @0x25
0x0cdc…0d21 at0026 = ╱64╱d╱ // 0xd02 @0x26
0x0cdc…0d21 at0027 = ╱69╱i╱ // 0xd03 @0x27
0x0cdc…0d21 at0028 = ╱73╱s╱ // 0xd04 @0x28
0x0cdc…0d21 at0029 = ╱6b╱k╱ // 0xd05 @0x29
0x0cdc…0d21 at002a = ╱65╱e╱ // 0xd06 @0x2a
0x0cdc…0d21 at002b = ╱74╱t╱ // 0xd07 @0x2b
0x0cdc…0d21 at002c = ╱74╱t╱ // 0xd08 @0x2c
0x0cdc…0d21 at002d = ╱65╱e╱ // 0xd09 @0x2d
0x0cdc…0d21 at002e = ╱20╱…╱ // 0xd0a @0x2e
0x0cdc…0d21 at002f = ╱6f╱o╱ // 0xd0b @0x2f
0x0cdc…0d21 at0030 = ╱67╱g╱ // 0xd0c @0x30
0x0cdc…0d21 at0031 = ╱20╱…╱ // 0xd0d @0x31
0x0cdc…0d21 at0032 = ╱74╱t╱ // 0xd0e @0x32
0x0cdc…0d21 at0033 = ╱72╱r╱ // 0xd0f @0x33
0x0cdc…0d21 at0034 = ╱79╱y╱ // 0xd10 @0x34
0x0cdc…0d21 at0035 = ╱6b╱k╱ // 0xd11 @0x35
0x0cdc…0d21 at0036 = ╱20╱…╱ // 0xd12 @0x36
0x0cdc…0d21 at0037 = ╱3c╱<╱ // 0xd13 @0x37
0x0cdc…0d21 at0038 = ╱52╱R╱ // 0xd14 @0x38
0x0cdc…0d21 at0039 = ╱45╱E╱ // 0xd15 @0x39
0x0cdc…0d21 at003a = ╱54╱T╱ // 0xd16 @0x3a
0x0cdc…0d21 at003b = ╱55╱U╱ // 0xd17 @0x3b
0x0cdc…0d21 at003c = ╱52╱R╱ // 0xd18 @0x3c
0x0cdc…0d21 at003d = ╱4e╱N╱ // 0xd19 @0x3d
0x0cdc…0d21 at003e = ╱3e╱>╱ // 0xd1a @0x3e
0x0cdc…0d21 at003f = ╱20╱…╱ // 0xd1b @0x3f
0x0cdc…0d21 at0040 = ╱2a╱*╱ // 0xd1c @0x40
0x0cdc…0d21 at0041 = ╱2a╱*╱ // 0xd1d @0x41
0x0cdc…0d21 at0042 = ╱2a╱*╱ // 0xd1e @0x42
0x0cdc…0d21 at0043 = ╱22╱"╱ // 0xd1f @0x43
0x0cdc…0d21 at0044 = EOL // 0xd20 @0x44
0x0cdc…0d21 }
0x0d21…0d2f a31d 01260 INPUT "" : SVAR $
0x0d21…0d2f LineComal80 {
0x0d21…0d2f ptr = 0xa31d // 0xd21 @0x0
0x0d21…0d2f lno = 0x04ec // 0xd23 @0x2
0x0d21…0d2f at0004 = ╱91╱ INPUT ╱ // 0xd25 @0x4
0x0d21…0d2f at0005 = ╱22╱"╱ // 0xd26 @0x5
0x0d21…0d2f at0006 = ╱22╱"╱ // 0xd27 @0x6
0x0d21…0d2f at0007 = ╱f1╱ : ╱ // 0xd28 @0x7
0x0d21…0d2f at0008 = ╱53╱S╱ // 0xd29 @0x8
0x0d21…0d2f at0009 = ╱56╱V╱ // 0xd2a @0x9
0x0d21…0d2f at000a = ╱41╱A╱ // 0xd2b @0xa
0x0d21…0d2f at000b = ╱52╱R╱ // 0xd2c @0xb
0x0d21…0d2f at000c = ╱ef╱ $ ╱ // 0xd2d @0xc
0x0d21…0d2f at000d = EOL // 0xd2e @0xd
0x0d21…0d2f }
0x0d2f…0d36 a324 01270 ELSE
0x0d2f…0d36 LineComal80 {
0x0d2f…0d36 ptr = 0xa324 // 0xd2f @0x0
0x0d2f…0d36 lno = 0x04f6 // 0xd31 @0x2
0x0d2f…0d36 at0004 = ╱9a12╱ ELSE ╱ // 0xd33 @0x4
0x0d2f…0d36 at0006 = EOL // 0xd35 @0x6
0x0d2f…0d36 }
0x0d36…0d77 a365 01280 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x0d36…0d77 LineComal80 {
0x0d36…0d77 ptr = 0xa365 // 0xd36 @0x0
0x0d36…0d77 lno = 0x0500 // 0xd38 @0x2
0x0d36…0d77 at0004 = ╱92╱ PRINT ╱ // 0xd3a @0x4
0x0d36…0d77 at0005 = ╱22╱"╱ // 0xd3b @0x5
0x0d36…0d77 at0006 = ╱3c╱<╱ // 0xd3c @0x6
0x0d36…0d77 at0007 = ╱53╱S╱ // 0xd3d @0x7
0x0d36…0d77 at0008 = ╱43╱C╱ // 0xd3e @0x8
0x0d36…0d77 at0009 = ╱31╱1╱ // 0xd3f @0x9
0x0d36…0d77 at000a = ╱38╱8╱ // 0xd40 @0xa
0x0d36…0d77 at000b = ╱30╱0╱ // 0xd41 @0xb
0x0d36…0d77 at000c = ╱32╱2╱ // 0xd42 @0xc
0x0d36…0d77 at000d = ╱3e╱>╱ // 0xd43 @0xd
0x0d36…0d77 at000e = ╱2a╱*╱ // 0xd44 @0xe
0x0d36…0d77 at000f = ╱2a╱*╱ // 0xd45 @0xf
0x0d36…0d77 at0010 = ╱2a╱*╱ // 0xd46 @0x10
0x0d36…0d77 at0011 = ╱20╱…╱ // 0xd47 @0x11
0x0d36…0d77 at0012 = ╱46╱F╱ // 0xd48 @0x12
0x0d36…0d77 at0013 = ╱65╱e╱ // 0xd49 @0x13
0x0d36…0d77 at0014 = ╱6a╱j╱ // 0xd4a @0x14
0x0d36…0d77 at0015 = ╱6c╱l╱ // 0xd4b @0x15
0x0d36…0d77 at0016 = ╱20╱…╱ // 0xd4c @0x16
0x0d36…0d77 at0017 = ╱6e╱n╱ // 0xd4d @0x17
0x0d36…0d77 at0018 = ╱72╱r╱ // 0xd4e @0x18
0x0d36…0d77 at0019 = ╱2e╱.╱ // 0xd4f @0x19
0x0d36…0d77 at001a = ╱20╱…╱ // 0xd50 @0x1a
0x0d36…0d77 at001b = ╱22╱"╱ // 0xd51 @0x1b
0x0d36…0d77 at001c = ╱ea╱ ; ╱ // 0xd52 @0x1c
0x0d36…0d77 at001d = ╱d0╱ CHR$ ╱ // 0xd53 @0x1d
0x0d36…0d77 at001e = ╱ed╱ ( ╱ // 0xd54 @0x1e
0x0d36…0d77 at001f = ╱cd╱ // 0xd55 @0x1f
0x0d36…0d77 at0020 = ╱ed╱ ( ╱ // 0xd56 @0x20
0x0d36…0d77 at0021 = ╱46╱F╱ // 0xd57 @0x21
0x0d36…0d77 at0022 = ╱4e╱N╱ // 0xd58 @0x22
0x0d36…0d77 at0023 = ╱41╱A╱ // 0xd59 @0x23
0x0d36…0d77 at0024 = ╱56╱V╱ // 0xd5a @0x24
0x0d36…0d77 at0025 = ╱4e╱N╱ // 0xd5b @0x25
0x0d36…0d77 at0026 = ╱ef╱ $ ╱ // 0xd5c @0x26
0x0d36…0d77 at0027 = ╱ee╱ ) ╱ // 0xd5d @0x27
0x0d36…0d77 at0028 = ╱ec╱ , ╱ // 0xd5e @0x28
0x0d36…0d77 at0029 = ╱32╱2╱ // 0xd5f @0x29
0x0d36…0d77 at002a = ╱f20200╱ // 0xd60 @0x2a
0x0d36…0d77 at002d = ╱ee╱ ) ╱ // 0xd63 @0x2d
0x0d36…0d77 at002e = ╱ea╱ ; ╱ // 0xd64 @0x2e
0x0d36…0d77 at002f = ╱22╱"╱ // 0xd65 @0x2f
0x0d36…0d77 at0030 = ╱20╱…╱ // 0xd66 @0x30
0x0d36…0d77 at0031 = ╱76╱v╱ // 0xd67 @0x31
0x0d36…0d77 at0032 = ╱65╱e╱ // 0xd68 @0x32
0x0d36…0d77 at0033 = ╱64╱d╱ // 0xd69 @0x33
0x0d36…0d77 at0034 = ╱20╱…╱ // 0xd6a @0x34
0x0d36…0d77 at0035 = ╱7d╱}╱ // 0xd6b @0x35
0x0d36…0d77 at0036 = ╱62╱b╱ // 0xd6c @0x36
0x0d36…0d77 at0037 = ╱6e╱n╱ // 0xd6d @0x37
0x0d36…0d77 at0038 = ╱69╱i╱ // 0xd6e @0x38
0x0d36…0d77 at0039 = ╱6e╱n╱ // 0xd6f @0x39
0x0d36…0d77 at003a = ╱67╱g╱ // 0xd70 @0x3a
0x0d36…0d77 at003b = ╱20╱…╱ // 0xd71 @0x3b
0x0d36…0d77 at003c = ╱61╱a╱ // 0xd72 @0x3c
0x0d36…0d77 at003d = ╱66╱f╱ // 0xd73 @0x3d
0x0d36…0d77 at003e = ╱20╱…╱ // 0xd74 @0x3e
0x0d36…0d77 at003f = ╱22╱"╱ // 0xd75 @0x3f
0x0d36…0d77 at0040 = EOL // 0xd76 @0x40
0x0d36…0d77 }
0x0d77…0d90 a37e 01290 PRINT "<S>" ; FNAVN $ ; "…***"
0x0d77…0d90 LineComal80 {
0x0d77…0d90 ptr = 0xa37e // 0xd77 @0x0
0x0d77…0d90 lno = 0x050a // 0xd79 @0x2
0x0d77…0d90 at0004 = ╱92╱ PRINT ╱ // 0xd7b @0x4
0x0d77…0d90 at0005 = ╱22╱"╱ // 0xd7c @0x5
0x0d77…0d90 at0006 = ╱3c╱<╱ // 0xd7d @0x6
0x0d77…0d90 at0007 = ╱53╱S╱ // 0xd7e @0x7
0x0d77…0d90 at0008 = ╱3e╱>╱ // 0xd7f @0x8
0x0d77…0d90 at0009 = ╱22╱"╱ // 0xd80 @0x9
0x0d77…0d90 at000a = ╱ea╱ ; ╱ // 0xd81 @0xa
0x0d77…0d90 at000b = ╱46╱F╱ // 0xd82 @0xb
0x0d77…0d90 at000c = ╱4e╱N╱ // 0xd83 @0xc
0x0d77…0d90 at000d = ╱41╱A╱ // 0xd84 @0xd
0x0d77…0d90 at000e = ╱56╱V╱ // 0xd85 @0xe
0x0d77…0d90 at000f = ╱4e╱N╱ // 0xd86 @0xf
0x0d77…0d90 at0010 = ╱ef╱ $ ╱ // 0xd87 @0x10
0x0d77…0d90 at0011 = ╱ea╱ ; ╱ // 0xd88 @0x11
0x0d77…0d90 at0012 = ╱22╱"╱ // 0xd89 @0x12
0x0d77…0d90 at0013 = ╱20╱…╱ // 0xd8a @0x13
0x0d77…0d90 at0014 = ╱2a╱*╱ // 0xd8b @0x14
0x0d77…0d90 at0015 = ╱2a╱*╱ // 0xd8c @0x15
0x0d77…0d90 at0016 = ╱2a╱*╱ // 0xd8d @0x16
0x0d77…0d90 at0017 = ╱22╱"╱ // 0xd8e @0x17
0x0d77…0d90 at0018 = EOL // 0xd8f @0x18
0x0d77…0d90 }
0x0d90…0d9e a38c 01300 INPUT "" : SVAR $
0x0d90…0d9e LineComal80 {
0x0d90…0d9e ptr = 0xa38c // 0xd90 @0x0
0x0d90…0d9e lno = 0x0514 // 0xd92 @0x2
0x0d90…0d9e at0004 = ╱91╱ INPUT ╱ // 0xd94 @0x4
0x0d90…0d9e at0005 = ╱22╱"╱ // 0xd95 @0x5
0x0d90…0d9e at0006 = ╱22╱"╱ // 0xd96 @0x6
0x0d90…0d9e at0007 = ╱f1╱ : ╱ // 0xd97 @0x7
0x0d90…0d9e at0008 = ╱53╱S╱ // 0xd98 @0x8
0x0d90…0d9e at0009 = ╱56╱V╱ // 0xd99 @0x9
0x0d90…0d9e at000a = ╱41╱A╱ // 0xd9a @0xa
0x0d90…0d9e at000b = ╱52╱R╱ // 0xd9b @0xb
0x0d90…0d9e at000c = ╱ef╱ $ ╱ // 0xd9c @0xc
0x0d90…0d9e at000d = EOL // 0xd9d @0xd
0x0d90…0d9e }
0x0d9e…0db2 a3a0 01310 PRINT "<C0102>" ; SPC $
0x0d9e…0db2 LineComal80 {
0x0d9e…0db2 ptr = 0xa3a0 // 0xd9e @0x0
0x0d9e…0db2 lno = 0x051e // 0xda0 @0x2
0x0d9e…0db2 at0004 = ╱92╱ PRINT ╱ // 0xda2 @0x4
0x0d9e…0db2 at0005 = ╱22╱"╱ // 0xda3 @0x5
0x0d9e…0db2 at0006 = ╱3c╱<╱ // 0xda4 @0x6
0x0d9e…0db2 at0007 = ╱43╱C╱ // 0xda5 @0x7
0x0d9e…0db2 at0008 = ╱30╱0╱ // 0xda6 @0x8
0x0d9e…0db2 at0009 = ╱31╱1╱ // 0xda7 @0x9
0x0d9e…0db2 at000a = ╱30╱0╱ // 0xda8 @0xa
0x0d9e…0db2 at000b = ╱32╱2╱ // 0xda9 @0xb
0x0d9e…0db2 at000c = ╱3e╱>╱ // 0xdaa @0xc
0x0d9e…0db2 at000d = ╱22╱"╱ // 0xdab @0xd
0x0d9e…0db2 at000e = ╱ea╱ ; ╱ // 0xdac @0xe
0x0d9e…0db2 at000f = ╱53╱S╱ // 0xdad @0xf
0x0d9e…0db2 at0010 = ╱50╱P╱ // 0xdae @0x10
0x0d9e…0db2 at0011 = ╱43╱C╱ // 0xdaf @0x11
0x0d9e…0db2 at0012 = ╱ef╱ $ ╱ // 0xdb0 @0x12
0x0d9e…0db2 at0013 = EOL // 0xdb1 @0x13
0x0d9e…0db2 }
0x0db2…0db8 a3a6 01320 ENDIF
0x0db2…0db8 LineComal80 {
0x0db2…0db8 ptr = 0xa3a6 // 0xdb2 @0x0
0x0db2…0db8 lno = 0x0528 // 0xdb4 @0x2
0x0db2…0db8 at0004 = ╱9c╱ ENDIF ╱ // 0xdb6 @0x4
0x0db2…0db8 at0005 = EOL // 0xdb7 @0x5
0x0db2…0db8 }
0x0db8…0dbe a3ac 01330 ENDIF
0x0db8…0dbe LineComal80 {
0x0db8…0dbe ptr = 0xa3ac // 0xdb8 @0x0
0x0db8…0dbe lno = 0x0532 // 0xdba @0x2
0x0db8…0dbe at0004 = ╱9c╱ ENDIF ╱ // 0xdbc @0x4
0x0db8…0dbe at0005 = EOL // 0xdbd @0x5
0x0db8…0dbe }
0x0dbe…0dce a3bc 01340 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x0dbe…0dce LineComal80 {
0x0dbe…0dce ptr = 0xa3bc // 0xdbe @0x0
0x0dbe…0dce lno = 0x053c // 0xdc0 @0x2
0x0dbe…0dce at0004 = ╱98╱ UNTIL ╱ // 0xdc2 @0x4
0x0dbe…0dce at0005 = ╱d7╱ NOT ╱ // 0xdc3 @0x5
0x0dbe…0dce at0006 = ╱cd╱ // 0xdc4 @0x6
0x0dbe…0dce at0007 = ╱ed╱ ( ╱ // 0xdc5 @0x7
0x0dbe…0dce at0008 = ╱46╱F╱ // 0xdc6 @0x8
0x0dbe…0dce at0009 = ╱4e╱N╱ // 0xdc7 @0x9
0x0dbe…0dce at000a = ╱41╱A╱ // 0xdc8 @0xa
0x0dbe…0dce at000b = ╱56╱V╱ // 0xdc9 @0xb
0x0dbe…0dce at000c = ╱4e╱N╱ // 0xdca @0xc
0x0dbe…0dce at000d = ╱ef╱ $ ╱ // 0xdcb @0xd
0x0dbe…0dce at000e = ╱ee╱ ) ╱ // 0xdcc @0xe
0x0dbe…0dce at000f = EOL // 0xdcd @0xf
0x0dbe…0dce }
0x0dce…0ddb a3c9 01350 ENDPROC OPENFIL
0x0dce…0ddb LineComal80 {
0x0dce…0ddb ptr = 0xa3c9 // 0xdce @0x0
0x0dce…0ddb lno = 0x0546 // 0xdd0 @0x2
0x0dce…0ddb at0004 = ╱9f╱ ENDPROC ╱ // 0xdd2 @0x4
0x0dce…0ddb at0005 = ╱4f╱O╱ // 0xdd3 @0x5
0x0dce…0ddb at0006 = ╱50╱P╱ // 0xdd4 @0x6
0x0dce…0ddb at0007 = ╱45╱E╱ // 0xdd5 @0x7
0x0dce…0ddb at0008 = ╱4e╱N╱ // 0xdd6 @0x8
0x0dce…0ddb at0009 = ╱46╱F╱ // 0xdd7 @0x9
0x0dce…0ddb at000a = ╱49╱I╱ // 0xdd8 @0xa
0x0dce…0ddb at000b = ╱4c╱L╱ // 0xdd9 @0xb
0x0dce…0ddb at000c = EOL // 0xdda @0xc
0x0dce…0ddb }
0x0ddb…0de0 a3ce 01360
0x0ddb…0de0 LineComal80 {
0x0ddb…0de0 ptr = 0xa3ce // 0xddb @0x0
0x0ddb…0de0 lno = 0x0550 // 0xddd @0x2
0x0ddb…0de0 at0004 = EOL // 0xddf @0x4
0x0ddb…0de0 }
0x0de0…0df8 a3e6 01370 PROC OVERSKRIFT ( ST $ , L )
0x0de0…0df8 LineComal80 {
0x0de0…0df8 ptr = 0xa3e6 // 0xde0 @0x0
0x0de0…0df8 lno = 0x055a // 0xde2 @0x2
0x0de0…0df8 at0004 = ╱9e13╱ PROC ╱ // 0xde4 @0x4
0x0de0…0df8 at0006 = ╱4f╱O╱ // 0xde6 @0x6
0x0de0…0df8 at0007 = ╱56╱V╱ // 0xde7 @0x7
0x0de0…0df8 at0008 = ╱45╱E╱ // 0xde8 @0x8
0x0de0…0df8 at0009 = ╱52╱R╱ // 0xde9 @0x9
0x0de0…0df8 at000a = ╱53╱S╱ // 0xdea @0xa
0x0de0…0df8 at000b = ╱4b╱K╱ // 0xdeb @0xb
0x0de0…0df8 at000c = ╱52╱R╱ // 0xdec @0xc
0x0de0…0df8 at000d = ╱49╱I╱ // 0xded @0xd
0x0de0…0df8 at000e = ╱46╱F╱ // 0xdee @0xe
0x0de0…0df8 at000f = ╱54╱T╱ // 0xdef @0xf
0x0de0…0df8 at0010 = ╱ed╱ ( ╱ // 0xdf0 @0x10
0x0de0…0df8 at0011 = ╱53╱S╱ // 0xdf1 @0x11
0x0de0…0df8 at0012 = ╱54╱T╱ // 0xdf2 @0x12
0x0de0…0df8 at0013 = ╱ef╱ $ ╱ // 0xdf3 @0x13
0x0de0…0df8 at0014 = ╱ec╱ , ╱ // 0xdf4 @0x14
0x0de0…0df8 at0015 = ╱4c╱L╱ // 0xdf5 @0x15
0x0de0…0df8 at0016 = ╱ee╱ ) ╱ // 0xdf6 @0x16
0x0de0…0df8 at0017 = EOL // 0xdf7 @0x17
0x0de0…0df8 }
0x0df8…0e1e a40c 01380 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x0df8…0e1e LineComal80 {
0x0df8…0e1e ptr = 0xa40c // 0xdf8 @0x0
0x0df8…0e1e lno = 0x0564 // 0xdfa @0x2
0x0df8…0e1e at0004 = ╱92╱ PRINT ╱ // 0xdfc @0x4
0x0df8…0e1e at0005 = ╱22╱"╱ // 0xdfd @0x5
0x0df8…0e1e at0006 = ╱3c╱<╱ // 0xdfe @0x6
0x0df8…0e1e at0007 = ╱58╱X╱ // 0xdff @0x7
0x0df8…0e1e at0008 = ╱43╱C╱ // 0xe00 @0x8
0x0df8…0e1e at0009 = ╱30╱0╱ // 0xe01 @0x9
0x0df8…0e1e at000a = ╱31╱1╱ // 0xe02 @0xa
0x0df8…0e1e at000b = ╱30╱0╱ // 0xe03 @0xb
0x0df8…0e1e at000c = ╱31╱1╱ // 0xe04 @0xc
0x0df8…0e1e at000d = ╱3e╱>╱ // 0xe05 @0xd
0x0df8…0e1e at000e = ╱46╱F╱ // 0xe06 @0xe
0x0df8…0e1e at000f = ╱69╱i╱ // 0xe07 @0xf
0x0df8…0e1e at0010 = ╱72╱r╱ // 0xe08 @0x10
0x0df8…0e1e at0011 = ╱6d╱m╱ // 0xe09 @0x11
0x0df8…0e1e at0012 = ╱61╱a╱ // 0xe0a @0x12
0x0df8…0e1e at0013 = ╱6e╱n╱ // 0xe0b @0x13
0x0df8…0e1e at0014 = ╱61╱a╱ // 0xe0c @0x14
0x0df8…0e1e at0015 = ╱76╱v╱ // 0xe0d @0x15
0x0df8…0e1e at0016 = ╱6e╱n╱ // 0xe0e @0x16
0x0df8…0e1e at0017 = ╱3a╱:╱ // 0xe0f @0x17
0x0df8…0e1e at0018 = ╱20╱…╱ // 0xe10 @0x18
0x0df8…0e1e at0019 = ╱22╱"╱ // 0xe11 @0x19
0x0df8…0e1e at001a = ╱ea╱ ; ╱ // 0xe12 @0x1a
0x0df8…0e1e at001b = ╱46╱F╱ // 0xe13 @0x1b
0x0df8…0e1e at001c = ╱49╱I╱ // 0xe14 @0x1c
0x0df8…0e1e at001d = ╱52╱R╱ // 0xe15 @0x1d
0x0df8…0e1e at001e = ╱4d╱M╱ // 0xe16 @0x1e
0x0df8…0e1e at001f = ╱41╱A╱ // 0xe17 @0x1f
0x0df8…0e1e at0020 = ╱4e╱N╱ // 0xe18 @0x20
0x0df8…0e1e at0021 = ╱41╱A╱ // 0xe19 @0x21
0x0df8…0e1e at0022 = ╱56╱V╱ // 0xe1a @0x22
0x0df8…0e1e at0023 = ╱4e╱N╱ // 0xe1b @0x23
0x0df8…0e1e at0024 = ╱ef╱ $ ╱ // 0xe1c @0x24
0x0df8…0e1e at0025 = EOL // 0xe1d @0x25
0x0df8…0e1e }
0x0e1e…0e66 a454 01390 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x0e1e…0e66 LineComal80 {
0x0e1e…0e66 ptr = 0xa454 // 0xe1e @0x0
0x0e1e…0e66 lno = 0x056e // 0xe20 @0x2
0x0e1e…0e66 at0004 = ╱92╱ PRINT ╱ // 0xe22 @0x4
0x0e1e…0e66 at0005 = ╱22╱"╱ // 0xe23 @0x5
0x0e1e…0e66 at0006 = ╱3c╱<╱ // 0xe24 @0x6
0x0e1e…0e66 at0007 = ╱53╱S╱ // 0xe25 @0x7
0x0e1e…0e66 at0008 = ╱43╱C╱ // 0xe26 @0x8
0x0e1e…0e66 at0009 = ╱36╱6╱ // 0xe27 @0x9
0x0e1e…0e66 at000a = ╱35╱5╱ // 0xe28 @0xa
0x0e1e…0e66 at000b = ╱30╱0╱ // 0xe29 @0xb
0x0e1e…0e66 at000c = ╱31╱1╱ // 0xe2a @0xc
0x0e1e…0e66 at000d = ╱3e╱>╱ // 0xe2b @0xd
0x0e1e…0e66 at000e = ╱44╱D╱ // 0xe2c @0xe
0x0e1e…0e66 at000f = ╱61╱a╱ // 0xe2d @0xf
0x0e1e…0e66 at0010 = ╱74╱t╱ // 0xe2e @0x10
0x0e1e…0e66 at0011 = ╱6f╱o╱ // 0xe2f @0x11
0x0e1e…0e66 at0012 = ╱3a╱:╱ // 0xe30 @0x12
0x0e1e…0e66 at0013 = ╱20╱…╱ // 0xe31 @0x13
0x0e1e…0e66 at0014 = ╱22╱"╱ // 0xe32 @0x14
0x0e1e…0e66 at0015 = ╱ea╱ ; ╱ // 0xe33 @0x15
0x0e1e…0e66 at0016 = ╱53╱S╱ // 0xe34 @0x16
0x0e1e…0e66 at0017 = ╱59╱Y╱ // 0xe35 @0x17
0x0e1e…0e66 at0018 = ╱53╱S╱ // 0xe36 @0x18
0x0e1e…0e66 at0019 = ╱54╱T╱ // 0xe37 @0x19
0x0e1e…0e66 at001a = ╱5f╱_╱ // 0xe38 @0x1a
0x0e1e…0e66 at001b = ╱44╱D╱ // 0xe39 @0x1b
0x0e1e…0e66 at001c = ╱41╱A╱ // 0xe3a @0x1c
0x0e1e…0e66 at001d = ╱54╱T╱ // 0xe3b @0x1d
0x0e1e…0e66 at001e = ╱ef╱ $ ╱ // 0xe3c @0x1e
0x0e1e…0e66 at001f = ╱ed╱ ( ╱ // 0xe3d @0x1f
0x0e1e…0e66 at0020 = ╱31╱1╱ // 0xe3e @0x20
0x0e1e…0e66 at0021 = ╱f20100╱ // 0xe3f @0x21
0x0e1e…0e66 at0024 = ╱f1╱ : ╱ // 0xe42 @0x24
0x0e1e…0e66 at0025 = ╱32╱2╱ // 0xe43 @0x25
0x0e1e…0e66 at0026 = ╱f20200╱ // 0xe44 @0x26
0x0e1e…0e66 at0029 = ╱ee╱ ) ╱ // 0xe47 @0x29
0x0e1e…0e66 at002a = ╱ea╱ ; ╱ // 0xe48 @0x2a
0x0e1e…0e66 at002b = ╱22╱"╱ // 0xe49 @0x2b
0x0e1e…0e66 at002c = ╱2e╱.╱ // 0xe4a @0x2c
0x0e1e…0e66 at002d = ╱22╱"╱ // 0xe4b @0x2d
0x0e1e…0e66 at002e = ╱ea╱ ; ╱ // 0xe4c @0x2e
0x0e1e…0e66 at002f = ╱53╱S╱ // 0xe4d @0x2f
0x0e1e…0e66 at0030 = ╱59╱Y╱ // 0xe4e @0x30
0x0e1e…0e66 at0031 = ╱53╱S╱ // 0xe4f @0x31
0x0e1e…0e66 at0032 = ╱54╱T╱ // 0xe50 @0x32
0x0e1e…0e66 at0033 = ╱5f╱_╱ // 0xe51 @0x33
0x0e1e…0e66 at0034 = ╱44╱D╱ // 0xe52 @0x34
0x0e1e…0e66 at0035 = ╱41╱A╱ // 0xe53 @0x35
0x0e1e…0e66 at0036 = ╱54╱T╱ // 0xe54 @0x36
0x0e1e…0e66 at0037 = ╱ef╱ $ ╱ // 0xe55 @0x37
0x0e1e…0e66 at0038 = ╱ed╱ ( ╱ // 0xe56 @0x38
0x0e1e…0e66 at0039 = ╱33╱3╱ // 0xe57 @0x39
0x0e1e…0e66 at003a = ╱f20300╱ // 0xe58 @0x3a
0x0e1e…0e66 at003d = ╱f1╱ : ╱ // 0xe5b @0x3d
0x0e1e…0e66 at003e = ╱32╱2╱ // 0xe5c @0x3e
0x0e1e…0e66 at003f = ╱f20200╱ // 0xe5d @0x3f
0x0e1e…0e66 at0042 = ╱ee╱ ) ╱ // 0xe60 @0x42
0x0e1e…0e66 at0043 = ╱ea╱ ; ╱ // 0xe61 @0x43
0x0e1e…0e66 at0044 = ╱22╱"╱ // 0xe62 @0x44
0x0e1e…0e66 at0045 = ╱2e╱.╱ // 0xe63 @0x45
0x0e1e…0e66 at0046 = ╱22╱"╱ // 0xe64 @0x46
0x0e1e…0e66 at0047 = EOL // 0xe65 @0x47
0x0e1e…0e66 }
0x0e66…0e80 a46e 01400 PRINT SYST_DAT $ ( 5 : 2 )
0x0e66…0e80 LineComal80 {
0x0e66…0e80 ptr = 0xa46e // 0xe66 @0x0
0x0e66…0e80 lno = 0x0578 // 0xe68 @0x2
0x0e66…0e80 at0004 = ╱92╱ PRINT ╱ // 0xe6a @0x4
0x0e66…0e80 at0005 = ╱53╱S╱ // 0xe6b @0x5
0x0e66…0e80 at0006 = ╱59╱Y╱ // 0xe6c @0x6
0x0e66…0e80 at0007 = ╱53╱S╱ // 0xe6d @0x7
0x0e66…0e80 at0008 = ╱54╱T╱ // 0xe6e @0x8
0x0e66…0e80 at0009 = ╱5f╱_╱ // 0xe6f @0x9
0x0e66…0e80 at000a = ╱44╱D╱ // 0xe70 @0xa
0x0e66…0e80 at000b = ╱41╱A╱ // 0xe71 @0xb
0x0e66…0e80 at000c = ╱54╱T╱ // 0xe72 @0xc
0x0e66…0e80 at000d = ╱ef╱ $ ╱ // 0xe73 @0xd
0x0e66…0e80 at000e = ╱ed╱ ( ╱ // 0xe74 @0xe
0x0e66…0e80 at000f = ╱35╱5╱ // 0xe75 @0xf
0x0e66…0e80 at0010 = ╱f20500╱ // 0xe76 @0x10
0x0e66…0e80 at0013 = ╱f1╱ : ╱ // 0xe79 @0x13
0x0e66…0e80 at0014 = ╱32╱2╱ // 0xe7a @0x14
0x0e66…0e80 at0015 = ╱f20200╱ // 0xe7b @0x15
0x0e66…0e80 at0018 = ╱ee╱ ) ╱ // 0xe7e @0x18
0x0e66…0e80 at0019 = EOL // 0xe7f @0x19
0x0e66…0e80 }
0x0e80…0e9c a48a 01410 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
0x0e80…0e9c LineComal80 {
0x0e80…0e9c ptr = 0xa48a // 0xe80 @0x0
0x0e80…0e9c lno = 0x0582 // 0xe82 @0x2
0x0e80…0e9c at0004 = ╱a1╱ CURSOR ╱ // 0xe84 @0x4
0x0e80…0e9c at0005 = ╱33╱3╱ // 0xe85 @0x5
0x0e80…0e9c at0006 = ╱34╱4╱ // 0xe86 @0x6
0x0e80…0e9c at0007 = ╱f22200╱ // 0xe87 @0x7
0x0e80…0e9c at000a = ╱e6╱ - ╱ // 0xe8a @0xa
0x0e80…0e9c at000b = ╱c6╱ INT ╱ // 0xe8b @0xb
0x0e80…0e9c at000c = ╱ed╱ ( ╱ // 0xe8c @0xc
0x0e80…0e9c at000d = ╱cb╱ // 0xe8d @0xd
0x0e80…0e9c at000e = ╱ed╱ ( ╱ // 0xe8e @0xe
0x0e80…0e9c at000f = ╱53╱S╱ // 0xe8f @0xf
0x0e80…0e9c at0010 = ╱54╱T╱ // 0xe90 @0x10
0x0e80…0e9c at0011 = ╱ef╱ $ ╱ // 0xe91 @0x11
0x0e80…0e9c at0012 = ╱ee╱ ) ╱ // 0xe92 @0x12
0x0e80…0e9c at0013 = ╱e8╱ / ╱ // 0xe93 @0x13
0x0e80…0e9c at0014 = ╱32╱2╱ // 0xe94 @0x14
0x0e80…0e9c at0015 = ╱f20200╱ // 0xe95 @0x15
0x0e80…0e9c at0018 = ╱ee╱ ) ╱ // 0xe98 @0x18
0x0e80…0e9c at0019 = ╱ec╱ , ╱ // 0xe99 @0x19
0x0e80…0e9c at001a = ╱4c╱L╱ // 0xe9a @0x1a
0x0e80…0e9c at001b = EOL // 0xe9b @0x1b
0x0e80…0e9c }
0x0e9c…0eb3 a4a1 01420 PRINT "***…" ; ST $ ; "…***"
0x0e9c…0eb3 LineComal80 {
0x0e9c…0eb3 ptr = 0xa4a1 // 0xe9c @0x0
0x0e9c…0eb3 lno = 0x058c // 0xe9e @0x2
0x0e9c…0eb3 at0004 = ╱92╱ PRINT ╱ // 0xea0 @0x4
0x0e9c…0eb3 at0005 = ╱22╱"╱ // 0xea1 @0x5
0x0e9c…0eb3 at0006 = ╱2a╱*╱ // 0xea2 @0x6
0x0e9c…0eb3 at0007 = ╱2a╱*╱ // 0xea3 @0x7
0x0e9c…0eb3 at0008 = ╱2a╱*╱ // 0xea4 @0x8
0x0e9c…0eb3 at0009 = ╱20╱…╱ // 0xea5 @0x9
0x0e9c…0eb3 at000a = ╱22╱"╱ // 0xea6 @0xa
0x0e9c…0eb3 at000b = ╱ea╱ ; ╱ // 0xea7 @0xb
0x0e9c…0eb3 at000c = ╱53╱S╱ // 0xea8 @0xc
0x0e9c…0eb3 at000d = ╱54╱T╱ // 0xea9 @0xd
0x0e9c…0eb3 at000e = ╱ef╱ $ ╱ // 0xeaa @0xe
0x0e9c…0eb3 at000f = ╱ea╱ ; ╱ // 0xeab @0xf
0x0e9c…0eb3 at0010 = ╱22╱"╱ // 0xeac @0x10
0x0e9c…0eb3 at0011 = ╱20╱…╱ // 0xead @0x11
0x0e9c…0eb3 at0012 = ╱2a╱*╱ // 0xeae @0x12
0x0e9c…0eb3 at0013 = ╱2a╱*╱ // 0xeaf @0x13
0x0e9c…0eb3 at0014 = ╱2a╱*╱ // 0xeb0 @0x14
0x0e9c…0eb3 at0015 = ╱22╱"╱ // 0xeb1 @0x15
0x0e9c…0eb3 at0016 = EOL // 0xeb2 @0x16
0x0e9c…0eb3 }
0x0eb3…0ec3 a4b1 01430 ENDPROC OVERSKRIFT
0x0eb3…0ec3 LineComal80 {
0x0eb3…0ec3 ptr = 0xa4b1 // 0xeb3 @0x0
0x0eb3…0ec3 lno = 0x0596 // 0xeb5 @0x2
0x0eb3…0ec3 at0004 = ╱9f╱ ENDPROC ╱ // 0xeb7 @0x4
0x0eb3…0ec3 at0005 = ╱4f╱O╱ // 0xeb8 @0x5
0x0eb3…0ec3 at0006 = ╱56╱V╱ // 0xeb9 @0x6
0x0eb3…0ec3 at0007 = ╱45╱E╱ // 0xeba @0x7
0x0eb3…0ec3 at0008 = ╱52╱R╱ // 0xebb @0x8
0x0eb3…0ec3 at0009 = ╱53╱S╱ // 0xebc @0x9
0x0eb3…0ec3 at000a = ╱4b╱K╱ // 0xebd @0xa
0x0eb3…0ec3 at000b = ╱52╱R╱ // 0xebe @0xb
0x0eb3…0ec3 at000c = ╱49╱I╱ // 0xebf @0xc
0x0eb3…0ec3 at000d = ╱46╱F╱ // 0xec0 @0xd
0x0eb3…0ec3 at000e = ╱54╱T╱ // 0xec1 @0xe
0x0eb3…0ec3 at000f = EOL // 0xec2 @0xf
0x0eb3…0ec3 }
0x0ec3…0ec8 a4b6 01440
0x0ec3…0ec8 LineComal80 {
0x0ec3…0ec8 ptr = 0xa4b6 // 0xec3 @0x0
0x0ec3…0ec8 lno = 0x05a0 // 0xec5 @0x2
0x0ec3…0ec8 at0004 = EOL // 0xec7 @0x4
0x0ec3…0ec8 }
0x0ec8…0edb a4c9 01450 PROC SL_FEJLLINIE
0x0ec8…0edb LineComal80 {
0x0ec8…0edb ptr = 0xa4c9 // 0xec8 @0x0
0x0ec8…0edb lno = 0x05aa // 0xeca @0x2
0x0ec8…0edb at0004 = ╱9e14╱ PROC ╱ // 0xecc @0x4
0x0ec8…0edb at0006 = ╱53╱S╱ // 0xece @0x6
0x0ec8…0edb at0007 = ╱4c╱L╱ // 0xecf @0x7
0x0ec8…0edb at0008 = ╱5f╱_╱ // 0xed0 @0x8
0x0ec8…0edb at0009 = ╱46╱F╱ // 0xed1 @0x9
0x0ec8…0edb at000a = ╱45╱E╱ // 0xed2 @0xa
0x0ec8…0edb at000b = ╱4a╱J╱ // 0xed3 @0xb
0x0ec8…0edb at000c = ╱4c╱L╱ // 0xed4 @0xc
0x0ec8…0edb at000d = ╱4c╱L╱ // 0xed5 @0xd
0x0ec8…0edb at000e = ╱49╱I╱ // 0xed6 @0xe
0x0ec8…0edb at000f = ╱4e╱N╱ // 0xed7 @0xf
0x0ec8…0edb at0010 = ╱49╱I╱ // 0xed8 @0x10
0x0ec8…0edb at0011 = ╱45╱E╱ // 0xed9 @0x11
0x0ec8…0edb at0012 = EOL // 0xeda @0x12
0x0ec8…0edb }
0x0edb…0ee8 a4d6 01460 LET OK := TRUE
0x0edb…0ee8 LineComal80 {
0x0edb…0ee8 ptr = 0xa4d6 // 0xedb @0x0
0x0edb…0ee8 lno = 0x05b4 // 0xedd @0x2
0x0edb…0ee8 at0004 = ╱86╱ LET ╱ // 0xedf @0x4
0x0edb…0ee8 at0005 = ╱4f╱O╱ // 0xee0 @0x5
0x0edb…0ee8 at0006 = ╱4b╱K╱ // 0xee1 @0x6
0x0edb…0ee8 at0007 = ╱f0╱ := ╱ // 0xee2 @0x7
0x0edb…0ee8 at0008 = ╱54╱T╱ // 0xee3 @0x8
0x0edb…0ee8 at0009 = ╱52╱R╱ // 0xee4 @0x9
0x0edb…0ee8 at000a = ╱55╱U╱ // 0xee5 @0xa
0x0edb…0ee8 at000b = ╱45╱E╱ // 0xee6 @0xb
0x0edb…0ee8 at000c = EOL // 0xee7 @0xc
0x0edb…0ee8 }
0x0ee8…0efc a4ea 01470 PRINT "<C0102>" ; SPC $
0x0ee8…0efc LineComal80 {
0x0ee8…0efc ptr = 0xa4ea // 0xee8 @0x0
0x0ee8…0efc lno = 0x05be // 0xeea @0x2
0x0ee8…0efc at0004 = ╱92╱ PRINT ╱ // 0xeec @0x4
0x0ee8…0efc at0005 = ╱22╱"╱ // 0xeed @0x5
0x0ee8…0efc at0006 = ╱3c╱<╱ // 0xeee @0x6
0x0ee8…0efc at0007 = ╱43╱C╱ // 0xeef @0x7
0x0ee8…0efc at0008 = ╱30╱0╱ // 0xef0 @0x8
0x0ee8…0efc at0009 = ╱31╱1╱ // 0xef1 @0x9
0x0ee8…0efc at000a = ╱30╱0╱ // 0xef2 @0xa
0x0ee8…0efc at000b = ╱32╱2╱ // 0xef3 @0xb
0x0ee8…0efc at000c = ╱3e╱>╱ // 0xef4 @0xc
0x0ee8…0efc at000d = ╱22╱"╱ // 0xef5 @0xd
0x0ee8…0efc at000e = ╱ea╱ ; ╱ // 0xef6 @0xe
0x0ee8…0efc at000f = ╱53╱S╱ // 0xef7 @0xf
0x0ee8…0efc at0010 = ╱50╱P╱ // 0xef8 @0x10
0x0ee8…0efc at0011 = ╱43╱C╱ // 0xef9 @0x11
0x0ee8…0efc at0012 = ╱ef╱ $ ╱ // 0xefa @0x12
0x0ee8…0efc at0013 = EOL // 0xefb @0x13
0x0ee8…0efc }
0x0efc…0f0e a4fc 01480 ENDPROC SL_FEJLLINIE
0x0efc…0f0e LineComal80 {
0x0efc…0f0e ptr = 0xa4fc // 0xefc @0x0
0x0efc…0f0e lno = 0x05c8 // 0xefe @0x2
0x0efc…0f0e at0004 = ╱9f╱ ENDPROC ╱ // 0xf00 @0x4
0x0efc…0f0e at0005 = ╱53╱S╱ // 0xf01 @0x5
0x0efc…0f0e at0006 = ╱4c╱L╱ // 0xf02 @0x6
0x0efc…0f0e at0007 = ╱5f╱_╱ // 0xf03 @0x7
0x0efc…0f0e at0008 = ╱46╱F╱ // 0xf04 @0x8
0x0efc…0f0e at0009 = ╱45╱E╱ // 0xf05 @0x9
0x0efc…0f0e at000a = ╱4a╱J╱ // 0xf06 @0xa
0x0efc…0f0e at000b = ╱4c╱L╱ // 0xf07 @0xb
0x0efc…0f0e at000c = ╱4c╱L╱ // 0xf08 @0xc
0x0efc…0f0e at000d = ╱49╱I╱ // 0xf09 @0xd
0x0efc…0f0e at000e = ╱4e╱N╱ // 0xf0a @0xe
0x0efc…0f0e at000f = ╱49╱I╱ // 0xf0b @0xf
0x0efc…0f0e at0010 = ╱45╱E╱ // 0xf0c @0x10
0x0efc…0f0e at0011 = EOL // 0xf0d @0x11
0x0efc…0f0e }
0x0f0e…0f13 a501 01490
0x0f0e…0f13 LineComal80 {
0x0f0e…0f13 ptr = 0xa501 // 0xf0e @0x0
0x0f0e…0f13 lno = 0x05d2 // 0xf10 @0x2
0x0f0e…0f13 at0004 = EOL // 0xf12 @0x4
0x0f0e…0f13 }
0x0f13…0f23 a511 01500 PROC FEJL ( ST $ )
0x0f13…0f23 LineComal80 {
0x0f13…0f23 ptr = 0xa511 // 0xf13 @0x0
0x0f13…0f23 lno = 0x05dc // 0xf15 @0x2
0x0f13…0f23 at0004 = ╱9e15╱ PROC ╱ // 0xf17 @0x4
0x0f13…0f23 at0006 = ╱46╱F╱ // 0xf19 @0x6
0x0f13…0f23 at0007 = ╱45╱E╱ // 0xf1a @0x7
0x0f13…0f23 at0008 = ╱4a╱J╱ // 0xf1b @0x8
0x0f13…0f23 at0009 = ╱4c╱L╱ // 0xf1c @0x9
0x0f13…0f23 at000a = ╱ed╱ ( ╱ // 0xf1d @0xa
0x0f13…0f23 at000b = ╱53╱S╱ // 0xf1e @0xb
0x0f13…0f23 at000c = ╱54╱T╱ // 0xf1f @0xc
0x0f13…0f23 at000d = ╱ef╱ $ ╱ // 0xf20 @0xd
0x0f13…0f23 at000e = ╱ee╱ ) ╱ // 0xf21 @0xe
0x0f13…0f23 at000f = EOL // 0xf22 @0xf
0x0f13…0f23 }
0x0f23…0f31 a51f 01510 LET OK := FALSE
0x0f23…0f31 LineComal80 {
0x0f23…0f31 ptr = 0xa51f // 0xf23 @0x0
0x0f23…0f31 lno = 0x05e6 // 0xf25 @0x2
0x0f23…0f31 at0004 = ╱86╱ LET ╱ // 0xf27 @0x4
0x0f23…0f31 at0005 = ╱4f╱O╱ // 0xf28 @0x5
0x0f23…0f31 at0006 = ╱4b╱K╱ // 0xf29 @0x6
0x0f23…0f31 at0007 = ╱f0╱ := ╱ // 0xf2a @0x7
0x0f23…0f31 at0008 = ╱46╱F╱ // 0xf2b @0x8
0x0f23…0f31 at0009 = ╱41╱A╱ // 0xf2c @0x9
0x0f23…0f31 at000a = ╱4c╱L╱ // 0xf2d @0xa
0x0f23…0f31 at000b = ╱53╱S╱ // 0xf2e @0xb
0x0f23…0f31 at000c = ╱45╱E╱ // 0xf2f @0xc
0x0f23…0f31 at000d = EOL // 0xf30 @0xd
0x0f23…0f31 }
0x0f31…0f4f a53d 01520 CURSOR 36 - ( ╱cb╱ ( ST $ ) / 2 ) , 2
0x0f31…0f4f LineComal80 {
0x0f31…0f4f ptr = 0xa53d // 0xf31 @0x0
0x0f31…0f4f lno = 0x05f0 // 0xf33 @0x2
0x0f31…0f4f at0004 = ╱a1╱ CURSOR ╱ // 0xf35 @0x4
0x0f31…0f4f at0005 = ╱33╱3╱ // 0xf36 @0x5
0x0f31…0f4f at0006 = ╱36╱6╱ // 0xf37 @0x6
0x0f31…0f4f at0007 = ╱f22400╱ // 0xf38 @0x7
0x0f31…0f4f at000a = ╱e6╱ - ╱ // 0xf3b @0xa
0x0f31…0f4f at000b = ╱ed╱ ( ╱ // 0xf3c @0xb
0x0f31…0f4f at000c = ╱cb╱ // 0xf3d @0xc
0x0f31…0f4f at000d = ╱ed╱ ( ╱ // 0xf3e @0xd
0x0f31…0f4f at000e = ╱53╱S╱ // 0xf3f @0xe
0x0f31…0f4f at000f = ╱54╱T╱ // 0xf40 @0xf
0x0f31…0f4f at0010 = ╱ef╱ $ ╱ // 0xf41 @0x10
0x0f31…0f4f at0011 = ╱ee╱ ) ╱ // 0xf42 @0x11
0x0f31…0f4f at0012 = ╱e8╱ / ╱ // 0xf43 @0x12
0x0f31…0f4f at0013 = ╱32╱2╱ // 0xf44 @0x13
0x0f31…0f4f at0014 = ╱f20200╱ // 0xf45 @0x14
0x0f31…0f4f at0017 = ╱ee╱ ) ╱ // 0xf48 @0x17
0x0f31…0f4f at0018 = ╱ec╱ , ╱ // 0xf49 @0x18
0x0f31…0f4f at0019 = ╱32╱2╱ // 0xf4a @0x19
0x0f31…0f4f at001a = ╱f20200╱ // 0xf4b @0x1a
0x0f31…0f4f at001d = EOL // 0xf4e @0x1d
0x0f31…0f4f }
0x0f4f…0f71 a55f 01530 PRINT "<S>***…" + ST $ + "…***" ; CHR$ ( 7 )
0x0f4f…0f71 LineComal80 {
0x0f4f…0f71 ptr = 0xa55f // 0xf4f @0x0
0x0f4f…0f71 lno = 0x05fa // 0xf51 @0x2
0x0f4f…0f71 at0004 = ╱92╱ PRINT ╱ // 0xf53 @0x4
0x0f4f…0f71 at0005 = ╱22╱"╱ // 0xf54 @0x5
0x0f4f…0f71 at0006 = ╱3c╱<╱ // 0xf55 @0x6
0x0f4f…0f71 at0007 = ╱53╱S╱ // 0xf56 @0x7
0x0f4f…0f71 at0008 = ╱3e╱>╱ // 0xf57 @0x8
0x0f4f…0f71 at0009 = ╱2a╱*╱ // 0xf58 @0x9
0x0f4f…0f71 at000a = ╱2a╱*╱ // 0xf59 @0xa
0x0f4f…0f71 at000b = ╱2a╱*╱ // 0xf5a @0xb
0x0f4f…0f71 at000c = ╱20╱…╱ // 0xf5b @0xc
0x0f4f…0f71 at000d = ╱22╱"╱ // 0xf5c @0xd
0x0f4f…0f71 at000e = ╱eb╱ + ╱ // 0xf5d @0xe
0x0f4f…0f71 at000f = ╱53╱S╱ // 0xf5e @0xf
0x0f4f…0f71 at0010 = ╱54╱T╱ // 0xf5f @0x10
0x0f4f…0f71 at0011 = ╱ef╱ $ ╱ // 0xf60 @0x11
0x0f4f…0f71 at0012 = ╱eb╱ + ╱ // 0xf61 @0x12
0x0f4f…0f71 at0013 = ╱22╱"╱ // 0xf62 @0x13
0x0f4f…0f71 at0014 = ╱20╱…╱ // 0xf63 @0x14
0x0f4f…0f71 at0015 = ╱2a╱*╱ // 0xf64 @0x15
0x0f4f…0f71 at0016 = ╱2a╱*╱ // 0xf65 @0x16
0x0f4f…0f71 at0017 = ╱2a╱*╱ // 0xf66 @0x17
0x0f4f…0f71 at0018 = ╱22╱"╱ // 0xf67 @0x18
0x0f4f…0f71 at0019 = ╱ea╱ ; ╱ // 0xf68 @0x19
0x0f4f…0f71 at001a = ╱d0╱ CHR$ ╱ // 0xf69 @0x1a
0x0f4f…0f71 at001b = ╱ed╱ ( ╱ // 0xf6a @0x1b
0x0f4f…0f71 at001c = ╱37╱7╱ // 0xf6b @0x1c
0x0f4f…0f71 at001d = ╱f20700╱ // 0xf6c @0x1d
0x0f4f…0f71 at0020 = ╱ee╱ ) ╱ // 0xf6f @0x20
0x0f4f…0f71 at0021 = EOL // 0xf70 @0x21
0x0f4f…0f71 }
0x0f71…0f7b a569 01540 ENDPROC FEJL
0x0f71…0f7b LineComal80 {
0x0f71…0f7b ptr = 0xa569 // 0xf71 @0x0
0x0f71…0f7b lno = 0x0604 // 0xf73 @0x2
0x0f71…0f7b at0004 = ╱9f╱ ENDPROC ╱ // 0xf75 @0x4
0x0f71…0f7b at0005 = ╱46╱F╱ // 0xf76 @0x5
0x0f71…0f7b at0006 = ╱45╱E╱ // 0xf77 @0x6
0x0f71…0f7b at0007 = ╱4a╱J╱ // 0xf78 @0x7
0x0f71…0f7b at0008 = ╱4c╱L╱ // 0xf79 @0x8
0x0f71…0f7b at0009 = EOL // 0xf7a @0x9
0x0f71…0f7b }
0x0f7b…0f80 a56e 01550
0x0f7b…0f80 LineComal80 {
0x0f7b…0f80 ptr = 0xa56e // 0xf7b @0x0
0x0f7b…0f80 lno = 0x060e // 0xf7d @0x2
0x0f7b…0f80 at0004 = EOL // 0xf7f @0x4
0x0f7b…0f80 }
0x0f80…0f96 a584 01560 PROC OPRET_RET_KONTI
0x0f80…0f96 LineComal80 {
0x0f80…0f96 ptr = 0xa584 // 0xf80 @0x0
0x0f80…0f96 lno = 0x0618 // 0xf82 @0x2
0x0f80…0f96 at0004 = ╱9e16╱ PROC ╱ // 0xf84 @0x4
0x0f80…0f96 at0006 = ╱4f╱O╱ // 0xf86 @0x6
0x0f80…0f96 at0007 = ╱50╱P╱ // 0xf87 @0x7
0x0f80…0f96 at0008 = ╱52╱R╱ // 0xf88 @0x8
0x0f80…0f96 at0009 = ╱45╱E╱ // 0xf89 @0x9
0x0f80…0f96 at000a = ╱54╱T╱ // 0xf8a @0xa
0x0f80…0f96 at000b = ╱5f╱_╱ // 0xf8b @0xb
0x0f80…0f96 at000c = ╱52╱R╱ // 0xf8c @0xc
0x0f80…0f96 at000d = ╱45╱E╱ // 0xf8d @0xd
0x0f80…0f96 at000e = ╱54╱T╱ // 0xf8e @0xe
0x0f80…0f96 at000f = ╱5f╱_╱ // 0xf8f @0xf
0x0f80…0f96 at0010 = ╱4b╱K╱ // 0xf90 @0x10
0x0f80…0f96 at0011 = ╱4f╱O╱ // 0xf91 @0x11
0x0f80…0f96 at0012 = ╱4e╱N╱ // 0xf92 @0x12
0x0f80…0f96 at0013 = ╱54╱T╱ // 0xf93 @0x13
0x0f80…0f96 at0014 = ╱49╱I╱ // 0xf94 @0x14
0x0f80…0f96 at0015 = EOL // 0xf95 @0x15
0x0f80…0f96 }
0x0f96…0f9d a58b 01570 REPEAT
0x0f96…0f9d LineComal80 {
0x0f96…0f9d ptr = 0xa58b // 0xf96 @0x0
0x0f96…0f9d lno = 0x0622 // 0xf98 @0x2
0x0f96…0f9d at0004 = ╱9717╱ REPEAT ╱ // 0xf9a @0x4
0x0f96…0f9d at0006 = EOL // 0xf9c @0x6
0x0f96…0f9d }
0x0f9d…0fca a5b8 01580 LET A_KTONR $ := "" ; A_KTO_TYPE $ := "" ; KTO_NAVN $ := ""
0x0f9d…0fca LineComal80 {
0x0f9d…0fca ptr = 0xa5b8 // 0xf9d @0x0
0x0f9d…0fca lno = 0x062c // 0xf9f @0x2
0x0f9d…0fca at0004 = ╱86╱ LET ╱ // 0xfa1 @0x4
0x0f9d…0fca at0005 = ╱41╱A╱ // 0xfa2 @0x5
0x0f9d…0fca at0006 = ╱5f╱_╱ // 0xfa3 @0x6
0x0f9d…0fca at0007 = ╱4b╱K╱ // 0xfa4 @0x7
0x0f9d…0fca at0008 = ╱54╱T╱ // 0xfa5 @0x8
0x0f9d…0fca at0009 = ╱4f╱O╱ // 0xfa6 @0x9
0x0f9d…0fca at000a = ╱4e╱N╱ // 0xfa7 @0xa
0x0f9d…0fca at000b = ╱52╱R╱ // 0xfa8 @0xb
0x0f9d…0fca at000c = ╱ef╱ $ ╱ // 0xfa9 @0xc
0x0f9d…0fca at000d = ╱f0╱ := ╱ // 0xfaa @0xd
0x0f9d…0fca at000e = ╱22╱"╱ // 0xfab @0xe
0x0f9d…0fca at000f = ╱22╱"╱ // 0xfac @0xf
0x0f9d…0fca at0010 = ╱ea╱ ; ╱ // 0xfad @0x10
0x0f9d…0fca at0011 = ╱41╱A╱ // 0xfae @0x11
0x0f9d…0fca at0012 = ╱5f╱_╱ // 0xfaf @0x12
0x0f9d…0fca at0013 = ╱4b╱K╱ // 0xfb0 @0x13
0x0f9d…0fca at0014 = ╱54╱T╱ // 0xfb1 @0x14
0x0f9d…0fca at0015 = ╱4f╱O╱ // 0xfb2 @0x15
0x0f9d…0fca at0016 = ╱5f╱_╱ // 0xfb3 @0x16
0x0f9d…0fca at0017 = ╱54╱T╱ // 0xfb4 @0x17
0x0f9d…0fca at0018 = ╱59╱Y╱ // 0xfb5 @0x18
0x0f9d…0fca at0019 = ╱50╱P╱ // 0xfb6 @0x19
0x0f9d…0fca at001a = ╱45╱E╱ // 0xfb7 @0x1a
0x0f9d…0fca at001b = ╱ef╱ $ ╱ // 0xfb8 @0x1b
0x0f9d…0fca at001c = ╱f0╱ := ╱ // 0xfb9 @0x1c
0x0f9d…0fca at001d = ╱22╱"╱ // 0xfba @0x1d
0x0f9d…0fca at001e = ╱22╱"╱ // 0xfbb @0x1e
0x0f9d…0fca at001f = ╱ea╱ ; ╱ // 0xfbc @0x1f
0x0f9d…0fca at0020 = ╱4b╱K╱ // 0xfbd @0x20
0x0f9d…0fca at0021 = ╱54╱T╱ // 0xfbe @0x21
0x0f9d…0fca at0022 = ╱4f╱O╱ // 0xfbf @0x22
0x0f9d…0fca at0023 = ╱5f╱_╱ // 0xfc0 @0x23
0x0f9d…0fca at0024 = ╱4e╱N╱ // 0xfc1 @0x24
0x0f9d…0fca at0025 = ╱41╱A╱ // 0xfc2 @0x25
0x0f9d…0fca at0026 = ╱56╱V╱ // 0xfc3 @0x26
0x0f9d…0fca at0027 = ╱4e╱N╱ // 0xfc4 @0x27
0x0f9d…0fca at0028 = ╱ef╱ $ ╱ // 0xfc5 @0x28
0x0f9d…0fca at0029 = ╱f0╱ := ╱ // 0xfc6 @0x29
0x0f9d…0fca at002a = ╱22╱"╱ // 0xfc7 @0x2a
0x0f9d…0fca at002b = ╱22╱"╱ // 0xfc8 @0x2b
0x0f9d…0fca at002c = EOL // 0xfc9 @0x2c
0x0f9d…0fca }
0x0fca…0ff2 b748 01590 EXEC OVERSKRIFT ( "Opret/ret…konti" , 6 )
0x0fca…0ff2 LineComal80 {
0x0fca…0ff2 ptr = 0xb748 // 0xfca @0x0
0x0fca…0ff2 lno = 0x0636 // 0xfcc @0x2
0x0fca…0ff2 at0004 = ╱9d╱ EXEC ╱ // 0xfce @0x4
0x0fca…0ff2 at0005 = ╱4f╱O╱ // 0xfcf @0x5
0x0fca…0ff2 at0006 = ╱56╱V╱ // 0xfd0 @0x6
0x0fca…0ff2 at0007 = ╱45╱E╱ // 0xfd1 @0x7
0x0fca…0ff2 at0008 = ╱52╱R╱ // 0xfd2 @0x8
0x0fca…0ff2 at0009 = ╱53╱S╱ // 0xfd3 @0x9
0x0fca…0ff2 at000a = ╱4b╱K╱ // 0xfd4 @0xa
0x0fca…0ff2 at000b = ╱52╱R╱ // 0xfd5 @0xb
0x0fca…0ff2 at000c = ╱49╱I╱ // 0xfd6 @0xc
0x0fca…0ff2 at000d = ╱46╱F╱ // 0xfd7 @0xd
0x0fca…0ff2 at000e = ╱54╱T╱ // 0xfd8 @0xe
0x0fca…0ff2 at000f = ╱ed╱ ( ╱ // 0xfd9 @0xf
0x0fca…0ff2 at0010 = ╱22╱"╱ // 0xfda @0x10
0x0fca…0ff2 at0011 = ╱4f╱O╱ // 0xfdb @0x11
0x0fca…0ff2 at0012 = ╱70╱p╱ // 0xfdc @0x12
0x0fca…0ff2 at0013 = ╱72╱r╱ // 0xfdd @0x13
0x0fca…0ff2 at0014 = ╱65╱e╱ // 0xfde @0x14
0x0fca…0ff2 at0015 = ╱74╱t╱ // 0xfdf @0x15
0x0fca…0ff2 at0016 = ╱2f╱/╱ // 0xfe0 @0x16
0x0fca…0ff2 at0017 = ╱72╱r╱ // 0xfe1 @0x17
0x0fca…0ff2 at0018 = ╱65╱e╱ // 0xfe2 @0x18
0x0fca…0ff2 at0019 = ╱74╱t╱ // 0xfe3 @0x19
0x0fca…0ff2 at001a = ╱20╱…╱ // 0xfe4 @0x1a
0x0fca…0ff2 at001b = ╱6b╱k╱ // 0xfe5 @0x1b
0x0fca…0ff2 at001c = ╱6f╱o╱ // 0xfe6 @0x1c
0x0fca…0ff2 at001d = ╱6e╱n╱ // 0xfe7 @0x1d
0x0fca…0ff2 at001e = ╱74╱t╱ // 0xfe8 @0x1e
0x0fca…0ff2 at001f = ╱69╱i╱ // 0xfe9 @0x1f
0x0fca…0ff2 at0020 = ╱22╱"╱ // 0xfea @0x20
0x0fca…0ff2 at0021 = ╱ec╱ , ╱ // 0xfeb @0x21
0x0fca…0ff2 at0022 = ╱36╱6╱ // 0xfec @0x22
0x0fca…0ff2 at0023 = ╱f20600╱ // 0xfed @0x23
0x0fca…0ff2 at0026 = ╱ee╱ ) ╱ // 0xff0 @0x26
0x0fca…0ff2 at0027 = EOL // 0xff1 @0x27
0x0fca…0ff2 }
0x0ff2…1005 a5f3 01600 FOR I := 1 TO DO
0x0ff2…1005 LineComal80 {
0x0ff2…1005 ptr = 0xa5f3 // 0xff2 @0x0
0x0ff2…1005 lno = 0x0640 // 0xff4 @0x2
0x0ff2…1005 at0004 = ╱8318╱ FOR ╱ // 0xff6 @0x4
0x0ff2…1005 at0006 = ╱49╱I╱ // 0xff8 @0x6
0x0ff2…1005 at0007 = ╱f0╱ := ╱ // 0xff9 @0x7
0x0ff2…1005 at0008 = ╱31╱1╱ // 0xffa @0x8
0x0ff2…1005 at0009 = ╱f20100╱ // 0xffb @0x9
0x0ff2…1005 at000c = ╱b733╱ TO ╱ // 0xffe @0xc
0x0ff2…1005 at000e = ╱f20300╱ // 0x1000 @0xe
0x0ff2…1005 at0011 = ╱bb╱ DO ╱ // 0x1003 @0x11
0x0ff2…1005 at0012 = EOL // 0x1004 @0x12
0x0ff2…1005 }
0x1005…1017 a605 01610 EXEC RET_LINIE ( I )
0x1005…1017 LineComal80 {
0x1005…1017 ptr = 0xa605 // 0x1005 @0x0
0x1005…1017 lno = 0x064a // 0x1007 @0x2
0x1005…1017 at0004 = ╱9d╱ EXEC ╱ // 0x1009 @0x4
0x1005…1017 at0005 = ╱52╱R╱ // 0x100a @0x5
0x1005…1017 at0006 = ╱45╱E╱ // 0x100b @0x6
0x1005…1017 at0007 = ╱54╱T╱ // 0x100c @0x7
0x1005…1017 at0008 = ╱5f╱_╱ // 0x100d @0x8
0x1005…1017 at0009 = ╱4c╱L╱ // 0x100e @0x9
0x1005…1017 at000a = ╱49╱I╱ // 0x100f @0xa
0x1005…1017 at000b = ╱4e╱N╱ // 0x1010 @0xb
0x1005…1017 at000c = ╱49╱I╱ // 0x1011 @0xc
0x1005…1017 at000d = ╱45╱E╱ // 0x1012 @0xd
0x1005…1017 at000e = ╱ed╱ ( ╱ // 0x1013 @0xe
0x1005…1017 at000f = ╱49╱I╱ // 0x1014 @0xf
0x1005…1017 at0010 = ╱ee╱ ) ╱ // 0x1015 @0x10
0x1005…1017 at0011 = EOL // 0x1016 @0x11
0x1005…1017 }
0x1017…101e a60c 01620 NEXT I
0x1017…101e LineComal80 {
0x1017…101e ptr = 0xa60c // 0x1017 @0x0
0x1017…101e lno = 0x0654 // 0x1019 @0x2
0x1017…101e at0004 = ╱84╱ NEXT ╱ // 0x101b @0x4
0x1017…101e at0005 = ╱49╱I╱ // 0x101c @0x5
0x1017…101e at0006 = EOL // 0x101d @0x6
0x1017…101e }
0x101e…1025 a613 01630 REPEAT
0x101e…1025 LineComal80 {
0x101e…1025 ptr = 0xa613 // 0x101e @0x0
0x101e…1025 lno = 0x065e // 0x1020 @0x2
0x101e…1025 at0004 = ╱9719╱ REPEAT ╱ // 0x1022 @0x4
0x101e…1025 at0006 = EOL // 0x1024 @0x6
0x101e…1025 }
0x1025…1034 a622 01640 LET SVAR $ := "…"
0x1025…1034 LineComal80 {
0x1025…1034 ptr = 0xa622 // 0x1025 @0x0
0x1025…1034 lno = 0x0668 // 0x1027 @0x2
0x1025…1034 at0004 = ╱86╱ LET ╱ // 0x1029 @0x4
0x1025…1034 at0005 = ╱53╱S╱ // 0x102a @0x5
0x1025…1034 at0006 = ╱56╱V╱ // 0x102b @0x6
0x1025…1034 at0007 = ╱41╱A╱ // 0x102c @0x7
0x1025…1034 at0008 = ╱52╱R╱ // 0x102d @0x8
0x1025…1034 at0009 = ╱ef╱ $ ╱ // 0x102e @0x9
0x1025…1034 at000a = ╱f0╱ := ╱ // 0x102f @0xa
0x1025…1034 at000b = ╱22╱"╱ // 0x1030 @0xb
0x1025…1034 at000c = ╱20╱…╱ // 0x1031 @0xc
0x1025…1034 at000d = ╱22╱"╱ // 0x1032 @0xd
0x1025…1034 at000e = EOL // 0x1033 @0xe
0x1025…1034 }
0x1034…103b a629 01650 REPEAT
0x1034…103b LineComal80 {
0x1034…103b ptr = 0xa629 // 0x1034 @0x0
0x1034…103b lno = 0x0672 // 0x1036 @0x2
0x1034…103b at0004 = ╱971a╱ REPEAT ╱ // 0x1038 @0x4
0x1034…103b at0006 = EOL // 0x103a @0x6
0x1034…103b }
0x103b…105c a64a 01660 PRINT "<SC0118>" ; SPC $ ( 1 : 78 )
0x103b…105c LineComal80 {
0x103b…105c ptr = 0xa64a // 0x103b @0x0
0x103b…105c lno = 0x067c // 0x103d @0x2
0x103b…105c at0004 = ╱92╱ PRINT ╱ // 0x103f @0x4
0x103b…105c at0005 = ╱22╱"╱ // 0x1040 @0x5
0x103b…105c at0006 = ╱3c╱<╱ // 0x1041 @0x6
0x103b…105c at0007 = ╱53╱S╱ // 0x1042 @0x7
0x103b…105c at0008 = ╱43╱C╱ // 0x1043 @0x8
0x103b…105c at0009 = ╱30╱0╱ // 0x1044 @0x9
0x103b…105c at000a = ╱31╱1╱ // 0x1045 @0xa
0x103b…105c at000b = ╱31╱1╱ // 0x1046 @0xb
0x103b…105c at000c = ╱38╱8╱ // 0x1047 @0xc
0x103b…105c at000d = ╱3e╱>╱ // 0x1048 @0xd
0x103b…105c at000e = ╱22╱"╱ // 0x1049 @0xe
0x103b…105c at000f = ╱ea╱ ; ╱ // 0x104a @0xf
0x103b…105c at0010 = ╱53╱S╱ // 0x104b @0x10
0x103b…105c at0011 = ╱50╱P╱ // 0x104c @0x11
0x103b…105c at0012 = ╱43╱C╱ // 0x104d @0x12
0x103b…105c at0013 = ╱ef╱ $ ╱ // 0x104e @0x13
0x103b…105c at0014 = ╱ed╱ ( ╱ // 0x104f @0x14
0x103b…105c at0015 = ╱31╱1╱ // 0x1050 @0x15
0x103b…105c at0016 = ╱f20100╱ // 0x1051 @0x16
0x103b…105c at0019 = ╱f1╱ : ╱ // 0x1054 @0x19
0x103b…105c at001a = ╱37╱7╱ // 0x1055 @0x1a
0x103b…105c at001b = ╱38╱8╱ // 0x1056 @0x1b
0x103b…105c at001c = ╱f24e00╱ // 0x1057 @0x1c
0x103b…105c at001f = ╱ee╱ ) ╱ // 0x105a @0x1f
0x103b…105c at0020 = EOL // 0x105b @0x20
0x103b…105c }
0x105c…1069 a657 01670 IF PRET THEN
0x105c…1069 LineComal80 {
0x105c…1069 ptr = 0xa657 // 0x105c @0x0
0x105c…1069 lno = 0x0686 // 0x105e @0x2
0x105c…1069 at0004 = ╱9b1b4f╱ IF ╱ // 0x1060 @0x4
0x105c…1069 at0007 = ╱50╱P╱ // 0x1063 @0x7
0x105c…1069 at0008 = ╱52╱R╱ // 0x1064 @0x8
0x105c…1069 at0009 = ╱45╱E╱ // 0x1065 @0x9
0x105c…1069 at000a = ╱54╱T╱ // 0x1066 @0xa
0x105c…1069 at000b = ╱b5╱ THEN ╱ // 0x1067 @0xb
0x105c…1069 at000c = EOL // 0x1068 @0xc
0x105c…1069 }
0x1069…108c a67a 01680 GET KONTO $ , 1 : N_FRIREC , N_MAXREC
0x1069…108c LineComal80 {
0x1069…108c ptr = 0xa67a // 0x1069 @0x0
0x1069…108c lno = 0x0690 // 0x106b @0x2
0x1069…108c at0004 = ╱a9╱ GET ╱ // 0x106d @0x4
0x1069…108c at0005 = ╱4b╱K╱ // 0x106e @0x5
0x1069…108c at0006 = ╱4f╱O╱ // 0x106f @0x6
0x1069…108c at0007 = ╱4e╱N╱ // 0x1070 @0x7
0x1069…108c at0008 = ╱54╱T╱ // 0x1071 @0x8
0x1069…108c at0009 = ╱4f╱O╱ // 0x1072 @0x9
0x1069…108c at000a = ╱ef╱ $ ╱ // 0x1073 @0xa
0x1069…108c at000b = ╱ec╱ , ╱ // 0x1074 @0xb
0x1069…108c at000c = ╱31╱1╱ // 0x1075 @0xc
0x1069…108c at000d = ╱f20100╱ // 0x1076 @0xd
0x1069…108c at0010 = ╱f1╱ : ╱ // 0x1079 @0x10
0x1069…108c at0011 = ╱4e╱N╱ // 0x107a @0x11
0x1069…108c at0012 = ╱5f╱_╱ // 0x107b @0x12
0x1069…108c at0013 = ╱46╱F╱ // 0x107c @0x13
0x1069…108c at0014 = ╱52╱R╱ // 0x107d @0x14
0x1069…108c at0015 = ╱49╱I╱ // 0x107e @0x15
0x1069…108c at0016 = ╱52╱R╱ // 0x107f @0x16
0x1069…108c at0017 = ╱45╱E╱ // 0x1080 @0x17
0x1069…108c at0018 = ╱43╱C╱ // 0x1081 @0x18
0x1069…108c at0019 = ╱ec╱ , ╱ // 0x1082 @0x19
0x1069…108c at001a = ╱4e╱N╱ // 0x1083 @0x1a
0x1069…108c at001b = ╱5f╱_╱ // 0x1084 @0x1b
0x1069…108c at001c = ╱4d╱M╱ // 0x1085 @0x1c
0x1069…108c at001d = ╱41╱A╱ // 0x1086 @0x1d
0x1069…108c at001e = ╱58╱X╱ // 0x1087 @0x1e
0x1069…108c at001f = ╱52╱R╱ // 0x1088 @0x1f
0x1069…108c at0020 = ╱45╱E╱ // 0x1089 @0x20
0x1069…108c at0021 = ╱43╱C╱ // 0x108a @0x21
0x1069…108c at0022 = EOL // 0x108b @0x22
0x1069…108c }
0x108c…10a5 a693 01690 IF _FRIREC > N_MAXREC THEN
0x108c…10a5 LineComal80 {
0x108c…10a5 ptr = 0xa693 // 0x108c @0x0
0x108c…10a5 lno = 0x069a // 0x108e @0x2
0x108c…10a5 at0004 = ╱9b1c4e╱ IF ╱ // 0x1090 @0x4
0x108c…10a5 at0007 = ╱5f╱_╱ // 0x1093 @0x7
0x108c…10a5 at0008 = ╱46╱F╱ // 0x1094 @0x8
0x108c…10a5 at0009 = ╱52╱R╱ // 0x1095 @0x9
0x108c…10a5 at000a = ╱49╱I╱ // 0x1096 @0xa
0x108c…10a5 at000b = ╱52╱R╱ // 0x1097 @0xb
0x108c…10a5 at000c = ╱45╱E╱ // 0x1098 @0xc
0x108c…10a5 at000d = ╱43╱C╱ // 0x1099 @0xd
0x108c…10a5 at000e = ╱e1╱ > ╱ // 0x109a @0xe
0x108c…10a5 at000f = ╱4e╱N╱ // 0x109b @0xf
0x108c…10a5 at0010 = ╱5f╱_╱ // 0x109c @0x10
0x108c…10a5 at0011 = ╱4d╱M╱ // 0x109d @0x11
0x108c…10a5 at0012 = ╱41╱A╱ // 0x109e @0x12
0x108c…10a5 at0013 = ╱58╱X╱ // 0x109f @0x13
0x108c…10a5 at0014 = ╱52╱R╱ // 0x10a0 @0x14
0x108c…10a5 at0015 = ╱45╱E╱ // 0x10a1 @0x15
0x108c…10a5 at0016 = ╱43╱C╱ // 0x10a2 @0x16
0x108c…10a5 at0017 = ╱b5╱ THEN ╱ // 0x10a3 @0x17
0x108c…10a5 at0018 = EOL // 0x10a4 @0x18
0x108c…10a5 }
0x10a5…10d4 a6c2 01700 EXEC FEJL ( "Der…kan…ikke…oprettes…flere…konti" )
0x10a5…10d4 LineComal80 {
0x10a5…10d4 ptr = 0xa6c2 // 0x10a5 @0x0
0x10a5…10d4 lno = 0x06a4 // 0x10a7 @0x2
0x10a5…10d4 at0004 = ╱9d╱ EXEC ╱ // 0x10a9 @0x4
0x10a5…10d4 at0005 = ╱46╱F╱ // 0x10aa @0x5
0x10a5…10d4 at0006 = ╱45╱E╱ // 0x10ab @0x6
0x10a5…10d4 at0007 = ╱4a╱J╱ // 0x10ac @0x7
0x10a5…10d4 at0008 = ╱4c╱L╱ // 0x10ad @0x8
0x10a5…10d4 at0009 = ╱ed╱ ( ╱ // 0x10ae @0x9
0x10a5…10d4 at000a = ╱22╱"╱ // 0x10af @0xa
0x10a5…10d4 at000b = ╱44╱D╱ // 0x10b0 @0xb
0x10a5…10d4 at000c = ╱65╱e╱ // 0x10b1 @0xc
0x10a5…10d4 at000d = ╱72╱r╱ // 0x10b2 @0xd
0x10a5…10d4 at000e = ╱20╱…╱ // 0x10b3 @0xe
0x10a5…10d4 at000f = ╱6b╱k╱ // 0x10b4 @0xf
0x10a5…10d4 at0010 = ╱61╱a╱ // 0x10b5 @0x10
0x10a5…10d4 at0011 = ╱6e╱n╱ // 0x10b6 @0x11
0x10a5…10d4 at0012 = ╱20╱…╱ // 0x10b7 @0x12
0x10a5…10d4 at0013 = ╱69╱i╱ // 0x10b8 @0x13
0x10a5…10d4 at0014 = ╱6b╱k╱ // 0x10b9 @0x14
0x10a5…10d4 at0015 = ╱6b╱k╱ // 0x10ba @0x15
0x10a5…10d4 at0016 = ╱65╱e╱ // 0x10bb @0x16
0x10a5…10d4 at0017 = ╱20╱…╱ // 0x10bc @0x17
0x10a5…10d4 at0018 = ╱6f╱o╱ // 0x10bd @0x18
0x10a5…10d4 at0019 = ╱70╱p╱ // 0x10be @0x19
0x10a5…10d4 at001a = ╱72╱r╱ // 0x10bf @0x1a
0x10a5…10d4 at001b = ╱65╱e╱ // 0x10c0 @0x1b
0x10a5…10d4 at001c = ╱74╱t╱ // 0x10c1 @0x1c
0x10a5…10d4 at001d = ╱74╱t╱ // 0x10c2 @0x1d
0x10a5…10d4 at001e = ╱65╱e╱ // 0x10c3 @0x1e
0x10a5…10d4 at001f = ╱73╱s╱ // 0x10c4 @0x1f
0x10a5…10d4 at0020 = ╱20╱…╱ // 0x10c5 @0x20
0x10a5…10d4 at0021 = ╱66╱f╱ // 0x10c6 @0x21
0x10a5…10d4 at0022 = ╱6c╱l╱ // 0x10c7 @0x22
0x10a5…10d4 at0023 = ╱65╱e╱ // 0x10c8 @0x23
0x10a5…10d4 at0024 = ╱72╱r╱ // 0x10c9 @0x24
0x10a5…10d4 at0025 = ╱65╱e╱ // 0x10ca @0x25
0x10a5…10d4 at0026 = ╱20╱…╱ // 0x10cb @0x26
0x10a5…10d4 at0027 = ╱6b╱k╱ // 0x10cc @0x27
0x10a5…10d4 at0028 = ╱6f╱o╱ // 0x10cd @0x28
0x10a5…10d4 at0029 = ╱6e╱n╱ // 0x10ce @0x29
0x10a5…10d4 at002a = ╱74╱t╱ // 0x10cf @0x2a
0x10a5…10d4 at002b = ╱69╱i╱ // 0x10d0 @0x2b
0x10a5…10d4 at002c = ╱22╱"╱ // 0x10d1 @0x2c
0x10a5…10d4 at002d = ╱ee╱ ) ╱ // 0x10d2 @0x2d
0x10a5…10d4 at002e = EOL // 0x10d3 @0x2e
0x10a5…10d4 }
0x10d4…10f7 b725 01710 INPUT "<SC6524>Tryk…<RETURN>" : SVAR $
0x10d4…10f7 LineComal80 {
0x10d4…10f7 ptr = 0xb725 // 0x10d4 @0x0
0x10d4…10f7 lno = 0x06ae // 0x10d6 @0x2
0x10d4…10f7 at0004 = ╱91╱ INPUT ╱ // 0x10d8 @0x4
0x10d4…10f7 at0005 = ╱22╱"╱ // 0x10d9 @0x5
0x10d4…10f7 at0006 = ╱3c╱<╱ // 0x10da @0x6
0x10d4…10f7 at0007 = ╱53╱S╱ // 0x10db @0x7
0x10d4…10f7 at0008 = ╱43╱C╱ // 0x10dc @0x8
0x10d4…10f7 at0009 = ╱36╱6╱ // 0x10dd @0x9
0x10d4…10f7 at000a = ╱35╱5╱ // 0x10de @0xa
0x10d4…10f7 at000b = ╱32╱2╱ // 0x10df @0xb
0x10d4…10f7 at000c = ╱34╱4╱ // 0x10e0 @0xc
0x10d4…10f7 at000d = ╱3e╱>╱ // 0x10e1 @0xd
0x10d4…10f7 at000e = ╱54╱T╱ // 0x10e2 @0xe
0x10d4…10f7 at000f = ╱72╱r╱ // 0x10e3 @0xf
0x10d4…10f7 at0010 = ╱79╱y╱ // 0x10e4 @0x10
0x10d4…10f7 at0011 = ╱6b╱k╱ // 0x10e5 @0x11
0x10d4…10f7 at0012 = ╱20╱…╱ // 0x10e6 @0x12
0x10d4…10f7 at0013 = ╱3c╱<╱ // 0x10e7 @0x13
0x10d4…10f7 at0014 = ╱52╱R╱ // 0x10e8 @0x14
0x10d4…10f7 at0015 = ╱45╱E╱ // 0x10e9 @0x15
0x10d4…10f7 at0016 = ╱54╱T╱ // 0x10ea @0x16
0x10d4…10f7 at0017 = ╱55╱U╱ // 0x10eb @0x17
0x10d4…10f7 at0018 = ╱52╱R╱ // 0x10ec @0x18
0x10d4…10f7 at0019 = ╱4e╱N╱ // 0x10ed @0x19
0x10d4…10f7 at001a = ╱3e╱>╱ // 0x10ee @0x1a
0x10d4…10f7 at001b = ╱22╱"╱ // 0x10ef @0x1b
0x10d4…10f7 at001c = ╱f1╱ : ╱ // 0x10f0 @0x1c
0x10d4…10f7 at001d = ╱53╱S╱ // 0x10f1 @0x1d
0x10d4…10f7 at001e = ╱56╱V╱ // 0x10f2 @0x1e
0x10d4…10f7 at001f = ╱41╱A╱ // 0x10f3 @0x1f
0x10d4…10f7 at0020 = ╱52╱R╱ // 0x10f4 @0x20
0x10d4…10f7 at0021 = ╱ef╱ $ ╱ // 0x10f5 @0x21
0x10d4…10f7 at0022 = EOL // 0x10f6 @0x22
0x10d4…10f7 }
0x10f7…110b a6f9 01720 // CHAIN…PROGRAM$
0x10f7…110b LineComal80 {
0x10f7…110b ptr = 0xa6f9 // 0x10f7 @0x0
0x10f7…110b lno = 0x06b8 // 0x10f9 @0x2
0x10f7…110b at0004 = ╱89╱ // ╱ // 0x10fb @0x4
0x10f7…110b at0005 = ╱43╱C╱ // 0x10fc @0x5
0x10f7…110b at0006 = ╱48╱H╱ // 0x10fd @0x6
0x10f7…110b at0007 = ╱41╱A╱ // 0x10fe @0x7
0x10f7…110b at0008 = ╱49╱I╱ // 0x10ff @0x8
0x10f7…110b at0009 = ╱4e╱N╱ // 0x1100 @0x9
0x10f7…110b at000a = ╱20╱…╱ // 0x1101 @0xa
0x10f7…110b at000b = ╱50╱P╱ // 0x1102 @0xb
0x10f7…110b at000c = ╱52╱R╱ // 0x1103 @0xc
0x10f7…110b at000d = ╱4f╱O╱ // 0x1104 @0xd
0x10f7…110b at000e = ╱47╱G╱ // 0x1105 @0xe
0x10f7…110b at000f = ╱52╱R╱ // 0x1106 @0xf
0x10f7…110b at0010 = ╱41╱A╱ // 0x1107 @0x10
0x10f7…110b at0011 = ╱4d╱M╱ // 0x1108 @0x11
0x10f7…110b at0012 = ╱24╱$╱ // 0x1109 @0x12
0x10f7…110b at0013 = EOL // 0x110a @0x13
0x10f7…110b }
0x110b…1111 a6ff 01730 ENDIF
0x110b…1111 LineComal80 {
0x110b…1111 ptr = 0xa6ff // 0x110b @0x0
0x110b…1111 lno = 0x06c2 // 0x110d @0x2
0x110b…1111 at0004 = ╱9c╱ ENDIF ╱ // 0x110f @0x4
0x110b…1111 at0005 = EOL // 0x1110 @0x5
0x110b…1111 }
0x1111…1129 a717 01740 LET HJ_ST $ := "/J/j/N/n/"
0x1111…1129 LineComal80 {
0x1111…1129 ptr = 0xa717 // 0x1111 @0x0
0x1111…1129 lno = 0x06cc // 0x1113 @0x2
0x1111…1129 at0004 = ╱86╱ LET ╱ // 0x1115 @0x4
0x1111…1129 at0005 = ╱48╱H╱ // 0x1116 @0x5
0x1111…1129 at0006 = ╱4a╱J╱ // 0x1117 @0x6
0x1111…1129 at0007 = ╱5f╱_╱ // 0x1118 @0x7
0x1111…1129 at0008 = ╱53╱S╱ // 0x1119 @0x8
0x1111…1129 at0009 = ╱54╱T╱ // 0x111a @0x9
0x1111…1129 at000a = ╱ef╱ $ ╱ // 0x111b @0xa
0x1111…1129 at000b = ╱f0╱ := ╱ // 0x111c @0xb
0x1111…1129 at000c = ╱22╱"╱ // 0x111d @0xc
0x1111…1129 at000d = ╱2f╱/╱ // 0x111e @0xd
0x1111…1129 at000e = ╱4a╱J╱ // 0x111f @0xe
0x1111…1129 at000f = ╱2f╱/╱ // 0x1120 @0xf
0x1111…1129 at0010 = ╱6a╱j╱ // 0x1121 @0x10
0x1111…1129 at0011 = ╱2f╱/╱ // 0x1122 @0x11
0x1111…1129 at0012 = ╱4e╱N╱ // 0x1123 @0x12
0x1111…1129 at0013 = ╱2f╱/╱ // 0x1124 @0x13
0x1111…1129 at0014 = ╱6e╱n╱ // 0x1125 @0x14
0x1111…1129 at0015 = ╱2f╱/╱ // 0x1126 @0x15
0x1111…1129 at0016 = ╱22╱"╱ // 0x1127 @0x16
0x1111…1129 at0017 = EOL // 0x1128 @0x17
0x1111…1129 }
0x1129…1166 a754 01750 PRINT "<SC1318>Opret…konto…(j/n)…eller…linienummer…der…skal…"
0x1129…1166 LineComal80 {
0x1129…1166 ptr = 0xa754 // 0x1129 @0x0
0x1129…1166 lno = 0x06d6 // 0x112b @0x2
0x1129…1166 at0004 = ╱92╱ PRINT ╱ // 0x112d @0x4
0x1129…1166 at0005 = ╱22╱"╱ // 0x112e @0x5
0x1129…1166 at0006 = ╱3c╱<╱ // 0x112f @0x6
0x1129…1166 at0007 = ╱53╱S╱ // 0x1130 @0x7
0x1129…1166 at0008 = ╱43╱C╱ // 0x1131 @0x8
0x1129…1166 at0009 = ╱31╱1╱ // 0x1132 @0x9
0x1129…1166 at000a = ╱33╱3╱ // 0x1133 @0xa
0x1129…1166 at000b = ╱31╱1╱ // 0x1134 @0xb
0x1129…1166 at000c = ╱38╱8╱ // 0x1135 @0xc
0x1129…1166 at000d = ╱3e╱>╱ // 0x1136 @0xd
0x1129…1166 at000e = ╱4f╱O╱ // 0x1137 @0xe
0x1129…1166 at000f = ╱70╱p╱ // 0x1138 @0xf
0x1129…1166 at0010 = ╱72╱r╱ // 0x1139 @0x10
0x1129…1166 at0011 = ╱65╱e╱ // 0x113a @0x11
0x1129…1166 at0012 = ╱74╱t╱ // 0x113b @0x12
0x1129…1166 at0013 = ╱20╱…╱ // 0x113c @0x13
0x1129…1166 at0014 = ╱6b╱k╱ // 0x113d @0x14
0x1129…1166 at0015 = ╱6f╱o╱ // 0x113e @0x15
0x1129…1166 at0016 = ╱6e╱n╱ // 0x113f @0x16
0x1129…1166 at0017 = ╱74╱t╱ // 0x1140 @0x17
0x1129…1166 at0018 = ╱6f╱o╱ // 0x1141 @0x18
0x1129…1166 at0019 = ╱20╱…╱ // 0x1142 @0x19
0x1129…1166 at001a = ╱28╱(╱ // 0x1143 @0x1a
0x1129…1166 at001b = ╱6a╱j╱ // 0x1144 @0x1b
0x1129…1166 at001c = ╱2f╱/╱ // 0x1145 @0x1c
0x1129…1166 at001d = ╱6e╱n╱ // 0x1146 @0x1d
0x1129…1166 at001e = ╱29╱)╱ // 0x1147 @0x1e
0x1129…1166 at001f = ╱20╱…╱ // 0x1148 @0x1f
0x1129…1166 at0020 = ╱65╱e╱ // 0x1149 @0x20
0x1129…1166 at0021 = ╱6c╱l╱ // 0x114a @0x21
0x1129…1166 at0022 = ╱6c╱l╱ // 0x114b @0x22
0x1129…1166 at0023 = ╱65╱e╱ // 0x114c @0x23
0x1129…1166 at0024 = ╱72╱r╱ // 0x114d @0x24
0x1129…1166 at0025 = ╱20╱…╱ // 0x114e @0x25
0x1129…1166 at0026 = ╱6c╱l╱ // 0x114f @0x26
0x1129…1166 at0027 = ╱69╱i╱ // 0x1150 @0x27
0x1129…1166 at0028 = ╱6e╱n╱ // 0x1151 @0x28
0x1129…1166 at0029 = ╱69╱i╱ // 0x1152 @0x29
0x1129…1166 at002a = ╱65╱e╱ // 0x1153 @0x2a
0x1129…1166 at002b = ╱6e╱n╱ // 0x1154 @0x2b
0x1129…1166 at002c = ╱75╱u╱ // 0x1155 @0x2c
0x1129…1166 at002d = ╱6d╱m╱ // 0x1156 @0x2d
0x1129…1166 at002e = ╱6d╱m╱ // 0x1157 @0x2e
0x1129…1166 at002f = ╱65╱e╱ // 0x1158 @0x2f
0x1129…1166 at0030 = ╱72╱r╱ // 0x1159 @0x30
0x1129…1166 at0031 = ╱20╱…╱ // 0x115a @0x31
0x1129…1166 at0032 = ╱64╱d╱ // 0x115b @0x32
0x1129…1166 at0033 = ╱65╱e╱ // 0x115c @0x33
0x1129…1166 at0034 = ╱72╱r╱ // 0x115d @0x34
0x1129…1166 at0035 = ╱20╱…╱ // 0x115e @0x35
0x1129…1166 at0036 = ╱73╱s╱ // 0x115f @0x36
0x1129…1166 at0037 = ╱6b╱k╱ // 0x1160 @0x37
0x1129…1166 at0038 = ╱61╱a╱ // 0x1161 @0x38
0x1129…1166 at0039 = ╱6c╱l╱ // 0x1162 @0x39
0x1129…1166 at003a = ╱20╱…╱ // 0x1163 @0x3a
0x1129…1166 at003b = ╱22╱"╱ // 0x1164 @0x3b
0x1129…1166 at003c = EOL // 0x1165 @0x3c
0x1129…1166 }
0x1166…116d a75b 01760 ELSE
0x1166…116d LineComal80 {
0x1166…116d ptr = 0xa75b // 0x1166 @0x0
0x1166…116d lno = 0x06e0 // 0x1168 @0x2
0x1166…116d at0004 = ╱9a1d╱ ELSE ╱ // 0x116a @0x4
0x1166…116d at0006 = EOL // 0x116c @0x6
0x1166…116d }
0x116d…1181 a76f 01770 LET HJ_ST $ := "/J/j/"
0x116d…1181 LineComal80 {
0x116d…1181 ptr = 0xa76f // 0x116d @0x0
0x116d…1181 lno = 0x06ea // 0x116f @0x2
0x116d…1181 at0004 = ╱86╱ LET ╱ // 0x1171 @0x4
0x116d…1181 at0005 = ╱48╱H╱ // 0x1172 @0x5
0x116d…1181 at0006 = ╱4a╱J╱ // 0x1173 @0x6
0x116d…1181 at0007 = ╱5f╱_╱ // 0x1174 @0x7
0x116d…1181 at0008 = ╱53╱S╱ // 0x1175 @0x8
0x116d…1181 at0009 = ╱54╱T╱ // 0x1176 @0x9
0x116d…1181 at000a = ╱ef╱ $ ╱ // 0x1177 @0xa
0x116d…1181 at000b = ╱f0╱ := ╱ // 0x1178 @0xb
0x116d…1181 at000c = ╱22╱"╱ // 0x1179 @0xc
0x116d…1181 at000d = ╱2f╱/╱ // 0x117a @0xd
0x116d…1181 at000e = ╱4a╱J╱ // 0x117b @0xe
0x116d…1181 at000f = ╱2f╱/╱ // 0x117c @0xf
0x116d…1181 at0010 = ╱6a╱j╱ // 0x117d @0x10
0x116d…1181 at0011 = ╱2f╱/╱ // 0x117e @0x11
0x116d…1181 at0012 = ╱22╱"╱ // 0x117f @0x12
0x116d…1181 at0013 = EOL // 0x1180 @0x13
0x116d…1181 }
0x1181…11c4 a7b2 01780 PRINT "<SC1218>Kontooplysninger…ok…(j)…eller…linienummer…der…skal…"
0x1181…11c4 LineComal80 {
0x1181…11c4 ptr = 0xa7b2 // 0x1181 @0x0
0x1181…11c4 lno = 0x06f4 // 0x1183 @0x2
0x1181…11c4 at0004 = ╱92╱ PRINT ╱ // 0x1185 @0x4
0x1181…11c4 at0005 = ╱22╱"╱ // 0x1186 @0x5
0x1181…11c4 at0006 = ╱3c╱<╱ // 0x1187 @0x6
0x1181…11c4 at0007 = ╱53╱S╱ // 0x1188 @0x7
0x1181…11c4 at0008 = ╱43╱C╱ // 0x1189 @0x8
0x1181…11c4 at0009 = ╱31╱1╱ // 0x118a @0x9
0x1181…11c4 at000a = ╱32╱2╱ // 0x118b @0xa
0x1181…11c4 at000b = ╱31╱1╱ // 0x118c @0xb
0x1181…11c4 at000c = ╱38╱8╱ // 0x118d @0xc
0x1181…11c4 at000d = ╱3e╱>╱ // 0x118e @0xd
0x1181…11c4 at000e = ╱4b╱K╱ // 0x118f @0xe
0x1181…11c4 at000f = ╱6f╱o╱ // 0x1190 @0xf
0x1181…11c4 at0010 = ╱6e╱n╱ // 0x1191 @0x10
0x1181…11c4 at0011 = ╱74╱t╱ // 0x1192 @0x11
0x1181…11c4 at0012 = ╱6f╱o╱ // 0x1193 @0x12
0x1181…11c4 at0013 = ╱6f╱o╱ // 0x1194 @0x13
0x1181…11c4 at0014 = ╱70╱p╱ // 0x1195 @0x14
0x1181…11c4 at0015 = ╱6c╱l╱ // 0x1196 @0x15
0x1181…11c4 at0016 = ╱79╱y╱ // 0x1197 @0x16
0x1181…11c4 at0017 = ╱73╱s╱ // 0x1198 @0x17
0x1181…11c4 at0018 = ╱6e╱n╱ // 0x1199 @0x18
0x1181…11c4 at0019 = ╱69╱i╱ // 0x119a @0x19
0x1181…11c4 at001a = ╱6e╱n╱ // 0x119b @0x1a
0x1181…11c4 at001b = ╱67╱g╱ // 0x119c @0x1b
0x1181…11c4 at001c = ╱65╱e╱ // 0x119d @0x1c
0x1181…11c4 at001d = ╱72╱r╱ // 0x119e @0x1d
0x1181…11c4 at001e = ╱20╱…╱ // 0x119f @0x1e
0x1181…11c4 at001f = ╱6f╱o╱ // 0x11a0 @0x1f
0x1181…11c4 at0020 = ╱6b╱k╱ // 0x11a1 @0x20
0x1181…11c4 at0021 = ╱20╱…╱ // 0x11a2 @0x21
0x1181…11c4 at0022 = ╱28╱(╱ // 0x11a3 @0x22
0x1181…11c4 at0023 = ╱6a╱j╱ // 0x11a4 @0x23
0x1181…11c4 at0024 = ╱29╱)╱ // 0x11a5 @0x24
0x1181…11c4 at0025 = ╱20╱…╱ // 0x11a6 @0x25
0x1181…11c4 at0026 = ╱65╱e╱ // 0x11a7 @0x26
0x1181…11c4 at0027 = ╱6c╱l╱ // 0x11a8 @0x27
0x1181…11c4 at0028 = ╱6c╱l╱ // 0x11a9 @0x28
0x1181…11c4 at0029 = ╱65╱e╱ // 0x11aa @0x29
0x1181…11c4 at002a = ╱72╱r╱ // 0x11ab @0x2a
0x1181…11c4 at002b = ╱20╱…╱ // 0x11ac @0x2b
0x1181…11c4 at002c = ╱6c╱l╱ // 0x11ad @0x2c
0x1181…11c4 at002d = ╱69╱i╱ // 0x11ae @0x2d
0x1181…11c4 at002e = ╱6e╱n╱ // 0x11af @0x2e
0x1181…11c4 at002f = ╱69╱i╱ // 0x11b0 @0x2f
0x1181…11c4 at0030 = ╱65╱e╱ // 0x11b1 @0x30
0x1181…11c4 at0031 = ╱6e╱n╱ // 0x11b2 @0x31
0x1181…11c4 at0032 = ╱75╱u╱ // 0x11b3 @0x32
0x1181…11c4 at0033 = ╱6d╱m╱ // 0x11b4 @0x33
0x1181…11c4 at0034 = ╱6d╱m╱ // 0x11b5 @0x34
0x1181…11c4 at0035 = ╱65╱e╱ // 0x11b6 @0x35
0x1181…11c4 at0036 = ╱72╱r╱ // 0x11b7 @0x36
0x1181…11c4 at0037 = ╱20╱…╱ // 0x11b8 @0x37
0x1181…11c4 at0038 = ╱64╱d╱ // 0x11b9 @0x38
0x1181…11c4 at0039 = ╱65╱e╱ // 0x11ba @0x39
0x1181…11c4 at003a = ╱72╱r╱ // 0x11bb @0x3a
0x1181…11c4 at003b = ╱20╱…╱ // 0x11bc @0x3b
0x1181…11c4 at003c = ╱73╱s╱ // 0x11bd @0x3c
0x1181…11c4 at003d = ╱6b╱k╱ // 0x11be @0x3d
0x1181…11c4 at003e = ╱61╱a╱ // 0x11bf @0x3e
0x1181…11c4 at003f = ╱6c╱l╱ // 0x11c0 @0x3f
0x1181…11c4 at0040 = ╱20╱…╱ // 0x11c1 @0x40
0x1181…11c4 at0041 = ╱22╱"╱ // 0x11c2 @0x41
0x1181…11c4 at0042 = EOL // 0x11c3 @0x42
0x1181…11c4 }
0x11c4…11ca a7b8 01790 ENDIF
0x11c4…11ca LineComal80 {
0x11c4…11ca ptr = 0xa7b8 // 0x11c4 @0x0
0x11c4…11ca lno = 0x06fe // 0x11c6 @0x2
0x11c4…11ca at0004 = ╱9c╱ ENDIF ╱ // 0x11c8 @0x4
0x11c4…11ca at0005 = EOL // 0x11c9 @0x5
0x11c4…11ca }
0x11ca…11e6 a7d4 01800 EDIT "rettes?…" : SVAR $ ( 1 )
0x11ca…11e6 LineComal80 {
0x11ca…11e6 ptr = 0xa7d4 // 0x11ca @0x0
0x11ca…11e6 lno = 0x0708 // 0x11cc @0x2
0x11ca…11e6 at0004 = ╱b1╱ EDIT ╱ // 0x11ce @0x4
0x11ca…11e6 at0005 = ╱22╱"╱ // 0x11cf @0x5
0x11ca…11e6 at0006 = ╱72╱r╱ // 0x11d0 @0x6
0x11ca…11e6 at0007 = ╱65╱e╱ // 0x11d1 @0x7
0x11ca…11e6 at0008 = ╱74╱t╱ // 0x11d2 @0x8
0x11ca…11e6 at0009 = ╱74╱t╱ // 0x11d3 @0x9
0x11ca…11e6 at000a = ╱65╱e╱ // 0x11d4 @0xa
0x11ca…11e6 at000b = ╱73╱s╱ // 0x11d5 @0xb
0x11ca…11e6 at000c = ╱3f╱?╱ // 0x11d6 @0xc
0x11ca…11e6 at000d = ╱20╱…╱ // 0x11d7 @0xd
0x11ca…11e6 at000e = ╱22╱"╱ // 0x11d8 @0xe
0x11ca…11e6 at000f = ╱f1╱ : ╱ // 0x11d9 @0xf
0x11ca…11e6 at0010 = ╱53╱S╱ // 0x11da @0x10
0x11ca…11e6 at0011 = ╱56╱V╱ // 0x11db @0x11
0x11ca…11e6 at0012 = ╱41╱A╱ // 0x11dc @0x12
0x11ca…11e6 at0013 = ╱52╱R╱ // 0x11dd @0x13
0x11ca…11e6 at0014 = ╱ef╱ $ ╱ // 0x11de @0x14
0x11ca…11e6 at0015 = ╱ed╱ ( ╱ // 0x11df @0x15
0x11ca…11e6 at0016 = ╱31╱1╱ // 0x11e0 @0x16
0x11ca…11e6 at0017 = ╱f20100╱ // 0x11e1 @0x17
0x11ca…11e6 at001a = ╱ee╱ ) ╱ // 0x11e4 @0x1a
0x11ca…11e6 at001b = EOL // 0x11e5 @0x1b
0x11ca…11e6 }
0x11e6…11f8 a7e6 01810 EXEC SL_FEJLLINIE
0x11e6…11f8 LineComal80 {
0x11e6…11f8 ptr = 0xa7e6 // 0x11e6 @0x0
0x11e6…11f8 lno = 0x0712 // 0x11e8 @0x2
0x11e6…11f8 at0004 = ╱9d╱ EXEC ╱ // 0x11ea @0x4
0x11e6…11f8 at0005 = ╱53╱S╱ // 0x11eb @0x5
0x11e6…11f8 at0006 = ╱4c╱L╱ // 0x11ec @0x6
0x11e6…11f8 at0007 = ╱5f╱_╱ // 0x11ed @0x7
0x11e6…11f8 at0008 = ╱46╱F╱ // 0x11ee @0x8
0x11e6…11f8 at0009 = ╱45╱E╱ // 0x11ef @0x9
0x11e6…11f8 at000a = ╱4a╱J╱ // 0x11f0 @0xa
0x11e6…11f8 at000b = ╱4c╱L╱ // 0x11f1 @0xb
0x11e6…11f8 at000c = ╱4c╱L╱ // 0x11f2 @0xc
0x11e6…11f8 at000d = ╱49╱I╱ // 0x11f3 @0xd
0x11e6…11f8 at000e = ╱4e╱N╱ // 0x11f4 @0xe
0x11e6…11f8 at000f = ╱49╱I╱ // 0x11f5 @0xf
0x11e6…11f8 at0010 = ╱45╱E╱ // 0x11f6 @0x10
0x11e6…11f8 at0011 = EOL // 0x11f7 @0x11
0x11e6…11f8 }
0x11f8…121b a809 01820 IF "/" + SVAR $ ( 1 ) + "/" IN HJ_ST $ THEN
0x11f8…121b LineComal80 {
0x11f8…121b ptr = 0xa809 // 0x11f8 @0x0
0x11f8…121b lno = 0x071c // 0x11fa @0x2
0x11f8…121b at0004 = ╱9b1ed7╱ IF ╱ // 0x11fc @0x4
0x11f8…121b at0007 = ╱22╱"╱ // 0x11ff @0x7
0x11f8…121b at0008 = ╱2f╱/╱ // 0x1200 @0x8
0x11f8…121b at0009 = ╱22╱"╱ // 0x1201 @0x9
0x11f8…121b at000a = ╱eb╱ + ╱ // 0x1202 @0xa
0x11f8…121b at000b = ╱53╱S╱ // 0x1203 @0xb
0x11f8…121b at000c = ╱56╱V╱ // 0x1204 @0xc
0x11f8…121b at000d = ╱41╱A╱ // 0x1205 @0xd
0x11f8…121b at000e = ╱52╱R╱ // 0x1206 @0xe
0x11f8…121b at000f = ╱ef╱ $ ╱ // 0x1207 @0xf
0x11f8…121b at0010 = ╱ed╱ ( ╱ // 0x1208 @0x10
0x11f8…121b at0011 = ╱31╱1╱ // 0x1209 @0x11
0x11f8…121b at0012 = ╱f20100╱ // 0x120a @0x12
0x11f8…121b at0015 = ╱ee╱ ) ╱ // 0x120d @0x15
0x11f8…121b at0016 = ╱eb╱ + ╱ // 0x120e @0x16
0x11f8…121b at0017 = ╱22╱"╱ // 0x120f @0x17
0x11f8…121b at0018 = ╱2f╱/╱ // 0x1210 @0x18
0x11f8…121b at0019 = ╱22╱"╱ // 0x1211 @0x19
0x11f8…121b at001a = ╱dc╱ IN ╱ // 0x1212 @0x1a
0x11f8…121b at001b = ╱48╱H╱ // 0x1213 @0x1b
0x11f8…121b at001c = ╱4a╱J╱ // 0x1214 @0x1c
0x11f8…121b at001d = ╱5f╱_╱ // 0x1215 @0x1d
0x11f8…121b at001e = ╱53╱S╱ // 0x1216 @0x1e
0x11f8…121b at001f = ╱54╱T╱ // 0x1217 @0x1f
0x11f8…121b at0020 = ╱ef╱ $ ╱ // 0x1218 @0x20
0x11f8…121b at0021 = ╱b5╱ THEN ╱ // 0x1219 @0x21
0x11f8…121b at0022 = EOL // 0x121a @0x22
0x11f8…121b }
0x121b…1233 a821 01830 EXEC TAL_CONTROL ( SVAR $ )
0x121b…1233 LineComal80 {
0x121b…1233 ptr = 0xa821 // 0x121b @0x0
0x121b…1233 lno = 0x0726 // 0x121d @0x2
0x121b…1233 at0004 = ╱9d╱ EXEC ╱ // 0x121f @0x4
0x121b…1233 at0005 = ╱54╱T╱ // 0x1220 @0x5
0x121b…1233 at0006 = ╱41╱A╱ // 0x1221 @0x6
0x121b…1233 at0007 = ╱4c╱L╱ // 0x1222 @0x7
0x121b…1233 at0008 = ╱5f╱_╱ // 0x1223 @0x8
0x121b…1233 at0009 = ╱43╱C╱ // 0x1224 @0x9
0x121b…1233 at000a = ╱4f╱O╱ // 0x1225 @0xa
0x121b…1233 at000b = ╱4e╱N╱ // 0x1226 @0xb
0x121b…1233 at000c = ╱54╱T╱ // 0x1227 @0xc
0x121b…1233 at000d = ╱52╱R╱ // 0x1228 @0xd
0x121b…1233 at000e = ╱4f╱O╱ // 0x1229 @0xe
0x121b…1233 at000f = ╱4c╱L╱ // 0x122a @0xf
0x121b…1233 at0010 = ╱ed╱ ( ╱ // 0x122b @0x10
0x121b…1233 at0011 = ╱53╱S╱ // 0x122c @0x11
0x121b…1233 at0012 = ╱56╱V╱ // 0x122d @0x12
0x121b…1233 at0013 = ╱41╱A╱ // 0x122e @0x13
0x121b…1233 at0014 = ╱52╱R╱ // 0x122f @0x14
0x121b…1233 at0015 = ╱ef╱ $ ╱ // 0x1230 @0x15
0x121b…1233 at0016 = ╱ee╱ ) ╱ // 0x1231 @0x16
0x121b…1233 at0017 = EOL // 0x1232 @0x17
0x121b…1233 }
0x1233…1251 a83f 01840 IF OK THEN EXEC RET_LINIE ( ASC ( SVAR $ ) )
0x1233…1251 LineComal80 {
0x1233…1251 ptr = 0xa83f // 0x1233 @0x0
0x1233…1251 lno = 0x0730 // 0x1235 @0x2
0x1233…1251 at0004 = ╱8200╱ IF ╱ // 0x1237 @0x4
0x1233…1251 at0006 = ╱4f╱O╱ // 0x1239 @0x6
0x1233…1251 at0007 = ╱4b╱K╱ // 0x123a @0x7
0x1233…1251 at0008 = ╱b5╱ THEN ╱ // 0x123b @0x8
0x1233…1251 at0009 = ╱9d╱ EXEC ╱ // 0x123c @0x9
0x1233…1251 at000a = ╱52╱R╱ // 0x123d @0xa
0x1233…1251 at000b = ╱45╱E╱ // 0x123e @0xb
0x1233…1251 at000c = ╱54╱T╱ // 0x123f @0xc
0x1233…1251 at000d = ╱5f╱_╱ // 0x1240 @0xd
0x1233…1251 at000e = ╱4c╱L╱ // 0x1241 @0xe
0x1233…1251 at000f = ╱49╱I╱ // 0x1242 @0xf
0x1233…1251 at0010 = ╱4e╱N╱ // 0x1243 @0x10
0x1233…1251 at0011 = ╱49╱I╱ // 0x1244 @0x11
0x1233…1251 at0012 = ╱45╱E╱ // 0x1245 @0x12
0x1233…1251 at0013 = ╱ed╱ ( ╱ // 0x1246 @0x13
0x1233…1251 at0014 = ╱cf╱ ASC ╱ // 0x1247 @0x14
0x1233…1251 at0015 = ╱ed╱ ( ╱ // 0x1248 @0x15
0x1233…1251 at0016 = ╱53╱S╱ // 0x1249 @0x16
0x1233…1251 at0017 = ╱56╱V╱ // 0x124a @0x17
0x1233…1251 at0018 = ╱41╱A╱ // 0x124b @0x18
0x1233…1251 at0019 = ╱52╱R╱ // 0x124c @0x19
0x1233…1251 at001a = ╱ef╱ $ ╱ // 0x124d @0x1a
0x1233…1251 at001b = ╱ee╱ ) ╱ // 0x124e @0x1b
0x1233…1251 at001c = ╱ee╱ ) ╱ // 0x124f @0x1c
0x1233…1251 at001d = EOL // 0x1250 @0x1d
0x1233…1251 }
0x1251…1269 a857 01850 LET OK := FALSE ; SVAR $ := "…"
0x1251…1269 LineComal80 {
0x1251…1269 ptr = 0xa857 // 0x1251 @0x0
0x1251…1269 lno = 0x073a // 0x1253 @0x2
0x1251…1269 at0004 = ╱86╱ LET ╱ // 0x1255 @0x4
0x1251…1269 at0005 = ╱4f╱O╱ // 0x1256 @0x5
0x1251…1269 at0006 = ╱4b╱K╱ // 0x1257 @0x6
0x1251…1269 at0007 = ╱f0╱ := ╱ // 0x1258 @0x7
0x1251…1269 at0008 = ╱46╱F╱ // 0x1259 @0x8
0x1251…1269 at0009 = ╱41╱A╱ // 0x125a @0x9
0x1251…1269 at000a = ╱4c╱L╱ // 0x125b @0xa
0x1251…1269 at000b = ╱53╱S╱ // 0x125c @0xb
0x1251…1269 at000c = ╱45╱E╱ // 0x125d @0xc
0x1251…1269 at000d = ╱ea╱ ; ╱ // 0x125e @0xd
0x1251…1269 at000e = ╱53╱S╱ // 0x125f @0xe
0x1251…1269 at000f = ╱56╱V╱ // 0x1260 @0xf
0x1251…1269 at0010 = ╱41╱A╱ // 0x1261 @0x10
0x1251…1269 at0011 = ╱52╱R╱ // 0x1262 @0x11
0x1251…1269 at0012 = ╱ef╱ $ ╱ // 0x1263 @0x12
0x1251…1269 at0013 = ╱f0╱ := ╱ // 0x1264 @0x13
0x1251…1269 at0014 = ╱22╱"╱ // 0x1265 @0x14
0x1251…1269 at0015 = ╱20╱…╱ // 0x1266 @0x15
0x1251…1269 at0016 = ╱22╱"╱ // 0x1267 @0x16
0x1251…1269 at0017 = EOL // 0x1268 @0x17
0x1251…1269 }
0x1269…126f a85d 01860 ENDIF
0x1269…126f LineComal80 {
0x1269…126f ptr = 0xa85d // 0x1269 @0x0
0x1269…126f lno = 0x0744 // 0x126b @0x2
0x1269…126f at0004 = ╱9c╱ ENDIF ╱ // 0x126d @0x4
0x1269…126f at0005 = EOL // 0x126e @0x5
0x1269…126f }
0x126f…1285 a873 01870 UNTIL ╱cb╱ ( SVAR $ ) > 0 AND OK
0x126f…1285 LineComal80 {
0x126f…1285 ptr = 0xa873 // 0x126f @0x0
0x126f…1285 lno = 0x074e // 0x1271 @0x2
0x126f…1285 at0004 = ╱98╱ UNTIL ╱ // 0x1273 @0x4
0x126f…1285 at0005 = ╱cb╱ // 0x1274 @0x5
0x126f…1285 at0006 = ╱ed╱ ( ╱ // 0x1275 @0x6
0x126f…1285 at0007 = ╱53╱S╱ // 0x1276 @0x7
0x126f…1285 at0008 = ╱56╱V╱ // 0x1277 @0x8
0x126f…1285 at0009 = ╱41╱A╱ // 0x1278 @0x9
0x126f…1285 at000a = ╱52╱R╱ // 0x1279 @0xa
0x126f…1285 at000b = ╱ef╱ $ ╱ // 0x127a @0xb
0x126f…1285 at000c = ╱ee╱ ) ╱ // 0x127b @0xc
0x126f…1285 at000d = ╱e1╱ > ╱ // 0x127c @0xd
0x126f…1285 at000e = ╱30╱0╱ // 0x127d @0xe
0x126f…1285 at000f = ╱f20000╱ // 0x127e @0xf
0x126f…1285 at0012 = ╱d9╱ AND ╱ // 0x1281 @0x12
0x126f…1285 at0013 = ╱4f╱O╱ // 0x1282 @0x13
0x126f…1285 at0014 = ╱4b╱K╱ // 0x1283 @0x14
0x126f…1285 at0015 = EOL // 0x1284 @0x15
0x126f…1285 }
0x1285…129f a88d 01880 UNTIL "/" + SVAR $ + "/" IN HJ_ST $
0x1285…129f LineComal80 {
0x1285…129f ptr = 0xa88d // 0x1285 @0x0
0x1285…129f lno = 0x0758 // 0x1287 @0x2
0x1285…129f at0004 = ╱98╱ UNTIL ╱ // 0x1289 @0x4
0x1285…129f at0005 = ╱22╱"╱ // 0x128a @0x5
0x1285…129f at0006 = ╱2f╱/╱ // 0x128b @0x6
0x1285…129f at0007 = ╱22╱"╱ // 0x128c @0x7
0x1285…129f at0008 = ╱eb╱ + ╱ // 0x128d @0x8
0x1285…129f at0009 = ╱53╱S╱ // 0x128e @0x9
0x1285…129f at000a = ╱56╱V╱ // 0x128f @0xa
0x1285…129f at000b = ╱41╱A╱ // 0x1290 @0xb
0x1285…129f at000c = ╱52╱R╱ // 0x1291 @0xc
0x1285…129f at000d = ╱ef╱ $ ╱ // 0x1292 @0xd
0x1285…129f at000e = ╱eb╱ + ╱ // 0x1293 @0xe
0x1285…129f at000f = ╱22╱"╱ // 0x1294 @0xf
0x1285…129f at0010 = ╱2f╱/╱ // 0x1295 @0x10
0x1285…129f at0011 = ╱22╱"╱ // 0x1296 @0x11
0x1285…129f at0012 = ╱dc╱ IN ╱ // 0x1297 @0x12
0x1285…129f at0013 = ╱48╱H╱ // 0x1298 @0x13
0x1285…129f at0014 = ╱4a╱J╱ // 0x1299 @0x14
0x1285…129f at0015 = ╱5f╱_╱ // 0x129a @0x15
0x1285…129f at0016 = ╱53╱S╱ // 0x129b @0x16
0x1285…129f at0017 = ╱54╱T╱ // 0x129c @0x17
0x1285…129f at0018 = ╱ef╱ $ ╱ // 0x129d @0x18
0x1285…129f at0019 = EOL // 0x129e @0x19
0x1285…129f }
0x129f…12cb a8b9 01890 IF "/" + SVAR $ + "/" IN "/J/j/" THEN EXEC SKRIV_KONTOOPL
0x129f…12cb LineComal80 {
0x129f…12cb ptr = 0xa8b9 // 0x129f @0x0
0x129f…12cb lno = 0x0762 // 0x12a1 @0x2
0x129f…12cb at0004 = ╱8200╱ IF ╱ // 0x12a3 @0x4
0x129f…12cb at0006 = ╱22╱"╱ // 0x12a5 @0x6
0x129f…12cb at0007 = ╱2f╱/╱ // 0x12a6 @0x7
0x129f…12cb at0008 = ╱22╱"╱ // 0x12a7 @0x8
0x129f…12cb at0009 = ╱eb╱ + ╱ // 0x12a8 @0x9
0x129f…12cb at000a = ╱53╱S╱ // 0x12a9 @0xa
0x129f…12cb at000b = ╱56╱V╱ // 0x12aa @0xb
0x129f…12cb at000c = ╱41╱A╱ // 0x12ab @0xc
0x129f…12cb at000d = ╱52╱R╱ // 0x12ac @0xd
0x129f…12cb at000e = ╱ef╱ $ ╱ // 0x12ad @0xe
0x129f…12cb at000f = ╱eb╱ + ╱ // 0x12ae @0xf
0x129f…12cb at0010 = ╱22╱"╱ // 0x12af @0x10
0x129f…12cb at0011 = ╱2f╱/╱ // 0x12b0 @0x11
0x129f…12cb at0012 = ╱22╱"╱ // 0x12b1 @0x12
0x129f…12cb at0013 = ╱dc╱ IN ╱ // 0x12b2 @0x13
0x129f…12cb at0014 = ╱22╱"╱ // 0x12b3 @0x14
0x129f…12cb at0015 = ╱2f╱/╱ // 0x12b4 @0x15
0x129f…12cb at0016 = ╱4a╱J╱ // 0x12b5 @0x16
0x129f…12cb at0017 = ╱2f╱/╱ // 0x12b6 @0x17
0x129f…12cb at0018 = ╱6a╱j╱ // 0x12b7 @0x18
0x129f…12cb at0019 = ╱2f╱/╱ // 0x12b8 @0x19
0x129f…12cb at001a = ╱22╱"╱ // 0x12b9 @0x1a
0x129f…12cb at001b = ╱b5╱ THEN ╱ // 0x12ba @0x1b
0x129f…12cb at001c = ╱9d╱ EXEC ╱ // 0x12bb @0x1c
0x129f…12cb at001d = ╱53╱S╱ // 0x12bc @0x1d
0x129f…12cb at001e = ╱4b╱K╱ // 0x12bd @0x1e
0x129f…12cb at001f = ╱52╱R╱ // 0x12be @0x1f
0x129f…12cb at0020 = ╱49╱I╱ // 0x12bf @0x20
0x129f…12cb at0021 = ╱56╱V╱ // 0x12c0 @0x21
0x129f…12cb at0022 = ╱5f╱_╱ // 0x12c1 @0x22
0x129f…12cb at0023 = ╱4b╱K╱ // 0x12c2 @0x23
0x129f…12cb at0024 = ╱4f╱O╱ // 0x12c3 @0x24
0x129f…12cb at0025 = ╱4e╱N╱ // 0x12c4 @0x25
0x129f…12cb at0026 = ╱54╱T╱ // 0x12c5 @0x26
0x129f…12cb at0027 = ╱4f╱O╱ // 0x12c6 @0x27
0x129f…12cb at0028 = ╱4f╱O╱ // 0x12c7 @0x28
0x129f…12cb at0029 = ╱50╱P╱ // 0x12c8 @0x29
0x129f…12cb at002a = ╱4c╱L╱ // 0x12c9 @0x2a
0x129f…12cb at002b = EOL // 0x12ca @0x2b
0x129f…12cb }
0x12cb…12d1 a8bf 01900 CLEAR
0x12cb…12d1 LineComal80 {
0x12cb…12d1 ptr = 0xa8bf // 0x12cb @0x0
0x12cb…12d1 lno = 0x076c // 0x12cd @0x2
0x12cb…12d1 at0004 = ╱a0╱ CLEAR ╱ // 0x12cf @0x4
0x12cb…12d1 at0005 = EOL // 0x12d0 @0x5
0x12cb…12d1 }
0x12d1…12e0 a8ce 01910 LET SVAR $ := "j"
0x12d1…12e0 LineComal80 {
0x12d1…12e0 ptr = 0xa8ce // 0x12d1 @0x0
0x12d1…12e0 lno = 0x0776 // 0x12d3 @0x2
0x12d1…12e0 at0004 = ╱86╱ LET ╱ // 0x12d5 @0x4
0x12d1…12e0 at0005 = ╱53╱S╱ // 0x12d6 @0x5
0x12d1…12e0 at0006 = ╱56╱V╱ // 0x12d7 @0x6
0x12d1…12e0 at0007 = ╱41╱A╱ // 0x12d8 @0x7
0x12d1…12e0 at0008 = ╱52╱R╱ // 0x12d9 @0x8
0x12d1…12e0 at0009 = ╱ef╱ $ ╱ // 0x12da @0x9
0x12d1…12e0 at000a = ╱f0╱ := ╱ // 0x12db @0xa
0x12d1…12e0 at000b = ╱22╱"╱ // 0x12dc @0xb
0x12d1…12e0 at000c = ╱6a╱j╱ // 0x12dd @0xc
0x12d1…12e0 at000d = ╱22╱"╱ // 0x12de @0xd
0x12d1…12e0 at000e = EOL // 0x12df @0xe
0x12d1…12e0 }
0x12e0…1318 a906 01920 EDIT "<C1212>Opret/ret…flere…konti…(j/n)?…" : SVAR $ ( 1 )
0x12e0…1318 LineComal80 {
0x12e0…1318 ptr = 0xa906 // 0x12e0 @0x0
0x12e0…1318 lno = 0x0780 // 0x12e2 @0x2
0x12e0…1318 at0004 = ╱b1╱ EDIT ╱ // 0x12e4 @0x4
0x12e0…1318 at0005 = ╱22╱"╱ // 0x12e5 @0x5
0x12e0…1318 at0006 = ╱3c╱<╱ // 0x12e6 @0x6
0x12e0…1318 at0007 = ╱43╱C╱ // 0x12e7 @0x7
0x12e0…1318 at0008 = ╱31╱1╱ // 0x12e8 @0x8
0x12e0…1318 at0009 = ╱32╱2╱ // 0x12e9 @0x9
0x12e0…1318 at000a = ╱31╱1╱ // 0x12ea @0xa
0x12e0…1318 at000b = ╱32╱2╱ // 0x12eb @0xb
0x12e0…1318 at000c = ╱3e╱>╱ // 0x12ec @0xc
0x12e0…1318 at000d = ╱4f╱O╱ // 0x12ed @0xd
0x12e0…1318 at000e = ╱70╱p╱ // 0x12ee @0xe
0x12e0…1318 at000f = ╱72╱r╱ // 0x12ef @0xf
0x12e0…1318 at0010 = ╱65╱e╱ // 0x12f0 @0x10
0x12e0…1318 at0011 = ╱74╱t╱ // 0x12f1 @0x11
0x12e0…1318 at0012 = ╱2f╱/╱ // 0x12f2 @0x12
0x12e0…1318 at0013 = ╱72╱r╱ // 0x12f3 @0x13
0x12e0…1318 at0014 = ╱65╱e╱ // 0x12f4 @0x14
0x12e0…1318 at0015 = ╱74╱t╱ // 0x12f5 @0x15
0x12e0…1318 at0016 = ╱20╱…╱ // 0x12f6 @0x16
0x12e0…1318 at0017 = ╱66╱f╱ // 0x12f7 @0x17
0x12e0…1318 at0018 = ╱6c╱l╱ // 0x12f8 @0x18
0x12e0…1318 at0019 = ╱65╱e╱ // 0x12f9 @0x19
0x12e0…1318 at001a = ╱72╱r╱ // 0x12fa @0x1a
0x12e0…1318 at001b = ╱65╱e╱ // 0x12fb @0x1b
0x12e0…1318 at001c = ╱20╱…╱ // 0x12fc @0x1c
0x12e0…1318 at001d = ╱6b╱k╱ // 0x12fd @0x1d
0x12e0…1318 at001e = ╱6f╱o╱ // 0x12fe @0x1e
0x12e0…1318 at001f = ╱6e╱n╱ // 0x12ff @0x1f
0x12e0…1318 at0020 = ╱74╱t╱ // 0x1300 @0x20
0x12e0…1318 at0021 = ╱69╱i╱ // 0x1301 @0x21
0x12e0…1318 at0022 = ╱20╱…╱ // 0x1302 @0x22
0x12e0…1318 at0023 = ╱28╱(╱ // 0x1303 @0x23
0x12e0…1318 at0024 = ╱6a╱j╱ // 0x1304 @0x24
0x12e0…1318 at0025 = ╱2f╱/╱ // 0x1305 @0x25
0x12e0…1318 at0026 = ╱6e╱n╱ // 0x1306 @0x26
0x12e0…1318 at0027 = ╱29╱)╱ // 0x1307 @0x27
0x12e0…1318 at0028 = ╱3f╱?╱ // 0x1308 @0x28
0x12e0…1318 at0029 = ╱20╱…╱ // 0x1309 @0x29
0x12e0…1318 at002a = ╱22╱"╱ // 0x130a @0x2a
0x12e0…1318 at002b = ╱f1╱ : ╱ // 0x130b @0x2b
0x12e0…1318 at002c = ╱53╱S╱ // 0x130c @0x2c
0x12e0…1318 at002d = ╱56╱V╱ // 0x130d @0x2d
0x12e0…1318 at002e = ╱41╱A╱ // 0x130e @0x2e
0x12e0…1318 at002f = ╱52╱R╱ // 0x130f @0x2f
0x12e0…1318 at0030 = ╱ef╱ $ ╱ // 0x1310 @0x30
0x12e0…1318 at0031 = ╱ed╱ ( ╱ // 0x1311 @0x31
0x12e0…1318 at0032 = ╱31╱1╱ // 0x1312 @0x32
0x12e0…1318 at0033 = ╱f20100╱ // 0x1313 @0x33
0x12e0…1318 at0036 = ╱ee╱ ) ╱ // 0x1316 @0x36
0x12e0…1318 at0037 = EOL // 0x1317 @0x37
0x12e0…1318 }
0x1318…1334 a922 01930 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
0x1318…1334 LineComal80 {
0x1318…1334 ptr = 0xa922 // 0x1318 @0x0
0x1318…1334 lno = 0x078a // 0x131a @0x2
0x1318…1334 at0004 = ╱98╱ UNTIL ╱ // 0x131c @0x4
0x1318…1334 at0005 = ╱d7╱ NOT ╱ // 0x131d @0x5
0x1318…1334 at0006 = ╱22╱"╱ // 0x131e @0x6
0x1318…1334 at0007 = ╱2f╱/╱ // 0x131f @0x7
0x1318…1334 at0008 = ╱22╱"╱ // 0x1320 @0x8
0x1318…1334 at0009 = ╱eb╱ + ╱ // 0x1321 @0x9
0x1318…1334 at000a = ╱53╱S╱ // 0x1322 @0xa
0x1318…1334 at000b = ╱56╱V╱ // 0x1323 @0xb
0x1318…1334 at000c = ╱41╱A╱ // 0x1324 @0xc
0x1318…1334 at000d = ╱52╱R╱ // 0x1325 @0xd
0x1318…1334 at000e = ╱ef╱ $ ╱ // 0x1326 @0xe
0x1318…1334 at000f = ╱eb╱ + ╱ // 0x1327 @0xf
0x1318…1334 at0010 = ╱22╱"╱ // 0x1328 @0x10
0x1318…1334 at0011 = ╱2f╱/╱ // 0x1329 @0x11
0x1318…1334 at0012 = ╱22╱"╱ // 0x132a @0x12
0x1318…1334 at0013 = ╱dc╱ IN ╱ // 0x132b @0x13
0x1318…1334 at0014 = ╱22╱"╱ // 0x132c @0x14
0x1318…1334 at0015 = ╱2f╱/╱ // 0x132d @0x15
0x1318…1334 at0016 = ╱4a╱J╱ // 0x132e @0x16
0x1318…1334 at0017 = ╱2f╱/╱ // 0x132f @0x17
0x1318…1334 at0018 = ╱6a╱j╱ // 0x1330 @0x18
0x1318…1334 at0019 = ╱2f╱/╱ // 0x1331 @0x19
0x1318…1334 at001a = ╱22╱"╱ // 0x1332 @0x1a
0x1318…1334 at001b = EOL // 0x1333 @0x1b
0x1318…1334 }
0x1334…1349 a937 01940 ENDPROC OPRET_RET_KONTI
0x1334…1349 LineComal80 {
0x1334…1349 ptr = 0xa937 // 0x1334 @0x0
0x1334…1349 lno = 0x0794 // 0x1336 @0x2
0x1334…1349 at0004 = ╱9f╱ ENDPROC ╱ // 0x1338 @0x4
0x1334…1349 at0005 = ╱4f╱O╱ // 0x1339 @0x5
0x1334…1349 at0006 = ╱50╱P╱ // 0x133a @0x6
0x1334…1349 at0007 = ╱52╱R╱ // 0x133b @0x7
0x1334…1349 at0008 = ╱45╱E╱ // 0x133c @0x8
0x1334…1349 at0009 = ╱54╱T╱ // 0x133d @0x9
0x1334…1349 at000a = ╱5f╱_╱ // 0x133e @0xa
0x1334…1349 at000b = ╱52╱R╱ // 0x133f @0xb
0x1334…1349 at000c = ╱45╱E╱ // 0x1340 @0xc
0x1334…1349 at000d = ╱54╱T╱ // 0x1341 @0xd
0x1334…1349 at000e = ╱5f╱_╱ // 0x1342 @0xe
0x1334…1349 at000f = ╱4b╱K╱ // 0x1343 @0xf
0x1334…1349 at0010 = ╱4f╱O╱ // 0x1344 @0x10
0x1334…1349 at0011 = ╱4e╱N╱ // 0x1345 @0x11
0x1334…1349 at0012 = ╱54╱T╱ // 0x1346 @0x12
0x1334…1349 at0013 = ╱49╱I╱ // 0x1347 @0x13
0x1334…1349 at0014 = EOL // 0x1348 @0x14
0x1334…1349 }
0x1349…134e a93c 01950
0x1349…134e LineComal80 {
0x1349…134e ptr = 0xa93c // 0x1349 @0x0
0x1349…134e lno = 0x079e // 0x134b @0x2
0x1349…134e at0004 = EOL // 0x134d @0x4
0x1349…134e }
0x134e…1365 a953 01960 PROC RET_LINIE ( R_LIN )
0x134e…1365 LineComal80 {
0x134e…1365 ptr = 0xa953 // 0x134e @0x0
0x134e…1365 lno = 0x07a8 // 0x1350 @0x2
0x134e…1365 at0004 = ╱9e1f╱ PROC ╱ // 0x1352 @0x4
0x134e…1365 at0006 = ╱52╱R╱ // 0x1354 @0x6
0x134e…1365 at0007 = ╱45╱E╱ // 0x1355 @0x7
0x134e…1365 at0008 = ╱54╱T╱ // 0x1356 @0x8
0x134e…1365 at0009 = ╱5f╱_╱ // 0x1357 @0x9
0x134e…1365 at000a = ╱4c╱L╱ // 0x1358 @0xa
0x134e…1365 at000b = ╱49╱I╱ // 0x1359 @0xb
0x134e…1365 at000c = ╱4e╱N╱ // 0x135a @0xc
0x134e…1365 at000d = ╱49╱I╱ // 0x135b @0xd
0x134e…1365 at000e = ╱45╱E╱ // 0x135c @0xe
0x134e…1365 at000f = ╱ed╱ ( ╱ // 0x135d @0xf
0x134e…1365 at0010 = ╱52╱R╱ // 0x135e @0x10
0x134e…1365 at0011 = ╱5f╱_╱ // 0x135f @0x11
0x134e…1365 at0012 = ╱4c╱L╱ // 0x1360 @0x12
0x134e…1365 at0013 = ╱49╱I╱ // 0x1361 @0x13
0x134e…1365 at0014 = ╱4e╱N╱ // 0x1362 @0x14
0x134e…1365 at0015 = ╱ee╱ ) ╱ // 0x1363 @0x15
0x134e…1365 at0016 = EOL // 0x1364 @0x16
0x134e…1365 }
0x1365…1373 a961 01970 CASE R_LIN OF
0x1365…1373 LineComal80 {
0x1365…1373 ptr = 0xa961 // 0x1365 @0x0
0x1365…1373 lno = 0x07b2 // 0x1367 @0x2
0x1365…1373 at0004 = ╱a22001╱ CASE ╱ // 0x1369 @0x4
0x1365…1373 at0007 = ╱52╱R╱ // 0x136c @0x7
0x1365…1373 at0008 = ╱5f╱_╱ // 0x136d @0x8
0x1365…1373 at0009 = ╱4c╱L╱ // 0x136e @0x9
0x1365…1373 at000a = ╱49╱I╱ // 0x136f @0xa
0x1365…1373 at000b = ╱4e╱N╱ // 0x1370 @0xb
0x1365…1373 at000c = ╱ba╱ OF ╱ // 0x1371 @0xc
0x1365…1373 at000d = EOL // 0x1372 @0xd
0x1365…1373 }
0x1373…137f a96d 01980 WHILE 1
0x1373…137f LineComal80 {
0x1373…137f ptr = 0xa96d // 0x1373 @0x0
0x1373…137f lno = 0x07bc // 0x1375 @0x2
0x1373…137f at0004 = ╱a42101╱ WHILE ╱ // 0x1377 @0x4
0x1373…137f at0007 = ╱31╱1╱ // 0x137a @0x7
0x1373…137f at0008 = ╱f20100╱ // 0x137b @0x8
0x1373…137f at000b = EOL // 0x137e @0xb
0x1373…137f }
0x137f…1386 a974 01990 REPEAT
0x137f…1386 LineComal80 {
0x137f…1386 ptr = 0xa974 // 0x137f @0x0
0x137f…1386 lno = 0x07c6 // 0x1381 @0x2
0x137f…1386 at0004 = ╱9722╱ REPEAT ╱ // 0x1383 @0x4
0x137f…1386 at0006 = EOL // 0x1385 @0x6
0x137f…1386 }
0x1386…13ac a99a 02000 EDIT "<C1710>1.…Kontonr……:…" : A_KTONR $
0x1386…13ac LineComal80 {
0x1386…13ac ptr = 0xa99a // 0x1386 @0x0
0x1386…13ac lno = 0x07d0 // 0x1388 @0x2
0x1386…13ac at0004 = ╱b1╱ EDIT ╱ // 0x138a @0x4
0x1386…13ac at0005 = ╱22╱"╱ // 0x138b @0x5
0x1386…13ac at0006 = ╱3c╱<╱ // 0x138c @0x6
0x1386…13ac at0007 = ╱43╱C╱ // 0x138d @0x7
0x1386…13ac at0008 = ╱31╱1╱ // 0x138e @0x8
0x1386…13ac at0009 = ╱37╱7╱ // 0x138f @0x9
0x1386…13ac at000a = ╱31╱1╱ // 0x1390 @0xa
0x1386…13ac at000b = ╱30╱0╱ // 0x1391 @0xb
0x1386…13ac at000c = ╱3e╱>╱ // 0x1392 @0xc
0x1386…13ac at000d = ╱31╱1╱ // 0x1393 @0xd
0x1386…13ac at000e = ╱2e╱.╱ // 0x1394 @0xe
0x1386…13ac at000f = ╱20╱…╱ // 0x1395 @0xf
0x1386…13ac at0010 = ╱4b╱K╱ // 0x1396 @0x10
0x1386…13ac at0011 = ╱6f╱o╱ // 0x1397 @0x11
0x1386…13ac at0012 = ╱6e╱n╱ // 0x1398 @0x12
0x1386…13ac at0013 = ╱74╱t╱ // 0x1399 @0x13
0x1386…13ac at0014 = ╱6f╱o╱ // 0x139a @0x14
0x1386…13ac at0015 = ╱6e╱n╱ // 0x139b @0x15
0x1386…13ac at0016 = ╱72╱r╱ // 0x139c @0x16
0x1386…13ac at0017 = ╱20╱…╱ // 0x139d @0x17
0x1386…13ac at0018 = ╱20╱…╱ // 0x139e @0x18
0x1386…13ac at0019 = ╱3a╱:╱ // 0x139f @0x19
0x1386…13ac at001a = ╱20╱…╱ // 0x13a0 @0x1a
0x1386…13ac at001b = ╱22╱"╱ // 0x13a1 @0x1b
0x1386…13ac at001c = ╱f1╱ : ╱ // 0x13a2 @0x1c
0x1386…13ac at001d = ╱41╱A╱ // 0x13a3 @0x1d
0x1386…13ac at001e = ╱5f╱_╱ // 0x13a4 @0x1e
0x1386…13ac at001f = ╱4b╱K╱ // 0x13a5 @0x1f
0x1386…13ac at0020 = ╱54╱T╱ // 0x13a6 @0x20
0x1386…13ac at0021 = ╱4f╱O╱ // 0x13a7 @0x21
0x1386…13ac at0022 = ╱4e╱N╱ // 0x13a8 @0x22
0x1386…13ac at0023 = ╱52╱R╱ // 0x13a9 @0x23
0x1386…13ac at0024 = ╱ef╱ $ ╱ // 0x13aa @0x24
0x1386…13ac at0025 = EOL // 0x13ab @0x25
0x1386…13ac }
0x13ac…13c7 a9b5 02010 UNTIL NOT A_KTONR $ IN "………………………"
0x13ac…13c7 LineComal80 {
0x13ac…13c7 ptr = 0xa9b5 // 0x13ac @0x0
0x13ac…13c7 lno = 0x07da // 0x13ae @0x2
0x13ac…13c7 at0004 = ╱98╱ UNTIL ╱ // 0x13b0 @0x4
0x13ac…13c7 at0005 = ╱d7╱ NOT ╱ // 0x13b1 @0x5
0x13ac…13c7 at0006 = ╱41╱A╱ // 0x13b2 @0x6
0x13ac…13c7 at0007 = ╱5f╱_╱ // 0x13b3 @0x7
0x13ac…13c7 at0008 = ╱4b╱K╱ // 0x13b4 @0x8
0x13ac…13c7 at0009 = ╱54╱T╱ // 0x13b5 @0x9
0x13ac…13c7 at000a = ╱4f╱O╱ // 0x13b6 @0xa
0x13ac…13c7 at000b = ╱4e╱N╱ // 0x13b7 @0xb
0x13ac…13c7 at000c = ╱52╱R╱ // 0x13b8 @0xc
0x13ac…13c7 at000d = ╱ef╱ $ ╱ // 0x13b9 @0xd
0x13ac…13c7 at000e = ╱dc╱ IN ╱ // 0x13ba @0xe
0x13ac…13c7 at000f = ╱22╱"╱ // 0x13bb @0xf
0x13ac…13c7 at0010 = ╱20╱…╱ // 0x13bc @0x10
0x13ac…13c7 at0011 = ╱20╱…╱ // 0x13bd @0x11
0x13ac…13c7 at0012 = ╱20╱…╱ // 0x13be @0x12
0x13ac…13c7 at0013 = ╱20╱…╱ // 0x13bf @0x13
0x13ac…13c7 at0014 = ╱20╱…╱ // 0x13c0 @0x14
0x13ac…13c7 at0015 = ╱20╱…╱ // 0x13c1 @0x15
0x13ac…13c7 at0016 = ╱20╱…╱ // 0x13c2 @0x16
0x13ac…13c7 at0017 = ╱20╱…╱ // 0x13c3 @0x17
0x13ac…13c7 at0018 = ╱20╱…╱ // 0x13c4 @0x18
0x13ac…13c7 at0019 = ╱22╱"╱ // 0x13c5 @0x19
0x13ac…13c7 at001a = EOL // 0x13c6 @0x1a
0x13ac…13c7 }
0x13c7…13e6 a9d4 02020 LET IDXPOS := FIND_KTO ( A_KTONR $ )
0x13c7…13e6 LineComal80 {
0x13c7…13e6 ptr = 0xa9d4 // 0x13c7 @0x0
0x13c7…13e6 lno = 0x07e4 // 0x13c9 @0x2
0x13c7…13e6 at0004 = ╱86╱ LET ╱ // 0x13cb @0x4
0x13c7…13e6 at0005 = ╱49╱I╱ // 0x13cc @0x5
0x13c7…13e6 at0006 = ╱44╱D╱ // 0x13cd @0x6
0x13c7…13e6 at0007 = ╱58╱X╱ // 0x13ce @0x7
0x13c7…13e6 at0008 = ╱50╱P╱ // 0x13cf @0x8
0x13c7…13e6 at0009 = ╱4f╱O╱ // 0x13d0 @0x9
0x13c7…13e6 at000a = ╱53╱S╱ // 0x13d1 @0xa
0x13c7…13e6 at000b = ╱f0╱ := ╱ // 0x13d2 @0xb
0x13c7…13e6 at000c = ╱46╱F╱ // 0x13d3 @0xc
0x13c7…13e6 at000d = ╱49╱I╱ // 0x13d4 @0xd
0x13c7…13e6 at000e = ╱4e╱N╱ // 0x13d5 @0xe
0x13c7…13e6 at000f = ╱44╱D╱ // 0x13d6 @0xf
0x13c7…13e6 at0010 = ╱5f╱_╱ // 0x13d7 @0x10
0x13c7…13e6 at0011 = ╱4b╱K╱ // 0x13d8 @0x11
0x13c7…13e6 at0012 = ╱54╱T╱ // 0x13d9 @0x12
0x13c7…13e6 at0013 = ╱4f╱O╱ // 0x13da @0x13
0x13c7…13e6 at0014 = ╱ed╱ ( ╱ // 0x13db @0x14
0x13c7…13e6 at0015 = ╱41╱A╱ // 0x13dc @0x15
0x13c7…13e6 at0016 = ╱5f╱_╱ // 0x13dd @0x16
0x13c7…13e6 at0017 = ╱4b╱K╱ // 0x13de @0x17
0x13c7…13e6 at0018 = ╱54╱T╱ // 0x13df @0x18
0x13c7…13e6 at0019 = ╱4f╱O╱ // 0x13e0 @0x19
0x13c7…13e6 at001a = ╱4e╱N╱ // 0x13e1 @0x1a
0x13c7…13e6 at001b = ╱52╱R╱ // 0x13e2 @0x1b
0x13c7…13e6 at001c = ╱ef╱ $ ╱ // 0x13e3 @0x1c
0x13c7…13e6 at001d = ╱ee╱ ) ╱ // 0x13e4 @0x1d
0x13c7…13e6 at001e = EOL // 0x13e5 @0x1e
0x13c7…13e6 }
0x13e6…1403 a9f1 02030 IF OPRET = OK THEN LET KTO_NAVN $ := ""
0x13e6…1403 LineComal80 {
0x13e6…1403 ptr = 0xa9f1 // 0x13e6 @0x0
0x13e6…1403 lno = 0x07ee // 0x13e8 @0x2
0x13e6…1403 at0004 = ╱8200╱ IF ╱ // 0x13ea @0x4
0x13e6…1403 at0006 = ╱4f╱O╱ // 0x13ec @0x6
0x13e6…1403 at0007 = ╱50╱P╱ // 0x13ed @0x7
0x13e6…1403 at0008 = ╱52╱R╱ // 0x13ee @0x8
0x13e6…1403 at0009 = ╱45╱E╱ // 0x13ef @0x9
0x13e6…1403 at000a = ╱54╱T╱ // 0x13f0 @0xa
0x13e6…1403 at000b = ╱df╱ = ╱ // 0x13f1 @0xb
0x13e6…1403 at000c = ╱4f╱O╱ // 0x13f2 @0xc
0x13e6…1403 at000d = ╱4b╱K╱ // 0x13f3 @0xd
0x13e6…1403 at000e = ╱b5╱ THEN ╱ // 0x13f4 @0xe
0x13e6…1403 at000f = ╱86╱ LET ╱ // 0x13f5 @0xf
0x13e6…1403 at0010 = ╱4b╱K╱ // 0x13f6 @0x10
0x13e6…1403 at0011 = ╱54╱T╱ // 0x13f7 @0x11
0x13e6…1403 at0012 = ╱4f╱O╱ // 0x13f8 @0x12
0x13e6…1403 at0013 = ╱5f╱_╱ // 0x13f9 @0x13
0x13e6…1403 at0014 = ╱4e╱N╱ // 0x13fa @0x14
0x13e6…1403 at0015 = ╱41╱A╱ // 0x13fb @0x15
0x13e6…1403 at0016 = ╱56╱V╱ // 0x13fc @0x16
0x13e6…1403 at0017 = ╱4e╱N╱ // 0x13fd @0x17
0x13e6…1403 at0018 = ╱ef╱ $ ╱ // 0x13fe @0x18
0x13e6…1403 at0019 = ╱f0╱ := ╱ // 0x13ff @0x19
0x13e6…1403 at001a = ╱22╱"╱ // 0x1400 @0x1a
0x13e6…1403 at001b = ╱22╱"╱ // 0x1401 @0x1b
0x13e6…1403 at001c = EOL // 0x1402 @0x1c
0x13e6…1403 }
0x1403…140e a9fc 02040 IF OK THEN
0x1403…140e LineComal80 {
0x1403…140e ptr = 0xa9fc // 0x1403 @0x0
0x1403…140e lno = 0x07f8 // 0x1405 @0x2
0x1403…140e at0004 = ╱9b23d7╱ IF ╱ // 0x1407 @0x4
0x1403…140e at0007 = ╱4f╱O╱ // 0x140a @0x7
0x1403…140e at0008 = ╱4b╱K╱ // 0x140b @0x8
0x1403…140e at0009 = ╱b5╱ THEN ╱ // 0x140c @0x9
0x1403…140e at000a = EOL // 0x140d @0xa
0x1403…140e }
0x140e…141e aa0c 02050 LET OPRET := TRUE
0x140e…141e LineComal80 {
0x140e…141e ptr = 0xaa0c // 0x140e @0x0
0x140e…141e lno = 0x0802 // 0x1410 @0x2
0x140e…141e at0004 = ╱86╱ LET ╱ // 0x1412 @0x4
0x140e…141e at0005 = ╱4f╱O╱ // 0x1413 @0x5
0x140e…141e at0006 = ╱50╱P╱ // 0x1414 @0x6
0x140e…141e at0007 = ╱52╱R╱ // 0x1415 @0x7
0x140e…141e at0008 = ╱45╱E╱ // 0x1416 @0x8
0x140e…141e at0009 = ╱54╱T╱ // 0x1417 @0x9
0x140e…141e at000a = ╱f0╱ := ╱ // 0x1418 @0xa
0x140e…141e at000b = ╱54╱T╱ // 0x1419 @0xb
0x140e…141e at000c = ╱52╱R╱ // 0x141a @0xc
0x140e…141e at000d = ╱55╱U╱ // 0x141b @0xd
0x140e…141e at000e = ╱45╱E╱ // 0x141c @0xe
0x140e…141e at000f = EOL // 0x141d @0xf
0x140e…141e }
0x141e…1425 aa13 02060 ELSE
0x141e…1425 LineComal80 {
0x141e…1425 ptr = 0xaa13 // 0x141e @0x0
0x141e…1425 lno = 0x080c // 0x1420 @0x2
0x141e…1425 at0004 = ╱9a24╱ ELSE ╱ // 0x1422 @0x4
0x141e…1425 at0006 = EOL // 0x1424 @0x6
0x141e…1425 }
0x1425…143b aa29 02070 EXEC L[S_KONTO ( RECNR )
0x1425…143b LineComal80 {
0x1425…143b ptr = 0xaa29 // 0x1425 @0x0
0x1425…143b lno = 0x0816 // 0x1427 @0x2
0x1425…143b at0004 = ╱9d╱ EXEC ╱ // 0x1429 @0x4
0x1425…143b at0005 = ╱4c╱L╱ // 0x142a @0x5
0x1425…143b at0006 = ╱5b╱[╱ // 0x142b @0x6
0x1425…143b at0007 = ╱53╱S╱ // 0x142c @0x7
0x1425…143b at0008 = ╱5f╱_╱ // 0x142d @0x8
0x1425…143b at0009 = ╱4b╱K╱ // 0x142e @0x9
0x1425…143b at000a = ╱4f╱O╱ // 0x142f @0xa
0x1425…143b at000b = ╱4e╱N╱ // 0x1430 @0xb
0x1425…143b at000c = ╱54╱T╱ // 0x1431 @0xc
0x1425…143b at000d = ╱4f╱O╱ // 0x1432 @0xd
0x1425…143b at000e = ╱ed╱ ( ╱ // 0x1433 @0xe
0x1425…143b at000f = ╱52╱R╱ // 0x1434 @0xf
0x1425…143b at0010 = ╱45╱E╱ // 0x1435 @0x10
0x1425…143b at0011 = ╱43╱C╱ // 0x1436 @0x11
0x1425…143b at0012 = ╱4e╱N╱ // 0x1437 @0x12
0x1425…143b at0013 = ╱52╱R╱ // 0x1438 @0x13
0x1425…143b at0014 = ╱ee╱ ) ╱ // 0x1439 @0x14
0x1425…143b at0015 = EOL // 0x143a @0x15
0x1425…143b }
0x143b…1456 aa44 02080 LET A_KTO_TYPE $ := KTO_TYPE $
0x143b…1456 LineComal80 {
0x143b…1456 ptr = 0xaa44 // 0x143b @0x0
0x143b…1456 lno = 0x0820 // 0x143d @0x2
0x143b…1456 at0004 = ╱86╱ LET ╱ // 0x143f @0x4
0x143b…1456 at0005 = ╱41╱A╱ // 0x1440 @0x5
0x143b…1456 at0006 = ╱5f╱_╱ // 0x1441 @0x6
0x143b…1456 at0007 = ╱4b╱K╱ // 0x1442 @0x7
0x143b…1456 at0008 = ╱54╱T╱ // 0x1443 @0x8
0x143b…1456 at0009 = ╱4f╱O╱ // 0x1444 @0x9
0x143b…1456 at000a = ╱5f╱_╱ // 0x1445 @0xa
0x143b…1456 at000b = ╱54╱T╱ // 0x1446 @0xb
0x143b…1456 at000c = ╱59╱Y╱ // 0x1447 @0xc
0x143b…1456 at000d = ╱50╱P╱ // 0x1448 @0xd
0x143b…1456 at000e = ╱45╱E╱ // 0x1449 @0xe
0x143b…1456 at000f = ╱ef╱ $ ╱ // 0x144a @0xf
0x143b…1456 at0010 = ╱f0╱ := ╱ // 0x144b @0x10
0x143b…1456 at0011 = ╱4b╱K╱ // 0x144c @0x11
0x143b…1456 at0012 = ╱54╱T╱ // 0x144d @0x12
0x143b…1456 at0013 = ╱4f╱O╱ // 0x144e @0x13
0x143b…1456 at0014 = ╱5f╱_╱ // 0x144f @0x14
0x143b…1456 at0015 = ╱54╱T╱ // 0x1450 @0x15
0x143b…1456 at0016 = ╱59╱Y╱ // 0x1451 @0x16
0x143b…1456 at0017 = ╱50╱P╱ // 0x1452 @0x17
0x143b…1456 at0018 = ╱45╱E╱ // 0x1453 @0x18
0x143b…1456 at0019 = ╱ef╱ $ ╱ // 0x1454 @0x19
0x143b…1456 at001a = EOL // 0x1455 @0x1a
0x143b…1456 }
0x1456…1467 aa55 02090 LET OPRET := FALSE
0x1456…1467 LineComal80 {
0x1456…1467 ptr = 0xaa55 // 0x1456 @0x0
0x1456…1467 lno = 0x082a // 0x1458 @0x2
0x1456…1467 at0004 = ╱86╱ LET ╱ // 0x145a @0x4
0x1456…1467 at0005 = ╱4f╱O╱ // 0x145b @0x5
0x1456…1467 at0006 = ╱50╱P╱ // 0x145c @0x6
0x1456…1467 at0007 = ╱52╱R╱ // 0x145d @0x7
0x1456…1467 at0008 = ╱45╱E╱ // 0x145e @0x8
0x1456…1467 at0009 = ╱54╱T╱ // 0x145f @0x9
0x1456…1467 at000a = ╱f0╱ := ╱ // 0x1460 @0xa
0x1456…1467 at000b = ╱46╱F╱ // 0x1461 @0xb
0x1456…1467 at000c = ╱41╱A╱ // 0x1462 @0xc
0x1456…1467 at000d = ╱4c╱L╱ // 0x1463 @0xd
0x1456…1467 at000e = ╱53╱S╱ // 0x1464 @0xe
0x1456…1467 at000f = ╱45╱E╱ // 0x1465 @0xf
0x1456…1467 at0010 = EOL // 0x1466 @0x10
0x1456…1467 }
0x1467…146d aa5b 02100 ENDIF
0x1467…146d LineComal80 {
0x1467…146d ptr = 0xaa5b // 0x1467 @0x0
0x1467…146d lno = 0x0834 // 0x1469 @0x2
0x1467…146d at0004 = ╱9c╱ ENDIF ╱ // 0x146b @0x4
0x1467…146d at0005 = EOL // 0x146c @0x5
0x1467…146d }
0x146d…14b2 aad4 02110 PRINT "<C1711>2.…Kontonavn:…" ; KTO_NAVN $ ; SPC $ ( 1 : 40 - ╱cb╱ ( KTO_NAVN $ ) )
0x146d…14b2 LineComal80 {
0x146d…14b2 ptr = 0xaad4 // 0x146d @0x0
0x146d…14b2 lno = 0x083e // 0x146f @0x2
0x146d…14b2 at0004 = ╱92╱ PRINT ╱ // 0x1471 @0x4
0x146d…14b2 at0005 = ╱22╱"╱ // 0x1472 @0x5
0x146d…14b2 at0006 = ╱3c╱<╱ // 0x1473 @0x6
0x146d…14b2 at0007 = ╱43╱C╱ // 0x1474 @0x7
0x146d…14b2 at0008 = ╱31╱1╱ // 0x1475 @0x8
0x146d…14b2 at0009 = ╱37╱7╱ // 0x1476 @0x9
0x146d…14b2 at000a = ╱31╱1╱ // 0x1477 @0xa
0x146d…14b2 at000b = ╱31╱1╱ // 0x1478 @0xb
0x146d…14b2 at000c = ╱3e╱>╱ // 0x1479 @0xc
0x146d…14b2 at000d = ╱32╱2╱ // 0x147a @0xd
0x146d…14b2 at000e = ╱2e╱.╱ // 0x147b @0xe
0x146d…14b2 at000f = ╱20╱…╱ // 0x147c @0xf
0x146d…14b2 at0010 = ╱4b╱K╱ // 0x147d @0x10
0x146d…14b2 at0011 = ╱6f╱o╱ // 0x147e @0x11
0x146d…14b2 at0012 = ╱6e╱n╱ // 0x147f @0x12
0x146d…14b2 at0013 = ╱74╱t╱ // 0x1480 @0x13
0x146d…14b2 at0014 = ╱6f╱o╱ // 0x1481 @0x14
0x146d…14b2 at0015 = ╱6e╱n╱ // 0x1482 @0x15
0x146d…14b2 at0016 = ╱61╱a╱ // 0x1483 @0x16
0x146d…14b2 at0017 = ╱76╱v╱ // 0x1484 @0x17
0x146d…14b2 at0018 = ╱6e╱n╱ // 0x1485 @0x18
0x146d…14b2 at0019 = ╱3a╱:╱ // 0x1486 @0x19
0x146d…14b2 at001a = ╱20╱…╱ // 0x1487 @0x1a
0x146d…14b2 at001b = ╱22╱"╱ // 0x1488 @0x1b
0x146d…14b2 at001c = ╱ea╱ ; ╱ // 0x1489 @0x1c
0x146d…14b2 at001d = ╱4b╱K╱ // 0x148a @0x1d
0x146d…14b2 at001e = ╱54╱T╱ // 0x148b @0x1e
0x146d…14b2 at001f = ╱4f╱O╱ // 0x148c @0x1f
0x146d…14b2 at0020 = ╱5f╱_╱ // 0x148d @0x20
0x146d…14b2 at0021 = ╱4e╱N╱ // 0x148e @0x21
0x146d…14b2 at0022 = ╱41╱A╱ // 0x148f @0x22
0x146d…14b2 at0023 = ╱56╱V╱ // 0x1490 @0x23
0x146d…14b2 at0024 = ╱4e╱N╱ // 0x1491 @0x24
0x146d…14b2 at0025 = ╱ef╱ $ ╱ // 0x1492 @0x25
0x146d…14b2 at0026 = ╱ea╱ ; ╱ // 0x1493 @0x26
0x146d…14b2 at0027 = ╱53╱S╱ // 0x1494 @0x27
0x146d…14b2 at0028 = ╱50╱P╱ // 0x1495 @0x28
0x146d…14b2 at0029 = ╱43╱C╱ // 0x1496 @0x29
0x146d…14b2 at002a = ╱ef╱ $ ╱ // 0x1497 @0x2a
0x146d…14b2 at002b = ╱ed╱ ( ╱ // 0x1498 @0x2b
0x146d…14b2 at002c = ╱31╱1╱ // 0x1499 @0x2c
0x146d…14b2 at002d = ╱f20100╱ // 0x149a @0x2d
0x146d…14b2 at0030 = ╱f1╱ : ╱ // 0x149d @0x30
0x146d…14b2 at0031 = ╱34╱4╱ // 0x149e @0x31
0x146d…14b2 at0032 = ╱30╱0╱ // 0x149f @0x32
0x146d…14b2 at0033 = ╱f22800╱ // 0x14a0 @0x33
0x146d…14b2 at0036 = ╱e6╱ - ╱ // 0x14a3 @0x36
0x146d…14b2 at0037 = ╱cb╱ // 0x14a4 @0x37
0x146d…14b2 at0038 = ╱ed╱ ( ╱ // 0x14a5 @0x38
0x146d…14b2 at0039 = ╱4b╱K╱ // 0x14a6 @0x39
0x146d…14b2 at003a = ╱54╱T╱ // 0x14a7 @0x3a
0x146d…14b2 at003b = ╱4f╱O╱ // 0x14a8 @0x3b
0x146d…14b2 at003c = ╱5f╱_╱ // 0x14a9 @0x3c
0x146d…14b2 at003d = ╱4e╱N╱ // 0x14aa @0x3d
0x146d…14b2 at003e = ╱41╱A╱ // 0x14ab @0x3e
0x146d…14b2 at003f = ╱56╱V╱ // 0x14ac @0x3f
0x146d…14b2 at0040 = ╱4e╱N╱ // 0x14ad @0x40
0x146d…14b2 at0041 = ╱ef╱ $ ╱ // 0x14ae @0x41
0x146d…14b2 at0042 = ╱ee╱ ) ╱ // 0x14af @0x42
0x146d…14b2 at0043 = ╱ee╱ ) ╱ // 0x14b0 @0x43
0x146d…14b2 at0044 = EOL // 0x14b1 @0x44
0x146d…14b2 }
0x14b2…14e6 aad4 02120 PRINT "<C1712>3.…Kontotype:…" ; A_KTO_TYPE $ ; SPC $ ( 1 )
0x14b2…14e6 LineComal80 {
0x14b2…14e6 ptr = 0xaad4 // 0x14b2 @0x0
0x14b2…14e6 lno = 0x0848 // 0x14b4 @0x2
0x14b2…14e6 at0004 = ╱92╱ PRINT ╱ // 0x14b6 @0x4
0x14b2…14e6 at0005 = ╱22╱"╱ // 0x14b7 @0x5
0x14b2…14e6 at0006 = ╱3c╱<╱ // 0x14b8 @0x6
0x14b2…14e6 at0007 = ╱43╱C╱ // 0x14b9 @0x7
0x14b2…14e6 at0008 = ╱31╱1╱ // 0x14ba @0x8
0x14b2…14e6 at0009 = ╱37╱7╱ // 0x14bb @0x9
0x14b2…14e6 at000a = ╱31╱1╱ // 0x14bc @0xa
0x14b2…14e6 at000b = ╱32╱2╱ // 0x14bd @0xb
0x14b2…14e6 at000c = ╱3e╱>╱ // 0x14be @0xc
0x14b2…14e6 at000d = ╱33╱3╱ // 0x14bf @0xd
0x14b2…14e6 at000e = ╱2e╱.╱ // 0x14c0 @0xe
0x14b2…14e6 at000f = ╱20╱…╱ // 0x14c1 @0xf
0x14b2…14e6 at0010 = ╱4b╱K╱ // 0x14c2 @0x10
0x14b2…14e6 at0011 = ╱6f╱o╱ // 0x14c3 @0x11
0x14b2…14e6 at0012 = ╱6e╱n╱ // 0x14c4 @0x12
0x14b2…14e6 at0013 = ╱74╱t╱ // 0x14c5 @0x13
0x14b2…14e6 at0014 = ╱6f╱o╱ // 0x14c6 @0x14
0x14b2…14e6 at0015 = ╱74╱t╱ // 0x14c7 @0x15
0x14b2…14e6 at0016 = ╱79╱y╱ // 0x14c8 @0x16
0x14b2…14e6 at0017 = ╱70╱p╱ // 0x14c9 @0x17
0x14b2…14e6 at0018 = ╱65╱e╱ // 0x14ca @0x18
0x14b2…14e6 at0019 = ╱3a╱:╱ // 0x14cb @0x19
0x14b2…14e6 at001a = ╱20╱…╱ // 0x14cc @0x1a
0x14b2…14e6 at001b = ╱22╱"╱ // 0x14cd @0x1b
0x14b2…14e6 at001c = ╱ea╱ ; ╱ // 0x14ce @0x1c
0x14b2…14e6 at001d = ╱41╱A╱ // 0x14cf @0x1d
0x14b2…14e6 at001e = ╱5f╱_╱ // 0x14d0 @0x1e
0x14b2…14e6 at001f = ╱4b╱K╱ // 0x14d1 @0x1f
0x14b2…14e6 at0020 = ╱54╱T╱ // 0x14d2 @0x20
0x14b2…14e6 at0021 = ╱4f╱O╱ // 0x14d3 @0x21
0x14b2…14e6 at0022 = ╱5f╱_╱ // 0x14d4 @0x22
0x14b2…14e6 at0023 = ╱54╱T╱ // 0x14d5 @0x23
0x14b2…14e6 at0024 = ╱59╱Y╱ // 0x14d6 @0x24
0x14b2…14e6 at0025 = ╱50╱P╱ // 0x14d7 @0x25
0x14b2…14e6 at0026 = ╱45╱E╱ // 0x14d8 @0x26
0x14b2…14e6 at0027 = ╱ef╱ $ ╱ // 0x14d9 @0x27
0x14b2…14e6 at0028 = ╱ea╱ ; ╱ // 0x14da @0x28
0x14b2…14e6 at0029 = ╱53╱S╱ // 0x14db @0x29
0x14b2…14e6 at002a = ╱50╱P╱ // 0x14dc @0x2a
0x14b2…14e6 at002b = ╱43╱C╱ // 0x14dd @0x2b
0x14b2…14e6 at002c = ╱ef╱ $ ╱ // 0x14de @0x2c
0x14b2…14e6 at002d = ╱ed╱ ( ╱ // 0x14df @0x2d
0x14b2…14e6 at002e = ╱31╱1╱ // 0x14e0 @0x2e
0x14b2…14e6 at002f = ╱f20100╱ // 0x14e1 @0x2f
0x14b2…14e6 at0032 = ╱ee╱ ) ╱ // 0x14e4 @0x32
0x14b2…14e6 at0033 = EOL // 0x14e5 @0x33
0x14b2…14e6 }
0x14e6…14f2 aae0 02130 WHILE 2
0x14e6…14f2 LineComal80 {
0x14e6…14f2 ptr = 0xaae0 // 0x14e6 @0x0
0x14e6…14f2 lno = 0x0852 // 0x14e8 @0x2
0x14e6…14f2 at0004 = ╱a42501╱ WHILE ╱ // 0x14ea @0x4
0x14e6…14f2 at0007 = ╱32╱2╱ // 0x14ed @0x7
0x14e6…14f2 at0008 = ╱f20200╱ // 0x14ee @0x8
0x14e6…14f2 at000b = EOL // 0x14f1 @0xb
0x14e6…14f2 }
0x14f2…1519 ab07 02140 EDIT "<C1711>2.…Kontonavn:…" : KTO_NAVN $
0x14f2…1519 LineComal80 {
0x14f2…1519 ptr = 0xab07 // 0x14f2 @0x0
0x14f2…1519 lno = 0x085c // 0x14f4 @0x2
0x14f2…1519 at0004 = ╱b1╱ EDIT ╱ // 0x14f6 @0x4
0x14f2…1519 at0005 = ╱22╱"╱ // 0x14f7 @0x5
0x14f2…1519 at0006 = ╱3c╱<╱ // 0x14f8 @0x6
0x14f2…1519 at0007 = ╱43╱C╱ // 0x14f9 @0x7
0x14f2…1519 at0008 = ╱31╱1╱ // 0x14fa @0x8
0x14f2…1519 at0009 = ╱37╱7╱ // 0x14fb @0x9
0x14f2…1519 at000a = ╱31╱1╱ // 0x14fc @0xa
0x14f2…1519 at000b = ╱31╱1╱ // 0x14fd @0xb
0x14f2…1519 at000c = ╱3e╱>╱ // 0x14fe @0xc
0x14f2…1519 at000d = ╱32╱2╱ // 0x14ff @0xd
0x14f2…1519 at000e = ╱2e╱.╱ // 0x1500 @0xe
0x14f2…1519 at000f = ╱20╱…╱ // 0x1501 @0xf
0x14f2…1519 at0010 = ╱4b╱K╱ // 0x1502 @0x10
0x14f2…1519 at0011 = ╱6f╱o╱ // 0x1503 @0x11
0x14f2…1519 at0012 = ╱6e╱n╱ // 0x1504 @0x12
0x14f2…1519 at0013 = ╱74╱t╱ // 0x1505 @0x13
0x14f2…1519 at0014 = ╱6f╱o╱ // 0x1506 @0x14
0x14f2…1519 at0015 = ╱6e╱n╱ // 0x1507 @0x15
0x14f2…1519 at0016 = ╱61╱a╱ // 0x1508 @0x16
0x14f2…1519 at0017 = ╱76╱v╱ // 0x1509 @0x17
0x14f2…1519 at0018 = ╱6e╱n╱ // 0x150a @0x18
0x14f2…1519 at0019 = ╱3a╱:╱ // 0x150b @0x19
0x14f2…1519 at001a = ╱20╱…╱ // 0x150c @0x1a
0x14f2…1519 at001b = ╱22╱"╱ // 0x150d @0x1b
0x14f2…1519 at001c = ╱f1╱ : ╱ // 0x150e @0x1c
0x14f2…1519 at001d = ╱4b╱K╱ // 0x150f @0x1d
0x14f2…1519 at001e = ╱54╱T╱ // 0x1510 @0x1e
0x14f2…1519 at001f = ╱4f╱O╱ // 0x1511 @0x1f
0x14f2…1519 at0020 = ╱5f╱_╱ // 0x1512 @0x20
0x14f2…1519 at0021 = ╱4e╱N╱ // 0x1513 @0x21
0x14f2…1519 at0022 = ╱41╱A╱ // 0x1514 @0x22
0x14f2…1519 at0023 = ╱56╱V╱ // 0x1515 @0x23
0x14f2…1519 at0024 = ╱4e╱N╱ // 0x1516 @0x24
0x14f2…1519 at0025 = ╱ef╱ $ ╱ // 0x1517 @0x25
0x14f2…1519 at0026 = EOL // 0x1518 @0x26
0x14f2…1519 }
0x1519…1525 b733 02150 WHILE 3
0x1519…1525 LineComal80 {
0x1519…1525 ptr = 0xb733 // 0x1519 @0x0
0x1519…1525 lno = 0x0866 // 0x151b @0x2
0x1519…1525 at0004 = ╱a42601╱ WHILE ╱ // 0x151d @0x4
0x1519…1525 at0007 = ╱33╱3╱ // 0x1520 @0x7
0x1519…1525 at0008 = ╱f20300╱ // 0x1521 @0x8
0x1519…1525 at000b = EOL // 0x1524 @0xb
0x1519…1525 }
0x1525…1542 ab30 02160 IF _KTO_TYPE $ >< "A" OR OPRET THEN
0x1525…1542 LineComal80 {
0x1525…1542 ptr = 0xab30 // 0x1525 @0x0
0x1525…1542 lno = 0x0870 // 0x1527 @0x2
0x1525…1542 at0004 = ╱9b2741╱ IF ╱ // 0x1529 @0x4
0x1525…1542 at0007 = ╱5f╱_╱ // 0x152c @0x7
0x1525…1542 at0008 = ╱4b╱K╱ // 0x152d @0x8
0x1525…1542 at0009 = ╱54╱T╱ // 0x152e @0x9
0x1525…1542 at000a = ╱4f╱O╱ // 0x152f @0xa
0x1525…1542 at000b = ╱5f╱_╱ // 0x1530 @0xb
0x1525…1542 at000c = ╱54╱T╱ // 0x1531 @0xc
0x1525…1542 at000d = ╱59╱Y╱ // 0x1532 @0xd
0x1525…1542 at000e = ╱50╱P╱ // 0x1533 @0xe
0x1525…1542 at000f = ╱45╱E╱ // 0x1534 @0xf
0x1525…1542 at0010 = ╱ef╱ $ ╱ // 0x1535 @0x10
0x1525…1542 at0011 = ╱e4╱ >< ╱ // 0x1536 @0x11
0x1525…1542 at0012 = ╱22╱"╱ // 0x1537 @0x12
0x1525…1542 at0013 = ╱41╱A╱ // 0x1538 @0x13
0x1525…1542 at0014 = ╱22╱"╱ // 0x1539 @0x14
0x1525…1542 at0015 = ╱d8╱ OR ╱ // 0x153a @0x15
0x1525…1542 at0016 = ╱4f╱O╱ // 0x153b @0x16
0x1525…1542 at0017 = ╱50╱P╱ // 0x153c @0x17
0x1525…1542 at0018 = ╱52╱R╱ // 0x153d @0x18
0x1525…1542 at0019 = ╱45╱E╱ // 0x153e @0x19
0x1525…1542 at001a = ╱54╱T╱ // 0x153f @0x1a
0x1525…1542 at001b = ╱b5╱ THEN ╱ // 0x1540 @0x1b
0x1525…1542 at001c = EOL // 0x1541 @0x1c
0x1525…1542 }
0x1542…156c ac78 02170 IF A_KTO_TYPE $ IN "…………" THEN LET A_KTO_TYPE $ := "A"
0x1542…156c LineComal80 {
0x1542…156c ptr = 0xac78 // 0x1542 @0x0
0x1542…156c lno = 0x087a // 0x1544 @0x2
0x1542…156c at0004 = ╱8200╱ IF ╱ // 0x1546 @0x4
0x1542…156c at0006 = ╱41╱A╱ // 0x1548 @0x6
0x1542…156c at0007 = ╱5f╱_╱ // 0x1549 @0x7
0x1542…156c at0008 = ╱4b╱K╱ // 0x154a @0x8
0x1542…156c at0009 = ╱54╱T╱ // 0x154b @0x9
0x1542…156c at000a = ╱4f╱O╱ // 0x154c @0xa
0x1542…156c at000b = ╱5f╱_╱ // 0x154d @0xb
0x1542…156c at000c = ╱54╱T╱ // 0x154e @0xc
0x1542…156c at000d = ╱59╱Y╱ // 0x154f @0xd
0x1542…156c at000e = ╱50╱P╱ // 0x1550 @0xe
0x1542…156c at000f = ╱45╱E╱ // 0x1551 @0xf
0x1542…156c at0010 = ╱ef╱ $ ╱ // 0x1552 @0x10
0x1542…156c at0011 = ╱dc╱ IN ╱ // 0x1553 @0x11
0x1542…156c at0012 = ╱22╱"╱ // 0x1554 @0x12
0x1542…156c at0013 = ╱20╱…╱ // 0x1555 @0x13
0x1542…156c at0014 = ╱20╱…╱ // 0x1556 @0x14
0x1542…156c at0015 = ╱20╱…╱ // 0x1557 @0x15
0x1542…156c at0016 = ╱20╱…╱ // 0x1558 @0x16
0x1542…156c at0017 = ╱22╱"╱ // 0x1559 @0x17
0x1542…156c at0018 = ╱b5╱ THEN ╱ // 0x155a @0x18
0x1542…156c at0019 = ╱86╱ LET ╱ // 0x155b @0x19
0x1542…156c at001a = ╱41╱A╱ // 0x155c @0x1a
0x1542…156c at001b = ╱5f╱_╱ // 0x155d @0x1b
0x1542…156c at001c = ╱4b╱K╱ // 0x155e @0x1c
0x1542…156c at001d = ╱54╱T╱ // 0x155f @0x1d
0x1542…156c at001e = ╱4f╱O╱ // 0x1560 @0x1e
0x1542…156c at001f = ╱5f╱_╱ // 0x1561 @0x1f
0x1542…156c at0020 = ╱54╱T╱ // 0x1562 @0x20
0x1542…156c at0021 = ╱59╱Y╱ // 0x1563 @0x21
0x1542…156c at0022 = ╱50╱P╱ // 0x1564 @0x22
0x1542…156c at0023 = ╱45╱E╱ // 0x1565 @0x23
0x1542…156c at0024 = ╱ef╱ $ ╱ // 0x1566 @0x24
0x1542…156c at0025 = ╱f0╱ := ╱ // 0x1567 @0x25
0x1542…156c at0026 = ╱22╱"╱ // 0x1568 @0x26
0x1542…156c at0027 = ╱41╱A╱ // 0x1569 @0x27
0x1542…156c at0028 = ╱22╱"╱ // 0x156a @0x28
0x1542…156c at0029 = EOL // 0x156b @0x29
0x1542…156c }
0x156c…1573 ab61 02180 REPEAT
0x156c…1573 LineComal80 {
0x156c…1573 ptr = 0xab61 // 0x156c @0x0
0x156c…1573 lno = 0x0884 // 0x156e @0x2
0x156c…1573 at0004 = ╱9728╱ REPEAT ╱ // 0x1570 @0x4
0x156c…1573 at0006 = EOL // 0x1572 @0x6
0x156c…1573 }
0x1573…159c ab8a 02190 EDIT "<C1712>3.…Kontotype:…" : A_KTO_TYPE $
0x1573…159c LineComal80 {
0x1573…159c ptr = 0xab8a // 0x1573 @0x0
0x1573…159c lno = 0x088e // 0x1575 @0x2
0x1573…159c at0004 = ╱b1╱ EDIT ╱ // 0x1577 @0x4
0x1573…159c at0005 = ╱22╱"╱ // 0x1578 @0x5
0x1573…159c at0006 = ╱3c╱<╱ // 0x1579 @0x6
0x1573…159c at0007 = ╱43╱C╱ // 0x157a @0x7
0x1573…159c at0008 = ╱31╱1╱ // 0x157b @0x8
0x1573…159c at0009 = ╱37╱7╱ // 0x157c @0x9
0x1573…159c at000a = ╱31╱1╱ // 0x157d @0xa
0x1573…159c at000b = ╱32╱2╱ // 0x157e @0xb
0x1573…159c at000c = ╱3e╱>╱ // 0x157f @0xc
0x1573…159c at000d = ╱33╱3╱ // 0x1580 @0xd
0x1573…159c at000e = ╱2e╱.╱ // 0x1581 @0xe
0x1573…159c at000f = ╱20╱…╱ // 0x1582 @0xf
0x1573…159c at0010 = ╱4b╱K╱ // 0x1583 @0x10
0x1573…159c at0011 = ╱6f╱o╱ // 0x1584 @0x11
0x1573…159c at0012 = ╱6e╱n╱ // 0x1585 @0x12
0x1573…159c at0013 = ╱74╱t╱ // 0x1586 @0x13
0x1573…159c at0014 = ╱6f╱o╱ // 0x1587 @0x14
0x1573…159c at0015 = ╱74╱t╱ // 0x1588 @0x15
0x1573…159c at0016 = ╱79╱y╱ // 0x1589 @0x16
0x1573…159c at0017 = ╱70╱p╱ // 0x158a @0x17
0x1573…159c at0018 = ╱65╱e╱ // 0x158b @0x18
0x1573…159c at0019 = ╱3a╱:╱ // 0x158c @0x19
0x1573…159c at001a = ╱20╱…╱ // 0x158d @0x1a
0x1573…159c at001b = ╱22╱"╱ // 0x158e @0x1b
0x1573…159c at001c = ╱f1╱ : ╱ // 0x158f @0x1c
0x1573…159c at001d = ╱41╱A╱ // 0x1590 @0x1d
0x1573…159c at001e = ╱5f╱_╱ // 0x1591 @0x1e
0x1573…159c at001f = ╱4b╱K╱ // 0x1592 @0x1f
0x1573…159c at0020 = ╱54╱T╱ // 0x1593 @0x20
0x1573…159c at0021 = ╱4f╱O╱ // 0x1594 @0x21
0x1573…159c at0022 = ╱5f╱_╱ // 0x1595 @0x22
0x1573…159c at0023 = ╱54╱T╱ // 0x1596 @0x23
0x1573…159c at0024 = ╱59╱Y╱ // 0x1597 @0x24
0x1573…159c at0025 = ╱50╱P╱ // 0x1598 @0x25
0x1573…159c at0026 = ╱45╱E╱ // 0x1599 @0x26
0x1573…159c at0027 = ╱ef╱ $ ╱ // 0x159a @0x27
0x1573…159c at0028 = EOL // 0x159b @0x28
0x1573…159c }
0x159c…15ae ab9c 02200 EXEC SL_FEJLLINIE
0x159c…15ae LineComal80 {
0x159c…15ae ptr = 0xab9c // 0x159c @0x0
0x159c…15ae lno = 0x0898 // 0x159e @0x2
0x159c…15ae at0004 = ╱9d╱ EXEC ╱ // 0x15a0 @0x4
0x159c…15ae at0005 = ╱53╱S╱ // 0x15a1 @0x5
0x159c…15ae at0006 = ╱4c╱L╱ // 0x15a2 @0x6
0x159c…15ae at0007 = ╱5f╱_╱ // 0x15a3 @0x7
0x159c…15ae at0008 = ╱46╱F╱ // 0x15a4 @0x8
0x159c…15ae at0009 = ╱45╱E╱ // 0x15a5 @0x9
0x159c…15ae at000a = ╱4a╱J╱ // 0x15a6 @0xa
0x159c…15ae at000b = ╱4c╱L╱ // 0x15a7 @0xb
0x159c…15ae at000c = ╱4c╱L╱ // 0x15a8 @0xc
0x159c…15ae at000d = ╱49╱I╱ // 0x15a9 @0xd
0x159c…15ae at000e = ╱4e╱N╱ // 0x15aa @0xe
0x159c…15ae at000f = ╱49╱I╱ // 0x15ab @0xf
0x159c…15ae at0010 = ╱45╱E╱ // 0x15ac @0x10
0x159c…15ae at0011 = EOL // 0x15ad @0x11
0x159c…15ae }
0x15ae…15c8 abb6 02210 EXEC ST_BGST ( A_KTO_TYPE $ )
0x15ae…15c8 LineComal80 {
0x15ae…15c8 ptr = 0xabb6 // 0x15ae @0x0
0x15ae…15c8 lno = 0x08a2 // 0x15b0 @0x2
0x15ae…15c8 at0004 = ╱9d╱ EXEC ╱ // 0x15b2 @0x4
0x15ae…15c8 at0005 = ╱53╱S╱ // 0x15b3 @0x5
0x15ae…15c8 at0006 = ╱54╱T╱ // 0x15b4 @0x6
0x15ae…15c8 at0007 = ╱5f╱_╱ // 0x15b5 @0x7
0x15ae…15c8 at0008 = ╱42╱B╱ // 0x15b6 @0x8
0x15ae…15c8 at0009 = ╱47╱G╱ // 0x15b7 @0x9
0x15ae…15c8 at000a = ╱53╱S╱ // 0x15b8 @0xa
0x15ae…15c8 at000b = ╱54╱T╱ // 0x15b9 @0xb
0x15ae…15c8 at000c = ╱ed╱ ( ╱ // 0x15ba @0xc
0x15ae…15c8 at000d = ╱41╱A╱ // 0x15bb @0xd
0x15ae…15c8 at000e = ╱5f╱_╱ // 0x15bc @0xe
0x15ae…15c8 at000f = ╱4b╱K╱ // 0x15bd @0xf
0x15ae…15c8 at0010 = ╱54╱T╱ // 0x15be @0x10
0x15ae…15c8 at0011 = ╱4f╱O╱ // 0x15bf @0x11
0x15ae…15c8 at0012 = ╱5f╱_╱ // 0x15c0 @0x12
0x15ae…15c8 at0013 = ╱54╱T╱ // 0x15c1 @0x13
0x15ae…15c8 at0014 = ╱59╱Y╱ // 0x15c2 @0x14
0x15ae…15c8 at0015 = ╱50╱P╱ // 0x15c3 @0x15
0x15ae…15c8 at0016 = ╱45╱E╱ // 0x15c4 @0x16
0x15ae…15c8 at0017 = ╱ef╱ $ ╱ // 0x15c5 @0x17
0x15ae…15c8 at0018 = ╱ee╱ ) ╱ // 0x15c6 @0x18
0x15ae…15c8 at0019 = EOL // 0x15c7 @0x19
0x15ae…15c8 }
0x15c8…1600 abee 02220 IF "/" + A_KTO_TYPE $ + "/" IN "/A/B/C/D/E/F/G/H/I/J/K/L/" THEN
0x15c8…1600 LineComal80 {
0x15c8…1600 ptr = 0xabee // 0x15c8 @0x0
0x15c8…1600 lno = 0x08ac // 0x15ca @0x2
0x15c8…1600 at0004 = ╱9b29d7╱ IF ╱ // 0x15cc @0x4
0x15c8…1600 at0007 = ╱22╱"╱ // 0x15cf @0x7
0x15c8…1600 at0008 = ╱2f╱/╱ // 0x15d0 @0x8
0x15c8…1600 at0009 = ╱22╱"╱ // 0x15d1 @0x9
0x15c8…1600 at000a = ╱eb╱ + ╱ // 0x15d2 @0xa
0x15c8…1600 at000b = ╱41╱A╱ // 0x15d3 @0xb
0x15c8…1600 at000c = ╱5f╱_╱ // 0x15d4 @0xc
0x15c8…1600 at000d = ╱4b╱K╱ // 0x15d5 @0xd
0x15c8…1600 at000e = ╱54╱T╱ // 0x15d6 @0xe
0x15c8…1600 at000f = ╱4f╱O╱ // 0x15d7 @0xf
0x15c8…1600 at0010 = ╱5f╱_╱ // 0x15d8 @0x10
0x15c8…1600 at0011 = ╱54╱T╱ // 0x15d9 @0x11
0x15c8…1600 at0012 = ╱59╱Y╱ // 0x15da @0x12
0x15c8…1600 at0013 = ╱50╱P╱ // 0x15db @0x13
0x15c8…1600 at0014 = ╱45╱E╱ // 0x15dc @0x14
0x15c8…1600 at0015 = ╱ef╱ $ ╱ // 0x15dd @0x15
0x15c8…1600 at0016 = ╱eb╱ + ╱ // 0x15de @0x16
0x15c8…1600 at0017 = ╱22╱"╱ // 0x15df @0x17
0x15c8…1600 at0018 = ╱2f╱/╱ // 0x15e0 @0x18
0x15c8…1600 at0019 = ╱22╱"╱ // 0x15e1 @0x19
0x15c8…1600 at001a = ╱dc╱ IN ╱ // 0x15e2 @0x1a
0x15c8…1600 at001b = ╱22╱"╱ // 0x15e3 @0x1b
0x15c8…1600 at001c = ╱2f╱/╱ // 0x15e4 @0x1c
0x15c8…1600 at001d = ╱41╱A╱ // 0x15e5 @0x1d
0x15c8…1600 at001e = ╱2f╱/╱ // 0x15e6 @0x1e
0x15c8…1600 at001f = ╱42╱B╱ // 0x15e7 @0x1f
0x15c8…1600 at0020 = ╱2f╱/╱ // 0x15e8 @0x20
0x15c8…1600 at0021 = ╱43╱C╱ // 0x15e9 @0x21
0x15c8…1600 at0022 = ╱2f╱/╱ // 0x15ea @0x22
0x15c8…1600 at0023 = ╱44╱D╱ // 0x15eb @0x23
0x15c8…1600 at0024 = ╱2f╱/╱ // 0x15ec @0x24
0x15c8…1600 at0025 = ╱45╱E╱ // 0x15ed @0x25
0x15c8…1600 at0026 = ╱2f╱/╱ // 0x15ee @0x26
0x15c8…1600 at0027 = ╱46╱F╱ // 0x15ef @0x27
0x15c8…1600 at0028 = ╱2f╱/╱ // 0x15f0 @0x28
0x15c8…1600 at0029 = ╱47╱G╱ // 0x15f1 @0x29
0x15c8…1600 at002a = ╱2f╱/╱ // 0x15f2 @0x2a
0x15c8…1600 at002b = ╱48╱H╱ // 0x15f3 @0x2b
0x15c8…1600 at002c = ╱2f╱/╱ // 0x15f4 @0x2c
0x15c8…1600 at002d = ╱49╱I╱ // 0x15f5 @0x2d
0x15c8…1600 at002e = ╱2f╱/╱ // 0x15f6 @0x2e
0x15c8…1600 at002f = ╱4a╱J╱ // 0x15f7 @0x2f
0x15c8…1600 at0030 = ╱2f╱/╱ // 0x15f8 @0x30
0x15c8…1600 at0031 = ╱4b╱K╱ // 0x15f9 @0x31
0x15c8…1600 at0032 = ╱2f╱/╱ // 0x15fa @0x32
0x15c8…1600 at0033 = ╱4c╱L╱ // 0x15fb @0x33
0x15c8…1600 at0034 = ╱2f╱/╱ // 0x15fc @0x34
0x15c8…1600 at0035 = ╱22╱"╱ // 0x15fd @0x35
0x15c8…1600 at0036 = ╱b5╱ THEN ╱ // 0x15fe @0x36
0x15c8…1600 at0037 = EOL // 0x15ff @0x37
0x15c8…1600 }
0x1600…1632 ac20 02230 EXEC FEJL ( "Ulovlig…kontotype:…'" + A_KTO_TYPE $ + "'" )
0x1600…1632 LineComal80 {
0x1600…1632 ptr = 0xac20 // 0x1600 @0x0
0x1600…1632 lno = 0x08b6 // 0x1602 @0x2
0x1600…1632 at0004 = ╱9d╱ EXEC ╱ // 0x1604 @0x4
0x1600…1632 at0005 = ╱46╱F╱ // 0x1605 @0x5
0x1600…1632 at0006 = ╱45╱E╱ // 0x1606 @0x6
0x1600…1632 at0007 = ╱4a╱J╱ // 0x1607 @0x7
0x1600…1632 at0008 = ╱4c╱L╱ // 0x1608 @0x8
0x1600…1632 at0009 = ╱ed╱ ( ╱ // 0x1609 @0x9
0x1600…1632 at000a = ╱22╱"╱ // 0x160a @0xa
0x1600…1632 at000b = ╱55╱U╱ // 0x160b @0xb
0x1600…1632 at000c = ╱6c╱l╱ // 0x160c @0xc
0x1600…1632 at000d = ╱6f╱o╱ // 0x160d @0xd
0x1600…1632 at000e = ╱76╱v╱ // 0x160e @0xe
0x1600…1632 at000f = ╱6c╱l╱ // 0x160f @0xf
0x1600…1632 at0010 = ╱69╱i╱ // 0x1610 @0x10
0x1600…1632 at0011 = ╱67╱g╱ // 0x1611 @0x11
0x1600…1632 at0012 = ╱20╱…╱ // 0x1612 @0x12
0x1600…1632 at0013 = ╱6b╱k╱ // 0x1613 @0x13
0x1600…1632 at0014 = ╱6f╱o╱ // 0x1614 @0x14
0x1600…1632 at0015 = ╱6e╱n╱ // 0x1615 @0x15
0x1600…1632 at0016 = ╱74╱t╱ // 0x1616 @0x16
0x1600…1632 at0017 = ╱6f╱o╱ // 0x1617 @0x17
0x1600…1632 at0018 = ╱74╱t╱ // 0x1618 @0x18
0x1600…1632 at0019 = ╱79╱y╱ // 0x1619 @0x19
0x1600…1632 at001a = ╱70╱p╱ // 0x161a @0x1a
0x1600…1632 at001b = ╱65╱e╱ // 0x161b @0x1b
0x1600…1632 at001c = ╱3a╱:╱ // 0x161c @0x1c
0x1600…1632 at001d = ╱20╱…╱ // 0x161d @0x1d
0x1600…1632 at001e = ╱27╱'╱ // 0x161e @0x1e
0x1600…1632 at001f = ╱22╱"╱ // 0x161f @0x1f
0x1600…1632 at0020 = ╱eb╱ + ╱ // 0x1620 @0x20
0x1600…1632 at0021 = ╱41╱A╱ // 0x1621 @0x21
0x1600…1632 at0022 = ╱5f╱_╱ // 0x1622 @0x22
0x1600…1632 at0023 = ╱4b╱K╱ // 0x1623 @0x23
0x1600…1632 at0024 = ╱54╱T╱ // 0x1624 @0x24
0x1600…1632 at0025 = ╱4f╱O╱ // 0x1625 @0x25
0x1600…1632 at0026 = ╱5f╱_╱ // 0x1626 @0x26
0x1600…1632 at0027 = ╱54╱T╱ // 0x1627 @0x27
0x1600…1632 at0028 = ╱59╱Y╱ // 0x1628 @0x28
0x1600…1632 at0029 = ╱50╱P╱ // 0x1629 @0x29
0x1600…1632 at002a = ╱45╱E╱ // 0x162a @0x2a
0x1600…1632 at002b = ╱ef╱ $ ╱ // 0x162b @0x2b
0x1600…1632 at002c = ╱eb╱ + ╱ // 0x162c @0x2c
0x1600…1632 at002d = ╱22╱"╱ // 0x162d @0x2d
0x1600…1632 at002e = ╱27╱'╱ // 0x162e @0x2e
0x1600…1632 at002f = ╱22╱"╱ // 0x162f @0x2f
0x1600…1632 at0030 = ╱ee╱ ) ╱ // 0x1630 @0x30
0x1600…1632 at0031 = EOL // 0x1631 @0x31
0x1600…1632 }
0x1632…1639 ac27 02240 ELSE
0x1632…1639 LineComal80 {
0x1632…1639 ptr = 0xac27 // 0x1632 @0x0
0x1632…1639 lno = 0x08c0 // 0x1634 @0x2
0x1632…1639 at0004 = ╱9a2a╱ ELSE ╱ // 0x1636 @0x4
0x1632…1639 at0006 = EOL // 0x1638 @0x6
0x1632…1639 }
0x1639…1662 ac50 02250 PRINT "<C1712>3.…Kontotype:…" ; A_KTO_TYPE $
0x1639…1662 LineComal80 {
0x1639…1662 ptr = 0xac50 // 0x1639 @0x0
0x1639…1662 lno = 0x08ca // 0x163b @0x2
0x1639…1662 at0004 = ╱92╱ PRINT ╱ // 0x163d @0x4
0x1639…1662 at0005 = ╱22╱"╱ // 0x163e @0x5
0x1639…1662 at0006 = ╱3c╱<╱ // 0x163f @0x6
0x1639…1662 at0007 = ╱43╱C╱ // 0x1640 @0x7
0x1639…1662 at0008 = ╱31╱1╱ // 0x1641 @0x8
0x1639…1662 at0009 = ╱37╱7╱ // 0x1642 @0x9
0x1639…1662 at000a = ╱31╱1╱ // 0x1643 @0xa
0x1639…1662 at000b = ╱32╱2╱ // 0x1644 @0xb
0x1639…1662 at000c = ╱3e╱>╱ // 0x1645 @0xc
0x1639…1662 at000d = ╱33╱3╱ // 0x1646 @0xd
0x1639…1662 at000e = ╱2e╱.╱ // 0x1647 @0xe
0x1639…1662 at000f = ╱20╱…╱ // 0x1648 @0xf
0x1639…1662 at0010 = ╱4b╱K╱ // 0x1649 @0x10
0x1639…1662 at0011 = ╱6f╱o╱ // 0x164a @0x11
0x1639…1662 at0012 = ╱6e╱n╱ // 0x164b @0x12
0x1639…1662 at0013 = ╱74╱t╱ // 0x164c @0x13
0x1639…1662 at0014 = ╱6f╱o╱ // 0x164d @0x14
0x1639…1662 at0015 = ╱74╱t╱ // 0x164e @0x15
0x1639…1662 at0016 = ╱79╱y╱ // 0x164f @0x16
0x1639…1662 at0017 = ╱70╱p╱ // 0x1650 @0x17
0x1639…1662 at0018 = ╱65╱e╱ // 0x1651 @0x18
0x1639…1662 at0019 = ╱3a╱:╱ // 0x1652 @0x19
0x1639…1662 at001a = ╱20╱…╱ // 0x1653 @0x1a
0x1639…1662 at001b = ╱22╱"╱ // 0x1654 @0x1b
0x1639…1662 at001c = ╱ea╱ ; ╱ // 0x1655 @0x1c
0x1639…1662 at001d = ╱41╱A╱ // 0x1656 @0x1d
0x1639…1662 at001e = ╱5f╱_╱ // 0x1657 @0x1e
0x1639…1662 at001f = ╱4b╱K╱ // 0x1658 @0x1f
0x1639…1662 at0020 = ╱54╱T╱ // 0x1659 @0x20
0x1639…1662 at0021 = ╱4f╱O╱ // 0x165a @0x21
0x1639…1662 at0022 = ╱5f╱_╱ // 0x165b @0x22
0x1639…1662 at0023 = ╱54╱T╱ // 0x165c @0x23
0x1639…1662 at0024 = ╱59╱Y╱ // 0x165d @0x24
0x1639…1662 at0025 = ╱50╱P╱ // 0x165e @0x25
0x1639…1662 at0026 = ╱45╱E╱ // 0x165f @0x26
0x1639…1662 at0027 = ╱ef╱ $ ╱ // 0x1660 @0x27
0x1639…1662 at0028 = EOL // 0x1661 @0x28
0x1639…1662 }
0x1662…166f ac5d 02260 LET OK := TRUE
0x1662…166f LineComal80 {
0x1662…166f ptr = 0xac5d // 0x1662 @0x0
0x1662…166f lno = 0x08d4 // 0x1664 @0x2
0x1662…166f at0004 = ╱86╱ LET ╱ // 0x1666 @0x4
0x1662…166f at0005 = ╱4f╱O╱ // 0x1667 @0x5
0x1662…166f at0006 = ╱4b╱K╱ // 0x1668 @0x6
0x1662…166f at0007 = ╱f0╱ := ╱ // 0x1669 @0x7
0x1662…166f at0008 = ╱54╱T╱ // 0x166a @0x8
0x1662…166f at0009 = ╱52╱R╱ // 0x166b @0x9
0x1662…166f at000a = ╱55╱U╱ // 0x166c @0xa
0x1662…166f at000b = ╱45╱E╱ // 0x166d @0xb
0x1662…166f at000c = EOL // 0x166e @0xc
0x1662…166f }
0x166f…1676 ac64 02270 ELSE
0x166f…1676 LineComal80 {
0x166f…1676 ptr = 0xac64 // 0x166f @0x0
0x166f…1676 lno = 0x08de // 0x1671 @0x2
0x166f…1676 at0004 = ╱9a2b╱ ELSE ╱ // 0x1673 @0x4
0x166f…1676 at0006 = EOL // 0x1675 @0x6
0x166f…1676 }
0x1676…167c ac6a 02280 ENDIF
0x1676…167c LineComal80 {
0x1676…167c ptr = 0xac6a // 0x1676 @0x0
0x1676…167c lno = 0x08e8 // 0x1678 @0x2
0x1676…167c at0004 = ╱9c╱ ENDIF ╱ // 0x167a @0x4
0x1676…167c at0005 = EOL // 0x167b @0x5
0x1676…167c }
0x167c…1684 ac72 02290 UNTIL OK
0x167c…1684 LineComal80 {
0x167c…1684 ptr = 0xac72 // 0x167c @0x0
0x167c…1684 lno = 0x08f2 // 0x167e @0x2
0x167c…1684 at0004 = ╱98╱ UNTIL ╱ // 0x1680 @0x4
0x167c…1684 at0005 = ╱4f╱O╱ // 0x1681 @0x5
0x167c…1684 at0006 = ╱4b╱K╱ // 0x1682 @0x6
0x167c…1684 at0007 = EOL // 0x1683 @0x7
0x167c…1684 }
0x1684…168a ac78 02300 ENDIF
0x1684…168a LineComal80 {
0x1684…168a ptr = 0xac78 // 0x1684 @0x0
0x1684…168a lno = 0x08fc // 0x1686 @0x2
0x1684…168a at0004 = ╱9c╱ ENDIF ╱ // 0x1688 @0x4
0x1684…168a at0005 = EOL // 0x1689 @0x5
0x1684…168a }
0x168a…1690 ac7e 02310 ENDCASE
0x168a…1690 LineComal80 {
0x168a…1690 ptr = 0xac7e // 0x168a @0x0
0x168a…1690 lno = 0x0906 // 0x168c @0x2
0x168a…1690 at0004 = ╱a3╱ ENDCASE ╱ // 0x168e @0x4
0x168a…1690 at0005 = EOL // 0x168f @0x5
0x168a…1690 }
0x1690…169f ac8d 02320 ENDPROC RET_LINIE
0x1690…169f LineComal80 {
0x1690…169f ptr = 0xac8d // 0x1690 @0x0
0x1690…169f lno = 0x0910 // 0x1692 @0x2
0x1690…169f at0004 = ╱9f╱ ENDPROC ╱ // 0x1694 @0x4
0x1690…169f at0005 = ╱52╱R╱ // 0x1695 @0x5
0x1690…169f at0006 = ╱45╱E╱ // 0x1696 @0x6
0x1690…169f at0007 = ╱54╱T╱ // 0x1697 @0x7
0x1690…169f at0008 = ╱5f╱_╱ // 0x1698 @0x8
0x1690…169f at0009 = ╱4c╱L╱ // 0x1699 @0x9
0x1690…169f at000a = ╱49╱I╱ // 0x169a @0xa
0x1690…169f at000b = ╱4e╱N╱ // 0x169b @0xb
0x1690…169f at000c = ╱49╱I╱ // 0x169c @0xc
0x1690…169f at000d = ╱45╱E╱ // 0x169d @0xd
0x1690…169f at000e = EOL // 0x169e @0xe
0x1690…169f }
0x169f…16a4 ac92 02330
0x169f…16a4 LineComal80 {
0x169f…16a4 ptr = 0xac92 // 0x169f @0x0
0x169f…16a4 lno = 0x091a // 0x16a1 @0x2
0x169f…16a4 at0004 = EOL // 0x16a3 @0x4
0x169f…16a4 }
0x16a4…16b9 aca7 02340 PROC SKRIV_KONTOOPL
0x16a4…16b9 LineComal80 {
0x16a4…16b9 ptr = 0xaca7 // 0x16a4 @0x0
0x16a4…16b9 lno = 0x0924 // 0x16a6 @0x2
0x16a4…16b9 at0004 = ╱9e27╱ PROC ╱ // 0x16a8 @0x4
0x16a4…16b9 at0006 = ╱53╱S╱ // 0x16aa @0x6
0x16a4…16b9 at0007 = ╱4b╱K╱ // 0x16ab @0x7
0x16a4…16b9 at0008 = ╱52╱R╱ // 0x16ac @0x8
0x16a4…16b9 at0009 = ╱49╱I╱ // 0x16ad @0x9
0x16a4…16b9 at000a = ╱56╱V╱ // 0x16ae @0xa
0x16a4…16b9 at000b = ╱5f╱_╱ // 0x16af @0xb
0x16a4…16b9 at000c = ╱4b╱K╱ // 0x16b0 @0xc
0x16a4…16b9 at000d = ╱4f╱O╱ // 0x16b1 @0xd
0x16a4…16b9 at000e = ╱4e╱N╱ // 0x16b2 @0xe
0x16a4…16b9 at000f = ╱54╱T╱ // 0x16b3 @0xf
0x16a4…16b9 at0010 = ╱4f╱O╱ // 0x16b4 @0x10
0x16a4…16b9 at0011 = ╱4f╱O╱ // 0x16b5 @0x11
0x16a4…16b9 at0012 = ╱50╱P╱ // 0x16b6 @0x12
0x16a4…16b9 at0013 = ╱4c╱L╱ // 0x16b7 @0x13
0x16a4…16b9 at0014 = EOL // 0x16b8 @0x14
0x16a4…16b9 }
0x16b9…16d4 acc2 02350 IF OPRET THEN EXEC FIND_IDXPLADS
0x16b9…16d4 LineComal80 {
0x16b9…16d4 ptr = 0xacc2 // 0x16b9 @0x0
0x16b9…16d4 lno = 0x092e // 0x16bb @0x2
0x16b9…16d4 at0004 = ╱8200╱ IF ╱ // 0x16bd @0x4
0x16b9…16d4 at0006 = ╱4f╱O╱ // 0x16bf @0x6
0x16b9…16d4 at0007 = ╱50╱P╱ // 0x16c0 @0x7
0x16b9…16d4 at0008 = ╱52╱R╱ // 0x16c1 @0x8
0x16b9…16d4 at0009 = ╱45╱E╱ // 0x16c2 @0x9
0x16b9…16d4 at000a = ╱54╱T╱ // 0x16c3 @0xa
0x16b9…16d4 at000b = ╱b5╱ THEN ╱ // 0x16c4 @0xb
0x16b9…16d4 at000c = ╱9d╱ EXEC ╱ // 0x16c5 @0xc
0x16b9…16d4 at000d = ╱46╱F╱ // 0x16c6 @0xd
0x16b9…16d4 at000e = ╱49╱I╱ // 0x16c7 @0xe
0x16b9…16d4 at000f = ╱4e╱N╱ // 0x16c8 @0xf
0x16b9…16d4 at0010 = ╱44╱D╱ // 0x16c9 @0x10
0x16b9…16d4 at0011 = ╱5f╱_╱ // 0x16ca @0x11
0x16b9…16d4 at0012 = ╱49╱I╱ // 0x16cb @0x12
0x16b9…16d4 at0013 = ╱44╱D╱ // 0x16cc @0x13
0x16b9…16d4 at0014 = ╱58╱X╱ // 0x16cd @0x14
0x16b9…16d4 at0015 = ╱50╱P╱ // 0x16ce @0x15
0x16b9…16d4 at0016 = ╱4c╱L╱ // 0x16cf @0x16
0x16b9…16d4 at0017 = ╱41╱A╱ // 0x16d0 @0x17
0x16b9…16d4 at0018 = ╱44╱D╱ // 0x16d1 @0x18
0x16b9…16d4 at0019 = ╱53╱S╱ // 0x16d2 @0x19
0x16b9…16d4 at001a = EOL // 0x16d3 @0x1a
0x16b9…16d4 }
0x16d4…16ef acdd 02360 LET KTO_TYPE $ := A_KTO_TYPE $
0x16d4…16ef LineComal80 {
0x16d4…16ef ptr = 0xacdd // 0x16d4 @0x0
0x16d4…16ef lno = 0x0938 // 0x16d6 @0x2
0x16d4…16ef at0004 = ╱86╱ LET ╱ // 0x16d8 @0x4
0x16d4…16ef at0005 = ╱4b╱K╱ // 0x16d9 @0x5
0x16d4…16ef at0006 = ╱54╱T╱ // 0x16da @0x6
0x16d4…16ef at0007 = ╱4f╱O╱ // 0x16db @0x7
0x16d4…16ef at0008 = ╱5f╱_╱ // 0x16dc @0x8
0x16d4…16ef at0009 = ╱54╱T╱ // 0x16dd @0x9
0x16d4…16ef at000a = ╱59╱Y╱ // 0x16de @0xa
0x16d4…16ef at000b = ╱50╱P╱ // 0x16df @0xb
0x16d4…16ef at000c = ╱45╱E╱ // 0x16e0 @0xc
0x16d4…16ef at000d = ╱ef╱ $ ╱ // 0x16e1 @0xd
0x16d4…16ef at000e = ╱f0╱ := ╱ // 0x16e2 @0xe
0x16d4…16ef at000f = ╱41╱A╱ // 0x16e3 @0xf
0x16d4…16ef at0010 = ╱5f╱_╱ // 0x16e4 @0x10
0x16d4…16ef at0011 = ╱4b╱K╱ // 0x16e5 @0x11
0x16d4…16ef at0012 = ╱54╱T╱ // 0x16e6 @0x12
0x16d4…16ef at0013 = ╱4f╱O╱ // 0x16e7 @0x13
0x16d4…16ef at0014 = ╱5f╱_╱ // 0x16e8 @0x14
0x16d4…16ef at0015 = ╱54╱T╱ // 0x16e9 @0x15
0x16d4…16ef at0016 = ╱59╱Y╱ // 0x16ea @0x16
0x16d4…16ef at0017 = ╱50╱P╱ // 0x16eb @0x17
0x16d4…16ef at0018 = ╱45╱E╱ // 0x16ec @0x18
0x16d4…16ef at0019 = ╱ef╱ $ ╱ // 0x16ed @0x19
0x16d4…16ef at001a = EOL // 0x16ee @0x1a
0x16d4…16ef }
0x16ef…1707 acf5 02370 EXEC SKRIV_KONTO ( RECNR )
0x16ef…1707 LineComal80 {
0x16ef…1707 ptr = 0xacf5 // 0x16ef @0x0
0x16ef…1707 lno = 0x0942 // 0x16f1 @0x2
0x16ef…1707 at0004 = ╱9d╱ EXEC ╱ // 0x16f3 @0x4
0x16ef…1707 at0005 = ╱53╱S╱ // 0x16f4 @0x5
0x16ef…1707 at0006 = ╱4b╱K╱ // 0x16f5 @0x6
0x16ef…1707 at0007 = ╱52╱R╱ // 0x16f6 @0x7
0x16ef…1707 at0008 = ╱49╱I╱ // 0x16f7 @0x8
0x16ef…1707 at0009 = ╱56╱V╱ // 0x16f8 @0x9
0x16ef…1707 at000a = ╱5f╱_╱ // 0x16f9 @0xa
0x16ef…1707 at000b = ╱4b╱K╱ // 0x16fa @0xb
0x16ef…1707 at000c = ╱4f╱O╱ // 0x16fb @0xc
0x16ef…1707 at000d = ╱4e╱N╱ // 0x16fc @0xd
0x16ef…1707 at000e = ╱54╱T╱ // 0x16fd @0xe
0x16ef…1707 at000f = ╱4f╱O╱ // 0x16fe @0xf
0x16ef…1707 at0010 = ╱ed╱ ( ╱ // 0x16ff @0x10
0x16ef…1707 at0011 = ╱52╱R╱ // 0x1700 @0x11
0x16ef…1707 at0012 = ╱45╱E╱ // 0x1701 @0x12
0x16ef…1707 at0013 = ╱43╱C╱ // 0x1702 @0x13
0x16ef…1707 at0014 = ╱4e╱N╱ // 0x1703 @0x14
0x16ef…1707 at0015 = ╱52╱R╱ // 0x1704 @0x15
0x16ef…1707 at0016 = ╱ee╱ ) ╱ // 0x1705 @0x16
0x16ef…1707 at0017 = EOL // 0x1706 @0x17
0x16ef…1707 }
0x1707…171b ad09 02380 ENDPROC SKRIV_KONTOOPL
0x1707…171b LineComal80 {
0x1707…171b ptr = 0xad09 // 0x1707 @0x0
0x1707…171b lno = 0x094c // 0x1709 @0x2
0x1707…171b at0004 = ╱9f╱ ENDPROC ╱ // 0x170b @0x4
0x1707…171b at0005 = ╱53╱S╱ // 0x170c @0x5
0x1707…171b at0006 = ╱4b╱K╱ // 0x170d @0x6
0x1707…171b at0007 = ╱52╱R╱ // 0x170e @0x7
0x1707…171b at0008 = ╱49╱I╱ // 0x170f @0x8
0x1707…171b at0009 = ╱56╱V╱ // 0x1710 @0x9
0x1707…171b at000a = ╱5f╱_╱ // 0x1711 @0xa
0x1707…171b at000b = ╱4b╱K╱ // 0x1712 @0xb
0x1707…171b at000c = ╱4f╱O╱ // 0x1713 @0xc
0x1707…171b at000d = ╱4e╱N╱ // 0x1714 @0xd
0x1707…171b at000e = ╱54╱T╱ // 0x1715 @0xe
0x1707…171b at000f = ╱4f╱O╱ // 0x1716 @0xf
0x1707…171b at0010 = ╱4f╱O╱ // 0x1717 @0x10
0x1707…171b at0011 = ╱50╱P╱ // 0x1718 @0x11
0x1707…171b at0012 = ╱4c╱L╱ // 0x1719 @0x12
0x1707…171b at0013 = EOL // 0x171a @0x13
0x1707…171b }
0x171b…1720 ad0e 02390
0x171b…1720 LineComal80 {
0x171b…1720 ptr = 0xad0e // 0x171b @0x0
0x171b…1720 lno = 0x0956 // 0x171d @0x2
0x171b…1720 at0004 = EOL // 0x171f @0x4
0x171b…1720 }
0x1720…1734 ad22 02400 PROC FIND_IDXPLADS
0x1720…1734 LineComal80 {
0x1720…1734 ptr = 0xad22 // 0x1720 @0x0
0x1720…1734 lno = 0x0960 // 0x1722 @0x2
0x1720…1734 at0004 = ╱9e28╱ PROC ╱ // 0x1724 @0x4
0x1720…1734 at0006 = ╱46╱F╱ // 0x1726 @0x6
0x1720…1734 at0007 = ╱49╱I╱ // 0x1727 @0x7
0x1720…1734 at0008 = ╱4e╱N╱ // 0x1728 @0x8
0x1720…1734 at0009 = ╱44╱D╱ // 0x1729 @0x9
0x1720…1734 at000a = ╱5f╱_╱ // 0x172a @0xa
0x1720…1734 at000b = ╱49╱I╱ // 0x172b @0xb
0x1720…1734 at000c = ╱44╱D╱ // 0x172c @0xc
0x1720…1734 at000d = ╱58╱X╱ // 0x172d @0xd
0x1720…1734 at000e = ╱50╱P╱ // 0x172e @0xe
0x1720…1734 at000f = ╱4c╱L╱ // 0x172f @0xf
0x1720…1734 at0010 = ╱41╱A╱ // 0x1730 @0x10
0x1720…1734 at0011 = ╱44╱D╱ // 0x1731 @0x11
0x1720…1734 at0012 = ╱53╱S╱ // 0x1732 @0x12
0x1720…1734 at0013 = EOL // 0x1733 @0x13
0x1720…1734 }
0x1734…1751 ad3f 02410 EXEC FIND_TOM_PLADS ( A_RECNR )
0x1734…1751 LineComal80 {
0x1734…1751 ptr = 0xad3f // 0x1734 @0x0
0x1734…1751 lno = 0x096a // 0x1736 @0x2
0x1734…1751 at0004 = ╱9d╱ EXEC ╱ // 0x1738 @0x4
0x1734…1751 at0005 = ╱46╱F╱ // 0x1739 @0x5
0x1734…1751 at0006 = ╱49╱I╱ // 0x173a @0x6
0x1734…1751 at0007 = ╱4e╱N╱ // 0x173b @0x7
0x1734…1751 at0008 = ╱44╱D╱ // 0x173c @0x8
0x1734…1751 at0009 = ╱5f╱_╱ // 0x173d @0x9
0x1734…1751 at000a = ╱54╱T╱ // 0x173e @0xa
0x1734…1751 at000b = ╱4f╱O╱ // 0x173f @0xb
0x1734…1751 at000c = ╱4d╱M╱ // 0x1740 @0xc
0x1734…1751 at000d = ╱5f╱_╱ // 0x1741 @0xd
0x1734…1751 at000e = ╱50╱P╱ // 0x1742 @0xe
0x1734…1751 at000f = ╱4c╱L╱ // 0x1743 @0xf
0x1734…1751 at0010 = ╱41╱A╱ // 0x1744 @0x10
0x1734…1751 at0011 = ╱44╱D╱ // 0x1745 @0x11
0x1734…1751 at0012 = ╱53╱S╱ // 0x1746 @0x12
0x1734…1751 at0013 = ╱ed╱ ( ╱ // 0x1747 @0x13
0x1734…1751 at0014 = ╱41╱A╱ // 0x1748 @0x14
0x1734…1751 at0015 = ╱5f╱_╱ // 0x1749 @0x15
0x1734…1751 at0016 = ╱52╱R╱ // 0x174a @0x16
0x1734…1751 at0017 = ╱45╱E╱ // 0x174b @0x17
0x1734…1751 at0018 = ╱43╱C╱ // 0x174c @0x18
0x1734…1751 at0019 = ╱4e╱N╱ // 0x174d @0x19
0x1734…1751 at001a = ╱52╱R╱ // 0x174e @0x1a
0x1734…1751 at001b = ╱ee╱ ) ╱ // 0x174f @0x1b
0x1734…1751 at001c = EOL // 0x1750 @0x1c
0x1734…1751 }
0x1751…177b ad69 02420 LET I_H\JREC := I_H\JREC + 1 ; IDXPOS := IDXPOS
0x1751…177b LineComal80 {
0x1751…177b ptr = 0xad69 // 0x1751 @0x0
0x1751…177b lno = 0x0974 // 0x1753 @0x2
0x1751…177b at0004 = ╱86╱ LET ╱ // 0x1755 @0x4
0x1751…177b at0005 = ╱49╱I╱ // 0x1756 @0x5
0x1751…177b at0006 = ╱5f╱_╱ // 0x1757 @0x6
0x1751…177b at0007 = ╱48╱H╱ // 0x1758 @0x7
0x1751…177b at0008 = ╱5c╱\╱ // 0x1759 @0x8
0x1751…177b at0009 = ╱4a╱J╱ // 0x175a @0x9
0x1751…177b at000a = ╱52╱R╱ // 0x175b @0xa
0x1751…177b at000b = ╱45╱E╱ // 0x175c @0xb
0x1751…177b at000c = ╱43╱C╱ // 0x175d @0xc
0x1751…177b at000d = ╱f0╱ := ╱ // 0x175e @0xd
0x1751…177b at000e = ╱49╱I╱ // 0x175f @0xe
0x1751…177b at000f = ╱5f╱_╱ // 0x1760 @0xf
0x1751…177b at0010 = ╱48╱H╱ // 0x1761 @0x10
0x1751…177b at0011 = ╱5c╱\╱ // 0x1762 @0x11
0x1751…177b at0012 = ╱4a╱J╱ // 0x1763 @0x12
0x1751…177b at0013 = ╱52╱R╱ // 0x1764 @0x13
0x1751…177b at0014 = ╱45╱E╱ // 0x1765 @0x14
0x1751…177b at0015 = ╱43╱C╱ // 0x1766 @0x15
0x1751…177b at0016 = ╱e5╱ + ╱ // 0x1767 @0x16
0x1751…177b at0017 = ╱31╱1╱ // 0x1768 @0x17
0x1751…177b at0018 = ╱f20100╱ // 0x1769 @0x18
0x1751…177b at001b = ╱ea╱ ; ╱ // 0x176c @0x1b
0x1751…177b at001c = ╱49╱I╱ // 0x176d @0x1c
0x1751…177b at001d = ╱44╱D╱ // 0x176e @0x1d
0x1751…177b at001e = ╱58╱X╱ // 0x176f @0x1e
0x1751…177b at001f = ╱50╱P╱ // 0x1770 @0x1f
0x1751…177b at0020 = ╱4f╱O╱ // 0x1771 @0x20
0x1751…177b at0021 = ╱53╱S╱ // 0x1772 @0x21
0x1751…177b at0022 = ╱f0╱ := ╱ // 0x1773 @0x22
0x1751…177b at0023 = ╱49╱I╱ // 0x1774 @0x23
0x1751…177b at0024 = ╱44╱D╱ // 0x1775 @0x24
0x1751…177b at0025 = ╱58╱X╱ // 0x1776 @0x25
0x1751…177b at0026 = ╱50╱P╱ // 0x1777 @0x26
0x1751…177b at0027 = ╱4f╱O╱ // 0x1778 @0x27
0x1751…177b at0028 = ╱53╱S╱ // 0x1779 @0x28
0x1751…177b at0029 = EOL // 0x177a @0x29
0x1751…177b }
0x177b…179f ad8d 02430 FOR I := I_H\JREC - 1 TO DXPOS STEP - 1 DO
0x177b…179f LineComal80 {
0x177b…179f ptr = 0xad8d // 0x177b @0x0
0x177b…179f lno = 0x097e // 0x177d @0x2
0x177b…179f at0004 = ╱8329╱ FOR ╱ // 0x177f @0x4
0x177b…179f at0006 = ╱49╱I╱ // 0x1781 @0x6
0x177b…179f at0007 = ╱f0╱ := ╱ // 0x1782 @0x7
0x177b…179f at0008 = ╱49╱I╱ // 0x1783 @0x8
0x177b…179f at0009 = ╱5f╱_╱ // 0x1784 @0x9
0x177b…179f at000a = ╱48╱H╱ // 0x1785 @0xa
0x177b…179f at000b = ╱5c╱\╱ // 0x1786 @0xb
0x177b…179f at000c = ╱4a╱J╱ // 0x1787 @0xc
0x177b…179f at000d = ╱52╱R╱ // 0x1788 @0xd
0x177b…179f at000e = ╱45╱E╱ // 0x1789 @0xe
0x177b…179f at000f = ╱43╱C╱ // 0x178a @0xf
0x177b…179f at0010 = ╱e6╱ - ╱ // 0x178b @0x10
0x177b…179f at0011 = ╱31╱1╱ // 0x178c @0x11
0x177b…179f at0012 = ╱f20100╱ // 0x178d @0x12
0x177b…179f at0015 = ╱b749╱ TO ╱ // 0x1790 @0x15
0x177b…179f at0017 = ╱44╱D╱ // 0x1792 @0x17
0x177b…179f at0018 = ╱58╱X╱ // 0x1793 @0x18
0x177b…179f at0019 = ╱50╱P╱ // 0x1794 @0x19
0x177b…179f at001a = ╱4f╱O╱ // 0x1795 @0x1a
0x177b…179f at001b = ╱53╱S╱ // 0x1796 @0x1b
0x177b…179f at001c = ╱b8╱ STEP ╱ // 0x1797 @0x1c
0x177b…179f at001d = ╱de╱ - ╱ // 0x1798 @0x1d
0x177b…179f at001e = ╱31╱1╱ // 0x1799 @0x1e
0x177b…179f at001f = ╱f20100╱ // 0x179a @0x1f
0x177b…179f at0022 = ╱bb╱ DO ╱ // 0x179d @0x22
0x177b…179f at0023 = EOL // 0x179e @0x23
0x177b…179f }
0x179f…17bb ada9 02440 GET KTOIDX $ , I : KTONR $ , RECNR
0x179f…17bb LineComal80 {
0x179f…17bb ptr = 0xada9 // 0x179f @0x0
0x179f…17bb lno = 0x0988 // 0x17a1 @0x2
0x179f…17bb at0004 = ╱a9╱ GET ╱ // 0x17a3 @0x4
0x179f…17bb at0005 = ╱4b╱K╱ // 0x17a4 @0x5
0x179f…17bb at0006 = ╱54╱T╱ // 0x17a5 @0x6
0x179f…17bb at0007 = ╱4f╱O╱ // 0x17a6 @0x7
0x179f…17bb at0008 = ╱49╱I╱ // 0x17a7 @0x8
0x179f…17bb at0009 = ╱44╱D╱ // 0x17a8 @0x9
0x179f…17bb at000a = ╱58╱X╱ // 0x17a9 @0xa
0x179f…17bb at000b = ╱ef╱ $ ╱ // 0x17aa @0xb
0x179f…17bb at000c = ╱ec╱ , ╱ // 0x17ab @0xc
0x179f…17bb at000d = ╱49╱I╱ // 0x17ac @0xd
0x179f…17bb at000e = ╱f1╱ : ╱ // 0x17ad @0xe
0x179f…17bb at000f = ╱4b╱K╱ // 0x17ae @0xf
0x179f…17bb at0010 = ╱54╱T╱ // 0x17af @0x10
0x179f…17bb at0011 = ╱4f╱O╱ // 0x17b0 @0x11
0x179f…17bb at0012 = ╱4e╱N╱ // 0x17b1 @0x12
0x179f…17bb at0013 = ╱52╱R╱ // 0x17b2 @0x13
0x179f…17bb at0014 = ╱ef╱ $ ╱ // 0x17b3 @0x14
0x179f…17bb at0015 = ╱ec╱ , ╱ // 0x17b4 @0x15
0x179f…17bb at0016 = ╱52╱R╱ // 0x17b5 @0x16
0x179f…17bb at0017 = ╱45╱E╱ // 0x17b6 @0x17
0x179f…17bb at0018 = ╱43╱C╱ // 0x17b7 @0x18
0x179f…17bb at0019 = ╱4e╱N╱ // 0x17b8 @0x19
0x179f…17bb at001a = ╱52╱R╱ // 0x17b9 @0x1a
0x179f…17bb at001b = EOL // 0x17ba @0x1b
0x179f…17bb }
0x17bb…17dc adca 02450 PUT KTOIDX $ , I + 1 : KTONR $ , RECNR
0x17bb…17dc LineComal80 {
0x17bb…17dc ptr = 0xadca // 0x17bb @0x0
0x17bb…17dc lno = 0x0992 // 0x17bd @0x2
0x17bb…17dc at0004 = ╱aa╱ PUT ╱ // 0x17bf @0x4
0x17bb…17dc at0005 = ╱4b╱K╱ // 0x17c0 @0x5
0x17bb…17dc at0006 = ╱54╱T╱ // 0x17c1 @0x6
0x17bb…17dc at0007 = ╱4f╱O╱ // 0x17c2 @0x7
0x17bb…17dc at0008 = ╱49╱I╱ // 0x17c3 @0x8
0x17bb…17dc at0009 = ╱44╱D╱ // 0x17c4 @0x9
0x17bb…17dc at000a = ╱58╱X╱ // 0x17c5 @0xa
0x17bb…17dc at000b = ╱ef╱ $ ╱ // 0x17c6 @0xb
0x17bb…17dc at000c = ╱ec╱ , ╱ // 0x17c7 @0xc
0x17bb…17dc at000d = ╱49╱I╱ // 0x17c8 @0xd
0x17bb…17dc at000e = ╱e5╱ + ╱ // 0x17c9 @0xe
0x17bb…17dc at000f = ╱31╱1╱ // 0x17ca @0xf
0x17bb…17dc at0010 = ╱f20100╱ // 0x17cb @0x10
0x17bb…17dc at0013 = ╱f1╱ : ╱ // 0x17ce @0x13
0x17bb…17dc at0014 = ╱4b╱K╱ // 0x17cf @0x14
0x17bb…17dc at0015 = ╱54╱T╱ // 0x17d0 @0x15
0x17bb…17dc at0016 = ╱4f╱O╱ // 0x17d1 @0x16
0x17bb…17dc at0017 = ╱4e╱N╱ // 0x17d2 @0x17
0x17bb…17dc at0018 = ╱52╱R╱ // 0x17d3 @0x18
0x17bb…17dc at0019 = ╱ef╱ $ ╱ // 0x17d4 @0x19
0x17bb…17dc at001a = ╱ec╱ , ╱ // 0x17d5 @0x1a
0x17bb…17dc at001b = ╱52╱R╱ // 0x17d6 @0x1b
0x17bb…17dc at001c = ╱45╱E╱ // 0x17d7 @0x1c
0x17bb…17dc at001d = ╱43╱C╱ // 0x17d8 @0x1d
0x17bb…17dc at001e = ╱4e╱N╱ // 0x17d9 @0x1e
0x17bb…17dc at001f = ╱52╱R╱ // 0x17da @0x1f
0x17bb…17dc at0020 = EOL // 0x17db @0x20
0x17bb…17dc }
0x17dc…17e3 add1 02460 NEXT I
0x17dc…17e3 LineComal80 {
0x17dc…17e3 ptr = 0xadd1 // 0x17dc @0x0
0x17dc…17e3 lno = 0x099c // 0x17de @0x2
0x17dc…17e3 at0004 = ╱84╱ NEXT ╱ // 0x17e0 @0x4
0x17dc…17e3 at0005 = ╱49╱I╱ // 0x17e1 @0x5
0x17dc…17e3 at0006 = EOL // 0x17e2 @0x6
0x17dc…17e3 }
0x17e3…1806 adf4 02470 LET KTONR $ := A_KTONR $ ; RECNR := A_RECNR
0x17e3…1806 LineComal80 {
0x17e3…1806 ptr = 0xadf4 // 0x17e3 @0x0
0x17e3…1806 lno = 0x09a6 // 0x17e5 @0x2
0x17e3…1806 at0004 = ╱86╱ LET ╱ // 0x17e7 @0x4
0x17e3…1806 at0005 = ╱4b╱K╱ // 0x17e8 @0x5
0x17e3…1806 at0006 = ╱54╱T╱ // 0x17e9 @0x6
0x17e3…1806 at0007 = ╱4f╱O╱ // 0x17ea @0x7
0x17e3…1806 at0008 = ╱4e╱N╱ // 0x17eb @0x8
0x17e3…1806 at0009 = ╱52╱R╱ // 0x17ec @0x9
0x17e3…1806 at000a = ╱ef╱ $ ╱ // 0x17ed @0xa
0x17e3…1806 at000b = ╱f0╱ := ╱ // 0x17ee @0xb
0x17e3…1806 at000c = ╱41╱A╱ // 0x17ef @0xc
0x17e3…1806 at000d = ╱5f╱_╱ // 0x17f0 @0xd
0x17e3…1806 at000e = ╱4b╱K╱ // 0x17f1 @0xe
0x17e3…1806 at000f = ╱54╱T╱ // 0x17f2 @0xf
0x17e3…1806 at0010 = ╱4f╱O╱ // 0x17f3 @0x10
0x17e3…1806 at0011 = ╱4e╱N╱ // 0x17f4 @0x11
0x17e3…1806 at0012 = ╱52╱R╱ // 0x17f5 @0x12
0x17e3…1806 at0013 = ╱ef╱ $ ╱ // 0x17f6 @0x13
0x17e3…1806 at0014 = ╱ea╱ ; ╱ // 0x17f7 @0x14
0x17e3…1806 at0015 = ╱52╱R╱ // 0x17f8 @0x15
0x17e3…1806 at0016 = ╱45╱E╱ // 0x17f9 @0x16
0x17e3…1806 at0017 = ╱43╱C╱ // 0x17fa @0x17
0x17e3…1806 at0018 = ╱4e╱N╱ // 0x17fb @0x18
0x17e3…1806 at0019 = ╱52╱R╱ // 0x17fc @0x19
0x17e3…1806 at001a = ╱f0╱ := ╱ // 0x17fd @0x1a
0x17e3…1806 at001b = ╱41╱A╱ // 0x17fe @0x1b
0x17e3…1806 at001c = ╱5f╱_╱ // 0x17ff @0x1c
0x17e3…1806 at001d = ╱52╱R╱ // 0x1800 @0x1d
0x17e3…1806 at001e = ╱45╱E╱ // 0x1801 @0x1e
0x17e3…1806 at001f = ╱43╱C╱ // 0x1802 @0x1f
0x17e3…1806 at0020 = ╱4e╱N╱ // 0x1803 @0x20
0x17e3…1806 at0021 = ╱52╱R╱ // 0x1804 @0x21
0x17e3…1806 at0022 = EOL // 0x1805 @0x22
0x17e3…1806 }
0x1806…1827 ae15 02480 PUT KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x1806…1827 LineComal80 {
0x1806…1827 ptr = 0xae15 // 0x1806 @0x0
0x1806…1827 lno = 0x09b0 // 0x1808 @0x2
0x1806…1827 at0004 = ╱aa╱ PUT ╱ // 0x180a @0x4
0x1806…1827 at0005 = ╱4b╱K╱ // 0x180b @0x5
0x1806…1827 at0006 = ╱54╱T╱ // 0x180c @0x6
0x1806…1827 at0007 = ╱4f╱O╱ // 0x180d @0x7
0x1806…1827 at0008 = ╱49╱I╱ // 0x180e @0x8
0x1806…1827 at0009 = ╱44╱D╱ // 0x180f @0x9
0x1806…1827 at000a = ╱58╱X╱ // 0x1810 @0xa
0x1806…1827 at000b = ╱ef╱ $ ╱ // 0x1811 @0xb
0x1806…1827 at000c = ╱ec╱ , ╱ // 0x1812 @0xc
0x1806…1827 at000d = ╱49╱I╱ // 0x1813 @0xd
0x1806…1827 at000e = ╱44╱D╱ // 0x1814 @0xe
0x1806…1827 at000f = ╱58╱X╱ // 0x1815 @0xf
0x1806…1827 at0010 = ╱50╱P╱ // 0x1816 @0x10
0x1806…1827 at0011 = ╱4f╱O╱ // 0x1817 @0x11
0x1806…1827 at0012 = ╱53╱S╱ // 0x1818 @0x12
0x1806…1827 at0013 = ╱f1╱ : ╱ // 0x1819 @0x13
0x1806…1827 at0014 = ╱4b╱K╱ // 0x181a @0x14
0x1806…1827 at0015 = ╱54╱T╱ // 0x181b @0x15
0x1806…1827 at0016 = ╱4f╱O╱ // 0x181c @0x16
0x1806…1827 at0017 = ╱4e╱N╱ // 0x181d @0x17
0x1806…1827 at0018 = ╱52╱R╱ // 0x181e @0x18
0x1806…1827 at0019 = ╱ef╱ $ ╱ // 0x181f @0x19
0x1806…1827 at001a = ╱ec╱ , ╱ // 0x1820 @0x1a
0x1806…1827 at001b = ╱52╱R╱ // 0x1821 @0x1b
0x1806…1827 at001c = ╱45╱E╱ // 0x1822 @0x1c
0x1806…1827 at001d = ╱43╱C╱ // 0x1823 @0x1d
0x1806…1827 at001e = ╱4e╱N╱ // 0x1824 @0x1e
0x1806…1827 at001f = ╱52╱R╱ // 0x1825 @0x1f
0x1806…1827 at0020 = EOL // 0x1826 @0x20
0x1806…1827 }
0x1827…184b ae39 02490 PUT KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x1827…184b LineComal80 {
0x1827…184b ptr = 0xae39 // 0x1827 @0x0
0x1827…184b lno = 0x09ba // 0x1829 @0x2
0x1827…184b at0004 = ╱aa╱ PUT ╱ // 0x182b @0x4
0x1827…184b at0005 = ╱4b╱K╱ // 0x182c @0x5
0x1827…184b at0006 = ╱54╱T╱ // 0x182d @0x6
0x1827…184b at0007 = ╱4f╱O╱ // 0x182e @0x7
0x1827…184b at0008 = ╱49╱I╱ // 0x182f @0x8
0x1827…184b at0009 = ╱44╱D╱ // 0x1830 @0x9
0x1827…184b at000a = ╱58╱X╱ // 0x1831 @0xa
0x1827…184b at000b = ╱ef╱ $ ╱ // 0x1832 @0xb
0x1827…184b at000c = ╱ec╱ , ╱ // 0x1833 @0xc
0x1827…184b at000d = ╱31╱1╱ // 0x1834 @0xd
0x1827…184b at000e = ╱f20100╱ // 0x1835 @0xe
0x1827…184b at0011 = ╱f1╱ : ╱ // 0x1838 @0x11
0x1827…184b at0012 = ╱49╱I╱ // 0x1839 @0x12
0x1827…184b at0013 = ╱5f╱_╱ // 0x183a @0x13
0x1827…184b at0014 = ╱48╱H╱ // 0x183b @0x14
0x1827…184b at0015 = ╱5c╱\╱ // 0x183c @0x15
0x1827…184b at0016 = ╱4a╱J╱ // 0x183d @0x16
0x1827…184b at0017 = ╱52╱R╱ // 0x183e @0x17
0x1827…184b at0018 = ╱45╱E╱ // 0x183f @0x18
0x1827…184b at0019 = ╱43╱C╱ // 0x1840 @0x19
0x1827…184b at001a = ╱ec╱ , ╱ // 0x1841 @0x1a
0x1827…184b at001b = ╱49╱I╱ // 0x1842 @0x1b
0x1827…184b at001c = ╱5f╱_╱ // 0x1843 @0x1c
0x1827…184b at001d = ╱4d╱M╱ // 0x1844 @0x1d
0x1827…184b at001e = ╱41╱A╱ // 0x1845 @0x1e
0x1827…184b at001f = ╱58╱X╱ // 0x1846 @0x1f
0x1827…184b at0020 = ╱52╱R╱ // 0x1847 @0x20
0x1827…184b at0021 = ╱45╱E╱ // 0x1848 @0x21
0x1827…184b at0022 = ╱43╱C╱ // 0x1849 @0x22
0x1827…184b at0023 = EOL // 0x184a @0x23
0x1827…184b }
0x184b…187d ae6b 02500 LET KTO_PRIMO , KTO_ULTIMO := 0 ; KTO_FP , KTO_SP := 0
0x184b…187d LineComal80 {
0x184b…187d ptr = 0xae6b // 0x184b @0x0
0x184b…187d lno = 0x09c4 // 0x184d @0x2
0x184b…187d at0004 = ╱86╱ LET ╱ // 0x184f @0x4
0x184b…187d at0005 = ╱4b╱K╱ // 0x1850 @0x5
0x184b…187d at0006 = ╱54╱T╱ // 0x1851 @0x6
0x184b…187d at0007 = ╱4f╱O╱ // 0x1852 @0x7
0x184b…187d at0008 = ╱5f╱_╱ // 0x1853 @0x8
0x184b…187d at0009 = ╱50╱P╱ // 0x1854 @0x9
0x184b…187d at000a = ╱52╱R╱ // 0x1855 @0xa
0x184b…187d at000b = ╱49╱I╱ // 0x1856 @0xb
0x184b…187d at000c = ╱4d╱M╱ // 0x1857 @0xc
0x184b…187d at000d = ╱4f╱O╱ // 0x1858 @0xd
0x184b…187d at000e = ╱ec╱ , ╱ // 0x1859 @0xe
0x184b…187d at000f = ╱4b╱K╱ // 0x185a @0xf
0x184b…187d at0010 = ╱54╱T╱ // 0x185b @0x10
0x184b…187d at0011 = ╱4f╱O╱ // 0x185c @0x11
0x184b…187d at0012 = ╱5f╱_╱ // 0x185d @0x12
0x184b…187d at0013 = ╱55╱U╱ // 0x185e @0x13
0x184b…187d at0014 = ╱4c╱L╱ // 0x185f @0x14
0x184b…187d at0015 = ╱54╱T╱ // 0x1860 @0x15
0x184b…187d at0016 = ╱49╱I╱ // 0x1861 @0x16
0x184b…187d at0017 = ╱4d╱M╱ // 0x1862 @0x17
0x184b…187d at0018 = ╱4f╱O╱ // 0x1863 @0x18
0x184b…187d at0019 = ╱f0╱ := ╱ // 0x1864 @0x19
0x184b…187d at001a = ╱30╱0╱ // 0x1865 @0x1a
0x184b…187d at001b = ╱f20000╱ // 0x1866 @0x1b
0x184b…187d at001e = ╱ea╱ ; ╱ // 0x1869 @0x1e
0x184b…187d at001f = ╱4b╱K╱ // 0x186a @0x1f
0x184b…187d at0020 = ╱54╱T╱ // 0x186b @0x20
0x184b…187d at0021 = ╱4f╱O╱ // 0x186c @0x21
0x184b…187d at0022 = ╱5f╱_╱ // 0x186d @0x22
0x184b…187d at0023 = ╱46╱F╱ // 0x186e @0x23
0x184b…187d at0024 = ╱50╱P╱ // 0x186f @0x24
0x184b…187d at0025 = ╱ec╱ , ╱ // 0x1870 @0x25
0x184b…187d at0026 = ╱4b╱K╱ // 0x1871 @0x26
0x184b…187d at0027 = ╱54╱T╱ // 0x1872 @0x27
0x184b…187d at0028 = ╱4f╱O╱ // 0x1873 @0x28
0x184b…187d at0029 = ╱5f╱_╱ // 0x1874 @0x29
0x184b…187d at002a = ╱53╱S╱ // 0x1875 @0x2a
0x184b…187d at002b = ╱50╱P╱ // 0x1876 @0x2b
0x184b…187d at002c = ╱f0╱ := ╱ // 0x1877 @0x2c
0x184b…187d at002d = ╱30╱0╱ // 0x1878 @0x2d
0x184b…187d at002e = ╱f20000╱ // 0x1879 @0x2e
0x184b…187d at0031 = EOL // 0x187c @0x31
0x184b…187d }
0x187d…1890 ae7e 02510 ENDPROC FIND_IDXPLADS
0x187d…1890 LineComal80 {
0x187d…1890 ptr = 0xae7e // 0x187d @0x0
0x187d…1890 lno = 0x09ce // 0x187f @0x2
0x187d…1890 at0004 = ╱9f╱ ENDPROC ╱ // 0x1881 @0x4
0x187d…1890 at0005 = ╱46╱F╱ // 0x1882 @0x5
0x187d…1890 at0006 = ╱49╱I╱ // 0x1883 @0x6
0x187d…1890 at0007 = ╱4e╱N╱ // 0x1884 @0x7
0x187d…1890 at0008 = ╱44╱D╱ // 0x1885 @0x8
0x187d…1890 at0009 = ╱5f╱_╱ // 0x1886 @0x9
0x187d…1890 at000a = ╱49╱I╱ // 0x1887 @0xa
0x187d…1890 at000b = ╱44╱D╱ // 0x1888 @0xb
0x187d…1890 at000c = ╱58╱X╱ // 0x1889 @0xc
0x187d…1890 at000d = ╱50╱P╱ // 0x188a @0xd
0x187d…1890 at000e = ╱4c╱L╱ // 0x188b @0xe
0x187d…1890 at000f = ╱41╱A╱ // 0x188c @0xf
0x187d…1890 at0010 = ╱44╱D╱ // 0x188d @0x10
0x187d…1890 at0011 = ╱53╱S╱ // 0x188e @0x11
0x187d…1890 at0012 = EOL // 0x188f @0x12
0x187d…1890 }
0x1890…1895 ae83 02520
0x1890…1895 LineComal80 {
0x1890…1895 ptr = 0xae83 // 0x1890 @0x0
0x1890…1895 lno = 0x09d8 // 0x1892 @0x2
0x1890…1895 at0004 = EOL // 0x1894 @0x4
0x1890…1895 }
0x1895…18b1 ae9f 02530 PROC FIND_TOM_PLADS ( REF R_NR )
0x1895…18b1 LineComal80 {
0x1895…18b1 ptr = 0xae9f // 0x1895 @0x0
0x1895…18b1 lno = 0x09e2 // 0x1897 @0x2
0x1895…18b1 at0004 = ╱9e2a╱ PROC ╱ // 0x1899 @0x4
0x1895…18b1 at0006 = ╱46╱F╱ // 0x189b @0x6
0x1895…18b1 at0007 = ╱49╱I╱ // 0x189c @0x7
0x1895…18b1 at0008 = ╱4e╱N╱ // 0x189d @0x8
0x1895…18b1 at0009 = ╱44╱D╱ // 0x189e @0x9
0x1895…18b1 at000a = ╱5f╱_╱ // 0x189f @0xa
0x1895…18b1 at000b = ╱54╱T╱ // 0x18a0 @0xb
0x1895…18b1 at000c = ╱4f╱O╱ // 0x18a1 @0xc
0x1895…18b1 at000d = ╱4d╱M╱ // 0x18a2 @0xd
0x1895…18b1 at000e = ╱5f╱_╱ // 0x18a3 @0xe
0x1895…18b1 at000f = ╱50╱P╱ // 0x18a4 @0xf
0x1895…18b1 at0010 = ╱4c╱L╱ // 0x18a5 @0x10
0x1895…18b1 at0011 = ╱41╱A╱ // 0x18a6 @0x11
0x1895…18b1 at0012 = ╱44╱D╱ // 0x18a7 @0x12
0x1895…18b1 at0013 = ╱53╱S╱ // 0x18a8 @0x13
0x1895…18b1 at0014 = ╱ed╱ ( ╱ // 0x18a9 @0x14
0x1895…18b1 at0015 = ╱b6╱ REF ╱ // 0x18aa @0x15
0x1895…18b1 at0016 = ╱52╱R╱ // 0x18ab @0x16
0x1895…18b1 at0017 = ╱5f╱_╱ // 0x18ac @0x17
0x1895…18b1 at0018 = ╱4e╱N╱ // 0x18ad @0x18
0x1895…18b1 at0019 = ╱52╱R╱ // 0x18ae @0x19
0x1895…18b1 at001a = ╱ee╱ ) ╱ // 0x18af @0x1a
0x1895…18b1 at001b = EOL // 0x18b0 @0x1b
0x1895…18b1 }
0x18b1…18d4 aec2 02540 GET KONTO $ , 1 : N_FRIREC , N_MAXREC
0x18b1…18d4 LineComal80 {
0x18b1…18d4 ptr = 0xaec2 // 0x18b1 @0x0
0x18b1…18d4 lno = 0x09ec // 0x18b3 @0x2
0x18b1…18d4 at0004 = ╱a9╱ GET ╱ // 0x18b5 @0x4
0x18b1…18d4 at0005 = ╱4b╱K╱ // 0x18b6 @0x5
0x18b1…18d4 at0006 = ╱4f╱O╱ // 0x18b7 @0x6
0x18b1…18d4 at0007 = ╱4e╱N╱ // 0x18b8 @0x7
0x18b1…18d4 at0008 = ╱54╱T╱ // 0x18b9 @0x8
0x18b1…18d4 at0009 = ╱4f╱O╱ // 0x18ba @0x9
0x18b1…18d4 at000a = ╱ef╱ $ ╱ // 0x18bb @0xa
0x18b1…18d4 at000b = ╱ec╱ , ╱ // 0x18bc @0xb
0x18b1…18d4 at000c = ╱31╱1╱ // 0x18bd @0xc
0x18b1…18d4 at000d = ╱f20100╱ // 0x18be @0xd
0x18b1…18d4 at0010 = ╱f1╱ : ╱ // 0x18c1 @0x10
0x18b1…18d4 at0011 = ╱4e╱N╱ // 0x18c2 @0x11
0x18b1…18d4 at0012 = ╱5f╱_╱ // 0x18c3 @0x12
0x18b1…18d4 at0013 = ╱46╱F╱ // 0x18c4 @0x13
0x18b1…18d4 at0014 = ╱52╱R╱ // 0x18c5 @0x14
0x18b1…18d4 at0015 = ╱49╱I╱ // 0x18c6 @0x15
0x18b1…18d4 at0016 = ╱52╱R╱ // 0x18c7 @0x16
0x18b1…18d4 at0017 = ╱45╱E╱ // 0x18c8 @0x17
0x18b1…18d4 at0018 = ╱43╱C╱ // 0x18c9 @0x18
0x18b1…18d4 at0019 = ╱ec╱ , ╱ // 0x18ca @0x19
0x18b1…18d4 at001a = ╱4e╱N╱ // 0x18cb @0x1a
0x18b1…18d4 at001b = ╱5f╱_╱ // 0x18cc @0x1b
0x18b1…18d4 at001c = ╱4d╱M╱ // 0x18cd @0x1c
0x18b1…18d4 at001d = ╱41╱A╱ // 0x18ce @0x1d
0x18b1…18d4 at001e = ╱58╱X╱ // 0x18cf @0x1e
0x18b1…18d4 at001f = ╱52╱R╱ // 0x18d0 @0x1f
0x18b1…18d4 at0020 = ╱45╱E╱ // 0x18d1 @0x20
0x18b1…18d4 at0021 = ╱43╱C╱ // 0x18d2 @0x21
0x18b1…18d4 at0022 = EOL // 0x18d3 @0x22
0x18b1…18d4 }
0x18d4…18e7 aed5 02550 LET R_NR := N_FRIREC
0x18d4…18e7 LineComal80 {
0x18d4…18e7 ptr = 0xaed5 // 0x18d4 @0x0
0x18d4…18e7 lno = 0x09f6 // 0x18d6 @0x2
0x18d4…18e7 at0004 = ╱86╱ LET ╱ // 0x18d8 @0x4
0x18d4…18e7 at0005 = ╱52╱R╱ // 0x18d9 @0x5
0x18d4…18e7 at0006 = ╱5f╱_╱ // 0x18da @0x6
0x18d4…18e7 at0007 = ╱4e╱N╱ // 0x18db @0x7
0x18d4…18e7 at0008 = ╱52╱R╱ // 0x18dc @0x8
0x18d4…18e7 at0009 = ╱f0╱ := ╱ // 0x18dd @0x9
0x18d4…18e7 at000a = ╱4e╱N╱ // 0x18de @0xa
0x18d4…18e7 at000b = ╱5f╱_╱ // 0x18df @0xb
0x18d4…18e7 at000c = ╱46╱F╱ // 0x18e0 @0xc
0x18d4…18e7 at000d = ╱52╱R╱ // 0x18e1 @0xd
0x18d4…18e7 at000e = ╱49╱I╱ // 0x18e2 @0xe
0x18d4…18e7 at000f = ╱52╱R╱ // 0x18e3 @0xf
0x18d4…18e7 at0010 = ╱45╱E╱ // 0x18e4 @0x10
0x18d4…18e7 at0011 = ╱43╱C╱ // 0x18e5 @0x11
0x18d4…18e7 at0012 = EOL // 0x18e6 @0x12
0x18d4…18e7 }
0x18e7…1905 aef3 02560 GET KONTO $ , N_FRIREC : N_FRIREC
0x18e7…1905 LineComal80 {
0x18e7…1905 ptr = 0xaef3 // 0x18e7 @0x0
0x18e7…1905 lno = 0x0a00 // 0x18e9 @0x2
0x18e7…1905 at0004 = ╱a9╱ GET ╱ // 0x18eb @0x4
0x18e7…1905 at0005 = ╱4b╱K╱ // 0x18ec @0x5
0x18e7…1905 at0006 = ╱4f╱O╱ // 0x18ed @0x6
0x18e7…1905 at0007 = ╱4e╱N╱ // 0x18ee @0x7
0x18e7…1905 at0008 = ╱54╱T╱ // 0x18ef @0x8
0x18e7…1905 at0009 = ╱4f╱O╱ // 0x18f0 @0x9
0x18e7…1905 at000a = ╱ef╱ $ ╱ // 0x18f1 @0xa
0x18e7…1905 at000b = ╱ec╱ , ╱ // 0x18f2 @0xb
0x18e7…1905 at000c = ╱4e╱N╱ // 0x18f3 @0xc
0x18e7…1905 at000d = ╱5f╱_╱ // 0x18f4 @0xd
0x18e7…1905 at000e = ╱46╱F╱ // 0x18f5 @0xe
0x18e7…1905 at000f = ╱52╱R╱ // 0x18f6 @0xf
0x18e7…1905 at0010 = ╱49╱I╱ // 0x18f7 @0x10
0x18e7…1905 at0011 = ╱52╱R╱ // 0x18f8 @0x11
0x18e7…1905 at0012 = ╱45╱E╱ // 0x18f9 @0x12
0x18e7…1905 at0013 = ╱43╱C╱ // 0x18fa @0x13
0x18e7…1905 at0014 = ╱f1╱ : ╱ // 0x18fb @0x14
0x18e7…1905 at0015 = ╱4e╱N╱ // 0x18fc @0x15
0x18e7…1905 at0016 = ╱5f╱_╱ // 0x18fd @0x16
0x18e7…1905 at0017 = ╱46╱F╱ // 0x18fe @0x17
0x18e7…1905 at0018 = ╱52╱R╱ // 0x18ff @0x18
0x18e7…1905 at0019 = ╱49╱I╱ // 0x1900 @0x19
0x18e7…1905 at001a = ╱52╱R╱ // 0x1901 @0x1a
0x18e7…1905 at001b = ╱45╱E╱ // 0x1902 @0x1b
0x18e7…1905 at001c = ╱43╱C╱ // 0x1903 @0x1c
0x18e7…1905 at001d = EOL // 0x1904 @0x1d
0x18e7…1905 }
0x1905…1928 af16 02570 PUT KONTO $ , 1 : N_FRIREC , N_MAXREC
0x1905…1928 LineComal80 {
0x1905…1928 ptr = 0xaf16 // 0x1905 @0x0
0x1905…1928 lno = 0x0a0a // 0x1907 @0x2
0x1905…1928 at0004 = ╱aa╱ PUT ╱ // 0x1909 @0x4
0x1905…1928 at0005 = ╱4b╱K╱ // 0x190a @0x5
0x1905…1928 at0006 = ╱4f╱O╱ // 0x190b @0x6
0x1905…1928 at0007 = ╱4e╱N╱ // 0x190c @0x7
0x1905…1928 at0008 = ╱54╱T╱ // 0x190d @0x8
0x1905…1928 at0009 = ╱4f╱O╱ // 0x190e @0x9
0x1905…1928 at000a = ╱ef╱ $ ╱ // 0x190f @0xa
0x1905…1928 at000b = ╱ec╱ , ╱ // 0x1910 @0xb
0x1905…1928 at000c = ╱31╱1╱ // 0x1911 @0xc
0x1905…1928 at000d = ╱f20100╱ // 0x1912 @0xd
0x1905…1928 at0010 = ╱f1╱ : ╱ // 0x1915 @0x10
0x1905…1928 at0011 = ╱4e╱N╱ // 0x1916 @0x11
0x1905…1928 at0012 = ╱5f╱_╱ // 0x1917 @0x12
0x1905…1928 at0013 = ╱46╱F╱ // 0x1918 @0x13
0x1905…1928 at0014 = ╱52╱R╱ // 0x1919 @0x14
0x1905…1928 at0015 = ╱49╱I╱ // 0x191a @0x15
0x1905…1928 at0016 = ╱52╱R╱ // 0x191b @0x16
0x1905…1928 at0017 = ╱45╱E╱ // 0x191c @0x17
0x1905…1928 at0018 = ╱43╱C╱ // 0x191d @0x18
0x1905…1928 at0019 = ╱ec╱ , ╱ // 0x191e @0x19
0x1905…1928 at001a = ╱4e╱N╱ // 0x191f @0x1a
0x1905…1928 at001b = ╱5f╱_╱ // 0x1920 @0x1b
0x1905…1928 at001c = ╱4d╱M╱ // 0x1921 @0x1c
0x1905…1928 at001d = ╱41╱A╱ // 0x1922 @0x1d
0x1905…1928 at001e = ╱58╱X╱ // 0x1923 @0x1e
0x1905…1928 at001f = ╱52╱R╱ // 0x1924 @0x1f
0x1905…1928 at0020 = ╱45╱E╱ // 0x1925 @0x20
0x1905…1928 at0021 = ╱43╱C╱ // 0x1926 @0x21
0x1905…1928 at0022 = EOL // 0x1927 @0x22
0x1905…1928 }
0x1928…193c af2a 02580 ENDPROC FIND_TOM_PLADS
0x1928…193c LineComal80 {
0x1928…193c ptr = 0xaf2a // 0x1928 @0x0
0x1928…193c lno = 0x0a14 // 0x192a @0x2
0x1928…193c at0004 = ╱9f╱ ENDPROC ╱ // 0x192c @0x4
0x1928…193c at0005 = ╱46╱F╱ // 0x192d @0x5
0x1928…193c at0006 = ╱49╱I╱ // 0x192e @0x6
0x1928…193c at0007 = ╱4e╱N╱ // 0x192f @0x7
0x1928…193c at0008 = ╱44╱D╱ // 0x1930 @0x8
0x1928…193c at0009 = ╱5f╱_╱ // 0x1931 @0x9
0x1928…193c at000a = ╱54╱T╱ // 0x1932 @0xa
0x1928…193c at000b = ╱4f╱O╱ // 0x1933 @0xb
0x1928…193c at000c = ╱4d╱M╱ // 0x1934 @0xc
0x1928…193c at000d = ╱5f╱_╱ // 0x1935 @0xd
0x1928…193c at000e = ╱50╱P╱ // 0x1936 @0xe
0x1928…193c at000f = ╱4c╱L╱ // 0x1937 @0xf
0x1928…193c at0010 = ╱41╱A╱ // 0x1938 @0x10
0x1928…193c at0011 = ╱44╱D╱ // 0x1939 @0x11
0x1928…193c at0012 = ╱53╱S╱ // 0x193a @0x12
0x1928…193c at0013 = EOL // 0x193b @0x13
0x1928…193c }
0x193c…194f af3d 02590 PROC L[S_KONTO ( P )
0x193c…194f LineComal80 {
0x193c…194f ptr = 0xaf3d // 0x193c @0x0
0x193c…194f lno = 0x0a1e // 0x193e @0x2
0x193c…194f at0004 = ╱9e2b╱ PROC ╱ // 0x1940 @0x4
0x193c…194f at0006 = ╱4c╱L╱ // 0x1942 @0x6
0x193c…194f at0007 = ╱5b╱[╱ // 0x1943 @0x7
0x193c…194f at0008 = ╱53╱S╱ // 0x1944 @0x8
0x193c…194f at0009 = ╱5f╱_╱ // 0x1945 @0x9
0x193c…194f at000a = ╱4b╱K╱ // 0x1946 @0xa
0x193c…194f at000b = ╱4f╱O╱ // 0x1947 @0xb
0x193c…194f at000c = ╱4e╱N╱ // 0x1948 @0xc
0x193c…194f at000d = ╱54╱T╱ // 0x1949 @0xd
0x193c…194f at000e = ╱4f╱O╱ // 0x194a @0xe
0x193c…194f at000f = ╱ed╱ ( ╱ // 0x194b @0xf
0x193c…194f at0010 = ╱50╱P╱ // 0x194c @0x10
0x193c…194f at0011 = ╱ee╱ ) ╱ // 0x194d @0x11
0x193c…194f at0012 = EOL // 0x194e @0x12
0x193c…194f }
0x194f…1994 af82 02600 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x194f…1994 LineComal80 {
0x194f…1994 ptr = 0xaf82 // 0x194f @0x0
0x194f…1994 lno = 0x0a28 // 0x1951 @0x2
0x194f…1994 at0004 = ╱a9╱ GET ╱ // 0x1953 @0x4
0x194f…1994 at0005 = ╱4b╱K╱ // 0x1954 @0x5
0x194f…1994 at0006 = ╱4f╱O╱ // 0x1955 @0x6
0x194f…1994 at0007 = ╱4e╱N╱ // 0x1956 @0x7
0x194f…1994 at0008 = ╱54╱T╱ // 0x1957 @0x8
0x194f…1994 at0009 = ╱4f╱O╱ // 0x1958 @0x9
0x194f…1994 at000a = ╱ef╱ $ ╱ // 0x1959 @0xa
0x194f…1994 at000b = ╱ec╱ , ╱ // 0x195a @0xb
0x194f…1994 at000c = ╱50╱P╱ // 0x195b @0xc
0x194f…1994 at000d = ╱f1╱ : ╱ // 0x195c @0xd
0x194f…1994 at000e = ╱4b╱K╱ // 0x195d @0xe
0x194f…1994 at000f = ╱54╱T╱ // 0x195e @0xf
0x194f…1994 at0010 = ╱4f╱O╱ // 0x195f @0x10
0x194f…1994 at0011 = ╱5f╱_╱ // 0x1960 @0x11
0x194f…1994 at0012 = ╱54╱T╱ // 0x1961 @0x12
0x194f…1994 at0013 = ╱59╱Y╱ // 0x1962 @0x13
0x194f…1994 at0014 = ╱50╱P╱ // 0x1963 @0x14
0x194f…1994 at0015 = ╱45╱E╱ // 0x1964 @0x15
0x194f…1994 at0016 = ╱ef╱ $ ╱ // 0x1965 @0x16
0x194f…1994 at0017 = ╱ec╱ , ╱ // 0x1966 @0x17
0x194f…1994 at0018 = ╱4b╱K╱ // 0x1967 @0x18
0x194f…1994 at0019 = ╱54╱T╱ // 0x1968 @0x19
0x194f…1994 at001a = ╱4f╱O╱ // 0x1969 @0x1a
0x194f…1994 at001b = ╱5f╱_╱ // 0x196a @0x1b
0x194f…1994 at001c = ╱4e╱N╱ // 0x196b @0x1c
0x194f…1994 at001d = ╱41╱A╱ // 0x196c @0x1d
0x194f…1994 at001e = ╱56╱V╱ // 0x196d @0x1e
0x194f…1994 at001f = ╱4e╱N╱ // 0x196e @0x1f
0x194f…1994 at0020 = ╱ef╱ $ ╱ // 0x196f @0x20
0x194f…1994 at0021 = ╱ec╱ , ╱ // 0x1970 @0x21
0x194f…1994 at0022 = ╱4b╱K╱ // 0x1971 @0x22
0x194f…1994 at0023 = ╱54╱T╱ // 0x1972 @0x23
0x194f…1994 at0024 = ╱4f╱O╱ // 0x1973 @0x24
0x194f…1994 at0025 = ╱5f╱_╱ // 0x1974 @0x25
0x194f…1994 at0026 = ╱50╱P╱ // 0x1975 @0x26
0x194f…1994 at0027 = ╱52╱R╱ // 0x1976 @0x27
0x194f…1994 at0028 = ╱49╱I╱ // 0x1977 @0x28
0x194f…1994 at0029 = ╱4d╱M╱ // 0x1978 @0x29
0x194f…1994 at002a = ╱4f╱O╱ // 0x1979 @0x2a
0x194f…1994 at002b = ╱ec╱ , ╱ // 0x197a @0x2b
0x194f…1994 at002c = ╱4b╱K╱ // 0x197b @0x2c
0x194f…1994 at002d = ╱54╱T╱ // 0x197c @0x2d
0x194f…1994 at002e = ╱4f╱O╱ // 0x197d @0x2e
0x194f…1994 at002f = ╱5f╱_╱ // 0x197e @0x2f
0x194f…1994 at0030 = ╱55╱U╱ // 0x197f @0x30
0x194f…1994 at0031 = ╱4c╱L╱ // 0x1980 @0x31
0x194f…1994 at0032 = ╱54╱T╱ // 0x1981 @0x32
0x194f…1994 at0033 = ╱49╱I╱ // 0x1982 @0x33
0x194f…1994 at0034 = ╱4d╱M╱ // 0x1983 @0x34
0x194f…1994 at0035 = ╱4f╱O╱ // 0x1984 @0x35
0x194f…1994 at0036 = ╱ec╱ , ╱ // 0x1985 @0x36
0x194f…1994 at0037 = ╱4b╱K╱ // 0x1986 @0x37
0x194f…1994 at0038 = ╱54╱T╱ // 0x1987 @0x38
0x194f…1994 at0039 = ╱4f╱O╱ // 0x1988 @0x39
0x194f…1994 at003a = ╱5f╱_╱ // 0x1989 @0x3a
0x194f…1994 at003b = ╱46╱F╱ // 0x198a @0x3b
0x194f…1994 at003c = ╱50╱P╱ // 0x198b @0x3c
0x194f…1994 at003d = ╱ec╱ , ╱ // 0x198c @0x3d
0x194f…1994 at003e = ╱4b╱K╱ // 0x198d @0x3e
0x194f…1994 at003f = ╱54╱T╱ // 0x198e @0x3f
0x194f…1994 at0040 = ╱4f╱O╱ // 0x198f @0x40
0x194f…1994 at0041 = ╱5f╱_╱ // 0x1990 @0x41
0x194f…1994 at0042 = ╱53╱S╱ // 0x1991 @0x42
0x194f…1994 at0043 = ╱50╱P╱ // 0x1992 @0x43
0x194f…1994 at0044 = EOL // 0x1993 @0x44
0x194f…1994 }
0x1994…19a3 af91 02610 ENDPROC L[S_KONTO
0x1994…19a3 LineComal80 {
0x1994…19a3 ptr = 0xaf91 // 0x1994 @0x0
0x1994…19a3 lno = 0x0a32 // 0x1996 @0x2
0x1994…19a3 at0004 = ╱9f╱ ENDPROC ╱ // 0x1998 @0x4
0x1994…19a3 at0005 = ╱4c╱L╱ // 0x1999 @0x5
0x1994…19a3 at0006 = ╱5b╱[╱ // 0x199a @0x6
0x1994…19a3 at0007 = ╱53╱S╱ // 0x199b @0x7
0x1994…19a3 at0008 = ╱5f╱_╱ // 0x199c @0x8
0x1994…19a3 at0009 = ╱4b╱K╱ // 0x199d @0x9
0x1994…19a3 at000a = ╱4f╱O╱ // 0x199e @0xa
0x1994…19a3 at000b = ╱4e╱N╱ // 0x199f @0xb
0x1994…19a3 at000c = ╱54╱T╱ // 0x19a0 @0xc
0x1994…19a3 at000d = ╱4f╱O╱ // 0x19a1 @0xd
0x1994…19a3 at000e = EOL // 0x19a2 @0xe
0x1994…19a3 }
0x19a3…19a8 af96 02620
0x19a3…19a8 LineComal80 {
0x19a3…19a8 ptr = 0xaf96 // 0x19a3 @0x0
0x19a3…19a8 lno = 0x0a3c // 0x19a5 @0x2
0x19a3…19a8 at0004 = EOL // 0x19a7 @0x4
0x19a3…19a8 }
0x19a8…19bd afab 02630 PROC SKRIV_KONTO ( P )
0x19a8…19bd LineComal80 {
0x19a8…19bd ptr = 0xafab // 0x19a8 @0x0
0x19a8…19bd lno = 0x0a46 // 0x19aa @0x2
0x19a8…19bd at0004 = ╱9e2c╱ PROC ╱ // 0x19ac @0x4
0x19a8…19bd at0006 = ╱53╱S╱ // 0x19ae @0x6
0x19a8…19bd at0007 = ╱4b╱K╱ // 0x19af @0x7
0x19a8…19bd at0008 = ╱52╱R╱ // 0x19b0 @0x8
0x19a8…19bd at0009 = ╱49╱I╱ // 0x19b1 @0x9
0x19a8…19bd at000a = ╱56╱V╱ // 0x19b2 @0xa
0x19a8…19bd at000b = ╱5f╱_╱ // 0x19b3 @0xb
0x19a8…19bd at000c = ╱4b╱K╱ // 0x19b4 @0xc
0x19a8…19bd at000d = ╱4f╱O╱ // 0x19b5 @0xd
0x19a8…19bd at000e = ╱4e╱N╱ // 0x19b6 @0xe
0x19a8…19bd at000f = ╱54╱T╱ // 0x19b7 @0xf
0x19a8…19bd at0010 = ╱4f╱O╱ // 0x19b8 @0x10
0x19a8…19bd at0011 = ╱ed╱ ( ╱ // 0x19b9 @0x11
0x19a8…19bd at0012 = ╱50╱P╱ // 0x19ba @0x12
0x19a8…19bd at0013 = ╱ee╱ ) ╱ // 0x19bb @0x13
0x19a8…19bd at0014 = EOL // 0x19bc @0x14
0x19a8…19bd }
0x19bd…1a02 aff0 02640 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x19bd…1a02 LineComal80 {
0x19bd…1a02 ptr = 0xaff0 // 0x19bd @0x0
0x19bd…1a02 lno = 0x0a50 // 0x19bf @0x2
0x19bd…1a02 at0004 = ╱aa╱ PUT ╱ // 0x19c1 @0x4
0x19bd…1a02 at0005 = ╱4b╱K╱ // 0x19c2 @0x5
0x19bd…1a02 at0006 = ╱4f╱O╱ // 0x19c3 @0x6
0x19bd…1a02 at0007 = ╱4e╱N╱ // 0x19c4 @0x7
0x19bd…1a02 at0008 = ╱54╱T╱ // 0x19c5 @0x8
0x19bd…1a02 at0009 = ╱4f╱O╱ // 0x19c6 @0x9
0x19bd…1a02 at000a = ╱ef╱ $ ╱ // 0x19c7 @0xa
0x19bd…1a02 at000b = ╱ec╱ , ╱ // 0x19c8 @0xb
0x19bd…1a02 at000c = ╱50╱P╱ // 0x19c9 @0xc
0x19bd…1a02 at000d = ╱f1╱ : ╱ // 0x19ca @0xd
0x19bd…1a02 at000e = ╱4b╱K╱ // 0x19cb @0xe
0x19bd…1a02 at000f = ╱54╱T╱ // 0x19cc @0xf
0x19bd…1a02 at0010 = ╱4f╱O╱ // 0x19cd @0x10
0x19bd…1a02 at0011 = ╱5f╱_╱ // 0x19ce @0x11
0x19bd…1a02 at0012 = ╱54╱T╱ // 0x19cf @0x12
0x19bd…1a02 at0013 = ╱59╱Y╱ // 0x19d0 @0x13
0x19bd…1a02 at0014 = ╱50╱P╱ // 0x19d1 @0x14
0x19bd…1a02 at0015 = ╱45╱E╱ // 0x19d2 @0x15
0x19bd…1a02 at0016 = ╱ef╱ $ ╱ // 0x19d3 @0x16
0x19bd…1a02 at0017 = ╱ec╱ , ╱ // 0x19d4 @0x17
0x19bd…1a02 at0018 = ╱4b╱K╱ // 0x19d5 @0x18
0x19bd…1a02 at0019 = ╱54╱T╱ // 0x19d6 @0x19
0x19bd…1a02 at001a = ╱4f╱O╱ // 0x19d7 @0x1a
0x19bd…1a02 at001b = ╱5f╱_╱ // 0x19d8 @0x1b
0x19bd…1a02 at001c = ╱4e╱N╱ // 0x19d9 @0x1c
0x19bd…1a02 at001d = ╱41╱A╱ // 0x19da @0x1d
0x19bd…1a02 at001e = ╱56╱V╱ // 0x19db @0x1e
0x19bd…1a02 at001f = ╱4e╱N╱ // 0x19dc @0x1f
0x19bd…1a02 at0020 = ╱ef╱ $ ╱ // 0x19dd @0x20
0x19bd…1a02 at0021 = ╱ec╱ , ╱ // 0x19de @0x21
0x19bd…1a02 at0022 = ╱4b╱K╱ // 0x19df @0x22
0x19bd…1a02 at0023 = ╱54╱T╱ // 0x19e0 @0x23
0x19bd…1a02 at0024 = ╱4f╱O╱ // 0x19e1 @0x24
0x19bd…1a02 at0025 = ╱5f╱_╱ // 0x19e2 @0x25
0x19bd…1a02 at0026 = ╱50╱P╱ // 0x19e3 @0x26
0x19bd…1a02 at0027 = ╱52╱R╱ // 0x19e4 @0x27
0x19bd…1a02 at0028 = ╱49╱I╱ // 0x19e5 @0x28
0x19bd…1a02 at0029 = ╱4d╱M╱ // 0x19e6 @0x29
0x19bd…1a02 at002a = ╱4f╱O╱ // 0x19e7 @0x2a
0x19bd…1a02 at002b = ╱ec╱ , ╱ // 0x19e8 @0x2b
0x19bd…1a02 at002c = ╱4b╱K╱ // 0x19e9 @0x2c
0x19bd…1a02 at002d = ╱54╱T╱ // 0x19ea @0x2d
0x19bd…1a02 at002e = ╱4f╱O╱ // 0x19eb @0x2e
0x19bd…1a02 at002f = ╱5f╱_╱ // 0x19ec @0x2f
0x19bd…1a02 at0030 = ╱55╱U╱ // 0x19ed @0x30
0x19bd…1a02 at0031 = ╱4c╱L╱ // 0x19ee @0x31
0x19bd…1a02 at0032 = ╱54╱T╱ // 0x19ef @0x32
0x19bd…1a02 at0033 = ╱49╱I╱ // 0x19f0 @0x33
0x19bd…1a02 at0034 = ╱4d╱M╱ // 0x19f1 @0x34
0x19bd…1a02 at0035 = ╱4f╱O╱ // 0x19f2 @0x35
0x19bd…1a02 at0036 = ╱ec╱ , ╱ // 0x19f3 @0x36
0x19bd…1a02 at0037 = ╱4b╱K╱ // 0x19f4 @0x37
0x19bd…1a02 at0038 = ╱54╱T╱ // 0x19f5 @0x38
0x19bd…1a02 at0039 = ╱4f╱O╱ // 0x19f6 @0x39
0x19bd…1a02 at003a = ╱5f╱_╱ // 0x19f7 @0x3a
0x19bd…1a02 at003b = ╱46╱F╱ // 0x19f8 @0x3b
0x19bd…1a02 at003c = ╱50╱P╱ // 0x19f9 @0x3c
0x19bd…1a02 at003d = ╱ec╱ , ╱ // 0x19fa @0x3d
0x19bd…1a02 at003e = ╱4b╱K╱ // 0x19fb @0x3e
0x19bd…1a02 at003f = ╱54╱T╱ // 0x19fc @0x3f
0x19bd…1a02 at0040 = ╱4f╱O╱ // 0x19fd @0x40
0x19bd…1a02 at0041 = ╱5f╱_╱ // 0x19fe @0x41
0x19bd…1a02 at0042 = ╱53╱S╱ // 0x19ff @0x42
0x19bd…1a02 at0043 = ╱50╱P╱ // 0x1a00 @0x43
0x19bd…1a02 at0044 = EOL // 0x1a01 @0x44
0x19bd…1a02 }
0x1a02…1a13 b001 02650 ENDPROC SKRIV_KONTO
0x1a02…1a13 LineComal80 {
0x1a02…1a13 ptr = 0xb001 // 0x1a02 @0x0
0x1a02…1a13 lno = 0x0a5a // 0x1a04 @0x2
0x1a02…1a13 at0004 = ╱9f╱ ENDPROC ╱ // 0x1a06 @0x4
0x1a02…1a13 at0005 = ╱53╱S╱ // 0x1a07 @0x5
0x1a02…1a13 at0006 = ╱4b╱K╱ // 0x1a08 @0x6
0x1a02…1a13 at0007 = ╱52╱R╱ // 0x1a09 @0x7
0x1a02…1a13 at0008 = ╱49╱I╱ // 0x1a0a @0x8
0x1a02…1a13 at0009 = ╱56╱V╱ // 0x1a0b @0x9
0x1a02…1a13 at000a = ╱5f╱_╱ // 0x1a0c @0xa
0x1a02…1a13 at000b = ╱4b╱K╱ // 0x1a0d @0xb
0x1a02…1a13 at000c = ╱4f╱O╱ // 0x1a0e @0xc
0x1a02…1a13 at000d = ╱4e╱N╱ // 0x1a0f @0xd
0x1a02…1a13 at000e = ╱54╱T╱ // 0x1a10 @0xe
0x1a02…1a13 at000f = ╱4f╱O╱ // 0x1a11 @0xf
0x1a02…1a13 at0010 = EOL // 0x1a12 @0x10
0x1a02…1a13 }
0x1a13…1a18 b006 02660
0x1a13…1a18 LineComal80 {
0x1a13…1a18 ptr = 0xb006 // 0x1a13 @0x0
0x1a13…1a18 lno = 0x0a64 // 0x1a15 @0x2
0x1a13…1a18 at0004 = EOL // 0x1a17 @0x4
0x1a13…1a18 }
0x1a18…1a2d b01b 02670 PROC ST_BGST ( REF RST $ )
0x1a18…1a2d LineComal80 {
0x1a18…1a2d ptr = 0xb01b // 0x1a18 @0x0
0x1a18…1a2d lno = 0x0a6e // 0x1a1a @0x2
0x1a18…1a2d at0004 = ╱9e2d╱ PROC ╱ // 0x1a1c @0x4
0x1a18…1a2d at0006 = ╱53╱S╱ // 0x1a1e @0x6
0x1a18…1a2d at0007 = ╱54╱T╱ // 0x1a1f @0x7
0x1a18…1a2d at0008 = ╱5f╱_╱ // 0x1a20 @0x8
0x1a18…1a2d at0009 = ╱42╱B╱ // 0x1a21 @0x9
0x1a18…1a2d at000a = ╱47╱G╱ // 0x1a22 @0xa
0x1a18…1a2d at000b = ╱53╱S╱ // 0x1a23 @0xb
0x1a18…1a2d at000c = ╱54╱T╱ // 0x1a24 @0xc
0x1a18…1a2d at000d = ╱ed╱ ( ╱ // 0x1a25 @0xd
0x1a18…1a2d at000e = ╱b6╱ REF ╱ // 0x1a26 @0xe
0x1a18…1a2d at000f = ╱52╱R╱ // 0x1a27 @0xf
0x1a18…1a2d at0010 = ╱53╱S╱ // 0x1a28 @0x10
0x1a18…1a2d at0011 = ╱54╱T╱ // 0x1a29 @0x11
0x1a18…1a2d at0012 = ╱ef╱ $ ╱ // 0x1a2a @0x12
0x1a18…1a2d at0013 = ╱ee╱ ) ╱ // 0x1a2b @0x13
0x1a18…1a2d at0014 = EOL // 0x1a2c @0x14
0x1a18…1a2d }
0x1a2d…1a43 b031 02680 FOR J := 1 TO ( RST $ ) DO
0x1a2d…1a43 LineComal80 {
0x1a2d…1a43 ptr = 0xb031 // 0x1a2d @0x0
0x1a2d…1a43 lno = 0x0a78 // 0x1a2f @0x2
0x1a2d…1a43 at0004 = ╱832e╱ FOR ╱ // 0x1a31 @0x4
0x1a2d…1a43 at0006 = ╱4a╱J╱ // 0x1a33 @0x6
0x1a2d…1a43 at0007 = ╱f0╱ := ╱ // 0x1a34 @0x7
0x1a2d…1a43 at0008 = ╱31╱1╱ // 0x1a35 @0x8
0x1a2d…1a43 at0009 = ╱f20100╱ // 0x1a36 @0x9
0x1a2d…1a43 at000c = ╱b7cb╱ TO ╱ // 0x1a39 @0xc
0x1a2d…1a43 at000e = ╱ed╱ ( ╱ // 0x1a3b @0xe
0x1a2d…1a43 at000f = ╱52╱R╱ // 0x1a3c @0xf
0x1a2d…1a43 at0010 = ╱53╱S╱ // 0x1a3d @0x10
0x1a2d…1a43 at0011 = ╱54╱T╱ // 0x1a3e @0x11
0x1a2d…1a43 at0012 = ╱ef╱ $ ╱ // 0x1a3f @0x12
0x1a2d…1a43 at0013 = ╱ee╱ ) ╱ // 0x1a40 @0x13
0x1a2d…1a43 at0014 = ╱bb╱ DO ╱ // 0x1a41 @0x14
0x1a2d…1a43 at0015 = EOL // 0x1a42 @0x15
0x1a2d…1a43 }
0x1a43…1a7e b06c 02690 IF "a" =< RST $ ( J ) AND RST $ ( J ) =< "}" THEN LET RST $ ( J ) := CHR$ ( ╱cc╱ ( RST $ ( J ) ) - 32 )
0x1a43…1a7e LineComal80 {
0x1a43…1a7e ptr = 0xb06c // 0x1a43 @0x0
0x1a43…1a7e lno = 0x0a82 // 0x1a45 @0x2
0x1a43…1a7e at0004 = ╱8200╱ IF ╱ // 0x1a47 @0x4
0x1a43…1a7e at0006 = ╱22╱"╱ // 0x1a49 @0x6
0x1a43…1a7e at0007 = ╱61╱a╱ // 0x1a4a @0x7
0x1a43…1a7e at0008 = ╱22╱"╱ // 0x1a4b @0x8
0x1a43…1a7e at0009 = ╱e2╱ =< ╱ // 0x1a4c @0x9
0x1a43…1a7e at000a = ╱52╱R╱ // 0x1a4d @0xa
0x1a43…1a7e at000b = ╱53╱S╱ // 0x1a4e @0xb
0x1a43…1a7e at000c = ╱54╱T╱ // 0x1a4f @0xc
0x1a43…1a7e at000d = ╱ef╱ $ ╱ // 0x1a50 @0xd
0x1a43…1a7e at000e = ╱ed╱ ( ╱ // 0x1a51 @0xe
0x1a43…1a7e at000f = ╱4a╱J╱ // 0x1a52 @0xf
0x1a43…1a7e at0010 = ╱ee╱ ) ╱ // 0x1a53 @0x10
0x1a43…1a7e at0011 = ╱d9╱ AND ╱ // 0x1a54 @0x11
0x1a43…1a7e at0012 = ╱52╱R╱ // 0x1a55 @0x12
0x1a43…1a7e at0013 = ╱53╱S╱ // 0x1a56 @0x13
0x1a43…1a7e at0014 = ╱54╱T╱ // 0x1a57 @0x14
0x1a43…1a7e at0015 = ╱ef╱ $ ╱ // 0x1a58 @0x15
0x1a43…1a7e at0016 = ╱ed╱ ( ╱ // 0x1a59 @0x16
0x1a43…1a7e at0017 = ╱4a╱J╱ // 0x1a5a @0x17
0x1a43…1a7e at0018 = ╱ee╱ ) ╱ // 0x1a5b @0x18
0x1a43…1a7e at0019 = ╱e2╱ =< ╱ // 0x1a5c @0x19
0x1a43…1a7e at001a = ╱22╱"╱ // 0x1a5d @0x1a
0x1a43…1a7e at001b = ╱7d╱}╱ // 0x1a5e @0x1b
0x1a43…1a7e at001c = ╱22╱"╱ // 0x1a5f @0x1c
0x1a43…1a7e at001d = ╱b5╱ THEN ╱ // 0x1a60 @0x1d
0x1a43…1a7e at001e = ╱86╱ LET ╱ // 0x1a61 @0x1e
0x1a43…1a7e at001f = ╱52╱R╱ // 0x1a62 @0x1f
0x1a43…1a7e at0020 = ╱53╱S╱ // 0x1a63 @0x20
0x1a43…1a7e at0021 = ╱54╱T╱ // 0x1a64 @0x21
0x1a43…1a7e at0022 = ╱ef╱ $ ╱ // 0x1a65 @0x22
0x1a43…1a7e at0023 = ╱ed╱ ( ╱ // 0x1a66 @0x23
0x1a43…1a7e at0024 = ╱4a╱J╱ // 0x1a67 @0x24
0x1a43…1a7e at0025 = ╱ee╱ ) ╱ // 0x1a68 @0x25
0x1a43…1a7e at0026 = ╱f0╱ := ╱ // 0x1a69 @0x26
0x1a43…1a7e at0027 = ╱d0╱ CHR$ ╱ // 0x1a6a @0x27
0x1a43…1a7e at0028 = ╱ed╱ ( ╱ // 0x1a6b @0x28
0x1a43…1a7e at0029 = ╱cc╱ // 0x1a6c @0x29
0x1a43…1a7e at002a = ╱ed╱ ( ╱ // 0x1a6d @0x2a
0x1a43…1a7e at002b = ╱52╱R╱ // 0x1a6e @0x2b
0x1a43…1a7e at002c = ╱53╱S╱ // 0x1a6f @0x2c
0x1a43…1a7e at002d = ╱54╱T╱ // 0x1a70 @0x2d
0x1a43…1a7e at002e = ╱ef╱ $ ╱ // 0x1a71 @0x2e
0x1a43…1a7e at002f = ╱ed╱ ( ╱ // 0x1a72 @0x2f
0x1a43…1a7e at0030 = ╱4a╱J╱ // 0x1a73 @0x30
0x1a43…1a7e at0031 = ╱ee╱ ) ╱ // 0x1a74 @0x31
0x1a43…1a7e at0032 = ╱ee╱ ) ╱ // 0x1a75 @0x32
0x1a43…1a7e at0033 = ╱e6╱ - ╱ // 0x1a76 @0x33
0x1a43…1a7e at0034 = ╱33╱3╱ // 0x1a77 @0x34
0x1a43…1a7e at0035 = ╱32╱2╱ // 0x1a78 @0x35
0x1a43…1a7e at0036 = ╱f22000╱ // 0x1a79 @0x36
0x1a43…1a7e at0039 = ╱ee╱ ) ╱ // 0x1a7c @0x39
0x1a43…1a7e at003a = EOL // 0x1a7d @0x3a
0x1a43…1a7e }
0x1a7e…1a85 b073 02700 NEXT J
0x1a7e…1a85 LineComal80 {
0x1a7e…1a85 ptr = 0xb073 // 0x1a7e @0x0
0x1a7e…1a85 lno = 0x0a8c // 0x1a80 @0x2
0x1a7e…1a85 at0004 = ╱84╱ NEXT ╱ // 0x1a82 @0x4
0x1a7e…1a85 at0005 = ╱4a╱J╱ // 0x1a83 @0x5
0x1a7e…1a85 at0006 = EOL // 0x1a84 @0x6
0x1a7e…1a85 }
0x1a85…1a92 b080 02710 ENDPROC ST_BGST
0x1a85…1a92 LineComal80 {
0x1a85…1a92 ptr = 0xb080 // 0x1a85 @0x0
0x1a85…1a92 lno = 0x0a96 // 0x1a87 @0x2
0x1a85…1a92 at0004 = ╱9f╱ ENDPROC ╱ // 0x1a89 @0x4
0x1a85…1a92 at0005 = ╱53╱S╱ // 0x1a8a @0x5
0x1a85…1a92 at0006 = ╱54╱T╱ // 0x1a8b @0x6
0x1a85…1a92 at0007 = ╱5f╱_╱ // 0x1a8c @0x7
0x1a85…1a92 at0008 = ╱42╱B╱ // 0x1a8d @0x8
0x1a85…1a92 at0009 = ╱47╱G╱ // 0x1a8e @0x9
0x1a85…1a92 at000a = ╱53╱S╱ // 0x1a8f @0xa
0x1a85…1a92 at000b = ╱54╱T╱ // 0x1a90 @0xb
0x1a85…1a92 at000c = EOL // 0x1a91 @0xc
0x1a85…1a92 }
0x1a92…1a97 b085 02720
0x1a92…1a97 LineComal80 {
0x1a92…1a97 ptr = 0xb085 // 0x1a92 @0x0
0x1a92…1a97 lno = 0x0aa0 // 0x1a94 @0x2
0x1a92…1a97 at0004 = EOL // 0x1a96 @0x4
0x1a92…1a97 }
0x1a97…1ab0 b09e 02730 PROC TAL_CONTROL ( REF RST $ )
0x1a97…1ab0 LineComal80 {
0x1a97…1ab0 ptr = 0xb09e // 0x1a97 @0x0
0x1a97…1ab0 lno = 0x0aaa // 0x1a99 @0x2
0x1a97…1ab0 at0004 = ╱9e2f╱ PROC ╱ // 0x1a9b @0x4
0x1a97…1ab0 at0006 = ╱54╱T╱ // 0x1a9d @0x6
0x1a97…1ab0 at0007 = ╱41╱A╱ // 0x1a9e @0x7
0x1a97…1ab0 at0008 = ╱4c╱L╱ // 0x1a9f @0x8
0x1a97…1ab0 at0009 = ╱5f╱_╱ // 0x1aa0 @0x9
0x1a97…1ab0 at000a = ╱43╱C╱ // 0x1aa1 @0xa
0x1a97…1ab0 at000b = ╱4f╱O╱ // 0x1aa2 @0xb
0x1a97…1ab0 at000c = ╱4e╱N╱ // 0x1aa3 @0xc
0x1a97…1ab0 at000d = ╱54╱T╱ // 0x1aa4 @0xd
0x1a97…1ab0 at000e = ╱52╱R╱ // 0x1aa5 @0xe
0x1a97…1ab0 at000f = ╱4f╱O╱ // 0x1aa6 @0xf
0x1a97…1ab0 at0010 = ╱4c╱L╱ // 0x1aa7 @0x10
0x1a97…1ab0 at0011 = ╱ed╱ ( ╱ // 0x1aa8 @0x11
0x1a97…1ab0 at0012 = ╱b6╱ REF ╱ // 0x1aa9 @0x12
0x1a97…1ab0 at0013 = ╱52╱R╱ // 0x1aaa @0x13
0x1a97…1ab0 at0014 = ╱53╱S╱ // 0x1aab @0x14
0x1a97…1ab0 at0015 = ╱54╱T╱ // 0x1aac @0x15
0x1a97…1ab0 at0016 = ╱ef╱ $ ╱ // 0x1aad @0x16
0x1a97…1ab0 at0017 = ╱ee╱ ) ╱ // 0x1aae @0x17
0x1a97…1ab0 at0018 = EOL // 0x1aaf @0x18
0x1a97…1ab0 }
0x1ab0…1ac4 b0b2 02740 LET J := 0 ; OK := TRUE
0x1ab0…1ac4 LineComal80 {
0x1ab0…1ac4 ptr = 0xb0b2 // 0x1ab0 @0x0
0x1ab0…1ac4 lno = 0x0ab4 // 0x1ab2 @0x2
0x1ab0…1ac4 at0004 = ╱86╱ LET ╱ // 0x1ab4 @0x4
0x1ab0…1ac4 at0005 = ╱4a╱J╱ // 0x1ab5 @0x5
0x1ab0…1ac4 at0006 = ╱f0╱ := ╱ // 0x1ab6 @0x6
0x1ab0…1ac4 at0007 = ╱30╱0╱ // 0x1ab7 @0x7
0x1ab0…1ac4 at0008 = ╱f20000╱ // 0x1ab8 @0x8
0x1ab0…1ac4 at000b = ╱ea╱ ; ╱ // 0x1abb @0xb
0x1ab0…1ac4 at000c = ╱4f╱O╱ // 0x1abc @0xc
0x1ab0…1ac4 at000d = ╱4b╱K╱ // 0x1abd @0xd
0x1ab0…1ac4 at000e = ╱f0╱ := ╱ // 0x1abe @0xe
0x1ab0…1ac4 at000f = ╱54╱T╱ // 0x1abf @0xf
0x1ab0…1ac4 at0010 = ╱52╱R╱ // 0x1ac0 @0x10
0x1ab0…1ac4 at0011 = ╱55╱U╱ // 0x1ac1 @0x11
0x1ab0…1ac4 at0012 = ╱45╱E╱ // 0x1ac2 @0x12
0x1ab0…1ac4 at0013 = EOL // 0x1ac3 @0x13
0x1ab0…1ac4 }
0x1ac4…1ada b0c8 02750 FOR I := 1 TO ( RST $ ) DO
0x1ac4…1ada LineComal80 {
0x1ac4…1ada ptr = 0xb0c8 // 0x1ac4 @0x0
0x1ac4…1ada lno = 0x0abe // 0x1ac6 @0x2
0x1ac4…1ada at0004 = ╱8330╱ FOR ╱ // 0x1ac8 @0x4
0x1ac4…1ada at0006 = ╱49╱I╱ // 0x1aca @0x6
0x1ac4…1ada at0007 = ╱f0╱ := ╱ // 0x1acb @0x7
0x1ac4…1ada at0008 = ╱31╱1╱ // 0x1acc @0x8
0x1ac4…1ada at0009 = ╱f20100╱ // 0x1acd @0x9
0x1ac4…1ada at000c = ╱b7cb╱ TO ╱ // 0x1ad0 @0xc
0x1ac4…1ada at000e = ╱ed╱ ( ╱ // 0x1ad2 @0xe
0x1ac4…1ada at000f = ╱52╱R╱ // 0x1ad3 @0xf
0x1ac4…1ada at0010 = ╱53╱S╱ // 0x1ad4 @0x10
0x1ac4…1ada at0011 = ╱54╱T╱ // 0x1ad5 @0x11
0x1ac4…1ada at0012 = ╱ef╱ $ ╱ // 0x1ad6 @0x12
0x1ac4…1ada at0013 = ╱ee╱ ) ╱ // 0x1ad7 @0x13
0x1ac4…1ada at0014 = ╱bb╱ DO ╱ // 0x1ad8 @0x14
0x1ac4…1ada at0015 = EOL // 0x1ad9 @0x15
0x1ac4…1ada }
0x1ada…1b0f b0fd 02760 IF RST $ ( I ) IN "0123456789" THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
0x1ada…1b0f LineComal80 {
0x1ada…1b0f ptr = 0xb0fd // 0x1ada @0x0
0x1ada…1b0f lno = 0x0ac8 // 0x1adc @0x2
0x1ada…1b0f at0004 = ╱8200╱ IF ╱ // 0x1ade @0x4
0x1ada…1b0f at0006 = ╱52╱R╱ // 0x1ae0 @0x6
0x1ada…1b0f at0007 = ╱53╱S╱ // 0x1ae1 @0x7
0x1ada…1b0f at0008 = ╱54╱T╱ // 0x1ae2 @0x8
0x1ada…1b0f at0009 = ╱ef╱ $ ╱ // 0x1ae3 @0x9
0x1ada…1b0f at000a = ╱ed╱ ( ╱ // 0x1ae4 @0xa
0x1ada…1b0f at000b = ╱49╱I╱ // 0x1ae5 @0xb
0x1ada…1b0f at000c = ╱ee╱ ) ╱ // 0x1ae6 @0xc
0x1ada…1b0f at000d = ╱dc╱ IN ╱ // 0x1ae7 @0xd
0x1ada…1b0f at000e = ╱22╱"╱ // 0x1ae8 @0xe
0x1ada…1b0f at000f = ╱30╱0╱ // 0x1ae9 @0xf
0x1ada…1b0f at0010 = ╱31╱1╱ // 0x1aea @0x10
0x1ada…1b0f at0011 = ╱32╱2╱ // 0x1aeb @0x11
0x1ada…1b0f at0012 = ╱33╱3╱ // 0x1aec @0x12
0x1ada…1b0f at0013 = ╱34╱4╱ // 0x1aed @0x13
0x1ada…1b0f at0014 = ╱35╱5╱ // 0x1aee @0x14
0x1ada…1b0f at0015 = ╱36╱6╱ // 0x1aef @0x15
0x1ada…1b0f at0016 = ╱37╱7╱ // 0x1af0 @0x16
0x1ada…1b0f at0017 = ╱38╱8╱ // 0x1af1 @0x17
0x1ada…1b0f at0018 = ╱39╱9╱ // 0x1af2 @0x18
0x1ada…1b0f at0019 = ╱22╱"╱ // 0x1af3 @0x19
0x1ada…1b0f at001a = ╱b5╱ THEN ╱ // 0x1af4 @0x1a
0x1ada…1b0f at001b = ╱86╱ LET ╱ // 0x1af5 @0x1b
0x1ada…1b0f at001c = ╱4a╱J╱ // 0x1af6 @0x1c
0x1ada…1b0f at001d = ╱f0╱ := ╱ // 0x1af7 @0x1d
0x1ada…1b0f at001e = ╱4a╱J╱ // 0x1af8 @0x1e
0x1ada…1b0f at001f = ╱e5╱ + ╱ // 0x1af9 @0x1f
0x1ada…1b0f at0020 = ╱31╱1╱ // 0x1afa @0x20
0x1ada…1b0f at0021 = ╱f20100╱ // 0x1afb @0x21
0x1ada…1b0f at0024 = ╱ea╱ ; ╱ // 0x1afe @0x24
0x1ada…1b0f at0025 = ╱52╱R╱ // 0x1aff @0x25
0x1ada…1b0f at0026 = ╱53╱S╱ // 0x1b00 @0x26
0x1ada…1b0f at0027 = ╱54╱T╱ // 0x1b01 @0x27
0x1ada…1b0f at0028 = ╱ef╱ $ ╱ // 0x1b02 @0x28
0x1ada…1b0f at0029 = ╱ed╱ ( ╱ // 0x1b03 @0x29
0x1ada…1b0f at002a = ╱4a╱J╱ // 0x1b04 @0x2a
0x1ada…1b0f at002b = ╱ee╱ ) ╱ // 0x1b05 @0x2b
0x1ada…1b0f at002c = ╱f0╱ := ╱ // 0x1b06 @0x2c
0x1ada…1b0f at002d = ╱52╱R╱ // 0x1b07 @0x2d
0x1ada…1b0f at002e = ╱53╱S╱ // 0x1b08 @0x2e
0x1ada…1b0f at002f = ╱54╱T╱ // 0x1b09 @0x2f
0x1ada…1b0f at0030 = ╱ef╱ $ ╱ // 0x1b0a @0x30
0x1ada…1b0f at0031 = ╱ed╱ ( ╱ // 0x1b0b @0x31
0x1ada…1b0f at0032 = ╱49╱I╱ // 0x1b0c @0x32
0x1ada…1b0f at0033 = ╱ee╱ ) ╱ // 0x1b0d @0x33
0x1ada…1b0f at0034 = EOL // 0x1b0e @0x34
0x1ada…1b0f }
0x1b0f…1b16 b104 02770 NEXT I
0x1b0f…1b16 LineComal80 {
0x1b0f…1b16 ptr = 0xb104 // 0x1b0f @0x0
0x1b0f…1b16 lno = 0x0ad2 // 0x1b11 @0x2
0x1b0f…1b16 at0004 = ╱84╱ NEXT ╱ // 0x1b13 @0x4
0x1b0f…1b16 at0005 = ╱49╱I╱ // 0x1b14 @0x5
0x1b0f…1b16 at0006 = EOL // 0x1b15 @0x6
0x1b0f…1b16 }
0x1b16…1b24 b112 02780 IF = 0 THEN
0x1b16…1b24 LineComal80 {
0x1b16…1b24 ptr = 0xb112 // 0x1b16 @0x0
0x1b16…1b24 lno = 0x0adc // 0x1b18 @0x2
0x1b16…1b24 at0004 = ╱9b314a╱ IF ╱ // 0x1b1a @0x4
0x1b16…1b24 at0007 = ╱df╱ = ╱ // 0x1b1d @0x7
0x1b16…1b24 at0008 = ╱30╱0╱ // 0x1b1e @0x8
0x1b16…1b24 at0009 = ╱f20000╱ // 0x1b1f @0x9
0x1b16…1b24 at000c = ╱b5╱ THEN ╱ // 0x1b22 @0xc
0x1b16…1b24 at000d = EOL // 0x1b23 @0xd
0x1b16…1b24 }
0x1b24…1b32 b120 02790 LET OK := FALSE
0x1b24…1b32 LineComal80 {
0x1b24…1b32 ptr = 0xb120 // 0x1b24 @0x0
0x1b24…1b32 lno = 0x0ae6 // 0x1b26 @0x2
0x1b24…1b32 at0004 = ╱86╱ LET ╱ // 0x1b28 @0x4
0x1b24…1b32 at0005 = ╱4f╱O╱ // 0x1b29 @0x5
0x1b24…1b32 at0006 = ╱4b╱K╱ // 0x1b2a @0x6
0x1b24…1b32 at0007 = ╱f0╱ := ╱ // 0x1b2b @0x7
0x1b24…1b32 at0008 = ╱46╱F╱ // 0x1b2c @0x8
0x1b24…1b32 at0009 = ╱41╱A╱ // 0x1b2d @0x9
0x1b24…1b32 at000a = ╱4c╱L╱ // 0x1b2e @0xa
0x1b24…1b32 at000b = ╱53╱S╱ // 0x1b2f @0xb
0x1b24…1b32 at000c = ╱45╱E╱ // 0x1b30 @0xc
0x1b24…1b32 at000d = EOL // 0x1b31 @0xd
0x1b24…1b32 }
0x1b32…1b39 b127 02800 ELSE
0x1b32…1b39 LineComal80 {
0x1b32…1b39 ptr = 0xb127 // 0x1b32 @0x0
0x1b32…1b39 lno = 0x0af0 // 0x1b34 @0x2
0x1b32…1b39 at0004 = ╱9a32╱ ELSE ╱ // 0x1b36 @0x4
0x1b32…1b39 at0006 = EOL // 0x1b38 @0x6
0x1b32…1b39 }
0x1b39…1b50 b13e 02810 LET RST $ := RST $ ( 1 : J )
0x1b39…1b50 LineComal80 {
0x1b39…1b50 ptr = 0xb13e // 0x1b39 @0x0
0x1b39…1b50 lno = 0x0afa // 0x1b3b @0x2
0x1b39…1b50 at0004 = ╱86╱ LET ╱ // 0x1b3d @0x4
0x1b39…1b50 at0005 = ╱52╱R╱ // 0x1b3e @0x5
0x1b39…1b50 at0006 = ╱53╱S╱ // 0x1b3f @0x6
0x1b39…1b50 at0007 = ╱54╱T╱ // 0x1b40 @0x7
0x1b39…1b50 at0008 = ╱ef╱ $ ╱ // 0x1b41 @0x8
0x1b39…1b50 at0009 = ╱f0╱ := ╱ // 0x1b42 @0x9
0x1b39…1b50 at000a = ╱52╱R╱ // 0x1b43 @0xa
0x1b39…1b50 at000b = ╱53╱S╱ // 0x1b44 @0xb
0x1b39…1b50 at000c = ╱54╱T╱ // 0x1b45 @0xc
0x1b39…1b50 at000d = ╱ef╱ $ ╱ // 0x1b46 @0xd
0x1b39…1b50 at000e = ╱ed╱ ( ╱ // 0x1b47 @0xe
0x1b39…1b50 at000f = ╱31╱1╱ // 0x1b48 @0xf
0x1b39…1b50 at0010 = ╱f20100╱ // 0x1b49 @0x10
0x1b39…1b50 at0013 = ╱f1╱ : ╱ // 0x1b4c @0x13
0x1b39…1b50 at0014 = ╱4a╱J╱ // 0x1b4d @0x14
0x1b39…1b50 at0015 = ╱ee╱ ) ╱ // 0x1b4e @0x15
0x1b39…1b50 at0016 = EOL // 0x1b4f @0x16
0x1b39…1b50 }
0x1b50…1b56 b144 02820 ENDIF
0x1b50…1b56 LineComal80 {
0x1b50…1b56 ptr = 0xb144 // 0x1b50 @0x0
0x1b50…1b56 lno = 0x0b04 // 0x1b52 @0x2
0x1b50…1b56 at0004 = ╱9c╱ ENDIF ╱ // 0x1b54 @0x4
0x1b50…1b56 at0005 = EOL // 0x1b55 @0x5
0x1b50…1b56 }
0x1b56…1b67 b155 02830 ENDPROC TAL_CONTROL
0x1b56…1b67 LineComal80 {
0x1b56…1b67 ptr = 0xb155 // 0x1b56 @0x0
0x1b56…1b67 lno = 0x0b0e // 0x1b58 @0x2
0x1b56…1b67 at0004 = ╱9f╱ ENDPROC ╱ // 0x1b5a @0x4
0x1b56…1b67 at0005 = ╱54╱T╱ // 0x1b5b @0x5
0x1b56…1b67 at0006 = ╱41╱A╱ // 0x1b5c @0x6
0x1b56…1b67 at0007 = ╱4c╱L╱ // 0x1b5d @0x7
0x1b56…1b67 at0008 = ╱5f╱_╱ // 0x1b5e @0x8
0x1b56…1b67 at0009 = ╱43╱C╱ // 0x1b5f @0x9
0x1b56…1b67 at000a = ╱4f╱O╱ // 0x1b60 @0xa
0x1b56…1b67 at000b = ╱4e╱N╱ // 0x1b61 @0xb
0x1b56…1b67 at000c = ╱54╱T╱ // 0x1b62 @0xc
0x1b56…1b67 at000d = ╱52╱R╱ // 0x1b63 @0xd
0x1b56…1b67 at000e = ╱4f╱O╱ // 0x1b64 @0xe
0x1b56…1b67 at000f = ╱4c╱L╱ // 0x1b65 @0xf
0x1b56…1b67 at0010 = EOL // 0x1b66 @0x10
0x1b56…1b67 }
0x1b67…1b6c b15a 02840
0x1b67…1b6c LineComal80 {
0x1b67…1b6c ptr = 0xb15a // 0x1b67 @0x0
0x1b67…1b6c lno = 0x0b18 // 0x1b69 @0x2
0x1b67…1b6c at0004 = EOL // 0x1b6b @0x4
0x1b67…1b6c }
0x1b6c…1b7d b16b 02850 PROC SLET_KONTI
0x1b6c…1b7d LineComal80 {
0x1b6c…1b7d ptr = 0xb16b // 0x1b6c @0x0
0x1b6c…1b7d lno = 0x0b22 // 0x1b6e @0x2
0x1b6c…1b7d at0004 = ╱9e33╱ PROC ╱ // 0x1b70 @0x4
0x1b6c…1b7d at0006 = ╱53╱S╱ // 0x1b72 @0x6
0x1b6c…1b7d at0007 = ╱4c╱L╱ // 0x1b73 @0x7
0x1b6c…1b7d at0008 = ╱45╱E╱ // 0x1b74 @0x8
0x1b6c…1b7d at0009 = ╱54╱T╱ // 0x1b75 @0x9
0x1b6c…1b7d at000a = ╱5f╱_╱ // 0x1b76 @0xa
0x1b6c…1b7d at000b = ╱4b╱K╱ // 0x1b77 @0xb
0x1b6c…1b7d at000c = ╱4f╱O╱ // 0x1b78 @0xc
0x1b6c…1b7d at000d = ╱4e╱N╱ // 0x1b79 @0xd
0x1b6c…1b7d at000e = ╱54╱T╱ // 0x1b7a @0xe
0x1b6c…1b7d at000f = ╱49╱I╱ // 0x1b7b @0xf
0x1b6c…1b7d at0010 = EOL // 0x1b7c @0x10
0x1b6c…1b7d }
0x1b7d…1b84 b172 02860 REPEAT
0x1b7d…1b84 LineComal80 {
0x1b7d…1b84 ptr = 0xb172 // 0x1b7d @0x0
0x1b7d…1b84 lno = 0x0b2c // 0x1b7f @0x2
0x1b7d…1b84 at0004 = ╱9734╱ REPEAT ╱ // 0x1b81 @0x4
0x1b7d…1b84 at0006 = EOL // 0x1b83 @0x6
0x1b7d…1b84 }
0x1b84…1ba7 b195 02870 EXEC OVERSKRIFT ( "Slet…konti" , 6 )
0x1b84…1ba7 LineComal80 {
0x1b84…1ba7 ptr = 0xb195 // 0x1b84 @0x0
0x1b84…1ba7 lno = 0x0b36 // 0x1b86 @0x2
0x1b84…1ba7 at0004 = ╱9d╱ EXEC ╱ // 0x1b88 @0x4
0x1b84…1ba7 at0005 = ╱4f╱O╱ // 0x1b89 @0x5
0x1b84…1ba7 at0006 = ╱56╱V╱ // 0x1b8a @0x6
0x1b84…1ba7 at0007 = ╱45╱E╱ // 0x1b8b @0x7
0x1b84…1ba7 at0008 = ╱52╱R╱ // 0x1b8c @0x8
0x1b84…1ba7 at0009 = ╱53╱S╱ // 0x1b8d @0x9
0x1b84…1ba7 at000a = ╱4b╱K╱ // 0x1b8e @0xa
0x1b84…1ba7 at000b = ╱52╱R╱ // 0x1b8f @0xb
0x1b84…1ba7 at000c = ╱49╱I╱ // 0x1b90 @0xc
0x1b84…1ba7 at000d = ╱46╱F╱ // 0x1b91 @0xd
0x1b84…1ba7 at000e = ╱54╱T╱ // 0x1b92 @0xe
0x1b84…1ba7 at000f = ╱ed╱ ( ╱ // 0x1b93 @0xf
0x1b84…1ba7 at0010 = ╱22╱"╱ // 0x1b94 @0x10
0x1b84…1ba7 at0011 = ╱53╱S╱ // 0x1b95 @0x11
0x1b84…1ba7 at0012 = ╱6c╱l╱ // 0x1b96 @0x12
0x1b84…1ba7 at0013 = ╱65╱e╱ // 0x1b97 @0x13
0x1b84…1ba7 at0014 = ╱74╱t╱ // 0x1b98 @0x14
0x1b84…1ba7 at0015 = ╱20╱…╱ // 0x1b99 @0x15
0x1b84…1ba7 at0016 = ╱6b╱k╱ // 0x1b9a @0x16
0x1b84…1ba7 at0017 = ╱6f╱o╱ // 0x1b9b @0x17
0x1b84…1ba7 at0018 = ╱6e╱n╱ // 0x1b9c @0x18
0x1b84…1ba7 at0019 = ╱74╱t╱ // 0x1b9d @0x19
0x1b84…1ba7 at001a = ╱69╱i╱ // 0x1b9e @0x1a
0x1b84…1ba7 at001b = ╱22╱"╱ // 0x1b9f @0x1b
0x1b84…1ba7 at001c = ╱ec╱ , ╱ // 0x1ba0 @0x1c
0x1b84…1ba7 at001d = ╱36╱6╱ // 0x1ba1 @0x1d
0x1b84…1ba7 at001e = ╱f20600╱ // 0x1ba2 @0x1e
0x1b84…1ba7 at0021 = ╱ee╱ ) ╱ // 0x1ba5 @0x21
0x1b84…1ba7 at0022 = EOL // 0x1ba6 @0x22
0x1b84…1ba7 }
0x1ba7…1bd4 b1c2 02880 LET A_KTONR $ := "" ; A_KTO_TYPE $ := "" ; KTO_NAVN $ := ""
0x1ba7…1bd4 LineComal80 {
0x1ba7…1bd4 ptr = 0xb1c2 // 0x1ba7 @0x0
0x1ba7…1bd4 lno = 0x0b40 // 0x1ba9 @0x2
0x1ba7…1bd4 at0004 = ╱86╱ LET ╱ // 0x1bab @0x4
0x1ba7…1bd4 at0005 = ╱41╱A╱ // 0x1bac @0x5
0x1ba7…1bd4 at0006 = ╱5f╱_╱ // 0x1bad @0x6
0x1ba7…1bd4 at0007 = ╱4b╱K╱ // 0x1bae @0x7
0x1ba7…1bd4 at0008 = ╱54╱T╱ // 0x1baf @0x8
0x1ba7…1bd4 at0009 = ╱4f╱O╱ // 0x1bb0 @0x9
0x1ba7…1bd4 at000a = ╱4e╱N╱ // 0x1bb1 @0xa
0x1ba7…1bd4 at000b = ╱52╱R╱ // 0x1bb2 @0xb
0x1ba7…1bd4 at000c = ╱ef╱ $ ╱ // 0x1bb3 @0xc
0x1ba7…1bd4 at000d = ╱f0╱ := ╱ // 0x1bb4 @0xd
0x1ba7…1bd4 at000e = ╱22╱"╱ // 0x1bb5 @0xe
0x1ba7…1bd4 at000f = ╱22╱"╱ // 0x1bb6 @0xf
0x1ba7…1bd4 at0010 = ╱ea╱ ; ╱ // 0x1bb7 @0x10
0x1ba7…1bd4 at0011 = ╱41╱A╱ // 0x1bb8 @0x11
0x1ba7…1bd4 at0012 = ╱5f╱_╱ // 0x1bb9 @0x12
0x1ba7…1bd4 at0013 = ╱4b╱K╱ // 0x1bba @0x13
0x1ba7…1bd4 at0014 = ╱54╱T╱ // 0x1bbb @0x14
0x1ba7…1bd4 at0015 = ╱4f╱O╱ // 0x1bbc @0x15
0x1ba7…1bd4 at0016 = ╱5f╱_╱ // 0x1bbd @0x16
0x1ba7…1bd4 at0017 = ╱54╱T╱ // 0x1bbe @0x17
0x1ba7…1bd4 at0018 = ╱59╱Y╱ // 0x1bbf @0x18
0x1ba7…1bd4 at0019 = ╱50╱P╱ // 0x1bc0 @0x19
0x1ba7…1bd4 at001a = ╱45╱E╱ // 0x1bc1 @0x1a
0x1ba7…1bd4 at001b = ╱ef╱ $ ╱ // 0x1bc2 @0x1b
0x1ba7…1bd4 at001c = ╱f0╱ := ╱ // 0x1bc3 @0x1c
0x1ba7…1bd4 at001d = ╱22╱"╱ // 0x1bc4 @0x1d
0x1ba7…1bd4 at001e = ╱22╱"╱ // 0x1bc5 @0x1e
0x1ba7…1bd4 at001f = ╱ea╱ ; ╱ // 0x1bc6 @0x1f
0x1ba7…1bd4 at0020 = ╱4b╱K╱ // 0x1bc7 @0x20
0x1ba7…1bd4 at0021 = ╱54╱T╱ // 0x1bc8 @0x21
0x1ba7…1bd4 at0022 = ╱4f╱O╱ // 0x1bc9 @0x22
0x1ba7…1bd4 at0023 = ╱5f╱_╱ // 0x1bca @0x23
0x1ba7…1bd4 at0024 = ╱4e╱N╱ // 0x1bcb @0x24
0x1ba7…1bd4 at0025 = ╱41╱A╱ // 0x1bcc @0x25
0x1ba7…1bd4 at0026 = ╱56╱V╱ // 0x1bcd @0x26
0x1ba7…1bd4 at0027 = ╱4e╱N╱ // 0x1bce @0x27
0x1ba7…1bd4 at0028 = ╱ef╱ $ ╱ // 0x1bcf @0x28
0x1ba7…1bd4 at0029 = ╱f0╱ := ╱ // 0x1bd0 @0x29
0x1ba7…1bd4 at002a = ╱22╱"╱ // 0x1bd1 @0x2a
0x1ba7…1bd4 at002b = ╱22╱"╱ // 0x1bd2 @0x2b
0x1ba7…1bd4 at002c = EOL // 0x1bd3 @0x2c
0x1ba7…1bd4 }
0x1bd4…1bdb b1c9 02890 REPEAT
0x1bd4…1bdb LineComal80 {
0x1bd4…1bdb ptr = 0xb1c9 // 0x1bd4 @0x0
0x1bd4…1bdb lno = 0x0b4a // 0x1bd6 @0x2
0x1bd4…1bdb at0004 = ╱9735╱ REPEAT ╱ // 0x1bd8 @0x4
0x1bd4…1bdb at0006 = EOL // 0x1bda @0x6
0x1bd4…1bdb }
0x1bdb…1bf0 b1de 02900 EXEC RET_LINIE ( 1 )
0x1bdb…1bf0 LineComal80 {
0x1bdb…1bf0 ptr = 0xb1de // 0x1bdb @0x0
0x1bdb…1bf0 lno = 0x0b54 // 0x1bdd @0x2
0x1bdb…1bf0 at0004 = ╱9d╱ EXEC ╱ // 0x1bdf @0x4
0x1bdb…1bf0 at0005 = ╱52╱R╱ // 0x1be0 @0x5
0x1bdb…1bf0 at0006 = ╱45╱E╱ // 0x1be1 @0x6
0x1bdb…1bf0 at0007 = ╱54╱T╱ // 0x1be2 @0x7
0x1bdb…1bf0 at0008 = ╱5f╱_╱ // 0x1be3 @0x8
0x1bdb…1bf0 at0009 = ╱4c╱L╱ // 0x1be4 @0x9
0x1bdb…1bf0 at000a = ╱49╱I╱ // 0x1be5 @0xa
0x1bdb…1bf0 at000b = ╱4e╱N╱ // 0x1be6 @0xb
0x1bdb…1bf0 at000c = ╱49╱I╱ // 0x1be7 @0xc
0x1bdb…1bf0 at000d = ╱45╱E╱ // 0x1be8 @0xd
0x1bdb…1bf0 at000e = ╱ed╱ ( ╱ // 0x1be9 @0xe
0x1bdb…1bf0 at000f = ╱31╱1╱ // 0x1bea @0xf
0x1bdb…1bf0 at0010 = ╱f20100╱ // 0x1beb @0x10
0x1bdb…1bf0 at0013 = ╱ee╱ ) ╱ // 0x1bee @0x13
0x1bdb…1bf0 at0014 = EOL // 0x1bef @0x14
0x1bdb…1bf0 }
0x1bf0…1c02 b1f0 02910 EXEC SL_FEJLLINIE
0x1bf0…1c02 LineComal80 {
0x1bf0…1c02 ptr = 0xb1f0 // 0x1bf0 @0x0
0x1bf0…1c02 lno = 0x0b5e // 0x1bf2 @0x2
0x1bf0…1c02 at0004 = ╱9d╱ EXEC ╱ // 0x1bf4 @0x4
0x1bf0…1c02 at0005 = ╱53╱S╱ // 0x1bf5 @0x5
0x1bf0…1c02 at0006 = ╱4c╱L╱ // 0x1bf6 @0x6
0x1bf0…1c02 at0007 = ╱5f╱_╱ // 0x1bf7 @0x7
0x1bf0…1c02 at0008 = ╱46╱F╱ // 0x1bf8 @0x8
0x1bf0…1c02 at0009 = ╱45╱E╱ // 0x1bf9 @0x9
0x1bf0…1c02 at000a = ╱4a╱J╱ // 0x1bfa @0xa
0x1bf0…1c02 at000b = ╱4c╱L╱ // 0x1bfb @0xb
0x1bf0…1c02 at000c = ╱4c╱L╱ // 0x1bfc @0xc
0x1bf0…1c02 at000d = ╱49╱I╱ // 0x1bfd @0xd
0x1bf0…1c02 at000e = ╱4e╱N╱ // 0x1bfe @0xe
0x1bf0…1c02 at000f = ╱49╱I╱ // 0x1bff @0xf
0x1bf0…1c02 at0010 = ╱45╱E╱ // 0x1c00 @0x10
0x1bf0…1c02 at0011 = EOL // 0x1c01 @0x11
0x1bf0…1c02 }
0x1c02…1c2d b21b 02920 IF OPRET THEN EXEC FEJL ( "konto…eksisterer…ikke" )
0x1c02…1c2d LineComal80 {
0x1c02…1c2d ptr = 0xb21b // 0x1c02 @0x0
0x1c02…1c2d lno = 0x0b68 // 0x1c04 @0x2
0x1c02…1c2d at0004 = ╱8200╱ IF ╱ // 0x1c06 @0x4
0x1c02…1c2d at0006 = ╱4f╱O╱ // 0x1c08 @0x6
0x1c02…1c2d at0007 = ╱50╱P╱ // 0x1c09 @0x7
0x1c02…1c2d at0008 = ╱52╱R╱ // 0x1c0a @0x8
0x1c02…1c2d at0009 = ╱45╱E╱ // 0x1c0b @0x9
0x1c02…1c2d at000a = ╱54╱T╱ // 0x1c0c @0xa
0x1c02…1c2d at000b = ╱b5╱ THEN ╱ // 0x1c0d @0xb
0x1c02…1c2d at000c = ╱9d╱ EXEC ╱ // 0x1c0e @0xc
0x1c02…1c2d at000d = ╱46╱F╱ // 0x1c0f @0xd
0x1c02…1c2d at000e = ╱45╱E╱ // 0x1c10 @0xe
0x1c02…1c2d at000f = ╱4a╱J╱ // 0x1c11 @0xf
0x1c02…1c2d at0010 = ╱4c╱L╱ // 0x1c12 @0x10
0x1c02…1c2d at0011 = ╱ed╱ ( ╱ // 0x1c13 @0x11
0x1c02…1c2d at0012 = ╱22╱"╱ // 0x1c14 @0x12
0x1c02…1c2d at0013 = ╱6b╱k╱ // 0x1c15 @0x13
0x1c02…1c2d at0014 = ╱6f╱o╱ // 0x1c16 @0x14
0x1c02…1c2d at0015 = ╱6e╱n╱ // 0x1c17 @0x15
0x1c02…1c2d at0016 = ╱74╱t╱ // 0x1c18 @0x16
0x1c02…1c2d at0017 = ╱6f╱o╱ // 0x1c19 @0x17
0x1c02…1c2d at0018 = ╱20╱…╱ // 0x1c1a @0x18
0x1c02…1c2d at0019 = ╱65╱e╱ // 0x1c1b @0x19
0x1c02…1c2d at001a = ╱6b╱k╱ // 0x1c1c @0x1a
0x1c02…1c2d at001b = ╱73╱s╱ // 0x1c1d @0x1b
0x1c02…1c2d at001c = ╱69╱i╱ // 0x1c1e @0x1c
0x1c02…1c2d at001d = ╱73╱s╱ // 0x1c1f @0x1d
0x1c02…1c2d at001e = ╱74╱t╱ // 0x1c20 @0x1e
0x1c02…1c2d at001f = ╱65╱e╱ // 0x1c21 @0x1f
0x1c02…1c2d at0020 = ╱72╱r╱ // 0x1c22 @0x20
0x1c02…1c2d at0021 = ╱65╱e╱ // 0x1c23 @0x21
0x1c02…1c2d at0022 = ╱72╱r╱ // 0x1c24 @0x22
0x1c02…1c2d at0023 = ╱20╱…╱ // 0x1c25 @0x23
0x1c02…1c2d at0024 = ╱69╱i╱ // 0x1c26 @0x24
0x1c02…1c2d at0025 = ╱6b╱k╱ // 0x1c27 @0x25
0x1c02…1c2d at0026 = ╱6b╱k╱ // 0x1c28 @0x26
0x1c02…1c2d at0027 = ╱65╱e╱ // 0x1c29 @0x27
0x1c02…1c2d at0028 = ╱22╱"╱ // 0x1c2a @0x28
0x1c02…1c2d at0029 = ╱ee╱ ) ╱ // 0x1c2b @0x29
0x1c02…1c2d at002a = EOL // 0x1c2c @0x2a
0x1c02…1c2d }
0x1c2d…1c37 b225 02930 IF K THEN
0x1c2d…1c37 LineComal80 {
0x1c2d…1c37 ptr = 0xb225 // 0x1c2d @0x0
0x1c2d…1c37 lno = 0x0b72 // 0x1c2f @0x2
0x1c2d…1c37 at0004 = ╱9b364f╱ IF ╱ // 0x1c31 @0x4
0x1c2d…1c37 at0007 = ╱4b╱K╱ // 0x1c34 @0x7
0x1c2d…1c37 at0008 = ╱b5╱ THEN ╱ // 0x1c35 @0x8
0x1c2d…1c37 at0009 = EOL // 0x1c36 @0x9
0x1c2d…1c37 }
0x1c37…1c74 b262 02940 IF KTO_ULTIMO >< 0 THEN EXEC FEJL ( "Ulovlig…sletning:…Saldo…<>…0…" )
0x1c37…1c74 LineComal80 {
0x1c37…1c74 ptr = 0xb262 // 0x1c37 @0x0
0x1c37…1c74 lno = 0x0b7c // 0x1c39 @0x2
0x1c37…1c74 at0004 = ╱8200╱ IF ╱ // 0x1c3b @0x4
0x1c37…1c74 at0006 = ╱4b╱K╱ // 0x1c3d @0x6
0x1c37…1c74 at0007 = ╱54╱T╱ // 0x1c3e @0x7
0x1c37…1c74 at0008 = ╱4f╱O╱ // 0x1c3f @0x8
0x1c37…1c74 at0009 = ╱5f╱_╱ // 0x1c40 @0x9
0x1c37…1c74 at000a = ╱55╱U╱ // 0x1c41 @0xa
0x1c37…1c74 at000b = ╱4c╱L╱ // 0x1c42 @0xb
0x1c37…1c74 at000c = ╱54╱T╱ // 0x1c43 @0xc
0x1c37…1c74 at000d = ╱49╱I╱ // 0x1c44 @0xd
0x1c37…1c74 at000e = ╱4d╱M╱ // 0x1c45 @0xe
0x1c37…1c74 at000f = ╱4f╱O╱ // 0x1c46 @0xf
0x1c37…1c74 at0010 = ╱e4╱ >< ╱ // 0x1c47 @0x10
0x1c37…1c74 at0011 = ╱30╱0╱ // 0x1c48 @0x11
0x1c37…1c74 at0012 = ╱f20000╱ // 0x1c49 @0x12
0x1c37…1c74 at0015 = ╱b5╱ THEN ╱ // 0x1c4c @0x15
0x1c37…1c74 at0016 = ╱9d╱ EXEC ╱ // 0x1c4d @0x16
0x1c37…1c74 at0017 = ╱46╱F╱ // 0x1c4e @0x17
0x1c37…1c74 at0018 = ╱45╱E╱ // 0x1c4f @0x18
0x1c37…1c74 at0019 = ╱4a╱J╱ // 0x1c50 @0x19
0x1c37…1c74 at001a = ╱4c╱L╱ // 0x1c51 @0x1a
0x1c37…1c74 at001b = ╱ed╱ ( ╱ // 0x1c52 @0x1b
0x1c37…1c74 at001c = ╱22╱"╱ // 0x1c53 @0x1c
0x1c37…1c74 at001d = ╱55╱U╱ // 0x1c54 @0x1d
0x1c37…1c74 at001e = ╱6c╱l╱ // 0x1c55 @0x1e
0x1c37…1c74 at001f = ╱6f╱o╱ // 0x1c56 @0x1f
0x1c37…1c74 at0020 = ╱76╱v╱ // 0x1c57 @0x20
0x1c37…1c74 at0021 = ╱6c╱l╱ // 0x1c58 @0x21
0x1c37…1c74 at0022 = ╱69╱i╱ // 0x1c59 @0x22
0x1c37…1c74 at0023 = ╱67╱g╱ // 0x1c5a @0x23
0x1c37…1c74 at0024 = ╱20╱…╱ // 0x1c5b @0x24
0x1c37…1c74 at0025 = ╱73╱s╱ // 0x1c5c @0x25
0x1c37…1c74 at0026 = ╱6c╱l╱ // 0x1c5d @0x26
0x1c37…1c74 at0027 = ╱65╱e╱ // 0x1c5e @0x27
0x1c37…1c74 at0028 = ╱74╱t╱ // 0x1c5f @0x28
0x1c37…1c74 at0029 = ╱6e╱n╱ // 0x1c60 @0x29
0x1c37…1c74 at002a = ╱69╱i╱ // 0x1c61 @0x2a
0x1c37…1c74 at002b = ╱6e╱n╱ // 0x1c62 @0x2b
0x1c37…1c74 at002c = ╱67╱g╱ // 0x1c63 @0x2c
0x1c37…1c74 at002d = ╱3a╱:╱ // 0x1c64 @0x2d
0x1c37…1c74 at002e = ╱20╱…╱ // 0x1c65 @0x2e
0x1c37…1c74 at002f = ╱53╱S╱ // 0x1c66 @0x2f
0x1c37…1c74 at0030 = ╱61╱a╱ // 0x1c67 @0x30
0x1c37…1c74 at0031 = ╱6c╱l╱ // 0x1c68 @0x31
0x1c37…1c74 at0032 = ╱64╱d╱ // 0x1c69 @0x32
0x1c37…1c74 at0033 = ╱6f╱o╱ // 0x1c6a @0x33
0x1c37…1c74 at0034 = ╱20╱…╱ // 0x1c6b @0x34
0x1c37…1c74 at0035 = ╱3c╱<╱ // 0x1c6c @0x35
0x1c37…1c74 at0036 = ╱3e╱>╱ // 0x1c6d @0x36
0x1c37…1c74 at0037 = ╱20╱…╱ // 0x1c6e @0x37
0x1c37…1c74 at0038 = ╱30╱0╱ // 0x1c6f @0x38
0x1c37…1c74 at0039 = ╱20╱…╱ // 0x1c70 @0x39
0x1c37…1c74 at003a = ╱22╱"╱ // 0x1c71 @0x3a
0x1c37…1c74 at003b = ╱ee╱ ) ╱ // 0x1c72 @0x3b
0x1c37…1c74 at003c = EOL // 0x1c73 @0x3c
0x1c37…1c74 }
0x1c74…1c7a b268 02950 ENDIF
0x1c74…1c7a LineComal80 {
0x1c74…1c7a ptr = 0xb268 // 0x1c74 @0x0
0x1c74…1c7a lno = 0x0b86 // 0x1c76 @0x2
0x1c74…1c7a at0004 = ╱9c╱ ENDIF ╱ // 0x1c78 @0x4
0x1c74…1c7a at0005 = EOL // 0x1c79 @0x5
0x1c74…1c7a }
0x1c7a…1c82 b270 02960 UNTIL OK
0x1c7a…1c82 LineComal80 {
0x1c7a…1c82 ptr = 0xb270 // 0x1c7a @0x0
0x1c7a…1c82 lno = 0x0b90 // 0x1c7c @0x2
0x1c7a…1c82 at0004 = ╱98╱ UNTIL ╱ // 0x1c7e @0x4
0x1c7a…1c82 at0005 = ╱4f╱O╱ // 0x1c7f @0x5
0x1c7a…1c82 at0006 = ╱4b╱K╱ // 0x1c80 @0x6
0x1c7a…1c82 at0007 = EOL // 0x1c81 @0x7
0x1c7a…1c82 }
0x1c82…1c89 b277 02970 REPEAT
0x1c82…1c89 LineComal80 {
0x1c82…1c89 ptr = 0xb277 // 0x1c82 @0x0
0x1c82…1c89 lno = 0x0b9a // 0x1c84 @0x2
0x1c82…1c89 at0004 = ╱9737╱ REPEAT ╱ // 0x1c86 @0x4
0x1c82…1c89 at0006 = EOL // 0x1c88 @0x6
0x1c82…1c89 }
0x1c89…1c98 b286 02980 LET SVAR $ := "…"
0x1c89…1c98 LineComal80 {
0x1c89…1c98 ptr = 0xb286 // 0x1c89 @0x0
0x1c89…1c98 lno = 0x0ba4 // 0x1c8b @0x2
0x1c89…1c98 at0004 = ╱86╱ LET ╱ // 0x1c8d @0x4
0x1c89…1c98 at0005 = ╱53╱S╱ // 0x1c8e @0x5
0x1c89…1c98 at0006 = ╱56╱V╱ // 0x1c8f @0x6
0x1c89…1c98 at0007 = ╱41╱A╱ // 0x1c90 @0x7
0x1c89…1c98 at0008 = ╱52╱R╱ // 0x1c91 @0x8
0x1c89…1c98 at0009 = ╱ef╱ $ ╱ // 0x1c92 @0x9
0x1c89…1c98 at000a = ╱f0╱ := ╱ // 0x1c93 @0xa
0x1c89…1c98 at000b = ╱22╱"╱ // 0x1c94 @0xb
0x1c89…1c98 at000c = ╱20╱…╱ // 0x1c95 @0xc
0x1c89…1c98 at000d = ╱22╱"╱ // 0x1c96 @0xd
0x1c89…1c98 at000e = EOL // 0x1c97 @0xe
0x1c89…1c98 }
0x1c98…1cc5 b2b3 02990 EDIT "<C2718>Slet…konto…(j/n)?…" : SVAR $ ( 1 )
0x1c98…1cc5 LineComal80 {
0x1c98…1cc5 ptr = 0xb2b3 // 0x1c98 @0x0
0x1c98…1cc5 lno = 0x0bae // 0x1c9a @0x2
0x1c98…1cc5 at0004 = ╱b1╱ EDIT ╱ // 0x1c9c @0x4
0x1c98…1cc5 at0005 = ╱22╱"╱ // 0x1c9d @0x5
0x1c98…1cc5 at0006 = ╱3c╱<╱ // 0x1c9e @0x6
0x1c98…1cc5 at0007 = ╱43╱C╱ // 0x1c9f @0x7
0x1c98…1cc5 at0008 = ╱32╱2╱ // 0x1ca0 @0x8
0x1c98…1cc5 at0009 = ╱37╱7╱ // 0x1ca1 @0x9
0x1c98…1cc5 at000a = ╱31╱1╱ // 0x1ca2 @0xa
0x1c98…1cc5 at000b = ╱38╱8╱ // 0x1ca3 @0xb
0x1c98…1cc5 at000c = ╱3e╱>╱ // 0x1ca4 @0xc
0x1c98…1cc5 at000d = ╱53╱S╱ // 0x1ca5 @0xd
0x1c98…1cc5 at000e = ╱6c╱l╱ // 0x1ca6 @0xe
0x1c98…1cc5 at000f = ╱65╱e╱ // 0x1ca7 @0xf
0x1c98…1cc5 at0010 = ╱74╱t╱ // 0x1ca8 @0x10
0x1c98…1cc5 at0011 = ╱20╱…╱ // 0x1ca9 @0x11
0x1c98…1cc5 at0012 = ╱6b╱k╱ // 0x1caa @0x12
0x1c98…1cc5 at0013 = ╱6f╱o╱ // 0x1cab @0x13
0x1c98…1cc5 at0014 = ╱6e╱n╱ // 0x1cac @0x14
0x1c98…1cc5 at0015 = ╱74╱t╱ // 0x1cad @0x15
0x1c98…1cc5 at0016 = ╱6f╱o╱ // 0x1cae @0x16
0x1c98…1cc5 at0017 = ╱20╱…╱ // 0x1caf @0x17
0x1c98…1cc5 at0018 = ╱28╱(╱ // 0x1cb0 @0x18
0x1c98…1cc5 at0019 = ╱6a╱j╱ // 0x1cb1 @0x19
0x1c98…1cc5 at001a = ╱2f╱/╱ // 0x1cb2 @0x1a
0x1c98…1cc5 at001b = ╱6e╱n╱ // 0x1cb3 @0x1b
0x1c98…1cc5 at001c = ╱29╱)╱ // 0x1cb4 @0x1c
0x1c98…1cc5 at001d = ╱3f╱?╱ // 0x1cb5 @0x1d
0x1c98…1cc5 at001e = ╱20╱…╱ // 0x1cb6 @0x1e
0x1c98…1cc5 at001f = ╱22╱"╱ // 0x1cb7 @0x1f
0x1c98…1cc5 at0020 = ╱f1╱ : ╱ // 0x1cb8 @0x20
0x1c98…1cc5 at0021 = ╱53╱S╱ // 0x1cb9 @0x21
0x1c98…1cc5 at0022 = ╱56╱V╱ // 0x1cba @0x22
0x1c98…1cc5 at0023 = ╱41╱A╱ // 0x1cbb @0x23
0x1c98…1cc5 at0024 = ╱52╱R╱ // 0x1cbc @0x24
0x1c98…1cc5 at0025 = ╱ef╱ $ ╱ // 0x1cbd @0x25
0x1c98…1cc5 at0026 = ╱ed╱ ( ╱ // 0x1cbe @0x26
0x1c98…1cc5 at0027 = ╱31╱1╱ // 0x1cbf @0x27
0x1c98…1cc5 at0028 = ╱f20100╱ // 0x1cc0 @0x28
0x1c98…1cc5 at002b = ╱ee╱ ) ╱ // 0x1cc3 @0x2b
0x1c98…1cc5 at002c = EOL // 0x1cc4 @0x2c
0x1c98…1cc5 }
0x1cc5…1cea b2d8 03000 UNTIL "/" + SVAR $ ( 1 ) + "/" IN "/J/j/N/n/"
0x1cc5…1cea LineComal80 {
0x1cc5…1cea ptr = 0xb2d8 // 0x1cc5 @0x0
0x1cc5…1cea lno = 0x0bb8 // 0x1cc7 @0x2
0x1cc5…1cea at0004 = ╱98╱ UNTIL ╱ // 0x1cc9 @0x4
0x1cc5…1cea at0005 = ╱22╱"╱ // 0x1cca @0x5
0x1cc5…1cea at0006 = ╱2f╱/╱ // 0x1ccb @0x6
0x1cc5…1cea at0007 = ╱22╱"╱ // 0x1ccc @0x7
0x1cc5…1cea at0008 = ╱eb╱ + ╱ // 0x1ccd @0x8
0x1cc5…1cea at0009 = ╱53╱S╱ // 0x1cce @0x9
0x1cc5…1cea at000a = ╱56╱V╱ // 0x1ccf @0xa
0x1cc5…1cea at000b = ╱41╱A╱ // 0x1cd0 @0xb
0x1cc5…1cea at000c = ╱52╱R╱ // 0x1cd1 @0xc
0x1cc5…1cea at000d = ╱ef╱ $ ╱ // 0x1cd2 @0xd
0x1cc5…1cea at000e = ╱ed╱ ( ╱ // 0x1cd3 @0xe
0x1cc5…1cea at000f = ╱31╱1╱ // 0x1cd4 @0xf
0x1cc5…1cea at0010 = ╱f20100╱ // 0x1cd5 @0x10
0x1cc5…1cea at0013 = ╱ee╱ ) ╱ // 0x1cd8 @0x13
0x1cc5…1cea at0014 = ╱eb╱ + ╱ // 0x1cd9 @0x14
0x1cc5…1cea at0015 = ╱22╱"╱ // 0x1cda @0x15
0x1cc5…1cea at0016 = ╱2f╱/╱ // 0x1cdb @0x16
0x1cc5…1cea at0017 = ╱22╱"╱ // 0x1cdc @0x17
0x1cc5…1cea at0018 = ╱dc╱ IN ╱ // 0x1cdd @0x18
0x1cc5…1cea at0019 = ╱22╱"╱ // 0x1cde @0x19
0x1cc5…1cea at001a = ╱2f╱/╱ // 0x1cdf @0x1a
0x1cc5…1cea at001b = ╱4a╱J╱ // 0x1ce0 @0x1b
0x1cc5…1cea at001c = ╱2f╱/╱ // 0x1ce1 @0x1c
0x1cc5…1cea at001d = ╱6a╱j╱ // 0x1ce2 @0x1d
0x1cc5…1cea at001e = ╱2f╱/╱ // 0x1ce3 @0x1e
0x1cc5…1cea at001f = ╱4e╱N╱ // 0x1ce4 @0x1f
0x1cc5…1cea at0020 = ╱2f╱/╱ // 0x1ce5 @0x20
0x1cc5…1cea at0021 = ╱6e╱n╱ // 0x1ce6 @0x21
0x1cc5…1cea at0022 = ╱2f╱/╱ // 0x1ce7 @0x22
0x1cc5…1cea at0023 = ╱22╱"╱ // 0x1ce8 @0x23
0x1cc5…1cea at0024 = EOL // 0x1ce9 @0x24
0x1cc5…1cea }
0x1cea…1d12 b300 03010 IF "/" + SVAR $ ( 1 ) + "/" IN "/J/j/" THEN EXEC SLET
0x1cea…1d12 LineComal80 {
0x1cea…1d12 ptr = 0xb300 // 0x1cea @0x0
0x1cea…1d12 lno = 0x0bc2 // 0x1cec @0x2
0x1cea…1d12 at0004 = ╱8200╱ IF ╱ // 0x1cee @0x4
0x1cea…1d12 at0006 = ╱22╱"╱ // 0x1cf0 @0x6
0x1cea…1d12 at0007 = ╱2f╱/╱ // 0x1cf1 @0x7
0x1cea…1d12 at0008 = ╱22╱"╱ // 0x1cf2 @0x8
0x1cea…1d12 at0009 = ╱eb╱ + ╱ // 0x1cf3 @0x9
0x1cea…1d12 at000a = ╱53╱S╱ // 0x1cf4 @0xa
0x1cea…1d12 at000b = ╱56╱V╱ // 0x1cf5 @0xb
0x1cea…1d12 at000c = ╱41╱A╱ // 0x1cf6 @0xc
0x1cea…1d12 at000d = ╱52╱R╱ // 0x1cf7 @0xd
0x1cea…1d12 at000e = ╱ef╱ $ ╱ // 0x1cf8 @0xe
0x1cea…1d12 at000f = ╱ed╱ ( ╱ // 0x1cf9 @0xf
0x1cea…1d12 at0010 = ╱31╱1╱ // 0x1cfa @0x10
0x1cea…1d12 at0011 = ╱f20100╱ // 0x1cfb @0x11
0x1cea…1d12 at0014 = ╱ee╱ ) ╱ // 0x1cfe @0x14
0x1cea…1d12 at0015 = ╱eb╱ + ╱ // 0x1cff @0x15
0x1cea…1d12 at0016 = ╱22╱"╱ // 0x1d00 @0x16
0x1cea…1d12 at0017 = ╱2f╱/╱ // 0x1d01 @0x17
0x1cea…1d12 at0018 = ╱22╱"╱ // 0x1d02 @0x18
0x1cea…1d12 at0019 = ╱dc╱ IN ╱ // 0x1d03 @0x19
0x1cea…1d12 at001a = ╱22╱"╱ // 0x1d04 @0x1a
0x1cea…1d12 at001b = ╱2f╱/╱ // 0x1d05 @0x1b
0x1cea…1d12 at001c = ╱4a╱J╱ // 0x1d06 @0x1c
0x1cea…1d12 at001d = ╱2f╱/╱ // 0x1d07 @0x1d
0x1cea…1d12 at001e = ╱6a╱j╱ // 0x1d08 @0x1e
0x1cea…1d12 at001f = ╱2f╱/╱ // 0x1d09 @0x1f
0x1cea…1d12 at0020 = ╱22╱"╱ // 0x1d0a @0x20
0x1cea…1d12 at0021 = ╱b5╱ THEN ╱ // 0x1d0b @0x21
0x1cea…1d12 at0022 = ╱9d╱ EXEC ╱ // 0x1d0c @0x22
0x1cea…1d12 at0023 = ╱53╱S╱ // 0x1d0d @0x23
0x1cea…1d12 at0024 = ╱4c╱L╱ // 0x1d0e @0x24
0x1cea…1d12 at0025 = ╱45╱E╱ // 0x1d0f @0x25
0x1cea…1d12 at0026 = ╱54╱T╱ // 0x1d10 @0x26
0x1cea…1d12 at0027 = EOL // 0x1d11 @0x27
0x1cea…1d12 }
0x1d12…1d18 b306 03020 CLEAR
0x1d12…1d18 LineComal80 {
0x1d12…1d18 ptr = 0xb306 // 0x1d12 @0x0
0x1d12…1d18 lno = 0x0bcc // 0x1d14 @0x2
0x1d12…1d18 at0004 = ╱a0╱ CLEAR ╱ // 0x1d16 @0x4
0x1d12…1d18 at0005 = EOL // 0x1d17 @0x5
0x1d12…1d18 }
0x1d18…1d27 b315 03030 LET SVAR $ := "j"
0x1d18…1d27 LineComal80 {
0x1d18…1d27 ptr = 0xb315 // 0x1d18 @0x0
0x1d18…1d27 lno = 0x0bd6 // 0x1d1a @0x2
0x1d18…1d27 at0004 = ╱86╱ LET ╱ // 0x1d1c @0x4
0x1d18…1d27 at0005 = ╱53╱S╱ // 0x1d1d @0x5
0x1d18…1d27 at0006 = ╱56╱V╱ // 0x1d1e @0x6
0x1d18…1d27 at0007 = ╱41╱A╱ // 0x1d1f @0x7
0x1d18…1d27 at0008 = ╱52╱R╱ // 0x1d20 @0x8
0x1d18…1d27 at0009 = ╱ef╱ $ ╱ // 0x1d21 @0x9
0x1d18…1d27 at000a = ╱f0╱ := ╱ // 0x1d22 @0xa
0x1d18…1d27 at000b = ╱22╱"╱ // 0x1d23 @0xb
0x1d18…1d27 at000c = ╱6a╱j╱ // 0x1d24 @0xc
0x1d18…1d27 at000d = ╱22╱"╱ // 0x1d25 @0xd
0x1d18…1d27 at000e = EOL // 0x1d26 @0xe
0x1d18…1d27 }
0x1d27…1d66 b354 03040 EDIT "<C1212>Skal…der…slettes…flere…konti…(j/n)?…" : SVAR $ ( 1 )
0x1d27…1d66 LineComal80 {
0x1d27…1d66 ptr = 0xb354 // 0x1d27 @0x0
0x1d27…1d66 lno = 0x0be0 // 0x1d29 @0x2
0x1d27…1d66 at0004 = ╱b1╱ EDIT ╱ // 0x1d2b @0x4
0x1d27…1d66 at0005 = ╱22╱"╱ // 0x1d2c @0x5
0x1d27…1d66 at0006 = ╱3c╱<╱ // 0x1d2d @0x6
0x1d27…1d66 at0007 = ╱43╱C╱ // 0x1d2e @0x7
0x1d27…1d66 at0008 = ╱31╱1╱ // 0x1d2f @0x8
0x1d27…1d66 at0009 = ╱32╱2╱ // 0x1d30 @0x9
0x1d27…1d66 at000a = ╱31╱1╱ // 0x1d31 @0xa
0x1d27…1d66 at000b = ╱32╱2╱ // 0x1d32 @0xb
0x1d27…1d66 at000c = ╱3e╱>╱ // 0x1d33 @0xc
0x1d27…1d66 at000d = ╱53╱S╱ // 0x1d34 @0xd
0x1d27…1d66 at000e = ╱6b╱k╱ // 0x1d35 @0xe
0x1d27…1d66 at000f = ╱61╱a╱ // 0x1d36 @0xf
0x1d27…1d66 at0010 = ╱6c╱l╱ // 0x1d37 @0x10
0x1d27…1d66 at0011 = ╱20╱…╱ // 0x1d38 @0x11
0x1d27…1d66 at0012 = ╱64╱d╱ // 0x1d39 @0x12
0x1d27…1d66 at0013 = ╱65╱e╱ // 0x1d3a @0x13
0x1d27…1d66 at0014 = ╱72╱r╱ // 0x1d3b @0x14
0x1d27…1d66 at0015 = ╱20╱…╱ // 0x1d3c @0x15
0x1d27…1d66 at0016 = ╱73╱s╱ // 0x1d3d @0x16
0x1d27…1d66 at0017 = ╱6c╱l╱ // 0x1d3e @0x17
0x1d27…1d66 at0018 = ╱65╱e╱ // 0x1d3f @0x18
0x1d27…1d66 at0019 = ╱74╱t╱ // 0x1d40 @0x19
0x1d27…1d66 at001a = ╱74╱t╱ // 0x1d41 @0x1a
0x1d27…1d66 at001b = ╱65╱e╱ // 0x1d42 @0x1b
0x1d27…1d66 at001c = ╱73╱s╱ // 0x1d43 @0x1c
0x1d27…1d66 at001d = ╱20╱…╱ // 0x1d44 @0x1d
0x1d27…1d66 at001e = ╱66╱f╱ // 0x1d45 @0x1e
0x1d27…1d66 at001f = ╱6c╱l╱ // 0x1d46 @0x1f
0x1d27…1d66 at0020 = ╱65╱e╱ // 0x1d47 @0x20
0x1d27…1d66 at0021 = ╱72╱r╱ // 0x1d48 @0x21
0x1d27…1d66 at0022 = ╱65╱e╱ // 0x1d49 @0x22
0x1d27…1d66 at0023 = ╱20╱…╱ // 0x1d4a @0x23
0x1d27…1d66 at0024 = ╱6b╱k╱ // 0x1d4b @0x24
0x1d27…1d66 at0025 = ╱6f╱o╱ // 0x1d4c @0x25
0x1d27…1d66 at0026 = ╱6e╱n╱ // 0x1d4d @0x26
0x1d27…1d66 at0027 = ╱74╱t╱ // 0x1d4e @0x27
0x1d27…1d66 at0028 = ╱69╱i╱ // 0x1d4f @0x28
0x1d27…1d66 at0029 = ╱20╱…╱ // 0x1d50 @0x29
0x1d27…1d66 at002a = ╱28╱(╱ // 0x1d51 @0x2a
0x1d27…1d66 at002b = ╱6a╱j╱ // 0x1d52 @0x2b
0x1d27…1d66 at002c = ╱2f╱/╱ // 0x1d53 @0x2c
0x1d27…1d66 at002d = ╱6e╱n╱ // 0x1d54 @0x2d
0x1d27…1d66 at002e = ╱29╱)╱ // 0x1d55 @0x2e
0x1d27…1d66 at002f = ╱3f╱?╱ // 0x1d56 @0x2f
0x1d27…1d66 at0030 = ╱20╱…╱ // 0x1d57 @0x30
0x1d27…1d66 at0031 = ╱22╱"╱ // 0x1d58 @0x31
0x1d27…1d66 at0032 = ╱f1╱ : ╱ // 0x1d59 @0x32
0x1d27…1d66 at0033 = ╱53╱S╱ // 0x1d5a @0x33
0x1d27…1d66 at0034 = ╱56╱V╱ // 0x1d5b @0x34
0x1d27…1d66 at0035 = ╱41╱A╱ // 0x1d5c @0x35
0x1d27…1d66 at0036 = ╱52╱R╱ // 0x1d5d @0x36
0x1d27…1d66 at0037 = ╱ef╱ $ ╱ // 0x1d5e @0x37
0x1d27…1d66 at0038 = ╱ed╱ ( ╱ // 0x1d5f @0x38
0x1d27…1d66 at0039 = ╱31╱1╱ // 0x1d60 @0x39
0x1d27…1d66 at003a = ╱f20100╱ // 0x1d61 @0x3a
0x1d27…1d66 at003d = ╱ee╱ ) ╱ // 0x1d64 @0x3d
0x1d27…1d66 at003e = EOL // 0x1d65 @0x3e
0x1d27…1d66 }
0x1d66…1d82 b370 03050 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
0x1d66…1d82 LineComal80 {
0x1d66…1d82 ptr = 0xb370 // 0x1d66 @0x0
0x1d66…1d82 lno = 0x0bea // 0x1d68 @0x2
0x1d66…1d82 at0004 = ╱98╱ UNTIL ╱ // 0x1d6a @0x4
0x1d66…1d82 at0005 = ╱d7╱ NOT ╱ // 0x1d6b @0x5
0x1d66…1d82 at0006 = ╱22╱"╱ // 0x1d6c @0x6
0x1d66…1d82 at0007 = ╱2f╱/╱ // 0x1d6d @0x7
0x1d66…1d82 at0008 = ╱22╱"╱ // 0x1d6e @0x8
0x1d66…1d82 at0009 = ╱eb╱ + ╱ // 0x1d6f @0x9
0x1d66…1d82 at000a = ╱53╱S╱ // 0x1d70 @0xa
0x1d66…1d82 at000b = ╱56╱V╱ // 0x1d71 @0xb
0x1d66…1d82 at000c = ╱41╱A╱ // 0x1d72 @0xc
0x1d66…1d82 at000d = ╱52╱R╱ // 0x1d73 @0xd
0x1d66…1d82 at000e = ╱ef╱ $ ╱ // 0x1d74 @0xe
0x1d66…1d82 at000f = ╱eb╱ + ╱ // 0x1d75 @0xf
0x1d66…1d82 at0010 = ╱22╱"╱ // 0x1d76 @0x10
0x1d66…1d82 at0011 = ╱2f╱/╱ // 0x1d77 @0x11
0x1d66…1d82 at0012 = ╱22╱"╱ // 0x1d78 @0x12
0x1d66…1d82 at0013 = ╱dc╱ IN ╱ // 0x1d79 @0x13
0x1d66…1d82 at0014 = ╱22╱"╱ // 0x1d7a @0x14
0x1d66…1d82 at0015 = ╱2f╱/╱ // 0x1d7b @0x15
0x1d66…1d82 at0016 = ╱4a╱J╱ // 0x1d7c @0x16
0x1d66…1d82 at0017 = ╱2f╱/╱ // 0x1d7d @0x17
0x1d66…1d82 at0018 = ╱6a╱j╱ // 0x1d7e @0x18
0x1d66…1d82 at0019 = ╱2f╱/╱ // 0x1d7f @0x19
0x1d66…1d82 at001a = ╱22╱"╱ // 0x1d80 @0x1a
0x1d66…1d82 at001b = EOL // 0x1d81 @0x1b
0x1d66…1d82 }
0x1d82…1d92 b380 03060 ENDPROC SLET_KONTI
0x1d82…1d92 LineComal80 {
0x1d82…1d92 ptr = 0xb380 // 0x1d82 @0x0
0x1d82…1d92 lno = 0x0bf4 // 0x1d84 @0x2
0x1d82…1d92 at0004 = ╱9f╱ ENDPROC ╱ // 0x1d86 @0x4
0x1d82…1d92 at0005 = ╱53╱S╱ // 0x1d87 @0x5
0x1d82…1d92 at0006 = ╱4c╱L╱ // 0x1d88 @0x6
0x1d82…1d92 at0007 = ╱45╱E╱ // 0x1d89 @0x7
0x1d82…1d92 at0008 = ╱54╱T╱ // 0x1d8a @0x8
0x1d82…1d92 at0009 = ╱5f╱_╱ // 0x1d8b @0x9
0x1d82…1d92 at000a = ╱4b╱K╱ // 0x1d8c @0xa
0x1d82…1d92 at000b = ╱4f╱O╱ // 0x1d8d @0xb
0x1d82…1d92 at000c = ╱4e╱N╱ // 0x1d8e @0xc
0x1d82…1d92 at000d = ╱54╱T╱ // 0x1d8f @0xd
0x1d82…1d92 at000e = ╱49╱I╱ // 0x1d90 @0xe
0x1d82…1d92 at000f = EOL // 0x1d91 @0xf
0x1d82…1d92 }
0x1d92…1d97 b385 03070
0x1d92…1d97 LineComal80 {
0x1d92…1d97 ptr = 0xb385 // 0x1d92 @0x0
0x1d92…1d97 lno = 0x0bfe // 0x1d94 @0x2
0x1d92…1d97 at0004 = EOL // 0x1d96 @0x4
0x1d92…1d97 }
0x1d97…1da2 b390 03080 PROC SLET
0x1d97…1da2 LineComal80 {
0x1d97…1da2 ptr = 0xb390 // 0x1d97 @0x0
0x1d97…1da2 lno = 0x0c08 // 0x1d99 @0x2
0x1d97…1da2 at0004 = ╱9e38╱ PROC ╱ // 0x1d9b @0x4
0x1d97…1da2 at0006 = ╱53╱S╱ // 0x1d9d @0x6
0x1d97…1da2 at0007 = ╱4c╱L╱ // 0x1d9e @0x7
0x1d97…1da2 at0008 = ╱45╱E╱ // 0x1d9f @0x8
0x1d97…1da2 at0009 = ╱54╱T╱ // 0x1da0 @0x9
0x1d97…1da2 at000a = EOL // 0x1da1 @0xa
0x1d97…1da2 }
0x1da2…1db5 b3a3 03090 LET KTO_TYPE $ := "*"
0x1da2…1db5 LineComal80 {
0x1da2…1db5 ptr = 0xb3a3 // 0x1da2 @0x0
0x1da2…1db5 lno = 0x0c12 // 0x1da4 @0x2
0x1da2…1db5 at0004 = ╱86╱ LET ╱ // 0x1da6 @0x4
0x1da2…1db5 at0005 = ╱4b╱K╱ // 0x1da7 @0x5
0x1da2…1db5 at0006 = ╱54╱T╱ // 0x1da8 @0x6
0x1da2…1db5 at0007 = ╱4f╱O╱ // 0x1da9 @0x7
0x1da2…1db5 at0008 = ╱5f╱_╱ // 0x1daa @0x8
0x1da2…1db5 at0009 = ╱54╱T╱ // 0x1dab @0x9
0x1da2…1db5 at000a = ╱59╱Y╱ // 0x1dac @0xa
0x1da2…1db5 at000b = ╱50╱P╱ // 0x1dad @0xb
0x1da2…1db5 at000c = ╱45╱E╱ // 0x1dae @0xc
0x1da2…1db5 at000d = ╱ef╱ $ ╱ // 0x1daf @0xd
0x1da2…1db5 at000e = ╱f0╱ := ╱ // 0x1db0 @0xe
0x1da2…1db5 at000f = ╱22╱"╱ // 0x1db1 @0xf
0x1da2…1db5 at0010 = ╱2a╱*╱ // 0x1db2 @0x10
0x1da2…1db5 at0011 = ╱22╱"╱ // 0x1db3 @0x11
0x1da2…1db5 at0012 = EOL // 0x1db4 @0x12
0x1da2…1db5 }
0x1db5…1dcd b3bb 03100 EXEC SKRIV_KONTO ( RECNR )
0x1db5…1dcd LineComal80 {
0x1db5…1dcd ptr = 0xb3bb // 0x1db5 @0x0
0x1db5…1dcd lno = 0x0c1c // 0x1db7 @0x2
0x1db5…1dcd at0004 = ╱9d╱ EXEC ╱ // 0x1db9 @0x4
0x1db5…1dcd at0005 = ╱53╱S╱ // 0x1dba @0x5
0x1db5…1dcd at0006 = ╱4b╱K╱ // 0x1dbb @0x6
0x1db5…1dcd at0007 = ╱52╱R╱ // 0x1dbc @0x7
0x1db5…1dcd at0008 = ╱49╱I╱ // 0x1dbd @0x8
0x1db5…1dcd at0009 = ╱56╱V╱ // 0x1dbe @0x9
0x1db5…1dcd at000a = ╱5f╱_╱ // 0x1dbf @0xa
0x1db5…1dcd at000b = ╱4b╱K╱ // 0x1dc0 @0xb
0x1db5…1dcd at000c = ╱4f╱O╱ // 0x1dc1 @0xc
0x1db5…1dcd at000d = ╱4e╱N╱ // 0x1dc2 @0xd
0x1db5…1dcd at000e = ╱54╱T╱ // 0x1dc3 @0xe
0x1db5…1dcd at000f = ╱4f╱O╱ // 0x1dc4 @0xf
0x1db5…1dcd at0010 = ╱ed╱ ( ╱ // 0x1dc5 @0x10
0x1db5…1dcd at0011 = ╱52╱R╱ // 0x1dc6 @0x11
0x1db5…1dcd at0012 = ╱45╱E╱ // 0x1dc7 @0x12
0x1db5…1dcd at0013 = ╱43╱C╱ // 0x1dc8 @0x13
0x1db5…1dcd at0014 = ╱4e╱N╱ // 0x1dc9 @0x14
0x1db5…1dcd at0015 = ╱52╱R╱ // 0x1dca @0x15
0x1db5…1dcd at0016 = ╱ee╱ ) ╱ // 0x1dcb @0x16
0x1db5…1dcd at0017 = EOL // 0x1dcc @0x17
0x1db5…1dcd }
0x1dcd…1df0 b3de 03110 GET KONTO $ , 1 : N_FRIREC , N_MAXREC
0x1dcd…1df0 LineComal80 {
0x1dcd…1df0 ptr = 0xb3de // 0x1dcd @0x0
0x1dcd…1df0 lno = 0x0c26 // 0x1dcf @0x2
0x1dcd…1df0 at0004 = ╱a9╱ GET ╱ // 0x1dd1 @0x4
0x1dcd…1df0 at0005 = ╱4b╱K╱ // 0x1dd2 @0x5
0x1dcd…1df0 at0006 = ╱4f╱O╱ // 0x1dd3 @0x6
0x1dcd…1df0 at0007 = ╱4e╱N╱ // 0x1dd4 @0x7
0x1dcd…1df0 at0008 = ╱54╱T╱ // 0x1dd5 @0x8
0x1dcd…1df0 at0009 = ╱4f╱O╱ // 0x1dd6 @0x9
0x1dcd…1df0 at000a = ╱ef╱ $ ╱ // 0x1dd7 @0xa
0x1dcd…1df0 at000b = ╱ec╱ , ╱ // 0x1dd8 @0xb
0x1dcd…1df0 at000c = ╱31╱1╱ // 0x1dd9 @0xc
0x1dcd…1df0 at000d = ╱f20100╱ // 0x1dda @0xd
0x1dcd…1df0 at0010 = ╱f1╱ : ╱ // 0x1ddd @0x10
0x1dcd…1df0 at0011 = ╱4e╱N╱ // 0x1dde @0x11
0x1dcd…1df0 at0012 = ╱5f╱_╱ // 0x1ddf @0x12
0x1dcd…1df0 at0013 = ╱46╱F╱ // 0x1de0 @0x13
0x1dcd…1df0 at0014 = ╱52╱R╱ // 0x1de1 @0x14
0x1dcd…1df0 at0015 = ╱49╱I╱ // 0x1de2 @0x15
0x1dcd…1df0 at0016 = ╱52╱R╱ // 0x1de3 @0x16
0x1dcd…1df0 at0017 = ╱45╱E╱ // 0x1de4 @0x17
0x1dcd…1df0 at0018 = ╱43╱C╱ // 0x1de5 @0x18
0x1dcd…1df0 at0019 = ╱ec╱ , ╱ // 0x1de6 @0x19
0x1dcd…1df0 at001a = ╱4e╱N╱ // 0x1de7 @0x1a
0x1dcd…1df0 at001b = ╱5f╱_╱ // 0x1de8 @0x1b
0x1dcd…1df0 at001c = ╱4d╱M╱ // 0x1de9 @0x1c
0x1dcd…1df0 at001d = ╱41╱A╱ // 0x1dea @0x1d
0x1dcd…1df0 at001e = ╱58╱X╱ // 0x1deb @0x1e
0x1dcd…1df0 at001f = ╱52╱R╱ // 0x1dec @0x1f
0x1dcd…1df0 at0020 = ╱45╱E╱ // 0x1ded @0x20
0x1dcd…1df0 at0021 = ╱43╱C╱ // 0x1dee @0x21
0x1dcd…1df0 at0022 = EOL // 0x1def @0x22
0x1dcd…1df0 }
0x1df0…1e0b b3f9 03120 PUT KONTO $ , RECNR : N_FRIREC
0x1df0…1e0b LineComal80 {
0x1df0…1e0b ptr = 0xb3f9 // 0x1df0 @0x0
0x1df0…1e0b lno = 0x0c30 // 0x1df2 @0x2
0x1df0…1e0b at0004 = ╱aa╱ PUT ╱ // 0x1df4 @0x4
0x1df0…1e0b at0005 = ╱4b╱K╱ // 0x1df5 @0x5
0x1df0…1e0b at0006 = ╱4f╱O╱ // 0x1df6 @0x6
0x1df0…1e0b at0007 = ╱4e╱N╱ // 0x1df7 @0x7
0x1df0…1e0b at0008 = ╱54╱T╱ // 0x1df8 @0x8
0x1df0…1e0b at0009 = ╱4f╱O╱ // 0x1df9 @0x9
0x1df0…1e0b at000a = ╱ef╱ $ ╱ // 0x1dfa @0xa
0x1df0…1e0b at000b = ╱ec╱ , ╱ // 0x1dfb @0xb
0x1df0…1e0b at000c = ╱52╱R╱ // 0x1dfc @0xc
0x1df0…1e0b at000d = ╱45╱E╱ // 0x1dfd @0xd
0x1df0…1e0b at000e = ╱43╱C╱ // 0x1dfe @0xe
0x1df0…1e0b at000f = ╱4e╱N╱ // 0x1dff @0xf
0x1df0…1e0b at0010 = ╱52╱R╱ // 0x1e00 @0x10
0x1df0…1e0b at0011 = ╱f1╱ : ╱ // 0x1e01 @0x11
0x1df0…1e0b at0012 = ╱4e╱N╱ // 0x1e02 @0x12
0x1df0…1e0b at0013 = ╱5f╱_╱ // 0x1e03 @0x13
0x1df0…1e0b at0014 = ╱46╱F╱ // 0x1e04 @0x14
0x1df0…1e0b at0015 = ╱52╱R╱ // 0x1e05 @0x15
0x1df0…1e0b at0016 = ╱49╱I╱ // 0x1e06 @0x16
0x1df0…1e0b at0017 = ╱52╱R╱ // 0x1e07 @0x17
0x1df0…1e0b at0018 = ╱45╱E╱ // 0x1e08 @0x18
0x1df0…1e0b at0019 = ╱43╱C╱ // 0x1e09 @0x19
0x1df0…1e0b at001a = EOL // 0x1e0a @0x1a
0x1df0…1e0b }
0x1e0b…1e1f b40d 03130 LET N_FRIREC := RECNR
0x1e0b…1e1f LineComal80 {
0x1e0b…1e1f ptr = 0xb40d // 0x1e0b @0x0
0x1e0b…1e1f lno = 0x0c3a // 0x1e0d @0x2
0x1e0b…1e1f at0004 = ╱86╱ LET ╱ // 0x1e0f @0x4
0x1e0b…1e1f at0005 = ╱4e╱N╱ // 0x1e10 @0x5
0x1e0b…1e1f at0006 = ╱5f╱_╱ // 0x1e11 @0x6
0x1e0b…1e1f at0007 = ╱46╱F╱ // 0x1e12 @0x7
0x1e0b…1e1f at0008 = ╱52╱R╱ // 0x1e13 @0x8
0x1e0b…1e1f at0009 = ╱49╱I╱ // 0x1e14 @0x9
0x1e0b…1e1f at000a = ╱52╱R╱ // 0x1e15 @0xa
0x1e0b…1e1f at000b = ╱45╱E╱ // 0x1e16 @0xb
0x1e0b…1e1f at000c = ╱43╱C╱ // 0x1e17 @0xc
0x1e0b…1e1f at000d = ╱f0╱ := ╱ // 0x1e18 @0xd
0x1e0b…1e1f at000e = ╱52╱R╱ // 0x1e19 @0xe
0x1e0b…1e1f at000f = ╱45╱E╱ // 0x1e1a @0xf
0x1e0b…1e1f at0010 = ╱43╱C╱ // 0x1e1b @0x10
0x1e0b…1e1f at0011 = ╱4e╱N╱ // 0x1e1c @0x11
0x1e0b…1e1f at0012 = ╱52╱R╱ // 0x1e1d @0x12
0x1e0b…1e1f at0013 = EOL // 0x1e1e @0x13
0x1e0b…1e1f }
0x1e1f…1e42 b430 03140 PUT KONTO $ , 1 : N_FRIREC , N_MAXREC
0x1e1f…1e42 LineComal80 {
0x1e1f…1e42 ptr = 0xb430 // 0x1e1f @0x0
0x1e1f…1e42 lno = 0x0c44 // 0x1e21 @0x2
0x1e1f…1e42 at0004 = ╱aa╱ PUT ╱ // 0x1e23 @0x4
0x1e1f…1e42 at0005 = ╱4b╱K╱ // 0x1e24 @0x5
0x1e1f…1e42 at0006 = ╱4f╱O╱ // 0x1e25 @0x6
0x1e1f…1e42 at0007 = ╱4e╱N╱ // 0x1e26 @0x7
0x1e1f…1e42 at0008 = ╱54╱T╱ // 0x1e27 @0x8
0x1e1f…1e42 at0009 = ╱4f╱O╱ // 0x1e28 @0x9
0x1e1f…1e42 at000a = ╱ef╱ $ ╱ // 0x1e29 @0xa
0x1e1f…1e42 at000b = ╱ec╱ , ╱ // 0x1e2a @0xb
0x1e1f…1e42 at000c = ╱31╱1╱ // 0x1e2b @0xc
0x1e1f…1e42 at000d = ╱f20100╱ // 0x1e2c @0xd
0x1e1f…1e42 at0010 = ╱f1╱ : ╱ // 0x1e2f @0x10
0x1e1f…1e42 at0011 = ╱4e╱N╱ // 0x1e30 @0x11
0x1e1f…1e42 at0012 = ╱5f╱_╱ // 0x1e31 @0x12
0x1e1f…1e42 at0013 = ╱46╱F╱ // 0x1e32 @0x13
0x1e1f…1e42 at0014 = ╱52╱R╱ // 0x1e33 @0x14
0x1e1f…1e42 at0015 = ╱49╱I╱ // 0x1e34 @0x15
0x1e1f…1e42 at0016 = ╱52╱R╱ // 0x1e35 @0x16
0x1e1f…1e42 at0017 = ╱45╱E╱ // 0x1e36 @0x17
0x1e1f…1e42 at0018 = ╱43╱C╱ // 0x1e37 @0x18
0x1e1f…1e42 at0019 = ╱ec╱ , ╱ // 0x1e38 @0x19
0x1e1f…1e42 at001a = ╱4e╱N╱ // 0x1e39 @0x1a
0x1e1f…1e42 at001b = ╱5f╱_╱ // 0x1e3a @0x1b
0x1e1f…1e42 at001c = ╱4d╱M╱ // 0x1e3b @0x1c
0x1e1f…1e42 at001d = ╱41╱A╱ // 0x1e3c @0x1d
0x1e1f…1e42 at001e = ╱58╱X╱ // 0x1e3d @0x1e
0x1e1f…1e42 at001f = ╱52╱R╱ // 0x1e3e @0x1f
0x1e1f…1e42 at0020 = ╱45╱E╱ // 0x1e3f @0x20
0x1e1f…1e42 at0021 = ╱43╱C╱ // 0x1e40 @0x21
0x1e1f…1e42 at0022 = EOL // 0x1e41 @0x22
0x1e1f…1e42 }
0x1e42…1e66 b454 03150 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x1e42…1e66 LineComal80 {
0x1e42…1e66 ptr = 0xb454 // 0x1e42 @0x0
0x1e42…1e66 lno = 0x0c4e // 0x1e44 @0x2
0x1e42…1e66 at0004 = ╱a9╱ GET ╱ // 0x1e46 @0x4
0x1e42…1e66 at0005 = ╱4b╱K╱ // 0x1e47 @0x5
0x1e42…1e66 at0006 = ╱54╱T╱ // 0x1e48 @0x6
0x1e42…1e66 at0007 = ╱4f╱O╱ // 0x1e49 @0x7
0x1e42…1e66 at0008 = ╱49╱I╱ // 0x1e4a @0x8
0x1e42…1e66 at0009 = ╱44╱D╱ // 0x1e4b @0x9
0x1e42…1e66 at000a = ╱58╱X╱ // 0x1e4c @0xa
0x1e42…1e66 at000b = ╱ef╱ $ ╱ // 0x1e4d @0xb
0x1e42…1e66 at000c = ╱ec╱ , ╱ // 0x1e4e @0xc
0x1e42…1e66 at000d = ╱31╱1╱ // 0x1e4f @0xd
0x1e42…1e66 at000e = ╱f20100╱ // 0x1e50 @0xe
0x1e42…1e66 at0011 = ╱f1╱ : ╱ // 0x1e53 @0x11
0x1e42…1e66 at0012 = ╱49╱I╱ // 0x1e54 @0x12
0x1e42…1e66 at0013 = ╱5f╱_╱ // 0x1e55 @0x13
0x1e42…1e66 at0014 = ╱48╱H╱ // 0x1e56 @0x14
0x1e42…1e66 at0015 = ╱5c╱\╱ // 0x1e57 @0x15
0x1e42…1e66 at0016 = ╱4a╱J╱ // 0x1e58 @0x16
0x1e42…1e66 at0017 = ╱52╱R╱ // 0x1e59 @0x17
0x1e42…1e66 at0018 = ╱45╱E╱ // 0x1e5a @0x18
0x1e42…1e66 at0019 = ╱43╱C╱ // 0x1e5b @0x19
0x1e42…1e66 at001a = ╱ec╱ , ╱ // 0x1e5c @0x1a
0x1e42…1e66 at001b = ╱49╱I╱ // 0x1e5d @0x1b
0x1e42…1e66 at001c = ╱5f╱_╱ // 0x1e5e @0x1c
0x1e42…1e66 at001d = ╱4d╱M╱ // 0x1e5f @0x1d
0x1e42…1e66 at001e = ╱41╱A╱ // 0x1e60 @0x1e
0x1e42…1e66 at001f = ╱58╱X╱ // 0x1e61 @0x1f
0x1e42…1e66 at0020 = ╱52╱R╱ // 0x1e62 @0x20
0x1e42…1e66 at0021 = ╱45╱E╱ // 0x1e63 @0x21
0x1e42…1e66 at0022 = ╱43╱C╱ // 0x1e64 @0x22
0x1e42…1e66 at0023 = EOL // 0x1e65 @0x23
0x1e42…1e66 }
0x1e66…1e84 b472 03160 FOR I := IDXPOS TO _H\JREC - 1 DO
0x1e66…1e84 LineComal80 {
0x1e66…1e84 ptr = 0xb472 // 0x1e66 @0x0
0x1e66…1e84 lno = 0x0c58 // 0x1e68 @0x2
0x1e66…1e84 at0004 = ╱8339╱ FOR ╱ // 0x1e6a @0x4
0x1e66…1e84 at0006 = ╱49╱I╱ // 0x1e6c @0x6
0x1e66…1e84 at0007 = ╱f0╱ := ╱ // 0x1e6d @0x7
0x1e66…1e84 at0008 = ╱49╱I╱ // 0x1e6e @0x8
0x1e66…1e84 at0009 = ╱44╱D╱ // 0x1e6f @0x9
0x1e66…1e84 at000a = ╱58╱X╱ // 0x1e70 @0xa
0x1e66…1e84 at000b = ╱50╱P╱ // 0x1e71 @0xb
0x1e66…1e84 at000c = ╱4f╱O╱ // 0x1e72 @0xc
0x1e66…1e84 at000d = ╱53╱S╱ // 0x1e73 @0xd
0x1e66…1e84 at000e = ╱b749╱ TO ╱ // 0x1e74 @0xe
0x1e66…1e84 at0010 = ╱5f╱_╱ // 0x1e76 @0x10
0x1e66…1e84 at0011 = ╱48╱H╱ // 0x1e77 @0x11
0x1e66…1e84 at0012 = ╱5c╱\╱ // 0x1e78 @0x12
0x1e66…1e84 at0013 = ╱4a╱J╱ // 0x1e79 @0x13
0x1e66…1e84 at0014 = ╱52╱R╱ // 0x1e7a @0x14
0x1e66…1e84 at0015 = ╱45╱E╱ // 0x1e7b @0x15
0x1e66…1e84 at0016 = ╱43╱C╱ // 0x1e7c @0x16
0x1e66…1e84 at0017 = ╱e6╱ - ╱ // 0x1e7d @0x17
0x1e66…1e84 at0018 = ╱31╱1╱ // 0x1e7e @0x18
0x1e66…1e84 at0019 = ╱f20100╱ // 0x1e7f @0x19
0x1e66…1e84 at001c = ╱bb╱ DO ╱ // 0x1e82 @0x1c
0x1e66…1e84 at001d = EOL // 0x1e83 @0x1d
0x1e66…1e84 }
0x1e84…1ea5 b493 03170 GET KTOIDX $ , I + 1 : KTONR $ , RECNR
0x1e84…1ea5 LineComal80 {
0x1e84…1ea5 ptr = 0xb493 // 0x1e84 @0x0
0x1e84…1ea5 lno = 0x0c62 // 0x1e86 @0x2
0x1e84…1ea5 at0004 = ╱a9╱ GET ╱ // 0x1e88 @0x4
0x1e84…1ea5 at0005 = ╱4b╱K╱ // 0x1e89 @0x5
0x1e84…1ea5 at0006 = ╱54╱T╱ // 0x1e8a @0x6
0x1e84…1ea5 at0007 = ╱4f╱O╱ // 0x1e8b @0x7
0x1e84…1ea5 at0008 = ╱49╱I╱ // 0x1e8c @0x8
0x1e84…1ea5 at0009 = ╱44╱D╱ // 0x1e8d @0x9
0x1e84…1ea5 at000a = ╱58╱X╱ // 0x1e8e @0xa
0x1e84…1ea5 at000b = ╱ef╱ $ ╱ // 0x1e8f @0xb
0x1e84…1ea5 at000c = ╱ec╱ , ╱ // 0x1e90 @0xc
0x1e84…1ea5 at000d = ╱49╱I╱ // 0x1e91 @0xd
0x1e84…1ea5 at000e = ╱e5╱ + ╱ // 0x1e92 @0xe
0x1e84…1ea5 at000f = ╱31╱1╱ // 0x1e93 @0xf
0x1e84…1ea5 at0010 = ╱f20100╱ // 0x1e94 @0x10
0x1e84…1ea5 at0013 = ╱f1╱ : ╱ // 0x1e97 @0x13
0x1e84…1ea5 at0014 = ╱4b╱K╱ // 0x1e98 @0x14
0x1e84…1ea5 at0015 = ╱54╱T╱ // 0x1e99 @0x15
0x1e84…1ea5 at0016 = ╱4f╱O╱ // 0x1e9a @0x16
0x1e84…1ea5 at0017 = ╱4e╱N╱ // 0x1e9b @0x17
0x1e84…1ea5 at0018 = ╱52╱R╱ // 0x1e9c @0x18
0x1e84…1ea5 at0019 = ╱ef╱ $ ╱ // 0x1e9d @0x19
0x1e84…1ea5 at001a = ╱ec╱ , ╱ // 0x1e9e @0x1a
0x1e84…1ea5 at001b = ╱52╱R╱ // 0x1e9f @0x1b
0x1e84…1ea5 at001c = ╱45╱E╱ // 0x1ea0 @0x1c
0x1e84…1ea5 at001d = ╱43╱C╱ // 0x1ea1 @0x1d
0x1e84…1ea5 at001e = ╱4e╱N╱ // 0x1ea2 @0x1e
0x1e84…1ea5 at001f = ╱52╱R╱ // 0x1ea3 @0x1f
0x1e84…1ea5 at0020 = EOL // 0x1ea4 @0x20
0x1e84…1ea5 }
0x1ea5…1ec1 b4af 03180 PUT KTOIDX $ , I : KTONR $ , RECNR
0x1ea5…1ec1 LineComal80 {
0x1ea5…1ec1 ptr = 0xb4af // 0x1ea5 @0x0
0x1ea5…1ec1 lno = 0x0c6c // 0x1ea7 @0x2
0x1ea5…1ec1 at0004 = ╱aa╱ PUT ╱ // 0x1ea9 @0x4
0x1ea5…1ec1 at0005 = ╱4b╱K╱ // 0x1eaa @0x5
0x1ea5…1ec1 at0006 = ╱54╱T╱ // 0x1eab @0x6
0x1ea5…1ec1 at0007 = ╱4f╱O╱ // 0x1eac @0x7
0x1ea5…1ec1 at0008 = ╱49╱I╱ // 0x1ead @0x8
0x1ea5…1ec1 at0009 = ╱44╱D╱ // 0x1eae @0x9
0x1ea5…1ec1 at000a = ╱58╱X╱ // 0x1eaf @0xa
0x1ea5…1ec1 at000b = ╱ef╱ $ ╱ // 0x1eb0 @0xb
0x1ea5…1ec1 at000c = ╱ec╱ , ╱ // 0x1eb1 @0xc
0x1ea5…1ec1 at000d = ╱49╱I╱ // 0x1eb2 @0xd
0x1ea5…1ec1 at000e = ╱f1╱ : ╱ // 0x1eb3 @0xe
0x1ea5…1ec1 at000f = ╱4b╱K╱ // 0x1eb4 @0xf
0x1ea5…1ec1 at0010 = ╱54╱T╱ // 0x1eb5 @0x10
0x1ea5…1ec1 at0011 = ╱4f╱O╱ // 0x1eb6 @0x11
0x1ea5…1ec1 at0012 = ╱4e╱N╱ // 0x1eb7 @0x12
0x1ea5…1ec1 at0013 = ╱52╱R╱ // 0x1eb8 @0x13
0x1ea5…1ec1 at0014 = ╱ef╱ $ ╱ // 0x1eb9 @0x14
0x1ea5…1ec1 at0015 = ╱ec╱ , ╱ // 0x1eba @0x15
0x1ea5…1ec1 at0016 = ╱52╱R╱ // 0x1ebb @0x16
0x1ea5…1ec1 at0017 = ╱45╱E╱ // 0x1ebc @0x17
0x1ea5…1ec1 at0018 = ╱43╱C╱ // 0x1ebd @0x18
0x1ea5…1ec1 at0019 = ╱4e╱N╱ // 0x1ebe @0x19
0x1ea5…1ec1 at001a = ╱52╱R╱ // 0x1ebf @0x1a
0x1ea5…1ec1 at001b = EOL // 0x1ec0 @0x1b
0x1ea5…1ec1 }
0x1ec1…1ec8 b4b6 03190 NEXT I
0x1ec1…1ec8 LineComal80 {
0x1ec1…1ec8 ptr = 0xb4b6 // 0x1ec1 @0x0
0x1ec1…1ec8 lno = 0x0c76 // 0x1ec3 @0x2
0x1ec1…1ec8 at0004 = ╱84╱ NEXT ╱ // 0x1ec5 @0x4
0x1ec1…1ec8 at0005 = ╱49╱I╱ // 0x1ec6 @0x5
0x1ec1…1ec8 at0006 = EOL // 0x1ec7 @0x6
0x1ec1…1ec8 }
0x1ec8…1ee4 b4d2 03200 LET I_H\JREC := I_H\JREC - 1
0x1ec8…1ee4 LineComal80 {
0x1ec8…1ee4 ptr = 0xb4d2 // 0x1ec8 @0x0
0x1ec8…1ee4 lno = 0x0c80 // 0x1eca @0x2
0x1ec8…1ee4 at0004 = ╱86╱ LET ╱ // 0x1ecc @0x4
0x1ec8…1ee4 at0005 = ╱49╱I╱ // 0x1ecd @0x5
0x1ec8…1ee4 at0006 = ╱5f╱_╱ // 0x1ece @0x6
0x1ec8…1ee4 at0007 = ╱48╱H╱ // 0x1ecf @0x7
0x1ec8…1ee4 at0008 = ╱5c╱\╱ // 0x1ed0 @0x8
0x1ec8…1ee4 at0009 = ╱4a╱J╱ // 0x1ed1 @0x9
0x1ec8…1ee4 at000a = ╱52╱R╱ // 0x1ed2 @0xa
0x1ec8…1ee4 at000b = ╱45╱E╱ // 0x1ed3 @0xb
0x1ec8…1ee4 at000c = ╱43╱C╱ // 0x1ed4 @0xc
0x1ec8…1ee4 at000d = ╱f0╱ := ╱ // 0x1ed5 @0xd
0x1ec8…1ee4 at000e = ╱49╱I╱ // 0x1ed6 @0xe
0x1ec8…1ee4 at000f = ╱5f╱_╱ // 0x1ed7 @0xf
0x1ec8…1ee4 at0010 = ╱48╱H╱ // 0x1ed8 @0x10
0x1ec8…1ee4 at0011 = ╱5c╱\╱ // 0x1ed9 @0x11
0x1ec8…1ee4 at0012 = ╱4a╱J╱ // 0x1eda @0x12
0x1ec8…1ee4 at0013 = ╱52╱R╱ // 0x1edb @0x13
0x1ec8…1ee4 at0014 = ╱45╱E╱ // 0x1edc @0x14
0x1ec8…1ee4 at0015 = ╱43╱C╱ // 0x1edd @0x15
0x1ec8…1ee4 at0016 = ╱e6╱ - ╱ // 0x1ede @0x16
0x1ec8…1ee4 at0017 = ╱31╱1╱ // 0x1edf @0x17
0x1ec8…1ee4 at0018 = ╱f20100╱ // 0x1ee0 @0x18
0x1ec8…1ee4 at001b = EOL // 0x1ee3 @0x1b
0x1ec8…1ee4 }
0x1ee4…1f08 b4f6 03210 PUT KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x1ee4…1f08 LineComal80 {
0x1ee4…1f08 ptr = 0xb4f6 // 0x1ee4 @0x0
0x1ee4…1f08 lno = 0x0c8a // 0x1ee6 @0x2
0x1ee4…1f08 at0004 = ╱aa╱ PUT ╱ // 0x1ee8 @0x4
0x1ee4…1f08 at0005 = ╱4b╱K╱ // 0x1ee9 @0x5
0x1ee4…1f08 at0006 = ╱54╱T╱ // 0x1eea @0x6
0x1ee4…1f08 at0007 = ╱4f╱O╱ // 0x1eeb @0x7
0x1ee4…1f08 at0008 = ╱49╱I╱ // 0x1eec @0x8
0x1ee4…1f08 at0009 = ╱44╱D╱ // 0x1eed @0x9
0x1ee4…1f08 at000a = ╱58╱X╱ // 0x1eee @0xa
0x1ee4…1f08 at000b = ╱ef╱ $ ╱ // 0x1eef @0xb
0x1ee4…1f08 at000c = ╱ec╱ , ╱ // 0x1ef0 @0xc
0x1ee4…1f08 at000d = ╱31╱1╱ // 0x1ef1 @0xd
0x1ee4…1f08 at000e = ╱f20100╱ // 0x1ef2 @0xe
0x1ee4…1f08 at0011 = ╱f1╱ : ╱ // 0x1ef5 @0x11
0x1ee4…1f08 at0012 = ╱49╱I╱ // 0x1ef6 @0x12
0x1ee4…1f08 at0013 = ╱5f╱_╱ // 0x1ef7 @0x13
0x1ee4…1f08 at0014 = ╱48╱H╱ // 0x1ef8 @0x14
0x1ee4…1f08 at0015 = ╱5c╱\╱ // 0x1ef9 @0x15
0x1ee4…1f08 at0016 = ╱4a╱J╱ // 0x1efa @0x16
0x1ee4…1f08 at0017 = ╱52╱R╱ // 0x1efb @0x17
0x1ee4…1f08 at0018 = ╱45╱E╱ // 0x1efc @0x18
0x1ee4…1f08 at0019 = ╱43╱C╱ // 0x1efd @0x19
0x1ee4…1f08 at001a = ╱ec╱ , ╱ // 0x1efe @0x1a
0x1ee4…1f08 at001b = ╱49╱I╱ // 0x1eff @0x1b
0x1ee4…1f08 at001c = ╱5f╱_╱ // 0x1f00 @0x1c
0x1ee4…1f08 at001d = ╱4d╱M╱ // 0x1f01 @0x1d
0x1ee4…1f08 at001e = ╱41╱A╱ // 0x1f02 @0x1e
0x1ee4…1f08 at001f = ╱58╱X╱ // 0x1f03 @0x1f
0x1ee4…1f08 at0020 = ╱52╱R╱ // 0x1f04 @0x20
0x1ee4…1f08 at0021 = ╱45╱E╱ // 0x1f05 @0x21
0x1ee4…1f08 at0022 = ╱43╱C╱ // 0x1f06 @0x22
0x1ee4…1f08 at0023 = EOL // 0x1f07 @0x23
0x1ee4…1f08 }
0x1f08…1f12 b500 03220 ENDPROC SLET
0x1f08…1f12 LineComal80 {
0x1f08…1f12 ptr = 0xb500 // 0x1f08 @0x0
0x1f08…1f12 lno = 0x0c94 // 0x1f0a @0x2
0x1f08…1f12 at0004 = ╱9f╱ ENDPROC ╱ // 0x1f0c @0x4
0x1f08…1f12 at0005 = ╱53╱S╱ // 0x1f0d @0x5
0x1f08…1f12 at0006 = ╱4c╱L╱ // 0x1f0e @0x6
0x1f08…1f12 at0007 = ╱45╱E╱ // 0x1f0f @0x7
0x1f08…1f12 at0008 = ╱54╱T╱ // 0x1f10 @0x8
0x1f08…1f12 at0009 = EOL // 0x1f11 @0x9
0x1f08…1f12 }
0x1f12…1f2c b51a 03230 PROC FIND_KTO ( REF R_KTONR $ )
0x1f12…1f2c LineComal80 {
0x1f12…1f2c ptr = 0xb51a // 0x1f12 @0x0
0x1f12…1f2c lno = 0x0c9e // 0x1f14 @0x2
0x1f12…1f2c at0004 = ╱9e3a╱ PROC ╱ // 0x1f16 @0x4
0x1f12…1f2c at0006 = ╱46╱F╱ // 0x1f18 @0x6
0x1f12…1f2c at0007 = ╱49╱I╱ // 0x1f19 @0x7
0x1f12…1f2c at0008 = ╱4e╱N╱ // 0x1f1a @0x8
0x1f12…1f2c at0009 = ╱44╱D╱ // 0x1f1b @0x9
0x1f12…1f2c at000a = ╱5f╱_╱ // 0x1f1c @0xa
0x1f12…1f2c at000b = ╱4b╱K╱ // 0x1f1d @0xb
0x1f12…1f2c at000c = ╱54╱T╱ // 0x1f1e @0xc
0x1f12…1f2c at000d = ╱4f╱O╱ // 0x1f1f @0xd
0x1f12…1f2c at000e = ╱ed╱ ( ╱ // 0x1f20 @0xe
0x1f12…1f2c at000f = ╱b6╱ REF ╱ // 0x1f21 @0xf
0x1f12…1f2c at0010 = ╱52╱R╱ // 0x1f22 @0x10
0x1f12…1f2c at0011 = ╱5f╱_╱ // 0x1f23 @0x11
0x1f12…1f2c at0012 = ╱4b╱K╱ // 0x1f24 @0x12
0x1f12…1f2c at0013 = ╱54╱T╱ // 0x1f25 @0x13
0x1f12…1f2c at0014 = ╱4f╱O╱ // 0x1f26 @0x14
0x1f12…1f2c at0015 = ╱4e╱N╱ // 0x1f27 @0x15
0x1f12…1f2c at0016 = ╱52╱R╱ // 0x1f28 @0x16
0x1f12…1f2c at0017 = ╱ef╱ $ ╱ // 0x1f29 @0x17
0x1f12…1f2c at0018 = ╱ee╱ ) ╱ // 0x1f2a @0x18
0x1f12…1f2c at0019 = EOL // 0x1f2b @0x19
0x1f12…1f2c }
0x1f2c…1f3a b528 03240 LET OK := FALSE
0x1f2c…1f3a LineComal80 {
0x1f2c…1f3a ptr = 0xb528 // 0x1f2c @0x0
0x1f2c…1f3a lno = 0x0ca8 // 0x1f2e @0x2
0x1f2c…1f3a at0004 = ╱86╱ LET ╱ // 0x1f30 @0x4
0x1f2c…1f3a at0005 = ╱4f╱O╱ // 0x1f31 @0x5
0x1f2c…1f3a at0006 = ╱4b╱K╱ // 0x1f32 @0x6
0x1f2c…1f3a at0007 = ╱f0╱ := ╱ // 0x1f33 @0x7
0x1f2c…1f3a at0008 = ╱46╱F╱ // 0x1f34 @0x8
0x1f2c…1f3a at0009 = ╱41╱A╱ // 0x1f35 @0x9
0x1f2c…1f3a at000a = ╱4c╱L╱ // 0x1f36 @0xa
0x1f2c…1f3a at000b = ╱53╱S╱ // 0x1f37 @0xb
0x1f2c…1f3a at000c = ╱45╱E╱ // 0x1f38 @0xc
0x1f2c…1f3a at000d = EOL // 0x1f39 @0xd
0x1f2c…1f3a }
0x1f3a…1f5e b54c 03250 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x1f3a…1f5e LineComal80 {
0x1f3a…1f5e ptr = 0xb54c // 0x1f3a @0x0
0x1f3a…1f5e lno = 0x0cb2 // 0x1f3c @0x2
0x1f3a…1f5e at0004 = ╱a9╱ GET ╱ // 0x1f3e @0x4
0x1f3a…1f5e at0005 = ╱4b╱K╱ // 0x1f3f @0x5
0x1f3a…1f5e at0006 = ╱54╱T╱ // 0x1f40 @0x6
0x1f3a…1f5e at0007 = ╱4f╱O╱ // 0x1f41 @0x7
0x1f3a…1f5e at0008 = ╱49╱I╱ // 0x1f42 @0x8
0x1f3a…1f5e at0009 = ╱44╱D╱ // 0x1f43 @0x9
0x1f3a…1f5e at000a = ╱58╱X╱ // 0x1f44 @0xa
0x1f3a…1f5e at000b = ╱ef╱ $ ╱ // 0x1f45 @0xb
0x1f3a…1f5e at000c = ╱ec╱ , ╱ // 0x1f46 @0xc
0x1f3a…1f5e at000d = ╱31╱1╱ // 0x1f47 @0xd
0x1f3a…1f5e at000e = ╱f20100╱ // 0x1f48 @0xe
0x1f3a…1f5e at0011 = ╱f1╱ : ╱ // 0x1f4b @0x11
0x1f3a…1f5e at0012 = ╱49╱I╱ // 0x1f4c @0x12
0x1f3a…1f5e at0013 = ╱5f╱_╱ // 0x1f4d @0x13
0x1f3a…1f5e at0014 = ╱48╱H╱ // 0x1f4e @0x14
0x1f3a…1f5e at0015 = ╱5c╱\╱ // 0x1f4f @0x15
0x1f3a…1f5e at0016 = ╱4a╱J╱ // 0x1f50 @0x16
0x1f3a…1f5e at0017 = ╱52╱R╱ // 0x1f51 @0x17
0x1f3a…1f5e at0018 = ╱45╱E╱ // 0x1f52 @0x18
0x1f3a…1f5e at0019 = ╱43╱C╱ // 0x1f53 @0x19
0x1f3a…1f5e at001a = ╱ec╱ , ╱ // 0x1f54 @0x1a
0x1f3a…1f5e at001b = ╱49╱I╱ // 0x1f55 @0x1b
0x1f3a…1f5e at001c = ╱5f╱_╱ // 0x1f56 @0x1c
0x1f3a…1f5e at001d = ╱4d╱M╱ // 0x1f57 @0x1d
0x1f3a…1f5e at001e = ╱41╱A╱ // 0x1f58 @0x1e
0x1f3a…1f5e at001f = ╱58╱X╱ // 0x1f59 @0x1f
0x1f3a…1f5e at0020 = ╱52╱R╱ // 0x1f5a @0x20
0x1f3a…1f5e at0021 = ╱45╱E╱ // 0x1f5b @0x21
0x1f3a…1f5e at0022 = ╱43╱C╱ // 0x1f5c @0x22
0x1f3a…1f5e at0023 = EOL // 0x1f5d @0x23
0x1f3a…1f5e }
0x1f5e…1f83 b571 03260 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
0x1f5e…1f83 LineComal80 {
0x1f5e…1f83 ptr = 0xb571 // 0x1f5e @0x0
0x1f5e…1f83 lno = 0x0cbc // 0x1f60 @0x2
0x1f5e…1f83 at0004 = ╱86╱ LET ╱ // 0x1f62 @0x4
0x1f5e…1f83 at0005 = ╱4c╱L╱ // 0x1f63 @0x5
0x1f5e…1f83 at0006 = ╱4f╱O╱ // 0x1f64 @0x6
0x1f5e…1f83 at0007 = ╱57╱W╱ // 0x1f65 @0x7
0x1f5e…1f83 at0008 = ╱f0╱ := ╱ // 0x1f66 @0x8
0x1f5e…1f83 at0009 = ╱31╱1╱ // 0x1f67 @0x9
0x1f5e…1f83 at000a = ╱f20100╱ // 0x1f68 @0xa
0x1f5e…1f83 at000d = ╱ea╱ ; ╱ // 0x1f6b @0xd
0x1f5e…1f83 at000e = ╱48╱H╱ // 0x1f6c @0xe
0x1f5e…1f83 at000f = ╱49╱I╱ // 0x1f6d @0xf
0x1f5e…1f83 at0010 = ╱47╱G╱ // 0x1f6e @0x10
0x1f5e…1f83 at0011 = ╱48╱H╱ // 0x1f6f @0x11
0x1f5e…1f83 at0012 = ╱f0╱ := ╱ // 0x1f70 @0x12
0x1f5e…1f83 at0013 = ╱49╱I╱ // 0x1f71 @0x13
0x1f5e…1f83 at0014 = ╱5f╱_╱ // 0x1f72 @0x14
0x1f5e…1f83 at0015 = ╱48╱H╱ // 0x1f73 @0x15
0x1f5e…1f83 at0016 = ╱5c╱\╱ // 0x1f74 @0x16
0x1f5e…1f83 at0017 = ╱4a╱J╱ // 0x1f75 @0x17
0x1f5e…1f83 at0018 = ╱52╱R╱ // 0x1f76 @0x18
0x1f5e…1f83 at0019 = ╱45╱E╱ // 0x1f77 @0x19
0x1f5e…1f83 at001a = ╱43╱C╱ // 0x1f78 @0x1a
0x1f5e…1f83 at001b = ╱ea╱ ; ╱ // 0x1f79 @0x1b
0x1f5e…1f83 at001c = ╱50╱P╱ // 0x1f7a @0x1c
0x1f5e…1f83 at001d = ╱4f╱O╱ // 0x1f7b @0x1d
0x1f5e…1f83 at001e = ╱53╱S╱ // 0x1f7c @0x1e
0x1f5e…1f83 at001f = ╱f0╱ := ╱ // 0x1f7d @0x1f
0x1f5e…1f83 at0020 = ╱32╱2╱ // 0x1f7e @0x20
0x1f5e…1f83 at0021 = ╱f20200╱ // 0x1f7f @0x21
0x1f5e…1f83 at0024 = EOL // 0x1f82 @0x24
0x1f5e…1f83 }
0x1f83…1f94 b582 03270 IF IGH > 1 THEN
0x1f83…1f94 LineComal80 {
0x1f83…1f94 ptr = 0xb582 // 0x1f83 @0x0
0x1f83…1f94 lno = 0x0cc6 // 0x1f85 @0x2
0x1f83…1f94 at0004 = ╱9b3b48╱ IF ╱ // 0x1f87 @0x4
0x1f83…1f94 at0007 = ╱49╱I╱ // 0x1f8a @0x7
0x1f83…1f94 at0008 = ╱47╱G╱ // 0x1f8b @0x8
0x1f83…1f94 at0009 = ╱48╱H╱ // 0x1f8c @0x9
0x1f83…1f94 at000a = ╱e1╱ > ╱ // 0x1f8d @0xa
0x1f83…1f94 at000b = ╱31╱1╱ // 0x1f8e @0xb
0x1f83…1f94 at000c = ╱f20100╱ // 0x1f8f @0xc
0x1f83…1f94 at000f = ╱b5╱ THEN ╱ // 0x1f92 @0xf
0x1f83…1f94 at0010 = EOL // 0x1f93 @0x10
0x1f83…1f94 }
0x1f94…1f9b b589 03280 REPEAT
0x1f94…1f9b LineComal80 {
0x1f94…1f9b ptr = 0xb589 // 0x1f94 @0x0
0x1f94…1f9b lno = 0x0cd0 // 0x1f96 @0x2
0x1f94…1f9b at0004 = ╱973c╱ REPEAT ╱ // 0x1f98 @0x4
0x1f94…1f9b at0006 = EOL // 0x1f9a @0x6
0x1f94…1f9b }
0x1f9b…1fc7 b5b5 03290 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x1f9b…1fc7 LineComal80 {
0x1f9b…1fc7 ptr = 0xb5b5 // 0x1f9b @0x0
0x1f9b…1fc7 lno = 0x0cda // 0x1f9d @0x2
0x1f9b…1fc7 at0004 = ╱86╱ LET ╱ // 0x1f9f @0x4
0x1f9b…1fc7 at0005 = ╱50╱P╱ // 0x1fa0 @0x5
0x1f9b…1fc7 at0006 = ╱4f╱O╱ // 0x1fa1 @0x6
0x1f9b…1fc7 at0007 = ╱53╱S╱ // 0x1fa2 @0x7
0x1f9b…1fc7 at0008 = ╱f0╱ := ╱ // 0x1fa3 @0x8
0x1f9b…1fc7 at0009 = ╱c6╱ INT ╱ // 0x1fa4 @0x9
0x1f9b…1fc7 at000a = ╱ed╱ ( ╱ // 0x1fa5 @0xa
0x1f9b…1fc7 at000b = ╱ed╱ ( ╱ // 0x1fa6 @0xb
0x1f9b…1fc7 at000c = ╱48╱H╱ // 0x1fa7 @0xc
0x1f9b…1fc7 at000d = ╱49╱I╱ // 0x1fa8 @0xd
0x1f9b…1fc7 at000e = ╱47╱G╱ // 0x1fa9 @0xe
0x1f9b…1fc7 at000f = ╱48╱H╱ // 0x1faa @0xf
0x1f9b…1fc7 at0010 = ╱e6╱ - ╱ // 0x1fab @0x10
0x1f9b…1fc7 at0011 = ╱4c╱L╱ // 0x1fac @0x11
0x1f9b…1fc7 at0012 = ╱4f╱O╱ // 0x1fad @0x12
0x1f9b…1fc7 at0013 = ╱57╱W╱ // 0x1fae @0x13
0x1f9b…1fc7 at0014 = ╱ee╱ ) ╱ // 0x1faf @0x14
0x1f9b…1fc7 at0015 = ╱e8╱ / ╱ // 0x1fb0 @0x15
0x1f9b…1fc7 at0016 = ╱32╱2╱ // 0x1fb1 @0x16
0x1f9b…1fc7 at0017 = ╱f20200╱ // 0x1fb2 @0x17
0x1f9b…1fc7 at001a = ╱e5╱ + ╱ // 0x1fb5 @0x1a
0x1f9b…1fc7 at001b = ╱2e╱.╱ // 0x1fb6 @0x1b
0x1f9b…1fc7 at001c = ╱35╱5╱ // 0x1fb7 @0x1c
0x1f9b…1fc7 at001d = ╱f88000000000000005╱ // 0x1fb8 @0x1d
0x1f9b…1fc7 at0026 = ╱ee╱ ) ╱ // 0x1fc1 @0x26
0x1f9b…1fc7 at0027 = ╱e5╱ + ╱ // 0x1fc2 @0x27
0x1f9b…1fc7 at0028 = ╱4c╱L╱ // 0x1fc3 @0x28
0x1f9b…1fc7 at0029 = ╱4f╱O╱ // 0x1fc4 @0x29
0x1f9b…1fc7 at002a = ╱57╱W╱ // 0x1fc5 @0x2a
0x1f9b…1fc7 at002b = EOL // 0x1fc6 @0x2b
0x1f9b…1fc7 }
0x1fc7…1fe5 b5d3 03300 GET KTOIDX $ , POS : KTONR $ , RECNR
0x1fc7…1fe5 LineComal80 {
0x1fc7…1fe5 ptr = 0xb5d3 // 0x1fc7 @0x0
0x1fc7…1fe5 lno = 0x0ce4 // 0x1fc9 @0x2
0x1fc7…1fe5 at0004 = ╱a9╱ GET ╱ // 0x1fcb @0x4
0x1fc7…1fe5 at0005 = ╱4b╱K╱ // 0x1fcc @0x5
0x1fc7…1fe5 at0006 = ╱54╱T╱ // 0x1fcd @0x6
0x1fc7…1fe5 at0007 = ╱4f╱O╱ // 0x1fce @0x7
0x1fc7…1fe5 at0008 = ╱49╱I╱ // 0x1fcf @0x8
0x1fc7…1fe5 at0009 = ╱44╱D╱ // 0x1fd0 @0x9
0x1fc7…1fe5 at000a = ╱58╱X╱ // 0x1fd1 @0xa
0x1fc7…1fe5 at000b = ╱ef╱ $ ╱ // 0x1fd2 @0xb
0x1fc7…1fe5 at000c = ╱ec╱ , ╱ // 0x1fd3 @0xc
0x1fc7…1fe5 at000d = ╱50╱P╱ // 0x1fd4 @0xd
0x1fc7…1fe5 at000e = ╱4f╱O╱ // 0x1fd5 @0xe
0x1fc7…1fe5 at000f = ╱53╱S╱ // 0x1fd6 @0xf
0x1fc7…1fe5 at0010 = ╱f1╱ : ╱ // 0x1fd7 @0x10
0x1fc7…1fe5 at0011 = ╱4b╱K╱ // 0x1fd8 @0x11
0x1fc7…1fe5 at0012 = ╱54╱T╱ // 0x1fd9 @0x12
0x1fc7…1fe5 at0013 = ╱4f╱O╱ // 0x1fda @0x13
0x1fc7…1fe5 at0014 = ╱4e╱N╱ // 0x1fdb @0x14
0x1fc7…1fe5 at0015 = ╱52╱R╱ // 0x1fdc @0x15
0x1fc7…1fe5 at0016 = ╱ef╱ $ ╱ // 0x1fdd @0x16
0x1fc7…1fe5 at0017 = ╱ec╱ , ╱ // 0x1fde @0x17
0x1fc7…1fe5 at0018 = ╱52╱R╱ // 0x1fdf @0x18
0x1fc7…1fe5 at0019 = ╱45╱E╱ // 0x1fe0 @0x19
0x1fc7…1fe5 at001a = ╱43╱C╱ // 0x1fe1 @0x1a
0x1fc7…1fe5 at001b = ╱4e╱N╱ // 0x1fe2 @0x1b
0x1fc7…1fe5 at001c = ╱52╱R╱ // 0x1fe3 @0x1c
0x1fc7…1fe5 at001d = EOL // 0x1fe4 @0x1d
0x1fc7…1fe5 }
0x1fe5…1ffc b5ea 03310 IF TONR $ > R_KTONR $ THEN
0x1fe5…1ffc LineComal80 {
0x1fe5…1ffc ptr = 0xb5ea // 0x1fe5 @0x0
0x1fe5…1ffc lno = 0x0cee // 0x1fe7 @0x2
0x1fe5…1ffc at0004 = ╱9b3d4b╱ IF ╱ // 0x1fe9 @0x4
0x1fe5…1ffc at0007 = ╱54╱T╱ // 0x1fec @0x7
0x1fe5…1ffc at0008 = ╱4f╱O╱ // 0x1fed @0x8
0x1fe5…1ffc at0009 = ╱4e╱N╱ // 0x1fee @0x9
0x1fe5…1ffc at000a = ╱52╱R╱ // 0x1fef @0xa
0x1fe5…1ffc at000b = ╱ef╱ $ ╱ // 0x1ff0 @0xb
0x1fe5…1ffc at000c = ╱e1╱ > ╱ // 0x1ff1 @0xc
0x1fe5…1ffc at000d = ╱52╱R╱ // 0x1ff2 @0xd
0x1fe5…1ffc at000e = ╱5f╱_╱ // 0x1ff3 @0xe
0x1fe5…1ffc at000f = ╱4b╱K╱ // 0x1ff4 @0xf
0x1fe5…1ffc at0010 = ╱54╱T╱ // 0x1ff5 @0x10
0x1fe5…1ffc at0011 = ╱4f╱O╱ // 0x1ff6 @0x11
0x1fe5…1ffc at0012 = ╱4e╱N╱ // 0x1ff7 @0x12
0x1fe5…1ffc at0013 = ╱52╱R╱ // 0x1ff8 @0x13
0x1fe5…1ffc at0014 = ╱ef╱ $ ╱ // 0x1ff9 @0x14
0x1fe5…1ffc at0015 = ╱b5╱ THEN ╱ // 0x1ffa @0x15
0x1fe5…1ffc at0016 = EOL // 0x1ffb @0x16
0x1fe5…1ffc }
0x1ffc…200a b5f8 03320 LET HIGH := POS
0x1ffc…200a LineComal80 {
0x1ffc…200a ptr = 0xb5f8 // 0x1ffc @0x0
0x1ffc…200a lno = 0x0cf8 // 0x1ffe @0x2
0x1ffc…200a at0004 = ╱86╱ LET ╱ // 0x2000 @0x4
0x1ffc…200a at0005 = ╱48╱H╱ // 0x2001 @0x5
0x1ffc…200a at0006 = ╱49╱I╱ // 0x2002 @0x6
0x1ffc…200a at0007 = ╱47╱G╱ // 0x2003 @0x7
0x1ffc…200a at0008 = ╱48╱H╱ // 0x2004 @0x8
0x1ffc…200a at0009 = ╱f0╱ := ╱ // 0x2005 @0x9
0x1ffc…200a at000a = ╱50╱P╱ // 0x2006 @0xa
0x1ffc…200a at000b = ╱4f╱O╱ // 0x2007 @0xb
0x1ffc…200a at000c = ╱53╱S╱ // 0x2008 @0xc
0x1ffc…200a at000d = EOL // 0x2009 @0xd
0x1ffc…200a }
0x200a…2011 b5ff 03330 ELSE
0x200a…2011 LineComal80 {
0x200a…2011 ptr = 0xb5ff // 0x200a @0x0
0x200a…2011 lno = 0x0d02 // 0x200c @0x2
0x200a…2011 at0004 = ╱9a3e╱ ELSE ╱ // 0x200e @0x4
0x200a…2011 at0006 = EOL // 0x2010 @0x6
0x200a…2011 }
0x2011…2028 b616 03340 IF TONR $ < R_KTONR $ THEN
0x2011…2028 LineComal80 {
0x2011…2028 ptr = 0xb616 // 0x2011 @0x0
0x2011…2028 lno = 0x0d0c // 0x2013 @0x2
0x2011…2028 at0004 = ╱9b3f4b╱ IF ╱ // 0x2015 @0x4
0x2011…2028 at0007 = ╱54╱T╱ // 0x2018 @0x7
0x2011…2028 at0008 = ╱4f╱O╱ // 0x2019 @0x8
0x2011…2028 at0009 = ╱4e╱N╱ // 0x201a @0x9
0x2011…2028 at000a = ╱52╱R╱ // 0x201b @0xa
0x2011…2028 at000b = ╱ef╱ $ ╱ // 0x201c @0xb
0x2011…2028 at000c = ╱e0╱ < ╱ // 0x201d @0xc
0x2011…2028 at000d = ╱52╱R╱ // 0x201e @0xd
0x2011…2028 at000e = ╱5f╱_╱ // 0x201f @0xe
0x2011…2028 at000f = ╱4b╱K╱ // 0x2020 @0xf
0x2011…2028 at0010 = ╱54╱T╱ // 0x2021 @0x10
0x2011…2028 at0011 = ╱4f╱O╱ // 0x2022 @0x11
0x2011…2028 at0012 = ╱4e╱N╱ // 0x2023 @0x12
0x2011…2028 at0013 = ╱52╱R╱ // 0x2024 @0x13
0x2011…2028 at0014 = ╱ef╱ $ ╱ // 0x2025 @0x14
0x2011…2028 at0015 = ╱b5╱ THEN ╱ // 0x2026 @0x15
0x2011…2028 at0016 = EOL // 0x2027 @0x16
0x2011…2028 }
0x2028…2035 b623 03350 LET LOW := POS
0x2028…2035 LineComal80 {
0x2028…2035 ptr = 0xb623 // 0x2028 @0x0
0x2028…2035 lno = 0x0d16 // 0x202a @0x2
0x2028…2035 at0004 = ╱86╱ LET ╱ // 0x202c @0x4
0x2028…2035 at0005 = ╱4c╱L╱ // 0x202d @0x5
0x2028…2035 at0006 = ╱4f╱O╱ // 0x202e @0x6
0x2028…2035 at0007 = ╱57╱W╱ // 0x202f @0x7
0x2028…2035 at0008 = ╱f0╱ := ╱ // 0x2030 @0x8
0x2028…2035 at0009 = ╱50╱P╱ // 0x2031 @0x9
0x2028…2035 at000a = ╱4f╱O╱ // 0x2032 @0xa
0x2028…2035 at000b = ╱53╱S╱ // 0x2033 @0xb
0x2028…2035 at000c = EOL // 0x2034 @0xc
0x2028…2035 }
0x2035…203b b629 03360 ENDIF
0x2035…203b LineComal80 {
0x2035…203b ptr = 0xb629 // 0x2035 @0x0
0x2035…203b lno = 0x0d20 // 0x2037 @0x2
0x2035…203b at0004 = ╱9c╱ ENDIF ╱ // 0x2039 @0x4
0x2035…203b at0005 = EOL // 0x203a @0x5
0x2035…203b }
0x203b…2041 b62f 03370 ENDIF
0x203b…2041 LineComal80 {
0x203b…2041 ptr = 0xb62f // 0x203b @0x0
0x203b…2041 lno = 0x0d2a // 0x203d @0x2
0x203b…2041 at0004 = ╱9c╱ ENDIF ╱ // 0x203f @0x4
0x203b…2041 at0005 = EOL // 0x2040 @0x5
0x203b…2041 }
0x2041…2064 b652 03380 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
0x2041…2064 LineComal80 {
0x2041…2064 ptr = 0xb652 // 0x2041 @0x0
0x2041…2064 lno = 0x0d34 // 0x2043 @0x2
0x2041…2064 at0004 = ╱98╱ UNTIL ╱ // 0x2045 @0x4
0x2041…2064 at0005 = ╱48╱H╱ // 0x2046 @0x5
0x2041…2064 at0006 = ╱49╱I╱ // 0x2047 @0x6
0x2041…2064 at0007 = ╱47╱G╱ // 0x2048 @0x7
0x2041…2064 at0008 = ╱48╱H╱ // 0x2049 @0x8
0x2041…2064 at0009 = ╱e6╱ - ╱ // 0x204a @0x9
0x2041…2064 at000a = ╱4c╱L╱ // 0x204b @0xa
0x2041…2064 at000b = ╱4f╱O╱ // 0x204c @0xb
0x2041…2064 at000c = ╱57╱W╱ // 0x204d @0xc
0x2041…2064 at000d = ╱e2╱ =< ╱ // 0x204e @0xd
0x2041…2064 at000e = ╱31╱1╱ // 0x204f @0xe
0x2041…2064 at000f = ╱f20100╱ // 0x2050 @0xf
0x2041…2064 at0012 = ╱d8╱ OR ╱ // 0x2053 @0x12
0x2041…2064 at0013 = ╱52╱R╱ // 0x2054 @0x13
0x2041…2064 at0014 = ╱5f╱_╱ // 0x2055 @0x14
0x2041…2064 at0015 = ╱4b╱K╱ // 0x2056 @0x15
0x2041…2064 at0016 = ╱54╱T╱ // 0x2057 @0x16
0x2041…2064 at0017 = ╱4f╱O╱ // 0x2058 @0x17
0x2041…2064 at0018 = ╱4e╱N╱ // 0x2059 @0x18
0x2041…2064 at0019 = ╱52╱R╱ // 0x205a @0x19
0x2041…2064 at001a = ╱ef╱ $ ╱ // 0x205b @0x1a
0x2041…2064 at001b = ╱df╱ = ╱ // 0x205c @0x1b
0x2041…2064 at001c = ╱4b╱K╱ // 0x205d @0x1c
0x2041…2064 at001d = ╱54╱T╱ // 0x205e @0x1d
0x2041…2064 at001e = ╱4f╱O╱ // 0x205f @0x1e
0x2041…2064 at001f = ╱4e╱N╱ // 0x2060 @0x1f
0x2041…2064 at0020 = ╱52╱R╱ // 0x2061 @0x20
0x2041…2064 at0021 = ╱ef╱ $ ╱ // 0x2062 @0x21
0x2041…2064 at0022 = EOL // 0x2063 @0x22
0x2041…2064 }
0x2064…2090 b67e 03390 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x2064…2090 LineComal80 {
0x2064…2090 ptr = 0xb67e // 0x2064 @0x0
0x2064…2090 lno = 0x0d3e // 0x2066 @0x2
0x2064…2090 at0004 = ╱86╱ LET ╱ // 0x2068 @0x4
0x2064…2090 at0005 = ╱50╱P╱ // 0x2069 @0x5
0x2064…2090 at0006 = ╱4f╱O╱ // 0x206a @0x6
0x2064…2090 at0007 = ╱53╱S╱ // 0x206b @0x7
0x2064…2090 at0008 = ╱f0╱ := ╱ // 0x206c @0x8
0x2064…2090 at0009 = ╱c6╱ INT ╱ // 0x206d @0x9
0x2064…2090 at000a = ╱ed╱ ( ╱ // 0x206e @0xa
0x2064…2090 at000b = ╱ed╱ ( ╱ // 0x206f @0xb
0x2064…2090 at000c = ╱48╱H╱ // 0x2070 @0xc
0x2064…2090 at000d = ╱49╱I╱ // 0x2071 @0xd
0x2064…2090 at000e = ╱47╱G╱ // 0x2072 @0xe
0x2064…2090 at000f = ╱48╱H╱ // 0x2073 @0xf
0x2064…2090 at0010 = ╱e6╱ - ╱ // 0x2074 @0x10
0x2064…2090 at0011 = ╱4c╱L╱ // 0x2075 @0x11
0x2064…2090 at0012 = ╱4f╱O╱ // 0x2076 @0x12
0x2064…2090 at0013 = ╱57╱W╱ // 0x2077 @0x13
0x2064…2090 at0014 = ╱ee╱ ) ╱ // 0x2078 @0x14
0x2064…2090 at0015 = ╱e8╱ / ╱ // 0x2079 @0x15
0x2064…2090 at0016 = ╱32╱2╱ // 0x207a @0x16
0x2064…2090 at0017 = ╱f20200╱ // 0x207b @0x17
0x2064…2090 at001a = ╱e5╱ + ╱ // 0x207e @0x1a
0x2064…2090 at001b = ╱2e╱.╱ // 0x207f @0x1b
0x2064…2090 at001c = ╱35╱5╱ // 0x2080 @0x1c
0x2064…2090 at001d = ╱f88000000000000005╱ // 0x2081 @0x1d
0x2064…2090 at0026 = ╱ee╱ ) ╱ // 0x208a @0x26
0x2064…2090 at0027 = ╱e5╱ + ╱ // 0x208b @0x27
0x2064…2090 at0028 = ╱4c╱L╱ // 0x208c @0x28
0x2064…2090 at0029 = ╱4f╱O╱ // 0x208d @0x29
0x2064…2090 at002a = ╱57╱W╱ // 0x208e @0x2a
0x2064…2090 at002b = EOL // 0x208f @0x2b
0x2064…2090 }
0x2090…20ae b69c 03400 GET KTOIDX $ , POS : KTONR $ , RECNR
0x2090…20ae LineComal80 {
0x2090…20ae ptr = 0xb69c // 0x2090 @0x0
0x2090…20ae lno = 0x0d48 // 0x2092 @0x2
0x2090…20ae at0004 = ╱a9╱ GET ╱ // 0x2094 @0x4
0x2090…20ae at0005 = ╱4b╱K╱ // 0x2095 @0x5
0x2090…20ae at0006 = ╱54╱T╱ // 0x2096 @0x6
0x2090…20ae at0007 = ╱4f╱O╱ // 0x2097 @0x7
0x2090…20ae at0008 = ╱49╱I╱ // 0x2098 @0x8
0x2090…20ae at0009 = ╱44╱D╱ // 0x2099 @0x9
0x2090…20ae at000a = ╱58╱X╱ // 0x209a @0xa
0x2090…20ae at000b = ╱ef╱ $ ╱ // 0x209b @0xb
0x2090…20ae at000c = ╱ec╱ , ╱ // 0x209c @0xc
0x2090…20ae at000d = ╱50╱P╱ // 0x209d @0xd
0x2090…20ae at000e = ╱4f╱O╱ // 0x209e @0xe
0x2090…20ae at000f = ╱53╱S╱ // 0x209f @0xf
0x2090…20ae at0010 = ╱f1╱ : ╱ // 0x20a0 @0x10
0x2090…20ae at0011 = ╱4b╱K╱ // 0x20a1 @0x11
0x2090…20ae at0012 = ╱54╱T╱ // 0x20a2 @0x12
0x2090…20ae at0013 = ╱4f╱O╱ // 0x20a3 @0x13
0x2090…20ae at0014 = ╱4e╱N╱ // 0x20a4 @0x14
0x2090…20ae at0015 = ╱52╱R╱ // 0x20a5 @0x15
0x2090…20ae at0016 = ╱ef╱ $ ╱ // 0x20a6 @0x16
0x2090…20ae at0017 = ╱ec╱ , ╱ // 0x20a7 @0x17
0x2090…20ae at0018 = ╱52╱R╱ // 0x20a8 @0x18
0x2090…20ae at0019 = ╱45╱E╱ // 0x20a9 @0x19
0x2090…20ae at001a = ╱43╱C╱ // 0x20aa @0x1a
0x2090…20ae at001b = ╱4e╱N╱ // 0x20ab @0x1b
0x2090…20ae at001c = ╱52╱R╱ // 0x20ac @0x1c
0x2090…20ae at001d = EOL // 0x20ad @0x1d
0x2090…20ae }
0x20ae…20cd b6bb 03410 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
0x20ae…20cd LineComal80 {
0x20ae…20cd ptr = 0xb6bb // 0x20ae @0x0
0x20ae…20cd lno = 0x0d52 // 0x20b0 @0x2
0x20ae…20cd at0004 = ╱8200╱ IF ╱ // 0x20b2 @0x4
0x20ae…20cd at0006 = ╱4b╱K╱ // 0x20b4 @0x6
0x20ae…20cd at0007 = ╱54╱T╱ // 0x20b5 @0x7
0x20ae…20cd at0008 = ╱4f╱O╱ // 0x20b6 @0x8
0x20ae…20cd at0009 = ╱4e╱N╱ // 0x20b7 @0x9
0x20ae…20cd at000a = ╱52╱R╱ // 0x20b8 @0xa
0x20ae…20cd at000b = ╱ef╱ $ ╱ // 0x20b9 @0xb
0x20ae…20cd at000c = ╱df╱ = ╱ // 0x20ba @0xc
0x20ae…20cd at000d = ╱52╱R╱ // 0x20bb @0xd
0x20ae…20cd at000e = ╱5f╱_╱ // 0x20bc @0xe
0x20ae…20cd at000f = ╱4b╱K╱ // 0x20bd @0xf
0x20ae…20cd at0010 = ╱54╱T╱ // 0x20be @0x10
0x20ae…20cd at0011 = ╱4f╱O╱ // 0x20bf @0x11
0x20ae…20cd at0012 = ╱4e╱N╱ // 0x20c0 @0x12
0x20ae…20cd at0013 = ╱52╱R╱ // 0x20c1 @0x13
0x20ae…20cd at0014 = ╱ef╱ $ ╱ // 0x20c2 @0x14
0x20ae…20cd at0015 = ╱b5╱ THEN ╱ // 0x20c3 @0x15
0x20ae…20cd at0016 = ╱86╱ LET ╱ // 0x20c4 @0x16
0x20ae…20cd at0017 = ╱4f╱O╱ // 0x20c5 @0x17
0x20ae…20cd at0018 = ╱4b╱K╱ // 0x20c6 @0x18
0x20ae…20cd at0019 = ╱f0╱ := ╱ // 0x20c7 @0x19
0x20ae…20cd at001a = ╱54╱T╱ // 0x20c8 @0x1a
0x20ae…20cd at001b = ╱52╱R╱ // 0x20c9 @0x1b
0x20ae…20cd at001c = ╱55╱U╱ // 0x20ca @0x1c
0x20ae…20cd at001d = ╱45╱E╱ // 0x20cb @0x1d
0x20ae…20cd at001e = EOL // 0x20cc @0x1e
0x20ae…20cd }
0x20cd…20fe b6ec 03420 IF KTONR $ < R_KTONR $ AND POS = I_H\JREC THEN LET POS := POS + 1
0x20cd…20fe LineComal80 {
0x20cd…20fe ptr = 0xb6ec // 0x20cd @0x0
0x20cd…20fe lno = 0x0d5c // 0x20cf @0x2
0x20cd…20fe at0004 = ╱8200╱ IF ╱ // 0x20d1 @0x4
0x20cd…20fe at0006 = ╱4b╱K╱ // 0x20d3 @0x6
0x20cd…20fe at0007 = ╱54╱T╱ // 0x20d4 @0x7
0x20cd…20fe at0008 = ╱4f╱O╱ // 0x20d5 @0x8
0x20cd…20fe at0009 = ╱4e╱N╱ // 0x20d6 @0x9
0x20cd…20fe at000a = ╱52╱R╱ // 0x20d7 @0xa
0x20cd…20fe at000b = ╱ef╱ $ ╱ // 0x20d8 @0xb
0x20cd…20fe at000c = ╱e0╱ < ╱ // 0x20d9 @0xc
0x20cd…20fe at000d = ╱52╱R╱ // 0x20da @0xd
0x20cd…20fe at000e = ╱5f╱_╱ // 0x20db @0xe
0x20cd…20fe at000f = ╱4b╱K╱ // 0x20dc @0xf
0x20cd…20fe at0010 = ╱54╱T╱ // 0x20dd @0x10
0x20cd…20fe at0011 = ╱4f╱O╱ // 0x20de @0x11
0x20cd…20fe at0012 = ╱4e╱N╱ // 0x20df @0x12
0x20cd…20fe at0013 = ╱52╱R╱ // 0x20e0 @0x13
0x20cd…20fe at0014 = ╱ef╱ $ ╱ // 0x20e1 @0x14
0x20cd…20fe at0015 = ╱d9╱ AND ╱ // 0x20e2 @0x15
0x20cd…20fe at0016 = ╱50╱P╱ // 0x20e3 @0x16
0x20cd…20fe at0017 = ╱4f╱O╱ // 0x20e4 @0x17
0x20cd…20fe at0018 = ╱53╱S╱ // 0x20e5 @0x18
0x20cd…20fe at0019 = ╱df╱ = ╱ // 0x20e6 @0x19
0x20cd…20fe at001a = ╱49╱I╱ // 0x20e7 @0x1a
0x20cd…20fe at001b = ╱5f╱_╱ // 0x20e8 @0x1b
0x20cd…20fe at001c = ╱48╱H╱ // 0x20e9 @0x1c
0x20cd…20fe at001d = ╱5c╱\╱ // 0x20ea @0x1d
0x20cd…20fe at001e = ╱4a╱J╱ // 0x20eb @0x1e
0x20cd…20fe at001f = ╱52╱R╱ // 0x20ec @0x1f
0x20cd…20fe at0020 = ╱45╱E╱ // 0x20ed @0x20
0x20cd…20fe at0021 = ╱43╱C╱ // 0x20ee @0x21
0x20cd…20fe at0022 = ╱b5╱ THEN ╱ // 0x20ef @0x22
0x20cd…20fe at0023 = ╱86╱ LET ╱ // 0x20f0 @0x23
0x20cd…20fe at0024 = ╱50╱P╱ // 0x20f1 @0x24
0x20cd…20fe at0025 = ╱4f╱O╱ // 0x20f2 @0x25
0x20cd…20fe at0026 = ╱53╱S╱ // 0x20f3 @0x26
0x20cd…20fe at0027 = ╱f0╱ := ╱ // 0x20f4 @0x27
0x20cd…20fe at0028 = ╱50╱P╱ // 0x20f5 @0x28
0x20cd…20fe at0029 = ╱4f╱O╱ // 0x20f6 @0x29
0x20cd…20fe at002a = ╱53╱S╱ // 0x20f7 @0x2a
0x20cd…20fe at002b = ╱e5╱ + ╱ // 0x20f8 @0x2b
0x20cd…20fe at002c = ╱31╱1╱ // 0x20f9 @0x2c
0x20cd…20fe at002d = ╱f20100╱ // 0x20fa @0x2d
0x20cd…20fe at0030 = EOL // 0x20fd @0x30
0x20cd…20fe }
0x20fe…2104 b6f2 03430 ENDIF
0x20fe…2104 LineComal80 {
0x20fe…2104 ptr = 0xb6f2 // 0x20fe @0x0
0x20fe…2104 lno = 0x0d66 // 0x2100 @0x2
0x20fe…2104 at0004 = ╱9c╱ ENDIF ╱ // 0x2102 @0x4
0x20fe…2104 at0005 = EOL // 0x2103 @0x5
0x20fe…2104 }
0x2104…2116 b704 03440 LET FIND_KTO := POS
0x2104…2116 LineComal80 {
0x2104…2116 ptr = 0xb704 // 0x2104 @0x0
0x2104…2116 lno = 0x0d70 // 0x2106 @0x2
0x2104…2116 at0004 = ╱86╱ LET ╱ // 0x2108 @0x4
0x2104…2116 at0005 = ╱46╱F╱ // 0x2109 @0x5
0x2104…2116 at0006 = ╱49╱I╱ // 0x210a @0x6
0x2104…2116 at0007 = ╱4e╱N╱ // 0x210b @0x7
0x2104…2116 at0008 = ╱44╱D╱ // 0x210c @0x8
0x2104…2116 at0009 = ╱5f╱_╱ // 0x210d @0x9
0x2104…2116 at000a = ╱4b╱K╱ // 0x210e @0xa
0x2104…2116 at000b = ╱54╱T╱ // 0x210f @0xb
0x2104…2116 at000c = ╱4f╱O╱ // 0x2110 @0xc
0x2104…2116 at000d = ╱f0╱ := ╱ // 0x2111 @0xd
0x2104…2116 at000e = ╱50╱P╱ // 0x2112 @0xe
0x2104…2116 at000f = ╱4f╱O╱ // 0x2113 @0xf
0x2104…2116 at0010 = ╱53╱S╱ // 0x2114 @0x10
0x2104…2116 at0011 = EOL // 0x2115 @0x11
0x2104…2116 }
0x2116…2124 (110,) 0000 03450 ENDPROC FIND_KTO
0x2116…2124 LineComal80 {
0x2116…2124 ptr = 0x0000 // 0x2116 @0x0
0x2116…2124 lno = 0x0d7a // 0x2118 @0x2
0x2116…2124 at0004 = ╱9f╱ ENDPROC ╱ // 0x211a @0x4
0x2116…2124 at0005 = ╱46╱F╱ // 0x211b @0x5
0x2116…2124 at0006 = ╱49╱I╱ // 0x211c @0x6
0x2116…2124 at0007 = ╱4e╱N╱ // 0x211d @0x7
0x2116…2124 at0008 = ╱44╱D╱ // 0x211e @0x8
0x2116…2124 at0009 = ╱5f╱_╱ // 0x211f @0x9
0x2116…2124 at000a = ╱4b╱K╱ // 0x2120 @0xa
0x2116…2124 at000b = ╱54╱T╱ // 0x2121 @0xb
0x2116…2124 at000c = ╱4f╱O╱ // 0x2122 @0xc
0x2116…2124 at000d = EOL // 0x2123 @0xd
0x2116…2124 }
0x2124…2137 a5f3 01600 FOR I := 1 TO DO
0x2124…2137 LineComal80 {
0x2124…2137 ptr = 0xa5f3 // 0x2124 @0x0
0x2124…2137 lno = 0x0640 // 0x2126 @0x2
0x2124…2137 at0004 = ╱8300╱ FOR ╱ // 0x2128 @0x4
0x2124…2137 at0006 = ╱49╱I╱ // 0x212a @0x6
0x2124…2137 at0007 = ╱f0╱ := ╱ // 0x212b @0x7
0x2124…2137 at0008 = ╱31╱1╱ // 0x212c @0x8
0x2124…2137 at0009 = ╱f20100╱ // 0x212d @0x9
0x2124…2137 at000c = ╱b732╱ TO ╱ // 0x2130 @0xc
0x2124…2137 at000e = ╱f20200╱ // 0x2132 @0xe
0x2124…2137 at0011 = ╱bb╱ DO ╱ // 0x2135 @0x11
0x2124…2137 at0012 = EOL // 0x2136 @0x12
0x2124…2137 }
0x2137…2145 a6f9 01720 CHAIN PROGRAM $
0x2137…2145 LineComal80 {
0x2137…2145 ptr = 0xa6f9 // 0x2137 @0x0
0x2137…2145 lno = 0x06b8 // 0x2139 @0x2
0x2137…2145 at0004 = ╱ac╱ CHAIN ╱ // 0x213b @0x4
0x2137…2145 at0005 = ╱50╱P╱ // 0x213c @0x5
0x2137…2145 at0006 = ╱52╱R╱ // 0x213d @0x6
0x2137…2145 at0007 = ╱4f╱O╱ // 0x213e @0x7
0x2137…2145 at0008 = ╱47╱G╱ // 0x213f @0x8
0x2137…2145 at0009 = ╱52╱R╱ // 0x2140 @0x9
0x2137…2145 at000a = ╱41╱A╱ // 0x2141 @0xa
0x2137…2145 at000b = ╱4d╱M╱ // 0x2142 @0xb
0x2137…2145 at000c = ╱ef╱ $ ╱ // 0x2143 @0xc
0x2137…2145 at000d = EOL // 0x2144 @0xd
0x2137…2145 }
0x2145…215a ac78 02170 LET A_KTO_TYPE $ := "A"
0x2145…215a LineComal80 {
0x2145…215a ptr = 0xac78 // 0x2145 @0x0
0x2145…215a lno = 0x087a // 0x2147 @0x2
0x2145…215a at0004 = ╱86╱ LET ╱ // 0x2149 @0x4
0x2145…215a at0005 = ╱41╱A╱ // 0x214a @0x5
0x2145…215a at0006 = ╱5f╱_╱ // 0x214b @0x6
0x2145…215a at0007 = ╱4b╱K╱ // 0x214c @0x7
0x2145…215a at0008 = ╱54╱T╱ // 0x214d @0x8
0x2145…215a at0009 = ╱4f╱O╱ // 0x214e @0x9
0x2145…215a at000a = ╱5f╱_╱ // 0x214f @0xa
0x2145…215a at000b = ╱54╱T╱ // 0x2150 @0xb
0x2145…215a at000c = ╱59╱Y╱ // 0x2151 @0xc
0x2145…215a at000d = ╱50╱P╱ // 0x2152 @0xd
0x2145…215a at000e = ╱45╱E╱ // 0x2153 @0xe
0x2145…215a at000f = ╱ef╱ $ ╱ // 0x2154 @0xf
0x2145…215a at0010 = ╱f0╱ := ╱ // 0x2155 @0x10
0x2145…215a at0011 = ╱22╱"╱ // 0x2156 @0x11
0x2145…215a at0012 = ╱41╱A╱ // 0x2157 @0x12
0x2145…215a at0013 = ╱22╱"╱ // 0x2158 @0x13
0x2145…215a at0014 = EOL // 0x2159 @0x14
0x2145…215a }
0x215a…216d a5f3 01600 FOR I := 1 TO DO
0x215a…216d LineComal80 {
0x215a…216d ptr = 0xa5f3 // 0x215a @0x0
0x215a…216d lno = 0x0640 // 0x215c @0x2
0x215a…216d at0004 = ╱8318╱ FOR ╱ // 0x215e @0x4
0x215a…216d at0006 = ╱49╱I╱ // 0x2160 @0x6
0x215a…216d at0007 = ╱f0╱ := ╱ // 0x2161 @0x7
0x215a…216d at0008 = ╱31╱1╱ // 0x2162 @0x8
0x215a…216d at0009 = ╱f20100╱ // 0x2163 @0x9
0x215a…216d at000c = ╱b733╱ TO ╱ // 0x2166 @0xc
0x215a…216d at000e = ╱f20300╱ // 0x2168 @0xe
0x215a…216d at0011 = ╱bb╱ DO ╱ // 0x216b @0x11
0x215a…216d at0012 = EOL // 0x216c @0x12
0x215a…216d }
0x216d…2173 (112,) 95ee 38382 ╱00╱ ╱00╱
0x216d…2173 LineComal80 {
0x216d…2173 ptr = 0x95ee // 0x216d @0x0
0x216d…2173 lno = 0x95ee // 0x216f @0x2
0x216d…2173 at0004 = ╱00╱ // 0x2171 @0x4
0x216d…2173 at0005 = ╱00╱ // 0x2172 @0x5
0x216d…2173 }