|
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: 8563 (0x2173)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSK.B«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSK.B«
0100 // **************************************************
0110 // * *
0120 // * Bogføringssystemet 'SYS-KAS' *
0130 // * vers. 1.0 *
0140 // * *
0150 // * Udviklet marts 1983 på en 'SPC/1' mikrodatamat *
0160 // * Programsystemet er skrevet i COMAL80 vers. 1.2 *
0170 // * *
0180 // * Udviklet af : Peter Kristensen *
0190 // * Vestervang 6, 6920 Videbæk *
0200 // * *
0210 // * (C) : forlaget systime a/s *
0220 // * Klokkebakken 20, Gjellerup *
0230 // * 7400 Herning *
0240 // **************************************************
0250 EXEC DIMENSIONER
0260 EXEC INITIER
0270 EXEC FUNKTIONSMENU
0280 // ============= procedurer starter =============
0290 PROC DIMENSIONER
0300 // Standard variable
0310 DIM SPC$ OF 80,TAL$ OF 10,ALFA$ OF 28,SVAR$ OF 8,PRGFL$ OF 8
0320 DIM PROGRAM$ OF 17
0330 REAL RESRV,PPAR
0340 INTEGER OK,TRUE,FALSE,I,J
0350 // Hjælpevariable
0360 DIM A_KTO_NAVN$ OF 40,A_KTO_TYPE$ OF 1,A_KTONR$ OF 8,HJ_ST$ OF 10
0370 INTEGER POS,HIGH,LOW,OPRET,IDXPOS
0380 // Variable til filen SYSPARA
0390 DIM SYSPARA$ OF 17
0400 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0410 DIM DATAFL$ OF 8,T_KODE$ OF 1
0420 // Variable til filen @@PARAM
0430 DIM PARAM$ OF 17
0440 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 8
0450 REAL MOMS
0460 // Variable til filen @@KONTO
0470 DIM KONTO$ OF 17
0480 DIM ST_DATO$ OF 6
0490 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0500 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0510 REAL KTO_PRIMO,KTO_ULTIMO
0520 INTEGER KTO_FP,KTO_SP
0530 // Variable til filen @@KTOIDX
0540 DIM KTOIDX$ OF 17
0550 INTEGER I_HØJREC,I_MAXREC
0560 DIM KTONR$ OF 8
0570 INTEGER RECNR
0580 ENDPROC DIMENSIONER
0590
0600 PROC INITIER
0610 LET PRGFL$ := "DP2"
0620 LET PROGRAM$ := PRGFL$ + ":SYS"
0630 LET TAL$ := "0123456789"
0640 FOR I := ╱cc╱ ("A") TO ("Å") DO LET ALFA$ := ALFA$ + CHR$ (I)
0650 LET SPC$ := " "
0660 LET SPC$ := SPC$ + SPC$
0670 LET FALSE := 0 ; TRUE := 1 // boolske variable
0680 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0690 EXEC OPENFIL(SYSPARA$,"R")
0700 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0710 EXEC TERMINAL_IDX
0720 CLOSE SYSPARA$
0730 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0740 EXEC OPENFIL(PARAM$,"R")
0750 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0760 CLOSE PARAM$
0770 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0780 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0790 EXEC OPENFIL(KTOIDX$,"W")
0800 EXEC OPENFIL(KONTO$,"W")
0810 ENDPROC INITIER
0820
0830 PROC FUNKTIONSMENU
0840 REPEAT
0850 EXEC OVERSKRIFT("Kontofunktioner",6)
0860 PRINT "<C2309>Opret/ret konti OK"
0870 PRINT "<C2311>Slet konti SK"
0880 PRINT "<C2314>Programfordeler RETURN"
0890 LET SVAR$ := " "
0900 REPEAT
0910 EDIT "<C2617>Indtast funktionskode: " : SVAR$(1 : 2)
0920 EXEC SL_FEJLLINIE
0930 IF "/" + SVAR$ + "/" IN "/ /OK/ok/SK/sk//" THEN
0940 EXEC FEJL("Ulovlig funktionskode: '" + SVAR$ + "'")
0950 ENDIF
0960 UNTIL "/" + SVAR$ + "/" IN "/ /OK/ok/SK/sk//"
0970 CASE SVAR$ OF
0980 WHILE "OK","ok"
0990 EXEC OPRET_RET_KONTI
1000 WHILE "SK","sk"
1010 EXEC SLET_KONTI
1020 OTHERWISE
1030 CLOSE
1040 CHAIN PROGRAM$
1050 ENDCASE
1060 UNTIL FALSE
1070 ENDPROC FUNKTIONSMENU
1080 //
1090 PROC TERMINAL_IDX
1100 LET PPAR := 5 ; RESRV := 0
1110 CALL :PRES"
1120 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
1130 ENDPROC TERMINAL_IDX
1140
1150 PROC OPENFIL(FNAVN$,WAY$)
1160 REPEAT
1170 IF AY$ = "W" OR WAY$ = "w" THEN
1180 OPEN FNAVN$,W
1190 ELSE
1200 OPEN FNAVN$,R
1210 ENDIF
1220 IF (FNAVN$) THEN
1230 PRINT "<S>" ; CHR$ (7)
1240 IF (FNAVN$) = 6 THEN
1250 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
1260 INPUT "" : SVAR$
1270 ELSE
1280 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
1290 PRINT "<S>" ; FNAVN$ ; " ***"
1300 INPUT "" : SVAR$
1310 PRINT "<C0102>" ; SPC$
1320 ENDIF
1330 ENDIF
1340 UNTIL NOT ╱cd╱ (FNAVN$)
1350 ENDPROC OPENFIL
1360
1370 PROC OVERSKRIFT(ST$,L)
1380 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
1390 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
1400 PRINT SYST_DAT$(5 : 2)
1410 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
1420 PRINT "*** " ; ST$ ; " ***"
1430 ENDPROC OVERSKRIFT
1440
1450 PROC SL_FEJLLINIE
1460 LET OK := TRUE
1470 PRINT "<C0102>" ; SPC$
1480 ENDPROC SL_FEJLLINIE
1490
1500 PROC FEJL(ST$)
1510 LET OK := FALSE
1520 CURSOR 36 - ( ╱cb╱ (ST$) / 2),2
1530 PRINT "<S>*** " + ST$ + " ***" ; CHR$ (7)
1540 ENDPROC FEJL
1550
1560 PROC OPRET_RET_KONTI
1570 REPEAT
1580 LET A_KTONR$ := "" ; A_KTO_TYPE$ := "" ; KTO_NAVN$ := ""
1590 EXEC OVERSKRIFT("Opret/ret konti",6)
1600 FOR I := 1 TO DO
1610 EXEC RET_LINIE(I)
1620 NEXT I
1630 REPEAT
1640 LET SVAR$ := " "
1650 REPEAT
1660 PRINT "<SC0118>" ; SPC$(1 : 78)
1670 IF PRET THEN
1680 GET KONTO$,1 : N_FRIREC,N_MAXREC
1690 IF _FRIREC > N_MAXREC THEN
1700 EXEC FEJL("Der kan ikke oprettes flere konti")
1710 INPUT "<SC6524>Tryk <RETURN>" : SVAR$
1720 // CHAIN PROGRAM$
1730 ENDIF
1740 LET HJ_ST$ := "/J/j/N/n/"
1750 PRINT "<SC1318>Opret konto (j/n) eller linienummer der skal "
1760 ELSE
1770 LET HJ_ST$ := "/J/j/"
1780 PRINT "<SC1218>Kontooplysninger ok (j) eller linienummer der skal "
1790 ENDIF
1800 EDIT "rettes? " : SVAR$(1)
1810 EXEC SL_FEJLLINIE
1820 IF "/" + SVAR$(1) + "/" IN HJ_ST$ THEN
1830 EXEC TAL_CONTROL(SVAR$)
1840 IF OK THEN EXEC RET_LINIE( ASC (SVAR$))
1850 LET OK := FALSE ; SVAR$ := " "
1860 ENDIF
1870 UNTIL ╱cb╱ (SVAR$) > 0 AND OK
1880 UNTIL "/" + SVAR$ + "/" IN HJ_ST$
1890 IF "/" + SVAR$ + "/" IN "/J/j/" THEN EXEC SKRIV_KONTOOPL
1900 CLEAR
1910 LET SVAR$ := "j"
1920 EDIT "<C1212>Opret/ret flere konti (j/n)? " : SVAR$(1)
1930 UNTIL NOT "/" + SVAR$ + "/" IN "/J/j/"
1940 ENDPROC OPRET_RET_KONTI
1950
1960 PROC RET_LINIE(R_LIN)
1970 CASE R_LIN OF
1980 WHILE 1
1990 REPEAT
2000 EDIT "<C1710>1. Kontonr : " : A_KTONR$
2010 UNTIL NOT A_KTONR$ IN " "
2020 LET IDXPOS := FIND_KTO(A_KTONR$)
2030 IF OPRET = OK THEN LET KTO_NAVN$ := ""
2040 IF OK THEN
2050 LET OPRET := TRUE
2060 ELSE
2070 EXEC LÆS_KONTO(RECNR)
2080 LET A_KTO_TYPE$ := KTO_TYPE$
2090 LET OPRET := FALSE
2100 ENDIF
2110 PRINT "<C1711>2. Kontonavn: " ; KTO_NAVN$ ; SPC$(1 : 40 - ╱cb╱ (KTO_NAVN$))
2120 PRINT "<C1712>3. Kontotype: " ; A_KTO_TYPE$ ; SPC$(1)
2130 WHILE 2
2140 EDIT "<C1711>2. Kontonavn: " : KTO_NAVN$
2150 WHILE 3
2160 IF _KTO_TYPE$ >< "A" OR OPRET THEN
2170 IF A_KTO_TYPE$ IN " " THEN LET A_KTO_TYPE$ := "A"
2180 REPEAT
2190 EDIT "<C1712>3. Kontotype: " : A_KTO_TYPE$
2200 EXEC SL_FEJLLINIE
2210 EXEC ST_BGST(A_KTO_TYPE$)
2220 IF "/" + A_KTO_TYPE$ + "/" IN "/A/B/C/D/E/F/G/H/I/J/K/L/" THEN
2230 EXEC FEJL("Ulovlig kontotype: '" + A_KTO_TYPE$ + "'")
2240 ELSE
2250 PRINT "<C1712>3. Kontotype: " ; A_KTO_TYPE$
2260 LET OK := TRUE
2270 ELSE
2280 ENDIF
2290 UNTIL OK
2300 ENDIF
2310 ENDCASE
2320 ENDPROC RET_LINIE
2330
2340 PROC SKRIV_KONTOOPL
2350 IF OPRET THEN EXEC FIND_IDXPLADS
2360 LET KTO_TYPE$ := A_KTO_TYPE$
2370 EXEC SKRIV_KONTO(RECNR)
2380 ENDPROC SKRIV_KONTOOPL
2390
2400 PROC FIND_IDXPLADS
2410 EXEC FIND_TOM_PLADS(A_RECNR)
2420 LET I_HØJREC := I_HØJREC + 1 ; IDXPOS := IDXPOS
2430 FOR I := I_HØJREC - 1 TO DXPOS STEP - 1 DO
2440 GET KTOIDX$,I : KTONR$,RECNR
2450 PUT KTOIDX$,I + 1 : KTONR$,RECNR
2460 NEXT I
2470 LET KTONR$ := A_KTONR$ ; RECNR := A_RECNR
2480 PUT KTOIDX$,IDXPOS : KTONR$,RECNR
2490 PUT KTOIDX$,1 : I_HØJREC,I_MAXREC
2500 LET KTO_PRIMO,KTO_ULTIMO := 0 ; KTO_FP,KTO_SP := 0
2510 ENDPROC FIND_IDXPLADS
2520
2530 PROC FIND_TOM_PLADS( REF R_NR)
2540 GET KONTO$,1 : N_FRIREC,N_MAXREC
2550 LET R_NR := N_FRIREC
2560 GET KONTO$,N_FRIREC : N_FRIREC
2570 PUT KONTO$,1 : N_FRIREC,N_MAXREC
2580 ENDPROC FIND_TOM_PLADS
2590 PROC LÆS_KONTO(P)
2600 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
2610 ENDPROC LÆS_KONTO
2620
2630 PROC SKRIV_KONTO(P)
2640 PUT KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
2650 ENDPROC SKRIV_KONTO
2660
2670 PROC ST_BGST( REF RST$)
2680 FOR J := 1 TO (RST$) DO
2690 IF "a" =< RST$(J) AND RST$(J) =< "å" THEN LET RST$(J) := CHR$ ( ╱cc╱ (RST$(J)) - 32)
2700 NEXT J
2710 ENDPROC ST_BGST
2720
2730 PROC TAL_CONTROL( REF RST$)
2740 LET J := 0 ; OK := TRUE
2750 FOR I := 1 TO (RST$) DO
2760 IF RST$(I) IN "0123456789" THEN LET J := J + 1 ; RST$(J) := RST$(I)
2770 NEXT I
2780 IF = 0 THEN
2790 LET OK := FALSE
2800 ELSE
2810 LET RST$ := RST$(1 : J)
2820 ENDIF
2830 ENDPROC TAL_CONTROL
2840
2850 PROC SLET_KONTI
2860 REPEAT
2870 EXEC OVERSKRIFT("Slet konti",6)
2880 LET A_KTONR$ := "" ; A_KTO_TYPE$ := "" ; KTO_NAVN$ := ""
2890 REPEAT
2900 EXEC RET_LINIE(1)
2910 EXEC SL_FEJLLINIE
2920 IF OPRET THEN EXEC FEJL("konto eksisterer ikke")
2930 IF K THEN
2940 IF KTO_ULTIMO >< 0 THEN EXEC FEJL("Ulovlig sletning: Saldo <> 0 ")
2950 ENDIF
2960 UNTIL OK
2970 REPEAT
2980 LET SVAR$ := " "
2990 EDIT "<C2718>Slet konto (j/n)? " : SVAR$(1)
3000 UNTIL "/" + SVAR$(1) + "/" IN "/J/j/N/n/"
3010 IF "/" + SVAR$(1) + "/" IN "/J/j/" THEN EXEC SLET
3020 CLEAR
3030 LET SVAR$ := "j"
3040 EDIT "<C1212>Skal der slettes flere konti (j/n)? " : SVAR$(1)
3050 UNTIL NOT "/" + SVAR$ + "/" IN "/J/j/"
3060 ENDPROC SLET_KONTI
3070
3080 PROC SLET
3090 LET KTO_TYPE$ := "*"
3100 EXEC SKRIV_KONTO(RECNR)
3110 GET KONTO$,1 : N_FRIREC,N_MAXREC
3120 PUT KONTO$,RECNR : N_FRIREC
3130 LET N_FRIREC := RECNR
3140 PUT KONTO$,1 : N_FRIREC,N_MAXREC
3150 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
3160 FOR I := IDXPOS TO _HØJREC - 1 DO
3170 GET KTOIDX$,I + 1 : KTONR$,RECNR
3180 PUT KTOIDX$,I : KTONR$,RECNR
3190 NEXT I
3200 LET I_HØJREC := I_HØJREC - 1
3210 PUT KTOIDX$,1 : I_HØJREC,I_MAXREC
3220 ENDPROC SLET
3230 PROC FIND_KTO( REF R_KTONR$)
3240 LET OK := FALSE
3250 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
3260 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
3270 IF IGH > 1 THEN
3280 REPEAT
3290 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
3300 GET KTOIDX$,POS : KTONR$,RECNR
3310 IF TONR$ > R_KTONR$ THEN
3320 LET HIGH := POS
3330 ELSE
3340 IF TONR$ < R_KTONR$ THEN
3350 LET LOW := POS
3360 ENDIF
3370 ENDIF
3380 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
3390 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
3400 GET KTOIDX$,POS : KTONR$,RECNR
3410 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
3420 IF KTONR$ < R_KTONR$ AND POS = I_HØJREC THEN LET POS := POS + 1
3430 ENDIF
3440 LET FIND_KTO := POS
3450 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…0379 9967 0270 EXEC FUNKTIONSMENU
0x0366…0379 LineComal80 {
0x0366…0379 ptr = 0x9967 // 0x366 @0x0
0x0366…0379 lno = 0x010e // 0x368 @0x2
0x0366…0379 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0379 at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…0379 at0006 = ╱55╱U╱ // 0x36c @0x6
0x0366…0379 at0007 = ╱4e╱N╱ // 0x36d @0x7
0x0366…0379 at0008 = ╱4b╱K╱ // 0x36e @0x8
0x0366…0379 at0009 = ╱54╱T╱ // 0x36f @0x9
0x0366…0379 at000a = ╱49╱I╱ // 0x370 @0xa
0x0366…0379 at000b = ╱4f╱O╱ // 0x371 @0xb
0x0366…0379 at000c = ╱4e╱N╱ // 0x372 @0xc
0x0366…0379 at000d = ╱53╱S╱ // 0x373 @0xd
0x0366…0379 at000e = ╱4d╱M╱ // 0x374 @0xe
0x0366…0379 at000f = ╱45╱E╱ // 0x375 @0xf
0x0366…0379 at0010 = ╱4e╱N╱ // 0x376 @0x10
0x0366…0379 at0011 = ╱55╱U╱ // 0x377 @0x11
0x0366…0379 at0012 = EOL // 0x378 @0x12
0x0366…0379 }
0x0379…03ad 999b 0280 // ============= procedurer starter =============
0x0379…03ad LineComal80 {
0x0379…03ad ptr = 0x999b // 0x379 @0x0
0x0379…03ad lno = 0x0118 // 0x37b @0x2
0x0379…03ad at0004 = ╱89╱ // ╱ // 0x37d @0x4
0x0379…03ad at0005 = ╱3d╱=╱ // 0x37e @0x5
0x0379…03ad at0006 = ╱3d╱=╱ // 0x37f @0x6
0x0379…03ad at0007 = ╱3d╱=╱ // 0x380 @0x7
0x0379…03ad at0008 = ╱3d╱=╱ // 0x381 @0x8
0x0379…03ad at0009 = ╱3d╱=╱ // 0x382 @0x9
0x0379…03ad at000a = ╱3d╱=╱ // 0x383 @0xa
0x0379…03ad at000b = ╱3d╱=╱ // 0x384 @0xb
0x0379…03ad at000c = ╱3d╱=╱ // 0x385 @0xc
0x0379…03ad at000d = ╱3d╱=╱ // 0x386 @0xd
0x0379…03ad at000e = ╱3d╱=╱ // 0x387 @0xe
0x0379…03ad at000f = ╱3d╱=╱ // 0x388 @0xf
0x0379…03ad at0010 = ╱3d╱=╱ // 0x389 @0x10
0x0379…03ad at0011 = ╱3d╱=╱ // 0x38a @0x11
0x0379…03ad at0012 = ╱20╱…╱ // 0x38b @0x12
0x0379…03ad at0013 = ╱70╱p╱ // 0x38c @0x13
0x0379…03ad at0014 = ╱72╱r╱ // 0x38d @0x14
0x0379…03ad at0015 = ╱6f╱o╱ // 0x38e @0x15
0x0379…03ad at0016 = ╱63╱c╱ // 0x38f @0x16
0x0379…03ad at0017 = ╱65╱e╱ // 0x390 @0x17
0x0379…03ad at0018 = ╱64╱d╱ // 0x391 @0x18
0x0379…03ad at0019 = ╱75╱u╱ // 0x392 @0x19
0x0379…03ad at001a = ╱72╱r╱ // 0x393 @0x1a
0x0379…03ad at001b = ╱65╱e╱ // 0x394 @0x1b
0x0379…03ad at001c = ╱72╱r╱ // 0x395 @0x1c
0x0379…03ad at001d = ╱20╱…╱ // 0x396 @0x1d
0x0379…03ad at001e = ╱73╱s╱ // 0x397 @0x1e
0x0379…03ad at001f = ╱74╱t╱ // 0x398 @0x1f
0x0379…03ad at0020 = ╱61╱a╱ // 0x399 @0x20
0x0379…03ad at0021 = ╱72╱r╱ // 0x39a @0x21
0x0379…03ad at0022 = ╱74╱t╱ // 0x39b @0x22
0x0379…03ad at0023 = ╱65╱e╱ // 0x39c @0x23
0x0379…03ad at0024 = ╱72╱r╱ // 0x39d @0x24
0x0379…03ad at0025 = ╱20╱…╱ // 0x39e @0x25
0x0379…03ad at0026 = ╱3d╱=╱ // 0x39f @0x26
0x0379…03ad at0027 = ╱3d╱=╱ // 0x3a0 @0x27
0x0379…03ad at0028 = ╱3d╱=╱ // 0x3a1 @0x28
0x0379…03ad at0029 = ╱3d╱=╱ // 0x3a2 @0x29
0x0379…03ad at002a = ╱3d╱=╱ // 0x3a3 @0x2a
0x0379…03ad at002b = ╱3d╱=╱ // 0x3a4 @0x2b
0x0379…03ad at002c = ╱3d╱=╱ // 0x3a5 @0x2c
0x0379…03ad at002d = ╱3d╱=╱ // 0x3a6 @0x2d
0x0379…03ad at002e = ╱3d╱=╱ // 0x3a7 @0x2e
0x0379…03ad at002f = ╱3d╱=╱ // 0x3a8 @0x2f
0x0379…03ad at0030 = ╱3d╱=╱ // 0x3a9 @0x30
0x0379…03ad at0031 = ╱3d╱=╱ // 0x3aa @0x31
0x0379…03ad at0032 = ╱3d╱=╱ // 0x3ab @0x32
0x0379…03ad at0033 = EOL // 0x3ac @0x33
0x0379…03ad }
0x03ad…03bf 99ad 0290 PROC DIMENSIONER
0x03ad…03bf LineComal80 {
0x03ad…03bf ptr = 0x99ad // 0x3ad @0x0
0x03ad…03bf lno = 0x0122 // 0x3af @0x2
0x03ad…03bf at0004 = ╱9e01╱ PROC ╱ // 0x3b1 @0x4
0x03ad…03bf at0006 = ╱44╱D╱ // 0x3b3 @0x6
0x03ad…03bf at0007 = ╱49╱I╱ // 0x3b4 @0x7
0x03ad…03bf at0008 = ╱4d╱M╱ // 0x3b5 @0x8
0x03ad…03bf at0009 = ╱45╱E╱ // 0x3b6 @0x9
0x03ad…03bf at000a = ╱4e╱N╱ // 0x3b7 @0xa
0x03ad…03bf at000b = ╱53╱S╱ // 0x3b8 @0xb
0x03ad…03bf at000c = ╱49╱I╱ // 0x3b9 @0xc
0x03ad…03bf at000d = ╱4f╱O╱ // 0x3ba @0xd
0x03ad…03bf at000e = ╱4e╱N╱ // 0x3bb @0xe
0x03ad…03bf at000f = ╱45╱E╱ // 0x3bc @0xf
0x03ad…03bf at0010 = ╱52╱R╱ // 0x3bd @0x10
0x03ad…03bf at0011 = EOL // 0x3be @0x11
0x03ad…03bf }
0x03bf…03d6 99c4 0300 // Standard variable
0x03bf…03d6 LineComal80 {
0x03bf…03d6 ptr = 0x99c4 // 0x3bf @0x0
0x03bf…03d6 lno = 0x012c // 0x3c1 @0x2
0x03bf…03d6 at0004 = ╱89╱ // ╱ // 0x3c3 @0x4
0x03bf…03d6 at0005 = ╱53╱S╱ // 0x3c4 @0x5
0x03bf…03d6 at0006 = ╱74╱t╱ // 0x3c5 @0x6
0x03bf…03d6 at0007 = ╱61╱a╱ // 0x3c6 @0x7
0x03bf…03d6 at0008 = ╱6e╱n╱ // 0x3c7 @0x8
0x03bf…03d6 at0009 = ╱64╱d╱ // 0x3c8 @0x9
0x03bf…03d6 at000a = ╱61╱a╱ // 0x3c9 @0xa
0x03bf…03d6 at000b = ╱72╱r╱ // 0x3ca @0xb
0x03bf…03d6 at000c = ╱64╱d╱ // 0x3cb @0xc
0x03bf…03d6 at000d = ╱20╱…╱ // 0x3cc @0xd
0x03bf…03d6 at000e = ╱76╱v╱ // 0x3cd @0xe
0x03bf…03d6 at000f = ╱61╱a╱ // 0x3ce @0xf
0x03bf…03d6 at0010 = ╱72╱r╱ // 0x3cf @0x10
0x03bf…03d6 at0011 = ╱69╱i╱ // 0x3d0 @0x11
0x03bf…03d6 at0012 = ╱61╱a╱ // 0x3d1 @0x12
0x03bf…03d6 at0013 = ╱62╱b╱ // 0x3d2 @0x13
0x03bf…03d6 at0014 = ╱6c╱l╱ // 0x3d3 @0x14
0x03bf…03d6 at0015 = ╱65╱e╱ // 0x3d4 @0x15
0x03bf…03d6 at0016 = EOL // 0x3d5 @0x16
0x03bf…03d6 }
0x03d6…0414 9a02 0310 DIM SPC$ OF 80,TAL$ OF 10,ALFA$ OF 28,SVAR$ OF 8,PRGFL$ OF 8
0x03d6…0414 LineComal80 {
0x03d6…0414 ptr = 0x9a02 // 0x3d6 @0x0
0x03d6…0414 lno = 0x0136 // 0x3d8 @0x2
0x03d6…0414 at0004 = ╱87╱ DIM ╱ // 0x3da @0x4
0x03d6…0414 at0005 = ╱53╱S╱ // 0x3db @0x5
0x03d6…0414 at0006 = ╱50╱P╱ // 0x3dc @0x6
0x03d6…0414 at0007 = ╱43╱C╱ // 0x3dd @0x7
0x03d6…0414 at0008 = ╱ef╱$╱ // 0x3de @0x8
0x03d6…0414 at0009 = ╱ba╱ OF ╱ // 0x3df @0x9
0x03d6…0414 at000a = ╱38╱8╱ // 0x3e0 @0xa
0x03d6…0414 at000b = ╱30╱0╱ // 0x3e1 @0xb
0x03d6…0414 at000c = ╱f25000╱ // 0x3e2 @0xc
0x03d6…0414 at000f = ╱ec╱,╱ // 0x3e5 @0xf
0x03d6…0414 at0010 = ╱54╱T╱ // 0x3e6 @0x10
0x03d6…0414 at0011 = ╱41╱A╱ // 0x3e7 @0x11
0x03d6…0414 at0012 = ╱4c╱L╱ // 0x3e8 @0x12
0x03d6…0414 at0013 = ╱ef╱$╱ // 0x3e9 @0x13
0x03d6…0414 at0014 = ╱ba╱ OF ╱ // 0x3ea @0x14
0x03d6…0414 at0015 = ╱31╱1╱ // 0x3eb @0x15
0x03d6…0414 at0016 = ╱30╱0╱ // 0x3ec @0x16
0x03d6…0414 at0017 = ╱f20a00╱ // 0x3ed @0x17
0x03d6…0414 at001a = ╱ec╱,╱ // 0x3f0 @0x1a
0x03d6…0414 at001b = ╱41╱A╱ // 0x3f1 @0x1b
0x03d6…0414 at001c = ╱4c╱L╱ // 0x3f2 @0x1c
0x03d6…0414 at001d = ╱46╱F╱ // 0x3f3 @0x1d
0x03d6…0414 at001e = ╱41╱A╱ // 0x3f4 @0x1e
0x03d6…0414 at001f = ╱ef╱$╱ // 0x3f5 @0x1f
0x03d6…0414 at0020 = ╱ba╱ OF ╱ // 0x3f6 @0x20
0x03d6…0414 at0021 = ╱32╱2╱ // 0x3f7 @0x21
0x03d6…0414 at0022 = ╱38╱8╱ // 0x3f8 @0x22
0x03d6…0414 at0023 = ╱f21c00╱ // 0x3f9 @0x23
0x03d6…0414 at0026 = ╱ec╱,╱ // 0x3fc @0x26
0x03d6…0414 at0027 = ╱53╱S╱ // 0x3fd @0x27
0x03d6…0414 at0028 = ╱56╱V╱ // 0x3fe @0x28
0x03d6…0414 at0029 = ╱41╱A╱ // 0x3ff @0x29
0x03d6…0414 at002a = ╱52╱R╱ // 0x400 @0x2a
0x03d6…0414 at002b = ╱ef╱$╱ // 0x401 @0x2b
0x03d6…0414 at002c = ╱ba╱ OF ╱ // 0x402 @0x2c
0x03d6…0414 at002d = ╱38╱8╱ // 0x403 @0x2d
0x03d6…0414 at002e = ╱f20800╱ // 0x404 @0x2e
0x03d6…0414 at0031 = ╱ec╱,╱ // 0x407 @0x31
0x03d6…0414 at0032 = ╱50╱P╱ // 0x408 @0x32
0x03d6…0414 at0033 = ╱52╱R╱ // 0x409 @0x33
0x03d6…0414 at0034 = ╱47╱G╱ // 0x40a @0x34
0x03d6…0414 at0035 = ╱46╱F╱ // 0x40b @0x35
0x03d6…0414 at0036 = ╱4c╱L╱ // 0x40c @0x36
0x03d6…0414 at0037 = ╱ef╱$╱ // 0x40d @0x37
0x03d6…0414 at0038 = ╱ba╱ OF ╱ // 0x40e @0x38
0x03d6…0414 at0039 = ╱38╱8╱ // 0x40f @0x39
0x03d6…0414 at003a = ╱f20800╱ // 0x410 @0x3a
0x03d6…0414 at003d = EOL // 0x413 @0x3d
0x03d6…0414 }
0x0414…0428 9a16 0320 DIM PROGRAM$ OF 17
0x0414…0428 LineComal80 {
0x0414…0428 ptr = 0x9a16 // 0x414 @0x0
0x0414…0428 lno = 0x0140 // 0x416 @0x2
0x0414…0428 at0004 = ╱87╱ DIM ╱ // 0x418 @0x4
0x0414…0428 at0005 = ╱50╱P╱ // 0x419 @0x5
0x0414…0428 at0006 = ╱52╱R╱ // 0x41a @0x6
0x0414…0428 at0007 = ╱4f╱O╱ // 0x41b @0x7
0x0414…0428 at0008 = ╱47╱G╱ // 0x41c @0x8
0x0414…0428 at0009 = ╱52╱R╱ // 0x41d @0x9
0x0414…0428 at000a = ╱41╱A╱ // 0x41e @0xa
0x0414…0428 at000b = ╱4d╱M╱ // 0x41f @0xb
0x0414…0428 at000c = ╱ef╱$╱ // 0x420 @0xc
0x0414…0428 at000d = ╱ba╱ OF ╱ // 0x421 @0xd
0x0414…0428 at000e = ╱31╱1╱ // 0x422 @0xe
0x0414…0428 at000f = ╱37╱7╱ // 0x423 @0xf
0x0414…0428 at0010 = ╱f21100╱ // 0x424 @0x10
0x0414…0428 at0013 = EOL // 0x427 @0x13
0x0414…0428 }
0x0428…0438 9a26 0330 REAL RESRV,PPAR
0x0428…0438 LineComal80 {
0x0428…0438 ptr = 0x9a26 // 0x428 @0x0
0x0428…0438 lno = 0x014a // 0x42a @0x2
0x0428…0438 at0004 = ╱b3╱ REAL ╱ // 0x42c @0x4
0x0428…0438 at0005 = ╱52╱R╱ // 0x42d @0x5
0x0428…0438 at0006 = ╱45╱E╱ // 0x42e @0x6
0x0428…0438 at0007 = ╱53╱S╱ // 0x42f @0x7
0x0428…0438 at0008 = ╱52╱R╱ // 0x430 @0x8
0x0428…0438 at0009 = ╱56╱V╱ // 0x431 @0x9
0x0428…0438 at000a = ╱ec╱,╱ // 0x432 @0xa
0x0428…0438 at000b = ╱50╱P╱ // 0x433 @0xb
0x0428…0438 at000c = ╱50╱P╱ // 0x434 @0xc
0x0428…0438 at000d = ╱41╱A╱ // 0x435 @0xd
0x0428…0438 at000e = ╱52╱R╱ // 0x436 @0xe
0x0428…0438 at000f = EOL // 0x437 @0xf
0x0428…0438 }
0x0438…044f 9a3d 0340 INTEGER OK,TRUE,FALSE,I,J
0x0438…044f LineComal80 {
0x0438…044f ptr = 0x9a3d // 0x438 @0x0
0x0438…044f lno = 0x0154 // 0x43a @0x2
0x0438…044f at0004 = ╱b2╱ INTEGER ╱ // 0x43c @0x4
0x0438…044f at0005 = ╱4f╱O╱ // 0x43d @0x5
0x0438…044f at0006 = ╱4b╱K╱ // 0x43e @0x6
0x0438…044f at0007 = ╱ec╱,╱ // 0x43f @0x7
0x0438…044f at0008 = ╱54╱T╱ // 0x440 @0x8
0x0438…044f at0009 = ╱52╱R╱ // 0x441 @0x9
0x0438…044f at000a = ╱55╱U╱ // 0x442 @0xa
0x0438…044f at000b = ╱45╱E╱ // 0x443 @0xb
0x0438…044f at000c = ╱ec╱,╱ // 0x444 @0xc
0x0438…044f at000d = ╱46╱F╱ // 0x445 @0xd
0x0438…044f at000e = ╱41╱A╱ // 0x446 @0xe
0x0438…044f at000f = ╱4c╱L╱ // 0x447 @0xf
0x0438…044f at0010 = ╱53╱S╱ // 0x448 @0x10
0x0438…044f at0011 = ╱45╱E╱ // 0x449 @0x11
0x0438…044f at0012 = ╱ec╱,╱ // 0x44a @0x12
0x0438…044f at0013 = ╱49╱I╱ // 0x44b @0x13
0x0438…044f at0014 = ╱ec╱,╱ // 0x44c @0x14
0x0438…044f at0015 = ╱4a╱J╱ // 0x44d @0x15
0x0438…044f at0016 = EOL // 0x44e @0x16
0x0438…044f }
0x044f…0463 9a51 0350 // Hjælpevariable
0x044f…0463 LineComal80 {
0x044f…0463 ptr = 0x9a51 // 0x44f @0x0
0x044f…0463 lno = 0x015e // 0x451 @0x2
0x044f…0463 at0004 = ╱89╱ // ╱ // 0x453 @0x4
0x044f…0463 at0005 = ╱48╱H╱ // 0x454 @0x5
0x044f…0463 at0006 = ╱6a╱j╱ // 0x455 @0x6
0x044f…0463 at0007 = ╱7b╱æ╱ // 0x456 @0x7
0x044f…0463 at0008 = ╱6c╱l╱ // 0x457 @0x8
0x044f…0463 at0009 = ╱70╱p╱ // 0x458 @0x9
0x044f…0463 at000a = ╱65╱e╱ // 0x459 @0xa
0x044f…0463 at000b = ╱76╱v╱ // 0x45a @0xb
0x044f…0463 at000c = ╱61╱a╱ // 0x45b @0xc
0x044f…0463 at000d = ╱72╱r╱ // 0x45c @0xd
0x044f…0463 at000e = ╱69╱i╱ // 0x45d @0xe
0x044f…0463 at000f = ╱61╱a╱ // 0x45e @0xf
0x044f…0463 at0010 = ╱62╱b╱ // 0x45f @0x10
0x044f…0463 at0011 = ╱6c╱l╱ // 0x460 @0x11
0x044f…0463 at0012 = ╱65╱e╱ // 0x461 @0x12
0x044f…0463 at0013 = EOL // 0x462 @0x13
0x044f…0463 }
0x0463…04a6 9a94 0360 DIM A_KTO_NAVN$ OF 40,A_KTO_TYPE$ OF 1,A_KTONR$ OF 8,HJ_ST$ OF 10
0x0463…04a6 LineComal80 {
0x0463…04a6 ptr = 0x9a94 // 0x463 @0x0
0x0463…04a6 lno = 0x0168 // 0x465 @0x2
0x0463…04a6 at0004 = ╱87╱ DIM ╱ // 0x467 @0x4
0x0463…04a6 at0005 = ╱41╱A╱ // 0x468 @0x5
0x0463…04a6 at0006 = ╱5f╱_╱ // 0x469 @0x6
0x0463…04a6 at0007 = ╱4b╱K╱ // 0x46a @0x7
0x0463…04a6 at0008 = ╱54╱T╱ // 0x46b @0x8
0x0463…04a6 at0009 = ╱4f╱O╱ // 0x46c @0x9
0x0463…04a6 at000a = ╱5f╱_╱ // 0x46d @0xa
0x0463…04a6 at000b = ╱4e╱N╱ // 0x46e @0xb
0x0463…04a6 at000c = ╱41╱A╱ // 0x46f @0xc
0x0463…04a6 at000d = ╱56╱V╱ // 0x470 @0xd
0x0463…04a6 at000e = ╱4e╱N╱ // 0x471 @0xe
0x0463…04a6 at000f = ╱ef╱$╱ // 0x472 @0xf
0x0463…04a6 at0010 = ╱ba╱ OF ╱ // 0x473 @0x10
0x0463…04a6 at0011 = ╱34╱4╱ // 0x474 @0x11
0x0463…04a6 at0012 = ╱30╱0╱ // 0x475 @0x12
0x0463…04a6 at0013 = ╱f22800╱ // 0x476 @0x13
0x0463…04a6 at0016 = ╱ec╱,╱ // 0x479 @0x16
0x0463…04a6 at0017 = ╱41╱A╱ // 0x47a @0x17
0x0463…04a6 at0018 = ╱5f╱_╱ // 0x47b @0x18
0x0463…04a6 at0019 = ╱4b╱K╱ // 0x47c @0x19
0x0463…04a6 at001a = ╱54╱T╱ // 0x47d @0x1a
0x0463…04a6 at001b = ╱4f╱O╱ // 0x47e @0x1b
0x0463…04a6 at001c = ╱5f╱_╱ // 0x47f @0x1c
0x0463…04a6 at001d = ╱54╱T╱ // 0x480 @0x1d
0x0463…04a6 at001e = ╱59╱Y╱ // 0x481 @0x1e
0x0463…04a6 at001f = ╱50╱P╱ // 0x482 @0x1f
0x0463…04a6 at0020 = ╱45╱E╱ // 0x483 @0x20
0x0463…04a6 at0021 = ╱ef╱$╱ // 0x484 @0x21
0x0463…04a6 at0022 = ╱ba╱ OF ╱ // 0x485 @0x22
0x0463…04a6 at0023 = ╱31╱1╱ // 0x486 @0x23
0x0463…04a6 at0024 = ╱f20100╱ // 0x487 @0x24
0x0463…04a6 at0027 = ╱ec╱,╱ // 0x48a @0x27
0x0463…04a6 at0028 = ╱41╱A╱ // 0x48b @0x28
0x0463…04a6 at0029 = ╱5f╱_╱ // 0x48c @0x29
0x0463…04a6 at002a = ╱4b╱K╱ // 0x48d @0x2a
0x0463…04a6 at002b = ╱54╱T╱ // 0x48e @0x2b
0x0463…04a6 at002c = ╱4f╱O╱ // 0x48f @0x2c
0x0463…04a6 at002d = ╱4e╱N╱ // 0x490 @0x2d
0x0463…04a6 at002e = ╱52╱R╱ // 0x491 @0x2e
0x0463…04a6 at002f = ╱ef╱$╱ // 0x492 @0x2f
0x0463…04a6 at0030 = ╱ba╱ OF ╱ // 0x493 @0x30
0x0463…04a6 at0031 = ╱38╱8╱ // 0x494 @0x31
0x0463…04a6 at0032 = ╱f20800╱ // 0x495 @0x32
0x0463…04a6 at0035 = ╱ec╱,╱ // 0x498 @0x35
0x0463…04a6 at0036 = ╱48╱H╱ // 0x499 @0x36
0x0463…04a6 at0037 = ╱4a╱J╱ // 0x49a @0x37
0x0463…04a6 at0038 = ╱5f╱_╱ // 0x49b @0x38
0x0463…04a6 at0039 = ╱53╱S╱ // 0x49c @0x39
0x0463…04a6 at003a = ╱54╱T╱ // 0x49d @0x3a
0x0463…04a6 at003b = ╱ef╱$╱ // 0x49e @0x3b
0x0463…04a6 at003c = ╱ba╱ OF ╱ // 0x49f @0x3c
0x0463…04a6 at003d = ╱31╱1╱ // 0x4a0 @0x3d
0x0463…04a6 at003e = ╱30╱0╱ // 0x4a1 @0x3e
0x0463…04a6 at003f = ╱f20a00╱ // 0x4a2 @0x3f
0x0463…04a6 at0042 = EOL // 0x4a5 @0x42
0x0463…04a6 }
0x04a6…04c5 9ab3 0370 INTEGER POS,HIGH,LOW,OPRET,IDXPOS
0x04a6…04c5 LineComal80 {
0x04a6…04c5 ptr = 0x9ab3 // 0x4a6 @0x0
0x04a6…04c5 lno = 0x0172 // 0x4a8 @0x2
0x04a6…04c5 at0004 = ╱b2╱ INTEGER ╱ // 0x4aa @0x4
0x04a6…04c5 at0005 = ╱50╱P╱ // 0x4ab @0x5
0x04a6…04c5 at0006 = ╱4f╱O╱ // 0x4ac @0x6
0x04a6…04c5 at0007 = ╱53╱S╱ // 0x4ad @0x7
0x04a6…04c5 at0008 = ╱ec╱,╱ // 0x4ae @0x8
0x04a6…04c5 at0009 = ╱48╱H╱ // 0x4af @0x9
0x04a6…04c5 at000a = ╱49╱I╱ // 0x4b0 @0xa
0x04a6…04c5 at000b = ╱47╱G╱ // 0x4b1 @0xb
0x04a6…04c5 at000c = ╱48╱H╱ // 0x4b2 @0xc
0x04a6…04c5 at000d = ╱ec╱,╱ // 0x4b3 @0xd
0x04a6…04c5 at000e = ╱4c╱L╱ // 0x4b4 @0xe
0x04a6…04c5 at000f = ╱4f╱O╱ // 0x4b5 @0xf
0x04a6…04c5 at0010 = ╱57╱W╱ // 0x4b6 @0x10
0x04a6…04c5 at0011 = ╱ec╱,╱ // 0x4b7 @0x11
0x04a6…04c5 at0012 = ╱4f╱O╱ // 0x4b8 @0x12
0x04a6…04c5 at0013 = ╱50╱P╱ // 0x4b9 @0x13
0x04a6…04c5 at0014 = ╱52╱R╱ // 0x4ba @0x14
0x04a6…04c5 at0015 = ╱45╱E╱ // 0x4bb @0x15
0x04a6…04c5 at0016 = ╱54╱T╱ // 0x4bc @0x16
0x04a6…04c5 at0017 = ╱ec╱,╱ // 0x4bd @0x17
0x04a6…04c5 at0018 = ╱49╱I╱ // 0x4be @0x18
0x04a6…04c5 at0019 = ╱44╱D╱ // 0x4bf @0x19
0x04a6…04c5 at001a = ╱58╱X╱ // 0x4c0 @0x1a
0x04a6…04c5 at001b = ╱50╱P╱ // 0x4c1 @0x1b
0x04a6…04c5 at001c = ╱4f╱O╱ // 0x4c2 @0x1c
0x04a6…04c5 at001d = ╱53╱S╱ // 0x4c3 @0x1d
0x04a6…04c5 at001e = EOL // 0x4c4 @0x1e
0x04a6…04c5 }
0x04c5…04e5 9ad3 0380 // Variable til filen SYSPARA
0x04c5…04e5 LineComal80 {
0x04c5…04e5 ptr = 0x9ad3 // 0x4c5 @0x0
0x04c5…04e5 lno = 0x017c // 0x4c7 @0x2
0x04c5…04e5 at0004 = ╱89╱ // ╱ // 0x4c9 @0x4
0x04c5…04e5 at0005 = ╱56╱V╱ // 0x4ca @0x5
0x04c5…04e5 at0006 = ╱61╱a╱ // 0x4cb @0x6
0x04c5…04e5 at0007 = ╱72╱r╱ // 0x4cc @0x7
0x04c5…04e5 at0008 = ╱69╱i╱ // 0x4cd @0x8
0x04c5…04e5 at0009 = ╱61╱a╱ // 0x4ce @0x9
0x04c5…04e5 at000a = ╱62╱b╱ // 0x4cf @0xa
0x04c5…04e5 at000b = ╱6c╱l╱ // 0x4d0 @0xb
0x04c5…04e5 at000c = ╱65╱e╱ // 0x4d1 @0xc
0x04c5…04e5 at000d = ╱20╱…╱ // 0x4d2 @0xd
0x04c5…04e5 at000e = ╱74╱t╱ // 0x4d3 @0xe
0x04c5…04e5 at000f = ╱69╱i╱ // 0x4d4 @0xf
0x04c5…04e5 at0010 = ╱6c╱l╱ // 0x4d5 @0x10
0x04c5…04e5 at0011 = ╱20╱…╱ // 0x4d6 @0x11
0x04c5…04e5 at0012 = ╱66╱f╱ // 0x4d7 @0x12
0x04c5…04e5 at0013 = ╱69╱i╱ // 0x4d8 @0x13
0x04c5…04e5 at0014 = ╱6c╱l╱ // 0x4d9 @0x14
0x04c5…04e5 at0015 = ╱65╱e╱ // 0x4da @0x15
0x04c5…04e5 at0016 = ╱6e╱n╱ // 0x4db @0x16
0x04c5…04e5 at0017 = ╱20╱…╱ // 0x4dc @0x17
0x04c5…04e5 at0018 = ╱53╱S╱ // 0x4dd @0x18
0x04c5…04e5 at0019 = ╱59╱Y╱ // 0x4de @0x19
0x04c5…04e5 at001a = ╱53╱S╱ // 0x4df @0x1a
0x04c5…04e5 at001b = ╱50╱P╱ // 0x4e0 @0x1b
0x04c5…04e5 at001c = ╱41╱A╱ // 0x4e1 @0x1c
0x04c5…04e5 at001d = ╱52╱R╱ // 0x4e2 @0x1d
0x04c5…04e5 at001e = ╱41╱A╱ // 0x4e3 @0x1e
0x04c5…04e5 at001f = EOL // 0x4e4 @0x1f
0x04c5…04e5 }
0x04e5…04f9 9ae7 0390 DIM SYSPARA$ OF 17
0x04e5…04f9 LineComal80 {
0x04e5…04f9 ptr = 0x9ae7 // 0x4e5 @0x0
0x04e5…04f9 lno = 0x0186 // 0x4e7 @0x2
0x04e5…04f9 at0004 = ╱87╱ DIM ╱ // 0x4e9 @0x4
0x04e5…04f9 at0005 = ╱53╱S╱ // 0x4ea @0x5
0x04e5…04f9 at0006 = ╱59╱Y╱ // 0x4eb @0x6
0x04e5…04f9 at0007 = ╱53╱S╱ // 0x4ec @0x7
0x04e5…04f9 at0008 = ╱50╱P╱ // 0x4ed @0x8
0x04e5…04f9 at0009 = ╱41╱A╱ // 0x4ee @0x9
0x04e5…04f9 at000a = ╱52╱R╱ // 0x4ef @0xa
0x04e5…04f9 at000b = ╱41╱A╱ // 0x4f0 @0xb
0x04e5…04f9 at000c = ╱ef╱$╱ // 0x4f1 @0xc
0x04e5…04f9 at000d = ╱ba╱ OF ╱ // 0x4f2 @0xd
0x04e5…04f9 at000e = ╱31╱1╱ // 0x4f3 @0xe
0x04e5…04f9 at000f = ╱37╱7╱ // 0x4f4 @0xf
0x04e5…04f9 at0010 = ╱f21100╱ // 0x4f5 @0x10
0x04e5…04f9 at0013 = EOL // 0x4f8 @0x13
0x04e5…04f9 }
0x04f9…051c 9b0a 0400 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0x04f9…051c LineComal80 {
0x04f9…051c ptr = 0x9b0a // 0x4f9 @0x0
0x04f9…051c lno = 0x0190 // 0x4fb @0x2
0x04f9…051c at0004 = ╱87╱ DIM ╱ // 0x4fd @0x4
0x04f9…051c at0005 = ╱53╱S╱ // 0x4fe @0x5
0x04f9…051c at0006 = ╱59╱Y╱ // 0x4ff @0x6
0x04f9…051c at0007 = ╱53╱S╱ // 0x500 @0x7
0x04f9…051c at0008 = ╱54╱T╱ // 0x501 @0x8
0x04f9…051c at0009 = ╱5f╱_╱ // 0x502 @0x9
0x04f9…051c at000a = ╱4e╱N╱ // 0x503 @0xa
0x04f9…051c at000b = ╱41╱A╱ // 0x504 @0xb
0x04f9…051c at000c = ╱56╱V╱ // 0x505 @0xc
0x04f9…051c at000d = ╱4e╱N╱ // 0x506 @0xd
0x04f9…051c at000e = ╱ef╱$╱ // 0x507 @0xe
0x04f9…051c at000f = ╱ba╱ OF ╱ // 0x508 @0xf
0x04f9…051c at0010 = ╱33╱3╱ // 0x509 @0x10
0x04f9…051c at0011 = ╱30╱0╱ // 0x50a @0x11
0x04f9…051c at0012 = ╱f21e00╱ // 0x50b @0x12
0x04f9…051c at0015 = ╱ec╱,╱ // 0x50e @0x15
0x04f9…051c at0016 = ╱53╱S╱ // 0x50f @0x16
0x04f9…051c at0017 = ╱5f╱_╱ // 0x510 @0x17
0x04f9…051c at0018 = ╱4b╱K╱ // 0x511 @0x18
0x04f9…051c at0019 = ╱4f╱O╱ // 0x512 @0x19
0x04f9…051c at001a = ╱44╱D╱ // 0x513 @0x1a
0x04f9…051c at001b = ╱45╱E╱ // 0x514 @0x1b
0x04f9…051c at001c = ╱ef╱$╱ // 0x515 @0x1c
0x04f9…051c at001d = ╱ba╱ OF ╱ // 0x516 @0x1d
0x04f9…051c at001e = ╱31╱1╱ // 0x517 @0x1e
0x04f9…051c at001f = ╱f20100╱ // 0x518 @0x1f
0x04f9…051c at0022 = EOL // 0x51b @0x22
0x04f9…051c }
0x051c…053b 9b29 0410 DIM DATAFL$ OF 8,T_KODE$ OF 1
0x051c…053b LineComal80 {
0x051c…053b ptr = 0x9b29 // 0x51c @0x0
0x051c…053b lno = 0x019a // 0x51e @0x2
0x051c…053b at0004 = ╱87╱ DIM ╱ // 0x520 @0x4
0x051c…053b at0005 = ╱44╱D╱ // 0x521 @0x5
0x051c…053b at0006 = ╱41╱A╱ // 0x522 @0x6
0x051c…053b at0007 = ╱54╱T╱ // 0x523 @0x7
0x051c…053b at0008 = ╱41╱A╱ // 0x524 @0x8
0x051c…053b at0009 = ╱46╱F╱ // 0x525 @0x9
0x051c…053b at000a = ╱4c╱L╱ // 0x526 @0xa
0x051c…053b at000b = ╱ef╱$╱ // 0x527 @0xb
0x051c…053b at000c = ╱ba╱ OF ╱ // 0x528 @0xc
0x051c…053b at000d = ╱38╱8╱ // 0x529 @0xd
0x051c…053b at000e = ╱f20800╱ // 0x52a @0xe
0x051c…053b at0011 = ╱ec╱,╱ // 0x52d @0x11
0x051c…053b at0012 = ╱54╱T╱ // 0x52e @0x12
0x051c…053b at0013 = ╱5f╱_╱ // 0x52f @0x13
0x051c…053b at0014 = ╱4b╱K╱ // 0x530 @0x14
0x051c…053b at0015 = ╱4f╱O╱ // 0x531 @0x15
0x051c…053b at0016 = ╱44╱D╱ // 0x532 @0x16
0x051c…053b at0017 = ╱45╱E╱ // 0x533 @0x17
0x051c…053b at0018 = ╱ef╱$╱ // 0x534 @0x18
0x051c…053b at0019 = ╱ba╱ OF ╱ // 0x535 @0x19
0x051c…053b at001a = ╱31╱1╱ // 0x536 @0x1a
0x051c…053b at001b = ╱f20100╱ // 0x537 @0x1b
0x051c…053b at001e = EOL // 0x53a @0x1e
0x051c…053b }
0x053b…055b 9b49 0420 // Variable til filen @@PARAM
0x053b…055b LineComal80 {
0x053b…055b ptr = 0x9b49 // 0x53b @0x0
0x053b…055b lno = 0x01a4 // 0x53d @0x2
0x053b…055b at0004 = ╱89╱ // ╱ // 0x53f @0x4
0x053b…055b at0005 = ╱56╱V╱ // 0x540 @0x5
0x053b…055b at0006 = ╱61╱a╱ // 0x541 @0x6
0x053b…055b at0007 = ╱72╱r╱ // 0x542 @0x7
0x053b…055b at0008 = ╱69╱i╱ // 0x543 @0x8
0x053b…055b at0009 = ╱61╱a╱ // 0x544 @0x9
0x053b…055b at000a = ╱62╱b╱ // 0x545 @0xa
0x053b…055b at000b = ╱6c╱l╱ // 0x546 @0xb
0x053b…055b at000c = ╱65╱e╱ // 0x547 @0xc
0x053b…055b at000d = ╱20╱…╱ // 0x548 @0xd
0x053b…055b at000e = ╱74╱t╱ // 0x549 @0xe
0x053b…055b at000f = ╱69╱i╱ // 0x54a @0xf
0x053b…055b at0010 = ╱6c╱l╱ // 0x54b @0x10
0x053b…055b at0011 = ╱20╱…╱ // 0x54c @0x11
0x053b…055b at0012 = ╱66╱f╱ // 0x54d @0x12
0x053b…055b at0013 = ╱69╱i╱ // 0x54e @0x13
0x053b…055b at0014 = ╱6c╱l╱ // 0x54f @0x14
0x053b…055b at0015 = ╱65╱e╱ // 0x550 @0x15
0x053b…055b at0016 = ╱6e╱n╱ // 0x551 @0x16
0x053b…055b at0017 = ╱20╱…╱ // 0x552 @0x17
0x053b…055b at0018 = ╱40╱@╱ // 0x553 @0x18
0x053b…055b at0019 = ╱40╱@╱ // 0x554 @0x19
0x053b…055b at001a = ╱50╱P╱ // 0x555 @0x1a
0x053b…055b at001b = ╱41╱A╱ // 0x556 @0x1b
0x053b…055b at001c = ╱52╱R╱ // 0x557 @0x1c
0x053b…055b at001d = ╱41╱A╱ // 0x558 @0x1d
0x053b…055b at001e = ╱4d╱M╱ // 0x559 @0x1e
0x053b…055b at001f = EOL // 0x55a @0x1f
0x053b…055b }
0x055b…056d 9b5b 0430 DIM PARAM$ OF 17
0x055b…056d LineComal80 {
0x055b…056d ptr = 0x9b5b // 0x55b @0x0
0x055b…056d lno = 0x01ae // 0x55d @0x2
0x055b…056d at0004 = ╱87╱ DIM ╱ // 0x55f @0x4
0x055b…056d at0005 = ╱50╱P╱ // 0x560 @0x5
0x055b…056d at0006 = ╱41╱A╱ // 0x561 @0x6
0x055b…056d at0007 = ╱52╱R╱ // 0x562 @0x7
0x055b…056d at0008 = ╱41╱A╱ // 0x563 @0x8
0x055b…056d at0009 = ╱4d╱M╱ // 0x564 @0x9
0x055b…056d at000a = ╱ef╱$╱ // 0x565 @0xa
0x055b…056d at000b = ╱ba╱ OF ╱ // 0x566 @0xb
0x055b…056d at000c = ╱31╱1╱ // 0x567 @0xc
0x055b…056d at000d = ╱37╱7╱ // 0x568 @0xd
0x055b…056d at000e = ╱f21100╱ // 0x569 @0xe
0x055b…056d at0011 = EOL // 0x56c @0x11
0x055b…056d }
0x056d…0592 9b80 0440 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 8
0x056d…0592 LineComal80 {
0x056d…0592 ptr = 0x9b80 // 0x56d @0x0
0x056d…0592 lno = 0x01b8 // 0x56f @0x2
0x056d…0592 at0004 = ╱87╱ DIM ╱ // 0x571 @0x4
0x056d…0592 at0005 = ╱46╱F╱ // 0x572 @0x5
0x056d…0592 at0006 = ╱49╱I╱ // 0x573 @0x6
0x056d…0592 at0007 = ╱52╱R╱ // 0x574 @0x7
0x056d…0592 at0008 = ╱4d╱M╱ // 0x575 @0x8
0x056d…0592 at0009 = ╱41╱A╱ // 0x576 @0x9
0x056d…0592 at000a = ╱4e╱N╱ // 0x577 @0xa
0x056d…0592 at000b = ╱41╱A╱ // 0x578 @0xb
0x056d…0592 at000c = ╱56╱V╱ // 0x579 @0xc
0x056d…0592 at000d = ╱4e╱N╱ // 0x57a @0xd
0x056d…0592 at000e = ╱ef╱$╱ // 0x57b @0xe
0x056d…0592 at000f = ╱ba╱ OF ╱ // 0x57c @0xf
0x056d…0592 at0010 = ╱33╱3╱ // 0x57d @0x10
0x056d…0592 at0011 = ╱30╱0╱ // 0x57e @0x11
0x056d…0592 at0012 = ╱f21e00╱ // 0x57f @0x12
0x056d…0592 at0015 = ╱ec╱,╱ // 0x582 @0x15
0x056d…0592 at0016 = ╱53╱S╱ // 0x583 @0x16
0x056d…0592 at0017 = ╱59╱Y╱ // 0x584 @0x17
0x056d…0592 at0018 = ╱53╱S╱ // 0x585 @0x18
0x056d…0592 at0019 = ╱54╱T╱ // 0x586 @0x19
0x056d…0592 at001a = ╱5f╱_╱ // 0x587 @0x1a
0x056d…0592 at001b = ╱44╱D╱ // 0x588 @0x1b
0x056d…0592 at001c = ╱41╱A╱ // 0x589 @0x1c
0x056d…0592 at001d = ╱54╱T╱ // 0x58a @0x1d
0x056d…0592 at001e = ╱ef╱$╱ // 0x58b @0x1e
0x056d…0592 at001f = ╱ba╱ OF ╱ // 0x58c @0x1f
0x056d…0592 at0020 = ╱38╱8╱ // 0x58d @0x20
0x056d…0592 at0021 = ╱f20800╱ // 0x58e @0x21
0x056d…0592 at0024 = EOL // 0x591 @0x24
0x056d…0592 }
0x0592…059c 9b8a 0450 REAL MOMS
0x0592…059c LineComal80 {
0x0592…059c ptr = 0x9b8a // 0x592 @0x0
0x0592…059c lno = 0x01c2 // 0x594 @0x2
0x0592…059c at0004 = ╱b3╱ REAL ╱ // 0x596 @0x4
0x0592…059c at0005 = ╱4d╱M╱ // 0x597 @0x5
0x0592…059c at0006 = ╱4f╱O╱ // 0x598 @0x6
0x0592…059c at0007 = ╱4d╱M╱ // 0x599 @0x7
0x0592…059c at0008 = ╱53╱S╱ // 0x59a @0x8
0x0592…059c at0009 = EOL // 0x59b @0x9
0x0592…059c }
0x059c…05bc 9baa 0460 // Variable til filen @@KONTO
0x059c…05bc LineComal80 {
0x059c…05bc ptr = 0x9baa // 0x59c @0x0
0x059c…05bc lno = 0x01cc // 0x59e @0x2
0x059c…05bc at0004 = ╱89╱ // ╱ // 0x5a0 @0x4
0x059c…05bc at0005 = ╱56╱V╱ // 0x5a1 @0x5
0x059c…05bc at0006 = ╱61╱a╱ // 0x5a2 @0x6
0x059c…05bc at0007 = ╱72╱r╱ // 0x5a3 @0x7
0x059c…05bc at0008 = ╱69╱i╱ // 0x5a4 @0x8
0x059c…05bc at0009 = ╱61╱a╱ // 0x5a5 @0x9
0x059c…05bc at000a = ╱62╱b╱ // 0x5a6 @0xa
0x059c…05bc at000b = ╱6c╱l╱ // 0x5a7 @0xb
0x059c…05bc at000c = ╱65╱e╱ // 0x5a8 @0xc
0x059c…05bc at000d = ╱20╱…╱ // 0x5a9 @0xd
0x059c…05bc at000e = ╱74╱t╱ // 0x5aa @0xe
0x059c…05bc at000f = ╱69╱i╱ // 0x5ab @0xf
0x059c…05bc at0010 = ╱6c╱l╱ // 0x5ac @0x10
0x059c…05bc at0011 = ╱20╱…╱ // 0x5ad @0x11
0x059c…05bc at0012 = ╱66╱f╱ // 0x5ae @0x12
0x059c…05bc at0013 = ╱69╱i╱ // 0x5af @0x13
0x059c…05bc at0014 = ╱6c╱l╱ // 0x5b0 @0x14
0x059c…05bc at0015 = ╱65╱e╱ // 0x5b1 @0x15
0x059c…05bc at0016 = ╱6e╱n╱ // 0x5b2 @0x16
0x059c…05bc at0017 = ╱20╱…╱ // 0x5b3 @0x17
0x059c…05bc at0018 = ╱40╱@╱ // 0x5b4 @0x18
0x059c…05bc at0019 = ╱40╱@╱ // 0x5b5 @0x19
0x059c…05bc at001a = ╱4b╱K╱ // 0x5b6 @0x1a
0x059c…05bc at001b = ╱4f╱O╱ // 0x5b7 @0x1b
0x059c…05bc at001c = ╱4e╱N╱ // 0x5b8 @0x1c
0x059c…05bc at001d = ╱54╱T╱ // 0x5b9 @0x1d
0x059c…05bc at001e = ╱4f╱O╱ // 0x5ba @0x1e
0x059c…05bc at001f = EOL // 0x5bb @0x1f
0x059c…05bc }
0x05bc…05ce 9bbc 0470 DIM KONTO$ OF 17
0x05bc…05ce LineComal80 {
0x05bc…05ce ptr = 0x9bbc // 0x5bc @0x0
0x05bc…05ce lno = 0x01d6 // 0x5be @0x2
0x05bc…05ce at0004 = ╱87╱ DIM ╱ // 0x5c0 @0x4
0x05bc…05ce at0005 = ╱4b╱K╱ // 0x5c1 @0x5
0x05bc…05ce at0006 = ╱4f╱O╱ // 0x5c2 @0x6
0x05bc…05ce at0007 = ╱4e╱N╱ // 0x5c3 @0x7
0x05bc…05ce at0008 = ╱54╱T╱ // 0x5c4 @0x8
0x05bc…05ce at0009 = ╱4f╱O╱ // 0x5c5 @0x9
0x05bc…05ce at000a = ╱ef╱$╱ // 0x5c6 @0xa
0x05bc…05ce at000b = ╱ba╱ OF ╱ // 0x5c7 @0xb
0x05bc…05ce at000c = ╱31╱1╱ // 0x5c8 @0xc
0x05bc…05ce at000d = ╱37╱7╱ // 0x5c9 @0xd
0x05bc…05ce at000e = ╱f21100╱ // 0x5ca @0xe
0x05bc…05ce at0011 = EOL // 0x5cd @0x11
0x05bc…05ce }
0x05ce…05e1 9bcf 0480 DIM ST_DATO$ OF 6
0x05ce…05e1 LineComal80 {
0x05ce…05e1 ptr = 0x9bcf // 0x5ce @0x0
0x05ce…05e1 lno = 0x01e0 // 0x5d0 @0x2
0x05ce…05e1 at0004 = ╱87╱ DIM ╱ // 0x5d2 @0x4
0x05ce…05e1 at0005 = ╱53╱S╱ // 0x5d3 @0x5
0x05ce…05e1 at0006 = ╱54╱T╱ // 0x5d4 @0x6
0x05ce…05e1 at0007 = ╱5f╱_╱ // 0x5d5 @0x7
0x05ce…05e1 at0008 = ╱44╱D╱ // 0x5d6 @0x8
0x05ce…05e1 at0009 = ╱41╱A╱ // 0x5d7 @0x9
0x05ce…05e1 at000a = ╱54╱T╱ // 0x5d8 @0xa
0x05ce…05e1 at000b = ╱4f╱O╱ // 0x5d9 @0xb
0x05ce…05e1 at000c = ╱ef╱$╱ // 0x5da @0xc
0x05ce…05e1 at000d = ╱ba╱ OF ╱ // 0x5db @0xd
0x05ce…05e1 at000e = ╱36╱6╱ // 0x5dc @0xe
0x05ce…05e1 at000f = ╱f20600╱ // 0x5dd @0xf
0x05ce…05e1 at0012 = EOL // 0x5e0 @0x12
0x05ce…05e1 }
0x05e1…0607 9bf5 0490 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0x05e1…0607 LineComal80 {
0x05e1…0607 ptr = 0x9bf5 // 0x5e1 @0x0
0x05e1…0607 lno = 0x01ea // 0x5e3 @0x2
0x05e1…0607 at0004 = ╱b2╱ INTEGER ╱ // 0x5e5 @0x4
0x05e1…0607 at0005 = ╱4e╱N╱ // 0x5e6 @0x5
0x05e1…0607 at0006 = ╱5f╱_╱ // 0x5e7 @0x6
0x05e1…0607 at0007 = ╱46╱F╱ // 0x5e8 @0x7
0x05e1…0607 at0008 = ╱52╱R╱ // 0x5e9 @0x8
0x05e1…0607 at0009 = ╱49╱I╱ // 0x5ea @0x9
0x05e1…0607 at000a = ╱52╱R╱ // 0x5eb @0xa
0x05e1…0607 at000b = ╱45╱E╱ // 0x5ec @0xb
0x05e1…0607 at000c = ╱43╱C╱ // 0x5ed @0xc
0x05e1…0607 at000d = ╱ec╱,╱ // 0x5ee @0xd
0x05e1…0607 at000e = ╱4e╱N╱ // 0x5ef @0xe
0x05e1…0607 at000f = ╱5f╱_╱ // 0x5f0 @0xf
0x05e1…0607 at0010 = ╱4d╱M╱ // 0x5f1 @0x10
0x05e1…0607 at0011 = ╱41╱A╱ // 0x5f2 @0x11
0x05e1…0607 at0012 = ╱58╱X╱ // 0x5f3 @0x12
0x05e1…0607 at0013 = ╱52╱R╱ // 0x5f4 @0x13
0x05e1…0607 at0014 = ╱45╱E╱ // 0x5f5 @0x14
0x05e1…0607 at0015 = ╱43╱C╱ // 0x5f6 @0x15
0x05e1…0607 at0016 = ╱ec╱,╱ // 0x5f7 @0x16
0x05e1…0607 at0017 = ╱41╱A╱ // 0x5f8 @0x17
0x05e1…0607 at0018 = ╱4e╱N╱ // 0x5f9 @0x18
0x05e1…0607 at0019 = ╱54╱T╱ // 0x5fa @0x19
0x05e1…0607 at001a = ╱5f╱_╱ // 0x5fb @0x1a
0x05e1…0607 at001b = ╱50╱P╱ // 0x5fc @0x1b
0x05e1…0607 at001c = ╱45╱E╱ // 0x5fd @0x1c
0x05e1…0607 at001d = ╱52╱R╱ // 0x5fe @0x1d
0x05e1…0607 at001e = ╱ec╱,╱ // 0x5ff @0x1e
0x05e1…0607 at001f = ╱50╱P╱ // 0x600 @0x1f
0x05e1…0607 at0020 = ╱45╱E╱ // 0x601 @0x20
0x05e1…0607 at0021 = ╱52╱R╱ // 0x602 @0x21
0x05e1…0607 at0022 = ╱5f╱_╱ // 0x603 @0x22
0x05e1…0607 at0023 = ╱4e╱N╱ // 0x604 @0x23
0x05e1…0607 at0024 = ╱52╱R╱ // 0x605 @0x24
0x05e1…0607 at0025 = EOL // 0x606 @0x25
0x05e1…0607 }
0x0607…062b 9c19 0500 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0x0607…062b LineComal80 {
0x0607…062b ptr = 0x9c19 // 0x607 @0x0
0x0607…062b lno = 0x01f4 // 0x609 @0x2
0x0607…062b at0004 = ╱87╱ DIM ╱ // 0x60b @0x4
0x0607…062b at0005 = ╱4b╱K╱ // 0x60c @0x5
0x0607…062b at0006 = ╱54╱T╱ // 0x60d @0x6
0x0607…062b at0007 = ╱4f╱O╱ // 0x60e @0x7
0x0607…062b at0008 = ╱5f╱_╱ // 0x60f @0x8
0x0607…062b at0009 = ╱54╱T╱ // 0x610 @0x9
0x0607…062b at000a = ╱59╱Y╱ // 0x611 @0xa
0x0607…062b at000b = ╱50╱P╱ // 0x612 @0xb
0x0607…062b at000c = ╱45╱E╱ // 0x613 @0xc
0x0607…062b at000d = ╱ef╱$╱ // 0x614 @0xd
0x0607…062b at000e = ╱ba╱ OF ╱ // 0x615 @0xe
0x0607…062b at000f = ╱31╱1╱ // 0x616 @0xf
0x0607…062b at0010 = ╱f20100╱ // 0x617 @0x10
0x0607…062b at0013 = ╱ec╱,╱ // 0x61a @0x13
0x0607…062b at0014 = ╱4b╱K╱ // 0x61b @0x14
0x0607…062b at0015 = ╱54╱T╱ // 0x61c @0x15
0x0607…062b at0016 = ╱4f╱O╱ // 0x61d @0x16
0x0607…062b at0017 = ╱5f╱_╱ // 0x61e @0x17
0x0607…062b at0018 = ╱4e╱N╱ // 0x61f @0x18
0x0607…062b at0019 = ╱41╱A╱ // 0x620 @0x19
0x0607…062b at001a = ╱56╱V╱ // 0x621 @0x1a
0x0607…062b at001b = ╱4e╱N╱ // 0x622 @0x1b
0x0607…062b at001c = ╱ef╱$╱ // 0x623 @0x1c
0x0607…062b at001d = ╱ba╱ OF ╱ // 0x624 @0x1d
0x0607…062b at001e = ╱34╱4╱ // 0x625 @0x1e
0x0607…062b at001f = ╱30╱0╱ // 0x626 @0x1f
0x0607…062b at0020 = ╱f22800╱ // 0x627 @0x20
0x0607…062b at0023 = EOL // 0x62a @0x23
0x0607…062b }
0x062b…0645 9c33 0510 REAL KTO_PRIMO,KTO_ULTIMO
0x062b…0645 LineComal80 {
0x062b…0645 ptr = 0x9c33 // 0x62b @0x0
0x062b…0645 lno = 0x01fe // 0x62d @0x2
0x062b…0645 at0004 = ╱b3╱ REAL ╱ // 0x62f @0x4
0x062b…0645 at0005 = ╱4b╱K╱ // 0x630 @0x5
0x062b…0645 at0006 = ╱54╱T╱ // 0x631 @0x6
0x062b…0645 at0007 = ╱4f╱O╱ // 0x632 @0x7
0x062b…0645 at0008 = ╱5f╱_╱ // 0x633 @0x8
0x062b…0645 at0009 = ╱50╱P╱ // 0x634 @0x9
0x062b…0645 at000a = ╱52╱R╱ // 0x635 @0xa
0x062b…0645 at000b = ╱49╱I╱ // 0x636 @0xb
0x062b…0645 at000c = ╱4d╱M╱ // 0x637 @0xc
0x062b…0645 at000d = ╱4f╱O╱ // 0x638 @0xd
0x062b…0645 at000e = ╱ec╱,╱ // 0x639 @0xe
0x062b…0645 at000f = ╱4b╱K╱ // 0x63a @0xf
0x062b…0645 at0010 = ╱54╱T╱ // 0x63b @0x10
0x062b…0645 at0011 = ╱4f╱O╱ // 0x63c @0x11
0x062b…0645 at0012 = ╱5f╱_╱ // 0x63d @0x12
0x062b…0645 at0013 = ╱55╱U╱ // 0x63e @0x13
0x062b…0645 at0014 = ╱4c╱L╱ // 0x63f @0x14
0x062b…0645 at0015 = ╱54╱T╱ // 0x640 @0x15
0x062b…0645 at0016 = ╱49╱I╱ // 0x641 @0x16
0x062b…0645 at0017 = ╱4d╱M╱ // 0x642 @0x17
0x062b…0645 at0018 = ╱4f╱O╱ // 0x643 @0x18
0x062b…0645 at0019 = EOL // 0x644 @0x19
0x062b…0645 }
0x0645…0658 9c46 0520 INTEGER KTO_FP,KTO_SP
0x0645…0658 LineComal80 {
0x0645…0658 ptr = 0x9c46 // 0x645 @0x0
0x0645…0658 lno = 0x0208 // 0x647 @0x2
0x0645…0658 at0004 = ╱b2╱ INTEGER ╱ // 0x649 @0x4
0x0645…0658 at0005 = ╱4b╱K╱ // 0x64a @0x5
0x0645…0658 at0006 = ╱54╱T╱ // 0x64b @0x6
0x0645…0658 at0007 = ╱4f╱O╱ // 0x64c @0x7
0x0645…0658 at0008 = ╱5f╱_╱ // 0x64d @0x8
0x0645…0658 at0009 = ╱46╱F╱ // 0x64e @0x9
0x0645…0658 at000a = ╱50╱P╱ // 0x64f @0xa
0x0645…0658 at000b = ╱ec╱,╱ // 0x650 @0xb
0x0645…0658 at000c = ╱4b╱K╱ // 0x651 @0xc
0x0645…0658 at000d = ╱54╱T╱ // 0x652 @0xd
0x0645…0658 at000e = ╱4f╱O╱ // 0x653 @0xe
0x0645…0658 at000f = ╱5f╱_╱ // 0x654 @0xf
0x0645…0658 at0010 = ╱53╱S╱ // 0x655 @0x10
0x0645…0658 at0011 = ╱50╱P╱ // 0x656 @0x11
0x0645…0658 at0012 = EOL // 0x657 @0x12
0x0645…0658 }
0x0658…0679 9c67 0530 // Variable til filen @@KTOIDX
0x0658…0679 LineComal80 {
0x0658…0679 ptr = 0x9c67 // 0x658 @0x0
0x0658…0679 lno = 0x0212 // 0x65a @0x2
0x0658…0679 at0004 = ╱89╱ // ╱ // 0x65c @0x4
0x0658…0679 at0005 = ╱56╱V╱ // 0x65d @0x5
0x0658…0679 at0006 = ╱61╱a╱ // 0x65e @0x6
0x0658…0679 at0007 = ╱72╱r╱ // 0x65f @0x7
0x0658…0679 at0008 = ╱69╱i╱ // 0x660 @0x8
0x0658…0679 at0009 = ╱61╱a╱ // 0x661 @0x9
0x0658…0679 at000a = ╱62╱b╱ // 0x662 @0xa
0x0658…0679 at000b = ╱6c╱l╱ // 0x663 @0xb
0x0658…0679 at000c = ╱65╱e╱ // 0x664 @0xc
0x0658…0679 at000d = ╱20╱…╱ // 0x665 @0xd
0x0658…0679 at000e = ╱74╱t╱ // 0x666 @0xe
0x0658…0679 at000f = ╱69╱i╱ // 0x667 @0xf
0x0658…0679 at0010 = ╱6c╱l╱ // 0x668 @0x10
0x0658…0679 at0011 = ╱20╱…╱ // 0x669 @0x11
0x0658…0679 at0012 = ╱66╱f╱ // 0x66a @0x12
0x0658…0679 at0013 = ╱69╱i╱ // 0x66b @0x13
0x0658…0679 at0014 = ╱6c╱l╱ // 0x66c @0x14
0x0658…0679 at0015 = ╱65╱e╱ // 0x66d @0x15
0x0658…0679 at0016 = ╱6e╱n╱ // 0x66e @0x16
0x0658…0679 at0017 = ╱20╱…╱ // 0x66f @0x17
0x0658…0679 at0018 = ╱40╱@╱ // 0x670 @0x18
0x0658…0679 at0019 = ╱40╱@╱ // 0x671 @0x19
0x0658…0679 at001a = ╱4b╱K╱ // 0x672 @0x1a
0x0658…0679 at001b = ╱54╱T╱ // 0x673 @0x1b
0x0658…0679 at001c = ╱4f╱O╱ // 0x674 @0x1c
0x0658…0679 at001d = ╱49╱I╱ // 0x675 @0x1d
0x0658…0679 at001e = ╱44╱D╱ // 0x676 @0x1e
0x0658…0679 at001f = ╱58╱X╱ // 0x677 @0x1f
0x0658…0679 at0020 = EOL // 0x678 @0x20
0x0658…0679 }
0x0679…068c 9c7a 0540 DIM KTOIDX$ OF 17
0x0679…068c LineComal80 {
0x0679…068c ptr = 0x9c7a // 0x679 @0x0
0x0679…068c lno = 0x021c // 0x67b @0x2
0x0679…068c at0004 = ╱87╱ DIM ╱ // 0x67d @0x4
0x0679…068c at0005 = ╱4b╱K╱ // 0x67e @0x5
0x0679…068c at0006 = ╱54╱T╱ // 0x67f @0x6
0x0679…068c at0007 = ╱4f╱O╱ // 0x680 @0x7
0x0679…068c at0008 = ╱49╱I╱ // 0x681 @0x8
0x0679…068c at0009 = ╱44╱D╱ // 0x682 @0x9
0x0679…068c at000a = ╱58╱X╱ // 0x683 @0xa
0x0679…068c at000b = ╱ef╱$╱ // 0x684 @0xb
0x0679…068c at000c = ╱ba╱ OF ╱ // 0x685 @0xc
0x0679…068c at000d = ╱31╱1╱ // 0x686 @0xd
0x0679…068c at000e = ╱37╱7╱ // 0x687 @0xe
0x0679…068c at000f = ╱f21100╱ // 0x688 @0xf
0x0679…068c at0012 = EOL // 0x68b @0x12
0x0679…068c }
0x068c…06a3 9c91 0550 INTEGER I_HØJREC,I_MAXREC
0x068c…06a3 LineComal80 {
0x068c…06a3 ptr = 0x9c91 // 0x68c @0x0
0x068c…06a3 lno = 0x0226 // 0x68e @0x2
0x068c…06a3 at0004 = ╱b2╱ INTEGER ╱ // 0x690 @0x4
0x068c…06a3 at0005 = ╱49╱I╱ // 0x691 @0x5
0x068c…06a3 at0006 = ╱5f╱_╱ // 0x692 @0x6
0x068c…06a3 at0007 = ╱48╱H╱ // 0x693 @0x7
0x068c…06a3 at0008 = ╱5c╱Ø╱ // 0x694 @0x8
0x068c…06a3 at0009 = ╱4a╱J╱ // 0x695 @0x9
0x068c…06a3 at000a = ╱52╱R╱ // 0x696 @0xa
0x068c…06a3 at000b = ╱45╱E╱ // 0x697 @0xb
0x068c…06a3 at000c = ╱43╱C╱ // 0x698 @0xc
0x068c…06a3 at000d = ╱ec╱,╱ // 0x699 @0xd
0x068c…06a3 at000e = ╱49╱I╱ // 0x69a @0xe
0x068c…06a3 at000f = ╱5f╱_╱ // 0x69b @0xf
0x068c…06a3 at0010 = ╱4d╱M╱ // 0x69c @0x10
0x068c…06a3 at0011 = ╱41╱A╱ // 0x69d @0x11
0x068c…06a3 at0012 = ╱58╱X╱ // 0x69e @0x12
0x068c…06a3 at0013 = ╱52╱R╱ // 0x69f @0x13
0x068c…06a3 at0014 = ╱45╱E╱ // 0x6a0 @0x14
0x068c…06a3 at0015 = ╱43╱C╱ // 0x6a1 @0x15
0x068c…06a3 at0016 = EOL // 0x6a2 @0x16
0x068c…06a3 }
0x06a3…06b4 9ca2 0560 DIM KTONR$ OF 8
0x06a3…06b4 LineComal80 {
0x06a3…06b4 ptr = 0x9ca2 // 0x6a3 @0x0
0x06a3…06b4 lno = 0x0230 // 0x6a5 @0x2
0x06a3…06b4 at0004 = ╱87╱ DIM ╱ // 0x6a7 @0x4
0x06a3…06b4 at0005 = ╱4b╱K╱ // 0x6a8 @0x5
0x06a3…06b4 at0006 = ╱54╱T╱ // 0x6a9 @0x6
0x06a3…06b4 at0007 = ╱4f╱O╱ // 0x6aa @0x7
0x06a3…06b4 at0008 = ╱4e╱N╱ // 0x6ab @0x8
0x06a3…06b4 at0009 = ╱52╱R╱ // 0x6ac @0x9
0x06a3…06b4 at000a = ╱ef╱$╱ // 0x6ad @0xa
0x06a3…06b4 at000b = ╱ba╱ OF ╱ // 0x6ae @0xb
0x06a3…06b4 at000c = ╱38╱8╱ // 0x6af @0xc
0x06a3…06b4 at000d = ╱f20800╱ // 0x6b0 @0xd
0x06a3…06b4 at0010 = EOL // 0x6b3 @0x10
0x06a3…06b4 }
0x06b4…06bf 9cad 0570 INTEGER RECNR
0x06b4…06bf LineComal80 {
0x06b4…06bf ptr = 0x9cad // 0x6b4 @0x0
0x06b4…06bf lno = 0x023a // 0x6b6 @0x2
0x06b4…06bf at0004 = ╱b2╱ INTEGER ╱ // 0x6b8 @0x4
0x06b4…06bf at0005 = ╱52╱R╱ // 0x6b9 @0x5
0x06b4…06bf at0006 = ╱45╱E╱ // 0x6ba @0x6
0x06b4…06bf at0007 = ╱43╱C╱ // 0x6bb @0x7
0x06b4…06bf at0008 = ╱4e╱N╱ // 0x6bc @0x8
0x06b4…06bf at0009 = ╱52╱R╱ // 0x6bd @0x9
0x06b4…06bf at000a = EOL // 0x6be @0xa
0x06b4…06bf }
0x06bf…06d0 9cbe 0580 ENDPROC DIMENSIONER
0x06bf…06d0 LineComal80 {
0x06bf…06d0 ptr = 0x9cbe // 0x6bf @0x0
0x06bf…06d0 lno = 0x0244 // 0x6c1 @0x2
0x06bf…06d0 at0004 = ╱9f╱ ENDPROC ╱ // 0x6c3 @0x4
0x06bf…06d0 at0005 = ╱44╱D╱ // 0x6c4 @0x5
0x06bf…06d0 at0006 = ╱49╱I╱ // 0x6c5 @0x6
0x06bf…06d0 at0007 = ╱4d╱M╱ // 0x6c6 @0x7
0x06bf…06d0 at0008 = ╱45╱E╱ // 0x6c7 @0x8
0x06bf…06d0 at0009 = ╱4e╱N╱ // 0x6c8 @0x9
0x06bf…06d0 at000a = ╱53╱S╱ // 0x6c9 @0xa
0x06bf…06d0 at000b = ╱49╱I╱ // 0x6ca @0xb
0x06bf…06d0 at000c = ╱4f╱O╱ // 0x6cb @0xc
0x06bf…06d0 at000d = ╱4e╱N╱ // 0x6cc @0xd
0x06bf…06d0 at000e = ╱45╱E╱ // 0x6cd @0xe
0x06bf…06d0 at000f = ╱52╱R╱ // 0x6ce @0xf
0x06bf…06d0 at0010 = EOL // 0x6cf @0x10
0x06bf…06d0 }
0x06d0…06d5 9cc3 0590
0x06d0…06d5 LineComal80 {
0x06d0…06d5 ptr = 0x9cc3 // 0x6d0 @0x0
0x06d0…06d5 lno = 0x024e // 0x6d2 @0x2
0x06d0…06d5 at0004 = EOL // 0x6d4 @0x4
0x06d0…06d5 }
0x06d5…06e3 9cd1 0600 PROC INITIER
0x06d5…06e3 LineComal80 {
0x06d5…06e3 ptr = 0x9cd1 // 0x6d5 @0x0
0x06d5…06e3 lno = 0x0258 // 0x6d7 @0x2
0x06d5…06e3 at0004 = ╱9e02╱ PROC ╱ // 0x6d9 @0x4
0x06d5…06e3 at0006 = ╱49╱I╱ // 0x6db @0x6
0x06d5…06e3 at0007 = ╱4e╱N╱ // 0x6dc @0x7
0x06d5…06e3 at0008 = ╱49╱I╱ // 0x6dd @0x8
0x06d5…06e3 at0009 = ╱54╱T╱ // 0x6de @0x9
0x06d5…06e3 at000a = ╱49╱I╱ // 0x6df @0xa
0x06d5…06e3 at000b = ╱45╱E╱ // 0x6e0 @0xb
0x06d5…06e3 at000c = ╱52╱R╱ // 0x6e1 @0xc
0x06d5…06e3 at000d = EOL // 0x6e2 @0xd
0x06d5…06e3 }
0x06e3…06f5 9ce3 0610 LET PRGFL$ := "DP2"
0x06e3…06f5 LineComal80 {
0x06e3…06f5 ptr = 0x9ce3 // 0x6e3 @0x0
0x06e3…06f5 lno = 0x0262 // 0x6e5 @0x2
0x06e3…06f5 at0004 = ╱86╱ LET ╱ // 0x6e7 @0x4
0x06e3…06f5 at0005 = ╱50╱P╱ // 0x6e8 @0x5
0x06e3…06f5 at0006 = ╱52╱R╱ // 0x6e9 @0x6
0x06e3…06f5 at0007 = ╱47╱G╱ // 0x6ea @0x7
0x06e3…06f5 at0008 = ╱46╱F╱ // 0x6eb @0x8
0x06e3…06f5 at0009 = ╱4c╱L╱ // 0x6ec @0x9
0x06e3…06f5 at000a = ╱ef╱$╱ // 0x6ed @0xa
0x06e3…06f5 at000b = ╱f0╱ := ╱ // 0x6ee @0xb
0x06e3…06f5 at000c = ╱22╱"╱ // 0x6ef @0xc
0x06e3…06f5 at000d = ╱44╱D╱ // 0x6f0 @0xd
0x06e3…06f5 at000e = ╱50╱P╱ // 0x6f1 @0xe
0x06e3…06f5 at000f = ╱32╱2╱ // 0x6f2 @0xf
0x06e3…06f5 at0010 = ╱22╱"╱ // 0x6f3 @0x10
0x06e3…06f5 at0011 = EOL // 0x6f4 @0x11
0x06e3…06f5 }
0x06f5…0711 9cff 0620 LET PROGRAM$ := PRGFL$ + ":SYS"
0x06f5…0711 LineComal80 {
0x06f5…0711 ptr = 0x9cff // 0x6f5 @0x0
0x06f5…0711 lno = 0x026c // 0x6f7 @0x2
0x06f5…0711 at0004 = ╱86╱ LET ╱ // 0x6f9 @0x4
0x06f5…0711 at0005 = ╱50╱P╱ // 0x6fa @0x5
0x06f5…0711 at0006 = ╱52╱R╱ // 0x6fb @0x6
0x06f5…0711 at0007 = ╱4f╱O╱ // 0x6fc @0x7
0x06f5…0711 at0008 = ╱47╱G╱ // 0x6fd @0x8
0x06f5…0711 at0009 = ╱52╱R╱ // 0x6fe @0x9
0x06f5…0711 at000a = ╱41╱A╱ // 0x6ff @0xa
0x06f5…0711 at000b = ╱4d╱M╱ // 0x700 @0xb
0x06f5…0711 at000c = ╱ef╱$╱ // 0x701 @0xc
0x06f5…0711 at000d = ╱f0╱ := ╱ // 0x702 @0xd
0x06f5…0711 at000e = ╱50╱P╱ // 0x703 @0xe
0x06f5…0711 at000f = ╱52╱R╱ // 0x704 @0xf
0x06f5…0711 at0010 = ╱47╱G╱ // 0x705 @0x10
0x06f5…0711 at0011 = ╱46╱F╱ // 0x706 @0x11
0x06f5…0711 at0012 = ╱4c╱L╱ // 0x707 @0x12
0x06f5…0711 at0013 = ╱ef╱$╱ // 0x708 @0x13
0x06f5…0711 at0014 = ╱eb╱ + ╱ // 0x709 @0x14
0x06f5…0711 at0015 = ╱22╱"╱ // 0x70a @0x15
0x06f5…0711 at0016 = ╱3a╱:╱ // 0x70b @0x16
0x06f5…0711 at0017 = ╱53╱S╱ // 0x70c @0x17
0x06f5…0711 at0018 = ╱59╱Y╱ // 0x70d @0x18
0x06f5…0711 at0019 = ╱53╱S╱ // 0x70e @0x19
0x06f5…0711 at001a = ╱22╱"╱ // 0x70f @0x1a
0x06f5…0711 at001b = EOL // 0x710 @0x1b
0x06f5…0711 }
0x0711…0728 9d16 0630 LET TAL$ := "0123456789"
0x0711…0728 LineComal80 {
0x0711…0728 ptr = 0x9d16 // 0x711 @0x0
0x0711…0728 lno = 0x0276 // 0x713 @0x2
0x0711…0728 at0004 = ╱86╱ LET ╱ // 0x715 @0x4
0x0711…0728 at0005 = ╱54╱T╱ // 0x716 @0x5
0x0711…0728 at0006 = ╱41╱A╱ // 0x717 @0x6
0x0711…0728 at0007 = ╱4c╱L╱ // 0x718 @0x7
0x0711…0728 at0008 = ╱ef╱$╱ // 0x719 @0x8
0x0711…0728 at0009 = ╱f0╱ := ╱ // 0x71a @0x9
0x0711…0728 at000a = ╱22╱"╱ // 0x71b @0xa
0x0711…0728 at000b = ╱30╱0╱ // 0x71c @0xb
0x0711…0728 at000c = ╱31╱1╱ // 0x71d @0xc
0x0711…0728 at000d = ╱32╱2╱ // 0x71e @0xd
0x0711…0728 at000e = ╱33╱3╱ // 0x71f @0xe
0x0711…0728 at000f = ╱34╱4╱ // 0x720 @0xf
0x0711…0728 at0010 = ╱35╱5╱ // 0x721 @0x10
0x0711…0728 at0011 = ╱36╱6╱ // 0x722 @0x11
0x0711…0728 at0012 = ╱37╱7╱ // 0x723 @0x12
0x0711…0728 at0013 = ╱38╱8╱ // 0x724 @0x13
0x0711…0728 at0014 = ╱39╱9╱ // 0x725 @0x14
0x0711…0728 at0015 = ╱22╱"╱ // 0x726 @0x15
0x0711…0728 at0016 = EOL // 0x727 @0x16
0x0711…0728 }
0x0728…0750 9d3e 0640 FOR I := ╱cc╱ ("A") TO ("Å") DO LET ALFA$ := ALFA$ + CHR$ (I)
0x0728…0750 LineComal80 {
0x0728…0750 ptr = 0x9d3e // 0x728 @0x0
0x0728…0750 lno = 0x0280 // 0x72a @0x2
0x0728…0750 at0004 = ╱b400╱ FOR ╱ // 0x72c @0x4
0x0728…0750 at0006 = ╱49╱I╱ // 0x72e @0x6
0x0728…0750 at0007 = ╱f0╱ := ╱ // 0x72f @0x7
0x0728…0750 at0008 = ╱cc╱ // 0x730 @0x8
0x0728…0750 at0009 = ╱ed╱(╱ // 0x731 @0x9
0x0728…0750 at000a = ╱22╱"╱ // 0x732 @0xa
0x0728…0750 at000b = ╱41╱A╱ // 0x733 @0xb
0x0728…0750 at000c = ╱22╱"╱ // 0x734 @0xc
0x0728…0750 at000d = ╱ee╱)╱ // 0x735 @0xd
0x0728…0750 at000e = ╱b7cc╱ TO ╱ // 0x736 @0xe
0x0728…0750 at0010 = ╱ed╱(╱ // 0x738 @0x10
0x0728…0750 at0011 = ╱22╱"╱ // 0x739 @0x11
0x0728…0750 at0012 = ╱5d╱Å╱ // 0x73a @0x12
0x0728…0750 at0013 = ╱22╱"╱ // 0x73b @0x13
0x0728…0750 at0014 = ╱ee╱)╱ // 0x73c @0x14
0x0728…0750 at0015 = ╱bb╱ DO ╱ // 0x73d @0x15
0x0728…0750 at0016 = ╱86╱ LET ╱ // 0x73e @0x16
0x0728…0750 at0017 = ╱41╱A╱ // 0x73f @0x17
0x0728…0750 at0018 = ╱4c╱L╱ // 0x740 @0x18
0x0728…0750 at0019 = ╱46╱F╱ // 0x741 @0x19
0x0728…0750 at001a = ╱41╱A╱ // 0x742 @0x1a
0x0728…0750 at001b = ╱ef╱$╱ // 0x743 @0x1b
0x0728…0750 at001c = ╱f0╱ := ╱ // 0x744 @0x1c
0x0728…0750 at001d = ╱41╱A╱ // 0x745 @0x1d
0x0728…0750 at001e = ╱4c╱L╱ // 0x746 @0x1e
0x0728…0750 at001f = ╱46╱F╱ // 0x747 @0x1f
0x0728…0750 at0020 = ╱41╱A╱ // 0x748 @0x20
0x0728…0750 at0021 = ╱ef╱$╱ // 0x749 @0x21
0x0728…0750 at0022 = ╱eb╱ + ╱ // 0x74a @0x22
0x0728…0750 at0023 = ╱d0╱ CHR$ ╱ // 0x74b @0x23
0x0728…0750 at0024 = ╱ed╱(╱ // 0x74c @0x24
0x0728…0750 at0025 = ╱49╱I╱ // 0x74d @0x25
0x0728…0750 at0026 = ╱ee╱)╱ // 0x74e @0x26
0x0728…0750 at0027 = EOL // 0x74f @0x27
0x0728…0750 }
0x0750…0785 9d73 0650 LET SPC$ := " "
0x0750…0785 LineComal80 {
0x0750…0785 ptr = 0x9d73 // 0x750 @0x0
0x0750…0785 lno = 0x028a // 0x752 @0x2
0x0750…0785 at0004 = ╱86╱ LET ╱ // 0x754 @0x4
0x0750…0785 at0005 = ╱53╱S╱ // 0x755 @0x5
0x0750…0785 at0006 = ╱50╱P╱ // 0x756 @0x6
0x0750…0785 at0007 = ╱43╱C╱ // 0x757 @0x7
0x0750…0785 at0008 = ╱ef╱$╱ // 0x758 @0x8
0x0750…0785 at0009 = ╱f0╱ := ╱ // 0x759 @0x9
0x0750…0785 at000a = ╱22╱"╱ // 0x75a @0xa
0x0750…0785 at000b = ╱20╱…╱ // 0x75b @0xb
0x0750…0785 at000c = ╱20╱…╱ // 0x75c @0xc
0x0750…0785 at000d = ╱20╱…╱ // 0x75d @0xd
0x0750…0785 at000e = ╱20╱…╱ // 0x75e @0xe
0x0750…0785 at000f = ╱20╱…╱ // 0x75f @0xf
0x0750…0785 at0010 = ╱20╱…╱ // 0x760 @0x10
0x0750…0785 at0011 = ╱20╱…╱ // 0x761 @0x11
0x0750…0785 at0012 = ╱20╱…╱ // 0x762 @0x12
0x0750…0785 at0013 = ╱20╱…╱ // 0x763 @0x13
0x0750…0785 at0014 = ╱20╱…╱ // 0x764 @0x14
0x0750…0785 at0015 = ╱20╱…╱ // 0x765 @0x15
0x0750…0785 at0016 = ╱20╱…╱ // 0x766 @0x16
0x0750…0785 at0017 = ╱20╱…╱ // 0x767 @0x17
0x0750…0785 at0018 = ╱20╱…╱ // 0x768 @0x18
0x0750…0785 at0019 = ╱20╱…╱ // 0x769 @0x19
0x0750…0785 at001a = ╱20╱…╱ // 0x76a @0x1a
0x0750…0785 at001b = ╱20╱…╱ // 0x76b @0x1b
0x0750…0785 at001c = ╱20╱…╱ // 0x76c @0x1c
0x0750…0785 at001d = ╱20╱…╱ // 0x76d @0x1d
0x0750…0785 at001e = ╱20╱…╱ // 0x76e @0x1e
0x0750…0785 at001f = ╱20╱…╱ // 0x76f @0x1f
0x0750…0785 at0020 = ╱20╱…╱ // 0x770 @0x20
0x0750…0785 at0021 = ╱20╱…╱ // 0x771 @0x21
0x0750…0785 at0022 = ╱20╱…╱ // 0x772 @0x22
0x0750…0785 at0023 = ╱20╱…╱ // 0x773 @0x23
0x0750…0785 at0024 = ╱20╱…╱ // 0x774 @0x24
0x0750…0785 at0025 = ╱20╱…╱ // 0x775 @0x25
0x0750…0785 at0026 = ╱20╱…╱ // 0x776 @0x26
0x0750…0785 at0027 = ╱20╱…╱ // 0x777 @0x27
0x0750…0785 at0028 = ╱20╱…╱ // 0x778 @0x28
0x0750…0785 at0029 = ╱20╱…╱ // 0x779 @0x29
0x0750…0785 at002a = ╱20╱…╱ // 0x77a @0x2a
0x0750…0785 at002b = ╱20╱…╱ // 0x77b @0x2b
0x0750…0785 at002c = ╱20╱…╱ // 0x77c @0x2c
0x0750…0785 at002d = ╱20╱…╱ // 0x77d @0x2d
0x0750…0785 at002e = ╱20╱…╱ // 0x77e @0x2e
0x0750…0785 at002f = ╱20╱…╱ // 0x77f @0x2f
0x0750…0785 at0030 = ╱20╱…╱ // 0x780 @0x30
0x0750…0785 at0031 = ╱20╱…╱ // 0x781 @0x31
0x0750…0785 at0032 = ╱20╱…╱ // 0x782 @0x32
0x0750…0785 at0033 = ╱22╱"╱ // 0x783 @0x33
0x0750…0785 at0034 = EOL // 0x784 @0x34
0x0750…0785 }
0x0785…0799 (25,) 9d87 0660 LET SPC$ := SPC$ + SPC$
0x0785…0799 LineComal80 {
0x0785…0799 ptr = 0x9d87 // 0x785 @0x0
0x0785…0799 lno = 0x0294 // 0x787 @0x2
0x0785…0799 at0004 = ╱86╱ LET ╱ // 0x789 @0x4
0x0785…0799 at0005 = ╱53╱S╱ // 0x78a @0x5
0x0785…0799 at0006 = ╱50╱P╱ // 0x78b @0x6
0x0785…0799 at0007 = ╱43╱C╱ // 0x78c @0x7
0x0785…0799 at0008 = ╱ef╱$╱ // 0x78d @0x8
0x0785…0799 at0009 = ╱f0╱ := ╱ // 0x78e @0x9
0x0785…0799 at000a = ╱53╱S╱ // 0x78f @0xa
0x0785…0799 at000b = ╱50╱P╱ // 0x790 @0xb
0x0785…0799 at000c = ╱43╱C╱ // 0x791 @0xc
0x0785…0799 at000d = ╱ef╱$╱ // 0x792 @0xd
0x0785…0799 at000e = ╱eb╱ + ╱ // 0x793 @0xe
0x0785…0799 at000f = ╱53╱S╱ // 0x794 @0xf
0x0785…0799 at0010 = ╱50╱P╱ // 0x795 @0x10
0x0785…0799 at0011 = ╱43╱C╱ // 0x796 @0x11
0x0785…0799 at0012 = ╱ef╱$╱ // 0x797 @0x12
0x0785…0799 at0013 = EOL // 0x798 @0x13
0x0785…0799 }
0x0799…07c4 9db2 0670 LET FALSE := 0 ; TRUE := 1 // boolske variable
0x0799…07c4 LineComal80 {
0x0799…07c4 ptr = 0x9db2 // 0x799 @0x0
0x0799…07c4 lno = 0x029e // 0x79b @0x2
0x0799…07c4 at0004 = ╱86╱ LET ╱ // 0x79d @0x4
0x0799…07c4 at0005 = ╱46╱F╱ // 0x79e @0x5
0x0799…07c4 at0006 = ╱41╱A╱ // 0x79f @0x6
0x0799…07c4 at0007 = ╱4c╱L╱ // 0x7a0 @0x7
0x0799…07c4 at0008 = ╱53╱S╱ // 0x7a1 @0x8
0x0799…07c4 at0009 = ╱45╱E╱ // 0x7a2 @0x9
0x0799…07c4 at000a = ╱f0╱ := ╱ // 0x7a3 @0xa
0x0799…07c4 at000b = ╱30╱0╱ // 0x7a4 @0xb
0x0799…07c4 at000c = ╱f20000╱ // 0x7a5 @0xc
0x0799…07c4 at000f = ╱ea╱ ; ╱ // 0x7a8 @0xf
0x0799…07c4 at0010 = ╱54╱T╱ // 0x7a9 @0x10
0x0799…07c4 at0011 = ╱52╱R╱ // 0x7aa @0x11
0x0799…07c4 at0012 = ╱55╱U╱ // 0x7ab @0x12
0x0799…07c4 at0013 = ╱45╱E╱ // 0x7ac @0x13
0x0799…07c4 at0014 = ╱f0╱ := ╱ // 0x7ad @0x14
0x0799…07c4 at0015 = ╱31╱1╱ // 0x7ae @0x15
0x0799…07c4 at0016 = ╱f20100╱ // 0x7af @0x16
0x0799…07c4 at0019 = ╱89╱ // ╱ // 0x7b2 @0x19
0x0799…07c4 at001a = ╱62╱b╱ // 0x7b3 @0x1a
0x0799…07c4 at001b = ╱6f╱o╱ // 0x7b4 @0x1b
0x0799…07c4 at001c = ╱6f╱o╱ // 0x7b5 @0x1c
0x0799…07c4 at001d = ╱6c╱l╱ // 0x7b6 @0x1d
0x0799…07c4 at001e = ╱73╱s╱ // 0x7b7 @0x1e
0x0799…07c4 at001f = ╱6b╱k╱ // 0x7b8 @0x1f
0x0799…07c4 at0020 = ╱65╱e╱ // 0x7b9 @0x20
0x0799…07c4 at0021 = ╱20╱…╱ // 0x7ba @0x21
0x0799…07c4 at0022 = ╱76╱v╱ // 0x7bb @0x22
0x0799…07c4 at0023 = ╱61╱a╱ // 0x7bc @0x23
0x0799…07c4 at0024 = ╱72╱r╱ // 0x7bd @0x24
0x0799…07c4 at0025 = ╱69╱i╱ // 0x7be @0x25
0x0799…07c4 at0026 = ╱61╱a╱ // 0x7bf @0x26
0x0799…07c4 at0027 = ╱62╱b╱ // 0x7c0 @0x27
0x0799…07c4 at0028 = ╱6c╱l╱ // 0x7c1 @0x28
0x0799…07c4 at0029 = ╱65╱e╱ // 0x7c2 @0x29
0x0799…07c4 at002a = EOL // 0x7c3 @0x2a
0x0799…07c4 }
0x07c4…07e4 9dd2 0680 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0x07c4…07e4 LineComal80 {
0x07c4…07e4 ptr = 0x9dd2 // 0x7c4 @0x0
0x07c4…07e4 lno = 0x02a8 // 0x7c6 @0x2
0x07c4…07e4 at0004 = ╱86╱ LET ╱ // 0x7c8 @0x4
0x07c4…07e4 at0005 = ╱53╱S╱ // 0x7c9 @0x5
0x07c4…07e4 at0006 = ╱59╱Y╱ // 0x7ca @0x6
0x07c4…07e4 at0007 = ╱53╱S╱ // 0x7cb @0x7
0x07c4…07e4 at0008 = ╱50╱P╱ // 0x7cc @0x8
0x07c4…07e4 at0009 = ╱41╱A╱ // 0x7cd @0x9
0x07c4…07e4 at000a = ╱52╱R╱ // 0x7ce @0xa
0x07c4…07e4 at000b = ╱41╱A╱ // 0x7cf @0xb
0x07c4…07e4 at000c = ╱ef╱$╱ // 0x7d0 @0xc
0x07c4…07e4 at000d = ╱f0╱ := ╱ // 0x7d1 @0xd
0x07c4…07e4 at000e = ╱50╱P╱ // 0x7d2 @0xe
0x07c4…07e4 at000f = ╱52╱R╱ // 0x7d3 @0xf
0x07c4…07e4 at0010 = ╱47╱G╱ // 0x7d4 @0x10
0x07c4…07e4 at0011 = ╱46╱F╱ // 0x7d5 @0x11
0x07c4…07e4 at0012 = ╱4c╱L╱ // 0x7d6 @0x12
0x07c4…07e4 at0013 = ╱ef╱$╱ // 0x7d7 @0x13
0x07c4…07e4 at0014 = ╱eb╱ + ╱ // 0x7d8 @0x14
0x07c4…07e4 at0015 = ╱22╱"╱ // 0x7d9 @0x15
0x07c4…07e4 at0016 = ╱3a╱:╱ // 0x7da @0x16
0x07c4…07e4 at0017 = ╱53╱S╱ // 0x7db @0x17
0x07c4…07e4 at0018 = ╱59╱Y╱ // 0x7dc @0x18
0x07c4…07e4 at0019 = ╱53╱S╱ // 0x7dd @0x19
0x07c4…07e4 at001a = ╱50╱P╱ // 0x7de @0x1a
0x07c4…07e4 at001b = ╱41╱A╱ // 0x7df @0x1b
0x07c4…07e4 at001c = ╱52╱R╱ // 0x7e0 @0x1c
0x07c4…07e4 at001d = ╱41╱A╱ // 0x7e1 @0x1d
0x07c4…07e4 at001e = ╱22╱"╱ // 0x7e2 @0x1e
0x07c4…07e4 at001f = EOL // 0x7e3 @0x1f
0x07c4…07e4 }
0x07e4…07ff 9ded 0690 EXEC OPENFIL(SYSPARA$,"R")
0x07e4…07ff LineComal80 {
0x07e4…07ff ptr = 0x9ded // 0x7e4 @0x0
0x07e4…07ff lno = 0x02b2 // 0x7e6 @0x2
0x07e4…07ff at0004 = ╱9d╱ EXEC ╱ // 0x7e8 @0x4
0x07e4…07ff at0005 = ╱4f╱O╱ // 0x7e9 @0x5
0x07e4…07ff at0006 = ╱50╱P╱ // 0x7ea @0x6
0x07e4…07ff at0007 = ╱45╱E╱ // 0x7eb @0x7
0x07e4…07ff at0008 = ╱4e╱N╱ // 0x7ec @0x8
0x07e4…07ff at0009 = ╱46╱F╱ // 0x7ed @0x9
0x07e4…07ff at000a = ╱49╱I╱ // 0x7ee @0xa
0x07e4…07ff at000b = ╱4c╱L╱ // 0x7ef @0xb
0x07e4…07ff at000c = ╱ed╱(╱ // 0x7f0 @0xc
0x07e4…07ff at000d = ╱53╱S╱ // 0x7f1 @0xd
0x07e4…07ff at000e = ╱59╱Y╱ // 0x7f2 @0xe
0x07e4…07ff at000f = ╱53╱S╱ // 0x7f3 @0xf
0x07e4…07ff at0010 = ╱50╱P╱ // 0x7f4 @0x10
0x07e4…07ff at0011 = ╱41╱A╱ // 0x7f5 @0x11
0x07e4…07ff at0012 = ╱52╱R╱ // 0x7f6 @0x12
0x07e4…07ff at0013 = ╱41╱A╱ // 0x7f7 @0x13
0x07e4…07ff at0014 = ╱ef╱$╱ // 0x7f8 @0x14
0x07e4…07ff at0015 = ╱ec╱,╱ // 0x7f9 @0x15
0x07e4…07ff at0016 = ╱22╱"╱ // 0x7fa @0x16
0x07e4…07ff at0017 = ╱52╱R╱ // 0x7fb @0x17
0x07e4…07ff at0018 = ╱22╱"╱ // 0x7fc @0x18
0x07e4…07ff at0019 = ╱ee╱)╱ // 0x7fd @0x19
0x07e4…07ff at001a = EOL // 0x7fe @0x1a
0x07e4…07ff }
0x07ff…0825 9e13 0700 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0x07ff…0825 LineComal80 {
0x07ff…0825 ptr = 0x9e13 // 0x7ff @0x0
0x07ff…0825 lno = 0x02bc // 0x801 @0x2
0x07ff…0825 at0004 = ╱a9╱ GET ╱ // 0x803 @0x4
0x07ff…0825 at0005 = ╱53╱S╱ // 0x804 @0x5
0x07ff…0825 at0006 = ╱59╱Y╱ // 0x805 @0x6
0x07ff…0825 at0007 = ╱53╱S╱ // 0x806 @0x7
0x07ff…0825 at0008 = ╱50╱P╱ // 0x807 @0x8
0x07ff…0825 at0009 = ╱41╱A╱ // 0x808 @0x9
0x07ff…0825 at000a = ╱52╱R╱ // 0x809 @0xa
0x07ff…0825 at000b = ╱41╱A╱ // 0x80a @0xb
0x07ff…0825 at000c = ╱ef╱$╱ // 0x80b @0xc
0x07ff…0825 at000d = ╱ec╱,╱ // 0x80c @0xd
0x07ff…0825 at000e = ╱31╱1╱ // 0x80d @0xe
0x07ff…0825 at000f = ╱f20100╱ // 0x80e @0xf
0x07ff…0825 at0012 = ╱f1╱ : ╱ // 0x811 @0x12
0x07ff…0825 at0013 = ╱53╱S╱ // 0x812 @0x13
0x07ff…0825 at0014 = ╱59╱Y╱ // 0x813 @0x14
0x07ff…0825 at0015 = ╱53╱S╱ // 0x814 @0x15
0x07ff…0825 at0016 = ╱54╱T╱ // 0x815 @0x16
0x07ff…0825 at0017 = ╱5f╱_╱ // 0x816 @0x17
0x07ff…0825 at0018 = ╱4e╱N╱ // 0x817 @0x18
0x07ff…0825 at0019 = ╱41╱A╱ // 0x818 @0x19
0x07ff…0825 at001a = ╱56╱V╱ // 0x819 @0x1a
0x07ff…0825 at001b = ╱4e╱N╱ // 0x81a @0x1b
0x07ff…0825 at001c = ╱ef╱$╱ // 0x81b @0x1c
0x07ff…0825 at001d = ╱ec╱,╱ // 0x81c @0x1d
0x07ff…0825 at001e = ╱53╱S╱ // 0x81d @0x1e
0x07ff…0825 at001f = ╱5f╱_╱ // 0x81e @0x1f
0x07ff…0825 at0020 = ╱4b╱K╱ // 0x81f @0x20
0x07ff…0825 at0021 = ╱4f╱O╱ // 0x820 @0x21
0x07ff…0825 at0022 = ╱44╱D╱ // 0x821 @0x22
0x07ff…0825 at0023 = ╱45╱E╱ // 0x822 @0x23
0x07ff…0825 at0024 = ╱ef╱$╱ // 0x823 @0x24
0x07ff…0825 at0025 = EOL // 0x824 @0x25
0x07ff…0825 }
0x0825…0837 9e25 0710 EXEC TERMINAL_IDX
0x0825…0837 LineComal80 {
0x0825…0837 ptr = 0x9e25 // 0x825 @0x0
0x0825…0837 lno = 0x02c6 // 0x827 @0x2
0x0825…0837 at0004 = ╱9d╱ EXEC ╱ // 0x829 @0x4
0x0825…0837 at0005 = ╱54╱T╱ // 0x82a @0x5
0x0825…0837 at0006 = ╱45╱E╱ // 0x82b @0x6
0x0825…0837 at0007 = ╱52╱R╱ // 0x82c @0x7
0x0825…0837 at0008 = ╱4d╱M╱ // 0x82d @0x8
0x0825…0837 at0009 = ╱49╱I╱ // 0x82e @0x9
0x0825…0837 at000a = ╱4e╱N╱ // 0x82f @0xa
0x0825…0837 at000b = ╱41╱A╱ // 0x830 @0xb
0x0825…0837 at000c = ╱4c╱L╱ // 0x831 @0xc
0x0825…0837 at000d = ╱5f╱_╱ // 0x832 @0xd
0x0825…0837 at000e = ╱49╱I╱ // 0x833 @0xe
0x0825…0837 at000f = ╱44╱D╱ // 0x834 @0xf
0x0825…0837 at0010 = ╱58╱X╱ // 0x835 @0x10
0x0825…0837 at0011 = EOL // 0x836 @0x11
0x0825…0837 }
0x0837…0845 9e33 0720 CLOSE SYSPARA$
0x0837…0845 LineComal80 {
0x0837…0845 ptr = 0x9e33 // 0x837 @0x0
0x0837…0845 lno = 0x02d0 // 0x839 @0x2
0x0837…0845 at0004 = ╱a8╱ CLOSE ╱ // 0x83b @0x4
0x0837…0845 at0005 = ╱53╱S╱ // 0x83c @0x5
0x0837…0845 at0006 = ╱59╱Y╱ // 0x83d @0x6
0x0837…0845 at0007 = ╱53╱S╱ // 0x83e @0x7
0x0837…0845 at0008 = ╱50╱P╱ // 0x83f @0x8
0x0837…0845 at0009 = ╱41╱A╱ // 0x840 @0x9
0x0837…0845 at000a = ╱52╱R╱ // 0x841 @0xa
0x0837…0845 at000b = ╱41╱A╱ // 0x842 @0xb
0x0837…0845 at000c = ╱ef╱$╱ // 0x843 @0xc
0x0837…0845 at000d = EOL // 0x844 @0xd
0x0837…0845 }
0x0845…0875 9e63 0730 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0x0845…0875 LineComal80 {
0x0845…0875 ptr = 0x9e63 // 0x845 @0x0
0x0845…0875 lno = 0x02da // 0x847 @0x2
0x0845…0875 at0004 = ╱86╱ LET ╱ // 0x849 @0x4
0x0845…0875 at0005 = ╱50╱P╱ // 0x84a @0x5
0x0845…0875 at0006 = ╱41╱A╱ // 0x84b @0x6
0x0845…0875 at0007 = ╱52╱R╱ // 0x84c @0x7
0x0845…0875 at0008 = ╱41╱A╱ // 0x84d @0x8
0x0845…0875 at0009 = ╱4d╱M╱ // 0x84e @0x9
0x0845…0875 at000a = ╱ef╱$╱ // 0x84f @0xa
0x0845…0875 at000b = ╱f0╱ := ╱ // 0x850 @0xb
0x0845…0875 at000c = ╱44╱D╱ // 0x851 @0xc
0x0845…0875 at000d = ╱41╱A╱ // 0x852 @0xd
0x0845…0875 at000e = ╱54╱T╱ // 0x853 @0xe
0x0845…0875 at000f = ╱41╱A╱ // 0x854 @0xf
0x0845…0875 at0010 = ╱46╱F╱ // 0x855 @0x10
0x0845…0875 at0011 = ╱4c╱L╱ // 0x856 @0x11
0x0845…0875 at0012 = ╱ef╱$╱ // 0x857 @0x12
0x0845…0875 at0013 = ╱eb╱ + ╱ // 0x858 @0x13
0x0845…0875 at0014 = ╱22╱"╱ // 0x859 @0x14
0x0845…0875 at0015 = ╱3a╱:╱ // 0x85a @0x15
0x0845…0875 at0016 = ╱22╱"╱ // 0x85b @0x16
0x0845…0875 at0017 = ╱eb╱ + ╱ // 0x85c @0x17
0x0845…0875 at0018 = ╱53╱S╱ // 0x85d @0x18
0x0845…0875 at0019 = ╱5f╱_╱ // 0x85e @0x19
0x0845…0875 at001a = ╱4b╱K╱ // 0x85f @0x1a
0x0845…0875 at001b = ╱4f╱O╱ // 0x860 @0x1b
0x0845…0875 at001c = ╱44╱D╱ // 0x861 @0x1c
0x0845…0875 at001d = ╱45╱E╱ // 0x862 @0x1d
0x0845…0875 at001e = ╱ef╱$╱ // 0x863 @0x1e
0x0845…0875 at001f = ╱eb╱ + ╱ // 0x864 @0x1f
0x0845…0875 at0020 = ╱54╱T╱ // 0x865 @0x20
0x0845…0875 at0021 = ╱5f╱_╱ // 0x866 @0x21
0x0845…0875 at0022 = ╱4b╱K╱ // 0x867 @0x22
0x0845…0875 at0023 = ╱4f╱O╱ // 0x868 @0x23
0x0845…0875 at0024 = ╱44╱D╱ // 0x869 @0x24
0x0845…0875 at0025 = ╱45╱E╱ // 0x86a @0x25
0x0845…0875 at0026 = ╱ef╱$╱ // 0x86b @0x26
0x0845…0875 at0027 = ╱eb╱ + ╱ // 0x86c @0x27
0x0845…0875 at0028 = ╱22╱"╱ // 0x86d @0x28
0x0845…0875 at0029 = ╱50╱P╱ // 0x86e @0x29
0x0845…0875 at002a = ╱41╱A╱ // 0x86f @0x2a
0x0845…0875 at002b = ╱52╱R╱ // 0x870 @0x2b
0x0845…0875 at002c = ╱41╱A╱ // 0x871 @0x2c
0x0845…0875 at002d = ╱4d╱M╱ // 0x872 @0x2d
0x0845…0875 at002e = ╱22╱"╱ // 0x873 @0x2e
0x0845…0875 at002f = EOL // 0x874 @0x2f
0x0845…0875 }
0x0875…088e 9e7c 0740 EXEC OPENFIL(PARAM$,"R")
0x0875…088e LineComal80 {
0x0875…088e ptr = 0x9e7c // 0x875 @0x0
0x0875…088e lno = 0x02e4 // 0x877 @0x2
0x0875…088e at0004 = ╱9d╱ EXEC ╱ // 0x879 @0x4
0x0875…088e at0005 = ╱4f╱O╱ // 0x87a @0x5
0x0875…088e at0006 = ╱50╱P╱ // 0x87b @0x6
0x0875…088e at0007 = ╱45╱E╱ // 0x87c @0x7
0x0875…088e at0008 = ╱4e╱N╱ // 0x87d @0x8
0x0875…088e at0009 = ╱46╱F╱ // 0x87e @0x9
0x0875…088e at000a = ╱49╱I╱ // 0x87f @0xa
0x0875…088e at000b = ╱4c╱L╱ // 0x880 @0xb
0x0875…088e at000c = ╱ed╱(╱ // 0x881 @0xc
0x0875…088e at000d = ╱50╱P╱ // 0x882 @0xd
0x0875…088e at000e = ╱41╱A╱ // 0x883 @0xe
0x0875…088e at000f = ╱52╱R╱ // 0x884 @0xf
0x0875…088e at0010 = ╱41╱A╱ // 0x885 @0x10
0x0875…088e at0011 = ╱4d╱M╱ // 0x886 @0x11
0x0875…088e at0012 = ╱ef╱$╱ // 0x887 @0x12
0x0875…088e at0013 = ╱ec╱,╱ // 0x888 @0x13
0x0875…088e at0014 = ╱22╱"╱ // 0x889 @0x14
0x0875…088e at0015 = ╱52╱R╱ // 0x88a @0x15
0x0875…088e at0016 = ╱22╱"╱ // 0x88b @0x16
0x0875…088e at0017 = ╱ee╱)╱ // 0x88c @0x17
0x0875…088e at0018 = EOL // 0x88d @0x18
0x0875…088e }
0x088e…08b9 9ea7 0750 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0x088e…08b9 LineComal80 {
0x088e…08b9 ptr = 0x9ea7 // 0x88e @0x0
0x088e…08b9 lno = 0x02ee // 0x890 @0x2
0x088e…08b9 at0004 = ╱a9╱ GET ╱ // 0x892 @0x4
0x088e…08b9 at0005 = ╱50╱P╱ // 0x893 @0x5
0x088e…08b9 at0006 = ╱41╱A╱ // 0x894 @0x6
0x088e…08b9 at0007 = ╱52╱R╱ // 0x895 @0x7
0x088e…08b9 at0008 = ╱41╱A╱ // 0x896 @0x8
0x088e…08b9 at0009 = ╱4d╱M╱ // 0x897 @0x9
0x088e…08b9 at000a = ╱ef╱$╱ // 0x898 @0xa
0x088e…08b9 at000b = ╱ec╱,╱ // 0x899 @0xb
0x088e…08b9 at000c = ╱31╱1╱ // 0x89a @0xc
0x088e…08b9 at000d = ╱f20100╱ // 0x89b @0xd
0x088e…08b9 at0010 = ╱f1╱ : ╱ // 0x89e @0x10
0x088e…08b9 at0011 = ╱46╱F╱ // 0x89f @0x11
0x088e…08b9 at0012 = ╱49╱I╱ // 0x8a0 @0x12
0x088e…08b9 at0013 = ╱52╱R╱ // 0x8a1 @0x13
0x088e…08b9 at0014 = ╱4d╱M╱ // 0x8a2 @0x14
0x088e…08b9 at0015 = ╱41╱A╱ // 0x8a3 @0x15
0x088e…08b9 at0016 = ╱4e╱N╱ // 0x8a4 @0x16
0x088e…08b9 at0017 = ╱41╱A╱ // 0x8a5 @0x17
0x088e…08b9 at0018 = ╱56╱V╱ // 0x8a6 @0x18
0x088e…08b9 at0019 = ╱4e╱N╱ // 0x8a7 @0x19
0x088e…08b9 at001a = ╱ef╱$╱ // 0x8a8 @0x1a
0x088e…08b9 at001b = ╱ec╱,╱ // 0x8a9 @0x1b
0x088e…08b9 at001c = ╱53╱S╱ // 0x8aa @0x1c
0x088e…08b9 at001d = ╱59╱Y╱ // 0x8ab @0x1d
0x088e…08b9 at001e = ╱53╱S╱ // 0x8ac @0x1e
0x088e…08b9 at001f = ╱54╱T╱ // 0x8ad @0x1f
0x088e…08b9 at0020 = ╱5f╱_╱ // 0x8ae @0x20
0x088e…08b9 at0021 = ╱44╱D╱ // 0x8af @0x21
0x088e…08b9 at0022 = ╱41╱A╱ // 0x8b0 @0x22
0x088e…08b9 at0023 = ╱54╱T╱ // 0x8b1 @0x23
0x088e…08b9 at0024 = ╱ef╱$╱ // 0x8b2 @0x24
0x088e…08b9 at0025 = ╱ec╱,╱ // 0x8b3 @0x25
0x088e…08b9 at0026 = ╱4d╱M╱ // 0x8b4 @0x26
0x088e…08b9 at0027 = ╱4f╱O╱ // 0x8b5 @0x27
0x088e…08b9 at0028 = ╱4d╱M╱ // 0x8b6 @0x28
0x088e…08b9 at0029 = ╱53╱S╱ // 0x8b7 @0x29
0x088e…08b9 at002a = EOL // 0x8b8 @0x2a
0x088e…08b9 }
0x08b9…08c5 (29,) 9eb3 0760 CLOSE PARAM$
0x08b9…08c5 LineComal80 {
0x08b9…08c5 ptr = 0x9eb3 // 0x8b9 @0x0
0x08b9…08c5 lno = 0x02f8 // 0x8bb @0x2
0x08b9…08c5 at0004 = ╱a8╱ CLOSE ╱ // 0x8bd @0x4
0x08b9…08c5 at0005 = ╱50╱P╱ // 0x8be @0x5
0x08b9…08c5 at0006 = ╱41╱A╱ // 0x8bf @0x6
0x08b9…08c5 at0007 = ╱52╱R╱ // 0x8c0 @0x7
0x08b9…08c5 at0008 = ╱41╱A╱ // 0x8c1 @0x8
0x08b9…08c5 at0009 = ╱4d╱M╱ // 0x8c2 @0x9
0x08b9…08c5 at000a = ╱ef╱$╱ // 0x8c3 @0xa
0x08b9…08c5 at000b = EOL // 0x8c4 @0xb
0x08b9…08c5 }
0x08c5…08f7 9ee5 0770 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0x08c5…08f7 LineComal80 {
0x08c5…08f7 ptr = 0x9ee5 // 0x8c5 @0x0
0x08c5…08f7 lno = 0x0302 // 0x8c7 @0x2
0x08c5…08f7 at0004 = ╱86╱ LET ╱ // 0x8c9 @0x4
0x08c5…08f7 at0005 = ╱4b╱K╱ // 0x8ca @0x5
0x08c5…08f7 at0006 = ╱54╱T╱ // 0x8cb @0x6
0x08c5…08f7 at0007 = ╱4f╱O╱ // 0x8cc @0x7
0x08c5…08f7 at0008 = ╱49╱I╱ // 0x8cd @0x8
0x08c5…08f7 at0009 = ╱44╱D╱ // 0x8ce @0x9
0x08c5…08f7 at000a = ╱58╱X╱ // 0x8cf @0xa
0x08c5…08f7 at000b = ╱ef╱$╱ // 0x8d0 @0xb
0x08c5…08f7 at000c = ╱f0╱ := ╱ // 0x8d1 @0xc
0x08c5…08f7 at000d = ╱44╱D╱ // 0x8d2 @0xd
0x08c5…08f7 at000e = ╱41╱A╱ // 0x8d3 @0xe
0x08c5…08f7 at000f = ╱54╱T╱ // 0x8d4 @0xf
0x08c5…08f7 at0010 = ╱41╱A╱ // 0x8d5 @0x10
0x08c5…08f7 at0011 = ╱46╱F╱ // 0x8d6 @0x11
0x08c5…08f7 at0012 = ╱4c╱L╱ // 0x8d7 @0x12
0x08c5…08f7 at0013 = ╱ef╱$╱ // 0x8d8 @0x13
0x08c5…08f7 at0014 = ╱eb╱ + ╱ // 0x8d9 @0x14
0x08c5…08f7 at0015 = ╱22╱"╱ // 0x8da @0x15
0x08c5…08f7 at0016 = ╱3a╱:╱ // 0x8db @0x16
0x08c5…08f7 at0017 = ╱22╱"╱ // 0x8dc @0x17
0x08c5…08f7 at0018 = ╱eb╱ + ╱ // 0x8dd @0x18
0x08c5…08f7 at0019 = ╱53╱S╱ // 0x8de @0x19
0x08c5…08f7 at001a = ╱5f╱_╱ // 0x8df @0x1a
0x08c5…08f7 at001b = ╱4b╱K╱ // 0x8e0 @0x1b
0x08c5…08f7 at001c = ╱4f╱O╱ // 0x8e1 @0x1c
0x08c5…08f7 at001d = ╱44╱D╱ // 0x8e2 @0x1d
0x08c5…08f7 at001e = ╱45╱E╱ // 0x8e3 @0x1e
0x08c5…08f7 at001f = ╱ef╱$╱ // 0x8e4 @0x1f
0x08c5…08f7 at0020 = ╱eb╱ + ╱ // 0x8e5 @0x20
0x08c5…08f7 at0021 = ╱54╱T╱ // 0x8e6 @0x21
0x08c5…08f7 at0022 = ╱5f╱_╱ // 0x8e7 @0x22
0x08c5…08f7 at0023 = ╱4b╱K╱ // 0x8e8 @0x23
0x08c5…08f7 at0024 = ╱4f╱O╱ // 0x8e9 @0x24
0x08c5…08f7 at0025 = ╱44╱D╱ // 0x8ea @0x25
0x08c5…08f7 at0026 = ╱45╱E╱ // 0x8eb @0x26
0x08c5…08f7 at0027 = ╱ef╱$╱ // 0x8ec @0x27
0x08c5…08f7 at0028 = ╱eb╱ + ╱ // 0x8ed @0x28
0x08c5…08f7 at0029 = ╱22╱"╱ // 0x8ee @0x29
0x08c5…08f7 at002a = ╱4b╱K╱ // 0x8ef @0x2a
0x08c5…08f7 at002b = ╱54╱T╱ // 0x8f0 @0x2b
0x08c5…08f7 at002c = ╱4f╱O╱ // 0x8f1 @0x2c
0x08c5…08f7 at002d = ╱49╱I╱ // 0x8f2 @0x2d
0x08c5…08f7 at002e = ╱44╱D╱ // 0x8f3 @0x2e
0x08c5…08f7 at002f = ╱58╱X╱ // 0x8f4 @0x2f
0x08c5…08f7 at0030 = ╱22╱"╱ // 0x8f5 @0x30
0x08c5…08f7 at0031 = EOL // 0x8f6 @0x31
0x08c5…08f7 }
0x08f7…0927 9f15 0780 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0x08f7…0927 LineComal80 {
0x08f7…0927 ptr = 0x9f15 // 0x8f7 @0x0
0x08f7…0927 lno = 0x030c // 0x8f9 @0x2
0x08f7…0927 at0004 = ╱86╱ LET ╱ // 0x8fb @0x4
0x08f7…0927 at0005 = ╱4b╱K╱ // 0x8fc @0x5
0x08f7…0927 at0006 = ╱4f╱O╱ // 0x8fd @0x6
0x08f7…0927 at0007 = ╱4e╱N╱ // 0x8fe @0x7
0x08f7…0927 at0008 = ╱54╱T╱ // 0x8ff @0x8
0x08f7…0927 at0009 = ╱4f╱O╱ // 0x900 @0x9
0x08f7…0927 at000a = ╱ef╱$╱ // 0x901 @0xa
0x08f7…0927 at000b = ╱f0╱ := ╱ // 0x902 @0xb
0x08f7…0927 at000c = ╱44╱D╱ // 0x903 @0xc
0x08f7…0927 at000d = ╱41╱A╱ // 0x904 @0xd
0x08f7…0927 at000e = ╱54╱T╱ // 0x905 @0xe
0x08f7…0927 at000f = ╱41╱A╱ // 0x906 @0xf
0x08f7…0927 at0010 = ╱46╱F╱ // 0x907 @0x10
0x08f7…0927 at0011 = ╱4c╱L╱ // 0x908 @0x11
0x08f7…0927 at0012 = ╱ef╱$╱ // 0x909 @0x12
0x08f7…0927 at0013 = ╱eb╱ + ╱ // 0x90a @0x13
0x08f7…0927 at0014 = ╱22╱"╱ // 0x90b @0x14
0x08f7…0927 at0015 = ╱3a╱:╱ // 0x90c @0x15
0x08f7…0927 at0016 = ╱22╱"╱ // 0x90d @0x16
0x08f7…0927 at0017 = ╱eb╱ + ╱ // 0x90e @0x17
0x08f7…0927 at0018 = ╱53╱S╱ // 0x90f @0x18
0x08f7…0927 at0019 = ╱5f╱_╱ // 0x910 @0x19
0x08f7…0927 at001a = ╱4b╱K╱ // 0x911 @0x1a
0x08f7…0927 at001b = ╱4f╱O╱ // 0x912 @0x1b
0x08f7…0927 at001c = ╱44╱D╱ // 0x913 @0x1c
0x08f7…0927 at001d = ╱45╱E╱ // 0x914 @0x1d
0x08f7…0927 at001e = ╱ef╱$╱ // 0x915 @0x1e
0x08f7…0927 at001f = ╱eb╱ + ╱ // 0x916 @0x1f
0x08f7…0927 at0020 = ╱54╱T╱ // 0x917 @0x20
0x08f7…0927 at0021 = ╱5f╱_╱ // 0x918 @0x21
0x08f7…0927 at0022 = ╱4b╱K╱ // 0x919 @0x22
0x08f7…0927 at0023 = ╱4f╱O╱ // 0x91a @0x23
0x08f7…0927 at0024 = ╱44╱D╱ // 0x91b @0x24
0x08f7…0927 at0025 = ╱45╱E╱ // 0x91c @0x25
0x08f7…0927 at0026 = ╱ef╱$╱ // 0x91d @0x26
0x08f7…0927 at0027 = ╱eb╱ + ╱ // 0x91e @0x27
0x08f7…0927 at0028 = ╱22╱"╱ // 0x91f @0x28
0x08f7…0927 at0029 = ╱4b╱K╱ // 0x920 @0x29
0x08f7…0927 at002a = ╱4f╱O╱ // 0x921 @0x2a
0x08f7…0927 at002b = ╱4e╱N╱ // 0x922 @0x2b
0x08f7…0927 at002c = ╱54╱T╱ // 0x923 @0x2c
0x08f7…0927 at002d = ╱4f╱O╱ // 0x924 @0x2d
0x08f7…0927 at002e = ╱22╱"╱ // 0x925 @0x2e
0x08f7…0927 at002f = EOL // 0x926 @0x2f
0x08f7…0927 }
0x0927…0941 9f2f 0790 EXEC OPENFIL(KTOIDX$,"W")
0x0927…0941 LineComal80 {
0x0927…0941 ptr = 0x9f2f // 0x927 @0x0
0x0927…0941 lno = 0x0316 // 0x929 @0x2
0x0927…0941 at0004 = ╱9d╱ EXEC ╱ // 0x92b @0x4
0x0927…0941 at0005 = ╱4f╱O╱ // 0x92c @0x5
0x0927…0941 at0006 = ╱50╱P╱ // 0x92d @0x6
0x0927…0941 at0007 = ╱45╱E╱ // 0x92e @0x7
0x0927…0941 at0008 = ╱4e╱N╱ // 0x92f @0x8
0x0927…0941 at0009 = ╱46╱F╱ // 0x930 @0x9
0x0927…0941 at000a = ╱49╱I╱ // 0x931 @0xa
0x0927…0941 at000b = ╱4c╱L╱ // 0x932 @0xb
0x0927…0941 at000c = ╱ed╱(╱ // 0x933 @0xc
0x0927…0941 at000d = ╱4b╱K╱ // 0x934 @0xd
0x0927…0941 at000e = ╱54╱T╱ // 0x935 @0xe
0x0927…0941 at000f = ╱4f╱O╱ // 0x936 @0xf
0x0927…0941 at0010 = ╱49╱I╱ // 0x937 @0x10
0x0927…0941 at0011 = ╱44╱D╱ // 0x938 @0x11
0x0927…0941 at0012 = ╱58╱X╱ // 0x939 @0x12
0x0927…0941 at0013 = ╱ef╱$╱ // 0x93a @0x13
0x0927…0941 at0014 = ╱ec╱,╱ // 0x93b @0x14
0x0927…0941 at0015 = ╱22╱"╱ // 0x93c @0x15
0x0927…0941 at0016 = ╱57╱W╱ // 0x93d @0x16
0x0927…0941 at0017 = ╱22╱"╱ // 0x93e @0x17
0x0927…0941 at0018 = ╱ee╱)╱ // 0x93f @0x18
0x0927…0941 at0019 = EOL // 0x940 @0x19
0x0927…0941 }
0x0941…095a 9f48 0800 EXEC OPENFIL(KONTO$,"W")
0x0941…095a LineComal80 {
0x0941…095a ptr = 0x9f48 // 0x941 @0x0
0x0941…095a lno = 0x0320 // 0x943 @0x2
0x0941…095a at0004 = ╱9d╱ EXEC ╱ // 0x945 @0x4
0x0941…095a at0005 = ╱4f╱O╱ // 0x946 @0x5
0x0941…095a at0006 = ╱50╱P╱ // 0x947 @0x6
0x0941…095a at0007 = ╱45╱E╱ // 0x948 @0x7
0x0941…095a at0008 = ╱4e╱N╱ // 0x949 @0x8
0x0941…095a at0009 = ╱46╱F╱ // 0x94a @0x9
0x0941…095a at000a = ╱49╱I╱ // 0x94b @0xa
0x0941…095a at000b = ╱4c╱L╱ // 0x94c @0xb
0x0941…095a at000c = ╱ed╱(╱ // 0x94d @0xc
0x0941…095a at000d = ╱4b╱K╱ // 0x94e @0xd
0x0941…095a at000e = ╱4f╱O╱ // 0x94f @0xe
0x0941…095a at000f = ╱4e╱N╱ // 0x950 @0xf
0x0941…095a at0010 = ╱54╱T╱ // 0x951 @0x10
0x0941…095a at0011 = ╱4f╱O╱ // 0x952 @0x11
0x0941…095a at0012 = ╱ef╱$╱ // 0x953 @0x12
0x0941…095a at0013 = ╱ec╱,╱ // 0x954 @0x13
0x0941…095a at0014 = ╱22╱"╱ // 0x955 @0x14
0x0941…095a at0015 = ╱57╱W╱ // 0x956 @0x15
0x0941…095a at0016 = ╱22╱"╱ // 0x957 @0x16
0x0941…095a at0017 = ╱ee╱)╱ // 0x958 @0x17
0x0941…095a at0018 = EOL // 0x959 @0x18
0x0941…095a }
0x095a…0967 9f55 0810 ENDPROC INITIER
0x095a…0967 LineComal80 {
0x095a…0967 ptr = 0x9f55 // 0x95a @0x0
0x095a…0967 lno = 0x032a // 0x95c @0x2
0x095a…0967 at0004 = ╱9f╱ ENDPROC ╱ // 0x95e @0x4
0x095a…0967 at0005 = ╱49╱I╱ // 0x95f @0x5
0x095a…0967 at0006 = ╱4e╱N╱ // 0x960 @0x6
0x095a…0967 at0007 = ╱49╱I╱ // 0x961 @0x7
0x095a…0967 at0008 = ╱54╱T╱ // 0x962 @0x8
0x095a…0967 at0009 = ╱49╱I╱ // 0x963 @0x9
0x095a…0967 at000a = ╱45╱E╱ // 0x964 @0xa
0x095a…0967 at000b = ╱52╱R╱ // 0x965 @0xb
0x095a…0967 at000c = EOL // 0x966 @0xc
0x095a…0967 }
0x0967…096c 9f5a 0820
0x0967…096c LineComal80 {
0x0967…096c ptr = 0x9f5a // 0x967 @0x0
0x0967…096c lno = 0x0334 // 0x969 @0x2
0x0967…096c at0004 = EOL // 0x96b @0x4
0x0967…096c }
0x096c…0980 9f6e 0830 PROC FUNKTIONSMENU
0x096c…0980 LineComal80 {
0x096c…0980 ptr = 0x9f6e // 0x96c @0x0
0x096c…0980 lno = 0x033e // 0x96e @0x2
0x096c…0980 at0004 = ╱9e03╱ PROC ╱ // 0x970 @0x4
0x096c…0980 at0006 = ╱46╱F╱ // 0x972 @0x6
0x096c…0980 at0007 = ╱55╱U╱ // 0x973 @0x7
0x096c…0980 at0008 = ╱4e╱N╱ // 0x974 @0x8
0x096c…0980 at0009 = ╱4b╱K╱ // 0x975 @0x9
0x096c…0980 at000a = ╱54╱T╱ // 0x976 @0xa
0x096c…0980 at000b = ╱49╱I╱ // 0x977 @0xb
0x096c…0980 at000c = ╱4f╱O╱ // 0x978 @0xc
0x096c…0980 at000d = ╱4e╱N╱ // 0x979 @0xd
0x096c…0980 at000e = ╱53╱S╱ // 0x97a @0xe
0x096c…0980 at000f = ╱4d╱M╱ // 0x97b @0xf
0x096c…0980 at0010 = ╱45╱E╱ // 0x97c @0x10
0x096c…0980 at0011 = ╱4e╱N╱ // 0x97d @0x11
0x096c…0980 at0012 = ╱55╱U╱ // 0x97e @0x12
0x096c…0980 at0013 = EOL // 0x97f @0x13
0x096c…0980 }
0x0980…0987 9f75 0840 REPEAT
0x0980…0987 LineComal80 {
0x0980…0987 ptr = 0x9f75 // 0x980 @0x0
0x0980…0987 lno = 0x0348 // 0x982 @0x2
0x0980…0987 at0004 = ╱9704╱ REPEAT ╱ // 0x984 @0x4
0x0980…0987 at0006 = EOL // 0x986 @0x6
0x0980…0987 }
0x0987…09af 9f9d 0850 EXEC OVERSKRIFT("Kontofunktioner",6)
0x0987…09af LineComal80 {
0x0987…09af ptr = 0x9f9d // 0x987 @0x0
0x0987…09af lno = 0x0352 // 0x989 @0x2
0x0987…09af at0004 = ╱9d╱ EXEC ╱ // 0x98b @0x4
0x0987…09af at0005 = ╱4f╱O╱ // 0x98c @0x5
0x0987…09af at0006 = ╱56╱V╱ // 0x98d @0x6
0x0987…09af at0007 = ╱45╱E╱ // 0x98e @0x7
0x0987…09af at0008 = ╱52╱R╱ // 0x98f @0x8
0x0987…09af at0009 = ╱53╱S╱ // 0x990 @0x9
0x0987…09af at000a = ╱4b╱K╱ // 0x991 @0xa
0x0987…09af at000b = ╱52╱R╱ // 0x992 @0xb
0x0987…09af at000c = ╱49╱I╱ // 0x993 @0xc
0x0987…09af at000d = ╱46╱F╱ // 0x994 @0xd
0x0987…09af at000e = ╱54╱T╱ // 0x995 @0xe
0x0987…09af at000f = ╱ed╱(╱ // 0x996 @0xf
0x0987…09af at0010 = ╱22╱"╱ // 0x997 @0x10
0x0987…09af at0011 = ╱4b╱K╱ // 0x998 @0x11
0x0987…09af at0012 = ╱6f╱o╱ // 0x999 @0x12
0x0987…09af at0013 = ╱6e╱n╱ // 0x99a @0x13
0x0987…09af at0014 = ╱74╱t╱ // 0x99b @0x14
0x0987…09af at0015 = ╱6f╱o╱ // 0x99c @0x15
0x0987…09af at0016 = ╱66╱f╱ // 0x99d @0x16
0x0987…09af at0017 = ╱75╱u╱ // 0x99e @0x17
0x0987…09af at0018 = ╱6e╱n╱ // 0x99f @0x18
0x0987…09af at0019 = ╱6b╱k╱ // 0x9a0 @0x19
0x0987…09af at001a = ╱74╱t╱ // 0x9a1 @0x1a
0x0987…09af at001b = ╱69╱i╱ // 0x9a2 @0x1b
0x0987…09af at001c = ╱6f╱o╱ // 0x9a3 @0x1c
0x0987…09af at001d = ╱6e╱n╱ // 0x9a4 @0x1d
0x0987…09af at001e = ╱65╱e╱ // 0x9a5 @0x1e
0x0987…09af at001f = ╱72╱r╱ // 0x9a6 @0x1f
0x0987…09af at0020 = ╱22╱"╱ // 0x9a7 @0x20
0x0987…09af at0021 = ╱ec╱,╱ // 0x9a8 @0x21
0x0987…09af at0022 = ╱36╱6╱ // 0x9a9 @0x22
0x0987…09af at0023 = ╱f20600╱ // 0x9aa @0x23
0x0987…09af at0026 = ╱ee╱)╱ // 0x9ad @0x26
0x0987…09af at0027 = EOL // 0x9ae @0x27
0x0987…09af }
0x09af…09de 9fcc 0860 PRINT "<C2309>Opret/ret konti OK"
0x09af…09de LineComal80 {
0x09af…09de ptr = 0x9fcc // 0x9af @0x0
0x09af…09de lno = 0x035c // 0x9b1 @0x2
0x09af…09de at0004 = ╱92╱ PRINT ╱ // 0x9b3 @0x4
0x09af…09de at0005 = ╱22╱"╱ // 0x9b4 @0x5
0x09af…09de at0006 = ╱3c╱<╱ // 0x9b5 @0x6
0x09af…09de at0007 = ╱43╱C╱ // 0x9b6 @0x7
0x09af…09de at0008 = ╱32╱2╱ // 0x9b7 @0x8
0x09af…09de at0009 = ╱33╱3╱ // 0x9b8 @0x9
0x09af…09de at000a = ╱30╱0╱ // 0x9b9 @0xa
0x09af…09de at000b = ╱39╱9╱ // 0x9ba @0xb
0x09af…09de at000c = ╱3e╱>╱ // 0x9bb @0xc
0x09af…09de at000d = ╱4f╱O╱ // 0x9bc @0xd
0x09af…09de at000e = ╱70╱p╱ // 0x9bd @0xe
0x09af…09de at000f = ╱72╱r╱ // 0x9be @0xf
0x09af…09de at0010 = ╱65╱e╱ // 0x9bf @0x10
0x09af…09de at0011 = ╱74╱t╱ // 0x9c0 @0x11
0x09af…09de at0012 = ╱2f╱/╱ // 0x9c1 @0x12
0x09af…09de at0013 = ╱72╱r╱ // 0x9c2 @0x13
0x09af…09de at0014 = ╱65╱e╱ // 0x9c3 @0x14
0x09af…09de at0015 = ╱74╱t╱ // 0x9c4 @0x15
0x09af…09de at0016 = ╱20╱…╱ // 0x9c5 @0x16
0x09af…09de at0017 = ╱6b╱k╱ // 0x9c6 @0x17
0x09af…09de at0018 = ╱6f╱o╱ // 0x9c7 @0x18
0x09af…09de at0019 = ╱6e╱n╱ // 0x9c8 @0x19
0x09af…09de at001a = ╱74╱t╱ // 0x9c9 @0x1a
0x09af…09de at001b = ╱69╱i╱ // 0x9ca @0x1b
0x09af…09de at001c = ╱20╱…╱ // 0x9cb @0x1c
0x09af…09de at001d = ╱20╱…╱ // 0x9cc @0x1d
0x09af…09de at001e = ╱20╱…╱ // 0x9cd @0x1e
0x09af…09de at001f = ╱20╱…╱ // 0x9ce @0x1f
0x09af…09de at0020 = ╱20╱…╱ // 0x9cf @0x20
0x09af…09de at0021 = ╱20╱…╱ // 0x9d0 @0x21
0x09af…09de at0022 = ╱20╱…╱ // 0x9d1 @0x22
0x09af…09de at0023 = ╱20╱…╱ // 0x9d2 @0x23
0x09af…09de at0024 = ╱20╱…╱ // 0x9d3 @0x24
0x09af…09de at0025 = ╱20╱…╱ // 0x9d4 @0x25
0x09af…09de at0026 = ╱20╱…╱ // 0x9d5 @0x26
0x09af…09de at0027 = ╱20╱…╱ // 0x9d6 @0x27
0x09af…09de at0028 = ╱20╱…╱ // 0x9d7 @0x28
0x09af…09de at0029 = ╱20╱…╱ // 0x9d8 @0x29
0x09af…09de at002a = ╱20╱…╱ // 0x9d9 @0x2a
0x09af…09de at002b = ╱4f╱O╱ // 0x9da @0x2b
0x09af…09de at002c = ╱4b╱K╱ // 0x9db @0x2c
0x09af…09de at002d = ╱22╱"╱ // 0x9dc @0x2d
0x09af…09de at002e = EOL // 0x9dd @0x2e
0x09af…09de }
0x09de…0a0d 9ffb 0870 PRINT "<C2311>Slet konti SK"
0x09de…0a0d LineComal80 {
0x09de…0a0d ptr = 0x9ffb // 0x9de @0x0
0x09de…0a0d lno = 0x0366 // 0x9e0 @0x2
0x09de…0a0d at0004 = ╱92╱ PRINT ╱ // 0x9e2 @0x4
0x09de…0a0d at0005 = ╱22╱"╱ // 0x9e3 @0x5
0x09de…0a0d at0006 = ╱3c╱<╱ // 0x9e4 @0x6
0x09de…0a0d at0007 = ╱43╱C╱ // 0x9e5 @0x7
0x09de…0a0d at0008 = ╱32╱2╱ // 0x9e6 @0x8
0x09de…0a0d at0009 = ╱33╱3╱ // 0x9e7 @0x9
0x09de…0a0d at000a = ╱31╱1╱ // 0x9e8 @0xa
0x09de…0a0d at000b = ╱31╱1╱ // 0x9e9 @0xb
0x09de…0a0d at000c = ╱3e╱>╱ // 0x9ea @0xc
0x09de…0a0d at000d = ╱53╱S╱ // 0x9eb @0xd
0x09de…0a0d at000e = ╱6c╱l╱ // 0x9ec @0xe
0x09de…0a0d at000f = ╱65╱e╱ // 0x9ed @0xf
0x09de…0a0d at0010 = ╱74╱t╱ // 0x9ee @0x10
0x09de…0a0d at0011 = ╱20╱…╱ // 0x9ef @0x11
0x09de…0a0d at0012 = ╱6b╱k╱ // 0x9f0 @0x12
0x09de…0a0d at0013 = ╱6f╱o╱ // 0x9f1 @0x13
0x09de…0a0d at0014 = ╱6e╱n╱ // 0x9f2 @0x14
0x09de…0a0d at0015 = ╱74╱t╱ // 0x9f3 @0x15
0x09de…0a0d at0016 = ╱69╱i╱ // 0x9f4 @0x16
0x09de…0a0d at0017 = ╱20╱…╱ // 0x9f5 @0x17
0x09de…0a0d at0018 = ╱20╱…╱ // 0x9f6 @0x18
0x09de…0a0d at0019 = ╱20╱…╱ // 0x9f7 @0x19
0x09de…0a0d at001a = ╱20╱…╱ // 0x9f8 @0x1a
0x09de…0a0d at001b = ╱20╱…╱ // 0x9f9 @0x1b
0x09de…0a0d at001c = ╱20╱…╱ // 0x9fa @0x1c
0x09de…0a0d at001d = ╱20╱…╱ // 0x9fb @0x1d
0x09de…0a0d at001e = ╱20╱…╱ // 0x9fc @0x1e
0x09de…0a0d at001f = ╱20╱…╱ // 0x9fd @0x1f
0x09de…0a0d at0020 = ╱20╱…╱ // 0x9fe @0x20
0x09de…0a0d at0021 = ╱20╱…╱ // 0x9ff @0x21
0x09de…0a0d at0022 = ╱20╱…╱ // 0xa00 @0x22
0x09de…0a0d at0023 = ╱20╱…╱ // 0xa01 @0x23
0x09de…0a0d at0024 = ╱20╱…╱ // 0xa02 @0x24
0x09de…0a0d at0025 = ╱20╱…╱ // 0xa03 @0x25
0x09de…0a0d at0026 = ╱20╱…╱ // 0xa04 @0x26
0x09de…0a0d at0027 = ╱20╱…╱ // 0xa05 @0x27
0x09de…0a0d at0028 = ╱20╱…╱ // 0xa06 @0x28
0x09de…0a0d at0029 = ╱20╱…╱ // 0xa07 @0x29
0x09de…0a0d at002a = ╱20╱…╱ // 0xa08 @0x2a
0x09de…0a0d at002b = ╱53╱S╱ // 0xa09 @0x2b
0x09de…0a0d at002c = ╱4b╱K╱ // 0xa0a @0x2c
0x09de…0a0d at002d = ╱22╱"╱ // 0xa0b @0x2d
0x09de…0a0d at002e = EOL // 0xa0c @0x2e
0x09de…0a0d }
0x0a0d…0a3e a02c 0880 PRINT "<C2314>Programfordeler RETURN"
0x0a0d…0a3e LineComal80 {
0x0a0d…0a3e ptr = 0xa02c // 0xa0d @0x0
0x0a0d…0a3e lno = 0x0370 // 0xa0f @0x2
0x0a0d…0a3e at0004 = ╱92╱ PRINT ╱ // 0xa11 @0x4
0x0a0d…0a3e at0005 = ╱22╱"╱ // 0xa12 @0x5
0x0a0d…0a3e at0006 = ╱3c╱<╱ // 0xa13 @0x6
0x0a0d…0a3e at0007 = ╱43╱C╱ // 0xa14 @0x7
0x0a0d…0a3e at0008 = ╱32╱2╱ // 0xa15 @0x8
0x0a0d…0a3e at0009 = ╱33╱3╱ // 0xa16 @0x9
0x0a0d…0a3e at000a = ╱31╱1╱ // 0xa17 @0xa
0x0a0d…0a3e at000b = ╱34╱4╱ // 0xa18 @0xb
0x0a0d…0a3e at000c = ╱3e╱>╱ // 0xa19 @0xc
0x0a0d…0a3e at000d = ╱50╱P╱ // 0xa1a @0xd
0x0a0d…0a3e at000e = ╱72╱r╱ // 0xa1b @0xe
0x0a0d…0a3e at000f = ╱6f╱o╱ // 0xa1c @0xf
0x0a0d…0a3e at0010 = ╱67╱g╱ // 0xa1d @0x10
0x0a0d…0a3e at0011 = ╱72╱r╱ // 0xa1e @0x11
0x0a0d…0a3e at0012 = ╱61╱a╱ // 0xa1f @0x12
0x0a0d…0a3e at0013 = ╱6d╱m╱ // 0xa20 @0x13
0x0a0d…0a3e at0014 = ╱66╱f╱ // 0xa21 @0x14
0x0a0d…0a3e at0015 = ╱6f╱o╱ // 0xa22 @0x15
0x0a0d…0a3e at0016 = ╱72╱r╱ // 0xa23 @0x16
0x0a0d…0a3e at0017 = ╱64╱d╱ // 0xa24 @0x17
0x0a0d…0a3e at0018 = ╱65╱e╱ // 0xa25 @0x18
0x0a0d…0a3e at0019 = ╱6c╱l╱ // 0xa26 @0x19
0x0a0d…0a3e at001a = ╱65╱e╱ // 0xa27 @0x1a
0x0a0d…0a3e at001b = ╱72╱r╱ // 0xa28 @0x1b
0x0a0d…0a3e at001c = ╱20╱…╱ // 0xa29 @0x1c
0x0a0d…0a3e at001d = ╱20╱…╱ // 0xa2a @0x1d
0x0a0d…0a3e at001e = ╱20╱…╱ // 0xa2b @0x1e
0x0a0d…0a3e at001f = ╱20╱…╱ // 0xa2c @0x1f
0x0a0d…0a3e at0020 = ╱20╱…╱ // 0xa2d @0x20
0x0a0d…0a3e at0021 = ╱20╱…╱ // 0xa2e @0x21
0x0a0d…0a3e at0022 = ╱20╱…╱ // 0xa2f @0x22
0x0a0d…0a3e at0023 = ╱20╱…╱ // 0xa30 @0x23
0x0a0d…0a3e at0024 = ╱20╱…╱ // 0xa31 @0x24
0x0a0d…0a3e at0025 = ╱20╱…╱ // 0xa32 @0x25
0x0a0d…0a3e at0026 = ╱20╱…╱ // 0xa33 @0x26
0x0a0d…0a3e at0027 = ╱20╱…╱ // 0xa34 @0x27
0x0a0d…0a3e at0028 = ╱20╱…╱ // 0xa35 @0x28
0x0a0d…0a3e at0029 = ╱52╱R╱ // 0xa36 @0x29
0x0a0d…0a3e at002a = ╱45╱E╱ // 0xa37 @0x2a
0x0a0d…0a3e at002b = ╱54╱T╱ // 0xa38 @0x2b
0x0a0d…0a3e at002c = ╱55╱U╱ // 0xa39 @0x2c
0x0a0d…0a3e at002d = ╱52╱R╱ // 0xa3a @0x2d
0x0a0d…0a3e at002e = ╱4e╱N╱ // 0xa3b @0x2e
0x0a0d…0a3e at002f = ╱22╱"╱ // 0xa3c @0x2f
0x0a0d…0a3e at0030 = EOL // 0xa3d @0x30
0x0a0d…0a3e }
0x0a3e…0a4e a03c 0890 LET SVAR$ := " "
0x0a3e…0a4e LineComal80 {
0x0a3e…0a4e ptr = 0xa03c // 0xa3e @0x0
0x0a3e…0a4e lno = 0x037a // 0xa40 @0x2
0x0a3e…0a4e at0004 = ╱86╱ LET ╱ // 0xa42 @0x4
0x0a3e…0a4e at0005 = ╱53╱S╱ // 0xa43 @0x5
0x0a3e…0a4e at0006 = ╱56╱V╱ // 0xa44 @0x6
0x0a3e…0a4e at0007 = ╱41╱A╱ // 0xa45 @0x7
0x0a3e…0a4e at0008 = ╱52╱R╱ // 0xa46 @0x8
0x0a3e…0a4e at0009 = ╱ef╱$╱ // 0xa47 @0x9
0x0a3e…0a4e at000a = ╱f0╱ := ╱ // 0xa48 @0xa
0x0a3e…0a4e at000b = ╱22╱"╱ // 0xa49 @0xb
0x0a3e…0a4e at000c = ╱20╱…╱ // 0xa4a @0xc
0x0a3e…0a4e at000d = ╱20╱…╱ // 0xa4b @0xd
0x0a3e…0a4e at000e = ╱22╱"╱ // 0xa4c @0xe
0x0a3e…0a4e at000f = EOL // 0xa4d @0xf
0x0a3e…0a4e }
0x0a4e…0a55 a043 0900 REPEAT
0x0a4e…0a55 LineComal80 {
0x0a4e…0a55 ptr = 0xa043 // 0xa4e @0x0
0x0a4e…0a55 lno = 0x0384 // 0xa50 @0x2
0x0a4e…0a55 at0004 = ╱9705╱ REPEAT ╱ // 0xa52 @0x4
0x0a4e…0a55 at0006 = EOL // 0xa54 @0x6
0x0a4e…0a55 }
0x0a55…0a8c a07a 0910 EDIT "<C2617>Indtast funktionskode: " : SVAR$(1 : 2)
0x0a55…0a8c LineComal80 {
0x0a55…0a8c ptr = 0xa07a // 0xa55 @0x0
0x0a55…0a8c lno = 0x038e // 0xa57 @0x2
0x0a55…0a8c at0004 = ╱b1╱ EDIT ╱ // 0xa59 @0x4
0x0a55…0a8c at0005 = ╱22╱"╱ // 0xa5a @0x5
0x0a55…0a8c at0006 = ╱3c╱<╱ // 0xa5b @0x6
0x0a55…0a8c at0007 = ╱43╱C╱ // 0xa5c @0x7
0x0a55…0a8c at0008 = ╱32╱2╱ // 0xa5d @0x8
0x0a55…0a8c at0009 = ╱36╱6╱ // 0xa5e @0x9
0x0a55…0a8c at000a = ╱31╱1╱ // 0xa5f @0xa
0x0a55…0a8c at000b = ╱37╱7╱ // 0xa60 @0xb
0x0a55…0a8c at000c = ╱3e╱>╱ // 0xa61 @0xc
0x0a55…0a8c at000d = ╱49╱I╱ // 0xa62 @0xd
0x0a55…0a8c at000e = ╱6e╱n╱ // 0xa63 @0xe
0x0a55…0a8c at000f = ╱64╱d╱ // 0xa64 @0xf
0x0a55…0a8c at0010 = ╱74╱t╱ // 0xa65 @0x10
0x0a55…0a8c at0011 = ╱61╱a╱ // 0xa66 @0x11
0x0a55…0a8c at0012 = ╱73╱s╱ // 0xa67 @0x12
0x0a55…0a8c at0013 = ╱74╱t╱ // 0xa68 @0x13
0x0a55…0a8c at0014 = ╱20╱…╱ // 0xa69 @0x14
0x0a55…0a8c at0015 = ╱66╱f╱ // 0xa6a @0x15
0x0a55…0a8c at0016 = ╱75╱u╱ // 0xa6b @0x16
0x0a55…0a8c at0017 = ╱6e╱n╱ // 0xa6c @0x17
0x0a55…0a8c at0018 = ╱6b╱k╱ // 0xa6d @0x18
0x0a55…0a8c at0019 = ╱74╱t╱ // 0xa6e @0x19
0x0a55…0a8c at001a = ╱69╱i╱ // 0xa6f @0x1a
0x0a55…0a8c at001b = ╱6f╱o╱ // 0xa70 @0x1b
0x0a55…0a8c at001c = ╱6e╱n╱ // 0xa71 @0x1c
0x0a55…0a8c at001d = ╱73╱s╱ // 0xa72 @0x1d
0x0a55…0a8c at001e = ╱6b╱k╱ // 0xa73 @0x1e
0x0a55…0a8c at001f = ╱6f╱o╱ // 0xa74 @0x1f
0x0a55…0a8c at0020 = ╱64╱d╱ // 0xa75 @0x20
0x0a55…0a8c at0021 = ╱65╱e╱ // 0xa76 @0x21
0x0a55…0a8c at0022 = ╱3a╱:╱ // 0xa77 @0x22
0x0a55…0a8c at0023 = ╱20╱…╱ // 0xa78 @0x23
0x0a55…0a8c at0024 = ╱22╱"╱ // 0xa79 @0x24
0x0a55…0a8c at0025 = ╱f1╱ : ╱ // 0xa7a @0x25
0x0a55…0a8c at0026 = ╱53╱S╱ // 0xa7b @0x26
0x0a55…0a8c at0027 = ╱56╱V╱ // 0xa7c @0x27
0x0a55…0a8c at0028 = ╱41╱A╱ // 0xa7d @0x28
0x0a55…0a8c at0029 = ╱52╱R╱ // 0xa7e @0x29
0x0a55…0a8c at002a = ╱ef╱$╱ // 0xa7f @0x2a
0x0a55…0a8c at002b = ╱ed╱(╱ // 0xa80 @0x2b
0x0a55…0a8c at002c = ╱31╱1╱ // 0xa81 @0x2c
0x0a55…0a8c at002d = ╱f20100╱ // 0xa82 @0x2d
0x0a55…0a8c at0030 = ╱f1╱ : ╱ // 0xa85 @0x30
0x0a55…0a8c at0031 = ╱32╱2╱ // 0xa86 @0x31
0x0a55…0a8c at0032 = ╱f20200╱ // 0xa87 @0x32
0x0a55…0a8c at0035 = ╱ee╱)╱ // 0xa8a @0x35
0x0a55…0a8c at0036 = EOL // 0xa8b @0x36
0x0a55…0a8c }
0x0a8c…0a9e a08c 0920 EXEC SL_FEJLLINIE
0x0a8c…0a9e LineComal80 {
0x0a8c…0a9e ptr = 0xa08c // 0xa8c @0x0
0x0a8c…0a9e lno = 0x0398 // 0xa8e @0x2
0x0a8c…0a9e at0004 = ╱9d╱ EXEC ╱ // 0xa90 @0x4
0x0a8c…0a9e at0005 = ╱53╱S╱ // 0xa91 @0x5
0x0a8c…0a9e at0006 = ╱4c╱L╱ // 0xa92 @0x6
0x0a8c…0a9e at0007 = ╱5f╱_╱ // 0xa93 @0x7
0x0a8c…0a9e at0008 = ╱46╱F╱ // 0xa94 @0x8
0x0a8c…0a9e at0009 = ╱45╱E╱ // 0xa95 @0x9
0x0a8c…0a9e at000a = ╱4a╱J╱ // 0xa96 @0xa
0x0a8c…0a9e at000b = ╱4c╱L╱ // 0xa97 @0xb
0x0a8c…0a9e at000c = ╱4c╱L╱ // 0xa98 @0xc
0x0a8c…0a9e at000d = ╱49╱I╱ // 0xa99 @0xd
0x0a8c…0a9e at000e = ╱4e╱N╱ // 0xa9a @0xe
0x0a8c…0a9e at000f = ╱49╱I╱ // 0xa9b @0xf
0x0a8c…0a9e at0010 = ╱45╱E╱ // 0xa9c @0x10
0x0a8c…0a9e at0011 = EOL // 0xa9d @0x11
0x0a8c…0a9e }
0x0a9e…0ac8 a0b6 0930 IF "/" + SVAR$ + "/" IN "/ /OK/ok/SK/sk//" THEN
0x0a9e…0ac8 LineComal80 {
0x0a9e…0ac8 ptr = 0xa0b6 // 0xa9e @0x0
0x0a9e…0ac8 lno = 0x03a2 // 0xaa0 @0x2
0x0a9e…0ac8 at0004 = ╱9b06d7╱ IF ╱ // 0xaa2 @0x4
0x0a9e…0ac8 at0007 = ╱22╱"╱ // 0xaa5 @0x7
0x0a9e…0ac8 at0008 = ╱2f╱/╱ // 0xaa6 @0x8
0x0a9e…0ac8 at0009 = ╱22╱"╱ // 0xaa7 @0x9
0x0a9e…0ac8 at000a = ╱eb╱ + ╱ // 0xaa8 @0xa
0x0a9e…0ac8 at000b = ╱53╱S╱ // 0xaa9 @0xb
0x0a9e…0ac8 at000c = ╱56╱V╱ // 0xaaa @0xc
0x0a9e…0ac8 at000d = ╱41╱A╱ // 0xaab @0xd
0x0a9e…0ac8 at000e = ╱52╱R╱ // 0xaac @0xe
0x0a9e…0ac8 at000f = ╱ef╱$╱ // 0xaad @0xf
0x0a9e…0ac8 at0010 = ╱eb╱ + ╱ // 0xaae @0x10
0x0a9e…0ac8 at0011 = ╱22╱"╱ // 0xaaf @0x11
0x0a9e…0ac8 at0012 = ╱2f╱/╱ // 0xab0 @0x12
0x0a9e…0ac8 at0013 = ╱22╱"╱ // 0xab1 @0x13
0x0a9e…0ac8 at0014 = ╱dc╱ IN ╱ // 0xab2 @0x14
0x0a9e…0ac8 at0015 = ╱22╱"╱ // 0xab3 @0x15
0x0a9e…0ac8 at0016 = ╱2f╱/╱ // 0xab4 @0x16
0x0a9e…0ac8 at0017 = ╱20╱…╱ // 0xab5 @0x17
0x0a9e…0ac8 at0018 = ╱20╱…╱ // 0xab6 @0x18
0x0a9e…0ac8 at0019 = ╱2f╱/╱ // 0xab7 @0x19
0x0a9e…0ac8 at001a = ╱4f╱O╱ // 0xab8 @0x1a
0x0a9e…0ac8 at001b = ╱4b╱K╱ // 0xab9 @0x1b
0x0a9e…0ac8 at001c = ╱2f╱/╱ // 0xaba @0x1c
0x0a9e…0ac8 at001d = ╱6f╱o╱ // 0xabb @0x1d
0x0a9e…0ac8 at001e = ╱6b╱k╱ // 0xabc @0x1e
0x0a9e…0ac8 at001f = ╱2f╱/╱ // 0xabd @0x1f
0x0a9e…0ac8 at0020 = ╱53╱S╱ // 0xabe @0x20
0x0a9e…0ac8 at0021 = ╱4b╱K╱ // 0xabf @0x21
0x0a9e…0ac8 at0022 = ╱2f╱/╱ // 0xac0 @0x22
0x0a9e…0ac8 at0023 = ╱73╱s╱ // 0xac1 @0x23
0x0a9e…0ac8 at0024 = ╱6b╱k╱ // 0xac2 @0x24
0x0a9e…0ac8 at0025 = ╱2f╱/╱ // 0xac3 @0x25
0x0a9e…0ac8 at0026 = ╱2f╱/╱ // 0xac4 @0x26
0x0a9e…0ac8 at0027 = ╱22╱"╱ // 0xac5 @0x27
0x0a9e…0ac8 at0028 = ╱b5╱ THEN ╱ // 0xac6 @0x28
0x0a9e…0ac8 at0029 = EOL // 0xac7 @0x29
0x0a9e…0ac8 }
0x0ac8…0af8 a0e6 0940 EXEC FEJL("Ulovlig funktionskode: '" + SVAR$ + "'")
0x0ac8…0af8 LineComal80 {
0x0ac8…0af8 ptr = 0xa0e6 // 0xac8 @0x0
0x0ac8…0af8 lno = 0x03ac // 0xaca @0x2
0x0ac8…0af8 at0004 = ╱9d╱ EXEC ╱ // 0xacc @0x4
0x0ac8…0af8 at0005 = ╱46╱F╱ // 0xacd @0x5
0x0ac8…0af8 at0006 = ╱45╱E╱ // 0xace @0x6
0x0ac8…0af8 at0007 = ╱4a╱J╱ // 0xacf @0x7
0x0ac8…0af8 at0008 = ╱4c╱L╱ // 0xad0 @0x8
0x0ac8…0af8 at0009 = ╱ed╱(╱ // 0xad1 @0x9
0x0ac8…0af8 at000a = ╱22╱"╱ // 0xad2 @0xa
0x0ac8…0af8 at000b = ╱55╱U╱ // 0xad3 @0xb
0x0ac8…0af8 at000c = ╱6c╱l╱ // 0xad4 @0xc
0x0ac8…0af8 at000d = ╱6f╱o╱ // 0xad5 @0xd
0x0ac8…0af8 at000e = ╱76╱v╱ // 0xad6 @0xe
0x0ac8…0af8 at000f = ╱6c╱l╱ // 0xad7 @0xf
0x0ac8…0af8 at0010 = ╱69╱i╱ // 0xad8 @0x10
0x0ac8…0af8 at0011 = ╱67╱g╱ // 0xad9 @0x11
0x0ac8…0af8 at0012 = ╱20╱…╱ // 0xada @0x12
0x0ac8…0af8 at0013 = ╱66╱f╱ // 0xadb @0x13
0x0ac8…0af8 at0014 = ╱75╱u╱ // 0xadc @0x14
0x0ac8…0af8 at0015 = ╱6e╱n╱ // 0xadd @0x15
0x0ac8…0af8 at0016 = ╱6b╱k╱ // 0xade @0x16
0x0ac8…0af8 at0017 = ╱74╱t╱ // 0xadf @0x17
0x0ac8…0af8 at0018 = ╱69╱i╱ // 0xae0 @0x18
0x0ac8…0af8 at0019 = ╱6f╱o╱ // 0xae1 @0x19
0x0ac8…0af8 at001a = ╱6e╱n╱ // 0xae2 @0x1a
0x0ac8…0af8 at001b = ╱73╱s╱ // 0xae3 @0x1b
0x0ac8…0af8 at001c = ╱6b╱k╱ // 0xae4 @0x1c
0x0ac8…0af8 at001d = ╱6f╱o╱ // 0xae5 @0x1d
0x0ac8…0af8 at001e = ╱64╱d╱ // 0xae6 @0x1e
0x0ac8…0af8 at001f = ╱65╱e╱ // 0xae7 @0x1f
0x0ac8…0af8 at0020 = ╱3a╱:╱ // 0xae8 @0x20
0x0ac8…0af8 at0021 = ╱20╱…╱ // 0xae9 @0x21
0x0ac8…0af8 at0022 = ╱27╱'╱ // 0xaea @0x22
0x0ac8…0af8 at0023 = ╱22╱"╱ // 0xaeb @0x23
0x0ac8…0af8 at0024 = ╱eb╱ + ╱ // 0xaec @0x24
0x0ac8…0af8 at0025 = ╱53╱S╱ // 0xaed @0x25
0x0ac8…0af8 at0026 = ╱56╱V╱ // 0xaee @0x26
0x0ac8…0af8 at0027 = ╱41╱A╱ // 0xaef @0x27
0x0ac8…0af8 at0028 = ╱52╱R╱ // 0xaf0 @0x28
0x0ac8…0af8 at0029 = ╱ef╱$╱ // 0xaf1 @0x29
0x0ac8…0af8 at002a = ╱eb╱ + ╱ // 0xaf2 @0x2a
0x0ac8…0af8 at002b = ╱22╱"╱ // 0xaf3 @0x2b
0x0ac8…0af8 at002c = ╱27╱'╱ // 0xaf4 @0x2c
0x0ac8…0af8 at002d = ╱22╱"╱ // 0xaf5 @0x2d
0x0ac8…0af8 at002e = ╱ee╱)╱ // 0xaf6 @0x2e
0x0ac8…0af8 at002f = EOL // 0xaf7 @0x2f
0x0ac8…0af8 }
0x0af8…0afe a0ec 0950 ENDIF
0x0af8…0afe LineComal80 {
0x0af8…0afe ptr = 0xa0ec // 0xaf8 @0x0
0x0af8…0afe lno = 0x03b6 // 0xafa @0x2
0x0af8…0afe at0004 = ╱9c╱ ENDIF ╱ // 0xafc @0x4
0x0af8…0afe at0005 = EOL // 0xafd @0x5
0x0af8…0afe }
0x0afe…0b25 a113 0960 UNTIL "/" + SVAR$ + "/" IN "/ /OK/ok/SK/sk//"
0x0afe…0b25 LineComal80 {
0x0afe…0b25 ptr = 0xa113 // 0xafe @0x0
0x0afe…0b25 lno = 0x03c0 // 0xb00 @0x2
0x0afe…0b25 at0004 = ╱98╱ UNTIL ╱ // 0xb02 @0x4
0x0afe…0b25 at0005 = ╱22╱"╱ // 0xb03 @0x5
0x0afe…0b25 at0006 = ╱2f╱/╱ // 0xb04 @0x6
0x0afe…0b25 at0007 = ╱22╱"╱ // 0xb05 @0x7
0x0afe…0b25 at0008 = ╱eb╱ + ╱ // 0xb06 @0x8
0x0afe…0b25 at0009 = ╱53╱S╱ // 0xb07 @0x9
0x0afe…0b25 at000a = ╱56╱V╱ // 0xb08 @0xa
0x0afe…0b25 at000b = ╱41╱A╱ // 0xb09 @0xb
0x0afe…0b25 at000c = ╱52╱R╱ // 0xb0a @0xc
0x0afe…0b25 at000d = ╱ef╱$╱ // 0xb0b @0xd
0x0afe…0b25 at000e = ╱eb╱ + ╱ // 0xb0c @0xe
0x0afe…0b25 at000f = ╱22╱"╱ // 0xb0d @0xf
0x0afe…0b25 at0010 = ╱2f╱/╱ // 0xb0e @0x10
0x0afe…0b25 at0011 = ╱22╱"╱ // 0xb0f @0x11
0x0afe…0b25 at0012 = ╱dc╱ IN ╱ // 0xb10 @0x12
0x0afe…0b25 at0013 = ╱22╱"╱ // 0xb11 @0x13
0x0afe…0b25 at0014 = ╱2f╱/╱ // 0xb12 @0x14
0x0afe…0b25 at0015 = ╱20╱…╱ // 0xb13 @0x15
0x0afe…0b25 at0016 = ╱20╱…╱ // 0xb14 @0x16
0x0afe…0b25 at0017 = ╱2f╱/╱ // 0xb15 @0x17
0x0afe…0b25 at0018 = ╱4f╱O╱ // 0xb16 @0x18
0x0afe…0b25 at0019 = ╱4b╱K╱ // 0xb17 @0x19
0x0afe…0b25 at001a = ╱2f╱/╱ // 0xb18 @0x1a
0x0afe…0b25 at001b = ╱6f╱o╱ // 0xb19 @0x1b
0x0afe…0b25 at001c = ╱6b╱k╱ // 0xb1a @0x1c
0x0afe…0b25 at001d = ╱2f╱/╱ // 0xb1b @0x1d
0x0afe…0b25 at001e = ╱53╱S╱ // 0xb1c @0x1e
0x0afe…0b25 at001f = ╱4b╱K╱ // 0xb1d @0x1f
0x0afe…0b25 at0020 = ╱2f╱/╱ // 0xb1e @0x20
0x0afe…0b25 at0021 = ╱73╱s╱ // 0xb1f @0x21
0x0afe…0b25 at0022 = ╱6b╱k╱ // 0xb20 @0x22
0x0afe…0b25 at0023 = ╱2f╱/╱ // 0xb21 @0x23
0x0afe…0b25 at0024 = ╱2f╱/╱ // 0xb22 @0x24
0x0afe…0b25 at0025 = ╱22╱"╱ // 0xb23 @0x25
0x0afe…0b25 at0026 = EOL // 0xb24 @0x26
0x0afe…0b25 }
0x0b25…0b33 a121 0970 CASE SVAR$ OF
0x0b25…0b33 LineComal80 {
0x0b25…0b33 ptr = 0xa121 // 0xb25 @0x0
0x0b25…0b33 lno = 0x03ca // 0xb27 @0x2
0x0b25…0b33 at0004 = ╱a20700╱ CASE ╱ // 0xb29 @0x4
0x0b25…0b33 at0007 = ╱53╱S╱ // 0xb2c @0x7
0x0b25…0b33 at0008 = ╱56╱V╱ // 0xb2d @0x8
0x0b25…0b33 at0009 = ╱41╱A╱ // 0xb2e @0x9
0x0b25…0b33 at000a = ╱52╱R╱ // 0xb2f @0xa
0x0b25…0b33 at000b = ╱ef╱$╱ // 0xb30 @0xb
0x0b25…0b33 at000c = ╱ba╱ OF ╱ // 0xb31 @0xc
0x0b25…0b33 at000d = EOL // 0xb32 @0xd
0x0b25…0b33 }
0x0b33…0b44 a132 0980 WHILE "OK","ok"
0x0b33…0b44 LineComal80 {
0x0b33…0b44 ptr = 0xa132 // 0xb33 @0x0
0x0b33…0b44 lno = 0x03d4 // 0xb35 @0x2
0x0b33…0b44 at0004 = ╱a40800╱ WHILE ╱ // 0xb37 @0x4
0x0b33…0b44 at0007 = ╱22╱"╱ // 0xb3a @0x7
0x0b33…0b44 at0008 = ╱4f╱O╱ // 0xb3b @0x8
0x0b33…0b44 at0009 = ╱4b╱K╱ // 0xb3c @0x9
0x0b33…0b44 at000a = ╱22╱"╱ // 0xb3d @0xa
0x0b33…0b44 at000b = ╱ec╱,╱ // 0xb3e @0xb
0x0b33…0b44 at000c = ╱22╱"╱ // 0xb3f @0xc
0x0b33…0b44 at000d = ╱6f╱o╱ // 0xb40 @0xd
0x0b33…0b44 at000e = ╱6b╱k╱ // 0xb41 @0xe
0x0b33…0b44 at000f = ╱22╱"╱ // 0xb42 @0xf
0x0b33…0b44 at0010 = EOL // 0xb43 @0x10
0x0b33…0b44 }
0x0b44…0b59 a147 0990 EXEC OPRET_RET_KONTI
0x0b44…0b59 LineComal80 {
0x0b44…0b59 ptr = 0xa147 // 0xb44 @0x0
0x0b44…0b59 lno = 0x03de // 0xb46 @0x2
0x0b44…0b59 at0004 = ╱9d╱ EXEC ╱ // 0xb48 @0x4
0x0b44…0b59 at0005 = ╱4f╱O╱ // 0xb49 @0x5
0x0b44…0b59 at0006 = ╱50╱P╱ // 0xb4a @0x6
0x0b44…0b59 at0007 = ╱52╱R╱ // 0xb4b @0x7
0x0b44…0b59 at0008 = ╱45╱E╱ // 0xb4c @0x8
0x0b44…0b59 at0009 = ╱54╱T╱ // 0xb4d @0x9
0x0b44…0b59 at000a = ╱5f╱_╱ // 0xb4e @0xa
0x0b44…0b59 at000b = ╱52╱R╱ // 0xb4f @0xb
0x0b44…0b59 at000c = ╱45╱E╱ // 0xb50 @0xc
0x0b44…0b59 at000d = ╱54╱T╱ // 0xb51 @0xd
0x0b44…0b59 at000e = ╱5f╱_╱ // 0xb52 @0xe
0x0b44…0b59 at000f = ╱4b╱K╱ // 0xb53 @0xf
0x0b44…0b59 at0010 = ╱4f╱O╱ // 0xb54 @0x10
0x0b44…0b59 at0011 = ╱4e╱N╱ // 0xb55 @0x11
0x0b44…0b59 at0012 = ╱54╱T╱ // 0xb56 @0x12
0x0b44…0b59 at0013 = ╱49╱I╱ // 0xb57 @0x13
0x0b44…0b59 at0014 = EOL // 0xb58 @0x14
0x0b44…0b59 }
0x0b59…0b6a a158 1000 WHILE "SK","sk"
0x0b59…0b6a LineComal80 {
0x0b59…0b6a ptr = 0xa158 // 0xb59 @0x0
0x0b59…0b6a lno = 0x03e8 // 0xb5b @0x2
0x0b59…0b6a at0004 = ╱a40900╱ WHILE ╱ // 0xb5d @0x4
0x0b59…0b6a at0007 = ╱22╱"╱ // 0xb60 @0x7
0x0b59…0b6a at0008 = ╱53╱S╱ // 0xb61 @0x8
0x0b59…0b6a at0009 = ╱4b╱K╱ // 0xb62 @0x9
0x0b59…0b6a at000a = ╱22╱"╱ // 0xb63 @0xa
0x0b59…0b6a at000b = ╱ec╱,╱ // 0xb64 @0xb
0x0b59…0b6a at000c = ╱22╱"╱ // 0xb65 @0xc
0x0b59…0b6a at000d = ╱73╱s╱ // 0xb66 @0xd
0x0b59…0b6a at000e = ╱6b╱k╱ // 0xb67 @0xe
0x0b59…0b6a at000f = ╱22╱"╱ // 0xb68 @0xf
0x0b59…0b6a at0010 = EOL // 0xb69 @0x10
0x0b59…0b6a }
0x0b6a…0b7a a168 1010 EXEC SLET_KONTI
0x0b6a…0b7a LineComal80 {
0x0b6a…0b7a ptr = 0xa168 // 0xb6a @0x0
0x0b6a…0b7a lno = 0x03f2 // 0xb6c @0x2
0x0b6a…0b7a at0004 = ╱9d╱ EXEC ╱ // 0xb6e @0x4
0x0b6a…0b7a at0005 = ╱53╱S╱ // 0xb6f @0x5
0x0b6a…0b7a at0006 = ╱4c╱L╱ // 0xb70 @0x6
0x0b6a…0b7a at0007 = ╱45╱E╱ // 0xb71 @0x7
0x0b6a…0b7a at0008 = ╱54╱T╱ // 0xb72 @0x8
0x0b6a…0b7a at0009 = ╱5f╱_╱ // 0xb73 @0x9
0x0b6a…0b7a at000a = ╱4b╱K╱ // 0xb74 @0xa
0x0b6a…0b7a at000b = ╱4f╱O╱ // 0xb75 @0xb
0x0b6a…0b7a at000c = ╱4e╱N╱ // 0xb76 @0xc
0x0b6a…0b7a at000d = ╱54╱T╱ // 0xb77 @0xd
0x0b6a…0b7a at000e = ╱49╱I╱ // 0xb78 @0xe
0x0b6a…0b7a at000f = EOL // 0xb79 @0xf
0x0b6a…0b7a }
0x0b7a…0b81 a16f 1020 OTHERWISE
0x0b7a…0b81 LineComal80 {
0x0b7a…0b81 ptr = 0xa16f // 0xb7a @0x0
0x0b7a…0b81 lno = 0x03fc // 0xb7c @0x2
0x0b7a…0b81 at0004 = ╱950a╱ OTHERWISE ╱ // 0xb7e @0x4
0x0b7a…0b81 at0006 = EOL // 0xb80 @0x6
0x0b7a…0b81 }
0x0b81…0b87 a175 1030 CLOSE
0x0b81…0b87 LineComal80 {
0x0b81…0b87 ptr = 0xa175 // 0xb81 @0x0
0x0b81…0b87 lno = 0x0406 // 0xb83 @0x2
0x0b81…0b87 at0004 = ╱a8╱ CLOSE ╱ // 0xb85 @0x4
0x0b81…0b87 at0005 = EOL // 0xb86 @0x5
0x0b81…0b87 }
0x0b87…0b95 a183 1040 CHAIN PROGRAM$
0x0b87…0b95 LineComal80 {
0x0b87…0b95 ptr = 0xa183 // 0xb87 @0x0
0x0b87…0b95 lno = 0x0410 // 0xb89 @0x2
0x0b87…0b95 at0004 = ╱ac╱ CHAIN ╱ // 0xb8b @0x4
0x0b87…0b95 at0005 = ╱50╱P╱ // 0xb8c @0x5
0x0b87…0b95 at0006 = ╱52╱R╱ // 0xb8d @0x6
0x0b87…0b95 at0007 = ╱4f╱O╱ // 0xb8e @0x7
0x0b87…0b95 at0008 = ╱47╱G╱ // 0xb8f @0x8
0x0b87…0b95 at0009 = ╱52╱R╱ // 0xb90 @0x9
0x0b87…0b95 at000a = ╱41╱A╱ // 0xb91 @0xa
0x0b87…0b95 at000b = ╱4d╱M╱ // 0xb92 @0xb
0x0b87…0b95 at000c = ╱ef╱$╱ // 0xb93 @0xc
0x0b87…0b95 at000d = EOL // 0xb94 @0xd
0x0b87…0b95 }
0x0b95…0b9b a189 1050 ENDCASE
0x0b95…0b9b LineComal80 {
0x0b95…0b9b ptr = 0xa189 // 0xb95 @0x0
0x0b95…0b9b lno = 0x041a // 0xb97 @0x2
0x0b95…0b9b at0004 = ╱a3╱ ENDCASE ╱ // 0xb99 @0x4
0x0b95…0b9b at0005 = EOL // 0xb9a @0x5
0x0b95…0b9b }
0x0b9b…0ba6 a194 1060 UNTIL FALSE
0x0b9b…0ba6 LineComal80 {
0x0b9b…0ba6 ptr = 0xa194 // 0xb9b @0x0
0x0b9b…0ba6 lno = 0x0424 // 0xb9d @0x2
0x0b9b…0ba6 at0004 = ╱98╱ UNTIL ╱ // 0xb9f @0x4
0x0b9b…0ba6 at0005 = ╱46╱F╱ // 0xba0 @0x5
0x0b9b…0ba6 at0006 = ╱41╱A╱ // 0xba1 @0x6
0x0b9b…0ba6 at0007 = ╱4c╱L╱ // 0xba2 @0x7
0x0b9b…0ba6 at0008 = ╱53╱S╱ // 0xba3 @0x8
0x0b9b…0ba6 at0009 = ╱45╱E╱ // 0xba4 @0x9
0x0b9b…0ba6 at000a = EOL // 0xba5 @0xa
0x0b9b…0ba6 }
0x0ba6…0bb9 a1a7 1070 ENDPROC FUNKTIONSMENU
0x0ba6…0bb9 LineComal80 {
0x0ba6…0bb9 ptr = 0xa1a7 // 0xba6 @0x0
0x0ba6…0bb9 lno = 0x042e // 0xba8 @0x2
0x0ba6…0bb9 at0004 = ╱9f╱ ENDPROC ╱ // 0xbaa @0x4
0x0ba6…0bb9 at0005 = ╱46╱F╱ // 0xbab @0x5
0x0ba6…0bb9 at0006 = ╱55╱U╱ // 0xbac @0x6
0x0ba6…0bb9 at0007 = ╱4e╱N╱ // 0xbad @0x7
0x0ba6…0bb9 at0008 = ╱4b╱K╱ // 0xbae @0x8
0x0ba6…0bb9 at0009 = ╱54╱T╱ // 0xbaf @0x9
0x0ba6…0bb9 at000a = ╱49╱I╱ // 0xbb0 @0xa
0x0ba6…0bb9 at000b = ╱4f╱O╱ // 0xbb1 @0xb
0x0ba6…0bb9 at000c = ╱4e╱N╱ // 0xbb2 @0xc
0x0ba6…0bb9 at000d = ╱53╱S╱ // 0xbb3 @0xd
0x0ba6…0bb9 at000e = ╱4d╱M╱ // 0xbb4 @0xe
0x0ba6…0bb9 at000f = ╱45╱E╱ // 0xbb5 @0xf
0x0ba6…0bb9 at0010 = ╱4e╱N╱ // 0xbb6 @0x10
0x0ba6…0bb9 at0011 = ╱55╱U╱ // 0xbb7 @0x11
0x0ba6…0bb9 at0012 = EOL // 0xbb8 @0x12
0x0ba6…0bb9 }
0x0bb9…0bbf a1ad 1080 //
0x0bb9…0bbf LineComal80 {
0x0bb9…0bbf ptr = 0xa1ad // 0xbb9 @0x0
0x0bb9…0bbf lno = 0x0438 // 0xbbb @0x2
0x0bb9…0bbf at0004 = ╱89╱ // ╱ // 0xbbd @0x4
0x0bb9…0bbf at0005 = EOL // 0xbbe @0x5
0x0bb9…0bbf }
0x0bbf…0bd2 a1c0 1090 PROC TERMINAL_IDX
0x0bbf…0bd2 LineComal80 {
0x0bbf…0bd2 ptr = 0xa1c0 // 0xbbf @0x0
0x0bbf…0bd2 lno = 0x0442 // 0xbc1 @0x2
0x0bbf…0bd2 at0004 = ╱9e0b╱ PROC ╱ // 0xbc3 @0x4
0x0bbf…0bd2 at0006 = ╱54╱T╱ // 0xbc5 @0x6
0x0bbf…0bd2 at0007 = ╱45╱E╱ // 0xbc6 @0x7
0x0bbf…0bd2 at0008 = ╱52╱R╱ // 0xbc7 @0x8
0x0bbf…0bd2 at0009 = ╱4d╱M╱ // 0xbc8 @0x9
0x0bbf…0bd2 at000a = ╱49╱I╱ // 0xbc9 @0xa
0x0bbf…0bd2 at000b = ╱4e╱N╱ // 0xbca @0xb
0x0bbf…0bd2 at000c = ╱41╱A╱ // 0xbcb @0xc
0x0bbf…0bd2 at000d = ╱4c╱L╱ // 0xbcc @0xd
0x0bbf…0bd2 at000e = ╱5f╱_╱ // 0xbcd @0xe
0x0bbf…0bd2 at000f = ╱49╱I╱ // 0xbce @0xf
0x0bbf…0bd2 at0010 = ╱44╱D╱ // 0xbcf @0x10
0x0bbf…0bd2 at0011 = ╱58╱X╱ // 0xbd0 @0x11
0x0bbf…0bd2 at0012 = EOL // 0xbd1 @0x12
0x0bbf…0bd2 }
0x0bd2…0bec a1da 1100 LET PPAR := 5 ; RESRV := 0
0x0bd2…0bec LineComal80 {
0x0bd2…0bec ptr = 0xa1da // 0xbd2 @0x0
0x0bd2…0bec lno = 0x044c // 0xbd4 @0x2
0x0bd2…0bec at0004 = ╱86╱ LET ╱ // 0xbd6 @0x4
0x0bd2…0bec at0005 = ╱50╱P╱ // 0xbd7 @0x5
0x0bd2…0bec at0006 = ╱50╱P╱ // 0xbd8 @0x6
0x0bd2…0bec at0007 = ╱41╱A╱ // 0xbd9 @0x7
0x0bd2…0bec at0008 = ╱52╱R╱ // 0xbda @0x8
0x0bd2…0bec at0009 = ╱f0╱ := ╱ // 0xbdb @0x9
0x0bd2…0bec at000a = ╱35╱5╱ // 0xbdc @0xa
0x0bd2…0bec at000b = ╱f20500╱ // 0xbdd @0xb
0x0bd2…0bec at000e = ╱ea╱ ; ╱ // 0xbe0 @0xe
0x0bd2…0bec at000f = ╱52╱R╱ // 0xbe1 @0xf
0x0bd2…0bec at0010 = ╱45╱E╱ // 0xbe2 @0x10
0x0bd2…0bec at0011 = ╱53╱S╱ // 0xbe3 @0x11
0x0bd2…0bec at0012 = ╱52╱R╱ // 0xbe4 @0x12
0x0bd2…0bec at0013 = ╱56╱V╱ // 0xbe5 @0x13
0x0bd2…0bec at0014 = ╱f0╱ := ╱ // 0xbe6 @0x14
0x0bd2…0bec at0015 = ╱30╱0╱ // 0xbe7 @0x15
0x0bd2…0bec at0016 = ╱f20000╱ // 0xbe8 @0x16
0x0bd2…0bec at0019 = EOL // 0xbeb @0x19
0x0bd2…0bec }
0x0bec…0bfe a1ec 1110 CALL :PRES"
0x0bec…0bfe LineComal80 {
0x0bec…0bfe ptr = 0xa1ec // 0xbec @0x0
0x0bec…0bfe lno = 0x0456 // 0xbee @0x2
0x0bec…0bfe at0004 = ╱ad00╱ CALL ╱ // 0xbf0 @0x4
0x0bec…0bfe at0006 = ╱fe22444445╱ // 0xbf2 @0x6
0x0bec…0bfe at000b = ╱3a╱:╱ // 0xbf7 @0xb
0x0bec…0bfe at000c = ╱50╱P╱ // 0xbf8 @0xc
0x0bec…0bfe at000d = ╱52╱R╱ // 0xbf9 @0xd
0x0bec…0bfe at000e = ╱45╱E╱ // 0xbfa @0xe
0x0bec…0bfe at000f = ╱53╱S╱ // 0xbfb @0xf
0x0bec…0bfe at0010 = ╱22╱"╱ // 0xbfc @0x10
0x0bec…0bfe at0011 = EOL // 0xbfd @0x11
0x0bec…0bfe }
0x0bfe…0c27 a215 1120 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0x0bfe…0c27 LineComal80 {
0x0bfe…0c27 ptr = 0xa215 // 0xbfe @0x0
0x0bfe…0c27 lno = 0x0460 // 0xc00 @0x2
0x0bfe…0c27 at0004 = ╱a9╱ GET ╱ // 0xc02 @0x4
0x0bfe…0c27 at0005 = ╱53╱S╱ // 0xc03 @0x5
0x0bfe…0c27 at0006 = ╱59╱Y╱ // 0xc04 @0x6
0x0bfe…0c27 at0007 = ╱53╱S╱ // 0xc05 @0x7
0x0bfe…0c27 at0008 = ╱50╱P╱ // 0xc06 @0x8
0x0bfe…0c27 at0009 = ╱41╱A╱ // 0xc07 @0x9
0x0bfe…0c27 at000a = ╱52╱R╱ // 0xc08 @0xa
0x0bfe…0c27 at000b = ╱41╱A╱ // 0xc09 @0xb
0x0bfe…0c27 at000c = ╱ef╱$╱ // 0xc0a @0xc
0x0bfe…0c27 at000d = ╱ec╱,╱ // 0xc0b @0xd
0x0bfe…0c27 at000e = ╱31╱1╱ // 0xc0c @0xe
0x0bfe…0c27 at000f = ╱f20100╱ // 0xc0d @0xf
0x0bfe…0c27 at0012 = ╱e5╱ + ╱ // 0xc10 @0x12
0x0bfe…0c27 at0013 = ╱52╱R╱ // 0xc11 @0x13
0x0bfe…0c27 at0014 = ╱45╱E╱ // 0xc12 @0x14
0x0bfe…0c27 at0015 = ╱53╱S╱ // 0xc13 @0x15
0x0bfe…0c27 at0016 = ╱52╱R╱ // 0xc14 @0x16
0x0bfe…0c27 at0017 = ╱56╱V╱ // 0xc15 @0x17
0x0bfe…0c27 at0018 = ╱f1╱ : ╱ // 0xc16 @0x18
0x0bfe…0c27 at0019 = ╱44╱D╱ // 0xc17 @0x19
0x0bfe…0c27 at001a = ╱41╱A╱ // 0xc18 @0x1a
0x0bfe…0c27 at001b = ╱54╱T╱ // 0xc19 @0x1b
0x0bfe…0c27 at001c = ╱41╱A╱ // 0xc1a @0x1c
0x0bfe…0c27 at001d = ╱46╱F╱ // 0xc1b @0x1d
0x0bfe…0c27 at001e = ╱4c╱L╱ // 0xc1c @0x1e
0x0bfe…0c27 at001f = ╱ef╱$╱ // 0xc1d @0x1f
0x0bfe…0c27 at0020 = ╱ec╱,╱ // 0xc1e @0x20
0x0bfe…0c27 at0021 = ╱54╱T╱ // 0xc1f @0x21
0x0bfe…0c27 at0022 = ╱5f╱_╱ // 0xc20 @0x22
0x0bfe…0c27 at0023 = ╱4b╱K╱ // 0xc21 @0x23
0x0bfe…0c27 at0024 = ╱4f╱O╱ // 0xc22 @0x24
0x0bfe…0c27 at0025 = ╱44╱D╱ // 0xc23 @0x25
0x0bfe…0c27 at0026 = ╱45╱E╱ // 0xc24 @0x26
0x0bfe…0c27 at0027 = ╱ef╱$╱ // 0xc25 @0x27
0x0bfe…0c27 at0028 = EOL // 0xc26 @0x28
0x0bfe…0c27 }
0x0c27…0c39 a227 1130 ENDPROC TERMINAL_IDX
0x0c27…0c39 LineComal80 {
0x0c27…0c39 ptr = 0xa227 // 0xc27 @0x0
0x0c27…0c39 lno = 0x046a // 0xc29 @0x2
0x0c27…0c39 at0004 = ╱9f╱ ENDPROC ╱ // 0xc2b @0x4
0x0c27…0c39 at0005 = ╱54╱T╱ // 0xc2c @0x5
0x0c27…0c39 at0006 = ╱45╱E╱ // 0xc2d @0x6
0x0c27…0c39 at0007 = ╱52╱R╱ // 0xc2e @0x7
0x0c27…0c39 at0008 = ╱4d╱M╱ // 0xc2f @0x8
0x0c27…0c39 at0009 = ╱49╱I╱ // 0xc30 @0x9
0x0c27…0c39 at000a = ╱4e╱N╱ // 0xc31 @0xa
0x0c27…0c39 at000b = ╱41╱A╱ // 0xc32 @0xb
0x0c27…0c39 at000c = ╱4c╱L╱ // 0xc33 @0xc
0x0c27…0c39 at000d = ╱5f╱_╱ // 0xc34 @0xd
0x0c27…0c39 at000e = ╱49╱I╱ // 0xc35 @0xe
0x0c27…0c39 at000f = ╱44╱D╱ // 0xc36 @0xf
0x0c27…0c39 at0010 = ╱58╱X╱ // 0xc37 @0x10
0x0c27…0c39 at0011 = EOL // 0xc38 @0x11
0x0c27…0c39 }
0x0c39…0c3e a22c 1140
0x0c39…0c3e LineComal80 {
0x0c39…0c3e ptr = 0xa22c // 0xc39 @0x0
0x0c39…0c3e lno = 0x0474 // 0xc3b @0x2
0x0c39…0c3e at0004 = EOL // 0xc3d @0x4
0x0c39…0c3e }
0x0c3e…0c59 a247 1150 PROC OPENFIL(FNAVN$,WAY$)
0x0c3e…0c59 LineComal80 {
0x0c3e…0c59 ptr = 0xa247 // 0xc3e @0x0
0x0c3e…0c59 lno = 0x047e // 0xc40 @0x2
0x0c3e…0c59 at0004 = ╱9e0c╱ PROC ╱ // 0xc42 @0x4
0x0c3e…0c59 at0006 = ╱4f╱O╱ // 0xc44 @0x6
0x0c3e…0c59 at0007 = ╱50╱P╱ // 0xc45 @0x7
0x0c3e…0c59 at0008 = ╱45╱E╱ // 0xc46 @0x8
0x0c3e…0c59 at0009 = ╱4e╱N╱ // 0xc47 @0x9
0x0c3e…0c59 at000a = ╱46╱F╱ // 0xc48 @0xa
0x0c3e…0c59 at000b = ╱49╱I╱ // 0xc49 @0xb
0x0c3e…0c59 at000c = ╱4c╱L╱ // 0xc4a @0xc
0x0c3e…0c59 at000d = ╱ed╱(╱ // 0xc4b @0xd
0x0c3e…0c59 at000e = ╱46╱F╱ // 0xc4c @0xe
0x0c3e…0c59 at000f = ╱4e╱N╱ // 0xc4d @0xf
0x0c3e…0c59 at0010 = ╱41╱A╱ // 0xc4e @0x10
0x0c3e…0c59 at0011 = ╱56╱V╱ // 0xc4f @0x11
0x0c3e…0c59 at0012 = ╱4e╱N╱ // 0xc50 @0x12
0x0c3e…0c59 at0013 = ╱ef╱$╱ // 0xc51 @0x13
0x0c3e…0c59 at0014 = ╱ec╱,╱ // 0xc52 @0x14
0x0c3e…0c59 at0015 = ╱57╱W╱ // 0xc53 @0x15
0x0c3e…0c59 at0016 = ╱41╱A╱ // 0xc54 @0x16
0x0c3e…0c59 at0017 = ╱59╱Y╱ // 0xc55 @0x17
0x0c3e…0c59 at0018 = ╱ef╱$╱ // 0xc56 @0x18
0x0c3e…0c59 at0019 = ╱ee╱)╱ // 0xc57 @0x19
0x0c3e…0c59 at001a = EOL // 0xc58 @0x1a
0x0c3e…0c59 }
0x0c59…0c60 a24e 1160 REPEAT
0x0c59…0c60 LineComal80 {
0x0c59…0c60 ptr = 0xa24e // 0xc59 @0x0
0x0c59…0c60 lno = 0x0488 // 0xc5b @0x2
0x0c59…0c60 at0004 = ╱970d╱ REPEAT ╱ // 0xc5d @0x4
0x0c59…0c60 at0006 = EOL // 0xc5f @0x6
0x0c59…0c60 }
0x0c60…0c79 a267 1170 IF AY$ = "W" OR WAY$ = "w" THEN
0x0c60…0c79 LineComal80 {
0x0c60…0c79 ptr = 0xa267 // 0xc60 @0x0
0x0c60…0c79 lno = 0x0492 // 0xc62 @0x2
0x0c60…0c79 at0004 = ╱9b0e57╱ IF ╱ // 0xc64 @0x4
0x0c60…0c79 at0007 = ╱41╱A╱ // 0xc67 @0x7
0x0c60…0c79 at0008 = ╱59╱Y╱ // 0xc68 @0x8
0x0c60…0c79 at0009 = ╱ef╱$╱ // 0xc69 @0x9
0x0c60…0c79 at000a = ╱df╱ = ╱ // 0xc6a @0xa
0x0c60…0c79 at000b = ╱22╱"╱ // 0xc6b @0xb
0x0c60…0c79 at000c = ╱57╱W╱ // 0xc6c @0xc
0x0c60…0c79 at000d = ╱22╱"╱ // 0xc6d @0xd
0x0c60…0c79 at000e = ╱d8╱ OR ╱ // 0xc6e @0xe
0x0c60…0c79 at000f = ╱57╱W╱ // 0xc6f @0xf
0x0c60…0c79 at0010 = ╱41╱A╱ // 0xc70 @0x10
0x0c60…0c79 at0011 = ╱59╱Y╱ // 0xc71 @0x11
0x0c60…0c79 at0012 = ╱ef╱$╱ // 0xc72 @0x12
0x0c60…0c79 at0013 = ╱df╱ = ╱ // 0xc73 @0x13
0x0c60…0c79 at0014 = ╱22╱"╱ // 0xc74 @0x14
0x0c60…0c79 at0015 = ╱77╱w╱ // 0xc75 @0x15
0x0c60…0c79 at0016 = ╱22╱"╱ // 0xc76 @0x16
0x0c60…0c79 at0017 = ╱b5╱ THEN ╱ // 0xc77 @0x17
0x0c60…0c79 at0018 = EOL // 0xc78 @0x18
0x0c60…0c79 }
0x0c79…0c87 a275 1180 OPEN FNAVN$,W
0x0c79…0c87 LineComal80 {
0x0c79…0c87 ptr = 0xa275 // 0xc79 @0x0
0x0c79…0c87 lno = 0x049c // 0xc7b @0x2
0x0c79…0c87 at0004 = ╱a7╱ OPEN ╱ // 0xc7d @0x4
0x0c79…0c87 at0005 = ╱46╱F╱ // 0xc7e @0x5
0x0c79…0c87 at0006 = ╱4e╱N╱ // 0xc7f @0x6
0x0c79…0c87 at0007 = ╱41╱A╱ // 0xc80 @0x7
0x0c79…0c87 at0008 = ╱56╱V╱ // 0xc81 @0x8
0x0c79…0c87 at0009 = ╱4e╱N╱ // 0xc82 @0x9
0x0c79…0c87 at000a = ╱ef╱$╱ // 0xc83 @0xa
0x0c79…0c87 at000b = ╱ec╱,╱ // 0xc84 @0xb
0x0c79…0c87 at000c = ╱57╱W╱ // 0xc85 @0xc
0x0c79…0c87 at000d = EOL // 0xc86 @0xd
0x0c79…0c87 }
0x0c87…0c8e a27c 1190 ELSE
0x0c87…0c8e LineComal80 {
0x0c87…0c8e ptr = 0xa27c // 0xc87 @0x0
0x0c87…0c8e lno = 0x04a6 // 0xc89 @0x2
0x0c87…0c8e at0004 = ╱9a0f╱ ELSE ╱ // 0xc8b @0x4
0x0c87…0c8e at0006 = EOL // 0xc8d @0x6
0x0c87…0c8e }
0x0c8e…0c9c a28a 1200 OPEN FNAVN$,R
0x0c8e…0c9c LineComal80 {
0x0c8e…0c9c ptr = 0xa28a // 0xc8e @0x0
0x0c8e…0c9c lno = 0x04b0 // 0xc90 @0x2
0x0c8e…0c9c at0004 = ╱a7╱ OPEN ╱ // 0xc92 @0x4
0x0c8e…0c9c at0005 = ╱46╱F╱ // 0xc93 @0x5
0x0c8e…0c9c at0006 = ╱4e╱N╱ // 0xc94 @0x6
0x0c8e…0c9c at0007 = ╱41╱A╱ // 0xc95 @0x7
0x0c8e…0c9c at0008 = ╱56╱V╱ // 0xc96 @0x8
0x0c8e…0c9c at0009 = ╱4e╱N╱ // 0xc97 @0x9
0x0c8e…0c9c at000a = ╱ef╱$╱ // 0xc98 @0xa
0x0c8e…0c9c at000b = ╱ec╱,╱ // 0xc99 @0xb
0x0c8e…0c9c at000c = ╱52╱R╱ // 0xc9a @0xc
0x0c8e…0c9c at000d = EOL // 0xc9b @0xd
0x0c8e…0c9c }
0x0c9c…0ca2 a290 1210 ENDIF
0x0c9c…0ca2 LineComal80 {
0x0c9c…0ca2 ptr = 0xa290 // 0xc9c @0x0
0x0c9c…0ca2 lno = 0x04ba // 0xc9e @0x2
0x0c9c…0ca2 at0004 = ╱9c╱ ENDIF ╱ // 0xca0 @0x4
0x0c9c…0ca2 at0005 = EOL // 0xca1 @0x5
0x0c9c…0ca2 }
0x0ca2…0cb3 (42,) a2a1 1220 IF (FNAVN$) THEN
0x0ca2…0cb3 LineComal80 {
0x0ca2…0cb3 ptr = 0xa2a1 // 0xca2 @0x0
0x0ca2…0cb3 lno = 0x04c4 // 0xca4 @0x2
0x0ca2…0cb3 at0004 = ╱9b10cd╱ IF ╱ // 0xca6 @0x4
0x0ca2…0cb3 at0007 = ╱ed╱(╱ // 0xca9 @0x7
0x0ca2…0cb3 at0008 = ╱46╱F╱ // 0xcaa @0x8
0x0ca2…0cb3 at0009 = ╱4e╱N╱ // 0xcab @0x9
0x0ca2…0cb3 at000a = ╱41╱A╱ // 0xcac @0xa
0x0ca2…0cb3 at000b = ╱56╱V╱ // 0xcad @0xb
0x0ca2…0cb3 at000c = ╱4e╱N╱ // 0xcae @0xc
0x0ca2…0cb3 at000d = ╱ef╱$╱ // 0xcaf @0xd
0x0ca2…0cb3 at000e = ╱ee╱)╱ // 0xcb0 @0xe
0x0ca2…0cb3 at000f = ╱b5╱ THEN ╱ // 0xcb1 @0xf
0x0ca2…0cb3 at0010 = EOL // 0xcb2 @0x10
0x0ca2…0cb3 }
0x0cb3…0cc6 a2b4 1230 PRINT "<S>" ; CHR$ (7)
0x0cb3…0cc6 LineComal80 {
0x0cb3…0cc6 ptr = 0xa2b4 // 0xcb3 @0x0
0x0cb3…0cc6 lno = 0x04ce // 0xcb5 @0x2
0x0cb3…0cc6 at0004 = ╱92╱ PRINT ╱ // 0xcb7 @0x4
0x0cb3…0cc6 at0005 = ╱22╱"╱ // 0xcb8 @0x5
0x0cb3…0cc6 at0006 = ╱3c╱<╱ // 0xcb9 @0x6
0x0cb3…0cc6 at0007 = ╱53╱S╱ // 0xcba @0x7
0x0cb3…0cc6 at0008 = ╱3e╱>╱ // 0xcbb @0x8
0x0cb3…0cc6 at0009 = ╱22╱"╱ // 0xcbc @0x9
0x0cb3…0cc6 at000a = ╱ea╱ ; ╱ // 0xcbd @0xa
0x0cb3…0cc6 at000b = ╱d0╱ CHR$ ╱ // 0xcbe @0xb
0x0cb3…0cc6 at000c = ╱ed╱(╱ // 0xcbf @0xc
0x0cb3…0cc6 at000d = ╱37╱7╱ // 0xcc0 @0xd
0x0cb3…0cc6 at000e = ╱f20700╱ // 0xcc1 @0xe
0x0cb3…0cc6 at0011 = ╱ee╱)╱ // 0xcc4 @0x11
0x0cb3…0cc6 at0012 = EOL // 0xcc5 @0x12
0x0cb3…0cc6 }
0x0cc6…0cdc a2ca 1240 IF (FNAVN$) = 6 THEN
0x0cc6…0cdc LineComal80 {
0x0cc6…0cdc ptr = 0xa2ca // 0xcc6 @0x0
0x0cc6…0cdc lno = 0x04d8 // 0xcc8 @0x2
0x0cc6…0cdc at0004 = ╱9b11cd╱ IF ╱ // 0xcca @0x4
0x0cc6…0cdc at0007 = ╱ed╱(╱ // 0xccd @0x7
0x0cc6…0cdc at0008 = ╱46╱F╱ // 0xcce @0x8
0x0cc6…0cdc at0009 = ╱4e╱N╱ // 0xccf @0x9
0x0cc6…0cdc at000a = ╱41╱A╱ // 0xcd0 @0xa
0x0cc6…0cdc at000b = ╱56╱V╱ // 0xcd1 @0xb
0x0cc6…0cdc at000c = ╱4e╱N╱ // 0xcd2 @0xc
0x0cc6…0cdc at000d = ╱ef╱$╱ // 0xcd3 @0xd
0x0cc6…0cdc at000e = ╱ee╱)╱ // 0xcd4 @0xe
0x0cc6…0cdc at000f = ╱df╱ = ╱ // 0xcd5 @0xf
0x0cc6…0cdc at0010 = ╱36╱6╱ // 0xcd6 @0x10
0x0cc6…0cdc at0011 = ╱f20600╱ // 0xcd7 @0x11
0x0cc6…0cdc at0014 = ╱b5╱ THEN ╱ // 0xcda @0x14
0x0cc6…0cdc at0015 = EOL // 0xcdb @0x15
0x0cc6…0cdc }
0x0cdc…0d21 a30f 1250 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
0x0cdc…0d21 LineComal80 {
0x0cdc…0d21 ptr = 0xa30f // 0xcdc @0x0
0x0cdc…0d21 lno = 0x04e2 // 0xcde @0x2
0x0cdc…0d21 at0004 = ╱92╱ PRINT ╱ // 0xce0 @0x4
0x0cdc…0d21 at0005 = ╱22╱"╱ // 0xce1 @0x5
0x0cdc…0d21 at0006 = ╱3c╱<╱ // 0xce2 @0x6
0x0cdc…0d21 at0007 = ╱53╱S╱ // 0xce3 @0x7
0x0cdc…0d21 at0008 = ╱43╱C╱ // 0xce4 @0x8
0x0cdc…0d21 at0009 = ╱31╱1╱ // 0xce5 @0x9
0x0cdc…0d21 at000a = ╱36╱6╱ // 0xce6 @0xa
0x0cdc…0d21 at000b = ╱30╱0╱ // 0xce7 @0xb
0x0cdc…0d21 at000c = ╱32╱2╱ // 0xce8 @0xc
0x0cdc…0d21 at000d = ╱3e╱>╱ // 0xce9 @0xd
0x0cdc…0d21 at000e = ╱2a╱*╱ // 0xcea @0xe
0x0cdc…0d21 at000f = ╱2a╱*╱ // 0xceb @0xf
0x0cdc…0d21 at0010 = ╱2a╱*╱ // 0xcec @0x10
0x0cdc…0d21 at0011 = ╱20╱…╱ // 0xced @0x11
0x0cdc…0d21 at0012 = ╱46╱F╱ // 0xcee @0x12
0x0cdc…0d21 at0013 = ╱65╱e╱ // 0xcef @0x13
0x0cdc…0d21 at0014 = ╱6a╱j╱ // 0xcf0 @0x14
0x0cdc…0d21 at0015 = ╱6c╱l╱ // 0xcf1 @0x15
0x0cdc…0d21 at0016 = ╱20╱…╱ // 0xcf2 @0x16
0x0cdc…0d21 at0017 = ╱6e╱n╱ // 0xcf3 @0x17
0x0cdc…0d21 at0018 = ╱72╱r╱ // 0xcf4 @0x18
0x0cdc…0d21 at0019 = ╱2e╱.╱ // 0xcf5 @0x19
0x0cdc…0d21 at001a = ╱20╱…╱ // 0xcf6 @0x1a
0x0cdc…0d21 at001b = ╱36╱6╱ // 0xcf7 @0x1b
0x0cdc…0d21 at001c = ╱20╱…╱ // 0xcf8 @0x1c
0x0cdc…0d21 at001d = ╱2d╱-╱ // 0xcf9 @0x1d
0x0cdc…0d21 at001e = ╱20╱…╱ // 0xcfa @0x1e
0x0cdc…0d21 at001f = ╱69╱i╱ // 0xcfb @0x1f
0x0cdc…0d21 at0020 = ╱6e╱n╱ // 0xcfc @0x20
0x0cdc…0d21 at0021 = ╱64╱d╱ // 0xcfd @0x21
0x0cdc…0d21 at0022 = ╱73╱s╱ // 0xcfe @0x22
0x0cdc…0d21 at0023 = ╱7b╱æ╱ // 0xcff @0x23
0x0cdc…0d21 at0024 = ╱74╱t╱ // 0xd00 @0x24
0x0cdc…0d21 at0025 = ╱20╱…╱ // 0xd01 @0x25
0x0cdc…0d21 at0026 = ╱64╱d╱ // 0xd02 @0x26
0x0cdc…0d21 at0027 = ╱69╱i╱ // 0xd03 @0x27
0x0cdc…0d21 at0028 = ╱73╱s╱ // 0xd04 @0x28
0x0cdc…0d21 at0029 = ╱6b╱k╱ // 0xd05 @0x29
0x0cdc…0d21 at002a = ╱65╱e╱ // 0xd06 @0x2a
0x0cdc…0d21 at002b = ╱74╱t╱ // 0xd07 @0x2b
0x0cdc…0d21 at002c = ╱74╱t╱ // 0xd08 @0x2c
0x0cdc…0d21 at002d = ╱65╱e╱ // 0xd09 @0x2d
0x0cdc…0d21 at002e = ╱20╱…╱ // 0xd0a @0x2e
0x0cdc…0d21 at002f = ╱6f╱o╱ // 0xd0b @0x2f
0x0cdc…0d21 at0030 = ╱67╱g╱ // 0xd0c @0x30
0x0cdc…0d21 at0031 = ╱20╱…╱ // 0xd0d @0x31
0x0cdc…0d21 at0032 = ╱74╱t╱ // 0xd0e @0x32
0x0cdc…0d21 at0033 = ╱72╱r╱ // 0xd0f @0x33
0x0cdc…0d21 at0034 = ╱79╱y╱ // 0xd10 @0x34
0x0cdc…0d21 at0035 = ╱6b╱k╱ // 0xd11 @0x35
0x0cdc…0d21 at0036 = ╱20╱…╱ // 0xd12 @0x36
0x0cdc…0d21 at0037 = ╱3c╱<╱ // 0xd13 @0x37
0x0cdc…0d21 at0038 = ╱52╱R╱ // 0xd14 @0x38
0x0cdc…0d21 at0039 = ╱45╱E╱ // 0xd15 @0x39
0x0cdc…0d21 at003a = ╱54╱T╱ // 0xd16 @0x3a
0x0cdc…0d21 at003b = ╱55╱U╱ // 0xd17 @0x3b
0x0cdc…0d21 at003c = ╱52╱R╱ // 0xd18 @0x3c
0x0cdc…0d21 at003d = ╱4e╱N╱ // 0xd19 @0x3d
0x0cdc…0d21 at003e = ╱3e╱>╱ // 0xd1a @0x3e
0x0cdc…0d21 at003f = ╱20╱…╱ // 0xd1b @0x3f
0x0cdc…0d21 at0040 = ╱2a╱*╱ // 0xd1c @0x40
0x0cdc…0d21 at0041 = ╱2a╱*╱ // 0xd1d @0x41
0x0cdc…0d21 at0042 = ╱2a╱*╱ // 0xd1e @0x42
0x0cdc…0d21 at0043 = ╱22╱"╱ // 0xd1f @0x43
0x0cdc…0d21 at0044 = EOL // 0xd20 @0x44
0x0cdc…0d21 }
0x0d21…0d2f a31d 1260 INPUT "" : SVAR$
0x0d21…0d2f LineComal80 {
0x0d21…0d2f ptr = 0xa31d // 0xd21 @0x0
0x0d21…0d2f lno = 0x04ec // 0xd23 @0x2
0x0d21…0d2f at0004 = ╱91╱ INPUT ╱ // 0xd25 @0x4
0x0d21…0d2f at0005 = ╱22╱"╱ // 0xd26 @0x5
0x0d21…0d2f at0006 = ╱22╱"╱ // 0xd27 @0x6
0x0d21…0d2f at0007 = ╱f1╱ : ╱ // 0xd28 @0x7
0x0d21…0d2f at0008 = ╱53╱S╱ // 0xd29 @0x8
0x0d21…0d2f at0009 = ╱56╱V╱ // 0xd2a @0x9
0x0d21…0d2f at000a = ╱41╱A╱ // 0xd2b @0xa
0x0d21…0d2f at000b = ╱52╱R╱ // 0xd2c @0xb
0x0d21…0d2f at000c = ╱ef╱$╱ // 0xd2d @0xc
0x0d21…0d2f at000d = EOL // 0xd2e @0xd
0x0d21…0d2f }
0x0d2f…0d36 a324 1270 ELSE
0x0d2f…0d36 LineComal80 {
0x0d2f…0d36 ptr = 0xa324 // 0xd2f @0x0
0x0d2f…0d36 lno = 0x04f6 // 0xd31 @0x2
0x0d2f…0d36 at0004 = ╱9a12╱ ELSE ╱ // 0xd33 @0x4
0x0d2f…0d36 at0006 = EOL // 0xd35 @0x6
0x0d2f…0d36 }
0x0d36…0d77 a365 1280 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
0x0d36…0d77 LineComal80 {
0x0d36…0d77 ptr = 0xa365 // 0xd36 @0x0
0x0d36…0d77 lno = 0x0500 // 0xd38 @0x2
0x0d36…0d77 at0004 = ╱92╱ PRINT ╱ // 0xd3a @0x4
0x0d36…0d77 at0005 = ╱22╱"╱ // 0xd3b @0x5
0x0d36…0d77 at0006 = ╱3c╱<╱ // 0xd3c @0x6
0x0d36…0d77 at0007 = ╱53╱S╱ // 0xd3d @0x7
0x0d36…0d77 at0008 = ╱43╱C╱ // 0xd3e @0x8
0x0d36…0d77 at0009 = ╱31╱1╱ // 0xd3f @0x9
0x0d36…0d77 at000a = ╱38╱8╱ // 0xd40 @0xa
0x0d36…0d77 at000b = ╱30╱0╱ // 0xd41 @0xb
0x0d36…0d77 at000c = ╱32╱2╱ // 0xd42 @0xc
0x0d36…0d77 at000d = ╱3e╱>╱ // 0xd43 @0xd
0x0d36…0d77 at000e = ╱2a╱*╱ // 0xd44 @0xe
0x0d36…0d77 at000f = ╱2a╱*╱ // 0xd45 @0xf
0x0d36…0d77 at0010 = ╱2a╱*╱ // 0xd46 @0x10
0x0d36…0d77 at0011 = ╱20╱…╱ // 0xd47 @0x11
0x0d36…0d77 at0012 = ╱46╱F╱ // 0xd48 @0x12
0x0d36…0d77 at0013 = ╱65╱e╱ // 0xd49 @0x13
0x0d36…0d77 at0014 = ╱6a╱j╱ // 0xd4a @0x14
0x0d36…0d77 at0015 = ╱6c╱l╱ // 0xd4b @0x15
0x0d36…0d77 at0016 = ╱20╱…╱ // 0xd4c @0x16
0x0d36…0d77 at0017 = ╱6e╱n╱ // 0xd4d @0x17
0x0d36…0d77 at0018 = ╱72╱r╱ // 0xd4e @0x18
0x0d36…0d77 at0019 = ╱2e╱.╱ // 0xd4f @0x19
0x0d36…0d77 at001a = ╱20╱…╱ // 0xd50 @0x1a
0x0d36…0d77 at001b = ╱22╱"╱ // 0xd51 @0x1b
0x0d36…0d77 at001c = ╱ea╱ ; ╱ // 0xd52 @0x1c
0x0d36…0d77 at001d = ╱d0╱ CHR$ ╱ // 0xd53 @0x1d
0x0d36…0d77 at001e = ╱ed╱(╱ // 0xd54 @0x1e
0x0d36…0d77 at001f = ╱cd╱ // 0xd55 @0x1f
0x0d36…0d77 at0020 = ╱ed╱(╱ // 0xd56 @0x20
0x0d36…0d77 at0021 = ╱46╱F╱ // 0xd57 @0x21
0x0d36…0d77 at0022 = ╱4e╱N╱ // 0xd58 @0x22
0x0d36…0d77 at0023 = ╱41╱A╱ // 0xd59 @0x23
0x0d36…0d77 at0024 = ╱56╱V╱ // 0xd5a @0x24
0x0d36…0d77 at0025 = ╱4e╱N╱ // 0xd5b @0x25
0x0d36…0d77 at0026 = ╱ef╱$╱ // 0xd5c @0x26
0x0d36…0d77 at0027 = ╱ee╱)╱ // 0xd5d @0x27
0x0d36…0d77 at0028 = ╱ec╱,╱ // 0xd5e @0x28
0x0d36…0d77 at0029 = ╱32╱2╱ // 0xd5f @0x29
0x0d36…0d77 at002a = ╱f20200╱ // 0xd60 @0x2a
0x0d36…0d77 at002d = ╱ee╱)╱ // 0xd63 @0x2d
0x0d36…0d77 at002e = ╱ea╱ ; ╱ // 0xd64 @0x2e
0x0d36…0d77 at002f = ╱22╱"╱ // 0xd65 @0x2f
0x0d36…0d77 at0030 = ╱20╱…╱ // 0xd66 @0x30
0x0d36…0d77 at0031 = ╱76╱v╱ // 0xd67 @0x31
0x0d36…0d77 at0032 = ╱65╱e╱ // 0xd68 @0x32
0x0d36…0d77 at0033 = ╱64╱d╱ // 0xd69 @0x33
0x0d36…0d77 at0034 = ╱20╱…╱ // 0xd6a @0x34
0x0d36…0d77 at0035 = ╱7d╱å╱ // 0xd6b @0x35
0x0d36…0d77 at0036 = ╱62╱b╱ // 0xd6c @0x36
0x0d36…0d77 at0037 = ╱6e╱n╱ // 0xd6d @0x37
0x0d36…0d77 at0038 = ╱69╱i╱ // 0xd6e @0x38
0x0d36…0d77 at0039 = ╱6e╱n╱ // 0xd6f @0x39
0x0d36…0d77 at003a = ╱67╱g╱ // 0xd70 @0x3a
0x0d36…0d77 at003b = ╱20╱…╱ // 0xd71 @0x3b
0x0d36…0d77 at003c = ╱61╱a╱ // 0xd72 @0x3c
0x0d36…0d77 at003d = ╱66╱f╱ // 0xd73 @0x3d
0x0d36…0d77 at003e = ╱20╱…╱ // 0xd74 @0x3e
0x0d36…0d77 at003f = ╱22╱"╱ // 0xd75 @0x3f
0x0d36…0d77 at0040 = EOL // 0xd76 @0x40
0x0d36…0d77 }
0x0d77…0d90 a37e 1290 PRINT "<S>" ; FNAVN$ ; " ***"
0x0d77…0d90 LineComal80 {
0x0d77…0d90 ptr = 0xa37e // 0xd77 @0x0
0x0d77…0d90 lno = 0x050a // 0xd79 @0x2
0x0d77…0d90 at0004 = ╱92╱ PRINT ╱ // 0xd7b @0x4
0x0d77…0d90 at0005 = ╱22╱"╱ // 0xd7c @0x5
0x0d77…0d90 at0006 = ╱3c╱<╱ // 0xd7d @0x6
0x0d77…0d90 at0007 = ╱53╱S╱ // 0xd7e @0x7
0x0d77…0d90 at0008 = ╱3e╱>╱ // 0xd7f @0x8
0x0d77…0d90 at0009 = ╱22╱"╱ // 0xd80 @0x9
0x0d77…0d90 at000a = ╱ea╱ ; ╱ // 0xd81 @0xa
0x0d77…0d90 at000b = ╱46╱F╱ // 0xd82 @0xb
0x0d77…0d90 at000c = ╱4e╱N╱ // 0xd83 @0xc
0x0d77…0d90 at000d = ╱41╱A╱ // 0xd84 @0xd
0x0d77…0d90 at000e = ╱56╱V╱ // 0xd85 @0xe
0x0d77…0d90 at000f = ╱4e╱N╱ // 0xd86 @0xf
0x0d77…0d90 at0010 = ╱ef╱$╱ // 0xd87 @0x10
0x0d77…0d90 at0011 = ╱ea╱ ; ╱ // 0xd88 @0x11
0x0d77…0d90 at0012 = ╱22╱"╱ // 0xd89 @0x12
0x0d77…0d90 at0013 = ╱20╱…╱ // 0xd8a @0x13
0x0d77…0d90 at0014 = ╱2a╱*╱ // 0xd8b @0x14
0x0d77…0d90 at0015 = ╱2a╱*╱ // 0xd8c @0x15
0x0d77…0d90 at0016 = ╱2a╱*╱ // 0xd8d @0x16
0x0d77…0d90 at0017 = ╱22╱"╱ // 0xd8e @0x17
0x0d77…0d90 at0018 = EOL // 0xd8f @0x18
0x0d77…0d90 }
0x0d90…0d9e a38c 1300 INPUT "" : SVAR$
0x0d90…0d9e LineComal80 {
0x0d90…0d9e ptr = 0xa38c // 0xd90 @0x0
0x0d90…0d9e lno = 0x0514 // 0xd92 @0x2
0x0d90…0d9e at0004 = ╱91╱ INPUT ╱ // 0xd94 @0x4
0x0d90…0d9e at0005 = ╱22╱"╱ // 0xd95 @0x5
0x0d90…0d9e at0006 = ╱22╱"╱ // 0xd96 @0x6
0x0d90…0d9e at0007 = ╱f1╱ : ╱ // 0xd97 @0x7
0x0d90…0d9e at0008 = ╱53╱S╱ // 0xd98 @0x8
0x0d90…0d9e at0009 = ╱56╱V╱ // 0xd99 @0x9
0x0d90…0d9e at000a = ╱41╱A╱ // 0xd9a @0xa
0x0d90…0d9e at000b = ╱52╱R╱ // 0xd9b @0xb
0x0d90…0d9e at000c = ╱ef╱$╱ // 0xd9c @0xc
0x0d90…0d9e at000d = EOL // 0xd9d @0xd
0x0d90…0d9e }
0x0d9e…0db2 a3a0 1310 PRINT "<C0102>" ; SPC$
0x0d9e…0db2 LineComal80 {
0x0d9e…0db2 ptr = 0xa3a0 // 0xd9e @0x0
0x0d9e…0db2 lno = 0x051e // 0xda0 @0x2
0x0d9e…0db2 at0004 = ╱92╱ PRINT ╱ // 0xda2 @0x4
0x0d9e…0db2 at0005 = ╱22╱"╱ // 0xda3 @0x5
0x0d9e…0db2 at0006 = ╱3c╱<╱ // 0xda4 @0x6
0x0d9e…0db2 at0007 = ╱43╱C╱ // 0xda5 @0x7
0x0d9e…0db2 at0008 = ╱30╱0╱ // 0xda6 @0x8
0x0d9e…0db2 at0009 = ╱31╱1╱ // 0xda7 @0x9
0x0d9e…0db2 at000a = ╱30╱0╱ // 0xda8 @0xa
0x0d9e…0db2 at000b = ╱32╱2╱ // 0xda9 @0xb
0x0d9e…0db2 at000c = ╱3e╱>╱ // 0xdaa @0xc
0x0d9e…0db2 at000d = ╱22╱"╱ // 0xdab @0xd
0x0d9e…0db2 at000e = ╱ea╱ ; ╱ // 0xdac @0xe
0x0d9e…0db2 at000f = ╱53╱S╱ // 0xdad @0xf
0x0d9e…0db2 at0010 = ╱50╱P╱ // 0xdae @0x10
0x0d9e…0db2 at0011 = ╱43╱C╱ // 0xdaf @0x11
0x0d9e…0db2 at0012 = ╱ef╱$╱ // 0xdb0 @0x12
0x0d9e…0db2 at0013 = EOL // 0xdb1 @0x13
0x0d9e…0db2 }
0x0db2…0db8 a3a6 1320 ENDIF
0x0db2…0db8 LineComal80 {
0x0db2…0db8 ptr = 0xa3a6 // 0xdb2 @0x0
0x0db2…0db8 lno = 0x0528 // 0xdb4 @0x2
0x0db2…0db8 at0004 = ╱9c╱ ENDIF ╱ // 0xdb6 @0x4
0x0db2…0db8 at0005 = EOL // 0xdb7 @0x5
0x0db2…0db8 }
0x0db8…0dbe a3ac 1330 ENDIF
0x0db8…0dbe LineComal80 {
0x0db8…0dbe ptr = 0xa3ac // 0xdb8 @0x0
0x0db8…0dbe lno = 0x0532 // 0xdba @0x2
0x0db8…0dbe at0004 = ╱9c╱ ENDIF ╱ // 0xdbc @0x4
0x0db8…0dbe at0005 = EOL // 0xdbd @0x5
0x0db8…0dbe }
0x0dbe…0dce a3bc 1340 UNTIL NOT ╱cd╱ (FNAVN$)
0x0dbe…0dce LineComal80 {
0x0dbe…0dce ptr = 0xa3bc // 0xdbe @0x0
0x0dbe…0dce lno = 0x053c // 0xdc0 @0x2
0x0dbe…0dce at0004 = ╱98╱ UNTIL ╱ // 0xdc2 @0x4
0x0dbe…0dce at0005 = ╱d7╱ NOT ╱ // 0xdc3 @0x5
0x0dbe…0dce at0006 = ╱cd╱ // 0xdc4 @0x6
0x0dbe…0dce at0007 = ╱ed╱(╱ // 0xdc5 @0x7
0x0dbe…0dce at0008 = ╱46╱F╱ // 0xdc6 @0x8
0x0dbe…0dce at0009 = ╱4e╱N╱ // 0xdc7 @0x9
0x0dbe…0dce at000a = ╱41╱A╱ // 0xdc8 @0xa
0x0dbe…0dce at000b = ╱56╱V╱ // 0xdc9 @0xb
0x0dbe…0dce at000c = ╱4e╱N╱ // 0xdca @0xc
0x0dbe…0dce at000d = ╱ef╱$╱ // 0xdcb @0xd
0x0dbe…0dce at000e = ╱ee╱)╱ // 0xdcc @0xe
0x0dbe…0dce at000f = EOL // 0xdcd @0xf
0x0dbe…0dce }
0x0dce…0ddb a3c9 1350 ENDPROC OPENFIL
0x0dce…0ddb LineComal80 {
0x0dce…0ddb ptr = 0xa3c9 // 0xdce @0x0
0x0dce…0ddb lno = 0x0546 // 0xdd0 @0x2
0x0dce…0ddb at0004 = ╱9f╱ ENDPROC ╱ // 0xdd2 @0x4
0x0dce…0ddb at0005 = ╱4f╱O╱ // 0xdd3 @0x5
0x0dce…0ddb at0006 = ╱50╱P╱ // 0xdd4 @0x6
0x0dce…0ddb at0007 = ╱45╱E╱ // 0xdd5 @0x7
0x0dce…0ddb at0008 = ╱4e╱N╱ // 0xdd6 @0x8
0x0dce…0ddb at0009 = ╱46╱F╱ // 0xdd7 @0x9
0x0dce…0ddb at000a = ╱49╱I╱ // 0xdd8 @0xa
0x0dce…0ddb at000b = ╱4c╱L╱ // 0xdd9 @0xb
0x0dce…0ddb at000c = EOL // 0xdda @0xc
0x0dce…0ddb }
0x0ddb…0de0 a3ce 1360
0x0ddb…0de0 LineComal80 {
0x0ddb…0de0 ptr = 0xa3ce // 0xddb @0x0
0x0ddb…0de0 lno = 0x0550 // 0xddd @0x2
0x0ddb…0de0 at0004 = EOL // 0xddf @0x4
0x0ddb…0de0 }
0x0de0…0df8 a3e6 1370 PROC OVERSKRIFT(ST$,L)
0x0de0…0df8 LineComal80 {
0x0de0…0df8 ptr = 0xa3e6 // 0xde0 @0x0
0x0de0…0df8 lno = 0x055a // 0xde2 @0x2
0x0de0…0df8 at0004 = ╱9e13╱ PROC ╱ // 0xde4 @0x4
0x0de0…0df8 at0006 = ╱4f╱O╱ // 0xde6 @0x6
0x0de0…0df8 at0007 = ╱56╱V╱ // 0xde7 @0x7
0x0de0…0df8 at0008 = ╱45╱E╱ // 0xde8 @0x8
0x0de0…0df8 at0009 = ╱52╱R╱ // 0xde9 @0x9
0x0de0…0df8 at000a = ╱53╱S╱ // 0xdea @0xa
0x0de0…0df8 at000b = ╱4b╱K╱ // 0xdeb @0xb
0x0de0…0df8 at000c = ╱52╱R╱ // 0xdec @0xc
0x0de0…0df8 at000d = ╱49╱I╱ // 0xded @0xd
0x0de0…0df8 at000e = ╱46╱F╱ // 0xdee @0xe
0x0de0…0df8 at000f = ╱54╱T╱ // 0xdef @0xf
0x0de0…0df8 at0010 = ╱ed╱(╱ // 0xdf0 @0x10
0x0de0…0df8 at0011 = ╱53╱S╱ // 0xdf1 @0x11
0x0de0…0df8 at0012 = ╱54╱T╱ // 0xdf2 @0x12
0x0de0…0df8 at0013 = ╱ef╱$╱ // 0xdf3 @0x13
0x0de0…0df8 at0014 = ╱ec╱,╱ // 0xdf4 @0x14
0x0de0…0df8 at0015 = ╱4c╱L╱ // 0xdf5 @0x15
0x0de0…0df8 at0016 = ╱ee╱)╱ // 0xdf6 @0x16
0x0de0…0df8 at0017 = EOL // 0xdf7 @0x17
0x0de0…0df8 }
0x0df8…0e1e a40c 1380 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0x0df8…0e1e LineComal80 {
0x0df8…0e1e ptr = 0xa40c // 0xdf8 @0x0
0x0df8…0e1e lno = 0x0564 // 0xdfa @0x2
0x0df8…0e1e at0004 = ╱92╱ PRINT ╱ // 0xdfc @0x4
0x0df8…0e1e at0005 = ╱22╱"╱ // 0xdfd @0x5
0x0df8…0e1e at0006 = ╱3c╱<╱ // 0xdfe @0x6
0x0df8…0e1e at0007 = ╱58╱X╱ // 0xdff @0x7
0x0df8…0e1e at0008 = ╱43╱C╱ // 0xe00 @0x8
0x0df8…0e1e at0009 = ╱30╱0╱ // 0xe01 @0x9
0x0df8…0e1e at000a = ╱31╱1╱ // 0xe02 @0xa
0x0df8…0e1e at000b = ╱30╱0╱ // 0xe03 @0xb
0x0df8…0e1e at000c = ╱31╱1╱ // 0xe04 @0xc
0x0df8…0e1e at000d = ╱3e╱>╱ // 0xe05 @0xd
0x0df8…0e1e at000e = ╱46╱F╱ // 0xe06 @0xe
0x0df8…0e1e at000f = ╱69╱i╱ // 0xe07 @0xf
0x0df8…0e1e at0010 = ╱72╱r╱ // 0xe08 @0x10
0x0df8…0e1e at0011 = ╱6d╱m╱ // 0xe09 @0x11
0x0df8…0e1e at0012 = ╱61╱a╱ // 0xe0a @0x12
0x0df8…0e1e at0013 = ╱6e╱n╱ // 0xe0b @0x13
0x0df8…0e1e at0014 = ╱61╱a╱ // 0xe0c @0x14
0x0df8…0e1e at0015 = ╱76╱v╱ // 0xe0d @0x15
0x0df8…0e1e at0016 = ╱6e╱n╱ // 0xe0e @0x16
0x0df8…0e1e at0017 = ╱3a╱:╱ // 0xe0f @0x17
0x0df8…0e1e at0018 = ╱20╱…╱ // 0xe10 @0x18
0x0df8…0e1e at0019 = ╱22╱"╱ // 0xe11 @0x19
0x0df8…0e1e at001a = ╱ea╱ ; ╱ // 0xe12 @0x1a
0x0df8…0e1e at001b = ╱46╱F╱ // 0xe13 @0x1b
0x0df8…0e1e at001c = ╱49╱I╱ // 0xe14 @0x1c
0x0df8…0e1e at001d = ╱52╱R╱ // 0xe15 @0x1d
0x0df8…0e1e at001e = ╱4d╱M╱ // 0xe16 @0x1e
0x0df8…0e1e at001f = ╱41╱A╱ // 0xe17 @0x1f
0x0df8…0e1e at0020 = ╱4e╱N╱ // 0xe18 @0x20
0x0df8…0e1e at0021 = ╱41╱A╱ // 0xe19 @0x21
0x0df8…0e1e at0022 = ╱56╱V╱ // 0xe1a @0x22
0x0df8…0e1e at0023 = ╱4e╱N╱ // 0xe1b @0x23
0x0df8…0e1e at0024 = ╱ef╱$╱ // 0xe1c @0x24
0x0df8…0e1e at0025 = EOL // 0xe1d @0x25
0x0df8…0e1e }
0x0e1e…0e66 a454 1390 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0x0e1e…0e66 LineComal80 {
0x0e1e…0e66 ptr = 0xa454 // 0xe1e @0x0
0x0e1e…0e66 lno = 0x056e // 0xe20 @0x2
0x0e1e…0e66 at0004 = ╱92╱ PRINT ╱ // 0xe22 @0x4
0x0e1e…0e66 at0005 = ╱22╱"╱ // 0xe23 @0x5
0x0e1e…0e66 at0006 = ╱3c╱<╱ // 0xe24 @0x6
0x0e1e…0e66 at0007 = ╱53╱S╱ // 0xe25 @0x7
0x0e1e…0e66 at0008 = ╱43╱C╱ // 0xe26 @0x8
0x0e1e…0e66 at0009 = ╱36╱6╱ // 0xe27 @0x9
0x0e1e…0e66 at000a = ╱35╱5╱ // 0xe28 @0xa
0x0e1e…0e66 at000b = ╱30╱0╱ // 0xe29 @0xb
0x0e1e…0e66 at000c = ╱31╱1╱ // 0xe2a @0xc
0x0e1e…0e66 at000d = ╱3e╱>╱ // 0xe2b @0xd
0x0e1e…0e66 at000e = ╱44╱D╱ // 0xe2c @0xe
0x0e1e…0e66 at000f = ╱61╱a╱ // 0xe2d @0xf
0x0e1e…0e66 at0010 = ╱74╱t╱ // 0xe2e @0x10
0x0e1e…0e66 at0011 = ╱6f╱o╱ // 0xe2f @0x11
0x0e1e…0e66 at0012 = ╱3a╱:╱ // 0xe30 @0x12
0x0e1e…0e66 at0013 = ╱20╱…╱ // 0xe31 @0x13
0x0e1e…0e66 at0014 = ╱22╱"╱ // 0xe32 @0x14
0x0e1e…0e66 at0015 = ╱ea╱ ; ╱ // 0xe33 @0x15
0x0e1e…0e66 at0016 = ╱53╱S╱ // 0xe34 @0x16
0x0e1e…0e66 at0017 = ╱59╱Y╱ // 0xe35 @0x17
0x0e1e…0e66 at0018 = ╱53╱S╱ // 0xe36 @0x18
0x0e1e…0e66 at0019 = ╱54╱T╱ // 0xe37 @0x19
0x0e1e…0e66 at001a = ╱5f╱_╱ // 0xe38 @0x1a
0x0e1e…0e66 at001b = ╱44╱D╱ // 0xe39 @0x1b
0x0e1e…0e66 at001c = ╱41╱A╱ // 0xe3a @0x1c
0x0e1e…0e66 at001d = ╱54╱T╱ // 0xe3b @0x1d
0x0e1e…0e66 at001e = ╱ef╱$╱ // 0xe3c @0x1e
0x0e1e…0e66 at001f = ╱ed╱(╱ // 0xe3d @0x1f
0x0e1e…0e66 at0020 = ╱31╱1╱ // 0xe3e @0x20
0x0e1e…0e66 at0021 = ╱f20100╱ // 0xe3f @0x21
0x0e1e…0e66 at0024 = ╱f1╱ : ╱ // 0xe42 @0x24
0x0e1e…0e66 at0025 = ╱32╱2╱ // 0xe43 @0x25
0x0e1e…0e66 at0026 = ╱f20200╱ // 0xe44 @0x26
0x0e1e…0e66 at0029 = ╱ee╱)╱ // 0xe47 @0x29
0x0e1e…0e66 at002a = ╱ea╱ ; ╱ // 0xe48 @0x2a
0x0e1e…0e66 at002b = ╱22╱"╱ // 0xe49 @0x2b
0x0e1e…0e66 at002c = ╱2e╱.╱ // 0xe4a @0x2c
0x0e1e…0e66 at002d = ╱22╱"╱ // 0xe4b @0x2d
0x0e1e…0e66 at002e = ╱ea╱ ; ╱ // 0xe4c @0x2e
0x0e1e…0e66 at002f = ╱53╱S╱ // 0xe4d @0x2f
0x0e1e…0e66 at0030 = ╱59╱Y╱ // 0xe4e @0x30
0x0e1e…0e66 at0031 = ╱53╱S╱ // 0xe4f @0x31
0x0e1e…0e66 at0032 = ╱54╱T╱ // 0xe50 @0x32
0x0e1e…0e66 at0033 = ╱5f╱_╱ // 0xe51 @0x33
0x0e1e…0e66 at0034 = ╱44╱D╱ // 0xe52 @0x34
0x0e1e…0e66 at0035 = ╱41╱A╱ // 0xe53 @0x35
0x0e1e…0e66 at0036 = ╱54╱T╱ // 0xe54 @0x36
0x0e1e…0e66 at0037 = ╱ef╱$╱ // 0xe55 @0x37
0x0e1e…0e66 at0038 = ╱ed╱(╱ // 0xe56 @0x38
0x0e1e…0e66 at0039 = ╱33╱3╱ // 0xe57 @0x39
0x0e1e…0e66 at003a = ╱f20300╱ // 0xe58 @0x3a
0x0e1e…0e66 at003d = ╱f1╱ : ╱ // 0xe5b @0x3d
0x0e1e…0e66 at003e = ╱32╱2╱ // 0xe5c @0x3e
0x0e1e…0e66 at003f = ╱f20200╱ // 0xe5d @0x3f
0x0e1e…0e66 at0042 = ╱ee╱)╱ // 0xe60 @0x42
0x0e1e…0e66 at0043 = ╱ea╱ ; ╱ // 0xe61 @0x43
0x0e1e…0e66 at0044 = ╱22╱"╱ // 0xe62 @0x44
0x0e1e…0e66 at0045 = ╱2e╱.╱ // 0xe63 @0x45
0x0e1e…0e66 at0046 = ╱22╱"╱ // 0xe64 @0x46
0x0e1e…0e66 at0047 = EOL // 0xe65 @0x47
0x0e1e…0e66 }
0x0e66…0e80 a46e 1400 PRINT SYST_DAT$(5 : 2)
0x0e66…0e80 LineComal80 {
0x0e66…0e80 ptr = 0xa46e // 0xe66 @0x0
0x0e66…0e80 lno = 0x0578 // 0xe68 @0x2
0x0e66…0e80 at0004 = ╱92╱ PRINT ╱ // 0xe6a @0x4
0x0e66…0e80 at0005 = ╱53╱S╱ // 0xe6b @0x5
0x0e66…0e80 at0006 = ╱59╱Y╱ // 0xe6c @0x6
0x0e66…0e80 at0007 = ╱53╱S╱ // 0xe6d @0x7
0x0e66…0e80 at0008 = ╱54╱T╱ // 0xe6e @0x8
0x0e66…0e80 at0009 = ╱5f╱_╱ // 0xe6f @0x9
0x0e66…0e80 at000a = ╱44╱D╱ // 0xe70 @0xa
0x0e66…0e80 at000b = ╱41╱A╱ // 0xe71 @0xb
0x0e66…0e80 at000c = ╱54╱T╱ // 0xe72 @0xc
0x0e66…0e80 at000d = ╱ef╱$╱ // 0xe73 @0xd
0x0e66…0e80 at000e = ╱ed╱(╱ // 0xe74 @0xe
0x0e66…0e80 at000f = ╱35╱5╱ // 0xe75 @0xf
0x0e66…0e80 at0010 = ╱f20500╱ // 0xe76 @0x10
0x0e66…0e80 at0013 = ╱f1╱ : ╱ // 0xe79 @0x13
0x0e66…0e80 at0014 = ╱32╱2╱ // 0xe7a @0x14
0x0e66…0e80 at0015 = ╱f20200╱ // 0xe7b @0x15
0x0e66…0e80 at0018 = ╱ee╱)╱ // 0xe7e @0x18
0x0e66…0e80 at0019 = EOL // 0xe7f @0x19
0x0e66…0e80 }
0x0e80…0e9c a48a 1410 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
0x0e80…0e9c LineComal80 {
0x0e80…0e9c ptr = 0xa48a // 0xe80 @0x0
0x0e80…0e9c lno = 0x0582 // 0xe82 @0x2
0x0e80…0e9c at0004 = ╱a1╱ CURSOR ╱ // 0xe84 @0x4
0x0e80…0e9c at0005 = ╱33╱3╱ // 0xe85 @0x5
0x0e80…0e9c at0006 = ╱34╱4╱ // 0xe86 @0x6
0x0e80…0e9c at0007 = ╱f22200╱ // 0xe87 @0x7
0x0e80…0e9c at000a = ╱e6╱ - ╱ // 0xe8a @0xa
0x0e80…0e9c at000b = ╱c6╱INT╱ // 0xe8b @0xb
0x0e80…0e9c at000c = ╱ed╱(╱ // 0xe8c @0xc
0x0e80…0e9c at000d = ╱cb╱ // 0xe8d @0xd
0x0e80…0e9c at000e = ╱ed╱(╱ // 0xe8e @0xe
0x0e80…0e9c at000f = ╱53╱S╱ // 0xe8f @0xf
0x0e80…0e9c at0010 = ╱54╱T╱ // 0xe90 @0x10
0x0e80…0e9c at0011 = ╱ef╱$╱ // 0xe91 @0x11
0x0e80…0e9c at0012 = ╱ee╱)╱ // 0xe92 @0x12
0x0e80…0e9c at0013 = ╱e8╱ / ╱ // 0xe93 @0x13
0x0e80…0e9c at0014 = ╱32╱2╱ // 0xe94 @0x14
0x0e80…0e9c at0015 = ╱f20200╱ // 0xe95 @0x15
0x0e80…0e9c at0018 = ╱ee╱)╱ // 0xe98 @0x18
0x0e80…0e9c at0019 = ╱ec╱,╱ // 0xe99 @0x19
0x0e80…0e9c at001a = ╱4c╱L╱ // 0xe9a @0x1a
0x0e80…0e9c at001b = EOL // 0xe9b @0x1b
0x0e80…0e9c }
0x0e9c…0eb3 a4a1 1420 PRINT "*** " ; ST$ ; " ***"
0x0e9c…0eb3 LineComal80 {
0x0e9c…0eb3 ptr = 0xa4a1 // 0xe9c @0x0
0x0e9c…0eb3 lno = 0x058c // 0xe9e @0x2
0x0e9c…0eb3 at0004 = ╱92╱ PRINT ╱ // 0xea0 @0x4
0x0e9c…0eb3 at0005 = ╱22╱"╱ // 0xea1 @0x5
0x0e9c…0eb3 at0006 = ╱2a╱*╱ // 0xea2 @0x6
0x0e9c…0eb3 at0007 = ╱2a╱*╱ // 0xea3 @0x7
0x0e9c…0eb3 at0008 = ╱2a╱*╱ // 0xea4 @0x8
0x0e9c…0eb3 at0009 = ╱20╱…╱ // 0xea5 @0x9
0x0e9c…0eb3 at000a = ╱22╱"╱ // 0xea6 @0xa
0x0e9c…0eb3 at000b = ╱ea╱ ; ╱ // 0xea7 @0xb
0x0e9c…0eb3 at000c = ╱53╱S╱ // 0xea8 @0xc
0x0e9c…0eb3 at000d = ╱54╱T╱ // 0xea9 @0xd
0x0e9c…0eb3 at000e = ╱ef╱$╱ // 0xeaa @0xe
0x0e9c…0eb3 at000f = ╱ea╱ ; ╱ // 0xeab @0xf
0x0e9c…0eb3 at0010 = ╱22╱"╱ // 0xeac @0x10
0x0e9c…0eb3 at0011 = ╱20╱…╱ // 0xead @0x11
0x0e9c…0eb3 at0012 = ╱2a╱*╱ // 0xeae @0x12
0x0e9c…0eb3 at0013 = ╱2a╱*╱ // 0xeaf @0x13
0x0e9c…0eb3 at0014 = ╱2a╱*╱ // 0xeb0 @0x14
0x0e9c…0eb3 at0015 = ╱22╱"╱ // 0xeb1 @0x15
0x0e9c…0eb3 at0016 = EOL // 0xeb2 @0x16
0x0e9c…0eb3 }
0x0eb3…0ec3 a4b1 1430 ENDPROC OVERSKRIFT
0x0eb3…0ec3 LineComal80 {
0x0eb3…0ec3 ptr = 0xa4b1 // 0xeb3 @0x0
0x0eb3…0ec3 lno = 0x0596 // 0xeb5 @0x2
0x0eb3…0ec3 at0004 = ╱9f╱ ENDPROC ╱ // 0xeb7 @0x4
0x0eb3…0ec3 at0005 = ╱4f╱O╱ // 0xeb8 @0x5
0x0eb3…0ec3 at0006 = ╱56╱V╱ // 0xeb9 @0x6
0x0eb3…0ec3 at0007 = ╱45╱E╱ // 0xeba @0x7
0x0eb3…0ec3 at0008 = ╱52╱R╱ // 0xebb @0x8
0x0eb3…0ec3 at0009 = ╱53╱S╱ // 0xebc @0x9
0x0eb3…0ec3 at000a = ╱4b╱K╱ // 0xebd @0xa
0x0eb3…0ec3 at000b = ╱52╱R╱ // 0xebe @0xb
0x0eb3…0ec3 at000c = ╱49╱I╱ // 0xebf @0xc
0x0eb3…0ec3 at000d = ╱46╱F╱ // 0xec0 @0xd
0x0eb3…0ec3 at000e = ╱54╱T╱ // 0xec1 @0xe
0x0eb3…0ec3 at000f = EOL // 0xec2 @0xf
0x0eb3…0ec3 }
0x0ec3…0ec8 a4b6 1440
0x0ec3…0ec8 LineComal80 {
0x0ec3…0ec8 ptr = 0xa4b6 // 0xec3 @0x0
0x0ec3…0ec8 lno = 0x05a0 // 0xec5 @0x2
0x0ec3…0ec8 at0004 = EOL // 0xec7 @0x4
0x0ec3…0ec8 }
0x0ec8…0edb a4c9 1450 PROC SL_FEJLLINIE
0x0ec8…0edb LineComal80 {
0x0ec8…0edb ptr = 0xa4c9 // 0xec8 @0x0
0x0ec8…0edb lno = 0x05aa // 0xeca @0x2
0x0ec8…0edb at0004 = ╱9e14╱ PROC ╱ // 0xecc @0x4
0x0ec8…0edb at0006 = ╱53╱S╱ // 0xece @0x6
0x0ec8…0edb at0007 = ╱4c╱L╱ // 0xecf @0x7
0x0ec8…0edb at0008 = ╱5f╱_╱ // 0xed0 @0x8
0x0ec8…0edb at0009 = ╱46╱F╱ // 0xed1 @0x9
0x0ec8…0edb at000a = ╱45╱E╱ // 0xed2 @0xa
0x0ec8…0edb at000b = ╱4a╱J╱ // 0xed3 @0xb
0x0ec8…0edb at000c = ╱4c╱L╱ // 0xed4 @0xc
0x0ec8…0edb at000d = ╱4c╱L╱ // 0xed5 @0xd
0x0ec8…0edb at000e = ╱49╱I╱ // 0xed6 @0xe
0x0ec8…0edb at000f = ╱4e╱N╱ // 0xed7 @0xf
0x0ec8…0edb at0010 = ╱49╱I╱ // 0xed8 @0x10
0x0ec8…0edb at0011 = ╱45╱E╱ // 0xed9 @0x11
0x0ec8…0edb at0012 = EOL // 0xeda @0x12
0x0ec8…0edb }
0x0edb…0ee8 a4d6 1460 LET OK := TRUE
0x0edb…0ee8 LineComal80 {
0x0edb…0ee8 ptr = 0xa4d6 // 0xedb @0x0
0x0edb…0ee8 lno = 0x05b4 // 0xedd @0x2
0x0edb…0ee8 at0004 = ╱86╱ LET ╱ // 0xedf @0x4
0x0edb…0ee8 at0005 = ╱4f╱O╱ // 0xee0 @0x5
0x0edb…0ee8 at0006 = ╱4b╱K╱ // 0xee1 @0x6
0x0edb…0ee8 at0007 = ╱f0╱ := ╱ // 0xee2 @0x7
0x0edb…0ee8 at0008 = ╱54╱T╱ // 0xee3 @0x8
0x0edb…0ee8 at0009 = ╱52╱R╱ // 0xee4 @0x9
0x0edb…0ee8 at000a = ╱55╱U╱ // 0xee5 @0xa
0x0edb…0ee8 at000b = ╱45╱E╱ // 0xee6 @0xb
0x0edb…0ee8 at000c = EOL // 0xee7 @0xc
0x0edb…0ee8 }
0x0ee8…0efc a4ea 1470 PRINT "<C0102>" ; SPC$
0x0ee8…0efc LineComal80 {
0x0ee8…0efc ptr = 0xa4ea // 0xee8 @0x0
0x0ee8…0efc lno = 0x05be // 0xeea @0x2
0x0ee8…0efc at0004 = ╱92╱ PRINT ╱ // 0xeec @0x4
0x0ee8…0efc at0005 = ╱22╱"╱ // 0xeed @0x5
0x0ee8…0efc at0006 = ╱3c╱<╱ // 0xeee @0x6
0x0ee8…0efc at0007 = ╱43╱C╱ // 0xeef @0x7
0x0ee8…0efc at0008 = ╱30╱0╱ // 0xef0 @0x8
0x0ee8…0efc at0009 = ╱31╱1╱ // 0xef1 @0x9
0x0ee8…0efc at000a = ╱30╱0╱ // 0xef2 @0xa
0x0ee8…0efc at000b = ╱32╱2╱ // 0xef3 @0xb
0x0ee8…0efc at000c = ╱3e╱>╱ // 0xef4 @0xc
0x0ee8…0efc at000d = ╱22╱"╱ // 0xef5 @0xd
0x0ee8…0efc at000e = ╱ea╱ ; ╱ // 0xef6 @0xe
0x0ee8…0efc at000f = ╱53╱S╱ // 0xef7 @0xf
0x0ee8…0efc at0010 = ╱50╱P╱ // 0xef8 @0x10
0x0ee8…0efc at0011 = ╱43╱C╱ // 0xef9 @0x11
0x0ee8…0efc at0012 = ╱ef╱$╱ // 0xefa @0x12
0x0ee8…0efc at0013 = EOL // 0xefb @0x13
0x0ee8…0efc }
0x0efc…0f0e a4fc 1480 ENDPROC SL_FEJLLINIE
0x0efc…0f0e LineComal80 {
0x0efc…0f0e ptr = 0xa4fc // 0xefc @0x0
0x0efc…0f0e lno = 0x05c8 // 0xefe @0x2
0x0efc…0f0e at0004 = ╱9f╱ ENDPROC ╱ // 0xf00 @0x4
0x0efc…0f0e at0005 = ╱53╱S╱ // 0xf01 @0x5
0x0efc…0f0e at0006 = ╱4c╱L╱ // 0xf02 @0x6
0x0efc…0f0e at0007 = ╱5f╱_╱ // 0xf03 @0x7
0x0efc…0f0e at0008 = ╱46╱F╱ // 0xf04 @0x8
0x0efc…0f0e at0009 = ╱45╱E╱ // 0xf05 @0x9
0x0efc…0f0e at000a = ╱4a╱J╱ // 0xf06 @0xa
0x0efc…0f0e at000b = ╱4c╱L╱ // 0xf07 @0xb
0x0efc…0f0e at000c = ╱4c╱L╱ // 0xf08 @0xc
0x0efc…0f0e at000d = ╱49╱I╱ // 0xf09 @0xd
0x0efc…0f0e at000e = ╱4e╱N╱ // 0xf0a @0xe
0x0efc…0f0e at000f = ╱49╱I╱ // 0xf0b @0xf
0x0efc…0f0e at0010 = ╱45╱E╱ // 0xf0c @0x10
0x0efc…0f0e at0011 = EOL // 0xf0d @0x11
0x0efc…0f0e }
0x0f0e…0f13 a501 1490
0x0f0e…0f13 LineComal80 {
0x0f0e…0f13 ptr = 0xa501 // 0xf0e @0x0
0x0f0e…0f13 lno = 0x05d2 // 0xf10 @0x2
0x0f0e…0f13 at0004 = EOL // 0xf12 @0x4
0x0f0e…0f13 }
0x0f13…0f23 a511 1500 PROC FEJL(ST$)
0x0f13…0f23 LineComal80 {
0x0f13…0f23 ptr = 0xa511 // 0xf13 @0x0
0x0f13…0f23 lno = 0x05dc // 0xf15 @0x2
0x0f13…0f23 at0004 = ╱9e15╱ PROC ╱ // 0xf17 @0x4
0x0f13…0f23 at0006 = ╱46╱F╱ // 0xf19 @0x6
0x0f13…0f23 at0007 = ╱45╱E╱ // 0xf1a @0x7
0x0f13…0f23 at0008 = ╱4a╱J╱ // 0xf1b @0x8
0x0f13…0f23 at0009 = ╱4c╱L╱ // 0xf1c @0x9
0x0f13…0f23 at000a = ╱ed╱(╱ // 0xf1d @0xa
0x0f13…0f23 at000b = ╱53╱S╱ // 0xf1e @0xb
0x0f13…0f23 at000c = ╱54╱T╱ // 0xf1f @0xc
0x0f13…0f23 at000d = ╱ef╱$╱ // 0xf20 @0xd
0x0f13…0f23 at000e = ╱ee╱)╱ // 0xf21 @0xe
0x0f13…0f23 at000f = EOL // 0xf22 @0xf
0x0f13…0f23 }
0x0f23…0f31 a51f 1510 LET OK := FALSE
0x0f23…0f31 LineComal80 {
0x0f23…0f31 ptr = 0xa51f // 0xf23 @0x0
0x0f23…0f31 lno = 0x05e6 // 0xf25 @0x2
0x0f23…0f31 at0004 = ╱86╱ LET ╱ // 0xf27 @0x4
0x0f23…0f31 at0005 = ╱4f╱O╱ // 0xf28 @0x5
0x0f23…0f31 at0006 = ╱4b╱K╱ // 0xf29 @0x6
0x0f23…0f31 at0007 = ╱f0╱ := ╱ // 0xf2a @0x7
0x0f23…0f31 at0008 = ╱46╱F╱ // 0xf2b @0x8
0x0f23…0f31 at0009 = ╱41╱A╱ // 0xf2c @0x9
0x0f23…0f31 at000a = ╱4c╱L╱ // 0xf2d @0xa
0x0f23…0f31 at000b = ╱53╱S╱ // 0xf2e @0xb
0x0f23…0f31 at000c = ╱45╱E╱ // 0xf2f @0xc
0x0f23…0f31 at000d = EOL // 0xf30 @0xd
0x0f23…0f31 }
0x0f31…0f4f a53d 1520 CURSOR 36 - ( ╱cb╱ (ST$) / 2),2
0x0f31…0f4f LineComal80 {
0x0f31…0f4f ptr = 0xa53d // 0xf31 @0x0
0x0f31…0f4f lno = 0x05f0 // 0xf33 @0x2
0x0f31…0f4f at0004 = ╱a1╱ CURSOR ╱ // 0xf35 @0x4
0x0f31…0f4f at0005 = ╱33╱3╱ // 0xf36 @0x5
0x0f31…0f4f at0006 = ╱36╱6╱ // 0xf37 @0x6
0x0f31…0f4f at0007 = ╱f22400╱ // 0xf38 @0x7
0x0f31…0f4f at000a = ╱e6╱ - ╱ // 0xf3b @0xa
0x0f31…0f4f at000b = ╱ed╱(╱ // 0xf3c @0xb
0x0f31…0f4f at000c = ╱cb╱ // 0xf3d @0xc
0x0f31…0f4f at000d = ╱ed╱(╱ // 0xf3e @0xd
0x0f31…0f4f at000e = ╱53╱S╱ // 0xf3f @0xe
0x0f31…0f4f at000f = ╱54╱T╱ // 0xf40 @0xf
0x0f31…0f4f at0010 = ╱ef╱$╱ // 0xf41 @0x10
0x0f31…0f4f at0011 = ╱ee╱)╱ // 0xf42 @0x11
0x0f31…0f4f at0012 = ╱e8╱ / ╱ // 0xf43 @0x12
0x0f31…0f4f at0013 = ╱32╱2╱ // 0xf44 @0x13
0x0f31…0f4f at0014 = ╱f20200╱ // 0xf45 @0x14
0x0f31…0f4f at0017 = ╱ee╱)╱ // 0xf48 @0x17
0x0f31…0f4f at0018 = ╱ec╱,╱ // 0xf49 @0x18
0x0f31…0f4f at0019 = ╱32╱2╱ // 0xf4a @0x19
0x0f31…0f4f at001a = ╱f20200╱ // 0xf4b @0x1a
0x0f31…0f4f at001d = EOL // 0xf4e @0x1d
0x0f31…0f4f }
0x0f4f…0f71 a55f 1530 PRINT "<S>*** " + ST$ + " ***" ; CHR$ (7)
0x0f4f…0f71 LineComal80 {
0x0f4f…0f71 ptr = 0xa55f // 0xf4f @0x0
0x0f4f…0f71 lno = 0x05fa // 0xf51 @0x2
0x0f4f…0f71 at0004 = ╱92╱ PRINT ╱ // 0xf53 @0x4
0x0f4f…0f71 at0005 = ╱22╱"╱ // 0xf54 @0x5
0x0f4f…0f71 at0006 = ╱3c╱<╱ // 0xf55 @0x6
0x0f4f…0f71 at0007 = ╱53╱S╱ // 0xf56 @0x7
0x0f4f…0f71 at0008 = ╱3e╱>╱ // 0xf57 @0x8
0x0f4f…0f71 at0009 = ╱2a╱*╱ // 0xf58 @0x9
0x0f4f…0f71 at000a = ╱2a╱*╱ // 0xf59 @0xa
0x0f4f…0f71 at000b = ╱2a╱*╱ // 0xf5a @0xb
0x0f4f…0f71 at000c = ╱20╱…╱ // 0xf5b @0xc
0x0f4f…0f71 at000d = ╱22╱"╱ // 0xf5c @0xd
0x0f4f…0f71 at000e = ╱eb╱ + ╱ // 0xf5d @0xe
0x0f4f…0f71 at000f = ╱53╱S╱ // 0xf5e @0xf
0x0f4f…0f71 at0010 = ╱54╱T╱ // 0xf5f @0x10
0x0f4f…0f71 at0011 = ╱ef╱$╱ // 0xf60 @0x11
0x0f4f…0f71 at0012 = ╱eb╱ + ╱ // 0xf61 @0x12
0x0f4f…0f71 at0013 = ╱22╱"╱ // 0xf62 @0x13
0x0f4f…0f71 at0014 = ╱20╱…╱ // 0xf63 @0x14
0x0f4f…0f71 at0015 = ╱2a╱*╱ // 0xf64 @0x15
0x0f4f…0f71 at0016 = ╱2a╱*╱ // 0xf65 @0x16
0x0f4f…0f71 at0017 = ╱2a╱*╱ // 0xf66 @0x17
0x0f4f…0f71 at0018 = ╱22╱"╱ // 0xf67 @0x18
0x0f4f…0f71 at0019 = ╱ea╱ ; ╱ // 0xf68 @0x19
0x0f4f…0f71 at001a = ╱d0╱ CHR$ ╱ // 0xf69 @0x1a
0x0f4f…0f71 at001b = ╱ed╱(╱ // 0xf6a @0x1b
0x0f4f…0f71 at001c = ╱37╱7╱ // 0xf6b @0x1c
0x0f4f…0f71 at001d = ╱f20700╱ // 0xf6c @0x1d
0x0f4f…0f71 at0020 = ╱ee╱)╱ // 0xf6f @0x20
0x0f4f…0f71 at0021 = EOL // 0xf70 @0x21
0x0f4f…0f71 }
0x0f71…0f7b a569 1540 ENDPROC FEJL
0x0f71…0f7b LineComal80 {
0x0f71…0f7b ptr = 0xa569 // 0xf71 @0x0
0x0f71…0f7b lno = 0x0604 // 0xf73 @0x2
0x0f71…0f7b at0004 = ╱9f╱ ENDPROC ╱ // 0xf75 @0x4
0x0f71…0f7b at0005 = ╱46╱F╱ // 0xf76 @0x5
0x0f71…0f7b at0006 = ╱45╱E╱ // 0xf77 @0x6
0x0f71…0f7b at0007 = ╱4a╱J╱ // 0xf78 @0x7
0x0f71…0f7b at0008 = ╱4c╱L╱ // 0xf79 @0x8
0x0f71…0f7b at0009 = EOL // 0xf7a @0x9
0x0f71…0f7b }
0x0f7b…0f80 a56e 1550
0x0f7b…0f80 LineComal80 {
0x0f7b…0f80 ptr = 0xa56e // 0xf7b @0x0
0x0f7b…0f80 lno = 0x060e // 0xf7d @0x2
0x0f7b…0f80 at0004 = EOL // 0xf7f @0x4
0x0f7b…0f80 }
0x0f80…0f96 a584 1560 PROC OPRET_RET_KONTI
0x0f80…0f96 LineComal80 {
0x0f80…0f96 ptr = 0xa584 // 0xf80 @0x0
0x0f80…0f96 lno = 0x0618 // 0xf82 @0x2
0x0f80…0f96 at0004 = ╱9e16╱ PROC ╱ // 0xf84 @0x4
0x0f80…0f96 at0006 = ╱4f╱O╱ // 0xf86 @0x6
0x0f80…0f96 at0007 = ╱50╱P╱ // 0xf87 @0x7
0x0f80…0f96 at0008 = ╱52╱R╱ // 0xf88 @0x8
0x0f80…0f96 at0009 = ╱45╱E╱ // 0xf89 @0x9
0x0f80…0f96 at000a = ╱54╱T╱ // 0xf8a @0xa
0x0f80…0f96 at000b = ╱5f╱_╱ // 0xf8b @0xb
0x0f80…0f96 at000c = ╱52╱R╱ // 0xf8c @0xc
0x0f80…0f96 at000d = ╱45╱E╱ // 0xf8d @0xd
0x0f80…0f96 at000e = ╱54╱T╱ // 0xf8e @0xe
0x0f80…0f96 at000f = ╱5f╱_╱ // 0xf8f @0xf
0x0f80…0f96 at0010 = ╱4b╱K╱ // 0xf90 @0x10
0x0f80…0f96 at0011 = ╱4f╱O╱ // 0xf91 @0x11
0x0f80…0f96 at0012 = ╱4e╱N╱ // 0xf92 @0x12
0x0f80…0f96 at0013 = ╱54╱T╱ // 0xf93 @0x13
0x0f80…0f96 at0014 = ╱49╱I╱ // 0xf94 @0x14
0x0f80…0f96 at0015 = EOL // 0xf95 @0x15
0x0f80…0f96 }
0x0f96…0f9d a58b 1570 REPEAT
0x0f96…0f9d LineComal80 {
0x0f96…0f9d ptr = 0xa58b // 0xf96 @0x0
0x0f96…0f9d lno = 0x0622 // 0xf98 @0x2
0x0f96…0f9d at0004 = ╱9717╱ REPEAT ╱ // 0xf9a @0x4
0x0f96…0f9d at0006 = EOL // 0xf9c @0x6
0x0f96…0f9d }
0x0f9d…0fca a5b8 1580 LET A_KTONR$ := "" ; A_KTO_TYPE$ := "" ; KTO_NAVN$ := ""
0x0f9d…0fca LineComal80 {
0x0f9d…0fca ptr = 0xa5b8 // 0xf9d @0x0
0x0f9d…0fca lno = 0x062c // 0xf9f @0x2
0x0f9d…0fca at0004 = ╱86╱ LET ╱ // 0xfa1 @0x4
0x0f9d…0fca at0005 = ╱41╱A╱ // 0xfa2 @0x5
0x0f9d…0fca at0006 = ╱5f╱_╱ // 0xfa3 @0x6
0x0f9d…0fca at0007 = ╱4b╱K╱ // 0xfa4 @0x7
0x0f9d…0fca at0008 = ╱54╱T╱ // 0xfa5 @0x8
0x0f9d…0fca at0009 = ╱4f╱O╱ // 0xfa6 @0x9
0x0f9d…0fca at000a = ╱4e╱N╱ // 0xfa7 @0xa
0x0f9d…0fca at000b = ╱52╱R╱ // 0xfa8 @0xb
0x0f9d…0fca at000c = ╱ef╱$╱ // 0xfa9 @0xc
0x0f9d…0fca at000d = ╱f0╱ := ╱ // 0xfaa @0xd
0x0f9d…0fca at000e = ╱22╱"╱ // 0xfab @0xe
0x0f9d…0fca at000f = ╱22╱"╱ // 0xfac @0xf
0x0f9d…0fca at0010 = ╱ea╱ ; ╱ // 0xfad @0x10
0x0f9d…0fca at0011 = ╱41╱A╱ // 0xfae @0x11
0x0f9d…0fca at0012 = ╱5f╱_╱ // 0xfaf @0x12
0x0f9d…0fca at0013 = ╱4b╱K╱ // 0xfb0 @0x13
0x0f9d…0fca at0014 = ╱54╱T╱ // 0xfb1 @0x14
0x0f9d…0fca at0015 = ╱4f╱O╱ // 0xfb2 @0x15
0x0f9d…0fca at0016 = ╱5f╱_╱ // 0xfb3 @0x16
0x0f9d…0fca at0017 = ╱54╱T╱ // 0xfb4 @0x17
0x0f9d…0fca at0018 = ╱59╱Y╱ // 0xfb5 @0x18
0x0f9d…0fca at0019 = ╱50╱P╱ // 0xfb6 @0x19
0x0f9d…0fca at001a = ╱45╱E╱ // 0xfb7 @0x1a
0x0f9d…0fca at001b = ╱ef╱$╱ // 0xfb8 @0x1b
0x0f9d…0fca at001c = ╱f0╱ := ╱ // 0xfb9 @0x1c
0x0f9d…0fca at001d = ╱22╱"╱ // 0xfba @0x1d
0x0f9d…0fca at001e = ╱22╱"╱ // 0xfbb @0x1e
0x0f9d…0fca at001f = ╱ea╱ ; ╱ // 0xfbc @0x1f
0x0f9d…0fca at0020 = ╱4b╱K╱ // 0xfbd @0x20
0x0f9d…0fca at0021 = ╱54╱T╱ // 0xfbe @0x21
0x0f9d…0fca at0022 = ╱4f╱O╱ // 0xfbf @0x22
0x0f9d…0fca at0023 = ╱5f╱_╱ // 0xfc0 @0x23
0x0f9d…0fca at0024 = ╱4e╱N╱ // 0xfc1 @0x24
0x0f9d…0fca at0025 = ╱41╱A╱ // 0xfc2 @0x25
0x0f9d…0fca at0026 = ╱56╱V╱ // 0xfc3 @0x26
0x0f9d…0fca at0027 = ╱4e╱N╱ // 0xfc4 @0x27
0x0f9d…0fca at0028 = ╱ef╱$╱ // 0xfc5 @0x28
0x0f9d…0fca at0029 = ╱f0╱ := ╱ // 0xfc6 @0x29
0x0f9d…0fca at002a = ╱22╱"╱ // 0xfc7 @0x2a
0x0f9d…0fca at002b = ╱22╱"╱ // 0xfc8 @0x2b
0x0f9d…0fca at002c = EOL // 0xfc9 @0x2c
0x0f9d…0fca }
0x0fca…0ff2 b748 1590 EXEC OVERSKRIFT("Opret/ret konti",6)
0x0fca…0ff2 LineComal80 {
0x0fca…0ff2 ptr = 0xb748 // 0xfca @0x0
0x0fca…0ff2 lno = 0x0636 // 0xfcc @0x2
0x0fca…0ff2 at0004 = ╱9d╱ EXEC ╱ // 0xfce @0x4
0x0fca…0ff2 at0005 = ╱4f╱O╱ // 0xfcf @0x5
0x0fca…0ff2 at0006 = ╱56╱V╱ // 0xfd0 @0x6
0x0fca…0ff2 at0007 = ╱45╱E╱ // 0xfd1 @0x7
0x0fca…0ff2 at0008 = ╱52╱R╱ // 0xfd2 @0x8
0x0fca…0ff2 at0009 = ╱53╱S╱ // 0xfd3 @0x9
0x0fca…0ff2 at000a = ╱4b╱K╱ // 0xfd4 @0xa
0x0fca…0ff2 at000b = ╱52╱R╱ // 0xfd5 @0xb
0x0fca…0ff2 at000c = ╱49╱I╱ // 0xfd6 @0xc
0x0fca…0ff2 at000d = ╱46╱F╱ // 0xfd7 @0xd
0x0fca…0ff2 at000e = ╱54╱T╱ // 0xfd8 @0xe
0x0fca…0ff2 at000f = ╱ed╱(╱ // 0xfd9 @0xf
0x0fca…0ff2 at0010 = ╱22╱"╱ // 0xfda @0x10
0x0fca…0ff2 at0011 = ╱4f╱O╱ // 0xfdb @0x11
0x0fca…0ff2 at0012 = ╱70╱p╱ // 0xfdc @0x12
0x0fca…0ff2 at0013 = ╱72╱r╱ // 0xfdd @0x13
0x0fca…0ff2 at0014 = ╱65╱e╱ // 0xfde @0x14
0x0fca…0ff2 at0015 = ╱74╱t╱ // 0xfdf @0x15
0x0fca…0ff2 at0016 = ╱2f╱/╱ // 0xfe0 @0x16
0x0fca…0ff2 at0017 = ╱72╱r╱ // 0xfe1 @0x17
0x0fca…0ff2 at0018 = ╱65╱e╱ // 0xfe2 @0x18
0x0fca…0ff2 at0019 = ╱74╱t╱ // 0xfe3 @0x19
0x0fca…0ff2 at001a = ╱20╱…╱ // 0xfe4 @0x1a
0x0fca…0ff2 at001b = ╱6b╱k╱ // 0xfe5 @0x1b
0x0fca…0ff2 at001c = ╱6f╱o╱ // 0xfe6 @0x1c
0x0fca…0ff2 at001d = ╱6e╱n╱ // 0xfe7 @0x1d
0x0fca…0ff2 at001e = ╱74╱t╱ // 0xfe8 @0x1e
0x0fca…0ff2 at001f = ╱69╱i╱ // 0xfe9 @0x1f
0x0fca…0ff2 at0020 = ╱22╱"╱ // 0xfea @0x20
0x0fca…0ff2 at0021 = ╱ec╱,╱ // 0xfeb @0x21
0x0fca…0ff2 at0022 = ╱36╱6╱ // 0xfec @0x22
0x0fca…0ff2 at0023 = ╱f20600╱ // 0xfed @0x23
0x0fca…0ff2 at0026 = ╱ee╱)╱ // 0xff0 @0x26
0x0fca…0ff2 at0027 = EOL // 0xff1 @0x27
0x0fca…0ff2 }
0x0ff2…1005 a5f3 1600 FOR I := 1 TO DO
0x0ff2…1005 LineComal80 {
0x0ff2…1005 ptr = 0xa5f3 // 0xff2 @0x0
0x0ff2…1005 lno = 0x0640 // 0xff4 @0x2
0x0ff2…1005 at0004 = ╱8318╱ FOR ╱ // 0xff6 @0x4
0x0ff2…1005 at0006 = ╱49╱I╱ // 0xff8 @0x6
0x0ff2…1005 at0007 = ╱f0╱ := ╱ // 0xff9 @0x7
0x0ff2…1005 at0008 = ╱31╱1╱ // 0xffa @0x8
0x0ff2…1005 at0009 = ╱f20100╱ // 0xffb @0x9
0x0ff2…1005 at000c = ╱b733╱ TO ╱ // 0xffe @0xc
0x0ff2…1005 at000e = ╱f20300╱ // 0x1000 @0xe
0x0ff2…1005 at0011 = ╱bb╱ DO ╱ // 0x1003 @0x11
0x0ff2…1005 at0012 = EOL // 0x1004 @0x12
0x0ff2…1005 }
0x1005…1017 a605 1610 EXEC RET_LINIE(I)
0x1005…1017 LineComal80 {
0x1005…1017 ptr = 0xa605 // 0x1005 @0x0
0x1005…1017 lno = 0x064a // 0x1007 @0x2
0x1005…1017 at0004 = ╱9d╱ EXEC ╱ // 0x1009 @0x4
0x1005…1017 at0005 = ╱52╱R╱ // 0x100a @0x5
0x1005…1017 at0006 = ╱45╱E╱ // 0x100b @0x6
0x1005…1017 at0007 = ╱54╱T╱ // 0x100c @0x7
0x1005…1017 at0008 = ╱5f╱_╱ // 0x100d @0x8
0x1005…1017 at0009 = ╱4c╱L╱ // 0x100e @0x9
0x1005…1017 at000a = ╱49╱I╱ // 0x100f @0xa
0x1005…1017 at000b = ╱4e╱N╱ // 0x1010 @0xb
0x1005…1017 at000c = ╱49╱I╱ // 0x1011 @0xc
0x1005…1017 at000d = ╱45╱E╱ // 0x1012 @0xd
0x1005…1017 at000e = ╱ed╱(╱ // 0x1013 @0xe
0x1005…1017 at000f = ╱49╱I╱ // 0x1014 @0xf
0x1005…1017 at0010 = ╱ee╱)╱ // 0x1015 @0x10
0x1005…1017 at0011 = EOL // 0x1016 @0x11
0x1005…1017 }
0x1017…101e a60c 1620 NEXT I
0x1017…101e LineComal80 {
0x1017…101e ptr = 0xa60c // 0x1017 @0x0
0x1017…101e lno = 0x0654 // 0x1019 @0x2
0x1017…101e at0004 = ╱84╱ NEXT ╱ // 0x101b @0x4
0x1017…101e at0005 = ╱49╱I╱ // 0x101c @0x5
0x1017…101e at0006 = EOL // 0x101d @0x6
0x1017…101e }
0x101e…1025 a613 1630 REPEAT
0x101e…1025 LineComal80 {
0x101e…1025 ptr = 0xa613 // 0x101e @0x0
0x101e…1025 lno = 0x065e // 0x1020 @0x2
0x101e…1025 at0004 = ╱9719╱ REPEAT ╱ // 0x1022 @0x4
0x101e…1025 at0006 = EOL // 0x1024 @0x6
0x101e…1025 }
0x1025…1034 a622 1640 LET SVAR$ := " "
0x1025…1034 LineComal80 {
0x1025…1034 ptr = 0xa622 // 0x1025 @0x0
0x1025…1034 lno = 0x0668 // 0x1027 @0x2
0x1025…1034 at0004 = ╱86╱ LET ╱ // 0x1029 @0x4
0x1025…1034 at0005 = ╱53╱S╱ // 0x102a @0x5
0x1025…1034 at0006 = ╱56╱V╱ // 0x102b @0x6
0x1025…1034 at0007 = ╱41╱A╱ // 0x102c @0x7
0x1025…1034 at0008 = ╱52╱R╱ // 0x102d @0x8
0x1025…1034 at0009 = ╱ef╱$╱ // 0x102e @0x9
0x1025…1034 at000a = ╱f0╱ := ╱ // 0x102f @0xa
0x1025…1034 at000b = ╱22╱"╱ // 0x1030 @0xb
0x1025…1034 at000c = ╱20╱…╱ // 0x1031 @0xc
0x1025…1034 at000d = ╱22╱"╱ // 0x1032 @0xd
0x1025…1034 at000e = EOL // 0x1033 @0xe
0x1025…1034 }
0x1034…103b a629 1650 REPEAT
0x1034…103b LineComal80 {
0x1034…103b ptr = 0xa629 // 0x1034 @0x0
0x1034…103b lno = 0x0672 // 0x1036 @0x2
0x1034…103b at0004 = ╱971a╱ REPEAT ╱ // 0x1038 @0x4
0x1034…103b at0006 = EOL // 0x103a @0x6
0x1034…103b }
0x103b…105c a64a 1660 PRINT "<SC0118>" ; SPC$(1 : 78)
0x103b…105c LineComal80 {
0x103b…105c ptr = 0xa64a // 0x103b @0x0
0x103b…105c lno = 0x067c // 0x103d @0x2
0x103b…105c at0004 = ╱92╱ PRINT ╱ // 0x103f @0x4
0x103b…105c at0005 = ╱22╱"╱ // 0x1040 @0x5
0x103b…105c at0006 = ╱3c╱<╱ // 0x1041 @0x6
0x103b…105c at0007 = ╱53╱S╱ // 0x1042 @0x7
0x103b…105c at0008 = ╱43╱C╱ // 0x1043 @0x8
0x103b…105c at0009 = ╱30╱0╱ // 0x1044 @0x9
0x103b…105c at000a = ╱31╱1╱ // 0x1045 @0xa
0x103b…105c at000b = ╱31╱1╱ // 0x1046 @0xb
0x103b…105c at000c = ╱38╱8╱ // 0x1047 @0xc
0x103b…105c at000d = ╱3e╱>╱ // 0x1048 @0xd
0x103b…105c at000e = ╱22╱"╱ // 0x1049 @0xe
0x103b…105c at000f = ╱ea╱ ; ╱ // 0x104a @0xf
0x103b…105c at0010 = ╱53╱S╱ // 0x104b @0x10
0x103b…105c at0011 = ╱50╱P╱ // 0x104c @0x11
0x103b…105c at0012 = ╱43╱C╱ // 0x104d @0x12
0x103b…105c at0013 = ╱ef╱$╱ // 0x104e @0x13
0x103b…105c at0014 = ╱ed╱(╱ // 0x104f @0x14
0x103b…105c at0015 = ╱31╱1╱ // 0x1050 @0x15
0x103b…105c at0016 = ╱f20100╱ // 0x1051 @0x16
0x103b…105c at0019 = ╱f1╱ : ╱ // 0x1054 @0x19
0x103b…105c at001a = ╱37╱7╱ // 0x1055 @0x1a
0x103b…105c at001b = ╱38╱8╱ // 0x1056 @0x1b
0x103b…105c at001c = ╱f24e00╱ // 0x1057 @0x1c
0x103b…105c at001f = ╱ee╱)╱ // 0x105a @0x1f
0x103b…105c at0020 = EOL // 0x105b @0x20
0x103b…105c }
0x105c…1069 a657 1670 IF PRET THEN
0x105c…1069 LineComal80 {
0x105c…1069 ptr = 0xa657 // 0x105c @0x0
0x105c…1069 lno = 0x0686 // 0x105e @0x2
0x105c…1069 at0004 = ╱9b1b4f╱ IF ╱ // 0x1060 @0x4
0x105c…1069 at0007 = ╱50╱P╱ // 0x1063 @0x7
0x105c…1069 at0008 = ╱52╱R╱ // 0x1064 @0x8
0x105c…1069 at0009 = ╱45╱E╱ // 0x1065 @0x9
0x105c…1069 at000a = ╱54╱T╱ // 0x1066 @0xa
0x105c…1069 at000b = ╱b5╱ THEN ╱ // 0x1067 @0xb
0x105c…1069 at000c = EOL // 0x1068 @0xc
0x105c…1069 }
0x1069…108c a67a 1680 GET KONTO$,1 : N_FRIREC,N_MAXREC
0x1069…108c LineComal80 {
0x1069…108c ptr = 0xa67a // 0x1069 @0x0
0x1069…108c lno = 0x0690 // 0x106b @0x2
0x1069…108c at0004 = ╱a9╱ GET ╱ // 0x106d @0x4
0x1069…108c at0005 = ╱4b╱K╱ // 0x106e @0x5
0x1069…108c at0006 = ╱4f╱O╱ // 0x106f @0x6
0x1069…108c at0007 = ╱4e╱N╱ // 0x1070 @0x7
0x1069…108c at0008 = ╱54╱T╱ // 0x1071 @0x8
0x1069…108c at0009 = ╱4f╱O╱ // 0x1072 @0x9
0x1069…108c at000a = ╱ef╱$╱ // 0x1073 @0xa
0x1069…108c at000b = ╱ec╱,╱ // 0x1074 @0xb
0x1069…108c at000c = ╱31╱1╱ // 0x1075 @0xc
0x1069…108c at000d = ╱f20100╱ // 0x1076 @0xd
0x1069…108c at0010 = ╱f1╱ : ╱ // 0x1079 @0x10
0x1069…108c at0011 = ╱4e╱N╱ // 0x107a @0x11
0x1069…108c at0012 = ╱5f╱_╱ // 0x107b @0x12
0x1069…108c at0013 = ╱46╱F╱ // 0x107c @0x13
0x1069…108c at0014 = ╱52╱R╱ // 0x107d @0x14
0x1069…108c at0015 = ╱49╱I╱ // 0x107e @0x15
0x1069…108c at0016 = ╱52╱R╱ // 0x107f @0x16
0x1069…108c at0017 = ╱45╱E╱ // 0x1080 @0x17
0x1069…108c at0018 = ╱43╱C╱ // 0x1081 @0x18
0x1069…108c at0019 = ╱ec╱,╱ // 0x1082 @0x19
0x1069…108c at001a = ╱4e╱N╱ // 0x1083 @0x1a
0x1069…108c at001b = ╱5f╱_╱ // 0x1084 @0x1b
0x1069…108c at001c = ╱4d╱M╱ // 0x1085 @0x1c
0x1069…108c at001d = ╱41╱A╱ // 0x1086 @0x1d
0x1069…108c at001e = ╱58╱X╱ // 0x1087 @0x1e
0x1069…108c at001f = ╱52╱R╱ // 0x1088 @0x1f
0x1069…108c at0020 = ╱45╱E╱ // 0x1089 @0x20
0x1069…108c at0021 = ╱43╱C╱ // 0x108a @0x21
0x1069…108c at0022 = EOL // 0x108b @0x22
0x1069…108c }
0x108c…10a5 a693 1690 IF _FRIREC > N_MAXREC THEN
0x108c…10a5 LineComal80 {
0x108c…10a5 ptr = 0xa693 // 0x108c @0x0
0x108c…10a5 lno = 0x069a // 0x108e @0x2
0x108c…10a5 at0004 = ╱9b1c4e╱ IF ╱ // 0x1090 @0x4
0x108c…10a5 at0007 = ╱5f╱_╱ // 0x1093 @0x7
0x108c…10a5 at0008 = ╱46╱F╱ // 0x1094 @0x8
0x108c…10a5 at0009 = ╱52╱R╱ // 0x1095 @0x9
0x108c…10a5 at000a = ╱49╱I╱ // 0x1096 @0xa
0x108c…10a5 at000b = ╱52╱R╱ // 0x1097 @0xb
0x108c…10a5 at000c = ╱45╱E╱ // 0x1098 @0xc
0x108c…10a5 at000d = ╱43╱C╱ // 0x1099 @0xd
0x108c…10a5 at000e = ╱e1╱ > ╱ // 0x109a @0xe
0x108c…10a5 at000f = ╱4e╱N╱ // 0x109b @0xf
0x108c…10a5 at0010 = ╱5f╱_╱ // 0x109c @0x10
0x108c…10a5 at0011 = ╱4d╱M╱ // 0x109d @0x11
0x108c…10a5 at0012 = ╱41╱A╱ // 0x109e @0x12
0x108c…10a5 at0013 = ╱58╱X╱ // 0x109f @0x13
0x108c…10a5 at0014 = ╱52╱R╱ // 0x10a0 @0x14
0x108c…10a5 at0015 = ╱45╱E╱ // 0x10a1 @0x15
0x108c…10a5 at0016 = ╱43╱C╱ // 0x10a2 @0x16
0x108c…10a5 at0017 = ╱b5╱ THEN ╱ // 0x10a3 @0x17
0x108c…10a5 at0018 = EOL // 0x10a4 @0x18
0x108c…10a5 }
0x10a5…10d4 a6c2 1700 EXEC FEJL("Der kan ikke oprettes flere konti")
0x10a5…10d4 LineComal80 {
0x10a5…10d4 ptr = 0xa6c2 // 0x10a5 @0x0
0x10a5…10d4 lno = 0x06a4 // 0x10a7 @0x2
0x10a5…10d4 at0004 = ╱9d╱ EXEC ╱ // 0x10a9 @0x4
0x10a5…10d4 at0005 = ╱46╱F╱ // 0x10aa @0x5
0x10a5…10d4 at0006 = ╱45╱E╱ // 0x10ab @0x6
0x10a5…10d4 at0007 = ╱4a╱J╱ // 0x10ac @0x7
0x10a5…10d4 at0008 = ╱4c╱L╱ // 0x10ad @0x8
0x10a5…10d4 at0009 = ╱ed╱(╱ // 0x10ae @0x9
0x10a5…10d4 at000a = ╱22╱"╱ // 0x10af @0xa
0x10a5…10d4 at000b = ╱44╱D╱ // 0x10b0 @0xb
0x10a5…10d4 at000c = ╱65╱e╱ // 0x10b1 @0xc
0x10a5…10d4 at000d = ╱72╱r╱ // 0x10b2 @0xd
0x10a5…10d4 at000e = ╱20╱…╱ // 0x10b3 @0xe
0x10a5…10d4 at000f = ╱6b╱k╱ // 0x10b4 @0xf
0x10a5…10d4 at0010 = ╱61╱a╱ // 0x10b5 @0x10
0x10a5…10d4 at0011 = ╱6e╱n╱ // 0x10b6 @0x11
0x10a5…10d4 at0012 = ╱20╱…╱ // 0x10b7 @0x12
0x10a5…10d4 at0013 = ╱69╱i╱ // 0x10b8 @0x13
0x10a5…10d4 at0014 = ╱6b╱k╱ // 0x10b9 @0x14
0x10a5…10d4 at0015 = ╱6b╱k╱ // 0x10ba @0x15
0x10a5…10d4 at0016 = ╱65╱e╱ // 0x10bb @0x16
0x10a5…10d4 at0017 = ╱20╱…╱ // 0x10bc @0x17
0x10a5…10d4 at0018 = ╱6f╱o╱ // 0x10bd @0x18
0x10a5…10d4 at0019 = ╱70╱p╱ // 0x10be @0x19
0x10a5…10d4 at001a = ╱72╱r╱ // 0x10bf @0x1a
0x10a5…10d4 at001b = ╱65╱e╱ // 0x10c0 @0x1b
0x10a5…10d4 at001c = ╱74╱t╱ // 0x10c1 @0x1c
0x10a5…10d4 at001d = ╱74╱t╱ // 0x10c2 @0x1d
0x10a5…10d4 at001e = ╱65╱e╱ // 0x10c3 @0x1e
0x10a5…10d4 at001f = ╱73╱s╱ // 0x10c4 @0x1f
0x10a5…10d4 at0020 = ╱20╱…╱ // 0x10c5 @0x20
0x10a5…10d4 at0021 = ╱66╱f╱ // 0x10c6 @0x21
0x10a5…10d4 at0022 = ╱6c╱l╱ // 0x10c7 @0x22
0x10a5…10d4 at0023 = ╱65╱e╱ // 0x10c8 @0x23
0x10a5…10d4 at0024 = ╱72╱r╱ // 0x10c9 @0x24
0x10a5…10d4 at0025 = ╱65╱e╱ // 0x10ca @0x25
0x10a5…10d4 at0026 = ╱20╱…╱ // 0x10cb @0x26
0x10a5…10d4 at0027 = ╱6b╱k╱ // 0x10cc @0x27
0x10a5…10d4 at0028 = ╱6f╱o╱ // 0x10cd @0x28
0x10a5…10d4 at0029 = ╱6e╱n╱ // 0x10ce @0x29
0x10a5…10d4 at002a = ╱74╱t╱ // 0x10cf @0x2a
0x10a5…10d4 at002b = ╱69╱i╱ // 0x10d0 @0x2b
0x10a5…10d4 at002c = ╱22╱"╱ // 0x10d1 @0x2c
0x10a5…10d4 at002d = ╱ee╱)╱ // 0x10d2 @0x2d
0x10a5…10d4 at002e = EOL // 0x10d3 @0x2e
0x10a5…10d4 }
0x10d4…10f7 b725 1710 INPUT "<SC6524>Tryk <RETURN>" : SVAR$
0x10d4…10f7 LineComal80 {
0x10d4…10f7 ptr = 0xb725 // 0x10d4 @0x0
0x10d4…10f7 lno = 0x06ae // 0x10d6 @0x2
0x10d4…10f7 at0004 = ╱91╱ INPUT ╱ // 0x10d8 @0x4
0x10d4…10f7 at0005 = ╱22╱"╱ // 0x10d9 @0x5
0x10d4…10f7 at0006 = ╱3c╱<╱ // 0x10da @0x6
0x10d4…10f7 at0007 = ╱53╱S╱ // 0x10db @0x7
0x10d4…10f7 at0008 = ╱43╱C╱ // 0x10dc @0x8
0x10d4…10f7 at0009 = ╱36╱6╱ // 0x10dd @0x9
0x10d4…10f7 at000a = ╱35╱5╱ // 0x10de @0xa
0x10d4…10f7 at000b = ╱32╱2╱ // 0x10df @0xb
0x10d4…10f7 at000c = ╱34╱4╱ // 0x10e0 @0xc
0x10d4…10f7 at000d = ╱3e╱>╱ // 0x10e1 @0xd
0x10d4…10f7 at000e = ╱54╱T╱ // 0x10e2 @0xe
0x10d4…10f7 at000f = ╱72╱r╱ // 0x10e3 @0xf
0x10d4…10f7 at0010 = ╱79╱y╱ // 0x10e4 @0x10
0x10d4…10f7 at0011 = ╱6b╱k╱ // 0x10e5 @0x11
0x10d4…10f7 at0012 = ╱20╱…╱ // 0x10e6 @0x12
0x10d4…10f7 at0013 = ╱3c╱<╱ // 0x10e7 @0x13
0x10d4…10f7 at0014 = ╱52╱R╱ // 0x10e8 @0x14
0x10d4…10f7 at0015 = ╱45╱E╱ // 0x10e9 @0x15
0x10d4…10f7 at0016 = ╱54╱T╱ // 0x10ea @0x16
0x10d4…10f7 at0017 = ╱55╱U╱ // 0x10eb @0x17
0x10d4…10f7 at0018 = ╱52╱R╱ // 0x10ec @0x18
0x10d4…10f7 at0019 = ╱4e╱N╱ // 0x10ed @0x19
0x10d4…10f7 at001a = ╱3e╱>╱ // 0x10ee @0x1a
0x10d4…10f7 at001b = ╱22╱"╱ // 0x10ef @0x1b
0x10d4…10f7 at001c = ╱f1╱ : ╱ // 0x10f0 @0x1c
0x10d4…10f7 at001d = ╱53╱S╱ // 0x10f1 @0x1d
0x10d4…10f7 at001e = ╱56╱V╱ // 0x10f2 @0x1e
0x10d4…10f7 at001f = ╱41╱A╱ // 0x10f3 @0x1f
0x10d4…10f7 at0020 = ╱52╱R╱ // 0x10f4 @0x20
0x10d4…10f7 at0021 = ╱ef╱$╱ // 0x10f5 @0x21
0x10d4…10f7 at0022 = EOL // 0x10f6 @0x22
0x10d4…10f7 }
0x10f7…110b a6f9 1720 // CHAIN PROGRAM$
0x10f7…110b LineComal80 {
0x10f7…110b ptr = 0xa6f9 // 0x10f7 @0x0
0x10f7…110b lno = 0x06b8 // 0x10f9 @0x2
0x10f7…110b at0004 = ╱89╱ // ╱ // 0x10fb @0x4
0x10f7…110b at0005 = ╱43╱C╱ // 0x10fc @0x5
0x10f7…110b at0006 = ╱48╱H╱ // 0x10fd @0x6
0x10f7…110b at0007 = ╱41╱A╱ // 0x10fe @0x7
0x10f7…110b at0008 = ╱49╱I╱ // 0x10ff @0x8
0x10f7…110b at0009 = ╱4e╱N╱ // 0x1100 @0x9
0x10f7…110b at000a = ╱20╱…╱ // 0x1101 @0xa
0x10f7…110b at000b = ╱50╱P╱ // 0x1102 @0xb
0x10f7…110b at000c = ╱52╱R╱ // 0x1103 @0xc
0x10f7…110b at000d = ╱4f╱O╱ // 0x1104 @0xd
0x10f7…110b at000e = ╱47╱G╱ // 0x1105 @0xe
0x10f7…110b at000f = ╱52╱R╱ // 0x1106 @0xf
0x10f7…110b at0010 = ╱41╱A╱ // 0x1107 @0x10
0x10f7…110b at0011 = ╱4d╱M╱ // 0x1108 @0x11
0x10f7…110b at0012 = ╱24╱$╱ // 0x1109 @0x12
0x10f7…110b at0013 = EOL // 0x110a @0x13
0x10f7…110b }
0x110b…1111 a6ff 1730 ENDIF
0x110b…1111 LineComal80 {
0x110b…1111 ptr = 0xa6ff // 0x110b @0x0
0x110b…1111 lno = 0x06c2 // 0x110d @0x2
0x110b…1111 at0004 = ╱9c╱ ENDIF ╱ // 0x110f @0x4
0x110b…1111 at0005 = EOL // 0x1110 @0x5
0x110b…1111 }
0x1111…1129 a717 1740 LET HJ_ST$ := "/J/j/N/n/"
0x1111…1129 LineComal80 {
0x1111…1129 ptr = 0xa717 // 0x1111 @0x0
0x1111…1129 lno = 0x06cc // 0x1113 @0x2
0x1111…1129 at0004 = ╱86╱ LET ╱ // 0x1115 @0x4
0x1111…1129 at0005 = ╱48╱H╱ // 0x1116 @0x5
0x1111…1129 at0006 = ╱4a╱J╱ // 0x1117 @0x6
0x1111…1129 at0007 = ╱5f╱_╱ // 0x1118 @0x7
0x1111…1129 at0008 = ╱53╱S╱ // 0x1119 @0x8
0x1111…1129 at0009 = ╱54╱T╱ // 0x111a @0x9
0x1111…1129 at000a = ╱ef╱$╱ // 0x111b @0xa
0x1111…1129 at000b = ╱f0╱ := ╱ // 0x111c @0xb
0x1111…1129 at000c = ╱22╱"╱ // 0x111d @0xc
0x1111…1129 at000d = ╱2f╱/╱ // 0x111e @0xd
0x1111…1129 at000e = ╱4a╱J╱ // 0x111f @0xe
0x1111…1129 at000f = ╱2f╱/╱ // 0x1120 @0xf
0x1111…1129 at0010 = ╱6a╱j╱ // 0x1121 @0x10
0x1111…1129 at0011 = ╱2f╱/╱ // 0x1122 @0x11
0x1111…1129 at0012 = ╱4e╱N╱ // 0x1123 @0x12
0x1111…1129 at0013 = ╱2f╱/╱ // 0x1124 @0x13
0x1111…1129 at0014 = ╱6e╱n╱ // 0x1125 @0x14
0x1111…1129 at0015 = ╱2f╱/╱ // 0x1126 @0x15
0x1111…1129 at0016 = ╱22╱"╱ // 0x1127 @0x16
0x1111…1129 at0017 = EOL // 0x1128 @0x17
0x1111…1129 }
0x1129…1166 a754 1750 PRINT "<SC1318>Opret konto (j/n) eller linienummer der skal "
0x1129…1166 LineComal80 {
0x1129…1166 ptr = 0xa754 // 0x1129 @0x0
0x1129…1166 lno = 0x06d6 // 0x112b @0x2
0x1129…1166 at0004 = ╱92╱ PRINT ╱ // 0x112d @0x4
0x1129…1166 at0005 = ╱22╱"╱ // 0x112e @0x5
0x1129…1166 at0006 = ╱3c╱<╱ // 0x112f @0x6
0x1129…1166 at0007 = ╱53╱S╱ // 0x1130 @0x7
0x1129…1166 at0008 = ╱43╱C╱ // 0x1131 @0x8
0x1129…1166 at0009 = ╱31╱1╱ // 0x1132 @0x9
0x1129…1166 at000a = ╱33╱3╱ // 0x1133 @0xa
0x1129…1166 at000b = ╱31╱1╱ // 0x1134 @0xb
0x1129…1166 at000c = ╱38╱8╱ // 0x1135 @0xc
0x1129…1166 at000d = ╱3e╱>╱ // 0x1136 @0xd
0x1129…1166 at000e = ╱4f╱O╱ // 0x1137 @0xe
0x1129…1166 at000f = ╱70╱p╱ // 0x1138 @0xf
0x1129…1166 at0010 = ╱72╱r╱ // 0x1139 @0x10
0x1129…1166 at0011 = ╱65╱e╱ // 0x113a @0x11
0x1129…1166 at0012 = ╱74╱t╱ // 0x113b @0x12
0x1129…1166 at0013 = ╱20╱…╱ // 0x113c @0x13
0x1129…1166 at0014 = ╱6b╱k╱ // 0x113d @0x14
0x1129…1166 at0015 = ╱6f╱o╱ // 0x113e @0x15
0x1129…1166 at0016 = ╱6e╱n╱ // 0x113f @0x16
0x1129…1166 at0017 = ╱74╱t╱ // 0x1140 @0x17
0x1129…1166 at0018 = ╱6f╱o╱ // 0x1141 @0x18
0x1129…1166 at0019 = ╱20╱…╱ // 0x1142 @0x19
0x1129…1166 at001a = ╱28╱(╱ // 0x1143 @0x1a
0x1129…1166 at001b = ╱6a╱j╱ // 0x1144 @0x1b
0x1129…1166 at001c = ╱2f╱/╱ // 0x1145 @0x1c
0x1129…1166 at001d = ╱6e╱n╱ // 0x1146 @0x1d
0x1129…1166 at001e = ╱29╱)╱ // 0x1147 @0x1e
0x1129…1166 at001f = ╱20╱…╱ // 0x1148 @0x1f
0x1129…1166 at0020 = ╱65╱e╱ // 0x1149 @0x20
0x1129…1166 at0021 = ╱6c╱l╱ // 0x114a @0x21
0x1129…1166 at0022 = ╱6c╱l╱ // 0x114b @0x22
0x1129…1166 at0023 = ╱65╱e╱ // 0x114c @0x23
0x1129…1166 at0024 = ╱72╱r╱ // 0x114d @0x24
0x1129…1166 at0025 = ╱20╱…╱ // 0x114e @0x25
0x1129…1166 at0026 = ╱6c╱l╱ // 0x114f @0x26
0x1129…1166 at0027 = ╱69╱i╱ // 0x1150 @0x27
0x1129…1166 at0028 = ╱6e╱n╱ // 0x1151 @0x28
0x1129…1166 at0029 = ╱69╱i╱ // 0x1152 @0x29
0x1129…1166 at002a = ╱65╱e╱ // 0x1153 @0x2a
0x1129…1166 at002b = ╱6e╱n╱ // 0x1154 @0x2b
0x1129…1166 at002c = ╱75╱u╱ // 0x1155 @0x2c
0x1129…1166 at002d = ╱6d╱m╱ // 0x1156 @0x2d
0x1129…1166 at002e = ╱6d╱m╱ // 0x1157 @0x2e
0x1129…1166 at002f = ╱65╱e╱ // 0x1158 @0x2f
0x1129…1166 at0030 = ╱72╱r╱ // 0x1159 @0x30
0x1129…1166 at0031 = ╱20╱…╱ // 0x115a @0x31
0x1129…1166 at0032 = ╱64╱d╱ // 0x115b @0x32
0x1129…1166 at0033 = ╱65╱e╱ // 0x115c @0x33
0x1129…1166 at0034 = ╱72╱r╱ // 0x115d @0x34
0x1129…1166 at0035 = ╱20╱…╱ // 0x115e @0x35
0x1129…1166 at0036 = ╱73╱s╱ // 0x115f @0x36
0x1129…1166 at0037 = ╱6b╱k╱ // 0x1160 @0x37
0x1129…1166 at0038 = ╱61╱a╱ // 0x1161 @0x38
0x1129…1166 at0039 = ╱6c╱l╱ // 0x1162 @0x39
0x1129…1166 at003a = ╱20╱…╱ // 0x1163 @0x3a
0x1129…1166 at003b = ╱22╱"╱ // 0x1164 @0x3b
0x1129…1166 at003c = EOL // 0x1165 @0x3c
0x1129…1166 }
0x1166…116d a75b 1760 ELSE
0x1166…116d LineComal80 {
0x1166…116d ptr = 0xa75b // 0x1166 @0x0
0x1166…116d lno = 0x06e0 // 0x1168 @0x2
0x1166…116d at0004 = ╱9a1d╱ ELSE ╱ // 0x116a @0x4
0x1166…116d at0006 = EOL // 0x116c @0x6
0x1166…116d }
0x116d…1181 a76f 1770 LET HJ_ST$ := "/J/j/"
0x116d…1181 LineComal80 {
0x116d…1181 ptr = 0xa76f // 0x116d @0x0
0x116d…1181 lno = 0x06ea // 0x116f @0x2
0x116d…1181 at0004 = ╱86╱ LET ╱ // 0x1171 @0x4
0x116d…1181 at0005 = ╱48╱H╱ // 0x1172 @0x5
0x116d…1181 at0006 = ╱4a╱J╱ // 0x1173 @0x6
0x116d…1181 at0007 = ╱5f╱_╱ // 0x1174 @0x7
0x116d…1181 at0008 = ╱53╱S╱ // 0x1175 @0x8
0x116d…1181 at0009 = ╱54╱T╱ // 0x1176 @0x9
0x116d…1181 at000a = ╱ef╱$╱ // 0x1177 @0xa
0x116d…1181 at000b = ╱f0╱ := ╱ // 0x1178 @0xb
0x116d…1181 at000c = ╱22╱"╱ // 0x1179 @0xc
0x116d…1181 at000d = ╱2f╱/╱ // 0x117a @0xd
0x116d…1181 at000e = ╱4a╱J╱ // 0x117b @0xe
0x116d…1181 at000f = ╱2f╱/╱ // 0x117c @0xf
0x116d…1181 at0010 = ╱6a╱j╱ // 0x117d @0x10
0x116d…1181 at0011 = ╱2f╱/╱ // 0x117e @0x11
0x116d…1181 at0012 = ╱22╱"╱ // 0x117f @0x12
0x116d…1181 at0013 = EOL // 0x1180 @0x13
0x116d…1181 }
0x1181…11c4 a7b2 1780 PRINT "<SC1218>Kontooplysninger ok (j) eller linienummer der skal "
0x1181…11c4 LineComal80 {
0x1181…11c4 ptr = 0xa7b2 // 0x1181 @0x0
0x1181…11c4 lno = 0x06f4 // 0x1183 @0x2
0x1181…11c4 at0004 = ╱92╱ PRINT ╱ // 0x1185 @0x4
0x1181…11c4 at0005 = ╱22╱"╱ // 0x1186 @0x5
0x1181…11c4 at0006 = ╱3c╱<╱ // 0x1187 @0x6
0x1181…11c4 at0007 = ╱53╱S╱ // 0x1188 @0x7
0x1181…11c4 at0008 = ╱43╱C╱ // 0x1189 @0x8
0x1181…11c4 at0009 = ╱31╱1╱ // 0x118a @0x9
0x1181…11c4 at000a = ╱32╱2╱ // 0x118b @0xa
0x1181…11c4 at000b = ╱31╱1╱ // 0x118c @0xb
0x1181…11c4 at000c = ╱38╱8╱ // 0x118d @0xc
0x1181…11c4 at000d = ╱3e╱>╱ // 0x118e @0xd
0x1181…11c4 at000e = ╱4b╱K╱ // 0x118f @0xe
0x1181…11c4 at000f = ╱6f╱o╱ // 0x1190 @0xf
0x1181…11c4 at0010 = ╱6e╱n╱ // 0x1191 @0x10
0x1181…11c4 at0011 = ╱74╱t╱ // 0x1192 @0x11
0x1181…11c4 at0012 = ╱6f╱o╱ // 0x1193 @0x12
0x1181…11c4 at0013 = ╱6f╱o╱ // 0x1194 @0x13
0x1181…11c4 at0014 = ╱70╱p╱ // 0x1195 @0x14
0x1181…11c4 at0015 = ╱6c╱l╱ // 0x1196 @0x15
0x1181…11c4 at0016 = ╱79╱y╱ // 0x1197 @0x16
0x1181…11c4 at0017 = ╱73╱s╱ // 0x1198 @0x17
0x1181…11c4 at0018 = ╱6e╱n╱ // 0x1199 @0x18
0x1181…11c4 at0019 = ╱69╱i╱ // 0x119a @0x19
0x1181…11c4 at001a = ╱6e╱n╱ // 0x119b @0x1a
0x1181…11c4 at001b = ╱67╱g╱ // 0x119c @0x1b
0x1181…11c4 at001c = ╱65╱e╱ // 0x119d @0x1c
0x1181…11c4 at001d = ╱72╱r╱ // 0x119e @0x1d
0x1181…11c4 at001e = ╱20╱…╱ // 0x119f @0x1e
0x1181…11c4 at001f = ╱6f╱o╱ // 0x11a0 @0x1f
0x1181…11c4 at0020 = ╱6b╱k╱ // 0x11a1 @0x20
0x1181…11c4 at0021 = ╱20╱…╱ // 0x11a2 @0x21
0x1181…11c4 at0022 = ╱28╱(╱ // 0x11a3 @0x22
0x1181…11c4 at0023 = ╱6a╱j╱ // 0x11a4 @0x23
0x1181…11c4 at0024 = ╱29╱)╱ // 0x11a5 @0x24
0x1181…11c4 at0025 = ╱20╱…╱ // 0x11a6 @0x25
0x1181…11c4 at0026 = ╱65╱e╱ // 0x11a7 @0x26
0x1181…11c4 at0027 = ╱6c╱l╱ // 0x11a8 @0x27
0x1181…11c4 at0028 = ╱6c╱l╱ // 0x11a9 @0x28
0x1181…11c4 at0029 = ╱65╱e╱ // 0x11aa @0x29
0x1181…11c4 at002a = ╱72╱r╱ // 0x11ab @0x2a
0x1181…11c4 at002b = ╱20╱…╱ // 0x11ac @0x2b
0x1181…11c4 at002c = ╱6c╱l╱ // 0x11ad @0x2c
0x1181…11c4 at002d = ╱69╱i╱ // 0x11ae @0x2d
0x1181…11c4 at002e = ╱6e╱n╱ // 0x11af @0x2e
0x1181…11c4 at002f = ╱69╱i╱ // 0x11b0 @0x2f
0x1181…11c4 at0030 = ╱65╱e╱ // 0x11b1 @0x30
0x1181…11c4 at0031 = ╱6e╱n╱ // 0x11b2 @0x31
0x1181…11c4 at0032 = ╱75╱u╱ // 0x11b3 @0x32
0x1181…11c4 at0033 = ╱6d╱m╱ // 0x11b4 @0x33
0x1181…11c4 at0034 = ╱6d╱m╱ // 0x11b5 @0x34
0x1181…11c4 at0035 = ╱65╱e╱ // 0x11b6 @0x35
0x1181…11c4 at0036 = ╱72╱r╱ // 0x11b7 @0x36
0x1181…11c4 at0037 = ╱20╱…╱ // 0x11b8 @0x37
0x1181…11c4 at0038 = ╱64╱d╱ // 0x11b9 @0x38
0x1181…11c4 at0039 = ╱65╱e╱ // 0x11ba @0x39
0x1181…11c4 at003a = ╱72╱r╱ // 0x11bb @0x3a
0x1181…11c4 at003b = ╱20╱…╱ // 0x11bc @0x3b
0x1181…11c4 at003c = ╱73╱s╱ // 0x11bd @0x3c
0x1181…11c4 at003d = ╱6b╱k╱ // 0x11be @0x3d
0x1181…11c4 at003e = ╱61╱a╱ // 0x11bf @0x3e
0x1181…11c4 at003f = ╱6c╱l╱ // 0x11c0 @0x3f
0x1181…11c4 at0040 = ╱20╱…╱ // 0x11c1 @0x40
0x1181…11c4 at0041 = ╱22╱"╱ // 0x11c2 @0x41
0x1181…11c4 at0042 = EOL // 0x11c3 @0x42
0x1181…11c4 }
0x11c4…11ca a7b8 1790 ENDIF
0x11c4…11ca LineComal80 {
0x11c4…11ca ptr = 0xa7b8 // 0x11c4 @0x0
0x11c4…11ca lno = 0x06fe // 0x11c6 @0x2
0x11c4…11ca at0004 = ╱9c╱ ENDIF ╱ // 0x11c8 @0x4
0x11c4…11ca at0005 = EOL // 0x11c9 @0x5
0x11c4…11ca }
0x11ca…11e6 a7d4 1800 EDIT "rettes? " : SVAR$(1)
0x11ca…11e6 LineComal80 {
0x11ca…11e6 ptr = 0xa7d4 // 0x11ca @0x0
0x11ca…11e6 lno = 0x0708 // 0x11cc @0x2
0x11ca…11e6 at0004 = ╱b1╱ EDIT ╱ // 0x11ce @0x4
0x11ca…11e6 at0005 = ╱22╱"╱ // 0x11cf @0x5
0x11ca…11e6 at0006 = ╱72╱r╱ // 0x11d0 @0x6
0x11ca…11e6 at0007 = ╱65╱e╱ // 0x11d1 @0x7
0x11ca…11e6 at0008 = ╱74╱t╱ // 0x11d2 @0x8
0x11ca…11e6 at0009 = ╱74╱t╱ // 0x11d3 @0x9
0x11ca…11e6 at000a = ╱65╱e╱ // 0x11d4 @0xa
0x11ca…11e6 at000b = ╱73╱s╱ // 0x11d5 @0xb
0x11ca…11e6 at000c = ╱3f╱?╱ // 0x11d6 @0xc
0x11ca…11e6 at000d = ╱20╱…╱ // 0x11d7 @0xd
0x11ca…11e6 at000e = ╱22╱"╱ // 0x11d8 @0xe
0x11ca…11e6 at000f = ╱f1╱ : ╱ // 0x11d9 @0xf
0x11ca…11e6 at0010 = ╱53╱S╱ // 0x11da @0x10
0x11ca…11e6 at0011 = ╱56╱V╱ // 0x11db @0x11
0x11ca…11e6 at0012 = ╱41╱A╱ // 0x11dc @0x12
0x11ca…11e6 at0013 = ╱52╱R╱ // 0x11dd @0x13
0x11ca…11e6 at0014 = ╱ef╱$╱ // 0x11de @0x14
0x11ca…11e6 at0015 = ╱ed╱(╱ // 0x11df @0x15
0x11ca…11e6 at0016 = ╱31╱1╱ // 0x11e0 @0x16
0x11ca…11e6 at0017 = ╱f20100╱ // 0x11e1 @0x17
0x11ca…11e6 at001a = ╱ee╱)╱ // 0x11e4 @0x1a
0x11ca…11e6 at001b = EOL // 0x11e5 @0x1b
0x11ca…11e6 }
0x11e6…11f8 a7e6 1810 EXEC SL_FEJLLINIE
0x11e6…11f8 LineComal80 {
0x11e6…11f8 ptr = 0xa7e6 // 0x11e6 @0x0
0x11e6…11f8 lno = 0x0712 // 0x11e8 @0x2
0x11e6…11f8 at0004 = ╱9d╱ EXEC ╱ // 0x11ea @0x4
0x11e6…11f8 at0005 = ╱53╱S╱ // 0x11eb @0x5
0x11e6…11f8 at0006 = ╱4c╱L╱ // 0x11ec @0x6
0x11e6…11f8 at0007 = ╱5f╱_╱ // 0x11ed @0x7
0x11e6…11f8 at0008 = ╱46╱F╱ // 0x11ee @0x8
0x11e6…11f8 at0009 = ╱45╱E╱ // 0x11ef @0x9
0x11e6…11f8 at000a = ╱4a╱J╱ // 0x11f0 @0xa
0x11e6…11f8 at000b = ╱4c╱L╱ // 0x11f1 @0xb
0x11e6…11f8 at000c = ╱4c╱L╱ // 0x11f2 @0xc
0x11e6…11f8 at000d = ╱49╱I╱ // 0x11f3 @0xd
0x11e6…11f8 at000e = ╱4e╱N╱ // 0x11f4 @0xe
0x11e6…11f8 at000f = ╱49╱I╱ // 0x11f5 @0xf
0x11e6…11f8 at0010 = ╱45╱E╱ // 0x11f6 @0x10
0x11e6…11f8 at0011 = EOL // 0x11f7 @0x11
0x11e6…11f8 }
0x11f8…121b a809 1820 IF "/" + SVAR$(1) + "/" IN HJ_ST$ THEN
0x11f8…121b LineComal80 {
0x11f8…121b ptr = 0xa809 // 0x11f8 @0x0
0x11f8…121b lno = 0x071c // 0x11fa @0x2
0x11f8…121b at0004 = ╱9b1ed7╱ IF ╱ // 0x11fc @0x4
0x11f8…121b at0007 = ╱22╱"╱ // 0x11ff @0x7
0x11f8…121b at0008 = ╱2f╱/╱ // 0x1200 @0x8
0x11f8…121b at0009 = ╱22╱"╱ // 0x1201 @0x9
0x11f8…121b at000a = ╱eb╱ + ╱ // 0x1202 @0xa
0x11f8…121b at000b = ╱53╱S╱ // 0x1203 @0xb
0x11f8…121b at000c = ╱56╱V╱ // 0x1204 @0xc
0x11f8…121b at000d = ╱41╱A╱ // 0x1205 @0xd
0x11f8…121b at000e = ╱52╱R╱ // 0x1206 @0xe
0x11f8…121b at000f = ╱ef╱$╱ // 0x1207 @0xf
0x11f8…121b at0010 = ╱ed╱(╱ // 0x1208 @0x10
0x11f8…121b at0011 = ╱31╱1╱ // 0x1209 @0x11
0x11f8…121b at0012 = ╱f20100╱ // 0x120a @0x12
0x11f8…121b at0015 = ╱ee╱)╱ // 0x120d @0x15
0x11f8…121b at0016 = ╱eb╱ + ╱ // 0x120e @0x16
0x11f8…121b at0017 = ╱22╱"╱ // 0x120f @0x17
0x11f8…121b at0018 = ╱2f╱/╱ // 0x1210 @0x18
0x11f8…121b at0019 = ╱22╱"╱ // 0x1211 @0x19
0x11f8…121b at001a = ╱dc╱ IN ╱ // 0x1212 @0x1a
0x11f8…121b at001b = ╱48╱H╱ // 0x1213 @0x1b
0x11f8…121b at001c = ╱4a╱J╱ // 0x1214 @0x1c
0x11f8…121b at001d = ╱5f╱_╱ // 0x1215 @0x1d
0x11f8…121b at001e = ╱53╱S╱ // 0x1216 @0x1e
0x11f8…121b at001f = ╱54╱T╱ // 0x1217 @0x1f
0x11f8…121b at0020 = ╱ef╱$╱ // 0x1218 @0x20
0x11f8…121b at0021 = ╱b5╱ THEN ╱ // 0x1219 @0x21
0x11f8…121b at0022 = EOL // 0x121a @0x22
0x11f8…121b }
0x121b…1233 a821 1830 EXEC TAL_CONTROL(SVAR$)
0x121b…1233 LineComal80 {
0x121b…1233 ptr = 0xa821 // 0x121b @0x0
0x121b…1233 lno = 0x0726 // 0x121d @0x2
0x121b…1233 at0004 = ╱9d╱ EXEC ╱ // 0x121f @0x4
0x121b…1233 at0005 = ╱54╱T╱ // 0x1220 @0x5
0x121b…1233 at0006 = ╱41╱A╱ // 0x1221 @0x6
0x121b…1233 at0007 = ╱4c╱L╱ // 0x1222 @0x7
0x121b…1233 at0008 = ╱5f╱_╱ // 0x1223 @0x8
0x121b…1233 at0009 = ╱43╱C╱ // 0x1224 @0x9
0x121b…1233 at000a = ╱4f╱O╱ // 0x1225 @0xa
0x121b…1233 at000b = ╱4e╱N╱ // 0x1226 @0xb
0x121b…1233 at000c = ╱54╱T╱ // 0x1227 @0xc
0x121b…1233 at000d = ╱52╱R╱ // 0x1228 @0xd
0x121b…1233 at000e = ╱4f╱O╱ // 0x1229 @0xe
0x121b…1233 at000f = ╱4c╱L╱ // 0x122a @0xf
0x121b…1233 at0010 = ╱ed╱(╱ // 0x122b @0x10
0x121b…1233 at0011 = ╱53╱S╱ // 0x122c @0x11
0x121b…1233 at0012 = ╱56╱V╱ // 0x122d @0x12
0x121b…1233 at0013 = ╱41╱A╱ // 0x122e @0x13
0x121b…1233 at0014 = ╱52╱R╱ // 0x122f @0x14
0x121b…1233 at0015 = ╱ef╱$╱ // 0x1230 @0x15
0x121b…1233 at0016 = ╱ee╱)╱ // 0x1231 @0x16
0x121b…1233 at0017 = EOL // 0x1232 @0x17
0x121b…1233 }
0x1233…1251 a83f 1840 IF OK THEN EXEC RET_LINIE( ASC (SVAR$))
0x1233…1251 LineComal80 {
0x1233…1251 ptr = 0xa83f // 0x1233 @0x0
0x1233…1251 lno = 0x0730 // 0x1235 @0x2
0x1233…1251 at0004 = ╱8200╱ IF ╱ // 0x1237 @0x4
0x1233…1251 at0006 = ╱4f╱O╱ // 0x1239 @0x6
0x1233…1251 at0007 = ╱4b╱K╱ // 0x123a @0x7
0x1233…1251 at0008 = ╱b5╱ THEN ╱ // 0x123b @0x8
0x1233…1251 at0009 = ╱9d╱ EXEC ╱ // 0x123c @0x9
0x1233…1251 at000a = ╱52╱R╱ // 0x123d @0xa
0x1233…1251 at000b = ╱45╱E╱ // 0x123e @0xb
0x1233…1251 at000c = ╱54╱T╱ // 0x123f @0xc
0x1233…1251 at000d = ╱5f╱_╱ // 0x1240 @0xd
0x1233…1251 at000e = ╱4c╱L╱ // 0x1241 @0xe
0x1233…1251 at000f = ╱49╱I╱ // 0x1242 @0xf
0x1233…1251 at0010 = ╱4e╱N╱ // 0x1243 @0x10
0x1233…1251 at0011 = ╱49╱I╱ // 0x1244 @0x11
0x1233…1251 at0012 = ╱45╱E╱ // 0x1245 @0x12
0x1233…1251 at0013 = ╱ed╱(╱ // 0x1246 @0x13
0x1233…1251 at0014 = ╱cf╱ ASC ╱ // 0x1247 @0x14
0x1233…1251 at0015 = ╱ed╱(╱ // 0x1248 @0x15
0x1233…1251 at0016 = ╱53╱S╱ // 0x1249 @0x16
0x1233…1251 at0017 = ╱56╱V╱ // 0x124a @0x17
0x1233…1251 at0018 = ╱41╱A╱ // 0x124b @0x18
0x1233…1251 at0019 = ╱52╱R╱ // 0x124c @0x19
0x1233…1251 at001a = ╱ef╱$╱ // 0x124d @0x1a
0x1233…1251 at001b = ╱ee╱)╱ // 0x124e @0x1b
0x1233…1251 at001c = ╱ee╱)╱ // 0x124f @0x1c
0x1233…1251 at001d = EOL // 0x1250 @0x1d
0x1233…1251 }
0x1251…1269 a857 1850 LET OK := FALSE ; SVAR$ := " "
0x1251…1269 LineComal80 {
0x1251…1269 ptr = 0xa857 // 0x1251 @0x0
0x1251…1269 lno = 0x073a // 0x1253 @0x2
0x1251…1269 at0004 = ╱86╱ LET ╱ // 0x1255 @0x4
0x1251…1269 at0005 = ╱4f╱O╱ // 0x1256 @0x5
0x1251…1269 at0006 = ╱4b╱K╱ // 0x1257 @0x6
0x1251…1269 at0007 = ╱f0╱ := ╱ // 0x1258 @0x7
0x1251…1269 at0008 = ╱46╱F╱ // 0x1259 @0x8
0x1251…1269 at0009 = ╱41╱A╱ // 0x125a @0x9
0x1251…1269 at000a = ╱4c╱L╱ // 0x125b @0xa
0x1251…1269 at000b = ╱53╱S╱ // 0x125c @0xb
0x1251…1269 at000c = ╱45╱E╱ // 0x125d @0xc
0x1251…1269 at000d = ╱ea╱ ; ╱ // 0x125e @0xd
0x1251…1269 at000e = ╱53╱S╱ // 0x125f @0xe
0x1251…1269 at000f = ╱56╱V╱ // 0x1260 @0xf
0x1251…1269 at0010 = ╱41╱A╱ // 0x1261 @0x10
0x1251…1269 at0011 = ╱52╱R╱ // 0x1262 @0x11
0x1251…1269 at0012 = ╱ef╱$╱ // 0x1263 @0x12
0x1251…1269 at0013 = ╱f0╱ := ╱ // 0x1264 @0x13
0x1251…1269 at0014 = ╱22╱"╱ // 0x1265 @0x14
0x1251…1269 at0015 = ╱20╱…╱ // 0x1266 @0x15
0x1251…1269 at0016 = ╱22╱"╱ // 0x1267 @0x16
0x1251…1269 at0017 = EOL // 0x1268 @0x17
0x1251…1269 }
0x1269…126f a85d 1860 ENDIF
0x1269…126f LineComal80 {
0x1269…126f ptr = 0xa85d // 0x1269 @0x0
0x1269…126f lno = 0x0744 // 0x126b @0x2
0x1269…126f at0004 = ╱9c╱ ENDIF ╱ // 0x126d @0x4
0x1269…126f at0005 = EOL // 0x126e @0x5
0x1269…126f }
0x126f…1285 a873 1870 UNTIL ╱cb╱ (SVAR$) > 0 AND OK
0x126f…1285 LineComal80 {
0x126f…1285 ptr = 0xa873 // 0x126f @0x0
0x126f…1285 lno = 0x074e // 0x1271 @0x2
0x126f…1285 at0004 = ╱98╱ UNTIL ╱ // 0x1273 @0x4
0x126f…1285 at0005 = ╱cb╱ // 0x1274 @0x5
0x126f…1285 at0006 = ╱ed╱(╱ // 0x1275 @0x6
0x126f…1285 at0007 = ╱53╱S╱ // 0x1276 @0x7
0x126f…1285 at0008 = ╱56╱V╱ // 0x1277 @0x8
0x126f…1285 at0009 = ╱41╱A╱ // 0x1278 @0x9
0x126f…1285 at000a = ╱52╱R╱ // 0x1279 @0xa
0x126f…1285 at000b = ╱ef╱$╱ // 0x127a @0xb
0x126f…1285 at000c = ╱ee╱)╱ // 0x127b @0xc
0x126f…1285 at000d = ╱e1╱ > ╱ // 0x127c @0xd
0x126f…1285 at000e = ╱30╱0╱ // 0x127d @0xe
0x126f…1285 at000f = ╱f20000╱ // 0x127e @0xf
0x126f…1285 at0012 = ╱d9╱ AND ╱ // 0x1281 @0x12
0x126f…1285 at0013 = ╱4f╱O╱ // 0x1282 @0x13
0x126f…1285 at0014 = ╱4b╱K╱ // 0x1283 @0x14
0x126f…1285 at0015 = EOL // 0x1284 @0x15
0x126f…1285 }
0x1285…129f a88d 1880 UNTIL "/" + SVAR$ + "/" IN HJ_ST$
0x1285…129f LineComal80 {
0x1285…129f ptr = 0xa88d // 0x1285 @0x0
0x1285…129f lno = 0x0758 // 0x1287 @0x2
0x1285…129f at0004 = ╱98╱ UNTIL ╱ // 0x1289 @0x4
0x1285…129f at0005 = ╱22╱"╱ // 0x128a @0x5
0x1285…129f at0006 = ╱2f╱/╱ // 0x128b @0x6
0x1285…129f at0007 = ╱22╱"╱ // 0x128c @0x7
0x1285…129f at0008 = ╱eb╱ + ╱ // 0x128d @0x8
0x1285…129f at0009 = ╱53╱S╱ // 0x128e @0x9
0x1285…129f at000a = ╱56╱V╱ // 0x128f @0xa
0x1285…129f at000b = ╱41╱A╱ // 0x1290 @0xb
0x1285…129f at000c = ╱52╱R╱ // 0x1291 @0xc
0x1285…129f at000d = ╱ef╱$╱ // 0x1292 @0xd
0x1285…129f at000e = ╱eb╱ + ╱ // 0x1293 @0xe
0x1285…129f at000f = ╱22╱"╱ // 0x1294 @0xf
0x1285…129f at0010 = ╱2f╱/╱ // 0x1295 @0x10
0x1285…129f at0011 = ╱22╱"╱ // 0x1296 @0x11
0x1285…129f at0012 = ╱dc╱ IN ╱ // 0x1297 @0x12
0x1285…129f at0013 = ╱48╱H╱ // 0x1298 @0x13
0x1285…129f at0014 = ╱4a╱J╱ // 0x1299 @0x14
0x1285…129f at0015 = ╱5f╱_╱ // 0x129a @0x15
0x1285…129f at0016 = ╱53╱S╱ // 0x129b @0x16
0x1285…129f at0017 = ╱54╱T╱ // 0x129c @0x17
0x1285…129f at0018 = ╱ef╱$╱ // 0x129d @0x18
0x1285…129f at0019 = EOL // 0x129e @0x19
0x1285…129f }
0x129f…12cb a8b9 1890 IF "/" + SVAR$ + "/" IN "/J/j/" THEN EXEC SKRIV_KONTOOPL
0x129f…12cb LineComal80 {
0x129f…12cb ptr = 0xa8b9 // 0x129f @0x0
0x129f…12cb lno = 0x0762 // 0x12a1 @0x2
0x129f…12cb at0004 = ╱8200╱ IF ╱ // 0x12a3 @0x4
0x129f…12cb at0006 = ╱22╱"╱ // 0x12a5 @0x6
0x129f…12cb at0007 = ╱2f╱/╱ // 0x12a6 @0x7
0x129f…12cb at0008 = ╱22╱"╱ // 0x12a7 @0x8
0x129f…12cb at0009 = ╱eb╱ + ╱ // 0x12a8 @0x9
0x129f…12cb at000a = ╱53╱S╱ // 0x12a9 @0xa
0x129f…12cb at000b = ╱56╱V╱ // 0x12aa @0xb
0x129f…12cb at000c = ╱41╱A╱ // 0x12ab @0xc
0x129f…12cb at000d = ╱52╱R╱ // 0x12ac @0xd
0x129f…12cb at000e = ╱ef╱$╱ // 0x12ad @0xe
0x129f…12cb at000f = ╱eb╱ + ╱ // 0x12ae @0xf
0x129f…12cb at0010 = ╱22╱"╱ // 0x12af @0x10
0x129f…12cb at0011 = ╱2f╱/╱ // 0x12b0 @0x11
0x129f…12cb at0012 = ╱22╱"╱ // 0x12b1 @0x12
0x129f…12cb at0013 = ╱dc╱ IN ╱ // 0x12b2 @0x13
0x129f…12cb at0014 = ╱22╱"╱ // 0x12b3 @0x14
0x129f…12cb at0015 = ╱2f╱/╱ // 0x12b4 @0x15
0x129f…12cb at0016 = ╱4a╱J╱ // 0x12b5 @0x16
0x129f…12cb at0017 = ╱2f╱/╱ // 0x12b6 @0x17
0x129f…12cb at0018 = ╱6a╱j╱ // 0x12b7 @0x18
0x129f…12cb at0019 = ╱2f╱/╱ // 0x12b8 @0x19
0x129f…12cb at001a = ╱22╱"╱ // 0x12b9 @0x1a
0x129f…12cb at001b = ╱b5╱ THEN ╱ // 0x12ba @0x1b
0x129f…12cb at001c = ╱9d╱ EXEC ╱ // 0x12bb @0x1c
0x129f…12cb at001d = ╱53╱S╱ // 0x12bc @0x1d
0x129f…12cb at001e = ╱4b╱K╱ // 0x12bd @0x1e
0x129f…12cb at001f = ╱52╱R╱ // 0x12be @0x1f
0x129f…12cb at0020 = ╱49╱I╱ // 0x12bf @0x20
0x129f…12cb at0021 = ╱56╱V╱ // 0x12c0 @0x21
0x129f…12cb at0022 = ╱5f╱_╱ // 0x12c1 @0x22
0x129f…12cb at0023 = ╱4b╱K╱ // 0x12c2 @0x23
0x129f…12cb at0024 = ╱4f╱O╱ // 0x12c3 @0x24
0x129f…12cb at0025 = ╱4e╱N╱ // 0x12c4 @0x25
0x129f…12cb at0026 = ╱54╱T╱ // 0x12c5 @0x26
0x129f…12cb at0027 = ╱4f╱O╱ // 0x12c6 @0x27
0x129f…12cb at0028 = ╱4f╱O╱ // 0x12c7 @0x28
0x129f…12cb at0029 = ╱50╱P╱ // 0x12c8 @0x29
0x129f…12cb at002a = ╱4c╱L╱ // 0x12c9 @0x2a
0x129f…12cb at002b = EOL // 0x12ca @0x2b
0x129f…12cb }
0x12cb…12d1 a8bf 1900 CLEAR
0x12cb…12d1 LineComal80 {
0x12cb…12d1 ptr = 0xa8bf // 0x12cb @0x0
0x12cb…12d1 lno = 0x076c // 0x12cd @0x2
0x12cb…12d1 at0004 = ╱a0╱ CLEAR ╱ // 0x12cf @0x4
0x12cb…12d1 at0005 = EOL // 0x12d0 @0x5
0x12cb…12d1 }
0x12d1…12e0 a8ce 1910 LET SVAR$ := "j"
0x12d1…12e0 LineComal80 {
0x12d1…12e0 ptr = 0xa8ce // 0x12d1 @0x0
0x12d1…12e0 lno = 0x0776 // 0x12d3 @0x2
0x12d1…12e0 at0004 = ╱86╱ LET ╱ // 0x12d5 @0x4
0x12d1…12e0 at0005 = ╱53╱S╱ // 0x12d6 @0x5
0x12d1…12e0 at0006 = ╱56╱V╱ // 0x12d7 @0x6
0x12d1…12e0 at0007 = ╱41╱A╱ // 0x12d8 @0x7
0x12d1…12e0 at0008 = ╱52╱R╱ // 0x12d9 @0x8
0x12d1…12e0 at0009 = ╱ef╱$╱ // 0x12da @0x9
0x12d1…12e0 at000a = ╱f0╱ := ╱ // 0x12db @0xa
0x12d1…12e0 at000b = ╱22╱"╱ // 0x12dc @0xb
0x12d1…12e0 at000c = ╱6a╱j╱ // 0x12dd @0xc
0x12d1…12e0 at000d = ╱22╱"╱ // 0x12de @0xd
0x12d1…12e0 at000e = EOL // 0x12df @0xe
0x12d1…12e0 }
0x12e0…1318 a906 1920 EDIT "<C1212>Opret/ret flere konti (j/n)? " : SVAR$(1)
0x12e0…1318 LineComal80 {
0x12e0…1318 ptr = 0xa906 // 0x12e0 @0x0
0x12e0…1318 lno = 0x0780 // 0x12e2 @0x2
0x12e0…1318 at0004 = ╱b1╱ EDIT ╱ // 0x12e4 @0x4
0x12e0…1318 at0005 = ╱22╱"╱ // 0x12e5 @0x5
0x12e0…1318 at0006 = ╱3c╱<╱ // 0x12e6 @0x6
0x12e0…1318 at0007 = ╱43╱C╱ // 0x12e7 @0x7
0x12e0…1318 at0008 = ╱31╱1╱ // 0x12e8 @0x8
0x12e0…1318 at0009 = ╱32╱2╱ // 0x12e9 @0x9
0x12e0…1318 at000a = ╱31╱1╱ // 0x12ea @0xa
0x12e0…1318 at000b = ╱32╱2╱ // 0x12eb @0xb
0x12e0…1318 at000c = ╱3e╱>╱ // 0x12ec @0xc
0x12e0…1318 at000d = ╱4f╱O╱ // 0x12ed @0xd
0x12e0…1318 at000e = ╱70╱p╱ // 0x12ee @0xe
0x12e0…1318 at000f = ╱72╱r╱ // 0x12ef @0xf
0x12e0…1318 at0010 = ╱65╱e╱ // 0x12f0 @0x10
0x12e0…1318 at0011 = ╱74╱t╱ // 0x12f1 @0x11
0x12e0…1318 at0012 = ╱2f╱/╱ // 0x12f2 @0x12
0x12e0…1318 at0013 = ╱72╱r╱ // 0x12f3 @0x13
0x12e0…1318 at0014 = ╱65╱e╱ // 0x12f4 @0x14
0x12e0…1318 at0015 = ╱74╱t╱ // 0x12f5 @0x15
0x12e0…1318 at0016 = ╱20╱…╱ // 0x12f6 @0x16
0x12e0…1318 at0017 = ╱66╱f╱ // 0x12f7 @0x17
0x12e0…1318 at0018 = ╱6c╱l╱ // 0x12f8 @0x18
0x12e0…1318 at0019 = ╱65╱e╱ // 0x12f9 @0x19
0x12e0…1318 at001a = ╱72╱r╱ // 0x12fa @0x1a
0x12e0…1318 at001b = ╱65╱e╱ // 0x12fb @0x1b
0x12e0…1318 at001c = ╱20╱…╱ // 0x12fc @0x1c
0x12e0…1318 at001d = ╱6b╱k╱ // 0x12fd @0x1d
0x12e0…1318 at001e = ╱6f╱o╱ // 0x12fe @0x1e
0x12e0…1318 at001f = ╱6e╱n╱ // 0x12ff @0x1f
0x12e0…1318 at0020 = ╱74╱t╱ // 0x1300 @0x20
0x12e0…1318 at0021 = ╱69╱i╱ // 0x1301 @0x21
0x12e0…1318 at0022 = ╱20╱…╱ // 0x1302 @0x22
0x12e0…1318 at0023 = ╱28╱(╱ // 0x1303 @0x23
0x12e0…1318 at0024 = ╱6a╱j╱ // 0x1304 @0x24
0x12e0…1318 at0025 = ╱2f╱/╱ // 0x1305 @0x25
0x12e0…1318 at0026 = ╱6e╱n╱ // 0x1306 @0x26
0x12e0…1318 at0027 = ╱29╱)╱ // 0x1307 @0x27
0x12e0…1318 at0028 = ╱3f╱?╱ // 0x1308 @0x28
0x12e0…1318 at0029 = ╱20╱…╱ // 0x1309 @0x29
0x12e0…1318 at002a = ╱22╱"╱ // 0x130a @0x2a
0x12e0…1318 at002b = ╱f1╱ : ╱ // 0x130b @0x2b
0x12e0…1318 at002c = ╱53╱S╱ // 0x130c @0x2c
0x12e0…1318 at002d = ╱56╱V╱ // 0x130d @0x2d
0x12e0…1318 at002e = ╱41╱A╱ // 0x130e @0x2e
0x12e0…1318 at002f = ╱52╱R╱ // 0x130f @0x2f
0x12e0…1318 at0030 = ╱ef╱$╱ // 0x1310 @0x30
0x12e0…1318 at0031 = ╱ed╱(╱ // 0x1311 @0x31
0x12e0…1318 at0032 = ╱31╱1╱ // 0x1312 @0x32
0x12e0…1318 at0033 = ╱f20100╱ // 0x1313 @0x33
0x12e0…1318 at0036 = ╱ee╱)╱ // 0x1316 @0x36
0x12e0…1318 at0037 = EOL // 0x1317 @0x37
0x12e0…1318 }
0x1318…1334 a922 1930 UNTIL NOT "/" + SVAR$ + "/" IN "/J/j/"
0x1318…1334 LineComal80 {
0x1318…1334 ptr = 0xa922 // 0x1318 @0x0
0x1318…1334 lno = 0x078a // 0x131a @0x2
0x1318…1334 at0004 = ╱98╱ UNTIL ╱ // 0x131c @0x4
0x1318…1334 at0005 = ╱d7╱ NOT ╱ // 0x131d @0x5
0x1318…1334 at0006 = ╱22╱"╱ // 0x131e @0x6
0x1318…1334 at0007 = ╱2f╱/╱ // 0x131f @0x7
0x1318…1334 at0008 = ╱22╱"╱ // 0x1320 @0x8
0x1318…1334 at0009 = ╱eb╱ + ╱ // 0x1321 @0x9
0x1318…1334 at000a = ╱53╱S╱ // 0x1322 @0xa
0x1318…1334 at000b = ╱56╱V╱ // 0x1323 @0xb
0x1318…1334 at000c = ╱41╱A╱ // 0x1324 @0xc
0x1318…1334 at000d = ╱52╱R╱ // 0x1325 @0xd
0x1318…1334 at000e = ╱ef╱$╱ // 0x1326 @0xe
0x1318…1334 at000f = ╱eb╱ + ╱ // 0x1327 @0xf
0x1318…1334 at0010 = ╱22╱"╱ // 0x1328 @0x10
0x1318…1334 at0011 = ╱2f╱/╱ // 0x1329 @0x11
0x1318…1334 at0012 = ╱22╱"╱ // 0x132a @0x12
0x1318…1334 at0013 = ╱dc╱ IN ╱ // 0x132b @0x13
0x1318…1334 at0014 = ╱22╱"╱ // 0x132c @0x14
0x1318…1334 at0015 = ╱2f╱/╱ // 0x132d @0x15
0x1318…1334 at0016 = ╱4a╱J╱ // 0x132e @0x16
0x1318…1334 at0017 = ╱2f╱/╱ // 0x132f @0x17
0x1318…1334 at0018 = ╱6a╱j╱ // 0x1330 @0x18
0x1318…1334 at0019 = ╱2f╱/╱ // 0x1331 @0x19
0x1318…1334 at001a = ╱22╱"╱ // 0x1332 @0x1a
0x1318…1334 at001b = EOL // 0x1333 @0x1b
0x1318…1334 }
0x1334…1349 a937 1940 ENDPROC OPRET_RET_KONTI
0x1334…1349 LineComal80 {
0x1334…1349 ptr = 0xa937 // 0x1334 @0x0
0x1334…1349 lno = 0x0794 // 0x1336 @0x2
0x1334…1349 at0004 = ╱9f╱ ENDPROC ╱ // 0x1338 @0x4
0x1334…1349 at0005 = ╱4f╱O╱ // 0x1339 @0x5
0x1334…1349 at0006 = ╱50╱P╱ // 0x133a @0x6
0x1334…1349 at0007 = ╱52╱R╱ // 0x133b @0x7
0x1334…1349 at0008 = ╱45╱E╱ // 0x133c @0x8
0x1334…1349 at0009 = ╱54╱T╱ // 0x133d @0x9
0x1334…1349 at000a = ╱5f╱_╱ // 0x133e @0xa
0x1334…1349 at000b = ╱52╱R╱ // 0x133f @0xb
0x1334…1349 at000c = ╱45╱E╱ // 0x1340 @0xc
0x1334…1349 at000d = ╱54╱T╱ // 0x1341 @0xd
0x1334…1349 at000e = ╱5f╱_╱ // 0x1342 @0xe
0x1334…1349 at000f = ╱4b╱K╱ // 0x1343 @0xf
0x1334…1349 at0010 = ╱4f╱O╱ // 0x1344 @0x10
0x1334…1349 at0011 = ╱4e╱N╱ // 0x1345 @0x11
0x1334…1349 at0012 = ╱54╱T╱ // 0x1346 @0x12
0x1334…1349 at0013 = ╱49╱I╱ // 0x1347 @0x13
0x1334…1349 at0014 = EOL // 0x1348 @0x14
0x1334…1349 }
0x1349…134e a93c 1950
0x1349…134e LineComal80 {
0x1349…134e ptr = 0xa93c // 0x1349 @0x0
0x1349…134e lno = 0x079e // 0x134b @0x2
0x1349…134e at0004 = EOL // 0x134d @0x4
0x1349…134e }
0x134e…1365 a953 1960 PROC RET_LINIE(R_LIN)
0x134e…1365 LineComal80 {
0x134e…1365 ptr = 0xa953 // 0x134e @0x0
0x134e…1365 lno = 0x07a8 // 0x1350 @0x2
0x134e…1365 at0004 = ╱9e1f╱ PROC ╱ // 0x1352 @0x4
0x134e…1365 at0006 = ╱52╱R╱ // 0x1354 @0x6
0x134e…1365 at0007 = ╱45╱E╱ // 0x1355 @0x7
0x134e…1365 at0008 = ╱54╱T╱ // 0x1356 @0x8
0x134e…1365 at0009 = ╱5f╱_╱ // 0x1357 @0x9
0x134e…1365 at000a = ╱4c╱L╱ // 0x1358 @0xa
0x134e…1365 at000b = ╱49╱I╱ // 0x1359 @0xb
0x134e…1365 at000c = ╱4e╱N╱ // 0x135a @0xc
0x134e…1365 at000d = ╱49╱I╱ // 0x135b @0xd
0x134e…1365 at000e = ╱45╱E╱ // 0x135c @0xe
0x134e…1365 at000f = ╱ed╱(╱ // 0x135d @0xf
0x134e…1365 at0010 = ╱52╱R╱ // 0x135e @0x10
0x134e…1365 at0011 = ╱5f╱_╱ // 0x135f @0x11
0x134e…1365 at0012 = ╱4c╱L╱ // 0x1360 @0x12
0x134e…1365 at0013 = ╱49╱I╱ // 0x1361 @0x13
0x134e…1365 at0014 = ╱4e╱N╱ // 0x1362 @0x14
0x134e…1365 at0015 = ╱ee╱)╱ // 0x1363 @0x15
0x134e…1365 at0016 = EOL // 0x1364 @0x16
0x134e…1365 }
0x1365…1373 a961 1970 CASE R_LIN OF
0x1365…1373 LineComal80 {
0x1365…1373 ptr = 0xa961 // 0x1365 @0x0
0x1365…1373 lno = 0x07b2 // 0x1367 @0x2
0x1365…1373 at0004 = ╱a22001╱ CASE ╱ // 0x1369 @0x4
0x1365…1373 at0007 = ╱52╱R╱ // 0x136c @0x7
0x1365…1373 at0008 = ╱5f╱_╱ // 0x136d @0x8
0x1365…1373 at0009 = ╱4c╱L╱ // 0x136e @0x9
0x1365…1373 at000a = ╱49╱I╱ // 0x136f @0xa
0x1365…1373 at000b = ╱4e╱N╱ // 0x1370 @0xb
0x1365…1373 at000c = ╱ba╱ OF ╱ // 0x1371 @0xc
0x1365…1373 at000d = EOL // 0x1372 @0xd
0x1365…1373 }
0x1373…137f a96d 1980 WHILE 1
0x1373…137f LineComal80 {
0x1373…137f ptr = 0xa96d // 0x1373 @0x0
0x1373…137f lno = 0x07bc // 0x1375 @0x2
0x1373…137f at0004 = ╱a42101╱ WHILE ╱ // 0x1377 @0x4
0x1373…137f at0007 = ╱31╱1╱ // 0x137a @0x7
0x1373…137f at0008 = ╱f20100╱ // 0x137b @0x8
0x1373…137f at000b = EOL // 0x137e @0xb
0x1373…137f }
0x137f…1386 a974 1990 REPEAT
0x137f…1386 LineComal80 {
0x137f…1386 ptr = 0xa974 // 0x137f @0x0
0x137f…1386 lno = 0x07c6 // 0x1381 @0x2
0x137f…1386 at0004 = ╱9722╱ REPEAT ╱ // 0x1383 @0x4
0x137f…1386 at0006 = EOL // 0x1385 @0x6
0x137f…1386 }
0x1386…13ac a99a 2000 EDIT "<C1710>1. Kontonr : " : A_KTONR$
0x1386…13ac LineComal80 {
0x1386…13ac ptr = 0xa99a // 0x1386 @0x0
0x1386…13ac lno = 0x07d0 // 0x1388 @0x2
0x1386…13ac at0004 = ╱b1╱ EDIT ╱ // 0x138a @0x4
0x1386…13ac at0005 = ╱22╱"╱ // 0x138b @0x5
0x1386…13ac at0006 = ╱3c╱<╱ // 0x138c @0x6
0x1386…13ac at0007 = ╱43╱C╱ // 0x138d @0x7
0x1386…13ac at0008 = ╱31╱1╱ // 0x138e @0x8
0x1386…13ac at0009 = ╱37╱7╱ // 0x138f @0x9
0x1386…13ac at000a = ╱31╱1╱ // 0x1390 @0xa
0x1386…13ac at000b = ╱30╱0╱ // 0x1391 @0xb
0x1386…13ac at000c = ╱3e╱>╱ // 0x1392 @0xc
0x1386…13ac at000d = ╱31╱1╱ // 0x1393 @0xd
0x1386…13ac at000e = ╱2e╱.╱ // 0x1394 @0xe
0x1386…13ac at000f = ╱20╱…╱ // 0x1395 @0xf
0x1386…13ac at0010 = ╱4b╱K╱ // 0x1396 @0x10
0x1386…13ac at0011 = ╱6f╱o╱ // 0x1397 @0x11
0x1386…13ac at0012 = ╱6e╱n╱ // 0x1398 @0x12
0x1386…13ac at0013 = ╱74╱t╱ // 0x1399 @0x13
0x1386…13ac at0014 = ╱6f╱o╱ // 0x139a @0x14
0x1386…13ac at0015 = ╱6e╱n╱ // 0x139b @0x15
0x1386…13ac at0016 = ╱72╱r╱ // 0x139c @0x16
0x1386…13ac at0017 = ╱20╱…╱ // 0x139d @0x17
0x1386…13ac at0018 = ╱20╱…╱ // 0x139e @0x18
0x1386…13ac at0019 = ╱3a╱:╱ // 0x139f @0x19
0x1386…13ac at001a = ╱20╱…╱ // 0x13a0 @0x1a
0x1386…13ac at001b = ╱22╱"╱ // 0x13a1 @0x1b
0x1386…13ac at001c = ╱f1╱ : ╱ // 0x13a2 @0x1c
0x1386…13ac at001d = ╱41╱A╱ // 0x13a3 @0x1d
0x1386…13ac at001e = ╱5f╱_╱ // 0x13a4 @0x1e
0x1386…13ac at001f = ╱4b╱K╱ // 0x13a5 @0x1f
0x1386…13ac at0020 = ╱54╱T╱ // 0x13a6 @0x20
0x1386…13ac at0021 = ╱4f╱O╱ // 0x13a7 @0x21
0x1386…13ac at0022 = ╱4e╱N╱ // 0x13a8 @0x22
0x1386…13ac at0023 = ╱52╱R╱ // 0x13a9 @0x23
0x1386…13ac at0024 = ╱ef╱$╱ // 0x13aa @0x24
0x1386…13ac at0025 = EOL // 0x13ab @0x25
0x1386…13ac }
0x13ac…13c7 a9b5 2010 UNTIL NOT A_KTONR$ IN " "
0x13ac…13c7 LineComal80 {
0x13ac…13c7 ptr = 0xa9b5 // 0x13ac @0x0
0x13ac…13c7 lno = 0x07da // 0x13ae @0x2
0x13ac…13c7 at0004 = ╱98╱ UNTIL ╱ // 0x13b0 @0x4
0x13ac…13c7 at0005 = ╱d7╱ NOT ╱ // 0x13b1 @0x5
0x13ac…13c7 at0006 = ╱41╱A╱ // 0x13b2 @0x6
0x13ac…13c7 at0007 = ╱5f╱_╱ // 0x13b3 @0x7
0x13ac…13c7 at0008 = ╱4b╱K╱ // 0x13b4 @0x8
0x13ac…13c7 at0009 = ╱54╱T╱ // 0x13b5 @0x9
0x13ac…13c7 at000a = ╱4f╱O╱ // 0x13b6 @0xa
0x13ac…13c7 at000b = ╱4e╱N╱ // 0x13b7 @0xb
0x13ac…13c7 at000c = ╱52╱R╱ // 0x13b8 @0xc
0x13ac…13c7 at000d = ╱ef╱$╱ // 0x13b9 @0xd
0x13ac…13c7 at000e = ╱dc╱ IN ╱ // 0x13ba @0xe
0x13ac…13c7 at000f = ╱22╱"╱ // 0x13bb @0xf
0x13ac…13c7 at0010 = ╱20╱…╱ // 0x13bc @0x10
0x13ac…13c7 at0011 = ╱20╱…╱ // 0x13bd @0x11
0x13ac…13c7 at0012 = ╱20╱…╱ // 0x13be @0x12
0x13ac…13c7 at0013 = ╱20╱…╱ // 0x13bf @0x13
0x13ac…13c7 at0014 = ╱20╱…╱ // 0x13c0 @0x14
0x13ac…13c7 at0015 = ╱20╱…╱ // 0x13c1 @0x15
0x13ac…13c7 at0016 = ╱20╱…╱ // 0x13c2 @0x16
0x13ac…13c7 at0017 = ╱20╱…╱ // 0x13c3 @0x17
0x13ac…13c7 at0018 = ╱20╱…╱ // 0x13c4 @0x18
0x13ac…13c7 at0019 = ╱22╱"╱ // 0x13c5 @0x19
0x13ac…13c7 at001a = EOL // 0x13c6 @0x1a
0x13ac…13c7 }
0x13c7…13e6 a9d4 2020 LET IDXPOS := FIND_KTO(A_KTONR$)
0x13c7…13e6 LineComal80 {
0x13c7…13e6 ptr = 0xa9d4 // 0x13c7 @0x0
0x13c7…13e6 lno = 0x07e4 // 0x13c9 @0x2
0x13c7…13e6 at0004 = ╱86╱ LET ╱ // 0x13cb @0x4
0x13c7…13e6 at0005 = ╱49╱I╱ // 0x13cc @0x5
0x13c7…13e6 at0006 = ╱44╱D╱ // 0x13cd @0x6
0x13c7…13e6 at0007 = ╱58╱X╱ // 0x13ce @0x7
0x13c7…13e6 at0008 = ╱50╱P╱ // 0x13cf @0x8
0x13c7…13e6 at0009 = ╱4f╱O╱ // 0x13d0 @0x9
0x13c7…13e6 at000a = ╱53╱S╱ // 0x13d1 @0xa
0x13c7…13e6 at000b = ╱f0╱ := ╱ // 0x13d2 @0xb
0x13c7…13e6 at000c = ╱46╱F╱ // 0x13d3 @0xc
0x13c7…13e6 at000d = ╱49╱I╱ // 0x13d4 @0xd
0x13c7…13e6 at000e = ╱4e╱N╱ // 0x13d5 @0xe
0x13c7…13e6 at000f = ╱44╱D╱ // 0x13d6 @0xf
0x13c7…13e6 at0010 = ╱5f╱_╱ // 0x13d7 @0x10
0x13c7…13e6 at0011 = ╱4b╱K╱ // 0x13d8 @0x11
0x13c7…13e6 at0012 = ╱54╱T╱ // 0x13d9 @0x12
0x13c7…13e6 at0013 = ╱4f╱O╱ // 0x13da @0x13
0x13c7…13e6 at0014 = ╱ed╱(╱ // 0x13db @0x14
0x13c7…13e6 at0015 = ╱41╱A╱ // 0x13dc @0x15
0x13c7…13e6 at0016 = ╱5f╱_╱ // 0x13dd @0x16
0x13c7…13e6 at0017 = ╱4b╱K╱ // 0x13de @0x17
0x13c7…13e6 at0018 = ╱54╱T╱ // 0x13df @0x18
0x13c7…13e6 at0019 = ╱4f╱O╱ // 0x13e0 @0x19
0x13c7…13e6 at001a = ╱4e╱N╱ // 0x13e1 @0x1a
0x13c7…13e6 at001b = ╱52╱R╱ // 0x13e2 @0x1b
0x13c7…13e6 at001c = ╱ef╱$╱ // 0x13e3 @0x1c
0x13c7…13e6 at001d = ╱ee╱)╱ // 0x13e4 @0x1d
0x13c7…13e6 at001e = EOL // 0x13e5 @0x1e
0x13c7…13e6 }
0x13e6…1403 a9f1 2030 IF OPRET = OK THEN LET KTO_NAVN$ := ""
0x13e6…1403 LineComal80 {
0x13e6…1403 ptr = 0xa9f1 // 0x13e6 @0x0
0x13e6…1403 lno = 0x07ee // 0x13e8 @0x2
0x13e6…1403 at0004 = ╱8200╱ IF ╱ // 0x13ea @0x4
0x13e6…1403 at0006 = ╱4f╱O╱ // 0x13ec @0x6
0x13e6…1403 at0007 = ╱50╱P╱ // 0x13ed @0x7
0x13e6…1403 at0008 = ╱52╱R╱ // 0x13ee @0x8
0x13e6…1403 at0009 = ╱45╱E╱ // 0x13ef @0x9
0x13e6…1403 at000a = ╱54╱T╱ // 0x13f0 @0xa
0x13e6…1403 at000b = ╱df╱ = ╱ // 0x13f1 @0xb
0x13e6…1403 at000c = ╱4f╱O╱ // 0x13f2 @0xc
0x13e6…1403 at000d = ╱4b╱K╱ // 0x13f3 @0xd
0x13e6…1403 at000e = ╱b5╱ THEN ╱ // 0x13f4 @0xe
0x13e6…1403 at000f = ╱86╱ LET ╱ // 0x13f5 @0xf
0x13e6…1403 at0010 = ╱4b╱K╱ // 0x13f6 @0x10
0x13e6…1403 at0011 = ╱54╱T╱ // 0x13f7 @0x11
0x13e6…1403 at0012 = ╱4f╱O╱ // 0x13f8 @0x12
0x13e6…1403 at0013 = ╱5f╱_╱ // 0x13f9 @0x13
0x13e6…1403 at0014 = ╱4e╱N╱ // 0x13fa @0x14
0x13e6…1403 at0015 = ╱41╱A╱ // 0x13fb @0x15
0x13e6…1403 at0016 = ╱56╱V╱ // 0x13fc @0x16
0x13e6…1403 at0017 = ╱4e╱N╱ // 0x13fd @0x17
0x13e6…1403 at0018 = ╱ef╱$╱ // 0x13fe @0x18
0x13e6…1403 at0019 = ╱f0╱ := ╱ // 0x13ff @0x19
0x13e6…1403 at001a = ╱22╱"╱ // 0x1400 @0x1a
0x13e6…1403 at001b = ╱22╱"╱ // 0x1401 @0x1b
0x13e6…1403 at001c = EOL // 0x1402 @0x1c
0x13e6…1403 }
0x1403…140e a9fc 2040 IF OK THEN
0x1403…140e LineComal80 {
0x1403…140e ptr = 0xa9fc // 0x1403 @0x0
0x1403…140e lno = 0x07f8 // 0x1405 @0x2
0x1403…140e at0004 = ╱9b23d7╱ IF ╱ // 0x1407 @0x4
0x1403…140e at0007 = ╱4f╱O╱ // 0x140a @0x7
0x1403…140e at0008 = ╱4b╱K╱ // 0x140b @0x8
0x1403…140e at0009 = ╱b5╱ THEN ╱ // 0x140c @0x9
0x1403…140e at000a = EOL // 0x140d @0xa
0x1403…140e }
0x140e…141e aa0c 2050 LET OPRET := TRUE
0x140e…141e LineComal80 {
0x140e…141e ptr = 0xaa0c // 0x140e @0x0
0x140e…141e lno = 0x0802 // 0x1410 @0x2
0x140e…141e at0004 = ╱86╱ LET ╱ // 0x1412 @0x4
0x140e…141e at0005 = ╱4f╱O╱ // 0x1413 @0x5
0x140e…141e at0006 = ╱50╱P╱ // 0x1414 @0x6
0x140e…141e at0007 = ╱52╱R╱ // 0x1415 @0x7
0x140e…141e at0008 = ╱45╱E╱ // 0x1416 @0x8
0x140e…141e at0009 = ╱54╱T╱ // 0x1417 @0x9
0x140e…141e at000a = ╱f0╱ := ╱ // 0x1418 @0xa
0x140e…141e at000b = ╱54╱T╱ // 0x1419 @0xb
0x140e…141e at000c = ╱52╱R╱ // 0x141a @0xc
0x140e…141e at000d = ╱55╱U╱ // 0x141b @0xd
0x140e…141e at000e = ╱45╱E╱ // 0x141c @0xe
0x140e…141e at000f = EOL // 0x141d @0xf
0x140e…141e }
0x141e…1425 aa13 2060 ELSE
0x141e…1425 LineComal80 {
0x141e…1425 ptr = 0xaa13 // 0x141e @0x0
0x141e…1425 lno = 0x080c // 0x1420 @0x2
0x141e…1425 at0004 = ╱9a24╱ ELSE ╱ // 0x1422 @0x4
0x141e…1425 at0006 = EOL // 0x1424 @0x6
0x141e…1425 }
0x1425…143b aa29 2070 EXEC LÆS_KONTO(RECNR)
0x1425…143b LineComal80 {
0x1425…143b ptr = 0xaa29 // 0x1425 @0x0
0x1425…143b lno = 0x0816 // 0x1427 @0x2
0x1425…143b at0004 = ╱9d╱ EXEC ╱ // 0x1429 @0x4
0x1425…143b at0005 = ╱4c╱L╱ // 0x142a @0x5
0x1425…143b at0006 = ╱5b╱Æ╱ // 0x142b @0x6
0x1425…143b at0007 = ╱53╱S╱ // 0x142c @0x7
0x1425…143b at0008 = ╱5f╱_╱ // 0x142d @0x8
0x1425…143b at0009 = ╱4b╱K╱ // 0x142e @0x9
0x1425…143b at000a = ╱4f╱O╱ // 0x142f @0xa
0x1425…143b at000b = ╱4e╱N╱ // 0x1430 @0xb
0x1425…143b at000c = ╱54╱T╱ // 0x1431 @0xc
0x1425…143b at000d = ╱4f╱O╱ // 0x1432 @0xd
0x1425…143b at000e = ╱ed╱(╱ // 0x1433 @0xe
0x1425…143b at000f = ╱52╱R╱ // 0x1434 @0xf
0x1425…143b at0010 = ╱45╱E╱ // 0x1435 @0x10
0x1425…143b at0011 = ╱43╱C╱ // 0x1436 @0x11
0x1425…143b at0012 = ╱4e╱N╱ // 0x1437 @0x12
0x1425…143b at0013 = ╱52╱R╱ // 0x1438 @0x13
0x1425…143b at0014 = ╱ee╱)╱ // 0x1439 @0x14
0x1425…143b at0015 = EOL // 0x143a @0x15
0x1425…143b }
0x143b…1456 aa44 2080 LET A_KTO_TYPE$ := KTO_TYPE$
0x143b…1456 LineComal80 {
0x143b…1456 ptr = 0xaa44 // 0x143b @0x0
0x143b…1456 lno = 0x0820 // 0x143d @0x2
0x143b…1456 at0004 = ╱86╱ LET ╱ // 0x143f @0x4
0x143b…1456 at0005 = ╱41╱A╱ // 0x1440 @0x5
0x143b…1456 at0006 = ╱5f╱_╱ // 0x1441 @0x6
0x143b…1456 at0007 = ╱4b╱K╱ // 0x1442 @0x7
0x143b…1456 at0008 = ╱54╱T╱ // 0x1443 @0x8
0x143b…1456 at0009 = ╱4f╱O╱ // 0x1444 @0x9
0x143b…1456 at000a = ╱5f╱_╱ // 0x1445 @0xa
0x143b…1456 at000b = ╱54╱T╱ // 0x1446 @0xb
0x143b…1456 at000c = ╱59╱Y╱ // 0x1447 @0xc
0x143b…1456 at000d = ╱50╱P╱ // 0x1448 @0xd
0x143b…1456 at000e = ╱45╱E╱ // 0x1449 @0xe
0x143b…1456 at000f = ╱ef╱$╱ // 0x144a @0xf
0x143b…1456 at0010 = ╱f0╱ := ╱ // 0x144b @0x10
0x143b…1456 at0011 = ╱4b╱K╱ // 0x144c @0x11
0x143b…1456 at0012 = ╱54╱T╱ // 0x144d @0x12
0x143b…1456 at0013 = ╱4f╱O╱ // 0x144e @0x13
0x143b…1456 at0014 = ╱5f╱_╱ // 0x144f @0x14
0x143b…1456 at0015 = ╱54╱T╱ // 0x1450 @0x15
0x143b…1456 at0016 = ╱59╱Y╱ // 0x1451 @0x16
0x143b…1456 at0017 = ╱50╱P╱ // 0x1452 @0x17
0x143b…1456 at0018 = ╱45╱E╱ // 0x1453 @0x18
0x143b…1456 at0019 = ╱ef╱$╱ // 0x1454 @0x19
0x143b…1456 at001a = EOL // 0x1455 @0x1a
0x143b…1456 }
0x1456…1467 aa55 2090 LET OPRET := FALSE
0x1456…1467 LineComal80 {
0x1456…1467 ptr = 0xaa55 // 0x1456 @0x0
0x1456…1467 lno = 0x082a // 0x1458 @0x2
0x1456…1467 at0004 = ╱86╱ LET ╱ // 0x145a @0x4
0x1456…1467 at0005 = ╱4f╱O╱ // 0x145b @0x5
0x1456…1467 at0006 = ╱50╱P╱ // 0x145c @0x6
0x1456…1467 at0007 = ╱52╱R╱ // 0x145d @0x7
0x1456…1467 at0008 = ╱45╱E╱ // 0x145e @0x8
0x1456…1467 at0009 = ╱54╱T╱ // 0x145f @0x9
0x1456…1467 at000a = ╱f0╱ := ╱ // 0x1460 @0xa
0x1456…1467 at000b = ╱46╱F╱ // 0x1461 @0xb
0x1456…1467 at000c = ╱41╱A╱ // 0x1462 @0xc
0x1456…1467 at000d = ╱4c╱L╱ // 0x1463 @0xd
0x1456…1467 at000e = ╱53╱S╱ // 0x1464 @0xe
0x1456…1467 at000f = ╱45╱E╱ // 0x1465 @0xf
0x1456…1467 at0010 = EOL // 0x1466 @0x10
0x1456…1467 }
0x1467…146d aa5b 2100 ENDIF
0x1467…146d LineComal80 {
0x1467…146d ptr = 0xaa5b // 0x1467 @0x0
0x1467…146d lno = 0x0834 // 0x1469 @0x2
0x1467…146d at0004 = ╱9c╱ ENDIF ╱ // 0x146b @0x4
0x1467…146d at0005 = EOL // 0x146c @0x5
0x1467…146d }
0x146d…14b2 aad4 2110 PRINT "<C1711>2. Kontonavn: " ; KTO_NAVN$ ; SPC$(1 : 40 - ╱cb╱ (KTO_NAVN$))
0x146d…14b2 LineComal80 {
0x146d…14b2 ptr = 0xaad4 // 0x146d @0x0
0x146d…14b2 lno = 0x083e // 0x146f @0x2
0x146d…14b2 at0004 = ╱92╱ PRINT ╱ // 0x1471 @0x4
0x146d…14b2 at0005 = ╱22╱"╱ // 0x1472 @0x5
0x146d…14b2 at0006 = ╱3c╱<╱ // 0x1473 @0x6
0x146d…14b2 at0007 = ╱43╱C╱ // 0x1474 @0x7
0x146d…14b2 at0008 = ╱31╱1╱ // 0x1475 @0x8
0x146d…14b2 at0009 = ╱37╱7╱ // 0x1476 @0x9
0x146d…14b2 at000a = ╱31╱1╱ // 0x1477 @0xa
0x146d…14b2 at000b = ╱31╱1╱ // 0x1478 @0xb
0x146d…14b2 at000c = ╱3e╱>╱ // 0x1479 @0xc
0x146d…14b2 at000d = ╱32╱2╱ // 0x147a @0xd
0x146d…14b2 at000e = ╱2e╱.╱ // 0x147b @0xe
0x146d…14b2 at000f = ╱20╱…╱ // 0x147c @0xf
0x146d…14b2 at0010 = ╱4b╱K╱ // 0x147d @0x10
0x146d…14b2 at0011 = ╱6f╱o╱ // 0x147e @0x11
0x146d…14b2 at0012 = ╱6e╱n╱ // 0x147f @0x12
0x146d…14b2 at0013 = ╱74╱t╱ // 0x1480 @0x13
0x146d…14b2 at0014 = ╱6f╱o╱ // 0x1481 @0x14
0x146d…14b2 at0015 = ╱6e╱n╱ // 0x1482 @0x15
0x146d…14b2 at0016 = ╱61╱a╱ // 0x1483 @0x16
0x146d…14b2 at0017 = ╱76╱v╱ // 0x1484 @0x17
0x146d…14b2 at0018 = ╱6e╱n╱ // 0x1485 @0x18
0x146d…14b2 at0019 = ╱3a╱:╱ // 0x1486 @0x19
0x146d…14b2 at001a = ╱20╱…╱ // 0x1487 @0x1a
0x146d…14b2 at001b = ╱22╱"╱ // 0x1488 @0x1b
0x146d…14b2 at001c = ╱ea╱ ; ╱ // 0x1489 @0x1c
0x146d…14b2 at001d = ╱4b╱K╱ // 0x148a @0x1d
0x146d…14b2 at001e = ╱54╱T╱ // 0x148b @0x1e
0x146d…14b2 at001f = ╱4f╱O╱ // 0x148c @0x1f
0x146d…14b2 at0020 = ╱5f╱_╱ // 0x148d @0x20
0x146d…14b2 at0021 = ╱4e╱N╱ // 0x148e @0x21
0x146d…14b2 at0022 = ╱41╱A╱ // 0x148f @0x22
0x146d…14b2 at0023 = ╱56╱V╱ // 0x1490 @0x23
0x146d…14b2 at0024 = ╱4e╱N╱ // 0x1491 @0x24
0x146d…14b2 at0025 = ╱ef╱$╱ // 0x1492 @0x25
0x146d…14b2 at0026 = ╱ea╱ ; ╱ // 0x1493 @0x26
0x146d…14b2 at0027 = ╱53╱S╱ // 0x1494 @0x27
0x146d…14b2 at0028 = ╱50╱P╱ // 0x1495 @0x28
0x146d…14b2 at0029 = ╱43╱C╱ // 0x1496 @0x29
0x146d…14b2 at002a = ╱ef╱$╱ // 0x1497 @0x2a
0x146d…14b2 at002b = ╱ed╱(╱ // 0x1498 @0x2b
0x146d…14b2 at002c = ╱31╱1╱ // 0x1499 @0x2c
0x146d…14b2 at002d = ╱f20100╱ // 0x149a @0x2d
0x146d…14b2 at0030 = ╱f1╱ : ╱ // 0x149d @0x30
0x146d…14b2 at0031 = ╱34╱4╱ // 0x149e @0x31
0x146d…14b2 at0032 = ╱30╱0╱ // 0x149f @0x32
0x146d…14b2 at0033 = ╱f22800╱ // 0x14a0 @0x33
0x146d…14b2 at0036 = ╱e6╱ - ╱ // 0x14a3 @0x36
0x146d…14b2 at0037 = ╱cb╱ // 0x14a4 @0x37
0x146d…14b2 at0038 = ╱ed╱(╱ // 0x14a5 @0x38
0x146d…14b2 at0039 = ╱4b╱K╱ // 0x14a6 @0x39
0x146d…14b2 at003a = ╱54╱T╱ // 0x14a7 @0x3a
0x146d…14b2 at003b = ╱4f╱O╱ // 0x14a8 @0x3b
0x146d…14b2 at003c = ╱5f╱_╱ // 0x14a9 @0x3c
0x146d…14b2 at003d = ╱4e╱N╱ // 0x14aa @0x3d
0x146d…14b2 at003e = ╱41╱A╱ // 0x14ab @0x3e
0x146d…14b2 at003f = ╱56╱V╱ // 0x14ac @0x3f
0x146d…14b2 at0040 = ╱4e╱N╱ // 0x14ad @0x40
0x146d…14b2 at0041 = ╱ef╱$╱ // 0x14ae @0x41
0x146d…14b2 at0042 = ╱ee╱)╱ // 0x14af @0x42
0x146d…14b2 at0043 = ╱ee╱)╱ // 0x14b0 @0x43
0x146d…14b2 at0044 = EOL // 0x14b1 @0x44
0x146d…14b2 }
0x14b2…14e6 aad4 2120 PRINT "<C1712>3. Kontotype: " ; A_KTO_TYPE$ ; SPC$(1)
0x14b2…14e6 LineComal80 {
0x14b2…14e6 ptr = 0xaad4 // 0x14b2 @0x0
0x14b2…14e6 lno = 0x0848 // 0x14b4 @0x2
0x14b2…14e6 at0004 = ╱92╱ PRINT ╱ // 0x14b6 @0x4
0x14b2…14e6 at0005 = ╱22╱"╱ // 0x14b7 @0x5
0x14b2…14e6 at0006 = ╱3c╱<╱ // 0x14b8 @0x6
0x14b2…14e6 at0007 = ╱43╱C╱ // 0x14b9 @0x7
0x14b2…14e6 at0008 = ╱31╱1╱ // 0x14ba @0x8
0x14b2…14e6 at0009 = ╱37╱7╱ // 0x14bb @0x9
0x14b2…14e6 at000a = ╱31╱1╱ // 0x14bc @0xa
0x14b2…14e6 at000b = ╱32╱2╱ // 0x14bd @0xb
0x14b2…14e6 at000c = ╱3e╱>╱ // 0x14be @0xc
0x14b2…14e6 at000d = ╱33╱3╱ // 0x14bf @0xd
0x14b2…14e6 at000e = ╱2e╱.╱ // 0x14c0 @0xe
0x14b2…14e6 at000f = ╱20╱…╱ // 0x14c1 @0xf
0x14b2…14e6 at0010 = ╱4b╱K╱ // 0x14c2 @0x10
0x14b2…14e6 at0011 = ╱6f╱o╱ // 0x14c3 @0x11
0x14b2…14e6 at0012 = ╱6e╱n╱ // 0x14c4 @0x12
0x14b2…14e6 at0013 = ╱74╱t╱ // 0x14c5 @0x13
0x14b2…14e6 at0014 = ╱6f╱o╱ // 0x14c6 @0x14
0x14b2…14e6 at0015 = ╱74╱t╱ // 0x14c7 @0x15
0x14b2…14e6 at0016 = ╱79╱y╱ // 0x14c8 @0x16
0x14b2…14e6 at0017 = ╱70╱p╱ // 0x14c9 @0x17
0x14b2…14e6 at0018 = ╱65╱e╱ // 0x14ca @0x18
0x14b2…14e6 at0019 = ╱3a╱:╱ // 0x14cb @0x19
0x14b2…14e6 at001a = ╱20╱…╱ // 0x14cc @0x1a
0x14b2…14e6 at001b = ╱22╱"╱ // 0x14cd @0x1b
0x14b2…14e6 at001c = ╱ea╱ ; ╱ // 0x14ce @0x1c
0x14b2…14e6 at001d = ╱41╱A╱ // 0x14cf @0x1d
0x14b2…14e6 at001e = ╱5f╱_╱ // 0x14d0 @0x1e
0x14b2…14e6 at001f = ╱4b╱K╱ // 0x14d1 @0x1f
0x14b2…14e6 at0020 = ╱54╱T╱ // 0x14d2 @0x20
0x14b2…14e6 at0021 = ╱4f╱O╱ // 0x14d3 @0x21
0x14b2…14e6 at0022 = ╱5f╱_╱ // 0x14d4 @0x22
0x14b2…14e6 at0023 = ╱54╱T╱ // 0x14d5 @0x23
0x14b2…14e6 at0024 = ╱59╱Y╱ // 0x14d6 @0x24
0x14b2…14e6 at0025 = ╱50╱P╱ // 0x14d7 @0x25
0x14b2…14e6 at0026 = ╱45╱E╱ // 0x14d8 @0x26
0x14b2…14e6 at0027 = ╱ef╱$╱ // 0x14d9 @0x27
0x14b2…14e6 at0028 = ╱ea╱ ; ╱ // 0x14da @0x28
0x14b2…14e6 at0029 = ╱53╱S╱ // 0x14db @0x29
0x14b2…14e6 at002a = ╱50╱P╱ // 0x14dc @0x2a
0x14b2…14e6 at002b = ╱43╱C╱ // 0x14dd @0x2b
0x14b2…14e6 at002c = ╱ef╱$╱ // 0x14de @0x2c
0x14b2…14e6 at002d = ╱ed╱(╱ // 0x14df @0x2d
0x14b2…14e6 at002e = ╱31╱1╱ // 0x14e0 @0x2e
0x14b2…14e6 at002f = ╱f20100╱ // 0x14e1 @0x2f
0x14b2…14e6 at0032 = ╱ee╱)╱ // 0x14e4 @0x32
0x14b2…14e6 at0033 = EOL // 0x14e5 @0x33
0x14b2…14e6 }
0x14e6…14f2 aae0 2130 WHILE 2
0x14e6…14f2 LineComal80 {
0x14e6…14f2 ptr = 0xaae0 // 0x14e6 @0x0
0x14e6…14f2 lno = 0x0852 // 0x14e8 @0x2
0x14e6…14f2 at0004 = ╱a42501╱ WHILE ╱ // 0x14ea @0x4
0x14e6…14f2 at0007 = ╱32╱2╱ // 0x14ed @0x7
0x14e6…14f2 at0008 = ╱f20200╱ // 0x14ee @0x8
0x14e6…14f2 at000b = EOL // 0x14f1 @0xb
0x14e6…14f2 }
0x14f2…1519 ab07 2140 EDIT "<C1711>2. Kontonavn: " : KTO_NAVN$
0x14f2…1519 LineComal80 {
0x14f2…1519 ptr = 0xab07 // 0x14f2 @0x0
0x14f2…1519 lno = 0x085c // 0x14f4 @0x2
0x14f2…1519 at0004 = ╱b1╱ EDIT ╱ // 0x14f6 @0x4
0x14f2…1519 at0005 = ╱22╱"╱ // 0x14f7 @0x5
0x14f2…1519 at0006 = ╱3c╱<╱ // 0x14f8 @0x6
0x14f2…1519 at0007 = ╱43╱C╱ // 0x14f9 @0x7
0x14f2…1519 at0008 = ╱31╱1╱ // 0x14fa @0x8
0x14f2…1519 at0009 = ╱37╱7╱ // 0x14fb @0x9
0x14f2…1519 at000a = ╱31╱1╱ // 0x14fc @0xa
0x14f2…1519 at000b = ╱31╱1╱ // 0x14fd @0xb
0x14f2…1519 at000c = ╱3e╱>╱ // 0x14fe @0xc
0x14f2…1519 at000d = ╱32╱2╱ // 0x14ff @0xd
0x14f2…1519 at000e = ╱2e╱.╱ // 0x1500 @0xe
0x14f2…1519 at000f = ╱20╱…╱ // 0x1501 @0xf
0x14f2…1519 at0010 = ╱4b╱K╱ // 0x1502 @0x10
0x14f2…1519 at0011 = ╱6f╱o╱ // 0x1503 @0x11
0x14f2…1519 at0012 = ╱6e╱n╱ // 0x1504 @0x12
0x14f2…1519 at0013 = ╱74╱t╱ // 0x1505 @0x13
0x14f2…1519 at0014 = ╱6f╱o╱ // 0x1506 @0x14
0x14f2…1519 at0015 = ╱6e╱n╱ // 0x1507 @0x15
0x14f2…1519 at0016 = ╱61╱a╱ // 0x1508 @0x16
0x14f2…1519 at0017 = ╱76╱v╱ // 0x1509 @0x17
0x14f2…1519 at0018 = ╱6e╱n╱ // 0x150a @0x18
0x14f2…1519 at0019 = ╱3a╱:╱ // 0x150b @0x19
0x14f2…1519 at001a = ╱20╱…╱ // 0x150c @0x1a
0x14f2…1519 at001b = ╱22╱"╱ // 0x150d @0x1b
0x14f2…1519 at001c = ╱f1╱ : ╱ // 0x150e @0x1c
0x14f2…1519 at001d = ╱4b╱K╱ // 0x150f @0x1d
0x14f2…1519 at001e = ╱54╱T╱ // 0x1510 @0x1e
0x14f2…1519 at001f = ╱4f╱O╱ // 0x1511 @0x1f
0x14f2…1519 at0020 = ╱5f╱_╱ // 0x1512 @0x20
0x14f2…1519 at0021 = ╱4e╱N╱ // 0x1513 @0x21
0x14f2…1519 at0022 = ╱41╱A╱ // 0x1514 @0x22
0x14f2…1519 at0023 = ╱56╱V╱ // 0x1515 @0x23
0x14f2…1519 at0024 = ╱4e╱N╱ // 0x1516 @0x24
0x14f2…1519 at0025 = ╱ef╱$╱ // 0x1517 @0x25
0x14f2…1519 at0026 = EOL // 0x1518 @0x26
0x14f2…1519 }
0x1519…1525 b733 2150 WHILE 3
0x1519…1525 LineComal80 {
0x1519…1525 ptr = 0xb733 // 0x1519 @0x0
0x1519…1525 lno = 0x0866 // 0x151b @0x2
0x1519…1525 at0004 = ╱a42601╱ WHILE ╱ // 0x151d @0x4
0x1519…1525 at0007 = ╱33╱3╱ // 0x1520 @0x7
0x1519…1525 at0008 = ╱f20300╱ // 0x1521 @0x8
0x1519…1525 at000b = EOL // 0x1524 @0xb
0x1519…1525 }
0x1525…1542 ab30 2160 IF _KTO_TYPE$ >< "A" OR OPRET THEN
0x1525…1542 LineComal80 {
0x1525…1542 ptr = 0xab30 // 0x1525 @0x0
0x1525…1542 lno = 0x0870 // 0x1527 @0x2
0x1525…1542 at0004 = ╱9b2741╱ IF ╱ // 0x1529 @0x4
0x1525…1542 at0007 = ╱5f╱_╱ // 0x152c @0x7
0x1525…1542 at0008 = ╱4b╱K╱ // 0x152d @0x8
0x1525…1542 at0009 = ╱54╱T╱ // 0x152e @0x9
0x1525…1542 at000a = ╱4f╱O╱ // 0x152f @0xa
0x1525…1542 at000b = ╱5f╱_╱ // 0x1530 @0xb
0x1525…1542 at000c = ╱54╱T╱ // 0x1531 @0xc
0x1525…1542 at000d = ╱59╱Y╱ // 0x1532 @0xd
0x1525…1542 at000e = ╱50╱P╱ // 0x1533 @0xe
0x1525…1542 at000f = ╱45╱E╱ // 0x1534 @0xf
0x1525…1542 at0010 = ╱ef╱$╱ // 0x1535 @0x10
0x1525…1542 at0011 = ╱e4╱ >< ╱ // 0x1536 @0x11
0x1525…1542 at0012 = ╱22╱"╱ // 0x1537 @0x12
0x1525…1542 at0013 = ╱41╱A╱ // 0x1538 @0x13
0x1525…1542 at0014 = ╱22╱"╱ // 0x1539 @0x14
0x1525…1542 at0015 = ╱d8╱ OR ╱ // 0x153a @0x15
0x1525…1542 at0016 = ╱4f╱O╱ // 0x153b @0x16
0x1525…1542 at0017 = ╱50╱P╱ // 0x153c @0x17
0x1525…1542 at0018 = ╱52╱R╱ // 0x153d @0x18
0x1525…1542 at0019 = ╱45╱E╱ // 0x153e @0x19
0x1525…1542 at001a = ╱54╱T╱ // 0x153f @0x1a
0x1525…1542 at001b = ╱b5╱ THEN ╱ // 0x1540 @0x1b
0x1525…1542 at001c = EOL // 0x1541 @0x1c
0x1525…1542 }
0x1542…156c ac78 2170 IF A_KTO_TYPE$ IN " " THEN LET A_KTO_TYPE$ := "A"
0x1542…156c LineComal80 {
0x1542…156c ptr = 0xac78 // 0x1542 @0x0
0x1542…156c lno = 0x087a // 0x1544 @0x2
0x1542…156c at0004 = ╱8200╱ IF ╱ // 0x1546 @0x4
0x1542…156c at0006 = ╱41╱A╱ // 0x1548 @0x6
0x1542…156c at0007 = ╱5f╱_╱ // 0x1549 @0x7
0x1542…156c at0008 = ╱4b╱K╱ // 0x154a @0x8
0x1542…156c at0009 = ╱54╱T╱ // 0x154b @0x9
0x1542…156c at000a = ╱4f╱O╱ // 0x154c @0xa
0x1542…156c at000b = ╱5f╱_╱ // 0x154d @0xb
0x1542…156c at000c = ╱54╱T╱ // 0x154e @0xc
0x1542…156c at000d = ╱59╱Y╱ // 0x154f @0xd
0x1542…156c at000e = ╱50╱P╱ // 0x1550 @0xe
0x1542…156c at000f = ╱45╱E╱ // 0x1551 @0xf
0x1542…156c at0010 = ╱ef╱$╱ // 0x1552 @0x10
0x1542…156c at0011 = ╱dc╱ IN ╱ // 0x1553 @0x11
0x1542…156c at0012 = ╱22╱"╱ // 0x1554 @0x12
0x1542…156c at0013 = ╱20╱…╱ // 0x1555 @0x13
0x1542…156c at0014 = ╱20╱…╱ // 0x1556 @0x14
0x1542…156c at0015 = ╱20╱…╱ // 0x1557 @0x15
0x1542…156c at0016 = ╱20╱…╱ // 0x1558 @0x16
0x1542…156c at0017 = ╱22╱"╱ // 0x1559 @0x17
0x1542…156c at0018 = ╱b5╱ THEN ╱ // 0x155a @0x18
0x1542…156c at0019 = ╱86╱ LET ╱ // 0x155b @0x19
0x1542…156c at001a = ╱41╱A╱ // 0x155c @0x1a
0x1542…156c at001b = ╱5f╱_╱ // 0x155d @0x1b
0x1542…156c at001c = ╱4b╱K╱ // 0x155e @0x1c
0x1542…156c at001d = ╱54╱T╱ // 0x155f @0x1d
0x1542…156c at001e = ╱4f╱O╱ // 0x1560 @0x1e
0x1542…156c at001f = ╱5f╱_╱ // 0x1561 @0x1f
0x1542…156c at0020 = ╱54╱T╱ // 0x1562 @0x20
0x1542…156c at0021 = ╱59╱Y╱ // 0x1563 @0x21
0x1542…156c at0022 = ╱50╱P╱ // 0x1564 @0x22
0x1542…156c at0023 = ╱45╱E╱ // 0x1565 @0x23
0x1542…156c at0024 = ╱ef╱$╱ // 0x1566 @0x24
0x1542…156c at0025 = ╱f0╱ := ╱ // 0x1567 @0x25
0x1542…156c at0026 = ╱22╱"╱ // 0x1568 @0x26
0x1542…156c at0027 = ╱41╱A╱ // 0x1569 @0x27
0x1542…156c at0028 = ╱22╱"╱ // 0x156a @0x28
0x1542…156c at0029 = EOL // 0x156b @0x29
0x1542…156c }
0x156c…1573 ab61 2180 REPEAT
0x156c…1573 LineComal80 {
0x156c…1573 ptr = 0xab61 // 0x156c @0x0
0x156c…1573 lno = 0x0884 // 0x156e @0x2
0x156c…1573 at0004 = ╱9728╱ REPEAT ╱ // 0x1570 @0x4
0x156c…1573 at0006 = EOL // 0x1572 @0x6
0x156c…1573 }
0x1573…159c ab8a 2190 EDIT "<C1712>3. Kontotype: " : A_KTO_TYPE$
0x1573…159c LineComal80 {
0x1573…159c ptr = 0xab8a // 0x1573 @0x0
0x1573…159c lno = 0x088e // 0x1575 @0x2
0x1573…159c at0004 = ╱b1╱ EDIT ╱ // 0x1577 @0x4
0x1573…159c at0005 = ╱22╱"╱ // 0x1578 @0x5
0x1573…159c at0006 = ╱3c╱<╱ // 0x1579 @0x6
0x1573…159c at0007 = ╱43╱C╱ // 0x157a @0x7
0x1573…159c at0008 = ╱31╱1╱ // 0x157b @0x8
0x1573…159c at0009 = ╱37╱7╱ // 0x157c @0x9
0x1573…159c at000a = ╱31╱1╱ // 0x157d @0xa
0x1573…159c at000b = ╱32╱2╱ // 0x157e @0xb
0x1573…159c at000c = ╱3e╱>╱ // 0x157f @0xc
0x1573…159c at000d = ╱33╱3╱ // 0x1580 @0xd
0x1573…159c at000e = ╱2e╱.╱ // 0x1581 @0xe
0x1573…159c at000f = ╱20╱…╱ // 0x1582 @0xf
0x1573…159c at0010 = ╱4b╱K╱ // 0x1583 @0x10
0x1573…159c at0011 = ╱6f╱o╱ // 0x1584 @0x11
0x1573…159c at0012 = ╱6e╱n╱ // 0x1585 @0x12
0x1573…159c at0013 = ╱74╱t╱ // 0x1586 @0x13
0x1573…159c at0014 = ╱6f╱o╱ // 0x1587 @0x14
0x1573…159c at0015 = ╱74╱t╱ // 0x1588 @0x15
0x1573…159c at0016 = ╱79╱y╱ // 0x1589 @0x16
0x1573…159c at0017 = ╱70╱p╱ // 0x158a @0x17
0x1573…159c at0018 = ╱65╱e╱ // 0x158b @0x18
0x1573…159c at0019 = ╱3a╱:╱ // 0x158c @0x19
0x1573…159c at001a = ╱20╱…╱ // 0x158d @0x1a
0x1573…159c at001b = ╱22╱"╱ // 0x158e @0x1b
0x1573…159c at001c = ╱f1╱ : ╱ // 0x158f @0x1c
0x1573…159c at001d = ╱41╱A╱ // 0x1590 @0x1d
0x1573…159c at001e = ╱5f╱_╱ // 0x1591 @0x1e
0x1573…159c at001f = ╱4b╱K╱ // 0x1592 @0x1f
0x1573…159c at0020 = ╱54╱T╱ // 0x1593 @0x20
0x1573…159c at0021 = ╱4f╱O╱ // 0x1594 @0x21
0x1573…159c at0022 = ╱5f╱_╱ // 0x1595 @0x22
0x1573…159c at0023 = ╱54╱T╱ // 0x1596 @0x23
0x1573…159c at0024 = ╱59╱Y╱ // 0x1597 @0x24
0x1573…159c at0025 = ╱50╱P╱ // 0x1598 @0x25
0x1573…159c at0026 = ╱45╱E╱ // 0x1599 @0x26
0x1573…159c at0027 = ╱ef╱$╱ // 0x159a @0x27
0x1573…159c at0028 = EOL // 0x159b @0x28
0x1573…159c }
0x159c…15ae ab9c 2200 EXEC SL_FEJLLINIE
0x159c…15ae LineComal80 {
0x159c…15ae ptr = 0xab9c // 0x159c @0x0
0x159c…15ae lno = 0x0898 // 0x159e @0x2
0x159c…15ae at0004 = ╱9d╱ EXEC ╱ // 0x15a0 @0x4
0x159c…15ae at0005 = ╱53╱S╱ // 0x15a1 @0x5
0x159c…15ae at0006 = ╱4c╱L╱ // 0x15a2 @0x6
0x159c…15ae at0007 = ╱5f╱_╱ // 0x15a3 @0x7
0x159c…15ae at0008 = ╱46╱F╱ // 0x15a4 @0x8
0x159c…15ae at0009 = ╱45╱E╱ // 0x15a5 @0x9
0x159c…15ae at000a = ╱4a╱J╱ // 0x15a6 @0xa
0x159c…15ae at000b = ╱4c╱L╱ // 0x15a7 @0xb
0x159c…15ae at000c = ╱4c╱L╱ // 0x15a8 @0xc
0x159c…15ae at000d = ╱49╱I╱ // 0x15a9 @0xd
0x159c…15ae at000e = ╱4e╱N╱ // 0x15aa @0xe
0x159c…15ae at000f = ╱49╱I╱ // 0x15ab @0xf
0x159c…15ae at0010 = ╱45╱E╱ // 0x15ac @0x10
0x159c…15ae at0011 = EOL // 0x15ad @0x11
0x159c…15ae }
0x15ae…15c8 abb6 2210 EXEC ST_BGST(A_KTO_TYPE$)
0x15ae…15c8 LineComal80 {
0x15ae…15c8 ptr = 0xabb6 // 0x15ae @0x0
0x15ae…15c8 lno = 0x08a2 // 0x15b0 @0x2
0x15ae…15c8 at0004 = ╱9d╱ EXEC ╱ // 0x15b2 @0x4
0x15ae…15c8 at0005 = ╱53╱S╱ // 0x15b3 @0x5
0x15ae…15c8 at0006 = ╱54╱T╱ // 0x15b4 @0x6
0x15ae…15c8 at0007 = ╱5f╱_╱ // 0x15b5 @0x7
0x15ae…15c8 at0008 = ╱42╱B╱ // 0x15b6 @0x8
0x15ae…15c8 at0009 = ╱47╱G╱ // 0x15b7 @0x9
0x15ae…15c8 at000a = ╱53╱S╱ // 0x15b8 @0xa
0x15ae…15c8 at000b = ╱54╱T╱ // 0x15b9 @0xb
0x15ae…15c8 at000c = ╱ed╱(╱ // 0x15ba @0xc
0x15ae…15c8 at000d = ╱41╱A╱ // 0x15bb @0xd
0x15ae…15c8 at000e = ╱5f╱_╱ // 0x15bc @0xe
0x15ae…15c8 at000f = ╱4b╱K╱ // 0x15bd @0xf
0x15ae…15c8 at0010 = ╱54╱T╱ // 0x15be @0x10
0x15ae…15c8 at0011 = ╱4f╱O╱ // 0x15bf @0x11
0x15ae…15c8 at0012 = ╱5f╱_╱ // 0x15c0 @0x12
0x15ae…15c8 at0013 = ╱54╱T╱ // 0x15c1 @0x13
0x15ae…15c8 at0014 = ╱59╱Y╱ // 0x15c2 @0x14
0x15ae…15c8 at0015 = ╱50╱P╱ // 0x15c3 @0x15
0x15ae…15c8 at0016 = ╱45╱E╱ // 0x15c4 @0x16
0x15ae…15c8 at0017 = ╱ef╱$╱ // 0x15c5 @0x17
0x15ae…15c8 at0018 = ╱ee╱)╱ // 0x15c6 @0x18
0x15ae…15c8 at0019 = EOL // 0x15c7 @0x19
0x15ae…15c8 }
0x15c8…1600 abee 2220 IF "/" + A_KTO_TYPE$ + "/" IN "/A/B/C/D/E/F/G/H/I/J/K/L/" THEN
0x15c8…1600 LineComal80 {
0x15c8…1600 ptr = 0xabee // 0x15c8 @0x0
0x15c8…1600 lno = 0x08ac // 0x15ca @0x2
0x15c8…1600 at0004 = ╱9b29d7╱ IF ╱ // 0x15cc @0x4
0x15c8…1600 at0007 = ╱22╱"╱ // 0x15cf @0x7
0x15c8…1600 at0008 = ╱2f╱/╱ // 0x15d0 @0x8
0x15c8…1600 at0009 = ╱22╱"╱ // 0x15d1 @0x9
0x15c8…1600 at000a = ╱eb╱ + ╱ // 0x15d2 @0xa
0x15c8…1600 at000b = ╱41╱A╱ // 0x15d3 @0xb
0x15c8…1600 at000c = ╱5f╱_╱ // 0x15d4 @0xc
0x15c8…1600 at000d = ╱4b╱K╱ // 0x15d5 @0xd
0x15c8…1600 at000e = ╱54╱T╱ // 0x15d6 @0xe
0x15c8…1600 at000f = ╱4f╱O╱ // 0x15d7 @0xf
0x15c8…1600 at0010 = ╱5f╱_╱ // 0x15d8 @0x10
0x15c8…1600 at0011 = ╱54╱T╱ // 0x15d9 @0x11
0x15c8…1600 at0012 = ╱59╱Y╱ // 0x15da @0x12
0x15c8…1600 at0013 = ╱50╱P╱ // 0x15db @0x13
0x15c8…1600 at0014 = ╱45╱E╱ // 0x15dc @0x14
0x15c8…1600 at0015 = ╱ef╱$╱ // 0x15dd @0x15
0x15c8…1600 at0016 = ╱eb╱ + ╱ // 0x15de @0x16
0x15c8…1600 at0017 = ╱22╱"╱ // 0x15df @0x17
0x15c8…1600 at0018 = ╱2f╱/╱ // 0x15e0 @0x18
0x15c8…1600 at0019 = ╱22╱"╱ // 0x15e1 @0x19
0x15c8…1600 at001a = ╱dc╱ IN ╱ // 0x15e2 @0x1a
0x15c8…1600 at001b = ╱22╱"╱ // 0x15e3 @0x1b
0x15c8…1600 at001c = ╱2f╱/╱ // 0x15e4 @0x1c
0x15c8…1600 at001d = ╱41╱A╱ // 0x15e5 @0x1d
0x15c8…1600 at001e = ╱2f╱/╱ // 0x15e6 @0x1e
0x15c8…1600 at001f = ╱42╱B╱ // 0x15e7 @0x1f
0x15c8…1600 at0020 = ╱2f╱/╱ // 0x15e8 @0x20
0x15c8…1600 at0021 = ╱43╱C╱ // 0x15e9 @0x21
0x15c8…1600 at0022 = ╱2f╱/╱ // 0x15ea @0x22
0x15c8…1600 at0023 = ╱44╱D╱ // 0x15eb @0x23
0x15c8…1600 at0024 = ╱2f╱/╱ // 0x15ec @0x24
0x15c8…1600 at0025 = ╱45╱E╱ // 0x15ed @0x25
0x15c8…1600 at0026 = ╱2f╱/╱ // 0x15ee @0x26
0x15c8…1600 at0027 = ╱46╱F╱ // 0x15ef @0x27
0x15c8…1600 at0028 = ╱2f╱/╱ // 0x15f0 @0x28
0x15c8…1600 at0029 = ╱47╱G╱ // 0x15f1 @0x29
0x15c8…1600 at002a = ╱2f╱/╱ // 0x15f2 @0x2a
0x15c8…1600 at002b = ╱48╱H╱ // 0x15f3 @0x2b
0x15c8…1600 at002c = ╱2f╱/╱ // 0x15f4 @0x2c
0x15c8…1600 at002d = ╱49╱I╱ // 0x15f5 @0x2d
0x15c8…1600 at002e = ╱2f╱/╱ // 0x15f6 @0x2e
0x15c8…1600 at002f = ╱4a╱J╱ // 0x15f7 @0x2f
0x15c8…1600 at0030 = ╱2f╱/╱ // 0x15f8 @0x30
0x15c8…1600 at0031 = ╱4b╱K╱ // 0x15f9 @0x31
0x15c8…1600 at0032 = ╱2f╱/╱ // 0x15fa @0x32
0x15c8…1600 at0033 = ╱4c╱L╱ // 0x15fb @0x33
0x15c8…1600 at0034 = ╱2f╱/╱ // 0x15fc @0x34
0x15c8…1600 at0035 = ╱22╱"╱ // 0x15fd @0x35
0x15c8…1600 at0036 = ╱b5╱ THEN ╱ // 0x15fe @0x36
0x15c8…1600 at0037 = EOL // 0x15ff @0x37
0x15c8…1600 }
0x1600…1632 ac20 2230 EXEC FEJL("Ulovlig kontotype: '" + A_KTO_TYPE$ + "'")
0x1600…1632 LineComal80 {
0x1600…1632 ptr = 0xac20 // 0x1600 @0x0
0x1600…1632 lno = 0x08b6 // 0x1602 @0x2
0x1600…1632 at0004 = ╱9d╱ EXEC ╱ // 0x1604 @0x4
0x1600…1632 at0005 = ╱46╱F╱ // 0x1605 @0x5
0x1600…1632 at0006 = ╱45╱E╱ // 0x1606 @0x6
0x1600…1632 at0007 = ╱4a╱J╱ // 0x1607 @0x7
0x1600…1632 at0008 = ╱4c╱L╱ // 0x1608 @0x8
0x1600…1632 at0009 = ╱ed╱(╱ // 0x1609 @0x9
0x1600…1632 at000a = ╱22╱"╱ // 0x160a @0xa
0x1600…1632 at000b = ╱55╱U╱ // 0x160b @0xb
0x1600…1632 at000c = ╱6c╱l╱ // 0x160c @0xc
0x1600…1632 at000d = ╱6f╱o╱ // 0x160d @0xd
0x1600…1632 at000e = ╱76╱v╱ // 0x160e @0xe
0x1600…1632 at000f = ╱6c╱l╱ // 0x160f @0xf
0x1600…1632 at0010 = ╱69╱i╱ // 0x1610 @0x10
0x1600…1632 at0011 = ╱67╱g╱ // 0x1611 @0x11
0x1600…1632 at0012 = ╱20╱…╱ // 0x1612 @0x12
0x1600…1632 at0013 = ╱6b╱k╱ // 0x1613 @0x13
0x1600…1632 at0014 = ╱6f╱o╱ // 0x1614 @0x14
0x1600…1632 at0015 = ╱6e╱n╱ // 0x1615 @0x15
0x1600…1632 at0016 = ╱74╱t╱ // 0x1616 @0x16
0x1600…1632 at0017 = ╱6f╱o╱ // 0x1617 @0x17
0x1600…1632 at0018 = ╱74╱t╱ // 0x1618 @0x18
0x1600…1632 at0019 = ╱79╱y╱ // 0x1619 @0x19
0x1600…1632 at001a = ╱70╱p╱ // 0x161a @0x1a
0x1600…1632 at001b = ╱65╱e╱ // 0x161b @0x1b
0x1600…1632 at001c = ╱3a╱:╱ // 0x161c @0x1c
0x1600…1632 at001d = ╱20╱…╱ // 0x161d @0x1d
0x1600…1632 at001e = ╱27╱'╱ // 0x161e @0x1e
0x1600…1632 at001f = ╱22╱"╱ // 0x161f @0x1f
0x1600…1632 at0020 = ╱eb╱ + ╱ // 0x1620 @0x20
0x1600…1632 at0021 = ╱41╱A╱ // 0x1621 @0x21
0x1600…1632 at0022 = ╱5f╱_╱ // 0x1622 @0x22
0x1600…1632 at0023 = ╱4b╱K╱ // 0x1623 @0x23
0x1600…1632 at0024 = ╱54╱T╱ // 0x1624 @0x24
0x1600…1632 at0025 = ╱4f╱O╱ // 0x1625 @0x25
0x1600…1632 at0026 = ╱5f╱_╱ // 0x1626 @0x26
0x1600…1632 at0027 = ╱54╱T╱ // 0x1627 @0x27
0x1600…1632 at0028 = ╱59╱Y╱ // 0x1628 @0x28
0x1600…1632 at0029 = ╱50╱P╱ // 0x1629 @0x29
0x1600…1632 at002a = ╱45╱E╱ // 0x162a @0x2a
0x1600…1632 at002b = ╱ef╱$╱ // 0x162b @0x2b
0x1600…1632 at002c = ╱eb╱ + ╱ // 0x162c @0x2c
0x1600…1632 at002d = ╱22╱"╱ // 0x162d @0x2d
0x1600…1632 at002e = ╱27╱'╱ // 0x162e @0x2e
0x1600…1632 at002f = ╱22╱"╱ // 0x162f @0x2f
0x1600…1632 at0030 = ╱ee╱)╱ // 0x1630 @0x30
0x1600…1632 at0031 = EOL // 0x1631 @0x31
0x1600…1632 }
0x1632…1639 ac27 2240 ELSE
0x1632…1639 LineComal80 {
0x1632…1639 ptr = 0xac27 // 0x1632 @0x0
0x1632…1639 lno = 0x08c0 // 0x1634 @0x2
0x1632…1639 at0004 = ╱9a2a╱ ELSE ╱ // 0x1636 @0x4
0x1632…1639 at0006 = EOL // 0x1638 @0x6
0x1632…1639 }
0x1639…1662 ac50 2250 PRINT "<C1712>3. Kontotype: " ; A_KTO_TYPE$
0x1639…1662 LineComal80 {
0x1639…1662 ptr = 0xac50 // 0x1639 @0x0
0x1639…1662 lno = 0x08ca // 0x163b @0x2
0x1639…1662 at0004 = ╱92╱ PRINT ╱ // 0x163d @0x4
0x1639…1662 at0005 = ╱22╱"╱ // 0x163e @0x5
0x1639…1662 at0006 = ╱3c╱<╱ // 0x163f @0x6
0x1639…1662 at0007 = ╱43╱C╱ // 0x1640 @0x7
0x1639…1662 at0008 = ╱31╱1╱ // 0x1641 @0x8
0x1639…1662 at0009 = ╱37╱7╱ // 0x1642 @0x9
0x1639…1662 at000a = ╱31╱1╱ // 0x1643 @0xa
0x1639…1662 at000b = ╱32╱2╱ // 0x1644 @0xb
0x1639…1662 at000c = ╱3e╱>╱ // 0x1645 @0xc
0x1639…1662 at000d = ╱33╱3╱ // 0x1646 @0xd
0x1639…1662 at000e = ╱2e╱.╱ // 0x1647 @0xe
0x1639…1662 at000f = ╱20╱…╱ // 0x1648 @0xf
0x1639…1662 at0010 = ╱4b╱K╱ // 0x1649 @0x10
0x1639…1662 at0011 = ╱6f╱o╱ // 0x164a @0x11
0x1639…1662 at0012 = ╱6e╱n╱ // 0x164b @0x12
0x1639…1662 at0013 = ╱74╱t╱ // 0x164c @0x13
0x1639…1662 at0014 = ╱6f╱o╱ // 0x164d @0x14
0x1639…1662 at0015 = ╱74╱t╱ // 0x164e @0x15
0x1639…1662 at0016 = ╱79╱y╱ // 0x164f @0x16
0x1639…1662 at0017 = ╱70╱p╱ // 0x1650 @0x17
0x1639…1662 at0018 = ╱65╱e╱ // 0x1651 @0x18
0x1639…1662 at0019 = ╱3a╱:╱ // 0x1652 @0x19
0x1639…1662 at001a = ╱20╱…╱ // 0x1653 @0x1a
0x1639…1662 at001b = ╱22╱"╱ // 0x1654 @0x1b
0x1639…1662 at001c = ╱ea╱ ; ╱ // 0x1655 @0x1c
0x1639…1662 at001d = ╱41╱A╱ // 0x1656 @0x1d
0x1639…1662 at001e = ╱5f╱_╱ // 0x1657 @0x1e
0x1639…1662 at001f = ╱4b╱K╱ // 0x1658 @0x1f
0x1639…1662 at0020 = ╱54╱T╱ // 0x1659 @0x20
0x1639…1662 at0021 = ╱4f╱O╱ // 0x165a @0x21
0x1639…1662 at0022 = ╱5f╱_╱ // 0x165b @0x22
0x1639…1662 at0023 = ╱54╱T╱ // 0x165c @0x23
0x1639…1662 at0024 = ╱59╱Y╱ // 0x165d @0x24
0x1639…1662 at0025 = ╱50╱P╱ // 0x165e @0x25
0x1639…1662 at0026 = ╱45╱E╱ // 0x165f @0x26
0x1639…1662 at0027 = ╱ef╱$╱ // 0x1660 @0x27
0x1639…1662 at0028 = EOL // 0x1661 @0x28
0x1639…1662 }
0x1662…166f ac5d 2260 LET OK := TRUE
0x1662…166f LineComal80 {
0x1662…166f ptr = 0xac5d // 0x1662 @0x0
0x1662…166f lno = 0x08d4 // 0x1664 @0x2
0x1662…166f at0004 = ╱86╱ LET ╱ // 0x1666 @0x4
0x1662…166f at0005 = ╱4f╱O╱ // 0x1667 @0x5
0x1662…166f at0006 = ╱4b╱K╱ // 0x1668 @0x6
0x1662…166f at0007 = ╱f0╱ := ╱ // 0x1669 @0x7
0x1662…166f at0008 = ╱54╱T╱ // 0x166a @0x8
0x1662…166f at0009 = ╱52╱R╱ // 0x166b @0x9
0x1662…166f at000a = ╱55╱U╱ // 0x166c @0xa
0x1662…166f at000b = ╱45╱E╱ // 0x166d @0xb
0x1662…166f at000c = EOL // 0x166e @0xc
0x1662…166f }
0x166f…1676 ac64 2270 ELSE
0x166f…1676 LineComal80 {
0x166f…1676 ptr = 0xac64 // 0x166f @0x0
0x166f…1676 lno = 0x08de // 0x1671 @0x2
0x166f…1676 at0004 = ╱9a2b╱ ELSE ╱ // 0x1673 @0x4
0x166f…1676 at0006 = EOL // 0x1675 @0x6
0x166f…1676 }
0x1676…167c ac6a 2280 ENDIF
0x1676…167c LineComal80 {
0x1676…167c ptr = 0xac6a // 0x1676 @0x0
0x1676…167c lno = 0x08e8 // 0x1678 @0x2
0x1676…167c at0004 = ╱9c╱ ENDIF ╱ // 0x167a @0x4
0x1676…167c at0005 = EOL // 0x167b @0x5
0x1676…167c }
0x167c…1684 ac72 2290 UNTIL OK
0x167c…1684 LineComal80 {
0x167c…1684 ptr = 0xac72 // 0x167c @0x0
0x167c…1684 lno = 0x08f2 // 0x167e @0x2
0x167c…1684 at0004 = ╱98╱ UNTIL ╱ // 0x1680 @0x4
0x167c…1684 at0005 = ╱4f╱O╱ // 0x1681 @0x5
0x167c…1684 at0006 = ╱4b╱K╱ // 0x1682 @0x6
0x167c…1684 at0007 = EOL // 0x1683 @0x7
0x167c…1684 }
0x1684…168a ac78 2300 ENDIF
0x1684…168a LineComal80 {
0x1684…168a ptr = 0xac78 // 0x1684 @0x0
0x1684…168a lno = 0x08fc // 0x1686 @0x2
0x1684…168a at0004 = ╱9c╱ ENDIF ╱ // 0x1688 @0x4
0x1684…168a at0005 = EOL // 0x1689 @0x5
0x1684…168a }
0x168a…1690 ac7e 2310 ENDCASE
0x168a…1690 LineComal80 {
0x168a…1690 ptr = 0xac7e // 0x168a @0x0
0x168a…1690 lno = 0x0906 // 0x168c @0x2
0x168a…1690 at0004 = ╱a3╱ ENDCASE ╱ // 0x168e @0x4
0x168a…1690 at0005 = EOL // 0x168f @0x5
0x168a…1690 }
0x1690…169f ac8d 2320 ENDPROC RET_LINIE
0x1690…169f LineComal80 {
0x1690…169f ptr = 0xac8d // 0x1690 @0x0
0x1690…169f lno = 0x0910 // 0x1692 @0x2
0x1690…169f at0004 = ╱9f╱ ENDPROC ╱ // 0x1694 @0x4
0x1690…169f at0005 = ╱52╱R╱ // 0x1695 @0x5
0x1690…169f at0006 = ╱45╱E╱ // 0x1696 @0x6
0x1690…169f at0007 = ╱54╱T╱ // 0x1697 @0x7
0x1690…169f at0008 = ╱5f╱_╱ // 0x1698 @0x8
0x1690…169f at0009 = ╱4c╱L╱ // 0x1699 @0x9
0x1690…169f at000a = ╱49╱I╱ // 0x169a @0xa
0x1690…169f at000b = ╱4e╱N╱ // 0x169b @0xb
0x1690…169f at000c = ╱49╱I╱ // 0x169c @0xc
0x1690…169f at000d = ╱45╱E╱ // 0x169d @0xd
0x1690…169f at000e = EOL // 0x169e @0xe
0x1690…169f }
0x169f…16a4 ac92 2330
0x169f…16a4 LineComal80 {
0x169f…16a4 ptr = 0xac92 // 0x169f @0x0
0x169f…16a4 lno = 0x091a // 0x16a1 @0x2
0x169f…16a4 at0004 = EOL // 0x16a3 @0x4
0x169f…16a4 }
0x16a4…16b9 aca7 2340 PROC SKRIV_KONTOOPL
0x16a4…16b9 LineComal80 {
0x16a4…16b9 ptr = 0xaca7 // 0x16a4 @0x0
0x16a4…16b9 lno = 0x0924 // 0x16a6 @0x2
0x16a4…16b9 at0004 = ╱9e27╱ PROC ╱ // 0x16a8 @0x4
0x16a4…16b9 at0006 = ╱53╱S╱ // 0x16aa @0x6
0x16a4…16b9 at0007 = ╱4b╱K╱ // 0x16ab @0x7
0x16a4…16b9 at0008 = ╱52╱R╱ // 0x16ac @0x8
0x16a4…16b9 at0009 = ╱49╱I╱ // 0x16ad @0x9
0x16a4…16b9 at000a = ╱56╱V╱ // 0x16ae @0xa
0x16a4…16b9 at000b = ╱5f╱_╱ // 0x16af @0xb
0x16a4…16b9 at000c = ╱4b╱K╱ // 0x16b0 @0xc
0x16a4…16b9 at000d = ╱4f╱O╱ // 0x16b1 @0xd
0x16a4…16b9 at000e = ╱4e╱N╱ // 0x16b2 @0xe
0x16a4…16b9 at000f = ╱54╱T╱ // 0x16b3 @0xf
0x16a4…16b9 at0010 = ╱4f╱O╱ // 0x16b4 @0x10
0x16a4…16b9 at0011 = ╱4f╱O╱ // 0x16b5 @0x11
0x16a4…16b9 at0012 = ╱50╱P╱ // 0x16b6 @0x12
0x16a4…16b9 at0013 = ╱4c╱L╱ // 0x16b7 @0x13
0x16a4…16b9 at0014 = EOL // 0x16b8 @0x14
0x16a4…16b9 }
0x16b9…16d4 acc2 2350 IF OPRET THEN EXEC FIND_IDXPLADS
0x16b9…16d4 LineComal80 {
0x16b9…16d4 ptr = 0xacc2 // 0x16b9 @0x0
0x16b9…16d4 lno = 0x092e // 0x16bb @0x2
0x16b9…16d4 at0004 = ╱8200╱ IF ╱ // 0x16bd @0x4
0x16b9…16d4 at0006 = ╱4f╱O╱ // 0x16bf @0x6
0x16b9…16d4 at0007 = ╱50╱P╱ // 0x16c0 @0x7
0x16b9…16d4 at0008 = ╱52╱R╱ // 0x16c1 @0x8
0x16b9…16d4 at0009 = ╱45╱E╱ // 0x16c2 @0x9
0x16b9…16d4 at000a = ╱54╱T╱ // 0x16c3 @0xa
0x16b9…16d4 at000b = ╱b5╱ THEN ╱ // 0x16c4 @0xb
0x16b9…16d4 at000c = ╱9d╱ EXEC ╱ // 0x16c5 @0xc
0x16b9…16d4 at000d = ╱46╱F╱ // 0x16c6 @0xd
0x16b9…16d4 at000e = ╱49╱I╱ // 0x16c7 @0xe
0x16b9…16d4 at000f = ╱4e╱N╱ // 0x16c8 @0xf
0x16b9…16d4 at0010 = ╱44╱D╱ // 0x16c9 @0x10
0x16b9…16d4 at0011 = ╱5f╱_╱ // 0x16ca @0x11
0x16b9…16d4 at0012 = ╱49╱I╱ // 0x16cb @0x12
0x16b9…16d4 at0013 = ╱44╱D╱ // 0x16cc @0x13
0x16b9…16d4 at0014 = ╱58╱X╱ // 0x16cd @0x14
0x16b9…16d4 at0015 = ╱50╱P╱ // 0x16ce @0x15
0x16b9…16d4 at0016 = ╱4c╱L╱ // 0x16cf @0x16
0x16b9…16d4 at0017 = ╱41╱A╱ // 0x16d0 @0x17
0x16b9…16d4 at0018 = ╱44╱D╱ // 0x16d1 @0x18
0x16b9…16d4 at0019 = ╱53╱S╱ // 0x16d2 @0x19
0x16b9…16d4 at001a = EOL // 0x16d3 @0x1a
0x16b9…16d4 }
0x16d4…16ef acdd 2360 LET KTO_TYPE$ := A_KTO_TYPE$
0x16d4…16ef LineComal80 {
0x16d4…16ef ptr = 0xacdd // 0x16d4 @0x0
0x16d4…16ef lno = 0x0938 // 0x16d6 @0x2
0x16d4…16ef at0004 = ╱86╱ LET ╱ // 0x16d8 @0x4
0x16d4…16ef at0005 = ╱4b╱K╱ // 0x16d9 @0x5
0x16d4…16ef at0006 = ╱54╱T╱ // 0x16da @0x6
0x16d4…16ef at0007 = ╱4f╱O╱ // 0x16db @0x7
0x16d4…16ef at0008 = ╱5f╱_╱ // 0x16dc @0x8
0x16d4…16ef at0009 = ╱54╱T╱ // 0x16dd @0x9
0x16d4…16ef at000a = ╱59╱Y╱ // 0x16de @0xa
0x16d4…16ef at000b = ╱50╱P╱ // 0x16df @0xb
0x16d4…16ef at000c = ╱45╱E╱ // 0x16e0 @0xc
0x16d4…16ef at000d = ╱ef╱$╱ // 0x16e1 @0xd
0x16d4…16ef at000e = ╱f0╱ := ╱ // 0x16e2 @0xe
0x16d4…16ef at000f = ╱41╱A╱ // 0x16e3 @0xf
0x16d4…16ef at0010 = ╱5f╱_╱ // 0x16e4 @0x10
0x16d4…16ef at0011 = ╱4b╱K╱ // 0x16e5 @0x11
0x16d4…16ef at0012 = ╱54╱T╱ // 0x16e6 @0x12
0x16d4…16ef at0013 = ╱4f╱O╱ // 0x16e7 @0x13
0x16d4…16ef at0014 = ╱5f╱_╱ // 0x16e8 @0x14
0x16d4…16ef at0015 = ╱54╱T╱ // 0x16e9 @0x15
0x16d4…16ef at0016 = ╱59╱Y╱ // 0x16ea @0x16
0x16d4…16ef at0017 = ╱50╱P╱ // 0x16eb @0x17
0x16d4…16ef at0018 = ╱45╱E╱ // 0x16ec @0x18
0x16d4…16ef at0019 = ╱ef╱$╱ // 0x16ed @0x19
0x16d4…16ef at001a = EOL // 0x16ee @0x1a
0x16d4…16ef }
0x16ef…1707 acf5 2370 EXEC SKRIV_KONTO(RECNR)
0x16ef…1707 LineComal80 {
0x16ef…1707 ptr = 0xacf5 // 0x16ef @0x0
0x16ef…1707 lno = 0x0942 // 0x16f1 @0x2
0x16ef…1707 at0004 = ╱9d╱ EXEC ╱ // 0x16f3 @0x4
0x16ef…1707 at0005 = ╱53╱S╱ // 0x16f4 @0x5
0x16ef…1707 at0006 = ╱4b╱K╱ // 0x16f5 @0x6
0x16ef…1707 at0007 = ╱52╱R╱ // 0x16f6 @0x7
0x16ef…1707 at0008 = ╱49╱I╱ // 0x16f7 @0x8
0x16ef…1707 at0009 = ╱56╱V╱ // 0x16f8 @0x9
0x16ef…1707 at000a = ╱5f╱_╱ // 0x16f9 @0xa
0x16ef…1707 at000b = ╱4b╱K╱ // 0x16fa @0xb
0x16ef…1707 at000c = ╱4f╱O╱ // 0x16fb @0xc
0x16ef…1707 at000d = ╱4e╱N╱ // 0x16fc @0xd
0x16ef…1707 at000e = ╱54╱T╱ // 0x16fd @0xe
0x16ef…1707 at000f = ╱4f╱O╱ // 0x16fe @0xf
0x16ef…1707 at0010 = ╱ed╱(╱ // 0x16ff @0x10
0x16ef…1707 at0011 = ╱52╱R╱ // 0x1700 @0x11
0x16ef…1707 at0012 = ╱45╱E╱ // 0x1701 @0x12
0x16ef…1707 at0013 = ╱43╱C╱ // 0x1702 @0x13
0x16ef…1707 at0014 = ╱4e╱N╱ // 0x1703 @0x14
0x16ef…1707 at0015 = ╱52╱R╱ // 0x1704 @0x15
0x16ef…1707 at0016 = ╱ee╱)╱ // 0x1705 @0x16
0x16ef…1707 at0017 = EOL // 0x1706 @0x17
0x16ef…1707 }
0x1707…171b ad09 2380 ENDPROC SKRIV_KONTOOPL
0x1707…171b LineComal80 {
0x1707…171b ptr = 0xad09 // 0x1707 @0x0
0x1707…171b lno = 0x094c // 0x1709 @0x2
0x1707…171b at0004 = ╱9f╱ ENDPROC ╱ // 0x170b @0x4
0x1707…171b at0005 = ╱53╱S╱ // 0x170c @0x5
0x1707…171b at0006 = ╱4b╱K╱ // 0x170d @0x6
0x1707…171b at0007 = ╱52╱R╱ // 0x170e @0x7
0x1707…171b at0008 = ╱49╱I╱ // 0x170f @0x8
0x1707…171b at0009 = ╱56╱V╱ // 0x1710 @0x9
0x1707…171b at000a = ╱5f╱_╱ // 0x1711 @0xa
0x1707…171b at000b = ╱4b╱K╱ // 0x1712 @0xb
0x1707…171b at000c = ╱4f╱O╱ // 0x1713 @0xc
0x1707…171b at000d = ╱4e╱N╱ // 0x1714 @0xd
0x1707…171b at000e = ╱54╱T╱ // 0x1715 @0xe
0x1707…171b at000f = ╱4f╱O╱ // 0x1716 @0xf
0x1707…171b at0010 = ╱4f╱O╱ // 0x1717 @0x10
0x1707…171b at0011 = ╱50╱P╱ // 0x1718 @0x11
0x1707…171b at0012 = ╱4c╱L╱ // 0x1719 @0x12
0x1707…171b at0013 = EOL // 0x171a @0x13
0x1707…171b }
0x171b…1720 ad0e 2390
0x171b…1720 LineComal80 {
0x171b…1720 ptr = 0xad0e // 0x171b @0x0
0x171b…1720 lno = 0x0956 // 0x171d @0x2
0x171b…1720 at0004 = EOL // 0x171f @0x4
0x171b…1720 }
0x1720…1734 ad22 2400 PROC FIND_IDXPLADS
0x1720…1734 LineComal80 {
0x1720…1734 ptr = 0xad22 // 0x1720 @0x0
0x1720…1734 lno = 0x0960 // 0x1722 @0x2
0x1720…1734 at0004 = ╱9e28╱ PROC ╱ // 0x1724 @0x4
0x1720…1734 at0006 = ╱46╱F╱ // 0x1726 @0x6
0x1720…1734 at0007 = ╱49╱I╱ // 0x1727 @0x7
0x1720…1734 at0008 = ╱4e╱N╱ // 0x1728 @0x8
0x1720…1734 at0009 = ╱44╱D╱ // 0x1729 @0x9
0x1720…1734 at000a = ╱5f╱_╱ // 0x172a @0xa
0x1720…1734 at000b = ╱49╱I╱ // 0x172b @0xb
0x1720…1734 at000c = ╱44╱D╱ // 0x172c @0xc
0x1720…1734 at000d = ╱58╱X╱ // 0x172d @0xd
0x1720…1734 at000e = ╱50╱P╱ // 0x172e @0xe
0x1720…1734 at000f = ╱4c╱L╱ // 0x172f @0xf
0x1720…1734 at0010 = ╱41╱A╱ // 0x1730 @0x10
0x1720…1734 at0011 = ╱44╱D╱ // 0x1731 @0x11
0x1720…1734 at0012 = ╱53╱S╱ // 0x1732 @0x12
0x1720…1734 at0013 = EOL // 0x1733 @0x13
0x1720…1734 }
0x1734…1751 ad3f 2410 EXEC FIND_TOM_PLADS(A_RECNR)
0x1734…1751 LineComal80 {
0x1734…1751 ptr = 0xad3f // 0x1734 @0x0
0x1734…1751 lno = 0x096a // 0x1736 @0x2
0x1734…1751 at0004 = ╱9d╱ EXEC ╱ // 0x1738 @0x4
0x1734…1751 at0005 = ╱46╱F╱ // 0x1739 @0x5
0x1734…1751 at0006 = ╱49╱I╱ // 0x173a @0x6
0x1734…1751 at0007 = ╱4e╱N╱ // 0x173b @0x7
0x1734…1751 at0008 = ╱44╱D╱ // 0x173c @0x8
0x1734…1751 at0009 = ╱5f╱_╱ // 0x173d @0x9
0x1734…1751 at000a = ╱54╱T╱ // 0x173e @0xa
0x1734…1751 at000b = ╱4f╱O╱ // 0x173f @0xb
0x1734…1751 at000c = ╱4d╱M╱ // 0x1740 @0xc
0x1734…1751 at000d = ╱5f╱_╱ // 0x1741 @0xd
0x1734…1751 at000e = ╱50╱P╱ // 0x1742 @0xe
0x1734…1751 at000f = ╱4c╱L╱ // 0x1743 @0xf
0x1734…1751 at0010 = ╱41╱A╱ // 0x1744 @0x10
0x1734…1751 at0011 = ╱44╱D╱ // 0x1745 @0x11
0x1734…1751 at0012 = ╱53╱S╱ // 0x1746 @0x12
0x1734…1751 at0013 = ╱ed╱(╱ // 0x1747 @0x13
0x1734…1751 at0014 = ╱41╱A╱ // 0x1748 @0x14
0x1734…1751 at0015 = ╱5f╱_╱ // 0x1749 @0x15
0x1734…1751 at0016 = ╱52╱R╱ // 0x174a @0x16
0x1734…1751 at0017 = ╱45╱E╱ // 0x174b @0x17
0x1734…1751 at0018 = ╱43╱C╱ // 0x174c @0x18
0x1734…1751 at0019 = ╱4e╱N╱ // 0x174d @0x19
0x1734…1751 at001a = ╱52╱R╱ // 0x174e @0x1a
0x1734…1751 at001b = ╱ee╱)╱ // 0x174f @0x1b
0x1734…1751 at001c = EOL // 0x1750 @0x1c
0x1734…1751 }
0x1751…177b ad69 2420 LET I_HØJREC := I_HØJREC + 1 ; IDXPOS := IDXPOS
0x1751…177b LineComal80 {
0x1751…177b ptr = 0xad69 // 0x1751 @0x0
0x1751…177b lno = 0x0974 // 0x1753 @0x2
0x1751…177b at0004 = ╱86╱ LET ╱ // 0x1755 @0x4
0x1751…177b at0005 = ╱49╱I╱ // 0x1756 @0x5
0x1751…177b at0006 = ╱5f╱_╱ // 0x1757 @0x6
0x1751…177b at0007 = ╱48╱H╱ // 0x1758 @0x7
0x1751…177b at0008 = ╱5c╱Ø╱ // 0x1759 @0x8
0x1751…177b at0009 = ╱4a╱J╱ // 0x175a @0x9
0x1751…177b at000a = ╱52╱R╱ // 0x175b @0xa
0x1751…177b at000b = ╱45╱E╱ // 0x175c @0xb
0x1751…177b at000c = ╱43╱C╱ // 0x175d @0xc
0x1751…177b at000d = ╱f0╱ := ╱ // 0x175e @0xd
0x1751…177b at000e = ╱49╱I╱ // 0x175f @0xe
0x1751…177b at000f = ╱5f╱_╱ // 0x1760 @0xf
0x1751…177b at0010 = ╱48╱H╱ // 0x1761 @0x10
0x1751…177b at0011 = ╱5c╱Ø╱ // 0x1762 @0x11
0x1751…177b at0012 = ╱4a╱J╱ // 0x1763 @0x12
0x1751…177b at0013 = ╱52╱R╱ // 0x1764 @0x13
0x1751…177b at0014 = ╱45╱E╱ // 0x1765 @0x14
0x1751…177b at0015 = ╱43╱C╱ // 0x1766 @0x15
0x1751…177b at0016 = ╱e5╱ + ╱ // 0x1767 @0x16
0x1751…177b at0017 = ╱31╱1╱ // 0x1768 @0x17
0x1751…177b at0018 = ╱f20100╱ // 0x1769 @0x18
0x1751…177b at001b = ╱ea╱ ; ╱ // 0x176c @0x1b
0x1751…177b at001c = ╱49╱I╱ // 0x176d @0x1c
0x1751…177b at001d = ╱44╱D╱ // 0x176e @0x1d
0x1751…177b at001e = ╱58╱X╱ // 0x176f @0x1e
0x1751…177b at001f = ╱50╱P╱ // 0x1770 @0x1f
0x1751…177b at0020 = ╱4f╱O╱ // 0x1771 @0x20
0x1751…177b at0021 = ╱53╱S╱ // 0x1772 @0x21
0x1751…177b at0022 = ╱f0╱ := ╱ // 0x1773 @0x22
0x1751…177b at0023 = ╱49╱I╱ // 0x1774 @0x23
0x1751…177b at0024 = ╱44╱D╱ // 0x1775 @0x24
0x1751…177b at0025 = ╱58╱X╱ // 0x1776 @0x25
0x1751…177b at0026 = ╱50╱P╱ // 0x1777 @0x26
0x1751…177b at0027 = ╱4f╱O╱ // 0x1778 @0x27
0x1751…177b at0028 = ╱53╱S╱ // 0x1779 @0x28
0x1751…177b at0029 = EOL // 0x177a @0x29
0x1751…177b }
0x177b…179f ad8d 2430 FOR I := I_HØJREC - 1 TO DXPOS STEP - 1 DO
0x177b…179f LineComal80 {
0x177b…179f ptr = 0xad8d // 0x177b @0x0
0x177b…179f lno = 0x097e // 0x177d @0x2
0x177b…179f at0004 = ╱8329╱ FOR ╱ // 0x177f @0x4
0x177b…179f at0006 = ╱49╱I╱ // 0x1781 @0x6
0x177b…179f at0007 = ╱f0╱ := ╱ // 0x1782 @0x7
0x177b…179f at0008 = ╱49╱I╱ // 0x1783 @0x8
0x177b…179f at0009 = ╱5f╱_╱ // 0x1784 @0x9
0x177b…179f at000a = ╱48╱H╱ // 0x1785 @0xa
0x177b…179f at000b = ╱5c╱Ø╱ // 0x1786 @0xb
0x177b…179f at000c = ╱4a╱J╱ // 0x1787 @0xc
0x177b…179f at000d = ╱52╱R╱ // 0x1788 @0xd
0x177b…179f at000e = ╱45╱E╱ // 0x1789 @0xe
0x177b…179f at000f = ╱43╱C╱ // 0x178a @0xf
0x177b…179f at0010 = ╱e6╱ - ╱ // 0x178b @0x10
0x177b…179f at0011 = ╱31╱1╱ // 0x178c @0x11
0x177b…179f at0012 = ╱f20100╱ // 0x178d @0x12
0x177b…179f at0015 = ╱b749╱ TO ╱ // 0x1790 @0x15
0x177b…179f at0017 = ╱44╱D╱ // 0x1792 @0x17
0x177b…179f at0018 = ╱58╱X╱ // 0x1793 @0x18
0x177b…179f at0019 = ╱50╱P╱ // 0x1794 @0x19
0x177b…179f at001a = ╱4f╱O╱ // 0x1795 @0x1a
0x177b…179f at001b = ╱53╱S╱ // 0x1796 @0x1b
0x177b…179f at001c = ╱b8╱ STEP ╱ // 0x1797 @0x1c
0x177b…179f at001d = ╱de╱ - ╱ // 0x1798 @0x1d
0x177b…179f at001e = ╱31╱1╱ // 0x1799 @0x1e
0x177b…179f at001f = ╱f20100╱ // 0x179a @0x1f
0x177b…179f at0022 = ╱bb╱ DO ╱ // 0x179d @0x22
0x177b…179f at0023 = EOL // 0x179e @0x23
0x177b…179f }
0x179f…17bb ada9 2440 GET KTOIDX$,I : KTONR$,RECNR
0x179f…17bb LineComal80 {
0x179f…17bb ptr = 0xada9 // 0x179f @0x0
0x179f…17bb lno = 0x0988 // 0x17a1 @0x2
0x179f…17bb at0004 = ╱a9╱ GET ╱ // 0x17a3 @0x4
0x179f…17bb at0005 = ╱4b╱K╱ // 0x17a4 @0x5
0x179f…17bb at0006 = ╱54╱T╱ // 0x17a5 @0x6
0x179f…17bb at0007 = ╱4f╱O╱ // 0x17a6 @0x7
0x179f…17bb at0008 = ╱49╱I╱ // 0x17a7 @0x8
0x179f…17bb at0009 = ╱44╱D╱ // 0x17a8 @0x9
0x179f…17bb at000a = ╱58╱X╱ // 0x17a9 @0xa
0x179f…17bb at000b = ╱ef╱$╱ // 0x17aa @0xb
0x179f…17bb at000c = ╱ec╱,╱ // 0x17ab @0xc
0x179f…17bb at000d = ╱49╱I╱ // 0x17ac @0xd
0x179f…17bb at000e = ╱f1╱ : ╱ // 0x17ad @0xe
0x179f…17bb at000f = ╱4b╱K╱ // 0x17ae @0xf
0x179f…17bb at0010 = ╱54╱T╱ // 0x17af @0x10
0x179f…17bb at0011 = ╱4f╱O╱ // 0x17b0 @0x11
0x179f…17bb at0012 = ╱4e╱N╱ // 0x17b1 @0x12
0x179f…17bb at0013 = ╱52╱R╱ // 0x17b2 @0x13
0x179f…17bb at0014 = ╱ef╱$╱ // 0x17b3 @0x14
0x179f…17bb at0015 = ╱ec╱,╱ // 0x17b4 @0x15
0x179f…17bb at0016 = ╱52╱R╱ // 0x17b5 @0x16
0x179f…17bb at0017 = ╱45╱E╱ // 0x17b6 @0x17
0x179f…17bb at0018 = ╱43╱C╱ // 0x17b7 @0x18
0x179f…17bb at0019 = ╱4e╱N╱ // 0x17b8 @0x19
0x179f…17bb at001a = ╱52╱R╱ // 0x17b9 @0x1a
0x179f…17bb at001b = EOL // 0x17ba @0x1b
0x179f…17bb }
0x17bb…17dc adca 2450 PUT KTOIDX$,I + 1 : KTONR$,RECNR
0x17bb…17dc LineComal80 {
0x17bb…17dc ptr = 0xadca // 0x17bb @0x0
0x17bb…17dc lno = 0x0992 // 0x17bd @0x2
0x17bb…17dc at0004 = ╱aa╱ PUT ╱ // 0x17bf @0x4
0x17bb…17dc at0005 = ╱4b╱K╱ // 0x17c0 @0x5
0x17bb…17dc at0006 = ╱54╱T╱ // 0x17c1 @0x6
0x17bb…17dc at0007 = ╱4f╱O╱ // 0x17c2 @0x7
0x17bb…17dc at0008 = ╱49╱I╱ // 0x17c3 @0x8
0x17bb…17dc at0009 = ╱44╱D╱ // 0x17c4 @0x9
0x17bb…17dc at000a = ╱58╱X╱ // 0x17c5 @0xa
0x17bb…17dc at000b = ╱ef╱$╱ // 0x17c6 @0xb
0x17bb…17dc at000c = ╱ec╱,╱ // 0x17c7 @0xc
0x17bb…17dc at000d = ╱49╱I╱ // 0x17c8 @0xd
0x17bb…17dc at000e = ╱e5╱ + ╱ // 0x17c9 @0xe
0x17bb…17dc at000f = ╱31╱1╱ // 0x17ca @0xf
0x17bb…17dc at0010 = ╱f20100╱ // 0x17cb @0x10
0x17bb…17dc at0013 = ╱f1╱ : ╱ // 0x17ce @0x13
0x17bb…17dc at0014 = ╱4b╱K╱ // 0x17cf @0x14
0x17bb…17dc at0015 = ╱54╱T╱ // 0x17d0 @0x15
0x17bb…17dc at0016 = ╱4f╱O╱ // 0x17d1 @0x16
0x17bb…17dc at0017 = ╱4e╱N╱ // 0x17d2 @0x17
0x17bb…17dc at0018 = ╱52╱R╱ // 0x17d3 @0x18
0x17bb…17dc at0019 = ╱ef╱$╱ // 0x17d4 @0x19
0x17bb…17dc at001a = ╱ec╱,╱ // 0x17d5 @0x1a
0x17bb…17dc at001b = ╱52╱R╱ // 0x17d6 @0x1b
0x17bb…17dc at001c = ╱45╱E╱ // 0x17d7 @0x1c
0x17bb…17dc at001d = ╱43╱C╱ // 0x17d8 @0x1d
0x17bb…17dc at001e = ╱4e╱N╱ // 0x17d9 @0x1e
0x17bb…17dc at001f = ╱52╱R╱ // 0x17da @0x1f
0x17bb…17dc at0020 = EOL // 0x17db @0x20
0x17bb…17dc }
0x17dc…17e3 add1 2460 NEXT I
0x17dc…17e3 LineComal80 {
0x17dc…17e3 ptr = 0xadd1 // 0x17dc @0x0
0x17dc…17e3 lno = 0x099c // 0x17de @0x2
0x17dc…17e3 at0004 = ╱84╱ NEXT ╱ // 0x17e0 @0x4
0x17dc…17e3 at0005 = ╱49╱I╱ // 0x17e1 @0x5
0x17dc…17e3 at0006 = EOL // 0x17e2 @0x6
0x17dc…17e3 }
0x17e3…1806 adf4 2470 LET KTONR$ := A_KTONR$ ; RECNR := A_RECNR
0x17e3…1806 LineComal80 {
0x17e3…1806 ptr = 0xadf4 // 0x17e3 @0x0
0x17e3…1806 lno = 0x09a6 // 0x17e5 @0x2
0x17e3…1806 at0004 = ╱86╱ LET ╱ // 0x17e7 @0x4
0x17e3…1806 at0005 = ╱4b╱K╱ // 0x17e8 @0x5
0x17e3…1806 at0006 = ╱54╱T╱ // 0x17e9 @0x6
0x17e3…1806 at0007 = ╱4f╱O╱ // 0x17ea @0x7
0x17e3…1806 at0008 = ╱4e╱N╱ // 0x17eb @0x8
0x17e3…1806 at0009 = ╱52╱R╱ // 0x17ec @0x9
0x17e3…1806 at000a = ╱ef╱$╱ // 0x17ed @0xa
0x17e3…1806 at000b = ╱f0╱ := ╱ // 0x17ee @0xb
0x17e3…1806 at000c = ╱41╱A╱ // 0x17ef @0xc
0x17e3…1806 at000d = ╱5f╱_╱ // 0x17f0 @0xd
0x17e3…1806 at000e = ╱4b╱K╱ // 0x17f1 @0xe
0x17e3…1806 at000f = ╱54╱T╱ // 0x17f2 @0xf
0x17e3…1806 at0010 = ╱4f╱O╱ // 0x17f3 @0x10
0x17e3…1806 at0011 = ╱4e╱N╱ // 0x17f4 @0x11
0x17e3…1806 at0012 = ╱52╱R╱ // 0x17f5 @0x12
0x17e3…1806 at0013 = ╱ef╱$╱ // 0x17f6 @0x13
0x17e3…1806 at0014 = ╱ea╱ ; ╱ // 0x17f7 @0x14
0x17e3…1806 at0015 = ╱52╱R╱ // 0x17f8 @0x15
0x17e3…1806 at0016 = ╱45╱E╱ // 0x17f9 @0x16
0x17e3…1806 at0017 = ╱43╱C╱ // 0x17fa @0x17
0x17e3…1806 at0018 = ╱4e╱N╱ // 0x17fb @0x18
0x17e3…1806 at0019 = ╱52╱R╱ // 0x17fc @0x19
0x17e3…1806 at001a = ╱f0╱ := ╱ // 0x17fd @0x1a
0x17e3…1806 at001b = ╱41╱A╱ // 0x17fe @0x1b
0x17e3…1806 at001c = ╱5f╱_╱ // 0x17ff @0x1c
0x17e3…1806 at001d = ╱52╱R╱ // 0x1800 @0x1d
0x17e3…1806 at001e = ╱45╱E╱ // 0x1801 @0x1e
0x17e3…1806 at001f = ╱43╱C╱ // 0x1802 @0x1f
0x17e3…1806 at0020 = ╱4e╱N╱ // 0x1803 @0x20
0x17e3…1806 at0021 = ╱52╱R╱ // 0x1804 @0x21
0x17e3…1806 at0022 = EOL // 0x1805 @0x22
0x17e3…1806 }
0x1806…1827 ae15 2480 PUT KTOIDX$,IDXPOS : KTONR$,RECNR
0x1806…1827 LineComal80 {
0x1806…1827 ptr = 0xae15 // 0x1806 @0x0
0x1806…1827 lno = 0x09b0 // 0x1808 @0x2
0x1806…1827 at0004 = ╱aa╱ PUT ╱ // 0x180a @0x4
0x1806…1827 at0005 = ╱4b╱K╱ // 0x180b @0x5
0x1806…1827 at0006 = ╱54╱T╱ // 0x180c @0x6
0x1806…1827 at0007 = ╱4f╱O╱ // 0x180d @0x7
0x1806…1827 at0008 = ╱49╱I╱ // 0x180e @0x8
0x1806…1827 at0009 = ╱44╱D╱ // 0x180f @0x9
0x1806…1827 at000a = ╱58╱X╱ // 0x1810 @0xa
0x1806…1827 at000b = ╱ef╱$╱ // 0x1811 @0xb
0x1806…1827 at000c = ╱ec╱,╱ // 0x1812 @0xc
0x1806…1827 at000d = ╱49╱I╱ // 0x1813 @0xd
0x1806…1827 at000e = ╱44╱D╱ // 0x1814 @0xe
0x1806…1827 at000f = ╱58╱X╱ // 0x1815 @0xf
0x1806…1827 at0010 = ╱50╱P╱ // 0x1816 @0x10
0x1806…1827 at0011 = ╱4f╱O╱ // 0x1817 @0x11
0x1806…1827 at0012 = ╱53╱S╱ // 0x1818 @0x12
0x1806…1827 at0013 = ╱f1╱ : ╱ // 0x1819 @0x13
0x1806…1827 at0014 = ╱4b╱K╱ // 0x181a @0x14
0x1806…1827 at0015 = ╱54╱T╱ // 0x181b @0x15
0x1806…1827 at0016 = ╱4f╱O╱ // 0x181c @0x16
0x1806…1827 at0017 = ╱4e╱N╱ // 0x181d @0x17
0x1806…1827 at0018 = ╱52╱R╱ // 0x181e @0x18
0x1806…1827 at0019 = ╱ef╱$╱ // 0x181f @0x19
0x1806…1827 at001a = ╱ec╱,╱ // 0x1820 @0x1a
0x1806…1827 at001b = ╱52╱R╱ // 0x1821 @0x1b
0x1806…1827 at001c = ╱45╱E╱ // 0x1822 @0x1c
0x1806…1827 at001d = ╱43╱C╱ // 0x1823 @0x1d
0x1806…1827 at001e = ╱4e╱N╱ // 0x1824 @0x1e
0x1806…1827 at001f = ╱52╱R╱ // 0x1825 @0x1f
0x1806…1827 at0020 = EOL // 0x1826 @0x20
0x1806…1827 }
0x1827…184b ae39 2490 PUT KTOIDX$,1 : I_HØJREC,I_MAXREC
0x1827…184b LineComal80 {
0x1827…184b ptr = 0xae39 // 0x1827 @0x0
0x1827…184b lno = 0x09ba // 0x1829 @0x2
0x1827…184b at0004 = ╱aa╱ PUT ╱ // 0x182b @0x4
0x1827…184b at0005 = ╱4b╱K╱ // 0x182c @0x5
0x1827…184b at0006 = ╱54╱T╱ // 0x182d @0x6
0x1827…184b at0007 = ╱4f╱O╱ // 0x182e @0x7
0x1827…184b at0008 = ╱49╱I╱ // 0x182f @0x8
0x1827…184b at0009 = ╱44╱D╱ // 0x1830 @0x9
0x1827…184b at000a = ╱58╱X╱ // 0x1831 @0xa
0x1827…184b at000b = ╱ef╱$╱ // 0x1832 @0xb
0x1827…184b at000c = ╱ec╱,╱ // 0x1833 @0xc
0x1827…184b at000d = ╱31╱1╱ // 0x1834 @0xd
0x1827…184b at000e = ╱f20100╱ // 0x1835 @0xe
0x1827…184b at0011 = ╱f1╱ : ╱ // 0x1838 @0x11
0x1827…184b at0012 = ╱49╱I╱ // 0x1839 @0x12
0x1827…184b at0013 = ╱5f╱_╱ // 0x183a @0x13
0x1827…184b at0014 = ╱48╱H╱ // 0x183b @0x14
0x1827…184b at0015 = ╱5c╱Ø╱ // 0x183c @0x15
0x1827…184b at0016 = ╱4a╱J╱ // 0x183d @0x16
0x1827…184b at0017 = ╱52╱R╱ // 0x183e @0x17
0x1827…184b at0018 = ╱45╱E╱ // 0x183f @0x18
0x1827…184b at0019 = ╱43╱C╱ // 0x1840 @0x19
0x1827…184b at001a = ╱ec╱,╱ // 0x1841 @0x1a
0x1827…184b at001b = ╱49╱I╱ // 0x1842 @0x1b
0x1827…184b at001c = ╱5f╱_╱ // 0x1843 @0x1c
0x1827…184b at001d = ╱4d╱M╱ // 0x1844 @0x1d
0x1827…184b at001e = ╱41╱A╱ // 0x1845 @0x1e
0x1827…184b at001f = ╱58╱X╱ // 0x1846 @0x1f
0x1827…184b at0020 = ╱52╱R╱ // 0x1847 @0x20
0x1827…184b at0021 = ╱45╱E╱ // 0x1848 @0x21
0x1827…184b at0022 = ╱43╱C╱ // 0x1849 @0x22
0x1827…184b at0023 = EOL // 0x184a @0x23
0x1827…184b }
0x184b…187d ae6b 2500 LET KTO_PRIMO,KTO_ULTIMO := 0 ; KTO_FP,KTO_SP := 0
0x184b…187d LineComal80 {
0x184b…187d ptr = 0xae6b // 0x184b @0x0
0x184b…187d lno = 0x09c4 // 0x184d @0x2
0x184b…187d at0004 = ╱86╱ LET ╱ // 0x184f @0x4
0x184b…187d at0005 = ╱4b╱K╱ // 0x1850 @0x5
0x184b…187d at0006 = ╱54╱T╱ // 0x1851 @0x6
0x184b…187d at0007 = ╱4f╱O╱ // 0x1852 @0x7
0x184b…187d at0008 = ╱5f╱_╱ // 0x1853 @0x8
0x184b…187d at0009 = ╱50╱P╱ // 0x1854 @0x9
0x184b…187d at000a = ╱52╱R╱ // 0x1855 @0xa
0x184b…187d at000b = ╱49╱I╱ // 0x1856 @0xb
0x184b…187d at000c = ╱4d╱M╱ // 0x1857 @0xc
0x184b…187d at000d = ╱4f╱O╱ // 0x1858 @0xd
0x184b…187d at000e = ╱ec╱,╱ // 0x1859 @0xe
0x184b…187d at000f = ╱4b╱K╱ // 0x185a @0xf
0x184b…187d at0010 = ╱54╱T╱ // 0x185b @0x10
0x184b…187d at0011 = ╱4f╱O╱ // 0x185c @0x11
0x184b…187d at0012 = ╱5f╱_╱ // 0x185d @0x12
0x184b…187d at0013 = ╱55╱U╱ // 0x185e @0x13
0x184b…187d at0014 = ╱4c╱L╱ // 0x185f @0x14
0x184b…187d at0015 = ╱54╱T╱ // 0x1860 @0x15
0x184b…187d at0016 = ╱49╱I╱ // 0x1861 @0x16
0x184b…187d at0017 = ╱4d╱M╱ // 0x1862 @0x17
0x184b…187d at0018 = ╱4f╱O╱ // 0x1863 @0x18
0x184b…187d at0019 = ╱f0╱ := ╱ // 0x1864 @0x19
0x184b…187d at001a = ╱30╱0╱ // 0x1865 @0x1a
0x184b…187d at001b = ╱f20000╱ // 0x1866 @0x1b
0x184b…187d at001e = ╱ea╱ ; ╱ // 0x1869 @0x1e
0x184b…187d at001f = ╱4b╱K╱ // 0x186a @0x1f
0x184b…187d at0020 = ╱54╱T╱ // 0x186b @0x20
0x184b…187d at0021 = ╱4f╱O╱ // 0x186c @0x21
0x184b…187d at0022 = ╱5f╱_╱ // 0x186d @0x22
0x184b…187d at0023 = ╱46╱F╱ // 0x186e @0x23
0x184b…187d at0024 = ╱50╱P╱ // 0x186f @0x24
0x184b…187d at0025 = ╱ec╱,╱ // 0x1870 @0x25
0x184b…187d at0026 = ╱4b╱K╱ // 0x1871 @0x26
0x184b…187d at0027 = ╱54╱T╱ // 0x1872 @0x27
0x184b…187d at0028 = ╱4f╱O╱ // 0x1873 @0x28
0x184b…187d at0029 = ╱5f╱_╱ // 0x1874 @0x29
0x184b…187d at002a = ╱53╱S╱ // 0x1875 @0x2a
0x184b…187d at002b = ╱50╱P╱ // 0x1876 @0x2b
0x184b…187d at002c = ╱f0╱ := ╱ // 0x1877 @0x2c
0x184b…187d at002d = ╱30╱0╱ // 0x1878 @0x2d
0x184b…187d at002e = ╱f20000╱ // 0x1879 @0x2e
0x184b…187d at0031 = EOL // 0x187c @0x31
0x184b…187d }
0x187d…1890 ae7e 2510 ENDPROC FIND_IDXPLADS
0x187d…1890 LineComal80 {
0x187d…1890 ptr = 0xae7e // 0x187d @0x0
0x187d…1890 lno = 0x09ce // 0x187f @0x2
0x187d…1890 at0004 = ╱9f╱ ENDPROC ╱ // 0x1881 @0x4
0x187d…1890 at0005 = ╱46╱F╱ // 0x1882 @0x5
0x187d…1890 at0006 = ╱49╱I╱ // 0x1883 @0x6
0x187d…1890 at0007 = ╱4e╱N╱ // 0x1884 @0x7
0x187d…1890 at0008 = ╱44╱D╱ // 0x1885 @0x8
0x187d…1890 at0009 = ╱5f╱_╱ // 0x1886 @0x9
0x187d…1890 at000a = ╱49╱I╱ // 0x1887 @0xa
0x187d…1890 at000b = ╱44╱D╱ // 0x1888 @0xb
0x187d…1890 at000c = ╱58╱X╱ // 0x1889 @0xc
0x187d…1890 at000d = ╱50╱P╱ // 0x188a @0xd
0x187d…1890 at000e = ╱4c╱L╱ // 0x188b @0xe
0x187d…1890 at000f = ╱41╱A╱ // 0x188c @0xf
0x187d…1890 at0010 = ╱44╱D╱ // 0x188d @0x10
0x187d…1890 at0011 = ╱53╱S╱ // 0x188e @0x11
0x187d…1890 at0012 = EOL // 0x188f @0x12
0x187d…1890 }
0x1890…1895 ae83 2520
0x1890…1895 LineComal80 {
0x1890…1895 ptr = 0xae83 // 0x1890 @0x0
0x1890…1895 lno = 0x09d8 // 0x1892 @0x2
0x1890…1895 at0004 = EOL // 0x1894 @0x4
0x1890…1895 }
0x1895…18b1 ae9f 2530 PROC FIND_TOM_PLADS( REF R_NR)
0x1895…18b1 LineComal80 {
0x1895…18b1 ptr = 0xae9f // 0x1895 @0x0
0x1895…18b1 lno = 0x09e2 // 0x1897 @0x2
0x1895…18b1 at0004 = ╱9e2a╱ PROC ╱ // 0x1899 @0x4
0x1895…18b1 at0006 = ╱46╱F╱ // 0x189b @0x6
0x1895…18b1 at0007 = ╱49╱I╱ // 0x189c @0x7
0x1895…18b1 at0008 = ╱4e╱N╱ // 0x189d @0x8
0x1895…18b1 at0009 = ╱44╱D╱ // 0x189e @0x9
0x1895…18b1 at000a = ╱5f╱_╱ // 0x189f @0xa
0x1895…18b1 at000b = ╱54╱T╱ // 0x18a0 @0xb
0x1895…18b1 at000c = ╱4f╱O╱ // 0x18a1 @0xc
0x1895…18b1 at000d = ╱4d╱M╱ // 0x18a2 @0xd
0x1895…18b1 at000e = ╱5f╱_╱ // 0x18a3 @0xe
0x1895…18b1 at000f = ╱50╱P╱ // 0x18a4 @0xf
0x1895…18b1 at0010 = ╱4c╱L╱ // 0x18a5 @0x10
0x1895…18b1 at0011 = ╱41╱A╱ // 0x18a6 @0x11
0x1895…18b1 at0012 = ╱44╱D╱ // 0x18a7 @0x12
0x1895…18b1 at0013 = ╱53╱S╱ // 0x18a8 @0x13
0x1895…18b1 at0014 = ╱ed╱(╱ // 0x18a9 @0x14
0x1895…18b1 at0015 = ╱b6╱ REF ╱ // 0x18aa @0x15
0x1895…18b1 at0016 = ╱52╱R╱ // 0x18ab @0x16
0x1895…18b1 at0017 = ╱5f╱_╱ // 0x18ac @0x17
0x1895…18b1 at0018 = ╱4e╱N╱ // 0x18ad @0x18
0x1895…18b1 at0019 = ╱52╱R╱ // 0x18ae @0x19
0x1895…18b1 at001a = ╱ee╱)╱ // 0x18af @0x1a
0x1895…18b1 at001b = EOL // 0x18b0 @0x1b
0x1895…18b1 }
0x18b1…18d4 aec2 2540 GET KONTO$,1 : N_FRIREC,N_MAXREC
0x18b1…18d4 LineComal80 {
0x18b1…18d4 ptr = 0xaec2 // 0x18b1 @0x0
0x18b1…18d4 lno = 0x09ec // 0x18b3 @0x2
0x18b1…18d4 at0004 = ╱a9╱ GET ╱ // 0x18b5 @0x4
0x18b1…18d4 at0005 = ╱4b╱K╱ // 0x18b6 @0x5
0x18b1…18d4 at0006 = ╱4f╱O╱ // 0x18b7 @0x6
0x18b1…18d4 at0007 = ╱4e╱N╱ // 0x18b8 @0x7
0x18b1…18d4 at0008 = ╱54╱T╱ // 0x18b9 @0x8
0x18b1…18d4 at0009 = ╱4f╱O╱ // 0x18ba @0x9
0x18b1…18d4 at000a = ╱ef╱$╱ // 0x18bb @0xa
0x18b1…18d4 at000b = ╱ec╱,╱ // 0x18bc @0xb
0x18b1…18d4 at000c = ╱31╱1╱ // 0x18bd @0xc
0x18b1…18d4 at000d = ╱f20100╱ // 0x18be @0xd
0x18b1…18d4 at0010 = ╱f1╱ : ╱ // 0x18c1 @0x10
0x18b1…18d4 at0011 = ╱4e╱N╱ // 0x18c2 @0x11
0x18b1…18d4 at0012 = ╱5f╱_╱ // 0x18c3 @0x12
0x18b1…18d4 at0013 = ╱46╱F╱ // 0x18c4 @0x13
0x18b1…18d4 at0014 = ╱52╱R╱ // 0x18c5 @0x14
0x18b1…18d4 at0015 = ╱49╱I╱ // 0x18c6 @0x15
0x18b1…18d4 at0016 = ╱52╱R╱ // 0x18c7 @0x16
0x18b1…18d4 at0017 = ╱45╱E╱ // 0x18c8 @0x17
0x18b1…18d4 at0018 = ╱43╱C╱ // 0x18c9 @0x18
0x18b1…18d4 at0019 = ╱ec╱,╱ // 0x18ca @0x19
0x18b1…18d4 at001a = ╱4e╱N╱ // 0x18cb @0x1a
0x18b1…18d4 at001b = ╱5f╱_╱ // 0x18cc @0x1b
0x18b1…18d4 at001c = ╱4d╱M╱ // 0x18cd @0x1c
0x18b1…18d4 at001d = ╱41╱A╱ // 0x18ce @0x1d
0x18b1…18d4 at001e = ╱58╱X╱ // 0x18cf @0x1e
0x18b1…18d4 at001f = ╱52╱R╱ // 0x18d0 @0x1f
0x18b1…18d4 at0020 = ╱45╱E╱ // 0x18d1 @0x20
0x18b1…18d4 at0021 = ╱43╱C╱ // 0x18d2 @0x21
0x18b1…18d4 at0022 = EOL // 0x18d3 @0x22
0x18b1…18d4 }
0x18d4…18e7 aed5 2550 LET R_NR := N_FRIREC
0x18d4…18e7 LineComal80 {
0x18d4…18e7 ptr = 0xaed5 // 0x18d4 @0x0
0x18d4…18e7 lno = 0x09f6 // 0x18d6 @0x2
0x18d4…18e7 at0004 = ╱86╱ LET ╱ // 0x18d8 @0x4
0x18d4…18e7 at0005 = ╱52╱R╱ // 0x18d9 @0x5
0x18d4…18e7 at0006 = ╱5f╱_╱ // 0x18da @0x6
0x18d4…18e7 at0007 = ╱4e╱N╱ // 0x18db @0x7
0x18d4…18e7 at0008 = ╱52╱R╱ // 0x18dc @0x8
0x18d4…18e7 at0009 = ╱f0╱ := ╱ // 0x18dd @0x9
0x18d4…18e7 at000a = ╱4e╱N╱ // 0x18de @0xa
0x18d4…18e7 at000b = ╱5f╱_╱ // 0x18df @0xb
0x18d4…18e7 at000c = ╱46╱F╱ // 0x18e0 @0xc
0x18d4…18e7 at000d = ╱52╱R╱ // 0x18e1 @0xd
0x18d4…18e7 at000e = ╱49╱I╱ // 0x18e2 @0xe
0x18d4…18e7 at000f = ╱52╱R╱ // 0x18e3 @0xf
0x18d4…18e7 at0010 = ╱45╱E╱ // 0x18e4 @0x10
0x18d4…18e7 at0011 = ╱43╱C╱ // 0x18e5 @0x11
0x18d4…18e7 at0012 = EOL // 0x18e6 @0x12
0x18d4…18e7 }
0x18e7…1905 aef3 2560 GET KONTO$,N_FRIREC : N_FRIREC
0x18e7…1905 LineComal80 {
0x18e7…1905 ptr = 0xaef3 // 0x18e7 @0x0
0x18e7…1905 lno = 0x0a00 // 0x18e9 @0x2
0x18e7…1905 at0004 = ╱a9╱ GET ╱ // 0x18eb @0x4
0x18e7…1905 at0005 = ╱4b╱K╱ // 0x18ec @0x5
0x18e7…1905 at0006 = ╱4f╱O╱ // 0x18ed @0x6
0x18e7…1905 at0007 = ╱4e╱N╱ // 0x18ee @0x7
0x18e7…1905 at0008 = ╱54╱T╱ // 0x18ef @0x8
0x18e7…1905 at0009 = ╱4f╱O╱ // 0x18f0 @0x9
0x18e7…1905 at000a = ╱ef╱$╱ // 0x18f1 @0xa
0x18e7…1905 at000b = ╱ec╱,╱ // 0x18f2 @0xb
0x18e7…1905 at000c = ╱4e╱N╱ // 0x18f3 @0xc
0x18e7…1905 at000d = ╱5f╱_╱ // 0x18f4 @0xd
0x18e7…1905 at000e = ╱46╱F╱ // 0x18f5 @0xe
0x18e7…1905 at000f = ╱52╱R╱ // 0x18f6 @0xf
0x18e7…1905 at0010 = ╱49╱I╱ // 0x18f7 @0x10
0x18e7…1905 at0011 = ╱52╱R╱ // 0x18f8 @0x11
0x18e7…1905 at0012 = ╱45╱E╱ // 0x18f9 @0x12
0x18e7…1905 at0013 = ╱43╱C╱ // 0x18fa @0x13
0x18e7…1905 at0014 = ╱f1╱ : ╱ // 0x18fb @0x14
0x18e7…1905 at0015 = ╱4e╱N╱ // 0x18fc @0x15
0x18e7…1905 at0016 = ╱5f╱_╱ // 0x18fd @0x16
0x18e7…1905 at0017 = ╱46╱F╱ // 0x18fe @0x17
0x18e7…1905 at0018 = ╱52╱R╱ // 0x18ff @0x18
0x18e7…1905 at0019 = ╱49╱I╱ // 0x1900 @0x19
0x18e7…1905 at001a = ╱52╱R╱ // 0x1901 @0x1a
0x18e7…1905 at001b = ╱45╱E╱ // 0x1902 @0x1b
0x18e7…1905 at001c = ╱43╱C╱ // 0x1903 @0x1c
0x18e7…1905 at001d = EOL // 0x1904 @0x1d
0x18e7…1905 }
0x1905…1928 af16 2570 PUT KONTO$,1 : N_FRIREC,N_MAXREC
0x1905…1928 LineComal80 {
0x1905…1928 ptr = 0xaf16 // 0x1905 @0x0
0x1905…1928 lno = 0x0a0a // 0x1907 @0x2
0x1905…1928 at0004 = ╱aa╱ PUT ╱ // 0x1909 @0x4
0x1905…1928 at0005 = ╱4b╱K╱ // 0x190a @0x5
0x1905…1928 at0006 = ╱4f╱O╱ // 0x190b @0x6
0x1905…1928 at0007 = ╱4e╱N╱ // 0x190c @0x7
0x1905…1928 at0008 = ╱54╱T╱ // 0x190d @0x8
0x1905…1928 at0009 = ╱4f╱O╱ // 0x190e @0x9
0x1905…1928 at000a = ╱ef╱$╱ // 0x190f @0xa
0x1905…1928 at000b = ╱ec╱,╱ // 0x1910 @0xb
0x1905…1928 at000c = ╱31╱1╱ // 0x1911 @0xc
0x1905…1928 at000d = ╱f20100╱ // 0x1912 @0xd
0x1905…1928 at0010 = ╱f1╱ : ╱ // 0x1915 @0x10
0x1905…1928 at0011 = ╱4e╱N╱ // 0x1916 @0x11
0x1905…1928 at0012 = ╱5f╱_╱ // 0x1917 @0x12
0x1905…1928 at0013 = ╱46╱F╱ // 0x1918 @0x13
0x1905…1928 at0014 = ╱52╱R╱ // 0x1919 @0x14
0x1905…1928 at0015 = ╱49╱I╱ // 0x191a @0x15
0x1905…1928 at0016 = ╱52╱R╱ // 0x191b @0x16
0x1905…1928 at0017 = ╱45╱E╱ // 0x191c @0x17
0x1905…1928 at0018 = ╱43╱C╱ // 0x191d @0x18
0x1905…1928 at0019 = ╱ec╱,╱ // 0x191e @0x19
0x1905…1928 at001a = ╱4e╱N╱ // 0x191f @0x1a
0x1905…1928 at001b = ╱5f╱_╱ // 0x1920 @0x1b
0x1905…1928 at001c = ╱4d╱M╱ // 0x1921 @0x1c
0x1905…1928 at001d = ╱41╱A╱ // 0x1922 @0x1d
0x1905…1928 at001e = ╱58╱X╱ // 0x1923 @0x1e
0x1905…1928 at001f = ╱52╱R╱ // 0x1924 @0x1f
0x1905…1928 at0020 = ╱45╱E╱ // 0x1925 @0x20
0x1905…1928 at0021 = ╱43╱C╱ // 0x1926 @0x21
0x1905…1928 at0022 = EOL // 0x1927 @0x22
0x1905…1928 }
0x1928…193c af2a 2580 ENDPROC FIND_TOM_PLADS
0x1928…193c LineComal80 {
0x1928…193c ptr = 0xaf2a // 0x1928 @0x0
0x1928…193c lno = 0x0a14 // 0x192a @0x2
0x1928…193c at0004 = ╱9f╱ ENDPROC ╱ // 0x192c @0x4
0x1928…193c at0005 = ╱46╱F╱ // 0x192d @0x5
0x1928…193c at0006 = ╱49╱I╱ // 0x192e @0x6
0x1928…193c at0007 = ╱4e╱N╱ // 0x192f @0x7
0x1928…193c at0008 = ╱44╱D╱ // 0x1930 @0x8
0x1928…193c at0009 = ╱5f╱_╱ // 0x1931 @0x9
0x1928…193c at000a = ╱54╱T╱ // 0x1932 @0xa
0x1928…193c at000b = ╱4f╱O╱ // 0x1933 @0xb
0x1928…193c at000c = ╱4d╱M╱ // 0x1934 @0xc
0x1928…193c at000d = ╱5f╱_╱ // 0x1935 @0xd
0x1928…193c at000e = ╱50╱P╱ // 0x1936 @0xe
0x1928…193c at000f = ╱4c╱L╱ // 0x1937 @0xf
0x1928…193c at0010 = ╱41╱A╱ // 0x1938 @0x10
0x1928…193c at0011 = ╱44╱D╱ // 0x1939 @0x11
0x1928…193c at0012 = ╱53╱S╱ // 0x193a @0x12
0x1928…193c at0013 = EOL // 0x193b @0x13
0x1928…193c }
0x193c…194f af3d 2590 PROC LÆS_KONTO(P)
0x193c…194f LineComal80 {
0x193c…194f ptr = 0xaf3d // 0x193c @0x0
0x193c…194f lno = 0x0a1e // 0x193e @0x2
0x193c…194f at0004 = ╱9e2b╱ PROC ╱ // 0x1940 @0x4
0x193c…194f at0006 = ╱4c╱L╱ // 0x1942 @0x6
0x193c…194f at0007 = ╱5b╱Æ╱ // 0x1943 @0x7
0x193c…194f at0008 = ╱53╱S╱ // 0x1944 @0x8
0x193c…194f at0009 = ╱5f╱_╱ // 0x1945 @0x9
0x193c…194f at000a = ╱4b╱K╱ // 0x1946 @0xa
0x193c…194f at000b = ╱4f╱O╱ // 0x1947 @0xb
0x193c…194f at000c = ╱4e╱N╱ // 0x1948 @0xc
0x193c…194f at000d = ╱54╱T╱ // 0x1949 @0xd
0x193c…194f at000e = ╱4f╱O╱ // 0x194a @0xe
0x193c…194f at000f = ╱ed╱(╱ // 0x194b @0xf
0x193c…194f at0010 = ╱50╱P╱ // 0x194c @0x10
0x193c…194f at0011 = ╱ee╱)╱ // 0x194d @0x11
0x193c…194f at0012 = EOL // 0x194e @0x12
0x193c…194f }
0x194f…1994 af82 2600 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0x194f…1994 LineComal80 {
0x194f…1994 ptr = 0xaf82 // 0x194f @0x0
0x194f…1994 lno = 0x0a28 // 0x1951 @0x2
0x194f…1994 at0004 = ╱a9╱ GET ╱ // 0x1953 @0x4
0x194f…1994 at0005 = ╱4b╱K╱ // 0x1954 @0x5
0x194f…1994 at0006 = ╱4f╱O╱ // 0x1955 @0x6
0x194f…1994 at0007 = ╱4e╱N╱ // 0x1956 @0x7
0x194f…1994 at0008 = ╱54╱T╱ // 0x1957 @0x8
0x194f…1994 at0009 = ╱4f╱O╱ // 0x1958 @0x9
0x194f…1994 at000a = ╱ef╱$╱ // 0x1959 @0xa
0x194f…1994 at000b = ╱ec╱,╱ // 0x195a @0xb
0x194f…1994 at000c = ╱50╱P╱ // 0x195b @0xc
0x194f…1994 at000d = ╱f1╱ : ╱ // 0x195c @0xd
0x194f…1994 at000e = ╱4b╱K╱ // 0x195d @0xe
0x194f…1994 at000f = ╱54╱T╱ // 0x195e @0xf
0x194f…1994 at0010 = ╱4f╱O╱ // 0x195f @0x10
0x194f…1994 at0011 = ╱5f╱_╱ // 0x1960 @0x11
0x194f…1994 at0012 = ╱54╱T╱ // 0x1961 @0x12
0x194f…1994 at0013 = ╱59╱Y╱ // 0x1962 @0x13
0x194f…1994 at0014 = ╱50╱P╱ // 0x1963 @0x14
0x194f…1994 at0015 = ╱45╱E╱ // 0x1964 @0x15
0x194f…1994 at0016 = ╱ef╱$╱ // 0x1965 @0x16
0x194f…1994 at0017 = ╱ec╱,╱ // 0x1966 @0x17
0x194f…1994 at0018 = ╱4b╱K╱ // 0x1967 @0x18
0x194f…1994 at0019 = ╱54╱T╱ // 0x1968 @0x19
0x194f…1994 at001a = ╱4f╱O╱ // 0x1969 @0x1a
0x194f…1994 at001b = ╱5f╱_╱ // 0x196a @0x1b
0x194f…1994 at001c = ╱4e╱N╱ // 0x196b @0x1c
0x194f…1994 at001d = ╱41╱A╱ // 0x196c @0x1d
0x194f…1994 at001e = ╱56╱V╱ // 0x196d @0x1e
0x194f…1994 at001f = ╱4e╱N╱ // 0x196e @0x1f
0x194f…1994 at0020 = ╱ef╱$╱ // 0x196f @0x20
0x194f…1994 at0021 = ╱ec╱,╱ // 0x1970 @0x21
0x194f…1994 at0022 = ╱4b╱K╱ // 0x1971 @0x22
0x194f…1994 at0023 = ╱54╱T╱ // 0x1972 @0x23
0x194f…1994 at0024 = ╱4f╱O╱ // 0x1973 @0x24
0x194f…1994 at0025 = ╱5f╱_╱ // 0x1974 @0x25
0x194f…1994 at0026 = ╱50╱P╱ // 0x1975 @0x26
0x194f…1994 at0027 = ╱52╱R╱ // 0x1976 @0x27
0x194f…1994 at0028 = ╱49╱I╱ // 0x1977 @0x28
0x194f…1994 at0029 = ╱4d╱M╱ // 0x1978 @0x29
0x194f…1994 at002a = ╱4f╱O╱ // 0x1979 @0x2a
0x194f…1994 at002b = ╱ec╱,╱ // 0x197a @0x2b
0x194f…1994 at002c = ╱4b╱K╱ // 0x197b @0x2c
0x194f…1994 at002d = ╱54╱T╱ // 0x197c @0x2d
0x194f…1994 at002e = ╱4f╱O╱ // 0x197d @0x2e
0x194f…1994 at002f = ╱5f╱_╱ // 0x197e @0x2f
0x194f…1994 at0030 = ╱55╱U╱ // 0x197f @0x30
0x194f…1994 at0031 = ╱4c╱L╱ // 0x1980 @0x31
0x194f…1994 at0032 = ╱54╱T╱ // 0x1981 @0x32
0x194f…1994 at0033 = ╱49╱I╱ // 0x1982 @0x33
0x194f…1994 at0034 = ╱4d╱M╱ // 0x1983 @0x34
0x194f…1994 at0035 = ╱4f╱O╱ // 0x1984 @0x35
0x194f…1994 at0036 = ╱ec╱,╱ // 0x1985 @0x36
0x194f…1994 at0037 = ╱4b╱K╱ // 0x1986 @0x37
0x194f…1994 at0038 = ╱54╱T╱ // 0x1987 @0x38
0x194f…1994 at0039 = ╱4f╱O╱ // 0x1988 @0x39
0x194f…1994 at003a = ╱5f╱_╱ // 0x1989 @0x3a
0x194f…1994 at003b = ╱46╱F╱ // 0x198a @0x3b
0x194f…1994 at003c = ╱50╱P╱ // 0x198b @0x3c
0x194f…1994 at003d = ╱ec╱,╱ // 0x198c @0x3d
0x194f…1994 at003e = ╱4b╱K╱ // 0x198d @0x3e
0x194f…1994 at003f = ╱54╱T╱ // 0x198e @0x3f
0x194f…1994 at0040 = ╱4f╱O╱ // 0x198f @0x40
0x194f…1994 at0041 = ╱5f╱_╱ // 0x1990 @0x41
0x194f…1994 at0042 = ╱53╱S╱ // 0x1991 @0x42
0x194f…1994 at0043 = ╱50╱P╱ // 0x1992 @0x43
0x194f…1994 at0044 = EOL // 0x1993 @0x44
0x194f…1994 }
0x1994…19a3 af91 2610 ENDPROC LÆS_KONTO
0x1994…19a3 LineComal80 {
0x1994…19a3 ptr = 0xaf91 // 0x1994 @0x0
0x1994…19a3 lno = 0x0a32 // 0x1996 @0x2
0x1994…19a3 at0004 = ╱9f╱ ENDPROC ╱ // 0x1998 @0x4
0x1994…19a3 at0005 = ╱4c╱L╱ // 0x1999 @0x5
0x1994…19a3 at0006 = ╱5b╱Æ╱ // 0x199a @0x6
0x1994…19a3 at0007 = ╱53╱S╱ // 0x199b @0x7
0x1994…19a3 at0008 = ╱5f╱_╱ // 0x199c @0x8
0x1994…19a3 at0009 = ╱4b╱K╱ // 0x199d @0x9
0x1994…19a3 at000a = ╱4f╱O╱ // 0x199e @0xa
0x1994…19a3 at000b = ╱4e╱N╱ // 0x199f @0xb
0x1994…19a3 at000c = ╱54╱T╱ // 0x19a0 @0xc
0x1994…19a3 at000d = ╱4f╱O╱ // 0x19a1 @0xd
0x1994…19a3 at000e = EOL // 0x19a2 @0xe
0x1994…19a3 }
0x19a3…19a8 af96 2620
0x19a3…19a8 LineComal80 {
0x19a3…19a8 ptr = 0xaf96 // 0x19a3 @0x0
0x19a3…19a8 lno = 0x0a3c // 0x19a5 @0x2
0x19a3…19a8 at0004 = EOL // 0x19a7 @0x4
0x19a3…19a8 }
0x19a8…19bd afab 2630 PROC SKRIV_KONTO(P)
0x19a8…19bd LineComal80 {
0x19a8…19bd ptr = 0xafab // 0x19a8 @0x0
0x19a8…19bd lno = 0x0a46 // 0x19aa @0x2
0x19a8…19bd at0004 = ╱9e2c╱ PROC ╱ // 0x19ac @0x4
0x19a8…19bd at0006 = ╱53╱S╱ // 0x19ae @0x6
0x19a8…19bd at0007 = ╱4b╱K╱ // 0x19af @0x7
0x19a8…19bd at0008 = ╱52╱R╱ // 0x19b0 @0x8
0x19a8…19bd at0009 = ╱49╱I╱ // 0x19b1 @0x9
0x19a8…19bd at000a = ╱56╱V╱ // 0x19b2 @0xa
0x19a8…19bd at000b = ╱5f╱_╱ // 0x19b3 @0xb
0x19a8…19bd at000c = ╱4b╱K╱ // 0x19b4 @0xc
0x19a8…19bd at000d = ╱4f╱O╱ // 0x19b5 @0xd
0x19a8…19bd at000e = ╱4e╱N╱ // 0x19b6 @0xe
0x19a8…19bd at000f = ╱54╱T╱ // 0x19b7 @0xf
0x19a8…19bd at0010 = ╱4f╱O╱ // 0x19b8 @0x10
0x19a8…19bd at0011 = ╱ed╱(╱ // 0x19b9 @0x11
0x19a8…19bd at0012 = ╱50╱P╱ // 0x19ba @0x12
0x19a8…19bd at0013 = ╱ee╱)╱ // 0x19bb @0x13
0x19a8…19bd at0014 = EOL // 0x19bc @0x14
0x19a8…19bd }
0x19bd…1a02 aff0 2640 PUT KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0x19bd…1a02 LineComal80 {
0x19bd…1a02 ptr = 0xaff0 // 0x19bd @0x0
0x19bd…1a02 lno = 0x0a50 // 0x19bf @0x2
0x19bd…1a02 at0004 = ╱aa╱ PUT ╱ // 0x19c1 @0x4
0x19bd…1a02 at0005 = ╱4b╱K╱ // 0x19c2 @0x5
0x19bd…1a02 at0006 = ╱4f╱O╱ // 0x19c3 @0x6
0x19bd…1a02 at0007 = ╱4e╱N╱ // 0x19c4 @0x7
0x19bd…1a02 at0008 = ╱54╱T╱ // 0x19c5 @0x8
0x19bd…1a02 at0009 = ╱4f╱O╱ // 0x19c6 @0x9
0x19bd…1a02 at000a = ╱ef╱$╱ // 0x19c7 @0xa
0x19bd…1a02 at000b = ╱ec╱,╱ // 0x19c8 @0xb
0x19bd…1a02 at000c = ╱50╱P╱ // 0x19c9 @0xc
0x19bd…1a02 at000d = ╱f1╱ : ╱ // 0x19ca @0xd
0x19bd…1a02 at000e = ╱4b╱K╱ // 0x19cb @0xe
0x19bd…1a02 at000f = ╱54╱T╱ // 0x19cc @0xf
0x19bd…1a02 at0010 = ╱4f╱O╱ // 0x19cd @0x10
0x19bd…1a02 at0011 = ╱5f╱_╱ // 0x19ce @0x11
0x19bd…1a02 at0012 = ╱54╱T╱ // 0x19cf @0x12
0x19bd…1a02 at0013 = ╱59╱Y╱ // 0x19d0 @0x13
0x19bd…1a02 at0014 = ╱50╱P╱ // 0x19d1 @0x14
0x19bd…1a02 at0015 = ╱45╱E╱ // 0x19d2 @0x15
0x19bd…1a02 at0016 = ╱ef╱$╱ // 0x19d3 @0x16
0x19bd…1a02 at0017 = ╱ec╱,╱ // 0x19d4 @0x17
0x19bd…1a02 at0018 = ╱4b╱K╱ // 0x19d5 @0x18
0x19bd…1a02 at0019 = ╱54╱T╱ // 0x19d6 @0x19
0x19bd…1a02 at001a = ╱4f╱O╱ // 0x19d7 @0x1a
0x19bd…1a02 at001b = ╱5f╱_╱ // 0x19d8 @0x1b
0x19bd…1a02 at001c = ╱4e╱N╱ // 0x19d9 @0x1c
0x19bd…1a02 at001d = ╱41╱A╱ // 0x19da @0x1d
0x19bd…1a02 at001e = ╱56╱V╱ // 0x19db @0x1e
0x19bd…1a02 at001f = ╱4e╱N╱ // 0x19dc @0x1f
0x19bd…1a02 at0020 = ╱ef╱$╱ // 0x19dd @0x20
0x19bd…1a02 at0021 = ╱ec╱,╱ // 0x19de @0x21
0x19bd…1a02 at0022 = ╱4b╱K╱ // 0x19df @0x22
0x19bd…1a02 at0023 = ╱54╱T╱ // 0x19e0 @0x23
0x19bd…1a02 at0024 = ╱4f╱O╱ // 0x19e1 @0x24
0x19bd…1a02 at0025 = ╱5f╱_╱ // 0x19e2 @0x25
0x19bd…1a02 at0026 = ╱50╱P╱ // 0x19e3 @0x26
0x19bd…1a02 at0027 = ╱52╱R╱ // 0x19e4 @0x27
0x19bd…1a02 at0028 = ╱49╱I╱ // 0x19e5 @0x28
0x19bd…1a02 at0029 = ╱4d╱M╱ // 0x19e6 @0x29
0x19bd…1a02 at002a = ╱4f╱O╱ // 0x19e7 @0x2a
0x19bd…1a02 at002b = ╱ec╱,╱ // 0x19e8 @0x2b
0x19bd…1a02 at002c = ╱4b╱K╱ // 0x19e9 @0x2c
0x19bd…1a02 at002d = ╱54╱T╱ // 0x19ea @0x2d
0x19bd…1a02 at002e = ╱4f╱O╱ // 0x19eb @0x2e
0x19bd…1a02 at002f = ╱5f╱_╱ // 0x19ec @0x2f
0x19bd…1a02 at0030 = ╱55╱U╱ // 0x19ed @0x30
0x19bd…1a02 at0031 = ╱4c╱L╱ // 0x19ee @0x31
0x19bd…1a02 at0032 = ╱54╱T╱ // 0x19ef @0x32
0x19bd…1a02 at0033 = ╱49╱I╱ // 0x19f0 @0x33
0x19bd…1a02 at0034 = ╱4d╱M╱ // 0x19f1 @0x34
0x19bd…1a02 at0035 = ╱4f╱O╱ // 0x19f2 @0x35
0x19bd…1a02 at0036 = ╱ec╱,╱ // 0x19f3 @0x36
0x19bd…1a02 at0037 = ╱4b╱K╱ // 0x19f4 @0x37
0x19bd…1a02 at0038 = ╱54╱T╱ // 0x19f5 @0x38
0x19bd…1a02 at0039 = ╱4f╱O╱ // 0x19f6 @0x39
0x19bd…1a02 at003a = ╱5f╱_╱ // 0x19f7 @0x3a
0x19bd…1a02 at003b = ╱46╱F╱ // 0x19f8 @0x3b
0x19bd…1a02 at003c = ╱50╱P╱ // 0x19f9 @0x3c
0x19bd…1a02 at003d = ╱ec╱,╱ // 0x19fa @0x3d
0x19bd…1a02 at003e = ╱4b╱K╱ // 0x19fb @0x3e
0x19bd…1a02 at003f = ╱54╱T╱ // 0x19fc @0x3f
0x19bd…1a02 at0040 = ╱4f╱O╱ // 0x19fd @0x40
0x19bd…1a02 at0041 = ╱5f╱_╱ // 0x19fe @0x41
0x19bd…1a02 at0042 = ╱53╱S╱ // 0x19ff @0x42
0x19bd…1a02 at0043 = ╱50╱P╱ // 0x1a00 @0x43
0x19bd…1a02 at0044 = EOL // 0x1a01 @0x44
0x19bd…1a02 }
0x1a02…1a13 b001 2650 ENDPROC SKRIV_KONTO
0x1a02…1a13 LineComal80 {
0x1a02…1a13 ptr = 0xb001 // 0x1a02 @0x0
0x1a02…1a13 lno = 0x0a5a // 0x1a04 @0x2
0x1a02…1a13 at0004 = ╱9f╱ ENDPROC ╱ // 0x1a06 @0x4
0x1a02…1a13 at0005 = ╱53╱S╱ // 0x1a07 @0x5
0x1a02…1a13 at0006 = ╱4b╱K╱ // 0x1a08 @0x6
0x1a02…1a13 at0007 = ╱52╱R╱ // 0x1a09 @0x7
0x1a02…1a13 at0008 = ╱49╱I╱ // 0x1a0a @0x8
0x1a02…1a13 at0009 = ╱56╱V╱ // 0x1a0b @0x9
0x1a02…1a13 at000a = ╱5f╱_╱ // 0x1a0c @0xa
0x1a02…1a13 at000b = ╱4b╱K╱ // 0x1a0d @0xb
0x1a02…1a13 at000c = ╱4f╱O╱ // 0x1a0e @0xc
0x1a02…1a13 at000d = ╱4e╱N╱ // 0x1a0f @0xd
0x1a02…1a13 at000e = ╱54╱T╱ // 0x1a10 @0xe
0x1a02…1a13 at000f = ╱4f╱O╱ // 0x1a11 @0xf
0x1a02…1a13 at0010 = EOL // 0x1a12 @0x10
0x1a02…1a13 }
0x1a13…1a18 b006 2660
0x1a13…1a18 LineComal80 {
0x1a13…1a18 ptr = 0xb006 // 0x1a13 @0x0
0x1a13…1a18 lno = 0x0a64 // 0x1a15 @0x2
0x1a13…1a18 at0004 = EOL // 0x1a17 @0x4
0x1a13…1a18 }
0x1a18…1a2d b01b 2670 PROC ST_BGST( REF RST$)
0x1a18…1a2d LineComal80 {
0x1a18…1a2d ptr = 0xb01b // 0x1a18 @0x0
0x1a18…1a2d lno = 0x0a6e // 0x1a1a @0x2
0x1a18…1a2d at0004 = ╱9e2d╱ PROC ╱ // 0x1a1c @0x4
0x1a18…1a2d at0006 = ╱53╱S╱ // 0x1a1e @0x6
0x1a18…1a2d at0007 = ╱54╱T╱ // 0x1a1f @0x7
0x1a18…1a2d at0008 = ╱5f╱_╱ // 0x1a20 @0x8
0x1a18…1a2d at0009 = ╱42╱B╱ // 0x1a21 @0x9
0x1a18…1a2d at000a = ╱47╱G╱ // 0x1a22 @0xa
0x1a18…1a2d at000b = ╱53╱S╱ // 0x1a23 @0xb
0x1a18…1a2d at000c = ╱54╱T╱ // 0x1a24 @0xc
0x1a18…1a2d at000d = ╱ed╱(╱ // 0x1a25 @0xd
0x1a18…1a2d at000e = ╱b6╱ REF ╱ // 0x1a26 @0xe
0x1a18…1a2d at000f = ╱52╱R╱ // 0x1a27 @0xf
0x1a18…1a2d at0010 = ╱53╱S╱ // 0x1a28 @0x10
0x1a18…1a2d at0011 = ╱54╱T╱ // 0x1a29 @0x11
0x1a18…1a2d at0012 = ╱ef╱$╱ // 0x1a2a @0x12
0x1a18…1a2d at0013 = ╱ee╱)╱ // 0x1a2b @0x13
0x1a18…1a2d at0014 = EOL // 0x1a2c @0x14
0x1a18…1a2d }
0x1a2d…1a43 b031 2680 FOR J := 1 TO (RST$) DO
0x1a2d…1a43 LineComal80 {
0x1a2d…1a43 ptr = 0xb031 // 0x1a2d @0x0
0x1a2d…1a43 lno = 0x0a78 // 0x1a2f @0x2
0x1a2d…1a43 at0004 = ╱832e╱ FOR ╱ // 0x1a31 @0x4
0x1a2d…1a43 at0006 = ╱4a╱J╱ // 0x1a33 @0x6
0x1a2d…1a43 at0007 = ╱f0╱ := ╱ // 0x1a34 @0x7
0x1a2d…1a43 at0008 = ╱31╱1╱ // 0x1a35 @0x8
0x1a2d…1a43 at0009 = ╱f20100╱ // 0x1a36 @0x9
0x1a2d…1a43 at000c = ╱b7cb╱ TO ╱ // 0x1a39 @0xc
0x1a2d…1a43 at000e = ╱ed╱(╱ // 0x1a3b @0xe
0x1a2d…1a43 at000f = ╱52╱R╱ // 0x1a3c @0xf
0x1a2d…1a43 at0010 = ╱53╱S╱ // 0x1a3d @0x10
0x1a2d…1a43 at0011 = ╱54╱T╱ // 0x1a3e @0x11
0x1a2d…1a43 at0012 = ╱ef╱$╱ // 0x1a3f @0x12
0x1a2d…1a43 at0013 = ╱ee╱)╱ // 0x1a40 @0x13
0x1a2d…1a43 at0014 = ╱bb╱ DO ╱ // 0x1a41 @0x14
0x1a2d…1a43 at0015 = EOL // 0x1a42 @0x15
0x1a2d…1a43 }
0x1a43…1a7e b06c 2690 IF "a" =< RST$(J) AND RST$(J) =< "å" THEN LET RST$(J) := CHR$ ( ╱cc╱ (RST$(J)) - 32)
0x1a43…1a7e LineComal80 {
0x1a43…1a7e ptr = 0xb06c // 0x1a43 @0x0
0x1a43…1a7e lno = 0x0a82 // 0x1a45 @0x2
0x1a43…1a7e at0004 = ╱8200╱ IF ╱ // 0x1a47 @0x4
0x1a43…1a7e at0006 = ╱22╱"╱ // 0x1a49 @0x6
0x1a43…1a7e at0007 = ╱61╱a╱ // 0x1a4a @0x7
0x1a43…1a7e at0008 = ╱22╱"╱ // 0x1a4b @0x8
0x1a43…1a7e at0009 = ╱e2╱ =< ╱ // 0x1a4c @0x9
0x1a43…1a7e at000a = ╱52╱R╱ // 0x1a4d @0xa
0x1a43…1a7e at000b = ╱53╱S╱ // 0x1a4e @0xb
0x1a43…1a7e at000c = ╱54╱T╱ // 0x1a4f @0xc
0x1a43…1a7e at000d = ╱ef╱$╱ // 0x1a50 @0xd
0x1a43…1a7e at000e = ╱ed╱(╱ // 0x1a51 @0xe
0x1a43…1a7e at000f = ╱4a╱J╱ // 0x1a52 @0xf
0x1a43…1a7e at0010 = ╱ee╱)╱ // 0x1a53 @0x10
0x1a43…1a7e at0011 = ╱d9╱ AND ╱ // 0x1a54 @0x11
0x1a43…1a7e at0012 = ╱52╱R╱ // 0x1a55 @0x12
0x1a43…1a7e at0013 = ╱53╱S╱ // 0x1a56 @0x13
0x1a43…1a7e at0014 = ╱54╱T╱ // 0x1a57 @0x14
0x1a43…1a7e at0015 = ╱ef╱$╱ // 0x1a58 @0x15
0x1a43…1a7e at0016 = ╱ed╱(╱ // 0x1a59 @0x16
0x1a43…1a7e at0017 = ╱4a╱J╱ // 0x1a5a @0x17
0x1a43…1a7e at0018 = ╱ee╱)╱ // 0x1a5b @0x18
0x1a43…1a7e at0019 = ╱e2╱ =< ╱ // 0x1a5c @0x19
0x1a43…1a7e at001a = ╱22╱"╱ // 0x1a5d @0x1a
0x1a43…1a7e at001b = ╱7d╱å╱ // 0x1a5e @0x1b
0x1a43…1a7e at001c = ╱22╱"╱ // 0x1a5f @0x1c
0x1a43…1a7e at001d = ╱b5╱ THEN ╱ // 0x1a60 @0x1d
0x1a43…1a7e at001e = ╱86╱ LET ╱ // 0x1a61 @0x1e
0x1a43…1a7e at001f = ╱52╱R╱ // 0x1a62 @0x1f
0x1a43…1a7e at0020 = ╱53╱S╱ // 0x1a63 @0x20
0x1a43…1a7e at0021 = ╱54╱T╱ // 0x1a64 @0x21
0x1a43…1a7e at0022 = ╱ef╱$╱ // 0x1a65 @0x22
0x1a43…1a7e at0023 = ╱ed╱(╱ // 0x1a66 @0x23
0x1a43…1a7e at0024 = ╱4a╱J╱ // 0x1a67 @0x24
0x1a43…1a7e at0025 = ╱ee╱)╱ // 0x1a68 @0x25
0x1a43…1a7e at0026 = ╱f0╱ := ╱ // 0x1a69 @0x26
0x1a43…1a7e at0027 = ╱d0╱ CHR$ ╱ // 0x1a6a @0x27
0x1a43…1a7e at0028 = ╱ed╱(╱ // 0x1a6b @0x28
0x1a43…1a7e at0029 = ╱cc╱ // 0x1a6c @0x29
0x1a43…1a7e at002a = ╱ed╱(╱ // 0x1a6d @0x2a
0x1a43…1a7e at002b = ╱52╱R╱ // 0x1a6e @0x2b
0x1a43…1a7e at002c = ╱53╱S╱ // 0x1a6f @0x2c
0x1a43…1a7e at002d = ╱54╱T╱ // 0x1a70 @0x2d
0x1a43…1a7e at002e = ╱ef╱$╱ // 0x1a71 @0x2e
0x1a43…1a7e at002f = ╱ed╱(╱ // 0x1a72 @0x2f
0x1a43…1a7e at0030 = ╱4a╱J╱ // 0x1a73 @0x30
0x1a43…1a7e at0031 = ╱ee╱)╱ // 0x1a74 @0x31
0x1a43…1a7e at0032 = ╱ee╱)╱ // 0x1a75 @0x32
0x1a43…1a7e at0033 = ╱e6╱ - ╱ // 0x1a76 @0x33
0x1a43…1a7e at0034 = ╱33╱3╱ // 0x1a77 @0x34
0x1a43…1a7e at0035 = ╱32╱2╱ // 0x1a78 @0x35
0x1a43…1a7e at0036 = ╱f22000╱ // 0x1a79 @0x36
0x1a43…1a7e at0039 = ╱ee╱)╱ // 0x1a7c @0x39
0x1a43…1a7e at003a = EOL // 0x1a7d @0x3a
0x1a43…1a7e }
0x1a7e…1a85 b073 2700 NEXT J
0x1a7e…1a85 LineComal80 {
0x1a7e…1a85 ptr = 0xb073 // 0x1a7e @0x0
0x1a7e…1a85 lno = 0x0a8c // 0x1a80 @0x2
0x1a7e…1a85 at0004 = ╱84╱ NEXT ╱ // 0x1a82 @0x4
0x1a7e…1a85 at0005 = ╱4a╱J╱ // 0x1a83 @0x5
0x1a7e…1a85 at0006 = EOL // 0x1a84 @0x6
0x1a7e…1a85 }
0x1a85…1a92 b080 2710 ENDPROC ST_BGST
0x1a85…1a92 LineComal80 {
0x1a85…1a92 ptr = 0xb080 // 0x1a85 @0x0
0x1a85…1a92 lno = 0x0a96 // 0x1a87 @0x2
0x1a85…1a92 at0004 = ╱9f╱ ENDPROC ╱ // 0x1a89 @0x4
0x1a85…1a92 at0005 = ╱53╱S╱ // 0x1a8a @0x5
0x1a85…1a92 at0006 = ╱54╱T╱ // 0x1a8b @0x6
0x1a85…1a92 at0007 = ╱5f╱_╱ // 0x1a8c @0x7
0x1a85…1a92 at0008 = ╱42╱B╱ // 0x1a8d @0x8
0x1a85…1a92 at0009 = ╱47╱G╱ // 0x1a8e @0x9
0x1a85…1a92 at000a = ╱53╱S╱ // 0x1a8f @0xa
0x1a85…1a92 at000b = ╱54╱T╱ // 0x1a90 @0xb
0x1a85…1a92 at000c = EOL // 0x1a91 @0xc
0x1a85…1a92 }
0x1a92…1a97 b085 2720
0x1a92…1a97 LineComal80 {
0x1a92…1a97 ptr = 0xb085 // 0x1a92 @0x0
0x1a92…1a97 lno = 0x0aa0 // 0x1a94 @0x2
0x1a92…1a97 at0004 = EOL // 0x1a96 @0x4
0x1a92…1a97 }
0x1a97…1ab0 b09e 2730 PROC TAL_CONTROL( REF RST$)
0x1a97…1ab0 LineComal80 {
0x1a97…1ab0 ptr = 0xb09e // 0x1a97 @0x0
0x1a97…1ab0 lno = 0x0aaa // 0x1a99 @0x2
0x1a97…1ab0 at0004 = ╱9e2f╱ PROC ╱ // 0x1a9b @0x4
0x1a97…1ab0 at0006 = ╱54╱T╱ // 0x1a9d @0x6
0x1a97…1ab0 at0007 = ╱41╱A╱ // 0x1a9e @0x7
0x1a97…1ab0 at0008 = ╱4c╱L╱ // 0x1a9f @0x8
0x1a97…1ab0 at0009 = ╱5f╱_╱ // 0x1aa0 @0x9
0x1a97…1ab0 at000a = ╱43╱C╱ // 0x1aa1 @0xa
0x1a97…1ab0 at000b = ╱4f╱O╱ // 0x1aa2 @0xb
0x1a97…1ab0 at000c = ╱4e╱N╱ // 0x1aa3 @0xc
0x1a97…1ab0 at000d = ╱54╱T╱ // 0x1aa4 @0xd
0x1a97…1ab0 at000e = ╱52╱R╱ // 0x1aa5 @0xe
0x1a97…1ab0 at000f = ╱4f╱O╱ // 0x1aa6 @0xf
0x1a97…1ab0 at0010 = ╱4c╱L╱ // 0x1aa7 @0x10
0x1a97…1ab0 at0011 = ╱ed╱(╱ // 0x1aa8 @0x11
0x1a97…1ab0 at0012 = ╱b6╱ REF ╱ // 0x1aa9 @0x12
0x1a97…1ab0 at0013 = ╱52╱R╱ // 0x1aaa @0x13
0x1a97…1ab0 at0014 = ╱53╱S╱ // 0x1aab @0x14
0x1a97…1ab0 at0015 = ╱54╱T╱ // 0x1aac @0x15
0x1a97…1ab0 at0016 = ╱ef╱$╱ // 0x1aad @0x16
0x1a97…1ab0 at0017 = ╱ee╱)╱ // 0x1aae @0x17
0x1a97…1ab0 at0018 = EOL // 0x1aaf @0x18
0x1a97…1ab0 }
0x1ab0…1ac4 b0b2 2740 LET J := 0 ; OK := TRUE
0x1ab0…1ac4 LineComal80 {
0x1ab0…1ac4 ptr = 0xb0b2 // 0x1ab0 @0x0
0x1ab0…1ac4 lno = 0x0ab4 // 0x1ab2 @0x2
0x1ab0…1ac4 at0004 = ╱86╱ LET ╱ // 0x1ab4 @0x4
0x1ab0…1ac4 at0005 = ╱4a╱J╱ // 0x1ab5 @0x5
0x1ab0…1ac4 at0006 = ╱f0╱ := ╱ // 0x1ab6 @0x6
0x1ab0…1ac4 at0007 = ╱30╱0╱ // 0x1ab7 @0x7
0x1ab0…1ac4 at0008 = ╱f20000╱ // 0x1ab8 @0x8
0x1ab0…1ac4 at000b = ╱ea╱ ; ╱ // 0x1abb @0xb
0x1ab0…1ac4 at000c = ╱4f╱O╱ // 0x1abc @0xc
0x1ab0…1ac4 at000d = ╱4b╱K╱ // 0x1abd @0xd
0x1ab0…1ac4 at000e = ╱f0╱ := ╱ // 0x1abe @0xe
0x1ab0…1ac4 at000f = ╱54╱T╱ // 0x1abf @0xf
0x1ab0…1ac4 at0010 = ╱52╱R╱ // 0x1ac0 @0x10
0x1ab0…1ac4 at0011 = ╱55╱U╱ // 0x1ac1 @0x11
0x1ab0…1ac4 at0012 = ╱45╱E╱ // 0x1ac2 @0x12
0x1ab0…1ac4 at0013 = EOL // 0x1ac3 @0x13
0x1ab0…1ac4 }
0x1ac4…1ada b0c8 2750 FOR I := 1 TO (RST$) DO
0x1ac4…1ada LineComal80 {
0x1ac4…1ada ptr = 0xb0c8 // 0x1ac4 @0x0
0x1ac4…1ada lno = 0x0abe // 0x1ac6 @0x2
0x1ac4…1ada at0004 = ╱8330╱ FOR ╱ // 0x1ac8 @0x4
0x1ac4…1ada at0006 = ╱49╱I╱ // 0x1aca @0x6
0x1ac4…1ada at0007 = ╱f0╱ := ╱ // 0x1acb @0x7
0x1ac4…1ada at0008 = ╱31╱1╱ // 0x1acc @0x8
0x1ac4…1ada at0009 = ╱f20100╱ // 0x1acd @0x9
0x1ac4…1ada at000c = ╱b7cb╱ TO ╱ // 0x1ad0 @0xc
0x1ac4…1ada at000e = ╱ed╱(╱ // 0x1ad2 @0xe
0x1ac4…1ada at000f = ╱52╱R╱ // 0x1ad3 @0xf
0x1ac4…1ada at0010 = ╱53╱S╱ // 0x1ad4 @0x10
0x1ac4…1ada at0011 = ╱54╱T╱ // 0x1ad5 @0x11
0x1ac4…1ada at0012 = ╱ef╱$╱ // 0x1ad6 @0x12
0x1ac4…1ada at0013 = ╱ee╱)╱ // 0x1ad7 @0x13
0x1ac4…1ada at0014 = ╱bb╱ DO ╱ // 0x1ad8 @0x14
0x1ac4…1ada at0015 = EOL // 0x1ad9 @0x15
0x1ac4…1ada }
0x1ada…1b0f b0fd 2760 IF RST$(I) IN "0123456789" THEN LET J := J + 1 ; RST$(J) := RST$(I)
0x1ada…1b0f LineComal80 {
0x1ada…1b0f ptr = 0xb0fd // 0x1ada @0x0
0x1ada…1b0f lno = 0x0ac8 // 0x1adc @0x2
0x1ada…1b0f at0004 = ╱8200╱ IF ╱ // 0x1ade @0x4
0x1ada…1b0f at0006 = ╱52╱R╱ // 0x1ae0 @0x6
0x1ada…1b0f at0007 = ╱53╱S╱ // 0x1ae1 @0x7
0x1ada…1b0f at0008 = ╱54╱T╱ // 0x1ae2 @0x8
0x1ada…1b0f at0009 = ╱ef╱$╱ // 0x1ae3 @0x9
0x1ada…1b0f at000a = ╱ed╱(╱ // 0x1ae4 @0xa
0x1ada…1b0f at000b = ╱49╱I╱ // 0x1ae5 @0xb
0x1ada…1b0f at000c = ╱ee╱)╱ // 0x1ae6 @0xc
0x1ada…1b0f at000d = ╱dc╱ IN ╱ // 0x1ae7 @0xd
0x1ada…1b0f at000e = ╱22╱"╱ // 0x1ae8 @0xe
0x1ada…1b0f at000f = ╱30╱0╱ // 0x1ae9 @0xf
0x1ada…1b0f at0010 = ╱31╱1╱ // 0x1aea @0x10
0x1ada…1b0f at0011 = ╱32╱2╱ // 0x1aeb @0x11
0x1ada…1b0f at0012 = ╱33╱3╱ // 0x1aec @0x12
0x1ada…1b0f at0013 = ╱34╱4╱ // 0x1aed @0x13
0x1ada…1b0f at0014 = ╱35╱5╱ // 0x1aee @0x14
0x1ada…1b0f at0015 = ╱36╱6╱ // 0x1aef @0x15
0x1ada…1b0f at0016 = ╱37╱7╱ // 0x1af0 @0x16
0x1ada…1b0f at0017 = ╱38╱8╱ // 0x1af1 @0x17
0x1ada…1b0f at0018 = ╱39╱9╱ // 0x1af2 @0x18
0x1ada…1b0f at0019 = ╱22╱"╱ // 0x1af3 @0x19
0x1ada…1b0f at001a = ╱b5╱ THEN ╱ // 0x1af4 @0x1a
0x1ada…1b0f at001b = ╱86╱ LET ╱ // 0x1af5 @0x1b
0x1ada…1b0f at001c = ╱4a╱J╱ // 0x1af6 @0x1c
0x1ada…1b0f at001d = ╱f0╱ := ╱ // 0x1af7 @0x1d
0x1ada…1b0f at001e = ╱4a╱J╱ // 0x1af8 @0x1e
0x1ada…1b0f at001f = ╱e5╱ + ╱ // 0x1af9 @0x1f
0x1ada…1b0f at0020 = ╱31╱1╱ // 0x1afa @0x20
0x1ada…1b0f at0021 = ╱f20100╱ // 0x1afb @0x21
0x1ada…1b0f at0024 = ╱ea╱ ; ╱ // 0x1afe @0x24
0x1ada…1b0f at0025 = ╱52╱R╱ // 0x1aff @0x25
0x1ada…1b0f at0026 = ╱53╱S╱ // 0x1b00 @0x26
0x1ada…1b0f at0027 = ╱54╱T╱ // 0x1b01 @0x27
0x1ada…1b0f at0028 = ╱ef╱$╱ // 0x1b02 @0x28
0x1ada…1b0f at0029 = ╱ed╱(╱ // 0x1b03 @0x29
0x1ada…1b0f at002a = ╱4a╱J╱ // 0x1b04 @0x2a
0x1ada…1b0f at002b = ╱ee╱)╱ // 0x1b05 @0x2b
0x1ada…1b0f at002c = ╱f0╱ := ╱ // 0x1b06 @0x2c
0x1ada…1b0f at002d = ╱52╱R╱ // 0x1b07 @0x2d
0x1ada…1b0f at002e = ╱53╱S╱ // 0x1b08 @0x2e
0x1ada…1b0f at002f = ╱54╱T╱ // 0x1b09 @0x2f
0x1ada…1b0f at0030 = ╱ef╱$╱ // 0x1b0a @0x30
0x1ada…1b0f at0031 = ╱ed╱(╱ // 0x1b0b @0x31
0x1ada…1b0f at0032 = ╱49╱I╱ // 0x1b0c @0x32
0x1ada…1b0f at0033 = ╱ee╱)╱ // 0x1b0d @0x33
0x1ada…1b0f at0034 = EOL // 0x1b0e @0x34
0x1ada…1b0f }
0x1b0f…1b16 b104 2770 NEXT I
0x1b0f…1b16 LineComal80 {
0x1b0f…1b16 ptr = 0xb104 // 0x1b0f @0x0
0x1b0f…1b16 lno = 0x0ad2 // 0x1b11 @0x2
0x1b0f…1b16 at0004 = ╱84╱ NEXT ╱ // 0x1b13 @0x4
0x1b0f…1b16 at0005 = ╱49╱I╱ // 0x1b14 @0x5
0x1b0f…1b16 at0006 = EOL // 0x1b15 @0x6
0x1b0f…1b16 }
0x1b16…1b24 b112 2780 IF = 0 THEN
0x1b16…1b24 LineComal80 {
0x1b16…1b24 ptr = 0xb112 // 0x1b16 @0x0
0x1b16…1b24 lno = 0x0adc // 0x1b18 @0x2
0x1b16…1b24 at0004 = ╱9b314a╱ IF ╱ // 0x1b1a @0x4
0x1b16…1b24 at0007 = ╱df╱ = ╱ // 0x1b1d @0x7
0x1b16…1b24 at0008 = ╱30╱0╱ // 0x1b1e @0x8
0x1b16…1b24 at0009 = ╱f20000╱ // 0x1b1f @0x9
0x1b16…1b24 at000c = ╱b5╱ THEN ╱ // 0x1b22 @0xc
0x1b16…1b24 at000d = EOL // 0x1b23 @0xd
0x1b16…1b24 }
0x1b24…1b32 b120 2790 LET OK := FALSE
0x1b24…1b32 LineComal80 {
0x1b24…1b32 ptr = 0xb120 // 0x1b24 @0x0
0x1b24…1b32 lno = 0x0ae6 // 0x1b26 @0x2
0x1b24…1b32 at0004 = ╱86╱ LET ╱ // 0x1b28 @0x4
0x1b24…1b32 at0005 = ╱4f╱O╱ // 0x1b29 @0x5
0x1b24…1b32 at0006 = ╱4b╱K╱ // 0x1b2a @0x6
0x1b24…1b32 at0007 = ╱f0╱ := ╱ // 0x1b2b @0x7
0x1b24…1b32 at0008 = ╱46╱F╱ // 0x1b2c @0x8
0x1b24…1b32 at0009 = ╱41╱A╱ // 0x1b2d @0x9
0x1b24…1b32 at000a = ╱4c╱L╱ // 0x1b2e @0xa
0x1b24…1b32 at000b = ╱53╱S╱ // 0x1b2f @0xb
0x1b24…1b32 at000c = ╱45╱E╱ // 0x1b30 @0xc
0x1b24…1b32 at000d = EOL // 0x1b31 @0xd
0x1b24…1b32 }
0x1b32…1b39 b127 2800 ELSE
0x1b32…1b39 LineComal80 {
0x1b32…1b39 ptr = 0xb127 // 0x1b32 @0x0
0x1b32…1b39 lno = 0x0af0 // 0x1b34 @0x2
0x1b32…1b39 at0004 = ╱9a32╱ ELSE ╱ // 0x1b36 @0x4
0x1b32…1b39 at0006 = EOL // 0x1b38 @0x6
0x1b32…1b39 }
0x1b39…1b50 b13e 2810 LET RST$ := RST$(1 : J)
0x1b39…1b50 LineComal80 {
0x1b39…1b50 ptr = 0xb13e // 0x1b39 @0x0
0x1b39…1b50 lno = 0x0afa // 0x1b3b @0x2
0x1b39…1b50 at0004 = ╱86╱ LET ╱ // 0x1b3d @0x4
0x1b39…1b50 at0005 = ╱52╱R╱ // 0x1b3e @0x5
0x1b39…1b50 at0006 = ╱53╱S╱ // 0x1b3f @0x6
0x1b39…1b50 at0007 = ╱54╱T╱ // 0x1b40 @0x7
0x1b39…1b50 at0008 = ╱ef╱$╱ // 0x1b41 @0x8
0x1b39…1b50 at0009 = ╱f0╱ := ╱ // 0x1b42 @0x9
0x1b39…1b50 at000a = ╱52╱R╱ // 0x1b43 @0xa
0x1b39…1b50 at000b = ╱53╱S╱ // 0x1b44 @0xb
0x1b39…1b50 at000c = ╱54╱T╱ // 0x1b45 @0xc
0x1b39…1b50 at000d = ╱ef╱$╱ // 0x1b46 @0xd
0x1b39…1b50 at000e = ╱ed╱(╱ // 0x1b47 @0xe
0x1b39…1b50 at000f = ╱31╱1╱ // 0x1b48 @0xf
0x1b39…1b50 at0010 = ╱f20100╱ // 0x1b49 @0x10
0x1b39…1b50 at0013 = ╱f1╱ : ╱ // 0x1b4c @0x13
0x1b39…1b50 at0014 = ╱4a╱J╱ // 0x1b4d @0x14
0x1b39…1b50 at0015 = ╱ee╱)╱ // 0x1b4e @0x15
0x1b39…1b50 at0016 = EOL // 0x1b4f @0x16
0x1b39…1b50 }
0x1b50…1b56 b144 2820 ENDIF
0x1b50…1b56 LineComal80 {
0x1b50…1b56 ptr = 0xb144 // 0x1b50 @0x0
0x1b50…1b56 lno = 0x0b04 // 0x1b52 @0x2
0x1b50…1b56 at0004 = ╱9c╱ ENDIF ╱ // 0x1b54 @0x4
0x1b50…1b56 at0005 = EOL // 0x1b55 @0x5
0x1b50…1b56 }
0x1b56…1b67 b155 2830 ENDPROC TAL_CONTROL
0x1b56…1b67 LineComal80 {
0x1b56…1b67 ptr = 0xb155 // 0x1b56 @0x0
0x1b56…1b67 lno = 0x0b0e // 0x1b58 @0x2
0x1b56…1b67 at0004 = ╱9f╱ ENDPROC ╱ // 0x1b5a @0x4
0x1b56…1b67 at0005 = ╱54╱T╱ // 0x1b5b @0x5
0x1b56…1b67 at0006 = ╱41╱A╱ // 0x1b5c @0x6
0x1b56…1b67 at0007 = ╱4c╱L╱ // 0x1b5d @0x7
0x1b56…1b67 at0008 = ╱5f╱_╱ // 0x1b5e @0x8
0x1b56…1b67 at0009 = ╱43╱C╱ // 0x1b5f @0x9
0x1b56…1b67 at000a = ╱4f╱O╱ // 0x1b60 @0xa
0x1b56…1b67 at000b = ╱4e╱N╱ // 0x1b61 @0xb
0x1b56…1b67 at000c = ╱54╱T╱ // 0x1b62 @0xc
0x1b56…1b67 at000d = ╱52╱R╱ // 0x1b63 @0xd
0x1b56…1b67 at000e = ╱4f╱O╱ // 0x1b64 @0xe
0x1b56…1b67 at000f = ╱4c╱L╱ // 0x1b65 @0xf
0x1b56…1b67 at0010 = EOL // 0x1b66 @0x10
0x1b56…1b67 }
0x1b67…1b6c b15a 2840
0x1b67…1b6c LineComal80 {
0x1b67…1b6c ptr = 0xb15a // 0x1b67 @0x0
0x1b67…1b6c lno = 0x0b18 // 0x1b69 @0x2
0x1b67…1b6c at0004 = EOL // 0x1b6b @0x4
0x1b67…1b6c }
0x1b6c…1b7d b16b 2850 PROC SLET_KONTI
0x1b6c…1b7d LineComal80 {
0x1b6c…1b7d ptr = 0xb16b // 0x1b6c @0x0
0x1b6c…1b7d lno = 0x0b22 // 0x1b6e @0x2
0x1b6c…1b7d at0004 = ╱9e33╱ PROC ╱ // 0x1b70 @0x4
0x1b6c…1b7d at0006 = ╱53╱S╱ // 0x1b72 @0x6
0x1b6c…1b7d at0007 = ╱4c╱L╱ // 0x1b73 @0x7
0x1b6c…1b7d at0008 = ╱45╱E╱ // 0x1b74 @0x8
0x1b6c…1b7d at0009 = ╱54╱T╱ // 0x1b75 @0x9
0x1b6c…1b7d at000a = ╱5f╱_╱ // 0x1b76 @0xa
0x1b6c…1b7d at000b = ╱4b╱K╱ // 0x1b77 @0xb
0x1b6c…1b7d at000c = ╱4f╱O╱ // 0x1b78 @0xc
0x1b6c…1b7d at000d = ╱4e╱N╱ // 0x1b79 @0xd
0x1b6c…1b7d at000e = ╱54╱T╱ // 0x1b7a @0xe
0x1b6c…1b7d at000f = ╱49╱I╱ // 0x1b7b @0xf
0x1b6c…1b7d at0010 = EOL // 0x1b7c @0x10
0x1b6c…1b7d }
0x1b7d…1b84 b172 2860 REPEAT
0x1b7d…1b84 LineComal80 {
0x1b7d…1b84 ptr = 0xb172 // 0x1b7d @0x0
0x1b7d…1b84 lno = 0x0b2c // 0x1b7f @0x2
0x1b7d…1b84 at0004 = ╱9734╱ REPEAT ╱ // 0x1b81 @0x4
0x1b7d…1b84 at0006 = EOL // 0x1b83 @0x6
0x1b7d…1b84 }
0x1b84…1ba7 b195 2870 EXEC OVERSKRIFT("Slet konti",6)
0x1b84…1ba7 LineComal80 {
0x1b84…1ba7 ptr = 0xb195 // 0x1b84 @0x0
0x1b84…1ba7 lno = 0x0b36 // 0x1b86 @0x2
0x1b84…1ba7 at0004 = ╱9d╱ EXEC ╱ // 0x1b88 @0x4
0x1b84…1ba7 at0005 = ╱4f╱O╱ // 0x1b89 @0x5
0x1b84…1ba7 at0006 = ╱56╱V╱ // 0x1b8a @0x6
0x1b84…1ba7 at0007 = ╱45╱E╱ // 0x1b8b @0x7
0x1b84…1ba7 at0008 = ╱52╱R╱ // 0x1b8c @0x8
0x1b84…1ba7 at0009 = ╱53╱S╱ // 0x1b8d @0x9
0x1b84…1ba7 at000a = ╱4b╱K╱ // 0x1b8e @0xa
0x1b84…1ba7 at000b = ╱52╱R╱ // 0x1b8f @0xb
0x1b84…1ba7 at000c = ╱49╱I╱ // 0x1b90 @0xc
0x1b84…1ba7 at000d = ╱46╱F╱ // 0x1b91 @0xd
0x1b84…1ba7 at000e = ╱54╱T╱ // 0x1b92 @0xe
0x1b84…1ba7 at000f = ╱ed╱(╱ // 0x1b93 @0xf
0x1b84…1ba7 at0010 = ╱22╱"╱ // 0x1b94 @0x10
0x1b84…1ba7 at0011 = ╱53╱S╱ // 0x1b95 @0x11
0x1b84…1ba7 at0012 = ╱6c╱l╱ // 0x1b96 @0x12
0x1b84…1ba7 at0013 = ╱65╱e╱ // 0x1b97 @0x13
0x1b84…1ba7 at0014 = ╱74╱t╱ // 0x1b98 @0x14
0x1b84…1ba7 at0015 = ╱20╱…╱ // 0x1b99 @0x15
0x1b84…1ba7 at0016 = ╱6b╱k╱ // 0x1b9a @0x16
0x1b84…1ba7 at0017 = ╱6f╱o╱ // 0x1b9b @0x17
0x1b84…1ba7 at0018 = ╱6e╱n╱ // 0x1b9c @0x18
0x1b84…1ba7 at0019 = ╱74╱t╱ // 0x1b9d @0x19
0x1b84…1ba7 at001a = ╱69╱i╱ // 0x1b9e @0x1a
0x1b84…1ba7 at001b = ╱22╱"╱ // 0x1b9f @0x1b
0x1b84…1ba7 at001c = ╱ec╱,╱ // 0x1ba0 @0x1c
0x1b84…1ba7 at001d = ╱36╱6╱ // 0x1ba1 @0x1d
0x1b84…1ba7 at001e = ╱f20600╱ // 0x1ba2 @0x1e
0x1b84…1ba7 at0021 = ╱ee╱)╱ // 0x1ba5 @0x21
0x1b84…1ba7 at0022 = EOL // 0x1ba6 @0x22
0x1b84…1ba7 }
0x1ba7…1bd4 b1c2 2880 LET A_KTONR$ := "" ; A_KTO_TYPE$ := "" ; KTO_NAVN$ := ""
0x1ba7…1bd4 LineComal80 {
0x1ba7…1bd4 ptr = 0xb1c2 // 0x1ba7 @0x0
0x1ba7…1bd4 lno = 0x0b40 // 0x1ba9 @0x2
0x1ba7…1bd4 at0004 = ╱86╱ LET ╱ // 0x1bab @0x4
0x1ba7…1bd4 at0005 = ╱41╱A╱ // 0x1bac @0x5
0x1ba7…1bd4 at0006 = ╱5f╱_╱ // 0x1bad @0x6
0x1ba7…1bd4 at0007 = ╱4b╱K╱ // 0x1bae @0x7
0x1ba7…1bd4 at0008 = ╱54╱T╱ // 0x1baf @0x8
0x1ba7…1bd4 at0009 = ╱4f╱O╱ // 0x1bb0 @0x9
0x1ba7…1bd4 at000a = ╱4e╱N╱ // 0x1bb1 @0xa
0x1ba7…1bd4 at000b = ╱52╱R╱ // 0x1bb2 @0xb
0x1ba7…1bd4 at000c = ╱ef╱$╱ // 0x1bb3 @0xc
0x1ba7…1bd4 at000d = ╱f0╱ := ╱ // 0x1bb4 @0xd
0x1ba7…1bd4 at000e = ╱22╱"╱ // 0x1bb5 @0xe
0x1ba7…1bd4 at000f = ╱22╱"╱ // 0x1bb6 @0xf
0x1ba7…1bd4 at0010 = ╱ea╱ ; ╱ // 0x1bb7 @0x10
0x1ba7…1bd4 at0011 = ╱41╱A╱ // 0x1bb8 @0x11
0x1ba7…1bd4 at0012 = ╱5f╱_╱ // 0x1bb9 @0x12
0x1ba7…1bd4 at0013 = ╱4b╱K╱ // 0x1bba @0x13
0x1ba7…1bd4 at0014 = ╱54╱T╱ // 0x1bbb @0x14
0x1ba7…1bd4 at0015 = ╱4f╱O╱ // 0x1bbc @0x15
0x1ba7…1bd4 at0016 = ╱5f╱_╱ // 0x1bbd @0x16
0x1ba7…1bd4 at0017 = ╱54╱T╱ // 0x1bbe @0x17
0x1ba7…1bd4 at0018 = ╱59╱Y╱ // 0x1bbf @0x18
0x1ba7…1bd4 at0019 = ╱50╱P╱ // 0x1bc0 @0x19
0x1ba7…1bd4 at001a = ╱45╱E╱ // 0x1bc1 @0x1a
0x1ba7…1bd4 at001b = ╱ef╱$╱ // 0x1bc2 @0x1b
0x1ba7…1bd4 at001c = ╱f0╱ := ╱ // 0x1bc3 @0x1c
0x1ba7…1bd4 at001d = ╱22╱"╱ // 0x1bc4 @0x1d
0x1ba7…1bd4 at001e = ╱22╱"╱ // 0x1bc5 @0x1e
0x1ba7…1bd4 at001f = ╱ea╱ ; ╱ // 0x1bc6 @0x1f
0x1ba7…1bd4 at0020 = ╱4b╱K╱ // 0x1bc7 @0x20
0x1ba7…1bd4 at0021 = ╱54╱T╱ // 0x1bc8 @0x21
0x1ba7…1bd4 at0022 = ╱4f╱O╱ // 0x1bc9 @0x22
0x1ba7…1bd4 at0023 = ╱5f╱_╱ // 0x1bca @0x23
0x1ba7…1bd4 at0024 = ╱4e╱N╱ // 0x1bcb @0x24
0x1ba7…1bd4 at0025 = ╱41╱A╱ // 0x1bcc @0x25
0x1ba7…1bd4 at0026 = ╱56╱V╱ // 0x1bcd @0x26
0x1ba7…1bd4 at0027 = ╱4e╱N╱ // 0x1bce @0x27
0x1ba7…1bd4 at0028 = ╱ef╱$╱ // 0x1bcf @0x28
0x1ba7…1bd4 at0029 = ╱f0╱ := ╱ // 0x1bd0 @0x29
0x1ba7…1bd4 at002a = ╱22╱"╱ // 0x1bd1 @0x2a
0x1ba7…1bd4 at002b = ╱22╱"╱ // 0x1bd2 @0x2b
0x1ba7…1bd4 at002c = EOL // 0x1bd3 @0x2c
0x1ba7…1bd4 }
0x1bd4…1bdb b1c9 2890 REPEAT
0x1bd4…1bdb LineComal80 {
0x1bd4…1bdb ptr = 0xb1c9 // 0x1bd4 @0x0
0x1bd4…1bdb lno = 0x0b4a // 0x1bd6 @0x2
0x1bd4…1bdb at0004 = ╱9735╱ REPEAT ╱ // 0x1bd8 @0x4
0x1bd4…1bdb at0006 = EOL // 0x1bda @0x6
0x1bd4…1bdb }
0x1bdb…1bf0 b1de 2900 EXEC RET_LINIE(1)
0x1bdb…1bf0 LineComal80 {
0x1bdb…1bf0 ptr = 0xb1de // 0x1bdb @0x0
0x1bdb…1bf0 lno = 0x0b54 // 0x1bdd @0x2
0x1bdb…1bf0 at0004 = ╱9d╱ EXEC ╱ // 0x1bdf @0x4
0x1bdb…1bf0 at0005 = ╱52╱R╱ // 0x1be0 @0x5
0x1bdb…1bf0 at0006 = ╱45╱E╱ // 0x1be1 @0x6
0x1bdb…1bf0 at0007 = ╱54╱T╱ // 0x1be2 @0x7
0x1bdb…1bf0 at0008 = ╱5f╱_╱ // 0x1be3 @0x8
0x1bdb…1bf0 at0009 = ╱4c╱L╱ // 0x1be4 @0x9
0x1bdb…1bf0 at000a = ╱49╱I╱ // 0x1be5 @0xa
0x1bdb…1bf0 at000b = ╱4e╱N╱ // 0x1be6 @0xb
0x1bdb…1bf0 at000c = ╱49╱I╱ // 0x1be7 @0xc
0x1bdb…1bf0 at000d = ╱45╱E╱ // 0x1be8 @0xd
0x1bdb…1bf0 at000e = ╱ed╱(╱ // 0x1be9 @0xe
0x1bdb…1bf0 at000f = ╱31╱1╱ // 0x1bea @0xf
0x1bdb…1bf0 at0010 = ╱f20100╱ // 0x1beb @0x10
0x1bdb…1bf0 at0013 = ╱ee╱)╱ // 0x1bee @0x13
0x1bdb…1bf0 at0014 = EOL // 0x1bef @0x14
0x1bdb…1bf0 }
0x1bf0…1c02 b1f0 2910 EXEC SL_FEJLLINIE
0x1bf0…1c02 LineComal80 {
0x1bf0…1c02 ptr = 0xb1f0 // 0x1bf0 @0x0
0x1bf0…1c02 lno = 0x0b5e // 0x1bf2 @0x2
0x1bf0…1c02 at0004 = ╱9d╱ EXEC ╱ // 0x1bf4 @0x4
0x1bf0…1c02 at0005 = ╱53╱S╱ // 0x1bf5 @0x5
0x1bf0…1c02 at0006 = ╱4c╱L╱ // 0x1bf6 @0x6
0x1bf0…1c02 at0007 = ╱5f╱_╱ // 0x1bf7 @0x7
0x1bf0…1c02 at0008 = ╱46╱F╱ // 0x1bf8 @0x8
0x1bf0…1c02 at0009 = ╱45╱E╱ // 0x1bf9 @0x9
0x1bf0…1c02 at000a = ╱4a╱J╱ // 0x1bfa @0xa
0x1bf0…1c02 at000b = ╱4c╱L╱ // 0x1bfb @0xb
0x1bf0…1c02 at000c = ╱4c╱L╱ // 0x1bfc @0xc
0x1bf0…1c02 at000d = ╱49╱I╱ // 0x1bfd @0xd
0x1bf0…1c02 at000e = ╱4e╱N╱ // 0x1bfe @0xe
0x1bf0…1c02 at000f = ╱49╱I╱ // 0x1bff @0xf
0x1bf0…1c02 at0010 = ╱45╱E╱ // 0x1c00 @0x10
0x1bf0…1c02 at0011 = EOL // 0x1c01 @0x11
0x1bf0…1c02 }
0x1c02…1c2d b21b 2920 IF OPRET THEN EXEC FEJL("konto eksisterer ikke")
0x1c02…1c2d LineComal80 {
0x1c02…1c2d ptr = 0xb21b // 0x1c02 @0x0
0x1c02…1c2d lno = 0x0b68 // 0x1c04 @0x2
0x1c02…1c2d at0004 = ╱8200╱ IF ╱ // 0x1c06 @0x4
0x1c02…1c2d at0006 = ╱4f╱O╱ // 0x1c08 @0x6
0x1c02…1c2d at0007 = ╱50╱P╱ // 0x1c09 @0x7
0x1c02…1c2d at0008 = ╱52╱R╱ // 0x1c0a @0x8
0x1c02…1c2d at0009 = ╱45╱E╱ // 0x1c0b @0x9
0x1c02…1c2d at000a = ╱54╱T╱ // 0x1c0c @0xa
0x1c02…1c2d at000b = ╱b5╱ THEN ╱ // 0x1c0d @0xb
0x1c02…1c2d at000c = ╱9d╱ EXEC ╱ // 0x1c0e @0xc
0x1c02…1c2d at000d = ╱46╱F╱ // 0x1c0f @0xd
0x1c02…1c2d at000e = ╱45╱E╱ // 0x1c10 @0xe
0x1c02…1c2d at000f = ╱4a╱J╱ // 0x1c11 @0xf
0x1c02…1c2d at0010 = ╱4c╱L╱ // 0x1c12 @0x10
0x1c02…1c2d at0011 = ╱ed╱(╱ // 0x1c13 @0x11
0x1c02…1c2d at0012 = ╱22╱"╱ // 0x1c14 @0x12
0x1c02…1c2d at0013 = ╱6b╱k╱ // 0x1c15 @0x13
0x1c02…1c2d at0014 = ╱6f╱o╱ // 0x1c16 @0x14
0x1c02…1c2d at0015 = ╱6e╱n╱ // 0x1c17 @0x15
0x1c02…1c2d at0016 = ╱74╱t╱ // 0x1c18 @0x16
0x1c02…1c2d at0017 = ╱6f╱o╱ // 0x1c19 @0x17
0x1c02…1c2d at0018 = ╱20╱…╱ // 0x1c1a @0x18
0x1c02…1c2d at0019 = ╱65╱e╱ // 0x1c1b @0x19
0x1c02…1c2d at001a = ╱6b╱k╱ // 0x1c1c @0x1a
0x1c02…1c2d at001b = ╱73╱s╱ // 0x1c1d @0x1b
0x1c02…1c2d at001c = ╱69╱i╱ // 0x1c1e @0x1c
0x1c02…1c2d at001d = ╱73╱s╱ // 0x1c1f @0x1d
0x1c02…1c2d at001e = ╱74╱t╱ // 0x1c20 @0x1e
0x1c02…1c2d at001f = ╱65╱e╱ // 0x1c21 @0x1f
0x1c02…1c2d at0020 = ╱72╱r╱ // 0x1c22 @0x20
0x1c02…1c2d at0021 = ╱65╱e╱ // 0x1c23 @0x21
0x1c02…1c2d at0022 = ╱72╱r╱ // 0x1c24 @0x22
0x1c02…1c2d at0023 = ╱20╱…╱ // 0x1c25 @0x23
0x1c02…1c2d at0024 = ╱69╱i╱ // 0x1c26 @0x24
0x1c02…1c2d at0025 = ╱6b╱k╱ // 0x1c27 @0x25
0x1c02…1c2d at0026 = ╱6b╱k╱ // 0x1c28 @0x26
0x1c02…1c2d at0027 = ╱65╱e╱ // 0x1c29 @0x27
0x1c02…1c2d at0028 = ╱22╱"╱ // 0x1c2a @0x28
0x1c02…1c2d at0029 = ╱ee╱)╱ // 0x1c2b @0x29
0x1c02…1c2d at002a = EOL // 0x1c2c @0x2a
0x1c02…1c2d }
0x1c2d…1c37 b225 2930 IF K THEN
0x1c2d…1c37 LineComal80 {
0x1c2d…1c37 ptr = 0xb225 // 0x1c2d @0x0
0x1c2d…1c37 lno = 0x0b72 // 0x1c2f @0x2
0x1c2d…1c37 at0004 = ╱9b364f╱ IF ╱ // 0x1c31 @0x4
0x1c2d…1c37 at0007 = ╱4b╱K╱ // 0x1c34 @0x7
0x1c2d…1c37 at0008 = ╱b5╱ THEN ╱ // 0x1c35 @0x8
0x1c2d…1c37 at0009 = EOL // 0x1c36 @0x9
0x1c2d…1c37 }
0x1c37…1c74 b262 2940 IF KTO_ULTIMO >< 0 THEN EXEC FEJL("Ulovlig sletning: Saldo <> 0 ")
0x1c37…1c74 LineComal80 {
0x1c37…1c74 ptr = 0xb262 // 0x1c37 @0x0
0x1c37…1c74 lno = 0x0b7c // 0x1c39 @0x2
0x1c37…1c74 at0004 = ╱8200╱ IF ╱ // 0x1c3b @0x4
0x1c37…1c74 at0006 = ╱4b╱K╱ // 0x1c3d @0x6
0x1c37…1c74 at0007 = ╱54╱T╱ // 0x1c3e @0x7
0x1c37…1c74 at0008 = ╱4f╱O╱ // 0x1c3f @0x8
0x1c37…1c74 at0009 = ╱5f╱_╱ // 0x1c40 @0x9
0x1c37…1c74 at000a = ╱55╱U╱ // 0x1c41 @0xa
0x1c37…1c74 at000b = ╱4c╱L╱ // 0x1c42 @0xb
0x1c37…1c74 at000c = ╱54╱T╱ // 0x1c43 @0xc
0x1c37…1c74 at000d = ╱49╱I╱ // 0x1c44 @0xd
0x1c37…1c74 at000e = ╱4d╱M╱ // 0x1c45 @0xe
0x1c37…1c74 at000f = ╱4f╱O╱ // 0x1c46 @0xf
0x1c37…1c74 at0010 = ╱e4╱ >< ╱ // 0x1c47 @0x10
0x1c37…1c74 at0011 = ╱30╱0╱ // 0x1c48 @0x11
0x1c37…1c74 at0012 = ╱f20000╱ // 0x1c49 @0x12
0x1c37…1c74 at0015 = ╱b5╱ THEN ╱ // 0x1c4c @0x15
0x1c37…1c74 at0016 = ╱9d╱ EXEC ╱ // 0x1c4d @0x16
0x1c37…1c74 at0017 = ╱46╱F╱ // 0x1c4e @0x17
0x1c37…1c74 at0018 = ╱45╱E╱ // 0x1c4f @0x18
0x1c37…1c74 at0019 = ╱4a╱J╱ // 0x1c50 @0x19
0x1c37…1c74 at001a = ╱4c╱L╱ // 0x1c51 @0x1a
0x1c37…1c74 at001b = ╱ed╱(╱ // 0x1c52 @0x1b
0x1c37…1c74 at001c = ╱22╱"╱ // 0x1c53 @0x1c
0x1c37…1c74 at001d = ╱55╱U╱ // 0x1c54 @0x1d
0x1c37…1c74 at001e = ╱6c╱l╱ // 0x1c55 @0x1e
0x1c37…1c74 at001f = ╱6f╱o╱ // 0x1c56 @0x1f
0x1c37…1c74 at0020 = ╱76╱v╱ // 0x1c57 @0x20
0x1c37…1c74 at0021 = ╱6c╱l╱ // 0x1c58 @0x21
0x1c37…1c74 at0022 = ╱69╱i╱ // 0x1c59 @0x22
0x1c37…1c74 at0023 = ╱67╱g╱ // 0x1c5a @0x23
0x1c37…1c74 at0024 = ╱20╱…╱ // 0x1c5b @0x24
0x1c37…1c74 at0025 = ╱73╱s╱ // 0x1c5c @0x25
0x1c37…1c74 at0026 = ╱6c╱l╱ // 0x1c5d @0x26
0x1c37…1c74 at0027 = ╱65╱e╱ // 0x1c5e @0x27
0x1c37…1c74 at0028 = ╱74╱t╱ // 0x1c5f @0x28
0x1c37…1c74 at0029 = ╱6e╱n╱ // 0x1c60 @0x29
0x1c37…1c74 at002a = ╱69╱i╱ // 0x1c61 @0x2a
0x1c37…1c74 at002b = ╱6e╱n╱ // 0x1c62 @0x2b
0x1c37…1c74 at002c = ╱67╱g╱ // 0x1c63 @0x2c
0x1c37…1c74 at002d = ╱3a╱:╱ // 0x1c64 @0x2d
0x1c37…1c74 at002e = ╱20╱…╱ // 0x1c65 @0x2e
0x1c37…1c74 at002f = ╱53╱S╱ // 0x1c66 @0x2f
0x1c37…1c74 at0030 = ╱61╱a╱ // 0x1c67 @0x30
0x1c37…1c74 at0031 = ╱6c╱l╱ // 0x1c68 @0x31
0x1c37…1c74 at0032 = ╱64╱d╱ // 0x1c69 @0x32
0x1c37…1c74 at0033 = ╱6f╱o╱ // 0x1c6a @0x33
0x1c37…1c74 at0034 = ╱20╱…╱ // 0x1c6b @0x34
0x1c37…1c74 at0035 = ╱3c╱<╱ // 0x1c6c @0x35
0x1c37…1c74 at0036 = ╱3e╱>╱ // 0x1c6d @0x36
0x1c37…1c74 at0037 = ╱20╱…╱ // 0x1c6e @0x37
0x1c37…1c74 at0038 = ╱30╱0╱ // 0x1c6f @0x38
0x1c37…1c74 at0039 = ╱20╱…╱ // 0x1c70 @0x39
0x1c37…1c74 at003a = ╱22╱"╱ // 0x1c71 @0x3a
0x1c37…1c74 at003b = ╱ee╱)╱ // 0x1c72 @0x3b
0x1c37…1c74 at003c = EOL // 0x1c73 @0x3c
0x1c37…1c74 }
0x1c74…1c7a b268 2950 ENDIF
0x1c74…1c7a LineComal80 {
0x1c74…1c7a ptr = 0xb268 // 0x1c74 @0x0
0x1c74…1c7a lno = 0x0b86 // 0x1c76 @0x2
0x1c74…1c7a at0004 = ╱9c╱ ENDIF ╱ // 0x1c78 @0x4
0x1c74…1c7a at0005 = EOL // 0x1c79 @0x5
0x1c74…1c7a }
0x1c7a…1c82 b270 2960 UNTIL OK
0x1c7a…1c82 LineComal80 {
0x1c7a…1c82 ptr = 0xb270 // 0x1c7a @0x0
0x1c7a…1c82 lno = 0x0b90 // 0x1c7c @0x2
0x1c7a…1c82 at0004 = ╱98╱ UNTIL ╱ // 0x1c7e @0x4
0x1c7a…1c82 at0005 = ╱4f╱O╱ // 0x1c7f @0x5
0x1c7a…1c82 at0006 = ╱4b╱K╱ // 0x1c80 @0x6
0x1c7a…1c82 at0007 = EOL // 0x1c81 @0x7
0x1c7a…1c82 }
0x1c82…1c89 b277 2970 REPEAT
0x1c82…1c89 LineComal80 {
0x1c82…1c89 ptr = 0xb277 // 0x1c82 @0x0
0x1c82…1c89 lno = 0x0b9a // 0x1c84 @0x2
0x1c82…1c89 at0004 = ╱9737╱ REPEAT ╱ // 0x1c86 @0x4
0x1c82…1c89 at0006 = EOL // 0x1c88 @0x6
0x1c82…1c89 }
0x1c89…1c98 b286 2980 LET SVAR$ := " "
0x1c89…1c98 LineComal80 {
0x1c89…1c98 ptr = 0xb286 // 0x1c89 @0x0
0x1c89…1c98 lno = 0x0ba4 // 0x1c8b @0x2
0x1c89…1c98 at0004 = ╱86╱ LET ╱ // 0x1c8d @0x4
0x1c89…1c98 at0005 = ╱53╱S╱ // 0x1c8e @0x5
0x1c89…1c98 at0006 = ╱56╱V╱ // 0x1c8f @0x6
0x1c89…1c98 at0007 = ╱41╱A╱ // 0x1c90 @0x7
0x1c89…1c98 at0008 = ╱52╱R╱ // 0x1c91 @0x8
0x1c89…1c98 at0009 = ╱ef╱$╱ // 0x1c92 @0x9
0x1c89…1c98 at000a = ╱f0╱ := ╱ // 0x1c93 @0xa
0x1c89…1c98 at000b = ╱22╱"╱ // 0x1c94 @0xb
0x1c89…1c98 at000c = ╱20╱…╱ // 0x1c95 @0xc
0x1c89…1c98 at000d = ╱22╱"╱ // 0x1c96 @0xd
0x1c89…1c98 at000e = EOL // 0x1c97 @0xe
0x1c89…1c98 }
0x1c98…1cc5 b2b3 2990 EDIT "<C2718>Slet konto (j/n)? " : SVAR$(1)
0x1c98…1cc5 LineComal80 {
0x1c98…1cc5 ptr = 0xb2b3 // 0x1c98 @0x0
0x1c98…1cc5 lno = 0x0bae // 0x1c9a @0x2
0x1c98…1cc5 at0004 = ╱b1╱ EDIT ╱ // 0x1c9c @0x4
0x1c98…1cc5 at0005 = ╱22╱"╱ // 0x1c9d @0x5
0x1c98…1cc5 at0006 = ╱3c╱<╱ // 0x1c9e @0x6
0x1c98…1cc5 at0007 = ╱43╱C╱ // 0x1c9f @0x7
0x1c98…1cc5 at0008 = ╱32╱2╱ // 0x1ca0 @0x8
0x1c98…1cc5 at0009 = ╱37╱7╱ // 0x1ca1 @0x9
0x1c98…1cc5 at000a = ╱31╱1╱ // 0x1ca2 @0xa
0x1c98…1cc5 at000b = ╱38╱8╱ // 0x1ca3 @0xb
0x1c98…1cc5 at000c = ╱3e╱>╱ // 0x1ca4 @0xc
0x1c98…1cc5 at000d = ╱53╱S╱ // 0x1ca5 @0xd
0x1c98…1cc5 at000e = ╱6c╱l╱ // 0x1ca6 @0xe
0x1c98…1cc5 at000f = ╱65╱e╱ // 0x1ca7 @0xf
0x1c98…1cc5 at0010 = ╱74╱t╱ // 0x1ca8 @0x10
0x1c98…1cc5 at0011 = ╱20╱…╱ // 0x1ca9 @0x11
0x1c98…1cc5 at0012 = ╱6b╱k╱ // 0x1caa @0x12
0x1c98…1cc5 at0013 = ╱6f╱o╱ // 0x1cab @0x13
0x1c98…1cc5 at0014 = ╱6e╱n╱ // 0x1cac @0x14
0x1c98…1cc5 at0015 = ╱74╱t╱ // 0x1cad @0x15
0x1c98…1cc5 at0016 = ╱6f╱o╱ // 0x1cae @0x16
0x1c98…1cc5 at0017 = ╱20╱…╱ // 0x1caf @0x17
0x1c98…1cc5 at0018 = ╱28╱(╱ // 0x1cb0 @0x18
0x1c98…1cc5 at0019 = ╱6a╱j╱ // 0x1cb1 @0x19
0x1c98…1cc5 at001a = ╱2f╱/╱ // 0x1cb2 @0x1a
0x1c98…1cc5 at001b = ╱6e╱n╱ // 0x1cb3 @0x1b
0x1c98…1cc5 at001c = ╱29╱)╱ // 0x1cb4 @0x1c
0x1c98…1cc5 at001d = ╱3f╱?╱ // 0x1cb5 @0x1d
0x1c98…1cc5 at001e = ╱20╱…╱ // 0x1cb6 @0x1e
0x1c98…1cc5 at001f = ╱22╱"╱ // 0x1cb7 @0x1f
0x1c98…1cc5 at0020 = ╱f1╱ : ╱ // 0x1cb8 @0x20
0x1c98…1cc5 at0021 = ╱53╱S╱ // 0x1cb9 @0x21
0x1c98…1cc5 at0022 = ╱56╱V╱ // 0x1cba @0x22
0x1c98…1cc5 at0023 = ╱41╱A╱ // 0x1cbb @0x23
0x1c98…1cc5 at0024 = ╱52╱R╱ // 0x1cbc @0x24
0x1c98…1cc5 at0025 = ╱ef╱$╱ // 0x1cbd @0x25
0x1c98…1cc5 at0026 = ╱ed╱(╱ // 0x1cbe @0x26
0x1c98…1cc5 at0027 = ╱31╱1╱ // 0x1cbf @0x27
0x1c98…1cc5 at0028 = ╱f20100╱ // 0x1cc0 @0x28
0x1c98…1cc5 at002b = ╱ee╱)╱ // 0x1cc3 @0x2b
0x1c98…1cc5 at002c = EOL // 0x1cc4 @0x2c
0x1c98…1cc5 }
0x1cc5…1cea b2d8 3000 UNTIL "/" + SVAR$(1) + "/" IN "/J/j/N/n/"
0x1cc5…1cea LineComal80 {
0x1cc5…1cea ptr = 0xb2d8 // 0x1cc5 @0x0
0x1cc5…1cea lno = 0x0bb8 // 0x1cc7 @0x2
0x1cc5…1cea at0004 = ╱98╱ UNTIL ╱ // 0x1cc9 @0x4
0x1cc5…1cea at0005 = ╱22╱"╱ // 0x1cca @0x5
0x1cc5…1cea at0006 = ╱2f╱/╱ // 0x1ccb @0x6
0x1cc5…1cea at0007 = ╱22╱"╱ // 0x1ccc @0x7
0x1cc5…1cea at0008 = ╱eb╱ + ╱ // 0x1ccd @0x8
0x1cc5…1cea at0009 = ╱53╱S╱ // 0x1cce @0x9
0x1cc5…1cea at000a = ╱56╱V╱ // 0x1ccf @0xa
0x1cc5…1cea at000b = ╱41╱A╱ // 0x1cd0 @0xb
0x1cc5…1cea at000c = ╱52╱R╱ // 0x1cd1 @0xc
0x1cc5…1cea at000d = ╱ef╱$╱ // 0x1cd2 @0xd
0x1cc5…1cea at000e = ╱ed╱(╱ // 0x1cd3 @0xe
0x1cc5…1cea at000f = ╱31╱1╱ // 0x1cd4 @0xf
0x1cc5…1cea at0010 = ╱f20100╱ // 0x1cd5 @0x10
0x1cc5…1cea at0013 = ╱ee╱)╱ // 0x1cd8 @0x13
0x1cc5…1cea at0014 = ╱eb╱ + ╱ // 0x1cd9 @0x14
0x1cc5…1cea at0015 = ╱22╱"╱ // 0x1cda @0x15
0x1cc5…1cea at0016 = ╱2f╱/╱ // 0x1cdb @0x16
0x1cc5…1cea at0017 = ╱22╱"╱ // 0x1cdc @0x17
0x1cc5…1cea at0018 = ╱dc╱ IN ╱ // 0x1cdd @0x18
0x1cc5…1cea at0019 = ╱22╱"╱ // 0x1cde @0x19
0x1cc5…1cea at001a = ╱2f╱/╱ // 0x1cdf @0x1a
0x1cc5…1cea at001b = ╱4a╱J╱ // 0x1ce0 @0x1b
0x1cc5…1cea at001c = ╱2f╱/╱ // 0x1ce1 @0x1c
0x1cc5…1cea at001d = ╱6a╱j╱ // 0x1ce2 @0x1d
0x1cc5…1cea at001e = ╱2f╱/╱ // 0x1ce3 @0x1e
0x1cc5…1cea at001f = ╱4e╱N╱ // 0x1ce4 @0x1f
0x1cc5…1cea at0020 = ╱2f╱/╱ // 0x1ce5 @0x20
0x1cc5…1cea at0021 = ╱6e╱n╱ // 0x1ce6 @0x21
0x1cc5…1cea at0022 = ╱2f╱/╱ // 0x1ce7 @0x22
0x1cc5…1cea at0023 = ╱22╱"╱ // 0x1ce8 @0x23
0x1cc5…1cea at0024 = EOL // 0x1ce9 @0x24
0x1cc5…1cea }
0x1cea…1d12 b300 3010 IF "/" + SVAR$(1) + "/" IN "/J/j/" THEN EXEC SLET
0x1cea…1d12 LineComal80 {
0x1cea…1d12 ptr = 0xb300 // 0x1cea @0x0
0x1cea…1d12 lno = 0x0bc2 // 0x1cec @0x2
0x1cea…1d12 at0004 = ╱8200╱ IF ╱ // 0x1cee @0x4
0x1cea…1d12 at0006 = ╱22╱"╱ // 0x1cf0 @0x6
0x1cea…1d12 at0007 = ╱2f╱/╱ // 0x1cf1 @0x7
0x1cea…1d12 at0008 = ╱22╱"╱ // 0x1cf2 @0x8
0x1cea…1d12 at0009 = ╱eb╱ + ╱ // 0x1cf3 @0x9
0x1cea…1d12 at000a = ╱53╱S╱ // 0x1cf4 @0xa
0x1cea…1d12 at000b = ╱56╱V╱ // 0x1cf5 @0xb
0x1cea…1d12 at000c = ╱41╱A╱ // 0x1cf6 @0xc
0x1cea…1d12 at000d = ╱52╱R╱ // 0x1cf7 @0xd
0x1cea…1d12 at000e = ╱ef╱$╱ // 0x1cf8 @0xe
0x1cea…1d12 at000f = ╱ed╱(╱ // 0x1cf9 @0xf
0x1cea…1d12 at0010 = ╱31╱1╱ // 0x1cfa @0x10
0x1cea…1d12 at0011 = ╱f20100╱ // 0x1cfb @0x11
0x1cea…1d12 at0014 = ╱ee╱)╱ // 0x1cfe @0x14
0x1cea…1d12 at0015 = ╱eb╱ + ╱ // 0x1cff @0x15
0x1cea…1d12 at0016 = ╱22╱"╱ // 0x1d00 @0x16
0x1cea…1d12 at0017 = ╱2f╱/╱ // 0x1d01 @0x17
0x1cea…1d12 at0018 = ╱22╱"╱ // 0x1d02 @0x18
0x1cea…1d12 at0019 = ╱dc╱ IN ╱ // 0x1d03 @0x19
0x1cea…1d12 at001a = ╱22╱"╱ // 0x1d04 @0x1a
0x1cea…1d12 at001b = ╱2f╱/╱ // 0x1d05 @0x1b
0x1cea…1d12 at001c = ╱4a╱J╱ // 0x1d06 @0x1c
0x1cea…1d12 at001d = ╱2f╱/╱ // 0x1d07 @0x1d
0x1cea…1d12 at001e = ╱6a╱j╱ // 0x1d08 @0x1e
0x1cea…1d12 at001f = ╱2f╱/╱ // 0x1d09 @0x1f
0x1cea…1d12 at0020 = ╱22╱"╱ // 0x1d0a @0x20
0x1cea…1d12 at0021 = ╱b5╱ THEN ╱ // 0x1d0b @0x21
0x1cea…1d12 at0022 = ╱9d╱ EXEC ╱ // 0x1d0c @0x22
0x1cea…1d12 at0023 = ╱53╱S╱ // 0x1d0d @0x23
0x1cea…1d12 at0024 = ╱4c╱L╱ // 0x1d0e @0x24
0x1cea…1d12 at0025 = ╱45╱E╱ // 0x1d0f @0x25
0x1cea…1d12 at0026 = ╱54╱T╱ // 0x1d10 @0x26
0x1cea…1d12 at0027 = EOL // 0x1d11 @0x27
0x1cea…1d12 }
0x1d12…1d18 b306 3020 CLEAR
0x1d12…1d18 LineComal80 {
0x1d12…1d18 ptr = 0xb306 // 0x1d12 @0x0
0x1d12…1d18 lno = 0x0bcc // 0x1d14 @0x2
0x1d12…1d18 at0004 = ╱a0╱ CLEAR ╱ // 0x1d16 @0x4
0x1d12…1d18 at0005 = EOL // 0x1d17 @0x5
0x1d12…1d18 }
0x1d18…1d27 b315 3030 LET SVAR$ := "j"
0x1d18…1d27 LineComal80 {
0x1d18…1d27 ptr = 0xb315 // 0x1d18 @0x0
0x1d18…1d27 lno = 0x0bd6 // 0x1d1a @0x2
0x1d18…1d27 at0004 = ╱86╱ LET ╱ // 0x1d1c @0x4
0x1d18…1d27 at0005 = ╱53╱S╱ // 0x1d1d @0x5
0x1d18…1d27 at0006 = ╱56╱V╱ // 0x1d1e @0x6
0x1d18…1d27 at0007 = ╱41╱A╱ // 0x1d1f @0x7
0x1d18…1d27 at0008 = ╱52╱R╱ // 0x1d20 @0x8
0x1d18…1d27 at0009 = ╱ef╱$╱ // 0x1d21 @0x9
0x1d18…1d27 at000a = ╱f0╱ := ╱ // 0x1d22 @0xa
0x1d18…1d27 at000b = ╱22╱"╱ // 0x1d23 @0xb
0x1d18…1d27 at000c = ╱6a╱j╱ // 0x1d24 @0xc
0x1d18…1d27 at000d = ╱22╱"╱ // 0x1d25 @0xd
0x1d18…1d27 at000e = EOL // 0x1d26 @0xe
0x1d18…1d27 }
0x1d27…1d66 b354 3040 EDIT "<C1212>Skal der slettes flere konti (j/n)? " : SVAR$(1)
0x1d27…1d66 LineComal80 {
0x1d27…1d66 ptr = 0xb354 // 0x1d27 @0x0
0x1d27…1d66 lno = 0x0be0 // 0x1d29 @0x2
0x1d27…1d66 at0004 = ╱b1╱ EDIT ╱ // 0x1d2b @0x4
0x1d27…1d66 at0005 = ╱22╱"╱ // 0x1d2c @0x5
0x1d27…1d66 at0006 = ╱3c╱<╱ // 0x1d2d @0x6
0x1d27…1d66 at0007 = ╱43╱C╱ // 0x1d2e @0x7
0x1d27…1d66 at0008 = ╱31╱1╱ // 0x1d2f @0x8
0x1d27…1d66 at0009 = ╱32╱2╱ // 0x1d30 @0x9
0x1d27…1d66 at000a = ╱31╱1╱ // 0x1d31 @0xa
0x1d27…1d66 at000b = ╱32╱2╱ // 0x1d32 @0xb
0x1d27…1d66 at000c = ╱3e╱>╱ // 0x1d33 @0xc
0x1d27…1d66 at000d = ╱53╱S╱ // 0x1d34 @0xd
0x1d27…1d66 at000e = ╱6b╱k╱ // 0x1d35 @0xe
0x1d27…1d66 at000f = ╱61╱a╱ // 0x1d36 @0xf
0x1d27…1d66 at0010 = ╱6c╱l╱ // 0x1d37 @0x10
0x1d27…1d66 at0011 = ╱20╱…╱ // 0x1d38 @0x11
0x1d27…1d66 at0012 = ╱64╱d╱ // 0x1d39 @0x12
0x1d27…1d66 at0013 = ╱65╱e╱ // 0x1d3a @0x13
0x1d27…1d66 at0014 = ╱72╱r╱ // 0x1d3b @0x14
0x1d27…1d66 at0015 = ╱20╱…╱ // 0x1d3c @0x15
0x1d27…1d66 at0016 = ╱73╱s╱ // 0x1d3d @0x16
0x1d27…1d66 at0017 = ╱6c╱l╱ // 0x1d3e @0x17
0x1d27…1d66 at0018 = ╱65╱e╱ // 0x1d3f @0x18
0x1d27…1d66 at0019 = ╱74╱t╱ // 0x1d40 @0x19
0x1d27…1d66 at001a = ╱74╱t╱ // 0x1d41 @0x1a
0x1d27…1d66 at001b = ╱65╱e╱ // 0x1d42 @0x1b
0x1d27…1d66 at001c = ╱73╱s╱ // 0x1d43 @0x1c
0x1d27…1d66 at001d = ╱20╱…╱ // 0x1d44 @0x1d
0x1d27…1d66 at001e = ╱66╱f╱ // 0x1d45 @0x1e
0x1d27…1d66 at001f = ╱6c╱l╱ // 0x1d46 @0x1f
0x1d27…1d66 at0020 = ╱65╱e╱ // 0x1d47 @0x20
0x1d27…1d66 at0021 = ╱72╱r╱ // 0x1d48 @0x21
0x1d27…1d66 at0022 = ╱65╱e╱ // 0x1d49 @0x22
0x1d27…1d66 at0023 = ╱20╱…╱ // 0x1d4a @0x23
0x1d27…1d66 at0024 = ╱6b╱k╱ // 0x1d4b @0x24
0x1d27…1d66 at0025 = ╱6f╱o╱ // 0x1d4c @0x25
0x1d27…1d66 at0026 = ╱6e╱n╱ // 0x1d4d @0x26
0x1d27…1d66 at0027 = ╱74╱t╱ // 0x1d4e @0x27
0x1d27…1d66 at0028 = ╱69╱i╱ // 0x1d4f @0x28
0x1d27…1d66 at0029 = ╱20╱…╱ // 0x1d50 @0x29
0x1d27…1d66 at002a = ╱28╱(╱ // 0x1d51 @0x2a
0x1d27…1d66 at002b = ╱6a╱j╱ // 0x1d52 @0x2b
0x1d27…1d66 at002c = ╱2f╱/╱ // 0x1d53 @0x2c
0x1d27…1d66 at002d = ╱6e╱n╱ // 0x1d54 @0x2d
0x1d27…1d66 at002e = ╱29╱)╱ // 0x1d55 @0x2e
0x1d27…1d66 at002f = ╱3f╱?╱ // 0x1d56 @0x2f
0x1d27…1d66 at0030 = ╱20╱…╱ // 0x1d57 @0x30
0x1d27…1d66 at0031 = ╱22╱"╱ // 0x1d58 @0x31
0x1d27…1d66 at0032 = ╱f1╱ : ╱ // 0x1d59 @0x32
0x1d27…1d66 at0033 = ╱53╱S╱ // 0x1d5a @0x33
0x1d27…1d66 at0034 = ╱56╱V╱ // 0x1d5b @0x34
0x1d27…1d66 at0035 = ╱41╱A╱ // 0x1d5c @0x35
0x1d27…1d66 at0036 = ╱52╱R╱ // 0x1d5d @0x36
0x1d27…1d66 at0037 = ╱ef╱$╱ // 0x1d5e @0x37
0x1d27…1d66 at0038 = ╱ed╱(╱ // 0x1d5f @0x38
0x1d27…1d66 at0039 = ╱31╱1╱ // 0x1d60 @0x39
0x1d27…1d66 at003a = ╱f20100╱ // 0x1d61 @0x3a
0x1d27…1d66 at003d = ╱ee╱)╱ // 0x1d64 @0x3d
0x1d27…1d66 at003e = EOL // 0x1d65 @0x3e
0x1d27…1d66 }
0x1d66…1d82 b370 3050 UNTIL NOT "/" + SVAR$ + "/" IN "/J/j/"
0x1d66…1d82 LineComal80 {
0x1d66…1d82 ptr = 0xb370 // 0x1d66 @0x0
0x1d66…1d82 lno = 0x0bea // 0x1d68 @0x2
0x1d66…1d82 at0004 = ╱98╱ UNTIL ╱ // 0x1d6a @0x4
0x1d66…1d82 at0005 = ╱d7╱ NOT ╱ // 0x1d6b @0x5
0x1d66…1d82 at0006 = ╱22╱"╱ // 0x1d6c @0x6
0x1d66…1d82 at0007 = ╱2f╱/╱ // 0x1d6d @0x7
0x1d66…1d82 at0008 = ╱22╱"╱ // 0x1d6e @0x8
0x1d66…1d82 at0009 = ╱eb╱ + ╱ // 0x1d6f @0x9
0x1d66…1d82 at000a = ╱53╱S╱ // 0x1d70 @0xa
0x1d66…1d82 at000b = ╱56╱V╱ // 0x1d71 @0xb
0x1d66…1d82 at000c = ╱41╱A╱ // 0x1d72 @0xc
0x1d66…1d82 at000d = ╱52╱R╱ // 0x1d73 @0xd
0x1d66…1d82 at000e = ╱ef╱$╱ // 0x1d74 @0xe
0x1d66…1d82 at000f = ╱eb╱ + ╱ // 0x1d75 @0xf
0x1d66…1d82 at0010 = ╱22╱"╱ // 0x1d76 @0x10
0x1d66…1d82 at0011 = ╱2f╱/╱ // 0x1d77 @0x11
0x1d66…1d82 at0012 = ╱22╱"╱ // 0x1d78 @0x12
0x1d66…1d82 at0013 = ╱dc╱ IN ╱ // 0x1d79 @0x13
0x1d66…1d82 at0014 = ╱22╱"╱ // 0x1d7a @0x14
0x1d66…1d82 at0015 = ╱2f╱/╱ // 0x1d7b @0x15
0x1d66…1d82 at0016 = ╱4a╱J╱ // 0x1d7c @0x16
0x1d66…1d82 at0017 = ╱2f╱/╱ // 0x1d7d @0x17
0x1d66…1d82 at0018 = ╱6a╱j╱ // 0x1d7e @0x18
0x1d66…1d82 at0019 = ╱2f╱/╱ // 0x1d7f @0x19
0x1d66…1d82 at001a = ╱22╱"╱ // 0x1d80 @0x1a
0x1d66…1d82 at001b = EOL // 0x1d81 @0x1b
0x1d66…1d82 }
0x1d82…1d92 b380 3060 ENDPROC SLET_KONTI
0x1d82…1d92 LineComal80 {
0x1d82…1d92 ptr = 0xb380 // 0x1d82 @0x0
0x1d82…1d92 lno = 0x0bf4 // 0x1d84 @0x2
0x1d82…1d92 at0004 = ╱9f╱ ENDPROC ╱ // 0x1d86 @0x4
0x1d82…1d92 at0005 = ╱53╱S╱ // 0x1d87 @0x5
0x1d82…1d92 at0006 = ╱4c╱L╱ // 0x1d88 @0x6
0x1d82…1d92 at0007 = ╱45╱E╱ // 0x1d89 @0x7
0x1d82…1d92 at0008 = ╱54╱T╱ // 0x1d8a @0x8
0x1d82…1d92 at0009 = ╱5f╱_╱ // 0x1d8b @0x9
0x1d82…1d92 at000a = ╱4b╱K╱ // 0x1d8c @0xa
0x1d82…1d92 at000b = ╱4f╱O╱ // 0x1d8d @0xb
0x1d82…1d92 at000c = ╱4e╱N╱ // 0x1d8e @0xc
0x1d82…1d92 at000d = ╱54╱T╱ // 0x1d8f @0xd
0x1d82…1d92 at000e = ╱49╱I╱ // 0x1d90 @0xe
0x1d82…1d92 at000f = EOL // 0x1d91 @0xf
0x1d82…1d92 }
0x1d92…1d97 b385 3070
0x1d92…1d97 LineComal80 {
0x1d92…1d97 ptr = 0xb385 // 0x1d92 @0x0
0x1d92…1d97 lno = 0x0bfe // 0x1d94 @0x2
0x1d92…1d97 at0004 = EOL // 0x1d96 @0x4
0x1d92…1d97 }
0x1d97…1da2 b390 3080 PROC SLET
0x1d97…1da2 LineComal80 {
0x1d97…1da2 ptr = 0xb390 // 0x1d97 @0x0
0x1d97…1da2 lno = 0x0c08 // 0x1d99 @0x2
0x1d97…1da2 at0004 = ╱9e38╱ PROC ╱ // 0x1d9b @0x4
0x1d97…1da2 at0006 = ╱53╱S╱ // 0x1d9d @0x6
0x1d97…1da2 at0007 = ╱4c╱L╱ // 0x1d9e @0x7
0x1d97…1da2 at0008 = ╱45╱E╱ // 0x1d9f @0x8
0x1d97…1da2 at0009 = ╱54╱T╱ // 0x1da0 @0x9
0x1d97…1da2 at000a = EOL // 0x1da1 @0xa
0x1d97…1da2 }
0x1da2…1db5 b3a3 3090 LET KTO_TYPE$ := "*"
0x1da2…1db5 LineComal80 {
0x1da2…1db5 ptr = 0xb3a3 // 0x1da2 @0x0
0x1da2…1db5 lno = 0x0c12 // 0x1da4 @0x2
0x1da2…1db5 at0004 = ╱86╱ LET ╱ // 0x1da6 @0x4
0x1da2…1db5 at0005 = ╱4b╱K╱ // 0x1da7 @0x5
0x1da2…1db5 at0006 = ╱54╱T╱ // 0x1da8 @0x6
0x1da2…1db5 at0007 = ╱4f╱O╱ // 0x1da9 @0x7
0x1da2…1db5 at0008 = ╱5f╱_╱ // 0x1daa @0x8
0x1da2…1db5 at0009 = ╱54╱T╱ // 0x1dab @0x9
0x1da2…1db5 at000a = ╱59╱Y╱ // 0x1dac @0xa
0x1da2…1db5 at000b = ╱50╱P╱ // 0x1dad @0xb
0x1da2…1db5 at000c = ╱45╱E╱ // 0x1dae @0xc
0x1da2…1db5 at000d = ╱ef╱$╱ // 0x1daf @0xd
0x1da2…1db5 at000e = ╱f0╱ := ╱ // 0x1db0 @0xe
0x1da2…1db5 at000f = ╱22╱"╱ // 0x1db1 @0xf
0x1da2…1db5 at0010 = ╱2a╱*╱ // 0x1db2 @0x10
0x1da2…1db5 at0011 = ╱22╱"╱ // 0x1db3 @0x11
0x1da2…1db5 at0012 = EOL // 0x1db4 @0x12
0x1da2…1db5 }
0x1db5…1dcd b3bb 3100 EXEC SKRIV_KONTO(RECNR)
0x1db5…1dcd LineComal80 {
0x1db5…1dcd ptr = 0xb3bb // 0x1db5 @0x0
0x1db5…1dcd lno = 0x0c1c // 0x1db7 @0x2
0x1db5…1dcd at0004 = ╱9d╱ EXEC ╱ // 0x1db9 @0x4
0x1db5…1dcd at0005 = ╱53╱S╱ // 0x1dba @0x5
0x1db5…1dcd at0006 = ╱4b╱K╱ // 0x1dbb @0x6
0x1db5…1dcd at0007 = ╱52╱R╱ // 0x1dbc @0x7
0x1db5…1dcd at0008 = ╱49╱I╱ // 0x1dbd @0x8
0x1db5…1dcd at0009 = ╱56╱V╱ // 0x1dbe @0x9
0x1db5…1dcd at000a = ╱5f╱_╱ // 0x1dbf @0xa
0x1db5…1dcd at000b = ╱4b╱K╱ // 0x1dc0 @0xb
0x1db5…1dcd at000c = ╱4f╱O╱ // 0x1dc1 @0xc
0x1db5…1dcd at000d = ╱4e╱N╱ // 0x1dc2 @0xd
0x1db5…1dcd at000e = ╱54╱T╱ // 0x1dc3 @0xe
0x1db5…1dcd at000f = ╱4f╱O╱ // 0x1dc4 @0xf
0x1db5…1dcd at0010 = ╱ed╱(╱ // 0x1dc5 @0x10
0x1db5…1dcd at0011 = ╱52╱R╱ // 0x1dc6 @0x11
0x1db5…1dcd at0012 = ╱45╱E╱ // 0x1dc7 @0x12
0x1db5…1dcd at0013 = ╱43╱C╱ // 0x1dc8 @0x13
0x1db5…1dcd at0014 = ╱4e╱N╱ // 0x1dc9 @0x14
0x1db5…1dcd at0015 = ╱52╱R╱ // 0x1dca @0x15
0x1db5…1dcd at0016 = ╱ee╱)╱ // 0x1dcb @0x16
0x1db5…1dcd at0017 = EOL // 0x1dcc @0x17
0x1db5…1dcd }
0x1dcd…1df0 b3de 3110 GET KONTO$,1 : N_FRIREC,N_MAXREC
0x1dcd…1df0 LineComal80 {
0x1dcd…1df0 ptr = 0xb3de // 0x1dcd @0x0
0x1dcd…1df0 lno = 0x0c26 // 0x1dcf @0x2
0x1dcd…1df0 at0004 = ╱a9╱ GET ╱ // 0x1dd1 @0x4
0x1dcd…1df0 at0005 = ╱4b╱K╱ // 0x1dd2 @0x5
0x1dcd…1df0 at0006 = ╱4f╱O╱ // 0x1dd3 @0x6
0x1dcd…1df0 at0007 = ╱4e╱N╱ // 0x1dd4 @0x7
0x1dcd…1df0 at0008 = ╱54╱T╱ // 0x1dd5 @0x8
0x1dcd…1df0 at0009 = ╱4f╱O╱ // 0x1dd6 @0x9
0x1dcd…1df0 at000a = ╱ef╱$╱ // 0x1dd7 @0xa
0x1dcd…1df0 at000b = ╱ec╱,╱ // 0x1dd8 @0xb
0x1dcd…1df0 at000c = ╱31╱1╱ // 0x1dd9 @0xc
0x1dcd…1df0 at000d = ╱f20100╱ // 0x1dda @0xd
0x1dcd…1df0 at0010 = ╱f1╱ : ╱ // 0x1ddd @0x10
0x1dcd…1df0 at0011 = ╱4e╱N╱ // 0x1dde @0x11
0x1dcd…1df0 at0012 = ╱5f╱_╱ // 0x1ddf @0x12
0x1dcd…1df0 at0013 = ╱46╱F╱ // 0x1de0 @0x13
0x1dcd…1df0 at0014 = ╱52╱R╱ // 0x1de1 @0x14
0x1dcd…1df0 at0015 = ╱49╱I╱ // 0x1de2 @0x15
0x1dcd…1df0 at0016 = ╱52╱R╱ // 0x1de3 @0x16
0x1dcd…1df0 at0017 = ╱45╱E╱ // 0x1de4 @0x17
0x1dcd…1df0 at0018 = ╱43╱C╱ // 0x1de5 @0x18
0x1dcd…1df0 at0019 = ╱ec╱,╱ // 0x1de6 @0x19
0x1dcd…1df0 at001a = ╱4e╱N╱ // 0x1de7 @0x1a
0x1dcd…1df0 at001b = ╱5f╱_╱ // 0x1de8 @0x1b
0x1dcd…1df0 at001c = ╱4d╱M╱ // 0x1de9 @0x1c
0x1dcd…1df0 at001d = ╱41╱A╱ // 0x1dea @0x1d
0x1dcd…1df0 at001e = ╱58╱X╱ // 0x1deb @0x1e
0x1dcd…1df0 at001f = ╱52╱R╱ // 0x1dec @0x1f
0x1dcd…1df0 at0020 = ╱45╱E╱ // 0x1ded @0x20
0x1dcd…1df0 at0021 = ╱43╱C╱ // 0x1dee @0x21
0x1dcd…1df0 at0022 = EOL // 0x1def @0x22
0x1dcd…1df0 }
0x1df0…1e0b b3f9 3120 PUT KONTO$,RECNR : N_FRIREC
0x1df0…1e0b LineComal80 {
0x1df0…1e0b ptr = 0xb3f9 // 0x1df0 @0x0
0x1df0…1e0b lno = 0x0c30 // 0x1df2 @0x2
0x1df0…1e0b at0004 = ╱aa╱ PUT ╱ // 0x1df4 @0x4
0x1df0…1e0b at0005 = ╱4b╱K╱ // 0x1df5 @0x5
0x1df0…1e0b at0006 = ╱4f╱O╱ // 0x1df6 @0x6
0x1df0…1e0b at0007 = ╱4e╱N╱ // 0x1df7 @0x7
0x1df0…1e0b at0008 = ╱54╱T╱ // 0x1df8 @0x8
0x1df0…1e0b at0009 = ╱4f╱O╱ // 0x1df9 @0x9
0x1df0…1e0b at000a = ╱ef╱$╱ // 0x1dfa @0xa
0x1df0…1e0b at000b = ╱ec╱,╱ // 0x1dfb @0xb
0x1df0…1e0b at000c = ╱52╱R╱ // 0x1dfc @0xc
0x1df0…1e0b at000d = ╱45╱E╱ // 0x1dfd @0xd
0x1df0…1e0b at000e = ╱43╱C╱ // 0x1dfe @0xe
0x1df0…1e0b at000f = ╱4e╱N╱ // 0x1dff @0xf
0x1df0…1e0b at0010 = ╱52╱R╱ // 0x1e00 @0x10
0x1df0…1e0b at0011 = ╱f1╱ : ╱ // 0x1e01 @0x11
0x1df0…1e0b at0012 = ╱4e╱N╱ // 0x1e02 @0x12
0x1df0…1e0b at0013 = ╱5f╱_╱ // 0x1e03 @0x13
0x1df0…1e0b at0014 = ╱46╱F╱ // 0x1e04 @0x14
0x1df0…1e0b at0015 = ╱52╱R╱ // 0x1e05 @0x15
0x1df0…1e0b at0016 = ╱49╱I╱ // 0x1e06 @0x16
0x1df0…1e0b at0017 = ╱52╱R╱ // 0x1e07 @0x17
0x1df0…1e0b at0018 = ╱45╱E╱ // 0x1e08 @0x18
0x1df0…1e0b at0019 = ╱43╱C╱ // 0x1e09 @0x19
0x1df0…1e0b at001a = EOL // 0x1e0a @0x1a
0x1df0…1e0b }
0x1e0b…1e1f b40d 3130 LET N_FRIREC := RECNR
0x1e0b…1e1f LineComal80 {
0x1e0b…1e1f ptr = 0xb40d // 0x1e0b @0x0
0x1e0b…1e1f lno = 0x0c3a // 0x1e0d @0x2
0x1e0b…1e1f at0004 = ╱86╱ LET ╱ // 0x1e0f @0x4
0x1e0b…1e1f at0005 = ╱4e╱N╱ // 0x1e10 @0x5
0x1e0b…1e1f at0006 = ╱5f╱_╱ // 0x1e11 @0x6
0x1e0b…1e1f at0007 = ╱46╱F╱ // 0x1e12 @0x7
0x1e0b…1e1f at0008 = ╱52╱R╱ // 0x1e13 @0x8
0x1e0b…1e1f at0009 = ╱49╱I╱ // 0x1e14 @0x9
0x1e0b…1e1f at000a = ╱52╱R╱ // 0x1e15 @0xa
0x1e0b…1e1f at000b = ╱45╱E╱ // 0x1e16 @0xb
0x1e0b…1e1f at000c = ╱43╱C╱ // 0x1e17 @0xc
0x1e0b…1e1f at000d = ╱f0╱ := ╱ // 0x1e18 @0xd
0x1e0b…1e1f at000e = ╱52╱R╱ // 0x1e19 @0xe
0x1e0b…1e1f at000f = ╱45╱E╱ // 0x1e1a @0xf
0x1e0b…1e1f at0010 = ╱43╱C╱ // 0x1e1b @0x10
0x1e0b…1e1f at0011 = ╱4e╱N╱ // 0x1e1c @0x11
0x1e0b…1e1f at0012 = ╱52╱R╱ // 0x1e1d @0x12
0x1e0b…1e1f at0013 = EOL // 0x1e1e @0x13
0x1e0b…1e1f }
0x1e1f…1e42 b430 3140 PUT KONTO$,1 : N_FRIREC,N_MAXREC
0x1e1f…1e42 LineComal80 {
0x1e1f…1e42 ptr = 0xb430 // 0x1e1f @0x0
0x1e1f…1e42 lno = 0x0c44 // 0x1e21 @0x2
0x1e1f…1e42 at0004 = ╱aa╱ PUT ╱ // 0x1e23 @0x4
0x1e1f…1e42 at0005 = ╱4b╱K╱ // 0x1e24 @0x5
0x1e1f…1e42 at0006 = ╱4f╱O╱ // 0x1e25 @0x6
0x1e1f…1e42 at0007 = ╱4e╱N╱ // 0x1e26 @0x7
0x1e1f…1e42 at0008 = ╱54╱T╱ // 0x1e27 @0x8
0x1e1f…1e42 at0009 = ╱4f╱O╱ // 0x1e28 @0x9
0x1e1f…1e42 at000a = ╱ef╱$╱ // 0x1e29 @0xa
0x1e1f…1e42 at000b = ╱ec╱,╱ // 0x1e2a @0xb
0x1e1f…1e42 at000c = ╱31╱1╱ // 0x1e2b @0xc
0x1e1f…1e42 at000d = ╱f20100╱ // 0x1e2c @0xd
0x1e1f…1e42 at0010 = ╱f1╱ : ╱ // 0x1e2f @0x10
0x1e1f…1e42 at0011 = ╱4e╱N╱ // 0x1e30 @0x11
0x1e1f…1e42 at0012 = ╱5f╱_╱ // 0x1e31 @0x12
0x1e1f…1e42 at0013 = ╱46╱F╱ // 0x1e32 @0x13
0x1e1f…1e42 at0014 = ╱52╱R╱ // 0x1e33 @0x14
0x1e1f…1e42 at0015 = ╱49╱I╱ // 0x1e34 @0x15
0x1e1f…1e42 at0016 = ╱52╱R╱ // 0x1e35 @0x16
0x1e1f…1e42 at0017 = ╱45╱E╱ // 0x1e36 @0x17
0x1e1f…1e42 at0018 = ╱43╱C╱ // 0x1e37 @0x18
0x1e1f…1e42 at0019 = ╱ec╱,╱ // 0x1e38 @0x19
0x1e1f…1e42 at001a = ╱4e╱N╱ // 0x1e39 @0x1a
0x1e1f…1e42 at001b = ╱5f╱_╱ // 0x1e3a @0x1b
0x1e1f…1e42 at001c = ╱4d╱M╱ // 0x1e3b @0x1c
0x1e1f…1e42 at001d = ╱41╱A╱ // 0x1e3c @0x1d
0x1e1f…1e42 at001e = ╱58╱X╱ // 0x1e3d @0x1e
0x1e1f…1e42 at001f = ╱52╱R╱ // 0x1e3e @0x1f
0x1e1f…1e42 at0020 = ╱45╱E╱ // 0x1e3f @0x20
0x1e1f…1e42 at0021 = ╱43╱C╱ // 0x1e40 @0x21
0x1e1f…1e42 at0022 = EOL // 0x1e41 @0x22
0x1e1f…1e42 }
0x1e42…1e66 b454 3150 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
0x1e42…1e66 LineComal80 {
0x1e42…1e66 ptr = 0xb454 // 0x1e42 @0x0
0x1e42…1e66 lno = 0x0c4e // 0x1e44 @0x2
0x1e42…1e66 at0004 = ╱a9╱ GET ╱ // 0x1e46 @0x4
0x1e42…1e66 at0005 = ╱4b╱K╱ // 0x1e47 @0x5
0x1e42…1e66 at0006 = ╱54╱T╱ // 0x1e48 @0x6
0x1e42…1e66 at0007 = ╱4f╱O╱ // 0x1e49 @0x7
0x1e42…1e66 at0008 = ╱49╱I╱ // 0x1e4a @0x8
0x1e42…1e66 at0009 = ╱44╱D╱ // 0x1e4b @0x9
0x1e42…1e66 at000a = ╱58╱X╱ // 0x1e4c @0xa
0x1e42…1e66 at000b = ╱ef╱$╱ // 0x1e4d @0xb
0x1e42…1e66 at000c = ╱ec╱,╱ // 0x1e4e @0xc
0x1e42…1e66 at000d = ╱31╱1╱ // 0x1e4f @0xd
0x1e42…1e66 at000e = ╱f20100╱ // 0x1e50 @0xe
0x1e42…1e66 at0011 = ╱f1╱ : ╱ // 0x1e53 @0x11
0x1e42…1e66 at0012 = ╱49╱I╱ // 0x1e54 @0x12
0x1e42…1e66 at0013 = ╱5f╱_╱ // 0x1e55 @0x13
0x1e42…1e66 at0014 = ╱48╱H╱ // 0x1e56 @0x14
0x1e42…1e66 at0015 = ╱5c╱Ø╱ // 0x1e57 @0x15
0x1e42…1e66 at0016 = ╱4a╱J╱ // 0x1e58 @0x16
0x1e42…1e66 at0017 = ╱52╱R╱ // 0x1e59 @0x17
0x1e42…1e66 at0018 = ╱45╱E╱ // 0x1e5a @0x18
0x1e42…1e66 at0019 = ╱43╱C╱ // 0x1e5b @0x19
0x1e42…1e66 at001a = ╱ec╱,╱ // 0x1e5c @0x1a
0x1e42…1e66 at001b = ╱49╱I╱ // 0x1e5d @0x1b
0x1e42…1e66 at001c = ╱5f╱_╱ // 0x1e5e @0x1c
0x1e42…1e66 at001d = ╱4d╱M╱ // 0x1e5f @0x1d
0x1e42…1e66 at001e = ╱41╱A╱ // 0x1e60 @0x1e
0x1e42…1e66 at001f = ╱58╱X╱ // 0x1e61 @0x1f
0x1e42…1e66 at0020 = ╱52╱R╱ // 0x1e62 @0x20
0x1e42…1e66 at0021 = ╱45╱E╱ // 0x1e63 @0x21
0x1e42…1e66 at0022 = ╱43╱C╱ // 0x1e64 @0x22
0x1e42…1e66 at0023 = EOL // 0x1e65 @0x23
0x1e42…1e66 }
0x1e66…1e84 b472 3160 FOR I := IDXPOS TO _HØJREC - 1 DO
0x1e66…1e84 LineComal80 {
0x1e66…1e84 ptr = 0xb472 // 0x1e66 @0x0
0x1e66…1e84 lno = 0x0c58 // 0x1e68 @0x2
0x1e66…1e84 at0004 = ╱8339╱ FOR ╱ // 0x1e6a @0x4
0x1e66…1e84 at0006 = ╱49╱I╱ // 0x1e6c @0x6
0x1e66…1e84 at0007 = ╱f0╱ := ╱ // 0x1e6d @0x7
0x1e66…1e84 at0008 = ╱49╱I╱ // 0x1e6e @0x8
0x1e66…1e84 at0009 = ╱44╱D╱ // 0x1e6f @0x9
0x1e66…1e84 at000a = ╱58╱X╱ // 0x1e70 @0xa
0x1e66…1e84 at000b = ╱50╱P╱ // 0x1e71 @0xb
0x1e66…1e84 at000c = ╱4f╱O╱ // 0x1e72 @0xc
0x1e66…1e84 at000d = ╱53╱S╱ // 0x1e73 @0xd
0x1e66…1e84 at000e = ╱b749╱ TO ╱ // 0x1e74 @0xe
0x1e66…1e84 at0010 = ╱5f╱_╱ // 0x1e76 @0x10
0x1e66…1e84 at0011 = ╱48╱H╱ // 0x1e77 @0x11
0x1e66…1e84 at0012 = ╱5c╱Ø╱ // 0x1e78 @0x12
0x1e66…1e84 at0013 = ╱4a╱J╱ // 0x1e79 @0x13
0x1e66…1e84 at0014 = ╱52╱R╱ // 0x1e7a @0x14
0x1e66…1e84 at0015 = ╱45╱E╱ // 0x1e7b @0x15
0x1e66…1e84 at0016 = ╱43╱C╱ // 0x1e7c @0x16
0x1e66…1e84 at0017 = ╱e6╱ - ╱ // 0x1e7d @0x17
0x1e66…1e84 at0018 = ╱31╱1╱ // 0x1e7e @0x18
0x1e66…1e84 at0019 = ╱f20100╱ // 0x1e7f @0x19
0x1e66…1e84 at001c = ╱bb╱ DO ╱ // 0x1e82 @0x1c
0x1e66…1e84 at001d = EOL // 0x1e83 @0x1d
0x1e66…1e84 }
0x1e84…1ea5 b493 3170 GET KTOIDX$,I + 1 : KTONR$,RECNR
0x1e84…1ea5 LineComal80 {
0x1e84…1ea5 ptr = 0xb493 // 0x1e84 @0x0
0x1e84…1ea5 lno = 0x0c62 // 0x1e86 @0x2
0x1e84…1ea5 at0004 = ╱a9╱ GET ╱ // 0x1e88 @0x4
0x1e84…1ea5 at0005 = ╱4b╱K╱ // 0x1e89 @0x5
0x1e84…1ea5 at0006 = ╱54╱T╱ // 0x1e8a @0x6
0x1e84…1ea5 at0007 = ╱4f╱O╱ // 0x1e8b @0x7
0x1e84…1ea5 at0008 = ╱49╱I╱ // 0x1e8c @0x8
0x1e84…1ea5 at0009 = ╱44╱D╱ // 0x1e8d @0x9
0x1e84…1ea5 at000a = ╱58╱X╱ // 0x1e8e @0xa
0x1e84…1ea5 at000b = ╱ef╱$╱ // 0x1e8f @0xb
0x1e84…1ea5 at000c = ╱ec╱,╱ // 0x1e90 @0xc
0x1e84…1ea5 at000d = ╱49╱I╱ // 0x1e91 @0xd
0x1e84…1ea5 at000e = ╱e5╱ + ╱ // 0x1e92 @0xe
0x1e84…1ea5 at000f = ╱31╱1╱ // 0x1e93 @0xf
0x1e84…1ea5 at0010 = ╱f20100╱ // 0x1e94 @0x10
0x1e84…1ea5 at0013 = ╱f1╱ : ╱ // 0x1e97 @0x13
0x1e84…1ea5 at0014 = ╱4b╱K╱ // 0x1e98 @0x14
0x1e84…1ea5 at0015 = ╱54╱T╱ // 0x1e99 @0x15
0x1e84…1ea5 at0016 = ╱4f╱O╱ // 0x1e9a @0x16
0x1e84…1ea5 at0017 = ╱4e╱N╱ // 0x1e9b @0x17
0x1e84…1ea5 at0018 = ╱52╱R╱ // 0x1e9c @0x18
0x1e84…1ea5 at0019 = ╱ef╱$╱ // 0x1e9d @0x19
0x1e84…1ea5 at001a = ╱ec╱,╱ // 0x1e9e @0x1a
0x1e84…1ea5 at001b = ╱52╱R╱ // 0x1e9f @0x1b
0x1e84…1ea5 at001c = ╱45╱E╱ // 0x1ea0 @0x1c
0x1e84…1ea5 at001d = ╱43╱C╱ // 0x1ea1 @0x1d
0x1e84…1ea5 at001e = ╱4e╱N╱ // 0x1ea2 @0x1e
0x1e84…1ea5 at001f = ╱52╱R╱ // 0x1ea3 @0x1f
0x1e84…1ea5 at0020 = EOL // 0x1ea4 @0x20
0x1e84…1ea5 }
0x1ea5…1ec1 b4af 3180 PUT KTOIDX$,I : KTONR$,RECNR
0x1ea5…1ec1 LineComal80 {
0x1ea5…1ec1 ptr = 0xb4af // 0x1ea5 @0x0
0x1ea5…1ec1 lno = 0x0c6c // 0x1ea7 @0x2
0x1ea5…1ec1 at0004 = ╱aa╱ PUT ╱ // 0x1ea9 @0x4
0x1ea5…1ec1 at0005 = ╱4b╱K╱ // 0x1eaa @0x5
0x1ea5…1ec1 at0006 = ╱54╱T╱ // 0x1eab @0x6
0x1ea5…1ec1 at0007 = ╱4f╱O╱ // 0x1eac @0x7
0x1ea5…1ec1 at0008 = ╱49╱I╱ // 0x1ead @0x8
0x1ea5…1ec1 at0009 = ╱44╱D╱ // 0x1eae @0x9
0x1ea5…1ec1 at000a = ╱58╱X╱ // 0x1eaf @0xa
0x1ea5…1ec1 at000b = ╱ef╱$╱ // 0x1eb0 @0xb
0x1ea5…1ec1 at000c = ╱ec╱,╱ // 0x1eb1 @0xc
0x1ea5…1ec1 at000d = ╱49╱I╱ // 0x1eb2 @0xd
0x1ea5…1ec1 at000e = ╱f1╱ : ╱ // 0x1eb3 @0xe
0x1ea5…1ec1 at000f = ╱4b╱K╱ // 0x1eb4 @0xf
0x1ea5…1ec1 at0010 = ╱54╱T╱ // 0x1eb5 @0x10
0x1ea5…1ec1 at0011 = ╱4f╱O╱ // 0x1eb6 @0x11
0x1ea5…1ec1 at0012 = ╱4e╱N╱ // 0x1eb7 @0x12
0x1ea5…1ec1 at0013 = ╱52╱R╱ // 0x1eb8 @0x13
0x1ea5…1ec1 at0014 = ╱ef╱$╱ // 0x1eb9 @0x14
0x1ea5…1ec1 at0015 = ╱ec╱,╱ // 0x1eba @0x15
0x1ea5…1ec1 at0016 = ╱52╱R╱ // 0x1ebb @0x16
0x1ea5…1ec1 at0017 = ╱45╱E╱ // 0x1ebc @0x17
0x1ea5…1ec1 at0018 = ╱43╱C╱ // 0x1ebd @0x18
0x1ea5…1ec1 at0019 = ╱4e╱N╱ // 0x1ebe @0x19
0x1ea5…1ec1 at001a = ╱52╱R╱ // 0x1ebf @0x1a
0x1ea5…1ec1 at001b = EOL // 0x1ec0 @0x1b
0x1ea5…1ec1 }
0x1ec1…1ec8 b4b6 3190 NEXT I
0x1ec1…1ec8 LineComal80 {
0x1ec1…1ec8 ptr = 0xb4b6 // 0x1ec1 @0x0
0x1ec1…1ec8 lno = 0x0c76 // 0x1ec3 @0x2
0x1ec1…1ec8 at0004 = ╱84╱ NEXT ╱ // 0x1ec5 @0x4
0x1ec1…1ec8 at0005 = ╱49╱I╱ // 0x1ec6 @0x5
0x1ec1…1ec8 at0006 = EOL // 0x1ec7 @0x6
0x1ec1…1ec8 }
0x1ec8…1ee4 b4d2 3200 LET I_HØJREC := I_HØJREC - 1
0x1ec8…1ee4 LineComal80 {
0x1ec8…1ee4 ptr = 0xb4d2 // 0x1ec8 @0x0
0x1ec8…1ee4 lno = 0x0c80 // 0x1eca @0x2
0x1ec8…1ee4 at0004 = ╱86╱ LET ╱ // 0x1ecc @0x4
0x1ec8…1ee4 at0005 = ╱49╱I╱ // 0x1ecd @0x5
0x1ec8…1ee4 at0006 = ╱5f╱_╱ // 0x1ece @0x6
0x1ec8…1ee4 at0007 = ╱48╱H╱ // 0x1ecf @0x7
0x1ec8…1ee4 at0008 = ╱5c╱Ø╱ // 0x1ed0 @0x8
0x1ec8…1ee4 at0009 = ╱4a╱J╱ // 0x1ed1 @0x9
0x1ec8…1ee4 at000a = ╱52╱R╱ // 0x1ed2 @0xa
0x1ec8…1ee4 at000b = ╱45╱E╱ // 0x1ed3 @0xb
0x1ec8…1ee4 at000c = ╱43╱C╱ // 0x1ed4 @0xc
0x1ec8…1ee4 at000d = ╱f0╱ := ╱ // 0x1ed5 @0xd
0x1ec8…1ee4 at000e = ╱49╱I╱ // 0x1ed6 @0xe
0x1ec8…1ee4 at000f = ╱5f╱_╱ // 0x1ed7 @0xf
0x1ec8…1ee4 at0010 = ╱48╱H╱ // 0x1ed8 @0x10
0x1ec8…1ee4 at0011 = ╱5c╱Ø╱ // 0x1ed9 @0x11
0x1ec8…1ee4 at0012 = ╱4a╱J╱ // 0x1eda @0x12
0x1ec8…1ee4 at0013 = ╱52╱R╱ // 0x1edb @0x13
0x1ec8…1ee4 at0014 = ╱45╱E╱ // 0x1edc @0x14
0x1ec8…1ee4 at0015 = ╱43╱C╱ // 0x1edd @0x15
0x1ec8…1ee4 at0016 = ╱e6╱ - ╱ // 0x1ede @0x16
0x1ec8…1ee4 at0017 = ╱31╱1╱ // 0x1edf @0x17
0x1ec8…1ee4 at0018 = ╱f20100╱ // 0x1ee0 @0x18
0x1ec8…1ee4 at001b = EOL // 0x1ee3 @0x1b
0x1ec8…1ee4 }
0x1ee4…1f08 b4f6 3210 PUT KTOIDX$,1 : I_HØJREC,I_MAXREC
0x1ee4…1f08 LineComal80 {
0x1ee4…1f08 ptr = 0xb4f6 // 0x1ee4 @0x0
0x1ee4…1f08 lno = 0x0c8a // 0x1ee6 @0x2
0x1ee4…1f08 at0004 = ╱aa╱ PUT ╱ // 0x1ee8 @0x4
0x1ee4…1f08 at0005 = ╱4b╱K╱ // 0x1ee9 @0x5
0x1ee4…1f08 at0006 = ╱54╱T╱ // 0x1eea @0x6
0x1ee4…1f08 at0007 = ╱4f╱O╱ // 0x1eeb @0x7
0x1ee4…1f08 at0008 = ╱49╱I╱ // 0x1eec @0x8
0x1ee4…1f08 at0009 = ╱44╱D╱ // 0x1eed @0x9
0x1ee4…1f08 at000a = ╱58╱X╱ // 0x1eee @0xa
0x1ee4…1f08 at000b = ╱ef╱$╱ // 0x1eef @0xb
0x1ee4…1f08 at000c = ╱ec╱,╱ // 0x1ef0 @0xc
0x1ee4…1f08 at000d = ╱31╱1╱ // 0x1ef1 @0xd
0x1ee4…1f08 at000e = ╱f20100╱ // 0x1ef2 @0xe
0x1ee4…1f08 at0011 = ╱f1╱ : ╱ // 0x1ef5 @0x11
0x1ee4…1f08 at0012 = ╱49╱I╱ // 0x1ef6 @0x12
0x1ee4…1f08 at0013 = ╱5f╱_╱ // 0x1ef7 @0x13
0x1ee4…1f08 at0014 = ╱48╱H╱ // 0x1ef8 @0x14
0x1ee4…1f08 at0015 = ╱5c╱Ø╱ // 0x1ef9 @0x15
0x1ee4…1f08 at0016 = ╱4a╱J╱ // 0x1efa @0x16
0x1ee4…1f08 at0017 = ╱52╱R╱ // 0x1efb @0x17
0x1ee4…1f08 at0018 = ╱45╱E╱ // 0x1efc @0x18
0x1ee4…1f08 at0019 = ╱43╱C╱ // 0x1efd @0x19
0x1ee4…1f08 at001a = ╱ec╱,╱ // 0x1efe @0x1a
0x1ee4…1f08 at001b = ╱49╱I╱ // 0x1eff @0x1b
0x1ee4…1f08 at001c = ╱5f╱_╱ // 0x1f00 @0x1c
0x1ee4…1f08 at001d = ╱4d╱M╱ // 0x1f01 @0x1d
0x1ee4…1f08 at001e = ╱41╱A╱ // 0x1f02 @0x1e
0x1ee4…1f08 at001f = ╱58╱X╱ // 0x1f03 @0x1f
0x1ee4…1f08 at0020 = ╱52╱R╱ // 0x1f04 @0x20
0x1ee4…1f08 at0021 = ╱45╱E╱ // 0x1f05 @0x21
0x1ee4…1f08 at0022 = ╱43╱C╱ // 0x1f06 @0x22
0x1ee4…1f08 at0023 = EOL // 0x1f07 @0x23
0x1ee4…1f08 }
0x1f08…1f12 b500 3220 ENDPROC SLET
0x1f08…1f12 LineComal80 {
0x1f08…1f12 ptr = 0xb500 // 0x1f08 @0x0
0x1f08…1f12 lno = 0x0c94 // 0x1f0a @0x2
0x1f08…1f12 at0004 = ╱9f╱ ENDPROC ╱ // 0x1f0c @0x4
0x1f08…1f12 at0005 = ╱53╱S╱ // 0x1f0d @0x5
0x1f08…1f12 at0006 = ╱4c╱L╱ // 0x1f0e @0x6
0x1f08…1f12 at0007 = ╱45╱E╱ // 0x1f0f @0x7
0x1f08…1f12 at0008 = ╱54╱T╱ // 0x1f10 @0x8
0x1f08…1f12 at0009 = EOL // 0x1f11 @0x9
0x1f08…1f12 }
0x1f12…1f2c b51a 3230 PROC FIND_KTO( REF R_KTONR$)
0x1f12…1f2c LineComal80 {
0x1f12…1f2c ptr = 0xb51a // 0x1f12 @0x0
0x1f12…1f2c lno = 0x0c9e // 0x1f14 @0x2
0x1f12…1f2c at0004 = ╱9e3a╱ PROC ╱ // 0x1f16 @0x4
0x1f12…1f2c at0006 = ╱46╱F╱ // 0x1f18 @0x6
0x1f12…1f2c at0007 = ╱49╱I╱ // 0x1f19 @0x7
0x1f12…1f2c at0008 = ╱4e╱N╱ // 0x1f1a @0x8
0x1f12…1f2c at0009 = ╱44╱D╱ // 0x1f1b @0x9
0x1f12…1f2c at000a = ╱5f╱_╱ // 0x1f1c @0xa
0x1f12…1f2c at000b = ╱4b╱K╱ // 0x1f1d @0xb
0x1f12…1f2c at000c = ╱54╱T╱ // 0x1f1e @0xc
0x1f12…1f2c at000d = ╱4f╱O╱ // 0x1f1f @0xd
0x1f12…1f2c at000e = ╱ed╱(╱ // 0x1f20 @0xe
0x1f12…1f2c at000f = ╱b6╱ REF ╱ // 0x1f21 @0xf
0x1f12…1f2c at0010 = ╱52╱R╱ // 0x1f22 @0x10
0x1f12…1f2c at0011 = ╱5f╱_╱ // 0x1f23 @0x11
0x1f12…1f2c at0012 = ╱4b╱K╱ // 0x1f24 @0x12
0x1f12…1f2c at0013 = ╱54╱T╱ // 0x1f25 @0x13
0x1f12…1f2c at0014 = ╱4f╱O╱ // 0x1f26 @0x14
0x1f12…1f2c at0015 = ╱4e╱N╱ // 0x1f27 @0x15
0x1f12…1f2c at0016 = ╱52╱R╱ // 0x1f28 @0x16
0x1f12…1f2c at0017 = ╱ef╱$╱ // 0x1f29 @0x17
0x1f12…1f2c at0018 = ╱ee╱)╱ // 0x1f2a @0x18
0x1f12…1f2c at0019 = EOL // 0x1f2b @0x19
0x1f12…1f2c }
0x1f2c…1f3a b528 3240 LET OK := FALSE
0x1f2c…1f3a LineComal80 {
0x1f2c…1f3a ptr = 0xb528 // 0x1f2c @0x0
0x1f2c…1f3a lno = 0x0ca8 // 0x1f2e @0x2
0x1f2c…1f3a at0004 = ╱86╱ LET ╱ // 0x1f30 @0x4
0x1f2c…1f3a at0005 = ╱4f╱O╱ // 0x1f31 @0x5
0x1f2c…1f3a at0006 = ╱4b╱K╱ // 0x1f32 @0x6
0x1f2c…1f3a at0007 = ╱f0╱ := ╱ // 0x1f33 @0x7
0x1f2c…1f3a at0008 = ╱46╱F╱ // 0x1f34 @0x8
0x1f2c…1f3a at0009 = ╱41╱A╱ // 0x1f35 @0x9
0x1f2c…1f3a at000a = ╱4c╱L╱ // 0x1f36 @0xa
0x1f2c…1f3a at000b = ╱53╱S╱ // 0x1f37 @0xb
0x1f2c…1f3a at000c = ╱45╱E╱ // 0x1f38 @0xc
0x1f2c…1f3a at000d = EOL // 0x1f39 @0xd
0x1f2c…1f3a }
0x1f3a…1f5e b54c 3250 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
0x1f3a…1f5e LineComal80 {
0x1f3a…1f5e ptr = 0xb54c // 0x1f3a @0x0
0x1f3a…1f5e lno = 0x0cb2 // 0x1f3c @0x2
0x1f3a…1f5e at0004 = ╱a9╱ GET ╱ // 0x1f3e @0x4
0x1f3a…1f5e at0005 = ╱4b╱K╱ // 0x1f3f @0x5
0x1f3a…1f5e at0006 = ╱54╱T╱ // 0x1f40 @0x6
0x1f3a…1f5e at0007 = ╱4f╱O╱ // 0x1f41 @0x7
0x1f3a…1f5e at0008 = ╱49╱I╱ // 0x1f42 @0x8
0x1f3a…1f5e at0009 = ╱44╱D╱ // 0x1f43 @0x9
0x1f3a…1f5e at000a = ╱58╱X╱ // 0x1f44 @0xa
0x1f3a…1f5e at000b = ╱ef╱$╱ // 0x1f45 @0xb
0x1f3a…1f5e at000c = ╱ec╱,╱ // 0x1f46 @0xc
0x1f3a…1f5e at000d = ╱31╱1╱ // 0x1f47 @0xd
0x1f3a…1f5e at000e = ╱f20100╱ // 0x1f48 @0xe
0x1f3a…1f5e at0011 = ╱f1╱ : ╱ // 0x1f4b @0x11
0x1f3a…1f5e at0012 = ╱49╱I╱ // 0x1f4c @0x12
0x1f3a…1f5e at0013 = ╱5f╱_╱ // 0x1f4d @0x13
0x1f3a…1f5e at0014 = ╱48╱H╱ // 0x1f4e @0x14
0x1f3a…1f5e at0015 = ╱5c╱Ø╱ // 0x1f4f @0x15
0x1f3a…1f5e at0016 = ╱4a╱J╱ // 0x1f50 @0x16
0x1f3a…1f5e at0017 = ╱52╱R╱ // 0x1f51 @0x17
0x1f3a…1f5e at0018 = ╱45╱E╱ // 0x1f52 @0x18
0x1f3a…1f5e at0019 = ╱43╱C╱ // 0x1f53 @0x19
0x1f3a…1f5e at001a = ╱ec╱,╱ // 0x1f54 @0x1a
0x1f3a…1f5e at001b = ╱49╱I╱ // 0x1f55 @0x1b
0x1f3a…1f5e at001c = ╱5f╱_╱ // 0x1f56 @0x1c
0x1f3a…1f5e at001d = ╱4d╱M╱ // 0x1f57 @0x1d
0x1f3a…1f5e at001e = ╱41╱A╱ // 0x1f58 @0x1e
0x1f3a…1f5e at001f = ╱58╱X╱ // 0x1f59 @0x1f
0x1f3a…1f5e at0020 = ╱52╱R╱ // 0x1f5a @0x20
0x1f3a…1f5e at0021 = ╱45╱E╱ // 0x1f5b @0x21
0x1f3a…1f5e at0022 = ╱43╱C╱ // 0x1f5c @0x22
0x1f3a…1f5e at0023 = EOL // 0x1f5d @0x23
0x1f3a…1f5e }
0x1f5e…1f83 b571 3260 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
0x1f5e…1f83 LineComal80 {
0x1f5e…1f83 ptr = 0xb571 // 0x1f5e @0x0
0x1f5e…1f83 lno = 0x0cbc // 0x1f60 @0x2
0x1f5e…1f83 at0004 = ╱86╱ LET ╱ // 0x1f62 @0x4
0x1f5e…1f83 at0005 = ╱4c╱L╱ // 0x1f63 @0x5
0x1f5e…1f83 at0006 = ╱4f╱O╱ // 0x1f64 @0x6
0x1f5e…1f83 at0007 = ╱57╱W╱ // 0x1f65 @0x7
0x1f5e…1f83 at0008 = ╱f0╱ := ╱ // 0x1f66 @0x8
0x1f5e…1f83 at0009 = ╱31╱1╱ // 0x1f67 @0x9
0x1f5e…1f83 at000a = ╱f20100╱ // 0x1f68 @0xa
0x1f5e…1f83 at000d = ╱ea╱ ; ╱ // 0x1f6b @0xd
0x1f5e…1f83 at000e = ╱48╱H╱ // 0x1f6c @0xe
0x1f5e…1f83 at000f = ╱49╱I╱ // 0x1f6d @0xf
0x1f5e…1f83 at0010 = ╱47╱G╱ // 0x1f6e @0x10
0x1f5e…1f83 at0011 = ╱48╱H╱ // 0x1f6f @0x11
0x1f5e…1f83 at0012 = ╱f0╱ := ╱ // 0x1f70 @0x12
0x1f5e…1f83 at0013 = ╱49╱I╱ // 0x1f71 @0x13
0x1f5e…1f83 at0014 = ╱5f╱_╱ // 0x1f72 @0x14
0x1f5e…1f83 at0015 = ╱48╱H╱ // 0x1f73 @0x15
0x1f5e…1f83 at0016 = ╱5c╱Ø╱ // 0x1f74 @0x16
0x1f5e…1f83 at0017 = ╱4a╱J╱ // 0x1f75 @0x17
0x1f5e…1f83 at0018 = ╱52╱R╱ // 0x1f76 @0x18
0x1f5e…1f83 at0019 = ╱45╱E╱ // 0x1f77 @0x19
0x1f5e…1f83 at001a = ╱43╱C╱ // 0x1f78 @0x1a
0x1f5e…1f83 at001b = ╱ea╱ ; ╱ // 0x1f79 @0x1b
0x1f5e…1f83 at001c = ╱50╱P╱ // 0x1f7a @0x1c
0x1f5e…1f83 at001d = ╱4f╱O╱ // 0x1f7b @0x1d
0x1f5e…1f83 at001e = ╱53╱S╱ // 0x1f7c @0x1e
0x1f5e…1f83 at001f = ╱f0╱ := ╱ // 0x1f7d @0x1f
0x1f5e…1f83 at0020 = ╱32╱2╱ // 0x1f7e @0x20
0x1f5e…1f83 at0021 = ╱f20200╱ // 0x1f7f @0x21
0x1f5e…1f83 at0024 = EOL // 0x1f82 @0x24
0x1f5e…1f83 }
0x1f83…1f94 b582 3270 IF IGH > 1 THEN
0x1f83…1f94 LineComal80 {
0x1f83…1f94 ptr = 0xb582 // 0x1f83 @0x0
0x1f83…1f94 lno = 0x0cc6 // 0x1f85 @0x2
0x1f83…1f94 at0004 = ╱9b3b48╱ IF ╱ // 0x1f87 @0x4
0x1f83…1f94 at0007 = ╱49╱I╱ // 0x1f8a @0x7
0x1f83…1f94 at0008 = ╱47╱G╱ // 0x1f8b @0x8
0x1f83…1f94 at0009 = ╱48╱H╱ // 0x1f8c @0x9
0x1f83…1f94 at000a = ╱e1╱ > ╱ // 0x1f8d @0xa
0x1f83…1f94 at000b = ╱31╱1╱ // 0x1f8e @0xb
0x1f83…1f94 at000c = ╱f20100╱ // 0x1f8f @0xc
0x1f83…1f94 at000f = ╱b5╱ THEN ╱ // 0x1f92 @0xf
0x1f83…1f94 at0010 = EOL // 0x1f93 @0x10
0x1f83…1f94 }
0x1f94…1f9b b589 3280 REPEAT
0x1f94…1f9b LineComal80 {
0x1f94…1f9b ptr = 0xb589 // 0x1f94 @0x0
0x1f94…1f9b lno = 0x0cd0 // 0x1f96 @0x2
0x1f94…1f9b at0004 = ╱973c╱ REPEAT ╱ // 0x1f98 @0x4
0x1f94…1f9b at0006 = EOL // 0x1f9a @0x6
0x1f94…1f9b }
0x1f9b…1fc7 b5b5 3290 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x1f9b…1fc7 LineComal80 {
0x1f9b…1fc7 ptr = 0xb5b5 // 0x1f9b @0x0
0x1f9b…1fc7 lno = 0x0cda // 0x1f9d @0x2
0x1f9b…1fc7 at0004 = ╱86╱ LET ╱ // 0x1f9f @0x4
0x1f9b…1fc7 at0005 = ╱50╱P╱ // 0x1fa0 @0x5
0x1f9b…1fc7 at0006 = ╱4f╱O╱ // 0x1fa1 @0x6
0x1f9b…1fc7 at0007 = ╱53╱S╱ // 0x1fa2 @0x7
0x1f9b…1fc7 at0008 = ╱f0╱ := ╱ // 0x1fa3 @0x8
0x1f9b…1fc7 at0009 = ╱c6╱INT╱ // 0x1fa4 @0x9
0x1f9b…1fc7 at000a = ╱ed╱(╱ // 0x1fa5 @0xa
0x1f9b…1fc7 at000b = ╱ed╱(╱ // 0x1fa6 @0xb
0x1f9b…1fc7 at000c = ╱48╱H╱ // 0x1fa7 @0xc
0x1f9b…1fc7 at000d = ╱49╱I╱ // 0x1fa8 @0xd
0x1f9b…1fc7 at000e = ╱47╱G╱ // 0x1fa9 @0xe
0x1f9b…1fc7 at000f = ╱48╱H╱ // 0x1faa @0xf
0x1f9b…1fc7 at0010 = ╱e6╱ - ╱ // 0x1fab @0x10
0x1f9b…1fc7 at0011 = ╱4c╱L╱ // 0x1fac @0x11
0x1f9b…1fc7 at0012 = ╱4f╱O╱ // 0x1fad @0x12
0x1f9b…1fc7 at0013 = ╱57╱W╱ // 0x1fae @0x13
0x1f9b…1fc7 at0014 = ╱ee╱)╱ // 0x1faf @0x14
0x1f9b…1fc7 at0015 = ╱e8╱ / ╱ // 0x1fb0 @0x15
0x1f9b…1fc7 at0016 = ╱32╱2╱ // 0x1fb1 @0x16
0x1f9b…1fc7 at0017 = ╱f20200╱ // 0x1fb2 @0x17
0x1f9b…1fc7 at001a = ╱e5╱ + ╱ // 0x1fb5 @0x1a
0x1f9b…1fc7 at001b = ╱2e╱.╱ // 0x1fb6 @0x1b
0x1f9b…1fc7 at001c = ╱35╱5╱ // 0x1fb7 @0x1c
0x1f9b…1fc7 at001d = ╱f88000000000000005╱ // 0x1fb8 @0x1d
0x1f9b…1fc7 at0026 = ╱ee╱)╱ // 0x1fc1 @0x26
0x1f9b…1fc7 at0027 = ╱e5╱ + ╱ // 0x1fc2 @0x27
0x1f9b…1fc7 at0028 = ╱4c╱L╱ // 0x1fc3 @0x28
0x1f9b…1fc7 at0029 = ╱4f╱O╱ // 0x1fc4 @0x29
0x1f9b…1fc7 at002a = ╱57╱W╱ // 0x1fc5 @0x2a
0x1f9b…1fc7 at002b = EOL // 0x1fc6 @0x2b
0x1f9b…1fc7 }
0x1fc7…1fe5 b5d3 3300 GET KTOIDX$,POS : KTONR$,RECNR
0x1fc7…1fe5 LineComal80 {
0x1fc7…1fe5 ptr = 0xb5d3 // 0x1fc7 @0x0
0x1fc7…1fe5 lno = 0x0ce4 // 0x1fc9 @0x2
0x1fc7…1fe5 at0004 = ╱a9╱ GET ╱ // 0x1fcb @0x4
0x1fc7…1fe5 at0005 = ╱4b╱K╱ // 0x1fcc @0x5
0x1fc7…1fe5 at0006 = ╱54╱T╱ // 0x1fcd @0x6
0x1fc7…1fe5 at0007 = ╱4f╱O╱ // 0x1fce @0x7
0x1fc7…1fe5 at0008 = ╱49╱I╱ // 0x1fcf @0x8
0x1fc7…1fe5 at0009 = ╱44╱D╱ // 0x1fd0 @0x9
0x1fc7…1fe5 at000a = ╱58╱X╱ // 0x1fd1 @0xa
0x1fc7…1fe5 at000b = ╱ef╱$╱ // 0x1fd2 @0xb
0x1fc7…1fe5 at000c = ╱ec╱,╱ // 0x1fd3 @0xc
0x1fc7…1fe5 at000d = ╱50╱P╱ // 0x1fd4 @0xd
0x1fc7…1fe5 at000e = ╱4f╱O╱ // 0x1fd5 @0xe
0x1fc7…1fe5 at000f = ╱53╱S╱ // 0x1fd6 @0xf
0x1fc7…1fe5 at0010 = ╱f1╱ : ╱ // 0x1fd7 @0x10
0x1fc7…1fe5 at0011 = ╱4b╱K╱ // 0x1fd8 @0x11
0x1fc7…1fe5 at0012 = ╱54╱T╱ // 0x1fd9 @0x12
0x1fc7…1fe5 at0013 = ╱4f╱O╱ // 0x1fda @0x13
0x1fc7…1fe5 at0014 = ╱4e╱N╱ // 0x1fdb @0x14
0x1fc7…1fe5 at0015 = ╱52╱R╱ // 0x1fdc @0x15
0x1fc7…1fe5 at0016 = ╱ef╱$╱ // 0x1fdd @0x16
0x1fc7…1fe5 at0017 = ╱ec╱,╱ // 0x1fde @0x17
0x1fc7…1fe5 at0018 = ╱52╱R╱ // 0x1fdf @0x18
0x1fc7…1fe5 at0019 = ╱45╱E╱ // 0x1fe0 @0x19
0x1fc7…1fe5 at001a = ╱43╱C╱ // 0x1fe1 @0x1a
0x1fc7…1fe5 at001b = ╱4e╱N╱ // 0x1fe2 @0x1b
0x1fc7…1fe5 at001c = ╱52╱R╱ // 0x1fe3 @0x1c
0x1fc7…1fe5 at001d = EOL // 0x1fe4 @0x1d
0x1fc7…1fe5 }
0x1fe5…1ffc b5ea 3310 IF TONR$ > R_KTONR$ THEN
0x1fe5…1ffc LineComal80 {
0x1fe5…1ffc ptr = 0xb5ea // 0x1fe5 @0x0
0x1fe5…1ffc lno = 0x0cee // 0x1fe7 @0x2
0x1fe5…1ffc at0004 = ╱9b3d4b╱ IF ╱ // 0x1fe9 @0x4
0x1fe5…1ffc at0007 = ╱54╱T╱ // 0x1fec @0x7
0x1fe5…1ffc at0008 = ╱4f╱O╱ // 0x1fed @0x8
0x1fe5…1ffc at0009 = ╱4e╱N╱ // 0x1fee @0x9
0x1fe5…1ffc at000a = ╱52╱R╱ // 0x1fef @0xa
0x1fe5…1ffc at000b = ╱ef╱$╱ // 0x1ff0 @0xb
0x1fe5…1ffc at000c = ╱e1╱ > ╱ // 0x1ff1 @0xc
0x1fe5…1ffc at000d = ╱52╱R╱ // 0x1ff2 @0xd
0x1fe5…1ffc at000e = ╱5f╱_╱ // 0x1ff3 @0xe
0x1fe5…1ffc at000f = ╱4b╱K╱ // 0x1ff4 @0xf
0x1fe5…1ffc at0010 = ╱54╱T╱ // 0x1ff5 @0x10
0x1fe5…1ffc at0011 = ╱4f╱O╱ // 0x1ff6 @0x11
0x1fe5…1ffc at0012 = ╱4e╱N╱ // 0x1ff7 @0x12
0x1fe5…1ffc at0013 = ╱52╱R╱ // 0x1ff8 @0x13
0x1fe5…1ffc at0014 = ╱ef╱$╱ // 0x1ff9 @0x14
0x1fe5…1ffc at0015 = ╱b5╱ THEN ╱ // 0x1ffa @0x15
0x1fe5…1ffc at0016 = EOL // 0x1ffb @0x16
0x1fe5…1ffc }
0x1ffc…200a b5f8 3320 LET HIGH := POS
0x1ffc…200a LineComal80 {
0x1ffc…200a ptr = 0xb5f8 // 0x1ffc @0x0
0x1ffc…200a lno = 0x0cf8 // 0x1ffe @0x2
0x1ffc…200a at0004 = ╱86╱ LET ╱ // 0x2000 @0x4
0x1ffc…200a at0005 = ╱48╱H╱ // 0x2001 @0x5
0x1ffc…200a at0006 = ╱49╱I╱ // 0x2002 @0x6
0x1ffc…200a at0007 = ╱47╱G╱ // 0x2003 @0x7
0x1ffc…200a at0008 = ╱48╱H╱ // 0x2004 @0x8
0x1ffc…200a at0009 = ╱f0╱ := ╱ // 0x2005 @0x9
0x1ffc…200a at000a = ╱50╱P╱ // 0x2006 @0xa
0x1ffc…200a at000b = ╱4f╱O╱ // 0x2007 @0xb
0x1ffc…200a at000c = ╱53╱S╱ // 0x2008 @0xc
0x1ffc…200a at000d = EOL // 0x2009 @0xd
0x1ffc…200a }
0x200a…2011 b5ff 3330 ELSE
0x200a…2011 LineComal80 {
0x200a…2011 ptr = 0xb5ff // 0x200a @0x0
0x200a…2011 lno = 0x0d02 // 0x200c @0x2
0x200a…2011 at0004 = ╱9a3e╱ ELSE ╱ // 0x200e @0x4
0x200a…2011 at0006 = EOL // 0x2010 @0x6
0x200a…2011 }
0x2011…2028 b616 3340 IF TONR$ < R_KTONR$ THEN
0x2011…2028 LineComal80 {
0x2011…2028 ptr = 0xb616 // 0x2011 @0x0
0x2011…2028 lno = 0x0d0c // 0x2013 @0x2
0x2011…2028 at0004 = ╱9b3f4b╱ IF ╱ // 0x2015 @0x4
0x2011…2028 at0007 = ╱54╱T╱ // 0x2018 @0x7
0x2011…2028 at0008 = ╱4f╱O╱ // 0x2019 @0x8
0x2011…2028 at0009 = ╱4e╱N╱ // 0x201a @0x9
0x2011…2028 at000a = ╱52╱R╱ // 0x201b @0xa
0x2011…2028 at000b = ╱ef╱$╱ // 0x201c @0xb
0x2011…2028 at000c = ╱e0╱ < ╱ // 0x201d @0xc
0x2011…2028 at000d = ╱52╱R╱ // 0x201e @0xd
0x2011…2028 at000e = ╱5f╱_╱ // 0x201f @0xe
0x2011…2028 at000f = ╱4b╱K╱ // 0x2020 @0xf
0x2011…2028 at0010 = ╱54╱T╱ // 0x2021 @0x10
0x2011…2028 at0011 = ╱4f╱O╱ // 0x2022 @0x11
0x2011…2028 at0012 = ╱4e╱N╱ // 0x2023 @0x12
0x2011…2028 at0013 = ╱52╱R╱ // 0x2024 @0x13
0x2011…2028 at0014 = ╱ef╱$╱ // 0x2025 @0x14
0x2011…2028 at0015 = ╱b5╱ THEN ╱ // 0x2026 @0x15
0x2011…2028 at0016 = EOL // 0x2027 @0x16
0x2011…2028 }
0x2028…2035 b623 3350 LET LOW := POS
0x2028…2035 LineComal80 {
0x2028…2035 ptr = 0xb623 // 0x2028 @0x0
0x2028…2035 lno = 0x0d16 // 0x202a @0x2
0x2028…2035 at0004 = ╱86╱ LET ╱ // 0x202c @0x4
0x2028…2035 at0005 = ╱4c╱L╱ // 0x202d @0x5
0x2028…2035 at0006 = ╱4f╱O╱ // 0x202e @0x6
0x2028…2035 at0007 = ╱57╱W╱ // 0x202f @0x7
0x2028…2035 at0008 = ╱f0╱ := ╱ // 0x2030 @0x8
0x2028…2035 at0009 = ╱50╱P╱ // 0x2031 @0x9
0x2028…2035 at000a = ╱4f╱O╱ // 0x2032 @0xa
0x2028…2035 at000b = ╱53╱S╱ // 0x2033 @0xb
0x2028…2035 at000c = EOL // 0x2034 @0xc
0x2028…2035 }
0x2035…203b b629 3360 ENDIF
0x2035…203b LineComal80 {
0x2035…203b ptr = 0xb629 // 0x2035 @0x0
0x2035…203b lno = 0x0d20 // 0x2037 @0x2
0x2035…203b at0004 = ╱9c╱ ENDIF ╱ // 0x2039 @0x4
0x2035…203b at0005 = EOL // 0x203a @0x5
0x2035…203b }
0x203b…2041 b62f 3370 ENDIF
0x203b…2041 LineComal80 {
0x203b…2041 ptr = 0xb62f // 0x203b @0x0
0x203b…2041 lno = 0x0d2a // 0x203d @0x2
0x203b…2041 at0004 = ╱9c╱ ENDIF ╱ // 0x203f @0x4
0x203b…2041 at0005 = EOL // 0x2040 @0x5
0x203b…2041 }
0x2041…2064 b652 3380 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
0x2041…2064 LineComal80 {
0x2041…2064 ptr = 0xb652 // 0x2041 @0x0
0x2041…2064 lno = 0x0d34 // 0x2043 @0x2
0x2041…2064 at0004 = ╱98╱ UNTIL ╱ // 0x2045 @0x4
0x2041…2064 at0005 = ╱48╱H╱ // 0x2046 @0x5
0x2041…2064 at0006 = ╱49╱I╱ // 0x2047 @0x6
0x2041…2064 at0007 = ╱47╱G╱ // 0x2048 @0x7
0x2041…2064 at0008 = ╱48╱H╱ // 0x2049 @0x8
0x2041…2064 at0009 = ╱e6╱ - ╱ // 0x204a @0x9
0x2041…2064 at000a = ╱4c╱L╱ // 0x204b @0xa
0x2041…2064 at000b = ╱4f╱O╱ // 0x204c @0xb
0x2041…2064 at000c = ╱57╱W╱ // 0x204d @0xc
0x2041…2064 at000d = ╱e2╱ =< ╱ // 0x204e @0xd
0x2041…2064 at000e = ╱31╱1╱ // 0x204f @0xe
0x2041…2064 at000f = ╱f20100╱ // 0x2050 @0xf
0x2041…2064 at0012 = ╱d8╱ OR ╱ // 0x2053 @0x12
0x2041…2064 at0013 = ╱52╱R╱ // 0x2054 @0x13
0x2041…2064 at0014 = ╱5f╱_╱ // 0x2055 @0x14
0x2041…2064 at0015 = ╱4b╱K╱ // 0x2056 @0x15
0x2041…2064 at0016 = ╱54╱T╱ // 0x2057 @0x16
0x2041…2064 at0017 = ╱4f╱O╱ // 0x2058 @0x17
0x2041…2064 at0018 = ╱4e╱N╱ // 0x2059 @0x18
0x2041…2064 at0019 = ╱52╱R╱ // 0x205a @0x19
0x2041…2064 at001a = ╱ef╱$╱ // 0x205b @0x1a
0x2041…2064 at001b = ╱df╱ = ╱ // 0x205c @0x1b
0x2041…2064 at001c = ╱4b╱K╱ // 0x205d @0x1c
0x2041…2064 at001d = ╱54╱T╱ // 0x205e @0x1d
0x2041…2064 at001e = ╱4f╱O╱ // 0x205f @0x1e
0x2041…2064 at001f = ╱4e╱N╱ // 0x2060 @0x1f
0x2041…2064 at0020 = ╱52╱R╱ // 0x2061 @0x20
0x2041…2064 at0021 = ╱ef╱$╱ // 0x2062 @0x21
0x2041…2064 at0022 = EOL // 0x2063 @0x22
0x2041…2064 }
0x2064…2090 b67e 3390 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x2064…2090 LineComal80 {
0x2064…2090 ptr = 0xb67e // 0x2064 @0x0
0x2064…2090 lno = 0x0d3e // 0x2066 @0x2
0x2064…2090 at0004 = ╱86╱ LET ╱ // 0x2068 @0x4
0x2064…2090 at0005 = ╱50╱P╱ // 0x2069 @0x5
0x2064…2090 at0006 = ╱4f╱O╱ // 0x206a @0x6
0x2064…2090 at0007 = ╱53╱S╱ // 0x206b @0x7
0x2064…2090 at0008 = ╱f0╱ := ╱ // 0x206c @0x8
0x2064…2090 at0009 = ╱c6╱INT╱ // 0x206d @0x9
0x2064…2090 at000a = ╱ed╱(╱ // 0x206e @0xa
0x2064…2090 at000b = ╱ed╱(╱ // 0x206f @0xb
0x2064…2090 at000c = ╱48╱H╱ // 0x2070 @0xc
0x2064…2090 at000d = ╱49╱I╱ // 0x2071 @0xd
0x2064…2090 at000e = ╱47╱G╱ // 0x2072 @0xe
0x2064…2090 at000f = ╱48╱H╱ // 0x2073 @0xf
0x2064…2090 at0010 = ╱e6╱ - ╱ // 0x2074 @0x10
0x2064…2090 at0011 = ╱4c╱L╱ // 0x2075 @0x11
0x2064…2090 at0012 = ╱4f╱O╱ // 0x2076 @0x12
0x2064…2090 at0013 = ╱57╱W╱ // 0x2077 @0x13
0x2064…2090 at0014 = ╱ee╱)╱ // 0x2078 @0x14
0x2064…2090 at0015 = ╱e8╱ / ╱ // 0x2079 @0x15
0x2064…2090 at0016 = ╱32╱2╱ // 0x207a @0x16
0x2064…2090 at0017 = ╱f20200╱ // 0x207b @0x17
0x2064…2090 at001a = ╱e5╱ + ╱ // 0x207e @0x1a
0x2064…2090 at001b = ╱2e╱.╱ // 0x207f @0x1b
0x2064…2090 at001c = ╱35╱5╱ // 0x2080 @0x1c
0x2064…2090 at001d = ╱f88000000000000005╱ // 0x2081 @0x1d
0x2064…2090 at0026 = ╱ee╱)╱ // 0x208a @0x26
0x2064…2090 at0027 = ╱e5╱ + ╱ // 0x208b @0x27
0x2064…2090 at0028 = ╱4c╱L╱ // 0x208c @0x28
0x2064…2090 at0029 = ╱4f╱O╱ // 0x208d @0x29
0x2064…2090 at002a = ╱57╱W╱ // 0x208e @0x2a
0x2064…2090 at002b = EOL // 0x208f @0x2b
0x2064…2090 }
0x2090…20ae b69c 3400 GET KTOIDX$,POS : KTONR$,RECNR
0x2090…20ae LineComal80 {
0x2090…20ae ptr = 0xb69c // 0x2090 @0x0
0x2090…20ae lno = 0x0d48 // 0x2092 @0x2
0x2090…20ae at0004 = ╱a9╱ GET ╱ // 0x2094 @0x4
0x2090…20ae at0005 = ╱4b╱K╱ // 0x2095 @0x5
0x2090…20ae at0006 = ╱54╱T╱ // 0x2096 @0x6
0x2090…20ae at0007 = ╱4f╱O╱ // 0x2097 @0x7
0x2090…20ae at0008 = ╱49╱I╱ // 0x2098 @0x8
0x2090…20ae at0009 = ╱44╱D╱ // 0x2099 @0x9
0x2090…20ae at000a = ╱58╱X╱ // 0x209a @0xa
0x2090…20ae at000b = ╱ef╱$╱ // 0x209b @0xb
0x2090…20ae at000c = ╱ec╱,╱ // 0x209c @0xc
0x2090…20ae at000d = ╱50╱P╱ // 0x209d @0xd
0x2090…20ae at000e = ╱4f╱O╱ // 0x209e @0xe
0x2090…20ae at000f = ╱53╱S╱ // 0x209f @0xf
0x2090…20ae at0010 = ╱f1╱ : ╱ // 0x20a0 @0x10
0x2090…20ae at0011 = ╱4b╱K╱ // 0x20a1 @0x11
0x2090…20ae at0012 = ╱54╱T╱ // 0x20a2 @0x12
0x2090…20ae at0013 = ╱4f╱O╱ // 0x20a3 @0x13
0x2090…20ae at0014 = ╱4e╱N╱ // 0x20a4 @0x14
0x2090…20ae at0015 = ╱52╱R╱ // 0x20a5 @0x15
0x2090…20ae at0016 = ╱ef╱$╱ // 0x20a6 @0x16
0x2090…20ae at0017 = ╱ec╱,╱ // 0x20a7 @0x17
0x2090…20ae at0018 = ╱52╱R╱ // 0x20a8 @0x18
0x2090…20ae at0019 = ╱45╱E╱ // 0x20a9 @0x19
0x2090…20ae at001a = ╱43╱C╱ // 0x20aa @0x1a
0x2090…20ae at001b = ╱4e╱N╱ // 0x20ab @0x1b
0x2090…20ae at001c = ╱52╱R╱ // 0x20ac @0x1c
0x2090…20ae at001d = EOL // 0x20ad @0x1d
0x2090…20ae }
0x20ae…20cd b6bb 3410 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
0x20ae…20cd LineComal80 {
0x20ae…20cd ptr = 0xb6bb // 0x20ae @0x0
0x20ae…20cd lno = 0x0d52 // 0x20b0 @0x2
0x20ae…20cd at0004 = ╱8200╱ IF ╱ // 0x20b2 @0x4
0x20ae…20cd at0006 = ╱4b╱K╱ // 0x20b4 @0x6
0x20ae…20cd at0007 = ╱54╱T╱ // 0x20b5 @0x7
0x20ae…20cd at0008 = ╱4f╱O╱ // 0x20b6 @0x8
0x20ae…20cd at0009 = ╱4e╱N╱ // 0x20b7 @0x9
0x20ae…20cd at000a = ╱52╱R╱ // 0x20b8 @0xa
0x20ae…20cd at000b = ╱ef╱$╱ // 0x20b9 @0xb
0x20ae…20cd at000c = ╱df╱ = ╱ // 0x20ba @0xc
0x20ae…20cd at000d = ╱52╱R╱ // 0x20bb @0xd
0x20ae…20cd at000e = ╱5f╱_╱ // 0x20bc @0xe
0x20ae…20cd at000f = ╱4b╱K╱ // 0x20bd @0xf
0x20ae…20cd at0010 = ╱54╱T╱ // 0x20be @0x10
0x20ae…20cd at0011 = ╱4f╱O╱ // 0x20bf @0x11
0x20ae…20cd at0012 = ╱4e╱N╱ // 0x20c0 @0x12
0x20ae…20cd at0013 = ╱52╱R╱ // 0x20c1 @0x13
0x20ae…20cd at0014 = ╱ef╱$╱ // 0x20c2 @0x14
0x20ae…20cd at0015 = ╱b5╱ THEN ╱ // 0x20c3 @0x15
0x20ae…20cd at0016 = ╱86╱ LET ╱ // 0x20c4 @0x16
0x20ae…20cd at0017 = ╱4f╱O╱ // 0x20c5 @0x17
0x20ae…20cd at0018 = ╱4b╱K╱ // 0x20c6 @0x18
0x20ae…20cd at0019 = ╱f0╱ := ╱ // 0x20c7 @0x19
0x20ae…20cd at001a = ╱54╱T╱ // 0x20c8 @0x1a
0x20ae…20cd at001b = ╱52╱R╱ // 0x20c9 @0x1b
0x20ae…20cd at001c = ╱55╱U╱ // 0x20ca @0x1c
0x20ae…20cd at001d = ╱45╱E╱ // 0x20cb @0x1d
0x20ae…20cd at001e = EOL // 0x20cc @0x1e
0x20ae…20cd }
0x20cd…20fe b6ec 3420 IF KTONR$ < R_KTONR$ AND POS = I_HØJREC THEN LET POS := POS + 1
0x20cd…20fe LineComal80 {
0x20cd…20fe ptr = 0xb6ec // 0x20cd @0x0
0x20cd…20fe lno = 0x0d5c // 0x20cf @0x2
0x20cd…20fe at0004 = ╱8200╱ IF ╱ // 0x20d1 @0x4
0x20cd…20fe at0006 = ╱4b╱K╱ // 0x20d3 @0x6
0x20cd…20fe at0007 = ╱54╱T╱ // 0x20d4 @0x7
0x20cd…20fe at0008 = ╱4f╱O╱ // 0x20d5 @0x8
0x20cd…20fe at0009 = ╱4e╱N╱ // 0x20d6 @0x9
0x20cd…20fe at000a = ╱52╱R╱ // 0x20d7 @0xa
0x20cd…20fe at000b = ╱ef╱$╱ // 0x20d8 @0xb
0x20cd…20fe at000c = ╱e0╱ < ╱ // 0x20d9 @0xc
0x20cd…20fe at000d = ╱52╱R╱ // 0x20da @0xd
0x20cd…20fe at000e = ╱5f╱_╱ // 0x20db @0xe
0x20cd…20fe at000f = ╱4b╱K╱ // 0x20dc @0xf
0x20cd…20fe at0010 = ╱54╱T╱ // 0x20dd @0x10
0x20cd…20fe at0011 = ╱4f╱O╱ // 0x20de @0x11
0x20cd…20fe at0012 = ╱4e╱N╱ // 0x20df @0x12
0x20cd…20fe at0013 = ╱52╱R╱ // 0x20e0 @0x13
0x20cd…20fe at0014 = ╱ef╱$╱ // 0x20e1 @0x14
0x20cd…20fe at0015 = ╱d9╱ AND ╱ // 0x20e2 @0x15
0x20cd…20fe at0016 = ╱50╱P╱ // 0x20e3 @0x16
0x20cd…20fe at0017 = ╱4f╱O╱ // 0x20e4 @0x17
0x20cd…20fe at0018 = ╱53╱S╱ // 0x20e5 @0x18
0x20cd…20fe at0019 = ╱df╱ = ╱ // 0x20e6 @0x19
0x20cd…20fe at001a = ╱49╱I╱ // 0x20e7 @0x1a
0x20cd…20fe at001b = ╱5f╱_╱ // 0x20e8 @0x1b
0x20cd…20fe at001c = ╱48╱H╱ // 0x20e9 @0x1c
0x20cd…20fe at001d = ╱5c╱Ø╱ // 0x20ea @0x1d
0x20cd…20fe at001e = ╱4a╱J╱ // 0x20eb @0x1e
0x20cd…20fe at001f = ╱52╱R╱ // 0x20ec @0x1f
0x20cd…20fe at0020 = ╱45╱E╱ // 0x20ed @0x20
0x20cd…20fe at0021 = ╱43╱C╱ // 0x20ee @0x21
0x20cd…20fe at0022 = ╱b5╱ THEN ╱ // 0x20ef @0x22
0x20cd…20fe at0023 = ╱86╱ LET ╱ // 0x20f0 @0x23
0x20cd…20fe at0024 = ╱50╱P╱ // 0x20f1 @0x24
0x20cd…20fe at0025 = ╱4f╱O╱ // 0x20f2 @0x25
0x20cd…20fe at0026 = ╱53╱S╱ // 0x20f3 @0x26
0x20cd…20fe at0027 = ╱f0╱ := ╱ // 0x20f4 @0x27
0x20cd…20fe at0028 = ╱50╱P╱ // 0x20f5 @0x28
0x20cd…20fe at0029 = ╱4f╱O╱ // 0x20f6 @0x29
0x20cd…20fe at002a = ╱53╱S╱ // 0x20f7 @0x2a
0x20cd…20fe at002b = ╱e5╱ + ╱ // 0x20f8 @0x2b
0x20cd…20fe at002c = ╱31╱1╱ // 0x20f9 @0x2c
0x20cd…20fe at002d = ╱f20100╱ // 0x20fa @0x2d
0x20cd…20fe at0030 = EOL // 0x20fd @0x30
0x20cd…20fe }
0x20fe…2104 b6f2 3430 ENDIF
0x20fe…2104 LineComal80 {
0x20fe…2104 ptr = 0xb6f2 // 0x20fe @0x0
0x20fe…2104 lno = 0x0d66 // 0x2100 @0x2
0x20fe…2104 at0004 = ╱9c╱ ENDIF ╱ // 0x2102 @0x4
0x20fe…2104 at0005 = EOL // 0x2103 @0x5
0x20fe…2104 }
0x2104…2116 b704 3440 LET FIND_KTO := POS
0x2104…2116 LineComal80 {
0x2104…2116 ptr = 0xb704 // 0x2104 @0x0
0x2104…2116 lno = 0x0d70 // 0x2106 @0x2
0x2104…2116 at0004 = ╱86╱ LET ╱ // 0x2108 @0x4
0x2104…2116 at0005 = ╱46╱F╱ // 0x2109 @0x5
0x2104…2116 at0006 = ╱49╱I╱ // 0x210a @0x6
0x2104…2116 at0007 = ╱4e╱N╱ // 0x210b @0x7
0x2104…2116 at0008 = ╱44╱D╱ // 0x210c @0x8
0x2104…2116 at0009 = ╱5f╱_╱ // 0x210d @0x9
0x2104…2116 at000a = ╱4b╱K╱ // 0x210e @0xa
0x2104…2116 at000b = ╱54╱T╱ // 0x210f @0xb
0x2104…2116 at000c = ╱4f╱O╱ // 0x2110 @0xc
0x2104…2116 at000d = ╱f0╱ := ╱ // 0x2111 @0xd
0x2104…2116 at000e = ╱50╱P╱ // 0x2112 @0xe
0x2104…2116 at000f = ╱4f╱O╱ // 0x2113 @0xf
0x2104…2116 at0010 = ╱53╱S╱ // 0x2114 @0x10
0x2104…2116 at0011 = EOL // 0x2115 @0x11
0x2104…2116 }
0x2116…2124 (110,) 0000 3450 ENDPROC FIND_KTO
0x2116…2124 LineComal80 {
0x2116…2124 ptr = 0x0000 // 0x2116 @0x0
0x2116…2124 lno = 0x0d7a // 0x2118 @0x2
0x2116…2124 at0004 = ╱9f╱ ENDPROC ╱ // 0x211a @0x4
0x2116…2124 at0005 = ╱46╱F╱ // 0x211b @0x5
0x2116…2124 at0006 = ╱49╱I╱ // 0x211c @0x6
0x2116…2124 at0007 = ╱4e╱N╱ // 0x211d @0x7
0x2116…2124 at0008 = ╱44╱D╱ // 0x211e @0x8
0x2116…2124 at0009 = ╱5f╱_╱ // 0x211f @0x9
0x2116…2124 at000a = ╱4b╱K╱ // 0x2120 @0xa
0x2116…2124 at000b = ╱54╱T╱ // 0x2121 @0xb
0x2116…2124 at000c = ╱4f╱O╱ // 0x2122 @0xc
0x2116…2124 at000d = EOL // 0x2123 @0xd
0x2116…2124 }
0x2124…2140 f3 a5 40 06 83 00 49 f0 31 f2 01 00 b7 32 f2 02 00 bb ff f9 a6 b8 06 ac 50 52 4f 47 ┆ @ I 1 2 PROG┆
0x2140…2160 52 41 4d ef ff 78 ac 7a 08 86 41 5f 4b 54 4f 5f 54 59 50 45 ef f0 22 41 22 ff f3 a5 40 06 83 18 ┆RAM x z A_KTO_TYPE "A" @ ┆
0x2160…2163 49 f0 31 ┆I 1┆
0x2163…216d (111,) f2 01 00 b7 33 f2 03 00 bb ff ┆ 3 ┆
0x216d…2173 (112,) ee 95 ee 95 00 00 ┆ ┆