|
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: 3847 (0xf07)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
Names: »SYSTIME.B«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSTIME.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 MENU
0280 EXEC SYSTEMDATO
0290 CHAIN PROGRAM$
0300 // =========== Procedurer starter ============
0310 PROC DIMENSIONER
0320 // Standard variable
0330 DIM SPC$ OF 80,SVAR$ OF 8,PRGFL$ OF 8,PROGRAM$ OF 17
0340 REAL RESRV,PPAR
0350 INTEGER OK,TRUE,FALSE,I,J
0360
0370 // Variable til filen SYSPARA
0380 DIM SYSPARA$ OF 17
0390 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0400 DIM DATAFL$ OF 8,T_KODE$ OF 1
0410
0420 // Variable til filen @@PARAM
0430 DIM PARAM$ OF 17
0440 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0450 REAL MOMS
0460 ENDPROC DIMENSIONER
0470
0480 PROC INITIER
0490 LET PRGFL$ := "DP2"
0500 LET PROGRAM$ := PRGFL$ + ":SYS"
0510 LET TRUE := 1 ; FALSE := 0 // boolske variable
0520 LET SPC$ := " "
0530 LET SPC$ := SPC$ + SPC$
0540 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0550 EXEC OPENFIL(SYSPARA$,"R")
0560 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0570 EXEC TERMINAL_IDX
0580 CLOSE SYSPARA$
0590 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0600 EXEC OPENFIL(PARAM$,"W")
0610 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0620 ENDPROC INITIER
0630
0640 PROC MENU
0650 CLEAR
0660 CURSOR 36 - ╱cb╱ (SYST_NAVN$) / 2,6
0670 PRINT "*** " + SYST_NAVN$ + " ***"
0680 PRINT "<C1607>Udviklet af forlaget systime, Herning, marts 1983."
0690 PRINT "<C1410>Dette bogføringssystem viser, hvordan en virksomheds "
0700 PRINT "<C1411>regnskab kan styres ved hjælp af edb."
0710 PRINT "<C1413>Bogføringssystemet bygger på samme kontoplan som til"
0720 PRINT "<C1414>regnskab IV."
0730 INPUT "<C1417>Tryk RETURN, når du er klar til at fortsætte." : SVAR$
0740 ENDPROC MENU
0750
0760 PROC SYSTEMDATO
0770 EXEC OVERSKRIFT("Indtastning af systemdato",6)
0780 REPEAT
0790 EDIT "<C1412>Systemdato (ååmmdd): " : SYST_DAT$
0800 EXEC SL_FEJLLINIE
0810 EXEC DATO_CONTROL(SYST_DAT$)
0820 UNTIL OK
0830 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0840 PRINT SYST_DAT$(5 : 2)
0850 PUT PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0860 CLOSE PARAM$
0870 ENDPROC SYSTEMDATO
0880
0890 PROC OPENFIL(FNAVN$,WAY$)
0900 REPEAT
0910 IF AY$ = "W" OR WAY$ = "w" THEN
0920 OPEN FNAVN$,W
0930 ELSE
0940 OPEN FNAVN$,R
0950 ENDIF
0960 IF (FNAVN$) THEN
0970 IF (FNAVN$) = 46 THEN
0980 PRINT "<SC1602>*** Fejl nr. 46 - indsæt diskette og tryk <RETURN> ***"
0990 INPUT "" : SVAR$
1000 ELSE
1010 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
1020 PRINT "<S>" ; FNAVN$ ; " ***"
1030 INPUT "" : SVAR$
1040 PRINT "<C0102>" ; SPC$
1050 ENDIF
1060 ENDIF
1070 UNTIL NOT ╱cd╱ (FNAVN$)
1080 ENDPROC OPENFIL
1090
1100 PROC TERMINAL_IDX
1110 LET PPAR := 5 ; RESRV := 0
1120 CALL :PRES"
1130 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
1140 ENDPROC TERMINAL_IDX
1150
1160 PROC FEJL(ST$)
1170 LET OK := FALSE
1180 CURSOR 36 - ╱cb╱ (ST$) / 2,2
1190 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
1200 ENDPROC FEJL
1210
1220 PROC SL_FEJLLINIE
1230 LET OK := TRUE
1240 PRINT "<C0102>" ; SPC$
1250 ENDPROC SL_FEJLLINIE
1260
1270 PROC OVERSKRIFT(ST$,L)
1280 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
1290 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
1300 PRINT SYST_DAT$(5 : 2)
1310 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
1320 PRINT "*** " ; ST$ ; " ***"
1330 ENDPROC OVERSKRIFT
1340
1350 PROC DATO_CONTROL( REF RST$)
1360 LET OK := TRUE
1370 IF RST$(1 : 2) < "00" OR RST$(1 : 2) > "99" THEN LET OK := FALSE
1380 IF RST$(3 : 2) < "01" OR RST$(3 : 2) > "12" THEN LET OK := FALSE
1390 IF RST$(5 : 2) < "01" OR RST$(5 : 2) > "31" THEN LET OK := FALSE
1400 IF NOT OK THEN EXEC FEJL("Ulovlig dato")
1410 ENDPROC DATO_CONTROL
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…370 995e 0270 EXEC MENU
0x366…370 LineComal80 {
0x366…370 ptr = 0x995e // 0x366 @0x0
0x366…370 lno = 0x010e // 0x368 @0x2
0x366…370 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x366…370 at0005 = ╱4d╱M╱ // 0x36b @0x5
0x366…370 at0006 = ╱45╱E╱ // 0x36c @0x6
0x366…370 at0007 = ╱4e╱N╱ // 0x36d @0x7
0x366…370 at0008 = ╱55╱U╱ // 0x36e @0x8
0x366…370 at0009 = EOL // 0x36f @0x9
0x366…370 }
0x370…380 996e 0280 EXEC SYSTEMDATO
0x370…380 LineComal80 {
0x370…380 ptr = 0x996e // 0x370 @0x0
0x370…380 lno = 0x0118 // 0x372 @0x2
0x370…380 at0004 = ╱9d╱ EXEC ╱ // 0x374 @0x4
0x370…380 at0005 = ╱53╱S╱ // 0x375 @0x5
0x370…380 at0006 = ╱59╱Y╱ // 0x376 @0x6
0x370…380 at0007 = ╱53╱S╱ // 0x377 @0x7
0x370…380 at0008 = ╱54╱T╱ // 0x378 @0x8
0x370…380 at0009 = ╱45╱E╱ // 0x379 @0x9
0x370…380 at000a = ╱4d╱M╱ // 0x37a @0xa
0x370…380 at000b = ╱44╱D╱ // 0x37b @0xb
0x370…380 at000c = ╱41╱A╱ // 0x37c @0xc
0x370…380 at000d = ╱54╱T╱ // 0x37d @0xd
0x370…380 at000e = ╱4f╱O╱ // 0x37e @0xe
0x370…380 at000f = EOL // 0x37f @0xf
0x370…380 }
0x380…38e 997c 0290 CHAIN PROGRAM$
0x380…38e LineComal80 {
0x380…38e ptr = 0x997c // 0x380 @0x0
0x380…38e lno = 0x0122 // 0x382 @0x2
0x380…38e at0004 = ╱ac╱ CHAIN ╱ // 0x384 @0x4
0x380…38e at0005 = ╱50╱P╱ // 0x385 @0x5
0x380…38e at0006 = ╱52╱R╱ // 0x386 @0x6
0x380…38e at0007 = ╱4f╱O╱ // 0x387 @0x7
0x380…38e at0008 = ╱47╱G╱ // 0x388 @0x8
0x380…38e at0009 = ╱52╱R╱ // 0x389 @0x9
0x380…38e at000a = ╱41╱A╱ // 0x38a @0xa
0x380…38e at000b = ╱4d╱M╱ // 0x38b @0xb
0x380…38e at000c = ╱ef╱$╱ // 0x38c @0xc
0x380…38e at000d = EOL // 0x38d @0xd
0x380…38e }
0x38e…3bf 99ad 0300 // =========== Procedurer starter ============
0x38e…3bf LineComal80 {
0x38e…3bf ptr = 0x99ad // 0x38e @0x0
0x38e…3bf lno = 0x012c // 0x390 @0x2
0x38e…3bf at0004 = ╱89╱ // ╱ // 0x392 @0x4
0x38e…3bf at0005 = ╱3d╱=╱ // 0x393 @0x5
0x38e…3bf at0006 = ╱3d╱=╱ // 0x394 @0x6
0x38e…3bf at0007 = ╱3d╱=╱ // 0x395 @0x7
0x38e…3bf at0008 = ╱3d╱=╱ // 0x396 @0x8
0x38e…3bf at0009 = ╱3d╱=╱ // 0x397 @0x9
0x38e…3bf at000a = ╱3d╱=╱ // 0x398 @0xa
0x38e…3bf at000b = ╱3d╱=╱ // 0x399 @0xb
0x38e…3bf at000c = ╱3d╱=╱ // 0x39a @0xc
0x38e…3bf at000d = ╱3d╱=╱ // 0x39b @0xd
0x38e…3bf at000e = ╱3d╱=╱ // 0x39c @0xe
0x38e…3bf at000f = ╱3d╱=╱ // 0x39d @0xf
0x38e…3bf at0010 = ╱20╱…╱ // 0x39e @0x10
0x38e…3bf at0011 = ╱50╱P╱ // 0x39f @0x11
0x38e…3bf at0012 = ╱72╱r╱ // 0x3a0 @0x12
0x38e…3bf at0013 = ╱6f╱o╱ // 0x3a1 @0x13
0x38e…3bf at0014 = ╱63╱c╱ // 0x3a2 @0x14
0x38e…3bf at0015 = ╱65╱e╱ // 0x3a3 @0x15
0x38e…3bf at0016 = ╱64╱d╱ // 0x3a4 @0x16
0x38e…3bf at0017 = ╱75╱u╱ // 0x3a5 @0x17
0x38e…3bf at0018 = ╱72╱r╱ // 0x3a6 @0x18
0x38e…3bf at0019 = ╱65╱e╱ // 0x3a7 @0x19
0x38e…3bf at001a = ╱72╱r╱ // 0x3a8 @0x1a
0x38e…3bf at001b = ╱20╱…╱ // 0x3a9 @0x1b
0x38e…3bf at001c = ╱73╱s╱ // 0x3aa @0x1c
0x38e…3bf at001d = ╱74╱t╱ // 0x3ab @0x1d
0x38e…3bf at001e = ╱61╱a╱ // 0x3ac @0x1e
0x38e…3bf at001f = ╱72╱r╱ // 0x3ad @0x1f
0x38e…3bf at0020 = ╱74╱t╱ // 0x3ae @0x20
0x38e…3bf at0021 = ╱65╱e╱ // 0x3af @0x21
0x38e…3bf at0022 = ╱72╱r╱ // 0x3b0 @0x22
0x38e…3bf at0023 = ╱20╱…╱ // 0x3b1 @0x23
0x38e…3bf at0024 = ╱3d╱=╱ // 0x3b2 @0x24
0x38e…3bf at0025 = ╱3d╱=╱ // 0x3b3 @0x25
0x38e…3bf at0026 = ╱3d╱=╱ // 0x3b4 @0x26
0x38e…3bf at0027 = ╱3d╱=╱ // 0x3b5 @0x27
0x38e…3bf at0028 = ╱3d╱=╱ // 0x3b6 @0x28
0x38e…3bf at0029 = ╱3d╱=╱ // 0x3b7 @0x29
0x38e…3bf at002a = ╱3d╱=╱ // 0x3b8 @0x2a
0x38e…3bf at002b = ╱3d╱=╱ // 0x3b9 @0x2b
0x38e…3bf at002c = ╱3d╱=╱ // 0x3ba @0x2c
0x38e…3bf at002d = ╱3d╱=╱ // 0x3bb @0x2d
0x38e…3bf at002e = ╱3d╱=╱ // 0x3bc @0x2e
0x38e…3bf at002f = ╱3d╱=╱ // 0x3bd @0x2f
0x38e…3bf at0030 = EOL // 0x3be @0x30
0x38e…3bf }
0x3bf…3d1 99bf 0310 PROC DIMENSIONER
0x3bf…3d1 LineComal80 {
0x3bf…3d1 ptr = 0x99bf // 0x3bf @0x0
0x3bf…3d1 lno = 0x0136 // 0x3c1 @0x2
0x3bf…3d1 at0004 = ╱9e01╱ PROC ╱ // 0x3c3 @0x4
0x3bf…3d1 at0006 = ╱44╱D╱ // 0x3c5 @0x6
0x3bf…3d1 at0007 = ╱49╱I╱ // 0x3c6 @0x7
0x3bf…3d1 at0008 = ╱4d╱M╱ // 0x3c7 @0x8
0x3bf…3d1 at0009 = ╱45╱E╱ // 0x3c8 @0x9
0x3bf…3d1 at000a = ╱4e╱N╱ // 0x3c9 @0xa
0x3bf…3d1 at000b = ╱53╱S╱ // 0x3ca @0xb
0x3bf…3d1 at000c = ╱49╱I╱ // 0x3cb @0xc
0x3bf…3d1 at000d = ╱4f╱O╱ // 0x3cc @0xd
0x3bf…3d1 at000e = ╱4e╱N╱ // 0x3cd @0xe
0x3bf…3d1 at000f = ╱45╱E╱ // 0x3ce @0xf
0x3bf…3d1 at0010 = ╱52╱R╱ // 0x3cf @0x10
0x3bf…3d1 at0011 = EOL // 0x3d0 @0x11
0x3bf…3d1 }
0x3d1…3e8 99d6 0320 // Standard variable
0x3d1…3e8 LineComal80 {
0x3d1…3e8 ptr = 0x99d6 // 0x3d1 @0x0
0x3d1…3e8 lno = 0x0140 // 0x3d3 @0x2
0x3d1…3e8 at0004 = ╱89╱ // ╱ // 0x3d5 @0x4
0x3d1…3e8 at0005 = ╱53╱S╱ // 0x3d6 @0x5
0x3d1…3e8 at0006 = ╱74╱t╱ // 0x3d7 @0x6
0x3d1…3e8 at0007 = ╱61╱a╱ // 0x3d8 @0x7
0x3d1…3e8 at0008 = ╱6e╱n╱ // 0x3d9 @0x8
0x3d1…3e8 at0009 = ╱64╱d╱ // 0x3da @0x9
0x3d1…3e8 at000a = ╱61╱a╱ // 0x3db @0xa
0x3d1…3e8 at000b = ╱72╱r╱ // 0x3dc @0xb
0x3d1…3e8 at000c = ╱64╱d╱ // 0x3dd @0xc
0x3d1…3e8 at000d = ╱20╱…╱ // 0x3de @0xd
0x3d1…3e8 at000e = ╱76╱v╱ // 0x3df @0xe
0x3d1…3e8 at000f = ╱61╱a╱ // 0x3e0 @0xf
0x3d1…3e8 at0010 = ╱72╱r╱ // 0x3e1 @0x10
0x3d1…3e8 at0011 = ╱69╱i╱ // 0x3e2 @0x11
0x3d1…3e8 at0012 = ╱61╱a╱ // 0x3e3 @0x12
0x3d1…3e8 at0013 = ╱62╱b╱ // 0x3e4 @0x13
0x3d1…3e8 at0014 = ╱6c╱l╱ // 0x3e5 @0x14
0x3d1…3e8 at0015 = ╱65╱e╱ // 0x3e6 @0x15
0x3d1…3e8 at0016 = EOL // 0x3e7 @0x16
0x3d1…3e8 }
0x3e8…41e 9a0c 0330 DIM SPC$ OF 80,SVAR$ OF 8,PRGFL$ OF 8,PROGRAM$ OF 17
0x3e8…41e LineComal80 {
0x3e8…41e ptr = 0x9a0c // 0x3e8 @0x0
0x3e8…41e lno = 0x014a // 0x3ea @0x2
0x3e8…41e at0004 = ╱87╱ DIM ╱ // 0x3ec @0x4
0x3e8…41e at0005 = ╱53╱S╱ // 0x3ed @0x5
0x3e8…41e at0006 = ╱50╱P╱ // 0x3ee @0x6
0x3e8…41e at0007 = ╱43╱C╱ // 0x3ef @0x7
0x3e8…41e at0008 = ╱ef╱$╱ // 0x3f0 @0x8
0x3e8…41e at0009 = ╱ba╱ OF ╱ // 0x3f1 @0x9
0x3e8…41e at000a = ╱38╱8╱ // 0x3f2 @0xa
0x3e8…41e at000b = ╱30╱0╱ // 0x3f3 @0xb
0x3e8…41e at000c = ╱f25000╱ // 0x3f4 @0xc
0x3e8…41e at000f = ╱ec╱,╱ // 0x3f7 @0xf
0x3e8…41e at0010 = ╱53╱S╱ // 0x3f8 @0x10
0x3e8…41e at0011 = ╱56╱V╱ // 0x3f9 @0x11
0x3e8…41e at0012 = ╱41╱A╱ // 0x3fa @0x12
0x3e8…41e at0013 = ╱52╱R╱ // 0x3fb @0x13
0x3e8…41e at0014 = ╱ef╱$╱ // 0x3fc @0x14
0x3e8…41e at0015 = ╱ba╱ OF ╱ // 0x3fd @0x15
0x3e8…41e at0016 = ╱38╱8╱ // 0x3fe @0x16
0x3e8…41e at0017 = ╱f20800╱ // 0x3ff @0x17
0x3e8…41e at001a = ╱ec╱,╱ // 0x402 @0x1a
0x3e8…41e at001b = ╱50╱P╱ // 0x403 @0x1b
0x3e8…41e at001c = ╱52╱R╱ // 0x404 @0x1c
0x3e8…41e at001d = ╱47╱G╱ // 0x405 @0x1d
0x3e8…41e at001e = ╱46╱F╱ // 0x406 @0x1e
0x3e8…41e at001f = ╱4c╱L╱ // 0x407 @0x1f
0x3e8…41e at0020 = ╱ef╱$╱ // 0x408 @0x20
0x3e8…41e at0021 = ╱ba╱ OF ╱ // 0x409 @0x21
0x3e8…41e at0022 = ╱38╱8╱ // 0x40a @0x22
0x3e8…41e at0023 = ╱f20800╱ // 0x40b @0x23
0x3e8…41e at0026 = ╱ec╱,╱ // 0x40e @0x26
0x3e8…41e at0027 = ╱50╱P╱ // 0x40f @0x27
0x3e8…41e at0028 = ╱52╱R╱ // 0x410 @0x28
0x3e8…41e at0029 = ╱4f╱O╱ // 0x411 @0x29
0x3e8…41e at002a = ╱47╱G╱ // 0x412 @0x2a
0x3e8…41e at002b = ╱52╱R╱ // 0x413 @0x2b
0x3e8…41e at002c = ╱41╱A╱ // 0x414 @0x2c
0x3e8…41e at002d = ╱4d╱M╱ // 0x415 @0x2d
0x3e8…41e at002e = ╱ef╱$╱ // 0x416 @0x2e
0x3e8…41e at002f = ╱ba╱ OF ╱ // 0x417 @0x2f
0x3e8…41e at0030 = ╱31╱1╱ // 0x418 @0x30
0x3e8…41e at0031 = ╱37╱7╱ // 0x419 @0x31
0x3e8…41e at0032 = ╱f21100╱ // 0x41a @0x32
0x3e8…41e at0035 = EOL // 0x41d @0x35
0x3e8…41e }
0x41e…42e 9a1c 0340 REAL RESRV,PPAR
0x41e…42e LineComal80 {
0x41e…42e ptr = 0x9a1c // 0x41e @0x0
0x41e…42e lno = 0x0154 // 0x420 @0x2
0x41e…42e at0004 = ╱b3╱ REAL ╱ // 0x422 @0x4
0x41e…42e at0005 = ╱52╱R╱ // 0x423 @0x5
0x41e…42e at0006 = ╱45╱E╱ // 0x424 @0x6
0x41e…42e at0007 = ╱53╱S╱ // 0x425 @0x7
0x41e…42e at0008 = ╱52╱R╱ // 0x426 @0x8
0x41e…42e at0009 = ╱56╱V╱ // 0x427 @0x9
0x41e…42e at000a = ╱ec╱,╱ // 0x428 @0xa
0x41e…42e at000b = ╱50╱P╱ // 0x429 @0xb
0x41e…42e at000c = ╱50╱P╱ // 0x42a @0xc
0x41e…42e at000d = ╱41╱A╱ // 0x42b @0xd
0x41e…42e at000e = ╱52╱R╱ // 0x42c @0xe
0x41e…42e at000f = EOL // 0x42d @0xf
0x41e…42e }
0x42e…445 9a33 0350 INTEGER OK,TRUE,FALSE,I,J
0x42e…445 LineComal80 {
0x42e…445 ptr = 0x9a33 // 0x42e @0x0
0x42e…445 lno = 0x015e // 0x430 @0x2
0x42e…445 at0004 = ╱b2╱ INTEGER ╱ // 0x432 @0x4
0x42e…445 at0005 = ╱4f╱O╱ // 0x433 @0x5
0x42e…445 at0006 = ╱4b╱K╱ // 0x434 @0x6
0x42e…445 at0007 = ╱ec╱,╱ // 0x435 @0x7
0x42e…445 at0008 = ╱54╱T╱ // 0x436 @0x8
0x42e…445 at0009 = ╱52╱R╱ // 0x437 @0x9
0x42e…445 at000a = ╱55╱U╱ // 0x438 @0xa
0x42e…445 at000b = ╱45╱E╱ // 0x439 @0xb
0x42e…445 at000c = ╱ec╱,╱ // 0x43a @0xc
0x42e…445 at000d = ╱46╱F╱ // 0x43b @0xd
0x42e…445 at000e = ╱41╱A╱ // 0x43c @0xe
0x42e…445 at000f = ╱4c╱L╱ // 0x43d @0xf
0x42e…445 at0010 = ╱53╱S╱ // 0x43e @0x10
0x42e…445 at0011 = ╱45╱E╱ // 0x43f @0x11
0x42e…445 at0012 = ╱ec╱,╱ // 0x440 @0x12
0x42e…445 at0013 = ╱49╱I╱ // 0x441 @0x13
0x42e…445 at0014 = ╱ec╱,╱ // 0x442 @0x14
0x42e…445 at0015 = ╱4a╱J╱ // 0x443 @0x15
0x42e…445 at0016 = EOL // 0x444 @0x16
0x42e…445 }
0x445…44a 9a38 0360
0x445…44a LineComal80 {
0x445…44a ptr = 0x9a38 // 0x445 @0x0
0x445…44a lno = 0x0168 // 0x447 @0x2
0x445…44a at0004 = EOL // 0x449 @0x4
0x445…44a }
0x44a…46a 9a58 0370 // Variable til filen SYSPARA
0x44a…46a LineComal80 {
0x44a…46a ptr = 0x9a58 // 0x44a @0x0
0x44a…46a lno = 0x0172 // 0x44c @0x2
0x44a…46a at0004 = ╱89╱ // ╱ // 0x44e @0x4
0x44a…46a at0005 = ╱56╱V╱ // 0x44f @0x5
0x44a…46a at0006 = ╱61╱a╱ // 0x450 @0x6
0x44a…46a at0007 = ╱72╱r╱ // 0x451 @0x7
0x44a…46a at0008 = ╱69╱i╱ // 0x452 @0x8
0x44a…46a at0009 = ╱61╱a╱ // 0x453 @0x9
0x44a…46a at000a = ╱62╱b╱ // 0x454 @0xa
0x44a…46a at000b = ╱6c╱l╱ // 0x455 @0xb
0x44a…46a at000c = ╱65╱e╱ // 0x456 @0xc
0x44a…46a at000d = ╱20╱…╱ // 0x457 @0xd
0x44a…46a at000e = ╱74╱t╱ // 0x458 @0xe
0x44a…46a at000f = ╱69╱i╱ // 0x459 @0xf
0x44a…46a at0010 = ╱6c╱l╱ // 0x45a @0x10
0x44a…46a at0011 = ╱20╱…╱ // 0x45b @0x11
0x44a…46a at0012 = ╱66╱f╱ // 0x45c @0x12
0x44a…46a at0013 = ╱69╱i╱ // 0x45d @0x13
0x44a…46a at0014 = ╱6c╱l╱ // 0x45e @0x14
0x44a…46a at0015 = ╱65╱e╱ // 0x45f @0x15
0x44a…46a at0016 = ╱6e╱n╱ // 0x460 @0x16
0x44a…46a at0017 = ╱20╱…╱ // 0x461 @0x17
0x44a…46a at0018 = ╱53╱S╱ // 0x462 @0x18
0x44a…46a at0019 = ╱59╱Y╱ // 0x463 @0x19
0x44a…46a at001a = ╱53╱S╱ // 0x464 @0x1a
0x44a…46a at001b = ╱50╱P╱ // 0x465 @0x1b
0x44a…46a at001c = ╱41╱A╱ // 0x466 @0x1c
0x44a…46a at001d = ╱52╱R╱ // 0x467 @0x1d
0x44a…46a at001e = ╱41╱A╱ // 0x468 @0x1e
0x44a…46a at001f = EOL // 0x469 @0x1f
0x44a…46a }
0x46a…47e 9a6c 0380 DIM SYSPARA$ OF 17
0x46a…47e LineComal80 {
0x46a…47e ptr = 0x9a6c // 0x46a @0x0
0x46a…47e lno = 0x017c // 0x46c @0x2
0x46a…47e at0004 = ╱87╱ DIM ╱ // 0x46e @0x4
0x46a…47e at0005 = ╱53╱S╱ // 0x46f @0x5
0x46a…47e at0006 = ╱59╱Y╱ // 0x470 @0x6
0x46a…47e at0007 = ╱53╱S╱ // 0x471 @0x7
0x46a…47e at0008 = ╱50╱P╱ // 0x472 @0x8
0x46a…47e at0009 = ╱41╱A╱ // 0x473 @0x9
0x46a…47e at000a = ╱52╱R╱ // 0x474 @0xa
0x46a…47e at000b = ╱41╱A╱ // 0x475 @0xb
0x46a…47e at000c = ╱ef╱$╱ // 0x476 @0xc
0x46a…47e at000d = ╱ba╱ OF ╱ // 0x477 @0xd
0x46a…47e at000e = ╱31╱1╱ // 0x478 @0xe
0x46a…47e at000f = ╱37╱7╱ // 0x479 @0xf
0x46a…47e at0010 = ╱f21100╱ // 0x47a @0x10
0x46a…47e at0013 = EOL // 0x47d @0x13
0x46a…47e }
0x47e…4a1 9a8f 0390 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0x47e…4a1 LineComal80 {
0x47e…4a1 ptr = 0x9a8f // 0x47e @0x0
0x47e…4a1 lno = 0x0186 // 0x480 @0x2
0x47e…4a1 at0004 = ╱87╱ DIM ╱ // 0x482 @0x4
0x47e…4a1 at0005 = ╱53╱S╱ // 0x483 @0x5
0x47e…4a1 at0006 = ╱59╱Y╱ // 0x484 @0x6
0x47e…4a1 at0007 = ╱53╱S╱ // 0x485 @0x7
0x47e…4a1 at0008 = ╱54╱T╱ // 0x486 @0x8
0x47e…4a1 at0009 = ╱5f╱_╱ // 0x487 @0x9
0x47e…4a1 at000a = ╱4e╱N╱ // 0x488 @0xa
0x47e…4a1 at000b = ╱41╱A╱ // 0x489 @0xb
0x47e…4a1 at000c = ╱56╱V╱ // 0x48a @0xc
0x47e…4a1 at000d = ╱4e╱N╱ // 0x48b @0xd
0x47e…4a1 at000e = ╱ef╱$╱ // 0x48c @0xe
0x47e…4a1 at000f = ╱ba╱ OF ╱ // 0x48d @0xf
0x47e…4a1 at0010 = ╱33╱3╱ // 0x48e @0x10
0x47e…4a1 at0011 = ╱30╱0╱ // 0x48f @0x11
0x47e…4a1 at0012 = ╱f21e00╱ // 0x490 @0x12
0x47e…4a1 at0015 = ╱ec╱,╱ // 0x493 @0x15
0x47e…4a1 at0016 = ╱53╱S╱ // 0x494 @0x16
0x47e…4a1 at0017 = ╱5f╱_╱ // 0x495 @0x17
0x47e…4a1 at0018 = ╱4b╱K╱ // 0x496 @0x18
0x47e…4a1 at0019 = ╱4f╱O╱ // 0x497 @0x19
0x47e…4a1 at001a = ╱44╱D╱ // 0x498 @0x1a
0x47e…4a1 at001b = ╱45╱E╱ // 0x499 @0x1b
0x47e…4a1 at001c = ╱ef╱$╱ // 0x49a @0x1c
0x47e…4a1 at001d = ╱ba╱ OF ╱ // 0x49b @0x1d
0x47e…4a1 at001e = ╱31╱1╱ // 0x49c @0x1e
0x47e…4a1 at001f = ╱f20100╱ // 0x49d @0x1f
0x47e…4a1 at0022 = EOL // 0x4a0 @0x22
0x47e…4a1 }
0x4a1…4c0 9aae 0400 DIM DATAFL$ OF 8,T_KODE$ OF 1
0x4a1…4c0 LineComal80 {
0x4a1…4c0 ptr = 0x9aae // 0x4a1 @0x0
0x4a1…4c0 lno = 0x0190 // 0x4a3 @0x2
0x4a1…4c0 at0004 = ╱87╱ DIM ╱ // 0x4a5 @0x4
0x4a1…4c0 at0005 = ╱44╱D╱ // 0x4a6 @0x5
0x4a1…4c0 at0006 = ╱41╱A╱ // 0x4a7 @0x6
0x4a1…4c0 at0007 = ╱54╱T╱ // 0x4a8 @0x7
0x4a1…4c0 at0008 = ╱41╱A╱ // 0x4a9 @0x8
0x4a1…4c0 at0009 = ╱46╱F╱ // 0x4aa @0x9
0x4a1…4c0 at000a = ╱4c╱L╱ // 0x4ab @0xa
0x4a1…4c0 at000b = ╱ef╱$╱ // 0x4ac @0xb
0x4a1…4c0 at000c = ╱ba╱ OF ╱ // 0x4ad @0xc
0x4a1…4c0 at000d = ╱38╱8╱ // 0x4ae @0xd
0x4a1…4c0 at000e = ╱f20800╱ // 0x4af @0xe
0x4a1…4c0 at0011 = ╱ec╱,╱ // 0x4b2 @0x11
0x4a1…4c0 at0012 = ╱54╱T╱ // 0x4b3 @0x12
0x4a1…4c0 at0013 = ╱5f╱_╱ // 0x4b4 @0x13
0x4a1…4c0 at0014 = ╱4b╱K╱ // 0x4b5 @0x14
0x4a1…4c0 at0015 = ╱4f╱O╱ // 0x4b6 @0x15
0x4a1…4c0 at0016 = ╱44╱D╱ // 0x4b7 @0x16
0x4a1…4c0 at0017 = ╱45╱E╱ // 0x4b8 @0x17
0x4a1…4c0 at0018 = ╱ef╱$╱ // 0x4b9 @0x18
0x4a1…4c0 at0019 = ╱ba╱ OF ╱ // 0x4ba @0x19
0x4a1…4c0 at001a = ╱31╱1╱ // 0x4bb @0x1a
0x4a1…4c0 at001b = ╱f20100╱ // 0x4bc @0x1b
0x4a1…4c0 at001e = EOL // 0x4bf @0x1e
0x4a1…4c0 }
0x4c0…4c5 9ab3 0410
0x4c0…4c5 LineComal80 {
0x4c0…4c5 ptr = 0x9ab3 // 0x4c0 @0x0
0x4c0…4c5 lno = 0x019a // 0x4c2 @0x2
0x4c0…4c5 at0004 = EOL // 0x4c4 @0x4
0x4c0…4c5 }
0x4c5…4e5 9ad3 0420 // Variable til filen @@PARAM
0x4c5…4e5 LineComal80 {
0x4c5…4e5 ptr = 0x9ad3 // 0x4c5 @0x0
0x4c5…4e5 lno = 0x01a4 // 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 0430 DIM PARAM$ OF 17
0x4e5…4f7 LineComal80 {
0x4e5…4f7 ptr = 0x9ae5 // 0x4e5 @0x0
0x4e5…4f7 lno = 0x01ae // 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 0440 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0x4f7…51c LineComal80 {
0x4f7…51c ptr = 0x9b0a // 0x4f7 @0x0
0x4f7…51c lno = 0x01b8 // 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 0450 REAL MOMS
0x51c…526 LineComal80 {
0x51c…526 ptr = 0x9b14 // 0x51c @0x0
0x51c…526 lno = 0x01c2 // 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 0460 ENDPROC DIMENSIONER
0x526…537 LineComal80 {
0x526…537 ptr = 0x9b25 // 0x526 @0x0
0x526…537 lno = 0x01cc // 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 0470
0x537…53c LineComal80 {
0x537…53c ptr = 0x9b2a // 0x537 @0x0
0x537…53c lno = 0x01d6 // 0x539 @0x2
0x537…53c at0004 = EOL // 0x53b @0x4
0x537…53c }
0x53c…54a 9b38 0480 PROC INITIER
0x53c…54a LineComal80 {
0x53c…54a ptr = 0x9b38 // 0x53c @0x0
0x53c…54a lno = 0x01e0 // 0x53e @0x2
0x53c…54a at0004 = ╱9e02╱ 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 0490 LET PRGFL$ := "DP2"
0x54a…55c LineComal80 {
0x54a…55c ptr = 0x9b4a // 0x54a @0x0
0x54a…55c lno = 0x01ea // 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…578 9b66 0500 LET PROGRAM$ := PRGFL$ + ":SYS"
0x55c…578 LineComal80 {
0x55c…578 ptr = 0x9b66 // 0x55c @0x0
0x55c…578 lno = 0x01f4 // 0x55e @0x2
0x55c…578 at0004 = ╱86╱ LET ╱ // 0x560 @0x4
0x55c…578 at0005 = ╱50╱P╱ // 0x561 @0x5
0x55c…578 at0006 = ╱52╱R╱ // 0x562 @0x6
0x55c…578 at0007 = ╱4f╱O╱ // 0x563 @0x7
0x55c…578 at0008 = ╱47╱G╱ // 0x564 @0x8
0x55c…578 at0009 = ╱52╱R╱ // 0x565 @0x9
0x55c…578 at000a = ╱41╱A╱ // 0x566 @0xa
0x55c…578 at000b = ╱4d╱M╱ // 0x567 @0xb
0x55c…578 at000c = ╱ef╱$╱ // 0x568 @0xc
0x55c…578 at000d = ╱f0╱ := ╱ // 0x569 @0xd
0x55c…578 at000e = ╱50╱P╱ // 0x56a @0xe
0x55c…578 at000f = ╱52╱R╱ // 0x56b @0xf
0x55c…578 at0010 = ╱47╱G╱ // 0x56c @0x10
0x55c…578 at0011 = ╱46╱F╱ // 0x56d @0x11
0x55c…578 at0012 = ╱4c╱L╱ // 0x56e @0x12
0x55c…578 at0013 = ╱ef╱$╱ // 0x56f @0x13
0x55c…578 at0014 = ╱eb╱ + ╱ // 0x570 @0x14
0x55c…578 at0015 = ╱22╱"╱ // 0x571 @0x15
0x55c…578 at0016 = ╱3a╱:╱ // 0x572 @0x16
0x55c…578 at0017 = ╱53╱S╱ // 0x573 @0x17
0x55c…578 at0018 = ╱59╱Y╱ // 0x574 @0x18
0x55c…578 at0019 = ╱53╱S╱ // 0x575 @0x19
0x55c…578 at001a = ╱22╱"╱ // 0x576 @0x1a
0x55c…578 at001b = EOL // 0x577 @0x1b
0x55c…578 }
0x578…5a3 9b91 0510 LET TRUE := 1 ; FALSE := 0 // boolske variable
0x578…5a3 LineComal80 {
0x578…5a3 ptr = 0x9b91 // 0x578 @0x0
0x578…5a3 lno = 0x01fe // 0x57a @0x2
0x578…5a3 at0004 = ╱86╱ LET ╱ // 0x57c @0x4
0x578…5a3 at0005 = ╱54╱T╱ // 0x57d @0x5
0x578…5a3 at0006 = ╱52╱R╱ // 0x57e @0x6
0x578…5a3 at0007 = ╱55╱U╱ // 0x57f @0x7
0x578…5a3 at0008 = ╱45╱E╱ // 0x580 @0x8
0x578…5a3 at0009 = ╱f0╱ := ╱ // 0x581 @0x9
0x578…5a3 at000a = ╱31╱1╱ // 0x582 @0xa
0x578…5a3 at000b = ╱f20100╱ // 0x583 @0xb
0x578…5a3 at000e = ╱ea╱ ; ╱ // 0x586 @0xe
0x578…5a3 at000f = ╱46╱F╱ // 0x587 @0xf
0x578…5a3 at0010 = ╱41╱A╱ // 0x588 @0x10
0x578…5a3 at0011 = ╱4c╱L╱ // 0x589 @0x11
0x578…5a3 at0012 = ╱53╱S╱ // 0x58a @0x12
0x578…5a3 at0013 = ╱45╱E╱ // 0x58b @0x13
0x578…5a3 at0014 = ╱f0╱ := ╱ // 0x58c @0x14
0x578…5a3 at0015 = ╱30╱0╱ // 0x58d @0x15
0x578…5a3 at0016 = ╱f20000╱ // 0x58e @0x16
0x578…5a3 at0019 = ╱89╱ // ╱ // 0x591 @0x19
0x578…5a3 at001a = ╱62╱b╱ // 0x592 @0x1a
0x578…5a3 at001b = ╱6f╱o╱ // 0x593 @0x1b
0x578…5a3 at001c = ╱6f╱o╱ // 0x594 @0x1c
0x578…5a3 at001d = ╱6c╱l╱ // 0x595 @0x1d
0x578…5a3 at001e = ╱73╱s╱ // 0x596 @0x1e
0x578…5a3 at001f = ╱6b╱k╱ // 0x597 @0x1f
0x578…5a3 at0020 = ╱65╱e╱ // 0x598 @0x20
0x578…5a3 at0021 = ╱20╱…╱ // 0x599 @0x21
0x578…5a3 at0022 = ╱76╱v╱ // 0x59a @0x22
0x578…5a3 at0023 = ╱61╱a╱ // 0x59b @0x23
0x578…5a3 at0024 = ╱72╱r╱ // 0x59c @0x24
0x578…5a3 at0025 = ╱69╱i╱ // 0x59d @0x25
0x578…5a3 at0026 = ╱61╱a╱ // 0x59e @0x26
0x578…5a3 at0027 = ╱62╱b╱ // 0x59f @0x27
0x578…5a3 at0028 = ╱6c╱l╱ // 0x5a0 @0x28
0x578…5a3 at0029 = ╱65╱e╱ // 0x5a1 @0x29
0x578…5a3 at002a = EOL // 0x5a2 @0x2a
0x578…5a3 }
0x5a3…5dd 9bcb 0520 LET SPC$ := " "
0x5a3…5dd LineComal80 {
0x5a3…5dd ptr = 0x9bcb // 0x5a3 @0x0
0x5a3…5dd lno = 0x0208 // 0x5a5 @0x2
0x5a3…5dd at0004 = ╱86╱ LET ╱ // 0x5a7 @0x4
0x5a3…5dd at0005 = ╱53╱S╱ // 0x5a8 @0x5
0x5a3…5dd at0006 = ╱50╱P╱ // 0x5a9 @0x6
0x5a3…5dd at0007 = ╱43╱C╱ // 0x5aa @0x7
0x5a3…5dd at0008 = ╱ef╱$╱ // 0x5ab @0x8
0x5a3…5dd at0009 = ╱f0╱ := ╱ // 0x5ac @0x9
0x5a3…5dd at000a = ╱22╱"╱ // 0x5ad @0xa
0x5a3…5dd at000b = ╱20╱…╱ // 0x5ae @0xb
0x5a3…5dd at000c = ╱20╱…╱ // 0x5af @0xc
0x5a3…5dd at000d = ╱20╱…╱ // 0x5b0 @0xd
0x5a3…5dd at000e = ╱20╱…╱ // 0x5b1 @0xe
0x5a3…5dd at000f = ╱20╱…╱ // 0x5b2 @0xf
0x5a3…5dd at0010 = ╱20╱…╱ // 0x5b3 @0x10
0x5a3…5dd at0011 = ╱20╱…╱ // 0x5b4 @0x11
0x5a3…5dd at0012 = ╱20╱…╱ // 0x5b5 @0x12
0x5a3…5dd at0013 = ╱20╱…╱ // 0x5b6 @0x13
0x5a3…5dd at0014 = ╱20╱…╱ // 0x5b7 @0x14
0x5a3…5dd at0015 = ╱20╱…╱ // 0x5b8 @0x15
0x5a3…5dd at0016 = ╱20╱…╱ // 0x5b9 @0x16
0x5a3…5dd at0017 = ╱20╱…╱ // 0x5ba @0x17
0x5a3…5dd at0018 = ╱20╱…╱ // 0x5bb @0x18
0x5a3…5dd at0019 = ╱20╱…╱ // 0x5bc @0x19
0x5a3…5dd at001a = ╱20╱…╱ // 0x5bd @0x1a
0x5a3…5dd at001b = ╱20╱…╱ // 0x5be @0x1b
0x5a3…5dd at001c = ╱20╱…╱ // 0x5bf @0x1c
0x5a3…5dd at001d = ╱20╱…╱ // 0x5c0 @0x1d
0x5a3…5dd at001e = ╱20╱…╱ // 0x5c1 @0x1e
0x5a3…5dd at001f = ╱20╱…╱ // 0x5c2 @0x1f
0x5a3…5dd at0020 = ╱20╱…╱ // 0x5c3 @0x20
0x5a3…5dd at0021 = ╱20╱…╱ // 0x5c4 @0x21
0x5a3…5dd at0022 = ╱20╱…╱ // 0x5c5 @0x22
0x5a3…5dd at0023 = ╱20╱…╱ // 0x5c6 @0x23
0x5a3…5dd at0024 = ╱20╱…╱ // 0x5c7 @0x24
0x5a3…5dd at0025 = ╱20╱…╱ // 0x5c8 @0x25
0x5a3…5dd at0026 = ╱20╱…╱ // 0x5c9 @0x26
0x5a3…5dd at0027 = ╱20╱…╱ // 0x5ca @0x27
0x5a3…5dd at0028 = ╱20╱…╱ // 0x5cb @0x28
0x5a3…5dd at0029 = ╱20╱…╱ // 0x5cc @0x29
0x5a3…5dd at002a = ╱20╱…╱ // 0x5cd @0x2a
0x5a3…5dd at002b = ╱20╱…╱ // 0x5ce @0x2b
0x5a3…5dd at002c = ╱20╱…╱ // 0x5cf @0x2c
0x5a3…5dd at002d = ╱20╱…╱ // 0x5d0 @0x2d
0x5a3…5dd at002e = ╱20╱…╱ // 0x5d1 @0x2e
0x5a3…5dd at002f = ╱20╱…╱ // 0x5d2 @0x2f
0x5a3…5dd at0030 = ╱20╱…╱ // 0x5d3 @0x30
0x5a3…5dd at0031 = ╱20╱…╱ // 0x5d4 @0x31
0x5a3…5dd at0032 = ╱20╱…╱ // 0x5d5 @0x32
0x5a3…5dd at0033 = ╱20╱…╱ // 0x5d6 @0x33
0x5a3…5dd at0034 = ╱20╱…╱ // 0x5d7 @0x34
0x5a3…5dd at0035 = ╱20╱…╱ // 0x5d8 @0x35
0x5a3…5dd at0036 = ╱20╱…╱ // 0x5d9 @0x36
0x5a3…5dd at0037 = ╱20╱…╱ // 0x5da @0x37
0x5a3…5dd at0038 = ╱22╱"╱ // 0x5db @0x38
0x5a3…5dd at0039 = EOL // 0x5dc @0x39
0x5a3…5dd }
0x5dd…5f1 9bdf 0530 LET SPC$ := SPC$ + SPC$
0x5dd…5f1 LineComal80 {
0x5dd…5f1 ptr = 0x9bdf // 0x5dd @0x0
0x5dd…5f1 lno = 0x0212 // 0x5df @0x2
0x5dd…5f1 at0004 = ╱86╱ LET ╱ // 0x5e1 @0x4
0x5dd…5f1 at0005 = ╱53╱S╱ // 0x5e2 @0x5
0x5dd…5f1 at0006 = ╱50╱P╱ // 0x5e3 @0x6
0x5dd…5f1 at0007 = ╱43╱C╱ // 0x5e4 @0x7
0x5dd…5f1 at0008 = ╱ef╱$╱ // 0x5e5 @0x8
0x5dd…5f1 at0009 = ╱f0╱ := ╱ // 0x5e6 @0x9
0x5dd…5f1 at000a = ╱53╱S╱ // 0x5e7 @0xa
0x5dd…5f1 at000b = ╱50╱P╱ // 0x5e8 @0xb
0x5dd…5f1 at000c = ╱43╱C╱ // 0x5e9 @0xc
0x5dd…5f1 at000d = ╱ef╱$╱ // 0x5ea @0xd
0x5dd…5f1 at000e = ╱eb╱ + ╱ // 0x5eb @0xe
0x5dd…5f1 at000f = ╱53╱S╱ // 0x5ec @0xf
0x5dd…5f1 at0010 = ╱50╱P╱ // 0x5ed @0x10
0x5dd…5f1 at0011 = ╱43╱C╱ // 0x5ee @0x11
0x5dd…5f1 at0012 = ╱ef╱$╱ // 0x5ef @0x12
0x5dd…5f1 at0013 = EOL // 0x5f0 @0x13
0x5dd…5f1 }
0x5f1…611 9bff 0540 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0x5f1…611 LineComal80 {
0x5f1…611 ptr = 0x9bff // 0x5f1 @0x0
0x5f1…611 lno = 0x021c // 0x5f3 @0x2
0x5f1…611 at0004 = ╱86╱ LET ╱ // 0x5f5 @0x4
0x5f1…611 at0005 = ╱53╱S╱ // 0x5f6 @0x5
0x5f1…611 at0006 = ╱59╱Y╱ // 0x5f7 @0x6
0x5f1…611 at0007 = ╱53╱S╱ // 0x5f8 @0x7
0x5f1…611 at0008 = ╱50╱P╱ // 0x5f9 @0x8
0x5f1…611 at0009 = ╱41╱A╱ // 0x5fa @0x9
0x5f1…611 at000a = ╱52╱R╱ // 0x5fb @0xa
0x5f1…611 at000b = ╱41╱A╱ // 0x5fc @0xb
0x5f1…611 at000c = ╱ef╱$╱ // 0x5fd @0xc
0x5f1…611 at000d = ╱f0╱ := ╱ // 0x5fe @0xd
0x5f1…611 at000e = ╱50╱P╱ // 0x5ff @0xe
0x5f1…611 at000f = ╱52╱R╱ // 0x600 @0xf
0x5f1…611 at0010 = ╱47╱G╱ // 0x601 @0x10
0x5f1…611 at0011 = ╱46╱F╱ // 0x602 @0x11
0x5f1…611 at0012 = ╱4c╱L╱ // 0x603 @0x12
0x5f1…611 at0013 = ╱ef╱$╱ // 0x604 @0x13
0x5f1…611 at0014 = ╱eb╱ + ╱ // 0x605 @0x14
0x5f1…611 at0015 = ╱22╱"╱ // 0x606 @0x15
0x5f1…611 at0016 = ╱3a╱:╱ // 0x607 @0x16
0x5f1…611 at0017 = ╱53╱S╱ // 0x608 @0x17
0x5f1…611 at0018 = ╱59╱Y╱ // 0x609 @0x18
0x5f1…611 at0019 = ╱53╱S╱ // 0x60a @0x19
0x5f1…611 at001a = ╱50╱P╱ // 0x60b @0x1a
0x5f1…611 at001b = ╱41╱A╱ // 0x60c @0x1b
0x5f1…611 at001c = ╱52╱R╱ // 0x60d @0x1c
0x5f1…611 at001d = ╱41╱A╱ // 0x60e @0x1d
0x5f1…611 at001e = ╱22╱"╱ // 0x60f @0x1e
0x5f1…611 at001f = EOL // 0x610 @0x1f
0x5f1…611 }
0x611…62c 9c1a 0550 EXEC OPENFIL(SYSPARA$,"R")
0x611…62c LineComal80 {
0x611…62c ptr = 0x9c1a // 0x611 @0x0
0x611…62c lno = 0x0226 // 0x613 @0x2
0x611…62c at0004 = ╱9d╱ EXEC ╱ // 0x615 @0x4
0x611…62c at0005 = ╱4f╱O╱ // 0x616 @0x5
0x611…62c at0006 = ╱50╱P╱ // 0x617 @0x6
0x611…62c at0007 = ╱45╱E╱ // 0x618 @0x7
0x611…62c at0008 = ╱4e╱N╱ // 0x619 @0x8
0x611…62c at0009 = ╱46╱F╱ // 0x61a @0x9
0x611…62c at000a = ╱49╱I╱ // 0x61b @0xa
0x611…62c at000b = ╱4c╱L╱ // 0x61c @0xb
0x611…62c at000c = ╱ed╱(╱ // 0x61d @0xc
0x611…62c at000d = ╱53╱S╱ // 0x61e @0xd
0x611…62c at000e = ╱59╱Y╱ // 0x61f @0xe
0x611…62c at000f = ╱53╱S╱ // 0x620 @0xf
0x611…62c at0010 = ╱50╱P╱ // 0x621 @0x10
0x611…62c at0011 = ╱41╱A╱ // 0x622 @0x11
0x611…62c at0012 = ╱52╱R╱ // 0x623 @0x12
0x611…62c at0013 = ╱41╱A╱ // 0x624 @0x13
0x611…62c at0014 = ╱ef╱$╱ // 0x625 @0x14
0x611…62c at0015 = ╱ec╱,╱ // 0x626 @0x15
0x611…62c at0016 = ╱22╱"╱ // 0x627 @0x16
0x611…62c at0017 = ╱52╱R╱ // 0x628 @0x17
0x611…62c at0018 = ╱22╱"╱ // 0x629 @0x18
0x611…62c at0019 = ╱ee╱)╱ // 0x62a @0x19
0x611…62c at001a = EOL // 0x62b @0x1a
0x611…62c }
0x62c…652 9c40 0560 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0x62c…652 LineComal80 {
0x62c…652 ptr = 0x9c40 // 0x62c @0x0
0x62c…652 lno = 0x0230 // 0x62e @0x2
0x62c…652 at0004 = ╱a9╱ GET ╱ // 0x630 @0x4
0x62c…652 at0005 = ╱53╱S╱ // 0x631 @0x5
0x62c…652 at0006 = ╱59╱Y╱ // 0x632 @0x6
0x62c…652 at0007 = ╱53╱S╱ // 0x633 @0x7
0x62c…652 at0008 = ╱50╱P╱ // 0x634 @0x8
0x62c…652 at0009 = ╱41╱A╱ // 0x635 @0x9
0x62c…652 at000a = ╱52╱R╱ // 0x636 @0xa
0x62c…652 at000b = ╱41╱A╱ // 0x637 @0xb
0x62c…652 at000c = ╱ef╱$╱ // 0x638 @0xc
0x62c…652 at000d = ╱ec╱,╱ // 0x639 @0xd
0x62c…652 at000e = ╱31╱1╱ // 0x63a @0xe
0x62c…652 at000f = ╱f20100╱ // 0x63b @0xf
0x62c…652 at0012 = ╱f1╱ : ╱ // 0x63e @0x12
0x62c…652 at0013 = ╱53╱S╱ // 0x63f @0x13
0x62c…652 at0014 = ╱59╱Y╱ // 0x640 @0x14
0x62c…652 at0015 = ╱53╱S╱ // 0x641 @0x15
0x62c…652 at0016 = ╱54╱T╱ // 0x642 @0x16
0x62c…652 at0017 = ╱5f╱_╱ // 0x643 @0x17
0x62c…652 at0018 = ╱4e╱N╱ // 0x644 @0x18
0x62c…652 at0019 = ╱41╱A╱ // 0x645 @0x19
0x62c…652 at001a = ╱56╱V╱ // 0x646 @0x1a
0x62c…652 at001b = ╱4e╱N╱ // 0x647 @0x1b
0x62c…652 at001c = ╱ef╱$╱ // 0x648 @0x1c
0x62c…652 at001d = ╱ec╱,╱ // 0x649 @0x1d
0x62c…652 at001e = ╱53╱S╱ // 0x64a @0x1e
0x62c…652 at001f = ╱5f╱_╱ // 0x64b @0x1f
0x62c…652 at0020 = ╱4b╱K╱ // 0x64c @0x20
0x62c…652 at0021 = ╱4f╱O╱ // 0x64d @0x21
0x62c…652 at0022 = ╱44╱D╱ // 0x64e @0x22
0x62c…652 at0023 = ╱45╱E╱ // 0x64f @0x23
0x62c…652 at0024 = ╱ef╱$╱ // 0x650 @0x24
0x62c…652 at0025 = EOL // 0x651 @0x25
0x62c…652 }
0x652…664 9c52 0570 EXEC TERMINAL_IDX
0x652…664 LineComal80 {
0x652…664 ptr = 0x9c52 // 0x652 @0x0
0x652…664 lno = 0x023a // 0x654 @0x2
0x652…664 at0004 = ╱9d╱ EXEC ╱ // 0x656 @0x4
0x652…664 at0005 = ╱54╱T╱ // 0x657 @0x5
0x652…664 at0006 = ╱45╱E╱ // 0x658 @0x6
0x652…664 at0007 = ╱52╱R╱ // 0x659 @0x7
0x652…664 at0008 = ╱4d╱M╱ // 0x65a @0x8
0x652…664 at0009 = ╱49╱I╱ // 0x65b @0x9
0x652…664 at000a = ╱4e╱N╱ // 0x65c @0xa
0x652…664 at000b = ╱41╱A╱ // 0x65d @0xb
0x652…664 at000c = ╱4c╱L╱ // 0x65e @0xc
0x652…664 at000d = ╱5f╱_╱ // 0x65f @0xd
0x652…664 at000e = ╱49╱I╱ // 0x660 @0xe
0x652…664 at000f = ╱44╱D╱ // 0x661 @0xf
0x652…664 at0010 = ╱58╱X╱ // 0x662 @0x10
0x652…664 at0011 = EOL // 0x663 @0x11
0x652…664 }
0x664…672 9c60 0580 CLOSE SYSPARA$
0x664…672 LineComal80 {
0x664…672 ptr = 0x9c60 // 0x664 @0x0
0x664…672 lno = 0x0244 // 0x666 @0x2
0x664…672 at0004 = ╱a8╱ CLOSE ╱ // 0x668 @0x4
0x664…672 at0005 = ╱53╱S╱ // 0x669 @0x5
0x664…672 at0006 = ╱59╱Y╱ // 0x66a @0x6
0x664…672 at0007 = ╱53╱S╱ // 0x66b @0x7
0x664…672 at0008 = ╱50╱P╱ // 0x66c @0x8
0x664…672 at0009 = ╱41╱A╱ // 0x66d @0x9
0x664…672 at000a = ╱52╱R╱ // 0x66e @0xa
0x664…672 at000b = ╱41╱A╱ // 0x66f @0xb
0x664…672 at000c = ╱ef╱$╱ // 0x670 @0xc
0x664…672 at000d = EOL // 0x671 @0xd
0x664…672 }
0x672…6a2 9c90 0590 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0x672…6a2 LineComal80 {
0x672…6a2 ptr = 0x9c90 // 0x672 @0x0
0x672…6a2 lno = 0x024e // 0x674 @0x2
0x672…6a2 at0004 = ╱86╱ LET ╱ // 0x676 @0x4
0x672…6a2 at0005 = ╱50╱P╱ // 0x677 @0x5
0x672…6a2 at0006 = ╱41╱A╱ // 0x678 @0x6
0x672…6a2 at0007 = ╱52╱R╱ // 0x679 @0x7
0x672…6a2 at0008 = ╱41╱A╱ // 0x67a @0x8
0x672…6a2 at0009 = ╱4d╱M╱ // 0x67b @0x9
0x672…6a2 at000a = ╱ef╱$╱ // 0x67c @0xa
0x672…6a2 at000b = ╱f0╱ := ╱ // 0x67d @0xb
0x672…6a2 at000c = ╱44╱D╱ // 0x67e @0xc
0x672…6a2 at000d = ╱41╱A╱ // 0x67f @0xd
0x672…6a2 at000e = ╱54╱T╱ // 0x680 @0xe
0x672…6a2 at000f = ╱41╱A╱ // 0x681 @0xf
0x672…6a2 at0010 = ╱46╱F╱ // 0x682 @0x10
0x672…6a2 at0011 = ╱4c╱L╱ // 0x683 @0x11
0x672…6a2 at0012 = ╱ef╱$╱ // 0x684 @0x12
0x672…6a2 at0013 = ╱eb╱ + ╱ // 0x685 @0x13
0x672…6a2 at0014 = ╱22╱"╱ // 0x686 @0x14
0x672…6a2 at0015 = ╱3a╱:╱ // 0x687 @0x15
0x672…6a2 at0016 = ╱22╱"╱ // 0x688 @0x16
0x672…6a2 at0017 = ╱eb╱ + ╱ // 0x689 @0x17
0x672…6a2 at0018 = ╱53╱S╱ // 0x68a @0x18
0x672…6a2 at0019 = ╱5f╱_╱ // 0x68b @0x19
0x672…6a2 at001a = ╱4b╱K╱ // 0x68c @0x1a
0x672…6a2 at001b = ╱4f╱O╱ // 0x68d @0x1b
0x672…6a2 at001c = ╱44╱D╱ // 0x68e @0x1c
0x672…6a2 at001d = ╱45╱E╱ // 0x68f @0x1d
0x672…6a2 at001e = ╱ef╱$╱ // 0x690 @0x1e
0x672…6a2 at001f = ╱eb╱ + ╱ // 0x691 @0x1f
0x672…6a2 at0020 = ╱54╱T╱ // 0x692 @0x20
0x672…6a2 at0021 = ╱5f╱_╱ // 0x693 @0x21
0x672…6a2 at0022 = ╱4b╱K╱ // 0x694 @0x22
0x672…6a2 at0023 = ╱4f╱O╱ // 0x695 @0x23
0x672…6a2 at0024 = ╱44╱D╱ // 0x696 @0x24
0x672…6a2 at0025 = ╱45╱E╱ // 0x697 @0x25
0x672…6a2 at0026 = ╱ef╱$╱ // 0x698 @0x26
0x672…6a2 at0027 = ╱eb╱ + ╱ // 0x699 @0x27
0x672…6a2 at0028 = ╱22╱"╱ // 0x69a @0x28
0x672…6a2 at0029 = ╱50╱P╱ // 0x69b @0x29
0x672…6a2 at002a = ╱41╱A╱ // 0x69c @0x2a
0x672…6a2 at002b = ╱52╱R╱ // 0x69d @0x2b
0x672…6a2 at002c = ╱41╱A╱ // 0x69e @0x2c
0x672…6a2 at002d = ╱4d╱M╱ // 0x69f @0x2d
0x672…6a2 at002e = ╱22╱"╱ // 0x6a0 @0x2e
0x672…6a2 at002f = EOL // 0x6a1 @0x2f
0x672…6a2 }
0x6a2…6bb 9ca9 0600 EXEC OPENFIL(PARAM$,"W")
0x6a2…6bb LineComal80 {
0x6a2…6bb ptr = 0x9ca9 // 0x6a2 @0x0
0x6a2…6bb lno = 0x0258 // 0x6a4 @0x2
0x6a2…6bb at0004 = ╱9d╱ EXEC ╱ // 0x6a6 @0x4
0x6a2…6bb at0005 = ╱4f╱O╱ // 0x6a7 @0x5
0x6a2…6bb at0006 = ╱50╱P╱ // 0x6a8 @0x6
0x6a2…6bb at0007 = ╱45╱E╱ // 0x6a9 @0x7
0x6a2…6bb at0008 = ╱4e╱N╱ // 0x6aa @0x8
0x6a2…6bb at0009 = ╱46╱F╱ // 0x6ab @0x9
0x6a2…6bb at000a = ╱49╱I╱ // 0x6ac @0xa
0x6a2…6bb at000b = ╱4c╱L╱ // 0x6ad @0xb
0x6a2…6bb at000c = ╱ed╱(╱ // 0x6ae @0xc
0x6a2…6bb at000d = ╱50╱P╱ // 0x6af @0xd
0x6a2…6bb at000e = ╱41╱A╱ // 0x6b0 @0xe
0x6a2…6bb at000f = ╱52╱R╱ // 0x6b1 @0xf
0x6a2…6bb at0010 = ╱41╱A╱ // 0x6b2 @0x10
0x6a2…6bb at0011 = ╱4d╱M╱ // 0x6b3 @0x11
0x6a2…6bb at0012 = ╱ef╱$╱ // 0x6b4 @0x12
0x6a2…6bb at0013 = ╱ec╱,╱ // 0x6b5 @0x13
0x6a2…6bb at0014 = ╱22╱"╱ // 0x6b6 @0x14
0x6a2…6bb at0015 = ╱57╱W╱ // 0x6b7 @0x15
0x6a2…6bb at0016 = ╱22╱"╱ // 0x6b8 @0x16
0x6a2…6bb at0017 = ╱ee╱)╱ // 0x6b9 @0x17
0x6a2…6bb at0018 = EOL // 0x6ba @0x18
0x6a2…6bb }
0x6bb…6e6 9cd4 0610 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0x6bb…6e6 LineComal80 {
0x6bb…6e6 ptr = 0x9cd4 // 0x6bb @0x0
0x6bb…6e6 lno = 0x0262 // 0x6bd @0x2
0x6bb…6e6 at0004 = ╱a9╱ GET ╱ // 0x6bf @0x4
0x6bb…6e6 at0005 = ╱50╱P╱ // 0x6c0 @0x5
0x6bb…6e6 at0006 = ╱41╱A╱ // 0x6c1 @0x6
0x6bb…6e6 at0007 = ╱52╱R╱ // 0x6c2 @0x7
0x6bb…6e6 at0008 = ╱41╱A╱ // 0x6c3 @0x8
0x6bb…6e6 at0009 = ╱4d╱M╱ // 0x6c4 @0x9
0x6bb…6e6 at000a = ╱ef╱$╱ // 0x6c5 @0xa
0x6bb…6e6 at000b = ╱ec╱,╱ // 0x6c6 @0xb
0x6bb…6e6 at000c = ╱31╱1╱ // 0x6c7 @0xc
0x6bb…6e6 at000d = ╱f20100╱ // 0x6c8 @0xd
0x6bb…6e6 at0010 = ╱f1╱ : ╱ // 0x6cb @0x10
0x6bb…6e6 at0011 = ╱46╱F╱ // 0x6cc @0x11
0x6bb…6e6 at0012 = ╱49╱I╱ // 0x6cd @0x12
0x6bb…6e6 at0013 = ╱52╱R╱ // 0x6ce @0x13
0x6bb…6e6 at0014 = ╱4d╱M╱ // 0x6cf @0x14
0x6bb…6e6 at0015 = ╱41╱A╱ // 0x6d0 @0x15
0x6bb…6e6 at0016 = ╱4e╱N╱ // 0x6d1 @0x16
0x6bb…6e6 at0017 = ╱41╱A╱ // 0x6d2 @0x17
0x6bb…6e6 at0018 = ╱56╱V╱ // 0x6d3 @0x18
0x6bb…6e6 at0019 = ╱4e╱N╱ // 0x6d4 @0x19
0x6bb…6e6 at001a = ╱ef╱$╱ // 0x6d5 @0x1a
0x6bb…6e6 at001b = ╱ec╱,╱ // 0x6d6 @0x1b
0x6bb…6e6 at001c = ╱53╱S╱ // 0x6d7 @0x1c
0x6bb…6e6 at001d = ╱59╱Y╱ // 0x6d8 @0x1d
0x6bb…6e6 at001e = ╱53╱S╱ // 0x6d9 @0x1e
0x6bb…6e6 at001f = ╱54╱T╱ // 0x6da @0x1f
0x6bb…6e6 at0020 = ╱5f╱_╱ // 0x6db @0x20
0x6bb…6e6 at0021 = ╱44╱D╱ // 0x6dc @0x21
0x6bb…6e6 at0022 = ╱41╱A╱ // 0x6dd @0x22
0x6bb…6e6 at0023 = ╱54╱T╱ // 0x6de @0x23
0x6bb…6e6 at0024 = ╱ef╱$╱ // 0x6df @0x24
0x6bb…6e6 at0025 = ╱ec╱,╱ // 0x6e0 @0x25
0x6bb…6e6 at0026 = ╱4d╱M╱ // 0x6e1 @0x26
0x6bb…6e6 at0027 = ╱4f╱O╱ // 0x6e2 @0x27
0x6bb…6e6 at0028 = ╱4d╱M╱ // 0x6e3 @0x28
0x6bb…6e6 at0029 = ╱53╱S╱ // 0x6e4 @0x29
0x6bb…6e6 at002a = EOL // 0x6e5 @0x2a
0x6bb…6e6 }
0x6e6…6f3 9ce1 0620 ENDPROC INITIER
0x6e6…6f3 LineComal80 {
0x6e6…6f3 ptr = 0x9ce1 // 0x6e6 @0x0
0x6e6…6f3 lno = 0x026c // 0x6e8 @0x2
0x6e6…6f3 at0004 = ╱9f╱ ENDPROC ╱ // 0x6ea @0x4
0x6e6…6f3 at0005 = ╱49╱I╱ // 0x6eb @0x5
0x6e6…6f3 at0006 = ╱4e╱N╱ // 0x6ec @0x6
0x6e6…6f3 at0007 = ╱49╱I╱ // 0x6ed @0x7
0x6e6…6f3 at0008 = ╱54╱T╱ // 0x6ee @0x8
0x6e6…6f3 at0009 = ╱49╱I╱ // 0x6ef @0x9
0x6e6…6f3 at000a = ╱45╱E╱ // 0x6f0 @0xa
0x6e6…6f3 at000b = ╱52╱R╱ // 0x6f1 @0xb
0x6e6…6f3 at000c = EOL // 0x6f2 @0xc
0x6e6…6f3 }
0x6f3…6f8 9ce6 0630
0x6f3…6f8 LineComal80 {
0x6f3…6f8 ptr = 0x9ce6 // 0x6f3 @0x0
0x6f3…6f8 lno = 0x0276 // 0x6f5 @0x2
0x6f3…6f8 at0004 = EOL // 0x6f7 @0x4
0x6f3…6f8 }
0x6f8…703 9cf1 0640 PROC MENU
0x6f8…703 LineComal80 {
0x6f8…703 ptr = 0x9cf1 // 0x6f8 @0x0
0x6f8…703 lno = 0x0280 // 0x6fa @0x2
0x6f8…703 at0004 = ╱9e03╱ PROC ╱ // 0x6fc @0x4
0x6f8…703 at0006 = ╱4d╱M╱ // 0x6fe @0x6
0x6f8…703 at0007 = ╱45╱E╱ // 0x6ff @0x7
0x6f8…703 at0008 = ╱4e╱N╱ // 0x700 @0x8
0x6f8…703 at0009 = ╱55╱U╱ // 0x701 @0x9
0x6f8…703 at000a = EOL // 0x702 @0xa
0x6f8…703 }
0x703…709 9cf7 0650 CLEAR
0x703…709 LineComal80 {
0x703…709 ptr = 0x9cf7 // 0x703 @0x0
0x703…709 lno = 0x028a // 0x705 @0x2
0x703…709 at0004 = ╱a0╱ CLEAR ╱ // 0x707 @0x4
0x703…709 at0005 = EOL // 0x708 @0x5
0x703…709 }
0x709…72c 9d1a 0660 CURSOR 36 - ╱cb╱ (SYST_NAVN$) / 2,6
0x709…72c LineComal80 {
0x709…72c ptr = 0x9d1a // 0x709 @0x0
0x709…72c lno = 0x0294 // 0x70b @0x2
0x709…72c at0004 = ╱a1╱ CURSOR ╱ // 0x70d @0x4
0x709…72c at0005 = ╱33╱3╱ // 0x70e @0x5
0x709…72c at0006 = ╱36╱6╱ // 0x70f @0x6
0x709…72c at0007 = ╱f22400╱ // 0x710 @0x7
0x709…72c at000a = ╱e6╱ - ╱ // 0x713 @0xa
0x709…72c at000b = ╱cb╱ // 0x714 @0xb
0x709…72c at000c = ╱ed╱(╱ // 0x715 @0xc
0x709…72c at000d = ╱53╱S╱ // 0x716 @0xd
0x709…72c at000e = ╱59╱Y╱ // 0x717 @0xe
0x709…72c at000f = ╱53╱S╱ // 0x718 @0xf
0x709…72c at0010 = ╱54╱T╱ // 0x719 @0x10
0x709…72c at0011 = ╱5f╱_╱ // 0x71a @0x11
0x709…72c at0012 = ╱4e╱N╱ // 0x71b @0x12
0x709…72c at0013 = ╱41╱A╱ // 0x71c @0x13
0x709…72c at0014 = ╱56╱V╱ // 0x71d @0x14
0x709…72c at0015 = ╱4e╱N╱ // 0x71e @0x15
0x709…72c at0016 = ╱ef╱$╱ // 0x71f @0x16
0x709…72c at0017 = ╱ee╱)╱ // 0x720 @0x17
0x709…72c at0018 = ╱e8╱ / ╱ // 0x721 @0x18
0x709…72c at0019 = ╱32╱2╱ // 0x722 @0x19
0x709…72c at001a = ╱f20200╱ // 0x723 @0x1a
0x709…72c at001d = ╱ec╱,╱ // 0x726 @0x1d
0x709…72c at001e = ╱36╱6╱ // 0x727 @0x1e
0x709…72c at001f = ╱f20600╱ // 0x728 @0x1f
0x709…72c at0022 = EOL // 0x72b @0x22
0x709…72c }
0x72c…74a a4af 0670 PRINT "*** " + SYST_NAVN$ + " ***"
0x72c…74a LineComal80 {
0x72c…74a ptr = 0xa4af // 0x72c @0x0
0x72c…74a lno = 0x029e // 0x72e @0x2
0x72c…74a at0004 = ╱92╱ PRINT ╱ // 0x730 @0x4
0x72c…74a at0005 = ╱22╱"╱ // 0x731 @0x5
0x72c…74a at0006 = ╱2a╱*╱ // 0x732 @0x6
0x72c…74a at0007 = ╱2a╱*╱ // 0x733 @0x7
0x72c…74a at0008 = ╱2a╱*╱ // 0x734 @0x8
0x72c…74a at0009 = ╱20╱…╱ // 0x735 @0x9
0x72c…74a at000a = ╱22╱"╱ // 0x736 @0xa
0x72c…74a at000b = ╱eb╱ + ╱ // 0x737 @0xb
0x72c…74a at000c = ╱53╱S╱ // 0x738 @0xc
0x72c…74a at000d = ╱59╱Y╱ // 0x739 @0xd
0x72c…74a at000e = ╱53╱S╱ // 0x73a @0xe
0x72c…74a at000f = ╱54╱T╱ // 0x73b @0xf
0x72c…74a at0010 = ╱5f╱_╱ // 0x73c @0x10
0x72c…74a at0011 = ╱4e╱N╱ // 0x73d @0x11
0x72c…74a at0012 = ╱41╱A╱ // 0x73e @0x12
0x72c…74a at0013 = ╱56╱V╱ // 0x73f @0x13
0x72c…74a at0014 = ╱4e╱N╱ // 0x740 @0x14
0x72c…74a at0015 = ╱ef╱$╱ // 0x741 @0x15
0x72c…74a at0016 = ╱eb╱ + ╱ // 0x742 @0x16
0x72c…74a at0017 = ╱22╱"╱ // 0x743 @0x17
0x72c…74a at0018 = ╱20╱…╱ // 0x744 @0x18
0x72c…74a at0019 = ╱2a╱*╱ // 0x745 @0x19
0x72c…74a at001a = ╱2a╱*╱ // 0x746 @0x1a
0x72c…74a at001b = ╱2a╱*╱ // 0x747 @0x1b
0x72c…74a at001c = ╱22╱"╱ // 0x748 @0x1c
0x72c…74a at001d = EOL // 0x749 @0x1d
0x72c…74a }
0x74a…78b 9d79 0680 PRINT "<C1607>Udviklet af forlaget systime, Herning, marts 1983."
0x74a…78b LineComal80 {
0x74a…78b ptr = 0x9d79 // 0x74a @0x0
0x74a…78b lno = 0x02a8 // 0x74c @0x2
0x74a…78b at0004 = ╱92╱ PRINT ╱ // 0x74e @0x4
0x74a…78b at0005 = ╱22╱"╱ // 0x74f @0x5
0x74a…78b at0006 = ╱3c╱<╱ // 0x750 @0x6
0x74a…78b at0007 = ╱43╱C╱ // 0x751 @0x7
0x74a…78b at0008 = ╱31╱1╱ // 0x752 @0x8
0x74a…78b at0009 = ╱36╱6╱ // 0x753 @0x9
0x74a…78b at000a = ╱30╱0╱ // 0x754 @0xa
0x74a…78b at000b = ╱37╱7╱ // 0x755 @0xb
0x74a…78b at000c = ╱3e╱>╱ // 0x756 @0xc
0x74a…78b at000d = ╱55╱U╱ // 0x757 @0xd
0x74a…78b at000e = ╱64╱d╱ // 0x758 @0xe
0x74a…78b at000f = ╱76╱v╱ // 0x759 @0xf
0x74a…78b at0010 = ╱69╱i╱ // 0x75a @0x10
0x74a…78b at0011 = ╱6b╱k╱ // 0x75b @0x11
0x74a…78b at0012 = ╱6c╱l╱ // 0x75c @0x12
0x74a…78b at0013 = ╱65╱e╱ // 0x75d @0x13
0x74a…78b at0014 = ╱74╱t╱ // 0x75e @0x14
0x74a…78b at0015 = ╱20╱…╱ // 0x75f @0x15
0x74a…78b at0016 = ╱61╱a╱ // 0x760 @0x16
0x74a…78b at0017 = ╱66╱f╱ // 0x761 @0x17
0x74a…78b at0018 = ╱20╱…╱ // 0x762 @0x18
0x74a…78b at0019 = ╱66╱f╱ // 0x763 @0x19
0x74a…78b at001a = ╱6f╱o╱ // 0x764 @0x1a
0x74a…78b at001b = ╱72╱r╱ // 0x765 @0x1b
0x74a…78b at001c = ╱6c╱l╱ // 0x766 @0x1c
0x74a…78b at001d = ╱61╱a╱ // 0x767 @0x1d
0x74a…78b at001e = ╱67╱g╱ // 0x768 @0x1e
0x74a…78b at001f = ╱65╱e╱ // 0x769 @0x1f
0x74a…78b at0020 = ╱74╱t╱ // 0x76a @0x20
0x74a…78b at0021 = ╱20╱…╱ // 0x76b @0x21
0x74a…78b at0022 = ╱73╱s╱ // 0x76c @0x22
0x74a…78b at0023 = ╱79╱y╱ // 0x76d @0x23
0x74a…78b at0024 = ╱73╱s╱ // 0x76e @0x24
0x74a…78b at0025 = ╱74╱t╱ // 0x76f @0x25
0x74a…78b at0026 = ╱69╱i╱ // 0x770 @0x26
0x74a…78b at0027 = ╱6d╱m╱ // 0x771 @0x27
0x74a…78b at0028 = ╱65╱e╱ // 0x772 @0x28
0x74a…78b at0029 = ╱2c╱,╱ // 0x773 @0x29
0x74a…78b at002a = ╱20╱…╱ // 0x774 @0x2a
0x74a…78b at002b = ╱48╱H╱ // 0x775 @0x2b
0x74a…78b at002c = ╱65╱e╱ // 0x776 @0x2c
0x74a…78b at002d = ╱72╱r╱ // 0x777 @0x2d
0x74a…78b at002e = ╱6e╱n╱ // 0x778 @0x2e
0x74a…78b at002f = ╱69╱i╱ // 0x779 @0x2f
0x74a…78b at0030 = ╱6e╱n╱ // 0x77a @0x30
0x74a…78b at0031 = ╱67╱g╱ // 0x77b @0x31
0x74a…78b at0032 = ╱2c╱,╱ // 0x77c @0x32
0x74a…78b at0033 = ╱20╱…╱ // 0x77d @0x33
0x74a…78b at0034 = ╱6d╱m╱ // 0x77e @0x34
0x74a…78b at0035 = ╱61╱a╱ // 0x77f @0x35
0x74a…78b at0036 = ╱72╱r╱ // 0x780 @0x36
0x74a…78b at0037 = ╱74╱t╱ // 0x781 @0x37
0x74a…78b at0038 = ╱73╱s╱ // 0x782 @0x38
0x74a…78b at0039 = ╱20╱…╱ // 0x783 @0x39
0x74a…78b at003a = ╱31╱1╱ // 0x784 @0x3a
0x74a…78b at003b = ╱39╱9╱ // 0x785 @0x3b
0x74a…78b at003c = ╱38╱8╱ // 0x786 @0x3c
0x74a…78b at003d = ╱33╱3╱ // 0x787 @0x3d
0x74a…78b at003e = ╱2e╱.╱ // 0x788 @0x3e
0x74a…78b at003f = ╱22╱"╱ // 0x789 @0x3f
0x74a…78b at0040 = EOL // 0x78a @0x40
0x74a…78b }
0x78b…7cf 9dbd 0690 PRINT "<C1410>Dette bogføringssystem viser, hvordan en virksomheds "
0x78b…7cf LineComal80 {
0x78b…7cf ptr = 0x9dbd // 0x78b @0x0
0x78b…7cf lno = 0x02b2 // 0x78d @0x2
0x78b…7cf at0004 = ╱92╱ PRINT ╱ // 0x78f @0x4
0x78b…7cf at0005 = ╱22╱"╱ // 0x790 @0x5
0x78b…7cf at0006 = ╱3c╱<╱ // 0x791 @0x6
0x78b…7cf at0007 = ╱43╱C╱ // 0x792 @0x7
0x78b…7cf at0008 = ╱31╱1╱ // 0x793 @0x8
0x78b…7cf at0009 = ╱34╱4╱ // 0x794 @0x9
0x78b…7cf at000a = ╱31╱1╱ // 0x795 @0xa
0x78b…7cf at000b = ╱30╱0╱ // 0x796 @0xb
0x78b…7cf at000c = ╱3e╱>╱ // 0x797 @0xc
0x78b…7cf at000d = ╱44╱D╱ // 0x798 @0xd
0x78b…7cf at000e = ╱65╱e╱ // 0x799 @0xe
0x78b…7cf at000f = ╱74╱t╱ // 0x79a @0xf
0x78b…7cf at0010 = ╱74╱t╱ // 0x79b @0x10
0x78b…7cf at0011 = ╱65╱e╱ // 0x79c @0x11
0x78b…7cf at0012 = ╱20╱…╱ // 0x79d @0x12
0x78b…7cf at0013 = ╱62╱b╱ // 0x79e @0x13
0x78b…7cf at0014 = ╱6f╱o╱ // 0x79f @0x14
0x78b…7cf at0015 = ╱67╱g╱ // 0x7a0 @0x15
0x78b…7cf at0016 = ╱66╱f╱ // 0x7a1 @0x16
0x78b…7cf at0017 = ╱7c╱ø╱ // 0x7a2 @0x17
0x78b…7cf at0018 = ╱72╱r╱ // 0x7a3 @0x18
0x78b…7cf at0019 = ╱69╱i╱ // 0x7a4 @0x19
0x78b…7cf at001a = ╱6e╱n╱ // 0x7a5 @0x1a
0x78b…7cf at001b = ╱67╱g╱ // 0x7a6 @0x1b
0x78b…7cf at001c = ╱73╱s╱ // 0x7a7 @0x1c
0x78b…7cf at001d = ╱73╱s╱ // 0x7a8 @0x1d
0x78b…7cf at001e = ╱79╱y╱ // 0x7a9 @0x1e
0x78b…7cf at001f = ╱73╱s╱ // 0x7aa @0x1f
0x78b…7cf at0020 = ╱74╱t╱ // 0x7ab @0x20
0x78b…7cf at0021 = ╱65╱e╱ // 0x7ac @0x21
0x78b…7cf at0022 = ╱6d╱m╱ // 0x7ad @0x22
0x78b…7cf at0023 = ╱20╱…╱ // 0x7ae @0x23
0x78b…7cf at0024 = ╱76╱v╱ // 0x7af @0x24
0x78b…7cf at0025 = ╱69╱i╱ // 0x7b0 @0x25
0x78b…7cf at0026 = ╱73╱s╱ // 0x7b1 @0x26
0x78b…7cf at0027 = ╱65╱e╱ // 0x7b2 @0x27
0x78b…7cf at0028 = ╱72╱r╱ // 0x7b3 @0x28
0x78b…7cf at0029 = ╱2c╱,╱ // 0x7b4 @0x29
0x78b…7cf at002a = ╱20╱…╱ // 0x7b5 @0x2a
0x78b…7cf at002b = ╱68╱h╱ // 0x7b6 @0x2b
0x78b…7cf at002c = ╱76╱v╱ // 0x7b7 @0x2c
0x78b…7cf at002d = ╱6f╱o╱ // 0x7b8 @0x2d
0x78b…7cf at002e = ╱72╱r╱ // 0x7b9 @0x2e
0x78b…7cf at002f = ╱64╱d╱ // 0x7ba @0x2f
0x78b…7cf at0030 = ╱61╱a╱ // 0x7bb @0x30
0x78b…7cf at0031 = ╱6e╱n╱ // 0x7bc @0x31
0x78b…7cf at0032 = ╱20╱…╱ // 0x7bd @0x32
0x78b…7cf at0033 = ╱65╱e╱ // 0x7be @0x33
0x78b…7cf at0034 = ╱6e╱n╱ // 0x7bf @0x34
0x78b…7cf at0035 = ╱20╱…╱ // 0x7c0 @0x35
0x78b…7cf at0036 = ╱76╱v╱ // 0x7c1 @0x36
0x78b…7cf at0037 = ╱69╱i╱ // 0x7c2 @0x37
0x78b…7cf at0038 = ╱72╱r╱ // 0x7c3 @0x38
0x78b…7cf at0039 = ╱6b╱k╱ // 0x7c4 @0x39
0x78b…7cf at003a = ╱73╱s╱ // 0x7c5 @0x3a
0x78b…7cf at003b = ╱6f╱o╱ // 0x7c6 @0x3b
0x78b…7cf at003c = ╱6d╱m╱ // 0x7c7 @0x3c
0x78b…7cf at003d = ╱68╱h╱ // 0x7c8 @0x3d
0x78b…7cf at003e = ╱65╱e╱ // 0x7c9 @0x3e
0x78b…7cf at003f = ╱64╱d╱ // 0x7ca @0x3f
0x78b…7cf at0040 = ╱73╱s╱ // 0x7cb @0x40
0x78b…7cf at0041 = ╱20╱…╱ // 0x7cc @0x41
0x78b…7cf at0042 = ╱22╱"╱ // 0x7cd @0x42
0x78b…7cf at0043 = EOL // 0x7ce @0x43
0x78b…7cf }
0x7cf…803 9e4f 0700 PRINT "<C1411>regnskab kan styres ved hjælp af edb."
0x7cf…803 LineComal80 {
0x7cf…803 ptr = 0x9e4f // 0x7cf @0x0
0x7cf…803 lno = 0x02bc // 0x7d1 @0x2
0x7cf…803 at0004 = ╱92╱ PRINT ╱ // 0x7d3 @0x4
0x7cf…803 at0005 = ╱22╱"╱ // 0x7d4 @0x5
0x7cf…803 at0006 = ╱3c╱<╱ // 0x7d5 @0x6
0x7cf…803 at0007 = ╱43╱C╱ // 0x7d6 @0x7
0x7cf…803 at0008 = ╱31╱1╱ // 0x7d7 @0x8
0x7cf…803 at0009 = ╱34╱4╱ // 0x7d8 @0x9
0x7cf…803 at000a = ╱31╱1╱ // 0x7d9 @0xa
0x7cf…803 at000b = ╱31╱1╱ // 0x7da @0xb
0x7cf…803 at000c = ╱3e╱>╱ // 0x7db @0xc
0x7cf…803 at000d = ╱72╱r╱ // 0x7dc @0xd
0x7cf…803 at000e = ╱65╱e╱ // 0x7dd @0xe
0x7cf…803 at000f = ╱67╱g╱ // 0x7de @0xf
0x7cf…803 at0010 = ╱6e╱n╱ // 0x7df @0x10
0x7cf…803 at0011 = ╱73╱s╱ // 0x7e0 @0x11
0x7cf…803 at0012 = ╱6b╱k╱ // 0x7e1 @0x12
0x7cf…803 at0013 = ╱61╱a╱ // 0x7e2 @0x13
0x7cf…803 at0014 = ╱62╱b╱ // 0x7e3 @0x14
0x7cf…803 at0015 = ╱20╱…╱ // 0x7e4 @0x15
0x7cf…803 at0016 = ╱6b╱k╱ // 0x7e5 @0x16
0x7cf…803 at0017 = ╱61╱a╱ // 0x7e6 @0x17
0x7cf…803 at0018 = ╱6e╱n╱ // 0x7e7 @0x18
0x7cf…803 at0019 = ╱20╱…╱ // 0x7e8 @0x19
0x7cf…803 at001a = ╱73╱s╱ // 0x7e9 @0x1a
0x7cf…803 at001b = ╱74╱t╱ // 0x7ea @0x1b
0x7cf…803 at001c = ╱79╱y╱ // 0x7eb @0x1c
0x7cf…803 at001d = ╱72╱r╱ // 0x7ec @0x1d
0x7cf…803 at001e = ╱65╱e╱ // 0x7ed @0x1e
0x7cf…803 at001f = ╱73╱s╱ // 0x7ee @0x1f
0x7cf…803 at0020 = ╱20╱…╱ // 0x7ef @0x20
0x7cf…803 at0021 = ╱76╱v╱ // 0x7f0 @0x21
0x7cf…803 at0022 = ╱65╱e╱ // 0x7f1 @0x22
0x7cf…803 at0023 = ╱64╱d╱ // 0x7f2 @0x23
0x7cf…803 at0024 = ╱20╱…╱ // 0x7f3 @0x24
0x7cf…803 at0025 = ╱68╱h╱ // 0x7f4 @0x25
0x7cf…803 at0026 = ╱6a╱j╱ // 0x7f5 @0x26
0x7cf…803 at0027 = ╱7b╱æ╱ // 0x7f6 @0x27
0x7cf…803 at0028 = ╱6c╱l╱ // 0x7f7 @0x28
0x7cf…803 at0029 = ╱70╱p╱ // 0x7f8 @0x29
0x7cf…803 at002a = ╱20╱…╱ // 0x7f9 @0x2a
0x7cf…803 at002b = ╱61╱a╱ // 0x7fa @0x2b
0x7cf…803 at002c = ╱66╱f╱ // 0x7fb @0x2c
0x7cf…803 at002d = ╱20╱…╱ // 0x7fc @0x2d
0x7cf…803 at002e = ╱65╱e╱ // 0x7fd @0x2e
0x7cf…803 at002f = ╱64╱d╱ // 0x7fe @0x2f
0x7cf…803 at0030 = ╱62╱b╱ // 0x7ff @0x30
0x7cf…803 at0031 = ╱2e╱.╱ // 0x800 @0x31
0x7cf…803 at0032 = ╱22╱"╱ // 0x801 @0x32
0x7cf…803 at0033 = EOL // 0x802 @0x33
0x7cf…803 }
0x803…846 9e34 0710 PRINT "<C1413>Bogføringssystemet bygger på samme kontoplan som til"
0x803…846 LineComal80 {
0x803…846 ptr = 0x9e34 // 0x803 @0x0
0x803…846 lno = 0x02c6 // 0x805 @0x2
0x803…846 at0004 = ╱92╱ PRINT ╱ // 0x807 @0x4
0x803…846 at0005 = ╱22╱"╱ // 0x808 @0x5
0x803…846 at0006 = ╱3c╱<╱ // 0x809 @0x6
0x803…846 at0007 = ╱43╱C╱ // 0x80a @0x7
0x803…846 at0008 = ╱31╱1╱ // 0x80b @0x8
0x803…846 at0009 = ╱34╱4╱ // 0x80c @0x9
0x803…846 at000a = ╱31╱1╱ // 0x80d @0xa
0x803…846 at000b = ╱33╱3╱ // 0x80e @0xb
0x803…846 at000c = ╱3e╱>╱ // 0x80f @0xc
0x803…846 at000d = ╱42╱B╱ // 0x810 @0xd
0x803…846 at000e = ╱6f╱o╱ // 0x811 @0xe
0x803…846 at000f = ╱67╱g╱ // 0x812 @0xf
0x803…846 at0010 = ╱66╱f╱ // 0x813 @0x10
0x803…846 at0011 = ╱7c╱ø╱ // 0x814 @0x11
0x803…846 at0012 = ╱72╱r╱ // 0x815 @0x12
0x803…846 at0013 = ╱69╱i╱ // 0x816 @0x13
0x803…846 at0014 = ╱6e╱n╱ // 0x817 @0x14
0x803…846 at0015 = ╱67╱g╱ // 0x818 @0x15
0x803…846 at0016 = ╱73╱s╱ // 0x819 @0x16
0x803…846 at0017 = ╱73╱s╱ // 0x81a @0x17
0x803…846 at0018 = ╱79╱y╱ // 0x81b @0x18
0x803…846 at0019 = ╱73╱s╱ // 0x81c @0x19
0x803…846 at001a = ╱74╱t╱ // 0x81d @0x1a
0x803…846 at001b = ╱65╱e╱ // 0x81e @0x1b
0x803…846 at001c = ╱6d╱m╱ // 0x81f @0x1c
0x803…846 at001d = ╱65╱e╱ // 0x820 @0x1d
0x803…846 at001e = ╱74╱t╱ // 0x821 @0x1e
0x803…846 at001f = ╱20╱…╱ // 0x822 @0x1f
0x803…846 at0020 = ╱62╱b╱ // 0x823 @0x20
0x803…846 at0021 = ╱79╱y╱ // 0x824 @0x21
0x803…846 at0022 = ╱67╱g╱ // 0x825 @0x22
0x803…846 at0023 = ╱67╱g╱ // 0x826 @0x23
0x803…846 at0024 = ╱65╱e╱ // 0x827 @0x24
0x803…846 at0025 = ╱72╱r╱ // 0x828 @0x25
0x803…846 at0026 = ╱20╱…╱ // 0x829 @0x26
0x803…846 at0027 = ╱70╱p╱ // 0x82a @0x27
0x803…846 at0028 = ╱7d╱å╱ // 0x82b @0x28
0x803…846 at0029 = ╱20╱…╱ // 0x82c @0x29
0x803…846 at002a = ╱73╱s╱ // 0x82d @0x2a
0x803…846 at002b = ╱61╱a╱ // 0x82e @0x2b
0x803…846 at002c = ╱6d╱m╱ // 0x82f @0x2c
0x803…846 at002d = ╱6d╱m╱ // 0x830 @0x2d
0x803…846 at002e = ╱65╱e╱ // 0x831 @0x2e
0x803…846 at002f = ╱20╱…╱ // 0x832 @0x2f
0x803…846 at0030 = ╱6b╱k╱ // 0x833 @0x30
0x803…846 at0031 = ╱6f╱o╱ // 0x834 @0x31
0x803…846 at0032 = ╱6e╱n╱ // 0x835 @0x32
0x803…846 at0033 = ╱74╱t╱ // 0x836 @0x33
0x803…846 at0034 = ╱6f╱o╱ // 0x837 @0x34
0x803…846 at0035 = ╱70╱p╱ // 0x838 @0x35
0x803…846 at0036 = ╱6c╱l╱ // 0x839 @0x36
0x803…846 at0037 = ╱61╱a╱ // 0x83a @0x37
0x803…846 at0038 = ╱6e╱n╱ // 0x83b @0x38
0x803…846 at0039 = ╱20╱…╱ // 0x83c @0x39
0x803…846 at003a = ╱73╱s╱ // 0x83d @0x3a
0x803…846 at003b = ╱6f╱o╱ // 0x83e @0x3b
0x803…846 at003c = ╱6d╱m╱ // 0x83f @0x3c
0x803…846 at003d = ╱20╱…╱ // 0x840 @0x3d
0x803…846 at003e = ╱74╱t╱ // 0x841 @0x3e
0x803…846 at003f = ╱69╱i╱ // 0x842 @0x3f
0x803…846 at0040 = ╱6c╱l╱ // 0x843 @0x40
0x803…846 at0041 = ╱22╱"╱ // 0x844 @0x41
0x803…846 at0042 = EOL // 0x845 @0x42
0x803…846 }
0x846…861 9e4f 0720 PRINT "<C1414>regnskab IV."
0x846…861 LineComal80 {
0x846…861 ptr = 0x9e4f // 0x846 @0x0
0x846…861 lno = 0x02d0 // 0x848 @0x2
0x846…861 at0004 = ╱92╱ PRINT ╱ // 0x84a @0x4
0x846…861 at0005 = ╱22╱"╱ // 0x84b @0x5
0x846…861 at0006 = ╱3c╱<╱ // 0x84c @0x6
0x846…861 at0007 = ╱43╱C╱ // 0x84d @0x7
0x846…861 at0008 = ╱31╱1╱ // 0x84e @0x8
0x846…861 at0009 = ╱34╱4╱ // 0x84f @0x9
0x846…861 at000a = ╱31╱1╱ // 0x850 @0xa
0x846…861 at000b = ╱34╱4╱ // 0x851 @0xb
0x846…861 at000c = ╱3e╱>╱ // 0x852 @0xc
0x846…861 at000d = ╱72╱r╱ // 0x853 @0xd
0x846…861 at000e = ╱65╱e╱ // 0x854 @0xe
0x846…861 at000f = ╱67╱g╱ // 0x855 @0xf
0x846…861 at0010 = ╱6e╱n╱ // 0x856 @0x10
0x846…861 at0011 = ╱73╱s╱ // 0x857 @0x11
0x846…861 at0012 = ╱6b╱k╱ // 0x858 @0x12
0x846…861 at0013 = ╱61╱a╱ // 0x859 @0x13
0x846…861 at0014 = ╱62╱b╱ // 0x85a @0x14
0x846…861 at0015 = ╱20╱…╱ // 0x85b @0x15
0x846…861 at0016 = ╱49╱I╱ // 0x85c @0x16
0x846…861 at0017 = ╱56╱V╱ // 0x85d @0x17
0x846…861 at0018 = ╱2e╱.╱ // 0x85e @0x18
0x846…861 at0019 = ╱22╱"╱ // 0x85f @0x19
0x846…861 at001a = EOL // 0x860 @0x1a
0x846…861 }
0x861…8a3 9e91 0730 INPUT "<C1417>Tryk RETURN, når du er klar til at fortsætte." : SVAR$
0x861…8a3 LineComal80 {
0x861…8a3 ptr = 0x9e91 // 0x861 @0x0
0x861…8a3 lno = 0x02da // 0x863 @0x2
0x861…8a3 at0004 = ╱91╱ INPUT ╱ // 0x865 @0x4
0x861…8a3 at0005 = ╱22╱"╱ // 0x866 @0x5
0x861…8a3 at0006 = ╱3c╱<╱ // 0x867 @0x6
0x861…8a3 at0007 = ╱43╱C╱ // 0x868 @0x7
0x861…8a3 at0008 = ╱31╱1╱ // 0x869 @0x8
0x861…8a3 at0009 = ╱34╱4╱ // 0x86a @0x9
0x861…8a3 at000a = ╱31╱1╱ // 0x86b @0xa
0x861…8a3 at000b = ╱37╱7╱ // 0x86c @0xb
0x861…8a3 at000c = ╱3e╱>╱ // 0x86d @0xc
0x861…8a3 at000d = ╱54╱T╱ // 0x86e @0xd
0x861…8a3 at000e = ╱72╱r╱ // 0x86f @0xe
0x861…8a3 at000f = ╱79╱y╱ // 0x870 @0xf
0x861…8a3 at0010 = ╱6b╱k╱ // 0x871 @0x10
0x861…8a3 at0011 = ╱20╱…╱ // 0x872 @0x11
0x861…8a3 at0012 = ╱52╱R╱ // 0x873 @0x12
0x861…8a3 at0013 = ╱45╱E╱ // 0x874 @0x13
0x861…8a3 at0014 = ╱54╱T╱ // 0x875 @0x14
0x861…8a3 at0015 = ╱55╱U╱ // 0x876 @0x15
0x861…8a3 at0016 = ╱52╱R╱ // 0x877 @0x16
0x861…8a3 at0017 = ╱4e╱N╱ // 0x878 @0x17
0x861…8a3 at0018 = ╱2c╱,╱ // 0x879 @0x18
0x861…8a3 at0019 = ╱20╱…╱ // 0x87a @0x19
0x861…8a3 at001a = ╱6e╱n╱ // 0x87b @0x1a
0x861…8a3 at001b = ╱7d╱å╱ // 0x87c @0x1b
0x861…8a3 at001c = ╱72╱r╱ // 0x87d @0x1c
0x861…8a3 at001d = ╱20╱…╱ // 0x87e @0x1d
0x861…8a3 at001e = ╱64╱d╱ // 0x87f @0x1e
0x861…8a3 at001f = ╱75╱u╱ // 0x880 @0x1f
0x861…8a3 at0020 = ╱20╱…╱ // 0x881 @0x20
0x861…8a3 at0021 = ╱65╱e╱ // 0x882 @0x21
0x861…8a3 at0022 = ╱72╱r╱ // 0x883 @0x22
0x861…8a3 at0023 = ╱20╱…╱ // 0x884 @0x23
0x861…8a3 at0024 = ╱6b╱k╱ // 0x885 @0x24
0x861…8a3 at0025 = ╱6c╱l╱ // 0x886 @0x25
0x861…8a3 at0026 = ╱61╱a╱ // 0x887 @0x26
0x861…8a3 at0027 = ╱72╱r╱ // 0x888 @0x27
0x861…8a3 at0028 = ╱20╱…╱ // 0x889 @0x28
0x861…8a3 at0029 = ╱74╱t╱ // 0x88a @0x29
0x861…8a3 at002a = ╱69╱i╱ // 0x88b @0x2a
0x861…8a3 at002b = ╱6c╱l╱ // 0x88c @0x2b
0x861…8a3 at002c = ╱20╱…╱ // 0x88d @0x2c
0x861…8a3 at002d = ╱61╱a╱ // 0x88e @0x2d
0x861…8a3 at002e = ╱74╱t╱ // 0x88f @0x2e
0x861…8a3 at002f = ╱20╱…╱ // 0x890 @0x2f
0x861…8a3 at0030 = ╱66╱f╱ // 0x891 @0x30
0x861…8a3 at0031 = ╱6f╱o╱ // 0x892 @0x31
0x861…8a3 at0032 = ╱72╱r╱ // 0x893 @0x32
0x861…8a3 at0033 = ╱74╱t╱ // 0x894 @0x33
0x861…8a3 at0034 = ╱73╱s╱ // 0x895 @0x34
0x861…8a3 at0035 = ╱7b╱æ╱ // 0x896 @0x35
0x861…8a3 at0036 = ╱74╱t╱ // 0x897 @0x36
0x861…8a3 at0037 = ╱74╱t╱ // 0x898 @0x37
0x861…8a3 at0038 = ╱65╱e╱ // 0x899 @0x38
0x861…8a3 at0039 = ╱2e╱.╱ // 0x89a @0x39
0x861…8a3 at003a = ╱22╱"╱ // 0x89b @0x3a
0x861…8a3 at003b = ╱f1╱ : ╱ // 0x89c @0x3b
0x861…8a3 at003c = ╱53╱S╱ // 0x89d @0x3c
0x861…8a3 at003d = ╱56╱V╱ // 0x89e @0x3d
0x861…8a3 at003e = ╱41╱A╱ // 0x89f @0x3e
0x861…8a3 at003f = ╱52╱R╱ // 0x8a0 @0x3f
0x861…8a3 at0040 = ╱ef╱$╱ // 0x8a1 @0x40
0x861…8a3 at0041 = EOL // 0x8a2 @0x41
0x861…8a3 }
0x8a3…8ad 9e9b 0740 ENDPROC MENU
0x8a3…8ad LineComal80 {
0x8a3…8ad ptr = 0x9e9b // 0x8a3 @0x0
0x8a3…8ad lno = 0x02e4 // 0x8a5 @0x2
0x8a3…8ad at0004 = ╱9f╱ ENDPROC ╱ // 0x8a7 @0x4
0x8a3…8ad at0005 = ╱4d╱M╱ // 0x8a8 @0x5
0x8a3…8ad at0006 = ╱45╱E╱ // 0x8a9 @0x6
0x8a3…8ad at0007 = ╱4e╱N╱ // 0x8aa @0x7
0x8a3…8ad at0008 = ╱55╱U╱ // 0x8ab @0x8
0x8a3…8ad at0009 = EOL // 0x8ac @0x9
0x8a3…8ad }
0x8ad…8b2 9ea0 0750
0x8ad…8b2 LineComal80 {
0x8ad…8b2 ptr = 0x9ea0 // 0x8ad @0x0
0x8ad…8b2 lno = 0x02ee // 0x8af @0x2
0x8ad…8b2 at0004 = EOL // 0x8b1 @0x4
0x8ad…8b2 }
0x8b2…8c3 9eb1 0760 PROC SYSTEMDATO
0x8b2…8c3 LineComal80 {
0x8b2…8c3 ptr = 0x9eb1 // 0x8b2 @0x0
0x8b2…8c3 lno = 0x02f8 // 0x8b4 @0x2
0x8b2…8c3 at0004 = ╱9e04╱ PROC ╱ // 0x8b6 @0x4
0x8b2…8c3 at0006 = ╱53╱S╱ // 0x8b8 @0x6
0x8b2…8c3 at0007 = ╱59╱Y╱ // 0x8b9 @0x7
0x8b2…8c3 at0008 = ╱53╱S╱ // 0x8ba @0x8
0x8b2…8c3 at0009 = ╱54╱T╱ // 0x8bb @0x9
0x8b2…8c3 at000a = ╱45╱E╱ // 0x8bc @0xa
0x8b2…8c3 at000b = ╱4d╱M╱ // 0x8bd @0xb
0x8b2…8c3 at000c = ╱44╱D╱ // 0x8be @0xc
0x8b2…8c3 at000d = ╱41╱A╱ // 0x8bf @0xd
0x8b2…8c3 at000e = ╱54╱T╱ // 0x8c0 @0xe
0x8b2…8c3 at000f = ╱4f╱O╱ // 0x8c1 @0xf
0x8b2…8c3 at0010 = EOL // 0x8c2 @0x10
0x8b2…8c3 }
0x8c3…8f5 9ee3 0770 EXEC OVERSKRIFT("Indtastning af systemdato",6)
0x8c3…8f5 LineComal80 {
0x8c3…8f5 ptr = 0x9ee3 // 0x8c3 @0x0
0x8c3…8f5 lno = 0x0302 // 0x8c5 @0x2
0x8c3…8f5 at0004 = ╱9d╱ EXEC ╱ // 0x8c7 @0x4
0x8c3…8f5 at0005 = ╱4f╱O╱ // 0x8c8 @0x5
0x8c3…8f5 at0006 = ╱56╱V╱ // 0x8c9 @0x6
0x8c3…8f5 at0007 = ╱45╱E╱ // 0x8ca @0x7
0x8c3…8f5 at0008 = ╱52╱R╱ // 0x8cb @0x8
0x8c3…8f5 at0009 = ╱53╱S╱ // 0x8cc @0x9
0x8c3…8f5 at000a = ╱4b╱K╱ // 0x8cd @0xa
0x8c3…8f5 at000b = ╱52╱R╱ // 0x8ce @0xb
0x8c3…8f5 at000c = ╱49╱I╱ // 0x8cf @0xc
0x8c3…8f5 at000d = ╱46╱F╱ // 0x8d0 @0xd
0x8c3…8f5 at000e = ╱54╱T╱ // 0x8d1 @0xe
0x8c3…8f5 at000f = ╱ed╱(╱ // 0x8d2 @0xf
0x8c3…8f5 at0010 = ╱22╱"╱ // 0x8d3 @0x10
0x8c3…8f5 at0011 = ╱49╱I╱ // 0x8d4 @0x11
0x8c3…8f5 at0012 = ╱6e╱n╱ // 0x8d5 @0x12
0x8c3…8f5 at0013 = ╱64╱d╱ // 0x8d6 @0x13
0x8c3…8f5 at0014 = ╱74╱t╱ // 0x8d7 @0x14
0x8c3…8f5 at0015 = ╱61╱a╱ // 0x8d8 @0x15
0x8c3…8f5 at0016 = ╱73╱s╱ // 0x8d9 @0x16
0x8c3…8f5 at0017 = ╱74╱t╱ // 0x8da @0x17
0x8c3…8f5 at0018 = ╱6e╱n╱ // 0x8db @0x18
0x8c3…8f5 at0019 = ╱69╱i╱ // 0x8dc @0x19
0x8c3…8f5 at001a = ╱6e╱n╱ // 0x8dd @0x1a
0x8c3…8f5 at001b = ╱67╱g╱ // 0x8de @0x1b
0x8c3…8f5 at001c = ╱20╱…╱ // 0x8df @0x1c
0x8c3…8f5 at001d = ╱61╱a╱ // 0x8e0 @0x1d
0x8c3…8f5 at001e = ╱66╱f╱ // 0x8e1 @0x1e
0x8c3…8f5 at001f = ╱20╱…╱ // 0x8e2 @0x1f
0x8c3…8f5 at0020 = ╱73╱s╱ // 0x8e3 @0x20
0x8c3…8f5 at0021 = ╱79╱y╱ // 0x8e4 @0x21
0x8c3…8f5 at0022 = ╱73╱s╱ // 0x8e5 @0x22
0x8c3…8f5 at0023 = ╱74╱t╱ // 0x8e6 @0x23
0x8c3…8f5 at0024 = ╱65╱e╱ // 0x8e7 @0x24
0x8c3…8f5 at0025 = ╱6d╱m╱ // 0x8e8 @0x25
0x8c3…8f5 at0026 = ╱64╱d╱ // 0x8e9 @0x26
0x8c3…8f5 at0027 = ╱61╱a╱ // 0x8ea @0x27
0x8c3…8f5 at0028 = ╱74╱t╱ // 0x8eb @0x28
0x8c3…8f5 at0029 = ╱6f╱o╱ // 0x8ec @0x29
0x8c3…8f5 at002a = ╱22╱"╱ // 0x8ed @0x2a
0x8c3…8f5 at002b = ╱ec╱,╱ // 0x8ee @0x2b
0x8c3…8f5 at002c = ╱36╱6╱ // 0x8ef @0x2c
0x8c3…8f5 at002d = ╱f20600╱ // 0x8f0 @0x2d
0x8c3…8f5 at0030 = ╱ee╱)╱ // 0x8f3 @0x30
0x8c3…8f5 at0031 = EOL // 0x8f4 @0x31
0x8c3…8f5 }
0x8f5…8fc 9eea 0780 REPEAT
0x8f5…8fc LineComal80 {
0x8f5…8fc ptr = 0x9eea // 0x8f5 @0x0
0x8f5…8fc lno = 0x030c // 0x8f7 @0x2
0x8f5…8fc at0004 = ╱9705╱ REPEAT ╱ // 0x8f9 @0x4
0x8f5…8fc at0006 = EOL // 0x8fb @0x6
0x8f5…8fc }
0x8fc…92a 9f18 0790 EDIT "<C1412>Systemdato (ååmmdd): " : SYST_DAT$
0x8fc…92a LineComal80 {
0x8fc…92a ptr = 0x9f18 // 0x8fc @0x0
0x8fc…92a lno = 0x0316 // 0x8fe @0x2
0x8fc…92a at0004 = ╱b1╱ EDIT ╱ // 0x900 @0x4
0x8fc…92a at0005 = ╱22╱"╱ // 0x901 @0x5
0x8fc…92a at0006 = ╱3c╱<╱ // 0x902 @0x6
0x8fc…92a at0007 = ╱43╱C╱ // 0x903 @0x7
0x8fc…92a at0008 = ╱31╱1╱ // 0x904 @0x8
0x8fc…92a at0009 = ╱34╱4╱ // 0x905 @0x9
0x8fc…92a at000a = ╱31╱1╱ // 0x906 @0xa
0x8fc…92a at000b = ╱32╱2╱ // 0x907 @0xb
0x8fc…92a at000c = ╱3e╱>╱ // 0x908 @0xc
0x8fc…92a at000d = ╱53╱S╱ // 0x909 @0xd
0x8fc…92a at000e = ╱79╱y╱ // 0x90a @0xe
0x8fc…92a at000f = ╱73╱s╱ // 0x90b @0xf
0x8fc…92a at0010 = ╱74╱t╱ // 0x90c @0x10
0x8fc…92a at0011 = ╱65╱e╱ // 0x90d @0x11
0x8fc…92a at0012 = ╱6d╱m╱ // 0x90e @0x12
0x8fc…92a at0013 = ╱64╱d╱ // 0x90f @0x13
0x8fc…92a at0014 = ╱61╱a╱ // 0x910 @0x14
0x8fc…92a at0015 = ╱74╱t╱ // 0x911 @0x15
0x8fc…92a at0016 = ╱6f╱o╱ // 0x912 @0x16
0x8fc…92a at0017 = ╱20╱…╱ // 0x913 @0x17
0x8fc…92a at0018 = ╱28╱(╱ // 0x914 @0x18
0x8fc…92a at0019 = ╱7d╱å╱ // 0x915 @0x19
0x8fc…92a at001a = ╱7d╱å╱ // 0x916 @0x1a
0x8fc…92a at001b = ╱6d╱m╱ // 0x917 @0x1b
0x8fc…92a at001c = ╱6d╱m╱ // 0x918 @0x1c
0x8fc…92a at001d = ╱64╱d╱ // 0x919 @0x1d
0x8fc…92a at001e = ╱64╱d╱ // 0x91a @0x1e
0x8fc…92a at001f = ╱29╱)╱ // 0x91b @0x1f
0x8fc…92a at0020 = ╱3a╱:╱ // 0x91c @0x20
0x8fc…92a at0021 = ╱20╱…╱ // 0x91d @0x21
0x8fc…92a at0022 = ╱22╱"╱ // 0x91e @0x22
0x8fc…92a at0023 = ╱f1╱ : ╱ // 0x91f @0x23
0x8fc…92a at0024 = ╱53╱S╱ // 0x920 @0x24
0x8fc…92a at0025 = ╱59╱Y╱ // 0x921 @0x25
0x8fc…92a at0026 = ╱53╱S╱ // 0x922 @0x26
0x8fc…92a at0027 = ╱54╱T╱ // 0x923 @0x27
0x8fc…92a at0028 = ╱5f╱_╱ // 0x924 @0x28
0x8fc…92a at0029 = ╱44╱D╱ // 0x925 @0x29
0x8fc…92a at002a = ╱41╱A╱ // 0x926 @0x2a
0x8fc…92a at002b = ╱54╱T╱ // 0x927 @0x2b
0x8fc…92a at002c = ╱ef╱$╱ // 0x928 @0x2c
0x8fc…92a at002d = EOL // 0x929 @0x2d
0x8fc…92a }
0x92a…93c 9f2a 0800 EXEC SL_FEJLLINIE
0x92a…93c LineComal80 {
0x92a…93c ptr = 0x9f2a // 0x92a @0x0
0x92a…93c lno = 0x0320 // 0x92c @0x2
0x92a…93c at0004 = ╱9d╱ EXEC ╱ // 0x92e @0x4
0x92a…93c at0005 = ╱53╱S╱ // 0x92f @0x5
0x92a…93c at0006 = ╱4c╱L╱ // 0x930 @0x6
0x92a…93c at0007 = ╱5f╱_╱ // 0x931 @0x7
0x92a…93c at0008 = ╱46╱F╱ // 0x932 @0x8
0x92a…93c at0009 = ╱45╱E╱ // 0x933 @0x9
0x92a…93c at000a = ╱4a╱J╱ // 0x934 @0xa
0x92a…93c at000b = ╱4c╱L╱ // 0x935 @0xb
0x92a…93c at000c = ╱4c╱L╱ // 0x936 @0xc
0x92a…93c at000d = ╱49╱I╱ // 0x937 @0xd
0x92a…93c at000e = ╱4e╱N╱ // 0x938 @0xe
0x92a…93c at000f = ╱49╱I╱ // 0x939 @0xf
0x92a…93c at0010 = ╱45╱E╱ // 0x93a @0x10
0x92a…93c at0011 = EOL // 0x93b @0x11
0x92a…93c }
0x93c…959 9f47 0810 EXEC DATO_CONTROL(SYST_DAT$)
0x93c…959 LineComal80 {
0x93c…959 ptr = 0x9f47 // 0x93c @0x0
0x93c…959 lno = 0x032a // 0x93e @0x2
0x93c…959 at0004 = ╱9d╱ EXEC ╱ // 0x940 @0x4
0x93c…959 at0005 = ╱44╱D╱ // 0x941 @0x5
0x93c…959 at0006 = ╱41╱A╱ // 0x942 @0x6
0x93c…959 at0007 = ╱54╱T╱ // 0x943 @0x7
0x93c…959 at0008 = ╱4f╱O╱ // 0x944 @0x8
0x93c…959 at0009 = ╱5f╱_╱ // 0x945 @0x9
0x93c…959 at000a = ╱43╱C╱ // 0x946 @0xa
0x93c…959 at000b = ╱4f╱O╱ // 0x947 @0xb
0x93c…959 at000c = ╱4e╱N╱ // 0x948 @0xc
0x93c…959 at000d = ╱54╱T╱ // 0x949 @0xd
0x93c…959 at000e = ╱52╱R╱ // 0x94a @0xe
0x93c…959 at000f = ╱4f╱O╱ // 0x94b @0xf
0x93c…959 at0010 = ╱4c╱L╱ // 0x94c @0x10
0x93c…959 at0011 = ╱ed╱(╱ // 0x94d @0x11
0x93c…959 at0012 = ╱53╱S╱ // 0x94e @0x12
0x93c…959 at0013 = ╱59╱Y╱ // 0x94f @0x13
0x93c…959 at0014 = ╱53╱S╱ // 0x950 @0x14
0x93c…959 at0015 = ╱54╱T╱ // 0x951 @0x15
0x93c…959 at0016 = ╱5f╱_╱ // 0x952 @0x16
0x93c…959 at0017 = ╱44╱D╱ // 0x953 @0x17
0x93c…959 at0018 = ╱41╱A╱ // 0x954 @0x18
0x93c…959 at0019 = ╱54╱T╱ // 0x955 @0x19
0x93c…959 at001a = ╱ef╱$╱ // 0x956 @0x1a
0x93c…959 at001b = ╱ee╱)╱ // 0x957 @0x1b
0x93c…959 at001c = EOL // 0x958 @0x1c
0x93c…959 }
0x959…961 9f4f 0820 UNTIL OK
0x959…961 LineComal80 {
0x959…961 ptr = 0x9f4f // 0x959 @0x0
0x959…961 lno = 0x0334 // 0x95b @0x2
0x959…961 at0004 = ╱98╱ UNTIL ╱ // 0x95d @0x4
0x959…961 at0005 = ╱4f╱O╱ // 0x95e @0x5
0x959…961 at0006 = ╱4b╱K╱ // 0x95f @0x6
0x959…961 at0007 = EOL // 0x960 @0x7
0x959…961 }
0x961…9a9 9f97 0830 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0x961…9a9 LineComal80 {
0x961…9a9 ptr = 0x9f97 // 0x961 @0x0
0x961…9a9 lno = 0x033e // 0x963 @0x2
0x961…9a9 at0004 = ╱92╱ PRINT ╱ // 0x965 @0x4
0x961…9a9 at0005 = ╱22╱"╱ // 0x966 @0x5
0x961…9a9 at0006 = ╱3c╱<╱ // 0x967 @0x6
0x961…9a9 at0007 = ╱53╱S╱ // 0x968 @0x7
0x961…9a9 at0008 = ╱43╱C╱ // 0x969 @0x8
0x961…9a9 at0009 = ╱36╱6╱ // 0x96a @0x9
0x961…9a9 at000a = ╱35╱5╱ // 0x96b @0xa
0x961…9a9 at000b = ╱30╱0╱ // 0x96c @0xb
0x961…9a9 at000c = ╱31╱1╱ // 0x96d @0xc
0x961…9a9 at000d = ╱3e╱>╱ // 0x96e @0xd
0x961…9a9 at000e = ╱44╱D╱ // 0x96f @0xe
0x961…9a9 at000f = ╱61╱a╱ // 0x970 @0xf
0x961…9a9 at0010 = ╱74╱t╱ // 0x971 @0x10
0x961…9a9 at0011 = ╱6f╱o╱ // 0x972 @0x11
0x961…9a9 at0012 = ╱3a╱:╱ // 0x973 @0x12
0x961…9a9 at0013 = ╱20╱…╱ // 0x974 @0x13
0x961…9a9 at0014 = ╱22╱"╱ // 0x975 @0x14
0x961…9a9 at0015 = ╱ea╱ ; ╱ // 0x976 @0x15
0x961…9a9 at0016 = ╱53╱S╱ // 0x977 @0x16
0x961…9a9 at0017 = ╱59╱Y╱ // 0x978 @0x17
0x961…9a9 at0018 = ╱53╱S╱ // 0x979 @0x18
0x961…9a9 at0019 = ╱54╱T╱ // 0x97a @0x19
0x961…9a9 at001a = ╱5f╱_╱ // 0x97b @0x1a
0x961…9a9 at001b = ╱44╱D╱ // 0x97c @0x1b
0x961…9a9 at001c = ╱41╱A╱ // 0x97d @0x1c
0x961…9a9 at001d = ╱54╱T╱ // 0x97e @0x1d
0x961…9a9 at001e = ╱ef╱$╱ // 0x97f @0x1e
0x961…9a9 at001f = ╱ed╱(╱ // 0x980 @0x1f
0x961…9a9 at0020 = ╱31╱1╱ // 0x981 @0x20
0x961…9a9 at0021 = ╱f20100╱ // 0x982 @0x21
0x961…9a9 at0024 = ╱f1╱ : ╱ // 0x985 @0x24
0x961…9a9 at0025 = ╱32╱2╱ // 0x986 @0x25
0x961…9a9 at0026 = ╱f20200╱ // 0x987 @0x26
0x961…9a9 at0029 = ╱ee╱)╱ // 0x98a @0x29
0x961…9a9 at002a = ╱ea╱ ; ╱ // 0x98b @0x2a
0x961…9a9 at002b = ╱22╱"╱ // 0x98c @0x2b
0x961…9a9 at002c = ╱2e╱.╱ // 0x98d @0x2c
0x961…9a9 at002d = ╱22╱"╱ // 0x98e @0x2d
0x961…9a9 at002e = ╱ea╱ ; ╱ // 0x98f @0x2e
0x961…9a9 at002f = ╱53╱S╱ // 0x990 @0x2f
0x961…9a9 at0030 = ╱59╱Y╱ // 0x991 @0x30
0x961…9a9 at0031 = ╱53╱S╱ // 0x992 @0x31
0x961…9a9 at0032 = ╱54╱T╱ // 0x993 @0x32
0x961…9a9 at0033 = ╱5f╱_╱ // 0x994 @0x33
0x961…9a9 at0034 = ╱44╱D╱ // 0x995 @0x34
0x961…9a9 at0035 = ╱41╱A╱ // 0x996 @0x35
0x961…9a9 at0036 = ╱54╱T╱ // 0x997 @0x36
0x961…9a9 at0037 = ╱ef╱$╱ // 0x998 @0x37
0x961…9a9 at0038 = ╱ed╱(╱ // 0x999 @0x38
0x961…9a9 at0039 = ╱33╱3╱ // 0x99a @0x39
0x961…9a9 at003a = ╱f20300╱ // 0x99b @0x3a
0x961…9a9 at003d = ╱f1╱ : ╱ // 0x99e @0x3d
0x961…9a9 at003e = ╱32╱2╱ // 0x99f @0x3e
0x961…9a9 at003f = ╱f20200╱ // 0x9a0 @0x3f
0x961…9a9 at0042 = ╱ee╱)╱ // 0x9a3 @0x42
0x961…9a9 at0043 = ╱ea╱ ; ╱ // 0x9a4 @0x43
0x961…9a9 at0044 = ╱22╱"╱ // 0x9a5 @0x44
0x961…9a9 at0045 = ╱2e╱.╱ // 0x9a6 @0x45
0x961…9a9 at0046 = ╱22╱"╱ // 0x9a7 @0x46
0x961…9a9 at0047 = EOL // 0x9a8 @0x47
0x961…9a9 }
0x9a9…9c3 9fb1 0840 PRINT SYST_DAT$(5 : 2)
0x9a9…9c3 LineComal80 {
0x9a9…9c3 ptr = 0x9fb1 // 0x9a9 @0x0
0x9a9…9c3 lno = 0x0348 // 0x9ab @0x2
0x9a9…9c3 at0004 = ╱92╱ PRINT ╱ // 0x9ad @0x4
0x9a9…9c3 at0005 = ╱53╱S╱ // 0x9ae @0x5
0x9a9…9c3 at0006 = ╱59╱Y╱ // 0x9af @0x6
0x9a9…9c3 at0007 = ╱53╱S╱ // 0x9b0 @0x7
0x9a9…9c3 at0008 = ╱54╱T╱ // 0x9b1 @0x8
0x9a9…9c3 at0009 = ╱5f╱_╱ // 0x9b2 @0x9
0x9a9…9c3 at000a = ╱44╱D╱ // 0x9b3 @0xa
0x9a9…9c3 at000b = ╱41╱A╱ // 0x9b4 @0xb
0x9a9…9c3 at000c = ╱54╱T╱ // 0x9b5 @0xc
0x9a9…9c3 at000d = ╱ef╱$╱ // 0x9b6 @0xd
0x9a9…9c3 at000e = ╱ed╱(╱ // 0x9b7 @0xe
0x9a9…9c3 at000f = ╱35╱5╱ // 0x9b8 @0xf
0x9a9…9c3 at0010 = ╱f20500╱ // 0x9b9 @0x10
0x9a9…9c3 at0013 = ╱f1╱ : ╱ // 0x9bc @0x13
0x9a9…9c3 at0014 = ╱32╱2╱ // 0x9bd @0x14
0x9a9…9c3 at0015 = ╱f20200╱ // 0x9be @0x15
0x9a9…9c3 at0018 = ╱ee╱)╱ // 0x9c1 @0x18
0x9a9…9c3 at0019 = EOL // 0x9c2 @0x19
0x9a9…9c3 }
0x9c3…9ee 9fdc 0850 PUT PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0x9c3…9ee LineComal80 {
0x9c3…9ee ptr = 0x9fdc // 0x9c3 @0x0
0x9c3…9ee lno = 0x0352 // 0x9c5 @0x2
0x9c3…9ee at0004 = ╱aa╱ PUT ╱ // 0x9c7 @0x4
0x9c3…9ee at0005 = ╱50╱P╱ // 0x9c8 @0x5
0x9c3…9ee at0006 = ╱41╱A╱ // 0x9c9 @0x6
0x9c3…9ee at0007 = ╱52╱R╱ // 0x9ca @0x7
0x9c3…9ee at0008 = ╱41╱A╱ // 0x9cb @0x8
0x9c3…9ee at0009 = ╱4d╱M╱ // 0x9cc @0x9
0x9c3…9ee at000a = ╱ef╱$╱ // 0x9cd @0xa
0x9c3…9ee at000b = ╱ec╱,╱ // 0x9ce @0xb
0x9c3…9ee at000c = ╱31╱1╱ // 0x9cf @0xc
0x9c3…9ee at000d = ╱f20100╱ // 0x9d0 @0xd
0x9c3…9ee at0010 = ╱f1╱ : ╱ // 0x9d3 @0x10
0x9c3…9ee at0011 = ╱46╱F╱ // 0x9d4 @0x11
0x9c3…9ee at0012 = ╱49╱I╱ // 0x9d5 @0x12
0x9c3…9ee at0013 = ╱52╱R╱ // 0x9d6 @0x13
0x9c3…9ee at0014 = ╱4d╱M╱ // 0x9d7 @0x14
0x9c3…9ee at0015 = ╱41╱A╱ // 0x9d8 @0x15
0x9c3…9ee at0016 = ╱4e╱N╱ // 0x9d9 @0x16
0x9c3…9ee at0017 = ╱41╱A╱ // 0x9da @0x17
0x9c3…9ee at0018 = ╱56╱V╱ // 0x9db @0x18
0x9c3…9ee at0019 = ╱4e╱N╱ // 0x9dc @0x19
0x9c3…9ee at001a = ╱ef╱$╱ // 0x9dd @0x1a
0x9c3…9ee at001b = ╱ec╱,╱ // 0x9de @0x1b
0x9c3…9ee at001c = ╱53╱S╱ // 0x9df @0x1c
0x9c3…9ee at001d = ╱59╱Y╱ // 0x9e0 @0x1d
0x9c3…9ee at001e = ╱53╱S╱ // 0x9e1 @0x1e
0x9c3…9ee at001f = ╱54╱T╱ // 0x9e2 @0x1f
0x9c3…9ee at0020 = ╱5f╱_╱ // 0x9e3 @0x20
0x9c3…9ee at0021 = ╱44╱D╱ // 0x9e4 @0x21
0x9c3…9ee at0022 = ╱41╱A╱ // 0x9e5 @0x22
0x9c3…9ee at0023 = ╱54╱T╱ // 0x9e6 @0x23
0x9c3…9ee at0024 = ╱ef╱$╱ // 0x9e7 @0x24
0x9c3…9ee at0025 = ╱ec╱,╱ // 0x9e8 @0x25
0x9c3…9ee at0026 = ╱4d╱M╱ // 0x9e9 @0x26
0x9c3…9ee at0027 = ╱4f╱O╱ // 0x9ea @0x27
0x9c3…9ee at0028 = ╱4d╱M╱ // 0x9eb @0x28
0x9c3…9ee at0029 = ╱53╱S╱ // 0x9ec @0x29
0x9c3…9ee at002a = EOL // 0x9ed @0x2a
0x9c3…9ee }
0x9ee…9fa 9fe8 0860 CLOSE PARAM$
0x9ee…9fa LineComal80 {
0x9ee…9fa ptr = 0x9fe8 // 0x9ee @0x0
0x9ee…9fa lno = 0x035c // 0x9f0 @0x2
0x9ee…9fa at0004 = ╱a8╱ CLOSE ╱ // 0x9f2 @0x4
0x9ee…9fa at0005 = ╱50╱P╱ // 0x9f3 @0x5
0x9ee…9fa at0006 = ╱41╱A╱ // 0x9f4 @0x6
0x9ee…9fa at0007 = ╱52╱R╱ // 0x9f5 @0x7
0x9ee…9fa at0008 = ╱41╱A╱ // 0x9f6 @0x8
0x9ee…9fa at0009 = ╱4d╱M╱ // 0x9f7 @0x9
0x9ee…9fa at000a = ╱ef╱$╱ // 0x9f8 @0xa
0x9ee…9fa at000b = EOL // 0x9f9 @0xb
0x9ee…9fa }
0x9fa…a0a 9ff8 0870 ENDPROC SYSTEMDATO
0x9fa…a0a LineComal80 {
0x9fa…a0a ptr = 0x9ff8 // 0x9fa @0x0
0x9fa…a0a lno = 0x0366 // 0x9fc @0x2
0x9fa…a0a at0004 = ╱9f╱ ENDPROC ╱ // 0x9fe @0x4
0x9fa…a0a at0005 = ╱53╱S╱ // 0x9ff @0x5
0x9fa…a0a at0006 = ╱59╱Y╱ // 0xa00 @0x6
0x9fa…a0a at0007 = ╱53╱S╱ // 0xa01 @0x7
0x9fa…a0a at0008 = ╱54╱T╱ // 0xa02 @0x8
0x9fa…a0a at0009 = ╱45╱E╱ // 0xa03 @0x9
0x9fa…a0a at000a = ╱4d╱M╱ // 0xa04 @0xa
0x9fa…a0a at000b = ╱44╱D╱ // 0xa05 @0xb
0x9fa…a0a at000c = ╱41╱A╱ // 0xa06 @0xc
0x9fa…a0a at000d = ╱54╱T╱ // 0xa07 @0xd
0x9fa…a0a at000e = ╱4f╱O╱ // 0xa08 @0xe
0x9fa…a0a at000f = EOL // 0xa09 @0xf
0x9fa…a0a }
0xa0a…a0f 9ffd 0880
0xa0a…a0f LineComal80 {
0xa0a…a0f ptr = 0x9ffd // 0xa0a @0x0
0xa0a…a0f lno = 0x0370 // 0xa0c @0x2
0xa0a…a0f at0004 = EOL // 0xa0e @0x4
0xa0a…a0f }
0xa0f…a2a a018 0890 PROC OPENFIL(FNAVN$,WAY$)
0xa0f…a2a LineComal80 {
0xa0f…a2a ptr = 0xa018 // 0xa0f @0x0
0xa0f…a2a lno = 0x037a // 0xa11 @0x2
0xa0f…a2a at0004 = ╱9e06╱ PROC ╱ // 0xa13 @0x4
0xa0f…a2a at0006 = ╱4f╱O╱ // 0xa15 @0x6
0xa0f…a2a at0007 = ╱50╱P╱ // 0xa16 @0x7
0xa0f…a2a at0008 = ╱45╱E╱ // 0xa17 @0x8
0xa0f…a2a at0009 = ╱4e╱N╱ // 0xa18 @0x9
0xa0f…a2a at000a = ╱46╱F╱ // 0xa19 @0xa
0xa0f…a2a at000b = ╱49╱I╱ // 0xa1a @0xb
0xa0f…a2a at000c = ╱4c╱L╱ // 0xa1b @0xc
0xa0f…a2a at000d = ╱ed╱(╱ // 0xa1c @0xd
0xa0f…a2a at000e = ╱46╱F╱ // 0xa1d @0xe
0xa0f…a2a at000f = ╱4e╱N╱ // 0xa1e @0xf
0xa0f…a2a at0010 = ╱41╱A╱ // 0xa1f @0x10
0xa0f…a2a at0011 = ╱56╱V╱ // 0xa20 @0x11
0xa0f…a2a at0012 = ╱4e╱N╱ // 0xa21 @0x12
0xa0f…a2a at0013 = ╱ef╱$╱ // 0xa22 @0x13
0xa0f…a2a at0014 = ╱ec╱,╱ // 0xa23 @0x14
0xa0f…a2a at0015 = ╱57╱W╱ // 0xa24 @0x15
0xa0f…a2a at0016 = ╱41╱A╱ // 0xa25 @0x16
0xa0f…a2a at0017 = ╱59╱Y╱ // 0xa26 @0x17
0xa0f…a2a at0018 = ╱ef╱$╱ // 0xa27 @0x18
0xa0f…a2a at0019 = ╱ee╱)╱ // 0xa28 @0x19
0xa0f…a2a at001a = EOL // 0xa29 @0x1a
0xa0f…a2a }
0xa2a…a31 a01f 0900 REPEAT
0xa2a…a31 LineComal80 {
0xa2a…a31 ptr = 0xa01f // 0xa2a @0x0
0xa2a…a31 lno = 0x0384 // 0xa2c @0x2
0xa2a…a31 at0004 = ╱9707╱ REPEAT ╱ // 0xa2e @0x4
0xa2a…a31 at0006 = EOL // 0xa30 @0x6
0xa2a…a31 }
0xa31…a4a a038 0910 IF AY$ = "W" OR WAY$ = "w" THEN
0xa31…a4a LineComal80 {
0xa31…a4a ptr = 0xa038 // 0xa31 @0x0
0xa31…a4a lno = 0x038e // 0xa33 @0x2
0xa31…a4a at0004 = ╱9b0857╱ IF ╱ // 0xa35 @0x4
0xa31…a4a at0007 = ╱41╱A╱ // 0xa38 @0x7
0xa31…a4a at0008 = ╱59╱Y╱ // 0xa39 @0x8
0xa31…a4a at0009 = ╱ef╱$╱ // 0xa3a @0x9
0xa31…a4a at000a = ╱df╱ = ╱ // 0xa3b @0xa
0xa31…a4a at000b = ╱22╱"╱ // 0xa3c @0xb
0xa31…a4a at000c = ╱57╱W╱ // 0xa3d @0xc
0xa31…a4a at000d = ╱22╱"╱ // 0xa3e @0xd
0xa31…a4a at000e = ╱d8╱ OR ╱ // 0xa3f @0xe
0xa31…a4a at000f = ╱57╱W╱ // 0xa40 @0xf
0xa31…a4a at0010 = ╱41╱A╱ // 0xa41 @0x10
0xa31…a4a at0011 = ╱59╱Y╱ // 0xa42 @0x11
0xa31…a4a at0012 = ╱ef╱$╱ // 0xa43 @0x12
0xa31…a4a at0013 = ╱df╱ = ╱ // 0xa44 @0x13
0xa31…a4a at0014 = ╱22╱"╱ // 0xa45 @0x14
0xa31…a4a at0015 = ╱77╱w╱ // 0xa46 @0x15
0xa31…a4a at0016 = ╱22╱"╱ // 0xa47 @0x16
0xa31…a4a at0017 = ╱b5╱ THEN ╱ // 0xa48 @0x17
0xa31…a4a at0018 = EOL // 0xa49 @0x18
0xa31…a4a }
0xa4a…a58 a046 0920 OPEN FNAVN$,W
0xa4a…a58 LineComal80 {
0xa4a…a58 ptr = 0xa046 // 0xa4a @0x0
0xa4a…a58 lno = 0x0398 // 0xa4c @0x2
0xa4a…a58 at0004 = ╱a7╱ OPEN ╱ // 0xa4e @0x4
0xa4a…a58 at0005 = ╱46╱F╱ // 0xa4f @0x5
0xa4a…a58 at0006 = ╱4e╱N╱ // 0xa50 @0x6
0xa4a…a58 at0007 = ╱41╱A╱ // 0xa51 @0x7
0xa4a…a58 at0008 = ╱56╱V╱ // 0xa52 @0x8
0xa4a…a58 at0009 = ╱4e╱N╱ // 0xa53 @0x9
0xa4a…a58 at000a = ╱ef╱$╱ // 0xa54 @0xa
0xa4a…a58 at000b = ╱ec╱,╱ // 0xa55 @0xb
0xa4a…a58 at000c = ╱57╱W╱ // 0xa56 @0xc
0xa4a…a58 at000d = EOL // 0xa57 @0xd
0xa4a…a58 }
0xa58…a5f a04d 0930 ELSE
0xa58…a5f LineComal80 {
0xa58…a5f ptr = 0xa04d // 0xa58 @0x0
0xa58…a5f lno = 0x03a2 // 0xa5a @0x2
0xa58…a5f at0004 = ╱9a09╱ ELSE ╱ // 0xa5c @0x4
0xa58…a5f at0006 = EOL // 0xa5e @0x6
0xa58…a5f }
0xa5f…a6d a05b 0940 OPEN FNAVN$,R
0xa5f…a6d LineComal80 {
0xa5f…a6d ptr = 0xa05b // 0xa5f @0x0
0xa5f…a6d lno = 0x03ac // 0xa61 @0x2
0xa5f…a6d at0004 = ╱a7╱ OPEN ╱ // 0xa63 @0x4
0xa5f…a6d at0005 = ╱46╱F╱ // 0xa64 @0x5
0xa5f…a6d at0006 = ╱4e╱N╱ // 0xa65 @0x6
0xa5f…a6d at0007 = ╱41╱A╱ // 0xa66 @0x7
0xa5f…a6d at0008 = ╱56╱V╱ // 0xa67 @0x8
0xa5f…a6d at0009 = ╱4e╱N╱ // 0xa68 @0x9
0xa5f…a6d at000a = ╱ef╱$╱ // 0xa69 @0xa
0xa5f…a6d at000b = ╱ec╱,╱ // 0xa6a @0xb
0xa5f…a6d at000c = ╱52╱R╱ // 0xa6b @0xc
0xa5f…a6d at000d = EOL // 0xa6c @0xd
0xa5f…a6d }
0xa6d…a73 a061 0950 ENDIF
0xa6d…a73 LineComal80 {
0xa6d…a73 ptr = 0xa061 // 0xa6d @0x0
0xa6d…a73 lno = 0x03b6 // 0xa6f @0x2
0xa6d…a73 at0004 = ╱9c╱ ENDIF ╱ // 0xa71 @0x4
0xa6d…a73 at0005 = EOL // 0xa72 @0x5
0xa6d…a73 }
0xa73…a84 a072 0960 IF (FNAVN$) THEN
0xa73…a84 LineComal80 {
0xa73…a84 ptr = 0xa072 // 0xa73 @0x0
0xa73…a84 lno = 0x03c0 // 0xa75 @0x2
0xa73…a84 at0004 = ╱9b0acd╱ IF ╱ // 0xa77 @0x4
0xa73…a84 at0007 = ╱ed╱(╱ // 0xa7a @0x7
0xa73…a84 at0008 = ╱46╱F╱ // 0xa7b @0x8
0xa73…a84 at0009 = ╱4e╱N╱ // 0xa7c @0x9
0xa73…a84 at000a = ╱41╱A╱ // 0xa7d @0xa
0xa73…a84 at000b = ╱56╱V╱ // 0xa7e @0xb
0xa73…a84 at000c = ╱4e╱N╱ // 0xa7f @0xc
0xa73…a84 at000d = ╱ef╱$╱ // 0xa80 @0xd
0xa73…a84 at000e = ╱ee╱)╱ // 0xa81 @0xe
0xa73…a84 at000f = ╱b5╱ THEN ╱ // 0xa82 @0xf
0xa73…a84 at0010 = EOL // 0xa83 @0x10
0xa73…a84 }
0xa84…a9b a089 0970 IF (FNAVN$) = 46 THEN
0xa84…a9b LineComal80 {
0xa84…a9b ptr = 0xa089 // 0xa84 @0x0
0xa84…a9b lno = 0x03ca // 0xa86 @0x2
0xa84…a9b at0004 = ╱9b0bcd╱ IF ╱ // 0xa88 @0x4
0xa84…a9b at0007 = ╱ed╱(╱ // 0xa8b @0x7
0xa84…a9b at0008 = ╱46╱F╱ // 0xa8c @0x8
0xa84…a9b at0009 = ╱4e╱N╱ // 0xa8d @0x9
0xa84…a9b at000a = ╱41╱A╱ // 0xa8e @0xa
0xa84…a9b at000b = ╱56╱V╱ // 0xa8f @0xb
0xa84…a9b at000c = ╱4e╱N╱ // 0xa90 @0xc
0xa84…a9b at000d = ╱ef╱$╱ // 0xa91 @0xd
0xa84…a9b at000e = ╱ee╱)╱ // 0xa92 @0xe
0xa84…a9b at000f = ╱df╱ = ╱ // 0xa93 @0xf
0xa84…a9b at0010 = ╱34╱4╱ // 0xa94 @0x10
0xa84…a9b at0011 = ╱36╱6╱ // 0xa95 @0x11
0xa84…a9b at0012 = ╱f22e00╱ // 0xa96 @0x12
0xa84…a9b at0015 = ╱b5╱ THEN ╱ // 0xa99 @0x15
0xa84…a9b at0016 = EOL // 0xa9a @0x16
0xa84…a9b }
0xa9b…ae1 a0cf 0980 PRINT "<SC1602>*** Fejl nr. 46 - indsæt diskette og tryk <RETURN> ***"
0xa9b…ae1 LineComal80 {
0xa9b…ae1 ptr = 0xa0cf // 0xa9b @0x0
0xa9b…ae1 lno = 0x03d4 // 0xa9d @0x2
0xa9b…ae1 at0004 = ╱92╱ PRINT ╱ // 0xa9f @0x4
0xa9b…ae1 at0005 = ╱22╱"╱ // 0xaa0 @0x5
0xa9b…ae1 at0006 = ╱3c╱<╱ // 0xaa1 @0x6
0xa9b…ae1 at0007 = ╱53╱S╱ // 0xaa2 @0x7
0xa9b…ae1 at0008 = ╱43╱C╱ // 0xaa3 @0x8
0xa9b…ae1 at0009 = ╱31╱1╱ // 0xaa4 @0x9
0xa9b…ae1 at000a = ╱36╱6╱ // 0xaa5 @0xa
0xa9b…ae1 at000b = ╱30╱0╱ // 0xaa6 @0xb
0xa9b…ae1 at000c = ╱32╱2╱ // 0xaa7 @0xc
0xa9b…ae1 at000d = ╱3e╱>╱ // 0xaa8 @0xd
0xa9b…ae1 at000e = ╱2a╱*╱ // 0xaa9 @0xe
0xa9b…ae1 at000f = ╱2a╱*╱ // 0xaaa @0xf
0xa9b…ae1 at0010 = ╱2a╱*╱ // 0xaab @0x10
0xa9b…ae1 at0011 = ╱20╱…╱ // 0xaac @0x11
0xa9b…ae1 at0012 = ╱46╱F╱ // 0xaad @0x12
0xa9b…ae1 at0013 = ╱65╱e╱ // 0xaae @0x13
0xa9b…ae1 at0014 = ╱6a╱j╱ // 0xaaf @0x14
0xa9b…ae1 at0015 = ╱6c╱l╱ // 0xab0 @0x15
0xa9b…ae1 at0016 = ╱20╱…╱ // 0xab1 @0x16
0xa9b…ae1 at0017 = ╱6e╱n╱ // 0xab2 @0x17
0xa9b…ae1 at0018 = ╱72╱r╱ // 0xab3 @0x18
0xa9b…ae1 at0019 = ╱2e╱.╱ // 0xab4 @0x19
0xa9b…ae1 at001a = ╱20╱…╱ // 0xab5 @0x1a
0xa9b…ae1 at001b = ╱34╱4╱ // 0xab6 @0x1b
0xa9b…ae1 at001c = ╱36╱6╱ // 0xab7 @0x1c
0xa9b…ae1 at001d = ╱20╱…╱ // 0xab8 @0x1d
0xa9b…ae1 at001e = ╱2d╱-╱ // 0xab9 @0x1e
0xa9b…ae1 at001f = ╱20╱…╱ // 0xaba @0x1f
0xa9b…ae1 at0020 = ╱69╱i╱ // 0xabb @0x20
0xa9b…ae1 at0021 = ╱6e╱n╱ // 0xabc @0x21
0xa9b…ae1 at0022 = ╱64╱d╱ // 0xabd @0x22
0xa9b…ae1 at0023 = ╱73╱s╱ // 0xabe @0x23
0xa9b…ae1 at0024 = ╱7b╱æ╱ // 0xabf @0x24
0xa9b…ae1 at0025 = ╱74╱t╱ // 0xac0 @0x25
0xa9b…ae1 at0026 = ╱20╱…╱ // 0xac1 @0x26
0xa9b…ae1 at0027 = ╱64╱d╱ // 0xac2 @0x27
0xa9b…ae1 at0028 = ╱69╱i╱ // 0xac3 @0x28
0xa9b…ae1 at0029 = ╱73╱s╱ // 0xac4 @0x29
0xa9b…ae1 at002a = ╱6b╱k╱ // 0xac5 @0x2a
0xa9b…ae1 at002b = ╱65╱e╱ // 0xac6 @0x2b
0xa9b…ae1 at002c = ╱74╱t╱ // 0xac7 @0x2c
0xa9b…ae1 at002d = ╱74╱t╱ // 0xac8 @0x2d
0xa9b…ae1 at002e = ╱65╱e╱ // 0xac9 @0x2e
0xa9b…ae1 at002f = ╱20╱…╱ // 0xaca @0x2f
0xa9b…ae1 at0030 = ╱6f╱o╱ // 0xacb @0x30
0xa9b…ae1 at0031 = ╱67╱g╱ // 0xacc @0x31
0xa9b…ae1 at0032 = ╱20╱…╱ // 0xacd @0x32
0xa9b…ae1 at0033 = ╱74╱t╱ // 0xace @0x33
0xa9b…ae1 at0034 = ╱72╱r╱ // 0xacf @0x34
0xa9b…ae1 at0035 = ╱79╱y╱ // 0xad0 @0x35
0xa9b…ae1 at0036 = ╱6b╱k╱ // 0xad1 @0x36
0xa9b…ae1 at0037 = ╱20╱…╱ // 0xad2 @0x37
0xa9b…ae1 at0038 = ╱3c╱<╱ // 0xad3 @0x38
0xa9b…ae1 at0039 = ╱52╱R╱ // 0xad4 @0x39
0xa9b…ae1 at003a = ╱45╱E╱ // 0xad5 @0x3a
0xa9b…ae1 at003b = ╱54╱T╱ // 0xad6 @0x3b
0xa9b…ae1 at003c = ╱55╱U╱ // 0xad7 @0x3c
0xa9b…ae1 at003d = ╱52╱R╱ // 0xad8 @0x3d
0xa9b…ae1 at003e = ╱4e╱N╱ // 0xad9 @0x3e
0xa9b…ae1 at003f = ╱3e╱>╱ // 0xada @0x3f
0xa9b…ae1 at0040 = ╱20╱…╱ // 0xadb @0x40
0xa9b…ae1 at0041 = ╱2a╱*╱ // 0xadc @0x41
0xa9b…ae1 at0042 = ╱2a╱*╱ // 0xadd @0x42
0xa9b…ae1 at0043 = ╱2a╱*╱ // 0xade @0x43
0xa9b…ae1 at0044 = ╱22╱"╱ // 0xadf @0x44
0xa9b…ae1 at0045 = EOL // 0xae0 @0x45
0xa9b…ae1 }
0xae1…aef a0dd 0990 INPUT "" : SVAR$
0xae1…aef LineComal80 {
0xae1…aef ptr = 0xa0dd // 0xae1 @0x0
0xae1…aef lno = 0x03de // 0xae3 @0x2
0xae1…aef at0004 = ╱91╱ INPUT ╱ // 0xae5 @0x4
0xae1…aef at0005 = ╱22╱"╱ // 0xae6 @0x5
0xae1…aef at0006 = ╱22╱"╱ // 0xae7 @0x6
0xae1…aef at0007 = ╱f1╱ : ╱ // 0xae8 @0x7
0xae1…aef at0008 = ╱53╱S╱ // 0xae9 @0x8
0xae1…aef at0009 = ╱56╱V╱ // 0xaea @0x9
0xae1…aef at000a = ╱41╱A╱ // 0xaeb @0xa
0xae1…aef at000b = ╱52╱R╱ // 0xaec @0xb
0xae1…aef at000c = ╱ef╱$╱ // 0xaed @0xc
0xae1…aef at000d = EOL // 0xaee @0xd
0xae1…aef }
0xaef…af6 a0e4 1000 ELSE
0xaef…af6 LineComal80 {
0xaef…af6 ptr = 0xa0e4 // 0xaef @0x0
0xaef…af6 lno = 0x03e8 // 0xaf1 @0x2
0xaef…af6 at0004 = ╱9a0c╱ ELSE ╱ // 0xaf3 @0x4
0xaef…af6 at0006 = EOL // 0xaf5 @0x6
0xaef…af6 }
0xaf6…b37 a125 1010 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
0xaf6…b37 LineComal80 {
0xaf6…b37 ptr = 0xa125 // 0xaf6 @0x0
0xaf6…b37 lno = 0x03f2 // 0xaf8 @0x2
0xaf6…b37 at0004 = ╱92╱ PRINT ╱ // 0xafa @0x4
0xaf6…b37 at0005 = ╱22╱"╱ // 0xafb @0x5
0xaf6…b37 at0006 = ╱3c╱<╱ // 0xafc @0x6
0xaf6…b37 at0007 = ╱53╱S╱ // 0xafd @0x7
0xaf6…b37 at0008 = ╱43╱C╱ // 0xafe @0x8
0xaf6…b37 at0009 = ╱31╱1╱ // 0xaff @0x9
0xaf6…b37 at000a = ╱38╱8╱ // 0xb00 @0xa
0xaf6…b37 at000b = ╱30╱0╱ // 0xb01 @0xb
0xaf6…b37 at000c = ╱32╱2╱ // 0xb02 @0xc
0xaf6…b37 at000d = ╱3e╱>╱ // 0xb03 @0xd
0xaf6…b37 at000e = ╱2a╱*╱ // 0xb04 @0xe
0xaf6…b37 at000f = ╱2a╱*╱ // 0xb05 @0xf
0xaf6…b37 at0010 = ╱2a╱*╱ // 0xb06 @0x10
0xaf6…b37 at0011 = ╱20╱…╱ // 0xb07 @0x11
0xaf6…b37 at0012 = ╱46╱F╱ // 0xb08 @0x12
0xaf6…b37 at0013 = ╱65╱e╱ // 0xb09 @0x13
0xaf6…b37 at0014 = ╱6a╱j╱ // 0xb0a @0x14
0xaf6…b37 at0015 = ╱6c╱l╱ // 0xb0b @0x15
0xaf6…b37 at0016 = ╱20╱…╱ // 0xb0c @0x16
0xaf6…b37 at0017 = ╱6e╱n╱ // 0xb0d @0x17
0xaf6…b37 at0018 = ╱72╱r╱ // 0xb0e @0x18
0xaf6…b37 at0019 = ╱2e╱.╱ // 0xb0f @0x19
0xaf6…b37 at001a = ╱20╱…╱ // 0xb10 @0x1a
0xaf6…b37 at001b = ╱22╱"╱ // 0xb11 @0x1b
0xaf6…b37 at001c = ╱ea╱ ; ╱ // 0xb12 @0x1c
0xaf6…b37 at001d = ╱d0╱ CHR$ ╱ // 0xb13 @0x1d
0xaf6…b37 at001e = ╱ed╱(╱ // 0xb14 @0x1e
0xaf6…b37 at001f = ╱cd╱ // 0xb15 @0x1f
0xaf6…b37 at0020 = ╱ed╱(╱ // 0xb16 @0x20
0xaf6…b37 at0021 = ╱46╱F╱ // 0xb17 @0x21
0xaf6…b37 at0022 = ╱4e╱N╱ // 0xb18 @0x22
0xaf6…b37 at0023 = ╱41╱A╱ // 0xb19 @0x23
0xaf6…b37 at0024 = ╱56╱V╱ // 0xb1a @0x24
0xaf6…b37 at0025 = ╱4e╱N╱ // 0xb1b @0x25
0xaf6…b37 at0026 = ╱ef╱$╱ // 0xb1c @0x26
0xaf6…b37 at0027 = ╱ee╱)╱ // 0xb1d @0x27
0xaf6…b37 at0028 = ╱ec╱,╱ // 0xb1e @0x28
0xaf6…b37 at0029 = ╱32╱2╱ // 0xb1f @0x29
0xaf6…b37 at002a = ╱f20200╱ // 0xb20 @0x2a
0xaf6…b37 at002d = ╱ee╱)╱ // 0xb23 @0x2d
0xaf6…b37 at002e = ╱ea╱ ; ╱ // 0xb24 @0x2e
0xaf6…b37 at002f = ╱22╱"╱ // 0xb25 @0x2f
0xaf6…b37 at0030 = ╱20╱…╱ // 0xb26 @0x30
0xaf6…b37 at0031 = ╱76╱v╱ // 0xb27 @0x31
0xaf6…b37 at0032 = ╱65╱e╱ // 0xb28 @0x32
0xaf6…b37 at0033 = ╱64╱d╱ // 0xb29 @0x33
0xaf6…b37 at0034 = ╱20╱…╱ // 0xb2a @0x34
0xaf6…b37 at0035 = ╱7d╱å╱ // 0xb2b @0x35
0xaf6…b37 at0036 = ╱62╱b╱ // 0xb2c @0x36
0xaf6…b37 at0037 = ╱6e╱n╱ // 0xb2d @0x37
0xaf6…b37 at0038 = ╱69╱i╱ // 0xb2e @0x38
0xaf6…b37 at0039 = ╱6e╱n╱ // 0xb2f @0x39
0xaf6…b37 at003a = ╱67╱g╱ // 0xb30 @0x3a
0xaf6…b37 at003b = ╱20╱…╱ // 0xb31 @0x3b
0xaf6…b37 at003c = ╱61╱a╱ // 0xb32 @0x3c
0xaf6…b37 at003d = ╱66╱f╱ // 0xb33 @0x3d
0xaf6…b37 at003e = ╱20╱…╱ // 0xb34 @0x3e
0xaf6…b37 at003f = ╱22╱"╱ // 0xb35 @0x3f
0xaf6…b37 at0040 = EOL // 0xb36 @0x40
0xaf6…b37 }
0xb37…b50 a13e 1020 PRINT "<S>" ; FNAVN$ ; " ***"
0xb37…b50 LineComal80 {
0xb37…b50 ptr = 0xa13e // 0xb37 @0x0
0xb37…b50 lno = 0x03fc // 0xb39 @0x2
0xb37…b50 at0004 = ╱92╱ PRINT ╱ // 0xb3b @0x4
0xb37…b50 at0005 = ╱22╱"╱ // 0xb3c @0x5
0xb37…b50 at0006 = ╱3c╱<╱ // 0xb3d @0x6
0xb37…b50 at0007 = ╱53╱S╱ // 0xb3e @0x7
0xb37…b50 at0008 = ╱3e╱>╱ // 0xb3f @0x8
0xb37…b50 at0009 = ╱22╱"╱ // 0xb40 @0x9
0xb37…b50 at000a = ╱ea╱ ; ╱ // 0xb41 @0xa
0xb37…b50 at000b = ╱46╱F╱ // 0xb42 @0xb
0xb37…b50 at000c = ╱4e╱N╱ // 0xb43 @0xc
0xb37…b50 at000d = ╱41╱A╱ // 0xb44 @0xd
0xb37…b50 at000e = ╱56╱V╱ // 0xb45 @0xe
0xb37…b50 at000f = ╱4e╱N╱ // 0xb46 @0xf
0xb37…b50 at0010 = ╱ef╱$╱ // 0xb47 @0x10
0xb37…b50 at0011 = ╱ea╱ ; ╱ // 0xb48 @0x11
0xb37…b50 at0012 = ╱22╱"╱ // 0xb49 @0x12
0xb37…b50 at0013 = ╱20╱…╱ // 0xb4a @0x13
0xb37…b50 at0014 = ╱2a╱*╱ // 0xb4b @0x14
0xb37…b50 at0015 = ╱2a╱*╱ // 0xb4c @0x15
0xb37…b50 at0016 = ╱2a╱*╱ // 0xb4d @0x16
0xb37…b50 at0017 = ╱22╱"╱ // 0xb4e @0x17
0xb37…b50 at0018 = EOL // 0xb4f @0x18
0xb37…b50 }
0xb50…b5e a14c 1030 INPUT "" : SVAR$
0xb50…b5e LineComal80 {
0xb50…b5e ptr = 0xa14c // 0xb50 @0x0
0xb50…b5e lno = 0x0406 // 0xb52 @0x2
0xb50…b5e at0004 = ╱91╱ INPUT ╱ // 0xb54 @0x4
0xb50…b5e at0005 = ╱22╱"╱ // 0xb55 @0x5
0xb50…b5e at0006 = ╱22╱"╱ // 0xb56 @0x6
0xb50…b5e at0007 = ╱f1╱ : ╱ // 0xb57 @0x7
0xb50…b5e at0008 = ╱53╱S╱ // 0xb58 @0x8
0xb50…b5e at0009 = ╱56╱V╱ // 0xb59 @0x9
0xb50…b5e at000a = ╱41╱A╱ // 0xb5a @0xa
0xb50…b5e at000b = ╱52╱R╱ // 0xb5b @0xb
0xb50…b5e at000c = ╱ef╱$╱ // 0xb5c @0xc
0xb50…b5e at000d = EOL // 0xb5d @0xd
0xb50…b5e }
0xb5e…b72 a160 1040 PRINT "<C0102>" ; SPC$
0xb5e…b72 LineComal80 {
0xb5e…b72 ptr = 0xa160 // 0xb5e @0x0
0xb5e…b72 lno = 0x0410 // 0xb60 @0x2
0xb5e…b72 at0004 = ╱92╱ PRINT ╱ // 0xb62 @0x4
0xb5e…b72 at0005 = ╱22╱"╱ // 0xb63 @0x5
0xb5e…b72 at0006 = ╱3c╱<╱ // 0xb64 @0x6
0xb5e…b72 at0007 = ╱43╱C╱ // 0xb65 @0x7
0xb5e…b72 at0008 = ╱30╱0╱ // 0xb66 @0x8
0xb5e…b72 at0009 = ╱31╱1╱ // 0xb67 @0x9
0xb5e…b72 at000a = ╱30╱0╱ // 0xb68 @0xa
0xb5e…b72 at000b = ╱32╱2╱ // 0xb69 @0xb
0xb5e…b72 at000c = ╱3e╱>╱ // 0xb6a @0xc
0xb5e…b72 at000d = ╱22╱"╱ // 0xb6b @0xd
0xb5e…b72 at000e = ╱ea╱ ; ╱ // 0xb6c @0xe
0xb5e…b72 at000f = ╱53╱S╱ // 0xb6d @0xf
0xb5e…b72 at0010 = ╱50╱P╱ // 0xb6e @0x10
0xb5e…b72 at0011 = ╱43╱C╱ // 0xb6f @0x11
0xb5e…b72 at0012 = ╱ef╱$╱ // 0xb70 @0x12
0xb5e…b72 at0013 = EOL // 0xb71 @0x13
0xb5e…b72 }
0xb72…b78 a166 1050 ENDIF
0xb72…b78 LineComal80 {
0xb72…b78 ptr = 0xa166 // 0xb72 @0x0
0xb72…b78 lno = 0x041a // 0xb74 @0x2
0xb72…b78 at0004 = ╱9c╱ ENDIF ╱ // 0xb76 @0x4
0xb72…b78 at0005 = EOL // 0xb77 @0x5
0xb72…b78 }
0xb78…b7e a16c 1060 ENDIF
0xb78…b7e LineComal80 {
0xb78…b7e ptr = 0xa16c // 0xb78 @0x0
0xb78…b7e lno = 0x0424 // 0xb7a @0x2
0xb78…b7e at0004 = ╱9c╱ ENDIF ╱ // 0xb7c @0x4
0xb78…b7e at0005 = EOL // 0xb7d @0x5
0xb78…b7e }
0xb7e…b8e a17c 1070 UNTIL NOT ╱cd╱ (FNAVN$)
0xb7e…b8e LineComal80 {
0xb7e…b8e ptr = 0xa17c // 0xb7e @0x0
0xb7e…b8e lno = 0x042e // 0xb80 @0x2
0xb7e…b8e at0004 = ╱98╱ UNTIL ╱ // 0xb82 @0x4
0xb7e…b8e at0005 = ╱d7╱ NOT ╱ // 0xb83 @0x5
0xb7e…b8e at0006 = ╱cd╱ // 0xb84 @0x6
0xb7e…b8e at0007 = ╱ed╱(╱ // 0xb85 @0x7
0xb7e…b8e at0008 = ╱46╱F╱ // 0xb86 @0x8
0xb7e…b8e at0009 = ╱4e╱N╱ // 0xb87 @0x9
0xb7e…b8e at000a = ╱41╱A╱ // 0xb88 @0xa
0xb7e…b8e at000b = ╱56╱V╱ // 0xb89 @0xb
0xb7e…b8e at000c = ╱4e╱N╱ // 0xb8a @0xc
0xb7e…b8e at000d = ╱ef╱$╱ // 0xb8b @0xd
0xb7e…b8e at000e = ╱ee╱)╱ // 0xb8c @0xe
0xb7e…b8e at000f = EOL // 0xb8d @0xf
0xb7e…b8e }
0xb8e…b9b a189 1080 ENDPROC OPENFIL
0xb8e…b9b LineComal80 {
0xb8e…b9b ptr = 0xa189 // 0xb8e @0x0
0xb8e…b9b lno = 0x0438 // 0xb90 @0x2
0xb8e…b9b at0004 = ╱9f╱ ENDPROC ╱ // 0xb92 @0x4
0xb8e…b9b at0005 = ╱4f╱O╱ // 0xb93 @0x5
0xb8e…b9b at0006 = ╱50╱P╱ // 0xb94 @0x6
0xb8e…b9b at0007 = ╱45╱E╱ // 0xb95 @0x7
0xb8e…b9b at0008 = ╱4e╱N╱ // 0xb96 @0x8
0xb8e…b9b at0009 = ╱46╱F╱ // 0xb97 @0x9
0xb8e…b9b at000a = ╱49╱I╱ // 0xb98 @0xa
0xb8e…b9b at000b = ╱4c╱L╱ // 0xb99 @0xb
0xb8e…b9b at000c = EOL // 0xb9a @0xc
0xb8e…b9b }
0xb9b…ba0 a18e 1090
0xb9b…ba0 LineComal80 {
0xb9b…ba0 ptr = 0xa18e // 0xb9b @0x0
0xb9b…ba0 lno = 0x0442 // 0xb9d @0x2
0xb9b…ba0 at0004 = EOL // 0xb9f @0x4
0xb9b…ba0 }
0xba0…bb3 a1a1 1100 PROC TERMINAL_IDX
0xba0…bb3 LineComal80 {
0xba0…bb3 ptr = 0xa1a1 // 0xba0 @0x0
0xba0…bb3 lno = 0x044c // 0xba2 @0x2
0xba0…bb3 at0004 = ╱9e0d╱ PROC ╱ // 0xba4 @0x4
0xba0…bb3 at0006 = ╱54╱T╱ // 0xba6 @0x6
0xba0…bb3 at0007 = ╱45╱E╱ // 0xba7 @0x7
0xba0…bb3 at0008 = ╱52╱R╱ // 0xba8 @0x8
0xba0…bb3 at0009 = ╱4d╱M╱ // 0xba9 @0x9
0xba0…bb3 at000a = ╱49╱I╱ // 0xbaa @0xa
0xba0…bb3 at000b = ╱4e╱N╱ // 0xbab @0xb
0xba0…bb3 at000c = ╱41╱A╱ // 0xbac @0xc
0xba0…bb3 at000d = ╱4c╱L╱ // 0xbad @0xd
0xba0…bb3 at000e = ╱5f╱_╱ // 0xbae @0xe
0xba0…bb3 at000f = ╱49╱I╱ // 0xbaf @0xf
0xba0…bb3 at0010 = ╱44╱D╱ // 0xbb0 @0x10
0xba0…bb3 at0011 = ╱58╱X╱ // 0xbb1 @0x11
0xba0…bb3 at0012 = EOL // 0xbb2 @0x12
0xba0…bb3 }
0xbb3…bcd a1bb 1110 LET PPAR := 5 ; RESRV := 0
0xbb3…bcd LineComal80 {
0xbb3…bcd ptr = 0xa1bb // 0xbb3 @0x0
0xbb3…bcd lno = 0x0456 // 0xbb5 @0x2
0xbb3…bcd at0004 = ╱86╱ LET ╱ // 0xbb7 @0x4
0xbb3…bcd at0005 = ╱50╱P╱ // 0xbb8 @0x5
0xbb3…bcd at0006 = ╱50╱P╱ // 0xbb9 @0x6
0xbb3…bcd at0007 = ╱41╱A╱ // 0xbba @0x7
0xbb3…bcd at0008 = ╱52╱R╱ // 0xbbb @0x8
0xbb3…bcd at0009 = ╱f0╱ := ╱ // 0xbbc @0x9
0xbb3…bcd at000a = ╱35╱5╱ // 0xbbd @0xa
0xbb3…bcd at000b = ╱f20500╱ // 0xbbe @0xb
0xbb3…bcd at000e = ╱ea╱ ; ╱ // 0xbc1 @0xe
0xbb3…bcd at000f = ╱52╱R╱ // 0xbc2 @0xf
0xbb3…bcd at0010 = ╱45╱E╱ // 0xbc3 @0x10
0xbb3…bcd at0011 = ╱53╱S╱ // 0xbc4 @0x11
0xbb3…bcd at0012 = ╱52╱R╱ // 0xbc5 @0x12
0xbb3…bcd at0013 = ╱56╱V╱ // 0xbc6 @0x13
0xbb3…bcd at0014 = ╱f0╱ := ╱ // 0xbc7 @0x14
0xbb3…bcd at0015 = ╱30╱0╱ // 0xbc8 @0x15
0xbb3…bcd at0016 = ╱f20000╱ // 0xbc9 @0x16
0xbb3…bcd at0019 = EOL // 0xbcc @0x19
0xbb3…bcd }
0xbcd…bdf a1cd 1120 CALL :PRES"
0xbcd…bdf LineComal80 {
0xbcd…bdf ptr = 0xa1cd // 0xbcd @0x0
0xbcd…bdf lno = 0x0460 // 0xbcf @0x2
0xbcd…bdf at0004 = ╱ad00╱ CALL ╱ // 0xbd1 @0x4
0xbcd…bdf at0006 = ╱fe22444445╱ // 0xbd3 @0x6
0xbcd…bdf at000b = ╱3a╱:╱ // 0xbd8 @0xb
0xbcd…bdf at000c = ╱50╱P╱ // 0xbd9 @0xc
0xbcd…bdf at000d = ╱52╱R╱ // 0xbda @0xd
0xbcd…bdf at000e = ╱45╱E╱ // 0xbdb @0xe
0xbcd…bdf at000f = ╱53╱S╱ // 0xbdc @0xf
0xbcd…bdf at0010 = ╱22╱"╱ // 0xbdd @0x10
0xbcd…bdf at0011 = EOL // 0xbde @0x11
0xbcd…bdf }
0xbdf…c08 a1f6 1130 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0xbdf…c08 LineComal80 {
0xbdf…c08 ptr = 0xa1f6 // 0xbdf @0x0
0xbdf…c08 lno = 0x046a // 0xbe1 @0x2
0xbdf…c08 at0004 = ╱a9╱ GET ╱ // 0xbe3 @0x4
0xbdf…c08 at0005 = ╱53╱S╱ // 0xbe4 @0x5
0xbdf…c08 at0006 = ╱59╱Y╱ // 0xbe5 @0x6
0xbdf…c08 at0007 = ╱53╱S╱ // 0xbe6 @0x7
0xbdf…c08 at0008 = ╱50╱P╱ // 0xbe7 @0x8
0xbdf…c08 at0009 = ╱41╱A╱ // 0xbe8 @0x9
0xbdf…c08 at000a = ╱52╱R╱ // 0xbe9 @0xa
0xbdf…c08 at000b = ╱41╱A╱ // 0xbea @0xb
0xbdf…c08 at000c = ╱ef╱$╱ // 0xbeb @0xc
0xbdf…c08 at000d = ╱ec╱,╱ // 0xbec @0xd
0xbdf…c08 at000e = ╱31╱1╱ // 0xbed @0xe
0xbdf…c08 at000f = ╱f20100╱ // 0xbee @0xf
0xbdf…c08 at0012 = ╱e5╱ + ╱ // 0xbf1 @0x12
0xbdf…c08 at0013 = ╱52╱R╱ // 0xbf2 @0x13
0xbdf…c08 at0014 = ╱45╱E╱ // 0xbf3 @0x14
0xbdf…c08 at0015 = ╱53╱S╱ // 0xbf4 @0x15
0xbdf…c08 at0016 = ╱52╱R╱ // 0xbf5 @0x16
0xbdf…c08 at0017 = ╱56╱V╱ // 0xbf6 @0x17
0xbdf…c08 at0018 = ╱f1╱ : ╱ // 0xbf7 @0x18
0xbdf…c08 at0019 = ╱44╱D╱ // 0xbf8 @0x19
0xbdf…c08 at001a = ╱41╱A╱ // 0xbf9 @0x1a
0xbdf…c08 at001b = ╱54╱T╱ // 0xbfa @0x1b
0xbdf…c08 at001c = ╱41╱A╱ // 0xbfb @0x1c
0xbdf…c08 at001d = ╱46╱F╱ // 0xbfc @0x1d
0xbdf…c08 at001e = ╱4c╱L╱ // 0xbfd @0x1e
0xbdf…c08 at001f = ╱ef╱$╱ // 0xbfe @0x1f
0xbdf…c08 at0020 = ╱ec╱,╱ // 0xbff @0x20
0xbdf…c08 at0021 = ╱54╱T╱ // 0xc00 @0x21
0xbdf…c08 at0022 = ╱5f╱_╱ // 0xc01 @0x22
0xbdf…c08 at0023 = ╱4b╱K╱ // 0xc02 @0x23
0xbdf…c08 at0024 = ╱4f╱O╱ // 0xc03 @0x24
0xbdf…c08 at0025 = ╱44╱D╱ // 0xc04 @0x25
0xbdf…c08 at0026 = ╱45╱E╱ // 0xc05 @0x26
0xbdf…c08 at0027 = ╱ef╱$╱ // 0xc06 @0x27
0xbdf…c08 at0028 = EOL // 0xc07 @0x28
0xbdf…c08 }
0xc08…c1a (40,) a208 1140 ENDPROC TERMINAL_IDX
0xc08…c1a LineComal80 {
0xc08…c1a ptr = 0xa208 // 0xc08 @0x0
0xc08…c1a lno = 0x0474 // 0xc0a @0x2
0xc08…c1a at0004 = ╱9f╱ ENDPROC ╱ // 0xc0c @0x4
0xc08…c1a at0005 = ╱54╱T╱ // 0xc0d @0x5
0xc08…c1a at0006 = ╱45╱E╱ // 0xc0e @0x6
0xc08…c1a at0007 = ╱52╱R╱ // 0xc0f @0x7
0xc08…c1a at0008 = ╱4d╱M╱ // 0xc10 @0x8
0xc08…c1a at0009 = ╱49╱I╱ // 0xc11 @0x9
0xc08…c1a at000a = ╱4e╱N╱ // 0xc12 @0xa
0xc08…c1a at000b = ╱41╱A╱ // 0xc13 @0xb
0xc08…c1a at000c = ╱4c╱L╱ // 0xc14 @0xc
0xc08…c1a at000d = ╱5f╱_╱ // 0xc15 @0xd
0xc08…c1a at000e = ╱49╱I╱ // 0xc16 @0xe
0xc08…c1a at000f = ╱44╱D╱ // 0xc17 @0xf
0xc08…c1a at0010 = ╱58╱X╱ // 0xc18 @0x10
0xc08…c1a at0011 = EOL // 0xc19 @0x11
0xc08…c1a }
0xc1a…c1f a20d 1150
0xc1a…c1f LineComal80 {
0xc1a…c1f ptr = 0xa20d // 0xc1a @0x0
0xc1a…c1f lno = 0x047e // 0xc1c @0x2
0xc1a…c1f at0004 = EOL // 0xc1e @0x4
0xc1a…c1f }
0xc1f…c2f a21d 1160 PROC FEJL(ST$)
0xc1f…c2f LineComal80 {
0xc1f…c2f ptr = 0xa21d // 0xc1f @0x0
0xc1f…c2f lno = 0x0488 // 0xc21 @0x2
0xc1f…c2f at0004 = ╱9e0e╱ PROC ╱ // 0xc23 @0x4
0xc1f…c2f at0006 = ╱46╱F╱ // 0xc25 @0x6
0xc1f…c2f at0007 = ╱45╱E╱ // 0xc26 @0x7
0xc1f…c2f at0008 = ╱4a╱J╱ // 0xc27 @0x8
0xc1f…c2f at0009 = ╱4c╱L╱ // 0xc28 @0x9
0xc1f…c2f at000a = ╱ed╱(╱ // 0xc29 @0xa
0xc1f…c2f at000b = ╱53╱S╱ // 0xc2a @0xb
0xc1f…c2f at000c = ╱54╱T╱ // 0xc2b @0xc
0xc1f…c2f at000d = ╱ef╱$╱ // 0xc2c @0xd
0xc1f…c2f at000e = ╱ee╱)╱ // 0xc2d @0xe
0xc1f…c2f at000f = EOL // 0xc2e @0xf
0xc1f…c2f }
0xc2f…c3d a22b 1170 LET OK := FALSE
0xc2f…c3d LineComal80 {
0xc2f…c3d ptr = 0xa22b // 0xc2f @0x0
0xc2f…c3d lno = 0x0492 // 0xc31 @0x2
0xc2f…c3d at0004 = ╱86╱ LET ╱ // 0xc33 @0x4
0xc2f…c3d at0005 = ╱4f╱O╱ // 0xc34 @0x5
0xc2f…c3d at0006 = ╱4b╱K╱ // 0xc35 @0x6
0xc2f…c3d at0007 = ╱f0╱ := ╱ // 0xc36 @0x7
0xc2f…c3d at0008 = ╱46╱F╱ // 0xc37 @0x8
0xc2f…c3d at0009 = ╱41╱A╱ // 0xc38 @0x9
0xc2f…c3d at000a = ╱4c╱L╱ // 0xc39 @0xa
0xc2f…c3d at000b = ╱53╱S╱ // 0xc3a @0xb
0xc2f…c3d at000c = ╱45╱E╱ // 0xc3b @0xc
0xc2f…c3d at000d = EOL // 0xc3c @0xd
0xc2f…c3d }
0xc3d…c59 a247 1180 CURSOR 36 - ╱cb╱ (ST$) / 2,2
0xc3d…c59 LineComal80 {
0xc3d…c59 ptr = 0xa247 // 0xc3d @0x0
0xc3d…c59 lno = 0x049c // 0xc3f @0x2
0xc3d…c59 at0004 = ╱a1╱ CURSOR ╱ // 0xc41 @0x4
0xc3d…c59 at0005 = ╱33╱3╱ // 0xc42 @0x5
0xc3d…c59 at0006 = ╱36╱6╱ // 0xc43 @0x6
0xc3d…c59 at0007 = ╱f22400╱ // 0xc44 @0x7
0xc3d…c59 at000a = ╱e6╱ - ╱ // 0xc47 @0xa
0xc3d…c59 at000b = ╱cb╱ // 0xc48 @0xb
0xc3d…c59 at000c = ╱ed╱(╱ // 0xc49 @0xc
0xc3d…c59 at000d = ╱53╱S╱ // 0xc4a @0xd
0xc3d…c59 at000e = ╱54╱T╱ // 0xc4b @0xe
0xc3d…c59 at000f = ╱ef╱$╱ // 0xc4c @0xf
0xc3d…c59 at0010 = ╱ee╱)╱ // 0xc4d @0x10
0xc3d…c59 at0011 = ╱e8╱ / ╱ // 0xc4e @0x11
0xc3d…c59 at0012 = ╱32╱2╱ // 0xc4f @0x12
0xc3d…c59 at0013 = ╱f20200╱ // 0xc50 @0x13
0xc3d…c59 at0016 = ╱ec╱,╱ // 0xc53 @0x16
0xc3d…c59 at0017 = ╱32╱2╱ // 0xc54 @0x17
0xc3d…c59 at0018 = ╱f20200╱ // 0xc55 @0x18
0xc3d…c59 at001b = EOL // 0xc58 @0x1b
0xc3d…c59 }
0xc59…c78 a266 1190 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
0xc59…c78 LineComal80 {
0xc59…c78 ptr = 0xa266 // 0xc59 @0x0
0xc59…c78 lno = 0x04a6 // 0xc5b @0x2
0xc59…c78 at0004 = ╱92╱ PRINT ╱ // 0xc5d @0x4
0xc59…c78 at0005 = ╱22╱"╱ // 0xc5e @0x5
0xc59…c78 at0006 = ╱2a╱*╱ // 0xc5f @0x6
0xc59…c78 at0007 = ╱2a╱*╱ // 0xc60 @0x7
0xc59…c78 at0008 = ╱2a╱*╱ // 0xc61 @0x8
0xc59…c78 at0009 = ╱20╱…╱ // 0xc62 @0x9
0xc59…c78 at000a = ╱22╱"╱ // 0xc63 @0xa
0xc59…c78 at000b = ╱eb╱ + ╱ // 0xc64 @0xb
0xc59…c78 at000c = ╱53╱S╱ // 0xc65 @0xc
0xc59…c78 at000d = ╱54╱T╱ // 0xc66 @0xd
0xc59…c78 at000e = ╱ef╱$╱ // 0xc67 @0xe
0xc59…c78 at000f = ╱eb╱ + ╱ // 0xc68 @0xf
0xc59…c78 at0010 = ╱22╱"╱ // 0xc69 @0x10
0xc59…c78 at0011 = ╱20╱…╱ // 0xc6a @0x11
0xc59…c78 at0012 = ╱2a╱*╱ // 0xc6b @0x12
0xc59…c78 at0013 = ╱2a╱*╱ // 0xc6c @0x13
0xc59…c78 at0014 = ╱2a╱*╱ // 0xc6d @0x14
0xc59…c78 at0015 = ╱22╱"╱ // 0xc6e @0x15
0xc59…c78 at0016 = ╱ea╱ ; ╱ // 0xc6f @0x16
0xc59…c78 at0017 = ╱d0╱ CHR$ ╱ // 0xc70 @0x17
0xc59…c78 at0018 = ╱ed╱(╱ // 0xc71 @0x18
0xc59…c78 at0019 = ╱37╱7╱ // 0xc72 @0x19
0xc59…c78 at001a = ╱f20700╱ // 0xc73 @0x1a
0xc59…c78 at001d = ╱ee╱)╱ // 0xc76 @0x1d
0xc59…c78 at001e = EOL // 0xc77 @0x1e
0xc59…c78 }
0xc78…c82 a270 1200 ENDPROC FEJL
0xc78…c82 LineComal80 {
0xc78…c82 ptr = 0xa270 // 0xc78 @0x0
0xc78…c82 lno = 0x04b0 // 0xc7a @0x2
0xc78…c82 at0004 = ╱9f╱ ENDPROC ╱ // 0xc7c @0x4
0xc78…c82 at0005 = ╱46╱F╱ // 0xc7d @0x5
0xc78…c82 at0006 = ╱45╱E╱ // 0xc7e @0x6
0xc78…c82 at0007 = ╱4a╱J╱ // 0xc7f @0x7
0xc78…c82 at0008 = ╱4c╱L╱ // 0xc80 @0x8
0xc78…c82 at0009 = EOL // 0xc81 @0x9
0xc78…c82 }
0xc82…c87 a275 1210
0xc82…c87 LineComal80 {
0xc82…c87 ptr = 0xa275 // 0xc82 @0x0
0xc82…c87 lno = 0x04ba // 0xc84 @0x2
0xc82…c87 at0004 = EOL // 0xc86 @0x4
0xc82…c87 }
0xc87…c9a a288 1220 PROC SL_FEJLLINIE
0xc87…c9a LineComal80 {
0xc87…c9a ptr = 0xa288 // 0xc87 @0x0
0xc87…c9a lno = 0x04c4 // 0xc89 @0x2
0xc87…c9a at0004 = ╱9e0f╱ PROC ╱ // 0xc8b @0x4
0xc87…c9a at0006 = ╱53╱S╱ // 0xc8d @0x6
0xc87…c9a at0007 = ╱4c╱L╱ // 0xc8e @0x7
0xc87…c9a at0008 = ╱5f╱_╱ // 0xc8f @0x8
0xc87…c9a at0009 = ╱46╱F╱ // 0xc90 @0x9
0xc87…c9a at000a = ╱45╱E╱ // 0xc91 @0xa
0xc87…c9a at000b = ╱4a╱J╱ // 0xc92 @0xb
0xc87…c9a at000c = ╱4c╱L╱ // 0xc93 @0xc
0xc87…c9a at000d = ╱4c╱L╱ // 0xc94 @0xd
0xc87…c9a at000e = ╱49╱I╱ // 0xc95 @0xe
0xc87…c9a at000f = ╱4e╱N╱ // 0xc96 @0xf
0xc87…c9a at0010 = ╱49╱I╱ // 0xc97 @0x10
0xc87…c9a at0011 = ╱45╱E╱ // 0xc98 @0x11
0xc87…c9a at0012 = EOL // 0xc99 @0x12
0xc87…c9a }
0xc9a…ca7 a295 1230 LET OK := TRUE
0xc9a…ca7 LineComal80 {
0xc9a…ca7 ptr = 0xa295 // 0xc9a @0x0
0xc9a…ca7 lno = 0x04ce // 0xc9c @0x2
0xc9a…ca7 at0004 = ╱86╱ LET ╱ // 0xc9e @0x4
0xc9a…ca7 at0005 = ╱4f╱O╱ // 0xc9f @0x5
0xc9a…ca7 at0006 = ╱4b╱K╱ // 0xca0 @0x6
0xc9a…ca7 at0007 = ╱f0╱ := ╱ // 0xca1 @0x7
0xc9a…ca7 at0008 = ╱54╱T╱ // 0xca2 @0x8
0xc9a…ca7 at0009 = ╱52╱R╱ // 0xca3 @0x9
0xc9a…ca7 at000a = ╱55╱U╱ // 0xca4 @0xa
0xc9a…ca7 at000b = ╱45╱E╱ // 0xca5 @0xb
0xc9a…ca7 at000c = EOL // 0xca6 @0xc
0xc9a…ca7 }
0xca7…cbb a2a9 1240 PRINT "<C0102>" ; SPC$
0xca7…cbb LineComal80 {
0xca7…cbb ptr = 0xa2a9 // 0xca7 @0x0
0xca7…cbb lno = 0x04d8 // 0xca9 @0x2
0xca7…cbb at0004 = ╱92╱ PRINT ╱ // 0xcab @0x4
0xca7…cbb at0005 = ╱22╱"╱ // 0xcac @0x5
0xca7…cbb at0006 = ╱3c╱<╱ // 0xcad @0x6
0xca7…cbb at0007 = ╱43╱C╱ // 0xcae @0x7
0xca7…cbb at0008 = ╱30╱0╱ // 0xcaf @0x8
0xca7…cbb at0009 = ╱31╱1╱ // 0xcb0 @0x9
0xca7…cbb at000a = ╱30╱0╱ // 0xcb1 @0xa
0xca7…cbb at000b = ╱32╱2╱ // 0xcb2 @0xb
0xca7…cbb at000c = ╱3e╱>╱ // 0xcb3 @0xc
0xca7…cbb at000d = ╱22╱"╱ // 0xcb4 @0xd
0xca7…cbb at000e = ╱ea╱ ; ╱ // 0xcb5 @0xe
0xca7…cbb at000f = ╱53╱S╱ // 0xcb6 @0xf
0xca7…cbb at0010 = ╱50╱P╱ // 0xcb7 @0x10
0xca7…cbb at0011 = ╱43╱C╱ // 0xcb8 @0x11
0xca7…cbb at0012 = ╱ef╱$╱ // 0xcb9 @0x12
0xca7…cbb at0013 = EOL // 0xcba @0x13
0xca7…cbb }
0xcbb…ccd a2bb 1250 ENDPROC SL_FEJLLINIE
0xcbb…ccd LineComal80 {
0xcbb…ccd ptr = 0xa2bb // 0xcbb @0x0
0xcbb…ccd lno = 0x04e2 // 0xcbd @0x2
0xcbb…ccd at0004 = ╱9f╱ ENDPROC ╱ // 0xcbf @0x4
0xcbb…ccd at0005 = ╱53╱S╱ // 0xcc0 @0x5
0xcbb…ccd at0006 = ╱4c╱L╱ // 0xcc1 @0x6
0xcbb…ccd at0007 = ╱5f╱_╱ // 0xcc2 @0x7
0xcbb…ccd at0008 = ╱46╱F╱ // 0xcc3 @0x8
0xcbb…ccd at0009 = ╱45╱E╱ // 0xcc4 @0x9
0xcbb…ccd at000a = ╱4a╱J╱ // 0xcc5 @0xa
0xcbb…ccd at000b = ╱4c╱L╱ // 0xcc6 @0xb
0xcbb…ccd at000c = ╱4c╱L╱ // 0xcc7 @0xc
0xcbb…ccd at000d = ╱49╱I╱ // 0xcc8 @0xd
0xcbb…ccd at000e = ╱4e╱N╱ // 0xcc9 @0xe
0xcbb…ccd at000f = ╱49╱I╱ // 0xcca @0xf
0xcbb…ccd at0010 = ╱45╱E╱ // 0xccb @0x10
0xcbb…ccd at0011 = EOL // 0xccc @0x11
0xcbb…ccd }
0xccd…cd2 a2c0 1260
0xccd…cd2 LineComal80 {
0xccd…cd2 ptr = 0xa2c0 // 0xccd @0x0
0xccd…cd2 lno = 0x04ec // 0xccf @0x2
0xccd…cd2 at0004 = EOL // 0xcd1 @0x4
0xccd…cd2 }
0xcd2…cea a2d8 1270 PROC OVERSKRIFT(ST$,L)
0xcd2…cea LineComal80 {
0xcd2…cea ptr = 0xa2d8 // 0xcd2 @0x0
0xcd2…cea lno = 0x04f6 // 0xcd4 @0x2
0xcd2…cea at0004 = ╱9e10╱ PROC ╱ // 0xcd6 @0x4
0xcd2…cea at0006 = ╱4f╱O╱ // 0xcd8 @0x6
0xcd2…cea at0007 = ╱56╱V╱ // 0xcd9 @0x7
0xcd2…cea at0008 = ╱45╱E╱ // 0xcda @0x8
0xcd2…cea at0009 = ╱52╱R╱ // 0xcdb @0x9
0xcd2…cea at000a = ╱53╱S╱ // 0xcdc @0xa
0xcd2…cea at000b = ╱4b╱K╱ // 0xcdd @0xb
0xcd2…cea at000c = ╱52╱R╱ // 0xcde @0xc
0xcd2…cea at000d = ╱49╱I╱ // 0xcdf @0xd
0xcd2…cea at000e = ╱46╱F╱ // 0xce0 @0xe
0xcd2…cea at000f = ╱54╱T╱ // 0xce1 @0xf
0xcd2…cea at0010 = ╱ed╱(╱ // 0xce2 @0x10
0xcd2…cea at0011 = ╱53╱S╱ // 0xce3 @0x11
0xcd2…cea at0012 = ╱54╱T╱ // 0xce4 @0x12
0xcd2…cea at0013 = ╱ef╱$╱ // 0xce5 @0x13
0xcd2…cea at0014 = ╱ec╱,╱ // 0xce6 @0x14
0xcd2…cea at0015 = ╱4c╱L╱ // 0xce7 @0x15
0xcd2…cea at0016 = ╱ee╱)╱ // 0xce8 @0x16
0xcd2…cea at0017 = EOL // 0xce9 @0x17
0xcd2…cea }
0xcea…d10 a2fe 1280 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0xcea…d10 LineComal80 {
0xcea…d10 ptr = 0xa2fe // 0xcea @0x0
0xcea…d10 lno = 0x0500 // 0xcec @0x2
0xcea…d10 at0004 = ╱92╱ PRINT ╱ // 0xcee @0x4
0xcea…d10 at0005 = ╱22╱"╱ // 0xcef @0x5
0xcea…d10 at0006 = ╱3c╱<╱ // 0xcf0 @0x6
0xcea…d10 at0007 = ╱58╱X╱ // 0xcf1 @0x7
0xcea…d10 at0008 = ╱43╱C╱ // 0xcf2 @0x8
0xcea…d10 at0009 = ╱30╱0╱ // 0xcf3 @0x9
0xcea…d10 at000a = ╱31╱1╱ // 0xcf4 @0xa
0xcea…d10 at000b = ╱30╱0╱ // 0xcf5 @0xb
0xcea…d10 at000c = ╱31╱1╱ // 0xcf6 @0xc
0xcea…d10 at000d = ╱3e╱>╱ // 0xcf7 @0xd
0xcea…d10 at000e = ╱46╱F╱ // 0xcf8 @0xe
0xcea…d10 at000f = ╱69╱i╱ // 0xcf9 @0xf
0xcea…d10 at0010 = ╱72╱r╱ // 0xcfa @0x10
0xcea…d10 at0011 = ╱6d╱m╱ // 0xcfb @0x11
0xcea…d10 at0012 = ╱61╱a╱ // 0xcfc @0x12
0xcea…d10 at0013 = ╱6e╱n╱ // 0xcfd @0x13
0xcea…d10 at0014 = ╱61╱a╱ // 0xcfe @0x14
0xcea…d10 at0015 = ╱76╱v╱ // 0xcff @0x15
0xcea…d10 at0016 = ╱6e╱n╱ // 0xd00 @0x16
0xcea…d10 at0017 = ╱3a╱:╱ // 0xd01 @0x17
0xcea…d10 at0018 = ╱20╱…╱ // 0xd02 @0x18
0xcea…d10 at0019 = ╱22╱"╱ // 0xd03 @0x19
0xcea…d10 at001a = ╱ea╱ ; ╱ // 0xd04 @0x1a
0xcea…d10 at001b = ╱46╱F╱ // 0xd05 @0x1b
0xcea…d10 at001c = ╱49╱I╱ // 0xd06 @0x1c
0xcea…d10 at001d = ╱52╱R╱ // 0xd07 @0x1d
0xcea…d10 at001e = ╱4d╱M╱ // 0xd08 @0x1e
0xcea…d10 at001f = ╱41╱A╱ // 0xd09 @0x1f
0xcea…d10 at0020 = ╱4e╱N╱ // 0xd0a @0x20
0xcea…d10 at0021 = ╱41╱A╱ // 0xd0b @0x21
0xcea…d10 at0022 = ╱56╱V╱ // 0xd0c @0x22
0xcea…d10 at0023 = ╱4e╱N╱ // 0xd0d @0x23
0xcea…d10 at0024 = ╱ef╱$╱ // 0xd0e @0x24
0xcea…d10 at0025 = EOL // 0xd0f @0x25
0xcea…d10 }
0xd10…d58 a346 1290 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0xd10…d58 LineComal80 {
0xd10…d58 ptr = 0xa346 // 0xd10 @0x0
0xd10…d58 lno = 0x050a // 0xd12 @0x2
0xd10…d58 at0004 = ╱92╱ PRINT ╱ // 0xd14 @0x4
0xd10…d58 at0005 = ╱22╱"╱ // 0xd15 @0x5
0xd10…d58 at0006 = ╱3c╱<╱ // 0xd16 @0x6
0xd10…d58 at0007 = ╱53╱S╱ // 0xd17 @0x7
0xd10…d58 at0008 = ╱43╱C╱ // 0xd18 @0x8
0xd10…d58 at0009 = ╱36╱6╱ // 0xd19 @0x9
0xd10…d58 at000a = ╱35╱5╱ // 0xd1a @0xa
0xd10…d58 at000b = ╱30╱0╱ // 0xd1b @0xb
0xd10…d58 at000c = ╱31╱1╱ // 0xd1c @0xc
0xd10…d58 at000d = ╱3e╱>╱ // 0xd1d @0xd
0xd10…d58 at000e = ╱44╱D╱ // 0xd1e @0xe
0xd10…d58 at000f = ╱61╱a╱ // 0xd1f @0xf
0xd10…d58 at0010 = ╱74╱t╱ // 0xd20 @0x10
0xd10…d58 at0011 = ╱6f╱o╱ // 0xd21 @0x11
0xd10…d58 at0012 = ╱3a╱:╱ // 0xd22 @0x12
0xd10…d58 at0013 = ╱20╱…╱ // 0xd23 @0x13
0xd10…d58 at0014 = ╱22╱"╱ // 0xd24 @0x14
0xd10…d58 at0015 = ╱ea╱ ; ╱ // 0xd25 @0x15
0xd10…d58 at0016 = ╱53╱S╱ // 0xd26 @0x16
0xd10…d58 at0017 = ╱59╱Y╱ // 0xd27 @0x17
0xd10…d58 at0018 = ╱53╱S╱ // 0xd28 @0x18
0xd10…d58 at0019 = ╱54╱T╱ // 0xd29 @0x19
0xd10…d58 at001a = ╱5f╱_╱ // 0xd2a @0x1a
0xd10…d58 at001b = ╱44╱D╱ // 0xd2b @0x1b
0xd10…d58 at001c = ╱41╱A╱ // 0xd2c @0x1c
0xd10…d58 at001d = ╱54╱T╱ // 0xd2d @0x1d
0xd10…d58 at001e = ╱ef╱$╱ // 0xd2e @0x1e
0xd10…d58 at001f = ╱ed╱(╱ // 0xd2f @0x1f
0xd10…d58 at0020 = ╱31╱1╱ // 0xd30 @0x20
0xd10…d58 at0021 = ╱f20100╱ // 0xd31 @0x21
0xd10…d58 at0024 = ╱f1╱ : ╱ // 0xd34 @0x24
0xd10…d58 at0025 = ╱32╱2╱ // 0xd35 @0x25
0xd10…d58 at0026 = ╱f20200╱ // 0xd36 @0x26
0xd10…d58 at0029 = ╱ee╱)╱ // 0xd39 @0x29
0xd10…d58 at002a = ╱ea╱ ; ╱ // 0xd3a @0x2a
0xd10…d58 at002b = ╱22╱"╱ // 0xd3b @0x2b
0xd10…d58 at002c = ╱2e╱.╱ // 0xd3c @0x2c
0xd10…d58 at002d = ╱22╱"╱ // 0xd3d @0x2d
0xd10…d58 at002e = ╱ea╱ ; ╱ // 0xd3e @0x2e
0xd10…d58 at002f = ╱53╱S╱ // 0xd3f @0x2f
0xd10…d58 at0030 = ╱59╱Y╱ // 0xd40 @0x30
0xd10…d58 at0031 = ╱53╱S╱ // 0xd41 @0x31
0xd10…d58 at0032 = ╱54╱T╱ // 0xd42 @0x32
0xd10…d58 at0033 = ╱5f╱_╱ // 0xd43 @0x33
0xd10…d58 at0034 = ╱44╱D╱ // 0xd44 @0x34
0xd10…d58 at0035 = ╱41╱A╱ // 0xd45 @0x35
0xd10…d58 at0036 = ╱54╱T╱ // 0xd46 @0x36
0xd10…d58 at0037 = ╱ef╱$╱ // 0xd47 @0x37
0xd10…d58 at0038 = ╱ed╱(╱ // 0xd48 @0x38
0xd10…d58 at0039 = ╱33╱3╱ // 0xd49 @0x39
0xd10…d58 at003a = ╱f20300╱ // 0xd4a @0x3a
0xd10…d58 at003d = ╱f1╱ : ╱ // 0xd4d @0x3d
0xd10…d58 at003e = ╱32╱2╱ // 0xd4e @0x3e
0xd10…d58 at003f = ╱f20200╱ // 0xd4f @0x3f
0xd10…d58 at0042 = ╱ee╱)╱ // 0xd52 @0x42
0xd10…d58 at0043 = ╱ea╱ ; ╱ // 0xd53 @0x43
0xd10…d58 at0044 = ╱22╱"╱ // 0xd54 @0x44
0xd10…d58 at0045 = ╱2e╱.╱ // 0xd55 @0x45
0xd10…d58 at0046 = ╱22╱"╱ // 0xd56 @0x46
0xd10…d58 at0047 = EOL // 0xd57 @0x47
0xd10…d58 }
0xd58…d72 a360 1300 PRINT SYST_DAT$(5 : 2)
0xd58…d72 LineComal80 {
0xd58…d72 ptr = 0xa360 // 0xd58 @0x0
0xd58…d72 lno = 0x0514 // 0xd5a @0x2
0xd58…d72 at0004 = ╱92╱ PRINT ╱ // 0xd5c @0x4
0xd58…d72 at0005 = ╱53╱S╱ // 0xd5d @0x5
0xd58…d72 at0006 = ╱59╱Y╱ // 0xd5e @0x6
0xd58…d72 at0007 = ╱53╱S╱ // 0xd5f @0x7
0xd58…d72 at0008 = ╱54╱T╱ // 0xd60 @0x8
0xd58…d72 at0009 = ╱5f╱_╱ // 0xd61 @0x9
0xd58…d72 at000a = ╱44╱D╱ // 0xd62 @0xa
0xd58…d72 at000b = ╱41╱A╱ // 0xd63 @0xb
0xd58…d72 at000c = ╱54╱T╱ // 0xd64 @0xc
0xd58…d72 at000d = ╱ef╱$╱ // 0xd65 @0xd
0xd58…d72 at000e = ╱ed╱(╱ // 0xd66 @0xe
0xd58…d72 at000f = ╱35╱5╱ // 0xd67 @0xf
0xd58…d72 at0010 = ╱f20500╱ // 0xd68 @0x10
0xd58…d72 at0013 = ╱f1╱ : ╱ // 0xd6b @0x13
0xd58…d72 at0014 = ╱32╱2╱ // 0xd6c @0x14
0xd58…d72 at0015 = ╱f20200╱ // 0xd6d @0x15
0xd58…d72 at0018 = ╱ee╱)╱ // 0xd70 @0x18
0xd58…d72 at0019 = EOL // 0xd71 @0x19
0xd58…d72 }
0xd72…d8e a37c 1310 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
0xd72…d8e LineComal80 {
0xd72…d8e ptr = 0xa37c // 0xd72 @0x0
0xd72…d8e lno = 0x051e // 0xd74 @0x2
0xd72…d8e at0004 = ╱a1╱ CURSOR ╱ // 0xd76 @0x4
0xd72…d8e at0005 = ╱33╱3╱ // 0xd77 @0x5
0xd72…d8e at0006 = ╱34╱4╱ // 0xd78 @0x6
0xd72…d8e at0007 = ╱f22200╱ // 0xd79 @0x7
0xd72…d8e at000a = ╱e6╱ - ╱ // 0xd7c @0xa
0xd72…d8e at000b = ╱c6╱INT╱ // 0xd7d @0xb
0xd72…d8e at000c = ╱ed╱(╱ // 0xd7e @0xc
0xd72…d8e at000d = ╱cb╱ // 0xd7f @0xd
0xd72…d8e at000e = ╱ed╱(╱ // 0xd80 @0xe
0xd72…d8e at000f = ╱53╱S╱ // 0xd81 @0xf
0xd72…d8e at0010 = ╱54╱T╱ // 0xd82 @0x10
0xd72…d8e at0011 = ╱ef╱$╱ // 0xd83 @0x11
0xd72…d8e at0012 = ╱ee╱)╱ // 0xd84 @0x12
0xd72…d8e at0013 = ╱e8╱ / ╱ // 0xd85 @0x13
0xd72…d8e at0014 = ╱32╱2╱ // 0xd86 @0x14
0xd72…d8e at0015 = ╱f20200╱ // 0xd87 @0x15
0xd72…d8e at0018 = ╱ee╱)╱ // 0xd8a @0x18
0xd72…d8e at0019 = ╱ec╱,╱ // 0xd8b @0x19
0xd72…d8e at001a = ╱4c╱L╱ // 0xd8c @0x1a
0xd72…d8e at001b = EOL // 0xd8d @0x1b
0xd72…d8e }
0xd8e…da5 a393 1320 PRINT "*** " ; ST$ ; " ***"
0xd8e…da5 LineComal80 {
0xd8e…da5 ptr = 0xa393 // 0xd8e @0x0
0xd8e…da5 lno = 0x0528 // 0xd90 @0x2
0xd8e…da5 at0004 = ╱92╱ PRINT ╱ // 0xd92 @0x4
0xd8e…da5 at0005 = ╱22╱"╱ // 0xd93 @0x5
0xd8e…da5 at0006 = ╱2a╱*╱ // 0xd94 @0x6
0xd8e…da5 at0007 = ╱2a╱*╱ // 0xd95 @0x7
0xd8e…da5 at0008 = ╱2a╱*╱ // 0xd96 @0x8
0xd8e…da5 at0009 = ╱20╱…╱ // 0xd97 @0x9
0xd8e…da5 at000a = ╱22╱"╱ // 0xd98 @0xa
0xd8e…da5 at000b = ╱ea╱ ; ╱ // 0xd99 @0xb
0xd8e…da5 at000c = ╱53╱S╱ // 0xd9a @0xc
0xd8e…da5 at000d = ╱54╱T╱ // 0xd9b @0xd
0xd8e…da5 at000e = ╱ef╱$╱ // 0xd9c @0xe
0xd8e…da5 at000f = ╱ea╱ ; ╱ // 0xd9d @0xf
0xd8e…da5 at0010 = ╱22╱"╱ // 0xd9e @0x10
0xd8e…da5 at0011 = ╱20╱…╱ // 0xd9f @0x11
0xd8e…da5 at0012 = ╱2a╱*╱ // 0xda0 @0x12
0xd8e…da5 at0013 = ╱2a╱*╱ // 0xda1 @0x13
0xd8e…da5 at0014 = ╱2a╱*╱ // 0xda2 @0x14
0xd8e…da5 at0015 = ╱22╱"╱ // 0xda3 @0x15
0xd8e…da5 at0016 = EOL // 0xda4 @0x16
0xd8e…da5 }
0xda5…db5 a3a3 1330 ENDPROC OVERSKRIFT
0xda5…db5 LineComal80 {
0xda5…db5 ptr = 0xa3a3 // 0xda5 @0x0
0xda5…db5 lno = 0x0532 // 0xda7 @0x2
0xda5…db5 at0004 = ╱9f╱ ENDPROC ╱ // 0xda9 @0x4
0xda5…db5 at0005 = ╱4f╱O╱ // 0xdaa @0x5
0xda5…db5 at0006 = ╱56╱V╱ // 0xdab @0x6
0xda5…db5 at0007 = ╱45╱E╱ // 0xdac @0x7
0xda5…db5 at0008 = ╱52╱R╱ // 0xdad @0x8
0xda5…db5 at0009 = ╱53╱S╱ // 0xdae @0x9
0xda5…db5 at000a = ╱4b╱K╱ // 0xdaf @0xa
0xda5…db5 at000b = ╱52╱R╱ // 0xdb0 @0xb
0xda5…db5 at000c = ╱49╱I╱ // 0xdb1 @0xc
0xda5…db5 at000d = ╱46╱F╱ // 0xdb2 @0xd
0xda5…db5 at000e = ╱54╱T╱ // 0xdb3 @0xe
0xda5…db5 at000f = EOL // 0xdb4 @0xf
0xda5…db5 }
0xdb5…dba a3a8 1340
0xdb5…dba LineComal80 {
0xdb5…dba ptr = 0xa3a8 // 0xdb5 @0x0
0xdb5…dba lno = 0x053c // 0xdb7 @0x2
0xdb5…dba at0004 = EOL // 0xdb9 @0x4
0xdb5…dba }
0xdba…dd4 a3c2 1350 PROC DATO_CONTROL( REF RST$)
0xdba…dd4 LineComal80 {
0xdba…dd4 ptr = 0xa3c2 // 0xdba @0x0
0xdba…dd4 lno = 0x0546 // 0xdbc @0x2
0xdba…dd4 at0004 = ╱9e11╱ PROC ╱ // 0xdbe @0x4
0xdba…dd4 at0006 = ╱44╱D╱ // 0xdc0 @0x6
0xdba…dd4 at0007 = ╱41╱A╱ // 0xdc1 @0x7
0xdba…dd4 at0008 = ╱54╱T╱ // 0xdc2 @0x8
0xdba…dd4 at0009 = ╱4f╱O╱ // 0xdc3 @0x9
0xdba…dd4 at000a = ╱5f╱_╱ // 0xdc4 @0xa
0xdba…dd4 at000b = ╱43╱C╱ // 0xdc5 @0xb
0xdba…dd4 at000c = ╱4f╱O╱ // 0xdc6 @0xc
0xdba…dd4 at000d = ╱4e╱N╱ // 0xdc7 @0xd
0xdba…dd4 at000e = ╱54╱T╱ // 0xdc8 @0xe
0xdba…dd4 at000f = ╱52╱R╱ // 0xdc9 @0xf
0xdba…dd4 at0010 = ╱4f╱O╱ // 0xdca @0x10
0xdba…dd4 at0011 = ╱4c╱L╱ // 0xdcb @0x11
0xdba…dd4 at0012 = ╱ed╱(╱ // 0xdcc @0x12
0xdba…dd4 at0013 = ╱b6╱ REF ╱ // 0xdcd @0x13
0xdba…dd4 at0014 = ╱52╱R╱ // 0xdce @0x14
0xdba…dd4 at0015 = ╱53╱S╱ // 0xdcf @0x15
0xdba…dd4 at0016 = ╱54╱T╱ // 0xdd0 @0x16
0xdba…dd4 at0017 = ╱ef╱$╱ // 0xdd1 @0x17
0xdba…dd4 at0018 = ╱ee╱)╱ // 0xdd2 @0x18
0xdba…dd4 at0019 = EOL // 0xdd3 @0x19
0xdba…dd4 }
0xdd4…de1 a3cf 1360 LET OK := TRUE
0xdd4…de1 LineComal80 {
0xdd4…de1 ptr = 0xa3cf // 0xdd4 @0x0
0xdd4…de1 lno = 0x0550 // 0xdd6 @0x2
0xdd4…de1 at0004 = ╱86╱ LET ╱ // 0xdd8 @0x4
0xdd4…de1 at0005 = ╱4f╱O╱ // 0xdd9 @0x5
0xdd4…de1 at0006 = ╱4b╱K╱ // 0xdda @0x6
0xdd4…de1 at0007 = ╱f0╱ := ╱ // 0xddb @0x7
0xdd4…de1 at0008 = ╱54╱T╱ // 0xddc @0x8
0xdd4…de1 at0009 = ╱52╱R╱ // 0xddd @0x9
0xdd4…de1 at000a = ╱55╱U╱ // 0xdde @0xa
0xdd4…de1 at000b = ╱45╱E╱ // 0xddf @0xb
0xdd4…de1 at000c = EOL // 0xde0 @0xc
0xdd4…de1 }
0xde1…e1b a409 1370 IF RST$(1 : 2) < "00" OR RST$(1 : 2) > "99" THEN LET OK := FALSE
0xde1…e1b LineComal80 {
0xde1…e1b ptr = 0xa409 // 0xde1 @0x0
0xde1…e1b lno = 0x055a // 0xde3 @0x2
0xde1…e1b at0004 = ╱8200╱ IF ╱ // 0xde5 @0x4
0xde1…e1b at0006 = ╱52╱R╱ // 0xde7 @0x6
0xde1…e1b at0007 = ╱53╱S╱ // 0xde8 @0x7
0xde1…e1b at0008 = ╱54╱T╱ // 0xde9 @0x8
0xde1…e1b at0009 = ╱ef╱$╱ // 0xdea @0x9
0xde1…e1b at000a = ╱ed╱(╱ // 0xdeb @0xa
0xde1…e1b at000b = ╱31╱1╱ // 0xdec @0xb
0xde1…e1b at000c = ╱f20100╱ // 0xded @0xc
0xde1…e1b at000f = ╱f1╱ : ╱ // 0xdf0 @0xf
0xde1…e1b at0010 = ╱32╱2╱ // 0xdf1 @0x10
0xde1…e1b at0011 = ╱f20200╱ // 0xdf2 @0x11
0xde1…e1b at0014 = ╱ee╱)╱ // 0xdf5 @0x14
0xde1…e1b at0015 = ╱e0╱ < ╱ // 0xdf6 @0x15
0xde1…e1b at0016 = ╱22╱"╱ // 0xdf7 @0x16
0xde1…e1b at0017 = ╱30╱0╱ // 0xdf8 @0x17
0xde1…e1b at0018 = ╱30╱0╱ // 0xdf9 @0x18
0xde1…e1b at0019 = ╱22╱"╱ // 0xdfa @0x19
0xde1…e1b at001a = ╱d8╱ OR ╱ // 0xdfb @0x1a
0xde1…e1b at001b = ╱52╱R╱ // 0xdfc @0x1b
0xde1…e1b at001c = ╱53╱S╱ // 0xdfd @0x1c
0xde1…e1b at001d = ╱54╱T╱ // 0xdfe @0x1d
0xde1…e1b at001e = ╱ef╱$╱ // 0xdff @0x1e
0xde1…e1b at001f = ╱ed╱(╱ // 0xe00 @0x1f
0xde1…e1b at0020 = ╱31╱1╱ // 0xe01 @0x20
0xde1…e1b at0021 = ╱f20100╱ // 0xe02 @0x21
0xde1…e1b at0024 = ╱f1╱ : ╱ // 0xe05 @0x24
0xde1…e1b at0025 = ╱32╱2╱ // 0xe06 @0x25
0xde1…e1b at0026 = ╱f20200╱ // 0xe07 @0x26
0xde1…e1b at0029 = ╱ee╱)╱ // 0xe0a @0x29
0xde1…e1b at002a = ╱e1╱ > ╱ // 0xe0b @0x2a
0xde1…e1b at002b = ╱22╱"╱ // 0xe0c @0x2b
0xde1…e1b at002c = ╱39╱9╱ // 0xe0d @0x2c
0xde1…e1b at002d = ╱39╱9╱ // 0xe0e @0x2d
0xde1…e1b at002e = ╱22╱"╱ // 0xe0f @0x2e
0xde1…e1b at002f = ╱b5╱ THEN ╱ // 0xe10 @0x2f
0xde1…e1b at0030 = ╱86╱ LET ╱ // 0xe11 @0x30
0xde1…e1b at0031 = ╱4f╱O╱ // 0xe12 @0x31
0xde1…e1b at0032 = ╱4b╱K╱ // 0xe13 @0x32
0xde1…e1b at0033 = ╱f0╱ := ╱ // 0xe14 @0x33
0xde1…e1b at0034 = ╱46╱F╱ // 0xe15 @0x34
0xde1…e1b at0035 = ╱41╱A╱ // 0xe16 @0x35
0xde1…e1b at0036 = ╱4c╱L╱ // 0xe17 @0x36
0xde1…e1b at0037 = ╱53╱S╱ // 0xe18 @0x37
0xde1…e1b at0038 = ╱45╱E╱ // 0xe19 @0x38
0xde1…e1b at0039 = EOL // 0xe1a @0x39
0xde1…e1b }
0xe1b…e55 a443 1380 IF RST$(3 : 2) < "01" OR RST$(3 : 2) > "12" THEN LET OK := FALSE
0xe1b…e55 LineComal80 {
0xe1b…e55 ptr = 0xa443 // 0xe1b @0x0
0xe1b…e55 lno = 0x0564 // 0xe1d @0x2
0xe1b…e55 at0004 = ╱8200╱ IF ╱ // 0xe1f @0x4
0xe1b…e55 at0006 = ╱52╱R╱ // 0xe21 @0x6
0xe1b…e55 at0007 = ╱53╱S╱ // 0xe22 @0x7
0xe1b…e55 at0008 = ╱54╱T╱ // 0xe23 @0x8
0xe1b…e55 at0009 = ╱ef╱$╱ // 0xe24 @0x9
0xe1b…e55 at000a = ╱ed╱(╱ // 0xe25 @0xa
0xe1b…e55 at000b = ╱33╱3╱ // 0xe26 @0xb
0xe1b…e55 at000c = ╱f20300╱ // 0xe27 @0xc
0xe1b…e55 at000f = ╱f1╱ : ╱ // 0xe2a @0xf
0xe1b…e55 at0010 = ╱32╱2╱ // 0xe2b @0x10
0xe1b…e55 at0011 = ╱f20200╱ // 0xe2c @0x11
0xe1b…e55 at0014 = ╱ee╱)╱ // 0xe2f @0x14
0xe1b…e55 at0015 = ╱e0╱ < ╱ // 0xe30 @0x15
0xe1b…e55 at0016 = ╱22╱"╱ // 0xe31 @0x16
0xe1b…e55 at0017 = ╱30╱0╱ // 0xe32 @0x17
0xe1b…e55 at0018 = ╱31╱1╱ // 0xe33 @0x18
0xe1b…e55 at0019 = ╱22╱"╱ // 0xe34 @0x19
0xe1b…e55 at001a = ╱d8╱ OR ╱ // 0xe35 @0x1a
0xe1b…e55 at001b = ╱52╱R╱ // 0xe36 @0x1b
0xe1b…e55 at001c = ╱53╱S╱ // 0xe37 @0x1c
0xe1b…e55 at001d = ╱54╱T╱ // 0xe38 @0x1d
0xe1b…e55 at001e = ╱ef╱$╱ // 0xe39 @0x1e
0xe1b…e55 at001f = ╱ed╱(╱ // 0xe3a @0x1f
0xe1b…e55 at0020 = ╱33╱3╱ // 0xe3b @0x20
0xe1b…e55 at0021 = ╱f20300╱ // 0xe3c @0x21
0xe1b…e55 at0024 = ╱f1╱ : ╱ // 0xe3f @0x24
0xe1b…e55 at0025 = ╱32╱2╱ // 0xe40 @0x25
0xe1b…e55 at0026 = ╱f20200╱ // 0xe41 @0x26
0xe1b…e55 at0029 = ╱ee╱)╱ // 0xe44 @0x29
0xe1b…e55 at002a = ╱e1╱ > ╱ // 0xe45 @0x2a
0xe1b…e55 at002b = ╱22╱"╱ // 0xe46 @0x2b
0xe1b…e55 at002c = ╱31╱1╱ // 0xe47 @0x2c
0xe1b…e55 at002d = ╱32╱2╱ // 0xe48 @0x2d
0xe1b…e55 at002e = ╱22╱"╱ // 0xe49 @0x2e
0xe1b…e55 at002f = ╱b5╱ THEN ╱ // 0xe4a @0x2f
0xe1b…e55 at0030 = ╱86╱ LET ╱ // 0xe4b @0x30
0xe1b…e55 at0031 = ╱4f╱O╱ // 0xe4c @0x31
0xe1b…e55 at0032 = ╱4b╱K╱ // 0xe4d @0x32
0xe1b…e55 at0033 = ╱f0╱ := ╱ // 0xe4e @0x33
0xe1b…e55 at0034 = ╱46╱F╱ // 0xe4f @0x34
0xe1b…e55 at0035 = ╱41╱A╱ // 0xe50 @0x35
0xe1b…e55 at0036 = ╱4c╱L╱ // 0xe51 @0x36
0xe1b…e55 at0037 = ╱53╱S╱ // 0xe52 @0x37
0xe1b…e55 at0038 = ╱45╱E╱ // 0xe53 @0x38
0xe1b…e55 at0039 = EOL // 0xe54 @0x39
0xe1b…e55 }
0xe55…e8f a47d 1390 IF RST$(5 : 2) < "01" OR RST$(5 : 2) > "31" THEN LET OK := FALSE
0xe55…e8f LineComal80 {
0xe55…e8f ptr = 0xa47d // 0xe55 @0x0
0xe55…e8f lno = 0x056e // 0xe57 @0x2
0xe55…e8f at0004 = ╱8200╱ IF ╱ // 0xe59 @0x4
0xe55…e8f at0006 = ╱52╱R╱ // 0xe5b @0x6
0xe55…e8f at0007 = ╱53╱S╱ // 0xe5c @0x7
0xe55…e8f at0008 = ╱54╱T╱ // 0xe5d @0x8
0xe55…e8f at0009 = ╱ef╱$╱ // 0xe5e @0x9
0xe55…e8f at000a = ╱ed╱(╱ // 0xe5f @0xa
0xe55…e8f at000b = ╱35╱5╱ // 0xe60 @0xb
0xe55…e8f at000c = ╱f20500╱ // 0xe61 @0xc
0xe55…e8f at000f = ╱f1╱ : ╱ // 0xe64 @0xf
0xe55…e8f at0010 = ╱32╱2╱ // 0xe65 @0x10
0xe55…e8f at0011 = ╱f20200╱ // 0xe66 @0x11
0xe55…e8f at0014 = ╱ee╱)╱ // 0xe69 @0x14
0xe55…e8f at0015 = ╱e0╱ < ╱ // 0xe6a @0x15
0xe55…e8f at0016 = ╱22╱"╱ // 0xe6b @0x16
0xe55…e8f at0017 = ╱30╱0╱ // 0xe6c @0x17
0xe55…e8f at0018 = ╱31╱1╱ // 0xe6d @0x18
0xe55…e8f at0019 = ╱22╱"╱ // 0xe6e @0x19
0xe55…e8f at001a = ╱d8╱ OR ╱ // 0xe6f @0x1a
0xe55…e8f at001b = ╱52╱R╱ // 0xe70 @0x1b
0xe55…e8f at001c = ╱53╱S╱ // 0xe71 @0x1c
0xe55…e8f at001d = ╱54╱T╱ // 0xe72 @0x1d
0xe55…e8f at001e = ╱ef╱$╱ // 0xe73 @0x1e
0xe55…e8f at001f = ╱ed╱(╱ // 0xe74 @0x1f
0xe55…e8f at0020 = ╱35╱5╱ // 0xe75 @0x20
0xe55…e8f at0021 = ╱f20500╱ // 0xe76 @0x21
0xe55…e8f at0024 = ╱f1╱ : ╱ // 0xe79 @0x24
0xe55…e8f at0025 = ╱32╱2╱ // 0xe7a @0x25
0xe55…e8f at0026 = ╱f20200╱ // 0xe7b @0x26
0xe55…e8f at0029 = ╱ee╱)╱ // 0xe7e @0x29
0xe55…e8f at002a = ╱e1╱ > ╱ // 0xe7f @0x2a
0xe55…e8f at002b = ╱22╱"╱ // 0xe80 @0x2b
0xe55…e8f at002c = ╱33╱3╱ // 0xe81 @0x2c
0xe55…e8f at002d = ╱31╱1╱ // 0xe82 @0x2d
0xe55…e8f at002e = ╱22╱"╱ // 0xe83 @0x2e
0xe55…e8f at002f = ╱b5╱ THEN ╱ // 0xe84 @0x2f
0xe55…e8f at0030 = ╱86╱ LET ╱ // 0xe85 @0x30
0xe55…e8f at0031 = ╱4f╱O╱ // 0xe86 @0x31
0xe55…e8f at0032 = ╱4b╱K╱ // 0xe87 @0x32
0xe55…e8f at0033 = ╱f0╱ := ╱ // 0xe88 @0x33
0xe55…e8f at0034 = ╱46╱F╱ // 0xe89 @0x34
0xe55…e8f at0035 = ╱41╱A╱ // 0xe8a @0x35
0xe55…e8f at0036 = ╱4c╱L╱ // 0xe8b @0x36
0xe55…e8f at0037 = ╱53╱S╱ // 0xe8c @0x37
0xe55…e8f at0038 = ╱45╱E╱ // 0xe8d @0x38
0xe55…e8f at0039 = EOL // 0xe8e @0x39
0xe55…e8f }
0xe8f…eaf a49d 1400 IF NOT OK THEN EXEC FEJL("Ulovlig dato")
0xe8f…eaf LineComal80 {
0xe8f…eaf ptr = 0xa49d // 0xe8f @0x0
0xe8f…eaf lno = 0x0578 // 0xe91 @0x2
0xe8f…eaf at0004 = ╱8200╱ IF ╱ // 0xe93 @0x4
0xe8f…eaf at0006 = ╱d7╱ NOT ╱ // 0xe95 @0x6
0xe8f…eaf at0007 = ╱4f╱O╱ // 0xe96 @0x7
0xe8f…eaf at0008 = ╱4b╱K╱ // 0xe97 @0x8
0xe8f…eaf at0009 = ╱b5╱ THEN ╱ // 0xe98 @0x9
0xe8f…eaf at000a = ╱9d╱ EXEC ╱ // 0xe99 @0xa
0xe8f…eaf at000b = ╱46╱F╱ // 0xe9a @0xb
0xe8f…eaf at000c = ╱45╱E╱ // 0xe9b @0xc
0xe8f…eaf at000d = ╱4a╱J╱ // 0xe9c @0xd
0xe8f…eaf at000e = ╱4c╱L╱ // 0xe9d @0xe
0xe8f…eaf at000f = ╱ed╱(╱ // 0xe9e @0xf
0xe8f…eaf at0010 = ╱22╱"╱ // 0xe9f @0x10
0xe8f…eaf at0011 = ╱55╱U╱ // 0xea0 @0x11
0xe8f…eaf at0012 = ╱6c╱l╱ // 0xea1 @0x12
0xe8f…eaf at0013 = ╱6f╱o╱ // 0xea2 @0x13
0xe8f…eaf at0014 = ╱76╱v╱ // 0xea3 @0x14
0xe8f…eaf at0015 = ╱6c╱l╱ // 0xea4 @0x15
0xe8f…eaf at0016 = ╱69╱i╱ // 0xea5 @0x16
0xe8f…eaf at0017 = ╱67╱g╱ // 0xea6 @0x17
0xe8f…eaf at0018 = ╱20╱…╱ // 0xea7 @0x18
0xe8f…eaf at0019 = ╱64╱d╱ // 0xea8 @0x19
0xe8f…eaf at001a = ╱61╱a╱ // 0xea9 @0x1a
0xe8f…eaf at001b = ╱74╱t╱ // 0xeaa @0x1b
0xe8f…eaf at001c = ╱6f╱o╱ // 0xeab @0x1c
0xe8f…eaf at001d = ╱22╱"╱ // 0xeac @0x1d
0xe8f…eaf at001e = ╱ee╱)╱ // 0xead @0x1e
0xe8f…eaf at001f = EOL // 0xeae @0x1f
0xe8f…eaf }
0xeaf…ec1 0000 1410 ENDPROC DATO_CONTROL
0xeaf…ec1 LineComal80 {
0xeaf…ec1 ptr = 0x0000 // 0xeaf @0x0
0xeaf…ec1 lno = 0x0582 // 0xeb1 @0x2
0xeaf…ec1 at0004 = ╱9f╱ ENDPROC ╱ // 0xeb3 @0x4
0xeaf…ec1 at0005 = ╱44╱D╱ // 0xeb4 @0x5
0xeaf…ec1 at0006 = ╱41╱A╱ // 0xeb5 @0x6
0xeaf…ec1 at0007 = ╱54╱T╱ // 0xeb6 @0x7
0xeaf…ec1 at0008 = ╱4f╱O╱ // 0xeb7 @0x8
0xeaf…ec1 at0009 = ╱5f╱_╱ // 0xeb8 @0x9
0xeaf…ec1 at000a = ╱43╱C╱ // 0xeb9 @0xa
0xeaf…ec1 at000b = ╱4f╱O╱ // 0xeba @0xb
0xeaf…ec1 at000c = ╱4e╱N╱ // 0xebb @0xc
0xeaf…ec1 at000d = ╱54╱T╱ // 0xebc @0xd
0xeaf…ec1 at000e = ╱52╱R╱ // 0xebd @0xe
0xeaf…ec1 at000f = ╱4f╱O╱ // 0xebe @0xf
0xeaf…ec1 at0010 = ╱4c╱L╱ // 0xebf @0x10
0xeaf…ec1 at0011 = EOL // 0xec0 @0x11
0xeaf…ec1 }
0xec1…ee0 79 9d a8 02 92 22 3c 43 31 36 30 37 3e 55 64 76 69 6b 6c 65 74 20 61 66 20 66 6f 72 6c 61 67 ┆y "<C1607>Udviklet af forlag┆
0xee0…f00 65 74 20 73 79 73 74 69 6d 65 20 61 2f 73 2c 20 44 4b 2d 37 34 30 30 20 48 65 72 6e 69 6e 67 22 ┆et systime a/s, DK-7400 Herning"┆
0xf00…f01 ff ┆ ┆
0xf01…f07 (50,) ee 95 ee 95 00 00 ┆ ┆