|
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 - download
Length: 3441 (0xd71)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
Names: »SYSU.B«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSU.B«
0100 // **************************************************
0110 // * *
0120 // * Bogføringssystemet 'SYS-KAS' *
0130 // * vers. 1.0 *
0140 // * *
0150 // * Udviklet marts 1983 på en 'SPC/1' mikrodatamat *
0160 // * Programsystemet er skrevet i COMAL80 vers. 1.2 *
0170 // * *
0180 // * Udviklet af : Peter Kristensen *
0190 // * Vestervang 6, 6920 Videbæk *
0200 // * *
0210 // * (C) : forlaget systime a/s *
0220 // * Klokkebakken 20, Gjellerup *
0230 // * 7400 Herning *
0240 // **************************************************
0250 EXEC DIMENSIONER
0260 EXEC INITIER
0270 EXEC FUNKTIONSMENU
0280 // =========== Procedurer starter ==============
0290 PROC DIMENSIONER
0300 // Standard variable
0310 DIM SPC$ OF 80,SVAR$ OF 10,PRGFL$ OF 8,ALFA$ OF 28,TAL$ OF 10
0320 DIM PROGRAM$ OF 17
0330 REAL RESRV,PPAR
0340 INTEGER OK,TRUE,FALSE,I,J
0350 // Variable til filen SYSPARA
0360 DIM SYSPARA$ OF 17
0370 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0380 DIM DATAFL$ OF 8,T_KODE$ OF 1
0390 // Variable til filen @@PARAM
0400 DIM PARAM$ OF 17
0410 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0420 REAL MOMS
0430 ENDPROC DIMENSIONER
0440
0450 PROC INITIER
0460 LET PRGFL$ := "DP2"
0470 LET PROGRAM$ := PRGFL$ + ":SYSIP"
0480 LET SPC$ := " "
0490 LET SPC$ := SPC$ + SPC$
0500 LET FALSE := 0 ; TRUE := 1 // boolske variable
0510 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0520 EXEC OPENFIL(SYSPARA$,"R")
0530 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0540 EXEC TERMINAL_IDX
0550 CLOSE SYSPARA$
0560 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0570 EXEC OPENFIL(PARAM$,"R")
0580 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0590 CLOSE PARAM$
0600 ENDPROC INITIER
0610
0620 PROC TERMINAL_IDX
0630 LET PPAR := 5 ; RESRV := 0
0640 CALL ("DDE:PRES"
0650 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0660 ENDPROC TERMINAL_IDX
0670
0680 PROC OPENFIL(FNAVN$,WAY$)
0690 REPEAT
0700 IF AY$ = "W" OR WAY$ = "w" THEN
0710 OPEN FNAVN$,W
0720 ELSE
0730 OPEN FNAVN$,R
0740 ENDIF
0750 IF (FNAVN$) THEN
0760 PRINT "<SC0123>" ; CHR$ (7)
0770 IF (FNAVN$) = 6 THEN
0780 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
0790 INPUT "" : SVAR$
0800 ELSE
0810 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
0820 PRINT "<S>" ; FNAVN$ ; " ***"
0830 INPUT "" : SVAR$
0840 PRINT "<C0102>" ; SPC$
0850 ENDIF
0860 ENDIF
0870 UNTIL NOT ╱cd╱ (FNAVN$)
0880 ENDPROC OPENFIL
0890
0900 PROC OVERSKRIFT(ST$,L)
0910 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0920 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0930 PRINT SYST_DAT$(5 : 2)
0940 CURSOR 36 - INT( ╱cb╱ (ST$) / 2),L
0950 PRINT "*** " ; ST$ ; " ***"
0960 ENDPROC OVERSKRIFT
0970
0980 PROC SL_FEJLLINIE
0990 LET OK := TRUE
1000 PRINT "<C0102>" ; SPC$
1010 ENDPROC SL_FEJLLINIE
1020
1030 PROC FEJL(ST$)
1040 LET OK := FALSE
1050 CURSOR 36 - ╱cb╱ (ST$) / 2,2
1060 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
1070 ENDPROC FEJL
1080
1090 PROC FUNKTIONSMENU
1100 EXEC OVERSKRIFT("Udskrivning af bogføringsdata",7)
1110 PRINT "<C1910>Kontokort UK"
1120 PRINT "<C1912>Kontoplan UP"
1130 PRINT "<C1914>Saldobalance US"
1140 PRINT "<C1917>Programfordeler RETURN"
1150 REPEAT
1160 EDIT "<C2720>Indtast funktionskode: " : SVAR$(1 : 2)
1170 EXEC SL_FEJLLINIE
1180 IF "/" + SVAR$ + "/" IN "/UK/uk/UP/up/US/us// / /" THEN
1190 EXEC FEJL("Ulovlig funktionskode: '" + SVAR$ + "'")
1200 ENDIF
1210 UNTIL OK
1220 LET PROGRAM$ := PRGFL$ + ":SYS" + SVAR$
1230 CHAIN PROGRAM$
1240 ENDPROC FUNKTIONSMENU
0x000…038 (0,) 9626 0100 // **************************************************
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 0110 // * *
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 0120 // * 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 0130 // * 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 0140 // * *
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 0150 // * 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 0160 // * 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 0170 // * *
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 0180 // * 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 0190 // * 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 0200 // * *
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 0210 // * (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 0220 // * 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 0230 // * 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 0240 // **************************************************
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 0250 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 0260 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…379 9967 0270 EXEC FUNKTIONSMENU
0x366…379 LineComal80 {
0x366…379 ptr = 0x9967 // 0x366 @0x0
0x366…379 lno = 0x010e // 0x368 @0x2
0x366…379 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x366…379 at0005 = ╱46╱F╱ // 0x36b @0x5
0x366…379 at0006 = ╱55╱U╱ // 0x36c @0x6
0x366…379 at0007 = ╱4e╱N╱ // 0x36d @0x7
0x366…379 at0008 = ╱4b╱K╱ // 0x36e @0x8
0x366…379 at0009 = ╱54╱T╱ // 0x36f @0x9
0x366…379 at000a = ╱49╱I╱ // 0x370 @0xa
0x366…379 at000b = ╱4f╱O╱ // 0x371 @0xb
0x366…379 at000c = ╱4e╱N╱ // 0x372 @0xc
0x366…379 at000d = ╱53╱S╱ // 0x373 @0xd
0x366…379 at000e = ╱4d╱M╱ // 0x374 @0xe
0x366…379 at000f = ╱45╱E╱ // 0x375 @0xf
0x366…379 at0010 = ╱4e╱N╱ // 0x376 @0x10
0x366…379 at0011 = ╱55╱U╱ // 0x377 @0x11
0x366…379 at0012 = EOL // 0x378 @0x12
0x366…379 }
0x379…3ac 999a 0280 // =========== Procedurer starter ==============
0x379…3ac LineComal80 {
0x379…3ac ptr = 0x999a // 0x379 @0x0
0x379…3ac lno = 0x0118 // 0x37b @0x2
0x379…3ac at0004 = ╱89╱ // ╱ // 0x37d @0x4
0x379…3ac at0005 = ╱3d╱=╱ // 0x37e @0x5
0x379…3ac at0006 = ╱3d╱=╱ // 0x37f @0x6
0x379…3ac at0007 = ╱3d╱=╱ // 0x380 @0x7
0x379…3ac at0008 = ╱3d╱=╱ // 0x381 @0x8
0x379…3ac at0009 = ╱3d╱=╱ // 0x382 @0x9
0x379…3ac at000a = ╱3d╱=╱ // 0x383 @0xa
0x379…3ac at000b = ╱3d╱=╱ // 0x384 @0xb
0x379…3ac at000c = ╱3d╱=╱ // 0x385 @0xc
0x379…3ac at000d = ╱3d╱=╱ // 0x386 @0xd
0x379…3ac at000e = ╱3d╱=╱ // 0x387 @0xe
0x379…3ac at000f = ╱3d╱=╱ // 0x388 @0xf
0x379…3ac at0010 = ╱20╱…╱ // 0x389 @0x10
0x379…3ac at0011 = ╱50╱P╱ // 0x38a @0x11
0x379…3ac at0012 = ╱72╱r╱ // 0x38b @0x12
0x379…3ac at0013 = ╱6f╱o╱ // 0x38c @0x13
0x379…3ac at0014 = ╱63╱c╱ // 0x38d @0x14
0x379…3ac at0015 = ╱65╱e╱ // 0x38e @0x15
0x379…3ac at0016 = ╱64╱d╱ // 0x38f @0x16
0x379…3ac at0017 = ╱75╱u╱ // 0x390 @0x17
0x379…3ac at0018 = ╱72╱r╱ // 0x391 @0x18
0x379…3ac at0019 = ╱65╱e╱ // 0x392 @0x19
0x379…3ac at001a = ╱72╱r╱ // 0x393 @0x1a
0x379…3ac at001b = ╱20╱…╱ // 0x394 @0x1b
0x379…3ac at001c = ╱73╱s╱ // 0x395 @0x1c
0x379…3ac at001d = ╱74╱t╱ // 0x396 @0x1d
0x379…3ac at001e = ╱61╱a╱ // 0x397 @0x1e
0x379…3ac at001f = ╱72╱r╱ // 0x398 @0x1f
0x379…3ac at0020 = ╱74╱t╱ // 0x399 @0x20
0x379…3ac at0021 = ╱65╱e╱ // 0x39a @0x21
0x379…3ac at0022 = ╱72╱r╱ // 0x39b @0x22
0x379…3ac at0023 = ╱20╱…╱ // 0x39c @0x23
0x379…3ac at0024 = ╱3d╱=╱ // 0x39d @0x24
0x379…3ac at0025 = ╱3d╱=╱ // 0x39e @0x25
0x379…3ac at0026 = ╱3d╱=╱ // 0x39f @0x26
0x379…3ac at0027 = ╱3d╱=╱ // 0x3a0 @0x27
0x379…3ac at0028 = ╱3d╱=╱ // 0x3a1 @0x28
0x379…3ac at0029 = ╱3d╱=╱ // 0x3a2 @0x29
0x379…3ac at002a = ╱3d╱=╱ // 0x3a3 @0x2a
0x379…3ac at002b = ╱3d╱=╱ // 0x3a4 @0x2b
0x379…3ac at002c = ╱3d╱=╱ // 0x3a5 @0x2c
0x379…3ac at002d = ╱3d╱=╱ // 0x3a6 @0x2d
0x379…3ac at002e = ╱3d╱=╱ // 0x3a7 @0x2e
0x379…3ac at002f = ╱3d╱=╱ // 0x3a8 @0x2f
0x379…3ac at0030 = ╱3d╱=╱ // 0x3a9 @0x30
0x379…3ac at0031 = ╱3d╱=╱ // 0x3aa @0x31
0x379…3ac at0032 = EOL // 0x3ab @0x32
0x379…3ac }
0x3ac…3be 99ac 0290 PROC DIMENSIONER
0x3ac…3be LineComal80 {
0x3ac…3be ptr = 0x99ac // 0x3ac @0x0
0x3ac…3be lno = 0x0122 // 0x3ae @0x2
0x3ac…3be at0004 = ╱9e00╱ PROC ╱ // 0x3b0 @0x4
0x3ac…3be at0006 = ╱44╱D╱ // 0x3b2 @0x6
0x3ac…3be at0007 = ╱49╱I╱ // 0x3b3 @0x7
0x3ac…3be at0008 = ╱4d╱M╱ // 0x3b4 @0x8
0x3ac…3be at0009 = ╱45╱E╱ // 0x3b5 @0x9
0x3ac…3be at000a = ╱4e╱N╱ // 0x3b6 @0xa
0x3ac…3be at000b = ╱53╱S╱ // 0x3b7 @0xb
0x3ac…3be at000c = ╱49╱I╱ // 0x3b8 @0xc
0x3ac…3be at000d = ╱4f╱O╱ // 0x3b9 @0xd
0x3ac…3be at000e = ╱4e╱N╱ // 0x3ba @0xe
0x3ac…3be at000f = ╱45╱E╱ // 0x3bb @0xf
0x3ac…3be at0010 = ╱52╱R╱ // 0x3bc @0x10
0x3ac…3be at0011 = EOL // 0x3bd @0x11
0x3ac…3be }
0x3be…3d5 99c3 0300 // Standard variable
0x3be…3d5 LineComal80 {
0x3be…3d5 ptr = 0x99c3 // 0x3be @0x0
0x3be…3d5 lno = 0x012c // 0x3c0 @0x2
0x3be…3d5 at0004 = ╱89╱ // ╱ // 0x3c2 @0x4
0x3be…3d5 at0005 = ╱53╱S╱ // 0x3c3 @0x5
0x3be…3d5 at0006 = ╱74╱t╱ // 0x3c4 @0x6
0x3be…3d5 at0007 = ╱61╱a╱ // 0x3c5 @0x7
0x3be…3d5 at0008 = ╱6e╱n╱ // 0x3c6 @0x8
0x3be…3d5 at0009 = ╱64╱d╱ // 0x3c7 @0x9
0x3be…3d5 at000a = ╱61╱a╱ // 0x3c8 @0xa
0x3be…3d5 at000b = ╱72╱r╱ // 0x3c9 @0xb
0x3be…3d5 at000c = ╱64╱d╱ // 0x3ca @0xc
0x3be…3d5 at000d = ╱20╱…╱ // 0x3cb @0xd
0x3be…3d5 at000e = ╱76╱v╱ // 0x3cc @0xe
0x3be…3d5 at000f = ╱61╱a╱ // 0x3cd @0xf
0x3be…3d5 at0010 = ╱72╱r╱ // 0x3ce @0x10
0x3be…3d5 at0011 = ╱69╱i╱ // 0x3cf @0x11
0x3be…3d5 at0012 = ╱61╱a╱ // 0x3d0 @0x12
0x3be…3d5 at0013 = ╱62╱b╱ // 0x3d1 @0x13
0x3be…3d5 at0014 = ╱6c╱l╱ // 0x3d2 @0x14
0x3be…3d5 at0015 = ╱65╱e╱ // 0x3d3 @0x15
0x3be…3d5 at0016 = EOL // 0x3d4 @0x16
0x3be…3d5 }
0x3d5…414 9a02 0310 DIM SPC$ OF 80,SVAR$ OF 10,PRGFL$ OF 8,ALFA$ OF 28,TAL$ OF 10
0x3d5…414 LineComal80 {
0x3d5…414 ptr = 0x9a02 // 0x3d5 @0x0
0x3d5…414 lno = 0x0136 // 0x3d7 @0x2
0x3d5…414 at0004 = ╱87╱ DIM ╱ // 0x3d9 @0x4
0x3d5…414 at0005 = ╱53╱S╱ // 0x3da @0x5
0x3d5…414 at0006 = ╱50╱P╱ // 0x3db @0x6
0x3d5…414 at0007 = ╱43╱C╱ // 0x3dc @0x7
0x3d5…414 at0008 = ╱ef╱$╱ // 0x3dd @0x8
0x3d5…414 at0009 = ╱ba╱ OF ╱ // 0x3de @0x9
0x3d5…414 at000a = ╱38╱8╱ // 0x3df @0xa
0x3d5…414 at000b = ╱30╱0╱ // 0x3e0 @0xb
0x3d5…414 at000c = ╱f25000╱ // 0x3e1 @0xc
0x3d5…414 at000f = ╱ec╱,╱ // 0x3e4 @0xf
0x3d5…414 at0010 = ╱53╱S╱ // 0x3e5 @0x10
0x3d5…414 at0011 = ╱56╱V╱ // 0x3e6 @0x11
0x3d5…414 at0012 = ╱41╱A╱ // 0x3e7 @0x12
0x3d5…414 at0013 = ╱52╱R╱ // 0x3e8 @0x13
0x3d5…414 at0014 = ╱ef╱$╱ // 0x3e9 @0x14
0x3d5…414 at0015 = ╱ba╱ OF ╱ // 0x3ea @0x15
0x3d5…414 at0016 = ╱31╱1╱ // 0x3eb @0x16
0x3d5…414 at0017 = ╱30╱0╱ // 0x3ec @0x17
0x3d5…414 at0018 = ╱f20a00╱ // 0x3ed @0x18
0x3d5…414 at001b = ╱ec╱,╱ // 0x3f0 @0x1b
0x3d5…414 at001c = ╱50╱P╱ // 0x3f1 @0x1c
0x3d5…414 at001d = ╱52╱R╱ // 0x3f2 @0x1d
0x3d5…414 at001e = ╱47╱G╱ // 0x3f3 @0x1e
0x3d5…414 at001f = ╱46╱F╱ // 0x3f4 @0x1f
0x3d5…414 at0020 = ╱4c╱L╱ // 0x3f5 @0x20
0x3d5…414 at0021 = ╱ef╱$╱ // 0x3f6 @0x21
0x3d5…414 at0022 = ╱ba╱ OF ╱ // 0x3f7 @0x22
0x3d5…414 at0023 = ╱38╱8╱ // 0x3f8 @0x23
0x3d5…414 at0024 = ╱f20800╱ // 0x3f9 @0x24
0x3d5…414 at0027 = ╱ec╱,╱ // 0x3fc @0x27
0x3d5…414 at0028 = ╱41╱A╱ // 0x3fd @0x28
0x3d5…414 at0029 = ╱4c╱L╱ // 0x3fe @0x29
0x3d5…414 at002a = ╱46╱F╱ // 0x3ff @0x2a
0x3d5…414 at002b = ╱41╱A╱ // 0x400 @0x2b
0x3d5…414 at002c = ╱ef╱$╱ // 0x401 @0x2c
0x3d5…414 at002d = ╱ba╱ OF ╱ // 0x402 @0x2d
0x3d5…414 at002e = ╱32╱2╱ // 0x403 @0x2e
0x3d5…414 at002f = ╱38╱8╱ // 0x404 @0x2f
0x3d5…414 at0030 = ╱f21c00╱ // 0x405 @0x30
0x3d5…414 at0033 = ╱ec╱,╱ // 0x408 @0x33
0x3d5…414 at0034 = ╱54╱T╱ // 0x409 @0x34
0x3d5…414 at0035 = ╱41╱A╱ // 0x40a @0x35
0x3d5…414 at0036 = ╱4c╱L╱ // 0x40b @0x36
0x3d5…414 at0037 = ╱ef╱$╱ // 0x40c @0x37
0x3d5…414 at0038 = ╱ba╱ OF ╱ // 0x40d @0x38
0x3d5…414 at0039 = ╱31╱1╱ // 0x40e @0x39
0x3d5…414 at003a = ╱30╱0╱ // 0x40f @0x3a
0x3d5…414 at003b = ╱f20a00╱ // 0x410 @0x3b
0x3d5…414 at003e = EOL // 0x413 @0x3e
0x3d5…414 }
0x414…428 9a16 0320 DIM PROGRAM$ OF 17
0x414…428 LineComal80 {
0x414…428 ptr = 0x9a16 // 0x414 @0x0
0x414…428 lno = 0x0140 // 0x416 @0x2
0x414…428 at0004 = ╱87╱ DIM ╱ // 0x418 @0x4
0x414…428 at0005 = ╱50╱P╱ // 0x419 @0x5
0x414…428 at0006 = ╱52╱R╱ // 0x41a @0x6
0x414…428 at0007 = ╱4f╱O╱ // 0x41b @0x7
0x414…428 at0008 = ╱47╱G╱ // 0x41c @0x8
0x414…428 at0009 = ╱52╱R╱ // 0x41d @0x9
0x414…428 at000a = ╱41╱A╱ // 0x41e @0xa
0x414…428 at000b = ╱4d╱M╱ // 0x41f @0xb
0x414…428 at000c = ╱ef╱$╱ // 0x420 @0xc
0x414…428 at000d = ╱ba╱ OF ╱ // 0x421 @0xd
0x414…428 at000e = ╱31╱1╱ // 0x422 @0xe
0x414…428 at000f = ╱37╱7╱ // 0x423 @0xf
0x414…428 at0010 = ╱f21100╱ // 0x424 @0x10
0x414…428 at0013 = EOL // 0x427 @0x13
0x414…428 }
0x428…438 9a26 0330 REAL RESRV,PPAR
0x428…438 LineComal80 {
0x428…438 ptr = 0x9a26 // 0x428 @0x0
0x428…438 lno = 0x014a // 0x42a @0x2
0x428…438 at0004 = ╱b3╱ REAL ╱ // 0x42c @0x4
0x428…438 at0005 = ╱52╱R╱ // 0x42d @0x5
0x428…438 at0006 = ╱45╱E╱ // 0x42e @0x6
0x428…438 at0007 = ╱53╱S╱ // 0x42f @0x7
0x428…438 at0008 = ╱52╱R╱ // 0x430 @0x8
0x428…438 at0009 = ╱56╱V╱ // 0x431 @0x9
0x428…438 at000a = ╱ec╱,╱ // 0x432 @0xa
0x428…438 at000b = ╱50╱P╱ // 0x433 @0xb
0x428…438 at000c = ╱50╱P╱ // 0x434 @0xc
0x428…438 at000d = ╱41╱A╱ // 0x435 @0xd
0x428…438 at000e = ╱52╱R╱ // 0x436 @0xe
0x428…438 at000f = EOL // 0x437 @0xf
0x428…438 }
0x438…44f 9a3d 0340 INTEGER OK,TRUE,FALSE,I,J
0x438…44f LineComal80 {
0x438…44f ptr = 0x9a3d // 0x438 @0x0
0x438…44f lno = 0x0154 // 0x43a @0x2
0x438…44f at0004 = ╱b2╱ INTEGER ╱ // 0x43c @0x4
0x438…44f at0005 = ╱4f╱O╱ // 0x43d @0x5
0x438…44f at0006 = ╱4b╱K╱ // 0x43e @0x6
0x438…44f at0007 = ╱ec╱,╱ // 0x43f @0x7
0x438…44f at0008 = ╱54╱T╱ // 0x440 @0x8
0x438…44f at0009 = ╱52╱R╱ // 0x441 @0x9
0x438…44f at000a = ╱55╱U╱ // 0x442 @0xa
0x438…44f at000b = ╱45╱E╱ // 0x443 @0xb
0x438…44f at000c = ╱ec╱,╱ // 0x444 @0xc
0x438…44f at000d = ╱46╱F╱ // 0x445 @0xd
0x438…44f at000e = ╱41╱A╱ // 0x446 @0xe
0x438…44f at000f = ╱4c╱L╱ // 0x447 @0xf
0x438…44f at0010 = ╱53╱S╱ // 0x448 @0x10
0x438…44f at0011 = ╱45╱E╱ // 0x449 @0x11
0x438…44f at0012 = ╱ec╱,╱ // 0x44a @0x12
0x438…44f at0013 = ╱49╱I╱ // 0x44b @0x13
0x438…44f at0014 = ╱ec╱,╱ // 0x44c @0x14
0x438…44f at0015 = ╱4a╱J╱ // 0x44d @0x15
0x438…44f at0016 = EOL // 0x44e @0x16
0x438…44f }
0x44f…46f 9a5d 0350 // Variable til filen SYSPARA
0x44f…46f LineComal80 {
0x44f…46f ptr = 0x9a5d // 0x44f @0x0
0x44f…46f lno = 0x015e // 0x451 @0x2
0x44f…46f at0004 = ╱89╱ // ╱ // 0x453 @0x4
0x44f…46f at0005 = ╱56╱V╱ // 0x454 @0x5
0x44f…46f at0006 = ╱61╱a╱ // 0x455 @0x6
0x44f…46f at0007 = ╱72╱r╱ // 0x456 @0x7
0x44f…46f at0008 = ╱69╱i╱ // 0x457 @0x8
0x44f…46f at0009 = ╱61╱a╱ // 0x458 @0x9
0x44f…46f at000a = ╱62╱b╱ // 0x459 @0xa
0x44f…46f at000b = ╱6c╱l╱ // 0x45a @0xb
0x44f…46f at000c = ╱65╱e╱ // 0x45b @0xc
0x44f…46f at000d = ╱20╱…╱ // 0x45c @0xd
0x44f…46f at000e = ╱74╱t╱ // 0x45d @0xe
0x44f…46f at000f = ╱69╱i╱ // 0x45e @0xf
0x44f…46f at0010 = ╱6c╱l╱ // 0x45f @0x10
0x44f…46f at0011 = ╱20╱…╱ // 0x460 @0x11
0x44f…46f at0012 = ╱66╱f╱ // 0x461 @0x12
0x44f…46f at0013 = ╱69╱i╱ // 0x462 @0x13
0x44f…46f at0014 = ╱6c╱l╱ // 0x463 @0x14
0x44f…46f at0015 = ╱65╱e╱ // 0x464 @0x15
0x44f…46f at0016 = ╱6e╱n╱ // 0x465 @0x16
0x44f…46f at0017 = ╱20╱…╱ // 0x466 @0x17
0x44f…46f at0018 = ╱53╱S╱ // 0x467 @0x18
0x44f…46f at0019 = ╱59╱Y╱ // 0x468 @0x19
0x44f…46f at001a = ╱53╱S╱ // 0x469 @0x1a
0x44f…46f at001b = ╱50╱P╱ // 0x46a @0x1b
0x44f…46f at001c = ╱41╱A╱ // 0x46b @0x1c
0x44f…46f at001d = ╱52╱R╱ // 0x46c @0x1d
0x44f…46f at001e = ╱41╱A╱ // 0x46d @0x1e
0x44f…46f at001f = EOL // 0x46e @0x1f
0x44f…46f }
0x46f…483 9a71 0360 DIM SYSPARA$ OF 17
0x46f…483 LineComal80 {
0x46f…483 ptr = 0x9a71 // 0x46f @0x0
0x46f…483 lno = 0x0168 // 0x471 @0x2
0x46f…483 at0004 = ╱87╱ DIM ╱ // 0x473 @0x4
0x46f…483 at0005 = ╱53╱S╱ // 0x474 @0x5
0x46f…483 at0006 = ╱59╱Y╱ // 0x475 @0x6
0x46f…483 at0007 = ╱53╱S╱ // 0x476 @0x7
0x46f…483 at0008 = ╱50╱P╱ // 0x477 @0x8
0x46f…483 at0009 = ╱41╱A╱ // 0x478 @0x9
0x46f…483 at000a = ╱52╱R╱ // 0x479 @0xa
0x46f…483 at000b = ╱41╱A╱ // 0x47a @0xb
0x46f…483 at000c = ╱ef╱$╱ // 0x47b @0xc
0x46f…483 at000d = ╱ba╱ OF ╱ // 0x47c @0xd
0x46f…483 at000e = ╱31╱1╱ // 0x47d @0xe
0x46f…483 at000f = ╱37╱7╱ // 0x47e @0xf
0x46f…483 at0010 = ╱f21100╱ // 0x47f @0x10
0x46f…483 at0013 = EOL // 0x482 @0x13
0x46f…483 }
0x483…4a6 (15,) 9a94 0370 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0x483…4a6 LineComal80 {
0x483…4a6 ptr = 0x9a94 // 0x483 @0x0
0x483…4a6 lno = 0x0172 // 0x485 @0x2
0x483…4a6 at0004 = ╱87╱ DIM ╱ // 0x487 @0x4
0x483…4a6 at0005 = ╱53╱S╱ // 0x488 @0x5
0x483…4a6 at0006 = ╱59╱Y╱ // 0x489 @0x6
0x483…4a6 at0007 = ╱53╱S╱ // 0x48a @0x7
0x483…4a6 at0008 = ╱54╱T╱ // 0x48b @0x8
0x483…4a6 at0009 = ╱5f╱_╱ // 0x48c @0x9
0x483…4a6 at000a = ╱4e╱N╱ // 0x48d @0xa
0x483…4a6 at000b = ╱41╱A╱ // 0x48e @0xb
0x483…4a6 at000c = ╱56╱V╱ // 0x48f @0xc
0x483…4a6 at000d = ╱4e╱N╱ // 0x490 @0xd
0x483…4a6 at000e = ╱ef╱$╱ // 0x491 @0xe
0x483…4a6 at000f = ╱ba╱ OF ╱ // 0x492 @0xf
0x483…4a6 at0010 = ╱33╱3╱ // 0x493 @0x10
0x483…4a6 at0011 = ╱30╱0╱ // 0x494 @0x11
0x483…4a6 at0012 = ╱f21e00╱ // 0x495 @0x12
0x483…4a6 at0015 = ╱ec╱,╱ // 0x498 @0x15
0x483…4a6 at0016 = ╱53╱S╱ // 0x499 @0x16
0x483…4a6 at0017 = ╱5f╱_╱ // 0x49a @0x17
0x483…4a6 at0018 = ╱4b╱K╱ // 0x49b @0x18
0x483…4a6 at0019 = ╱4f╱O╱ // 0x49c @0x19
0x483…4a6 at001a = ╱44╱D╱ // 0x49d @0x1a
0x483…4a6 at001b = ╱45╱E╱ // 0x49e @0x1b
0x483…4a6 at001c = ╱ef╱$╱ // 0x49f @0x1c
0x483…4a6 at001d = ╱ba╱ OF ╱ // 0x4a0 @0x1d
0x483…4a6 at001e = ╱31╱1╱ // 0x4a1 @0x1e
0x483…4a6 at001f = ╱f20100╱ // 0x4a2 @0x1f
0x483…4a6 at0022 = EOL // 0x4a5 @0x22
0x483…4a6 }
0x4a6…4c5 9ab3 0380 DIM DATAFL$ OF 8,T_KODE$ OF 1
0x4a6…4c5 LineComal80 {
0x4a6…4c5 ptr = 0x9ab3 // 0x4a6 @0x0
0x4a6…4c5 lno = 0x017c // 0x4a8 @0x2
0x4a6…4c5 at0004 = ╱87╱ DIM ╱ // 0x4aa @0x4
0x4a6…4c5 at0005 = ╱44╱D╱ // 0x4ab @0x5
0x4a6…4c5 at0006 = ╱41╱A╱ // 0x4ac @0x6
0x4a6…4c5 at0007 = ╱54╱T╱ // 0x4ad @0x7
0x4a6…4c5 at0008 = ╱41╱A╱ // 0x4ae @0x8
0x4a6…4c5 at0009 = ╱46╱F╱ // 0x4af @0x9
0x4a6…4c5 at000a = ╱4c╱L╱ // 0x4b0 @0xa
0x4a6…4c5 at000b = ╱ef╱$╱ // 0x4b1 @0xb
0x4a6…4c5 at000c = ╱ba╱ OF ╱ // 0x4b2 @0xc
0x4a6…4c5 at000d = ╱38╱8╱ // 0x4b3 @0xd
0x4a6…4c5 at000e = ╱f20800╱ // 0x4b4 @0xe
0x4a6…4c5 at0011 = ╱ec╱,╱ // 0x4b7 @0x11
0x4a6…4c5 at0012 = ╱54╱T╱ // 0x4b8 @0x12
0x4a6…4c5 at0013 = ╱5f╱_╱ // 0x4b9 @0x13
0x4a6…4c5 at0014 = ╱4b╱K╱ // 0x4ba @0x14
0x4a6…4c5 at0015 = ╱4f╱O╱ // 0x4bb @0x15
0x4a6…4c5 at0016 = ╱44╱D╱ // 0x4bc @0x16
0x4a6…4c5 at0017 = ╱45╱E╱ // 0x4bd @0x17
0x4a6…4c5 at0018 = ╱ef╱$╱ // 0x4be @0x18
0x4a6…4c5 at0019 = ╱ba╱ OF ╱ // 0x4bf @0x19
0x4a6…4c5 at001a = ╱31╱1╱ // 0x4c0 @0x1a
0x4a6…4c5 at001b = ╱f20100╱ // 0x4c1 @0x1b
0x4a6…4c5 at001e = EOL // 0x4c4 @0x1e
0x4a6…4c5 }
0x4c5…4e5 9ad3 0390 // Variable til filen @@PARAM
0x4c5…4e5 LineComal80 {
0x4c5…4e5 ptr = 0x9ad3 // 0x4c5 @0x0
0x4c5…4e5 lno = 0x0186 // 0x4c7 @0x2
0x4c5…4e5 at0004 = ╱89╱ // ╱ // 0x4c9 @0x4
0x4c5…4e5 at0005 = ╱56╱V╱ // 0x4ca @0x5
0x4c5…4e5 at0006 = ╱61╱a╱ // 0x4cb @0x6
0x4c5…4e5 at0007 = ╱72╱r╱ // 0x4cc @0x7
0x4c5…4e5 at0008 = ╱69╱i╱ // 0x4cd @0x8
0x4c5…4e5 at0009 = ╱61╱a╱ // 0x4ce @0x9
0x4c5…4e5 at000a = ╱62╱b╱ // 0x4cf @0xa
0x4c5…4e5 at000b = ╱6c╱l╱ // 0x4d0 @0xb
0x4c5…4e5 at000c = ╱65╱e╱ // 0x4d1 @0xc
0x4c5…4e5 at000d = ╱20╱…╱ // 0x4d2 @0xd
0x4c5…4e5 at000e = ╱74╱t╱ // 0x4d3 @0xe
0x4c5…4e5 at000f = ╱69╱i╱ // 0x4d4 @0xf
0x4c5…4e5 at0010 = ╱6c╱l╱ // 0x4d5 @0x10
0x4c5…4e5 at0011 = ╱20╱…╱ // 0x4d6 @0x11
0x4c5…4e5 at0012 = ╱66╱f╱ // 0x4d7 @0x12
0x4c5…4e5 at0013 = ╱69╱i╱ // 0x4d8 @0x13
0x4c5…4e5 at0014 = ╱6c╱l╱ // 0x4d9 @0x14
0x4c5…4e5 at0015 = ╱65╱e╱ // 0x4da @0x15
0x4c5…4e5 at0016 = ╱6e╱n╱ // 0x4db @0x16
0x4c5…4e5 at0017 = ╱20╱…╱ // 0x4dc @0x17
0x4c5…4e5 at0018 = ╱40╱@╱ // 0x4dd @0x18
0x4c5…4e5 at0019 = ╱40╱@╱ // 0x4de @0x19
0x4c5…4e5 at001a = ╱50╱P╱ // 0x4df @0x1a
0x4c5…4e5 at001b = ╱41╱A╱ // 0x4e0 @0x1b
0x4c5…4e5 at001c = ╱52╱R╱ // 0x4e1 @0x1c
0x4c5…4e5 at001d = ╱41╱A╱ // 0x4e2 @0x1d
0x4c5…4e5 at001e = ╱4d╱M╱ // 0x4e3 @0x1e
0x4c5…4e5 at001f = EOL // 0x4e4 @0x1f
0x4c5…4e5 }
0x4e5…4f7 9ae5 0400 DIM PARAM$ OF 17
0x4e5…4f7 LineComal80 {
0x4e5…4f7 ptr = 0x9ae5 // 0x4e5 @0x0
0x4e5…4f7 lno = 0x0190 // 0x4e7 @0x2
0x4e5…4f7 at0004 = ╱87╱ DIM ╱ // 0x4e9 @0x4
0x4e5…4f7 at0005 = ╱50╱P╱ // 0x4ea @0x5
0x4e5…4f7 at0006 = ╱41╱A╱ // 0x4eb @0x6
0x4e5…4f7 at0007 = ╱52╱R╱ // 0x4ec @0x7
0x4e5…4f7 at0008 = ╱41╱A╱ // 0x4ed @0x8
0x4e5…4f7 at0009 = ╱4d╱M╱ // 0x4ee @0x9
0x4e5…4f7 at000a = ╱ef╱$╱ // 0x4ef @0xa
0x4e5…4f7 at000b = ╱ba╱ OF ╱ // 0x4f0 @0xb
0x4e5…4f7 at000c = ╱31╱1╱ // 0x4f1 @0xc
0x4e5…4f7 at000d = ╱37╱7╱ // 0x4f2 @0xd
0x4e5…4f7 at000e = ╱f21100╱ // 0x4f3 @0xe
0x4e5…4f7 at0011 = EOL // 0x4f6 @0x11
0x4e5…4f7 }
0x4f7…51c 9b0a 0410 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0x4f7…51c LineComal80 {
0x4f7…51c ptr = 0x9b0a // 0x4f7 @0x0
0x4f7…51c lno = 0x019a // 0x4f9 @0x2
0x4f7…51c at0004 = ╱87╱ DIM ╱ // 0x4fb @0x4
0x4f7…51c at0005 = ╱46╱F╱ // 0x4fc @0x5
0x4f7…51c at0006 = ╱49╱I╱ // 0x4fd @0x6
0x4f7…51c at0007 = ╱52╱R╱ // 0x4fe @0x7
0x4f7…51c at0008 = ╱4d╱M╱ // 0x4ff @0x8
0x4f7…51c at0009 = ╱41╱A╱ // 0x500 @0x9
0x4f7…51c at000a = ╱4e╱N╱ // 0x501 @0xa
0x4f7…51c at000b = ╱41╱A╱ // 0x502 @0xb
0x4f7…51c at000c = ╱56╱V╱ // 0x503 @0xc
0x4f7…51c at000d = ╱4e╱N╱ // 0x504 @0xd
0x4f7…51c at000e = ╱ef╱$╱ // 0x505 @0xe
0x4f7…51c at000f = ╱ba╱ OF ╱ // 0x506 @0xf
0x4f7…51c at0010 = ╱33╱3╱ // 0x507 @0x10
0x4f7…51c at0011 = ╱30╱0╱ // 0x508 @0x11
0x4f7…51c at0012 = ╱f21e00╱ // 0x509 @0x12
0x4f7…51c at0015 = ╱ec╱,╱ // 0x50c @0x15
0x4f7…51c at0016 = ╱53╱S╱ // 0x50d @0x16
0x4f7…51c at0017 = ╱59╱Y╱ // 0x50e @0x17
0x4f7…51c at0018 = ╱53╱S╱ // 0x50f @0x18
0x4f7…51c at0019 = ╱54╱T╱ // 0x510 @0x19
0x4f7…51c at001a = ╱5f╱_╱ // 0x511 @0x1a
0x4f7…51c at001b = ╱44╱D╱ // 0x512 @0x1b
0x4f7…51c at001c = ╱41╱A╱ // 0x513 @0x1c
0x4f7…51c at001d = ╱54╱T╱ // 0x514 @0x1d
0x4f7…51c at001e = ╱ef╱$╱ // 0x515 @0x1e
0x4f7…51c at001f = ╱ba╱ OF ╱ // 0x516 @0x1f
0x4f7…51c at0020 = ╱36╱6╱ // 0x517 @0x20
0x4f7…51c at0021 = ╱f20600╱ // 0x518 @0x21
0x4f7…51c at0024 = EOL // 0x51b @0x24
0x4f7…51c }
0x51c…526 9b14 0420 REAL MOMS
0x51c…526 LineComal80 {
0x51c…526 ptr = 0x9b14 // 0x51c @0x0
0x51c…526 lno = 0x01a4 // 0x51e @0x2
0x51c…526 at0004 = ╱b3╱ REAL ╱ // 0x520 @0x4
0x51c…526 at0005 = ╱4d╱M╱ // 0x521 @0x5
0x51c…526 at0006 = ╱4f╱O╱ // 0x522 @0x6
0x51c…526 at0007 = ╱4d╱M╱ // 0x523 @0x7
0x51c…526 at0008 = ╱53╱S╱ // 0x524 @0x8
0x51c…526 at0009 = EOL // 0x525 @0x9
0x51c…526 }
0x526…537 9b25 0430 ENDPROC DIMENSIONER
0x526…537 LineComal80 {
0x526…537 ptr = 0x9b25 // 0x526 @0x0
0x526…537 lno = 0x01ae // 0x528 @0x2
0x526…537 at0004 = ╱9f╱ ENDPROC ╱ // 0x52a @0x4
0x526…537 at0005 = ╱44╱D╱ // 0x52b @0x5
0x526…537 at0006 = ╱49╱I╱ // 0x52c @0x6
0x526…537 at0007 = ╱4d╱M╱ // 0x52d @0x7
0x526…537 at0008 = ╱45╱E╱ // 0x52e @0x8
0x526…537 at0009 = ╱4e╱N╱ // 0x52f @0x9
0x526…537 at000a = ╱53╱S╱ // 0x530 @0xa
0x526…537 at000b = ╱49╱I╱ // 0x531 @0xb
0x526…537 at000c = ╱4f╱O╱ // 0x532 @0xc
0x526…537 at000d = ╱4e╱N╱ // 0x533 @0xd
0x526…537 at000e = ╱45╱E╱ // 0x534 @0xe
0x526…537 at000f = ╱52╱R╱ // 0x535 @0xf
0x526…537 at0010 = EOL // 0x536 @0x10
0x526…537 }
0x537…53c 9b2a 0440
0x537…53c LineComal80 {
0x537…53c ptr = 0x9b2a // 0x537 @0x0
0x537…53c lno = 0x01b8 // 0x539 @0x2
0x537…53c at0004 = EOL // 0x53b @0x4
0x537…53c }
0x53c…54a 9b38 0450 PROC INITIER
0x53c…54a LineComal80 {
0x53c…54a ptr = 0x9b38 // 0x53c @0x0
0x53c…54a lno = 0x01c2 // 0x53e @0x2
0x53c…54a at0004 = ╱9e00╱ PROC ╱ // 0x540 @0x4
0x53c…54a at0006 = ╱49╱I╱ // 0x542 @0x6
0x53c…54a at0007 = ╱4e╱N╱ // 0x543 @0x7
0x53c…54a at0008 = ╱49╱I╱ // 0x544 @0x8
0x53c…54a at0009 = ╱54╱T╱ // 0x545 @0x9
0x53c…54a at000a = ╱49╱I╱ // 0x546 @0xa
0x53c…54a at000b = ╱45╱E╱ // 0x547 @0xb
0x53c…54a at000c = ╱52╱R╱ // 0x548 @0xc
0x53c…54a at000d = EOL // 0x549 @0xd
0x53c…54a }
0x54a…55c 9b4a 0460 LET PRGFL$ := "DP2"
0x54a…55c LineComal80 {
0x54a…55c ptr = 0x9b4a // 0x54a @0x0
0x54a…55c lno = 0x01cc // 0x54c @0x2
0x54a…55c at0004 = ╱86╱ LET ╱ // 0x54e @0x4
0x54a…55c at0005 = ╱50╱P╱ // 0x54f @0x5
0x54a…55c at0006 = ╱52╱R╱ // 0x550 @0x6
0x54a…55c at0007 = ╱47╱G╱ // 0x551 @0x7
0x54a…55c at0008 = ╱46╱F╱ // 0x552 @0x8
0x54a…55c at0009 = ╱4c╱L╱ // 0x553 @0x9
0x54a…55c at000a = ╱ef╱$╱ // 0x554 @0xa
0x54a…55c at000b = ╱f0╱ := ╱ // 0x555 @0xb
0x54a…55c at000c = ╱22╱"╱ // 0x556 @0xc
0x54a…55c at000d = ╱44╱D╱ // 0x557 @0xd
0x54a…55c at000e = ╱50╱P╱ // 0x558 @0xe
0x54a…55c at000f = ╱32╱2╱ // 0x559 @0xf
0x54a…55c at0010 = ╱22╱"╱ // 0x55a @0x10
0x54a…55c at0011 = EOL // 0x55b @0x11
0x54a…55c }
0x55c…57a 9b68 0470 LET PROGRAM$ := PRGFL$ + ":SYSIP"
0x55c…57a LineComal80 {
0x55c…57a ptr = 0x9b68 // 0x55c @0x0
0x55c…57a lno = 0x01d6 // 0x55e @0x2
0x55c…57a at0004 = ╱86╱ LET ╱ // 0x560 @0x4
0x55c…57a at0005 = ╱50╱P╱ // 0x561 @0x5
0x55c…57a at0006 = ╱52╱R╱ // 0x562 @0x6
0x55c…57a at0007 = ╱4f╱O╱ // 0x563 @0x7
0x55c…57a at0008 = ╱47╱G╱ // 0x564 @0x8
0x55c…57a at0009 = ╱52╱R╱ // 0x565 @0x9
0x55c…57a at000a = ╱41╱A╱ // 0x566 @0xa
0x55c…57a at000b = ╱4d╱M╱ // 0x567 @0xb
0x55c…57a at000c = ╱ef╱$╱ // 0x568 @0xc
0x55c…57a at000d = ╱f0╱ := ╱ // 0x569 @0xd
0x55c…57a at000e = ╱50╱P╱ // 0x56a @0xe
0x55c…57a at000f = ╱52╱R╱ // 0x56b @0xf
0x55c…57a at0010 = ╱47╱G╱ // 0x56c @0x10
0x55c…57a at0011 = ╱46╱F╱ // 0x56d @0x11
0x55c…57a at0012 = ╱4c╱L╱ // 0x56e @0x12
0x55c…57a at0013 = ╱ef╱$╱ // 0x56f @0x13
0x55c…57a at0014 = ╱eb╱ + ╱ // 0x570 @0x14
0x55c…57a at0015 = ╱22╱"╱ // 0x571 @0x15
0x55c…57a at0016 = ╱3a╱:╱ // 0x572 @0x16
0x55c…57a at0017 = ╱53╱S╱ // 0x573 @0x17
0x55c…57a at0018 = ╱59╱Y╱ // 0x574 @0x18
0x55c…57a at0019 = ╱53╱S╱ // 0x575 @0x19
0x55c…57a at001a = ╱49╱I╱ // 0x576 @0x1a
0x55c…57a at001b = ╱50╱P╱ // 0x577 @0x1b
0x55c…57a at001c = ╱22╱"╱ // 0x578 @0x1c
0x55c…57a at001d = EOL // 0x579 @0x1d
0x55c…57a }
0x57a…5b4 9ba2 0480 LET SPC$ := " "
0x57a…5b4 LineComal80 {
0x57a…5b4 ptr = 0x9ba2 // 0x57a @0x0
0x57a…5b4 lno = 0x01e0 // 0x57c @0x2
0x57a…5b4 at0004 = ╱86╱ LET ╱ // 0x57e @0x4
0x57a…5b4 at0005 = ╱53╱S╱ // 0x57f @0x5
0x57a…5b4 at0006 = ╱50╱P╱ // 0x580 @0x6
0x57a…5b4 at0007 = ╱43╱C╱ // 0x581 @0x7
0x57a…5b4 at0008 = ╱ef╱$╱ // 0x582 @0x8
0x57a…5b4 at0009 = ╱f0╱ := ╱ // 0x583 @0x9
0x57a…5b4 at000a = ╱22╱"╱ // 0x584 @0xa
0x57a…5b4 at000b = ╱20╱…╱ // 0x585 @0xb
0x57a…5b4 at000c = ╱20╱…╱ // 0x586 @0xc
0x57a…5b4 at000d = ╱20╱…╱ // 0x587 @0xd
0x57a…5b4 at000e = ╱20╱…╱ // 0x588 @0xe
0x57a…5b4 at000f = ╱20╱…╱ // 0x589 @0xf
0x57a…5b4 at0010 = ╱20╱…╱ // 0x58a @0x10
0x57a…5b4 at0011 = ╱20╱…╱ // 0x58b @0x11
0x57a…5b4 at0012 = ╱20╱…╱ // 0x58c @0x12
0x57a…5b4 at0013 = ╱20╱…╱ // 0x58d @0x13
0x57a…5b4 at0014 = ╱20╱…╱ // 0x58e @0x14
0x57a…5b4 at0015 = ╱20╱…╱ // 0x58f @0x15
0x57a…5b4 at0016 = ╱20╱…╱ // 0x590 @0x16
0x57a…5b4 at0017 = ╱20╱…╱ // 0x591 @0x17
0x57a…5b4 at0018 = ╱20╱…╱ // 0x592 @0x18
0x57a…5b4 at0019 = ╱20╱…╱ // 0x593 @0x19
0x57a…5b4 at001a = ╱20╱…╱ // 0x594 @0x1a
0x57a…5b4 at001b = ╱20╱…╱ // 0x595 @0x1b
0x57a…5b4 at001c = ╱20╱…╱ // 0x596 @0x1c
0x57a…5b4 at001d = ╱20╱…╱ // 0x597 @0x1d
0x57a…5b4 at001e = ╱20╱…╱ // 0x598 @0x1e
0x57a…5b4 at001f = ╱20╱…╱ // 0x599 @0x1f
0x57a…5b4 at0020 = ╱20╱…╱ // 0x59a @0x20
0x57a…5b4 at0021 = ╱20╱…╱ // 0x59b @0x21
0x57a…5b4 at0022 = ╱20╱…╱ // 0x59c @0x22
0x57a…5b4 at0023 = ╱20╱…╱ // 0x59d @0x23
0x57a…5b4 at0024 = ╱20╱…╱ // 0x59e @0x24
0x57a…5b4 at0025 = ╱20╱…╱ // 0x59f @0x25
0x57a…5b4 at0026 = ╱20╱…╱ // 0x5a0 @0x26
0x57a…5b4 at0027 = ╱20╱…╱ // 0x5a1 @0x27
0x57a…5b4 at0028 = ╱20╱…╱ // 0x5a2 @0x28
0x57a…5b4 at0029 = ╱20╱…╱ // 0x5a3 @0x29
0x57a…5b4 at002a = ╱20╱…╱ // 0x5a4 @0x2a
0x57a…5b4 at002b = ╱20╱…╱ // 0x5a5 @0x2b
0x57a…5b4 at002c = ╱20╱…╱ // 0x5a6 @0x2c
0x57a…5b4 at002d = ╱20╱…╱ // 0x5a7 @0x2d
0x57a…5b4 at002e = ╱20╱…╱ // 0x5a8 @0x2e
0x57a…5b4 at002f = ╱20╱…╱ // 0x5a9 @0x2f
0x57a…5b4 at0030 = ╱20╱…╱ // 0x5aa @0x30
0x57a…5b4 at0031 = ╱20╱…╱ // 0x5ab @0x31
0x57a…5b4 at0032 = ╱20╱…╱ // 0x5ac @0x32
0x57a…5b4 at0033 = ╱20╱…╱ // 0x5ad @0x33
0x57a…5b4 at0034 = ╱20╱…╱ // 0x5ae @0x34
0x57a…5b4 at0035 = ╱20╱…╱ // 0x5af @0x35
0x57a…5b4 at0036 = ╱20╱…╱ // 0x5b0 @0x36
0x57a…5b4 at0037 = ╱20╱…╱ // 0x5b1 @0x37
0x57a…5b4 at0038 = ╱22╱"╱ // 0x5b2 @0x38
0x57a…5b4 at0039 = EOL // 0x5b3 @0x39
0x57a…5b4 }
0x5b4…5c8 9bb6 0490 LET SPC$ := SPC$ + SPC$
0x5b4…5c8 LineComal80 {
0x5b4…5c8 ptr = 0x9bb6 // 0x5b4 @0x0
0x5b4…5c8 lno = 0x01ea // 0x5b6 @0x2
0x5b4…5c8 at0004 = ╱86╱ LET ╱ // 0x5b8 @0x4
0x5b4…5c8 at0005 = ╱53╱S╱ // 0x5b9 @0x5
0x5b4…5c8 at0006 = ╱50╱P╱ // 0x5ba @0x6
0x5b4…5c8 at0007 = ╱43╱C╱ // 0x5bb @0x7
0x5b4…5c8 at0008 = ╱ef╱$╱ // 0x5bc @0x8
0x5b4…5c8 at0009 = ╱f0╱ := ╱ // 0x5bd @0x9
0x5b4…5c8 at000a = ╱53╱S╱ // 0x5be @0xa
0x5b4…5c8 at000b = ╱50╱P╱ // 0x5bf @0xb
0x5b4…5c8 at000c = ╱43╱C╱ // 0x5c0 @0xc
0x5b4…5c8 at000d = ╱ef╱$╱ // 0x5c1 @0xd
0x5b4…5c8 at000e = ╱eb╱ + ╱ // 0x5c2 @0xe
0x5b4…5c8 at000f = ╱53╱S╱ // 0x5c3 @0xf
0x5b4…5c8 at0010 = ╱50╱P╱ // 0x5c4 @0x10
0x5b4…5c8 at0011 = ╱43╱C╱ // 0x5c5 @0x11
0x5b4…5c8 at0012 = ╱ef╱$╱ // 0x5c6 @0x12
0x5b4…5c8 at0013 = EOL // 0x5c7 @0x13
0x5b4…5c8 }
0x5c8…5f3 9be1 0500 LET FALSE := 0 ; TRUE := 1 // boolske variable
0x5c8…5f3 LineComal80 {
0x5c8…5f3 ptr = 0x9be1 // 0x5c8 @0x0
0x5c8…5f3 lno = 0x01f4 // 0x5ca @0x2
0x5c8…5f3 at0004 = ╱86╱ LET ╱ // 0x5cc @0x4
0x5c8…5f3 at0005 = ╱46╱F╱ // 0x5cd @0x5
0x5c8…5f3 at0006 = ╱41╱A╱ // 0x5ce @0x6
0x5c8…5f3 at0007 = ╱4c╱L╱ // 0x5cf @0x7
0x5c8…5f3 at0008 = ╱53╱S╱ // 0x5d0 @0x8
0x5c8…5f3 at0009 = ╱45╱E╱ // 0x5d1 @0x9
0x5c8…5f3 at000a = ╱f0╱ := ╱ // 0x5d2 @0xa
0x5c8…5f3 at000b = ╱30╱0╱ // 0x5d3 @0xb
0x5c8…5f3 at000c = ╱f20000╱ // 0x5d4 @0xc
0x5c8…5f3 at000f = ╱ea╱ ; ╱ // 0x5d7 @0xf
0x5c8…5f3 at0010 = ╱54╱T╱ // 0x5d8 @0x10
0x5c8…5f3 at0011 = ╱52╱R╱ // 0x5d9 @0x11
0x5c8…5f3 at0012 = ╱55╱U╱ // 0x5da @0x12
0x5c8…5f3 at0013 = ╱45╱E╱ // 0x5db @0x13
0x5c8…5f3 at0014 = ╱f0╱ := ╱ // 0x5dc @0x14
0x5c8…5f3 at0015 = ╱31╱1╱ // 0x5dd @0x15
0x5c8…5f3 at0016 = ╱f20100╱ // 0x5de @0x16
0x5c8…5f3 at0019 = ╱89╱ // ╱ // 0x5e1 @0x19
0x5c8…5f3 at001a = ╱62╱b╱ // 0x5e2 @0x1a
0x5c8…5f3 at001b = ╱6f╱o╱ // 0x5e3 @0x1b
0x5c8…5f3 at001c = ╱6f╱o╱ // 0x5e4 @0x1c
0x5c8…5f3 at001d = ╱6c╱l╱ // 0x5e5 @0x1d
0x5c8…5f3 at001e = ╱73╱s╱ // 0x5e6 @0x1e
0x5c8…5f3 at001f = ╱6b╱k╱ // 0x5e7 @0x1f
0x5c8…5f3 at0020 = ╱65╱e╱ // 0x5e8 @0x20
0x5c8…5f3 at0021 = ╱20╱…╱ // 0x5e9 @0x21
0x5c8…5f3 at0022 = ╱76╱v╱ // 0x5ea @0x22
0x5c8…5f3 at0023 = ╱61╱a╱ // 0x5eb @0x23
0x5c8…5f3 at0024 = ╱72╱r╱ // 0x5ec @0x24
0x5c8…5f3 at0025 = ╱69╱i╱ // 0x5ed @0x25
0x5c8…5f3 at0026 = ╱61╱a╱ // 0x5ee @0x26
0x5c8…5f3 at0027 = ╱62╱b╱ // 0x5ef @0x27
0x5c8…5f3 at0028 = ╱6c╱l╱ // 0x5f0 @0x28
0x5c8…5f3 at0029 = ╱65╱e╱ // 0x5f1 @0x29
0x5c8…5f3 at002a = EOL // 0x5f2 @0x2a
0x5c8…5f3 }
0x5f3…613 9c01 0510 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0x5f3…613 LineComal80 {
0x5f3…613 ptr = 0x9c01 // 0x5f3 @0x0
0x5f3…613 lno = 0x01fe // 0x5f5 @0x2
0x5f3…613 at0004 = ╱86╱ LET ╱ // 0x5f7 @0x4
0x5f3…613 at0005 = ╱53╱S╱ // 0x5f8 @0x5
0x5f3…613 at0006 = ╱59╱Y╱ // 0x5f9 @0x6
0x5f3…613 at0007 = ╱53╱S╱ // 0x5fa @0x7
0x5f3…613 at0008 = ╱50╱P╱ // 0x5fb @0x8
0x5f3…613 at0009 = ╱41╱A╱ // 0x5fc @0x9
0x5f3…613 at000a = ╱52╱R╱ // 0x5fd @0xa
0x5f3…613 at000b = ╱41╱A╱ // 0x5fe @0xb
0x5f3…613 at000c = ╱ef╱$╱ // 0x5ff @0xc
0x5f3…613 at000d = ╱f0╱ := ╱ // 0x600 @0xd
0x5f3…613 at000e = ╱50╱P╱ // 0x601 @0xe
0x5f3…613 at000f = ╱52╱R╱ // 0x602 @0xf
0x5f3…613 at0010 = ╱47╱G╱ // 0x603 @0x10
0x5f3…613 at0011 = ╱46╱F╱ // 0x604 @0x11
0x5f3…613 at0012 = ╱4c╱L╱ // 0x605 @0x12
0x5f3…613 at0013 = ╱ef╱$╱ // 0x606 @0x13
0x5f3…613 at0014 = ╱eb╱ + ╱ // 0x607 @0x14
0x5f3…613 at0015 = ╱22╱"╱ // 0x608 @0x15
0x5f3…613 at0016 = ╱3a╱:╱ // 0x609 @0x16
0x5f3…613 at0017 = ╱53╱S╱ // 0x60a @0x17
0x5f3…613 at0018 = ╱59╱Y╱ // 0x60b @0x18
0x5f3…613 at0019 = ╱53╱S╱ // 0x60c @0x19
0x5f3…613 at001a = ╱50╱P╱ // 0x60d @0x1a
0x5f3…613 at001b = ╱41╱A╱ // 0x60e @0x1b
0x5f3…613 at001c = ╱52╱R╱ // 0x60f @0x1c
0x5f3…613 at001d = ╱41╱A╱ // 0x610 @0x1d
0x5f3…613 at001e = ╱22╱"╱ // 0x611 @0x1e
0x5f3…613 at001f = EOL // 0x612 @0x1f
0x5f3…613 }
0x613…62e 9c1c 0520 EXEC OPENFIL(SYSPARA$,"R")
0x613…62e LineComal80 {
0x613…62e ptr = 0x9c1c // 0x613 @0x0
0x613…62e lno = 0x0208 // 0x615 @0x2
0x613…62e at0004 = ╱9d╱ EXEC ╱ // 0x617 @0x4
0x613…62e at0005 = ╱4f╱O╱ // 0x618 @0x5
0x613…62e at0006 = ╱50╱P╱ // 0x619 @0x6
0x613…62e at0007 = ╱45╱E╱ // 0x61a @0x7
0x613…62e at0008 = ╱4e╱N╱ // 0x61b @0x8
0x613…62e at0009 = ╱46╱F╱ // 0x61c @0x9
0x613…62e at000a = ╱49╱I╱ // 0x61d @0xa
0x613…62e at000b = ╱4c╱L╱ // 0x61e @0xb
0x613…62e at000c = ╱ed╱(╱ // 0x61f @0xc
0x613…62e at000d = ╱53╱S╱ // 0x620 @0xd
0x613…62e at000e = ╱59╱Y╱ // 0x621 @0xe
0x613…62e at000f = ╱53╱S╱ // 0x622 @0xf
0x613…62e at0010 = ╱50╱P╱ // 0x623 @0x10
0x613…62e at0011 = ╱41╱A╱ // 0x624 @0x11
0x613…62e at0012 = ╱52╱R╱ // 0x625 @0x12
0x613…62e at0013 = ╱41╱A╱ // 0x626 @0x13
0x613…62e at0014 = ╱ef╱$╱ // 0x627 @0x14
0x613…62e at0015 = ╱ec╱,╱ // 0x628 @0x15
0x613…62e at0016 = ╱22╱"╱ // 0x629 @0x16
0x613…62e at0017 = ╱52╱R╱ // 0x62a @0x17
0x613…62e at0018 = ╱22╱"╱ // 0x62b @0x18
0x613…62e at0019 = ╱ee╱)╱ // 0x62c @0x19
0x613…62e at001a = EOL // 0x62d @0x1a
0x613…62e }
0x62e…654 9c42 0530 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0x62e…654 LineComal80 {
0x62e…654 ptr = 0x9c42 // 0x62e @0x0
0x62e…654 lno = 0x0212 // 0x630 @0x2
0x62e…654 at0004 = ╱a9╱ GET ╱ // 0x632 @0x4
0x62e…654 at0005 = ╱53╱S╱ // 0x633 @0x5
0x62e…654 at0006 = ╱59╱Y╱ // 0x634 @0x6
0x62e…654 at0007 = ╱53╱S╱ // 0x635 @0x7
0x62e…654 at0008 = ╱50╱P╱ // 0x636 @0x8
0x62e…654 at0009 = ╱41╱A╱ // 0x637 @0x9
0x62e…654 at000a = ╱52╱R╱ // 0x638 @0xa
0x62e…654 at000b = ╱41╱A╱ // 0x639 @0xb
0x62e…654 at000c = ╱ef╱$╱ // 0x63a @0xc
0x62e…654 at000d = ╱ec╱,╱ // 0x63b @0xd
0x62e…654 at000e = ╱31╱1╱ // 0x63c @0xe
0x62e…654 at000f = ╱f20100╱ // 0x63d @0xf
0x62e…654 at0012 = ╱f1╱ : ╱ // 0x640 @0x12
0x62e…654 at0013 = ╱53╱S╱ // 0x641 @0x13
0x62e…654 at0014 = ╱59╱Y╱ // 0x642 @0x14
0x62e…654 at0015 = ╱53╱S╱ // 0x643 @0x15
0x62e…654 at0016 = ╱54╱T╱ // 0x644 @0x16
0x62e…654 at0017 = ╱5f╱_╱ // 0x645 @0x17
0x62e…654 at0018 = ╱4e╱N╱ // 0x646 @0x18
0x62e…654 at0019 = ╱41╱A╱ // 0x647 @0x19
0x62e…654 at001a = ╱56╱V╱ // 0x648 @0x1a
0x62e…654 at001b = ╱4e╱N╱ // 0x649 @0x1b
0x62e…654 at001c = ╱ef╱$╱ // 0x64a @0x1c
0x62e…654 at001d = ╱ec╱,╱ // 0x64b @0x1d
0x62e…654 at001e = ╱53╱S╱ // 0x64c @0x1e
0x62e…654 at001f = ╱5f╱_╱ // 0x64d @0x1f
0x62e…654 at0020 = ╱4b╱K╱ // 0x64e @0x20
0x62e…654 at0021 = ╱4f╱O╱ // 0x64f @0x21
0x62e…654 at0022 = ╱44╱D╱ // 0x650 @0x22
0x62e…654 at0023 = ╱45╱E╱ // 0x651 @0x23
0x62e…654 at0024 = ╱ef╱$╱ // 0x652 @0x24
0x62e…654 at0025 = EOL // 0x653 @0x25
0x62e…654 }
0x654…666 9c54 0540 EXEC TERMINAL_IDX
0x654…666 LineComal80 {
0x654…666 ptr = 0x9c54 // 0x654 @0x0
0x654…666 lno = 0x021c // 0x656 @0x2
0x654…666 at0004 = ╱9d╱ EXEC ╱ // 0x658 @0x4
0x654…666 at0005 = ╱54╱T╱ // 0x659 @0x5
0x654…666 at0006 = ╱45╱E╱ // 0x65a @0x6
0x654…666 at0007 = ╱52╱R╱ // 0x65b @0x7
0x654…666 at0008 = ╱4d╱M╱ // 0x65c @0x8
0x654…666 at0009 = ╱49╱I╱ // 0x65d @0x9
0x654…666 at000a = ╱4e╱N╱ // 0x65e @0xa
0x654…666 at000b = ╱41╱A╱ // 0x65f @0xb
0x654…666 at000c = ╱4c╱L╱ // 0x660 @0xc
0x654…666 at000d = ╱5f╱_╱ // 0x661 @0xd
0x654…666 at000e = ╱49╱I╱ // 0x662 @0xe
0x654…666 at000f = ╱44╱D╱ // 0x663 @0xf
0x654…666 at0010 = ╱58╱X╱ // 0x664 @0x10
0x654…666 at0011 = EOL // 0x665 @0x11
0x654…666 }
0x666…674 9c62 0550 CLOSE SYSPARA$
0x666…674 LineComal80 {
0x666…674 ptr = 0x9c62 // 0x666 @0x0
0x666…674 lno = 0x0226 // 0x668 @0x2
0x666…674 at0004 = ╱a8╱ CLOSE ╱ // 0x66a @0x4
0x666…674 at0005 = ╱53╱S╱ // 0x66b @0x5
0x666…674 at0006 = ╱59╱Y╱ // 0x66c @0x6
0x666…674 at0007 = ╱53╱S╱ // 0x66d @0x7
0x666…674 at0008 = ╱50╱P╱ // 0x66e @0x8
0x666…674 at0009 = ╱41╱A╱ // 0x66f @0x9
0x666…674 at000a = ╱52╱R╱ // 0x670 @0xa
0x666…674 at000b = ╱41╱A╱ // 0x671 @0xb
0x666…674 at000c = ╱ef╱$╱ // 0x672 @0xc
0x666…674 at000d = EOL // 0x673 @0xd
0x666…674 }
0x674…6a4 9c92 0560 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0x674…6a4 LineComal80 {
0x674…6a4 ptr = 0x9c92 // 0x674 @0x0
0x674…6a4 lno = 0x0230 // 0x676 @0x2
0x674…6a4 at0004 = ╱86╱ LET ╱ // 0x678 @0x4
0x674…6a4 at0005 = ╱50╱P╱ // 0x679 @0x5
0x674…6a4 at0006 = ╱41╱A╱ // 0x67a @0x6
0x674…6a4 at0007 = ╱52╱R╱ // 0x67b @0x7
0x674…6a4 at0008 = ╱41╱A╱ // 0x67c @0x8
0x674…6a4 at0009 = ╱4d╱M╱ // 0x67d @0x9
0x674…6a4 at000a = ╱ef╱$╱ // 0x67e @0xa
0x674…6a4 at000b = ╱f0╱ := ╱ // 0x67f @0xb
0x674…6a4 at000c = ╱44╱D╱ // 0x680 @0xc
0x674…6a4 at000d = ╱41╱A╱ // 0x681 @0xd
0x674…6a4 at000e = ╱54╱T╱ // 0x682 @0xe
0x674…6a4 at000f = ╱41╱A╱ // 0x683 @0xf
0x674…6a4 at0010 = ╱46╱F╱ // 0x684 @0x10
0x674…6a4 at0011 = ╱4c╱L╱ // 0x685 @0x11
0x674…6a4 at0012 = ╱ef╱$╱ // 0x686 @0x12
0x674…6a4 at0013 = ╱eb╱ + ╱ // 0x687 @0x13
0x674…6a4 at0014 = ╱22╱"╱ // 0x688 @0x14
0x674…6a4 at0015 = ╱3a╱:╱ // 0x689 @0x15
0x674…6a4 at0016 = ╱22╱"╱ // 0x68a @0x16
0x674…6a4 at0017 = ╱eb╱ + ╱ // 0x68b @0x17
0x674…6a4 at0018 = ╱53╱S╱ // 0x68c @0x18
0x674…6a4 at0019 = ╱5f╱_╱ // 0x68d @0x19
0x674…6a4 at001a = ╱4b╱K╱ // 0x68e @0x1a
0x674…6a4 at001b = ╱4f╱O╱ // 0x68f @0x1b
0x674…6a4 at001c = ╱44╱D╱ // 0x690 @0x1c
0x674…6a4 at001d = ╱45╱E╱ // 0x691 @0x1d
0x674…6a4 at001e = ╱ef╱$╱ // 0x692 @0x1e
0x674…6a4 at001f = ╱eb╱ + ╱ // 0x693 @0x1f
0x674…6a4 at0020 = ╱54╱T╱ // 0x694 @0x20
0x674…6a4 at0021 = ╱5f╱_╱ // 0x695 @0x21
0x674…6a4 at0022 = ╱4b╱K╱ // 0x696 @0x22
0x674…6a4 at0023 = ╱4f╱O╱ // 0x697 @0x23
0x674…6a4 at0024 = ╱44╱D╱ // 0x698 @0x24
0x674…6a4 at0025 = ╱45╱E╱ // 0x699 @0x25
0x674…6a4 at0026 = ╱ef╱$╱ // 0x69a @0x26
0x674…6a4 at0027 = ╱eb╱ + ╱ // 0x69b @0x27
0x674…6a4 at0028 = ╱22╱"╱ // 0x69c @0x28
0x674…6a4 at0029 = ╱50╱P╱ // 0x69d @0x29
0x674…6a4 at002a = ╱41╱A╱ // 0x69e @0x2a
0x674…6a4 at002b = ╱52╱R╱ // 0x69f @0x2b
0x674…6a4 at002c = ╱41╱A╱ // 0x6a0 @0x2c
0x674…6a4 at002d = ╱4d╱M╱ // 0x6a1 @0x2d
0x674…6a4 at002e = ╱22╱"╱ // 0x6a2 @0x2e
0x674…6a4 at002f = EOL // 0x6a3 @0x2f
0x674…6a4 }
0x6a4…6bd 9cab 0570 EXEC OPENFIL(PARAM$,"R")
0x6a4…6bd LineComal80 {
0x6a4…6bd ptr = 0x9cab // 0x6a4 @0x0
0x6a4…6bd lno = 0x023a // 0x6a6 @0x2
0x6a4…6bd at0004 = ╱9d╱ EXEC ╱ // 0x6a8 @0x4
0x6a4…6bd at0005 = ╱4f╱O╱ // 0x6a9 @0x5
0x6a4…6bd at0006 = ╱50╱P╱ // 0x6aa @0x6
0x6a4…6bd at0007 = ╱45╱E╱ // 0x6ab @0x7
0x6a4…6bd at0008 = ╱4e╱N╱ // 0x6ac @0x8
0x6a4…6bd at0009 = ╱46╱F╱ // 0x6ad @0x9
0x6a4…6bd at000a = ╱49╱I╱ // 0x6ae @0xa
0x6a4…6bd at000b = ╱4c╱L╱ // 0x6af @0xb
0x6a4…6bd at000c = ╱ed╱(╱ // 0x6b0 @0xc
0x6a4…6bd at000d = ╱50╱P╱ // 0x6b1 @0xd
0x6a4…6bd at000e = ╱41╱A╱ // 0x6b2 @0xe
0x6a4…6bd at000f = ╱52╱R╱ // 0x6b3 @0xf
0x6a4…6bd at0010 = ╱41╱A╱ // 0x6b4 @0x10
0x6a4…6bd at0011 = ╱4d╱M╱ // 0x6b5 @0x11
0x6a4…6bd at0012 = ╱ef╱$╱ // 0x6b6 @0x12
0x6a4…6bd at0013 = ╱ec╱,╱ // 0x6b7 @0x13
0x6a4…6bd at0014 = ╱22╱"╱ // 0x6b8 @0x14
0x6a4…6bd at0015 = ╱52╱R╱ // 0x6b9 @0x15
0x6a4…6bd at0016 = ╱22╱"╱ // 0x6ba @0x16
0x6a4…6bd at0017 = ╱ee╱)╱ // 0x6bb @0x17
0x6a4…6bd at0018 = EOL // 0x6bc @0x18
0x6a4…6bd }
0x6bd…6e8 9cd6 0580 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0x6bd…6e8 LineComal80 {
0x6bd…6e8 ptr = 0x9cd6 // 0x6bd @0x0
0x6bd…6e8 lno = 0x0244 // 0x6bf @0x2
0x6bd…6e8 at0004 = ╱a9╱ GET ╱ // 0x6c1 @0x4
0x6bd…6e8 at0005 = ╱50╱P╱ // 0x6c2 @0x5
0x6bd…6e8 at0006 = ╱41╱A╱ // 0x6c3 @0x6
0x6bd…6e8 at0007 = ╱52╱R╱ // 0x6c4 @0x7
0x6bd…6e8 at0008 = ╱41╱A╱ // 0x6c5 @0x8
0x6bd…6e8 at0009 = ╱4d╱M╱ // 0x6c6 @0x9
0x6bd…6e8 at000a = ╱ef╱$╱ // 0x6c7 @0xa
0x6bd…6e8 at000b = ╱ec╱,╱ // 0x6c8 @0xb
0x6bd…6e8 at000c = ╱31╱1╱ // 0x6c9 @0xc
0x6bd…6e8 at000d = ╱f20100╱ // 0x6ca @0xd
0x6bd…6e8 at0010 = ╱f1╱ : ╱ // 0x6cd @0x10
0x6bd…6e8 at0011 = ╱46╱F╱ // 0x6ce @0x11
0x6bd…6e8 at0012 = ╱49╱I╱ // 0x6cf @0x12
0x6bd…6e8 at0013 = ╱52╱R╱ // 0x6d0 @0x13
0x6bd…6e8 at0014 = ╱4d╱M╱ // 0x6d1 @0x14
0x6bd…6e8 at0015 = ╱41╱A╱ // 0x6d2 @0x15
0x6bd…6e8 at0016 = ╱4e╱N╱ // 0x6d3 @0x16
0x6bd…6e8 at0017 = ╱41╱A╱ // 0x6d4 @0x17
0x6bd…6e8 at0018 = ╱56╱V╱ // 0x6d5 @0x18
0x6bd…6e8 at0019 = ╱4e╱N╱ // 0x6d6 @0x19
0x6bd…6e8 at001a = ╱ef╱$╱ // 0x6d7 @0x1a
0x6bd…6e8 at001b = ╱ec╱,╱ // 0x6d8 @0x1b
0x6bd…6e8 at001c = ╱53╱S╱ // 0x6d9 @0x1c
0x6bd…6e8 at001d = ╱59╱Y╱ // 0x6da @0x1d
0x6bd…6e8 at001e = ╱53╱S╱ // 0x6db @0x1e
0x6bd…6e8 at001f = ╱54╱T╱ // 0x6dc @0x1f
0x6bd…6e8 at0020 = ╱5f╱_╱ // 0x6dd @0x20
0x6bd…6e8 at0021 = ╱44╱D╱ // 0x6de @0x21
0x6bd…6e8 at0022 = ╱41╱A╱ // 0x6df @0x22
0x6bd…6e8 at0023 = ╱54╱T╱ // 0x6e0 @0x23
0x6bd…6e8 at0024 = ╱ef╱$╱ // 0x6e1 @0x24
0x6bd…6e8 at0025 = ╱ec╱,╱ // 0x6e2 @0x25
0x6bd…6e8 at0026 = ╱4d╱M╱ // 0x6e3 @0x26
0x6bd…6e8 at0027 = ╱4f╱O╱ // 0x6e4 @0x27
0x6bd…6e8 at0028 = ╱4d╱M╱ // 0x6e5 @0x28
0x6bd…6e8 at0029 = ╱53╱S╱ // 0x6e6 @0x29
0x6bd…6e8 at002a = EOL // 0x6e7 @0x2a
0x6bd…6e8 }
0x6e8…6f4 9ce2 0590 CLOSE PARAM$
0x6e8…6f4 LineComal80 {
0x6e8…6f4 ptr = 0x9ce2 // 0x6e8 @0x0
0x6e8…6f4 lno = 0x024e // 0x6ea @0x2
0x6e8…6f4 at0004 = ╱a8╱ CLOSE ╱ // 0x6ec @0x4
0x6e8…6f4 at0005 = ╱50╱P╱ // 0x6ed @0x5
0x6e8…6f4 at0006 = ╱41╱A╱ // 0x6ee @0x6
0x6e8…6f4 at0007 = ╱52╱R╱ // 0x6ef @0x7
0x6e8…6f4 at0008 = ╱41╱A╱ // 0x6f0 @0x8
0x6e8…6f4 at0009 = ╱4d╱M╱ // 0x6f1 @0x9
0x6e8…6f4 at000a = ╱ef╱$╱ // 0x6f2 @0xa
0x6e8…6f4 at000b = EOL // 0x6f3 @0xb
0x6e8…6f4 }
0x6f4…701 9cef 0600 ENDPROC INITIER
0x6f4…701 LineComal80 {
0x6f4…701 ptr = 0x9cef // 0x6f4 @0x0
0x6f4…701 lno = 0x0258 // 0x6f6 @0x2
0x6f4…701 at0004 = ╱9f╱ ENDPROC ╱ // 0x6f8 @0x4
0x6f4…701 at0005 = ╱49╱I╱ // 0x6f9 @0x5
0x6f4…701 at0006 = ╱4e╱N╱ // 0x6fa @0x6
0x6f4…701 at0007 = ╱49╱I╱ // 0x6fb @0x7
0x6f4…701 at0008 = ╱54╱T╱ // 0x6fc @0x8
0x6f4…701 at0009 = ╱49╱I╱ // 0x6fd @0x9
0x6f4…701 at000a = ╱45╱E╱ // 0x6fe @0xa
0x6f4…701 at000b = ╱52╱R╱ // 0x6ff @0xb
0x6f4…701 at000c = EOL // 0x700 @0xc
0x6f4…701 }
0x701…706 9cf4 0610
0x701…706 LineComal80 {
0x701…706 ptr = 0x9cf4 // 0x701 @0x0
0x701…706 lno = 0x0262 // 0x703 @0x2
0x701…706 at0004 = EOL // 0x705 @0x4
0x701…706 }
0x706…719 9d07 0620 PROC TERMINAL_IDX
0x706…719 LineComal80 {
0x706…719 ptr = 0x9d07 // 0x706 @0x0
0x706…719 lno = 0x026c // 0x708 @0x2
0x706…719 at0004 = ╱9e00╱ PROC ╱ // 0x70a @0x4
0x706…719 at0006 = ╱54╱T╱ // 0x70c @0x6
0x706…719 at0007 = ╱45╱E╱ // 0x70d @0x7
0x706…719 at0008 = ╱52╱R╱ // 0x70e @0x8
0x706…719 at0009 = ╱4d╱M╱ // 0x70f @0x9
0x706…719 at000a = ╱49╱I╱ // 0x710 @0xa
0x706…719 at000b = ╱4e╱N╱ // 0x711 @0xb
0x706…719 at000c = ╱41╱A╱ // 0x712 @0xc
0x706…719 at000d = ╱4c╱L╱ // 0x713 @0xd
0x706…719 at000e = ╱5f╱_╱ // 0x714 @0xe
0x706…719 at000f = ╱49╱I╱ // 0x715 @0xf
0x706…719 at0010 = ╱44╱D╱ // 0x716 @0x10
0x706…719 at0011 = ╱58╱X╱ // 0x717 @0x11
0x706…719 at0012 = EOL // 0x718 @0x12
0x706…719 }
0x719…733 9d21 0630 LET PPAR := 5 ; RESRV := 0
0x719…733 LineComal80 {
0x719…733 ptr = 0x9d21 // 0x719 @0x0
0x719…733 lno = 0x0276 // 0x71b @0x2
0x719…733 at0004 = ╱86╱ LET ╱ // 0x71d @0x4
0x719…733 at0005 = ╱50╱P╱ // 0x71e @0x5
0x719…733 at0006 = ╱50╱P╱ // 0x71f @0x6
0x719…733 at0007 = ╱41╱A╱ // 0x720 @0x7
0x719…733 at0008 = ╱52╱R╱ // 0x721 @0x8
0x719…733 at0009 = ╱f0╱ := ╱ // 0x722 @0x9
0x719…733 at000a = ╱35╱5╱ // 0x723 @0xa
0x719…733 at000b = ╱f20500╱ // 0x724 @0xb
0x719…733 at000e = ╱ea╱ ; ╱ // 0x727 @0xe
0x719…733 at000f = ╱52╱R╱ // 0x728 @0xf
0x719…733 at0010 = ╱45╱E╱ // 0x729 @0x10
0x719…733 at0011 = ╱53╱S╱ // 0x72a @0x11
0x719…733 at0012 = ╱52╱R╱ // 0x72b @0x12
0x719…733 at0013 = ╱56╱V╱ // 0x72c @0x13
0x719…733 at0014 = ╱f0╱ := ╱ // 0x72d @0x14
0x719…733 at0015 = ╱30╱0╱ // 0x72e @0x15
0x719…733 at0016 = ╱f20000╱ // 0x72f @0x16
0x719…733 at0019 = EOL // 0x732 @0x19
0x719…733 }
0x733…745 9d33 0640 CALL ("DDE:PRES"
0x733…745 LineComal80 {
0x733…745 ptr = 0x9d33 // 0x733 @0x0
0x733…745 lno = 0x0280 // 0x735 @0x2
0x733…745 at0004 = ╱adcb╱ CALL ╱ // 0x737 @0x4
0x733…745 at0006 = ╱ed╱(╱ // 0x739 @0x6
0x733…745 at0007 = ╱22╱"╱ // 0x73a @0x7
0x733…745 at0008 = ╱44╱D╱ // 0x73b @0x8
0x733…745 at0009 = ╱44╱D╱ // 0x73c @0x9
0x733…745 at000a = ╱45╱E╱ // 0x73d @0xa
0x733…745 at000b = ╱3a╱:╱ // 0x73e @0xb
0x733…745 at000c = ╱50╱P╱ // 0x73f @0xc
0x733…745 at000d = ╱52╱R╱ // 0x740 @0xd
0x733…745 at000e = ╱45╱E╱ // 0x741 @0xe
0x733…745 at000f = ╱53╱S╱ // 0x742 @0xf
0x733…745 at0010 = ╱22╱"╱ // 0x743 @0x10
0x733…745 at0011 = EOL // 0x744 @0x11
0x733…745 }
0x745…76e 9d5c 0650 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0x745…76e LineComal80 {
0x745…76e ptr = 0x9d5c // 0x745 @0x0
0x745…76e lno = 0x028a // 0x747 @0x2
0x745…76e at0004 = ╱a9╱ GET ╱ // 0x749 @0x4
0x745…76e at0005 = ╱53╱S╱ // 0x74a @0x5
0x745…76e at0006 = ╱59╱Y╱ // 0x74b @0x6
0x745…76e at0007 = ╱53╱S╱ // 0x74c @0x7
0x745…76e at0008 = ╱50╱P╱ // 0x74d @0x8
0x745…76e at0009 = ╱41╱A╱ // 0x74e @0x9
0x745…76e at000a = ╱52╱R╱ // 0x74f @0xa
0x745…76e at000b = ╱41╱A╱ // 0x750 @0xb
0x745…76e at000c = ╱ef╱$╱ // 0x751 @0xc
0x745…76e at000d = ╱ec╱,╱ // 0x752 @0xd
0x745…76e at000e = ╱31╱1╱ // 0x753 @0xe
0x745…76e at000f = ╱f20100╱ // 0x754 @0xf
0x745…76e at0012 = ╱e5╱ + ╱ // 0x757 @0x12
0x745…76e at0013 = ╱52╱R╱ // 0x758 @0x13
0x745…76e at0014 = ╱45╱E╱ // 0x759 @0x14
0x745…76e at0015 = ╱53╱S╱ // 0x75a @0x15
0x745…76e at0016 = ╱52╱R╱ // 0x75b @0x16
0x745…76e at0017 = ╱56╱V╱ // 0x75c @0x17
0x745…76e at0018 = ╱f1╱ : ╱ // 0x75d @0x18
0x745…76e at0019 = ╱44╱D╱ // 0x75e @0x19
0x745…76e at001a = ╱41╱A╱ // 0x75f @0x1a
0x745…76e at001b = ╱54╱T╱ // 0x760 @0x1b
0x745…76e at001c = ╱41╱A╱ // 0x761 @0x1c
0x745…76e at001d = ╱46╱F╱ // 0x762 @0x1d
0x745…76e at001e = ╱4c╱L╱ // 0x763 @0x1e
0x745…76e at001f = ╱ef╱$╱ // 0x764 @0x1f
0x745…76e at0020 = ╱ec╱,╱ // 0x765 @0x20
0x745…76e at0021 = ╱54╱T╱ // 0x766 @0x21
0x745…76e at0022 = ╱5f╱_╱ // 0x767 @0x22
0x745…76e at0023 = ╱4b╱K╱ // 0x768 @0x23
0x745…76e at0024 = ╱4f╱O╱ // 0x769 @0x24
0x745…76e at0025 = ╱44╱D╱ // 0x76a @0x25
0x745…76e at0026 = ╱45╱E╱ // 0x76b @0x26
0x745…76e at0027 = ╱ef╱$╱ // 0x76c @0x27
0x745…76e at0028 = EOL // 0x76d @0x28
0x745…76e }
0x76e…780 9d6e 0660 ENDPROC TERMINAL_IDX
0x76e…780 LineComal80 {
0x76e…780 ptr = 0x9d6e // 0x76e @0x0
0x76e…780 lno = 0x0294 // 0x770 @0x2
0x76e…780 at0004 = ╱9f╱ ENDPROC ╱ // 0x772 @0x4
0x76e…780 at0005 = ╱54╱T╱ // 0x773 @0x5
0x76e…780 at0006 = ╱45╱E╱ // 0x774 @0x6
0x76e…780 at0007 = ╱52╱R╱ // 0x775 @0x7
0x76e…780 at0008 = ╱4d╱M╱ // 0x776 @0x8
0x76e…780 at0009 = ╱49╱I╱ // 0x777 @0x9
0x76e…780 at000a = ╱4e╱N╱ // 0x778 @0xa
0x76e…780 at000b = ╱41╱A╱ // 0x779 @0xb
0x76e…780 at000c = ╱4c╱L╱ // 0x77a @0xc
0x76e…780 at000d = ╱5f╱_╱ // 0x77b @0xd
0x76e…780 at000e = ╱49╱I╱ // 0x77c @0xe
0x76e…780 at000f = ╱44╱D╱ // 0x77d @0xf
0x76e…780 at0010 = ╱58╱X╱ // 0x77e @0x10
0x76e…780 at0011 = EOL // 0x77f @0x11
0x76e…780 }
0x780…785 9d73 0670
0x780…785 LineComal80 {
0x780…785 ptr = 0x9d73 // 0x780 @0x0
0x780…785 lno = 0x029e // 0x782 @0x2
0x780…785 at0004 = EOL // 0x784 @0x4
0x780…785 }
0x785…7a0 (25,) 9d8e 0680 PROC OPENFIL(FNAVN$,WAY$)
0x785…7a0 LineComal80 {
0x785…7a0 ptr = 0x9d8e // 0x785 @0x0
0x785…7a0 lno = 0x02a8 // 0x787 @0x2
0x785…7a0 at0004 = ╱9e00╱ PROC ╱ // 0x789 @0x4
0x785…7a0 at0006 = ╱4f╱O╱ // 0x78b @0x6
0x785…7a0 at0007 = ╱50╱P╱ // 0x78c @0x7
0x785…7a0 at0008 = ╱45╱E╱ // 0x78d @0x8
0x785…7a0 at0009 = ╱4e╱N╱ // 0x78e @0x9
0x785…7a0 at000a = ╱46╱F╱ // 0x78f @0xa
0x785…7a0 at000b = ╱49╱I╱ // 0x790 @0xb
0x785…7a0 at000c = ╱4c╱L╱ // 0x791 @0xc
0x785…7a0 at000d = ╱ed╱(╱ // 0x792 @0xd
0x785…7a0 at000e = ╱46╱F╱ // 0x793 @0xe
0x785…7a0 at000f = ╱4e╱N╱ // 0x794 @0xf
0x785…7a0 at0010 = ╱41╱A╱ // 0x795 @0x10
0x785…7a0 at0011 = ╱56╱V╱ // 0x796 @0x11
0x785…7a0 at0012 = ╱4e╱N╱ // 0x797 @0x12
0x785…7a0 at0013 = ╱ef╱$╱ // 0x798 @0x13
0x785…7a0 at0014 = ╱ec╱,╱ // 0x799 @0x14
0x785…7a0 at0015 = ╱57╱W╱ // 0x79a @0x15
0x785…7a0 at0016 = ╱41╱A╱ // 0x79b @0x16
0x785…7a0 at0017 = ╱59╱Y╱ // 0x79c @0x17
0x785…7a0 at0018 = ╱ef╱$╱ // 0x79d @0x18
0x785…7a0 at0019 = ╱ee╱)╱ // 0x79e @0x19
0x785…7a0 at001a = EOL // 0x79f @0x1a
0x785…7a0 }
0x7a0…7a7 9d95 0690 REPEAT
0x7a0…7a7 LineComal80 {
0x7a0…7a7 ptr = 0x9d95 // 0x7a0 @0x0
0x7a0…7a7 lno = 0x02b2 // 0x7a2 @0x2
0x7a0…7a7 at0004 = ╱9700╱ REPEAT ╱ // 0x7a4 @0x4
0x7a0…7a7 at0006 = EOL // 0x7a6 @0x6
0x7a0…7a7 }
0x7a7…7c0 9dae 0700 IF AY$ = "W" OR WAY$ = "w" THEN
0x7a7…7c0 LineComal80 {
0x7a7…7c0 ptr = 0x9dae // 0x7a7 @0x0
0x7a7…7c0 lno = 0x02bc // 0x7a9 @0x2
0x7a7…7c0 at0004 = ╱9b0057╱ IF ╱ // 0x7ab @0x4
0x7a7…7c0 at0007 = ╱41╱A╱ // 0x7ae @0x7
0x7a7…7c0 at0008 = ╱59╱Y╱ // 0x7af @0x8
0x7a7…7c0 at0009 = ╱ef╱$╱ // 0x7b0 @0x9
0x7a7…7c0 at000a = ╱df╱ = ╱ // 0x7b1 @0xa
0x7a7…7c0 at000b = ╱22╱"╱ // 0x7b2 @0xb
0x7a7…7c0 at000c = ╱57╱W╱ // 0x7b3 @0xc
0x7a7…7c0 at000d = ╱22╱"╱ // 0x7b4 @0xd
0x7a7…7c0 at000e = ╱d8╱ OR ╱ // 0x7b5 @0xe
0x7a7…7c0 at000f = ╱57╱W╱ // 0x7b6 @0xf
0x7a7…7c0 at0010 = ╱41╱A╱ // 0x7b7 @0x10
0x7a7…7c0 at0011 = ╱59╱Y╱ // 0x7b8 @0x11
0x7a7…7c0 at0012 = ╱ef╱$╱ // 0x7b9 @0x12
0x7a7…7c0 at0013 = ╱df╱ = ╱ // 0x7ba @0x13
0x7a7…7c0 at0014 = ╱22╱"╱ // 0x7bb @0x14
0x7a7…7c0 at0015 = ╱77╱w╱ // 0x7bc @0x15
0x7a7…7c0 at0016 = ╱22╱"╱ // 0x7bd @0x16
0x7a7…7c0 at0017 = ╱b5╱ THEN ╱ // 0x7be @0x17
0x7a7…7c0 at0018 = EOL // 0x7bf @0x18
0x7a7…7c0 }
0x7c0…7ce 9dbc 0710 OPEN FNAVN$,W
0x7c0…7ce LineComal80 {
0x7c0…7ce ptr = 0x9dbc // 0x7c0 @0x0
0x7c0…7ce lno = 0x02c6 // 0x7c2 @0x2
0x7c0…7ce at0004 = ╱a7╱ OPEN ╱ // 0x7c4 @0x4
0x7c0…7ce at0005 = ╱46╱F╱ // 0x7c5 @0x5
0x7c0…7ce at0006 = ╱4e╱N╱ // 0x7c6 @0x6
0x7c0…7ce at0007 = ╱41╱A╱ // 0x7c7 @0x7
0x7c0…7ce at0008 = ╱56╱V╱ // 0x7c8 @0x8
0x7c0…7ce at0009 = ╱4e╱N╱ // 0x7c9 @0x9
0x7c0…7ce at000a = ╱ef╱$╱ // 0x7ca @0xa
0x7c0…7ce at000b = ╱ec╱,╱ // 0x7cb @0xb
0x7c0…7ce at000c = ╱57╱W╱ // 0x7cc @0xc
0x7c0…7ce at000d = EOL // 0x7cd @0xd
0x7c0…7ce }
0x7ce…7d5 9dc3 0720 ELSE
0x7ce…7d5 LineComal80 {
0x7ce…7d5 ptr = 0x9dc3 // 0x7ce @0x0
0x7ce…7d5 lno = 0x02d0 // 0x7d0 @0x2
0x7ce…7d5 at0004 = ╱9a00╱ ELSE ╱ // 0x7d2 @0x4
0x7ce…7d5 at0006 = EOL // 0x7d4 @0x6
0x7ce…7d5 }
0x7d5…7e3 9dd1 0730 OPEN FNAVN$,R
0x7d5…7e3 LineComal80 {
0x7d5…7e3 ptr = 0x9dd1 // 0x7d5 @0x0
0x7d5…7e3 lno = 0x02da // 0x7d7 @0x2
0x7d5…7e3 at0004 = ╱a7╱ OPEN ╱ // 0x7d9 @0x4
0x7d5…7e3 at0005 = ╱46╱F╱ // 0x7da @0x5
0x7d5…7e3 at0006 = ╱4e╱N╱ // 0x7db @0x6
0x7d5…7e3 at0007 = ╱41╱A╱ // 0x7dc @0x7
0x7d5…7e3 at0008 = ╱56╱V╱ // 0x7dd @0x8
0x7d5…7e3 at0009 = ╱4e╱N╱ // 0x7de @0x9
0x7d5…7e3 at000a = ╱ef╱$╱ // 0x7df @0xa
0x7d5…7e3 at000b = ╱ec╱,╱ // 0x7e0 @0xb
0x7d5…7e3 at000c = ╱52╱R╱ // 0x7e1 @0xc
0x7d5…7e3 at000d = EOL // 0x7e2 @0xd
0x7d5…7e3 }
0x7e3…7e9 9dd7 0740 ENDIF
0x7e3…7e9 LineComal80 {
0x7e3…7e9 ptr = 0x9dd7 // 0x7e3 @0x0
0x7e3…7e9 lno = 0x02e4 // 0x7e5 @0x2
0x7e3…7e9 at0004 = ╱9c╱ ENDIF ╱ // 0x7e7 @0x4
0x7e3…7e9 at0005 = EOL // 0x7e8 @0x5
0x7e3…7e9 }
0x7e9…7fa 9de8 0750 IF (FNAVN$) THEN
0x7e9…7fa LineComal80 {
0x7e9…7fa ptr = 0x9de8 // 0x7e9 @0x0
0x7e9…7fa lno = 0x02ee // 0x7eb @0x2
0x7e9…7fa at0004 = ╱9b00cd╱ IF ╱ // 0x7ed @0x4
0x7e9…7fa at0007 = ╱ed╱(╱ // 0x7f0 @0x7
0x7e9…7fa at0008 = ╱46╱F╱ // 0x7f1 @0x8
0x7e9…7fa at0009 = ╱4e╱N╱ // 0x7f2 @0x9
0x7e9…7fa at000a = ╱41╱A╱ // 0x7f3 @0xa
0x7e9…7fa at000b = ╱56╱V╱ // 0x7f4 @0xb
0x7e9…7fa at000c = ╱4e╱N╱ // 0x7f5 @0xc
0x7e9…7fa at000d = ╱ef╱$╱ // 0x7f6 @0xd
0x7e9…7fa at000e = ╱ee╱)╱ // 0x7f7 @0xe
0x7e9…7fa at000f = ╱b5╱ THEN ╱ // 0x7f8 @0xf
0x7e9…7fa at0010 = EOL // 0x7f9 @0x10
0x7e9…7fa }
0x7fa…812 9e00 0760 PRINT "<SC0123>" ; CHR$ (7)
0x7fa…812 LineComal80 {
0x7fa…812 ptr = 0x9e00 // 0x7fa @0x0
0x7fa…812 lno = 0x02f8 // 0x7fc @0x2
0x7fa…812 at0004 = ╱92╱ PRINT ╱ // 0x7fe @0x4
0x7fa…812 at0005 = ╱22╱"╱ // 0x7ff @0x5
0x7fa…812 at0006 = ╱3c╱<╱ // 0x800 @0x6
0x7fa…812 at0007 = ╱53╱S╱ // 0x801 @0x7
0x7fa…812 at0008 = ╱43╱C╱ // 0x802 @0x8
0x7fa…812 at0009 = ╱30╱0╱ // 0x803 @0x9
0x7fa…812 at000a = ╱31╱1╱ // 0x804 @0xa
0x7fa…812 at000b = ╱32╱2╱ // 0x805 @0xb
0x7fa…812 at000c = ╱33╱3╱ // 0x806 @0xc
0x7fa…812 at000d = ╱3e╱>╱ // 0x807 @0xd
0x7fa…812 at000e = ╱22╱"╱ // 0x808 @0xe
0x7fa…812 at000f = ╱ea╱ ; ╱ // 0x809 @0xf
0x7fa…812 at0010 = ╱d0╱ CHR$ ╱ // 0x80a @0x10
0x7fa…812 at0011 = ╱ed╱(╱ // 0x80b @0x11
0x7fa…812 at0012 = ╱37╱7╱ // 0x80c @0x12
0x7fa…812 at0013 = ╱f20700╱ // 0x80d @0x13
0x7fa…812 at0016 = ╱ee╱)╱ // 0x810 @0x16
0x7fa…812 at0017 = EOL // 0x811 @0x17
0x7fa…812 }
0x812…828 9e16 0770 IF (FNAVN$) = 6 THEN
0x812…828 LineComal80 {
0x812…828 ptr = 0x9e16 // 0x812 @0x0
0x812…828 lno = 0x0302 // 0x814 @0x2
0x812…828 at0004 = ╱9b00cd╱ IF ╱ // 0x816 @0x4
0x812…828 at0007 = ╱ed╱(╱ // 0x819 @0x7
0x812…828 at0008 = ╱46╱F╱ // 0x81a @0x8
0x812…828 at0009 = ╱4e╱N╱ // 0x81b @0x9
0x812…828 at000a = ╱41╱A╱ // 0x81c @0xa
0x812…828 at000b = ╱56╱V╱ // 0x81d @0xb
0x812…828 at000c = ╱4e╱N╱ // 0x81e @0xc
0x812…828 at000d = ╱ef╱$╱ // 0x81f @0xd
0x812…828 at000e = ╱ee╱)╱ // 0x820 @0xe
0x812…828 at000f = ╱df╱ = ╱ // 0x821 @0xf
0x812…828 at0010 = ╱36╱6╱ // 0x822 @0x10
0x812…828 at0011 = ╱f20600╱ // 0x823 @0x11
0x812…828 at0014 = ╱b5╱ THEN ╱ // 0x826 @0x14
0x812…828 at0015 = EOL // 0x827 @0x15
0x812…828 }
0x828…86d 9e5b 0780 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
0x828…86d LineComal80 {
0x828…86d ptr = 0x9e5b // 0x828 @0x0
0x828…86d lno = 0x030c // 0x82a @0x2
0x828…86d at0004 = ╱92╱ PRINT ╱ // 0x82c @0x4
0x828…86d at0005 = ╱22╱"╱ // 0x82d @0x5
0x828…86d at0006 = ╱3c╱<╱ // 0x82e @0x6
0x828…86d at0007 = ╱53╱S╱ // 0x82f @0x7
0x828…86d at0008 = ╱43╱C╱ // 0x830 @0x8
0x828…86d at0009 = ╱31╱1╱ // 0x831 @0x9
0x828…86d at000a = ╱36╱6╱ // 0x832 @0xa
0x828…86d at000b = ╱30╱0╱ // 0x833 @0xb
0x828…86d at000c = ╱32╱2╱ // 0x834 @0xc
0x828…86d at000d = ╱3e╱>╱ // 0x835 @0xd
0x828…86d at000e = ╱2a╱*╱ // 0x836 @0xe
0x828…86d at000f = ╱2a╱*╱ // 0x837 @0xf
0x828…86d at0010 = ╱2a╱*╱ // 0x838 @0x10
0x828…86d at0011 = ╱20╱…╱ // 0x839 @0x11
0x828…86d at0012 = ╱46╱F╱ // 0x83a @0x12
0x828…86d at0013 = ╱65╱e╱ // 0x83b @0x13
0x828…86d at0014 = ╱6a╱j╱ // 0x83c @0x14
0x828…86d at0015 = ╱6c╱l╱ // 0x83d @0x15
0x828…86d at0016 = ╱20╱…╱ // 0x83e @0x16
0x828…86d at0017 = ╱6e╱n╱ // 0x83f @0x17
0x828…86d at0018 = ╱72╱r╱ // 0x840 @0x18
0x828…86d at0019 = ╱2e╱.╱ // 0x841 @0x19
0x828…86d at001a = ╱20╱…╱ // 0x842 @0x1a
0x828…86d at001b = ╱36╱6╱ // 0x843 @0x1b
0x828…86d at001c = ╱20╱…╱ // 0x844 @0x1c
0x828…86d at001d = ╱2d╱-╱ // 0x845 @0x1d
0x828…86d at001e = ╱20╱…╱ // 0x846 @0x1e
0x828…86d at001f = ╱69╱i╱ // 0x847 @0x1f
0x828…86d at0020 = ╱6e╱n╱ // 0x848 @0x20
0x828…86d at0021 = ╱64╱d╱ // 0x849 @0x21
0x828…86d at0022 = ╱73╱s╱ // 0x84a @0x22
0x828…86d at0023 = ╱7b╱æ╱ // 0x84b @0x23
0x828…86d at0024 = ╱74╱t╱ // 0x84c @0x24
0x828…86d at0025 = ╱20╱…╱ // 0x84d @0x25
0x828…86d at0026 = ╱64╱d╱ // 0x84e @0x26
0x828…86d at0027 = ╱69╱i╱ // 0x84f @0x27
0x828…86d at0028 = ╱73╱s╱ // 0x850 @0x28
0x828…86d at0029 = ╱6b╱k╱ // 0x851 @0x29
0x828…86d at002a = ╱65╱e╱ // 0x852 @0x2a
0x828…86d at002b = ╱74╱t╱ // 0x853 @0x2b
0x828…86d at002c = ╱74╱t╱ // 0x854 @0x2c
0x828…86d at002d = ╱65╱e╱ // 0x855 @0x2d
0x828…86d at002e = ╱20╱…╱ // 0x856 @0x2e
0x828…86d at002f = ╱6f╱o╱ // 0x857 @0x2f
0x828…86d at0030 = ╱67╱g╱ // 0x858 @0x30
0x828…86d at0031 = ╱20╱…╱ // 0x859 @0x31
0x828…86d at0032 = ╱74╱t╱ // 0x85a @0x32
0x828…86d at0033 = ╱72╱r╱ // 0x85b @0x33
0x828…86d at0034 = ╱79╱y╱ // 0x85c @0x34
0x828…86d at0035 = ╱6b╱k╱ // 0x85d @0x35
0x828…86d at0036 = ╱20╱…╱ // 0x85e @0x36
0x828…86d at0037 = ╱3c╱<╱ // 0x85f @0x37
0x828…86d at0038 = ╱52╱R╱ // 0x860 @0x38
0x828…86d at0039 = ╱45╱E╱ // 0x861 @0x39
0x828…86d at003a = ╱54╱T╱ // 0x862 @0x3a
0x828…86d at003b = ╱55╱U╱ // 0x863 @0x3b
0x828…86d at003c = ╱52╱R╱ // 0x864 @0x3c
0x828…86d at003d = ╱4e╱N╱ // 0x865 @0x3d
0x828…86d at003e = ╱3e╱>╱ // 0x866 @0x3e
0x828…86d at003f = ╱20╱…╱ // 0x867 @0x3f
0x828…86d at0040 = ╱2a╱*╱ // 0x868 @0x40
0x828…86d at0041 = ╱2a╱*╱ // 0x869 @0x41
0x828…86d at0042 = ╱2a╱*╱ // 0x86a @0x42
0x828…86d at0043 = ╱22╱"╱ // 0x86b @0x43
0x828…86d at0044 = EOL // 0x86c @0x44
0x828…86d }
0x86d…87b 9e69 0790 INPUT "" : SVAR$
0x86d…87b LineComal80 {
0x86d…87b ptr = 0x9e69 // 0x86d @0x0
0x86d…87b lno = 0x0316 // 0x86f @0x2
0x86d…87b at0004 = ╱91╱ INPUT ╱ // 0x871 @0x4
0x86d…87b at0005 = ╱22╱"╱ // 0x872 @0x5
0x86d…87b at0006 = ╱22╱"╱ // 0x873 @0x6
0x86d…87b at0007 = ╱f1╱ : ╱ // 0x874 @0x7
0x86d…87b at0008 = ╱53╱S╱ // 0x875 @0x8
0x86d…87b at0009 = ╱56╱V╱ // 0x876 @0x9
0x86d…87b at000a = ╱41╱A╱ // 0x877 @0xa
0x86d…87b at000b = ╱52╱R╱ // 0x878 @0xb
0x86d…87b at000c = ╱ef╱$╱ // 0x879 @0xc
0x86d…87b at000d = EOL // 0x87a @0xd
0x86d…87b }
0x87b…882 9e70 0800 ELSE
0x87b…882 LineComal80 {
0x87b…882 ptr = 0x9e70 // 0x87b @0x0
0x87b…882 lno = 0x0320 // 0x87d @0x2
0x87b…882 at0004 = ╱9a00╱ ELSE ╱ // 0x87f @0x4
0x87b…882 at0006 = EOL // 0x881 @0x6
0x87b…882 }
0x882…8c3 9eb1 0810 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
0x882…8c3 LineComal80 {
0x882…8c3 ptr = 0x9eb1 // 0x882 @0x0
0x882…8c3 lno = 0x032a // 0x884 @0x2
0x882…8c3 at0004 = ╱92╱ PRINT ╱ // 0x886 @0x4
0x882…8c3 at0005 = ╱22╱"╱ // 0x887 @0x5
0x882…8c3 at0006 = ╱3c╱<╱ // 0x888 @0x6
0x882…8c3 at0007 = ╱53╱S╱ // 0x889 @0x7
0x882…8c3 at0008 = ╱43╱C╱ // 0x88a @0x8
0x882…8c3 at0009 = ╱31╱1╱ // 0x88b @0x9
0x882…8c3 at000a = ╱38╱8╱ // 0x88c @0xa
0x882…8c3 at000b = ╱30╱0╱ // 0x88d @0xb
0x882…8c3 at000c = ╱32╱2╱ // 0x88e @0xc
0x882…8c3 at000d = ╱3e╱>╱ // 0x88f @0xd
0x882…8c3 at000e = ╱2a╱*╱ // 0x890 @0xe
0x882…8c3 at000f = ╱2a╱*╱ // 0x891 @0xf
0x882…8c3 at0010 = ╱2a╱*╱ // 0x892 @0x10
0x882…8c3 at0011 = ╱20╱…╱ // 0x893 @0x11
0x882…8c3 at0012 = ╱46╱F╱ // 0x894 @0x12
0x882…8c3 at0013 = ╱65╱e╱ // 0x895 @0x13
0x882…8c3 at0014 = ╱6a╱j╱ // 0x896 @0x14
0x882…8c3 at0015 = ╱6c╱l╱ // 0x897 @0x15
0x882…8c3 at0016 = ╱20╱…╱ // 0x898 @0x16
0x882…8c3 at0017 = ╱6e╱n╱ // 0x899 @0x17
0x882…8c3 at0018 = ╱72╱r╱ // 0x89a @0x18
0x882…8c3 at0019 = ╱2e╱.╱ // 0x89b @0x19
0x882…8c3 at001a = ╱20╱…╱ // 0x89c @0x1a
0x882…8c3 at001b = ╱22╱"╱ // 0x89d @0x1b
0x882…8c3 at001c = ╱ea╱ ; ╱ // 0x89e @0x1c
0x882…8c3 at001d = ╱d0╱ CHR$ ╱ // 0x89f @0x1d
0x882…8c3 at001e = ╱ed╱(╱ // 0x8a0 @0x1e
0x882…8c3 at001f = ╱cd╱ // 0x8a1 @0x1f
0x882…8c3 at0020 = ╱ed╱(╱ // 0x8a2 @0x20
0x882…8c3 at0021 = ╱46╱F╱ // 0x8a3 @0x21
0x882…8c3 at0022 = ╱4e╱N╱ // 0x8a4 @0x22
0x882…8c3 at0023 = ╱41╱A╱ // 0x8a5 @0x23
0x882…8c3 at0024 = ╱56╱V╱ // 0x8a6 @0x24
0x882…8c3 at0025 = ╱4e╱N╱ // 0x8a7 @0x25
0x882…8c3 at0026 = ╱ef╱$╱ // 0x8a8 @0x26
0x882…8c3 at0027 = ╱ee╱)╱ // 0x8a9 @0x27
0x882…8c3 at0028 = ╱ec╱,╱ // 0x8aa @0x28
0x882…8c3 at0029 = ╱32╱2╱ // 0x8ab @0x29
0x882…8c3 at002a = ╱f20200╱ // 0x8ac @0x2a
0x882…8c3 at002d = ╱ee╱)╱ // 0x8af @0x2d
0x882…8c3 at002e = ╱ea╱ ; ╱ // 0x8b0 @0x2e
0x882…8c3 at002f = ╱22╱"╱ // 0x8b1 @0x2f
0x882…8c3 at0030 = ╱20╱…╱ // 0x8b2 @0x30
0x882…8c3 at0031 = ╱76╱v╱ // 0x8b3 @0x31
0x882…8c3 at0032 = ╱65╱e╱ // 0x8b4 @0x32
0x882…8c3 at0033 = ╱64╱d╱ // 0x8b5 @0x33
0x882…8c3 at0034 = ╱20╱…╱ // 0x8b6 @0x34
0x882…8c3 at0035 = ╱7d╱å╱ // 0x8b7 @0x35
0x882…8c3 at0036 = ╱62╱b╱ // 0x8b8 @0x36
0x882…8c3 at0037 = ╱6e╱n╱ // 0x8b9 @0x37
0x882…8c3 at0038 = ╱69╱i╱ // 0x8ba @0x38
0x882…8c3 at0039 = ╱6e╱n╱ // 0x8bb @0x39
0x882…8c3 at003a = ╱67╱g╱ // 0x8bc @0x3a
0x882…8c3 at003b = ╱20╱…╱ // 0x8bd @0x3b
0x882…8c3 at003c = ╱61╱a╱ // 0x8be @0x3c
0x882…8c3 at003d = ╱66╱f╱ // 0x8bf @0x3d
0x882…8c3 at003e = ╱20╱…╱ // 0x8c0 @0x3e
0x882…8c3 at003f = ╱22╱"╱ // 0x8c1 @0x3f
0x882…8c3 at0040 = EOL // 0x8c2 @0x40
0x882…8c3 }
0x8c3…8dc 9eca 0820 PRINT "<S>" ; FNAVN$ ; " ***"
0x8c3…8dc LineComal80 {
0x8c3…8dc ptr = 0x9eca // 0x8c3 @0x0
0x8c3…8dc lno = 0x0334 // 0x8c5 @0x2
0x8c3…8dc at0004 = ╱92╱ PRINT ╱ // 0x8c7 @0x4
0x8c3…8dc at0005 = ╱22╱"╱ // 0x8c8 @0x5
0x8c3…8dc at0006 = ╱3c╱<╱ // 0x8c9 @0x6
0x8c3…8dc at0007 = ╱53╱S╱ // 0x8ca @0x7
0x8c3…8dc at0008 = ╱3e╱>╱ // 0x8cb @0x8
0x8c3…8dc at0009 = ╱22╱"╱ // 0x8cc @0x9
0x8c3…8dc at000a = ╱ea╱ ; ╱ // 0x8cd @0xa
0x8c3…8dc at000b = ╱46╱F╱ // 0x8ce @0xb
0x8c3…8dc at000c = ╱4e╱N╱ // 0x8cf @0xc
0x8c3…8dc at000d = ╱41╱A╱ // 0x8d0 @0xd
0x8c3…8dc at000e = ╱56╱V╱ // 0x8d1 @0xe
0x8c3…8dc at000f = ╱4e╱N╱ // 0x8d2 @0xf
0x8c3…8dc at0010 = ╱ef╱$╱ // 0x8d3 @0x10
0x8c3…8dc at0011 = ╱ea╱ ; ╱ // 0x8d4 @0x11
0x8c3…8dc at0012 = ╱22╱"╱ // 0x8d5 @0x12
0x8c3…8dc at0013 = ╱20╱…╱ // 0x8d6 @0x13
0x8c3…8dc at0014 = ╱2a╱*╱ // 0x8d7 @0x14
0x8c3…8dc at0015 = ╱2a╱*╱ // 0x8d8 @0x15
0x8c3…8dc at0016 = ╱2a╱*╱ // 0x8d9 @0x16
0x8c3…8dc at0017 = ╱22╱"╱ // 0x8da @0x17
0x8c3…8dc at0018 = EOL // 0x8db @0x18
0x8c3…8dc }
0x8dc…8ea 9ed8 0830 INPUT "" : SVAR$
0x8dc…8ea LineComal80 {
0x8dc…8ea ptr = 0x9ed8 // 0x8dc @0x0
0x8dc…8ea lno = 0x033e // 0x8de @0x2
0x8dc…8ea at0004 = ╱91╱ INPUT ╱ // 0x8e0 @0x4
0x8dc…8ea at0005 = ╱22╱"╱ // 0x8e1 @0x5
0x8dc…8ea at0006 = ╱22╱"╱ // 0x8e2 @0x6
0x8dc…8ea at0007 = ╱f1╱ : ╱ // 0x8e3 @0x7
0x8dc…8ea at0008 = ╱53╱S╱ // 0x8e4 @0x8
0x8dc…8ea at0009 = ╱56╱V╱ // 0x8e5 @0x9
0x8dc…8ea at000a = ╱41╱A╱ // 0x8e6 @0xa
0x8dc…8ea at000b = ╱52╱R╱ // 0x8e7 @0xb
0x8dc…8ea at000c = ╱ef╱$╱ // 0x8e8 @0xc
0x8dc…8ea at000d = EOL // 0x8e9 @0xd
0x8dc…8ea }
0x8ea…8fe 9eec 0840 PRINT "<C0102>" ; SPC$
0x8ea…8fe LineComal80 {
0x8ea…8fe ptr = 0x9eec // 0x8ea @0x0
0x8ea…8fe lno = 0x0348 // 0x8ec @0x2
0x8ea…8fe at0004 = ╱92╱ PRINT ╱ // 0x8ee @0x4
0x8ea…8fe at0005 = ╱22╱"╱ // 0x8ef @0x5
0x8ea…8fe at0006 = ╱3c╱<╱ // 0x8f0 @0x6
0x8ea…8fe at0007 = ╱43╱C╱ // 0x8f1 @0x7
0x8ea…8fe at0008 = ╱30╱0╱ // 0x8f2 @0x8
0x8ea…8fe at0009 = ╱31╱1╱ // 0x8f3 @0x9
0x8ea…8fe at000a = ╱30╱0╱ // 0x8f4 @0xa
0x8ea…8fe at000b = ╱32╱2╱ // 0x8f5 @0xb
0x8ea…8fe at000c = ╱3e╱>╱ // 0x8f6 @0xc
0x8ea…8fe at000d = ╱22╱"╱ // 0x8f7 @0xd
0x8ea…8fe at000e = ╱ea╱ ; ╱ // 0x8f8 @0xe
0x8ea…8fe at000f = ╱53╱S╱ // 0x8f9 @0xf
0x8ea…8fe at0010 = ╱50╱P╱ // 0x8fa @0x10
0x8ea…8fe at0011 = ╱43╱C╱ // 0x8fb @0x11
0x8ea…8fe at0012 = ╱ef╱$╱ // 0x8fc @0x12
0x8ea…8fe at0013 = EOL // 0x8fd @0x13
0x8ea…8fe }
0x8fe…904 9ef2 0850 ENDIF
0x8fe…904 LineComal80 {
0x8fe…904 ptr = 0x9ef2 // 0x8fe @0x0
0x8fe…904 lno = 0x0352 // 0x900 @0x2
0x8fe…904 at0004 = ╱9c╱ ENDIF ╱ // 0x902 @0x4
0x8fe…904 at0005 = EOL // 0x903 @0x5
0x8fe…904 }
0x904…90a 9ef8 0860 ENDIF
0x904…90a LineComal80 {
0x904…90a ptr = 0x9ef8 // 0x904 @0x0
0x904…90a lno = 0x035c // 0x906 @0x2
0x904…90a at0004 = ╱9c╱ ENDIF ╱ // 0x908 @0x4
0x904…90a at0005 = EOL // 0x909 @0x5
0x904…90a }
0x90a…91a 9f08 0870 UNTIL NOT ╱cd╱ (FNAVN$)
0x90a…91a LineComal80 {
0x90a…91a ptr = 0x9f08 // 0x90a @0x0
0x90a…91a lno = 0x0366 // 0x90c @0x2
0x90a…91a at0004 = ╱98╱ UNTIL ╱ // 0x90e @0x4
0x90a…91a at0005 = ╱d7╱ NOT ╱ // 0x90f @0x5
0x90a…91a at0006 = ╱cd╱ // 0x910 @0x6
0x90a…91a at0007 = ╱ed╱(╱ // 0x911 @0x7
0x90a…91a at0008 = ╱46╱F╱ // 0x912 @0x8
0x90a…91a at0009 = ╱4e╱N╱ // 0x913 @0x9
0x90a…91a at000a = ╱41╱A╱ // 0x914 @0xa
0x90a…91a at000b = ╱56╱V╱ // 0x915 @0xb
0x90a…91a at000c = ╱4e╱N╱ // 0x916 @0xc
0x90a…91a at000d = ╱ef╱$╱ // 0x917 @0xd
0x90a…91a at000e = ╱ee╱)╱ // 0x918 @0xe
0x90a…91a at000f = EOL // 0x919 @0xf
0x90a…91a }
0x91a…927 9f15 0880 ENDPROC OPENFIL
0x91a…927 LineComal80 {
0x91a…927 ptr = 0x9f15 // 0x91a @0x0
0x91a…927 lno = 0x0370 // 0x91c @0x2
0x91a…927 at0004 = ╱9f╱ ENDPROC ╱ // 0x91e @0x4
0x91a…927 at0005 = ╱4f╱O╱ // 0x91f @0x5
0x91a…927 at0006 = ╱50╱P╱ // 0x920 @0x6
0x91a…927 at0007 = ╱45╱E╱ // 0x921 @0x7
0x91a…927 at0008 = ╱4e╱N╱ // 0x922 @0x8
0x91a…927 at0009 = ╱46╱F╱ // 0x923 @0x9
0x91a…927 at000a = ╱49╱I╱ // 0x924 @0xa
0x91a…927 at000b = ╱4c╱L╱ // 0x925 @0xb
0x91a…927 at000c = EOL // 0x926 @0xc
0x91a…927 }
0x927…92c 9f1a 0890
0x927…92c LineComal80 {
0x927…92c ptr = 0x9f1a // 0x927 @0x0
0x927…92c lno = 0x037a // 0x929 @0x2
0x927…92c at0004 = EOL // 0x92b @0x4
0x927…92c }
0x92c…944 9f32 0900 PROC OVERSKRIFT(ST$,L)
0x92c…944 LineComal80 {
0x92c…944 ptr = 0x9f32 // 0x92c @0x0
0x92c…944 lno = 0x0384 // 0x92e @0x2
0x92c…944 at0004 = ╱9e00╱ PROC ╱ // 0x930 @0x4
0x92c…944 at0006 = ╱4f╱O╱ // 0x932 @0x6
0x92c…944 at0007 = ╱56╱V╱ // 0x933 @0x7
0x92c…944 at0008 = ╱45╱E╱ // 0x934 @0x8
0x92c…944 at0009 = ╱52╱R╱ // 0x935 @0x9
0x92c…944 at000a = ╱53╱S╱ // 0x936 @0xa
0x92c…944 at000b = ╱4b╱K╱ // 0x937 @0xb
0x92c…944 at000c = ╱52╱R╱ // 0x938 @0xc
0x92c…944 at000d = ╱49╱I╱ // 0x939 @0xd
0x92c…944 at000e = ╱46╱F╱ // 0x93a @0xe
0x92c…944 at000f = ╱54╱T╱ // 0x93b @0xf
0x92c…944 at0010 = ╱ed╱(╱ // 0x93c @0x10
0x92c…944 at0011 = ╱53╱S╱ // 0x93d @0x11
0x92c…944 at0012 = ╱54╱T╱ // 0x93e @0x12
0x92c…944 at0013 = ╱ef╱$╱ // 0x93f @0x13
0x92c…944 at0014 = ╱ec╱,╱ // 0x940 @0x14
0x92c…944 at0015 = ╱4c╱L╱ // 0x941 @0x15
0x92c…944 at0016 = ╱ee╱)╱ // 0x942 @0x16
0x92c…944 at0017 = EOL // 0x943 @0x17
0x92c…944 }
0x944…96a 9f58 0910 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0x944…96a LineComal80 {
0x944…96a ptr = 0x9f58 // 0x944 @0x0
0x944…96a lno = 0x038e // 0x946 @0x2
0x944…96a at0004 = ╱92╱ PRINT ╱ // 0x948 @0x4
0x944…96a at0005 = ╱22╱"╱ // 0x949 @0x5
0x944…96a at0006 = ╱3c╱<╱ // 0x94a @0x6
0x944…96a at0007 = ╱58╱X╱ // 0x94b @0x7
0x944…96a at0008 = ╱43╱C╱ // 0x94c @0x8
0x944…96a at0009 = ╱30╱0╱ // 0x94d @0x9
0x944…96a at000a = ╱31╱1╱ // 0x94e @0xa
0x944…96a at000b = ╱30╱0╱ // 0x94f @0xb
0x944…96a at000c = ╱31╱1╱ // 0x950 @0xc
0x944…96a at000d = ╱3e╱>╱ // 0x951 @0xd
0x944…96a at000e = ╱46╱F╱ // 0x952 @0xe
0x944…96a at000f = ╱69╱i╱ // 0x953 @0xf
0x944…96a at0010 = ╱72╱r╱ // 0x954 @0x10
0x944…96a at0011 = ╱6d╱m╱ // 0x955 @0x11
0x944…96a at0012 = ╱61╱a╱ // 0x956 @0x12
0x944…96a at0013 = ╱6e╱n╱ // 0x957 @0x13
0x944…96a at0014 = ╱61╱a╱ // 0x958 @0x14
0x944…96a at0015 = ╱76╱v╱ // 0x959 @0x15
0x944…96a at0016 = ╱6e╱n╱ // 0x95a @0x16
0x944…96a at0017 = ╱3a╱:╱ // 0x95b @0x17
0x944…96a at0018 = ╱20╱…╱ // 0x95c @0x18
0x944…96a at0019 = ╱22╱"╱ // 0x95d @0x19
0x944…96a at001a = ╱ea╱ ; ╱ // 0x95e @0x1a
0x944…96a at001b = ╱46╱F╱ // 0x95f @0x1b
0x944…96a at001c = ╱49╱I╱ // 0x960 @0x1c
0x944…96a at001d = ╱52╱R╱ // 0x961 @0x1d
0x944…96a at001e = ╱4d╱M╱ // 0x962 @0x1e
0x944…96a at001f = ╱41╱A╱ // 0x963 @0x1f
0x944…96a at0020 = ╱4e╱N╱ // 0x964 @0x20
0x944…96a at0021 = ╱41╱A╱ // 0x965 @0x21
0x944…96a at0022 = ╱56╱V╱ // 0x966 @0x22
0x944…96a at0023 = ╱4e╱N╱ // 0x967 @0x23
0x944…96a at0024 = ╱ef╱$╱ // 0x968 @0x24
0x944…96a at0025 = EOL // 0x969 @0x25
0x944…96a }
0x96a…9b2 9fa0 0920 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0x96a…9b2 LineComal80 {
0x96a…9b2 ptr = 0x9fa0 // 0x96a @0x0
0x96a…9b2 lno = 0x0398 // 0x96c @0x2
0x96a…9b2 at0004 = ╱92╱ PRINT ╱ // 0x96e @0x4
0x96a…9b2 at0005 = ╱22╱"╱ // 0x96f @0x5
0x96a…9b2 at0006 = ╱3c╱<╱ // 0x970 @0x6
0x96a…9b2 at0007 = ╱53╱S╱ // 0x971 @0x7
0x96a…9b2 at0008 = ╱43╱C╱ // 0x972 @0x8
0x96a…9b2 at0009 = ╱36╱6╱ // 0x973 @0x9
0x96a…9b2 at000a = ╱35╱5╱ // 0x974 @0xa
0x96a…9b2 at000b = ╱30╱0╱ // 0x975 @0xb
0x96a…9b2 at000c = ╱31╱1╱ // 0x976 @0xc
0x96a…9b2 at000d = ╱3e╱>╱ // 0x977 @0xd
0x96a…9b2 at000e = ╱44╱D╱ // 0x978 @0xe
0x96a…9b2 at000f = ╱61╱a╱ // 0x979 @0xf
0x96a…9b2 at0010 = ╱74╱t╱ // 0x97a @0x10
0x96a…9b2 at0011 = ╱6f╱o╱ // 0x97b @0x11
0x96a…9b2 at0012 = ╱3a╱:╱ // 0x97c @0x12
0x96a…9b2 at0013 = ╱20╱…╱ // 0x97d @0x13
0x96a…9b2 at0014 = ╱22╱"╱ // 0x97e @0x14
0x96a…9b2 at0015 = ╱ea╱ ; ╱ // 0x97f @0x15
0x96a…9b2 at0016 = ╱53╱S╱ // 0x980 @0x16
0x96a…9b2 at0017 = ╱59╱Y╱ // 0x981 @0x17
0x96a…9b2 at0018 = ╱53╱S╱ // 0x982 @0x18
0x96a…9b2 at0019 = ╱54╱T╱ // 0x983 @0x19
0x96a…9b2 at001a = ╱5f╱_╱ // 0x984 @0x1a
0x96a…9b2 at001b = ╱44╱D╱ // 0x985 @0x1b
0x96a…9b2 at001c = ╱41╱A╱ // 0x986 @0x1c
0x96a…9b2 at001d = ╱54╱T╱ // 0x987 @0x1d
0x96a…9b2 at001e = ╱ef╱$╱ // 0x988 @0x1e
0x96a…9b2 at001f = ╱ed╱(╱ // 0x989 @0x1f
0x96a…9b2 at0020 = ╱31╱1╱ // 0x98a @0x20
0x96a…9b2 at0021 = ╱f20100╱ // 0x98b @0x21
0x96a…9b2 at0024 = ╱f1╱ : ╱ // 0x98e @0x24
0x96a…9b2 at0025 = ╱32╱2╱ // 0x98f @0x25
0x96a…9b2 at0026 = ╱f20200╱ // 0x990 @0x26
0x96a…9b2 at0029 = ╱ee╱)╱ // 0x993 @0x29
0x96a…9b2 at002a = ╱ea╱ ; ╱ // 0x994 @0x2a
0x96a…9b2 at002b = ╱22╱"╱ // 0x995 @0x2b
0x96a…9b2 at002c = ╱2e╱.╱ // 0x996 @0x2c
0x96a…9b2 at002d = ╱22╱"╱ // 0x997 @0x2d
0x96a…9b2 at002e = ╱ea╱ ; ╱ // 0x998 @0x2e
0x96a…9b2 at002f = ╱53╱S╱ // 0x999 @0x2f
0x96a…9b2 at0030 = ╱59╱Y╱ // 0x99a @0x30
0x96a…9b2 at0031 = ╱53╱S╱ // 0x99b @0x31
0x96a…9b2 at0032 = ╱54╱T╱ // 0x99c @0x32
0x96a…9b2 at0033 = ╱5f╱_╱ // 0x99d @0x33
0x96a…9b2 at0034 = ╱44╱D╱ // 0x99e @0x34
0x96a…9b2 at0035 = ╱41╱A╱ // 0x99f @0x35
0x96a…9b2 at0036 = ╱54╱T╱ // 0x9a0 @0x36
0x96a…9b2 at0037 = ╱ef╱$╱ // 0x9a1 @0x37
0x96a…9b2 at0038 = ╱ed╱(╱ // 0x9a2 @0x38
0x96a…9b2 at0039 = ╱33╱3╱ // 0x9a3 @0x39
0x96a…9b2 at003a = ╱f20300╱ // 0x9a4 @0x3a
0x96a…9b2 at003d = ╱f1╱ : ╱ // 0x9a7 @0x3d
0x96a…9b2 at003e = ╱32╱2╱ // 0x9a8 @0x3e
0x96a…9b2 at003f = ╱f20200╱ // 0x9a9 @0x3f
0x96a…9b2 at0042 = ╱ee╱)╱ // 0x9ac @0x42
0x96a…9b2 at0043 = ╱ea╱ ; ╱ // 0x9ad @0x43
0x96a…9b2 at0044 = ╱22╱"╱ // 0x9ae @0x44
0x96a…9b2 at0045 = ╱2e╱.╱ // 0x9af @0x45
0x96a…9b2 at0046 = ╱22╱"╱ // 0x9b0 @0x46
0x96a…9b2 at0047 = EOL // 0x9b1 @0x47
0x96a…9b2 }
0x9b2…9cc 9fba 0930 PRINT SYST_DAT$(5 : 2)
0x9b2…9cc LineComal80 {
0x9b2…9cc ptr = 0x9fba // 0x9b2 @0x0
0x9b2…9cc lno = 0x03a2 // 0x9b4 @0x2
0x9b2…9cc at0004 = ╱92╱ PRINT ╱ // 0x9b6 @0x4
0x9b2…9cc at0005 = ╱53╱S╱ // 0x9b7 @0x5
0x9b2…9cc at0006 = ╱59╱Y╱ // 0x9b8 @0x6
0x9b2…9cc at0007 = ╱53╱S╱ // 0x9b9 @0x7
0x9b2…9cc at0008 = ╱54╱T╱ // 0x9ba @0x8
0x9b2…9cc at0009 = ╱5f╱_╱ // 0x9bb @0x9
0x9b2…9cc at000a = ╱44╱D╱ // 0x9bc @0xa
0x9b2…9cc at000b = ╱41╱A╱ // 0x9bd @0xb
0x9b2…9cc at000c = ╱54╱T╱ // 0x9be @0xc
0x9b2…9cc at000d = ╱ef╱$╱ // 0x9bf @0xd
0x9b2…9cc at000e = ╱ed╱(╱ // 0x9c0 @0xe
0x9b2…9cc at000f = ╱35╱5╱ // 0x9c1 @0xf
0x9b2…9cc at0010 = ╱f20500╱ // 0x9c2 @0x10
0x9b2…9cc at0013 = ╱f1╱ : ╱ // 0x9c5 @0x13
0x9b2…9cc at0014 = ╱32╱2╱ // 0x9c6 @0x14
0x9b2…9cc at0015 = ╱f20200╱ // 0x9c7 @0x15
0x9b2…9cc at0018 = ╱ee╱)╱ // 0x9ca @0x18
0x9b2…9cc at0019 = EOL // 0x9cb @0x19
0x9b2…9cc }
0x9cc…9e8 9fd6 0940 CURSOR 36 - INT( ╱cb╱ (ST$) / 2),L
0x9cc…9e8 LineComal80 {
0x9cc…9e8 ptr = 0x9fd6 // 0x9cc @0x0
0x9cc…9e8 lno = 0x03ac // 0x9ce @0x2
0x9cc…9e8 at0004 = ╱a1╱ CURSOR ╱ // 0x9d0 @0x4
0x9cc…9e8 at0005 = ╱33╱3╱ // 0x9d1 @0x5
0x9cc…9e8 at0006 = ╱36╱6╱ // 0x9d2 @0x6
0x9cc…9e8 at0007 = ╱f22400╱ // 0x9d3 @0x7
0x9cc…9e8 at000a = ╱e6╱ - ╱ // 0x9d6 @0xa
0x9cc…9e8 at000b = ╱c6╱INT╱ // 0x9d7 @0xb
0x9cc…9e8 at000c = ╱ed╱(╱ // 0x9d8 @0xc
0x9cc…9e8 at000d = ╱cb╱ // 0x9d9 @0xd
0x9cc…9e8 at000e = ╱ed╱(╱ // 0x9da @0xe
0x9cc…9e8 at000f = ╱53╱S╱ // 0x9db @0xf
0x9cc…9e8 at0010 = ╱54╱T╱ // 0x9dc @0x10
0x9cc…9e8 at0011 = ╱ef╱$╱ // 0x9dd @0x11
0x9cc…9e8 at0012 = ╱ee╱)╱ // 0x9de @0x12
0x9cc…9e8 at0013 = ╱e8╱ / ╱ // 0x9df @0x13
0x9cc…9e8 at0014 = ╱32╱2╱ // 0x9e0 @0x14
0x9cc…9e8 at0015 = ╱f20200╱ // 0x9e1 @0x15
0x9cc…9e8 at0018 = ╱ee╱)╱ // 0x9e4 @0x18
0x9cc…9e8 at0019 = ╱ec╱,╱ // 0x9e5 @0x19
0x9cc…9e8 at001a = ╱4c╱L╱ // 0x9e6 @0x1a
0x9cc…9e8 at001b = EOL // 0x9e7 @0x1b
0x9cc…9e8 }
0x9e8…9ff 9fed 0950 PRINT "*** " ; ST$ ; " ***"
0x9e8…9ff LineComal80 {
0x9e8…9ff ptr = 0x9fed // 0x9e8 @0x0
0x9e8…9ff lno = 0x03b6 // 0x9ea @0x2
0x9e8…9ff at0004 = ╱92╱ PRINT ╱ // 0x9ec @0x4
0x9e8…9ff at0005 = ╱22╱"╱ // 0x9ed @0x5
0x9e8…9ff at0006 = ╱2a╱*╱ // 0x9ee @0x6
0x9e8…9ff at0007 = ╱2a╱*╱ // 0x9ef @0x7
0x9e8…9ff at0008 = ╱2a╱*╱ // 0x9f0 @0x8
0x9e8…9ff at0009 = ╱20╱…╱ // 0x9f1 @0x9
0x9e8…9ff at000a = ╱22╱"╱ // 0x9f2 @0xa
0x9e8…9ff at000b = ╱ea╱ ; ╱ // 0x9f3 @0xb
0x9e8…9ff at000c = ╱53╱S╱ // 0x9f4 @0xc
0x9e8…9ff at000d = ╱54╱T╱ // 0x9f5 @0xd
0x9e8…9ff at000e = ╱ef╱$╱ // 0x9f6 @0xe
0x9e8…9ff at000f = ╱ea╱ ; ╱ // 0x9f7 @0xf
0x9e8…9ff at0010 = ╱22╱"╱ // 0x9f8 @0x10
0x9e8…9ff at0011 = ╱20╱…╱ // 0x9f9 @0x11
0x9e8…9ff at0012 = ╱2a╱*╱ // 0x9fa @0x12
0x9e8…9ff at0013 = ╱2a╱*╱ // 0x9fb @0x13
0x9e8…9ff at0014 = ╱2a╱*╱ // 0x9fc @0x14
0x9e8…9ff at0015 = ╱22╱"╱ // 0x9fd @0x15
0x9e8…9ff at0016 = EOL // 0x9fe @0x16
0x9e8…9ff }
0x9ff…a0f 9ffd 0960 ENDPROC OVERSKRIFT
0x9ff…a0f LineComal80 {
0x9ff…a0f ptr = 0x9ffd // 0x9ff @0x0
0x9ff…a0f lno = 0x03c0 // 0xa01 @0x2
0x9ff…a0f at0004 = ╱9f╱ ENDPROC ╱ // 0xa03 @0x4
0x9ff…a0f at0005 = ╱4f╱O╱ // 0xa04 @0x5
0x9ff…a0f at0006 = ╱56╱V╱ // 0xa05 @0x6
0x9ff…a0f at0007 = ╱45╱E╱ // 0xa06 @0x7
0x9ff…a0f at0008 = ╱52╱R╱ // 0xa07 @0x8
0x9ff…a0f at0009 = ╱53╱S╱ // 0xa08 @0x9
0x9ff…a0f at000a = ╱4b╱K╱ // 0xa09 @0xa
0x9ff…a0f at000b = ╱52╱R╱ // 0xa0a @0xb
0x9ff…a0f at000c = ╱49╱I╱ // 0xa0b @0xc
0x9ff…a0f at000d = ╱46╱F╱ // 0xa0c @0xd
0x9ff…a0f at000e = ╱54╱T╱ // 0xa0d @0xe
0x9ff…a0f at000f = EOL // 0xa0e @0xf
0x9ff…a0f }
0xa0f…a14 a002 0970
0xa0f…a14 LineComal80 {
0xa0f…a14 ptr = 0xa002 // 0xa0f @0x0
0xa0f…a14 lno = 0x03ca // 0xa11 @0x2
0xa0f…a14 at0004 = EOL // 0xa13 @0x4
0xa0f…a14 }
0xa14…a27 a015 0980 PROC SL_FEJLLINIE
0xa14…a27 LineComal80 {
0xa14…a27 ptr = 0xa015 // 0xa14 @0x0
0xa14…a27 lno = 0x03d4 // 0xa16 @0x2
0xa14…a27 at0004 = ╱9e00╱ PROC ╱ // 0xa18 @0x4
0xa14…a27 at0006 = ╱53╱S╱ // 0xa1a @0x6
0xa14…a27 at0007 = ╱4c╱L╱ // 0xa1b @0x7
0xa14…a27 at0008 = ╱5f╱_╱ // 0xa1c @0x8
0xa14…a27 at0009 = ╱46╱F╱ // 0xa1d @0x9
0xa14…a27 at000a = ╱45╱E╱ // 0xa1e @0xa
0xa14…a27 at000b = ╱4a╱J╱ // 0xa1f @0xb
0xa14…a27 at000c = ╱4c╱L╱ // 0xa20 @0xc
0xa14…a27 at000d = ╱4c╱L╱ // 0xa21 @0xd
0xa14…a27 at000e = ╱49╱I╱ // 0xa22 @0xe
0xa14…a27 at000f = ╱4e╱N╱ // 0xa23 @0xf
0xa14…a27 at0010 = ╱49╱I╱ // 0xa24 @0x10
0xa14…a27 at0011 = ╱45╱E╱ // 0xa25 @0x11
0xa14…a27 at0012 = EOL // 0xa26 @0x12
0xa14…a27 }
0xa27…a34 a022 0990 LET OK := TRUE
0xa27…a34 LineComal80 {
0xa27…a34 ptr = 0xa022 // 0xa27 @0x0
0xa27…a34 lno = 0x03de // 0xa29 @0x2
0xa27…a34 at0004 = ╱86╱ LET ╱ // 0xa2b @0x4
0xa27…a34 at0005 = ╱4f╱O╱ // 0xa2c @0x5
0xa27…a34 at0006 = ╱4b╱K╱ // 0xa2d @0x6
0xa27…a34 at0007 = ╱f0╱ := ╱ // 0xa2e @0x7
0xa27…a34 at0008 = ╱54╱T╱ // 0xa2f @0x8
0xa27…a34 at0009 = ╱52╱R╱ // 0xa30 @0x9
0xa27…a34 at000a = ╱55╱U╱ // 0xa31 @0xa
0xa27…a34 at000b = ╱45╱E╱ // 0xa32 @0xb
0xa27…a34 at000c = EOL // 0xa33 @0xc
0xa27…a34 }
0xa34…a48 a036 1000 PRINT "<C0102>" ; SPC$
0xa34…a48 LineComal80 {
0xa34…a48 ptr = 0xa036 // 0xa34 @0x0
0xa34…a48 lno = 0x03e8 // 0xa36 @0x2
0xa34…a48 at0004 = ╱92╱ PRINT ╱ // 0xa38 @0x4
0xa34…a48 at0005 = ╱22╱"╱ // 0xa39 @0x5
0xa34…a48 at0006 = ╱3c╱<╱ // 0xa3a @0x6
0xa34…a48 at0007 = ╱43╱C╱ // 0xa3b @0x7
0xa34…a48 at0008 = ╱30╱0╱ // 0xa3c @0x8
0xa34…a48 at0009 = ╱31╱1╱ // 0xa3d @0x9
0xa34…a48 at000a = ╱30╱0╱ // 0xa3e @0xa
0xa34…a48 at000b = ╱32╱2╱ // 0xa3f @0xb
0xa34…a48 at000c = ╱3e╱>╱ // 0xa40 @0xc
0xa34…a48 at000d = ╱22╱"╱ // 0xa41 @0xd
0xa34…a48 at000e = ╱ea╱ ; ╱ // 0xa42 @0xe
0xa34…a48 at000f = ╱53╱S╱ // 0xa43 @0xf
0xa34…a48 at0010 = ╱50╱P╱ // 0xa44 @0x10
0xa34…a48 at0011 = ╱43╱C╱ // 0xa45 @0x11
0xa34…a48 at0012 = ╱ef╱$╱ // 0xa46 @0x12
0xa34…a48 at0013 = EOL // 0xa47 @0x13
0xa34…a48 }
0xa48…a5a a048 1010 ENDPROC SL_FEJLLINIE
0xa48…a5a LineComal80 {
0xa48…a5a ptr = 0xa048 // 0xa48 @0x0
0xa48…a5a lno = 0x03f2 // 0xa4a @0x2
0xa48…a5a at0004 = ╱9f╱ ENDPROC ╱ // 0xa4c @0x4
0xa48…a5a at0005 = ╱53╱S╱ // 0xa4d @0x5
0xa48…a5a at0006 = ╱4c╱L╱ // 0xa4e @0x6
0xa48…a5a at0007 = ╱5f╱_╱ // 0xa4f @0x7
0xa48…a5a at0008 = ╱46╱F╱ // 0xa50 @0x8
0xa48…a5a at0009 = ╱45╱E╱ // 0xa51 @0x9
0xa48…a5a at000a = ╱4a╱J╱ // 0xa52 @0xa
0xa48…a5a at000b = ╱4c╱L╱ // 0xa53 @0xb
0xa48…a5a at000c = ╱4c╱L╱ // 0xa54 @0xc
0xa48…a5a at000d = ╱49╱I╱ // 0xa55 @0xd
0xa48…a5a at000e = ╱4e╱N╱ // 0xa56 @0xe
0xa48…a5a at000f = ╱49╱I╱ // 0xa57 @0xf
0xa48…a5a at0010 = ╱45╱E╱ // 0xa58 @0x10
0xa48…a5a at0011 = EOL // 0xa59 @0x11
0xa48…a5a }
0xa5a…a5f a04d 1020
0xa5a…a5f LineComal80 {
0xa5a…a5f ptr = 0xa04d // 0xa5a @0x0
0xa5a…a5f lno = 0x03fc // 0xa5c @0x2
0xa5a…a5f at0004 = EOL // 0xa5e @0x4
0xa5a…a5f }
0xa5f…a6f a05d 1030 PROC FEJL(ST$)
0xa5f…a6f LineComal80 {
0xa5f…a6f ptr = 0xa05d // 0xa5f @0x0
0xa5f…a6f lno = 0x0406 // 0xa61 @0x2
0xa5f…a6f at0004 = ╱9e00╱ PROC ╱ // 0xa63 @0x4
0xa5f…a6f at0006 = ╱46╱F╱ // 0xa65 @0x6
0xa5f…a6f at0007 = ╱45╱E╱ // 0xa66 @0x7
0xa5f…a6f at0008 = ╱4a╱J╱ // 0xa67 @0x8
0xa5f…a6f at0009 = ╱4c╱L╱ // 0xa68 @0x9
0xa5f…a6f at000a = ╱ed╱(╱ // 0xa69 @0xa
0xa5f…a6f at000b = ╱53╱S╱ // 0xa6a @0xb
0xa5f…a6f at000c = ╱54╱T╱ // 0xa6b @0xc
0xa5f…a6f at000d = ╱ef╱$╱ // 0xa6c @0xd
0xa5f…a6f at000e = ╱ee╱)╱ // 0xa6d @0xe
0xa5f…a6f at000f = EOL // 0xa6e @0xf
0xa5f…a6f }
0xa6f…a7d a06b 1040 LET OK := FALSE
0xa6f…a7d LineComal80 {
0xa6f…a7d ptr = 0xa06b // 0xa6f @0x0
0xa6f…a7d lno = 0x0410 // 0xa71 @0x2
0xa6f…a7d at0004 = ╱86╱ LET ╱ // 0xa73 @0x4
0xa6f…a7d at0005 = ╱4f╱O╱ // 0xa74 @0x5
0xa6f…a7d at0006 = ╱4b╱K╱ // 0xa75 @0x6
0xa6f…a7d at0007 = ╱f0╱ := ╱ // 0xa76 @0x7
0xa6f…a7d at0008 = ╱46╱F╱ // 0xa77 @0x8
0xa6f…a7d at0009 = ╱41╱A╱ // 0xa78 @0x9
0xa6f…a7d at000a = ╱4c╱L╱ // 0xa79 @0xa
0xa6f…a7d at000b = ╱53╱S╱ // 0xa7a @0xb
0xa6f…a7d at000c = ╱45╱E╱ // 0xa7b @0xc
0xa6f…a7d at000d = EOL // 0xa7c @0xd
0xa6f…a7d }
0xa7d…a99 a087 1050 CURSOR 36 - ╱cb╱ (ST$) / 2,2
0xa7d…a99 LineComal80 {
0xa7d…a99 ptr = 0xa087 // 0xa7d @0x0
0xa7d…a99 lno = 0x041a // 0xa7f @0x2
0xa7d…a99 at0004 = ╱a1╱ CURSOR ╱ // 0xa81 @0x4
0xa7d…a99 at0005 = ╱33╱3╱ // 0xa82 @0x5
0xa7d…a99 at0006 = ╱36╱6╱ // 0xa83 @0x6
0xa7d…a99 at0007 = ╱f22400╱ // 0xa84 @0x7
0xa7d…a99 at000a = ╱e6╱ - ╱ // 0xa87 @0xa
0xa7d…a99 at000b = ╱cb╱ // 0xa88 @0xb
0xa7d…a99 at000c = ╱ed╱(╱ // 0xa89 @0xc
0xa7d…a99 at000d = ╱53╱S╱ // 0xa8a @0xd
0xa7d…a99 at000e = ╱54╱T╱ // 0xa8b @0xe
0xa7d…a99 at000f = ╱ef╱$╱ // 0xa8c @0xf
0xa7d…a99 at0010 = ╱ee╱)╱ // 0xa8d @0x10
0xa7d…a99 at0011 = ╱e8╱ / ╱ // 0xa8e @0x11
0xa7d…a99 at0012 = ╱32╱2╱ // 0xa8f @0x12
0xa7d…a99 at0013 = ╱f20200╱ // 0xa90 @0x13
0xa7d…a99 at0016 = ╱ec╱,╱ // 0xa93 @0x16
0xa7d…a99 at0017 = ╱32╱2╱ // 0xa94 @0x17
0xa7d…a99 at0018 = ╱f20200╱ // 0xa95 @0x18
0xa7d…a99 at001b = EOL // 0xa98 @0x1b
0xa7d…a99 }
0xa99…ab8 a0a6 1060 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
0xa99…ab8 LineComal80 {
0xa99…ab8 ptr = 0xa0a6 // 0xa99 @0x0
0xa99…ab8 lno = 0x0424 // 0xa9b @0x2
0xa99…ab8 at0004 = ╱92╱ PRINT ╱ // 0xa9d @0x4
0xa99…ab8 at0005 = ╱22╱"╱ // 0xa9e @0x5
0xa99…ab8 at0006 = ╱2a╱*╱ // 0xa9f @0x6
0xa99…ab8 at0007 = ╱2a╱*╱ // 0xaa0 @0x7
0xa99…ab8 at0008 = ╱2a╱*╱ // 0xaa1 @0x8
0xa99…ab8 at0009 = ╱20╱…╱ // 0xaa2 @0x9
0xa99…ab8 at000a = ╱22╱"╱ // 0xaa3 @0xa
0xa99…ab8 at000b = ╱eb╱ + ╱ // 0xaa4 @0xb
0xa99…ab8 at000c = ╱53╱S╱ // 0xaa5 @0xc
0xa99…ab8 at000d = ╱54╱T╱ // 0xaa6 @0xd
0xa99…ab8 at000e = ╱ef╱$╱ // 0xaa7 @0xe
0xa99…ab8 at000f = ╱eb╱ + ╱ // 0xaa8 @0xf
0xa99…ab8 at0010 = ╱22╱"╱ // 0xaa9 @0x10
0xa99…ab8 at0011 = ╱20╱…╱ // 0xaaa @0x11
0xa99…ab8 at0012 = ╱2a╱*╱ // 0xaab @0x12
0xa99…ab8 at0013 = ╱2a╱*╱ // 0xaac @0x13
0xa99…ab8 at0014 = ╱2a╱*╱ // 0xaad @0x14
0xa99…ab8 at0015 = ╱22╱"╱ // 0xaae @0x15
0xa99…ab8 at0016 = ╱ea╱ ; ╱ // 0xaaf @0x16
0xa99…ab8 at0017 = ╱d0╱ CHR$ ╱ // 0xab0 @0x17
0xa99…ab8 at0018 = ╱ed╱(╱ // 0xab1 @0x18
0xa99…ab8 at0019 = ╱37╱7╱ // 0xab2 @0x19
0xa99…ab8 at001a = ╱f20700╱ // 0xab3 @0x1a
0xa99…ab8 at001d = ╱ee╱)╱ // 0xab6 @0x1d
0xa99…ab8 at001e = EOL // 0xab7 @0x1e
0xa99…ab8 }
0xab8…ac2 a0b0 1070 ENDPROC FEJL
0xab8…ac2 LineComal80 {
0xab8…ac2 ptr = 0xa0b0 // 0xab8 @0x0
0xab8…ac2 lno = 0x042e // 0xaba @0x2
0xab8…ac2 at0004 = ╱9f╱ ENDPROC ╱ // 0xabc @0x4
0xab8…ac2 at0005 = ╱46╱F╱ // 0xabd @0x5
0xab8…ac2 at0006 = ╱45╱E╱ // 0xabe @0x6
0xab8…ac2 at0007 = ╱4a╱J╱ // 0xabf @0x7
0xab8…ac2 at0008 = ╱4c╱L╱ // 0xac0 @0x8
0xab8…ac2 at0009 = EOL // 0xac1 @0x9
0xab8…ac2 }
0xac2…ac7 a0b5 1080
0xac2…ac7 LineComal80 {
0xac2…ac7 ptr = 0xa0b5 // 0xac2 @0x0
0xac2…ac7 lno = 0x0438 // 0xac4 @0x2
0xac2…ac7 at0004 = EOL // 0xac6 @0x4
0xac2…ac7 }
0xac7…adb a0c9 1090 PROC FUNKTIONSMENU
0xac7…adb LineComal80 {
0xac7…adb ptr = 0xa0c9 // 0xac7 @0x0
0xac7…adb lno = 0x0442 // 0xac9 @0x2
0xac7…adb at0004 = ╱9e00╱ PROC ╱ // 0xacb @0x4
0xac7…adb at0006 = ╱46╱F╱ // 0xacd @0x6
0xac7…adb at0007 = ╱55╱U╱ // 0xace @0x7
0xac7…adb at0008 = ╱4e╱N╱ // 0xacf @0x8
0xac7…adb at0009 = ╱4b╱K╱ // 0xad0 @0x9
0xac7…adb at000a = ╱54╱T╱ // 0xad1 @0xa
0xac7…adb at000b = ╱49╱I╱ // 0xad2 @0xb
0xac7…adb at000c = ╱4f╱O╱ // 0xad3 @0xc
0xac7…adb at000d = ╱4e╱N╱ // 0xad4 @0xd
0xac7…adb at000e = ╱53╱S╱ // 0xad5 @0xe
0xac7…adb at000f = ╱4d╱M╱ // 0xad6 @0xf
0xac7…adb at0010 = ╱45╱E╱ // 0xad7 @0x10
0xac7…adb at0011 = ╱4e╱N╱ // 0xad8 @0x11
0xac7…adb at0012 = ╱55╱U╱ // 0xad9 @0x12
0xac7…adb at0013 = EOL // 0xada @0x13
0xac7…adb }
0xadb…b11 a0ff 1100 EXEC OVERSKRIFT("Udskrivning af bogføringsdata",7)
0xadb…b11 LineComal80 {
0xadb…b11 ptr = 0xa0ff // 0xadb @0x0
0xadb…b11 lno = 0x044c // 0xadd @0x2
0xadb…b11 at0004 = ╱9d╱ EXEC ╱ // 0xadf @0x4
0xadb…b11 at0005 = ╱4f╱O╱ // 0xae0 @0x5
0xadb…b11 at0006 = ╱56╱V╱ // 0xae1 @0x6
0xadb…b11 at0007 = ╱45╱E╱ // 0xae2 @0x7
0xadb…b11 at0008 = ╱52╱R╱ // 0xae3 @0x8
0xadb…b11 at0009 = ╱53╱S╱ // 0xae4 @0x9
0xadb…b11 at000a = ╱4b╱K╱ // 0xae5 @0xa
0xadb…b11 at000b = ╱52╱R╱ // 0xae6 @0xb
0xadb…b11 at000c = ╱49╱I╱ // 0xae7 @0xc
0xadb…b11 at000d = ╱46╱F╱ // 0xae8 @0xd
0xadb…b11 at000e = ╱54╱T╱ // 0xae9 @0xe
0xadb…b11 at000f = ╱ed╱(╱ // 0xaea @0xf
0xadb…b11 at0010 = ╱22╱"╱ // 0xaeb @0x10
0xadb…b11 at0011 = ╱55╱U╱ // 0xaec @0x11
0xadb…b11 at0012 = ╱64╱d╱ // 0xaed @0x12
0xadb…b11 at0013 = ╱73╱s╱ // 0xaee @0x13
0xadb…b11 at0014 = ╱6b╱k╱ // 0xaef @0x14
0xadb…b11 at0015 = ╱72╱r╱ // 0xaf0 @0x15
0xadb…b11 at0016 = ╱69╱i╱ // 0xaf1 @0x16
0xadb…b11 at0017 = ╱76╱v╱ // 0xaf2 @0x17
0xadb…b11 at0018 = ╱6e╱n╱ // 0xaf3 @0x18
0xadb…b11 at0019 = ╱69╱i╱ // 0xaf4 @0x19
0xadb…b11 at001a = ╱6e╱n╱ // 0xaf5 @0x1a
0xadb…b11 at001b = ╱67╱g╱ // 0xaf6 @0x1b
0xadb…b11 at001c = ╱20╱…╱ // 0xaf7 @0x1c
0xadb…b11 at001d = ╱61╱a╱ // 0xaf8 @0x1d
0xadb…b11 at001e = ╱66╱f╱ // 0xaf9 @0x1e
0xadb…b11 at001f = ╱20╱…╱ // 0xafa @0x1f
0xadb…b11 at0020 = ╱62╱b╱ // 0xafb @0x20
0xadb…b11 at0021 = ╱6f╱o╱ // 0xafc @0x21
0xadb…b11 at0022 = ╱67╱g╱ // 0xafd @0x22
0xadb…b11 at0023 = ╱66╱f╱ // 0xafe @0x23
0xadb…b11 at0024 = ╱7c╱ø╱ // 0xaff @0x24
0xadb…b11 at0025 = ╱72╱r╱ // 0xb00 @0x25
0xadb…b11 at0026 = ╱69╱i╱ // 0xb01 @0x26
0xadb…b11 at0027 = ╱6e╱n╱ // 0xb02 @0x27
0xadb…b11 at0028 = ╱67╱g╱ // 0xb03 @0x28
0xadb…b11 at0029 = ╱73╱s╱ // 0xb04 @0x29
0xadb…b11 at002a = ╱64╱d╱ // 0xb05 @0x2a
0xadb…b11 at002b = ╱61╱a╱ // 0xb06 @0x2b
0xadb…b11 at002c = ╱74╱t╱ // 0xb07 @0x2c
0xadb…b11 at002d = ╱61╱a╱ // 0xb08 @0x2d
0xadb…b11 at002e = ╱22╱"╱ // 0xb09 @0x2e
0xadb…b11 at002f = ╱ec╱,╱ // 0xb0a @0x2f
0xadb…b11 at0030 = ╱37╱7╱ // 0xb0b @0x30
0xadb…b11 at0031 = ╱f20700╱ // 0xb0c @0x31
0xadb…b11 at0034 = ╱ee╱)╱ // 0xb0f @0x34
0xadb…b11 at0035 = EOL // 0xb10 @0x35
0xadb…b11 }
0xb11…b4a a138 1110 PRINT "<C1910>Kontokort UK"
0xb11…b4a LineComal80 {
0xb11…b4a ptr = 0xa138 // 0xb11 @0x0
0xb11…b4a lno = 0x0456 // 0xb13 @0x2
0xb11…b4a at0004 = ╱92╱ PRINT ╱ // 0xb15 @0x4
0xb11…b4a at0005 = ╱22╱"╱ // 0xb16 @0x5
0xb11…b4a at0006 = ╱3c╱<╱ // 0xb17 @0x6
0xb11…b4a at0007 = ╱43╱C╱ // 0xb18 @0x7
0xb11…b4a at0008 = ╱31╱1╱ // 0xb19 @0x8
0xb11…b4a at0009 = ╱39╱9╱ // 0xb1a @0x9
0xb11…b4a at000a = ╱31╱1╱ // 0xb1b @0xa
0xb11…b4a at000b = ╱30╱0╱ // 0xb1c @0xb
0xb11…b4a at000c = ╱3e╱>╱ // 0xb1d @0xc
0xb11…b4a at000d = ╱4b╱K╱ // 0xb1e @0xd
0xb11…b4a at000e = ╱6f╱o╱ // 0xb1f @0xe
0xb11…b4a at000f = ╱6e╱n╱ // 0xb20 @0xf
0xb11…b4a at0010 = ╱74╱t╱ // 0xb21 @0x10
0xb11…b4a at0011 = ╱6f╱o╱ // 0xb22 @0x11
0xb11…b4a at0012 = ╱6b╱k╱ // 0xb23 @0x12
0xb11…b4a at0013 = ╱6f╱o╱ // 0xb24 @0x13
0xb11…b4a at0014 = ╱72╱r╱ // 0xb25 @0x14
0xb11…b4a at0015 = ╱74╱t╱ // 0xb26 @0x15
0xb11…b4a at0016 = ╱20╱…╱ // 0xb27 @0x16
0xb11…b4a at0017 = ╱20╱…╱ // 0xb28 @0x17
0xb11…b4a at0018 = ╱20╱…╱ // 0xb29 @0x18
0xb11…b4a at0019 = ╱20╱…╱ // 0xb2a @0x19
0xb11…b4a at001a = ╱20╱…╱ // 0xb2b @0x1a
0xb11…b4a at001b = ╱20╱…╱ // 0xb2c @0x1b
0xb11…b4a at001c = ╱20╱…╱ // 0xb2d @0x1c
0xb11…b4a at001d = ╱20╱…╱ // 0xb2e @0x1d
0xb11…b4a at001e = ╱20╱…╱ // 0xb2f @0x1e
0xb11…b4a at001f = ╱20╱…╱ // 0xb30 @0x1f
0xb11…b4a at0020 = ╱20╱…╱ // 0xb31 @0x20
0xb11…b4a at0021 = ╱20╱…╱ // 0xb32 @0x21
0xb11…b4a at0022 = ╱20╱…╱ // 0xb33 @0x22
0xb11…b4a at0023 = ╱20╱…╱ // 0xb34 @0x23
0xb11…b4a at0024 = ╱20╱…╱ // 0xb35 @0x24
0xb11…b4a at0025 = ╱20╱…╱ // 0xb36 @0x25
0xb11…b4a at0026 = ╱20╱…╱ // 0xb37 @0x26
0xb11…b4a at0027 = ╱20╱…╱ // 0xb38 @0x27
0xb11…b4a at0028 = ╱20╱…╱ // 0xb39 @0x28
0xb11…b4a at0029 = ╱20╱…╱ // 0xb3a @0x29
0xb11…b4a at002a = ╱20╱…╱ // 0xb3b @0x2a
0xb11…b4a at002b = ╱20╱…╱ // 0xb3c @0x2b
0xb11…b4a at002c = ╱20╱…╱ // 0xb3d @0x2c
0xb11…b4a at002d = ╱20╱…╱ // 0xb3e @0x2d
0xb11…b4a at002e = ╱20╱…╱ // 0xb3f @0x2e
0xb11…b4a at002f = ╱20╱…╱ // 0xb40 @0x2f
0xb11…b4a at0030 = ╱20╱…╱ // 0xb41 @0x30
0xb11…b4a at0031 = ╱20╱…╱ // 0xb42 @0x31
0xb11…b4a at0032 = ╱20╱…╱ // 0xb43 @0x32
0xb11…b4a at0033 = ╱20╱…╱ // 0xb44 @0x33
0xb11…b4a at0034 = ╱20╱…╱ // 0xb45 @0x34
0xb11…b4a at0035 = ╱55╱U╱ // 0xb46 @0x35
0xb11…b4a at0036 = ╱4b╱K╱ // 0xb47 @0x36
0xb11…b4a at0037 = ╱22╱"╱ // 0xb48 @0x37
0xb11…b4a at0038 = EOL // 0xb49 @0x38
0xb11…b4a }
0xb4a…b83 a171 1120 PRINT "<C1912>Kontoplan UP"
0xb4a…b83 LineComal80 {
0xb4a…b83 ptr = 0xa171 // 0xb4a @0x0
0xb4a…b83 lno = 0x0460 // 0xb4c @0x2
0xb4a…b83 at0004 = ╱92╱ PRINT ╱ // 0xb4e @0x4
0xb4a…b83 at0005 = ╱22╱"╱ // 0xb4f @0x5
0xb4a…b83 at0006 = ╱3c╱<╱ // 0xb50 @0x6
0xb4a…b83 at0007 = ╱43╱C╱ // 0xb51 @0x7
0xb4a…b83 at0008 = ╱31╱1╱ // 0xb52 @0x8
0xb4a…b83 at0009 = ╱39╱9╱ // 0xb53 @0x9
0xb4a…b83 at000a = ╱31╱1╱ // 0xb54 @0xa
0xb4a…b83 at000b = ╱32╱2╱ // 0xb55 @0xb
0xb4a…b83 at000c = ╱3e╱>╱ // 0xb56 @0xc
0xb4a…b83 at000d = ╱4b╱K╱ // 0xb57 @0xd
0xb4a…b83 at000e = ╱6f╱o╱ // 0xb58 @0xe
0xb4a…b83 at000f = ╱6e╱n╱ // 0xb59 @0xf
0xb4a…b83 at0010 = ╱74╱t╱ // 0xb5a @0x10
0xb4a…b83 at0011 = ╱6f╱o╱ // 0xb5b @0x11
0xb4a…b83 at0012 = ╱70╱p╱ // 0xb5c @0x12
0xb4a…b83 at0013 = ╱6c╱l╱ // 0xb5d @0x13
0xb4a…b83 at0014 = ╱61╱a╱ // 0xb5e @0x14
0xb4a…b83 at0015 = ╱6e╱n╱ // 0xb5f @0x15
0xb4a…b83 at0016 = ╱20╱…╱ // 0xb60 @0x16
0xb4a…b83 at0017 = ╱20╱…╱ // 0xb61 @0x17
0xb4a…b83 at0018 = ╱20╱…╱ // 0xb62 @0x18
0xb4a…b83 at0019 = ╱20╱…╱ // 0xb63 @0x19
0xb4a…b83 at001a = ╱20╱…╱ // 0xb64 @0x1a
0xb4a…b83 at001b = ╱20╱…╱ // 0xb65 @0x1b
0xb4a…b83 at001c = ╱20╱…╱ // 0xb66 @0x1c
0xb4a…b83 at001d = ╱20╱…╱ // 0xb67 @0x1d
0xb4a…b83 at001e = ╱20╱…╱ // 0xb68 @0x1e
0xb4a…b83 at001f = ╱20╱…╱ // 0xb69 @0x1f
0xb4a…b83 at0020 = ╱20╱…╱ // 0xb6a @0x20
0xb4a…b83 at0021 = ╱20╱…╱ // 0xb6b @0x21
0xb4a…b83 at0022 = ╱20╱…╱ // 0xb6c @0x22
0xb4a…b83 at0023 = ╱20╱…╱ // 0xb6d @0x23
0xb4a…b83 at0024 = ╱20╱…╱ // 0xb6e @0x24
0xb4a…b83 at0025 = ╱20╱…╱ // 0xb6f @0x25
0xb4a…b83 at0026 = ╱20╱…╱ // 0xb70 @0x26
0xb4a…b83 at0027 = ╱20╱…╱ // 0xb71 @0x27
0xb4a…b83 at0028 = ╱20╱…╱ // 0xb72 @0x28
0xb4a…b83 at0029 = ╱20╱…╱ // 0xb73 @0x29
0xb4a…b83 at002a = ╱20╱…╱ // 0xb74 @0x2a
0xb4a…b83 at002b = ╱20╱…╱ // 0xb75 @0x2b
0xb4a…b83 at002c = ╱20╱…╱ // 0xb76 @0x2c
0xb4a…b83 at002d = ╱20╱…╱ // 0xb77 @0x2d
0xb4a…b83 at002e = ╱20╱…╱ // 0xb78 @0x2e
0xb4a…b83 at002f = ╱20╱…╱ // 0xb79 @0x2f
0xb4a…b83 at0030 = ╱20╱…╱ // 0xb7a @0x30
0xb4a…b83 at0031 = ╱20╱…╱ // 0xb7b @0x31
0xb4a…b83 at0032 = ╱20╱…╱ // 0xb7c @0x32
0xb4a…b83 at0033 = ╱20╱…╱ // 0xb7d @0x33
0xb4a…b83 at0034 = ╱20╱…╱ // 0xb7e @0x34
0xb4a…b83 at0035 = ╱55╱U╱ // 0xb7f @0x35
0xb4a…b83 at0036 = ╱50╱P╱ // 0xb80 @0x36
0xb4a…b83 at0037 = ╱22╱"╱ // 0xb81 @0x37
0xb4a…b83 at0038 = EOL // 0xb82 @0x38
0xb4a…b83 }
0xb83…bbc a1aa 1130 PRINT "<C1914>Saldobalance US"
0xb83…bbc LineComal80 {
0xb83…bbc ptr = 0xa1aa // 0xb83 @0x0
0xb83…bbc lno = 0x046a // 0xb85 @0x2
0xb83…bbc at0004 = ╱92╱ PRINT ╱ // 0xb87 @0x4
0xb83…bbc at0005 = ╱22╱"╱ // 0xb88 @0x5
0xb83…bbc at0006 = ╱3c╱<╱ // 0xb89 @0x6
0xb83…bbc at0007 = ╱43╱C╱ // 0xb8a @0x7
0xb83…bbc at0008 = ╱31╱1╱ // 0xb8b @0x8
0xb83…bbc at0009 = ╱39╱9╱ // 0xb8c @0x9
0xb83…bbc at000a = ╱31╱1╱ // 0xb8d @0xa
0xb83…bbc at000b = ╱34╱4╱ // 0xb8e @0xb
0xb83…bbc at000c = ╱3e╱>╱ // 0xb8f @0xc
0xb83…bbc at000d = ╱53╱S╱ // 0xb90 @0xd
0xb83…bbc at000e = ╱61╱a╱ // 0xb91 @0xe
0xb83…bbc at000f = ╱6c╱l╱ // 0xb92 @0xf
0xb83…bbc at0010 = ╱64╱d╱ // 0xb93 @0x10
0xb83…bbc at0011 = ╱6f╱o╱ // 0xb94 @0x11
0xb83…bbc at0012 = ╱62╱b╱ // 0xb95 @0x12
0xb83…bbc at0013 = ╱61╱a╱ // 0xb96 @0x13
0xb83…bbc at0014 = ╱6c╱l╱ // 0xb97 @0x14
0xb83…bbc at0015 = ╱61╱a╱ // 0xb98 @0x15
0xb83…bbc at0016 = ╱6e╱n╱ // 0xb99 @0x16
0xb83…bbc at0017 = ╱63╱c╱ // 0xb9a @0x17
0xb83…bbc at0018 = ╱65╱e╱ // 0xb9b @0x18
0xb83…bbc at0019 = ╱20╱…╱ // 0xb9c @0x19
0xb83…bbc at001a = ╱20╱…╱ // 0xb9d @0x1a
0xb83…bbc at001b = ╱20╱…╱ // 0xb9e @0x1b
0xb83…bbc at001c = ╱20╱…╱ // 0xb9f @0x1c
0xb83…bbc at001d = ╱20╱…╱ // 0xba0 @0x1d
0xb83…bbc at001e = ╱20╱…╱ // 0xba1 @0x1e
0xb83…bbc at001f = ╱20╱…╱ // 0xba2 @0x1f
0xb83…bbc at0020 = ╱20╱…╱ // 0xba3 @0x20
0xb83…bbc at0021 = ╱20╱…╱ // 0xba4 @0x21
0xb83…bbc at0022 = ╱20╱…╱ // 0xba5 @0x22
0xb83…bbc at0023 = ╱20╱…╱ // 0xba6 @0x23
0xb83…bbc at0024 = ╱20╱…╱ // 0xba7 @0x24
0xb83…bbc at0025 = ╱20╱…╱ // 0xba8 @0x25
0xb83…bbc at0026 = ╱20╱…╱ // 0xba9 @0x26
0xb83…bbc at0027 = ╱20╱…╱ // 0xbaa @0x27
0xb83…bbc at0028 = ╱20╱…╱ // 0xbab @0x28
0xb83…bbc at0029 = ╱20╱…╱ // 0xbac @0x29
0xb83…bbc at002a = ╱20╱…╱ // 0xbad @0x2a
0xb83…bbc at002b = ╱20╱…╱ // 0xbae @0x2b
0xb83…bbc at002c = ╱20╱…╱ // 0xbaf @0x2c
0xb83…bbc at002d = ╱20╱…╱ // 0xbb0 @0x2d
0xb83…bbc at002e = ╱20╱…╱ // 0xbb1 @0x2e
0xb83…bbc at002f = ╱20╱…╱ // 0xbb2 @0x2f
0xb83…bbc at0030 = ╱20╱…╱ // 0xbb3 @0x30
0xb83…bbc at0031 = ╱20╱…╱ // 0xbb4 @0x31
0xb83…bbc at0032 = ╱20╱…╱ // 0xbb5 @0x32
0xb83…bbc at0033 = ╱20╱…╱ // 0xbb6 @0x33
0xb83…bbc at0034 = ╱20╱…╱ // 0xbb7 @0x34
0xb83…bbc at0035 = ╱55╱U╱ // 0xbb8 @0x35
0xb83…bbc at0036 = ╱53╱S╱ // 0xbb9 @0x36
0xb83…bbc at0037 = ╱22╱"╱ // 0xbba @0x37
0xb83…bbc at0038 = EOL // 0xbbb @0x38
0xb83…bbc }
0xbbc…bf7 a1e5 1140 PRINT "<C1917>Programfordeler RETURN"
0xbbc…bf7 LineComal80 {
0xbbc…bf7 ptr = 0xa1e5 // 0xbbc @0x0
0xbbc…bf7 lno = 0x0474 // 0xbbe @0x2
0xbbc…bf7 at0004 = ╱92╱ PRINT ╱ // 0xbc0 @0x4
0xbbc…bf7 at0005 = ╱22╱"╱ // 0xbc1 @0x5
0xbbc…bf7 at0006 = ╱3c╱<╱ // 0xbc2 @0x6
0xbbc…bf7 at0007 = ╱43╱C╱ // 0xbc3 @0x7
0xbbc…bf7 at0008 = ╱31╱1╱ // 0xbc4 @0x8
0xbbc…bf7 at0009 = ╱39╱9╱ // 0xbc5 @0x9
0xbbc…bf7 at000a = ╱31╱1╱ // 0xbc6 @0xa
0xbbc…bf7 at000b = ╱37╱7╱ // 0xbc7 @0xb
0xbbc…bf7 at000c = ╱3e╱>╱ // 0xbc8 @0xc
0xbbc…bf7 at000d = ╱50╱P╱ // 0xbc9 @0xd
0xbbc…bf7 at000e = ╱72╱r╱ // 0xbca @0xe
0xbbc…bf7 at000f = ╱6f╱o╱ // 0xbcb @0xf
0xbbc…bf7 at0010 = ╱67╱g╱ // 0xbcc @0x10
0xbbc…bf7 at0011 = ╱72╱r╱ // 0xbcd @0x11
0xbbc…bf7 at0012 = ╱61╱a╱ // 0xbce @0x12
0xbbc…bf7 at0013 = ╱6d╱m╱ // 0xbcf @0x13
0xbbc…bf7 at0014 = ╱66╱f╱ // 0xbd0 @0x14
0xbbc…bf7 at0015 = ╱6f╱o╱ // 0xbd1 @0x15
0xbbc…bf7 at0016 = ╱72╱r╱ // 0xbd2 @0x16
0xbbc…bf7 at0017 = ╱64╱d╱ // 0xbd3 @0x17
0xbbc…bf7 at0018 = ╱65╱e╱ // 0xbd4 @0x18
0xbbc…bf7 at0019 = ╱6c╱l╱ // 0xbd5 @0x19
0xbbc…bf7 at001a = ╱65╱e╱ // 0xbd6 @0x1a
0xbbc…bf7 at001b = ╱72╱r╱ // 0xbd7 @0x1b
0xbbc…bf7 at001c = ╱20╱…╱ // 0xbd8 @0x1c
0xbbc…bf7 at001d = ╱20╱…╱ // 0xbd9 @0x1d
0xbbc…bf7 at001e = ╱20╱…╱ // 0xbda @0x1e
0xbbc…bf7 at001f = ╱20╱…╱ // 0xbdb @0x1f
0xbbc…bf7 at0020 = ╱20╱…╱ // 0xbdc @0x20
0xbbc…bf7 at0021 = ╱20╱…╱ // 0xbdd @0x21
0xbbc…bf7 at0022 = ╱20╱…╱ // 0xbde @0x22
0xbbc…bf7 at0023 = ╱20╱…╱ // 0xbdf @0x23
0xbbc…bf7 at0024 = ╱20╱…╱ // 0xbe0 @0x24
0xbbc…bf7 at0025 = ╱20╱…╱ // 0xbe1 @0x25
0xbbc…bf7 at0026 = ╱20╱…╱ // 0xbe2 @0x26
0xbbc…bf7 at0027 = ╱20╱…╱ // 0xbe3 @0x27
0xbbc…bf7 at0028 = ╱20╱…╱ // 0xbe4 @0x28
0xbbc…bf7 at0029 = ╱20╱…╱ // 0xbe5 @0x29
0xbbc…bf7 at002a = ╱20╱…╱ // 0xbe6 @0x2a
0xbbc…bf7 at002b = ╱20╱…╱ // 0xbe7 @0x2b
0xbbc…bf7 at002c = ╱20╱…╱ // 0xbe8 @0x2c
0xbbc…bf7 at002d = ╱20╱…╱ // 0xbe9 @0x2d
0xbbc…bf7 at002e = ╱20╱…╱ // 0xbea @0x2e
0xbbc…bf7 at002f = ╱20╱…╱ // 0xbeb @0x2f
0xbbc…bf7 at0030 = ╱20╱…╱ // 0xbec @0x30
0xbbc…bf7 at0031 = ╱20╱…╱ // 0xbed @0x31
0xbbc…bf7 at0032 = ╱20╱…╱ // 0xbee @0x32
0xbbc…bf7 at0033 = ╱52╱R╱ // 0xbef @0x33
0xbbc…bf7 at0034 = ╱45╱E╱ // 0xbf0 @0x34
0xbbc…bf7 at0035 = ╱54╱T╱ // 0xbf1 @0x35
0xbbc…bf7 at0036 = ╱55╱U╱ // 0xbf2 @0x36
0xbbc…bf7 at0037 = ╱52╱R╱ // 0xbf3 @0x37
0xbbc…bf7 at0038 = ╱4e╱N╱ // 0xbf4 @0x38
0xbbc…bf7 at0039 = ╱22╱"╱ // 0xbf5 @0x39
0xbbc…bf7 at003a = EOL // 0xbf6 @0x3a
0xbbc…bf7 }
0xbf7…bfe a1ec 1150 REPEAT
0xbf7…bfe LineComal80 {
0xbf7…bfe ptr = 0xa1ec // 0xbf7 @0x0
0xbf7…bfe lno = 0x047e // 0xbf9 @0x2
0xbf7…bfe at0004 = ╱9700╱ REPEAT ╱ // 0xbfb @0x4
0xbf7…bfe at0006 = EOL // 0xbfd @0x6
0xbf7…bfe }
0xbfe…c35 a223 1160 EDIT "<C2720>Indtast funktionskode: " : SVAR$(1 : 2)
0xbfe…c35 LineComal80 {
0xbfe…c35 ptr = 0xa223 // 0xbfe @0x0
0xbfe…c35 lno = 0x0488 // 0xc00 @0x2
0xbfe…c35 at0004 = ╱b1╱ EDIT ╱ // 0xc02 @0x4
0xbfe…c35 at0005 = ╱22╱"╱ // 0xc03 @0x5
0xbfe…c35 at0006 = ╱3c╱<╱ // 0xc04 @0x6
0xbfe…c35 at0007 = ╱43╱C╱ // 0xc05 @0x7
0xbfe…c35 at0008 = ╱32╱2╱ // 0xc06 @0x8
0xbfe…c35 at0009 = ╱37╱7╱ // 0xc07 @0x9
0xbfe…c35 at000a = ╱32╱2╱ // 0xc08 @0xa
0xbfe…c35 at000b = ╱30╱0╱ // 0xc09 @0xb
0xbfe…c35 at000c = ╱3e╱>╱ // 0xc0a @0xc
0xbfe…c35 at000d = ╱49╱I╱ // 0xc0b @0xd
0xbfe…c35 at000e = ╱6e╱n╱ // 0xc0c @0xe
0xbfe…c35 at000f = ╱64╱d╱ // 0xc0d @0xf
0xbfe…c35 at0010 = ╱74╱t╱ // 0xc0e @0x10
0xbfe…c35 at0011 = ╱61╱a╱ // 0xc0f @0x11
0xbfe…c35 at0012 = ╱73╱s╱ // 0xc10 @0x12
0xbfe…c35 at0013 = ╱74╱t╱ // 0xc11 @0x13
0xbfe…c35 at0014 = ╱20╱…╱ // 0xc12 @0x14
0xbfe…c35 at0015 = ╱66╱f╱ // 0xc13 @0x15
0xbfe…c35 at0016 = ╱75╱u╱ // 0xc14 @0x16
0xbfe…c35 at0017 = ╱6e╱n╱ // 0xc15 @0x17
0xbfe…c35 at0018 = ╱6b╱k╱ // 0xc16 @0x18
0xbfe…c35 at0019 = ╱74╱t╱ // 0xc17 @0x19
0xbfe…c35 at001a = ╱69╱i╱ // 0xc18 @0x1a
0xbfe…c35 at001b = ╱6f╱o╱ // 0xc19 @0x1b
0xbfe…c35 at001c = ╱6e╱n╱ // 0xc1a @0x1c
0xbfe…c35 at001d = ╱73╱s╱ // 0xc1b @0x1d
0xbfe…c35 at001e = ╱6b╱k╱ // 0xc1c @0x1e
0xbfe…c35 at001f = ╱6f╱o╱ // 0xc1d @0x1f
0xbfe…c35 at0020 = ╱64╱d╱ // 0xc1e @0x20
0xbfe…c35 at0021 = ╱65╱e╱ // 0xc1f @0x21
0xbfe…c35 at0022 = ╱3a╱:╱ // 0xc20 @0x22
0xbfe…c35 at0023 = ╱20╱…╱ // 0xc21 @0x23
0xbfe…c35 at0024 = ╱22╱"╱ // 0xc22 @0x24
0xbfe…c35 at0025 = ╱f1╱ : ╱ // 0xc23 @0x25
0xbfe…c35 at0026 = ╱53╱S╱ // 0xc24 @0x26
0xbfe…c35 at0027 = ╱56╱V╱ // 0xc25 @0x27
0xbfe…c35 at0028 = ╱41╱A╱ // 0xc26 @0x28
0xbfe…c35 at0029 = ╱52╱R╱ // 0xc27 @0x29
0xbfe…c35 at002a = ╱ef╱$╱ // 0xc28 @0x2a
0xbfe…c35 at002b = ╱ed╱(╱ // 0xc29 @0x2b
0xbfe…c35 at002c = ╱31╱1╱ // 0xc2a @0x2c
0xbfe…c35 at002d = ╱f20100╱ // 0xc2b @0x2d
0xbfe…c35 at0030 = ╱f1╱ : ╱ // 0xc2e @0x30
0xbfe…c35 at0031 = ╱32╱2╱ // 0xc2f @0x31
0xbfe…c35 at0032 = ╱f20200╱ // 0xc30 @0x32
0xbfe…c35 at0035 = ╱ee╱)╱ // 0xc33 @0x35
0xbfe…c35 at0036 = EOL // 0xc34 @0x36
0xbfe…c35 }
0xc35…c47 a235 1170 EXEC SL_FEJLLINIE
0xc35…c47 LineComal80 {
0xc35…c47 ptr = 0xa235 // 0xc35 @0x0
0xc35…c47 lno = 0x0492 // 0xc37 @0x2
0xc35…c47 at0004 = ╱9d╱ EXEC ╱ // 0xc39 @0x4
0xc35…c47 at0005 = ╱53╱S╱ // 0xc3a @0x5
0xc35…c47 at0006 = ╱4c╱L╱ // 0xc3b @0x6
0xc35…c47 at0007 = ╱5f╱_╱ // 0xc3c @0x7
0xc35…c47 at0008 = ╱46╱F╱ // 0xc3d @0x8
0xc35…c47 at0009 = ╱45╱E╱ // 0xc3e @0x9
0xc35…c47 at000a = ╱4a╱J╱ // 0xc3f @0xa
0xc35…c47 at000b = ╱4c╱L╱ // 0xc40 @0xb
0xc35…c47 at000c = ╱4c╱L╱ // 0xc41 @0xc
0xc35…c47 at000d = ╱49╱I╱ // 0xc42 @0xd
0xc35…c47 at000e = ╱4e╱N╱ // 0xc43 @0xe
0xc35…c47 at000f = ╱49╱I╱ // 0xc44 @0xf
0xc35…c47 at0010 = ╱45╱E╱ // 0xc45 @0x10
0xc35…c47 at0011 = EOL // 0xc46 @0x11
0xc35…c47 }
0xc47…c79 a267 1180 IF "/" + SVAR$ + "/" IN "/UK/uk/UP/up/US/us// / /" THEN
0xc47…c79 LineComal80 {
0xc47…c79 ptr = 0xa267 // 0xc47 @0x0
0xc47…c79 lno = 0x049c // 0xc49 @0x2
0xc47…c79 at0004 = ╱9b00d7╱ IF ╱ // 0xc4b @0x4
0xc47…c79 at0007 = ╱22╱"╱ // 0xc4e @0x7
0xc47…c79 at0008 = ╱2f╱/╱ // 0xc4f @0x8
0xc47…c79 at0009 = ╱22╱"╱ // 0xc50 @0x9
0xc47…c79 at000a = ╱eb╱ + ╱ // 0xc51 @0xa
0xc47…c79 at000b = ╱53╱S╱ // 0xc52 @0xb
0xc47…c79 at000c = ╱56╱V╱ // 0xc53 @0xc
0xc47…c79 at000d = ╱41╱A╱ // 0xc54 @0xd
0xc47…c79 at000e = ╱52╱R╱ // 0xc55 @0xe
0xc47…c79 at000f = ╱ef╱$╱ // 0xc56 @0xf
0xc47…c79 at0010 = ╱eb╱ + ╱ // 0xc57 @0x10
0xc47…c79 at0011 = ╱22╱"╱ // 0xc58 @0x11
0xc47…c79 at0012 = ╱2f╱/╱ // 0xc59 @0x12
0xc47…c79 at0013 = ╱22╱"╱ // 0xc5a @0x13
0xc47…c79 at0014 = ╱dc╱ IN ╱ // 0xc5b @0x14
0xc47…c79 at0015 = ╱22╱"╱ // 0xc5c @0x15
0xc47…c79 at0016 = ╱2f╱/╱ // 0xc5d @0x16
0xc47…c79 at0017 = ╱55╱U╱ // 0xc5e @0x17
0xc47…c79 at0018 = ╱4b╱K╱ // 0xc5f @0x18
0xc47…c79 at0019 = ╱2f╱/╱ // 0xc60 @0x19
0xc47…c79 at001a = ╱75╱u╱ // 0xc61 @0x1a
0xc47…c79 at001b = ╱6b╱k╱ // 0xc62 @0x1b
0xc47…c79 at001c = ╱2f╱/╱ // 0xc63 @0x1c
0xc47…c79 at001d = ╱55╱U╱ // 0xc64 @0x1d
0xc47…c79 at001e = ╱50╱P╱ // 0xc65 @0x1e
0xc47…c79 at001f = ╱2f╱/╱ // 0xc66 @0x1f
0xc47…c79 at0020 = ╱75╱u╱ // 0xc67 @0x20
0xc47…c79 at0021 = ╱70╱p╱ // 0xc68 @0x21
0xc47…c79 at0022 = ╱2f╱/╱ // 0xc69 @0x22
0xc47…c79 at0023 = ╱55╱U╱ // 0xc6a @0x23
0xc47…c79 at0024 = ╱53╱S╱ // 0xc6b @0x24
0xc47…c79 at0025 = ╱2f╱/╱ // 0xc6c @0x25
0xc47…c79 at0026 = ╱75╱u╱ // 0xc6d @0x26
0xc47…c79 at0027 = ╱73╱s╱ // 0xc6e @0x27
0xc47…c79 at0028 = ╱2f╱/╱ // 0xc6f @0x28
0xc47…c79 at0029 = ╱2f╱/╱ // 0xc70 @0x29
0xc47…c79 at002a = ╱20╱…╱ // 0xc71 @0x2a
0xc47…c79 at002b = ╱20╱…╱ // 0xc72 @0x2b
0xc47…c79 at002c = ╱2f╱/╱ // 0xc73 @0x2c
0xc47…c79 at002d = ╱20╱…╱ // 0xc74 @0x2d
0xc47…c79 at002e = ╱2f╱/╱ // 0xc75 @0x2e
0xc47…c79 at002f = ╱22╱"╱ // 0xc76 @0x2f
0xc47…c79 at0030 = ╱b5╱ THEN ╱ // 0xc77 @0x30
0xc47…c79 at0031 = EOL // 0xc78 @0x31
0xc47…c79 }
0xc79…ca9 a297 1190 EXEC FEJL("Ulovlig funktionskode: '" + SVAR$ + "'")
0xc79…ca9 LineComal80 {
0xc79…ca9 ptr = 0xa297 // 0xc79 @0x0
0xc79…ca9 lno = 0x04a6 // 0xc7b @0x2
0xc79…ca9 at0004 = ╱9d╱ EXEC ╱ // 0xc7d @0x4
0xc79…ca9 at0005 = ╱46╱F╱ // 0xc7e @0x5
0xc79…ca9 at0006 = ╱45╱E╱ // 0xc7f @0x6
0xc79…ca9 at0007 = ╱4a╱J╱ // 0xc80 @0x7
0xc79…ca9 at0008 = ╱4c╱L╱ // 0xc81 @0x8
0xc79…ca9 at0009 = ╱ed╱(╱ // 0xc82 @0x9
0xc79…ca9 at000a = ╱22╱"╱ // 0xc83 @0xa
0xc79…ca9 at000b = ╱55╱U╱ // 0xc84 @0xb
0xc79…ca9 at000c = ╱6c╱l╱ // 0xc85 @0xc
0xc79…ca9 at000d = ╱6f╱o╱ // 0xc86 @0xd
0xc79…ca9 at000e = ╱76╱v╱ // 0xc87 @0xe
0xc79…ca9 at000f = ╱6c╱l╱ // 0xc88 @0xf
0xc79…ca9 at0010 = ╱69╱i╱ // 0xc89 @0x10
0xc79…ca9 at0011 = ╱67╱g╱ // 0xc8a @0x11
0xc79…ca9 at0012 = ╱20╱…╱ // 0xc8b @0x12
0xc79…ca9 at0013 = ╱66╱f╱ // 0xc8c @0x13
0xc79…ca9 at0014 = ╱75╱u╱ // 0xc8d @0x14
0xc79…ca9 at0015 = ╱6e╱n╱ // 0xc8e @0x15
0xc79…ca9 at0016 = ╱6b╱k╱ // 0xc8f @0x16
0xc79…ca9 at0017 = ╱74╱t╱ // 0xc90 @0x17
0xc79…ca9 at0018 = ╱69╱i╱ // 0xc91 @0x18
0xc79…ca9 at0019 = ╱6f╱o╱ // 0xc92 @0x19
0xc79…ca9 at001a = ╱6e╱n╱ // 0xc93 @0x1a
0xc79…ca9 at001b = ╱73╱s╱ // 0xc94 @0x1b
0xc79…ca9 at001c = ╱6b╱k╱ // 0xc95 @0x1c
0xc79…ca9 at001d = ╱6f╱o╱ // 0xc96 @0x1d
0xc79…ca9 at001e = ╱64╱d╱ // 0xc97 @0x1e
0xc79…ca9 at001f = ╱65╱e╱ // 0xc98 @0x1f
0xc79…ca9 at0020 = ╱3a╱:╱ // 0xc99 @0x20
0xc79…ca9 at0021 = ╱20╱…╱ // 0xc9a @0x21
0xc79…ca9 at0022 = ╱27╱'╱ // 0xc9b @0x22
0xc79…ca9 at0023 = ╱22╱"╱ // 0xc9c @0x23
0xc79…ca9 at0024 = ╱eb╱ + ╱ // 0xc9d @0x24
0xc79…ca9 at0025 = ╱53╱S╱ // 0xc9e @0x25
0xc79…ca9 at0026 = ╱56╱V╱ // 0xc9f @0x26
0xc79…ca9 at0027 = ╱41╱A╱ // 0xca0 @0x27
0xc79…ca9 at0028 = ╱52╱R╱ // 0xca1 @0x28
0xc79…ca9 at0029 = ╱ef╱$╱ // 0xca2 @0x29
0xc79…ca9 at002a = ╱eb╱ + ╱ // 0xca3 @0x2a
0xc79…ca9 at002b = ╱22╱"╱ // 0xca4 @0x2b
0xc79…ca9 at002c = ╱27╱'╱ // 0xca5 @0x2c
0xc79…ca9 at002d = ╱22╱"╱ // 0xca6 @0x2d
0xc79…ca9 at002e = ╱ee╱)╱ // 0xca7 @0x2e
0xc79…ca9 at002f = EOL // 0xca8 @0x2f
0xc79…ca9 }
0xca9…caf a29d 1200 ENDIF
0xca9…caf LineComal80 {
0xca9…caf ptr = 0xa29d // 0xca9 @0x0
0xca9…caf lno = 0x04b0 // 0xcab @0x2
0xca9…caf at0004 = ╱9c╱ ENDIF ╱ // 0xcad @0x4
0xca9…caf at0005 = EOL // 0xcae @0x5
0xca9…caf }
0xcaf…cb7 a2a5 1210 UNTIL OK
0xcaf…cb7 LineComal80 {
0xcaf…cb7 ptr = 0xa2a5 // 0xcaf @0x0
0xcaf…cb7 lno = 0x04ba // 0xcb1 @0x2
0xcaf…cb7 at0004 = ╱98╱ UNTIL ╱ // 0xcb3 @0x4
0xcaf…cb7 at0005 = ╱4f╱O╱ // 0xcb4 @0x5
0xcaf…cb7 at0006 = ╱4b╱K╱ // 0xcb5 @0x6
0xcaf…cb7 at0007 = EOL // 0xcb6 @0x7
0xcaf…cb7 }
0xcb7…cd9 a320 1220 LET PROGRAM$ := PRGFL$ + ":SYS" + SVAR$
0xcb7…cd9 LineComal80 {
0xcb7…cd9 ptr = 0xa320 // 0xcb7 @0x0
0xcb7…cd9 lno = 0x04c4 // 0xcb9 @0x2
0xcb7…cd9 at0004 = ╱86╱ LET ╱ // 0xcbb @0x4
0xcb7…cd9 at0005 = ╱50╱P╱ // 0xcbc @0x5
0xcb7…cd9 at0006 = ╱52╱R╱ // 0xcbd @0x6
0xcb7…cd9 at0007 = ╱4f╱O╱ // 0xcbe @0x7
0xcb7…cd9 at0008 = ╱47╱G╱ // 0xcbf @0x8
0xcb7…cd9 at0009 = ╱52╱R╱ // 0xcc0 @0x9
0xcb7…cd9 at000a = ╱41╱A╱ // 0xcc1 @0xa
0xcb7…cd9 at000b = ╱4d╱M╱ // 0xcc2 @0xb
0xcb7…cd9 at000c = ╱ef╱$╱ // 0xcc3 @0xc
0xcb7…cd9 at000d = ╱f0╱ := ╱ // 0xcc4 @0xd
0xcb7…cd9 at000e = ╱50╱P╱ // 0xcc5 @0xe
0xcb7…cd9 at000f = ╱52╱R╱ // 0xcc6 @0xf
0xcb7…cd9 at0010 = ╱47╱G╱ // 0xcc7 @0x10
0xcb7…cd9 at0011 = ╱46╱F╱ // 0xcc8 @0x11
0xcb7…cd9 at0012 = ╱4c╱L╱ // 0xcc9 @0x12
0xcb7…cd9 at0013 = ╱ef╱$╱ // 0xcca @0x13
0xcb7…cd9 at0014 = ╱eb╱ + ╱ // 0xccb @0x14
0xcb7…cd9 at0015 = ╱22╱"╱ // 0xccc @0x15
0xcb7…cd9 at0016 = ╱3a╱:╱ // 0xccd @0x16
0xcb7…cd9 at0017 = ╱53╱S╱ // 0xcce @0x17
0xcb7…cd9 at0018 = ╱59╱Y╱ // 0xccf @0x18
0xcb7…cd9 at0019 = ╱53╱S╱ // 0xcd0 @0x19
0xcb7…cd9 at001a = ╱22╱"╱ // 0xcd1 @0x1a
0xcb7…cd9 at001b = ╱eb╱ + ╱ // 0xcd2 @0x1b
0xcb7…cd9 at001c = ╱53╱S╱ // 0xcd3 @0x1c
0xcb7…cd9 at001d = ╱56╱V╱ // 0xcd4 @0x1d
0xcb7…cd9 at001e = ╱41╱A╱ // 0xcd5 @0x1e
0xcb7…cd9 at001f = ╱52╱R╱ // 0xcd6 @0x1f
0xcb7…cd9 at0020 = ╱ef╱$╱ // 0xcd7 @0x20
0xcb7…cd9 at0021 = EOL // 0xcd8 @0x21
0xcb7…cd9 }
0xcd9…ce7 a2d5 1230 CHAIN PROGRAM$
0xcd9…ce7 LineComal80 {
0xcd9…ce7 ptr = 0xa2d5 // 0xcd9 @0x0
0xcd9…ce7 lno = 0x04ce // 0xcdb @0x2
0xcd9…ce7 at0004 = ╱ac╱ CHAIN ╱ // 0xcdd @0x4
0xcd9…ce7 at0005 = ╱50╱P╱ // 0xcde @0x5
0xcd9…ce7 at0006 = ╱52╱R╱ // 0xcdf @0x6
0xcd9…ce7 at0007 = ╱4f╱O╱ // 0xce0 @0x7
0xcd9…ce7 at0008 = ╱47╱G╱ // 0xce1 @0x8
0xcd9…ce7 at0009 = ╱52╱R╱ // 0xce2 @0x9
0xcd9…ce7 at000a = ╱41╱A╱ // 0xce3 @0xa
0xcd9…ce7 at000b = ╱4d╱M╱ // 0xce4 @0xb
0xcd9…ce7 at000c = ╱ef╱$╱ // 0xce5 @0xc
0xcd9…ce7 at000d = EOL // 0xce6 @0xd
0xcd9…ce7 }
0xce7…cfa 0000 1240 ENDPROC FUNKTIONSMENU
0xce7…cfa LineComal80 {
0xce7…cfa ptr = 0x0000 // 0xce7 @0x0
0xce7…cfa lno = 0x04d8 // 0xce9 @0x2
0xce7…cfa at0004 = ╱9f╱ ENDPROC ╱ // 0xceb @0x4
0xce7…cfa at0005 = ╱46╱F╱ // 0xcec @0x5
0xce7…cfa at0006 = ╱55╱U╱ // 0xced @0x6
0xce7…cfa at0007 = ╱4e╱N╱ // 0xcee @0x7
0xce7…cfa at0008 = ╱4b╱K╱ // 0xcef @0x8
0xce7…cfa at0009 = ╱54╱T╱ // 0xcf0 @0x9
0xce7…cfa at000a = ╱49╱I╱ // 0xcf1 @0xa
0xce7…cfa at000b = ╱4f╱O╱ // 0xcf2 @0xb
0xce7…cfa at000c = ╱4e╱N╱ // 0xcf3 @0xc
0xce7…cfa at000d = ╱53╱S╱ // 0xcf4 @0xd
0xce7…cfa at000e = ╱4d╱M╱ // 0xcf5 @0xe
0xce7…cfa at000f = ╱45╱E╱ // 0xcf6 @0xf
0xce7…cfa at0010 = ╱4e╱N╱ // 0xcf7 @0x10
0xce7…cfa at0011 = ╱55╱U╱ // 0xcf8 @0x11
0xce7…cfa at0012 = EOL // 0xcf9 @0x12
0xce7…cfa }
0xcfa…d00 c7 a2 c5 04 82 00 ┆ ┆
0xd00…d20 22 2f 22 eb 53 56 41 52 ef eb 22 2f 22 dc 22 2f 55 4b 2f 75 6b 22 b5 86 50 52 4f 47 52 41 4d ef ┆"/" SVAR "/" "/UK/uk" PROGRAM ┆
0xd20…d3c f0 50 52 4f 47 52 41 4d ef eb 53 5f 4b 4f 44 45 ef ff c7 a2 c5 04 82 00 22 2f 22 eb ┆ PROGRAM S_KODE "/" ┆
0xd3c…d5c (44,) 53 56 41 52 ef eb 22 2f 22 dc 22 2f 55 4b 2f 75 6b 2f 22 b5 86 50 52 4f 47 52 41 4d ef f0 50 52 ┆SVAR "/" "/UK/uk/" PROGRAM PR┆
0xd5c…d6b 4f 47 52 41 4d ef eb 53 5f 4b 4f 44 45 ef ff ┆OGRAM S_KODE ┆
0xd6b…d71 (45,) ee 95 ee 95 00 00 ┆ ┆