|
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: 3224 (0xc98)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
Names: »SYSPTK«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSPTK«
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 FKT_MENU
00280 CHAIN PROGRAM $
00290 // ===========…Procedurer…starter…==============
00300 PROC DIMENSIONER
00310 // Standard…variable
00320 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
00330 DIM PROGRAM $ OF 17
00340 REAL RESRV , PPAR
00350 INTEGER OK , TRUE , FALSE , I , J
00360 // Variable…til…filen…SYSPARA
00370 DIM SYSPARA $ OF 17
00380 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00390 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00400 // Variable…til…filen…@@PARAM
00410 DIM PARAM $ OF 17
00420 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00430 REAL MOMS
00440 ENDPROC DIMENSIONER
00450
00460 PROC INITIER
00470 LET PRGFL $ := "DP2"
00480 LET PROGRAM $ := PRGFL $ + ":SYSP"
00490 LET SPC $ := "………………………………………………………………………………………………………………………"
00500 LET SPC $ := SPC $ + SPC $
00510 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00520 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00530 EXEC OPENFIL ( SYSPARA $ , "R" )
00540 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00550 EXEC TERMINAL_IDX
00560 CLOSE SYSPARA $
00570 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00580 EXEC OPENFIL ( PARAM $ , "R" )
00590 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00600 CLOSE PARAM $
00610 ENDPROC INITIER
00620
00630 PROC TERMINAL_IDX
00640 LET PPAR := 5 ; RESRV := 0
00650 CALL R"DDE:PRES"
00660 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
00670 ENDPROC TERMINAL_IDX
00680
00690 PROC OPENFIL ( FNAVN $ , WAY $ )
00700 REPEAT
00710 IF AY $ = "W" OR WAY $ = "w" THEN
00720 OPEN FNAVN $ , W
00730 ELSE
00740 OPEN FNAVN $ , R
00750 ENDIF
00760 IF ( FNAVN $ ) THEN
00770 PRINT "<SC0123>" ; CHR$ ( 7 )
00780 IF ( FNAVN $ ) = 6 THEN
00790 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
00800 INPUT "" : SVAR $
00810 ELSE
00820 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
00830 PRINT "<S>" ; FNAVN $ ; "…***"
00840 INPUT "" : SVAR $
00850 PRINT "<C0102>" ; SPC $
00860 ENDIF
00870 ENDIF
00880 UNTIL NOT ╱cd╱ ( FNAVN $ )
00890 ENDPROC OPENFIL
00900
00910 PROC OVERSKRIFT ( ST $ , L )
00920 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
00930 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
00940 PRINT SYST_DAT $ ( 5 : 2 )
00950 CURSOR 36 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
00960 PRINT "***…" ; ST $ ; "…***"
00970 ENDPROC OVERSKRIFT
00980
00990 PROC SL_FEJLLINIE
01000 LET OK := TRUE
01010 PRINT "<C0102>" ; SPC $
01020 ENDPROC SL_FEJLLINIE
01030
01040 PROC FEJL ( ST $ )
01050 LET OK := FALSE
01060 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
01070 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
01080 ENDPROC FEJL
01090
01100 PROC FKT_MENU
01110 EXEC OVERSKRIFT ( "[ndring…af…terminalkode…m.m." , 7 )
01120 EDIT "<C3011>Terminalkode:…" : T_KODE $
01130 REPEAT
01140 EDIT "<C2214>Etikette…for…datafillager:…" : DATAFL $
01150 UNTIL ╱cb╱ ( DATAFL $ ) > 0
01160 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
01170 EXEC OPENFIL ( PARAM $ , "R" )
01180 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
01190 CLOSE PARAM $
01200 EXEC OPENFIL ( SYSPARA $ , "W" )
01210 LET RESRV := 0 ; PPAR := 5
01220 CALL
17732 :PRES"
01230 PUT SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01240 CLOSE SYSPARA $
01250 ENDPROC FKT_MENU
38382 ╱00╱ ╱00╱
0x000…038 (0,) 9626 00100 // **************************************************
0x000…038 LineComal80 {
0x000…038 ptr = 0x9626 // 0x0 @0x0
0x000…038 lno = 0x0064 // 0x2 @0x2
0x000…038 at0004 = ╱89╱ // ╱ // 0x4 @0x4
0x000…038 at0005 = ╱2a╱*╱ // 0x5 @0x5
0x000…038 at0006 = ╱2a╱*╱ // 0x6 @0x6
0x000…038 at0007 = ╱2a╱*╱ // 0x7 @0x7
0x000…038 at0008 = ╱2a╱*╱ // 0x8 @0x8
0x000…038 at0009 = ╱2a╱*╱ // 0x9 @0x9
0x000…038 at000a = ╱2a╱*╱ // 0xa @0xa
0x000…038 at000b = ╱2a╱*╱ // 0xb @0xb
0x000…038 at000c = ╱2a╱*╱ // 0xc @0xc
0x000…038 at000d = ╱2a╱*╱ // 0xd @0xd
0x000…038 at000e = ╱2a╱*╱ // 0xe @0xe
0x000…038 at000f = ╱2a╱*╱ // 0xf @0xf
0x000…038 at0010 = ╱2a╱*╱ // 0x10 @0x10
0x000…038 at0011 = ╱2a╱*╱ // 0x11 @0x11
0x000…038 at0012 = ╱2a╱*╱ // 0x12 @0x12
0x000…038 at0013 = ╱2a╱*╱ // 0x13 @0x13
0x000…038 at0014 = ╱2a╱*╱ // 0x14 @0x14
0x000…038 at0015 = ╱2a╱*╱ // 0x15 @0x15
0x000…038 at0016 = ╱2a╱*╱ // 0x16 @0x16
0x000…038 at0017 = ╱2a╱*╱ // 0x17 @0x17
0x000…038 at0018 = ╱2a╱*╱ // 0x18 @0x18
0x000…038 at0019 = ╱2a╱*╱ // 0x19 @0x19
0x000…038 at001a = ╱2a╱*╱ // 0x1a @0x1a
0x000…038 at001b = ╱2a╱*╱ // 0x1b @0x1b
0x000…038 at001c = ╱2a╱*╱ // 0x1c @0x1c
0x000…038 at001d = ╱2a╱*╱ // 0x1d @0x1d
0x000…038 at001e = ╱2a╱*╱ // 0x1e @0x1e
0x000…038 at001f = ╱2a╱*╱ // 0x1f @0x1f
0x000…038 at0020 = ╱2a╱*╱ // 0x20 @0x20
0x000…038 at0021 = ╱2a╱*╱ // 0x21 @0x21
0x000…038 at0022 = ╱2a╱*╱ // 0x22 @0x22
0x000…038 at0023 = ╱2a╱*╱ // 0x23 @0x23
0x000…038 at0024 = ╱2a╱*╱ // 0x24 @0x24
0x000…038 at0025 = ╱2a╱*╱ // 0x25 @0x25
0x000…038 at0026 = ╱2a╱*╱ // 0x26 @0x26
0x000…038 at0027 = ╱2a╱*╱ // 0x27 @0x27
0x000…038 at0028 = ╱2a╱*╱ // 0x28 @0x28
0x000…038 at0029 = ╱2a╱*╱ // 0x29 @0x29
0x000…038 at002a = ╱2a╱*╱ // 0x2a @0x2a
0x000…038 at002b = ╱2a╱*╱ // 0x2b @0x2b
0x000…038 at002c = ╱2a╱*╱ // 0x2c @0x2c
0x000…038 at002d = ╱2a╱*╱ // 0x2d @0x2d
0x000…038 at002e = ╱2a╱*╱ // 0x2e @0x2e
0x000…038 at002f = ╱2a╱*╱ // 0x2f @0x2f
0x000…038 at0030 = ╱2a╱*╱ // 0x30 @0x30
0x000…038 at0031 = ╱2a╱*╱ // 0x31 @0x31
0x000…038 at0032 = ╱2a╱*╱ // 0x32 @0x32
0x000…038 at0033 = ╱2a╱*╱ // 0x33 @0x33
0x000…038 at0034 = ╱2a╱*╱ // 0x34 @0x34
0x000…038 at0035 = ╱2a╱*╱ // 0x35 @0x35
0x000…038 at0036 = ╱2a╱*╱ // 0x36 @0x36
0x000…038 at0037 = EOL // 0x37 @0x37
0x000…038 }
0x038…070 965e 00110 // *………………………………………………………………………………………………………………………………*
0x038…070 LineComal80 {
0x038…070 ptr = 0x965e // 0x38 @0x0
0x038…070 lno = 0x006e // 0x3a @0x2
0x038…070 at0004 = ╱89╱ // ╱ // 0x3c @0x4
0x038…070 at0005 = ╱2a╱*╱ // 0x3d @0x5
0x038…070 at0006 = ╱20╱…╱ // 0x3e @0x6
0x038…070 at0007 = ╱20╱…╱ // 0x3f @0x7
0x038…070 at0008 = ╱20╱…╱ // 0x40 @0x8
0x038…070 at0009 = ╱20╱…╱ // 0x41 @0x9
0x038…070 at000a = ╱20╱…╱ // 0x42 @0xa
0x038…070 at000b = ╱20╱…╱ // 0x43 @0xb
0x038…070 at000c = ╱20╱…╱ // 0x44 @0xc
0x038…070 at000d = ╱20╱…╱ // 0x45 @0xd
0x038…070 at000e = ╱20╱…╱ // 0x46 @0xe
0x038…070 at000f = ╱20╱…╱ // 0x47 @0xf
0x038…070 at0010 = ╱20╱…╱ // 0x48 @0x10
0x038…070 at0011 = ╱20╱…╱ // 0x49 @0x11
0x038…070 at0012 = ╱20╱…╱ // 0x4a @0x12
0x038…070 at0013 = ╱20╱…╱ // 0x4b @0x13
0x038…070 at0014 = ╱20╱…╱ // 0x4c @0x14
0x038…070 at0015 = ╱20╱…╱ // 0x4d @0x15
0x038…070 at0016 = ╱20╱…╱ // 0x4e @0x16
0x038…070 at0017 = ╱20╱…╱ // 0x4f @0x17
0x038…070 at0018 = ╱20╱…╱ // 0x50 @0x18
0x038…070 at0019 = ╱20╱…╱ // 0x51 @0x19
0x038…070 at001a = ╱20╱…╱ // 0x52 @0x1a
0x038…070 at001b = ╱20╱…╱ // 0x53 @0x1b
0x038…070 at001c = ╱20╱…╱ // 0x54 @0x1c
0x038…070 at001d = ╱20╱…╱ // 0x55 @0x1d
0x038…070 at001e = ╱20╱…╱ // 0x56 @0x1e
0x038…070 at001f = ╱20╱…╱ // 0x57 @0x1f
0x038…070 at0020 = ╱20╱…╱ // 0x58 @0x20
0x038…070 at0021 = ╱20╱…╱ // 0x59 @0x21
0x038…070 at0022 = ╱20╱…╱ // 0x5a @0x22
0x038…070 at0023 = ╱20╱…╱ // 0x5b @0x23
0x038…070 at0024 = ╱20╱…╱ // 0x5c @0x24
0x038…070 at0025 = ╱20╱…╱ // 0x5d @0x25
0x038…070 at0026 = ╱20╱…╱ // 0x5e @0x26
0x038…070 at0027 = ╱20╱…╱ // 0x5f @0x27
0x038…070 at0028 = ╱20╱…╱ // 0x60 @0x28
0x038…070 at0029 = ╱20╱…╱ // 0x61 @0x29
0x038…070 at002a = ╱20╱…╱ // 0x62 @0x2a
0x038…070 at002b = ╱20╱…╱ // 0x63 @0x2b
0x038…070 at002c = ╱20╱…╱ // 0x64 @0x2c
0x038…070 at002d = ╱20╱…╱ // 0x65 @0x2d
0x038…070 at002e = ╱20╱…╱ // 0x66 @0x2e
0x038…070 at002f = ╱20╱…╱ // 0x67 @0x2f
0x038…070 at0030 = ╱20╱…╱ // 0x68 @0x30
0x038…070 at0031 = ╱20╱…╱ // 0x69 @0x31
0x038…070 at0032 = ╱20╱…╱ // 0x6a @0x32
0x038…070 at0033 = ╱20╱…╱ // 0x6b @0x33
0x038…070 at0034 = ╱20╱…╱ // 0x6c @0x34
0x038…070 at0035 = ╱20╱…╱ // 0x6d @0x35
0x038…070 at0036 = ╱2a╱*╱ // 0x6e @0x36
0x038…070 at0037 = EOL // 0x6f @0x37
0x038…070 }
0x070…0a8 9696 00120 // *…………………………Bogf|ringssystemet…'SYS-KAS'…………………………*
0x070…0a8 LineComal80 {
0x070…0a8 ptr = 0x9696 // 0x70 @0x0
0x070…0a8 lno = 0x0078 // 0x72 @0x2
0x070…0a8 at0004 = ╱89╱ // ╱ // 0x74 @0x4
0x070…0a8 at0005 = ╱2a╱*╱ // 0x75 @0x5
0x070…0a8 at0006 = ╱20╱…╱ // 0x76 @0x6
0x070…0a8 at0007 = ╱20╱…╱ // 0x77 @0x7
0x070…0a8 at0008 = ╱20╱…╱ // 0x78 @0x8
0x070…0a8 at0009 = ╱20╱…╱ // 0x79 @0x9
0x070…0a8 at000a = ╱20╱…╱ // 0x7a @0xa
0x070…0a8 at000b = ╱20╱…╱ // 0x7b @0xb
0x070…0a8 at000c = ╱20╱…╱ // 0x7c @0xc
0x070…0a8 at000d = ╱20╱…╱ // 0x7d @0xd
0x070…0a8 at000e = ╱20╱…╱ // 0x7e @0xe
0x070…0a8 at000f = ╱20╱…╱ // 0x7f @0xf
0x070…0a8 at0010 = ╱42╱B╱ // 0x80 @0x10
0x070…0a8 at0011 = ╱6f╱o╱ // 0x81 @0x11
0x070…0a8 at0012 = ╱67╱g╱ // 0x82 @0x12
0x070…0a8 at0013 = ╱66╱f╱ // 0x83 @0x13
0x070…0a8 at0014 = ╱7c╱|╱ // 0x84 @0x14
0x070…0a8 at0015 = ╱72╱r╱ // 0x85 @0x15
0x070…0a8 at0016 = ╱69╱i╱ // 0x86 @0x16
0x070…0a8 at0017 = ╱6e╱n╱ // 0x87 @0x17
0x070…0a8 at0018 = ╱67╱g╱ // 0x88 @0x18
0x070…0a8 at0019 = ╱73╱s╱ // 0x89 @0x19
0x070…0a8 at001a = ╱73╱s╱ // 0x8a @0x1a
0x070…0a8 at001b = ╱79╱y╱ // 0x8b @0x1b
0x070…0a8 at001c = ╱73╱s╱ // 0x8c @0x1c
0x070…0a8 at001d = ╱74╱t╱ // 0x8d @0x1d
0x070…0a8 at001e = ╱65╱e╱ // 0x8e @0x1e
0x070…0a8 at001f = ╱6d╱m╱ // 0x8f @0x1f
0x070…0a8 at0020 = ╱65╱e╱ // 0x90 @0x20
0x070…0a8 at0021 = ╱74╱t╱ // 0x91 @0x21
0x070…0a8 at0022 = ╱20╱…╱ // 0x92 @0x22
0x070…0a8 at0023 = ╱27╱'╱ // 0x93 @0x23
0x070…0a8 at0024 = ╱53╱S╱ // 0x94 @0x24
0x070…0a8 at0025 = ╱59╱Y╱ // 0x95 @0x25
0x070…0a8 at0026 = ╱53╱S╱ // 0x96 @0x26
0x070…0a8 at0027 = ╱2d╱-╱ // 0x97 @0x27
0x070…0a8 at0028 = ╱4b╱K╱ // 0x98 @0x28
0x070…0a8 at0029 = ╱41╱A╱ // 0x99 @0x29
0x070…0a8 at002a = ╱53╱S╱ // 0x9a @0x2a
0x070…0a8 at002b = ╱27╱'╱ // 0x9b @0x2b
0x070…0a8 at002c = ╱20╱…╱ // 0x9c @0x2c
0x070…0a8 at002d = ╱20╱…╱ // 0x9d @0x2d
0x070…0a8 at002e = ╱20╱…╱ // 0x9e @0x2e
0x070…0a8 at002f = ╱20╱…╱ // 0x9f @0x2f
0x070…0a8 at0030 = ╱20╱…╱ // 0xa0 @0x30
0x070…0a8 at0031 = ╱20╱…╱ // 0xa1 @0x31
0x070…0a8 at0032 = ╱20╱…╱ // 0xa2 @0x32
0x070…0a8 at0033 = ╱20╱…╱ // 0xa3 @0x33
0x070…0a8 at0034 = ╱20╱…╱ // 0xa4 @0x34
0x070…0a8 at0035 = ╱20╱…╱ // 0xa5 @0x35
0x070…0a8 at0036 = ╱2a╱*╱ // 0xa6 @0x36
0x070…0a8 at0037 = EOL // 0xa7 @0x37
0x070…0a8 }
0x0a8…0e0 96ce 00130 // *………………………………………………vers.…1.0………………………………………………………*
0x0a8…0e0 LineComal80 {
0x0a8…0e0 ptr = 0x96ce // 0xa8 @0x0
0x0a8…0e0 lno = 0x0082 // 0xaa @0x2
0x0a8…0e0 at0004 = ╱89╱ // ╱ // 0xac @0x4
0x0a8…0e0 at0005 = ╱2a╱*╱ // 0xad @0x5
0x0a8…0e0 at0006 = ╱20╱…╱ // 0xae @0x6
0x0a8…0e0 at0007 = ╱20╱…╱ // 0xaf @0x7
0x0a8…0e0 at0008 = ╱20╱…╱ // 0xb0 @0x8
0x0a8…0e0 at0009 = ╱20╱…╱ // 0xb1 @0x9
0x0a8…0e0 at000a = ╱20╱…╱ // 0xb2 @0xa
0x0a8…0e0 at000b = ╱20╱…╱ // 0xb3 @0xb
0x0a8…0e0 at000c = ╱20╱…╱ // 0xb4 @0xc
0x0a8…0e0 at000d = ╱20╱…╱ // 0xb5 @0xd
0x0a8…0e0 at000e = ╱20╱…╱ // 0xb6 @0xe
0x0a8…0e0 at000f = ╱20╱…╱ // 0xb7 @0xf
0x0a8…0e0 at0010 = ╱20╱…╱ // 0xb8 @0x10
0x0a8…0e0 at0011 = ╱20╱…╱ // 0xb9 @0x11
0x0a8…0e0 at0012 = ╱20╱…╱ // 0xba @0x12
0x0a8…0e0 at0013 = ╱20╱…╱ // 0xbb @0x13
0x0a8…0e0 at0014 = ╱20╱…╱ // 0xbc @0x14
0x0a8…0e0 at0015 = ╱20╱…╱ // 0xbd @0x15
0x0a8…0e0 at0016 = ╱20╱…╱ // 0xbe @0x16
0x0a8…0e0 at0017 = ╱20╱…╱ // 0xbf @0x17
0x0a8…0e0 at0018 = ╱76╱v╱ // 0xc0 @0x18
0x0a8…0e0 at0019 = ╱65╱e╱ // 0xc1 @0x19
0x0a8…0e0 at001a = ╱72╱r╱ // 0xc2 @0x1a
0x0a8…0e0 at001b = ╱73╱s╱ // 0xc3 @0x1b
0x0a8…0e0 at001c = ╱2e╱.╱ // 0xc4 @0x1c
0x0a8…0e0 at001d = ╱20╱…╱ // 0xc5 @0x1d
0x0a8…0e0 at001e = ╱31╱1╱ // 0xc6 @0x1e
0x0a8…0e0 at001f = ╱2e╱.╱ // 0xc7 @0x1f
0x0a8…0e0 at0020 = ╱30╱0╱ // 0xc8 @0x20
0x0a8…0e0 at0021 = ╱20╱…╱ // 0xc9 @0x21
0x0a8…0e0 at0022 = ╱20╱…╱ // 0xca @0x22
0x0a8…0e0 at0023 = ╱20╱…╱ // 0xcb @0x23
0x0a8…0e0 at0024 = ╱20╱…╱ // 0xcc @0x24
0x0a8…0e0 at0025 = ╱20╱…╱ // 0xcd @0x25
0x0a8…0e0 at0026 = ╱20╱…╱ // 0xce @0x26
0x0a8…0e0 at0027 = ╱20╱…╱ // 0xcf @0x27
0x0a8…0e0 at0028 = ╱20╱…╱ // 0xd0 @0x28
0x0a8…0e0 at0029 = ╱20╱…╱ // 0xd1 @0x29
0x0a8…0e0 at002a = ╱20╱…╱ // 0xd2 @0x2a
0x0a8…0e0 at002b = ╱20╱…╱ // 0xd3 @0x2b
0x0a8…0e0 at002c = ╱20╱…╱ // 0xd4 @0x2c
0x0a8…0e0 at002d = ╱20╱…╱ // 0xd5 @0x2d
0x0a8…0e0 at002e = ╱20╱…╱ // 0xd6 @0x2e
0x0a8…0e0 at002f = ╱20╱…╱ // 0xd7 @0x2f
0x0a8…0e0 at0030 = ╱20╱…╱ // 0xd8 @0x30
0x0a8…0e0 at0031 = ╱20╱…╱ // 0xd9 @0x31
0x0a8…0e0 at0032 = ╱20╱…╱ // 0xda @0x32
0x0a8…0e0 at0033 = ╱20╱…╱ // 0xdb @0x33
0x0a8…0e0 at0034 = ╱20╱…╱ // 0xdc @0x34
0x0a8…0e0 at0035 = ╱20╱…╱ // 0xdd @0x35
0x0a8…0e0 at0036 = ╱2a╱*╱ // 0xde @0x36
0x0a8…0e0 at0037 = EOL // 0xdf @0x37
0x0a8…0e0 }
0x0e0…118 9706 00140 // *………………………………………………………………………………………………………………………………*
0x0e0…118 LineComal80 {
0x0e0…118 ptr = 0x9706 // 0xe0 @0x0
0x0e0…118 lno = 0x008c // 0xe2 @0x2
0x0e0…118 at0004 = ╱89╱ // ╱ // 0xe4 @0x4
0x0e0…118 at0005 = ╱2a╱*╱ // 0xe5 @0x5
0x0e0…118 at0006 = ╱20╱…╱ // 0xe6 @0x6
0x0e0…118 at0007 = ╱20╱…╱ // 0xe7 @0x7
0x0e0…118 at0008 = ╱20╱…╱ // 0xe8 @0x8
0x0e0…118 at0009 = ╱20╱…╱ // 0xe9 @0x9
0x0e0…118 at000a = ╱20╱…╱ // 0xea @0xa
0x0e0…118 at000b = ╱20╱…╱ // 0xeb @0xb
0x0e0…118 at000c = ╱20╱…╱ // 0xec @0xc
0x0e0…118 at000d = ╱20╱…╱ // 0xed @0xd
0x0e0…118 at000e = ╱20╱…╱ // 0xee @0xe
0x0e0…118 at000f = ╱20╱…╱ // 0xef @0xf
0x0e0…118 at0010 = ╱20╱…╱ // 0xf0 @0x10
0x0e0…118 at0011 = ╱20╱…╱ // 0xf1 @0x11
0x0e0…118 at0012 = ╱20╱…╱ // 0xf2 @0x12
0x0e0…118 at0013 = ╱20╱…╱ // 0xf3 @0x13
0x0e0…118 at0014 = ╱20╱…╱ // 0xf4 @0x14
0x0e0…118 at0015 = ╱20╱…╱ // 0xf5 @0x15
0x0e0…118 at0016 = ╱20╱…╱ // 0xf6 @0x16
0x0e0…118 at0017 = ╱20╱…╱ // 0xf7 @0x17
0x0e0…118 at0018 = ╱20╱…╱ // 0xf8 @0x18
0x0e0…118 at0019 = ╱20╱…╱ // 0xf9 @0x19
0x0e0…118 at001a = ╱20╱…╱ // 0xfa @0x1a
0x0e0…118 at001b = ╱20╱…╱ // 0xfb @0x1b
0x0e0…118 at001c = ╱20╱…╱ // 0xfc @0x1c
0x0e0…118 at001d = ╱20╱…╱ // 0xfd @0x1d
0x0e0…118 at001e = ╱20╱…╱ // 0xfe @0x1e
0x0e0…118 at001f = ╱20╱…╱ // 0xff @0x1f
0x0e0…118 at0020 = ╱20╱…╱ // 0x100 @0x20
0x0e0…118 at0021 = ╱20╱…╱ // 0x101 @0x21
0x0e0…118 at0022 = ╱20╱…╱ // 0x102 @0x22
0x0e0…118 at0023 = ╱20╱…╱ // 0x103 @0x23
0x0e0…118 at0024 = ╱20╱…╱ // 0x104 @0x24
0x0e0…118 at0025 = ╱20╱…╱ // 0x105 @0x25
0x0e0…118 at0026 = ╱20╱…╱ // 0x106 @0x26
0x0e0…118 at0027 = ╱20╱…╱ // 0x107 @0x27
0x0e0…118 at0028 = ╱20╱…╱ // 0x108 @0x28
0x0e0…118 at0029 = ╱20╱…╱ // 0x109 @0x29
0x0e0…118 at002a = ╱20╱…╱ // 0x10a @0x2a
0x0e0…118 at002b = ╱20╱…╱ // 0x10b @0x2b
0x0e0…118 at002c = ╱20╱…╱ // 0x10c @0x2c
0x0e0…118 at002d = ╱20╱…╱ // 0x10d @0x2d
0x0e0…118 at002e = ╱20╱…╱ // 0x10e @0x2e
0x0e0…118 at002f = ╱20╱…╱ // 0x10f @0x2f
0x0e0…118 at0030 = ╱20╱…╱ // 0x110 @0x30
0x0e0…118 at0031 = ╱20╱…╱ // 0x111 @0x31
0x0e0…118 at0032 = ╱20╱…╱ // 0x112 @0x32
0x0e0…118 at0033 = ╱20╱…╱ // 0x113 @0x33
0x0e0…118 at0034 = ╱20╱…╱ // 0x114 @0x34
0x0e0…118 at0035 = ╱20╱…╱ // 0x115 @0x35
0x0e0…118 at0036 = ╱2a╱*╱ // 0x116 @0x36
0x0e0…118 at0037 = EOL // 0x117 @0x37
0x0e0…118 }
0x118…150 973e 00150 // *…Udviklet…marts…1983…p}…en…'SPC/1'…mikrodatamat…*
0x118…150 LineComal80 {
0x118…150 ptr = 0x973e // 0x118 @0x0
0x118…150 lno = 0x0096 // 0x11a @0x2
0x118…150 at0004 = ╱89╱ // ╱ // 0x11c @0x4
0x118…150 at0005 = ╱2a╱*╱ // 0x11d @0x5
0x118…150 at0006 = ╱20╱…╱ // 0x11e @0x6
0x118…150 at0007 = ╱55╱U╱ // 0x11f @0x7
0x118…150 at0008 = ╱64╱d╱ // 0x120 @0x8
0x118…150 at0009 = ╱76╱v╱ // 0x121 @0x9
0x118…150 at000a = ╱69╱i╱ // 0x122 @0xa
0x118…150 at000b = ╱6b╱k╱ // 0x123 @0xb
0x118…150 at000c = ╱6c╱l╱ // 0x124 @0xc
0x118…150 at000d = ╱65╱e╱ // 0x125 @0xd
0x118…150 at000e = ╱74╱t╱ // 0x126 @0xe
0x118…150 at000f = ╱20╱…╱ // 0x127 @0xf
0x118…150 at0010 = ╱6d╱m╱ // 0x128 @0x10
0x118…150 at0011 = ╱61╱a╱ // 0x129 @0x11
0x118…150 at0012 = ╱72╱r╱ // 0x12a @0x12
0x118…150 at0013 = ╱74╱t╱ // 0x12b @0x13
0x118…150 at0014 = ╱73╱s╱ // 0x12c @0x14
0x118…150 at0015 = ╱20╱…╱ // 0x12d @0x15
0x118…150 at0016 = ╱31╱1╱ // 0x12e @0x16
0x118…150 at0017 = ╱39╱9╱ // 0x12f @0x17
0x118…150 at0018 = ╱38╱8╱ // 0x130 @0x18
0x118…150 at0019 = ╱33╱3╱ // 0x131 @0x19
0x118…150 at001a = ╱20╱…╱ // 0x132 @0x1a
0x118…150 at001b = ╱70╱p╱ // 0x133 @0x1b
0x118…150 at001c = ╱7d╱}╱ // 0x134 @0x1c
0x118…150 at001d = ╱20╱…╱ // 0x135 @0x1d
0x118…150 at001e = ╱65╱e╱ // 0x136 @0x1e
0x118…150 at001f = ╱6e╱n╱ // 0x137 @0x1f
0x118…150 at0020 = ╱20╱…╱ // 0x138 @0x20
0x118…150 at0021 = ╱27╱'╱ // 0x139 @0x21
0x118…150 at0022 = ╱53╱S╱ // 0x13a @0x22
0x118…150 at0023 = ╱50╱P╱ // 0x13b @0x23
0x118…150 at0024 = ╱43╱C╱ // 0x13c @0x24
0x118…150 at0025 = ╱2f╱/╱ // 0x13d @0x25
0x118…150 at0026 = ╱31╱1╱ // 0x13e @0x26
0x118…150 at0027 = ╱27╱'╱ // 0x13f @0x27
0x118…150 at0028 = ╱20╱…╱ // 0x140 @0x28
0x118…150 at0029 = ╱6d╱m╱ // 0x141 @0x29
0x118…150 at002a = ╱69╱i╱ // 0x142 @0x2a
0x118…150 at002b = ╱6b╱k╱ // 0x143 @0x2b
0x118…150 at002c = ╱72╱r╱ // 0x144 @0x2c
0x118…150 at002d = ╱6f╱o╱ // 0x145 @0x2d
0x118…150 at002e = ╱64╱d╱ // 0x146 @0x2e
0x118…150 at002f = ╱61╱a╱ // 0x147 @0x2f
0x118…150 at0030 = ╱74╱t╱ // 0x148 @0x30
0x118…150 at0031 = ╱61╱a╱ // 0x149 @0x31
0x118…150 at0032 = ╱6d╱m╱ // 0x14a @0x32
0x118…150 at0033 = ╱61╱a╱ // 0x14b @0x33
0x118…150 at0034 = ╱74╱t╱ // 0x14c @0x34
0x118…150 at0035 = ╱20╱…╱ // 0x14d @0x35
0x118…150 at0036 = ╱2a╱*╱ // 0x14e @0x36
0x118…150 at0037 = EOL // 0x14f @0x37
0x118…150 }
0x150…188 9776 00160 // *…Programsystemet…er…skrevet…i…COMAL80…vers.…1.2…*
0x150…188 LineComal80 {
0x150…188 ptr = 0x9776 // 0x150 @0x0
0x150…188 lno = 0x00a0 // 0x152 @0x2
0x150…188 at0004 = ╱89╱ // ╱ // 0x154 @0x4
0x150…188 at0005 = ╱2a╱*╱ // 0x155 @0x5
0x150…188 at0006 = ╱20╱…╱ // 0x156 @0x6
0x150…188 at0007 = ╱50╱P╱ // 0x157 @0x7
0x150…188 at0008 = ╱72╱r╱ // 0x158 @0x8
0x150…188 at0009 = ╱6f╱o╱ // 0x159 @0x9
0x150…188 at000a = ╱67╱g╱ // 0x15a @0xa
0x150…188 at000b = ╱72╱r╱ // 0x15b @0xb
0x150…188 at000c = ╱61╱a╱ // 0x15c @0xc
0x150…188 at000d = ╱6d╱m╱ // 0x15d @0xd
0x150…188 at000e = ╱73╱s╱ // 0x15e @0xe
0x150…188 at000f = ╱79╱y╱ // 0x15f @0xf
0x150…188 at0010 = ╱73╱s╱ // 0x160 @0x10
0x150…188 at0011 = ╱74╱t╱ // 0x161 @0x11
0x150…188 at0012 = ╱65╱e╱ // 0x162 @0x12
0x150…188 at0013 = ╱6d╱m╱ // 0x163 @0x13
0x150…188 at0014 = ╱65╱e╱ // 0x164 @0x14
0x150…188 at0015 = ╱74╱t╱ // 0x165 @0x15
0x150…188 at0016 = ╱20╱…╱ // 0x166 @0x16
0x150…188 at0017 = ╱65╱e╱ // 0x167 @0x17
0x150…188 at0018 = ╱72╱r╱ // 0x168 @0x18
0x150…188 at0019 = ╱20╱…╱ // 0x169 @0x19
0x150…188 at001a = ╱73╱s╱ // 0x16a @0x1a
0x150…188 at001b = ╱6b╱k╱ // 0x16b @0x1b
0x150…188 at001c = ╱72╱r╱ // 0x16c @0x1c
0x150…188 at001d = ╱65╱e╱ // 0x16d @0x1d
0x150…188 at001e = ╱76╱v╱ // 0x16e @0x1e
0x150…188 at001f = ╱65╱e╱ // 0x16f @0x1f
0x150…188 at0020 = ╱74╱t╱ // 0x170 @0x20
0x150…188 at0021 = ╱20╱…╱ // 0x171 @0x21
0x150…188 at0022 = ╱69╱i╱ // 0x172 @0x22
0x150…188 at0023 = ╱20╱…╱ // 0x173 @0x23
0x150…188 at0024 = ╱43╱C╱ // 0x174 @0x24
0x150…188 at0025 = ╱4f╱O╱ // 0x175 @0x25
0x150…188 at0026 = ╱4d╱M╱ // 0x176 @0x26
0x150…188 at0027 = ╱41╱A╱ // 0x177 @0x27
0x150…188 at0028 = ╱4c╱L╱ // 0x178 @0x28
0x150…188 at0029 = ╱38╱8╱ // 0x179 @0x29
0x150…188 at002a = ╱30╱0╱ // 0x17a @0x2a
0x150…188 at002b = ╱20╱…╱ // 0x17b @0x2b
0x150…188 at002c = ╱76╱v╱ // 0x17c @0x2c
0x150…188 at002d = ╱65╱e╱ // 0x17d @0x2d
0x150…188 at002e = ╱72╱r╱ // 0x17e @0x2e
0x150…188 at002f = ╱73╱s╱ // 0x17f @0x2f
0x150…188 at0030 = ╱2e╱.╱ // 0x180 @0x30
0x150…188 at0031 = ╱20╱…╱ // 0x181 @0x31
0x150…188 at0032 = ╱31╱1╱ // 0x182 @0x32
0x150…188 at0033 = ╱2e╱.╱ // 0x183 @0x33
0x150…188 at0034 = ╱32╱2╱ // 0x184 @0x34
0x150…188 at0035 = ╱20╱…╱ // 0x185 @0x35
0x150…188 at0036 = ╱2a╱*╱ // 0x186 @0x36
0x150…188 at0037 = EOL // 0x187 @0x37
0x150…188 }
0x188…1c0 97ae 00170 // *………………………………………………………………………………………………………………………………*
0x188…1c0 LineComal80 {
0x188…1c0 ptr = 0x97ae // 0x188 @0x0
0x188…1c0 lno = 0x00aa // 0x18a @0x2
0x188…1c0 at0004 = ╱89╱ // ╱ // 0x18c @0x4
0x188…1c0 at0005 = ╱2a╱*╱ // 0x18d @0x5
0x188…1c0 at0006 = ╱20╱…╱ // 0x18e @0x6
0x188…1c0 at0007 = ╱20╱…╱ // 0x18f @0x7
0x188…1c0 at0008 = ╱20╱…╱ // 0x190 @0x8
0x188…1c0 at0009 = ╱20╱…╱ // 0x191 @0x9
0x188…1c0 at000a = ╱20╱…╱ // 0x192 @0xa
0x188…1c0 at000b = ╱20╱…╱ // 0x193 @0xb
0x188…1c0 at000c = ╱20╱…╱ // 0x194 @0xc
0x188…1c0 at000d = ╱20╱…╱ // 0x195 @0xd
0x188…1c0 at000e = ╱20╱…╱ // 0x196 @0xe
0x188…1c0 at000f = ╱20╱…╱ // 0x197 @0xf
0x188…1c0 at0010 = ╱20╱…╱ // 0x198 @0x10
0x188…1c0 at0011 = ╱20╱…╱ // 0x199 @0x11
0x188…1c0 at0012 = ╱20╱…╱ // 0x19a @0x12
0x188…1c0 at0013 = ╱20╱…╱ // 0x19b @0x13
0x188…1c0 at0014 = ╱20╱…╱ // 0x19c @0x14
0x188…1c0 at0015 = ╱20╱…╱ // 0x19d @0x15
0x188…1c0 at0016 = ╱20╱…╱ // 0x19e @0x16
0x188…1c0 at0017 = ╱20╱…╱ // 0x19f @0x17
0x188…1c0 at0018 = ╱20╱…╱ // 0x1a0 @0x18
0x188…1c0 at0019 = ╱20╱…╱ // 0x1a1 @0x19
0x188…1c0 at001a = ╱20╱…╱ // 0x1a2 @0x1a
0x188…1c0 at001b = ╱20╱…╱ // 0x1a3 @0x1b
0x188…1c0 at001c = ╱20╱…╱ // 0x1a4 @0x1c
0x188…1c0 at001d = ╱20╱…╱ // 0x1a5 @0x1d
0x188…1c0 at001e = ╱20╱…╱ // 0x1a6 @0x1e
0x188…1c0 at001f = ╱20╱…╱ // 0x1a7 @0x1f
0x188…1c0 at0020 = ╱20╱…╱ // 0x1a8 @0x20
0x188…1c0 at0021 = ╱20╱…╱ // 0x1a9 @0x21
0x188…1c0 at0022 = ╱20╱…╱ // 0x1aa @0x22
0x188…1c0 at0023 = ╱20╱…╱ // 0x1ab @0x23
0x188…1c0 at0024 = ╱20╱…╱ // 0x1ac @0x24
0x188…1c0 at0025 = ╱20╱…╱ // 0x1ad @0x25
0x188…1c0 at0026 = ╱20╱…╱ // 0x1ae @0x26
0x188…1c0 at0027 = ╱20╱…╱ // 0x1af @0x27
0x188…1c0 at0028 = ╱20╱…╱ // 0x1b0 @0x28
0x188…1c0 at0029 = ╱20╱…╱ // 0x1b1 @0x29
0x188…1c0 at002a = ╱20╱…╱ // 0x1b2 @0x2a
0x188…1c0 at002b = ╱20╱…╱ // 0x1b3 @0x2b
0x188…1c0 at002c = ╱20╱…╱ // 0x1b4 @0x2c
0x188…1c0 at002d = ╱20╱…╱ // 0x1b5 @0x2d
0x188…1c0 at002e = ╱20╱…╱ // 0x1b6 @0x2e
0x188…1c0 at002f = ╱20╱…╱ // 0x1b7 @0x2f
0x188…1c0 at0030 = ╱20╱…╱ // 0x1b8 @0x30
0x188…1c0 at0031 = ╱20╱…╱ // 0x1b9 @0x31
0x188…1c0 at0032 = ╱20╱…╱ // 0x1ba @0x32
0x188…1c0 at0033 = ╱20╱…╱ // 0x1bb @0x33
0x188…1c0 at0034 = ╱20╱…╱ // 0x1bc @0x34
0x188…1c0 at0035 = ╱20╱…╱ // 0x1bd @0x35
0x188…1c0 at0036 = ╱2a╱*╱ // 0x1be @0x36
0x188…1c0 at0037 = EOL // 0x1bf @0x37
0x188…1c0 }
0x1c0…1f8 97e6 00180 // *…Udviklet…af…:…Peter…Kristensen……………………………………………*
0x1c0…1f8 LineComal80 {
0x1c0…1f8 ptr = 0x97e6 // 0x1c0 @0x0
0x1c0…1f8 lno = 0x00b4 // 0x1c2 @0x2
0x1c0…1f8 at0004 = ╱89╱ // ╱ // 0x1c4 @0x4
0x1c0…1f8 at0005 = ╱2a╱*╱ // 0x1c5 @0x5
0x1c0…1f8 at0006 = ╱20╱…╱ // 0x1c6 @0x6
0x1c0…1f8 at0007 = ╱55╱U╱ // 0x1c7 @0x7
0x1c0…1f8 at0008 = ╱64╱d╱ // 0x1c8 @0x8
0x1c0…1f8 at0009 = ╱76╱v╱ // 0x1c9 @0x9
0x1c0…1f8 at000a = ╱69╱i╱ // 0x1ca @0xa
0x1c0…1f8 at000b = ╱6b╱k╱ // 0x1cb @0xb
0x1c0…1f8 at000c = ╱6c╱l╱ // 0x1cc @0xc
0x1c0…1f8 at000d = ╱65╱e╱ // 0x1cd @0xd
0x1c0…1f8 at000e = ╱74╱t╱ // 0x1ce @0xe
0x1c0…1f8 at000f = ╱20╱…╱ // 0x1cf @0xf
0x1c0…1f8 at0010 = ╱61╱a╱ // 0x1d0 @0x10
0x1c0…1f8 at0011 = ╱66╱f╱ // 0x1d1 @0x11
0x1c0…1f8 at0012 = ╱20╱…╱ // 0x1d2 @0x12
0x1c0…1f8 at0013 = ╱3a╱:╱ // 0x1d3 @0x13
0x1c0…1f8 at0014 = ╱20╱…╱ // 0x1d4 @0x14
0x1c0…1f8 at0015 = ╱50╱P╱ // 0x1d5 @0x15
0x1c0…1f8 at0016 = ╱65╱e╱ // 0x1d6 @0x16
0x1c0…1f8 at0017 = ╱74╱t╱ // 0x1d7 @0x17
0x1c0…1f8 at0018 = ╱65╱e╱ // 0x1d8 @0x18
0x1c0…1f8 at0019 = ╱72╱r╱ // 0x1d9 @0x19
0x1c0…1f8 at001a = ╱20╱…╱ // 0x1da @0x1a
0x1c0…1f8 at001b = ╱4b╱K╱ // 0x1db @0x1b
0x1c0…1f8 at001c = ╱72╱r╱ // 0x1dc @0x1c
0x1c0…1f8 at001d = ╱69╱i╱ // 0x1dd @0x1d
0x1c0…1f8 at001e = ╱73╱s╱ // 0x1de @0x1e
0x1c0…1f8 at001f = ╱74╱t╱ // 0x1df @0x1f
0x1c0…1f8 at0020 = ╱65╱e╱ // 0x1e0 @0x20
0x1c0…1f8 at0021 = ╱6e╱n╱ // 0x1e1 @0x21
0x1c0…1f8 at0022 = ╱73╱s╱ // 0x1e2 @0x22
0x1c0…1f8 at0023 = ╱65╱e╱ // 0x1e3 @0x23
0x1c0…1f8 at0024 = ╱6e╱n╱ // 0x1e4 @0x24
0x1c0…1f8 at0025 = ╱20╱…╱ // 0x1e5 @0x25
0x1c0…1f8 at0026 = ╱20╱…╱ // 0x1e6 @0x26
0x1c0…1f8 at0027 = ╱20╱…╱ // 0x1e7 @0x27
0x1c0…1f8 at0028 = ╱20╱…╱ // 0x1e8 @0x28
0x1c0…1f8 at0029 = ╱20╱…╱ // 0x1e9 @0x29
0x1c0…1f8 at002a = ╱20╱…╱ // 0x1ea @0x2a
0x1c0…1f8 at002b = ╱20╱…╱ // 0x1eb @0x2b
0x1c0…1f8 at002c = ╱20╱…╱ // 0x1ec @0x2c
0x1c0…1f8 at002d = ╱20╱…╱ // 0x1ed @0x2d
0x1c0…1f8 at002e = ╱20╱…╱ // 0x1ee @0x2e
0x1c0…1f8 at002f = ╱20╱…╱ // 0x1ef @0x2f
0x1c0…1f8 at0030 = ╱20╱…╱ // 0x1f0 @0x30
0x1c0…1f8 at0031 = ╱20╱…╱ // 0x1f1 @0x31
0x1c0…1f8 at0032 = ╱20╱…╱ // 0x1f2 @0x32
0x1c0…1f8 at0033 = ╱20╱…╱ // 0x1f3 @0x33
0x1c0…1f8 at0034 = ╱20╱…╱ // 0x1f4 @0x34
0x1c0…1f8 at0035 = ╱20╱…╱ // 0x1f5 @0x35
0x1c0…1f8 at0036 = ╱2a╱*╱ // 0x1f6 @0x36
0x1c0…1f8 at0037 = EOL // 0x1f7 @0x37
0x1c0…1f8 }
0x1f8…230 981e 00190 // *………………………………………Vestervang…6,…6920…Videb{k…………………*
0x1f8…230 LineComal80 {
0x1f8…230 ptr = 0x981e // 0x1f8 @0x0
0x1f8…230 lno = 0x00be // 0x1fa @0x2
0x1f8…230 at0004 = ╱89╱ // ╱ // 0x1fc @0x4
0x1f8…230 at0005 = ╱2a╱*╱ // 0x1fd @0x5
0x1f8…230 at0006 = ╱20╱…╱ // 0x1fe @0x6
0x1f8…230 at0007 = ╱20╱…╱ // 0x1ff @0x7
0x1f8…230 at0008 = ╱20╱…╱ // 0x200 @0x8
0x1f8…230 at0009 = ╱20╱…╱ // 0x201 @0x9
0x1f8…230 at000a = ╱20╱…╱ // 0x202 @0xa
0x1f8…230 at000b = ╱20╱…╱ // 0x203 @0xb
0x1f8…230 at000c = ╱20╱…╱ // 0x204 @0xc
0x1f8…230 at000d = ╱20╱…╱ // 0x205 @0xd
0x1f8…230 at000e = ╱20╱…╱ // 0x206 @0xe
0x1f8…230 at000f = ╱20╱…╱ // 0x207 @0xf
0x1f8…230 at0010 = ╱20╱…╱ // 0x208 @0x10
0x1f8…230 at0011 = ╱20╱…╱ // 0x209 @0x11
0x1f8…230 at0012 = ╱20╱…╱ // 0x20a @0x12
0x1f8…230 at0013 = ╱20╱…╱ // 0x20b @0x13
0x1f8…230 at0014 = ╱20╱…╱ // 0x20c @0x14
0x1f8…230 at0015 = ╱56╱V╱ // 0x20d @0x15
0x1f8…230 at0016 = ╱65╱e╱ // 0x20e @0x16
0x1f8…230 at0017 = ╱73╱s╱ // 0x20f @0x17
0x1f8…230 at0018 = ╱74╱t╱ // 0x210 @0x18
0x1f8…230 at0019 = ╱65╱e╱ // 0x211 @0x19
0x1f8…230 at001a = ╱72╱r╱ // 0x212 @0x1a
0x1f8…230 at001b = ╱76╱v╱ // 0x213 @0x1b
0x1f8…230 at001c = ╱61╱a╱ // 0x214 @0x1c
0x1f8…230 at001d = ╱6e╱n╱ // 0x215 @0x1d
0x1f8…230 at001e = ╱67╱g╱ // 0x216 @0x1e
0x1f8…230 at001f = ╱20╱…╱ // 0x217 @0x1f
0x1f8…230 at0020 = ╱36╱6╱ // 0x218 @0x20
0x1f8…230 at0021 = ╱2c╱,╱ // 0x219 @0x21
0x1f8…230 at0022 = ╱20╱…╱ // 0x21a @0x22
0x1f8…230 at0023 = ╱36╱6╱ // 0x21b @0x23
0x1f8…230 at0024 = ╱39╱9╱ // 0x21c @0x24
0x1f8…230 at0025 = ╱32╱2╱ // 0x21d @0x25
0x1f8…230 at0026 = ╱30╱0╱ // 0x21e @0x26
0x1f8…230 at0027 = ╱20╱…╱ // 0x21f @0x27
0x1f8…230 at0028 = ╱56╱V╱ // 0x220 @0x28
0x1f8…230 at0029 = ╱69╱i╱ // 0x221 @0x29
0x1f8…230 at002a = ╱64╱d╱ // 0x222 @0x2a
0x1f8…230 at002b = ╱65╱e╱ // 0x223 @0x2b
0x1f8…230 at002c = ╱62╱b╱ // 0x224 @0x2c
0x1f8…230 at002d = ╱7b╱{╱ // 0x225 @0x2d
0x1f8…230 at002e = ╱6b╱k╱ // 0x226 @0x2e
0x1f8…230 at002f = ╱20╱…╱ // 0x227 @0x2f
0x1f8…230 at0030 = ╱20╱…╱ // 0x228 @0x30
0x1f8…230 at0031 = ╱20╱…╱ // 0x229 @0x31
0x1f8…230 at0032 = ╱20╱…╱ // 0x22a @0x32
0x1f8…230 at0033 = ╱20╱…╱ // 0x22b @0x33
0x1f8…230 at0034 = ╱20╱…╱ // 0x22c @0x34
0x1f8…230 at0035 = ╱20╱…╱ // 0x22d @0x35
0x1f8…230 at0036 = ╱2a╱*╱ // 0x22e @0x36
0x1f8…230 at0037 = EOL // 0x22f @0x37
0x1f8…230 }
0x230…268 9856 00200 // *………………………………………………………………………………………………………………………………*
0x230…268 LineComal80 {
0x230…268 ptr = 0x9856 // 0x230 @0x0
0x230…268 lno = 0x00c8 // 0x232 @0x2
0x230…268 at0004 = ╱89╱ // ╱ // 0x234 @0x4
0x230…268 at0005 = ╱2a╱*╱ // 0x235 @0x5
0x230…268 at0006 = ╱20╱…╱ // 0x236 @0x6
0x230…268 at0007 = ╱20╱…╱ // 0x237 @0x7
0x230…268 at0008 = ╱20╱…╱ // 0x238 @0x8
0x230…268 at0009 = ╱20╱…╱ // 0x239 @0x9
0x230…268 at000a = ╱20╱…╱ // 0x23a @0xa
0x230…268 at000b = ╱20╱…╱ // 0x23b @0xb
0x230…268 at000c = ╱20╱…╱ // 0x23c @0xc
0x230…268 at000d = ╱20╱…╱ // 0x23d @0xd
0x230…268 at000e = ╱20╱…╱ // 0x23e @0xe
0x230…268 at000f = ╱20╱…╱ // 0x23f @0xf
0x230…268 at0010 = ╱20╱…╱ // 0x240 @0x10
0x230…268 at0011 = ╱20╱…╱ // 0x241 @0x11
0x230…268 at0012 = ╱20╱…╱ // 0x242 @0x12
0x230…268 at0013 = ╱20╱…╱ // 0x243 @0x13
0x230…268 at0014 = ╱20╱…╱ // 0x244 @0x14
0x230…268 at0015 = ╱20╱…╱ // 0x245 @0x15
0x230…268 at0016 = ╱20╱…╱ // 0x246 @0x16
0x230…268 at0017 = ╱20╱…╱ // 0x247 @0x17
0x230…268 at0018 = ╱20╱…╱ // 0x248 @0x18
0x230…268 at0019 = ╱20╱…╱ // 0x249 @0x19
0x230…268 at001a = ╱20╱…╱ // 0x24a @0x1a
0x230…268 at001b = ╱20╱…╱ // 0x24b @0x1b
0x230…268 at001c = ╱20╱…╱ // 0x24c @0x1c
0x230…268 at001d = ╱20╱…╱ // 0x24d @0x1d
0x230…268 at001e = ╱20╱…╱ // 0x24e @0x1e
0x230…268 at001f = ╱20╱…╱ // 0x24f @0x1f
0x230…268 at0020 = ╱20╱…╱ // 0x250 @0x20
0x230…268 at0021 = ╱20╱…╱ // 0x251 @0x21
0x230…268 at0022 = ╱20╱…╱ // 0x252 @0x22
0x230…268 at0023 = ╱20╱…╱ // 0x253 @0x23
0x230…268 at0024 = ╱20╱…╱ // 0x254 @0x24
0x230…268 at0025 = ╱20╱…╱ // 0x255 @0x25
0x230…268 at0026 = ╱20╱…╱ // 0x256 @0x26
0x230…268 at0027 = ╱20╱…╱ // 0x257 @0x27
0x230…268 at0028 = ╱20╱…╱ // 0x258 @0x28
0x230…268 at0029 = ╱20╱…╱ // 0x259 @0x29
0x230…268 at002a = ╱20╱…╱ // 0x25a @0x2a
0x230…268 at002b = ╱20╱…╱ // 0x25b @0x2b
0x230…268 at002c = ╱20╱…╱ // 0x25c @0x2c
0x230…268 at002d = ╱20╱…╱ // 0x25d @0x2d
0x230…268 at002e = ╱20╱…╱ // 0x25e @0x2e
0x230…268 at002f = ╱20╱…╱ // 0x25f @0x2f
0x230…268 at0030 = ╱20╱…╱ // 0x260 @0x30
0x230…268 at0031 = ╱20╱…╱ // 0x261 @0x31
0x230…268 at0032 = ╱20╱…╱ // 0x262 @0x32
0x230…268 at0033 = ╱20╱…╱ // 0x263 @0x33
0x230…268 at0034 = ╱20╱…╱ // 0x264 @0x34
0x230…268 at0035 = ╱20╱…╱ // 0x265 @0x35
0x230…268 at0036 = ╱2a╱*╱ // 0x266 @0x36
0x230…268 at0037 = EOL // 0x267 @0x37
0x230…268 }
0x268…2a0 (8,) 988e 00210 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
0x268…2a0 LineComal80 {
0x268…2a0 ptr = 0x988e // 0x268 @0x0
0x268…2a0 lno = 0x00d2 // 0x26a @0x2
0x268…2a0 at0004 = ╱89╱ // ╱ // 0x26c @0x4
0x268…2a0 at0005 = ╱2a╱*╱ // 0x26d @0x5
0x268…2a0 at0006 = ╱20╱…╱ // 0x26e @0x6
0x268…2a0 at0007 = ╱20╱…╱ // 0x26f @0x7
0x268…2a0 at0008 = ╱20╱…╱ // 0x270 @0x8
0x268…2a0 at0009 = ╱28╱(╱ // 0x271 @0x9
0x268…2a0 at000a = ╱43╱C╱ // 0x272 @0xa
0x268…2a0 at000b = ╱29╱)╱ // 0x273 @0xb
0x268…2a0 at000c = ╱20╱…╱ // 0x274 @0xc
0x268…2a0 at000d = ╱20╱…╱ // 0x275 @0xd
0x268…2a0 at000e = ╱20╱…╱ // 0x276 @0xe
0x268…2a0 at000f = ╱20╱…╱ // 0x277 @0xf
0x268…2a0 at0010 = ╱20╱…╱ // 0x278 @0x10
0x268…2a0 at0011 = ╱20╱…╱ // 0x279 @0x11
0x268…2a0 at0012 = ╱20╱…╱ // 0x27a @0x12
0x268…2a0 at0013 = ╱3a╱:╱ // 0x27b @0x13
0x268…2a0 at0014 = ╱20╱…╱ // 0x27c @0x14
0x268…2a0 at0015 = ╱66╱f╱ // 0x27d @0x15
0x268…2a0 at0016 = ╱6f╱o╱ // 0x27e @0x16
0x268…2a0 at0017 = ╱72╱r╱ // 0x27f @0x17
0x268…2a0 at0018 = ╱6c╱l╱ // 0x280 @0x18
0x268…2a0 at0019 = ╱61╱a╱ // 0x281 @0x19
0x268…2a0 at001a = ╱67╱g╱ // 0x282 @0x1a
0x268…2a0 at001b = ╱65╱e╱ // 0x283 @0x1b
0x268…2a0 at001c = ╱74╱t╱ // 0x284 @0x1c
0x268…2a0 at001d = ╱20╱…╱ // 0x285 @0x1d
0x268…2a0 at001e = ╱73╱s╱ // 0x286 @0x1e
0x268…2a0 at001f = ╱79╱y╱ // 0x287 @0x1f
0x268…2a0 at0020 = ╱73╱s╱ // 0x288 @0x20
0x268…2a0 at0021 = ╱74╱t╱ // 0x289 @0x21
0x268…2a0 at0022 = ╱69╱i╱ // 0x28a @0x22
0x268…2a0 at0023 = ╱6d╱m╱ // 0x28b @0x23
0x268…2a0 at0024 = ╱65╱e╱ // 0x28c @0x24
0x268…2a0 at0025 = ╱20╱…╱ // 0x28d @0x25
0x268…2a0 at0026 = ╱61╱a╱ // 0x28e @0x26
0x268…2a0 at0027 = ╱2f╱/╱ // 0x28f @0x27
0x268…2a0 at0028 = ╱73╱s╱ // 0x290 @0x28
0x268…2a0 at0029 = ╱20╱…╱ // 0x291 @0x29
0x268…2a0 at002a = ╱20╱…╱ // 0x292 @0x2a
0x268…2a0 at002b = ╱20╱…╱ // 0x293 @0x2b
0x268…2a0 at002c = ╱20╱…╱ // 0x294 @0x2c
0x268…2a0 at002d = ╱20╱…╱ // 0x295 @0x2d
0x268…2a0 at002e = ╱20╱…╱ // 0x296 @0x2e
0x268…2a0 at002f = ╱20╱…╱ // 0x297 @0x2f
0x268…2a0 at0030 = ╱20╱…╱ // 0x298 @0x30
0x268…2a0 at0031 = ╱20╱…╱ // 0x299 @0x31
0x268…2a0 at0032 = ╱20╱…╱ // 0x29a @0x32
0x268…2a0 at0033 = ╱20╱…╱ // 0x29b @0x33
0x268…2a0 at0034 = ╱20╱…╱ // 0x29c @0x34
0x268…2a0 at0035 = ╱20╱…╱ // 0x29d @0x35
0x268…2a0 at0036 = ╱2a╱*╱ // 0x29e @0x36
0x268…2a0 at0037 = EOL // 0x29f @0x37
0x268…2a0 }
0x2a0…2d8 98c6 00220 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
0x2a0…2d8 LineComal80 {
0x2a0…2d8 ptr = 0x98c6 // 0x2a0 @0x0
0x2a0…2d8 lno = 0x00dc // 0x2a2 @0x2
0x2a0…2d8 at0004 = ╱89╱ // ╱ // 0x2a4 @0x4
0x2a0…2d8 at0005 = ╱2a╱*╱ // 0x2a5 @0x5
0x2a0…2d8 at0006 = ╱20╱…╱ // 0x2a6 @0x6
0x2a0…2d8 at0007 = ╱20╱…╱ // 0x2a7 @0x7
0x2a0…2d8 at0008 = ╱20╱…╱ // 0x2a8 @0x8
0x2a0…2d8 at0009 = ╱20╱…╱ // 0x2a9 @0x9
0x2a0…2d8 at000a = ╱20╱…╱ // 0x2aa @0xa
0x2a0…2d8 at000b = ╱20╱…╱ // 0x2ab @0xb
0x2a0…2d8 at000c = ╱20╱…╱ // 0x2ac @0xc
0x2a0…2d8 at000d = ╱20╱…╱ // 0x2ad @0xd
0x2a0…2d8 at000e = ╱20╱…╱ // 0x2ae @0xe
0x2a0…2d8 at000f = ╱20╱…╱ // 0x2af @0xf
0x2a0…2d8 at0010 = ╱20╱…╱ // 0x2b0 @0x10
0x2a0…2d8 at0011 = ╱20╱…╱ // 0x2b1 @0x11
0x2a0…2d8 at0012 = ╱20╱…╱ // 0x2b2 @0x12
0x2a0…2d8 at0013 = ╱20╱…╱ // 0x2b3 @0x13
0x2a0…2d8 at0014 = ╱20╱…╱ // 0x2b4 @0x14
0x2a0…2d8 at0015 = ╱4b╱K╱ // 0x2b5 @0x15
0x2a0…2d8 at0016 = ╱6c╱l╱ // 0x2b6 @0x16
0x2a0…2d8 at0017 = ╱6f╱o╱ // 0x2b7 @0x17
0x2a0…2d8 at0018 = ╱6b╱k╱ // 0x2b8 @0x18
0x2a0…2d8 at0019 = ╱6b╱k╱ // 0x2b9 @0x19
0x2a0…2d8 at001a = ╱65╱e╱ // 0x2ba @0x1a
0x2a0…2d8 at001b = ╱62╱b╱ // 0x2bb @0x1b
0x2a0…2d8 at001c = ╱61╱a╱ // 0x2bc @0x1c
0x2a0…2d8 at001d = ╱6b╱k╱ // 0x2bd @0x1d
0x2a0…2d8 at001e = ╱6b╱k╱ // 0x2be @0x1e
0x2a0…2d8 at001f = ╱65╱e╱ // 0x2bf @0x1f
0x2a0…2d8 at0020 = ╱6e╱n╱ // 0x2c0 @0x20
0x2a0…2d8 at0021 = ╱20╱…╱ // 0x2c1 @0x21
0x2a0…2d8 at0022 = ╱32╱2╱ // 0x2c2 @0x22
0x2a0…2d8 at0023 = ╱30╱0╱ // 0x2c3 @0x23
0x2a0…2d8 at0024 = ╱2c╱,╱ // 0x2c4 @0x24
0x2a0…2d8 at0025 = ╱20╱…╱ // 0x2c5 @0x25
0x2a0…2d8 at0026 = ╱47╱G╱ // 0x2c6 @0x26
0x2a0…2d8 at0027 = ╱6a╱j╱ // 0x2c7 @0x27
0x2a0…2d8 at0028 = ╱65╱e╱ // 0x2c8 @0x28
0x2a0…2d8 at0029 = ╱6c╱l╱ // 0x2c9 @0x29
0x2a0…2d8 at002a = ╱6c╱l╱ // 0x2ca @0x2a
0x2a0…2d8 at002b = ╱65╱e╱ // 0x2cb @0x2b
0x2a0…2d8 at002c = ╱72╱r╱ // 0x2cc @0x2c
0x2a0…2d8 at002d = ╱75╱u╱ // 0x2cd @0x2d
0x2a0…2d8 at002e = ╱70╱p╱ // 0x2ce @0x2e
0x2a0…2d8 at002f = ╱20╱…╱ // 0x2cf @0x2f
0x2a0…2d8 at0030 = ╱20╱…╱ // 0x2d0 @0x30
0x2a0…2d8 at0031 = ╱20╱…╱ // 0x2d1 @0x31
0x2a0…2d8 at0032 = ╱20╱…╱ // 0x2d2 @0x32
0x2a0…2d8 at0033 = ╱20╱…╱ // 0x2d3 @0x33
0x2a0…2d8 at0034 = ╱20╱…╱ // 0x2d4 @0x34
0x2a0…2d8 at0035 = ╱20╱…╱ // 0x2d5 @0x35
0x2a0…2d8 at0036 = ╱2a╱*╱ // 0x2d6 @0x36
0x2a0…2d8 at0037 = EOL // 0x2d7 @0x37
0x2a0…2d8 }
0x2d8…310 98fe 00230 // *………………………………………7400……Herning……………………………………………………*
0x2d8…310 LineComal80 {
0x2d8…310 ptr = 0x98fe // 0x2d8 @0x0
0x2d8…310 lno = 0x00e6 // 0x2da @0x2
0x2d8…310 at0004 = ╱89╱ // ╱ // 0x2dc @0x4
0x2d8…310 at0005 = ╱2a╱*╱ // 0x2dd @0x5
0x2d8…310 at0006 = ╱20╱…╱ // 0x2de @0x6
0x2d8…310 at0007 = ╱20╱…╱ // 0x2df @0x7
0x2d8…310 at0008 = ╱20╱…╱ // 0x2e0 @0x8
0x2d8…310 at0009 = ╱20╱…╱ // 0x2e1 @0x9
0x2d8…310 at000a = ╱20╱…╱ // 0x2e2 @0xa
0x2d8…310 at000b = ╱20╱…╱ // 0x2e3 @0xb
0x2d8…310 at000c = ╱20╱…╱ // 0x2e4 @0xc
0x2d8…310 at000d = ╱20╱…╱ // 0x2e5 @0xd
0x2d8…310 at000e = ╱20╱…╱ // 0x2e6 @0xe
0x2d8…310 at000f = ╱20╱…╱ // 0x2e7 @0xf
0x2d8…310 at0010 = ╱20╱…╱ // 0x2e8 @0x10
0x2d8…310 at0011 = ╱20╱…╱ // 0x2e9 @0x11
0x2d8…310 at0012 = ╱20╱…╱ // 0x2ea @0x12
0x2d8…310 at0013 = ╱20╱…╱ // 0x2eb @0x13
0x2d8…310 at0014 = ╱20╱…╱ // 0x2ec @0x14
0x2d8…310 at0015 = ╱37╱7╱ // 0x2ed @0x15
0x2d8…310 at0016 = ╱34╱4╱ // 0x2ee @0x16
0x2d8…310 at0017 = ╱30╱0╱ // 0x2ef @0x17
0x2d8…310 at0018 = ╱30╱0╱ // 0x2f0 @0x18
0x2d8…310 at0019 = ╱20╱…╱ // 0x2f1 @0x19
0x2d8…310 at001a = ╱20╱…╱ // 0x2f2 @0x1a
0x2d8…310 at001b = ╱48╱H╱ // 0x2f3 @0x1b
0x2d8…310 at001c = ╱65╱e╱ // 0x2f4 @0x1c
0x2d8…310 at001d = ╱72╱r╱ // 0x2f5 @0x1d
0x2d8…310 at001e = ╱6e╱n╱ // 0x2f6 @0x1e
0x2d8…310 at001f = ╱69╱i╱ // 0x2f7 @0x1f
0x2d8…310 at0020 = ╱6e╱n╱ // 0x2f8 @0x20
0x2d8…310 at0021 = ╱67╱g╱ // 0x2f9 @0x21
0x2d8…310 at0022 = ╱20╱…╱ // 0x2fa @0x22
0x2d8…310 at0023 = ╱20╱…╱ // 0x2fb @0x23
0x2d8…310 at0024 = ╱20╱…╱ // 0x2fc @0x24
0x2d8…310 at0025 = ╱20╱…╱ // 0x2fd @0x25
0x2d8…310 at0026 = ╱20╱…╱ // 0x2fe @0x26
0x2d8…310 at0027 = ╱20╱…╱ // 0x2ff @0x27
0x2d8…310 at0028 = ╱20╱…╱ // 0x300 @0x28
0x2d8…310 at0029 = ╱20╱…╱ // 0x301 @0x29
0x2d8…310 at002a = ╱20╱…╱ // 0x302 @0x2a
0x2d8…310 at002b = ╱20╱…╱ // 0x303 @0x2b
0x2d8…310 at002c = ╱20╱…╱ // 0x304 @0x2c
0x2d8…310 at002d = ╱20╱…╱ // 0x305 @0x2d
0x2d8…310 at002e = ╱20╱…╱ // 0x306 @0x2e
0x2d8…310 at002f = ╱20╱…╱ // 0x307 @0x2f
0x2d8…310 at0030 = ╱20╱…╱ // 0x308 @0x30
0x2d8…310 at0031 = ╱20╱…╱ // 0x309 @0x31
0x2d8…310 at0032 = ╱20╱…╱ // 0x30a @0x32
0x2d8…310 at0033 = ╱20╱…╱ // 0x30b @0x33
0x2d8…310 at0034 = ╱20╱…╱ // 0x30c @0x34
0x2d8…310 at0035 = ╱20╱…╱ // 0x30d @0x35
0x2d8…310 at0036 = ╱2a╱*╱ // 0x30e @0x36
0x2d8…310 at0037 = EOL // 0x30f @0x37
0x2d8…310 }
0x310…348 9936 00240 // **************************************************
0x310…348 LineComal80 {
0x310…348 ptr = 0x9936 // 0x310 @0x0
0x310…348 lno = 0x00f0 // 0x312 @0x2
0x310…348 at0004 = ╱89╱ // ╱ // 0x314 @0x4
0x310…348 at0005 = ╱2a╱*╱ // 0x315 @0x5
0x310…348 at0006 = ╱2a╱*╱ // 0x316 @0x6
0x310…348 at0007 = ╱2a╱*╱ // 0x317 @0x7
0x310…348 at0008 = ╱2a╱*╱ // 0x318 @0x8
0x310…348 at0009 = ╱2a╱*╱ // 0x319 @0x9
0x310…348 at000a = ╱2a╱*╱ // 0x31a @0xa
0x310…348 at000b = ╱2a╱*╱ // 0x31b @0xb
0x310…348 at000c = ╱2a╱*╱ // 0x31c @0xc
0x310…348 at000d = ╱2a╱*╱ // 0x31d @0xd
0x310…348 at000e = ╱2a╱*╱ // 0x31e @0xe
0x310…348 at000f = ╱2a╱*╱ // 0x31f @0xf
0x310…348 at0010 = ╱2a╱*╱ // 0x320 @0x10
0x310…348 at0011 = ╱2a╱*╱ // 0x321 @0x11
0x310…348 at0012 = ╱2a╱*╱ // 0x322 @0x12
0x310…348 at0013 = ╱2a╱*╱ // 0x323 @0x13
0x310…348 at0014 = ╱2a╱*╱ // 0x324 @0x14
0x310…348 at0015 = ╱2a╱*╱ // 0x325 @0x15
0x310…348 at0016 = ╱2a╱*╱ // 0x326 @0x16
0x310…348 at0017 = ╱2a╱*╱ // 0x327 @0x17
0x310…348 at0018 = ╱2a╱*╱ // 0x328 @0x18
0x310…348 at0019 = ╱2a╱*╱ // 0x329 @0x19
0x310…348 at001a = ╱2a╱*╱ // 0x32a @0x1a
0x310…348 at001b = ╱2a╱*╱ // 0x32b @0x1b
0x310…348 at001c = ╱2a╱*╱ // 0x32c @0x1c
0x310…348 at001d = ╱2a╱*╱ // 0x32d @0x1d
0x310…348 at001e = ╱2a╱*╱ // 0x32e @0x1e
0x310…348 at001f = ╱2a╱*╱ // 0x32f @0x1f
0x310…348 at0020 = ╱2a╱*╱ // 0x330 @0x20
0x310…348 at0021 = ╱2a╱*╱ // 0x331 @0x21
0x310…348 at0022 = ╱2a╱*╱ // 0x332 @0x22
0x310…348 at0023 = ╱2a╱*╱ // 0x333 @0x23
0x310…348 at0024 = ╱2a╱*╱ // 0x334 @0x24
0x310…348 at0025 = ╱2a╱*╱ // 0x335 @0x25
0x310…348 at0026 = ╱2a╱*╱ // 0x336 @0x26
0x310…348 at0027 = ╱2a╱*╱ // 0x337 @0x27
0x310…348 at0028 = ╱2a╱*╱ // 0x338 @0x28
0x310…348 at0029 = ╱2a╱*╱ // 0x339 @0x29
0x310…348 at002a = ╱2a╱*╱ // 0x33a @0x2a
0x310…348 at002b = ╱2a╱*╱ // 0x33b @0x2b
0x310…348 at002c = ╱2a╱*╱ // 0x33c @0x2c
0x310…348 at002d = ╱2a╱*╱ // 0x33d @0x2d
0x310…348 at002e = ╱2a╱*╱ // 0x33e @0x2e
0x310…348 at002f = ╱2a╱*╱ // 0x33f @0x2f
0x310…348 at0030 = ╱2a╱*╱ // 0x340 @0x30
0x310…348 at0031 = ╱2a╱*╱ // 0x341 @0x31
0x310…348 at0032 = ╱2a╱*╱ // 0x342 @0x32
0x310…348 at0033 = ╱2a╱*╱ // 0x343 @0x33
0x310…348 at0034 = ╱2a╱*╱ // 0x344 @0x34
0x310…348 at0035 = ╱2a╱*╱ // 0x345 @0x35
0x310…348 at0036 = ╱2a╱*╱ // 0x346 @0x36
0x310…348 at0037 = EOL // 0x347 @0x37
0x310…348 }
0x348…359 9947 00250 EXEC DIMENSIONER
0x348…359 LineComal80 {
0x348…359 ptr = 0x9947 // 0x348 @0x0
0x348…359 lno = 0x00fa // 0x34a @0x2
0x348…359 at0004 = ╱9d╱ EXEC ╱ // 0x34c @0x4
0x348…359 at0005 = ╱44╱D╱ // 0x34d @0x5
0x348…359 at0006 = ╱49╱I╱ // 0x34e @0x6
0x348…359 at0007 = ╱4d╱M╱ // 0x34f @0x7
0x348…359 at0008 = ╱45╱E╱ // 0x350 @0x8
0x348…359 at0009 = ╱4e╱N╱ // 0x351 @0x9
0x348…359 at000a = ╱53╱S╱ // 0x352 @0xa
0x348…359 at000b = ╱49╱I╱ // 0x353 @0xb
0x348…359 at000c = ╱4f╱O╱ // 0x354 @0xc
0x348…359 at000d = ╱4e╱N╱ // 0x355 @0xd
0x348…359 at000e = ╱45╱E╱ // 0x356 @0xe
0x348…359 at000f = ╱52╱R╱ // 0x357 @0xf
0x348…359 at0010 = EOL // 0x358 @0x10
0x348…359 }
0x359…366 9954 00260 EXEC INITIER
0x359…366 LineComal80 {
0x359…366 ptr = 0x9954 // 0x359 @0x0
0x359…366 lno = 0x0104 // 0x35b @0x2
0x359…366 at0004 = ╱9d╱ EXEC ╱ // 0x35d @0x4
0x359…366 at0005 = ╱49╱I╱ // 0x35e @0x5
0x359…366 at0006 = ╱4e╱N╱ // 0x35f @0x6
0x359…366 at0007 = ╱49╱I╱ // 0x360 @0x7
0x359…366 at0008 = ╱54╱T╱ // 0x361 @0x8
0x359…366 at0009 = ╱49╱I╱ // 0x362 @0x9
0x359…366 at000a = ╱45╱E╱ // 0x363 @0xa
0x359…366 at000b = ╱52╱R╱ // 0x364 @0xb
0x359…366 at000c = EOL // 0x365 @0xc
0x359…366 }
0x366…374 9962 00270 EXEC FKT_MENU
0x366…374 LineComal80 {
0x366…374 ptr = 0x9962 // 0x366 @0x0
0x366…374 lno = 0x010e // 0x368 @0x2
0x366…374 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x366…374 at0005 = ╱46╱F╱ // 0x36b @0x5
0x366…374 at0006 = ╱4b╱K╱ // 0x36c @0x6
0x366…374 at0007 = ╱54╱T╱ // 0x36d @0x7
0x366…374 at0008 = ╱5f╱_╱ // 0x36e @0x8
0x366…374 at0009 = ╱4d╱M╱ // 0x36f @0x9
0x366…374 at000a = ╱45╱E╱ // 0x370 @0xa
0x366…374 at000b = ╱4e╱N╱ // 0x371 @0xb
0x366…374 at000c = ╱55╱U╱ // 0x372 @0xc
0x366…374 at000d = EOL // 0x373 @0xd
0x366…374 }
0x374…382 9970 00280 CHAIN PROGRAM $
0x374…382 LineComal80 {
0x374…382 ptr = 0x9970 // 0x374 @0x0
0x374…382 lno = 0x0118 // 0x376 @0x2
0x374…382 at0004 = ╱ac╱ CHAIN ╱ // 0x378 @0x4
0x374…382 at0005 = ╱50╱P╱ // 0x379 @0x5
0x374…382 at0006 = ╱52╱R╱ // 0x37a @0x6
0x374…382 at0007 = ╱4f╱O╱ // 0x37b @0x7
0x374…382 at0008 = ╱47╱G╱ // 0x37c @0x8
0x374…382 at0009 = ╱52╱R╱ // 0x37d @0x9
0x374…382 at000a = ╱41╱A╱ // 0x37e @0xa
0x374…382 at000b = ╱4d╱M╱ // 0x37f @0xb
0x374…382 at000c = ╱ef╱ $ ╱ // 0x380 @0xc
0x374…382 at000d = EOL // 0x381 @0xd
0x374…382 }
0x382…3b5 99a3 00290 // ===========…Procedurer…starter…==============
0x382…3b5 LineComal80 {
0x382…3b5 ptr = 0x99a3 // 0x382 @0x0
0x382…3b5 lno = 0x0122 // 0x384 @0x2
0x382…3b5 at0004 = ╱89╱ // ╱ // 0x386 @0x4
0x382…3b5 at0005 = ╱3d╱=╱ // 0x387 @0x5
0x382…3b5 at0006 = ╱3d╱=╱ // 0x388 @0x6
0x382…3b5 at0007 = ╱3d╱=╱ // 0x389 @0x7
0x382…3b5 at0008 = ╱3d╱=╱ // 0x38a @0x8
0x382…3b5 at0009 = ╱3d╱=╱ // 0x38b @0x9
0x382…3b5 at000a = ╱3d╱=╱ // 0x38c @0xa
0x382…3b5 at000b = ╱3d╱=╱ // 0x38d @0xb
0x382…3b5 at000c = ╱3d╱=╱ // 0x38e @0xc
0x382…3b5 at000d = ╱3d╱=╱ // 0x38f @0xd
0x382…3b5 at000e = ╱3d╱=╱ // 0x390 @0xe
0x382…3b5 at000f = ╱3d╱=╱ // 0x391 @0xf
0x382…3b5 at0010 = ╱20╱…╱ // 0x392 @0x10
0x382…3b5 at0011 = ╱50╱P╱ // 0x393 @0x11
0x382…3b5 at0012 = ╱72╱r╱ // 0x394 @0x12
0x382…3b5 at0013 = ╱6f╱o╱ // 0x395 @0x13
0x382…3b5 at0014 = ╱63╱c╱ // 0x396 @0x14
0x382…3b5 at0015 = ╱65╱e╱ // 0x397 @0x15
0x382…3b5 at0016 = ╱64╱d╱ // 0x398 @0x16
0x382…3b5 at0017 = ╱75╱u╱ // 0x399 @0x17
0x382…3b5 at0018 = ╱72╱r╱ // 0x39a @0x18
0x382…3b5 at0019 = ╱65╱e╱ // 0x39b @0x19
0x382…3b5 at001a = ╱72╱r╱ // 0x39c @0x1a
0x382…3b5 at001b = ╱20╱…╱ // 0x39d @0x1b
0x382…3b5 at001c = ╱73╱s╱ // 0x39e @0x1c
0x382…3b5 at001d = ╱74╱t╱ // 0x39f @0x1d
0x382…3b5 at001e = ╱61╱a╱ // 0x3a0 @0x1e
0x382…3b5 at001f = ╱72╱r╱ // 0x3a1 @0x1f
0x382…3b5 at0020 = ╱74╱t╱ // 0x3a2 @0x20
0x382…3b5 at0021 = ╱65╱e╱ // 0x3a3 @0x21
0x382…3b5 at0022 = ╱72╱r╱ // 0x3a4 @0x22
0x382…3b5 at0023 = ╱20╱…╱ // 0x3a5 @0x23
0x382…3b5 at0024 = ╱3d╱=╱ // 0x3a6 @0x24
0x382…3b5 at0025 = ╱3d╱=╱ // 0x3a7 @0x25
0x382…3b5 at0026 = ╱3d╱=╱ // 0x3a8 @0x26
0x382…3b5 at0027 = ╱3d╱=╱ // 0x3a9 @0x27
0x382…3b5 at0028 = ╱3d╱=╱ // 0x3aa @0x28
0x382…3b5 at0029 = ╱3d╱=╱ // 0x3ab @0x29
0x382…3b5 at002a = ╱3d╱=╱ // 0x3ac @0x2a
0x382…3b5 at002b = ╱3d╱=╱ // 0x3ad @0x2b
0x382…3b5 at002c = ╱3d╱=╱ // 0x3ae @0x2c
0x382…3b5 at002d = ╱3d╱=╱ // 0x3af @0x2d
0x382…3b5 at002e = ╱3d╱=╱ // 0x3b0 @0x2e
0x382…3b5 at002f = ╱3d╱=╱ // 0x3b1 @0x2f
0x382…3b5 at0030 = ╱3d╱=╱ // 0x3b2 @0x30
0x382…3b5 at0031 = ╱3d╱=╱ // 0x3b3 @0x31
0x382…3b5 at0032 = EOL // 0x3b4 @0x32
0x382…3b5 }
0x3b5…3c7 99b5 00300 PROC DIMENSIONER
0x3b5…3c7 LineComal80 {
0x3b5…3c7 ptr = 0x99b5 // 0x3b5 @0x0
0x3b5…3c7 lno = 0x012c // 0x3b7 @0x2
0x3b5…3c7 at0004 = ╱9e00╱ PROC ╱ // 0x3b9 @0x4
0x3b5…3c7 at0006 = ╱44╱D╱ // 0x3bb @0x6
0x3b5…3c7 at0007 = ╱49╱I╱ // 0x3bc @0x7
0x3b5…3c7 at0008 = ╱4d╱M╱ // 0x3bd @0x8
0x3b5…3c7 at0009 = ╱45╱E╱ // 0x3be @0x9
0x3b5…3c7 at000a = ╱4e╱N╱ // 0x3bf @0xa
0x3b5…3c7 at000b = ╱53╱S╱ // 0x3c0 @0xb
0x3b5…3c7 at000c = ╱49╱I╱ // 0x3c1 @0xc
0x3b5…3c7 at000d = ╱4f╱O╱ // 0x3c2 @0xd
0x3b5…3c7 at000e = ╱4e╱N╱ // 0x3c3 @0xe
0x3b5…3c7 at000f = ╱45╱E╱ // 0x3c4 @0xf
0x3b5…3c7 at0010 = ╱52╱R╱ // 0x3c5 @0x10
0x3b5…3c7 at0011 = EOL // 0x3c6 @0x11
0x3b5…3c7 }
0x3c7…3de 99cc 00310 // Standard…variable
0x3c7…3de LineComal80 {
0x3c7…3de ptr = 0x99cc // 0x3c7 @0x0
0x3c7…3de lno = 0x0136 // 0x3c9 @0x2
0x3c7…3de at0004 = ╱89╱ // ╱ // 0x3cb @0x4
0x3c7…3de at0005 = ╱53╱S╱ // 0x3cc @0x5
0x3c7…3de at0006 = ╱74╱t╱ // 0x3cd @0x6
0x3c7…3de at0007 = ╱61╱a╱ // 0x3ce @0x7
0x3c7…3de at0008 = ╱6e╱n╱ // 0x3cf @0x8
0x3c7…3de at0009 = ╱64╱d╱ // 0x3d0 @0x9
0x3c7…3de at000a = ╱61╱a╱ // 0x3d1 @0xa
0x3c7…3de at000b = ╱72╱r╱ // 0x3d2 @0xb
0x3c7…3de at000c = ╱64╱d╱ // 0x3d3 @0xc
0x3c7…3de at000d = ╱20╱…╱ // 0x3d4 @0xd
0x3c7…3de at000e = ╱76╱v╱ // 0x3d5 @0xe
0x3c7…3de at000f = ╱61╱a╱ // 0x3d6 @0xf
0x3c7…3de at0010 = ╱72╱r╱ // 0x3d7 @0x10
0x3c7…3de at0011 = ╱69╱i╱ // 0x3d8 @0x11
0x3c7…3de at0012 = ╱61╱a╱ // 0x3d9 @0x12
0x3c7…3de at0013 = ╱62╱b╱ // 0x3da @0x13
0x3c7…3de at0014 = ╱6c╱l╱ // 0x3db @0x14
0x3c7…3de at0015 = ╱65╱e╱ // 0x3dc @0x15
0x3c7…3de at0016 = EOL // 0x3dd @0x16
0x3c7…3de }
0x3de…41d 9a0b 00320 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
0x3de…41d LineComal80 {
0x3de…41d ptr = 0x9a0b // 0x3de @0x0
0x3de…41d lno = 0x0140 // 0x3e0 @0x2
0x3de…41d at0004 = ╱87╱ DIM ╱ // 0x3e2 @0x4
0x3de…41d at0005 = ╱53╱S╱ // 0x3e3 @0x5
0x3de…41d at0006 = ╱50╱P╱ // 0x3e4 @0x6
0x3de…41d at0007 = ╱43╱C╱ // 0x3e5 @0x7
0x3de…41d at0008 = ╱ef╱ $ ╱ // 0x3e6 @0x8
0x3de…41d at0009 = ╱ba╱ OF ╱ // 0x3e7 @0x9
0x3de…41d at000a = ╱38╱8╱ // 0x3e8 @0xa
0x3de…41d at000b = ╱30╱0╱ // 0x3e9 @0xb
0x3de…41d at000c = ╱f25000╱ // 0x3ea @0xc
0x3de…41d at000f = ╱ec╱ , ╱ // 0x3ed @0xf
0x3de…41d at0010 = ╱53╱S╱ // 0x3ee @0x10
0x3de…41d at0011 = ╱56╱V╱ // 0x3ef @0x11
0x3de…41d at0012 = ╱41╱A╱ // 0x3f0 @0x12
0x3de…41d at0013 = ╱52╱R╱ // 0x3f1 @0x13
0x3de…41d at0014 = ╱ef╱ $ ╱ // 0x3f2 @0x14
0x3de…41d at0015 = ╱ba╱ OF ╱ // 0x3f3 @0x15
0x3de…41d at0016 = ╱31╱1╱ // 0x3f4 @0x16
0x3de…41d at0017 = ╱30╱0╱ // 0x3f5 @0x17
0x3de…41d at0018 = ╱f20a00╱ // 0x3f6 @0x18
0x3de…41d at001b = ╱ec╱ , ╱ // 0x3f9 @0x1b
0x3de…41d at001c = ╱50╱P╱ // 0x3fa @0x1c
0x3de…41d at001d = ╱52╱R╱ // 0x3fb @0x1d
0x3de…41d at001e = ╱47╱G╱ // 0x3fc @0x1e
0x3de…41d at001f = ╱46╱F╱ // 0x3fd @0x1f
0x3de…41d at0020 = ╱4c╱L╱ // 0x3fe @0x20
0x3de…41d at0021 = ╱ef╱ $ ╱ // 0x3ff @0x21
0x3de…41d at0022 = ╱ba╱ OF ╱ // 0x400 @0x22
0x3de…41d at0023 = ╱38╱8╱ // 0x401 @0x23
0x3de…41d at0024 = ╱f20800╱ // 0x402 @0x24
0x3de…41d at0027 = ╱ec╱ , ╱ // 0x405 @0x27
0x3de…41d at0028 = ╱41╱A╱ // 0x406 @0x28
0x3de…41d at0029 = ╱4c╱L╱ // 0x407 @0x29
0x3de…41d at002a = ╱46╱F╱ // 0x408 @0x2a
0x3de…41d at002b = ╱41╱A╱ // 0x409 @0x2b
0x3de…41d at002c = ╱ef╱ $ ╱ // 0x40a @0x2c
0x3de…41d at002d = ╱ba╱ OF ╱ // 0x40b @0x2d
0x3de…41d at002e = ╱32╱2╱ // 0x40c @0x2e
0x3de…41d at002f = ╱38╱8╱ // 0x40d @0x2f
0x3de…41d at0030 = ╱f21c00╱ // 0x40e @0x30
0x3de…41d at0033 = ╱ec╱ , ╱ // 0x411 @0x33
0x3de…41d at0034 = ╱54╱T╱ // 0x412 @0x34
0x3de…41d at0035 = ╱41╱A╱ // 0x413 @0x35
0x3de…41d at0036 = ╱4c╱L╱ // 0x414 @0x36
0x3de…41d at0037 = ╱ef╱ $ ╱ // 0x415 @0x37
0x3de…41d at0038 = ╱ba╱ OF ╱ // 0x416 @0x38
0x3de…41d at0039 = ╱31╱1╱ // 0x417 @0x39
0x3de…41d at003a = ╱30╱0╱ // 0x418 @0x3a
0x3de…41d at003b = ╱f20a00╱ // 0x419 @0x3b
0x3de…41d at003e = EOL // 0x41c @0x3e
0x3de…41d }
0x41d…431 9a1f 00330 DIM PROGRAM $ OF 17
0x41d…431 LineComal80 {
0x41d…431 ptr = 0x9a1f // 0x41d @0x0
0x41d…431 lno = 0x014a // 0x41f @0x2
0x41d…431 at0004 = ╱87╱ DIM ╱ // 0x421 @0x4
0x41d…431 at0005 = ╱50╱P╱ // 0x422 @0x5
0x41d…431 at0006 = ╱52╱R╱ // 0x423 @0x6
0x41d…431 at0007 = ╱4f╱O╱ // 0x424 @0x7
0x41d…431 at0008 = ╱47╱G╱ // 0x425 @0x8
0x41d…431 at0009 = ╱52╱R╱ // 0x426 @0x9
0x41d…431 at000a = ╱41╱A╱ // 0x427 @0xa
0x41d…431 at000b = ╱4d╱M╱ // 0x428 @0xb
0x41d…431 at000c = ╱ef╱ $ ╱ // 0x429 @0xc
0x41d…431 at000d = ╱ba╱ OF ╱ // 0x42a @0xd
0x41d…431 at000e = ╱31╱1╱ // 0x42b @0xe
0x41d…431 at000f = ╱37╱7╱ // 0x42c @0xf
0x41d…431 at0010 = ╱f21100╱ // 0x42d @0x10
0x41d…431 at0013 = EOL // 0x430 @0x13
0x41d…431 }
0x431…441 9a2f 00340 REAL RESRV , PPAR
0x431…441 LineComal80 {
0x431…441 ptr = 0x9a2f // 0x431 @0x0
0x431…441 lno = 0x0154 // 0x433 @0x2
0x431…441 at0004 = ╱b3╱ REAL ╱ // 0x435 @0x4
0x431…441 at0005 = ╱52╱R╱ // 0x436 @0x5
0x431…441 at0006 = ╱45╱E╱ // 0x437 @0x6
0x431…441 at0007 = ╱53╱S╱ // 0x438 @0x7
0x431…441 at0008 = ╱52╱R╱ // 0x439 @0x8
0x431…441 at0009 = ╱56╱V╱ // 0x43a @0x9
0x431…441 at000a = ╱ec╱ , ╱ // 0x43b @0xa
0x431…441 at000b = ╱50╱P╱ // 0x43c @0xb
0x431…441 at000c = ╱50╱P╱ // 0x43d @0xc
0x431…441 at000d = ╱41╱A╱ // 0x43e @0xd
0x431…441 at000e = ╱52╱R╱ // 0x43f @0xe
0x431…441 at000f = EOL // 0x440 @0xf
0x431…441 }
0x441…458 9a46 00350 INTEGER OK , TRUE , FALSE , I , J
0x441…458 LineComal80 {
0x441…458 ptr = 0x9a46 // 0x441 @0x0
0x441…458 lno = 0x015e // 0x443 @0x2
0x441…458 at0004 = ╱b2╱ INTEGER ╱ // 0x445 @0x4
0x441…458 at0005 = ╱4f╱O╱ // 0x446 @0x5
0x441…458 at0006 = ╱4b╱K╱ // 0x447 @0x6
0x441…458 at0007 = ╱ec╱ , ╱ // 0x448 @0x7
0x441…458 at0008 = ╱54╱T╱ // 0x449 @0x8
0x441…458 at0009 = ╱52╱R╱ // 0x44a @0x9
0x441…458 at000a = ╱55╱U╱ // 0x44b @0xa
0x441…458 at000b = ╱45╱E╱ // 0x44c @0xb
0x441…458 at000c = ╱ec╱ , ╱ // 0x44d @0xc
0x441…458 at000d = ╱46╱F╱ // 0x44e @0xd
0x441…458 at000e = ╱41╱A╱ // 0x44f @0xe
0x441…458 at000f = ╱4c╱L╱ // 0x450 @0xf
0x441…458 at0010 = ╱53╱S╱ // 0x451 @0x10
0x441…458 at0011 = ╱45╱E╱ // 0x452 @0x11
0x441…458 at0012 = ╱ec╱ , ╱ // 0x453 @0x12
0x441…458 at0013 = ╱49╱I╱ // 0x454 @0x13
0x441…458 at0014 = ╱ec╱ , ╱ // 0x455 @0x14
0x441…458 at0015 = ╱4a╱J╱ // 0x456 @0x15
0x441…458 at0016 = EOL // 0x457 @0x16
0x441…458 }
0x458…478 9a66 00360 // Variable…til…filen…SYSPARA
0x458…478 LineComal80 {
0x458…478 ptr = 0x9a66 // 0x458 @0x0
0x458…478 lno = 0x0168 // 0x45a @0x2
0x458…478 at0004 = ╱89╱ // ╱ // 0x45c @0x4
0x458…478 at0005 = ╱56╱V╱ // 0x45d @0x5
0x458…478 at0006 = ╱61╱a╱ // 0x45e @0x6
0x458…478 at0007 = ╱72╱r╱ // 0x45f @0x7
0x458…478 at0008 = ╱69╱i╱ // 0x460 @0x8
0x458…478 at0009 = ╱61╱a╱ // 0x461 @0x9
0x458…478 at000a = ╱62╱b╱ // 0x462 @0xa
0x458…478 at000b = ╱6c╱l╱ // 0x463 @0xb
0x458…478 at000c = ╱65╱e╱ // 0x464 @0xc
0x458…478 at000d = ╱20╱…╱ // 0x465 @0xd
0x458…478 at000e = ╱74╱t╱ // 0x466 @0xe
0x458…478 at000f = ╱69╱i╱ // 0x467 @0xf
0x458…478 at0010 = ╱6c╱l╱ // 0x468 @0x10
0x458…478 at0011 = ╱20╱…╱ // 0x469 @0x11
0x458…478 at0012 = ╱66╱f╱ // 0x46a @0x12
0x458…478 at0013 = ╱69╱i╱ // 0x46b @0x13
0x458…478 at0014 = ╱6c╱l╱ // 0x46c @0x14
0x458…478 at0015 = ╱65╱e╱ // 0x46d @0x15
0x458…478 at0016 = ╱6e╱n╱ // 0x46e @0x16
0x458…478 at0017 = ╱20╱…╱ // 0x46f @0x17
0x458…478 at0018 = ╱53╱S╱ // 0x470 @0x18
0x458…478 at0019 = ╱59╱Y╱ // 0x471 @0x19
0x458…478 at001a = ╱53╱S╱ // 0x472 @0x1a
0x458…478 at001b = ╱50╱P╱ // 0x473 @0x1b
0x458…478 at001c = ╱41╱A╱ // 0x474 @0x1c
0x458…478 at001d = ╱52╱R╱ // 0x475 @0x1d
0x458…478 at001e = ╱41╱A╱ // 0x476 @0x1e
0x458…478 at001f = EOL // 0x477 @0x1f
0x458…478 }
0x478…48c 9a7a 00370 DIM SYSPARA $ OF 17
0x478…48c LineComal80 {
0x478…48c ptr = 0x9a7a // 0x478 @0x0
0x478…48c lno = 0x0172 // 0x47a @0x2
0x478…48c at0004 = ╱87╱ DIM ╱ // 0x47c @0x4
0x478…48c at0005 = ╱53╱S╱ // 0x47d @0x5
0x478…48c at0006 = ╱59╱Y╱ // 0x47e @0x6
0x478…48c at0007 = ╱53╱S╱ // 0x47f @0x7
0x478…48c at0008 = ╱50╱P╱ // 0x480 @0x8
0x478…48c at0009 = ╱41╱A╱ // 0x481 @0x9
0x478…48c at000a = ╱52╱R╱ // 0x482 @0xa
0x478…48c at000b = ╱41╱A╱ // 0x483 @0xb
0x478…48c at000c = ╱ef╱ $ ╱ // 0x484 @0xc
0x478…48c at000d = ╱ba╱ OF ╱ // 0x485 @0xd
0x478…48c at000e = ╱31╱1╱ // 0x486 @0xe
0x478…48c at000f = ╱37╱7╱ // 0x487 @0xf
0x478…48c at0010 = ╱f21100╱ // 0x488 @0x10
0x478…48c at0013 = EOL // 0x48b @0x13
0x478…48c }
0x48c…4af 9a9d 00380 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x48c…4af LineComal80 {
0x48c…4af ptr = 0x9a9d // 0x48c @0x0
0x48c…4af lno = 0x017c // 0x48e @0x2
0x48c…4af at0004 = ╱87╱ DIM ╱ // 0x490 @0x4
0x48c…4af at0005 = ╱53╱S╱ // 0x491 @0x5
0x48c…4af at0006 = ╱59╱Y╱ // 0x492 @0x6
0x48c…4af at0007 = ╱53╱S╱ // 0x493 @0x7
0x48c…4af at0008 = ╱54╱T╱ // 0x494 @0x8
0x48c…4af at0009 = ╱5f╱_╱ // 0x495 @0x9
0x48c…4af at000a = ╱4e╱N╱ // 0x496 @0xa
0x48c…4af at000b = ╱41╱A╱ // 0x497 @0xb
0x48c…4af at000c = ╱56╱V╱ // 0x498 @0xc
0x48c…4af at000d = ╱4e╱N╱ // 0x499 @0xd
0x48c…4af at000e = ╱ef╱ $ ╱ // 0x49a @0xe
0x48c…4af at000f = ╱ba╱ OF ╱ // 0x49b @0xf
0x48c…4af at0010 = ╱33╱3╱ // 0x49c @0x10
0x48c…4af at0011 = ╱30╱0╱ // 0x49d @0x11
0x48c…4af at0012 = ╱f21e00╱ // 0x49e @0x12
0x48c…4af at0015 = ╱ec╱ , ╱ // 0x4a1 @0x15
0x48c…4af at0016 = ╱53╱S╱ // 0x4a2 @0x16
0x48c…4af at0017 = ╱5f╱_╱ // 0x4a3 @0x17
0x48c…4af at0018 = ╱4b╱K╱ // 0x4a4 @0x18
0x48c…4af at0019 = ╱4f╱O╱ // 0x4a5 @0x19
0x48c…4af at001a = ╱44╱D╱ // 0x4a6 @0x1a
0x48c…4af at001b = ╱45╱E╱ // 0x4a7 @0x1b
0x48c…4af at001c = ╱ef╱ $ ╱ // 0x4a8 @0x1c
0x48c…4af at001d = ╱ba╱ OF ╱ // 0x4a9 @0x1d
0x48c…4af at001e = ╱31╱1╱ // 0x4aa @0x1e
0x48c…4af at001f = ╱f20100╱ // 0x4ab @0x1f
0x48c…4af at0022 = EOL // 0x4ae @0x22
0x48c…4af }
0x4af…4ce 9abc 00390 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x4af…4ce LineComal80 {
0x4af…4ce ptr = 0x9abc // 0x4af @0x0
0x4af…4ce lno = 0x0186 // 0x4b1 @0x2
0x4af…4ce at0004 = ╱87╱ DIM ╱ // 0x4b3 @0x4
0x4af…4ce at0005 = ╱44╱D╱ // 0x4b4 @0x5
0x4af…4ce at0006 = ╱41╱A╱ // 0x4b5 @0x6
0x4af…4ce at0007 = ╱54╱T╱ // 0x4b6 @0x7
0x4af…4ce at0008 = ╱41╱A╱ // 0x4b7 @0x8
0x4af…4ce at0009 = ╱46╱F╱ // 0x4b8 @0x9
0x4af…4ce at000a = ╱4c╱L╱ // 0x4b9 @0xa
0x4af…4ce at000b = ╱ef╱ $ ╱ // 0x4ba @0xb
0x4af…4ce at000c = ╱ba╱ OF ╱ // 0x4bb @0xc
0x4af…4ce at000d = ╱38╱8╱ // 0x4bc @0xd
0x4af…4ce at000e = ╱f20800╱ // 0x4bd @0xe
0x4af…4ce at0011 = ╱ec╱ , ╱ // 0x4c0 @0x11
0x4af…4ce at0012 = ╱54╱T╱ // 0x4c1 @0x12
0x4af…4ce at0013 = ╱5f╱_╱ // 0x4c2 @0x13
0x4af…4ce at0014 = ╱4b╱K╱ // 0x4c3 @0x14
0x4af…4ce at0015 = ╱4f╱O╱ // 0x4c4 @0x15
0x4af…4ce at0016 = ╱44╱D╱ // 0x4c5 @0x16
0x4af…4ce at0017 = ╱45╱E╱ // 0x4c6 @0x17
0x4af…4ce at0018 = ╱ef╱ $ ╱ // 0x4c7 @0x18
0x4af…4ce at0019 = ╱ba╱ OF ╱ // 0x4c8 @0x19
0x4af…4ce at001a = ╱31╱1╱ // 0x4c9 @0x1a
0x4af…4ce at001b = ╱f20100╱ // 0x4ca @0x1b
0x4af…4ce at001e = EOL // 0x4cd @0x1e
0x4af…4ce }
0x4ce…4ee 9adc 00400 // Variable…til…filen…@@PARAM
0x4ce…4ee LineComal80 {
0x4ce…4ee ptr = 0x9adc // 0x4ce @0x0
0x4ce…4ee lno = 0x0190 // 0x4d0 @0x2
0x4ce…4ee at0004 = ╱89╱ // ╱ // 0x4d2 @0x4
0x4ce…4ee at0005 = ╱56╱V╱ // 0x4d3 @0x5
0x4ce…4ee at0006 = ╱61╱a╱ // 0x4d4 @0x6
0x4ce…4ee at0007 = ╱72╱r╱ // 0x4d5 @0x7
0x4ce…4ee at0008 = ╱69╱i╱ // 0x4d6 @0x8
0x4ce…4ee at0009 = ╱61╱a╱ // 0x4d7 @0x9
0x4ce…4ee at000a = ╱62╱b╱ // 0x4d8 @0xa
0x4ce…4ee at000b = ╱6c╱l╱ // 0x4d9 @0xb
0x4ce…4ee at000c = ╱65╱e╱ // 0x4da @0xc
0x4ce…4ee at000d = ╱20╱…╱ // 0x4db @0xd
0x4ce…4ee at000e = ╱74╱t╱ // 0x4dc @0xe
0x4ce…4ee at000f = ╱69╱i╱ // 0x4dd @0xf
0x4ce…4ee at0010 = ╱6c╱l╱ // 0x4de @0x10
0x4ce…4ee at0011 = ╱20╱…╱ // 0x4df @0x11
0x4ce…4ee at0012 = ╱66╱f╱ // 0x4e0 @0x12
0x4ce…4ee at0013 = ╱69╱i╱ // 0x4e1 @0x13
0x4ce…4ee at0014 = ╱6c╱l╱ // 0x4e2 @0x14
0x4ce…4ee at0015 = ╱65╱e╱ // 0x4e3 @0x15
0x4ce…4ee at0016 = ╱6e╱n╱ // 0x4e4 @0x16
0x4ce…4ee at0017 = ╱20╱…╱ // 0x4e5 @0x17
0x4ce…4ee at0018 = ╱40╱@╱ // 0x4e6 @0x18
0x4ce…4ee at0019 = ╱40╱@╱ // 0x4e7 @0x19
0x4ce…4ee at001a = ╱50╱P╱ // 0x4e8 @0x1a
0x4ce…4ee at001b = ╱41╱A╱ // 0x4e9 @0x1b
0x4ce…4ee at001c = ╱52╱R╱ // 0x4ea @0x1c
0x4ce…4ee at001d = ╱41╱A╱ // 0x4eb @0x1d
0x4ce…4ee at001e = ╱4d╱M╱ // 0x4ec @0x1e
0x4ce…4ee at001f = EOL // 0x4ed @0x1f
0x4ce…4ee }
0x4ee…500 9aee 00410 DIM PARAM $ OF 17
0x4ee…500 LineComal80 {
0x4ee…500 ptr = 0x9aee // 0x4ee @0x0
0x4ee…500 lno = 0x019a // 0x4f0 @0x2
0x4ee…500 at0004 = ╱87╱ DIM ╱ // 0x4f2 @0x4
0x4ee…500 at0005 = ╱50╱P╱ // 0x4f3 @0x5
0x4ee…500 at0006 = ╱41╱A╱ // 0x4f4 @0x6
0x4ee…500 at0007 = ╱52╱R╱ // 0x4f5 @0x7
0x4ee…500 at0008 = ╱41╱A╱ // 0x4f6 @0x8
0x4ee…500 at0009 = ╱4d╱M╱ // 0x4f7 @0x9
0x4ee…500 at000a = ╱ef╱ $ ╱ // 0x4f8 @0xa
0x4ee…500 at000b = ╱ba╱ OF ╱ // 0x4f9 @0xb
0x4ee…500 at000c = ╱31╱1╱ // 0x4fa @0xc
0x4ee…500 at000d = ╱37╱7╱ // 0x4fb @0xd
0x4ee…500 at000e = ╱f21100╱ // 0x4fc @0xe
0x4ee…500 at0011 = EOL // 0x4ff @0x11
0x4ee…500 }
0x500…525 9b13 00420 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
0x500…525 LineComal80 {
0x500…525 ptr = 0x9b13 // 0x500 @0x0
0x500…525 lno = 0x01a4 // 0x502 @0x2
0x500…525 at0004 = ╱87╱ DIM ╱ // 0x504 @0x4
0x500…525 at0005 = ╱46╱F╱ // 0x505 @0x5
0x500…525 at0006 = ╱49╱I╱ // 0x506 @0x6
0x500…525 at0007 = ╱52╱R╱ // 0x507 @0x7
0x500…525 at0008 = ╱4d╱M╱ // 0x508 @0x8
0x500…525 at0009 = ╱41╱A╱ // 0x509 @0x9
0x500…525 at000a = ╱4e╱N╱ // 0x50a @0xa
0x500…525 at000b = ╱41╱A╱ // 0x50b @0xb
0x500…525 at000c = ╱56╱V╱ // 0x50c @0xc
0x500…525 at000d = ╱4e╱N╱ // 0x50d @0xd
0x500…525 at000e = ╱ef╱ $ ╱ // 0x50e @0xe
0x500…525 at000f = ╱ba╱ OF ╱ // 0x50f @0xf
0x500…525 at0010 = ╱33╱3╱ // 0x510 @0x10
0x500…525 at0011 = ╱30╱0╱ // 0x511 @0x11
0x500…525 at0012 = ╱f21e00╱ // 0x512 @0x12
0x500…525 at0015 = ╱ec╱ , ╱ // 0x515 @0x15
0x500…525 at0016 = ╱53╱S╱ // 0x516 @0x16
0x500…525 at0017 = ╱59╱Y╱ // 0x517 @0x17
0x500…525 at0018 = ╱53╱S╱ // 0x518 @0x18
0x500…525 at0019 = ╱54╱T╱ // 0x519 @0x19
0x500…525 at001a = ╱5f╱_╱ // 0x51a @0x1a
0x500…525 at001b = ╱44╱D╱ // 0x51b @0x1b
0x500…525 at001c = ╱41╱A╱ // 0x51c @0x1c
0x500…525 at001d = ╱54╱T╱ // 0x51d @0x1d
0x500…525 at001e = ╱ef╱ $ ╱ // 0x51e @0x1e
0x500…525 at001f = ╱ba╱ OF ╱ // 0x51f @0x1f
0x500…525 at0020 = ╱36╱6╱ // 0x520 @0x20
0x500…525 at0021 = ╱f20600╱ // 0x521 @0x21
0x500…525 at0024 = EOL // 0x524 @0x24
0x500…525 }
0x525…52f 9b1d 00430 REAL MOMS
0x525…52f LineComal80 {
0x525…52f ptr = 0x9b1d // 0x525 @0x0
0x525…52f lno = 0x01ae // 0x527 @0x2
0x525…52f at0004 = ╱b3╱ REAL ╱ // 0x529 @0x4
0x525…52f at0005 = ╱4d╱M╱ // 0x52a @0x5
0x525…52f at0006 = ╱4f╱O╱ // 0x52b @0x6
0x525…52f at0007 = ╱4d╱M╱ // 0x52c @0x7
0x525…52f at0008 = ╱53╱S╱ // 0x52d @0x8
0x525…52f at0009 = EOL // 0x52e @0x9
0x525…52f }
0x52f…540 9b2e 00440 ENDPROC DIMENSIONER
0x52f…540 LineComal80 {
0x52f…540 ptr = 0x9b2e // 0x52f @0x0
0x52f…540 lno = 0x01b8 // 0x531 @0x2
0x52f…540 at0004 = ╱9f╱ ENDPROC ╱ // 0x533 @0x4
0x52f…540 at0005 = ╱44╱D╱ // 0x534 @0x5
0x52f…540 at0006 = ╱49╱I╱ // 0x535 @0x6
0x52f…540 at0007 = ╱4d╱M╱ // 0x536 @0x7
0x52f…540 at0008 = ╱45╱E╱ // 0x537 @0x8
0x52f…540 at0009 = ╱4e╱N╱ // 0x538 @0x9
0x52f…540 at000a = ╱53╱S╱ // 0x539 @0xa
0x52f…540 at000b = ╱49╱I╱ // 0x53a @0xb
0x52f…540 at000c = ╱4f╱O╱ // 0x53b @0xc
0x52f…540 at000d = ╱4e╱N╱ // 0x53c @0xd
0x52f…540 at000e = ╱45╱E╱ // 0x53d @0xe
0x52f…540 at000f = ╱52╱R╱ // 0x53e @0xf
0x52f…540 at0010 = EOL // 0x53f @0x10
0x52f…540 }
0x540…545 9b33 00450
0x540…545 LineComal80 {
0x540…545 ptr = 0x9b33 // 0x540 @0x0
0x540…545 lno = 0x01c2 // 0x542 @0x2
0x540…545 at0004 = EOL // 0x544 @0x4
0x540…545 }
0x545…553 9b41 00460 PROC INITIER
0x545…553 LineComal80 {
0x545…553 ptr = 0x9b41 // 0x545 @0x0
0x545…553 lno = 0x01cc // 0x547 @0x2
0x545…553 at0004 = ╱9e00╱ PROC ╱ // 0x549 @0x4
0x545…553 at0006 = ╱49╱I╱ // 0x54b @0x6
0x545…553 at0007 = ╱4e╱N╱ // 0x54c @0x7
0x545…553 at0008 = ╱49╱I╱ // 0x54d @0x8
0x545…553 at0009 = ╱54╱T╱ // 0x54e @0x9
0x545…553 at000a = ╱49╱I╱ // 0x54f @0xa
0x545…553 at000b = ╱45╱E╱ // 0x550 @0xb
0x545…553 at000c = ╱52╱R╱ // 0x551 @0xc
0x545…553 at000d = EOL // 0x552 @0xd
0x545…553 }
0x553…565 9b53 00470 LET PRGFL $ := "DP2"
0x553…565 LineComal80 {
0x553…565 ptr = 0x9b53 // 0x553 @0x0
0x553…565 lno = 0x01d6 // 0x555 @0x2
0x553…565 at0004 = ╱86╱ LET ╱ // 0x557 @0x4
0x553…565 at0005 = ╱50╱P╱ // 0x558 @0x5
0x553…565 at0006 = ╱52╱R╱ // 0x559 @0x6
0x553…565 at0007 = ╱47╱G╱ // 0x55a @0x7
0x553…565 at0008 = ╱46╱F╱ // 0x55b @0x8
0x553…565 at0009 = ╱4c╱L╱ // 0x55c @0x9
0x553…565 at000a = ╱ef╱ $ ╱ // 0x55d @0xa
0x553…565 at000b = ╱f0╱ := ╱ // 0x55e @0xb
0x553…565 at000c = ╱22╱"╱ // 0x55f @0xc
0x553…565 at000d = ╱44╱D╱ // 0x560 @0xd
0x553…565 at000e = ╱50╱P╱ // 0x561 @0xe
0x553…565 at000f = ╱32╱2╱ // 0x562 @0xf
0x553…565 at0010 = ╱22╱"╱ // 0x563 @0x10
0x553…565 at0011 = EOL // 0x564 @0x11
0x553…565 }
0x565…582 9b70 00480 LET PROGRAM $ := PRGFL $ + ":SYSP"
0x565…582 LineComal80 {
0x565…582 ptr = 0x9b70 // 0x565 @0x0
0x565…582 lno = 0x01e0 // 0x567 @0x2
0x565…582 at0004 = ╱86╱ LET ╱ // 0x569 @0x4
0x565…582 at0005 = ╱50╱P╱ // 0x56a @0x5
0x565…582 at0006 = ╱52╱R╱ // 0x56b @0x6
0x565…582 at0007 = ╱4f╱O╱ // 0x56c @0x7
0x565…582 at0008 = ╱47╱G╱ // 0x56d @0x8
0x565…582 at0009 = ╱52╱R╱ // 0x56e @0x9
0x565…582 at000a = ╱41╱A╱ // 0x56f @0xa
0x565…582 at000b = ╱4d╱M╱ // 0x570 @0xb
0x565…582 at000c = ╱ef╱ $ ╱ // 0x571 @0xc
0x565…582 at000d = ╱f0╱ := ╱ // 0x572 @0xd
0x565…582 at000e = ╱50╱P╱ // 0x573 @0xe
0x565…582 at000f = ╱52╱R╱ // 0x574 @0xf
0x565…582 at0010 = ╱47╱G╱ // 0x575 @0x10
0x565…582 at0011 = ╱46╱F╱ // 0x576 @0x11
0x565…582 at0012 = ╱4c╱L╱ // 0x577 @0x12
0x565…582 at0013 = ╱ef╱ $ ╱ // 0x578 @0x13
0x565…582 at0014 = ╱eb╱ + ╱ // 0x579 @0x14
0x565…582 at0015 = ╱22╱"╱ // 0x57a @0x15
0x565…582 at0016 = ╱3a╱:╱ // 0x57b @0x16
0x565…582 at0017 = ╱53╱S╱ // 0x57c @0x17
0x565…582 at0018 = ╱59╱Y╱ // 0x57d @0x18
0x565…582 at0019 = ╱53╱S╱ // 0x57e @0x19
0x565…582 at001a = ╱50╱P╱ // 0x57f @0x1a
0x565…582 at001b = ╱22╱"╱ // 0x580 @0x1b
0x565…582 at001c = EOL // 0x581 @0x1c
0x565…582 }
0x582…5bc 9baa 00490 LET SPC $ := "………………………………………………………………………………………………………………………"
0x582…5bc LineComal80 {
0x582…5bc ptr = 0x9baa // 0x582 @0x0
0x582…5bc lno = 0x01ea // 0x584 @0x2
0x582…5bc at0004 = ╱86╱ LET ╱ // 0x586 @0x4
0x582…5bc at0005 = ╱53╱S╱ // 0x587 @0x5
0x582…5bc at0006 = ╱50╱P╱ // 0x588 @0x6
0x582…5bc at0007 = ╱43╱C╱ // 0x589 @0x7
0x582…5bc at0008 = ╱ef╱ $ ╱ // 0x58a @0x8
0x582…5bc at0009 = ╱f0╱ := ╱ // 0x58b @0x9
0x582…5bc at000a = ╱22╱"╱ // 0x58c @0xa
0x582…5bc at000b = ╱20╱…╱ // 0x58d @0xb
0x582…5bc at000c = ╱20╱…╱ // 0x58e @0xc
0x582…5bc at000d = ╱20╱…╱ // 0x58f @0xd
0x582…5bc at000e = ╱20╱…╱ // 0x590 @0xe
0x582…5bc at000f = ╱20╱…╱ // 0x591 @0xf
0x582…5bc at0010 = ╱20╱…╱ // 0x592 @0x10
0x582…5bc at0011 = ╱20╱…╱ // 0x593 @0x11
0x582…5bc at0012 = ╱20╱…╱ // 0x594 @0x12
0x582…5bc at0013 = ╱20╱…╱ // 0x595 @0x13
0x582…5bc at0014 = ╱20╱…╱ // 0x596 @0x14
0x582…5bc at0015 = ╱20╱…╱ // 0x597 @0x15
0x582…5bc at0016 = ╱20╱…╱ // 0x598 @0x16
0x582…5bc at0017 = ╱20╱…╱ // 0x599 @0x17
0x582…5bc at0018 = ╱20╱…╱ // 0x59a @0x18
0x582…5bc at0019 = ╱20╱…╱ // 0x59b @0x19
0x582…5bc at001a = ╱20╱…╱ // 0x59c @0x1a
0x582…5bc at001b = ╱20╱…╱ // 0x59d @0x1b
0x582…5bc at001c = ╱20╱…╱ // 0x59e @0x1c
0x582…5bc at001d = ╱20╱…╱ // 0x59f @0x1d
0x582…5bc at001e = ╱20╱…╱ // 0x5a0 @0x1e
0x582…5bc at001f = ╱20╱…╱ // 0x5a1 @0x1f
0x582…5bc at0020 = ╱20╱…╱ // 0x5a2 @0x20
0x582…5bc at0021 = ╱20╱…╱ // 0x5a3 @0x21
0x582…5bc at0022 = ╱20╱…╱ // 0x5a4 @0x22
0x582…5bc at0023 = ╱20╱…╱ // 0x5a5 @0x23
0x582…5bc at0024 = ╱20╱…╱ // 0x5a6 @0x24
0x582…5bc at0025 = ╱20╱…╱ // 0x5a7 @0x25
0x582…5bc at0026 = ╱20╱…╱ // 0x5a8 @0x26
0x582…5bc at0027 = ╱20╱…╱ // 0x5a9 @0x27
0x582…5bc at0028 = ╱20╱…╱ // 0x5aa @0x28
0x582…5bc at0029 = ╱20╱…╱ // 0x5ab @0x29
0x582…5bc at002a = ╱20╱…╱ // 0x5ac @0x2a
0x582…5bc at002b = ╱20╱…╱ // 0x5ad @0x2b
0x582…5bc at002c = ╱20╱…╱ // 0x5ae @0x2c
0x582…5bc at002d = ╱20╱…╱ // 0x5af @0x2d
0x582…5bc at002e = ╱20╱…╱ // 0x5b0 @0x2e
0x582…5bc at002f = ╱20╱…╱ // 0x5b1 @0x2f
0x582…5bc at0030 = ╱20╱…╱ // 0x5b2 @0x30
0x582…5bc at0031 = ╱20╱…╱ // 0x5b3 @0x31
0x582…5bc at0032 = ╱20╱…╱ // 0x5b4 @0x32
0x582…5bc at0033 = ╱20╱…╱ // 0x5b5 @0x33
0x582…5bc at0034 = ╱20╱…╱ // 0x5b6 @0x34
0x582…5bc at0035 = ╱20╱…╱ // 0x5b7 @0x35
0x582…5bc at0036 = ╱20╱…╱ // 0x5b8 @0x36
0x582…5bc at0037 = ╱20╱…╱ // 0x5b9 @0x37
0x582…5bc at0038 = ╱22╱"╱ // 0x5ba @0x38
0x582…5bc at0039 = EOL // 0x5bb @0x39
0x582…5bc }
0x5bc…5d0 9bbe 00500 LET SPC $ := SPC $ + SPC $
0x5bc…5d0 LineComal80 {
0x5bc…5d0 ptr = 0x9bbe // 0x5bc @0x0
0x5bc…5d0 lno = 0x01f4 // 0x5be @0x2
0x5bc…5d0 at0004 = ╱86╱ LET ╱ // 0x5c0 @0x4
0x5bc…5d0 at0005 = ╱53╱S╱ // 0x5c1 @0x5
0x5bc…5d0 at0006 = ╱50╱P╱ // 0x5c2 @0x6
0x5bc…5d0 at0007 = ╱43╱C╱ // 0x5c3 @0x7
0x5bc…5d0 at0008 = ╱ef╱ $ ╱ // 0x5c4 @0x8
0x5bc…5d0 at0009 = ╱f0╱ := ╱ // 0x5c5 @0x9
0x5bc…5d0 at000a = ╱53╱S╱ // 0x5c6 @0xa
0x5bc…5d0 at000b = ╱50╱P╱ // 0x5c7 @0xb
0x5bc…5d0 at000c = ╱43╱C╱ // 0x5c8 @0xc
0x5bc…5d0 at000d = ╱ef╱ $ ╱ // 0x5c9 @0xd
0x5bc…5d0 at000e = ╱eb╱ + ╱ // 0x5ca @0xe
0x5bc…5d0 at000f = ╱53╱S╱ // 0x5cb @0xf
0x5bc…5d0 at0010 = ╱50╱P╱ // 0x5cc @0x10
0x5bc…5d0 at0011 = ╱43╱C╱ // 0x5cd @0x11
0x5bc…5d0 at0012 = ╱ef╱ $ ╱ // 0x5ce @0x12
0x5bc…5d0 at0013 = EOL // 0x5cf @0x13
0x5bc…5d0 }
0x5d0…5fb 9be9 00510 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x5d0…5fb LineComal80 {
0x5d0…5fb ptr = 0x9be9 // 0x5d0 @0x0
0x5d0…5fb lno = 0x01fe // 0x5d2 @0x2
0x5d0…5fb at0004 = ╱86╱ LET ╱ // 0x5d4 @0x4
0x5d0…5fb at0005 = ╱46╱F╱ // 0x5d5 @0x5
0x5d0…5fb at0006 = ╱41╱A╱ // 0x5d6 @0x6
0x5d0…5fb at0007 = ╱4c╱L╱ // 0x5d7 @0x7
0x5d0…5fb at0008 = ╱53╱S╱ // 0x5d8 @0x8
0x5d0…5fb at0009 = ╱45╱E╱ // 0x5d9 @0x9
0x5d0…5fb at000a = ╱f0╱ := ╱ // 0x5da @0xa
0x5d0…5fb at000b = ╱30╱0╱ // 0x5db @0xb
0x5d0…5fb at000c = ╱f20000╱ // 0x5dc @0xc
0x5d0…5fb at000f = ╱ea╱ ; ╱ // 0x5df @0xf
0x5d0…5fb at0010 = ╱54╱T╱ // 0x5e0 @0x10
0x5d0…5fb at0011 = ╱52╱R╱ // 0x5e1 @0x11
0x5d0…5fb at0012 = ╱55╱U╱ // 0x5e2 @0x12
0x5d0…5fb at0013 = ╱45╱E╱ // 0x5e3 @0x13
0x5d0…5fb at0014 = ╱f0╱ := ╱ // 0x5e4 @0x14
0x5d0…5fb at0015 = ╱31╱1╱ // 0x5e5 @0x15
0x5d0…5fb at0016 = ╱f20100╱ // 0x5e6 @0x16
0x5d0…5fb at0019 = ╱89╱ // ╱ // 0x5e9 @0x19
0x5d0…5fb at001a = ╱62╱b╱ // 0x5ea @0x1a
0x5d0…5fb at001b = ╱6f╱o╱ // 0x5eb @0x1b
0x5d0…5fb at001c = ╱6f╱o╱ // 0x5ec @0x1c
0x5d0…5fb at001d = ╱6c╱l╱ // 0x5ed @0x1d
0x5d0…5fb at001e = ╱73╱s╱ // 0x5ee @0x1e
0x5d0…5fb at001f = ╱6b╱k╱ // 0x5ef @0x1f
0x5d0…5fb at0020 = ╱65╱e╱ // 0x5f0 @0x20
0x5d0…5fb at0021 = ╱20╱…╱ // 0x5f1 @0x21
0x5d0…5fb at0022 = ╱76╱v╱ // 0x5f2 @0x22
0x5d0…5fb at0023 = ╱61╱a╱ // 0x5f3 @0x23
0x5d0…5fb at0024 = ╱72╱r╱ // 0x5f4 @0x24
0x5d0…5fb at0025 = ╱69╱i╱ // 0x5f5 @0x25
0x5d0…5fb at0026 = ╱61╱a╱ // 0x5f6 @0x26
0x5d0…5fb at0027 = ╱62╱b╱ // 0x5f7 @0x27
0x5d0…5fb at0028 = ╱6c╱l╱ // 0x5f8 @0x28
0x5d0…5fb at0029 = ╱65╱e╱ // 0x5f9 @0x29
0x5d0…5fb at002a = EOL // 0x5fa @0x2a
0x5d0…5fb }
0x5fb…61b 9c09 00520 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x5fb…61b LineComal80 {
0x5fb…61b ptr = 0x9c09 // 0x5fb @0x0
0x5fb…61b lno = 0x0208 // 0x5fd @0x2
0x5fb…61b at0004 = ╱86╱ LET ╱ // 0x5ff @0x4
0x5fb…61b at0005 = ╱53╱S╱ // 0x600 @0x5
0x5fb…61b at0006 = ╱59╱Y╱ // 0x601 @0x6
0x5fb…61b at0007 = ╱53╱S╱ // 0x602 @0x7
0x5fb…61b at0008 = ╱50╱P╱ // 0x603 @0x8
0x5fb…61b at0009 = ╱41╱A╱ // 0x604 @0x9
0x5fb…61b at000a = ╱52╱R╱ // 0x605 @0xa
0x5fb…61b at000b = ╱41╱A╱ // 0x606 @0xb
0x5fb…61b at000c = ╱ef╱ $ ╱ // 0x607 @0xc
0x5fb…61b at000d = ╱f0╱ := ╱ // 0x608 @0xd
0x5fb…61b at000e = ╱50╱P╱ // 0x609 @0xe
0x5fb…61b at000f = ╱52╱R╱ // 0x60a @0xf
0x5fb…61b at0010 = ╱47╱G╱ // 0x60b @0x10
0x5fb…61b at0011 = ╱46╱F╱ // 0x60c @0x11
0x5fb…61b at0012 = ╱4c╱L╱ // 0x60d @0x12
0x5fb…61b at0013 = ╱ef╱ $ ╱ // 0x60e @0x13
0x5fb…61b at0014 = ╱eb╱ + ╱ // 0x60f @0x14
0x5fb…61b at0015 = ╱22╱"╱ // 0x610 @0x15
0x5fb…61b at0016 = ╱3a╱:╱ // 0x611 @0x16
0x5fb…61b at0017 = ╱53╱S╱ // 0x612 @0x17
0x5fb…61b at0018 = ╱59╱Y╱ // 0x613 @0x18
0x5fb…61b at0019 = ╱53╱S╱ // 0x614 @0x19
0x5fb…61b at001a = ╱50╱P╱ // 0x615 @0x1a
0x5fb…61b at001b = ╱41╱A╱ // 0x616 @0x1b
0x5fb…61b at001c = ╱52╱R╱ // 0x617 @0x1c
0x5fb…61b at001d = ╱41╱A╱ // 0x618 @0x1d
0x5fb…61b at001e = ╱22╱"╱ // 0x619 @0x1e
0x5fb…61b at001f = EOL // 0x61a @0x1f
0x5fb…61b }
0x61b…636 9c24 00530 EXEC OPENFIL ( SYSPARA $ , "R" )
0x61b…636 LineComal80 {
0x61b…636 ptr = 0x9c24 // 0x61b @0x0
0x61b…636 lno = 0x0212 // 0x61d @0x2
0x61b…636 at0004 = ╱9d╱ EXEC ╱ // 0x61f @0x4
0x61b…636 at0005 = ╱4f╱O╱ // 0x620 @0x5
0x61b…636 at0006 = ╱50╱P╱ // 0x621 @0x6
0x61b…636 at0007 = ╱45╱E╱ // 0x622 @0x7
0x61b…636 at0008 = ╱4e╱N╱ // 0x623 @0x8
0x61b…636 at0009 = ╱46╱F╱ // 0x624 @0x9
0x61b…636 at000a = ╱49╱I╱ // 0x625 @0xa
0x61b…636 at000b = ╱4c╱L╱ // 0x626 @0xb
0x61b…636 at000c = ╱ed╱ ( ╱ // 0x627 @0xc
0x61b…636 at000d = ╱53╱S╱ // 0x628 @0xd
0x61b…636 at000e = ╱59╱Y╱ // 0x629 @0xe
0x61b…636 at000f = ╱53╱S╱ // 0x62a @0xf
0x61b…636 at0010 = ╱50╱P╱ // 0x62b @0x10
0x61b…636 at0011 = ╱41╱A╱ // 0x62c @0x11
0x61b…636 at0012 = ╱52╱R╱ // 0x62d @0x12
0x61b…636 at0013 = ╱41╱A╱ // 0x62e @0x13
0x61b…636 at0014 = ╱ef╱ $ ╱ // 0x62f @0x14
0x61b…636 at0015 = ╱ec╱ , ╱ // 0x630 @0x15
0x61b…636 at0016 = ╱22╱"╱ // 0x631 @0x16
0x61b…636 at0017 = ╱52╱R╱ // 0x632 @0x17
0x61b…636 at0018 = ╱22╱"╱ // 0x633 @0x18
0x61b…636 at0019 = ╱ee╱ ) ╱ // 0x634 @0x19
0x61b…636 at001a = EOL // 0x635 @0x1a
0x61b…636 }
0x636…65c 9c4a 00540 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x636…65c LineComal80 {
0x636…65c ptr = 0x9c4a // 0x636 @0x0
0x636…65c lno = 0x021c // 0x638 @0x2
0x636…65c at0004 = ╱a9╱ GET ╱ // 0x63a @0x4
0x636…65c at0005 = ╱53╱S╱ // 0x63b @0x5
0x636…65c at0006 = ╱59╱Y╱ // 0x63c @0x6
0x636…65c at0007 = ╱53╱S╱ // 0x63d @0x7
0x636…65c at0008 = ╱50╱P╱ // 0x63e @0x8
0x636…65c at0009 = ╱41╱A╱ // 0x63f @0x9
0x636…65c at000a = ╱52╱R╱ // 0x640 @0xa
0x636…65c at000b = ╱41╱A╱ // 0x641 @0xb
0x636…65c at000c = ╱ef╱ $ ╱ // 0x642 @0xc
0x636…65c at000d = ╱ec╱ , ╱ // 0x643 @0xd
0x636…65c at000e = ╱31╱1╱ // 0x644 @0xe
0x636…65c at000f = ╱f20100╱ // 0x645 @0xf
0x636…65c at0012 = ╱f1╱ : ╱ // 0x648 @0x12
0x636…65c at0013 = ╱53╱S╱ // 0x649 @0x13
0x636…65c at0014 = ╱59╱Y╱ // 0x64a @0x14
0x636…65c at0015 = ╱53╱S╱ // 0x64b @0x15
0x636…65c at0016 = ╱54╱T╱ // 0x64c @0x16
0x636…65c at0017 = ╱5f╱_╱ // 0x64d @0x17
0x636…65c at0018 = ╱4e╱N╱ // 0x64e @0x18
0x636…65c at0019 = ╱41╱A╱ // 0x64f @0x19
0x636…65c at001a = ╱56╱V╱ // 0x650 @0x1a
0x636…65c at001b = ╱4e╱N╱ // 0x651 @0x1b
0x636…65c at001c = ╱ef╱ $ ╱ // 0x652 @0x1c
0x636…65c at001d = ╱ec╱ , ╱ // 0x653 @0x1d
0x636…65c at001e = ╱53╱S╱ // 0x654 @0x1e
0x636…65c at001f = ╱5f╱_╱ // 0x655 @0x1f
0x636…65c at0020 = ╱4b╱K╱ // 0x656 @0x20
0x636…65c at0021 = ╱4f╱O╱ // 0x657 @0x21
0x636…65c at0022 = ╱44╱D╱ // 0x658 @0x22
0x636…65c at0023 = ╱45╱E╱ // 0x659 @0x23
0x636…65c at0024 = ╱ef╱ $ ╱ // 0x65a @0x24
0x636…65c at0025 = EOL // 0x65b @0x25
0x636…65c }
0x65c…66e 9c5c 00550 EXEC TERMINAL_IDX
0x65c…66e LineComal80 {
0x65c…66e ptr = 0x9c5c // 0x65c @0x0
0x65c…66e lno = 0x0226 // 0x65e @0x2
0x65c…66e at0004 = ╱9d╱ EXEC ╱ // 0x660 @0x4
0x65c…66e at0005 = ╱54╱T╱ // 0x661 @0x5
0x65c…66e at0006 = ╱45╱E╱ // 0x662 @0x6
0x65c…66e at0007 = ╱52╱R╱ // 0x663 @0x7
0x65c…66e at0008 = ╱4d╱M╱ // 0x664 @0x8
0x65c…66e at0009 = ╱49╱I╱ // 0x665 @0x9
0x65c…66e at000a = ╱4e╱N╱ // 0x666 @0xa
0x65c…66e at000b = ╱41╱A╱ // 0x667 @0xb
0x65c…66e at000c = ╱4c╱L╱ // 0x668 @0xc
0x65c…66e at000d = ╱5f╱_╱ // 0x669 @0xd
0x65c…66e at000e = ╱49╱I╱ // 0x66a @0xe
0x65c…66e at000f = ╱44╱D╱ // 0x66b @0xf
0x65c…66e at0010 = ╱58╱X╱ // 0x66c @0x10
0x65c…66e at0011 = EOL // 0x66d @0x11
0x65c…66e }
0x66e…67c 9c6a 00560 CLOSE SYSPARA $
0x66e…67c LineComal80 {
0x66e…67c ptr = 0x9c6a // 0x66e @0x0
0x66e…67c lno = 0x0230 // 0x670 @0x2
0x66e…67c at0004 = ╱a8╱ CLOSE ╱ // 0x672 @0x4
0x66e…67c at0005 = ╱53╱S╱ // 0x673 @0x5
0x66e…67c at0006 = ╱59╱Y╱ // 0x674 @0x6
0x66e…67c at0007 = ╱53╱S╱ // 0x675 @0x7
0x66e…67c at0008 = ╱50╱P╱ // 0x676 @0x8
0x66e…67c at0009 = ╱41╱A╱ // 0x677 @0x9
0x66e…67c at000a = ╱52╱R╱ // 0x678 @0xa
0x66e…67c at000b = ╱41╱A╱ // 0x679 @0xb
0x66e…67c at000c = ╱ef╱ $ ╱ // 0x67a @0xc
0x66e…67c at000d = EOL // 0x67b @0xd
0x66e…67c }
0x67c…6ac 9c9a 00570 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x67c…6ac LineComal80 {
0x67c…6ac ptr = 0x9c9a // 0x67c @0x0
0x67c…6ac lno = 0x023a // 0x67e @0x2
0x67c…6ac at0004 = ╱86╱ LET ╱ // 0x680 @0x4
0x67c…6ac at0005 = ╱50╱P╱ // 0x681 @0x5
0x67c…6ac at0006 = ╱41╱A╱ // 0x682 @0x6
0x67c…6ac at0007 = ╱52╱R╱ // 0x683 @0x7
0x67c…6ac at0008 = ╱41╱A╱ // 0x684 @0x8
0x67c…6ac at0009 = ╱4d╱M╱ // 0x685 @0x9
0x67c…6ac at000a = ╱ef╱ $ ╱ // 0x686 @0xa
0x67c…6ac at000b = ╱f0╱ := ╱ // 0x687 @0xb
0x67c…6ac at000c = ╱44╱D╱ // 0x688 @0xc
0x67c…6ac at000d = ╱41╱A╱ // 0x689 @0xd
0x67c…6ac at000e = ╱54╱T╱ // 0x68a @0xe
0x67c…6ac at000f = ╱41╱A╱ // 0x68b @0xf
0x67c…6ac at0010 = ╱46╱F╱ // 0x68c @0x10
0x67c…6ac at0011 = ╱4c╱L╱ // 0x68d @0x11
0x67c…6ac at0012 = ╱ef╱ $ ╱ // 0x68e @0x12
0x67c…6ac at0013 = ╱eb╱ + ╱ // 0x68f @0x13
0x67c…6ac at0014 = ╱22╱"╱ // 0x690 @0x14
0x67c…6ac at0015 = ╱3a╱:╱ // 0x691 @0x15
0x67c…6ac at0016 = ╱22╱"╱ // 0x692 @0x16
0x67c…6ac at0017 = ╱eb╱ + ╱ // 0x693 @0x17
0x67c…6ac at0018 = ╱53╱S╱ // 0x694 @0x18
0x67c…6ac at0019 = ╱5f╱_╱ // 0x695 @0x19
0x67c…6ac at001a = ╱4b╱K╱ // 0x696 @0x1a
0x67c…6ac at001b = ╱4f╱O╱ // 0x697 @0x1b
0x67c…6ac at001c = ╱44╱D╱ // 0x698 @0x1c
0x67c…6ac at001d = ╱45╱E╱ // 0x699 @0x1d
0x67c…6ac at001e = ╱ef╱ $ ╱ // 0x69a @0x1e
0x67c…6ac at001f = ╱eb╱ + ╱ // 0x69b @0x1f
0x67c…6ac at0020 = ╱54╱T╱ // 0x69c @0x20
0x67c…6ac at0021 = ╱5f╱_╱ // 0x69d @0x21
0x67c…6ac at0022 = ╱4b╱K╱ // 0x69e @0x22
0x67c…6ac at0023 = ╱4f╱O╱ // 0x69f @0x23
0x67c…6ac at0024 = ╱44╱D╱ // 0x6a0 @0x24
0x67c…6ac at0025 = ╱45╱E╱ // 0x6a1 @0x25
0x67c…6ac at0026 = ╱ef╱ $ ╱ // 0x6a2 @0x26
0x67c…6ac at0027 = ╱eb╱ + ╱ // 0x6a3 @0x27
0x67c…6ac at0028 = ╱22╱"╱ // 0x6a4 @0x28
0x67c…6ac at0029 = ╱50╱P╱ // 0x6a5 @0x29
0x67c…6ac at002a = ╱41╱A╱ // 0x6a6 @0x2a
0x67c…6ac at002b = ╱52╱R╱ // 0x6a7 @0x2b
0x67c…6ac at002c = ╱41╱A╱ // 0x6a8 @0x2c
0x67c…6ac at002d = ╱4d╱M╱ // 0x6a9 @0x2d
0x67c…6ac at002e = ╱22╱"╱ // 0x6aa @0x2e
0x67c…6ac at002f = EOL // 0x6ab @0x2f
0x67c…6ac }
0x6ac…6c5 9cb3 00580 EXEC OPENFIL ( PARAM $ , "R" )
0x6ac…6c5 LineComal80 {
0x6ac…6c5 ptr = 0x9cb3 // 0x6ac @0x0
0x6ac…6c5 lno = 0x0244 // 0x6ae @0x2
0x6ac…6c5 at0004 = ╱9d╱ EXEC ╱ // 0x6b0 @0x4
0x6ac…6c5 at0005 = ╱4f╱O╱ // 0x6b1 @0x5
0x6ac…6c5 at0006 = ╱50╱P╱ // 0x6b2 @0x6
0x6ac…6c5 at0007 = ╱45╱E╱ // 0x6b3 @0x7
0x6ac…6c5 at0008 = ╱4e╱N╱ // 0x6b4 @0x8
0x6ac…6c5 at0009 = ╱46╱F╱ // 0x6b5 @0x9
0x6ac…6c5 at000a = ╱49╱I╱ // 0x6b6 @0xa
0x6ac…6c5 at000b = ╱4c╱L╱ // 0x6b7 @0xb
0x6ac…6c5 at000c = ╱ed╱ ( ╱ // 0x6b8 @0xc
0x6ac…6c5 at000d = ╱50╱P╱ // 0x6b9 @0xd
0x6ac…6c5 at000e = ╱41╱A╱ // 0x6ba @0xe
0x6ac…6c5 at000f = ╱52╱R╱ // 0x6bb @0xf
0x6ac…6c5 at0010 = ╱41╱A╱ // 0x6bc @0x10
0x6ac…6c5 at0011 = ╱4d╱M╱ // 0x6bd @0x11
0x6ac…6c5 at0012 = ╱ef╱ $ ╱ // 0x6be @0x12
0x6ac…6c5 at0013 = ╱ec╱ , ╱ // 0x6bf @0x13
0x6ac…6c5 at0014 = ╱22╱"╱ // 0x6c0 @0x14
0x6ac…6c5 at0015 = ╱52╱R╱ // 0x6c1 @0x15
0x6ac…6c5 at0016 = ╱22╱"╱ // 0x6c2 @0x16
0x6ac…6c5 at0017 = ╱ee╱ ) ╱ // 0x6c3 @0x17
0x6ac…6c5 at0018 = EOL // 0x6c4 @0x18
0x6ac…6c5 }
0x6c5…6f0 9cde 00590 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x6c5…6f0 LineComal80 {
0x6c5…6f0 ptr = 0x9cde // 0x6c5 @0x0
0x6c5…6f0 lno = 0x024e // 0x6c7 @0x2
0x6c5…6f0 at0004 = ╱a9╱ GET ╱ // 0x6c9 @0x4
0x6c5…6f0 at0005 = ╱50╱P╱ // 0x6ca @0x5
0x6c5…6f0 at0006 = ╱41╱A╱ // 0x6cb @0x6
0x6c5…6f0 at0007 = ╱52╱R╱ // 0x6cc @0x7
0x6c5…6f0 at0008 = ╱41╱A╱ // 0x6cd @0x8
0x6c5…6f0 at0009 = ╱4d╱M╱ // 0x6ce @0x9
0x6c5…6f0 at000a = ╱ef╱ $ ╱ // 0x6cf @0xa
0x6c5…6f0 at000b = ╱ec╱ , ╱ // 0x6d0 @0xb
0x6c5…6f0 at000c = ╱31╱1╱ // 0x6d1 @0xc
0x6c5…6f0 at000d = ╱f20100╱ // 0x6d2 @0xd
0x6c5…6f0 at0010 = ╱f1╱ : ╱ // 0x6d5 @0x10
0x6c5…6f0 at0011 = ╱46╱F╱ // 0x6d6 @0x11
0x6c5…6f0 at0012 = ╱49╱I╱ // 0x6d7 @0x12
0x6c5…6f0 at0013 = ╱52╱R╱ // 0x6d8 @0x13
0x6c5…6f0 at0014 = ╱4d╱M╱ // 0x6d9 @0x14
0x6c5…6f0 at0015 = ╱41╱A╱ // 0x6da @0x15
0x6c5…6f0 at0016 = ╱4e╱N╱ // 0x6db @0x16
0x6c5…6f0 at0017 = ╱41╱A╱ // 0x6dc @0x17
0x6c5…6f0 at0018 = ╱56╱V╱ // 0x6dd @0x18
0x6c5…6f0 at0019 = ╱4e╱N╱ // 0x6de @0x19
0x6c5…6f0 at001a = ╱ef╱ $ ╱ // 0x6df @0x1a
0x6c5…6f0 at001b = ╱ec╱ , ╱ // 0x6e0 @0x1b
0x6c5…6f0 at001c = ╱53╱S╱ // 0x6e1 @0x1c
0x6c5…6f0 at001d = ╱59╱Y╱ // 0x6e2 @0x1d
0x6c5…6f0 at001e = ╱53╱S╱ // 0x6e3 @0x1e
0x6c5…6f0 at001f = ╱54╱T╱ // 0x6e4 @0x1f
0x6c5…6f0 at0020 = ╱5f╱_╱ // 0x6e5 @0x20
0x6c5…6f0 at0021 = ╱44╱D╱ // 0x6e6 @0x21
0x6c5…6f0 at0022 = ╱41╱A╱ // 0x6e7 @0x22
0x6c5…6f0 at0023 = ╱54╱T╱ // 0x6e8 @0x23
0x6c5…6f0 at0024 = ╱ef╱ $ ╱ // 0x6e9 @0x24
0x6c5…6f0 at0025 = ╱ec╱ , ╱ // 0x6ea @0x25
0x6c5…6f0 at0026 = ╱4d╱M╱ // 0x6eb @0x26
0x6c5…6f0 at0027 = ╱4f╱O╱ // 0x6ec @0x27
0x6c5…6f0 at0028 = ╱4d╱M╱ // 0x6ed @0x28
0x6c5…6f0 at0029 = ╱53╱S╱ // 0x6ee @0x29
0x6c5…6f0 at002a = EOL // 0x6ef @0x2a
0x6c5…6f0 }
0x6f0…6fc 9cea 00600 CLOSE PARAM $
0x6f0…6fc LineComal80 {
0x6f0…6fc ptr = 0x9cea // 0x6f0 @0x0
0x6f0…6fc lno = 0x0258 // 0x6f2 @0x2
0x6f0…6fc at0004 = ╱a8╱ CLOSE ╱ // 0x6f4 @0x4
0x6f0…6fc at0005 = ╱50╱P╱ // 0x6f5 @0x5
0x6f0…6fc at0006 = ╱41╱A╱ // 0x6f6 @0x6
0x6f0…6fc at0007 = ╱52╱R╱ // 0x6f7 @0x7
0x6f0…6fc at0008 = ╱41╱A╱ // 0x6f8 @0x8
0x6f0…6fc at0009 = ╱4d╱M╱ // 0x6f9 @0x9
0x6f0…6fc at000a = ╱ef╱ $ ╱ // 0x6fa @0xa
0x6f0…6fc at000b = EOL // 0x6fb @0xb
0x6f0…6fc }
0x6fc…709 9cf7 00610 ENDPROC INITIER
0x6fc…709 LineComal80 {
0x6fc…709 ptr = 0x9cf7 // 0x6fc @0x0
0x6fc…709 lno = 0x0262 // 0x6fe @0x2
0x6fc…709 at0004 = ╱9f╱ ENDPROC ╱ // 0x700 @0x4
0x6fc…709 at0005 = ╱49╱I╱ // 0x701 @0x5
0x6fc…709 at0006 = ╱4e╱N╱ // 0x702 @0x6
0x6fc…709 at0007 = ╱49╱I╱ // 0x703 @0x7
0x6fc…709 at0008 = ╱54╱T╱ // 0x704 @0x8
0x6fc…709 at0009 = ╱49╱I╱ // 0x705 @0x9
0x6fc…709 at000a = ╱45╱E╱ // 0x706 @0xa
0x6fc…709 at000b = ╱52╱R╱ // 0x707 @0xb
0x6fc…709 at000c = EOL // 0x708 @0xc
0x6fc…709 }
0x709…70e 9cfc 00620
0x709…70e LineComal80 {
0x709…70e ptr = 0x9cfc // 0x709 @0x0
0x709…70e lno = 0x026c // 0x70b @0x2
0x709…70e at0004 = EOL // 0x70d @0x4
0x709…70e }
0x70e…721 9d0f 00630 PROC TERMINAL_IDX
0x70e…721 LineComal80 {
0x70e…721 ptr = 0x9d0f // 0x70e @0x0
0x70e…721 lno = 0x0276 // 0x710 @0x2
0x70e…721 at0004 = ╱9e00╱ PROC ╱ // 0x712 @0x4
0x70e…721 at0006 = ╱54╱T╱ // 0x714 @0x6
0x70e…721 at0007 = ╱45╱E╱ // 0x715 @0x7
0x70e…721 at0008 = ╱52╱R╱ // 0x716 @0x8
0x70e…721 at0009 = ╱4d╱M╱ // 0x717 @0x9
0x70e…721 at000a = ╱49╱I╱ // 0x718 @0xa
0x70e…721 at000b = ╱4e╱N╱ // 0x719 @0xb
0x70e…721 at000c = ╱41╱A╱ // 0x71a @0xc
0x70e…721 at000d = ╱4c╱L╱ // 0x71b @0xd
0x70e…721 at000e = ╱5f╱_╱ // 0x71c @0xe
0x70e…721 at000f = ╱49╱I╱ // 0x71d @0xf
0x70e…721 at0010 = ╱44╱D╱ // 0x71e @0x10
0x70e…721 at0011 = ╱58╱X╱ // 0x71f @0x11
0x70e…721 at0012 = EOL // 0x720 @0x12
0x70e…721 }
0x721…73b 9d29 00640 LET PPAR := 5 ; RESRV := 0
0x721…73b LineComal80 {
0x721…73b ptr = 0x9d29 // 0x721 @0x0
0x721…73b lno = 0x0280 // 0x723 @0x2
0x721…73b at0004 = ╱86╱ LET ╱ // 0x725 @0x4
0x721…73b at0005 = ╱50╱P╱ // 0x726 @0x5
0x721…73b at0006 = ╱50╱P╱ // 0x727 @0x6
0x721…73b at0007 = ╱41╱A╱ // 0x728 @0x7
0x721…73b at0008 = ╱52╱R╱ // 0x729 @0x8
0x721…73b at0009 = ╱f0╱ := ╱ // 0x72a @0x9
0x721…73b at000a = ╱35╱5╱ // 0x72b @0xa
0x721…73b at000b = ╱f20500╱ // 0x72c @0xb
0x721…73b at000e = ╱ea╱ ; ╱ // 0x72f @0xe
0x721…73b at000f = ╱52╱R╱ // 0x730 @0xf
0x721…73b at0010 = ╱45╱E╱ // 0x731 @0x10
0x721…73b at0011 = ╱53╱S╱ // 0x732 @0x11
0x721…73b at0012 = ╱52╱R╱ // 0x733 @0x12
0x721…73b at0013 = ╱56╱V╱ // 0x734 @0x13
0x721…73b at0014 = ╱f0╱ := ╱ // 0x735 @0x14
0x721…73b at0015 = ╱30╱0╱ // 0x736 @0x15
0x721…73b at0016 = ╱f20000╱ // 0x737 @0x16
0x721…73b at0019 = EOL // 0x73a @0x19
0x721…73b }
0x73b…74d 9d3b 00650 CALL R"DDE:PRES"
0x73b…74d LineComal80 {
0x73b…74d ptr = 0x9d3b // 0x73b @0x0
0x73b…74d lno = 0x028a // 0x73d @0x2
0x73b…74d at0004 = ╱ad50╱ CALL ╱ // 0x73f @0x4
0x73b…74d at0006 = ╱52╱R╱ // 0x741 @0x6
0x73b…74d at0007 = ╱22╱"╱ // 0x742 @0x7
0x73b…74d at0008 = ╱44╱D╱ // 0x743 @0x8
0x73b…74d at0009 = ╱44╱D╱ // 0x744 @0x9
0x73b…74d at000a = ╱45╱E╱ // 0x745 @0xa
0x73b…74d at000b = ╱3a╱:╱ // 0x746 @0xb
0x73b…74d at000c = ╱50╱P╱ // 0x747 @0xc
0x73b…74d at000d = ╱52╱R╱ // 0x748 @0xd
0x73b…74d at000e = ╱45╱E╱ // 0x749 @0xe
0x73b…74d at000f = ╱53╱S╱ // 0x74a @0xf
0x73b…74d at0010 = ╱22╱"╱ // 0x74b @0x10
0x73b…74d at0011 = EOL // 0x74c @0x11
0x73b…74d }
0x74d…776 9d64 00660 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x74d…776 LineComal80 {
0x74d…776 ptr = 0x9d64 // 0x74d @0x0
0x74d…776 lno = 0x0294 // 0x74f @0x2
0x74d…776 at0004 = ╱a9╱ GET ╱ // 0x751 @0x4
0x74d…776 at0005 = ╱53╱S╱ // 0x752 @0x5
0x74d…776 at0006 = ╱59╱Y╱ // 0x753 @0x6
0x74d…776 at0007 = ╱53╱S╱ // 0x754 @0x7
0x74d…776 at0008 = ╱50╱P╱ // 0x755 @0x8
0x74d…776 at0009 = ╱41╱A╱ // 0x756 @0x9
0x74d…776 at000a = ╱52╱R╱ // 0x757 @0xa
0x74d…776 at000b = ╱41╱A╱ // 0x758 @0xb
0x74d…776 at000c = ╱ef╱ $ ╱ // 0x759 @0xc
0x74d…776 at000d = ╱ec╱ , ╱ // 0x75a @0xd
0x74d…776 at000e = ╱31╱1╱ // 0x75b @0xe
0x74d…776 at000f = ╱f20100╱ // 0x75c @0xf
0x74d…776 at0012 = ╱e5╱ + ╱ // 0x75f @0x12
0x74d…776 at0013 = ╱52╱R╱ // 0x760 @0x13
0x74d…776 at0014 = ╱45╱E╱ // 0x761 @0x14
0x74d…776 at0015 = ╱53╱S╱ // 0x762 @0x15
0x74d…776 at0016 = ╱52╱R╱ // 0x763 @0x16
0x74d…776 at0017 = ╱56╱V╱ // 0x764 @0x17
0x74d…776 at0018 = ╱f1╱ : ╱ // 0x765 @0x18
0x74d…776 at0019 = ╱44╱D╱ // 0x766 @0x19
0x74d…776 at001a = ╱41╱A╱ // 0x767 @0x1a
0x74d…776 at001b = ╱54╱T╱ // 0x768 @0x1b
0x74d…776 at001c = ╱41╱A╱ // 0x769 @0x1c
0x74d…776 at001d = ╱46╱F╱ // 0x76a @0x1d
0x74d…776 at001e = ╱4c╱L╱ // 0x76b @0x1e
0x74d…776 at001f = ╱ef╱ $ ╱ // 0x76c @0x1f
0x74d…776 at0020 = ╱ec╱ , ╱ // 0x76d @0x20
0x74d…776 at0021 = ╱54╱T╱ // 0x76e @0x21
0x74d…776 at0022 = ╱5f╱_╱ // 0x76f @0x22
0x74d…776 at0023 = ╱4b╱K╱ // 0x770 @0x23
0x74d…776 at0024 = ╱4f╱O╱ // 0x771 @0x24
0x74d…776 at0025 = ╱44╱D╱ // 0x772 @0x25
0x74d…776 at0026 = ╱45╱E╱ // 0x773 @0x26
0x74d…776 at0027 = ╱ef╱ $ ╱ // 0x774 @0x27
0x74d…776 at0028 = EOL // 0x775 @0x28
0x74d…776 }
0x776…788 9d76 00670 ENDPROC TERMINAL_IDX
0x776…788 LineComal80 {
0x776…788 ptr = 0x9d76 // 0x776 @0x0
0x776…788 lno = 0x029e // 0x778 @0x2
0x776…788 at0004 = ╱9f╱ ENDPROC ╱ // 0x77a @0x4
0x776…788 at0005 = ╱54╱T╱ // 0x77b @0x5
0x776…788 at0006 = ╱45╱E╱ // 0x77c @0x6
0x776…788 at0007 = ╱52╱R╱ // 0x77d @0x7
0x776…788 at0008 = ╱4d╱M╱ // 0x77e @0x8
0x776…788 at0009 = ╱49╱I╱ // 0x77f @0x9
0x776…788 at000a = ╱4e╱N╱ // 0x780 @0xa
0x776…788 at000b = ╱41╱A╱ // 0x781 @0xb
0x776…788 at000c = ╱4c╱L╱ // 0x782 @0xc
0x776…788 at000d = ╱5f╱_╱ // 0x783 @0xd
0x776…788 at000e = ╱49╱I╱ // 0x784 @0xe
0x776…788 at000f = ╱44╱D╱ // 0x785 @0xf
0x776…788 at0010 = ╱58╱X╱ // 0x786 @0x10
0x776…788 at0011 = EOL // 0x787 @0x11
0x776…788 }
0x788…78d 9d7b 00680
0x788…78d LineComal80 {
0x788…78d ptr = 0x9d7b // 0x788 @0x0
0x788…78d lno = 0x02a8 // 0x78a @0x2
0x788…78d at0004 = EOL // 0x78c @0x4
0x788…78d }
0x78d…7a8 9d96 00690 PROC OPENFIL ( FNAVN $ , WAY $ )
0x78d…7a8 LineComal80 {
0x78d…7a8 ptr = 0x9d96 // 0x78d @0x0
0x78d…7a8 lno = 0x02b2 // 0x78f @0x2
0x78d…7a8 at0004 = ╱9e00╱ PROC ╱ // 0x791 @0x4
0x78d…7a8 at0006 = ╱4f╱O╱ // 0x793 @0x6
0x78d…7a8 at0007 = ╱50╱P╱ // 0x794 @0x7
0x78d…7a8 at0008 = ╱45╱E╱ // 0x795 @0x8
0x78d…7a8 at0009 = ╱4e╱N╱ // 0x796 @0x9
0x78d…7a8 at000a = ╱46╱F╱ // 0x797 @0xa
0x78d…7a8 at000b = ╱49╱I╱ // 0x798 @0xb
0x78d…7a8 at000c = ╱4c╱L╱ // 0x799 @0xc
0x78d…7a8 at000d = ╱ed╱ ( ╱ // 0x79a @0xd
0x78d…7a8 at000e = ╱46╱F╱ // 0x79b @0xe
0x78d…7a8 at000f = ╱4e╱N╱ // 0x79c @0xf
0x78d…7a8 at0010 = ╱41╱A╱ // 0x79d @0x10
0x78d…7a8 at0011 = ╱56╱V╱ // 0x79e @0x11
0x78d…7a8 at0012 = ╱4e╱N╱ // 0x79f @0x12
0x78d…7a8 at0013 = ╱ef╱ $ ╱ // 0x7a0 @0x13
0x78d…7a8 at0014 = ╱ec╱ , ╱ // 0x7a1 @0x14
0x78d…7a8 at0015 = ╱57╱W╱ // 0x7a2 @0x15
0x78d…7a8 at0016 = ╱41╱A╱ // 0x7a3 @0x16
0x78d…7a8 at0017 = ╱59╱Y╱ // 0x7a4 @0x17
0x78d…7a8 at0018 = ╱ef╱ $ ╱ // 0x7a5 @0x18
0x78d…7a8 at0019 = ╱ee╱ ) ╱ // 0x7a6 @0x19
0x78d…7a8 at001a = EOL // 0x7a7 @0x1a
0x78d…7a8 }
0x7a8…7af 9d9d 00700 REPEAT
0x7a8…7af LineComal80 {
0x7a8…7af ptr = 0x9d9d // 0x7a8 @0x0
0x7a8…7af lno = 0x02bc // 0x7aa @0x2
0x7a8…7af at0004 = ╱9700╱ REPEAT ╱ // 0x7ac @0x4
0x7a8…7af at0006 = EOL // 0x7ae @0x6
0x7a8…7af }
0x7af…7c8 9db6 00710 IF AY $ = "W" OR WAY $ = "w" THEN
0x7af…7c8 LineComal80 {
0x7af…7c8 ptr = 0x9db6 // 0x7af @0x0
0x7af…7c8 lno = 0x02c6 // 0x7b1 @0x2
0x7af…7c8 at0004 = ╱9b0057╱ IF ╱ // 0x7b3 @0x4
0x7af…7c8 at0007 = ╱41╱A╱ // 0x7b6 @0x7
0x7af…7c8 at0008 = ╱59╱Y╱ // 0x7b7 @0x8
0x7af…7c8 at0009 = ╱ef╱ $ ╱ // 0x7b8 @0x9
0x7af…7c8 at000a = ╱df╱ = ╱ // 0x7b9 @0xa
0x7af…7c8 at000b = ╱22╱"╱ // 0x7ba @0xb
0x7af…7c8 at000c = ╱57╱W╱ // 0x7bb @0xc
0x7af…7c8 at000d = ╱22╱"╱ // 0x7bc @0xd
0x7af…7c8 at000e = ╱d8╱ OR ╱ // 0x7bd @0xe
0x7af…7c8 at000f = ╱57╱W╱ // 0x7be @0xf
0x7af…7c8 at0010 = ╱41╱A╱ // 0x7bf @0x10
0x7af…7c8 at0011 = ╱59╱Y╱ // 0x7c0 @0x11
0x7af…7c8 at0012 = ╱ef╱ $ ╱ // 0x7c1 @0x12
0x7af…7c8 at0013 = ╱df╱ = ╱ // 0x7c2 @0x13
0x7af…7c8 at0014 = ╱22╱"╱ // 0x7c3 @0x14
0x7af…7c8 at0015 = ╱77╱w╱ // 0x7c4 @0x15
0x7af…7c8 at0016 = ╱22╱"╱ // 0x7c5 @0x16
0x7af…7c8 at0017 = ╱b5╱ THEN ╱ // 0x7c6 @0x17
0x7af…7c8 at0018 = EOL // 0x7c7 @0x18
0x7af…7c8 }
0x7c8…7d6 9dc4 00720 OPEN FNAVN $ , W
0x7c8…7d6 LineComal80 {
0x7c8…7d6 ptr = 0x9dc4 // 0x7c8 @0x0
0x7c8…7d6 lno = 0x02d0 // 0x7ca @0x2
0x7c8…7d6 at0004 = ╱a7╱ OPEN ╱ // 0x7cc @0x4
0x7c8…7d6 at0005 = ╱46╱F╱ // 0x7cd @0x5
0x7c8…7d6 at0006 = ╱4e╱N╱ // 0x7ce @0x6
0x7c8…7d6 at0007 = ╱41╱A╱ // 0x7cf @0x7
0x7c8…7d6 at0008 = ╱56╱V╱ // 0x7d0 @0x8
0x7c8…7d6 at0009 = ╱4e╱N╱ // 0x7d1 @0x9
0x7c8…7d6 at000a = ╱ef╱ $ ╱ // 0x7d2 @0xa
0x7c8…7d6 at000b = ╱ec╱ , ╱ // 0x7d3 @0xb
0x7c8…7d6 at000c = ╱57╱W╱ // 0x7d4 @0xc
0x7c8…7d6 at000d = EOL // 0x7d5 @0xd
0x7c8…7d6 }
0x7d6…7dd 9dcb 00730 ELSE
0x7d6…7dd LineComal80 {
0x7d6…7dd ptr = 0x9dcb // 0x7d6 @0x0
0x7d6…7dd lno = 0x02da // 0x7d8 @0x2
0x7d6…7dd at0004 = ╱9a00╱ ELSE ╱ // 0x7da @0x4
0x7d6…7dd at0006 = EOL // 0x7dc @0x6
0x7d6…7dd }
0x7dd…7eb 9dd9 00740 OPEN FNAVN $ , R
0x7dd…7eb LineComal80 {
0x7dd…7eb ptr = 0x9dd9 // 0x7dd @0x0
0x7dd…7eb lno = 0x02e4 // 0x7df @0x2
0x7dd…7eb at0004 = ╱a7╱ OPEN ╱ // 0x7e1 @0x4
0x7dd…7eb at0005 = ╱46╱F╱ // 0x7e2 @0x5
0x7dd…7eb at0006 = ╱4e╱N╱ // 0x7e3 @0x6
0x7dd…7eb at0007 = ╱41╱A╱ // 0x7e4 @0x7
0x7dd…7eb at0008 = ╱56╱V╱ // 0x7e5 @0x8
0x7dd…7eb at0009 = ╱4e╱N╱ // 0x7e6 @0x9
0x7dd…7eb at000a = ╱ef╱ $ ╱ // 0x7e7 @0xa
0x7dd…7eb at000b = ╱ec╱ , ╱ // 0x7e8 @0xb
0x7dd…7eb at000c = ╱52╱R╱ // 0x7e9 @0xc
0x7dd…7eb at000d = EOL // 0x7ea @0xd
0x7dd…7eb }
0x7eb…7f1 9ddf 00750 ENDIF
0x7eb…7f1 LineComal80 {
0x7eb…7f1 ptr = 0x9ddf // 0x7eb @0x0
0x7eb…7f1 lno = 0x02ee // 0x7ed @0x2
0x7eb…7f1 at0004 = ╱9c╱ ENDIF ╱ // 0x7ef @0x4
0x7eb…7f1 at0005 = EOL // 0x7f0 @0x5
0x7eb…7f1 }
0x7f1…802 9df0 00760 IF ( FNAVN $ ) THEN
0x7f1…802 LineComal80 {
0x7f1…802 ptr = 0x9df0 // 0x7f1 @0x0
0x7f1…802 lno = 0x02f8 // 0x7f3 @0x2
0x7f1…802 at0004 = ╱9b00cd╱ IF ╱ // 0x7f5 @0x4
0x7f1…802 at0007 = ╱ed╱ ( ╱ // 0x7f8 @0x7
0x7f1…802 at0008 = ╱46╱F╱ // 0x7f9 @0x8
0x7f1…802 at0009 = ╱4e╱N╱ // 0x7fa @0x9
0x7f1…802 at000a = ╱41╱A╱ // 0x7fb @0xa
0x7f1…802 at000b = ╱56╱V╱ // 0x7fc @0xb
0x7f1…802 at000c = ╱4e╱N╱ // 0x7fd @0xc
0x7f1…802 at000d = ╱ef╱ $ ╱ // 0x7fe @0xd
0x7f1…802 at000e = ╱ee╱ ) ╱ // 0x7ff @0xe
0x7f1…802 at000f = ╱b5╱ THEN ╱ // 0x800 @0xf
0x7f1…802 at0010 = EOL // 0x801 @0x10
0x7f1…802 }
0x802…81a 9e08 00770 PRINT "<SC0123>" ; CHR$ ( 7 )
0x802…81a LineComal80 {
0x802…81a ptr = 0x9e08 // 0x802 @0x0
0x802…81a lno = 0x0302 // 0x804 @0x2
0x802…81a at0004 = ╱92╱ PRINT ╱ // 0x806 @0x4
0x802…81a at0005 = ╱22╱"╱ // 0x807 @0x5
0x802…81a at0006 = ╱3c╱<╱ // 0x808 @0x6
0x802…81a at0007 = ╱53╱S╱ // 0x809 @0x7
0x802…81a at0008 = ╱43╱C╱ // 0x80a @0x8
0x802…81a at0009 = ╱30╱0╱ // 0x80b @0x9
0x802…81a at000a = ╱31╱1╱ // 0x80c @0xa
0x802…81a at000b = ╱32╱2╱ // 0x80d @0xb
0x802…81a at000c = ╱33╱3╱ // 0x80e @0xc
0x802…81a at000d = ╱3e╱>╱ // 0x80f @0xd
0x802…81a at000e = ╱22╱"╱ // 0x810 @0xe
0x802…81a at000f = ╱ea╱ ; ╱ // 0x811 @0xf
0x802…81a at0010 = ╱d0╱ CHR$ ╱ // 0x812 @0x10
0x802…81a at0011 = ╱ed╱ ( ╱ // 0x813 @0x11
0x802…81a at0012 = ╱37╱7╱ // 0x814 @0x12
0x802…81a at0013 = ╱f20700╱ // 0x815 @0x13
0x802…81a at0016 = ╱ee╱ ) ╱ // 0x818 @0x16
0x802…81a at0017 = EOL // 0x819 @0x17
0x802…81a }
0x81a…830 9e1e 00780 IF ( FNAVN $ ) = 6 THEN
0x81a…830 LineComal80 {
0x81a…830 ptr = 0x9e1e // 0x81a @0x0
0x81a…830 lno = 0x030c // 0x81c @0x2
0x81a…830 at0004 = ╱9b00cd╱ IF ╱ // 0x81e @0x4
0x81a…830 at0007 = ╱ed╱ ( ╱ // 0x821 @0x7
0x81a…830 at0008 = ╱46╱F╱ // 0x822 @0x8
0x81a…830 at0009 = ╱4e╱N╱ // 0x823 @0x9
0x81a…830 at000a = ╱41╱A╱ // 0x824 @0xa
0x81a…830 at000b = ╱56╱V╱ // 0x825 @0xb
0x81a…830 at000c = ╱4e╱N╱ // 0x826 @0xc
0x81a…830 at000d = ╱ef╱ $ ╱ // 0x827 @0xd
0x81a…830 at000e = ╱ee╱ ) ╱ // 0x828 @0xe
0x81a…830 at000f = ╱df╱ = ╱ // 0x829 @0xf
0x81a…830 at0010 = ╱36╱6╱ // 0x82a @0x10
0x81a…830 at0011 = ╱f20600╱ // 0x82b @0x11
0x81a…830 at0014 = ╱b5╱ THEN ╱ // 0x82e @0x14
0x81a…830 at0015 = EOL // 0x82f @0x15
0x81a…830 }
0x830…875 9e63 00790 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x830…875 LineComal80 {
0x830…875 ptr = 0x9e63 // 0x830 @0x0
0x830…875 lno = 0x0316 // 0x832 @0x2
0x830…875 at0004 = ╱92╱ PRINT ╱ // 0x834 @0x4
0x830…875 at0005 = ╱22╱"╱ // 0x835 @0x5
0x830…875 at0006 = ╱3c╱<╱ // 0x836 @0x6
0x830…875 at0007 = ╱53╱S╱ // 0x837 @0x7
0x830…875 at0008 = ╱43╱C╱ // 0x838 @0x8
0x830…875 at0009 = ╱31╱1╱ // 0x839 @0x9
0x830…875 at000a = ╱36╱6╱ // 0x83a @0xa
0x830…875 at000b = ╱30╱0╱ // 0x83b @0xb
0x830…875 at000c = ╱32╱2╱ // 0x83c @0xc
0x830…875 at000d = ╱3e╱>╱ // 0x83d @0xd
0x830…875 at000e = ╱2a╱*╱ // 0x83e @0xe
0x830…875 at000f = ╱2a╱*╱ // 0x83f @0xf
0x830…875 at0010 = ╱2a╱*╱ // 0x840 @0x10
0x830…875 at0011 = ╱20╱…╱ // 0x841 @0x11
0x830…875 at0012 = ╱46╱F╱ // 0x842 @0x12
0x830…875 at0013 = ╱65╱e╱ // 0x843 @0x13
0x830…875 at0014 = ╱6a╱j╱ // 0x844 @0x14
0x830…875 at0015 = ╱6c╱l╱ // 0x845 @0x15
0x830…875 at0016 = ╱20╱…╱ // 0x846 @0x16
0x830…875 at0017 = ╱6e╱n╱ // 0x847 @0x17
0x830…875 at0018 = ╱72╱r╱ // 0x848 @0x18
0x830…875 at0019 = ╱2e╱.╱ // 0x849 @0x19
0x830…875 at001a = ╱20╱…╱ // 0x84a @0x1a
0x830…875 at001b = ╱36╱6╱ // 0x84b @0x1b
0x830…875 at001c = ╱20╱…╱ // 0x84c @0x1c
0x830…875 at001d = ╱2d╱-╱ // 0x84d @0x1d
0x830…875 at001e = ╱20╱…╱ // 0x84e @0x1e
0x830…875 at001f = ╱69╱i╱ // 0x84f @0x1f
0x830…875 at0020 = ╱6e╱n╱ // 0x850 @0x20
0x830…875 at0021 = ╱64╱d╱ // 0x851 @0x21
0x830…875 at0022 = ╱73╱s╱ // 0x852 @0x22
0x830…875 at0023 = ╱7b╱{╱ // 0x853 @0x23
0x830…875 at0024 = ╱74╱t╱ // 0x854 @0x24
0x830…875 at0025 = ╱20╱…╱ // 0x855 @0x25
0x830…875 at0026 = ╱64╱d╱ // 0x856 @0x26
0x830…875 at0027 = ╱69╱i╱ // 0x857 @0x27
0x830…875 at0028 = ╱73╱s╱ // 0x858 @0x28
0x830…875 at0029 = ╱6b╱k╱ // 0x859 @0x29
0x830…875 at002a = ╱65╱e╱ // 0x85a @0x2a
0x830…875 at002b = ╱74╱t╱ // 0x85b @0x2b
0x830…875 at002c = ╱74╱t╱ // 0x85c @0x2c
0x830…875 at002d = ╱65╱e╱ // 0x85d @0x2d
0x830…875 at002e = ╱20╱…╱ // 0x85e @0x2e
0x830…875 at002f = ╱6f╱o╱ // 0x85f @0x2f
0x830…875 at0030 = ╱67╱g╱ // 0x860 @0x30
0x830…875 at0031 = ╱20╱…╱ // 0x861 @0x31
0x830…875 at0032 = ╱74╱t╱ // 0x862 @0x32
0x830…875 at0033 = ╱72╱r╱ // 0x863 @0x33
0x830…875 at0034 = ╱79╱y╱ // 0x864 @0x34
0x830…875 at0035 = ╱6b╱k╱ // 0x865 @0x35
0x830…875 at0036 = ╱20╱…╱ // 0x866 @0x36
0x830…875 at0037 = ╱3c╱<╱ // 0x867 @0x37
0x830…875 at0038 = ╱52╱R╱ // 0x868 @0x38
0x830…875 at0039 = ╱45╱E╱ // 0x869 @0x39
0x830…875 at003a = ╱54╱T╱ // 0x86a @0x3a
0x830…875 at003b = ╱55╱U╱ // 0x86b @0x3b
0x830…875 at003c = ╱52╱R╱ // 0x86c @0x3c
0x830…875 at003d = ╱4e╱N╱ // 0x86d @0x3d
0x830…875 at003e = ╱3e╱>╱ // 0x86e @0x3e
0x830…875 at003f = ╱20╱…╱ // 0x86f @0x3f
0x830…875 at0040 = ╱2a╱*╱ // 0x870 @0x40
0x830…875 at0041 = ╱2a╱*╱ // 0x871 @0x41
0x830…875 at0042 = ╱2a╱*╱ // 0x872 @0x42
0x830…875 at0043 = ╱22╱"╱ // 0x873 @0x43
0x830…875 at0044 = EOL // 0x874 @0x44
0x830…875 }
0x875…883 9e71 00800 INPUT "" : SVAR $
0x875…883 LineComal80 {
0x875…883 ptr = 0x9e71 // 0x875 @0x0
0x875…883 lno = 0x0320 // 0x877 @0x2
0x875…883 at0004 = ╱91╱ INPUT ╱ // 0x879 @0x4
0x875…883 at0005 = ╱22╱"╱ // 0x87a @0x5
0x875…883 at0006 = ╱22╱"╱ // 0x87b @0x6
0x875…883 at0007 = ╱f1╱ : ╱ // 0x87c @0x7
0x875…883 at0008 = ╱53╱S╱ // 0x87d @0x8
0x875…883 at0009 = ╱56╱V╱ // 0x87e @0x9
0x875…883 at000a = ╱41╱A╱ // 0x87f @0xa
0x875…883 at000b = ╱52╱R╱ // 0x880 @0xb
0x875…883 at000c = ╱ef╱ $ ╱ // 0x881 @0xc
0x875…883 at000d = EOL // 0x882 @0xd
0x875…883 }
0x883…88a 9e78 00810 ELSE
0x883…88a LineComal80 {
0x883…88a ptr = 0x9e78 // 0x883 @0x0
0x883…88a lno = 0x032a // 0x885 @0x2
0x883…88a at0004 = ╱9a00╱ ELSE ╱ // 0x887 @0x4
0x883…88a at0006 = EOL // 0x889 @0x6
0x883…88a }
0x88a…8cb 9eb9 00820 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x88a…8cb LineComal80 {
0x88a…8cb ptr = 0x9eb9 // 0x88a @0x0
0x88a…8cb lno = 0x0334 // 0x88c @0x2
0x88a…8cb at0004 = ╱92╱ PRINT ╱ // 0x88e @0x4
0x88a…8cb at0005 = ╱22╱"╱ // 0x88f @0x5
0x88a…8cb at0006 = ╱3c╱<╱ // 0x890 @0x6
0x88a…8cb at0007 = ╱53╱S╱ // 0x891 @0x7
0x88a…8cb at0008 = ╱43╱C╱ // 0x892 @0x8
0x88a…8cb at0009 = ╱31╱1╱ // 0x893 @0x9
0x88a…8cb at000a = ╱38╱8╱ // 0x894 @0xa
0x88a…8cb at000b = ╱30╱0╱ // 0x895 @0xb
0x88a…8cb at000c = ╱32╱2╱ // 0x896 @0xc
0x88a…8cb at000d = ╱3e╱>╱ // 0x897 @0xd
0x88a…8cb at000e = ╱2a╱*╱ // 0x898 @0xe
0x88a…8cb at000f = ╱2a╱*╱ // 0x899 @0xf
0x88a…8cb at0010 = ╱2a╱*╱ // 0x89a @0x10
0x88a…8cb at0011 = ╱20╱…╱ // 0x89b @0x11
0x88a…8cb at0012 = ╱46╱F╱ // 0x89c @0x12
0x88a…8cb at0013 = ╱65╱e╱ // 0x89d @0x13
0x88a…8cb at0014 = ╱6a╱j╱ // 0x89e @0x14
0x88a…8cb at0015 = ╱6c╱l╱ // 0x89f @0x15
0x88a…8cb at0016 = ╱20╱…╱ // 0x8a0 @0x16
0x88a…8cb at0017 = ╱6e╱n╱ // 0x8a1 @0x17
0x88a…8cb at0018 = ╱72╱r╱ // 0x8a2 @0x18
0x88a…8cb at0019 = ╱2e╱.╱ // 0x8a3 @0x19
0x88a…8cb at001a = ╱20╱…╱ // 0x8a4 @0x1a
0x88a…8cb at001b = ╱22╱"╱ // 0x8a5 @0x1b
0x88a…8cb at001c = ╱ea╱ ; ╱ // 0x8a6 @0x1c
0x88a…8cb at001d = ╱d0╱ CHR$ ╱ // 0x8a7 @0x1d
0x88a…8cb at001e = ╱ed╱ ( ╱ // 0x8a8 @0x1e
0x88a…8cb at001f = ╱cd╱ // 0x8a9 @0x1f
0x88a…8cb at0020 = ╱ed╱ ( ╱ // 0x8aa @0x20
0x88a…8cb at0021 = ╱46╱F╱ // 0x8ab @0x21
0x88a…8cb at0022 = ╱4e╱N╱ // 0x8ac @0x22
0x88a…8cb at0023 = ╱41╱A╱ // 0x8ad @0x23
0x88a…8cb at0024 = ╱56╱V╱ // 0x8ae @0x24
0x88a…8cb at0025 = ╱4e╱N╱ // 0x8af @0x25
0x88a…8cb at0026 = ╱ef╱ $ ╱ // 0x8b0 @0x26
0x88a…8cb at0027 = ╱ee╱ ) ╱ // 0x8b1 @0x27
0x88a…8cb at0028 = ╱ec╱ , ╱ // 0x8b2 @0x28
0x88a…8cb at0029 = ╱32╱2╱ // 0x8b3 @0x29
0x88a…8cb at002a = ╱f20200╱ // 0x8b4 @0x2a
0x88a…8cb at002d = ╱ee╱ ) ╱ // 0x8b7 @0x2d
0x88a…8cb at002e = ╱ea╱ ; ╱ // 0x8b8 @0x2e
0x88a…8cb at002f = ╱22╱"╱ // 0x8b9 @0x2f
0x88a…8cb at0030 = ╱20╱…╱ // 0x8ba @0x30
0x88a…8cb at0031 = ╱76╱v╱ // 0x8bb @0x31
0x88a…8cb at0032 = ╱65╱e╱ // 0x8bc @0x32
0x88a…8cb at0033 = ╱64╱d╱ // 0x8bd @0x33
0x88a…8cb at0034 = ╱20╱…╱ // 0x8be @0x34
0x88a…8cb at0035 = ╱7d╱}╱ // 0x8bf @0x35
0x88a…8cb at0036 = ╱62╱b╱ // 0x8c0 @0x36
0x88a…8cb at0037 = ╱6e╱n╱ // 0x8c1 @0x37
0x88a…8cb at0038 = ╱69╱i╱ // 0x8c2 @0x38
0x88a…8cb at0039 = ╱6e╱n╱ // 0x8c3 @0x39
0x88a…8cb at003a = ╱67╱g╱ // 0x8c4 @0x3a
0x88a…8cb at003b = ╱20╱…╱ // 0x8c5 @0x3b
0x88a…8cb at003c = ╱61╱a╱ // 0x8c6 @0x3c
0x88a…8cb at003d = ╱66╱f╱ // 0x8c7 @0x3d
0x88a…8cb at003e = ╱20╱…╱ // 0x8c8 @0x3e
0x88a…8cb at003f = ╱22╱"╱ // 0x8c9 @0x3f
0x88a…8cb at0040 = EOL // 0x8ca @0x40
0x88a…8cb }
0x8cb…8e4 9ed2 00830 PRINT "<S>" ; FNAVN $ ; "…***"
0x8cb…8e4 LineComal80 {
0x8cb…8e4 ptr = 0x9ed2 // 0x8cb @0x0
0x8cb…8e4 lno = 0x033e // 0x8cd @0x2
0x8cb…8e4 at0004 = ╱92╱ PRINT ╱ // 0x8cf @0x4
0x8cb…8e4 at0005 = ╱22╱"╱ // 0x8d0 @0x5
0x8cb…8e4 at0006 = ╱3c╱<╱ // 0x8d1 @0x6
0x8cb…8e4 at0007 = ╱53╱S╱ // 0x8d2 @0x7
0x8cb…8e4 at0008 = ╱3e╱>╱ // 0x8d3 @0x8
0x8cb…8e4 at0009 = ╱22╱"╱ // 0x8d4 @0x9
0x8cb…8e4 at000a = ╱ea╱ ; ╱ // 0x8d5 @0xa
0x8cb…8e4 at000b = ╱46╱F╱ // 0x8d6 @0xb
0x8cb…8e4 at000c = ╱4e╱N╱ // 0x8d7 @0xc
0x8cb…8e4 at000d = ╱41╱A╱ // 0x8d8 @0xd
0x8cb…8e4 at000e = ╱56╱V╱ // 0x8d9 @0xe
0x8cb…8e4 at000f = ╱4e╱N╱ // 0x8da @0xf
0x8cb…8e4 at0010 = ╱ef╱ $ ╱ // 0x8db @0x10
0x8cb…8e4 at0011 = ╱ea╱ ; ╱ // 0x8dc @0x11
0x8cb…8e4 at0012 = ╱22╱"╱ // 0x8dd @0x12
0x8cb…8e4 at0013 = ╱20╱…╱ // 0x8de @0x13
0x8cb…8e4 at0014 = ╱2a╱*╱ // 0x8df @0x14
0x8cb…8e4 at0015 = ╱2a╱*╱ // 0x8e0 @0x15
0x8cb…8e4 at0016 = ╱2a╱*╱ // 0x8e1 @0x16
0x8cb…8e4 at0017 = ╱22╱"╱ // 0x8e2 @0x17
0x8cb…8e4 at0018 = EOL // 0x8e3 @0x18
0x8cb…8e4 }
0x8e4…8f2 9ee0 00840 INPUT "" : SVAR $
0x8e4…8f2 LineComal80 {
0x8e4…8f2 ptr = 0x9ee0 // 0x8e4 @0x0
0x8e4…8f2 lno = 0x0348 // 0x8e6 @0x2
0x8e4…8f2 at0004 = ╱91╱ INPUT ╱ // 0x8e8 @0x4
0x8e4…8f2 at0005 = ╱22╱"╱ // 0x8e9 @0x5
0x8e4…8f2 at0006 = ╱22╱"╱ // 0x8ea @0x6
0x8e4…8f2 at0007 = ╱f1╱ : ╱ // 0x8eb @0x7
0x8e4…8f2 at0008 = ╱53╱S╱ // 0x8ec @0x8
0x8e4…8f2 at0009 = ╱56╱V╱ // 0x8ed @0x9
0x8e4…8f2 at000a = ╱41╱A╱ // 0x8ee @0xa
0x8e4…8f2 at000b = ╱52╱R╱ // 0x8ef @0xb
0x8e4…8f2 at000c = ╱ef╱ $ ╱ // 0x8f0 @0xc
0x8e4…8f2 at000d = EOL // 0x8f1 @0xd
0x8e4…8f2 }
0x8f2…906 9ef4 00850 PRINT "<C0102>" ; SPC $
0x8f2…906 LineComal80 {
0x8f2…906 ptr = 0x9ef4 // 0x8f2 @0x0
0x8f2…906 lno = 0x0352 // 0x8f4 @0x2
0x8f2…906 at0004 = ╱92╱ PRINT ╱ // 0x8f6 @0x4
0x8f2…906 at0005 = ╱22╱"╱ // 0x8f7 @0x5
0x8f2…906 at0006 = ╱3c╱<╱ // 0x8f8 @0x6
0x8f2…906 at0007 = ╱43╱C╱ // 0x8f9 @0x7
0x8f2…906 at0008 = ╱30╱0╱ // 0x8fa @0x8
0x8f2…906 at0009 = ╱31╱1╱ // 0x8fb @0x9
0x8f2…906 at000a = ╱30╱0╱ // 0x8fc @0xa
0x8f2…906 at000b = ╱32╱2╱ // 0x8fd @0xb
0x8f2…906 at000c = ╱3e╱>╱ // 0x8fe @0xc
0x8f2…906 at000d = ╱22╱"╱ // 0x8ff @0xd
0x8f2…906 at000e = ╱ea╱ ; ╱ // 0x900 @0xe
0x8f2…906 at000f = ╱53╱S╱ // 0x901 @0xf
0x8f2…906 at0010 = ╱50╱P╱ // 0x902 @0x10
0x8f2…906 at0011 = ╱43╱C╱ // 0x903 @0x11
0x8f2…906 at0012 = ╱ef╱ $ ╱ // 0x904 @0x12
0x8f2…906 at0013 = EOL // 0x905 @0x13
0x8f2…906 }
0x906…90c (30,) 9efa 00860 ENDIF
0x906…90c LineComal80 {
0x906…90c ptr = 0x9efa // 0x906 @0x0
0x906…90c lno = 0x035c // 0x908 @0x2
0x906…90c at0004 = ╱9c╱ ENDIF ╱ // 0x90a @0x4
0x906…90c at0005 = EOL // 0x90b @0x5
0x906…90c }
0x90c…912 9f00 00870 ENDIF
0x90c…912 LineComal80 {
0x90c…912 ptr = 0x9f00 // 0x90c @0x0
0x90c…912 lno = 0x0366 // 0x90e @0x2
0x90c…912 at0004 = ╱9c╱ ENDIF ╱ // 0x910 @0x4
0x90c…912 at0005 = EOL // 0x911 @0x5
0x90c…912 }
0x912…922 9f10 00880 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x912…922 LineComal80 {
0x912…922 ptr = 0x9f10 // 0x912 @0x0
0x912…922 lno = 0x0370 // 0x914 @0x2
0x912…922 at0004 = ╱98╱ UNTIL ╱ // 0x916 @0x4
0x912…922 at0005 = ╱d7╱ NOT ╱ // 0x917 @0x5
0x912…922 at0006 = ╱cd╱ // 0x918 @0x6
0x912…922 at0007 = ╱ed╱ ( ╱ // 0x919 @0x7
0x912…922 at0008 = ╱46╱F╱ // 0x91a @0x8
0x912…922 at0009 = ╱4e╱N╱ // 0x91b @0x9
0x912…922 at000a = ╱41╱A╱ // 0x91c @0xa
0x912…922 at000b = ╱56╱V╱ // 0x91d @0xb
0x912…922 at000c = ╱4e╱N╱ // 0x91e @0xc
0x912…922 at000d = ╱ef╱ $ ╱ // 0x91f @0xd
0x912…922 at000e = ╱ee╱ ) ╱ // 0x920 @0xe
0x912…922 at000f = EOL // 0x921 @0xf
0x912…922 }
0x922…92f 9f1d 00890 ENDPROC OPENFIL
0x922…92f LineComal80 {
0x922…92f ptr = 0x9f1d // 0x922 @0x0
0x922…92f lno = 0x037a // 0x924 @0x2
0x922…92f at0004 = ╱9f╱ ENDPROC ╱ // 0x926 @0x4
0x922…92f at0005 = ╱4f╱O╱ // 0x927 @0x5
0x922…92f at0006 = ╱50╱P╱ // 0x928 @0x6
0x922…92f at0007 = ╱45╱E╱ // 0x929 @0x7
0x922…92f at0008 = ╱4e╱N╱ // 0x92a @0x8
0x922…92f at0009 = ╱46╱F╱ // 0x92b @0x9
0x922…92f at000a = ╱49╱I╱ // 0x92c @0xa
0x922…92f at000b = ╱4c╱L╱ // 0x92d @0xb
0x922…92f at000c = EOL // 0x92e @0xc
0x922…92f }
0x92f…934 9f22 00900
0x92f…934 LineComal80 {
0x92f…934 ptr = 0x9f22 // 0x92f @0x0
0x92f…934 lno = 0x0384 // 0x931 @0x2
0x92f…934 at0004 = EOL // 0x933 @0x4
0x92f…934 }
0x934…94c 9f3a 00910 PROC OVERSKRIFT ( ST $ , L )
0x934…94c LineComal80 {
0x934…94c ptr = 0x9f3a // 0x934 @0x0
0x934…94c lno = 0x038e // 0x936 @0x2
0x934…94c at0004 = ╱9e00╱ PROC ╱ // 0x938 @0x4
0x934…94c at0006 = ╱4f╱O╱ // 0x93a @0x6
0x934…94c at0007 = ╱56╱V╱ // 0x93b @0x7
0x934…94c at0008 = ╱45╱E╱ // 0x93c @0x8
0x934…94c at0009 = ╱52╱R╱ // 0x93d @0x9
0x934…94c at000a = ╱53╱S╱ // 0x93e @0xa
0x934…94c at000b = ╱4b╱K╱ // 0x93f @0xb
0x934…94c at000c = ╱52╱R╱ // 0x940 @0xc
0x934…94c at000d = ╱49╱I╱ // 0x941 @0xd
0x934…94c at000e = ╱46╱F╱ // 0x942 @0xe
0x934…94c at000f = ╱54╱T╱ // 0x943 @0xf
0x934…94c at0010 = ╱ed╱ ( ╱ // 0x944 @0x10
0x934…94c at0011 = ╱53╱S╱ // 0x945 @0x11
0x934…94c at0012 = ╱54╱T╱ // 0x946 @0x12
0x934…94c at0013 = ╱ef╱ $ ╱ // 0x947 @0x13
0x934…94c at0014 = ╱ec╱ , ╱ // 0x948 @0x14
0x934…94c at0015 = ╱4c╱L╱ // 0x949 @0x15
0x934…94c at0016 = ╱ee╱ ) ╱ // 0x94a @0x16
0x934…94c at0017 = EOL // 0x94b @0x17
0x934…94c }
0x94c…972 9f60 00920 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x94c…972 LineComal80 {
0x94c…972 ptr = 0x9f60 // 0x94c @0x0
0x94c…972 lno = 0x0398 // 0x94e @0x2
0x94c…972 at0004 = ╱92╱ PRINT ╱ // 0x950 @0x4
0x94c…972 at0005 = ╱22╱"╱ // 0x951 @0x5
0x94c…972 at0006 = ╱3c╱<╱ // 0x952 @0x6
0x94c…972 at0007 = ╱58╱X╱ // 0x953 @0x7
0x94c…972 at0008 = ╱43╱C╱ // 0x954 @0x8
0x94c…972 at0009 = ╱30╱0╱ // 0x955 @0x9
0x94c…972 at000a = ╱31╱1╱ // 0x956 @0xa
0x94c…972 at000b = ╱30╱0╱ // 0x957 @0xb
0x94c…972 at000c = ╱31╱1╱ // 0x958 @0xc
0x94c…972 at000d = ╱3e╱>╱ // 0x959 @0xd
0x94c…972 at000e = ╱46╱F╱ // 0x95a @0xe
0x94c…972 at000f = ╱69╱i╱ // 0x95b @0xf
0x94c…972 at0010 = ╱72╱r╱ // 0x95c @0x10
0x94c…972 at0011 = ╱6d╱m╱ // 0x95d @0x11
0x94c…972 at0012 = ╱61╱a╱ // 0x95e @0x12
0x94c…972 at0013 = ╱6e╱n╱ // 0x95f @0x13
0x94c…972 at0014 = ╱61╱a╱ // 0x960 @0x14
0x94c…972 at0015 = ╱76╱v╱ // 0x961 @0x15
0x94c…972 at0016 = ╱6e╱n╱ // 0x962 @0x16
0x94c…972 at0017 = ╱3a╱:╱ // 0x963 @0x17
0x94c…972 at0018 = ╱20╱…╱ // 0x964 @0x18
0x94c…972 at0019 = ╱22╱"╱ // 0x965 @0x19
0x94c…972 at001a = ╱ea╱ ; ╱ // 0x966 @0x1a
0x94c…972 at001b = ╱46╱F╱ // 0x967 @0x1b
0x94c…972 at001c = ╱49╱I╱ // 0x968 @0x1c
0x94c…972 at001d = ╱52╱R╱ // 0x969 @0x1d
0x94c…972 at001e = ╱4d╱M╱ // 0x96a @0x1e
0x94c…972 at001f = ╱41╱A╱ // 0x96b @0x1f
0x94c…972 at0020 = ╱4e╱N╱ // 0x96c @0x20
0x94c…972 at0021 = ╱41╱A╱ // 0x96d @0x21
0x94c…972 at0022 = ╱56╱V╱ // 0x96e @0x22
0x94c…972 at0023 = ╱4e╱N╱ // 0x96f @0x23
0x94c…972 at0024 = ╱ef╱ $ ╱ // 0x970 @0x24
0x94c…972 at0025 = EOL // 0x971 @0x25
0x94c…972 }
0x972…9ba 9fa8 00930 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x972…9ba LineComal80 {
0x972…9ba ptr = 0x9fa8 // 0x972 @0x0
0x972…9ba lno = 0x03a2 // 0x974 @0x2
0x972…9ba at0004 = ╱92╱ PRINT ╱ // 0x976 @0x4
0x972…9ba at0005 = ╱22╱"╱ // 0x977 @0x5
0x972…9ba at0006 = ╱3c╱<╱ // 0x978 @0x6
0x972…9ba at0007 = ╱53╱S╱ // 0x979 @0x7
0x972…9ba at0008 = ╱43╱C╱ // 0x97a @0x8
0x972…9ba at0009 = ╱36╱6╱ // 0x97b @0x9
0x972…9ba at000a = ╱35╱5╱ // 0x97c @0xa
0x972…9ba at000b = ╱30╱0╱ // 0x97d @0xb
0x972…9ba at000c = ╱31╱1╱ // 0x97e @0xc
0x972…9ba at000d = ╱3e╱>╱ // 0x97f @0xd
0x972…9ba at000e = ╱44╱D╱ // 0x980 @0xe
0x972…9ba at000f = ╱61╱a╱ // 0x981 @0xf
0x972…9ba at0010 = ╱74╱t╱ // 0x982 @0x10
0x972…9ba at0011 = ╱6f╱o╱ // 0x983 @0x11
0x972…9ba at0012 = ╱3a╱:╱ // 0x984 @0x12
0x972…9ba at0013 = ╱20╱…╱ // 0x985 @0x13
0x972…9ba at0014 = ╱22╱"╱ // 0x986 @0x14
0x972…9ba at0015 = ╱ea╱ ; ╱ // 0x987 @0x15
0x972…9ba at0016 = ╱53╱S╱ // 0x988 @0x16
0x972…9ba at0017 = ╱59╱Y╱ // 0x989 @0x17
0x972…9ba at0018 = ╱53╱S╱ // 0x98a @0x18
0x972…9ba at0019 = ╱54╱T╱ // 0x98b @0x19
0x972…9ba at001a = ╱5f╱_╱ // 0x98c @0x1a
0x972…9ba at001b = ╱44╱D╱ // 0x98d @0x1b
0x972…9ba at001c = ╱41╱A╱ // 0x98e @0x1c
0x972…9ba at001d = ╱54╱T╱ // 0x98f @0x1d
0x972…9ba at001e = ╱ef╱ $ ╱ // 0x990 @0x1e
0x972…9ba at001f = ╱ed╱ ( ╱ // 0x991 @0x1f
0x972…9ba at0020 = ╱31╱1╱ // 0x992 @0x20
0x972…9ba at0021 = ╱f20100╱ // 0x993 @0x21
0x972…9ba at0024 = ╱f1╱ : ╱ // 0x996 @0x24
0x972…9ba at0025 = ╱32╱2╱ // 0x997 @0x25
0x972…9ba at0026 = ╱f20200╱ // 0x998 @0x26
0x972…9ba at0029 = ╱ee╱ ) ╱ // 0x99b @0x29
0x972…9ba at002a = ╱ea╱ ; ╱ // 0x99c @0x2a
0x972…9ba at002b = ╱22╱"╱ // 0x99d @0x2b
0x972…9ba at002c = ╱2e╱.╱ // 0x99e @0x2c
0x972…9ba at002d = ╱22╱"╱ // 0x99f @0x2d
0x972…9ba at002e = ╱ea╱ ; ╱ // 0x9a0 @0x2e
0x972…9ba at002f = ╱53╱S╱ // 0x9a1 @0x2f
0x972…9ba at0030 = ╱59╱Y╱ // 0x9a2 @0x30
0x972…9ba at0031 = ╱53╱S╱ // 0x9a3 @0x31
0x972…9ba at0032 = ╱54╱T╱ // 0x9a4 @0x32
0x972…9ba at0033 = ╱5f╱_╱ // 0x9a5 @0x33
0x972…9ba at0034 = ╱44╱D╱ // 0x9a6 @0x34
0x972…9ba at0035 = ╱41╱A╱ // 0x9a7 @0x35
0x972…9ba at0036 = ╱54╱T╱ // 0x9a8 @0x36
0x972…9ba at0037 = ╱ef╱ $ ╱ // 0x9a9 @0x37
0x972…9ba at0038 = ╱ed╱ ( ╱ // 0x9aa @0x38
0x972…9ba at0039 = ╱33╱3╱ // 0x9ab @0x39
0x972…9ba at003a = ╱f20300╱ // 0x9ac @0x3a
0x972…9ba at003d = ╱f1╱ : ╱ // 0x9af @0x3d
0x972…9ba at003e = ╱32╱2╱ // 0x9b0 @0x3e
0x972…9ba at003f = ╱f20200╱ // 0x9b1 @0x3f
0x972…9ba at0042 = ╱ee╱ ) ╱ // 0x9b4 @0x42
0x972…9ba at0043 = ╱ea╱ ; ╱ // 0x9b5 @0x43
0x972…9ba at0044 = ╱22╱"╱ // 0x9b6 @0x44
0x972…9ba at0045 = ╱2e╱.╱ // 0x9b7 @0x45
0x972…9ba at0046 = ╱22╱"╱ // 0x9b8 @0x46
0x972…9ba at0047 = EOL // 0x9b9 @0x47
0x972…9ba }
0x9ba…9d4 9fc2 00940 PRINT SYST_DAT $ ( 5 : 2 )
0x9ba…9d4 LineComal80 {
0x9ba…9d4 ptr = 0x9fc2 // 0x9ba @0x0
0x9ba…9d4 lno = 0x03ac // 0x9bc @0x2
0x9ba…9d4 at0004 = ╱92╱ PRINT ╱ // 0x9be @0x4
0x9ba…9d4 at0005 = ╱53╱S╱ // 0x9bf @0x5
0x9ba…9d4 at0006 = ╱59╱Y╱ // 0x9c0 @0x6
0x9ba…9d4 at0007 = ╱53╱S╱ // 0x9c1 @0x7
0x9ba…9d4 at0008 = ╱54╱T╱ // 0x9c2 @0x8
0x9ba…9d4 at0009 = ╱5f╱_╱ // 0x9c3 @0x9
0x9ba…9d4 at000a = ╱44╱D╱ // 0x9c4 @0xa
0x9ba…9d4 at000b = ╱41╱A╱ // 0x9c5 @0xb
0x9ba…9d4 at000c = ╱54╱T╱ // 0x9c6 @0xc
0x9ba…9d4 at000d = ╱ef╱ $ ╱ // 0x9c7 @0xd
0x9ba…9d4 at000e = ╱ed╱ ( ╱ // 0x9c8 @0xe
0x9ba…9d4 at000f = ╱35╱5╱ // 0x9c9 @0xf
0x9ba…9d4 at0010 = ╱f20500╱ // 0x9ca @0x10
0x9ba…9d4 at0013 = ╱f1╱ : ╱ // 0x9cd @0x13
0x9ba…9d4 at0014 = ╱32╱2╱ // 0x9ce @0x14
0x9ba…9d4 at0015 = ╱f20200╱ // 0x9cf @0x15
0x9ba…9d4 at0018 = ╱ee╱ ) ╱ // 0x9d2 @0x18
0x9ba…9d4 at0019 = EOL // 0x9d3 @0x19
0x9ba…9d4 }
0x9d4…9f0 9fde 00950 CURSOR 36 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
0x9d4…9f0 LineComal80 {
0x9d4…9f0 ptr = 0x9fde // 0x9d4 @0x0
0x9d4…9f0 lno = 0x03b6 // 0x9d6 @0x2
0x9d4…9f0 at0004 = ╱a1╱ CURSOR ╱ // 0x9d8 @0x4
0x9d4…9f0 at0005 = ╱33╱3╱ // 0x9d9 @0x5
0x9d4…9f0 at0006 = ╱36╱6╱ // 0x9da @0x6
0x9d4…9f0 at0007 = ╱f22400╱ // 0x9db @0x7
0x9d4…9f0 at000a = ╱e6╱ - ╱ // 0x9de @0xa
0x9d4…9f0 at000b = ╱c6╱ INT ╱ // 0x9df @0xb
0x9d4…9f0 at000c = ╱ed╱ ( ╱ // 0x9e0 @0xc
0x9d4…9f0 at000d = ╱cb╱ // 0x9e1 @0xd
0x9d4…9f0 at000e = ╱ed╱ ( ╱ // 0x9e2 @0xe
0x9d4…9f0 at000f = ╱53╱S╱ // 0x9e3 @0xf
0x9d4…9f0 at0010 = ╱54╱T╱ // 0x9e4 @0x10
0x9d4…9f0 at0011 = ╱ef╱ $ ╱ // 0x9e5 @0x11
0x9d4…9f0 at0012 = ╱ee╱ ) ╱ // 0x9e6 @0x12
0x9d4…9f0 at0013 = ╱e8╱ / ╱ // 0x9e7 @0x13
0x9d4…9f0 at0014 = ╱32╱2╱ // 0x9e8 @0x14
0x9d4…9f0 at0015 = ╱f20200╱ // 0x9e9 @0x15
0x9d4…9f0 at0018 = ╱ee╱ ) ╱ // 0x9ec @0x18
0x9d4…9f0 at0019 = ╱ec╱ , ╱ // 0x9ed @0x19
0x9d4…9f0 at001a = ╱4c╱L╱ // 0x9ee @0x1a
0x9d4…9f0 at001b = EOL // 0x9ef @0x1b
0x9d4…9f0 }
0x9f0…a07 9ff5 00960 PRINT "***…" ; ST $ ; "…***"
0x9f0…a07 LineComal80 {
0x9f0…a07 ptr = 0x9ff5 // 0x9f0 @0x0
0x9f0…a07 lno = 0x03c0 // 0x9f2 @0x2
0x9f0…a07 at0004 = ╱92╱ PRINT ╱ // 0x9f4 @0x4
0x9f0…a07 at0005 = ╱22╱"╱ // 0x9f5 @0x5
0x9f0…a07 at0006 = ╱2a╱*╱ // 0x9f6 @0x6
0x9f0…a07 at0007 = ╱2a╱*╱ // 0x9f7 @0x7
0x9f0…a07 at0008 = ╱2a╱*╱ // 0x9f8 @0x8
0x9f0…a07 at0009 = ╱20╱…╱ // 0x9f9 @0x9
0x9f0…a07 at000a = ╱22╱"╱ // 0x9fa @0xa
0x9f0…a07 at000b = ╱ea╱ ; ╱ // 0x9fb @0xb
0x9f0…a07 at000c = ╱53╱S╱ // 0x9fc @0xc
0x9f0…a07 at000d = ╱54╱T╱ // 0x9fd @0xd
0x9f0…a07 at000e = ╱ef╱ $ ╱ // 0x9fe @0xe
0x9f0…a07 at000f = ╱ea╱ ; ╱ // 0x9ff @0xf
0x9f0…a07 at0010 = ╱22╱"╱ // 0xa00 @0x10
0x9f0…a07 at0011 = ╱20╱…╱ // 0xa01 @0x11
0x9f0…a07 at0012 = ╱2a╱*╱ // 0xa02 @0x12
0x9f0…a07 at0013 = ╱2a╱*╱ // 0xa03 @0x13
0x9f0…a07 at0014 = ╱2a╱*╱ // 0xa04 @0x14
0x9f0…a07 at0015 = ╱22╱"╱ // 0xa05 @0x15
0x9f0…a07 at0016 = EOL // 0xa06 @0x16
0x9f0…a07 }
0xa07…a17 a005 00970 ENDPROC OVERSKRIFT
0xa07…a17 LineComal80 {
0xa07…a17 ptr = 0xa005 // 0xa07 @0x0
0xa07…a17 lno = 0x03ca // 0xa09 @0x2
0xa07…a17 at0004 = ╱9f╱ ENDPROC ╱ // 0xa0b @0x4
0xa07…a17 at0005 = ╱4f╱O╱ // 0xa0c @0x5
0xa07…a17 at0006 = ╱56╱V╱ // 0xa0d @0x6
0xa07…a17 at0007 = ╱45╱E╱ // 0xa0e @0x7
0xa07…a17 at0008 = ╱52╱R╱ // 0xa0f @0x8
0xa07…a17 at0009 = ╱53╱S╱ // 0xa10 @0x9
0xa07…a17 at000a = ╱4b╱K╱ // 0xa11 @0xa
0xa07…a17 at000b = ╱52╱R╱ // 0xa12 @0xb
0xa07…a17 at000c = ╱49╱I╱ // 0xa13 @0xc
0xa07…a17 at000d = ╱46╱F╱ // 0xa14 @0xd
0xa07…a17 at000e = ╱54╱T╱ // 0xa15 @0xe
0xa07…a17 at000f = EOL // 0xa16 @0xf
0xa07…a17 }
0xa17…a1c a00a 00980
0xa17…a1c LineComal80 {
0xa17…a1c ptr = 0xa00a // 0xa17 @0x0
0xa17…a1c lno = 0x03d4 // 0xa19 @0x2
0xa17…a1c at0004 = EOL // 0xa1b @0x4
0xa17…a1c }
0xa1c…a2f a01d 00990 PROC SL_FEJLLINIE
0xa1c…a2f LineComal80 {
0xa1c…a2f ptr = 0xa01d // 0xa1c @0x0
0xa1c…a2f lno = 0x03de // 0xa1e @0x2
0xa1c…a2f at0004 = ╱9e00╱ PROC ╱ // 0xa20 @0x4
0xa1c…a2f at0006 = ╱53╱S╱ // 0xa22 @0x6
0xa1c…a2f at0007 = ╱4c╱L╱ // 0xa23 @0x7
0xa1c…a2f at0008 = ╱5f╱_╱ // 0xa24 @0x8
0xa1c…a2f at0009 = ╱46╱F╱ // 0xa25 @0x9
0xa1c…a2f at000a = ╱45╱E╱ // 0xa26 @0xa
0xa1c…a2f at000b = ╱4a╱J╱ // 0xa27 @0xb
0xa1c…a2f at000c = ╱4c╱L╱ // 0xa28 @0xc
0xa1c…a2f at000d = ╱4c╱L╱ // 0xa29 @0xd
0xa1c…a2f at000e = ╱49╱I╱ // 0xa2a @0xe
0xa1c…a2f at000f = ╱4e╱N╱ // 0xa2b @0xf
0xa1c…a2f at0010 = ╱49╱I╱ // 0xa2c @0x10
0xa1c…a2f at0011 = ╱45╱E╱ // 0xa2d @0x11
0xa1c…a2f at0012 = EOL // 0xa2e @0x12
0xa1c…a2f }
0xa2f…a3c a02a 01000 LET OK := TRUE
0xa2f…a3c LineComal80 {
0xa2f…a3c ptr = 0xa02a // 0xa2f @0x0
0xa2f…a3c lno = 0x03e8 // 0xa31 @0x2
0xa2f…a3c at0004 = ╱86╱ LET ╱ // 0xa33 @0x4
0xa2f…a3c at0005 = ╱4f╱O╱ // 0xa34 @0x5
0xa2f…a3c at0006 = ╱4b╱K╱ // 0xa35 @0x6
0xa2f…a3c at0007 = ╱f0╱ := ╱ // 0xa36 @0x7
0xa2f…a3c at0008 = ╱54╱T╱ // 0xa37 @0x8
0xa2f…a3c at0009 = ╱52╱R╱ // 0xa38 @0x9
0xa2f…a3c at000a = ╱55╱U╱ // 0xa39 @0xa
0xa2f…a3c at000b = ╱45╱E╱ // 0xa3a @0xb
0xa2f…a3c at000c = EOL // 0xa3b @0xc
0xa2f…a3c }
0xa3c…a50 a03e 01010 PRINT "<C0102>" ; SPC $
0xa3c…a50 LineComal80 {
0xa3c…a50 ptr = 0xa03e // 0xa3c @0x0
0xa3c…a50 lno = 0x03f2 // 0xa3e @0x2
0xa3c…a50 at0004 = ╱92╱ PRINT ╱ // 0xa40 @0x4
0xa3c…a50 at0005 = ╱22╱"╱ // 0xa41 @0x5
0xa3c…a50 at0006 = ╱3c╱<╱ // 0xa42 @0x6
0xa3c…a50 at0007 = ╱43╱C╱ // 0xa43 @0x7
0xa3c…a50 at0008 = ╱30╱0╱ // 0xa44 @0x8
0xa3c…a50 at0009 = ╱31╱1╱ // 0xa45 @0x9
0xa3c…a50 at000a = ╱30╱0╱ // 0xa46 @0xa
0xa3c…a50 at000b = ╱32╱2╱ // 0xa47 @0xb
0xa3c…a50 at000c = ╱3e╱>╱ // 0xa48 @0xc
0xa3c…a50 at000d = ╱22╱"╱ // 0xa49 @0xd
0xa3c…a50 at000e = ╱ea╱ ; ╱ // 0xa4a @0xe
0xa3c…a50 at000f = ╱53╱S╱ // 0xa4b @0xf
0xa3c…a50 at0010 = ╱50╱P╱ // 0xa4c @0x10
0xa3c…a50 at0011 = ╱43╱C╱ // 0xa4d @0x11
0xa3c…a50 at0012 = ╱ef╱ $ ╱ // 0xa4e @0x12
0xa3c…a50 at0013 = EOL // 0xa4f @0x13
0xa3c…a50 }
0xa50…a62 a050 01020 ENDPROC SL_FEJLLINIE
0xa50…a62 LineComal80 {
0xa50…a62 ptr = 0xa050 // 0xa50 @0x0
0xa50…a62 lno = 0x03fc // 0xa52 @0x2
0xa50…a62 at0004 = ╱9f╱ ENDPROC ╱ // 0xa54 @0x4
0xa50…a62 at0005 = ╱53╱S╱ // 0xa55 @0x5
0xa50…a62 at0006 = ╱4c╱L╱ // 0xa56 @0x6
0xa50…a62 at0007 = ╱5f╱_╱ // 0xa57 @0x7
0xa50…a62 at0008 = ╱46╱F╱ // 0xa58 @0x8
0xa50…a62 at0009 = ╱45╱E╱ // 0xa59 @0x9
0xa50…a62 at000a = ╱4a╱J╱ // 0xa5a @0xa
0xa50…a62 at000b = ╱4c╱L╱ // 0xa5b @0xb
0xa50…a62 at000c = ╱4c╱L╱ // 0xa5c @0xc
0xa50…a62 at000d = ╱49╱I╱ // 0xa5d @0xd
0xa50…a62 at000e = ╱4e╱N╱ // 0xa5e @0xe
0xa50…a62 at000f = ╱49╱I╱ // 0xa5f @0xf
0xa50…a62 at0010 = ╱45╱E╱ // 0xa60 @0x10
0xa50…a62 at0011 = EOL // 0xa61 @0x11
0xa50…a62 }
0xa62…a67 a055 01030
0xa62…a67 LineComal80 {
0xa62…a67 ptr = 0xa055 // 0xa62 @0x0
0xa62…a67 lno = 0x0406 // 0xa64 @0x2
0xa62…a67 at0004 = EOL // 0xa66 @0x4
0xa62…a67 }
0xa67…a77 a065 01040 PROC FEJL ( ST $ )
0xa67…a77 LineComal80 {
0xa67…a77 ptr = 0xa065 // 0xa67 @0x0
0xa67…a77 lno = 0x0410 // 0xa69 @0x2
0xa67…a77 at0004 = ╱9e00╱ PROC ╱ // 0xa6b @0x4
0xa67…a77 at0006 = ╱46╱F╱ // 0xa6d @0x6
0xa67…a77 at0007 = ╱45╱E╱ // 0xa6e @0x7
0xa67…a77 at0008 = ╱4a╱J╱ // 0xa6f @0x8
0xa67…a77 at0009 = ╱4c╱L╱ // 0xa70 @0x9
0xa67…a77 at000a = ╱ed╱ ( ╱ // 0xa71 @0xa
0xa67…a77 at000b = ╱53╱S╱ // 0xa72 @0xb
0xa67…a77 at000c = ╱54╱T╱ // 0xa73 @0xc
0xa67…a77 at000d = ╱ef╱ $ ╱ // 0xa74 @0xd
0xa67…a77 at000e = ╱ee╱ ) ╱ // 0xa75 @0xe
0xa67…a77 at000f = EOL // 0xa76 @0xf
0xa67…a77 }
0xa77…a85 a073 01050 LET OK := FALSE
0xa77…a85 LineComal80 {
0xa77…a85 ptr = 0xa073 // 0xa77 @0x0
0xa77…a85 lno = 0x041a // 0xa79 @0x2
0xa77…a85 at0004 = ╱86╱ LET ╱ // 0xa7b @0x4
0xa77…a85 at0005 = ╱4f╱O╱ // 0xa7c @0x5
0xa77…a85 at0006 = ╱4b╱K╱ // 0xa7d @0x6
0xa77…a85 at0007 = ╱f0╱ := ╱ // 0xa7e @0x7
0xa77…a85 at0008 = ╱46╱F╱ // 0xa7f @0x8
0xa77…a85 at0009 = ╱41╱A╱ // 0xa80 @0x9
0xa77…a85 at000a = ╱4c╱L╱ // 0xa81 @0xa
0xa77…a85 at000b = ╱53╱S╱ // 0xa82 @0xb
0xa77…a85 at000c = ╱45╱E╱ // 0xa83 @0xc
0xa77…a85 at000d = EOL // 0xa84 @0xd
0xa77…a85 }
0xa85…aa1 a08f 01060 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
0xa85…aa1 LineComal80 {
0xa85…aa1 ptr = 0xa08f // 0xa85 @0x0
0xa85…aa1 lno = 0x0424 // 0xa87 @0x2
0xa85…aa1 at0004 = ╱a1╱ CURSOR ╱ // 0xa89 @0x4
0xa85…aa1 at0005 = ╱33╱3╱ // 0xa8a @0x5
0xa85…aa1 at0006 = ╱36╱6╱ // 0xa8b @0x6
0xa85…aa1 at0007 = ╱f22400╱ // 0xa8c @0x7
0xa85…aa1 at000a = ╱e6╱ - ╱ // 0xa8f @0xa
0xa85…aa1 at000b = ╱cb╱ // 0xa90 @0xb
0xa85…aa1 at000c = ╱ed╱ ( ╱ // 0xa91 @0xc
0xa85…aa1 at000d = ╱53╱S╱ // 0xa92 @0xd
0xa85…aa1 at000e = ╱54╱T╱ // 0xa93 @0xe
0xa85…aa1 at000f = ╱ef╱ $ ╱ // 0xa94 @0xf
0xa85…aa1 at0010 = ╱ee╱ ) ╱ // 0xa95 @0x10
0xa85…aa1 at0011 = ╱e8╱ / ╱ // 0xa96 @0x11
0xa85…aa1 at0012 = ╱32╱2╱ // 0xa97 @0x12
0xa85…aa1 at0013 = ╱f20200╱ // 0xa98 @0x13
0xa85…aa1 at0016 = ╱ec╱ , ╱ // 0xa9b @0x16
0xa85…aa1 at0017 = ╱32╱2╱ // 0xa9c @0x17
0xa85…aa1 at0018 = ╱f20200╱ // 0xa9d @0x18
0xa85…aa1 at001b = EOL // 0xaa0 @0x1b
0xa85…aa1 }
0xaa1…ac0 a0ae 01070 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
0xaa1…ac0 LineComal80 {
0xaa1…ac0 ptr = 0xa0ae // 0xaa1 @0x0
0xaa1…ac0 lno = 0x042e // 0xaa3 @0x2
0xaa1…ac0 at0004 = ╱92╱ PRINT ╱ // 0xaa5 @0x4
0xaa1…ac0 at0005 = ╱22╱"╱ // 0xaa6 @0x5
0xaa1…ac0 at0006 = ╱2a╱*╱ // 0xaa7 @0x6
0xaa1…ac0 at0007 = ╱2a╱*╱ // 0xaa8 @0x7
0xaa1…ac0 at0008 = ╱2a╱*╱ // 0xaa9 @0x8
0xaa1…ac0 at0009 = ╱20╱…╱ // 0xaaa @0x9
0xaa1…ac0 at000a = ╱22╱"╱ // 0xaab @0xa
0xaa1…ac0 at000b = ╱eb╱ + ╱ // 0xaac @0xb
0xaa1…ac0 at000c = ╱53╱S╱ // 0xaad @0xc
0xaa1…ac0 at000d = ╱54╱T╱ // 0xaae @0xd
0xaa1…ac0 at000e = ╱ef╱ $ ╱ // 0xaaf @0xe
0xaa1…ac0 at000f = ╱eb╱ + ╱ // 0xab0 @0xf
0xaa1…ac0 at0010 = ╱22╱"╱ // 0xab1 @0x10
0xaa1…ac0 at0011 = ╱20╱…╱ // 0xab2 @0x11
0xaa1…ac0 at0012 = ╱2a╱*╱ // 0xab3 @0x12
0xaa1…ac0 at0013 = ╱2a╱*╱ // 0xab4 @0x13
0xaa1…ac0 at0014 = ╱2a╱*╱ // 0xab5 @0x14
0xaa1…ac0 at0015 = ╱22╱"╱ // 0xab6 @0x15
0xaa1…ac0 at0016 = ╱ea╱ ; ╱ // 0xab7 @0x16
0xaa1…ac0 at0017 = ╱d0╱ CHR$ ╱ // 0xab8 @0x17
0xaa1…ac0 at0018 = ╱ed╱ ( ╱ // 0xab9 @0x18
0xaa1…ac0 at0019 = ╱37╱7╱ // 0xaba @0x19
0xaa1…ac0 at001a = ╱f20700╱ // 0xabb @0x1a
0xaa1…ac0 at001d = ╱ee╱ ) ╱ // 0xabe @0x1d
0xaa1…ac0 at001e = EOL // 0xabf @0x1e
0xaa1…ac0 }
0xac0…aca a0b8 01080 ENDPROC FEJL
0xac0…aca LineComal80 {
0xac0…aca ptr = 0xa0b8 // 0xac0 @0x0
0xac0…aca lno = 0x0438 // 0xac2 @0x2
0xac0…aca at0004 = ╱9f╱ ENDPROC ╱ // 0xac4 @0x4
0xac0…aca at0005 = ╱46╱F╱ // 0xac5 @0x5
0xac0…aca at0006 = ╱45╱E╱ // 0xac6 @0x6
0xac0…aca at0007 = ╱4a╱J╱ // 0xac7 @0x7
0xac0…aca at0008 = ╱4c╱L╱ // 0xac8 @0x8
0xac0…aca at0009 = EOL // 0xac9 @0x9
0xac0…aca }
0xaca…acf a0bd 01090
0xaca…acf LineComal80 {
0xaca…acf ptr = 0xa0bd // 0xaca @0x0
0xaca…acf lno = 0x0442 // 0xacc @0x2
0xaca…acf at0004 = EOL // 0xace @0x4
0xaca…acf }
0xacf…ade a0cc 01100 PROC FKT_MENU
0xacf…ade LineComal80 {
0xacf…ade ptr = 0xa0cc // 0xacf @0x0
0xacf…ade lno = 0x044c // 0xad1 @0x2
0xacf…ade at0004 = ╱9e00╱ PROC ╱ // 0xad3 @0x4
0xacf…ade at0006 = ╱46╱F╱ // 0xad5 @0x6
0xacf…ade at0007 = ╱4b╱K╱ // 0xad6 @0x7
0xacf…ade at0008 = ╱54╱T╱ // 0xad7 @0x8
0xacf…ade at0009 = ╱5f╱_╱ // 0xad8 @0x9
0xacf…ade at000a = ╱4d╱M╱ // 0xad9 @0xa
0xacf…ade at000b = ╱45╱E╱ // 0xada @0xb
0xacf…ade at000c = ╱4e╱N╱ // 0xadb @0xc
0xacf…ade at000d = ╱55╱U╱ // 0xadc @0xd
0xacf…ade at000e = EOL // 0xadd @0xe
0xacf…ade }
0xade…b13 a101 01110 EXEC OVERSKRIFT ( "[ndring…af…terminalkode…m.m." , 7 )
0xade…b13 LineComal80 {
0xade…b13 ptr = 0xa101 // 0xade @0x0
0xade…b13 lno = 0x0456 // 0xae0 @0x2
0xade…b13 at0004 = ╱9d╱ EXEC ╱ // 0xae2 @0x4
0xade…b13 at0005 = ╱4f╱O╱ // 0xae3 @0x5
0xade…b13 at0006 = ╱56╱V╱ // 0xae4 @0x6
0xade…b13 at0007 = ╱45╱E╱ // 0xae5 @0x7
0xade…b13 at0008 = ╱52╱R╱ // 0xae6 @0x8
0xade…b13 at0009 = ╱53╱S╱ // 0xae7 @0x9
0xade…b13 at000a = ╱4b╱K╱ // 0xae8 @0xa
0xade…b13 at000b = ╱52╱R╱ // 0xae9 @0xb
0xade…b13 at000c = ╱49╱I╱ // 0xaea @0xc
0xade…b13 at000d = ╱46╱F╱ // 0xaeb @0xd
0xade…b13 at000e = ╱54╱T╱ // 0xaec @0xe
0xade…b13 at000f = ╱ed╱ ( ╱ // 0xaed @0xf
0xade…b13 at0010 = ╱22╱"╱ // 0xaee @0x10
0xade…b13 at0011 = ╱5b╱[╱ // 0xaef @0x11
0xade…b13 at0012 = ╱6e╱n╱ // 0xaf0 @0x12
0xade…b13 at0013 = ╱64╱d╱ // 0xaf1 @0x13
0xade…b13 at0014 = ╱72╱r╱ // 0xaf2 @0x14
0xade…b13 at0015 = ╱69╱i╱ // 0xaf3 @0x15
0xade…b13 at0016 = ╱6e╱n╱ // 0xaf4 @0x16
0xade…b13 at0017 = ╱67╱g╱ // 0xaf5 @0x17
0xade…b13 at0018 = ╱20╱…╱ // 0xaf6 @0x18
0xade…b13 at0019 = ╱61╱a╱ // 0xaf7 @0x19
0xade…b13 at001a = ╱66╱f╱ // 0xaf8 @0x1a
0xade…b13 at001b = ╱20╱…╱ // 0xaf9 @0x1b
0xade…b13 at001c = ╱74╱t╱ // 0xafa @0x1c
0xade…b13 at001d = ╱65╱e╱ // 0xafb @0x1d
0xade…b13 at001e = ╱72╱r╱ // 0xafc @0x1e
0xade…b13 at001f = ╱6d╱m╱ // 0xafd @0x1f
0xade…b13 at0020 = ╱69╱i╱ // 0xafe @0x20
0xade…b13 at0021 = ╱6e╱n╱ // 0xaff @0x21
0xade…b13 at0022 = ╱61╱a╱ // 0xb00 @0x22
0xade…b13 at0023 = ╱6c╱l╱ // 0xb01 @0x23
0xade…b13 at0024 = ╱6b╱k╱ // 0xb02 @0x24
0xade…b13 at0025 = ╱6f╱o╱ // 0xb03 @0x25
0xade…b13 at0026 = ╱64╱d╱ // 0xb04 @0x26
0xade…b13 at0027 = ╱65╱e╱ // 0xb05 @0x27
0xade…b13 at0028 = ╱20╱…╱ // 0xb06 @0x28
0xade…b13 at0029 = ╱6d╱m╱ // 0xb07 @0x29
0xade…b13 at002a = ╱2e╱.╱ // 0xb08 @0x2a
0xade…b13 at002b = ╱6d╱m╱ // 0xb09 @0x2b
0xade…b13 at002c = ╱2e╱.╱ // 0xb0a @0x2c
0xade…b13 at002d = ╱22╱"╱ // 0xb0b @0x2d
0xade…b13 at002e = ╱ec╱ , ╱ // 0xb0c @0x2e
0xade…b13 at002f = ╱37╱7╱ // 0xb0d @0x2f
0xade…b13 at0030 = ╱f20700╱ // 0xb0e @0x30
0xade…b13 at0033 = ╱ee╱ ) ╱ // 0xb11 @0x33
0xade…b13 at0034 = EOL // 0xb12 @0x34
0xade…b13 }
0xb13…b38 a126 01120 EDIT "<C3011>Terminalkode:…" : T_KODE $
0xb13…b38 LineComal80 {
0xb13…b38 ptr = 0xa126 // 0xb13 @0x0
0xb13…b38 lno = 0x0460 // 0xb15 @0x2
0xb13…b38 at0004 = ╱b1╱ EDIT ╱ // 0xb17 @0x4
0xb13…b38 at0005 = ╱22╱"╱ // 0xb18 @0x5
0xb13…b38 at0006 = ╱3c╱<╱ // 0xb19 @0x6
0xb13…b38 at0007 = ╱43╱C╱ // 0xb1a @0x7
0xb13…b38 at0008 = ╱33╱3╱ // 0xb1b @0x8
0xb13…b38 at0009 = ╱30╱0╱ // 0xb1c @0x9
0xb13…b38 at000a = ╱31╱1╱ // 0xb1d @0xa
0xb13…b38 at000b = ╱31╱1╱ // 0xb1e @0xb
0xb13…b38 at000c = ╱3e╱>╱ // 0xb1f @0xc
0xb13…b38 at000d = ╱54╱T╱ // 0xb20 @0xd
0xb13…b38 at000e = ╱65╱e╱ // 0xb21 @0xe
0xb13…b38 at000f = ╱72╱r╱ // 0xb22 @0xf
0xb13…b38 at0010 = ╱6d╱m╱ // 0xb23 @0x10
0xb13…b38 at0011 = ╱69╱i╱ // 0xb24 @0x11
0xb13…b38 at0012 = ╱6e╱n╱ // 0xb25 @0x12
0xb13…b38 at0013 = ╱61╱a╱ // 0xb26 @0x13
0xb13…b38 at0014 = ╱6c╱l╱ // 0xb27 @0x14
0xb13…b38 at0015 = ╱6b╱k╱ // 0xb28 @0x15
0xb13…b38 at0016 = ╱6f╱o╱ // 0xb29 @0x16
0xb13…b38 at0017 = ╱64╱d╱ // 0xb2a @0x17
0xb13…b38 at0018 = ╱65╱e╱ // 0xb2b @0x18
0xb13…b38 at0019 = ╱3a╱:╱ // 0xb2c @0x19
0xb13…b38 at001a = ╱20╱…╱ // 0xb2d @0x1a
0xb13…b38 at001b = ╱22╱"╱ // 0xb2e @0x1b
0xb13…b38 at001c = ╱f1╱ : ╱ // 0xb2f @0x1c
0xb13…b38 at001d = ╱54╱T╱ // 0xb30 @0x1d
0xb13…b38 at001e = ╱5f╱_╱ // 0xb31 @0x1e
0xb13…b38 at001f = ╱4b╱K╱ // 0xb32 @0x1f
0xb13…b38 at0020 = ╱4f╱O╱ // 0xb33 @0x20
0xb13…b38 at0021 = ╱44╱D╱ // 0xb34 @0x21
0xb13…b38 at0022 = ╱45╱E╱ // 0xb35 @0x22
0xb13…b38 at0023 = ╱ef╱ $ ╱ // 0xb36 @0x23
0xb13…b38 at0024 = EOL // 0xb37 @0x24
0xb13…b38 }
0xb38…b3f a12d 01130 REPEAT
0xb38…b3f LineComal80 {
0xb38…b3f ptr = 0xa12d // 0xb38 @0x0
0xb38…b3f lno = 0x046a // 0xb3a @0x2
0xb38…b3f at0004 = ╱9700╱ REPEAT ╱ // 0xb3c @0x4
0xb38…b3f at0006 = EOL // 0xb3e @0x6
0xb38…b3f }
0xb3f…b71 a15f 01140 EDIT "<C2214>Etikette…for…datafillager:…" : DATAFL $
0xb3f…b71 LineComal80 {
0xb3f…b71 ptr = 0xa15f // 0xb3f @0x0
0xb3f…b71 lno = 0x0474 // 0xb41 @0x2
0xb3f…b71 at0004 = ╱b1╱ EDIT ╱ // 0xb43 @0x4
0xb3f…b71 at0005 = ╱22╱"╱ // 0xb44 @0x5
0xb3f…b71 at0006 = ╱3c╱<╱ // 0xb45 @0x6
0xb3f…b71 at0007 = ╱43╱C╱ // 0xb46 @0x7
0xb3f…b71 at0008 = ╱32╱2╱ // 0xb47 @0x8
0xb3f…b71 at0009 = ╱32╱2╱ // 0xb48 @0x9
0xb3f…b71 at000a = ╱31╱1╱ // 0xb49 @0xa
0xb3f…b71 at000b = ╱34╱4╱ // 0xb4a @0xb
0xb3f…b71 at000c = ╱3e╱>╱ // 0xb4b @0xc
0xb3f…b71 at000d = ╱45╱E╱ // 0xb4c @0xd
0xb3f…b71 at000e = ╱74╱t╱ // 0xb4d @0xe
0xb3f…b71 at000f = ╱69╱i╱ // 0xb4e @0xf
0xb3f…b71 at0010 = ╱6b╱k╱ // 0xb4f @0x10
0xb3f…b71 at0011 = ╱65╱e╱ // 0xb50 @0x11
0xb3f…b71 at0012 = ╱74╱t╱ // 0xb51 @0x12
0xb3f…b71 at0013 = ╱74╱t╱ // 0xb52 @0x13
0xb3f…b71 at0014 = ╱65╱e╱ // 0xb53 @0x14
0xb3f…b71 at0015 = ╱20╱…╱ // 0xb54 @0x15
0xb3f…b71 at0016 = ╱66╱f╱ // 0xb55 @0x16
0xb3f…b71 at0017 = ╱6f╱o╱ // 0xb56 @0x17
0xb3f…b71 at0018 = ╱72╱r╱ // 0xb57 @0x18
0xb3f…b71 at0019 = ╱20╱…╱ // 0xb58 @0x19
0xb3f…b71 at001a = ╱64╱d╱ // 0xb59 @0x1a
0xb3f…b71 at001b = ╱61╱a╱ // 0xb5a @0x1b
0xb3f…b71 at001c = ╱74╱t╱ // 0xb5b @0x1c
0xb3f…b71 at001d = ╱61╱a╱ // 0xb5c @0x1d
0xb3f…b71 at001e = ╱66╱f╱ // 0xb5d @0x1e
0xb3f…b71 at001f = ╱69╱i╱ // 0xb5e @0x1f
0xb3f…b71 at0020 = ╱6c╱l╱ // 0xb5f @0x20
0xb3f…b71 at0021 = ╱6c╱l╱ // 0xb60 @0x21
0xb3f…b71 at0022 = ╱61╱a╱ // 0xb61 @0x22
0xb3f…b71 at0023 = ╱67╱g╱ // 0xb62 @0x23
0xb3f…b71 at0024 = ╱65╱e╱ // 0xb63 @0x24
0xb3f…b71 at0025 = ╱72╱r╱ // 0xb64 @0x25
0xb3f…b71 at0026 = ╱3a╱:╱ // 0xb65 @0x26
0xb3f…b71 at0027 = ╱20╱…╱ // 0xb66 @0x27
0xb3f…b71 at0028 = ╱22╱"╱ // 0xb67 @0x28
0xb3f…b71 at0029 = ╱f1╱ : ╱ // 0xb68 @0x29
0xb3f…b71 at002a = ╱44╱D╱ // 0xb69 @0x2a
0xb3f…b71 at002b = ╱41╱A╱ // 0xb6a @0x2b
0xb3f…b71 at002c = ╱54╱T╱ // 0xb6b @0x2c
0xb3f…b71 at002d = ╱41╱A╱ // 0xb6c @0x2d
0xb3f…b71 at002e = ╱46╱F╱ // 0xb6d @0x2e
0xb3f…b71 at002f = ╱4c╱L╱ // 0xb6e @0x2f
0xb3f…b71 at0030 = ╱ef╱ $ ╱ // 0xb6f @0x30
0xb3f…b71 at0031 = EOL // 0xb70 @0x31
0xb3f…b71 }
0xb71…b86 a174 01150 UNTIL ╱cb╱ ( DATAFL $ ) > 0
0xb71…b86 LineComal80 {
0xb71…b86 ptr = 0xa174 // 0xb71 @0x0
0xb71…b86 lno = 0x047e // 0xb73 @0x2
0xb71…b86 at0004 = ╱98╱ UNTIL ╱ // 0xb75 @0x4
0xb71…b86 at0005 = ╱cb╱ // 0xb76 @0x5
0xb71…b86 at0006 = ╱ed╱ ( ╱ // 0xb77 @0x6
0xb71…b86 at0007 = ╱44╱D╱ // 0xb78 @0x7
0xb71…b86 at0008 = ╱41╱A╱ // 0xb79 @0x8
0xb71…b86 at0009 = ╱54╱T╱ // 0xb7a @0x9
0xb71…b86 at000a = ╱41╱A╱ // 0xb7b @0xa
0xb71…b86 at000b = ╱46╱F╱ // 0xb7c @0xb
0xb71…b86 at000c = ╱4c╱L╱ // 0xb7d @0xc
0xb71…b86 at000d = ╱ef╱ $ ╱ // 0xb7e @0xd
0xb71…b86 at000e = ╱ee╱ ) ╱ // 0xb7f @0xe
0xb71…b86 at000f = ╱e1╱ > ╱ // 0xb80 @0xf
0xb71…b86 at0010 = ╱30╱0╱ // 0xb81 @0x10
0xb71…b86 at0011 = ╱f20000╱ // 0xb82 @0x11
0xb71…b86 at0014 = EOL // 0xb85 @0x14
0xb71…b86 }
0xb86…bb6 a1a4 01160 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0xb86…bb6 LineComal80 {
0xb86…bb6 ptr = 0xa1a4 // 0xb86 @0x0
0xb86…bb6 lno = 0x0488 // 0xb88 @0x2
0xb86…bb6 at0004 = ╱86╱ LET ╱ // 0xb8a @0x4
0xb86…bb6 at0005 = ╱50╱P╱ // 0xb8b @0x5
0xb86…bb6 at0006 = ╱41╱A╱ // 0xb8c @0x6
0xb86…bb6 at0007 = ╱52╱R╱ // 0xb8d @0x7
0xb86…bb6 at0008 = ╱41╱A╱ // 0xb8e @0x8
0xb86…bb6 at0009 = ╱4d╱M╱ // 0xb8f @0x9
0xb86…bb6 at000a = ╱ef╱ $ ╱ // 0xb90 @0xa
0xb86…bb6 at000b = ╱f0╱ := ╱ // 0xb91 @0xb
0xb86…bb6 at000c = ╱44╱D╱ // 0xb92 @0xc
0xb86…bb6 at000d = ╱41╱A╱ // 0xb93 @0xd
0xb86…bb6 at000e = ╱54╱T╱ // 0xb94 @0xe
0xb86…bb6 at000f = ╱41╱A╱ // 0xb95 @0xf
0xb86…bb6 at0010 = ╱46╱F╱ // 0xb96 @0x10
0xb86…bb6 at0011 = ╱4c╱L╱ // 0xb97 @0x11
0xb86…bb6 at0012 = ╱ef╱ $ ╱ // 0xb98 @0x12
0xb86…bb6 at0013 = ╱eb╱ + ╱ // 0xb99 @0x13
0xb86…bb6 at0014 = ╱22╱"╱ // 0xb9a @0x14
0xb86…bb6 at0015 = ╱3a╱:╱ // 0xb9b @0x15
0xb86…bb6 at0016 = ╱22╱"╱ // 0xb9c @0x16
0xb86…bb6 at0017 = ╱eb╱ + ╱ // 0xb9d @0x17
0xb86…bb6 at0018 = ╱53╱S╱ // 0xb9e @0x18
0xb86…bb6 at0019 = ╱5f╱_╱ // 0xb9f @0x19
0xb86…bb6 at001a = ╱4b╱K╱ // 0xba0 @0x1a
0xb86…bb6 at001b = ╱4f╱O╱ // 0xba1 @0x1b
0xb86…bb6 at001c = ╱44╱D╱ // 0xba2 @0x1c
0xb86…bb6 at001d = ╱45╱E╱ // 0xba3 @0x1d
0xb86…bb6 at001e = ╱ef╱ $ ╱ // 0xba4 @0x1e
0xb86…bb6 at001f = ╱eb╱ + ╱ // 0xba5 @0x1f
0xb86…bb6 at0020 = ╱54╱T╱ // 0xba6 @0x20
0xb86…bb6 at0021 = ╱5f╱_╱ // 0xba7 @0x21
0xb86…bb6 at0022 = ╱4b╱K╱ // 0xba8 @0x22
0xb86…bb6 at0023 = ╱4f╱O╱ // 0xba9 @0x23
0xb86…bb6 at0024 = ╱44╱D╱ // 0xbaa @0x24
0xb86…bb6 at0025 = ╱45╱E╱ // 0xbab @0x25
0xb86…bb6 at0026 = ╱ef╱ $ ╱ // 0xbac @0x26
0xb86…bb6 at0027 = ╱eb╱ + ╱ // 0xbad @0x27
0xb86…bb6 at0028 = ╱22╱"╱ // 0xbae @0x28
0xb86…bb6 at0029 = ╱50╱P╱ // 0xbaf @0x29
0xb86…bb6 at002a = ╱41╱A╱ // 0xbb0 @0x2a
0xb86…bb6 at002b = ╱52╱R╱ // 0xbb1 @0x2b
0xb86…bb6 at002c = ╱41╱A╱ // 0xbb2 @0x2c
0xb86…bb6 at002d = ╱4d╱M╱ // 0xbb3 @0x2d
0xb86…bb6 at002e = ╱22╱"╱ // 0xbb4 @0x2e
0xb86…bb6 at002f = EOL // 0xbb5 @0x2f
0xb86…bb6 }
0xbb6…bcf a1bd 01170 EXEC OPENFIL ( PARAM $ , "R" )
0xbb6…bcf LineComal80 {
0xbb6…bcf ptr = 0xa1bd // 0xbb6 @0x0
0xbb6…bcf lno = 0x0492 // 0xbb8 @0x2
0xbb6…bcf at0004 = ╱9d╱ EXEC ╱ // 0xbba @0x4
0xbb6…bcf at0005 = ╱4f╱O╱ // 0xbbb @0x5
0xbb6…bcf at0006 = ╱50╱P╱ // 0xbbc @0x6
0xbb6…bcf at0007 = ╱45╱E╱ // 0xbbd @0x7
0xbb6…bcf at0008 = ╱4e╱N╱ // 0xbbe @0x8
0xbb6…bcf at0009 = ╱46╱F╱ // 0xbbf @0x9
0xbb6…bcf at000a = ╱49╱I╱ // 0xbc0 @0xa
0xbb6…bcf at000b = ╱4c╱L╱ // 0xbc1 @0xb
0xbb6…bcf at000c = ╱ed╱ ( ╱ // 0xbc2 @0xc
0xbb6…bcf at000d = ╱50╱P╱ // 0xbc3 @0xd
0xbb6…bcf at000e = ╱41╱A╱ // 0xbc4 @0xe
0xbb6…bcf at000f = ╱52╱R╱ // 0xbc5 @0xf
0xbb6…bcf at0010 = ╱41╱A╱ // 0xbc6 @0x10
0xbb6…bcf at0011 = ╱4d╱M╱ // 0xbc7 @0x11
0xbb6…bcf at0012 = ╱ef╱ $ ╱ // 0xbc8 @0x12
0xbb6…bcf at0013 = ╱ec╱ , ╱ // 0xbc9 @0x13
0xbb6…bcf at0014 = ╱22╱"╱ // 0xbca @0x14
0xbb6…bcf at0015 = ╱52╱R╱ // 0xbcb @0x15
0xbb6…bcf at0016 = ╱22╱"╱ // 0xbcc @0x16
0xbb6…bcf at0017 = ╱ee╱ ) ╱ // 0xbcd @0x17
0xbb6…bcf at0018 = EOL // 0xbce @0x18
0xbb6…bcf }
0xbcf…bfa a1e8 01180 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0xbcf…bfa LineComal80 {
0xbcf…bfa ptr = 0xa1e8 // 0xbcf @0x0
0xbcf…bfa lno = 0x049c // 0xbd1 @0x2
0xbcf…bfa at0004 = ╱a9╱ GET ╱ // 0xbd3 @0x4
0xbcf…bfa at0005 = ╱50╱P╱ // 0xbd4 @0x5
0xbcf…bfa at0006 = ╱41╱A╱ // 0xbd5 @0x6
0xbcf…bfa at0007 = ╱52╱R╱ // 0xbd6 @0x7
0xbcf…bfa at0008 = ╱41╱A╱ // 0xbd7 @0x8
0xbcf…bfa at0009 = ╱4d╱M╱ // 0xbd8 @0x9
0xbcf…bfa at000a = ╱ef╱ $ ╱ // 0xbd9 @0xa
0xbcf…bfa at000b = ╱ec╱ , ╱ // 0xbda @0xb
0xbcf…bfa at000c = ╱31╱1╱ // 0xbdb @0xc
0xbcf…bfa at000d = ╱f20100╱ // 0xbdc @0xd
0xbcf…bfa at0010 = ╱f1╱ : ╱ // 0xbdf @0x10
0xbcf…bfa at0011 = ╱46╱F╱ // 0xbe0 @0x11
0xbcf…bfa at0012 = ╱49╱I╱ // 0xbe1 @0x12
0xbcf…bfa at0013 = ╱52╱R╱ // 0xbe2 @0x13
0xbcf…bfa at0014 = ╱4d╱M╱ // 0xbe3 @0x14
0xbcf…bfa at0015 = ╱41╱A╱ // 0xbe4 @0x15
0xbcf…bfa at0016 = ╱4e╱N╱ // 0xbe5 @0x16
0xbcf…bfa at0017 = ╱41╱A╱ // 0xbe6 @0x17
0xbcf…bfa at0018 = ╱56╱V╱ // 0xbe7 @0x18
0xbcf…bfa at0019 = ╱4e╱N╱ // 0xbe8 @0x19
0xbcf…bfa at001a = ╱ef╱ $ ╱ // 0xbe9 @0x1a
0xbcf…bfa at001b = ╱ec╱ , ╱ // 0xbea @0x1b
0xbcf…bfa at001c = ╱53╱S╱ // 0xbeb @0x1c
0xbcf…bfa at001d = ╱59╱Y╱ // 0xbec @0x1d
0xbcf…bfa at001e = ╱53╱S╱ // 0xbed @0x1e
0xbcf…bfa at001f = ╱54╱T╱ // 0xbee @0x1f
0xbcf…bfa at0020 = ╱5f╱_╱ // 0xbef @0x20
0xbcf…bfa at0021 = ╱44╱D╱ // 0xbf0 @0x21
0xbcf…bfa at0022 = ╱41╱A╱ // 0xbf1 @0x22
0xbcf…bfa at0023 = ╱54╱T╱ // 0xbf2 @0x23
0xbcf…bfa at0024 = ╱ef╱ $ ╱ // 0xbf3 @0x24
0xbcf…bfa at0025 = ╱ec╱ , ╱ // 0xbf4 @0x25
0xbcf…bfa at0026 = ╱4d╱M╱ // 0xbf5 @0x26
0xbcf…bfa at0027 = ╱4f╱O╱ // 0xbf6 @0x27
0xbcf…bfa at0028 = ╱4d╱M╱ // 0xbf7 @0x28
0xbcf…bfa at0029 = ╱53╱S╱ // 0xbf8 @0x29
0xbcf…bfa at002a = EOL // 0xbf9 @0x2a
0xbcf…bfa }
0xbfa…c06 a1f4 01190 CLOSE PARAM $
0xbfa…c06 LineComal80 {
0xbfa…c06 ptr = 0xa1f4 // 0xbfa @0x0
0xbfa…c06 lno = 0x04a6 // 0xbfc @0x2
0xbfa…c06 at0004 = ╱a8╱ CLOSE ╱ // 0xbfe @0x4
0xbfa…c06 at0005 = ╱50╱P╱ // 0xbff @0x5
0xbfa…c06 at0006 = ╱41╱A╱ // 0xc00 @0x6
0xbfa…c06 at0007 = ╱52╱R╱ // 0xc01 @0x7
0xbfa…c06 at0008 = ╱41╱A╱ // 0xc02 @0x8
0xbfa…c06 at0009 = ╱4d╱M╱ // 0xc03 @0x9
0xbfa…c06 at000a = ╱ef╱ $ ╱ // 0xc04 @0xa
0xbfa…c06 at000b = EOL // 0xc05 @0xb
0xbfa…c06 }
0xc06…c21 a20f 01200 EXEC OPENFIL ( SYSPARA $ , "W" )
0xc06…c21 LineComal80 {
0xc06…c21 ptr = 0xa20f // 0xc06 @0x0
0xc06…c21 lno = 0x04b0 // 0xc08 @0x2
0xc06…c21 at0004 = ╱9d╱ EXEC ╱ // 0xc0a @0x4
0xc06…c21 at0005 = ╱4f╱O╱ // 0xc0b @0x5
0xc06…c21 at0006 = ╱50╱P╱ // 0xc0c @0x6
0xc06…c21 at0007 = ╱45╱E╱ // 0xc0d @0x7
0xc06…c21 at0008 = ╱4e╱N╱ // 0xc0e @0x8
0xc06…c21 at0009 = ╱46╱F╱ // 0xc0f @0x9
0xc06…c21 at000a = ╱49╱I╱ // 0xc10 @0xa
0xc06…c21 at000b = ╱4c╱L╱ // 0xc11 @0xb
0xc06…c21 at000c = ╱ed╱ ( ╱ // 0xc12 @0xc
0xc06…c21 at000d = ╱53╱S╱ // 0xc13 @0xd
0xc06…c21 at000e = ╱59╱Y╱ // 0xc14 @0xe
0xc06…c21 at000f = ╱53╱S╱ // 0xc15 @0xf
0xc06…c21 at0010 = ╱50╱P╱ // 0xc16 @0x10
0xc06…c21 at0011 = ╱41╱A╱ // 0xc17 @0x11
0xc06…c21 at0012 = ╱52╱R╱ // 0xc18 @0x12
0xc06…c21 at0013 = ╱41╱A╱ // 0xc19 @0x13
0xc06…c21 at0014 = ╱ef╱ $ ╱ // 0xc1a @0x14
0xc06…c21 at0015 = ╱ec╱ , ╱ // 0xc1b @0x15
0xc06…c21 at0016 = ╱22╱"╱ // 0xc1c @0x16
0xc06…c21 at0017 = ╱57╱W╱ // 0xc1d @0x17
0xc06…c21 at0018 = ╱22╱"╱ // 0xc1e @0x18
0xc06…c21 at0019 = ╱ee╱ ) ╱ // 0xc1f @0x19
0xc06…c21 at001a = EOL // 0xc20 @0x1a
0xc06…c21 }
0xc21…c3b a229 01210 LET RESRV := 0 ; PPAR := 5
0xc21…c3b LineComal80 {
0xc21…c3b ptr = 0xa229 // 0xc21 @0x0
0xc21…c3b lno = 0x04ba // 0xc23 @0x2
0xc21…c3b at0004 = ╱86╱ LET ╱ // 0xc25 @0x4
0xc21…c3b at0005 = ╱52╱R╱ // 0xc26 @0x5
0xc21…c3b at0006 = ╱45╱E╱ // 0xc27 @0x6
0xc21…c3b at0007 = ╱53╱S╱ // 0xc28 @0x7
0xc21…c3b at0008 = ╱52╱R╱ // 0xc29 @0x8
0xc21…c3b at0009 = ╱56╱V╱ // 0xc2a @0x9
0xc21…c3b at000a = ╱f0╱ := ╱ // 0xc2b @0xa
0xc21…c3b at000b = ╱30╱0╱ // 0xc2c @0xb
0xc21…c3b at000c = ╱f20000╱ // 0xc2d @0xc
0xc21…c3b at000f = ╱ea╱ ; ╱ // 0xc30 @0xf
0xc21…c3b at0010 = ╱50╱P╱ // 0xc31 @0x10
0xc21…c3b at0011 = ╱50╱P╱ // 0xc32 @0x11
0xc21…c3b at0012 = ╱41╱A╱ // 0xc33 @0x12
0xc21…c3b at0013 = ╱52╱R╱ // 0xc34 @0x13
0xc21…c3b at0014 = ╱f0╱ := ╱ // 0xc35 @0x14
0xc21…c3b at0015 = ╱35╱5╱ // 0xc36 @0x15
0xc21…c3b at0016 = ╱f20500╱ // 0xc37 @0x16
0xc21…c3b at0019 = EOL // 0xc3a @0x19
0xc21…c3b }
0xc3b…c42 a23b 01220 CALL
0xc3b…c42 LineComal80 {
0xc3b…c42 ptr = 0xa23b // 0xc3b @0x0
0xc3b…c42 lno = 0x04c4 // 0xc3d @0x2
0xc3b…c42 at0004 = ╱ad22╱ CALL ╱ // 0xc3f @0x4
0xc3b…c42 at0006 = EOL // 0xc41 @0x6
0xc3b…c42 }
0xc42…c4d 4422 17732 :PRES"
0xc42…c4d LineComal80 {
0xc42…c4d ptr = 0x4422 // 0xc42 @0x0
0xc42…c4d lno = 0x4544 // 0xc44 @0x2
0xc42…c4d at0004 = ╱3a╱:╱ // 0xc46 @0x4
0xc42…c4d at0005 = ╱50╱P╱ // 0xc47 @0x5
0xc42…c4d at0006 = ╱52╱R╱ // 0xc48 @0x6
0xc42…c4d at0007 = ╱45╱E╱ // 0xc49 @0x7
0xc42…c4d at0008 = ╱53╱S╱ // 0xc4a @0x8
0xc42…c4d at0009 = ╱22╱"╱ // 0xc4b @0x9
0xc42…c4d at000a = EOL // 0xc4c @0xa
0xc42…c4d }
0xc4d…c76 a264 01230 PUT SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0xc4d…c76 LineComal80 {
0xc4d…c76 ptr = 0xa264 // 0xc4d @0x0
0xc4d…c76 lno = 0x04ce // 0xc4f @0x2
0xc4d…c76 at0004 = ╱aa╱ PUT ╱ // 0xc51 @0x4
0xc4d…c76 at0005 = ╱53╱S╱ // 0xc52 @0x5
0xc4d…c76 at0006 = ╱59╱Y╱ // 0xc53 @0x6
0xc4d…c76 at0007 = ╱53╱S╱ // 0xc54 @0x7
0xc4d…c76 at0008 = ╱50╱P╱ // 0xc55 @0x8
0xc4d…c76 at0009 = ╱41╱A╱ // 0xc56 @0x9
0xc4d…c76 at000a = ╱52╱R╱ // 0xc57 @0xa
0xc4d…c76 at000b = ╱41╱A╱ // 0xc58 @0xb
0xc4d…c76 at000c = ╱ef╱ $ ╱ // 0xc59 @0xc
0xc4d…c76 at000d = ╱ec╱ , ╱ // 0xc5a @0xd
0xc4d…c76 at000e = ╱31╱1╱ // 0xc5b @0xe
0xc4d…c76 at000f = ╱f20100╱ // 0xc5c @0xf
0xc4d…c76 at0012 = ╱e5╱ + ╱ // 0xc5f @0x12
0xc4d…c76 at0013 = ╱52╱R╱ // 0xc60 @0x13
0xc4d…c76 at0014 = ╱45╱E╱ // 0xc61 @0x14
0xc4d…c76 at0015 = ╱53╱S╱ // 0xc62 @0x15
0xc4d…c76 at0016 = ╱52╱R╱ // 0xc63 @0x16
0xc4d…c76 at0017 = ╱56╱V╱ // 0xc64 @0x17
0xc4d…c76 at0018 = ╱f1╱ : ╱ // 0xc65 @0x18
0xc4d…c76 at0019 = ╱44╱D╱ // 0xc66 @0x19
0xc4d…c76 at001a = ╱41╱A╱ // 0xc67 @0x1a
0xc4d…c76 at001b = ╱54╱T╱ // 0xc68 @0x1b
0xc4d…c76 at001c = ╱41╱A╱ // 0xc69 @0x1c
0xc4d…c76 at001d = ╱46╱F╱ // 0xc6a @0x1d
0xc4d…c76 at001e = ╱4c╱L╱ // 0xc6b @0x1e
0xc4d…c76 at001f = ╱ef╱ $ ╱ // 0xc6c @0x1f
0xc4d…c76 at0020 = ╱ec╱ , ╱ // 0xc6d @0x20
0xc4d…c76 at0021 = ╱54╱T╱ // 0xc6e @0x21
0xc4d…c76 at0022 = ╱5f╱_╱ // 0xc6f @0x22
0xc4d…c76 at0023 = ╱4b╱K╱ // 0xc70 @0x23
0xc4d…c76 at0024 = ╱4f╱O╱ // 0xc71 @0x24
0xc4d…c76 at0025 = ╱44╱D╱ // 0xc72 @0x25
0xc4d…c76 at0026 = ╱45╱E╱ // 0xc73 @0x26
0xc4d…c76 at0027 = ╱ef╱ $ ╱ // 0xc74 @0x27
0xc4d…c76 at0028 = EOL // 0xc75 @0x28
0xc4d…c76 }
0xc76…c84 a272 01240 CLOSE SYSPARA $
0xc76…c84 LineComal80 {
0xc76…c84 ptr = 0xa272 // 0xc76 @0x0
0xc76…c84 lno = 0x04d8 // 0xc78 @0x2
0xc76…c84 at0004 = ╱a8╱ CLOSE ╱ // 0xc7a @0x4
0xc76…c84 at0005 = ╱53╱S╱ // 0xc7b @0x5
0xc76…c84 at0006 = ╱59╱Y╱ // 0xc7c @0x6
0xc76…c84 at0007 = ╱53╱S╱ // 0xc7d @0x7
0xc76…c84 at0008 = ╱50╱P╱ // 0xc7e @0x8
0xc76…c84 at0009 = ╱41╱A╱ // 0xc7f @0x9
0xc76…c84 at000a = ╱52╱R╱ // 0xc80 @0xa
0xc76…c84 at000b = ╱41╱A╱ // 0xc81 @0xb
0xc76…c84 at000c = ╱ef╱ $ ╱ // 0xc82 @0xc
0xc76…c84 at000d = EOL // 0xc83 @0xd
0xc76…c84 }
0xc84…c92 0000 01250 ENDPROC FKT_MENU
0xc84…c92 LineComal80 {
0xc84…c92 ptr = 0x0000 // 0xc84 @0x0
0xc84…c92 lno = 0x04e2 // 0xc86 @0x2
0xc84…c92 at0004 = ╱9f╱ ENDPROC ╱ // 0xc88 @0x4
0xc84…c92 at0005 = ╱46╱F╱ // 0xc89 @0x5
0xc84…c92 at0006 = ╱4b╱K╱ // 0xc8a @0x6
0xc84…c92 at0007 = ╱54╱T╱ // 0xc8b @0x7
0xc84…c92 at0008 = ╱5f╱_╱ // 0xc8c @0x8
0xc84…c92 at0009 = ╱4d╱M╱ // 0xc8d @0x9
0xc84…c92 at000a = ╱45╱E╱ // 0xc8e @0xa
0xc84…c92 at000b = ╱4e╱N╱ // 0xc8f @0xb
0xc84…c92 at000c = ╱55╱U╱ // 0xc90 @0xc
0xc84…c92 at000d = EOL // 0xc91 @0xd
0xc84…c92 }
0xc92…c98 (42,) 95ee 38382 ╱00╱ ╱00╱
0xc92…c98 LineComal80 {
0xc92…c98 ptr = 0x95ee // 0xc92 @0x0
0xc92…c98 lno = 0x95ee // 0xc94 @0x2
0xc92…c98 at0004 = ╱00╱ // 0xc96 @0x4
0xc92…c98 at0005 = ╱00╱ // 0xc97 @0x5
0xc92…c98 }