|
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: 4159 (0x103f)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
Names: »SYSA«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSA«
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 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
00320 DIM PROGRAM $ OF 17
00330 REAL RESRV , PPAR
00340 INTEGER OK , TRUE , FALSE , I , J
00350 // Variable…til…filen…SYSPARA
00360 DIM SYSPARA $ OF 17
00370 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00380 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00390 // Variable…til…filen…@@PARAM
00400 DIM PARAM $ OF 17
00410 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00420 REAL MOMS
00430 ENDPROC DIMENSIONER
00440
00450 PROC INITIER
00460 LET PRGFL $ := "DP2"
00470 LET PROGRAM $ := PRGFL $ + ":SYSIP"
00480 LET SPC $ := "………………………………………………………………………………………………………………………"
00490 LET SPC $ := SPC $ + SPC $
00500 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00510 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00520 EXEC OPENFIL ( SYSPARA $ , "R" )
00530 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00540 EXEC TERMINAL_IDX
00550 CLOSE SYSPARA $
00560 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00570 EXEC OPENFIL ( PARAM $ , "R" )
00580 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00590 CLOSE PARAM $
00600 ENDPROC INITIER
00610
00620 PROC TERMINAL_IDX
00630 LET PPAR := 5 ; RESRV := 0
00640 CALL DIM "DDE:PRES"
00650 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
00660 ENDPROC TERMINAL_IDX
00670
00680 PROC OPENFIL ( FNAVN $ , WAY $ )
00690 REPEAT
00700 IF AY $ = "W" OR WAY $ = "w" THEN
00710 OPEN FNAVN $ , W
00720 ELSE
00730 OPEN FNAVN $ , R
00740 ENDIF
00750 IF ( FNAVN $ ) THEN
00760 PRINT "<SC0123>" ; CHR$ ( 7 )
00770 IF ( FNAVN $ ) = 6 THEN
00780 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
00790 INPUT "" : SVAR $
00800 ELSE
00810 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
00820 PRINT "<S>" ; FNAVN $ ; "…***"
00830 INPUT "" : SVAR $
00840 PRINT "<C0102>" ; SPC $
00850 ENDIF
00860 ENDIF
00870 UNTIL NOT ╱cd╱ ( FNAVN $ )
00880 ENDPROC OPENFIL
00890
00900 PROC OVERSKRIFT ( ST $ , L )
00910 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
00920 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
00930 PRINT SYST_DAT $ ( 5 : 2 )
00940 CURSOR 36 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
00950 PRINT "***…" ; ST $ ; "…***"
00960 ENDPROC OVERSKRIFT
00970
00980 PROC SL_FEJLLINIE
00990 LET OK := TRUE
01000 PRINT "<C0102>" ; SPC $
01010 ENDPROC SL_FEJLLINIE
01020
01030 PROC FEJL ( ST $ )
01040 LET OK := FALSE
01050 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
01060 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
01070 ENDPROC FEJL
01080
01090 PROC FUNKTIONSMENU
01100 EXEC OVERSKRIFT ( "Start…og…afslutning…af…regnskab" , 7 )
01110 PRINT "<C1810>Indtastning…af…}bningssaldi………………………………………I]"
01120 PRINT "<C1812>Afslutning…af…regnskab……………………………………………………AR"
01130 PRINT "<C1814>Fremf|rsel…af…balancetal…i…ny…regning……………FB"
01140 PRINT "<C1817>Programfordeler…………………………………………………………………RETURN"
01150 REPEAT
01160 EDIT "<C2720>Indtast…funktionskode:…" : SVAR $ ( 1 : 2 )
01170 EXEC SL_FEJLLINIE
01180 IF "/" + SVAR $ + "/" IN "/I]/i}/AR/ar/FB/fb//……/…/" THEN
01190 EXEC FEJL ( "Ulovlig…funktionskode:…'" + SVAR $ + "'" )
01200 ENDIF
01210 UNTIL OK
01220 LET PROGRAM $ := PRGFL $ + ":SYS" + SVAR $
01230 CASE SVAR $ OF
01240 WHILE "AR" , "ar"
01250 EXEC SYSTEMDATO ( "Dato…for…afslutning…af…regnskab…(]]MMDD)…" )
01260 WHILE "FB" , "fb"
01270 EXEC SYSTEMDATO ( "Dato…for…fremf|rsel…af…balancetal…(]]MMDD)…" )
01280 ENDCASE
01290 CHAIN PROGRAM $
01300 ENDPROC FUNKTIONSMENU
01310 PROC DATO_CONTROL ( REF RST $ )
01320 LET OK := TRUE
01330 IF RST $ ( 1 : 2 ) < "00" OR RST $ ( 1 : 2 ) > "99" THEN LET OK := FALSE
01340 IF RST $ ( 3 : 2 ) < "01" OR RST $ ( 3 : 2 ) > "12" THEN LET OK := FALSE
01350 IF RST $ ( 5 : 2 ) < "01" OR RST $ ( 5 : 2 ) > "31" THEN LET OK := FALSE
01360 IF NOT OK THEN EXEC FEJL ( "Ulovlig…dato" )
01370 ENDPROC DATO_CONTROL
01380 PROC SYSTEMDATO ( DATTXT $ )
01390 EXEC OVERSKRIFT ( "Indtastning…af…systemdato" , 6 )
01400 REPEAT
01410 PRINT "<SZC1212>" ; DATTXT $
01420 EDIT "" : SYST_DAT $
01430 EXEC SL_FEJLLINIE
01440 EXEC DATO_CONTROL ( SYST_DAT $ )
01450 UNTIL OK
01460 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01470 PRINT SYST_DAT $ ( 5 : 2 )
01480 EXEC OPENFIL ( PARAM $ , "W" )
01490 PUT PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
01500 CLOSE PARAM $
01510 ENDPROC SYSTEMDATO
01520
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…03ac 999a 00280 // ===========…Procedurer…starter…==============
0x0379…03ac LineComal80 {
0x0379…03ac ptr = 0x999a // 0x379 @0x0
0x0379…03ac lno = 0x0118 // 0x37b @0x2
0x0379…03ac at0004 = ╱89╱ // ╱ // 0x37d @0x4
0x0379…03ac at0005 = ╱3d╱=╱ // 0x37e @0x5
0x0379…03ac at0006 = ╱3d╱=╱ // 0x37f @0x6
0x0379…03ac at0007 = ╱3d╱=╱ // 0x380 @0x7
0x0379…03ac at0008 = ╱3d╱=╱ // 0x381 @0x8
0x0379…03ac at0009 = ╱3d╱=╱ // 0x382 @0x9
0x0379…03ac at000a = ╱3d╱=╱ // 0x383 @0xa
0x0379…03ac at000b = ╱3d╱=╱ // 0x384 @0xb
0x0379…03ac at000c = ╱3d╱=╱ // 0x385 @0xc
0x0379…03ac at000d = ╱3d╱=╱ // 0x386 @0xd
0x0379…03ac at000e = ╱3d╱=╱ // 0x387 @0xe
0x0379…03ac at000f = ╱3d╱=╱ // 0x388 @0xf
0x0379…03ac at0010 = ╱20╱…╱ // 0x389 @0x10
0x0379…03ac at0011 = ╱50╱P╱ // 0x38a @0x11
0x0379…03ac at0012 = ╱72╱r╱ // 0x38b @0x12
0x0379…03ac at0013 = ╱6f╱o╱ // 0x38c @0x13
0x0379…03ac at0014 = ╱63╱c╱ // 0x38d @0x14
0x0379…03ac at0015 = ╱65╱e╱ // 0x38e @0x15
0x0379…03ac at0016 = ╱64╱d╱ // 0x38f @0x16
0x0379…03ac at0017 = ╱75╱u╱ // 0x390 @0x17
0x0379…03ac at0018 = ╱72╱r╱ // 0x391 @0x18
0x0379…03ac at0019 = ╱65╱e╱ // 0x392 @0x19
0x0379…03ac at001a = ╱72╱r╱ // 0x393 @0x1a
0x0379…03ac at001b = ╱20╱…╱ // 0x394 @0x1b
0x0379…03ac at001c = ╱73╱s╱ // 0x395 @0x1c
0x0379…03ac at001d = ╱74╱t╱ // 0x396 @0x1d
0x0379…03ac at001e = ╱61╱a╱ // 0x397 @0x1e
0x0379…03ac at001f = ╱72╱r╱ // 0x398 @0x1f
0x0379…03ac at0020 = ╱74╱t╱ // 0x399 @0x20
0x0379…03ac at0021 = ╱65╱e╱ // 0x39a @0x21
0x0379…03ac at0022 = ╱72╱r╱ // 0x39b @0x22
0x0379…03ac at0023 = ╱20╱…╱ // 0x39c @0x23
0x0379…03ac at0024 = ╱3d╱=╱ // 0x39d @0x24
0x0379…03ac at0025 = ╱3d╱=╱ // 0x39e @0x25
0x0379…03ac at0026 = ╱3d╱=╱ // 0x39f @0x26
0x0379…03ac at0027 = ╱3d╱=╱ // 0x3a0 @0x27
0x0379…03ac at0028 = ╱3d╱=╱ // 0x3a1 @0x28
0x0379…03ac at0029 = ╱3d╱=╱ // 0x3a2 @0x29
0x0379…03ac at002a = ╱3d╱=╱ // 0x3a3 @0x2a
0x0379…03ac at002b = ╱3d╱=╱ // 0x3a4 @0x2b
0x0379…03ac at002c = ╱3d╱=╱ // 0x3a5 @0x2c
0x0379…03ac at002d = ╱3d╱=╱ // 0x3a6 @0x2d
0x0379…03ac at002e = ╱3d╱=╱ // 0x3a7 @0x2e
0x0379…03ac at002f = ╱3d╱=╱ // 0x3a8 @0x2f
0x0379…03ac at0030 = ╱3d╱=╱ // 0x3a9 @0x30
0x0379…03ac at0031 = ╱3d╱=╱ // 0x3aa @0x31
0x0379…03ac at0032 = EOL // 0x3ab @0x32
0x0379…03ac }
0x03ac…03be 99ac 00290 PROC DIMENSIONER
0x03ac…03be LineComal80 {
0x03ac…03be ptr = 0x99ac // 0x3ac @0x0
0x03ac…03be lno = 0x0122 // 0x3ae @0x2
0x03ac…03be at0004 = ╱9e00╱ PROC ╱ // 0x3b0 @0x4
0x03ac…03be at0006 = ╱44╱D╱ // 0x3b2 @0x6
0x03ac…03be at0007 = ╱49╱I╱ // 0x3b3 @0x7
0x03ac…03be at0008 = ╱4d╱M╱ // 0x3b4 @0x8
0x03ac…03be at0009 = ╱45╱E╱ // 0x3b5 @0x9
0x03ac…03be at000a = ╱4e╱N╱ // 0x3b6 @0xa
0x03ac…03be at000b = ╱53╱S╱ // 0x3b7 @0xb
0x03ac…03be at000c = ╱49╱I╱ // 0x3b8 @0xc
0x03ac…03be at000d = ╱4f╱O╱ // 0x3b9 @0xd
0x03ac…03be at000e = ╱4e╱N╱ // 0x3ba @0xe
0x03ac…03be at000f = ╱45╱E╱ // 0x3bb @0xf
0x03ac…03be at0010 = ╱52╱R╱ // 0x3bc @0x10
0x03ac…03be at0011 = EOL // 0x3bd @0x11
0x03ac…03be }
0x03be…03d5 99c3 00300 // Standard…variable
0x03be…03d5 LineComal80 {
0x03be…03d5 ptr = 0x99c3 // 0x3be @0x0
0x03be…03d5 lno = 0x012c // 0x3c0 @0x2
0x03be…03d5 at0004 = ╱89╱ // ╱ // 0x3c2 @0x4
0x03be…03d5 at0005 = ╱53╱S╱ // 0x3c3 @0x5
0x03be…03d5 at0006 = ╱74╱t╱ // 0x3c4 @0x6
0x03be…03d5 at0007 = ╱61╱a╱ // 0x3c5 @0x7
0x03be…03d5 at0008 = ╱6e╱n╱ // 0x3c6 @0x8
0x03be…03d5 at0009 = ╱64╱d╱ // 0x3c7 @0x9
0x03be…03d5 at000a = ╱61╱a╱ // 0x3c8 @0xa
0x03be…03d5 at000b = ╱72╱r╱ // 0x3c9 @0xb
0x03be…03d5 at000c = ╱64╱d╱ // 0x3ca @0xc
0x03be…03d5 at000d = ╱20╱…╱ // 0x3cb @0xd
0x03be…03d5 at000e = ╱76╱v╱ // 0x3cc @0xe
0x03be…03d5 at000f = ╱61╱a╱ // 0x3cd @0xf
0x03be…03d5 at0010 = ╱72╱r╱ // 0x3ce @0x10
0x03be…03d5 at0011 = ╱69╱i╱ // 0x3cf @0x11
0x03be…03d5 at0012 = ╱61╱a╱ // 0x3d0 @0x12
0x03be…03d5 at0013 = ╱62╱b╱ // 0x3d1 @0x13
0x03be…03d5 at0014 = ╱6c╱l╱ // 0x3d2 @0x14
0x03be…03d5 at0015 = ╱65╱e╱ // 0x3d3 @0x15
0x03be…03d5 at0016 = EOL // 0x3d4 @0x16
0x03be…03d5 }
0x03d5…0414 9a02 00310 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
0x03d5…0414 LineComal80 {
0x03d5…0414 ptr = 0x9a02 // 0x3d5 @0x0
0x03d5…0414 lno = 0x0136 // 0x3d7 @0x2
0x03d5…0414 at0004 = ╱87╱ DIM ╱ // 0x3d9 @0x4
0x03d5…0414 at0005 = ╱53╱S╱ // 0x3da @0x5
0x03d5…0414 at0006 = ╱50╱P╱ // 0x3db @0x6
0x03d5…0414 at0007 = ╱43╱C╱ // 0x3dc @0x7
0x03d5…0414 at0008 = ╱ef╱ $ ╱ // 0x3dd @0x8
0x03d5…0414 at0009 = ╱ba╱ OF ╱ // 0x3de @0x9
0x03d5…0414 at000a = ╱38╱8╱ // 0x3df @0xa
0x03d5…0414 at000b = ╱30╱0╱ // 0x3e0 @0xb
0x03d5…0414 at000c = ╱f25000╱ // 0x3e1 @0xc
0x03d5…0414 at000f = ╱ec╱ , ╱ // 0x3e4 @0xf
0x03d5…0414 at0010 = ╱53╱S╱ // 0x3e5 @0x10
0x03d5…0414 at0011 = ╱56╱V╱ // 0x3e6 @0x11
0x03d5…0414 at0012 = ╱41╱A╱ // 0x3e7 @0x12
0x03d5…0414 at0013 = ╱52╱R╱ // 0x3e8 @0x13
0x03d5…0414 at0014 = ╱ef╱ $ ╱ // 0x3e9 @0x14
0x03d5…0414 at0015 = ╱ba╱ OF ╱ // 0x3ea @0x15
0x03d5…0414 at0016 = ╱31╱1╱ // 0x3eb @0x16
0x03d5…0414 at0017 = ╱30╱0╱ // 0x3ec @0x17
0x03d5…0414 at0018 = ╱f20a00╱ // 0x3ed @0x18
0x03d5…0414 at001b = ╱ec╱ , ╱ // 0x3f0 @0x1b
0x03d5…0414 at001c = ╱50╱P╱ // 0x3f1 @0x1c
0x03d5…0414 at001d = ╱52╱R╱ // 0x3f2 @0x1d
0x03d5…0414 at001e = ╱47╱G╱ // 0x3f3 @0x1e
0x03d5…0414 at001f = ╱46╱F╱ // 0x3f4 @0x1f
0x03d5…0414 at0020 = ╱4c╱L╱ // 0x3f5 @0x20
0x03d5…0414 at0021 = ╱ef╱ $ ╱ // 0x3f6 @0x21
0x03d5…0414 at0022 = ╱ba╱ OF ╱ // 0x3f7 @0x22
0x03d5…0414 at0023 = ╱38╱8╱ // 0x3f8 @0x23
0x03d5…0414 at0024 = ╱f20800╱ // 0x3f9 @0x24
0x03d5…0414 at0027 = ╱ec╱ , ╱ // 0x3fc @0x27
0x03d5…0414 at0028 = ╱41╱A╱ // 0x3fd @0x28
0x03d5…0414 at0029 = ╱4c╱L╱ // 0x3fe @0x29
0x03d5…0414 at002a = ╱46╱F╱ // 0x3ff @0x2a
0x03d5…0414 at002b = ╱41╱A╱ // 0x400 @0x2b
0x03d5…0414 at002c = ╱ef╱ $ ╱ // 0x401 @0x2c
0x03d5…0414 at002d = ╱ba╱ OF ╱ // 0x402 @0x2d
0x03d5…0414 at002e = ╱32╱2╱ // 0x403 @0x2e
0x03d5…0414 at002f = ╱38╱8╱ // 0x404 @0x2f
0x03d5…0414 at0030 = ╱f21c00╱ // 0x405 @0x30
0x03d5…0414 at0033 = ╱ec╱ , ╱ // 0x408 @0x33
0x03d5…0414 at0034 = ╱54╱T╱ // 0x409 @0x34
0x03d5…0414 at0035 = ╱41╱A╱ // 0x40a @0x35
0x03d5…0414 at0036 = ╱4c╱L╱ // 0x40b @0x36
0x03d5…0414 at0037 = ╱ef╱ $ ╱ // 0x40c @0x37
0x03d5…0414 at0038 = ╱ba╱ OF ╱ // 0x40d @0x38
0x03d5…0414 at0039 = ╱31╱1╱ // 0x40e @0x39
0x03d5…0414 at003a = ╱30╱0╱ // 0x40f @0x3a
0x03d5…0414 at003b = ╱f20a00╱ // 0x410 @0x3b
0x03d5…0414 at003e = EOL // 0x413 @0x3e
0x03d5…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…046f 9a5d 00350 // Variable…til…filen…SYSPARA
0x044f…046f LineComal80 {
0x044f…046f ptr = 0x9a5d // 0x44f @0x0
0x044f…046f lno = 0x015e // 0x451 @0x2
0x044f…046f at0004 = ╱89╱ // ╱ // 0x453 @0x4
0x044f…046f at0005 = ╱56╱V╱ // 0x454 @0x5
0x044f…046f at0006 = ╱61╱a╱ // 0x455 @0x6
0x044f…046f at0007 = ╱72╱r╱ // 0x456 @0x7
0x044f…046f at0008 = ╱69╱i╱ // 0x457 @0x8
0x044f…046f at0009 = ╱61╱a╱ // 0x458 @0x9
0x044f…046f at000a = ╱62╱b╱ // 0x459 @0xa
0x044f…046f at000b = ╱6c╱l╱ // 0x45a @0xb
0x044f…046f at000c = ╱65╱e╱ // 0x45b @0xc
0x044f…046f at000d = ╱20╱…╱ // 0x45c @0xd
0x044f…046f at000e = ╱74╱t╱ // 0x45d @0xe
0x044f…046f at000f = ╱69╱i╱ // 0x45e @0xf
0x044f…046f at0010 = ╱6c╱l╱ // 0x45f @0x10
0x044f…046f at0011 = ╱20╱…╱ // 0x460 @0x11
0x044f…046f at0012 = ╱66╱f╱ // 0x461 @0x12
0x044f…046f at0013 = ╱69╱i╱ // 0x462 @0x13
0x044f…046f at0014 = ╱6c╱l╱ // 0x463 @0x14
0x044f…046f at0015 = ╱65╱e╱ // 0x464 @0x15
0x044f…046f at0016 = ╱6e╱n╱ // 0x465 @0x16
0x044f…046f at0017 = ╱20╱…╱ // 0x466 @0x17
0x044f…046f at0018 = ╱53╱S╱ // 0x467 @0x18
0x044f…046f at0019 = ╱59╱Y╱ // 0x468 @0x19
0x044f…046f at001a = ╱53╱S╱ // 0x469 @0x1a
0x044f…046f at001b = ╱50╱P╱ // 0x46a @0x1b
0x044f…046f at001c = ╱41╱A╱ // 0x46b @0x1c
0x044f…046f at001d = ╱52╱R╱ // 0x46c @0x1d
0x044f…046f at001e = ╱41╱A╱ // 0x46d @0x1e
0x044f…046f at001f = EOL // 0x46e @0x1f
0x044f…046f }
0x046f…0483 9a71 00360 DIM SYSPARA $ OF 17
0x046f…0483 LineComal80 {
0x046f…0483 ptr = 0x9a71 // 0x46f @0x0
0x046f…0483 lno = 0x0168 // 0x471 @0x2
0x046f…0483 at0004 = ╱87╱ DIM ╱ // 0x473 @0x4
0x046f…0483 at0005 = ╱53╱S╱ // 0x474 @0x5
0x046f…0483 at0006 = ╱59╱Y╱ // 0x475 @0x6
0x046f…0483 at0007 = ╱53╱S╱ // 0x476 @0x7
0x046f…0483 at0008 = ╱50╱P╱ // 0x477 @0x8
0x046f…0483 at0009 = ╱41╱A╱ // 0x478 @0x9
0x046f…0483 at000a = ╱52╱R╱ // 0x479 @0xa
0x046f…0483 at000b = ╱41╱A╱ // 0x47a @0xb
0x046f…0483 at000c = ╱ef╱ $ ╱ // 0x47b @0xc
0x046f…0483 at000d = ╱ba╱ OF ╱ // 0x47c @0xd
0x046f…0483 at000e = ╱31╱1╱ // 0x47d @0xe
0x046f…0483 at000f = ╱37╱7╱ // 0x47e @0xf
0x046f…0483 at0010 = ╱f21100╱ // 0x47f @0x10
0x046f…0483 at0013 = EOL // 0x482 @0x13
0x046f…0483 }
0x0483…04a6 (15,) 9a94 00370 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x0483…04a6 LineComal80 {
0x0483…04a6 ptr = 0x9a94 // 0x483 @0x0
0x0483…04a6 lno = 0x0172 // 0x485 @0x2
0x0483…04a6 at0004 = ╱87╱ DIM ╱ // 0x487 @0x4
0x0483…04a6 at0005 = ╱53╱S╱ // 0x488 @0x5
0x0483…04a6 at0006 = ╱59╱Y╱ // 0x489 @0x6
0x0483…04a6 at0007 = ╱53╱S╱ // 0x48a @0x7
0x0483…04a6 at0008 = ╱54╱T╱ // 0x48b @0x8
0x0483…04a6 at0009 = ╱5f╱_╱ // 0x48c @0x9
0x0483…04a6 at000a = ╱4e╱N╱ // 0x48d @0xa
0x0483…04a6 at000b = ╱41╱A╱ // 0x48e @0xb
0x0483…04a6 at000c = ╱56╱V╱ // 0x48f @0xc
0x0483…04a6 at000d = ╱4e╱N╱ // 0x490 @0xd
0x0483…04a6 at000e = ╱ef╱ $ ╱ // 0x491 @0xe
0x0483…04a6 at000f = ╱ba╱ OF ╱ // 0x492 @0xf
0x0483…04a6 at0010 = ╱33╱3╱ // 0x493 @0x10
0x0483…04a6 at0011 = ╱30╱0╱ // 0x494 @0x11
0x0483…04a6 at0012 = ╱f21e00╱ // 0x495 @0x12
0x0483…04a6 at0015 = ╱ec╱ , ╱ // 0x498 @0x15
0x0483…04a6 at0016 = ╱53╱S╱ // 0x499 @0x16
0x0483…04a6 at0017 = ╱5f╱_╱ // 0x49a @0x17
0x0483…04a6 at0018 = ╱4b╱K╱ // 0x49b @0x18
0x0483…04a6 at0019 = ╱4f╱O╱ // 0x49c @0x19
0x0483…04a6 at001a = ╱44╱D╱ // 0x49d @0x1a
0x0483…04a6 at001b = ╱45╱E╱ // 0x49e @0x1b
0x0483…04a6 at001c = ╱ef╱ $ ╱ // 0x49f @0x1c
0x0483…04a6 at001d = ╱ba╱ OF ╱ // 0x4a0 @0x1d
0x0483…04a6 at001e = ╱31╱1╱ // 0x4a1 @0x1e
0x0483…04a6 at001f = ╱f20100╱ // 0x4a2 @0x1f
0x0483…04a6 at0022 = EOL // 0x4a5 @0x22
0x0483…04a6 }
0x04a6…04c5 9ab3 00380 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x04a6…04c5 LineComal80 {
0x04a6…04c5 ptr = 0x9ab3 // 0x4a6 @0x0
0x04a6…04c5 lno = 0x017c // 0x4a8 @0x2
0x04a6…04c5 at0004 = ╱87╱ DIM ╱ // 0x4aa @0x4
0x04a6…04c5 at0005 = ╱44╱D╱ // 0x4ab @0x5
0x04a6…04c5 at0006 = ╱41╱A╱ // 0x4ac @0x6
0x04a6…04c5 at0007 = ╱54╱T╱ // 0x4ad @0x7
0x04a6…04c5 at0008 = ╱41╱A╱ // 0x4ae @0x8
0x04a6…04c5 at0009 = ╱46╱F╱ // 0x4af @0x9
0x04a6…04c5 at000a = ╱4c╱L╱ // 0x4b0 @0xa
0x04a6…04c5 at000b = ╱ef╱ $ ╱ // 0x4b1 @0xb
0x04a6…04c5 at000c = ╱ba╱ OF ╱ // 0x4b2 @0xc
0x04a6…04c5 at000d = ╱38╱8╱ // 0x4b3 @0xd
0x04a6…04c5 at000e = ╱f20800╱ // 0x4b4 @0xe
0x04a6…04c5 at0011 = ╱ec╱ , ╱ // 0x4b7 @0x11
0x04a6…04c5 at0012 = ╱54╱T╱ // 0x4b8 @0x12
0x04a6…04c5 at0013 = ╱5f╱_╱ // 0x4b9 @0x13
0x04a6…04c5 at0014 = ╱4b╱K╱ // 0x4ba @0x14
0x04a6…04c5 at0015 = ╱4f╱O╱ // 0x4bb @0x15
0x04a6…04c5 at0016 = ╱44╱D╱ // 0x4bc @0x16
0x04a6…04c5 at0017 = ╱45╱E╱ // 0x4bd @0x17
0x04a6…04c5 at0018 = ╱ef╱ $ ╱ // 0x4be @0x18
0x04a6…04c5 at0019 = ╱ba╱ OF ╱ // 0x4bf @0x19
0x04a6…04c5 at001a = ╱31╱1╱ // 0x4c0 @0x1a
0x04a6…04c5 at001b = ╱f20100╱ // 0x4c1 @0x1b
0x04a6…04c5 at001e = EOL // 0x4c4 @0x1e
0x04a6…04c5 }
0x04c5…04e5 9ad3 00390 // Variable…til…filen…@@PARAM
0x04c5…04e5 LineComal80 {
0x04c5…04e5 ptr = 0x9ad3 // 0x4c5 @0x0
0x04c5…04e5 lno = 0x0186 // 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 = ╱40╱@╱ // 0x4dd @0x18
0x04c5…04e5 at0019 = ╱40╱@╱ // 0x4de @0x19
0x04c5…04e5 at001a = ╱50╱P╱ // 0x4df @0x1a
0x04c5…04e5 at001b = ╱41╱A╱ // 0x4e0 @0x1b
0x04c5…04e5 at001c = ╱52╱R╱ // 0x4e1 @0x1c
0x04c5…04e5 at001d = ╱41╱A╱ // 0x4e2 @0x1d
0x04c5…04e5 at001e = ╱4d╱M╱ // 0x4e3 @0x1e
0x04c5…04e5 at001f = EOL // 0x4e4 @0x1f
0x04c5…04e5 }
0x04e5…04f7 9ae5 00400 DIM PARAM $ OF 17
0x04e5…04f7 LineComal80 {
0x04e5…04f7 ptr = 0x9ae5 // 0x4e5 @0x0
0x04e5…04f7 lno = 0x0190 // 0x4e7 @0x2
0x04e5…04f7 at0004 = ╱87╱ DIM ╱ // 0x4e9 @0x4
0x04e5…04f7 at0005 = ╱50╱P╱ // 0x4ea @0x5
0x04e5…04f7 at0006 = ╱41╱A╱ // 0x4eb @0x6
0x04e5…04f7 at0007 = ╱52╱R╱ // 0x4ec @0x7
0x04e5…04f7 at0008 = ╱41╱A╱ // 0x4ed @0x8
0x04e5…04f7 at0009 = ╱4d╱M╱ // 0x4ee @0x9
0x04e5…04f7 at000a = ╱ef╱ $ ╱ // 0x4ef @0xa
0x04e5…04f7 at000b = ╱ba╱ OF ╱ // 0x4f0 @0xb
0x04e5…04f7 at000c = ╱31╱1╱ // 0x4f1 @0xc
0x04e5…04f7 at000d = ╱37╱7╱ // 0x4f2 @0xd
0x04e5…04f7 at000e = ╱f21100╱ // 0x4f3 @0xe
0x04e5…04f7 at0011 = EOL // 0x4f6 @0x11
0x04e5…04f7 }
0x04f7…051c 9b0a 00410 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
0x04f7…051c LineComal80 {
0x04f7…051c ptr = 0x9b0a // 0x4f7 @0x0
0x04f7…051c lno = 0x019a // 0x4f9 @0x2
0x04f7…051c at0004 = ╱87╱ DIM ╱ // 0x4fb @0x4
0x04f7…051c at0005 = ╱46╱F╱ // 0x4fc @0x5
0x04f7…051c at0006 = ╱49╱I╱ // 0x4fd @0x6
0x04f7…051c at0007 = ╱52╱R╱ // 0x4fe @0x7
0x04f7…051c at0008 = ╱4d╱M╱ // 0x4ff @0x8
0x04f7…051c at0009 = ╱41╱A╱ // 0x500 @0x9
0x04f7…051c at000a = ╱4e╱N╱ // 0x501 @0xa
0x04f7…051c at000b = ╱41╱A╱ // 0x502 @0xb
0x04f7…051c at000c = ╱56╱V╱ // 0x503 @0xc
0x04f7…051c at000d = ╱4e╱N╱ // 0x504 @0xd
0x04f7…051c at000e = ╱ef╱ $ ╱ // 0x505 @0xe
0x04f7…051c at000f = ╱ba╱ OF ╱ // 0x506 @0xf
0x04f7…051c at0010 = ╱33╱3╱ // 0x507 @0x10
0x04f7…051c at0011 = ╱30╱0╱ // 0x508 @0x11
0x04f7…051c at0012 = ╱f21e00╱ // 0x509 @0x12
0x04f7…051c at0015 = ╱ec╱ , ╱ // 0x50c @0x15
0x04f7…051c at0016 = ╱53╱S╱ // 0x50d @0x16
0x04f7…051c at0017 = ╱59╱Y╱ // 0x50e @0x17
0x04f7…051c at0018 = ╱53╱S╱ // 0x50f @0x18
0x04f7…051c at0019 = ╱54╱T╱ // 0x510 @0x19
0x04f7…051c at001a = ╱5f╱_╱ // 0x511 @0x1a
0x04f7…051c at001b = ╱44╱D╱ // 0x512 @0x1b
0x04f7…051c at001c = ╱41╱A╱ // 0x513 @0x1c
0x04f7…051c at001d = ╱54╱T╱ // 0x514 @0x1d
0x04f7…051c at001e = ╱ef╱ $ ╱ // 0x515 @0x1e
0x04f7…051c at001f = ╱ba╱ OF ╱ // 0x516 @0x1f
0x04f7…051c at0020 = ╱36╱6╱ // 0x517 @0x20
0x04f7…051c at0021 = ╱f20600╱ // 0x518 @0x21
0x04f7…051c at0024 = EOL // 0x51b @0x24
0x04f7…051c }
0x051c…0526 9b14 00420 REAL MOMS
0x051c…0526 LineComal80 {
0x051c…0526 ptr = 0x9b14 // 0x51c @0x0
0x051c…0526 lno = 0x01a4 // 0x51e @0x2
0x051c…0526 at0004 = ╱b3╱ REAL ╱ // 0x520 @0x4
0x051c…0526 at0005 = ╱4d╱M╱ // 0x521 @0x5
0x051c…0526 at0006 = ╱4f╱O╱ // 0x522 @0x6
0x051c…0526 at0007 = ╱4d╱M╱ // 0x523 @0x7
0x051c…0526 at0008 = ╱53╱S╱ // 0x524 @0x8
0x051c…0526 at0009 = EOL // 0x525 @0x9
0x051c…0526 }
0x0526…0537 9b25 00430 ENDPROC DIMENSIONER
0x0526…0537 LineComal80 {
0x0526…0537 ptr = 0x9b25 // 0x526 @0x0
0x0526…0537 lno = 0x01ae // 0x528 @0x2
0x0526…0537 at0004 = ╱9f╱ ENDPROC ╱ // 0x52a @0x4
0x0526…0537 at0005 = ╱44╱D╱ // 0x52b @0x5
0x0526…0537 at0006 = ╱49╱I╱ // 0x52c @0x6
0x0526…0537 at0007 = ╱4d╱M╱ // 0x52d @0x7
0x0526…0537 at0008 = ╱45╱E╱ // 0x52e @0x8
0x0526…0537 at0009 = ╱4e╱N╱ // 0x52f @0x9
0x0526…0537 at000a = ╱53╱S╱ // 0x530 @0xa
0x0526…0537 at000b = ╱49╱I╱ // 0x531 @0xb
0x0526…0537 at000c = ╱4f╱O╱ // 0x532 @0xc
0x0526…0537 at000d = ╱4e╱N╱ // 0x533 @0xd
0x0526…0537 at000e = ╱45╱E╱ // 0x534 @0xe
0x0526…0537 at000f = ╱52╱R╱ // 0x535 @0xf
0x0526…0537 at0010 = EOL // 0x536 @0x10
0x0526…0537 }
0x0537…053c 9b2a 00440
0x0537…053c LineComal80 {
0x0537…053c ptr = 0x9b2a // 0x537 @0x0
0x0537…053c lno = 0x01b8 // 0x539 @0x2
0x0537…053c at0004 = EOL // 0x53b @0x4
0x0537…053c }
0x053c…054a 9b38 00450 PROC INITIER
0x053c…054a LineComal80 {
0x053c…054a ptr = 0x9b38 // 0x53c @0x0
0x053c…054a lno = 0x01c2 // 0x53e @0x2
0x053c…054a at0004 = ╱9e00╱ PROC ╱ // 0x540 @0x4
0x053c…054a at0006 = ╱49╱I╱ // 0x542 @0x6
0x053c…054a at0007 = ╱4e╱N╱ // 0x543 @0x7
0x053c…054a at0008 = ╱49╱I╱ // 0x544 @0x8
0x053c…054a at0009 = ╱54╱T╱ // 0x545 @0x9
0x053c…054a at000a = ╱49╱I╱ // 0x546 @0xa
0x053c…054a at000b = ╱45╱E╱ // 0x547 @0xb
0x053c…054a at000c = ╱52╱R╱ // 0x548 @0xc
0x053c…054a at000d = EOL // 0x549 @0xd
0x053c…054a }
0x054a…055c 9b4a 00460 LET PRGFL $ := "DP2"
0x054a…055c LineComal80 {
0x054a…055c ptr = 0x9b4a // 0x54a @0x0
0x054a…055c lno = 0x01cc // 0x54c @0x2
0x054a…055c at0004 = ╱86╱ LET ╱ // 0x54e @0x4
0x054a…055c at0005 = ╱50╱P╱ // 0x54f @0x5
0x054a…055c at0006 = ╱52╱R╱ // 0x550 @0x6
0x054a…055c at0007 = ╱47╱G╱ // 0x551 @0x7
0x054a…055c at0008 = ╱46╱F╱ // 0x552 @0x8
0x054a…055c at0009 = ╱4c╱L╱ // 0x553 @0x9
0x054a…055c at000a = ╱ef╱ $ ╱ // 0x554 @0xa
0x054a…055c at000b = ╱f0╱ := ╱ // 0x555 @0xb
0x054a…055c at000c = ╱22╱"╱ // 0x556 @0xc
0x054a…055c at000d = ╱44╱D╱ // 0x557 @0xd
0x054a…055c at000e = ╱50╱P╱ // 0x558 @0xe
0x054a…055c at000f = ╱32╱2╱ // 0x559 @0xf
0x054a…055c at0010 = ╱22╱"╱ // 0x55a @0x10
0x054a…055c at0011 = EOL // 0x55b @0x11
0x054a…055c }
0x055c…057a 9b68 00470 LET PROGRAM $ := PRGFL $ + ":SYSIP"
0x055c…057a LineComal80 {
0x055c…057a ptr = 0x9b68 // 0x55c @0x0
0x055c…057a lno = 0x01d6 // 0x55e @0x2
0x055c…057a at0004 = ╱86╱ LET ╱ // 0x560 @0x4
0x055c…057a at0005 = ╱50╱P╱ // 0x561 @0x5
0x055c…057a at0006 = ╱52╱R╱ // 0x562 @0x6
0x055c…057a at0007 = ╱4f╱O╱ // 0x563 @0x7
0x055c…057a at0008 = ╱47╱G╱ // 0x564 @0x8
0x055c…057a at0009 = ╱52╱R╱ // 0x565 @0x9
0x055c…057a at000a = ╱41╱A╱ // 0x566 @0xa
0x055c…057a at000b = ╱4d╱M╱ // 0x567 @0xb
0x055c…057a at000c = ╱ef╱ $ ╱ // 0x568 @0xc
0x055c…057a at000d = ╱f0╱ := ╱ // 0x569 @0xd
0x055c…057a at000e = ╱50╱P╱ // 0x56a @0xe
0x055c…057a at000f = ╱52╱R╱ // 0x56b @0xf
0x055c…057a at0010 = ╱47╱G╱ // 0x56c @0x10
0x055c…057a at0011 = ╱46╱F╱ // 0x56d @0x11
0x055c…057a at0012 = ╱4c╱L╱ // 0x56e @0x12
0x055c…057a at0013 = ╱ef╱ $ ╱ // 0x56f @0x13
0x055c…057a at0014 = ╱eb╱ + ╱ // 0x570 @0x14
0x055c…057a at0015 = ╱22╱"╱ // 0x571 @0x15
0x055c…057a at0016 = ╱3a╱:╱ // 0x572 @0x16
0x055c…057a at0017 = ╱53╱S╱ // 0x573 @0x17
0x055c…057a at0018 = ╱59╱Y╱ // 0x574 @0x18
0x055c…057a at0019 = ╱53╱S╱ // 0x575 @0x19
0x055c…057a at001a = ╱49╱I╱ // 0x576 @0x1a
0x055c…057a at001b = ╱50╱P╱ // 0x577 @0x1b
0x055c…057a at001c = ╱22╱"╱ // 0x578 @0x1c
0x055c…057a at001d = EOL // 0x579 @0x1d
0x055c…057a }
0x057a…05b4 9ba2 00480 LET SPC $ := "………………………………………………………………………………………………………………………"
0x057a…05b4 LineComal80 {
0x057a…05b4 ptr = 0x9ba2 // 0x57a @0x0
0x057a…05b4 lno = 0x01e0 // 0x57c @0x2
0x057a…05b4 at0004 = ╱86╱ LET ╱ // 0x57e @0x4
0x057a…05b4 at0005 = ╱53╱S╱ // 0x57f @0x5
0x057a…05b4 at0006 = ╱50╱P╱ // 0x580 @0x6
0x057a…05b4 at0007 = ╱43╱C╱ // 0x581 @0x7
0x057a…05b4 at0008 = ╱ef╱ $ ╱ // 0x582 @0x8
0x057a…05b4 at0009 = ╱f0╱ := ╱ // 0x583 @0x9
0x057a…05b4 at000a = ╱22╱"╱ // 0x584 @0xa
0x057a…05b4 at000b = ╱20╱…╱ // 0x585 @0xb
0x057a…05b4 at000c = ╱20╱…╱ // 0x586 @0xc
0x057a…05b4 at000d = ╱20╱…╱ // 0x587 @0xd
0x057a…05b4 at000e = ╱20╱…╱ // 0x588 @0xe
0x057a…05b4 at000f = ╱20╱…╱ // 0x589 @0xf
0x057a…05b4 at0010 = ╱20╱…╱ // 0x58a @0x10
0x057a…05b4 at0011 = ╱20╱…╱ // 0x58b @0x11
0x057a…05b4 at0012 = ╱20╱…╱ // 0x58c @0x12
0x057a…05b4 at0013 = ╱20╱…╱ // 0x58d @0x13
0x057a…05b4 at0014 = ╱20╱…╱ // 0x58e @0x14
0x057a…05b4 at0015 = ╱20╱…╱ // 0x58f @0x15
0x057a…05b4 at0016 = ╱20╱…╱ // 0x590 @0x16
0x057a…05b4 at0017 = ╱20╱…╱ // 0x591 @0x17
0x057a…05b4 at0018 = ╱20╱…╱ // 0x592 @0x18
0x057a…05b4 at0019 = ╱20╱…╱ // 0x593 @0x19
0x057a…05b4 at001a = ╱20╱…╱ // 0x594 @0x1a
0x057a…05b4 at001b = ╱20╱…╱ // 0x595 @0x1b
0x057a…05b4 at001c = ╱20╱…╱ // 0x596 @0x1c
0x057a…05b4 at001d = ╱20╱…╱ // 0x597 @0x1d
0x057a…05b4 at001e = ╱20╱…╱ // 0x598 @0x1e
0x057a…05b4 at001f = ╱20╱…╱ // 0x599 @0x1f
0x057a…05b4 at0020 = ╱20╱…╱ // 0x59a @0x20
0x057a…05b4 at0021 = ╱20╱…╱ // 0x59b @0x21
0x057a…05b4 at0022 = ╱20╱…╱ // 0x59c @0x22
0x057a…05b4 at0023 = ╱20╱…╱ // 0x59d @0x23
0x057a…05b4 at0024 = ╱20╱…╱ // 0x59e @0x24
0x057a…05b4 at0025 = ╱20╱…╱ // 0x59f @0x25
0x057a…05b4 at0026 = ╱20╱…╱ // 0x5a0 @0x26
0x057a…05b4 at0027 = ╱20╱…╱ // 0x5a1 @0x27
0x057a…05b4 at0028 = ╱20╱…╱ // 0x5a2 @0x28
0x057a…05b4 at0029 = ╱20╱…╱ // 0x5a3 @0x29
0x057a…05b4 at002a = ╱20╱…╱ // 0x5a4 @0x2a
0x057a…05b4 at002b = ╱20╱…╱ // 0x5a5 @0x2b
0x057a…05b4 at002c = ╱20╱…╱ // 0x5a6 @0x2c
0x057a…05b4 at002d = ╱20╱…╱ // 0x5a7 @0x2d
0x057a…05b4 at002e = ╱20╱…╱ // 0x5a8 @0x2e
0x057a…05b4 at002f = ╱20╱…╱ // 0x5a9 @0x2f
0x057a…05b4 at0030 = ╱20╱…╱ // 0x5aa @0x30
0x057a…05b4 at0031 = ╱20╱…╱ // 0x5ab @0x31
0x057a…05b4 at0032 = ╱20╱…╱ // 0x5ac @0x32
0x057a…05b4 at0033 = ╱20╱…╱ // 0x5ad @0x33
0x057a…05b4 at0034 = ╱20╱…╱ // 0x5ae @0x34
0x057a…05b4 at0035 = ╱20╱…╱ // 0x5af @0x35
0x057a…05b4 at0036 = ╱20╱…╱ // 0x5b0 @0x36
0x057a…05b4 at0037 = ╱20╱…╱ // 0x5b1 @0x37
0x057a…05b4 at0038 = ╱22╱"╱ // 0x5b2 @0x38
0x057a…05b4 at0039 = EOL // 0x5b3 @0x39
0x057a…05b4 }
0x05b4…05c8 9bb6 00490 LET SPC $ := SPC $ + SPC $
0x05b4…05c8 LineComal80 {
0x05b4…05c8 ptr = 0x9bb6 // 0x5b4 @0x0
0x05b4…05c8 lno = 0x01ea // 0x5b6 @0x2
0x05b4…05c8 at0004 = ╱86╱ LET ╱ // 0x5b8 @0x4
0x05b4…05c8 at0005 = ╱53╱S╱ // 0x5b9 @0x5
0x05b4…05c8 at0006 = ╱50╱P╱ // 0x5ba @0x6
0x05b4…05c8 at0007 = ╱43╱C╱ // 0x5bb @0x7
0x05b4…05c8 at0008 = ╱ef╱ $ ╱ // 0x5bc @0x8
0x05b4…05c8 at0009 = ╱f0╱ := ╱ // 0x5bd @0x9
0x05b4…05c8 at000a = ╱53╱S╱ // 0x5be @0xa
0x05b4…05c8 at000b = ╱50╱P╱ // 0x5bf @0xb
0x05b4…05c8 at000c = ╱43╱C╱ // 0x5c0 @0xc
0x05b4…05c8 at000d = ╱ef╱ $ ╱ // 0x5c1 @0xd
0x05b4…05c8 at000e = ╱eb╱ + ╱ // 0x5c2 @0xe
0x05b4…05c8 at000f = ╱53╱S╱ // 0x5c3 @0xf
0x05b4…05c8 at0010 = ╱50╱P╱ // 0x5c4 @0x10
0x05b4…05c8 at0011 = ╱43╱C╱ // 0x5c5 @0x11
0x05b4…05c8 at0012 = ╱ef╱ $ ╱ // 0x5c6 @0x12
0x05b4…05c8 at0013 = EOL // 0x5c7 @0x13
0x05b4…05c8 }
0x05c8…05f3 9be1 00500 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x05c8…05f3 LineComal80 {
0x05c8…05f3 ptr = 0x9be1 // 0x5c8 @0x0
0x05c8…05f3 lno = 0x01f4 // 0x5ca @0x2
0x05c8…05f3 at0004 = ╱86╱ LET ╱ // 0x5cc @0x4
0x05c8…05f3 at0005 = ╱46╱F╱ // 0x5cd @0x5
0x05c8…05f3 at0006 = ╱41╱A╱ // 0x5ce @0x6
0x05c8…05f3 at0007 = ╱4c╱L╱ // 0x5cf @0x7
0x05c8…05f3 at0008 = ╱53╱S╱ // 0x5d0 @0x8
0x05c8…05f3 at0009 = ╱45╱E╱ // 0x5d1 @0x9
0x05c8…05f3 at000a = ╱f0╱ := ╱ // 0x5d2 @0xa
0x05c8…05f3 at000b = ╱30╱0╱ // 0x5d3 @0xb
0x05c8…05f3 at000c = ╱f20000╱ // 0x5d4 @0xc
0x05c8…05f3 at000f = ╱ea╱ ; ╱ // 0x5d7 @0xf
0x05c8…05f3 at0010 = ╱54╱T╱ // 0x5d8 @0x10
0x05c8…05f3 at0011 = ╱52╱R╱ // 0x5d9 @0x11
0x05c8…05f3 at0012 = ╱55╱U╱ // 0x5da @0x12
0x05c8…05f3 at0013 = ╱45╱E╱ // 0x5db @0x13
0x05c8…05f3 at0014 = ╱f0╱ := ╱ // 0x5dc @0x14
0x05c8…05f3 at0015 = ╱31╱1╱ // 0x5dd @0x15
0x05c8…05f3 at0016 = ╱f20100╱ // 0x5de @0x16
0x05c8…05f3 at0019 = ╱89╱ // ╱ // 0x5e1 @0x19
0x05c8…05f3 at001a = ╱62╱b╱ // 0x5e2 @0x1a
0x05c8…05f3 at001b = ╱6f╱o╱ // 0x5e3 @0x1b
0x05c8…05f3 at001c = ╱6f╱o╱ // 0x5e4 @0x1c
0x05c8…05f3 at001d = ╱6c╱l╱ // 0x5e5 @0x1d
0x05c8…05f3 at001e = ╱73╱s╱ // 0x5e6 @0x1e
0x05c8…05f3 at001f = ╱6b╱k╱ // 0x5e7 @0x1f
0x05c8…05f3 at0020 = ╱65╱e╱ // 0x5e8 @0x20
0x05c8…05f3 at0021 = ╱20╱…╱ // 0x5e9 @0x21
0x05c8…05f3 at0022 = ╱76╱v╱ // 0x5ea @0x22
0x05c8…05f3 at0023 = ╱61╱a╱ // 0x5eb @0x23
0x05c8…05f3 at0024 = ╱72╱r╱ // 0x5ec @0x24
0x05c8…05f3 at0025 = ╱69╱i╱ // 0x5ed @0x25
0x05c8…05f3 at0026 = ╱61╱a╱ // 0x5ee @0x26
0x05c8…05f3 at0027 = ╱62╱b╱ // 0x5ef @0x27
0x05c8…05f3 at0028 = ╱6c╱l╱ // 0x5f0 @0x28
0x05c8…05f3 at0029 = ╱65╱e╱ // 0x5f1 @0x29
0x05c8…05f3 at002a = EOL // 0x5f2 @0x2a
0x05c8…05f3 }
0x05f3…0613 9c01 00510 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x05f3…0613 LineComal80 {
0x05f3…0613 ptr = 0x9c01 // 0x5f3 @0x0
0x05f3…0613 lno = 0x01fe // 0x5f5 @0x2
0x05f3…0613 at0004 = ╱86╱ LET ╱ // 0x5f7 @0x4
0x05f3…0613 at0005 = ╱53╱S╱ // 0x5f8 @0x5
0x05f3…0613 at0006 = ╱59╱Y╱ // 0x5f9 @0x6
0x05f3…0613 at0007 = ╱53╱S╱ // 0x5fa @0x7
0x05f3…0613 at0008 = ╱50╱P╱ // 0x5fb @0x8
0x05f3…0613 at0009 = ╱41╱A╱ // 0x5fc @0x9
0x05f3…0613 at000a = ╱52╱R╱ // 0x5fd @0xa
0x05f3…0613 at000b = ╱41╱A╱ // 0x5fe @0xb
0x05f3…0613 at000c = ╱ef╱ $ ╱ // 0x5ff @0xc
0x05f3…0613 at000d = ╱f0╱ := ╱ // 0x600 @0xd
0x05f3…0613 at000e = ╱50╱P╱ // 0x601 @0xe
0x05f3…0613 at000f = ╱52╱R╱ // 0x602 @0xf
0x05f3…0613 at0010 = ╱47╱G╱ // 0x603 @0x10
0x05f3…0613 at0011 = ╱46╱F╱ // 0x604 @0x11
0x05f3…0613 at0012 = ╱4c╱L╱ // 0x605 @0x12
0x05f3…0613 at0013 = ╱ef╱ $ ╱ // 0x606 @0x13
0x05f3…0613 at0014 = ╱eb╱ + ╱ // 0x607 @0x14
0x05f3…0613 at0015 = ╱22╱"╱ // 0x608 @0x15
0x05f3…0613 at0016 = ╱3a╱:╱ // 0x609 @0x16
0x05f3…0613 at0017 = ╱53╱S╱ // 0x60a @0x17
0x05f3…0613 at0018 = ╱59╱Y╱ // 0x60b @0x18
0x05f3…0613 at0019 = ╱53╱S╱ // 0x60c @0x19
0x05f3…0613 at001a = ╱50╱P╱ // 0x60d @0x1a
0x05f3…0613 at001b = ╱41╱A╱ // 0x60e @0x1b
0x05f3…0613 at001c = ╱52╱R╱ // 0x60f @0x1c
0x05f3…0613 at001d = ╱41╱A╱ // 0x610 @0x1d
0x05f3…0613 at001e = ╱22╱"╱ // 0x611 @0x1e
0x05f3…0613 at001f = EOL // 0x612 @0x1f
0x05f3…0613 }
0x0613…062e 9c1c 00520 EXEC OPENFIL ( SYSPARA $ , "R" )
0x0613…062e LineComal80 {
0x0613…062e ptr = 0x9c1c // 0x613 @0x0
0x0613…062e lno = 0x0208 // 0x615 @0x2
0x0613…062e at0004 = ╱9d╱ EXEC ╱ // 0x617 @0x4
0x0613…062e at0005 = ╱4f╱O╱ // 0x618 @0x5
0x0613…062e at0006 = ╱50╱P╱ // 0x619 @0x6
0x0613…062e at0007 = ╱45╱E╱ // 0x61a @0x7
0x0613…062e at0008 = ╱4e╱N╱ // 0x61b @0x8
0x0613…062e at0009 = ╱46╱F╱ // 0x61c @0x9
0x0613…062e at000a = ╱49╱I╱ // 0x61d @0xa
0x0613…062e at000b = ╱4c╱L╱ // 0x61e @0xb
0x0613…062e at000c = ╱ed╱ ( ╱ // 0x61f @0xc
0x0613…062e at000d = ╱53╱S╱ // 0x620 @0xd
0x0613…062e at000e = ╱59╱Y╱ // 0x621 @0xe
0x0613…062e at000f = ╱53╱S╱ // 0x622 @0xf
0x0613…062e at0010 = ╱50╱P╱ // 0x623 @0x10
0x0613…062e at0011 = ╱41╱A╱ // 0x624 @0x11
0x0613…062e at0012 = ╱52╱R╱ // 0x625 @0x12
0x0613…062e at0013 = ╱41╱A╱ // 0x626 @0x13
0x0613…062e at0014 = ╱ef╱ $ ╱ // 0x627 @0x14
0x0613…062e at0015 = ╱ec╱ , ╱ // 0x628 @0x15
0x0613…062e at0016 = ╱22╱"╱ // 0x629 @0x16
0x0613…062e at0017 = ╱52╱R╱ // 0x62a @0x17
0x0613…062e at0018 = ╱22╱"╱ // 0x62b @0x18
0x0613…062e at0019 = ╱ee╱ ) ╱ // 0x62c @0x19
0x0613…062e at001a = EOL // 0x62d @0x1a
0x0613…062e }
0x062e…0654 9c42 00530 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x062e…0654 LineComal80 {
0x062e…0654 ptr = 0x9c42 // 0x62e @0x0
0x062e…0654 lno = 0x0212 // 0x630 @0x2
0x062e…0654 at0004 = ╱a9╱ GET ╱ // 0x632 @0x4
0x062e…0654 at0005 = ╱53╱S╱ // 0x633 @0x5
0x062e…0654 at0006 = ╱59╱Y╱ // 0x634 @0x6
0x062e…0654 at0007 = ╱53╱S╱ // 0x635 @0x7
0x062e…0654 at0008 = ╱50╱P╱ // 0x636 @0x8
0x062e…0654 at0009 = ╱41╱A╱ // 0x637 @0x9
0x062e…0654 at000a = ╱52╱R╱ // 0x638 @0xa
0x062e…0654 at000b = ╱41╱A╱ // 0x639 @0xb
0x062e…0654 at000c = ╱ef╱ $ ╱ // 0x63a @0xc
0x062e…0654 at000d = ╱ec╱ , ╱ // 0x63b @0xd
0x062e…0654 at000e = ╱31╱1╱ // 0x63c @0xe
0x062e…0654 at000f = ╱f20100╱ // 0x63d @0xf
0x062e…0654 at0012 = ╱f1╱ : ╱ // 0x640 @0x12
0x062e…0654 at0013 = ╱53╱S╱ // 0x641 @0x13
0x062e…0654 at0014 = ╱59╱Y╱ // 0x642 @0x14
0x062e…0654 at0015 = ╱53╱S╱ // 0x643 @0x15
0x062e…0654 at0016 = ╱54╱T╱ // 0x644 @0x16
0x062e…0654 at0017 = ╱5f╱_╱ // 0x645 @0x17
0x062e…0654 at0018 = ╱4e╱N╱ // 0x646 @0x18
0x062e…0654 at0019 = ╱41╱A╱ // 0x647 @0x19
0x062e…0654 at001a = ╱56╱V╱ // 0x648 @0x1a
0x062e…0654 at001b = ╱4e╱N╱ // 0x649 @0x1b
0x062e…0654 at001c = ╱ef╱ $ ╱ // 0x64a @0x1c
0x062e…0654 at001d = ╱ec╱ , ╱ // 0x64b @0x1d
0x062e…0654 at001e = ╱53╱S╱ // 0x64c @0x1e
0x062e…0654 at001f = ╱5f╱_╱ // 0x64d @0x1f
0x062e…0654 at0020 = ╱4b╱K╱ // 0x64e @0x20
0x062e…0654 at0021 = ╱4f╱O╱ // 0x64f @0x21
0x062e…0654 at0022 = ╱44╱D╱ // 0x650 @0x22
0x062e…0654 at0023 = ╱45╱E╱ // 0x651 @0x23
0x062e…0654 at0024 = ╱ef╱ $ ╱ // 0x652 @0x24
0x062e…0654 at0025 = EOL // 0x653 @0x25
0x062e…0654 }
0x0654…0666 9c54 00540 EXEC TERMINAL_IDX
0x0654…0666 LineComal80 {
0x0654…0666 ptr = 0x9c54 // 0x654 @0x0
0x0654…0666 lno = 0x021c // 0x656 @0x2
0x0654…0666 at0004 = ╱9d╱ EXEC ╱ // 0x658 @0x4
0x0654…0666 at0005 = ╱54╱T╱ // 0x659 @0x5
0x0654…0666 at0006 = ╱45╱E╱ // 0x65a @0x6
0x0654…0666 at0007 = ╱52╱R╱ // 0x65b @0x7
0x0654…0666 at0008 = ╱4d╱M╱ // 0x65c @0x8
0x0654…0666 at0009 = ╱49╱I╱ // 0x65d @0x9
0x0654…0666 at000a = ╱4e╱N╱ // 0x65e @0xa
0x0654…0666 at000b = ╱41╱A╱ // 0x65f @0xb
0x0654…0666 at000c = ╱4c╱L╱ // 0x660 @0xc
0x0654…0666 at000d = ╱5f╱_╱ // 0x661 @0xd
0x0654…0666 at000e = ╱49╱I╱ // 0x662 @0xe
0x0654…0666 at000f = ╱44╱D╱ // 0x663 @0xf
0x0654…0666 at0010 = ╱58╱X╱ // 0x664 @0x10
0x0654…0666 at0011 = EOL // 0x665 @0x11
0x0654…0666 }
0x0666…0674 9c62 00550 CLOSE SYSPARA $
0x0666…0674 LineComal80 {
0x0666…0674 ptr = 0x9c62 // 0x666 @0x0
0x0666…0674 lno = 0x0226 // 0x668 @0x2
0x0666…0674 at0004 = ╱a8╱ CLOSE ╱ // 0x66a @0x4
0x0666…0674 at0005 = ╱53╱S╱ // 0x66b @0x5
0x0666…0674 at0006 = ╱59╱Y╱ // 0x66c @0x6
0x0666…0674 at0007 = ╱53╱S╱ // 0x66d @0x7
0x0666…0674 at0008 = ╱50╱P╱ // 0x66e @0x8
0x0666…0674 at0009 = ╱41╱A╱ // 0x66f @0x9
0x0666…0674 at000a = ╱52╱R╱ // 0x670 @0xa
0x0666…0674 at000b = ╱41╱A╱ // 0x671 @0xb
0x0666…0674 at000c = ╱ef╱ $ ╱ // 0x672 @0xc
0x0666…0674 at000d = EOL // 0x673 @0xd
0x0666…0674 }
0x0674…06a4 9c92 00560 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x0674…06a4 LineComal80 {
0x0674…06a4 ptr = 0x9c92 // 0x674 @0x0
0x0674…06a4 lno = 0x0230 // 0x676 @0x2
0x0674…06a4 at0004 = ╱86╱ LET ╱ // 0x678 @0x4
0x0674…06a4 at0005 = ╱50╱P╱ // 0x679 @0x5
0x0674…06a4 at0006 = ╱41╱A╱ // 0x67a @0x6
0x0674…06a4 at0007 = ╱52╱R╱ // 0x67b @0x7
0x0674…06a4 at0008 = ╱41╱A╱ // 0x67c @0x8
0x0674…06a4 at0009 = ╱4d╱M╱ // 0x67d @0x9
0x0674…06a4 at000a = ╱ef╱ $ ╱ // 0x67e @0xa
0x0674…06a4 at000b = ╱f0╱ := ╱ // 0x67f @0xb
0x0674…06a4 at000c = ╱44╱D╱ // 0x680 @0xc
0x0674…06a4 at000d = ╱41╱A╱ // 0x681 @0xd
0x0674…06a4 at000e = ╱54╱T╱ // 0x682 @0xe
0x0674…06a4 at000f = ╱41╱A╱ // 0x683 @0xf
0x0674…06a4 at0010 = ╱46╱F╱ // 0x684 @0x10
0x0674…06a4 at0011 = ╱4c╱L╱ // 0x685 @0x11
0x0674…06a4 at0012 = ╱ef╱ $ ╱ // 0x686 @0x12
0x0674…06a4 at0013 = ╱eb╱ + ╱ // 0x687 @0x13
0x0674…06a4 at0014 = ╱22╱"╱ // 0x688 @0x14
0x0674…06a4 at0015 = ╱3a╱:╱ // 0x689 @0x15
0x0674…06a4 at0016 = ╱22╱"╱ // 0x68a @0x16
0x0674…06a4 at0017 = ╱eb╱ + ╱ // 0x68b @0x17
0x0674…06a4 at0018 = ╱53╱S╱ // 0x68c @0x18
0x0674…06a4 at0019 = ╱5f╱_╱ // 0x68d @0x19
0x0674…06a4 at001a = ╱4b╱K╱ // 0x68e @0x1a
0x0674…06a4 at001b = ╱4f╱O╱ // 0x68f @0x1b
0x0674…06a4 at001c = ╱44╱D╱ // 0x690 @0x1c
0x0674…06a4 at001d = ╱45╱E╱ // 0x691 @0x1d
0x0674…06a4 at001e = ╱ef╱ $ ╱ // 0x692 @0x1e
0x0674…06a4 at001f = ╱eb╱ + ╱ // 0x693 @0x1f
0x0674…06a4 at0020 = ╱54╱T╱ // 0x694 @0x20
0x0674…06a4 at0021 = ╱5f╱_╱ // 0x695 @0x21
0x0674…06a4 at0022 = ╱4b╱K╱ // 0x696 @0x22
0x0674…06a4 at0023 = ╱4f╱O╱ // 0x697 @0x23
0x0674…06a4 at0024 = ╱44╱D╱ // 0x698 @0x24
0x0674…06a4 at0025 = ╱45╱E╱ // 0x699 @0x25
0x0674…06a4 at0026 = ╱ef╱ $ ╱ // 0x69a @0x26
0x0674…06a4 at0027 = ╱eb╱ + ╱ // 0x69b @0x27
0x0674…06a4 at0028 = ╱22╱"╱ // 0x69c @0x28
0x0674…06a4 at0029 = ╱50╱P╱ // 0x69d @0x29
0x0674…06a4 at002a = ╱41╱A╱ // 0x69e @0x2a
0x0674…06a4 at002b = ╱52╱R╱ // 0x69f @0x2b
0x0674…06a4 at002c = ╱41╱A╱ // 0x6a0 @0x2c
0x0674…06a4 at002d = ╱4d╱M╱ // 0x6a1 @0x2d
0x0674…06a4 at002e = ╱22╱"╱ // 0x6a2 @0x2e
0x0674…06a4 at002f = EOL // 0x6a3 @0x2f
0x0674…06a4 }
0x06a4…06bd 9cab 00570 EXEC OPENFIL ( PARAM $ , "R" )
0x06a4…06bd LineComal80 {
0x06a4…06bd ptr = 0x9cab // 0x6a4 @0x0
0x06a4…06bd lno = 0x023a // 0x6a6 @0x2
0x06a4…06bd at0004 = ╱9d╱ EXEC ╱ // 0x6a8 @0x4
0x06a4…06bd at0005 = ╱4f╱O╱ // 0x6a9 @0x5
0x06a4…06bd at0006 = ╱50╱P╱ // 0x6aa @0x6
0x06a4…06bd at0007 = ╱45╱E╱ // 0x6ab @0x7
0x06a4…06bd at0008 = ╱4e╱N╱ // 0x6ac @0x8
0x06a4…06bd at0009 = ╱46╱F╱ // 0x6ad @0x9
0x06a4…06bd at000a = ╱49╱I╱ // 0x6ae @0xa
0x06a4…06bd at000b = ╱4c╱L╱ // 0x6af @0xb
0x06a4…06bd at000c = ╱ed╱ ( ╱ // 0x6b0 @0xc
0x06a4…06bd at000d = ╱50╱P╱ // 0x6b1 @0xd
0x06a4…06bd at000e = ╱41╱A╱ // 0x6b2 @0xe
0x06a4…06bd at000f = ╱52╱R╱ // 0x6b3 @0xf
0x06a4…06bd at0010 = ╱41╱A╱ // 0x6b4 @0x10
0x06a4…06bd at0011 = ╱4d╱M╱ // 0x6b5 @0x11
0x06a4…06bd at0012 = ╱ef╱ $ ╱ // 0x6b6 @0x12
0x06a4…06bd at0013 = ╱ec╱ , ╱ // 0x6b7 @0x13
0x06a4…06bd at0014 = ╱22╱"╱ // 0x6b8 @0x14
0x06a4…06bd at0015 = ╱52╱R╱ // 0x6b9 @0x15
0x06a4…06bd at0016 = ╱22╱"╱ // 0x6ba @0x16
0x06a4…06bd at0017 = ╱ee╱ ) ╱ // 0x6bb @0x17
0x06a4…06bd at0018 = EOL // 0x6bc @0x18
0x06a4…06bd }
0x06bd…06e8 9cd6 00580 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x06bd…06e8 LineComal80 {
0x06bd…06e8 ptr = 0x9cd6 // 0x6bd @0x0
0x06bd…06e8 lno = 0x0244 // 0x6bf @0x2
0x06bd…06e8 at0004 = ╱a9╱ GET ╱ // 0x6c1 @0x4
0x06bd…06e8 at0005 = ╱50╱P╱ // 0x6c2 @0x5
0x06bd…06e8 at0006 = ╱41╱A╱ // 0x6c3 @0x6
0x06bd…06e8 at0007 = ╱52╱R╱ // 0x6c4 @0x7
0x06bd…06e8 at0008 = ╱41╱A╱ // 0x6c5 @0x8
0x06bd…06e8 at0009 = ╱4d╱M╱ // 0x6c6 @0x9
0x06bd…06e8 at000a = ╱ef╱ $ ╱ // 0x6c7 @0xa
0x06bd…06e8 at000b = ╱ec╱ , ╱ // 0x6c8 @0xb
0x06bd…06e8 at000c = ╱31╱1╱ // 0x6c9 @0xc
0x06bd…06e8 at000d = ╱f20100╱ // 0x6ca @0xd
0x06bd…06e8 at0010 = ╱f1╱ : ╱ // 0x6cd @0x10
0x06bd…06e8 at0011 = ╱46╱F╱ // 0x6ce @0x11
0x06bd…06e8 at0012 = ╱49╱I╱ // 0x6cf @0x12
0x06bd…06e8 at0013 = ╱52╱R╱ // 0x6d0 @0x13
0x06bd…06e8 at0014 = ╱4d╱M╱ // 0x6d1 @0x14
0x06bd…06e8 at0015 = ╱41╱A╱ // 0x6d2 @0x15
0x06bd…06e8 at0016 = ╱4e╱N╱ // 0x6d3 @0x16
0x06bd…06e8 at0017 = ╱41╱A╱ // 0x6d4 @0x17
0x06bd…06e8 at0018 = ╱56╱V╱ // 0x6d5 @0x18
0x06bd…06e8 at0019 = ╱4e╱N╱ // 0x6d6 @0x19
0x06bd…06e8 at001a = ╱ef╱ $ ╱ // 0x6d7 @0x1a
0x06bd…06e8 at001b = ╱ec╱ , ╱ // 0x6d8 @0x1b
0x06bd…06e8 at001c = ╱53╱S╱ // 0x6d9 @0x1c
0x06bd…06e8 at001d = ╱59╱Y╱ // 0x6da @0x1d
0x06bd…06e8 at001e = ╱53╱S╱ // 0x6db @0x1e
0x06bd…06e8 at001f = ╱54╱T╱ // 0x6dc @0x1f
0x06bd…06e8 at0020 = ╱5f╱_╱ // 0x6dd @0x20
0x06bd…06e8 at0021 = ╱44╱D╱ // 0x6de @0x21
0x06bd…06e8 at0022 = ╱41╱A╱ // 0x6df @0x22
0x06bd…06e8 at0023 = ╱54╱T╱ // 0x6e0 @0x23
0x06bd…06e8 at0024 = ╱ef╱ $ ╱ // 0x6e1 @0x24
0x06bd…06e8 at0025 = ╱ec╱ , ╱ // 0x6e2 @0x25
0x06bd…06e8 at0026 = ╱4d╱M╱ // 0x6e3 @0x26
0x06bd…06e8 at0027 = ╱4f╱O╱ // 0x6e4 @0x27
0x06bd…06e8 at0028 = ╱4d╱M╱ // 0x6e5 @0x28
0x06bd…06e8 at0029 = ╱53╱S╱ // 0x6e6 @0x29
0x06bd…06e8 at002a = EOL // 0x6e7 @0x2a
0x06bd…06e8 }
0x06e8…06f4 9ce2 00590 CLOSE PARAM $
0x06e8…06f4 LineComal80 {
0x06e8…06f4 ptr = 0x9ce2 // 0x6e8 @0x0
0x06e8…06f4 lno = 0x024e // 0x6ea @0x2
0x06e8…06f4 at0004 = ╱a8╱ CLOSE ╱ // 0x6ec @0x4
0x06e8…06f4 at0005 = ╱50╱P╱ // 0x6ed @0x5
0x06e8…06f4 at0006 = ╱41╱A╱ // 0x6ee @0x6
0x06e8…06f4 at0007 = ╱52╱R╱ // 0x6ef @0x7
0x06e8…06f4 at0008 = ╱41╱A╱ // 0x6f0 @0x8
0x06e8…06f4 at0009 = ╱4d╱M╱ // 0x6f1 @0x9
0x06e8…06f4 at000a = ╱ef╱ $ ╱ // 0x6f2 @0xa
0x06e8…06f4 at000b = EOL // 0x6f3 @0xb
0x06e8…06f4 }
0x06f4…0701 9cef 00600 ENDPROC INITIER
0x06f4…0701 LineComal80 {
0x06f4…0701 ptr = 0x9cef // 0x6f4 @0x0
0x06f4…0701 lno = 0x0258 // 0x6f6 @0x2
0x06f4…0701 at0004 = ╱9f╱ ENDPROC ╱ // 0x6f8 @0x4
0x06f4…0701 at0005 = ╱49╱I╱ // 0x6f9 @0x5
0x06f4…0701 at0006 = ╱4e╱N╱ // 0x6fa @0x6
0x06f4…0701 at0007 = ╱49╱I╱ // 0x6fb @0x7
0x06f4…0701 at0008 = ╱54╱T╱ // 0x6fc @0x8
0x06f4…0701 at0009 = ╱49╱I╱ // 0x6fd @0x9
0x06f4…0701 at000a = ╱45╱E╱ // 0x6fe @0xa
0x06f4…0701 at000b = ╱52╱R╱ // 0x6ff @0xb
0x06f4…0701 at000c = EOL // 0x700 @0xc
0x06f4…0701 }
0x0701…0706 9cf4 00610
0x0701…0706 LineComal80 {
0x0701…0706 ptr = 0x9cf4 // 0x701 @0x0
0x0701…0706 lno = 0x0262 // 0x703 @0x2
0x0701…0706 at0004 = EOL // 0x705 @0x4
0x0701…0706 }
0x0706…0719 9d07 00620 PROC TERMINAL_IDX
0x0706…0719 LineComal80 {
0x0706…0719 ptr = 0x9d07 // 0x706 @0x0
0x0706…0719 lno = 0x026c // 0x708 @0x2
0x0706…0719 at0004 = ╱9e00╱ PROC ╱ // 0x70a @0x4
0x0706…0719 at0006 = ╱54╱T╱ // 0x70c @0x6
0x0706…0719 at0007 = ╱45╱E╱ // 0x70d @0x7
0x0706…0719 at0008 = ╱52╱R╱ // 0x70e @0x8
0x0706…0719 at0009 = ╱4d╱M╱ // 0x70f @0x9
0x0706…0719 at000a = ╱49╱I╱ // 0x710 @0xa
0x0706…0719 at000b = ╱4e╱N╱ // 0x711 @0xb
0x0706…0719 at000c = ╱41╱A╱ // 0x712 @0xc
0x0706…0719 at000d = ╱4c╱L╱ // 0x713 @0xd
0x0706…0719 at000e = ╱5f╱_╱ // 0x714 @0xe
0x0706…0719 at000f = ╱49╱I╱ // 0x715 @0xf
0x0706…0719 at0010 = ╱44╱D╱ // 0x716 @0x10
0x0706…0719 at0011 = ╱58╱X╱ // 0x717 @0x11
0x0706…0719 at0012 = EOL // 0x718 @0x12
0x0706…0719 }
0x0719…0733 9d21 00630 LET PPAR := 5 ; RESRV := 0
0x0719…0733 LineComal80 {
0x0719…0733 ptr = 0x9d21 // 0x719 @0x0
0x0719…0733 lno = 0x0276 // 0x71b @0x2
0x0719…0733 at0004 = ╱86╱ LET ╱ // 0x71d @0x4
0x0719…0733 at0005 = ╱50╱P╱ // 0x71e @0x5
0x0719…0733 at0006 = ╱50╱P╱ // 0x71f @0x6
0x0719…0733 at0007 = ╱41╱A╱ // 0x720 @0x7
0x0719…0733 at0008 = ╱52╱R╱ // 0x721 @0x8
0x0719…0733 at0009 = ╱f0╱ := ╱ // 0x722 @0x9
0x0719…0733 at000a = ╱35╱5╱ // 0x723 @0xa
0x0719…0733 at000b = ╱f20500╱ // 0x724 @0xb
0x0719…0733 at000e = ╱ea╱ ; ╱ // 0x727 @0xe
0x0719…0733 at000f = ╱52╱R╱ // 0x728 @0xf
0x0719…0733 at0010 = ╱45╱E╱ // 0x729 @0x10
0x0719…0733 at0011 = ╱53╱S╱ // 0x72a @0x11
0x0719…0733 at0012 = ╱52╱R╱ // 0x72b @0x12
0x0719…0733 at0013 = ╱56╱V╱ // 0x72c @0x13
0x0719…0733 at0014 = ╱f0╱ := ╱ // 0x72d @0x14
0x0719…0733 at0015 = ╱30╱0╱ // 0x72e @0x15
0x0719…0733 at0016 = ╱f20000╱ // 0x72f @0x16
0x0719…0733 at0019 = EOL // 0x732 @0x19
0x0719…0733 }
0x0733…0745 9d33 00640 CALL DIM "DDE:PRES"
0x0733…0745 LineComal80 {
0x0733…0745 ptr = 0x9d33 // 0x733 @0x0
0x0733…0745 lno = 0x0280 // 0x735 @0x2
0x0733…0745 at0004 = ╱ad02╱ CALL ╱ // 0x737 @0x4
0x0733…0745 at0006 = ╱87╱ DIM ╱ // 0x739 @0x6
0x0733…0745 at0007 = ╱22╱"╱ // 0x73a @0x7
0x0733…0745 at0008 = ╱44╱D╱ // 0x73b @0x8
0x0733…0745 at0009 = ╱44╱D╱ // 0x73c @0x9
0x0733…0745 at000a = ╱45╱E╱ // 0x73d @0xa
0x0733…0745 at000b = ╱3a╱:╱ // 0x73e @0xb
0x0733…0745 at000c = ╱50╱P╱ // 0x73f @0xc
0x0733…0745 at000d = ╱52╱R╱ // 0x740 @0xd
0x0733…0745 at000e = ╱45╱E╱ // 0x741 @0xe
0x0733…0745 at000f = ╱53╱S╱ // 0x742 @0xf
0x0733…0745 at0010 = ╱22╱"╱ // 0x743 @0x10
0x0733…0745 at0011 = EOL // 0x744 @0x11
0x0733…0745 }
0x0745…076e 9d5c 00650 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x0745…076e LineComal80 {
0x0745…076e ptr = 0x9d5c // 0x745 @0x0
0x0745…076e lno = 0x028a // 0x747 @0x2
0x0745…076e at0004 = ╱a9╱ GET ╱ // 0x749 @0x4
0x0745…076e at0005 = ╱53╱S╱ // 0x74a @0x5
0x0745…076e at0006 = ╱59╱Y╱ // 0x74b @0x6
0x0745…076e at0007 = ╱53╱S╱ // 0x74c @0x7
0x0745…076e at0008 = ╱50╱P╱ // 0x74d @0x8
0x0745…076e at0009 = ╱41╱A╱ // 0x74e @0x9
0x0745…076e at000a = ╱52╱R╱ // 0x74f @0xa
0x0745…076e at000b = ╱41╱A╱ // 0x750 @0xb
0x0745…076e at000c = ╱ef╱ $ ╱ // 0x751 @0xc
0x0745…076e at000d = ╱ec╱ , ╱ // 0x752 @0xd
0x0745…076e at000e = ╱31╱1╱ // 0x753 @0xe
0x0745…076e at000f = ╱f20100╱ // 0x754 @0xf
0x0745…076e at0012 = ╱e5╱ + ╱ // 0x757 @0x12
0x0745…076e at0013 = ╱52╱R╱ // 0x758 @0x13
0x0745…076e at0014 = ╱45╱E╱ // 0x759 @0x14
0x0745…076e at0015 = ╱53╱S╱ // 0x75a @0x15
0x0745…076e at0016 = ╱52╱R╱ // 0x75b @0x16
0x0745…076e at0017 = ╱56╱V╱ // 0x75c @0x17
0x0745…076e at0018 = ╱f1╱ : ╱ // 0x75d @0x18
0x0745…076e at0019 = ╱44╱D╱ // 0x75e @0x19
0x0745…076e at001a = ╱41╱A╱ // 0x75f @0x1a
0x0745…076e at001b = ╱54╱T╱ // 0x760 @0x1b
0x0745…076e at001c = ╱41╱A╱ // 0x761 @0x1c
0x0745…076e at001d = ╱46╱F╱ // 0x762 @0x1d
0x0745…076e at001e = ╱4c╱L╱ // 0x763 @0x1e
0x0745…076e at001f = ╱ef╱ $ ╱ // 0x764 @0x1f
0x0745…076e at0020 = ╱ec╱ , ╱ // 0x765 @0x20
0x0745…076e at0021 = ╱54╱T╱ // 0x766 @0x21
0x0745…076e at0022 = ╱5f╱_╱ // 0x767 @0x22
0x0745…076e at0023 = ╱4b╱K╱ // 0x768 @0x23
0x0745…076e at0024 = ╱4f╱O╱ // 0x769 @0x24
0x0745…076e at0025 = ╱44╱D╱ // 0x76a @0x25
0x0745…076e at0026 = ╱45╱E╱ // 0x76b @0x26
0x0745…076e at0027 = ╱ef╱ $ ╱ // 0x76c @0x27
0x0745…076e at0028 = EOL // 0x76d @0x28
0x0745…076e }
0x076e…0780 9d6e 00660 ENDPROC TERMINAL_IDX
0x076e…0780 LineComal80 {
0x076e…0780 ptr = 0x9d6e // 0x76e @0x0
0x076e…0780 lno = 0x0294 // 0x770 @0x2
0x076e…0780 at0004 = ╱9f╱ ENDPROC ╱ // 0x772 @0x4
0x076e…0780 at0005 = ╱54╱T╱ // 0x773 @0x5
0x076e…0780 at0006 = ╱45╱E╱ // 0x774 @0x6
0x076e…0780 at0007 = ╱52╱R╱ // 0x775 @0x7
0x076e…0780 at0008 = ╱4d╱M╱ // 0x776 @0x8
0x076e…0780 at0009 = ╱49╱I╱ // 0x777 @0x9
0x076e…0780 at000a = ╱4e╱N╱ // 0x778 @0xa
0x076e…0780 at000b = ╱41╱A╱ // 0x779 @0xb
0x076e…0780 at000c = ╱4c╱L╱ // 0x77a @0xc
0x076e…0780 at000d = ╱5f╱_╱ // 0x77b @0xd
0x076e…0780 at000e = ╱49╱I╱ // 0x77c @0xe
0x076e…0780 at000f = ╱44╱D╱ // 0x77d @0xf
0x076e…0780 at0010 = ╱58╱X╱ // 0x77e @0x10
0x076e…0780 at0011 = EOL // 0x77f @0x11
0x076e…0780 }
0x0780…0785 9d73 00670
0x0780…0785 LineComal80 {
0x0780…0785 ptr = 0x9d73 // 0x780 @0x0
0x0780…0785 lno = 0x029e // 0x782 @0x2
0x0780…0785 at0004 = EOL // 0x784 @0x4
0x0780…0785 }
0x0785…07a0 (25,) 9d8e 00680 PROC OPENFIL ( FNAVN $ , WAY $ )
0x0785…07a0 LineComal80 {
0x0785…07a0 ptr = 0x9d8e // 0x785 @0x0
0x0785…07a0 lno = 0x02a8 // 0x787 @0x2
0x0785…07a0 at0004 = ╱9e00╱ PROC ╱ // 0x789 @0x4
0x0785…07a0 at0006 = ╱4f╱O╱ // 0x78b @0x6
0x0785…07a0 at0007 = ╱50╱P╱ // 0x78c @0x7
0x0785…07a0 at0008 = ╱45╱E╱ // 0x78d @0x8
0x0785…07a0 at0009 = ╱4e╱N╱ // 0x78e @0x9
0x0785…07a0 at000a = ╱46╱F╱ // 0x78f @0xa
0x0785…07a0 at000b = ╱49╱I╱ // 0x790 @0xb
0x0785…07a0 at000c = ╱4c╱L╱ // 0x791 @0xc
0x0785…07a0 at000d = ╱ed╱ ( ╱ // 0x792 @0xd
0x0785…07a0 at000e = ╱46╱F╱ // 0x793 @0xe
0x0785…07a0 at000f = ╱4e╱N╱ // 0x794 @0xf
0x0785…07a0 at0010 = ╱41╱A╱ // 0x795 @0x10
0x0785…07a0 at0011 = ╱56╱V╱ // 0x796 @0x11
0x0785…07a0 at0012 = ╱4e╱N╱ // 0x797 @0x12
0x0785…07a0 at0013 = ╱ef╱ $ ╱ // 0x798 @0x13
0x0785…07a0 at0014 = ╱ec╱ , ╱ // 0x799 @0x14
0x0785…07a0 at0015 = ╱57╱W╱ // 0x79a @0x15
0x0785…07a0 at0016 = ╱41╱A╱ // 0x79b @0x16
0x0785…07a0 at0017 = ╱59╱Y╱ // 0x79c @0x17
0x0785…07a0 at0018 = ╱ef╱ $ ╱ // 0x79d @0x18
0x0785…07a0 at0019 = ╱ee╱ ) ╱ // 0x79e @0x19
0x0785…07a0 at001a = EOL // 0x79f @0x1a
0x0785…07a0 }
0x07a0…07a7 9d95 00690 REPEAT
0x07a0…07a7 LineComal80 {
0x07a0…07a7 ptr = 0x9d95 // 0x7a0 @0x0
0x07a0…07a7 lno = 0x02b2 // 0x7a2 @0x2
0x07a0…07a7 at0004 = ╱9700╱ REPEAT ╱ // 0x7a4 @0x4
0x07a0…07a7 at0006 = EOL // 0x7a6 @0x6
0x07a0…07a7 }
0x07a7…07c0 9dae 00700 IF AY $ = "W" OR WAY $ = "w" THEN
0x07a7…07c0 LineComal80 {
0x07a7…07c0 ptr = 0x9dae // 0x7a7 @0x0
0x07a7…07c0 lno = 0x02bc // 0x7a9 @0x2
0x07a7…07c0 at0004 = ╱9b0057╱ IF ╱ // 0x7ab @0x4
0x07a7…07c0 at0007 = ╱41╱A╱ // 0x7ae @0x7
0x07a7…07c0 at0008 = ╱59╱Y╱ // 0x7af @0x8
0x07a7…07c0 at0009 = ╱ef╱ $ ╱ // 0x7b0 @0x9
0x07a7…07c0 at000a = ╱df╱ = ╱ // 0x7b1 @0xa
0x07a7…07c0 at000b = ╱22╱"╱ // 0x7b2 @0xb
0x07a7…07c0 at000c = ╱57╱W╱ // 0x7b3 @0xc
0x07a7…07c0 at000d = ╱22╱"╱ // 0x7b4 @0xd
0x07a7…07c0 at000e = ╱d8╱ OR ╱ // 0x7b5 @0xe
0x07a7…07c0 at000f = ╱57╱W╱ // 0x7b6 @0xf
0x07a7…07c0 at0010 = ╱41╱A╱ // 0x7b7 @0x10
0x07a7…07c0 at0011 = ╱59╱Y╱ // 0x7b8 @0x11
0x07a7…07c0 at0012 = ╱ef╱ $ ╱ // 0x7b9 @0x12
0x07a7…07c0 at0013 = ╱df╱ = ╱ // 0x7ba @0x13
0x07a7…07c0 at0014 = ╱22╱"╱ // 0x7bb @0x14
0x07a7…07c0 at0015 = ╱77╱w╱ // 0x7bc @0x15
0x07a7…07c0 at0016 = ╱22╱"╱ // 0x7bd @0x16
0x07a7…07c0 at0017 = ╱b5╱ THEN ╱ // 0x7be @0x17
0x07a7…07c0 at0018 = EOL // 0x7bf @0x18
0x07a7…07c0 }
0x07c0…07ce 9dbc 00710 OPEN FNAVN $ , W
0x07c0…07ce LineComal80 {
0x07c0…07ce ptr = 0x9dbc // 0x7c0 @0x0
0x07c0…07ce lno = 0x02c6 // 0x7c2 @0x2
0x07c0…07ce at0004 = ╱a7╱ OPEN ╱ // 0x7c4 @0x4
0x07c0…07ce at0005 = ╱46╱F╱ // 0x7c5 @0x5
0x07c0…07ce at0006 = ╱4e╱N╱ // 0x7c6 @0x6
0x07c0…07ce at0007 = ╱41╱A╱ // 0x7c7 @0x7
0x07c0…07ce at0008 = ╱56╱V╱ // 0x7c8 @0x8
0x07c0…07ce at0009 = ╱4e╱N╱ // 0x7c9 @0x9
0x07c0…07ce at000a = ╱ef╱ $ ╱ // 0x7ca @0xa
0x07c0…07ce at000b = ╱ec╱ , ╱ // 0x7cb @0xb
0x07c0…07ce at000c = ╱57╱W╱ // 0x7cc @0xc
0x07c0…07ce at000d = EOL // 0x7cd @0xd
0x07c0…07ce }
0x07ce…07d5 9dc3 00720 ELSE
0x07ce…07d5 LineComal80 {
0x07ce…07d5 ptr = 0x9dc3 // 0x7ce @0x0
0x07ce…07d5 lno = 0x02d0 // 0x7d0 @0x2
0x07ce…07d5 at0004 = ╱9a00╱ ELSE ╱ // 0x7d2 @0x4
0x07ce…07d5 at0006 = EOL // 0x7d4 @0x6
0x07ce…07d5 }
0x07d5…07e3 9dd1 00730 OPEN FNAVN $ , R
0x07d5…07e3 LineComal80 {
0x07d5…07e3 ptr = 0x9dd1 // 0x7d5 @0x0
0x07d5…07e3 lno = 0x02da // 0x7d7 @0x2
0x07d5…07e3 at0004 = ╱a7╱ OPEN ╱ // 0x7d9 @0x4
0x07d5…07e3 at0005 = ╱46╱F╱ // 0x7da @0x5
0x07d5…07e3 at0006 = ╱4e╱N╱ // 0x7db @0x6
0x07d5…07e3 at0007 = ╱41╱A╱ // 0x7dc @0x7
0x07d5…07e3 at0008 = ╱56╱V╱ // 0x7dd @0x8
0x07d5…07e3 at0009 = ╱4e╱N╱ // 0x7de @0x9
0x07d5…07e3 at000a = ╱ef╱ $ ╱ // 0x7df @0xa
0x07d5…07e3 at000b = ╱ec╱ , ╱ // 0x7e0 @0xb
0x07d5…07e3 at000c = ╱52╱R╱ // 0x7e1 @0xc
0x07d5…07e3 at000d = EOL // 0x7e2 @0xd
0x07d5…07e3 }
0x07e3…07e9 9dd7 00740 ENDIF
0x07e3…07e9 LineComal80 {
0x07e3…07e9 ptr = 0x9dd7 // 0x7e3 @0x0
0x07e3…07e9 lno = 0x02e4 // 0x7e5 @0x2
0x07e3…07e9 at0004 = ╱9c╱ ENDIF ╱ // 0x7e7 @0x4
0x07e3…07e9 at0005 = EOL // 0x7e8 @0x5
0x07e3…07e9 }
0x07e9…07fa 9de8 00750 IF ( FNAVN $ ) THEN
0x07e9…07fa LineComal80 {
0x07e9…07fa ptr = 0x9de8 // 0x7e9 @0x0
0x07e9…07fa lno = 0x02ee // 0x7eb @0x2
0x07e9…07fa at0004 = ╱9b00cd╱ IF ╱ // 0x7ed @0x4
0x07e9…07fa at0007 = ╱ed╱ ( ╱ // 0x7f0 @0x7
0x07e9…07fa at0008 = ╱46╱F╱ // 0x7f1 @0x8
0x07e9…07fa at0009 = ╱4e╱N╱ // 0x7f2 @0x9
0x07e9…07fa at000a = ╱41╱A╱ // 0x7f3 @0xa
0x07e9…07fa at000b = ╱56╱V╱ // 0x7f4 @0xb
0x07e9…07fa at000c = ╱4e╱N╱ // 0x7f5 @0xc
0x07e9…07fa at000d = ╱ef╱ $ ╱ // 0x7f6 @0xd
0x07e9…07fa at000e = ╱ee╱ ) ╱ // 0x7f7 @0xe
0x07e9…07fa at000f = ╱b5╱ THEN ╱ // 0x7f8 @0xf
0x07e9…07fa at0010 = EOL // 0x7f9 @0x10
0x07e9…07fa }
0x07fa…0812 9e00 00760 PRINT "<SC0123>" ; CHR$ ( 7 )
0x07fa…0812 LineComal80 {
0x07fa…0812 ptr = 0x9e00 // 0x7fa @0x0
0x07fa…0812 lno = 0x02f8 // 0x7fc @0x2
0x07fa…0812 at0004 = ╱92╱ PRINT ╱ // 0x7fe @0x4
0x07fa…0812 at0005 = ╱22╱"╱ // 0x7ff @0x5
0x07fa…0812 at0006 = ╱3c╱<╱ // 0x800 @0x6
0x07fa…0812 at0007 = ╱53╱S╱ // 0x801 @0x7
0x07fa…0812 at0008 = ╱43╱C╱ // 0x802 @0x8
0x07fa…0812 at0009 = ╱30╱0╱ // 0x803 @0x9
0x07fa…0812 at000a = ╱31╱1╱ // 0x804 @0xa
0x07fa…0812 at000b = ╱32╱2╱ // 0x805 @0xb
0x07fa…0812 at000c = ╱33╱3╱ // 0x806 @0xc
0x07fa…0812 at000d = ╱3e╱>╱ // 0x807 @0xd
0x07fa…0812 at000e = ╱22╱"╱ // 0x808 @0xe
0x07fa…0812 at000f = ╱ea╱ ; ╱ // 0x809 @0xf
0x07fa…0812 at0010 = ╱d0╱ CHR$ ╱ // 0x80a @0x10
0x07fa…0812 at0011 = ╱ed╱ ( ╱ // 0x80b @0x11
0x07fa…0812 at0012 = ╱37╱7╱ // 0x80c @0x12
0x07fa…0812 at0013 = ╱f20700╱ // 0x80d @0x13
0x07fa…0812 at0016 = ╱ee╱ ) ╱ // 0x810 @0x16
0x07fa…0812 at0017 = EOL // 0x811 @0x17
0x07fa…0812 }
0x0812…0828 9e16 00770 IF ( FNAVN $ ) = 6 THEN
0x0812…0828 LineComal80 {
0x0812…0828 ptr = 0x9e16 // 0x812 @0x0
0x0812…0828 lno = 0x0302 // 0x814 @0x2
0x0812…0828 at0004 = ╱9b00cd╱ IF ╱ // 0x816 @0x4
0x0812…0828 at0007 = ╱ed╱ ( ╱ // 0x819 @0x7
0x0812…0828 at0008 = ╱46╱F╱ // 0x81a @0x8
0x0812…0828 at0009 = ╱4e╱N╱ // 0x81b @0x9
0x0812…0828 at000a = ╱41╱A╱ // 0x81c @0xa
0x0812…0828 at000b = ╱56╱V╱ // 0x81d @0xb
0x0812…0828 at000c = ╱4e╱N╱ // 0x81e @0xc
0x0812…0828 at000d = ╱ef╱ $ ╱ // 0x81f @0xd
0x0812…0828 at000e = ╱ee╱ ) ╱ // 0x820 @0xe
0x0812…0828 at000f = ╱df╱ = ╱ // 0x821 @0xf
0x0812…0828 at0010 = ╱36╱6╱ // 0x822 @0x10
0x0812…0828 at0011 = ╱f20600╱ // 0x823 @0x11
0x0812…0828 at0014 = ╱b5╱ THEN ╱ // 0x826 @0x14
0x0812…0828 at0015 = EOL // 0x827 @0x15
0x0812…0828 }
0x0828…086d 9e5b 00780 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x0828…086d LineComal80 {
0x0828…086d ptr = 0x9e5b // 0x828 @0x0
0x0828…086d lno = 0x030c // 0x82a @0x2
0x0828…086d at0004 = ╱92╱ PRINT ╱ // 0x82c @0x4
0x0828…086d at0005 = ╱22╱"╱ // 0x82d @0x5
0x0828…086d at0006 = ╱3c╱<╱ // 0x82e @0x6
0x0828…086d at0007 = ╱53╱S╱ // 0x82f @0x7
0x0828…086d at0008 = ╱43╱C╱ // 0x830 @0x8
0x0828…086d at0009 = ╱31╱1╱ // 0x831 @0x9
0x0828…086d at000a = ╱36╱6╱ // 0x832 @0xa
0x0828…086d at000b = ╱30╱0╱ // 0x833 @0xb
0x0828…086d at000c = ╱32╱2╱ // 0x834 @0xc
0x0828…086d at000d = ╱3e╱>╱ // 0x835 @0xd
0x0828…086d at000e = ╱2a╱*╱ // 0x836 @0xe
0x0828…086d at000f = ╱2a╱*╱ // 0x837 @0xf
0x0828…086d at0010 = ╱2a╱*╱ // 0x838 @0x10
0x0828…086d at0011 = ╱20╱…╱ // 0x839 @0x11
0x0828…086d at0012 = ╱46╱F╱ // 0x83a @0x12
0x0828…086d at0013 = ╱65╱e╱ // 0x83b @0x13
0x0828…086d at0014 = ╱6a╱j╱ // 0x83c @0x14
0x0828…086d at0015 = ╱6c╱l╱ // 0x83d @0x15
0x0828…086d at0016 = ╱20╱…╱ // 0x83e @0x16
0x0828…086d at0017 = ╱6e╱n╱ // 0x83f @0x17
0x0828…086d at0018 = ╱72╱r╱ // 0x840 @0x18
0x0828…086d at0019 = ╱2e╱.╱ // 0x841 @0x19
0x0828…086d at001a = ╱20╱…╱ // 0x842 @0x1a
0x0828…086d at001b = ╱36╱6╱ // 0x843 @0x1b
0x0828…086d at001c = ╱20╱…╱ // 0x844 @0x1c
0x0828…086d at001d = ╱2d╱-╱ // 0x845 @0x1d
0x0828…086d at001e = ╱20╱…╱ // 0x846 @0x1e
0x0828…086d at001f = ╱69╱i╱ // 0x847 @0x1f
0x0828…086d at0020 = ╱6e╱n╱ // 0x848 @0x20
0x0828…086d at0021 = ╱64╱d╱ // 0x849 @0x21
0x0828…086d at0022 = ╱73╱s╱ // 0x84a @0x22
0x0828…086d at0023 = ╱7b╱{╱ // 0x84b @0x23
0x0828…086d at0024 = ╱74╱t╱ // 0x84c @0x24
0x0828…086d at0025 = ╱20╱…╱ // 0x84d @0x25
0x0828…086d at0026 = ╱64╱d╱ // 0x84e @0x26
0x0828…086d at0027 = ╱69╱i╱ // 0x84f @0x27
0x0828…086d at0028 = ╱73╱s╱ // 0x850 @0x28
0x0828…086d at0029 = ╱6b╱k╱ // 0x851 @0x29
0x0828…086d at002a = ╱65╱e╱ // 0x852 @0x2a
0x0828…086d at002b = ╱74╱t╱ // 0x853 @0x2b
0x0828…086d at002c = ╱74╱t╱ // 0x854 @0x2c
0x0828…086d at002d = ╱65╱e╱ // 0x855 @0x2d
0x0828…086d at002e = ╱20╱…╱ // 0x856 @0x2e
0x0828…086d at002f = ╱6f╱o╱ // 0x857 @0x2f
0x0828…086d at0030 = ╱67╱g╱ // 0x858 @0x30
0x0828…086d at0031 = ╱20╱…╱ // 0x859 @0x31
0x0828…086d at0032 = ╱74╱t╱ // 0x85a @0x32
0x0828…086d at0033 = ╱72╱r╱ // 0x85b @0x33
0x0828…086d at0034 = ╱79╱y╱ // 0x85c @0x34
0x0828…086d at0035 = ╱6b╱k╱ // 0x85d @0x35
0x0828…086d at0036 = ╱20╱…╱ // 0x85e @0x36
0x0828…086d at0037 = ╱3c╱<╱ // 0x85f @0x37
0x0828…086d at0038 = ╱52╱R╱ // 0x860 @0x38
0x0828…086d at0039 = ╱45╱E╱ // 0x861 @0x39
0x0828…086d at003a = ╱54╱T╱ // 0x862 @0x3a
0x0828…086d at003b = ╱55╱U╱ // 0x863 @0x3b
0x0828…086d at003c = ╱52╱R╱ // 0x864 @0x3c
0x0828…086d at003d = ╱4e╱N╱ // 0x865 @0x3d
0x0828…086d at003e = ╱3e╱>╱ // 0x866 @0x3e
0x0828…086d at003f = ╱20╱…╱ // 0x867 @0x3f
0x0828…086d at0040 = ╱2a╱*╱ // 0x868 @0x40
0x0828…086d at0041 = ╱2a╱*╱ // 0x869 @0x41
0x0828…086d at0042 = ╱2a╱*╱ // 0x86a @0x42
0x0828…086d at0043 = ╱22╱"╱ // 0x86b @0x43
0x0828…086d at0044 = EOL // 0x86c @0x44
0x0828…086d }
0x086d…087b 9e69 00790 INPUT "" : SVAR $
0x086d…087b LineComal80 {
0x086d…087b ptr = 0x9e69 // 0x86d @0x0
0x086d…087b lno = 0x0316 // 0x86f @0x2
0x086d…087b at0004 = ╱91╱ INPUT ╱ // 0x871 @0x4
0x086d…087b at0005 = ╱22╱"╱ // 0x872 @0x5
0x086d…087b at0006 = ╱22╱"╱ // 0x873 @0x6
0x086d…087b at0007 = ╱f1╱ : ╱ // 0x874 @0x7
0x086d…087b at0008 = ╱53╱S╱ // 0x875 @0x8
0x086d…087b at0009 = ╱56╱V╱ // 0x876 @0x9
0x086d…087b at000a = ╱41╱A╱ // 0x877 @0xa
0x086d…087b at000b = ╱52╱R╱ // 0x878 @0xb
0x086d…087b at000c = ╱ef╱ $ ╱ // 0x879 @0xc
0x086d…087b at000d = EOL // 0x87a @0xd
0x086d…087b }
0x087b…0882 9e70 00800 ELSE
0x087b…0882 LineComal80 {
0x087b…0882 ptr = 0x9e70 // 0x87b @0x0
0x087b…0882 lno = 0x0320 // 0x87d @0x2
0x087b…0882 at0004 = ╱9a00╱ ELSE ╱ // 0x87f @0x4
0x087b…0882 at0006 = EOL // 0x881 @0x6
0x087b…0882 }
0x0882…08c3 9eb1 00810 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x0882…08c3 LineComal80 {
0x0882…08c3 ptr = 0x9eb1 // 0x882 @0x0
0x0882…08c3 lno = 0x032a // 0x884 @0x2
0x0882…08c3 at0004 = ╱92╱ PRINT ╱ // 0x886 @0x4
0x0882…08c3 at0005 = ╱22╱"╱ // 0x887 @0x5
0x0882…08c3 at0006 = ╱3c╱<╱ // 0x888 @0x6
0x0882…08c3 at0007 = ╱53╱S╱ // 0x889 @0x7
0x0882…08c3 at0008 = ╱43╱C╱ // 0x88a @0x8
0x0882…08c3 at0009 = ╱31╱1╱ // 0x88b @0x9
0x0882…08c3 at000a = ╱38╱8╱ // 0x88c @0xa
0x0882…08c3 at000b = ╱30╱0╱ // 0x88d @0xb
0x0882…08c3 at000c = ╱32╱2╱ // 0x88e @0xc
0x0882…08c3 at000d = ╱3e╱>╱ // 0x88f @0xd
0x0882…08c3 at000e = ╱2a╱*╱ // 0x890 @0xe
0x0882…08c3 at000f = ╱2a╱*╱ // 0x891 @0xf
0x0882…08c3 at0010 = ╱2a╱*╱ // 0x892 @0x10
0x0882…08c3 at0011 = ╱20╱…╱ // 0x893 @0x11
0x0882…08c3 at0012 = ╱46╱F╱ // 0x894 @0x12
0x0882…08c3 at0013 = ╱65╱e╱ // 0x895 @0x13
0x0882…08c3 at0014 = ╱6a╱j╱ // 0x896 @0x14
0x0882…08c3 at0015 = ╱6c╱l╱ // 0x897 @0x15
0x0882…08c3 at0016 = ╱20╱…╱ // 0x898 @0x16
0x0882…08c3 at0017 = ╱6e╱n╱ // 0x899 @0x17
0x0882…08c3 at0018 = ╱72╱r╱ // 0x89a @0x18
0x0882…08c3 at0019 = ╱2e╱.╱ // 0x89b @0x19
0x0882…08c3 at001a = ╱20╱…╱ // 0x89c @0x1a
0x0882…08c3 at001b = ╱22╱"╱ // 0x89d @0x1b
0x0882…08c3 at001c = ╱ea╱ ; ╱ // 0x89e @0x1c
0x0882…08c3 at001d = ╱d0╱ CHR$ ╱ // 0x89f @0x1d
0x0882…08c3 at001e = ╱ed╱ ( ╱ // 0x8a0 @0x1e
0x0882…08c3 at001f = ╱cd╱ // 0x8a1 @0x1f
0x0882…08c3 at0020 = ╱ed╱ ( ╱ // 0x8a2 @0x20
0x0882…08c3 at0021 = ╱46╱F╱ // 0x8a3 @0x21
0x0882…08c3 at0022 = ╱4e╱N╱ // 0x8a4 @0x22
0x0882…08c3 at0023 = ╱41╱A╱ // 0x8a5 @0x23
0x0882…08c3 at0024 = ╱56╱V╱ // 0x8a6 @0x24
0x0882…08c3 at0025 = ╱4e╱N╱ // 0x8a7 @0x25
0x0882…08c3 at0026 = ╱ef╱ $ ╱ // 0x8a8 @0x26
0x0882…08c3 at0027 = ╱ee╱ ) ╱ // 0x8a9 @0x27
0x0882…08c3 at0028 = ╱ec╱ , ╱ // 0x8aa @0x28
0x0882…08c3 at0029 = ╱32╱2╱ // 0x8ab @0x29
0x0882…08c3 at002a = ╱f20200╱ // 0x8ac @0x2a
0x0882…08c3 at002d = ╱ee╱ ) ╱ // 0x8af @0x2d
0x0882…08c3 at002e = ╱ea╱ ; ╱ // 0x8b0 @0x2e
0x0882…08c3 at002f = ╱22╱"╱ // 0x8b1 @0x2f
0x0882…08c3 at0030 = ╱20╱…╱ // 0x8b2 @0x30
0x0882…08c3 at0031 = ╱76╱v╱ // 0x8b3 @0x31
0x0882…08c3 at0032 = ╱65╱e╱ // 0x8b4 @0x32
0x0882…08c3 at0033 = ╱64╱d╱ // 0x8b5 @0x33
0x0882…08c3 at0034 = ╱20╱…╱ // 0x8b6 @0x34
0x0882…08c3 at0035 = ╱7d╱}╱ // 0x8b7 @0x35
0x0882…08c3 at0036 = ╱62╱b╱ // 0x8b8 @0x36
0x0882…08c3 at0037 = ╱6e╱n╱ // 0x8b9 @0x37
0x0882…08c3 at0038 = ╱69╱i╱ // 0x8ba @0x38
0x0882…08c3 at0039 = ╱6e╱n╱ // 0x8bb @0x39
0x0882…08c3 at003a = ╱67╱g╱ // 0x8bc @0x3a
0x0882…08c3 at003b = ╱20╱…╱ // 0x8bd @0x3b
0x0882…08c3 at003c = ╱61╱a╱ // 0x8be @0x3c
0x0882…08c3 at003d = ╱66╱f╱ // 0x8bf @0x3d
0x0882…08c3 at003e = ╱20╱…╱ // 0x8c0 @0x3e
0x0882…08c3 at003f = ╱22╱"╱ // 0x8c1 @0x3f
0x0882…08c3 at0040 = EOL // 0x8c2 @0x40
0x0882…08c3 }
0x08c3…08dc 9eca 00820 PRINT "<S>" ; FNAVN $ ; "…***"
0x08c3…08dc LineComal80 {
0x08c3…08dc ptr = 0x9eca // 0x8c3 @0x0
0x08c3…08dc lno = 0x0334 // 0x8c5 @0x2
0x08c3…08dc at0004 = ╱92╱ PRINT ╱ // 0x8c7 @0x4
0x08c3…08dc at0005 = ╱22╱"╱ // 0x8c8 @0x5
0x08c3…08dc at0006 = ╱3c╱<╱ // 0x8c9 @0x6
0x08c3…08dc at0007 = ╱53╱S╱ // 0x8ca @0x7
0x08c3…08dc at0008 = ╱3e╱>╱ // 0x8cb @0x8
0x08c3…08dc at0009 = ╱22╱"╱ // 0x8cc @0x9
0x08c3…08dc at000a = ╱ea╱ ; ╱ // 0x8cd @0xa
0x08c3…08dc at000b = ╱46╱F╱ // 0x8ce @0xb
0x08c3…08dc at000c = ╱4e╱N╱ // 0x8cf @0xc
0x08c3…08dc at000d = ╱41╱A╱ // 0x8d0 @0xd
0x08c3…08dc at000e = ╱56╱V╱ // 0x8d1 @0xe
0x08c3…08dc at000f = ╱4e╱N╱ // 0x8d2 @0xf
0x08c3…08dc at0010 = ╱ef╱ $ ╱ // 0x8d3 @0x10
0x08c3…08dc at0011 = ╱ea╱ ; ╱ // 0x8d4 @0x11
0x08c3…08dc at0012 = ╱22╱"╱ // 0x8d5 @0x12
0x08c3…08dc at0013 = ╱20╱…╱ // 0x8d6 @0x13
0x08c3…08dc at0014 = ╱2a╱*╱ // 0x8d7 @0x14
0x08c3…08dc at0015 = ╱2a╱*╱ // 0x8d8 @0x15
0x08c3…08dc at0016 = ╱2a╱*╱ // 0x8d9 @0x16
0x08c3…08dc at0017 = ╱22╱"╱ // 0x8da @0x17
0x08c3…08dc at0018 = EOL // 0x8db @0x18
0x08c3…08dc }
0x08dc…08ea 9ed8 00830 INPUT "" : SVAR $
0x08dc…08ea LineComal80 {
0x08dc…08ea ptr = 0x9ed8 // 0x8dc @0x0
0x08dc…08ea lno = 0x033e // 0x8de @0x2
0x08dc…08ea at0004 = ╱91╱ INPUT ╱ // 0x8e0 @0x4
0x08dc…08ea at0005 = ╱22╱"╱ // 0x8e1 @0x5
0x08dc…08ea at0006 = ╱22╱"╱ // 0x8e2 @0x6
0x08dc…08ea at0007 = ╱f1╱ : ╱ // 0x8e3 @0x7
0x08dc…08ea at0008 = ╱53╱S╱ // 0x8e4 @0x8
0x08dc…08ea at0009 = ╱56╱V╱ // 0x8e5 @0x9
0x08dc…08ea at000a = ╱41╱A╱ // 0x8e6 @0xa
0x08dc…08ea at000b = ╱52╱R╱ // 0x8e7 @0xb
0x08dc…08ea at000c = ╱ef╱ $ ╱ // 0x8e8 @0xc
0x08dc…08ea at000d = EOL // 0x8e9 @0xd
0x08dc…08ea }
0x08ea…08fe 9eec 00840 PRINT "<C0102>" ; SPC $
0x08ea…08fe LineComal80 {
0x08ea…08fe ptr = 0x9eec // 0x8ea @0x0
0x08ea…08fe lno = 0x0348 // 0x8ec @0x2
0x08ea…08fe at0004 = ╱92╱ PRINT ╱ // 0x8ee @0x4
0x08ea…08fe at0005 = ╱22╱"╱ // 0x8ef @0x5
0x08ea…08fe at0006 = ╱3c╱<╱ // 0x8f0 @0x6
0x08ea…08fe at0007 = ╱43╱C╱ // 0x8f1 @0x7
0x08ea…08fe at0008 = ╱30╱0╱ // 0x8f2 @0x8
0x08ea…08fe at0009 = ╱31╱1╱ // 0x8f3 @0x9
0x08ea…08fe at000a = ╱30╱0╱ // 0x8f4 @0xa
0x08ea…08fe at000b = ╱32╱2╱ // 0x8f5 @0xb
0x08ea…08fe at000c = ╱3e╱>╱ // 0x8f6 @0xc
0x08ea…08fe at000d = ╱22╱"╱ // 0x8f7 @0xd
0x08ea…08fe at000e = ╱ea╱ ; ╱ // 0x8f8 @0xe
0x08ea…08fe at000f = ╱53╱S╱ // 0x8f9 @0xf
0x08ea…08fe at0010 = ╱50╱P╱ // 0x8fa @0x10
0x08ea…08fe at0011 = ╱43╱C╱ // 0x8fb @0x11
0x08ea…08fe at0012 = ╱ef╱ $ ╱ // 0x8fc @0x12
0x08ea…08fe at0013 = EOL // 0x8fd @0x13
0x08ea…08fe }
0x08fe…0904 9ef2 00850 ENDIF
0x08fe…0904 LineComal80 {
0x08fe…0904 ptr = 0x9ef2 // 0x8fe @0x0
0x08fe…0904 lno = 0x0352 // 0x900 @0x2
0x08fe…0904 at0004 = ╱9c╱ ENDIF ╱ // 0x902 @0x4
0x08fe…0904 at0005 = EOL // 0x903 @0x5
0x08fe…0904 }
0x0904…090a 9ef8 00860 ENDIF
0x0904…090a LineComal80 {
0x0904…090a ptr = 0x9ef8 // 0x904 @0x0
0x0904…090a lno = 0x035c // 0x906 @0x2
0x0904…090a at0004 = ╱9c╱ ENDIF ╱ // 0x908 @0x4
0x0904…090a at0005 = EOL // 0x909 @0x5
0x0904…090a }
0x090a…091a 9f08 00870 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x090a…091a LineComal80 {
0x090a…091a ptr = 0x9f08 // 0x90a @0x0
0x090a…091a lno = 0x0366 // 0x90c @0x2
0x090a…091a at0004 = ╱98╱ UNTIL ╱ // 0x90e @0x4
0x090a…091a at0005 = ╱d7╱ NOT ╱ // 0x90f @0x5
0x090a…091a at0006 = ╱cd╱ // 0x910 @0x6
0x090a…091a at0007 = ╱ed╱ ( ╱ // 0x911 @0x7
0x090a…091a at0008 = ╱46╱F╱ // 0x912 @0x8
0x090a…091a at0009 = ╱4e╱N╱ // 0x913 @0x9
0x090a…091a at000a = ╱41╱A╱ // 0x914 @0xa
0x090a…091a at000b = ╱56╱V╱ // 0x915 @0xb
0x090a…091a at000c = ╱4e╱N╱ // 0x916 @0xc
0x090a…091a at000d = ╱ef╱ $ ╱ // 0x917 @0xd
0x090a…091a at000e = ╱ee╱ ) ╱ // 0x918 @0xe
0x090a…091a at000f = EOL // 0x919 @0xf
0x090a…091a }
0x091a…0927 9f15 00880 ENDPROC OPENFIL
0x091a…0927 LineComal80 {
0x091a…0927 ptr = 0x9f15 // 0x91a @0x0
0x091a…0927 lno = 0x0370 // 0x91c @0x2
0x091a…0927 at0004 = ╱9f╱ ENDPROC ╱ // 0x91e @0x4
0x091a…0927 at0005 = ╱4f╱O╱ // 0x91f @0x5
0x091a…0927 at0006 = ╱50╱P╱ // 0x920 @0x6
0x091a…0927 at0007 = ╱45╱E╱ // 0x921 @0x7
0x091a…0927 at0008 = ╱4e╱N╱ // 0x922 @0x8
0x091a…0927 at0009 = ╱46╱F╱ // 0x923 @0x9
0x091a…0927 at000a = ╱49╱I╱ // 0x924 @0xa
0x091a…0927 at000b = ╱4c╱L╱ // 0x925 @0xb
0x091a…0927 at000c = EOL // 0x926 @0xc
0x091a…0927 }
0x0927…092c 9f1a 00890
0x0927…092c LineComal80 {
0x0927…092c ptr = 0x9f1a // 0x927 @0x0
0x0927…092c lno = 0x037a // 0x929 @0x2
0x0927…092c at0004 = EOL // 0x92b @0x4
0x0927…092c }
0x092c…0944 9f32 00900 PROC OVERSKRIFT ( ST $ , L )
0x092c…0944 LineComal80 {
0x092c…0944 ptr = 0x9f32 // 0x92c @0x0
0x092c…0944 lno = 0x0384 // 0x92e @0x2
0x092c…0944 at0004 = ╱9e00╱ PROC ╱ // 0x930 @0x4
0x092c…0944 at0006 = ╱4f╱O╱ // 0x932 @0x6
0x092c…0944 at0007 = ╱56╱V╱ // 0x933 @0x7
0x092c…0944 at0008 = ╱45╱E╱ // 0x934 @0x8
0x092c…0944 at0009 = ╱52╱R╱ // 0x935 @0x9
0x092c…0944 at000a = ╱53╱S╱ // 0x936 @0xa
0x092c…0944 at000b = ╱4b╱K╱ // 0x937 @0xb
0x092c…0944 at000c = ╱52╱R╱ // 0x938 @0xc
0x092c…0944 at000d = ╱49╱I╱ // 0x939 @0xd
0x092c…0944 at000e = ╱46╱F╱ // 0x93a @0xe
0x092c…0944 at000f = ╱54╱T╱ // 0x93b @0xf
0x092c…0944 at0010 = ╱ed╱ ( ╱ // 0x93c @0x10
0x092c…0944 at0011 = ╱53╱S╱ // 0x93d @0x11
0x092c…0944 at0012 = ╱54╱T╱ // 0x93e @0x12
0x092c…0944 at0013 = ╱ef╱ $ ╱ // 0x93f @0x13
0x092c…0944 at0014 = ╱ec╱ , ╱ // 0x940 @0x14
0x092c…0944 at0015 = ╱4c╱L╱ // 0x941 @0x15
0x092c…0944 at0016 = ╱ee╱ ) ╱ // 0x942 @0x16
0x092c…0944 at0017 = EOL // 0x943 @0x17
0x092c…0944 }
0x0944…096a 9f58 00910 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x0944…096a LineComal80 {
0x0944…096a ptr = 0x9f58 // 0x944 @0x0
0x0944…096a lno = 0x038e // 0x946 @0x2
0x0944…096a at0004 = ╱92╱ PRINT ╱ // 0x948 @0x4
0x0944…096a at0005 = ╱22╱"╱ // 0x949 @0x5
0x0944…096a at0006 = ╱3c╱<╱ // 0x94a @0x6
0x0944…096a at0007 = ╱58╱X╱ // 0x94b @0x7
0x0944…096a at0008 = ╱43╱C╱ // 0x94c @0x8
0x0944…096a at0009 = ╱30╱0╱ // 0x94d @0x9
0x0944…096a at000a = ╱31╱1╱ // 0x94e @0xa
0x0944…096a at000b = ╱30╱0╱ // 0x94f @0xb
0x0944…096a at000c = ╱31╱1╱ // 0x950 @0xc
0x0944…096a at000d = ╱3e╱>╱ // 0x951 @0xd
0x0944…096a at000e = ╱46╱F╱ // 0x952 @0xe
0x0944…096a at000f = ╱69╱i╱ // 0x953 @0xf
0x0944…096a at0010 = ╱72╱r╱ // 0x954 @0x10
0x0944…096a at0011 = ╱6d╱m╱ // 0x955 @0x11
0x0944…096a at0012 = ╱61╱a╱ // 0x956 @0x12
0x0944…096a at0013 = ╱6e╱n╱ // 0x957 @0x13
0x0944…096a at0014 = ╱61╱a╱ // 0x958 @0x14
0x0944…096a at0015 = ╱76╱v╱ // 0x959 @0x15
0x0944…096a at0016 = ╱6e╱n╱ // 0x95a @0x16
0x0944…096a at0017 = ╱3a╱:╱ // 0x95b @0x17
0x0944…096a at0018 = ╱20╱…╱ // 0x95c @0x18
0x0944…096a at0019 = ╱22╱"╱ // 0x95d @0x19
0x0944…096a at001a = ╱ea╱ ; ╱ // 0x95e @0x1a
0x0944…096a at001b = ╱46╱F╱ // 0x95f @0x1b
0x0944…096a at001c = ╱49╱I╱ // 0x960 @0x1c
0x0944…096a at001d = ╱52╱R╱ // 0x961 @0x1d
0x0944…096a at001e = ╱4d╱M╱ // 0x962 @0x1e
0x0944…096a at001f = ╱41╱A╱ // 0x963 @0x1f
0x0944…096a at0020 = ╱4e╱N╱ // 0x964 @0x20
0x0944…096a at0021 = ╱41╱A╱ // 0x965 @0x21
0x0944…096a at0022 = ╱56╱V╱ // 0x966 @0x22
0x0944…096a at0023 = ╱4e╱N╱ // 0x967 @0x23
0x0944…096a at0024 = ╱ef╱ $ ╱ // 0x968 @0x24
0x0944…096a at0025 = EOL // 0x969 @0x25
0x0944…096a }
0x096a…09b2 9fa0 00920 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x096a…09b2 LineComal80 {
0x096a…09b2 ptr = 0x9fa0 // 0x96a @0x0
0x096a…09b2 lno = 0x0398 // 0x96c @0x2
0x096a…09b2 at0004 = ╱92╱ PRINT ╱ // 0x96e @0x4
0x096a…09b2 at0005 = ╱22╱"╱ // 0x96f @0x5
0x096a…09b2 at0006 = ╱3c╱<╱ // 0x970 @0x6
0x096a…09b2 at0007 = ╱53╱S╱ // 0x971 @0x7
0x096a…09b2 at0008 = ╱43╱C╱ // 0x972 @0x8
0x096a…09b2 at0009 = ╱36╱6╱ // 0x973 @0x9
0x096a…09b2 at000a = ╱35╱5╱ // 0x974 @0xa
0x096a…09b2 at000b = ╱30╱0╱ // 0x975 @0xb
0x096a…09b2 at000c = ╱31╱1╱ // 0x976 @0xc
0x096a…09b2 at000d = ╱3e╱>╱ // 0x977 @0xd
0x096a…09b2 at000e = ╱44╱D╱ // 0x978 @0xe
0x096a…09b2 at000f = ╱61╱a╱ // 0x979 @0xf
0x096a…09b2 at0010 = ╱74╱t╱ // 0x97a @0x10
0x096a…09b2 at0011 = ╱6f╱o╱ // 0x97b @0x11
0x096a…09b2 at0012 = ╱3a╱:╱ // 0x97c @0x12
0x096a…09b2 at0013 = ╱20╱…╱ // 0x97d @0x13
0x096a…09b2 at0014 = ╱22╱"╱ // 0x97e @0x14
0x096a…09b2 at0015 = ╱ea╱ ; ╱ // 0x97f @0x15
0x096a…09b2 at0016 = ╱53╱S╱ // 0x980 @0x16
0x096a…09b2 at0017 = ╱59╱Y╱ // 0x981 @0x17
0x096a…09b2 at0018 = ╱53╱S╱ // 0x982 @0x18
0x096a…09b2 at0019 = ╱54╱T╱ // 0x983 @0x19
0x096a…09b2 at001a = ╱5f╱_╱ // 0x984 @0x1a
0x096a…09b2 at001b = ╱44╱D╱ // 0x985 @0x1b
0x096a…09b2 at001c = ╱41╱A╱ // 0x986 @0x1c
0x096a…09b2 at001d = ╱54╱T╱ // 0x987 @0x1d
0x096a…09b2 at001e = ╱ef╱ $ ╱ // 0x988 @0x1e
0x096a…09b2 at001f = ╱ed╱ ( ╱ // 0x989 @0x1f
0x096a…09b2 at0020 = ╱31╱1╱ // 0x98a @0x20
0x096a…09b2 at0021 = ╱f20100╱ // 0x98b @0x21
0x096a…09b2 at0024 = ╱f1╱ : ╱ // 0x98e @0x24
0x096a…09b2 at0025 = ╱32╱2╱ // 0x98f @0x25
0x096a…09b2 at0026 = ╱f20200╱ // 0x990 @0x26
0x096a…09b2 at0029 = ╱ee╱ ) ╱ // 0x993 @0x29
0x096a…09b2 at002a = ╱ea╱ ; ╱ // 0x994 @0x2a
0x096a…09b2 at002b = ╱22╱"╱ // 0x995 @0x2b
0x096a…09b2 at002c = ╱2e╱.╱ // 0x996 @0x2c
0x096a…09b2 at002d = ╱22╱"╱ // 0x997 @0x2d
0x096a…09b2 at002e = ╱ea╱ ; ╱ // 0x998 @0x2e
0x096a…09b2 at002f = ╱53╱S╱ // 0x999 @0x2f
0x096a…09b2 at0030 = ╱59╱Y╱ // 0x99a @0x30
0x096a…09b2 at0031 = ╱53╱S╱ // 0x99b @0x31
0x096a…09b2 at0032 = ╱54╱T╱ // 0x99c @0x32
0x096a…09b2 at0033 = ╱5f╱_╱ // 0x99d @0x33
0x096a…09b2 at0034 = ╱44╱D╱ // 0x99e @0x34
0x096a…09b2 at0035 = ╱41╱A╱ // 0x99f @0x35
0x096a…09b2 at0036 = ╱54╱T╱ // 0x9a0 @0x36
0x096a…09b2 at0037 = ╱ef╱ $ ╱ // 0x9a1 @0x37
0x096a…09b2 at0038 = ╱ed╱ ( ╱ // 0x9a2 @0x38
0x096a…09b2 at0039 = ╱33╱3╱ // 0x9a3 @0x39
0x096a…09b2 at003a = ╱f20300╱ // 0x9a4 @0x3a
0x096a…09b2 at003d = ╱f1╱ : ╱ // 0x9a7 @0x3d
0x096a…09b2 at003e = ╱32╱2╱ // 0x9a8 @0x3e
0x096a…09b2 at003f = ╱f20200╱ // 0x9a9 @0x3f
0x096a…09b2 at0042 = ╱ee╱ ) ╱ // 0x9ac @0x42
0x096a…09b2 at0043 = ╱ea╱ ; ╱ // 0x9ad @0x43
0x096a…09b2 at0044 = ╱22╱"╱ // 0x9ae @0x44
0x096a…09b2 at0045 = ╱2e╱.╱ // 0x9af @0x45
0x096a…09b2 at0046 = ╱22╱"╱ // 0x9b0 @0x46
0x096a…09b2 at0047 = EOL // 0x9b1 @0x47
0x096a…09b2 }
0x09b2…09cc 9fba 00930 PRINT SYST_DAT $ ( 5 : 2 )
0x09b2…09cc LineComal80 {
0x09b2…09cc ptr = 0x9fba // 0x9b2 @0x0
0x09b2…09cc lno = 0x03a2 // 0x9b4 @0x2
0x09b2…09cc at0004 = ╱92╱ PRINT ╱ // 0x9b6 @0x4
0x09b2…09cc at0005 = ╱53╱S╱ // 0x9b7 @0x5
0x09b2…09cc at0006 = ╱59╱Y╱ // 0x9b8 @0x6
0x09b2…09cc at0007 = ╱53╱S╱ // 0x9b9 @0x7
0x09b2…09cc at0008 = ╱54╱T╱ // 0x9ba @0x8
0x09b2…09cc at0009 = ╱5f╱_╱ // 0x9bb @0x9
0x09b2…09cc at000a = ╱44╱D╱ // 0x9bc @0xa
0x09b2…09cc at000b = ╱41╱A╱ // 0x9bd @0xb
0x09b2…09cc at000c = ╱54╱T╱ // 0x9be @0xc
0x09b2…09cc at000d = ╱ef╱ $ ╱ // 0x9bf @0xd
0x09b2…09cc at000e = ╱ed╱ ( ╱ // 0x9c0 @0xe
0x09b2…09cc at000f = ╱35╱5╱ // 0x9c1 @0xf
0x09b2…09cc at0010 = ╱f20500╱ // 0x9c2 @0x10
0x09b2…09cc at0013 = ╱f1╱ : ╱ // 0x9c5 @0x13
0x09b2…09cc at0014 = ╱32╱2╱ // 0x9c6 @0x14
0x09b2…09cc at0015 = ╱f20200╱ // 0x9c7 @0x15
0x09b2…09cc at0018 = ╱ee╱ ) ╱ // 0x9ca @0x18
0x09b2…09cc at0019 = EOL // 0x9cb @0x19
0x09b2…09cc }
0x09cc…09e8 9fd6 00940 CURSOR 36 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
0x09cc…09e8 LineComal80 {
0x09cc…09e8 ptr = 0x9fd6 // 0x9cc @0x0
0x09cc…09e8 lno = 0x03ac // 0x9ce @0x2
0x09cc…09e8 at0004 = ╱a1╱ CURSOR ╱ // 0x9d0 @0x4
0x09cc…09e8 at0005 = ╱33╱3╱ // 0x9d1 @0x5
0x09cc…09e8 at0006 = ╱36╱6╱ // 0x9d2 @0x6
0x09cc…09e8 at0007 = ╱f22400╱ // 0x9d3 @0x7
0x09cc…09e8 at000a = ╱e6╱ - ╱ // 0x9d6 @0xa
0x09cc…09e8 at000b = ╱c6╱ INT ╱ // 0x9d7 @0xb
0x09cc…09e8 at000c = ╱ed╱ ( ╱ // 0x9d8 @0xc
0x09cc…09e8 at000d = ╱cb╱ // 0x9d9 @0xd
0x09cc…09e8 at000e = ╱ed╱ ( ╱ // 0x9da @0xe
0x09cc…09e8 at000f = ╱53╱S╱ // 0x9db @0xf
0x09cc…09e8 at0010 = ╱54╱T╱ // 0x9dc @0x10
0x09cc…09e8 at0011 = ╱ef╱ $ ╱ // 0x9dd @0x11
0x09cc…09e8 at0012 = ╱ee╱ ) ╱ // 0x9de @0x12
0x09cc…09e8 at0013 = ╱e8╱ / ╱ // 0x9df @0x13
0x09cc…09e8 at0014 = ╱32╱2╱ // 0x9e0 @0x14
0x09cc…09e8 at0015 = ╱f20200╱ // 0x9e1 @0x15
0x09cc…09e8 at0018 = ╱ee╱ ) ╱ // 0x9e4 @0x18
0x09cc…09e8 at0019 = ╱ec╱ , ╱ // 0x9e5 @0x19
0x09cc…09e8 at001a = ╱4c╱L╱ // 0x9e6 @0x1a
0x09cc…09e8 at001b = EOL // 0x9e7 @0x1b
0x09cc…09e8 }
0x09e8…09ff 9fed 00950 PRINT "***…" ; ST $ ; "…***"
0x09e8…09ff LineComal80 {
0x09e8…09ff ptr = 0x9fed // 0x9e8 @0x0
0x09e8…09ff lno = 0x03b6 // 0x9ea @0x2
0x09e8…09ff at0004 = ╱92╱ PRINT ╱ // 0x9ec @0x4
0x09e8…09ff at0005 = ╱22╱"╱ // 0x9ed @0x5
0x09e8…09ff at0006 = ╱2a╱*╱ // 0x9ee @0x6
0x09e8…09ff at0007 = ╱2a╱*╱ // 0x9ef @0x7
0x09e8…09ff at0008 = ╱2a╱*╱ // 0x9f0 @0x8
0x09e8…09ff at0009 = ╱20╱…╱ // 0x9f1 @0x9
0x09e8…09ff at000a = ╱22╱"╱ // 0x9f2 @0xa
0x09e8…09ff at000b = ╱ea╱ ; ╱ // 0x9f3 @0xb
0x09e8…09ff at000c = ╱53╱S╱ // 0x9f4 @0xc
0x09e8…09ff at000d = ╱54╱T╱ // 0x9f5 @0xd
0x09e8…09ff at000e = ╱ef╱ $ ╱ // 0x9f6 @0xe
0x09e8…09ff at000f = ╱ea╱ ; ╱ // 0x9f7 @0xf
0x09e8…09ff at0010 = ╱22╱"╱ // 0x9f8 @0x10
0x09e8…09ff at0011 = ╱20╱…╱ // 0x9f9 @0x11
0x09e8…09ff at0012 = ╱2a╱*╱ // 0x9fa @0x12
0x09e8…09ff at0013 = ╱2a╱*╱ // 0x9fb @0x13
0x09e8…09ff at0014 = ╱2a╱*╱ // 0x9fc @0x14
0x09e8…09ff at0015 = ╱22╱"╱ // 0x9fd @0x15
0x09e8…09ff at0016 = EOL // 0x9fe @0x16
0x09e8…09ff }
0x09ff…0a0f 9ffd 00960 ENDPROC OVERSKRIFT
0x09ff…0a0f LineComal80 {
0x09ff…0a0f ptr = 0x9ffd // 0x9ff @0x0
0x09ff…0a0f lno = 0x03c0 // 0xa01 @0x2
0x09ff…0a0f at0004 = ╱9f╱ ENDPROC ╱ // 0xa03 @0x4
0x09ff…0a0f at0005 = ╱4f╱O╱ // 0xa04 @0x5
0x09ff…0a0f at0006 = ╱56╱V╱ // 0xa05 @0x6
0x09ff…0a0f at0007 = ╱45╱E╱ // 0xa06 @0x7
0x09ff…0a0f at0008 = ╱52╱R╱ // 0xa07 @0x8
0x09ff…0a0f at0009 = ╱53╱S╱ // 0xa08 @0x9
0x09ff…0a0f at000a = ╱4b╱K╱ // 0xa09 @0xa
0x09ff…0a0f at000b = ╱52╱R╱ // 0xa0a @0xb
0x09ff…0a0f at000c = ╱49╱I╱ // 0xa0b @0xc
0x09ff…0a0f at000d = ╱46╱F╱ // 0xa0c @0xd
0x09ff…0a0f at000e = ╱54╱T╱ // 0xa0d @0xe
0x09ff…0a0f at000f = EOL // 0xa0e @0xf
0x09ff…0a0f }
0x0a0f…0a14 a002 00970
0x0a0f…0a14 LineComal80 {
0x0a0f…0a14 ptr = 0xa002 // 0xa0f @0x0
0x0a0f…0a14 lno = 0x03ca // 0xa11 @0x2
0x0a0f…0a14 at0004 = EOL // 0xa13 @0x4
0x0a0f…0a14 }
0x0a14…0a27 a015 00980 PROC SL_FEJLLINIE
0x0a14…0a27 LineComal80 {
0x0a14…0a27 ptr = 0xa015 // 0xa14 @0x0
0x0a14…0a27 lno = 0x03d4 // 0xa16 @0x2
0x0a14…0a27 at0004 = ╱9e00╱ PROC ╱ // 0xa18 @0x4
0x0a14…0a27 at0006 = ╱53╱S╱ // 0xa1a @0x6
0x0a14…0a27 at0007 = ╱4c╱L╱ // 0xa1b @0x7
0x0a14…0a27 at0008 = ╱5f╱_╱ // 0xa1c @0x8
0x0a14…0a27 at0009 = ╱46╱F╱ // 0xa1d @0x9
0x0a14…0a27 at000a = ╱45╱E╱ // 0xa1e @0xa
0x0a14…0a27 at000b = ╱4a╱J╱ // 0xa1f @0xb
0x0a14…0a27 at000c = ╱4c╱L╱ // 0xa20 @0xc
0x0a14…0a27 at000d = ╱4c╱L╱ // 0xa21 @0xd
0x0a14…0a27 at000e = ╱49╱I╱ // 0xa22 @0xe
0x0a14…0a27 at000f = ╱4e╱N╱ // 0xa23 @0xf
0x0a14…0a27 at0010 = ╱49╱I╱ // 0xa24 @0x10
0x0a14…0a27 at0011 = ╱45╱E╱ // 0xa25 @0x11
0x0a14…0a27 at0012 = EOL // 0xa26 @0x12
0x0a14…0a27 }
0x0a27…0a34 a022 00990 LET OK := TRUE
0x0a27…0a34 LineComal80 {
0x0a27…0a34 ptr = 0xa022 // 0xa27 @0x0
0x0a27…0a34 lno = 0x03de // 0xa29 @0x2
0x0a27…0a34 at0004 = ╱86╱ LET ╱ // 0xa2b @0x4
0x0a27…0a34 at0005 = ╱4f╱O╱ // 0xa2c @0x5
0x0a27…0a34 at0006 = ╱4b╱K╱ // 0xa2d @0x6
0x0a27…0a34 at0007 = ╱f0╱ := ╱ // 0xa2e @0x7
0x0a27…0a34 at0008 = ╱54╱T╱ // 0xa2f @0x8
0x0a27…0a34 at0009 = ╱52╱R╱ // 0xa30 @0x9
0x0a27…0a34 at000a = ╱55╱U╱ // 0xa31 @0xa
0x0a27…0a34 at000b = ╱45╱E╱ // 0xa32 @0xb
0x0a27…0a34 at000c = EOL // 0xa33 @0xc
0x0a27…0a34 }
0x0a34…0a48 a036 01000 PRINT "<C0102>" ; SPC $
0x0a34…0a48 LineComal80 {
0x0a34…0a48 ptr = 0xa036 // 0xa34 @0x0
0x0a34…0a48 lno = 0x03e8 // 0xa36 @0x2
0x0a34…0a48 at0004 = ╱92╱ PRINT ╱ // 0xa38 @0x4
0x0a34…0a48 at0005 = ╱22╱"╱ // 0xa39 @0x5
0x0a34…0a48 at0006 = ╱3c╱<╱ // 0xa3a @0x6
0x0a34…0a48 at0007 = ╱43╱C╱ // 0xa3b @0x7
0x0a34…0a48 at0008 = ╱30╱0╱ // 0xa3c @0x8
0x0a34…0a48 at0009 = ╱31╱1╱ // 0xa3d @0x9
0x0a34…0a48 at000a = ╱30╱0╱ // 0xa3e @0xa
0x0a34…0a48 at000b = ╱32╱2╱ // 0xa3f @0xb
0x0a34…0a48 at000c = ╱3e╱>╱ // 0xa40 @0xc
0x0a34…0a48 at000d = ╱22╱"╱ // 0xa41 @0xd
0x0a34…0a48 at000e = ╱ea╱ ; ╱ // 0xa42 @0xe
0x0a34…0a48 at000f = ╱53╱S╱ // 0xa43 @0xf
0x0a34…0a48 at0010 = ╱50╱P╱ // 0xa44 @0x10
0x0a34…0a48 at0011 = ╱43╱C╱ // 0xa45 @0x11
0x0a34…0a48 at0012 = ╱ef╱ $ ╱ // 0xa46 @0x12
0x0a34…0a48 at0013 = EOL // 0xa47 @0x13
0x0a34…0a48 }
0x0a48…0a5a a048 01010 ENDPROC SL_FEJLLINIE
0x0a48…0a5a LineComal80 {
0x0a48…0a5a ptr = 0xa048 // 0xa48 @0x0
0x0a48…0a5a lno = 0x03f2 // 0xa4a @0x2
0x0a48…0a5a at0004 = ╱9f╱ ENDPROC ╱ // 0xa4c @0x4
0x0a48…0a5a at0005 = ╱53╱S╱ // 0xa4d @0x5
0x0a48…0a5a at0006 = ╱4c╱L╱ // 0xa4e @0x6
0x0a48…0a5a at0007 = ╱5f╱_╱ // 0xa4f @0x7
0x0a48…0a5a at0008 = ╱46╱F╱ // 0xa50 @0x8
0x0a48…0a5a at0009 = ╱45╱E╱ // 0xa51 @0x9
0x0a48…0a5a at000a = ╱4a╱J╱ // 0xa52 @0xa
0x0a48…0a5a at000b = ╱4c╱L╱ // 0xa53 @0xb
0x0a48…0a5a at000c = ╱4c╱L╱ // 0xa54 @0xc
0x0a48…0a5a at000d = ╱49╱I╱ // 0xa55 @0xd
0x0a48…0a5a at000e = ╱4e╱N╱ // 0xa56 @0xe
0x0a48…0a5a at000f = ╱49╱I╱ // 0xa57 @0xf
0x0a48…0a5a at0010 = ╱45╱E╱ // 0xa58 @0x10
0x0a48…0a5a at0011 = EOL // 0xa59 @0x11
0x0a48…0a5a }
0x0a5a…0a5f a04d 01020
0x0a5a…0a5f LineComal80 {
0x0a5a…0a5f ptr = 0xa04d // 0xa5a @0x0
0x0a5a…0a5f lno = 0x03fc // 0xa5c @0x2
0x0a5a…0a5f at0004 = EOL // 0xa5e @0x4
0x0a5a…0a5f }
0x0a5f…0a6f a05d 01030 PROC FEJL ( ST $ )
0x0a5f…0a6f LineComal80 {
0x0a5f…0a6f ptr = 0xa05d // 0xa5f @0x0
0x0a5f…0a6f lno = 0x0406 // 0xa61 @0x2
0x0a5f…0a6f at0004 = ╱9e00╱ PROC ╱ // 0xa63 @0x4
0x0a5f…0a6f at0006 = ╱46╱F╱ // 0xa65 @0x6
0x0a5f…0a6f at0007 = ╱45╱E╱ // 0xa66 @0x7
0x0a5f…0a6f at0008 = ╱4a╱J╱ // 0xa67 @0x8
0x0a5f…0a6f at0009 = ╱4c╱L╱ // 0xa68 @0x9
0x0a5f…0a6f at000a = ╱ed╱ ( ╱ // 0xa69 @0xa
0x0a5f…0a6f at000b = ╱53╱S╱ // 0xa6a @0xb
0x0a5f…0a6f at000c = ╱54╱T╱ // 0xa6b @0xc
0x0a5f…0a6f at000d = ╱ef╱ $ ╱ // 0xa6c @0xd
0x0a5f…0a6f at000e = ╱ee╱ ) ╱ // 0xa6d @0xe
0x0a5f…0a6f at000f = EOL // 0xa6e @0xf
0x0a5f…0a6f }
0x0a6f…0a7d a06b 01040 LET OK := FALSE
0x0a6f…0a7d LineComal80 {
0x0a6f…0a7d ptr = 0xa06b // 0xa6f @0x0
0x0a6f…0a7d lno = 0x0410 // 0xa71 @0x2
0x0a6f…0a7d at0004 = ╱86╱ LET ╱ // 0xa73 @0x4
0x0a6f…0a7d at0005 = ╱4f╱O╱ // 0xa74 @0x5
0x0a6f…0a7d at0006 = ╱4b╱K╱ // 0xa75 @0x6
0x0a6f…0a7d at0007 = ╱f0╱ := ╱ // 0xa76 @0x7
0x0a6f…0a7d at0008 = ╱46╱F╱ // 0xa77 @0x8
0x0a6f…0a7d at0009 = ╱41╱A╱ // 0xa78 @0x9
0x0a6f…0a7d at000a = ╱4c╱L╱ // 0xa79 @0xa
0x0a6f…0a7d at000b = ╱53╱S╱ // 0xa7a @0xb
0x0a6f…0a7d at000c = ╱45╱E╱ // 0xa7b @0xc
0x0a6f…0a7d at000d = EOL // 0xa7c @0xd
0x0a6f…0a7d }
0x0a7d…0a99 a087 01050 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
0x0a7d…0a99 LineComal80 {
0x0a7d…0a99 ptr = 0xa087 // 0xa7d @0x0
0x0a7d…0a99 lno = 0x041a // 0xa7f @0x2
0x0a7d…0a99 at0004 = ╱a1╱ CURSOR ╱ // 0xa81 @0x4
0x0a7d…0a99 at0005 = ╱33╱3╱ // 0xa82 @0x5
0x0a7d…0a99 at0006 = ╱36╱6╱ // 0xa83 @0x6
0x0a7d…0a99 at0007 = ╱f22400╱ // 0xa84 @0x7
0x0a7d…0a99 at000a = ╱e6╱ - ╱ // 0xa87 @0xa
0x0a7d…0a99 at000b = ╱cb╱ // 0xa88 @0xb
0x0a7d…0a99 at000c = ╱ed╱ ( ╱ // 0xa89 @0xc
0x0a7d…0a99 at000d = ╱53╱S╱ // 0xa8a @0xd
0x0a7d…0a99 at000e = ╱54╱T╱ // 0xa8b @0xe
0x0a7d…0a99 at000f = ╱ef╱ $ ╱ // 0xa8c @0xf
0x0a7d…0a99 at0010 = ╱ee╱ ) ╱ // 0xa8d @0x10
0x0a7d…0a99 at0011 = ╱e8╱ / ╱ // 0xa8e @0x11
0x0a7d…0a99 at0012 = ╱32╱2╱ // 0xa8f @0x12
0x0a7d…0a99 at0013 = ╱f20200╱ // 0xa90 @0x13
0x0a7d…0a99 at0016 = ╱ec╱ , ╱ // 0xa93 @0x16
0x0a7d…0a99 at0017 = ╱32╱2╱ // 0xa94 @0x17
0x0a7d…0a99 at0018 = ╱f20200╱ // 0xa95 @0x18
0x0a7d…0a99 at001b = EOL // 0xa98 @0x1b
0x0a7d…0a99 }
0x0a99…0ab8 a0a6 01060 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
0x0a99…0ab8 LineComal80 {
0x0a99…0ab8 ptr = 0xa0a6 // 0xa99 @0x0
0x0a99…0ab8 lno = 0x0424 // 0xa9b @0x2
0x0a99…0ab8 at0004 = ╱92╱ PRINT ╱ // 0xa9d @0x4
0x0a99…0ab8 at0005 = ╱22╱"╱ // 0xa9e @0x5
0x0a99…0ab8 at0006 = ╱2a╱*╱ // 0xa9f @0x6
0x0a99…0ab8 at0007 = ╱2a╱*╱ // 0xaa0 @0x7
0x0a99…0ab8 at0008 = ╱2a╱*╱ // 0xaa1 @0x8
0x0a99…0ab8 at0009 = ╱20╱…╱ // 0xaa2 @0x9
0x0a99…0ab8 at000a = ╱22╱"╱ // 0xaa3 @0xa
0x0a99…0ab8 at000b = ╱eb╱ + ╱ // 0xaa4 @0xb
0x0a99…0ab8 at000c = ╱53╱S╱ // 0xaa5 @0xc
0x0a99…0ab8 at000d = ╱54╱T╱ // 0xaa6 @0xd
0x0a99…0ab8 at000e = ╱ef╱ $ ╱ // 0xaa7 @0xe
0x0a99…0ab8 at000f = ╱eb╱ + ╱ // 0xaa8 @0xf
0x0a99…0ab8 at0010 = ╱22╱"╱ // 0xaa9 @0x10
0x0a99…0ab8 at0011 = ╱20╱…╱ // 0xaaa @0x11
0x0a99…0ab8 at0012 = ╱2a╱*╱ // 0xaab @0x12
0x0a99…0ab8 at0013 = ╱2a╱*╱ // 0xaac @0x13
0x0a99…0ab8 at0014 = ╱2a╱*╱ // 0xaad @0x14
0x0a99…0ab8 at0015 = ╱22╱"╱ // 0xaae @0x15
0x0a99…0ab8 at0016 = ╱ea╱ ; ╱ // 0xaaf @0x16
0x0a99…0ab8 at0017 = ╱d0╱ CHR$ ╱ // 0xab0 @0x17
0x0a99…0ab8 at0018 = ╱ed╱ ( ╱ // 0xab1 @0x18
0x0a99…0ab8 at0019 = ╱37╱7╱ // 0xab2 @0x19
0x0a99…0ab8 at001a = ╱f20700╱ // 0xab3 @0x1a
0x0a99…0ab8 at001d = ╱ee╱ ) ╱ // 0xab6 @0x1d
0x0a99…0ab8 at001e = EOL // 0xab7 @0x1e
0x0a99…0ab8 }
0x0ab8…0ac2 a0b0 01070 ENDPROC FEJL
0x0ab8…0ac2 LineComal80 {
0x0ab8…0ac2 ptr = 0xa0b0 // 0xab8 @0x0
0x0ab8…0ac2 lno = 0x042e // 0xaba @0x2
0x0ab8…0ac2 at0004 = ╱9f╱ ENDPROC ╱ // 0xabc @0x4
0x0ab8…0ac2 at0005 = ╱46╱F╱ // 0xabd @0x5
0x0ab8…0ac2 at0006 = ╱45╱E╱ // 0xabe @0x6
0x0ab8…0ac2 at0007 = ╱4a╱J╱ // 0xabf @0x7
0x0ab8…0ac2 at0008 = ╱4c╱L╱ // 0xac0 @0x8
0x0ab8…0ac2 at0009 = EOL // 0xac1 @0x9
0x0ab8…0ac2 }
0x0ac2…0ac7 a0b5 01080
0x0ac2…0ac7 LineComal80 {
0x0ac2…0ac7 ptr = 0xa0b5 // 0xac2 @0x0
0x0ac2…0ac7 lno = 0x0438 // 0xac4 @0x2
0x0ac2…0ac7 at0004 = EOL // 0xac6 @0x4
0x0ac2…0ac7 }
0x0ac7…0adb a0c9 01090 PROC FUNKTIONSMENU
0x0ac7…0adb LineComal80 {
0x0ac7…0adb ptr = 0xa0c9 // 0xac7 @0x0
0x0ac7…0adb lno = 0x0442 // 0xac9 @0x2
0x0ac7…0adb at0004 = ╱9e00╱ PROC ╱ // 0xacb @0x4
0x0ac7…0adb at0006 = ╱46╱F╱ // 0xacd @0x6
0x0ac7…0adb at0007 = ╱55╱U╱ // 0xace @0x7
0x0ac7…0adb at0008 = ╱4e╱N╱ // 0xacf @0x8
0x0ac7…0adb at0009 = ╱4b╱K╱ // 0xad0 @0x9
0x0ac7…0adb at000a = ╱54╱T╱ // 0xad1 @0xa
0x0ac7…0adb at000b = ╱49╱I╱ // 0xad2 @0xb
0x0ac7…0adb at000c = ╱4f╱O╱ // 0xad3 @0xc
0x0ac7…0adb at000d = ╱4e╱N╱ // 0xad4 @0xd
0x0ac7…0adb at000e = ╱53╱S╱ // 0xad5 @0xe
0x0ac7…0adb at000f = ╱4d╱M╱ // 0xad6 @0xf
0x0ac7…0adb at0010 = ╱45╱E╱ // 0xad7 @0x10
0x0ac7…0adb at0011 = ╱4e╱N╱ // 0xad8 @0x11
0x0ac7…0adb at0012 = ╱55╱U╱ // 0xad9 @0x12
0x0ac7…0adb at0013 = EOL // 0xada @0x13
0x0ac7…0adb }
0x0adb…0b13 a101 01100 EXEC OVERSKRIFT ( "Start…og…afslutning…af…regnskab" , 7 )
0x0adb…0b13 LineComal80 {
0x0adb…0b13 ptr = 0xa101 // 0xadb @0x0
0x0adb…0b13 lno = 0x044c // 0xadd @0x2
0x0adb…0b13 at0004 = ╱9d╱ EXEC ╱ // 0xadf @0x4
0x0adb…0b13 at0005 = ╱4f╱O╱ // 0xae0 @0x5
0x0adb…0b13 at0006 = ╱56╱V╱ // 0xae1 @0x6
0x0adb…0b13 at0007 = ╱45╱E╱ // 0xae2 @0x7
0x0adb…0b13 at0008 = ╱52╱R╱ // 0xae3 @0x8
0x0adb…0b13 at0009 = ╱53╱S╱ // 0xae4 @0x9
0x0adb…0b13 at000a = ╱4b╱K╱ // 0xae5 @0xa
0x0adb…0b13 at000b = ╱52╱R╱ // 0xae6 @0xb
0x0adb…0b13 at000c = ╱49╱I╱ // 0xae7 @0xc
0x0adb…0b13 at000d = ╱46╱F╱ // 0xae8 @0xd
0x0adb…0b13 at000e = ╱54╱T╱ // 0xae9 @0xe
0x0adb…0b13 at000f = ╱ed╱ ( ╱ // 0xaea @0xf
0x0adb…0b13 at0010 = ╱22╱"╱ // 0xaeb @0x10
0x0adb…0b13 at0011 = ╱53╱S╱ // 0xaec @0x11
0x0adb…0b13 at0012 = ╱74╱t╱ // 0xaed @0x12
0x0adb…0b13 at0013 = ╱61╱a╱ // 0xaee @0x13
0x0adb…0b13 at0014 = ╱72╱r╱ // 0xaef @0x14
0x0adb…0b13 at0015 = ╱74╱t╱ // 0xaf0 @0x15
0x0adb…0b13 at0016 = ╱20╱…╱ // 0xaf1 @0x16
0x0adb…0b13 at0017 = ╱6f╱o╱ // 0xaf2 @0x17
0x0adb…0b13 at0018 = ╱67╱g╱ // 0xaf3 @0x18
0x0adb…0b13 at0019 = ╱20╱…╱ // 0xaf4 @0x19
0x0adb…0b13 at001a = ╱61╱a╱ // 0xaf5 @0x1a
0x0adb…0b13 at001b = ╱66╱f╱ // 0xaf6 @0x1b
0x0adb…0b13 at001c = ╱73╱s╱ // 0xaf7 @0x1c
0x0adb…0b13 at001d = ╱6c╱l╱ // 0xaf8 @0x1d
0x0adb…0b13 at001e = ╱75╱u╱ // 0xaf9 @0x1e
0x0adb…0b13 at001f = ╱74╱t╱ // 0xafa @0x1f
0x0adb…0b13 at0020 = ╱6e╱n╱ // 0xafb @0x20
0x0adb…0b13 at0021 = ╱69╱i╱ // 0xafc @0x21
0x0adb…0b13 at0022 = ╱6e╱n╱ // 0xafd @0x22
0x0adb…0b13 at0023 = ╱67╱g╱ // 0xafe @0x23
0x0adb…0b13 at0024 = ╱20╱…╱ // 0xaff @0x24
0x0adb…0b13 at0025 = ╱61╱a╱ // 0xb00 @0x25
0x0adb…0b13 at0026 = ╱66╱f╱ // 0xb01 @0x26
0x0adb…0b13 at0027 = ╱20╱…╱ // 0xb02 @0x27
0x0adb…0b13 at0028 = ╱72╱r╱ // 0xb03 @0x28
0x0adb…0b13 at0029 = ╱65╱e╱ // 0xb04 @0x29
0x0adb…0b13 at002a = ╱67╱g╱ // 0xb05 @0x2a
0x0adb…0b13 at002b = ╱6e╱n╱ // 0xb06 @0x2b
0x0adb…0b13 at002c = ╱73╱s╱ // 0xb07 @0x2c
0x0adb…0b13 at002d = ╱6b╱k╱ // 0xb08 @0x2d
0x0adb…0b13 at002e = ╱61╱a╱ // 0xb09 @0x2e
0x0adb…0b13 at002f = ╱62╱b╱ // 0xb0a @0x2f
0x0adb…0b13 at0030 = ╱22╱"╱ // 0xb0b @0x30
0x0adb…0b13 at0031 = ╱ec╱ , ╱ // 0xb0c @0x31
0x0adb…0b13 at0032 = ╱37╱7╱ // 0xb0d @0x32
0x0adb…0b13 at0033 = ╱f20700╱ // 0xb0e @0x33
0x0adb…0b13 at0036 = ╱ee╱ ) ╱ // 0xb11 @0x36
0x0adb…0b13 at0037 = EOL // 0xb12 @0x37
0x0adb…0b13 }
0x0b13…0b4e a13c 01110 PRINT "<C1810>Indtastning…af…}bningssaldi………………………………………I]"
0x0b13…0b4e LineComal80 {
0x0b13…0b4e ptr = 0xa13c // 0xb13 @0x0
0x0b13…0b4e lno = 0x0456 // 0xb15 @0x2
0x0b13…0b4e at0004 = ╱92╱ PRINT ╱ // 0xb17 @0x4
0x0b13…0b4e at0005 = ╱22╱"╱ // 0xb18 @0x5
0x0b13…0b4e at0006 = ╱3c╱<╱ // 0xb19 @0x6
0x0b13…0b4e at0007 = ╱43╱C╱ // 0xb1a @0x7
0x0b13…0b4e at0008 = ╱31╱1╱ // 0xb1b @0x8
0x0b13…0b4e at0009 = ╱38╱8╱ // 0xb1c @0x9
0x0b13…0b4e at000a = ╱31╱1╱ // 0xb1d @0xa
0x0b13…0b4e at000b = ╱30╱0╱ // 0xb1e @0xb
0x0b13…0b4e at000c = ╱3e╱>╱ // 0xb1f @0xc
0x0b13…0b4e at000d = ╱49╱I╱ // 0xb20 @0xd
0x0b13…0b4e at000e = ╱6e╱n╱ // 0xb21 @0xe
0x0b13…0b4e at000f = ╱64╱d╱ // 0xb22 @0xf
0x0b13…0b4e at0010 = ╱74╱t╱ // 0xb23 @0x10
0x0b13…0b4e at0011 = ╱61╱a╱ // 0xb24 @0x11
0x0b13…0b4e at0012 = ╱73╱s╱ // 0xb25 @0x12
0x0b13…0b4e at0013 = ╱74╱t╱ // 0xb26 @0x13
0x0b13…0b4e at0014 = ╱6e╱n╱ // 0xb27 @0x14
0x0b13…0b4e at0015 = ╱69╱i╱ // 0xb28 @0x15
0x0b13…0b4e at0016 = ╱6e╱n╱ // 0xb29 @0x16
0x0b13…0b4e at0017 = ╱67╱g╱ // 0xb2a @0x17
0x0b13…0b4e at0018 = ╱20╱…╱ // 0xb2b @0x18
0x0b13…0b4e at0019 = ╱61╱a╱ // 0xb2c @0x19
0x0b13…0b4e at001a = ╱66╱f╱ // 0xb2d @0x1a
0x0b13…0b4e at001b = ╱20╱…╱ // 0xb2e @0x1b
0x0b13…0b4e at001c = ╱7d╱}╱ // 0xb2f @0x1c
0x0b13…0b4e at001d = ╱62╱b╱ // 0xb30 @0x1d
0x0b13…0b4e at001e = ╱6e╱n╱ // 0xb31 @0x1e
0x0b13…0b4e at001f = ╱69╱i╱ // 0xb32 @0x1f
0x0b13…0b4e at0020 = ╱6e╱n╱ // 0xb33 @0x20
0x0b13…0b4e at0021 = ╱67╱g╱ // 0xb34 @0x21
0x0b13…0b4e at0022 = ╱73╱s╱ // 0xb35 @0x22
0x0b13…0b4e at0023 = ╱73╱s╱ // 0xb36 @0x23
0x0b13…0b4e at0024 = ╱61╱a╱ // 0xb37 @0x24
0x0b13…0b4e at0025 = ╱6c╱l╱ // 0xb38 @0x25
0x0b13…0b4e at0026 = ╱64╱d╱ // 0xb39 @0x26
0x0b13…0b4e at0027 = ╱69╱i╱ // 0xb3a @0x27
0x0b13…0b4e at0028 = ╱20╱…╱ // 0xb3b @0x28
0x0b13…0b4e at0029 = ╱20╱…╱ // 0xb3c @0x29
0x0b13…0b4e at002a = ╱20╱…╱ // 0xb3d @0x2a
0x0b13…0b4e at002b = ╱20╱…╱ // 0xb3e @0x2b
0x0b13…0b4e at002c = ╱20╱…╱ // 0xb3f @0x2c
0x0b13…0b4e at002d = ╱20╱…╱ // 0xb40 @0x2d
0x0b13…0b4e at002e = ╱20╱…╱ // 0xb41 @0x2e
0x0b13…0b4e at002f = ╱20╱…╱ // 0xb42 @0x2f
0x0b13…0b4e at0030 = ╱20╱…╱ // 0xb43 @0x30
0x0b13…0b4e at0031 = ╱20╱…╱ // 0xb44 @0x31
0x0b13…0b4e at0032 = ╱20╱…╱ // 0xb45 @0x32
0x0b13…0b4e at0033 = ╱20╱…╱ // 0xb46 @0x33
0x0b13…0b4e at0034 = ╱20╱…╱ // 0xb47 @0x34
0x0b13…0b4e at0035 = ╱20╱…╱ // 0xb48 @0x35
0x0b13…0b4e at0036 = ╱20╱…╱ // 0xb49 @0x36
0x0b13…0b4e at0037 = ╱49╱I╱ // 0xb4a @0x37
0x0b13…0b4e at0038 = ╱5d╱]╱ // 0xb4b @0x38
0x0b13…0b4e at0039 = ╱22╱"╱ // 0xb4c @0x39
0x0b13…0b4e at003a = EOL // 0xb4d @0x3a
0x0b13…0b4e }
0x0b4e…0b89 a177 01120 PRINT "<C1812>Afslutning…af…regnskab……………………………………………………AR"
0x0b4e…0b89 LineComal80 {
0x0b4e…0b89 ptr = 0xa177 // 0xb4e @0x0
0x0b4e…0b89 lno = 0x0460 // 0xb50 @0x2
0x0b4e…0b89 at0004 = ╱92╱ PRINT ╱ // 0xb52 @0x4
0x0b4e…0b89 at0005 = ╱22╱"╱ // 0xb53 @0x5
0x0b4e…0b89 at0006 = ╱3c╱<╱ // 0xb54 @0x6
0x0b4e…0b89 at0007 = ╱43╱C╱ // 0xb55 @0x7
0x0b4e…0b89 at0008 = ╱31╱1╱ // 0xb56 @0x8
0x0b4e…0b89 at0009 = ╱38╱8╱ // 0xb57 @0x9
0x0b4e…0b89 at000a = ╱31╱1╱ // 0xb58 @0xa
0x0b4e…0b89 at000b = ╱32╱2╱ // 0xb59 @0xb
0x0b4e…0b89 at000c = ╱3e╱>╱ // 0xb5a @0xc
0x0b4e…0b89 at000d = ╱41╱A╱ // 0xb5b @0xd
0x0b4e…0b89 at000e = ╱66╱f╱ // 0xb5c @0xe
0x0b4e…0b89 at000f = ╱73╱s╱ // 0xb5d @0xf
0x0b4e…0b89 at0010 = ╱6c╱l╱ // 0xb5e @0x10
0x0b4e…0b89 at0011 = ╱75╱u╱ // 0xb5f @0x11
0x0b4e…0b89 at0012 = ╱74╱t╱ // 0xb60 @0x12
0x0b4e…0b89 at0013 = ╱6e╱n╱ // 0xb61 @0x13
0x0b4e…0b89 at0014 = ╱69╱i╱ // 0xb62 @0x14
0x0b4e…0b89 at0015 = ╱6e╱n╱ // 0xb63 @0x15
0x0b4e…0b89 at0016 = ╱67╱g╱ // 0xb64 @0x16
0x0b4e…0b89 at0017 = ╱20╱…╱ // 0xb65 @0x17
0x0b4e…0b89 at0018 = ╱61╱a╱ // 0xb66 @0x18
0x0b4e…0b89 at0019 = ╱66╱f╱ // 0xb67 @0x19
0x0b4e…0b89 at001a = ╱20╱…╱ // 0xb68 @0x1a
0x0b4e…0b89 at001b = ╱72╱r╱ // 0xb69 @0x1b
0x0b4e…0b89 at001c = ╱65╱e╱ // 0xb6a @0x1c
0x0b4e…0b89 at001d = ╱67╱g╱ // 0xb6b @0x1d
0x0b4e…0b89 at001e = ╱6e╱n╱ // 0xb6c @0x1e
0x0b4e…0b89 at001f = ╱73╱s╱ // 0xb6d @0x1f
0x0b4e…0b89 at0020 = ╱6b╱k╱ // 0xb6e @0x20
0x0b4e…0b89 at0021 = ╱61╱a╱ // 0xb6f @0x21
0x0b4e…0b89 at0022 = ╱62╱b╱ // 0xb70 @0x22
0x0b4e…0b89 at0023 = ╱20╱…╱ // 0xb71 @0x23
0x0b4e…0b89 at0024 = ╱20╱…╱ // 0xb72 @0x24
0x0b4e…0b89 at0025 = ╱20╱…╱ // 0xb73 @0x25
0x0b4e…0b89 at0026 = ╱20╱…╱ // 0xb74 @0x26
0x0b4e…0b89 at0027 = ╱20╱…╱ // 0xb75 @0x27
0x0b4e…0b89 at0028 = ╱20╱…╱ // 0xb76 @0x28
0x0b4e…0b89 at0029 = ╱20╱…╱ // 0xb77 @0x29
0x0b4e…0b89 at002a = ╱20╱…╱ // 0xb78 @0x2a
0x0b4e…0b89 at002b = ╱20╱…╱ // 0xb79 @0x2b
0x0b4e…0b89 at002c = ╱20╱…╱ // 0xb7a @0x2c
0x0b4e…0b89 at002d = ╱20╱…╱ // 0xb7b @0x2d
0x0b4e…0b89 at002e = ╱20╱…╱ // 0xb7c @0x2e
0x0b4e…0b89 at002f = ╱20╱…╱ // 0xb7d @0x2f
0x0b4e…0b89 at0030 = ╱20╱…╱ // 0xb7e @0x30
0x0b4e…0b89 at0031 = ╱20╱…╱ // 0xb7f @0x31
0x0b4e…0b89 at0032 = ╱20╱…╱ // 0xb80 @0x32
0x0b4e…0b89 at0033 = ╱20╱…╱ // 0xb81 @0x33
0x0b4e…0b89 at0034 = ╱20╱…╱ // 0xb82 @0x34
0x0b4e…0b89 at0035 = ╱20╱…╱ // 0xb83 @0x35
0x0b4e…0b89 at0036 = ╱20╱…╱ // 0xb84 @0x36
0x0b4e…0b89 at0037 = ╱41╱A╱ // 0xb85 @0x37
0x0b4e…0b89 at0038 = ╱52╱R╱ // 0xb86 @0x38
0x0b4e…0b89 at0039 = ╱22╱"╱ // 0xb87 @0x39
0x0b4e…0b89 at003a = EOL // 0xb88 @0x3a
0x0b4e…0b89 }
0x0b89…0bc4 a1b2 01130 PRINT "<C1814>Fremf|rsel…af…balancetal…i…ny…regning……………FB"
0x0b89…0bc4 LineComal80 {
0x0b89…0bc4 ptr = 0xa1b2 // 0xb89 @0x0
0x0b89…0bc4 lno = 0x046a // 0xb8b @0x2
0x0b89…0bc4 at0004 = ╱92╱ PRINT ╱ // 0xb8d @0x4
0x0b89…0bc4 at0005 = ╱22╱"╱ // 0xb8e @0x5
0x0b89…0bc4 at0006 = ╱3c╱<╱ // 0xb8f @0x6
0x0b89…0bc4 at0007 = ╱43╱C╱ // 0xb90 @0x7
0x0b89…0bc4 at0008 = ╱31╱1╱ // 0xb91 @0x8
0x0b89…0bc4 at0009 = ╱38╱8╱ // 0xb92 @0x9
0x0b89…0bc4 at000a = ╱31╱1╱ // 0xb93 @0xa
0x0b89…0bc4 at000b = ╱34╱4╱ // 0xb94 @0xb
0x0b89…0bc4 at000c = ╱3e╱>╱ // 0xb95 @0xc
0x0b89…0bc4 at000d = ╱46╱F╱ // 0xb96 @0xd
0x0b89…0bc4 at000e = ╱72╱r╱ // 0xb97 @0xe
0x0b89…0bc4 at000f = ╱65╱e╱ // 0xb98 @0xf
0x0b89…0bc4 at0010 = ╱6d╱m╱ // 0xb99 @0x10
0x0b89…0bc4 at0011 = ╱66╱f╱ // 0xb9a @0x11
0x0b89…0bc4 at0012 = ╱7c╱|╱ // 0xb9b @0x12
0x0b89…0bc4 at0013 = ╱72╱r╱ // 0xb9c @0x13
0x0b89…0bc4 at0014 = ╱73╱s╱ // 0xb9d @0x14
0x0b89…0bc4 at0015 = ╱65╱e╱ // 0xb9e @0x15
0x0b89…0bc4 at0016 = ╱6c╱l╱ // 0xb9f @0x16
0x0b89…0bc4 at0017 = ╱20╱…╱ // 0xba0 @0x17
0x0b89…0bc4 at0018 = ╱61╱a╱ // 0xba1 @0x18
0x0b89…0bc4 at0019 = ╱66╱f╱ // 0xba2 @0x19
0x0b89…0bc4 at001a = ╱20╱…╱ // 0xba3 @0x1a
0x0b89…0bc4 at001b = ╱62╱b╱ // 0xba4 @0x1b
0x0b89…0bc4 at001c = ╱61╱a╱ // 0xba5 @0x1c
0x0b89…0bc4 at001d = ╱6c╱l╱ // 0xba6 @0x1d
0x0b89…0bc4 at001e = ╱61╱a╱ // 0xba7 @0x1e
0x0b89…0bc4 at001f = ╱6e╱n╱ // 0xba8 @0x1f
0x0b89…0bc4 at0020 = ╱63╱c╱ // 0xba9 @0x20
0x0b89…0bc4 at0021 = ╱65╱e╱ // 0xbaa @0x21
0x0b89…0bc4 at0022 = ╱74╱t╱ // 0xbab @0x22
0x0b89…0bc4 at0023 = ╱61╱a╱ // 0xbac @0x23
0x0b89…0bc4 at0024 = ╱6c╱l╱ // 0xbad @0x24
0x0b89…0bc4 at0025 = ╱20╱…╱ // 0xbae @0x25
0x0b89…0bc4 at0026 = ╱69╱i╱ // 0xbaf @0x26
0x0b89…0bc4 at0027 = ╱20╱…╱ // 0xbb0 @0x27
0x0b89…0bc4 at0028 = ╱6e╱n╱ // 0xbb1 @0x28
0x0b89…0bc4 at0029 = ╱79╱y╱ // 0xbb2 @0x29
0x0b89…0bc4 at002a = ╱20╱…╱ // 0xbb3 @0x2a
0x0b89…0bc4 at002b = ╱72╱r╱ // 0xbb4 @0x2b
0x0b89…0bc4 at002c = ╱65╱e╱ // 0xbb5 @0x2c
0x0b89…0bc4 at002d = ╱67╱g╱ // 0xbb6 @0x2d
0x0b89…0bc4 at002e = ╱6e╱n╱ // 0xbb7 @0x2e
0x0b89…0bc4 at002f = ╱69╱i╱ // 0xbb8 @0x2f
0x0b89…0bc4 at0030 = ╱6e╱n╱ // 0xbb9 @0x30
0x0b89…0bc4 at0031 = ╱67╱g╱ // 0xbba @0x31
0x0b89…0bc4 at0032 = ╱20╱…╱ // 0xbbb @0x32
0x0b89…0bc4 at0033 = ╱20╱…╱ // 0xbbc @0x33
0x0b89…0bc4 at0034 = ╱20╱…╱ // 0xbbd @0x34
0x0b89…0bc4 at0035 = ╱20╱…╱ // 0xbbe @0x35
0x0b89…0bc4 at0036 = ╱20╱…╱ // 0xbbf @0x36
0x0b89…0bc4 at0037 = ╱46╱F╱ // 0xbc0 @0x37
0x0b89…0bc4 at0038 = ╱42╱B╱ // 0xbc1 @0x38
0x0b89…0bc4 at0039 = ╱22╱"╱ // 0xbc2 @0x39
0x0b89…0bc4 at003a = EOL // 0xbc3 @0x3a
0x0b89…0bc4 }
0x0bc4…0c01 a1ef 01140 PRINT "<C1817>Programfordeler…………………………………………………………………RETURN"
0x0bc4…0c01 LineComal80 {
0x0bc4…0c01 ptr = 0xa1ef // 0xbc4 @0x0
0x0bc4…0c01 lno = 0x0474 // 0xbc6 @0x2
0x0bc4…0c01 at0004 = ╱92╱ PRINT ╱ // 0xbc8 @0x4
0x0bc4…0c01 at0005 = ╱22╱"╱ // 0xbc9 @0x5
0x0bc4…0c01 at0006 = ╱3c╱<╱ // 0xbca @0x6
0x0bc4…0c01 at0007 = ╱43╱C╱ // 0xbcb @0x7
0x0bc4…0c01 at0008 = ╱31╱1╱ // 0xbcc @0x8
0x0bc4…0c01 at0009 = ╱38╱8╱ // 0xbcd @0x9
0x0bc4…0c01 at000a = ╱31╱1╱ // 0xbce @0xa
0x0bc4…0c01 at000b = ╱37╱7╱ // 0xbcf @0xb
0x0bc4…0c01 at000c = ╱3e╱>╱ // 0xbd0 @0xc
0x0bc4…0c01 at000d = ╱50╱P╱ // 0xbd1 @0xd
0x0bc4…0c01 at000e = ╱72╱r╱ // 0xbd2 @0xe
0x0bc4…0c01 at000f = ╱6f╱o╱ // 0xbd3 @0xf
0x0bc4…0c01 at0010 = ╱67╱g╱ // 0xbd4 @0x10
0x0bc4…0c01 at0011 = ╱72╱r╱ // 0xbd5 @0x11
0x0bc4…0c01 at0012 = ╱61╱a╱ // 0xbd6 @0x12
0x0bc4…0c01 at0013 = ╱6d╱m╱ // 0xbd7 @0x13
0x0bc4…0c01 at0014 = ╱66╱f╱ // 0xbd8 @0x14
0x0bc4…0c01 at0015 = ╱6f╱o╱ // 0xbd9 @0x15
0x0bc4…0c01 at0016 = ╱72╱r╱ // 0xbda @0x16
0x0bc4…0c01 at0017 = ╱64╱d╱ // 0xbdb @0x17
0x0bc4…0c01 at0018 = ╱65╱e╱ // 0xbdc @0x18
0x0bc4…0c01 at0019 = ╱6c╱l╱ // 0xbdd @0x19
0x0bc4…0c01 at001a = ╱65╱e╱ // 0xbde @0x1a
0x0bc4…0c01 at001b = ╱72╱r╱ // 0xbdf @0x1b
0x0bc4…0c01 at001c = ╱20╱…╱ // 0xbe0 @0x1c
0x0bc4…0c01 at001d = ╱20╱…╱ // 0xbe1 @0x1d
0x0bc4…0c01 at001e = ╱20╱…╱ // 0xbe2 @0x1e
0x0bc4…0c01 at001f = ╱20╱…╱ // 0xbe3 @0x1f
0x0bc4…0c01 at0020 = ╱20╱…╱ // 0xbe4 @0x20
0x0bc4…0c01 at0021 = ╱20╱…╱ // 0xbe5 @0x21
0x0bc4…0c01 at0022 = ╱20╱…╱ // 0xbe6 @0x22
0x0bc4…0c01 at0023 = ╱20╱…╱ // 0xbe7 @0x23
0x0bc4…0c01 at0024 = ╱20╱…╱ // 0xbe8 @0x24
0x0bc4…0c01 at0025 = ╱20╱…╱ // 0xbe9 @0x25
0x0bc4…0c01 at0026 = ╱20╱…╱ // 0xbea @0x26
0x0bc4…0c01 at0027 = ╱20╱…╱ // 0xbeb @0x27
0x0bc4…0c01 at0028 = ╱20╱…╱ // 0xbec @0x28
0x0bc4…0c01 at0029 = ╱20╱…╱ // 0xbed @0x29
0x0bc4…0c01 at002a = ╱20╱…╱ // 0xbee @0x2a
0x0bc4…0c01 at002b = ╱20╱…╱ // 0xbef @0x2b
0x0bc4…0c01 at002c = ╱20╱…╱ // 0xbf0 @0x2c
0x0bc4…0c01 at002d = ╱20╱…╱ // 0xbf1 @0x2d
0x0bc4…0c01 at002e = ╱20╱…╱ // 0xbf2 @0x2e
0x0bc4…0c01 at002f = ╱20╱…╱ // 0xbf3 @0x2f
0x0bc4…0c01 at0030 = ╱20╱…╱ // 0xbf4 @0x30
0x0bc4…0c01 at0031 = ╱20╱…╱ // 0xbf5 @0x31
0x0bc4…0c01 at0032 = ╱20╱…╱ // 0xbf6 @0x32
0x0bc4…0c01 at0033 = ╱20╱…╱ // 0xbf7 @0x33
0x0bc4…0c01 at0034 = ╱20╱…╱ // 0xbf8 @0x34
0x0bc4…0c01 at0035 = ╱52╱R╱ // 0xbf9 @0x35
0x0bc4…0c01 at0036 = ╱45╱E╱ // 0xbfa @0x36
0x0bc4…0c01 at0037 = ╱54╱T╱ // 0xbfb @0x37
0x0bc4…0c01 at0038 = ╱55╱U╱ // 0xbfc @0x38
0x0bc4…0c01 at0039 = ╱52╱R╱ // 0xbfd @0x39
0x0bc4…0c01 at003a = ╱4e╱N╱ // 0xbfe @0x3a
0x0bc4…0c01 at003b = ╱22╱"╱ // 0xbff @0x3b
0x0bc4…0c01 at003c = EOL // 0xc00 @0x3c
0x0bc4…0c01 }
0x0c01…0c08 a1f6 01150 REPEAT
0x0c01…0c08 LineComal80 {
0x0c01…0c08 ptr = 0xa1f6 // 0xc01 @0x0
0x0c01…0c08 lno = 0x047e // 0xc03 @0x2
0x0c01…0c08 at0004 = ╱9700╱ REPEAT ╱ // 0xc05 @0x4
0x0c01…0c08 at0006 = EOL // 0xc07 @0x6
0x0c01…0c08 }
0x0c08…0c3f (40,) a22d 01160 EDIT "<C2720>Indtast…funktionskode:…" : SVAR $ ( 1 : 2 )
0x0c08…0c3f LineComal80 {
0x0c08…0c3f ptr = 0xa22d // 0xc08 @0x0
0x0c08…0c3f lno = 0x0488 // 0xc0a @0x2
0x0c08…0c3f at0004 = ╱b1╱ EDIT ╱ // 0xc0c @0x4
0x0c08…0c3f at0005 = ╱22╱"╱ // 0xc0d @0x5
0x0c08…0c3f at0006 = ╱3c╱<╱ // 0xc0e @0x6
0x0c08…0c3f at0007 = ╱43╱C╱ // 0xc0f @0x7
0x0c08…0c3f at0008 = ╱32╱2╱ // 0xc10 @0x8
0x0c08…0c3f at0009 = ╱37╱7╱ // 0xc11 @0x9
0x0c08…0c3f at000a = ╱32╱2╱ // 0xc12 @0xa
0x0c08…0c3f at000b = ╱30╱0╱ // 0xc13 @0xb
0x0c08…0c3f at000c = ╱3e╱>╱ // 0xc14 @0xc
0x0c08…0c3f at000d = ╱49╱I╱ // 0xc15 @0xd
0x0c08…0c3f at000e = ╱6e╱n╱ // 0xc16 @0xe
0x0c08…0c3f at000f = ╱64╱d╱ // 0xc17 @0xf
0x0c08…0c3f at0010 = ╱74╱t╱ // 0xc18 @0x10
0x0c08…0c3f at0011 = ╱61╱a╱ // 0xc19 @0x11
0x0c08…0c3f at0012 = ╱73╱s╱ // 0xc1a @0x12
0x0c08…0c3f at0013 = ╱74╱t╱ // 0xc1b @0x13
0x0c08…0c3f at0014 = ╱20╱…╱ // 0xc1c @0x14
0x0c08…0c3f at0015 = ╱66╱f╱ // 0xc1d @0x15
0x0c08…0c3f at0016 = ╱75╱u╱ // 0xc1e @0x16
0x0c08…0c3f at0017 = ╱6e╱n╱ // 0xc1f @0x17
0x0c08…0c3f at0018 = ╱6b╱k╱ // 0xc20 @0x18
0x0c08…0c3f at0019 = ╱74╱t╱ // 0xc21 @0x19
0x0c08…0c3f at001a = ╱69╱i╱ // 0xc22 @0x1a
0x0c08…0c3f at001b = ╱6f╱o╱ // 0xc23 @0x1b
0x0c08…0c3f at001c = ╱6e╱n╱ // 0xc24 @0x1c
0x0c08…0c3f at001d = ╱73╱s╱ // 0xc25 @0x1d
0x0c08…0c3f at001e = ╱6b╱k╱ // 0xc26 @0x1e
0x0c08…0c3f at001f = ╱6f╱o╱ // 0xc27 @0x1f
0x0c08…0c3f at0020 = ╱64╱d╱ // 0xc28 @0x20
0x0c08…0c3f at0021 = ╱65╱e╱ // 0xc29 @0x21
0x0c08…0c3f at0022 = ╱3a╱:╱ // 0xc2a @0x22
0x0c08…0c3f at0023 = ╱20╱…╱ // 0xc2b @0x23
0x0c08…0c3f at0024 = ╱22╱"╱ // 0xc2c @0x24
0x0c08…0c3f at0025 = ╱f1╱ : ╱ // 0xc2d @0x25
0x0c08…0c3f at0026 = ╱53╱S╱ // 0xc2e @0x26
0x0c08…0c3f at0027 = ╱56╱V╱ // 0xc2f @0x27
0x0c08…0c3f at0028 = ╱41╱A╱ // 0xc30 @0x28
0x0c08…0c3f at0029 = ╱52╱R╱ // 0xc31 @0x29
0x0c08…0c3f at002a = ╱ef╱ $ ╱ // 0xc32 @0x2a
0x0c08…0c3f at002b = ╱ed╱ ( ╱ // 0xc33 @0x2b
0x0c08…0c3f at002c = ╱31╱1╱ // 0xc34 @0x2c
0x0c08…0c3f at002d = ╱f20100╱ // 0xc35 @0x2d
0x0c08…0c3f at0030 = ╱f1╱ : ╱ // 0xc38 @0x30
0x0c08…0c3f at0031 = ╱32╱2╱ // 0xc39 @0x31
0x0c08…0c3f at0032 = ╱f20200╱ // 0xc3a @0x32
0x0c08…0c3f at0035 = ╱ee╱ ) ╱ // 0xc3d @0x35
0x0c08…0c3f at0036 = EOL // 0xc3e @0x36
0x0c08…0c3f }
0x0c3f…0c51 a23f 01170 EXEC SL_FEJLLINIE
0x0c3f…0c51 LineComal80 {
0x0c3f…0c51 ptr = 0xa23f // 0xc3f @0x0
0x0c3f…0c51 lno = 0x0492 // 0xc41 @0x2
0x0c3f…0c51 at0004 = ╱9d╱ EXEC ╱ // 0xc43 @0x4
0x0c3f…0c51 at0005 = ╱53╱S╱ // 0xc44 @0x5
0x0c3f…0c51 at0006 = ╱4c╱L╱ // 0xc45 @0x6
0x0c3f…0c51 at0007 = ╱5f╱_╱ // 0xc46 @0x7
0x0c3f…0c51 at0008 = ╱46╱F╱ // 0xc47 @0x8
0x0c3f…0c51 at0009 = ╱45╱E╱ // 0xc48 @0x9
0x0c3f…0c51 at000a = ╱4a╱J╱ // 0xc49 @0xa
0x0c3f…0c51 at000b = ╱4c╱L╱ // 0xc4a @0xb
0x0c3f…0c51 at000c = ╱4c╱L╱ // 0xc4b @0xc
0x0c3f…0c51 at000d = ╱49╱I╱ // 0xc4c @0xd
0x0c3f…0c51 at000e = ╱4e╱N╱ // 0xc4d @0xe
0x0c3f…0c51 at000f = ╱49╱I╱ // 0xc4e @0xf
0x0c3f…0c51 at0010 = ╱45╱E╱ // 0xc4f @0x10
0x0c3f…0c51 at0011 = EOL // 0xc50 @0x11
0x0c3f…0c51 }
0x0c51…0c83 a271 01180 IF "/" + SVAR $ + "/" IN "/I]/i}/AR/ar/FB/fb//……/…/" THEN
0x0c51…0c83 LineComal80 {
0x0c51…0c83 ptr = 0xa271 // 0xc51 @0x0
0x0c51…0c83 lno = 0x049c // 0xc53 @0x2
0x0c51…0c83 at0004 = ╱9b00d7╱ IF ╱ // 0xc55 @0x4
0x0c51…0c83 at0007 = ╱22╱"╱ // 0xc58 @0x7
0x0c51…0c83 at0008 = ╱2f╱/╱ // 0xc59 @0x8
0x0c51…0c83 at0009 = ╱22╱"╱ // 0xc5a @0x9
0x0c51…0c83 at000a = ╱eb╱ + ╱ // 0xc5b @0xa
0x0c51…0c83 at000b = ╱53╱S╱ // 0xc5c @0xb
0x0c51…0c83 at000c = ╱56╱V╱ // 0xc5d @0xc
0x0c51…0c83 at000d = ╱41╱A╱ // 0xc5e @0xd
0x0c51…0c83 at000e = ╱52╱R╱ // 0xc5f @0xe
0x0c51…0c83 at000f = ╱ef╱ $ ╱ // 0xc60 @0xf
0x0c51…0c83 at0010 = ╱eb╱ + ╱ // 0xc61 @0x10
0x0c51…0c83 at0011 = ╱22╱"╱ // 0xc62 @0x11
0x0c51…0c83 at0012 = ╱2f╱/╱ // 0xc63 @0x12
0x0c51…0c83 at0013 = ╱22╱"╱ // 0xc64 @0x13
0x0c51…0c83 at0014 = ╱dc╱ IN ╱ // 0xc65 @0x14
0x0c51…0c83 at0015 = ╱22╱"╱ // 0xc66 @0x15
0x0c51…0c83 at0016 = ╱2f╱/╱ // 0xc67 @0x16
0x0c51…0c83 at0017 = ╱49╱I╱ // 0xc68 @0x17
0x0c51…0c83 at0018 = ╱5d╱]╱ // 0xc69 @0x18
0x0c51…0c83 at0019 = ╱2f╱/╱ // 0xc6a @0x19
0x0c51…0c83 at001a = ╱69╱i╱ // 0xc6b @0x1a
0x0c51…0c83 at001b = ╱7d╱}╱ // 0xc6c @0x1b
0x0c51…0c83 at001c = ╱2f╱/╱ // 0xc6d @0x1c
0x0c51…0c83 at001d = ╱41╱A╱ // 0xc6e @0x1d
0x0c51…0c83 at001e = ╱52╱R╱ // 0xc6f @0x1e
0x0c51…0c83 at001f = ╱2f╱/╱ // 0xc70 @0x1f
0x0c51…0c83 at0020 = ╱61╱a╱ // 0xc71 @0x20
0x0c51…0c83 at0021 = ╱72╱r╱ // 0xc72 @0x21
0x0c51…0c83 at0022 = ╱2f╱/╱ // 0xc73 @0x22
0x0c51…0c83 at0023 = ╱46╱F╱ // 0xc74 @0x23
0x0c51…0c83 at0024 = ╱42╱B╱ // 0xc75 @0x24
0x0c51…0c83 at0025 = ╱2f╱/╱ // 0xc76 @0x25
0x0c51…0c83 at0026 = ╱66╱f╱ // 0xc77 @0x26
0x0c51…0c83 at0027 = ╱62╱b╱ // 0xc78 @0x27
0x0c51…0c83 at0028 = ╱2f╱/╱ // 0xc79 @0x28
0x0c51…0c83 at0029 = ╱2f╱/╱ // 0xc7a @0x29
0x0c51…0c83 at002a = ╱20╱…╱ // 0xc7b @0x2a
0x0c51…0c83 at002b = ╱20╱…╱ // 0xc7c @0x2b
0x0c51…0c83 at002c = ╱2f╱/╱ // 0xc7d @0x2c
0x0c51…0c83 at002d = ╱20╱…╱ // 0xc7e @0x2d
0x0c51…0c83 at002e = ╱2f╱/╱ // 0xc7f @0x2e
0x0c51…0c83 at002f = ╱22╱"╱ // 0xc80 @0x2f
0x0c51…0c83 at0030 = ╱b5╱ THEN ╱ // 0xc81 @0x30
0x0c51…0c83 at0031 = EOL // 0xc82 @0x31
0x0c51…0c83 }
0x0c83…0cb3 a2a1 01190 EXEC FEJL ( "Ulovlig…funktionskode:…'" + SVAR $ + "'" )
0x0c83…0cb3 LineComal80 {
0x0c83…0cb3 ptr = 0xa2a1 // 0xc83 @0x0
0x0c83…0cb3 lno = 0x04a6 // 0xc85 @0x2
0x0c83…0cb3 at0004 = ╱9d╱ EXEC ╱ // 0xc87 @0x4
0x0c83…0cb3 at0005 = ╱46╱F╱ // 0xc88 @0x5
0x0c83…0cb3 at0006 = ╱45╱E╱ // 0xc89 @0x6
0x0c83…0cb3 at0007 = ╱4a╱J╱ // 0xc8a @0x7
0x0c83…0cb3 at0008 = ╱4c╱L╱ // 0xc8b @0x8
0x0c83…0cb3 at0009 = ╱ed╱ ( ╱ // 0xc8c @0x9
0x0c83…0cb3 at000a = ╱22╱"╱ // 0xc8d @0xa
0x0c83…0cb3 at000b = ╱55╱U╱ // 0xc8e @0xb
0x0c83…0cb3 at000c = ╱6c╱l╱ // 0xc8f @0xc
0x0c83…0cb3 at000d = ╱6f╱o╱ // 0xc90 @0xd
0x0c83…0cb3 at000e = ╱76╱v╱ // 0xc91 @0xe
0x0c83…0cb3 at000f = ╱6c╱l╱ // 0xc92 @0xf
0x0c83…0cb3 at0010 = ╱69╱i╱ // 0xc93 @0x10
0x0c83…0cb3 at0011 = ╱67╱g╱ // 0xc94 @0x11
0x0c83…0cb3 at0012 = ╱20╱…╱ // 0xc95 @0x12
0x0c83…0cb3 at0013 = ╱66╱f╱ // 0xc96 @0x13
0x0c83…0cb3 at0014 = ╱75╱u╱ // 0xc97 @0x14
0x0c83…0cb3 at0015 = ╱6e╱n╱ // 0xc98 @0x15
0x0c83…0cb3 at0016 = ╱6b╱k╱ // 0xc99 @0x16
0x0c83…0cb3 at0017 = ╱74╱t╱ // 0xc9a @0x17
0x0c83…0cb3 at0018 = ╱69╱i╱ // 0xc9b @0x18
0x0c83…0cb3 at0019 = ╱6f╱o╱ // 0xc9c @0x19
0x0c83…0cb3 at001a = ╱6e╱n╱ // 0xc9d @0x1a
0x0c83…0cb3 at001b = ╱73╱s╱ // 0xc9e @0x1b
0x0c83…0cb3 at001c = ╱6b╱k╱ // 0xc9f @0x1c
0x0c83…0cb3 at001d = ╱6f╱o╱ // 0xca0 @0x1d
0x0c83…0cb3 at001e = ╱64╱d╱ // 0xca1 @0x1e
0x0c83…0cb3 at001f = ╱65╱e╱ // 0xca2 @0x1f
0x0c83…0cb3 at0020 = ╱3a╱:╱ // 0xca3 @0x20
0x0c83…0cb3 at0021 = ╱20╱…╱ // 0xca4 @0x21
0x0c83…0cb3 at0022 = ╱27╱'╱ // 0xca5 @0x22
0x0c83…0cb3 at0023 = ╱22╱"╱ // 0xca6 @0x23
0x0c83…0cb3 at0024 = ╱eb╱ + ╱ // 0xca7 @0x24
0x0c83…0cb3 at0025 = ╱53╱S╱ // 0xca8 @0x25
0x0c83…0cb3 at0026 = ╱56╱V╱ // 0xca9 @0x26
0x0c83…0cb3 at0027 = ╱41╱A╱ // 0xcaa @0x27
0x0c83…0cb3 at0028 = ╱52╱R╱ // 0xcab @0x28
0x0c83…0cb3 at0029 = ╱ef╱ $ ╱ // 0xcac @0x29
0x0c83…0cb3 at002a = ╱eb╱ + ╱ // 0xcad @0x2a
0x0c83…0cb3 at002b = ╱22╱"╱ // 0xcae @0x2b
0x0c83…0cb3 at002c = ╱27╱'╱ // 0xcaf @0x2c
0x0c83…0cb3 at002d = ╱22╱"╱ // 0xcb0 @0x2d
0x0c83…0cb3 at002e = ╱ee╱ ) ╱ // 0xcb1 @0x2e
0x0c83…0cb3 at002f = EOL // 0xcb2 @0x2f
0x0c83…0cb3 }
0x0cb3…0cb9 a2a7 01200 ENDIF
0x0cb3…0cb9 LineComal80 {
0x0cb3…0cb9 ptr = 0xa2a7 // 0xcb3 @0x0
0x0cb3…0cb9 lno = 0x04b0 // 0xcb5 @0x2
0x0cb3…0cb9 at0004 = ╱9c╱ ENDIF ╱ // 0xcb7 @0x4
0x0cb3…0cb9 at0005 = EOL // 0xcb8 @0x5
0x0cb3…0cb9 }
0x0cb9…0cc1 a2af 01210 UNTIL OK
0x0cb9…0cc1 LineComal80 {
0x0cb9…0cc1 ptr = 0xa2af // 0xcb9 @0x0
0x0cb9…0cc1 lno = 0x04ba // 0xcbb @0x2
0x0cb9…0cc1 at0004 = ╱98╱ UNTIL ╱ // 0xcbd @0x4
0x0cb9…0cc1 at0005 = ╱4f╱O╱ // 0xcbe @0x5
0x0cb9…0cc1 at0006 = ╱4b╱K╱ // 0xcbf @0x6
0x0cb9…0cc1 at0007 = EOL // 0xcc0 @0x7
0x0cb9…0cc1 }
0x0cc1…0ce3 a2d1 01220 LET PROGRAM $ := PRGFL $ + ":SYS" + SVAR $
0x0cc1…0ce3 LineComal80 {
0x0cc1…0ce3 ptr = 0xa2d1 // 0xcc1 @0x0
0x0cc1…0ce3 lno = 0x04c4 // 0xcc3 @0x2
0x0cc1…0ce3 at0004 = ╱86╱ LET ╱ // 0xcc5 @0x4
0x0cc1…0ce3 at0005 = ╱50╱P╱ // 0xcc6 @0x5
0x0cc1…0ce3 at0006 = ╱52╱R╱ // 0xcc7 @0x6
0x0cc1…0ce3 at0007 = ╱4f╱O╱ // 0xcc8 @0x7
0x0cc1…0ce3 at0008 = ╱47╱G╱ // 0xcc9 @0x8
0x0cc1…0ce3 at0009 = ╱52╱R╱ // 0xcca @0x9
0x0cc1…0ce3 at000a = ╱41╱A╱ // 0xccb @0xa
0x0cc1…0ce3 at000b = ╱4d╱M╱ // 0xccc @0xb
0x0cc1…0ce3 at000c = ╱ef╱ $ ╱ // 0xccd @0xc
0x0cc1…0ce3 at000d = ╱f0╱ := ╱ // 0xcce @0xd
0x0cc1…0ce3 at000e = ╱50╱P╱ // 0xccf @0xe
0x0cc1…0ce3 at000f = ╱52╱R╱ // 0xcd0 @0xf
0x0cc1…0ce3 at0010 = ╱47╱G╱ // 0xcd1 @0x10
0x0cc1…0ce3 at0011 = ╱46╱F╱ // 0xcd2 @0x11
0x0cc1…0ce3 at0012 = ╱4c╱L╱ // 0xcd3 @0x12
0x0cc1…0ce3 at0013 = ╱ef╱ $ ╱ // 0xcd4 @0x13
0x0cc1…0ce3 at0014 = ╱eb╱ + ╱ // 0xcd5 @0x14
0x0cc1…0ce3 at0015 = ╱22╱"╱ // 0xcd6 @0x15
0x0cc1…0ce3 at0016 = ╱3a╱:╱ // 0xcd7 @0x16
0x0cc1…0ce3 at0017 = ╱53╱S╱ // 0xcd8 @0x17
0x0cc1…0ce3 at0018 = ╱59╱Y╱ // 0xcd9 @0x18
0x0cc1…0ce3 at0019 = ╱53╱S╱ // 0xcda @0x19
0x0cc1…0ce3 at001a = ╱22╱"╱ // 0xcdb @0x1a
0x0cc1…0ce3 at001b = ╱eb╱ + ╱ // 0xcdc @0x1b
0x0cc1…0ce3 at001c = ╱53╱S╱ // 0xcdd @0x1c
0x0cc1…0ce3 at001d = ╱56╱V╱ // 0xcde @0x1d
0x0cc1…0ce3 at001e = ╱41╱A╱ // 0xcdf @0x1e
0x0cc1…0ce3 at001f = ╱52╱R╱ // 0xce0 @0x1f
0x0cc1…0ce3 at0020 = ╱ef╱ $ ╱ // 0xce1 @0x20
0x0cc1…0ce3 at0021 = EOL // 0xce2 @0x21
0x0cc1…0ce3 }
0x0ce3…0cf1 a2df 01230 CASE SVAR $ OF
0x0ce3…0cf1 LineComal80 {
0x0ce3…0cf1 ptr = 0xa2df // 0xce3 @0x0
0x0ce3…0cf1 lno = 0x04ce // 0xce5 @0x2
0x0ce3…0cf1 at0004 = ╱a20000╱ CASE ╱ // 0xce7 @0x4
0x0ce3…0cf1 at0007 = ╱53╱S╱ // 0xcea @0x7
0x0ce3…0cf1 at0008 = ╱56╱V╱ // 0xceb @0x8
0x0ce3…0cf1 at0009 = ╱41╱A╱ // 0xcec @0x9
0x0ce3…0cf1 at000a = ╱52╱R╱ // 0xced @0xa
0x0ce3…0cf1 at000b = ╱ef╱ $ ╱ // 0xcee @0xb
0x0ce3…0cf1 at000c = ╱ba╱ OF ╱ // 0xcef @0xc
0x0ce3…0cf1 at000d = EOL // 0xcf0 @0xd
0x0ce3…0cf1 }
0x0cf1…0d02 a2f0 01240 WHILE "AR" , "ar"
0x0cf1…0d02 LineComal80 {
0x0cf1…0d02 ptr = 0xa2f0 // 0xcf1 @0x0
0x0cf1…0d02 lno = 0x04d8 // 0xcf3 @0x2
0x0cf1…0d02 at0004 = ╱a40000╱ WHILE ╱ // 0xcf5 @0x4
0x0cf1…0d02 at0007 = ╱22╱"╱ // 0xcf8 @0x7
0x0cf1…0d02 at0008 = ╱41╱A╱ // 0xcf9 @0x8
0x0cf1…0d02 at0009 = ╱52╱R╱ // 0xcfa @0x9
0x0cf1…0d02 at000a = ╱22╱"╱ // 0xcfb @0xa
0x0cf1…0d02 at000b = ╱ec╱ , ╱ // 0xcfc @0xb
0x0cf1…0d02 at000c = ╱22╱"╱ // 0xcfd @0xc
0x0cf1…0d02 at000d = ╱61╱a╱ // 0xcfe @0xd
0x0cf1…0d02 at000e = ╱72╱r╱ // 0xcff @0xe
0x0cf1…0d02 at000f = ╱22╱"╱ // 0xd00 @0xf
0x0cf1…0d02 at0010 = EOL // 0xd01 @0x10
0x0cf1…0d02 }
0x0d02…0d3f a32d 01250 EXEC SYSTEMDATO ( "Dato…for…afslutning…af…regnskab…(]]MMDD)…" )
0x0d02…0d3f LineComal80 {
0x0d02…0d3f ptr = 0xa32d // 0xd02 @0x0
0x0d02…0d3f lno = 0x04e2 // 0xd04 @0x2
0x0d02…0d3f at0004 = ╱9d╱ EXEC ╱ // 0xd06 @0x4
0x0d02…0d3f at0005 = ╱53╱S╱ // 0xd07 @0x5
0x0d02…0d3f at0006 = ╱59╱Y╱ // 0xd08 @0x6
0x0d02…0d3f at0007 = ╱53╱S╱ // 0xd09 @0x7
0x0d02…0d3f at0008 = ╱54╱T╱ // 0xd0a @0x8
0x0d02…0d3f at0009 = ╱45╱E╱ // 0xd0b @0x9
0x0d02…0d3f at000a = ╱4d╱M╱ // 0xd0c @0xa
0x0d02…0d3f at000b = ╱44╱D╱ // 0xd0d @0xb
0x0d02…0d3f at000c = ╱41╱A╱ // 0xd0e @0xc
0x0d02…0d3f at000d = ╱54╱T╱ // 0xd0f @0xd
0x0d02…0d3f at000e = ╱4f╱O╱ // 0xd10 @0xe
0x0d02…0d3f at000f = ╱ed╱ ( ╱ // 0xd11 @0xf
0x0d02…0d3f at0010 = ╱22╱"╱ // 0xd12 @0x10
0x0d02…0d3f at0011 = ╱44╱D╱ // 0xd13 @0x11
0x0d02…0d3f at0012 = ╱61╱a╱ // 0xd14 @0x12
0x0d02…0d3f at0013 = ╱74╱t╱ // 0xd15 @0x13
0x0d02…0d3f at0014 = ╱6f╱o╱ // 0xd16 @0x14
0x0d02…0d3f at0015 = ╱20╱…╱ // 0xd17 @0x15
0x0d02…0d3f at0016 = ╱66╱f╱ // 0xd18 @0x16
0x0d02…0d3f at0017 = ╱6f╱o╱ // 0xd19 @0x17
0x0d02…0d3f at0018 = ╱72╱r╱ // 0xd1a @0x18
0x0d02…0d3f at0019 = ╱20╱…╱ // 0xd1b @0x19
0x0d02…0d3f at001a = ╱61╱a╱ // 0xd1c @0x1a
0x0d02…0d3f at001b = ╱66╱f╱ // 0xd1d @0x1b
0x0d02…0d3f at001c = ╱73╱s╱ // 0xd1e @0x1c
0x0d02…0d3f at001d = ╱6c╱l╱ // 0xd1f @0x1d
0x0d02…0d3f at001e = ╱75╱u╱ // 0xd20 @0x1e
0x0d02…0d3f at001f = ╱74╱t╱ // 0xd21 @0x1f
0x0d02…0d3f at0020 = ╱6e╱n╱ // 0xd22 @0x20
0x0d02…0d3f at0021 = ╱69╱i╱ // 0xd23 @0x21
0x0d02…0d3f at0022 = ╱6e╱n╱ // 0xd24 @0x22
0x0d02…0d3f at0023 = ╱67╱g╱ // 0xd25 @0x23
0x0d02…0d3f at0024 = ╱20╱…╱ // 0xd26 @0x24
0x0d02…0d3f at0025 = ╱61╱a╱ // 0xd27 @0x25
0x0d02…0d3f at0026 = ╱66╱f╱ // 0xd28 @0x26
0x0d02…0d3f at0027 = ╱20╱…╱ // 0xd29 @0x27
0x0d02…0d3f at0028 = ╱72╱r╱ // 0xd2a @0x28
0x0d02…0d3f at0029 = ╱65╱e╱ // 0xd2b @0x29
0x0d02…0d3f at002a = ╱67╱g╱ // 0xd2c @0x2a
0x0d02…0d3f at002b = ╱6e╱n╱ // 0xd2d @0x2b
0x0d02…0d3f at002c = ╱73╱s╱ // 0xd2e @0x2c
0x0d02…0d3f at002d = ╱6b╱k╱ // 0xd2f @0x2d
0x0d02…0d3f at002e = ╱61╱a╱ // 0xd30 @0x2e
0x0d02…0d3f at002f = ╱62╱b╱ // 0xd31 @0x2f
0x0d02…0d3f at0030 = ╱20╱…╱ // 0xd32 @0x30
0x0d02…0d3f at0031 = ╱28╱(╱ // 0xd33 @0x31
0x0d02…0d3f at0032 = ╱5d╱]╱ // 0xd34 @0x32
0x0d02…0d3f at0033 = ╱5d╱]╱ // 0xd35 @0x33
0x0d02…0d3f at0034 = ╱4d╱M╱ // 0xd36 @0x34
0x0d02…0d3f at0035 = ╱4d╱M╱ // 0xd37 @0x35
0x0d02…0d3f at0036 = ╱44╱D╱ // 0xd38 @0x36
0x0d02…0d3f at0037 = ╱44╱D╱ // 0xd39 @0x37
0x0d02…0d3f at0038 = ╱29╱)╱ // 0xd3a @0x38
0x0d02…0d3f at0039 = ╱20╱…╱ // 0xd3b @0x39
0x0d02…0d3f at003a = ╱22╱"╱ // 0xd3c @0x3a
0x0d02…0d3f at003b = ╱ee╱ ) ╱ // 0xd3d @0x3b
0x0d02…0d3f at003c = EOL // 0xd3e @0x3c
0x0d02…0d3f }
0x0d3f…0d50 a33e 01260 WHILE "FB" , "fb"
0x0d3f…0d50 LineComal80 {
0x0d3f…0d50 ptr = 0xa33e // 0xd3f @0x0
0x0d3f…0d50 lno = 0x04ec // 0xd41 @0x2
0x0d3f…0d50 at0004 = ╱a40000╱ WHILE ╱ // 0xd43 @0x4
0x0d3f…0d50 at0007 = ╱22╱"╱ // 0xd46 @0x7
0x0d3f…0d50 at0008 = ╱46╱F╱ // 0xd47 @0x8
0x0d3f…0d50 at0009 = ╱42╱B╱ // 0xd48 @0x9
0x0d3f…0d50 at000a = ╱22╱"╱ // 0xd49 @0xa
0x0d3f…0d50 at000b = ╱ec╱ , ╱ // 0xd4a @0xb
0x0d3f…0d50 at000c = ╱22╱"╱ // 0xd4b @0xc
0x0d3f…0d50 at000d = ╱66╱f╱ // 0xd4c @0xd
0x0d3f…0d50 at000e = ╱62╱b╱ // 0xd4d @0xe
0x0d3f…0d50 at000f = ╱22╱"╱ // 0xd4e @0xf
0x0d3f…0d50 at0010 = EOL // 0xd4f @0x10
0x0d3f…0d50 }
0x0d50…0d8f a37d 01270 EXEC SYSTEMDATO ( "Dato…for…fremf|rsel…af…balancetal…(]]MMDD)…" )
0x0d50…0d8f LineComal80 {
0x0d50…0d8f ptr = 0xa37d // 0xd50 @0x0
0x0d50…0d8f lno = 0x04f6 // 0xd52 @0x2
0x0d50…0d8f at0004 = ╱9d╱ EXEC ╱ // 0xd54 @0x4
0x0d50…0d8f at0005 = ╱53╱S╱ // 0xd55 @0x5
0x0d50…0d8f at0006 = ╱59╱Y╱ // 0xd56 @0x6
0x0d50…0d8f at0007 = ╱53╱S╱ // 0xd57 @0x7
0x0d50…0d8f at0008 = ╱54╱T╱ // 0xd58 @0x8
0x0d50…0d8f at0009 = ╱45╱E╱ // 0xd59 @0x9
0x0d50…0d8f at000a = ╱4d╱M╱ // 0xd5a @0xa
0x0d50…0d8f at000b = ╱44╱D╱ // 0xd5b @0xb
0x0d50…0d8f at000c = ╱41╱A╱ // 0xd5c @0xc
0x0d50…0d8f at000d = ╱54╱T╱ // 0xd5d @0xd
0x0d50…0d8f at000e = ╱4f╱O╱ // 0xd5e @0xe
0x0d50…0d8f at000f = ╱ed╱ ( ╱ // 0xd5f @0xf
0x0d50…0d8f at0010 = ╱22╱"╱ // 0xd60 @0x10
0x0d50…0d8f at0011 = ╱44╱D╱ // 0xd61 @0x11
0x0d50…0d8f at0012 = ╱61╱a╱ // 0xd62 @0x12
0x0d50…0d8f at0013 = ╱74╱t╱ // 0xd63 @0x13
0x0d50…0d8f at0014 = ╱6f╱o╱ // 0xd64 @0x14
0x0d50…0d8f at0015 = ╱20╱…╱ // 0xd65 @0x15
0x0d50…0d8f at0016 = ╱66╱f╱ // 0xd66 @0x16
0x0d50…0d8f at0017 = ╱6f╱o╱ // 0xd67 @0x17
0x0d50…0d8f at0018 = ╱72╱r╱ // 0xd68 @0x18
0x0d50…0d8f at0019 = ╱20╱…╱ // 0xd69 @0x19
0x0d50…0d8f at001a = ╱66╱f╱ // 0xd6a @0x1a
0x0d50…0d8f at001b = ╱72╱r╱ // 0xd6b @0x1b
0x0d50…0d8f at001c = ╱65╱e╱ // 0xd6c @0x1c
0x0d50…0d8f at001d = ╱6d╱m╱ // 0xd6d @0x1d
0x0d50…0d8f at001e = ╱66╱f╱ // 0xd6e @0x1e
0x0d50…0d8f at001f = ╱7c╱|╱ // 0xd6f @0x1f
0x0d50…0d8f at0020 = ╱72╱r╱ // 0xd70 @0x20
0x0d50…0d8f at0021 = ╱73╱s╱ // 0xd71 @0x21
0x0d50…0d8f at0022 = ╱65╱e╱ // 0xd72 @0x22
0x0d50…0d8f at0023 = ╱6c╱l╱ // 0xd73 @0x23
0x0d50…0d8f at0024 = ╱20╱…╱ // 0xd74 @0x24
0x0d50…0d8f at0025 = ╱61╱a╱ // 0xd75 @0x25
0x0d50…0d8f at0026 = ╱66╱f╱ // 0xd76 @0x26
0x0d50…0d8f at0027 = ╱20╱…╱ // 0xd77 @0x27
0x0d50…0d8f at0028 = ╱62╱b╱ // 0xd78 @0x28
0x0d50…0d8f at0029 = ╱61╱a╱ // 0xd79 @0x29
0x0d50…0d8f at002a = ╱6c╱l╱ // 0xd7a @0x2a
0x0d50…0d8f at002b = ╱61╱a╱ // 0xd7b @0x2b
0x0d50…0d8f at002c = ╱6e╱n╱ // 0xd7c @0x2c
0x0d50…0d8f at002d = ╱63╱c╱ // 0xd7d @0x2d
0x0d50…0d8f at002e = ╱65╱e╱ // 0xd7e @0x2e
0x0d50…0d8f at002f = ╱74╱t╱ // 0xd7f @0x2f
0x0d50…0d8f at0030 = ╱61╱a╱ // 0xd80 @0x30
0x0d50…0d8f at0031 = ╱6c╱l╱ // 0xd81 @0x31
0x0d50…0d8f at0032 = ╱20╱…╱ // 0xd82 @0x32
0x0d50…0d8f at0033 = ╱28╱(╱ // 0xd83 @0x33
0x0d50…0d8f at0034 = ╱5d╱]╱ // 0xd84 @0x34
0x0d50…0d8f at0035 = ╱5d╱]╱ // 0xd85 @0x35
0x0d50…0d8f at0036 = ╱4d╱M╱ // 0xd86 @0x36
0x0d50…0d8f at0037 = ╱4d╱M╱ // 0xd87 @0x37
0x0d50…0d8f at0038 = ╱44╱D╱ // 0xd88 @0x38
0x0d50…0d8f at0039 = ╱44╱D╱ // 0xd89 @0x39
0x0d50…0d8f at003a = ╱29╱)╱ // 0xd8a @0x3a
0x0d50…0d8f at003b = ╱20╱…╱ // 0xd8b @0x3b
0x0d50…0d8f at003c = ╱22╱"╱ // 0xd8c @0x3c
0x0d50…0d8f at003d = ╱ee╱ ) ╱ // 0xd8d @0x3d
0x0d50…0d8f at003e = EOL // 0xd8e @0x3e
0x0d50…0d8f }
0x0d8f…0d95 a383 01280 ENDCASE
0x0d8f…0d95 LineComal80 {
0x0d8f…0d95 ptr = 0xa383 // 0xd8f @0x0
0x0d8f…0d95 lno = 0x0500 // 0xd91 @0x2
0x0d8f…0d95 at0004 = ╱a3╱ ENDCASE ╱ // 0xd93 @0x4
0x0d8f…0d95 at0005 = EOL // 0xd94 @0x5
0x0d8f…0d95 }
0x0d95…0da3 a391 01290 CHAIN PROGRAM $
0x0d95…0da3 LineComal80 {
0x0d95…0da3 ptr = 0xa391 // 0xd95 @0x0
0x0d95…0da3 lno = 0x050a // 0xd97 @0x2
0x0d95…0da3 at0004 = ╱ac╱ CHAIN ╱ // 0xd99 @0x4
0x0d95…0da3 at0005 = ╱50╱P╱ // 0xd9a @0x5
0x0d95…0da3 at0006 = ╱52╱R╱ // 0xd9b @0x6
0x0d95…0da3 at0007 = ╱4f╱O╱ // 0xd9c @0x7
0x0d95…0da3 at0008 = ╱47╱G╱ // 0xd9d @0x8
0x0d95…0da3 at0009 = ╱52╱R╱ // 0xd9e @0x9
0x0d95…0da3 at000a = ╱41╱A╱ // 0xd9f @0xa
0x0d95…0da3 at000b = ╱4d╱M╱ // 0xda0 @0xb
0x0d95…0da3 at000c = ╱ef╱ $ ╱ // 0xda1 @0xc
0x0d95…0da3 at000d = EOL // 0xda2 @0xd
0x0d95…0da3 }
0x0da3…0db6 a3a4 01300 ENDPROC FUNKTIONSMENU
0x0da3…0db6 LineComal80 {
0x0da3…0db6 ptr = 0xa3a4 // 0xda3 @0x0
0x0da3…0db6 lno = 0x0514 // 0xda5 @0x2
0x0da3…0db6 at0004 = ╱9f╱ ENDPROC ╱ // 0xda7 @0x4
0x0da3…0db6 at0005 = ╱46╱F╱ // 0xda8 @0x5
0x0da3…0db6 at0006 = ╱55╱U╱ // 0xda9 @0x6
0x0da3…0db6 at0007 = ╱4e╱N╱ // 0xdaa @0x7
0x0da3…0db6 at0008 = ╱4b╱K╱ // 0xdab @0x8
0x0da3…0db6 at0009 = ╱54╱T╱ // 0xdac @0x9
0x0da3…0db6 at000a = ╱49╱I╱ // 0xdad @0xa
0x0da3…0db6 at000b = ╱4f╱O╱ // 0xdae @0xb
0x0da3…0db6 at000c = ╱4e╱N╱ // 0xdaf @0xc
0x0da3…0db6 at000d = ╱53╱S╱ // 0xdb0 @0xd
0x0da3…0db6 at000e = ╱4d╱M╱ // 0xdb1 @0xe
0x0da3…0db6 at000f = ╱45╱E╱ // 0xdb2 @0xf
0x0da3…0db6 at0010 = ╱4e╱N╱ // 0xdb3 @0x10
0x0da3…0db6 at0011 = ╱55╱U╱ // 0xdb4 @0x11
0x0da3…0db6 at0012 = EOL // 0xdb5 @0x12
0x0da3…0db6 }
0x0db6…0dd0 a3be 01310 PROC DATO_CONTROL ( REF RST $ )
0x0db6…0dd0 LineComal80 {
0x0db6…0dd0 ptr = 0xa3be // 0xdb6 @0x0
0x0db6…0dd0 lno = 0x051e // 0xdb8 @0x2
0x0db6…0dd0 at0004 = ╱9e00╱ PROC ╱ // 0xdba @0x4
0x0db6…0dd0 at0006 = ╱44╱D╱ // 0xdbc @0x6
0x0db6…0dd0 at0007 = ╱41╱A╱ // 0xdbd @0x7
0x0db6…0dd0 at0008 = ╱54╱T╱ // 0xdbe @0x8
0x0db6…0dd0 at0009 = ╱4f╱O╱ // 0xdbf @0x9
0x0db6…0dd0 at000a = ╱5f╱_╱ // 0xdc0 @0xa
0x0db6…0dd0 at000b = ╱43╱C╱ // 0xdc1 @0xb
0x0db6…0dd0 at000c = ╱4f╱O╱ // 0xdc2 @0xc
0x0db6…0dd0 at000d = ╱4e╱N╱ // 0xdc3 @0xd
0x0db6…0dd0 at000e = ╱54╱T╱ // 0xdc4 @0xe
0x0db6…0dd0 at000f = ╱52╱R╱ // 0xdc5 @0xf
0x0db6…0dd0 at0010 = ╱4f╱O╱ // 0xdc6 @0x10
0x0db6…0dd0 at0011 = ╱4c╱L╱ // 0xdc7 @0x11
0x0db6…0dd0 at0012 = ╱ed╱ ( ╱ // 0xdc8 @0x12
0x0db6…0dd0 at0013 = ╱b6╱ REF ╱ // 0xdc9 @0x13
0x0db6…0dd0 at0014 = ╱52╱R╱ // 0xdca @0x14
0x0db6…0dd0 at0015 = ╱53╱S╱ // 0xdcb @0x15
0x0db6…0dd0 at0016 = ╱54╱T╱ // 0xdcc @0x16
0x0db6…0dd0 at0017 = ╱ef╱ $ ╱ // 0xdcd @0x17
0x0db6…0dd0 at0018 = ╱ee╱ ) ╱ // 0xdce @0x18
0x0db6…0dd0 at0019 = EOL // 0xdcf @0x19
0x0db6…0dd0 }
0x0dd0…0ddd a3cb 01320 LET OK := TRUE
0x0dd0…0ddd LineComal80 {
0x0dd0…0ddd ptr = 0xa3cb // 0xdd0 @0x0
0x0dd0…0ddd lno = 0x0528 // 0xdd2 @0x2
0x0dd0…0ddd at0004 = ╱86╱ LET ╱ // 0xdd4 @0x4
0x0dd0…0ddd at0005 = ╱4f╱O╱ // 0xdd5 @0x5
0x0dd0…0ddd at0006 = ╱4b╱K╱ // 0xdd6 @0x6
0x0dd0…0ddd at0007 = ╱f0╱ := ╱ // 0xdd7 @0x7
0x0dd0…0ddd at0008 = ╱54╱T╱ // 0xdd8 @0x8
0x0dd0…0ddd at0009 = ╱52╱R╱ // 0xdd9 @0x9
0x0dd0…0ddd at000a = ╱55╱U╱ // 0xdda @0xa
0x0dd0…0ddd at000b = ╱45╱E╱ // 0xddb @0xb
0x0dd0…0ddd at000c = EOL // 0xddc @0xc
0x0dd0…0ddd }
0x0ddd…0e17 a405 01330 IF RST $ ( 1 : 2 ) < "00" OR RST $ ( 1 : 2 ) > "99" THEN LET OK := FALSE
0x0ddd…0e17 LineComal80 {
0x0ddd…0e17 ptr = 0xa405 // 0xddd @0x0
0x0ddd…0e17 lno = 0x0532 // 0xddf @0x2
0x0ddd…0e17 at0004 = ╱8200╱ IF ╱ // 0xde1 @0x4
0x0ddd…0e17 at0006 = ╱52╱R╱ // 0xde3 @0x6
0x0ddd…0e17 at0007 = ╱53╱S╱ // 0xde4 @0x7
0x0ddd…0e17 at0008 = ╱54╱T╱ // 0xde5 @0x8
0x0ddd…0e17 at0009 = ╱ef╱ $ ╱ // 0xde6 @0x9
0x0ddd…0e17 at000a = ╱ed╱ ( ╱ // 0xde7 @0xa
0x0ddd…0e17 at000b = ╱31╱1╱ // 0xde8 @0xb
0x0ddd…0e17 at000c = ╱f20100╱ // 0xde9 @0xc
0x0ddd…0e17 at000f = ╱f1╱ : ╱ // 0xdec @0xf
0x0ddd…0e17 at0010 = ╱32╱2╱ // 0xded @0x10
0x0ddd…0e17 at0011 = ╱f20200╱ // 0xdee @0x11
0x0ddd…0e17 at0014 = ╱ee╱ ) ╱ // 0xdf1 @0x14
0x0ddd…0e17 at0015 = ╱e0╱ < ╱ // 0xdf2 @0x15
0x0ddd…0e17 at0016 = ╱22╱"╱ // 0xdf3 @0x16
0x0ddd…0e17 at0017 = ╱30╱0╱ // 0xdf4 @0x17
0x0ddd…0e17 at0018 = ╱30╱0╱ // 0xdf5 @0x18
0x0ddd…0e17 at0019 = ╱22╱"╱ // 0xdf6 @0x19
0x0ddd…0e17 at001a = ╱d8╱ OR ╱ // 0xdf7 @0x1a
0x0ddd…0e17 at001b = ╱52╱R╱ // 0xdf8 @0x1b
0x0ddd…0e17 at001c = ╱53╱S╱ // 0xdf9 @0x1c
0x0ddd…0e17 at001d = ╱54╱T╱ // 0xdfa @0x1d
0x0ddd…0e17 at001e = ╱ef╱ $ ╱ // 0xdfb @0x1e
0x0ddd…0e17 at001f = ╱ed╱ ( ╱ // 0xdfc @0x1f
0x0ddd…0e17 at0020 = ╱31╱1╱ // 0xdfd @0x20
0x0ddd…0e17 at0021 = ╱f20100╱ // 0xdfe @0x21
0x0ddd…0e17 at0024 = ╱f1╱ : ╱ // 0xe01 @0x24
0x0ddd…0e17 at0025 = ╱32╱2╱ // 0xe02 @0x25
0x0ddd…0e17 at0026 = ╱f20200╱ // 0xe03 @0x26
0x0ddd…0e17 at0029 = ╱ee╱ ) ╱ // 0xe06 @0x29
0x0ddd…0e17 at002a = ╱e1╱ > ╱ // 0xe07 @0x2a
0x0ddd…0e17 at002b = ╱22╱"╱ // 0xe08 @0x2b
0x0ddd…0e17 at002c = ╱39╱9╱ // 0xe09 @0x2c
0x0ddd…0e17 at002d = ╱39╱9╱ // 0xe0a @0x2d
0x0ddd…0e17 at002e = ╱22╱"╱ // 0xe0b @0x2e
0x0ddd…0e17 at002f = ╱b5╱ THEN ╱ // 0xe0c @0x2f
0x0ddd…0e17 at0030 = ╱86╱ LET ╱ // 0xe0d @0x30
0x0ddd…0e17 at0031 = ╱4f╱O╱ // 0xe0e @0x31
0x0ddd…0e17 at0032 = ╱4b╱K╱ // 0xe0f @0x32
0x0ddd…0e17 at0033 = ╱f0╱ := ╱ // 0xe10 @0x33
0x0ddd…0e17 at0034 = ╱46╱F╱ // 0xe11 @0x34
0x0ddd…0e17 at0035 = ╱41╱A╱ // 0xe12 @0x35
0x0ddd…0e17 at0036 = ╱4c╱L╱ // 0xe13 @0x36
0x0ddd…0e17 at0037 = ╱53╱S╱ // 0xe14 @0x37
0x0ddd…0e17 at0038 = ╱45╱E╱ // 0xe15 @0x38
0x0ddd…0e17 at0039 = EOL // 0xe16 @0x39
0x0ddd…0e17 }
0x0e17…0e51 a43f 01340 IF RST $ ( 3 : 2 ) < "01" OR RST $ ( 3 : 2 ) > "12" THEN LET OK := FALSE
0x0e17…0e51 LineComal80 {
0x0e17…0e51 ptr = 0xa43f // 0xe17 @0x0
0x0e17…0e51 lno = 0x053c // 0xe19 @0x2
0x0e17…0e51 at0004 = ╱8200╱ IF ╱ // 0xe1b @0x4
0x0e17…0e51 at0006 = ╱52╱R╱ // 0xe1d @0x6
0x0e17…0e51 at0007 = ╱53╱S╱ // 0xe1e @0x7
0x0e17…0e51 at0008 = ╱54╱T╱ // 0xe1f @0x8
0x0e17…0e51 at0009 = ╱ef╱ $ ╱ // 0xe20 @0x9
0x0e17…0e51 at000a = ╱ed╱ ( ╱ // 0xe21 @0xa
0x0e17…0e51 at000b = ╱33╱3╱ // 0xe22 @0xb
0x0e17…0e51 at000c = ╱f20300╱ // 0xe23 @0xc
0x0e17…0e51 at000f = ╱f1╱ : ╱ // 0xe26 @0xf
0x0e17…0e51 at0010 = ╱32╱2╱ // 0xe27 @0x10
0x0e17…0e51 at0011 = ╱f20200╱ // 0xe28 @0x11
0x0e17…0e51 at0014 = ╱ee╱ ) ╱ // 0xe2b @0x14
0x0e17…0e51 at0015 = ╱e0╱ < ╱ // 0xe2c @0x15
0x0e17…0e51 at0016 = ╱22╱"╱ // 0xe2d @0x16
0x0e17…0e51 at0017 = ╱30╱0╱ // 0xe2e @0x17
0x0e17…0e51 at0018 = ╱31╱1╱ // 0xe2f @0x18
0x0e17…0e51 at0019 = ╱22╱"╱ // 0xe30 @0x19
0x0e17…0e51 at001a = ╱d8╱ OR ╱ // 0xe31 @0x1a
0x0e17…0e51 at001b = ╱52╱R╱ // 0xe32 @0x1b
0x0e17…0e51 at001c = ╱53╱S╱ // 0xe33 @0x1c
0x0e17…0e51 at001d = ╱54╱T╱ // 0xe34 @0x1d
0x0e17…0e51 at001e = ╱ef╱ $ ╱ // 0xe35 @0x1e
0x0e17…0e51 at001f = ╱ed╱ ( ╱ // 0xe36 @0x1f
0x0e17…0e51 at0020 = ╱33╱3╱ // 0xe37 @0x20
0x0e17…0e51 at0021 = ╱f20300╱ // 0xe38 @0x21
0x0e17…0e51 at0024 = ╱f1╱ : ╱ // 0xe3b @0x24
0x0e17…0e51 at0025 = ╱32╱2╱ // 0xe3c @0x25
0x0e17…0e51 at0026 = ╱f20200╱ // 0xe3d @0x26
0x0e17…0e51 at0029 = ╱ee╱ ) ╱ // 0xe40 @0x29
0x0e17…0e51 at002a = ╱e1╱ > ╱ // 0xe41 @0x2a
0x0e17…0e51 at002b = ╱22╱"╱ // 0xe42 @0x2b
0x0e17…0e51 at002c = ╱31╱1╱ // 0xe43 @0x2c
0x0e17…0e51 at002d = ╱32╱2╱ // 0xe44 @0x2d
0x0e17…0e51 at002e = ╱22╱"╱ // 0xe45 @0x2e
0x0e17…0e51 at002f = ╱b5╱ THEN ╱ // 0xe46 @0x2f
0x0e17…0e51 at0030 = ╱86╱ LET ╱ // 0xe47 @0x30
0x0e17…0e51 at0031 = ╱4f╱O╱ // 0xe48 @0x31
0x0e17…0e51 at0032 = ╱4b╱K╱ // 0xe49 @0x32
0x0e17…0e51 at0033 = ╱f0╱ := ╱ // 0xe4a @0x33
0x0e17…0e51 at0034 = ╱46╱F╱ // 0xe4b @0x34
0x0e17…0e51 at0035 = ╱41╱A╱ // 0xe4c @0x35
0x0e17…0e51 at0036 = ╱4c╱L╱ // 0xe4d @0x36
0x0e17…0e51 at0037 = ╱53╱S╱ // 0xe4e @0x37
0x0e17…0e51 at0038 = ╱45╱E╱ // 0xe4f @0x38
0x0e17…0e51 at0039 = EOL // 0xe50 @0x39
0x0e17…0e51 }
0x0e51…0e8b a479 01350 IF RST $ ( 5 : 2 ) < "01" OR RST $ ( 5 : 2 ) > "31" THEN LET OK := FALSE
0x0e51…0e8b LineComal80 {
0x0e51…0e8b ptr = 0xa479 // 0xe51 @0x0
0x0e51…0e8b lno = 0x0546 // 0xe53 @0x2
0x0e51…0e8b at0004 = ╱8200╱ IF ╱ // 0xe55 @0x4
0x0e51…0e8b at0006 = ╱52╱R╱ // 0xe57 @0x6
0x0e51…0e8b at0007 = ╱53╱S╱ // 0xe58 @0x7
0x0e51…0e8b at0008 = ╱54╱T╱ // 0xe59 @0x8
0x0e51…0e8b at0009 = ╱ef╱ $ ╱ // 0xe5a @0x9
0x0e51…0e8b at000a = ╱ed╱ ( ╱ // 0xe5b @0xa
0x0e51…0e8b at000b = ╱35╱5╱ // 0xe5c @0xb
0x0e51…0e8b at000c = ╱f20500╱ // 0xe5d @0xc
0x0e51…0e8b at000f = ╱f1╱ : ╱ // 0xe60 @0xf
0x0e51…0e8b at0010 = ╱32╱2╱ // 0xe61 @0x10
0x0e51…0e8b at0011 = ╱f20200╱ // 0xe62 @0x11
0x0e51…0e8b at0014 = ╱ee╱ ) ╱ // 0xe65 @0x14
0x0e51…0e8b at0015 = ╱e0╱ < ╱ // 0xe66 @0x15
0x0e51…0e8b at0016 = ╱22╱"╱ // 0xe67 @0x16
0x0e51…0e8b at0017 = ╱30╱0╱ // 0xe68 @0x17
0x0e51…0e8b at0018 = ╱31╱1╱ // 0xe69 @0x18
0x0e51…0e8b at0019 = ╱22╱"╱ // 0xe6a @0x19
0x0e51…0e8b at001a = ╱d8╱ OR ╱ // 0xe6b @0x1a
0x0e51…0e8b at001b = ╱52╱R╱ // 0xe6c @0x1b
0x0e51…0e8b at001c = ╱53╱S╱ // 0xe6d @0x1c
0x0e51…0e8b at001d = ╱54╱T╱ // 0xe6e @0x1d
0x0e51…0e8b at001e = ╱ef╱ $ ╱ // 0xe6f @0x1e
0x0e51…0e8b at001f = ╱ed╱ ( ╱ // 0xe70 @0x1f
0x0e51…0e8b at0020 = ╱35╱5╱ // 0xe71 @0x20
0x0e51…0e8b at0021 = ╱f20500╱ // 0xe72 @0x21
0x0e51…0e8b at0024 = ╱f1╱ : ╱ // 0xe75 @0x24
0x0e51…0e8b at0025 = ╱32╱2╱ // 0xe76 @0x25
0x0e51…0e8b at0026 = ╱f20200╱ // 0xe77 @0x26
0x0e51…0e8b at0029 = ╱ee╱ ) ╱ // 0xe7a @0x29
0x0e51…0e8b at002a = ╱e1╱ > ╱ // 0xe7b @0x2a
0x0e51…0e8b at002b = ╱22╱"╱ // 0xe7c @0x2b
0x0e51…0e8b at002c = ╱33╱3╱ // 0xe7d @0x2c
0x0e51…0e8b at002d = ╱31╱1╱ // 0xe7e @0x2d
0x0e51…0e8b at002e = ╱22╱"╱ // 0xe7f @0x2e
0x0e51…0e8b at002f = ╱b5╱ THEN ╱ // 0xe80 @0x2f
0x0e51…0e8b at0030 = ╱86╱ LET ╱ // 0xe81 @0x30
0x0e51…0e8b at0031 = ╱4f╱O╱ // 0xe82 @0x31
0x0e51…0e8b at0032 = ╱4b╱K╱ // 0xe83 @0x32
0x0e51…0e8b at0033 = ╱f0╱ := ╱ // 0xe84 @0x33
0x0e51…0e8b at0034 = ╱46╱F╱ // 0xe85 @0x34
0x0e51…0e8b at0035 = ╱41╱A╱ // 0xe86 @0x35
0x0e51…0e8b at0036 = ╱4c╱L╱ // 0xe87 @0x36
0x0e51…0e8b at0037 = ╱53╱S╱ // 0xe88 @0x37
0x0e51…0e8b at0038 = ╱45╱E╱ // 0xe89 @0x38
0x0e51…0e8b at0039 = EOL // 0xe8a @0x39
0x0e51…0e8b }
0x0e8b…0eab a499 01360 IF NOT OK THEN EXEC FEJL ( "Ulovlig…dato" )
0x0e8b…0eab LineComal80 {
0x0e8b…0eab ptr = 0xa499 // 0xe8b @0x0
0x0e8b…0eab lno = 0x0550 // 0xe8d @0x2
0x0e8b…0eab at0004 = ╱8200╱ IF ╱ // 0xe8f @0x4
0x0e8b…0eab at0006 = ╱d7╱ NOT ╱ // 0xe91 @0x6
0x0e8b…0eab at0007 = ╱4f╱O╱ // 0xe92 @0x7
0x0e8b…0eab at0008 = ╱4b╱K╱ // 0xe93 @0x8
0x0e8b…0eab at0009 = ╱b5╱ THEN ╱ // 0xe94 @0x9
0x0e8b…0eab at000a = ╱9d╱ EXEC ╱ // 0xe95 @0xa
0x0e8b…0eab at000b = ╱46╱F╱ // 0xe96 @0xb
0x0e8b…0eab at000c = ╱45╱E╱ // 0xe97 @0xc
0x0e8b…0eab at000d = ╱4a╱J╱ // 0xe98 @0xd
0x0e8b…0eab at000e = ╱4c╱L╱ // 0xe99 @0xe
0x0e8b…0eab at000f = ╱ed╱ ( ╱ // 0xe9a @0xf
0x0e8b…0eab at0010 = ╱22╱"╱ // 0xe9b @0x10
0x0e8b…0eab at0011 = ╱55╱U╱ // 0xe9c @0x11
0x0e8b…0eab at0012 = ╱6c╱l╱ // 0xe9d @0x12
0x0e8b…0eab at0013 = ╱6f╱o╱ // 0xe9e @0x13
0x0e8b…0eab at0014 = ╱76╱v╱ // 0xe9f @0x14
0x0e8b…0eab at0015 = ╱6c╱l╱ // 0xea0 @0x15
0x0e8b…0eab at0016 = ╱69╱i╱ // 0xea1 @0x16
0x0e8b…0eab at0017 = ╱67╱g╱ // 0xea2 @0x17
0x0e8b…0eab at0018 = ╱20╱…╱ // 0xea3 @0x18
0x0e8b…0eab at0019 = ╱64╱d╱ // 0xea4 @0x19
0x0e8b…0eab at001a = ╱61╱a╱ // 0xea5 @0x1a
0x0e8b…0eab at001b = ╱74╱t╱ // 0xea6 @0x1b
0x0e8b…0eab at001c = ╱6f╱o╱ // 0xea7 @0x1c
0x0e8b…0eab at001d = ╱22╱"╱ // 0xea8 @0x1d
0x0e8b…0eab at001e = ╱ee╱ ) ╱ // 0xea9 @0x1e
0x0e8b…0eab at001f = EOL // 0xeaa @0x1f
0x0e8b…0eab }
0x0eab…0ebd a4ab 01370 ENDPROC DATO_CONTROL
0x0eab…0ebd LineComal80 {
0x0eab…0ebd ptr = 0xa4ab // 0xeab @0x0
0x0eab…0ebd lno = 0x055a // 0xead @0x2
0x0eab…0ebd at0004 = ╱9f╱ ENDPROC ╱ // 0xeaf @0x4
0x0eab…0ebd at0005 = ╱44╱D╱ // 0xeb0 @0x5
0x0eab…0ebd at0006 = ╱41╱A╱ // 0xeb1 @0x6
0x0eab…0ebd at0007 = ╱54╱T╱ // 0xeb2 @0x7
0x0eab…0ebd at0008 = ╱4f╱O╱ // 0xeb3 @0x8
0x0eab…0ebd at0009 = ╱5f╱_╱ // 0xeb4 @0x9
0x0eab…0ebd at000a = ╱43╱C╱ // 0xeb5 @0xa
0x0eab…0ebd at000b = ╱4f╱O╱ // 0xeb6 @0xb
0x0eab…0ebd at000c = ╱4e╱N╱ // 0xeb7 @0xc
0x0eab…0ebd at000d = ╱54╱T╱ // 0xeb8 @0xd
0x0eab…0ebd at000e = ╱52╱R╱ // 0xeb9 @0xe
0x0eab…0ebd at000f = ╱4f╱O╱ // 0xeba @0xf
0x0eab…0ebd at0010 = ╱4c╱L╱ // 0xebb @0x10
0x0eab…0ebd at0011 = EOL // 0xebc @0x11
0x0eab…0ebd }
0x0ebd…0ed7 (49,) a4c5 01380 PROC SYSTEMDATO ( DATTXT $ )
0x0ebd…0ed7 LineComal80 {
0x0ebd…0ed7 ptr = 0xa4c5 // 0xebd @0x0
0x0ebd…0ed7 lno = 0x0564 // 0xebf @0x2
0x0ebd…0ed7 at0004 = ╱9e00╱ PROC ╱ // 0xec1 @0x4
0x0ebd…0ed7 at0006 = ╱53╱S╱ // 0xec3 @0x6
0x0ebd…0ed7 at0007 = ╱59╱Y╱ // 0xec4 @0x7
0x0ebd…0ed7 at0008 = ╱53╱S╱ // 0xec5 @0x8
0x0ebd…0ed7 at0009 = ╱54╱T╱ // 0xec6 @0x9
0x0ebd…0ed7 at000a = ╱45╱E╱ // 0xec7 @0xa
0x0ebd…0ed7 at000b = ╱4d╱M╱ // 0xec8 @0xb
0x0ebd…0ed7 at000c = ╱44╱D╱ // 0xec9 @0xc
0x0ebd…0ed7 at000d = ╱41╱A╱ // 0xeca @0xd
0x0ebd…0ed7 at000e = ╱54╱T╱ // 0xecb @0xe
0x0ebd…0ed7 at000f = ╱4f╱O╱ // 0xecc @0xf
0x0ebd…0ed7 at0010 = ╱ed╱ ( ╱ // 0xecd @0x10
0x0ebd…0ed7 at0011 = ╱44╱D╱ // 0xece @0x11
0x0ebd…0ed7 at0012 = ╱41╱A╱ // 0xecf @0x12
0x0ebd…0ed7 at0013 = ╱54╱T╱ // 0xed0 @0x13
0x0ebd…0ed7 at0014 = ╱54╱T╱ // 0xed1 @0x14
0x0ebd…0ed7 at0015 = ╱58╱X╱ // 0xed2 @0x15
0x0ebd…0ed7 at0016 = ╱54╱T╱ // 0xed3 @0x16
0x0ebd…0ed7 at0017 = ╱ef╱ $ ╱ // 0xed4 @0x17
0x0ebd…0ed7 at0018 = ╱ee╱ ) ╱ // 0xed5 @0x18
0x0ebd…0ed7 at0019 = EOL // 0xed6 @0x19
0x0ebd…0ed7 }
0x0ed7…0f09 a4f7 01390 EXEC OVERSKRIFT ( "Indtastning…af…systemdato" , 6 )
0x0ed7…0f09 LineComal80 {
0x0ed7…0f09 ptr = 0xa4f7 // 0xed7 @0x0
0x0ed7…0f09 lno = 0x056e // 0xed9 @0x2
0x0ed7…0f09 at0004 = ╱9d╱ EXEC ╱ // 0xedb @0x4
0x0ed7…0f09 at0005 = ╱4f╱O╱ // 0xedc @0x5
0x0ed7…0f09 at0006 = ╱56╱V╱ // 0xedd @0x6
0x0ed7…0f09 at0007 = ╱45╱E╱ // 0xede @0x7
0x0ed7…0f09 at0008 = ╱52╱R╱ // 0xedf @0x8
0x0ed7…0f09 at0009 = ╱53╱S╱ // 0xee0 @0x9
0x0ed7…0f09 at000a = ╱4b╱K╱ // 0xee1 @0xa
0x0ed7…0f09 at000b = ╱52╱R╱ // 0xee2 @0xb
0x0ed7…0f09 at000c = ╱49╱I╱ // 0xee3 @0xc
0x0ed7…0f09 at000d = ╱46╱F╱ // 0xee4 @0xd
0x0ed7…0f09 at000e = ╱54╱T╱ // 0xee5 @0xe
0x0ed7…0f09 at000f = ╱ed╱ ( ╱ // 0xee6 @0xf
0x0ed7…0f09 at0010 = ╱22╱"╱ // 0xee7 @0x10
0x0ed7…0f09 at0011 = ╱49╱I╱ // 0xee8 @0x11
0x0ed7…0f09 at0012 = ╱6e╱n╱ // 0xee9 @0x12
0x0ed7…0f09 at0013 = ╱64╱d╱ // 0xeea @0x13
0x0ed7…0f09 at0014 = ╱74╱t╱ // 0xeeb @0x14
0x0ed7…0f09 at0015 = ╱61╱a╱ // 0xeec @0x15
0x0ed7…0f09 at0016 = ╱73╱s╱ // 0xeed @0x16
0x0ed7…0f09 at0017 = ╱74╱t╱ // 0xeee @0x17
0x0ed7…0f09 at0018 = ╱6e╱n╱ // 0xeef @0x18
0x0ed7…0f09 at0019 = ╱69╱i╱ // 0xef0 @0x19
0x0ed7…0f09 at001a = ╱6e╱n╱ // 0xef1 @0x1a
0x0ed7…0f09 at001b = ╱67╱g╱ // 0xef2 @0x1b
0x0ed7…0f09 at001c = ╱20╱…╱ // 0xef3 @0x1c
0x0ed7…0f09 at001d = ╱61╱a╱ // 0xef4 @0x1d
0x0ed7…0f09 at001e = ╱66╱f╱ // 0xef5 @0x1e
0x0ed7…0f09 at001f = ╱20╱…╱ // 0xef6 @0x1f
0x0ed7…0f09 at0020 = ╱73╱s╱ // 0xef7 @0x20
0x0ed7…0f09 at0021 = ╱79╱y╱ // 0xef8 @0x21
0x0ed7…0f09 at0022 = ╱73╱s╱ // 0xef9 @0x22
0x0ed7…0f09 at0023 = ╱74╱t╱ // 0xefa @0x23
0x0ed7…0f09 at0024 = ╱65╱e╱ // 0xefb @0x24
0x0ed7…0f09 at0025 = ╱6d╱m╱ // 0xefc @0x25
0x0ed7…0f09 at0026 = ╱64╱d╱ // 0xefd @0x26
0x0ed7…0f09 at0027 = ╱61╱a╱ // 0xefe @0x27
0x0ed7…0f09 at0028 = ╱74╱t╱ // 0xeff @0x28
0x0ed7…0f09 at0029 = ╱6f╱o╱ // 0xf00 @0x29
0x0ed7…0f09 at002a = ╱22╱"╱ // 0xf01 @0x2a
0x0ed7…0f09 at002b = ╱ec╱ , ╱ // 0xf02 @0x2b
0x0ed7…0f09 at002c = ╱36╱6╱ // 0xf03 @0x2c
0x0ed7…0f09 at002d = ╱f20600╱ // 0xf04 @0x2d
0x0ed7…0f09 at0030 = ╱ee╱ ) ╱ // 0xf07 @0x30
0x0ed7…0f09 at0031 = EOL // 0xf08 @0x31
0x0ed7…0f09 }
0x0f09…0f10 a4fe 01400 REPEAT
0x0f09…0f10 LineComal80 {
0x0f09…0f10 ptr = 0xa4fe // 0xf09 @0x0
0x0f09…0f10 lno = 0x0578 // 0xf0b @0x2
0x0f09…0f10 at0004 = ╱9700╱ REPEAT ╱ // 0xf0d @0x4
0x0f09…0f10 at0006 = EOL // 0xf0f @0x6
0x0f09…0f10 }
0x0f10…0f29 a517 01410 PRINT "<SZC1212>" ; DATTXT $
0x0f10…0f29 LineComal80 {
0x0f10…0f29 ptr = 0xa517 // 0xf10 @0x0
0x0f10…0f29 lno = 0x0582 // 0xf12 @0x2
0x0f10…0f29 at0004 = ╱92╱ PRINT ╱ // 0xf14 @0x4
0x0f10…0f29 at0005 = ╱22╱"╱ // 0xf15 @0x5
0x0f10…0f29 at0006 = ╱3c╱<╱ // 0xf16 @0x6
0x0f10…0f29 at0007 = ╱53╱S╱ // 0xf17 @0x7
0x0f10…0f29 at0008 = ╱5a╱Z╱ // 0xf18 @0x8
0x0f10…0f29 at0009 = ╱43╱C╱ // 0xf19 @0x9
0x0f10…0f29 at000a = ╱31╱1╱ // 0xf1a @0xa
0x0f10…0f29 at000b = ╱32╱2╱ // 0xf1b @0xb
0x0f10…0f29 at000c = ╱31╱1╱ // 0xf1c @0xc
0x0f10…0f29 at000d = ╱32╱2╱ // 0xf1d @0xd
0x0f10…0f29 at000e = ╱3e╱>╱ // 0xf1e @0xe
0x0f10…0f29 at000f = ╱22╱"╱ // 0xf1f @0xf
0x0f10…0f29 at0010 = ╱ea╱ ; ╱ // 0xf20 @0x10
0x0f10…0f29 at0011 = ╱44╱D╱ // 0xf21 @0x11
0x0f10…0f29 at0012 = ╱41╱A╱ // 0xf22 @0x12
0x0f10…0f29 at0013 = ╱54╱T╱ // 0xf23 @0x13
0x0f10…0f29 at0014 = ╱54╱T╱ // 0xf24 @0x14
0x0f10…0f29 at0015 = ╱58╱X╱ // 0xf25 @0x15
0x0f10…0f29 at0016 = ╱54╱T╱ // 0xf26 @0x16
0x0f10…0f29 at0017 = ╱ef╱ $ ╱ // 0xf27 @0x17
0x0f10…0f29 at0018 = EOL // 0xf28 @0x18
0x0f10…0f29 }
0x0f29…0f3b a529 01420 EDIT "" : SYST_DAT $
0x0f29…0f3b LineComal80 {
0x0f29…0f3b ptr = 0xa529 // 0xf29 @0x0
0x0f29…0f3b lno = 0x058c // 0xf2b @0x2
0x0f29…0f3b at0004 = ╱b1╱ EDIT ╱ // 0xf2d @0x4
0x0f29…0f3b at0005 = ╱22╱"╱ // 0xf2e @0x5
0x0f29…0f3b at0006 = ╱22╱"╱ // 0xf2f @0x6
0x0f29…0f3b at0007 = ╱f1╱ : ╱ // 0xf30 @0x7
0x0f29…0f3b at0008 = ╱53╱S╱ // 0xf31 @0x8
0x0f29…0f3b at0009 = ╱59╱Y╱ // 0xf32 @0x9
0x0f29…0f3b at000a = ╱53╱S╱ // 0xf33 @0xa
0x0f29…0f3b at000b = ╱54╱T╱ // 0xf34 @0xb
0x0f29…0f3b at000c = ╱5f╱_╱ // 0xf35 @0xc
0x0f29…0f3b at000d = ╱44╱D╱ // 0xf36 @0xd
0x0f29…0f3b at000e = ╱41╱A╱ // 0xf37 @0xe
0x0f29…0f3b at000f = ╱54╱T╱ // 0xf38 @0xf
0x0f29…0f3b at0010 = ╱ef╱ $ ╱ // 0xf39 @0x10
0x0f29…0f3b at0011 = EOL // 0xf3a @0x11
0x0f29…0f3b }
0x0f3b…0f4d a53b 01430 EXEC SL_FEJLLINIE
0x0f3b…0f4d LineComal80 {
0x0f3b…0f4d ptr = 0xa53b // 0xf3b @0x0
0x0f3b…0f4d lno = 0x0596 // 0xf3d @0x2
0x0f3b…0f4d at0004 = ╱9d╱ EXEC ╱ // 0xf3f @0x4
0x0f3b…0f4d at0005 = ╱53╱S╱ // 0xf40 @0x5
0x0f3b…0f4d at0006 = ╱4c╱L╱ // 0xf41 @0x6
0x0f3b…0f4d at0007 = ╱5f╱_╱ // 0xf42 @0x7
0x0f3b…0f4d at0008 = ╱46╱F╱ // 0xf43 @0x8
0x0f3b…0f4d at0009 = ╱45╱E╱ // 0xf44 @0x9
0x0f3b…0f4d at000a = ╱4a╱J╱ // 0xf45 @0xa
0x0f3b…0f4d at000b = ╱4c╱L╱ // 0xf46 @0xb
0x0f3b…0f4d at000c = ╱4c╱L╱ // 0xf47 @0xc
0x0f3b…0f4d at000d = ╱49╱I╱ // 0xf48 @0xd
0x0f3b…0f4d at000e = ╱4e╱N╱ // 0xf49 @0xe
0x0f3b…0f4d at000f = ╱49╱I╱ // 0xf4a @0xf
0x0f3b…0f4d at0010 = ╱45╱E╱ // 0xf4b @0x10
0x0f3b…0f4d at0011 = EOL // 0xf4c @0x11
0x0f3b…0f4d }
0x0f4d…0f6a a558 01440 EXEC DATO_CONTROL ( SYST_DAT $ )
0x0f4d…0f6a LineComal80 {
0x0f4d…0f6a ptr = 0xa558 // 0xf4d @0x0
0x0f4d…0f6a lno = 0x05a0 // 0xf4f @0x2
0x0f4d…0f6a at0004 = ╱9d╱ EXEC ╱ // 0xf51 @0x4
0x0f4d…0f6a at0005 = ╱44╱D╱ // 0xf52 @0x5
0x0f4d…0f6a at0006 = ╱41╱A╱ // 0xf53 @0x6
0x0f4d…0f6a at0007 = ╱54╱T╱ // 0xf54 @0x7
0x0f4d…0f6a at0008 = ╱4f╱O╱ // 0xf55 @0x8
0x0f4d…0f6a at0009 = ╱5f╱_╱ // 0xf56 @0x9
0x0f4d…0f6a at000a = ╱43╱C╱ // 0xf57 @0xa
0x0f4d…0f6a at000b = ╱4f╱O╱ // 0xf58 @0xb
0x0f4d…0f6a at000c = ╱4e╱N╱ // 0xf59 @0xc
0x0f4d…0f6a at000d = ╱54╱T╱ // 0xf5a @0xd
0x0f4d…0f6a at000e = ╱52╱R╱ // 0xf5b @0xe
0x0f4d…0f6a at000f = ╱4f╱O╱ // 0xf5c @0xf
0x0f4d…0f6a at0010 = ╱4c╱L╱ // 0xf5d @0x10
0x0f4d…0f6a at0011 = ╱ed╱ ( ╱ // 0xf5e @0x11
0x0f4d…0f6a at0012 = ╱53╱S╱ // 0xf5f @0x12
0x0f4d…0f6a at0013 = ╱59╱Y╱ // 0xf60 @0x13
0x0f4d…0f6a at0014 = ╱53╱S╱ // 0xf61 @0x14
0x0f4d…0f6a at0015 = ╱54╱T╱ // 0xf62 @0x15
0x0f4d…0f6a at0016 = ╱5f╱_╱ // 0xf63 @0x16
0x0f4d…0f6a at0017 = ╱44╱D╱ // 0xf64 @0x17
0x0f4d…0f6a at0018 = ╱41╱A╱ // 0xf65 @0x18
0x0f4d…0f6a at0019 = ╱54╱T╱ // 0xf66 @0x19
0x0f4d…0f6a at001a = ╱ef╱ $ ╱ // 0xf67 @0x1a
0x0f4d…0f6a at001b = ╱ee╱ ) ╱ // 0xf68 @0x1b
0x0f4d…0f6a at001c = EOL // 0xf69 @0x1c
0x0f4d…0f6a }
0x0f6a…0f72 a560 01450 UNTIL OK
0x0f6a…0f72 LineComal80 {
0x0f6a…0f72 ptr = 0xa560 // 0xf6a @0x0
0x0f6a…0f72 lno = 0x05aa // 0xf6c @0x2
0x0f6a…0f72 at0004 = ╱98╱ UNTIL ╱ // 0xf6e @0x4
0x0f6a…0f72 at0005 = ╱4f╱O╱ // 0xf6f @0x5
0x0f6a…0f72 at0006 = ╱4b╱K╱ // 0xf70 @0x6
0x0f6a…0f72 at0007 = EOL // 0xf71 @0x7
0x0f6a…0f72 }
0x0f72…0fba a5a8 01460 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x0f72…0fba LineComal80 {
0x0f72…0fba ptr = 0xa5a8 // 0xf72 @0x0
0x0f72…0fba lno = 0x05b4 // 0xf74 @0x2
0x0f72…0fba at0004 = ╱92╱ PRINT ╱ // 0xf76 @0x4
0x0f72…0fba at0005 = ╱22╱"╱ // 0xf77 @0x5
0x0f72…0fba at0006 = ╱3c╱<╱ // 0xf78 @0x6
0x0f72…0fba at0007 = ╱53╱S╱ // 0xf79 @0x7
0x0f72…0fba at0008 = ╱43╱C╱ // 0xf7a @0x8
0x0f72…0fba at0009 = ╱36╱6╱ // 0xf7b @0x9
0x0f72…0fba at000a = ╱35╱5╱ // 0xf7c @0xa
0x0f72…0fba at000b = ╱30╱0╱ // 0xf7d @0xb
0x0f72…0fba at000c = ╱31╱1╱ // 0xf7e @0xc
0x0f72…0fba at000d = ╱3e╱>╱ // 0xf7f @0xd
0x0f72…0fba at000e = ╱44╱D╱ // 0xf80 @0xe
0x0f72…0fba at000f = ╱61╱a╱ // 0xf81 @0xf
0x0f72…0fba at0010 = ╱74╱t╱ // 0xf82 @0x10
0x0f72…0fba at0011 = ╱6f╱o╱ // 0xf83 @0x11
0x0f72…0fba at0012 = ╱3a╱:╱ // 0xf84 @0x12
0x0f72…0fba at0013 = ╱20╱…╱ // 0xf85 @0x13
0x0f72…0fba at0014 = ╱22╱"╱ // 0xf86 @0x14
0x0f72…0fba at0015 = ╱ea╱ ; ╱ // 0xf87 @0x15
0x0f72…0fba at0016 = ╱53╱S╱ // 0xf88 @0x16
0x0f72…0fba at0017 = ╱59╱Y╱ // 0xf89 @0x17
0x0f72…0fba at0018 = ╱53╱S╱ // 0xf8a @0x18
0x0f72…0fba at0019 = ╱54╱T╱ // 0xf8b @0x19
0x0f72…0fba at001a = ╱5f╱_╱ // 0xf8c @0x1a
0x0f72…0fba at001b = ╱44╱D╱ // 0xf8d @0x1b
0x0f72…0fba at001c = ╱41╱A╱ // 0xf8e @0x1c
0x0f72…0fba at001d = ╱54╱T╱ // 0xf8f @0x1d
0x0f72…0fba at001e = ╱ef╱ $ ╱ // 0xf90 @0x1e
0x0f72…0fba at001f = ╱ed╱ ( ╱ // 0xf91 @0x1f
0x0f72…0fba at0020 = ╱31╱1╱ // 0xf92 @0x20
0x0f72…0fba at0021 = ╱f20100╱ // 0xf93 @0x21
0x0f72…0fba at0024 = ╱f1╱ : ╱ // 0xf96 @0x24
0x0f72…0fba at0025 = ╱32╱2╱ // 0xf97 @0x25
0x0f72…0fba at0026 = ╱f20200╱ // 0xf98 @0x26
0x0f72…0fba at0029 = ╱ee╱ ) ╱ // 0xf9b @0x29
0x0f72…0fba at002a = ╱ea╱ ; ╱ // 0xf9c @0x2a
0x0f72…0fba at002b = ╱22╱"╱ // 0xf9d @0x2b
0x0f72…0fba at002c = ╱2e╱.╱ // 0xf9e @0x2c
0x0f72…0fba at002d = ╱22╱"╱ // 0xf9f @0x2d
0x0f72…0fba at002e = ╱ea╱ ; ╱ // 0xfa0 @0x2e
0x0f72…0fba at002f = ╱53╱S╱ // 0xfa1 @0x2f
0x0f72…0fba at0030 = ╱59╱Y╱ // 0xfa2 @0x30
0x0f72…0fba at0031 = ╱53╱S╱ // 0xfa3 @0x31
0x0f72…0fba at0032 = ╱54╱T╱ // 0xfa4 @0x32
0x0f72…0fba at0033 = ╱5f╱_╱ // 0xfa5 @0x33
0x0f72…0fba at0034 = ╱44╱D╱ // 0xfa6 @0x34
0x0f72…0fba at0035 = ╱41╱A╱ // 0xfa7 @0x35
0x0f72…0fba at0036 = ╱54╱T╱ // 0xfa8 @0x36
0x0f72…0fba at0037 = ╱ef╱ $ ╱ // 0xfa9 @0x37
0x0f72…0fba at0038 = ╱ed╱ ( ╱ // 0xfaa @0x38
0x0f72…0fba at0039 = ╱33╱3╱ // 0xfab @0x39
0x0f72…0fba at003a = ╱f20300╱ // 0xfac @0x3a
0x0f72…0fba at003d = ╱f1╱ : ╱ // 0xfaf @0x3d
0x0f72…0fba at003e = ╱32╱2╱ // 0xfb0 @0x3e
0x0f72…0fba at003f = ╱f20200╱ // 0xfb1 @0x3f
0x0f72…0fba at0042 = ╱ee╱ ) ╱ // 0xfb4 @0x42
0x0f72…0fba at0043 = ╱ea╱ ; ╱ // 0xfb5 @0x43
0x0f72…0fba at0044 = ╱22╱"╱ // 0xfb6 @0x44
0x0f72…0fba at0045 = ╱2e╱.╱ // 0xfb7 @0x45
0x0f72…0fba at0046 = ╱22╱"╱ // 0xfb8 @0x46
0x0f72…0fba at0047 = EOL // 0xfb9 @0x47
0x0f72…0fba }
0x0fba…0fd4 a5c2 01470 PRINT SYST_DAT $ ( 5 : 2 )
0x0fba…0fd4 LineComal80 {
0x0fba…0fd4 ptr = 0xa5c2 // 0xfba @0x0
0x0fba…0fd4 lno = 0x05be // 0xfbc @0x2
0x0fba…0fd4 at0004 = ╱92╱ PRINT ╱ // 0xfbe @0x4
0x0fba…0fd4 at0005 = ╱53╱S╱ // 0xfbf @0x5
0x0fba…0fd4 at0006 = ╱59╱Y╱ // 0xfc0 @0x6
0x0fba…0fd4 at0007 = ╱53╱S╱ // 0xfc1 @0x7
0x0fba…0fd4 at0008 = ╱54╱T╱ // 0xfc2 @0x8
0x0fba…0fd4 at0009 = ╱5f╱_╱ // 0xfc3 @0x9
0x0fba…0fd4 at000a = ╱44╱D╱ // 0xfc4 @0xa
0x0fba…0fd4 at000b = ╱41╱A╱ // 0xfc5 @0xb
0x0fba…0fd4 at000c = ╱54╱T╱ // 0xfc6 @0xc
0x0fba…0fd4 at000d = ╱ef╱ $ ╱ // 0xfc7 @0xd
0x0fba…0fd4 at000e = ╱ed╱ ( ╱ // 0xfc8 @0xe
0x0fba…0fd4 at000f = ╱35╱5╱ // 0xfc9 @0xf
0x0fba…0fd4 at0010 = ╱f20500╱ // 0xfca @0x10
0x0fba…0fd4 at0013 = ╱f1╱ : ╱ // 0xfcd @0x13
0x0fba…0fd4 at0014 = ╱32╱2╱ // 0xfce @0x14
0x0fba…0fd4 at0015 = ╱f20200╱ // 0xfcf @0x15
0x0fba…0fd4 at0018 = ╱ee╱ ) ╱ // 0xfd2 @0x18
0x0fba…0fd4 at0019 = EOL // 0xfd3 @0x19
0x0fba…0fd4 }
0x0fd4…0fed a5db 01480 EXEC OPENFIL ( PARAM $ , "W" )
0x0fd4…0fed LineComal80 {
0x0fd4…0fed ptr = 0xa5db // 0xfd4 @0x0
0x0fd4…0fed lno = 0x05c8 // 0xfd6 @0x2
0x0fd4…0fed at0004 = ╱9d╱ EXEC ╱ // 0xfd8 @0x4
0x0fd4…0fed at0005 = ╱4f╱O╱ // 0xfd9 @0x5
0x0fd4…0fed at0006 = ╱50╱P╱ // 0xfda @0x6
0x0fd4…0fed at0007 = ╱45╱E╱ // 0xfdb @0x7
0x0fd4…0fed at0008 = ╱4e╱N╱ // 0xfdc @0x8
0x0fd4…0fed at0009 = ╱46╱F╱ // 0xfdd @0x9
0x0fd4…0fed at000a = ╱49╱I╱ // 0xfde @0xa
0x0fd4…0fed at000b = ╱4c╱L╱ // 0xfdf @0xb
0x0fd4…0fed at000c = ╱ed╱ ( ╱ // 0xfe0 @0xc
0x0fd4…0fed at000d = ╱50╱P╱ // 0xfe1 @0xd
0x0fd4…0fed at000e = ╱41╱A╱ // 0xfe2 @0xe
0x0fd4…0fed at000f = ╱52╱R╱ // 0xfe3 @0xf
0x0fd4…0fed at0010 = ╱41╱A╱ // 0xfe4 @0x10
0x0fd4…0fed at0011 = ╱4d╱M╱ // 0xfe5 @0x11
0x0fd4…0fed at0012 = ╱ef╱ $ ╱ // 0xfe6 @0x12
0x0fd4…0fed at0013 = ╱ec╱ , ╱ // 0xfe7 @0x13
0x0fd4…0fed at0014 = ╱22╱"╱ // 0xfe8 @0x14
0x0fd4…0fed at0015 = ╱57╱W╱ // 0xfe9 @0x15
0x0fd4…0fed at0016 = ╱22╱"╱ // 0xfea @0x16
0x0fd4…0fed at0017 = ╱ee╱ ) ╱ // 0xfeb @0x17
0x0fd4…0fed at0018 = EOL // 0xfec @0x18
0x0fd4…0fed }
0x0fed…1018 a606 01490 PUT PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x0fed…1018 LineComal80 {
0x0fed…1018 ptr = 0xa606 // 0xfed @0x0
0x0fed…1018 lno = 0x05d2 // 0xfef @0x2
0x0fed…1018 at0004 = ╱aa╱ PUT ╱ // 0xff1 @0x4
0x0fed…1018 at0005 = ╱50╱P╱ // 0xff2 @0x5
0x0fed…1018 at0006 = ╱41╱A╱ // 0xff3 @0x6
0x0fed…1018 at0007 = ╱52╱R╱ // 0xff4 @0x7
0x0fed…1018 at0008 = ╱41╱A╱ // 0xff5 @0x8
0x0fed…1018 at0009 = ╱4d╱M╱ // 0xff6 @0x9
0x0fed…1018 at000a = ╱ef╱ $ ╱ // 0xff7 @0xa
0x0fed…1018 at000b = ╱ec╱ , ╱ // 0xff8 @0xb
0x0fed…1018 at000c = ╱31╱1╱ // 0xff9 @0xc
0x0fed…1018 at000d = ╱f20100╱ // 0xffa @0xd
0x0fed…1018 at0010 = ╱f1╱ : ╱ // 0xffd @0x10
0x0fed…1018 at0011 = ╱46╱F╱ // 0xffe @0x11
0x0fed…1018 at0012 = ╱49╱I╱ // 0xfff @0x12
0x0fed…1018 at0013 = ╱52╱R╱ // 0x1000 @0x13
0x0fed…1018 at0014 = ╱4d╱M╱ // 0x1001 @0x14
0x0fed…1018 at0015 = ╱41╱A╱ // 0x1002 @0x15
0x0fed…1018 at0016 = ╱4e╱N╱ // 0x1003 @0x16
0x0fed…1018 at0017 = ╱41╱A╱ // 0x1004 @0x17
0x0fed…1018 at0018 = ╱56╱V╱ // 0x1005 @0x18
0x0fed…1018 at0019 = ╱4e╱N╱ // 0x1006 @0x19
0x0fed…1018 at001a = ╱ef╱ $ ╱ // 0x1007 @0x1a
0x0fed…1018 at001b = ╱ec╱ , ╱ // 0x1008 @0x1b
0x0fed…1018 at001c = ╱53╱S╱ // 0x1009 @0x1c
0x0fed…1018 at001d = ╱59╱Y╱ // 0x100a @0x1d
0x0fed…1018 at001e = ╱53╱S╱ // 0x100b @0x1e
0x0fed…1018 at001f = ╱54╱T╱ // 0x100c @0x1f
0x0fed…1018 at0020 = ╱5f╱_╱ // 0x100d @0x20
0x0fed…1018 at0021 = ╱44╱D╱ // 0x100e @0x21
0x0fed…1018 at0022 = ╱41╱A╱ // 0x100f @0x22
0x0fed…1018 at0023 = ╱54╱T╱ // 0x1010 @0x23
0x0fed…1018 at0024 = ╱ef╱ $ ╱ // 0x1011 @0x24
0x0fed…1018 at0025 = ╱ec╱ , ╱ // 0x1012 @0x25
0x0fed…1018 at0026 = ╱4d╱M╱ // 0x1013 @0x26
0x0fed…1018 at0027 = ╱4f╱O╱ // 0x1014 @0x27
0x0fed…1018 at0028 = ╱4d╱M╱ // 0x1015 @0x28
0x0fed…1018 at0029 = ╱53╱S╱ // 0x1016 @0x29
0x0fed…1018 at002a = EOL // 0x1017 @0x2a
0x0fed…1018 }
0x1018…1024 a612 01500 CLOSE PARAM $
0x1018…1024 LineComal80 {
0x1018…1024 ptr = 0xa612 // 0x1018 @0x0
0x1018…1024 lno = 0x05dc // 0x101a @0x2
0x1018…1024 at0004 = ╱a8╱ CLOSE ╱ // 0x101c @0x4
0x1018…1024 at0005 = ╱50╱P╱ // 0x101d @0x5
0x1018…1024 at0006 = ╱41╱A╱ // 0x101e @0x6
0x1018…1024 at0007 = ╱52╱R╱ // 0x101f @0x7
0x1018…1024 at0008 = ╱41╱A╱ // 0x1020 @0x8
0x1018…1024 at0009 = ╱4d╱M╱ // 0x1021 @0x9
0x1018…1024 at000a = ╱ef╱ $ ╱ // 0x1022 @0xa
0x1018…1024 at000b = EOL // 0x1023 @0xb
0x1018…1024 }
0x1024…1034 a622 01510 ENDPROC SYSTEMDATO
0x1024…1034 LineComal80 {
0x1024…1034 ptr = 0xa622 // 0x1024 @0x0
0x1024…1034 lno = 0x05e6 // 0x1026 @0x2
0x1024…1034 at0004 = ╱9f╱ ENDPROC ╱ // 0x1028 @0x4
0x1024…1034 at0005 = ╱53╱S╱ // 0x1029 @0x5
0x1024…1034 at0006 = ╱59╱Y╱ // 0x102a @0x6
0x1024…1034 at0007 = ╱53╱S╱ // 0x102b @0x7
0x1024…1034 at0008 = ╱54╱T╱ // 0x102c @0x8
0x1024…1034 at0009 = ╱45╱E╱ // 0x102d @0x9
0x1024…1034 at000a = ╱4d╱M╱ // 0x102e @0xa
0x1024…1034 at000b = ╱44╱D╱ // 0x102f @0xb
0x1024…1034 at000c = ╱41╱A╱ // 0x1030 @0xc
0x1024…1034 at000d = ╱54╱T╱ // 0x1031 @0xd
0x1024…1034 at000e = ╱4f╱O╱ // 0x1032 @0xe
0x1024…1034 at000f = EOL // 0x1033 @0xf
0x1024…1034 }
0x1034…1039 0000 01520
0x1034…1039 LineComal80 {
0x1034…1039 ptr = 0x0000 // 0x1034 @0x0
0x1034…1039 lno = 0x05f0 // 0x1036 @0x2
0x1034…1039 at0004 = EOL // 0x1038 @0x4
0x1034…1039 }
0x1039…103f (54,) 95ee 38382 ╱00╱ ╱00╱
0x1039…103f LineComal80 {
0x1039…103f ptr = 0x95ee // 0x1039 @0x0
0x1039…103f lno = 0x95ee // 0x103b @0x2
0x1039…103f at0004 = ╱00╱ // 0x103d @0x4
0x1039…103f at0005 = ╱00╱ // 0x103e @0x5
0x1039…103f }