|
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: 5969 (0x1751)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSIÅ.B«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSIÅ.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 INDTASTSALDI
0280 CHAIN PROGRAM$
0290 // ============= procedurer starter =============
0300 PROC DIMENSIONER
0310 // Standard variable
0320 DIM SPC$ OF 80,TAL$ OF 10,ALFA$ OF 28,SVAR$ OF 12,PRGFL$ OF 8
0330 DIM PROGRAM$ OF 17
0340 REAL RESRV,PPAR
0350 INTEGER OK,TRUE,FALSE,I,J,K
0360 // Hjælpevariable
0370 DIM A_KTONR$ OF 8,HJ_ST$ OF 10,KODE$ OF 1
0380 INTEGER POS,HIGH,LOW,IDXPOS
0390 // Variable til filen SYSPARA
0400 DIM SYSPARA$ OF 17
0410 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0420 DIM DATAFL$ OF 8,T_KODE$ OF 1
0430 // Variable til filen @@PARAM
0440 DIM PARAM$ OF 17
0450 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 8
0460 REAL MOMS
0470 // Variable til filen @@KONTO
0480 DIM KONTO$ OF 17
0490 DIM ST_DATO$ OF 6
0500 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0510 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0520 REAL KTO_PRIMO,KTO_ULTIMO
0530 INTEGER KTO_FP,KTO_SP
0540 // Variable til filen @@KTOIDX
0550 DIM KTOIDX$ OF 17
0560 INTEGER I_HØJREC,I_MAXREC
0570 DIM KTONR$ OF 8
0580 INTEGER RECNR
0590 ENDPROC DIMENSIONER
0600
0610 PROC INITIER
0620 LET PRGFL$ := "DP2"
0630 LET PROGRAM$ := PRGFL$ + ":SYSA"
0640 LET TAL$ := "0123456789"
0650 FOR I := ╱cc╱ ("A") TO ("Å") DO LET ALFA$ := ALFA$ + CHR$ (I)
0660 LET SPC$ := " "
0670 LET SPC$ := SPC$ + SPC$
0680 LET FALSE := 0 ; TRUE := 1 // boolske variable
0690 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0700 EXEC OPENFIL(SYSPARA$,"R")
0710 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0720 EXEC TERMINAL_IDX
0730 CLOSE SYSPARA$
0740 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0750 EXEC OPENFIL(PARAM$,"R")
0760 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0770 CLOSE PARAM$
0780 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0790 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0800 EXEC OPENFIL(KTOIDX$,"W")
0810 EXEC OPENFIL(KONTO$,"W")
0820 ENDPROC INITIER
0830
0840 //
0850 PROC TERMINAL_IDX
0860 LET PPAR := 5 ; RESRV := 0
0870 CALL L"DDE:PRES"
0880 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0890 ENDPROC TERMINAL_IDX
0900
0910 PROC OPENFIL(FNAVN$,WAY$)
0920 REPEAT
0930 IF AY$ = "W" OR WAY$ = "w" THEN
0940 OPEN FNAVN$,W
0950 ELSE
0960 OPEN FNAVN$,R
0970 ENDIF
0980 IF (FNAVN$) THEN
0990 PRINT "<S>" ; CHR$ (7)
1000 IF (FNAVN$) = 6 THEN
1010 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
1020 INPUT "" : SVAR$
1030 ELSE
1040 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
1050 PRINT "<S>" ; FNAVN$ ; " ***"
1060 INPUT "" : SVAR$
1070 PRINT "<C0102>" ; SPC$
1080 ENDIF
1090 ENDIF
1100 UNTIL NOT ╱cd╱ (FNAVN$)
1110 ENDPROC OPENFIL
1120
1130 PROC OVERSKRIFT(ST$,L)
1140 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
1150 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
1160 PRINT SYST_DAT$(5 : 2)
1170 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
1180 PRINT "*** " ; ST$ ; " ***"
1190 ENDPROC OVERSKRIFT
1200
1210 PROC SL_FEJLLINIE
1220 LET OK := TRUE
1230 PRINT "<C0102>" ; SPC$
1240 ENDPROC SL_FEJLLINIE
1250
1260 PROC FEJL(ST$)
1270 LET OK := FALSE
1280 CURSOR 36 - ( ╱cb╱ (ST$) / 2),2
1290 PRINT "<S>*** " + ST$ + " ***" ; CHR$ (7)
1300 ENDPROC FEJL
1310
1320 PROC INDTASTSALDI
1330 REPEAT
1340 EXEC OVERSKRIFT("Indtastning af åbningssaldi",6)
1350 EXEC FIND_KONTO
1360 LET KODE$ := "D"
1370 IF KTO_PRIMO < 0 THEN LET KODE$ := "K"
1380 LET SVAR$ := CHR$ (ABS(KTO_PRIMO),9,2)
1390 IF KTO_PRIMO = 0 THEN LET SVAR$ := ""
1400 REPEAT
1410 PRINT "<SC1816>" ; SPC$
1420 EDIT "<SC1816>Saldo primo: " : SVAR$
1430 EXEC SL_FEJLLINIE
1440 EXEC TAL_CONTROL(SVAR$)
1450 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
1460 UNTIL OK
1470 LET KTO_PRIMO := ASC (SVAR$)
1480 REPEAT
1490 EDIT "<SC1817>(D)ebet eller (K)redit? " : KODE$
1500 EXEC ST_BGST(KODE$)
1510 EXEC SL_FEJLLINIE
1520 IF "/" + KODE$ + "/" IN "/D/K/" THEN
1530 EXEC FEJL("Ukendt svar: '" + KODE$ + "'")
1540 ENDIF
1550 UNTIL OK
1560 IF KODE$ = "K" THEN LET KTO_PRIMO := KTO_PRIMO * ( - 1)
1570 LET KTO_ULTIMO := KTO_PRIMO
1580 EXEC SKRIV_KONTO(RECNR)
1590 CLEAR
1600 LET SVAR$ := "j"
1610 EDIT "<C1212>Indtast flere åbningssaldi (j/n)? " : SVAR$(1)
1620 UNTIL NOT "/" + SVAR$ + "/" IN "/J/j/"
1630 ENDPROC INDTASTSALDI
1640
1650 PROC FIND_KONTO
1660 LET A_KTONR$ := ""
1670 REPEAT
1680 REPEAT
1690 EDIT "<C1710>1. Kontonr : " : A_KTONR$
1700 UNTIL NOT A_KTONR$ IN " "
1710 EXEC SL_FEJLLINIE
1720 LET IDXPOS := FIND_KTO(A_KTONR$)
1730 IF NOT OK THEN EXEC FEJL("Konto findes ikke")
1740 IF OK THEN EXEC LÆS_KONTO(RECNR)
1750 IF TO_TYPE$ >< "A" AND OK THEN
1760 EXEC FEJL("Ulovlig kontonr - kontotype < > 'A'")
1770 ENDIF
1780 IF TO_FP > 0 AND OK THEN
1790 EXEC FEJL("Der er påbegyndt bogføring på kontoen")
1800 ENDIF
1810 UNTIL OK
1820 PRINT "<C1711>2. Kontonavn: " ; KTO_NAVN$ ; SPC$(1 : 40 - ╱cb╱ (KTO_NAVN$))
1830 PRINT "<C1712>3. Kontotype: " ; KTO_TYPE$
1840 ENDPROC FIND_KONTO
1850
1860 PROC SKRIV_KONTOOPL
1870 IF OPRET THEN EXEC FIND_IDXPLADS
1880 LET KTO_TYPE$ := A_KTO_TYPE$
1890 EXEC SKRIV_KONTO(RECNR)
1900 ENDPROC SKRIV_KONTOOPL
1910
1920
1930 PROC LÆS_KONTO(P)
1940 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
1950 ENDPROC LÆS_KONTO
1960
1970 PROC SKRIV_KONTO(P)
1980 PUT KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
1990 ENDPROC SKRIV_KONTO
2000
2010 PROC ST_BGST( REF RST$)
2020 FOR J := 1 TO (RST$) DO
2030 IF "a" =< RST$(J) AND RST$(J) =< "å" THEN LET RST$(J) := CHR$ ( ╱cc╱ (RST$(J)) - 32)
2040 NEXT J
2050 ENDPROC ST_BGST
2060
2070 PROC TAL_CONTROL( REF RST$)
2080 LET J := 0 ; OK := TRUE ; K := 0
2090 FOR I := 1 TO (RST$) DO
2100 IF RST$(I) IN "0123456789" THEN LET J := J + 1 ; RST$(J) := RST$(I)
2110 IF RST$(I) = "." AND K = 0 THEN LET J := J + 1 ; K := K + 1 ; RST$(J) := RST$(I)
2120 NEXT I
2130 IF = 0 THEN
2140 LET OK := FALSE
2150 ELSE
2160 LET RST$ := RST$(1 : J)
2170 ENDIF
2180 ENDPROC TAL_CONTROL
2190
2200 PROC FIND_KTO( REF R_KTONR$)
2210 LET OK := FALSE
2220 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
2230 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
2240 IF IGH > 1 THEN
2250 REPEAT
2260 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
2270 GET KTOIDX$,POS : KTONR$,RECNR
2280 IF TONR$ > R_KTONR$ THEN
2290 LET HIGH := POS
2300 ELSE
2310 IF TONR$ < R_KTONR$ THEN
2320 LET LOW := POS
2330 ENDIF
2340 ENDIF
2350 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
2360 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
2370 GET KTOIDX$,POS : KTONR$,RECNR
2380 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
2390 ENDIF
2400 LET FIND_KTO := POS
2410 ENDPROC FIND_KTO
0x0000…0038 (0,) 9626 0100 // **************************************************
0x0000…0038 LineComal80 {
0x0000…0038 ptr = 0x9626 // 0x0 @0x0
0x0000…0038 lno = 0x0064 // 0x2 @0x2
0x0000…0038 at0004 = ╱89╱ // ╱ // 0x4 @0x4
0x0000…0038 at0005 = ╱2a╱*╱ // 0x5 @0x5
0x0000…0038 at0006 = ╱2a╱*╱ // 0x6 @0x6
0x0000…0038 at0007 = ╱2a╱*╱ // 0x7 @0x7
0x0000…0038 at0008 = ╱2a╱*╱ // 0x8 @0x8
0x0000…0038 at0009 = ╱2a╱*╱ // 0x9 @0x9
0x0000…0038 at000a = ╱2a╱*╱ // 0xa @0xa
0x0000…0038 at000b = ╱2a╱*╱ // 0xb @0xb
0x0000…0038 at000c = ╱2a╱*╱ // 0xc @0xc
0x0000…0038 at000d = ╱2a╱*╱ // 0xd @0xd
0x0000…0038 at000e = ╱2a╱*╱ // 0xe @0xe
0x0000…0038 at000f = ╱2a╱*╱ // 0xf @0xf
0x0000…0038 at0010 = ╱2a╱*╱ // 0x10 @0x10
0x0000…0038 at0011 = ╱2a╱*╱ // 0x11 @0x11
0x0000…0038 at0012 = ╱2a╱*╱ // 0x12 @0x12
0x0000…0038 at0013 = ╱2a╱*╱ // 0x13 @0x13
0x0000…0038 at0014 = ╱2a╱*╱ // 0x14 @0x14
0x0000…0038 at0015 = ╱2a╱*╱ // 0x15 @0x15
0x0000…0038 at0016 = ╱2a╱*╱ // 0x16 @0x16
0x0000…0038 at0017 = ╱2a╱*╱ // 0x17 @0x17
0x0000…0038 at0018 = ╱2a╱*╱ // 0x18 @0x18
0x0000…0038 at0019 = ╱2a╱*╱ // 0x19 @0x19
0x0000…0038 at001a = ╱2a╱*╱ // 0x1a @0x1a
0x0000…0038 at001b = ╱2a╱*╱ // 0x1b @0x1b
0x0000…0038 at001c = ╱2a╱*╱ // 0x1c @0x1c
0x0000…0038 at001d = ╱2a╱*╱ // 0x1d @0x1d
0x0000…0038 at001e = ╱2a╱*╱ // 0x1e @0x1e
0x0000…0038 at001f = ╱2a╱*╱ // 0x1f @0x1f
0x0000…0038 at0020 = ╱2a╱*╱ // 0x20 @0x20
0x0000…0038 at0021 = ╱2a╱*╱ // 0x21 @0x21
0x0000…0038 at0022 = ╱2a╱*╱ // 0x22 @0x22
0x0000…0038 at0023 = ╱2a╱*╱ // 0x23 @0x23
0x0000…0038 at0024 = ╱2a╱*╱ // 0x24 @0x24
0x0000…0038 at0025 = ╱2a╱*╱ // 0x25 @0x25
0x0000…0038 at0026 = ╱2a╱*╱ // 0x26 @0x26
0x0000…0038 at0027 = ╱2a╱*╱ // 0x27 @0x27
0x0000…0038 at0028 = ╱2a╱*╱ // 0x28 @0x28
0x0000…0038 at0029 = ╱2a╱*╱ // 0x29 @0x29
0x0000…0038 at002a = ╱2a╱*╱ // 0x2a @0x2a
0x0000…0038 at002b = ╱2a╱*╱ // 0x2b @0x2b
0x0000…0038 at002c = ╱2a╱*╱ // 0x2c @0x2c
0x0000…0038 at002d = ╱2a╱*╱ // 0x2d @0x2d
0x0000…0038 at002e = ╱2a╱*╱ // 0x2e @0x2e
0x0000…0038 at002f = ╱2a╱*╱ // 0x2f @0x2f
0x0000…0038 at0030 = ╱2a╱*╱ // 0x30 @0x30
0x0000…0038 at0031 = ╱2a╱*╱ // 0x31 @0x31
0x0000…0038 at0032 = ╱2a╱*╱ // 0x32 @0x32
0x0000…0038 at0033 = ╱2a╱*╱ // 0x33 @0x33
0x0000…0038 at0034 = ╱2a╱*╱ // 0x34 @0x34
0x0000…0038 at0035 = ╱2a╱*╱ // 0x35 @0x35
0x0000…0038 at0036 = ╱2a╱*╱ // 0x36 @0x36
0x0000…0038 at0037 = EOL // 0x37 @0x37
0x0000…0038 }
0x0038…0070 965e 0110 // * *
0x0038…0070 LineComal80 {
0x0038…0070 ptr = 0x965e // 0x38 @0x0
0x0038…0070 lno = 0x006e // 0x3a @0x2
0x0038…0070 at0004 = ╱89╱ // ╱ // 0x3c @0x4
0x0038…0070 at0005 = ╱2a╱*╱ // 0x3d @0x5
0x0038…0070 at0006 = ╱20╱…╱ // 0x3e @0x6
0x0038…0070 at0007 = ╱20╱…╱ // 0x3f @0x7
0x0038…0070 at0008 = ╱20╱…╱ // 0x40 @0x8
0x0038…0070 at0009 = ╱20╱…╱ // 0x41 @0x9
0x0038…0070 at000a = ╱20╱…╱ // 0x42 @0xa
0x0038…0070 at000b = ╱20╱…╱ // 0x43 @0xb
0x0038…0070 at000c = ╱20╱…╱ // 0x44 @0xc
0x0038…0070 at000d = ╱20╱…╱ // 0x45 @0xd
0x0038…0070 at000e = ╱20╱…╱ // 0x46 @0xe
0x0038…0070 at000f = ╱20╱…╱ // 0x47 @0xf
0x0038…0070 at0010 = ╱20╱…╱ // 0x48 @0x10
0x0038…0070 at0011 = ╱20╱…╱ // 0x49 @0x11
0x0038…0070 at0012 = ╱20╱…╱ // 0x4a @0x12
0x0038…0070 at0013 = ╱20╱…╱ // 0x4b @0x13
0x0038…0070 at0014 = ╱20╱…╱ // 0x4c @0x14
0x0038…0070 at0015 = ╱20╱…╱ // 0x4d @0x15
0x0038…0070 at0016 = ╱20╱…╱ // 0x4e @0x16
0x0038…0070 at0017 = ╱20╱…╱ // 0x4f @0x17
0x0038…0070 at0018 = ╱20╱…╱ // 0x50 @0x18
0x0038…0070 at0019 = ╱20╱…╱ // 0x51 @0x19
0x0038…0070 at001a = ╱20╱…╱ // 0x52 @0x1a
0x0038…0070 at001b = ╱20╱…╱ // 0x53 @0x1b
0x0038…0070 at001c = ╱20╱…╱ // 0x54 @0x1c
0x0038…0070 at001d = ╱20╱…╱ // 0x55 @0x1d
0x0038…0070 at001e = ╱20╱…╱ // 0x56 @0x1e
0x0038…0070 at001f = ╱20╱…╱ // 0x57 @0x1f
0x0038…0070 at0020 = ╱20╱…╱ // 0x58 @0x20
0x0038…0070 at0021 = ╱20╱…╱ // 0x59 @0x21
0x0038…0070 at0022 = ╱20╱…╱ // 0x5a @0x22
0x0038…0070 at0023 = ╱20╱…╱ // 0x5b @0x23
0x0038…0070 at0024 = ╱20╱…╱ // 0x5c @0x24
0x0038…0070 at0025 = ╱20╱…╱ // 0x5d @0x25
0x0038…0070 at0026 = ╱20╱…╱ // 0x5e @0x26
0x0038…0070 at0027 = ╱20╱…╱ // 0x5f @0x27
0x0038…0070 at0028 = ╱20╱…╱ // 0x60 @0x28
0x0038…0070 at0029 = ╱20╱…╱ // 0x61 @0x29
0x0038…0070 at002a = ╱20╱…╱ // 0x62 @0x2a
0x0038…0070 at002b = ╱20╱…╱ // 0x63 @0x2b
0x0038…0070 at002c = ╱20╱…╱ // 0x64 @0x2c
0x0038…0070 at002d = ╱20╱…╱ // 0x65 @0x2d
0x0038…0070 at002e = ╱20╱…╱ // 0x66 @0x2e
0x0038…0070 at002f = ╱20╱…╱ // 0x67 @0x2f
0x0038…0070 at0030 = ╱20╱…╱ // 0x68 @0x30
0x0038…0070 at0031 = ╱20╱…╱ // 0x69 @0x31
0x0038…0070 at0032 = ╱20╱…╱ // 0x6a @0x32
0x0038…0070 at0033 = ╱20╱…╱ // 0x6b @0x33
0x0038…0070 at0034 = ╱20╱…╱ // 0x6c @0x34
0x0038…0070 at0035 = ╱20╱…╱ // 0x6d @0x35
0x0038…0070 at0036 = ╱2a╱*╱ // 0x6e @0x36
0x0038…0070 at0037 = EOL // 0x6f @0x37
0x0038…0070 }
0x0070…00a8 9696 0120 // * Bogføringssystemet 'SYS-KAS' *
0x0070…00a8 LineComal80 {
0x0070…00a8 ptr = 0x9696 // 0x70 @0x0
0x0070…00a8 lno = 0x0078 // 0x72 @0x2
0x0070…00a8 at0004 = ╱89╱ // ╱ // 0x74 @0x4
0x0070…00a8 at0005 = ╱2a╱*╱ // 0x75 @0x5
0x0070…00a8 at0006 = ╱20╱…╱ // 0x76 @0x6
0x0070…00a8 at0007 = ╱20╱…╱ // 0x77 @0x7
0x0070…00a8 at0008 = ╱20╱…╱ // 0x78 @0x8
0x0070…00a8 at0009 = ╱20╱…╱ // 0x79 @0x9
0x0070…00a8 at000a = ╱20╱…╱ // 0x7a @0xa
0x0070…00a8 at000b = ╱20╱…╱ // 0x7b @0xb
0x0070…00a8 at000c = ╱20╱…╱ // 0x7c @0xc
0x0070…00a8 at000d = ╱20╱…╱ // 0x7d @0xd
0x0070…00a8 at000e = ╱20╱…╱ // 0x7e @0xe
0x0070…00a8 at000f = ╱20╱…╱ // 0x7f @0xf
0x0070…00a8 at0010 = ╱42╱B╱ // 0x80 @0x10
0x0070…00a8 at0011 = ╱6f╱o╱ // 0x81 @0x11
0x0070…00a8 at0012 = ╱67╱g╱ // 0x82 @0x12
0x0070…00a8 at0013 = ╱66╱f╱ // 0x83 @0x13
0x0070…00a8 at0014 = ╱7c╱ø╱ // 0x84 @0x14
0x0070…00a8 at0015 = ╱72╱r╱ // 0x85 @0x15
0x0070…00a8 at0016 = ╱69╱i╱ // 0x86 @0x16
0x0070…00a8 at0017 = ╱6e╱n╱ // 0x87 @0x17
0x0070…00a8 at0018 = ╱67╱g╱ // 0x88 @0x18
0x0070…00a8 at0019 = ╱73╱s╱ // 0x89 @0x19
0x0070…00a8 at001a = ╱73╱s╱ // 0x8a @0x1a
0x0070…00a8 at001b = ╱79╱y╱ // 0x8b @0x1b
0x0070…00a8 at001c = ╱73╱s╱ // 0x8c @0x1c
0x0070…00a8 at001d = ╱74╱t╱ // 0x8d @0x1d
0x0070…00a8 at001e = ╱65╱e╱ // 0x8e @0x1e
0x0070…00a8 at001f = ╱6d╱m╱ // 0x8f @0x1f
0x0070…00a8 at0020 = ╱65╱e╱ // 0x90 @0x20
0x0070…00a8 at0021 = ╱74╱t╱ // 0x91 @0x21
0x0070…00a8 at0022 = ╱20╱…╱ // 0x92 @0x22
0x0070…00a8 at0023 = ╱27╱'╱ // 0x93 @0x23
0x0070…00a8 at0024 = ╱53╱S╱ // 0x94 @0x24
0x0070…00a8 at0025 = ╱59╱Y╱ // 0x95 @0x25
0x0070…00a8 at0026 = ╱53╱S╱ // 0x96 @0x26
0x0070…00a8 at0027 = ╱2d╱-╱ // 0x97 @0x27
0x0070…00a8 at0028 = ╱4b╱K╱ // 0x98 @0x28
0x0070…00a8 at0029 = ╱41╱A╱ // 0x99 @0x29
0x0070…00a8 at002a = ╱53╱S╱ // 0x9a @0x2a
0x0070…00a8 at002b = ╱27╱'╱ // 0x9b @0x2b
0x0070…00a8 at002c = ╱20╱…╱ // 0x9c @0x2c
0x0070…00a8 at002d = ╱20╱…╱ // 0x9d @0x2d
0x0070…00a8 at002e = ╱20╱…╱ // 0x9e @0x2e
0x0070…00a8 at002f = ╱20╱…╱ // 0x9f @0x2f
0x0070…00a8 at0030 = ╱20╱…╱ // 0xa0 @0x30
0x0070…00a8 at0031 = ╱20╱…╱ // 0xa1 @0x31
0x0070…00a8 at0032 = ╱20╱…╱ // 0xa2 @0x32
0x0070…00a8 at0033 = ╱20╱…╱ // 0xa3 @0x33
0x0070…00a8 at0034 = ╱20╱…╱ // 0xa4 @0x34
0x0070…00a8 at0035 = ╱20╱…╱ // 0xa5 @0x35
0x0070…00a8 at0036 = ╱2a╱*╱ // 0xa6 @0x36
0x0070…00a8 at0037 = EOL // 0xa7 @0x37
0x0070…00a8 }
0x00a8…00e0 96ce 0130 // * vers. 1.0 *
0x00a8…00e0 LineComal80 {
0x00a8…00e0 ptr = 0x96ce // 0xa8 @0x0
0x00a8…00e0 lno = 0x0082 // 0xaa @0x2
0x00a8…00e0 at0004 = ╱89╱ // ╱ // 0xac @0x4
0x00a8…00e0 at0005 = ╱2a╱*╱ // 0xad @0x5
0x00a8…00e0 at0006 = ╱20╱…╱ // 0xae @0x6
0x00a8…00e0 at0007 = ╱20╱…╱ // 0xaf @0x7
0x00a8…00e0 at0008 = ╱20╱…╱ // 0xb0 @0x8
0x00a8…00e0 at0009 = ╱20╱…╱ // 0xb1 @0x9
0x00a8…00e0 at000a = ╱20╱…╱ // 0xb2 @0xa
0x00a8…00e0 at000b = ╱20╱…╱ // 0xb3 @0xb
0x00a8…00e0 at000c = ╱20╱…╱ // 0xb4 @0xc
0x00a8…00e0 at000d = ╱20╱…╱ // 0xb5 @0xd
0x00a8…00e0 at000e = ╱20╱…╱ // 0xb6 @0xe
0x00a8…00e0 at000f = ╱20╱…╱ // 0xb7 @0xf
0x00a8…00e0 at0010 = ╱20╱…╱ // 0xb8 @0x10
0x00a8…00e0 at0011 = ╱20╱…╱ // 0xb9 @0x11
0x00a8…00e0 at0012 = ╱20╱…╱ // 0xba @0x12
0x00a8…00e0 at0013 = ╱20╱…╱ // 0xbb @0x13
0x00a8…00e0 at0014 = ╱20╱…╱ // 0xbc @0x14
0x00a8…00e0 at0015 = ╱20╱…╱ // 0xbd @0x15
0x00a8…00e0 at0016 = ╱20╱…╱ // 0xbe @0x16
0x00a8…00e0 at0017 = ╱20╱…╱ // 0xbf @0x17
0x00a8…00e0 at0018 = ╱76╱v╱ // 0xc0 @0x18
0x00a8…00e0 at0019 = ╱65╱e╱ // 0xc1 @0x19
0x00a8…00e0 at001a = ╱72╱r╱ // 0xc2 @0x1a
0x00a8…00e0 at001b = ╱73╱s╱ // 0xc3 @0x1b
0x00a8…00e0 at001c = ╱2e╱.╱ // 0xc4 @0x1c
0x00a8…00e0 at001d = ╱20╱…╱ // 0xc5 @0x1d
0x00a8…00e0 at001e = ╱31╱1╱ // 0xc6 @0x1e
0x00a8…00e0 at001f = ╱2e╱.╱ // 0xc7 @0x1f
0x00a8…00e0 at0020 = ╱30╱0╱ // 0xc8 @0x20
0x00a8…00e0 at0021 = ╱20╱…╱ // 0xc9 @0x21
0x00a8…00e0 at0022 = ╱20╱…╱ // 0xca @0x22
0x00a8…00e0 at0023 = ╱20╱…╱ // 0xcb @0x23
0x00a8…00e0 at0024 = ╱20╱…╱ // 0xcc @0x24
0x00a8…00e0 at0025 = ╱20╱…╱ // 0xcd @0x25
0x00a8…00e0 at0026 = ╱20╱…╱ // 0xce @0x26
0x00a8…00e0 at0027 = ╱20╱…╱ // 0xcf @0x27
0x00a8…00e0 at0028 = ╱20╱…╱ // 0xd0 @0x28
0x00a8…00e0 at0029 = ╱20╱…╱ // 0xd1 @0x29
0x00a8…00e0 at002a = ╱20╱…╱ // 0xd2 @0x2a
0x00a8…00e0 at002b = ╱20╱…╱ // 0xd3 @0x2b
0x00a8…00e0 at002c = ╱20╱…╱ // 0xd4 @0x2c
0x00a8…00e0 at002d = ╱20╱…╱ // 0xd5 @0x2d
0x00a8…00e0 at002e = ╱20╱…╱ // 0xd6 @0x2e
0x00a8…00e0 at002f = ╱20╱…╱ // 0xd7 @0x2f
0x00a8…00e0 at0030 = ╱20╱…╱ // 0xd8 @0x30
0x00a8…00e0 at0031 = ╱20╱…╱ // 0xd9 @0x31
0x00a8…00e0 at0032 = ╱20╱…╱ // 0xda @0x32
0x00a8…00e0 at0033 = ╱20╱…╱ // 0xdb @0x33
0x00a8…00e0 at0034 = ╱20╱…╱ // 0xdc @0x34
0x00a8…00e0 at0035 = ╱20╱…╱ // 0xdd @0x35
0x00a8…00e0 at0036 = ╱2a╱*╱ // 0xde @0x36
0x00a8…00e0 at0037 = EOL // 0xdf @0x37
0x00a8…00e0 }
0x00e0…0118 9706 0140 // * *
0x00e0…0118 LineComal80 {
0x00e0…0118 ptr = 0x9706 // 0xe0 @0x0
0x00e0…0118 lno = 0x008c // 0xe2 @0x2
0x00e0…0118 at0004 = ╱89╱ // ╱ // 0xe4 @0x4
0x00e0…0118 at0005 = ╱2a╱*╱ // 0xe5 @0x5
0x00e0…0118 at0006 = ╱20╱…╱ // 0xe6 @0x6
0x00e0…0118 at0007 = ╱20╱…╱ // 0xe7 @0x7
0x00e0…0118 at0008 = ╱20╱…╱ // 0xe8 @0x8
0x00e0…0118 at0009 = ╱20╱…╱ // 0xe9 @0x9
0x00e0…0118 at000a = ╱20╱…╱ // 0xea @0xa
0x00e0…0118 at000b = ╱20╱…╱ // 0xeb @0xb
0x00e0…0118 at000c = ╱20╱…╱ // 0xec @0xc
0x00e0…0118 at000d = ╱20╱…╱ // 0xed @0xd
0x00e0…0118 at000e = ╱20╱…╱ // 0xee @0xe
0x00e0…0118 at000f = ╱20╱…╱ // 0xef @0xf
0x00e0…0118 at0010 = ╱20╱…╱ // 0xf0 @0x10
0x00e0…0118 at0011 = ╱20╱…╱ // 0xf1 @0x11
0x00e0…0118 at0012 = ╱20╱…╱ // 0xf2 @0x12
0x00e0…0118 at0013 = ╱20╱…╱ // 0xf3 @0x13
0x00e0…0118 at0014 = ╱20╱…╱ // 0xf4 @0x14
0x00e0…0118 at0015 = ╱20╱…╱ // 0xf5 @0x15
0x00e0…0118 at0016 = ╱20╱…╱ // 0xf6 @0x16
0x00e0…0118 at0017 = ╱20╱…╱ // 0xf7 @0x17
0x00e0…0118 at0018 = ╱20╱…╱ // 0xf8 @0x18
0x00e0…0118 at0019 = ╱20╱…╱ // 0xf9 @0x19
0x00e0…0118 at001a = ╱20╱…╱ // 0xfa @0x1a
0x00e0…0118 at001b = ╱20╱…╱ // 0xfb @0x1b
0x00e0…0118 at001c = ╱20╱…╱ // 0xfc @0x1c
0x00e0…0118 at001d = ╱20╱…╱ // 0xfd @0x1d
0x00e0…0118 at001e = ╱20╱…╱ // 0xfe @0x1e
0x00e0…0118 at001f = ╱20╱…╱ // 0xff @0x1f
0x00e0…0118 at0020 = ╱20╱…╱ // 0x100 @0x20
0x00e0…0118 at0021 = ╱20╱…╱ // 0x101 @0x21
0x00e0…0118 at0022 = ╱20╱…╱ // 0x102 @0x22
0x00e0…0118 at0023 = ╱20╱…╱ // 0x103 @0x23
0x00e0…0118 at0024 = ╱20╱…╱ // 0x104 @0x24
0x00e0…0118 at0025 = ╱20╱…╱ // 0x105 @0x25
0x00e0…0118 at0026 = ╱20╱…╱ // 0x106 @0x26
0x00e0…0118 at0027 = ╱20╱…╱ // 0x107 @0x27
0x00e0…0118 at0028 = ╱20╱…╱ // 0x108 @0x28
0x00e0…0118 at0029 = ╱20╱…╱ // 0x109 @0x29
0x00e0…0118 at002a = ╱20╱…╱ // 0x10a @0x2a
0x00e0…0118 at002b = ╱20╱…╱ // 0x10b @0x2b
0x00e0…0118 at002c = ╱20╱…╱ // 0x10c @0x2c
0x00e0…0118 at002d = ╱20╱…╱ // 0x10d @0x2d
0x00e0…0118 at002e = ╱20╱…╱ // 0x10e @0x2e
0x00e0…0118 at002f = ╱20╱…╱ // 0x10f @0x2f
0x00e0…0118 at0030 = ╱20╱…╱ // 0x110 @0x30
0x00e0…0118 at0031 = ╱20╱…╱ // 0x111 @0x31
0x00e0…0118 at0032 = ╱20╱…╱ // 0x112 @0x32
0x00e0…0118 at0033 = ╱20╱…╱ // 0x113 @0x33
0x00e0…0118 at0034 = ╱20╱…╱ // 0x114 @0x34
0x00e0…0118 at0035 = ╱20╱…╱ // 0x115 @0x35
0x00e0…0118 at0036 = ╱2a╱*╱ // 0x116 @0x36
0x00e0…0118 at0037 = EOL // 0x117 @0x37
0x00e0…0118 }
0x0118…0150 973e 0150 // * Udviklet marts 1983 på en 'SPC/1' mikrodatamat *
0x0118…0150 LineComal80 {
0x0118…0150 ptr = 0x973e // 0x118 @0x0
0x0118…0150 lno = 0x0096 // 0x11a @0x2
0x0118…0150 at0004 = ╱89╱ // ╱ // 0x11c @0x4
0x0118…0150 at0005 = ╱2a╱*╱ // 0x11d @0x5
0x0118…0150 at0006 = ╱20╱…╱ // 0x11e @0x6
0x0118…0150 at0007 = ╱55╱U╱ // 0x11f @0x7
0x0118…0150 at0008 = ╱64╱d╱ // 0x120 @0x8
0x0118…0150 at0009 = ╱76╱v╱ // 0x121 @0x9
0x0118…0150 at000a = ╱69╱i╱ // 0x122 @0xa
0x0118…0150 at000b = ╱6b╱k╱ // 0x123 @0xb
0x0118…0150 at000c = ╱6c╱l╱ // 0x124 @0xc
0x0118…0150 at000d = ╱65╱e╱ // 0x125 @0xd
0x0118…0150 at000e = ╱74╱t╱ // 0x126 @0xe
0x0118…0150 at000f = ╱20╱…╱ // 0x127 @0xf
0x0118…0150 at0010 = ╱6d╱m╱ // 0x128 @0x10
0x0118…0150 at0011 = ╱61╱a╱ // 0x129 @0x11
0x0118…0150 at0012 = ╱72╱r╱ // 0x12a @0x12
0x0118…0150 at0013 = ╱74╱t╱ // 0x12b @0x13
0x0118…0150 at0014 = ╱73╱s╱ // 0x12c @0x14
0x0118…0150 at0015 = ╱20╱…╱ // 0x12d @0x15
0x0118…0150 at0016 = ╱31╱1╱ // 0x12e @0x16
0x0118…0150 at0017 = ╱39╱9╱ // 0x12f @0x17
0x0118…0150 at0018 = ╱38╱8╱ // 0x130 @0x18
0x0118…0150 at0019 = ╱33╱3╱ // 0x131 @0x19
0x0118…0150 at001a = ╱20╱…╱ // 0x132 @0x1a
0x0118…0150 at001b = ╱70╱p╱ // 0x133 @0x1b
0x0118…0150 at001c = ╱7d╱å╱ // 0x134 @0x1c
0x0118…0150 at001d = ╱20╱…╱ // 0x135 @0x1d
0x0118…0150 at001e = ╱65╱e╱ // 0x136 @0x1e
0x0118…0150 at001f = ╱6e╱n╱ // 0x137 @0x1f
0x0118…0150 at0020 = ╱20╱…╱ // 0x138 @0x20
0x0118…0150 at0021 = ╱27╱'╱ // 0x139 @0x21
0x0118…0150 at0022 = ╱53╱S╱ // 0x13a @0x22
0x0118…0150 at0023 = ╱50╱P╱ // 0x13b @0x23
0x0118…0150 at0024 = ╱43╱C╱ // 0x13c @0x24
0x0118…0150 at0025 = ╱2f╱/╱ // 0x13d @0x25
0x0118…0150 at0026 = ╱31╱1╱ // 0x13e @0x26
0x0118…0150 at0027 = ╱27╱'╱ // 0x13f @0x27
0x0118…0150 at0028 = ╱20╱…╱ // 0x140 @0x28
0x0118…0150 at0029 = ╱6d╱m╱ // 0x141 @0x29
0x0118…0150 at002a = ╱69╱i╱ // 0x142 @0x2a
0x0118…0150 at002b = ╱6b╱k╱ // 0x143 @0x2b
0x0118…0150 at002c = ╱72╱r╱ // 0x144 @0x2c
0x0118…0150 at002d = ╱6f╱o╱ // 0x145 @0x2d
0x0118…0150 at002e = ╱64╱d╱ // 0x146 @0x2e
0x0118…0150 at002f = ╱61╱a╱ // 0x147 @0x2f
0x0118…0150 at0030 = ╱74╱t╱ // 0x148 @0x30
0x0118…0150 at0031 = ╱61╱a╱ // 0x149 @0x31
0x0118…0150 at0032 = ╱6d╱m╱ // 0x14a @0x32
0x0118…0150 at0033 = ╱61╱a╱ // 0x14b @0x33
0x0118…0150 at0034 = ╱74╱t╱ // 0x14c @0x34
0x0118…0150 at0035 = ╱20╱…╱ // 0x14d @0x35
0x0118…0150 at0036 = ╱2a╱*╱ // 0x14e @0x36
0x0118…0150 at0037 = EOL // 0x14f @0x37
0x0118…0150 }
0x0150…0188 9776 0160 // * Programsystemet er skrevet i COMAL80 vers. 1.2 *
0x0150…0188 LineComal80 {
0x0150…0188 ptr = 0x9776 // 0x150 @0x0
0x0150…0188 lno = 0x00a0 // 0x152 @0x2
0x0150…0188 at0004 = ╱89╱ // ╱ // 0x154 @0x4
0x0150…0188 at0005 = ╱2a╱*╱ // 0x155 @0x5
0x0150…0188 at0006 = ╱20╱…╱ // 0x156 @0x6
0x0150…0188 at0007 = ╱50╱P╱ // 0x157 @0x7
0x0150…0188 at0008 = ╱72╱r╱ // 0x158 @0x8
0x0150…0188 at0009 = ╱6f╱o╱ // 0x159 @0x9
0x0150…0188 at000a = ╱67╱g╱ // 0x15a @0xa
0x0150…0188 at000b = ╱72╱r╱ // 0x15b @0xb
0x0150…0188 at000c = ╱61╱a╱ // 0x15c @0xc
0x0150…0188 at000d = ╱6d╱m╱ // 0x15d @0xd
0x0150…0188 at000e = ╱73╱s╱ // 0x15e @0xe
0x0150…0188 at000f = ╱79╱y╱ // 0x15f @0xf
0x0150…0188 at0010 = ╱73╱s╱ // 0x160 @0x10
0x0150…0188 at0011 = ╱74╱t╱ // 0x161 @0x11
0x0150…0188 at0012 = ╱65╱e╱ // 0x162 @0x12
0x0150…0188 at0013 = ╱6d╱m╱ // 0x163 @0x13
0x0150…0188 at0014 = ╱65╱e╱ // 0x164 @0x14
0x0150…0188 at0015 = ╱74╱t╱ // 0x165 @0x15
0x0150…0188 at0016 = ╱20╱…╱ // 0x166 @0x16
0x0150…0188 at0017 = ╱65╱e╱ // 0x167 @0x17
0x0150…0188 at0018 = ╱72╱r╱ // 0x168 @0x18
0x0150…0188 at0019 = ╱20╱…╱ // 0x169 @0x19
0x0150…0188 at001a = ╱73╱s╱ // 0x16a @0x1a
0x0150…0188 at001b = ╱6b╱k╱ // 0x16b @0x1b
0x0150…0188 at001c = ╱72╱r╱ // 0x16c @0x1c
0x0150…0188 at001d = ╱65╱e╱ // 0x16d @0x1d
0x0150…0188 at001e = ╱76╱v╱ // 0x16e @0x1e
0x0150…0188 at001f = ╱65╱e╱ // 0x16f @0x1f
0x0150…0188 at0020 = ╱74╱t╱ // 0x170 @0x20
0x0150…0188 at0021 = ╱20╱…╱ // 0x171 @0x21
0x0150…0188 at0022 = ╱69╱i╱ // 0x172 @0x22
0x0150…0188 at0023 = ╱20╱…╱ // 0x173 @0x23
0x0150…0188 at0024 = ╱43╱C╱ // 0x174 @0x24
0x0150…0188 at0025 = ╱4f╱O╱ // 0x175 @0x25
0x0150…0188 at0026 = ╱4d╱M╱ // 0x176 @0x26
0x0150…0188 at0027 = ╱41╱A╱ // 0x177 @0x27
0x0150…0188 at0028 = ╱4c╱L╱ // 0x178 @0x28
0x0150…0188 at0029 = ╱38╱8╱ // 0x179 @0x29
0x0150…0188 at002a = ╱30╱0╱ // 0x17a @0x2a
0x0150…0188 at002b = ╱20╱…╱ // 0x17b @0x2b
0x0150…0188 at002c = ╱76╱v╱ // 0x17c @0x2c
0x0150…0188 at002d = ╱65╱e╱ // 0x17d @0x2d
0x0150…0188 at002e = ╱72╱r╱ // 0x17e @0x2e
0x0150…0188 at002f = ╱73╱s╱ // 0x17f @0x2f
0x0150…0188 at0030 = ╱2e╱.╱ // 0x180 @0x30
0x0150…0188 at0031 = ╱20╱…╱ // 0x181 @0x31
0x0150…0188 at0032 = ╱31╱1╱ // 0x182 @0x32
0x0150…0188 at0033 = ╱2e╱.╱ // 0x183 @0x33
0x0150…0188 at0034 = ╱32╱2╱ // 0x184 @0x34
0x0150…0188 at0035 = ╱20╱…╱ // 0x185 @0x35
0x0150…0188 at0036 = ╱2a╱*╱ // 0x186 @0x36
0x0150…0188 at0037 = EOL // 0x187 @0x37
0x0150…0188 }
0x0188…01c0 97ae 0170 // * *
0x0188…01c0 LineComal80 {
0x0188…01c0 ptr = 0x97ae // 0x188 @0x0
0x0188…01c0 lno = 0x00aa // 0x18a @0x2
0x0188…01c0 at0004 = ╱89╱ // ╱ // 0x18c @0x4
0x0188…01c0 at0005 = ╱2a╱*╱ // 0x18d @0x5
0x0188…01c0 at0006 = ╱20╱…╱ // 0x18e @0x6
0x0188…01c0 at0007 = ╱20╱…╱ // 0x18f @0x7
0x0188…01c0 at0008 = ╱20╱…╱ // 0x190 @0x8
0x0188…01c0 at0009 = ╱20╱…╱ // 0x191 @0x9
0x0188…01c0 at000a = ╱20╱…╱ // 0x192 @0xa
0x0188…01c0 at000b = ╱20╱…╱ // 0x193 @0xb
0x0188…01c0 at000c = ╱20╱…╱ // 0x194 @0xc
0x0188…01c0 at000d = ╱20╱…╱ // 0x195 @0xd
0x0188…01c0 at000e = ╱20╱…╱ // 0x196 @0xe
0x0188…01c0 at000f = ╱20╱…╱ // 0x197 @0xf
0x0188…01c0 at0010 = ╱20╱…╱ // 0x198 @0x10
0x0188…01c0 at0011 = ╱20╱…╱ // 0x199 @0x11
0x0188…01c0 at0012 = ╱20╱…╱ // 0x19a @0x12
0x0188…01c0 at0013 = ╱20╱…╱ // 0x19b @0x13
0x0188…01c0 at0014 = ╱20╱…╱ // 0x19c @0x14
0x0188…01c0 at0015 = ╱20╱…╱ // 0x19d @0x15
0x0188…01c0 at0016 = ╱20╱…╱ // 0x19e @0x16
0x0188…01c0 at0017 = ╱20╱…╱ // 0x19f @0x17
0x0188…01c0 at0018 = ╱20╱…╱ // 0x1a0 @0x18
0x0188…01c0 at0019 = ╱20╱…╱ // 0x1a1 @0x19
0x0188…01c0 at001a = ╱20╱…╱ // 0x1a2 @0x1a
0x0188…01c0 at001b = ╱20╱…╱ // 0x1a3 @0x1b
0x0188…01c0 at001c = ╱20╱…╱ // 0x1a4 @0x1c
0x0188…01c0 at001d = ╱20╱…╱ // 0x1a5 @0x1d
0x0188…01c0 at001e = ╱20╱…╱ // 0x1a6 @0x1e
0x0188…01c0 at001f = ╱20╱…╱ // 0x1a7 @0x1f
0x0188…01c0 at0020 = ╱20╱…╱ // 0x1a8 @0x20
0x0188…01c0 at0021 = ╱20╱…╱ // 0x1a9 @0x21
0x0188…01c0 at0022 = ╱20╱…╱ // 0x1aa @0x22
0x0188…01c0 at0023 = ╱20╱…╱ // 0x1ab @0x23
0x0188…01c0 at0024 = ╱20╱…╱ // 0x1ac @0x24
0x0188…01c0 at0025 = ╱20╱…╱ // 0x1ad @0x25
0x0188…01c0 at0026 = ╱20╱…╱ // 0x1ae @0x26
0x0188…01c0 at0027 = ╱20╱…╱ // 0x1af @0x27
0x0188…01c0 at0028 = ╱20╱…╱ // 0x1b0 @0x28
0x0188…01c0 at0029 = ╱20╱…╱ // 0x1b1 @0x29
0x0188…01c0 at002a = ╱20╱…╱ // 0x1b2 @0x2a
0x0188…01c0 at002b = ╱20╱…╱ // 0x1b3 @0x2b
0x0188…01c0 at002c = ╱20╱…╱ // 0x1b4 @0x2c
0x0188…01c0 at002d = ╱20╱…╱ // 0x1b5 @0x2d
0x0188…01c0 at002e = ╱20╱…╱ // 0x1b6 @0x2e
0x0188…01c0 at002f = ╱20╱…╱ // 0x1b7 @0x2f
0x0188…01c0 at0030 = ╱20╱…╱ // 0x1b8 @0x30
0x0188…01c0 at0031 = ╱20╱…╱ // 0x1b9 @0x31
0x0188…01c0 at0032 = ╱20╱…╱ // 0x1ba @0x32
0x0188…01c0 at0033 = ╱20╱…╱ // 0x1bb @0x33
0x0188…01c0 at0034 = ╱20╱…╱ // 0x1bc @0x34
0x0188…01c0 at0035 = ╱20╱…╱ // 0x1bd @0x35
0x0188…01c0 at0036 = ╱2a╱*╱ // 0x1be @0x36
0x0188…01c0 at0037 = EOL // 0x1bf @0x37
0x0188…01c0 }
0x01c0…01f8 97e6 0180 // * Udviklet af : Peter Kristensen *
0x01c0…01f8 LineComal80 {
0x01c0…01f8 ptr = 0x97e6 // 0x1c0 @0x0
0x01c0…01f8 lno = 0x00b4 // 0x1c2 @0x2
0x01c0…01f8 at0004 = ╱89╱ // ╱ // 0x1c4 @0x4
0x01c0…01f8 at0005 = ╱2a╱*╱ // 0x1c5 @0x5
0x01c0…01f8 at0006 = ╱20╱…╱ // 0x1c6 @0x6
0x01c0…01f8 at0007 = ╱55╱U╱ // 0x1c7 @0x7
0x01c0…01f8 at0008 = ╱64╱d╱ // 0x1c8 @0x8
0x01c0…01f8 at0009 = ╱76╱v╱ // 0x1c9 @0x9
0x01c0…01f8 at000a = ╱69╱i╱ // 0x1ca @0xa
0x01c0…01f8 at000b = ╱6b╱k╱ // 0x1cb @0xb
0x01c0…01f8 at000c = ╱6c╱l╱ // 0x1cc @0xc
0x01c0…01f8 at000d = ╱65╱e╱ // 0x1cd @0xd
0x01c0…01f8 at000e = ╱74╱t╱ // 0x1ce @0xe
0x01c0…01f8 at000f = ╱20╱…╱ // 0x1cf @0xf
0x01c0…01f8 at0010 = ╱61╱a╱ // 0x1d0 @0x10
0x01c0…01f8 at0011 = ╱66╱f╱ // 0x1d1 @0x11
0x01c0…01f8 at0012 = ╱20╱…╱ // 0x1d2 @0x12
0x01c0…01f8 at0013 = ╱3a╱:╱ // 0x1d3 @0x13
0x01c0…01f8 at0014 = ╱20╱…╱ // 0x1d4 @0x14
0x01c0…01f8 at0015 = ╱50╱P╱ // 0x1d5 @0x15
0x01c0…01f8 at0016 = ╱65╱e╱ // 0x1d6 @0x16
0x01c0…01f8 at0017 = ╱74╱t╱ // 0x1d7 @0x17
0x01c0…01f8 at0018 = ╱65╱e╱ // 0x1d8 @0x18
0x01c0…01f8 at0019 = ╱72╱r╱ // 0x1d9 @0x19
0x01c0…01f8 at001a = ╱20╱…╱ // 0x1da @0x1a
0x01c0…01f8 at001b = ╱4b╱K╱ // 0x1db @0x1b
0x01c0…01f8 at001c = ╱72╱r╱ // 0x1dc @0x1c
0x01c0…01f8 at001d = ╱69╱i╱ // 0x1dd @0x1d
0x01c0…01f8 at001e = ╱73╱s╱ // 0x1de @0x1e
0x01c0…01f8 at001f = ╱74╱t╱ // 0x1df @0x1f
0x01c0…01f8 at0020 = ╱65╱e╱ // 0x1e0 @0x20
0x01c0…01f8 at0021 = ╱6e╱n╱ // 0x1e1 @0x21
0x01c0…01f8 at0022 = ╱73╱s╱ // 0x1e2 @0x22
0x01c0…01f8 at0023 = ╱65╱e╱ // 0x1e3 @0x23
0x01c0…01f8 at0024 = ╱6e╱n╱ // 0x1e4 @0x24
0x01c0…01f8 at0025 = ╱20╱…╱ // 0x1e5 @0x25
0x01c0…01f8 at0026 = ╱20╱…╱ // 0x1e6 @0x26
0x01c0…01f8 at0027 = ╱20╱…╱ // 0x1e7 @0x27
0x01c0…01f8 at0028 = ╱20╱…╱ // 0x1e8 @0x28
0x01c0…01f8 at0029 = ╱20╱…╱ // 0x1e9 @0x29
0x01c0…01f8 at002a = ╱20╱…╱ // 0x1ea @0x2a
0x01c0…01f8 at002b = ╱20╱…╱ // 0x1eb @0x2b
0x01c0…01f8 at002c = ╱20╱…╱ // 0x1ec @0x2c
0x01c0…01f8 at002d = ╱20╱…╱ // 0x1ed @0x2d
0x01c0…01f8 at002e = ╱20╱…╱ // 0x1ee @0x2e
0x01c0…01f8 at002f = ╱20╱…╱ // 0x1ef @0x2f
0x01c0…01f8 at0030 = ╱20╱…╱ // 0x1f0 @0x30
0x01c0…01f8 at0031 = ╱20╱…╱ // 0x1f1 @0x31
0x01c0…01f8 at0032 = ╱20╱…╱ // 0x1f2 @0x32
0x01c0…01f8 at0033 = ╱20╱…╱ // 0x1f3 @0x33
0x01c0…01f8 at0034 = ╱20╱…╱ // 0x1f4 @0x34
0x01c0…01f8 at0035 = ╱20╱…╱ // 0x1f5 @0x35
0x01c0…01f8 at0036 = ╱2a╱*╱ // 0x1f6 @0x36
0x01c0…01f8 at0037 = EOL // 0x1f7 @0x37
0x01c0…01f8 }
0x01f8…0230 981e 0190 // * Vestervang 6, 6920 Videbæk *
0x01f8…0230 LineComal80 {
0x01f8…0230 ptr = 0x981e // 0x1f8 @0x0
0x01f8…0230 lno = 0x00be // 0x1fa @0x2
0x01f8…0230 at0004 = ╱89╱ // ╱ // 0x1fc @0x4
0x01f8…0230 at0005 = ╱2a╱*╱ // 0x1fd @0x5
0x01f8…0230 at0006 = ╱20╱…╱ // 0x1fe @0x6
0x01f8…0230 at0007 = ╱20╱…╱ // 0x1ff @0x7
0x01f8…0230 at0008 = ╱20╱…╱ // 0x200 @0x8
0x01f8…0230 at0009 = ╱20╱…╱ // 0x201 @0x9
0x01f8…0230 at000a = ╱20╱…╱ // 0x202 @0xa
0x01f8…0230 at000b = ╱20╱…╱ // 0x203 @0xb
0x01f8…0230 at000c = ╱20╱…╱ // 0x204 @0xc
0x01f8…0230 at000d = ╱20╱…╱ // 0x205 @0xd
0x01f8…0230 at000e = ╱20╱…╱ // 0x206 @0xe
0x01f8…0230 at000f = ╱20╱…╱ // 0x207 @0xf
0x01f8…0230 at0010 = ╱20╱…╱ // 0x208 @0x10
0x01f8…0230 at0011 = ╱20╱…╱ // 0x209 @0x11
0x01f8…0230 at0012 = ╱20╱…╱ // 0x20a @0x12
0x01f8…0230 at0013 = ╱20╱…╱ // 0x20b @0x13
0x01f8…0230 at0014 = ╱20╱…╱ // 0x20c @0x14
0x01f8…0230 at0015 = ╱56╱V╱ // 0x20d @0x15
0x01f8…0230 at0016 = ╱65╱e╱ // 0x20e @0x16
0x01f8…0230 at0017 = ╱73╱s╱ // 0x20f @0x17
0x01f8…0230 at0018 = ╱74╱t╱ // 0x210 @0x18
0x01f8…0230 at0019 = ╱65╱e╱ // 0x211 @0x19
0x01f8…0230 at001a = ╱72╱r╱ // 0x212 @0x1a
0x01f8…0230 at001b = ╱76╱v╱ // 0x213 @0x1b
0x01f8…0230 at001c = ╱61╱a╱ // 0x214 @0x1c
0x01f8…0230 at001d = ╱6e╱n╱ // 0x215 @0x1d
0x01f8…0230 at001e = ╱67╱g╱ // 0x216 @0x1e
0x01f8…0230 at001f = ╱20╱…╱ // 0x217 @0x1f
0x01f8…0230 at0020 = ╱36╱6╱ // 0x218 @0x20
0x01f8…0230 at0021 = ╱2c╱,╱ // 0x219 @0x21
0x01f8…0230 at0022 = ╱20╱…╱ // 0x21a @0x22
0x01f8…0230 at0023 = ╱36╱6╱ // 0x21b @0x23
0x01f8…0230 at0024 = ╱39╱9╱ // 0x21c @0x24
0x01f8…0230 at0025 = ╱32╱2╱ // 0x21d @0x25
0x01f8…0230 at0026 = ╱30╱0╱ // 0x21e @0x26
0x01f8…0230 at0027 = ╱20╱…╱ // 0x21f @0x27
0x01f8…0230 at0028 = ╱56╱V╱ // 0x220 @0x28
0x01f8…0230 at0029 = ╱69╱i╱ // 0x221 @0x29
0x01f8…0230 at002a = ╱64╱d╱ // 0x222 @0x2a
0x01f8…0230 at002b = ╱65╱e╱ // 0x223 @0x2b
0x01f8…0230 at002c = ╱62╱b╱ // 0x224 @0x2c
0x01f8…0230 at002d = ╱7b╱æ╱ // 0x225 @0x2d
0x01f8…0230 at002e = ╱6b╱k╱ // 0x226 @0x2e
0x01f8…0230 at002f = ╱20╱…╱ // 0x227 @0x2f
0x01f8…0230 at0030 = ╱20╱…╱ // 0x228 @0x30
0x01f8…0230 at0031 = ╱20╱…╱ // 0x229 @0x31
0x01f8…0230 at0032 = ╱20╱…╱ // 0x22a @0x32
0x01f8…0230 at0033 = ╱20╱…╱ // 0x22b @0x33
0x01f8…0230 at0034 = ╱20╱…╱ // 0x22c @0x34
0x01f8…0230 at0035 = ╱20╱…╱ // 0x22d @0x35
0x01f8…0230 at0036 = ╱2a╱*╱ // 0x22e @0x36
0x01f8…0230 at0037 = EOL // 0x22f @0x37
0x01f8…0230 }
0x0230…0268 9856 0200 // * *
0x0230…0268 LineComal80 {
0x0230…0268 ptr = 0x9856 // 0x230 @0x0
0x0230…0268 lno = 0x00c8 // 0x232 @0x2
0x0230…0268 at0004 = ╱89╱ // ╱ // 0x234 @0x4
0x0230…0268 at0005 = ╱2a╱*╱ // 0x235 @0x5
0x0230…0268 at0006 = ╱20╱…╱ // 0x236 @0x6
0x0230…0268 at0007 = ╱20╱…╱ // 0x237 @0x7
0x0230…0268 at0008 = ╱20╱…╱ // 0x238 @0x8
0x0230…0268 at0009 = ╱20╱…╱ // 0x239 @0x9
0x0230…0268 at000a = ╱20╱…╱ // 0x23a @0xa
0x0230…0268 at000b = ╱20╱…╱ // 0x23b @0xb
0x0230…0268 at000c = ╱20╱…╱ // 0x23c @0xc
0x0230…0268 at000d = ╱20╱…╱ // 0x23d @0xd
0x0230…0268 at000e = ╱20╱…╱ // 0x23e @0xe
0x0230…0268 at000f = ╱20╱…╱ // 0x23f @0xf
0x0230…0268 at0010 = ╱20╱…╱ // 0x240 @0x10
0x0230…0268 at0011 = ╱20╱…╱ // 0x241 @0x11
0x0230…0268 at0012 = ╱20╱…╱ // 0x242 @0x12
0x0230…0268 at0013 = ╱20╱…╱ // 0x243 @0x13
0x0230…0268 at0014 = ╱20╱…╱ // 0x244 @0x14
0x0230…0268 at0015 = ╱20╱…╱ // 0x245 @0x15
0x0230…0268 at0016 = ╱20╱…╱ // 0x246 @0x16
0x0230…0268 at0017 = ╱20╱…╱ // 0x247 @0x17
0x0230…0268 at0018 = ╱20╱…╱ // 0x248 @0x18
0x0230…0268 at0019 = ╱20╱…╱ // 0x249 @0x19
0x0230…0268 at001a = ╱20╱…╱ // 0x24a @0x1a
0x0230…0268 at001b = ╱20╱…╱ // 0x24b @0x1b
0x0230…0268 at001c = ╱20╱…╱ // 0x24c @0x1c
0x0230…0268 at001d = ╱20╱…╱ // 0x24d @0x1d
0x0230…0268 at001e = ╱20╱…╱ // 0x24e @0x1e
0x0230…0268 at001f = ╱20╱…╱ // 0x24f @0x1f
0x0230…0268 at0020 = ╱20╱…╱ // 0x250 @0x20
0x0230…0268 at0021 = ╱20╱…╱ // 0x251 @0x21
0x0230…0268 at0022 = ╱20╱…╱ // 0x252 @0x22
0x0230…0268 at0023 = ╱20╱…╱ // 0x253 @0x23
0x0230…0268 at0024 = ╱20╱…╱ // 0x254 @0x24
0x0230…0268 at0025 = ╱20╱…╱ // 0x255 @0x25
0x0230…0268 at0026 = ╱20╱…╱ // 0x256 @0x26
0x0230…0268 at0027 = ╱20╱…╱ // 0x257 @0x27
0x0230…0268 at0028 = ╱20╱…╱ // 0x258 @0x28
0x0230…0268 at0029 = ╱20╱…╱ // 0x259 @0x29
0x0230…0268 at002a = ╱20╱…╱ // 0x25a @0x2a
0x0230…0268 at002b = ╱20╱…╱ // 0x25b @0x2b
0x0230…0268 at002c = ╱20╱…╱ // 0x25c @0x2c
0x0230…0268 at002d = ╱20╱…╱ // 0x25d @0x2d
0x0230…0268 at002e = ╱20╱…╱ // 0x25e @0x2e
0x0230…0268 at002f = ╱20╱…╱ // 0x25f @0x2f
0x0230…0268 at0030 = ╱20╱…╱ // 0x260 @0x30
0x0230…0268 at0031 = ╱20╱…╱ // 0x261 @0x31
0x0230…0268 at0032 = ╱20╱…╱ // 0x262 @0x32
0x0230…0268 at0033 = ╱20╱…╱ // 0x263 @0x33
0x0230…0268 at0034 = ╱20╱…╱ // 0x264 @0x34
0x0230…0268 at0035 = ╱20╱…╱ // 0x265 @0x35
0x0230…0268 at0036 = ╱2a╱*╱ // 0x266 @0x36
0x0230…0268 at0037 = EOL // 0x267 @0x37
0x0230…0268 }
0x0268…02a0 (8,) 988e 0210 // * (C) : forlaget systime a/s *
0x0268…02a0 LineComal80 {
0x0268…02a0 ptr = 0x988e // 0x268 @0x0
0x0268…02a0 lno = 0x00d2 // 0x26a @0x2
0x0268…02a0 at0004 = ╱89╱ // ╱ // 0x26c @0x4
0x0268…02a0 at0005 = ╱2a╱*╱ // 0x26d @0x5
0x0268…02a0 at0006 = ╱20╱…╱ // 0x26e @0x6
0x0268…02a0 at0007 = ╱20╱…╱ // 0x26f @0x7
0x0268…02a0 at0008 = ╱20╱…╱ // 0x270 @0x8
0x0268…02a0 at0009 = ╱28╱(╱ // 0x271 @0x9
0x0268…02a0 at000a = ╱43╱C╱ // 0x272 @0xa
0x0268…02a0 at000b = ╱29╱)╱ // 0x273 @0xb
0x0268…02a0 at000c = ╱20╱…╱ // 0x274 @0xc
0x0268…02a0 at000d = ╱20╱…╱ // 0x275 @0xd
0x0268…02a0 at000e = ╱20╱…╱ // 0x276 @0xe
0x0268…02a0 at000f = ╱20╱…╱ // 0x277 @0xf
0x0268…02a0 at0010 = ╱20╱…╱ // 0x278 @0x10
0x0268…02a0 at0011 = ╱20╱…╱ // 0x279 @0x11
0x0268…02a0 at0012 = ╱20╱…╱ // 0x27a @0x12
0x0268…02a0 at0013 = ╱3a╱:╱ // 0x27b @0x13
0x0268…02a0 at0014 = ╱20╱…╱ // 0x27c @0x14
0x0268…02a0 at0015 = ╱66╱f╱ // 0x27d @0x15
0x0268…02a0 at0016 = ╱6f╱o╱ // 0x27e @0x16
0x0268…02a0 at0017 = ╱72╱r╱ // 0x27f @0x17
0x0268…02a0 at0018 = ╱6c╱l╱ // 0x280 @0x18
0x0268…02a0 at0019 = ╱61╱a╱ // 0x281 @0x19
0x0268…02a0 at001a = ╱67╱g╱ // 0x282 @0x1a
0x0268…02a0 at001b = ╱65╱e╱ // 0x283 @0x1b
0x0268…02a0 at001c = ╱74╱t╱ // 0x284 @0x1c
0x0268…02a0 at001d = ╱20╱…╱ // 0x285 @0x1d
0x0268…02a0 at001e = ╱73╱s╱ // 0x286 @0x1e
0x0268…02a0 at001f = ╱79╱y╱ // 0x287 @0x1f
0x0268…02a0 at0020 = ╱73╱s╱ // 0x288 @0x20
0x0268…02a0 at0021 = ╱74╱t╱ // 0x289 @0x21
0x0268…02a0 at0022 = ╱69╱i╱ // 0x28a @0x22
0x0268…02a0 at0023 = ╱6d╱m╱ // 0x28b @0x23
0x0268…02a0 at0024 = ╱65╱e╱ // 0x28c @0x24
0x0268…02a0 at0025 = ╱20╱…╱ // 0x28d @0x25
0x0268…02a0 at0026 = ╱61╱a╱ // 0x28e @0x26
0x0268…02a0 at0027 = ╱2f╱/╱ // 0x28f @0x27
0x0268…02a0 at0028 = ╱73╱s╱ // 0x290 @0x28
0x0268…02a0 at0029 = ╱20╱…╱ // 0x291 @0x29
0x0268…02a0 at002a = ╱20╱…╱ // 0x292 @0x2a
0x0268…02a0 at002b = ╱20╱…╱ // 0x293 @0x2b
0x0268…02a0 at002c = ╱20╱…╱ // 0x294 @0x2c
0x0268…02a0 at002d = ╱20╱…╱ // 0x295 @0x2d
0x0268…02a0 at002e = ╱20╱…╱ // 0x296 @0x2e
0x0268…02a0 at002f = ╱20╱…╱ // 0x297 @0x2f
0x0268…02a0 at0030 = ╱20╱…╱ // 0x298 @0x30
0x0268…02a0 at0031 = ╱20╱…╱ // 0x299 @0x31
0x0268…02a0 at0032 = ╱20╱…╱ // 0x29a @0x32
0x0268…02a0 at0033 = ╱20╱…╱ // 0x29b @0x33
0x0268…02a0 at0034 = ╱20╱…╱ // 0x29c @0x34
0x0268…02a0 at0035 = ╱20╱…╱ // 0x29d @0x35
0x0268…02a0 at0036 = ╱2a╱*╱ // 0x29e @0x36
0x0268…02a0 at0037 = EOL // 0x29f @0x37
0x0268…02a0 }
0x02a0…02d8 98c6 0220 // * Klokkebakken 20, Gjellerup *
0x02a0…02d8 LineComal80 {
0x02a0…02d8 ptr = 0x98c6 // 0x2a0 @0x0
0x02a0…02d8 lno = 0x00dc // 0x2a2 @0x2
0x02a0…02d8 at0004 = ╱89╱ // ╱ // 0x2a4 @0x4
0x02a0…02d8 at0005 = ╱2a╱*╱ // 0x2a5 @0x5
0x02a0…02d8 at0006 = ╱20╱…╱ // 0x2a6 @0x6
0x02a0…02d8 at0007 = ╱20╱…╱ // 0x2a7 @0x7
0x02a0…02d8 at0008 = ╱20╱…╱ // 0x2a8 @0x8
0x02a0…02d8 at0009 = ╱20╱…╱ // 0x2a9 @0x9
0x02a0…02d8 at000a = ╱20╱…╱ // 0x2aa @0xa
0x02a0…02d8 at000b = ╱20╱…╱ // 0x2ab @0xb
0x02a0…02d8 at000c = ╱20╱…╱ // 0x2ac @0xc
0x02a0…02d8 at000d = ╱20╱…╱ // 0x2ad @0xd
0x02a0…02d8 at000e = ╱20╱…╱ // 0x2ae @0xe
0x02a0…02d8 at000f = ╱20╱…╱ // 0x2af @0xf
0x02a0…02d8 at0010 = ╱20╱…╱ // 0x2b0 @0x10
0x02a0…02d8 at0011 = ╱20╱…╱ // 0x2b1 @0x11
0x02a0…02d8 at0012 = ╱20╱…╱ // 0x2b2 @0x12
0x02a0…02d8 at0013 = ╱20╱…╱ // 0x2b3 @0x13
0x02a0…02d8 at0014 = ╱20╱…╱ // 0x2b4 @0x14
0x02a0…02d8 at0015 = ╱4b╱K╱ // 0x2b5 @0x15
0x02a0…02d8 at0016 = ╱6c╱l╱ // 0x2b6 @0x16
0x02a0…02d8 at0017 = ╱6f╱o╱ // 0x2b7 @0x17
0x02a0…02d8 at0018 = ╱6b╱k╱ // 0x2b8 @0x18
0x02a0…02d8 at0019 = ╱6b╱k╱ // 0x2b9 @0x19
0x02a0…02d8 at001a = ╱65╱e╱ // 0x2ba @0x1a
0x02a0…02d8 at001b = ╱62╱b╱ // 0x2bb @0x1b
0x02a0…02d8 at001c = ╱61╱a╱ // 0x2bc @0x1c
0x02a0…02d8 at001d = ╱6b╱k╱ // 0x2bd @0x1d
0x02a0…02d8 at001e = ╱6b╱k╱ // 0x2be @0x1e
0x02a0…02d8 at001f = ╱65╱e╱ // 0x2bf @0x1f
0x02a0…02d8 at0020 = ╱6e╱n╱ // 0x2c0 @0x20
0x02a0…02d8 at0021 = ╱20╱…╱ // 0x2c1 @0x21
0x02a0…02d8 at0022 = ╱32╱2╱ // 0x2c2 @0x22
0x02a0…02d8 at0023 = ╱30╱0╱ // 0x2c3 @0x23
0x02a0…02d8 at0024 = ╱2c╱,╱ // 0x2c4 @0x24
0x02a0…02d8 at0025 = ╱20╱…╱ // 0x2c5 @0x25
0x02a0…02d8 at0026 = ╱47╱G╱ // 0x2c6 @0x26
0x02a0…02d8 at0027 = ╱6a╱j╱ // 0x2c7 @0x27
0x02a0…02d8 at0028 = ╱65╱e╱ // 0x2c8 @0x28
0x02a0…02d8 at0029 = ╱6c╱l╱ // 0x2c9 @0x29
0x02a0…02d8 at002a = ╱6c╱l╱ // 0x2ca @0x2a
0x02a0…02d8 at002b = ╱65╱e╱ // 0x2cb @0x2b
0x02a0…02d8 at002c = ╱72╱r╱ // 0x2cc @0x2c
0x02a0…02d8 at002d = ╱75╱u╱ // 0x2cd @0x2d
0x02a0…02d8 at002e = ╱70╱p╱ // 0x2ce @0x2e
0x02a0…02d8 at002f = ╱20╱…╱ // 0x2cf @0x2f
0x02a0…02d8 at0030 = ╱20╱…╱ // 0x2d0 @0x30
0x02a0…02d8 at0031 = ╱20╱…╱ // 0x2d1 @0x31
0x02a0…02d8 at0032 = ╱20╱…╱ // 0x2d2 @0x32
0x02a0…02d8 at0033 = ╱20╱…╱ // 0x2d3 @0x33
0x02a0…02d8 at0034 = ╱20╱…╱ // 0x2d4 @0x34
0x02a0…02d8 at0035 = ╱20╱…╱ // 0x2d5 @0x35
0x02a0…02d8 at0036 = ╱2a╱*╱ // 0x2d6 @0x36
0x02a0…02d8 at0037 = EOL // 0x2d7 @0x37
0x02a0…02d8 }
0x02d8…0310 98fe 0230 // * 7400 Herning *
0x02d8…0310 LineComal80 {
0x02d8…0310 ptr = 0x98fe // 0x2d8 @0x0
0x02d8…0310 lno = 0x00e6 // 0x2da @0x2
0x02d8…0310 at0004 = ╱89╱ // ╱ // 0x2dc @0x4
0x02d8…0310 at0005 = ╱2a╱*╱ // 0x2dd @0x5
0x02d8…0310 at0006 = ╱20╱…╱ // 0x2de @0x6
0x02d8…0310 at0007 = ╱20╱…╱ // 0x2df @0x7
0x02d8…0310 at0008 = ╱20╱…╱ // 0x2e0 @0x8
0x02d8…0310 at0009 = ╱20╱…╱ // 0x2e1 @0x9
0x02d8…0310 at000a = ╱20╱…╱ // 0x2e2 @0xa
0x02d8…0310 at000b = ╱20╱…╱ // 0x2e3 @0xb
0x02d8…0310 at000c = ╱20╱…╱ // 0x2e4 @0xc
0x02d8…0310 at000d = ╱20╱…╱ // 0x2e5 @0xd
0x02d8…0310 at000e = ╱20╱…╱ // 0x2e6 @0xe
0x02d8…0310 at000f = ╱20╱…╱ // 0x2e7 @0xf
0x02d8…0310 at0010 = ╱20╱…╱ // 0x2e8 @0x10
0x02d8…0310 at0011 = ╱20╱…╱ // 0x2e9 @0x11
0x02d8…0310 at0012 = ╱20╱…╱ // 0x2ea @0x12
0x02d8…0310 at0013 = ╱20╱…╱ // 0x2eb @0x13
0x02d8…0310 at0014 = ╱20╱…╱ // 0x2ec @0x14
0x02d8…0310 at0015 = ╱37╱7╱ // 0x2ed @0x15
0x02d8…0310 at0016 = ╱34╱4╱ // 0x2ee @0x16
0x02d8…0310 at0017 = ╱30╱0╱ // 0x2ef @0x17
0x02d8…0310 at0018 = ╱30╱0╱ // 0x2f0 @0x18
0x02d8…0310 at0019 = ╱20╱…╱ // 0x2f1 @0x19
0x02d8…0310 at001a = ╱20╱…╱ // 0x2f2 @0x1a
0x02d8…0310 at001b = ╱48╱H╱ // 0x2f3 @0x1b
0x02d8…0310 at001c = ╱65╱e╱ // 0x2f4 @0x1c
0x02d8…0310 at001d = ╱72╱r╱ // 0x2f5 @0x1d
0x02d8…0310 at001e = ╱6e╱n╱ // 0x2f6 @0x1e
0x02d8…0310 at001f = ╱69╱i╱ // 0x2f7 @0x1f
0x02d8…0310 at0020 = ╱6e╱n╱ // 0x2f8 @0x20
0x02d8…0310 at0021 = ╱67╱g╱ // 0x2f9 @0x21
0x02d8…0310 at0022 = ╱20╱…╱ // 0x2fa @0x22
0x02d8…0310 at0023 = ╱20╱…╱ // 0x2fb @0x23
0x02d8…0310 at0024 = ╱20╱…╱ // 0x2fc @0x24
0x02d8…0310 at0025 = ╱20╱…╱ // 0x2fd @0x25
0x02d8…0310 at0026 = ╱20╱…╱ // 0x2fe @0x26
0x02d8…0310 at0027 = ╱20╱…╱ // 0x2ff @0x27
0x02d8…0310 at0028 = ╱20╱…╱ // 0x300 @0x28
0x02d8…0310 at0029 = ╱20╱…╱ // 0x301 @0x29
0x02d8…0310 at002a = ╱20╱…╱ // 0x302 @0x2a
0x02d8…0310 at002b = ╱20╱…╱ // 0x303 @0x2b
0x02d8…0310 at002c = ╱20╱…╱ // 0x304 @0x2c
0x02d8…0310 at002d = ╱20╱…╱ // 0x305 @0x2d
0x02d8…0310 at002e = ╱20╱…╱ // 0x306 @0x2e
0x02d8…0310 at002f = ╱20╱…╱ // 0x307 @0x2f
0x02d8…0310 at0030 = ╱20╱…╱ // 0x308 @0x30
0x02d8…0310 at0031 = ╱20╱…╱ // 0x309 @0x31
0x02d8…0310 at0032 = ╱20╱…╱ // 0x30a @0x32
0x02d8…0310 at0033 = ╱20╱…╱ // 0x30b @0x33
0x02d8…0310 at0034 = ╱20╱…╱ // 0x30c @0x34
0x02d8…0310 at0035 = ╱20╱…╱ // 0x30d @0x35
0x02d8…0310 at0036 = ╱2a╱*╱ // 0x30e @0x36
0x02d8…0310 at0037 = EOL // 0x30f @0x37
0x02d8…0310 }
0x0310…0348 9936 0240 // **************************************************
0x0310…0348 LineComal80 {
0x0310…0348 ptr = 0x9936 // 0x310 @0x0
0x0310…0348 lno = 0x00f0 // 0x312 @0x2
0x0310…0348 at0004 = ╱89╱ // ╱ // 0x314 @0x4
0x0310…0348 at0005 = ╱2a╱*╱ // 0x315 @0x5
0x0310…0348 at0006 = ╱2a╱*╱ // 0x316 @0x6
0x0310…0348 at0007 = ╱2a╱*╱ // 0x317 @0x7
0x0310…0348 at0008 = ╱2a╱*╱ // 0x318 @0x8
0x0310…0348 at0009 = ╱2a╱*╱ // 0x319 @0x9
0x0310…0348 at000a = ╱2a╱*╱ // 0x31a @0xa
0x0310…0348 at000b = ╱2a╱*╱ // 0x31b @0xb
0x0310…0348 at000c = ╱2a╱*╱ // 0x31c @0xc
0x0310…0348 at000d = ╱2a╱*╱ // 0x31d @0xd
0x0310…0348 at000e = ╱2a╱*╱ // 0x31e @0xe
0x0310…0348 at000f = ╱2a╱*╱ // 0x31f @0xf
0x0310…0348 at0010 = ╱2a╱*╱ // 0x320 @0x10
0x0310…0348 at0011 = ╱2a╱*╱ // 0x321 @0x11
0x0310…0348 at0012 = ╱2a╱*╱ // 0x322 @0x12
0x0310…0348 at0013 = ╱2a╱*╱ // 0x323 @0x13
0x0310…0348 at0014 = ╱2a╱*╱ // 0x324 @0x14
0x0310…0348 at0015 = ╱2a╱*╱ // 0x325 @0x15
0x0310…0348 at0016 = ╱2a╱*╱ // 0x326 @0x16
0x0310…0348 at0017 = ╱2a╱*╱ // 0x327 @0x17
0x0310…0348 at0018 = ╱2a╱*╱ // 0x328 @0x18
0x0310…0348 at0019 = ╱2a╱*╱ // 0x329 @0x19
0x0310…0348 at001a = ╱2a╱*╱ // 0x32a @0x1a
0x0310…0348 at001b = ╱2a╱*╱ // 0x32b @0x1b
0x0310…0348 at001c = ╱2a╱*╱ // 0x32c @0x1c
0x0310…0348 at001d = ╱2a╱*╱ // 0x32d @0x1d
0x0310…0348 at001e = ╱2a╱*╱ // 0x32e @0x1e
0x0310…0348 at001f = ╱2a╱*╱ // 0x32f @0x1f
0x0310…0348 at0020 = ╱2a╱*╱ // 0x330 @0x20
0x0310…0348 at0021 = ╱2a╱*╱ // 0x331 @0x21
0x0310…0348 at0022 = ╱2a╱*╱ // 0x332 @0x22
0x0310…0348 at0023 = ╱2a╱*╱ // 0x333 @0x23
0x0310…0348 at0024 = ╱2a╱*╱ // 0x334 @0x24
0x0310…0348 at0025 = ╱2a╱*╱ // 0x335 @0x25
0x0310…0348 at0026 = ╱2a╱*╱ // 0x336 @0x26
0x0310…0348 at0027 = ╱2a╱*╱ // 0x337 @0x27
0x0310…0348 at0028 = ╱2a╱*╱ // 0x338 @0x28
0x0310…0348 at0029 = ╱2a╱*╱ // 0x339 @0x29
0x0310…0348 at002a = ╱2a╱*╱ // 0x33a @0x2a
0x0310…0348 at002b = ╱2a╱*╱ // 0x33b @0x2b
0x0310…0348 at002c = ╱2a╱*╱ // 0x33c @0x2c
0x0310…0348 at002d = ╱2a╱*╱ // 0x33d @0x2d
0x0310…0348 at002e = ╱2a╱*╱ // 0x33e @0x2e
0x0310…0348 at002f = ╱2a╱*╱ // 0x33f @0x2f
0x0310…0348 at0030 = ╱2a╱*╱ // 0x340 @0x30
0x0310…0348 at0031 = ╱2a╱*╱ // 0x341 @0x31
0x0310…0348 at0032 = ╱2a╱*╱ // 0x342 @0x32
0x0310…0348 at0033 = ╱2a╱*╱ // 0x343 @0x33
0x0310…0348 at0034 = ╱2a╱*╱ // 0x344 @0x34
0x0310…0348 at0035 = ╱2a╱*╱ // 0x345 @0x35
0x0310…0348 at0036 = ╱2a╱*╱ // 0x346 @0x36
0x0310…0348 at0037 = EOL // 0x347 @0x37
0x0310…0348 }
0x0348…0359 9947 0250 EXEC DIMENSIONER
0x0348…0359 LineComal80 {
0x0348…0359 ptr = 0x9947 // 0x348 @0x0
0x0348…0359 lno = 0x00fa // 0x34a @0x2
0x0348…0359 at0004 = ╱9d╱ EXEC ╱ // 0x34c @0x4
0x0348…0359 at0005 = ╱44╱D╱ // 0x34d @0x5
0x0348…0359 at0006 = ╱49╱I╱ // 0x34e @0x6
0x0348…0359 at0007 = ╱4d╱M╱ // 0x34f @0x7
0x0348…0359 at0008 = ╱45╱E╱ // 0x350 @0x8
0x0348…0359 at0009 = ╱4e╱N╱ // 0x351 @0x9
0x0348…0359 at000a = ╱53╱S╱ // 0x352 @0xa
0x0348…0359 at000b = ╱49╱I╱ // 0x353 @0xb
0x0348…0359 at000c = ╱4f╱O╱ // 0x354 @0xc
0x0348…0359 at000d = ╱4e╱N╱ // 0x355 @0xd
0x0348…0359 at000e = ╱45╱E╱ // 0x356 @0xe
0x0348…0359 at000f = ╱52╱R╱ // 0x357 @0xf
0x0348…0359 at0010 = EOL // 0x358 @0x10
0x0348…0359 }
0x0359…0366 9954 0260 EXEC INITIER
0x0359…0366 LineComal80 {
0x0359…0366 ptr = 0x9954 // 0x359 @0x0
0x0359…0366 lno = 0x0104 // 0x35b @0x2
0x0359…0366 at0004 = ╱9d╱ EXEC ╱ // 0x35d @0x4
0x0359…0366 at0005 = ╱49╱I╱ // 0x35e @0x5
0x0359…0366 at0006 = ╱4e╱N╱ // 0x35f @0x6
0x0359…0366 at0007 = ╱49╱I╱ // 0x360 @0x7
0x0359…0366 at0008 = ╱54╱T╱ // 0x361 @0x8
0x0359…0366 at0009 = ╱49╱I╱ // 0x362 @0x9
0x0359…0366 at000a = ╱45╱E╱ // 0x363 @0xa
0x0359…0366 at000b = ╱52╱R╱ // 0x364 @0xb
0x0359…0366 at000c = EOL // 0x365 @0xc
0x0359…0366 }
0x0366…0378 9966 0270 EXEC INDTASTSALDI
0x0366…0378 LineComal80 {
0x0366…0378 ptr = 0x9966 // 0x366 @0x0
0x0366…0378 lno = 0x010e // 0x368 @0x2
0x0366…0378 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0378 at0005 = ╱49╱I╱ // 0x36b @0x5
0x0366…0378 at0006 = ╱4e╱N╱ // 0x36c @0x6
0x0366…0378 at0007 = ╱44╱D╱ // 0x36d @0x7
0x0366…0378 at0008 = ╱54╱T╱ // 0x36e @0x8
0x0366…0378 at0009 = ╱41╱A╱ // 0x36f @0x9
0x0366…0378 at000a = ╱53╱S╱ // 0x370 @0xa
0x0366…0378 at000b = ╱54╱T╱ // 0x371 @0xb
0x0366…0378 at000c = ╱53╱S╱ // 0x372 @0xc
0x0366…0378 at000d = ╱41╱A╱ // 0x373 @0xd
0x0366…0378 at000e = ╱4c╱L╱ // 0x374 @0xe
0x0366…0378 at000f = ╱44╱D╱ // 0x375 @0xf
0x0366…0378 at0010 = ╱49╱I╱ // 0x376 @0x10
0x0366…0378 at0011 = EOL // 0x377 @0x11
0x0366…0378 }
0x0378…0386 9974 0280 CHAIN PROGRAM$
0x0378…0386 LineComal80 {
0x0378…0386 ptr = 0x9974 // 0x378 @0x0
0x0378…0386 lno = 0x0118 // 0x37a @0x2
0x0378…0386 at0004 = ╱ac╱ CHAIN ╱ // 0x37c @0x4
0x0378…0386 at0005 = ╱50╱P╱ // 0x37d @0x5
0x0378…0386 at0006 = ╱52╱R╱ // 0x37e @0x6
0x0378…0386 at0007 = ╱4f╱O╱ // 0x37f @0x7
0x0378…0386 at0008 = ╱47╱G╱ // 0x380 @0x8
0x0378…0386 at0009 = ╱52╱R╱ // 0x381 @0x9
0x0378…0386 at000a = ╱41╱A╱ // 0x382 @0xa
0x0378…0386 at000b = ╱4d╱M╱ // 0x383 @0xb
0x0378…0386 at000c = ╱ef╱$╱ // 0x384 @0xc
0x0378…0386 at000d = EOL // 0x385 @0xd
0x0378…0386 }
0x0386…03ba 99a8 0290 // ============= procedurer starter =============
0x0386…03ba LineComal80 {
0x0386…03ba ptr = 0x99a8 // 0x386 @0x0
0x0386…03ba lno = 0x0122 // 0x388 @0x2
0x0386…03ba at0004 = ╱89╱ // ╱ // 0x38a @0x4
0x0386…03ba at0005 = ╱3d╱=╱ // 0x38b @0x5
0x0386…03ba at0006 = ╱3d╱=╱ // 0x38c @0x6
0x0386…03ba at0007 = ╱3d╱=╱ // 0x38d @0x7
0x0386…03ba at0008 = ╱3d╱=╱ // 0x38e @0x8
0x0386…03ba at0009 = ╱3d╱=╱ // 0x38f @0x9
0x0386…03ba at000a = ╱3d╱=╱ // 0x390 @0xa
0x0386…03ba at000b = ╱3d╱=╱ // 0x391 @0xb
0x0386…03ba at000c = ╱3d╱=╱ // 0x392 @0xc
0x0386…03ba at000d = ╱3d╱=╱ // 0x393 @0xd
0x0386…03ba at000e = ╱3d╱=╱ // 0x394 @0xe
0x0386…03ba at000f = ╱3d╱=╱ // 0x395 @0xf
0x0386…03ba at0010 = ╱3d╱=╱ // 0x396 @0x10
0x0386…03ba at0011 = ╱3d╱=╱ // 0x397 @0x11
0x0386…03ba at0012 = ╱20╱…╱ // 0x398 @0x12
0x0386…03ba at0013 = ╱70╱p╱ // 0x399 @0x13
0x0386…03ba at0014 = ╱72╱r╱ // 0x39a @0x14
0x0386…03ba at0015 = ╱6f╱o╱ // 0x39b @0x15
0x0386…03ba at0016 = ╱63╱c╱ // 0x39c @0x16
0x0386…03ba at0017 = ╱65╱e╱ // 0x39d @0x17
0x0386…03ba at0018 = ╱64╱d╱ // 0x39e @0x18
0x0386…03ba at0019 = ╱75╱u╱ // 0x39f @0x19
0x0386…03ba at001a = ╱72╱r╱ // 0x3a0 @0x1a
0x0386…03ba at001b = ╱65╱e╱ // 0x3a1 @0x1b
0x0386…03ba at001c = ╱72╱r╱ // 0x3a2 @0x1c
0x0386…03ba at001d = ╱20╱…╱ // 0x3a3 @0x1d
0x0386…03ba at001e = ╱73╱s╱ // 0x3a4 @0x1e
0x0386…03ba at001f = ╱74╱t╱ // 0x3a5 @0x1f
0x0386…03ba at0020 = ╱61╱a╱ // 0x3a6 @0x20
0x0386…03ba at0021 = ╱72╱r╱ // 0x3a7 @0x21
0x0386…03ba at0022 = ╱74╱t╱ // 0x3a8 @0x22
0x0386…03ba at0023 = ╱65╱e╱ // 0x3a9 @0x23
0x0386…03ba at0024 = ╱72╱r╱ // 0x3aa @0x24
0x0386…03ba at0025 = ╱20╱…╱ // 0x3ab @0x25
0x0386…03ba at0026 = ╱3d╱=╱ // 0x3ac @0x26
0x0386…03ba at0027 = ╱3d╱=╱ // 0x3ad @0x27
0x0386…03ba at0028 = ╱3d╱=╱ // 0x3ae @0x28
0x0386…03ba at0029 = ╱3d╱=╱ // 0x3af @0x29
0x0386…03ba at002a = ╱3d╱=╱ // 0x3b0 @0x2a
0x0386…03ba at002b = ╱3d╱=╱ // 0x3b1 @0x2b
0x0386…03ba at002c = ╱3d╱=╱ // 0x3b2 @0x2c
0x0386…03ba at002d = ╱3d╱=╱ // 0x3b3 @0x2d
0x0386…03ba at002e = ╱3d╱=╱ // 0x3b4 @0x2e
0x0386…03ba at002f = ╱3d╱=╱ // 0x3b5 @0x2f
0x0386…03ba at0030 = ╱3d╱=╱ // 0x3b6 @0x30
0x0386…03ba at0031 = ╱3d╱=╱ // 0x3b7 @0x31
0x0386…03ba at0032 = ╱3d╱=╱ // 0x3b8 @0x32
0x0386…03ba at0033 = EOL // 0x3b9 @0x33
0x0386…03ba }
0x03ba…03cc 99ba 0300 PROC DIMENSIONER
0x03ba…03cc LineComal80 {
0x03ba…03cc ptr = 0x99ba // 0x3ba @0x0
0x03ba…03cc lno = 0x012c // 0x3bc @0x2
0x03ba…03cc at0004 = ╱9e00╱ PROC ╱ // 0x3be @0x4
0x03ba…03cc at0006 = ╱44╱D╱ // 0x3c0 @0x6
0x03ba…03cc at0007 = ╱49╱I╱ // 0x3c1 @0x7
0x03ba…03cc at0008 = ╱4d╱M╱ // 0x3c2 @0x8
0x03ba…03cc at0009 = ╱45╱E╱ // 0x3c3 @0x9
0x03ba…03cc at000a = ╱4e╱N╱ // 0x3c4 @0xa
0x03ba…03cc at000b = ╱53╱S╱ // 0x3c5 @0xb
0x03ba…03cc at000c = ╱49╱I╱ // 0x3c6 @0xc
0x03ba…03cc at000d = ╱4f╱O╱ // 0x3c7 @0xd
0x03ba…03cc at000e = ╱4e╱N╱ // 0x3c8 @0xe
0x03ba…03cc at000f = ╱45╱E╱ // 0x3c9 @0xf
0x03ba…03cc at0010 = ╱52╱R╱ // 0x3ca @0x10
0x03ba…03cc at0011 = EOL // 0x3cb @0x11
0x03ba…03cc }
0x03cc…03e3 99d1 0310 // Standard variable
0x03cc…03e3 LineComal80 {
0x03cc…03e3 ptr = 0x99d1 // 0x3cc @0x0
0x03cc…03e3 lno = 0x0136 // 0x3ce @0x2
0x03cc…03e3 at0004 = ╱89╱ // ╱ // 0x3d0 @0x4
0x03cc…03e3 at0005 = ╱53╱S╱ // 0x3d1 @0x5
0x03cc…03e3 at0006 = ╱74╱t╱ // 0x3d2 @0x6
0x03cc…03e3 at0007 = ╱61╱a╱ // 0x3d3 @0x7
0x03cc…03e3 at0008 = ╱6e╱n╱ // 0x3d4 @0x8
0x03cc…03e3 at0009 = ╱64╱d╱ // 0x3d5 @0x9
0x03cc…03e3 at000a = ╱61╱a╱ // 0x3d6 @0xa
0x03cc…03e3 at000b = ╱72╱r╱ // 0x3d7 @0xb
0x03cc…03e3 at000c = ╱64╱d╱ // 0x3d8 @0xc
0x03cc…03e3 at000d = ╱20╱…╱ // 0x3d9 @0xd
0x03cc…03e3 at000e = ╱76╱v╱ // 0x3da @0xe
0x03cc…03e3 at000f = ╱61╱a╱ // 0x3db @0xf
0x03cc…03e3 at0010 = ╱72╱r╱ // 0x3dc @0x10
0x03cc…03e3 at0011 = ╱69╱i╱ // 0x3dd @0x11
0x03cc…03e3 at0012 = ╱61╱a╱ // 0x3de @0x12
0x03cc…03e3 at0013 = ╱62╱b╱ // 0x3df @0x13
0x03cc…03e3 at0014 = ╱6c╱l╱ // 0x3e0 @0x14
0x03cc…03e3 at0015 = ╱65╱e╱ // 0x3e1 @0x15
0x03cc…03e3 at0016 = EOL // 0x3e2 @0x16
0x03cc…03e3 }
0x03e3…0422 9a10 0320 DIM SPC$ OF 80,TAL$ OF 10,ALFA$ OF 28,SVAR$ OF 12,PRGFL$ OF 8
0x03e3…0422 LineComal80 {
0x03e3…0422 ptr = 0x9a10 // 0x3e3 @0x0
0x03e3…0422 lno = 0x0140 // 0x3e5 @0x2
0x03e3…0422 at0004 = ╱87╱ DIM ╱ // 0x3e7 @0x4
0x03e3…0422 at0005 = ╱53╱S╱ // 0x3e8 @0x5
0x03e3…0422 at0006 = ╱50╱P╱ // 0x3e9 @0x6
0x03e3…0422 at0007 = ╱43╱C╱ // 0x3ea @0x7
0x03e3…0422 at0008 = ╱ef╱$╱ // 0x3eb @0x8
0x03e3…0422 at0009 = ╱ba╱ OF ╱ // 0x3ec @0x9
0x03e3…0422 at000a = ╱38╱8╱ // 0x3ed @0xa
0x03e3…0422 at000b = ╱30╱0╱ // 0x3ee @0xb
0x03e3…0422 at000c = ╱f25000╱ // 0x3ef @0xc
0x03e3…0422 at000f = ╱ec╱,╱ // 0x3f2 @0xf
0x03e3…0422 at0010 = ╱54╱T╱ // 0x3f3 @0x10
0x03e3…0422 at0011 = ╱41╱A╱ // 0x3f4 @0x11
0x03e3…0422 at0012 = ╱4c╱L╱ // 0x3f5 @0x12
0x03e3…0422 at0013 = ╱ef╱$╱ // 0x3f6 @0x13
0x03e3…0422 at0014 = ╱ba╱ OF ╱ // 0x3f7 @0x14
0x03e3…0422 at0015 = ╱31╱1╱ // 0x3f8 @0x15
0x03e3…0422 at0016 = ╱30╱0╱ // 0x3f9 @0x16
0x03e3…0422 at0017 = ╱f20a00╱ // 0x3fa @0x17
0x03e3…0422 at001a = ╱ec╱,╱ // 0x3fd @0x1a
0x03e3…0422 at001b = ╱41╱A╱ // 0x3fe @0x1b
0x03e3…0422 at001c = ╱4c╱L╱ // 0x3ff @0x1c
0x03e3…0422 at001d = ╱46╱F╱ // 0x400 @0x1d
0x03e3…0422 at001e = ╱41╱A╱ // 0x401 @0x1e
0x03e3…0422 at001f = ╱ef╱$╱ // 0x402 @0x1f
0x03e3…0422 at0020 = ╱ba╱ OF ╱ // 0x403 @0x20
0x03e3…0422 at0021 = ╱32╱2╱ // 0x404 @0x21
0x03e3…0422 at0022 = ╱38╱8╱ // 0x405 @0x22
0x03e3…0422 at0023 = ╱f21c00╱ // 0x406 @0x23
0x03e3…0422 at0026 = ╱ec╱,╱ // 0x409 @0x26
0x03e3…0422 at0027 = ╱53╱S╱ // 0x40a @0x27
0x03e3…0422 at0028 = ╱56╱V╱ // 0x40b @0x28
0x03e3…0422 at0029 = ╱41╱A╱ // 0x40c @0x29
0x03e3…0422 at002a = ╱52╱R╱ // 0x40d @0x2a
0x03e3…0422 at002b = ╱ef╱$╱ // 0x40e @0x2b
0x03e3…0422 at002c = ╱ba╱ OF ╱ // 0x40f @0x2c
0x03e3…0422 at002d = ╱31╱1╱ // 0x410 @0x2d
0x03e3…0422 at002e = ╱32╱2╱ // 0x411 @0x2e
0x03e3…0422 at002f = ╱f20c00╱ // 0x412 @0x2f
0x03e3…0422 at0032 = ╱ec╱,╱ // 0x415 @0x32
0x03e3…0422 at0033 = ╱50╱P╱ // 0x416 @0x33
0x03e3…0422 at0034 = ╱52╱R╱ // 0x417 @0x34
0x03e3…0422 at0035 = ╱47╱G╱ // 0x418 @0x35
0x03e3…0422 at0036 = ╱46╱F╱ // 0x419 @0x36
0x03e3…0422 at0037 = ╱4c╱L╱ // 0x41a @0x37
0x03e3…0422 at0038 = ╱ef╱$╱ // 0x41b @0x38
0x03e3…0422 at0039 = ╱ba╱ OF ╱ // 0x41c @0x39
0x03e3…0422 at003a = ╱38╱8╱ // 0x41d @0x3a
0x03e3…0422 at003b = ╱f20800╱ // 0x41e @0x3b
0x03e3…0422 at003e = EOL // 0x421 @0x3e
0x03e3…0422 }
0x0422…0436 9a24 0330 DIM PROGRAM$ OF 17
0x0422…0436 LineComal80 {
0x0422…0436 ptr = 0x9a24 // 0x422 @0x0
0x0422…0436 lno = 0x014a // 0x424 @0x2
0x0422…0436 at0004 = ╱87╱ DIM ╱ // 0x426 @0x4
0x0422…0436 at0005 = ╱50╱P╱ // 0x427 @0x5
0x0422…0436 at0006 = ╱52╱R╱ // 0x428 @0x6
0x0422…0436 at0007 = ╱4f╱O╱ // 0x429 @0x7
0x0422…0436 at0008 = ╱47╱G╱ // 0x42a @0x8
0x0422…0436 at0009 = ╱52╱R╱ // 0x42b @0x9
0x0422…0436 at000a = ╱41╱A╱ // 0x42c @0xa
0x0422…0436 at000b = ╱4d╱M╱ // 0x42d @0xb
0x0422…0436 at000c = ╱ef╱$╱ // 0x42e @0xc
0x0422…0436 at000d = ╱ba╱ OF ╱ // 0x42f @0xd
0x0422…0436 at000e = ╱31╱1╱ // 0x430 @0xe
0x0422…0436 at000f = ╱37╱7╱ // 0x431 @0xf
0x0422…0436 at0010 = ╱f21100╱ // 0x432 @0x10
0x0422…0436 at0013 = EOL // 0x435 @0x13
0x0422…0436 }
0x0436…0446 (14,) 9a34 0340 REAL RESRV,PPAR
0x0436…0446 LineComal80 {
0x0436…0446 ptr = 0x9a34 // 0x436 @0x0
0x0436…0446 lno = 0x0154 // 0x438 @0x2
0x0436…0446 at0004 = ╱b3╱ REAL ╱ // 0x43a @0x4
0x0436…0446 at0005 = ╱52╱R╱ // 0x43b @0x5
0x0436…0446 at0006 = ╱45╱E╱ // 0x43c @0x6
0x0436…0446 at0007 = ╱53╱S╱ // 0x43d @0x7
0x0436…0446 at0008 = ╱52╱R╱ // 0x43e @0x8
0x0436…0446 at0009 = ╱56╱V╱ // 0x43f @0x9
0x0436…0446 at000a = ╱ec╱,╱ // 0x440 @0xa
0x0436…0446 at000b = ╱50╱P╱ // 0x441 @0xb
0x0436…0446 at000c = ╱50╱P╱ // 0x442 @0xc
0x0436…0446 at000d = ╱41╱A╱ // 0x443 @0xd
0x0436…0446 at000e = ╱52╱R╱ // 0x444 @0xe
0x0436…0446 at000f = EOL // 0x445 @0xf
0x0436…0446 }
0x0446…045f 9a4d 0350 INTEGER OK,TRUE,FALSE,I,J,K
0x0446…045f LineComal80 {
0x0446…045f ptr = 0x9a4d // 0x446 @0x0
0x0446…045f lno = 0x015e // 0x448 @0x2
0x0446…045f at0004 = ╱b2╱ INTEGER ╱ // 0x44a @0x4
0x0446…045f at0005 = ╱4f╱O╱ // 0x44b @0x5
0x0446…045f at0006 = ╱4b╱K╱ // 0x44c @0x6
0x0446…045f at0007 = ╱ec╱,╱ // 0x44d @0x7
0x0446…045f at0008 = ╱54╱T╱ // 0x44e @0x8
0x0446…045f at0009 = ╱52╱R╱ // 0x44f @0x9
0x0446…045f at000a = ╱55╱U╱ // 0x450 @0xa
0x0446…045f at000b = ╱45╱E╱ // 0x451 @0xb
0x0446…045f at000c = ╱ec╱,╱ // 0x452 @0xc
0x0446…045f at000d = ╱46╱F╱ // 0x453 @0xd
0x0446…045f at000e = ╱41╱A╱ // 0x454 @0xe
0x0446…045f at000f = ╱4c╱L╱ // 0x455 @0xf
0x0446…045f at0010 = ╱53╱S╱ // 0x456 @0x10
0x0446…045f at0011 = ╱45╱E╱ // 0x457 @0x11
0x0446…045f at0012 = ╱ec╱,╱ // 0x458 @0x12
0x0446…045f at0013 = ╱49╱I╱ // 0x459 @0x13
0x0446…045f at0014 = ╱ec╱,╱ // 0x45a @0x14
0x0446…045f at0015 = ╱4a╱J╱ // 0x45b @0x15
0x0446…045f at0016 = ╱ec╱,╱ // 0x45c @0x16
0x0446…045f at0017 = ╱4b╱K╱ // 0x45d @0x17
0x0446…045f at0018 = EOL // 0x45e @0x18
0x0446…045f }
0x045f…0473 9a61 0360 // Hjælpevariable
0x045f…0473 LineComal80 {
0x045f…0473 ptr = 0x9a61 // 0x45f @0x0
0x045f…0473 lno = 0x0168 // 0x461 @0x2
0x045f…0473 at0004 = ╱89╱ // ╱ // 0x463 @0x4
0x045f…0473 at0005 = ╱48╱H╱ // 0x464 @0x5
0x045f…0473 at0006 = ╱6a╱j╱ // 0x465 @0x6
0x045f…0473 at0007 = ╱7b╱æ╱ // 0x466 @0x7
0x045f…0473 at0008 = ╱6c╱l╱ // 0x467 @0x8
0x045f…0473 at0009 = ╱70╱p╱ // 0x468 @0x9
0x045f…0473 at000a = ╱65╱e╱ // 0x469 @0xa
0x045f…0473 at000b = ╱76╱v╱ // 0x46a @0xb
0x045f…0473 at000c = ╱61╱a╱ // 0x46b @0xc
0x045f…0473 at000d = ╱72╱r╱ // 0x46c @0xd
0x045f…0473 at000e = ╱69╱i╱ // 0x46d @0xe
0x045f…0473 at000f = ╱61╱a╱ // 0x46e @0xf
0x045f…0473 at0010 = ╱62╱b╱ // 0x46f @0x10
0x045f…0473 at0011 = ╱6c╱l╱ // 0x470 @0x11
0x045f…0473 at0012 = ╱65╱e╱ // 0x471 @0x12
0x045f…0473 at0013 = EOL // 0x472 @0x13
0x045f…0473 }
0x0473…049e 9a8c 0370 DIM A_KTONR$ OF 8,HJ_ST$ OF 10,KODE$ OF 1
0x0473…049e LineComal80 {
0x0473…049e ptr = 0x9a8c // 0x473 @0x0
0x0473…049e lno = 0x0172 // 0x475 @0x2
0x0473…049e at0004 = ╱87╱ DIM ╱ // 0x477 @0x4
0x0473…049e at0005 = ╱41╱A╱ // 0x478 @0x5
0x0473…049e at0006 = ╱5f╱_╱ // 0x479 @0x6
0x0473…049e at0007 = ╱4b╱K╱ // 0x47a @0x7
0x0473…049e at0008 = ╱54╱T╱ // 0x47b @0x8
0x0473…049e at0009 = ╱4f╱O╱ // 0x47c @0x9
0x0473…049e at000a = ╱4e╱N╱ // 0x47d @0xa
0x0473…049e at000b = ╱52╱R╱ // 0x47e @0xb
0x0473…049e at000c = ╱ef╱$╱ // 0x47f @0xc
0x0473…049e at000d = ╱ba╱ OF ╱ // 0x480 @0xd
0x0473…049e at000e = ╱38╱8╱ // 0x481 @0xe
0x0473…049e at000f = ╱f20800╱ // 0x482 @0xf
0x0473…049e at0012 = ╱ec╱,╱ // 0x485 @0x12
0x0473…049e at0013 = ╱48╱H╱ // 0x486 @0x13
0x0473…049e at0014 = ╱4a╱J╱ // 0x487 @0x14
0x0473…049e at0015 = ╱5f╱_╱ // 0x488 @0x15
0x0473…049e at0016 = ╱53╱S╱ // 0x489 @0x16
0x0473…049e at0017 = ╱54╱T╱ // 0x48a @0x17
0x0473…049e at0018 = ╱ef╱$╱ // 0x48b @0x18
0x0473…049e at0019 = ╱ba╱ OF ╱ // 0x48c @0x19
0x0473…049e at001a = ╱31╱1╱ // 0x48d @0x1a
0x0473…049e at001b = ╱30╱0╱ // 0x48e @0x1b
0x0473…049e at001c = ╱f20a00╱ // 0x48f @0x1c
0x0473…049e at001f = ╱ec╱,╱ // 0x492 @0x1f
0x0473…049e at0020 = ╱4b╱K╱ // 0x493 @0x20
0x0473…049e at0021 = ╱4f╱O╱ // 0x494 @0x21
0x0473…049e at0022 = ╱44╱D╱ // 0x495 @0x22
0x0473…049e at0023 = ╱45╱E╱ // 0x496 @0x23
0x0473…049e at0024 = ╱ef╱$╱ // 0x497 @0x24
0x0473…049e at0025 = ╱ba╱ OF ╱ // 0x498 @0x25
0x0473…049e at0026 = ╱31╱1╱ // 0x499 @0x26
0x0473…049e at0027 = ╱f20100╱ // 0x49a @0x27
0x0473…049e at002a = EOL // 0x49d @0x2a
0x0473…049e }
0x049e…04b7 9aa5 0380 INTEGER POS,HIGH,LOW,IDXPOS
0x049e…04b7 LineComal80 {
0x049e…04b7 ptr = 0x9aa5 // 0x49e @0x0
0x049e…04b7 lno = 0x017c // 0x4a0 @0x2
0x049e…04b7 at0004 = ╱b2╱ INTEGER ╱ // 0x4a2 @0x4
0x049e…04b7 at0005 = ╱50╱P╱ // 0x4a3 @0x5
0x049e…04b7 at0006 = ╱4f╱O╱ // 0x4a4 @0x6
0x049e…04b7 at0007 = ╱53╱S╱ // 0x4a5 @0x7
0x049e…04b7 at0008 = ╱ec╱,╱ // 0x4a6 @0x8
0x049e…04b7 at0009 = ╱48╱H╱ // 0x4a7 @0x9
0x049e…04b7 at000a = ╱49╱I╱ // 0x4a8 @0xa
0x049e…04b7 at000b = ╱47╱G╱ // 0x4a9 @0xb
0x049e…04b7 at000c = ╱48╱H╱ // 0x4aa @0xc
0x049e…04b7 at000d = ╱ec╱,╱ // 0x4ab @0xd
0x049e…04b7 at000e = ╱4c╱L╱ // 0x4ac @0xe
0x049e…04b7 at000f = ╱4f╱O╱ // 0x4ad @0xf
0x049e…04b7 at0010 = ╱57╱W╱ // 0x4ae @0x10
0x049e…04b7 at0011 = ╱ec╱,╱ // 0x4af @0x11
0x049e…04b7 at0012 = ╱49╱I╱ // 0x4b0 @0x12
0x049e…04b7 at0013 = ╱44╱D╱ // 0x4b1 @0x13
0x049e…04b7 at0014 = ╱58╱X╱ // 0x4b2 @0x14
0x049e…04b7 at0015 = ╱50╱P╱ // 0x4b3 @0x15
0x049e…04b7 at0016 = ╱4f╱O╱ // 0x4b4 @0x16
0x049e…04b7 at0017 = ╱53╱S╱ // 0x4b5 @0x17
0x049e…04b7 at0018 = EOL // 0x4b6 @0x18
0x049e…04b7 }
0x04b7…04d7 9ac5 0390 // Variable til filen SYSPARA
0x04b7…04d7 LineComal80 {
0x04b7…04d7 ptr = 0x9ac5 // 0x4b7 @0x0
0x04b7…04d7 lno = 0x0186 // 0x4b9 @0x2
0x04b7…04d7 at0004 = ╱89╱ // ╱ // 0x4bb @0x4
0x04b7…04d7 at0005 = ╱56╱V╱ // 0x4bc @0x5
0x04b7…04d7 at0006 = ╱61╱a╱ // 0x4bd @0x6
0x04b7…04d7 at0007 = ╱72╱r╱ // 0x4be @0x7
0x04b7…04d7 at0008 = ╱69╱i╱ // 0x4bf @0x8
0x04b7…04d7 at0009 = ╱61╱a╱ // 0x4c0 @0x9
0x04b7…04d7 at000a = ╱62╱b╱ // 0x4c1 @0xa
0x04b7…04d7 at000b = ╱6c╱l╱ // 0x4c2 @0xb
0x04b7…04d7 at000c = ╱65╱e╱ // 0x4c3 @0xc
0x04b7…04d7 at000d = ╱20╱…╱ // 0x4c4 @0xd
0x04b7…04d7 at000e = ╱74╱t╱ // 0x4c5 @0xe
0x04b7…04d7 at000f = ╱69╱i╱ // 0x4c6 @0xf
0x04b7…04d7 at0010 = ╱6c╱l╱ // 0x4c7 @0x10
0x04b7…04d7 at0011 = ╱20╱…╱ // 0x4c8 @0x11
0x04b7…04d7 at0012 = ╱66╱f╱ // 0x4c9 @0x12
0x04b7…04d7 at0013 = ╱69╱i╱ // 0x4ca @0x13
0x04b7…04d7 at0014 = ╱6c╱l╱ // 0x4cb @0x14
0x04b7…04d7 at0015 = ╱65╱e╱ // 0x4cc @0x15
0x04b7…04d7 at0016 = ╱6e╱n╱ // 0x4cd @0x16
0x04b7…04d7 at0017 = ╱20╱…╱ // 0x4ce @0x17
0x04b7…04d7 at0018 = ╱53╱S╱ // 0x4cf @0x18
0x04b7…04d7 at0019 = ╱59╱Y╱ // 0x4d0 @0x19
0x04b7…04d7 at001a = ╱53╱S╱ // 0x4d1 @0x1a
0x04b7…04d7 at001b = ╱50╱P╱ // 0x4d2 @0x1b
0x04b7…04d7 at001c = ╱41╱A╱ // 0x4d3 @0x1c
0x04b7…04d7 at001d = ╱52╱R╱ // 0x4d4 @0x1d
0x04b7…04d7 at001e = ╱41╱A╱ // 0x4d5 @0x1e
0x04b7…04d7 at001f = EOL // 0x4d6 @0x1f
0x04b7…04d7 }
0x04d7…04eb 9ad9 0400 DIM SYSPARA$ OF 17
0x04d7…04eb LineComal80 {
0x04d7…04eb ptr = 0x9ad9 // 0x4d7 @0x0
0x04d7…04eb lno = 0x0190 // 0x4d9 @0x2
0x04d7…04eb at0004 = ╱87╱ DIM ╱ // 0x4db @0x4
0x04d7…04eb at0005 = ╱53╱S╱ // 0x4dc @0x5
0x04d7…04eb at0006 = ╱59╱Y╱ // 0x4dd @0x6
0x04d7…04eb at0007 = ╱53╱S╱ // 0x4de @0x7
0x04d7…04eb at0008 = ╱50╱P╱ // 0x4df @0x8
0x04d7…04eb at0009 = ╱41╱A╱ // 0x4e0 @0x9
0x04d7…04eb at000a = ╱52╱R╱ // 0x4e1 @0xa
0x04d7…04eb at000b = ╱41╱A╱ // 0x4e2 @0xb
0x04d7…04eb at000c = ╱ef╱$╱ // 0x4e3 @0xc
0x04d7…04eb at000d = ╱ba╱ OF ╱ // 0x4e4 @0xd
0x04d7…04eb at000e = ╱31╱1╱ // 0x4e5 @0xe
0x04d7…04eb at000f = ╱37╱7╱ // 0x4e6 @0xf
0x04d7…04eb at0010 = ╱f21100╱ // 0x4e7 @0x10
0x04d7…04eb at0013 = EOL // 0x4ea @0x13
0x04d7…04eb }
0x04eb…050e 9afc 0410 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0x04eb…050e LineComal80 {
0x04eb…050e ptr = 0x9afc // 0x4eb @0x0
0x04eb…050e lno = 0x019a // 0x4ed @0x2
0x04eb…050e at0004 = ╱87╱ DIM ╱ // 0x4ef @0x4
0x04eb…050e at0005 = ╱53╱S╱ // 0x4f0 @0x5
0x04eb…050e at0006 = ╱59╱Y╱ // 0x4f1 @0x6
0x04eb…050e at0007 = ╱53╱S╱ // 0x4f2 @0x7
0x04eb…050e at0008 = ╱54╱T╱ // 0x4f3 @0x8
0x04eb…050e at0009 = ╱5f╱_╱ // 0x4f4 @0x9
0x04eb…050e at000a = ╱4e╱N╱ // 0x4f5 @0xa
0x04eb…050e at000b = ╱41╱A╱ // 0x4f6 @0xb
0x04eb…050e at000c = ╱56╱V╱ // 0x4f7 @0xc
0x04eb…050e at000d = ╱4e╱N╱ // 0x4f8 @0xd
0x04eb…050e at000e = ╱ef╱$╱ // 0x4f9 @0xe
0x04eb…050e at000f = ╱ba╱ OF ╱ // 0x4fa @0xf
0x04eb…050e at0010 = ╱33╱3╱ // 0x4fb @0x10
0x04eb…050e at0011 = ╱30╱0╱ // 0x4fc @0x11
0x04eb…050e at0012 = ╱f21e00╱ // 0x4fd @0x12
0x04eb…050e at0015 = ╱ec╱,╱ // 0x500 @0x15
0x04eb…050e at0016 = ╱53╱S╱ // 0x501 @0x16
0x04eb…050e at0017 = ╱5f╱_╱ // 0x502 @0x17
0x04eb…050e at0018 = ╱4b╱K╱ // 0x503 @0x18
0x04eb…050e at0019 = ╱4f╱O╱ // 0x504 @0x19
0x04eb…050e at001a = ╱44╱D╱ // 0x505 @0x1a
0x04eb…050e at001b = ╱45╱E╱ // 0x506 @0x1b
0x04eb…050e at001c = ╱ef╱$╱ // 0x507 @0x1c
0x04eb…050e at001d = ╱ba╱ OF ╱ // 0x508 @0x1d
0x04eb…050e at001e = ╱31╱1╱ // 0x509 @0x1e
0x04eb…050e at001f = ╱f20100╱ // 0x50a @0x1f
0x04eb…050e at0022 = EOL // 0x50d @0x22
0x04eb…050e }
0x050e…052d 9b1b 0420 DIM DATAFL$ OF 8,T_KODE$ OF 1
0x050e…052d LineComal80 {
0x050e…052d ptr = 0x9b1b // 0x50e @0x0
0x050e…052d lno = 0x01a4 // 0x510 @0x2
0x050e…052d at0004 = ╱87╱ DIM ╱ // 0x512 @0x4
0x050e…052d at0005 = ╱44╱D╱ // 0x513 @0x5
0x050e…052d at0006 = ╱41╱A╱ // 0x514 @0x6
0x050e…052d at0007 = ╱54╱T╱ // 0x515 @0x7
0x050e…052d at0008 = ╱41╱A╱ // 0x516 @0x8
0x050e…052d at0009 = ╱46╱F╱ // 0x517 @0x9
0x050e…052d at000a = ╱4c╱L╱ // 0x518 @0xa
0x050e…052d at000b = ╱ef╱$╱ // 0x519 @0xb
0x050e…052d at000c = ╱ba╱ OF ╱ // 0x51a @0xc
0x050e…052d at000d = ╱38╱8╱ // 0x51b @0xd
0x050e…052d at000e = ╱f20800╱ // 0x51c @0xe
0x050e…052d at0011 = ╱ec╱,╱ // 0x51f @0x11
0x050e…052d at0012 = ╱54╱T╱ // 0x520 @0x12
0x050e…052d at0013 = ╱5f╱_╱ // 0x521 @0x13
0x050e…052d at0014 = ╱4b╱K╱ // 0x522 @0x14
0x050e…052d at0015 = ╱4f╱O╱ // 0x523 @0x15
0x050e…052d at0016 = ╱44╱D╱ // 0x524 @0x16
0x050e…052d at0017 = ╱45╱E╱ // 0x525 @0x17
0x050e…052d at0018 = ╱ef╱$╱ // 0x526 @0x18
0x050e…052d at0019 = ╱ba╱ OF ╱ // 0x527 @0x19
0x050e…052d at001a = ╱31╱1╱ // 0x528 @0x1a
0x050e…052d at001b = ╱f20100╱ // 0x529 @0x1b
0x050e…052d at001e = EOL // 0x52c @0x1e
0x050e…052d }
0x052d…054d 9b3b 0430 // Variable til filen @@PARAM
0x052d…054d LineComal80 {
0x052d…054d ptr = 0x9b3b // 0x52d @0x0
0x052d…054d lno = 0x01ae // 0x52f @0x2
0x052d…054d at0004 = ╱89╱ // ╱ // 0x531 @0x4
0x052d…054d at0005 = ╱56╱V╱ // 0x532 @0x5
0x052d…054d at0006 = ╱61╱a╱ // 0x533 @0x6
0x052d…054d at0007 = ╱72╱r╱ // 0x534 @0x7
0x052d…054d at0008 = ╱69╱i╱ // 0x535 @0x8
0x052d…054d at0009 = ╱61╱a╱ // 0x536 @0x9
0x052d…054d at000a = ╱62╱b╱ // 0x537 @0xa
0x052d…054d at000b = ╱6c╱l╱ // 0x538 @0xb
0x052d…054d at000c = ╱65╱e╱ // 0x539 @0xc
0x052d…054d at000d = ╱20╱…╱ // 0x53a @0xd
0x052d…054d at000e = ╱74╱t╱ // 0x53b @0xe
0x052d…054d at000f = ╱69╱i╱ // 0x53c @0xf
0x052d…054d at0010 = ╱6c╱l╱ // 0x53d @0x10
0x052d…054d at0011 = ╱20╱…╱ // 0x53e @0x11
0x052d…054d at0012 = ╱66╱f╱ // 0x53f @0x12
0x052d…054d at0013 = ╱69╱i╱ // 0x540 @0x13
0x052d…054d at0014 = ╱6c╱l╱ // 0x541 @0x14
0x052d…054d at0015 = ╱65╱e╱ // 0x542 @0x15
0x052d…054d at0016 = ╱6e╱n╱ // 0x543 @0x16
0x052d…054d at0017 = ╱20╱…╱ // 0x544 @0x17
0x052d…054d at0018 = ╱40╱@╱ // 0x545 @0x18
0x052d…054d at0019 = ╱40╱@╱ // 0x546 @0x19
0x052d…054d at001a = ╱50╱P╱ // 0x547 @0x1a
0x052d…054d at001b = ╱41╱A╱ // 0x548 @0x1b
0x052d…054d at001c = ╱52╱R╱ // 0x549 @0x1c
0x052d…054d at001d = ╱41╱A╱ // 0x54a @0x1d
0x052d…054d at001e = ╱4d╱M╱ // 0x54b @0x1e
0x052d…054d at001f = EOL // 0x54c @0x1f
0x052d…054d }
0x054d…055f 9b4d 0440 DIM PARAM$ OF 17
0x054d…055f LineComal80 {
0x054d…055f ptr = 0x9b4d // 0x54d @0x0
0x054d…055f lno = 0x01b8 // 0x54f @0x2
0x054d…055f at0004 = ╱87╱ DIM ╱ // 0x551 @0x4
0x054d…055f at0005 = ╱50╱P╱ // 0x552 @0x5
0x054d…055f at0006 = ╱41╱A╱ // 0x553 @0x6
0x054d…055f at0007 = ╱52╱R╱ // 0x554 @0x7
0x054d…055f at0008 = ╱41╱A╱ // 0x555 @0x8
0x054d…055f at0009 = ╱4d╱M╱ // 0x556 @0x9
0x054d…055f at000a = ╱ef╱$╱ // 0x557 @0xa
0x054d…055f at000b = ╱ba╱ OF ╱ // 0x558 @0xb
0x054d…055f at000c = ╱31╱1╱ // 0x559 @0xc
0x054d…055f at000d = ╱37╱7╱ // 0x55a @0xd
0x054d…055f at000e = ╱f21100╱ // 0x55b @0xe
0x054d…055f at0011 = EOL // 0x55e @0x11
0x054d…055f }
0x055f…0584 9b72 0450 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 8
0x055f…0584 LineComal80 {
0x055f…0584 ptr = 0x9b72 // 0x55f @0x0
0x055f…0584 lno = 0x01c2 // 0x561 @0x2
0x055f…0584 at0004 = ╱87╱ DIM ╱ // 0x563 @0x4
0x055f…0584 at0005 = ╱46╱F╱ // 0x564 @0x5
0x055f…0584 at0006 = ╱49╱I╱ // 0x565 @0x6
0x055f…0584 at0007 = ╱52╱R╱ // 0x566 @0x7
0x055f…0584 at0008 = ╱4d╱M╱ // 0x567 @0x8
0x055f…0584 at0009 = ╱41╱A╱ // 0x568 @0x9
0x055f…0584 at000a = ╱4e╱N╱ // 0x569 @0xa
0x055f…0584 at000b = ╱41╱A╱ // 0x56a @0xb
0x055f…0584 at000c = ╱56╱V╱ // 0x56b @0xc
0x055f…0584 at000d = ╱4e╱N╱ // 0x56c @0xd
0x055f…0584 at000e = ╱ef╱$╱ // 0x56d @0xe
0x055f…0584 at000f = ╱ba╱ OF ╱ // 0x56e @0xf
0x055f…0584 at0010 = ╱33╱3╱ // 0x56f @0x10
0x055f…0584 at0011 = ╱30╱0╱ // 0x570 @0x11
0x055f…0584 at0012 = ╱f21e00╱ // 0x571 @0x12
0x055f…0584 at0015 = ╱ec╱,╱ // 0x574 @0x15
0x055f…0584 at0016 = ╱53╱S╱ // 0x575 @0x16
0x055f…0584 at0017 = ╱59╱Y╱ // 0x576 @0x17
0x055f…0584 at0018 = ╱53╱S╱ // 0x577 @0x18
0x055f…0584 at0019 = ╱54╱T╱ // 0x578 @0x19
0x055f…0584 at001a = ╱5f╱_╱ // 0x579 @0x1a
0x055f…0584 at001b = ╱44╱D╱ // 0x57a @0x1b
0x055f…0584 at001c = ╱41╱A╱ // 0x57b @0x1c
0x055f…0584 at001d = ╱54╱T╱ // 0x57c @0x1d
0x055f…0584 at001e = ╱ef╱$╱ // 0x57d @0x1e
0x055f…0584 at001f = ╱ba╱ OF ╱ // 0x57e @0x1f
0x055f…0584 at0020 = ╱38╱8╱ // 0x57f @0x20
0x055f…0584 at0021 = ╱f20800╱ // 0x580 @0x21
0x055f…0584 at0024 = EOL // 0x583 @0x24
0x055f…0584 }
0x0584…058e 9b7c 0460 REAL MOMS
0x0584…058e LineComal80 {
0x0584…058e ptr = 0x9b7c // 0x584 @0x0
0x0584…058e lno = 0x01cc // 0x586 @0x2
0x0584…058e at0004 = ╱b3╱ REAL ╱ // 0x588 @0x4
0x0584…058e at0005 = ╱4d╱M╱ // 0x589 @0x5
0x0584…058e at0006 = ╱4f╱O╱ // 0x58a @0x6
0x0584…058e at0007 = ╱4d╱M╱ // 0x58b @0x7
0x0584…058e at0008 = ╱53╱S╱ // 0x58c @0x8
0x0584…058e at0009 = EOL // 0x58d @0x9
0x0584…058e }
0x058e…05ae 9b9c 0470 // Variable til filen @@KONTO
0x058e…05ae LineComal80 {
0x058e…05ae ptr = 0x9b9c // 0x58e @0x0
0x058e…05ae lno = 0x01d6 // 0x590 @0x2
0x058e…05ae at0004 = ╱89╱ // ╱ // 0x592 @0x4
0x058e…05ae at0005 = ╱56╱V╱ // 0x593 @0x5
0x058e…05ae at0006 = ╱61╱a╱ // 0x594 @0x6
0x058e…05ae at0007 = ╱72╱r╱ // 0x595 @0x7
0x058e…05ae at0008 = ╱69╱i╱ // 0x596 @0x8
0x058e…05ae at0009 = ╱61╱a╱ // 0x597 @0x9
0x058e…05ae at000a = ╱62╱b╱ // 0x598 @0xa
0x058e…05ae at000b = ╱6c╱l╱ // 0x599 @0xb
0x058e…05ae at000c = ╱65╱e╱ // 0x59a @0xc
0x058e…05ae at000d = ╱20╱…╱ // 0x59b @0xd
0x058e…05ae at000e = ╱74╱t╱ // 0x59c @0xe
0x058e…05ae at000f = ╱69╱i╱ // 0x59d @0xf
0x058e…05ae at0010 = ╱6c╱l╱ // 0x59e @0x10
0x058e…05ae at0011 = ╱20╱…╱ // 0x59f @0x11
0x058e…05ae at0012 = ╱66╱f╱ // 0x5a0 @0x12
0x058e…05ae at0013 = ╱69╱i╱ // 0x5a1 @0x13
0x058e…05ae at0014 = ╱6c╱l╱ // 0x5a2 @0x14
0x058e…05ae at0015 = ╱65╱e╱ // 0x5a3 @0x15
0x058e…05ae at0016 = ╱6e╱n╱ // 0x5a4 @0x16
0x058e…05ae at0017 = ╱20╱…╱ // 0x5a5 @0x17
0x058e…05ae at0018 = ╱40╱@╱ // 0x5a6 @0x18
0x058e…05ae at0019 = ╱40╱@╱ // 0x5a7 @0x19
0x058e…05ae at001a = ╱4b╱K╱ // 0x5a8 @0x1a
0x058e…05ae at001b = ╱4f╱O╱ // 0x5a9 @0x1b
0x058e…05ae at001c = ╱4e╱N╱ // 0x5aa @0x1c
0x058e…05ae at001d = ╱54╱T╱ // 0x5ab @0x1d
0x058e…05ae at001e = ╱4f╱O╱ // 0x5ac @0x1e
0x058e…05ae at001f = EOL // 0x5ad @0x1f
0x058e…05ae }
0x05ae…05c0 9bae 0480 DIM KONTO$ OF 17
0x05ae…05c0 LineComal80 {
0x05ae…05c0 ptr = 0x9bae // 0x5ae @0x0
0x05ae…05c0 lno = 0x01e0 // 0x5b0 @0x2
0x05ae…05c0 at0004 = ╱87╱ DIM ╱ // 0x5b2 @0x4
0x05ae…05c0 at0005 = ╱4b╱K╱ // 0x5b3 @0x5
0x05ae…05c0 at0006 = ╱4f╱O╱ // 0x5b4 @0x6
0x05ae…05c0 at0007 = ╱4e╱N╱ // 0x5b5 @0x7
0x05ae…05c0 at0008 = ╱54╱T╱ // 0x5b6 @0x8
0x05ae…05c0 at0009 = ╱4f╱O╱ // 0x5b7 @0x9
0x05ae…05c0 at000a = ╱ef╱$╱ // 0x5b8 @0xa
0x05ae…05c0 at000b = ╱ba╱ OF ╱ // 0x5b9 @0xb
0x05ae…05c0 at000c = ╱31╱1╱ // 0x5ba @0xc
0x05ae…05c0 at000d = ╱37╱7╱ // 0x5bb @0xd
0x05ae…05c0 at000e = ╱f21100╱ // 0x5bc @0xe
0x05ae…05c0 at0011 = EOL // 0x5bf @0x11
0x05ae…05c0 }
0x05c0…05d3 9bc1 0490 DIM ST_DATO$ OF 6
0x05c0…05d3 LineComal80 {
0x05c0…05d3 ptr = 0x9bc1 // 0x5c0 @0x0
0x05c0…05d3 lno = 0x01ea // 0x5c2 @0x2
0x05c0…05d3 at0004 = ╱87╱ DIM ╱ // 0x5c4 @0x4
0x05c0…05d3 at0005 = ╱53╱S╱ // 0x5c5 @0x5
0x05c0…05d3 at0006 = ╱54╱T╱ // 0x5c6 @0x6
0x05c0…05d3 at0007 = ╱5f╱_╱ // 0x5c7 @0x7
0x05c0…05d3 at0008 = ╱44╱D╱ // 0x5c8 @0x8
0x05c0…05d3 at0009 = ╱41╱A╱ // 0x5c9 @0x9
0x05c0…05d3 at000a = ╱54╱T╱ // 0x5ca @0xa
0x05c0…05d3 at000b = ╱4f╱O╱ // 0x5cb @0xb
0x05c0…05d3 at000c = ╱ef╱$╱ // 0x5cc @0xc
0x05c0…05d3 at000d = ╱ba╱ OF ╱ // 0x5cd @0xd
0x05c0…05d3 at000e = ╱36╱6╱ // 0x5ce @0xe
0x05c0…05d3 at000f = ╱f20600╱ // 0x5cf @0xf
0x05c0…05d3 at0012 = EOL // 0x5d2 @0x12
0x05c0…05d3 }
0x05d3…05f9 9be7 0500 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0x05d3…05f9 LineComal80 {
0x05d3…05f9 ptr = 0x9be7 // 0x5d3 @0x0
0x05d3…05f9 lno = 0x01f4 // 0x5d5 @0x2
0x05d3…05f9 at0004 = ╱b2╱ INTEGER ╱ // 0x5d7 @0x4
0x05d3…05f9 at0005 = ╱4e╱N╱ // 0x5d8 @0x5
0x05d3…05f9 at0006 = ╱5f╱_╱ // 0x5d9 @0x6
0x05d3…05f9 at0007 = ╱46╱F╱ // 0x5da @0x7
0x05d3…05f9 at0008 = ╱52╱R╱ // 0x5db @0x8
0x05d3…05f9 at0009 = ╱49╱I╱ // 0x5dc @0x9
0x05d3…05f9 at000a = ╱52╱R╱ // 0x5dd @0xa
0x05d3…05f9 at000b = ╱45╱E╱ // 0x5de @0xb
0x05d3…05f9 at000c = ╱43╱C╱ // 0x5df @0xc
0x05d3…05f9 at000d = ╱ec╱,╱ // 0x5e0 @0xd
0x05d3…05f9 at000e = ╱4e╱N╱ // 0x5e1 @0xe
0x05d3…05f9 at000f = ╱5f╱_╱ // 0x5e2 @0xf
0x05d3…05f9 at0010 = ╱4d╱M╱ // 0x5e3 @0x10
0x05d3…05f9 at0011 = ╱41╱A╱ // 0x5e4 @0x11
0x05d3…05f9 at0012 = ╱58╱X╱ // 0x5e5 @0x12
0x05d3…05f9 at0013 = ╱52╱R╱ // 0x5e6 @0x13
0x05d3…05f9 at0014 = ╱45╱E╱ // 0x5e7 @0x14
0x05d3…05f9 at0015 = ╱43╱C╱ // 0x5e8 @0x15
0x05d3…05f9 at0016 = ╱ec╱,╱ // 0x5e9 @0x16
0x05d3…05f9 at0017 = ╱41╱A╱ // 0x5ea @0x17
0x05d3…05f9 at0018 = ╱4e╱N╱ // 0x5eb @0x18
0x05d3…05f9 at0019 = ╱54╱T╱ // 0x5ec @0x19
0x05d3…05f9 at001a = ╱5f╱_╱ // 0x5ed @0x1a
0x05d3…05f9 at001b = ╱50╱P╱ // 0x5ee @0x1b
0x05d3…05f9 at001c = ╱45╱E╱ // 0x5ef @0x1c
0x05d3…05f9 at001d = ╱52╱R╱ // 0x5f0 @0x1d
0x05d3…05f9 at001e = ╱ec╱,╱ // 0x5f1 @0x1e
0x05d3…05f9 at001f = ╱50╱P╱ // 0x5f2 @0x1f
0x05d3…05f9 at0020 = ╱45╱E╱ // 0x5f3 @0x20
0x05d3…05f9 at0021 = ╱52╱R╱ // 0x5f4 @0x21
0x05d3…05f9 at0022 = ╱5f╱_╱ // 0x5f5 @0x22
0x05d3…05f9 at0023 = ╱4e╱N╱ // 0x5f6 @0x23
0x05d3…05f9 at0024 = ╱52╱R╱ // 0x5f7 @0x24
0x05d3…05f9 at0025 = EOL // 0x5f8 @0x25
0x05d3…05f9 }
0x05f9…061d 9c0b 0510 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0x05f9…061d LineComal80 {
0x05f9…061d ptr = 0x9c0b // 0x5f9 @0x0
0x05f9…061d lno = 0x01fe // 0x5fb @0x2
0x05f9…061d at0004 = ╱87╱ DIM ╱ // 0x5fd @0x4
0x05f9…061d at0005 = ╱4b╱K╱ // 0x5fe @0x5
0x05f9…061d at0006 = ╱54╱T╱ // 0x5ff @0x6
0x05f9…061d at0007 = ╱4f╱O╱ // 0x600 @0x7
0x05f9…061d at0008 = ╱5f╱_╱ // 0x601 @0x8
0x05f9…061d at0009 = ╱54╱T╱ // 0x602 @0x9
0x05f9…061d at000a = ╱59╱Y╱ // 0x603 @0xa
0x05f9…061d at000b = ╱50╱P╱ // 0x604 @0xb
0x05f9…061d at000c = ╱45╱E╱ // 0x605 @0xc
0x05f9…061d at000d = ╱ef╱$╱ // 0x606 @0xd
0x05f9…061d at000e = ╱ba╱ OF ╱ // 0x607 @0xe
0x05f9…061d at000f = ╱31╱1╱ // 0x608 @0xf
0x05f9…061d at0010 = ╱f20100╱ // 0x609 @0x10
0x05f9…061d at0013 = ╱ec╱,╱ // 0x60c @0x13
0x05f9…061d at0014 = ╱4b╱K╱ // 0x60d @0x14
0x05f9…061d at0015 = ╱54╱T╱ // 0x60e @0x15
0x05f9…061d at0016 = ╱4f╱O╱ // 0x60f @0x16
0x05f9…061d at0017 = ╱5f╱_╱ // 0x610 @0x17
0x05f9…061d at0018 = ╱4e╱N╱ // 0x611 @0x18
0x05f9…061d at0019 = ╱41╱A╱ // 0x612 @0x19
0x05f9…061d at001a = ╱56╱V╱ // 0x613 @0x1a
0x05f9…061d at001b = ╱4e╱N╱ // 0x614 @0x1b
0x05f9…061d at001c = ╱ef╱$╱ // 0x615 @0x1c
0x05f9…061d at001d = ╱ba╱ OF ╱ // 0x616 @0x1d
0x05f9…061d at001e = ╱34╱4╱ // 0x617 @0x1e
0x05f9…061d at001f = ╱30╱0╱ // 0x618 @0x1f
0x05f9…061d at0020 = ╱f22800╱ // 0x619 @0x20
0x05f9…061d at0023 = EOL // 0x61c @0x23
0x05f9…061d }
0x061d…0637 9c25 0520 REAL KTO_PRIMO,KTO_ULTIMO
0x061d…0637 LineComal80 {
0x061d…0637 ptr = 0x9c25 // 0x61d @0x0
0x061d…0637 lno = 0x0208 // 0x61f @0x2
0x061d…0637 at0004 = ╱b3╱ REAL ╱ // 0x621 @0x4
0x061d…0637 at0005 = ╱4b╱K╱ // 0x622 @0x5
0x061d…0637 at0006 = ╱54╱T╱ // 0x623 @0x6
0x061d…0637 at0007 = ╱4f╱O╱ // 0x624 @0x7
0x061d…0637 at0008 = ╱5f╱_╱ // 0x625 @0x8
0x061d…0637 at0009 = ╱50╱P╱ // 0x626 @0x9
0x061d…0637 at000a = ╱52╱R╱ // 0x627 @0xa
0x061d…0637 at000b = ╱49╱I╱ // 0x628 @0xb
0x061d…0637 at000c = ╱4d╱M╱ // 0x629 @0xc
0x061d…0637 at000d = ╱4f╱O╱ // 0x62a @0xd
0x061d…0637 at000e = ╱ec╱,╱ // 0x62b @0xe
0x061d…0637 at000f = ╱4b╱K╱ // 0x62c @0xf
0x061d…0637 at0010 = ╱54╱T╱ // 0x62d @0x10
0x061d…0637 at0011 = ╱4f╱O╱ // 0x62e @0x11
0x061d…0637 at0012 = ╱5f╱_╱ // 0x62f @0x12
0x061d…0637 at0013 = ╱55╱U╱ // 0x630 @0x13
0x061d…0637 at0014 = ╱4c╱L╱ // 0x631 @0x14
0x061d…0637 at0015 = ╱54╱T╱ // 0x632 @0x15
0x061d…0637 at0016 = ╱49╱I╱ // 0x633 @0x16
0x061d…0637 at0017 = ╱4d╱M╱ // 0x634 @0x17
0x061d…0637 at0018 = ╱4f╱O╱ // 0x635 @0x18
0x061d…0637 at0019 = EOL // 0x636 @0x19
0x061d…0637 }
0x0637…064a 9c38 0530 INTEGER KTO_FP,KTO_SP
0x0637…064a LineComal80 {
0x0637…064a ptr = 0x9c38 // 0x637 @0x0
0x0637…064a lno = 0x0212 // 0x639 @0x2
0x0637…064a at0004 = ╱b2╱ INTEGER ╱ // 0x63b @0x4
0x0637…064a at0005 = ╱4b╱K╱ // 0x63c @0x5
0x0637…064a at0006 = ╱54╱T╱ // 0x63d @0x6
0x0637…064a at0007 = ╱4f╱O╱ // 0x63e @0x7
0x0637…064a at0008 = ╱5f╱_╱ // 0x63f @0x8
0x0637…064a at0009 = ╱46╱F╱ // 0x640 @0x9
0x0637…064a at000a = ╱50╱P╱ // 0x641 @0xa
0x0637…064a at000b = ╱ec╱,╱ // 0x642 @0xb
0x0637…064a at000c = ╱4b╱K╱ // 0x643 @0xc
0x0637…064a at000d = ╱54╱T╱ // 0x644 @0xd
0x0637…064a at000e = ╱4f╱O╱ // 0x645 @0xe
0x0637…064a at000f = ╱5f╱_╱ // 0x646 @0xf
0x0637…064a at0010 = ╱53╱S╱ // 0x647 @0x10
0x0637…064a at0011 = ╱50╱P╱ // 0x648 @0x11
0x0637…064a at0012 = EOL // 0x649 @0x12
0x0637…064a }
0x064a…066b 9c59 0540 // Variable til filen @@KTOIDX
0x064a…066b LineComal80 {
0x064a…066b ptr = 0x9c59 // 0x64a @0x0
0x064a…066b lno = 0x021c // 0x64c @0x2
0x064a…066b at0004 = ╱89╱ // ╱ // 0x64e @0x4
0x064a…066b at0005 = ╱56╱V╱ // 0x64f @0x5
0x064a…066b at0006 = ╱61╱a╱ // 0x650 @0x6
0x064a…066b at0007 = ╱72╱r╱ // 0x651 @0x7
0x064a…066b at0008 = ╱69╱i╱ // 0x652 @0x8
0x064a…066b at0009 = ╱61╱a╱ // 0x653 @0x9
0x064a…066b at000a = ╱62╱b╱ // 0x654 @0xa
0x064a…066b at000b = ╱6c╱l╱ // 0x655 @0xb
0x064a…066b at000c = ╱65╱e╱ // 0x656 @0xc
0x064a…066b at000d = ╱20╱…╱ // 0x657 @0xd
0x064a…066b at000e = ╱74╱t╱ // 0x658 @0xe
0x064a…066b at000f = ╱69╱i╱ // 0x659 @0xf
0x064a…066b at0010 = ╱6c╱l╱ // 0x65a @0x10
0x064a…066b at0011 = ╱20╱…╱ // 0x65b @0x11
0x064a…066b at0012 = ╱66╱f╱ // 0x65c @0x12
0x064a…066b at0013 = ╱69╱i╱ // 0x65d @0x13
0x064a…066b at0014 = ╱6c╱l╱ // 0x65e @0x14
0x064a…066b at0015 = ╱65╱e╱ // 0x65f @0x15
0x064a…066b at0016 = ╱6e╱n╱ // 0x660 @0x16
0x064a…066b at0017 = ╱20╱…╱ // 0x661 @0x17
0x064a…066b at0018 = ╱40╱@╱ // 0x662 @0x18
0x064a…066b at0019 = ╱40╱@╱ // 0x663 @0x19
0x064a…066b at001a = ╱4b╱K╱ // 0x664 @0x1a
0x064a…066b at001b = ╱54╱T╱ // 0x665 @0x1b
0x064a…066b at001c = ╱4f╱O╱ // 0x666 @0x1c
0x064a…066b at001d = ╱49╱I╱ // 0x667 @0x1d
0x064a…066b at001e = ╱44╱D╱ // 0x668 @0x1e
0x064a…066b at001f = ╱58╱X╱ // 0x669 @0x1f
0x064a…066b at0020 = EOL // 0x66a @0x20
0x064a…066b }
0x066b…067e 9c6c 0550 DIM KTOIDX$ OF 17
0x066b…067e LineComal80 {
0x066b…067e ptr = 0x9c6c // 0x66b @0x0
0x066b…067e lno = 0x0226 // 0x66d @0x2
0x066b…067e at0004 = ╱87╱ DIM ╱ // 0x66f @0x4
0x066b…067e at0005 = ╱4b╱K╱ // 0x670 @0x5
0x066b…067e at0006 = ╱54╱T╱ // 0x671 @0x6
0x066b…067e at0007 = ╱4f╱O╱ // 0x672 @0x7
0x066b…067e at0008 = ╱49╱I╱ // 0x673 @0x8
0x066b…067e at0009 = ╱44╱D╱ // 0x674 @0x9
0x066b…067e at000a = ╱58╱X╱ // 0x675 @0xa
0x066b…067e at000b = ╱ef╱$╱ // 0x676 @0xb
0x066b…067e at000c = ╱ba╱ OF ╱ // 0x677 @0xc
0x066b…067e at000d = ╱31╱1╱ // 0x678 @0xd
0x066b…067e at000e = ╱37╱7╱ // 0x679 @0xe
0x066b…067e at000f = ╱f21100╱ // 0x67a @0xf
0x066b…067e at0012 = EOL // 0x67d @0x12
0x066b…067e }
0x067e…0695 9c83 0560 INTEGER I_HØJREC,I_MAXREC
0x067e…0695 LineComal80 {
0x067e…0695 ptr = 0x9c83 // 0x67e @0x0
0x067e…0695 lno = 0x0230 // 0x680 @0x2
0x067e…0695 at0004 = ╱b2╱ INTEGER ╱ // 0x682 @0x4
0x067e…0695 at0005 = ╱49╱I╱ // 0x683 @0x5
0x067e…0695 at0006 = ╱5f╱_╱ // 0x684 @0x6
0x067e…0695 at0007 = ╱48╱H╱ // 0x685 @0x7
0x067e…0695 at0008 = ╱5c╱Ø╱ // 0x686 @0x8
0x067e…0695 at0009 = ╱4a╱J╱ // 0x687 @0x9
0x067e…0695 at000a = ╱52╱R╱ // 0x688 @0xa
0x067e…0695 at000b = ╱45╱E╱ // 0x689 @0xb
0x067e…0695 at000c = ╱43╱C╱ // 0x68a @0xc
0x067e…0695 at000d = ╱ec╱,╱ // 0x68b @0xd
0x067e…0695 at000e = ╱49╱I╱ // 0x68c @0xe
0x067e…0695 at000f = ╱5f╱_╱ // 0x68d @0xf
0x067e…0695 at0010 = ╱4d╱M╱ // 0x68e @0x10
0x067e…0695 at0011 = ╱41╱A╱ // 0x68f @0x11
0x067e…0695 at0012 = ╱58╱X╱ // 0x690 @0x12
0x067e…0695 at0013 = ╱52╱R╱ // 0x691 @0x13
0x067e…0695 at0014 = ╱45╱E╱ // 0x692 @0x14
0x067e…0695 at0015 = ╱43╱C╱ // 0x693 @0x15
0x067e…0695 at0016 = EOL // 0x694 @0x16
0x067e…0695 }
0x0695…06a6 9c94 0570 DIM KTONR$ OF 8
0x0695…06a6 LineComal80 {
0x0695…06a6 ptr = 0x9c94 // 0x695 @0x0
0x0695…06a6 lno = 0x023a // 0x697 @0x2
0x0695…06a6 at0004 = ╱87╱ DIM ╱ // 0x699 @0x4
0x0695…06a6 at0005 = ╱4b╱K╱ // 0x69a @0x5
0x0695…06a6 at0006 = ╱54╱T╱ // 0x69b @0x6
0x0695…06a6 at0007 = ╱4f╱O╱ // 0x69c @0x7
0x0695…06a6 at0008 = ╱4e╱N╱ // 0x69d @0x8
0x0695…06a6 at0009 = ╱52╱R╱ // 0x69e @0x9
0x0695…06a6 at000a = ╱ef╱$╱ // 0x69f @0xa
0x0695…06a6 at000b = ╱ba╱ OF ╱ // 0x6a0 @0xb
0x0695…06a6 at000c = ╱38╱8╱ // 0x6a1 @0xc
0x0695…06a6 at000d = ╱f20800╱ // 0x6a2 @0xd
0x0695…06a6 at0010 = EOL // 0x6a5 @0x10
0x0695…06a6 }
0x06a6…06b1 9c9f 0580 INTEGER RECNR
0x06a6…06b1 LineComal80 {
0x06a6…06b1 ptr = 0x9c9f // 0x6a6 @0x0
0x06a6…06b1 lno = 0x0244 // 0x6a8 @0x2
0x06a6…06b1 at0004 = ╱b2╱ INTEGER ╱ // 0x6aa @0x4
0x06a6…06b1 at0005 = ╱52╱R╱ // 0x6ab @0x5
0x06a6…06b1 at0006 = ╱45╱E╱ // 0x6ac @0x6
0x06a6…06b1 at0007 = ╱43╱C╱ // 0x6ad @0x7
0x06a6…06b1 at0008 = ╱4e╱N╱ // 0x6ae @0x8
0x06a6…06b1 at0009 = ╱52╱R╱ // 0x6af @0x9
0x06a6…06b1 at000a = EOL // 0x6b0 @0xa
0x06a6…06b1 }
0x06b1…06c2 9cb0 0590 ENDPROC DIMENSIONER
0x06b1…06c2 LineComal80 {
0x06b1…06c2 ptr = 0x9cb0 // 0x6b1 @0x0
0x06b1…06c2 lno = 0x024e // 0x6b3 @0x2
0x06b1…06c2 at0004 = ╱9f╱ ENDPROC ╱ // 0x6b5 @0x4
0x06b1…06c2 at0005 = ╱44╱D╱ // 0x6b6 @0x5
0x06b1…06c2 at0006 = ╱49╱I╱ // 0x6b7 @0x6
0x06b1…06c2 at0007 = ╱4d╱M╱ // 0x6b8 @0x7
0x06b1…06c2 at0008 = ╱45╱E╱ // 0x6b9 @0x8
0x06b1…06c2 at0009 = ╱4e╱N╱ // 0x6ba @0x9
0x06b1…06c2 at000a = ╱53╱S╱ // 0x6bb @0xa
0x06b1…06c2 at000b = ╱49╱I╱ // 0x6bc @0xb
0x06b1…06c2 at000c = ╱4f╱O╱ // 0x6bd @0xc
0x06b1…06c2 at000d = ╱4e╱N╱ // 0x6be @0xd
0x06b1…06c2 at000e = ╱45╱E╱ // 0x6bf @0xe
0x06b1…06c2 at000f = ╱52╱R╱ // 0x6c0 @0xf
0x06b1…06c2 at0010 = EOL // 0x6c1 @0x10
0x06b1…06c2 }
0x06c2…06c7 9cb5 0600
0x06c2…06c7 LineComal80 {
0x06c2…06c7 ptr = 0x9cb5 // 0x6c2 @0x0
0x06c2…06c7 lno = 0x0258 // 0x6c4 @0x2
0x06c2…06c7 at0004 = EOL // 0x6c6 @0x4
0x06c2…06c7 }
0x06c7…06d5 9cc3 0610 PROC INITIER
0x06c7…06d5 LineComal80 {
0x06c7…06d5 ptr = 0x9cc3 // 0x6c7 @0x0
0x06c7…06d5 lno = 0x0262 // 0x6c9 @0x2
0x06c7…06d5 at0004 = ╱9e00╱ PROC ╱ // 0x6cb @0x4
0x06c7…06d5 at0006 = ╱49╱I╱ // 0x6cd @0x6
0x06c7…06d5 at0007 = ╱4e╱N╱ // 0x6ce @0x7
0x06c7…06d5 at0008 = ╱49╱I╱ // 0x6cf @0x8
0x06c7…06d5 at0009 = ╱54╱T╱ // 0x6d0 @0x9
0x06c7…06d5 at000a = ╱49╱I╱ // 0x6d1 @0xa
0x06c7…06d5 at000b = ╱45╱E╱ // 0x6d2 @0xb
0x06c7…06d5 at000c = ╱52╱R╱ // 0x6d3 @0xc
0x06c7…06d5 at000d = EOL // 0x6d4 @0xd
0x06c7…06d5 }
0x06d5…06e7 9cd5 0620 LET PRGFL$ := "DP2"
0x06d5…06e7 LineComal80 {
0x06d5…06e7 ptr = 0x9cd5 // 0x6d5 @0x0
0x06d5…06e7 lno = 0x026c // 0x6d7 @0x2
0x06d5…06e7 at0004 = ╱86╱ LET ╱ // 0x6d9 @0x4
0x06d5…06e7 at0005 = ╱50╱P╱ // 0x6da @0x5
0x06d5…06e7 at0006 = ╱52╱R╱ // 0x6db @0x6
0x06d5…06e7 at0007 = ╱47╱G╱ // 0x6dc @0x7
0x06d5…06e7 at0008 = ╱46╱F╱ // 0x6dd @0x8
0x06d5…06e7 at0009 = ╱4c╱L╱ // 0x6de @0x9
0x06d5…06e7 at000a = ╱ef╱$╱ // 0x6df @0xa
0x06d5…06e7 at000b = ╱f0╱ := ╱ // 0x6e0 @0xb
0x06d5…06e7 at000c = ╱22╱"╱ // 0x6e1 @0xc
0x06d5…06e7 at000d = ╱44╱D╱ // 0x6e2 @0xd
0x06d5…06e7 at000e = ╱50╱P╱ // 0x6e3 @0xe
0x06d5…06e7 at000f = ╱32╱2╱ // 0x6e4 @0xf
0x06d5…06e7 at0010 = ╱22╱"╱ // 0x6e5 @0x10
0x06d5…06e7 at0011 = EOL // 0x6e6 @0x11
0x06d5…06e7 }
0x06e7…0704 9cf2 0630 LET PROGRAM$ := PRGFL$ + ":SYSA"
0x06e7…0704 LineComal80 {
0x06e7…0704 ptr = 0x9cf2 // 0x6e7 @0x0
0x06e7…0704 lno = 0x0276 // 0x6e9 @0x2
0x06e7…0704 at0004 = ╱86╱ LET ╱ // 0x6eb @0x4
0x06e7…0704 at0005 = ╱50╱P╱ // 0x6ec @0x5
0x06e7…0704 at0006 = ╱52╱R╱ // 0x6ed @0x6
0x06e7…0704 at0007 = ╱4f╱O╱ // 0x6ee @0x7
0x06e7…0704 at0008 = ╱47╱G╱ // 0x6ef @0x8
0x06e7…0704 at0009 = ╱52╱R╱ // 0x6f0 @0x9
0x06e7…0704 at000a = ╱41╱A╱ // 0x6f1 @0xa
0x06e7…0704 at000b = ╱4d╱M╱ // 0x6f2 @0xb
0x06e7…0704 at000c = ╱ef╱$╱ // 0x6f3 @0xc
0x06e7…0704 at000d = ╱f0╱ := ╱ // 0x6f4 @0xd
0x06e7…0704 at000e = ╱50╱P╱ // 0x6f5 @0xe
0x06e7…0704 at000f = ╱52╱R╱ // 0x6f6 @0xf
0x06e7…0704 at0010 = ╱47╱G╱ // 0x6f7 @0x10
0x06e7…0704 at0011 = ╱46╱F╱ // 0x6f8 @0x11
0x06e7…0704 at0012 = ╱4c╱L╱ // 0x6f9 @0x12
0x06e7…0704 at0013 = ╱ef╱$╱ // 0x6fa @0x13
0x06e7…0704 at0014 = ╱eb╱ + ╱ // 0x6fb @0x14
0x06e7…0704 at0015 = ╱22╱"╱ // 0x6fc @0x15
0x06e7…0704 at0016 = ╱3a╱:╱ // 0x6fd @0x16
0x06e7…0704 at0017 = ╱53╱S╱ // 0x6fe @0x17
0x06e7…0704 at0018 = ╱59╱Y╱ // 0x6ff @0x18
0x06e7…0704 at0019 = ╱53╱S╱ // 0x700 @0x19
0x06e7…0704 at001a = ╱41╱A╱ // 0x701 @0x1a
0x06e7…0704 at001b = ╱22╱"╱ // 0x702 @0x1b
0x06e7…0704 at001c = EOL // 0x703 @0x1c
0x06e7…0704 }
0x0704…071b 9d09 0640 LET TAL$ := "0123456789"
0x0704…071b LineComal80 {
0x0704…071b ptr = 0x9d09 // 0x704 @0x0
0x0704…071b lno = 0x0280 // 0x706 @0x2
0x0704…071b at0004 = ╱86╱ LET ╱ // 0x708 @0x4
0x0704…071b at0005 = ╱54╱T╱ // 0x709 @0x5
0x0704…071b at0006 = ╱41╱A╱ // 0x70a @0x6
0x0704…071b at0007 = ╱4c╱L╱ // 0x70b @0x7
0x0704…071b at0008 = ╱ef╱$╱ // 0x70c @0x8
0x0704…071b at0009 = ╱f0╱ := ╱ // 0x70d @0x9
0x0704…071b at000a = ╱22╱"╱ // 0x70e @0xa
0x0704…071b at000b = ╱30╱0╱ // 0x70f @0xb
0x0704…071b at000c = ╱31╱1╱ // 0x710 @0xc
0x0704…071b at000d = ╱32╱2╱ // 0x711 @0xd
0x0704…071b at000e = ╱33╱3╱ // 0x712 @0xe
0x0704…071b at000f = ╱34╱4╱ // 0x713 @0xf
0x0704…071b at0010 = ╱35╱5╱ // 0x714 @0x10
0x0704…071b at0011 = ╱36╱6╱ // 0x715 @0x11
0x0704…071b at0012 = ╱37╱7╱ // 0x716 @0x12
0x0704…071b at0013 = ╱38╱8╱ // 0x717 @0x13
0x0704…071b at0014 = ╱39╱9╱ // 0x718 @0x14
0x0704…071b at0015 = ╱22╱"╱ // 0x719 @0x15
0x0704…071b at0016 = EOL // 0x71a @0x16
0x0704…071b }
0x071b…0743 9d31 0650 FOR I := ╱cc╱ ("A") TO ("Å") DO LET ALFA$ := ALFA$ + CHR$ (I)
0x071b…0743 LineComal80 {
0x071b…0743 ptr = 0x9d31 // 0x71b @0x0
0x071b…0743 lno = 0x028a // 0x71d @0x2
0x071b…0743 at0004 = ╱b400╱ FOR ╱ // 0x71f @0x4
0x071b…0743 at0006 = ╱49╱I╱ // 0x721 @0x6
0x071b…0743 at0007 = ╱f0╱ := ╱ // 0x722 @0x7
0x071b…0743 at0008 = ╱cc╱ // 0x723 @0x8
0x071b…0743 at0009 = ╱ed╱(╱ // 0x724 @0x9
0x071b…0743 at000a = ╱22╱"╱ // 0x725 @0xa
0x071b…0743 at000b = ╱41╱A╱ // 0x726 @0xb
0x071b…0743 at000c = ╱22╱"╱ // 0x727 @0xc
0x071b…0743 at000d = ╱ee╱)╱ // 0x728 @0xd
0x071b…0743 at000e = ╱b7cc╱ TO ╱ // 0x729 @0xe
0x071b…0743 at0010 = ╱ed╱(╱ // 0x72b @0x10
0x071b…0743 at0011 = ╱22╱"╱ // 0x72c @0x11
0x071b…0743 at0012 = ╱5d╱Å╱ // 0x72d @0x12
0x071b…0743 at0013 = ╱22╱"╱ // 0x72e @0x13
0x071b…0743 at0014 = ╱ee╱)╱ // 0x72f @0x14
0x071b…0743 at0015 = ╱bb╱ DO ╱ // 0x730 @0x15
0x071b…0743 at0016 = ╱86╱ LET ╱ // 0x731 @0x16
0x071b…0743 at0017 = ╱41╱A╱ // 0x732 @0x17
0x071b…0743 at0018 = ╱4c╱L╱ // 0x733 @0x18
0x071b…0743 at0019 = ╱46╱F╱ // 0x734 @0x19
0x071b…0743 at001a = ╱41╱A╱ // 0x735 @0x1a
0x071b…0743 at001b = ╱ef╱$╱ // 0x736 @0x1b
0x071b…0743 at001c = ╱f0╱ := ╱ // 0x737 @0x1c
0x071b…0743 at001d = ╱41╱A╱ // 0x738 @0x1d
0x071b…0743 at001e = ╱4c╱L╱ // 0x739 @0x1e
0x071b…0743 at001f = ╱46╱F╱ // 0x73a @0x1f
0x071b…0743 at0020 = ╱41╱A╱ // 0x73b @0x20
0x071b…0743 at0021 = ╱ef╱$╱ // 0x73c @0x21
0x071b…0743 at0022 = ╱eb╱ + ╱ // 0x73d @0x22
0x071b…0743 at0023 = ╱d0╱ CHR$ ╱ // 0x73e @0x23
0x071b…0743 at0024 = ╱ed╱(╱ // 0x73f @0x24
0x071b…0743 at0025 = ╱49╱I╱ // 0x740 @0x25
0x071b…0743 at0026 = ╱ee╱)╱ // 0x741 @0x26
0x071b…0743 at0027 = EOL // 0x742 @0x27
0x071b…0743 }
0x0743…0778 9d66 0660 LET SPC$ := " "
0x0743…0778 LineComal80 {
0x0743…0778 ptr = 0x9d66 // 0x743 @0x0
0x0743…0778 lno = 0x0294 // 0x745 @0x2
0x0743…0778 at0004 = ╱86╱ LET ╱ // 0x747 @0x4
0x0743…0778 at0005 = ╱53╱S╱ // 0x748 @0x5
0x0743…0778 at0006 = ╱50╱P╱ // 0x749 @0x6
0x0743…0778 at0007 = ╱43╱C╱ // 0x74a @0x7
0x0743…0778 at0008 = ╱ef╱$╱ // 0x74b @0x8
0x0743…0778 at0009 = ╱f0╱ := ╱ // 0x74c @0x9
0x0743…0778 at000a = ╱22╱"╱ // 0x74d @0xa
0x0743…0778 at000b = ╱20╱…╱ // 0x74e @0xb
0x0743…0778 at000c = ╱20╱…╱ // 0x74f @0xc
0x0743…0778 at000d = ╱20╱…╱ // 0x750 @0xd
0x0743…0778 at000e = ╱20╱…╱ // 0x751 @0xe
0x0743…0778 at000f = ╱20╱…╱ // 0x752 @0xf
0x0743…0778 at0010 = ╱20╱…╱ // 0x753 @0x10
0x0743…0778 at0011 = ╱20╱…╱ // 0x754 @0x11
0x0743…0778 at0012 = ╱20╱…╱ // 0x755 @0x12
0x0743…0778 at0013 = ╱20╱…╱ // 0x756 @0x13
0x0743…0778 at0014 = ╱20╱…╱ // 0x757 @0x14
0x0743…0778 at0015 = ╱20╱…╱ // 0x758 @0x15
0x0743…0778 at0016 = ╱20╱…╱ // 0x759 @0x16
0x0743…0778 at0017 = ╱20╱…╱ // 0x75a @0x17
0x0743…0778 at0018 = ╱20╱…╱ // 0x75b @0x18
0x0743…0778 at0019 = ╱20╱…╱ // 0x75c @0x19
0x0743…0778 at001a = ╱20╱…╱ // 0x75d @0x1a
0x0743…0778 at001b = ╱20╱…╱ // 0x75e @0x1b
0x0743…0778 at001c = ╱20╱…╱ // 0x75f @0x1c
0x0743…0778 at001d = ╱20╱…╱ // 0x760 @0x1d
0x0743…0778 at001e = ╱20╱…╱ // 0x761 @0x1e
0x0743…0778 at001f = ╱20╱…╱ // 0x762 @0x1f
0x0743…0778 at0020 = ╱20╱…╱ // 0x763 @0x20
0x0743…0778 at0021 = ╱20╱…╱ // 0x764 @0x21
0x0743…0778 at0022 = ╱20╱…╱ // 0x765 @0x22
0x0743…0778 at0023 = ╱20╱…╱ // 0x766 @0x23
0x0743…0778 at0024 = ╱20╱…╱ // 0x767 @0x24
0x0743…0778 at0025 = ╱20╱…╱ // 0x768 @0x25
0x0743…0778 at0026 = ╱20╱…╱ // 0x769 @0x26
0x0743…0778 at0027 = ╱20╱…╱ // 0x76a @0x27
0x0743…0778 at0028 = ╱20╱…╱ // 0x76b @0x28
0x0743…0778 at0029 = ╱20╱…╱ // 0x76c @0x29
0x0743…0778 at002a = ╱20╱…╱ // 0x76d @0x2a
0x0743…0778 at002b = ╱20╱…╱ // 0x76e @0x2b
0x0743…0778 at002c = ╱20╱…╱ // 0x76f @0x2c
0x0743…0778 at002d = ╱20╱…╱ // 0x770 @0x2d
0x0743…0778 at002e = ╱20╱…╱ // 0x771 @0x2e
0x0743…0778 at002f = ╱20╱…╱ // 0x772 @0x2f
0x0743…0778 at0030 = ╱20╱…╱ // 0x773 @0x30
0x0743…0778 at0031 = ╱20╱…╱ // 0x774 @0x31
0x0743…0778 at0032 = ╱20╱…╱ // 0x775 @0x32
0x0743…0778 at0033 = ╱22╱"╱ // 0x776 @0x33
0x0743…0778 at0034 = EOL // 0x777 @0x34
0x0743…0778 }
0x0778…078c 9d7a 0670 LET SPC$ := SPC$ + SPC$
0x0778…078c LineComal80 {
0x0778…078c ptr = 0x9d7a // 0x778 @0x0
0x0778…078c lno = 0x029e // 0x77a @0x2
0x0778…078c at0004 = ╱86╱ LET ╱ // 0x77c @0x4
0x0778…078c at0005 = ╱53╱S╱ // 0x77d @0x5
0x0778…078c at0006 = ╱50╱P╱ // 0x77e @0x6
0x0778…078c at0007 = ╱43╱C╱ // 0x77f @0x7
0x0778…078c at0008 = ╱ef╱$╱ // 0x780 @0x8
0x0778…078c at0009 = ╱f0╱ := ╱ // 0x781 @0x9
0x0778…078c at000a = ╱53╱S╱ // 0x782 @0xa
0x0778…078c at000b = ╱50╱P╱ // 0x783 @0xb
0x0778…078c at000c = ╱43╱C╱ // 0x784 @0xc
0x0778…078c at000d = ╱ef╱$╱ // 0x785 @0xd
0x0778…078c at000e = ╱eb╱ + ╱ // 0x786 @0xe
0x0778…078c at000f = ╱53╱S╱ // 0x787 @0xf
0x0778…078c at0010 = ╱50╱P╱ // 0x788 @0x10
0x0778…078c at0011 = ╱43╱C╱ // 0x789 @0x11
0x0778…078c at0012 = ╱ef╱$╱ // 0x78a @0x12
0x0778…078c at0013 = EOL // 0x78b @0x13
0x0778…078c }
0x078c…07b7 9da5 0680 LET FALSE := 0 ; TRUE := 1 // boolske variable
0x078c…07b7 LineComal80 {
0x078c…07b7 ptr = 0x9da5 // 0x78c @0x0
0x078c…07b7 lno = 0x02a8 // 0x78e @0x2
0x078c…07b7 at0004 = ╱86╱ LET ╱ // 0x790 @0x4
0x078c…07b7 at0005 = ╱46╱F╱ // 0x791 @0x5
0x078c…07b7 at0006 = ╱41╱A╱ // 0x792 @0x6
0x078c…07b7 at0007 = ╱4c╱L╱ // 0x793 @0x7
0x078c…07b7 at0008 = ╱53╱S╱ // 0x794 @0x8
0x078c…07b7 at0009 = ╱45╱E╱ // 0x795 @0x9
0x078c…07b7 at000a = ╱f0╱ := ╱ // 0x796 @0xa
0x078c…07b7 at000b = ╱30╱0╱ // 0x797 @0xb
0x078c…07b7 at000c = ╱f20000╱ // 0x798 @0xc
0x078c…07b7 at000f = ╱ea╱ ; ╱ // 0x79b @0xf
0x078c…07b7 at0010 = ╱54╱T╱ // 0x79c @0x10
0x078c…07b7 at0011 = ╱52╱R╱ // 0x79d @0x11
0x078c…07b7 at0012 = ╱55╱U╱ // 0x79e @0x12
0x078c…07b7 at0013 = ╱45╱E╱ // 0x79f @0x13
0x078c…07b7 at0014 = ╱f0╱ := ╱ // 0x7a0 @0x14
0x078c…07b7 at0015 = ╱31╱1╱ // 0x7a1 @0x15
0x078c…07b7 at0016 = ╱f20100╱ // 0x7a2 @0x16
0x078c…07b7 at0019 = ╱89╱ // ╱ // 0x7a5 @0x19
0x078c…07b7 at001a = ╱62╱b╱ // 0x7a6 @0x1a
0x078c…07b7 at001b = ╱6f╱o╱ // 0x7a7 @0x1b
0x078c…07b7 at001c = ╱6f╱o╱ // 0x7a8 @0x1c
0x078c…07b7 at001d = ╱6c╱l╱ // 0x7a9 @0x1d
0x078c…07b7 at001e = ╱73╱s╱ // 0x7aa @0x1e
0x078c…07b7 at001f = ╱6b╱k╱ // 0x7ab @0x1f
0x078c…07b7 at0020 = ╱65╱e╱ // 0x7ac @0x20
0x078c…07b7 at0021 = ╱20╱…╱ // 0x7ad @0x21
0x078c…07b7 at0022 = ╱76╱v╱ // 0x7ae @0x22
0x078c…07b7 at0023 = ╱61╱a╱ // 0x7af @0x23
0x078c…07b7 at0024 = ╱72╱r╱ // 0x7b0 @0x24
0x078c…07b7 at0025 = ╱69╱i╱ // 0x7b1 @0x25
0x078c…07b7 at0026 = ╱61╱a╱ // 0x7b2 @0x26
0x078c…07b7 at0027 = ╱62╱b╱ // 0x7b3 @0x27
0x078c…07b7 at0028 = ╱6c╱l╱ // 0x7b4 @0x28
0x078c…07b7 at0029 = ╱65╱e╱ // 0x7b5 @0x29
0x078c…07b7 at002a = EOL // 0x7b6 @0x2a
0x078c…07b7 }
0x07b7…07d7 9dc5 0690 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0x07b7…07d7 LineComal80 {
0x07b7…07d7 ptr = 0x9dc5 // 0x7b7 @0x0
0x07b7…07d7 lno = 0x02b2 // 0x7b9 @0x2
0x07b7…07d7 at0004 = ╱86╱ LET ╱ // 0x7bb @0x4
0x07b7…07d7 at0005 = ╱53╱S╱ // 0x7bc @0x5
0x07b7…07d7 at0006 = ╱59╱Y╱ // 0x7bd @0x6
0x07b7…07d7 at0007 = ╱53╱S╱ // 0x7be @0x7
0x07b7…07d7 at0008 = ╱50╱P╱ // 0x7bf @0x8
0x07b7…07d7 at0009 = ╱41╱A╱ // 0x7c0 @0x9
0x07b7…07d7 at000a = ╱52╱R╱ // 0x7c1 @0xa
0x07b7…07d7 at000b = ╱41╱A╱ // 0x7c2 @0xb
0x07b7…07d7 at000c = ╱ef╱$╱ // 0x7c3 @0xc
0x07b7…07d7 at000d = ╱f0╱ := ╱ // 0x7c4 @0xd
0x07b7…07d7 at000e = ╱50╱P╱ // 0x7c5 @0xe
0x07b7…07d7 at000f = ╱52╱R╱ // 0x7c6 @0xf
0x07b7…07d7 at0010 = ╱47╱G╱ // 0x7c7 @0x10
0x07b7…07d7 at0011 = ╱46╱F╱ // 0x7c8 @0x11
0x07b7…07d7 at0012 = ╱4c╱L╱ // 0x7c9 @0x12
0x07b7…07d7 at0013 = ╱ef╱$╱ // 0x7ca @0x13
0x07b7…07d7 at0014 = ╱eb╱ + ╱ // 0x7cb @0x14
0x07b7…07d7 at0015 = ╱22╱"╱ // 0x7cc @0x15
0x07b7…07d7 at0016 = ╱3a╱:╱ // 0x7cd @0x16
0x07b7…07d7 at0017 = ╱53╱S╱ // 0x7ce @0x17
0x07b7…07d7 at0018 = ╱59╱Y╱ // 0x7cf @0x18
0x07b7…07d7 at0019 = ╱53╱S╱ // 0x7d0 @0x19
0x07b7…07d7 at001a = ╱50╱P╱ // 0x7d1 @0x1a
0x07b7…07d7 at001b = ╱41╱A╱ // 0x7d2 @0x1b
0x07b7…07d7 at001c = ╱52╱R╱ // 0x7d3 @0x1c
0x07b7…07d7 at001d = ╱41╱A╱ // 0x7d4 @0x1d
0x07b7…07d7 at001e = ╱22╱"╱ // 0x7d5 @0x1e
0x07b7…07d7 at001f = EOL // 0x7d6 @0x1f
0x07b7…07d7 }
0x07d7…07f2 9de0 0700 EXEC OPENFIL(SYSPARA$,"R")
0x07d7…07f2 LineComal80 {
0x07d7…07f2 ptr = 0x9de0 // 0x7d7 @0x0
0x07d7…07f2 lno = 0x02bc // 0x7d9 @0x2
0x07d7…07f2 at0004 = ╱9d╱ EXEC ╱ // 0x7db @0x4
0x07d7…07f2 at0005 = ╱4f╱O╱ // 0x7dc @0x5
0x07d7…07f2 at0006 = ╱50╱P╱ // 0x7dd @0x6
0x07d7…07f2 at0007 = ╱45╱E╱ // 0x7de @0x7
0x07d7…07f2 at0008 = ╱4e╱N╱ // 0x7df @0x8
0x07d7…07f2 at0009 = ╱46╱F╱ // 0x7e0 @0x9
0x07d7…07f2 at000a = ╱49╱I╱ // 0x7e1 @0xa
0x07d7…07f2 at000b = ╱4c╱L╱ // 0x7e2 @0xb
0x07d7…07f2 at000c = ╱ed╱(╱ // 0x7e3 @0xc
0x07d7…07f2 at000d = ╱53╱S╱ // 0x7e4 @0xd
0x07d7…07f2 at000e = ╱59╱Y╱ // 0x7e5 @0xe
0x07d7…07f2 at000f = ╱53╱S╱ // 0x7e6 @0xf
0x07d7…07f2 at0010 = ╱50╱P╱ // 0x7e7 @0x10
0x07d7…07f2 at0011 = ╱41╱A╱ // 0x7e8 @0x11
0x07d7…07f2 at0012 = ╱52╱R╱ // 0x7e9 @0x12
0x07d7…07f2 at0013 = ╱41╱A╱ // 0x7ea @0x13
0x07d7…07f2 at0014 = ╱ef╱$╱ // 0x7eb @0x14
0x07d7…07f2 at0015 = ╱ec╱,╱ // 0x7ec @0x15
0x07d7…07f2 at0016 = ╱22╱"╱ // 0x7ed @0x16
0x07d7…07f2 at0017 = ╱52╱R╱ // 0x7ee @0x17
0x07d7…07f2 at0018 = ╱22╱"╱ // 0x7ef @0x18
0x07d7…07f2 at0019 = ╱ee╱)╱ // 0x7f0 @0x19
0x07d7…07f2 at001a = EOL // 0x7f1 @0x1a
0x07d7…07f2 }
0x07f2…0818 9e06 0710 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0x07f2…0818 LineComal80 {
0x07f2…0818 ptr = 0x9e06 // 0x7f2 @0x0
0x07f2…0818 lno = 0x02c6 // 0x7f4 @0x2
0x07f2…0818 at0004 = ╱a9╱ GET ╱ // 0x7f6 @0x4
0x07f2…0818 at0005 = ╱53╱S╱ // 0x7f7 @0x5
0x07f2…0818 at0006 = ╱59╱Y╱ // 0x7f8 @0x6
0x07f2…0818 at0007 = ╱53╱S╱ // 0x7f9 @0x7
0x07f2…0818 at0008 = ╱50╱P╱ // 0x7fa @0x8
0x07f2…0818 at0009 = ╱41╱A╱ // 0x7fb @0x9
0x07f2…0818 at000a = ╱52╱R╱ // 0x7fc @0xa
0x07f2…0818 at000b = ╱41╱A╱ // 0x7fd @0xb
0x07f2…0818 at000c = ╱ef╱$╱ // 0x7fe @0xc
0x07f2…0818 at000d = ╱ec╱,╱ // 0x7ff @0xd
0x07f2…0818 at000e = ╱31╱1╱ // 0x800 @0xe
0x07f2…0818 at000f = ╱f20100╱ // 0x801 @0xf
0x07f2…0818 at0012 = ╱f1╱ : ╱ // 0x804 @0x12
0x07f2…0818 at0013 = ╱53╱S╱ // 0x805 @0x13
0x07f2…0818 at0014 = ╱59╱Y╱ // 0x806 @0x14
0x07f2…0818 at0015 = ╱53╱S╱ // 0x807 @0x15
0x07f2…0818 at0016 = ╱54╱T╱ // 0x808 @0x16
0x07f2…0818 at0017 = ╱5f╱_╱ // 0x809 @0x17
0x07f2…0818 at0018 = ╱4e╱N╱ // 0x80a @0x18
0x07f2…0818 at0019 = ╱41╱A╱ // 0x80b @0x19
0x07f2…0818 at001a = ╱56╱V╱ // 0x80c @0x1a
0x07f2…0818 at001b = ╱4e╱N╱ // 0x80d @0x1b
0x07f2…0818 at001c = ╱ef╱$╱ // 0x80e @0x1c
0x07f2…0818 at001d = ╱ec╱,╱ // 0x80f @0x1d
0x07f2…0818 at001e = ╱53╱S╱ // 0x810 @0x1e
0x07f2…0818 at001f = ╱5f╱_╱ // 0x811 @0x1f
0x07f2…0818 at0020 = ╱4b╱K╱ // 0x812 @0x20
0x07f2…0818 at0021 = ╱4f╱O╱ // 0x813 @0x21
0x07f2…0818 at0022 = ╱44╱D╱ // 0x814 @0x22
0x07f2…0818 at0023 = ╱45╱E╱ // 0x815 @0x23
0x07f2…0818 at0024 = ╱ef╱$╱ // 0x816 @0x24
0x07f2…0818 at0025 = EOL // 0x817 @0x25
0x07f2…0818 }
0x0818…082a 9e18 0720 EXEC TERMINAL_IDX
0x0818…082a LineComal80 {
0x0818…082a ptr = 0x9e18 // 0x818 @0x0
0x0818…082a lno = 0x02d0 // 0x81a @0x2
0x0818…082a at0004 = ╱9d╱ EXEC ╱ // 0x81c @0x4
0x0818…082a at0005 = ╱54╱T╱ // 0x81d @0x5
0x0818…082a at0006 = ╱45╱E╱ // 0x81e @0x6
0x0818…082a at0007 = ╱52╱R╱ // 0x81f @0x7
0x0818…082a at0008 = ╱4d╱M╱ // 0x820 @0x8
0x0818…082a at0009 = ╱49╱I╱ // 0x821 @0x9
0x0818…082a at000a = ╱4e╱N╱ // 0x822 @0xa
0x0818…082a at000b = ╱41╱A╱ // 0x823 @0xb
0x0818…082a at000c = ╱4c╱L╱ // 0x824 @0xc
0x0818…082a at000d = ╱5f╱_╱ // 0x825 @0xd
0x0818…082a at000e = ╱49╱I╱ // 0x826 @0xe
0x0818…082a at000f = ╱44╱D╱ // 0x827 @0xf
0x0818…082a at0010 = ╱58╱X╱ // 0x828 @0x10
0x0818…082a at0011 = EOL // 0x829 @0x11
0x0818…082a }
0x082a…0838 9e26 0730 CLOSE SYSPARA$
0x082a…0838 LineComal80 {
0x082a…0838 ptr = 0x9e26 // 0x82a @0x0
0x082a…0838 lno = 0x02da // 0x82c @0x2
0x082a…0838 at0004 = ╱a8╱ CLOSE ╱ // 0x82e @0x4
0x082a…0838 at0005 = ╱53╱S╱ // 0x82f @0x5
0x082a…0838 at0006 = ╱59╱Y╱ // 0x830 @0x6
0x082a…0838 at0007 = ╱53╱S╱ // 0x831 @0x7
0x082a…0838 at0008 = ╱50╱P╱ // 0x832 @0x8
0x082a…0838 at0009 = ╱41╱A╱ // 0x833 @0x9
0x082a…0838 at000a = ╱52╱R╱ // 0x834 @0xa
0x082a…0838 at000b = ╱41╱A╱ // 0x835 @0xb
0x082a…0838 at000c = ╱ef╱$╱ // 0x836 @0xc
0x082a…0838 at000d = EOL // 0x837 @0xd
0x082a…0838 }
0x0838…0868 9e56 0740 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0x0838…0868 LineComal80 {
0x0838…0868 ptr = 0x9e56 // 0x838 @0x0
0x0838…0868 lno = 0x02e4 // 0x83a @0x2
0x0838…0868 at0004 = ╱86╱ LET ╱ // 0x83c @0x4
0x0838…0868 at0005 = ╱50╱P╱ // 0x83d @0x5
0x0838…0868 at0006 = ╱41╱A╱ // 0x83e @0x6
0x0838…0868 at0007 = ╱52╱R╱ // 0x83f @0x7
0x0838…0868 at0008 = ╱41╱A╱ // 0x840 @0x8
0x0838…0868 at0009 = ╱4d╱M╱ // 0x841 @0x9
0x0838…0868 at000a = ╱ef╱$╱ // 0x842 @0xa
0x0838…0868 at000b = ╱f0╱ := ╱ // 0x843 @0xb
0x0838…0868 at000c = ╱44╱D╱ // 0x844 @0xc
0x0838…0868 at000d = ╱41╱A╱ // 0x845 @0xd
0x0838…0868 at000e = ╱54╱T╱ // 0x846 @0xe
0x0838…0868 at000f = ╱41╱A╱ // 0x847 @0xf
0x0838…0868 at0010 = ╱46╱F╱ // 0x848 @0x10
0x0838…0868 at0011 = ╱4c╱L╱ // 0x849 @0x11
0x0838…0868 at0012 = ╱ef╱$╱ // 0x84a @0x12
0x0838…0868 at0013 = ╱eb╱ + ╱ // 0x84b @0x13
0x0838…0868 at0014 = ╱22╱"╱ // 0x84c @0x14
0x0838…0868 at0015 = ╱3a╱:╱ // 0x84d @0x15
0x0838…0868 at0016 = ╱22╱"╱ // 0x84e @0x16
0x0838…0868 at0017 = ╱eb╱ + ╱ // 0x84f @0x17
0x0838…0868 at0018 = ╱53╱S╱ // 0x850 @0x18
0x0838…0868 at0019 = ╱5f╱_╱ // 0x851 @0x19
0x0838…0868 at001a = ╱4b╱K╱ // 0x852 @0x1a
0x0838…0868 at001b = ╱4f╱O╱ // 0x853 @0x1b
0x0838…0868 at001c = ╱44╱D╱ // 0x854 @0x1c
0x0838…0868 at001d = ╱45╱E╱ // 0x855 @0x1d
0x0838…0868 at001e = ╱ef╱$╱ // 0x856 @0x1e
0x0838…0868 at001f = ╱eb╱ + ╱ // 0x857 @0x1f
0x0838…0868 at0020 = ╱54╱T╱ // 0x858 @0x20
0x0838…0868 at0021 = ╱5f╱_╱ // 0x859 @0x21
0x0838…0868 at0022 = ╱4b╱K╱ // 0x85a @0x22
0x0838…0868 at0023 = ╱4f╱O╱ // 0x85b @0x23
0x0838…0868 at0024 = ╱44╱D╱ // 0x85c @0x24
0x0838…0868 at0025 = ╱45╱E╱ // 0x85d @0x25
0x0838…0868 at0026 = ╱ef╱$╱ // 0x85e @0x26
0x0838…0868 at0027 = ╱eb╱ + ╱ // 0x85f @0x27
0x0838…0868 at0028 = ╱22╱"╱ // 0x860 @0x28
0x0838…0868 at0029 = ╱50╱P╱ // 0x861 @0x29
0x0838…0868 at002a = ╱41╱A╱ // 0x862 @0x2a
0x0838…0868 at002b = ╱52╱R╱ // 0x863 @0x2b
0x0838…0868 at002c = ╱41╱A╱ // 0x864 @0x2c
0x0838…0868 at002d = ╱4d╱M╱ // 0x865 @0x2d
0x0838…0868 at002e = ╱22╱"╱ // 0x866 @0x2e
0x0838…0868 at002f = EOL // 0x867 @0x2f
0x0838…0868 }
0x0868…0881 9e6f 0750 EXEC OPENFIL(PARAM$,"R")
0x0868…0881 LineComal80 {
0x0868…0881 ptr = 0x9e6f // 0x868 @0x0
0x0868…0881 lno = 0x02ee // 0x86a @0x2
0x0868…0881 at0004 = ╱9d╱ EXEC ╱ // 0x86c @0x4
0x0868…0881 at0005 = ╱4f╱O╱ // 0x86d @0x5
0x0868…0881 at0006 = ╱50╱P╱ // 0x86e @0x6
0x0868…0881 at0007 = ╱45╱E╱ // 0x86f @0x7
0x0868…0881 at0008 = ╱4e╱N╱ // 0x870 @0x8
0x0868…0881 at0009 = ╱46╱F╱ // 0x871 @0x9
0x0868…0881 at000a = ╱49╱I╱ // 0x872 @0xa
0x0868…0881 at000b = ╱4c╱L╱ // 0x873 @0xb
0x0868…0881 at000c = ╱ed╱(╱ // 0x874 @0xc
0x0868…0881 at000d = ╱50╱P╱ // 0x875 @0xd
0x0868…0881 at000e = ╱41╱A╱ // 0x876 @0xe
0x0868…0881 at000f = ╱52╱R╱ // 0x877 @0xf
0x0868…0881 at0010 = ╱41╱A╱ // 0x878 @0x10
0x0868…0881 at0011 = ╱4d╱M╱ // 0x879 @0x11
0x0868…0881 at0012 = ╱ef╱$╱ // 0x87a @0x12
0x0868…0881 at0013 = ╱ec╱,╱ // 0x87b @0x13
0x0868…0881 at0014 = ╱22╱"╱ // 0x87c @0x14
0x0868…0881 at0015 = ╱52╱R╱ // 0x87d @0x15
0x0868…0881 at0016 = ╱22╱"╱ // 0x87e @0x16
0x0868…0881 at0017 = ╱ee╱)╱ // 0x87f @0x17
0x0868…0881 at0018 = EOL // 0x880 @0x18
0x0868…0881 }
0x0881…08ac 9e9a 0760 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0x0881…08ac LineComal80 {
0x0881…08ac ptr = 0x9e9a // 0x881 @0x0
0x0881…08ac lno = 0x02f8 // 0x883 @0x2
0x0881…08ac at0004 = ╱a9╱ GET ╱ // 0x885 @0x4
0x0881…08ac at0005 = ╱50╱P╱ // 0x886 @0x5
0x0881…08ac at0006 = ╱41╱A╱ // 0x887 @0x6
0x0881…08ac at0007 = ╱52╱R╱ // 0x888 @0x7
0x0881…08ac at0008 = ╱41╱A╱ // 0x889 @0x8
0x0881…08ac at0009 = ╱4d╱M╱ // 0x88a @0x9
0x0881…08ac at000a = ╱ef╱$╱ // 0x88b @0xa
0x0881…08ac at000b = ╱ec╱,╱ // 0x88c @0xb
0x0881…08ac at000c = ╱31╱1╱ // 0x88d @0xc
0x0881…08ac at000d = ╱f20100╱ // 0x88e @0xd
0x0881…08ac at0010 = ╱f1╱ : ╱ // 0x891 @0x10
0x0881…08ac at0011 = ╱46╱F╱ // 0x892 @0x11
0x0881…08ac at0012 = ╱49╱I╱ // 0x893 @0x12
0x0881…08ac at0013 = ╱52╱R╱ // 0x894 @0x13
0x0881…08ac at0014 = ╱4d╱M╱ // 0x895 @0x14
0x0881…08ac at0015 = ╱41╱A╱ // 0x896 @0x15
0x0881…08ac at0016 = ╱4e╱N╱ // 0x897 @0x16
0x0881…08ac at0017 = ╱41╱A╱ // 0x898 @0x17
0x0881…08ac at0018 = ╱56╱V╱ // 0x899 @0x18
0x0881…08ac at0019 = ╱4e╱N╱ // 0x89a @0x19
0x0881…08ac at001a = ╱ef╱$╱ // 0x89b @0x1a
0x0881…08ac at001b = ╱ec╱,╱ // 0x89c @0x1b
0x0881…08ac at001c = ╱53╱S╱ // 0x89d @0x1c
0x0881…08ac at001d = ╱59╱Y╱ // 0x89e @0x1d
0x0881…08ac at001e = ╱53╱S╱ // 0x89f @0x1e
0x0881…08ac at001f = ╱54╱T╱ // 0x8a0 @0x1f
0x0881…08ac at0020 = ╱5f╱_╱ // 0x8a1 @0x20
0x0881…08ac at0021 = ╱44╱D╱ // 0x8a2 @0x21
0x0881…08ac at0022 = ╱41╱A╱ // 0x8a3 @0x22
0x0881…08ac at0023 = ╱54╱T╱ // 0x8a4 @0x23
0x0881…08ac at0024 = ╱ef╱$╱ // 0x8a5 @0x24
0x0881…08ac at0025 = ╱ec╱,╱ // 0x8a6 @0x25
0x0881…08ac at0026 = ╱4d╱M╱ // 0x8a7 @0x26
0x0881…08ac at0027 = ╱4f╱O╱ // 0x8a8 @0x27
0x0881…08ac at0028 = ╱4d╱M╱ // 0x8a9 @0x28
0x0881…08ac at0029 = ╱53╱S╱ // 0x8aa @0x29
0x0881…08ac at002a = EOL // 0x8ab @0x2a
0x0881…08ac }
0x08ac…08b8 9ea6 0770 CLOSE PARAM$
0x08ac…08b8 LineComal80 {
0x08ac…08b8 ptr = 0x9ea6 // 0x8ac @0x0
0x08ac…08b8 lno = 0x0302 // 0x8ae @0x2
0x08ac…08b8 at0004 = ╱a8╱ CLOSE ╱ // 0x8b0 @0x4
0x08ac…08b8 at0005 = ╱50╱P╱ // 0x8b1 @0x5
0x08ac…08b8 at0006 = ╱41╱A╱ // 0x8b2 @0x6
0x08ac…08b8 at0007 = ╱52╱R╱ // 0x8b3 @0x7
0x08ac…08b8 at0008 = ╱41╱A╱ // 0x8b4 @0x8
0x08ac…08b8 at0009 = ╱4d╱M╱ // 0x8b5 @0x9
0x08ac…08b8 at000a = ╱ef╱$╱ // 0x8b6 @0xa
0x08ac…08b8 at000b = EOL // 0x8b7 @0xb
0x08ac…08b8 }
0x08b8…08ea 9ed8 0780 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0x08b8…08ea LineComal80 {
0x08b8…08ea ptr = 0x9ed8 // 0x8b8 @0x0
0x08b8…08ea lno = 0x030c // 0x8ba @0x2
0x08b8…08ea at0004 = ╱86╱ LET ╱ // 0x8bc @0x4
0x08b8…08ea at0005 = ╱4b╱K╱ // 0x8bd @0x5
0x08b8…08ea at0006 = ╱54╱T╱ // 0x8be @0x6
0x08b8…08ea at0007 = ╱4f╱O╱ // 0x8bf @0x7
0x08b8…08ea at0008 = ╱49╱I╱ // 0x8c0 @0x8
0x08b8…08ea at0009 = ╱44╱D╱ // 0x8c1 @0x9
0x08b8…08ea at000a = ╱58╱X╱ // 0x8c2 @0xa
0x08b8…08ea at000b = ╱ef╱$╱ // 0x8c3 @0xb
0x08b8…08ea at000c = ╱f0╱ := ╱ // 0x8c4 @0xc
0x08b8…08ea at000d = ╱44╱D╱ // 0x8c5 @0xd
0x08b8…08ea at000e = ╱41╱A╱ // 0x8c6 @0xe
0x08b8…08ea at000f = ╱54╱T╱ // 0x8c7 @0xf
0x08b8…08ea at0010 = ╱41╱A╱ // 0x8c8 @0x10
0x08b8…08ea at0011 = ╱46╱F╱ // 0x8c9 @0x11
0x08b8…08ea at0012 = ╱4c╱L╱ // 0x8ca @0x12
0x08b8…08ea at0013 = ╱ef╱$╱ // 0x8cb @0x13
0x08b8…08ea at0014 = ╱eb╱ + ╱ // 0x8cc @0x14
0x08b8…08ea at0015 = ╱22╱"╱ // 0x8cd @0x15
0x08b8…08ea at0016 = ╱3a╱:╱ // 0x8ce @0x16
0x08b8…08ea at0017 = ╱22╱"╱ // 0x8cf @0x17
0x08b8…08ea at0018 = ╱eb╱ + ╱ // 0x8d0 @0x18
0x08b8…08ea at0019 = ╱53╱S╱ // 0x8d1 @0x19
0x08b8…08ea at001a = ╱5f╱_╱ // 0x8d2 @0x1a
0x08b8…08ea at001b = ╱4b╱K╱ // 0x8d3 @0x1b
0x08b8…08ea at001c = ╱4f╱O╱ // 0x8d4 @0x1c
0x08b8…08ea at001d = ╱44╱D╱ // 0x8d5 @0x1d
0x08b8…08ea at001e = ╱45╱E╱ // 0x8d6 @0x1e
0x08b8…08ea at001f = ╱ef╱$╱ // 0x8d7 @0x1f
0x08b8…08ea at0020 = ╱eb╱ + ╱ // 0x8d8 @0x20
0x08b8…08ea at0021 = ╱54╱T╱ // 0x8d9 @0x21
0x08b8…08ea at0022 = ╱5f╱_╱ // 0x8da @0x22
0x08b8…08ea at0023 = ╱4b╱K╱ // 0x8db @0x23
0x08b8…08ea at0024 = ╱4f╱O╱ // 0x8dc @0x24
0x08b8…08ea at0025 = ╱44╱D╱ // 0x8dd @0x25
0x08b8…08ea at0026 = ╱45╱E╱ // 0x8de @0x26
0x08b8…08ea at0027 = ╱ef╱$╱ // 0x8df @0x27
0x08b8…08ea at0028 = ╱eb╱ + ╱ // 0x8e0 @0x28
0x08b8…08ea at0029 = ╱22╱"╱ // 0x8e1 @0x29
0x08b8…08ea at002a = ╱4b╱K╱ // 0x8e2 @0x2a
0x08b8…08ea at002b = ╱54╱T╱ // 0x8e3 @0x2b
0x08b8…08ea at002c = ╱4f╱O╱ // 0x8e4 @0x2c
0x08b8…08ea at002d = ╱49╱I╱ // 0x8e5 @0x2d
0x08b8…08ea at002e = ╱44╱D╱ // 0x8e6 @0x2e
0x08b8…08ea at002f = ╱58╱X╱ // 0x8e7 @0x2f
0x08b8…08ea at0030 = ╱22╱"╱ // 0x8e8 @0x30
0x08b8…08ea at0031 = EOL // 0x8e9 @0x31
0x08b8…08ea }
0x08ea…091a 9f08 0790 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0x08ea…091a LineComal80 {
0x08ea…091a ptr = 0x9f08 // 0x8ea @0x0
0x08ea…091a lno = 0x0316 // 0x8ec @0x2
0x08ea…091a at0004 = ╱86╱ LET ╱ // 0x8ee @0x4
0x08ea…091a at0005 = ╱4b╱K╱ // 0x8ef @0x5
0x08ea…091a at0006 = ╱4f╱O╱ // 0x8f0 @0x6
0x08ea…091a at0007 = ╱4e╱N╱ // 0x8f1 @0x7
0x08ea…091a at0008 = ╱54╱T╱ // 0x8f2 @0x8
0x08ea…091a at0009 = ╱4f╱O╱ // 0x8f3 @0x9
0x08ea…091a at000a = ╱ef╱$╱ // 0x8f4 @0xa
0x08ea…091a at000b = ╱f0╱ := ╱ // 0x8f5 @0xb
0x08ea…091a at000c = ╱44╱D╱ // 0x8f6 @0xc
0x08ea…091a at000d = ╱41╱A╱ // 0x8f7 @0xd
0x08ea…091a at000e = ╱54╱T╱ // 0x8f8 @0xe
0x08ea…091a at000f = ╱41╱A╱ // 0x8f9 @0xf
0x08ea…091a at0010 = ╱46╱F╱ // 0x8fa @0x10
0x08ea…091a at0011 = ╱4c╱L╱ // 0x8fb @0x11
0x08ea…091a at0012 = ╱ef╱$╱ // 0x8fc @0x12
0x08ea…091a at0013 = ╱eb╱ + ╱ // 0x8fd @0x13
0x08ea…091a at0014 = ╱22╱"╱ // 0x8fe @0x14
0x08ea…091a at0015 = ╱3a╱:╱ // 0x8ff @0x15
0x08ea…091a at0016 = ╱22╱"╱ // 0x900 @0x16
0x08ea…091a at0017 = ╱eb╱ + ╱ // 0x901 @0x17
0x08ea…091a at0018 = ╱53╱S╱ // 0x902 @0x18
0x08ea…091a at0019 = ╱5f╱_╱ // 0x903 @0x19
0x08ea…091a at001a = ╱4b╱K╱ // 0x904 @0x1a
0x08ea…091a at001b = ╱4f╱O╱ // 0x905 @0x1b
0x08ea…091a at001c = ╱44╱D╱ // 0x906 @0x1c
0x08ea…091a at001d = ╱45╱E╱ // 0x907 @0x1d
0x08ea…091a at001e = ╱ef╱$╱ // 0x908 @0x1e
0x08ea…091a at001f = ╱eb╱ + ╱ // 0x909 @0x1f
0x08ea…091a at0020 = ╱54╱T╱ // 0x90a @0x20
0x08ea…091a at0021 = ╱5f╱_╱ // 0x90b @0x21
0x08ea…091a at0022 = ╱4b╱K╱ // 0x90c @0x22
0x08ea…091a at0023 = ╱4f╱O╱ // 0x90d @0x23
0x08ea…091a at0024 = ╱44╱D╱ // 0x90e @0x24
0x08ea…091a at0025 = ╱45╱E╱ // 0x90f @0x25
0x08ea…091a at0026 = ╱ef╱$╱ // 0x910 @0x26
0x08ea…091a at0027 = ╱eb╱ + ╱ // 0x911 @0x27
0x08ea…091a at0028 = ╱22╱"╱ // 0x912 @0x28
0x08ea…091a at0029 = ╱4b╱K╱ // 0x913 @0x29
0x08ea…091a at002a = ╱4f╱O╱ // 0x914 @0x2a
0x08ea…091a at002b = ╱4e╱N╱ // 0x915 @0x2b
0x08ea…091a at002c = ╱54╱T╱ // 0x916 @0x2c
0x08ea…091a at002d = ╱4f╱O╱ // 0x917 @0x2d
0x08ea…091a at002e = ╱22╱"╱ // 0x918 @0x2e
0x08ea…091a at002f = EOL // 0x919 @0x2f
0x08ea…091a }
0x091a…0934 9f22 0800 EXEC OPENFIL(KTOIDX$,"W")
0x091a…0934 LineComal80 {
0x091a…0934 ptr = 0x9f22 // 0x91a @0x0
0x091a…0934 lno = 0x0320 // 0x91c @0x2
0x091a…0934 at0004 = ╱9d╱ EXEC ╱ // 0x91e @0x4
0x091a…0934 at0005 = ╱4f╱O╱ // 0x91f @0x5
0x091a…0934 at0006 = ╱50╱P╱ // 0x920 @0x6
0x091a…0934 at0007 = ╱45╱E╱ // 0x921 @0x7
0x091a…0934 at0008 = ╱4e╱N╱ // 0x922 @0x8
0x091a…0934 at0009 = ╱46╱F╱ // 0x923 @0x9
0x091a…0934 at000a = ╱49╱I╱ // 0x924 @0xa
0x091a…0934 at000b = ╱4c╱L╱ // 0x925 @0xb
0x091a…0934 at000c = ╱ed╱(╱ // 0x926 @0xc
0x091a…0934 at000d = ╱4b╱K╱ // 0x927 @0xd
0x091a…0934 at000e = ╱54╱T╱ // 0x928 @0xe
0x091a…0934 at000f = ╱4f╱O╱ // 0x929 @0xf
0x091a…0934 at0010 = ╱49╱I╱ // 0x92a @0x10
0x091a…0934 at0011 = ╱44╱D╱ // 0x92b @0x11
0x091a…0934 at0012 = ╱58╱X╱ // 0x92c @0x12
0x091a…0934 at0013 = ╱ef╱$╱ // 0x92d @0x13
0x091a…0934 at0014 = ╱ec╱,╱ // 0x92e @0x14
0x091a…0934 at0015 = ╱22╱"╱ // 0x92f @0x15
0x091a…0934 at0016 = ╱57╱W╱ // 0x930 @0x16
0x091a…0934 at0017 = ╱22╱"╱ // 0x931 @0x17
0x091a…0934 at0018 = ╱ee╱)╱ // 0x932 @0x18
0x091a…0934 at0019 = EOL // 0x933 @0x19
0x091a…0934 }
0x0934…094d 9f3b 0810 EXEC OPENFIL(KONTO$,"W")
0x0934…094d LineComal80 {
0x0934…094d ptr = 0x9f3b // 0x934 @0x0
0x0934…094d lno = 0x032a // 0x936 @0x2
0x0934…094d at0004 = ╱9d╱ EXEC ╱ // 0x938 @0x4
0x0934…094d at0005 = ╱4f╱O╱ // 0x939 @0x5
0x0934…094d at0006 = ╱50╱P╱ // 0x93a @0x6
0x0934…094d at0007 = ╱45╱E╱ // 0x93b @0x7
0x0934…094d at0008 = ╱4e╱N╱ // 0x93c @0x8
0x0934…094d at0009 = ╱46╱F╱ // 0x93d @0x9
0x0934…094d at000a = ╱49╱I╱ // 0x93e @0xa
0x0934…094d at000b = ╱4c╱L╱ // 0x93f @0xb
0x0934…094d at000c = ╱ed╱(╱ // 0x940 @0xc
0x0934…094d at000d = ╱4b╱K╱ // 0x941 @0xd
0x0934…094d at000e = ╱4f╱O╱ // 0x942 @0xe
0x0934…094d at000f = ╱4e╱N╱ // 0x943 @0xf
0x0934…094d at0010 = ╱54╱T╱ // 0x944 @0x10
0x0934…094d at0011 = ╱4f╱O╱ // 0x945 @0x11
0x0934…094d at0012 = ╱ef╱$╱ // 0x946 @0x12
0x0934…094d at0013 = ╱ec╱,╱ // 0x947 @0x13
0x0934…094d at0014 = ╱22╱"╱ // 0x948 @0x14
0x0934…094d at0015 = ╱57╱W╱ // 0x949 @0x15
0x0934…094d at0016 = ╱22╱"╱ // 0x94a @0x16
0x0934…094d at0017 = ╱ee╱)╱ // 0x94b @0x17
0x0934…094d at0018 = EOL // 0x94c @0x18
0x0934…094d }
0x094d…095a 9f48 0820 ENDPROC INITIER
0x094d…095a LineComal80 {
0x094d…095a ptr = 0x9f48 // 0x94d @0x0
0x094d…095a lno = 0x0334 // 0x94f @0x2
0x094d…095a at0004 = ╱9f╱ ENDPROC ╱ // 0x951 @0x4
0x094d…095a at0005 = ╱49╱I╱ // 0x952 @0x5
0x094d…095a at0006 = ╱4e╱N╱ // 0x953 @0x6
0x094d…095a at0007 = ╱49╱I╱ // 0x954 @0x7
0x094d…095a at0008 = ╱54╱T╱ // 0x955 @0x8
0x094d…095a at0009 = ╱49╱I╱ // 0x956 @0x9
0x094d…095a at000a = ╱45╱E╱ // 0x957 @0xa
0x094d…095a at000b = ╱52╱R╱ // 0x958 @0xb
0x094d…095a at000c = EOL // 0x959 @0xc
0x094d…095a }
0x095a…095f 9f4d 0830
0x095a…095f LineComal80 {
0x095a…095f ptr = 0x9f4d // 0x95a @0x0
0x095a…095f lno = 0x033e // 0x95c @0x2
0x095a…095f at0004 = EOL // 0x95e @0x4
0x095a…095f }
0x095f…0965 9f53 0840 //
0x095f…0965 LineComal80 {
0x095f…0965 ptr = 0x9f53 // 0x95f @0x0
0x095f…0965 lno = 0x0348 // 0x961 @0x2
0x095f…0965 at0004 = ╱89╱ // ╱ // 0x963 @0x4
0x095f…0965 at0005 = EOL // 0x964 @0x5
0x095f…0965 }
0x0965…0978 9f66 0850 PROC TERMINAL_IDX
0x0965…0978 LineComal80 {
0x0965…0978 ptr = 0x9f66 // 0x965 @0x0
0x0965…0978 lno = 0x0352 // 0x967 @0x2
0x0965…0978 at0004 = ╱9e00╱ PROC ╱ // 0x969 @0x4
0x0965…0978 at0006 = ╱54╱T╱ // 0x96b @0x6
0x0965…0978 at0007 = ╱45╱E╱ // 0x96c @0x7
0x0965…0978 at0008 = ╱52╱R╱ // 0x96d @0x8
0x0965…0978 at0009 = ╱4d╱M╱ // 0x96e @0x9
0x0965…0978 at000a = ╱49╱I╱ // 0x96f @0xa
0x0965…0978 at000b = ╱4e╱N╱ // 0x970 @0xb
0x0965…0978 at000c = ╱41╱A╱ // 0x971 @0xc
0x0965…0978 at000d = ╱4c╱L╱ // 0x972 @0xd
0x0965…0978 at000e = ╱5f╱_╱ // 0x973 @0xe
0x0965…0978 at000f = ╱49╱I╱ // 0x974 @0xf
0x0965…0978 at0010 = ╱44╱D╱ // 0x975 @0x10
0x0965…0978 at0011 = ╱58╱X╱ // 0x976 @0x11
0x0965…0978 at0012 = EOL // 0x977 @0x12
0x0965…0978 }
0x0978…0992 9f80 0860 LET PPAR := 5 ; RESRV := 0
0x0978…0992 LineComal80 {
0x0978…0992 ptr = 0x9f80 // 0x978 @0x0
0x0978…0992 lno = 0x035c // 0x97a @0x2
0x0978…0992 at0004 = ╱86╱ LET ╱ // 0x97c @0x4
0x0978…0992 at0005 = ╱50╱P╱ // 0x97d @0x5
0x0978…0992 at0006 = ╱50╱P╱ // 0x97e @0x6
0x0978…0992 at0007 = ╱41╱A╱ // 0x97f @0x7
0x0978…0992 at0008 = ╱52╱R╱ // 0x980 @0x8
0x0978…0992 at0009 = ╱f0╱ := ╱ // 0x981 @0x9
0x0978…0992 at000a = ╱35╱5╱ // 0x982 @0xa
0x0978…0992 at000b = ╱f20500╱ // 0x983 @0xb
0x0978…0992 at000e = ╱ea╱ ; ╱ // 0x986 @0xe
0x0978…0992 at000f = ╱52╱R╱ // 0x987 @0xf
0x0978…0992 at0010 = ╱45╱E╱ // 0x988 @0x10
0x0978…0992 at0011 = ╱53╱S╱ // 0x989 @0x11
0x0978…0992 at0012 = ╱52╱R╱ // 0x98a @0x12
0x0978…0992 at0013 = ╱56╱V╱ // 0x98b @0x13
0x0978…0992 at0014 = ╱f0╱ := ╱ // 0x98c @0x14
0x0978…0992 at0015 = ╱30╱0╱ // 0x98d @0x15
0x0978…0992 at0016 = ╱f20000╱ // 0x98e @0x16
0x0978…0992 at0019 = EOL // 0x991 @0x19
0x0978…0992 }
0x0992…09a4 9f92 0870 CALL L"DDE:PRES"
0x0992…09a4 LineComal80 {
0x0992…09a4 ptr = 0x9f92 // 0x992 @0x0
0x0992…09a4 lno = 0x0366 // 0x994 @0x2
0x0992…09a4 at0004 = ╱ad46╱ CALL ╱ // 0x996 @0x4
0x0992…09a4 at0006 = ╱4c╱L╱ // 0x998 @0x6
0x0992…09a4 at0007 = ╱22╱"╱ // 0x999 @0x7
0x0992…09a4 at0008 = ╱44╱D╱ // 0x99a @0x8
0x0992…09a4 at0009 = ╱44╱D╱ // 0x99b @0x9
0x0992…09a4 at000a = ╱45╱E╱ // 0x99c @0xa
0x0992…09a4 at000b = ╱3a╱:╱ // 0x99d @0xb
0x0992…09a4 at000c = ╱50╱P╱ // 0x99e @0xc
0x0992…09a4 at000d = ╱52╱R╱ // 0x99f @0xd
0x0992…09a4 at000e = ╱45╱E╱ // 0x9a0 @0xe
0x0992…09a4 at000f = ╱53╱S╱ // 0x9a1 @0xf
0x0992…09a4 at0010 = ╱22╱"╱ // 0x9a2 @0x10
0x0992…09a4 at0011 = EOL // 0x9a3 @0x11
0x0992…09a4 }
0x09a4…09cd 9fbb 0880 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0x09a4…09cd LineComal80 {
0x09a4…09cd ptr = 0x9fbb // 0x9a4 @0x0
0x09a4…09cd lno = 0x0370 // 0x9a6 @0x2
0x09a4…09cd at0004 = ╱a9╱ GET ╱ // 0x9a8 @0x4
0x09a4…09cd at0005 = ╱53╱S╱ // 0x9a9 @0x5
0x09a4…09cd at0006 = ╱59╱Y╱ // 0x9aa @0x6
0x09a4…09cd at0007 = ╱53╱S╱ // 0x9ab @0x7
0x09a4…09cd at0008 = ╱50╱P╱ // 0x9ac @0x8
0x09a4…09cd at0009 = ╱41╱A╱ // 0x9ad @0x9
0x09a4…09cd at000a = ╱52╱R╱ // 0x9ae @0xa
0x09a4…09cd at000b = ╱41╱A╱ // 0x9af @0xb
0x09a4…09cd at000c = ╱ef╱$╱ // 0x9b0 @0xc
0x09a4…09cd at000d = ╱ec╱,╱ // 0x9b1 @0xd
0x09a4…09cd at000e = ╱31╱1╱ // 0x9b2 @0xe
0x09a4…09cd at000f = ╱f20100╱ // 0x9b3 @0xf
0x09a4…09cd at0012 = ╱e5╱ + ╱ // 0x9b6 @0x12
0x09a4…09cd at0013 = ╱52╱R╱ // 0x9b7 @0x13
0x09a4…09cd at0014 = ╱45╱E╱ // 0x9b8 @0x14
0x09a4…09cd at0015 = ╱53╱S╱ // 0x9b9 @0x15
0x09a4…09cd at0016 = ╱52╱R╱ // 0x9ba @0x16
0x09a4…09cd at0017 = ╱56╱V╱ // 0x9bb @0x17
0x09a4…09cd at0018 = ╱f1╱ : ╱ // 0x9bc @0x18
0x09a4…09cd at0019 = ╱44╱D╱ // 0x9bd @0x19
0x09a4…09cd at001a = ╱41╱A╱ // 0x9be @0x1a
0x09a4…09cd at001b = ╱54╱T╱ // 0x9bf @0x1b
0x09a4…09cd at001c = ╱41╱A╱ // 0x9c0 @0x1c
0x09a4…09cd at001d = ╱46╱F╱ // 0x9c1 @0x1d
0x09a4…09cd at001e = ╱4c╱L╱ // 0x9c2 @0x1e
0x09a4…09cd at001f = ╱ef╱$╱ // 0x9c3 @0x1f
0x09a4…09cd at0020 = ╱ec╱,╱ // 0x9c4 @0x20
0x09a4…09cd at0021 = ╱54╱T╱ // 0x9c5 @0x21
0x09a4…09cd at0022 = ╱5f╱_╱ // 0x9c6 @0x22
0x09a4…09cd at0023 = ╱4b╱K╱ // 0x9c7 @0x23
0x09a4…09cd at0024 = ╱4f╱O╱ // 0x9c8 @0x24
0x09a4…09cd at0025 = ╱44╱D╱ // 0x9c9 @0x25
0x09a4…09cd at0026 = ╱45╱E╱ // 0x9ca @0x26
0x09a4…09cd at0027 = ╱ef╱$╱ // 0x9cb @0x27
0x09a4…09cd at0028 = EOL // 0x9cc @0x28
0x09a4…09cd }
0x09cd…09df 9fcd 0890 ENDPROC TERMINAL_IDX
0x09cd…09df LineComal80 {
0x09cd…09df ptr = 0x9fcd // 0x9cd @0x0
0x09cd…09df lno = 0x037a // 0x9cf @0x2
0x09cd…09df at0004 = ╱9f╱ ENDPROC ╱ // 0x9d1 @0x4
0x09cd…09df at0005 = ╱54╱T╱ // 0x9d2 @0x5
0x09cd…09df at0006 = ╱45╱E╱ // 0x9d3 @0x6
0x09cd…09df at0007 = ╱52╱R╱ // 0x9d4 @0x7
0x09cd…09df at0008 = ╱4d╱M╱ // 0x9d5 @0x8
0x09cd…09df at0009 = ╱49╱I╱ // 0x9d6 @0x9
0x09cd…09df at000a = ╱4e╱N╱ // 0x9d7 @0xa
0x09cd…09df at000b = ╱41╱A╱ // 0x9d8 @0xb
0x09cd…09df at000c = ╱4c╱L╱ // 0x9d9 @0xc
0x09cd…09df at000d = ╱5f╱_╱ // 0x9da @0xd
0x09cd…09df at000e = ╱49╱I╱ // 0x9db @0xe
0x09cd…09df at000f = ╱44╱D╱ // 0x9dc @0xf
0x09cd…09df at0010 = ╱58╱X╱ // 0x9dd @0x10
0x09cd…09df at0011 = EOL // 0x9de @0x11
0x09cd…09df }
0x09df…09e4 9fd2 0900
0x09df…09e4 LineComal80 {
0x09df…09e4 ptr = 0x9fd2 // 0x9df @0x0
0x09df…09e4 lno = 0x0384 // 0x9e1 @0x2
0x09df…09e4 at0004 = EOL // 0x9e3 @0x4
0x09df…09e4 }
0x09e4…09ff 9fed 0910 PROC OPENFIL(FNAVN$,WAY$)
0x09e4…09ff LineComal80 {
0x09e4…09ff ptr = 0x9fed // 0x9e4 @0x0
0x09e4…09ff lno = 0x038e // 0x9e6 @0x2
0x09e4…09ff at0004 = ╱9e00╱ PROC ╱ // 0x9e8 @0x4
0x09e4…09ff at0006 = ╱4f╱O╱ // 0x9ea @0x6
0x09e4…09ff at0007 = ╱50╱P╱ // 0x9eb @0x7
0x09e4…09ff at0008 = ╱45╱E╱ // 0x9ec @0x8
0x09e4…09ff at0009 = ╱4e╱N╱ // 0x9ed @0x9
0x09e4…09ff at000a = ╱46╱F╱ // 0x9ee @0xa
0x09e4…09ff at000b = ╱49╱I╱ // 0x9ef @0xb
0x09e4…09ff at000c = ╱4c╱L╱ // 0x9f0 @0xc
0x09e4…09ff at000d = ╱ed╱(╱ // 0x9f1 @0xd
0x09e4…09ff at000e = ╱46╱F╱ // 0x9f2 @0xe
0x09e4…09ff at000f = ╱4e╱N╱ // 0x9f3 @0xf
0x09e4…09ff at0010 = ╱41╱A╱ // 0x9f4 @0x10
0x09e4…09ff at0011 = ╱56╱V╱ // 0x9f5 @0x11
0x09e4…09ff at0012 = ╱4e╱N╱ // 0x9f6 @0x12
0x09e4…09ff at0013 = ╱ef╱$╱ // 0x9f7 @0x13
0x09e4…09ff at0014 = ╱ec╱,╱ // 0x9f8 @0x14
0x09e4…09ff at0015 = ╱57╱W╱ // 0x9f9 @0x15
0x09e4…09ff at0016 = ╱41╱A╱ // 0x9fa @0x16
0x09e4…09ff at0017 = ╱59╱Y╱ // 0x9fb @0x17
0x09e4…09ff at0018 = ╱ef╱$╱ // 0x9fc @0x18
0x09e4…09ff at0019 = ╱ee╱)╱ // 0x9fd @0x19
0x09e4…09ff at001a = EOL // 0x9fe @0x1a
0x09e4…09ff }
0x09ff…0a06 9ff4 0920 REPEAT
0x09ff…0a06 LineComal80 {
0x09ff…0a06 ptr = 0x9ff4 // 0x9ff @0x0
0x09ff…0a06 lno = 0x0398 // 0xa01 @0x2
0x09ff…0a06 at0004 = ╱9700╱ REPEAT ╱ // 0xa03 @0x4
0x09ff…0a06 at0006 = EOL // 0xa05 @0x6
0x09ff…0a06 }
0x0a06…0a1f a00d 0930 IF AY$ = "W" OR WAY$ = "w" THEN
0x0a06…0a1f LineComal80 {
0x0a06…0a1f ptr = 0xa00d // 0xa06 @0x0
0x0a06…0a1f lno = 0x03a2 // 0xa08 @0x2
0x0a06…0a1f at0004 = ╱9b0057╱ IF ╱ // 0xa0a @0x4
0x0a06…0a1f at0007 = ╱41╱A╱ // 0xa0d @0x7
0x0a06…0a1f at0008 = ╱59╱Y╱ // 0xa0e @0x8
0x0a06…0a1f at0009 = ╱ef╱$╱ // 0xa0f @0x9
0x0a06…0a1f at000a = ╱df╱ = ╱ // 0xa10 @0xa
0x0a06…0a1f at000b = ╱22╱"╱ // 0xa11 @0xb
0x0a06…0a1f at000c = ╱57╱W╱ // 0xa12 @0xc
0x0a06…0a1f at000d = ╱22╱"╱ // 0xa13 @0xd
0x0a06…0a1f at000e = ╱d8╱ OR ╱ // 0xa14 @0xe
0x0a06…0a1f at000f = ╱57╱W╱ // 0xa15 @0xf
0x0a06…0a1f at0010 = ╱41╱A╱ // 0xa16 @0x10
0x0a06…0a1f at0011 = ╱59╱Y╱ // 0xa17 @0x11
0x0a06…0a1f at0012 = ╱ef╱$╱ // 0xa18 @0x12
0x0a06…0a1f at0013 = ╱df╱ = ╱ // 0xa19 @0x13
0x0a06…0a1f at0014 = ╱22╱"╱ // 0xa1a @0x14
0x0a06…0a1f at0015 = ╱77╱w╱ // 0xa1b @0x15
0x0a06…0a1f at0016 = ╱22╱"╱ // 0xa1c @0x16
0x0a06…0a1f at0017 = ╱b5╱ THEN ╱ // 0xa1d @0x17
0x0a06…0a1f at0018 = EOL // 0xa1e @0x18
0x0a06…0a1f }
0x0a1f…0a2d a01b 0940 OPEN FNAVN$,W
0x0a1f…0a2d LineComal80 {
0x0a1f…0a2d ptr = 0xa01b // 0xa1f @0x0
0x0a1f…0a2d lno = 0x03ac // 0xa21 @0x2
0x0a1f…0a2d at0004 = ╱a7╱ OPEN ╱ // 0xa23 @0x4
0x0a1f…0a2d at0005 = ╱46╱F╱ // 0xa24 @0x5
0x0a1f…0a2d at0006 = ╱4e╱N╱ // 0xa25 @0x6
0x0a1f…0a2d at0007 = ╱41╱A╱ // 0xa26 @0x7
0x0a1f…0a2d at0008 = ╱56╱V╱ // 0xa27 @0x8
0x0a1f…0a2d at0009 = ╱4e╱N╱ // 0xa28 @0x9
0x0a1f…0a2d at000a = ╱ef╱$╱ // 0xa29 @0xa
0x0a1f…0a2d at000b = ╱ec╱,╱ // 0xa2a @0xb
0x0a1f…0a2d at000c = ╱57╱W╱ // 0xa2b @0xc
0x0a1f…0a2d at000d = EOL // 0xa2c @0xd
0x0a1f…0a2d }
0x0a2d…0a34 a022 0950 ELSE
0x0a2d…0a34 LineComal80 {
0x0a2d…0a34 ptr = 0xa022 // 0xa2d @0x0
0x0a2d…0a34 lno = 0x03b6 // 0xa2f @0x2
0x0a2d…0a34 at0004 = ╱9a00╱ ELSE ╱ // 0xa31 @0x4
0x0a2d…0a34 at0006 = EOL // 0xa33 @0x6
0x0a2d…0a34 }
0x0a34…0a42 a030 0960 OPEN FNAVN$,R
0x0a34…0a42 LineComal80 {
0x0a34…0a42 ptr = 0xa030 // 0xa34 @0x0
0x0a34…0a42 lno = 0x03c0 // 0xa36 @0x2
0x0a34…0a42 at0004 = ╱a7╱ OPEN ╱ // 0xa38 @0x4
0x0a34…0a42 at0005 = ╱46╱F╱ // 0xa39 @0x5
0x0a34…0a42 at0006 = ╱4e╱N╱ // 0xa3a @0x6
0x0a34…0a42 at0007 = ╱41╱A╱ // 0xa3b @0x7
0x0a34…0a42 at0008 = ╱56╱V╱ // 0xa3c @0x8
0x0a34…0a42 at0009 = ╱4e╱N╱ // 0xa3d @0x9
0x0a34…0a42 at000a = ╱ef╱$╱ // 0xa3e @0xa
0x0a34…0a42 at000b = ╱ec╱,╱ // 0xa3f @0xb
0x0a34…0a42 at000c = ╱52╱R╱ // 0xa40 @0xc
0x0a34…0a42 at000d = EOL // 0xa41 @0xd
0x0a34…0a42 }
0x0a42…0a48 a036 0970 ENDIF
0x0a42…0a48 LineComal80 {
0x0a42…0a48 ptr = 0xa036 // 0xa42 @0x0
0x0a42…0a48 lno = 0x03ca // 0xa44 @0x2
0x0a42…0a48 at0004 = ╱9c╱ ENDIF ╱ // 0xa46 @0x4
0x0a42…0a48 at0005 = EOL // 0xa47 @0x5
0x0a42…0a48 }
0x0a48…0a59 a047 0980 IF (FNAVN$) THEN
0x0a48…0a59 LineComal80 {
0x0a48…0a59 ptr = 0xa047 // 0xa48 @0x0
0x0a48…0a59 lno = 0x03d4 // 0xa4a @0x2
0x0a48…0a59 at0004 = ╱9b00cd╱ IF ╱ // 0xa4c @0x4
0x0a48…0a59 at0007 = ╱ed╱(╱ // 0xa4f @0x7
0x0a48…0a59 at0008 = ╱46╱F╱ // 0xa50 @0x8
0x0a48…0a59 at0009 = ╱4e╱N╱ // 0xa51 @0x9
0x0a48…0a59 at000a = ╱41╱A╱ // 0xa52 @0xa
0x0a48…0a59 at000b = ╱56╱V╱ // 0xa53 @0xb
0x0a48…0a59 at000c = ╱4e╱N╱ // 0xa54 @0xc
0x0a48…0a59 at000d = ╱ef╱$╱ // 0xa55 @0xd
0x0a48…0a59 at000e = ╱ee╱)╱ // 0xa56 @0xe
0x0a48…0a59 at000f = ╱b5╱ THEN ╱ // 0xa57 @0xf
0x0a48…0a59 at0010 = EOL // 0xa58 @0x10
0x0a48…0a59 }
0x0a59…0a6c a05a 0990 PRINT "<S>" ; CHR$ (7)
0x0a59…0a6c LineComal80 {
0x0a59…0a6c ptr = 0xa05a // 0xa59 @0x0
0x0a59…0a6c lno = 0x03de // 0xa5b @0x2
0x0a59…0a6c at0004 = ╱92╱ PRINT ╱ // 0xa5d @0x4
0x0a59…0a6c at0005 = ╱22╱"╱ // 0xa5e @0x5
0x0a59…0a6c at0006 = ╱3c╱<╱ // 0xa5f @0x6
0x0a59…0a6c at0007 = ╱53╱S╱ // 0xa60 @0x7
0x0a59…0a6c at0008 = ╱3e╱>╱ // 0xa61 @0x8
0x0a59…0a6c at0009 = ╱22╱"╱ // 0xa62 @0x9
0x0a59…0a6c at000a = ╱ea╱ ; ╱ // 0xa63 @0xa
0x0a59…0a6c at000b = ╱d0╱ CHR$ ╱ // 0xa64 @0xb
0x0a59…0a6c at000c = ╱ed╱(╱ // 0xa65 @0xc
0x0a59…0a6c at000d = ╱37╱7╱ // 0xa66 @0xd
0x0a59…0a6c at000e = ╱f20700╱ // 0xa67 @0xe
0x0a59…0a6c at0011 = ╱ee╱)╱ // 0xa6a @0x11
0x0a59…0a6c at0012 = EOL // 0xa6b @0x12
0x0a59…0a6c }
0x0a6c…0a82 a070 1000 IF (FNAVN$) = 6 THEN
0x0a6c…0a82 LineComal80 {
0x0a6c…0a82 ptr = 0xa070 // 0xa6c @0x0
0x0a6c…0a82 lno = 0x03e8 // 0xa6e @0x2
0x0a6c…0a82 at0004 = ╱9b00cd╱ IF ╱ // 0xa70 @0x4
0x0a6c…0a82 at0007 = ╱ed╱(╱ // 0xa73 @0x7
0x0a6c…0a82 at0008 = ╱46╱F╱ // 0xa74 @0x8
0x0a6c…0a82 at0009 = ╱4e╱N╱ // 0xa75 @0x9
0x0a6c…0a82 at000a = ╱41╱A╱ // 0xa76 @0xa
0x0a6c…0a82 at000b = ╱56╱V╱ // 0xa77 @0xb
0x0a6c…0a82 at000c = ╱4e╱N╱ // 0xa78 @0xc
0x0a6c…0a82 at000d = ╱ef╱$╱ // 0xa79 @0xd
0x0a6c…0a82 at000e = ╱ee╱)╱ // 0xa7a @0xe
0x0a6c…0a82 at000f = ╱df╱ = ╱ // 0xa7b @0xf
0x0a6c…0a82 at0010 = ╱36╱6╱ // 0xa7c @0x10
0x0a6c…0a82 at0011 = ╱f20600╱ // 0xa7d @0x11
0x0a6c…0a82 at0014 = ╱b5╱ THEN ╱ // 0xa80 @0x14
0x0a6c…0a82 at0015 = EOL // 0xa81 @0x15
0x0a6c…0a82 }
0x0a82…0ac7 a0b5 1010 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
0x0a82…0ac7 LineComal80 {
0x0a82…0ac7 ptr = 0xa0b5 // 0xa82 @0x0
0x0a82…0ac7 lno = 0x03f2 // 0xa84 @0x2
0x0a82…0ac7 at0004 = ╱92╱ PRINT ╱ // 0xa86 @0x4
0x0a82…0ac7 at0005 = ╱22╱"╱ // 0xa87 @0x5
0x0a82…0ac7 at0006 = ╱3c╱<╱ // 0xa88 @0x6
0x0a82…0ac7 at0007 = ╱53╱S╱ // 0xa89 @0x7
0x0a82…0ac7 at0008 = ╱43╱C╱ // 0xa8a @0x8
0x0a82…0ac7 at0009 = ╱31╱1╱ // 0xa8b @0x9
0x0a82…0ac7 at000a = ╱36╱6╱ // 0xa8c @0xa
0x0a82…0ac7 at000b = ╱30╱0╱ // 0xa8d @0xb
0x0a82…0ac7 at000c = ╱32╱2╱ // 0xa8e @0xc
0x0a82…0ac7 at000d = ╱3e╱>╱ // 0xa8f @0xd
0x0a82…0ac7 at000e = ╱2a╱*╱ // 0xa90 @0xe
0x0a82…0ac7 at000f = ╱2a╱*╱ // 0xa91 @0xf
0x0a82…0ac7 at0010 = ╱2a╱*╱ // 0xa92 @0x10
0x0a82…0ac7 at0011 = ╱20╱…╱ // 0xa93 @0x11
0x0a82…0ac7 at0012 = ╱46╱F╱ // 0xa94 @0x12
0x0a82…0ac7 at0013 = ╱65╱e╱ // 0xa95 @0x13
0x0a82…0ac7 at0014 = ╱6a╱j╱ // 0xa96 @0x14
0x0a82…0ac7 at0015 = ╱6c╱l╱ // 0xa97 @0x15
0x0a82…0ac7 at0016 = ╱20╱…╱ // 0xa98 @0x16
0x0a82…0ac7 at0017 = ╱6e╱n╱ // 0xa99 @0x17
0x0a82…0ac7 at0018 = ╱72╱r╱ // 0xa9a @0x18
0x0a82…0ac7 at0019 = ╱2e╱.╱ // 0xa9b @0x19
0x0a82…0ac7 at001a = ╱20╱…╱ // 0xa9c @0x1a
0x0a82…0ac7 at001b = ╱36╱6╱ // 0xa9d @0x1b
0x0a82…0ac7 at001c = ╱20╱…╱ // 0xa9e @0x1c
0x0a82…0ac7 at001d = ╱2d╱-╱ // 0xa9f @0x1d
0x0a82…0ac7 at001e = ╱20╱…╱ // 0xaa0 @0x1e
0x0a82…0ac7 at001f = ╱69╱i╱ // 0xaa1 @0x1f
0x0a82…0ac7 at0020 = ╱6e╱n╱ // 0xaa2 @0x20
0x0a82…0ac7 at0021 = ╱64╱d╱ // 0xaa3 @0x21
0x0a82…0ac7 at0022 = ╱73╱s╱ // 0xaa4 @0x22
0x0a82…0ac7 at0023 = ╱7b╱æ╱ // 0xaa5 @0x23
0x0a82…0ac7 at0024 = ╱74╱t╱ // 0xaa6 @0x24
0x0a82…0ac7 at0025 = ╱20╱…╱ // 0xaa7 @0x25
0x0a82…0ac7 at0026 = ╱64╱d╱ // 0xaa8 @0x26
0x0a82…0ac7 at0027 = ╱69╱i╱ // 0xaa9 @0x27
0x0a82…0ac7 at0028 = ╱73╱s╱ // 0xaaa @0x28
0x0a82…0ac7 at0029 = ╱6b╱k╱ // 0xaab @0x29
0x0a82…0ac7 at002a = ╱65╱e╱ // 0xaac @0x2a
0x0a82…0ac7 at002b = ╱74╱t╱ // 0xaad @0x2b
0x0a82…0ac7 at002c = ╱74╱t╱ // 0xaae @0x2c
0x0a82…0ac7 at002d = ╱65╱e╱ // 0xaaf @0x2d
0x0a82…0ac7 at002e = ╱20╱…╱ // 0xab0 @0x2e
0x0a82…0ac7 at002f = ╱6f╱o╱ // 0xab1 @0x2f
0x0a82…0ac7 at0030 = ╱67╱g╱ // 0xab2 @0x30
0x0a82…0ac7 at0031 = ╱20╱…╱ // 0xab3 @0x31
0x0a82…0ac7 at0032 = ╱74╱t╱ // 0xab4 @0x32
0x0a82…0ac7 at0033 = ╱72╱r╱ // 0xab5 @0x33
0x0a82…0ac7 at0034 = ╱79╱y╱ // 0xab6 @0x34
0x0a82…0ac7 at0035 = ╱6b╱k╱ // 0xab7 @0x35
0x0a82…0ac7 at0036 = ╱20╱…╱ // 0xab8 @0x36
0x0a82…0ac7 at0037 = ╱3c╱<╱ // 0xab9 @0x37
0x0a82…0ac7 at0038 = ╱52╱R╱ // 0xaba @0x38
0x0a82…0ac7 at0039 = ╱45╱E╱ // 0xabb @0x39
0x0a82…0ac7 at003a = ╱54╱T╱ // 0xabc @0x3a
0x0a82…0ac7 at003b = ╱55╱U╱ // 0xabd @0x3b
0x0a82…0ac7 at003c = ╱52╱R╱ // 0xabe @0x3c
0x0a82…0ac7 at003d = ╱4e╱N╱ // 0xabf @0x3d
0x0a82…0ac7 at003e = ╱3e╱>╱ // 0xac0 @0x3e
0x0a82…0ac7 at003f = ╱20╱…╱ // 0xac1 @0x3f
0x0a82…0ac7 at0040 = ╱2a╱*╱ // 0xac2 @0x40
0x0a82…0ac7 at0041 = ╱2a╱*╱ // 0xac3 @0x41
0x0a82…0ac7 at0042 = ╱2a╱*╱ // 0xac4 @0x42
0x0a82…0ac7 at0043 = ╱22╱"╱ // 0xac5 @0x43
0x0a82…0ac7 at0044 = EOL // 0xac6 @0x44
0x0a82…0ac7 }
0x0ac7…0ad5 a0c3 1020 INPUT "" : SVAR$
0x0ac7…0ad5 LineComal80 {
0x0ac7…0ad5 ptr = 0xa0c3 // 0xac7 @0x0
0x0ac7…0ad5 lno = 0x03fc // 0xac9 @0x2
0x0ac7…0ad5 at0004 = ╱91╱ INPUT ╱ // 0xacb @0x4
0x0ac7…0ad5 at0005 = ╱22╱"╱ // 0xacc @0x5
0x0ac7…0ad5 at0006 = ╱22╱"╱ // 0xacd @0x6
0x0ac7…0ad5 at0007 = ╱f1╱ : ╱ // 0xace @0x7
0x0ac7…0ad5 at0008 = ╱53╱S╱ // 0xacf @0x8
0x0ac7…0ad5 at0009 = ╱56╱V╱ // 0xad0 @0x9
0x0ac7…0ad5 at000a = ╱41╱A╱ // 0xad1 @0xa
0x0ac7…0ad5 at000b = ╱52╱R╱ // 0xad2 @0xb
0x0ac7…0ad5 at000c = ╱ef╱$╱ // 0xad3 @0xc
0x0ac7…0ad5 at000d = EOL // 0xad4 @0xd
0x0ac7…0ad5 }
0x0ad5…0adc a0ca 1030 ELSE
0x0ad5…0adc LineComal80 {
0x0ad5…0adc ptr = 0xa0ca // 0xad5 @0x0
0x0ad5…0adc lno = 0x0406 // 0xad7 @0x2
0x0ad5…0adc at0004 = ╱9a00╱ ELSE ╱ // 0xad9 @0x4
0x0ad5…0adc at0006 = EOL // 0xadb @0x6
0x0ad5…0adc }
0x0adc…0b1d a10b 1040 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
0x0adc…0b1d LineComal80 {
0x0adc…0b1d ptr = 0xa10b // 0xadc @0x0
0x0adc…0b1d lno = 0x0410 // 0xade @0x2
0x0adc…0b1d at0004 = ╱92╱ PRINT ╱ // 0xae0 @0x4
0x0adc…0b1d at0005 = ╱22╱"╱ // 0xae1 @0x5
0x0adc…0b1d at0006 = ╱3c╱<╱ // 0xae2 @0x6
0x0adc…0b1d at0007 = ╱53╱S╱ // 0xae3 @0x7
0x0adc…0b1d at0008 = ╱43╱C╱ // 0xae4 @0x8
0x0adc…0b1d at0009 = ╱31╱1╱ // 0xae5 @0x9
0x0adc…0b1d at000a = ╱38╱8╱ // 0xae6 @0xa
0x0adc…0b1d at000b = ╱30╱0╱ // 0xae7 @0xb
0x0adc…0b1d at000c = ╱32╱2╱ // 0xae8 @0xc
0x0adc…0b1d at000d = ╱3e╱>╱ // 0xae9 @0xd
0x0adc…0b1d at000e = ╱2a╱*╱ // 0xaea @0xe
0x0adc…0b1d at000f = ╱2a╱*╱ // 0xaeb @0xf
0x0adc…0b1d at0010 = ╱2a╱*╱ // 0xaec @0x10
0x0adc…0b1d at0011 = ╱20╱…╱ // 0xaed @0x11
0x0adc…0b1d at0012 = ╱46╱F╱ // 0xaee @0x12
0x0adc…0b1d at0013 = ╱65╱e╱ // 0xaef @0x13
0x0adc…0b1d at0014 = ╱6a╱j╱ // 0xaf0 @0x14
0x0adc…0b1d at0015 = ╱6c╱l╱ // 0xaf1 @0x15
0x0adc…0b1d at0016 = ╱20╱…╱ // 0xaf2 @0x16
0x0adc…0b1d at0017 = ╱6e╱n╱ // 0xaf3 @0x17
0x0adc…0b1d at0018 = ╱72╱r╱ // 0xaf4 @0x18
0x0adc…0b1d at0019 = ╱2e╱.╱ // 0xaf5 @0x19
0x0adc…0b1d at001a = ╱20╱…╱ // 0xaf6 @0x1a
0x0adc…0b1d at001b = ╱22╱"╱ // 0xaf7 @0x1b
0x0adc…0b1d at001c = ╱ea╱ ; ╱ // 0xaf8 @0x1c
0x0adc…0b1d at001d = ╱d0╱ CHR$ ╱ // 0xaf9 @0x1d
0x0adc…0b1d at001e = ╱ed╱(╱ // 0xafa @0x1e
0x0adc…0b1d at001f = ╱cd╱ // 0xafb @0x1f
0x0adc…0b1d at0020 = ╱ed╱(╱ // 0xafc @0x20
0x0adc…0b1d at0021 = ╱46╱F╱ // 0xafd @0x21
0x0adc…0b1d at0022 = ╱4e╱N╱ // 0xafe @0x22
0x0adc…0b1d at0023 = ╱41╱A╱ // 0xaff @0x23
0x0adc…0b1d at0024 = ╱56╱V╱ // 0xb00 @0x24
0x0adc…0b1d at0025 = ╱4e╱N╱ // 0xb01 @0x25
0x0adc…0b1d at0026 = ╱ef╱$╱ // 0xb02 @0x26
0x0adc…0b1d at0027 = ╱ee╱)╱ // 0xb03 @0x27
0x0adc…0b1d at0028 = ╱ec╱,╱ // 0xb04 @0x28
0x0adc…0b1d at0029 = ╱32╱2╱ // 0xb05 @0x29
0x0adc…0b1d at002a = ╱f20200╱ // 0xb06 @0x2a
0x0adc…0b1d at002d = ╱ee╱)╱ // 0xb09 @0x2d
0x0adc…0b1d at002e = ╱ea╱ ; ╱ // 0xb0a @0x2e
0x0adc…0b1d at002f = ╱22╱"╱ // 0xb0b @0x2f
0x0adc…0b1d at0030 = ╱20╱…╱ // 0xb0c @0x30
0x0adc…0b1d at0031 = ╱76╱v╱ // 0xb0d @0x31
0x0adc…0b1d at0032 = ╱65╱e╱ // 0xb0e @0x32
0x0adc…0b1d at0033 = ╱64╱d╱ // 0xb0f @0x33
0x0adc…0b1d at0034 = ╱20╱…╱ // 0xb10 @0x34
0x0adc…0b1d at0035 = ╱7d╱å╱ // 0xb11 @0x35
0x0adc…0b1d at0036 = ╱62╱b╱ // 0xb12 @0x36
0x0adc…0b1d at0037 = ╱6e╱n╱ // 0xb13 @0x37
0x0adc…0b1d at0038 = ╱69╱i╱ // 0xb14 @0x38
0x0adc…0b1d at0039 = ╱6e╱n╱ // 0xb15 @0x39
0x0adc…0b1d at003a = ╱67╱g╱ // 0xb16 @0x3a
0x0adc…0b1d at003b = ╱20╱…╱ // 0xb17 @0x3b
0x0adc…0b1d at003c = ╱61╱a╱ // 0xb18 @0x3c
0x0adc…0b1d at003d = ╱66╱f╱ // 0xb19 @0x3d
0x0adc…0b1d at003e = ╱20╱…╱ // 0xb1a @0x3e
0x0adc…0b1d at003f = ╱22╱"╱ // 0xb1b @0x3f
0x0adc…0b1d at0040 = EOL // 0xb1c @0x40
0x0adc…0b1d }
0x0b1d…0b36 a124 1050 PRINT "<S>" ; FNAVN$ ; " ***"
0x0b1d…0b36 LineComal80 {
0x0b1d…0b36 ptr = 0xa124 // 0xb1d @0x0
0x0b1d…0b36 lno = 0x041a // 0xb1f @0x2
0x0b1d…0b36 at0004 = ╱92╱ PRINT ╱ // 0xb21 @0x4
0x0b1d…0b36 at0005 = ╱22╱"╱ // 0xb22 @0x5
0x0b1d…0b36 at0006 = ╱3c╱<╱ // 0xb23 @0x6
0x0b1d…0b36 at0007 = ╱53╱S╱ // 0xb24 @0x7
0x0b1d…0b36 at0008 = ╱3e╱>╱ // 0xb25 @0x8
0x0b1d…0b36 at0009 = ╱22╱"╱ // 0xb26 @0x9
0x0b1d…0b36 at000a = ╱ea╱ ; ╱ // 0xb27 @0xa
0x0b1d…0b36 at000b = ╱46╱F╱ // 0xb28 @0xb
0x0b1d…0b36 at000c = ╱4e╱N╱ // 0xb29 @0xc
0x0b1d…0b36 at000d = ╱41╱A╱ // 0xb2a @0xd
0x0b1d…0b36 at000e = ╱56╱V╱ // 0xb2b @0xe
0x0b1d…0b36 at000f = ╱4e╱N╱ // 0xb2c @0xf
0x0b1d…0b36 at0010 = ╱ef╱$╱ // 0xb2d @0x10
0x0b1d…0b36 at0011 = ╱ea╱ ; ╱ // 0xb2e @0x11
0x0b1d…0b36 at0012 = ╱22╱"╱ // 0xb2f @0x12
0x0b1d…0b36 at0013 = ╱20╱…╱ // 0xb30 @0x13
0x0b1d…0b36 at0014 = ╱2a╱*╱ // 0xb31 @0x14
0x0b1d…0b36 at0015 = ╱2a╱*╱ // 0xb32 @0x15
0x0b1d…0b36 at0016 = ╱2a╱*╱ // 0xb33 @0x16
0x0b1d…0b36 at0017 = ╱22╱"╱ // 0xb34 @0x17
0x0b1d…0b36 at0018 = EOL // 0xb35 @0x18
0x0b1d…0b36 }
0x0b36…0b44 a132 1060 INPUT "" : SVAR$
0x0b36…0b44 LineComal80 {
0x0b36…0b44 ptr = 0xa132 // 0xb36 @0x0
0x0b36…0b44 lno = 0x0424 // 0xb38 @0x2
0x0b36…0b44 at0004 = ╱91╱ INPUT ╱ // 0xb3a @0x4
0x0b36…0b44 at0005 = ╱22╱"╱ // 0xb3b @0x5
0x0b36…0b44 at0006 = ╱22╱"╱ // 0xb3c @0x6
0x0b36…0b44 at0007 = ╱f1╱ : ╱ // 0xb3d @0x7
0x0b36…0b44 at0008 = ╱53╱S╱ // 0xb3e @0x8
0x0b36…0b44 at0009 = ╱56╱V╱ // 0xb3f @0x9
0x0b36…0b44 at000a = ╱41╱A╱ // 0xb40 @0xa
0x0b36…0b44 at000b = ╱52╱R╱ // 0xb41 @0xb
0x0b36…0b44 at000c = ╱ef╱$╱ // 0xb42 @0xc
0x0b36…0b44 at000d = EOL // 0xb43 @0xd
0x0b36…0b44 }
0x0b44…0b58 a146 1070 PRINT "<C0102>" ; SPC$
0x0b44…0b58 LineComal80 {
0x0b44…0b58 ptr = 0xa146 // 0xb44 @0x0
0x0b44…0b58 lno = 0x042e // 0xb46 @0x2
0x0b44…0b58 at0004 = ╱92╱ PRINT ╱ // 0xb48 @0x4
0x0b44…0b58 at0005 = ╱22╱"╱ // 0xb49 @0x5
0x0b44…0b58 at0006 = ╱3c╱<╱ // 0xb4a @0x6
0x0b44…0b58 at0007 = ╱43╱C╱ // 0xb4b @0x7
0x0b44…0b58 at0008 = ╱30╱0╱ // 0xb4c @0x8
0x0b44…0b58 at0009 = ╱31╱1╱ // 0xb4d @0x9
0x0b44…0b58 at000a = ╱30╱0╱ // 0xb4e @0xa
0x0b44…0b58 at000b = ╱32╱2╱ // 0xb4f @0xb
0x0b44…0b58 at000c = ╱3e╱>╱ // 0xb50 @0xc
0x0b44…0b58 at000d = ╱22╱"╱ // 0xb51 @0xd
0x0b44…0b58 at000e = ╱ea╱ ; ╱ // 0xb52 @0xe
0x0b44…0b58 at000f = ╱53╱S╱ // 0xb53 @0xf
0x0b44…0b58 at0010 = ╱50╱P╱ // 0xb54 @0x10
0x0b44…0b58 at0011 = ╱43╱C╱ // 0xb55 @0x11
0x0b44…0b58 at0012 = ╱ef╱$╱ // 0xb56 @0x12
0x0b44…0b58 at0013 = EOL // 0xb57 @0x13
0x0b44…0b58 }
0x0b58…0b5e a14c 1080 ENDIF
0x0b58…0b5e LineComal80 {
0x0b58…0b5e ptr = 0xa14c // 0xb58 @0x0
0x0b58…0b5e lno = 0x0438 // 0xb5a @0x2
0x0b58…0b5e at0004 = ╱9c╱ ENDIF ╱ // 0xb5c @0x4
0x0b58…0b5e at0005 = EOL // 0xb5d @0x5
0x0b58…0b5e }
0x0b5e…0b64 a152 1090 ENDIF
0x0b5e…0b64 LineComal80 {
0x0b5e…0b64 ptr = 0xa152 // 0xb5e @0x0
0x0b5e…0b64 lno = 0x0442 // 0xb60 @0x2
0x0b5e…0b64 at0004 = ╱9c╱ ENDIF ╱ // 0xb62 @0x4
0x0b5e…0b64 at0005 = EOL // 0xb63 @0x5
0x0b5e…0b64 }
0x0b64…0b74 a162 1100 UNTIL NOT ╱cd╱ (FNAVN$)
0x0b64…0b74 LineComal80 {
0x0b64…0b74 ptr = 0xa162 // 0xb64 @0x0
0x0b64…0b74 lno = 0x044c // 0xb66 @0x2
0x0b64…0b74 at0004 = ╱98╱ UNTIL ╱ // 0xb68 @0x4
0x0b64…0b74 at0005 = ╱d7╱ NOT ╱ // 0xb69 @0x5
0x0b64…0b74 at0006 = ╱cd╱ // 0xb6a @0x6
0x0b64…0b74 at0007 = ╱ed╱(╱ // 0xb6b @0x7
0x0b64…0b74 at0008 = ╱46╱F╱ // 0xb6c @0x8
0x0b64…0b74 at0009 = ╱4e╱N╱ // 0xb6d @0x9
0x0b64…0b74 at000a = ╱41╱A╱ // 0xb6e @0xa
0x0b64…0b74 at000b = ╱56╱V╱ // 0xb6f @0xb
0x0b64…0b74 at000c = ╱4e╱N╱ // 0xb70 @0xc
0x0b64…0b74 at000d = ╱ef╱$╱ // 0xb71 @0xd
0x0b64…0b74 at000e = ╱ee╱)╱ // 0xb72 @0xe
0x0b64…0b74 at000f = EOL // 0xb73 @0xf
0x0b64…0b74 }
0x0b74…0b81 a16f 1110 ENDPROC OPENFIL
0x0b74…0b81 LineComal80 {
0x0b74…0b81 ptr = 0xa16f // 0xb74 @0x0
0x0b74…0b81 lno = 0x0456 // 0xb76 @0x2
0x0b74…0b81 at0004 = ╱9f╱ ENDPROC ╱ // 0xb78 @0x4
0x0b74…0b81 at0005 = ╱4f╱O╱ // 0xb79 @0x5
0x0b74…0b81 at0006 = ╱50╱P╱ // 0xb7a @0x6
0x0b74…0b81 at0007 = ╱45╱E╱ // 0xb7b @0x7
0x0b74…0b81 at0008 = ╱4e╱N╱ // 0xb7c @0x8
0x0b74…0b81 at0009 = ╱46╱F╱ // 0xb7d @0x9
0x0b74…0b81 at000a = ╱49╱I╱ // 0xb7e @0xa
0x0b74…0b81 at000b = ╱4c╱L╱ // 0xb7f @0xb
0x0b74…0b81 at000c = EOL // 0xb80 @0xc
0x0b74…0b81 }
0x0b81…0b86 a174 1120
0x0b81…0b86 LineComal80 {
0x0b81…0b86 ptr = 0xa174 // 0xb81 @0x0
0x0b81…0b86 lno = 0x0460 // 0xb83 @0x2
0x0b81…0b86 at0004 = EOL // 0xb85 @0x4
0x0b81…0b86 }
0x0b86…0b9e a18c 1130 PROC OVERSKRIFT(ST$,L)
0x0b86…0b9e LineComal80 {
0x0b86…0b9e ptr = 0xa18c // 0xb86 @0x0
0x0b86…0b9e lno = 0x046a // 0xb88 @0x2
0x0b86…0b9e at0004 = ╱9e00╱ PROC ╱ // 0xb8a @0x4
0x0b86…0b9e at0006 = ╱4f╱O╱ // 0xb8c @0x6
0x0b86…0b9e at0007 = ╱56╱V╱ // 0xb8d @0x7
0x0b86…0b9e at0008 = ╱45╱E╱ // 0xb8e @0x8
0x0b86…0b9e at0009 = ╱52╱R╱ // 0xb8f @0x9
0x0b86…0b9e at000a = ╱53╱S╱ // 0xb90 @0xa
0x0b86…0b9e at000b = ╱4b╱K╱ // 0xb91 @0xb
0x0b86…0b9e at000c = ╱52╱R╱ // 0xb92 @0xc
0x0b86…0b9e at000d = ╱49╱I╱ // 0xb93 @0xd
0x0b86…0b9e at000e = ╱46╱F╱ // 0xb94 @0xe
0x0b86…0b9e at000f = ╱54╱T╱ // 0xb95 @0xf
0x0b86…0b9e at0010 = ╱ed╱(╱ // 0xb96 @0x10
0x0b86…0b9e at0011 = ╱53╱S╱ // 0xb97 @0x11
0x0b86…0b9e at0012 = ╱54╱T╱ // 0xb98 @0x12
0x0b86…0b9e at0013 = ╱ef╱$╱ // 0xb99 @0x13
0x0b86…0b9e at0014 = ╱ec╱,╱ // 0xb9a @0x14
0x0b86…0b9e at0015 = ╱4c╱L╱ // 0xb9b @0x15
0x0b86…0b9e at0016 = ╱ee╱)╱ // 0xb9c @0x16
0x0b86…0b9e at0017 = EOL // 0xb9d @0x17
0x0b86…0b9e }
0x0b9e…0bc4 a1b2 1140 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0x0b9e…0bc4 LineComal80 {
0x0b9e…0bc4 ptr = 0xa1b2 // 0xb9e @0x0
0x0b9e…0bc4 lno = 0x0474 // 0xba0 @0x2
0x0b9e…0bc4 at0004 = ╱92╱ PRINT ╱ // 0xba2 @0x4
0x0b9e…0bc4 at0005 = ╱22╱"╱ // 0xba3 @0x5
0x0b9e…0bc4 at0006 = ╱3c╱<╱ // 0xba4 @0x6
0x0b9e…0bc4 at0007 = ╱58╱X╱ // 0xba5 @0x7
0x0b9e…0bc4 at0008 = ╱43╱C╱ // 0xba6 @0x8
0x0b9e…0bc4 at0009 = ╱30╱0╱ // 0xba7 @0x9
0x0b9e…0bc4 at000a = ╱31╱1╱ // 0xba8 @0xa
0x0b9e…0bc4 at000b = ╱30╱0╱ // 0xba9 @0xb
0x0b9e…0bc4 at000c = ╱31╱1╱ // 0xbaa @0xc
0x0b9e…0bc4 at000d = ╱3e╱>╱ // 0xbab @0xd
0x0b9e…0bc4 at000e = ╱46╱F╱ // 0xbac @0xe
0x0b9e…0bc4 at000f = ╱69╱i╱ // 0xbad @0xf
0x0b9e…0bc4 at0010 = ╱72╱r╱ // 0xbae @0x10
0x0b9e…0bc4 at0011 = ╱6d╱m╱ // 0xbaf @0x11
0x0b9e…0bc4 at0012 = ╱61╱a╱ // 0xbb0 @0x12
0x0b9e…0bc4 at0013 = ╱6e╱n╱ // 0xbb1 @0x13
0x0b9e…0bc4 at0014 = ╱61╱a╱ // 0xbb2 @0x14
0x0b9e…0bc4 at0015 = ╱76╱v╱ // 0xbb3 @0x15
0x0b9e…0bc4 at0016 = ╱6e╱n╱ // 0xbb4 @0x16
0x0b9e…0bc4 at0017 = ╱3a╱:╱ // 0xbb5 @0x17
0x0b9e…0bc4 at0018 = ╱20╱…╱ // 0xbb6 @0x18
0x0b9e…0bc4 at0019 = ╱22╱"╱ // 0xbb7 @0x19
0x0b9e…0bc4 at001a = ╱ea╱ ; ╱ // 0xbb8 @0x1a
0x0b9e…0bc4 at001b = ╱46╱F╱ // 0xbb9 @0x1b
0x0b9e…0bc4 at001c = ╱49╱I╱ // 0xbba @0x1c
0x0b9e…0bc4 at001d = ╱52╱R╱ // 0xbbb @0x1d
0x0b9e…0bc4 at001e = ╱4d╱M╱ // 0xbbc @0x1e
0x0b9e…0bc4 at001f = ╱41╱A╱ // 0xbbd @0x1f
0x0b9e…0bc4 at0020 = ╱4e╱N╱ // 0xbbe @0x20
0x0b9e…0bc4 at0021 = ╱41╱A╱ // 0xbbf @0x21
0x0b9e…0bc4 at0022 = ╱56╱V╱ // 0xbc0 @0x22
0x0b9e…0bc4 at0023 = ╱4e╱N╱ // 0xbc1 @0x23
0x0b9e…0bc4 at0024 = ╱ef╱$╱ // 0xbc2 @0x24
0x0b9e…0bc4 at0025 = EOL // 0xbc3 @0x25
0x0b9e…0bc4 }
0x0bc4…0c0c a1fa 1150 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0x0bc4…0c0c LineComal80 {
0x0bc4…0c0c ptr = 0xa1fa // 0xbc4 @0x0
0x0bc4…0c0c lno = 0x047e // 0xbc6 @0x2
0x0bc4…0c0c at0004 = ╱92╱ PRINT ╱ // 0xbc8 @0x4
0x0bc4…0c0c at0005 = ╱22╱"╱ // 0xbc9 @0x5
0x0bc4…0c0c at0006 = ╱3c╱<╱ // 0xbca @0x6
0x0bc4…0c0c at0007 = ╱53╱S╱ // 0xbcb @0x7
0x0bc4…0c0c at0008 = ╱43╱C╱ // 0xbcc @0x8
0x0bc4…0c0c at0009 = ╱36╱6╱ // 0xbcd @0x9
0x0bc4…0c0c at000a = ╱35╱5╱ // 0xbce @0xa
0x0bc4…0c0c at000b = ╱30╱0╱ // 0xbcf @0xb
0x0bc4…0c0c at000c = ╱31╱1╱ // 0xbd0 @0xc
0x0bc4…0c0c at000d = ╱3e╱>╱ // 0xbd1 @0xd
0x0bc4…0c0c at000e = ╱44╱D╱ // 0xbd2 @0xe
0x0bc4…0c0c at000f = ╱61╱a╱ // 0xbd3 @0xf
0x0bc4…0c0c at0010 = ╱74╱t╱ // 0xbd4 @0x10
0x0bc4…0c0c at0011 = ╱6f╱o╱ // 0xbd5 @0x11
0x0bc4…0c0c at0012 = ╱3a╱:╱ // 0xbd6 @0x12
0x0bc4…0c0c at0013 = ╱20╱…╱ // 0xbd7 @0x13
0x0bc4…0c0c at0014 = ╱22╱"╱ // 0xbd8 @0x14
0x0bc4…0c0c at0015 = ╱ea╱ ; ╱ // 0xbd9 @0x15
0x0bc4…0c0c at0016 = ╱53╱S╱ // 0xbda @0x16
0x0bc4…0c0c at0017 = ╱59╱Y╱ // 0xbdb @0x17
0x0bc4…0c0c at0018 = ╱53╱S╱ // 0xbdc @0x18
0x0bc4…0c0c at0019 = ╱54╱T╱ // 0xbdd @0x19
0x0bc4…0c0c at001a = ╱5f╱_╱ // 0xbde @0x1a
0x0bc4…0c0c at001b = ╱44╱D╱ // 0xbdf @0x1b
0x0bc4…0c0c at001c = ╱41╱A╱ // 0xbe0 @0x1c
0x0bc4…0c0c at001d = ╱54╱T╱ // 0xbe1 @0x1d
0x0bc4…0c0c at001e = ╱ef╱$╱ // 0xbe2 @0x1e
0x0bc4…0c0c at001f = ╱ed╱(╱ // 0xbe3 @0x1f
0x0bc4…0c0c at0020 = ╱31╱1╱ // 0xbe4 @0x20
0x0bc4…0c0c at0021 = ╱f20100╱ // 0xbe5 @0x21
0x0bc4…0c0c at0024 = ╱f1╱ : ╱ // 0xbe8 @0x24
0x0bc4…0c0c at0025 = ╱32╱2╱ // 0xbe9 @0x25
0x0bc4…0c0c at0026 = ╱f20200╱ // 0xbea @0x26
0x0bc4…0c0c at0029 = ╱ee╱)╱ // 0xbed @0x29
0x0bc4…0c0c at002a = ╱ea╱ ; ╱ // 0xbee @0x2a
0x0bc4…0c0c at002b = ╱22╱"╱ // 0xbef @0x2b
0x0bc4…0c0c at002c = ╱2e╱.╱ // 0xbf0 @0x2c
0x0bc4…0c0c at002d = ╱22╱"╱ // 0xbf1 @0x2d
0x0bc4…0c0c at002e = ╱ea╱ ; ╱ // 0xbf2 @0x2e
0x0bc4…0c0c at002f = ╱53╱S╱ // 0xbf3 @0x2f
0x0bc4…0c0c at0030 = ╱59╱Y╱ // 0xbf4 @0x30
0x0bc4…0c0c at0031 = ╱53╱S╱ // 0xbf5 @0x31
0x0bc4…0c0c at0032 = ╱54╱T╱ // 0xbf6 @0x32
0x0bc4…0c0c at0033 = ╱5f╱_╱ // 0xbf7 @0x33
0x0bc4…0c0c at0034 = ╱44╱D╱ // 0xbf8 @0x34
0x0bc4…0c0c at0035 = ╱41╱A╱ // 0xbf9 @0x35
0x0bc4…0c0c at0036 = ╱54╱T╱ // 0xbfa @0x36
0x0bc4…0c0c at0037 = ╱ef╱$╱ // 0xbfb @0x37
0x0bc4…0c0c at0038 = ╱ed╱(╱ // 0xbfc @0x38
0x0bc4…0c0c at0039 = ╱33╱3╱ // 0xbfd @0x39
0x0bc4…0c0c at003a = ╱f20300╱ // 0xbfe @0x3a
0x0bc4…0c0c at003d = ╱f1╱ : ╱ // 0xc01 @0x3d
0x0bc4…0c0c at003e = ╱32╱2╱ // 0xc02 @0x3e
0x0bc4…0c0c at003f = ╱f20200╱ // 0xc03 @0x3f
0x0bc4…0c0c at0042 = ╱ee╱)╱ // 0xc06 @0x42
0x0bc4…0c0c at0043 = ╱ea╱ ; ╱ // 0xc07 @0x43
0x0bc4…0c0c at0044 = ╱22╱"╱ // 0xc08 @0x44
0x0bc4…0c0c at0045 = ╱2e╱.╱ // 0xc09 @0x45
0x0bc4…0c0c at0046 = ╱22╱"╱ // 0xc0a @0x46
0x0bc4…0c0c at0047 = EOL // 0xc0b @0x47
0x0bc4…0c0c }
0x0c0c…0c26 a214 1160 PRINT SYST_DAT$(5 : 2)
0x0c0c…0c26 LineComal80 {
0x0c0c…0c26 ptr = 0xa214 // 0xc0c @0x0
0x0c0c…0c26 lno = 0x0488 // 0xc0e @0x2
0x0c0c…0c26 at0004 = ╱92╱ PRINT ╱ // 0xc10 @0x4
0x0c0c…0c26 at0005 = ╱53╱S╱ // 0xc11 @0x5
0x0c0c…0c26 at0006 = ╱59╱Y╱ // 0xc12 @0x6
0x0c0c…0c26 at0007 = ╱53╱S╱ // 0xc13 @0x7
0x0c0c…0c26 at0008 = ╱54╱T╱ // 0xc14 @0x8
0x0c0c…0c26 at0009 = ╱5f╱_╱ // 0xc15 @0x9
0x0c0c…0c26 at000a = ╱44╱D╱ // 0xc16 @0xa
0x0c0c…0c26 at000b = ╱41╱A╱ // 0xc17 @0xb
0x0c0c…0c26 at000c = ╱54╱T╱ // 0xc18 @0xc
0x0c0c…0c26 at000d = ╱ef╱$╱ // 0xc19 @0xd
0x0c0c…0c26 at000e = ╱ed╱(╱ // 0xc1a @0xe
0x0c0c…0c26 at000f = ╱35╱5╱ // 0xc1b @0xf
0x0c0c…0c26 at0010 = ╱f20500╱ // 0xc1c @0x10
0x0c0c…0c26 at0013 = ╱f1╱ : ╱ // 0xc1f @0x13
0x0c0c…0c26 at0014 = ╱32╱2╱ // 0xc20 @0x14
0x0c0c…0c26 at0015 = ╱f20200╱ // 0xc21 @0x15
0x0c0c…0c26 at0018 = ╱ee╱)╱ // 0xc24 @0x18
0x0c0c…0c26 at0019 = EOL // 0xc25 @0x19
0x0c0c…0c26 }
0x0c26…0c42 a230 1170 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
0x0c26…0c42 LineComal80 {
0x0c26…0c42 ptr = 0xa230 // 0xc26 @0x0
0x0c26…0c42 lno = 0x0492 // 0xc28 @0x2
0x0c26…0c42 at0004 = ╱a1╱ CURSOR ╱ // 0xc2a @0x4
0x0c26…0c42 at0005 = ╱33╱3╱ // 0xc2b @0x5
0x0c26…0c42 at0006 = ╱34╱4╱ // 0xc2c @0x6
0x0c26…0c42 at0007 = ╱f22200╱ // 0xc2d @0x7
0x0c26…0c42 at000a = ╱e6╱ - ╱ // 0xc30 @0xa
0x0c26…0c42 at000b = ╱c6╱INT╱ // 0xc31 @0xb
0x0c26…0c42 at000c = ╱ed╱(╱ // 0xc32 @0xc
0x0c26…0c42 at000d = ╱cb╱ // 0xc33 @0xd
0x0c26…0c42 at000e = ╱ed╱(╱ // 0xc34 @0xe
0x0c26…0c42 at000f = ╱53╱S╱ // 0xc35 @0xf
0x0c26…0c42 at0010 = ╱54╱T╱ // 0xc36 @0x10
0x0c26…0c42 at0011 = ╱ef╱$╱ // 0xc37 @0x11
0x0c26…0c42 at0012 = ╱ee╱)╱ // 0xc38 @0x12
0x0c26…0c42 at0013 = ╱e8╱ / ╱ // 0xc39 @0x13
0x0c26…0c42 at0014 = ╱32╱2╱ // 0xc3a @0x14
0x0c26…0c42 at0015 = ╱f20200╱ // 0xc3b @0x15
0x0c26…0c42 at0018 = ╱ee╱)╱ // 0xc3e @0x18
0x0c26…0c42 at0019 = ╱ec╱,╱ // 0xc3f @0x19
0x0c26…0c42 at001a = ╱4c╱L╱ // 0xc40 @0x1a
0x0c26…0c42 at001b = EOL // 0xc41 @0x1b
0x0c26…0c42 }
0x0c42…0c59 a247 1180 PRINT "*** " ; ST$ ; " ***"
0x0c42…0c59 LineComal80 {
0x0c42…0c59 ptr = 0xa247 // 0xc42 @0x0
0x0c42…0c59 lno = 0x049c // 0xc44 @0x2
0x0c42…0c59 at0004 = ╱92╱ PRINT ╱ // 0xc46 @0x4
0x0c42…0c59 at0005 = ╱22╱"╱ // 0xc47 @0x5
0x0c42…0c59 at0006 = ╱2a╱*╱ // 0xc48 @0x6
0x0c42…0c59 at0007 = ╱2a╱*╱ // 0xc49 @0x7
0x0c42…0c59 at0008 = ╱2a╱*╱ // 0xc4a @0x8
0x0c42…0c59 at0009 = ╱20╱…╱ // 0xc4b @0x9
0x0c42…0c59 at000a = ╱22╱"╱ // 0xc4c @0xa
0x0c42…0c59 at000b = ╱ea╱ ; ╱ // 0xc4d @0xb
0x0c42…0c59 at000c = ╱53╱S╱ // 0xc4e @0xc
0x0c42…0c59 at000d = ╱54╱T╱ // 0xc4f @0xd
0x0c42…0c59 at000e = ╱ef╱$╱ // 0xc50 @0xe
0x0c42…0c59 at000f = ╱ea╱ ; ╱ // 0xc51 @0xf
0x0c42…0c59 at0010 = ╱22╱"╱ // 0xc52 @0x10
0x0c42…0c59 at0011 = ╱20╱…╱ // 0xc53 @0x11
0x0c42…0c59 at0012 = ╱2a╱*╱ // 0xc54 @0x12
0x0c42…0c59 at0013 = ╱2a╱*╱ // 0xc55 @0x13
0x0c42…0c59 at0014 = ╱2a╱*╱ // 0xc56 @0x14
0x0c42…0c59 at0015 = ╱22╱"╱ // 0xc57 @0x15
0x0c42…0c59 at0016 = EOL // 0xc58 @0x16
0x0c42…0c59 }
0x0c59…0c69 a257 1190 ENDPROC OVERSKRIFT
0x0c59…0c69 LineComal80 {
0x0c59…0c69 ptr = 0xa257 // 0xc59 @0x0
0x0c59…0c69 lno = 0x04a6 // 0xc5b @0x2
0x0c59…0c69 at0004 = ╱9f╱ ENDPROC ╱ // 0xc5d @0x4
0x0c59…0c69 at0005 = ╱4f╱O╱ // 0xc5e @0x5
0x0c59…0c69 at0006 = ╱56╱V╱ // 0xc5f @0x6
0x0c59…0c69 at0007 = ╱45╱E╱ // 0xc60 @0x7
0x0c59…0c69 at0008 = ╱52╱R╱ // 0xc61 @0x8
0x0c59…0c69 at0009 = ╱53╱S╱ // 0xc62 @0x9
0x0c59…0c69 at000a = ╱4b╱K╱ // 0xc63 @0xa
0x0c59…0c69 at000b = ╱52╱R╱ // 0xc64 @0xb
0x0c59…0c69 at000c = ╱49╱I╱ // 0xc65 @0xc
0x0c59…0c69 at000d = ╱46╱F╱ // 0xc66 @0xd
0x0c59…0c69 at000e = ╱54╱T╱ // 0xc67 @0xe
0x0c59…0c69 at000f = EOL // 0xc68 @0xf
0x0c59…0c69 }
0x0c69…0c6e a25c 1200
0x0c69…0c6e LineComal80 {
0x0c69…0c6e ptr = 0xa25c // 0xc69 @0x0
0x0c69…0c6e lno = 0x04b0 // 0xc6b @0x2
0x0c69…0c6e at0004 = EOL // 0xc6d @0x4
0x0c69…0c6e }
0x0c6e…0c81 a26f 1210 PROC SL_FEJLLINIE
0x0c6e…0c81 LineComal80 {
0x0c6e…0c81 ptr = 0xa26f // 0xc6e @0x0
0x0c6e…0c81 lno = 0x04ba // 0xc70 @0x2
0x0c6e…0c81 at0004 = ╱9e00╱ PROC ╱ // 0xc72 @0x4
0x0c6e…0c81 at0006 = ╱53╱S╱ // 0xc74 @0x6
0x0c6e…0c81 at0007 = ╱4c╱L╱ // 0xc75 @0x7
0x0c6e…0c81 at0008 = ╱5f╱_╱ // 0xc76 @0x8
0x0c6e…0c81 at0009 = ╱46╱F╱ // 0xc77 @0x9
0x0c6e…0c81 at000a = ╱45╱E╱ // 0xc78 @0xa
0x0c6e…0c81 at000b = ╱4a╱J╱ // 0xc79 @0xb
0x0c6e…0c81 at000c = ╱4c╱L╱ // 0xc7a @0xc
0x0c6e…0c81 at000d = ╱4c╱L╱ // 0xc7b @0xd
0x0c6e…0c81 at000e = ╱49╱I╱ // 0xc7c @0xe
0x0c6e…0c81 at000f = ╱4e╱N╱ // 0xc7d @0xf
0x0c6e…0c81 at0010 = ╱49╱I╱ // 0xc7e @0x10
0x0c6e…0c81 at0011 = ╱45╱E╱ // 0xc7f @0x11
0x0c6e…0c81 at0012 = EOL // 0xc80 @0x12
0x0c6e…0c81 }
0x0c81…0c8e a27c 1220 LET OK := TRUE
0x0c81…0c8e LineComal80 {
0x0c81…0c8e ptr = 0xa27c // 0xc81 @0x0
0x0c81…0c8e lno = 0x04c4 // 0xc83 @0x2
0x0c81…0c8e at0004 = ╱86╱ LET ╱ // 0xc85 @0x4
0x0c81…0c8e at0005 = ╱4f╱O╱ // 0xc86 @0x5
0x0c81…0c8e at0006 = ╱4b╱K╱ // 0xc87 @0x6
0x0c81…0c8e at0007 = ╱f0╱ := ╱ // 0xc88 @0x7
0x0c81…0c8e at0008 = ╱54╱T╱ // 0xc89 @0x8
0x0c81…0c8e at0009 = ╱52╱R╱ // 0xc8a @0x9
0x0c81…0c8e at000a = ╱55╱U╱ // 0xc8b @0xa
0x0c81…0c8e at000b = ╱45╱E╱ // 0xc8c @0xb
0x0c81…0c8e at000c = EOL // 0xc8d @0xc
0x0c81…0c8e }
0x0c8e…0ca2 a290 1230 PRINT "<C0102>" ; SPC$
0x0c8e…0ca2 LineComal80 {
0x0c8e…0ca2 ptr = 0xa290 // 0xc8e @0x0
0x0c8e…0ca2 lno = 0x04ce // 0xc90 @0x2
0x0c8e…0ca2 at0004 = ╱92╱ PRINT ╱ // 0xc92 @0x4
0x0c8e…0ca2 at0005 = ╱22╱"╱ // 0xc93 @0x5
0x0c8e…0ca2 at0006 = ╱3c╱<╱ // 0xc94 @0x6
0x0c8e…0ca2 at0007 = ╱43╱C╱ // 0xc95 @0x7
0x0c8e…0ca2 at0008 = ╱30╱0╱ // 0xc96 @0x8
0x0c8e…0ca2 at0009 = ╱31╱1╱ // 0xc97 @0x9
0x0c8e…0ca2 at000a = ╱30╱0╱ // 0xc98 @0xa
0x0c8e…0ca2 at000b = ╱32╱2╱ // 0xc99 @0xb
0x0c8e…0ca2 at000c = ╱3e╱>╱ // 0xc9a @0xc
0x0c8e…0ca2 at000d = ╱22╱"╱ // 0xc9b @0xd
0x0c8e…0ca2 at000e = ╱ea╱ ; ╱ // 0xc9c @0xe
0x0c8e…0ca2 at000f = ╱53╱S╱ // 0xc9d @0xf
0x0c8e…0ca2 at0010 = ╱50╱P╱ // 0xc9e @0x10
0x0c8e…0ca2 at0011 = ╱43╱C╱ // 0xc9f @0x11
0x0c8e…0ca2 at0012 = ╱ef╱$╱ // 0xca0 @0x12
0x0c8e…0ca2 at0013 = EOL // 0xca1 @0x13
0x0c8e…0ca2 }
0x0ca2…0cb4 (42,) a2a2 1240 ENDPROC SL_FEJLLINIE
0x0ca2…0cb4 LineComal80 {
0x0ca2…0cb4 ptr = 0xa2a2 // 0xca2 @0x0
0x0ca2…0cb4 lno = 0x04d8 // 0xca4 @0x2
0x0ca2…0cb4 at0004 = ╱9f╱ ENDPROC ╱ // 0xca6 @0x4
0x0ca2…0cb4 at0005 = ╱53╱S╱ // 0xca7 @0x5
0x0ca2…0cb4 at0006 = ╱4c╱L╱ // 0xca8 @0x6
0x0ca2…0cb4 at0007 = ╱5f╱_╱ // 0xca9 @0x7
0x0ca2…0cb4 at0008 = ╱46╱F╱ // 0xcaa @0x8
0x0ca2…0cb4 at0009 = ╱45╱E╱ // 0xcab @0x9
0x0ca2…0cb4 at000a = ╱4a╱J╱ // 0xcac @0xa
0x0ca2…0cb4 at000b = ╱4c╱L╱ // 0xcad @0xb
0x0ca2…0cb4 at000c = ╱4c╱L╱ // 0xcae @0xc
0x0ca2…0cb4 at000d = ╱49╱I╱ // 0xcaf @0xd
0x0ca2…0cb4 at000e = ╱4e╱N╱ // 0xcb0 @0xe
0x0ca2…0cb4 at000f = ╱49╱I╱ // 0xcb1 @0xf
0x0ca2…0cb4 at0010 = ╱45╱E╱ // 0xcb2 @0x10
0x0ca2…0cb4 at0011 = EOL // 0xcb3 @0x11
0x0ca2…0cb4 }
0x0cb4…0cb9 a2a7 1250
0x0cb4…0cb9 LineComal80 {
0x0cb4…0cb9 ptr = 0xa2a7 // 0xcb4 @0x0
0x0cb4…0cb9 lno = 0x04e2 // 0xcb6 @0x2
0x0cb4…0cb9 at0004 = EOL // 0xcb8 @0x4
0x0cb4…0cb9 }
0x0cb9…0cc9 a2b7 1260 PROC FEJL(ST$)
0x0cb9…0cc9 LineComal80 {
0x0cb9…0cc9 ptr = 0xa2b7 // 0xcb9 @0x0
0x0cb9…0cc9 lno = 0x04ec // 0xcbb @0x2
0x0cb9…0cc9 at0004 = ╱9e00╱ PROC ╱ // 0xcbd @0x4
0x0cb9…0cc9 at0006 = ╱46╱F╱ // 0xcbf @0x6
0x0cb9…0cc9 at0007 = ╱45╱E╱ // 0xcc0 @0x7
0x0cb9…0cc9 at0008 = ╱4a╱J╱ // 0xcc1 @0x8
0x0cb9…0cc9 at0009 = ╱4c╱L╱ // 0xcc2 @0x9
0x0cb9…0cc9 at000a = ╱ed╱(╱ // 0xcc3 @0xa
0x0cb9…0cc9 at000b = ╱53╱S╱ // 0xcc4 @0xb
0x0cb9…0cc9 at000c = ╱54╱T╱ // 0xcc5 @0xc
0x0cb9…0cc9 at000d = ╱ef╱$╱ // 0xcc6 @0xd
0x0cb9…0cc9 at000e = ╱ee╱)╱ // 0xcc7 @0xe
0x0cb9…0cc9 at000f = EOL // 0xcc8 @0xf
0x0cb9…0cc9 }
0x0cc9…0cd7 a2c5 1270 LET OK := FALSE
0x0cc9…0cd7 LineComal80 {
0x0cc9…0cd7 ptr = 0xa2c5 // 0xcc9 @0x0
0x0cc9…0cd7 lno = 0x04f6 // 0xccb @0x2
0x0cc9…0cd7 at0004 = ╱86╱ LET ╱ // 0xccd @0x4
0x0cc9…0cd7 at0005 = ╱4f╱O╱ // 0xcce @0x5
0x0cc9…0cd7 at0006 = ╱4b╱K╱ // 0xccf @0x6
0x0cc9…0cd7 at0007 = ╱f0╱ := ╱ // 0xcd0 @0x7
0x0cc9…0cd7 at0008 = ╱46╱F╱ // 0xcd1 @0x8
0x0cc9…0cd7 at0009 = ╱41╱A╱ // 0xcd2 @0x9
0x0cc9…0cd7 at000a = ╱4c╱L╱ // 0xcd3 @0xa
0x0cc9…0cd7 at000b = ╱53╱S╱ // 0xcd4 @0xb
0x0cc9…0cd7 at000c = ╱45╱E╱ // 0xcd5 @0xc
0x0cc9…0cd7 at000d = EOL // 0xcd6 @0xd
0x0cc9…0cd7 }
0x0cd7…0cf5 a2e3 1280 CURSOR 36 - ( ╱cb╱ (ST$) / 2),2
0x0cd7…0cf5 LineComal80 {
0x0cd7…0cf5 ptr = 0xa2e3 // 0xcd7 @0x0
0x0cd7…0cf5 lno = 0x0500 // 0xcd9 @0x2
0x0cd7…0cf5 at0004 = ╱a1╱ CURSOR ╱ // 0xcdb @0x4
0x0cd7…0cf5 at0005 = ╱33╱3╱ // 0xcdc @0x5
0x0cd7…0cf5 at0006 = ╱36╱6╱ // 0xcdd @0x6
0x0cd7…0cf5 at0007 = ╱f22400╱ // 0xcde @0x7
0x0cd7…0cf5 at000a = ╱e6╱ - ╱ // 0xce1 @0xa
0x0cd7…0cf5 at000b = ╱ed╱(╱ // 0xce2 @0xb
0x0cd7…0cf5 at000c = ╱cb╱ // 0xce3 @0xc
0x0cd7…0cf5 at000d = ╱ed╱(╱ // 0xce4 @0xd
0x0cd7…0cf5 at000e = ╱53╱S╱ // 0xce5 @0xe
0x0cd7…0cf5 at000f = ╱54╱T╱ // 0xce6 @0xf
0x0cd7…0cf5 at0010 = ╱ef╱$╱ // 0xce7 @0x10
0x0cd7…0cf5 at0011 = ╱ee╱)╱ // 0xce8 @0x11
0x0cd7…0cf5 at0012 = ╱e8╱ / ╱ // 0xce9 @0x12
0x0cd7…0cf5 at0013 = ╱32╱2╱ // 0xcea @0x13
0x0cd7…0cf5 at0014 = ╱f20200╱ // 0xceb @0x14
0x0cd7…0cf5 at0017 = ╱ee╱)╱ // 0xcee @0x17
0x0cd7…0cf5 at0018 = ╱ec╱,╱ // 0xcef @0x18
0x0cd7…0cf5 at0019 = ╱32╱2╱ // 0xcf0 @0x19
0x0cd7…0cf5 at001a = ╱f20200╱ // 0xcf1 @0x1a
0x0cd7…0cf5 at001d = EOL // 0xcf4 @0x1d
0x0cd7…0cf5 }
0x0cf5…0d17 a305 1290 PRINT "<S>*** " + ST$ + " ***" ; CHR$ (7)
0x0cf5…0d17 LineComal80 {
0x0cf5…0d17 ptr = 0xa305 // 0xcf5 @0x0
0x0cf5…0d17 lno = 0x050a // 0xcf7 @0x2
0x0cf5…0d17 at0004 = ╱92╱ PRINT ╱ // 0xcf9 @0x4
0x0cf5…0d17 at0005 = ╱22╱"╱ // 0xcfa @0x5
0x0cf5…0d17 at0006 = ╱3c╱<╱ // 0xcfb @0x6
0x0cf5…0d17 at0007 = ╱53╱S╱ // 0xcfc @0x7
0x0cf5…0d17 at0008 = ╱3e╱>╱ // 0xcfd @0x8
0x0cf5…0d17 at0009 = ╱2a╱*╱ // 0xcfe @0x9
0x0cf5…0d17 at000a = ╱2a╱*╱ // 0xcff @0xa
0x0cf5…0d17 at000b = ╱2a╱*╱ // 0xd00 @0xb
0x0cf5…0d17 at000c = ╱20╱…╱ // 0xd01 @0xc
0x0cf5…0d17 at000d = ╱22╱"╱ // 0xd02 @0xd
0x0cf5…0d17 at000e = ╱eb╱ + ╱ // 0xd03 @0xe
0x0cf5…0d17 at000f = ╱53╱S╱ // 0xd04 @0xf
0x0cf5…0d17 at0010 = ╱54╱T╱ // 0xd05 @0x10
0x0cf5…0d17 at0011 = ╱ef╱$╱ // 0xd06 @0x11
0x0cf5…0d17 at0012 = ╱eb╱ + ╱ // 0xd07 @0x12
0x0cf5…0d17 at0013 = ╱22╱"╱ // 0xd08 @0x13
0x0cf5…0d17 at0014 = ╱20╱…╱ // 0xd09 @0x14
0x0cf5…0d17 at0015 = ╱2a╱*╱ // 0xd0a @0x15
0x0cf5…0d17 at0016 = ╱2a╱*╱ // 0xd0b @0x16
0x0cf5…0d17 at0017 = ╱2a╱*╱ // 0xd0c @0x17
0x0cf5…0d17 at0018 = ╱22╱"╱ // 0xd0d @0x18
0x0cf5…0d17 at0019 = ╱ea╱ ; ╱ // 0xd0e @0x19
0x0cf5…0d17 at001a = ╱d0╱ CHR$ ╱ // 0xd0f @0x1a
0x0cf5…0d17 at001b = ╱ed╱(╱ // 0xd10 @0x1b
0x0cf5…0d17 at001c = ╱37╱7╱ // 0xd11 @0x1c
0x0cf5…0d17 at001d = ╱f20700╱ // 0xd12 @0x1d
0x0cf5…0d17 at0020 = ╱ee╱)╱ // 0xd15 @0x20
0x0cf5…0d17 at0021 = EOL // 0xd16 @0x21
0x0cf5…0d17 }
0x0d17…0d21 a30f 1300 ENDPROC FEJL
0x0d17…0d21 LineComal80 {
0x0d17…0d21 ptr = 0xa30f // 0xd17 @0x0
0x0d17…0d21 lno = 0x0514 // 0xd19 @0x2
0x0d17…0d21 at0004 = ╱9f╱ ENDPROC ╱ // 0xd1b @0x4
0x0d17…0d21 at0005 = ╱46╱F╱ // 0xd1c @0x5
0x0d17…0d21 at0006 = ╱45╱E╱ // 0xd1d @0x6
0x0d17…0d21 at0007 = ╱4a╱J╱ // 0xd1e @0x7
0x0d17…0d21 at0008 = ╱4c╱L╱ // 0xd1f @0x8
0x0d17…0d21 at0009 = EOL // 0xd20 @0x9
0x0d17…0d21 }
0x0d21…0d26 a314 1310
0x0d21…0d26 LineComal80 {
0x0d21…0d26 ptr = 0xa314 // 0xd21 @0x0
0x0d21…0d26 lno = 0x051e // 0xd23 @0x2
0x0d21…0d26 at0004 = EOL // 0xd25 @0x4
0x0d21…0d26 }
0x0d26…0d39 a327 1320 PROC INDTASTSALDI
0x0d26…0d39 LineComal80 {
0x0d26…0d39 ptr = 0xa327 // 0xd26 @0x0
0x0d26…0d39 lno = 0x0528 // 0xd28 @0x2
0x0d26…0d39 at0004 = ╱9e00╱ PROC ╱ // 0xd2a @0x4
0x0d26…0d39 at0006 = ╱49╱I╱ // 0xd2c @0x6
0x0d26…0d39 at0007 = ╱4e╱N╱ // 0xd2d @0x7
0x0d26…0d39 at0008 = ╱44╱D╱ // 0xd2e @0x8
0x0d26…0d39 at0009 = ╱54╱T╱ // 0xd2f @0x9
0x0d26…0d39 at000a = ╱41╱A╱ // 0xd30 @0xa
0x0d26…0d39 at000b = ╱53╱S╱ // 0xd31 @0xb
0x0d26…0d39 at000c = ╱54╱T╱ // 0xd32 @0xc
0x0d26…0d39 at000d = ╱53╱S╱ // 0xd33 @0xd
0x0d26…0d39 at000e = ╱41╱A╱ // 0xd34 @0xe
0x0d26…0d39 at000f = ╱4c╱L╱ // 0xd35 @0xf
0x0d26…0d39 at0010 = ╱44╱D╱ // 0xd36 @0x10
0x0d26…0d39 at0011 = ╱49╱I╱ // 0xd37 @0x11
0x0d26…0d39 at0012 = EOL // 0xd38 @0x12
0x0d26…0d39 }
0x0d39…0d40 a32e 1330 REPEAT
0x0d39…0d40 LineComal80 {
0x0d39…0d40 ptr = 0xa32e // 0xd39 @0x0
0x0d39…0d40 lno = 0x0532 // 0xd3b @0x2
0x0d39…0d40 at0004 = ╱9700╱ REPEAT ╱ // 0xd3d @0x4
0x0d39…0d40 at0006 = EOL // 0xd3f @0x6
0x0d39…0d40 }
0x0d40…0d74 a362 1340 EXEC OVERSKRIFT("Indtastning af åbningssaldi",6)
0x0d40…0d74 LineComal80 {
0x0d40…0d74 ptr = 0xa362 // 0xd40 @0x0
0x0d40…0d74 lno = 0x053c // 0xd42 @0x2
0x0d40…0d74 at0004 = ╱9d╱ EXEC ╱ // 0xd44 @0x4
0x0d40…0d74 at0005 = ╱4f╱O╱ // 0xd45 @0x5
0x0d40…0d74 at0006 = ╱56╱V╱ // 0xd46 @0x6
0x0d40…0d74 at0007 = ╱45╱E╱ // 0xd47 @0x7
0x0d40…0d74 at0008 = ╱52╱R╱ // 0xd48 @0x8
0x0d40…0d74 at0009 = ╱53╱S╱ // 0xd49 @0x9
0x0d40…0d74 at000a = ╱4b╱K╱ // 0xd4a @0xa
0x0d40…0d74 at000b = ╱52╱R╱ // 0xd4b @0xb
0x0d40…0d74 at000c = ╱49╱I╱ // 0xd4c @0xc
0x0d40…0d74 at000d = ╱46╱F╱ // 0xd4d @0xd
0x0d40…0d74 at000e = ╱54╱T╱ // 0xd4e @0xe
0x0d40…0d74 at000f = ╱ed╱(╱ // 0xd4f @0xf
0x0d40…0d74 at0010 = ╱22╱"╱ // 0xd50 @0x10
0x0d40…0d74 at0011 = ╱49╱I╱ // 0xd51 @0x11
0x0d40…0d74 at0012 = ╱6e╱n╱ // 0xd52 @0x12
0x0d40…0d74 at0013 = ╱64╱d╱ // 0xd53 @0x13
0x0d40…0d74 at0014 = ╱74╱t╱ // 0xd54 @0x14
0x0d40…0d74 at0015 = ╱61╱a╱ // 0xd55 @0x15
0x0d40…0d74 at0016 = ╱73╱s╱ // 0xd56 @0x16
0x0d40…0d74 at0017 = ╱74╱t╱ // 0xd57 @0x17
0x0d40…0d74 at0018 = ╱6e╱n╱ // 0xd58 @0x18
0x0d40…0d74 at0019 = ╱69╱i╱ // 0xd59 @0x19
0x0d40…0d74 at001a = ╱6e╱n╱ // 0xd5a @0x1a
0x0d40…0d74 at001b = ╱67╱g╱ // 0xd5b @0x1b
0x0d40…0d74 at001c = ╱20╱…╱ // 0xd5c @0x1c
0x0d40…0d74 at001d = ╱61╱a╱ // 0xd5d @0x1d
0x0d40…0d74 at001e = ╱66╱f╱ // 0xd5e @0x1e
0x0d40…0d74 at001f = ╱20╱…╱ // 0xd5f @0x1f
0x0d40…0d74 at0020 = ╱7d╱å╱ // 0xd60 @0x20
0x0d40…0d74 at0021 = ╱62╱b╱ // 0xd61 @0x21
0x0d40…0d74 at0022 = ╱6e╱n╱ // 0xd62 @0x22
0x0d40…0d74 at0023 = ╱69╱i╱ // 0xd63 @0x23
0x0d40…0d74 at0024 = ╱6e╱n╱ // 0xd64 @0x24
0x0d40…0d74 at0025 = ╱67╱g╱ // 0xd65 @0x25
0x0d40…0d74 at0026 = ╱73╱s╱ // 0xd66 @0x26
0x0d40…0d74 at0027 = ╱73╱s╱ // 0xd67 @0x27
0x0d40…0d74 at0028 = ╱61╱a╱ // 0xd68 @0x28
0x0d40…0d74 at0029 = ╱6c╱l╱ // 0xd69 @0x29
0x0d40…0d74 at002a = ╱64╱d╱ // 0xd6a @0x2a
0x0d40…0d74 at002b = ╱69╱i╱ // 0xd6b @0x2b
0x0d40…0d74 at002c = ╱22╱"╱ // 0xd6c @0x2c
0x0d40…0d74 at002d = ╱ec╱,╱ // 0xd6d @0x2d
0x0d40…0d74 at002e = ╱36╱6╱ // 0xd6e @0x2e
0x0d40…0d74 at002f = ╱f20600╱ // 0xd6f @0x2f
0x0d40…0d74 at0032 = ╱ee╱)╱ // 0xd72 @0x32
0x0d40…0d74 at0033 = EOL // 0xd73 @0x33
0x0d40…0d74 }
0x0d74…0d84 a372 1350 EXEC FIND_KONTO
0x0d74…0d84 LineComal80 {
0x0d74…0d84 ptr = 0xa372 // 0xd74 @0x0
0x0d74…0d84 lno = 0x0546 // 0xd76 @0x2
0x0d74…0d84 at0004 = ╱9d╱ EXEC ╱ // 0xd78 @0x4
0x0d74…0d84 at0005 = ╱46╱F╱ // 0xd79 @0x5
0x0d74…0d84 at0006 = ╱49╱I╱ // 0xd7a @0x6
0x0d74…0d84 at0007 = ╱4e╱N╱ // 0xd7b @0x7
0x0d74…0d84 at0008 = ╱44╱D╱ // 0xd7c @0x8
0x0d74…0d84 at0009 = ╱5f╱_╱ // 0xd7d @0x9
0x0d74…0d84 at000a = ╱4b╱K╱ // 0xd7e @0xa
0x0d74…0d84 at000b = ╱4f╱O╱ // 0xd7f @0xb
0x0d74…0d84 at000c = ╱4e╱N╱ // 0xd80 @0xc
0x0d74…0d84 at000d = ╱54╱T╱ // 0xd81 @0xd
0x0d74…0d84 at000e = ╱4f╱O╱ // 0xd82 @0xe
0x0d74…0d84 at000f = EOL // 0xd83 @0xf
0x0d74…0d84 }
0x0d84…0d93 a381 1360 LET KODE$ := "D"
0x0d84…0d93 LineComal80 {
0x0d84…0d93 ptr = 0xa381 // 0xd84 @0x0
0x0d84…0d93 lno = 0x0550 // 0xd86 @0x2
0x0d84…0d93 at0004 = ╱86╱ LET ╱ // 0xd88 @0x4
0x0d84…0d93 at0005 = ╱4b╱K╱ // 0xd89 @0x5
0x0d84…0d93 at0006 = ╱4f╱O╱ // 0xd8a @0x6
0x0d84…0d93 at0007 = ╱44╱D╱ // 0xd8b @0x7
0x0d84…0d93 at0008 = ╱45╱E╱ // 0xd8c @0x8
0x0d84…0d93 at0009 = ╱ef╱$╱ // 0xd8d @0x9
0x0d84…0d93 at000a = ╱f0╱ := ╱ // 0xd8e @0xa
0x0d84…0d93 at000b = ╱22╱"╱ // 0xd8f @0xb
0x0d84…0d93 at000c = ╱44╱D╱ // 0xd90 @0xc
0x0d84…0d93 at000d = ╱22╱"╱ // 0xd91 @0xd
0x0d84…0d93 at000e = EOL // 0xd92 @0xe
0x0d84…0d93 }
0x0d93…0db3 a3a1 1370 IF KTO_PRIMO < 0 THEN LET KODE$ := "K"
0x0d93…0db3 LineComal80 {
0x0d93…0db3 ptr = 0xa3a1 // 0xd93 @0x0
0x0d93…0db3 lno = 0x055a // 0xd95 @0x2
0x0d93…0db3 at0004 = ╱8200╱ IF ╱ // 0xd97 @0x4
0x0d93…0db3 at0006 = ╱4b╱K╱ // 0xd99 @0x6
0x0d93…0db3 at0007 = ╱54╱T╱ // 0xd9a @0x7
0x0d93…0db3 at0008 = ╱4f╱O╱ // 0xd9b @0x8
0x0d93…0db3 at0009 = ╱5f╱_╱ // 0xd9c @0x9
0x0d93…0db3 at000a = ╱50╱P╱ // 0xd9d @0xa
0x0d93…0db3 at000b = ╱52╱R╱ // 0xd9e @0xb
0x0d93…0db3 at000c = ╱49╱I╱ // 0xd9f @0xc
0x0d93…0db3 at000d = ╱4d╱M╱ // 0xda0 @0xd
0x0d93…0db3 at000e = ╱4f╱O╱ // 0xda1 @0xe
0x0d93…0db3 at000f = ╱e0╱ < ╱ // 0xda2 @0xf
0x0d93…0db3 at0010 = ╱30╱0╱ // 0xda3 @0x10
0x0d93…0db3 at0011 = ╱f20000╱ // 0xda4 @0x11
0x0d93…0db3 at0014 = ╱b5╱ THEN ╱ // 0xda7 @0x14
0x0d93…0db3 at0015 = ╱86╱ LET ╱ // 0xda8 @0x15
0x0d93…0db3 at0016 = ╱4b╱K╱ // 0xda9 @0x16
0x0d93…0db3 at0017 = ╱4f╱O╱ // 0xdaa @0x17
0x0d93…0db3 at0018 = ╱44╱D╱ // 0xdab @0x18
0x0d93…0db3 at0019 = ╱45╱E╱ // 0xdac @0x19
0x0d93…0db3 at001a = ╱ef╱$╱ // 0xdad @0x1a
0x0d93…0db3 at001b = ╱f0╱ := ╱ // 0xdae @0x1b
0x0d93…0db3 at001c = ╱22╱"╱ // 0xdaf @0x1c
0x0d93…0db3 at001d = ╱4b╱K╱ // 0xdb0 @0x1d
0x0d93…0db3 at001e = ╱22╱"╱ // 0xdb1 @0x1e
0x0d93…0db3 at001f = EOL // 0xdb2 @0x1f
0x0d93…0db3 }
0x0db3…0dd8 a3c6 1380 LET SVAR$ := CHR$ (ABS(KTO_PRIMO),9,2)
0x0db3…0dd8 LineComal80 {
0x0db3…0dd8 ptr = 0xa3c6 // 0xdb3 @0x0
0x0db3…0dd8 lno = 0x0564 // 0xdb5 @0x2
0x0db3…0dd8 at0004 = ╱86╱ LET ╱ // 0xdb7 @0x4
0x0db3…0dd8 at0005 = ╱53╱S╱ // 0xdb8 @0x5
0x0db3…0dd8 at0006 = ╱56╱V╱ // 0xdb9 @0x6
0x0db3…0dd8 at0007 = ╱41╱A╱ // 0xdba @0x7
0x0db3…0dd8 at0008 = ╱52╱R╱ // 0xdbb @0x8
0x0db3…0dd8 at0009 = ╱ef╱$╱ // 0xdbc @0x9
0x0db3…0dd8 at000a = ╱f0╱ := ╱ // 0xdbd @0xa
0x0db3…0dd8 at000b = ╱d0╱ CHR$ ╱ // 0xdbe @0xb
0x0db3…0dd8 at000c = ╱ed╱(╱ // 0xdbf @0xc
0x0db3…0dd8 at000d = ╱c4╱ABS╱ // 0xdc0 @0xd
0x0db3…0dd8 at000e = ╱ed╱(╱ // 0xdc1 @0xe
0x0db3…0dd8 at000f = ╱4b╱K╱ // 0xdc2 @0xf
0x0db3…0dd8 at0010 = ╱54╱T╱ // 0xdc3 @0x10
0x0db3…0dd8 at0011 = ╱4f╱O╱ // 0xdc4 @0x11
0x0db3…0dd8 at0012 = ╱5f╱_╱ // 0xdc5 @0x12
0x0db3…0dd8 at0013 = ╱50╱P╱ // 0xdc6 @0x13
0x0db3…0dd8 at0014 = ╱52╱R╱ // 0xdc7 @0x14
0x0db3…0dd8 at0015 = ╱49╱I╱ // 0xdc8 @0x15
0x0db3…0dd8 at0016 = ╱4d╱M╱ // 0xdc9 @0x16
0x0db3…0dd8 at0017 = ╱4f╱O╱ // 0xdca @0x17
0x0db3…0dd8 at0018 = ╱ee╱)╱ // 0xdcb @0x18
0x0db3…0dd8 at0019 = ╱ec╱,╱ // 0xdcc @0x19
0x0db3…0dd8 at001a = ╱39╱9╱ // 0xdcd @0x1a
0x0db3…0dd8 at001b = ╱f20900╱ // 0xdce @0x1b
0x0db3…0dd8 at001e = ╱ec╱,╱ // 0xdd1 @0x1e
0x0db3…0dd8 at001f = ╱32╱2╱ // 0xdd2 @0x1f
0x0db3…0dd8 at0020 = ╱f20200╱ // 0xdd3 @0x20
0x0db3…0dd8 at0023 = ╱ee╱)╱ // 0xdd6 @0x23
0x0db3…0dd8 at0024 = EOL // 0xdd7 @0x24
0x0db3…0dd8 }
0x0dd8…0df7 a3e5 1390 IF KTO_PRIMO = 0 THEN LET SVAR$ := ""
0x0dd8…0df7 LineComal80 {
0x0dd8…0df7 ptr = 0xa3e5 // 0xdd8 @0x0
0x0dd8…0df7 lno = 0x056e // 0xdda @0x2
0x0dd8…0df7 at0004 = ╱8200╱ IF ╱ // 0xddc @0x4
0x0dd8…0df7 at0006 = ╱4b╱K╱ // 0xdde @0x6
0x0dd8…0df7 at0007 = ╱54╱T╱ // 0xddf @0x7
0x0dd8…0df7 at0008 = ╱4f╱O╱ // 0xde0 @0x8
0x0dd8…0df7 at0009 = ╱5f╱_╱ // 0xde1 @0x9
0x0dd8…0df7 at000a = ╱50╱P╱ // 0xde2 @0xa
0x0dd8…0df7 at000b = ╱52╱R╱ // 0xde3 @0xb
0x0dd8…0df7 at000c = ╱49╱I╱ // 0xde4 @0xc
0x0dd8…0df7 at000d = ╱4d╱M╱ // 0xde5 @0xd
0x0dd8…0df7 at000e = ╱4f╱O╱ // 0xde6 @0xe
0x0dd8…0df7 at000f = ╱df╱ = ╱ // 0xde7 @0xf
0x0dd8…0df7 at0010 = ╱30╱0╱ // 0xde8 @0x10
0x0dd8…0df7 at0011 = ╱f20000╱ // 0xde9 @0x11
0x0dd8…0df7 at0014 = ╱b5╱ THEN ╱ // 0xdec @0x14
0x0dd8…0df7 at0015 = ╱86╱ LET ╱ // 0xded @0x15
0x0dd8…0df7 at0016 = ╱53╱S╱ // 0xdee @0x16
0x0dd8…0df7 at0017 = ╱56╱V╱ // 0xdef @0x17
0x0dd8…0df7 at0018 = ╱41╱A╱ // 0xdf0 @0x18
0x0dd8…0df7 at0019 = ╱52╱R╱ // 0xdf1 @0x19
0x0dd8…0df7 at001a = ╱ef╱$╱ // 0xdf2 @0x1a
0x0dd8…0df7 at001b = ╱f0╱ := ╱ // 0xdf3 @0x1b
0x0dd8…0df7 at001c = ╱22╱"╱ // 0xdf4 @0x1c
0x0dd8…0df7 at001d = ╱22╱"╱ // 0xdf5 @0x1d
0x0dd8…0df7 at001e = EOL // 0xdf6 @0x1e
0x0dd8…0df7 }
0x0df7…0dfe a3ec 1400 REPEAT
0x0df7…0dfe LineComal80 {
0x0df7…0dfe ptr = 0xa3ec // 0xdf7 @0x0
0x0df7…0dfe lno = 0x0578 // 0xdf9 @0x2
0x0df7…0dfe at0004 = ╱9700╱ REPEAT ╱ // 0xdfb @0x4
0x0df7…0dfe at0006 = EOL // 0xdfd @0x6
0x0df7…0dfe }
0x0dfe…0e13 a401 1410 PRINT "<SC1816>" ; SPC$
0x0dfe…0e13 LineComal80 {
0x0dfe…0e13 ptr = 0xa401 // 0xdfe @0x0
0x0dfe…0e13 lno = 0x0582 // 0xe00 @0x2
0x0dfe…0e13 at0004 = ╱92╱ PRINT ╱ // 0xe02 @0x4
0x0dfe…0e13 at0005 = ╱22╱"╱ // 0xe03 @0x5
0x0dfe…0e13 at0006 = ╱3c╱<╱ // 0xe04 @0x6
0x0dfe…0e13 at0007 = ╱53╱S╱ // 0xe05 @0x7
0x0dfe…0e13 at0008 = ╱43╱C╱ // 0xe06 @0x8
0x0dfe…0e13 at0009 = ╱31╱1╱ // 0xe07 @0x9
0x0dfe…0e13 at000a = ╱38╱8╱ // 0xe08 @0xa
0x0dfe…0e13 at000b = ╱31╱1╱ // 0xe09 @0xb
0x0dfe…0e13 at000c = ╱36╱6╱ // 0xe0a @0xc
0x0dfe…0e13 at000d = ╱3e╱>╱ // 0xe0b @0xd
0x0dfe…0e13 at000e = ╱22╱"╱ // 0xe0c @0xe
0x0dfe…0e13 at000f = ╱ea╱ ; ╱ // 0xe0d @0xf
0x0dfe…0e13 at0010 = ╱53╱S╱ // 0xe0e @0x10
0x0dfe…0e13 at0011 = ╱50╱P╱ // 0xe0f @0x11
0x0dfe…0e13 at0012 = ╱43╱C╱ // 0xe10 @0x12
0x0dfe…0e13 at0013 = ╱ef╱$╱ // 0xe11 @0x13
0x0dfe…0e13 at0014 = EOL // 0xe12 @0x14
0x0dfe…0e13 }
0x0e13…0e36 a424 1420 EDIT "<SC1816>Saldo primo: " : SVAR$
0x0e13…0e36 LineComal80 {
0x0e13…0e36 ptr = 0xa424 // 0xe13 @0x0
0x0e13…0e36 lno = 0x058c // 0xe15 @0x2
0x0e13…0e36 at0004 = ╱b1╱ EDIT ╱ // 0xe17 @0x4
0x0e13…0e36 at0005 = ╱22╱"╱ // 0xe18 @0x5
0x0e13…0e36 at0006 = ╱3c╱<╱ // 0xe19 @0x6
0x0e13…0e36 at0007 = ╱53╱S╱ // 0xe1a @0x7
0x0e13…0e36 at0008 = ╱43╱C╱ // 0xe1b @0x8
0x0e13…0e36 at0009 = ╱31╱1╱ // 0xe1c @0x9
0x0e13…0e36 at000a = ╱38╱8╱ // 0xe1d @0xa
0x0e13…0e36 at000b = ╱31╱1╱ // 0xe1e @0xb
0x0e13…0e36 at000c = ╱36╱6╱ // 0xe1f @0xc
0x0e13…0e36 at000d = ╱3e╱>╱ // 0xe20 @0xd
0x0e13…0e36 at000e = ╱53╱S╱ // 0xe21 @0xe
0x0e13…0e36 at000f = ╱61╱a╱ // 0xe22 @0xf
0x0e13…0e36 at0010 = ╱6c╱l╱ // 0xe23 @0x10
0x0e13…0e36 at0011 = ╱64╱d╱ // 0xe24 @0x11
0x0e13…0e36 at0012 = ╱6f╱o╱ // 0xe25 @0x12
0x0e13…0e36 at0013 = ╱20╱…╱ // 0xe26 @0x13
0x0e13…0e36 at0014 = ╱70╱p╱ // 0xe27 @0x14
0x0e13…0e36 at0015 = ╱72╱r╱ // 0xe28 @0x15
0x0e13…0e36 at0016 = ╱69╱i╱ // 0xe29 @0x16
0x0e13…0e36 at0017 = ╱6d╱m╱ // 0xe2a @0x17
0x0e13…0e36 at0018 = ╱6f╱o╱ // 0xe2b @0x18
0x0e13…0e36 at0019 = ╱3a╱:╱ // 0xe2c @0x19
0x0e13…0e36 at001a = ╱20╱…╱ // 0xe2d @0x1a
0x0e13…0e36 at001b = ╱22╱"╱ // 0xe2e @0x1b
0x0e13…0e36 at001c = ╱f1╱ : ╱ // 0xe2f @0x1c
0x0e13…0e36 at001d = ╱53╱S╱ // 0xe30 @0x1d
0x0e13…0e36 at001e = ╱56╱V╱ // 0xe31 @0x1e
0x0e13…0e36 at001f = ╱41╱A╱ // 0xe32 @0x1f
0x0e13…0e36 at0020 = ╱52╱R╱ // 0xe33 @0x20
0x0e13…0e36 at0021 = ╱ef╱$╱ // 0xe34 @0x21
0x0e13…0e36 at0022 = EOL // 0xe35 @0x22
0x0e13…0e36 }
0x0e36…0e48 a436 1430 EXEC SL_FEJLLINIE
0x0e36…0e48 LineComal80 {
0x0e36…0e48 ptr = 0xa436 // 0xe36 @0x0
0x0e36…0e48 lno = 0x0596 // 0xe38 @0x2
0x0e36…0e48 at0004 = ╱9d╱ EXEC ╱ // 0xe3a @0x4
0x0e36…0e48 at0005 = ╱53╱S╱ // 0xe3b @0x5
0x0e36…0e48 at0006 = ╱4c╱L╱ // 0xe3c @0x6
0x0e36…0e48 at0007 = ╱5f╱_╱ // 0xe3d @0x7
0x0e36…0e48 at0008 = ╱46╱F╱ // 0xe3e @0x8
0x0e36…0e48 at0009 = ╱45╱E╱ // 0xe3f @0x9
0x0e36…0e48 at000a = ╱4a╱J╱ // 0xe40 @0xa
0x0e36…0e48 at000b = ╱4c╱L╱ // 0xe41 @0xb
0x0e36…0e48 at000c = ╱4c╱L╱ // 0xe42 @0xc
0x0e36…0e48 at000d = ╱49╱I╱ // 0xe43 @0xd
0x0e36…0e48 at000e = ╱4e╱N╱ // 0xe44 @0xe
0x0e36…0e48 at000f = ╱49╱I╱ // 0xe45 @0xf
0x0e36…0e48 at0010 = ╱45╱E╱ // 0xe46 @0x10
0x0e36…0e48 at0011 = EOL // 0xe47 @0x11
0x0e36…0e48 }
0x0e48…0e60 a44e 1440 EXEC TAL_CONTROL(SVAR$)
0x0e48…0e60 LineComal80 {
0x0e48…0e60 ptr = 0xa44e // 0xe48 @0x0
0x0e48…0e60 lno = 0x05a0 // 0xe4a @0x2
0x0e48…0e60 at0004 = ╱9d╱ EXEC ╱ // 0xe4c @0x4
0x0e48…0e60 at0005 = ╱54╱T╱ // 0xe4d @0x5
0x0e48…0e60 at0006 = ╱41╱A╱ // 0xe4e @0x6
0x0e48…0e60 at0007 = ╱4c╱L╱ // 0xe4f @0x7
0x0e48…0e60 at0008 = ╱5f╱_╱ // 0xe50 @0x8
0x0e48…0e60 at0009 = ╱43╱C╱ // 0xe51 @0x9
0x0e48…0e60 at000a = ╱4f╱O╱ // 0xe52 @0xa
0x0e48…0e60 at000b = ╱4e╱N╱ // 0xe53 @0xb
0x0e48…0e60 at000c = ╱54╱T╱ // 0xe54 @0xc
0x0e48…0e60 at000d = ╱52╱R╱ // 0xe55 @0xd
0x0e48…0e60 at000e = ╱4f╱O╱ // 0xe56 @0xe
0x0e48…0e60 at000f = ╱4c╱L╱ // 0xe57 @0xf
0x0e48…0e60 at0010 = ╱ed╱(╱ // 0xe58 @0x10
0x0e48…0e60 at0011 = ╱53╱S╱ // 0xe59 @0x11
0x0e48…0e60 at0012 = ╱56╱V╱ // 0xe5a @0x12
0x0e48…0e60 at0013 = ╱41╱A╱ // 0xe5b @0x13
0x0e48…0e60 at0014 = ╱52╱R╱ // 0xe5c @0x14
0x0e48…0e60 at0015 = ╱ef╱$╱ // 0xe5d @0x15
0x0e48…0e60 at0016 = ╱ee╱)╱ // 0xe5e @0x16
0x0e48…0e60 at0017 = EOL // 0xe5f @0x17
0x0e48…0e60 }
0x0e60…0e82 a470 1450 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
0x0e60…0e82 LineComal80 {
0x0e60…0e82 ptr = 0xa470 // 0xe60 @0x0
0x0e60…0e82 lno = 0x05aa // 0xe62 @0x2
0x0e60…0e82 at0004 = ╱8200╱ IF ╱ // 0xe64 @0x4
0x0e60…0e82 at0006 = ╱d7╱ NOT ╱ // 0xe66 @0x6
0x0e60…0e82 at0007 = ╱22╱"╱ // 0xe67 @0x7
0x0e60…0e82 at0008 = ╱2e╱.╱ // 0xe68 @0x8
0x0e60…0e82 at0009 = ╱22╱"╱ // 0xe69 @0x9
0x0e60…0e82 at000a = ╱dc╱ IN ╱ // 0xe6a @0xa
0x0e60…0e82 at000b = ╱53╱S╱ // 0xe6b @0xb
0x0e60…0e82 at000c = ╱56╱V╱ // 0xe6c @0xc
0x0e60…0e82 at000d = ╱41╱A╱ // 0xe6d @0xd
0x0e60…0e82 at000e = ╱52╱R╱ // 0xe6e @0xe
0x0e60…0e82 at000f = ╱ef╱$╱ // 0xe6f @0xf
0x0e60…0e82 at0010 = ╱b5╱ THEN ╱ // 0xe70 @0x10
0x0e60…0e82 at0011 = ╱86╱ LET ╱ // 0xe71 @0x11
0x0e60…0e82 at0012 = ╱53╱S╱ // 0xe72 @0x12
0x0e60…0e82 at0013 = ╱56╱V╱ // 0xe73 @0x13
0x0e60…0e82 at0014 = ╱41╱A╱ // 0xe74 @0x14
0x0e60…0e82 at0015 = ╱52╱R╱ // 0xe75 @0x15
0x0e60…0e82 at0016 = ╱ef╱$╱ // 0xe76 @0x16
0x0e60…0e82 at0017 = ╱f0╱ := ╱ // 0xe77 @0x17
0x0e60…0e82 at0018 = ╱53╱S╱ // 0xe78 @0x18
0x0e60…0e82 at0019 = ╱56╱V╱ // 0xe79 @0x19
0x0e60…0e82 at001a = ╱41╱A╱ // 0xe7a @0x1a
0x0e60…0e82 at001b = ╱52╱R╱ // 0xe7b @0x1b
0x0e60…0e82 at001c = ╱ef╱$╱ // 0xe7c @0x1c
0x0e60…0e82 at001d = ╱eb╱ + ╱ // 0xe7d @0x1d
0x0e60…0e82 at001e = ╱22╱"╱ // 0xe7e @0x1e
0x0e60…0e82 at001f = ╱2e╱.╱ // 0xe7f @0x1f
0x0e60…0e82 at0020 = ╱22╱"╱ // 0xe80 @0x20
0x0e60…0e82 at0021 = EOL // 0xe81 @0x21
0x0e60…0e82 }
0x0e82…0e8a a478 1460 UNTIL OK
0x0e82…0e8a LineComal80 {
0x0e82…0e8a ptr = 0xa478 // 0xe82 @0x0
0x0e82…0e8a lno = 0x05b4 // 0xe84 @0x2
0x0e82…0e8a at0004 = ╱98╱ UNTIL ╱ // 0xe86 @0x4
0x0e82…0e8a at0005 = ╱4f╱O╱ // 0xe87 @0x5
0x0e82…0e8a at0006 = ╱4b╱K╱ // 0xe88 @0x6
0x0e82…0e8a at0007 = EOL // 0xe89 @0x7
0x0e82…0e8a }
0x0e8a…0ea2 a490 1470 LET KTO_PRIMO := ASC (SVAR$)
0x0e8a…0ea2 LineComal80 {
0x0e8a…0ea2 ptr = 0xa490 // 0xe8a @0x0
0x0e8a…0ea2 lno = 0x05be // 0xe8c @0x2
0x0e8a…0ea2 at0004 = ╱86╱ LET ╱ // 0xe8e @0x4
0x0e8a…0ea2 at0005 = ╱4b╱K╱ // 0xe8f @0x5
0x0e8a…0ea2 at0006 = ╱54╱T╱ // 0xe90 @0x6
0x0e8a…0ea2 at0007 = ╱4f╱O╱ // 0xe91 @0x7
0x0e8a…0ea2 at0008 = ╱5f╱_╱ // 0xe92 @0x8
0x0e8a…0ea2 at0009 = ╱50╱P╱ // 0xe93 @0x9
0x0e8a…0ea2 at000a = ╱52╱R╱ // 0xe94 @0xa
0x0e8a…0ea2 at000b = ╱49╱I╱ // 0xe95 @0xb
0x0e8a…0ea2 at000c = ╱4d╱M╱ // 0xe96 @0xc
0x0e8a…0ea2 at000d = ╱4f╱O╱ // 0xe97 @0xd
0x0e8a…0ea2 at000e = ╱f0╱ := ╱ // 0xe98 @0xe
0x0e8a…0ea2 at000f = ╱cf╱ ASC ╱ // 0xe99 @0xf
0x0e8a…0ea2 at0010 = ╱ed╱(╱ // 0xe9a @0x10
0x0e8a…0ea2 at0011 = ╱53╱S╱ // 0xe9b @0x11
0x0e8a…0ea2 at0012 = ╱56╱V╱ // 0xe9c @0x12
0x0e8a…0ea2 at0013 = ╱41╱A╱ // 0xe9d @0x13
0x0e8a…0ea2 at0014 = ╱52╱R╱ // 0xe9e @0x14
0x0e8a…0ea2 at0015 = ╱ef╱$╱ // 0xe9f @0x15
0x0e8a…0ea2 at0016 = ╱ee╱)╱ // 0xea0 @0x16
0x0e8a…0ea2 at0017 = EOL // 0xea1 @0x17
0x0e8a…0ea2 }
0x0ea2…0ea9 a497 1480 REPEAT
0x0ea2…0ea9 LineComal80 {
0x0ea2…0ea9 ptr = 0xa497 // 0xea2 @0x0
0x0ea2…0ea9 lno = 0x05c8 // 0xea4 @0x2
0x0ea2…0ea9 at0004 = ╱9700╱ REPEAT ╱ // 0xea6 @0x4
0x0ea2…0ea9 at0006 = EOL // 0xea8 @0x6
0x0ea2…0ea9 }
0x0ea9…0ed7 a4c5 1490 EDIT "<SC1817>(D)ebet eller (K)redit? " : KODE$
0x0ea9…0ed7 LineComal80 {
0x0ea9…0ed7 ptr = 0xa4c5 // 0xea9 @0x0
0x0ea9…0ed7 lno = 0x05d2 // 0xeab @0x2
0x0ea9…0ed7 at0004 = ╱b1╱ EDIT ╱ // 0xead @0x4
0x0ea9…0ed7 at0005 = ╱22╱"╱ // 0xeae @0x5
0x0ea9…0ed7 at0006 = ╱3c╱<╱ // 0xeaf @0x6
0x0ea9…0ed7 at0007 = ╱53╱S╱ // 0xeb0 @0x7
0x0ea9…0ed7 at0008 = ╱43╱C╱ // 0xeb1 @0x8
0x0ea9…0ed7 at0009 = ╱31╱1╱ // 0xeb2 @0x9
0x0ea9…0ed7 at000a = ╱38╱8╱ // 0xeb3 @0xa
0x0ea9…0ed7 at000b = ╱31╱1╱ // 0xeb4 @0xb
0x0ea9…0ed7 at000c = ╱37╱7╱ // 0xeb5 @0xc
0x0ea9…0ed7 at000d = ╱3e╱>╱ // 0xeb6 @0xd
0x0ea9…0ed7 at000e = ╱28╱(╱ // 0xeb7 @0xe
0x0ea9…0ed7 at000f = ╱44╱D╱ // 0xeb8 @0xf
0x0ea9…0ed7 at0010 = ╱29╱)╱ // 0xeb9 @0x10
0x0ea9…0ed7 at0011 = ╱65╱e╱ // 0xeba @0x11
0x0ea9…0ed7 at0012 = ╱62╱b╱ // 0xebb @0x12
0x0ea9…0ed7 at0013 = ╱65╱e╱ // 0xebc @0x13
0x0ea9…0ed7 at0014 = ╱74╱t╱ // 0xebd @0x14
0x0ea9…0ed7 at0015 = ╱20╱…╱ // 0xebe @0x15
0x0ea9…0ed7 at0016 = ╱65╱e╱ // 0xebf @0x16
0x0ea9…0ed7 at0017 = ╱6c╱l╱ // 0xec0 @0x17
0x0ea9…0ed7 at0018 = ╱6c╱l╱ // 0xec1 @0x18
0x0ea9…0ed7 at0019 = ╱65╱e╱ // 0xec2 @0x19
0x0ea9…0ed7 at001a = ╱72╱r╱ // 0xec3 @0x1a
0x0ea9…0ed7 at001b = ╱20╱…╱ // 0xec4 @0x1b
0x0ea9…0ed7 at001c = ╱28╱(╱ // 0xec5 @0x1c
0x0ea9…0ed7 at001d = ╱4b╱K╱ // 0xec6 @0x1d
0x0ea9…0ed7 at001e = ╱29╱)╱ // 0xec7 @0x1e
0x0ea9…0ed7 at001f = ╱72╱r╱ // 0xec8 @0x1f
0x0ea9…0ed7 at0020 = ╱65╱e╱ // 0xec9 @0x20
0x0ea9…0ed7 at0021 = ╱64╱d╱ // 0xeca @0x21
0x0ea9…0ed7 at0022 = ╱69╱i╱ // 0xecb @0x22
0x0ea9…0ed7 at0023 = ╱74╱t╱ // 0xecc @0x23
0x0ea9…0ed7 at0024 = ╱3f╱?╱ // 0xecd @0x24
0x0ea9…0ed7 at0025 = ╱20╱…╱ // 0xece @0x25
0x0ea9…0ed7 at0026 = ╱22╱"╱ // 0xecf @0x26
0x0ea9…0ed7 at0027 = ╱f1╱ : ╱ // 0xed0 @0x27
0x0ea9…0ed7 at0028 = ╱4b╱K╱ // 0xed1 @0x28
0x0ea9…0ed7 at0029 = ╱4f╱O╱ // 0xed2 @0x29
0x0ea9…0ed7 at002a = ╱44╱D╱ // 0xed3 @0x2a
0x0ea9…0ed7 at002b = ╱45╱E╱ // 0xed4 @0x2b
0x0ea9…0ed7 at002c = ╱ef╱$╱ // 0xed5 @0x2c
0x0ea9…0ed7 at002d = EOL // 0xed6 @0x2d
0x0ea9…0ed7 }
0x0ed7…0eeb a4d9 1500 EXEC ST_BGST(KODE$)
0x0ed7…0eeb LineComal80 {
0x0ed7…0eeb ptr = 0xa4d9 // 0xed7 @0x0
0x0ed7…0eeb lno = 0x05dc // 0xed9 @0x2
0x0ed7…0eeb at0004 = ╱9d╱ EXEC ╱ // 0xedb @0x4
0x0ed7…0eeb at0005 = ╱53╱S╱ // 0xedc @0x5
0x0ed7…0eeb at0006 = ╱54╱T╱ // 0xedd @0x6
0x0ed7…0eeb at0007 = ╱5f╱_╱ // 0xede @0x7
0x0ed7…0eeb at0008 = ╱42╱B╱ // 0xedf @0x8
0x0ed7…0eeb at0009 = ╱47╱G╱ // 0xee0 @0x9
0x0ed7…0eeb at000a = ╱53╱S╱ // 0xee1 @0xa
0x0ed7…0eeb at000b = ╱54╱T╱ // 0xee2 @0xb
0x0ed7…0eeb at000c = ╱ed╱(╱ // 0xee3 @0xc
0x0ed7…0eeb at000d = ╱4b╱K╱ // 0xee4 @0xd
0x0ed7…0eeb at000e = ╱4f╱O╱ // 0xee5 @0xe
0x0ed7…0eeb at000f = ╱44╱D╱ // 0xee6 @0xf
0x0ed7…0eeb at0010 = ╱45╱E╱ // 0xee7 @0x10
0x0ed7…0eeb at0011 = ╱ef╱$╱ // 0xee8 @0x11
0x0ed7…0eeb at0012 = ╱ee╱)╱ // 0xee9 @0x12
0x0ed7…0eeb at0013 = EOL // 0xeea @0x13
0x0ed7…0eeb }
0x0eeb…0efd a4eb 1510 EXEC SL_FEJLLINIE
0x0eeb…0efd LineComal80 {
0x0eeb…0efd ptr = 0xa4eb // 0xeeb @0x0
0x0eeb…0efd lno = 0x05e6 // 0xeed @0x2
0x0eeb…0efd at0004 = ╱9d╱ EXEC ╱ // 0xeef @0x4
0x0eeb…0efd at0005 = ╱53╱S╱ // 0xef0 @0x5
0x0eeb…0efd at0006 = ╱4c╱L╱ // 0xef1 @0x6
0x0eeb…0efd at0007 = ╱5f╱_╱ // 0xef2 @0x7
0x0eeb…0efd at0008 = ╱46╱F╱ // 0xef3 @0x8
0x0eeb…0efd at0009 = ╱45╱E╱ // 0xef4 @0x9
0x0eeb…0efd at000a = ╱4a╱J╱ // 0xef5 @0xa
0x0eeb…0efd at000b = ╱4c╱L╱ // 0xef6 @0xb
0x0eeb…0efd at000c = ╱4c╱L╱ // 0xef7 @0xc
0x0eeb…0efd at000d = ╱49╱I╱ // 0xef8 @0xd
0x0eeb…0efd at000e = ╱4e╱N╱ // 0xef9 @0xe
0x0eeb…0efd at000f = ╱49╱I╱ // 0xefa @0xf
0x0eeb…0efd at0010 = ╱45╱E╱ // 0xefb @0x10
0x0eeb…0efd at0011 = EOL // 0xefc @0x11
0x0eeb…0efd }
0x0efd…0f1b a509 1520 IF "/" + KODE$ + "/" IN "/D/K/" THEN
0x0efd…0f1b LineComal80 {
0x0efd…0f1b ptr = 0xa509 // 0xefd @0x0
0x0efd…0f1b lno = 0x05f0 // 0xeff @0x2
0x0efd…0f1b at0004 = ╱9b00d7╱ IF ╱ // 0xf01 @0x4
0x0efd…0f1b at0007 = ╱22╱"╱ // 0xf04 @0x7
0x0efd…0f1b at0008 = ╱2f╱/╱ // 0xf05 @0x8
0x0efd…0f1b at0009 = ╱22╱"╱ // 0xf06 @0x9
0x0efd…0f1b at000a = ╱eb╱ + ╱ // 0xf07 @0xa
0x0efd…0f1b at000b = ╱4b╱K╱ // 0xf08 @0xb
0x0efd…0f1b at000c = ╱4f╱O╱ // 0xf09 @0xc
0x0efd…0f1b at000d = ╱44╱D╱ // 0xf0a @0xd
0x0efd…0f1b at000e = ╱45╱E╱ // 0xf0b @0xe
0x0efd…0f1b at000f = ╱ef╱$╱ // 0xf0c @0xf
0x0efd…0f1b at0010 = ╱eb╱ + ╱ // 0xf0d @0x10
0x0efd…0f1b at0011 = ╱22╱"╱ // 0xf0e @0x11
0x0efd…0f1b at0012 = ╱2f╱/╱ // 0xf0f @0x12
0x0efd…0f1b at0013 = ╱22╱"╱ // 0xf10 @0x13
0x0efd…0f1b at0014 = ╱dc╱ IN ╱ // 0xf11 @0x14
0x0efd…0f1b at0015 = ╱22╱"╱ // 0xf12 @0x15
0x0efd…0f1b at0016 = ╱2f╱/╱ // 0xf13 @0x16
0x0efd…0f1b at0017 = ╱44╱D╱ // 0xf14 @0x17
0x0efd…0f1b at0018 = ╱2f╱/╱ // 0xf15 @0x18
0x0efd…0f1b at0019 = ╱4b╱K╱ // 0xf16 @0x19
0x0efd…0f1b at001a = ╱2f╱/╱ // 0xf17 @0x1a
0x0efd…0f1b at001b = ╱22╱"╱ // 0xf18 @0x1b
0x0efd…0f1b at001c = ╱b5╱ THEN ╱ // 0xf19 @0x1c
0x0efd…0f1b at001d = EOL // 0xf1a @0x1d
0x0efd…0f1b }
0x0f1b…0f41 a52f 1530 EXEC FEJL("Ukendt svar: '" + KODE$ + "'")
0x0f1b…0f41 LineComal80 {
0x0f1b…0f41 ptr = 0xa52f // 0xf1b @0x0
0x0f1b…0f41 lno = 0x05fa // 0xf1d @0x2
0x0f1b…0f41 at0004 = ╱9d╱ EXEC ╱ // 0xf1f @0x4
0x0f1b…0f41 at0005 = ╱46╱F╱ // 0xf20 @0x5
0x0f1b…0f41 at0006 = ╱45╱E╱ // 0xf21 @0x6
0x0f1b…0f41 at0007 = ╱4a╱J╱ // 0xf22 @0x7
0x0f1b…0f41 at0008 = ╱4c╱L╱ // 0xf23 @0x8
0x0f1b…0f41 at0009 = ╱ed╱(╱ // 0xf24 @0x9
0x0f1b…0f41 at000a = ╱22╱"╱ // 0xf25 @0xa
0x0f1b…0f41 at000b = ╱55╱U╱ // 0xf26 @0xb
0x0f1b…0f41 at000c = ╱6b╱k╱ // 0xf27 @0xc
0x0f1b…0f41 at000d = ╱65╱e╱ // 0xf28 @0xd
0x0f1b…0f41 at000e = ╱6e╱n╱ // 0xf29 @0xe
0x0f1b…0f41 at000f = ╱64╱d╱ // 0xf2a @0xf
0x0f1b…0f41 at0010 = ╱74╱t╱ // 0xf2b @0x10
0x0f1b…0f41 at0011 = ╱20╱…╱ // 0xf2c @0x11
0x0f1b…0f41 at0012 = ╱73╱s╱ // 0xf2d @0x12
0x0f1b…0f41 at0013 = ╱76╱v╱ // 0xf2e @0x13
0x0f1b…0f41 at0014 = ╱61╱a╱ // 0xf2f @0x14
0x0f1b…0f41 at0015 = ╱72╱r╱ // 0xf30 @0x15
0x0f1b…0f41 at0016 = ╱3a╱:╱ // 0xf31 @0x16
0x0f1b…0f41 at0017 = ╱20╱…╱ // 0xf32 @0x17
0x0f1b…0f41 at0018 = ╱27╱'╱ // 0xf33 @0x18
0x0f1b…0f41 at0019 = ╱22╱"╱ // 0xf34 @0x19
0x0f1b…0f41 at001a = ╱eb╱ + ╱ // 0xf35 @0x1a
0x0f1b…0f41 at001b = ╱4b╱K╱ // 0xf36 @0x1b
0x0f1b…0f41 at001c = ╱4f╱O╱ // 0xf37 @0x1c
0x0f1b…0f41 at001d = ╱44╱D╱ // 0xf38 @0x1d
0x0f1b…0f41 at001e = ╱45╱E╱ // 0xf39 @0x1e
0x0f1b…0f41 at001f = ╱ef╱$╱ // 0xf3a @0x1f
0x0f1b…0f41 at0020 = ╱eb╱ + ╱ // 0xf3b @0x20
0x0f1b…0f41 at0021 = ╱22╱"╱ // 0xf3c @0x21
0x0f1b…0f41 at0022 = ╱27╱'╱ // 0xf3d @0x22
0x0f1b…0f41 at0023 = ╱22╱"╱ // 0xf3e @0x23
0x0f1b…0f41 at0024 = ╱ee╱)╱ // 0xf3f @0x24
0x0f1b…0f41 at0025 = EOL // 0xf40 @0x25
0x0f1b…0f41 }
0x0f41…0f47 a535 1540 ENDIF
0x0f41…0f47 LineComal80 {
0x0f41…0f47 ptr = 0xa535 // 0xf41 @0x0
0x0f41…0f47 lno = 0x0604 // 0xf43 @0x2
0x0f41…0f47 at0004 = ╱9c╱ ENDIF ╱ // 0xf45 @0x4
0x0f41…0f47 at0005 = EOL // 0xf46 @0x5
0x0f41…0f47 }
0x0f47…0f4f a53d 1550 UNTIL OK
0x0f47…0f4f LineComal80 {
0x0f47…0f4f ptr = 0xa53d // 0xf47 @0x0
0x0f47…0f4f lno = 0x060e // 0xf49 @0x2
0x0f47…0f4f at0004 = ╱98╱ UNTIL ╱ // 0xf4b @0x4
0x0f47…0f4f at0005 = ╱4f╱O╱ // 0xf4c @0x5
0x0f47…0f4f at0006 = ╱4b╱K╱ // 0xf4d @0x6
0x0f47…0f4f at0007 = EOL // 0xf4e @0x7
0x0f47…0f4f }
0x0f4f…0f7c a56a 1560 IF KODE$ = "K" THEN LET KTO_PRIMO := KTO_PRIMO * ( - 1)
0x0f4f…0f7c LineComal80 {
0x0f4f…0f7c ptr = 0xa56a // 0xf4f @0x0
0x0f4f…0f7c lno = 0x0618 // 0xf51 @0x2
0x0f4f…0f7c at0004 = ╱8200╱ IF ╱ // 0xf53 @0x4
0x0f4f…0f7c at0006 = ╱4b╱K╱ // 0xf55 @0x6
0x0f4f…0f7c at0007 = ╱4f╱O╱ // 0xf56 @0x7
0x0f4f…0f7c at0008 = ╱44╱D╱ // 0xf57 @0x8
0x0f4f…0f7c at0009 = ╱45╱E╱ // 0xf58 @0x9
0x0f4f…0f7c at000a = ╱ef╱$╱ // 0xf59 @0xa
0x0f4f…0f7c at000b = ╱df╱ = ╱ // 0xf5a @0xb
0x0f4f…0f7c at000c = ╱22╱"╱ // 0xf5b @0xc
0x0f4f…0f7c at000d = ╱4b╱K╱ // 0xf5c @0xd
0x0f4f…0f7c at000e = ╱22╱"╱ // 0xf5d @0xe
0x0f4f…0f7c at000f = ╱b5╱ THEN ╱ // 0xf5e @0xf
0x0f4f…0f7c at0010 = ╱86╱ LET ╱ // 0xf5f @0x10
0x0f4f…0f7c at0011 = ╱4b╱K╱ // 0xf60 @0x11
0x0f4f…0f7c at0012 = ╱54╱T╱ // 0xf61 @0x12
0x0f4f…0f7c at0013 = ╱4f╱O╱ // 0xf62 @0x13
0x0f4f…0f7c at0014 = ╱5f╱_╱ // 0xf63 @0x14
0x0f4f…0f7c at0015 = ╱50╱P╱ // 0xf64 @0x15
0x0f4f…0f7c at0016 = ╱52╱R╱ // 0xf65 @0x16
0x0f4f…0f7c at0017 = ╱49╱I╱ // 0xf66 @0x17
0x0f4f…0f7c at0018 = ╱4d╱M╱ // 0xf67 @0x18
0x0f4f…0f7c at0019 = ╱4f╱O╱ // 0xf68 @0x19
0x0f4f…0f7c at001a = ╱f0╱ := ╱ // 0xf69 @0x1a
0x0f4f…0f7c at001b = ╱4b╱K╱ // 0xf6a @0x1b
0x0f4f…0f7c at001c = ╱54╱T╱ // 0xf6b @0x1c
0x0f4f…0f7c at001d = ╱4f╱O╱ // 0xf6c @0x1d
0x0f4f…0f7c at001e = ╱5f╱_╱ // 0xf6d @0x1e
0x0f4f…0f7c at001f = ╱50╱P╱ // 0xf6e @0x1f
0x0f4f…0f7c at0020 = ╱52╱R╱ // 0xf6f @0x20
0x0f4f…0f7c at0021 = ╱49╱I╱ // 0xf70 @0x21
0x0f4f…0f7c at0022 = ╱4d╱M╱ // 0xf71 @0x22
0x0f4f…0f7c at0023 = ╱4f╱O╱ // 0xf72 @0x23
0x0f4f…0f7c at0024 = ╱e7╱ * ╱ // 0xf73 @0x24
0x0f4f…0f7c at0025 = ╱ed╱(╱ // 0xf74 @0x25
0x0f4f…0f7c at0026 = ╱de╱ - ╱ // 0xf75 @0x26
0x0f4f…0f7c at0027 = ╱31╱1╱ // 0xf76 @0x27
0x0f4f…0f7c at0028 = ╱f20100╱ // 0xf77 @0x28
0x0f4f…0f7c at002b = ╱ee╱)╱ // 0xf7a @0x2b
0x0f4f…0f7c at002c = EOL // 0xf7b @0x2c
0x0f4f…0f7c }
0x0f7c…0f96 a584 1570 LET KTO_ULTIMO := KTO_PRIMO
0x0f7c…0f96 LineComal80 {
0x0f7c…0f96 ptr = 0xa584 // 0xf7c @0x0
0x0f7c…0f96 lno = 0x0622 // 0xf7e @0x2
0x0f7c…0f96 at0004 = ╱86╱ LET ╱ // 0xf80 @0x4
0x0f7c…0f96 at0005 = ╱4b╱K╱ // 0xf81 @0x5
0x0f7c…0f96 at0006 = ╱54╱T╱ // 0xf82 @0x6
0x0f7c…0f96 at0007 = ╱4f╱O╱ // 0xf83 @0x7
0x0f7c…0f96 at0008 = ╱5f╱_╱ // 0xf84 @0x8
0x0f7c…0f96 at0009 = ╱55╱U╱ // 0xf85 @0x9
0x0f7c…0f96 at000a = ╱4c╱L╱ // 0xf86 @0xa
0x0f7c…0f96 at000b = ╱54╱T╱ // 0xf87 @0xb
0x0f7c…0f96 at000c = ╱49╱I╱ // 0xf88 @0xc
0x0f7c…0f96 at000d = ╱4d╱M╱ // 0xf89 @0xd
0x0f7c…0f96 at000e = ╱4f╱O╱ // 0xf8a @0xe
0x0f7c…0f96 at000f = ╱f0╱ := ╱ // 0xf8b @0xf
0x0f7c…0f96 at0010 = ╱4b╱K╱ // 0xf8c @0x10
0x0f7c…0f96 at0011 = ╱54╱T╱ // 0xf8d @0x11
0x0f7c…0f96 at0012 = ╱4f╱O╱ // 0xf8e @0x12
0x0f7c…0f96 at0013 = ╱5f╱_╱ // 0xf8f @0x13
0x0f7c…0f96 at0014 = ╱50╱P╱ // 0xf90 @0x14
0x0f7c…0f96 at0015 = ╱52╱R╱ // 0xf91 @0x15
0x0f7c…0f96 at0016 = ╱49╱I╱ // 0xf92 @0x16
0x0f7c…0f96 at0017 = ╱4d╱M╱ // 0xf93 @0x17
0x0f7c…0f96 at0018 = ╱4f╱O╱ // 0xf94 @0x18
0x0f7c…0f96 at0019 = EOL // 0xf95 @0x19
0x0f7c…0f96 }
0x0f96…0fae a59c 1580 EXEC SKRIV_KONTO(RECNR)
0x0f96…0fae LineComal80 {
0x0f96…0fae ptr = 0xa59c // 0xf96 @0x0
0x0f96…0fae lno = 0x062c // 0xf98 @0x2
0x0f96…0fae at0004 = ╱9d╱ EXEC ╱ // 0xf9a @0x4
0x0f96…0fae at0005 = ╱53╱S╱ // 0xf9b @0x5
0x0f96…0fae at0006 = ╱4b╱K╱ // 0xf9c @0x6
0x0f96…0fae at0007 = ╱52╱R╱ // 0xf9d @0x7
0x0f96…0fae at0008 = ╱49╱I╱ // 0xf9e @0x8
0x0f96…0fae at0009 = ╱56╱V╱ // 0xf9f @0x9
0x0f96…0fae at000a = ╱5f╱_╱ // 0xfa0 @0xa
0x0f96…0fae at000b = ╱4b╱K╱ // 0xfa1 @0xb
0x0f96…0fae at000c = ╱4f╱O╱ // 0xfa2 @0xc
0x0f96…0fae at000d = ╱4e╱N╱ // 0xfa3 @0xd
0x0f96…0fae at000e = ╱54╱T╱ // 0xfa4 @0xe
0x0f96…0fae at000f = ╱4f╱O╱ // 0xfa5 @0xf
0x0f96…0fae at0010 = ╱ed╱(╱ // 0xfa6 @0x10
0x0f96…0fae at0011 = ╱52╱R╱ // 0xfa7 @0x11
0x0f96…0fae at0012 = ╱45╱E╱ // 0xfa8 @0x12
0x0f96…0fae at0013 = ╱43╱C╱ // 0xfa9 @0x13
0x0f96…0fae at0014 = ╱4e╱N╱ // 0xfaa @0x14
0x0f96…0fae at0015 = ╱52╱R╱ // 0xfab @0x15
0x0f96…0fae at0016 = ╱ee╱)╱ // 0xfac @0x16
0x0f96…0fae at0017 = EOL // 0xfad @0x17
0x0f96…0fae }
0x0fae…0fb4 a5a2 1590 CLEAR
0x0fae…0fb4 LineComal80 {
0x0fae…0fb4 ptr = 0xa5a2 // 0xfae @0x0
0x0fae…0fb4 lno = 0x0636 // 0xfb0 @0x2
0x0fae…0fb4 at0004 = ╱a0╱ CLEAR ╱ // 0xfb2 @0x4
0x0fae…0fb4 at0005 = EOL // 0xfb3 @0x5
0x0fae…0fb4 }
0x0fb4…0fc3 a5b1 1600 LET SVAR$ := "j"
0x0fb4…0fc3 LineComal80 {
0x0fb4…0fc3 ptr = 0xa5b1 // 0xfb4 @0x0
0x0fb4…0fc3 lno = 0x0640 // 0xfb6 @0x2
0x0fb4…0fc3 at0004 = ╱86╱ LET ╱ // 0xfb8 @0x4
0x0fb4…0fc3 at0005 = ╱53╱S╱ // 0xfb9 @0x5
0x0fb4…0fc3 at0006 = ╱56╱V╱ // 0xfba @0x6
0x0fb4…0fc3 at0007 = ╱41╱A╱ // 0xfbb @0x7
0x0fb4…0fc3 at0008 = ╱52╱R╱ // 0xfbc @0x8
0x0fb4…0fc3 at0009 = ╱ef╱$╱ // 0xfbd @0x9
0x0fb4…0fc3 at000a = ╱f0╱ := ╱ // 0xfbe @0xa
0x0fb4…0fc3 at000b = ╱22╱"╱ // 0xfbf @0xb
0x0fb4…0fc3 at000c = ╱6a╱j╱ // 0xfc0 @0xc
0x0fb4…0fc3 at000d = ╱22╱"╱ // 0xfc1 @0xd
0x0fb4…0fc3 at000e = EOL // 0xfc2 @0xe
0x0fb4…0fc3 }
0x0fc3…1000 a5ee 1610 EDIT "<C1212>Indtast flere åbningssaldi (j/n)? " : SVAR$(1)
0x0fc3…1000 LineComal80 {
0x0fc3…1000 ptr = 0xa5ee // 0xfc3 @0x0
0x0fc3…1000 lno = 0x064a // 0xfc5 @0x2
0x0fc3…1000 at0004 = ╱b1╱ EDIT ╱ // 0xfc7 @0x4
0x0fc3…1000 at0005 = ╱22╱"╱ // 0xfc8 @0x5
0x0fc3…1000 at0006 = ╱3c╱<╱ // 0xfc9 @0x6
0x0fc3…1000 at0007 = ╱43╱C╱ // 0xfca @0x7
0x0fc3…1000 at0008 = ╱31╱1╱ // 0xfcb @0x8
0x0fc3…1000 at0009 = ╱32╱2╱ // 0xfcc @0x9
0x0fc3…1000 at000a = ╱31╱1╱ // 0xfcd @0xa
0x0fc3…1000 at000b = ╱32╱2╱ // 0xfce @0xb
0x0fc3…1000 at000c = ╱3e╱>╱ // 0xfcf @0xc
0x0fc3…1000 at000d = ╱49╱I╱ // 0xfd0 @0xd
0x0fc3…1000 at000e = ╱6e╱n╱ // 0xfd1 @0xe
0x0fc3…1000 at000f = ╱64╱d╱ // 0xfd2 @0xf
0x0fc3…1000 at0010 = ╱74╱t╱ // 0xfd3 @0x10
0x0fc3…1000 at0011 = ╱61╱a╱ // 0xfd4 @0x11
0x0fc3…1000 at0012 = ╱73╱s╱ // 0xfd5 @0x12
0x0fc3…1000 at0013 = ╱74╱t╱ // 0xfd6 @0x13
0x0fc3…1000 at0014 = ╱20╱…╱ // 0xfd7 @0x14
0x0fc3…1000 at0015 = ╱66╱f╱ // 0xfd8 @0x15
0x0fc3…1000 at0016 = ╱6c╱l╱ // 0xfd9 @0x16
0x0fc3…1000 at0017 = ╱65╱e╱ // 0xfda @0x17
0x0fc3…1000 at0018 = ╱72╱r╱ // 0xfdb @0x18
0x0fc3…1000 at0019 = ╱65╱e╱ // 0xfdc @0x19
0x0fc3…1000 at001a = ╱20╱…╱ // 0xfdd @0x1a
0x0fc3…1000 at001b = ╱7d╱å╱ // 0xfde @0x1b
0x0fc3…1000 at001c = ╱62╱b╱ // 0xfdf @0x1c
0x0fc3…1000 at001d = ╱6e╱n╱ // 0xfe0 @0x1d
0x0fc3…1000 at001e = ╱69╱i╱ // 0xfe1 @0x1e
0x0fc3…1000 at001f = ╱6e╱n╱ // 0xfe2 @0x1f
0x0fc3…1000 at0020 = ╱67╱g╱ // 0xfe3 @0x20
0x0fc3…1000 at0021 = ╱73╱s╱ // 0xfe4 @0x21
0x0fc3…1000 at0022 = ╱73╱s╱ // 0xfe5 @0x22
0x0fc3…1000 at0023 = ╱61╱a╱ // 0xfe6 @0x23
0x0fc3…1000 at0024 = ╱6c╱l╱ // 0xfe7 @0x24
0x0fc3…1000 at0025 = ╱64╱d╱ // 0xfe8 @0x25
0x0fc3…1000 at0026 = ╱69╱i╱ // 0xfe9 @0x26
0x0fc3…1000 at0027 = ╱20╱…╱ // 0xfea @0x27
0x0fc3…1000 at0028 = ╱28╱(╱ // 0xfeb @0x28
0x0fc3…1000 at0029 = ╱6a╱j╱ // 0xfec @0x29
0x0fc3…1000 at002a = ╱2f╱/╱ // 0xfed @0x2a
0x0fc3…1000 at002b = ╱6e╱n╱ // 0xfee @0x2b
0x0fc3…1000 at002c = ╱29╱)╱ // 0xfef @0x2c
0x0fc3…1000 at002d = ╱3f╱?╱ // 0xff0 @0x2d
0x0fc3…1000 at002e = ╱20╱…╱ // 0xff1 @0x2e
0x0fc3…1000 at002f = ╱22╱"╱ // 0xff2 @0x2f
0x0fc3…1000 at0030 = ╱f1╱ : ╱ // 0xff3 @0x30
0x0fc3…1000 at0031 = ╱53╱S╱ // 0xff4 @0x31
0x0fc3…1000 at0032 = ╱56╱V╱ // 0xff5 @0x32
0x0fc3…1000 at0033 = ╱41╱A╱ // 0xff6 @0x33
0x0fc3…1000 at0034 = ╱52╱R╱ // 0xff7 @0x34
0x0fc3…1000 at0035 = ╱ef╱$╱ // 0xff8 @0x35
0x0fc3…1000 at0036 = ╱ed╱(╱ // 0xff9 @0x36
0x0fc3…1000 at0037 = ╱31╱1╱ // 0xffa @0x37
0x0fc3…1000 at0038 = ╱f20100╱ // 0xffb @0x38
0x0fc3…1000 at003b = ╱ee╱)╱ // 0xffe @0x3b
0x0fc3…1000 at003c = EOL // 0xfff @0x3c
0x0fc3…1000 }
0x1000…101c a60a 1620 UNTIL NOT "/" + SVAR$ + "/" IN "/J/j/"
0x1000…101c LineComal80 {
0x1000…101c ptr = 0xa60a // 0x1000 @0x0
0x1000…101c lno = 0x0654 // 0x1002 @0x2
0x1000…101c at0004 = ╱98╱ UNTIL ╱ // 0x1004 @0x4
0x1000…101c at0005 = ╱d7╱ NOT ╱ // 0x1005 @0x5
0x1000…101c at0006 = ╱22╱"╱ // 0x1006 @0x6
0x1000…101c at0007 = ╱2f╱/╱ // 0x1007 @0x7
0x1000…101c at0008 = ╱22╱"╱ // 0x1008 @0x8
0x1000…101c at0009 = ╱eb╱ + ╱ // 0x1009 @0x9
0x1000…101c at000a = ╱53╱S╱ // 0x100a @0xa
0x1000…101c at000b = ╱56╱V╱ // 0x100b @0xb
0x1000…101c at000c = ╱41╱A╱ // 0x100c @0xc
0x1000…101c at000d = ╱52╱R╱ // 0x100d @0xd
0x1000…101c at000e = ╱ef╱$╱ // 0x100e @0xe
0x1000…101c at000f = ╱eb╱ + ╱ // 0x100f @0xf
0x1000…101c at0010 = ╱22╱"╱ // 0x1010 @0x10
0x1000…101c at0011 = ╱2f╱/╱ // 0x1011 @0x11
0x1000…101c at0012 = ╱22╱"╱ // 0x1012 @0x12
0x1000…101c at0013 = ╱dc╱ IN ╱ // 0x1013 @0x13
0x1000…101c at0014 = ╱22╱"╱ // 0x1014 @0x14
0x1000…101c at0015 = ╱2f╱/╱ // 0x1015 @0x15
0x1000…101c at0016 = ╱4a╱J╱ // 0x1016 @0x16
0x1000…101c at0017 = ╱2f╱/╱ // 0x1017 @0x17
0x1000…101c at0018 = ╱6a╱j╱ // 0x1018 @0x18
0x1000…101c at0019 = ╱2f╱/╱ // 0x1019 @0x19
0x1000…101c at001a = ╱22╱"╱ // 0x101a @0x1a
0x1000…101c at001b = EOL // 0x101b @0x1b
0x1000…101c }
0x101c…102e a61c 1630 ENDPROC INDTASTSALDI
0x101c…102e LineComal80 {
0x101c…102e ptr = 0xa61c // 0x101c @0x0
0x101c…102e lno = 0x065e // 0x101e @0x2
0x101c…102e at0004 = ╱9f╱ ENDPROC ╱ // 0x1020 @0x4
0x101c…102e at0005 = ╱49╱I╱ // 0x1021 @0x5
0x101c…102e at0006 = ╱4e╱N╱ // 0x1022 @0x6
0x101c…102e at0007 = ╱44╱D╱ // 0x1023 @0x7
0x101c…102e at0008 = ╱54╱T╱ // 0x1024 @0x8
0x101c…102e at0009 = ╱41╱A╱ // 0x1025 @0x9
0x101c…102e at000a = ╱53╱S╱ // 0x1026 @0xa
0x101c…102e at000b = ╱54╱T╱ // 0x1027 @0xb
0x101c…102e at000c = ╱53╱S╱ // 0x1028 @0xc
0x101c…102e at000d = ╱41╱A╱ // 0x1029 @0xd
0x101c…102e at000e = ╱4c╱L╱ // 0x102a @0xe
0x101c…102e at000f = ╱44╱D╱ // 0x102b @0xf
0x101c…102e at0010 = ╱49╱I╱ // 0x102c @0x10
0x101c…102e at0011 = EOL // 0x102d @0x11
0x101c…102e }
0x102e…1033 a621 1640
0x102e…1033 LineComal80 {
0x102e…1033 ptr = 0xa621 // 0x102e @0x0
0x102e…1033 lno = 0x0668 // 0x1030 @0x2
0x102e…1033 at0004 = EOL // 0x1032 @0x4
0x102e…1033 }
0x1033…1044 a632 1650 PROC FIND_KONTO
0x1033…1044 LineComal80 {
0x1033…1044 ptr = 0xa632 // 0x1033 @0x0
0x1033…1044 lno = 0x0672 // 0x1035 @0x2
0x1033…1044 at0004 = ╱9e00╱ PROC ╱ // 0x1037 @0x4
0x1033…1044 at0006 = ╱46╱F╱ // 0x1039 @0x6
0x1033…1044 at0007 = ╱49╱I╱ // 0x103a @0x7
0x1033…1044 at0008 = ╱4e╱N╱ // 0x103b @0x8
0x1033…1044 at0009 = ╱44╱D╱ // 0x103c @0x9
0x1033…1044 at000a = ╱5f╱_╱ // 0x103d @0xa
0x1033…1044 at000b = ╱4b╱K╱ // 0x103e @0xb
0x1033…1044 at000c = ╱4f╱O╱ // 0x103f @0xc
0x1033…1044 at000d = ╱4e╱N╱ // 0x1040 @0xd
0x1033…1044 at000e = ╱54╱T╱ // 0x1041 @0xe
0x1033…1044 at000f = ╱4f╱O╱ // 0x1042 @0xf
0x1033…1044 at0010 = EOL // 0x1043 @0x10
0x1033…1044 }
0x1044…1055 a643 1660 LET A_KTONR$ := ""
0x1044…1055 LineComal80 {
0x1044…1055 ptr = 0xa643 // 0x1044 @0x0
0x1044…1055 lno = 0x067c // 0x1046 @0x2
0x1044…1055 at0004 = ╱86╱ LET ╱ // 0x1048 @0x4
0x1044…1055 at0005 = ╱41╱A╱ // 0x1049 @0x5
0x1044…1055 at0006 = ╱5f╱_╱ // 0x104a @0x6
0x1044…1055 at0007 = ╱4b╱K╱ // 0x104b @0x7
0x1044…1055 at0008 = ╱54╱T╱ // 0x104c @0x8
0x1044…1055 at0009 = ╱4f╱O╱ // 0x104d @0x9
0x1044…1055 at000a = ╱4e╱N╱ // 0x104e @0xa
0x1044…1055 at000b = ╱52╱R╱ // 0x104f @0xb
0x1044…1055 at000c = ╱ef╱$╱ // 0x1050 @0xc
0x1044…1055 at000d = ╱f0╱ := ╱ // 0x1051 @0xd
0x1044…1055 at000e = ╱22╱"╱ // 0x1052 @0xe
0x1044…1055 at000f = ╱22╱"╱ // 0x1053 @0xf
0x1044…1055 at0010 = EOL // 0x1054 @0x10
0x1044…1055 }
0x1055…105c a64a 1670 REPEAT
0x1055…105c LineComal80 {
0x1055…105c ptr = 0xa64a // 0x1055 @0x0
0x1055…105c lno = 0x0686 // 0x1057 @0x2
0x1055…105c at0004 = ╱9700╱ REPEAT ╱ // 0x1059 @0x4
0x1055…105c at0006 = EOL // 0x105b @0x6
0x1055…105c }
0x105c…1063 a651 1680 REPEAT
0x105c…1063 LineComal80 {
0x105c…1063 ptr = 0xa651 // 0x105c @0x0
0x105c…1063 lno = 0x0690 // 0x105e @0x2
0x105c…1063 at0004 = ╱9700╱ REPEAT ╱ // 0x1060 @0x4
0x105c…1063 at0006 = EOL // 0x1062 @0x6
0x105c…1063 }
0x1063…1089 a677 1690 EDIT "<C1710>1. Kontonr : " : A_KTONR$
0x1063…1089 LineComal80 {
0x1063…1089 ptr = 0xa677 // 0x1063 @0x0
0x1063…1089 lno = 0x069a // 0x1065 @0x2
0x1063…1089 at0004 = ╱b1╱ EDIT ╱ // 0x1067 @0x4
0x1063…1089 at0005 = ╱22╱"╱ // 0x1068 @0x5
0x1063…1089 at0006 = ╱3c╱<╱ // 0x1069 @0x6
0x1063…1089 at0007 = ╱43╱C╱ // 0x106a @0x7
0x1063…1089 at0008 = ╱31╱1╱ // 0x106b @0x8
0x1063…1089 at0009 = ╱37╱7╱ // 0x106c @0x9
0x1063…1089 at000a = ╱31╱1╱ // 0x106d @0xa
0x1063…1089 at000b = ╱30╱0╱ // 0x106e @0xb
0x1063…1089 at000c = ╱3e╱>╱ // 0x106f @0xc
0x1063…1089 at000d = ╱31╱1╱ // 0x1070 @0xd
0x1063…1089 at000e = ╱2e╱.╱ // 0x1071 @0xe
0x1063…1089 at000f = ╱20╱…╱ // 0x1072 @0xf
0x1063…1089 at0010 = ╱4b╱K╱ // 0x1073 @0x10
0x1063…1089 at0011 = ╱6f╱o╱ // 0x1074 @0x11
0x1063…1089 at0012 = ╱6e╱n╱ // 0x1075 @0x12
0x1063…1089 at0013 = ╱74╱t╱ // 0x1076 @0x13
0x1063…1089 at0014 = ╱6f╱o╱ // 0x1077 @0x14
0x1063…1089 at0015 = ╱6e╱n╱ // 0x1078 @0x15
0x1063…1089 at0016 = ╱72╱r╱ // 0x1079 @0x16
0x1063…1089 at0017 = ╱20╱…╱ // 0x107a @0x17
0x1063…1089 at0018 = ╱20╱…╱ // 0x107b @0x18
0x1063…1089 at0019 = ╱3a╱:╱ // 0x107c @0x19
0x1063…1089 at001a = ╱20╱…╱ // 0x107d @0x1a
0x1063…1089 at001b = ╱22╱"╱ // 0x107e @0x1b
0x1063…1089 at001c = ╱f1╱ : ╱ // 0x107f @0x1c
0x1063…1089 at001d = ╱41╱A╱ // 0x1080 @0x1d
0x1063…1089 at001e = ╱5f╱_╱ // 0x1081 @0x1e
0x1063…1089 at001f = ╱4b╱K╱ // 0x1082 @0x1f
0x1063…1089 at0020 = ╱54╱T╱ // 0x1083 @0x20
0x1063…1089 at0021 = ╱4f╱O╱ // 0x1084 @0x21
0x1063…1089 at0022 = ╱4e╱N╱ // 0x1085 @0x22
0x1063…1089 at0023 = ╱52╱R╱ // 0x1086 @0x23
0x1063…1089 at0024 = ╱ef╱$╱ // 0x1087 @0x24
0x1063…1089 at0025 = EOL // 0x1088 @0x25
0x1063…1089 }
0x1089…10a4 a692 1700 UNTIL NOT A_KTONR$ IN " "
0x1089…10a4 LineComal80 {
0x1089…10a4 ptr = 0xa692 // 0x1089 @0x0
0x1089…10a4 lno = 0x06a4 // 0x108b @0x2
0x1089…10a4 at0004 = ╱98╱ UNTIL ╱ // 0x108d @0x4
0x1089…10a4 at0005 = ╱d7╱ NOT ╱ // 0x108e @0x5
0x1089…10a4 at0006 = ╱41╱A╱ // 0x108f @0x6
0x1089…10a4 at0007 = ╱5f╱_╱ // 0x1090 @0x7
0x1089…10a4 at0008 = ╱4b╱K╱ // 0x1091 @0x8
0x1089…10a4 at0009 = ╱54╱T╱ // 0x1092 @0x9
0x1089…10a4 at000a = ╱4f╱O╱ // 0x1093 @0xa
0x1089…10a4 at000b = ╱4e╱N╱ // 0x1094 @0xb
0x1089…10a4 at000c = ╱52╱R╱ // 0x1095 @0xc
0x1089…10a4 at000d = ╱ef╱$╱ // 0x1096 @0xd
0x1089…10a4 at000e = ╱dc╱ IN ╱ // 0x1097 @0xe
0x1089…10a4 at000f = ╱22╱"╱ // 0x1098 @0xf
0x1089…10a4 at0010 = ╱20╱…╱ // 0x1099 @0x10
0x1089…10a4 at0011 = ╱20╱…╱ // 0x109a @0x11
0x1089…10a4 at0012 = ╱20╱…╱ // 0x109b @0x12
0x1089…10a4 at0013 = ╱20╱…╱ // 0x109c @0x13
0x1089…10a4 at0014 = ╱20╱…╱ // 0x109d @0x14
0x1089…10a4 at0015 = ╱20╱…╱ // 0x109e @0x15
0x1089…10a4 at0016 = ╱20╱…╱ // 0x109f @0x16
0x1089…10a4 at0017 = ╱20╱…╱ // 0x10a0 @0x17
0x1089…10a4 at0018 = ╱20╱…╱ // 0x10a1 @0x18
0x1089…10a4 at0019 = ╱22╱"╱ // 0x10a2 @0x19
0x1089…10a4 at001a = EOL // 0x10a3 @0x1a
0x1089…10a4 }
0x10a4…10b6 a6a4 1710 EXEC SL_FEJLLINIE
0x10a4…10b6 LineComal80 {
0x10a4…10b6 ptr = 0xa6a4 // 0x10a4 @0x0
0x10a4…10b6 lno = 0x06ae // 0x10a6 @0x2
0x10a4…10b6 at0004 = ╱9d╱ EXEC ╱ // 0x10a8 @0x4
0x10a4…10b6 at0005 = ╱53╱S╱ // 0x10a9 @0x5
0x10a4…10b6 at0006 = ╱4c╱L╱ // 0x10aa @0x6
0x10a4…10b6 at0007 = ╱5f╱_╱ // 0x10ab @0x7
0x10a4…10b6 at0008 = ╱46╱F╱ // 0x10ac @0x8
0x10a4…10b6 at0009 = ╱45╱E╱ // 0x10ad @0x9
0x10a4…10b6 at000a = ╱4a╱J╱ // 0x10ae @0xa
0x10a4…10b6 at000b = ╱4c╱L╱ // 0x10af @0xb
0x10a4…10b6 at000c = ╱4c╱L╱ // 0x10b0 @0xc
0x10a4…10b6 at000d = ╱49╱I╱ // 0x10b1 @0xd
0x10a4…10b6 at000e = ╱4e╱N╱ // 0x10b2 @0xe
0x10a4…10b6 at000f = ╱49╱I╱ // 0x10b3 @0xf
0x10a4…10b6 at0010 = ╱45╱E╱ // 0x10b4 @0x10
0x10a4…10b6 at0011 = EOL // 0x10b5 @0x11
0x10a4…10b6 }
0x10b6…10d5 a6c3 1720 LET IDXPOS := FIND_KTO(A_KTONR$)
0x10b6…10d5 LineComal80 {
0x10b6…10d5 ptr = 0xa6c3 // 0x10b6 @0x0
0x10b6…10d5 lno = 0x06b8 // 0x10b8 @0x2
0x10b6…10d5 at0004 = ╱86╱ LET ╱ // 0x10ba @0x4
0x10b6…10d5 at0005 = ╱49╱I╱ // 0x10bb @0x5
0x10b6…10d5 at0006 = ╱44╱D╱ // 0x10bc @0x6
0x10b6…10d5 at0007 = ╱58╱X╱ // 0x10bd @0x7
0x10b6…10d5 at0008 = ╱50╱P╱ // 0x10be @0x8
0x10b6…10d5 at0009 = ╱4f╱O╱ // 0x10bf @0x9
0x10b6…10d5 at000a = ╱53╱S╱ // 0x10c0 @0xa
0x10b6…10d5 at000b = ╱f0╱ := ╱ // 0x10c1 @0xb
0x10b6…10d5 at000c = ╱46╱F╱ // 0x10c2 @0xc
0x10b6…10d5 at000d = ╱49╱I╱ // 0x10c3 @0xd
0x10b6…10d5 at000e = ╱4e╱N╱ // 0x10c4 @0xe
0x10b6…10d5 at000f = ╱44╱D╱ // 0x10c5 @0xf
0x10b6…10d5 at0010 = ╱5f╱_╱ // 0x10c6 @0x10
0x10b6…10d5 at0011 = ╱4b╱K╱ // 0x10c7 @0x11
0x10b6…10d5 at0012 = ╱54╱T╱ // 0x10c8 @0x12
0x10b6…10d5 at0013 = ╱4f╱O╱ // 0x10c9 @0x13
0x10b6…10d5 at0014 = ╱ed╱(╱ // 0x10ca @0x14
0x10b6…10d5 at0015 = ╱41╱A╱ // 0x10cb @0x15
0x10b6…10d5 at0016 = ╱5f╱_╱ // 0x10cc @0x16
0x10b6…10d5 at0017 = ╱4b╱K╱ // 0x10cd @0x17
0x10b6…10d5 at0018 = ╱54╱T╱ // 0x10ce @0x18
0x10b6…10d5 at0019 = ╱4f╱O╱ // 0x10cf @0x19
0x10b6…10d5 at001a = ╱4e╱N╱ // 0x10d0 @0x1a
0x10b6…10d5 at001b = ╱52╱R╱ // 0x10d1 @0x1b
0x10b6…10d5 at001c = ╱ef╱$╱ // 0x10d2 @0x1c
0x10b6…10d5 at001d = ╱ee╱)╱ // 0x10d3 @0x1d
0x10b6…10d5 at001e = EOL // 0x10d4 @0x1e
0x10b6…10d5 }
0x10d5…10fa a6e8 1730 IF NOT OK THEN EXEC FEJL("Konto findes ikke")
0x10d5…10fa LineComal80 {
0x10d5…10fa ptr = 0xa6e8 // 0x10d5 @0x0
0x10d5…10fa lno = 0x06c2 // 0x10d7 @0x2
0x10d5…10fa at0004 = ╱8200╱ IF ╱ // 0x10d9 @0x4
0x10d5…10fa at0006 = ╱d7╱ NOT ╱ // 0x10db @0x6
0x10d5…10fa at0007 = ╱4f╱O╱ // 0x10dc @0x7
0x10d5…10fa at0008 = ╱4b╱K╱ // 0x10dd @0x8
0x10d5…10fa at0009 = ╱b5╱ THEN ╱ // 0x10de @0x9
0x10d5…10fa at000a = ╱9d╱ EXEC ╱ // 0x10df @0xa
0x10d5…10fa at000b = ╱46╱F╱ // 0x10e0 @0xb
0x10d5…10fa at000c = ╱45╱E╱ // 0x10e1 @0xc
0x10d5…10fa at000d = ╱4a╱J╱ // 0x10e2 @0xd
0x10d5…10fa at000e = ╱4c╱L╱ // 0x10e3 @0xe
0x10d5…10fa at000f = ╱ed╱(╱ // 0x10e4 @0xf
0x10d5…10fa at0010 = ╱22╱"╱ // 0x10e5 @0x10
0x10d5…10fa at0011 = ╱4b╱K╱ // 0x10e6 @0x11
0x10d5…10fa at0012 = ╱6f╱o╱ // 0x10e7 @0x12
0x10d5…10fa at0013 = ╱6e╱n╱ // 0x10e8 @0x13
0x10d5…10fa at0014 = ╱74╱t╱ // 0x10e9 @0x14
0x10d5…10fa at0015 = ╱6f╱o╱ // 0x10ea @0x15
0x10d5…10fa at0016 = ╱20╱…╱ // 0x10eb @0x16
0x10d5…10fa at0017 = ╱66╱f╱ // 0x10ec @0x17
0x10d5…10fa at0018 = ╱69╱i╱ // 0x10ed @0x18
0x10d5…10fa at0019 = ╱6e╱n╱ // 0x10ee @0x19
0x10d5…10fa at001a = ╱64╱d╱ // 0x10ef @0x1a
0x10d5…10fa at001b = ╱65╱e╱ // 0x10f0 @0x1b
0x10d5…10fa at001c = ╱73╱s╱ // 0x10f1 @0x1c
0x10d5…10fa at001d = ╱20╱…╱ // 0x10f2 @0x1d
0x10d5…10fa at001e = ╱69╱i╱ // 0x10f3 @0x1e
0x10d5…10fa at001f = ╱6b╱k╱ // 0x10f4 @0x1f
0x10d5…10fa at0020 = ╱6b╱k╱ // 0x10f5 @0x20
0x10d5…10fa at0021 = ╱65╱e╱ // 0x10f6 @0x21
0x10d5…10fa at0022 = ╱22╱"╱ // 0x10f7 @0x22
0x10d5…10fa at0023 = ╱ee╱)╱ // 0x10f8 @0x23
0x10d5…10fa at0024 = EOL // 0x10f9 @0x24
0x10d5…10fa }
0x10fa…1115 a703 1740 IF OK THEN EXEC LÆS_KONTO(RECNR)
0x10fa…1115 LineComal80 {
0x10fa…1115 ptr = 0xa703 // 0x10fa @0x0
0x10fa…1115 lno = 0x06cc // 0x10fc @0x2
0x10fa…1115 at0004 = ╱8200╱ IF ╱ // 0x10fe @0x4
0x10fa…1115 at0006 = ╱4f╱O╱ // 0x1100 @0x6
0x10fa…1115 at0007 = ╱4b╱K╱ // 0x1101 @0x7
0x10fa…1115 at0008 = ╱b5╱ THEN ╱ // 0x1102 @0x8
0x10fa…1115 at0009 = ╱9d╱ EXEC ╱ // 0x1103 @0x9
0x10fa…1115 at000a = ╱4c╱L╱ // 0x1104 @0xa
0x10fa…1115 at000b = ╱5b╱Æ╱ // 0x1105 @0xb
0x10fa…1115 at000c = ╱53╱S╱ // 0x1106 @0xc
0x10fa…1115 at000d = ╱5f╱_╱ // 0x1107 @0xd
0x10fa…1115 at000e = ╱4b╱K╱ // 0x1108 @0xe
0x10fa…1115 at000f = ╱4f╱O╱ // 0x1109 @0xf
0x10fa…1115 at0010 = ╱4e╱N╱ // 0x110a @0x10
0x10fa…1115 at0011 = ╱54╱T╱ // 0x110b @0x11
0x10fa…1115 at0012 = ╱4f╱O╱ // 0x110c @0x12
0x10fa…1115 at0013 = ╱ed╱(╱ // 0x110d @0x13
0x10fa…1115 at0014 = ╱52╱R╱ // 0x110e @0x14
0x10fa…1115 at0015 = ╱45╱E╱ // 0x110f @0x15
0x10fa…1115 at0016 = ╱43╱C╱ // 0x1110 @0x16
0x10fa…1115 at0017 = ╱4e╱N╱ // 0x1111 @0x17
0x10fa…1115 at0018 = ╱52╱R╱ // 0x1112 @0x18
0x10fa…1115 at0019 = ╱ee╱)╱ // 0x1113 @0x19
0x10fa…1115 at001a = EOL // 0x1114 @0x1a
0x10fa…1115 }
0x1115…112d acff 1750 IF TO_TYPE$ >< "A" AND OK THEN
0x1115…112d LineComal80 {
0x1115…112d ptr = 0xacff // 0x1115 @0x0
0x1115…112d lno = 0x06d6 // 0x1117 @0x2
0x1115…112d at0004 = ╱9b004b╱ IF ╱ // 0x1119 @0x4
0x1115…112d at0007 = ╱54╱T╱ // 0x111c @0x7
0x1115…112d at0008 = ╱4f╱O╱ // 0x111d @0x8
0x1115…112d at0009 = ╱5f╱_╱ // 0x111e @0x9
0x1115…112d at000a = ╱54╱T╱ // 0x111f @0xa
0x1115…112d at000b = ╱59╱Y╱ // 0x1120 @0xb
0x1115…112d at000c = ╱50╱P╱ // 0x1121 @0xc
0x1115…112d at000d = ╱45╱E╱ // 0x1122 @0xd
0x1115…112d at000e = ╱ef╱$╱ // 0x1123 @0xe
0x1115…112d at000f = ╱e4╱ >< ╱ // 0x1124 @0xf
0x1115…112d at0010 = ╱22╱"╱ // 0x1125 @0x10
0x1115…112d at0011 = ╱41╱A╱ // 0x1126 @0x11
0x1115…112d at0012 = ╱22╱"╱ // 0x1127 @0x12
0x1115…112d at0013 = ╱d9╱ AND ╱ // 0x1128 @0x13
0x1115…112d at0014 = ╱4f╱O╱ // 0x1129 @0x14
0x1115…112d at0015 = ╱4b╱K╱ // 0x112a @0x15
0x1115…112d at0016 = ╱b5╱ THEN ╱ // 0x112b @0x16
0x1115…112d at0017 = EOL // 0x112c @0x17
0x1115…112d }
0x112d…115e a74c 1760 EXEC FEJL("Ulovlig kontonr - kontotype < > 'A'")
0x112d…115e LineComal80 {
0x112d…115e ptr = 0xa74c // 0x112d @0x0
0x112d…115e lno = 0x06e0 // 0x112f @0x2
0x112d…115e at0004 = ╱9d╱ EXEC ╱ // 0x1131 @0x4
0x112d…115e at0005 = ╱46╱F╱ // 0x1132 @0x5
0x112d…115e at0006 = ╱45╱E╱ // 0x1133 @0x6
0x112d…115e at0007 = ╱4a╱J╱ // 0x1134 @0x7
0x112d…115e at0008 = ╱4c╱L╱ // 0x1135 @0x8
0x112d…115e at0009 = ╱ed╱(╱ // 0x1136 @0x9
0x112d…115e at000a = ╱22╱"╱ // 0x1137 @0xa
0x112d…115e at000b = ╱55╱U╱ // 0x1138 @0xb
0x112d…115e at000c = ╱6c╱l╱ // 0x1139 @0xc
0x112d…115e at000d = ╱6f╱o╱ // 0x113a @0xd
0x112d…115e at000e = ╱76╱v╱ // 0x113b @0xe
0x112d…115e at000f = ╱6c╱l╱ // 0x113c @0xf
0x112d…115e at0010 = ╱69╱i╱ // 0x113d @0x10
0x112d…115e at0011 = ╱67╱g╱ // 0x113e @0x11
0x112d…115e at0012 = ╱20╱…╱ // 0x113f @0x12
0x112d…115e at0013 = ╱6b╱k╱ // 0x1140 @0x13
0x112d…115e at0014 = ╱6f╱o╱ // 0x1141 @0x14
0x112d…115e at0015 = ╱6e╱n╱ // 0x1142 @0x15
0x112d…115e at0016 = ╱74╱t╱ // 0x1143 @0x16
0x112d…115e at0017 = ╱6f╱o╱ // 0x1144 @0x17
0x112d…115e at0018 = ╱6e╱n╱ // 0x1145 @0x18
0x112d…115e at0019 = ╱72╱r╱ // 0x1146 @0x19
0x112d…115e at001a = ╱20╱…╱ // 0x1147 @0x1a
0x112d…115e at001b = ╱2d╱-╱ // 0x1148 @0x1b
0x112d…115e at001c = ╱20╱…╱ // 0x1149 @0x1c
0x112d…115e at001d = ╱6b╱k╱ // 0x114a @0x1d
0x112d…115e at001e = ╱6f╱o╱ // 0x114b @0x1e
0x112d…115e at001f = ╱6e╱n╱ // 0x114c @0x1f
0x112d…115e at0020 = ╱74╱t╱ // 0x114d @0x20
0x112d…115e at0021 = ╱6f╱o╱ // 0x114e @0x21
0x112d…115e at0022 = ╱74╱t╱ // 0x114f @0x22
0x112d…115e at0023 = ╱79╱y╱ // 0x1150 @0x23
0x112d…115e at0024 = ╱70╱p╱ // 0x1151 @0x24
0x112d…115e at0025 = ╱65╱e╱ // 0x1152 @0x25
0x112d…115e at0026 = ╱20╱…╱ // 0x1153 @0x26
0x112d…115e at0027 = ╱3c╱<╱ // 0x1154 @0x27
0x112d…115e at0028 = ╱20╱…╱ // 0x1155 @0x28
0x112d…115e at0029 = ╱3e╱>╱ // 0x1156 @0x29
0x112d…115e at002a = ╱20╱…╱ // 0x1157 @0x2a
0x112d…115e at002b = ╱27╱'╱ // 0x1158 @0x2b
0x112d…115e at002c = ╱41╱A╱ // 0x1159 @0x2c
0x112d…115e at002d = ╱27╱'╱ // 0x115a @0x2d
0x112d…115e at002e = ╱22╱"╱ // 0x115b @0x2e
0x112d…115e at002f = ╱ee╱)╱ // 0x115c @0x2f
0x112d…115e at0030 = EOL // 0x115d @0x30
0x112d…115e }
0x115e…1164 a752 1770 ENDIF
0x115e…1164 LineComal80 {
0x115e…1164 ptr = 0xa752 // 0x115e @0x0
0x115e…1164 lno = 0x06ea // 0x1160 @0x2
0x115e…1164 at0004 = ╱9c╱ ENDIF ╱ // 0x1162 @0x4
0x115e…1164 at0005 = EOL // 0x1163 @0x5
0x115e…1164 }
0x1164…117a a768 1780 IF TO_FP > 0 AND OK THEN
0x1164…117a LineComal80 {
0x1164…117a ptr = 0xa768 // 0x1164 @0x0
0x1164…117a lno = 0x06f4 // 0x1166 @0x2
0x1164…117a at0004 = ╱9b004b╱ IF ╱ // 0x1168 @0x4
0x1164…117a at0007 = ╱54╱T╱ // 0x116b @0x7
0x1164…117a at0008 = ╱4f╱O╱ // 0x116c @0x8
0x1164…117a at0009 = ╱5f╱_╱ // 0x116d @0x9
0x1164…117a at000a = ╱46╱F╱ // 0x116e @0xa
0x1164…117a at000b = ╱50╱P╱ // 0x116f @0xb
0x1164…117a at000c = ╱e1╱ > ╱ // 0x1170 @0xc
0x1164…117a at000d = ╱30╱0╱ // 0x1171 @0xd
0x1164…117a at000e = ╱f20000╱ // 0x1172 @0xe
0x1164…117a at0011 = ╱d9╱ AND ╱ // 0x1175 @0x11
0x1164…117a at0012 = ╱4f╱O╱ // 0x1176 @0x12
0x1164…117a at0013 = ╱4b╱K╱ // 0x1177 @0x13
0x1164…117a at0014 = ╱b5╱ THEN ╱ // 0x1178 @0x14
0x1164…117a at0015 = EOL // 0x1179 @0x15
0x1164…117a }
0x117a…11ad a79b 1790 EXEC FEJL("Der er påbegyndt bogføring på kontoen")
0x117a…11ad LineComal80 {
0x117a…11ad ptr = 0xa79b // 0x117a @0x0
0x117a…11ad lno = 0x06fe // 0x117c @0x2
0x117a…11ad at0004 = ╱9d╱ EXEC ╱ // 0x117e @0x4
0x117a…11ad at0005 = ╱46╱F╱ // 0x117f @0x5
0x117a…11ad at0006 = ╱45╱E╱ // 0x1180 @0x6
0x117a…11ad at0007 = ╱4a╱J╱ // 0x1181 @0x7
0x117a…11ad at0008 = ╱4c╱L╱ // 0x1182 @0x8
0x117a…11ad at0009 = ╱ed╱(╱ // 0x1183 @0x9
0x117a…11ad at000a = ╱22╱"╱ // 0x1184 @0xa
0x117a…11ad at000b = ╱44╱D╱ // 0x1185 @0xb
0x117a…11ad at000c = ╱65╱e╱ // 0x1186 @0xc
0x117a…11ad at000d = ╱72╱r╱ // 0x1187 @0xd
0x117a…11ad at000e = ╱20╱…╱ // 0x1188 @0xe
0x117a…11ad at000f = ╱65╱e╱ // 0x1189 @0xf
0x117a…11ad at0010 = ╱72╱r╱ // 0x118a @0x10
0x117a…11ad at0011 = ╱20╱…╱ // 0x118b @0x11
0x117a…11ad at0012 = ╱70╱p╱ // 0x118c @0x12
0x117a…11ad at0013 = ╱7d╱å╱ // 0x118d @0x13
0x117a…11ad at0014 = ╱62╱b╱ // 0x118e @0x14
0x117a…11ad at0015 = ╱65╱e╱ // 0x118f @0x15
0x117a…11ad at0016 = ╱67╱g╱ // 0x1190 @0x16
0x117a…11ad at0017 = ╱79╱y╱ // 0x1191 @0x17
0x117a…11ad at0018 = ╱6e╱n╱ // 0x1192 @0x18
0x117a…11ad at0019 = ╱64╱d╱ // 0x1193 @0x19
0x117a…11ad at001a = ╱74╱t╱ // 0x1194 @0x1a
0x117a…11ad at001b = ╱20╱…╱ // 0x1195 @0x1b
0x117a…11ad at001c = ╱62╱b╱ // 0x1196 @0x1c
0x117a…11ad at001d = ╱6f╱o╱ // 0x1197 @0x1d
0x117a…11ad at001e = ╱67╱g╱ // 0x1198 @0x1e
0x117a…11ad at001f = ╱66╱f╱ // 0x1199 @0x1f
0x117a…11ad at0020 = ╱7c╱ø╱ // 0x119a @0x20
0x117a…11ad at0021 = ╱72╱r╱ // 0x119b @0x21
0x117a…11ad at0022 = ╱69╱i╱ // 0x119c @0x22
0x117a…11ad at0023 = ╱6e╱n╱ // 0x119d @0x23
0x117a…11ad at0024 = ╱67╱g╱ // 0x119e @0x24
0x117a…11ad at0025 = ╱20╱…╱ // 0x119f @0x25
0x117a…11ad at0026 = ╱70╱p╱ // 0x11a0 @0x26
0x117a…11ad at0027 = ╱7d╱å╱ // 0x11a1 @0x27
0x117a…11ad at0028 = ╱20╱…╱ // 0x11a2 @0x28
0x117a…11ad at0029 = ╱6b╱k╱ // 0x11a3 @0x29
0x117a…11ad at002a = ╱6f╱o╱ // 0x11a4 @0x2a
0x117a…11ad at002b = ╱6e╱n╱ // 0x11a5 @0x2b
0x117a…11ad at002c = ╱74╱t╱ // 0x11a6 @0x2c
0x117a…11ad at002d = ╱6f╱o╱ // 0x11a7 @0x2d
0x117a…11ad at002e = ╱65╱e╱ // 0x11a8 @0x2e
0x117a…11ad at002f = ╱6e╱n╱ // 0x11a9 @0x2f
0x117a…11ad at0030 = ╱22╱"╱ // 0x11aa @0x30
0x117a…11ad at0031 = ╱ee╱)╱ // 0x11ab @0x31
0x117a…11ad at0032 = EOL // 0x11ac @0x32
0x117a…11ad }
0x11ad…11b3 a7a1 1800 ENDIF
0x11ad…11b3 LineComal80 {
0x11ad…11b3 ptr = 0xa7a1 // 0x11ad @0x0
0x11ad…11b3 lno = 0x0708 // 0x11af @0x2
0x11ad…11b3 at0004 = ╱9c╱ ENDIF ╱ // 0x11b1 @0x4
0x11ad…11b3 at0005 = EOL // 0x11b2 @0x5
0x11ad…11b3 }
0x11b3…11bb a7a9 1810 UNTIL OK
0x11b3…11bb LineComal80 {
0x11b3…11bb ptr = 0xa7a9 // 0x11b3 @0x0
0x11b3…11bb lno = 0x0712 // 0x11b5 @0x2
0x11b3…11bb at0004 = ╱98╱ UNTIL ╱ // 0x11b7 @0x4
0x11b3…11bb at0005 = ╱4f╱O╱ // 0x11b8 @0x5
0x11b3…11bb at0006 = ╱4b╱K╱ // 0x11b9 @0x6
0x11b3…11bb at0007 = EOL // 0x11ba @0x7
0x11b3…11bb }
0x11bb…1200 a815 1820 PRINT "<C1711>2. Kontonavn: " ; KTO_NAVN$ ; SPC$(1 : 40 - ╱cb╱ (KTO_NAVN$))
0x11bb…1200 LineComal80 {
0x11bb…1200 ptr = 0xa815 // 0x11bb @0x0
0x11bb…1200 lno = 0x071c // 0x11bd @0x2
0x11bb…1200 at0004 = ╱92╱ PRINT ╱ // 0x11bf @0x4
0x11bb…1200 at0005 = ╱22╱"╱ // 0x11c0 @0x5
0x11bb…1200 at0006 = ╱3c╱<╱ // 0x11c1 @0x6
0x11bb…1200 at0007 = ╱43╱C╱ // 0x11c2 @0x7
0x11bb…1200 at0008 = ╱31╱1╱ // 0x11c3 @0x8
0x11bb…1200 at0009 = ╱37╱7╱ // 0x11c4 @0x9
0x11bb…1200 at000a = ╱31╱1╱ // 0x11c5 @0xa
0x11bb…1200 at000b = ╱31╱1╱ // 0x11c6 @0xb
0x11bb…1200 at000c = ╱3e╱>╱ // 0x11c7 @0xc
0x11bb…1200 at000d = ╱32╱2╱ // 0x11c8 @0xd
0x11bb…1200 at000e = ╱2e╱.╱ // 0x11c9 @0xe
0x11bb…1200 at000f = ╱20╱…╱ // 0x11ca @0xf
0x11bb…1200 at0010 = ╱4b╱K╱ // 0x11cb @0x10
0x11bb…1200 at0011 = ╱6f╱o╱ // 0x11cc @0x11
0x11bb…1200 at0012 = ╱6e╱n╱ // 0x11cd @0x12
0x11bb…1200 at0013 = ╱74╱t╱ // 0x11ce @0x13
0x11bb…1200 at0014 = ╱6f╱o╱ // 0x11cf @0x14
0x11bb…1200 at0015 = ╱6e╱n╱ // 0x11d0 @0x15
0x11bb…1200 at0016 = ╱61╱a╱ // 0x11d1 @0x16
0x11bb…1200 at0017 = ╱76╱v╱ // 0x11d2 @0x17
0x11bb…1200 at0018 = ╱6e╱n╱ // 0x11d3 @0x18
0x11bb…1200 at0019 = ╱3a╱:╱ // 0x11d4 @0x19
0x11bb…1200 at001a = ╱20╱…╱ // 0x11d5 @0x1a
0x11bb…1200 at001b = ╱22╱"╱ // 0x11d6 @0x1b
0x11bb…1200 at001c = ╱ea╱ ; ╱ // 0x11d7 @0x1c
0x11bb…1200 at001d = ╱4b╱K╱ // 0x11d8 @0x1d
0x11bb…1200 at001e = ╱54╱T╱ // 0x11d9 @0x1e
0x11bb…1200 at001f = ╱4f╱O╱ // 0x11da @0x1f
0x11bb…1200 at0020 = ╱5f╱_╱ // 0x11db @0x20
0x11bb…1200 at0021 = ╱4e╱N╱ // 0x11dc @0x21
0x11bb…1200 at0022 = ╱41╱A╱ // 0x11dd @0x22
0x11bb…1200 at0023 = ╱56╱V╱ // 0x11de @0x23
0x11bb…1200 at0024 = ╱4e╱N╱ // 0x11df @0x24
0x11bb…1200 at0025 = ╱ef╱$╱ // 0x11e0 @0x25
0x11bb…1200 at0026 = ╱ea╱ ; ╱ // 0x11e1 @0x26
0x11bb…1200 at0027 = ╱53╱S╱ // 0x11e2 @0x27
0x11bb…1200 at0028 = ╱50╱P╱ // 0x11e3 @0x28
0x11bb…1200 at0029 = ╱43╱C╱ // 0x11e4 @0x29
0x11bb…1200 at002a = ╱ef╱$╱ // 0x11e5 @0x2a
0x11bb…1200 at002b = ╱ed╱(╱ // 0x11e6 @0x2b
0x11bb…1200 at002c = ╱31╱1╱ // 0x11e7 @0x2c
0x11bb…1200 at002d = ╱f20100╱ // 0x11e8 @0x2d
0x11bb…1200 at0030 = ╱f1╱ : ╱ // 0x11eb @0x30
0x11bb…1200 at0031 = ╱34╱4╱ // 0x11ec @0x31
0x11bb…1200 at0032 = ╱30╱0╱ // 0x11ed @0x32
0x11bb…1200 at0033 = ╱f22800╱ // 0x11ee @0x33
0x11bb…1200 at0036 = ╱e6╱ - ╱ // 0x11f1 @0x36
0x11bb…1200 at0037 = ╱cb╱ // 0x11f2 @0x37
0x11bb…1200 at0038 = ╱ed╱(╱ // 0x11f3 @0x38
0x11bb…1200 at0039 = ╱4b╱K╱ // 0x11f4 @0x39
0x11bb…1200 at003a = ╱54╱T╱ // 0x11f5 @0x3a
0x11bb…1200 at003b = ╱4f╱O╱ // 0x11f6 @0x3b
0x11bb…1200 at003c = ╱5f╱_╱ // 0x11f7 @0x3c
0x11bb…1200 at003d = ╱4e╱N╱ // 0x11f8 @0x3d
0x11bb…1200 at003e = ╱41╱A╱ // 0x11f9 @0x3e
0x11bb…1200 at003f = ╱56╱V╱ // 0x11fa @0x3f
0x11bb…1200 at0040 = ╱4e╱N╱ // 0x11fb @0x40
0x11bb…1200 at0041 = ╱ef╱$╱ // 0x11fc @0x41
0x11bb…1200 at0042 = ╱ee╱)╱ // 0x11fd @0x42
0x11bb…1200 at0043 = ╱ee╱)╱ // 0x11fe @0x43
0x11bb…1200 at0044 = EOL // 0x11ff @0x44
0x11bb…1200 }
0x1200…1227 a815 1830 PRINT "<C1712>3. Kontotype: " ; KTO_TYPE$
0x1200…1227 LineComal80 {
0x1200…1227 ptr = 0xa815 // 0x1200 @0x0
0x1200…1227 lno = 0x0726 // 0x1202 @0x2
0x1200…1227 at0004 = ╱92╱ PRINT ╱ // 0x1204 @0x4
0x1200…1227 at0005 = ╱22╱"╱ // 0x1205 @0x5
0x1200…1227 at0006 = ╱3c╱<╱ // 0x1206 @0x6
0x1200…1227 at0007 = ╱43╱C╱ // 0x1207 @0x7
0x1200…1227 at0008 = ╱31╱1╱ // 0x1208 @0x8
0x1200…1227 at0009 = ╱37╱7╱ // 0x1209 @0x9
0x1200…1227 at000a = ╱31╱1╱ // 0x120a @0xa
0x1200…1227 at000b = ╱32╱2╱ // 0x120b @0xb
0x1200…1227 at000c = ╱3e╱>╱ // 0x120c @0xc
0x1200…1227 at000d = ╱33╱3╱ // 0x120d @0xd
0x1200…1227 at000e = ╱2e╱.╱ // 0x120e @0xe
0x1200…1227 at000f = ╱20╱…╱ // 0x120f @0xf
0x1200…1227 at0010 = ╱4b╱K╱ // 0x1210 @0x10
0x1200…1227 at0011 = ╱6f╱o╱ // 0x1211 @0x11
0x1200…1227 at0012 = ╱6e╱n╱ // 0x1212 @0x12
0x1200…1227 at0013 = ╱74╱t╱ // 0x1213 @0x13
0x1200…1227 at0014 = ╱6f╱o╱ // 0x1214 @0x14
0x1200…1227 at0015 = ╱74╱t╱ // 0x1215 @0x15
0x1200…1227 at0016 = ╱79╱y╱ // 0x1216 @0x16
0x1200…1227 at0017 = ╱70╱p╱ // 0x1217 @0x17
0x1200…1227 at0018 = ╱65╱e╱ // 0x1218 @0x18
0x1200…1227 at0019 = ╱3a╱:╱ // 0x1219 @0x19
0x1200…1227 at001a = ╱20╱…╱ // 0x121a @0x1a
0x1200…1227 at001b = ╱22╱"╱ // 0x121b @0x1b
0x1200…1227 at001c = ╱ea╱ ; ╱ // 0x121c @0x1c
0x1200…1227 at001d = ╱4b╱K╱ // 0x121d @0x1d
0x1200…1227 at001e = ╱54╱T╱ // 0x121e @0x1e
0x1200…1227 at001f = ╱4f╱O╱ // 0x121f @0x1f
0x1200…1227 at0020 = ╱5f╱_╱ // 0x1220 @0x20
0x1200…1227 at0021 = ╱54╱T╱ // 0x1221 @0x21
0x1200…1227 at0022 = ╱59╱Y╱ // 0x1222 @0x22
0x1200…1227 at0023 = ╱50╱P╱ // 0x1223 @0x23
0x1200…1227 at0024 = ╱45╱E╱ // 0x1224 @0x24
0x1200…1227 at0025 = ╱ef╱$╱ // 0x1225 @0x25
0x1200…1227 at0026 = EOL // 0x1226 @0x26
0x1200…1227 }
0x1227…1237 a825 1840 ENDPROC FIND_KONTO
0x1227…1237 LineComal80 {
0x1227…1237 ptr = 0xa825 // 0x1227 @0x0
0x1227…1237 lno = 0x0730 // 0x1229 @0x2
0x1227…1237 at0004 = ╱9f╱ ENDPROC ╱ // 0x122b @0x4
0x1227…1237 at0005 = ╱46╱F╱ // 0x122c @0x5
0x1227…1237 at0006 = ╱49╱I╱ // 0x122d @0x6
0x1227…1237 at0007 = ╱4e╱N╱ // 0x122e @0x7
0x1227…1237 at0008 = ╱44╱D╱ // 0x122f @0x8
0x1227…1237 at0009 = ╱5f╱_╱ // 0x1230 @0x9
0x1227…1237 at000a = ╱4b╱K╱ // 0x1231 @0xa
0x1227…1237 at000b = ╱4f╱O╱ // 0x1232 @0xb
0x1227…1237 at000c = ╱4e╱N╱ // 0x1233 @0xc
0x1227…1237 at000d = ╱54╱T╱ // 0x1234 @0xd
0x1227…1237 at000e = ╱4f╱O╱ // 0x1235 @0xe
0x1227…1237 at000f = EOL // 0x1236 @0xf
0x1227…1237 }
0x1237…123c a82a 1850
0x1237…123c LineComal80 {
0x1237…123c ptr = 0xa82a // 0x1237 @0x0
0x1237…123c lno = 0x073a // 0x1239 @0x2
0x1237…123c at0004 = EOL // 0x123b @0x4
0x1237…123c }
0x123c…1251 a83f 1860 PROC SKRIV_KONTOOPL
0x123c…1251 LineComal80 {
0x123c…1251 ptr = 0xa83f // 0x123c @0x0
0x123c…1251 lno = 0x0744 // 0x123e @0x2
0x123c…1251 at0004 = ╱9e00╱ PROC ╱ // 0x1240 @0x4
0x123c…1251 at0006 = ╱53╱S╱ // 0x1242 @0x6
0x123c…1251 at0007 = ╱4b╱K╱ // 0x1243 @0x7
0x123c…1251 at0008 = ╱52╱R╱ // 0x1244 @0x8
0x123c…1251 at0009 = ╱49╱I╱ // 0x1245 @0x9
0x123c…1251 at000a = ╱56╱V╱ // 0x1246 @0xa
0x123c…1251 at000b = ╱5f╱_╱ // 0x1247 @0xb
0x123c…1251 at000c = ╱4b╱K╱ // 0x1248 @0xc
0x123c…1251 at000d = ╱4f╱O╱ // 0x1249 @0xd
0x123c…1251 at000e = ╱4e╱N╱ // 0x124a @0xe
0x123c…1251 at000f = ╱54╱T╱ // 0x124b @0xf
0x123c…1251 at0010 = ╱4f╱O╱ // 0x124c @0x10
0x123c…1251 at0011 = ╱4f╱O╱ // 0x124d @0x11
0x123c…1251 at0012 = ╱50╱P╱ // 0x124e @0x12
0x123c…1251 at0013 = ╱4c╱L╱ // 0x124f @0x13
0x123c…1251 at0014 = EOL // 0x1250 @0x14
0x123c…1251 }
0x1251…126c a85a 1870 IF OPRET THEN EXEC FIND_IDXPLADS
0x1251…126c LineComal80 {
0x1251…126c ptr = 0xa85a // 0x1251 @0x0
0x1251…126c lno = 0x074e // 0x1253 @0x2
0x1251…126c at0004 = ╱8200╱ IF ╱ // 0x1255 @0x4
0x1251…126c at0006 = ╱4f╱O╱ // 0x1257 @0x6
0x1251…126c at0007 = ╱50╱P╱ // 0x1258 @0x7
0x1251…126c at0008 = ╱52╱R╱ // 0x1259 @0x8
0x1251…126c at0009 = ╱45╱E╱ // 0x125a @0x9
0x1251…126c at000a = ╱54╱T╱ // 0x125b @0xa
0x1251…126c at000b = ╱b5╱ THEN ╱ // 0x125c @0xb
0x1251…126c at000c = ╱9d╱ EXEC ╱ // 0x125d @0xc
0x1251…126c at000d = ╱46╱F╱ // 0x125e @0xd
0x1251…126c at000e = ╱49╱I╱ // 0x125f @0xe
0x1251…126c at000f = ╱4e╱N╱ // 0x1260 @0xf
0x1251…126c at0010 = ╱44╱D╱ // 0x1261 @0x10
0x1251…126c at0011 = ╱5f╱_╱ // 0x1262 @0x11
0x1251…126c at0012 = ╱49╱I╱ // 0x1263 @0x12
0x1251…126c at0013 = ╱44╱D╱ // 0x1264 @0x13
0x1251…126c at0014 = ╱58╱X╱ // 0x1265 @0x14
0x1251…126c at0015 = ╱50╱P╱ // 0x1266 @0x15
0x1251…126c at0016 = ╱4c╱L╱ // 0x1267 @0x16
0x1251…126c at0017 = ╱41╱A╱ // 0x1268 @0x17
0x1251…126c at0018 = ╱44╱D╱ // 0x1269 @0x18
0x1251…126c at0019 = ╱53╱S╱ // 0x126a @0x19
0x1251…126c at001a = EOL // 0x126b @0x1a
0x1251…126c }
0x126c…1287 a875 1880 LET KTO_TYPE$ := A_KTO_TYPE$
0x126c…1287 LineComal80 {
0x126c…1287 ptr = 0xa875 // 0x126c @0x0
0x126c…1287 lno = 0x0758 // 0x126e @0x2
0x126c…1287 at0004 = ╱86╱ LET ╱ // 0x1270 @0x4
0x126c…1287 at0005 = ╱4b╱K╱ // 0x1271 @0x5
0x126c…1287 at0006 = ╱54╱T╱ // 0x1272 @0x6
0x126c…1287 at0007 = ╱4f╱O╱ // 0x1273 @0x7
0x126c…1287 at0008 = ╱5f╱_╱ // 0x1274 @0x8
0x126c…1287 at0009 = ╱54╱T╱ // 0x1275 @0x9
0x126c…1287 at000a = ╱59╱Y╱ // 0x1276 @0xa
0x126c…1287 at000b = ╱50╱P╱ // 0x1277 @0xb
0x126c…1287 at000c = ╱45╱E╱ // 0x1278 @0xc
0x126c…1287 at000d = ╱ef╱$╱ // 0x1279 @0xd
0x126c…1287 at000e = ╱f0╱ := ╱ // 0x127a @0xe
0x126c…1287 at000f = ╱41╱A╱ // 0x127b @0xf
0x126c…1287 at0010 = ╱5f╱_╱ // 0x127c @0x10
0x126c…1287 at0011 = ╱4b╱K╱ // 0x127d @0x11
0x126c…1287 at0012 = ╱54╱T╱ // 0x127e @0x12
0x126c…1287 at0013 = ╱4f╱O╱ // 0x127f @0x13
0x126c…1287 at0014 = ╱5f╱_╱ // 0x1280 @0x14
0x126c…1287 at0015 = ╱54╱T╱ // 0x1281 @0x15
0x126c…1287 at0016 = ╱59╱Y╱ // 0x1282 @0x16
0x126c…1287 at0017 = ╱50╱P╱ // 0x1283 @0x17
0x126c…1287 at0018 = ╱45╱E╱ // 0x1284 @0x18
0x126c…1287 at0019 = ╱ef╱$╱ // 0x1285 @0x19
0x126c…1287 at001a = EOL // 0x1286 @0x1a
0x126c…1287 }
0x1287…129f a88d 1890 EXEC SKRIV_KONTO(RECNR)
0x1287…129f LineComal80 {
0x1287…129f ptr = 0xa88d // 0x1287 @0x0
0x1287…129f lno = 0x0762 // 0x1289 @0x2
0x1287…129f at0004 = ╱9d╱ EXEC ╱ // 0x128b @0x4
0x1287…129f at0005 = ╱53╱S╱ // 0x128c @0x5
0x1287…129f at0006 = ╱4b╱K╱ // 0x128d @0x6
0x1287…129f at0007 = ╱52╱R╱ // 0x128e @0x7
0x1287…129f at0008 = ╱49╱I╱ // 0x128f @0x8
0x1287…129f at0009 = ╱56╱V╱ // 0x1290 @0x9
0x1287…129f at000a = ╱5f╱_╱ // 0x1291 @0xa
0x1287…129f at000b = ╱4b╱K╱ // 0x1292 @0xb
0x1287…129f at000c = ╱4f╱O╱ // 0x1293 @0xc
0x1287…129f at000d = ╱4e╱N╱ // 0x1294 @0xd
0x1287…129f at000e = ╱54╱T╱ // 0x1295 @0xe
0x1287…129f at000f = ╱4f╱O╱ // 0x1296 @0xf
0x1287…129f at0010 = ╱ed╱(╱ // 0x1297 @0x10
0x1287…129f at0011 = ╱52╱R╱ // 0x1298 @0x11
0x1287…129f at0012 = ╱45╱E╱ // 0x1299 @0x12
0x1287…129f at0013 = ╱43╱C╱ // 0x129a @0x13
0x1287…129f at0014 = ╱4e╱N╱ // 0x129b @0x14
0x1287…129f at0015 = ╱52╱R╱ // 0x129c @0x15
0x1287…129f at0016 = ╱ee╱)╱ // 0x129d @0x16
0x1287…129f at0017 = EOL // 0x129e @0x17
0x1287…129f }
0x129f…12b3 a8a1 1900 ENDPROC SKRIV_KONTOOPL
0x129f…12b3 LineComal80 {
0x129f…12b3 ptr = 0xa8a1 // 0x129f @0x0
0x129f…12b3 lno = 0x076c // 0x12a1 @0x2
0x129f…12b3 at0004 = ╱9f╱ ENDPROC ╱ // 0x12a3 @0x4
0x129f…12b3 at0005 = ╱53╱S╱ // 0x12a4 @0x5
0x129f…12b3 at0006 = ╱4b╱K╱ // 0x12a5 @0x6
0x129f…12b3 at0007 = ╱52╱R╱ // 0x12a6 @0x7
0x129f…12b3 at0008 = ╱49╱I╱ // 0x12a7 @0x8
0x129f…12b3 at0009 = ╱56╱V╱ // 0x12a8 @0x9
0x129f…12b3 at000a = ╱5f╱_╱ // 0x12a9 @0xa
0x129f…12b3 at000b = ╱4b╱K╱ // 0x12aa @0xb
0x129f…12b3 at000c = ╱4f╱O╱ // 0x12ab @0xc
0x129f…12b3 at000d = ╱4e╱N╱ // 0x12ac @0xd
0x129f…12b3 at000e = ╱54╱T╱ // 0x12ad @0xe
0x129f…12b3 at000f = ╱4f╱O╱ // 0x12ae @0xf
0x129f…12b3 at0010 = ╱4f╱O╱ // 0x12af @0x10
0x129f…12b3 at0011 = ╱50╱P╱ // 0x12b0 @0x11
0x129f…12b3 at0012 = ╱4c╱L╱ // 0x12b1 @0x12
0x129f…12b3 at0013 = EOL // 0x12b2 @0x13
0x129f…12b3 }
0x12b3…12b8 a8a6 1910
0x12b3…12b8 LineComal80 {
0x12b3…12b8 ptr = 0xa8a6 // 0x12b3 @0x0
0x12b3…12b8 lno = 0x0776 // 0x12b5 @0x2
0x12b3…12b8 at0004 = EOL // 0x12b7 @0x4
0x12b3…12b8 }
0x12b8…12bd a8ab 1920
0x12b8…12bd LineComal80 {
0x12b8…12bd ptr = 0xa8ab // 0x12b8 @0x0
0x12b8…12bd lno = 0x0780 // 0x12ba @0x2
0x12b8…12bd at0004 = EOL // 0x12bc @0x4
0x12b8…12bd }
0x12bd…12d0 a8be 1930 PROC LÆS_KONTO(P)
0x12bd…12d0 LineComal80 {
0x12bd…12d0 ptr = 0xa8be // 0x12bd @0x0
0x12bd…12d0 lno = 0x078a // 0x12bf @0x2
0x12bd…12d0 at0004 = ╱9e00╱ PROC ╱ // 0x12c1 @0x4
0x12bd…12d0 at0006 = ╱4c╱L╱ // 0x12c3 @0x6
0x12bd…12d0 at0007 = ╱5b╱Æ╱ // 0x12c4 @0x7
0x12bd…12d0 at0008 = ╱53╱S╱ // 0x12c5 @0x8
0x12bd…12d0 at0009 = ╱5f╱_╱ // 0x12c6 @0x9
0x12bd…12d0 at000a = ╱4b╱K╱ // 0x12c7 @0xa
0x12bd…12d0 at000b = ╱4f╱O╱ // 0x12c8 @0xb
0x12bd…12d0 at000c = ╱4e╱N╱ // 0x12c9 @0xc
0x12bd…12d0 at000d = ╱54╱T╱ // 0x12ca @0xd
0x12bd…12d0 at000e = ╱4f╱O╱ // 0x12cb @0xe
0x12bd…12d0 at000f = ╱ed╱(╱ // 0x12cc @0xf
0x12bd…12d0 at0010 = ╱50╱P╱ // 0x12cd @0x10
0x12bd…12d0 at0011 = ╱ee╱)╱ // 0x12ce @0x11
0x12bd…12d0 at0012 = EOL // 0x12cf @0x12
0x12bd…12d0 }
0x12d0…1315 a903 1940 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0x12d0…1315 LineComal80 {
0x12d0…1315 ptr = 0xa903 // 0x12d0 @0x0
0x12d0…1315 lno = 0x0794 // 0x12d2 @0x2
0x12d0…1315 at0004 = ╱a9╱ GET ╱ // 0x12d4 @0x4
0x12d0…1315 at0005 = ╱4b╱K╱ // 0x12d5 @0x5
0x12d0…1315 at0006 = ╱4f╱O╱ // 0x12d6 @0x6
0x12d0…1315 at0007 = ╱4e╱N╱ // 0x12d7 @0x7
0x12d0…1315 at0008 = ╱54╱T╱ // 0x12d8 @0x8
0x12d0…1315 at0009 = ╱4f╱O╱ // 0x12d9 @0x9
0x12d0…1315 at000a = ╱ef╱$╱ // 0x12da @0xa
0x12d0…1315 at000b = ╱ec╱,╱ // 0x12db @0xb
0x12d0…1315 at000c = ╱50╱P╱ // 0x12dc @0xc
0x12d0…1315 at000d = ╱f1╱ : ╱ // 0x12dd @0xd
0x12d0…1315 at000e = ╱4b╱K╱ // 0x12de @0xe
0x12d0…1315 at000f = ╱54╱T╱ // 0x12df @0xf
0x12d0…1315 at0010 = ╱4f╱O╱ // 0x12e0 @0x10
0x12d0…1315 at0011 = ╱5f╱_╱ // 0x12e1 @0x11
0x12d0…1315 at0012 = ╱54╱T╱ // 0x12e2 @0x12
0x12d0…1315 at0013 = ╱59╱Y╱ // 0x12e3 @0x13
0x12d0…1315 at0014 = ╱50╱P╱ // 0x12e4 @0x14
0x12d0…1315 at0015 = ╱45╱E╱ // 0x12e5 @0x15
0x12d0…1315 at0016 = ╱ef╱$╱ // 0x12e6 @0x16
0x12d0…1315 at0017 = ╱ec╱,╱ // 0x12e7 @0x17
0x12d0…1315 at0018 = ╱4b╱K╱ // 0x12e8 @0x18
0x12d0…1315 at0019 = ╱54╱T╱ // 0x12e9 @0x19
0x12d0…1315 at001a = ╱4f╱O╱ // 0x12ea @0x1a
0x12d0…1315 at001b = ╱5f╱_╱ // 0x12eb @0x1b
0x12d0…1315 at001c = ╱4e╱N╱ // 0x12ec @0x1c
0x12d0…1315 at001d = ╱41╱A╱ // 0x12ed @0x1d
0x12d0…1315 at001e = ╱56╱V╱ // 0x12ee @0x1e
0x12d0…1315 at001f = ╱4e╱N╱ // 0x12ef @0x1f
0x12d0…1315 at0020 = ╱ef╱$╱ // 0x12f0 @0x20
0x12d0…1315 at0021 = ╱ec╱,╱ // 0x12f1 @0x21
0x12d0…1315 at0022 = ╱4b╱K╱ // 0x12f2 @0x22
0x12d0…1315 at0023 = ╱54╱T╱ // 0x12f3 @0x23
0x12d0…1315 at0024 = ╱4f╱O╱ // 0x12f4 @0x24
0x12d0…1315 at0025 = ╱5f╱_╱ // 0x12f5 @0x25
0x12d0…1315 at0026 = ╱50╱P╱ // 0x12f6 @0x26
0x12d0…1315 at0027 = ╱52╱R╱ // 0x12f7 @0x27
0x12d0…1315 at0028 = ╱49╱I╱ // 0x12f8 @0x28
0x12d0…1315 at0029 = ╱4d╱M╱ // 0x12f9 @0x29
0x12d0…1315 at002a = ╱4f╱O╱ // 0x12fa @0x2a
0x12d0…1315 at002b = ╱ec╱,╱ // 0x12fb @0x2b
0x12d0…1315 at002c = ╱4b╱K╱ // 0x12fc @0x2c
0x12d0…1315 at002d = ╱54╱T╱ // 0x12fd @0x2d
0x12d0…1315 at002e = ╱4f╱O╱ // 0x12fe @0x2e
0x12d0…1315 at002f = ╱5f╱_╱ // 0x12ff @0x2f
0x12d0…1315 at0030 = ╱55╱U╱ // 0x1300 @0x30
0x12d0…1315 at0031 = ╱4c╱L╱ // 0x1301 @0x31
0x12d0…1315 at0032 = ╱54╱T╱ // 0x1302 @0x32
0x12d0…1315 at0033 = ╱49╱I╱ // 0x1303 @0x33
0x12d0…1315 at0034 = ╱4d╱M╱ // 0x1304 @0x34
0x12d0…1315 at0035 = ╱4f╱O╱ // 0x1305 @0x35
0x12d0…1315 at0036 = ╱ec╱,╱ // 0x1306 @0x36
0x12d0…1315 at0037 = ╱4b╱K╱ // 0x1307 @0x37
0x12d0…1315 at0038 = ╱54╱T╱ // 0x1308 @0x38
0x12d0…1315 at0039 = ╱4f╱O╱ // 0x1309 @0x39
0x12d0…1315 at003a = ╱5f╱_╱ // 0x130a @0x3a
0x12d0…1315 at003b = ╱46╱F╱ // 0x130b @0x3b
0x12d0…1315 at003c = ╱50╱P╱ // 0x130c @0x3c
0x12d0…1315 at003d = ╱ec╱,╱ // 0x130d @0x3d
0x12d0…1315 at003e = ╱4b╱K╱ // 0x130e @0x3e
0x12d0…1315 at003f = ╱54╱T╱ // 0x130f @0x3f
0x12d0…1315 at0040 = ╱4f╱O╱ // 0x1310 @0x40
0x12d0…1315 at0041 = ╱5f╱_╱ // 0x1311 @0x41
0x12d0…1315 at0042 = ╱53╱S╱ // 0x1312 @0x42
0x12d0…1315 at0043 = ╱50╱P╱ // 0x1313 @0x43
0x12d0…1315 at0044 = EOL // 0x1314 @0x44
0x12d0…1315 }
0x1315…1324 a912 1950 ENDPROC LÆS_KONTO
0x1315…1324 LineComal80 {
0x1315…1324 ptr = 0xa912 // 0x1315 @0x0
0x1315…1324 lno = 0x079e // 0x1317 @0x2
0x1315…1324 at0004 = ╱9f╱ ENDPROC ╱ // 0x1319 @0x4
0x1315…1324 at0005 = ╱4c╱L╱ // 0x131a @0x5
0x1315…1324 at0006 = ╱5b╱Æ╱ // 0x131b @0x6
0x1315…1324 at0007 = ╱53╱S╱ // 0x131c @0x7
0x1315…1324 at0008 = ╱5f╱_╱ // 0x131d @0x8
0x1315…1324 at0009 = ╱4b╱K╱ // 0x131e @0x9
0x1315…1324 at000a = ╱4f╱O╱ // 0x131f @0xa
0x1315…1324 at000b = ╱4e╱N╱ // 0x1320 @0xb
0x1315…1324 at000c = ╱54╱T╱ // 0x1321 @0xc
0x1315…1324 at000d = ╱4f╱O╱ // 0x1322 @0xd
0x1315…1324 at000e = EOL // 0x1323 @0xe
0x1315…1324 }
0x1324…1329 a917 1960
0x1324…1329 LineComal80 {
0x1324…1329 ptr = 0xa917 // 0x1324 @0x0
0x1324…1329 lno = 0x07a8 // 0x1326 @0x2
0x1324…1329 at0004 = EOL // 0x1328 @0x4
0x1324…1329 }
0x1329…133e a92c 1970 PROC SKRIV_KONTO(P)
0x1329…133e LineComal80 {
0x1329…133e ptr = 0xa92c // 0x1329 @0x0
0x1329…133e lno = 0x07b2 // 0x132b @0x2
0x1329…133e at0004 = ╱9e00╱ PROC ╱ // 0x132d @0x4
0x1329…133e at0006 = ╱53╱S╱ // 0x132f @0x6
0x1329…133e at0007 = ╱4b╱K╱ // 0x1330 @0x7
0x1329…133e at0008 = ╱52╱R╱ // 0x1331 @0x8
0x1329…133e at0009 = ╱49╱I╱ // 0x1332 @0x9
0x1329…133e at000a = ╱56╱V╱ // 0x1333 @0xa
0x1329…133e at000b = ╱5f╱_╱ // 0x1334 @0xb
0x1329…133e at000c = ╱4b╱K╱ // 0x1335 @0xc
0x1329…133e at000d = ╱4f╱O╱ // 0x1336 @0xd
0x1329…133e at000e = ╱4e╱N╱ // 0x1337 @0xe
0x1329…133e at000f = ╱54╱T╱ // 0x1338 @0xf
0x1329…133e at0010 = ╱4f╱O╱ // 0x1339 @0x10
0x1329…133e at0011 = ╱ed╱(╱ // 0x133a @0x11
0x1329…133e at0012 = ╱50╱P╱ // 0x133b @0x12
0x1329…133e at0013 = ╱ee╱)╱ // 0x133c @0x13
0x1329…133e at0014 = EOL // 0x133d @0x14
0x1329…133e }
0x133e…1383 a971 1980 PUT KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0x133e…1383 LineComal80 {
0x133e…1383 ptr = 0xa971 // 0x133e @0x0
0x133e…1383 lno = 0x07bc // 0x1340 @0x2
0x133e…1383 at0004 = ╱aa╱ PUT ╱ // 0x1342 @0x4
0x133e…1383 at0005 = ╱4b╱K╱ // 0x1343 @0x5
0x133e…1383 at0006 = ╱4f╱O╱ // 0x1344 @0x6
0x133e…1383 at0007 = ╱4e╱N╱ // 0x1345 @0x7
0x133e…1383 at0008 = ╱54╱T╱ // 0x1346 @0x8
0x133e…1383 at0009 = ╱4f╱O╱ // 0x1347 @0x9
0x133e…1383 at000a = ╱ef╱$╱ // 0x1348 @0xa
0x133e…1383 at000b = ╱ec╱,╱ // 0x1349 @0xb
0x133e…1383 at000c = ╱50╱P╱ // 0x134a @0xc
0x133e…1383 at000d = ╱f1╱ : ╱ // 0x134b @0xd
0x133e…1383 at000e = ╱4b╱K╱ // 0x134c @0xe
0x133e…1383 at000f = ╱54╱T╱ // 0x134d @0xf
0x133e…1383 at0010 = ╱4f╱O╱ // 0x134e @0x10
0x133e…1383 at0011 = ╱5f╱_╱ // 0x134f @0x11
0x133e…1383 at0012 = ╱54╱T╱ // 0x1350 @0x12
0x133e…1383 at0013 = ╱59╱Y╱ // 0x1351 @0x13
0x133e…1383 at0014 = ╱50╱P╱ // 0x1352 @0x14
0x133e…1383 at0015 = ╱45╱E╱ // 0x1353 @0x15
0x133e…1383 at0016 = ╱ef╱$╱ // 0x1354 @0x16
0x133e…1383 at0017 = ╱ec╱,╱ // 0x1355 @0x17
0x133e…1383 at0018 = ╱4b╱K╱ // 0x1356 @0x18
0x133e…1383 at0019 = ╱54╱T╱ // 0x1357 @0x19
0x133e…1383 at001a = ╱4f╱O╱ // 0x1358 @0x1a
0x133e…1383 at001b = ╱5f╱_╱ // 0x1359 @0x1b
0x133e…1383 at001c = ╱4e╱N╱ // 0x135a @0x1c
0x133e…1383 at001d = ╱41╱A╱ // 0x135b @0x1d
0x133e…1383 at001e = ╱56╱V╱ // 0x135c @0x1e
0x133e…1383 at001f = ╱4e╱N╱ // 0x135d @0x1f
0x133e…1383 at0020 = ╱ef╱$╱ // 0x135e @0x20
0x133e…1383 at0021 = ╱ec╱,╱ // 0x135f @0x21
0x133e…1383 at0022 = ╱4b╱K╱ // 0x1360 @0x22
0x133e…1383 at0023 = ╱54╱T╱ // 0x1361 @0x23
0x133e…1383 at0024 = ╱4f╱O╱ // 0x1362 @0x24
0x133e…1383 at0025 = ╱5f╱_╱ // 0x1363 @0x25
0x133e…1383 at0026 = ╱50╱P╱ // 0x1364 @0x26
0x133e…1383 at0027 = ╱52╱R╱ // 0x1365 @0x27
0x133e…1383 at0028 = ╱49╱I╱ // 0x1366 @0x28
0x133e…1383 at0029 = ╱4d╱M╱ // 0x1367 @0x29
0x133e…1383 at002a = ╱4f╱O╱ // 0x1368 @0x2a
0x133e…1383 at002b = ╱ec╱,╱ // 0x1369 @0x2b
0x133e…1383 at002c = ╱4b╱K╱ // 0x136a @0x2c
0x133e…1383 at002d = ╱54╱T╱ // 0x136b @0x2d
0x133e…1383 at002e = ╱4f╱O╱ // 0x136c @0x2e
0x133e…1383 at002f = ╱5f╱_╱ // 0x136d @0x2f
0x133e…1383 at0030 = ╱55╱U╱ // 0x136e @0x30
0x133e…1383 at0031 = ╱4c╱L╱ // 0x136f @0x31
0x133e…1383 at0032 = ╱54╱T╱ // 0x1370 @0x32
0x133e…1383 at0033 = ╱49╱I╱ // 0x1371 @0x33
0x133e…1383 at0034 = ╱4d╱M╱ // 0x1372 @0x34
0x133e…1383 at0035 = ╱4f╱O╱ // 0x1373 @0x35
0x133e…1383 at0036 = ╱ec╱,╱ // 0x1374 @0x36
0x133e…1383 at0037 = ╱4b╱K╱ // 0x1375 @0x37
0x133e…1383 at0038 = ╱54╱T╱ // 0x1376 @0x38
0x133e…1383 at0039 = ╱4f╱O╱ // 0x1377 @0x39
0x133e…1383 at003a = ╱5f╱_╱ // 0x1378 @0x3a
0x133e…1383 at003b = ╱46╱F╱ // 0x1379 @0x3b
0x133e…1383 at003c = ╱50╱P╱ // 0x137a @0x3c
0x133e…1383 at003d = ╱ec╱,╱ // 0x137b @0x3d
0x133e…1383 at003e = ╱4b╱K╱ // 0x137c @0x3e
0x133e…1383 at003f = ╱54╱T╱ // 0x137d @0x3f
0x133e…1383 at0040 = ╱4f╱O╱ // 0x137e @0x40
0x133e…1383 at0041 = ╱5f╱_╱ // 0x137f @0x41
0x133e…1383 at0042 = ╱53╱S╱ // 0x1380 @0x42
0x133e…1383 at0043 = ╱50╱P╱ // 0x1381 @0x43
0x133e…1383 at0044 = EOL // 0x1382 @0x44
0x133e…1383 }
0x1383…1394 a982 1990 ENDPROC SKRIV_KONTO
0x1383…1394 LineComal80 {
0x1383…1394 ptr = 0xa982 // 0x1383 @0x0
0x1383…1394 lno = 0x07c6 // 0x1385 @0x2
0x1383…1394 at0004 = ╱9f╱ ENDPROC ╱ // 0x1387 @0x4
0x1383…1394 at0005 = ╱53╱S╱ // 0x1388 @0x5
0x1383…1394 at0006 = ╱4b╱K╱ // 0x1389 @0x6
0x1383…1394 at0007 = ╱52╱R╱ // 0x138a @0x7
0x1383…1394 at0008 = ╱49╱I╱ // 0x138b @0x8
0x1383…1394 at0009 = ╱56╱V╱ // 0x138c @0x9
0x1383…1394 at000a = ╱5f╱_╱ // 0x138d @0xa
0x1383…1394 at000b = ╱4b╱K╱ // 0x138e @0xb
0x1383…1394 at000c = ╱4f╱O╱ // 0x138f @0xc
0x1383…1394 at000d = ╱4e╱N╱ // 0x1390 @0xd
0x1383…1394 at000e = ╱54╱T╱ // 0x1391 @0xe
0x1383…1394 at000f = ╱4f╱O╱ // 0x1392 @0xf
0x1383…1394 at0010 = EOL // 0x1393 @0x10
0x1383…1394 }
0x1394…1399 a987 2000
0x1394…1399 LineComal80 {
0x1394…1399 ptr = 0xa987 // 0x1394 @0x0
0x1394…1399 lno = 0x07d0 // 0x1396 @0x2
0x1394…1399 at0004 = EOL // 0x1398 @0x4
0x1394…1399 }
0x1399…13ae a99c 2010 PROC ST_BGST( REF RST$)
0x1399…13ae LineComal80 {
0x1399…13ae ptr = 0xa99c // 0x1399 @0x0
0x1399…13ae lno = 0x07da // 0x139b @0x2
0x1399…13ae at0004 = ╱9e00╱ PROC ╱ // 0x139d @0x4
0x1399…13ae at0006 = ╱53╱S╱ // 0x139f @0x6
0x1399…13ae at0007 = ╱54╱T╱ // 0x13a0 @0x7
0x1399…13ae at0008 = ╱5f╱_╱ // 0x13a1 @0x8
0x1399…13ae at0009 = ╱42╱B╱ // 0x13a2 @0x9
0x1399…13ae at000a = ╱47╱G╱ // 0x13a3 @0xa
0x1399…13ae at000b = ╱53╱S╱ // 0x13a4 @0xb
0x1399…13ae at000c = ╱54╱T╱ // 0x13a5 @0xc
0x1399…13ae at000d = ╱ed╱(╱ // 0x13a6 @0xd
0x1399…13ae at000e = ╱b6╱ REF ╱ // 0x13a7 @0xe
0x1399…13ae at000f = ╱52╱R╱ // 0x13a8 @0xf
0x1399…13ae at0010 = ╱53╱S╱ // 0x13a9 @0x10
0x1399…13ae at0011 = ╱54╱T╱ // 0x13aa @0x11
0x1399…13ae at0012 = ╱ef╱$╱ // 0x13ab @0x12
0x1399…13ae at0013 = ╱ee╱)╱ // 0x13ac @0x13
0x1399…13ae at0014 = EOL // 0x13ad @0x14
0x1399…13ae }
0x13ae…13c4 a9b2 2020 FOR J := 1 TO (RST$) DO
0x13ae…13c4 LineComal80 {
0x13ae…13c4 ptr = 0xa9b2 // 0x13ae @0x0
0x13ae…13c4 lno = 0x07e4 // 0x13b0 @0x2
0x13ae…13c4 at0004 = ╱8300╱ FOR ╱ // 0x13b2 @0x4
0x13ae…13c4 at0006 = ╱4a╱J╱ // 0x13b4 @0x6
0x13ae…13c4 at0007 = ╱f0╱ := ╱ // 0x13b5 @0x7
0x13ae…13c4 at0008 = ╱31╱1╱ // 0x13b6 @0x8
0x13ae…13c4 at0009 = ╱f20100╱ // 0x13b7 @0x9
0x13ae…13c4 at000c = ╱b7cb╱ TO ╱ // 0x13ba @0xc
0x13ae…13c4 at000e = ╱ed╱(╱ // 0x13bc @0xe
0x13ae…13c4 at000f = ╱52╱R╱ // 0x13bd @0xf
0x13ae…13c4 at0010 = ╱53╱S╱ // 0x13be @0x10
0x13ae…13c4 at0011 = ╱54╱T╱ // 0x13bf @0x11
0x13ae…13c4 at0012 = ╱ef╱$╱ // 0x13c0 @0x12
0x13ae…13c4 at0013 = ╱ee╱)╱ // 0x13c1 @0x13
0x13ae…13c4 at0014 = ╱bb╱ DO ╱ // 0x13c2 @0x14
0x13ae…13c4 at0015 = EOL // 0x13c3 @0x15
0x13ae…13c4 }
0x13c4…13ff a9ed 2030 IF "a" =< RST$(J) AND RST$(J) =< "å" THEN LET RST$(J) := CHR$ ( ╱cc╱ (RST$(J)) - 32)
0x13c4…13ff LineComal80 {
0x13c4…13ff ptr = 0xa9ed // 0x13c4 @0x0
0x13c4…13ff lno = 0x07ee // 0x13c6 @0x2
0x13c4…13ff at0004 = ╱8200╱ IF ╱ // 0x13c8 @0x4
0x13c4…13ff at0006 = ╱22╱"╱ // 0x13ca @0x6
0x13c4…13ff at0007 = ╱61╱a╱ // 0x13cb @0x7
0x13c4…13ff at0008 = ╱22╱"╱ // 0x13cc @0x8
0x13c4…13ff at0009 = ╱e2╱ =< ╱ // 0x13cd @0x9
0x13c4…13ff at000a = ╱52╱R╱ // 0x13ce @0xa
0x13c4…13ff at000b = ╱53╱S╱ // 0x13cf @0xb
0x13c4…13ff at000c = ╱54╱T╱ // 0x13d0 @0xc
0x13c4…13ff at000d = ╱ef╱$╱ // 0x13d1 @0xd
0x13c4…13ff at000e = ╱ed╱(╱ // 0x13d2 @0xe
0x13c4…13ff at000f = ╱4a╱J╱ // 0x13d3 @0xf
0x13c4…13ff at0010 = ╱ee╱)╱ // 0x13d4 @0x10
0x13c4…13ff at0011 = ╱d9╱ AND ╱ // 0x13d5 @0x11
0x13c4…13ff at0012 = ╱52╱R╱ // 0x13d6 @0x12
0x13c4…13ff at0013 = ╱53╱S╱ // 0x13d7 @0x13
0x13c4…13ff at0014 = ╱54╱T╱ // 0x13d8 @0x14
0x13c4…13ff at0015 = ╱ef╱$╱ // 0x13d9 @0x15
0x13c4…13ff at0016 = ╱ed╱(╱ // 0x13da @0x16
0x13c4…13ff at0017 = ╱4a╱J╱ // 0x13db @0x17
0x13c4…13ff at0018 = ╱ee╱)╱ // 0x13dc @0x18
0x13c4…13ff at0019 = ╱e2╱ =< ╱ // 0x13dd @0x19
0x13c4…13ff at001a = ╱22╱"╱ // 0x13de @0x1a
0x13c4…13ff at001b = ╱7d╱å╱ // 0x13df @0x1b
0x13c4…13ff at001c = ╱22╱"╱ // 0x13e0 @0x1c
0x13c4…13ff at001d = ╱b5╱ THEN ╱ // 0x13e1 @0x1d
0x13c4…13ff at001e = ╱86╱ LET ╱ // 0x13e2 @0x1e
0x13c4…13ff at001f = ╱52╱R╱ // 0x13e3 @0x1f
0x13c4…13ff at0020 = ╱53╱S╱ // 0x13e4 @0x20
0x13c4…13ff at0021 = ╱54╱T╱ // 0x13e5 @0x21
0x13c4…13ff at0022 = ╱ef╱$╱ // 0x13e6 @0x22
0x13c4…13ff at0023 = ╱ed╱(╱ // 0x13e7 @0x23
0x13c4…13ff at0024 = ╱4a╱J╱ // 0x13e8 @0x24
0x13c4…13ff at0025 = ╱ee╱)╱ // 0x13e9 @0x25
0x13c4…13ff at0026 = ╱f0╱ := ╱ // 0x13ea @0x26
0x13c4…13ff at0027 = ╱d0╱ CHR$ ╱ // 0x13eb @0x27
0x13c4…13ff at0028 = ╱ed╱(╱ // 0x13ec @0x28
0x13c4…13ff at0029 = ╱cc╱ // 0x13ed @0x29
0x13c4…13ff at002a = ╱ed╱(╱ // 0x13ee @0x2a
0x13c4…13ff at002b = ╱52╱R╱ // 0x13ef @0x2b
0x13c4…13ff at002c = ╱53╱S╱ // 0x13f0 @0x2c
0x13c4…13ff at002d = ╱54╱T╱ // 0x13f1 @0x2d
0x13c4…13ff at002e = ╱ef╱$╱ // 0x13f2 @0x2e
0x13c4…13ff at002f = ╱ed╱(╱ // 0x13f3 @0x2f
0x13c4…13ff at0030 = ╱4a╱J╱ // 0x13f4 @0x30
0x13c4…13ff at0031 = ╱ee╱)╱ // 0x13f5 @0x31
0x13c4…13ff at0032 = ╱ee╱)╱ // 0x13f6 @0x32
0x13c4…13ff at0033 = ╱e6╱ - ╱ // 0x13f7 @0x33
0x13c4…13ff at0034 = ╱33╱3╱ // 0x13f8 @0x34
0x13c4…13ff at0035 = ╱32╱2╱ // 0x13f9 @0x35
0x13c4…13ff at0036 = ╱f22000╱ // 0x13fa @0x36
0x13c4…13ff at0039 = ╱ee╱)╱ // 0x13fd @0x39
0x13c4…13ff at003a = EOL // 0x13fe @0x3a
0x13c4…13ff }
0x13ff…1406 a9f4 2040 NEXT J
0x13ff…1406 LineComal80 {
0x13ff…1406 ptr = 0xa9f4 // 0x13ff @0x0
0x13ff…1406 lno = 0x07f8 // 0x1401 @0x2
0x13ff…1406 at0004 = ╱84╱ NEXT ╱ // 0x1403 @0x4
0x13ff…1406 at0005 = ╱4a╱J╱ // 0x1404 @0x5
0x13ff…1406 at0006 = EOL // 0x1405 @0x6
0x13ff…1406 }
0x1406…1413 aa01 2050 ENDPROC ST_BGST
0x1406…1413 LineComal80 {
0x1406…1413 ptr = 0xaa01 // 0x1406 @0x0
0x1406…1413 lno = 0x0802 // 0x1408 @0x2
0x1406…1413 at0004 = ╱9f╱ ENDPROC ╱ // 0x140a @0x4
0x1406…1413 at0005 = ╱53╱S╱ // 0x140b @0x5
0x1406…1413 at0006 = ╱54╱T╱ // 0x140c @0x6
0x1406…1413 at0007 = ╱5f╱_╱ // 0x140d @0x7
0x1406…1413 at0008 = ╱42╱B╱ // 0x140e @0x8
0x1406…1413 at0009 = ╱47╱G╱ // 0x140f @0x9
0x1406…1413 at000a = ╱53╱S╱ // 0x1410 @0xa
0x1406…1413 at000b = ╱54╱T╱ // 0x1411 @0xb
0x1406…1413 at000c = EOL // 0x1412 @0xc
0x1406…1413 }
0x1413…1418 aa06 2060
0x1413…1418 LineComal80 {
0x1413…1418 ptr = 0xaa06 // 0x1413 @0x0
0x1413…1418 lno = 0x080c // 0x1415 @0x2
0x1413…1418 at0004 = EOL // 0x1417 @0x4
0x1413…1418 }
0x1418…1431 aa1f 2070 PROC TAL_CONTROL( REF RST$)
0x1418…1431 LineComal80 {
0x1418…1431 ptr = 0xaa1f // 0x1418 @0x0
0x1418…1431 lno = 0x0816 // 0x141a @0x2
0x1418…1431 at0004 = ╱9e00╱ PROC ╱ // 0x141c @0x4
0x1418…1431 at0006 = ╱54╱T╱ // 0x141e @0x6
0x1418…1431 at0007 = ╱41╱A╱ // 0x141f @0x7
0x1418…1431 at0008 = ╱4c╱L╱ // 0x1420 @0x8
0x1418…1431 at0009 = ╱5f╱_╱ // 0x1421 @0x9
0x1418…1431 at000a = ╱43╱C╱ // 0x1422 @0xa
0x1418…1431 at000b = ╱4f╱O╱ // 0x1423 @0xb
0x1418…1431 at000c = ╱4e╱N╱ // 0x1424 @0xc
0x1418…1431 at000d = ╱54╱T╱ // 0x1425 @0xd
0x1418…1431 at000e = ╱52╱R╱ // 0x1426 @0xe
0x1418…1431 at000f = ╱4f╱O╱ // 0x1427 @0xf
0x1418…1431 at0010 = ╱4c╱L╱ // 0x1428 @0x10
0x1418…1431 at0011 = ╱ed╱(╱ // 0x1429 @0x11
0x1418…1431 at0012 = ╱b6╱ REF ╱ // 0x142a @0x12
0x1418…1431 at0013 = ╱52╱R╱ // 0x142b @0x13
0x1418…1431 at0014 = ╱53╱S╱ // 0x142c @0x14
0x1418…1431 at0015 = ╱54╱T╱ // 0x142d @0x15
0x1418…1431 at0016 = ╱ef╱$╱ // 0x142e @0x16
0x1418…1431 at0017 = ╱ee╱)╱ // 0x142f @0x17
0x1418…1431 at0018 = EOL // 0x1430 @0x18
0x1418…1431 }
0x1431…144c aa3a 2080 LET J := 0 ; OK := TRUE ; K := 0
0x1431…144c LineComal80 {
0x1431…144c ptr = 0xaa3a // 0x1431 @0x0
0x1431…144c lno = 0x0820 // 0x1433 @0x2
0x1431…144c at0004 = ╱86╱ LET ╱ // 0x1435 @0x4
0x1431…144c at0005 = ╱4a╱J╱ // 0x1436 @0x5
0x1431…144c at0006 = ╱f0╱ := ╱ // 0x1437 @0x6
0x1431…144c at0007 = ╱30╱0╱ // 0x1438 @0x7
0x1431…144c at0008 = ╱f20000╱ // 0x1439 @0x8
0x1431…144c at000b = ╱ea╱ ; ╱ // 0x143c @0xb
0x1431…144c at000c = ╱4f╱O╱ // 0x143d @0xc
0x1431…144c at000d = ╱4b╱K╱ // 0x143e @0xd
0x1431…144c at000e = ╱f0╱ := ╱ // 0x143f @0xe
0x1431…144c at000f = ╱54╱T╱ // 0x1440 @0xf
0x1431…144c at0010 = ╱52╱R╱ // 0x1441 @0x10
0x1431…144c at0011 = ╱55╱U╱ // 0x1442 @0x11
0x1431…144c at0012 = ╱45╱E╱ // 0x1443 @0x12
0x1431…144c at0013 = ╱ea╱ ; ╱ // 0x1444 @0x13
0x1431…144c at0014 = ╱4b╱K╱ // 0x1445 @0x14
0x1431…144c at0015 = ╱f0╱ := ╱ // 0x1446 @0x15
0x1431…144c at0016 = ╱30╱0╱ // 0x1447 @0x16
0x1431…144c at0017 = ╱f20000╱ // 0x1448 @0x17
0x1431…144c at001a = EOL // 0x144b @0x1a
0x1431…144c }
0x144c…1462 aa50 2090 FOR I := 1 TO (RST$) DO
0x144c…1462 LineComal80 {
0x144c…1462 ptr = 0xaa50 // 0x144c @0x0
0x144c…1462 lno = 0x082a // 0x144e @0x2
0x144c…1462 at0004 = ╱8300╱ FOR ╱ // 0x1450 @0x4
0x144c…1462 at0006 = ╱49╱I╱ // 0x1452 @0x6
0x144c…1462 at0007 = ╱f0╱ := ╱ // 0x1453 @0x7
0x144c…1462 at0008 = ╱31╱1╱ // 0x1454 @0x8
0x144c…1462 at0009 = ╱f20100╱ // 0x1455 @0x9
0x144c…1462 at000c = ╱b7cb╱ TO ╱ // 0x1458 @0xc
0x144c…1462 at000e = ╱ed╱(╱ // 0x145a @0xe
0x144c…1462 at000f = ╱52╱R╱ // 0x145b @0xf
0x144c…1462 at0010 = ╱53╱S╱ // 0x145c @0x10
0x144c…1462 at0011 = ╱54╱T╱ // 0x145d @0x11
0x144c…1462 at0012 = ╱ef╱$╱ // 0x145e @0x12
0x144c…1462 at0013 = ╱ee╱)╱ // 0x145f @0x13
0x144c…1462 at0014 = ╱bb╱ DO ╱ // 0x1460 @0x14
0x144c…1462 at0015 = EOL // 0x1461 @0x15
0x144c…1462 }
0x1462…1497 aa85 2100 IF RST$(I) IN "0123456789" THEN LET J := J + 1 ; RST$(J) := RST$(I)
0x1462…1497 LineComal80 {
0x1462…1497 ptr = 0xaa85 // 0x1462 @0x0
0x1462…1497 lno = 0x0834 // 0x1464 @0x2
0x1462…1497 at0004 = ╱8200╱ IF ╱ // 0x1466 @0x4
0x1462…1497 at0006 = ╱52╱R╱ // 0x1468 @0x6
0x1462…1497 at0007 = ╱53╱S╱ // 0x1469 @0x7
0x1462…1497 at0008 = ╱54╱T╱ // 0x146a @0x8
0x1462…1497 at0009 = ╱ef╱$╱ // 0x146b @0x9
0x1462…1497 at000a = ╱ed╱(╱ // 0x146c @0xa
0x1462…1497 at000b = ╱49╱I╱ // 0x146d @0xb
0x1462…1497 at000c = ╱ee╱)╱ // 0x146e @0xc
0x1462…1497 at000d = ╱dc╱ IN ╱ // 0x146f @0xd
0x1462…1497 at000e = ╱22╱"╱ // 0x1470 @0xe
0x1462…1497 at000f = ╱30╱0╱ // 0x1471 @0xf
0x1462…1497 at0010 = ╱31╱1╱ // 0x1472 @0x10
0x1462…1497 at0011 = ╱32╱2╱ // 0x1473 @0x11
0x1462…1497 at0012 = ╱33╱3╱ // 0x1474 @0x12
0x1462…1497 at0013 = ╱34╱4╱ // 0x1475 @0x13
0x1462…1497 at0014 = ╱35╱5╱ // 0x1476 @0x14
0x1462…1497 at0015 = ╱36╱6╱ // 0x1477 @0x15
0x1462…1497 at0016 = ╱37╱7╱ // 0x1478 @0x16
0x1462…1497 at0017 = ╱38╱8╱ // 0x1479 @0x17
0x1462…1497 at0018 = ╱39╱9╱ // 0x147a @0x18
0x1462…1497 at0019 = ╱22╱"╱ // 0x147b @0x19
0x1462…1497 at001a = ╱b5╱ THEN ╱ // 0x147c @0x1a
0x1462…1497 at001b = ╱86╱ LET ╱ // 0x147d @0x1b
0x1462…1497 at001c = ╱4a╱J╱ // 0x147e @0x1c
0x1462…1497 at001d = ╱f0╱ := ╱ // 0x147f @0x1d
0x1462…1497 at001e = ╱4a╱J╱ // 0x1480 @0x1e
0x1462…1497 at001f = ╱e5╱ + ╱ // 0x1481 @0x1f
0x1462…1497 at0020 = ╱31╱1╱ // 0x1482 @0x20
0x1462…1497 at0021 = ╱f20100╱ // 0x1483 @0x21
0x1462…1497 at0024 = ╱ea╱ ; ╱ // 0x1486 @0x24
0x1462…1497 at0025 = ╱52╱R╱ // 0x1487 @0x25
0x1462…1497 at0026 = ╱53╱S╱ // 0x1488 @0x26
0x1462…1497 at0027 = ╱54╱T╱ // 0x1489 @0x27
0x1462…1497 at0028 = ╱ef╱$╱ // 0x148a @0x28
0x1462…1497 at0029 = ╱ed╱(╱ // 0x148b @0x29
0x1462…1497 at002a = ╱4a╱J╱ // 0x148c @0x2a
0x1462…1497 at002b = ╱ee╱)╱ // 0x148d @0x2b
0x1462…1497 at002c = ╱f0╱ := ╱ // 0x148e @0x2c
0x1462…1497 at002d = ╱52╱R╱ // 0x148f @0x2d
0x1462…1497 at002e = ╱53╱S╱ // 0x1490 @0x2e
0x1462…1497 at002f = ╱54╱T╱ // 0x1491 @0x2f
0x1462…1497 at0030 = ╱ef╱$╱ // 0x1492 @0x30
0x1462…1497 at0031 = ╱ed╱(╱ // 0x1493 @0x31
0x1462…1497 at0032 = ╱49╱I╱ // 0x1494 @0x32
0x1462…1497 at0033 = ╱ee╱)╱ // 0x1495 @0x33
0x1462…1497 at0034 = EOL // 0x1496 @0x34
0x1462…1497 }
0x1497…14d3 aac1 2110 IF RST$(I) = "." AND K = 0 THEN LET J := J + 1 ; K := K + 1 ; RST$(J) := RST$(I)
0x1497…14d3 LineComal80 {
0x1497…14d3 ptr = 0xaac1 // 0x1497 @0x0
0x1497…14d3 lno = 0x083e // 0x1499 @0x2
0x1497…14d3 at0004 = ╱8200╱ IF ╱ // 0x149b @0x4
0x1497…14d3 at0006 = ╱52╱R╱ // 0x149d @0x6
0x1497…14d3 at0007 = ╱53╱S╱ // 0x149e @0x7
0x1497…14d3 at0008 = ╱54╱T╱ // 0x149f @0x8
0x1497…14d3 at0009 = ╱ef╱$╱ // 0x14a0 @0x9
0x1497…14d3 at000a = ╱ed╱(╱ // 0x14a1 @0xa
0x1497…14d3 at000b = ╱49╱I╱ // 0x14a2 @0xb
0x1497…14d3 at000c = ╱ee╱)╱ // 0x14a3 @0xc
0x1497…14d3 at000d = ╱df╱ = ╱ // 0x14a4 @0xd
0x1497…14d3 at000e = ╱22╱"╱ // 0x14a5 @0xe
0x1497…14d3 at000f = ╱2e╱.╱ // 0x14a6 @0xf
0x1497…14d3 at0010 = ╱22╱"╱ // 0x14a7 @0x10
0x1497…14d3 at0011 = ╱d9╱ AND ╱ // 0x14a8 @0x11
0x1497…14d3 at0012 = ╱4b╱K╱ // 0x14a9 @0x12
0x1497…14d3 at0013 = ╱df╱ = ╱ // 0x14aa @0x13
0x1497…14d3 at0014 = ╱30╱0╱ // 0x14ab @0x14
0x1497…14d3 at0015 = ╱f20000╱ // 0x14ac @0x15
0x1497…14d3 at0018 = ╱b5╱ THEN ╱ // 0x14af @0x18
0x1497…14d3 at0019 = ╱86╱ LET ╱ // 0x14b0 @0x19
0x1497…14d3 at001a = ╱4a╱J╱ // 0x14b1 @0x1a
0x1497…14d3 at001b = ╱f0╱ := ╱ // 0x14b2 @0x1b
0x1497…14d3 at001c = ╱4a╱J╱ // 0x14b3 @0x1c
0x1497…14d3 at001d = ╱e5╱ + ╱ // 0x14b4 @0x1d
0x1497…14d3 at001e = ╱31╱1╱ // 0x14b5 @0x1e
0x1497…14d3 at001f = ╱f20100╱ // 0x14b6 @0x1f
0x1497…14d3 at0022 = ╱ea╱ ; ╱ // 0x14b9 @0x22
0x1497…14d3 at0023 = ╱4b╱K╱ // 0x14ba @0x23
0x1497…14d3 at0024 = ╱f0╱ := ╱ // 0x14bb @0x24
0x1497…14d3 at0025 = ╱4b╱K╱ // 0x14bc @0x25
0x1497…14d3 at0026 = ╱e5╱ + ╱ // 0x14bd @0x26
0x1497…14d3 at0027 = ╱31╱1╱ // 0x14be @0x27
0x1497…14d3 at0028 = ╱f20100╱ // 0x14bf @0x28
0x1497…14d3 at002b = ╱ea╱ ; ╱ // 0x14c2 @0x2b
0x1497…14d3 at002c = ╱52╱R╱ // 0x14c3 @0x2c
0x1497…14d3 at002d = ╱53╱S╱ // 0x14c4 @0x2d
0x1497…14d3 at002e = ╱54╱T╱ // 0x14c5 @0x2e
0x1497…14d3 at002f = ╱ef╱$╱ // 0x14c6 @0x2f
0x1497…14d3 at0030 = ╱ed╱(╱ // 0x14c7 @0x30
0x1497…14d3 at0031 = ╱4a╱J╱ // 0x14c8 @0x31
0x1497…14d3 at0032 = ╱ee╱)╱ // 0x14c9 @0x32
0x1497…14d3 at0033 = ╱f0╱ := ╱ // 0x14ca @0x33
0x1497…14d3 at0034 = ╱52╱R╱ // 0x14cb @0x34
0x1497…14d3 at0035 = ╱53╱S╱ // 0x14cc @0x35
0x1497…14d3 at0036 = ╱54╱T╱ // 0x14cd @0x36
0x1497…14d3 at0037 = ╱ef╱$╱ // 0x14ce @0x37
0x1497…14d3 at0038 = ╱ed╱(╱ // 0x14cf @0x38
0x1497…14d3 at0039 = ╱49╱I╱ // 0x14d0 @0x39
0x1497…14d3 at003a = ╱ee╱)╱ // 0x14d1 @0x3a
0x1497…14d3 at003b = EOL // 0x14d2 @0x3b
0x1497…14d3 }
0x14d3…14da aac8 2120 NEXT I
0x14d3…14da LineComal80 {
0x14d3…14da ptr = 0xaac8 // 0x14d3 @0x0
0x14d3…14da lno = 0x0848 // 0x14d5 @0x2
0x14d3…14da at0004 = ╱84╱ NEXT ╱ // 0x14d7 @0x4
0x14d3…14da at0005 = ╱49╱I╱ // 0x14d8 @0x5
0x14d3…14da at0006 = EOL // 0x14d9 @0x6
0x14d3…14da }
0x14da…14e8 aad6 2130 IF = 0 THEN
0x14da…14e8 LineComal80 {
0x14da…14e8 ptr = 0xaad6 // 0x14da @0x0
0x14da…14e8 lno = 0x0852 // 0x14dc @0x2
0x14da…14e8 at0004 = ╱9b004a╱ IF ╱ // 0x14de @0x4
0x14da…14e8 at0007 = ╱df╱ = ╱ // 0x14e1 @0x7
0x14da…14e8 at0008 = ╱30╱0╱ // 0x14e2 @0x8
0x14da…14e8 at0009 = ╱f20000╱ // 0x14e3 @0x9
0x14da…14e8 at000c = ╱b5╱ THEN ╱ // 0x14e6 @0xc
0x14da…14e8 at000d = EOL // 0x14e7 @0xd
0x14da…14e8 }
0x14e8…14f6 aae4 2140 LET OK := FALSE
0x14e8…14f6 LineComal80 {
0x14e8…14f6 ptr = 0xaae4 // 0x14e8 @0x0
0x14e8…14f6 lno = 0x085c // 0x14ea @0x2
0x14e8…14f6 at0004 = ╱86╱ LET ╱ // 0x14ec @0x4
0x14e8…14f6 at0005 = ╱4f╱O╱ // 0x14ed @0x5
0x14e8…14f6 at0006 = ╱4b╱K╱ // 0x14ee @0x6
0x14e8…14f6 at0007 = ╱f0╱ := ╱ // 0x14ef @0x7
0x14e8…14f6 at0008 = ╱46╱F╱ // 0x14f0 @0x8
0x14e8…14f6 at0009 = ╱41╱A╱ // 0x14f1 @0x9
0x14e8…14f6 at000a = ╱4c╱L╱ // 0x14f2 @0xa
0x14e8…14f6 at000b = ╱53╱S╱ // 0x14f3 @0xb
0x14e8…14f6 at000c = ╱45╱E╱ // 0x14f4 @0xc
0x14e8…14f6 at000d = EOL // 0x14f5 @0xd
0x14e8…14f6 }
0x14f6…14fd aaeb 2150 ELSE
0x14f6…14fd LineComal80 {
0x14f6…14fd ptr = 0xaaeb // 0x14f6 @0x0
0x14f6…14fd lno = 0x0866 // 0x14f8 @0x2
0x14f6…14fd at0004 = ╱9a00╱ ELSE ╱ // 0x14fa @0x4
0x14f6…14fd at0006 = EOL // 0x14fc @0x6
0x14f6…14fd }
0x14fd…1514 ab02 2160 LET RST$ := RST$(1 : J)
0x14fd…1514 LineComal80 {
0x14fd…1514 ptr = 0xab02 // 0x14fd @0x0
0x14fd…1514 lno = 0x0870 // 0x14ff @0x2
0x14fd…1514 at0004 = ╱86╱ LET ╱ // 0x1501 @0x4
0x14fd…1514 at0005 = ╱52╱R╱ // 0x1502 @0x5
0x14fd…1514 at0006 = ╱53╱S╱ // 0x1503 @0x6
0x14fd…1514 at0007 = ╱54╱T╱ // 0x1504 @0x7
0x14fd…1514 at0008 = ╱ef╱$╱ // 0x1505 @0x8
0x14fd…1514 at0009 = ╱f0╱ := ╱ // 0x1506 @0x9
0x14fd…1514 at000a = ╱52╱R╱ // 0x1507 @0xa
0x14fd…1514 at000b = ╱53╱S╱ // 0x1508 @0xb
0x14fd…1514 at000c = ╱54╱T╱ // 0x1509 @0xc
0x14fd…1514 at000d = ╱ef╱$╱ // 0x150a @0xd
0x14fd…1514 at000e = ╱ed╱(╱ // 0x150b @0xe
0x14fd…1514 at000f = ╱31╱1╱ // 0x150c @0xf
0x14fd…1514 at0010 = ╱f20100╱ // 0x150d @0x10
0x14fd…1514 at0013 = ╱f1╱ : ╱ // 0x1510 @0x13
0x14fd…1514 at0014 = ╱4a╱J╱ // 0x1511 @0x14
0x14fd…1514 at0015 = ╱ee╱)╱ // 0x1512 @0x15
0x14fd…1514 at0016 = EOL // 0x1513 @0x16
0x14fd…1514 }
0x1514…151a ab08 2170 ENDIF
0x1514…151a LineComal80 {
0x1514…151a ptr = 0xab08 // 0x1514 @0x0
0x1514…151a lno = 0x087a // 0x1516 @0x2
0x1514…151a at0004 = ╱9c╱ ENDIF ╱ // 0x1518 @0x4
0x1514…151a at0005 = EOL // 0x1519 @0x5
0x1514…151a }
0x151a…152b ab19 2180 ENDPROC TAL_CONTROL
0x151a…152b LineComal80 {
0x151a…152b ptr = 0xab19 // 0x151a @0x0
0x151a…152b lno = 0x0884 // 0x151c @0x2
0x151a…152b at0004 = ╱9f╱ ENDPROC ╱ // 0x151e @0x4
0x151a…152b at0005 = ╱54╱T╱ // 0x151f @0x5
0x151a…152b at0006 = ╱41╱A╱ // 0x1520 @0x6
0x151a…152b at0007 = ╱4c╱L╱ // 0x1521 @0x7
0x151a…152b at0008 = ╱5f╱_╱ // 0x1522 @0x8
0x151a…152b at0009 = ╱43╱C╱ // 0x1523 @0x9
0x151a…152b at000a = ╱4f╱O╱ // 0x1524 @0xa
0x151a…152b at000b = ╱4e╱N╱ // 0x1525 @0xb
0x151a…152b at000c = ╱54╱T╱ // 0x1526 @0xc
0x151a…152b at000d = ╱52╱R╱ // 0x1527 @0xd
0x151a…152b at000e = ╱4f╱O╱ // 0x1528 @0xe
0x151a…152b at000f = ╱4c╱L╱ // 0x1529 @0xf
0x151a…152b at0010 = EOL // 0x152a @0x10
0x151a…152b }
0x152b…1530 ab1e 2190
0x152b…1530 LineComal80 {
0x152b…1530 ptr = 0xab1e // 0x152b @0x0
0x152b…1530 lno = 0x088e // 0x152d @0x2
0x152b…1530 at0004 = EOL // 0x152f @0x4
0x152b…1530 }
0x1530…154a ab38 2200 PROC FIND_KTO( REF R_KTONR$)
0x1530…154a LineComal80 {
0x1530…154a ptr = 0xab38 // 0x1530 @0x0
0x1530…154a lno = 0x0898 // 0x1532 @0x2
0x1530…154a at0004 = ╱9e00╱ PROC ╱ // 0x1534 @0x4
0x1530…154a at0006 = ╱46╱F╱ // 0x1536 @0x6
0x1530…154a at0007 = ╱49╱I╱ // 0x1537 @0x7
0x1530…154a at0008 = ╱4e╱N╱ // 0x1538 @0x8
0x1530…154a at0009 = ╱44╱D╱ // 0x1539 @0x9
0x1530…154a at000a = ╱5f╱_╱ // 0x153a @0xa
0x1530…154a at000b = ╱4b╱K╱ // 0x153b @0xb
0x1530…154a at000c = ╱54╱T╱ // 0x153c @0xc
0x1530…154a at000d = ╱4f╱O╱ // 0x153d @0xd
0x1530…154a at000e = ╱ed╱(╱ // 0x153e @0xe
0x1530…154a at000f = ╱b6╱ REF ╱ // 0x153f @0xf
0x1530…154a at0010 = ╱52╱R╱ // 0x1540 @0x10
0x1530…154a at0011 = ╱5f╱_╱ // 0x1541 @0x11
0x1530…154a at0012 = ╱4b╱K╱ // 0x1542 @0x12
0x1530…154a at0013 = ╱54╱T╱ // 0x1543 @0x13
0x1530…154a at0014 = ╱4f╱O╱ // 0x1544 @0x14
0x1530…154a at0015 = ╱4e╱N╱ // 0x1545 @0x15
0x1530…154a at0016 = ╱52╱R╱ // 0x1546 @0x16
0x1530…154a at0017 = ╱ef╱$╱ // 0x1547 @0x17
0x1530…154a at0018 = ╱ee╱)╱ // 0x1548 @0x18
0x1530…154a at0019 = EOL // 0x1549 @0x19
0x1530…154a }
0x154a…1558 ab46 2210 LET OK := FALSE
0x154a…1558 LineComal80 {
0x154a…1558 ptr = 0xab46 // 0x154a @0x0
0x154a…1558 lno = 0x08a2 // 0x154c @0x2
0x154a…1558 at0004 = ╱86╱ LET ╱ // 0x154e @0x4
0x154a…1558 at0005 = ╱4f╱O╱ // 0x154f @0x5
0x154a…1558 at0006 = ╱4b╱K╱ // 0x1550 @0x6
0x154a…1558 at0007 = ╱f0╱ := ╱ // 0x1551 @0x7
0x154a…1558 at0008 = ╱46╱F╱ // 0x1552 @0x8
0x154a…1558 at0009 = ╱41╱A╱ // 0x1553 @0x9
0x154a…1558 at000a = ╱4c╱L╱ // 0x1554 @0xa
0x154a…1558 at000b = ╱53╱S╱ // 0x1555 @0xb
0x154a…1558 at000c = ╱45╱E╱ // 0x1556 @0xc
0x154a…1558 at000d = EOL // 0x1557 @0xd
0x154a…1558 }
0x1558…157c ab6a 2220 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
0x1558…157c LineComal80 {
0x1558…157c ptr = 0xab6a // 0x1558 @0x0
0x1558…157c lno = 0x08ac // 0x155a @0x2
0x1558…157c at0004 = ╱a9╱ GET ╱ // 0x155c @0x4
0x1558…157c at0005 = ╱4b╱K╱ // 0x155d @0x5
0x1558…157c at0006 = ╱54╱T╱ // 0x155e @0x6
0x1558…157c at0007 = ╱4f╱O╱ // 0x155f @0x7
0x1558…157c at0008 = ╱49╱I╱ // 0x1560 @0x8
0x1558…157c at0009 = ╱44╱D╱ // 0x1561 @0x9
0x1558…157c at000a = ╱58╱X╱ // 0x1562 @0xa
0x1558…157c at000b = ╱ef╱$╱ // 0x1563 @0xb
0x1558…157c at000c = ╱ec╱,╱ // 0x1564 @0xc
0x1558…157c at000d = ╱31╱1╱ // 0x1565 @0xd
0x1558…157c at000e = ╱f20100╱ // 0x1566 @0xe
0x1558…157c at0011 = ╱f1╱ : ╱ // 0x1569 @0x11
0x1558…157c at0012 = ╱49╱I╱ // 0x156a @0x12
0x1558…157c at0013 = ╱5f╱_╱ // 0x156b @0x13
0x1558…157c at0014 = ╱48╱H╱ // 0x156c @0x14
0x1558…157c at0015 = ╱5c╱Ø╱ // 0x156d @0x15
0x1558…157c at0016 = ╱4a╱J╱ // 0x156e @0x16
0x1558…157c at0017 = ╱52╱R╱ // 0x156f @0x17
0x1558…157c at0018 = ╱45╱E╱ // 0x1570 @0x18
0x1558…157c at0019 = ╱43╱C╱ // 0x1571 @0x19
0x1558…157c at001a = ╱ec╱,╱ // 0x1572 @0x1a
0x1558…157c at001b = ╱49╱I╱ // 0x1573 @0x1b
0x1558…157c at001c = ╱5f╱_╱ // 0x1574 @0x1c
0x1558…157c at001d = ╱4d╱M╱ // 0x1575 @0x1d
0x1558…157c at001e = ╱41╱A╱ // 0x1576 @0x1e
0x1558…157c at001f = ╱58╱X╱ // 0x1577 @0x1f
0x1558…157c at0020 = ╱52╱R╱ // 0x1578 @0x20
0x1558…157c at0021 = ╱45╱E╱ // 0x1579 @0x21
0x1558…157c at0022 = ╱43╱C╱ // 0x157a @0x22
0x1558…157c at0023 = EOL // 0x157b @0x23
0x1558…157c }
0x157c…15a1 ab8f 2230 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
0x157c…15a1 LineComal80 {
0x157c…15a1 ptr = 0xab8f // 0x157c @0x0
0x157c…15a1 lno = 0x08b6 // 0x157e @0x2
0x157c…15a1 at0004 = ╱86╱ LET ╱ // 0x1580 @0x4
0x157c…15a1 at0005 = ╱4c╱L╱ // 0x1581 @0x5
0x157c…15a1 at0006 = ╱4f╱O╱ // 0x1582 @0x6
0x157c…15a1 at0007 = ╱57╱W╱ // 0x1583 @0x7
0x157c…15a1 at0008 = ╱f0╱ := ╱ // 0x1584 @0x8
0x157c…15a1 at0009 = ╱31╱1╱ // 0x1585 @0x9
0x157c…15a1 at000a = ╱f20100╱ // 0x1586 @0xa
0x157c…15a1 at000d = ╱ea╱ ; ╱ // 0x1589 @0xd
0x157c…15a1 at000e = ╱48╱H╱ // 0x158a @0xe
0x157c…15a1 at000f = ╱49╱I╱ // 0x158b @0xf
0x157c…15a1 at0010 = ╱47╱G╱ // 0x158c @0x10
0x157c…15a1 at0011 = ╱48╱H╱ // 0x158d @0x11
0x157c…15a1 at0012 = ╱f0╱ := ╱ // 0x158e @0x12
0x157c…15a1 at0013 = ╱49╱I╱ // 0x158f @0x13
0x157c…15a1 at0014 = ╱5f╱_╱ // 0x1590 @0x14
0x157c…15a1 at0015 = ╱48╱H╱ // 0x1591 @0x15
0x157c…15a1 at0016 = ╱5c╱Ø╱ // 0x1592 @0x16
0x157c…15a1 at0017 = ╱4a╱J╱ // 0x1593 @0x17
0x157c…15a1 at0018 = ╱52╱R╱ // 0x1594 @0x18
0x157c…15a1 at0019 = ╱45╱E╱ // 0x1595 @0x19
0x157c…15a1 at001a = ╱43╱C╱ // 0x1596 @0x1a
0x157c…15a1 at001b = ╱ea╱ ; ╱ // 0x1597 @0x1b
0x157c…15a1 at001c = ╱50╱P╱ // 0x1598 @0x1c
0x157c…15a1 at001d = ╱4f╱O╱ // 0x1599 @0x1d
0x157c…15a1 at001e = ╱53╱S╱ // 0x159a @0x1e
0x157c…15a1 at001f = ╱f0╱ := ╱ // 0x159b @0x1f
0x157c…15a1 at0020 = ╱32╱2╱ // 0x159c @0x20
0x157c…15a1 at0021 = ╱f20200╱ // 0x159d @0x21
0x157c…15a1 at0024 = EOL // 0x15a0 @0x24
0x157c…15a1 }
0x15a1…15b2 aba0 2240 IF IGH > 1 THEN
0x15a1…15b2 LineComal80 {
0x15a1…15b2 ptr = 0xaba0 // 0x15a1 @0x0
0x15a1…15b2 lno = 0x08c0 // 0x15a3 @0x2
0x15a1…15b2 at0004 = ╱9b0048╱ IF ╱ // 0x15a5 @0x4
0x15a1…15b2 at0007 = ╱49╱I╱ // 0x15a8 @0x7
0x15a1…15b2 at0008 = ╱47╱G╱ // 0x15a9 @0x8
0x15a1…15b2 at0009 = ╱48╱H╱ // 0x15aa @0x9
0x15a1…15b2 at000a = ╱e1╱ > ╱ // 0x15ab @0xa
0x15a1…15b2 at000b = ╱31╱1╱ // 0x15ac @0xb
0x15a1…15b2 at000c = ╱f20100╱ // 0x15ad @0xc
0x15a1…15b2 at000f = ╱b5╱ THEN ╱ // 0x15b0 @0xf
0x15a1…15b2 at0010 = EOL // 0x15b1 @0x10
0x15a1…15b2 }
0x15b2…15b9 aba7 2250 REPEAT
0x15b2…15b9 LineComal80 {
0x15b2…15b9 ptr = 0xaba7 // 0x15b2 @0x0
0x15b2…15b9 lno = 0x08ca // 0x15b4 @0x2
0x15b2…15b9 at0004 = ╱9700╱ REPEAT ╱ // 0x15b6 @0x4
0x15b2…15b9 at0006 = EOL // 0x15b8 @0x6
0x15b2…15b9 }
0x15b9…15e5 abd3 2260 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x15b9…15e5 LineComal80 {
0x15b9…15e5 ptr = 0xabd3 // 0x15b9 @0x0
0x15b9…15e5 lno = 0x08d4 // 0x15bb @0x2
0x15b9…15e5 at0004 = ╱86╱ LET ╱ // 0x15bd @0x4
0x15b9…15e5 at0005 = ╱50╱P╱ // 0x15be @0x5
0x15b9…15e5 at0006 = ╱4f╱O╱ // 0x15bf @0x6
0x15b9…15e5 at0007 = ╱53╱S╱ // 0x15c0 @0x7
0x15b9…15e5 at0008 = ╱f0╱ := ╱ // 0x15c1 @0x8
0x15b9…15e5 at0009 = ╱c6╱INT╱ // 0x15c2 @0x9
0x15b9…15e5 at000a = ╱ed╱(╱ // 0x15c3 @0xa
0x15b9…15e5 at000b = ╱ed╱(╱ // 0x15c4 @0xb
0x15b9…15e5 at000c = ╱48╱H╱ // 0x15c5 @0xc
0x15b9…15e5 at000d = ╱49╱I╱ // 0x15c6 @0xd
0x15b9…15e5 at000e = ╱47╱G╱ // 0x15c7 @0xe
0x15b9…15e5 at000f = ╱48╱H╱ // 0x15c8 @0xf
0x15b9…15e5 at0010 = ╱e6╱ - ╱ // 0x15c9 @0x10
0x15b9…15e5 at0011 = ╱4c╱L╱ // 0x15ca @0x11
0x15b9…15e5 at0012 = ╱4f╱O╱ // 0x15cb @0x12
0x15b9…15e5 at0013 = ╱57╱W╱ // 0x15cc @0x13
0x15b9…15e5 at0014 = ╱ee╱)╱ // 0x15cd @0x14
0x15b9…15e5 at0015 = ╱e8╱ / ╱ // 0x15ce @0x15
0x15b9…15e5 at0016 = ╱32╱2╱ // 0x15cf @0x16
0x15b9…15e5 at0017 = ╱f20200╱ // 0x15d0 @0x17
0x15b9…15e5 at001a = ╱e5╱ + ╱ // 0x15d3 @0x1a
0x15b9…15e5 at001b = ╱2e╱.╱ // 0x15d4 @0x1b
0x15b9…15e5 at001c = ╱35╱5╱ // 0x15d5 @0x1c
0x15b9…15e5 at001d = ╱f88000000000000005╱ // 0x15d6 @0x1d
0x15b9…15e5 at0026 = ╱ee╱)╱ // 0x15df @0x26
0x15b9…15e5 at0027 = ╱e5╱ + ╱ // 0x15e0 @0x27
0x15b9…15e5 at0028 = ╱4c╱L╱ // 0x15e1 @0x28
0x15b9…15e5 at0029 = ╱4f╱O╱ // 0x15e2 @0x29
0x15b9…15e5 at002a = ╱57╱W╱ // 0x15e3 @0x2a
0x15b9…15e5 at002b = EOL // 0x15e4 @0x2b
0x15b9…15e5 }
0x15e5…1603 abf1 2270 GET KTOIDX$,POS : KTONR$,RECNR
0x15e5…1603 LineComal80 {
0x15e5…1603 ptr = 0xabf1 // 0x15e5 @0x0
0x15e5…1603 lno = 0x08de // 0x15e7 @0x2
0x15e5…1603 at0004 = ╱a9╱ GET ╱ // 0x15e9 @0x4
0x15e5…1603 at0005 = ╱4b╱K╱ // 0x15ea @0x5
0x15e5…1603 at0006 = ╱54╱T╱ // 0x15eb @0x6
0x15e5…1603 at0007 = ╱4f╱O╱ // 0x15ec @0x7
0x15e5…1603 at0008 = ╱49╱I╱ // 0x15ed @0x8
0x15e5…1603 at0009 = ╱44╱D╱ // 0x15ee @0x9
0x15e5…1603 at000a = ╱58╱X╱ // 0x15ef @0xa
0x15e5…1603 at000b = ╱ef╱$╱ // 0x15f0 @0xb
0x15e5…1603 at000c = ╱ec╱,╱ // 0x15f1 @0xc
0x15e5…1603 at000d = ╱50╱P╱ // 0x15f2 @0xd
0x15e5…1603 at000e = ╱4f╱O╱ // 0x15f3 @0xe
0x15e5…1603 at000f = ╱53╱S╱ // 0x15f4 @0xf
0x15e5…1603 at0010 = ╱f1╱ : ╱ // 0x15f5 @0x10
0x15e5…1603 at0011 = ╱4b╱K╱ // 0x15f6 @0x11
0x15e5…1603 at0012 = ╱54╱T╱ // 0x15f7 @0x12
0x15e5…1603 at0013 = ╱4f╱O╱ // 0x15f8 @0x13
0x15e5…1603 at0014 = ╱4e╱N╱ // 0x15f9 @0x14
0x15e5…1603 at0015 = ╱52╱R╱ // 0x15fa @0x15
0x15e5…1603 at0016 = ╱ef╱$╱ // 0x15fb @0x16
0x15e5…1603 at0017 = ╱ec╱,╱ // 0x15fc @0x17
0x15e5…1603 at0018 = ╱52╱R╱ // 0x15fd @0x18
0x15e5…1603 at0019 = ╱45╱E╱ // 0x15fe @0x19
0x15e5…1603 at001a = ╱43╱C╱ // 0x15ff @0x1a
0x15e5…1603 at001b = ╱4e╱N╱ // 0x1600 @0x1b
0x15e5…1603 at001c = ╱52╱R╱ // 0x1601 @0x1c
0x15e5…1603 at001d = EOL // 0x1602 @0x1d
0x15e5…1603 }
0x1603…161a ac08 2280 IF TONR$ > R_KTONR$ THEN
0x1603…161a LineComal80 {
0x1603…161a ptr = 0xac08 // 0x1603 @0x0
0x1603…161a lno = 0x08e8 // 0x1605 @0x2
0x1603…161a at0004 = ╱9b004b╱ IF ╱ // 0x1607 @0x4
0x1603…161a at0007 = ╱54╱T╱ // 0x160a @0x7
0x1603…161a at0008 = ╱4f╱O╱ // 0x160b @0x8
0x1603…161a at0009 = ╱4e╱N╱ // 0x160c @0x9
0x1603…161a at000a = ╱52╱R╱ // 0x160d @0xa
0x1603…161a at000b = ╱ef╱$╱ // 0x160e @0xb
0x1603…161a at000c = ╱e1╱ > ╱ // 0x160f @0xc
0x1603…161a at000d = ╱52╱R╱ // 0x1610 @0xd
0x1603…161a at000e = ╱5f╱_╱ // 0x1611 @0xe
0x1603…161a at000f = ╱4b╱K╱ // 0x1612 @0xf
0x1603…161a at0010 = ╱54╱T╱ // 0x1613 @0x10
0x1603…161a at0011 = ╱4f╱O╱ // 0x1614 @0x11
0x1603…161a at0012 = ╱4e╱N╱ // 0x1615 @0x12
0x1603…161a at0013 = ╱52╱R╱ // 0x1616 @0x13
0x1603…161a at0014 = ╱ef╱$╱ // 0x1617 @0x14
0x1603…161a at0015 = ╱b5╱ THEN ╱ // 0x1618 @0x15
0x1603…161a at0016 = EOL // 0x1619 @0x16
0x1603…161a }
0x161a…1628 ac16 2290 LET HIGH := POS
0x161a…1628 LineComal80 {
0x161a…1628 ptr = 0xac16 // 0x161a @0x0
0x161a…1628 lno = 0x08f2 // 0x161c @0x2
0x161a…1628 at0004 = ╱86╱ LET ╱ // 0x161e @0x4
0x161a…1628 at0005 = ╱48╱H╱ // 0x161f @0x5
0x161a…1628 at0006 = ╱49╱I╱ // 0x1620 @0x6
0x161a…1628 at0007 = ╱47╱G╱ // 0x1621 @0x7
0x161a…1628 at0008 = ╱48╱H╱ // 0x1622 @0x8
0x161a…1628 at0009 = ╱f0╱ := ╱ // 0x1623 @0x9
0x161a…1628 at000a = ╱50╱P╱ // 0x1624 @0xa
0x161a…1628 at000b = ╱4f╱O╱ // 0x1625 @0xb
0x161a…1628 at000c = ╱53╱S╱ // 0x1626 @0xc
0x161a…1628 at000d = EOL // 0x1627 @0xd
0x161a…1628 }
0x1628…162f ac1d 2300 ELSE
0x1628…162f LineComal80 {
0x1628…162f ptr = 0xac1d // 0x1628 @0x0
0x1628…162f lno = 0x08fc // 0x162a @0x2
0x1628…162f at0004 = ╱9a00╱ ELSE ╱ // 0x162c @0x4
0x1628…162f at0006 = EOL // 0x162e @0x6
0x1628…162f }
0x162f…1646 ac34 2310 IF TONR$ < R_KTONR$ THEN
0x162f…1646 LineComal80 {
0x162f…1646 ptr = 0xac34 // 0x162f @0x0
0x162f…1646 lno = 0x0906 // 0x1631 @0x2
0x162f…1646 at0004 = ╱9b004b╱ IF ╱ // 0x1633 @0x4
0x162f…1646 at0007 = ╱54╱T╱ // 0x1636 @0x7
0x162f…1646 at0008 = ╱4f╱O╱ // 0x1637 @0x8
0x162f…1646 at0009 = ╱4e╱N╱ // 0x1638 @0x9
0x162f…1646 at000a = ╱52╱R╱ // 0x1639 @0xa
0x162f…1646 at000b = ╱ef╱$╱ // 0x163a @0xb
0x162f…1646 at000c = ╱e0╱ < ╱ // 0x163b @0xc
0x162f…1646 at000d = ╱52╱R╱ // 0x163c @0xd
0x162f…1646 at000e = ╱5f╱_╱ // 0x163d @0xe
0x162f…1646 at000f = ╱4b╱K╱ // 0x163e @0xf
0x162f…1646 at0010 = ╱54╱T╱ // 0x163f @0x10
0x162f…1646 at0011 = ╱4f╱O╱ // 0x1640 @0x11
0x162f…1646 at0012 = ╱4e╱N╱ // 0x1641 @0x12
0x162f…1646 at0013 = ╱52╱R╱ // 0x1642 @0x13
0x162f…1646 at0014 = ╱ef╱$╱ // 0x1643 @0x14
0x162f…1646 at0015 = ╱b5╱ THEN ╱ // 0x1644 @0x15
0x162f…1646 at0016 = EOL // 0x1645 @0x16
0x162f…1646 }
0x1646…1653 ac41 2320 LET LOW := POS
0x1646…1653 LineComal80 {
0x1646…1653 ptr = 0xac41 // 0x1646 @0x0
0x1646…1653 lno = 0x0910 // 0x1648 @0x2
0x1646…1653 at0004 = ╱86╱ LET ╱ // 0x164a @0x4
0x1646…1653 at0005 = ╱4c╱L╱ // 0x164b @0x5
0x1646…1653 at0006 = ╱4f╱O╱ // 0x164c @0x6
0x1646…1653 at0007 = ╱57╱W╱ // 0x164d @0x7
0x1646…1653 at0008 = ╱f0╱ := ╱ // 0x164e @0x8
0x1646…1653 at0009 = ╱50╱P╱ // 0x164f @0x9
0x1646…1653 at000a = ╱4f╱O╱ // 0x1650 @0xa
0x1646…1653 at000b = ╱53╱S╱ // 0x1651 @0xb
0x1646…1653 at000c = EOL // 0x1652 @0xc
0x1646…1653 }
0x1653…1659 ac47 2330 ENDIF
0x1653…1659 LineComal80 {
0x1653…1659 ptr = 0xac47 // 0x1653 @0x0
0x1653…1659 lno = 0x091a // 0x1655 @0x2
0x1653…1659 at0004 = ╱9c╱ ENDIF ╱ // 0x1657 @0x4
0x1653…1659 at0005 = EOL // 0x1658 @0x5
0x1653…1659 }
0x1659…165f ac4d 2340 ENDIF
0x1659…165f LineComal80 {
0x1659…165f ptr = 0xac4d // 0x1659 @0x0
0x1659…165f lno = 0x0924 // 0x165b @0x2
0x1659…165f at0004 = ╱9c╱ ENDIF ╱ // 0x165d @0x4
0x1659…165f at0005 = EOL // 0x165e @0x5
0x1659…165f }
0x165f…1682 ac70 2350 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
0x165f…1682 LineComal80 {
0x165f…1682 ptr = 0xac70 // 0x165f @0x0
0x165f…1682 lno = 0x092e // 0x1661 @0x2
0x165f…1682 at0004 = ╱98╱ UNTIL ╱ // 0x1663 @0x4
0x165f…1682 at0005 = ╱48╱H╱ // 0x1664 @0x5
0x165f…1682 at0006 = ╱49╱I╱ // 0x1665 @0x6
0x165f…1682 at0007 = ╱47╱G╱ // 0x1666 @0x7
0x165f…1682 at0008 = ╱48╱H╱ // 0x1667 @0x8
0x165f…1682 at0009 = ╱e6╱ - ╱ // 0x1668 @0x9
0x165f…1682 at000a = ╱4c╱L╱ // 0x1669 @0xa
0x165f…1682 at000b = ╱4f╱O╱ // 0x166a @0xb
0x165f…1682 at000c = ╱57╱W╱ // 0x166b @0xc
0x165f…1682 at000d = ╱e2╱ =< ╱ // 0x166c @0xd
0x165f…1682 at000e = ╱31╱1╱ // 0x166d @0xe
0x165f…1682 at000f = ╱f20100╱ // 0x166e @0xf
0x165f…1682 at0012 = ╱d8╱ OR ╱ // 0x1671 @0x12
0x165f…1682 at0013 = ╱52╱R╱ // 0x1672 @0x13
0x165f…1682 at0014 = ╱5f╱_╱ // 0x1673 @0x14
0x165f…1682 at0015 = ╱4b╱K╱ // 0x1674 @0x15
0x165f…1682 at0016 = ╱54╱T╱ // 0x1675 @0x16
0x165f…1682 at0017 = ╱4f╱O╱ // 0x1676 @0x17
0x165f…1682 at0018 = ╱4e╱N╱ // 0x1677 @0x18
0x165f…1682 at0019 = ╱52╱R╱ // 0x1678 @0x19
0x165f…1682 at001a = ╱ef╱$╱ // 0x1679 @0x1a
0x165f…1682 at001b = ╱df╱ = ╱ // 0x167a @0x1b
0x165f…1682 at001c = ╱4b╱K╱ // 0x167b @0x1c
0x165f…1682 at001d = ╱54╱T╱ // 0x167c @0x1d
0x165f…1682 at001e = ╱4f╱O╱ // 0x167d @0x1e
0x165f…1682 at001f = ╱4e╱N╱ // 0x167e @0x1f
0x165f…1682 at0020 = ╱52╱R╱ // 0x167f @0x20
0x165f…1682 at0021 = ╱ef╱$╱ // 0x1680 @0x21
0x165f…1682 at0022 = EOL // 0x1681 @0x22
0x165f…1682 }
0x1682…16ae ac9c 2360 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x1682…16ae LineComal80 {
0x1682…16ae ptr = 0xac9c // 0x1682 @0x0
0x1682…16ae lno = 0x0938 // 0x1684 @0x2
0x1682…16ae at0004 = ╱86╱ LET ╱ // 0x1686 @0x4
0x1682…16ae at0005 = ╱50╱P╱ // 0x1687 @0x5
0x1682…16ae at0006 = ╱4f╱O╱ // 0x1688 @0x6
0x1682…16ae at0007 = ╱53╱S╱ // 0x1689 @0x7
0x1682…16ae at0008 = ╱f0╱ := ╱ // 0x168a @0x8
0x1682…16ae at0009 = ╱c6╱INT╱ // 0x168b @0x9
0x1682…16ae at000a = ╱ed╱(╱ // 0x168c @0xa
0x1682…16ae at000b = ╱ed╱(╱ // 0x168d @0xb
0x1682…16ae at000c = ╱48╱H╱ // 0x168e @0xc
0x1682…16ae at000d = ╱49╱I╱ // 0x168f @0xd
0x1682…16ae at000e = ╱47╱G╱ // 0x1690 @0xe
0x1682…16ae at000f = ╱48╱H╱ // 0x1691 @0xf
0x1682…16ae at0010 = ╱e6╱ - ╱ // 0x1692 @0x10
0x1682…16ae at0011 = ╱4c╱L╱ // 0x1693 @0x11
0x1682…16ae at0012 = ╱4f╱O╱ // 0x1694 @0x12
0x1682…16ae at0013 = ╱57╱W╱ // 0x1695 @0x13
0x1682…16ae at0014 = ╱ee╱)╱ // 0x1696 @0x14
0x1682…16ae at0015 = ╱e8╱ / ╱ // 0x1697 @0x15
0x1682…16ae at0016 = ╱32╱2╱ // 0x1698 @0x16
0x1682…16ae at0017 = ╱f20200╱ // 0x1699 @0x17
0x1682…16ae at001a = ╱e5╱ + ╱ // 0x169c @0x1a
0x1682…16ae at001b = ╱2e╱.╱ // 0x169d @0x1b
0x1682…16ae at001c = ╱35╱5╱ // 0x169e @0x1c
0x1682…16ae at001d = ╱f88000000000000005╱ // 0x169f @0x1d
0x1682…16ae at0026 = ╱ee╱)╱ // 0x16a8 @0x26
0x1682…16ae at0027 = ╱e5╱ + ╱ // 0x16a9 @0x27
0x1682…16ae at0028 = ╱4c╱L╱ // 0x16aa @0x28
0x1682…16ae at0029 = ╱4f╱O╱ // 0x16ab @0x29
0x1682…16ae at002a = ╱57╱W╱ // 0x16ac @0x2a
0x1682…16ae at002b = EOL // 0x16ad @0x2b
0x1682…16ae }
0x16ae…16cc acba 2370 GET KTOIDX$,POS : KTONR$,RECNR
0x16ae…16cc LineComal80 {
0x16ae…16cc ptr = 0xacba // 0x16ae @0x0
0x16ae…16cc lno = 0x0942 // 0x16b0 @0x2
0x16ae…16cc at0004 = ╱a9╱ GET ╱ // 0x16b2 @0x4
0x16ae…16cc at0005 = ╱4b╱K╱ // 0x16b3 @0x5
0x16ae…16cc at0006 = ╱54╱T╱ // 0x16b4 @0x6
0x16ae…16cc at0007 = ╱4f╱O╱ // 0x16b5 @0x7
0x16ae…16cc at0008 = ╱49╱I╱ // 0x16b6 @0x8
0x16ae…16cc at0009 = ╱44╱D╱ // 0x16b7 @0x9
0x16ae…16cc at000a = ╱58╱X╱ // 0x16b8 @0xa
0x16ae…16cc at000b = ╱ef╱$╱ // 0x16b9 @0xb
0x16ae…16cc at000c = ╱ec╱,╱ // 0x16ba @0xc
0x16ae…16cc at000d = ╱50╱P╱ // 0x16bb @0xd
0x16ae…16cc at000e = ╱4f╱O╱ // 0x16bc @0xe
0x16ae…16cc at000f = ╱53╱S╱ // 0x16bd @0xf
0x16ae…16cc at0010 = ╱f1╱ : ╱ // 0x16be @0x10
0x16ae…16cc at0011 = ╱4b╱K╱ // 0x16bf @0x11
0x16ae…16cc at0012 = ╱54╱T╱ // 0x16c0 @0x12
0x16ae…16cc at0013 = ╱4f╱O╱ // 0x16c1 @0x13
0x16ae…16cc at0014 = ╱4e╱N╱ // 0x16c2 @0x14
0x16ae…16cc at0015 = ╱52╱R╱ // 0x16c3 @0x15
0x16ae…16cc at0016 = ╱ef╱$╱ // 0x16c4 @0x16
0x16ae…16cc at0017 = ╱ec╱,╱ // 0x16c5 @0x17
0x16ae…16cc at0018 = ╱52╱R╱ // 0x16c6 @0x18
0x16ae…16cc at0019 = ╱45╱E╱ // 0x16c7 @0x19
0x16ae…16cc at001a = ╱43╱C╱ // 0x16c8 @0x1a
0x16ae…16cc at001b = ╱4e╱N╱ // 0x16c9 @0x1b
0x16ae…16cc at001c = ╱52╱R╱ // 0x16ca @0x1c
0x16ae…16cc at001d = EOL // 0x16cb @0x1d
0x16ae…16cc }
0x16cc…16eb acd9 2380 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
0x16cc…16eb LineComal80 {
0x16cc…16eb ptr = 0xacd9 // 0x16cc @0x0
0x16cc…16eb lno = 0x094c // 0x16ce @0x2
0x16cc…16eb at0004 = ╱8200╱ IF ╱ // 0x16d0 @0x4
0x16cc…16eb at0006 = ╱4b╱K╱ // 0x16d2 @0x6
0x16cc…16eb at0007 = ╱54╱T╱ // 0x16d3 @0x7
0x16cc…16eb at0008 = ╱4f╱O╱ // 0x16d4 @0x8
0x16cc…16eb at0009 = ╱4e╱N╱ // 0x16d5 @0x9
0x16cc…16eb at000a = ╱52╱R╱ // 0x16d6 @0xa
0x16cc…16eb at000b = ╱ef╱$╱ // 0x16d7 @0xb
0x16cc…16eb at000c = ╱df╱ = ╱ // 0x16d8 @0xc
0x16cc…16eb at000d = ╱52╱R╱ // 0x16d9 @0xd
0x16cc…16eb at000e = ╱5f╱_╱ // 0x16da @0xe
0x16cc…16eb at000f = ╱4b╱K╱ // 0x16db @0xf
0x16cc…16eb at0010 = ╱54╱T╱ // 0x16dc @0x10
0x16cc…16eb at0011 = ╱4f╱O╱ // 0x16dd @0x11
0x16cc…16eb at0012 = ╱4e╱N╱ // 0x16de @0x12
0x16cc…16eb at0013 = ╱52╱R╱ // 0x16df @0x13
0x16cc…16eb at0014 = ╱ef╱$╱ // 0x16e0 @0x14
0x16cc…16eb at0015 = ╱b5╱ THEN ╱ // 0x16e1 @0x15
0x16cc…16eb at0016 = ╱86╱ LET ╱ // 0x16e2 @0x16
0x16cc…16eb at0017 = ╱4f╱O╱ // 0x16e3 @0x17
0x16cc…16eb at0018 = ╱4b╱K╱ // 0x16e4 @0x18
0x16cc…16eb at0019 = ╱f0╱ := ╱ // 0x16e5 @0x19
0x16cc…16eb at001a = ╱54╱T╱ // 0x16e6 @0x1a
0x16cc…16eb at001b = ╱52╱R╱ // 0x16e7 @0x1b
0x16cc…16eb at001c = ╱55╱U╱ // 0x16e8 @0x1c
0x16cc…16eb at001d = ╱45╱E╱ // 0x16e9 @0x1d
0x16cc…16eb at001e = EOL // 0x16ea @0x1e
0x16cc…16eb }
0x16eb…16f1 acdf 2390 ENDIF
0x16eb…16f1 LineComal80 {
0x16eb…16f1 ptr = 0xacdf // 0x16eb @0x0
0x16eb…16f1 lno = 0x0956 // 0x16ed @0x2
0x16eb…16f1 at0004 = ╱9c╱ ENDIF ╱ // 0x16ef @0x4
0x16eb…16f1 at0005 = EOL // 0x16f0 @0x5
0x16eb…16f1 }
0x16f1…1703 acf1 2400 LET FIND_KTO := POS
0x16f1…1703 LineComal80 {
0x16f1…1703 ptr = 0xacf1 // 0x16f1 @0x0
0x16f1…1703 lno = 0x0960 // 0x16f3 @0x2
0x16f1…1703 at0004 = ╱86╱ LET ╱ // 0x16f5 @0x4
0x16f1…1703 at0005 = ╱46╱F╱ // 0x16f6 @0x5
0x16f1…1703 at0006 = ╱49╱I╱ // 0x16f7 @0x6
0x16f1…1703 at0007 = ╱4e╱N╱ // 0x16f8 @0x7
0x16f1…1703 at0008 = ╱44╱D╱ // 0x16f9 @0x8
0x16f1…1703 at0009 = ╱5f╱_╱ // 0x16fa @0x9
0x16f1…1703 at000a = ╱4b╱K╱ // 0x16fb @0xa
0x16f1…1703 at000b = ╱54╱T╱ // 0x16fc @0xb
0x16f1…1703 at000c = ╱4f╱O╱ // 0x16fd @0xc
0x16f1…1703 at000d = ╱f0╱ := ╱ // 0x16fe @0xd
0x16f1…1703 at000e = ╱50╱P╱ // 0x16ff @0xe
0x16f1…1703 at000f = ╱4f╱O╱ // 0x1700 @0xf
0x16f1…1703 at0010 = ╱53╱S╱ // 0x1701 @0x10
0x16f1…1703 at0011 = EOL // 0x1702 @0x11
0x16f1…1703 }
0x1703…1711 0000 2410 ENDPROC FIND_KTO
0x1703…1711 LineComal80 {
0x1703…1711 ptr = 0x0000 // 0x1703 @0x0
0x1703…1711 lno = 0x096a // 0x1705 @0x2
0x1703…1711 at0004 = ╱9f╱ ENDPROC ╱ // 0x1707 @0x4
0x1703…1711 at0005 = ╱46╱F╱ // 0x1708 @0x5
0x1703…1711 at0006 = ╱49╱I╱ // 0x1709 @0x6
0x1703…1711 at0007 = ╱4e╱N╱ // 0x170a @0x7
0x1703…1711 at0008 = ╱44╱D╱ // 0x170b @0x8
0x1703…1711 at0009 = ╱5f╱_╱ // 0x170c @0x9
0x1703…1711 at000a = ╱4b╱K╱ // 0x170d @0xa
0x1703…1711 at000b = ╱54╱T╱ // 0x170e @0xb
0x1703…1711 at000c = ╱4f╱O╱ // 0x170f @0xc
0x1703…1711 at000d = EOL // 0x1710 @0xd
0x1703…1711 }
0x1711…1720 4c a7 e0 06 9d 46 45 4a 4c ed 22 55 6c 6f 76 ┆L FEJL "Ulov┆
0x1720…1729 6c 69 67 20 6b 6f 6e 74 6f ┆lig konto┆
0x1729…1749 (77,) 6e 72 20 2d 20 6b 6f 6e 74 6f 20 69 6b 6b 65 20 62 6f 67 66 7c 72 69 6e 67 73 6b 6f 6e 74 6f 22 ┆nr - konto ikke bogføringskonto"┆
0x1749…174b ee ff ┆ ┆
0x174b…1751 (78,) ee 95 ee 95 00 00 ┆ ┆