|
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: 17540 (0x4484)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSUKY.B«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSUKY.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 FKT_MENU
0280 CHAIN PROGRAM$
0290 // =========== Procedurer starter ==============
0300 PROC DIMENSIONER
0310 // Standard variable
0320 DIM SPC$ OF 80,SVAR$ OF 10,PRGFL$ OF 8,ALFA$ OF 28,TAL$ OF 10
0330 DIM PROGRAM$ OF 17,PRTNR$ OF 1
0340 REAL RESRV,PPAR
0350 INTEGER OK,TRUE,FALSE,I,J
0360 // Hjælpevariable
0370 DIM A_KTONR$ OF 8,OUT_WAY$ OF 1
0380 REAL TOT(2)
0390 INTEGER IDXPOS,HIGH,LOW,KREDIT,DEBET,LIN_T,MAX_LIN,T_IDX,K,NUL,F_IDX
0400 INTEGER SIDENR
0410 // Variable til filen SYSPARA
0420 DIM SYSPARA$ OF 17
0430 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0440 DIM DATAFL$ OF 8,T_KODE$ OF 1
0450 // Variable til filen @@PARAM
0460 DIM PARAM$ OF 17
0470 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0480 REAL MOMS
0490 DIM ST_DATO$ OF 6
0500 INTEGER ANT_PER,PER_NR
0510 // Variable til filen @@KONTO
0520 DIM KONTO$ OF 17
0530 INTEGER N_FRIREC,N_MAXREC
0540 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0550 REAL KTO_PRIMO,KTO_ULTIMO
0560 INTEGER KTO_FP,KTO_SP
0570 // Variable til filen @@KTOIDX
0580 DIM KTOIDX$ OF 17
0590 INTEGER I_HØJREC,I_MAXREC
0600 DIM KTONR$ OF 8
0610 INTEGER RECNR
0620 // Variable til filen @@ST_KTO
0630 DIM ST_KTO$ OF 17
0640 DIM KASSE_KTO$ OF 8,BANK_KTO$ OF 8,GIRO_KTO$ OF 8
0650 DIM K_DIFF_KTO$ OF 8,INDMOMS_KTO$ OF 8,UDMOMS_KTO$ OF 8
0660 // Variable til filen @@TRANS
0670 DIM TRANS$ OF 17
0680 INTEGER T_HØJREC,T_MAXREC
0690 DIM BKTONR$ OF 8,BDATO$ OF 6,BLGNR$ OF 5,BTXT$ OF 20
0700 REAL BMOMS,BBELØB
0710 INTEGER DK,NTRANS
0720 ENDPROC DIMENSIONER
0730
0740 PROC INITIER
0750 LET PRGFL$ := "DP2"
0760 LET PROGRAM$ := PRGFL$ + ":SYSU"
0770 LET TAL$ := "0123456789" ; NULR := 0
0780 FOR I := ╱cc╱ ("A") TO ("Å") DO LET ALFA$ := ALFA$ + CHR$ (I)
0790 LET SPC$ := " "
0800 LET SPC$ := SPC$ + SPC$
0810 LET FALSE := 0 ; TRUE := 1 // boolske variable
0820 LET KREDIT := - 1 ; DEBET := 1
0830 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0840 EXEC OPENFIL(SYSPARA$,"R")
0850 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0860 EXEC TERMINAL_IDX
0870 CLOSE SYSPARA$
0880 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0890 EXEC OPENFIL(PARAM$,"R")
0900 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0910 GET PARAM$,2 : ST_DATO$,ANT_PER,PER_NR
0920 CLOSE PARAM$
0930 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0940 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0950 LET ST_KTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "ST_KTO"
0960 LET TRANS$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "TRANS"
0970 EXEC OPENFIL(KTOIDX$,"R")
0980 EXEC OPENFIL(KONTO$,"R")
0990 EXEC OPENFIL(TRANS$,"R")
1000 ENDPROC INITIER
1010
1020 PROC TERMINAL_IDX
1030 LET PPAR := 5 ; RESRV := 0
1040 CALL :PRES"
1050 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
1060 ENDPROC TERMINAL_IDX
1070
1080 PROC OPENFIL(FNAVN$,WAY$)
1090 REPEAT
1100 IF AY$ = "W" OR WAY$ = "w" THEN
1110 OPEN FNAVN$,W
1120 ELSE
1130 OPEN FNAVN$,R
1140 ENDIF
1150 IF (FNAVN$) THEN
1160 PRINT "<SC0123>" ; CHR$ (7)
1170 IF (FNAVN$) = 6 THEN
1180 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk RETURN ***"
1190 INPUT "" : SVAR$
1200 ELSE
1210 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
1220 PRINT "<S>" ; FNAVN$ ; " ***"
1230 INPUT "" : SVAR$
1240 PRINT "<C0102>" ; SPC$
1250 ENDIF
1260 ENDIF
1270 UNTIL NOT ╱cd╱ (FNAVN$)
1280 ENDPROC OPENFIL
1290
1300 PROC TAL_CONTROL( REF RST$)
1310 LET J := 0 ; OK := TRUE
1320 FOR I := 1 TO (RST$) DO
1330 IF RST$(I) IN TAL$ + "." THEN LET J := J + 1 ; RST$(J) := RST$(I)
1340 NEXT I
1350 IF = 0 THEN
1360 LET OK := FALSE
1370 ELSE
1380 LET RST$ := RST$(1 : J)
1390 ENDIF
1400 ENDPROC TAL_CONTROL
1410
1420 PROC OVERSKRIFT(ST$,L)
1430 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
1440 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
1450 PRINT SYST_DAT$(5 : 2)
1460 CURSOR 34 - ╱cb╱ (ST$) DIV 2,L
1470 PRINT "*** " ; ST$ ; " ***"
1480 ENDPROC OVERSKRIFT
1490
1500 PROC SL_FEJLLINIE
1510 LET OK := TRUE
1520 PRINT "<C0102>" ; SPC$
1530 ENDPROC SL_FEJLLINIE
1540
1550 PROC FEJL(ST$)
1560 LET OK := FALSE
1570 CURSOR 36 - ╱cb╱ (ST$) / 2,2
1580 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
1590 ENDPROC FEJL
1600
1610 PROC LÆS_KONTO(P)
1620 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
1630 ENDPROC LÆS_KONTO
1640
1650 PROC SKRIV_KONTO(P)
1660 PUT KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
1670 ENDPROC SKRIV_KONTO
1680
1690 PROC LÆS_TRANS(P)
1700 GET TRANS$,P : BKTONR$,BDATO$,BLGNR$,BTXT$,BMOMS,BBELØB,DK,NTRANS
1710 ENDPROC LÆS_TRANS
1720
1730 PROC ST_BGST( REF RST$)
1740 FOR I := 1 TO (RST$) DO
1750 IF RST$(I) =< "å" AND RST$(I) >= "a" THEN LET RST$(I) := CHR$ ( ╱cc╱ (RST$(I)) - 32)
1760 NEXT I
1770 ENDPROC ST_BGST
1780 PROC FKT_MENU
1790 REPEAT
1800 EXEC OVERSKRIFT("Udskrivning af kontokort",6)
1810 LET A_KTONR$ := ""
1820 REPEAT
1830 EDIT "<C2810>Fra kontonr: " : A_KTONR$
1840 EXEC SL_FEJLLINIE
1850 LET F_IDX := FIND_KTO(A_KTONR$)
1860 IF NOT OK THEN EXEC FEJL("Kontonr findes ikke")
1870 UNTIL OK
1880 LET A_KTONR$ := ""
1890 REPEAT
1900 EDIT "<C2812>Til kontonr: " : A_KTONR$
1910 EXEC SL_FEJLLINIE
1920 LET T_IDX := FIND_KTO(A_KTONR$)
1930 IF OK THEN
1940 EXEC FEJL("Kontonr findes ikke")
1950 ELSE
1960 IF T_IDX < F_IDX THEN EXEC FEJL("Fra kontonr > Til kontonr")
1970 ENDIF
1980 UNTIL OK
1990 LET OUT_WAY$ := "P"
2000 REPEAT
2010 EDIT "<SC1814>Udskrift på (P)rinter eller (S)kærm? " : OUT_WAY$
2020 EXEC SL_FEJLLINIE
2030 EXEC ST_BGST(OUT_WAY$)
2040 IF "/" + OUT_WAY$ + "/" IN "/S/P/" THEN
2050 EXEC FEJL("Ukendt svar: '" + OUT_WAY$ + "'")
2060 ENDIF
2070 UNTIL OK
2090 EXEC UDSKRIV
2100 CLEAR
2110 LET SVAR$ := "n"
2120 EDIT "<C2012>Udskrivning af flere kontokort (j/n)? " : SVAR$(1)
2130 UNTIL NOT "/" + SVAR$ + "/" IN "/J/j/"
2140 ENDPROC FKT_MENU
2150
2160 PROC UDSKRIV
2170 IF UT_WAY$ = "P" THEN
2170 EXEC PRINTRES("smal EDB-liste",16)
2190 LET MAX_LIN := 36
2200 ELSE
2210 LET MAX_LIN := 24
2220 ENDIF
2230 FOR IDXPOS := F_IDX TO _IDX DO
2240 LET SIDENR := 0 ; TOT(1),TOT(2) := 0 ; LIN_T := 40
2250 GET KTOIDX$,IDXPOS : KTONR$,RECNR
2260 EXEC LÆS_KONTO(RECNR)
2270 IF TO_TYPE$ = "A" THEN
2270 LET BLGNR$ := " " ; BTXT$ := "GAMMEL SALDO"
2280 LET BMOMS := 0 ; DK := SGN(KTO_PRIMO)
2300 LET KTO_PRIMO := ABS(KTO_PRIMO)
2310 EXEC SKRIV_LIN(ST_DATO$,BLGNR$,BTXT$,BMOMS,KTO_PRIMO,DK)
2320 IF TO_FP > 0 THEN
2330 LET NTRANS := KTO_FP
2340 REPEAT
2350 EXEC LÆS_TRANS(NTRANS)
2410 EXEC SKRIV_LIN(BDATO$,BLGNR$,BTXT$,BMOMS,BBELØB,DK)
2420 UNTIL NTRANS = 0
2430 ENDIF
2440 EXEC AFSLUT
2450 ENDIF
2460 NEXT IDXPOS
2470 IF UT_WAY$ = "P" THEN
2480 EXEC PRINTREL
2490 ELSE
2500 INPUT "<SC5023>Næste side - tryk RETURN" : SVAR$(1)
2510 ENDIF
2520 ENDPROC UDSKRIV
2530
2480 PROC SIDESKIFT
2490 IF OT(1) > 0 OR TOT(2) > 0 THEN
2500 PRINT "<S>---------------------------------------"
2510 PRINT "---------------------------------------"
2520 PRINT TAB(18) ; "TRANSPORT" ; TAB(54) ; CHR$ (TOT(1),9,2) ; TAB(67) ;
2530 PRINT CHR$ (TOT(2),9,2)
2540 LET LIN_T := LIN_T + 2
2550 EXEC NYSIDE
2560 PRINT TAB(18) ; "TRANSPORT" ; TAB(54) ; CHR$ (TOT(1),9,2) ; TAB(67) ;
2570 PRINT CHR$ (TOT(2),9,2)
2580 LET LIN_T := LIN_T + 1
2590 ELSE
2600 EXEC NYSIDE
2610 ENDIF
2620 ENDPROC SIDESKIFT
2630 PROC NYSIDE
2640 IF UT_WAY$ = "P" THEN
2650 FOR I := LIN_T TO AX_LIN DO PRINT
2660 ELSE
2670 INPUT "<SC5523>Næste side - tryk RETURN" : SVAR$
2680 CLEAR
2690 ENDIF
2700 LET LIN_T := 9 ; SIDENR := SIDENR + 1
2710 PRINT "*** " ; SYST_NAVN$ ; " ***" ; TAB(41) ;
2720 PRINT "*** UDSKREVET PR. " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "." ;
2730 PRINT SYST_DAT$(5 : 2) ; " *** SIDE: " ; SIDENR
2740 PRINT
2750 PRINT "Firmanavn: " ; FIRMANAVN$ ; TAB(54) ; "** KONTOKORT **"
2760 PRINT
2770 PRINT "** KONTONR: " ; KTONR$ ; TAB(25) ; "KONTONAVN: " ; KTO_NAVN$ ; TAB(77) ; "**"
2780 PRINT "<S>---------------------------------------"
2790 PRINT "---------------------------------------"
2800 PRINT "<S> DATO BILAG TEKST" ; TAB(47) ; "MOMSBELØB DEBETBELØB"
2810 PRINT " KREDITBELØB"
2820 PRINT "<S>---------------------------------------"
2830 PRINT "---------------------------------------"
2840 ENDPROC NYSIDE
2850
2860 PROC SKRIV_LIN(Q_D$,Q_B$,Q_T$,Q_M,Q_K,Q_DK)
2870 IF LIN_T + 6 > MAX_LIN THEN EXEC SIDESKIFT
2880 LET LIN_T := LIN_T + 1
2890 PRINT Q_D$(1 : 2) ; "." ; Q_D$(3 : 2) ; "." ; Q_D$(5 : 2) ; TAB(11) ;
2900 PRINT Q_B$ ; TAB(11) ; Q_B$ ; TAB(18) ; Q_T$ ; TAB(41) ;
2910 IF Q_M > 0 THEN PRINT CHR$ (Q_M,9,2) ;
2920 IF _DK = DEBET THEN
2930 PRINT TAB(54) ; CHR$ (Q_K,9,2) ;
2940 LET TOT(1) := TOT(1) + Q_K
2950 ELSE
2960 PRINT TAB(67) ; CHR$ (Q_K,9,2) ;
2970 LET TOT(2) := TOT(2) + Q_K
2980 ENDIF
2990 PRINT
3000 ENDPROC SKRIV_LIN
3010
3020 PROC AFSLUT
3030 FOR I := LIN_T TO AX_LIN - 6 DO PRINT
3040 LET LIN_T := MAX_LIN - 5
3050 PRINT "<S>---------------------------------------"
3060 PRINT "---------------------------------------"
3070 PRINT TAB(54) ; CHR$ (TOT(1),9,2) ; TAB(67) ; CHR$ (TOT(2),9,2)
3080 PRINT TAB(18) ; "NY SALDO " ;
3090 IF OT(1) - TOT(2) > 0 THEN
3100 PRINT TAB(67) ; CHR$ (TOT(1) - TOT(2),9,2)
3110 LET TOT(2) := TOT(1)
3120 ELSE
3130 PRINT TAB(54) ; CHR$ (TOT(2) - TOT(1),9,2)
3140 LET TOT(1) := TOT(2)
3150 ENDIF
3160 PRINT TAB(18) ; "BALANCE" ; TAB(54) ; CHR$ (TOT(1),9,2) ; " " ; CHR$ (TOT(1),9,2)
3170 IF UT_WAY$ = "P" THEN
3180 PRINT
3190 PRINT
3200 ENDIF
3210 ENDPROC AFSLUT
3220 PROC FIND_KTO( REF R_KTONR$)
3230 LET OK := FALSE
3240 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
3250 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
3260 IF IGH > 1 THEN
3270 REPEAT
3280 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
3290 GET KTOIDX$,POS : KTONR$,RECNR
3300 IF TONR$ > R_KTONR$ THEN
3270 LET HIGH := POS
3280 ELSE
3290 IF TONR$ < R_KTONR$ THEN
3300 LET LOW := POS
3310 ENDIF
3320 ENDIF
3330 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
3340 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
3350 GET KTOIDX$,POS : KTONR$,RECNR
3360 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
3370 ENDIF
3380 LET FIND_KTO := POS
3390 ENDPROC FIND_KTO
3400 //
3410 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
3420 LET PRTNR$ := "1" ; OK := TRUE
3430 REPEAT
3440 CURSOR 15,LINE
3450 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
3460 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
3490 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
3500 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
3510 INPUT "" : SVAR$
3520 SELECT OUTPUT "P" + PRTNR$
3530 IF ("P") THEN
3540 CURSOR 12,LINE
3550 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
3560 CURSOR 12,LINE + 1
3570 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
3580 IF VAR$ = "J" OR SVAR$ = "j" THEN
3590 CURSOR 12,LINE
3600 PRINT "<Z> Der ventes på at printeren bliver ledig...."
3610 PRINT "<SZ>"
3620 WHILE ╱cd╱ ("P") DO
3630 LET SEK := ╱ca╱ (5)
3640 SELECT OUTPUT "P" + PRTNR$
3650 ENDWHILE
3660 ELSE
3670 LET OK := FALSE
3680 ENDIF
3690 ENDIF
3700 CURSOR 1,LINE
3710 PRINT "<Z>"
3720 PRINT "<SZ>"
3730 ENDPROC PRINTRES
3740 //
3750 PROC PRINTREL // RELEASE PRINTER
3760 SELECT OUTPUT "T"
3770 ENDPROC PRINTREL
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…0374 9962 0270 EXEC FKT_MENU
0x0366…0374 LineComal80 {
0x0366…0374 ptr = 0x9962 // 0x366 @0x0
0x0366…0374 lno = 0x010e // 0x368 @0x2
0x0366…0374 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0374 at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…0374 at0006 = ╱4b╱K╱ // 0x36c @0x6
0x0366…0374 at0007 = ╱54╱T╱ // 0x36d @0x7
0x0366…0374 at0008 = ╱5f╱_╱ // 0x36e @0x8
0x0366…0374 at0009 = ╱4d╱M╱ // 0x36f @0x9
0x0366…0374 at000a = ╱45╱E╱ // 0x370 @0xa
0x0366…0374 at000b = ╱4e╱N╱ // 0x371 @0xb
0x0366…0374 at000c = ╱55╱U╱ // 0x372 @0xc
0x0366…0374 at000d = EOL // 0x373 @0xd
0x0366…0374 }
0x0374…0382 9970 0280 CHAIN PROGRAM$
0x0374…0382 LineComal80 {
0x0374…0382 ptr = 0x9970 // 0x374 @0x0
0x0374…0382 lno = 0x0118 // 0x376 @0x2
0x0374…0382 at0004 = ╱ac╱ CHAIN ╱ // 0x378 @0x4
0x0374…0382 at0005 = ╱50╱P╱ // 0x379 @0x5
0x0374…0382 at0006 = ╱52╱R╱ // 0x37a @0x6
0x0374…0382 at0007 = ╱4f╱O╱ // 0x37b @0x7
0x0374…0382 at0008 = ╱47╱G╱ // 0x37c @0x8
0x0374…0382 at0009 = ╱52╱R╱ // 0x37d @0x9
0x0374…0382 at000a = ╱41╱A╱ // 0x37e @0xa
0x0374…0382 at000b = ╱4d╱M╱ // 0x37f @0xb
0x0374…0382 at000c = ╱ef╱$╱ // 0x380 @0xc
0x0374…0382 at000d = EOL // 0x381 @0xd
0x0374…0382 }
0x0382…03b5 99a3 0290 // =========== Procedurer starter ==============
0x0382…03b5 LineComal80 {
0x0382…03b5 ptr = 0x99a3 // 0x382 @0x0
0x0382…03b5 lno = 0x0122 // 0x384 @0x2
0x0382…03b5 at0004 = ╱89╱ // ╱ // 0x386 @0x4
0x0382…03b5 at0005 = ╱3d╱=╱ // 0x387 @0x5
0x0382…03b5 at0006 = ╱3d╱=╱ // 0x388 @0x6
0x0382…03b5 at0007 = ╱3d╱=╱ // 0x389 @0x7
0x0382…03b5 at0008 = ╱3d╱=╱ // 0x38a @0x8
0x0382…03b5 at0009 = ╱3d╱=╱ // 0x38b @0x9
0x0382…03b5 at000a = ╱3d╱=╱ // 0x38c @0xa
0x0382…03b5 at000b = ╱3d╱=╱ // 0x38d @0xb
0x0382…03b5 at000c = ╱3d╱=╱ // 0x38e @0xc
0x0382…03b5 at000d = ╱3d╱=╱ // 0x38f @0xd
0x0382…03b5 at000e = ╱3d╱=╱ // 0x390 @0xe
0x0382…03b5 at000f = ╱3d╱=╱ // 0x391 @0xf
0x0382…03b5 at0010 = ╱20╱…╱ // 0x392 @0x10
0x0382…03b5 at0011 = ╱50╱P╱ // 0x393 @0x11
0x0382…03b5 at0012 = ╱72╱r╱ // 0x394 @0x12
0x0382…03b5 at0013 = ╱6f╱o╱ // 0x395 @0x13
0x0382…03b5 at0014 = ╱63╱c╱ // 0x396 @0x14
0x0382…03b5 at0015 = ╱65╱e╱ // 0x397 @0x15
0x0382…03b5 at0016 = ╱64╱d╱ // 0x398 @0x16
0x0382…03b5 at0017 = ╱75╱u╱ // 0x399 @0x17
0x0382…03b5 at0018 = ╱72╱r╱ // 0x39a @0x18
0x0382…03b5 at0019 = ╱65╱e╱ // 0x39b @0x19
0x0382…03b5 at001a = ╱72╱r╱ // 0x39c @0x1a
0x0382…03b5 at001b = ╱20╱…╱ // 0x39d @0x1b
0x0382…03b5 at001c = ╱73╱s╱ // 0x39e @0x1c
0x0382…03b5 at001d = ╱74╱t╱ // 0x39f @0x1d
0x0382…03b5 at001e = ╱61╱a╱ // 0x3a0 @0x1e
0x0382…03b5 at001f = ╱72╱r╱ // 0x3a1 @0x1f
0x0382…03b5 at0020 = ╱74╱t╱ // 0x3a2 @0x20
0x0382…03b5 at0021 = ╱65╱e╱ // 0x3a3 @0x21
0x0382…03b5 at0022 = ╱72╱r╱ // 0x3a4 @0x22
0x0382…03b5 at0023 = ╱20╱…╱ // 0x3a5 @0x23
0x0382…03b5 at0024 = ╱3d╱=╱ // 0x3a6 @0x24
0x0382…03b5 at0025 = ╱3d╱=╱ // 0x3a7 @0x25
0x0382…03b5 at0026 = ╱3d╱=╱ // 0x3a8 @0x26
0x0382…03b5 at0027 = ╱3d╱=╱ // 0x3a9 @0x27
0x0382…03b5 at0028 = ╱3d╱=╱ // 0x3aa @0x28
0x0382…03b5 at0029 = ╱3d╱=╱ // 0x3ab @0x29
0x0382…03b5 at002a = ╱3d╱=╱ // 0x3ac @0x2a
0x0382…03b5 at002b = ╱3d╱=╱ // 0x3ad @0x2b
0x0382…03b5 at002c = ╱3d╱=╱ // 0x3ae @0x2c
0x0382…03b5 at002d = ╱3d╱=╱ // 0x3af @0x2d
0x0382…03b5 at002e = ╱3d╱=╱ // 0x3b0 @0x2e
0x0382…03b5 at002f = ╱3d╱=╱ // 0x3b1 @0x2f
0x0382…03b5 at0030 = ╱3d╱=╱ // 0x3b2 @0x30
0x0382…03b5 at0031 = ╱3d╱=╱ // 0x3b3 @0x31
0x0382…03b5 at0032 = EOL // 0x3b4 @0x32
0x0382…03b5 }
0x03b5…03c7 99b5 0300 PROC DIMENSIONER
0x03b5…03c7 LineComal80 {
0x03b5…03c7 ptr = 0x99b5 // 0x3b5 @0x0
0x03b5…03c7 lno = 0x012c // 0x3b7 @0x2
0x03b5…03c7 at0004 = ╱9e01╱ PROC ╱ // 0x3b9 @0x4
0x03b5…03c7 at0006 = ╱44╱D╱ // 0x3bb @0x6
0x03b5…03c7 at0007 = ╱49╱I╱ // 0x3bc @0x7
0x03b5…03c7 at0008 = ╱4d╱M╱ // 0x3bd @0x8
0x03b5…03c7 at0009 = ╱45╱E╱ // 0x3be @0x9
0x03b5…03c7 at000a = ╱4e╱N╱ // 0x3bf @0xa
0x03b5…03c7 at000b = ╱53╱S╱ // 0x3c0 @0xb
0x03b5…03c7 at000c = ╱49╱I╱ // 0x3c1 @0xc
0x03b5…03c7 at000d = ╱4f╱O╱ // 0x3c2 @0xd
0x03b5…03c7 at000e = ╱4e╱N╱ // 0x3c3 @0xe
0x03b5…03c7 at000f = ╱45╱E╱ // 0x3c4 @0xf
0x03b5…03c7 at0010 = ╱52╱R╱ // 0x3c5 @0x10
0x03b5…03c7 at0011 = EOL // 0x3c6 @0x11
0x03b5…03c7 }
0x03c7…03de 99cc 0310 // Standard variable
0x03c7…03de LineComal80 {
0x03c7…03de ptr = 0x99cc // 0x3c7 @0x0
0x03c7…03de lno = 0x0136 // 0x3c9 @0x2
0x03c7…03de at0004 = ╱89╱ // ╱ // 0x3cb @0x4
0x03c7…03de at0005 = ╱53╱S╱ // 0x3cc @0x5
0x03c7…03de at0006 = ╱74╱t╱ // 0x3cd @0x6
0x03c7…03de at0007 = ╱61╱a╱ // 0x3ce @0x7
0x03c7…03de at0008 = ╱6e╱n╱ // 0x3cf @0x8
0x03c7…03de at0009 = ╱64╱d╱ // 0x3d0 @0x9
0x03c7…03de at000a = ╱61╱a╱ // 0x3d1 @0xa
0x03c7…03de at000b = ╱72╱r╱ // 0x3d2 @0xb
0x03c7…03de at000c = ╱64╱d╱ // 0x3d3 @0xc
0x03c7…03de at000d = ╱20╱…╱ // 0x3d4 @0xd
0x03c7…03de at000e = ╱76╱v╱ // 0x3d5 @0xe
0x03c7…03de at000f = ╱61╱a╱ // 0x3d6 @0xf
0x03c7…03de at0010 = ╱72╱r╱ // 0x3d7 @0x10
0x03c7…03de at0011 = ╱69╱i╱ // 0x3d8 @0x11
0x03c7…03de at0012 = ╱61╱a╱ // 0x3d9 @0x12
0x03c7…03de at0013 = ╱62╱b╱ // 0x3da @0x13
0x03c7…03de at0014 = ╱6c╱l╱ // 0x3db @0x14
0x03c7…03de at0015 = ╱65╱e╱ // 0x3dc @0x15
0x03c7…03de at0016 = EOL // 0x3dd @0x16
0x03c7…03de }
0x03de…041d 9a0b 0320 DIM SPC$ OF 80,SVAR$ OF 10,PRGFL$ OF 8,ALFA$ OF 28,TAL$ OF 10
0x03de…041d LineComal80 {
0x03de…041d ptr = 0x9a0b // 0x3de @0x0
0x03de…041d lno = 0x0140 // 0x3e0 @0x2
0x03de…041d at0004 = ╱87╱ DIM ╱ // 0x3e2 @0x4
0x03de…041d at0005 = ╱53╱S╱ // 0x3e3 @0x5
0x03de…041d at0006 = ╱50╱P╱ // 0x3e4 @0x6
0x03de…041d at0007 = ╱43╱C╱ // 0x3e5 @0x7
0x03de…041d at0008 = ╱ef╱$╱ // 0x3e6 @0x8
0x03de…041d at0009 = ╱ba╱ OF ╱ // 0x3e7 @0x9
0x03de…041d at000a = ╱38╱8╱ // 0x3e8 @0xa
0x03de…041d at000b = ╱30╱0╱ // 0x3e9 @0xb
0x03de…041d at000c = ╱f25000╱ // 0x3ea @0xc
0x03de…041d at000f = ╱ec╱,╱ // 0x3ed @0xf
0x03de…041d at0010 = ╱53╱S╱ // 0x3ee @0x10
0x03de…041d at0011 = ╱56╱V╱ // 0x3ef @0x11
0x03de…041d at0012 = ╱41╱A╱ // 0x3f0 @0x12
0x03de…041d at0013 = ╱52╱R╱ // 0x3f1 @0x13
0x03de…041d at0014 = ╱ef╱$╱ // 0x3f2 @0x14
0x03de…041d at0015 = ╱ba╱ OF ╱ // 0x3f3 @0x15
0x03de…041d at0016 = ╱31╱1╱ // 0x3f4 @0x16
0x03de…041d at0017 = ╱30╱0╱ // 0x3f5 @0x17
0x03de…041d at0018 = ╱f20a00╱ // 0x3f6 @0x18
0x03de…041d at001b = ╱ec╱,╱ // 0x3f9 @0x1b
0x03de…041d at001c = ╱50╱P╱ // 0x3fa @0x1c
0x03de…041d at001d = ╱52╱R╱ // 0x3fb @0x1d
0x03de…041d at001e = ╱47╱G╱ // 0x3fc @0x1e
0x03de…041d at001f = ╱46╱F╱ // 0x3fd @0x1f
0x03de…041d at0020 = ╱4c╱L╱ // 0x3fe @0x20
0x03de…041d at0021 = ╱ef╱$╱ // 0x3ff @0x21
0x03de…041d at0022 = ╱ba╱ OF ╱ // 0x400 @0x22
0x03de…041d at0023 = ╱38╱8╱ // 0x401 @0x23
0x03de…041d at0024 = ╱f20800╱ // 0x402 @0x24
0x03de…041d at0027 = ╱ec╱,╱ // 0x405 @0x27
0x03de…041d at0028 = ╱41╱A╱ // 0x406 @0x28
0x03de…041d at0029 = ╱4c╱L╱ // 0x407 @0x29
0x03de…041d at002a = ╱46╱F╱ // 0x408 @0x2a
0x03de…041d at002b = ╱41╱A╱ // 0x409 @0x2b
0x03de…041d at002c = ╱ef╱$╱ // 0x40a @0x2c
0x03de…041d at002d = ╱ba╱ OF ╱ // 0x40b @0x2d
0x03de…041d at002e = ╱32╱2╱ // 0x40c @0x2e
0x03de…041d at002f = ╱38╱8╱ // 0x40d @0x2f
0x03de…041d at0030 = ╱f21c00╱ // 0x40e @0x30
0x03de…041d at0033 = ╱ec╱,╱ // 0x411 @0x33
0x03de…041d at0034 = ╱54╱T╱ // 0x412 @0x34
0x03de…041d at0035 = ╱41╱A╱ // 0x413 @0x35
0x03de…041d at0036 = ╱4c╱L╱ // 0x414 @0x36
0x03de…041d at0037 = ╱ef╱$╱ // 0x415 @0x37
0x03de…041d at0038 = ╱ba╱ OF ╱ // 0x416 @0x38
0x03de…041d at0039 = ╱31╱1╱ // 0x417 @0x39
0x03de…041d at003a = ╱30╱0╱ // 0x418 @0x3a
0x03de…041d at003b = ╱f20a00╱ // 0x419 @0x3b
0x03de…041d at003e = EOL // 0x41c @0x3e
0x03de…041d }
0x041d…043d 9a2b 0330 DIM PROGRAM$ OF 17,PRTNR$ OF 1
0x041d…043d LineComal80 {
0x041d…043d ptr = 0x9a2b // 0x41d @0x0
0x041d…043d lno = 0x014a // 0x41f @0x2
0x041d…043d at0004 = ╱87╱ DIM ╱ // 0x421 @0x4
0x041d…043d at0005 = ╱50╱P╱ // 0x422 @0x5
0x041d…043d at0006 = ╱52╱R╱ // 0x423 @0x6
0x041d…043d at0007 = ╱4f╱O╱ // 0x424 @0x7
0x041d…043d at0008 = ╱47╱G╱ // 0x425 @0x8
0x041d…043d at0009 = ╱52╱R╱ // 0x426 @0x9
0x041d…043d at000a = ╱41╱A╱ // 0x427 @0xa
0x041d…043d at000b = ╱4d╱M╱ // 0x428 @0xb
0x041d…043d at000c = ╱ef╱$╱ // 0x429 @0xc
0x041d…043d at000d = ╱ba╱ OF ╱ // 0x42a @0xd
0x041d…043d at000e = ╱31╱1╱ // 0x42b @0xe
0x041d…043d at000f = ╱37╱7╱ // 0x42c @0xf
0x041d…043d at0010 = ╱f21100╱ // 0x42d @0x10
0x041d…043d at0013 = ╱ec╱,╱ // 0x430 @0x13
0x041d…043d at0014 = ╱50╱P╱ // 0x431 @0x14
0x041d…043d at0015 = ╱52╱R╱ // 0x432 @0x15
0x041d…043d at0016 = ╱54╱T╱ // 0x433 @0x16
0x041d…043d at0017 = ╱4e╱N╱ // 0x434 @0x17
0x041d…043d at0018 = ╱52╱R╱ // 0x435 @0x18
0x041d…043d at0019 = ╱ef╱$╱ // 0x436 @0x19
0x041d…043d at001a = ╱ba╱ OF ╱ // 0x437 @0x1a
0x041d…043d at001b = ╱31╱1╱ // 0x438 @0x1b
0x041d…043d at001c = ╱f20100╱ // 0x439 @0x1c
0x041d…043d at001f = EOL // 0x43c @0x1f
0x041d…043d }
0x043d…044d 9a3b 0340 REAL RESRV,PPAR
0x043d…044d LineComal80 {
0x043d…044d ptr = 0x9a3b // 0x43d @0x0
0x043d…044d lno = 0x0154 // 0x43f @0x2
0x043d…044d at0004 = ╱b3╱ REAL ╱ // 0x441 @0x4
0x043d…044d at0005 = ╱52╱R╱ // 0x442 @0x5
0x043d…044d at0006 = ╱45╱E╱ // 0x443 @0x6
0x043d…044d at0007 = ╱53╱S╱ // 0x444 @0x7
0x043d…044d at0008 = ╱52╱R╱ // 0x445 @0x8
0x043d…044d at0009 = ╱56╱V╱ // 0x446 @0x9
0x043d…044d at000a = ╱ec╱,╱ // 0x447 @0xa
0x043d…044d at000b = ╱50╱P╱ // 0x448 @0xb
0x043d…044d at000c = ╱50╱P╱ // 0x449 @0xc
0x043d…044d at000d = ╱41╱A╱ // 0x44a @0xd
0x043d…044d at000e = ╱52╱R╱ // 0x44b @0xe
0x043d…044d at000f = EOL // 0x44c @0xf
0x043d…044d }
0x044d…0464 9a52 0350 INTEGER OK,TRUE,FALSE,I,J
0x044d…0464 LineComal80 {
0x044d…0464 ptr = 0x9a52 // 0x44d @0x0
0x044d…0464 lno = 0x015e // 0x44f @0x2
0x044d…0464 at0004 = ╱b2╱ INTEGER ╱ // 0x451 @0x4
0x044d…0464 at0005 = ╱4f╱O╱ // 0x452 @0x5
0x044d…0464 at0006 = ╱4b╱K╱ // 0x453 @0x6
0x044d…0464 at0007 = ╱ec╱,╱ // 0x454 @0x7
0x044d…0464 at0008 = ╱54╱T╱ // 0x455 @0x8
0x044d…0464 at0009 = ╱52╱R╱ // 0x456 @0x9
0x044d…0464 at000a = ╱55╱U╱ // 0x457 @0xa
0x044d…0464 at000b = ╱45╱E╱ // 0x458 @0xb
0x044d…0464 at000c = ╱ec╱,╱ // 0x459 @0xc
0x044d…0464 at000d = ╱46╱F╱ // 0x45a @0xd
0x044d…0464 at000e = ╱41╱A╱ // 0x45b @0xe
0x044d…0464 at000f = ╱4c╱L╱ // 0x45c @0xf
0x044d…0464 at0010 = ╱53╱S╱ // 0x45d @0x10
0x044d…0464 at0011 = ╱45╱E╱ // 0x45e @0x11
0x044d…0464 at0012 = ╱ec╱,╱ // 0x45f @0x12
0x044d…0464 at0013 = ╱49╱I╱ // 0x460 @0x13
0x044d…0464 at0014 = ╱ec╱,╱ // 0x461 @0x14
0x044d…0464 at0015 = ╱4a╱J╱ // 0x462 @0x15
0x044d…0464 at0016 = EOL // 0x463 @0x16
0x044d…0464 }
0x0464…0478 9a66 0360 // Hjælpevariable
0x0464…0478 LineComal80 {
0x0464…0478 ptr = 0x9a66 // 0x464 @0x0
0x0464…0478 lno = 0x0168 // 0x466 @0x2
0x0464…0478 at0004 = ╱89╱ // ╱ // 0x468 @0x4
0x0464…0478 at0005 = ╱48╱H╱ // 0x469 @0x5
0x0464…0478 at0006 = ╱6a╱j╱ // 0x46a @0x6
0x0464…0478 at0007 = ╱7b╱æ╱ // 0x46b @0x7
0x0464…0478 at0008 = ╱6c╱l╱ // 0x46c @0x8
0x0464…0478 at0009 = ╱70╱p╱ // 0x46d @0x9
0x0464…0478 at000a = ╱65╱e╱ // 0x46e @0xa
0x0464…0478 at000b = ╱76╱v╱ // 0x46f @0xb
0x0464…0478 at000c = ╱61╱a╱ // 0x470 @0xc
0x0464…0478 at000d = ╱72╱r╱ // 0x471 @0xd
0x0464…0478 at000e = ╱69╱i╱ // 0x472 @0xe
0x0464…0478 at000f = ╱61╱a╱ // 0x473 @0xf
0x0464…0478 at0010 = ╱62╱b╱ // 0x474 @0x10
0x0464…0478 at0011 = ╱6c╱l╱ // 0x475 @0x11
0x0464…0478 at0012 = ╱65╱e╱ // 0x476 @0x12
0x0464…0478 at0013 = EOL // 0x477 @0x13
0x0464…0478 }
0x0478…0499 9a87 0370 DIM A_KTONR$ OF 8,OUT_WAY$ OF 1
0x0478…0499 LineComal80 {
0x0478…0499 ptr = 0x9a87 // 0x478 @0x0
0x0478…0499 lno = 0x0172 // 0x47a @0x2
0x0478…0499 at0004 = ╱87╱ DIM ╱ // 0x47c @0x4
0x0478…0499 at0005 = ╱41╱A╱ // 0x47d @0x5
0x0478…0499 at0006 = ╱5f╱_╱ // 0x47e @0x6
0x0478…0499 at0007 = ╱4b╱K╱ // 0x47f @0x7
0x0478…0499 at0008 = ╱54╱T╱ // 0x480 @0x8
0x0478…0499 at0009 = ╱4f╱O╱ // 0x481 @0x9
0x0478…0499 at000a = ╱4e╱N╱ // 0x482 @0xa
0x0478…0499 at000b = ╱52╱R╱ // 0x483 @0xb
0x0478…0499 at000c = ╱ef╱$╱ // 0x484 @0xc
0x0478…0499 at000d = ╱ba╱ OF ╱ // 0x485 @0xd
0x0478…0499 at000e = ╱38╱8╱ // 0x486 @0xe
0x0478…0499 at000f = ╱f20800╱ // 0x487 @0xf
0x0478…0499 at0012 = ╱ec╱,╱ // 0x48a @0x12
0x0478…0499 at0013 = ╱4f╱O╱ // 0x48b @0x13
0x0478…0499 at0014 = ╱55╱U╱ // 0x48c @0x14
0x0478…0499 at0015 = ╱54╱T╱ // 0x48d @0x15
0x0478…0499 at0016 = ╱5f╱_╱ // 0x48e @0x16
0x0478…0499 at0017 = ╱57╱W╱ // 0x48f @0x17
0x0478…0499 at0018 = ╱41╱A╱ // 0x490 @0x18
0x0478…0499 at0019 = ╱59╱Y╱ // 0x491 @0x19
0x0478…0499 at001a = ╱ef╱$╱ // 0x492 @0x1a
0x0478…0499 at001b = ╱ba╱ OF ╱ // 0x493 @0x1b
0x0478…0499 at001c = ╱31╱1╱ // 0x494 @0x1c
0x0478…0499 at001d = ╱f20100╱ // 0x495 @0x1d
0x0478…0499 at0020 = EOL // 0x498 @0x20
0x0478…0499 }
0x0499…04a8 9a96 0380 REAL TOT(2)
0x0499…04a8 LineComal80 {
0x0499…04a8 ptr = 0x9a96 // 0x499 @0x0
0x0499…04a8 lno = 0x017c // 0x49b @0x2
0x0499…04a8 at0004 = ╱b3╱ REAL ╱ // 0x49d @0x4
0x0499…04a8 at0005 = ╱54╱T╱ // 0x49e @0x5
0x0499…04a8 at0006 = ╱4f╱O╱ // 0x49f @0x6
0x0499…04a8 at0007 = ╱54╱T╱ // 0x4a0 @0x7
0x0499…04a8 at0008 = ╱ed╱(╱ // 0x4a1 @0x8
0x0499…04a8 at0009 = ╱32╱2╱ // 0x4a2 @0x9
0x0499…04a8 at000a = ╱f20200╱ // 0x4a3 @0xa
0x0499…04a8 at000d = ╱ee╱)╱ // 0x4a6 @0xd
0x0499…04a8 at000e = EOL // 0x4a7 @0xe
0x0499…04a8 }
0x04a8…04ea 9ad8 0390 INTEGER IDXPOS,HIGH,LOW,KREDIT,DEBET,LIN_T,MAX_LIN,T_IDX,K,NUL,F_IDX
0x04a8…04ea LineComal80 {
0x04a8…04ea ptr = 0x9ad8 // 0x4a8 @0x0
0x04a8…04ea lno = 0x0186 // 0x4aa @0x2
0x04a8…04ea at0004 = ╱b2╱ INTEGER ╱ // 0x4ac @0x4
0x04a8…04ea at0005 = ╱49╱I╱ // 0x4ad @0x5
0x04a8…04ea at0006 = ╱44╱D╱ // 0x4ae @0x6
0x04a8…04ea at0007 = ╱58╱X╱ // 0x4af @0x7
0x04a8…04ea at0008 = ╱50╱P╱ // 0x4b0 @0x8
0x04a8…04ea at0009 = ╱4f╱O╱ // 0x4b1 @0x9
0x04a8…04ea at000a = ╱53╱S╱ // 0x4b2 @0xa
0x04a8…04ea at000b = ╱ec╱,╱ // 0x4b3 @0xb
0x04a8…04ea at000c = ╱48╱H╱ // 0x4b4 @0xc
0x04a8…04ea at000d = ╱49╱I╱ // 0x4b5 @0xd
0x04a8…04ea at000e = ╱47╱G╱ // 0x4b6 @0xe
0x04a8…04ea at000f = ╱48╱H╱ // 0x4b7 @0xf
0x04a8…04ea at0010 = ╱ec╱,╱ // 0x4b8 @0x10
0x04a8…04ea at0011 = ╱4c╱L╱ // 0x4b9 @0x11
0x04a8…04ea at0012 = ╱4f╱O╱ // 0x4ba @0x12
0x04a8…04ea at0013 = ╱57╱W╱ // 0x4bb @0x13
0x04a8…04ea at0014 = ╱ec╱,╱ // 0x4bc @0x14
0x04a8…04ea at0015 = ╱4b╱K╱ // 0x4bd @0x15
0x04a8…04ea at0016 = ╱52╱R╱ // 0x4be @0x16
0x04a8…04ea at0017 = ╱45╱E╱ // 0x4bf @0x17
0x04a8…04ea at0018 = ╱44╱D╱ // 0x4c0 @0x18
0x04a8…04ea at0019 = ╱49╱I╱ // 0x4c1 @0x19
0x04a8…04ea at001a = ╱54╱T╱ // 0x4c2 @0x1a
0x04a8…04ea at001b = ╱ec╱,╱ // 0x4c3 @0x1b
0x04a8…04ea at001c = ╱44╱D╱ // 0x4c4 @0x1c
0x04a8…04ea at001d = ╱45╱E╱ // 0x4c5 @0x1d
0x04a8…04ea at001e = ╱42╱B╱ // 0x4c6 @0x1e
0x04a8…04ea at001f = ╱45╱E╱ // 0x4c7 @0x1f
0x04a8…04ea at0020 = ╱54╱T╱ // 0x4c8 @0x20
0x04a8…04ea at0021 = ╱ec╱,╱ // 0x4c9 @0x21
0x04a8…04ea at0022 = ╱4c╱L╱ // 0x4ca @0x22
0x04a8…04ea at0023 = ╱49╱I╱ // 0x4cb @0x23
0x04a8…04ea at0024 = ╱4e╱N╱ // 0x4cc @0x24
0x04a8…04ea at0025 = ╱5f╱_╱ // 0x4cd @0x25
0x04a8…04ea at0026 = ╱54╱T╱ // 0x4ce @0x26
0x04a8…04ea at0027 = ╱ec╱,╱ // 0x4cf @0x27
0x04a8…04ea at0028 = ╱4d╱M╱ // 0x4d0 @0x28
0x04a8…04ea at0029 = ╱41╱A╱ // 0x4d1 @0x29
0x04a8…04ea at002a = ╱58╱X╱ // 0x4d2 @0x2a
0x04a8…04ea at002b = ╱5f╱_╱ // 0x4d3 @0x2b
0x04a8…04ea at002c = ╱4c╱L╱ // 0x4d4 @0x2c
0x04a8…04ea at002d = ╱49╱I╱ // 0x4d5 @0x2d
0x04a8…04ea at002e = ╱4e╱N╱ // 0x4d6 @0x2e
0x04a8…04ea at002f = ╱ec╱,╱ // 0x4d7 @0x2f
0x04a8…04ea at0030 = ╱54╱T╱ // 0x4d8 @0x30
0x04a8…04ea at0031 = ╱5f╱_╱ // 0x4d9 @0x31
0x04a8…04ea at0032 = ╱49╱I╱ // 0x4da @0x32
0x04a8…04ea at0033 = ╱44╱D╱ // 0x4db @0x33
0x04a8…04ea at0034 = ╱58╱X╱ // 0x4dc @0x34
0x04a8…04ea at0035 = ╱ec╱,╱ // 0x4dd @0x35
0x04a8…04ea at0036 = ╱4b╱K╱ // 0x4de @0x36
0x04a8…04ea at0037 = ╱ec╱,╱ // 0x4df @0x37
0x04a8…04ea at0038 = ╱4e╱N╱ // 0x4e0 @0x38
0x04a8…04ea at0039 = ╱55╱U╱ // 0x4e1 @0x39
0x04a8…04ea at003a = ╱4c╱L╱ // 0x4e2 @0x3a
0x04a8…04ea at003b = ╱ec╱,╱ // 0x4e3 @0x3b
0x04a8…04ea at003c = ╱46╱F╱ // 0x4e4 @0x3c
0x04a8…04ea at003d = ╱5f╱_╱ // 0x4e5 @0x3d
0x04a8…04ea at003e = ╱49╱I╱ // 0x4e6 @0x3e
0x04a8…04ea at003f = ╱44╱D╱ // 0x4e7 @0x3f
0x04a8…04ea at0040 = ╱58╱X╱ // 0x4e8 @0x40
0x04a8…04ea at0041 = EOL // 0x4e9 @0x41
0x04a8…04ea }
0x04ea…04f6 9ae4 0400 INTEGER SIDENR
0x04ea…04f6 LineComal80 {
0x04ea…04f6 ptr = 0x9ae4 // 0x4ea @0x0
0x04ea…04f6 lno = 0x0190 // 0x4ec @0x2
0x04ea…04f6 at0004 = ╱b2╱ INTEGER ╱ // 0x4ee @0x4
0x04ea…04f6 at0005 = ╱53╱S╱ // 0x4ef @0x5
0x04ea…04f6 at0006 = ╱49╱I╱ // 0x4f0 @0x6
0x04ea…04f6 at0007 = ╱44╱D╱ // 0x4f1 @0x7
0x04ea…04f6 at0008 = ╱45╱E╱ // 0x4f2 @0x8
0x04ea…04f6 at0009 = ╱4e╱N╱ // 0x4f3 @0x9
0x04ea…04f6 at000a = ╱52╱R╱ // 0x4f4 @0xa
0x04ea…04f6 at000b = EOL // 0x4f5 @0xb
0x04ea…04f6 }
0x04f6…0516 9b04 0410 // Variable til filen SYSPARA
0x04f6…0516 LineComal80 {
0x04f6…0516 ptr = 0x9b04 // 0x4f6 @0x0
0x04f6…0516 lno = 0x019a // 0x4f8 @0x2
0x04f6…0516 at0004 = ╱89╱ // ╱ // 0x4fa @0x4
0x04f6…0516 at0005 = ╱56╱V╱ // 0x4fb @0x5
0x04f6…0516 at0006 = ╱61╱a╱ // 0x4fc @0x6
0x04f6…0516 at0007 = ╱72╱r╱ // 0x4fd @0x7
0x04f6…0516 at0008 = ╱69╱i╱ // 0x4fe @0x8
0x04f6…0516 at0009 = ╱61╱a╱ // 0x4ff @0x9
0x04f6…0516 at000a = ╱62╱b╱ // 0x500 @0xa
0x04f6…0516 at000b = ╱6c╱l╱ // 0x501 @0xb
0x04f6…0516 at000c = ╱65╱e╱ // 0x502 @0xc
0x04f6…0516 at000d = ╱20╱…╱ // 0x503 @0xd
0x04f6…0516 at000e = ╱74╱t╱ // 0x504 @0xe
0x04f6…0516 at000f = ╱69╱i╱ // 0x505 @0xf
0x04f6…0516 at0010 = ╱6c╱l╱ // 0x506 @0x10
0x04f6…0516 at0011 = ╱20╱…╱ // 0x507 @0x11
0x04f6…0516 at0012 = ╱66╱f╱ // 0x508 @0x12
0x04f6…0516 at0013 = ╱69╱i╱ // 0x509 @0x13
0x04f6…0516 at0014 = ╱6c╱l╱ // 0x50a @0x14
0x04f6…0516 at0015 = ╱65╱e╱ // 0x50b @0x15
0x04f6…0516 at0016 = ╱6e╱n╱ // 0x50c @0x16
0x04f6…0516 at0017 = ╱20╱…╱ // 0x50d @0x17
0x04f6…0516 at0018 = ╱53╱S╱ // 0x50e @0x18
0x04f6…0516 at0019 = ╱59╱Y╱ // 0x50f @0x19
0x04f6…0516 at001a = ╱53╱S╱ // 0x510 @0x1a
0x04f6…0516 at001b = ╱50╱P╱ // 0x511 @0x1b
0x04f6…0516 at001c = ╱41╱A╱ // 0x512 @0x1c
0x04f6…0516 at001d = ╱52╱R╱ // 0x513 @0x1d
0x04f6…0516 at001e = ╱41╱A╱ // 0x514 @0x1e
0x04f6…0516 at001f = EOL // 0x515 @0x1f
0x04f6…0516 }
0x0516…052a 9b18 0420 DIM SYSPARA$ OF 17
0x0516…052a LineComal80 {
0x0516…052a ptr = 0x9b18 // 0x516 @0x0
0x0516…052a lno = 0x01a4 // 0x518 @0x2
0x0516…052a at0004 = ╱87╱ DIM ╱ // 0x51a @0x4
0x0516…052a at0005 = ╱53╱S╱ // 0x51b @0x5
0x0516…052a at0006 = ╱59╱Y╱ // 0x51c @0x6
0x0516…052a at0007 = ╱53╱S╱ // 0x51d @0x7
0x0516…052a at0008 = ╱50╱P╱ // 0x51e @0x8
0x0516…052a at0009 = ╱41╱A╱ // 0x51f @0x9
0x0516…052a at000a = ╱52╱R╱ // 0x520 @0xa
0x0516…052a at000b = ╱41╱A╱ // 0x521 @0xb
0x0516…052a at000c = ╱ef╱$╱ // 0x522 @0xc
0x0516…052a at000d = ╱ba╱ OF ╱ // 0x523 @0xd
0x0516…052a at000e = ╱31╱1╱ // 0x524 @0xe
0x0516…052a at000f = ╱37╱7╱ // 0x525 @0xf
0x0516…052a at0010 = ╱f21100╱ // 0x526 @0x10
0x0516…052a at0013 = EOL // 0x529 @0x13
0x0516…052a }
0x052a…054d 9b3b 0430 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0x052a…054d LineComal80 {
0x052a…054d ptr = 0x9b3b // 0x52a @0x0
0x052a…054d lno = 0x01ae // 0x52c @0x2
0x052a…054d at0004 = ╱87╱ DIM ╱ // 0x52e @0x4
0x052a…054d at0005 = ╱53╱S╱ // 0x52f @0x5
0x052a…054d at0006 = ╱59╱Y╱ // 0x530 @0x6
0x052a…054d at0007 = ╱53╱S╱ // 0x531 @0x7
0x052a…054d at0008 = ╱54╱T╱ // 0x532 @0x8
0x052a…054d at0009 = ╱5f╱_╱ // 0x533 @0x9
0x052a…054d at000a = ╱4e╱N╱ // 0x534 @0xa
0x052a…054d at000b = ╱41╱A╱ // 0x535 @0xb
0x052a…054d at000c = ╱56╱V╱ // 0x536 @0xc
0x052a…054d at000d = ╱4e╱N╱ // 0x537 @0xd
0x052a…054d at000e = ╱ef╱$╱ // 0x538 @0xe
0x052a…054d at000f = ╱ba╱ OF ╱ // 0x539 @0xf
0x052a…054d at0010 = ╱33╱3╱ // 0x53a @0x10
0x052a…054d at0011 = ╱30╱0╱ // 0x53b @0x11
0x052a…054d at0012 = ╱f21e00╱ // 0x53c @0x12
0x052a…054d at0015 = ╱ec╱,╱ // 0x53f @0x15
0x052a…054d at0016 = ╱53╱S╱ // 0x540 @0x16
0x052a…054d at0017 = ╱5f╱_╱ // 0x541 @0x17
0x052a…054d at0018 = ╱4b╱K╱ // 0x542 @0x18
0x052a…054d at0019 = ╱4f╱O╱ // 0x543 @0x19
0x052a…054d at001a = ╱44╱D╱ // 0x544 @0x1a
0x052a…054d at001b = ╱45╱E╱ // 0x545 @0x1b
0x052a…054d at001c = ╱ef╱$╱ // 0x546 @0x1c
0x052a…054d at001d = ╱ba╱ OF ╱ // 0x547 @0x1d
0x052a…054d at001e = ╱31╱1╱ // 0x548 @0x1e
0x052a…054d at001f = ╱f20100╱ // 0x549 @0x1f
0x052a…054d at0022 = EOL // 0x54c @0x22
0x052a…054d }
0x054d…056c 9b5a 0440 DIM DATAFL$ OF 8,T_KODE$ OF 1
0x054d…056c LineComal80 {
0x054d…056c ptr = 0x9b5a // 0x54d @0x0
0x054d…056c lno = 0x01b8 // 0x54f @0x2
0x054d…056c at0004 = ╱87╱ DIM ╱ // 0x551 @0x4
0x054d…056c at0005 = ╱44╱D╱ // 0x552 @0x5
0x054d…056c at0006 = ╱41╱A╱ // 0x553 @0x6
0x054d…056c at0007 = ╱54╱T╱ // 0x554 @0x7
0x054d…056c at0008 = ╱41╱A╱ // 0x555 @0x8
0x054d…056c at0009 = ╱46╱F╱ // 0x556 @0x9
0x054d…056c at000a = ╱4c╱L╱ // 0x557 @0xa
0x054d…056c at000b = ╱ef╱$╱ // 0x558 @0xb
0x054d…056c at000c = ╱ba╱ OF ╱ // 0x559 @0xc
0x054d…056c at000d = ╱38╱8╱ // 0x55a @0xd
0x054d…056c at000e = ╱f20800╱ // 0x55b @0xe
0x054d…056c at0011 = ╱ec╱,╱ // 0x55e @0x11
0x054d…056c at0012 = ╱54╱T╱ // 0x55f @0x12
0x054d…056c at0013 = ╱5f╱_╱ // 0x560 @0x13
0x054d…056c at0014 = ╱4b╱K╱ // 0x561 @0x14
0x054d…056c at0015 = ╱4f╱O╱ // 0x562 @0x15
0x054d…056c at0016 = ╱44╱D╱ // 0x563 @0x16
0x054d…056c at0017 = ╱45╱E╱ // 0x564 @0x17
0x054d…056c at0018 = ╱ef╱$╱ // 0x565 @0x18
0x054d…056c at0019 = ╱ba╱ OF ╱ // 0x566 @0x19
0x054d…056c at001a = ╱31╱1╱ // 0x567 @0x1a
0x054d…056c at001b = ╱f20100╱ // 0x568 @0x1b
0x054d…056c at001e = EOL // 0x56b @0x1e
0x054d…056c }
0x056c…058c 9b7a 0450 // Variable til filen @@PARAM
0x056c…058c LineComal80 {
0x056c…058c ptr = 0x9b7a // 0x56c @0x0
0x056c…058c lno = 0x01c2 // 0x56e @0x2
0x056c…058c at0004 = ╱89╱ // ╱ // 0x570 @0x4
0x056c…058c at0005 = ╱56╱V╱ // 0x571 @0x5
0x056c…058c at0006 = ╱61╱a╱ // 0x572 @0x6
0x056c…058c at0007 = ╱72╱r╱ // 0x573 @0x7
0x056c…058c at0008 = ╱69╱i╱ // 0x574 @0x8
0x056c…058c at0009 = ╱61╱a╱ // 0x575 @0x9
0x056c…058c at000a = ╱62╱b╱ // 0x576 @0xa
0x056c…058c at000b = ╱6c╱l╱ // 0x577 @0xb
0x056c…058c at000c = ╱65╱e╱ // 0x578 @0xc
0x056c…058c at000d = ╱20╱…╱ // 0x579 @0xd
0x056c…058c at000e = ╱74╱t╱ // 0x57a @0xe
0x056c…058c at000f = ╱69╱i╱ // 0x57b @0xf
0x056c…058c at0010 = ╱6c╱l╱ // 0x57c @0x10
0x056c…058c at0011 = ╱20╱…╱ // 0x57d @0x11
0x056c…058c at0012 = ╱66╱f╱ // 0x57e @0x12
0x056c…058c at0013 = ╱69╱i╱ // 0x57f @0x13
0x056c…058c at0014 = ╱6c╱l╱ // 0x580 @0x14
0x056c…058c at0015 = ╱65╱e╱ // 0x581 @0x15
0x056c…058c at0016 = ╱6e╱n╱ // 0x582 @0x16
0x056c…058c at0017 = ╱20╱…╱ // 0x583 @0x17
0x056c…058c at0018 = ╱40╱@╱ // 0x584 @0x18
0x056c…058c at0019 = ╱40╱@╱ // 0x585 @0x19
0x056c…058c at001a = ╱50╱P╱ // 0x586 @0x1a
0x056c…058c at001b = ╱41╱A╱ // 0x587 @0x1b
0x056c…058c at001c = ╱52╱R╱ // 0x588 @0x1c
0x056c…058c at001d = ╱41╱A╱ // 0x589 @0x1d
0x056c…058c at001e = ╱4d╱M╱ // 0x58a @0x1e
0x056c…058c at001f = EOL // 0x58b @0x1f
0x056c…058c }
0x058c…059e 9b8c 0460 DIM PARAM$ OF 17
0x058c…059e LineComal80 {
0x058c…059e ptr = 0x9b8c // 0x58c @0x0
0x058c…059e lno = 0x01cc // 0x58e @0x2
0x058c…059e at0004 = ╱87╱ DIM ╱ // 0x590 @0x4
0x058c…059e at0005 = ╱50╱P╱ // 0x591 @0x5
0x058c…059e at0006 = ╱41╱A╱ // 0x592 @0x6
0x058c…059e at0007 = ╱52╱R╱ // 0x593 @0x7
0x058c…059e at0008 = ╱41╱A╱ // 0x594 @0x8
0x058c…059e at0009 = ╱4d╱M╱ // 0x595 @0x9
0x058c…059e at000a = ╱ef╱$╱ // 0x596 @0xa
0x058c…059e at000b = ╱ba╱ OF ╱ // 0x597 @0xb
0x058c…059e at000c = ╱31╱1╱ // 0x598 @0xc
0x058c…059e at000d = ╱37╱7╱ // 0x599 @0xd
0x058c…059e at000e = ╱f21100╱ // 0x59a @0xe
0x058c…059e at0011 = EOL // 0x59d @0x11
0x058c…059e }
0x059e…05c3 9bb1 0470 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0x059e…05c3 LineComal80 {
0x059e…05c3 ptr = 0x9bb1 // 0x59e @0x0
0x059e…05c3 lno = 0x01d6 // 0x5a0 @0x2
0x059e…05c3 at0004 = ╱87╱ DIM ╱ // 0x5a2 @0x4
0x059e…05c3 at0005 = ╱46╱F╱ // 0x5a3 @0x5
0x059e…05c3 at0006 = ╱49╱I╱ // 0x5a4 @0x6
0x059e…05c3 at0007 = ╱52╱R╱ // 0x5a5 @0x7
0x059e…05c3 at0008 = ╱4d╱M╱ // 0x5a6 @0x8
0x059e…05c3 at0009 = ╱41╱A╱ // 0x5a7 @0x9
0x059e…05c3 at000a = ╱4e╱N╱ // 0x5a8 @0xa
0x059e…05c3 at000b = ╱41╱A╱ // 0x5a9 @0xb
0x059e…05c3 at000c = ╱56╱V╱ // 0x5aa @0xc
0x059e…05c3 at000d = ╱4e╱N╱ // 0x5ab @0xd
0x059e…05c3 at000e = ╱ef╱$╱ // 0x5ac @0xe
0x059e…05c3 at000f = ╱ba╱ OF ╱ // 0x5ad @0xf
0x059e…05c3 at0010 = ╱33╱3╱ // 0x5ae @0x10
0x059e…05c3 at0011 = ╱30╱0╱ // 0x5af @0x11
0x059e…05c3 at0012 = ╱f21e00╱ // 0x5b0 @0x12
0x059e…05c3 at0015 = ╱ec╱,╱ // 0x5b3 @0x15
0x059e…05c3 at0016 = ╱53╱S╱ // 0x5b4 @0x16
0x059e…05c3 at0017 = ╱59╱Y╱ // 0x5b5 @0x17
0x059e…05c3 at0018 = ╱53╱S╱ // 0x5b6 @0x18
0x059e…05c3 at0019 = ╱54╱T╱ // 0x5b7 @0x19
0x059e…05c3 at001a = ╱5f╱_╱ // 0x5b8 @0x1a
0x059e…05c3 at001b = ╱44╱D╱ // 0x5b9 @0x1b
0x059e…05c3 at001c = ╱41╱A╱ // 0x5ba @0x1c
0x059e…05c3 at001d = ╱54╱T╱ // 0x5bb @0x1d
0x059e…05c3 at001e = ╱ef╱$╱ // 0x5bc @0x1e
0x059e…05c3 at001f = ╱ba╱ OF ╱ // 0x5bd @0x1f
0x059e…05c3 at0020 = ╱36╱6╱ // 0x5be @0x20
0x059e…05c3 at0021 = ╱f20600╱ // 0x5bf @0x21
0x059e…05c3 at0024 = EOL // 0x5c2 @0x24
0x059e…05c3 }
0x05c3…05cd 9bbb 0480 REAL MOMS
0x05c3…05cd LineComal80 {
0x05c3…05cd ptr = 0x9bbb // 0x5c3 @0x0
0x05c3…05cd lno = 0x01e0 // 0x5c5 @0x2
0x05c3…05cd at0004 = ╱b3╱ REAL ╱ // 0x5c7 @0x4
0x05c3…05cd at0005 = ╱4d╱M╱ // 0x5c8 @0x5
0x05c3…05cd at0006 = ╱4f╱O╱ // 0x5c9 @0x6
0x05c3…05cd at0007 = ╱4d╱M╱ // 0x5ca @0x7
0x05c3…05cd at0008 = ╱53╱S╱ // 0x5cb @0x8
0x05c3…05cd at0009 = EOL // 0x5cc @0x9
0x05c3…05cd }
0x05cd…05e0 9bce 0490 DIM ST_DATO$ OF 6
0x05cd…05e0 LineComal80 {
0x05cd…05e0 ptr = 0x9bce // 0x5cd @0x0
0x05cd…05e0 lno = 0x01ea // 0x5cf @0x2
0x05cd…05e0 at0004 = ╱87╱ DIM ╱ // 0x5d1 @0x4
0x05cd…05e0 at0005 = ╱53╱S╱ // 0x5d2 @0x5
0x05cd…05e0 at0006 = ╱54╱T╱ // 0x5d3 @0x6
0x05cd…05e0 at0007 = ╱5f╱_╱ // 0x5d4 @0x7
0x05cd…05e0 at0008 = ╱44╱D╱ // 0x5d5 @0x8
0x05cd…05e0 at0009 = ╱41╱A╱ // 0x5d6 @0x9
0x05cd…05e0 at000a = ╱54╱T╱ // 0x5d7 @0xa
0x05cd…05e0 at000b = ╱4f╱O╱ // 0x5d8 @0xb
0x05cd…05e0 at000c = ╱ef╱$╱ // 0x5d9 @0xc
0x05cd…05e0 at000d = ╱ba╱ OF ╱ // 0x5da @0xd
0x05cd…05e0 at000e = ╱36╱6╱ // 0x5db @0xe
0x05cd…05e0 at000f = ╱f20600╱ // 0x5dc @0xf
0x05cd…05e0 at0012 = EOL // 0x5df @0x12
0x05cd…05e0 }
0x05e0…05f4 9be2 0500 INTEGER ANT_PER,PER_NR
0x05e0…05f4 LineComal80 {
0x05e0…05f4 ptr = 0x9be2 // 0x5e0 @0x0
0x05e0…05f4 lno = 0x01f4 // 0x5e2 @0x2
0x05e0…05f4 at0004 = ╱b2╱ INTEGER ╱ // 0x5e4 @0x4
0x05e0…05f4 at0005 = ╱41╱A╱ // 0x5e5 @0x5
0x05e0…05f4 at0006 = ╱4e╱N╱ // 0x5e6 @0x6
0x05e0…05f4 at0007 = ╱54╱T╱ // 0x5e7 @0x7
0x05e0…05f4 at0008 = ╱5f╱_╱ // 0x5e8 @0x8
0x05e0…05f4 at0009 = ╱50╱P╱ // 0x5e9 @0x9
0x05e0…05f4 at000a = ╱45╱E╱ // 0x5ea @0xa
0x05e0…05f4 at000b = ╱52╱R╱ // 0x5eb @0xb
0x05e0…05f4 at000c = ╱ec╱,╱ // 0x5ec @0xc
0x05e0…05f4 at000d = ╱50╱P╱ // 0x5ed @0xd
0x05e0…05f4 at000e = ╱45╱E╱ // 0x5ee @0xe
0x05e0…05f4 at000f = ╱52╱R╱ // 0x5ef @0xf
0x05e0…05f4 at0010 = ╱5f╱_╱ // 0x5f0 @0x10
0x05e0…05f4 at0011 = ╱4e╱N╱ // 0x5f1 @0x11
0x05e0…05f4 at0012 = ╱52╱R╱ // 0x5f2 @0x12
0x05e0…05f4 at0013 = EOL // 0x5f3 @0x13
0x05e0…05f4 }
0x05f4…0614 9c02 0510 // Variable til filen @@KONTO
0x05f4…0614 LineComal80 {
0x05f4…0614 ptr = 0x9c02 // 0x5f4 @0x0
0x05f4…0614 lno = 0x01fe // 0x5f6 @0x2
0x05f4…0614 at0004 = ╱89╱ // ╱ // 0x5f8 @0x4
0x05f4…0614 at0005 = ╱56╱V╱ // 0x5f9 @0x5
0x05f4…0614 at0006 = ╱61╱a╱ // 0x5fa @0x6
0x05f4…0614 at0007 = ╱72╱r╱ // 0x5fb @0x7
0x05f4…0614 at0008 = ╱69╱i╱ // 0x5fc @0x8
0x05f4…0614 at0009 = ╱61╱a╱ // 0x5fd @0x9
0x05f4…0614 at000a = ╱62╱b╱ // 0x5fe @0xa
0x05f4…0614 at000b = ╱6c╱l╱ // 0x5ff @0xb
0x05f4…0614 at000c = ╱65╱e╱ // 0x600 @0xc
0x05f4…0614 at000d = ╱20╱…╱ // 0x601 @0xd
0x05f4…0614 at000e = ╱74╱t╱ // 0x602 @0xe
0x05f4…0614 at000f = ╱69╱i╱ // 0x603 @0xf
0x05f4…0614 at0010 = ╱6c╱l╱ // 0x604 @0x10
0x05f4…0614 at0011 = ╱20╱…╱ // 0x605 @0x11
0x05f4…0614 at0012 = ╱66╱f╱ // 0x606 @0x12
0x05f4…0614 at0013 = ╱69╱i╱ // 0x607 @0x13
0x05f4…0614 at0014 = ╱6c╱l╱ // 0x608 @0x14
0x05f4…0614 at0015 = ╱65╱e╱ // 0x609 @0x15
0x05f4…0614 at0016 = ╱6e╱n╱ // 0x60a @0x16
0x05f4…0614 at0017 = ╱20╱…╱ // 0x60b @0x17
0x05f4…0614 at0018 = ╱40╱@╱ // 0x60c @0x18
0x05f4…0614 at0019 = ╱40╱@╱ // 0x60d @0x19
0x05f4…0614 at001a = ╱4b╱K╱ // 0x60e @0x1a
0x05f4…0614 at001b = ╱4f╱O╱ // 0x60f @0x1b
0x05f4…0614 at001c = ╱4e╱N╱ // 0x610 @0x1c
0x05f4…0614 at001d = ╱54╱T╱ // 0x611 @0x1d
0x05f4…0614 at001e = ╱4f╱O╱ // 0x612 @0x1e
0x05f4…0614 at001f = EOL // 0x613 @0x1f
0x05f4…0614 }
0x0614…0626 9c14 0520 DIM KONTO$ OF 17
0x0614…0626 LineComal80 {
0x0614…0626 ptr = 0x9c14 // 0x614 @0x0
0x0614…0626 lno = 0x0208 // 0x616 @0x2
0x0614…0626 at0004 = ╱87╱ DIM ╱ // 0x618 @0x4
0x0614…0626 at0005 = ╱4b╱K╱ // 0x619 @0x5
0x0614…0626 at0006 = ╱4f╱O╱ // 0x61a @0x6
0x0614…0626 at0007 = ╱4e╱N╱ // 0x61b @0x7
0x0614…0626 at0008 = ╱54╱T╱ // 0x61c @0x8
0x0614…0626 at0009 = ╱4f╱O╱ // 0x61d @0x9
0x0614…0626 at000a = ╱ef╱$╱ // 0x61e @0xa
0x0614…0626 at000b = ╱ba╱ OF ╱ // 0x61f @0xb
0x0614…0626 at000c = ╱31╱1╱ // 0x620 @0xc
0x0614…0626 at000d = ╱37╱7╱ // 0x621 @0xd
0x0614…0626 at000e = ╱f21100╱ // 0x622 @0xe
0x0614…0626 at0011 = EOL // 0x625 @0x11
0x0614…0626 }
0x0626…063d 9c2b 0530 INTEGER N_FRIREC,N_MAXREC
0x0626…063d LineComal80 {
0x0626…063d ptr = 0x9c2b // 0x626 @0x0
0x0626…063d lno = 0x0212 // 0x628 @0x2
0x0626…063d at0004 = ╱b2╱ INTEGER ╱ // 0x62a @0x4
0x0626…063d at0005 = ╱4e╱N╱ // 0x62b @0x5
0x0626…063d at0006 = ╱5f╱_╱ // 0x62c @0x6
0x0626…063d at0007 = ╱46╱F╱ // 0x62d @0x7
0x0626…063d at0008 = ╱52╱R╱ // 0x62e @0x8
0x0626…063d at0009 = ╱49╱I╱ // 0x62f @0x9
0x0626…063d at000a = ╱52╱R╱ // 0x630 @0xa
0x0626…063d at000b = ╱45╱E╱ // 0x631 @0xb
0x0626…063d at000c = ╱43╱C╱ // 0x632 @0xc
0x0626…063d at000d = ╱ec╱,╱ // 0x633 @0xd
0x0626…063d at000e = ╱4e╱N╱ // 0x634 @0xe
0x0626…063d at000f = ╱5f╱_╱ // 0x635 @0xf
0x0626…063d at0010 = ╱4d╱M╱ // 0x636 @0x10
0x0626…063d at0011 = ╱41╱A╱ // 0x637 @0x11
0x0626…063d at0012 = ╱58╱X╱ // 0x638 @0x12
0x0626…063d at0013 = ╱52╱R╱ // 0x639 @0x13
0x0626…063d at0014 = ╱45╱E╱ // 0x63a @0x14
0x0626…063d at0015 = ╱43╱C╱ // 0x63b @0x15
0x0626…063d at0016 = EOL // 0x63c @0x16
0x0626…063d }
0x063d…0661 9c4f 0540 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0x063d…0661 LineComal80 {
0x063d…0661 ptr = 0x9c4f // 0x63d @0x0
0x063d…0661 lno = 0x021c // 0x63f @0x2
0x063d…0661 at0004 = ╱87╱ DIM ╱ // 0x641 @0x4
0x063d…0661 at0005 = ╱4b╱K╱ // 0x642 @0x5
0x063d…0661 at0006 = ╱54╱T╱ // 0x643 @0x6
0x063d…0661 at0007 = ╱4f╱O╱ // 0x644 @0x7
0x063d…0661 at0008 = ╱5f╱_╱ // 0x645 @0x8
0x063d…0661 at0009 = ╱54╱T╱ // 0x646 @0x9
0x063d…0661 at000a = ╱59╱Y╱ // 0x647 @0xa
0x063d…0661 at000b = ╱50╱P╱ // 0x648 @0xb
0x063d…0661 at000c = ╱45╱E╱ // 0x649 @0xc
0x063d…0661 at000d = ╱ef╱$╱ // 0x64a @0xd
0x063d…0661 at000e = ╱ba╱ OF ╱ // 0x64b @0xe
0x063d…0661 at000f = ╱31╱1╱ // 0x64c @0xf
0x063d…0661 at0010 = ╱f20100╱ // 0x64d @0x10
0x063d…0661 at0013 = ╱ec╱,╱ // 0x650 @0x13
0x063d…0661 at0014 = ╱4b╱K╱ // 0x651 @0x14
0x063d…0661 at0015 = ╱54╱T╱ // 0x652 @0x15
0x063d…0661 at0016 = ╱4f╱O╱ // 0x653 @0x16
0x063d…0661 at0017 = ╱5f╱_╱ // 0x654 @0x17
0x063d…0661 at0018 = ╱4e╱N╱ // 0x655 @0x18
0x063d…0661 at0019 = ╱41╱A╱ // 0x656 @0x19
0x063d…0661 at001a = ╱56╱V╱ // 0x657 @0x1a
0x063d…0661 at001b = ╱4e╱N╱ // 0x658 @0x1b
0x063d…0661 at001c = ╱ef╱$╱ // 0x659 @0x1c
0x063d…0661 at001d = ╱ba╱ OF ╱ // 0x65a @0x1d
0x063d…0661 at001e = ╱34╱4╱ // 0x65b @0x1e
0x063d…0661 at001f = ╱30╱0╱ // 0x65c @0x1f
0x063d…0661 at0020 = ╱f22800╱ // 0x65d @0x20
0x063d…0661 at0023 = EOL // 0x660 @0x23
0x063d…0661 }
0x0661…067b 9c69 0550 REAL KTO_PRIMO,KTO_ULTIMO
0x0661…067b LineComal80 {
0x0661…067b ptr = 0x9c69 // 0x661 @0x0
0x0661…067b lno = 0x0226 // 0x663 @0x2
0x0661…067b at0004 = ╱b3╱ REAL ╱ // 0x665 @0x4
0x0661…067b at0005 = ╱4b╱K╱ // 0x666 @0x5
0x0661…067b at0006 = ╱54╱T╱ // 0x667 @0x6
0x0661…067b at0007 = ╱4f╱O╱ // 0x668 @0x7
0x0661…067b at0008 = ╱5f╱_╱ // 0x669 @0x8
0x0661…067b at0009 = ╱50╱P╱ // 0x66a @0x9
0x0661…067b at000a = ╱52╱R╱ // 0x66b @0xa
0x0661…067b at000b = ╱49╱I╱ // 0x66c @0xb
0x0661…067b at000c = ╱4d╱M╱ // 0x66d @0xc
0x0661…067b at000d = ╱4f╱O╱ // 0x66e @0xd
0x0661…067b at000e = ╱ec╱,╱ // 0x66f @0xe
0x0661…067b at000f = ╱4b╱K╱ // 0x670 @0xf
0x0661…067b at0010 = ╱54╱T╱ // 0x671 @0x10
0x0661…067b at0011 = ╱4f╱O╱ // 0x672 @0x11
0x0661…067b at0012 = ╱5f╱_╱ // 0x673 @0x12
0x0661…067b at0013 = ╱55╱U╱ // 0x674 @0x13
0x0661…067b at0014 = ╱4c╱L╱ // 0x675 @0x14
0x0661…067b at0015 = ╱54╱T╱ // 0x676 @0x15
0x0661…067b at0016 = ╱49╱I╱ // 0x677 @0x16
0x0661…067b at0017 = ╱4d╱M╱ // 0x678 @0x17
0x0661…067b at0018 = ╱4f╱O╱ // 0x679 @0x18
0x0661…067b at0019 = EOL // 0x67a @0x19
0x0661…067b }
0x067b…068e 9c7c 0560 INTEGER KTO_FP,KTO_SP
0x067b…068e LineComal80 {
0x067b…068e ptr = 0x9c7c // 0x67b @0x0
0x067b…068e lno = 0x0230 // 0x67d @0x2
0x067b…068e at0004 = ╱b2╱ INTEGER ╱ // 0x67f @0x4
0x067b…068e at0005 = ╱4b╱K╱ // 0x680 @0x5
0x067b…068e at0006 = ╱54╱T╱ // 0x681 @0x6
0x067b…068e at0007 = ╱4f╱O╱ // 0x682 @0x7
0x067b…068e at0008 = ╱5f╱_╱ // 0x683 @0x8
0x067b…068e at0009 = ╱46╱F╱ // 0x684 @0x9
0x067b…068e at000a = ╱50╱P╱ // 0x685 @0xa
0x067b…068e at000b = ╱ec╱,╱ // 0x686 @0xb
0x067b…068e at000c = ╱4b╱K╱ // 0x687 @0xc
0x067b…068e at000d = ╱54╱T╱ // 0x688 @0xd
0x067b…068e at000e = ╱4f╱O╱ // 0x689 @0xe
0x067b…068e at000f = ╱5f╱_╱ // 0x68a @0xf
0x067b…068e at0010 = ╱53╱S╱ // 0x68b @0x10
0x067b…068e at0011 = ╱50╱P╱ // 0x68c @0x11
0x067b…068e at0012 = EOL // 0x68d @0x12
0x067b…068e }
0x068e…06af 9c9d 0570 // Variable til filen @@KTOIDX
0x068e…06af LineComal80 {
0x068e…06af ptr = 0x9c9d // 0x68e @0x0
0x068e…06af lno = 0x023a // 0x690 @0x2
0x068e…06af at0004 = ╱89╱ // ╱ // 0x692 @0x4
0x068e…06af at0005 = ╱56╱V╱ // 0x693 @0x5
0x068e…06af at0006 = ╱61╱a╱ // 0x694 @0x6
0x068e…06af at0007 = ╱72╱r╱ // 0x695 @0x7
0x068e…06af at0008 = ╱69╱i╱ // 0x696 @0x8
0x068e…06af at0009 = ╱61╱a╱ // 0x697 @0x9
0x068e…06af at000a = ╱62╱b╱ // 0x698 @0xa
0x068e…06af at000b = ╱6c╱l╱ // 0x699 @0xb
0x068e…06af at000c = ╱65╱e╱ // 0x69a @0xc
0x068e…06af at000d = ╱20╱…╱ // 0x69b @0xd
0x068e…06af at000e = ╱74╱t╱ // 0x69c @0xe
0x068e…06af at000f = ╱69╱i╱ // 0x69d @0xf
0x068e…06af at0010 = ╱6c╱l╱ // 0x69e @0x10
0x068e…06af at0011 = ╱20╱…╱ // 0x69f @0x11
0x068e…06af at0012 = ╱66╱f╱ // 0x6a0 @0x12
0x068e…06af at0013 = ╱69╱i╱ // 0x6a1 @0x13
0x068e…06af at0014 = ╱6c╱l╱ // 0x6a2 @0x14
0x068e…06af at0015 = ╱65╱e╱ // 0x6a3 @0x15
0x068e…06af at0016 = ╱6e╱n╱ // 0x6a4 @0x16
0x068e…06af at0017 = ╱20╱…╱ // 0x6a5 @0x17
0x068e…06af at0018 = ╱40╱@╱ // 0x6a6 @0x18
0x068e…06af at0019 = ╱40╱@╱ // 0x6a7 @0x19
0x068e…06af at001a = ╱4b╱K╱ // 0x6a8 @0x1a
0x068e…06af at001b = ╱54╱T╱ // 0x6a9 @0x1b
0x068e…06af at001c = ╱4f╱O╱ // 0x6aa @0x1c
0x068e…06af at001d = ╱49╱I╱ // 0x6ab @0x1d
0x068e…06af at001e = ╱44╱D╱ // 0x6ac @0x1e
0x068e…06af at001f = ╱58╱X╱ // 0x6ad @0x1f
0x068e…06af at0020 = EOL // 0x6ae @0x20
0x068e…06af }
0x06af…06c2 9cb0 0580 DIM KTOIDX$ OF 17
0x06af…06c2 LineComal80 {
0x06af…06c2 ptr = 0x9cb0 // 0x6af @0x0
0x06af…06c2 lno = 0x0244 // 0x6b1 @0x2
0x06af…06c2 at0004 = ╱87╱ DIM ╱ // 0x6b3 @0x4
0x06af…06c2 at0005 = ╱4b╱K╱ // 0x6b4 @0x5
0x06af…06c2 at0006 = ╱54╱T╱ // 0x6b5 @0x6
0x06af…06c2 at0007 = ╱4f╱O╱ // 0x6b6 @0x7
0x06af…06c2 at0008 = ╱49╱I╱ // 0x6b7 @0x8
0x06af…06c2 at0009 = ╱44╱D╱ // 0x6b8 @0x9
0x06af…06c2 at000a = ╱58╱X╱ // 0x6b9 @0xa
0x06af…06c2 at000b = ╱ef╱$╱ // 0x6ba @0xb
0x06af…06c2 at000c = ╱ba╱ OF ╱ // 0x6bb @0xc
0x06af…06c2 at000d = ╱31╱1╱ // 0x6bc @0xd
0x06af…06c2 at000e = ╱37╱7╱ // 0x6bd @0xe
0x06af…06c2 at000f = ╱f21100╱ // 0x6be @0xf
0x06af…06c2 at0012 = EOL // 0x6c1 @0x12
0x06af…06c2 }
0x06c2…06d9 9cc7 0590 INTEGER I_HØJREC,I_MAXREC
0x06c2…06d9 LineComal80 {
0x06c2…06d9 ptr = 0x9cc7 // 0x6c2 @0x0
0x06c2…06d9 lno = 0x024e // 0x6c4 @0x2
0x06c2…06d9 at0004 = ╱b2╱ INTEGER ╱ // 0x6c6 @0x4
0x06c2…06d9 at0005 = ╱49╱I╱ // 0x6c7 @0x5
0x06c2…06d9 at0006 = ╱5f╱_╱ // 0x6c8 @0x6
0x06c2…06d9 at0007 = ╱48╱H╱ // 0x6c9 @0x7
0x06c2…06d9 at0008 = ╱5c╱Ø╱ // 0x6ca @0x8
0x06c2…06d9 at0009 = ╱4a╱J╱ // 0x6cb @0x9
0x06c2…06d9 at000a = ╱52╱R╱ // 0x6cc @0xa
0x06c2…06d9 at000b = ╱45╱E╱ // 0x6cd @0xb
0x06c2…06d9 at000c = ╱43╱C╱ // 0x6ce @0xc
0x06c2…06d9 at000d = ╱ec╱,╱ // 0x6cf @0xd
0x06c2…06d9 at000e = ╱49╱I╱ // 0x6d0 @0xe
0x06c2…06d9 at000f = ╱5f╱_╱ // 0x6d1 @0xf
0x06c2…06d9 at0010 = ╱4d╱M╱ // 0x6d2 @0x10
0x06c2…06d9 at0011 = ╱41╱A╱ // 0x6d3 @0x11
0x06c2…06d9 at0012 = ╱58╱X╱ // 0x6d4 @0x12
0x06c2…06d9 at0013 = ╱52╱R╱ // 0x6d5 @0x13
0x06c2…06d9 at0014 = ╱45╱E╱ // 0x6d6 @0x14
0x06c2…06d9 at0015 = ╱43╱C╱ // 0x6d7 @0x15
0x06c2…06d9 at0016 = EOL // 0x6d8 @0x16
0x06c2…06d9 }
0x06d9…06ea 9cd8 0600 DIM KTONR$ OF 8
0x06d9…06ea LineComal80 {
0x06d9…06ea ptr = 0x9cd8 // 0x6d9 @0x0
0x06d9…06ea lno = 0x0258 // 0x6db @0x2
0x06d9…06ea at0004 = ╱87╱ DIM ╱ // 0x6dd @0x4
0x06d9…06ea at0005 = ╱4b╱K╱ // 0x6de @0x5
0x06d9…06ea at0006 = ╱54╱T╱ // 0x6df @0x6
0x06d9…06ea at0007 = ╱4f╱O╱ // 0x6e0 @0x7
0x06d9…06ea at0008 = ╱4e╱N╱ // 0x6e1 @0x8
0x06d9…06ea at0009 = ╱52╱R╱ // 0x6e2 @0x9
0x06d9…06ea at000a = ╱ef╱$╱ // 0x6e3 @0xa
0x06d9…06ea at000b = ╱ba╱ OF ╱ // 0x6e4 @0xb
0x06d9…06ea at000c = ╱38╱8╱ // 0x6e5 @0xc
0x06d9…06ea at000d = ╱f20800╱ // 0x6e6 @0xd
0x06d9…06ea at0010 = EOL // 0x6e9 @0x10
0x06d9…06ea }
0x06ea…06f5 9ce3 0610 INTEGER RECNR
0x06ea…06f5 LineComal80 {
0x06ea…06f5 ptr = 0x9ce3 // 0x6ea @0x0
0x06ea…06f5 lno = 0x0262 // 0x6ec @0x2
0x06ea…06f5 at0004 = ╱b2╱ INTEGER ╱ // 0x6ee @0x4
0x06ea…06f5 at0005 = ╱52╱R╱ // 0x6ef @0x5
0x06ea…06f5 at0006 = ╱45╱E╱ // 0x6f0 @0x6
0x06ea…06f5 at0007 = ╱43╱C╱ // 0x6f1 @0x7
0x06ea…06f5 at0008 = ╱4e╱N╱ // 0x6f2 @0x8
0x06ea…06f5 at0009 = ╱52╱R╱ // 0x6f3 @0x9
0x06ea…06f5 at000a = EOL // 0x6f4 @0xa
0x06ea…06f5 }
0x06f5…0716 9d04 0620 // Variable til filen @@ST_KTO
0x06f5…0716 LineComal80 {
0x06f5…0716 ptr = 0x9d04 // 0x6f5 @0x0
0x06f5…0716 lno = 0x026c // 0x6f7 @0x2
0x06f5…0716 at0004 = ╱89╱ // ╱ // 0x6f9 @0x4
0x06f5…0716 at0005 = ╱56╱V╱ // 0x6fa @0x5
0x06f5…0716 at0006 = ╱61╱a╱ // 0x6fb @0x6
0x06f5…0716 at0007 = ╱72╱r╱ // 0x6fc @0x7
0x06f5…0716 at0008 = ╱69╱i╱ // 0x6fd @0x8
0x06f5…0716 at0009 = ╱61╱a╱ // 0x6fe @0x9
0x06f5…0716 at000a = ╱62╱b╱ // 0x6ff @0xa
0x06f5…0716 at000b = ╱6c╱l╱ // 0x700 @0xb
0x06f5…0716 at000c = ╱65╱e╱ // 0x701 @0xc
0x06f5…0716 at000d = ╱20╱…╱ // 0x702 @0xd
0x06f5…0716 at000e = ╱74╱t╱ // 0x703 @0xe
0x06f5…0716 at000f = ╱69╱i╱ // 0x704 @0xf
0x06f5…0716 at0010 = ╱6c╱l╱ // 0x705 @0x10
0x06f5…0716 at0011 = ╱20╱…╱ // 0x706 @0x11
0x06f5…0716 at0012 = ╱66╱f╱ // 0x707 @0x12
0x06f5…0716 at0013 = ╱69╱i╱ // 0x708 @0x13
0x06f5…0716 at0014 = ╱6c╱l╱ // 0x709 @0x14
0x06f5…0716 at0015 = ╱65╱e╱ // 0x70a @0x15
0x06f5…0716 at0016 = ╱6e╱n╱ // 0x70b @0x16
0x06f5…0716 at0017 = ╱20╱…╱ // 0x70c @0x17
0x06f5…0716 at0018 = ╱40╱@╱ // 0x70d @0x18
0x06f5…0716 at0019 = ╱40╱@╱ // 0x70e @0x19
0x06f5…0716 at001a = ╱53╱S╱ // 0x70f @0x1a
0x06f5…0716 at001b = ╱54╱T╱ // 0x710 @0x1b
0x06f5…0716 at001c = ╱5f╱_╱ // 0x711 @0x1c
0x06f5…0716 at001d = ╱4b╱K╱ // 0x712 @0x1d
0x06f5…0716 at001e = ╱54╱T╱ // 0x713 @0x1e
0x06f5…0716 at001f = ╱4f╱O╱ // 0x714 @0x1f
0x06f5…0716 at0020 = EOL // 0x715 @0x20
0x06f5…0716 }
0x0716…0729 9d17 0630 DIM ST_KTO$ OF 17
0x0716…0729 LineComal80 {
0x0716…0729 ptr = 0x9d17 // 0x716 @0x0
0x0716…0729 lno = 0x0276 // 0x718 @0x2
0x0716…0729 at0004 = ╱87╱ DIM ╱ // 0x71a @0x4
0x0716…0729 at0005 = ╱53╱S╱ // 0x71b @0x5
0x0716…0729 at0006 = ╱54╱T╱ // 0x71c @0x6
0x0716…0729 at0007 = ╱5f╱_╱ // 0x71d @0x7
0x0716…0729 at0008 = ╱4b╱K╱ // 0x71e @0x8
0x0716…0729 at0009 = ╱54╱T╱ // 0x71f @0x9
0x0716…0729 at000a = ╱4f╱O╱ // 0x720 @0xa
0x0716…0729 at000b = ╱ef╱$╱ // 0x721 @0xb
0x0716…0729 at000c = ╱ba╱ OF ╱ // 0x722 @0xc
0x0716…0729 at000d = ╱31╱1╱ // 0x723 @0xd
0x0716…0729 at000e = ╱37╱7╱ // 0x724 @0xe
0x0716…0729 at000f = ╱f21100╱ // 0x725 @0xf
0x0716…0729 at0012 = EOL // 0x728 @0x12
0x0716…0729 }
0x0729…075c 9d4a 0640 DIM KASSE_KTO$ OF 8,BANK_KTO$ OF 8,GIRO_KTO$ OF 8
0x0729…075c LineComal80 {
0x0729…075c ptr = 0x9d4a // 0x729 @0x0
0x0729…075c lno = 0x0280 // 0x72b @0x2
0x0729…075c at0004 = ╱87╱ DIM ╱ // 0x72d @0x4
0x0729…075c at0005 = ╱4b╱K╱ // 0x72e @0x5
0x0729…075c at0006 = ╱41╱A╱ // 0x72f @0x6
0x0729…075c at0007 = ╱53╱S╱ // 0x730 @0x7
0x0729…075c at0008 = ╱53╱S╱ // 0x731 @0x8
0x0729…075c at0009 = ╱45╱E╱ // 0x732 @0x9
0x0729…075c at000a = ╱5f╱_╱ // 0x733 @0xa
0x0729…075c at000b = ╱4b╱K╱ // 0x734 @0xb
0x0729…075c at000c = ╱54╱T╱ // 0x735 @0xc
0x0729…075c at000d = ╱4f╱O╱ // 0x736 @0xd
0x0729…075c at000e = ╱ef╱$╱ // 0x737 @0xe
0x0729…075c at000f = ╱ba╱ OF ╱ // 0x738 @0xf
0x0729…075c at0010 = ╱38╱8╱ // 0x739 @0x10
0x0729…075c at0011 = ╱f20800╱ // 0x73a @0x11
0x0729…075c at0014 = ╱ec╱,╱ // 0x73d @0x14
0x0729…075c at0015 = ╱42╱B╱ // 0x73e @0x15
0x0729…075c at0016 = ╱41╱A╱ // 0x73f @0x16
0x0729…075c at0017 = ╱4e╱N╱ // 0x740 @0x17
0x0729…075c at0018 = ╱4b╱K╱ // 0x741 @0x18
0x0729…075c at0019 = ╱5f╱_╱ // 0x742 @0x19
0x0729…075c at001a = ╱4b╱K╱ // 0x743 @0x1a
0x0729…075c at001b = ╱54╱T╱ // 0x744 @0x1b
0x0729…075c at001c = ╱4f╱O╱ // 0x745 @0x1c
0x0729…075c at001d = ╱ef╱$╱ // 0x746 @0x1d
0x0729…075c at001e = ╱ba╱ OF ╱ // 0x747 @0x1e
0x0729…075c at001f = ╱38╱8╱ // 0x748 @0x1f
0x0729…075c at0020 = ╱f20800╱ // 0x749 @0x20
0x0729…075c at0023 = ╱ec╱,╱ // 0x74c @0x23
0x0729…075c at0024 = ╱47╱G╱ // 0x74d @0x24
0x0729…075c at0025 = ╱49╱I╱ // 0x74e @0x25
0x0729…075c at0026 = ╱52╱R╱ // 0x74f @0x26
0x0729…075c at0027 = ╱4f╱O╱ // 0x750 @0x27
0x0729…075c at0028 = ╱5f╱_╱ // 0x751 @0x28
0x0729…075c at0029 = ╱4b╱K╱ // 0x752 @0x29
0x0729…075c at002a = ╱54╱T╱ // 0x753 @0x2a
0x0729…075c at002b = ╱4f╱O╱ // 0x754 @0x2b
0x0729…075c at002c = ╱ef╱$╱ // 0x755 @0x2c
0x0729…075c at002d = ╱ba╱ OF ╱ // 0x756 @0x2d
0x0729…075c at002e = ╱38╱8╱ // 0x757 @0x2e
0x0729…075c at002f = ╱f20800╱ // 0x758 @0x2f
0x0729…075c at0032 = EOL // 0x75b @0x32
0x0729…075c }
0x075c…0795 9d83 0650 DIM K_DIFF_KTO$ OF 8,INDMOMS_KTO$ OF 8,UDMOMS_KTO$ OF 8
0x075c…0795 LineComal80 {
0x075c…0795 ptr = 0x9d83 // 0x75c @0x0
0x075c…0795 lno = 0x028a // 0x75e @0x2
0x075c…0795 at0004 = ╱87╱ DIM ╱ // 0x760 @0x4
0x075c…0795 at0005 = ╱4b╱K╱ // 0x761 @0x5
0x075c…0795 at0006 = ╱5f╱_╱ // 0x762 @0x6
0x075c…0795 at0007 = ╱44╱D╱ // 0x763 @0x7
0x075c…0795 at0008 = ╱49╱I╱ // 0x764 @0x8
0x075c…0795 at0009 = ╱46╱F╱ // 0x765 @0x9
0x075c…0795 at000a = ╱46╱F╱ // 0x766 @0xa
0x075c…0795 at000b = ╱5f╱_╱ // 0x767 @0xb
0x075c…0795 at000c = ╱4b╱K╱ // 0x768 @0xc
0x075c…0795 at000d = ╱54╱T╱ // 0x769 @0xd
0x075c…0795 at000e = ╱4f╱O╱ // 0x76a @0xe
0x075c…0795 at000f = ╱ef╱$╱ // 0x76b @0xf
0x075c…0795 at0010 = ╱ba╱ OF ╱ // 0x76c @0x10
0x075c…0795 at0011 = ╱38╱8╱ // 0x76d @0x11
0x075c…0795 at0012 = ╱f20800╱ // 0x76e @0x12
0x075c…0795 at0015 = ╱ec╱,╱ // 0x771 @0x15
0x075c…0795 at0016 = ╱49╱I╱ // 0x772 @0x16
0x075c…0795 at0017 = ╱4e╱N╱ // 0x773 @0x17
0x075c…0795 at0018 = ╱44╱D╱ // 0x774 @0x18
0x075c…0795 at0019 = ╱4d╱M╱ // 0x775 @0x19
0x075c…0795 at001a = ╱4f╱O╱ // 0x776 @0x1a
0x075c…0795 at001b = ╱4d╱M╱ // 0x777 @0x1b
0x075c…0795 at001c = ╱53╱S╱ // 0x778 @0x1c
0x075c…0795 at001d = ╱5f╱_╱ // 0x779 @0x1d
0x075c…0795 at001e = ╱4b╱K╱ // 0x77a @0x1e
0x075c…0795 at001f = ╱54╱T╱ // 0x77b @0x1f
0x075c…0795 at0020 = ╱4f╱O╱ // 0x77c @0x20
0x075c…0795 at0021 = ╱ef╱$╱ // 0x77d @0x21
0x075c…0795 at0022 = ╱ba╱ OF ╱ // 0x77e @0x22
0x075c…0795 at0023 = ╱38╱8╱ // 0x77f @0x23
0x075c…0795 at0024 = ╱f20800╱ // 0x780 @0x24
0x075c…0795 at0027 = ╱ec╱,╱ // 0x783 @0x27
0x075c…0795 at0028 = ╱55╱U╱ // 0x784 @0x28
0x075c…0795 at0029 = ╱44╱D╱ // 0x785 @0x29
0x075c…0795 at002a = ╱4d╱M╱ // 0x786 @0x2a
0x075c…0795 at002b = ╱4f╱O╱ // 0x787 @0x2b
0x075c…0795 at002c = ╱4d╱M╱ // 0x788 @0x2c
0x075c…0795 at002d = ╱53╱S╱ // 0x789 @0x2d
0x075c…0795 at002e = ╱5f╱_╱ // 0x78a @0x2e
0x075c…0795 at002f = ╱4b╱K╱ // 0x78b @0x2f
0x075c…0795 at0030 = ╱54╱T╱ // 0x78c @0x30
0x075c…0795 at0031 = ╱4f╱O╱ // 0x78d @0x31
0x075c…0795 at0032 = ╱ef╱$╱ // 0x78e @0x32
0x075c…0795 at0033 = ╱ba╱ OF ╱ // 0x78f @0x33
0x075c…0795 at0034 = ╱38╱8╱ // 0x790 @0x34
0x075c…0795 at0035 = ╱f20800╱ // 0x791 @0x35
0x075c…0795 at0038 = EOL // 0x794 @0x38
0x075c…0795 }
0x0795…07b5 9da3 0660 // Variable til filen @@TRANS
0x0795…07b5 LineComal80 {
0x0795…07b5 ptr = 0x9da3 // 0x795 @0x0
0x0795…07b5 lno = 0x0294 // 0x797 @0x2
0x0795…07b5 at0004 = ╱89╱ // ╱ // 0x799 @0x4
0x0795…07b5 at0005 = ╱56╱V╱ // 0x79a @0x5
0x0795…07b5 at0006 = ╱61╱a╱ // 0x79b @0x6
0x0795…07b5 at0007 = ╱72╱r╱ // 0x79c @0x7
0x0795…07b5 at0008 = ╱69╱i╱ // 0x79d @0x8
0x0795…07b5 at0009 = ╱61╱a╱ // 0x79e @0x9
0x0795…07b5 at000a = ╱62╱b╱ // 0x79f @0xa
0x0795…07b5 at000b = ╱6c╱l╱ // 0x7a0 @0xb
0x0795…07b5 at000c = ╱65╱e╱ // 0x7a1 @0xc
0x0795…07b5 at000d = ╱20╱…╱ // 0x7a2 @0xd
0x0795…07b5 at000e = ╱74╱t╱ // 0x7a3 @0xe
0x0795…07b5 at000f = ╱69╱i╱ // 0x7a4 @0xf
0x0795…07b5 at0010 = ╱6c╱l╱ // 0x7a5 @0x10
0x0795…07b5 at0011 = ╱20╱…╱ // 0x7a6 @0x11
0x0795…07b5 at0012 = ╱66╱f╱ // 0x7a7 @0x12
0x0795…07b5 at0013 = ╱69╱i╱ // 0x7a8 @0x13
0x0795…07b5 at0014 = ╱6c╱l╱ // 0x7a9 @0x14
0x0795…07b5 at0015 = ╱65╱e╱ // 0x7aa @0x15
0x0795…07b5 at0016 = ╱6e╱n╱ // 0x7ab @0x16
0x0795…07b5 at0017 = ╱20╱…╱ // 0x7ac @0x17
0x0795…07b5 at0018 = ╱40╱@╱ // 0x7ad @0x18
0x0795…07b5 at0019 = ╱40╱@╱ // 0x7ae @0x19
0x0795…07b5 at001a = ╱54╱T╱ // 0x7af @0x1a
0x0795…07b5 at001b = ╱52╱R╱ // 0x7b0 @0x1b
0x0795…07b5 at001c = ╱41╱A╱ // 0x7b1 @0x1c
0x0795…07b5 at001d = ╱4e╱N╱ // 0x7b2 @0x1d
0x0795…07b5 at001e = ╱53╱S╱ // 0x7b3 @0x1e
0x0795…07b5 at001f = EOL // 0x7b4 @0x1f
0x0795…07b5 }
0x07b5…07c7 9db5 0670 DIM TRANS$ OF 17
0x07b5…07c7 LineComal80 {
0x07b5…07c7 ptr = 0x9db5 // 0x7b5 @0x0
0x07b5…07c7 lno = 0x029e // 0x7b7 @0x2
0x07b5…07c7 at0004 = ╱87╱ DIM ╱ // 0x7b9 @0x4
0x07b5…07c7 at0005 = ╱54╱T╱ // 0x7ba @0x5
0x07b5…07c7 at0006 = ╱52╱R╱ // 0x7bb @0x6
0x07b5…07c7 at0007 = ╱41╱A╱ // 0x7bc @0x7
0x07b5…07c7 at0008 = ╱4e╱N╱ // 0x7bd @0x8
0x07b5…07c7 at0009 = ╱53╱S╱ // 0x7be @0x9
0x07b5…07c7 at000a = ╱ef╱$╱ // 0x7bf @0xa
0x07b5…07c7 at000b = ╱ba╱ OF ╱ // 0x7c0 @0xb
0x07b5…07c7 at000c = ╱31╱1╱ // 0x7c1 @0xc
0x07b5…07c7 at000d = ╱37╱7╱ // 0x7c2 @0xd
0x07b5…07c7 at000e = ╱f21100╱ // 0x7c3 @0xe
0x07b5…07c7 at0011 = EOL // 0x7c6 @0x11
0x07b5…07c7 }
0x07c7…07de 9dcc 0680 INTEGER T_HØJREC,T_MAXREC
0x07c7…07de LineComal80 {
0x07c7…07de ptr = 0x9dcc // 0x7c7 @0x0
0x07c7…07de lno = 0x02a8 // 0x7c9 @0x2
0x07c7…07de at0004 = ╱b2╱ INTEGER ╱ // 0x7cb @0x4
0x07c7…07de at0005 = ╱54╱T╱ // 0x7cc @0x5
0x07c7…07de at0006 = ╱5f╱_╱ // 0x7cd @0x6
0x07c7…07de at0007 = ╱48╱H╱ // 0x7ce @0x7
0x07c7…07de at0008 = ╱5c╱Ø╱ // 0x7cf @0x8
0x07c7…07de at0009 = ╱4a╱J╱ // 0x7d0 @0x9
0x07c7…07de at000a = ╱52╱R╱ // 0x7d1 @0xa
0x07c7…07de at000b = ╱45╱E╱ // 0x7d2 @0xb
0x07c7…07de at000c = ╱43╱C╱ // 0x7d3 @0xc
0x07c7…07de at000d = ╱ec╱,╱ // 0x7d4 @0xd
0x07c7…07de at000e = ╱54╱T╱ // 0x7d5 @0xe
0x07c7…07de at000f = ╱5f╱_╱ // 0x7d6 @0xf
0x07c7…07de at0010 = ╱4d╱M╱ // 0x7d7 @0x10
0x07c7…07de at0011 = ╱41╱A╱ // 0x7d8 @0x11
0x07c7…07de at0012 = ╱58╱X╱ // 0x7d9 @0x12
0x07c7…07de at0013 = ╱52╱R╱ // 0x7da @0x13
0x07c7…07de at0014 = ╱45╱E╱ // 0x7db @0x14
0x07c7…07de at0015 = ╱43╱C╱ // 0x7dc @0x15
0x07c7…07de at0016 = EOL // 0x7dd @0x16
0x07c7…07de }
0x07de…0814 9e02 0690 DIM BKTONR$ OF 8,BDATO$ OF 6,BLGNR$ OF 5,BTXT$ OF 20
0x07de…0814 LineComal80 {
0x07de…0814 ptr = 0x9e02 // 0x7de @0x0
0x07de…0814 lno = 0x02b2 // 0x7e0 @0x2
0x07de…0814 at0004 = ╱87╱ DIM ╱ // 0x7e2 @0x4
0x07de…0814 at0005 = ╱42╱B╱ // 0x7e3 @0x5
0x07de…0814 at0006 = ╱4b╱K╱ // 0x7e4 @0x6
0x07de…0814 at0007 = ╱54╱T╱ // 0x7e5 @0x7
0x07de…0814 at0008 = ╱4f╱O╱ // 0x7e6 @0x8
0x07de…0814 at0009 = ╱4e╱N╱ // 0x7e7 @0x9
0x07de…0814 at000a = ╱52╱R╱ // 0x7e8 @0xa
0x07de…0814 at000b = ╱ef╱$╱ // 0x7e9 @0xb
0x07de…0814 at000c = ╱ba╱ OF ╱ // 0x7ea @0xc
0x07de…0814 at000d = ╱38╱8╱ // 0x7eb @0xd
0x07de…0814 at000e = ╱f20800╱ // 0x7ec @0xe
0x07de…0814 at0011 = ╱ec╱,╱ // 0x7ef @0x11
0x07de…0814 at0012 = ╱42╱B╱ // 0x7f0 @0x12
0x07de…0814 at0013 = ╱44╱D╱ // 0x7f1 @0x13
0x07de…0814 at0014 = ╱41╱A╱ // 0x7f2 @0x14
0x07de…0814 at0015 = ╱54╱T╱ // 0x7f3 @0x15
0x07de…0814 at0016 = ╱4f╱O╱ // 0x7f4 @0x16
0x07de…0814 at0017 = ╱ef╱$╱ // 0x7f5 @0x17
0x07de…0814 at0018 = ╱ba╱ OF ╱ // 0x7f6 @0x18
0x07de…0814 at0019 = ╱36╱6╱ // 0x7f7 @0x19
0x07de…0814 at001a = ╱f20600╱ // 0x7f8 @0x1a
0x07de…0814 at001d = ╱ec╱,╱ // 0x7fb @0x1d
0x07de…0814 at001e = ╱42╱B╱ // 0x7fc @0x1e
0x07de…0814 at001f = ╱4c╱L╱ // 0x7fd @0x1f
0x07de…0814 at0020 = ╱47╱G╱ // 0x7fe @0x20
0x07de…0814 at0021 = ╱4e╱N╱ // 0x7ff @0x21
0x07de…0814 at0022 = ╱52╱R╱ // 0x800 @0x22
0x07de…0814 at0023 = ╱ef╱$╱ // 0x801 @0x23
0x07de…0814 at0024 = ╱ba╱ OF ╱ // 0x802 @0x24
0x07de…0814 at0025 = ╱35╱5╱ // 0x803 @0x25
0x07de…0814 at0026 = ╱f20500╱ // 0x804 @0x26
0x07de…0814 at0029 = ╱ec╱,╱ // 0x807 @0x29
0x07de…0814 at002a = ╱42╱B╱ // 0x808 @0x2a
0x07de…0814 at002b = ╱54╱T╱ // 0x809 @0x2b
0x07de…0814 at002c = ╱58╱X╱ // 0x80a @0x2c
0x07de…0814 at002d = ╱54╱T╱ // 0x80b @0x2d
0x07de…0814 at002e = ╱ef╱$╱ // 0x80c @0x2e
0x07de…0814 at002f = ╱ba╱ OF ╱ // 0x80d @0x2f
0x07de…0814 at0030 = ╱32╱2╱ // 0x80e @0x30
0x07de…0814 at0031 = ╱30╱0╱ // 0x80f @0x31
0x07de…0814 at0032 = ╱f21400╱ // 0x810 @0x32
0x07de…0814 at0035 = EOL // 0x813 @0x35
0x07de…0814 }
0x0814…0826 9e14 0700 REAL BMOMS,BBELØB
0x0814…0826 LineComal80 {
0x0814…0826 ptr = 0x9e14 // 0x814 @0x0
0x0814…0826 lno = 0x02bc // 0x816 @0x2
0x0814…0826 at0004 = ╱b3╱ REAL ╱ // 0x818 @0x4
0x0814…0826 at0005 = ╱42╱B╱ // 0x819 @0x5
0x0814…0826 at0006 = ╱4d╱M╱ // 0x81a @0x6
0x0814…0826 at0007 = ╱4f╱O╱ // 0x81b @0x7
0x0814…0826 at0008 = ╱4d╱M╱ // 0x81c @0x8
0x0814…0826 at0009 = ╱53╱S╱ // 0x81d @0x9
0x0814…0826 at000a = ╱ec╱,╱ // 0x81e @0xa
0x0814…0826 at000b = ╱42╱B╱ // 0x81f @0xb
0x0814…0826 at000c = ╱42╱B╱ // 0x820 @0xc
0x0814…0826 at000d = ╱45╱E╱ // 0x821 @0xd
0x0814…0826 at000e = ╱4c╱L╱ // 0x822 @0xe
0x0814…0826 at000f = ╱5c╱Ø╱ // 0x823 @0xf
0x0814…0826 at0010 = ╱42╱B╱ // 0x824 @0x10
0x0814…0826 at0011 = EOL // 0x825 @0x11
0x0814…0826 }
0x0826…0835 9e23 0710 INTEGER DK,NTRANS
0x0826…0835 LineComal80 {
0x0826…0835 ptr = 0x9e23 // 0x826 @0x0
0x0826…0835 lno = 0x02c6 // 0x828 @0x2
0x0826…0835 at0004 = ╱b2╱ INTEGER ╱ // 0x82a @0x4
0x0826…0835 at0005 = ╱44╱D╱ // 0x82b @0x5
0x0826…0835 at0006 = ╱4b╱K╱ // 0x82c @0x6
0x0826…0835 at0007 = ╱ec╱,╱ // 0x82d @0x7
0x0826…0835 at0008 = ╱4e╱N╱ // 0x82e @0x8
0x0826…0835 at0009 = ╱54╱T╱ // 0x82f @0x9
0x0826…0835 at000a = ╱52╱R╱ // 0x830 @0xa
0x0826…0835 at000b = ╱41╱A╱ // 0x831 @0xb
0x0826…0835 at000c = ╱4e╱N╱ // 0x832 @0xc
0x0826…0835 at000d = ╱53╱S╱ // 0x833 @0xd
0x0826…0835 at000e = EOL // 0x834 @0xe
0x0826…0835 }
0x0835…0846 9e34 0720 ENDPROC DIMENSIONER
0x0835…0846 LineComal80 {
0x0835…0846 ptr = 0x9e34 // 0x835 @0x0
0x0835…0846 lno = 0x02d0 // 0x837 @0x2
0x0835…0846 at0004 = ╱9f╱ ENDPROC ╱ // 0x839 @0x4
0x0835…0846 at0005 = ╱44╱D╱ // 0x83a @0x5
0x0835…0846 at0006 = ╱49╱I╱ // 0x83b @0x6
0x0835…0846 at0007 = ╱4d╱M╱ // 0x83c @0x7
0x0835…0846 at0008 = ╱45╱E╱ // 0x83d @0x8
0x0835…0846 at0009 = ╱4e╱N╱ // 0x83e @0x9
0x0835…0846 at000a = ╱53╱S╱ // 0x83f @0xa
0x0835…0846 at000b = ╱49╱I╱ // 0x840 @0xb
0x0835…0846 at000c = ╱4f╱O╱ // 0x841 @0xc
0x0835…0846 at000d = ╱4e╱N╱ // 0x842 @0xd
0x0835…0846 at000e = ╱45╱E╱ // 0x843 @0xe
0x0835…0846 at000f = ╱52╱R╱ // 0x844 @0xf
0x0835…0846 at0010 = EOL // 0x845 @0x10
0x0835…0846 }
0x0846…084b 9e39 0730
0x0846…084b LineComal80 {
0x0846…084b ptr = 0x9e39 // 0x846 @0x0
0x0846…084b lno = 0x02da // 0x848 @0x2
0x0846…084b at0004 = EOL // 0x84a @0x4
0x0846…084b }
0x084b…0859 9e47 0740 PROC INITIER
0x084b…0859 LineComal80 {
0x084b…0859 ptr = 0x9e47 // 0x84b @0x0
0x084b…0859 lno = 0x02e4 // 0x84d @0x2
0x084b…0859 at0004 = ╱9e02╱ PROC ╱ // 0x84f @0x4
0x084b…0859 at0006 = ╱49╱I╱ // 0x851 @0x6
0x084b…0859 at0007 = ╱4e╱N╱ // 0x852 @0x7
0x084b…0859 at0008 = ╱49╱I╱ // 0x853 @0x8
0x084b…0859 at0009 = ╱54╱T╱ // 0x854 @0x9
0x084b…0859 at000a = ╱49╱I╱ // 0x855 @0xa
0x084b…0859 at000b = ╱45╱E╱ // 0x856 @0xb
0x084b…0859 at000c = ╱52╱R╱ // 0x857 @0xc
0x084b…0859 at000d = EOL // 0x858 @0xd
0x084b…0859 }
0x0859…086b 9e59 0750 LET PRGFL$ := "DP2"
0x0859…086b LineComal80 {
0x0859…086b ptr = 0x9e59 // 0x859 @0x0
0x0859…086b lno = 0x02ee // 0x85b @0x2
0x0859…086b at0004 = ╱86╱ LET ╱ // 0x85d @0x4
0x0859…086b at0005 = ╱50╱P╱ // 0x85e @0x5
0x0859…086b at0006 = ╱52╱R╱ // 0x85f @0x6
0x0859…086b at0007 = ╱47╱G╱ // 0x860 @0x7
0x0859…086b at0008 = ╱46╱F╱ // 0x861 @0x8
0x0859…086b at0009 = ╱4c╱L╱ // 0x862 @0x9
0x0859…086b at000a = ╱ef╱$╱ // 0x863 @0xa
0x0859…086b at000b = ╱f0╱ := ╱ // 0x864 @0xb
0x0859…086b at000c = ╱22╱"╱ // 0x865 @0xc
0x0859…086b at000d = ╱44╱D╱ // 0x866 @0xd
0x0859…086b at000e = ╱50╱P╱ // 0x867 @0xe
0x0859…086b at000f = ╱32╱2╱ // 0x868 @0xf
0x0859…086b at0010 = ╱22╱"╱ // 0x869 @0x10
0x0859…086b at0011 = EOL // 0x86a @0x11
0x0859…086b }
0x086b…0888 9e76 0760 LET PROGRAM$ := PRGFL$ + ":SYSU"
0x086b…0888 LineComal80 {
0x086b…0888 ptr = 0x9e76 // 0x86b @0x0
0x086b…0888 lno = 0x02f8 // 0x86d @0x2
0x086b…0888 at0004 = ╱86╱ LET ╱ // 0x86f @0x4
0x086b…0888 at0005 = ╱50╱P╱ // 0x870 @0x5
0x086b…0888 at0006 = ╱52╱R╱ // 0x871 @0x6
0x086b…0888 at0007 = ╱4f╱O╱ // 0x872 @0x7
0x086b…0888 at0008 = ╱47╱G╱ // 0x873 @0x8
0x086b…0888 at0009 = ╱52╱R╱ // 0x874 @0x9
0x086b…0888 at000a = ╱41╱A╱ // 0x875 @0xa
0x086b…0888 at000b = ╱4d╱M╱ // 0x876 @0xb
0x086b…0888 at000c = ╱ef╱$╱ // 0x877 @0xc
0x086b…0888 at000d = ╱f0╱ := ╱ // 0x878 @0xd
0x086b…0888 at000e = ╱50╱P╱ // 0x879 @0xe
0x086b…0888 at000f = ╱52╱R╱ // 0x87a @0xf
0x086b…0888 at0010 = ╱47╱G╱ // 0x87b @0x10
0x086b…0888 at0011 = ╱46╱F╱ // 0x87c @0x11
0x086b…0888 at0012 = ╱4c╱L╱ // 0x87d @0x12
0x086b…0888 at0013 = ╱ef╱$╱ // 0x87e @0x13
0x086b…0888 at0014 = ╱eb╱ + ╱ // 0x87f @0x14
0x086b…0888 at0015 = ╱22╱"╱ // 0x880 @0x15
0x086b…0888 at0016 = ╱3a╱:╱ // 0x881 @0x16
0x086b…0888 at0017 = ╱53╱S╱ // 0x882 @0x17
0x086b…0888 at0018 = ╱59╱Y╱ // 0x883 @0x18
0x086b…0888 at0019 = ╱53╱S╱ // 0x884 @0x19
0x086b…0888 at001a = ╱55╱U╱ // 0x885 @0x1a
0x086b…0888 at001b = ╱22╱"╱ // 0x886 @0x1b
0x086b…0888 at001c = EOL // 0x887 @0x1c
0x086b…0888 }
0x0888…08a9 9e97 0770 LET TAL$ := "0123456789" ; NULR := 0
0x0888…08a9 LineComal80 {
0x0888…08a9 ptr = 0x9e97 // 0x888 @0x0
0x0888…08a9 lno = 0x0302 // 0x88a @0x2
0x0888…08a9 at0004 = ╱86╱ LET ╱ // 0x88c @0x4
0x0888…08a9 at0005 = ╱54╱T╱ // 0x88d @0x5
0x0888…08a9 at0006 = ╱41╱A╱ // 0x88e @0x6
0x0888…08a9 at0007 = ╱4c╱L╱ // 0x88f @0x7
0x0888…08a9 at0008 = ╱ef╱$╱ // 0x890 @0x8
0x0888…08a9 at0009 = ╱f0╱ := ╱ // 0x891 @0x9
0x0888…08a9 at000a = ╱22╱"╱ // 0x892 @0xa
0x0888…08a9 at000b = ╱30╱0╱ // 0x893 @0xb
0x0888…08a9 at000c = ╱31╱1╱ // 0x894 @0xc
0x0888…08a9 at000d = ╱32╱2╱ // 0x895 @0xd
0x0888…08a9 at000e = ╱33╱3╱ // 0x896 @0xe
0x0888…08a9 at000f = ╱34╱4╱ // 0x897 @0xf
0x0888…08a9 at0010 = ╱35╱5╱ // 0x898 @0x10
0x0888…08a9 at0011 = ╱36╱6╱ // 0x899 @0x11
0x0888…08a9 at0012 = ╱37╱7╱ // 0x89a @0x12
0x0888…08a9 at0013 = ╱38╱8╱ // 0x89b @0x13
0x0888…08a9 at0014 = ╱39╱9╱ // 0x89c @0x14
0x0888…08a9 at0015 = ╱22╱"╱ // 0x89d @0x15
0x0888…08a9 at0016 = ╱ea╱ ; ╱ // 0x89e @0x16
0x0888…08a9 at0017 = ╱4e╱N╱ // 0x89f @0x17
0x0888…08a9 at0018 = ╱55╱U╱ // 0x8a0 @0x18
0x0888…08a9 at0019 = ╱4c╱L╱ // 0x8a1 @0x19
0x0888…08a9 at001a = ╱52╱R╱ // 0x8a2 @0x1a
0x0888…08a9 at001b = ╱f0╱ := ╱ // 0x8a3 @0x1b
0x0888…08a9 at001c = ╱30╱0╱ // 0x8a4 @0x1c
0x0888…08a9 at001d = ╱f20000╱ // 0x8a5 @0x1d
0x0888…08a9 at0020 = EOL // 0x8a8 @0x20
0x0888…08a9 }
0x08a9…08d1 9ebf 0780 FOR I := ╱cc╱ ("A") TO ("Å") DO LET ALFA$ := ALFA$ + CHR$ (I)
0x08a9…08d1 LineComal80 {
0x08a9…08d1 ptr = 0x9ebf // 0x8a9 @0x0
0x08a9…08d1 lno = 0x030c // 0x8ab @0x2
0x08a9…08d1 at0004 = ╱b400╱ FOR ╱ // 0x8ad @0x4
0x08a9…08d1 at0006 = ╱49╱I╱ // 0x8af @0x6
0x08a9…08d1 at0007 = ╱f0╱ := ╱ // 0x8b0 @0x7
0x08a9…08d1 at0008 = ╱cc╱ // 0x8b1 @0x8
0x08a9…08d1 at0009 = ╱ed╱(╱ // 0x8b2 @0x9
0x08a9…08d1 at000a = ╱22╱"╱ // 0x8b3 @0xa
0x08a9…08d1 at000b = ╱41╱A╱ // 0x8b4 @0xb
0x08a9…08d1 at000c = ╱22╱"╱ // 0x8b5 @0xc
0x08a9…08d1 at000d = ╱ee╱)╱ // 0x8b6 @0xd
0x08a9…08d1 at000e = ╱b7cc╱ TO ╱ // 0x8b7 @0xe
0x08a9…08d1 at0010 = ╱ed╱(╱ // 0x8b9 @0x10
0x08a9…08d1 at0011 = ╱22╱"╱ // 0x8ba @0x11
0x08a9…08d1 at0012 = ╱5d╱Å╱ // 0x8bb @0x12
0x08a9…08d1 at0013 = ╱22╱"╱ // 0x8bc @0x13
0x08a9…08d1 at0014 = ╱ee╱)╱ // 0x8bd @0x14
0x08a9…08d1 at0015 = ╱bb╱ DO ╱ // 0x8be @0x15
0x08a9…08d1 at0016 = ╱86╱ LET ╱ // 0x8bf @0x16
0x08a9…08d1 at0017 = ╱41╱A╱ // 0x8c0 @0x17
0x08a9…08d1 at0018 = ╱4c╱L╱ // 0x8c1 @0x18
0x08a9…08d1 at0019 = ╱46╱F╱ // 0x8c2 @0x19
0x08a9…08d1 at001a = ╱41╱A╱ // 0x8c3 @0x1a
0x08a9…08d1 at001b = ╱ef╱$╱ // 0x8c4 @0x1b
0x08a9…08d1 at001c = ╱f0╱ := ╱ // 0x8c5 @0x1c
0x08a9…08d1 at001d = ╱41╱A╱ // 0x8c6 @0x1d
0x08a9…08d1 at001e = ╱4c╱L╱ // 0x8c7 @0x1e
0x08a9…08d1 at001f = ╱46╱F╱ // 0x8c8 @0x1f
0x08a9…08d1 at0020 = ╱41╱A╱ // 0x8c9 @0x20
0x08a9…08d1 at0021 = ╱ef╱$╱ // 0x8ca @0x21
0x08a9…08d1 at0022 = ╱eb╱ + ╱ // 0x8cb @0x22
0x08a9…08d1 at0023 = ╱d0╱ CHR$ ╱ // 0x8cc @0x23
0x08a9…08d1 at0024 = ╱ed╱(╱ // 0x8cd @0x24
0x08a9…08d1 at0025 = ╱49╱I╱ // 0x8ce @0x25
0x08a9…08d1 at0026 = ╱ee╱)╱ // 0x8cf @0x26
0x08a9…08d1 at0027 = EOL // 0x8d0 @0x27
0x08a9…08d1 }
0x08d1…090b 9ef9 0790 LET SPC$ := " "
0x08d1…090b LineComal80 {
0x08d1…090b ptr = 0x9ef9 // 0x8d1 @0x0
0x08d1…090b lno = 0x0316 // 0x8d3 @0x2
0x08d1…090b at0004 = ╱86╱ LET ╱ // 0x8d5 @0x4
0x08d1…090b at0005 = ╱53╱S╱ // 0x8d6 @0x5
0x08d1…090b at0006 = ╱50╱P╱ // 0x8d7 @0x6
0x08d1…090b at0007 = ╱43╱C╱ // 0x8d8 @0x7
0x08d1…090b at0008 = ╱ef╱$╱ // 0x8d9 @0x8
0x08d1…090b at0009 = ╱f0╱ := ╱ // 0x8da @0x9
0x08d1…090b at000a = ╱22╱"╱ // 0x8db @0xa
0x08d1…090b at000b = ╱20╱…╱ // 0x8dc @0xb
0x08d1…090b at000c = ╱20╱…╱ // 0x8dd @0xc
0x08d1…090b at000d = ╱20╱…╱ // 0x8de @0xd
0x08d1…090b at000e = ╱20╱…╱ // 0x8df @0xe
0x08d1…090b at000f = ╱20╱…╱ // 0x8e0 @0xf
0x08d1…090b at0010 = ╱20╱…╱ // 0x8e1 @0x10
0x08d1…090b at0011 = ╱20╱…╱ // 0x8e2 @0x11
0x08d1…090b at0012 = ╱20╱…╱ // 0x8e3 @0x12
0x08d1…090b at0013 = ╱20╱…╱ // 0x8e4 @0x13
0x08d1…090b at0014 = ╱20╱…╱ // 0x8e5 @0x14
0x08d1…090b at0015 = ╱20╱…╱ // 0x8e6 @0x15
0x08d1…090b at0016 = ╱20╱…╱ // 0x8e7 @0x16
0x08d1…090b at0017 = ╱20╱…╱ // 0x8e8 @0x17
0x08d1…090b at0018 = ╱20╱…╱ // 0x8e9 @0x18
0x08d1…090b at0019 = ╱20╱…╱ // 0x8ea @0x19
0x08d1…090b at001a = ╱20╱…╱ // 0x8eb @0x1a
0x08d1…090b at001b = ╱20╱…╱ // 0x8ec @0x1b
0x08d1…090b at001c = ╱20╱…╱ // 0x8ed @0x1c
0x08d1…090b at001d = ╱20╱…╱ // 0x8ee @0x1d
0x08d1…090b at001e = ╱20╱…╱ // 0x8ef @0x1e
0x08d1…090b at001f = ╱20╱…╱ // 0x8f0 @0x1f
0x08d1…090b at0020 = ╱20╱…╱ // 0x8f1 @0x20
0x08d1…090b at0021 = ╱20╱…╱ // 0x8f2 @0x21
0x08d1…090b at0022 = ╱20╱…╱ // 0x8f3 @0x22
0x08d1…090b at0023 = ╱20╱…╱ // 0x8f4 @0x23
0x08d1…090b at0024 = ╱20╱…╱ // 0x8f5 @0x24
0x08d1…090b at0025 = ╱20╱…╱ // 0x8f6 @0x25
0x08d1…090b at0026 = ╱20╱…╱ // 0x8f7 @0x26
0x08d1…090b at0027 = ╱20╱…╱ // 0x8f8 @0x27
0x08d1…090b at0028 = ╱20╱…╱ // 0x8f9 @0x28
0x08d1…090b at0029 = ╱20╱…╱ // 0x8fa @0x29
0x08d1…090b at002a = ╱20╱…╱ // 0x8fb @0x2a
0x08d1…090b at002b = ╱20╱…╱ // 0x8fc @0x2b
0x08d1…090b at002c = ╱20╱…╱ // 0x8fd @0x2c
0x08d1…090b at002d = ╱20╱…╱ // 0x8fe @0x2d
0x08d1…090b at002e = ╱20╱…╱ // 0x8ff @0x2e
0x08d1…090b at002f = ╱20╱…╱ // 0x900 @0x2f
0x08d1…090b at0030 = ╱20╱…╱ // 0x901 @0x30
0x08d1…090b at0031 = ╱20╱…╱ // 0x902 @0x31
0x08d1…090b at0032 = ╱20╱…╱ // 0x903 @0x32
0x08d1…090b at0033 = ╱20╱…╱ // 0x904 @0x33
0x08d1…090b at0034 = ╱20╱…╱ // 0x905 @0x34
0x08d1…090b at0035 = ╱20╱…╱ // 0x906 @0x35
0x08d1…090b at0036 = ╱20╱…╱ // 0x907 @0x36
0x08d1…090b at0037 = ╱20╱…╱ // 0x908 @0x37
0x08d1…090b at0038 = ╱22╱"╱ // 0x909 @0x38
0x08d1…090b at0039 = EOL // 0x90a @0x39
0x08d1…090b }
0x090b…091f 9f0d 0800 LET SPC$ := SPC$ + SPC$
0x090b…091f LineComal80 {
0x090b…091f ptr = 0x9f0d // 0x90b @0x0
0x090b…091f lno = 0x0320 // 0x90d @0x2
0x090b…091f at0004 = ╱86╱ LET ╱ // 0x90f @0x4
0x090b…091f at0005 = ╱53╱S╱ // 0x910 @0x5
0x090b…091f at0006 = ╱50╱P╱ // 0x911 @0x6
0x090b…091f at0007 = ╱43╱C╱ // 0x912 @0x7
0x090b…091f at0008 = ╱ef╱$╱ // 0x913 @0x8
0x090b…091f at0009 = ╱f0╱ := ╱ // 0x914 @0x9
0x090b…091f at000a = ╱53╱S╱ // 0x915 @0xa
0x090b…091f at000b = ╱50╱P╱ // 0x916 @0xb
0x090b…091f at000c = ╱43╱C╱ // 0x917 @0xc
0x090b…091f at000d = ╱ef╱$╱ // 0x918 @0xd
0x090b…091f at000e = ╱eb╱ + ╱ // 0x919 @0xe
0x090b…091f at000f = ╱53╱S╱ // 0x91a @0xf
0x090b…091f at0010 = ╱50╱P╱ // 0x91b @0x10
0x090b…091f at0011 = ╱43╱C╱ // 0x91c @0x11
0x090b…091f at0012 = ╱ef╱$╱ // 0x91d @0x12
0x090b…091f at0013 = EOL // 0x91e @0x13
0x090b…091f }
0x091f…094a 9f38 0810 LET FALSE := 0 ; TRUE := 1 // boolske variable
0x091f…094a LineComal80 {
0x091f…094a ptr = 0x9f38 // 0x91f @0x0
0x091f…094a lno = 0x032a // 0x921 @0x2
0x091f…094a at0004 = ╱86╱ LET ╱ // 0x923 @0x4
0x091f…094a at0005 = ╱46╱F╱ // 0x924 @0x5
0x091f…094a at0006 = ╱41╱A╱ // 0x925 @0x6
0x091f…094a at0007 = ╱4c╱L╱ // 0x926 @0x7
0x091f…094a at0008 = ╱53╱S╱ // 0x927 @0x8
0x091f…094a at0009 = ╱45╱E╱ // 0x928 @0x9
0x091f…094a at000a = ╱f0╱ := ╱ // 0x929 @0xa
0x091f…094a at000b = ╱30╱0╱ // 0x92a @0xb
0x091f…094a at000c = ╱f20000╱ // 0x92b @0xc
0x091f…094a at000f = ╱ea╱ ; ╱ // 0x92e @0xf
0x091f…094a at0010 = ╱54╱T╱ // 0x92f @0x10
0x091f…094a at0011 = ╱52╱R╱ // 0x930 @0x11
0x091f…094a at0012 = ╱55╱U╱ // 0x931 @0x12
0x091f…094a at0013 = ╱45╱E╱ // 0x932 @0x13
0x091f…094a at0014 = ╱f0╱ := ╱ // 0x933 @0x14
0x091f…094a at0015 = ╱31╱1╱ // 0x934 @0x15
0x091f…094a at0016 = ╱f20100╱ // 0x935 @0x16
0x091f…094a at0019 = ╱89╱ // ╱ // 0x938 @0x19
0x091f…094a at001a = ╱62╱b╱ // 0x939 @0x1a
0x091f…094a at001b = ╱6f╱o╱ // 0x93a @0x1b
0x091f…094a at001c = ╱6f╱o╱ // 0x93b @0x1c
0x091f…094a at001d = ╱6c╱l╱ // 0x93c @0x1d
0x091f…094a at001e = ╱73╱s╱ // 0x93d @0x1e
0x091f…094a at001f = ╱6b╱k╱ // 0x93e @0x1f
0x091f…094a at0020 = ╱65╱e╱ // 0x93f @0x20
0x091f…094a at0021 = ╱20╱…╱ // 0x940 @0x21
0x091f…094a at0022 = ╱76╱v╱ // 0x941 @0x22
0x091f…094a at0023 = ╱61╱a╱ // 0x942 @0x23
0x091f…094a at0024 = ╱72╱r╱ // 0x943 @0x24
0x091f…094a at0025 = ╱69╱i╱ // 0x944 @0x25
0x091f…094a at0026 = ╱61╱a╱ // 0x945 @0x26
0x091f…094a at0027 = ╱62╱b╱ // 0x946 @0x27
0x091f…094a at0028 = ╱6c╱l╱ // 0x947 @0x28
0x091f…094a at0029 = ╱65╱e╱ // 0x948 @0x29
0x091f…094a at002a = EOL // 0x949 @0x2a
0x091f…094a }
0x094a…0967 9f55 0820 LET KREDIT := - 1 ; DEBET := 1
0x094a…0967 LineComal80 {
0x094a…0967 ptr = 0x9f55 // 0x94a @0x0
0x094a…0967 lno = 0x0334 // 0x94c @0x2
0x094a…0967 at0004 = ╱86╱ LET ╱ // 0x94e @0x4
0x094a…0967 at0005 = ╱4b╱K╱ // 0x94f @0x5
0x094a…0967 at0006 = ╱52╱R╱ // 0x950 @0x6
0x094a…0967 at0007 = ╱45╱E╱ // 0x951 @0x7
0x094a…0967 at0008 = ╱44╱D╱ // 0x952 @0x8
0x094a…0967 at0009 = ╱49╱I╱ // 0x953 @0x9
0x094a…0967 at000a = ╱54╱T╱ // 0x954 @0xa
0x094a…0967 at000b = ╱f0╱ := ╱ // 0x955 @0xb
0x094a…0967 at000c = ╱de╱ - ╱ // 0x956 @0xc
0x094a…0967 at000d = ╱31╱1╱ // 0x957 @0xd
0x094a…0967 at000e = ╱f20100╱ // 0x958 @0xe
0x094a…0967 at0011 = ╱ea╱ ; ╱ // 0x95b @0x11
0x094a…0967 at0012 = ╱44╱D╱ // 0x95c @0x12
0x094a…0967 at0013 = ╱45╱E╱ // 0x95d @0x13
0x094a…0967 at0014 = ╱42╱B╱ // 0x95e @0x14
0x094a…0967 at0015 = ╱45╱E╱ // 0x95f @0x15
0x094a…0967 at0016 = ╱54╱T╱ // 0x960 @0x16
0x094a…0967 at0017 = ╱f0╱ := ╱ // 0x961 @0x17
0x094a…0967 at0018 = ╱31╱1╱ // 0x962 @0x18
0x094a…0967 at0019 = ╱f20100╱ // 0x963 @0x19
0x094a…0967 at001c = EOL // 0x966 @0x1c
0x094a…0967 }
0x0967…0987 9f75 0830 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0x0967…0987 LineComal80 {
0x0967…0987 ptr = 0x9f75 // 0x967 @0x0
0x0967…0987 lno = 0x033e // 0x969 @0x2
0x0967…0987 at0004 = ╱86╱ LET ╱ // 0x96b @0x4
0x0967…0987 at0005 = ╱53╱S╱ // 0x96c @0x5
0x0967…0987 at0006 = ╱59╱Y╱ // 0x96d @0x6
0x0967…0987 at0007 = ╱53╱S╱ // 0x96e @0x7
0x0967…0987 at0008 = ╱50╱P╱ // 0x96f @0x8
0x0967…0987 at0009 = ╱41╱A╱ // 0x970 @0x9
0x0967…0987 at000a = ╱52╱R╱ // 0x971 @0xa
0x0967…0987 at000b = ╱41╱A╱ // 0x972 @0xb
0x0967…0987 at000c = ╱ef╱$╱ // 0x973 @0xc
0x0967…0987 at000d = ╱f0╱ := ╱ // 0x974 @0xd
0x0967…0987 at000e = ╱50╱P╱ // 0x975 @0xe
0x0967…0987 at000f = ╱52╱R╱ // 0x976 @0xf
0x0967…0987 at0010 = ╱47╱G╱ // 0x977 @0x10
0x0967…0987 at0011 = ╱46╱F╱ // 0x978 @0x11
0x0967…0987 at0012 = ╱4c╱L╱ // 0x979 @0x12
0x0967…0987 at0013 = ╱ef╱$╱ // 0x97a @0x13
0x0967…0987 at0014 = ╱eb╱ + ╱ // 0x97b @0x14
0x0967…0987 at0015 = ╱22╱"╱ // 0x97c @0x15
0x0967…0987 at0016 = ╱3a╱:╱ // 0x97d @0x16
0x0967…0987 at0017 = ╱53╱S╱ // 0x97e @0x17
0x0967…0987 at0018 = ╱59╱Y╱ // 0x97f @0x18
0x0967…0987 at0019 = ╱53╱S╱ // 0x980 @0x19
0x0967…0987 at001a = ╱50╱P╱ // 0x981 @0x1a
0x0967…0987 at001b = ╱41╱A╱ // 0x982 @0x1b
0x0967…0987 at001c = ╱52╱R╱ // 0x983 @0x1c
0x0967…0987 at001d = ╱41╱A╱ // 0x984 @0x1d
0x0967…0987 at001e = ╱22╱"╱ // 0x985 @0x1e
0x0967…0987 at001f = EOL // 0x986 @0x1f
0x0967…0987 }
0x0987…09a2 9f90 0840 EXEC OPENFIL(SYSPARA$,"R")
0x0987…09a2 LineComal80 {
0x0987…09a2 ptr = 0x9f90 // 0x987 @0x0
0x0987…09a2 lno = 0x0348 // 0x989 @0x2
0x0987…09a2 at0004 = ╱9d╱ EXEC ╱ // 0x98b @0x4
0x0987…09a2 at0005 = ╱4f╱O╱ // 0x98c @0x5
0x0987…09a2 at0006 = ╱50╱P╱ // 0x98d @0x6
0x0987…09a2 at0007 = ╱45╱E╱ // 0x98e @0x7
0x0987…09a2 at0008 = ╱4e╱N╱ // 0x98f @0x8
0x0987…09a2 at0009 = ╱46╱F╱ // 0x990 @0x9
0x0987…09a2 at000a = ╱49╱I╱ // 0x991 @0xa
0x0987…09a2 at000b = ╱4c╱L╱ // 0x992 @0xb
0x0987…09a2 at000c = ╱ed╱(╱ // 0x993 @0xc
0x0987…09a2 at000d = ╱53╱S╱ // 0x994 @0xd
0x0987…09a2 at000e = ╱59╱Y╱ // 0x995 @0xe
0x0987…09a2 at000f = ╱53╱S╱ // 0x996 @0xf
0x0987…09a2 at0010 = ╱50╱P╱ // 0x997 @0x10
0x0987…09a2 at0011 = ╱41╱A╱ // 0x998 @0x11
0x0987…09a2 at0012 = ╱52╱R╱ // 0x999 @0x12
0x0987…09a2 at0013 = ╱41╱A╱ // 0x99a @0x13
0x0987…09a2 at0014 = ╱ef╱$╱ // 0x99b @0x14
0x0987…09a2 at0015 = ╱ec╱,╱ // 0x99c @0x15
0x0987…09a2 at0016 = ╱22╱"╱ // 0x99d @0x16
0x0987…09a2 at0017 = ╱52╱R╱ // 0x99e @0x17
0x0987…09a2 at0018 = ╱22╱"╱ // 0x99f @0x18
0x0987…09a2 at0019 = ╱ee╱)╱ // 0x9a0 @0x19
0x0987…09a2 at001a = EOL // 0x9a1 @0x1a
0x0987…09a2 }
0x09a2…09c8 9fb6 0850 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0x09a2…09c8 LineComal80 {
0x09a2…09c8 ptr = 0x9fb6 // 0x9a2 @0x0
0x09a2…09c8 lno = 0x0352 // 0x9a4 @0x2
0x09a2…09c8 at0004 = ╱a9╱ GET ╱ // 0x9a6 @0x4
0x09a2…09c8 at0005 = ╱53╱S╱ // 0x9a7 @0x5
0x09a2…09c8 at0006 = ╱59╱Y╱ // 0x9a8 @0x6
0x09a2…09c8 at0007 = ╱53╱S╱ // 0x9a9 @0x7
0x09a2…09c8 at0008 = ╱50╱P╱ // 0x9aa @0x8
0x09a2…09c8 at0009 = ╱41╱A╱ // 0x9ab @0x9
0x09a2…09c8 at000a = ╱52╱R╱ // 0x9ac @0xa
0x09a2…09c8 at000b = ╱41╱A╱ // 0x9ad @0xb
0x09a2…09c8 at000c = ╱ef╱$╱ // 0x9ae @0xc
0x09a2…09c8 at000d = ╱ec╱,╱ // 0x9af @0xd
0x09a2…09c8 at000e = ╱31╱1╱ // 0x9b0 @0xe
0x09a2…09c8 at000f = ╱f20100╱ // 0x9b1 @0xf
0x09a2…09c8 at0012 = ╱f1╱ : ╱ // 0x9b4 @0x12
0x09a2…09c8 at0013 = ╱53╱S╱ // 0x9b5 @0x13
0x09a2…09c8 at0014 = ╱59╱Y╱ // 0x9b6 @0x14
0x09a2…09c8 at0015 = ╱53╱S╱ // 0x9b7 @0x15
0x09a2…09c8 at0016 = ╱54╱T╱ // 0x9b8 @0x16
0x09a2…09c8 at0017 = ╱5f╱_╱ // 0x9b9 @0x17
0x09a2…09c8 at0018 = ╱4e╱N╱ // 0x9ba @0x18
0x09a2…09c8 at0019 = ╱41╱A╱ // 0x9bb @0x19
0x09a2…09c8 at001a = ╱56╱V╱ // 0x9bc @0x1a
0x09a2…09c8 at001b = ╱4e╱N╱ // 0x9bd @0x1b
0x09a2…09c8 at001c = ╱ef╱$╱ // 0x9be @0x1c
0x09a2…09c8 at001d = ╱ec╱,╱ // 0x9bf @0x1d
0x09a2…09c8 at001e = ╱53╱S╱ // 0x9c0 @0x1e
0x09a2…09c8 at001f = ╱5f╱_╱ // 0x9c1 @0x1f
0x09a2…09c8 at0020 = ╱4b╱K╱ // 0x9c2 @0x20
0x09a2…09c8 at0021 = ╱4f╱O╱ // 0x9c3 @0x21
0x09a2…09c8 at0022 = ╱44╱D╱ // 0x9c4 @0x22
0x09a2…09c8 at0023 = ╱45╱E╱ // 0x9c5 @0x23
0x09a2…09c8 at0024 = ╱ef╱$╱ // 0x9c6 @0x24
0x09a2…09c8 at0025 = EOL // 0x9c7 @0x25
0x09a2…09c8 }
0x09c8…09da 9fc8 0860 EXEC TERMINAL_IDX
0x09c8…09da LineComal80 {
0x09c8…09da ptr = 0x9fc8 // 0x9c8 @0x0
0x09c8…09da lno = 0x035c // 0x9ca @0x2
0x09c8…09da at0004 = ╱9d╱ EXEC ╱ // 0x9cc @0x4
0x09c8…09da at0005 = ╱54╱T╱ // 0x9cd @0x5
0x09c8…09da at0006 = ╱45╱E╱ // 0x9ce @0x6
0x09c8…09da at0007 = ╱52╱R╱ // 0x9cf @0x7
0x09c8…09da at0008 = ╱4d╱M╱ // 0x9d0 @0x8
0x09c8…09da at0009 = ╱49╱I╱ // 0x9d1 @0x9
0x09c8…09da at000a = ╱4e╱N╱ // 0x9d2 @0xa
0x09c8…09da at000b = ╱41╱A╱ // 0x9d3 @0xb
0x09c8…09da at000c = ╱4c╱L╱ // 0x9d4 @0xc
0x09c8…09da at000d = ╱5f╱_╱ // 0x9d5 @0xd
0x09c8…09da at000e = ╱49╱I╱ // 0x9d6 @0xe
0x09c8…09da at000f = ╱44╱D╱ // 0x9d7 @0xf
0x09c8…09da at0010 = ╱58╱X╱ // 0x9d8 @0x10
0x09c8…09da at0011 = EOL // 0x9d9 @0x11
0x09c8…09da }
0x09da…09e8 9fd6 0870 CLOSE SYSPARA$
0x09da…09e8 LineComal80 {
0x09da…09e8 ptr = 0x9fd6 // 0x9da @0x0
0x09da…09e8 lno = 0x0366 // 0x9dc @0x2
0x09da…09e8 at0004 = ╱a8╱ CLOSE ╱ // 0x9de @0x4
0x09da…09e8 at0005 = ╱53╱S╱ // 0x9df @0x5
0x09da…09e8 at0006 = ╱59╱Y╱ // 0x9e0 @0x6
0x09da…09e8 at0007 = ╱53╱S╱ // 0x9e1 @0x7
0x09da…09e8 at0008 = ╱50╱P╱ // 0x9e2 @0x8
0x09da…09e8 at0009 = ╱41╱A╱ // 0x9e3 @0x9
0x09da…09e8 at000a = ╱52╱R╱ // 0x9e4 @0xa
0x09da…09e8 at000b = ╱41╱A╱ // 0x9e5 @0xb
0x09da…09e8 at000c = ╱ef╱$╱ // 0x9e6 @0xc
0x09da…09e8 at000d = EOL // 0x9e7 @0xd
0x09da…09e8 }
0x09e8…0a18 a006 0880 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0x09e8…0a18 LineComal80 {
0x09e8…0a18 ptr = 0xa006 // 0x9e8 @0x0
0x09e8…0a18 lno = 0x0370 // 0x9ea @0x2
0x09e8…0a18 at0004 = ╱86╱ LET ╱ // 0x9ec @0x4
0x09e8…0a18 at0005 = ╱50╱P╱ // 0x9ed @0x5
0x09e8…0a18 at0006 = ╱41╱A╱ // 0x9ee @0x6
0x09e8…0a18 at0007 = ╱52╱R╱ // 0x9ef @0x7
0x09e8…0a18 at0008 = ╱41╱A╱ // 0x9f0 @0x8
0x09e8…0a18 at0009 = ╱4d╱M╱ // 0x9f1 @0x9
0x09e8…0a18 at000a = ╱ef╱$╱ // 0x9f2 @0xa
0x09e8…0a18 at000b = ╱f0╱ := ╱ // 0x9f3 @0xb
0x09e8…0a18 at000c = ╱44╱D╱ // 0x9f4 @0xc
0x09e8…0a18 at000d = ╱41╱A╱ // 0x9f5 @0xd
0x09e8…0a18 at000e = ╱54╱T╱ // 0x9f6 @0xe
0x09e8…0a18 at000f = ╱41╱A╱ // 0x9f7 @0xf
0x09e8…0a18 at0010 = ╱46╱F╱ // 0x9f8 @0x10
0x09e8…0a18 at0011 = ╱4c╱L╱ // 0x9f9 @0x11
0x09e8…0a18 at0012 = ╱ef╱$╱ // 0x9fa @0x12
0x09e8…0a18 at0013 = ╱eb╱ + ╱ // 0x9fb @0x13
0x09e8…0a18 at0014 = ╱22╱"╱ // 0x9fc @0x14
0x09e8…0a18 at0015 = ╱3a╱:╱ // 0x9fd @0x15
0x09e8…0a18 at0016 = ╱22╱"╱ // 0x9fe @0x16
0x09e8…0a18 at0017 = ╱eb╱ + ╱ // 0x9ff @0x17
0x09e8…0a18 at0018 = ╱53╱S╱ // 0xa00 @0x18
0x09e8…0a18 at0019 = ╱5f╱_╱ // 0xa01 @0x19
0x09e8…0a18 at001a = ╱4b╱K╱ // 0xa02 @0x1a
0x09e8…0a18 at001b = ╱4f╱O╱ // 0xa03 @0x1b
0x09e8…0a18 at001c = ╱44╱D╱ // 0xa04 @0x1c
0x09e8…0a18 at001d = ╱45╱E╱ // 0xa05 @0x1d
0x09e8…0a18 at001e = ╱ef╱$╱ // 0xa06 @0x1e
0x09e8…0a18 at001f = ╱eb╱ + ╱ // 0xa07 @0x1f
0x09e8…0a18 at0020 = ╱54╱T╱ // 0xa08 @0x20
0x09e8…0a18 at0021 = ╱5f╱_╱ // 0xa09 @0x21
0x09e8…0a18 at0022 = ╱4b╱K╱ // 0xa0a @0x22
0x09e8…0a18 at0023 = ╱4f╱O╱ // 0xa0b @0x23
0x09e8…0a18 at0024 = ╱44╱D╱ // 0xa0c @0x24
0x09e8…0a18 at0025 = ╱45╱E╱ // 0xa0d @0x25
0x09e8…0a18 at0026 = ╱ef╱$╱ // 0xa0e @0x26
0x09e8…0a18 at0027 = ╱eb╱ + ╱ // 0xa0f @0x27
0x09e8…0a18 at0028 = ╱22╱"╱ // 0xa10 @0x28
0x09e8…0a18 at0029 = ╱50╱P╱ // 0xa11 @0x29
0x09e8…0a18 at002a = ╱41╱A╱ // 0xa12 @0x2a
0x09e8…0a18 at002b = ╱52╱R╱ // 0xa13 @0x2b
0x09e8…0a18 at002c = ╱41╱A╱ // 0xa14 @0x2c
0x09e8…0a18 at002d = ╱4d╱M╱ // 0xa15 @0x2d
0x09e8…0a18 at002e = ╱22╱"╱ // 0xa16 @0x2e
0x09e8…0a18 at002f = EOL // 0xa17 @0x2f
0x09e8…0a18 }
0x0a18…0a31 a01f 0890 EXEC OPENFIL(PARAM$,"R")
0x0a18…0a31 LineComal80 {
0x0a18…0a31 ptr = 0xa01f // 0xa18 @0x0
0x0a18…0a31 lno = 0x037a // 0xa1a @0x2
0x0a18…0a31 at0004 = ╱9d╱ EXEC ╱ // 0xa1c @0x4
0x0a18…0a31 at0005 = ╱4f╱O╱ // 0xa1d @0x5
0x0a18…0a31 at0006 = ╱50╱P╱ // 0xa1e @0x6
0x0a18…0a31 at0007 = ╱45╱E╱ // 0xa1f @0x7
0x0a18…0a31 at0008 = ╱4e╱N╱ // 0xa20 @0x8
0x0a18…0a31 at0009 = ╱46╱F╱ // 0xa21 @0x9
0x0a18…0a31 at000a = ╱49╱I╱ // 0xa22 @0xa
0x0a18…0a31 at000b = ╱4c╱L╱ // 0xa23 @0xb
0x0a18…0a31 at000c = ╱ed╱(╱ // 0xa24 @0xc
0x0a18…0a31 at000d = ╱50╱P╱ // 0xa25 @0xd
0x0a18…0a31 at000e = ╱41╱A╱ // 0xa26 @0xe
0x0a18…0a31 at000f = ╱52╱R╱ // 0xa27 @0xf
0x0a18…0a31 at0010 = ╱41╱A╱ // 0xa28 @0x10
0x0a18…0a31 at0011 = ╱4d╱M╱ // 0xa29 @0x11
0x0a18…0a31 at0012 = ╱ef╱$╱ // 0xa2a @0x12
0x0a18…0a31 at0013 = ╱ec╱,╱ // 0xa2b @0x13
0x0a18…0a31 at0014 = ╱22╱"╱ // 0xa2c @0x14
0x0a18…0a31 at0015 = ╱52╱R╱ // 0xa2d @0x15
0x0a18…0a31 at0016 = ╱22╱"╱ // 0xa2e @0x16
0x0a18…0a31 at0017 = ╱ee╱)╱ // 0xa2f @0x17
0x0a18…0a31 at0018 = EOL // 0xa30 @0x18
0x0a18…0a31 }
0x0a31…0a5c a04a 0900 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0x0a31…0a5c LineComal80 {
0x0a31…0a5c ptr = 0xa04a // 0xa31 @0x0
0x0a31…0a5c lno = 0x0384 // 0xa33 @0x2
0x0a31…0a5c at0004 = ╱a9╱ GET ╱ // 0xa35 @0x4
0x0a31…0a5c at0005 = ╱50╱P╱ // 0xa36 @0x5
0x0a31…0a5c at0006 = ╱41╱A╱ // 0xa37 @0x6
0x0a31…0a5c at0007 = ╱52╱R╱ // 0xa38 @0x7
0x0a31…0a5c at0008 = ╱41╱A╱ // 0xa39 @0x8
0x0a31…0a5c at0009 = ╱4d╱M╱ // 0xa3a @0x9
0x0a31…0a5c at000a = ╱ef╱$╱ // 0xa3b @0xa
0x0a31…0a5c at000b = ╱ec╱,╱ // 0xa3c @0xb
0x0a31…0a5c at000c = ╱31╱1╱ // 0xa3d @0xc
0x0a31…0a5c at000d = ╱f20100╱ // 0xa3e @0xd
0x0a31…0a5c at0010 = ╱f1╱ : ╱ // 0xa41 @0x10
0x0a31…0a5c at0011 = ╱46╱F╱ // 0xa42 @0x11
0x0a31…0a5c at0012 = ╱49╱I╱ // 0xa43 @0x12
0x0a31…0a5c at0013 = ╱52╱R╱ // 0xa44 @0x13
0x0a31…0a5c at0014 = ╱4d╱M╱ // 0xa45 @0x14
0x0a31…0a5c at0015 = ╱41╱A╱ // 0xa46 @0x15
0x0a31…0a5c at0016 = ╱4e╱N╱ // 0xa47 @0x16
0x0a31…0a5c at0017 = ╱41╱A╱ // 0xa48 @0x17
0x0a31…0a5c at0018 = ╱56╱V╱ // 0xa49 @0x18
0x0a31…0a5c at0019 = ╱4e╱N╱ // 0xa4a @0x19
0x0a31…0a5c at001a = ╱ef╱$╱ // 0xa4b @0x1a
0x0a31…0a5c at001b = ╱ec╱,╱ // 0xa4c @0x1b
0x0a31…0a5c at001c = ╱53╱S╱ // 0xa4d @0x1c
0x0a31…0a5c at001d = ╱59╱Y╱ // 0xa4e @0x1d
0x0a31…0a5c at001e = ╱53╱S╱ // 0xa4f @0x1e
0x0a31…0a5c at001f = ╱54╱T╱ // 0xa50 @0x1f
0x0a31…0a5c at0020 = ╱5f╱_╱ // 0xa51 @0x20
0x0a31…0a5c at0021 = ╱44╱D╱ // 0xa52 @0x21
0x0a31…0a5c at0022 = ╱41╱A╱ // 0xa53 @0x22
0x0a31…0a5c at0023 = ╱54╱T╱ // 0xa54 @0x23
0x0a31…0a5c at0024 = ╱ef╱$╱ // 0xa55 @0x24
0x0a31…0a5c at0025 = ╱ec╱,╱ // 0xa56 @0x25
0x0a31…0a5c at0026 = ╱4d╱M╱ // 0xa57 @0x26
0x0a31…0a5c at0027 = ╱4f╱O╱ // 0xa58 @0x27
0x0a31…0a5c at0028 = ╱4d╱M╱ // 0xa59 @0x28
0x0a31…0a5c at0029 = ╱53╱S╱ // 0xa5a @0x29
0x0a31…0a5c at002a = EOL // 0xa5b @0x2a
0x0a31…0a5c }
0x0a5c…0a85 a073 0910 GET PARAM$,2 : ST_DATO$,ANT_PER,PER_NR
0x0a5c…0a85 LineComal80 {
0x0a5c…0a85 ptr = 0xa073 // 0xa5c @0x0
0x0a5c…0a85 lno = 0x038e // 0xa5e @0x2
0x0a5c…0a85 at0004 = ╱a9╱ GET ╱ // 0xa60 @0x4
0x0a5c…0a85 at0005 = ╱50╱P╱ // 0xa61 @0x5
0x0a5c…0a85 at0006 = ╱41╱A╱ // 0xa62 @0x6
0x0a5c…0a85 at0007 = ╱52╱R╱ // 0xa63 @0x7
0x0a5c…0a85 at0008 = ╱41╱A╱ // 0xa64 @0x8
0x0a5c…0a85 at0009 = ╱4d╱M╱ // 0xa65 @0x9
0x0a5c…0a85 at000a = ╱ef╱$╱ // 0xa66 @0xa
0x0a5c…0a85 at000b = ╱ec╱,╱ // 0xa67 @0xb
0x0a5c…0a85 at000c = ╱32╱2╱ // 0xa68 @0xc
0x0a5c…0a85 at000d = ╱f20200╱ // 0xa69 @0xd
0x0a5c…0a85 at0010 = ╱f1╱ : ╱ // 0xa6c @0x10
0x0a5c…0a85 at0011 = ╱53╱S╱ // 0xa6d @0x11
0x0a5c…0a85 at0012 = ╱54╱T╱ // 0xa6e @0x12
0x0a5c…0a85 at0013 = ╱5f╱_╱ // 0xa6f @0x13
0x0a5c…0a85 at0014 = ╱44╱D╱ // 0xa70 @0x14
0x0a5c…0a85 at0015 = ╱41╱A╱ // 0xa71 @0x15
0x0a5c…0a85 at0016 = ╱54╱T╱ // 0xa72 @0x16
0x0a5c…0a85 at0017 = ╱4f╱O╱ // 0xa73 @0x17
0x0a5c…0a85 at0018 = ╱ef╱$╱ // 0xa74 @0x18
0x0a5c…0a85 at0019 = ╱ec╱,╱ // 0xa75 @0x19
0x0a5c…0a85 at001a = ╱41╱A╱ // 0xa76 @0x1a
0x0a5c…0a85 at001b = ╱4e╱N╱ // 0xa77 @0x1b
0x0a5c…0a85 at001c = ╱54╱T╱ // 0xa78 @0x1c
0x0a5c…0a85 at001d = ╱5f╱_╱ // 0xa79 @0x1d
0x0a5c…0a85 at001e = ╱50╱P╱ // 0xa7a @0x1e
0x0a5c…0a85 at001f = ╱45╱E╱ // 0xa7b @0x1f
0x0a5c…0a85 at0020 = ╱52╱R╱ // 0xa7c @0x20
0x0a5c…0a85 at0021 = ╱ec╱,╱ // 0xa7d @0x21
0x0a5c…0a85 at0022 = ╱50╱P╱ // 0xa7e @0x22
0x0a5c…0a85 at0023 = ╱45╱E╱ // 0xa7f @0x23
0x0a5c…0a85 at0024 = ╱52╱R╱ // 0xa80 @0x24
0x0a5c…0a85 at0025 = ╱5f╱_╱ // 0xa81 @0x25
0x0a5c…0a85 at0026 = ╱4e╱N╱ // 0xa82 @0x26
0x0a5c…0a85 at0027 = ╱52╱R╱ // 0xa83 @0x27
0x0a5c…0a85 at0028 = EOL // 0xa84 @0x28
0x0a5c…0a85 }
0x0a85…0a91 a07f 0920 CLOSE PARAM$
0x0a85…0a91 LineComal80 {
0x0a85…0a91 ptr = 0xa07f // 0xa85 @0x0
0x0a85…0a91 lno = 0x0398 // 0xa87 @0x2
0x0a85…0a91 at0004 = ╱a8╱ CLOSE ╱ // 0xa89 @0x4
0x0a85…0a91 at0005 = ╱50╱P╱ // 0xa8a @0x5
0x0a85…0a91 at0006 = ╱41╱A╱ // 0xa8b @0x6
0x0a85…0a91 at0007 = ╱52╱R╱ // 0xa8c @0x7
0x0a85…0a91 at0008 = ╱41╱A╱ // 0xa8d @0x8
0x0a85…0a91 at0009 = ╱4d╱M╱ // 0xa8e @0x9
0x0a85…0a91 at000a = ╱ef╱$╱ // 0xa8f @0xa
0x0a85…0a91 at000b = EOL // 0xa90 @0xb
0x0a85…0a91 }
0x0a91…0ac3 a0b1 0930 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0x0a91…0ac3 LineComal80 {
0x0a91…0ac3 ptr = 0xa0b1 // 0xa91 @0x0
0x0a91…0ac3 lno = 0x03a2 // 0xa93 @0x2
0x0a91…0ac3 at0004 = ╱86╱ LET ╱ // 0xa95 @0x4
0x0a91…0ac3 at0005 = ╱4b╱K╱ // 0xa96 @0x5
0x0a91…0ac3 at0006 = ╱54╱T╱ // 0xa97 @0x6
0x0a91…0ac3 at0007 = ╱4f╱O╱ // 0xa98 @0x7
0x0a91…0ac3 at0008 = ╱49╱I╱ // 0xa99 @0x8
0x0a91…0ac3 at0009 = ╱44╱D╱ // 0xa9a @0x9
0x0a91…0ac3 at000a = ╱58╱X╱ // 0xa9b @0xa
0x0a91…0ac3 at000b = ╱ef╱$╱ // 0xa9c @0xb
0x0a91…0ac3 at000c = ╱f0╱ := ╱ // 0xa9d @0xc
0x0a91…0ac3 at000d = ╱44╱D╱ // 0xa9e @0xd
0x0a91…0ac3 at000e = ╱41╱A╱ // 0xa9f @0xe
0x0a91…0ac3 at000f = ╱54╱T╱ // 0xaa0 @0xf
0x0a91…0ac3 at0010 = ╱41╱A╱ // 0xaa1 @0x10
0x0a91…0ac3 at0011 = ╱46╱F╱ // 0xaa2 @0x11
0x0a91…0ac3 at0012 = ╱4c╱L╱ // 0xaa3 @0x12
0x0a91…0ac3 at0013 = ╱ef╱$╱ // 0xaa4 @0x13
0x0a91…0ac3 at0014 = ╱eb╱ + ╱ // 0xaa5 @0x14
0x0a91…0ac3 at0015 = ╱22╱"╱ // 0xaa6 @0x15
0x0a91…0ac3 at0016 = ╱3a╱:╱ // 0xaa7 @0x16
0x0a91…0ac3 at0017 = ╱22╱"╱ // 0xaa8 @0x17
0x0a91…0ac3 at0018 = ╱eb╱ + ╱ // 0xaa9 @0x18
0x0a91…0ac3 at0019 = ╱53╱S╱ // 0xaaa @0x19
0x0a91…0ac3 at001a = ╱5f╱_╱ // 0xaab @0x1a
0x0a91…0ac3 at001b = ╱4b╱K╱ // 0xaac @0x1b
0x0a91…0ac3 at001c = ╱4f╱O╱ // 0xaad @0x1c
0x0a91…0ac3 at001d = ╱44╱D╱ // 0xaae @0x1d
0x0a91…0ac3 at001e = ╱45╱E╱ // 0xaaf @0x1e
0x0a91…0ac3 at001f = ╱ef╱$╱ // 0xab0 @0x1f
0x0a91…0ac3 at0020 = ╱eb╱ + ╱ // 0xab1 @0x20
0x0a91…0ac3 at0021 = ╱54╱T╱ // 0xab2 @0x21
0x0a91…0ac3 at0022 = ╱5f╱_╱ // 0xab3 @0x22
0x0a91…0ac3 at0023 = ╱4b╱K╱ // 0xab4 @0x23
0x0a91…0ac3 at0024 = ╱4f╱O╱ // 0xab5 @0x24
0x0a91…0ac3 at0025 = ╱44╱D╱ // 0xab6 @0x25
0x0a91…0ac3 at0026 = ╱45╱E╱ // 0xab7 @0x26
0x0a91…0ac3 at0027 = ╱ef╱$╱ // 0xab8 @0x27
0x0a91…0ac3 at0028 = ╱eb╱ + ╱ // 0xab9 @0x28
0x0a91…0ac3 at0029 = ╱22╱"╱ // 0xaba @0x29
0x0a91…0ac3 at002a = ╱4b╱K╱ // 0xabb @0x2a
0x0a91…0ac3 at002b = ╱54╱T╱ // 0xabc @0x2b
0x0a91…0ac3 at002c = ╱4f╱O╱ // 0xabd @0x2c
0x0a91…0ac3 at002d = ╱49╱I╱ // 0xabe @0x2d
0x0a91…0ac3 at002e = ╱44╱D╱ // 0xabf @0x2e
0x0a91…0ac3 at002f = ╱58╱X╱ // 0xac0 @0x2f
0x0a91…0ac3 at0030 = ╱22╱"╱ // 0xac1 @0x30
0x0a91…0ac3 at0031 = EOL // 0xac2 @0x31
0x0a91…0ac3 }
0x0ac3…0af3 a0e1 0940 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0x0ac3…0af3 LineComal80 {
0x0ac3…0af3 ptr = 0xa0e1 // 0xac3 @0x0
0x0ac3…0af3 lno = 0x03ac // 0xac5 @0x2
0x0ac3…0af3 at0004 = ╱86╱ LET ╱ // 0xac7 @0x4
0x0ac3…0af3 at0005 = ╱4b╱K╱ // 0xac8 @0x5
0x0ac3…0af3 at0006 = ╱4f╱O╱ // 0xac9 @0x6
0x0ac3…0af3 at0007 = ╱4e╱N╱ // 0xaca @0x7
0x0ac3…0af3 at0008 = ╱54╱T╱ // 0xacb @0x8
0x0ac3…0af3 at0009 = ╱4f╱O╱ // 0xacc @0x9
0x0ac3…0af3 at000a = ╱ef╱$╱ // 0xacd @0xa
0x0ac3…0af3 at000b = ╱f0╱ := ╱ // 0xace @0xb
0x0ac3…0af3 at000c = ╱44╱D╱ // 0xacf @0xc
0x0ac3…0af3 at000d = ╱41╱A╱ // 0xad0 @0xd
0x0ac3…0af3 at000e = ╱54╱T╱ // 0xad1 @0xe
0x0ac3…0af3 at000f = ╱41╱A╱ // 0xad2 @0xf
0x0ac3…0af3 at0010 = ╱46╱F╱ // 0xad3 @0x10
0x0ac3…0af3 at0011 = ╱4c╱L╱ // 0xad4 @0x11
0x0ac3…0af3 at0012 = ╱ef╱$╱ // 0xad5 @0x12
0x0ac3…0af3 at0013 = ╱eb╱ + ╱ // 0xad6 @0x13
0x0ac3…0af3 at0014 = ╱22╱"╱ // 0xad7 @0x14
0x0ac3…0af3 at0015 = ╱3a╱:╱ // 0xad8 @0x15
0x0ac3…0af3 at0016 = ╱22╱"╱ // 0xad9 @0x16
0x0ac3…0af3 at0017 = ╱eb╱ + ╱ // 0xada @0x17
0x0ac3…0af3 at0018 = ╱53╱S╱ // 0xadb @0x18
0x0ac3…0af3 at0019 = ╱5f╱_╱ // 0xadc @0x19
0x0ac3…0af3 at001a = ╱4b╱K╱ // 0xadd @0x1a
0x0ac3…0af3 at001b = ╱4f╱O╱ // 0xade @0x1b
0x0ac3…0af3 at001c = ╱44╱D╱ // 0xadf @0x1c
0x0ac3…0af3 at001d = ╱45╱E╱ // 0xae0 @0x1d
0x0ac3…0af3 at001e = ╱ef╱$╱ // 0xae1 @0x1e
0x0ac3…0af3 at001f = ╱eb╱ + ╱ // 0xae2 @0x1f
0x0ac3…0af3 at0020 = ╱54╱T╱ // 0xae3 @0x20
0x0ac3…0af3 at0021 = ╱5f╱_╱ // 0xae4 @0x21
0x0ac3…0af3 at0022 = ╱4b╱K╱ // 0xae5 @0x22
0x0ac3…0af3 at0023 = ╱4f╱O╱ // 0xae6 @0x23
0x0ac3…0af3 at0024 = ╱44╱D╱ // 0xae7 @0x24
0x0ac3…0af3 at0025 = ╱45╱E╱ // 0xae8 @0x25
0x0ac3…0af3 at0026 = ╱ef╱$╱ // 0xae9 @0x26
0x0ac3…0af3 at0027 = ╱eb╱ + ╱ // 0xaea @0x27
0x0ac3…0af3 at0028 = ╱22╱"╱ // 0xaeb @0x28
0x0ac3…0af3 at0029 = ╱4b╱K╱ // 0xaec @0x29
0x0ac3…0af3 at002a = ╱4f╱O╱ // 0xaed @0x2a
0x0ac3…0af3 at002b = ╱4e╱N╱ // 0xaee @0x2b
0x0ac3…0af3 at002c = ╱54╱T╱ // 0xaef @0x2c
0x0ac3…0af3 at002d = ╱4f╱O╱ // 0xaf0 @0x2d
0x0ac3…0af3 at002e = ╱22╱"╱ // 0xaf1 @0x2e
0x0ac3…0af3 at002f = EOL // 0xaf2 @0x2f
0x0ac3…0af3 }
0x0af3…0b25 a113 0950 LET ST_KTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "ST_KTO"
0x0af3…0b25 LineComal80 {
0x0af3…0b25 ptr = 0xa113 // 0xaf3 @0x0
0x0af3…0b25 lno = 0x03b6 // 0xaf5 @0x2
0x0af3…0b25 at0004 = ╱86╱ LET ╱ // 0xaf7 @0x4
0x0af3…0b25 at0005 = ╱53╱S╱ // 0xaf8 @0x5
0x0af3…0b25 at0006 = ╱54╱T╱ // 0xaf9 @0x6
0x0af3…0b25 at0007 = ╱5f╱_╱ // 0xafa @0x7
0x0af3…0b25 at0008 = ╱4b╱K╱ // 0xafb @0x8
0x0af3…0b25 at0009 = ╱54╱T╱ // 0xafc @0x9
0x0af3…0b25 at000a = ╱4f╱O╱ // 0xafd @0xa
0x0af3…0b25 at000b = ╱ef╱$╱ // 0xafe @0xb
0x0af3…0b25 at000c = ╱f0╱ := ╱ // 0xaff @0xc
0x0af3…0b25 at000d = ╱44╱D╱ // 0xb00 @0xd
0x0af3…0b25 at000e = ╱41╱A╱ // 0xb01 @0xe
0x0af3…0b25 at000f = ╱54╱T╱ // 0xb02 @0xf
0x0af3…0b25 at0010 = ╱41╱A╱ // 0xb03 @0x10
0x0af3…0b25 at0011 = ╱46╱F╱ // 0xb04 @0x11
0x0af3…0b25 at0012 = ╱4c╱L╱ // 0xb05 @0x12
0x0af3…0b25 at0013 = ╱ef╱$╱ // 0xb06 @0x13
0x0af3…0b25 at0014 = ╱eb╱ + ╱ // 0xb07 @0x14
0x0af3…0b25 at0015 = ╱22╱"╱ // 0xb08 @0x15
0x0af3…0b25 at0016 = ╱3a╱:╱ // 0xb09 @0x16
0x0af3…0b25 at0017 = ╱22╱"╱ // 0xb0a @0x17
0x0af3…0b25 at0018 = ╱eb╱ + ╱ // 0xb0b @0x18
0x0af3…0b25 at0019 = ╱53╱S╱ // 0xb0c @0x19
0x0af3…0b25 at001a = ╱5f╱_╱ // 0xb0d @0x1a
0x0af3…0b25 at001b = ╱4b╱K╱ // 0xb0e @0x1b
0x0af3…0b25 at001c = ╱4f╱O╱ // 0xb0f @0x1c
0x0af3…0b25 at001d = ╱44╱D╱ // 0xb10 @0x1d
0x0af3…0b25 at001e = ╱45╱E╱ // 0xb11 @0x1e
0x0af3…0b25 at001f = ╱ef╱$╱ // 0xb12 @0x1f
0x0af3…0b25 at0020 = ╱eb╱ + ╱ // 0xb13 @0x20
0x0af3…0b25 at0021 = ╱54╱T╱ // 0xb14 @0x21
0x0af3…0b25 at0022 = ╱5f╱_╱ // 0xb15 @0x22
0x0af3…0b25 at0023 = ╱4b╱K╱ // 0xb16 @0x23
0x0af3…0b25 at0024 = ╱4f╱O╱ // 0xb17 @0x24
0x0af3…0b25 at0025 = ╱44╱D╱ // 0xb18 @0x25
0x0af3…0b25 at0026 = ╱45╱E╱ // 0xb19 @0x26
0x0af3…0b25 at0027 = ╱ef╱$╱ // 0xb1a @0x27
0x0af3…0b25 at0028 = ╱eb╱ + ╱ // 0xb1b @0x28
0x0af3…0b25 at0029 = ╱22╱"╱ // 0xb1c @0x29
0x0af3…0b25 at002a = ╱53╱S╱ // 0xb1d @0x2a
0x0af3…0b25 at002b = ╱54╱T╱ // 0xb1e @0x2b
0x0af3…0b25 at002c = ╱5f╱_╱ // 0xb1f @0x2c
0x0af3…0b25 at002d = ╱4b╱K╱ // 0xb20 @0x2d
0x0af3…0b25 at002e = ╱54╱T╱ // 0xb21 @0x2e
0x0af3…0b25 at002f = ╱4f╱O╱ // 0xb22 @0x2f
0x0af3…0b25 at0030 = ╱22╱"╱ // 0xb23 @0x30
0x0af3…0b25 at0031 = EOL // 0xb24 @0x31
0x0af3…0b25 }
0x0b25…0b55 a143 0960 LET TRANS$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "TRANS"
0x0b25…0b55 LineComal80 {
0x0b25…0b55 ptr = 0xa143 // 0xb25 @0x0
0x0b25…0b55 lno = 0x03c0 // 0xb27 @0x2
0x0b25…0b55 at0004 = ╱86╱ LET ╱ // 0xb29 @0x4
0x0b25…0b55 at0005 = ╱54╱T╱ // 0xb2a @0x5
0x0b25…0b55 at0006 = ╱52╱R╱ // 0xb2b @0x6
0x0b25…0b55 at0007 = ╱41╱A╱ // 0xb2c @0x7
0x0b25…0b55 at0008 = ╱4e╱N╱ // 0xb2d @0x8
0x0b25…0b55 at0009 = ╱53╱S╱ // 0xb2e @0x9
0x0b25…0b55 at000a = ╱ef╱$╱ // 0xb2f @0xa
0x0b25…0b55 at000b = ╱f0╱ := ╱ // 0xb30 @0xb
0x0b25…0b55 at000c = ╱44╱D╱ // 0xb31 @0xc
0x0b25…0b55 at000d = ╱41╱A╱ // 0xb32 @0xd
0x0b25…0b55 at000e = ╱54╱T╱ // 0xb33 @0xe
0x0b25…0b55 at000f = ╱41╱A╱ // 0xb34 @0xf
0x0b25…0b55 at0010 = ╱46╱F╱ // 0xb35 @0x10
0x0b25…0b55 at0011 = ╱4c╱L╱ // 0xb36 @0x11
0x0b25…0b55 at0012 = ╱ef╱$╱ // 0xb37 @0x12
0x0b25…0b55 at0013 = ╱eb╱ + ╱ // 0xb38 @0x13
0x0b25…0b55 at0014 = ╱22╱"╱ // 0xb39 @0x14
0x0b25…0b55 at0015 = ╱3a╱:╱ // 0xb3a @0x15
0x0b25…0b55 at0016 = ╱22╱"╱ // 0xb3b @0x16
0x0b25…0b55 at0017 = ╱eb╱ + ╱ // 0xb3c @0x17
0x0b25…0b55 at0018 = ╱53╱S╱ // 0xb3d @0x18
0x0b25…0b55 at0019 = ╱5f╱_╱ // 0xb3e @0x19
0x0b25…0b55 at001a = ╱4b╱K╱ // 0xb3f @0x1a
0x0b25…0b55 at001b = ╱4f╱O╱ // 0xb40 @0x1b
0x0b25…0b55 at001c = ╱44╱D╱ // 0xb41 @0x1c
0x0b25…0b55 at001d = ╱45╱E╱ // 0xb42 @0x1d
0x0b25…0b55 at001e = ╱ef╱$╱ // 0xb43 @0x1e
0x0b25…0b55 at001f = ╱eb╱ + ╱ // 0xb44 @0x1f
0x0b25…0b55 at0020 = ╱54╱T╱ // 0xb45 @0x20
0x0b25…0b55 at0021 = ╱5f╱_╱ // 0xb46 @0x21
0x0b25…0b55 at0022 = ╱4b╱K╱ // 0xb47 @0x22
0x0b25…0b55 at0023 = ╱4f╱O╱ // 0xb48 @0x23
0x0b25…0b55 at0024 = ╱44╱D╱ // 0xb49 @0x24
0x0b25…0b55 at0025 = ╱45╱E╱ // 0xb4a @0x25
0x0b25…0b55 at0026 = ╱ef╱$╱ // 0xb4b @0x26
0x0b25…0b55 at0027 = ╱eb╱ + ╱ // 0xb4c @0x27
0x0b25…0b55 at0028 = ╱22╱"╱ // 0xb4d @0x28
0x0b25…0b55 at0029 = ╱54╱T╱ // 0xb4e @0x29
0x0b25…0b55 at002a = ╱52╱R╱ // 0xb4f @0x2a
0x0b25…0b55 at002b = ╱41╱A╱ // 0xb50 @0x2b
0x0b25…0b55 at002c = ╱4e╱N╱ // 0xb51 @0x2c
0x0b25…0b55 at002d = ╱53╱S╱ // 0xb52 @0x2d
0x0b25…0b55 at002e = ╱22╱"╱ // 0xb53 @0x2e
0x0b25…0b55 at002f = EOL // 0xb54 @0x2f
0x0b25…0b55 }
0x0b55…0b6f a15d 0970 EXEC OPENFIL(KTOIDX$,"R")
0x0b55…0b6f LineComal80 {
0x0b55…0b6f ptr = 0xa15d // 0xb55 @0x0
0x0b55…0b6f lno = 0x03ca // 0xb57 @0x2
0x0b55…0b6f at0004 = ╱9d╱ EXEC ╱ // 0xb59 @0x4
0x0b55…0b6f at0005 = ╱4f╱O╱ // 0xb5a @0x5
0x0b55…0b6f at0006 = ╱50╱P╱ // 0xb5b @0x6
0x0b55…0b6f at0007 = ╱45╱E╱ // 0xb5c @0x7
0x0b55…0b6f at0008 = ╱4e╱N╱ // 0xb5d @0x8
0x0b55…0b6f at0009 = ╱46╱F╱ // 0xb5e @0x9
0x0b55…0b6f at000a = ╱49╱I╱ // 0xb5f @0xa
0x0b55…0b6f at000b = ╱4c╱L╱ // 0xb60 @0xb
0x0b55…0b6f at000c = ╱ed╱(╱ // 0xb61 @0xc
0x0b55…0b6f at000d = ╱4b╱K╱ // 0xb62 @0xd
0x0b55…0b6f at000e = ╱54╱T╱ // 0xb63 @0xe
0x0b55…0b6f at000f = ╱4f╱O╱ // 0xb64 @0xf
0x0b55…0b6f at0010 = ╱49╱I╱ // 0xb65 @0x10
0x0b55…0b6f at0011 = ╱44╱D╱ // 0xb66 @0x11
0x0b55…0b6f at0012 = ╱58╱X╱ // 0xb67 @0x12
0x0b55…0b6f at0013 = ╱ef╱$╱ // 0xb68 @0x13
0x0b55…0b6f at0014 = ╱ec╱,╱ // 0xb69 @0x14
0x0b55…0b6f at0015 = ╱22╱"╱ // 0xb6a @0x15
0x0b55…0b6f at0016 = ╱52╱R╱ // 0xb6b @0x16
0x0b55…0b6f at0017 = ╱22╱"╱ // 0xb6c @0x17
0x0b55…0b6f at0018 = ╱ee╱)╱ // 0xb6d @0x18
0x0b55…0b6f at0019 = EOL // 0xb6e @0x19
0x0b55…0b6f }
0x0b6f…0b88 a176 0980 EXEC OPENFIL(KONTO$,"R")
0x0b6f…0b88 LineComal80 {
0x0b6f…0b88 ptr = 0xa176 // 0xb6f @0x0
0x0b6f…0b88 lno = 0x03d4 // 0xb71 @0x2
0x0b6f…0b88 at0004 = ╱9d╱ EXEC ╱ // 0xb73 @0x4
0x0b6f…0b88 at0005 = ╱4f╱O╱ // 0xb74 @0x5
0x0b6f…0b88 at0006 = ╱50╱P╱ // 0xb75 @0x6
0x0b6f…0b88 at0007 = ╱45╱E╱ // 0xb76 @0x7
0x0b6f…0b88 at0008 = ╱4e╱N╱ // 0xb77 @0x8
0x0b6f…0b88 at0009 = ╱46╱F╱ // 0xb78 @0x9
0x0b6f…0b88 at000a = ╱49╱I╱ // 0xb79 @0xa
0x0b6f…0b88 at000b = ╱4c╱L╱ // 0xb7a @0xb
0x0b6f…0b88 at000c = ╱ed╱(╱ // 0xb7b @0xc
0x0b6f…0b88 at000d = ╱4b╱K╱ // 0xb7c @0xd
0x0b6f…0b88 at000e = ╱4f╱O╱ // 0xb7d @0xe
0x0b6f…0b88 at000f = ╱4e╱N╱ // 0xb7e @0xf
0x0b6f…0b88 at0010 = ╱54╱T╱ // 0xb7f @0x10
0x0b6f…0b88 at0011 = ╱4f╱O╱ // 0xb80 @0x11
0x0b6f…0b88 at0012 = ╱ef╱$╱ // 0xb81 @0x12
0x0b6f…0b88 at0013 = ╱ec╱,╱ // 0xb82 @0x13
0x0b6f…0b88 at0014 = ╱22╱"╱ // 0xb83 @0x14
0x0b6f…0b88 at0015 = ╱52╱R╱ // 0xb84 @0x15
0x0b6f…0b88 at0016 = ╱22╱"╱ // 0xb85 @0x16
0x0b6f…0b88 at0017 = ╱ee╱)╱ // 0xb86 @0x17
0x0b6f…0b88 at0018 = EOL // 0xb87 @0x18
0x0b6f…0b88 }
0x0b88…0ba1 a18f 0990 EXEC OPENFIL(TRANS$,"R")
0x0b88…0ba1 LineComal80 {
0x0b88…0ba1 ptr = 0xa18f // 0xb88 @0x0
0x0b88…0ba1 lno = 0x03de // 0xb8a @0x2
0x0b88…0ba1 at0004 = ╱9d╱ EXEC ╱ // 0xb8c @0x4
0x0b88…0ba1 at0005 = ╱4f╱O╱ // 0xb8d @0x5
0x0b88…0ba1 at0006 = ╱50╱P╱ // 0xb8e @0x6
0x0b88…0ba1 at0007 = ╱45╱E╱ // 0xb8f @0x7
0x0b88…0ba1 at0008 = ╱4e╱N╱ // 0xb90 @0x8
0x0b88…0ba1 at0009 = ╱46╱F╱ // 0xb91 @0x9
0x0b88…0ba1 at000a = ╱49╱I╱ // 0xb92 @0xa
0x0b88…0ba1 at000b = ╱4c╱L╱ // 0xb93 @0xb
0x0b88…0ba1 at000c = ╱ed╱(╱ // 0xb94 @0xc
0x0b88…0ba1 at000d = ╱54╱T╱ // 0xb95 @0xd
0x0b88…0ba1 at000e = ╱52╱R╱ // 0xb96 @0xe
0x0b88…0ba1 at000f = ╱41╱A╱ // 0xb97 @0xf
0x0b88…0ba1 at0010 = ╱4e╱N╱ // 0xb98 @0x10
0x0b88…0ba1 at0011 = ╱53╱S╱ // 0xb99 @0x11
0x0b88…0ba1 at0012 = ╱ef╱$╱ // 0xb9a @0x12
0x0b88…0ba1 at0013 = ╱ec╱,╱ // 0xb9b @0x13
0x0b88…0ba1 at0014 = ╱22╱"╱ // 0xb9c @0x14
0x0b88…0ba1 at0015 = ╱52╱R╱ // 0xb9d @0x15
0x0b88…0ba1 at0016 = ╱22╱"╱ // 0xb9e @0x16
0x0b88…0ba1 at0017 = ╱ee╱)╱ // 0xb9f @0x17
0x0b88…0ba1 at0018 = EOL // 0xba0 @0x18
0x0b88…0ba1 }
0x0ba1…0bae a19c 1000 ENDPROC INITIER
0x0ba1…0bae LineComal80 {
0x0ba1…0bae ptr = 0xa19c // 0xba1 @0x0
0x0ba1…0bae lno = 0x03e8 // 0xba3 @0x2
0x0ba1…0bae at0004 = ╱9f╱ ENDPROC ╱ // 0xba5 @0x4
0x0ba1…0bae at0005 = ╱49╱I╱ // 0xba6 @0x5
0x0ba1…0bae at0006 = ╱4e╱N╱ // 0xba7 @0x6
0x0ba1…0bae at0007 = ╱49╱I╱ // 0xba8 @0x7
0x0ba1…0bae at0008 = ╱54╱T╱ // 0xba9 @0x8
0x0ba1…0bae at0009 = ╱49╱I╱ // 0xbaa @0x9
0x0ba1…0bae at000a = ╱45╱E╱ // 0xbab @0xa
0x0ba1…0bae at000b = ╱52╱R╱ // 0xbac @0xb
0x0ba1…0bae at000c = EOL // 0xbad @0xc
0x0ba1…0bae }
0x0bae…0bb3 a1a1 1010
0x0bae…0bb3 LineComal80 {
0x0bae…0bb3 ptr = 0xa1a1 // 0xbae @0x0
0x0bae…0bb3 lno = 0x03f2 // 0xbb0 @0x2
0x0bae…0bb3 at0004 = EOL // 0xbb2 @0x4
0x0bae…0bb3 }
0x0bb3…0bc6 a1b4 1020 PROC TERMINAL_IDX
0x0bb3…0bc6 LineComal80 {
0x0bb3…0bc6 ptr = 0xa1b4 // 0xbb3 @0x0
0x0bb3…0bc6 lno = 0x03fc // 0xbb5 @0x2
0x0bb3…0bc6 at0004 = ╱9e03╱ PROC ╱ // 0xbb7 @0x4
0x0bb3…0bc6 at0006 = ╱54╱T╱ // 0xbb9 @0x6
0x0bb3…0bc6 at0007 = ╱45╱E╱ // 0xbba @0x7
0x0bb3…0bc6 at0008 = ╱52╱R╱ // 0xbbb @0x8
0x0bb3…0bc6 at0009 = ╱4d╱M╱ // 0xbbc @0x9
0x0bb3…0bc6 at000a = ╱49╱I╱ // 0xbbd @0xa
0x0bb3…0bc6 at000b = ╱4e╱N╱ // 0xbbe @0xb
0x0bb3…0bc6 at000c = ╱41╱A╱ // 0xbbf @0xc
0x0bb3…0bc6 at000d = ╱4c╱L╱ // 0xbc0 @0xd
0x0bb3…0bc6 at000e = ╱5f╱_╱ // 0xbc1 @0xe
0x0bb3…0bc6 at000f = ╱49╱I╱ // 0xbc2 @0xf
0x0bb3…0bc6 at0010 = ╱44╱D╱ // 0xbc3 @0x10
0x0bb3…0bc6 at0011 = ╱58╱X╱ // 0xbc4 @0x11
0x0bb3…0bc6 at0012 = EOL // 0xbc5 @0x12
0x0bb3…0bc6 }
0x0bc6…0be0 a1ce 1030 LET PPAR := 5 ; RESRV := 0
0x0bc6…0be0 LineComal80 {
0x0bc6…0be0 ptr = 0xa1ce // 0xbc6 @0x0
0x0bc6…0be0 lno = 0x0406 // 0xbc8 @0x2
0x0bc6…0be0 at0004 = ╱86╱ LET ╱ // 0xbca @0x4
0x0bc6…0be0 at0005 = ╱50╱P╱ // 0xbcb @0x5
0x0bc6…0be0 at0006 = ╱50╱P╱ // 0xbcc @0x6
0x0bc6…0be0 at0007 = ╱41╱A╱ // 0xbcd @0x7
0x0bc6…0be0 at0008 = ╱52╱R╱ // 0xbce @0x8
0x0bc6…0be0 at0009 = ╱f0╱ := ╱ // 0xbcf @0x9
0x0bc6…0be0 at000a = ╱35╱5╱ // 0xbd0 @0xa
0x0bc6…0be0 at000b = ╱f20500╱ // 0xbd1 @0xb
0x0bc6…0be0 at000e = ╱ea╱ ; ╱ // 0xbd4 @0xe
0x0bc6…0be0 at000f = ╱52╱R╱ // 0xbd5 @0xf
0x0bc6…0be0 at0010 = ╱45╱E╱ // 0xbd6 @0x10
0x0bc6…0be0 at0011 = ╱53╱S╱ // 0xbd7 @0x11
0x0bc6…0be0 at0012 = ╱52╱R╱ // 0xbd8 @0x12
0x0bc6…0be0 at0013 = ╱56╱V╱ // 0xbd9 @0x13
0x0bc6…0be0 at0014 = ╱f0╱ := ╱ // 0xbda @0x14
0x0bc6…0be0 at0015 = ╱30╱0╱ // 0xbdb @0x15
0x0bc6…0be0 at0016 = ╱f20000╱ // 0xbdc @0x16
0x0bc6…0be0 at0019 = EOL // 0xbdf @0x19
0x0bc6…0be0 }
0x0be0…0bf2 a1e0 1040 CALL :PRES"
0x0be0…0bf2 LineComal80 {
0x0be0…0bf2 ptr = 0xa1e0 // 0xbe0 @0x0
0x0be0…0bf2 lno = 0x0410 // 0xbe2 @0x2
0x0be0…0bf2 at0004 = ╱ad00╱ CALL ╱ // 0xbe4 @0x4
0x0be0…0bf2 at0006 = ╱fe22444445╱ // 0xbe6 @0x6
0x0be0…0bf2 at000b = ╱3a╱:╱ // 0xbeb @0xb
0x0be0…0bf2 at000c = ╱50╱P╱ // 0xbec @0xc
0x0be0…0bf2 at000d = ╱52╱R╱ // 0xbed @0xd
0x0be0…0bf2 at000e = ╱45╱E╱ // 0xbee @0xe
0x0be0…0bf2 at000f = ╱53╱S╱ // 0xbef @0xf
0x0be0…0bf2 at0010 = ╱22╱"╱ // 0xbf0 @0x10
0x0be0…0bf2 at0011 = EOL // 0xbf1 @0x11
0x0be0…0bf2 }
0x0bf2…0c1b a209 1050 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0x0bf2…0c1b LineComal80 {
0x0bf2…0c1b ptr = 0xa209 // 0xbf2 @0x0
0x0bf2…0c1b lno = 0x041a // 0xbf4 @0x2
0x0bf2…0c1b at0004 = ╱a9╱ GET ╱ // 0xbf6 @0x4
0x0bf2…0c1b at0005 = ╱53╱S╱ // 0xbf7 @0x5
0x0bf2…0c1b at0006 = ╱59╱Y╱ // 0xbf8 @0x6
0x0bf2…0c1b at0007 = ╱53╱S╱ // 0xbf9 @0x7
0x0bf2…0c1b at0008 = ╱50╱P╱ // 0xbfa @0x8
0x0bf2…0c1b at0009 = ╱41╱A╱ // 0xbfb @0x9
0x0bf2…0c1b at000a = ╱52╱R╱ // 0xbfc @0xa
0x0bf2…0c1b at000b = ╱41╱A╱ // 0xbfd @0xb
0x0bf2…0c1b at000c = ╱ef╱$╱ // 0xbfe @0xc
0x0bf2…0c1b at000d = ╱ec╱,╱ // 0xbff @0xd
0x0bf2…0c1b at000e = ╱31╱1╱ // 0xc00 @0xe
0x0bf2…0c1b at000f = ╱f20100╱ // 0xc01 @0xf
0x0bf2…0c1b at0012 = ╱e5╱ + ╱ // 0xc04 @0x12
0x0bf2…0c1b at0013 = ╱52╱R╱ // 0xc05 @0x13
0x0bf2…0c1b at0014 = ╱45╱E╱ // 0xc06 @0x14
0x0bf2…0c1b at0015 = ╱53╱S╱ // 0xc07 @0x15
0x0bf2…0c1b at0016 = ╱52╱R╱ // 0xc08 @0x16
0x0bf2…0c1b at0017 = ╱56╱V╱ // 0xc09 @0x17
0x0bf2…0c1b at0018 = ╱f1╱ : ╱ // 0xc0a @0x18
0x0bf2…0c1b at0019 = ╱44╱D╱ // 0xc0b @0x19
0x0bf2…0c1b at001a = ╱41╱A╱ // 0xc0c @0x1a
0x0bf2…0c1b at001b = ╱54╱T╱ // 0xc0d @0x1b
0x0bf2…0c1b at001c = ╱41╱A╱ // 0xc0e @0x1c
0x0bf2…0c1b at001d = ╱46╱F╱ // 0xc0f @0x1d
0x0bf2…0c1b at001e = ╱4c╱L╱ // 0xc10 @0x1e
0x0bf2…0c1b at001f = ╱ef╱$╱ // 0xc11 @0x1f
0x0bf2…0c1b at0020 = ╱ec╱,╱ // 0xc12 @0x20
0x0bf2…0c1b at0021 = ╱54╱T╱ // 0xc13 @0x21
0x0bf2…0c1b at0022 = ╱5f╱_╱ // 0xc14 @0x22
0x0bf2…0c1b at0023 = ╱4b╱K╱ // 0xc15 @0x23
0x0bf2…0c1b at0024 = ╱4f╱O╱ // 0xc16 @0x24
0x0bf2…0c1b at0025 = ╱44╱D╱ // 0xc17 @0x25
0x0bf2…0c1b at0026 = ╱45╱E╱ // 0xc18 @0x26
0x0bf2…0c1b at0027 = ╱ef╱$╱ // 0xc19 @0x27
0x0bf2…0c1b at0028 = EOL // 0xc1a @0x28
0x0bf2…0c1b }
0x0c1b…0c2d a21b 1060 ENDPROC TERMINAL_IDX
0x0c1b…0c2d LineComal80 {
0x0c1b…0c2d ptr = 0xa21b // 0xc1b @0x0
0x0c1b…0c2d lno = 0x0424 // 0xc1d @0x2
0x0c1b…0c2d at0004 = ╱9f╱ ENDPROC ╱ // 0xc1f @0x4
0x0c1b…0c2d at0005 = ╱54╱T╱ // 0xc20 @0x5
0x0c1b…0c2d at0006 = ╱45╱E╱ // 0xc21 @0x6
0x0c1b…0c2d at0007 = ╱52╱R╱ // 0xc22 @0x7
0x0c1b…0c2d at0008 = ╱4d╱M╱ // 0xc23 @0x8
0x0c1b…0c2d at0009 = ╱49╱I╱ // 0xc24 @0x9
0x0c1b…0c2d at000a = ╱4e╱N╱ // 0xc25 @0xa
0x0c1b…0c2d at000b = ╱41╱A╱ // 0xc26 @0xb
0x0c1b…0c2d at000c = ╱4c╱L╱ // 0xc27 @0xc
0x0c1b…0c2d at000d = ╱5f╱_╱ // 0xc28 @0xd
0x0c1b…0c2d at000e = ╱49╱I╱ // 0xc29 @0xe
0x0c1b…0c2d at000f = ╱44╱D╱ // 0xc2a @0xf
0x0c1b…0c2d at0010 = ╱58╱X╱ // 0xc2b @0x10
0x0c1b…0c2d at0011 = EOL // 0xc2c @0x11
0x0c1b…0c2d }
0x0c2d…0c32 a220 1070
0x0c2d…0c32 LineComal80 {
0x0c2d…0c32 ptr = 0xa220 // 0xc2d @0x0
0x0c2d…0c32 lno = 0x042e // 0xc2f @0x2
0x0c2d…0c32 at0004 = EOL // 0xc31 @0x4
0x0c2d…0c32 }
0x0c32…0c4d a23b 1080 PROC OPENFIL(FNAVN$,WAY$)
0x0c32…0c4d LineComal80 {
0x0c32…0c4d ptr = 0xa23b // 0xc32 @0x0
0x0c32…0c4d lno = 0x0438 // 0xc34 @0x2
0x0c32…0c4d at0004 = ╱9e04╱ PROC ╱ // 0xc36 @0x4
0x0c32…0c4d at0006 = ╱4f╱O╱ // 0xc38 @0x6
0x0c32…0c4d at0007 = ╱50╱P╱ // 0xc39 @0x7
0x0c32…0c4d at0008 = ╱45╱E╱ // 0xc3a @0x8
0x0c32…0c4d at0009 = ╱4e╱N╱ // 0xc3b @0x9
0x0c32…0c4d at000a = ╱46╱F╱ // 0xc3c @0xa
0x0c32…0c4d at000b = ╱49╱I╱ // 0xc3d @0xb
0x0c32…0c4d at000c = ╱4c╱L╱ // 0xc3e @0xc
0x0c32…0c4d at000d = ╱ed╱(╱ // 0xc3f @0xd
0x0c32…0c4d at000e = ╱46╱F╱ // 0xc40 @0xe
0x0c32…0c4d at000f = ╱4e╱N╱ // 0xc41 @0xf
0x0c32…0c4d at0010 = ╱41╱A╱ // 0xc42 @0x10
0x0c32…0c4d at0011 = ╱56╱V╱ // 0xc43 @0x11
0x0c32…0c4d at0012 = ╱4e╱N╱ // 0xc44 @0x12
0x0c32…0c4d at0013 = ╱ef╱$╱ // 0xc45 @0x13
0x0c32…0c4d at0014 = ╱ec╱,╱ // 0xc46 @0x14
0x0c32…0c4d at0015 = ╱57╱W╱ // 0xc47 @0x15
0x0c32…0c4d at0016 = ╱41╱A╱ // 0xc48 @0x16
0x0c32…0c4d at0017 = ╱59╱Y╱ // 0xc49 @0x17
0x0c32…0c4d at0018 = ╱ef╱$╱ // 0xc4a @0x18
0x0c32…0c4d at0019 = ╱ee╱)╱ // 0xc4b @0x19
0x0c32…0c4d at001a = EOL // 0xc4c @0x1a
0x0c32…0c4d }
0x0c4d…0c54 a242 1090 REPEAT
0x0c4d…0c54 LineComal80 {
0x0c4d…0c54 ptr = 0xa242 // 0xc4d @0x0
0x0c4d…0c54 lno = 0x0442 // 0xc4f @0x2
0x0c4d…0c54 at0004 = ╱9705╱ REPEAT ╱ // 0xc51 @0x4
0x0c4d…0c54 at0006 = EOL // 0xc53 @0x6
0x0c4d…0c54 }
0x0c54…0c6d a25b 1100 IF AY$ = "W" OR WAY$ = "w" THEN
0x0c54…0c6d LineComal80 {
0x0c54…0c6d ptr = 0xa25b // 0xc54 @0x0
0x0c54…0c6d lno = 0x044c // 0xc56 @0x2
0x0c54…0c6d at0004 = ╱9b0657╱ IF ╱ // 0xc58 @0x4
0x0c54…0c6d at0007 = ╱41╱A╱ // 0xc5b @0x7
0x0c54…0c6d at0008 = ╱59╱Y╱ // 0xc5c @0x8
0x0c54…0c6d at0009 = ╱ef╱$╱ // 0xc5d @0x9
0x0c54…0c6d at000a = ╱df╱ = ╱ // 0xc5e @0xa
0x0c54…0c6d at000b = ╱22╱"╱ // 0xc5f @0xb
0x0c54…0c6d at000c = ╱57╱W╱ // 0xc60 @0xc
0x0c54…0c6d at000d = ╱22╱"╱ // 0xc61 @0xd
0x0c54…0c6d at000e = ╱d8╱ OR ╱ // 0xc62 @0xe
0x0c54…0c6d at000f = ╱57╱W╱ // 0xc63 @0xf
0x0c54…0c6d at0010 = ╱41╱A╱ // 0xc64 @0x10
0x0c54…0c6d at0011 = ╱59╱Y╱ // 0xc65 @0x11
0x0c54…0c6d at0012 = ╱ef╱$╱ // 0xc66 @0x12
0x0c54…0c6d at0013 = ╱df╱ = ╱ // 0xc67 @0x13
0x0c54…0c6d at0014 = ╱22╱"╱ // 0xc68 @0x14
0x0c54…0c6d at0015 = ╱77╱w╱ // 0xc69 @0x15
0x0c54…0c6d at0016 = ╱22╱"╱ // 0xc6a @0x16
0x0c54…0c6d at0017 = ╱b5╱ THEN ╱ // 0xc6b @0x17
0x0c54…0c6d at0018 = EOL // 0xc6c @0x18
0x0c54…0c6d }
0x0c6d…0c7b a269 1110 OPEN FNAVN$,W
0x0c6d…0c7b LineComal80 {
0x0c6d…0c7b ptr = 0xa269 // 0xc6d @0x0
0x0c6d…0c7b lno = 0x0456 // 0xc6f @0x2
0x0c6d…0c7b at0004 = ╱a7╱ OPEN ╱ // 0xc71 @0x4
0x0c6d…0c7b at0005 = ╱46╱F╱ // 0xc72 @0x5
0x0c6d…0c7b at0006 = ╱4e╱N╱ // 0xc73 @0x6
0x0c6d…0c7b at0007 = ╱41╱A╱ // 0xc74 @0x7
0x0c6d…0c7b at0008 = ╱56╱V╱ // 0xc75 @0x8
0x0c6d…0c7b at0009 = ╱4e╱N╱ // 0xc76 @0x9
0x0c6d…0c7b at000a = ╱ef╱$╱ // 0xc77 @0xa
0x0c6d…0c7b at000b = ╱ec╱,╱ // 0xc78 @0xb
0x0c6d…0c7b at000c = ╱57╱W╱ // 0xc79 @0xc
0x0c6d…0c7b at000d = EOL // 0xc7a @0xd
0x0c6d…0c7b }
0x0c7b…0c82 a270 1120 ELSE
0x0c7b…0c82 LineComal80 {
0x0c7b…0c82 ptr = 0xa270 // 0xc7b @0x0
0x0c7b…0c82 lno = 0x0460 // 0xc7d @0x2
0x0c7b…0c82 at0004 = ╱9a07╱ ELSE ╱ // 0xc7f @0x4
0x0c7b…0c82 at0006 = EOL // 0xc81 @0x6
0x0c7b…0c82 }
0x0c82…0c90 a27e 1130 OPEN FNAVN$,R
0x0c82…0c90 LineComal80 {
0x0c82…0c90 ptr = 0xa27e // 0xc82 @0x0
0x0c82…0c90 lno = 0x046a // 0xc84 @0x2
0x0c82…0c90 at0004 = ╱a7╱ OPEN ╱ // 0xc86 @0x4
0x0c82…0c90 at0005 = ╱46╱F╱ // 0xc87 @0x5
0x0c82…0c90 at0006 = ╱4e╱N╱ // 0xc88 @0x6
0x0c82…0c90 at0007 = ╱41╱A╱ // 0xc89 @0x7
0x0c82…0c90 at0008 = ╱56╱V╱ // 0xc8a @0x8
0x0c82…0c90 at0009 = ╱4e╱N╱ // 0xc8b @0x9
0x0c82…0c90 at000a = ╱ef╱$╱ // 0xc8c @0xa
0x0c82…0c90 at000b = ╱ec╱,╱ // 0xc8d @0xb
0x0c82…0c90 at000c = ╱52╱R╱ // 0xc8e @0xc
0x0c82…0c90 at000d = EOL // 0xc8f @0xd
0x0c82…0c90 }
0x0c90…0c96 a284 1140 ENDIF
0x0c90…0c96 LineComal80 {
0x0c90…0c96 ptr = 0xa284 // 0xc90 @0x0
0x0c90…0c96 lno = 0x0474 // 0xc92 @0x2
0x0c90…0c96 at0004 = ╱9c╱ ENDIF ╱ // 0xc94 @0x4
0x0c90…0c96 at0005 = EOL // 0xc95 @0x5
0x0c90…0c96 }
0x0c96…0ca7 a295 1150 IF (FNAVN$) THEN
0x0c96…0ca7 LineComal80 {
0x0c96…0ca7 ptr = 0xa295 // 0xc96 @0x0
0x0c96…0ca7 lno = 0x047e // 0xc98 @0x2
0x0c96…0ca7 at0004 = ╱9b08cd╱ IF ╱ // 0xc9a @0x4
0x0c96…0ca7 at0007 = ╱ed╱(╱ // 0xc9d @0x7
0x0c96…0ca7 at0008 = ╱46╱F╱ // 0xc9e @0x8
0x0c96…0ca7 at0009 = ╱4e╱N╱ // 0xc9f @0x9
0x0c96…0ca7 at000a = ╱41╱A╱ // 0xca0 @0xa
0x0c96…0ca7 at000b = ╱56╱V╱ // 0xca1 @0xb
0x0c96…0ca7 at000c = ╱4e╱N╱ // 0xca2 @0xc
0x0c96…0ca7 at000d = ╱ef╱$╱ // 0xca3 @0xd
0x0c96…0ca7 at000e = ╱ee╱)╱ // 0xca4 @0xe
0x0c96…0ca7 at000f = ╱b5╱ THEN ╱ // 0xca5 @0xf
0x0c96…0ca7 at0010 = EOL // 0xca6 @0x10
0x0c96…0ca7 }
0x0ca7…0cbf a2ad 1160 PRINT "<SC0123>" ; CHR$ (7)
0x0ca7…0cbf LineComal80 {
0x0ca7…0cbf ptr = 0xa2ad // 0xca7 @0x0
0x0ca7…0cbf lno = 0x0488 // 0xca9 @0x2
0x0ca7…0cbf at0004 = ╱92╱ PRINT ╱ // 0xcab @0x4
0x0ca7…0cbf at0005 = ╱22╱"╱ // 0xcac @0x5
0x0ca7…0cbf at0006 = ╱3c╱<╱ // 0xcad @0x6
0x0ca7…0cbf at0007 = ╱53╱S╱ // 0xcae @0x7
0x0ca7…0cbf at0008 = ╱43╱C╱ // 0xcaf @0x8
0x0ca7…0cbf at0009 = ╱30╱0╱ // 0xcb0 @0x9
0x0ca7…0cbf at000a = ╱31╱1╱ // 0xcb1 @0xa
0x0ca7…0cbf at000b = ╱32╱2╱ // 0xcb2 @0xb
0x0ca7…0cbf at000c = ╱33╱3╱ // 0xcb3 @0xc
0x0ca7…0cbf at000d = ╱3e╱>╱ // 0xcb4 @0xd
0x0ca7…0cbf at000e = ╱22╱"╱ // 0xcb5 @0xe
0x0ca7…0cbf at000f = ╱ea╱ ; ╱ // 0xcb6 @0xf
0x0ca7…0cbf at0010 = ╱d0╱ CHR$ ╱ // 0xcb7 @0x10
0x0ca7…0cbf at0011 = ╱ed╱(╱ // 0xcb8 @0x11
0x0ca7…0cbf at0012 = ╱37╱7╱ // 0xcb9 @0x12
0x0ca7…0cbf at0013 = ╱f20700╱ // 0xcba @0x13
0x0ca7…0cbf at0016 = ╱ee╱)╱ // 0xcbd @0x16
0x0ca7…0cbf at0017 = EOL // 0xcbe @0x17
0x0ca7…0cbf }
0x0cbf…0cd5 a2c3 1170 IF (FNAVN$) = 6 THEN
0x0cbf…0cd5 LineComal80 {
0x0cbf…0cd5 ptr = 0xa2c3 // 0xcbf @0x0
0x0cbf…0cd5 lno = 0x0492 // 0xcc1 @0x2
0x0cbf…0cd5 at0004 = ╱9b09cd╱ IF ╱ // 0xcc3 @0x4
0x0cbf…0cd5 at0007 = ╱ed╱(╱ // 0xcc6 @0x7
0x0cbf…0cd5 at0008 = ╱46╱F╱ // 0xcc7 @0x8
0x0cbf…0cd5 at0009 = ╱4e╱N╱ // 0xcc8 @0x9
0x0cbf…0cd5 at000a = ╱41╱A╱ // 0xcc9 @0xa
0x0cbf…0cd5 at000b = ╱56╱V╱ // 0xcca @0xb
0x0cbf…0cd5 at000c = ╱4e╱N╱ // 0xccb @0xc
0x0cbf…0cd5 at000d = ╱ef╱$╱ // 0xccc @0xd
0x0cbf…0cd5 at000e = ╱ee╱)╱ // 0xccd @0xe
0x0cbf…0cd5 at000f = ╱df╱ = ╱ // 0xcce @0xf
0x0cbf…0cd5 at0010 = ╱36╱6╱ // 0xccf @0x10
0x0cbf…0cd5 at0011 = ╱f20600╱ // 0xcd0 @0x11
0x0cbf…0cd5 at0014 = ╱b5╱ THEN ╱ // 0xcd3 @0x14
0x0cbf…0cd5 at0015 = EOL // 0xcd4 @0x15
0x0cbf…0cd5 }
0x0cd5…0d18 a306 1180 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk RETURN ***"
0x0cd5…0d18 LineComal80 {
0x0cd5…0d18 ptr = 0xa306 // 0xcd5 @0x0
0x0cd5…0d18 lno = 0x049c // 0xcd7 @0x2
0x0cd5…0d18 at0004 = ╱92╱ PRINT ╱ // 0xcd9 @0x4
0x0cd5…0d18 at0005 = ╱22╱"╱ // 0xcda @0x5
0x0cd5…0d18 at0006 = ╱3c╱<╱ // 0xcdb @0x6
0x0cd5…0d18 at0007 = ╱53╱S╱ // 0xcdc @0x7
0x0cd5…0d18 at0008 = ╱43╱C╱ // 0xcdd @0x8
0x0cd5…0d18 at0009 = ╱31╱1╱ // 0xcde @0x9
0x0cd5…0d18 at000a = ╱36╱6╱ // 0xcdf @0xa
0x0cd5…0d18 at000b = ╱30╱0╱ // 0xce0 @0xb
0x0cd5…0d18 at000c = ╱32╱2╱ // 0xce1 @0xc
0x0cd5…0d18 at000d = ╱3e╱>╱ // 0xce2 @0xd
0x0cd5…0d18 at000e = ╱2a╱*╱ // 0xce3 @0xe
0x0cd5…0d18 at000f = ╱2a╱*╱ // 0xce4 @0xf
0x0cd5…0d18 at0010 = ╱2a╱*╱ // 0xce5 @0x10
0x0cd5…0d18 at0011 = ╱20╱…╱ // 0xce6 @0x11
0x0cd5…0d18 at0012 = ╱46╱F╱ // 0xce7 @0x12
0x0cd5…0d18 at0013 = ╱65╱e╱ // 0xce8 @0x13
0x0cd5…0d18 at0014 = ╱6a╱j╱ // 0xce9 @0x14
0x0cd5…0d18 at0015 = ╱6c╱l╱ // 0xcea @0x15
0x0cd5…0d18 at0016 = ╱20╱…╱ // 0xceb @0x16
0x0cd5…0d18 at0017 = ╱6e╱n╱ // 0xcec @0x17
0x0cd5…0d18 at0018 = ╱72╱r╱ // 0xced @0x18
0x0cd5…0d18 at0019 = ╱2e╱.╱ // 0xcee @0x19
0x0cd5…0d18 at001a = ╱20╱…╱ // 0xcef @0x1a
0x0cd5…0d18 at001b = ╱36╱6╱ // 0xcf0 @0x1b
0x0cd5…0d18 at001c = ╱20╱…╱ // 0xcf1 @0x1c
0x0cd5…0d18 at001d = ╱2d╱-╱ // 0xcf2 @0x1d
0x0cd5…0d18 at001e = ╱20╱…╱ // 0xcf3 @0x1e
0x0cd5…0d18 at001f = ╱69╱i╱ // 0xcf4 @0x1f
0x0cd5…0d18 at0020 = ╱6e╱n╱ // 0xcf5 @0x20
0x0cd5…0d18 at0021 = ╱64╱d╱ // 0xcf6 @0x21
0x0cd5…0d18 at0022 = ╱73╱s╱ // 0xcf7 @0x22
0x0cd5…0d18 at0023 = ╱7b╱æ╱ // 0xcf8 @0x23
0x0cd5…0d18 at0024 = ╱74╱t╱ // 0xcf9 @0x24
0x0cd5…0d18 at0025 = ╱20╱…╱ // 0xcfa @0x25
0x0cd5…0d18 at0026 = ╱64╱d╱ // 0xcfb @0x26
0x0cd5…0d18 at0027 = ╱69╱i╱ // 0xcfc @0x27
0x0cd5…0d18 at0028 = ╱73╱s╱ // 0xcfd @0x28
0x0cd5…0d18 at0029 = ╱6b╱k╱ // 0xcfe @0x29
0x0cd5…0d18 at002a = ╱65╱e╱ // 0xcff @0x2a
0x0cd5…0d18 at002b = ╱74╱t╱ // 0xd00 @0x2b
0x0cd5…0d18 at002c = ╱74╱t╱ // 0xd01 @0x2c
0x0cd5…0d18 at002d = ╱65╱e╱ // 0xd02 @0x2d
0x0cd5…0d18 at002e = ╱20╱…╱ // 0xd03 @0x2e
0x0cd5…0d18 at002f = ╱6f╱o╱ // 0xd04 @0x2f
0x0cd5…0d18 at0030 = ╱67╱g╱ // 0xd05 @0x30
0x0cd5…0d18 at0031 = ╱20╱…╱ // 0xd06 @0x31
0x0cd5…0d18 at0032 = ╱74╱t╱ // 0xd07 @0x32
0x0cd5…0d18 at0033 = ╱72╱r╱ // 0xd08 @0x33
0x0cd5…0d18 at0034 = ╱79╱y╱ // 0xd09 @0x34
0x0cd5…0d18 at0035 = ╱6b╱k╱ // 0xd0a @0x35
0x0cd5…0d18 at0036 = ╱20╱…╱ // 0xd0b @0x36
0x0cd5…0d18 at0037 = ╱52╱R╱ // 0xd0c @0x37
0x0cd5…0d18 at0038 = ╱45╱E╱ // 0xd0d @0x38
0x0cd5…0d18 at0039 = ╱54╱T╱ // 0xd0e @0x39
0x0cd5…0d18 at003a = ╱55╱U╱ // 0xd0f @0x3a
0x0cd5…0d18 at003b = ╱52╱R╱ // 0xd10 @0x3b
0x0cd5…0d18 at003c = ╱4e╱N╱ // 0xd11 @0x3c
0x0cd5…0d18 at003d = ╱20╱…╱ // 0xd12 @0x3d
0x0cd5…0d18 at003e = ╱2a╱*╱ // 0xd13 @0x3e
0x0cd5…0d18 at003f = ╱2a╱*╱ // 0xd14 @0x3f
0x0cd5…0d18 at0040 = ╱2a╱*╱ // 0xd15 @0x40
0x0cd5…0d18 at0041 = ╱22╱"╱ // 0xd16 @0x41
0x0cd5…0d18 at0042 = EOL // 0xd17 @0x42
0x0cd5…0d18 }
0x0d18…0d26 a314 1190 INPUT "" : SVAR$
0x0d18…0d26 LineComal80 {
0x0d18…0d26 ptr = 0xa314 // 0xd18 @0x0
0x0d18…0d26 lno = 0x04a6 // 0xd1a @0x2
0x0d18…0d26 at0004 = ╱91╱ INPUT ╱ // 0xd1c @0x4
0x0d18…0d26 at0005 = ╱22╱"╱ // 0xd1d @0x5
0x0d18…0d26 at0006 = ╱22╱"╱ // 0xd1e @0x6
0x0d18…0d26 at0007 = ╱f1╱ : ╱ // 0xd1f @0x7
0x0d18…0d26 at0008 = ╱53╱S╱ // 0xd20 @0x8
0x0d18…0d26 at0009 = ╱56╱V╱ // 0xd21 @0x9
0x0d18…0d26 at000a = ╱41╱A╱ // 0xd22 @0xa
0x0d18…0d26 at000b = ╱52╱R╱ // 0xd23 @0xb
0x0d18…0d26 at000c = ╱ef╱$╱ // 0xd24 @0xc
0x0d18…0d26 at000d = EOL // 0xd25 @0xd
0x0d18…0d26 }
0x0d26…0d2d a31b 1200 ELSE
0x0d26…0d2d LineComal80 {
0x0d26…0d2d ptr = 0xa31b // 0xd26 @0x0
0x0d26…0d2d lno = 0x04b0 // 0xd28 @0x2
0x0d26…0d2d at0004 = ╱9a0a╱ ELSE ╱ // 0xd2a @0x4
0x0d26…0d2d at0006 = EOL // 0xd2c @0x6
0x0d26…0d2d }
0x0d2d…0d6e a35c 1210 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
0x0d2d…0d6e LineComal80 {
0x0d2d…0d6e ptr = 0xa35c // 0xd2d @0x0
0x0d2d…0d6e lno = 0x04ba // 0xd2f @0x2
0x0d2d…0d6e at0004 = ╱92╱ PRINT ╱ // 0xd31 @0x4
0x0d2d…0d6e at0005 = ╱22╱"╱ // 0xd32 @0x5
0x0d2d…0d6e at0006 = ╱3c╱<╱ // 0xd33 @0x6
0x0d2d…0d6e at0007 = ╱53╱S╱ // 0xd34 @0x7
0x0d2d…0d6e at0008 = ╱43╱C╱ // 0xd35 @0x8
0x0d2d…0d6e at0009 = ╱31╱1╱ // 0xd36 @0x9
0x0d2d…0d6e at000a = ╱38╱8╱ // 0xd37 @0xa
0x0d2d…0d6e at000b = ╱30╱0╱ // 0xd38 @0xb
0x0d2d…0d6e at000c = ╱32╱2╱ // 0xd39 @0xc
0x0d2d…0d6e at000d = ╱3e╱>╱ // 0xd3a @0xd
0x0d2d…0d6e at000e = ╱2a╱*╱ // 0xd3b @0xe
0x0d2d…0d6e at000f = ╱2a╱*╱ // 0xd3c @0xf
0x0d2d…0d6e at0010 = ╱2a╱*╱ // 0xd3d @0x10
0x0d2d…0d6e at0011 = ╱20╱…╱ // 0xd3e @0x11
0x0d2d…0d6e at0012 = ╱46╱F╱ // 0xd3f @0x12
0x0d2d…0d6e at0013 = ╱65╱e╱ // 0xd40 @0x13
0x0d2d…0d6e at0014 = ╱6a╱j╱ // 0xd41 @0x14
0x0d2d…0d6e at0015 = ╱6c╱l╱ // 0xd42 @0x15
0x0d2d…0d6e at0016 = ╱20╱…╱ // 0xd43 @0x16
0x0d2d…0d6e at0017 = ╱6e╱n╱ // 0xd44 @0x17
0x0d2d…0d6e at0018 = ╱72╱r╱ // 0xd45 @0x18
0x0d2d…0d6e at0019 = ╱2e╱.╱ // 0xd46 @0x19
0x0d2d…0d6e at001a = ╱20╱…╱ // 0xd47 @0x1a
0x0d2d…0d6e at001b = ╱22╱"╱ // 0xd48 @0x1b
0x0d2d…0d6e at001c = ╱ea╱ ; ╱ // 0xd49 @0x1c
0x0d2d…0d6e at001d = ╱d0╱ CHR$ ╱ // 0xd4a @0x1d
0x0d2d…0d6e at001e = ╱ed╱(╱ // 0xd4b @0x1e
0x0d2d…0d6e at001f = ╱cd╱ // 0xd4c @0x1f
0x0d2d…0d6e at0020 = ╱ed╱(╱ // 0xd4d @0x20
0x0d2d…0d6e at0021 = ╱46╱F╱ // 0xd4e @0x21
0x0d2d…0d6e at0022 = ╱4e╱N╱ // 0xd4f @0x22
0x0d2d…0d6e at0023 = ╱41╱A╱ // 0xd50 @0x23
0x0d2d…0d6e at0024 = ╱56╱V╱ // 0xd51 @0x24
0x0d2d…0d6e at0025 = ╱4e╱N╱ // 0xd52 @0x25
0x0d2d…0d6e at0026 = ╱ef╱$╱ // 0xd53 @0x26
0x0d2d…0d6e at0027 = ╱ee╱)╱ // 0xd54 @0x27
0x0d2d…0d6e at0028 = ╱ec╱,╱ // 0xd55 @0x28
0x0d2d…0d6e at0029 = ╱32╱2╱ // 0xd56 @0x29
0x0d2d…0d6e at002a = ╱f20200╱ // 0xd57 @0x2a
0x0d2d…0d6e at002d = ╱ee╱)╱ // 0xd5a @0x2d
0x0d2d…0d6e at002e = ╱ea╱ ; ╱ // 0xd5b @0x2e
0x0d2d…0d6e at002f = ╱22╱"╱ // 0xd5c @0x2f
0x0d2d…0d6e at0030 = ╱20╱…╱ // 0xd5d @0x30
0x0d2d…0d6e at0031 = ╱76╱v╱ // 0xd5e @0x31
0x0d2d…0d6e at0032 = ╱65╱e╱ // 0xd5f @0x32
0x0d2d…0d6e at0033 = ╱64╱d╱ // 0xd60 @0x33
0x0d2d…0d6e at0034 = ╱20╱…╱ // 0xd61 @0x34
0x0d2d…0d6e at0035 = ╱7d╱å╱ // 0xd62 @0x35
0x0d2d…0d6e at0036 = ╱62╱b╱ // 0xd63 @0x36
0x0d2d…0d6e at0037 = ╱6e╱n╱ // 0xd64 @0x37
0x0d2d…0d6e at0038 = ╱69╱i╱ // 0xd65 @0x38
0x0d2d…0d6e at0039 = ╱6e╱n╱ // 0xd66 @0x39
0x0d2d…0d6e at003a = ╱67╱g╱ // 0xd67 @0x3a
0x0d2d…0d6e at003b = ╱20╱…╱ // 0xd68 @0x3b
0x0d2d…0d6e at003c = ╱61╱a╱ // 0xd69 @0x3c
0x0d2d…0d6e at003d = ╱66╱f╱ // 0xd6a @0x3d
0x0d2d…0d6e at003e = ╱20╱…╱ // 0xd6b @0x3e
0x0d2d…0d6e at003f = ╱22╱"╱ // 0xd6c @0x3f
0x0d2d…0d6e at0040 = EOL // 0xd6d @0x40
0x0d2d…0d6e }
0x0d6e…0d87 a375 1220 PRINT "<S>" ; FNAVN$ ; " ***"
0x0d6e…0d87 LineComal80 {
0x0d6e…0d87 ptr = 0xa375 // 0xd6e @0x0
0x0d6e…0d87 lno = 0x04c4 // 0xd70 @0x2
0x0d6e…0d87 at0004 = ╱92╱ PRINT ╱ // 0xd72 @0x4
0x0d6e…0d87 at0005 = ╱22╱"╱ // 0xd73 @0x5
0x0d6e…0d87 at0006 = ╱3c╱<╱ // 0xd74 @0x6
0x0d6e…0d87 at0007 = ╱53╱S╱ // 0xd75 @0x7
0x0d6e…0d87 at0008 = ╱3e╱>╱ // 0xd76 @0x8
0x0d6e…0d87 at0009 = ╱22╱"╱ // 0xd77 @0x9
0x0d6e…0d87 at000a = ╱ea╱ ; ╱ // 0xd78 @0xa
0x0d6e…0d87 at000b = ╱46╱F╱ // 0xd79 @0xb
0x0d6e…0d87 at000c = ╱4e╱N╱ // 0xd7a @0xc
0x0d6e…0d87 at000d = ╱41╱A╱ // 0xd7b @0xd
0x0d6e…0d87 at000e = ╱56╱V╱ // 0xd7c @0xe
0x0d6e…0d87 at000f = ╱4e╱N╱ // 0xd7d @0xf
0x0d6e…0d87 at0010 = ╱ef╱$╱ // 0xd7e @0x10
0x0d6e…0d87 at0011 = ╱ea╱ ; ╱ // 0xd7f @0x11
0x0d6e…0d87 at0012 = ╱22╱"╱ // 0xd80 @0x12
0x0d6e…0d87 at0013 = ╱20╱…╱ // 0xd81 @0x13
0x0d6e…0d87 at0014 = ╱2a╱*╱ // 0xd82 @0x14
0x0d6e…0d87 at0015 = ╱2a╱*╱ // 0xd83 @0x15
0x0d6e…0d87 at0016 = ╱2a╱*╱ // 0xd84 @0x16
0x0d6e…0d87 at0017 = ╱22╱"╱ // 0xd85 @0x17
0x0d6e…0d87 at0018 = EOL // 0xd86 @0x18
0x0d6e…0d87 }
0x0d87…0d95 a383 1230 INPUT "" : SVAR$
0x0d87…0d95 LineComal80 {
0x0d87…0d95 ptr = 0xa383 // 0xd87 @0x0
0x0d87…0d95 lno = 0x04ce // 0xd89 @0x2
0x0d87…0d95 at0004 = ╱91╱ INPUT ╱ // 0xd8b @0x4
0x0d87…0d95 at0005 = ╱22╱"╱ // 0xd8c @0x5
0x0d87…0d95 at0006 = ╱22╱"╱ // 0xd8d @0x6
0x0d87…0d95 at0007 = ╱f1╱ : ╱ // 0xd8e @0x7
0x0d87…0d95 at0008 = ╱53╱S╱ // 0xd8f @0x8
0x0d87…0d95 at0009 = ╱56╱V╱ // 0xd90 @0x9
0x0d87…0d95 at000a = ╱41╱A╱ // 0xd91 @0xa
0x0d87…0d95 at000b = ╱52╱R╱ // 0xd92 @0xb
0x0d87…0d95 at000c = ╱ef╱$╱ // 0xd93 @0xc
0x0d87…0d95 at000d = EOL // 0xd94 @0xd
0x0d87…0d95 }
0x0d95…0da9 a397 1240 PRINT "<C0102>" ; SPC$
0x0d95…0da9 LineComal80 {
0x0d95…0da9 ptr = 0xa397 // 0xd95 @0x0
0x0d95…0da9 lno = 0x04d8 // 0xd97 @0x2
0x0d95…0da9 at0004 = ╱92╱ PRINT ╱ // 0xd99 @0x4
0x0d95…0da9 at0005 = ╱22╱"╱ // 0xd9a @0x5
0x0d95…0da9 at0006 = ╱3c╱<╱ // 0xd9b @0x6
0x0d95…0da9 at0007 = ╱43╱C╱ // 0xd9c @0x7
0x0d95…0da9 at0008 = ╱30╱0╱ // 0xd9d @0x8
0x0d95…0da9 at0009 = ╱31╱1╱ // 0xd9e @0x9
0x0d95…0da9 at000a = ╱30╱0╱ // 0xd9f @0xa
0x0d95…0da9 at000b = ╱32╱2╱ // 0xda0 @0xb
0x0d95…0da9 at000c = ╱3e╱>╱ // 0xda1 @0xc
0x0d95…0da9 at000d = ╱22╱"╱ // 0xda2 @0xd
0x0d95…0da9 at000e = ╱ea╱ ; ╱ // 0xda3 @0xe
0x0d95…0da9 at000f = ╱53╱S╱ // 0xda4 @0xf
0x0d95…0da9 at0010 = ╱50╱P╱ // 0xda5 @0x10
0x0d95…0da9 at0011 = ╱43╱C╱ // 0xda6 @0x11
0x0d95…0da9 at0012 = ╱ef╱$╱ // 0xda7 @0x12
0x0d95…0da9 at0013 = EOL // 0xda8 @0x13
0x0d95…0da9 }
0x0da9…0daf a39d 1250 ENDIF
0x0da9…0daf LineComal80 {
0x0da9…0daf ptr = 0xa39d // 0xda9 @0x0
0x0da9…0daf lno = 0x04e2 // 0xdab @0x2
0x0da9…0daf at0004 = ╱9c╱ ENDIF ╱ // 0xdad @0x4
0x0da9…0daf at0005 = EOL // 0xdae @0x5
0x0da9…0daf }
0x0daf…0db5 a3a3 1260 ENDIF
0x0daf…0db5 LineComal80 {
0x0daf…0db5 ptr = 0xa3a3 // 0xdaf @0x0
0x0daf…0db5 lno = 0x04ec // 0xdb1 @0x2
0x0daf…0db5 at0004 = ╱9c╱ ENDIF ╱ // 0xdb3 @0x4
0x0daf…0db5 at0005 = EOL // 0xdb4 @0x5
0x0daf…0db5 }
0x0db5…0dc5 a3b3 1270 UNTIL NOT ╱cd╱ (FNAVN$)
0x0db5…0dc5 LineComal80 {
0x0db5…0dc5 ptr = 0xa3b3 // 0xdb5 @0x0
0x0db5…0dc5 lno = 0x04f6 // 0xdb7 @0x2
0x0db5…0dc5 at0004 = ╱98╱ UNTIL ╱ // 0xdb9 @0x4
0x0db5…0dc5 at0005 = ╱d7╱ NOT ╱ // 0xdba @0x5
0x0db5…0dc5 at0006 = ╱cd╱ // 0xdbb @0x6
0x0db5…0dc5 at0007 = ╱ed╱(╱ // 0xdbc @0x7
0x0db5…0dc5 at0008 = ╱46╱F╱ // 0xdbd @0x8
0x0db5…0dc5 at0009 = ╱4e╱N╱ // 0xdbe @0x9
0x0db5…0dc5 at000a = ╱41╱A╱ // 0xdbf @0xa
0x0db5…0dc5 at000b = ╱56╱V╱ // 0xdc0 @0xb
0x0db5…0dc5 at000c = ╱4e╱N╱ // 0xdc1 @0xc
0x0db5…0dc5 at000d = ╱ef╱$╱ // 0xdc2 @0xd
0x0db5…0dc5 at000e = ╱ee╱)╱ // 0xdc3 @0xe
0x0db5…0dc5 at000f = EOL // 0xdc4 @0xf
0x0db5…0dc5 }
0x0dc5…0dd2 a3c0 1280 ENDPROC OPENFIL
0x0dc5…0dd2 LineComal80 {
0x0dc5…0dd2 ptr = 0xa3c0 // 0xdc5 @0x0
0x0dc5…0dd2 lno = 0x0500 // 0xdc7 @0x2
0x0dc5…0dd2 at0004 = ╱9f╱ ENDPROC ╱ // 0xdc9 @0x4
0x0dc5…0dd2 at0005 = ╱4f╱O╱ // 0xdca @0x5
0x0dc5…0dd2 at0006 = ╱50╱P╱ // 0xdcb @0x6
0x0dc5…0dd2 at0007 = ╱45╱E╱ // 0xdcc @0x7
0x0dc5…0dd2 at0008 = ╱4e╱N╱ // 0xdcd @0x8
0x0dc5…0dd2 at0009 = ╱46╱F╱ // 0xdce @0x9
0x0dc5…0dd2 at000a = ╱49╱I╱ // 0xdcf @0xa
0x0dc5…0dd2 at000b = ╱4c╱L╱ // 0xdd0 @0xb
0x0dc5…0dd2 at000c = EOL // 0xdd1 @0xc
0x0dc5…0dd2 }
0x0dd2…0dd7 a3c5 1290
0x0dd2…0dd7 LineComal80 {
0x0dd2…0dd7 ptr = 0xa3c5 // 0xdd2 @0x0
0x0dd2…0dd7 lno = 0x050a // 0xdd4 @0x2
0x0dd2…0dd7 at0004 = EOL // 0xdd6 @0x4
0x0dd2…0dd7 }
0x0dd7…0df0 a3de 1300 PROC TAL_CONTROL( REF RST$)
0x0dd7…0df0 LineComal80 {
0x0dd7…0df0 ptr = 0xa3de // 0xdd7 @0x0
0x0dd7…0df0 lno = 0x0514 // 0xdd9 @0x2
0x0dd7…0df0 at0004 = ╱9e0b╱ PROC ╱ // 0xddb @0x4
0x0dd7…0df0 at0006 = ╱54╱T╱ // 0xddd @0x6
0x0dd7…0df0 at0007 = ╱41╱A╱ // 0xdde @0x7
0x0dd7…0df0 at0008 = ╱4c╱L╱ // 0xddf @0x8
0x0dd7…0df0 at0009 = ╱5f╱_╱ // 0xde0 @0x9
0x0dd7…0df0 at000a = ╱43╱C╱ // 0xde1 @0xa
0x0dd7…0df0 at000b = ╱4f╱O╱ // 0xde2 @0xb
0x0dd7…0df0 at000c = ╱4e╱N╱ // 0xde3 @0xc
0x0dd7…0df0 at000d = ╱54╱T╱ // 0xde4 @0xd
0x0dd7…0df0 at000e = ╱52╱R╱ // 0xde5 @0xe
0x0dd7…0df0 at000f = ╱4f╱O╱ // 0xde6 @0xf
0x0dd7…0df0 at0010 = ╱4c╱L╱ // 0xde7 @0x10
0x0dd7…0df0 at0011 = ╱ed╱(╱ // 0xde8 @0x11
0x0dd7…0df0 at0012 = ╱b6╱ REF ╱ // 0xde9 @0x12
0x0dd7…0df0 at0013 = ╱52╱R╱ // 0xdea @0x13
0x0dd7…0df0 at0014 = ╱53╱S╱ // 0xdeb @0x14
0x0dd7…0df0 at0015 = ╱54╱T╱ // 0xdec @0x15
0x0dd7…0df0 at0016 = ╱ef╱$╱ // 0xded @0x16
0x0dd7…0df0 at0017 = ╱ee╱)╱ // 0xdee @0x17
0x0dd7…0df0 at0018 = EOL // 0xdef @0x18
0x0dd7…0df0 }
0x0df0…0e04 a3f2 1310 LET J := 0 ; OK := TRUE
0x0df0…0e04 LineComal80 {
0x0df0…0e04 ptr = 0xa3f2 // 0xdf0 @0x0
0x0df0…0e04 lno = 0x051e // 0xdf2 @0x2
0x0df0…0e04 at0004 = ╱86╱ LET ╱ // 0xdf4 @0x4
0x0df0…0e04 at0005 = ╱4a╱J╱ // 0xdf5 @0x5
0x0df0…0e04 at0006 = ╱f0╱ := ╱ // 0xdf6 @0x6
0x0df0…0e04 at0007 = ╱30╱0╱ // 0xdf7 @0x7
0x0df0…0e04 at0008 = ╱f20000╱ // 0xdf8 @0x8
0x0df0…0e04 at000b = ╱ea╱ ; ╱ // 0xdfb @0xb
0x0df0…0e04 at000c = ╱4f╱O╱ // 0xdfc @0xc
0x0df0…0e04 at000d = ╱4b╱K╱ // 0xdfd @0xd
0x0df0…0e04 at000e = ╱f0╱ := ╱ // 0xdfe @0xe
0x0df0…0e04 at000f = ╱54╱T╱ // 0xdff @0xf
0x0df0…0e04 at0010 = ╱52╱R╱ // 0xe00 @0x10
0x0df0…0e04 at0011 = ╱55╱U╱ // 0xe01 @0x11
0x0df0…0e04 at0012 = ╱45╱E╱ // 0xe02 @0x12
0x0df0…0e04 at0013 = EOL // 0xe03 @0x13
0x0df0…0e04 }
0x0e04…0e1a a408 1320 FOR I := 1 TO (RST$) DO
0x0e04…0e1a LineComal80 {
0x0e04…0e1a ptr = 0xa408 // 0xe04 @0x0
0x0e04…0e1a lno = 0x0528 // 0xe06 @0x2
0x0e04…0e1a at0004 = ╱830c╱ FOR ╱ // 0xe08 @0x4
0x0e04…0e1a at0006 = ╱49╱I╱ // 0xe0a @0x6
0x0e04…0e1a at0007 = ╱f0╱ := ╱ // 0xe0b @0x7
0x0e04…0e1a at0008 = ╱31╱1╱ // 0xe0c @0x8
0x0e04…0e1a at0009 = ╱f20100╱ // 0xe0d @0x9
0x0e04…0e1a at000c = ╱b7cb╱ TO ╱ // 0xe10 @0xc
0x0e04…0e1a at000e = ╱ed╱(╱ // 0xe12 @0xe
0x0e04…0e1a at000f = ╱52╱R╱ // 0xe13 @0xf
0x0e04…0e1a at0010 = ╱53╱S╱ // 0xe14 @0x10
0x0e04…0e1a at0011 = ╱54╱T╱ // 0xe15 @0x11
0x0e04…0e1a at0012 = ╱ef╱$╱ // 0xe16 @0x12
0x0e04…0e1a at0013 = ╱ee╱)╱ // 0xe17 @0x13
0x0e04…0e1a at0014 = ╱bb╱ DO ╱ // 0xe18 @0x14
0x0e04…0e1a at0015 = EOL // 0xe19 @0x15
0x0e04…0e1a }
0x0e1a…0e4b a439 1330 IF RST$(I) IN TAL$ + "." THEN LET J := J + 1 ; RST$(J) := RST$(I)
0x0e1a…0e4b LineComal80 {
0x0e1a…0e4b ptr = 0xa439 // 0xe1a @0x0
0x0e1a…0e4b lno = 0x0532 // 0xe1c @0x2
0x0e1a…0e4b at0004 = ╱8200╱ IF ╱ // 0xe1e @0x4
0x0e1a…0e4b at0006 = ╱52╱R╱ // 0xe20 @0x6
0x0e1a…0e4b at0007 = ╱53╱S╱ // 0xe21 @0x7
0x0e1a…0e4b at0008 = ╱54╱T╱ // 0xe22 @0x8
0x0e1a…0e4b at0009 = ╱ef╱$╱ // 0xe23 @0x9
0x0e1a…0e4b at000a = ╱ed╱(╱ // 0xe24 @0xa
0x0e1a…0e4b at000b = ╱49╱I╱ // 0xe25 @0xb
0x0e1a…0e4b at000c = ╱ee╱)╱ // 0xe26 @0xc
0x0e1a…0e4b at000d = ╱dc╱ IN ╱ // 0xe27 @0xd
0x0e1a…0e4b at000e = ╱54╱T╱ // 0xe28 @0xe
0x0e1a…0e4b at000f = ╱41╱A╱ // 0xe29 @0xf
0x0e1a…0e4b at0010 = ╱4c╱L╱ // 0xe2a @0x10
0x0e1a…0e4b at0011 = ╱ef╱$╱ // 0xe2b @0x11
0x0e1a…0e4b at0012 = ╱eb╱ + ╱ // 0xe2c @0x12
0x0e1a…0e4b at0013 = ╱22╱"╱ // 0xe2d @0x13
0x0e1a…0e4b at0014 = ╱2e╱.╱ // 0xe2e @0x14
0x0e1a…0e4b at0015 = ╱22╱"╱ // 0xe2f @0x15
0x0e1a…0e4b at0016 = ╱b5╱ THEN ╱ // 0xe30 @0x16
0x0e1a…0e4b at0017 = ╱86╱ LET ╱ // 0xe31 @0x17
0x0e1a…0e4b at0018 = ╱4a╱J╱ // 0xe32 @0x18
0x0e1a…0e4b at0019 = ╱f0╱ := ╱ // 0xe33 @0x19
0x0e1a…0e4b at001a = ╱4a╱J╱ // 0xe34 @0x1a
0x0e1a…0e4b at001b = ╱e5╱ + ╱ // 0xe35 @0x1b
0x0e1a…0e4b at001c = ╱31╱1╱ // 0xe36 @0x1c
0x0e1a…0e4b at001d = ╱f20100╱ // 0xe37 @0x1d
0x0e1a…0e4b at0020 = ╱ea╱ ; ╱ // 0xe3a @0x20
0x0e1a…0e4b at0021 = ╱52╱R╱ // 0xe3b @0x21
0x0e1a…0e4b at0022 = ╱53╱S╱ // 0xe3c @0x22
0x0e1a…0e4b at0023 = ╱54╱T╱ // 0xe3d @0x23
0x0e1a…0e4b at0024 = ╱ef╱$╱ // 0xe3e @0x24
0x0e1a…0e4b at0025 = ╱ed╱(╱ // 0xe3f @0x25
0x0e1a…0e4b at0026 = ╱4a╱J╱ // 0xe40 @0x26
0x0e1a…0e4b at0027 = ╱ee╱)╱ // 0xe41 @0x27
0x0e1a…0e4b at0028 = ╱f0╱ := ╱ // 0xe42 @0x28
0x0e1a…0e4b at0029 = ╱52╱R╱ // 0xe43 @0x29
0x0e1a…0e4b at002a = ╱53╱S╱ // 0xe44 @0x2a
0x0e1a…0e4b at002b = ╱54╱T╱ // 0xe45 @0x2b
0x0e1a…0e4b at002c = ╱ef╱$╱ // 0xe46 @0x2c
0x0e1a…0e4b at002d = ╱ed╱(╱ // 0xe47 @0x2d
0x0e1a…0e4b at002e = ╱49╱I╱ // 0xe48 @0x2e
0x0e1a…0e4b at002f = ╱ee╱)╱ // 0xe49 @0x2f
0x0e1a…0e4b at0030 = EOL // 0xe4a @0x30
0x0e1a…0e4b }
0x0e4b…0e52 a440 1340 NEXT I
0x0e4b…0e52 LineComal80 {
0x0e4b…0e52 ptr = 0xa440 // 0xe4b @0x0
0x0e4b…0e52 lno = 0x053c // 0xe4d @0x2
0x0e4b…0e52 at0004 = ╱84╱ NEXT ╱ // 0xe4f @0x4
0x0e4b…0e52 at0005 = ╱49╱I╱ // 0xe50 @0x5
0x0e4b…0e52 at0006 = EOL // 0xe51 @0x6
0x0e4b…0e52 }
0x0e52…0e60 a44e 1350 IF = 0 THEN
0x0e52…0e60 LineComal80 {
0x0e52…0e60 ptr = 0xa44e // 0xe52 @0x0
0x0e52…0e60 lno = 0x0546 // 0xe54 @0x2
0x0e52…0e60 at0004 = ╱9b0d4a╱ IF ╱ // 0xe56 @0x4
0x0e52…0e60 at0007 = ╱df╱ = ╱ // 0xe59 @0x7
0x0e52…0e60 at0008 = ╱30╱0╱ // 0xe5a @0x8
0x0e52…0e60 at0009 = ╱f20000╱ // 0xe5b @0x9
0x0e52…0e60 at000c = ╱b5╱ THEN ╱ // 0xe5e @0xc
0x0e52…0e60 at000d = EOL // 0xe5f @0xd
0x0e52…0e60 }
0x0e60…0e6e a45c 1360 LET OK := FALSE
0x0e60…0e6e LineComal80 {
0x0e60…0e6e ptr = 0xa45c // 0xe60 @0x0
0x0e60…0e6e lno = 0x0550 // 0xe62 @0x2
0x0e60…0e6e at0004 = ╱86╱ LET ╱ // 0xe64 @0x4
0x0e60…0e6e at0005 = ╱4f╱O╱ // 0xe65 @0x5
0x0e60…0e6e at0006 = ╱4b╱K╱ // 0xe66 @0x6
0x0e60…0e6e at0007 = ╱f0╱ := ╱ // 0xe67 @0x7
0x0e60…0e6e at0008 = ╱46╱F╱ // 0xe68 @0x8
0x0e60…0e6e at0009 = ╱41╱A╱ // 0xe69 @0x9
0x0e60…0e6e at000a = ╱4c╱L╱ // 0xe6a @0xa
0x0e60…0e6e at000b = ╱53╱S╱ // 0xe6b @0xb
0x0e60…0e6e at000c = ╱45╱E╱ // 0xe6c @0xc
0x0e60…0e6e at000d = EOL // 0xe6d @0xd
0x0e60…0e6e }
0x0e6e…0e75 a463 1370 ELSE
0x0e6e…0e75 LineComal80 {
0x0e6e…0e75 ptr = 0xa463 // 0xe6e @0x0
0x0e6e…0e75 lno = 0x055a // 0xe70 @0x2
0x0e6e…0e75 at0004 = ╱9a0e╱ ELSE ╱ // 0xe72 @0x4
0x0e6e…0e75 at0006 = EOL // 0xe74 @0x6
0x0e6e…0e75 }
0x0e75…0e8c a47a 1380 LET RST$ := RST$(1 : J)
0x0e75…0e8c LineComal80 {
0x0e75…0e8c ptr = 0xa47a // 0xe75 @0x0
0x0e75…0e8c lno = 0x0564 // 0xe77 @0x2
0x0e75…0e8c at0004 = ╱86╱ LET ╱ // 0xe79 @0x4
0x0e75…0e8c at0005 = ╱52╱R╱ // 0xe7a @0x5
0x0e75…0e8c at0006 = ╱53╱S╱ // 0xe7b @0x6
0x0e75…0e8c at0007 = ╱54╱T╱ // 0xe7c @0x7
0x0e75…0e8c at0008 = ╱ef╱$╱ // 0xe7d @0x8
0x0e75…0e8c at0009 = ╱f0╱ := ╱ // 0xe7e @0x9
0x0e75…0e8c at000a = ╱52╱R╱ // 0xe7f @0xa
0x0e75…0e8c at000b = ╱53╱S╱ // 0xe80 @0xb
0x0e75…0e8c at000c = ╱54╱T╱ // 0xe81 @0xc
0x0e75…0e8c at000d = ╱ef╱$╱ // 0xe82 @0xd
0x0e75…0e8c at000e = ╱ed╱(╱ // 0xe83 @0xe
0x0e75…0e8c at000f = ╱31╱1╱ // 0xe84 @0xf
0x0e75…0e8c at0010 = ╱f20100╱ // 0xe85 @0x10
0x0e75…0e8c at0013 = ╱f1╱ : ╱ // 0xe88 @0x13
0x0e75…0e8c at0014 = ╱4a╱J╱ // 0xe89 @0x14
0x0e75…0e8c at0015 = ╱ee╱)╱ // 0xe8a @0x15
0x0e75…0e8c at0016 = EOL // 0xe8b @0x16
0x0e75…0e8c }
0x0e8c…0e92 a480 1390 ENDIF
0x0e8c…0e92 LineComal80 {
0x0e8c…0e92 ptr = 0xa480 // 0xe8c @0x0
0x0e8c…0e92 lno = 0x056e // 0xe8e @0x2
0x0e8c…0e92 at0004 = ╱9c╱ ENDIF ╱ // 0xe90 @0x4
0x0e8c…0e92 at0005 = EOL // 0xe91 @0x5
0x0e8c…0e92 }
0x0e92…0ea3 a491 1400 ENDPROC TAL_CONTROL
0x0e92…0ea3 LineComal80 {
0x0e92…0ea3 ptr = 0xa491 // 0xe92 @0x0
0x0e92…0ea3 lno = 0x0578 // 0xe94 @0x2
0x0e92…0ea3 at0004 = ╱9f╱ ENDPROC ╱ // 0xe96 @0x4
0x0e92…0ea3 at0005 = ╱54╱T╱ // 0xe97 @0x5
0x0e92…0ea3 at0006 = ╱41╱A╱ // 0xe98 @0x6
0x0e92…0ea3 at0007 = ╱4c╱L╱ // 0xe99 @0x7
0x0e92…0ea3 at0008 = ╱5f╱_╱ // 0xe9a @0x8
0x0e92…0ea3 at0009 = ╱43╱C╱ // 0xe9b @0x9
0x0e92…0ea3 at000a = ╱4f╱O╱ // 0xe9c @0xa
0x0e92…0ea3 at000b = ╱4e╱N╱ // 0xe9d @0xb
0x0e92…0ea3 at000c = ╱54╱T╱ // 0xe9e @0xc
0x0e92…0ea3 at000d = ╱52╱R╱ // 0xe9f @0xd
0x0e92…0ea3 at000e = ╱4f╱O╱ // 0xea0 @0xe
0x0e92…0ea3 at000f = ╱4c╱L╱ // 0xea1 @0xf
0x0e92…0ea3 at0010 = EOL // 0xea2 @0x10
0x0e92…0ea3 }
0x0ea3…0ea8 a496 1410
0x0ea3…0ea8 LineComal80 {
0x0ea3…0ea8 ptr = 0xa496 // 0xea3 @0x0
0x0ea3…0ea8 lno = 0x0582 // 0xea5 @0x2
0x0ea3…0ea8 at0004 = EOL // 0xea7 @0x4
0x0ea3…0ea8 }
0x0ea8…0ec0 a4ae 1420 PROC OVERSKRIFT(ST$,L)
0x0ea8…0ec0 LineComal80 {
0x0ea8…0ec0 ptr = 0xa4ae // 0xea8 @0x0
0x0ea8…0ec0 lno = 0x058c // 0xeaa @0x2
0x0ea8…0ec0 at0004 = ╱9e0f╱ PROC ╱ // 0xeac @0x4
0x0ea8…0ec0 at0006 = ╱4f╱O╱ // 0xeae @0x6
0x0ea8…0ec0 at0007 = ╱56╱V╱ // 0xeaf @0x7
0x0ea8…0ec0 at0008 = ╱45╱E╱ // 0xeb0 @0x8
0x0ea8…0ec0 at0009 = ╱52╱R╱ // 0xeb1 @0x9
0x0ea8…0ec0 at000a = ╱53╱S╱ // 0xeb2 @0xa
0x0ea8…0ec0 at000b = ╱4b╱K╱ // 0xeb3 @0xb
0x0ea8…0ec0 at000c = ╱52╱R╱ // 0xeb4 @0xc
0x0ea8…0ec0 at000d = ╱49╱I╱ // 0xeb5 @0xd
0x0ea8…0ec0 at000e = ╱46╱F╱ // 0xeb6 @0xe
0x0ea8…0ec0 at000f = ╱54╱T╱ // 0xeb7 @0xf
0x0ea8…0ec0 at0010 = ╱ed╱(╱ // 0xeb8 @0x10
0x0ea8…0ec0 at0011 = ╱53╱S╱ // 0xeb9 @0x11
0x0ea8…0ec0 at0012 = ╱54╱T╱ // 0xeba @0x12
0x0ea8…0ec0 at0013 = ╱ef╱$╱ // 0xebb @0x13
0x0ea8…0ec0 at0014 = ╱ec╱,╱ // 0xebc @0x14
0x0ea8…0ec0 at0015 = ╱4c╱L╱ // 0xebd @0x15
0x0ea8…0ec0 at0016 = ╱ee╱)╱ // 0xebe @0x16
0x0ea8…0ec0 at0017 = EOL // 0xebf @0x17
0x0ea8…0ec0 }
0x0ec0…0ee6 a4d4 1430 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0x0ec0…0ee6 LineComal80 {
0x0ec0…0ee6 ptr = 0xa4d4 // 0xec0 @0x0
0x0ec0…0ee6 lno = 0x0596 // 0xec2 @0x2
0x0ec0…0ee6 at0004 = ╱92╱ PRINT ╱ // 0xec4 @0x4
0x0ec0…0ee6 at0005 = ╱22╱"╱ // 0xec5 @0x5
0x0ec0…0ee6 at0006 = ╱3c╱<╱ // 0xec6 @0x6
0x0ec0…0ee6 at0007 = ╱58╱X╱ // 0xec7 @0x7
0x0ec0…0ee6 at0008 = ╱43╱C╱ // 0xec8 @0x8
0x0ec0…0ee6 at0009 = ╱30╱0╱ // 0xec9 @0x9
0x0ec0…0ee6 at000a = ╱31╱1╱ // 0xeca @0xa
0x0ec0…0ee6 at000b = ╱30╱0╱ // 0xecb @0xb
0x0ec0…0ee6 at000c = ╱31╱1╱ // 0xecc @0xc
0x0ec0…0ee6 at000d = ╱3e╱>╱ // 0xecd @0xd
0x0ec0…0ee6 at000e = ╱46╱F╱ // 0xece @0xe
0x0ec0…0ee6 at000f = ╱69╱i╱ // 0xecf @0xf
0x0ec0…0ee6 at0010 = ╱72╱r╱ // 0xed0 @0x10
0x0ec0…0ee6 at0011 = ╱6d╱m╱ // 0xed1 @0x11
0x0ec0…0ee6 at0012 = ╱61╱a╱ // 0xed2 @0x12
0x0ec0…0ee6 at0013 = ╱6e╱n╱ // 0xed3 @0x13
0x0ec0…0ee6 at0014 = ╱61╱a╱ // 0xed4 @0x14
0x0ec0…0ee6 at0015 = ╱76╱v╱ // 0xed5 @0x15
0x0ec0…0ee6 at0016 = ╱6e╱n╱ // 0xed6 @0x16
0x0ec0…0ee6 at0017 = ╱3a╱:╱ // 0xed7 @0x17
0x0ec0…0ee6 at0018 = ╱20╱…╱ // 0xed8 @0x18
0x0ec0…0ee6 at0019 = ╱22╱"╱ // 0xed9 @0x19
0x0ec0…0ee6 at001a = ╱ea╱ ; ╱ // 0xeda @0x1a
0x0ec0…0ee6 at001b = ╱46╱F╱ // 0xedb @0x1b
0x0ec0…0ee6 at001c = ╱49╱I╱ // 0xedc @0x1c
0x0ec0…0ee6 at001d = ╱52╱R╱ // 0xedd @0x1d
0x0ec0…0ee6 at001e = ╱4d╱M╱ // 0xede @0x1e
0x0ec0…0ee6 at001f = ╱41╱A╱ // 0xedf @0x1f
0x0ec0…0ee6 at0020 = ╱4e╱N╱ // 0xee0 @0x20
0x0ec0…0ee6 at0021 = ╱41╱A╱ // 0xee1 @0x21
0x0ec0…0ee6 at0022 = ╱56╱V╱ // 0xee2 @0x22
0x0ec0…0ee6 at0023 = ╱4e╱N╱ // 0xee3 @0x23
0x0ec0…0ee6 at0024 = ╱ef╱$╱ // 0xee4 @0x24
0x0ec0…0ee6 at0025 = EOL // 0xee5 @0x25
0x0ec0…0ee6 }
0x0ee6…0f2e a51c 1440 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0x0ee6…0f2e LineComal80 {
0x0ee6…0f2e ptr = 0xa51c // 0xee6 @0x0
0x0ee6…0f2e lno = 0x05a0 // 0xee8 @0x2
0x0ee6…0f2e at0004 = ╱92╱ PRINT ╱ // 0xeea @0x4
0x0ee6…0f2e at0005 = ╱22╱"╱ // 0xeeb @0x5
0x0ee6…0f2e at0006 = ╱3c╱<╱ // 0xeec @0x6
0x0ee6…0f2e at0007 = ╱53╱S╱ // 0xeed @0x7
0x0ee6…0f2e at0008 = ╱43╱C╱ // 0xeee @0x8
0x0ee6…0f2e at0009 = ╱36╱6╱ // 0xeef @0x9
0x0ee6…0f2e at000a = ╱35╱5╱ // 0xef0 @0xa
0x0ee6…0f2e at000b = ╱30╱0╱ // 0xef1 @0xb
0x0ee6…0f2e at000c = ╱31╱1╱ // 0xef2 @0xc
0x0ee6…0f2e at000d = ╱3e╱>╱ // 0xef3 @0xd
0x0ee6…0f2e at000e = ╱44╱D╱ // 0xef4 @0xe
0x0ee6…0f2e at000f = ╱61╱a╱ // 0xef5 @0xf
0x0ee6…0f2e at0010 = ╱74╱t╱ // 0xef6 @0x10
0x0ee6…0f2e at0011 = ╱6f╱o╱ // 0xef7 @0x11
0x0ee6…0f2e at0012 = ╱3a╱:╱ // 0xef8 @0x12
0x0ee6…0f2e at0013 = ╱20╱…╱ // 0xef9 @0x13
0x0ee6…0f2e at0014 = ╱22╱"╱ // 0xefa @0x14
0x0ee6…0f2e at0015 = ╱ea╱ ; ╱ // 0xefb @0x15
0x0ee6…0f2e at0016 = ╱53╱S╱ // 0xefc @0x16
0x0ee6…0f2e at0017 = ╱59╱Y╱ // 0xefd @0x17
0x0ee6…0f2e at0018 = ╱53╱S╱ // 0xefe @0x18
0x0ee6…0f2e at0019 = ╱54╱T╱ // 0xeff @0x19
0x0ee6…0f2e at001a = ╱5f╱_╱ // 0xf00 @0x1a
0x0ee6…0f2e at001b = ╱44╱D╱ // 0xf01 @0x1b
0x0ee6…0f2e at001c = ╱41╱A╱ // 0xf02 @0x1c
0x0ee6…0f2e at001d = ╱54╱T╱ // 0xf03 @0x1d
0x0ee6…0f2e at001e = ╱ef╱$╱ // 0xf04 @0x1e
0x0ee6…0f2e at001f = ╱ed╱(╱ // 0xf05 @0x1f
0x0ee6…0f2e at0020 = ╱31╱1╱ // 0xf06 @0x20
0x0ee6…0f2e at0021 = ╱f20100╱ // 0xf07 @0x21
0x0ee6…0f2e at0024 = ╱f1╱ : ╱ // 0xf0a @0x24
0x0ee6…0f2e at0025 = ╱32╱2╱ // 0xf0b @0x25
0x0ee6…0f2e at0026 = ╱f20200╱ // 0xf0c @0x26
0x0ee6…0f2e at0029 = ╱ee╱)╱ // 0xf0f @0x29
0x0ee6…0f2e at002a = ╱ea╱ ; ╱ // 0xf10 @0x2a
0x0ee6…0f2e at002b = ╱22╱"╱ // 0xf11 @0x2b
0x0ee6…0f2e at002c = ╱2e╱.╱ // 0xf12 @0x2c
0x0ee6…0f2e at002d = ╱22╱"╱ // 0xf13 @0x2d
0x0ee6…0f2e at002e = ╱ea╱ ; ╱ // 0xf14 @0x2e
0x0ee6…0f2e at002f = ╱53╱S╱ // 0xf15 @0x2f
0x0ee6…0f2e at0030 = ╱59╱Y╱ // 0xf16 @0x30
0x0ee6…0f2e at0031 = ╱53╱S╱ // 0xf17 @0x31
0x0ee6…0f2e at0032 = ╱54╱T╱ // 0xf18 @0x32
0x0ee6…0f2e at0033 = ╱5f╱_╱ // 0xf19 @0x33
0x0ee6…0f2e at0034 = ╱44╱D╱ // 0xf1a @0x34
0x0ee6…0f2e at0035 = ╱41╱A╱ // 0xf1b @0x35
0x0ee6…0f2e at0036 = ╱54╱T╱ // 0xf1c @0x36
0x0ee6…0f2e at0037 = ╱ef╱$╱ // 0xf1d @0x37
0x0ee6…0f2e at0038 = ╱ed╱(╱ // 0xf1e @0x38
0x0ee6…0f2e at0039 = ╱33╱3╱ // 0xf1f @0x39
0x0ee6…0f2e at003a = ╱f20300╱ // 0xf20 @0x3a
0x0ee6…0f2e at003d = ╱f1╱ : ╱ // 0xf23 @0x3d
0x0ee6…0f2e at003e = ╱32╱2╱ // 0xf24 @0x3e
0x0ee6…0f2e at003f = ╱f20200╱ // 0xf25 @0x3f
0x0ee6…0f2e at0042 = ╱ee╱)╱ // 0xf28 @0x42
0x0ee6…0f2e at0043 = ╱ea╱ ; ╱ // 0xf29 @0x43
0x0ee6…0f2e at0044 = ╱22╱"╱ // 0xf2a @0x44
0x0ee6…0f2e at0045 = ╱2e╱.╱ // 0xf2b @0x45
0x0ee6…0f2e at0046 = ╱22╱"╱ // 0xf2c @0x46
0x0ee6…0f2e at0047 = EOL // 0xf2d @0x47
0x0ee6…0f2e }
0x0f2e…0f48 a536 1450 PRINT SYST_DAT$(5 : 2)
0x0f2e…0f48 LineComal80 {
0x0f2e…0f48 ptr = 0xa536 // 0xf2e @0x0
0x0f2e…0f48 lno = 0x05aa // 0xf30 @0x2
0x0f2e…0f48 at0004 = ╱92╱ PRINT ╱ // 0xf32 @0x4
0x0f2e…0f48 at0005 = ╱53╱S╱ // 0xf33 @0x5
0x0f2e…0f48 at0006 = ╱59╱Y╱ // 0xf34 @0x6
0x0f2e…0f48 at0007 = ╱53╱S╱ // 0xf35 @0x7
0x0f2e…0f48 at0008 = ╱54╱T╱ // 0xf36 @0x8
0x0f2e…0f48 at0009 = ╱5f╱_╱ // 0xf37 @0x9
0x0f2e…0f48 at000a = ╱44╱D╱ // 0xf38 @0xa
0x0f2e…0f48 at000b = ╱41╱A╱ // 0xf39 @0xb
0x0f2e…0f48 at000c = ╱54╱T╱ // 0xf3a @0xc
0x0f2e…0f48 at000d = ╱ef╱$╱ // 0xf3b @0xd
0x0f2e…0f48 at000e = ╱ed╱(╱ // 0xf3c @0xe
0x0f2e…0f48 at000f = ╱35╱5╱ // 0xf3d @0xf
0x0f2e…0f48 at0010 = ╱f20500╱ // 0xf3e @0x10
0x0f2e…0f48 at0013 = ╱f1╱ : ╱ // 0xf41 @0x13
0x0f2e…0f48 at0014 = ╱32╱2╱ // 0xf42 @0x14
0x0f2e…0f48 at0015 = ╱f20200╱ // 0xf43 @0x15
0x0f2e…0f48 at0018 = ╱ee╱)╱ // 0xf46 @0x18
0x0f2e…0f48 at0019 = EOL // 0xf47 @0x19
0x0f2e…0f48 }
0x0f48…0f61 a54f 1460 CURSOR 34 - ╱cb╱ (ST$) DIV 2,L
0x0f48…0f61 LineComal80 {
0x0f48…0f61 ptr = 0xa54f // 0xf48 @0x0
0x0f48…0f61 lno = 0x05b4 // 0xf4a @0x2
0x0f48…0f61 at0004 = ╱a1╱ CURSOR ╱ // 0xf4c @0x4
0x0f48…0f61 at0005 = ╱33╱3╱ // 0xf4d @0x5
0x0f48…0f61 at0006 = ╱34╱4╱ // 0xf4e @0x6
0x0f48…0f61 at0007 = ╱f22200╱ // 0xf4f @0x7
0x0f48…0f61 at000a = ╱e6╱ - ╱ // 0xf52 @0xa
0x0f48…0f61 at000b = ╱cb╱ // 0xf53 @0xb
0x0f48…0f61 at000c = ╱ed╱(╱ // 0xf54 @0xc
0x0f48…0f61 at000d = ╱53╱S╱ // 0xf55 @0xd
0x0f48…0f61 at000e = ╱54╱T╱ // 0xf56 @0xe
0x0f48…0f61 at000f = ╱ef╱$╱ // 0xf57 @0xf
0x0f48…0f61 at0010 = ╱ee╱)╱ // 0xf58 @0x10
0x0f48…0f61 at0011 = ╱da╱ DIV ╱ // 0xf59 @0x11
0x0f48…0f61 at0012 = ╱32╱2╱ // 0xf5a @0x12
0x0f48…0f61 at0013 = ╱f20200╱ // 0xf5b @0x13
0x0f48…0f61 at0016 = ╱ec╱,╱ // 0xf5e @0x16
0x0f48…0f61 at0017 = ╱4c╱L╱ // 0xf5f @0x17
0x0f48…0f61 at0018 = EOL // 0xf60 @0x18
0x0f48…0f61 }
0x0f61…0f78 a566 1470 PRINT "*** " ; ST$ ; " ***"
0x0f61…0f78 LineComal80 {
0x0f61…0f78 ptr = 0xa566 // 0xf61 @0x0
0x0f61…0f78 lno = 0x05be // 0xf63 @0x2
0x0f61…0f78 at0004 = ╱92╱ PRINT ╱ // 0xf65 @0x4
0x0f61…0f78 at0005 = ╱22╱"╱ // 0xf66 @0x5
0x0f61…0f78 at0006 = ╱2a╱*╱ // 0xf67 @0x6
0x0f61…0f78 at0007 = ╱2a╱*╱ // 0xf68 @0x7
0x0f61…0f78 at0008 = ╱2a╱*╱ // 0xf69 @0x8
0x0f61…0f78 at0009 = ╱20╱…╱ // 0xf6a @0x9
0x0f61…0f78 at000a = ╱22╱"╱ // 0xf6b @0xa
0x0f61…0f78 at000b = ╱ea╱ ; ╱ // 0xf6c @0xb
0x0f61…0f78 at000c = ╱53╱S╱ // 0xf6d @0xc
0x0f61…0f78 at000d = ╱54╱T╱ // 0xf6e @0xd
0x0f61…0f78 at000e = ╱ef╱$╱ // 0xf6f @0xe
0x0f61…0f78 at000f = ╱ea╱ ; ╱ // 0xf70 @0xf
0x0f61…0f78 at0010 = ╱22╱"╱ // 0xf71 @0x10
0x0f61…0f78 at0011 = ╱20╱…╱ // 0xf72 @0x11
0x0f61…0f78 at0012 = ╱2a╱*╱ // 0xf73 @0x12
0x0f61…0f78 at0013 = ╱2a╱*╱ // 0xf74 @0x13
0x0f61…0f78 at0014 = ╱2a╱*╱ // 0xf75 @0x14
0x0f61…0f78 at0015 = ╱22╱"╱ // 0xf76 @0x15
0x0f61…0f78 at0016 = EOL // 0xf77 @0x16
0x0f61…0f78 }
0x0f78…0f88 a576 1480 ENDPROC OVERSKRIFT
0x0f78…0f88 LineComal80 {
0x0f78…0f88 ptr = 0xa576 // 0xf78 @0x0
0x0f78…0f88 lno = 0x05c8 // 0xf7a @0x2
0x0f78…0f88 at0004 = ╱9f╱ ENDPROC ╱ // 0xf7c @0x4
0x0f78…0f88 at0005 = ╱4f╱O╱ // 0xf7d @0x5
0x0f78…0f88 at0006 = ╱56╱V╱ // 0xf7e @0x6
0x0f78…0f88 at0007 = ╱45╱E╱ // 0xf7f @0x7
0x0f78…0f88 at0008 = ╱52╱R╱ // 0xf80 @0x8
0x0f78…0f88 at0009 = ╱53╱S╱ // 0xf81 @0x9
0x0f78…0f88 at000a = ╱4b╱K╱ // 0xf82 @0xa
0x0f78…0f88 at000b = ╱52╱R╱ // 0xf83 @0xb
0x0f78…0f88 at000c = ╱49╱I╱ // 0xf84 @0xc
0x0f78…0f88 at000d = ╱46╱F╱ // 0xf85 @0xd
0x0f78…0f88 at000e = ╱54╱T╱ // 0xf86 @0xe
0x0f78…0f88 at000f = EOL // 0xf87 @0xf
0x0f78…0f88 }
0x0f88…0f8d a57b 1490
0x0f88…0f8d LineComal80 {
0x0f88…0f8d ptr = 0xa57b // 0xf88 @0x0
0x0f88…0f8d lno = 0x05d2 // 0xf8a @0x2
0x0f88…0f8d at0004 = EOL // 0xf8c @0x4
0x0f88…0f8d }
0x0f8d…0fa0 a58e 1500 PROC SL_FEJLLINIE
0x0f8d…0fa0 LineComal80 {
0x0f8d…0fa0 ptr = 0xa58e // 0xf8d @0x0
0x0f8d…0fa0 lno = 0x05dc // 0xf8f @0x2
0x0f8d…0fa0 at0004 = ╱9e10╱ PROC ╱ // 0xf91 @0x4
0x0f8d…0fa0 at0006 = ╱53╱S╱ // 0xf93 @0x6
0x0f8d…0fa0 at0007 = ╱4c╱L╱ // 0xf94 @0x7
0x0f8d…0fa0 at0008 = ╱5f╱_╱ // 0xf95 @0x8
0x0f8d…0fa0 at0009 = ╱46╱F╱ // 0xf96 @0x9
0x0f8d…0fa0 at000a = ╱45╱E╱ // 0xf97 @0xa
0x0f8d…0fa0 at000b = ╱4a╱J╱ // 0xf98 @0xb
0x0f8d…0fa0 at000c = ╱4c╱L╱ // 0xf99 @0xc
0x0f8d…0fa0 at000d = ╱4c╱L╱ // 0xf9a @0xd
0x0f8d…0fa0 at000e = ╱49╱I╱ // 0xf9b @0xe
0x0f8d…0fa0 at000f = ╱4e╱N╱ // 0xf9c @0xf
0x0f8d…0fa0 at0010 = ╱49╱I╱ // 0xf9d @0x10
0x0f8d…0fa0 at0011 = ╱45╱E╱ // 0xf9e @0x11
0x0f8d…0fa0 at0012 = EOL // 0xf9f @0x12
0x0f8d…0fa0 }
0x0fa0…0fad a59b 1510 LET OK := TRUE
0x0fa0…0fad LineComal80 {
0x0fa0…0fad ptr = 0xa59b // 0xfa0 @0x0
0x0fa0…0fad lno = 0x05e6 // 0xfa2 @0x2
0x0fa0…0fad at0004 = ╱86╱ LET ╱ // 0xfa4 @0x4
0x0fa0…0fad at0005 = ╱4f╱O╱ // 0xfa5 @0x5
0x0fa0…0fad at0006 = ╱4b╱K╱ // 0xfa6 @0x6
0x0fa0…0fad at0007 = ╱f0╱ := ╱ // 0xfa7 @0x7
0x0fa0…0fad at0008 = ╱54╱T╱ // 0xfa8 @0x8
0x0fa0…0fad at0009 = ╱52╱R╱ // 0xfa9 @0x9
0x0fa0…0fad at000a = ╱55╱U╱ // 0xfaa @0xa
0x0fa0…0fad at000b = ╱45╱E╱ // 0xfab @0xb
0x0fa0…0fad at000c = EOL // 0xfac @0xc
0x0fa0…0fad }
0x0fad…0fc1 a5af 1520 PRINT "<C0102>" ; SPC$
0x0fad…0fc1 LineComal80 {
0x0fad…0fc1 ptr = 0xa5af // 0xfad @0x0
0x0fad…0fc1 lno = 0x05f0 // 0xfaf @0x2
0x0fad…0fc1 at0004 = ╱92╱ PRINT ╱ // 0xfb1 @0x4
0x0fad…0fc1 at0005 = ╱22╱"╱ // 0xfb2 @0x5
0x0fad…0fc1 at0006 = ╱3c╱<╱ // 0xfb3 @0x6
0x0fad…0fc1 at0007 = ╱43╱C╱ // 0xfb4 @0x7
0x0fad…0fc1 at0008 = ╱30╱0╱ // 0xfb5 @0x8
0x0fad…0fc1 at0009 = ╱31╱1╱ // 0xfb6 @0x9
0x0fad…0fc1 at000a = ╱30╱0╱ // 0xfb7 @0xa
0x0fad…0fc1 at000b = ╱32╱2╱ // 0xfb8 @0xb
0x0fad…0fc1 at000c = ╱3e╱>╱ // 0xfb9 @0xc
0x0fad…0fc1 at000d = ╱22╱"╱ // 0xfba @0xd
0x0fad…0fc1 at000e = ╱ea╱ ; ╱ // 0xfbb @0xe
0x0fad…0fc1 at000f = ╱53╱S╱ // 0xfbc @0xf
0x0fad…0fc1 at0010 = ╱50╱P╱ // 0xfbd @0x10
0x0fad…0fc1 at0011 = ╱43╱C╱ // 0xfbe @0x11
0x0fad…0fc1 at0012 = ╱ef╱$╱ // 0xfbf @0x12
0x0fad…0fc1 at0013 = EOL // 0xfc0 @0x13
0x0fad…0fc1 }
0x0fc1…0fd3 a5c1 1530 ENDPROC SL_FEJLLINIE
0x0fc1…0fd3 LineComal80 {
0x0fc1…0fd3 ptr = 0xa5c1 // 0xfc1 @0x0
0x0fc1…0fd3 lno = 0x05fa // 0xfc3 @0x2
0x0fc1…0fd3 at0004 = ╱9f╱ ENDPROC ╱ // 0xfc5 @0x4
0x0fc1…0fd3 at0005 = ╱53╱S╱ // 0xfc6 @0x5
0x0fc1…0fd3 at0006 = ╱4c╱L╱ // 0xfc7 @0x6
0x0fc1…0fd3 at0007 = ╱5f╱_╱ // 0xfc8 @0x7
0x0fc1…0fd3 at0008 = ╱46╱F╱ // 0xfc9 @0x8
0x0fc1…0fd3 at0009 = ╱45╱E╱ // 0xfca @0x9
0x0fc1…0fd3 at000a = ╱4a╱J╱ // 0xfcb @0xa
0x0fc1…0fd3 at000b = ╱4c╱L╱ // 0xfcc @0xb
0x0fc1…0fd3 at000c = ╱4c╱L╱ // 0xfcd @0xc
0x0fc1…0fd3 at000d = ╱49╱I╱ // 0xfce @0xd
0x0fc1…0fd3 at000e = ╱4e╱N╱ // 0xfcf @0xe
0x0fc1…0fd3 at000f = ╱49╱I╱ // 0xfd0 @0xf
0x0fc1…0fd3 at0010 = ╱45╱E╱ // 0xfd1 @0x10
0x0fc1…0fd3 at0011 = EOL // 0xfd2 @0x11
0x0fc1…0fd3 }
0x0fd3…0fd8 a5c6 1540
0x0fd3…0fd8 LineComal80 {
0x0fd3…0fd8 ptr = 0xa5c6 // 0xfd3 @0x0
0x0fd3…0fd8 lno = 0x0604 // 0xfd5 @0x2
0x0fd3…0fd8 at0004 = EOL // 0xfd7 @0x4
0x0fd3…0fd8 }
0x0fd8…0fe8 a5d6 1550 PROC FEJL(ST$)
0x0fd8…0fe8 LineComal80 {
0x0fd8…0fe8 ptr = 0xa5d6 // 0xfd8 @0x0
0x0fd8…0fe8 lno = 0x060e // 0xfda @0x2
0x0fd8…0fe8 at0004 = ╱9e11╱ PROC ╱ // 0xfdc @0x4
0x0fd8…0fe8 at0006 = ╱46╱F╱ // 0xfde @0x6
0x0fd8…0fe8 at0007 = ╱45╱E╱ // 0xfdf @0x7
0x0fd8…0fe8 at0008 = ╱4a╱J╱ // 0xfe0 @0x8
0x0fd8…0fe8 at0009 = ╱4c╱L╱ // 0xfe1 @0x9
0x0fd8…0fe8 at000a = ╱ed╱(╱ // 0xfe2 @0xa
0x0fd8…0fe8 at000b = ╱53╱S╱ // 0xfe3 @0xb
0x0fd8…0fe8 at000c = ╱54╱T╱ // 0xfe4 @0xc
0x0fd8…0fe8 at000d = ╱ef╱$╱ // 0xfe5 @0xd
0x0fd8…0fe8 at000e = ╱ee╱)╱ // 0xfe6 @0xe
0x0fd8…0fe8 at000f = EOL // 0xfe7 @0xf
0x0fd8…0fe8 }
0x0fe8…0ff6 a5e4 1560 LET OK := FALSE
0x0fe8…0ff6 LineComal80 {
0x0fe8…0ff6 ptr = 0xa5e4 // 0xfe8 @0x0
0x0fe8…0ff6 lno = 0x0618 // 0xfea @0x2
0x0fe8…0ff6 at0004 = ╱86╱ LET ╱ // 0xfec @0x4
0x0fe8…0ff6 at0005 = ╱4f╱O╱ // 0xfed @0x5
0x0fe8…0ff6 at0006 = ╱4b╱K╱ // 0xfee @0x6
0x0fe8…0ff6 at0007 = ╱f0╱ := ╱ // 0xfef @0x7
0x0fe8…0ff6 at0008 = ╱46╱F╱ // 0xff0 @0x8
0x0fe8…0ff6 at0009 = ╱41╱A╱ // 0xff1 @0x9
0x0fe8…0ff6 at000a = ╱4c╱L╱ // 0xff2 @0xa
0x0fe8…0ff6 at000b = ╱53╱S╱ // 0xff3 @0xb
0x0fe8…0ff6 at000c = ╱45╱E╱ // 0xff4 @0xc
0x0fe8…0ff6 at000d = EOL // 0xff5 @0xd
0x0fe8…0ff6 }
0x0ff6…1012 a600 1570 CURSOR 36 - ╱cb╱ (ST$) / 2,2
0x0ff6…1012 LineComal80 {
0x0ff6…1012 ptr = 0xa600 // 0xff6 @0x0
0x0ff6…1012 lno = 0x0622 // 0xff8 @0x2
0x0ff6…1012 at0004 = ╱a1╱ CURSOR ╱ // 0xffa @0x4
0x0ff6…1012 at0005 = ╱33╱3╱ // 0xffb @0x5
0x0ff6…1012 at0006 = ╱36╱6╱ // 0xffc @0x6
0x0ff6…1012 at0007 = ╱f22400╱ // 0xffd @0x7
0x0ff6…1012 at000a = ╱e6╱ - ╱ // 0x1000 @0xa
0x0ff6…1012 at000b = ╱cb╱ // 0x1001 @0xb
0x0ff6…1012 at000c = ╱ed╱(╱ // 0x1002 @0xc
0x0ff6…1012 at000d = ╱53╱S╱ // 0x1003 @0xd
0x0ff6…1012 at000e = ╱54╱T╱ // 0x1004 @0xe
0x0ff6…1012 at000f = ╱ef╱$╱ // 0x1005 @0xf
0x0ff6…1012 at0010 = ╱ee╱)╱ // 0x1006 @0x10
0x0ff6…1012 at0011 = ╱e8╱ / ╱ // 0x1007 @0x11
0x0ff6…1012 at0012 = ╱32╱2╱ // 0x1008 @0x12
0x0ff6…1012 at0013 = ╱f20200╱ // 0x1009 @0x13
0x0ff6…1012 at0016 = ╱ec╱,╱ // 0x100c @0x16
0x0ff6…1012 at0017 = ╱32╱2╱ // 0x100d @0x17
0x0ff6…1012 at0018 = ╱f20200╱ // 0x100e @0x18
0x0ff6…1012 at001b = EOL // 0x1011 @0x1b
0x0ff6…1012 }
0x1012…1031 a61f 1580 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
0x1012…1031 LineComal80 {
0x1012…1031 ptr = 0xa61f // 0x1012 @0x0
0x1012…1031 lno = 0x062c // 0x1014 @0x2
0x1012…1031 at0004 = ╱92╱ PRINT ╱ // 0x1016 @0x4
0x1012…1031 at0005 = ╱22╱"╱ // 0x1017 @0x5
0x1012…1031 at0006 = ╱2a╱*╱ // 0x1018 @0x6
0x1012…1031 at0007 = ╱2a╱*╱ // 0x1019 @0x7
0x1012…1031 at0008 = ╱2a╱*╱ // 0x101a @0x8
0x1012…1031 at0009 = ╱20╱…╱ // 0x101b @0x9
0x1012…1031 at000a = ╱22╱"╱ // 0x101c @0xa
0x1012…1031 at000b = ╱eb╱ + ╱ // 0x101d @0xb
0x1012…1031 at000c = ╱53╱S╱ // 0x101e @0xc
0x1012…1031 at000d = ╱54╱T╱ // 0x101f @0xd
0x1012…1031 at000e = ╱ef╱$╱ // 0x1020 @0xe
0x1012…1031 at000f = ╱eb╱ + ╱ // 0x1021 @0xf
0x1012…1031 at0010 = ╱22╱"╱ // 0x1022 @0x10
0x1012…1031 at0011 = ╱20╱…╱ // 0x1023 @0x11
0x1012…1031 at0012 = ╱2a╱*╱ // 0x1024 @0x12
0x1012…1031 at0013 = ╱2a╱*╱ // 0x1025 @0x13
0x1012…1031 at0014 = ╱2a╱*╱ // 0x1026 @0x14
0x1012…1031 at0015 = ╱22╱"╱ // 0x1027 @0x15
0x1012…1031 at0016 = ╱ea╱ ; ╱ // 0x1028 @0x16
0x1012…1031 at0017 = ╱d0╱ CHR$ ╱ // 0x1029 @0x17
0x1012…1031 at0018 = ╱ed╱(╱ // 0x102a @0x18
0x1012…1031 at0019 = ╱37╱7╱ // 0x102b @0x19
0x1012…1031 at001a = ╱f20700╱ // 0x102c @0x1a
0x1012…1031 at001d = ╱ee╱)╱ // 0x102f @0x1d
0x1012…1031 at001e = EOL // 0x1030 @0x1e
0x1012…1031 }
0x1031…103b a629 1590 ENDPROC FEJL
0x1031…103b LineComal80 {
0x1031…103b ptr = 0xa629 // 0x1031 @0x0
0x1031…103b lno = 0x0636 // 0x1033 @0x2
0x1031…103b at0004 = ╱9f╱ ENDPROC ╱ // 0x1035 @0x4
0x1031…103b at0005 = ╱46╱F╱ // 0x1036 @0x5
0x1031…103b at0006 = ╱45╱E╱ // 0x1037 @0x6
0x1031…103b at0007 = ╱4a╱J╱ // 0x1038 @0x7
0x1031…103b at0008 = ╱4c╱L╱ // 0x1039 @0x8
0x1031…103b at0009 = EOL // 0x103a @0x9
0x1031…103b }
0x103b…1040 a62e 1600
0x103b…1040 LineComal80 {
0x103b…1040 ptr = 0xa62e // 0x103b @0x0
0x103b…1040 lno = 0x0640 // 0x103d @0x2
0x103b…1040 at0004 = EOL // 0x103f @0x4
0x103b…1040 }
0x1040…1053 a641 1610 PROC LÆS_KONTO(P)
0x1040…1053 LineComal80 {
0x1040…1053 ptr = 0xa641 // 0x1040 @0x0
0x1040…1053 lno = 0x064a // 0x1042 @0x2
0x1040…1053 at0004 = ╱9e12╱ PROC ╱ // 0x1044 @0x4
0x1040…1053 at0006 = ╱4c╱L╱ // 0x1046 @0x6
0x1040…1053 at0007 = ╱5b╱Æ╱ // 0x1047 @0x7
0x1040…1053 at0008 = ╱53╱S╱ // 0x1048 @0x8
0x1040…1053 at0009 = ╱5f╱_╱ // 0x1049 @0x9
0x1040…1053 at000a = ╱4b╱K╱ // 0x104a @0xa
0x1040…1053 at000b = ╱4f╱O╱ // 0x104b @0xb
0x1040…1053 at000c = ╱4e╱N╱ // 0x104c @0xc
0x1040…1053 at000d = ╱54╱T╱ // 0x104d @0xd
0x1040…1053 at000e = ╱4f╱O╱ // 0x104e @0xe
0x1040…1053 at000f = ╱ed╱(╱ // 0x104f @0xf
0x1040…1053 at0010 = ╱50╱P╱ // 0x1050 @0x10
0x1040…1053 at0011 = ╱ee╱)╱ // 0x1051 @0x11
0x1040…1053 at0012 = EOL // 0x1052 @0x12
0x1040…1053 }
0x1053…1098 a686 1620 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0x1053…1098 LineComal80 {
0x1053…1098 ptr = 0xa686 // 0x1053 @0x0
0x1053…1098 lno = 0x0654 // 0x1055 @0x2
0x1053…1098 at0004 = ╱a9╱ GET ╱ // 0x1057 @0x4
0x1053…1098 at0005 = ╱4b╱K╱ // 0x1058 @0x5
0x1053…1098 at0006 = ╱4f╱O╱ // 0x1059 @0x6
0x1053…1098 at0007 = ╱4e╱N╱ // 0x105a @0x7
0x1053…1098 at0008 = ╱54╱T╱ // 0x105b @0x8
0x1053…1098 at0009 = ╱4f╱O╱ // 0x105c @0x9
0x1053…1098 at000a = ╱ef╱$╱ // 0x105d @0xa
0x1053…1098 at000b = ╱ec╱,╱ // 0x105e @0xb
0x1053…1098 at000c = ╱50╱P╱ // 0x105f @0xc
0x1053…1098 at000d = ╱f1╱ : ╱ // 0x1060 @0xd
0x1053…1098 at000e = ╱4b╱K╱ // 0x1061 @0xe
0x1053…1098 at000f = ╱54╱T╱ // 0x1062 @0xf
0x1053…1098 at0010 = ╱4f╱O╱ // 0x1063 @0x10
0x1053…1098 at0011 = ╱5f╱_╱ // 0x1064 @0x11
0x1053…1098 at0012 = ╱54╱T╱ // 0x1065 @0x12
0x1053…1098 at0013 = ╱59╱Y╱ // 0x1066 @0x13
0x1053…1098 at0014 = ╱50╱P╱ // 0x1067 @0x14
0x1053…1098 at0015 = ╱45╱E╱ // 0x1068 @0x15
0x1053…1098 at0016 = ╱ef╱$╱ // 0x1069 @0x16
0x1053…1098 at0017 = ╱ec╱,╱ // 0x106a @0x17
0x1053…1098 at0018 = ╱4b╱K╱ // 0x106b @0x18
0x1053…1098 at0019 = ╱54╱T╱ // 0x106c @0x19
0x1053…1098 at001a = ╱4f╱O╱ // 0x106d @0x1a
0x1053…1098 at001b = ╱5f╱_╱ // 0x106e @0x1b
0x1053…1098 at001c = ╱4e╱N╱ // 0x106f @0x1c
0x1053…1098 at001d = ╱41╱A╱ // 0x1070 @0x1d
0x1053…1098 at001e = ╱56╱V╱ // 0x1071 @0x1e
0x1053…1098 at001f = ╱4e╱N╱ // 0x1072 @0x1f
0x1053…1098 at0020 = ╱ef╱$╱ // 0x1073 @0x20
0x1053…1098 at0021 = ╱ec╱,╱ // 0x1074 @0x21
0x1053…1098 at0022 = ╱4b╱K╱ // 0x1075 @0x22
0x1053…1098 at0023 = ╱54╱T╱ // 0x1076 @0x23
0x1053…1098 at0024 = ╱4f╱O╱ // 0x1077 @0x24
0x1053…1098 at0025 = ╱5f╱_╱ // 0x1078 @0x25
0x1053…1098 at0026 = ╱50╱P╱ // 0x1079 @0x26
0x1053…1098 at0027 = ╱52╱R╱ // 0x107a @0x27
0x1053…1098 at0028 = ╱49╱I╱ // 0x107b @0x28
0x1053…1098 at0029 = ╱4d╱M╱ // 0x107c @0x29
0x1053…1098 at002a = ╱4f╱O╱ // 0x107d @0x2a
0x1053…1098 at002b = ╱ec╱,╱ // 0x107e @0x2b
0x1053…1098 at002c = ╱4b╱K╱ // 0x107f @0x2c
0x1053…1098 at002d = ╱54╱T╱ // 0x1080 @0x2d
0x1053…1098 at002e = ╱4f╱O╱ // 0x1081 @0x2e
0x1053…1098 at002f = ╱5f╱_╱ // 0x1082 @0x2f
0x1053…1098 at0030 = ╱55╱U╱ // 0x1083 @0x30
0x1053…1098 at0031 = ╱4c╱L╱ // 0x1084 @0x31
0x1053…1098 at0032 = ╱54╱T╱ // 0x1085 @0x32
0x1053…1098 at0033 = ╱49╱I╱ // 0x1086 @0x33
0x1053…1098 at0034 = ╱4d╱M╱ // 0x1087 @0x34
0x1053…1098 at0035 = ╱4f╱O╱ // 0x1088 @0x35
0x1053…1098 at0036 = ╱ec╱,╱ // 0x1089 @0x36
0x1053…1098 at0037 = ╱4b╱K╱ // 0x108a @0x37
0x1053…1098 at0038 = ╱54╱T╱ // 0x108b @0x38
0x1053…1098 at0039 = ╱4f╱O╱ // 0x108c @0x39
0x1053…1098 at003a = ╱5f╱_╱ // 0x108d @0x3a
0x1053…1098 at003b = ╱46╱F╱ // 0x108e @0x3b
0x1053…1098 at003c = ╱50╱P╱ // 0x108f @0x3c
0x1053…1098 at003d = ╱ec╱,╱ // 0x1090 @0x3d
0x1053…1098 at003e = ╱4b╱K╱ // 0x1091 @0x3e
0x1053…1098 at003f = ╱54╱T╱ // 0x1092 @0x3f
0x1053…1098 at0040 = ╱4f╱O╱ // 0x1093 @0x40
0x1053…1098 at0041 = ╱5f╱_╱ // 0x1094 @0x41
0x1053…1098 at0042 = ╱53╱S╱ // 0x1095 @0x42
0x1053…1098 at0043 = ╱50╱P╱ // 0x1096 @0x43
0x1053…1098 at0044 = EOL // 0x1097 @0x44
0x1053…1098 }
0x1098…10a7 a695 1630 ENDPROC LÆS_KONTO
0x1098…10a7 LineComal80 {
0x1098…10a7 ptr = 0xa695 // 0x1098 @0x0
0x1098…10a7 lno = 0x065e // 0x109a @0x2
0x1098…10a7 at0004 = ╱9f╱ ENDPROC ╱ // 0x109c @0x4
0x1098…10a7 at0005 = ╱4c╱L╱ // 0x109d @0x5
0x1098…10a7 at0006 = ╱5b╱Æ╱ // 0x109e @0x6
0x1098…10a7 at0007 = ╱53╱S╱ // 0x109f @0x7
0x1098…10a7 at0008 = ╱5f╱_╱ // 0x10a0 @0x8
0x1098…10a7 at0009 = ╱4b╱K╱ // 0x10a1 @0x9
0x1098…10a7 at000a = ╱4f╱O╱ // 0x10a2 @0xa
0x1098…10a7 at000b = ╱4e╱N╱ // 0x10a3 @0xb
0x1098…10a7 at000c = ╱54╱T╱ // 0x10a4 @0xc
0x1098…10a7 at000d = ╱4f╱O╱ // 0x10a5 @0xd
0x1098…10a7 at000e = EOL // 0x10a6 @0xe
0x1098…10a7 }
0x10a7…10ac a69a 1640
0x10a7…10ac LineComal80 {
0x10a7…10ac ptr = 0xa69a // 0x10a7 @0x0
0x10a7…10ac lno = 0x0668 // 0x10a9 @0x2
0x10a7…10ac at0004 = EOL // 0x10ab @0x4
0x10a7…10ac }
0x10ac…10c1 a6af 1650 PROC SKRIV_KONTO(P)
0x10ac…10c1 LineComal80 {
0x10ac…10c1 ptr = 0xa6af // 0x10ac @0x0
0x10ac…10c1 lno = 0x0672 // 0x10ae @0x2
0x10ac…10c1 at0004 = ╱9e13╱ PROC ╱ // 0x10b0 @0x4
0x10ac…10c1 at0006 = ╱53╱S╱ // 0x10b2 @0x6
0x10ac…10c1 at0007 = ╱4b╱K╱ // 0x10b3 @0x7
0x10ac…10c1 at0008 = ╱52╱R╱ // 0x10b4 @0x8
0x10ac…10c1 at0009 = ╱49╱I╱ // 0x10b5 @0x9
0x10ac…10c1 at000a = ╱56╱V╱ // 0x10b6 @0xa
0x10ac…10c1 at000b = ╱5f╱_╱ // 0x10b7 @0xb
0x10ac…10c1 at000c = ╱4b╱K╱ // 0x10b8 @0xc
0x10ac…10c1 at000d = ╱4f╱O╱ // 0x10b9 @0xd
0x10ac…10c1 at000e = ╱4e╱N╱ // 0x10ba @0xe
0x10ac…10c1 at000f = ╱54╱T╱ // 0x10bb @0xf
0x10ac…10c1 at0010 = ╱4f╱O╱ // 0x10bc @0x10
0x10ac…10c1 at0011 = ╱ed╱(╱ // 0x10bd @0x11
0x10ac…10c1 at0012 = ╱50╱P╱ // 0x10be @0x12
0x10ac…10c1 at0013 = ╱ee╱)╱ // 0x10bf @0x13
0x10ac…10c1 at0014 = EOL // 0x10c0 @0x14
0x10ac…10c1 }
0x10c1…1106 a6f4 1660 PUT KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0x10c1…1106 LineComal80 {
0x10c1…1106 ptr = 0xa6f4 // 0x10c1 @0x0
0x10c1…1106 lno = 0x067c // 0x10c3 @0x2
0x10c1…1106 at0004 = ╱aa╱ PUT ╱ // 0x10c5 @0x4
0x10c1…1106 at0005 = ╱4b╱K╱ // 0x10c6 @0x5
0x10c1…1106 at0006 = ╱4f╱O╱ // 0x10c7 @0x6
0x10c1…1106 at0007 = ╱4e╱N╱ // 0x10c8 @0x7
0x10c1…1106 at0008 = ╱54╱T╱ // 0x10c9 @0x8
0x10c1…1106 at0009 = ╱4f╱O╱ // 0x10ca @0x9
0x10c1…1106 at000a = ╱ef╱$╱ // 0x10cb @0xa
0x10c1…1106 at000b = ╱ec╱,╱ // 0x10cc @0xb
0x10c1…1106 at000c = ╱50╱P╱ // 0x10cd @0xc
0x10c1…1106 at000d = ╱f1╱ : ╱ // 0x10ce @0xd
0x10c1…1106 at000e = ╱4b╱K╱ // 0x10cf @0xe
0x10c1…1106 at000f = ╱54╱T╱ // 0x10d0 @0xf
0x10c1…1106 at0010 = ╱4f╱O╱ // 0x10d1 @0x10
0x10c1…1106 at0011 = ╱5f╱_╱ // 0x10d2 @0x11
0x10c1…1106 at0012 = ╱54╱T╱ // 0x10d3 @0x12
0x10c1…1106 at0013 = ╱59╱Y╱ // 0x10d4 @0x13
0x10c1…1106 at0014 = ╱50╱P╱ // 0x10d5 @0x14
0x10c1…1106 at0015 = ╱45╱E╱ // 0x10d6 @0x15
0x10c1…1106 at0016 = ╱ef╱$╱ // 0x10d7 @0x16
0x10c1…1106 at0017 = ╱ec╱,╱ // 0x10d8 @0x17
0x10c1…1106 at0018 = ╱4b╱K╱ // 0x10d9 @0x18
0x10c1…1106 at0019 = ╱54╱T╱ // 0x10da @0x19
0x10c1…1106 at001a = ╱4f╱O╱ // 0x10db @0x1a
0x10c1…1106 at001b = ╱5f╱_╱ // 0x10dc @0x1b
0x10c1…1106 at001c = ╱4e╱N╱ // 0x10dd @0x1c
0x10c1…1106 at001d = ╱41╱A╱ // 0x10de @0x1d
0x10c1…1106 at001e = ╱56╱V╱ // 0x10df @0x1e
0x10c1…1106 at001f = ╱4e╱N╱ // 0x10e0 @0x1f
0x10c1…1106 at0020 = ╱ef╱$╱ // 0x10e1 @0x20
0x10c1…1106 at0021 = ╱ec╱,╱ // 0x10e2 @0x21
0x10c1…1106 at0022 = ╱4b╱K╱ // 0x10e3 @0x22
0x10c1…1106 at0023 = ╱54╱T╱ // 0x10e4 @0x23
0x10c1…1106 at0024 = ╱4f╱O╱ // 0x10e5 @0x24
0x10c1…1106 at0025 = ╱5f╱_╱ // 0x10e6 @0x25
0x10c1…1106 at0026 = ╱50╱P╱ // 0x10e7 @0x26
0x10c1…1106 at0027 = ╱52╱R╱ // 0x10e8 @0x27
0x10c1…1106 at0028 = ╱49╱I╱ // 0x10e9 @0x28
0x10c1…1106 at0029 = ╱4d╱M╱ // 0x10ea @0x29
0x10c1…1106 at002a = ╱4f╱O╱ // 0x10eb @0x2a
0x10c1…1106 at002b = ╱ec╱,╱ // 0x10ec @0x2b
0x10c1…1106 at002c = ╱4b╱K╱ // 0x10ed @0x2c
0x10c1…1106 at002d = ╱54╱T╱ // 0x10ee @0x2d
0x10c1…1106 at002e = ╱4f╱O╱ // 0x10ef @0x2e
0x10c1…1106 at002f = ╱5f╱_╱ // 0x10f0 @0x2f
0x10c1…1106 at0030 = ╱55╱U╱ // 0x10f1 @0x30
0x10c1…1106 at0031 = ╱4c╱L╱ // 0x10f2 @0x31
0x10c1…1106 at0032 = ╱54╱T╱ // 0x10f3 @0x32
0x10c1…1106 at0033 = ╱49╱I╱ // 0x10f4 @0x33
0x10c1…1106 at0034 = ╱4d╱M╱ // 0x10f5 @0x34
0x10c1…1106 at0035 = ╱4f╱O╱ // 0x10f6 @0x35
0x10c1…1106 at0036 = ╱ec╱,╱ // 0x10f7 @0x36
0x10c1…1106 at0037 = ╱4b╱K╱ // 0x10f8 @0x37
0x10c1…1106 at0038 = ╱54╱T╱ // 0x10f9 @0x38
0x10c1…1106 at0039 = ╱4f╱O╱ // 0x10fa @0x39
0x10c1…1106 at003a = ╱5f╱_╱ // 0x10fb @0x3a
0x10c1…1106 at003b = ╱46╱F╱ // 0x10fc @0x3b
0x10c1…1106 at003c = ╱50╱P╱ // 0x10fd @0x3c
0x10c1…1106 at003d = ╱ec╱,╱ // 0x10fe @0x3d
0x10c1…1106 at003e = ╱4b╱K╱ // 0x10ff @0x3e
0x10c1…1106 at003f = ╱54╱T╱ // 0x1100 @0x3f
0x10c1…1106 at0040 = ╱4f╱O╱ // 0x1101 @0x40
0x10c1…1106 at0041 = ╱5f╱_╱ // 0x1102 @0x41
0x10c1…1106 at0042 = ╱53╱S╱ // 0x1103 @0x42
0x10c1…1106 at0043 = ╱50╱P╱ // 0x1104 @0x43
0x10c1…1106 at0044 = EOL // 0x1105 @0x44
0x10c1…1106 }
0x1106…1117 a705 1670 ENDPROC SKRIV_KONTO
0x1106…1117 LineComal80 {
0x1106…1117 ptr = 0xa705 // 0x1106 @0x0
0x1106…1117 lno = 0x0686 // 0x1108 @0x2
0x1106…1117 at0004 = ╱9f╱ ENDPROC ╱ // 0x110a @0x4
0x1106…1117 at0005 = ╱53╱S╱ // 0x110b @0x5
0x1106…1117 at0006 = ╱4b╱K╱ // 0x110c @0x6
0x1106…1117 at0007 = ╱52╱R╱ // 0x110d @0x7
0x1106…1117 at0008 = ╱49╱I╱ // 0x110e @0x8
0x1106…1117 at0009 = ╱56╱V╱ // 0x110f @0x9
0x1106…1117 at000a = ╱5f╱_╱ // 0x1110 @0xa
0x1106…1117 at000b = ╱4b╱K╱ // 0x1111 @0xb
0x1106…1117 at000c = ╱4f╱O╱ // 0x1112 @0xc
0x1106…1117 at000d = ╱4e╱N╱ // 0x1113 @0xd
0x1106…1117 at000e = ╱54╱T╱ // 0x1114 @0xe
0x1106…1117 at000f = ╱4f╱O╱ // 0x1115 @0xf
0x1106…1117 at0010 = EOL // 0x1116 @0x10
0x1106…1117 }
0x1117…111c a70a 1680
0x1117…111c LineComal80 {
0x1117…111c ptr = 0xa70a // 0x1117 @0x0
0x1117…111c lno = 0x0690 // 0x1119 @0x2
0x1117…111c at0004 = EOL // 0x111b @0x4
0x1117…111c }
0x111c…112f a71d 1690 PROC LÆS_TRANS(P)
0x111c…112f LineComal80 {
0x111c…112f ptr = 0xa71d // 0x111c @0x0
0x111c…112f lno = 0x069a // 0x111e @0x2
0x111c…112f at0004 = ╱9e14╱ PROC ╱ // 0x1120 @0x4
0x111c…112f at0006 = ╱4c╱L╱ // 0x1122 @0x6
0x111c…112f at0007 = ╱5b╱Æ╱ // 0x1123 @0x7
0x111c…112f at0008 = ╱53╱S╱ // 0x1124 @0x8
0x111c…112f at0009 = ╱5f╱_╱ // 0x1125 @0x9
0x111c…112f at000a = ╱54╱T╱ // 0x1126 @0xa
0x111c…112f at000b = ╱52╱R╱ // 0x1127 @0xb
0x111c…112f at000c = ╱41╱A╱ // 0x1128 @0xc
0x111c…112f at000d = ╱4e╱N╱ // 0x1129 @0xd
0x111c…112f at000e = ╱53╱S╱ // 0x112a @0xe
0x111c…112f at000f = ╱ed╱(╱ // 0x112b @0xf
0x111c…112f at0010 = ╱50╱P╱ // 0x112c @0x10
0x111c…112f at0011 = ╱ee╱)╱ // 0x112d @0x11
0x111c…112f at0012 = EOL // 0x112e @0x12
0x111c…112f }
0x112f…1170 a75e 1700 GET TRANS$,P : BKTONR$,BDATO$,BLGNR$,BTXT$,BMOMS,BBELØB,DK,NTRANS
0x112f…1170 LineComal80 {
0x112f…1170 ptr = 0xa75e // 0x112f @0x0
0x112f…1170 lno = 0x06a4 // 0x1131 @0x2
0x112f…1170 at0004 = ╱a9╱ GET ╱ // 0x1133 @0x4
0x112f…1170 at0005 = ╱54╱T╱ // 0x1134 @0x5
0x112f…1170 at0006 = ╱52╱R╱ // 0x1135 @0x6
0x112f…1170 at0007 = ╱41╱A╱ // 0x1136 @0x7
0x112f…1170 at0008 = ╱4e╱N╱ // 0x1137 @0x8
0x112f…1170 at0009 = ╱53╱S╱ // 0x1138 @0x9
0x112f…1170 at000a = ╱ef╱$╱ // 0x1139 @0xa
0x112f…1170 at000b = ╱ec╱,╱ // 0x113a @0xb
0x112f…1170 at000c = ╱50╱P╱ // 0x113b @0xc
0x112f…1170 at000d = ╱f1╱ : ╱ // 0x113c @0xd
0x112f…1170 at000e = ╱42╱B╱ // 0x113d @0xe
0x112f…1170 at000f = ╱4b╱K╱ // 0x113e @0xf
0x112f…1170 at0010 = ╱54╱T╱ // 0x113f @0x10
0x112f…1170 at0011 = ╱4f╱O╱ // 0x1140 @0x11
0x112f…1170 at0012 = ╱4e╱N╱ // 0x1141 @0x12
0x112f…1170 at0013 = ╱52╱R╱ // 0x1142 @0x13
0x112f…1170 at0014 = ╱ef╱$╱ // 0x1143 @0x14
0x112f…1170 at0015 = ╱ec╱,╱ // 0x1144 @0x15
0x112f…1170 at0016 = ╱42╱B╱ // 0x1145 @0x16
0x112f…1170 at0017 = ╱44╱D╱ // 0x1146 @0x17
0x112f…1170 at0018 = ╱41╱A╱ // 0x1147 @0x18
0x112f…1170 at0019 = ╱54╱T╱ // 0x1148 @0x19
0x112f…1170 at001a = ╱4f╱O╱ // 0x1149 @0x1a
0x112f…1170 at001b = ╱ef╱$╱ // 0x114a @0x1b
0x112f…1170 at001c = ╱ec╱,╱ // 0x114b @0x1c
0x112f…1170 at001d = ╱42╱B╱ // 0x114c @0x1d
0x112f…1170 at001e = ╱4c╱L╱ // 0x114d @0x1e
0x112f…1170 at001f = ╱47╱G╱ // 0x114e @0x1f
0x112f…1170 at0020 = ╱4e╱N╱ // 0x114f @0x20
0x112f…1170 at0021 = ╱52╱R╱ // 0x1150 @0x21
0x112f…1170 at0022 = ╱ef╱$╱ // 0x1151 @0x22
0x112f…1170 at0023 = ╱ec╱,╱ // 0x1152 @0x23
0x112f…1170 at0024 = ╱42╱B╱ // 0x1153 @0x24
0x112f…1170 at0025 = ╱54╱T╱ // 0x1154 @0x25
0x112f…1170 at0026 = ╱58╱X╱ // 0x1155 @0x26
0x112f…1170 at0027 = ╱54╱T╱ // 0x1156 @0x27
0x112f…1170 at0028 = ╱ef╱$╱ // 0x1157 @0x28
0x112f…1170 at0029 = ╱ec╱,╱ // 0x1158 @0x29
0x112f…1170 at002a = ╱42╱B╱ // 0x1159 @0x2a
0x112f…1170 at002b = ╱4d╱M╱ // 0x115a @0x2b
0x112f…1170 at002c = ╱4f╱O╱ // 0x115b @0x2c
0x112f…1170 at002d = ╱4d╱M╱ // 0x115c @0x2d
0x112f…1170 at002e = ╱53╱S╱ // 0x115d @0x2e
0x112f…1170 at002f = ╱ec╱,╱ // 0x115e @0x2f
0x112f…1170 at0030 = ╱42╱B╱ // 0x115f @0x30
0x112f…1170 at0031 = ╱42╱B╱ // 0x1160 @0x31
0x112f…1170 at0032 = ╱45╱E╱ // 0x1161 @0x32
0x112f…1170 at0033 = ╱4c╱L╱ // 0x1162 @0x33
0x112f…1170 at0034 = ╱5c╱Ø╱ // 0x1163 @0x34
0x112f…1170 at0035 = ╱42╱B╱ // 0x1164 @0x35
0x112f…1170 at0036 = ╱ec╱,╱ // 0x1165 @0x36
0x112f…1170 at0037 = ╱44╱D╱ // 0x1166 @0x37
0x112f…1170 at0038 = ╱4b╱K╱ // 0x1167 @0x38
0x112f…1170 at0039 = ╱ec╱,╱ // 0x1168 @0x39
0x112f…1170 at003a = ╱4e╱N╱ // 0x1169 @0x3a
0x112f…1170 at003b = ╱54╱T╱ // 0x116a @0x3b
0x112f…1170 at003c = ╱52╱R╱ // 0x116b @0x3c
0x112f…1170 at003d = ╱41╱A╱ // 0x116c @0x3d
0x112f…1170 at003e = ╱4e╱N╱ // 0x116d @0x3e
0x112f…1170 at003f = ╱53╱S╱ // 0x116e @0x3f
0x112f…1170 at0040 = EOL // 0x116f @0x40
0x112f…1170 }
0x1170…117f a76d 1710 ENDPROC LÆS_TRANS
0x1170…117f LineComal80 {
0x1170…117f ptr = 0xa76d // 0x1170 @0x0
0x1170…117f lno = 0x06ae // 0x1172 @0x2
0x1170…117f at0004 = ╱9f╱ ENDPROC ╱ // 0x1174 @0x4
0x1170…117f at0005 = ╱4c╱L╱ // 0x1175 @0x5
0x1170…117f at0006 = ╱5b╱Æ╱ // 0x1176 @0x6
0x1170…117f at0007 = ╱53╱S╱ // 0x1177 @0x7
0x1170…117f at0008 = ╱5f╱_╱ // 0x1178 @0x8
0x1170…117f at0009 = ╱54╱T╱ // 0x1179 @0x9
0x1170…117f at000a = ╱52╱R╱ // 0x117a @0xa
0x1170…117f at000b = ╱41╱A╱ // 0x117b @0xb
0x1170…117f at000c = ╱4e╱N╱ // 0x117c @0xc
0x1170…117f at000d = ╱53╱S╱ // 0x117d @0xd
0x1170…117f at000e = EOL // 0x117e @0xe
0x1170…117f }
0x117f…1184 a772 1720
0x117f…1184 LineComal80 {
0x117f…1184 ptr = 0xa772 // 0x117f @0x0
0x117f…1184 lno = 0x06b8 // 0x1181 @0x2
0x117f…1184 at0004 = EOL // 0x1183 @0x4
0x117f…1184 }
0x1184…1199 a787 1730 PROC ST_BGST( REF RST$)
0x1184…1199 LineComal80 {
0x1184…1199 ptr = 0xa787 // 0x1184 @0x0
0x1184…1199 lno = 0x06c2 // 0x1186 @0x2
0x1184…1199 at0004 = ╱9e15╱ PROC ╱ // 0x1188 @0x4
0x1184…1199 at0006 = ╱53╱S╱ // 0x118a @0x6
0x1184…1199 at0007 = ╱54╱T╱ // 0x118b @0x7
0x1184…1199 at0008 = ╱5f╱_╱ // 0x118c @0x8
0x1184…1199 at0009 = ╱42╱B╱ // 0x118d @0x9
0x1184…1199 at000a = ╱47╱G╱ // 0x118e @0xa
0x1184…1199 at000b = ╱53╱S╱ // 0x118f @0xb
0x1184…1199 at000c = ╱54╱T╱ // 0x1190 @0xc
0x1184…1199 at000d = ╱ed╱(╱ // 0x1191 @0xd
0x1184…1199 at000e = ╱b6╱ REF ╱ // 0x1192 @0xe
0x1184…1199 at000f = ╱52╱R╱ // 0x1193 @0xf
0x1184…1199 at0010 = ╱53╱S╱ // 0x1194 @0x10
0x1184…1199 at0011 = ╱54╱T╱ // 0x1195 @0x11
0x1184…1199 at0012 = ╱ef╱$╱ // 0x1196 @0x12
0x1184…1199 at0013 = ╱ee╱)╱ // 0x1197 @0x13
0x1184…1199 at0014 = EOL // 0x1198 @0x14
0x1184…1199 }
0x1199…11af a79d 1740 FOR I := 1 TO (RST$) DO
0x1199…11af LineComal80 {
0x1199…11af ptr = 0xa79d // 0x1199 @0x0
0x1199…11af lno = 0x06cc // 0x119b @0x2
0x1199…11af at0004 = ╱8316╱ FOR ╱ // 0x119d @0x4
0x1199…11af at0006 = ╱49╱I╱ // 0x119f @0x6
0x1199…11af at0007 = ╱f0╱ := ╱ // 0x11a0 @0x7
0x1199…11af at0008 = ╱31╱1╱ // 0x11a1 @0x8
0x1199…11af at0009 = ╱f20100╱ // 0x11a2 @0x9
0x1199…11af at000c = ╱b7cb╱ TO ╱ // 0x11a5 @0xc
0x1199…11af at000e = ╱ed╱(╱ // 0x11a7 @0xe
0x1199…11af at000f = ╱52╱R╱ // 0x11a8 @0xf
0x1199…11af at0010 = ╱53╱S╱ // 0x11a9 @0x10
0x1199…11af at0011 = ╱54╱T╱ // 0x11aa @0x11
0x1199…11af at0012 = ╱ef╱$╱ // 0x11ab @0x12
0x1199…11af at0013 = ╱ee╱)╱ // 0x11ac @0x13
0x1199…11af at0014 = ╱bb╱ DO ╱ // 0x11ad @0x14
0x1199…11af at0015 = EOL // 0x11ae @0x15
0x1199…11af }
0x11af…11ea a7d8 1750 IF RST$(I) =< "å" AND RST$(I) >= "a" THEN LET RST$(I) := CHR$ ( ╱cc╱ (RST$(I)) - 32)
0x11af…11ea LineComal80 {
0x11af…11ea ptr = 0xa7d8 // 0x11af @0x0
0x11af…11ea lno = 0x06d6 // 0x11b1 @0x2
0x11af…11ea at0004 = ╱8200╱ IF ╱ // 0x11b3 @0x4
0x11af…11ea at0006 = ╱52╱R╱ // 0x11b5 @0x6
0x11af…11ea at0007 = ╱53╱S╱ // 0x11b6 @0x7
0x11af…11ea at0008 = ╱54╱T╱ // 0x11b7 @0x8
0x11af…11ea at0009 = ╱ef╱$╱ // 0x11b8 @0x9
0x11af…11ea at000a = ╱ed╱(╱ // 0x11b9 @0xa
0x11af…11ea at000b = ╱49╱I╱ // 0x11ba @0xb
0x11af…11ea at000c = ╱ee╱)╱ // 0x11bb @0xc
0x11af…11ea at000d = ╱e2╱ =< ╱ // 0x11bc @0xd
0x11af…11ea at000e = ╱22╱"╱ // 0x11bd @0xe
0x11af…11ea at000f = ╱7d╱å╱ // 0x11be @0xf
0x11af…11ea at0010 = ╱22╱"╱ // 0x11bf @0x10
0x11af…11ea at0011 = ╱d9╱ AND ╱ // 0x11c0 @0x11
0x11af…11ea at0012 = ╱52╱R╱ // 0x11c1 @0x12
0x11af…11ea at0013 = ╱53╱S╱ // 0x11c2 @0x13
0x11af…11ea at0014 = ╱54╱T╱ // 0x11c3 @0x14
0x11af…11ea at0015 = ╱ef╱$╱ // 0x11c4 @0x15
0x11af…11ea at0016 = ╱ed╱(╱ // 0x11c5 @0x16
0x11af…11ea at0017 = ╱49╱I╱ // 0x11c6 @0x17
0x11af…11ea at0018 = ╱ee╱)╱ // 0x11c7 @0x18
0x11af…11ea at0019 = ╱e3╱ >= ╱ // 0x11c8 @0x19
0x11af…11ea at001a = ╱22╱"╱ // 0x11c9 @0x1a
0x11af…11ea at001b = ╱61╱a╱ // 0x11ca @0x1b
0x11af…11ea at001c = ╱22╱"╱ // 0x11cb @0x1c
0x11af…11ea at001d = ╱b5╱ THEN ╱ // 0x11cc @0x1d
0x11af…11ea at001e = ╱86╱ LET ╱ // 0x11cd @0x1e
0x11af…11ea at001f = ╱52╱R╱ // 0x11ce @0x1f
0x11af…11ea at0020 = ╱53╱S╱ // 0x11cf @0x20
0x11af…11ea at0021 = ╱54╱T╱ // 0x11d0 @0x21
0x11af…11ea at0022 = ╱ef╱$╱ // 0x11d1 @0x22
0x11af…11ea at0023 = ╱ed╱(╱ // 0x11d2 @0x23
0x11af…11ea at0024 = ╱49╱I╱ // 0x11d3 @0x24
0x11af…11ea at0025 = ╱ee╱)╱ // 0x11d4 @0x25
0x11af…11ea at0026 = ╱f0╱ := ╱ // 0x11d5 @0x26
0x11af…11ea at0027 = ╱d0╱ CHR$ ╱ // 0x11d6 @0x27
0x11af…11ea at0028 = ╱ed╱(╱ // 0x11d7 @0x28
0x11af…11ea at0029 = ╱cc╱ // 0x11d8 @0x29
0x11af…11ea at002a = ╱ed╱(╱ // 0x11d9 @0x2a
0x11af…11ea at002b = ╱52╱R╱ // 0x11da @0x2b
0x11af…11ea at002c = ╱53╱S╱ // 0x11db @0x2c
0x11af…11ea at002d = ╱54╱T╱ // 0x11dc @0x2d
0x11af…11ea at002e = ╱ef╱$╱ // 0x11dd @0x2e
0x11af…11ea at002f = ╱ed╱(╱ // 0x11de @0x2f
0x11af…11ea at0030 = ╱49╱I╱ // 0x11df @0x30
0x11af…11ea at0031 = ╱ee╱)╱ // 0x11e0 @0x31
0x11af…11ea at0032 = ╱ee╱)╱ // 0x11e1 @0x32
0x11af…11ea at0033 = ╱e6╱ - ╱ // 0x11e2 @0x33
0x11af…11ea at0034 = ╱33╱3╱ // 0x11e3 @0x34
0x11af…11ea at0035 = ╱32╱2╱ // 0x11e4 @0x35
0x11af…11ea at0036 = ╱f22000╱ // 0x11e5 @0x36
0x11af…11ea at0039 = ╱ee╱)╱ // 0x11e8 @0x39
0x11af…11ea at003a = EOL // 0x11e9 @0x3a
0x11af…11ea }
0x11ea…11f1 a7df 1760 NEXT I
0x11ea…11f1 LineComal80 {
0x11ea…11f1 ptr = 0xa7df // 0x11ea @0x0
0x11ea…11f1 lno = 0x06e0 // 0x11ec @0x2
0x11ea…11f1 at0004 = ╱84╱ NEXT ╱ // 0x11ee @0x4
0x11ea…11f1 at0005 = ╱49╱I╱ // 0x11ef @0x5
0x11ea…11f1 at0006 = EOL // 0x11f0 @0x6
0x11ea…11f1 }
0x11f1…11fe a7ec 1770 ENDPROC ST_BGST
0x11f1…11fe LineComal80 {
0x11f1…11fe ptr = 0xa7ec // 0x11f1 @0x0
0x11f1…11fe lno = 0x06ea // 0x11f3 @0x2
0x11f1…11fe at0004 = ╱9f╱ ENDPROC ╱ // 0x11f5 @0x4
0x11f1…11fe at0005 = ╱53╱S╱ // 0x11f6 @0x5
0x11f1…11fe at0006 = ╱54╱T╱ // 0x11f7 @0x6
0x11f1…11fe at0007 = ╱5f╱_╱ // 0x11f8 @0x7
0x11f1…11fe at0008 = ╱42╱B╱ // 0x11f9 @0x8
0x11f1…11fe at0009 = ╱47╱G╱ // 0x11fa @0x9
0x11f1…11fe at000a = ╱53╱S╱ // 0x11fb @0xa
0x11f1…11fe at000b = ╱54╱T╱ // 0x11fc @0xb
0x11f1…11fe at000c = EOL // 0x11fd @0xc
0x11f1…11fe }
0x11fe…120d a7fb 1780 PROC FKT_MENU
0x11fe…120d LineComal80 {
0x11fe…120d ptr = 0xa7fb // 0x11fe @0x0
0x11fe…120d lno = 0x06f4 // 0x1200 @0x2
0x11fe…120d at0004 = ╱9e17╱ PROC ╱ // 0x1202 @0x4
0x11fe…120d at0006 = ╱46╱F╱ // 0x1204 @0x6
0x11fe…120d at0007 = ╱4b╱K╱ // 0x1205 @0x7
0x11fe…120d at0008 = ╱54╱T╱ // 0x1206 @0x8
0x11fe…120d at0009 = ╱5f╱_╱ // 0x1207 @0x9
0x11fe…120d at000a = ╱4d╱M╱ // 0x1208 @0xa
0x11fe…120d at000b = ╱45╱E╱ // 0x1209 @0xb
0x11fe…120d at000c = ╱4e╱N╱ // 0x120a @0xc
0x11fe…120d at000d = ╱55╱U╱ // 0x120b @0xd
0x11fe…120d at000e = EOL // 0x120c @0xe
0x11fe…120d }
0x120d…1214 a802 1790 REPEAT
0x120d…1214 LineComal80 {
0x120d…1214 ptr = 0xa802 // 0x120d @0x0
0x120d…1214 lno = 0x06fe // 0x120f @0x2
0x120d…1214 at0004 = ╱9718╱ REPEAT ╱ // 0x1211 @0x4
0x120d…1214 at0006 = EOL // 0x1213 @0x6
0x120d…1214 }
0x1214…1245 a833 1800 EXEC OVERSKRIFT("Udskrivning af kontokort",6)
0x1214…1245 LineComal80 {
0x1214…1245 ptr = 0xa833 // 0x1214 @0x0
0x1214…1245 lno = 0x0708 // 0x1216 @0x2
0x1214…1245 at0004 = ╱9d╱ EXEC ╱ // 0x1218 @0x4
0x1214…1245 at0005 = ╱4f╱O╱ // 0x1219 @0x5
0x1214…1245 at0006 = ╱56╱V╱ // 0x121a @0x6
0x1214…1245 at0007 = ╱45╱E╱ // 0x121b @0x7
0x1214…1245 at0008 = ╱52╱R╱ // 0x121c @0x8
0x1214…1245 at0009 = ╱53╱S╱ // 0x121d @0x9
0x1214…1245 at000a = ╱4b╱K╱ // 0x121e @0xa
0x1214…1245 at000b = ╱52╱R╱ // 0x121f @0xb
0x1214…1245 at000c = ╱49╱I╱ // 0x1220 @0xc
0x1214…1245 at000d = ╱46╱F╱ // 0x1221 @0xd
0x1214…1245 at000e = ╱54╱T╱ // 0x1222 @0xe
0x1214…1245 at000f = ╱ed╱(╱ // 0x1223 @0xf
0x1214…1245 at0010 = ╱22╱"╱ // 0x1224 @0x10
0x1214…1245 at0011 = ╱55╱U╱ // 0x1225 @0x11
0x1214…1245 at0012 = ╱64╱d╱ // 0x1226 @0x12
0x1214…1245 at0013 = ╱73╱s╱ // 0x1227 @0x13
0x1214…1245 at0014 = ╱6b╱k╱ // 0x1228 @0x14
0x1214…1245 at0015 = ╱72╱r╱ // 0x1229 @0x15
0x1214…1245 at0016 = ╱69╱i╱ // 0x122a @0x16
0x1214…1245 at0017 = ╱76╱v╱ // 0x122b @0x17
0x1214…1245 at0018 = ╱6e╱n╱ // 0x122c @0x18
0x1214…1245 at0019 = ╱69╱i╱ // 0x122d @0x19
0x1214…1245 at001a = ╱6e╱n╱ // 0x122e @0x1a
0x1214…1245 at001b = ╱67╱g╱ // 0x122f @0x1b
0x1214…1245 at001c = ╱20╱…╱ // 0x1230 @0x1c
0x1214…1245 at001d = ╱61╱a╱ // 0x1231 @0x1d
0x1214…1245 at001e = ╱66╱f╱ // 0x1232 @0x1e
0x1214…1245 at001f = ╱20╱…╱ // 0x1233 @0x1f
0x1214…1245 at0020 = ╱6b╱k╱ // 0x1234 @0x20
0x1214…1245 at0021 = ╱6f╱o╱ // 0x1235 @0x21
0x1214…1245 at0022 = ╱6e╱n╱ // 0x1236 @0x22
0x1214…1245 at0023 = ╱74╱t╱ // 0x1237 @0x23
0x1214…1245 at0024 = ╱6f╱o╱ // 0x1238 @0x24
0x1214…1245 at0025 = ╱6b╱k╱ // 0x1239 @0x25
0x1214…1245 at0026 = ╱6f╱o╱ // 0x123a @0x26
0x1214…1245 at0027 = ╱72╱r╱ // 0x123b @0x27
0x1214…1245 at0028 = ╱74╱t╱ // 0x123c @0x28
0x1214…1245 at0029 = ╱22╱"╱ // 0x123d @0x29
0x1214…1245 at002a = ╱ec╱,╱ // 0x123e @0x2a
0x1214…1245 at002b = ╱36╱6╱ // 0x123f @0x2b
0x1214…1245 at002c = ╱f20600╱ // 0x1240 @0x2c
0x1214…1245 at002f = ╱ee╱)╱ // 0x1243 @0x2f
0x1214…1245 at0030 = EOL // 0x1244 @0x30
0x1214…1245 }
0x1245…1256 a844 1810 LET A_KTONR$ := ""
0x1245…1256 LineComal80 {
0x1245…1256 ptr = 0xa844 // 0x1245 @0x0
0x1245…1256 lno = 0x0712 // 0x1247 @0x2
0x1245…1256 at0004 = ╱86╱ LET ╱ // 0x1249 @0x4
0x1245…1256 at0005 = ╱41╱A╱ // 0x124a @0x5
0x1245…1256 at0006 = ╱5f╱_╱ // 0x124b @0x6
0x1245…1256 at0007 = ╱4b╱K╱ // 0x124c @0x7
0x1245…1256 at0008 = ╱54╱T╱ // 0x124d @0x8
0x1245…1256 at0009 = ╱4f╱O╱ // 0x124e @0x9
0x1245…1256 at000a = ╱4e╱N╱ // 0x124f @0xa
0x1245…1256 at000b = ╱52╱R╱ // 0x1250 @0xb
0x1245…1256 at000c = ╱ef╱$╱ // 0x1251 @0xc
0x1245…1256 at000d = ╱f0╱ := ╱ // 0x1252 @0xd
0x1245…1256 at000e = ╱22╱"╱ // 0x1253 @0xe
0x1245…1256 at000f = ╱22╱"╱ // 0x1254 @0xf
0x1245…1256 at0010 = EOL // 0x1255 @0x10
0x1245…1256 }
0x1256…125d a84b 1820 REPEAT
0x1256…125d LineComal80 {
0x1256…125d ptr = 0xa84b // 0x1256 @0x0
0x1256…125d lno = 0x071c // 0x1258 @0x2
0x1256…125d at0004 = ╱9719╱ REPEAT ╱ // 0x125a @0x4
0x1256…125d at0006 = EOL // 0x125c @0x6
0x1256…125d }
0x125d…1282 a870 1830 EDIT "<C2810>Fra kontonr: " : A_KTONR$
0x125d…1282 LineComal80 {
0x125d…1282 ptr = 0xa870 // 0x125d @0x0
0x125d…1282 lno = 0x0726 // 0x125f @0x2
0x125d…1282 at0004 = ╱b1╱ EDIT ╱ // 0x1261 @0x4
0x125d…1282 at0005 = ╱22╱"╱ // 0x1262 @0x5
0x125d…1282 at0006 = ╱3c╱<╱ // 0x1263 @0x6
0x125d…1282 at0007 = ╱43╱C╱ // 0x1264 @0x7
0x125d…1282 at0008 = ╱32╱2╱ // 0x1265 @0x8
0x125d…1282 at0009 = ╱38╱8╱ // 0x1266 @0x9
0x125d…1282 at000a = ╱31╱1╱ // 0x1267 @0xa
0x125d…1282 at000b = ╱30╱0╱ // 0x1268 @0xb
0x125d…1282 at000c = ╱3e╱>╱ // 0x1269 @0xc
0x125d…1282 at000d = ╱46╱F╱ // 0x126a @0xd
0x125d…1282 at000e = ╱72╱r╱ // 0x126b @0xe
0x125d…1282 at000f = ╱61╱a╱ // 0x126c @0xf
0x125d…1282 at0010 = ╱20╱…╱ // 0x126d @0x10
0x125d…1282 at0011 = ╱6b╱k╱ // 0x126e @0x11
0x125d…1282 at0012 = ╱6f╱o╱ // 0x126f @0x12
0x125d…1282 at0013 = ╱6e╱n╱ // 0x1270 @0x13
0x125d…1282 at0014 = ╱74╱t╱ // 0x1271 @0x14
0x125d…1282 at0015 = ╱6f╱o╱ // 0x1272 @0x15
0x125d…1282 at0016 = ╱6e╱n╱ // 0x1273 @0x16
0x125d…1282 at0017 = ╱72╱r╱ // 0x1274 @0x17
0x125d…1282 at0018 = ╱3a╱:╱ // 0x1275 @0x18
0x125d…1282 at0019 = ╱20╱…╱ // 0x1276 @0x19
0x125d…1282 at001a = ╱22╱"╱ // 0x1277 @0x1a
0x125d…1282 at001b = ╱f1╱ : ╱ // 0x1278 @0x1b
0x125d…1282 at001c = ╱41╱A╱ // 0x1279 @0x1c
0x125d…1282 at001d = ╱5f╱_╱ // 0x127a @0x1d
0x125d…1282 at001e = ╱4b╱K╱ // 0x127b @0x1e
0x125d…1282 at001f = ╱54╱T╱ // 0x127c @0x1f
0x125d…1282 at0020 = ╱4f╱O╱ // 0x127d @0x20
0x125d…1282 at0021 = ╱4e╱N╱ // 0x127e @0x21
0x125d…1282 at0022 = ╱52╱R╱ // 0x127f @0x22
0x125d…1282 at0023 = ╱ef╱$╱ // 0x1280 @0x23
0x125d…1282 at0024 = EOL // 0x1281 @0x24
0x125d…1282 }
0x1282…1294 a882 1840 EXEC SL_FEJLLINIE
0x1282…1294 LineComal80 {
0x1282…1294 ptr = 0xa882 // 0x1282 @0x0
0x1282…1294 lno = 0x0730 // 0x1284 @0x2
0x1282…1294 at0004 = ╱9d╱ EXEC ╱ // 0x1286 @0x4
0x1282…1294 at0005 = ╱53╱S╱ // 0x1287 @0x5
0x1282…1294 at0006 = ╱4c╱L╱ // 0x1288 @0x6
0x1282…1294 at0007 = ╱5f╱_╱ // 0x1289 @0x7
0x1282…1294 at0008 = ╱46╱F╱ // 0x128a @0x8
0x1282…1294 at0009 = ╱45╱E╱ // 0x128b @0x9
0x1282…1294 at000a = ╱4a╱J╱ // 0x128c @0xa
0x1282…1294 at000b = ╱4c╱L╱ // 0x128d @0xb
0x1282…1294 at000c = ╱4c╱L╱ // 0x128e @0xc
0x1282…1294 at000d = ╱49╱I╱ // 0x128f @0xd
0x1282…1294 at000e = ╱4e╱N╱ // 0x1290 @0xe
0x1282…1294 at000f = ╱49╱I╱ // 0x1291 @0xf
0x1282…1294 at0010 = ╱45╱E╱ // 0x1292 @0x10
0x1282…1294 at0011 = EOL // 0x1293 @0x11
0x1282…1294 }
0x1294…12b2 a8a0 1850 LET F_IDX := FIND_KTO(A_KTONR$)
0x1294…12b2 LineComal80 {
0x1294…12b2 ptr = 0xa8a0 // 0x1294 @0x0
0x1294…12b2 lno = 0x073a // 0x1296 @0x2
0x1294…12b2 at0004 = ╱86╱ LET ╱ // 0x1298 @0x4
0x1294…12b2 at0005 = ╱46╱F╱ // 0x1299 @0x5
0x1294…12b2 at0006 = ╱5f╱_╱ // 0x129a @0x6
0x1294…12b2 at0007 = ╱49╱I╱ // 0x129b @0x7
0x1294…12b2 at0008 = ╱44╱D╱ // 0x129c @0x8
0x1294…12b2 at0009 = ╱58╱X╱ // 0x129d @0x9
0x1294…12b2 at000a = ╱f0╱ := ╱ // 0x129e @0xa
0x1294…12b2 at000b = ╱46╱F╱ // 0x129f @0xb
0x1294…12b2 at000c = ╱49╱I╱ // 0x12a0 @0xc
0x1294…12b2 at000d = ╱4e╱N╱ // 0x12a1 @0xd
0x1294…12b2 at000e = ╱44╱D╱ // 0x12a2 @0xe
0x1294…12b2 at000f = ╱5f╱_╱ // 0x12a3 @0xf
0x1294…12b2 at0010 = ╱4b╱K╱ // 0x12a4 @0x10
0x1294…12b2 at0011 = ╱54╱T╱ // 0x12a5 @0x11
0x1294…12b2 at0012 = ╱4f╱O╱ // 0x12a6 @0x12
0x1294…12b2 at0013 = ╱ed╱(╱ // 0x12a7 @0x13
0x1294…12b2 at0014 = ╱41╱A╱ // 0x12a8 @0x14
0x1294…12b2 at0015 = ╱5f╱_╱ // 0x12a9 @0x15
0x1294…12b2 at0016 = ╱4b╱K╱ // 0x12aa @0x16
0x1294…12b2 at0017 = ╱54╱T╱ // 0x12ab @0x17
0x1294…12b2 at0018 = ╱4f╱O╱ // 0x12ac @0x18
0x1294…12b2 at0019 = ╱4e╱N╱ // 0x12ad @0x19
0x1294…12b2 at001a = ╱52╱R╱ // 0x12ae @0x1a
0x1294…12b2 at001b = ╱ef╱$╱ // 0x12af @0x1b
0x1294…12b2 at001c = ╱ee╱)╱ // 0x12b0 @0x1c
0x1294…12b2 at001d = EOL // 0x12b1 @0x1d
0x1294…12b2 }
0x12b2…12d9 a8c7 1860 IF NOT OK THEN EXEC FEJL("Kontonr findes ikke")
0x12b2…12d9 LineComal80 {
0x12b2…12d9 ptr = 0xa8c7 // 0x12b2 @0x0
0x12b2…12d9 lno = 0x0744 // 0x12b4 @0x2
0x12b2…12d9 at0004 = ╱8200╱ IF ╱ // 0x12b6 @0x4
0x12b2…12d9 at0006 = ╱d7╱ NOT ╱ // 0x12b8 @0x6
0x12b2…12d9 at0007 = ╱4f╱O╱ // 0x12b9 @0x7
0x12b2…12d9 at0008 = ╱4b╱K╱ // 0x12ba @0x8
0x12b2…12d9 at0009 = ╱b5╱ THEN ╱ // 0x12bb @0x9
0x12b2…12d9 at000a = ╱9d╱ EXEC ╱ // 0x12bc @0xa
0x12b2…12d9 at000b = ╱46╱F╱ // 0x12bd @0xb
0x12b2…12d9 at000c = ╱45╱E╱ // 0x12be @0xc
0x12b2…12d9 at000d = ╱4a╱J╱ // 0x12bf @0xd
0x12b2…12d9 at000e = ╱4c╱L╱ // 0x12c0 @0xe
0x12b2…12d9 at000f = ╱ed╱(╱ // 0x12c1 @0xf
0x12b2…12d9 at0010 = ╱22╱"╱ // 0x12c2 @0x10
0x12b2…12d9 at0011 = ╱4b╱K╱ // 0x12c3 @0x11
0x12b2…12d9 at0012 = ╱6f╱o╱ // 0x12c4 @0x12
0x12b2…12d9 at0013 = ╱6e╱n╱ // 0x12c5 @0x13
0x12b2…12d9 at0014 = ╱74╱t╱ // 0x12c6 @0x14
0x12b2…12d9 at0015 = ╱6f╱o╱ // 0x12c7 @0x15
0x12b2…12d9 at0016 = ╱6e╱n╱ // 0x12c8 @0x16
0x12b2…12d9 at0017 = ╱72╱r╱ // 0x12c9 @0x17
0x12b2…12d9 at0018 = ╱20╱…╱ // 0x12ca @0x18
0x12b2…12d9 at0019 = ╱66╱f╱ // 0x12cb @0x19
0x12b2…12d9 at001a = ╱69╱i╱ // 0x12cc @0x1a
0x12b2…12d9 at001b = ╱6e╱n╱ // 0x12cd @0x1b
0x12b2…12d9 at001c = ╱64╱d╱ // 0x12ce @0x1c
0x12b2…12d9 at001d = ╱65╱e╱ // 0x12cf @0x1d
0x12b2…12d9 at001e = ╱73╱s╱ // 0x12d0 @0x1e
0x12b2…12d9 at001f = ╱20╱…╱ // 0x12d1 @0x1f
0x12b2…12d9 at0020 = ╱69╱i╱ // 0x12d2 @0x20
0x12b2…12d9 at0021 = ╱6b╱k╱ // 0x12d3 @0x21
0x12b2…12d9 at0022 = ╱6b╱k╱ // 0x12d4 @0x22
0x12b2…12d9 at0023 = ╱65╱e╱ // 0x12d5 @0x23
0x12b2…12d9 at0024 = ╱22╱"╱ // 0x12d6 @0x24
0x12b2…12d9 at0025 = ╱ee╱)╱ // 0x12d7 @0x25
0x12b2…12d9 at0026 = EOL // 0x12d8 @0x26
0x12b2…12d9 }
0x12d9…12e1 a8cf 1870 UNTIL OK
0x12d9…12e1 LineComal80 {
0x12d9…12e1 ptr = 0xa8cf // 0x12d9 @0x0
0x12d9…12e1 lno = 0x074e // 0x12db @0x2
0x12d9…12e1 at0004 = ╱98╱ UNTIL ╱ // 0x12dd @0x4
0x12d9…12e1 at0005 = ╱4f╱O╱ // 0x12de @0x5
0x12d9…12e1 at0006 = ╱4b╱K╱ // 0x12df @0x6
0x12d9…12e1 at0007 = EOL // 0x12e0 @0x7
0x12d9…12e1 }
0x12e1…12f2 a8e0 1880 LET A_KTONR$ := ""
0x12e1…12f2 LineComal80 {
0x12e1…12f2 ptr = 0xa8e0 // 0x12e1 @0x0
0x12e1…12f2 lno = 0x0758 // 0x12e3 @0x2
0x12e1…12f2 at0004 = ╱86╱ LET ╱ // 0x12e5 @0x4
0x12e1…12f2 at0005 = ╱41╱A╱ // 0x12e6 @0x5
0x12e1…12f2 at0006 = ╱5f╱_╱ // 0x12e7 @0x6
0x12e1…12f2 at0007 = ╱4b╱K╱ // 0x12e8 @0x7
0x12e1…12f2 at0008 = ╱54╱T╱ // 0x12e9 @0x8
0x12e1…12f2 at0009 = ╱4f╱O╱ // 0x12ea @0x9
0x12e1…12f2 at000a = ╱4e╱N╱ // 0x12eb @0xa
0x12e1…12f2 at000b = ╱52╱R╱ // 0x12ec @0xb
0x12e1…12f2 at000c = ╱ef╱$╱ // 0x12ed @0xc
0x12e1…12f2 at000d = ╱f0╱ := ╱ // 0x12ee @0xd
0x12e1…12f2 at000e = ╱22╱"╱ // 0x12ef @0xe
0x12e1…12f2 at000f = ╱22╱"╱ // 0x12f0 @0xf
0x12e1…12f2 at0010 = EOL // 0x12f1 @0x10
0x12e1…12f2 }
0x12f2…12f9 a8e7 1890 REPEAT
0x12f2…12f9 LineComal80 {
0x12f2…12f9 ptr = 0xa8e7 // 0x12f2 @0x0
0x12f2…12f9 lno = 0x0762 // 0x12f4 @0x2
0x12f2…12f9 at0004 = ╱971a╱ REPEAT ╱ // 0x12f6 @0x4
0x12f2…12f9 at0006 = EOL // 0x12f8 @0x6
0x12f2…12f9 }
0x12f9…131e a90c 1900 EDIT "<C2812>Til kontonr: " : A_KTONR$
0x12f9…131e LineComal80 {
0x12f9…131e ptr = 0xa90c // 0x12f9 @0x0
0x12f9…131e lno = 0x076c // 0x12fb @0x2
0x12f9…131e at0004 = ╱b1╱ EDIT ╱ // 0x12fd @0x4
0x12f9…131e at0005 = ╱22╱"╱ // 0x12fe @0x5
0x12f9…131e at0006 = ╱3c╱<╱ // 0x12ff @0x6
0x12f9…131e at0007 = ╱43╱C╱ // 0x1300 @0x7
0x12f9…131e at0008 = ╱32╱2╱ // 0x1301 @0x8
0x12f9…131e at0009 = ╱38╱8╱ // 0x1302 @0x9
0x12f9…131e at000a = ╱31╱1╱ // 0x1303 @0xa
0x12f9…131e at000b = ╱32╱2╱ // 0x1304 @0xb
0x12f9…131e at000c = ╱3e╱>╱ // 0x1305 @0xc
0x12f9…131e at000d = ╱54╱T╱ // 0x1306 @0xd
0x12f9…131e at000e = ╱69╱i╱ // 0x1307 @0xe
0x12f9…131e at000f = ╱6c╱l╱ // 0x1308 @0xf
0x12f9…131e at0010 = ╱20╱…╱ // 0x1309 @0x10
0x12f9…131e at0011 = ╱6b╱k╱ // 0x130a @0x11
0x12f9…131e at0012 = ╱6f╱o╱ // 0x130b @0x12
0x12f9…131e at0013 = ╱6e╱n╱ // 0x130c @0x13
0x12f9…131e at0014 = ╱74╱t╱ // 0x130d @0x14
0x12f9…131e at0015 = ╱6f╱o╱ // 0x130e @0x15
0x12f9…131e at0016 = ╱6e╱n╱ // 0x130f @0x16
0x12f9…131e at0017 = ╱72╱r╱ // 0x1310 @0x17
0x12f9…131e at0018 = ╱3a╱:╱ // 0x1311 @0x18
0x12f9…131e at0019 = ╱20╱…╱ // 0x1312 @0x19
0x12f9…131e at001a = ╱22╱"╱ // 0x1313 @0x1a
0x12f9…131e at001b = ╱f1╱ : ╱ // 0x1314 @0x1b
0x12f9…131e at001c = ╱41╱A╱ // 0x1315 @0x1c
0x12f9…131e at001d = ╱5f╱_╱ // 0x1316 @0x1d
0x12f9…131e at001e = ╱4b╱K╱ // 0x1317 @0x1e
0x12f9…131e at001f = ╱54╱T╱ // 0x1318 @0x1f
0x12f9…131e at0020 = ╱4f╱O╱ // 0x1319 @0x20
0x12f9…131e at0021 = ╱4e╱N╱ // 0x131a @0x21
0x12f9…131e at0022 = ╱52╱R╱ // 0x131b @0x22
0x12f9…131e at0023 = ╱ef╱$╱ // 0x131c @0x23
0x12f9…131e at0024 = EOL // 0x131d @0x24
0x12f9…131e }
0x131e…1330 a91e 1910 EXEC SL_FEJLLINIE
0x131e…1330 LineComal80 {
0x131e…1330 ptr = 0xa91e // 0x131e @0x0
0x131e…1330 lno = 0x0776 // 0x1320 @0x2
0x131e…1330 at0004 = ╱9d╱ EXEC ╱ // 0x1322 @0x4
0x131e…1330 at0005 = ╱53╱S╱ // 0x1323 @0x5
0x131e…1330 at0006 = ╱4c╱L╱ // 0x1324 @0x6
0x131e…1330 at0007 = ╱5f╱_╱ // 0x1325 @0x7
0x131e…1330 at0008 = ╱46╱F╱ // 0x1326 @0x8
0x131e…1330 at0009 = ╱45╱E╱ // 0x1327 @0x9
0x131e…1330 at000a = ╱4a╱J╱ // 0x1328 @0xa
0x131e…1330 at000b = ╱4c╱L╱ // 0x1329 @0xb
0x131e…1330 at000c = ╱4c╱L╱ // 0x132a @0xc
0x131e…1330 at000d = ╱49╱I╱ // 0x132b @0xd
0x131e…1330 at000e = ╱4e╱N╱ // 0x132c @0xe
0x131e…1330 at000f = ╱49╱I╱ // 0x132d @0xf
0x131e…1330 at0010 = ╱45╱E╱ // 0x132e @0x10
0x131e…1330 at0011 = EOL // 0x132f @0x11
0x131e…1330 }
0x1330…134e a93c 1920 LET T_IDX := FIND_KTO(A_KTONR$)
0x1330…134e LineComal80 {
0x1330…134e ptr = 0xa93c // 0x1330 @0x0
0x1330…134e lno = 0x0780 // 0x1332 @0x2
0x1330…134e at0004 = ╱86╱ LET ╱ // 0x1334 @0x4
0x1330…134e at0005 = ╱54╱T╱ // 0x1335 @0x5
0x1330…134e at0006 = ╱5f╱_╱ // 0x1336 @0x6
0x1330…134e at0007 = ╱49╱I╱ // 0x1337 @0x7
0x1330…134e at0008 = ╱44╱D╱ // 0x1338 @0x8
0x1330…134e at0009 = ╱58╱X╱ // 0x1339 @0x9
0x1330…134e at000a = ╱f0╱ := ╱ // 0x133a @0xa
0x1330…134e at000b = ╱46╱F╱ // 0x133b @0xb
0x1330…134e at000c = ╱49╱I╱ // 0x133c @0xc
0x1330…134e at000d = ╱4e╱N╱ // 0x133d @0xd
0x1330…134e at000e = ╱44╱D╱ // 0x133e @0xe
0x1330…134e at000f = ╱5f╱_╱ // 0x133f @0xf
0x1330…134e at0010 = ╱4b╱K╱ // 0x1340 @0x10
0x1330…134e at0011 = ╱54╱T╱ // 0x1341 @0x11
0x1330…134e at0012 = ╱4f╱O╱ // 0x1342 @0x12
0x1330…134e at0013 = ╱ed╱(╱ // 0x1343 @0x13
0x1330…134e at0014 = ╱41╱A╱ // 0x1344 @0x14
0x1330…134e at0015 = ╱5f╱_╱ // 0x1345 @0x15
0x1330…134e at0016 = ╱4b╱K╱ // 0x1346 @0x16
0x1330…134e at0017 = ╱54╱T╱ // 0x1347 @0x17
0x1330…134e at0018 = ╱4f╱O╱ // 0x1348 @0x18
0x1330…134e at0019 = ╱4e╱N╱ // 0x1349 @0x19
0x1330…134e at001a = ╱52╱R╱ // 0x134a @0x1a
0x1330…134e at001b = ╱ef╱$╱ // 0x134b @0x1b
0x1330…134e at001c = ╱ee╱)╱ // 0x134c @0x1c
0x1330…134e at001d = EOL // 0x134d @0x1d
0x1330…134e }
0x134e…1359 a947 1930 IF OK THEN
0x134e…1359 LineComal80 {
0x134e…1359 ptr = 0xa947 // 0x134e @0x0
0x134e…1359 lno = 0x078a // 0x1350 @0x2
0x134e…1359 at0004 = ╱9b1bd7╱ IF ╱ // 0x1352 @0x4
0x134e…1359 at0007 = ╱4f╱O╱ // 0x1355 @0x7
0x134e…1359 at0008 = ╱4b╱K╱ // 0x1356 @0x8
0x134e…1359 at0009 = ╱b5╱ THEN ╱ // 0x1357 @0x9
0x134e…1359 at000a = EOL // 0x1358 @0xa
0x134e…1359 }
0x1359…137a a968 1940 EXEC FEJL("Kontonr findes ikke")
0x1359…137a LineComal80 {
0x1359…137a ptr = 0xa968 // 0x1359 @0x0
0x1359…137a lno = 0x0794 // 0x135b @0x2
0x1359…137a at0004 = ╱9d╱ EXEC ╱ // 0x135d @0x4
0x1359…137a at0005 = ╱46╱F╱ // 0x135e @0x5
0x1359…137a at0006 = ╱45╱E╱ // 0x135f @0x6
0x1359…137a at0007 = ╱4a╱J╱ // 0x1360 @0x7
0x1359…137a at0008 = ╱4c╱L╱ // 0x1361 @0x8
0x1359…137a at0009 = ╱ed╱(╱ // 0x1362 @0x9
0x1359…137a at000a = ╱22╱"╱ // 0x1363 @0xa
0x1359…137a at000b = ╱4b╱K╱ // 0x1364 @0xb
0x1359…137a at000c = ╱6f╱o╱ // 0x1365 @0xc
0x1359…137a at000d = ╱6e╱n╱ // 0x1366 @0xd
0x1359…137a at000e = ╱74╱t╱ // 0x1367 @0xe
0x1359…137a at000f = ╱6f╱o╱ // 0x1368 @0xf
0x1359…137a at0010 = ╱6e╱n╱ // 0x1369 @0x10
0x1359…137a at0011 = ╱72╱r╱ // 0x136a @0x11
0x1359…137a at0012 = ╱20╱…╱ // 0x136b @0x12
0x1359…137a at0013 = ╱66╱f╱ // 0x136c @0x13
0x1359…137a at0014 = ╱69╱i╱ // 0x136d @0x14
0x1359…137a at0015 = ╱6e╱n╱ // 0x136e @0x15
0x1359…137a at0016 = ╱64╱d╱ // 0x136f @0x16
0x1359…137a at0017 = ╱65╱e╱ // 0x1370 @0x17
0x1359…137a at0018 = ╱73╱s╱ // 0x1371 @0x18
0x1359…137a at0019 = ╱20╱…╱ // 0x1372 @0x19
0x1359…137a at001a = ╱69╱i╱ // 0x1373 @0x1a
0x1359…137a at001b = ╱6b╱k╱ // 0x1374 @0x1b
0x1359…137a at001c = ╱6b╱k╱ // 0x1375 @0x1c
0x1359…137a at001d = ╱65╱e╱ // 0x1376 @0x1d
0x1359…137a at001e = ╱22╱"╱ // 0x1377 @0x1e
0x1359…137a at001f = ╱ee╱)╱ // 0x1378 @0x1f
0x1359…137a at0020 = EOL // 0x1379 @0x20
0x1359…137a }
0x137a…1381 a96f 1950 ELSE
0x137a…1381 LineComal80 {
0x137a…1381 ptr = 0xa96f // 0x137a @0x0
0x137a…1381 lno = 0x079e // 0x137c @0x2
0x137a…1381 at0004 = ╱9a1c╱ ELSE ╱ // 0x137e @0x4
0x137a…1381 at0006 = EOL // 0x1380 @0x6
0x137a…1381 }
0x1381…13b6 a9a4 1960 IF T_IDX < F_IDX THEN EXEC FEJL("Fra kontonr > Til kontonr")
0x1381…13b6 LineComal80 {
0x1381…13b6 ptr = 0xa9a4 // 0x1381 @0x0
0x1381…13b6 lno = 0x07a8 // 0x1383 @0x2
0x1381…13b6 at0004 = ╱8200╱ IF ╱ // 0x1385 @0x4
0x1381…13b6 at0006 = ╱54╱T╱ // 0x1387 @0x6
0x1381…13b6 at0007 = ╱5f╱_╱ // 0x1388 @0x7
0x1381…13b6 at0008 = ╱49╱I╱ // 0x1389 @0x8
0x1381…13b6 at0009 = ╱44╱D╱ // 0x138a @0x9
0x1381…13b6 at000a = ╱58╱X╱ // 0x138b @0xa
0x1381…13b6 at000b = ╱e0╱ < ╱ // 0x138c @0xb
0x1381…13b6 at000c = ╱46╱F╱ // 0x138d @0xc
0x1381…13b6 at000d = ╱5f╱_╱ // 0x138e @0xd
0x1381…13b6 at000e = ╱49╱I╱ // 0x138f @0xe
0x1381…13b6 at000f = ╱44╱D╱ // 0x1390 @0xf
0x1381…13b6 at0010 = ╱58╱X╱ // 0x1391 @0x10
0x1381…13b6 at0011 = ╱b5╱ THEN ╱ // 0x1392 @0x11
0x1381…13b6 at0012 = ╱9d╱ EXEC ╱ // 0x1393 @0x12
0x1381…13b6 at0013 = ╱46╱F╱ // 0x1394 @0x13
0x1381…13b6 at0014 = ╱45╱E╱ // 0x1395 @0x14
0x1381…13b6 at0015 = ╱4a╱J╱ // 0x1396 @0x15
0x1381…13b6 at0016 = ╱4c╱L╱ // 0x1397 @0x16
0x1381…13b6 at0017 = ╱ed╱(╱ // 0x1398 @0x17
0x1381…13b6 at0018 = ╱22╱"╱ // 0x1399 @0x18
0x1381…13b6 at0019 = ╱46╱F╱ // 0x139a @0x19
0x1381…13b6 at001a = ╱72╱r╱ // 0x139b @0x1a
0x1381…13b6 at001b = ╱61╱a╱ // 0x139c @0x1b
0x1381…13b6 at001c = ╱20╱…╱ // 0x139d @0x1c
0x1381…13b6 at001d = ╱6b╱k╱ // 0x139e @0x1d
0x1381…13b6 at001e = ╱6f╱o╱ // 0x139f @0x1e
0x1381…13b6 at001f = ╱6e╱n╱ // 0x13a0 @0x1f
0x1381…13b6 at0020 = ╱74╱t╱ // 0x13a1 @0x20
0x1381…13b6 at0021 = ╱6f╱o╱ // 0x13a2 @0x21
0x1381…13b6 at0022 = ╱6e╱n╱ // 0x13a3 @0x22
0x1381…13b6 at0023 = ╱72╱r╱ // 0x13a4 @0x23
0x1381…13b6 at0024 = ╱20╱…╱ // 0x13a5 @0x24
0x1381…13b6 at0025 = ╱3e╱>╱ // 0x13a6 @0x25
0x1381…13b6 at0026 = ╱20╱…╱ // 0x13a7 @0x26
0x1381…13b6 at0027 = ╱54╱T╱ // 0x13a8 @0x27
0x1381…13b6 at0028 = ╱69╱i╱ // 0x13a9 @0x28
0x1381…13b6 at0029 = ╱6c╱l╱ // 0x13aa @0x29
0x1381…13b6 at002a = ╱20╱…╱ // 0x13ab @0x2a
0x1381…13b6 at002b = ╱6b╱k╱ // 0x13ac @0x2b
0x1381…13b6 at002c = ╱6f╱o╱ // 0x13ad @0x2c
0x1381…13b6 at002d = ╱6e╱n╱ // 0x13ae @0x2d
0x1381…13b6 at002e = ╱74╱t╱ // 0x13af @0x2e
0x1381…13b6 at002f = ╱6f╱o╱ // 0x13b0 @0x2f
0x1381…13b6 at0030 = ╱6e╱n╱ // 0x13b1 @0x30
0x1381…13b6 at0031 = ╱72╱r╱ // 0x13b2 @0x31
0x1381…13b6 at0032 = ╱22╱"╱ // 0x13b3 @0x32
0x1381…13b6 at0033 = ╱ee╱)╱ // 0x13b4 @0x33
0x1381…13b6 at0034 = EOL // 0x13b5 @0x34
0x1381…13b6 }
0x13b6…13bc a9aa 1970 ENDIF
0x13b6…13bc LineComal80 {
0x13b6…13bc ptr = 0xa9aa // 0x13b6 @0x0
0x13b6…13bc lno = 0x07b2 // 0x13b8 @0x2
0x13b6…13bc at0004 = ╱9c╱ ENDIF ╱ // 0x13ba @0x4
0x13b6…13bc at0005 = EOL // 0x13bb @0x5
0x13b6…13bc }
0x13bc…13c4 a9b2 1980 UNTIL OK
0x13bc…13c4 LineComal80 {
0x13bc…13c4 ptr = 0xa9b2 // 0x13bc @0x0
0x13bc…13c4 lno = 0x07bc // 0x13be @0x2
0x13bc…13c4 at0004 = ╱98╱ UNTIL ╱ // 0x13c0 @0x4
0x13bc…13c4 at0005 = ╱4f╱O╱ // 0x13c1 @0x5
0x13bc…13c4 at0006 = ╱4b╱K╱ // 0x13c2 @0x6
0x13bc…13c4 at0007 = EOL // 0x13c3 @0x7
0x13bc…13c4 }
0x13c4…13d6 a9c4 1990 LET OUT_WAY$ := "P"
0x13c4…13d6 LineComal80 {
0x13c4…13d6 ptr = 0xa9c4 // 0x13c4 @0x0
0x13c4…13d6 lno = 0x07c6 // 0x13c6 @0x2
0x13c4…13d6 at0004 = ╱86╱ LET ╱ // 0x13c8 @0x4
0x13c4…13d6 at0005 = ╱4f╱O╱ // 0x13c9 @0x5
0x13c4…13d6 at0006 = ╱55╱U╱ // 0x13ca @0x6
0x13c4…13d6 at0007 = ╱54╱T╱ // 0x13cb @0x7
0x13c4…13d6 at0008 = ╱5f╱_╱ // 0x13cc @0x8
0x13c4…13d6 at0009 = ╱57╱W╱ // 0x13cd @0x9
0x13c4…13d6 at000a = ╱41╱A╱ // 0x13ce @0xa
0x13c4…13d6 at000b = ╱59╱Y╱ // 0x13cf @0xb
0x13c4…13d6 at000c = ╱ef╱$╱ // 0x13d0 @0xc
0x13c4…13d6 at000d = ╱f0╱ := ╱ // 0x13d1 @0xd
0x13c4…13d6 at000e = ╱22╱"╱ // 0x13d2 @0xe
0x13c4…13d6 at000f = ╱50╱P╱ // 0x13d3 @0xf
0x13c4…13d6 at0010 = ╱22╱"╱ // 0x13d4 @0x10
0x13c4…13d6 at0011 = EOL // 0x13d5 @0x11
0x13c4…13d6 }
0x13d6…13dd a9cb 2000 REPEAT
0x13d6…13dd LineComal80 {
0x13d6…13dd ptr = 0xa9cb // 0x13d6 @0x0
0x13d6…13dd lno = 0x07d0 // 0x13d8 @0x2
0x13d6…13dd at0004 = ╱971d╱ REPEAT ╱ // 0x13da @0x4
0x13d6…13dd at0006 = EOL // 0x13dc @0x6
0x13d6…13dd }
0x13dd…141b aa09 2010 EDIT "<SC1814>Udskrift på (P)rinter eller (S)kærm? " : OUT_WAY$
0x13dd…141b LineComal80 {
0x13dd…141b ptr = 0xaa09 // 0x13dd @0x0
0x13dd…141b lno = 0x07da // 0x13df @0x2
0x13dd…141b at0004 = ╱b1╱ EDIT ╱ // 0x13e1 @0x4
0x13dd…141b at0005 = ╱22╱"╱ // 0x13e2 @0x5
0x13dd…141b at0006 = ╱3c╱<╱ // 0x13e3 @0x6
0x13dd…141b at0007 = ╱53╱S╱ // 0x13e4 @0x7
0x13dd…141b at0008 = ╱43╱C╱ // 0x13e5 @0x8
0x13dd…141b at0009 = ╱31╱1╱ // 0x13e6 @0x9
0x13dd…141b at000a = ╱38╱8╱ // 0x13e7 @0xa
0x13dd…141b at000b = ╱31╱1╱ // 0x13e8 @0xb
0x13dd…141b at000c = ╱34╱4╱ // 0x13e9 @0xc
0x13dd…141b at000d = ╱3e╱>╱ // 0x13ea @0xd
0x13dd…141b at000e = ╱55╱U╱ // 0x13eb @0xe
0x13dd…141b at000f = ╱64╱d╱ // 0x13ec @0xf
0x13dd…141b at0010 = ╱73╱s╱ // 0x13ed @0x10
0x13dd…141b at0011 = ╱6b╱k╱ // 0x13ee @0x11
0x13dd…141b at0012 = ╱72╱r╱ // 0x13ef @0x12
0x13dd…141b at0013 = ╱69╱i╱ // 0x13f0 @0x13
0x13dd…141b at0014 = ╱66╱f╱ // 0x13f1 @0x14
0x13dd…141b at0015 = ╱74╱t╱ // 0x13f2 @0x15
0x13dd…141b at0016 = ╱20╱…╱ // 0x13f3 @0x16
0x13dd…141b at0017 = ╱70╱p╱ // 0x13f4 @0x17
0x13dd…141b at0018 = ╱7d╱å╱ // 0x13f5 @0x18
0x13dd…141b at0019 = ╱20╱…╱ // 0x13f6 @0x19
0x13dd…141b at001a = ╱28╱(╱ // 0x13f7 @0x1a
0x13dd…141b at001b = ╱50╱P╱ // 0x13f8 @0x1b
0x13dd…141b at001c = ╱29╱)╱ // 0x13f9 @0x1c
0x13dd…141b at001d = ╱72╱r╱ // 0x13fa @0x1d
0x13dd…141b at001e = ╱69╱i╱ // 0x13fb @0x1e
0x13dd…141b at001f = ╱6e╱n╱ // 0x13fc @0x1f
0x13dd…141b at0020 = ╱74╱t╱ // 0x13fd @0x20
0x13dd…141b at0021 = ╱65╱e╱ // 0x13fe @0x21
0x13dd…141b at0022 = ╱72╱r╱ // 0x13ff @0x22
0x13dd…141b at0023 = ╱20╱…╱ // 0x1400 @0x23
0x13dd…141b at0024 = ╱65╱e╱ // 0x1401 @0x24
0x13dd…141b at0025 = ╱6c╱l╱ // 0x1402 @0x25
0x13dd…141b at0026 = ╱6c╱l╱ // 0x1403 @0x26
0x13dd…141b at0027 = ╱65╱e╱ // 0x1404 @0x27
0x13dd…141b at0028 = ╱72╱r╱ // 0x1405 @0x28
0x13dd…141b at0029 = ╱20╱…╱ // 0x1406 @0x29
0x13dd…141b at002a = ╱28╱(╱ // 0x1407 @0x2a
0x13dd…141b at002b = ╱53╱S╱ // 0x1408 @0x2b
0x13dd…141b at002c = ╱29╱)╱ // 0x1409 @0x2c
0x13dd…141b at002d = ╱6b╱k╱ // 0x140a @0x2d
0x13dd…141b at002e = ╱7b╱æ╱ // 0x140b @0x2e
0x13dd…141b at002f = ╱72╱r╱ // 0x140c @0x2f
0x13dd…141b at0030 = ╱6d╱m╱ // 0x140d @0x30
0x13dd…141b at0031 = ╱3f╱?╱ // 0x140e @0x31
0x13dd…141b at0032 = ╱20╱…╱ // 0x140f @0x32
0x13dd…141b at0033 = ╱22╱"╱ // 0x1410 @0x33
0x13dd…141b at0034 = ╱f1╱ : ╱ // 0x1411 @0x34
0x13dd…141b at0035 = ╱4f╱O╱ // 0x1412 @0x35
0x13dd…141b at0036 = ╱55╱U╱ // 0x1413 @0x36
0x13dd…141b at0037 = ╱54╱T╱ // 0x1414 @0x37
0x13dd…141b at0038 = ╱5f╱_╱ // 0x1415 @0x38
0x13dd…141b at0039 = ╱57╱W╱ // 0x1416 @0x39
0x13dd…141b at003a = ╱41╱A╱ // 0x1417 @0x3a
0x13dd…141b at003b = ╱59╱Y╱ // 0x1418 @0x3b
0x13dd…141b at003c = ╱ef╱$╱ // 0x1419 @0x3c
0x13dd…141b at003d = EOL // 0x141a @0x3d
0x13dd…141b }
0x141b…142d aa1b 2020 EXEC SL_FEJLLINIE
0x141b…142d LineComal80 {
0x141b…142d ptr = 0xaa1b // 0x141b @0x0
0x141b…142d lno = 0x07e4 // 0x141d @0x2
0x141b…142d at0004 = ╱9d╱ EXEC ╱ // 0x141f @0x4
0x141b…142d at0005 = ╱53╱S╱ // 0x1420 @0x5
0x141b…142d at0006 = ╱4c╱L╱ // 0x1421 @0x6
0x141b…142d at0007 = ╱5f╱_╱ // 0x1422 @0x7
0x141b…142d at0008 = ╱46╱F╱ // 0x1423 @0x8
0x141b…142d at0009 = ╱45╱E╱ // 0x1424 @0x9
0x141b…142d at000a = ╱4a╱J╱ // 0x1425 @0xa
0x141b…142d at000b = ╱4c╱L╱ // 0x1426 @0xb
0x141b…142d at000c = ╱4c╱L╱ // 0x1427 @0xc
0x141b…142d at000d = ╱49╱I╱ // 0x1428 @0xd
0x141b…142d at000e = ╱4e╱N╱ // 0x1429 @0xe
0x141b…142d at000f = ╱49╱I╱ // 0x142a @0xf
0x141b…142d at0010 = ╱45╱E╱ // 0x142b @0x10
0x141b…142d at0011 = EOL // 0x142c @0x11
0x141b…142d }
0x142d…1444 aa32 2030 EXEC ST_BGST(OUT_WAY$)
0x142d…1444 LineComal80 {
0x142d…1444 ptr = 0xaa32 // 0x142d @0x0
0x142d…1444 lno = 0x07ee // 0x142f @0x2
0x142d…1444 at0004 = ╱9d╱ EXEC ╱ // 0x1431 @0x4
0x142d…1444 at0005 = ╱53╱S╱ // 0x1432 @0x5
0x142d…1444 at0006 = ╱54╱T╱ // 0x1433 @0x6
0x142d…1444 at0007 = ╱5f╱_╱ // 0x1434 @0x7
0x142d…1444 at0008 = ╱42╱B╱ // 0x1435 @0x8
0x142d…1444 at0009 = ╱47╱G╱ // 0x1436 @0x9
0x142d…1444 at000a = ╱53╱S╱ // 0x1437 @0xa
0x142d…1444 at000b = ╱54╱T╱ // 0x1438 @0xb
0x142d…1444 at000c = ╱ed╱(╱ // 0x1439 @0xc
0x142d…1444 at000d = ╱4f╱O╱ // 0x143a @0xd
0x142d…1444 at000e = ╱55╱U╱ // 0x143b @0xe
0x142d…1444 at000f = ╱54╱T╱ // 0x143c @0xf
0x142d…1444 at0010 = ╱5f╱_╱ // 0x143d @0x10
0x142d…1444 at0011 = ╱57╱W╱ // 0x143e @0x11
0x142d…1444 at0012 = ╱41╱A╱ // 0x143f @0x12
0x142d…1444 at0013 = ╱59╱Y╱ // 0x1440 @0x13
0x142d…1444 at0014 = ╱ef╱$╱ // 0x1441 @0x14
0x142d…1444 at0015 = ╱ee╱)╱ // 0x1442 @0x15
0x142d…1444 at0016 = EOL // 0x1443 @0x16
0x142d…1444 }
0x1444…1465 aa53 2040 IF "/" + OUT_WAY$ + "/" IN "/S/P/" THEN
0x1444…1465 LineComal80 {
0x1444…1465 ptr = 0xaa53 // 0x1444 @0x0
0x1444…1465 lno = 0x07f8 // 0x1446 @0x2
0x1444…1465 at0004 = ╱9b1ed7╱ IF ╱ // 0x1448 @0x4
0x1444…1465 at0007 = ╱22╱"╱ // 0x144b @0x7
0x1444…1465 at0008 = ╱2f╱/╱ // 0x144c @0x8
0x1444…1465 at0009 = ╱22╱"╱ // 0x144d @0x9
0x1444…1465 at000a = ╱eb╱ + ╱ // 0x144e @0xa
0x1444…1465 at000b = ╱4f╱O╱ // 0x144f @0xb
0x1444…1465 at000c = ╱55╱U╱ // 0x1450 @0xc
0x1444…1465 at000d = ╱54╱T╱ // 0x1451 @0xd
0x1444…1465 at000e = ╱5f╱_╱ // 0x1452 @0xe
0x1444…1465 at000f = ╱57╱W╱ // 0x1453 @0xf
0x1444…1465 at0010 = ╱41╱A╱ // 0x1454 @0x10
0x1444…1465 at0011 = ╱59╱Y╱ // 0x1455 @0x11
0x1444…1465 at0012 = ╱ef╱$╱ // 0x1456 @0x12
0x1444…1465 at0013 = ╱eb╱ + ╱ // 0x1457 @0x13
0x1444…1465 at0014 = ╱22╱"╱ // 0x1458 @0x14
0x1444…1465 at0015 = ╱2f╱/╱ // 0x1459 @0x15
0x1444…1465 at0016 = ╱22╱"╱ // 0x145a @0x16
0x1444…1465 at0017 = ╱dc╱ IN ╱ // 0x145b @0x17
0x1444…1465 at0018 = ╱22╱"╱ // 0x145c @0x18
0x1444…1465 at0019 = ╱2f╱/╱ // 0x145d @0x19
0x1444…1465 at001a = ╱53╱S╱ // 0x145e @0x1a
0x1444…1465 at001b = ╱2f╱/╱ // 0x145f @0x1b
0x1444…1465 at001c = ╱50╱P╱ // 0x1460 @0x1c
0x1444…1465 at001d = ╱2f╱/╱ // 0x1461 @0x1d
0x1444…1465 at001e = ╱22╱"╱ // 0x1462 @0x1e
0x1444…1465 at001f = ╱b5╱ THEN ╱ // 0x1463 @0x1f
0x1444…1465 at0020 = EOL // 0x1464 @0x20
0x1444…1465 }
0x1465…148e aa7c 2050 EXEC FEJL("Ukendt svar: '" + OUT_WAY$ + "'")
0x1465…148e LineComal80 {
0x1465…148e ptr = 0xaa7c // 0x1465 @0x0
0x1465…148e lno = 0x0802 // 0x1467 @0x2
0x1465…148e at0004 = ╱9d╱ EXEC ╱ // 0x1469 @0x4
0x1465…148e at0005 = ╱46╱F╱ // 0x146a @0x5
0x1465…148e at0006 = ╱45╱E╱ // 0x146b @0x6
0x1465…148e at0007 = ╱4a╱J╱ // 0x146c @0x7
0x1465…148e at0008 = ╱4c╱L╱ // 0x146d @0x8
0x1465…148e at0009 = ╱ed╱(╱ // 0x146e @0x9
0x1465…148e at000a = ╱22╱"╱ // 0x146f @0xa
0x1465…148e at000b = ╱55╱U╱ // 0x1470 @0xb
0x1465…148e at000c = ╱6b╱k╱ // 0x1471 @0xc
0x1465…148e at000d = ╱65╱e╱ // 0x1472 @0xd
0x1465…148e at000e = ╱6e╱n╱ // 0x1473 @0xe
0x1465…148e at000f = ╱64╱d╱ // 0x1474 @0xf
0x1465…148e at0010 = ╱74╱t╱ // 0x1475 @0x10
0x1465…148e at0011 = ╱20╱…╱ // 0x1476 @0x11
0x1465…148e at0012 = ╱73╱s╱ // 0x1477 @0x12
0x1465…148e at0013 = ╱76╱v╱ // 0x1478 @0x13
0x1465…148e at0014 = ╱61╱a╱ // 0x1479 @0x14
0x1465…148e at0015 = ╱72╱r╱ // 0x147a @0x15
0x1465…148e at0016 = ╱3a╱:╱ // 0x147b @0x16
0x1465…148e at0017 = ╱20╱…╱ // 0x147c @0x17
0x1465…148e at0018 = ╱27╱'╱ // 0x147d @0x18
0x1465…148e at0019 = ╱22╱"╱ // 0x147e @0x19
0x1465…148e at001a = ╱eb╱ + ╱ // 0x147f @0x1a
0x1465…148e at001b = ╱4f╱O╱ // 0x1480 @0x1b
0x1465…148e at001c = ╱55╱U╱ // 0x1481 @0x1c
0x1465…148e at001d = ╱54╱T╱ // 0x1482 @0x1d
0x1465…148e at001e = ╱5f╱_╱ // 0x1483 @0x1e
0x1465…148e at001f = ╱57╱W╱ // 0x1484 @0x1f
0x1465…148e at0020 = ╱41╱A╱ // 0x1485 @0x20
0x1465…148e at0021 = ╱59╱Y╱ // 0x1486 @0x21
0x1465…148e at0022 = ╱ef╱$╱ // 0x1487 @0x22
0x1465…148e at0023 = ╱eb╱ + ╱ // 0x1488 @0x23
0x1465…148e at0024 = ╱22╱"╱ // 0x1489 @0x24
0x1465…148e at0025 = ╱27╱'╱ // 0x148a @0x25
0x1465…148e at0026 = ╱22╱"╱ // 0x148b @0x26
0x1465…148e at0027 = ╱ee╱)╱ // 0x148c @0x27
0x1465…148e at0028 = EOL // 0x148d @0x28
0x1465…148e }
0x148e…1494 aa82 2060 ENDIF
0x148e…1494 LineComal80 {
0x148e…1494 ptr = 0xaa82 // 0x148e @0x0
0x148e…1494 lno = 0x080c // 0x1490 @0x2
0x148e…1494 at0004 = ╱9c╱ ENDIF ╱ // 0x1492 @0x4
0x148e…1494 at0005 = EOL // 0x1493 @0x5
0x148e…1494 }
0x1494…149c d117 2070 UNTIL OK
0x1494…149c LineComal80 {
0x1494…149c ptr = 0xd117 // 0x1494 @0x0
0x1494…149c lno = 0x0816 // 0x1496 @0x2
0x1494…149c at0004 = ╱98╱ UNTIL ╱ // 0x1498 @0x4
0x1494…149c at0005 = ╱4f╱O╱ // 0x1499 @0x5
0x1494…149c at0006 = ╱4b╱K╱ // 0x149a @0x6
0x1494…149c at0007 = EOL // 0x149b @0x7
0x1494…149c }
0x149c…14a9 aa97 2090 EXEC UDSKRIV
0x149c…14a9 LineComal80 {
0x149c…14a9 ptr = 0xaa97 // 0x149c @0x0
0x149c…14a9 lno = 0x082a // 0x149e @0x2
0x149c…14a9 at0004 = ╱9d╱ EXEC ╱ // 0x14a0 @0x4
0x149c…14a9 at0005 = ╱55╱U╱ // 0x14a1 @0x5
0x149c…14a9 at0006 = ╱44╱D╱ // 0x14a2 @0x6
0x149c…14a9 at0007 = ╱53╱S╱ // 0x14a3 @0x7
0x149c…14a9 at0008 = ╱4b╱K╱ // 0x14a4 @0x8
0x149c…14a9 at0009 = ╱52╱R╱ // 0x14a5 @0x9
0x149c…14a9 at000a = ╱49╱I╱ // 0x14a6 @0xa
0x149c…14a9 at000b = ╱56╱V╱ // 0x14a7 @0xb
0x149c…14a9 at000c = EOL // 0x14a8 @0xc
0x149c…14a9 }
0x14a9…14af aa9d 2100 CLEAR
0x14a9…14af LineComal80 {
0x14a9…14af ptr = 0xaa9d // 0x14a9 @0x0
0x14a9…14af lno = 0x0834 // 0x14ab @0x2
0x14a9…14af at0004 = ╱a0╱ CLEAR ╱ // 0x14ad @0x4
0x14a9…14af at0005 = EOL // 0x14ae @0x5
0x14a9…14af }
0x14af…14be aaac 2110 LET SVAR$ := "n"
0x14af…14be LineComal80 {
0x14af…14be ptr = 0xaaac // 0x14af @0x0
0x14af…14be lno = 0x083e // 0x14b1 @0x2
0x14af…14be at0004 = ╱86╱ LET ╱ // 0x14b3 @0x4
0x14af…14be at0005 = ╱53╱S╱ // 0x14b4 @0x5
0x14af…14be at0006 = ╱56╱V╱ // 0x14b5 @0x6
0x14af…14be at0007 = ╱41╱A╱ // 0x14b6 @0x7
0x14af…14be at0008 = ╱52╱R╱ // 0x14b7 @0x8
0x14af…14be at0009 = ╱ef╱$╱ // 0x14b8 @0x9
0x14af…14be at000a = ╱f0╱ := ╱ // 0x14b9 @0xa
0x14af…14be at000b = ╱22╱"╱ // 0x14ba @0xb
0x14af…14be at000c = ╱6e╱n╱ // 0x14bb @0xc
0x14af…14be at000d = ╱22╱"╱ // 0x14bc @0xd
0x14af…14be at000e = EOL // 0x14bd @0xe
0x14af…14be }
0x14be…14ff aaed 2120 EDIT "<C2012>Udskrivning af flere kontokort (j/n)? " : SVAR$(1)
0x14be…14ff LineComal80 {
0x14be…14ff ptr = 0xaaed // 0x14be @0x0
0x14be…14ff lno = 0x0848 // 0x14c0 @0x2
0x14be…14ff at0004 = ╱b1╱ EDIT ╱ // 0x14c2 @0x4
0x14be…14ff at0005 = ╱22╱"╱ // 0x14c3 @0x5
0x14be…14ff at0006 = ╱3c╱<╱ // 0x14c4 @0x6
0x14be…14ff at0007 = ╱43╱C╱ // 0x14c5 @0x7
0x14be…14ff at0008 = ╱32╱2╱ // 0x14c6 @0x8
0x14be…14ff at0009 = ╱30╱0╱ // 0x14c7 @0x9
0x14be…14ff at000a = ╱31╱1╱ // 0x14c8 @0xa
0x14be…14ff at000b = ╱32╱2╱ // 0x14c9 @0xb
0x14be…14ff at000c = ╱3e╱>╱ // 0x14ca @0xc
0x14be…14ff at000d = ╱55╱U╱ // 0x14cb @0xd
0x14be…14ff at000e = ╱64╱d╱ // 0x14cc @0xe
0x14be…14ff at000f = ╱73╱s╱ // 0x14cd @0xf
0x14be…14ff at0010 = ╱6b╱k╱ // 0x14ce @0x10
0x14be…14ff at0011 = ╱72╱r╱ // 0x14cf @0x11
0x14be…14ff at0012 = ╱69╱i╱ // 0x14d0 @0x12
0x14be…14ff at0013 = ╱76╱v╱ // 0x14d1 @0x13
0x14be…14ff at0014 = ╱6e╱n╱ // 0x14d2 @0x14
0x14be…14ff at0015 = ╱69╱i╱ // 0x14d3 @0x15
0x14be…14ff at0016 = ╱6e╱n╱ // 0x14d4 @0x16
0x14be…14ff at0017 = ╱67╱g╱ // 0x14d5 @0x17
0x14be…14ff at0018 = ╱20╱…╱ // 0x14d6 @0x18
0x14be…14ff at0019 = ╱61╱a╱ // 0x14d7 @0x19
0x14be…14ff at001a = ╱66╱f╱ // 0x14d8 @0x1a
0x14be…14ff at001b = ╱20╱…╱ // 0x14d9 @0x1b
0x14be…14ff at001c = ╱66╱f╱ // 0x14da @0x1c
0x14be…14ff at001d = ╱6c╱l╱ // 0x14db @0x1d
0x14be…14ff at001e = ╱65╱e╱ // 0x14dc @0x1e
0x14be…14ff at001f = ╱72╱r╱ // 0x14dd @0x1f
0x14be…14ff at0020 = ╱65╱e╱ // 0x14de @0x20
0x14be…14ff at0021 = ╱20╱…╱ // 0x14df @0x21
0x14be…14ff at0022 = ╱6b╱k╱ // 0x14e0 @0x22
0x14be…14ff at0023 = ╱6f╱o╱ // 0x14e1 @0x23
0x14be…14ff at0024 = ╱6e╱n╱ // 0x14e2 @0x24
0x14be…14ff at0025 = ╱74╱t╱ // 0x14e3 @0x25
0x14be…14ff at0026 = ╱6f╱o╱ // 0x14e4 @0x26
0x14be…14ff at0027 = ╱6b╱k╱ // 0x14e5 @0x27
0x14be…14ff at0028 = ╱6f╱o╱ // 0x14e6 @0x28
0x14be…14ff at0029 = ╱72╱r╱ // 0x14e7 @0x29
0x14be…14ff at002a = ╱74╱t╱ // 0x14e8 @0x2a
0x14be…14ff at002b = ╱20╱…╱ // 0x14e9 @0x2b
0x14be…14ff at002c = ╱28╱(╱ // 0x14ea @0x2c
0x14be…14ff at002d = ╱6a╱j╱ // 0x14eb @0x2d
0x14be…14ff at002e = ╱2f╱/╱ // 0x14ec @0x2e
0x14be…14ff at002f = ╱6e╱n╱ // 0x14ed @0x2f
0x14be…14ff at0030 = ╱29╱)╱ // 0x14ee @0x30
0x14be…14ff at0031 = ╱3f╱?╱ // 0x14ef @0x31
0x14be…14ff at0032 = ╱20╱…╱ // 0x14f0 @0x32
0x14be…14ff at0033 = ╱22╱"╱ // 0x14f1 @0x33
0x14be…14ff at0034 = ╱f1╱ : ╱ // 0x14f2 @0x34
0x14be…14ff at0035 = ╱53╱S╱ // 0x14f3 @0x35
0x14be…14ff at0036 = ╱56╱V╱ // 0x14f4 @0x36
0x14be…14ff at0037 = ╱41╱A╱ // 0x14f5 @0x37
0x14be…14ff at0038 = ╱52╱R╱ // 0x14f6 @0x38
0x14be…14ff at0039 = ╱ef╱$╱ // 0x14f7 @0x39
0x14be…14ff at003a = ╱ed╱(╱ // 0x14f8 @0x3a
0x14be…14ff at003b = ╱31╱1╱ // 0x14f9 @0x3b
0x14be…14ff at003c = ╱f20100╱ // 0x14fa @0x3c
0x14be…14ff at003f = ╱ee╱)╱ // 0x14fd @0x3f
0x14be…14ff at0040 = EOL // 0x14fe @0x40
0x14be…14ff }
0x14ff…151b ab09 2130 UNTIL NOT "/" + SVAR$ + "/" IN "/J/j/"
0x14ff…151b LineComal80 {
0x14ff…151b ptr = 0xab09 // 0x14ff @0x0
0x14ff…151b lno = 0x0852 // 0x1501 @0x2
0x14ff…151b at0004 = ╱98╱ UNTIL ╱ // 0x1503 @0x4
0x14ff…151b at0005 = ╱d7╱ NOT ╱ // 0x1504 @0x5
0x14ff…151b at0006 = ╱22╱"╱ // 0x1505 @0x6
0x14ff…151b at0007 = ╱2f╱/╱ // 0x1506 @0x7
0x14ff…151b at0008 = ╱22╱"╱ // 0x1507 @0x8
0x14ff…151b at0009 = ╱eb╱ + ╱ // 0x1508 @0x9
0x14ff…151b at000a = ╱53╱S╱ // 0x1509 @0xa
0x14ff…151b at000b = ╱56╱V╱ // 0x150a @0xb
0x14ff…151b at000c = ╱41╱A╱ // 0x150b @0xc
0x14ff…151b at000d = ╱52╱R╱ // 0x150c @0xd
0x14ff…151b at000e = ╱ef╱$╱ // 0x150d @0xe
0x14ff…151b at000f = ╱eb╱ + ╱ // 0x150e @0xf
0x14ff…151b at0010 = ╱22╱"╱ // 0x150f @0x10
0x14ff…151b at0011 = ╱2f╱/╱ // 0x1510 @0x11
0x14ff…151b at0012 = ╱22╱"╱ // 0x1511 @0x12
0x14ff…151b at0013 = ╱dc╱ IN ╱ // 0x1512 @0x13
0x14ff…151b at0014 = ╱22╱"╱ // 0x1513 @0x14
0x14ff…151b at0015 = ╱2f╱/╱ // 0x1514 @0x15
0x14ff…151b at0016 = ╱4a╱J╱ // 0x1515 @0x16
0x14ff…151b at0017 = ╱2f╱/╱ // 0x1516 @0x17
0x14ff…151b at0018 = ╱6a╱j╱ // 0x1517 @0x18
0x14ff…151b at0019 = ╱2f╱/╱ // 0x1518 @0x19
0x14ff…151b at001a = ╱22╱"╱ // 0x1519 @0x1a
0x14ff…151b at001b = EOL // 0x151a @0x1b
0x14ff…151b }
0x151b…1529 ab17 2140 ENDPROC FKT_MENU
0x151b…1529 LineComal80 {
0x151b…1529 ptr = 0xab17 // 0x151b @0x0
0x151b…1529 lno = 0x085c // 0x151d @0x2
0x151b…1529 at0004 = ╱9f╱ ENDPROC ╱ // 0x151f @0x4
0x151b…1529 at0005 = ╱46╱F╱ // 0x1520 @0x5
0x151b…1529 at0006 = ╱4b╱K╱ // 0x1521 @0x6
0x151b…1529 at0007 = ╱54╱T╱ // 0x1522 @0x7
0x151b…1529 at0008 = ╱5f╱_╱ // 0x1523 @0x8
0x151b…1529 at0009 = ╱4d╱M╱ // 0x1524 @0x9
0x151b…1529 at000a = ╱45╱E╱ // 0x1525 @0xa
0x151b…1529 at000b = ╱4e╱N╱ // 0x1526 @0xb
0x151b…1529 at000c = ╱55╱U╱ // 0x1527 @0xc
0x151b…1529 at000d = EOL // 0x1528 @0xd
0x151b…1529 }
0x1529…152e ab1c 2150
0x1529…152e LineComal80 {
0x1529…152e ptr = 0xab1c // 0x1529 @0x0
0x1529…152e lno = 0x0866 // 0x152b @0x2
0x1529…152e at0004 = EOL // 0x152d @0x4
0x1529…152e }
0x152e…153c ab2a 2160 PROC UDSKRIV
0x152e…153c LineComal80 {
0x152e…153c ptr = 0xab2a // 0x152e @0x0
0x152e…153c lno = 0x0870 // 0x1530 @0x2
0x152e…153c at0004 = ╱9e1f╱ PROC ╱ // 0x1532 @0x4
0x152e…153c at0006 = ╱55╱U╱ // 0x1534 @0x6
0x152e…153c at0007 = ╱44╱D╱ // 0x1535 @0x7
0x152e…153c at0008 = ╱53╱S╱ // 0x1536 @0x8
0x152e…153c at0009 = ╱4b╱K╱ // 0x1537 @0x9
0x152e…153c at000a = ╱52╱R╱ // 0x1538 @0xa
0x152e…153c at000b = ╱49╱I╱ // 0x1539 @0xb
0x152e…153c at000c = ╱56╱V╱ // 0x153a @0xc
0x152e…153c at000d = EOL // 0x153b @0xd
0x152e…153c }
0x153c…1550 d09d 2170 IF UT_WAY$ = "P" THEN
0x153c…1550 LineComal80 {
0x153c…1550 ptr = 0xd09d // 0x153c @0x0
0x153c…1550 lno = 0x087a // 0x153e @0x2
0x153c…1550 at0004 = ╱9b204f╱ IF ╱ // 0x1540 @0x4
0x153c…1550 at0007 = ╱55╱U╱ // 0x1543 @0x7
0x153c…1550 at0008 = ╱54╱T╱ // 0x1544 @0x8
0x153c…1550 at0009 = ╱5f╱_╱ // 0x1545 @0x9
0x153c…1550 at000a = ╱57╱W╱ // 0x1546 @0xa
0x153c…1550 at000b = ╱41╱A╱ // 0x1547 @0xb
0x153c…1550 at000c = ╱59╱Y╱ // 0x1548 @0xc
0x153c…1550 at000d = ╱ef╱$╱ // 0x1549 @0xd
0x153c…1550 at000e = ╱df╱ = ╱ // 0x154a @0xe
0x153c…1550 at000f = ╱22╱"╱ // 0x154b @0xf
0x153c…1550 at0010 = ╱50╱P╱ // 0x154c @0x10
0x153c…1550 at0011 = ╱22╱"╱ // 0x154d @0x11
0x153c…1550 at0012 = ╱b5╱ THEN ╱ // 0x154e @0x12
0x153c…1550 at0013 = EOL // 0x154f @0x13
0x153c…1550 }
0x1550…1576 ab64 2170 EXEC PRINTRES("smal EDB-liste",16)
0x1550…1576 LineComal80 {
0x1550…1576 ptr = 0xab64 // 0x1550 @0x0
0x1550…1576 lno = 0x087a // 0x1552 @0x2
0x1550…1576 at0004 = ╱9d╱ EXEC ╱ // 0x1554 @0x4
0x1550…1576 at0005 = ╱50╱P╱ // 0x1555 @0x5
0x1550…1576 at0006 = ╱52╱R╱ // 0x1556 @0x6
0x1550…1576 at0007 = ╱49╱I╱ // 0x1557 @0x7
0x1550…1576 at0008 = ╱4e╱N╱ // 0x1558 @0x8
0x1550…1576 at0009 = ╱54╱T╱ // 0x1559 @0x9
0x1550…1576 at000a = ╱52╱R╱ // 0x155a @0xa
0x1550…1576 at000b = ╱45╱E╱ // 0x155b @0xb
0x1550…1576 at000c = ╱53╱S╱ // 0x155c @0xc
0x1550…1576 at000d = ╱ed╱(╱ // 0x155d @0xd
0x1550…1576 at000e = ╱22╱"╱ // 0x155e @0xe
0x1550…1576 at000f = ╱73╱s╱ // 0x155f @0xf
0x1550…1576 at0010 = ╱6d╱m╱ // 0x1560 @0x10
0x1550…1576 at0011 = ╱61╱a╱ // 0x1561 @0x11
0x1550…1576 at0012 = ╱6c╱l╱ // 0x1562 @0x12
0x1550…1576 at0013 = ╱20╱…╱ // 0x1563 @0x13
0x1550…1576 at0014 = ╱45╱E╱ // 0x1564 @0x14
0x1550…1576 at0015 = ╱44╱D╱ // 0x1565 @0x15
0x1550…1576 at0016 = ╱42╱B╱ // 0x1566 @0x16
0x1550…1576 at0017 = ╱2d╱-╱ // 0x1567 @0x17
0x1550…1576 at0018 = ╱6c╱l╱ // 0x1568 @0x18
0x1550…1576 at0019 = ╱69╱i╱ // 0x1569 @0x19
0x1550…1576 at001a = ╱73╱s╱ // 0x156a @0x1a
0x1550…1576 at001b = ╱74╱t╱ // 0x156b @0x1b
0x1550…1576 at001c = ╱65╱e╱ // 0x156c @0x1c
0x1550…1576 at001d = ╱22╱"╱ // 0x156d @0x1d
0x1550…1576 at001e = ╱ec╱,╱ // 0x156e @0x1e
0x1550…1576 at001f = ╱31╱1╱ // 0x156f @0x1f
0x1550…1576 at0020 = ╱36╱6╱ // 0x1570 @0x20
0x1550…1576 at0021 = ╱f21000╱ // 0x1571 @0x21
0x1550…1576 at0024 = ╱ee╱)╱ // 0x1574 @0x24
0x1550…1576 at0025 = EOL // 0x1575 @0x25
0x1550…1576 }
0x1576…1589 ab77 2190 LET MAX_LIN := 36
0x1576…1589 LineComal80 {
0x1576…1589 ptr = 0xab77 // 0x1576 @0x0
0x1576…1589 lno = 0x088e // 0x1578 @0x2
0x1576…1589 at0004 = ╱86╱ LET ╱ // 0x157a @0x4
0x1576…1589 at0005 = ╱4d╱M╱ // 0x157b @0x5
0x1576…1589 at0006 = ╱41╱A╱ // 0x157c @0x6
0x1576…1589 at0007 = ╱58╱X╱ // 0x157d @0x7
0x1576…1589 at0008 = ╱5f╱_╱ // 0x157e @0x8
0x1576…1589 at0009 = ╱4c╱L╱ // 0x157f @0x9
0x1576…1589 at000a = ╱49╱I╱ // 0x1580 @0xa
0x1576…1589 at000b = ╱4e╱N╱ // 0x1581 @0xb
0x1576…1589 at000c = ╱f0╱ := ╱ // 0x1582 @0xc
0x1576…1589 at000d = ╱33╱3╱ // 0x1583 @0xd
0x1576…1589 at000e = ╱36╱6╱ // 0x1584 @0xe
0x1576…1589 at000f = ╱f22400╱ // 0x1585 @0xf
0x1576…1589 at0012 = EOL // 0x1588 @0x12
0x1576…1589 }
0x1589…1590 ab7e 2200 ELSE
0x1589…1590 LineComal80 {
0x1589…1590 ptr = 0xab7e // 0x1589 @0x0
0x1589…1590 lno = 0x0898 // 0x158b @0x2
0x1589…1590 at0004 = ╱9a21╱ ELSE ╱ // 0x158d @0x4
0x1589…1590 at0006 = EOL // 0x158f @0x6
0x1589…1590 }
0x1590…15a3 ab91 2210 LET MAX_LIN := 24
0x1590…15a3 LineComal80 {
0x1590…15a3 ptr = 0xab91 // 0x1590 @0x0
0x1590…15a3 lno = 0x08a2 // 0x1592 @0x2
0x1590…15a3 at0004 = ╱86╱ LET ╱ // 0x1594 @0x4
0x1590…15a3 at0005 = ╱4d╱M╱ // 0x1595 @0x5
0x1590…15a3 at0006 = ╱41╱A╱ // 0x1596 @0x6
0x1590…15a3 at0007 = ╱58╱X╱ // 0x1597 @0x7
0x1590…15a3 at0008 = ╱5f╱_╱ // 0x1598 @0x8
0x1590…15a3 at0009 = ╱4c╱L╱ // 0x1599 @0x9
0x1590…15a3 at000a = ╱49╱I╱ // 0x159a @0xa
0x1590…15a3 at000b = ╱4e╱N╱ // 0x159b @0xb
0x1590…15a3 at000c = ╱f0╱ := ╱ // 0x159c @0xc
0x1590…15a3 at000d = ╱32╱2╱ // 0x159d @0xd
0x1590…15a3 at000e = ╱34╱4╱ // 0x159e @0xe
0x1590…15a3 at000f = ╱f21800╱ // 0x159f @0xf
0x1590…15a3 at0012 = EOL // 0x15a2 @0x12
0x1590…15a3 }
0x15a3…15a9 ab97 2220 ENDIF
0x15a3…15a9 LineComal80 {
0x15a3…15a9 ptr = 0xab97 // 0x15a3 @0x0
0x15a3…15a9 lno = 0x08ac // 0x15a5 @0x2
0x15a3…15a9 at0004 = ╱9c╱ ENDIF ╱ // 0x15a7 @0x4
0x15a3…15a9 at0005 = EOL // 0x15a8 @0x5
0x15a3…15a9 }
0x15a9…15c3 abb1 2230 FOR IDXPOS := F_IDX TO _IDX DO
0x15a9…15c3 LineComal80 {
0x15a9…15c3 ptr = 0xabb1 // 0x15a9 @0x0
0x15a9…15c3 lno = 0x08b6 // 0x15ab @0x2
0x15a9…15c3 at0004 = ╱8322╱ FOR ╱ // 0x15ad @0x4
0x15a9…15c3 at0006 = ╱49╱I╱ // 0x15af @0x6
0x15a9…15c3 at0007 = ╱44╱D╱ // 0x15b0 @0x7
0x15a9…15c3 at0008 = ╱58╱X╱ // 0x15b1 @0x8
0x15a9…15c3 at0009 = ╱50╱P╱ // 0x15b2 @0x9
0x15a9…15c3 at000a = ╱4f╱O╱ // 0x15b3 @0xa
0x15a9…15c3 at000b = ╱53╱S╱ // 0x15b4 @0xb
0x15a9…15c3 at000c = ╱f0╱ := ╱ // 0x15b5 @0xc
0x15a9…15c3 at000d = ╱46╱F╱ // 0x15b6 @0xd
0x15a9…15c3 at000e = ╱5f╱_╱ // 0x15b7 @0xe
0x15a9…15c3 at000f = ╱49╱I╱ // 0x15b8 @0xf
0x15a9…15c3 at0010 = ╱44╱D╱ // 0x15b9 @0x10
0x15a9…15c3 at0011 = ╱58╱X╱ // 0x15ba @0x11
0x15a9…15c3 at0012 = ╱b754╱ TO ╱ // 0x15bb @0x12
0x15a9…15c3 at0014 = ╱5f╱_╱ // 0x15bd @0x14
0x15a9…15c3 at0015 = ╱49╱I╱ // 0x15be @0x15
0x15a9…15c3 at0016 = ╱44╱D╱ // 0x15bf @0x16
0x15a9…15c3 at0017 = ╱58╱X╱ // 0x15c0 @0x17
0x15a9…15c3 at0018 = ╱bb╱ DO ╱ // 0x15c1 @0x18
0x15a9…15c3 at0019 = EOL // 0x15c2 @0x19
0x15a9…15c3 }
0x15c3…15f9 abe7 2240 LET SIDENR := 0 ; TOT(1),TOT(2) := 0 ; LIN_T := 40
0x15c3…15f9 LineComal80 {
0x15c3…15f9 ptr = 0xabe7 // 0x15c3 @0x0
0x15c3…15f9 lno = 0x08c0 // 0x15c5 @0x2
0x15c3…15f9 at0004 = ╱86╱ LET ╱ // 0x15c7 @0x4
0x15c3…15f9 at0005 = ╱53╱S╱ // 0x15c8 @0x5
0x15c3…15f9 at0006 = ╱49╱I╱ // 0x15c9 @0x6
0x15c3…15f9 at0007 = ╱44╱D╱ // 0x15ca @0x7
0x15c3…15f9 at0008 = ╱45╱E╱ // 0x15cb @0x8
0x15c3…15f9 at0009 = ╱4e╱N╱ // 0x15cc @0x9
0x15c3…15f9 at000a = ╱52╱R╱ // 0x15cd @0xa
0x15c3…15f9 at000b = ╱f0╱ := ╱ // 0x15ce @0xb
0x15c3…15f9 at000c = ╱30╱0╱ // 0x15cf @0xc
0x15c3…15f9 at000d = ╱f20000╱ // 0x15d0 @0xd
0x15c3…15f9 at0010 = ╱ea╱ ; ╱ // 0x15d3 @0x10
0x15c3…15f9 at0011 = ╱54╱T╱ // 0x15d4 @0x11
0x15c3…15f9 at0012 = ╱4f╱O╱ // 0x15d5 @0x12
0x15c3…15f9 at0013 = ╱54╱T╱ // 0x15d6 @0x13
0x15c3…15f9 at0014 = ╱ed╱(╱ // 0x15d7 @0x14
0x15c3…15f9 at0015 = ╱31╱1╱ // 0x15d8 @0x15
0x15c3…15f9 at0016 = ╱f20100╱ // 0x15d9 @0x16
0x15c3…15f9 at0019 = ╱ee╱)╱ // 0x15dc @0x19
0x15c3…15f9 at001a = ╱ec╱,╱ // 0x15dd @0x1a
0x15c3…15f9 at001b = ╱54╱T╱ // 0x15de @0x1b
0x15c3…15f9 at001c = ╱4f╱O╱ // 0x15df @0x1c
0x15c3…15f9 at001d = ╱54╱T╱ // 0x15e0 @0x1d
0x15c3…15f9 at001e = ╱ed╱(╱ // 0x15e1 @0x1e
0x15c3…15f9 at001f = ╱32╱2╱ // 0x15e2 @0x1f
0x15c3…15f9 at0020 = ╱f20200╱ // 0x15e3 @0x20
0x15c3…15f9 at0023 = ╱ee╱)╱ // 0x15e6 @0x23
0x15c3…15f9 at0024 = ╱f0╱ := ╱ // 0x15e7 @0x24
0x15c3…15f9 at0025 = ╱30╱0╱ // 0x15e8 @0x25
0x15c3…15f9 at0026 = ╱f20000╱ // 0x15e9 @0x26
0x15c3…15f9 at0029 = ╱ea╱ ; ╱ // 0x15ec @0x29
0x15c3…15f9 at002a = ╱4c╱L╱ // 0x15ed @0x2a
0x15c3…15f9 at002b = ╱49╱I╱ // 0x15ee @0x2b
0x15c3…15f9 at002c = ╱4e╱N╱ // 0x15ef @0x2c
0x15c3…15f9 at002d = ╱5f╱_╱ // 0x15f0 @0x2d
0x15c3…15f9 at002e = ╱54╱T╱ // 0x15f1 @0x2e
0x15c3…15f9 at002f = ╱f0╱ := ╱ // 0x15f2 @0x2f
0x15c3…15f9 at0030 = ╱34╱4╱ // 0x15f3 @0x30
0x15c3…15f9 at0031 = ╱30╱0╱ // 0x15f4 @0x31
0x15c3…15f9 at0032 = ╱f22800╱ // 0x15f5 @0x32
0x15c3…15f9 at0035 = EOL // 0x15f8 @0x35
0x15c3…15f9 }
0x15f9…161a ac08 2250 GET KTOIDX$,IDXPOS : KTONR$,RECNR
0x15f9…161a LineComal80 {
0x15f9…161a ptr = 0xac08 // 0x15f9 @0x0
0x15f9…161a lno = 0x08ca // 0x15fb @0x2
0x15f9…161a at0004 = ╱a9╱ GET ╱ // 0x15fd @0x4
0x15f9…161a at0005 = ╱4b╱K╱ // 0x15fe @0x5
0x15f9…161a at0006 = ╱54╱T╱ // 0x15ff @0x6
0x15f9…161a at0007 = ╱4f╱O╱ // 0x1600 @0x7
0x15f9…161a at0008 = ╱49╱I╱ // 0x1601 @0x8
0x15f9…161a at0009 = ╱44╱D╱ // 0x1602 @0x9
0x15f9…161a at000a = ╱58╱X╱ // 0x1603 @0xa
0x15f9…161a at000b = ╱ef╱$╱ // 0x1604 @0xb
0x15f9…161a at000c = ╱ec╱,╱ // 0x1605 @0xc
0x15f9…161a at000d = ╱49╱I╱ // 0x1606 @0xd
0x15f9…161a at000e = ╱44╱D╱ // 0x1607 @0xe
0x15f9…161a at000f = ╱58╱X╱ // 0x1608 @0xf
0x15f9…161a at0010 = ╱50╱P╱ // 0x1609 @0x10
0x15f9…161a at0011 = ╱4f╱O╱ // 0x160a @0x11
0x15f9…161a at0012 = ╱53╱S╱ // 0x160b @0x12
0x15f9…161a at0013 = ╱f1╱ : ╱ // 0x160c @0x13
0x15f9…161a at0014 = ╱4b╱K╱ // 0x160d @0x14
0x15f9…161a at0015 = ╱54╱T╱ // 0x160e @0x15
0x15f9…161a at0016 = ╱4f╱O╱ // 0x160f @0x16
0x15f9…161a at0017 = ╱4e╱N╱ // 0x1610 @0x17
0x15f9…161a at0018 = ╱52╱R╱ // 0x1611 @0x18
0x15f9…161a at0019 = ╱ef╱$╱ // 0x1612 @0x19
0x15f9…161a at001a = ╱ec╱,╱ // 0x1613 @0x1a
0x15f9…161a at001b = ╱52╱R╱ // 0x1614 @0x1b
0x15f9…161a at001c = ╱45╱E╱ // 0x1615 @0x1c
0x15f9…161a at001d = ╱43╱C╱ // 0x1616 @0x1d
0x15f9…161a at001e = ╱4e╱N╱ // 0x1617 @0x1e
0x15f9…161a at001f = ╱52╱R╱ // 0x1618 @0x1f
0x15f9…161a at0020 = EOL // 0x1619 @0x20
0x15f9…161a }
0x161a…1630 ac1e 2260 EXEC LÆS_KONTO(RECNR)
0x161a…1630 LineComal80 {
0x161a…1630 ptr = 0xac1e // 0x161a @0x0
0x161a…1630 lno = 0x08d4 // 0x161c @0x2
0x161a…1630 at0004 = ╱9d╱ EXEC ╱ // 0x161e @0x4
0x161a…1630 at0005 = ╱4c╱L╱ // 0x161f @0x5
0x161a…1630 at0006 = ╱5b╱Æ╱ // 0x1620 @0x6
0x161a…1630 at0007 = ╱53╱S╱ // 0x1621 @0x7
0x161a…1630 at0008 = ╱5f╱_╱ // 0x1622 @0x8
0x161a…1630 at0009 = ╱4b╱K╱ // 0x1623 @0x9
0x161a…1630 at000a = ╱4f╱O╱ // 0x1624 @0xa
0x161a…1630 at000b = ╱4e╱N╱ // 0x1625 @0xb
0x161a…1630 at000c = ╱54╱T╱ // 0x1626 @0xc
0x161a…1630 at000d = ╱4f╱O╱ // 0x1627 @0xd
0x161a…1630 at000e = ╱ed╱(╱ // 0x1628 @0xe
0x161a…1630 at000f = ╱52╱R╱ // 0x1629 @0xf
0x161a…1630 at0010 = ╱45╱E╱ // 0x162a @0x10
0x161a…1630 at0011 = ╱43╱C╱ // 0x162b @0x11
0x161a…1630 at0012 = ╱4e╱N╱ // 0x162c @0x12
0x161a…1630 at0013 = ╱52╱R╱ // 0x162d @0x13
0x161a…1630 at0014 = ╱ee╱)╱ // 0x162e @0x14
0x161a…1630 at0015 = EOL // 0x162f @0x15
0x161a…1630 }
0x1630…1645 bd1e 2270 IF TO_TYPE$ = "A" THEN
0x1630…1645 LineComal80 {
0x1630…1645 ptr = 0xbd1e // 0x1630 @0x0
0x1630…1645 lno = 0x08de // 0x1632 @0x2
0x1630…1645 at0004 = ╱9b234b╱ IF ╱ // 0x1634 @0x4
0x1630…1645 at0007 = ╱54╱T╱ // 0x1637 @0x7
0x1630…1645 at0008 = ╱4f╱O╱ // 0x1638 @0x8
0x1630…1645 at0009 = ╱5f╱_╱ // 0x1639 @0x9
0x1630…1645 at000a = ╱54╱T╱ // 0x163a @0xa
0x1630…1645 at000b = ╱59╱Y╱ // 0x163b @0xb
0x1630…1645 at000c = ╱50╱P╱ // 0x163c @0xc
0x1630…1645 at000d = ╱45╱E╱ // 0x163d @0xd
0x1630…1645 at000e = ╱ef╱$╱ // 0x163e @0xe
0x1630…1645 at000f = ╱df╱ = ╱ // 0x163f @0xf
0x1630…1645 at0010 = ╱22╱"╱ // 0x1640 @0x10
0x1630…1645 at0011 = ╱41╱A╱ // 0x1641 @0x11
0x1630…1645 at0012 = ╱22╱"╱ // 0x1642 @0x12
0x1630…1645 at0013 = ╱b5╱ THEN ╱ // 0x1643 @0x13
0x1630…1645 at0014 = EOL // 0x1644 @0x14
0x1630…1645 }
0x1645…166b ac59 2270 LET BLGNR$ := " " ; BTXT$ := "GAMMEL SALDO"
0x1645…166b LineComal80 {
0x1645…166b ptr = 0xac59 // 0x1645 @0x0
0x1645…166b lno = 0x08de // 0x1647 @0x2
0x1645…166b at0004 = ╱86╱ LET ╱ // 0x1649 @0x4
0x1645…166b at0005 = ╱42╱B╱ // 0x164a @0x5
0x1645…166b at0006 = ╱4c╱L╱ // 0x164b @0x6
0x1645…166b at0007 = ╱47╱G╱ // 0x164c @0x7
0x1645…166b at0008 = ╱4e╱N╱ // 0x164d @0x8
0x1645…166b at0009 = ╱52╱R╱ // 0x164e @0x9
0x1645…166b at000a = ╱ef╱$╱ // 0x164f @0xa
0x1645…166b at000b = ╱f0╱ := ╱ // 0x1650 @0xb
0x1645…166b at000c = ╱22╱"╱ // 0x1651 @0xc
0x1645…166b at000d = ╱20╱…╱ // 0x1652 @0xd
0x1645…166b at000e = ╱20╱…╱ // 0x1653 @0xe
0x1645…166b at000f = ╱22╱"╱ // 0x1654 @0xf
0x1645…166b at0010 = ╱ea╱ ; ╱ // 0x1655 @0x10
0x1645…166b at0011 = ╱42╱B╱ // 0x1656 @0x11
0x1645…166b at0012 = ╱54╱T╱ // 0x1657 @0x12
0x1645…166b at0013 = ╱58╱X╱ // 0x1658 @0x13
0x1645…166b at0014 = ╱54╱T╱ // 0x1659 @0x14
0x1645…166b at0015 = ╱ef╱$╱ // 0x165a @0x15
0x1645…166b at0016 = ╱f0╱ := ╱ // 0x165b @0x16
0x1645…166b at0017 = ╱22╱"╱ // 0x165c @0x17
0x1645…166b at0018 = ╱47╱G╱ // 0x165d @0x18
0x1645…166b at0019 = ╱41╱A╱ // 0x165e @0x19
0x1645…166b at001a = ╱4d╱M╱ // 0x165f @0x1a
0x1645…166b at001b = ╱4d╱M╱ // 0x1660 @0x1b
0x1645…166b at001c = ╱45╱E╱ // 0x1661 @0x1c
0x1645…166b at001d = ╱4c╱L╱ // 0x1662 @0x1d
0x1645…166b at001e = ╱20╱…╱ // 0x1663 @0x1e
0x1645…166b at001f = ╱53╱S╱ // 0x1664 @0x1f
0x1645…166b at0020 = ╱41╱A╱ // 0x1665 @0x20
0x1645…166b at0021 = ╱4c╱L╱ // 0x1666 @0x21
0x1645…166b at0022 = ╱44╱D╱ // 0x1667 @0x22
0x1645…166b at0023 = ╱4f╱O╱ // 0x1668 @0x23
0x1645…166b at0024 = ╱22╱"╱ // 0x1669 @0x24
0x1645…166b at0025 = EOL // 0x166a @0x25
0x1645…166b }
0x166b…168b ac79 2280 LET BMOMS := 0 ; DK := SGN(KTO_PRIMO)
0x166b…168b LineComal80 {
0x166b…168b ptr = 0xac79 // 0x166b @0x0
0x166b…168b lno = 0x08e8 // 0x166d @0x2
0x166b…168b at0004 = ╱86╱ LET ╱ // 0x166f @0x4
0x166b…168b at0005 = ╱42╱B╱ // 0x1670 @0x5
0x166b…168b at0006 = ╱4d╱M╱ // 0x1671 @0x6
0x166b…168b at0007 = ╱4f╱O╱ // 0x1672 @0x7
0x166b…168b at0008 = ╱4d╱M╱ // 0x1673 @0x8
0x166b…168b at0009 = ╱53╱S╱ // 0x1674 @0x9
0x166b…168b at000a = ╱f0╱ := ╱ // 0x1675 @0xa
0x166b…168b at000b = ╱30╱0╱ // 0x1676 @0xb
0x166b…168b at000c = ╱f20000╱ // 0x1677 @0xc
0x166b…168b at000f = ╱ea╱ ; ╱ // 0x167a @0xf
0x166b…168b at0010 = ╱44╱D╱ // 0x167b @0x10
0x166b…168b at0011 = ╱4b╱K╱ // 0x167c @0x11
0x166b…168b at0012 = ╱f0╱ := ╱ // 0x167d @0x12
0x166b…168b at0013 = ╱c8╱SGN╱ // 0x167e @0x13
0x166b…168b at0014 = ╱ed╱(╱ // 0x167f @0x14
0x166b…168b at0015 = ╱4b╱K╱ // 0x1680 @0x15
0x166b…168b at0016 = ╱54╱T╱ // 0x1681 @0x16
0x166b…168b at0017 = ╱4f╱O╱ // 0x1682 @0x17
0x166b…168b at0018 = ╱5f╱_╱ // 0x1683 @0x18
0x166b…168b at0019 = ╱50╱P╱ // 0x1684 @0x19
0x166b…168b at001a = ╱52╱R╱ // 0x1685 @0x1a
0x166b…168b at001b = ╱49╱I╱ // 0x1686 @0x1b
0x166b…168b at001c = ╱4d╱M╱ // 0x1687 @0x1c
0x166b…168b at001d = ╱4f╱O╱ // 0x1688 @0x1d
0x166b…168b at001e = ╱ee╱)╱ // 0x1689 @0x1e
0x166b…168b at001f = EOL // 0x168a @0x1f
0x166b…168b }
0x168b…16a7 ac95 2300 LET KTO_PRIMO := ABS(KTO_PRIMO)
0x168b…16a7 LineComal80 {
0x168b…16a7 ptr = 0xac95 // 0x168b @0x0
0x168b…16a7 lno = 0x08fc // 0x168d @0x2
0x168b…16a7 at0004 = ╱86╱ LET ╱ // 0x168f @0x4
0x168b…16a7 at0005 = ╱4b╱K╱ // 0x1690 @0x5
0x168b…16a7 at0006 = ╱54╱T╱ // 0x1691 @0x6
0x168b…16a7 at0007 = ╱4f╱O╱ // 0x1692 @0x7
0x168b…16a7 at0008 = ╱5f╱_╱ // 0x1693 @0x8
0x168b…16a7 at0009 = ╱50╱P╱ // 0x1694 @0x9
0x168b…16a7 at000a = ╱52╱R╱ // 0x1695 @0xa
0x168b…16a7 at000b = ╱49╱I╱ // 0x1696 @0xb
0x168b…16a7 at000c = ╱4d╱M╱ // 0x1697 @0xc
0x168b…16a7 at000d = ╱4f╱O╱ // 0x1698 @0xd
0x168b…16a7 at000e = ╱f0╱ := ╱ // 0x1699 @0xe
0x168b…16a7 at000f = ╱c4╱ABS╱ // 0x169a @0xf
0x168b…16a7 at0010 = ╱ed╱(╱ // 0x169b @0x10
0x168b…16a7 at0011 = ╱4b╱K╱ // 0x169c @0x11
0x168b…16a7 at0012 = ╱54╱T╱ // 0x169d @0x12
0x168b…16a7 at0013 = ╱4f╱O╱ // 0x169e @0x13
0x168b…16a7 at0014 = ╱5f╱_╱ // 0x169f @0x14
0x168b…16a7 at0015 = ╱50╱P╱ // 0x16a0 @0x15
0x168b…16a7 at0016 = ╱52╱R╱ // 0x16a1 @0x16
0x168b…16a7 at0017 = ╱49╱I╱ // 0x16a2 @0x17
0x168b…16a7 at0018 = ╱4d╱M╱ // 0x16a3 @0x18
0x168b…16a7 at0019 = ╱4f╱O╱ // 0x16a4 @0x19
0x168b…16a7 at001a = ╱ee╱)╱ // 0x16a5 @0x1a
0x168b…16a7 at001b = EOL // 0x16a6 @0x1b
0x168b…16a7 }
0x16a7…16e0 acce 2310 EXEC SKRIV_LIN(ST_DATO$,BLGNR$,BTXT$,BMOMS,KTO_PRIMO,DK)
0x16a7…16e0 LineComal80 {
0x16a7…16e0 ptr = 0xacce // 0x16a7 @0x0
0x16a7…16e0 lno = 0x0906 // 0x16a9 @0x2
0x16a7…16e0 at0004 = ╱9d╱ EXEC ╱ // 0x16ab @0x4
0x16a7…16e0 at0005 = ╱53╱S╱ // 0x16ac @0x5
0x16a7…16e0 at0006 = ╱4b╱K╱ // 0x16ad @0x6
0x16a7…16e0 at0007 = ╱52╱R╱ // 0x16ae @0x7
0x16a7…16e0 at0008 = ╱49╱I╱ // 0x16af @0x8
0x16a7…16e0 at0009 = ╱56╱V╱ // 0x16b0 @0x9
0x16a7…16e0 at000a = ╱5f╱_╱ // 0x16b1 @0xa
0x16a7…16e0 at000b = ╱4c╱L╱ // 0x16b2 @0xb
0x16a7…16e0 at000c = ╱49╱I╱ // 0x16b3 @0xc
0x16a7…16e0 at000d = ╱4e╱N╱ // 0x16b4 @0xd
0x16a7…16e0 at000e = ╱ed╱(╱ // 0x16b5 @0xe
0x16a7…16e0 at000f = ╱53╱S╱ // 0x16b6 @0xf
0x16a7…16e0 at0010 = ╱54╱T╱ // 0x16b7 @0x10
0x16a7…16e0 at0011 = ╱5f╱_╱ // 0x16b8 @0x11
0x16a7…16e0 at0012 = ╱44╱D╱ // 0x16b9 @0x12
0x16a7…16e0 at0013 = ╱41╱A╱ // 0x16ba @0x13
0x16a7…16e0 at0014 = ╱54╱T╱ // 0x16bb @0x14
0x16a7…16e0 at0015 = ╱4f╱O╱ // 0x16bc @0x15
0x16a7…16e0 at0016 = ╱ef╱$╱ // 0x16bd @0x16
0x16a7…16e0 at0017 = ╱ec╱,╱ // 0x16be @0x17
0x16a7…16e0 at0018 = ╱42╱B╱ // 0x16bf @0x18
0x16a7…16e0 at0019 = ╱4c╱L╱ // 0x16c0 @0x19
0x16a7…16e0 at001a = ╱47╱G╱ // 0x16c1 @0x1a
0x16a7…16e0 at001b = ╱4e╱N╱ // 0x16c2 @0x1b
0x16a7…16e0 at001c = ╱52╱R╱ // 0x16c3 @0x1c
0x16a7…16e0 at001d = ╱ef╱$╱ // 0x16c4 @0x1d
0x16a7…16e0 at001e = ╱ec╱,╱ // 0x16c5 @0x1e
0x16a7…16e0 at001f = ╱42╱B╱ // 0x16c6 @0x1f
0x16a7…16e0 at0020 = ╱54╱T╱ // 0x16c7 @0x20
0x16a7…16e0 at0021 = ╱58╱X╱ // 0x16c8 @0x21
0x16a7…16e0 at0022 = ╱54╱T╱ // 0x16c9 @0x22
0x16a7…16e0 at0023 = ╱ef╱$╱ // 0x16ca @0x23
0x16a7…16e0 at0024 = ╱ec╱,╱ // 0x16cb @0x24
0x16a7…16e0 at0025 = ╱42╱B╱ // 0x16cc @0x25
0x16a7…16e0 at0026 = ╱4d╱M╱ // 0x16cd @0x26
0x16a7…16e0 at0027 = ╱4f╱O╱ // 0x16ce @0x27
0x16a7…16e0 at0028 = ╱4d╱M╱ // 0x16cf @0x28
0x16a7…16e0 at0029 = ╱53╱S╱ // 0x16d0 @0x29
0x16a7…16e0 at002a = ╱ec╱,╱ // 0x16d1 @0x2a
0x16a7…16e0 at002b = ╱4b╱K╱ // 0x16d2 @0x2b
0x16a7…16e0 at002c = ╱54╱T╱ // 0x16d3 @0x2c
0x16a7…16e0 at002d = ╱4f╱O╱ // 0x16d4 @0x2d
0x16a7…16e0 at002e = ╱5f╱_╱ // 0x16d5 @0x2e
0x16a7…16e0 at002f = ╱50╱P╱ // 0x16d6 @0x2f
0x16a7…16e0 at0030 = ╱52╱R╱ // 0x16d7 @0x30
0x16a7…16e0 at0031 = ╱49╱I╱ // 0x16d8 @0x31
0x16a7…16e0 at0032 = ╱4d╱M╱ // 0x16d9 @0x32
0x16a7…16e0 at0033 = ╱4f╱O╱ // 0x16da @0x33
0x16a7…16e0 at0034 = ╱ec╱,╱ // 0x16db @0x34
0x16a7…16e0 at0035 = ╱44╱D╱ // 0x16dc @0x35
0x16a7…16e0 at0036 = ╱4b╱K╱ // 0x16dd @0x36
0x16a7…16e0 at0037 = ╱ee╱)╱ // 0x16de @0x37
0x16a7…16e0 at0038 = EOL // 0x16df @0x38
0x16a7…16e0 }
0x16e0…16f3 ace1 2320 IF TO_FP > 0 THEN
0x16e0…16f3 LineComal80 {
0x16e0…16f3 ptr = 0xace1 // 0x16e0 @0x0
0x16e0…16f3 lno = 0x0910 // 0x16e2 @0x2
0x16e0…16f3 at0004 = ╱9b244b╱ IF ╱ // 0x16e4 @0x4
0x16e0…16f3 at0007 = ╱54╱T╱ // 0x16e7 @0x7
0x16e0…16f3 at0008 = ╱4f╱O╱ // 0x16e8 @0x8
0x16e0…16f3 at0009 = ╱5f╱_╱ // 0x16e9 @0x9
0x16e0…16f3 at000a = ╱46╱F╱ // 0x16ea @0xa
0x16e0…16f3 at000b = ╱50╱P╱ // 0x16eb @0xb
0x16e0…16f3 at000c = ╱e1╱ > ╱ // 0x16ec @0xc
0x16e0…16f3 at000d = ╱30╱0╱ // 0x16ed @0xd
0x16e0…16f3 at000e = ╱f20000╱ // 0x16ee @0xe
0x16e0…16f3 at0011 = ╱b5╱ THEN ╱ // 0x16f1 @0x11
0x16e0…16f3 at0012 = EOL // 0x16f2 @0x12
0x16e0…16f3 }
0x16f3…1706 acf4 2330 LET NTRANS := KTO_FP
0x16f3…1706 LineComal80 {
0x16f3…1706 ptr = 0xacf4 // 0x16f3 @0x0
0x16f3…1706 lno = 0x091a // 0x16f5 @0x2
0x16f3…1706 at0004 = ╱86╱ LET ╱ // 0x16f7 @0x4
0x16f3…1706 at0005 = ╱4e╱N╱ // 0x16f8 @0x5
0x16f3…1706 at0006 = ╱54╱T╱ // 0x16f9 @0x6
0x16f3…1706 at0007 = ╱52╱R╱ // 0x16fa @0x7
0x16f3…1706 at0008 = ╱41╱A╱ // 0x16fb @0x8
0x16f3…1706 at0009 = ╱4e╱N╱ // 0x16fc @0x9
0x16f3…1706 at000a = ╱53╱S╱ // 0x16fd @0xa
0x16f3…1706 at000b = ╱f0╱ := ╱ // 0x16fe @0xb
0x16f3…1706 at000c = ╱4b╱K╱ // 0x16ff @0xc
0x16f3…1706 at000d = ╱54╱T╱ // 0x1700 @0xd
0x16f3…1706 at000e = ╱4f╱O╱ // 0x1701 @0xe
0x16f3…1706 at000f = ╱5f╱_╱ // 0x1702 @0xf
0x16f3…1706 at0010 = ╱46╱F╱ // 0x1703 @0x10
0x16f3…1706 at0011 = ╱50╱P╱ // 0x1704 @0x11
0x16f3…1706 at0012 = EOL // 0x1705 @0x12
0x16f3…1706 }
0x1706…170d acfb 2340 REPEAT
0x1706…170d LineComal80 {
0x1706…170d ptr = 0xacfb // 0x1706 @0x0
0x1706…170d lno = 0x0924 // 0x1708 @0x2
0x1706…170d at0004 = ╱9725╱ REPEAT ╱ // 0x170a @0x4
0x1706…170d at0006 = EOL // 0x170c @0x6
0x1706…170d }
0x170d…1724 bd44 2350 EXEC LÆS_TRANS(NTRANS)
0x170d…1724 LineComal80 {
0x170d…1724 ptr = 0xbd44 // 0x170d @0x0
0x170d…1724 lno = 0x092e // 0x170f @0x2
0x170d…1724 at0004 = ╱9d╱ EXEC ╱ // 0x1711 @0x4
0x170d…1724 at0005 = ╱4c╱L╱ // 0x1712 @0x5
0x170d…1724 at0006 = ╱5b╱Æ╱ // 0x1713 @0x6
0x170d…1724 at0007 = ╱53╱S╱ // 0x1714 @0x7
0x170d…1724 at0008 = ╱5f╱_╱ // 0x1715 @0x8
0x170d…1724 at0009 = ╱54╱T╱ // 0x1716 @0x9
0x170d…1724 at000a = ╱52╱R╱ // 0x1717 @0xa
0x170d…1724 at000b = ╱41╱A╱ // 0x1718 @0xb
0x170d…1724 at000c = ╱4e╱N╱ // 0x1719 @0xc
0x170d…1724 at000d = ╱53╱S╱ // 0x171a @0xd
0x170d…1724 at000e = ╱ed╱(╱ // 0x171b @0xe
0x170d…1724 at000f = ╱4e╱N╱ // 0x171c @0xf
0x170d…1724 at0010 = ╱54╱T╱ // 0x171d @0x10
0x170d…1724 at0011 = ╱52╱R╱ // 0x171e @0x11
0x170d…1724 at0012 = ╱41╱A╱ // 0x171f @0x12
0x170d…1724 at0013 = ╱4e╱N╱ // 0x1720 @0x13
0x170d…1724 at0014 = ╱53╱S╱ // 0x1721 @0x14
0x170d…1724 at0015 = ╱ee╱)╱ // 0x1722 @0x15
0x170d…1724 at0016 = EOL // 0x1723 @0x16
0x170d…1724 }
0x1724…1758 ad46 2410 EXEC SKRIV_LIN(BDATO$,BLGNR$,BTXT$,BMOMS,BBELØB,DK)
0x1724…1758 LineComal80 {
0x1724…1758 ptr = 0xad46 // 0x1724 @0x0
0x1724…1758 lno = 0x096a // 0x1726 @0x2
0x1724…1758 at0004 = ╱9d╱ EXEC ╱ // 0x1728 @0x4
0x1724…1758 at0005 = ╱53╱S╱ // 0x1729 @0x5
0x1724…1758 at0006 = ╱4b╱K╱ // 0x172a @0x6
0x1724…1758 at0007 = ╱52╱R╱ // 0x172b @0x7
0x1724…1758 at0008 = ╱49╱I╱ // 0x172c @0x8
0x1724…1758 at0009 = ╱56╱V╱ // 0x172d @0x9
0x1724…1758 at000a = ╱5f╱_╱ // 0x172e @0xa
0x1724…1758 at000b = ╱4c╱L╱ // 0x172f @0xb
0x1724…1758 at000c = ╱49╱I╱ // 0x1730 @0xc
0x1724…1758 at000d = ╱4e╱N╱ // 0x1731 @0xd
0x1724…1758 at000e = ╱ed╱(╱ // 0x1732 @0xe
0x1724…1758 at000f = ╱42╱B╱ // 0x1733 @0xf
0x1724…1758 at0010 = ╱44╱D╱ // 0x1734 @0x10
0x1724…1758 at0011 = ╱41╱A╱ // 0x1735 @0x11
0x1724…1758 at0012 = ╱54╱T╱ // 0x1736 @0x12
0x1724…1758 at0013 = ╱4f╱O╱ // 0x1737 @0x13
0x1724…1758 at0014 = ╱ef╱$╱ // 0x1738 @0x14
0x1724…1758 at0015 = ╱ec╱,╱ // 0x1739 @0x15
0x1724…1758 at0016 = ╱42╱B╱ // 0x173a @0x16
0x1724…1758 at0017 = ╱4c╱L╱ // 0x173b @0x17
0x1724…1758 at0018 = ╱47╱G╱ // 0x173c @0x18
0x1724…1758 at0019 = ╱4e╱N╱ // 0x173d @0x19
0x1724…1758 at001a = ╱52╱R╱ // 0x173e @0x1a
0x1724…1758 at001b = ╱ef╱$╱ // 0x173f @0x1b
0x1724…1758 at001c = ╱ec╱,╱ // 0x1740 @0x1c
0x1724…1758 at001d = ╱42╱B╱ // 0x1741 @0x1d
0x1724…1758 at001e = ╱54╱T╱ // 0x1742 @0x1e
0x1724…1758 at001f = ╱58╱X╱ // 0x1743 @0x1f
0x1724…1758 at0020 = ╱54╱T╱ // 0x1744 @0x20
0x1724…1758 at0021 = ╱ef╱$╱ // 0x1745 @0x21
0x1724…1758 at0022 = ╱ec╱,╱ // 0x1746 @0x22
0x1724…1758 at0023 = ╱42╱B╱ // 0x1747 @0x23
0x1724…1758 at0024 = ╱4d╱M╱ // 0x1748 @0x24
0x1724…1758 at0025 = ╱4f╱O╱ // 0x1749 @0x25
0x1724…1758 at0026 = ╱4d╱M╱ // 0x174a @0x26
0x1724…1758 at0027 = ╱53╱S╱ // 0x174b @0x27
0x1724…1758 at0028 = ╱ec╱,╱ // 0x174c @0x28
0x1724…1758 at0029 = ╱42╱B╱ // 0x174d @0x29
0x1724…1758 at002a = ╱42╱B╱ // 0x174e @0x2a
0x1724…1758 at002b = ╱45╱E╱ // 0x174f @0x2b
0x1724…1758 at002c = ╱4c╱L╱ // 0x1750 @0x2c
0x1724…1758 at002d = ╱5c╱Ø╱ // 0x1751 @0x2d
0x1724…1758 at002e = ╱42╱B╱ // 0x1752 @0x2e
0x1724…1758 at002f = ╱ec╱,╱ // 0x1753 @0x2f
0x1724…1758 at0030 = ╱44╱D╱ // 0x1754 @0x30
0x1724…1758 at0031 = ╱4b╱K╱ // 0x1755 @0x31
0x1724…1758 at0032 = ╱ee╱)╱ // 0x1756 @0x32
0x1724…1758 at0033 = EOL // 0x1757 @0x33
0x1724…1758 }
0x1758…1769 ad57 2420 UNTIL NTRANS = 0
0x1758…1769 LineComal80 {
0x1758…1769 ptr = 0xad57 // 0x1758 @0x0
0x1758…1769 lno = 0x0974 // 0x175a @0x2
0x1758…1769 at0004 = ╱98╱ UNTIL ╱ // 0x175c @0x4
0x1758…1769 at0005 = ╱4e╱N╱ // 0x175d @0x5
0x1758…1769 at0006 = ╱54╱T╱ // 0x175e @0x6
0x1758…1769 at0007 = ╱52╱R╱ // 0x175f @0x7
0x1758…1769 at0008 = ╱41╱A╱ // 0x1760 @0x8
0x1758…1769 at0009 = ╱4e╱N╱ // 0x1761 @0x9
0x1758…1769 at000a = ╱53╱S╱ // 0x1762 @0xa
0x1758…1769 at000b = ╱df╱ = ╱ // 0x1763 @0xb
0x1758…1769 at000c = ╱30╱0╱ // 0x1764 @0xc
0x1758…1769 at000d = ╱f20000╱ // 0x1765 @0xd
0x1758…1769 at0010 = EOL // 0x1768 @0x10
0x1758…1769 }
0x1769…176f ad5d 2430 ENDIF
0x1769…176f LineComal80 {
0x1769…176f ptr = 0xad5d // 0x1769 @0x0
0x1769…176f lno = 0x097e // 0x176b @0x2
0x1769…176f at0004 = ╱9c╱ ENDIF ╱ // 0x176d @0x4
0x1769…176f at0005 = EOL // 0x176e @0x5
0x1769…176f }
0x176f…177b ad69 2440 EXEC AFSLUT
0x176f…177b LineComal80 {
0x176f…177b ptr = 0xad69 // 0x176f @0x0
0x176f…177b lno = 0x0988 // 0x1771 @0x2
0x176f…177b at0004 = ╱9d╱ EXEC ╱ // 0x1773 @0x4
0x176f…177b at0005 = ╱41╱A╱ // 0x1774 @0x5
0x176f…177b at0006 = ╱46╱F╱ // 0x1775 @0x6
0x176f…177b at0007 = ╱53╱S╱ // 0x1776 @0x7
0x176f…177b at0008 = ╱4c╱L╱ // 0x1777 @0x8
0x176f…177b at0009 = ╱55╱U╱ // 0x1778 @0x9
0x176f…177b at000a = ╱54╱T╱ // 0x1779 @0xa
0x176f…177b at000b = EOL // 0x177a @0xb
0x176f…177b }
0x177b…1781 ad6f 2450 ENDIF
0x177b…1781 LineComal80 {
0x177b…1781 ptr = 0xad6f // 0x177b @0x0
0x177b…1781 lno = 0x0992 // 0x177d @0x2
0x177b…1781 at0004 = ╱9c╱ ENDIF ╱ // 0x177f @0x4
0x177b…1781 at0005 = EOL // 0x1780 @0x5
0x177b…1781 }
0x1781…178d ad7b 2460 NEXT IDXPOS
0x1781…178d LineComal80 {
0x1781…178d ptr = 0xad7b // 0x1781 @0x0
0x1781…178d lno = 0x099c // 0x1783 @0x2
0x1781…178d at0004 = ╱84╱ NEXT ╱ // 0x1785 @0x4
0x1781…178d at0005 = ╱49╱I╱ // 0x1786 @0x5
0x1781…178d at0006 = ╱44╱D╱ // 0x1787 @0x6
0x1781…178d at0007 = ╱58╱X╱ // 0x1788 @0x7
0x1781…178d at0008 = ╱50╱P╱ // 0x1789 @0x8
0x1781…178d at0009 = ╱4f╱O╱ // 0x178a @0x9
0x1781…178d at000a = ╱53╱S╱ // 0x178b @0xa
0x1781…178d at000b = EOL // 0x178c @0xb
0x1781…178d }
0x178d…17a1 ad8f 2470 IF UT_WAY$ = "P" THEN
0x178d…17a1 LineComal80 {
0x178d…17a1 ptr = 0xad8f // 0x178d @0x0
0x178d…17a1 lno = 0x09a6 // 0x178f @0x2
0x178d…17a1 at0004 = ╱9b284f╱ IF ╱ // 0x1791 @0x4
0x178d…17a1 at0007 = ╱55╱U╱ // 0x1794 @0x7
0x178d…17a1 at0008 = ╱54╱T╱ // 0x1795 @0x8
0x178d…17a1 at0009 = ╱5f╱_╱ // 0x1796 @0x9
0x178d…17a1 at000a = ╱57╱W╱ // 0x1797 @0xa
0x178d…17a1 at000b = ╱41╱A╱ // 0x1798 @0xb
0x178d…17a1 at000c = ╱59╱Y╱ // 0x1799 @0xc
0x178d…17a1 at000d = ╱ef╱$╱ // 0x179a @0xd
0x178d…17a1 at000e = ╱df╱ = ╱ // 0x179b @0xe
0x178d…17a1 at000f = ╱22╱"╱ // 0x179c @0xf
0x178d…17a1 at0010 = ╱50╱P╱ // 0x179d @0x10
0x178d…17a1 at0011 = ╱22╱"╱ // 0x179e @0x11
0x178d…17a1 at0012 = ╱b5╱ THEN ╱ // 0x179f @0x12
0x178d…17a1 at0013 = EOL // 0x17a0 @0x13
0x178d…17a1 }
0x17a1…17af ad9d 2480 EXEC PRINTREL
0x17a1…17af LineComal80 {
0x17a1…17af ptr = 0xad9d // 0x17a1 @0x0
0x17a1…17af lno = 0x09b0 // 0x17a3 @0x2
0x17a1…17af at0004 = ╱9d╱ EXEC ╱ // 0x17a5 @0x4
0x17a1…17af at0005 = ╱50╱P╱ // 0x17a6 @0x5
0x17a1…17af at0006 = ╱52╱R╱ // 0x17a7 @0x6
0x17a1…17af at0007 = ╱49╱I╱ // 0x17a8 @0x7
0x17a1…17af at0008 = ╱4e╱N╱ // 0x17a9 @0x8
0x17a1…17af at0009 = ╱54╱T╱ // 0x17aa @0x9
0x17a1…17af at000a = ╱52╱R╱ // 0x17ab @0xa
0x17a1…17af at000b = ╱45╱E╱ // 0x17ac @0xb
0x17a1…17af at000c = ╱4c╱L╱ // 0x17ad @0xc
0x17a1…17af at000d = EOL // 0x17ae @0xd
0x17a1…17af }
0x17af…17b6 ada4 2490 ELSE
0x17af…17b6 LineComal80 {
0x17af…17b6 ptr = 0xada4 // 0x17af @0x0
0x17af…17b6 lno = 0x09ba // 0x17b1 @0x2
0x17af…17b6 at0004 = ╱9a29╱ ELSE ╱ // 0x17b3 @0x4
0x17af…17b6 at0006 = EOL // 0x17b5 @0x6
0x17af…17b6 }
0x17b6…17ea add8 2500 INPUT "<SC5023>Næste side - tryk RETURN" : SVAR$(1)
0x17b6…17ea LineComal80 {
0x17b6…17ea ptr = 0xadd8 // 0x17b6 @0x0
0x17b6…17ea lno = 0x09c4 // 0x17b8 @0x2
0x17b6…17ea at0004 = ╱91╱ INPUT ╱ // 0x17ba @0x4
0x17b6…17ea at0005 = ╱22╱"╱ // 0x17bb @0x5
0x17b6…17ea at0006 = ╱3c╱<╱ // 0x17bc @0x6
0x17b6…17ea at0007 = ╱53╱S╱ // 0x17bd @0x7
0x17b6…17ea at0008 = ╱43╱C╱ // 0x17be @0x8
0x17b6…17ea at0009 = ╱35╱5╱ // 0x17bf @0x9
0x17b6…17ea at000a = ╱30╱0╱ // 0x17c0 @0xa
0x17b6…17ea at000b = ╱32╱2╱ // 0x17c1 @0xb
0x17b6…17ea at000c = ╱33╱3╱ // 0x17c2 @0xc
0x17b6…17ea at000d = ╱3e╱>╱ // 0x17c3 @0xd
0x17b6…17ea at000e = ╱4e╱N╱ // 0x17c4 @0xe
0x17b6…17ea at000f = ╱7b╱æ╱ // 0x17c5 @0xf
0x17b6…17ea at0010 = ╱73╱s╱ // 0x17c6 @0x10
0x17b6…17ea at0011 = ╱74╱t╱ // 0x17c7 @0x11
0x17b6…17ea at0012 = ╱65╱e╱ // 0x17c8 @0x12
0x17b6…17ea at0013 = ╱20╱…╱ // 0x17c9 @0x13
0x17b6…17ea at0014 = ╱73╱s╱ // 0x17ca @0x14
0x17b6…17ea at0015 = ╱69╱i╱ // 0x17cb @0x15
0x17b6…17ea at0016 = ╱64╱d╱ // 0x17cc @0x16
0x17b6…17ea at0017 = ╱65╱e╱ // 0x17cd @0x17
0x17b6…17ea at0018 = ╱20╱…╱ // 0x17ce @0x18
0x17b6…17ea at0019 = ╱2d╱-╱ // 0x17cf @0x19
0x17b6…17ea at001a = ╱20╱…╱ // 0x17d0 @0x1a
0x17b6…17ea at001b = ╱74╱t╱ // 0x17d1 @0x1b
0x17b6…17ea at001c = ╱72╱r╱ // 0x17d2 @0x1c
0x17b6…17ea at001d = ╱79╱y╱ // 0x17d3 @0x1d
0x17b6…17ea at001e = ╱6b╱k╱ // 0x17d4 @0x1e
0x17b6…17ea at001f = ╱20╱…╱ // 0x17d5 @0x1f
0x17b6…17ea at0020 = ╱52╱R╱ // 0x17d6 @0x20
0x17b6…17ea at0021 = ╱45╱E╱ // 0x17d7 @0x21
0x17b6…17ea at0022 = ╱54╱T╱ // 0x17d8 @0x22
0x17b6…17ea at0023 = ╱55╱U╱ // 0x17d9 @0x23
0x17b6…17ea at0024 = ╱52╱R╱ // 0x17da @0x24
0x17b6…17ea at0025 = ╱4e╱N╱ // 0x17db @0x25
0x17b6…17ea at0026 = ╱22╱"╱ // 0x17dc @0x26
0x17b6…17ea at0027 = ╱f1╱ : ╱ // 0x17dd @0x27
0x17b6…17ea at0028 = ╱53╱S╱ // 0x17de @0x28
0x17b6…17ea at0029 = ╱56╱V╱ // 0x17df @0x29
0x17b6…17ea at002a = ╱41╱A╱ // 0x17e0 @0x2a
0x17b6…17ea at002b = ╱52╱R╱ // 0x17e1 @0x2b
0x17b6…17ea at002c = ╱ef╱$╱ // 0x17e2 @0x2c
0x17b6…17ea at002d = ╱ed╱(╱ // 0x17e3 @0x2d
0x17b6…17ea at002e = ╱31╱1╱ // 0x17e4 @0x2e
0x17b6…17ea at002f = ╱f20100╱ // 0x17e5 @0x2f
0x17b6…17ea at0032 = ╱ee╱)╱ // 0x17e8 @0x32
0x17b6…17ea at0033 = EOL // 0x17e9 @0x33
0x17b6…17ea }
0x17ea…17f0 adde 2510 ENDIF
0x17ea…17f0 LineComal80 {
0x17ea…17f0 ptr = 0xadde // 0x17ea @0x0
0x17ea…17f0 lno = 0x09ce // 0x17ec @0x2
0x17ea…17f0 at0004 = ╱9c╱ ENDIF ╱ // 0x17ee @0x4
0x17ea…17f0 at0005 = EOL // 0x17ef @0x5
0x17ea…17f0 }
0x17f0…17fd adeb 2520 ENDPROC UDSKRIV
0x17f0…17fd LineComal80 {
0x17f0…17fd ptr = 0xadeb // 0x17f0 @0x0
0x17f0…17fd lno = 0x09d8 // 0x17f2 @0x2
0x17f0…17fd at0004 = ╱9f╱ ENDPROC ╱ // 0x17f4 @0x4
0x17f0…17fd at0005 = ╱55╱U╱ // 0x17f5 @0x5
0x17f0…17fd at0006 = ╱44╱D╱ // 0x17f6 @0x6
0x17f0…17fd at0007 = ╱53╱S╱ // 0x17f7 @0x7
0x17f0…17fd at0008 = ╱4b╱K╱ // 0x17f8 @0x8
0x17f0…17fd at0009 = ╱52╱R╱ // 0x17f9 @0x9
0x17f0…17fd at000a = ╱49╱I╱ // 0x17fa @0xa
0x17f0…17fd at000b = ╱56╱V╱ // 0x17fb @0xb
0x17f0…17fd at000c = EOL // 0x17fc @0xc
0x17f0…17fd }
0x17fd…1802 c4d9 2530
0x17fd…1802 LineComal80 {
0x17fd…1802 ptr = 0xc4d9 // 0x17fd @0x0
0x17fd…1802 lno = 0x09e2 // 0x17ff @0x2
0x17fd…1802 at0004 = EOL // 0x1801 @0x4
0x17fd…1802 }
0x1802…1812 ae00 2480 PROC SIDESKIFT
0x1802…1812 LineComal80 {
0x1802…1812 ptr = 0xae00 // 0x1802 @0x0
0x1802…1812 lno = 0x09b0 // 0x1804 @0x2
0x1802…1812 at0004 = ╱9e2a╱ PROC ╱ // 0x1806 @0x4
0x1802…1812 at0006 = ╱53╱S╱ // 0x1808 @0x6
0x1802…1812 at0007 = ╱49╱I╱ // 0x1809 @0x7
0x1802…1812 at0008 = ╱44╱D╱ // 0x180a @0x8
0x1802…1812 at0009 = ╱45╱E╱ // 0x180b @0x9
0x1802…1812 at000a = ╱53╱S╱ // 0x180c @0xa
0x1802…1812 at000b = ╱4b╱K╱ // 0x180d @0xb
0x1802…1812 at000c = ╱49╱I╱ // 0x180e @0xc
0x1802…1812 at000d = ╱46╱F╱ // 0x180f @0xd
0x1802…1812 at000e = ╱54╱T╱ // 0x1810 @0xe
0x1802…1812 at000f = EOL // 0x1811 @0xf
0x1802…1812 }
0x1812…1837 ae25 2490 IF OT(1) > 0 OR TOT(2) > 0 THEN
0x1812…1837 LineComal80 {
0x1812…1837 ptr = 0xae25 // 0x1812 @0x0
0x1812…1837 lno = 0x09ba // 0x1814 @0x2
0x1812…1837 at0004 = ╱9b2b54╱ IF ╱ // 0x1816 @0x4
0x1812…1837 at0007 = ╱4f╱O╱ // 0x1819 @0x7
0x1812…1837 at0008 = ╱54╱T╱ // 0x181a @0x8
0x1812…1837 at0009 = ╱ed╱(╱ // 0x181b @0x9
0x1812…1837 at000a = ╱31╱1╱ // 0x181c @0xa
0x1812…1837 at000b = ╱f20100╱ // 0x181d @0xb
0x1812…1837 at000e = ╱ee╱)╱ // 0x1820 @0xe
0x1812…1837 at000f = ╱e1╱ > ╱ // 0x1821 @0xf
0x1812…1837 at0010 = ╱30╱0╱ // 0x1822 @0x10
0x1812…1837 at0011 = ╱f20000╱ // 0x1823 @0x11
0x1812…1837 at0014 = ╱d8╱ OR ╱ // 0x1826 @0x14
0x1812…1837 at0015 = ╱54╱T╱ // 0x1827 @0x15
0x1812…1837 at0016 = ╱4f╱O╱ // 0x1828 @0x16
0x1812…1837 at0017 = ╱54╱T╱ // 0x1829 @0x17
0x1812…1837 at0018 = ╱ed╱(╱ // 0x182a @0x18
0x1812…1837 at0019 = ╱32╱2╱ // 0x182b @0x19
0x1812…1837 at001a = ╱f20200╱ // 0x182c @0x1a
0x1812…1837 at001d = ╱ee╱)╱ // 0x182f @0x1d
0x1812…1837 at001e = ╱e1╱ > ╱ // 0x1830 @0x1e
0x1812…1837 at001f = ╱30╱0╱ // 0x1831 @0x1f
0x1812…1837 at0020 = ╱f20000╱ // 0x1832 @0x20
0x1812…1837 at0023 = ╱b5╱ THEN ╱ // 0x1835 @0x23
0x1812…1837 at0024 = EOL // 0x1836 @0x24
0x1812…1837 }
0x1837…1869 ae57 2500 PRINT "<S>---------------------------------------"
0x1837…1869 LineComal80 {
0x1837…1869 ptr = 0xae57 // 0x1837 @0x0
0x1837…1869 lno = 0x09c4 // 0x1839 @0x2
0x1837…1869 at0004 = ╱92╱ PRINT ╱ // 0x183b @0x4
0x1837…1869 at0005 = ╱22╱"╱ // 0x183c @0x5
0x1837…1869 at0006 = ╱3c╱<╱ // 0x183d @0x6
0x1837…1869 at0007 = ╱53╱S╱ // 0x183e @0x7
0x1837…1869 at0008 = ╱3e╱>╱ // 0x183f @0x8
0x1837…1869 at0009 = ╱2d╱-╱ // 0x1840 @0x9
0x1837…1869 at000a = ╱2d╱-╱ // 0x1841 @0xa
0x1837…1869 at000b = ╱2d╱-╱ // 0x1842 @0xb
0x1837…1869 at000c = ╱2d╱-╱ // 0x1843 @0xc
0x1837…1869 at000d = ╱2d╱-╱ // 0x1844 @0xd
0x1837…1869 at000e = ╱2d╱-╱ // 0x1845 @0xe
0x1837…1869 at000f = ╱2d╱-╱ // 0x1846 @0xf
0x1837…1869 at0010 = ╱2d╱-╱ // 0x1847 @0x10
0x1837…1869 at0011 = ╱2d╱-╱ // 0x1848 @0x11
0x1837…1869 at0012 = ╱2d╱-╱ // 0x1849 @0x12
0x1837…1869 at0013 = ╱2d╱-╱ // 0x184a @0x13
0x1837…1869 at0014 = ╱2d╱-╱ // 0x184b @0x14
0x1837…1869 at0015 = ╱2d╱-╱ // 0x184c @0x15
0x1837…1869 at0016 = ╱2d╱-╱ // 0x184d @0x16
0x1837…1869 at0017 = ╱2d╱-╱ // 0x184e @0x17
0x1837…1869 at0018 = ╱2d╱-╱ // 0x184f @0x18
0x1837…1869 at0019 = ╱2d╱-╱ // 0x1850 @0x19
0x1837…1869 at001a = ╱2d╱-╱ // 0x1851 @0x1a
0x1837…1869 at001b = ╱2d╱-╱ // 0x1852 @0x1b
0x1837…1869 at001c = ╱2d╱-╱ // 0x1853 @0x1c
0x1837…1869 at001d = ╱2d╱-╱ // 0x1854 @0x1d
0x1837…1869 at001e = ╱2d╱-╱ // 0x1855 @0x1e
0x1837…1869 at001f = ╱2d╱-╱ // 0x1856 @0x1f
0x1837…1869 at0020 = ╱2d╱-╱ // 0x1857 @0x20
0x1837…1869 at0021 = ╱2d╱-╱ // 0x1858 @0x21
0x1837…1869 at0022 = ╱2d╱-╱ // 0x1859 @0x22
0x1837…1869 at0023 = ╱2d╱-╱ // 0x185a @0x23
0x1837…1869 at0024 = ╱2d╱-╱ // 0x185b @0x24
0x1837…1869 at0025 = ╱2d╱-╱ // 0x185c @0x25
0x1837…1869 at0026 = ╱2d╱-╱ // 0x185d @0x26
0x1837…1869 at0027 = ╱2d╱-╱ // 0x185e @0x27
0x1837…1869 at0028 = ╱2d╱-╱ // 0x185f @0x28
0x1837…1869 at0029 = ╱2d╱-╱ // 0x1860 @0x29
0x1837…1869 at002a = ╱2d╱-╱ // 0x1861 @0x2a
0x1837…1869 at002b = ╱2d╱-╱ // 0x1862 @0x2b
0x1837…1869 at002c = ╱2d╱-╱ // 0x1863 @0x2c
0x1837…1869 at002d = ╱2d╱-╱ // 0x1864 @0x2d
0x1837…1869 at002e = ╱2d╱-╱ // 0x1865 @0x2e
0x1837…1869 at002f = ╱2d╱-╱ // 0x1866 @0x2f
0x1837…1869 at0030 = ╱22╱"╱ // 0x1867 @0x30
0x1837…1869 at0031 = EOL // 0x1868 @0x31
0x1837…1869 }
0x1869…1898 ae86 2510 PRINT "---------------------------------------"
0x1869…1898 LineComal80 {
0x1869…1898 ptr = 0xae86 // 0x1869 @0x0
0x1869…1898 lno = 0x09ce // 0x186b @0x2
0x1869…1898 at0004 = ╱92╱ PRINT ╱ // 0x186d @0x4
0x1869…1898 at0005 = ╱22╱"╱ // 0x186e @0x5
0x1869…1898 at0006 = ╱2d╱-╱ // 0x186f @0x6
0x1869…1898 at0007 = ╱2d╱-╱ // 0x1870 @0x7
0x1869…1898 at0008 = ╱2d╱-╱ // 0x1871 @0x8
0x1869…1898 at0009 = ╱2d╱-╱ // 0x1872 @0x9
0x1869…1898 at000a = ╱2d╱-╱ // 0x1873 @0xa
0x1869…1898 at000b = ╱2d╱-╱ // 0x1874 @0xb
0x1869…1898 at000c = ╱2d╱-╱ // 0x1875 @0xc
0x1869…1898 at000d = ╱2d╱-╱ // 0x1876 @0xd
0x1869…1898 at000e = ╱2d╱-╱ // 0x1877 @0xe
0x1869…1898 at000f = ╱2d╱-╱ // 0x1878 @0xf
0x1869…1898 at0010 = ╱2d╱-╱ // 0x1879 @0x10
0x1869…1898 at0011 = ╱2d╱-╱ // 0x187a @0x11
0x1869…1898 at0012 = ╱2d╱-╱ // 0x187b @0x12
0x1869…1898 at0013 = ╱2d╱-╱ // 0x187c @0x13
0x1869…1898 at0014 = ╱2d╱-╱ // 0x187d @0x14
0x1869…1898 at0015 = ╱2d╱-╱ // 0x187e @0x15
0x1869…1898 at0016 = ╱2d╱-╱ // 0x187f @0x16
0x1869…1898 at0017 = ╱2d╱-╱ // 0x1880 @0x17
0x1869…1898 at0018 = ╱2d╱-╱ // 0x1881 @0x18
0x1869…1898 at0019 = ╱2d╱-╱ // 0x1882 @0x19
0x1869…1898 at001a = ╱2d╱-╱ // 0x1883 @0x1a
0x1869…1898 at001b = ╱2d╱-╱ // 0x1884 @0x1b
0x1869…1898 at001c = ╱2d╱-╱ // 0x1885 @0x1c
0x1869…1898 at001d = ╱2d╱-╱ // 0x1886 @0x1d
0x1869…1898 at001e = ╱2d╱-╱ // 0x1887 @0x1e
0x1869…1898 at001f = ╱2d╱-╱ // 0x1888 @0x1f
0x1869…1898 at0020 = ╱2d╱-╱ // 0x1889 @0x20
0x1869…1898 at0021 = ╱2d╱-╱ // 0x188a @0x21
0x1869…1898 at0022 = ╱2d╱-╱ // 0x188b @0x22
0x1869…1898 at0023 = ╱2d╱-╱ // 0x188c @0x23
0x1869…1898 at0024 = ╱2d╱-╱ // 0x188d @0x24
0x1869…1898 at0025 = ╱2d╱-╱ // 0x188e @0x25
0x1869…1898 at0026 = ╱2d╱-╱ // 0x188f @0x26
0x1869…1898 at0027 = ╱2d╱-╱ // 0x1890 @0x27
0x1869…1898 at0028 = ╱2d╱-╱ // 0x1891 @0x28
0x1869…1898 at0029 = ╱2d╱-╱ // 0x1892 @0x29
0x1869…1898 at002a = ╱2d╱-╱ // 0x1893 @0x2a
0x1869…1898 at002b = ╱2d╱-╱ // 0x1894 @0x2b
0x1869…1898 at002c = ╱2d╱-╱ // 0x1895 @0x2c
0x1869…1898 at002d = ╱22╱"╱ // 0x1896 @0x2d
0x1869…1898 at002e = EOL // 0x1897 @0x2e
0x1869…1898 }
0x1898…18dc aeca 2520 PRINT TAB(18) ; "TRANSPORT" ; TAB(54) ; CHR$ (TOT(1),9,2) ; TAB(67) ;
0x1898…18dc LineComal80 {
0x1898…18dc ptr = 0xaeca // 0x1898 @0x0
0x1898…18dc lno = 0x09d8 // 0x189a @0x2
0x1898…18dc at0004 = ╱92╱ PRINT ╱ // 0x189c @0x4
0x1898…18dc at0005 = ╱d2╱TAB╱ // 0x189d @0x5
0x1898…18dc at0006 = ╱ed╱(╱ // 0x189e @0x6
0x1898…18dc at0007 = ╱31╱1╱ // 0x189f @0x7
0x1898…18dc at0008 = ╱38╱8╱ // 0x18a0 @0x8
0x1898…18dc at0009 = ╱f21200╱ // 0x18a1 @0x9
0x1898…18dc at000c = ╱ee╱)╱ // 0x18a4 @0xc
0x1898…18dc at000d = ╱ea╱ ; ╱ // 0x18a5 @0xd
0x1898…18dc at000e = ╱22╱"╱ // 0x18a6 @0xe
0x1898…18dc at000f = ╱54╱T╱ // 0x18a7 @0xf
0x1898…18dc at0010 = ╱52╱R╱ // 0x18a8 @0x10
0x1898…18dc at0011 = ╱41╱A╱ // 0x18a9 @0x11
0x1898…18dc at0012 = ╱4e╱N╱ // 0x18aa @0x12
0x1898…18dc at0013 = ╱53╱S╱ // 0x18ab @0x13
0x1898…18dc at0014 = ╱50╱P╱ // 0x18ac @0x14
0x1898…18dc at0015 = ╱4f╱O╱ // 0x18ad @0x15
0x1898…18dc at0016 = ╱52╱R╱ // 0x18ae @0x16
0x1898…18dc at0017 = ╱54╱T╱ // 0x18af @0x17
0x1898…18dc at0018 = ╱22╱"╱ // 0x18b0 @0x18
0x1898…18dc at0019 = ╱ea╱ ; ╱ // 0x18b1 @0x19
0x1898…18dc at001a = ╱d2╱TAB╱ // 0x18b2 @0x1a
0x1898…18dc at001b = ╱ed╱(╱ // 0x18b3 @0x1b
0x1898…18dc at001c = ╱35╱5╱ // 0x18b4 @0x1c
0x1898…18dc at001d = ╱34╱4╱ // 0x18b5 @0x1d
0x1898…18dc at001e = ╱f23600╱ // 0x18b6 @0x1e
0x1898…18dc at0021 = ╱ee╱)╱ // 0x18b9 @0x21
0x1898…18dc at0022 = ╱ea╱ ; ╱ // 0x18ba @0x22
0x1898…18dc at0023 = ╱d0╱ CHR$ ╱ // 0x18bb @0x23
0x1898…18dc at0024 = ╱ed╱(╱ // 0x18bc @0x24
0x1898…18dc at0025 = ╱54╱T╱ // 0x18bd @0x25
0x1898…18dc at0026 = ╱4f╱O╱ // 0x18be @0x26
0x1898…18dc at0027 = ╱54╱T╱ // 0x18bf @0x27
0x1898…18dc at0028 = ╱ed╱(╱ // 0x18c0 @0x28
0x1898…18dc at0029 = ╱31╱1╱ // 0x18c1 @0x29
0x1898…18dc at002a = ╱f20100╱ // 0x18c2 @0x2a
0x1898…18dc at002d = ╱ee╱)╱ // 0x18c5 @0x2d
0x1898…18dc at002e = ╱ec╱,╱ // 0x18c6 @0x2e
0x1898…18dc at002f = ╱39╱9╱ // 0x18c7 @0x2f
0x1898…18dc at0030 = ╱f20900╱ // 0x18c8 @0x30
0x1898…18dc at0033 = ╱ec╱,╱ // 0x18cb @0x33
0x1898…18dc at0034 = ╱32╱2╱ // 0x18cc @0x34
0x1898…18dc at0035 = ╱f20200╱ // 0x18cd @0x35
0x1898…18dc at0038 = ╱ee╱)╱ // 0x18d0 @0x38
0x1898…18dc at0039 = ╱ea╱ ; ╱ // 0x18d1 @0x39
0x1898…18dc at003a = ╱d2╱TAB╱ // 0x18d2 @0x3a
0x1898…18dc at003b = ╱ed╱(╱ // 0x18d3 @0x3b
0x1898…18dc at003c = ╱36╱6╱ // 0x18d4 @0x3c
0x1898…18dc at003d = ╱37╱7╱ // 0x18d5 @0x3d
0x1898…18dc at003e = ╱f24300╱ // 0x18d6 @0x3e
0x1898…18dc at0041 = ╱ee╱)╱ // 0x18d9 @0x41
0x1898…18dc at0042 = ╱ea╱ ; ╱ // 0x18da @0x42
0x1898…18dc at0043 = EOL // 0x18db @0x43
0x1898…18dc }
0x18dc…18f8 aee6 2530 PRINT CHR$ (TOT(2),9,2)
0x18dc…18f8 LineComal80 {
0x18dc…18f8 ptr = 0xaee6 // 0x18dc @0x0
0x18dc…18f8 lno = 0x09e2 // 0x18de @0x2
0x18dc…18f8 at0004 = ╱92╱ PRINT ╱ // 0x18e0 @0x4
0x18dc…18f8 at0005 = ╱d0╱ CHR$ ╱ // 0x18e1 @0x5
0x18dc…18f8 at0006 = ╱ed╱(╱ // 0x18e2 @0x6
0x18dc…18f8 at0007 = ╱54╱T╱ // 0x18e3 @0x7
0x18dc…18f8 at0008 = ╱4f╱O╱ // 0x18e4 @0x8
0x18dc…18f8 at0009 = ╱54╱T╱ // 0x18e5 @0x9
0x18dc…18f8 at000a = ╱ed╱(╱ // 0x18e6 @0xa
0x18dc…18f8 at000b = ╱32╱2╱ // 0x18e7 @0xb
0x18dc…18f8 at000c = ╱f20200╱ // 0x18e8 @0xc
0x18dc…18f8 at000f = ╱ee╱)╱ // 0x18eb @0xf
0x18dc…18f8 at0010 = ╱ec╱,╱ // 0x18ec @0x10
0x18dc…18f8 at0011 = ╱39╱9╱ // 0x18ed @0x11
0x18dc…18f8 at0012 = ╱f20900╱ // 0x18ee @0x12
0x18dc…18f8 at0015 = ╱ec╱,╱ // 0x18f1 @0x15
0x18dc…18f8 at0016 = ╱32╱2╱ // 0x18f2 @0x16
0x18dc…18f8 at0017 = ╱f20200╱ // 0x18f3 @0x17
0x18dc…18f8 at001a = ╱ee╱)╱ // 0x18f6 @0x1a
0x18dc…18f8 at001b = EOL // 0x18f7 @0x1b
0x18dc…18f8 }
0x18f8…190e aefc 2540 LET LIN_T := LIN_T + 2
0x18f8…190e LineComal80 {
0x18f8…190e ptr = 0xaefc // 0x18f8 @0x0
0x18f8…190e lno = 0x09ec // 0x18fa @0x2
0x18f8…190e at0004 = ╱86╱ LET ╱ // 0x18fc @0x4
0x18f8…190e at0005 = ╱4c╱L╱ // 0x18fd @0x5
0x18f8…190e at0006 = ╱49╱I╱ // 0x18fe @0x6
0x18f8…190e at0007 = ╱4e╱N╱ // 0x18ff @0x7
0x18f8…190e at0008 = ╱5f╱_╱ // 0x1900 @0x8
0x18f8…190e at0009 = ╱54╱T╱ // 0x1901 @0x9
0x18f8…190e at000a = ╱f0╱ := ╱ // 0x1902 @0xa
0x18f8…190e at000b = ╱4c╱L╱ // 0x1903 @0xb
0x18f8…190e at000c = ╱49╱I╱ // 0x1904 @0xc
0x18f8…190e at000d = ╱4e╱N╱ // 0x1905 @0xd
0x18f8…190e at000e = ╱5f╱_╱ // 0x1906 @0xe
0x18f8…190e at000f = ╱54╱T╱ // 0x1907 @0xf
0x18f8…190e at0010 = ╱e5╱ + ╱ // 0x1908 @0x10
0x18f8…190e at0011 = ╱32╱2╱ // 0x1909 @0x11
0x18f8…190e at0012 = ╱f20200╱ // 0x190a @0x12
0x18f8…190e at0015 = EOL // 0x190d @0x15
0x18f8…190e }
0x190e…191a af08 2550 EXEC NYSIDE
0x190e…191a LineComal80 {
0x190e…191a ptr = 0xaf08 // 0x190e @0x0
0x190e…191a lno = 0x09f6 // 0x1910 @0x2
0x190e…191a at0004 = ╱9d╱ EXEC ╱ // 0x1912 @0x4
0x190e…191a at0005 = ╱4e╱N╱ // 0x1913 @0x5
0x190e…191a at0006 = ╱59╱Y╱ // 0x1914 @0x6
0x190e…191a at0007 = ╱53╱S╱ // 0x1915 @0x7
0x190e…191a at0008 = ╱49╱I╱ // 0x1916 @0x8
0x190e…191a at0009 = ╱44╱D╱ // 0x1917 @0x9
0x190e…191a at000a = ╱45╱E╱ // 0x1918 @0xa
0x190e…191a at000b = EOL // 0x1919 @0xb
0x190e…191a }
0x191a…195e af4c 2560 PRINT TAB(18) ; "TRANSPORT" ; TAB(54) ; CHR$ (TOT(1),9,2) ; TAB(67) ;
0x191a…195e LineComal80 {
0x191a…195e ptr = 0xaf4c // 0x191a @0x0
0x191a…195e lno = 0x0a00 // 0x191c @0x2
0x191a…195e at0004 = ╱92╱ PRINT ╱ // 0x191e @0x4
0x191a…195e at0005 = ╱d2╱TAB╱ // 0x191f @0x5
0x191a…195e at0006 = ╱ed╱(╱ // 0x1920 @0x6
0x191a…195e at0007 = ╱31╱1╱ // 0x1921 @0x7
0x191a…195e at0008 = ╱38╱8╱ // 0x1922 @0x8
0x191a…195e at0009 = ╱f21200╱ // 0x1923 @0x9
0x191a…195e at000c = ╱ee╱)╱ // 0x1926 @0xc
0x191a…195e at000d = ╱ea╱ ; ╱ // 0x1927 @0xd
0x191a…195e at000e = ╱22╱"╱ // 0x1928 @0xe
0x191a…195e at000f = ╱54╱T╱ // 0x1929 @0xf
0x191a…195e at0010 = ╱52╱R╱ // 0x192a @0x10
0x191a…195e at0011 = ╱41╱A╱ // 0x192b @0x11
0x191a…195e at0012 = ╱4e╱N╱ // 0x192c @0x12
0x191a…195e at0013 = ╱53╱S╱ // 0x192d @0x13
0x191a…195e at0014 = ╱50╱P╱ // 0x192e @0x14
0x191a…195e at0015 = ╱4f╱O╱ // 0x192f @0x15
0x191a…195e at0016 = ╱52╱R╱ // 0x1930 @0x16
0x191a…195e at0017 = ╱54╱T╱ // 0x1931 @0x17
0x191a…195e at0018 = ╱22╱"╱ // 0x1932 @0x18
0x191a…195e at0019 = ╱ea╱ ; ╱ // 0x1933 @0x19
0x191a…195e at001a = ╱d2╱TAB╱ // 0x1934 @0x1a
0x191a…195e at001b = ╱ed╱(╱ // 0x1935 @0x1b
0x191a…195e at001c = ╱35╱5╱ // 0x1936 @0x1c
0x191a…195e at001d = ╱34╱4╱ // 0x1937 @0x1d
0x191a…195e at001e = ╱f23600╱ // 0x1938 @0x1e
0x191a…195e at0021 = ╱ee╱)╱ // 0x193b @0x21
0x191a…195e at0022 = ╱ea╱ ; ╱ // 0x193c @0x22
0x191a…195e at0023 = ╱d0╱ CHR$ ╱ // 0x193d @0x23
0x191a…195e at0024 = ╱ed╱(╱ // 0x193e @0x24
0x191a…195e at0025 = ╱54╱T╱ // 0x193f @0x25
0x191a…195e at0026 = ╱4f╱O╱ // 0x1940 @0x26
0x191a…195e at0027 = ╱54╱T╱ // 0x1941 @0x27
0x191a…195e at0028 = ╱ed╱(╱ // 0x1942 @0x28
0x191a…195e at0029 = ╱31╱1╱ // 0x1943 @0x29
0x191a…195e at002a = ╱f20100╱ // 0x1944 @0x2a
0x191a…195e at002d = ╱ee╱)╱ // 0x1947 @0x2d
0x191a…195e at002e = ╱ec╱,╱ // 0x1948 @0x2e
0x191a…195e at002f = ╱39╱9╱ // 0x1949 @0x2f
0x191a…195e at0030 = ╱f20900╱ // 0x194a @0x30
0x191a…195e at0033 = ╱ec╱,╱ // 0x194d @0x33
0x191a…195e at0034 = ╱32╱2╱ // 0x194e @0x34
0x191a…195e at0035 = ╱f20200╱ // 0x194f @0x35
0x191a…195e at0038 = ╱ee╱)╱ // 0x1952 @0x38
0x191a…195e at0039 = ╱ea╱ ; ╱ // 0x1953 @0x39
0x191a…195e at003a = ╱d2╱TAB╱ // 0x1954 @0x3a
0x191a…195e at003b = ╱ed╱(╱ // 0x1955 @0x3b
0x191a…195e at003c = ╱36╱6╱ // 0x1956 @0x3c
0x191a…195e at003d = ╱37╱7╱ // 0x1957 @0x3d
0x191a…195e at003e = ╱f24300╱ // 0x1958 @0x3e
0x191a…195e at0041 = ╱ee╱)╱ // 0x195b @0x41
0x191a…195e at0042 = ╱ea╱ ; ╱ // 0x195c @0x42
0x191a…195e at0043 = EOL // 0x195d @0x43
0x191a…195e }
0x195e…197a af68 2570 PRINT CHR$ (TOT(2),9,2)
0x195e…197a LineComal80 {
0x195e…197a ptr = 0xaf68 // 0x195e @0x0
0x195e…197a lno = 0x0a0a // 0x1960 @0x2
0x195e…197a at0004 = ╱92╱ PRINT ╱ // 0x1962 @0x4
0x195e…197a at0005 = ╱d0╱ CHR$ ╱ // 0x1963 @0x5
0x195e…197a at0006 = ╱ed╱(╱ // 0x1964 @0x6
0x195e…197a at0007 = ╱54╱T╱ // 0x1965 @0x7
0x195e…197a at0008 = ╱4f╱O╱ // 0x1966 @0x8
0x195e…197a at0009 = ╱54╱T╱ // 0x1967 @0x9
0x195e…197a at000a = ╱ed╱(╱ // 0x1968 @0xa
0x195e…197a at000b = ╱32╱2╱ // 0x1969 @0xb
0x195e…197a at000c = ╱f20200╱ // 0x196a @0xc
0x195e…197a at000f = ╱ee╱)╱ // 0x196d @0xf
0x195e…197a at0010 = ╱ec╱,╱ // 0x196e @0x10
0x195e…197a at0011 = ╱39╱9╱ // 0x196f @0x11
0x195e…197a at0012 = ╱f20900╱ // 0x1970 @0x12
0x195e…197a at0015 = ╱ec╱,╱ // 0x1973 @0x15
0x195e…197a at0016 = ╱32╱2╱ // 0x1974 @0x16
0x195e…197a at0017 = ╱f20200╱ // 0x1975 @0x17
0x195e…197a at001a = ╱ee╱)╱ // 0x1978 @0x1a
0x195e…197a at001b = EOL // 0x1979 @0x1b
0x195e…197a }
0x197a…1990 af7e 2580 LET LIN_T := LIN_T + 1
0x197a…1990 LineComal80 {
0x197a…1990 ptr = 0xaf7e // 0x197a @0x0
0x197a…1990 lno = 0x0a14 // 0x197c @0x2
0x197a…1990 at0004 = ╱86╱ LET ╱ // 0x197e @0x4
0x197a…1990 at0005 = ╱4c╱L╱ // 0x197f @0x5
0x197a…1990 at0006 = ╱49╱I╱ // 0x1980 @0x6
0x197a…1990 at0007 = ╱4e╱N╱ // 0x1981 @0x7
0x197a…1990 at0008 = ╱5f╱_╱ // 0x1982 @0x8
0x197a…1990 at0009 = ╱54╱T╱ // 0x1983 @0x9
0x197a…1990 at000a = ╱f0╱ := ╱ // 0x1984 @0xa
0x197a…1990 at000b = ╱4c╱L╱ // 0x1985 @0xb
0x197a…1990 at000c = ╱49╱I╱ // 0x1986 @0xc
0x197a…1990 at000d = ╱4e╱N╱ // 0x1987 @0xd
0x197a…1990 at000e = ╱5f╱_╱ // 0x1988 @0xe
0x197a…1990 at000f = ╱54╱T╱ // 0x1989 @0xf
0x197a…1990 at0010 = ╱e5╱ + ╱ // 0x198a @0x10
0x197a…1990 at0011 = ╱31╱1╱ // 0x198b @0x11
0x197a…1990 at0012 = ╱f20100╱ // 0x198c @0x12
0x197a…1990 at0015 = EOL // 0x198f @0x15
0x197a…1990 }
0x1990…1997 af85 2590 ELSE
0x1990…1997 LineComal80 {
0x1990…1997 ptr = 0xaf85 // 0x1990 @0x0
0x1990…1997 lno = 0x0a1e // 0x1992 @0x2
0x1990…1997 at0004 = ╱9a2c╱ ELSE ╱ // 0x1994 @0x4
0x1990…1997 at0006 = EOL // 0x1996 @0x6
0x1990…1997 }
0x1997…19a3 af91 2600 EXEC NYSIDE
0x1997…19a3 LineComal80 {
0x1997…19a3 ptr = 0xaf91 // 0x1997 @0x0
0x1997…19a3 lno = 0x0a28 // 0x1999 @0x2
0x1997…19a3 at0004 = ╱9d╱ EXEC ╱ // 0x199b @0x4
0x1997…19a3 at0005 = ╱4e╱N╱ // 0x199c @0x5
0x1997…19a3 at0006 = ╱59╱Y╱ // 0x199d @0x6
0x1997…19a3 at0007 = ╱53╱S╱ // 0x199e @0x7
0x1997…19a3 at0008 = ╱49╱I╱ // 0x199f @0x8
0x1997…19a3 at0009 = ╱44╱D╱ // 0x19a0 @0x9
0x1997…19a3 at000a = ╱45╱E╱ // 0x19a1 @0xa
0x1997…19a3 at000b = EOL // 0x19a2 @0xb
0x1997…19a3 }
0x19a3…19a9 af97 2610 ENDIF
0x19a3…19a9 LineComal80 {
0x19a3…19a9 ptr = 0xaf97 // 0x19a3 @0x0
0x19a3…19a9 lno = 0x0a32 // 0x19a5 @0x2
0x19a3…19a9 at0004 = ╱9c╱ ENDIF ╱ // 0x19a7 @0x4
0x19a3…19a9 at0005 = EOL // 0x19a8 @0x5
0x19a3…19a9 }
0x19a9…19b8 afa6 2620 ENDPROC SIDESKIFT
0x19a9…19b8 LineComal80 {
0x19a9…19b8 ptr = 0xafa6 // 0x19a9 @0x0
0x19a9…19b8 lno = 0x0a3c // 0x19ab @0x2
0x19a9…19b8 at0004 = ╱9f╱ ENDPROC ╱ // 0x19ad @0x4
0x19a9…19b8 at0005 = ╱53╱S╱ // 0x19ae @0x5
0x19a9…19b8 at0006 = ╱49╱I╱ // 0x19af @0x6
0x19a9…19b8 at0007 = ╱44╱D╱ // 0x19b0 @0x7
0x19a9…19b8 at0008 = ╱45╱E╱ // 0x19b1 @0x8
0x19a9…19b8 at0009 = ╱53╱S╱ // 0x19b2 @0x9
0x19a9…19b8 at000a = ╱4b╱K╱ // 0x19b3 @0xa
0x19a9…19b8 at000b = ╱49╱I╱ // 0x19b4 @0xb
0x19a9…19b8 at000c = ╱46╱F╱ // 0x19b5 @0xc
0x19a9…19b8 at000d = ╱54╱T╱ // 0x19b6 @0xd
0x19a9…19b8 at000e = EOL // 0x19b7 @0xe
0x19a9…19b8 }
0x19b8…19c5 afb3 2630 PROC NYSIDE
0x19b8…19c5 LineComal80 {
0x19b8…19c5 ptr = 0xafb3 // 0x19b8 @0x0
0x19b8…19c5 lno = 0x0a46 // 0x19ba @0x2
0x19b8…19c5 at0004 = ╱9e2d╱ PROC ╱ // 0x19bc @0x4
0x19b8…19c5 at0006 = ╱4e╱N╱ // 0x19be @0x6
0x19b8…19c5 at0007 = ╱59╱Y╱ // 0x19bf @0x7
0x19b8…19c5 at0008 = ╱53╱S╱ // 0x19c0 @0x8
0x19b8…19c5 at0009 = ╱49╱I╱ // 0x19c1 @0x9
0x19b8…19c5 at000a = ╱44╱D╱ // 0x19c2 @0xa
0x19b8…19c5 at000b = ╱45╱E╱ // 0x19c3 @0xb
0x19b8…19c5 at000c = EOL // 0x19c4 @0xc
0x19b8…19c5 }
0x19c5…19d9 afc7 2640 IF UT_WAY$ = "P" THEN
0x19c5…19d9 LineComal80 {
0x19c5…19d9 ptr = 0xafc7 // 0x19c5 @0x0
0x19c5…19d9 lno = 0x0a50 // 0x19c7 @0x2
0x19c5…19d9 at0004 = ╱9b2e4f╱ IF ╱ // 0x19c9 @0x4
0x19c5…19d9 at0007 = ╱55╱U╱ // 0x19cc @0x7
0x19c5…19d9 at0008 = ╱54╱T╱ // 0x19cd @0x8
0x19c5…19d9 at0009 = ╱5f╱_╱ // 0x19ce @0x9
0x19c5…19d9 at000a = ╱57╱W╱ // 0x19cf @0xa
0x19c5…19d9 at000b = ╱41╱A╱ // 0x19d0 @0xb
0x19c5…19d9 at000c = ╱59╱Y╱ // 0x19d1 @0xc
0x19c5…19d9 at000d = ╱ef╱$╱ // 0x19d2 @0xd
0x19c5…19d9 at000e = ╱df╱ = ╱ // 0x19d3 @0xe
0x19c5…19d9 at000f = ╱22╱"╱ // 0x19d4 @0xf
0x19c5…19d9 at0010 = ╱50╱P╱ // 0x19d5 @0x10
0x19c5…19d9 at0011 = ╱22╱"╱ // 0x19d6 @0x11
0x19c5…19d9 at0012 = ╱b5╱ THEN ╱ // 0x19d7 @0x12
0x19c5…19d9 at0013 = EOL // 0x19d8 @0x13
0x19c5…19d9 }
0x19d9…19f1 afdf 2650 FOR I := LIN_T TO AX_LIN DO PRINT
0x19d9…19f1 LineComal80 {
0x19d9…19f1 ptr = 0xafdf // 0x19d9 @0x0
0x19d9…19f1 lno = 0x0a5a // 0x19db @0x2
0x19d9…19f1 at0004 = ╱b400╱ FOR ╱ // 0x19dd @0x4
0x19d9…19f1 at0006 = ╱49╱I╱ // 0x19df @0x6
0x19d9…19f1 at0007 = ╱f0╱ := ╱ // 0x19e0 @0x7
0x19d9…19f1 at0008 = ╱4c╱L╱ // 0x19e1 @0x8
0x19d9…19f1 at0009 = ╱49╱I╱ // 0x19e2 @0x9
0x19d9…19f1 at000a = ╱4e╱N╱ // 0x19e3 @0xa
0x19d9…19f1 at000b = ╱5f╱_╱ // 0x19e4 @0xb
0x19d9…19f1 at000c = ╱54╱T╱ // 0x19e5 @0xc
0x19d9…19f1 at000d = ╱b74d╱ TO ╱ // 0x19e6 @0xd
0x19d9…19f1 at000f = ╱41╱A╱ // 0x19e8 @0xf
0x19d9…19f1 at0010 = ╱58╱X╱ // 0x19e9 @0x10
0x19d9…19f1 at0011 = ╱5f╱_╱ // 0x19ea @0x11
0x19d9…19f1 at0012 = ╱4c╱L╱ // 0x19eb @0x12
0x19d9…19f1 at0013 = ╱49╱I╱ // 0x19ec @0x13
0x19d9…19f1 at0014 = ╱4e╱N╱ // 0x19ed @0x14
0x19d9…19f1 at0015 = ╱bb╱ DO ╱ // 0x19ee @0x15
0x19d9…19f1 at0016 = ╱92╱ PRINT ╱ // 0x19ef @0x16
0x19d9…19f1 at0017 = EOL // 0x19f0 @0x17
0x19d9…19f1 }
0x19f1…19f8 afe6 2660 ELSE
0x19f1…19f8 LineComal80 {
0x19f1…19f8 ptr = 0xafe6 // 0x19f1 @0x0
0x19f1…19f8 lno = 0x0a64 // 0x19f3 @0x2
0x19f1…19f8 at0004 = ╱9a2f╱ ELSE ╱ // 0x19f5 @0x4
0x19f1…19f8 at0006 = EOL // 0x19f7 @0x6
0x19f1…19f8 }
0x19f8…1a26 b014 2670 INPUT "<SC5523>Næste side - tryk RETURN" : SVAR$
0x19f8…1a26 LineComal80 {
0x19f8…1a26 ptr = 0xb014 // 0x19f8 @0x0
0x19f8…1a26 lno = 0x0a6e // 0x19fa @0x2
0x19f8…1a26 at0004 = ╱91╱ INPUT ╱ // 0x19fc @0x4
0x19f8…1a26 at0005 = ╱22╱"╱ // 0x19fd @0x5
0x19f8…1a26 at0006 = ╱3c╱<╱ // 0x19fe @0x6
0x19f8…1a26 at0007 = ╱53╱S╱ // 0x19ff @0x7
0x19f8…1a26 at0008 = ╱43╱C╱ // 0x1a00 @0x8
0x19f8…1a26 at0009 = ╱35╱5╱ // 0x1a01 @0x9
0x19f8…1a26 at000a = ╱35╱5╱ // 0x1a02 @0xa
0x19f8…1a26 at000b = ╱32╱2╱ // 0x1a03 @0xb
0x19f8…1a26 at000c = ╱33╱3╱ // 0x1a04 @0xc
0x19f8…1a26 at000d = ╱3e╱>╱ // 0x1a05 @0xd
0x19f8…1a26 at000e = ╱4e╱N╱ // 0x1a06 @0xe
0x19f8…1a26 at000f = ╱7b╱æ╱ // 0x1a07 @0xf
0x19f8…1a26 at0010 = ╱73╱s╱ // 0x1a08 @0x10
0x19f8…1a26 at0011 = ╱74╱t╱ // 0x1a09 @0x11
0x19f8…1a26 at0012 = ╱65╱e╱ // 0x1a0a @0x12
0x19f8…1a26 at0013 = ╱20╱…╱ // 0x1a0b @0x13
0x19f8…1a26 at0014 = ╱73╱s╱ // 0x1a0c @0x14
0x19f8…1a26 at0015 = ╱69╱i╱ // 0x1a0d @0x15
0x19f8…1a26 at0016 = ╱64╱d╱ // 0x1a0e @0x16
0x19f8…1a26 at0017 = ╱65╱e╱ // 0x1a0f @0x17
0x19f8…1a26 at0018 = ╱20╱…╱ // 0x1a10 @0x18
0x19f8…1a26 at0019 = ╱2d╱-╱ // 0x1a11 @0x19
0x19f8…1a26 at001a = ╱20╱…╱ // 0x1a12 @0x1a
0x19f8…1a26 at001b = ╱74╱t╱ // 0x1a13 @0x1b
0x19f8…1a26 at001c = ╱72╱r╱ // 0x1a14 @0x1c
0x19f8…1a26 at001d = ╱79╱y╱ // 0x1a15 @0x1d
0x19f8…1a26 at001e = ╱6b╱k╱ // 0x1a16 @0x1e
0x19f8…1a26 at001f = ╱20╱…╱ // 0x1a17 @0x1f
0x19f8…1a26 at0020 = ╱52╱R╱ // 0x1a18 @0x20
0x19f8…1a26 at0021 = ╱45╱E╱ // 0x1a19 @0x21
0x19f8…1a26 at0022 = ╱54╱T╱ // 0x1a1a @0x22
0x19f8…1a26 at0023 = ╱55╱U╱ // 0x1a1b @0x23
0x19f8…1a26 at0024 = ╱52╱R╱ // 0x1a1c @0x24
0x19f8…1a26 at0025 = ╱4e╱N╱ // 0x1a1d @0x25
0x19f8…1a26 at0026 = ╱22╱"╱ // 0x1a1e @0x26
0x19f8…1a26 at0027 = ╱f1╱ : ╱ // 0x1a1f @0x27
0x19f8…1a26 at0028 = ╱53╱S╱ // 0x1a20 @0x28
0x19f8…1a26 at0029 = ╱56╱V╱ // 0x1a21 @0x29
0x19f8…1a26 at002a = ╱41╱A╱ // 0x1a22 @0x2a
0x19f8…1a26 at002b = ╱52╱R╱ // 0x1a23 @0x2b
0x19f8…1a26 at002c = ╱ef╱$╱ // 0x1a24 @0x2c
0x19f8…1a26 at002d = EOL // 0x1a25 @0x2d
0x19f8…1a26 }
0x1a26…1a2c b01a 2680 CLEAR
0x1a26…1a2c LineComal80 {
0x1a26…1a2c ptr = 0xb01a // 0x1a26 @0x0
0x1a26…1a2c lno = 0x0a78 // 0x1a28 @0x2
0x1a26…1a2c at0004 = ╱a0╱ CLEAR ╱ // 0x1a2a @0x4
0x1a26…1a2c at0005 = EOL // 0x1a2b @0x5
0x1a26…1a2c }
0x1a2c…1a32 bdb4 2690 ENDIF
0x1a2c…1a32 LineComal80 {
0x1a2c…1a32 ptr = 0xbdb4 // 0x1a2c @0x0
0x1a2c…1a32 lno = 0x0a82 // 0x1a2e @0x2
0x1a2c…1a32 at0004 = ╱9c╱ ENDIF ╱ // 0x1a30 @0x4
0x1a2c…1a32 at0005 = EOL // 0x1a31 @0x5
0x1a2c…1a32 }
0x1a32…1a55 b043 2700 LET LIN_T := 9 ; SIDENR := SIDENR + 1
0x1a32…1a55 LineComal80 {
0x1a32…1a55 ptr = 0xb043 // 0x1a32 @0x0
0x1a32…1a55 lno = 0x0a8c // 0x1a34 @0x2
0x1a32…1a55 at0004 = ╱86╱ LET ╱ // 0x1a36 @0x4
0x1a32…1a55 at0005 = ╱4c╱L╱ // 0x1a37 @0x5
0x1a32…1a55 at0006 = ╱49╱I╱ // 0x1a38 @0x6
0x1a32…1a55 at0007 = ╱4e╱N╱ // 0x1a39 @0x7
0x1a32…1a55 at0008 = ╱5f╱_╱ // 0x1a3a @0x8
0x1a32…1a55 at0009 = ╱54╱T╱ // 0x1a3b @0x9
0x1a32…1a55 at000a = ╱f0╱ := ╱ // 0x1a3c @0xa
0x1a32…1a55 at000b = ╱39╱9╱ // 0x1a3d @0xb
0x1a32…1a55 at000c = ╱f20900╱ // 0x1a3e @0xc
0x1a32…1a55 at000f = ╱ea╱ ; ╱ // 0x1a41 @0xf
0x1a32…1a55 at0010 = ╱53╱S╱ // 0x1a42 @0x10
0x1a32…1a55 at0011 = ╱49╱I╱ // 0x1a43 @0x11
0x1a32…1a55 at0012 = ╱44╱D╱ // 0x1a44 @0x12
0x1a32…1a55 at0013 = ╱45╱E╱ // 0x1a45 @0x13
0x1a32…1a55 at0014 = ╱4e╱N╱ // 0x1a46 @0x14
0x1a32…1a55 at0015 = ╱52╱R╱ // 0x1a47 @0x15
0x1a32…1a55 at0016 = ╱f0╱ := ╱ // 0x1a48 @0x16
0x1a32…1a55 at0017 = ╱53╱S╱ // 0x1a49 @0x17
0x1a32…1a55 at0018 = ╱49╱I╱ // 0x1a4a @0x18
0x1a32…1a55 at0019 = ╱44╱D╱ // 0x1a4b @0x19
0x1a32…1a55 at001a = ╱45╱E╱ // 0x1a4c @0x1a
0x1a32…1a55 at001b = ╱4e╱N╱ // 0x1a4d @0x1b
0x1a32…1a55 at001c = ╱52╱R╱ // 0x1a4e @0x1c
0x1a32…1a55 at001d = ╱e5╱ + ╱ // 0x1a4f @0x1d
0x1a32…1a55 at001e = ╱31╱1╱ // 0x1a50 @0x1e
0x1a32…1a55 at001f = ╱f20100╱ // 0x1a51 @0x1f
0x1a32…1a55 at0022 = EOL // 0x1a54 @0x22
0x1a32…1a55 }
0x1a55…1a7d b06b 2710 PRINT "*** " ; SYST_NAVN$ ; " ***" ; TAB(41) ;
0x1a55…1a7d LineComal80 {
0x1a55…1a7d ptr = 0xb06b // 0x1a55 @0x0
0x1a55…1a7d lno = 0x0a96 // 0x1a57 @0x2
0x1a55…1a7d at0004 = ╱92╱ PRINT ╱ // 0x1a59 @0x4
0x1a55…1a7d at0005 = ╱22╱"╱ // 0x1a5a @0x5
0x1a55…1a7d at0006 = ╱2a╱*╱ // 0x1a5b @0x6
0x1a55…1a7d at0007 = ╱2a╱*╱ // 0x1a5c @0x7
0x1a55…1a7d at0008 = ╱2a╱*╱ // 0x1a5d @0x8
0x1a55…1a7d at0009 = ╱20╱…╱ // 0x1a5e @0x9
0x1a55…1a7d at000a = ╱22╱"╱ // 0x1a5f @0xa
0x1a55…1a7d at000b = ╱ea╱ ; ╱ // 0x1a60 @0xb
0x1a55…1a7d at000c = ╱53╱S╱ // 0x1a61 @0xc
0x1a55…1a7d at000d = ╱59╱Y╱ // 0x1a62 @0xd
0x1a55…1a7d at000e = ╱53╱S╱ // 0x1a63 @0xe
0x1a55…1a7d at000f = ╱54╱T╱ // 0x1a64 @0xf
0x1a55…1a7d at0010 = ╱5f╱_╱ // 0x1a65 @0x10
0x1a55…1a7d at0011 = ╱4e╱N╱ // 0x1a66 @0x11
0x1a55…1a7d at0012 = ╱41╱A╱ // 0x1a67 @0x12
0x1a55…1a7d at0013 = ╱56╱V╱ // 0x1a68 @0x13
0x1a55…1a7d at0014 = ╱4e╱N╱ // 0x1a69 @0x14
0x1a55…1a7d at0015 = ╱ef╱$╱ // 0x1a6a @0x15
0x1a55…1a7d at0016 = ╱ea╱ ; ╱ // 0x1a6b @0x16
0x1a55…1a7d at0017 = ╱22╱"╱ // 0x1a6c @0x17
0x1a55…1a7d at0018 = ╱20╱…╱ // 0x1a6d @0x18
0x1a55…1a7d at0019 = ╱2a╱*╱ // 0x1a6e @0x19
0x1a55…1a7d at001a = ╱2a╱*╱ // 0x1a6f @0x1a
0x1a55…1a7d at001b = ╱2a╱*╱ // 0x1a70 @0x1b
0x1a55…1a7d at001c = ╱22╱"╱ // 0x1a71 @0x1c
0x1a55…1a7d at001d = ╱ea╱ ; ╱ // 0x1a72 @0x1d
0x1a55…1a7d at001e = ╱d2╱TAB╱ // 0x1a73 @0x1e
0x1a55…1a7d at001f = ╱ed╱(╱ // 0x1a74 @0x1f
0x1a55…1a7d at0020 = ╱34╱4╱ // 0x1a75 @0x20
0x1a55…1a7d at0021 = ╱31╱1╱ // 0x1a76 @0x21
0x1a55…1a7d at0022 = ╱f22900╱ // 0x1a77 @0x22
0x1a55…1a7d at0025 = ╱ee╱)╱ // 0x1a7a @0x25
0x1a55…1a7d at0026 = ╱ea╱ ; ╱ // 0x1a7b @0x26
0x1a55…1a7d at0027 = EOL // 0x1a7c @0x27
0x1a55…1a7d }
0x1a7d…1aca b0b8 2720 PRINT "*** UDSKREVET PR. " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "." ;
0x1a7d…1aca LineComal80 {
0x1a7d…1aca ptr = 0xb0b8 // 0x1a7d @0x0
0x1a7d…1aca lno = 0x0aa0 // 0x1a7f @0x2
0x1a7d…1aca at0004 = ╱92╱ PRINT ╱ // 0x1a81 @0x4
0x1a7d…1aca at0005 = ╱22╱"╱ // 0x1a82 @0x5
0x1a7d…1aca at0006 = ╱2a╱*╱ // 0x1a83 @0x6
0x1a7d…1aca at0007 = ╱2a╱*╱ // 0x1a84 @0x7
0x1a7d…1aca at0008 = ╱2a╱*╱ // 0x1a85 @0x8
0x1a7d…1aca at0009 = ╱20╱…╱ // 0x1a86 @0x9
0x1a7d…1aca at000a = ╱55╱U╱ // 0x1a87 @0xa
0x1a7d…1aca at000b = ╱44╱D╱ // 0x1a88 @0xb
0x1a7d…1aca at000c = ╱53╱S╱ // 0x1a89 @0xc
0x1a7d…1aca at000d = ╱4b╱K╱ // 0x1a8a @0xd
0x1a7d…1aca at000e = ╱52╱R╱ // 0x1a8b @0xe
0x1a7d…1aca at000f = ╱45╱E╱ // 0x1a8c @0xf
0x1a7d…1aca at0010 = ╱56╱V╱ // 0x1a8d @0x10
0x1a7d…1aca at0011 = ╱45╱E╱ // 0x1a8e @0x11
0x1a7d…1aca at0012 = ╱54╱T╱ // 0x1a8f @0x12
0x1a7d…1aca at0013 = ╱20╱…╱ // 0x1a90 @0x13
0x1a7d…1aca at0014 = ╱50╱P╱ // 0x1a91 @0x14
0x1a7d…1aca at0015 = ╱52╱R╱ // 0x1a92 @0x15
0x1a7d…1aca at0016 = ╱2e╱.╱ // 0x1a93 @0x16
0x1a7d…1aca at0017 = ╱20╱…╱ // 0x1a94 @0x17
0x1a7d…1aca at0018 = ╱22╱"╱ // 0x1a95 @0x18
0x1a7d…1aca at0019 = ╱ea╱ ; ╱ // 0x1a96 @0x19
0x1a7d…1aca at001a = ╱53╱S╱ // 0x1a97 @0x1a
0x1a7d…1aca at001b = ╱59╱Y╱ // 0x1a98 @0x1b
0x1a7d…1aca at001c = ╱53╱S╱ // 0x1a99 @0x1c
0x1a7d…1aca at001d = ╱54╱T╱ // 0x1a9a @0x1d
0x1a7d…1aca at001e = ╱5f╱_╱ // 0x1a9b @0x1e
0x1a7d…1aca at001f = ╱44╱D╱ // 0x1a9c @0x1f
0x1a7d…1aca at0020 = ╱41╱A╱ // 0x1a9d @0x20
0x1a7d…1aca at0021 = ╱54╱T╱ // 0x1a9e @0x21
0x1a7d…1aca at0022 = ╱ef╱$╱ // 0x1a9f @0x22
0x1a7d…1aca at0023 = ╱ed╱(╱ // 0x1aa0 @0x23
0x1a7d…1aca at0024 = ╱31╱1╱ // 0x1aa1 @0x24
0x1a7d…1aca at0025 = ╱f20100╱ // 0x1aa2 @0x25
0x1a7d…1aca at0028 = ╱f1╱ : ╱ // 0x1aa5 @0x28
0x1a7d…1aca at0029 = ╱32╱2╱ // 0x1aa6 @0x29
0x1a7d…1aca at002a = ╱f20200╱ // 0x1aa7 @0x2a
0x1a7d…1aca at002d = ╱ee╱)╱ // 0x1aaa @0x2d
0x1a7d…1aca at002e = ╱ea╱ ; ╱ // 0x1aab @0x2e
0x1a7d…1aca at002f = ╱22╱"╱ // 0x1aac @0x2f
0x1a7d…1aca at0030 = ╱2e╱.╱ // 0x1aad @0x30
0x1a7d…1aca at0031 = ╱22╱"╱ // 0x1aae @0x31
0x1a7d…1aca at0032 = ╱ea╱ ; ╱ // 0x1aaf @0x32
0x1a7d…1aca at0033 = ╱53╱S╱ // 0x1ab0 @0x33
0x1a7d…1aca at0034 = ╱59╱Y╱ // 0x1ab1 @0x34
0x1a7d…1aca at0035 = ╱53╱S╱ // 0x1ab2 @0x35
0x1a7d…1aca at0036 = ╱54╱T╱ // 0x1ab3 @0x36
0x1a7d…1aca at0037 = ╱5f╱_╱ // 0x1ab4 @0x37
0x1a7d…1aca at0038 = ╱44╱D╱ // 0x1ab5 @0x38
0x1a7d…1aca at0039 = ╱41╱A╱ // 0x1ab6 @0x39
0x1a7d…1aca at003a = ╱54╱T╱ // 0x1ab7 @0x3a
0x1a7d…1aca at003b = ╱ef╱$╱ // 0x1ab8 @0x3b
0x1a7d…1aca at003c = ╱ed╱(╱ // 0x1ab9 @0x3c
0x1a7d…1aca at003d = ╱33╱3╱ // 0x1aba @0x3d
0x1a7d…1aca at003e = ╱f20300╱ // 0x1abb @0x3e
0x1a7d…1aca at0041 = ╱f1╱ : ╱ // 0x1abe @0x41
0x1a7d…1aca at0042 = ╱32╱2╱ // 0x1abf @0x42
0x1a7d…1aca at0043 = ╱f20200╱ // 0x1ac0 @0x43
0x1a7d…1aca at0046 = ╱ee╱)╱ // 0x1ac3 @0x46
0x1a7d…1aca at0047 = ╱ea╱ ; ╱ // 0x1ac4 @0x47
0x1a7d…1aca at0048 = ╱22╱"╱ // 0x1ac5 @0x48
0x1a7d…1aca at0049 = ╱2e╱.╱ // 0x1ac6 @0x49
0x1a7d…1aca at004a = ╱22╱"╱ // 0x1ac7 @0x4a
0x1a7d…1aca at004b = ╱ea╱ ; ╱ // 0x1ac8 @0x4b
0x1a7d…1aca at004c = EOL // 0x1ac9 @0x4c
0x1a7d…1aca }
0x1aca…1af9 b0e7 2730 PRINT SYST_DAT$(5 : 2) ; " *** SIDE: " ; SIDENR
0x1aca…1af9 LineComal80 {
0x1aca…1af9 ptr = 0xb0e7 // 0x1aca @0x0
0x1aca…1af9 lno = 0x0aaa // 0x1acc @0x2
0x1aca…1af9 at0004 = ╱92╱ PRINT ╱ // 0x1ace @0x4
0x1aca…1af9 at0005 = ╱53╱S╱ // 0x1acf @0x5
0x1aca…1af9 at0006 = ╱59╱Y╱ // 0x1ad0 @0x6
0x1aca…1af9 at0007 = ╱53╱S╱ // 0x1ad1 @0x7
0x1aca…1af9 at0008 = ╱54╱T╱ // 0x1ad2 @0x8
0x1aca…1af9 at0009 = ╱5f╱_╱ // 0x1ad3 @0x9
0x1aca…1af9 at000a = ╱44╱D╱ // 0x1ad4 @0xa
0x1aca…1af9 at000b = ╱41╱A╱ // 0x1ad5 @0xb
0x1aca…1af9 at000c = ╱54╱T╱ // 0x1ad6 @0xc
0x1aca…1af9 at000d = ╱ef╱$╱ // 0x1ad7 @0xd
0x1aca…1af9 at000e = ╱ed╱(╱ // 0x1ad8 @0xe
0x1aca…1af9 at000f = ╱35╱5╱ // 0x1ad9 @0xf
0x1aca…1af9 at0010 = ╱f20500╱ // 0x1ada @0x10
0x1aca…1af9 at0013 = ╱f1╱ : ╱ // 0x1add @0x13
0x1aca…1af9 at0014 = ╱32╱2╱ // 0x1ade @0x14
0x1aca…1af9 at0015 = ╱f20200╱ // 0x1adf @0x15
0x1aca…1af9 at0018 = ╱ee╱)╱ // 0x1ae2 @0x18
0x1aca…1af9 at0019 = ╱ea╱ ; ╱ // 0x1ae3 @0x19
0x1aca…1af9 at001a = ╱22╱"╱ // 0x1ae4 @0x1a
0x1aca…1af9 at001b = ╱20╱…╱ // 0x1ae5 @0x1b
0x1aca…1af9 at001c = ╱2a╱*╱ // 0x1ae6 @0x1c
0x1aca…1af9 at001d = ╱2a╱*╱ // 0x1ae7 @0x1d
0x1aca…1af9 at001e = ╱2a╱*╱ // 0x1ae8 @0x1e
0x1aca…1af9 at001f = ╱20╱…╱ // 0x1ae9 @0x1f
0x1aca…1af9 at0020 = ╱53╱S╱ // 0x1aea @0x20
0x1aca…1af9 at0021 = ╱49╱I╱ // 0x1aeb @0x21
0x1aca…1af9 at0022 = ╱44╱D╱ // 0x1aec @0x22
0x1aca…1af9 at0023 = ╱45╱E╱ // 0x1aed @0x23
0x1aca…1af9 at0024 = ╱3a╱:╱ // 0x1aee @0x24
0x1aca…1af9 at0025 = ╱20╱…╱ // 0x1aef @0x25
0x1aca…1af9 at0026 = ╱22╱"╱ // 0x1af0 @0x26
0x1aca…1af9 at0027 = ╱ea╱ ; ╱ // 0x1af1 @0x27
0x1aca…1af9 at0028 = ╱53╱S╱ // 0x1af2 @0x28
0x1aca…1af9 at0029 = ╱49╱I╱ // 0x1af3 @0x29
0x1aca…1af9 at002a = ╱44╱D╱ // 0x1af4 @0x2a
0x1aca…1af9 at002b = ╱45╱E╱ // 0x1af5 @0x2b
0x1aca…1af9 at002c = ╱4e╱N╱ // 0x1af6 @0x2c
0x1aca…1af9 at002d = ╱52╱R╱ // 0x1af7 @0x2d
0x1aca…1af9 at002e = EOL // 0x1af8 @0x2e
0x1aca…1af9 }
0x1af9…1aff b0ed 2740 PRINT
0x1af9…1aff LineComal80 {
0x1af9…1aff ptr = 0xb0ed // 0x1af9 @0x0
0x1af9…1aff lno = 0x0ab4 // 0x1afb @0x2
0x1af9…1aff at0004 = ╱92╱ PRINT ╱ // 0x1afd @0x4
0x1af9…1aff at0005 = EOL // 0x1afe @0x5
0x1af9…1aff }
0x1aff…1b38 b126 2750 PRINT "Firmanavn: " ; FIRMANAVN$ ; TAB(54) ; "** KONTOKORT **"
0x1aff…1b38 LineComal80 {
0x1aff…1b38 ptr = 0xb126 // 0x1aff @0x0
0x1aff…1b38 lno = 0x0abe // 0x1b01 @0x2
0x1aff…1b38 at0004 = ╱92╱ PRINT ╱ // 0x1b03 @0x4
0x1aff…1b38 at0005 = ╱22╱"╱ // 0x1b04 @0x5
0x1aff…1b38 at0006 = ╱46╱F╱ // 0x1b05 @0x6
0x1aff…1b38 at0007 = ╱69╱i╱ // 0x1b06 @0x7
0x1aff…1b38 at0008 = ╱72╱r╱ // 0x1b07 @0x8
0x1aff…1b38 at0009 = ╱6d╱m╱ // 0x1b08 @0x9
0x1aff…1b38 at000a = ╱61╱a╱ // 0x1b09 @0xa
0x1aff…1b38 at000b = ╱6e╱n╱ // 0x1b0a @0xb
0x1aff…1b38 at000c = ╱61╱a╱ // 0x1b0b @0xc
0x1aff…1b38 at000d = ╱76╱v╱ // 0x1b0c @0xd
0x1aff…1b38 at000e = ╱6e╱n╱ // 0x1b0d @0xe
0x1aff…1b38 at000f = ╱3a╱:╱ // 0x1b0e @0xf
0x1aff…1b38 at0010 = ╱20╱…╱ // 0x1b0f @0x10
0x1aff…1b38 at0011 = ╱22╱"╱ // 0x1b10 @0x11
0x1aff…1b38 at0012 = ╱ea╱ ; ╱ // 0x1b11 @0x12
0x1aff…1b38 at0013 = ╱46╱F╱ // 0x1b12 @0x13
0x1aff…1b38 at0014 = ╱49╱I╱ // 0x1b13 @0x14
0x1aff…1b38 at0015 = ╱52╱R╱ // 0x1b14 @0x15
0x1aff…1b38 at0016 = ╱4d╱M╱ // 0x1b15 @0x16
0x1aff…1b38 at0017 = ╱41╱A╱ // 0x1b16 @0x17
0x1aff…1b38 at0018 = ╱4e╱N╱ // 0x1b17 @0x18
0x1aff…1b38 at0019 = ╱41╱A╱ // 0x1b18 @0x19
0x1aff…1b38 at001a = ╱56╱V╱ // 0x1b19 @0x1a
0x1aff…1b38 at001b = ╱4e╱N╱ // 0x1b1a @0x1b
0x1aff…1b38 at001c = ╱ef╱$╱ // 0x1b1b @0x1c
0x1aff…1b38 at001d = ╱ea╱ ; ╱ // 0x1b1c @0x1d
0x1aff…1b38 at001e = ╱d2╱TAB╱ // 0x1b1d @0x1e
0x1aff…1b38 at001f = ╱ed╱(╱ // 0x1b1e @0x1f
0x1aff…1b38 at0020 = ╱35╱5╱ // 0x1b1f @0x20
0x1aff…1b38 at0021 = ╱34╱4╱ // 0x1b20 @0x21
0x1aff…1b38 at0022 = ╱f23600╱ // 0x1b21 @0x22
0x1aff…1b38 at0025 = ╱ee╱)╱ // 0x1b24 @0x25
0x1aff…1b38 at0026 = ╱ea╱ ; ╱ // 0x1b25 @0x26
0x1aff…1b38 at0027 = ╱22╱"╱ // 0x1b26 @0x27
0x1aff…1b38 at0028 = ╱2a╱*╱ // 0x1b27 @0x28
0x1aff…1b38 at0029 = ╱2a╱*╱ // 0x1b28 @0x29
0x1aff…1b38 at002a = ╱20╱…╱ // 0x1b29 @0x2a
0x1aff…1b38 at002b = ╱4b╱K╱ // 0x1b2a @0x2b
0x1aff…1b38 at002c = ╱4f╱O╱ // 0x1b2b @0x2c
0x1aff…1b38 at002d = ╱4e╱N╱ // 0x1b2c @0x2d
0x1aff…1b38 at002e = ╱54╱T╱ // 0x1b2d @0x2e
0x1aff…1b38 at002f = ╱4f╱O╱ // 0x1b2e @0x2f
0x1aff…1b38 at0030 = ╱4b╱K╱ // 0x1b2f @0x30
0x1aff…1b38 at0031 = ╱4f╱O╱ // 0x1b30 @0x31
0x1aff…1b38 at0032 = ╱52╱R╱ // 0x1b31 @0x32
0x1aff…1b38 at0033 = ╱54╱T╱ // 0x1b32 @0x33
0x1aff…1b38 at0034 = ╱20╱…╱ // 0x1b33 @0x34
0x1aff…1b38 at0035 = ╱2a╱*╱ // 0x1b34 @0x35
0x1aff…1b38 at0036 = ╱2a╱*╱ // 0x1b35 @0x36
0x1aff…1b38 at0037 = ╱22╱"╱ // 0x1b36 @0x37
0x1aff…1b38 at0038 = EOL // 0x1b37 @0x38
0x1aff…1b38 }
0x1b38…1b3e b12c 2760 PRINT
0x1b38…1b3e LineComal80 {
0x1b38…1b3e ptr = 0xb12c // 0x1b38 @0x0
0x1b38…1b3e lno = 0x0ac8 // 0x1b3a @0x2
0x1b38…1b3e at0004 = ╱92╱ PRINT ╱ // 0x1b3c @0x4
0x1b38…1b3e at0005 = EOL // 0x1b3d @0x5
0x1b38…1b3e }
0x1b3e…1b88 b176 2770 PRINT "** KONTONR: " ; KTONR$ ; TAB(25) ; "KONTONAVN: " ; KTO_NAVN$ ; TAB(77) ; "**"
0x1b3e…1b88 LineComal80 {
0x1b3e…1b88 ptr = 0xb176 // 0x1b3e @0x0
0x1b3e…1b88 lno = 0x0ad2 // 0x1b40 @0x2
0x1b3e…1b88 at0004 = ╱92╱ PRINT ╱ // 0x1b42 @0x4
0x1b3e…1b88 at0005 = ╱22╱"╱ // 0x1b43 @0x5
0x1b3e…1b88 at0006 = ╱2a╱*╱ // 0x1b44 @0x6
0x1b3e…1b88 at0007 = ╱2a╱*╱ // 0x1b45 @0x7
0x1b3e…1b88 at0008 = ╱20╱…╱ // 0x1b46 @0x8
0x1b3e…1b88 at0009 = ╱4b╱K╱ // 0x1b47 @0x9
0x1b3e…1b88 at000a = ╱4f╱O╱ // 0x1b48 @0xa
0x1b3e…1b88 at000b = ╱4e╱N╱ // 0x1b49 @0xb
0x1b3e…1b88 at000c = ╱54╱T╱ // 0x1b4a @0xc
0x1b3e…1b88 at000d = ╱4f╱O╱ // 0x1b4b @0xd
0x1b3e…1b88 at000e = ╱4e╱N╱ // 0x1b4c @0xe
0x1b3e…1b88 at000f = ╱52╱R╱ // 0x1b4d @0xf
0x1b3e…1b88 at0010 = ╱3a╱:╱ // 0x1b4e @0x10
0x1b3e…1b88 at0011 = ╱20╱…╱ // 0x1b4f @0x11
0x1b3e…1b88 at0012 = ╱22╱"╱ // 0x1b50 @0x12
0x1b3e…1b88 at0013 = ╱ea╱ ; ╱ // 0x1b51 @0x13
0x1b3e…1b88 at0014 = ╱4b╱K╱ // 0x1b52 @0x14
0x1b3e…1b88 at0015 = ╱54╱T╱ // 0x1b53 @0x15
0x1b3e…1b88 at0016 = ╱4f╱O╱ // 0x1b54 @0x16
0x1b3e…1b88 at0017 = ╱4e╱N╱ // 0x1b55 @0x17
0x1b3e…1b88 at0018 = ╱52╱R╱ // 0x1b56 @0x18
0x1b3e…1b88 at0019 = ╱ef╱$╱ // 0x1b57 @0x19
0x1b3e…1b88 at001a = ╱ea╱ ; ╱ // 0x1b58 @0x1a
0x1b3e…1b88 at001b = ╱d2╱TAB╱ // 0x1b59 @0x1b
0x1b3e…1b88 at001c = ╱ed╱(╱ // 0x1b5a @0x1c
0x1b3e…1b88 at001d = ╱32╱2╱ // 0x1b5b @0x1d
0x1b3e…1b88 at001e = ╱35╱5╱ // 0x1b5c @0x1e
0x1b3e…1b88 at001f = ╱f21900╱ // 0x1b5d @0x1f
0x1b3e…1b88 at0022 = ╱ee╱)╱ // 0x1b60 @0x22
0x1b3e…1b88 at0023 = ╱ea╱ ; ╱ // 0x1b61 @0x23
0x1b3e…1b88 at0024 = ╱22╱"╱ // 0x1b62 @0x24
0x1b3e…1b88 at0025 = ╱4b╱K╱ // 0x1b63 @0x25
0x1b3e…1b88 at0026 = ╱4f╱O╱ // 0x1b64 @0x26
0x1b3e…1b88 at0027 = ╱4e╱N╱ // 0x1b65 @0x27
0x1b3e…1b88 at0028 = ╱54╱T╱ // 0x1b66 @0x28
0x1b3e…1b88 at0029 = ╱4f╱O╱ // 0x1b67 @0x29
0x1b3e…1b88 at002a = ╱4e╱N╱ // 0x1b68 @0x2a
0x1b3e…1b88 at002b = ╱41╱A╱ // 0x1b69 @0x2b
0x1b3e…1b88 at002c = ╱56╱V╱ // 0x1b6a @0x2c
0x1b3e…1b88 at002d = ╱4e╱N╱ // 0x1b6b @0x2d
0x1b3e…1b88 at002e = ╱3a╱:╱ // 0x1b6c @0x2e
0x1b3e…1b88 at002f = ╱20╱…╱ // 0x1b6d @0x2f
0x1b3e…1b88 at0030 = ╱22╱"╱ // 0x1b6e @0x30
0x1b3e…1b88 at0031 = ╱ea╱ ; ╱ // 0x1b6f @0x31
0x1b3e…1b88 at0032 = ╱4b╱K╱ // 0x1b70 @0x32
0x1b3e…1b88 at0033 = ╱54╱T╱ // 0x1b71 @0x33
0x1b3e…1b88 at0034 = ╱4f╱O╱ // 0x1b72 @0x34
0x1b3e…1b88 at0035 = ╱5f╱_╱ // 0x1b73 @0x35
0x1b3e…1b88 at0036 = ╱4e╱N╱ // 0x1b74 @0x36
0x1b3e…1b88 at0037 = ╱41╱A╱ // 0x1b75 @0x37
0x1b3e…1b88 at0038 = ╱56╱V╱ // 0x1b76 @0x38
0x1b3e…1b88 at0039 = ╱4e╱N╱ // 0x1b77 @0x39
0x1b3e…1b88 at003a = ╱ef╱$╱ // 0x1b78 @0x3a
0x1b3e…1b88 at003b = ╱ea╱ ; ╱ // 0x1b79 @0x3b
0x1b3e…1b88 at003c = ╱d2╱TAB╱ // 0x1b7a @0x3c
0x1b3e…1b88 at003d = ╱ed╱(╱ // 0x1b7b @0x3d
0x1b3e…1b88 at003e = ╱37╱7╱ // 0x1b7c @0x3e
0x1b3e…1b88 at003f = ╱37╱7╱ // 0x1b7d @0x3f
0x1b3e…1b88 at0040 = ╱f24d00╱ // 0x1b7e @0x40
0x1b3e…1b88 at0043 = ╱ee╱)╱ // 0x1b81 @0x43
0x1b3e…1b88 at0044 = ╱ea╱ ; ╱ // 0x1b82 @0x44
0x1b3e…1b88 at0045 = ╱22╱"╱ // 0x1b83 @0x45
0x1b3e…1b88 at0046 = ╱2a╱*╱ // 0x1b84 @0x46
0x1b3e…1b88 at0047 = ╱2a╱*╱ // 0x1b85 @0x47
0x1b3e…1b88 at0048 = ╱22╱"╱ // 0x1b86 @0x48
0x1b3e…1b88 at0049 = EOL // 0x1b87 @0x49
0x1b3e…1b88 }
0x1b88…1bba b1a8 2780 PRINT "<S>---------------------------------------"
0x1b88…1bba LineComal80 {
0x1b88…1bba ptr = 0xb1a8 // 0x1b88 @0x0
0x1b88…1bba lno = 0x0adc // 0x1b8a @0x2
0x1b88…1bba at0004 = ╱92╱ PRINT ╱ // 0x1b8c @0x4
0x1b88…1bba at0005 = ╱22╱"╱ // 0x1b8d @0x5
0x1b88…1bba at0006 = ╱3c╱<╱ // 0x1b8e @0x6
0x1b88…1bba at0007 = ╱53╱S╱ // 0x1b8f @0x7
0x1b88…1bba at0008 = ╱3e╱>╱ // 0x1b90 @0x8
0x1b88…1bba at0009 = ╱2d╱-╱ // 0x1b91 @0x9
0x1b88…1bba at000a = ╱2d╱-╱ // 0x1b92 @0xa
0x1b88…1bba at000b = ╱2d╱-╱ // 0x1b93 @0xb
0x1b88…1bba at000c = ╱2d╱-╱ // 0x1b94 @0xc
0x1b88…1bba at000d = ╱2d╱-╱ // 0x1b95 @0xd
0x1b88…1bba at000e = ╱2d╱-╱ // 0x1b96 @0xe
0x1b88…1bba at000f = ╱2d╱-╱ // 0x1b97 @0xf
0x1b88…1bba at0010 = ╱2d╱-╱ // 0x1b98 @0x10
0x1b88…1bba at0011 = ╱2d╱-╱ // 0x1b99 @0x11
0x1b88…1bba at0012 = ╱2d╱-╱ // 0x1b9a @0x12
0x1b88…1bba at0013 = ╱2d╱-╱ // 0x1b9b @0x13
0x1b88…1bba at0014 = ╱2d╱-╱ // 0x1b9c @0x14
0x1b88…1bba at0015 = ╱2d╱-╱ // 0x1b9d @0x15
0x1b88…1bba at0016 = ╱2d╱-╱ // 0x1b9e @0x16
0x1b88…1bba at0017 = ╱2d╱-╱ // 0x1b9f @0x17
0x1b88…1bba at0018 = ╱2d╱-╱ // 0x1ba0 @0x18
0x1b88…1bba at0019 = ╱2d╱-╱ // 0x1ba1 @0x19
0x1b88…1bba at001a = ╱2d╱-╱ // 0x1ba2 @0x1a
0x1b88…1bba at001b = ╱2d╱-╱ // 0x1ba3 @0x1b
0x1b88…1bba at001c = ╱2d╱-╱ // 0x1ba4 @0x1c
0x1b88…1bba at001d = ╱2d╱-╱ // 0x1ba5 @0x1d
0x1b88…1bba at001e = ╱2d╱-╱ // 0x1ba6 @0x1e
0x1b88…1bba at001f = ╱2d╱-╱ // 0x1ba7 @0x1f
0x1b88…1bba at0020 = ╱2d╱-╱ // 0x1ba8 @0x20
0x1b88…1bba at0021 = ╱2d╱-╱ // 0x1ba9 @0x21
0x1b88…1bba at0022 = ╱2d╱-╱ // 0x1baa @0x22
0x1b88…1bba at0023 = ╱2d╱-╱ // 0x1bab @0x23
0x1b88…1bba at0024 = ╱2d╱-╱ // 0x1bac @0x24
0x1b88…1bba at0025 = ╱2d╱-╱ // 0x1bad @0x25
0x1b88…1bba at0026 = ╱2d╱-╱ // 0x1bae @0x26
0x1b88…1bba at0027 = ╱2d╱-╱ // 0x1baf @0x27
0x1b88…1bba at0028 = ╱2d╱-╱ // 0x1bb0 @0x28
0x1b88…1bba at0029 = ╱2d╱-╱ // 0x1bb1 @0x29
0x1b88…1bba at002a = ╱2d╱-╱ // 0x1bb2 @0x2a
0x1b88…1bba at002b = ╱2d╱-╱ // 0x1bb3 @0x2b
0x1b88…1bba at002c = ╱2d╱-╱ // 0x1bb4 @0x2c
0x1b88…1bba at002d = ╱2d╱-╱ // 0x1bb5 @0x2d
0x1b88…1bba at002e = ╱2d╱-╱ // 0x1bb6 @0x2e
0x1b88…1bba at002f = ╱2d╱-╱ // 0x1bb7 @0x2f
0x1b88…1bba at0030 = ╱22╱"╱ // 0x1bb8 @0x30
0x1b88…1bba at0031 = EOL // 0x1bb9 @0x31
0x1b88…1bba }
0x1bba…1be9 bbda 2790 PRINT "---------------------------------------"
0x1bba…1be9 LineComal80 {
0x1bba…1be9 ptr = 0xbbda // 0x1bba @0x0
0x1bba…1be9 lno = 0x0ae6 // 0x1bbc @0x2
0x1bba…1be9 at0004 = ╱92╱ PRINT ╱ // 0x1bbe @0x4
0x1bba…1be9 at0005 = ╱22╱"╱ // 0x1bbf @0x5
0x1bba…1be9 at0006 = ╱2d╱-╱ // 0x1bc0 @0x6
0x1bba…1be9 at0007 = ╱2d╱-╱ // 0x1bc1 @0x7
0x1bba…1be9 at0008 = ╱2d╱-╱ // 0x1bc2 @0x8
0x1bba…1be9 at0009 = ╱2d╱-╱ // 0x1bc3 @0x9
0x1bba…1be9 at000a = ╱2d╱-╱ // 0x1bc4 @0xa
0x1bba…1be9 at000b = ╱2d╱-╱ // 0x1bc5 @0xb
0x1bba…1be9 at000c = ╱2d╱-╱ // 0x1bc6 @0xc
0x1bba…1be9 at000d = ╱2d╱-╱ // 0x1bc7 @0xd
0x1bba…1be9 at000e = ╱2d╱-╱ // 0x1bc8 @0xe
0x1bba…1be9 at000f = ╱2d╱-╱ // 0x1bc9 @0xf
0x1bba…1be9 at0010 = ╱2d╱-╱ // 0x1bca @0x10
0x1bba…1be9 at0011 = ╱2d╱-╱ // 0x1bcb @0x11
0x1bba…1be9 at0012 = ╱2d╱-╱ // 0x1bcc @0x12
0x1bba…1be9 at0013 = ╱2d╱-╱ // 0x1bcd @0x13
0x1bba…1be9 at0014 = ╱2d╱-╱ // 0x1bce @0x14
0x1bba…1be9 at0015 = ╱2d╱-╱ // 0x1bcf @0x15
0x1bba…1be9 at0016 = ╱2d╱-╱ // 0x1bd0 @0x16
0x1bba…1be9 at0017 = ╱2d╱-╱ // 0x1bd1 @0x17
0x1bba…1be9 at0018 = ╱2d╱-╱ // 0x1bd2 @0x18
0x1bba…1be9 at0019 = ╱2d╱-╱ // 0x1bd3 @0x19
0x1bba…1be9 at001a = ╱2d╱-╱ // 0x1bd4 @0x1a
0x1bba…1be9 at001b = ╱2d╱-╱ // 0x1bd5 @0x1b
0x1bba…1be9 at001c = ╱2d╱-╱ // 0x1bd6 @0x1c
0x1bba…1be9 at001d = ╱2d╱-╱ // 0x1bd7 @0x1d
0x1bba…1be9 at001e = ╱2d╱-╱ // 0x1bd8 @0x1e
0x1bba…1be9 at001f = ╱2d╱-╱ // 0x1bd9 @0x1f
0x1bba…1be9 at0020 = ╱2d╱-╱ // 0x1bda @0x20
0x1bba…1be9 at0021 = ╱2d╱-╱ // 0x1bdb @0x21
0x1bba…1be9 at0022 = ╱2d╱-╱ // 0x1bdc @0x22
0x1bba…1be9 at0023 = ╱2d╱-╱ // 0x1bdd @0x23
0x1bba…1be9 at0024 = ╱2d╱-╱ // 0x1bde @0x24
0x1bba…1be9 at0025 = ╱2d╱-╱ // 0x1bdf @0x25
0x1bba…1be9 at0026 = ╱2d╱-╱ // 0x1be0 @0x26
0x1bba…1be9 at0027 = ╱2d╱-╱ // 0x1be1 @0x27
0x1bba…1be9 at0028 = ╱2d╱-╱ // 0x1be2 @0x28
0x1bba…1be9 at0029 = ╱2d╱-╱ // 0x1be3 @0x29
0x1bba…1be9 at002a = ╱2d╱-╱ // 0x1be4 @0x2a
0x1bba…1be9 at002b = ╱2d╱-╱ // 0x1be5 @0x2b
0x1bba…1be9 at002c = ╱2d╱-╱ // 0x1be6 @0x2c
0x1bba…1be9 at002d = ╱22╱"╱ // 0x1be7 @0x2d
0x1bba…1be9 at002e = EOL // 0x1be8 @0x2e
0x1bba…1be9 }
0x1be9…1c2c b21a 2800 PRINT "<S> DATO BILAG TEKST" ; TAB(47) ; "MOMSBELØB DEBETBELØB"
0x1be9…1c2c LineComal80 {
0x1be9…1c2c ptr = 0xb21a // 0x1be9 @0x0
0x1be9…1c2c lno = 0x0af0 // 0x1beb @0x2
0x1be9…1c2c at0004 = ╱92╱ PRINT ╱ // 0x1bed @0x4
0x1be9…1c2c at0005 = ╱22╱"╱ // 0x1bee @0x5
0x1be9…1c2c at0006 = ╱3c╱<╱ // 0x1bef @0x6
0x1be9…1c2c at0007 = ╱53╱S╱ // 0x1bf0 @0x7
0x1be9…1c2c at0008 = ╱3e╱>╱ // 0x1bf1 @0x8
0x1be9…1c2c at0009 = ╱20╱…╱ // 0x1bf2 @0x9
0x1be9…1c2c at000a = ╱20╱…╱ // 0x1bf3 @0xa
0x1be9…1c2c at000b = ╱44╱D╱ // 0x1bf4 @0xb
0x1be9…1c2c at000c = ╱41╱A╱ // 0x1bf5 @0xc
0x1be9…1c2c at000d = ╱54╱T╱ // 0x1bf6 @0xd
0x1be9…1c2c at000e = ╱4f╱O╱ // 0x1bf7 @0xe
0x1be9…1c2c at000f = ╱20╱…╱ // 0x1bf8 @0xf
0x1be9…1c2c at0010 = ╱20╱…╱ // 0x1bf9 @0x10
0x1be9…1c2c at0011 = ╱20╱…╱ // 0x1bfa @0x11
0x1be9…1c2c at0012 = ╱20╱…╱ // 0x1bfb @0x12
0x1be9…1c2c at0013 = ╱42╱B╱ // 0x1bfc @0x13
0x1be9…1c2c at0014 = ╱49╱I╱ // 0x1bfd @0x14
0x1be9…1c2c at0015 = ╱4c╱L╱ // 0x1bfe @0x15
0x1be9…1c2c at0016 = ╱41╱A╱ // 0x1bff @0x16
0x1be9…1c2c at0017 = ╱47╱G╱ // 0x1c00 @0x17
0x1be9…1c2c at0018 = ╱20╱…╱ // 0x1c01 @0x18
0x1be9…1c2c at0019 = ╱20╱…╱ // 0x1c02 @0x19
0x1be9…1c2c at001a = ╱54╱T╱ // 0x1c03 @0x1a
0x1be9…1c2c at001b = ╱45╱E╱ // 0x1c04 @0x1b
0x1be9…1c2c at001c = ╱4b╱K╱ // 0x1c05 @0x1c
0x1be9…1c2c at001d = ╱53╱S╱ // 0x1c06 @0x1d
0x1be9…1c2c at001e = ╱54╱T╱ // 0x1c07 @0x1e
0x1be9…1c2c at001f = ╱22╱"╱ // 0x1c08 @0x1f
0x1be9…1c2c at0020 = ╱ea╱ ; ╱ // 0x1c09 @0x20
0x1be9…1c2c at0021 = ╱d2╱TAB╱ // 0x1c0a @0x21
0x1be9…1c2c at0022 = ╱ed╱(╱ // 0x1c0b @0x22
0x1be9…1c2c at0023 = ╱34╱4╱ // 0x1c0c @0x23
0x1be9…1c2c at0024 = ╱37╱7╱ // 0x1c0d @0x24
0x1be9…1c2c at0025 = ╱f22f00╱ // 0x1c0e @0x25
0x1be9…1c2c at0028 = ╱ee╱)╱ // 0x1c11 @0x28
0x1be9…1c2c at0029 = ╱ea╱ ; ╱ // 0x1c12 @0x29
0x1be9…1c2c at002a = ╱22╱"╱ // 0x1c13 @0x2a
0x1be9…1c2c at002b = ╱4d╱M╱ // 0x1c14 @0x2b
0x1be9…1c2c at002c = ╱4f╱O╱ // 0x1c15 @0x2c
0x1be9…1c2c at002d = ╱4d╱M╱ // 0x1c16 @0x2d
0x1be9…1c2c at002e = ╱53╱S╱ // 0x1c17 @0x2e
0x1be9…1c2c at002f = ╱42╱B╱ // 0x1c18 @0x2f
0x1be9…1c2c at0030 = ╱45╱E╱ // 0x1c19 @0x30
0x1be9…1c2c at0031 = ╱4c╱L╱ // 0x1c1a @0x31
0x1be9…1c2c at0032 = ╱5c╱Ø╱ // 0x1c1b @0x32
0x1be9…1c2c at0033 = ╱42╱B╱ // 0x1c1c @0x33
0x1be9…1c2c at0034 = ╱20╱…╱ // 0x1c1d @0x34
0x1be9…1c2c at0035 = ╱20╱…╱ // 0x1c1e @0x35
0x1be9…1c2c at0036 = ╱20╱…╱ // 0x1c1f @0x36
0x1be9…1c2c at0037 = ╱44╱D╱ // 0x1c20 @0x37
0x1be9…1c2c at0038 = ╱45╱E╱ // 0x1c21 @0x38
0x1be9…1c2c at0039 = ╱42╱B╱ // 0x1c22 @0x39
0x1be9…1c2c at003a = ╱45╱E╱ // 0x1c23 @0x3a
0x1be9…1c2c at003b = ╱54╱T╱ // 0x1c24 @0x3b
0x1be9…1c2c at003c = ╱42╱B╱ // 0x1c25 @0x3c
0x1be9…1c2c at003d = ╱45╱E╱ // 0x1c26 @0x3d
0x1be9…1c2c at003e = ╱4c╱L╱ // 0x1c27 @0x3e
0x1be9…1c2c at003f = ╱5c╱Ø╱ // 0x1c28 @0x3f
0x1be9…1c2c at0040 = ╱42╱B╱ // 0x1c29 @0x40
0x1be9…1c2c at0041 = ╱22╱"╱ // 0x1c2a @0x41
0x1be9…1c2c at0042 = EOL // 0x1c2b @0x42
0x1be9…1c2c }
0x1c2c…1c41 b22f 2810 PRINT " KREDITBELØB"
0x1c2c…1c41 LineComal80 {
0x1c2c…1c41 ptr = 0xb22f // 0x1c2c @0x0
0x1c2c…1c41 lno = 0x0afa // 0x1c2e @0x2
0x1c2c…1c41 at0004 = ╱92╱ PRINT ╱ // 0x1c30 @0x4
0x1c2c…1c41 at0005 = ╱22╱"╱ // 0x1c31 @0x5
0x1c2c…1c41 at0006 = ╱20╱…╱ // 0x1c32 @0x6
0x1c2c…1c41 at0007 = ╱20╱…╱ // 0x1c33 @0x7
0x1c2c…1c41 at0008 = ╱4b╱K╱ // 0x1c34 @0x8
0x1c2c…1c41 at0009 = ╱52╱R╱ // 0x1c35 @0x9
0x1c2c…1c41 at000a = ╱45╱E╱ // 0x1c36 @0xa
0x1c2c…1c41 at000b = ╱44╱D╱ // 0x1c37 @0xb
0x1c2c…1c41 at000c = ╱49╱I╱ // 0x1c38 @0xc
0x1c2c…1c41 at000d = ╱54╱T╱ // 0x1c39 @0xd
0x1c2c…1c41 at000e = ╱42╱B╱ // 0x1c3a @0xe
0x1c2c…1c41 at000f = ╱45╱E╱ // 0x1c3b @0xf
0x1c2c…1c41 at0010 = ╱4c╱L╱ // 0x1c3c @0x10
0x1c2c…1c41 at0011 = ╱5c╱Ø╱ // 0x1c3d @0x11
0x1c2c…1c41 at0012 = ╱42╱B╱ // 0x1c3e @0x12
0x1c2c…1c41 at0013 = ╱22╱"╱ // 0x1c3f @0x13
0x1c2c…1c41 at0014 = EOL // 0x1c40 @0x14
0x1c2c…1c41 }
0x1c41…1c73 b261 2820 PRINT "<S>---------------------------------------"
0x1c41…1c73 LineComal80 {
0x1c41…1c73 ptr = 0xb261 // 0x1c41 @0x0
0x1c41…1c73 lno = 0x0b04 // 0x1c43 @0x2
0x1c41…1c73 at0004 = ╱92╱ PRINT ╱ // 0x1c45 @0x4
0x1c41…1c73 at0005 = ╱22╱"╱ // 0x1c46 @0x5
0x1c41…1c73 at0006 = ╱3c╱<╱ // 0x1c47 @0x6
0x1c41…1c73 at0007 = ╱53╱S╱ // 0x1c48 @0x7
0x1c41…1c73 at0008 = ╱3e╱>╱ // 0x1c49 @0x8
0x1c41…1c73 at0009 = ╱2d╱-╱ // 0x1c4a @0x9
0x1c41…1c73 at000a = ╱2d╱-╱ // 0x1c4b @0xa
0x1c41…1c73 at000b = ╱2d╱-╱ // 0x1c4c @0xb
0x1c41…1c73 at000c = ╱2d╱-╱ // 0x1c4d @0xc
0x1c41…1c73 at000d = ╱2d╱-╱ // 0x1c4e @0xd
0x1c41…1c73 at000e = ╱2d╱-╱ // 0x1c4f @0xe
0x1c41…1c73 at000f = ╱2d╱-╱ // 0x1c50 @0xf
0x1c41…1c73 at0010 = ╱2d╱-╱ // 0x1c51 @0x10
0x1c41…1c73 at0011 = ╱2d╱-╱ // 0x1c52 @0x11
0x1c41…1c73 at0012 = ╱2d╱-╱ // 0x1c53 @0x12
0x1c41…1c73 at0013 = ╱2d╱-╱ // 0x1c54 @0x13
0x1c41…1c73 at0014 = ╱2d╱-╱ // 0x1c55 @0x14
0x1c41…1c73 at0015 = ╱2d╱-╱ // 0x1c56 @0x15
0x1c41…1c73 at0016 = ╱2d╱-╱ // 0x1c57 @0x16
0x1c41…1c73 at0017 = ╱2d╱-╱ // 0x1c58 @0x17
0x1c41…1c73 at0018 = ╱2d╱-╱ // 0x1c59 @0x18
0x1c41…1c73 at0019 = ╱2d╱-╱ // 0x1c5a @0x19
0x1c41…1c73 at001a = ╱2d╱-╱ // 0x1c5b @0x1a
0x1c41…1c73 at001b = ╱2d╱-╱ // 0x1c5c @0x1b
0x1c41…1c73 at001c = ╱2d╱-╱ // 0x1c5d @0x1c
0x1c41…1c73 at001d = ╱2d╱-╱ // 0x1c5e @0x1d
0x1c41…1c73 at001e = ╱2d╱-╱ // 0x1c5f @0x1e
0x1c41…1c73 at001f = ╱2d╱-╱ // 0x1c60 @0x1f
0x1c41…1c73 at0020 = ╱2d╱-╱ // 0x1c61 @0x20
0x1c41…1c73 at0021 = ╱2d╱-╱ // 0x1c62 @0x21
0x1c41…1c73 at0022 = ╱2d╱-╱ // 0x1c63 @0x22
0x1c41…1c73 at0023 = ╱2d╱-╱ // 0x1c64 @0x23
0x1c41…1c73 at0024 = ╱2d╱-╱ // 0x1c65 @0x24
0x1c41…1c73 at0025 = ╱2d╱-╱ // 0x1c66 @0x25
0x1c41…1c73 at0026 = ╱2d╱-╱ // 0x1c67 @0x26
0x1c41…1c73 at0027 = ╱2d╱-╱ // 0x1c68 @0x27
0x1c41…1c73 at0028 = ╱2d╱-╱ // 0x1c69 @0x28
0x1c41…1c73 at0029 = ╱2d╱-╱ // 0x1c6a @0x29
0x1c41…1c73 at002a = ╱2d╱-╱ // 0x1c6b @0x2a
0x1c41…1c73 at002b = ╱2d╱-╱ // 0x1c6c @0x2b
0x1c41…1c73 at002c = ╱2d╱-╱ // 0x1c6d @0x2c
0x1c41…1c73 at002d = ╱2d╱-╱ // 0x1c6e @0x2d
0x1c41…1c73 at002e = ╱2d╱-╱ // 0x1c6f @0x2e
0x1c41…1c73 at002f = ╱2d╱-╱ // 0x1c70 @0x2f
0x1c41…1c73 at0030 = ╱22╱"╱ // 0x1c71 @0x30
0x1c41…1c73 at0031 = EOL // 0x1c72 @0x31
0x1c41…1c73 }
0x1c73…1ca2 b290 2830 PRINT "---------------------------------------"
0x1c73…1ca2 LineComal80 {
0x1c73…1ca2 ptr = 0xb290 // 0x1c73 @0x0
0x1c73…1ca2 lno = 0x0b0e // 0x1c75 @0x2
0x1c73…1ca2 at0004 = ╱92╱ PRINT ╱ // 0x1c77 @0x4
0x1c73…1ca2 at0005 = ╱22╱"╱ // 0x1c78 @0x5
0x1c73…1ca2 at0006 = ╱2d╱-╱ // 0x1c79 @0x6
0x1c73…1ca2 at0007 = ╱2d╱-╱ // 0x1c7a @0x7
0x1c73…1ca2 at0008 = ╱2d╱-╱ // 0x1c7b @0x8
0x1c73…1ca2 at0009 = ╱2d╱-╱ // 0x1c7c @0x9
0x1c73…1ca2 at000a = ╱2d╱-╱ // 0x1c7d @0xa
0x1c73…1ca2 at000b = ╱2d╱-╱ // 0x1c7e @0xb
0x1c73…1ca2 at000c = ╱2d╱-╱ // 0x1c7f @0xc
0x1c73…1ca2 at000d = ╱2d╱-╱ // 0x1c80 @0xd
0x1c73…1ca2 at000e = ╱2d╱-╱ // 0x1c81 @0xe
0x1c73…1ca2 at000f = ╱2d╱-╱ // 0x1c82 @0xf
0x1c73…1ca2 at0010 = ╱2d╱-╱ // 0x1c83 @0x10
0x1c73…1ca2 at0011 = ╱2d╱-╱ // 0x1c84 @0x11
0x1c73…1ca2 at0012 = ╱2d╱-╱ // 0x1c85 @0x12
0x1c73…1ca2 at0013 = ╱2d╱-╱ // 0x1c86 @0x13
0x1c73…1ca2 at0014 = ╱2d╱-╱ // 0x1c87 @0x14
0x1c73…1ca2 at0015 = ╱2d╱-╱ // 0x1c88 @0x15
0x1c73…1ca2 at0016 = ╱2d╱-╱ // 0x1c89 @0x16
0x1c73…1ca2 at0017 = ╱2d╱-╱ // 0x1c8a @0x17
0x1c73…1ca2 at0018 = ╱2d╱-╱ // 0x1c8b @0x18
0x1c73…1ca2 at0019 = ╱2d╱-╱ // 0x1c8c @0x19
0x1c73…1ca2 at001a = ╱2d╱-╱ // 0x1c8d @0x1a
0x1c73…1ca2 at001b = ╱2d╱-╱ // 0x1c8e @0x1b
0x1c73…1ca2 at001c = ╱2d╱-╱ // 0x1c8f @0x1c
0x1c73…1ca2 at001d = ╱2d╱-╱ // 0x1c90 @0x1d
0x1c73…1ca2 at001e = ╱2d╱-╱ // 0x1c91 @0x1e
0x1c73…1ca2 at001f = ╱2d╱-╱ // 0x1c92 @0x1f
0x1c73…1ca2 at0020 = ╱2d╱-╱ // 0x1c93 @0x20
0x1c73…1ca2 at0021 = ╱2d╱-╱ // 0x1c94 @0x21
0x1c73…1ca2 at0022 = ╱2d╱-╱ // 0x1c95 @0x22
0x1c73…1ca2 at0023 = ╱2d╱-╱ // 0x1c96 @0x23
0x1c73…1ca2 at0024 = ╱2d╱-╱ // 0x1c97 @0x24
0x1c73…1ca2 at0025 = ╱2d╱-╱ // 0x1c98 @0x25
0x1c73…1ca2 at0026 = ╱2d╱-╱ // 0x1c99 @0x26
0x1c73…1ca2 at0027 = ╱2d╱-╱ // 0x1c9a @0x27
0x1c73…1ca2 at0028 = ╱2d╱-╱ // 0x1c9b @0x28
0x1c73…1ca2 at0029 = ╱2d╱-╱ // 0x1c9c @0x29
0x1c73…1ca2 at002a = ╱2d╱-╱ // 0x1c9d @0x2a
0x1c73…1ca2 at002b = ╱2d╱-╱ // 0x1c9e @0x2b
0x1c73…1ca2 at002c = ╱2d╱-╱ // 0x1c9f @0x2c
0x1c73…1ca2 at002d = ╱22╱"╱ // 0x1ca0 @0x2d
0x1c73…1ca2 at002e = EOL // 0x1ca1 @0x2e
0x1c73…1ca2 }
0x1ca2…1cae b29c 2840 ENDPROC NYSIDE
0x1ca2…1cae LineComal80 {
0x1ca2…1cae ptr = 0xb29c // 0x1ca2 @0x0
0x1ca2…1cae lno = 0x0b18 // 0x1ca4 @0x2
0x1ca2…1cae at0004 = ╱9f╱ ENDPROC ╱ // 0x1ca6 @0x4
0x1ca2…1cae at0005 = ╱4e╱N╱ // 0x1ca7 @0x5
0x1ca2…1cae at0006 = ╱59╱Y╱ // 0x1ca8 @0x6
0x1ca2…1cae at0007 = ╱53╱S╱ // 0x1ca9 @0x7
0x1ca2…1cae at0008 = ╱49╱I╱ // 0x1caa @0x8
0x1ca2…1cae at0009 = ╱44╱D╱ // 0x1cab @0x9
0x1ca2…1cae at000a = ╱45╱E╱ // 0x1cac @0xa
0x1ca2…1cae at000b = EOL // 0x1cad @0xb
0x1ca2…1cae }
0x1cae…1cb3 b2a1 2850
0x1cae…1cb3 LineComal80 {
0x1cae…1cb3 ptr = 0xb2a1 // 0x1cae @0x0
0x1cae…1cb3 lno = 0x0b22 // 0x1cb0 @0x2
0x1cae…1cb3 at0004 = EOL // 0x1cb2 @0x4
0x1cae…1cb3 }
0x1cb3…1ce0 b2ce 2860 PROC SKRIV_LIN(Q_D$,Q_B$,Q_T$,Q_M,Q_K,Q_DK)
0x1cb3…1ce0 LineComal80 {
0x1cb3…1ce0 ptr = 0xb2ce // 0x1cb3 @0x0
0x1cb3…1ce0 lno = 0x0b2c // 0x1cb5 @0x2
0x1cb3…1ce0 at0004 = ╱9e30╱ PROC ╱ // 0x1cb7 @0x4
0x1cb3…1ce0 at0006 = ╱53╱S╱ // 0x1cb9 @0x6
0x1cb3…1ce0 at0007 = ╱4b╱K╱ // 0x1cba @0x7
0x1cb3…1ce0 at0008 = ╱52╱R╱ // 0x1cbb @0x8
0x1cb3…1ce0 at0009 = ╱49╱I╱ // 0x1cbc @0x9
0x1cb3…1ce0 at000a = ╱56╱V╱ // 0x1cbd @0xa
0x1cb3…1ce0 at000b = ╱5f╱_╱ // 0x1cbe @0xb
0x1cb3…1ce0 at000c = ╱4c╱L╱ // 0x1cbf @0xc
0x1cb3…1ce0 at000d = ╱49╱I╱ // 0x1cc0 @0xd
0x1cb3…1ce0 at000e = ╱4e╱N╱ // 0x1cc1 @0xe
0x1cb3…1ce0 at000f = ╱ed╱(╱ // 0x1cc2 @0xf
0x1cb3…1ce0 at0010 = ╱51╱Q╱ // 0x1cc3 @0x10
0x1cb3…1ce0 at0011 = ╱5f╱_╱ // 0x1cc4 @0x11
0x1cb3…1ce0 at0012 = ╱44╱D╱ // 0x1cc5 @0x12
0x1cb3…1ce0 at0013 = ╱ef╱$╱ // 0x1cc6 @0x13
0x1cb3…1ce0 at0014 = ╱ec╱,╱ // 0x1cc7 @0x14
0x1cb3…1ce0 at0015 = ╱51╱Q╱ // 0x1cc8 @0x15
0x1cb3…1ce0 at0016 = ╱5f╱_╱ // 0x1cc9 @0x16
0x1cb3…1ce0 at0017 = ╱42╱B╱ // 0x1cca @0x17
0x1cb3…1ce0 at0018 = ╱ef╱$╱ // 0x1ccb @0x18
0x1cb3…1ce0 at0019 = ╱ec╱,╱ // 0x1ccc @0x19
0x1cb3…1ce0 at001a = ╱51╱Q╱ // 0x1ccd @0x1a
0x1cb3…1ce0 at001b = ╱5f╱_╱ // 0x1cce @0x1b
0x1cb3…1ce0 at001c = ╱54╱T╱ // 0x1ccf @0x1c
0x1cb3…1ce0 at001d = ╱ef╱$╱ // 0x1cd0 @0x1d
0x1cb3…1ce0 at001e = ╱ec╱,╱ // 0x1cd1 @0x1e
0x1cb3…1ce0 at001f = ╱51╱Q╱ // 0x1cd2 @0x1f
0x1cb3…1ce0 at0020 = ╱5f╱_╱ // 0x1cd3 @0x20
0x1cb3…1ce0 at0021 = ╱4d╱M╱ // 0x1cd4 @0x21
0x1cb3…1ce0 at0022 = ╱ec╱,╱ // 0x1cd5 @0x22
0x1cb3…1ce0 at0023 = ╱51╱Q╱ // 0x1cd6 @0x23
0x1cb3…1ce0 at0024 = ╱5f╱_╱ // 0x1cd7 @0x24
0x1cb3…1ce0 at0025 = ╱4b╱K╱ // 0x1cd8 @0x25
0x1cb3…1ce0 at0026 = ╱ec╱,╱ // 0x1cd9 @0x26
0x1cb3…1ce0 at0027 = ╱51╱Q╱ // 0x1cda @0x27
0x1cb3…1ce0 at0028 = ╱5f╱_╱ // 0x1cdb @0x28
0x1cb3…1ce0 at0029 = ╱44╱D╱ // 0x1cdc @0x29
0x1cb3…1ce0 at002a = ╱4b╱K╱ // 0x1cdd @0x2a
0x1cb3…1ce0 at002b = ╱ee╱)╱ // 0x1cde @0x2b
0x1cb3…1ce0 at002c = EOL // 0x1cdf @0x2c
0x1cb3…1ce0 }
0x1ce0…1d04 (96,) b2f2 2870 IF LIN_T + 6 > MAX_LIN THEN EXEC SIDESKIFT
0x1ce0…1d04 LineComal80 {
0x1ce0…1d04 ptr = 0xb2f2 // 0x1ce0 @0x0
0x1ce0…1d04 lno = 0x0b36 // 0x1ce2 @0x2
0x1ce0…1d04 at0004 = ╱8200╱ IF ╱ // 0x1ce4 @0x4
0x1ce0…1d04 at0006 = ╱4c╱L╱ // 0x1ce6 @0x6
0x1ce0…1d04 at0007 = ╱49╱I╱ // 0x1ce7 @0x7
0x1ce0…1d04 at0008 = ╱4e╱N╱ // 0x1ce8 @0x8
0x1ce0…1d04 at0009 = ╱5f╱_╱ // 0x1ce9 @0x9
0x1ce0…1d04 at000a = ╱54╱T╱ // 0x1cea @0xa
0x1ce0…1d04 at000b = ╱e5╱ + ╱ // 0x1ceb @0xb
0x1ce0…1d04 at000c = ╱36╱6╱ // 0x1cec @0xc
0x1ce0…1d04 at000d = ╱f20600╱ // 0x1ced @0xd
0x1ce0…1d04 at0010 = ╱e1╱ > ╱ // 0x1cf0 @0x10
0x1ce0…1d04 at0011 = ╱4d╱M╱ // 0x1cf1 @0x11
0x1ce0…1d04 at0012 = ╱41╱A╱ // 0x1cf2 @0x12
0x1ce0…1d04 at0013 = ╱58╱X╱ // 0x1cf3 @0x13
0x1ce0…1d04 at0014 = ╱5f╱_╱ // 0x1cf4 @0x14
0x1ce0…1d04 at0015 = ╱4c╱L╱ // 0x1cf5 @0x15
0x1ce0…1d04 at0016 = ╱49╱I╱ // 0x1cf6 @0x16
0x1ce0…1d04 at0017 = ╱4e╱N╱ // 0x1cf7 @0x17
0x1ce0…1d04 at0018 = ╱b5╱ THEN ╱ // 0x1cf8 @0x18
0x1ce0…1d04 at0019 = ╱9d╱ EXEC ╱ // 0x1cf9 @0x19
0x1ce0…1d04 at001a = ╱53╱S╱ // 0x1cfa @0x1a
0x1ce0…1d04 at001b = ╱49╱I╱ // 0x1cfb @0x1b
0x1ce0…1d04 at001c = ╱44╱D╱ // 0x1cfc @0x1c
0x1ce0…1d04 at001d = ╱45╱E╱ // 0x1cfd @0x1d
0x1ce0…1d04 at001e = ╱53╱S╱ // 0x1cfe @0x1e
0x1ce0…1d04 at001f = ╱4b╱K╱ // 0x1cff @0x1f
0x1ce0…1d04 at0020 = ╱49╱I╱ // 0x1d00 @0x20
0x1ce0…1d04 at0021 = ╱46╱F╱ // 0x1d01 @0x21
0x1ce0…1d04 at0022 = ╱54╱T╱ // 0x1d02 @0x22
0x1ce0…1d04 at0023 = EOL // 0x1d03 @0x23
0x1ce0…1d04 }
0x1d04…1d1a b308 2880 LET LIN_T := LIN_T + 1
0x1d04…1d1a LineComal80 {
0x1d04…1d1a ptr = 0xb308 // 0x1d04 @0x0
0x1d04…1d1a lno = 0x0b40 // 0x1d06 @0x2
0x1d04…1d1a at0004 = ╱86╱ LET ╱ // 0x1d08 @0x4
0x1d04…1d1a at0005 = ╱4c╱L╱ // 0x1d09 @0x5
0x1d04…1d1a at0006 = ╱49╱I╱ // 0x1d0a @0x6
0x1d04…1d1a at0007 = ╱4e╱N╱ // 0x1d0b @0x7
0x1d04…1d1a at0008 = ╱5f╱_╱ // 0x1d0c @0x8
0x1d04…1d1a at0009 = ╱54╱T╱ // 0x1d0d @0x9
0x1d04…1d1a at000a = ╱f0╱ := ╱ // 0x1d0e @0xa
0x1d04…1d1a at000b = ╱4c╱L╱ // 0x1d0f @0xb
0x1d04…1d1a at000c = ╱49╱I╱ // 0x1d10 @0xc
0x1d04…1d1a at000d = ╱4e╱N╱ // 0x1d11 @0xd
0x1d04…1d1a at000e = ╱5f╱_╱ // 0x1d12 @0xe
0x1d04…1d1a at000f = ╱54╱T╱ // 0x1d13 @0xf
0x1d04…1d1a at0010 = ╱e5╱ + ╱ // 0x1d14 @0x10
0x1d04…1d1a at0011 = ╱31╱1╱ // 0x1d15 @0x11
0x1d04…1d1a at0012 = ╱f20100╱ // 0x1d16 @0x12
0x1d04…1d1a at0015 = EOL // 0x1d19 @0x15
0x1d04…1d1a }
0x1d1a…1d61 b34f 2890 PRINT Q_D$(1 : 2) ; "." ; Q_D$(3 : 2) ; "." ; Q_D$(5 : 2) ; TAB(11) ;
0x1d1a…1d61 LineComal80 {
0x1d1a…1d61 ptr = 0xb34f // 0x1d1a @0x0
0x1d1a…1d61 lno = 0x0b4a // 0x1d1c @0x2
0x1d1a…1d61 at0004 = ╱92╱ PRINT ╱ // 0x1d1e @0x4
0x1d1a…1d61 at0005 = ╱51╱Q╱ // 0x1d1f @0x5
0x1d1a…1d61 at0006 = ╱5f╱_╱ // 0x1d20 @0x6
0x1d1a…1d61 at0007 = ╱44╱D╱ // 0x1d21 @0x7
0x1d1a…1d61 at0008 = ╱ef╱$╱ // 0x1d22 @0x8
0x1d1a…1d61 at0009 = ╱ed╱(╱ // 0x1d23 @0x9
0x1d1a…1d61 at000a = ╱31╱1╱ // 0x1d24 @0xa
0x1d1a…1d61 at000b = ╱f20100╱ // 0x1d25 @0xb
0x1d1a…1d61 at000e = ╱f1╱ : ╱ // 0x1d28 @0xe
0x1d1a…1d61 at000f = ╱32╱2╱ // 0x1d29 @0xf
0x1d1a…1d61 at0010 = ╱f20200╱ // 0x1d2a @0x10
0x1d1a…1d61 at0013 = ╱ee╱)╱ // 0x1d2d @0x13
0x1d1a…1d61 at0014 = ╱ea╱ ; ╱ // 0x1d2e @0x14
0x1d1a…1d61 at0015 = ╱22╱"╱ // 0x1d2f @0x15
0x1d1a…1d61 at0016 = ╱2e╱.╱ // 0x1d30 @0x16
0x1d1a…1d61 at0017 = ╱22╱"╱ // 0x1d31 @0x17
0x1d1a…1d61 at0018 = ╱ea╱ ; ╱ // 0x1d32 @0x18
0x1d1a…1d61 at0019 = ╱51╱Q╱ // 0x1d33 @0x19
0x1d1a…1d61 at001a = ╱5f╱_╱ // 0x1d34 @0x1a
0x1d1a…1d61 at001b = ╱44╱D╱ // 0x1d35 @0x1b
0x1d1a…1d61 at001c = ╱ef╱$╱ // 0x1d36 @0x1c
0x1d1a…1d61 at001d = ╱ed╱(╱ // 0x1d37 @0x1d
0x1d1a…1d61 at001e = ╱33╱3╱ // 0x1d38 @0x1e
0x1d1a…1d61 at001f = ╱f20300╱ // 0x1d39 @0x1f
0x1d1a…1d61 at0022 = ╱f1╱ : ╱ // 0x1d3c @0x22
0x1d1a…1d61 at0023 = ╱32╱2╱ // 0x1d3d @0x23
0x1d1a…1d61 at0024 = ╱f20200╱ // 0x1d3e @0x24
0x1d1a…1d61 at0027 = ╱ee╱)╱ // 0x1d41 @0x27
0x1d1a…1d61 at0028 = ╱ea╱ ; ╱ // 0x1d42 @0x28
0x1d1a…1d61 at0029 = ╱22╱"╱ // 0x1d43 @0x29
0x1d1a…1d61 at002a = ╱2e╱.╱ // 0x1d44 @0x2a
0x1d1a…1d61 at002b = ╱22╱"╱ // 0x1d45 @0x2b
0x1d1a…1d61 at002c = ╱ea╱ ; ╱ // 0x1d46 @0x2c
0x1d1a…1d61 at002d = ╱51╱Q╱ // 0x1d47 @0x2d
0x1d1a…1d61 at002e = ╱5f╱_╱ // 0x1d48 @0x2e
0x1d1a…1d61 at002f = ╱44╱D╱ // 0x1d49 @0x2f
0x1d1a…1d61 at0030 = ╱ef╱$╱ // 0x1d4a @0x30
0x1d1a…1d61 at0031 = ╱ed╱(╱ // 0x1d4b @0x31
0x1d1a…1d61 at0032 = ╱35╱5╱ // 0x1d4c @0x32
0x1d1a…1d61 at0033 = ╱f20500╱ // 0x1d4d @0x33
0x1d1a…1d61 at0036 = ╱f1╱ : ╱ // 0x1d50 @0x36
0x1d1a…1d61 at0037 = ╱32╱2╱ // 0x1d51 @0x37
0x1d1a…1d61 at0038 = ╱f20200╱ // 0x1d52 @0x38
0x1d1a…1d61 at003b = ╱ee╱)╱ // 0x1d55 @0x3b
0x1d1a…1d61 at003c = ╱ea╱ ; ╱ // 0x1d56 @0x3c
0x1d1a…1d61 at003d = ╱d2╱TAB╱ // 0x1d57 @0x3d
0x1d1a…1d61 at003e = ╱ed╱(╱ // 0x1d58 @0x3e
0x1d1a…1d61 at003f = ╱31╱1╱ // 0x1d59 @0x3f
0x1d1a…1d61 at0040 = ╱31╱1╱ // 0x1d5a @0x40
0x1d1a…1d61 at0041 = ╱f20b00╱ // 0x1d5b @0x41
0x1d1a…1d61 at0044 = ╱ee╱)╱ // 0x1d5e @0x44
0x1d1a…1d61 at0045 = ╱ea╱ ; ╱ // 0x1d5f @0x45
0x1d1a…1d61 at0046 = EOL // 0x1d60 @0x46
0x1d1a…1d61 }
0x1d61…1d91 b37f 2900 PRINT Q_B$ ; TAB(11) ; Q_B$ ; TAB(18) ; Q_T$ ; TAB(41) ;
0x1d61…1d91 LineComal80 {
0x1d61…1d91 ptr = 0xb37f // 0x1d61 @0x0
0x1d61…1d91 lno = 0x0b54 // 0x1d63 @0x2
0x1d61…1d91 at0004 = ╱92╱ PRINT ╱ // 0x1d65 @0x4
0x1d61…1d91 at0005 = ╱51╱Q╱ // 0x1d66 @0x5
0x1d61…1d91 at0006 = ╱5f╱_╱ // 0x1d67 @0x6
0x1d61…1d91 at0007 = ╱42╱B╱ // 0x1d68 @0x7
0x1d61…1d91 at0008 = ╱ef╱$╱ // 0x1d69 @0x8
0x1d61…1d91 at0009 = ╱ea╱ ; ╱ // 0x1d6a @0x9
0x1d61…1d91 at000a = ╱d2╱TAB╱ // 0x1d6b @0xa
0x1d61…1d91 at000b = ╱ed╱(╱ // 0x1d6c @0xb
0x1d61…1d91 at000c = ╱31╱1╱ // 0x1d6d @0xc
0x1d61…1d91 at000d = ╱31╱1╱ // 0x1d6e @0xd
0x1d61…1d91 at000e = ╱f20b00╱ // 0x1d6f @0xe
0x1d61…1d91 at0011 = ╱ee╱)╱ // 0x1d72 @0x11
0x1d61…1d91 at0012 = ╱ea╱ ; ╱ // 0x1d73 @0x12
0x1d61…1d91 at0013 = ╱51╱Q╱ // 0x1d74 @0x13
0x1d61…1d91 at0014 = ╱5f╱_╱ // 0x1d75 @0x14
0x1d61…1d91 at0015 = ╱42╱B╱ // 0x1d76 @0x15
0x1d61…1d91 at0016 = ╱ef╱$╱ // 0x1d77 @0x16
0x1d61…1d91 at0017 = ╱ea╱ ; ╱ // 0x1d78 @0x17
0x1d61…1d91 at0018 = ╱d2╱TAB╱ // 0x1d79 @0x18
0x1d61…1d91 at0019 = ╱ed╱(╱ // 0x1d7a @0x19
0x1d61…1d91 at001a = ╱31╱1╱ // 0x1d7b @0x1a
0x1d61…1d91 at001b = ╱38╱8╱ // 0x1d7c @0x1b
0x1d61…1d91 at001c = ╱f21200╱ // 0x1d7d @0x1c
0x1d61…1d91 at001f = ╱ee╱)╱ // 0x1d80 @0x1f
0x1d61…1d91 at0020 = ╱ea╱ ; ╱ // 0x1d81 @0x20
0x1d61…1d91 at0021 = ╱51╱Q╱ // 0x1d82 @0x21
0x1d61…1d91 at0022 = ╱5f╱_╱ // 0x1d83 @0x22
0x1d61…1d91 at0023 = ╱54╱T╱ // 0x1d84 @0x23
0x1d61…1d91 at0024 = ╱ef╱$╱ // 0x1d85 @0x24
0x1d61…1d91 at0025 = ╱ea╱ ; ╱ // 0x1d86 @0x25
0x1d61…1d91 at0026 = ╱d2╱TAB╱ // 0x1d87 @0x26
0x1d61…1d91 at0027 = ╱ed╱(╱ // 0x1d88 @0x27
0x1d61…1d91 at0028 = ╱34╱4╱ // 0x1d89 @0x28
0x1d61…1d91 at0029 = ╱31╱1╱ // 0x1d8a @0x29
0x1d61…1d91 at002a = ╱f22900╱ // 0x1d8b @0x2a
0x1d61…1d91 at002d = ╱ee╱)╱ // 0x1d8e @0x2d
0x1d61…1d91 at002e = ╱ea╱ ; ╱ // 0x1d8f @0x2e
0x1d61…1d91 at002f = EOL // 0x1d90 @0x2f
0x1d61…1d91 }
0x1d91…1db3 b3a1 2910 IF Q_M > 0 THEN PRINT CHR$ (Q_M,9,2) ;
0x1d91…1db3 LineComal80 {
0x1d91…1db3 ptr = 0xb3a1 // 0x1d91 @0x0
0x1d91…1db3 lno = 0x0b5e // 0x1d93 @0x2
0x1d91…1db3 at0004 = ╱8200╱ IF ╱ // 0x1d95 @0x4
0x1d91…1db3 at0006 = ╱51╱Q╱ // 0x1d97 @0x6
0x1d91…1db3 at0007 = ╱5f╱_╱ // 0x1d98 @0x7
0x1d91…1db3 at0008 = ╱4d╱M╱ // 0x1d99 @0x8
0x1d91…1db3 at0009 = ╱e1╱ > ╱ // 0x1d9a @0x9
0x1d91…1db3 at000a = ╱30╱0╱ // 0x1d9b @0xa
0x1d91…1db3 at000b = ╱f20000╱ // 0x1d9c @0xb
0x1d91…1db3 at000e = ╱b5╱ THEN ╱ // 0x1d9f @0xe
0x1d91…1db3 at000f = ╱92╱ PRINT ╱ // 0x1da0 @0xf
0x1d91…1db3 at0010 = ╱d0╱ CHR$ ╱ // 0x1da1 @0x10
0x1d91…1db3 at0011 = ╱ed╱(╱ // 0x1da2 @0x11
0x1d91…1db3 at0012 = ╱51╱Q╱ // 0x1da3 @0x12
0x1d91…1db3 at0013 = ╱5f╱_╱ // 0x1da4 @0x13
0x1d91…1db3 at0014 = ╱4d╱M╱ // 0x1da5 @0x14
0x1d91…1db3 at0015 = ╱ec╱,╱ // 0x1da6 @0x15
0x1d91…1db3 at0016 = ╱39╱9╱ // 0x1da7 @0x16
0x1d91…1db3 at0017 = ╱f20900╱ // 0x1da8 @0x17
0x1d91…1db3 at001a = ╱ec╱,╱ // 0x1dab @0x1a
0x1d91…1db3 at001b = ╱32╱2╱ // 0x1dac @0x1b
0x1d91…1db3 at001c = ╱f20200╱ // 0x1dad @0x1c
0x1d91…1db3 at001f = ╱ee╱)╱ // 0x1db0 @0x1f
0x1d91…1db3 at0020 = ╱ea╱ ; ╱ // 0x1db1 @0x20
0x1d91…1db3 at0021 = EOL // 0x1db2 @0x21
0x1d91…1db3 }
0x1db3…1dc5 bc2f 2920 IF _DK = DEBET THEN
0x1db3…1dc5 LineComal80 {
0x1db3…1dc5 ptr = 0xbc2f // 0x1db3 @0x0
0x1db3…1dc5 lno = 0x0b68 // 0x1db5 @0x2
0x1db3…1dc5 at0004 = ╱9b3151╱ IF ╱ // 0x1db7 @0x4
0x1db3…1dc5 at0007 = ╱5f╱_╱ // 0x1dba @0x7
0x1db3…1dc5 at0008 = ╱44╱D╱ // 0x1dbb @0x8
0x1db3…1dc5 at0009 = ╱4b╱K╱ // 0x1dbc @0x9
0x1db3…1dc5 at000a = ╱df╱ = ╱ // 0x1dbd @0xa
0x1db3…1dc5 at000b = ╱44╱D╱ // 0x1dbe @0xb
0x1db3…1dc5 at000c = ╱45╱E╱ // 0x1dbf @0xc
0x1db3…1dc5 at000d = ╱42╱B╱ // 0x1dc0 @0xd
0x1db3…1dc5 at000e = ╱45╱E╱ // 0x1dc1 @0xe
0x1db3…1dc5 at000f = ╱54╱T╱ // 0x1dc2 @0xf
0x1db3…1dc5 at0010 = ╱b5╱ THEN ╱ // 0x1dc3 @0x10
0x1db3…1dc5 at0011 = EOL // 0x1dc4 @0x11
0x1db3…1dc5 }
0x1dc5…1de5 b3d3 2930 PRINT TAB(54) ; CHR$ (Q_K,9,2) ;
0x1dc5…1de5 LineComal80 {
0x1dc5…1de5 ptr = 0xb3d3 // 0x1dc5 @0x0
0x1dc5…1de5 lno = 0x0b72 // 0x1dc7 @0x2
0x1dc5…1de5 at0004 = ╱92╱ PRINT ╱ // 0x1dc9 @0x4
0x1dc5…1de5 at0005 = ╱d2╱TAB╱ // 0x1dca @0x5
0x1dc5…1de5 at0006 = ╱ed╱(╱ // 0x1dcb @0x6
0x1dc5…1de5 at0007 = ╱35╱5╱ // 0x1dcc @0x7
0x1dc5…1de5 at0008 = ╱34╱4╱ // 0x1dcd @0x8
0x1dc5…1de5 at0009 = ╱f23600╱ // 0x1dce @0x9
0x1dc5…1de5 at000c = ╱ee╱)╱ // 0x1dd1 @0xc
0x1dc5…1de5 at000d = ╱ea╱ ; ╱ // 0x1dd2 @0xd
0x1dc5…1de5 at000e = ╱d0╱ CHR$ ╱ // 0x1dd3 @0xe
0x1dc5…1de5 at000f = ╱ed╱(╱ // 0x1dd4 @0xf
0x1dc5…1de5 at0010 = ╱51╱Q╱ // 0x1dd5 @0x10
0x1dc5…1de5 at0011 = ╱5f╱_╱ // 0x1dd6 @0x11
0x1dc5…1de5 at0012 = ╱4b╱K╱ // 0x1dd7 @0x12
0x1dc5…1de5 at0013 = ╱ec╱,╱ // 0x1dd8 @0x13
0x1dc5…1de5 at0014 = ╱39╱9╱ // 0x1dd9 @0x14
0x1dc5…1de5 at0015 = ╱f20900╱ // 0x1dda @0x15
0x1dc5…1de5 at0018 = ╱ec╱,╱ // 0x1ddd @0x18
0x1dc5…1de5 at0019 = ╱32╱2╱ // 0x1dde @0x19
0x1dc5…1de5 at001a = ╱f20200╱ // 0x1ddf @0x1a
0x1dc5…1de5 at001d = ╱ee╱)╱ // 0x1de2 @0x1d
0x1dc5…1de5 at001e = ╱ea╱ ; ╱ // 0x1de3 @0x1e
0x1dc5…1de5 at001f = EOL // 0x1de4 @0x1f
0x1dc5…1de5 }
0x1de5…1e02 b3f0 2940 LET TOT(1) := TOT(1) + Q_K
0x1de5…1e02 LineComal80 {
0x1de5…1e02 ptr = 0xb3f0 // 0x1de5 @0x0
0x1de5…1e02 lno = 0x0b7c // 0x1de7 @0x2
0x1de5…1e02 at0004 = ╱86╱ LET ╱ // 0x1de9 @0x4
0x1de5…1e02 at0005 = ╱54╱T╱ // 0x1dea @0x5
0x1de5…1e02 at0006 = ╱4f╱O╱ // 0x1deb @0x6
0x1de5…1e02 at0007 = ╱54╱T╱ // 0x1dec @0x7
0x1de5…1e02 at0008 = ╱ed╱(╱ // 0x1ded @0x8
0x1de5…1e02 at0009 = ╱31╱1╱ // 0x1dee @0x9
0x1de5…1e02 at000a = ╱f20100╱ // 0x1def @0xa
0x1de5…1e02 at000d = ╱ee╱)╱ // 0x1df2 @0xd
0x1de5…1e02 at000e = ╱f0╱ := ╱ // 0x1df3 @0xe
0x1de5…1e02 at000f = ╱54╱T╱ // 0x1df4 @0xf
0x1de5…1e02 at0010 = ╱4f╱O╱ // 0x1df5 @0x10
0x1de5…1e02 at0011 = ╱54╱T╱ // 0x1df6 @0x11
0x1de5…1e02 at0012 = ╱ed╱(╱ // 0x1df7 @0x12
0x1de5…1e02 at0013 = ╱31╱1╱ // 0x1df8 @0x13
0x1de5…1e02 at0014 = ╱f20100╱ // 0x1df9 @0x14
0x1de5…1e02 at0017 = ╱ee╱)╱ // 0x1dfc @0x17
0x1de5…1e02 at0018 = ╱e5╱ + ╱ // 0x1dfd @0x18
0x1de5…1e02 at0019 = ╱51╱Q╱ // 0x1dfe @0x19
0x1de5…1e02 at001a = ╱5f╱_╱ // 0x1dff @0x1a
0x1de5…1e02 at001b = ╱4b╱K╱ // 0x1e00 @0x1b
0x1de5…1e02 at001c = EOL // 0x1e01 @0x1c
0x1de5…1e02 }
0x1e02…1e09 b3f7 2950 ELSE
0x1e02…1e09 LineComal80 {
0x1e02…1e09 ptr = 0xb3f7 // 0x1e02 @0x0
0x1e02…1e09 lno = 0x0b86 // 0x1e04 @0x2
0x1e02…1e09 at0004 = ╱9a00╱ ELSE ╱ // 0x1e06 @0x4
0x1e02…1e09 at0006 = EOL // 0x1e08 @0x6
0x1e02…1e09 }
0x1e09…1e29 b417 2960 PRINT TAB(67) ; CHR$ (Q_K,9,2) ;
0x1e09…1e29 LineComal80 {
0x1e09…1e29 ptr = 0xb417 // 0x1e09 @0x0
0x1e09…1e29 lno = 0x0b90 // 0x1e0b @0x2
0x1e09…1e29 at0004 = ╱92╱ PRINT ╱ // 0x1e0d @0x4
0x1e09…1e29 at0005 = ╱d2╱TAB╱ // 0x1e0e @0x5
0x1e09…1e29 at0006 = ╱ed╱(╱ // 0x1e0f @0x6
0x1e09…1e29 at0007 = ╱36╱6╱ // 0x1e10 @0x7
0x1e09…1e29 at0008 = ╱37╱7╱ // 0x1e11 @0x8
0x1e09…1e29 at0009 = ╱f24300╱ // 0x1e12 @0x9
0x1e09…1e29 at000c = ╱ee╱)╱ // 0x1e15 @0xc
0x1e09…1e29 at000d = ╱ea╱ ; ╱ // 0x1e16 @0xd
0x1e09…1e29 at000e = ╱d0╱ CHR$ ╱ // 0x1e17 @0xe
0x1e09…1e29 at000f = ╱ed╱(╱ // 0x1e18 @0xf
0x1e09…1e29 at0010 = ╱51╱Q╱ // 0x1e19 @0x10
0x1e09…1e29 at0011 = ╱5f╱_╱ // 0x1e1a @0x11
0x1e09…1e29 at0012 = ╱4b╱K╱ // 0x1e1b @0x12
0x1e09…1e29 at0013 = ╱ec╱,╱ // 0x1e1c @0x13
0x1e09…1e29 at0014 = ╱39╱9╱ // 0x1e1d @0x14
0x1e09…1e29 at0015 = ╱f20900╱ // 0x1e1e @0x15
0x1e09…1e29 at0018 = ╱ec╱,╱ // 0x1e21 @0x18
0x1e09…1e29 at0019 = ╱32╱2╱ // 0x1e22 @0x19
0x1e09…1e29 at001a = ╱f20200╱ // 0x1e23 @0x1a
0x1e09…1e29 at001d = ╱ee╱)╱ // 0x1e26 @0x1d
0x1e09…1e29 at001e = ╱ea╱ ; ╱ // 0x1e27 @0x1e
0x1e09…1e29 at001f = EOL // 0x1e28 @0x1f
0x1e09…1e29 }
0x1e29…1e46 b434 2970 LET TOT(2) := TOT(2) + Q_K
0x1e29…1e46 LineComal80 {
0x1e29…1e46 ptr = 0xb434 // 0x1e29 @0x0
0x1e29…1e46 lno = 0x0b9a // 0x1e2b @0x2
0x1e29…1e46 at0004 = ╱86╱ LET ╱ // 0x1e2d @0x4
0x1e29…1e46 at0005 = ╱54╱T╱ // 0x1e2e @0x5
0x1e29…1e46 at0006 = ╱4f╱O╱ // 0x1e2f @0x6
0x1e29…1e46 at0007 = ╱54╱T╱ // 0x1e30 @0x7
0x1e29…1e46 at0008 = ╱ed╱(╱ // 0x1e31 @0x8
0x1e29…1e46 at0009 = ╱32╱2╱ // 0x1e32 @0x9
0x1e29…1e46 at000a = ╱f20200╱ // 0x1e33 @0xa
0x1e29…1e46 at000d = ╱ee╱)╱ // 0x1e36 @0xd
0x1e29…1e46 at000e = ╱f0╱ := ╱ // 0x1e37 @0xe
0x1e29…1e46 at000f = ╱54╱T╱ // 0x1e38 @0xf
0x1e29…1e46 at0010 = ╱4f╱O╱ // 0x1e39 @0x10
0x1e29…1e46 at0011 = ╱54╱T╱ // 0x1e3a @0x11
0x1e29…1e46 at0012 = ╱ed╱(╱ // 0x1e3b @0x12
0x1e29…1e46 at0013 = ╱32╱2╱ // 0x1e3c @0x13
0x1e29…1e46 at0014 = ╱f20200╱ // 0x1e3d @0x14
0x1e29…1e46 at0017 = ╱ee╱)╱ // 0x1e40 @0x17
0x1e29…1e46 at0018 = ╱e5╱ + ╱ // 0x1e41 @0x18
0x1e29…1e46 at0019 = ╱51╱Q╱ // 0x1e42 @0x19
0x1e29…1e46 at001a = ╱5f╱_╱ // 0x1e43 @0x1a
0x1e29…1e46 at001b = ╱4b╱K╱ // 0x1e44 @0x1b
0x1e29…1e46 at001c = EOL // 0x1e45 @0x1c
0x1e29…1e46 }
0x1e46…1e4c b43a 2980 ENDIF
0x1e46…1e4c LineComal80 {
0x1e46…1e4c ptr = 0xb43a // 0x1e46 @0x0
0x1e46…1e4c lno = 0x0ba4 // 0x1e48 @0x2
0x1e46…1e4c at0004 = ╱9c╱ ENDIF ╱ // 0x1e4a @0x4
0x1e46…1e4c at0005 = EOL // 0x1e4b @0x5
0x1e46…1e4c }
0x1e4c…1e52 b440 2990 PRINT
0x1e4c…1e52 LineComal80 {
0x1e4c…1e52 ptr = 0xb440 // 0x1e4c @0x0
0x1e4c…1e52 lno = 0x0bae // 0x1e4e @0x2
0x1e4c…1e52 at0004 = ╱92╱ PRINT ╱ // 0x1e50 @0x4
0x1e4c…1e52 at0005 = EOL // 0x1e51 @0x5
0x1e4c…1e52 }
0x1e52…1e61 b44f 3000 ENDPROC SKRIV_LIN
0x1e52…1e61 LineComal80 {
0x1e52…1e61 ptr = 0xb44f // 0x1e52 @0x0
0x1e52…1e61 lno = 0x0bb8 // 0x1e54 @0x2
0x1e52…1e61 at0004 = ╱9f╱ ENDPROC ╱ // 0x1e56 @0x4
0x1e52…1e61 at0005 = ╱53╱S╱ // 0x1e57 @0x5
0x1e52…1e61 at0006 = ╱4b╱K╱ // 0x1e58 @0x6
0x1e52…1e61 at0007 = ╱52╱R╱ // 0x1e59 @0x7
0x1e52…1e61 at0008 = ╱49╱I╱ // 0x1e5a @0x8
0x1e52…1e61 at0009 = ╱56╱V╱ // 0x1e5b @0x9
0x1e52…1e61 at000a = ╱5f╱_╱ // 0x1e5c @0xa
0x1e52…1e61 at000b = ╱4c╱L╱ // 0x1e5d @0xb
0x1e52…1e61 at000c = ╱49╱I╱ // 0x1e5e @0xc
0x1e52…1e61 at000d = ╱4e╱N╱ // 0x1e5f @0xd
0x1e52…1e61 at000e = EOL // 0x1e60 @0xe
0x1e52…1e61 }
0x1e61…1e66 (101,) b454 3010
0x1e61…1e66 LineComal80 {
0x1e61…1e66 ptr = 0xb454 // 0x1e61 @0x0
0x1e61…1e66 lno = 0x0bc2 // 0x1e63 @0x2
0x1e61…1e66 at0004 = EOL // 0x1e65 @0x4
0x1e61…1e66 }
0x1e66…1e73 b461 3020 PROC AFSLUT
0x1e66…1e73 LineComal80 {
0x1e66…1e73 ptr = 0xb461 // 0x1e66 @0x0
0x1e66…1e73 lno = 0x0bcc // 0x1e68 @0x2
0x1e66…1e73 at0004 = ╱9e33╱ PROC ╱ // 0x1e6a @0x4
0x1e66…1e73 at0006 = ╱41╱A╱ // 0x1e6c @0x6
0x1e66…1e73 at0007 = ╱46╱F╱ // 0x1e6d @0x7
0x1e66…1e73 at0008 = ╱53╱S╱ // 0x1e6e @0x8
0x1e66…1e73 at0009 = ╱4c╱L╱ // 0x1e6f @0x9
0x1e66…1e73 at000a = ╱55╱U╱ // 0x1e70 @0xa
0x1e66…1e73 at000b = ╱54╱T╱ // 0x1e71 @0xb
0x1e66…1e73 at000c = EOL // 0x1e72 @0xc
0x1e66…1e73 }
0x1e73…1e90 b47e 3030 FOR I := LIN_T TO AX_LIN - 6 DO PRINT
0x1e73…1e90 LineComal80 {
0x1e73…1e90 ptr = 0xb47e // 0x1e73 @0x0
0x1e73…1e90 lno = 0x0bd6 // 0x1e75 @0x2
0x1e73…1e90 at0004 = ╱b400╱ FOR ╱ // 0x1e77 @0x4
0x1e73…1e90 at0006 = ╱49╱I╱ // 0x1e79 @0x6
0x1e73…1e90 at0007 = ╱f0╱ := ╱ // 0x1e7a @0x7
0x1e73…1e90 at0008 = ╱4c╱L╱ // 0x1e7b @0x8
0x1e73…1e90 at0009 = ╱49╱I╱ // 0x1e7c @0x9
0x1e73…1e90 at000a = ╱4e╱N╱ // 0x1e7d @0xa
0x1e73…1e90 at000b = ╱5f╱_╱ // 0x1e7e @0xb
0x1e73…1e90 at000c = ╱54╱T╱ // 0x1e7f @0xc
0x1e73…1e90 at000d = ╱b74d╱ TO ╱ // 0x1e80 @0xd
0x1e73…1e90 at000f = ╱41╱A╱ // 0x1e82 @0xf
0x1e73…1e90 at0010 = ╱58╱X╱ // 0x1e83 @0x10
0x1e73…1e90 at0011 = ╱5f╱_╱ // 0x1e84 @0x11
0x1e73…1e90 at0012 = ╱4c╱L╱ // 0x1e85 @0x12
0x1e73…1e90 at0013 = ╱49╱I╱ // 0x1e86 @0x13
0x1e73…1e90 at0014 = ╱4e╱N╱ // 0x1e87 @0x14
0x1e73…1e90 at0015 = ╱e6╱ - ╱ // 0x1e88 @0x15
0x1e73…1e90 at0016 = ╱36╱6╱ // 0x1e89 @0x16
0x1e73…1e90 at0017 = ╱f20600╱ // 0x1e8a @0x17
0x1e73…1e90 at001a = ╱bb╱ DO ╱ // 0x1e8d @0x1a
0x1e73…1e90 at001b = ╱92╱ PRINT ╱ // 0x1e8e @0x1b
0x1e73…1e90 at001c = EOL // 0x1e8f @0x1c
0x1e73…1e90 }
0x1e90…1ea8 b496 3040 LET LIN_T := MAX_LIN - 5
0x1e90…1ea8 LineComal80 {
0x1e90…1ea8 ptr = 0xb496 // 0x1e90 @0x0
0x1e90…1ea8 lno = 0x0be0 // 0x1e92 @0x2
0x1e90…1ea8 at0004 = ╱86╱ LET ╱ // 0x1e94 @0x4
0x1e90…1ea8 at0005 = ╱4c╱L╱ // 0x1e95 @0x5
0x1e90…1ea8 at0006 = ╱49╱I╱ // 0x1e96 @0x6
0x1e90…1ea8 at0007 = ╱4e╱N╱ // 0x1e97 @0x7
0x1e90…1ea8 at0008 = ╱5f╱_╱ // 0x1e98 @0x8
0x1e90…1ea8 at0009 = ╱54╱T╱ // 0x1e99 @0x9
0x1e90…1ea8 at000a = ╱f0╱ := ╱ // 0x1e9a @0xa
0x1e90…1ea8 at000b = ╱4d╱M╱ // 0x1e9b @0xb
0x1e90…1ea8 at000c = ╱41╱A╱ // 0x1e9c @0xc
0x1e90…1ea8 at000d = ╱58╱X╱ // 0x1e9d @0xd
0x1e90…1ea8 at000e = ╱5f╱_╱ // 0x1e9e @0xe
0x1e90…1ea8 at000f = ╱4c╱L╱ // 0x1e9f @0xf
0x1e90…1ea8 at0010 = ╱49╱I╱ // 0x1ea0 @0x10
0x1e90…1ea8 at0011 = ╱4e╱N╱ // 0x1ea1 @0x11
0x1e90…1ea8 at0012 = ╱e6╱ - ╱ // 0x1ea2 @0x12
0x1e90…1ea8 at0013 = ╱35╱5╱ // 0x1ea3 @0x13
0x1e90…1ea8 at0014 = ╱f20500╱ // 0x1ea4 @0x14
0x1e90…1ea8 at0017 = EOL // 0x1ea7 @0x17
0x1e90…1ea8 }
0x1ea8…1eda b4c8 3050 PRINT "<S>---------------------------------------"
0x1ea8…1eda LineComal80 {
0x1ea8…1eda ptr = 0xb4c8 // 0x1ea8 @0x0
0x1ea8…1eda lno = 0x0bea // 0x1eaa @0x2
0x1ea8…1eda at0004 = ╱92╱ PRINT ╱ // 0x1eac @0x4
0x1ea8…1eda at0005 = ╱22╱"╱ // 0x1ead @0x5
0x1ea8…1eda at0006 = ╱3c╱<╱ // 0x1eae @0x6
0x1ea8…1eda at0007 = ╱53╱S╱ // 0x1eaf @0x7
0x1ea8…1eda at0008 = ╱3e╱>╱ // 0x1eb0 @0x8
0x1ea8…1eda at0009 = ╱2d╱-╱ // 0x1eb1 @0x9
0x1ea8…1eda at000a = ╱2d╱-╱ // 0x1eb2 @0xa
0x1ea8…1eda at000b = ╱2d╱-╱ // 0x1eb3 @0xb
0x1ea8…1eda at000c = ╱2d╱-╱ // 0x1eb4 @0xc
0x1ea8…1eda at000d = ╱2d╱-╱ // 0x1eb5 @0xd
0x1ea8…1eda at000e = ╱2d╱-╱ // 0x1eb6 @0xe
0x1ea8…1eda at000f = ╱2d╱-╱ // 0x1eb7 @0xf
0x1ea8…1eda at0010 = ╱2d╱-╱ // 0x1eb8 @0x10
0x1ea8…1eda at0011 = ╱2d╱-╱ // 0x1eb9 @0x11
0x1ea8…1eda at0012 = ╱2d╱-╱ // 0x1eba @0x12
0x1ea8…1eda at0013 = ╱2d╱-╱ // 0x1ebb @0x13
0x1ea8…1eda at0014 = ╱2d╱-╱ // 0x1ebc @0x14
0x1ea8…1eda at0015 = ╱2d╱-╱ // 0x1ebd @0x15
0x1ea8…1eda at0016 = ╱2d╱-╱ // 0x1ebe @0x16
0x1ea8…1eda at0017 = ╱2d╱-╱ // 0x1ebf @0x17
0x1ea8…1eda at0018 = ╱2d╱-╱ // 0x1ec0 @0x18
0x1ea8…1eda at0019 = ╱2d╱-╱ // 0x1ec1 @0x19
0x1ea8…1eda at001a = ╱2d╱-╱ // 0x1ec2 @0x1a
0x1ea8…1eda at001b = ╱2d╱-╱ // 0x1ec3 @0x1b
0x1ea8…1eda at001c = ╱2d╱-╱ // 0x1ec4 @0x1c
0x1ea8…1eda at001d = ╱2d╱-╱ // 0x1ec5 @0x1d
0x1ea8…1eda at001e = ╱2d╱-╱ // 0x1ec6 @0x1e
0x1ea8…1eda at001f = ╱2d╱-╱ // 0x1ec7 @0x1f
0x1ea8…1eda at0020 = ╱2d╱-╱ // 0x1ec8 @0x20
0x1ea8…1eda at0021 = ╱2d╱-╱ // 0x1ec9 @0x21
0x1ea8…1eda at0022 = ╱2d╱-╱ // 0x1eca @0x22
0x1ea8…1eda at0023 = ╱2d╱-╱ // 0x1ecb @0x23
0x1ea8…1eda at0024 = ╱2d╱-╱ // 0x1ecc @0x24
0x1ea8…1eda at0025 = ╱2d╱-╱ // 0x1ecd @0x25
0x1ea8…1eda at0026 = ╱2d╱-╱ // 0x1ece @0x26
0x1ea8…1eda at0027 = ╱2d╱-╱ // 0x1ecf @0x27
0x1ea8…1eda at0028 = ╱2d╱-╱ // 0x1ed0 @0x28
0x1ea8…1eda at0029 = ╱2d╱-╱ // 0x1ed1 @0x29
0x1ea8…1eda at002a = ╱2d╱-╱ // 0x1ed2 @0x2a
0x1ea8…1eda at002b = ╱2d╱-╱ // 0x1ed3 @0x2b
0x1ea8…1eda at002c = ╱2d╱-╱ // 0x1ed4 @0x2c
0x1ea8…1eda at002d = ╱2d╱-╱ // 0x1ed5 @0x2d
0x1ea8…1eda at002e = ╱2d╱-╱ // 0x1ed6 @0x2e
0x1ea8…1eda at002f = ╱2d╱-╱ // 0x1ed7 @0x2f
0x1ea8…1eda at0030 = ╱22╱"╱ // 0x1ed8 @0x30
0x1ea8…1eda at0031 = EOL // 0x1ed9 @0x31
0x1ea8…1eda }
0x1eda…1f09 b4f7 3060 PRINT "---------------------------------------"
0x1eda…1f09 LineComal80 {
0x1eda…1f09 ptr = 0xb4f7 // 0x1eda @0x0
0x1eda…1f09 lno = 0x0bf4 // 0x1edc @0x2
0x1eda…1f09 at0004 = ╱92╱ PRINT ╱ // 0x1ede @0x4
0x1eda…1f09 at0005 = ╱22╱"╱ // 0x1edf @0x5
0x1eda…1f09 at0006 = ╱2d╱-╱ // 0x1ee0 @0x6
0x1eda…1f09 at0007 = ╱2d╱-╱ // 0x1ee1 @0x7
0x1eda…1f09 at0008 = ╱2d╱-╱ // 0x1ee2 @0x8
0x1eda…1f09 at0009 = ╱2d╱-╱ // 0x1ee3 @0x9
0x1eda…1f09 at000a = ╱2d╱-╱ // 0x1ee4 @0xa
0x1eda…1f09 at000b = ╱2d╱-╱ // 0x1ee5 @0xb
0x1eda…1f09 at000c = ╱2d╱-╱ // 0x1ee6 @0xc
0x1eda…1f09 at000d = ╱2d╱-╱ // 0x1ee7 @0xd
0x1eda…1f09 at000e = ╱2d╱-╱ // 0x1ee8 @0xe
0x1eda…1f09 at000f = ╱2d╱-╱ // 0x1ee9 @0xf
0x1eda…1f09 at0010 = ╱2d╱-╱ // 0x1eea @0x10
0x1eda…1f09 at0011 = ╱2d╱-╱ // 0x1eeb @0x11
0x1eda…1f09 at0012 = ╱2d╱-╱ // 0x1eec @0x12
0x1eda…1f09 at0013 = ╱2d╱-╱ // 0x1eed @0x13
0x1eda…1f09 at0014 = ╱2d╱-╱ // 0x1eee @0x14
0x1eda…1f09 at0015 = ╱2d╱-╱ // 0x1eef @0x15
0x1eda…1f09 at0016 = ╱2d╱-╱ // 0x1ef0 @0x16
0x1eda…1f09 at0017 = ╱2d╱-╱ // 0x1ef1 @0x17
0x1eda…1f09 at0018 = ╱2d╱-╱ // 0x1ef2 @0x18
0x1eda…1f09 at0019 = ╱2d╱-╱ // 0x1ef3 @0x19
0x1eda…1f09 at001a = ╱2d╱-╱ // 0x1ef4 @0x1a
0x1eda…1f09 at001b = ╱2d╱-╱ // 0x1ef5 @0x1b
0x1eda…1f09 at001c = ╱2d╱-╱ // 0x1ef6 @0x1c
0x1eda…1f09 at001d = ╱2d╱-╱ // 0x1ef7 @0x1d
0x1eda…1f09 at001e = ╱2d╱-╱ // 0x1ef8 @0x1e
0x1eda…1f09 at001f = ╱2d╱-╱ // 0x1ef9 @0x1f
0x1eda…1f09 at0020 = ╱2d╱-╱ // 0x1efa @0x20
0x1eda…1f09 at0021 = ╱2d╱-╱ // 0x1efb @0x21
0x1eda…1f09 at0022 = ╱2d╱-╱ // 0x1efc @0x22
0x1eda…1f09 at0023 = ╱2d╱-╱ // 0x1efd @0x23
0x1eda…1f09 at0024 = ╱2d╱-╱ // 0x1efe @0x24
0x1eda…1f09 at0025 = ╱2d╱-╱ // 0x1eff @0x25
0x1eda…1f09 at0026 = ╱2d╱-╱ // 0x1f00 @0x26
0x1eda…1f09 at0027 = ╱2d╱-╱ // 0x1f01 @0x27
0x1eda…1f09 at0028 = ╱2d╱-╱ // 0x1f02 @0x28
0x1eda…1f09 at0029 = ╱2d╱-╱ // 0x1f03 @0x29
0x1eda…1f09 at002a = ╱2d╱-╱ // 0x1f04 @0x2a
0x1eda…1f09 at002b = ╱2d╱-╱ // 0x1f05 @0x2b
0x1eda…1f09 at002c = ╱2d╱-╱ // 0x1f06 @0x2c
0x1eda…1f09 at002d = ╱22╱"╱ // 0x1f07 @0x2d
0x1eda…1f09 at002e = EOL // 0x1f08 @0x2e
0x1eda…1f09 }
0x1f09…1f4e b53c 3070 PRINT TAB(54) ; CHR$ (TOT(1),9,2) ; TAB(67) ; CHR$ (TOT(2),9,2)
0x1f09…1f4e LineComal80 {
0x1f09…1f4e ptr = 0xb53c // 0x1f09 @0x0
0x1f09…1f4e lno = 0x0bfe // 0x1f0b @0x2
0x1f09…1f4e at0004 = ╱92╱ PRINT ╱ // 0x1f0d @0x4
0x1f09…1f4e at0005 = ╱d2╱TAB╱ // 0x1f0e @0x5
0x1f09…1f4e at0006 = ╱ed╱(╱ // 0x1f0f @0x6
0x1f09…1f4e at0007 = ╱35╱5╱ // 0x1f10 @0x7
0x1f09…1f4e at0008 = ╱34╱4╱ // 0x1f11 @0x8
0x1f09…1f4e at0009 = ╱f23600╱ // 0x1f12 @0x9
0x1f09…1f4e at000c = ╱ee╱)╱ // 0x1f15 @0xc
0x1f09…1f4e at000d = ╱ea╱ ; ╱ // 0x1f16 @0xd
0x1f09…1f4e at000e = ╱d0╱ CHR$ ╱ // 0x1f17 @0xe
0x1f09…1f4e at000f = ╱ed╱(╱ // 0x1f18 @0xf
0x1f09…1f4e at0010 = ╱54╱T╱ // 0x1f19 @0x10
0x1f09…1f4e at0011 = ╱4f╱O╱ // 0x1f1a @0x11
0x1f09…1f4e at0012 = ╱54╱T╱ // 0x1f1b @0x12
0x1f09…1f4e at0013 = ╱ed╱(╱ // 0x1f1c @0x13
0x1f09…1f4e at0014 = ╱31╱1╱ // 0x1f1d @0x14
0x1f09…1f4e at0015 = ╱f20100╱ // 0x1f1e @0x15
0x1f09…1f4e at0018 = ╱ee╱)╱ // 0x1f21 @0x18
0x1f09…1f4e at0019 = ╱ec╱,╱ // 0x1f22 @0x19
0x1f09…1f4e at001a = ╱39╱9╱ // 0x1f23 @0x1a
0x1f09…1f4e at001b = ╱f20900╱ // 0x1f24 @0x1b
0x1f09…1f4e at001e = ╱ec╱,╱ // 0x1f27 @0x1e
0x1f09…1f4e at001f = ╱32╱2╱ // 0x1f28 @0x1f
0x1f09…1f4e at0020 = ╱f20200╱ // 0x1f29 @0x20
0x1f09…1f4e at0023 = ╱ee╱)╱ // 0x1f2c @0x23
0x1f09…1f4e at0024 = ╱ea╱ ; ╱ // 0x1f2d @0x24
0x1f09…1f4e at0025 = ╱d2╱TAB╱ // 0x1f2e @0x25
0x1f09…1f4e at0026 = ╱ed╱(╱ // 0x1f2f @0x26
0x1f09…1f4e at0027 = ╱36╱6╱ // 0x1f30 @0x27
0x1f09…1f4e at0028 = ╱37╱7╱ // 0x1f31 @0x28
0x1f09…1f4e at0029 = ╱f24300╱ // 0x1f32 @0x29
0x1f09…1f4e at002c = ╱ee╱)╱ // 0x1f35 @0x2c
0x1f09…1f4e at002d = ╱ea╱ ; ╱ // 0x1f36 @0x2d
0x1f09…1f4e at002e = ╱d0╱ CHR$ ╱ // 0x1f37 @0x2e
0x1f09…1f4e at002f = ╱ed╱(╱ // 0x1f38 @0x2f
0x1f09…1f4e at0030 = ╱54╱T╱ // 0x1f39 @0x30
0x1f09…1f4e at0031 = ╱4f╱O╱ // 0x1f3a @0x31
0x1f09…1f4e at0032 = ╱54╱T╱ // 0x1f3b @0x32
0x1f09…1f4e at0033 = ╱ed╱(╱ // 0x1f3c @0x33
0x1f09…1f4e at0034 = ╱32╱2╱ // 0x1f3d @0x34
0x1f09…1f4e at0035 = ╱f20200╱ // 0x1f3e @0x35
0x1f09…1f4e at0038 = ╱ee╱)╱ // 0x1f41 @0x38
0x1f09…1f4e at0039 = ╱ec╱,╱ // 0x1f42 @0x39
0x1f09…1f4e at003a = ╱39╱9╱ // 0x1f43 @0x3a
0x1f09…1f4e at003b = ╱f20900╱ // 0x1f44 @0x3b
0x1f09…1f4e at003e = ╱ec╱,╱ // 0x1f47 @0x3e
0x1f09…1f4e at003f = ╱32╱2╱ // 0x1f48 @0x3f
0x1f09…1f4e at0040 = ╱f20200╱ // 0x1f49 @0x40
0x1f09…1f4e at0043 = ╱ee╱)╱ // 0x1f4c @0x43
0x1f09…1f4e at0044 = EOL // 0x1f4d @0x44
0x1f09…1f4e }
0x1f4e…1f6c b55a 3080 PRINT TAB(18) ; "NY SALDO " ;
0x1f4e…1f6c LineComal80 {
0x1f4e…1f6c ptr = 0xb55a // 0x1f4e @0x0
0x1f4e…1f6c lno = 0x0c08 // 0x1f50 @0x2
0x1f4e…1f6c at0004 = ╱92╱ PRINT ╱ // 0x1f52 @0x4
0x1f4e…1f6c at0005 = ╱d2╱TAB╱ // 0x1f53 @0x5
0x1f4e…1f6c at0006 = ╱ed╱(╱ // 0x1f54 @0x6
0x1f4e…1f6c at0007 = ╱31╱1╱ // 0x1f55 @0x7
0x1f4e…1f6c at0008 = ╱38╱8╱ // 0x1f56 @0x8
0x1f4e…1f6c at0009 = ╱f21200╱ // 0x1f57 @0x9
0x1f4e…1f6c at000c = ╱ee╱)╱ // 0x1f5a @0xc
0x1f4e…1f6c at000d = ╱ea╱ ; ╱ // 0x1f5b @0xd
0x1f4e…1f6c at000e = ╱22╱"╱ // 0x1f5c @0xe
0x1f4e…1f6c at000f = ╱4e╱N╱ // 0x1f5d @0xf
0x1f4e…1f6c at0010 = ╱59╱Y╱ // 0x1f5e @0x10
0x1f4e…1f6c at0011 = ╱20╱…╱ // 0x1f5f @0x11
0x1f4e…1f6c at0012 = ╱53╱S╱ // 0x1f60 @0x12
0x1f4e…1f6c at0013 = ╱41╱A╱ // 0x1f61 @0x13
0x1f4e…1f6c at0014 = ╱4c╱L╱ // 0x1f62 @0x14
0x1f4e…1f6c at0015 = ╱44╱D╱ // 0x1f63 @0x15
0x1f4e…1f6c at0016 = ╱4f╱O╱ // 0x1f64 @0x16
0x1f4e…1f6c at0017 = ╱20╱…╱ // 0x1f65 @0x17
0x1f4e…1f6c at0018 = ╱20╱…╱ // 0x1f66 @0x18
0x1f4e…1f6c at0019 = ╱20╱…╱ // 0x1f67 @0x19
0x1f4e…1f6c at001a = ╱20╱…╱ // 0x1f68 @0x1a
0x1f4e…1f6c at001b = ╱22╱"╱ // 0x1f69 @0x1b
0x1f4e…1f6c at001c = ╱ea╱ ; ╱ // 0x1f6a @0x1c
0x1f4e…1f6c at001d = EOL // 0x1f6b @0x1d
0x1f4e…1f6c }
0x1f6c…1f8c c3bf 3090 IF OT(1) - TOT(2) > 0 THEN
0x1f6c…1f8c LineComal80 {
0x1f6c…1f8c ptr = 0xc3bf // 0x1f6c @0x0
0x1f6c…1f8c lno = 0x0c12 // 0x1f6e @0x2
0x1f6c…1f8c at0004 = ╱9b3454╱ IF ╱ // 0x1f70 @0x4
0x1f6c…1f8c at0007 = ╱4f╱O╱ // 0x1f73 @0x7
0x1f6c…1f8c at0008 = ╱54╱T╱ // 0x1f74 @0x8
0x1f6c…1f8c at0009 = ╱ed╱(╱ // 0x1f75 @0x9
0x1f6c…1f8c at000a = ╱31╱1╱ // 0x1f76 @0xa
0x1f6c…1f8c at000b = ╱f20100╱ // 0x1f77 @0xb
0x1f6c…1f8c at000e = ╱ee╱)╱ // 0x1f7a @0xe
0x1f6c…1f8c at000f = ╱e6╱ - ╱ // 0x1f7b @0xf
0x1f6c…1f8c at0010 = ╱54╱T╱ // 0x1f7c @0x10
0x1f6c…1f8c at0011 = ╱4f╱O╱ // 0x1f7d @0x11
0x1f6c…1f8c at0012 = ╱54╱T╱ // 0x1f7e @0x12
0x1f6c…1f8c at0013 = ╱ed╱(╱ // 0x1f7f @0x13
0x1f6c…1f8c at0014 = ╱32╱2╱ // 0x1f80 @0x14
0x1f6c…1f8c at0015 = ╱f20200╱ // 0x1f81 @0x15
0x1f6c…1f8c at0018 = ╱ee╱)╱ // 0x1f84 @0x18
0x1f6c…1f8c at0019 = ╱e1╱ > ╱ // 0x1f85 @0x19
0x1f6c…1f8c at001a = ╱30╱0╱ // 0x1f86 @0x1a
0x1f6c…1f8c at001b = ╱f20000╱ // 0x1f87 @0x1b
0x1f6c…1f8c at001e = ╱b5╱ THEN ╱ // 0x1f8a @0x1e
0x1f6c…1f8c at001f = EOL // 0x1f8b @0x1f
0x1f6c…1f8c }
0x1f8c…1fbb b5a9 3100 PRINT TAB(67) ; CHR$ (TOT(1) - TOT(2),9,2)
0x1f8c…1fbb LineComal80 {
0x1f8c…1fbb ptr = 0xb5a9 // 0x1f8c @0x0
0x1f8c…1fbb lno = 0x0c1c // 0x1f8e @0x2
0x1f8c…1fbb at0004 = ╱92╱ PRINT ╱ // 0x1f90 @0x4
0x1f8c…1fbb at0005 = ╱d2╱TAB╱ // 0x1f91 @0x5
0x1f8c…1fbb at0006 = ╱ed╱(╱ // 0x1f92 @0x6
0x1f8c…1fbb at0007 = ╱36╱6╱ // 0x1f93 @0x7
0x1f8c…1fbb at0008 = ╱37╱7╱ // 0x1f94 @0x8
0x1f8c…1fbb at0009 = ╱f24300╱ // 0x1f95 @0x9
0x1f8c…1fbb at000c = ╱ee╱)╱ // 0x1f98 @0xc
0x1f8c…1fbb at000d = ╱ea╱ ; ╱ // 0x1f99 @0xd
0x1f8c…1fbb at000e = ╱d0╱ CHR$ ╱ // 0x1f9a @0xe
0x1f8c…1fbb at000f = ╱ed╱(╱ // 0x1f9b @0xf
0x1f8c…1fbb at0010 = ╱54╱T╱ // 0x1f9c @0x10
0x1f8c…1fbb at0011 = ╱4f╱O╱ // 0x1f9d @0x11
0x1f8c…1fbb at0012 = ╱54╱T╱ // 0x1f9e @0x12
0x1f8c…1fbb at0013 = ╱ed╱(╱ // 0x1f9f @0x13
0x1f8c…1fbb at0014 = ╱31╱1╱ // 0x1fa0 @0x14
0x1f8c…1fbb at0015 = ╱f20100╱ // 0x1fa1 @0x15
0x1f8c…1fbb at0018 = ╱ee╱)╱ // 0x1fa4 @0x18
0x1f8c…1fbb at0019 = ╱e6╱ - ╱ // 0x1fa5 @0x19
0x1f8c…1fbb at001a = ╱54╱T╱ // 0x1fa6 @0x1a
0x1f8c…1fbb at001b = ╱4f╱O╱ // 0x1fa7 @0x1b
0x1f8c…1fbb at001c = ╱54╱T╱ // 0x1fa8 @0x1c
0x1f8c…1fbb at001d = ╱ed╱(╱ // 0x1fa9 @0x1d
0x1f8c…1fbb at001e = ╱32╱2╱ // 0x1faa @0x1e
0x1f8c…1fbb at001f = ╱f20200╱ // 0x1fab @0x1f
0x1f8c…1fbb at0022 = ╱ee╱)╱ // 0x1fae @0x22
0x1f8c…1fbb at0023 = ╱ec╱,╱ // 0x1faf @0x23
0x1f8c…1fbb at0024 = ╱39╱9╱ // 0x1fb0 @0x24
0x1f8c…1fbb at0025 = ╱f20900╱ // 0x1fb1 @0x25
0x1f8c…1fbb at0028 = ╱ec╱,╱ // 0x1fb4 @0x28
0x1f8c…1fbb at0029 = ╱32╱2╱ // 0x1fb5 @0x29
0x1f8c…1fbb at002a = ╱f20200╱ // 0x1fb6 @0x2a
0x1f8c…1fbb at002d = ╱ee╱)╱ // 0x1fb9 @0x2d
0x1f8c…1fbb at002e = EOL // 0x1fba @0x2e
0x1f8c…1fbb }
0x1fbb…1fd4 b5c2 3110 LET TOT(2) := TOT(1)
0x1fbb…1fd4 LineComal80 {
0x1fbb…1fd4 ptr = 0xb5c2 // 0x1fbb @0x0
0x1fbb…1fd4 lno = 0x0c26 // 0x1fbd @0x2
0x1fbb…1fd4 at0004 = ╱86╱ LET ╱ // 0x1fbf @0x4
0x1fbb…1fd4 at0005 = ╱54╱T╱ // 0x1fc0 @0x5
0x1fbb…1fd4 at0006 = ╱4f╱O╱ // 0x1fc1 @0x6
0x1fbb…1fd4 at0007 = ╱54╱T╱ // 0x1fc2 @0x7
0x1fbb…1fd4 at0008 = ╱ed╱(╱ // 0x1fc3 @0x8
0x1fbb…1fd4 at0009 = ╱32╱2╱ // 0x1fc4 @0x9
0x1fbb…1fd4 at000a = ╱f20200╱ // 0x1fc5 @0xa
0x1fbb…1fd4 at000d = ╱ee╱)╱ // 0x1fc8 @0xd
0x1fbb…1fd4 at000e = ╱f0╱ := ╱ // 0x1fc9 @0xe
0x1fbb…1fd4 at000f = ╱54╱T╱ // 0x1fca @0xf
0x1fbb…1fd4 at0010 = ╱4f╱O╱ // 0x1fcb @0x10
0x1fbb…1fd4 at0011 = ╱54╱T╱ // 0x1fcc @0x11
0x1fbb…1fd4 at0012 = ╱ed╱(╱ // 0x1fcd @0x12
0x1fbb…1fd4 at0013 = ╱31╱1╱ // 0x1fce @0x13
0x1fbb…1fd4 at0014 = ╱f20100╱ // 0x1fcf @0x14
0x1fbb…1fd4 at0017 = ╱ee╱)╱ // 0x1fd2 @0x17
0x1fbb…1fd4 at0018 = EOL // 0x1fd3 @0x18
0x1fbb…1fd4 }
0x1fd4…1fdb c3ee 3120 ELSE
0x1fd4…1fdb LineComal80 {
0x1fd4…1fdb ptr = 0xc3ee // 0x1fd4 @0x0
0x1fd4…1fdb lno = 0x0c30 // 0x1fd6 @0x2
0x1fd4…1fdb at0004 = ╱9a35╱ ELSE ╱ // 0x1fd8 @0x4
0x1fd4…1fdb at0006 = EOL // 0x1fda @0x6
0x1fd4…1fdb }
0x1fdb…200a b5f8 3130 PRINT TAB(54) ; CHR$ (TOT(2) - TOT(1),9,2)
0x1fdb…200a LineComal80 {
0x1fdb…200a ptr = 0xb5f8 // 0x1fdb @0x0
0x1fdb…200a lno = 0x0c3a // 0x1fdd @0x2
0x1fdb…200a at0004 = ╱92╱ PRINT ╱ // 0x1fdf @0x4
0x1fdb…200a at0005 = ╱d2╱TAB╱ // 0x1fe0 @0x5
0x1fdb…200a at0006 = ╱ed╱(╱ // 0x1fe1 @0x6
0x1fdb…200a at0007 = ╱35╱5╱ // 0x1fe2 @0x7
0x1fdb…200a at0008 = ╱34╱4╱ // 0x1fe3 @0x8
0x1fdb…200a at0009 = ╱f23600╱ // 0x1fe4 @0x9
0x1fdb…200a at000c = ╱ee╱)╱ // 0x1fe7 @0xc
0x1fdb…200a at000d = ╱ea╱ ; ╱ // 0x1fe8 @0xd
0x1fdb…200a at000e = ╱d0╱ CHR$ ╱ // 0x1fe9 @0xe
0x1fdb…200a at000f = ╱ed╱(╱ // 0x1fea @0xf
0x1fdb…200a at0010 = ╱54╱T╱ // 0x1feb @0x10
0x1fdb…200a at0011 = ╱4f╱O╱ // 0x1fec @0x11
0x1fdb…200a at0012 = ╱54╱T╱ // 0x1fed @0x12
0x1fdb…200a at0013 = ╱ed╱(╱ // 0x1fee @0x13
0x1fdb…200a at0014 = ╱32╱2╱ // 0x1fef @0x14
0x1fdb…200a at0015 = ╱f20200╱ // 0x1ff0 @0x15
0x1fdb…200a at0018 = ╱ee╱)╱ // 0x1ff3 @0x18
0x1fdb…200a at0019 = ╱e6╱ - ╱ // 0x1ff4 @0x19
0x1fdb…200a at001a = ╱54╱T╱ // 0x1ff5 @0x1a
0x1fdb…200a at001b = ╱4f╱O╱ // 0x1ff6 @0x1b
0x1fdb…200a at001c = ╱54╱T╱ // 0x1ff7 @0x1c
0x1fdb…200a at001d = ╱ed╱(╱ // 0x1ff8 @0x1d
0x1fdb…200a at001e = ╱31╱1╱ // 0x1ff9 @0x1e
0x1fdb…200a at001f = ╱f20100╱ // 0x1ffa @0x1f
0x1fdb…200a at0022 = ╱ee╱)╱ // 0x1ffd @0x22
0x1fdb…200a at0023 = ╱ec╱,╱ // 0x1ffe @0x23
0x1fdb…200a at0024 = ╱39╱9╱ // 0x1fff @0x24
0x1fdb…200a at0025 = ╱f20900╱ // 0x2000 @0x25
0x1fdb…200a at0028 = ╱ec╱,╱ // 0x2003 @0x28
0x1fdb…200a at0029 = ╱32╱2╱ // 0x2004 @0x29
0x1fdb…200a at002a = ╱f20200╱ // 0x2005 @0x2a
0x1fdb…200a at002d = ╱ee╱)╱ // 0x2008 @0x2d
0x1fdb…200a at002e = EOL // 0x2009 @0x2e
0x1fdb…200a }
0x200a…2023 b611 3140 LET TOT(1) := TOT(2)
0x200a…2023 LineComal80 {
0x200a…2023 ptr = 0xb611 // 0x200a @0x0
0x200a…2023 lno = 0x0c44 // 0x200c @0x2
0x200a…2023 at0004 = ╱86╱ LET ╱ // 0x200e @0x4
0x200a…2023 at0005 = ╱54╱T╱ // 0x200f @0x5
0x200a…2023 at0006 = ╱4f╱O╱ // 0x2010 @0x6
0x200a…2023 at0007 = ╱54╱T╱ // 0x2011 @0x7
0x200a…2023 at0008 = ╱ed╱(╱ // 0x2012 @0x8
0x200a…2023 at0009 = ╱31╱1╱ // 0x2013 @0x9
0x200a…2023 at000a = ╱f20100╱ // 0x2014 @0xa
0x200a…2023 at000d = ╱ee╱)╱ // 0x2017 @0xd
0x200a…2023 at000e = ╱f0╱ := ╱ // 0x2018 @0xe
0x200a…2023 at000f = ╱54╱T╱ // 0x2019 @0xf
0x200a…2023 at0010 = ╱4f╱O╱ // 0x201a @0x10
0x200a…2023 at0011 = ╱54╱T╱ // 0x201b @0x11
0x200a…2023 at0012 = ╱ed╱(╱ // 0x201c @0x12
0x200a…2023 at0013 = ╱32╱2╱ // 0x201d @0x13
0x200a…2023 at0014 = ╱f20200╱ // 0x201e @0x14
0x200a…2023 at0017 = ╱ee╱)╱ // 0x2021 @0x17
0x200a…2023 at0018 = EOL // 0x2022 @0x18
0x200a…2023 }
0x2023…2029 c41d 3150 ENDIF
0x2023…2029 LineComal80 {
0x2023…2029 ptr = 0xc41d // 0x2023 @0x0
0x2023…2029 lno = 0x0c4e // 0x2025 @0x2
0x2023…2029 at0004 = ╱9c╱ ENDIF ╱ // 0x2027 @0x4
0x2023…2029 at0005 = EOL // 0x2028 @0x5
0x2023…2029 }
0x2029…207c b66a 3160 PRINT TAB(18) ; "BALANCE" ; TAB(54) ; CHR$ (TOT(1),9,2) ; " " ; CHR$ (TOT(1),9,2)
0x2029…207c LineComal80 {
0x2029…207c ptr = 0xb66a // 0x2029 @0x0
0x2029…207c lno = 0x0c58 // 0x202b @0x2
0x2029…207c at0004 = ╱92╱ PRINT ╱ // 0x202d @0x4
0x2029…207c at0005 = ╱d2╱TAB╱ // 0x202e @0x5
0x2029…207c at0006 = ╱ed╱(╱ // 0x202f @0x6
0x2029…207c at0007 = ╱31╱1╱ // 0x2030 @0x7
0x2029…207c at0008 = ╱38╱8╱ // 0x2031 @0x8
0x2029…207c at0009 = ╱f21200╱ // 0x2032 @0x9
0x2029…207c at000c = ╱ee╱)╱ // 0x2035 @0xc
0x2029…207c at000d = ╱ea╱ ; ╱ // 0x2036 @0xd
0x2029…207c at000e = ╱22╱"╱ // 0x2037 @0xe
0x2029…207c at000f = ╱42╱B╱ // 0x2038 @0xf
0x2029…207c at0010 = ╱41╱A╱ // 0x2039 @0x10
0x2029…207c at0011 = ╱4c╱L╱ // 0x203a @0x11
0x2029…207c at0012 = ╱41╱A╱ // 0x203b @0x12
0x2029…207c at0013 = ╱4e╱N╱ // 0x203c @0x13
0x2029…207c at0014 = ╱43╱C╱ // 0x203d @0x14
0x2029…207c at0015 = ╱45╱E╱ // 0x203e @0x15
0x2029…207c at0016 = ╱22╱"╱ // 0x203f @0x16
0x2029…207c at0017 = ╱ea╱ ; ╱ // 0x2040 @0x17
0x2029…207c at0018 = ╱d2╱TAB╱ // 0x2041 @0x18
0x2029…207c at0019 = ╱ed╱(╱ // 0x2042 @0x19
0x2029…207c at001a = ╱35╱5╱ // 0x2043 @0x1a
0x2029…207c at001b = ╱34╱4╱ // 0x2044 @0x1b
0x2029…207c at001c = ╱f23600╱ // 0x2045 @0x1c
0x2029…207c at001f = ╱ee╱)╱ // 0x2048 @0x1f
0x2029…207c at0020 = ╱ea╱ ; ╱ // 0x2049 @0x20
0x2029…207c at0021 = ╱d0╱ CHR$ ╱ // 0x204a @0x21
0x2029…207c at0022 = ╱ed╱(╱ // 0x204b @0x22
0x2029…207c at0023 = ╱54╱T╱ // 0x204c @0x23
0x2029…207c at0024 = ╱4f╱O╱ // 0x204d @0x24
0x2029…207c at0025 = ╱54╱T╱ // 0x204e @0x25
0x2029…207c at0026 = ╱ed╱(╱ // 0x204f @0x26
0x2029…207c at0027 = ╱31╱1╱ // 0x2050 @0x27
0x2029…207c at0028 = ╱f20100╱ // 0x2051 @0x28
0x2029…207c at002b = ╱ee╱)╱ // 0x2054 @0x2b
0x2029…207c at002c = ╱ec╱,╱ // 0x2055 @0x2c
0x2029…207c at002d = ╱39╱9╱ // 0x2056 @0x2d
0x2029…207c at002e = ╱f20900╱ // 0x2057 @0x2e
0x2029…207c at0031 = ╱ec╱,╱ // 0x205a @0x31
0x2029…207c at0032 = ╱32╱2╱ // 0x205b @0x32
0x2029…207c at0033 = ╱f20200╱ // 0x205c @0x33
0x2029…207c at0036 = ╱ee╱)╱ // 0x205f @0x36
0x2029…207c at0037 = ╱ea╱ ; ╱ // 0x2060 @0x37
0x2029…207c at0038 = ╱22╱"╱ // 0x2061 @0x38
0x2029…207c at0039 = ╱20╱…╱ // 0x2062 @0x39
0x2029…207c at003a = ╱22╱"╱ // 0x2063 @0x3a
0x2029…207c at003b = ╱ea╱ ; ╱ // 0x2064 @0x3b
0x2029…207c at003c = ╱d0╱ CHR$ ╱ // 0x2065 @0x3c
0x2029…207c at003d = ╱ed╱(╱ // 0x2066 @0x3d
0x2029…207c at003e = ╱54╱T╱ // 0x2067 @0x3e
0x2029…207c at003f = ╱4f╱O╱ // 0x2068 @0x3f
0x2029…207c at0040 = ╱54╱T╱ // 0x2069 @0x40
0x2029…207c at0041 = ╱ed╱(╱ // 0x206a @0x41
0x2029…207c at0042 = ╱31╱1╱ // 0x206b @0x42
0x2029…207c at0043 = ╱f20100╱ // 0x206c @0x43
0x2029…207c at0046 = ╱ee╱)╱ // 0x206f @0x46
0x2029…207c at0047 = ╱ec╱,╱ // 0x2070 @0x47
0x2029…207c at0048 = ╱39╱9╱ // 0x2071 @0x48
0x2029…207c at0049 = ╱f20900╱ // 0x2072 @0x49
0x2029…207c at004c = ╱ec╱,╱ // 0x2075 @0x4c
0x2029…207c at004d = ╱32╱2╱ // 0x2076 @0x4d
0x2029…207c at004e = ╱f20200╱ // 0x2077 @0x4e
0x2029…207c at0051 = ╱ee╱)╱ // 0x207a @0x51
0x2029…207c at0052 = EOL // 0x207b @0x52
0x2029…207c }
0x207c…2090 (108,) b67e 3170 IF UT_WAY$ = "P" THEN
0x207c…2090 LineComal80 {
0x207c…2090 ptr = 0xb67e // 0x207c @0x0
0x207c…2090 lno = 0x0c62 // 0x207e @0x2
0x207c…2090 at0004 = ╱9b364f╱ IF ╱ // 0x2080 @0x4
0x207c…2090 at0007 = ╱55╱U╱ // 0x2083 @0x7
0x207c…2090 at0008 = ╱54╱T╱ // 0x2084 @0x8
0x207c…2090 at0009 = ╱5f╱_╱ // 0x2085 @0x9
0x207c…2090 at000a = ╱57╱W╱ // 0x2086 @0xa
0x207c…2090 at000b = ╱41╱A╱ // 0x2087 @0xb
0x207c…2090 at000c = ╱59╱Y╱ // 0x2088 @0xc
0x207c…2090 at000d = ╱ef╱$╱ // 0x2089 @0xd
0x207c…2090 at000e = ╱df╱ = ╱ // 0x208a @0xe
0x207c…2090 at000f = ╱22╱"╱ // 0x208b @0xf
0x207c…2090 at0010 = ╱50╱P╱ // 0x208c @0x10
0x207c…2090 at0011 = ╱22╱"╱ // 0x208d @0x11
0x207c…2090 at0012 = ╱b5╱ THEN ╱ // 0x208e @0x12
0x207c…2090 at0013 = EOL // 0x208f @0x13
0x207c…2090 }
0x2090…2096 b684 3180 PRINT
0x2090…2096 LineComal80 {
0x2090…2096 ptr = 0xb684 // 0x2090 @0x0
0x2090…2096 lno = 0x0c6c // 0x2092 @0x2
0x2090…2096 at0004 = ╱92╱ PRINT ╱ // 0x2094 @0x4
0x2090…2096 at0005 = EOL // 0x2095 @0x5
0x2090…2096 }
0x2096…209c b68a 3190 PRINT
0x2096…209c LineComal80 {
0x2096…209c ptr = 0xb68a // 0x2096 @0x0
0x2096…209c lno = 0x0c76 // 0x2098 @0x2
0x2096…209c at0004 = ╱92╱ PRINT ╱ // 0x209a @0x4
0x2096…209c at0005 = EOL // 0x209b @0x5
0x2096…209c }
0x209c…20a2 b690 3200 ENDIF
0x209c…20a2 LineComal80 {
0x209c…20a2 ptr = 0xb690 // 0x209c @0x0
0x209c…20a2 lno = 0x0c80 // 0x209e @0x2
0x209c…20a2 at0004 = ╱9c╱ ENDIF ╱ // 0x20a0 @0x4
0x209c…20a2 at0005 = EOL // 0x20a1 @0x5
0x209c…20a2 }
0x20a2…20ae b69c 3210 ENDPROC AFSLUT
0x20a2…20ae LineComal80 {
0x20a2…20ae ptr = 0xb69c // 0x20a2 @0x0
0x20a2…20ae lno = 0x0c8a // 0x20a4 @0x2
0x20a2…20ae at0004 = ╱9f╱ ENDPROC ╱ // 0x20a6 @0x4
0x20a2…20ae at0005 = ╱41╱A╱ // 0x20a7 @0x5
0x20a2…20ae at0006 = ╱46╱F╱ // 0x20a8 @0x6
0x20a2…20ae at0007 = ╱53╱S╱ // 0x20a9 @0x7
0x20a2…20ae at0008 = ╱4c╱L╱ // 0x20aa @0x8
0x20a2…20ae at0009 = ╱55╱U╱ // 0x20ab @0x9
0x20a2…20ae at000a = ╱54╱T╱ // 0x20ac @0xa
0x20a2…20ae at000b = EOL // 0x20ad @0xb
0x20a2…20ae }
0x20ae…20c8 b6b6 3220 PROC FIND_KTO( REF R_KTONR$)
0x20ae…20c8 LineComal80 {
0x20ae…20c8 ptr = 0xb6b6 // 0x20ae @0x0
0x20ae…20c8 lno = 0x0c94 // 0x20b0 @0x2
0x20ae…20c8 at0004 = ╱9e37╱ PROC ╱ // 0x20b2 @0x4
0x20ae…20c8 at0006 = ╱46╱F╱ // 0x20b4 @0x6
0x20ae…20c8 at0007 = ╱49╱I╱ // 0x20b5 @0x7
0x20ae…20c8 at0008 = ╱4e╱N╱ // 0x20b6 @0x8
0x20ae…20c8 at0009 = ╱44╱D╱ // 0x20b7 @0x9
0x20ae…20c8 at000a = ╱5f╱_╱ // 0x20b8 @0xa
0x20ae…20c8 at000b = ╱4b╱K╱ // 0x20b9 @0xb
0x20ae…20c8 at000c = ╱54╱T╱ // 0x20ba @0xc
0x20ae…20c8 at000d = ╱4f╱O╱ // 0x20bb @0xd
0x20ae…20c8 at000e = ╱ed╱(╱ // 0x20bc @0xe
0x20ae…20c8 at000f = ╱b6╱ REF ╱ // 0x20bd @0xf
0x20ae…20c8 at0010 = ╱52╱R╱ // 0x20be @0x10
0x20ae…20c8 at0011 = ╱5f╱_╱ // 0x20bf @0x11
0x20ae…20c8 at0012 = ╱4b╱K╱ // 0x20c0 @0x12
0x20ae…20c8 at0013 = ╱54╱T╱ // 0x20c1 @0x13
0x20ae…20c8 at0014 = ╱4f╱O╱ // 0x20c2 @0x14
0x20ae…20c8 at0015 = ╱4e╱N╱ // 0x20c3 @0x15
0x20ae…20c8 at0016 = ╱52╱R╱ // 0x20c4 @0x16
0x20ae…20c8 at0017 = ╱ef╱$╱ // 0x20c5 @0x17
0x20ae…20c8 at0018 = ╱ee╱)╱ // 0x20c6 @0x18
0x20ae…20c8 at0019 = EOL // 0x20c7 @0x19
0x20ae…20c8 }
0x20c8…20d6 b6c4 3230 LET OK := FALSE
0x20c8…20d6 LineComal80 {
0x20c8…20d6 ptr = 0xb6c4 // 0x20c8 @0x0
0x20c8…20d6 lno = 0x0c9e // 0x20ca @0x2
0x20c8…20d6 at0004 = ╱86╱ LET ╱ // 0x20cc @0x4
0x20c8…20d6 at0005 = ╱4f╱O╱ // 0x20cd @0x5
0x20c8…20d6 at0006 = ╱4b╱K╱ // 0x20ce @0x6
0x20c8…20d6 at0007 = ╱f0╱ := ╱ // 0x20cf @0x7
0x20c8…20d6 at0008 = ╱46╱F╱ // 0x20d0 @0x8
0x20c8…20d6 at0009 = ╱41╱A╱ // 0x20d1 @0x9
0x20c8…20d6 at000a = ╱4c╱L╱ // 0x20d2 @0xa
0x20c8…20d6 at000b = ╱53╱S╱ // 0x20d3 @0xb
0x20c8…20d6 at000c = ╱45╱E╱ // 0x20d4 @0xc
0x20c8…20d6 at000d = EOL // 0x20d5 @0xd
0x20c8…20d6 }
0x20d6…20fa b6e8 3240 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
0x20d6…20fa LineComal80 {
0x20d6…20fa ptr = 0xb6e8 // 0x20d6 @0x0
0x20d6…20fa lno = 0x0ca8 // 0x20d8 @0x2
0x20d6…20fa at0004 = ╱a9╱ GET ╱ // 0x20da @0x4
0x20d6…20fa at0005 = ╱4b╱K╱ // 0x20db @0x5
0x20d6…20fa at0006 = ╱54╱T╱ // 0x20dc @0x6
0x20d6…20fa at0007 = ╱4f╱O╱ // 0x20dd @0x7
0x20d6…20fa at0008 = ╱49╱I╱ // 0x20de @0x8
0x20d6…20fa at0009 = ╱44╱D╱ // 0x20df @0x9
0x20d6…20fa at000a = ╱58╱X╱ // 0x20e0 @0xa
0x20d6…20fa at000b = ╱ef╱$╱ // 0x20e1 @0xb
0x20d6…20fa at000c = ╱ec╱,╱ // 0x20e2 @0xc
0x20d6…20fa at000d = ╱31╱1╱ // 0x20e3 @0xd
0x20d6…20fa at000e = ╱f20100╱ // 0x20e4 @0xe
0x20d6…20fa at0011 = ╱f1╱ : ╱ // 0x20e7 @0x11
0x20d6…20fa at0012 = ╱49╱I╱ // 0x20e8 @0x12
0x20d6…20fa at0013 = ╱5f╱_╱ // 0x20e9 @0x13
0x20d6…20fa at0014 = ╱48╱H╱ // 0x20ea @0x14
0x20d6…20fa at0015 = ╱5c╱Ø╱ // 0x20eb @0x15
0x20d6…20fa at0016 = ╱4a╱J╱ // 0x20ec @0x16
0x20d6…20fa at0017 = ╱52╱R╱ // 0x20ed @0x17
0x20d6…20fa at0018 = ╱45╱E╱ // 0x20ee @0x18
0x20d6…20fa at0019 = ╱43╱C╱ // 0x20ef @0x19
0x20d6…20fa at001a = ╱ec╱,╱ // 0x20f0 @0x1a
0x20d6…20fa at001b = ╱49╱I╱ // 0x20f1 @0x1b
0x20d6…20fa at001c = ╱5f╱_╱ // 0x20f2 @0x1c
0x20d6…20fa at001d = ╱4d╱M╱ // 0x20f3 @0x1d
0x20d6…20fa at001e = ╱41╱A╱ // 0x20f4 @0x1e
0x20d6…20fa at001f = ╱58╱X╱ // 0x20f5 @0x1f
0x20d6…20fa at0020 = ╱52╱R╱ // 0x20f6 @0x20
0x20d6…20fa at0021 = ╱45╱E╱ // 0x20f7 @0x21
0x20d6…20fa at0022 = ╱43╱C╱ // 0x20f8 @0x22
0x20d6…20fa at0023 = EOL // 0x20f9 @0x23
0x20d6…20fa }
0x20fa…211f b70d 3250 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
0x20fa…211f LineComal80 {
0x20fa…211f ptr = 0xb70d // 0x20fa @0x0
0x20fa…211f lno = 0x0cb2 // 0x20fc @0x2
0x20fa…211f at0004 = ╱86╱ LET ╱ // 0x20fe @0x4
0x20fa…211f at0005 = ╱4c╱L╱ // 0x20ff @0x5
0x20fa…211f at0006 = ╱4f╱O╱ // 0x2100 @0x6
0x20fa…211f at0007 = ╱57╱W╱ // 0x2101 @0x7
0x20fa…211f at0008 = ╱f0╱ := ╱ // 0x2102 @0x8
0x20fa…211f at0009 = ╱31╱1╱ // 0x2103 @0x9
0x20fa…211f at000a = ╱f20100╱ // 0x2104 @0xa
0x20fa…211f at000d = ╱ea╱ ; ╱ // 0x2107 @0xd
0x20fa…211f at000e = ╱48╱H╱ // 0x2108 @0xe
0x20fa…211f at000f = ╱49╱I╱ // 0x2109 @0xf
0x20fa…211f at0010 = ╱47╱G╱ // 0x210a @0x10
0x20fa…211f at0011 = ╱48╱H╱ // 0x210b @0x11
0x20fa…211f at0012 = ╱f0╱ := ╱ // 0x210c @0x12
0x20fa…211f at0013 = ╱49╱I╱ // 0x210d @0x13
0x20fa…211f at0014 = ╱5f╱_╱ // 0x210e @0x14
0x20fa…211f at0015 = ╱48╱H╱ // 0x210f @0x15
0x20fa…211f at0016 = ╱5c╱Ø╱ // 0x2110 @0x16
0x20fa…211f at0017 = ╱4a╱J╱ // 0x2111 @0x17
0x20fa…211f at0018 = ╱52╱R╱ // 0x2112 @0x18
0x20fa…211f at0019 = ╱45╱E╱ // 0x2113 @0x19
0x20fa…211f at001a = ╱43╱C╱ // 0x2114 @0x1a
0x20fa…211f at001b = ╱ea╱ ; ╱ // 0x2115 @0x1b
0x20fa…211f at001c = ╱50╱P╱ // 0x2116 @0x1c
0x20fa…211f at001d = ╱4f╱O╱ // 0x2117 @0x1d
0x20fa…211f at001e = ╱53╱S╱ // 0x2118 @0x1e
0x20fa…211f at001f = ╱f0╱ := ╱ // 0x2119 @0x1f
0x20fa…211f at0020 = ╱32╱2╱ // 0x211a @0x20
0x20fa…211f at0021 = ╱f20200╱ // 0x211b @0x21
0x20fa…211f at0024 = EOL // 0x211e @0x24
0x20fa…211f }
0x211f…2130 b71e 3260 IF IGH > 1 THEN
0x211f…2130 LineComal80 {
0x211f…2130 ptr = 0xb71e // 0x211f @0x0
0x211f…2130 lno = 0x0cbc // 0x2121 @0x2
0x211f…2130 at0004 = ╱9b3848╱ IF ╱ // 0x2123 @0x4
0x211f…2130 at0007 = ╱49╱I╱ // 0x2126 @0x7
0x211f…2130 at0008 = ╱47╱G╱ // 0x2127 @0x8
0x211f…2130 at0009 = ╱48╱H╱ // 0x2128 @0x9
0x211f…2130 at000a = ╱e1╱ > ╱ // 0x2129 @0xa
0x211f…2130 at000b = ╱31╱1╱ // 0x212a @0xb
0x211f…2130 at000c = ╱f20100╱ // 0x212b @0xc
0x211f…2130 at000f = ╱b5╱ THEN ╱ // 0x212e @0xf
0x211f…2130 at0010 = EOL // 0x212f @0x10
0x211f…2130 }
0x2130…2137 b725 3270 REPEAT
0x2130…2137 LineComal80 {
0x2130…2137 ptr = 0xb725 // 0x2130 @0x0
0x2130…2137 lno = 0x0cc6 // 0x2132 @0x2
0x2130…2137 at0004 = ╱9739╱ REPEAT ╱ // 0x2134 @0x4
0x2130…2137 at0006 = EOL // 0x2136 @0x6
0x2130…2137 }
0x2137…2163 b751 3280 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x2137…2163 LineComal80 {
0x2137…2163 ptr = 0xb751 // 0x2137 @0x0
0x2137…2163 lno = 0x0cd0 // 0x2139 @0x2
0x2137…2163 at0004 = ╱86╱ LET ╱ // 0x213b @0x4
0x2137…2163 at0005 = ╱50╱P╱ // 0x213c @0x5
0x2137…2163 at0006 = ╱4f╱O╱ // 0x213d @0x6
0x2137…2163 at0007 = ╱53╱S╱ // 0x213e @0x7
0x2137…2163 at0008 = ╱f0╱ := ╱ // 0x213f @0x8
0x2137…2163 at0009 = ╱c6╱INT╱ // 0x2140 @0x9
0x2137…2163 at000a = ╱ed╱(╱ // 0x2141 @0xa
0x2137…2163 at000b = ╱ed╱(╱ // 0x2142 @0xb
0x2137…2163 at000c = ╱48╱H╱ // 0x2143 @0xc
0x2137…2163 at000d = ╱49╱I╱ // 0x2144 @0xd
0x2137…2163 at000e = ╱47╱G╱ // 0x2145 @0xe
0x2137…2163 at000f = ╱48╱H╱ // 0x2146 @0xf
0x2137…2163 at0010 = ╱e6╱ - ╱ // 0x2147 @0x10
0x2137…2163 at0011 = ╱4c╱L╱ // 0x2148 @0x11
0x2137…2163 at0012 = ╱4f╱O╱ // 0x2149 @0x12
0x2137…2163 at0013 = ╱57╱W╱ // 0x214a @0x13
0x2137…2163 at0014 = ╱ee╱)╱ // 0x214b @0x14
0x2137…2163 at0015 = ╱e8╱ / ╱ // 0x214c @0x15
0x2137…2163 at0016 = ╱32╱2╱ // 0x214d @0x16
0x2137…2163 at0017 = ╱f20200╱ // 0x214e @0x17
0x2137…2163 at001a = ╱e5╱ + ╱ // 0x2151 @0x1a
0x2137…2163 at001b = ╱2e╱.╱ // 0x2152 @0x1b
0x2137…2163 at001c = ╱35╱5╱ // 0x2153 @0x1c
0x2137…2163 at001d = ╱f88000000000000005╱ // 0x2154 @0x1d
0x2137…2163 at0026 = ╱ee╱)╱ // 0x215d @0x26
0x2137…2163 at0027 = ╱e5╱ + ╱ // 0x215e @0x27
0x2137…2163 at0028 = ╱4c╱L╱ // 0x215f @0x28
0x2137…2163 at0029 = ╱4f╱O╱ // 0x2160 @0x29
0x2137…2163 at002a = ╱57╱W╱ // 0x2161 @0x2a
0x2137…2163 at002b = EOL // 0x2162 @0x2b
0x2137…2163 }
0x2163…2181 (111,) b76f 3290 GET KTOIDX$,POS : KTONR$,RECNR
0x2163…2181 LineComal80 {
0x2163…2181 ptr = 0xb76f // 0x2163 @0x0
0x2163…2181 lno = 0x0cda // 0x2165 @0x2
0x2163…2181 at0004 = ╱a9╱ GET ╱ // 0x2167 @0x4
0x2163…2181 at0005 = ╱4b╱K╱ // 0x2168 @0x5
0x2163…2181 at0006 = ╱54╱T╱ // 0x2169 @0x6
0x2163…2181 at0007 = ╱4f╱O╱ // 0x216a @0x7
0x2163…2181 at0008 = ╱49╱I╱ // 0x216b @0x8
0x2163…2181 at0009 = ╱44╱D╱ // 0x216c @0x9
0x2163…2181 at000a = ╱58╱X╱ // 0x216d @0xa
0x2163…2181 at000b = ╱ef╱$╱ // 0x216e @0xb
0x2163…2181 at000c = ╱ec╱,╱ // 0x216f @0xc
0x2163…2181 at000d = ╱50╱P╱ // 0x2170 @0xd
0x2163…2181 at000e = ╱4f╱O╱ // 0x2171 @0xe
0x2163…2181 at000f = ╱53╱S╱ // 0x2172 @0xf
0x2163…2181 at0010 = ╱f1╱ : ╱ // 0x2173 @0x10
0x2163…2181 at0011 = ╱4b╱K╱ // 0x2174 @0x11
0x2163…2181 at0012 = ╱54╱T╱ // 0x2175 @0x12
0x2163…2181 at0013 = ╱4f╱O╱ // 0x2176 @0x13
0x2163…2181 at0014 = ╱4e╱N╱ // 0x2177 @0x14
0x2163…2181 at0015 = ╱52╱R╱ // 0x2178 @0x15
0x2163…2181 at0016 = ╱ef╱$╱ // 0x2179 @0x16
0x2163…2181 at0017 = ╱ec╱,╱ // 0x217a @0x17
0x2163…2181 at0018 = ╱52╱R╱ // 0x217b @0x18
0x2163…2181 at0019 = ╱45╱E╱ // 0x217c @0x19
0x2163…2181 at001a = ╱43╱C╱ // 0x217d @0x1a
0x2163…2181 at001b = ╱4e╱N╱ // 0x217e @0x1b
0x2163…2181 at001c = ╱52╱R╱ // 0x217f @0x1c
0x2163…2181 at001d = EOL // 0x2180 @0x1d
0x2163…2181 }
0x2181…2198 b786 3300 IF TONR$ > R_KTONR$ THEN
0x2181…2198 LineComal80 {
0x2181…2198 ptr = 0xb786 // 0x2181 @0x0
0x2181…2198 lno = 0x0ce4 // 0x2183 @0x2
0x2181…2198 at0004 = ╱9b3a4b╱ IF ╱ // 0x2185 @0x4
0x2181…2198 at0007 = ╱54╱T╱ // 0x2188 @0x7
0x2181…2198 at0008 = ╱4f╱O╱ // 0x2189 @0x8
0x2181…2198 at0009 = ╱4e╱N╱ // 0x218a @0x9
0x2181…2198 at000a = ╱52╱R╱ // 0x218b @0xa
0x2181…2198 at000b = ╱ef╱$╱ // 0x218c @0xb
0x2181…2198 at000c = ╱e1╱ > ╱ // 0x218d @0xc
0x2181…2198 at000d = ╱52╱R╱ // 0x218e @0xd
0x2181…2198 at000e = ╱5f╱_╱ // 0x218f @0xe
0x2181…2198 at000f = ╱4b╱K╱ // 0x2190 @0xf
0x2181…2198 at0010 = ╱54╱T╱ // 0x2191 @0x10
0x2181…2198 at0011 = ╱4f╱O╱ // 0x2192 @0x11
0x2181…2198 at0012 = ╱4e╱N╱ // 0x2193 @0x12
0x2181…2198 at0013 = ╱52╱R╱ // 0x2194 @0x13
0x2181…2198 at0014 = ╱ef╱$╱ // 0x2195 @0x14
0x2181…2198 at0015 = ╱b5╱ THEN ╱ // 0x2196 @0x15
0x2181…2198 at0016 = EOL // 0x2197 @0x16
0x2181…2198 }
0x2198…21a6 b794 3270 LET HIGH := POS
0x2198…21a6 LineComal80 {
0x2198…21a6 ptr = 0xb794 // 0x2198 @0x0
0x2198…21a6 lno = 0x0cc6 // 0x219a @0x2
0x2198…21a6 at0004 = ╱86╱ LET ╱ // 0x219c @0x4
0x2198…21a6 at0005 = ╱48╱H╱ // 0x219d @0x5
0x2198…21a6 at0006 = ╱49╱I╱ // 0x219e @0x6
0x2198…21a6 at0007 = ╱47╱G╱ // 0x219f @0x7
0x2198…21a6 at0008 = ╱48╱H╱ // 0x21a0 @0x8
0x2198…21a6 at0009 = ╱f0╱ := ╱ // 0x21a1 @0x9
0x2198…21a6 at000a = ╱50╱P╱ // 0x21a2 @0xa
0x2198…21a6 at000b = ╱4f╱O╱ // 0x21a3 @0xb
0x2198…21a6 at000c = ╱53╱S╱ // 0x21a4 @0xc
0x2198…21a6 at000d = EOL // 0x21a5 @0xd
0x2198…21a6 }
0x21a6…21ad b79b 3280 ELSE
0x21a6…21ad LineComal80 {
0x21a6…21ad ptr = 0xb79b // 0x21a6 @0x0
0x21a6…21ad lno = 0x0cd0 // 0x21a8 @0x2
0x21a6…21ad at0004 = ╱9a3a╱ ELSE ╱ // 0x21aa @0x4
0x21a6…21ad at0006 = EOL // 0x21ac @0x6
0x21a6…21ad }
0x21ad…21c4 b7b2 3290 IF TONR$ < R_KTONR$ THEN
0x21ad…21c4 LineComal80 {
0x21ad…21c4 ptr = 0xb7b2 // 0x21ad @0x0
0x21ad…21c4 lno = 0x0cda // 0x21af @0x2
0x21ad…21c4 at0004 = ╱9b3b4b╱ IF ╱ // 0x21b1 @0x4
0x21ad…21c4 at0007 = ╱54╱T╱ // 0x21b4 @0x7
0x21ad…21c4 at0008 = ╱4f╱O╱ // 0x21b5 @0x8
0x21ad…21c4 at0009 = ╱4e╱N╱ // 0x21b6 @0x9
0x21ad…21c4 at000a = ╱52╱R╱ // 0x21b7 @0xa
0x21ad…21c4 at000b = ╱ef╱$╱ // 0x21b8 @0xb
0x21ad…21c4 at000c = ╱e0╱ < ╱ // 0x21b9 @0xc
0x21ad…21c4 at000d = ╱52╱R╱ // 0x21ba @0xd
0x21ad…21c4 at000e = ╱5f╱_╱ // 0x21bb @0xe
0x21ad…21c4 at000f = ╱4b╱K╱ // 0x21bc @0xf
0x21ad…21c4 at0010 = ╱54╱T╱ // 0x21bd @0x10
0x21ad…21c4 at0011 = ╱4f╱O╱ // 0x21be @0x11
0x21ad…21c4 at0012 = ╱4e╱N╱ // 0x21bf @0x12
0x21ad…21c4 at0013 = ╱52╱R╱ // 0x21c0 @0x13
0x21ad…21c4 at0014 = ╱ef╱$╱ // 0x21c1 @0x14
0x21ad…21c4 at0015 = ╱b5╱ THEN ╱ // 0x21c2 @0x15
0x21ad…21c4 at0016 = EOL // 0x21c3 @0x16
0x21ad…21c4 }
0x21c4…21d1 b7bf 3300 LET LOW := POS
0x21c4…21d1 LineComal80 {
0x21c4…21d1 ptr = 0xb7bf // 0x21c4 @0x0
0x21c4…21d1 lno = 0x0ce4 // 0x21c6 @0x2
0x21c4…21d1 at0004 = ╱86╱ LET ╱ // 0x21c8 @0x4
0x21c4…21d1 at0005 = ╱4c╱L╱ // 0x21c9 @0x5
0x21c4…21d1 at0006 = ╱4f╱O╱ // 0x21ca @0x6
0x21c4…21d1 at0007 = ╱57╱W╱ // 0x21cb @0x7
0x21c4…21d1 at0008 = ╱f0╱ := ╱ // 0x21cc @0x8
0x21c4…21d1 at0009 = ╱50╱P╱ // 0x21cd @0x9
0x21c4…21d1 at000a = ╱4f╱O╱ // 0x21ce @0xa
0x21c4…21d1 at000b = ╱53╱S╱ // 0x21cf @0xb
0x21c4…21d1 at000c = EOL // 0x21d0 @0xc
0x21c4…21d1 }
0x21d1…21d7 b7c5 3310 ENDIF
0x21d1…21d7 LineComal80 {
0x21d1…21d7 ptr = 0xb7c5 // 0x21d1 @0x0
0x21d1…21d7 lno = 0x0cee // 0x21d3 @0x2
0x21d1…21d7 at0004 = ╱9c╱ ENDIF ╱ // 0x21d5 @0x4
0x21d1…21d7 at0005 = EOL // 0x21d6 @0x5
0x21d1…21d7 }
0x21d7…21dd b7cb 3320 ENDIF
0x21d7…21dd LineComal80 {
0x21d7…21dd ptr = 0xb7cb // 0x21d7 @0x0
0x21d7…21dd lno = 0x0cf8 // 0x21d9 @0x2
0x21d7…21dd at0004 = ╱9c╱ ENDIF ╱ // 0x21db @0x4
0x21d7…21dd at0005 = EOL // 0x21dc @0x5
0x21d7…21dd }
0x21dd…2200 b7ee 3330 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
0x21dd…2200 LineComal80 {
0x21dd…2200 ptr = 0xb7ee // 0x21dd @0x0
0x21dd…2200 lno = 0x0d02 // 0x21df @0x2
0x21dd…2200 at0004 = ╱98╱ UNTIL ╱ // 0x21e1 @0x4
0x21dd…2200 at0005 = ╱48╱H╱ // 0x21e2 @0x5
0x21dd…2200 at0006 = ╱49╱I╱ // 0x21e3 @0x6
0x21dd…2200 at0007 = ╱47╱G╱ // 0x21e4 @0x7
0x21dd…2200 at0008 = ╱48╱H╱ // 0x21e5 @0x8
0x21dd…2200 at0009 = ╱e6╱ - ╱ // 0x21e6 @0x9
0x21dd…2200 at000a = ╱4c╱L╱ // 0x21e7 @0xa
0x21dd…2200 at000b = ╱4f╱O╱ // 0x21e8 @0xb
0x21dd…2200 at000c = ╱57╱W╱ // 0x21e9 @0xc
0x21dd…2200 at000d = ╱e2╱ =< ╱ // 0x21ea @0xd
0x21dd…2200 at000e = ╱31╱1╱ // 0x21eb @0xe
0x21dd…2200 at000f = ╱f20100╱ // 0x21ec @0xf
0x21dd…2200 at0012 = ╱d8╱ OR ╱ // 0x21ef @0x12
0x21dd…2200 at0013 = ╱52╱R╱ // 0x21f0 @0x13
0x21dd…2200 at0014 = ╱5f╱_╱ // 0x21f1 @0x14
0x21dd…2200 at0015 = ╱4b╱K╱ // 0x21f2 @0x15
0x21dd…2200 at0016 = ╱54╱T╱ // 0x21f3 @0x16
0x21dd…2200 at0017 = ╱4f╱O╱ // 0x21f4 @0x17
0x21dd…2200 at0018 = ╱4e╱N╱ // 0x21f5 @0x18
0x21dd…2200 at0019 = ╱52╱R╱ // 0x21f6 @0x19
0x21dd…2200 at001a = ╱ef╱$╱ // 0x21f7 @0x1a
0x21dd…2200 at001b = ╱df╱ = ╱ // 0x21f8 @0x1b
0x21dd…2200 at001c = ╱4b╱K╱ // 0x21f9 @0x1c
0x21dd…2200 at001d = ╱54╱T╱ // 0x21fa @0x1d
0x21dd…2200 at001e = ╱4f╱O╱ // 0x21fb @0x1e
0x21dd…2200 at001f = ╱4e╱N╱ // 0x21fc @0x1f
0x21dd…2200 at0020 = ╱52╱R╱ // 0x21fd @0x20
0x21dd…2200 at0021 = ╱ef╱$╱ // 0x21fe @0x21
0x21dd…2200 at0022 = EOL // 0x21ff @0x22
0x21dd…2200 }
0x2200…222c b81a 3340 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x2200…222c LineComal80 {
0x2200…222c ptr = 0xb81a // 0x2200 @0x0
0x2200…222c lno = 0x0d0c // 0x2202 @0x2
0x2200…222c at0004 = ╱86╱ LET ╱ // 0x2204 @0x4
0x2200…222c at0005 = ╱50╱P╱ // 0x2205 @0x5
0x2200…222c at0006 = ╱4f╱O╱ // 0x2206 @0x6
0x2200…222c at0007 = ╱53╱S╱ // 0x2207 @0x7
0x2200…222c at0008 = ╱f0╱ := ╱ // 0x2208 @0x8
0x2200…222c at0009 = ╱c6╱INT╱ // 0x2209 @0x9
0x2200…222c at000a = ╱ed╱(╱ // 0x220a @0xa
0x2200…222c at000b = ╱ed╱(╱ // 0x220b @0xb
0x2200…222c at000c = ╱48╱H╱ // 0x220c @0xc
0x2200…222c at000d = ╱49╱I╱ // 0x220d @0xd
0x2200…222c at000e = ╱47╱G╱ // 0x220e @0xe
0x2200…222c at000f = ╱48╱H╱ // 0x220f @0xf
0x2200…222c at0010 = ╱e6╱ - ╱ // 0x2210 @0x10
0x2200…222c at0011 = ╱4c╱L╱ // 0x2211 @0x11
0x2200…222c at0012 = ╱4f╱O╱ // 0x2212 @0x12
0x2200…222c at0013 = ╱57╱W╱ // 0x2213 @0x13
0x2200…222c at0014 = ╱ee╱)╱ // 0x2214 @0x14
0x2200…222c at0015 = ╱e8╱ / ╱ // 0x2215 @0x15
0x2200…222c at0016 = ╱32╱2╱ // 0x2216 @0x16
0x2200…222c at0017 = ╱f20200╱ // 0x2217 @0x17
0x2200…222c at001a = ╱e5╱ + ╱ // 0x221a @0x1a
0x2200…222c at001b = ╱2e╱.╱ // 0x221b @0x1b
0x2200…222c at001c = ╱35╱5╱ // 0x221c @0x1c
0x2200…222c at001d = ╱f88000000000000005╱ // 0x221d @0x1d
0x2200…222c at0026 = ╱ee╱)╱ // 0x2226 @0x26
0x2200…222c at0027 = ╱e5╱ + ╱ // 0x2227 @0x27
0x2200…222c at0028 = ╱4c╱L╱ // 0x2228 @0x28
0x2200…222c at0029 = ╱4f╱O╱ // 0x2229 @0x29
0x2200…222c at002a = ╱57╱W╱ // 0x222a @0x2a
0x2200…222c at002b = EOL // 0x222b @0x2b
0x2200…222c }
0x222c…224a b838 3350 GET KTOIDX$,POS : KTONR$,RECNR
0x222c…224a LineComal80 {
0x222c…224a ptr = 0xb838 // 0x222c @0x0
0x222c…224a lno = 0x0d16 // 0x222e @0x2
0x222c…224a at0004 = ╱a9╱ GET ╱ // 0x2230 @0x4
0x222c…224a at0005 = ╱4b╱K╱ // 0x2231 @0x5
0x222c…224a at0006 = ╱54╱T╱ // 0x2232 @0x6
0x222c…224a at0007 = ╱4f╱O╱ // 0x2233 @0x7
0x222c…224a at0008 = ╱49╱I╱ // 0x2234 @0x8
0x222c…224a at0009 = ╱44╱D╱ // 0x2235 @0x9
0x222c…224a at000a = ╱58╱X╱ // 0x2236 @0xa
0x222c…224a at000b = ╱ef╱$╱ // 0x2237 @0xb
0x222c…224a at000c = ╱ec╱,╱ // 0x2238 @0xc
0x222c…224a at000d = ╱50╱P╱ // 0x2239 @0xd
0x222c…224a at000e = ╱4f╱O╱ // 0x223a @0xe
0x222c…224a at000f = ╱53╱S╱ // 0x223b @0xf
0x222c…224a at0010 = ╱f1╱ : ╱ // 0x223c @0x10
0x222c…224a at0011 = ╱4b╱K╱ // 0x223d @0x11
0x222c…224a at0012 = ╱54╱T╱ // 0x223e @0x12
0x222c…224a at0013 = ╱4f╱O╱ // 0x223f @0x13
0x222c…224a at0014 = ╱4e╱N╱ // 0x2240 @0x14
0x222c…224a at0015 = ╱52╱R╱ // 0x2241 @0x15
0x222c…224a at0016 = ╱ef╱$╱ // 0x2242 @0x16
0x222c…224a at0017 = ╱ec╱,╱ // 0x2243 @0x17
0x222c…224a at0018 = ╱52╱R╱ // 0x2244 @0x18
0x222c…224a at0019 = ╱45╱E╱ // 0x2245 @0x19
0x222c…224a at001a = ╱43╱C╱ // 0x2246 @0x1a
0x222c…224a at001b = ╱4e╱N╱ // 0x2247 @0x1b
0x222c…224a at001c = ╱52╱R╱ // 0x2248 @0x1c
0x222c…224a at001d = EOL // 0x2249 @0x1d
0x222c…224a }
0x224a…2269 (114,) b857 3360 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
0x224a…2269 LineComal80 {
0x224a…2269 ptr = 0xb857 // 0x224a @0x0
0x224a…2269 lno = 0x0d20 // 0x224c @0x2
0x224a…2269 at0004 = ╱8200╱ IF ╱ // 0x224e @0x4
0x224a…2269 at0006 = ╱4b╱K╱ // 0x2250 @0x6
0x224a…2269 at0007 = ╱54╱T╱ // 0x2251 @0x7
0x224a…2269 at0008 = ╱4f╱O╱ // 0x2252 @0x8
0x224a…2269 at0009 = ╱4e╱N╱ // 0x2253 @0x9
0x224a…2269 at000a = ╱52╱R╱ // 0x2254 @0xa
0x224a…2269 at000b = ╱ef╱$╱ // 0x2255 @0xb
0x224a…2269 at000c = ╱df╱ = ╱ // 0x2256 @0xc
0x224a…2269 at000d = ╱52╱R╱ // 0x2257 @0xd
0x224a…2269 at000e = ╱5f╱_╱ // 0x2258 @0xe
0x224a…2269 at000f = ╱4b╱K╱ // 0x2259 @0xf
0x224a…2269 at0010 = ╱54╱T╱ // 0x225a @0x10
0x224a…2269 at0011 = ╱4f╱O╱ // 0x225b @0x11
0x224a…2269 at0012 = ╱4e╱N╱ // 0x225c @0x12
0x224a…2269 at0013 = ╱52╱R╱ // 0x225d @0x13
0x224a…2269 at0014 = ╱ef╱$╱ // 0x225e @0x14
0x224a…2269 at0015 = ╱b5╱ THEN ╱ // 0x225f @0x15
0x224a…2269 at0016 = ╱86╱ LET ╱ // 0x2260 @0x16
0x224a…2269 at0017 = ╱4f╱O╱ // 0x2261 @0x17
0x224a…2269 at0018 = ╱4b╱K╱ // 0x2262 @0x18
0x224a…2269 at0019 = ╱f0╱ := ╱ // 0x2263 @0x19
0x224a…2269 at001a = ╱54╱T╱ // 0x2264 @0x1a
0x224a…2269 at001b = ╱52╱R╱ // 0x2265 @0x1b
0x224a…2269 at001c = ╱55╱U╱ // 0x2266 @0x1c
0x224a…2269 at001d = ╱45╱E╱ // 0x2267 @0x1d
0x224a…2269 at001e = EOL // 0x2268 @0x1e
0x224a…2269 }
0x2269…226f b85d 3370 ENDIF
0x2269…226f LineComal80 {
0x2269…226f ptr = 0xb85d // 0x2269 @0x0
0x2269…226f lno = 0x0d2a // 0x226b @0x2
0x2269…226f at0004 = ╱9c╱ ENDIF ╱ // 0x226d @0x4
0x2269…226f at0005 = EOL // 0x226e @0x5
0x2269…226f }
0x226f…2281 b86f 3380 LET FIND_KTO := POS
0x226f…2281 LineComal80 {
0x226f…2281 ptr = 0xb86f // 0x226f @0x0
0x226f…2281 lno = 0x0d34 // 0x2271 @0x2
0x226f…2281 at0004 = ╱86╱ LET ╱ // 0x2273 @0x4
0x226f…2281 at0005 = ╱46╱F╱ // 0x2274 @0x5
0x226f…2281 at0006 = ╱49╱I╱ // 0x2275 @0x6
0x226f…2281 at0007 = ╱4e╱N╱ // 0x2276 @0x7
0x226f…2281 at0008 = ╱44╱D╱ // 0x2277 @0x8
0x226f…2281 at0009 = ╱5f╱_╱ // 0x2278 @0x9
0x226f…2281 at000a = ╱4b╱K╱ // 0x2279 @0xa
0x226f…2281 at000b = ╱54╱T╱ // 0x227a @0xb
0x226f…2281 at000c = ╱4f╱O╱ // 0x227b @0xc
0x226f…2281 at000d = ╱f0╱ := ╱ // 0x227c @0xd
0x226f…2281 at000e = ╱50╱P╱ // 0x227d @0xe
0x226f…2281 at000f = ╱4f╱O╱ // 0x227e @0xf
0x226f…2281 at0010 = ╱53╱S╱ // 0x227f @0x10
0x226f…2281 at0011 = EOL // 0x2280 @0x11
0x226f…2281 }
0x2281…228f b87d 3390 ENDPROC FIND_KTO
0x2281…228f LineComal80 {
0x2281…228f ptr = 0xb87d // 0x2281 @0x0
0x2281…228f lno = 0x0d3e // 0x2283 @0x2
0x2281…228f at0004 = ╱9f╱ ENDPROC ╱ // 0x2285 @0x4
0x2281…228f at0005 = ╱46╱F╱ // 0x2286 @0x5
0x2281…228f at0006 = ╱49╱I╱ // 0x2287 @0x6
0x2281…228f at0007 = ╱4e╱N╱ // 0x2288 @0x7
0x2281…228f at0008 = ╱44╱D╱ // 0x2289 @0x8
0x2281…228f at0009 = ╱5f╱_╱ // 0x228a @0x9
0x2281…228f at000a = ╱4b╱K╱ // 0x228b @0xa
0x2281…228f at000b = ╱54╱T╱ // 0x228c @0xb
0x2281…228f at000c = ╱4f╱O╱ // 0x228d @0xc
0x2281…228f at000d = EOL // 0x228e @0xd
0x2281…228f }
0x228f…2295 b883 3400 //
0x228f…2295 LineComal80 {
0x228f…2295 ptr = 0xb883 // 0x228f @0x0
0x228f…2295 lno = 0x0d48 // 0x2291 @0x2
0x228f…2295 at0004 = ╱89╱ // ╱ // 0x2293 @0x4
0x228f…2295 at0005 = EOL // 0x2294 @0x5
0x228f…2295 }
0x2295…22c8 b8b6 3410 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
0x2295…22c8 LineComal80 {
0x2295…22c8 ptr = 0xb8b6 // 0x2295 @0x0
0x2295…22c8 lno = 0x0d52 // 0x2297 @0x2
0x2295…22c8 at0004 = ╱9e3c╱ PROC ╱ // 0x2299 @0x4
0x2295…22c8 at0006 = ╱50╱P╱ // 0x229b @0x6
0x2295…22c8 at0007 = ╱52╱R╱ // 0x229c @0x7
0x2295…22c8 at0008 = ╱49╱I╱ // 0x229d @0x8
0x2295…22c8 at0009 = ╱4e╱N╱ // 0x229e @0x9
0x2295…22c8 at000a = ╱54╱T╱ // 0x229f @0xa
0x2295…22c8 at000b = ╱52╱R╱ // 0x22a0 @0xb
0x2295…22c8 at000c = ╱45╱E╱ // 0x22a1 @0xc
0x2295…22c8 at000d = ╱53╱S╱ // 0x22a2 @0xd
0x2295…22c8 at000e = ╱ed╱(╱ // 0x22a3 @0xe
0x2295…22c8 at000f = ╱50╱P╱ // 0x22a4 @0xf
0x2295…22c8 at0010 = ╱41╱A╱ // 0x22a5 @0x10
0x2295…22c8 at0011 = ╱47╱G╱ // 0x22a6 @0x11
0x2295…22c8 at0012 = ╱45╱E╱ // 0x22a7 @0x12
0x2295…22c8 at0013 = ╱54╱T╱ // 0x22a8 @0x13
0x2295…22c8 at0014 = ╱59╱Y╱ // 0x22a9 @0x14
0x2295…22c8 at0015 = ╱50╱P╱ // 0x22aa @0x15
0x2295…22c8 at0016 = ╱45╱E╱ // 0x22ab @0x16
0x2295…22c8 at0017 = ╱ef╱$╱ // 0x22ac @0x17
0x2295…22c8 at0018 = ╱ec╱,╱ // 0x22ad @0x18
0x2295…22c8 at0019 = ╱4c╱L╱ // 0x22ae @0x19
0x2295…22c8 at001a = ╱49╱I╱ // 0x22af @0x1a
0x2295…22c8 at001b = ╱4e╱N╱ // 0x22b0 @0x1b
0x2295…22c8 at001c = ╱45╱E╱ // 0x22b1 @0x1c
0x2295…22c8 at001d = ╱ee╱)╱ // 0x22b2 @0x1d
0x2295…22c8 at001e = ╱89╱ // ╱ // 0x22b3 @0x1e
0x2295…22c8 at001f = ╱50╱P╱ // 0x22b4 @0x1f
0x2295…22c8 at0020 = ╱52╱R╱ // 0x22b5 @0x20
0x2295…22c8 at0021 = ╱49╱I╱ // 0x22b6 @0x21
0x2295…22c8 at0022 = ╱4e╱N╱ // 0x22b7 @0x22
0x2295…22c8 at0023 = ╱54╱T╱ // 0x22b8 @0x23
0x2295…22c8 at0024 = ╱45╱E╱ // 0x22b9 @0x24
0x2295…22c8 at0025 = ╱52╱R╱ // 0x22ba @0x25
0x2295…22c8 at0026 = ╱20╱…╱ // 0x22bb @0x26
0x2295…22c8 at0027 = ╱52╱R╱ // 0x22bc @0x27
0x2295…22c8 at0028 = ╱45╱E╱ // 0x22bd @0x28
0x2295…22c8 at0029 = ╱53╱S╱ // 0x22be @0x29
0x2295…22c8 at002a = ╱45╱E╱ // 0x22bf @0x2a
0x2295…22c8 at002b = ╱52╱R╱ // 0x22c0 @0x2b
0x2295…22c8 at002c = ╱56╱V╱ // 0x22c1 @0x2c
0x2295…22c8 at002d = ╱41╱A╱ // 0x22c2 @0x2d
0x2295…22c8 at002e = ╱54╱T╱ // 0x22c3 @0x2e
0x2295…22c8 at002f = ╱49╱I╱ // 0x22c4 @0x2f
0x2295…22c8 at0030 = ╱4f╱O╱ // 0x22c5 @0x30
0x2295…22c8 at0031 = ╱4e╱N╱ // 0x22c6 @0x31
0x2295…22c8 at0032 = EOL // 0x22c7 @0x32
0x2295…22c8 }
0x22c8…22e0 b8ce 3420 LET PRTNR$ := "1" ; OK := TRUE
0x22c8…22e0 LineComal80 {
0x22c8…22e0 ptr = 0xb8ce // 0x22c8 @0x0
0x22c8…22e0 lno = 0x0d5c // 0x22ca @0x2
0x22c8…22e0 at0004 = ╱86╱ LET ╱ // 0x22cc @0x4
0x22c8…22e0 at0005 = ╱50╱P╱ // 0x22cd @0x5
0x22c8…22e0 at0006 = ╱52╱R╱ // 0x22ce @0x6
0x22c8…22e0 at0007 = ╱54╱T╱ // 0x22cf @0x7
0x22c8…22e0 at0008 = ╱4e╱N╱ // 0x22d0 @0x8
0x22c8…22e0 at0009 = ╱52╱R╱ // 0x22d1 @0x9
0x22c8…22e0 at000a = ╱ef╱$╱ // 0x22d2 @0xa
0x22c8…22e0 at000b = ╱f0╱ := ╱ // 0x22d3 @0xb
0x22c8…22e0 at000c = ╱22╱"╱ // 0x22d4 @0xc
0x22c8…22e0 at000d = ╱31╱1╱ // 0x22d5 @0xd
0x22c8…22e0 at000e = ╱22╱"╱ // 0x22d6 @0xe
0x22c8…22e0 at000f = ╱ea╱ ; ╱ // 0x22d7 @0xf
0x22c8…22e0 at0010 = ╱4f╱O╱ // 0x22d8 @0x10
0x22c8…22e0 at0011 = ╱4b╱K╱ // 0x22d9 @0x11
0x22c8…22e0 at0012 = ╱f0╱ := ╱ // 0x22da @0x12
0x22c8…22e0 at0013 = ╱54╱T╱ // 0x22db @0x13
0x22c8…22e0 at0014 = ╱52╱R╱ // 0x22dc @0x14
0x22c8…22e0 at0015 = ╱55╱U╱ // 0x22dd @0x15
0x22c8…22e0 at0016 = ╱45╱E╱ // 0x22de @0x16
0x22c8…22e0 at0017 = EOL // 0x22df @0x17
0x22c8…22e0 }
0x22e0…22e7 b8d5 3430 REPEAT
0x22e0…22e7 LineComal80 {
0x22e0…22e7 ptr = 0xb8d5 // 0x22e0 @0x0
0x22e0…22e7 lno = 0x0d66 // 0x22e2 @0x2
0x22e0…22e7 at0004 = ╱973d╱ REPEAT ╱ // 0x22e4 @0x4
0x22e0…22e7 at0006 = EOL // 0x22e6 @0x6
0x22e0…22e7 }
0x22e7…22f7 b8e5 3440 CURSOR 15,LINE
0x22e7…22f7 LineComal80 {
0x22e7…22f7 ptr = 0xb8e5 // 0x22e7 @0x0
0x22e7…22f7 lno = 0x0d70 // 0x22e9 @0x2
0x22e7…22f7 at0004 = ╱a1╱ CURSOR ╱ // 0x22eb @0x4
0x22e7…22f7 at0005 = ╱31╱1╱ // 0x22ec @0x5
0x22e7…22f7 at0006 = ╱35╱5╱ // 0x22ed @0x6
0x22e7…22f7 at0007 = ╱f20f00╱ // 0x22ee @0x7
0x22e7…22f7 at000a = ╱ec╱,╱ // 0x22f1 @0xa
0x22e7…22f7 at000b = ╱4c╱L╱ // 0x22f2 @0xb
0x22e7…22f7 at000c = ╱49╱I╱ // 0x22f3 @0xc
0x22e7…22f7 at000d = ╱4e╱N╱ // 0x22f4 @0xd
0x22e7…22f7 at000e = ╱45╱E╱ // 0x22f5 @0xe
0x22e7…22f7 at000f = EOL // 0x22f6 @0xf
0x22e7…22f7 }
0x22f7…2330 b91e 3450 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
0x22f7…2330 LineComal80 {
0x22f7…2330 ptr = 0xb91e // 0x22f7 @0x0
0x22f7…2330 lno = 0x0d7a // 0x22f9 @0x2
0x22f7…2330 at0004 = ╱b1╱ EDIT ╱ // 0x22fb @0x4
0x22f7…2330 at0005 = ╱22╱"╱ // 0x22fc @0x5
0x22f7…2330 at0006 = ╱3c╱<╱ // 0x22fd @0x6
0x22f7…2330 at0007 = ╱5a╱Z╱ // 0x22fe @0x7
0x22f7…2330 at0008 = ╱3e╱>╱ // 0x22ff @0x8
0x22f7…2330 at0009 = ╱55╱U╱ // 0x2300 @0x9
0x22f7…2330 at000a = ╱64╱d╱ // 0x2301 @0xa
0x22f7…2330 at000b = ╱73╱s╱ // 0x2302 @0xb
0x22f7…2330 at000c = ╱6b╱k╱ // 0x2303 @0xc
0x22f7…2330 at000d = ╱72╱r╱ // 0x2304 @0xd
0x22f7…2330 at000e = ╱69╱i╱ // 0x2305 @0xe
0x22f7…2330 at000f = ╱76╱v╱ // 0x2306 @0xf
0x22f7…2330 at0010 = ╱6e╱n╱ // 0x2307 @0x10
0x22f7…2330 at0011 = ╱69╱i╱ // 0x2308 @0x11
0x22f7…2330 at0012 = ╱6e╱n╱ // 0x2309 @0x12
0x22f7…2330 at0013 = ╱67╱g╱ // 0x230a @0x13
0x22f7…2330 at0014 = ╱20╱…╱ // 0x230b @0x14
0x22f7…2330 at0015 = ╱70╱p╱ // 0x230c @0x15
0x22f7…2330 at0016 = ╱7d╱å╱ // 0x230d @0x16
0x22f7…2330 at0017 = ╱20╱…╱ // 0x230e @0x17
0x22f7…2330 at0018 = ╱70╱p╱ // 0x230f @0x18
0x22f7…2330 at0019 = ╱72╱r╱ // 0x2310 @0x19
0x22f7…2330 at001a = ╱69╱i╱ // 0x2311 @0x1a
0x22f7…2330 at001b = ╱6e╱n╱ // 0x2312 @0x1b
0x22f7…2330 at001c = ╱74╱t╱ // 0x2313 @0x1c
0x22f7…2330 at001d = ╱65╱e╱ // 0x2314 @0x1d
0x22f7…2330 at001e = ╱72╱r╱ // 0x2315 @0x1e
0x22f7…2330 at001f = ╱20╱…╱ // 0x2316 @0x1f
0x22f7…2330 at0020 = ╱6e╱n╱ // 0x2317 @0x20
0x22f7…2330 at0021 = ╱72╱r╱ // 0x2318 @0x21
0x22f7…2330 at0022 = ╱2e╱.╱ // 0x2319 @0x22
0x22f7…2330 at0023 = ╱20╱…╱ // 0x231a @0x23
0x22f7…2330 at0024 = ╱3f╱?╱ // 0x231b @0x24
0x22f7…2330 at0025 = ╱20╱…╱ // 0x231c @0x25
0x22f7…2330 at0026 = ╱28╱(╱ // 0x231d @0x26
0x22f7…2330 at0027 = ╱31╱1╱ // 0x231e @0x27
0x22f7…2330 at0028 = ╱2f╱/╱ // 0x231f @0x28
0x22f7…2330 at0029 = ╱32╱2╱ // 0x2320 @0x29
0x22f7…2330 at002a = ╱2f╱/╱ // 0x2321 @0x2a
0x22f7…2330 at002b = ╱33╱3╱ // 0x2322 @0x2b
0x22f7…2330 at002c = ╱2f╱/╱ // 0x2323 @0x2c
0x22f7…2330 at002d = ╱34╱4╱ // 0x2324 @0x2d
0x22f7…2330 at002e = ╱29╱)╱ // 0x2325 @0x2e
0x22f7…2330 at002f = ╱20╱…╱ // 0x2326 @0x2f
0x22f7…2330 at0030 = ╱22╱"╱ // 0x2327 @0x30
0x22f7…2330 at0031 = ╱f1╱ : ╱ // 0x2328 @0x31
0x22f7…2330 at0032 = ╱50╱P╱ // 0x2329 @0x32
0x22f7…2330 at0033 = ╱52╱R╱ // 0x232a @0x33
0x22f7…2330 at0034 = ╱54╱T╱ // 0x232b @0x34
0x22f7…2330 at0035 = ╱4e╱N╱ // 0x232c @0x35
0x22f7…2330 at0036 = ╱52╱R╱ // 0x232d @0x36
0x22f7…2330 at0037 = ╱ef╱$╱ // 0x232e @0x37
0x22f7…2330 at0038 = EOL // 0x232f @0x38
0x22f7…2330 }
0x2330…2350 d0fd 3460 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
0x2330…2350 LineComal80 {
0x2330…2350 ptr = 0xd0fd // 0x2330 @0x0
0x2330…2350 lno = 0x0d84 // 0x2332 @0x2
0x2330…2350 at0004 = ╱98╱ UNTIL ╱ // 0x2334 @0x4
0x2330…2350 at0005 = ╱22╱"╱ // 0x2335 @0x5
0x2330…2350 at0006 = ╱2f╱/╱ // 0x2336 @0x6
0x2330…2350 at0007 = ╱22╱"╱ // 0x2337 @0x7
0x2330…2350 at0008 = ╱eb╱ + ╱ // 0x2338 @0x8
0x2330…2350 at0009 = ╱50╱P╱ // 0x2339 @0x9
0x2330…2350 at000a = ╱52╱R╱ // 0x233a @0xa
0x2330…2350 at000b = ╱54╱T╱ // 0x233b @0xb
0x2330…2350 at000c = ╱4e╱N╱ // 0x233c @0xc
0x2330…2350 at000d = ╱52╱R╱ // 0x233d @0xd
0x2330…2350 at000e = ╱ef╱$╱ // 0x233e @0xe
0x2330…2350 at000f = ╱eb╱ + ╱ // 0x233f @0xf
0x2330…2350 at0010 = ╱22╱"╱ // 0x2340 @0x10
0x2330…2350 at0011 = ╱2f╱/╱ // 0x2341 @0x11
0x2330…2350 at0012 = ╱22╱"╱ // 0x2342 @0x12
0x2330…2350 at0013 = ╱dc╱ IN ╱ // 0x2343 @0x13
0x2330…2350 at0014 = ╱22╱"╱ // 0x2344 @0x14
0x2330…2350 at0015 = ╱2f╱/╱ // 0x2345 @0x15
0x2330…2350 at0016 = ╱31╱1╱ // 0x2346 @0x16
0x2330…2350 at0017 = ╱2f╱/╱ // 0x2347 @0x17
0x2330…2350 at0018 = ╱32╱2╱ // 0x2348 @0x18
0x2330…2350 at0019 = ╱2f╱/╱ // 0x2349 @0x19
0x2330…2350 at001a = ╱33╱3╱ // 0x234a @0x1a
0x2330…2350 at001b = ╱2f╱/╱ // 0x234b @0x1b
0x2330…2350 at001c = ╱34╱4╱ // 0x234c @0x1c
0x2330…2350 at001d = ╱2f╱/╱ // 0x234d @0x1d
0x2330…2350 at001e = ╱22╱"╱ // 0x234e @0x1e
0x2330…2350 at001f = EOL // 0x234f @0x1f
0x2330…2350 }
0x2350…2374 b962 3490 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
0x2350…2374 LineComal80 {
0x2350…2374 ptr = 0xb962 // 0x2350 @0x0
0x2350…2374 lno = 0x0da2 // 0x2352 @0x2
0x2350…2374 at0004 = ╱a1╱ CURSOR ╱ // 0x2354 @0x4
0x2350…2374 at0005 = ╱ed╱(╱ // 0x2355 @0x5
0x2350…2374 at0006 = ╱33╱3╱ // 0x2356 @0x6
0x2350…2374 at0007 = ╱39╱9╱ // 0x2357 @0x7
0x2350…2374 at0008 = ╱f22700╱ // 0x2358 @0x8
0x2350…2374 at000b = ╱e6╱ - ╱ // 0x235b @0xb
0x2350…2374 at000c = ╱cb╱ // 0x235c @0xc
0x2350…2374 at000d = ╱ed╱(╱ // 0x235d @0xd
0x2350…2374 at000e = ╱50╱P╱ // 0x235e @0xe
0x2350…2374 at000f = ╱41╱A╱ // 0x235f @0xf
0x2350…2374 at0010 = ╱47╱G╱ // 0x2360 @0x10
0x2350…2374 at0011 = ╱45╱E╱ // 0x2361 @0x11
0x2350…2374 at0012 = ╱54╱T╱ // 0x2362 @0x12
0x2350…2374 at0013 = ╱59╱Y╱ // 0x2363 @0x13
0x2350…2374 at0014 = ╱50╱P╱ // 0x2364 @0x14
0x2350…2374 at0015 = ╱45╱E╱ // 0x2365 @0x15
0x2350…2374 at0016 = ╱ef╱$╱ // 0x2366 @0x16
0x2350…2374 at0017 = ╱ee╱)╱ // 0x2367 @0x17
0x2350…2374 at0018 = ╱ee╱)╱ // 0x2368 @0x18
0x2350…2374 at0019 = ╱da╱ DIV ╱ // 0x2369 @0x19
0x2350…2374 at001a = ╱32╱2╱ // 0x236a @0x1a
0x2350…2374 at001b = ╱f20200╱ // 0x236b @0x1b
0x2350…2374 at001e = ╱ec╱,╱ // 0x236e @0x1e
0x2350…2374 at001f = ╱4c╱L╱ // 0x236f @0x1f
0x2350…2374 at0020 = ╱49╱I╱ // 0x2370 @0x20
0x2350…2374 at0021 = ╱4e╱N╱ // 0x2371 @0x21
0x2350…2374 at0022 = ╱45╱E╱ // 0x2372 @0x22
0x2350…2374 at0023 = EOL // 0x2373 @0x23
0x2350…2374 }
0x2374…23b4 b9a2 3500 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
0x2374…23b4 LineComal80 {
0x2374…23b4 ptr = 0xb9a2 // 0x2374 @0x0
0x2374…23b4 lno = 0x0dac // 0x2376 @0x2
0x2374…23b4 at0004 = ╱92╱ PRINT ╱ // 0x2378 @0x4
0x2374…23b4 at0005 = ╱22╱"╱ // 0x2379 @0x5
0x2374…23b4 at0006 = ╱3c╱<╱ // 0x237a @0x6
0x2374…23b4 at0007 = ╱53╱S╱ // 0x237b @0x7
0x2374…23b4 at0008 = ╱5a╱Z╱ // 0x237c @0x8
0x2374…23b4 at0009 = ╱3e╱>╱ // 0x237d @0x9
0x2374…23b4 at000a = ╱20╱…╱ // 0x237e @0xa
0x2374…23b4 at000b = ╱20╱…╱ // 0x237f @0xb
0x2374…23b4 at000c = ╱20╱…╱ // 0x2380 @0xc
0x2374…23b4 at000d = ╱20╱…╱ // 0x2381 @0xd
0x2374…23b4 at000e = ╱20╱…╱ // 0x2382 @0xe
0x2374…23b4 at000f = ╱4d╱M╱ // 0x2383 @0xf
0x2374…23b4 at0010 = ╱6f╱o╱ // 0x2384 @0x10
0x2374…23b4 at0011 = ╱6e╱n╱ // 0x2385 @0x11
0x2374…23b4 at0012 = ╱74╱t╱ // 0x2386 @0x12
0x2374…23b4 at0013 = ╱65╱e╱ // 0x2387 @0x13
0x2374…23b4 at0014 = ╱72╱r╱ // 0x2388 @0x14
0x2374…23b4 at0015 = ╱20╱…╱ // 0x2389 @0x15
0x2374…23b4 at0016 = ╱22╱"╱ // 0x238a @0x16
0x2374…23b4 at0017 = ╱ea╱ ; ╱ // 0x238b @0x17
0x2374…23b4 at0018 = ╱50╱P╱ // 0x238c @0x18
0x2374…23b4 at0019 = ╱41╱A╱ // 0x238d @0x19
0x2374…23b4 at001a = ╱47╱G╱ // 0x238e @0x1a
0x2374…23b4 at001b = ╱45╱E╱ // 0x238f @0x1b
0x2374…23b4 at001c = ╱54╱T╱ // 0x2390 @0x1c
0x2374…23b4 at001d = ╱59╱Y╱ // 0x2391 @0x1d
0x2374…23b4 at001e = ╱50╱P╱ // 0x2392 @0x1e
0x2374…23b4 at001f = ╱45╱E╱ // 0x2393 @0x1f
0x2374…23b4 at0020 = ╱ef╱$╱ // 0x2394 @0x20
0x2374…23b4 at0021 = ╱ea╱ ; ╱ // 0x2395 @0x21
0x2374…23b4 at0022 = ╱22╱"╱ // 0x2396 @0x22
0x2374…23b4 at0023 = ╱20╱…╱ // 0x2397 @0x23
0x2374…23b4 at0024 = ╱69╱i╱ // 0x2398 @0x24
0x2374…23b4 at0025 = ╱20╱…╱ // 0x2399 @0x25
0x2374…23b4 at0026 = ╱70╱p╱ // 0x239a @0x26
0x2374…23b4 at0027 = ╱72╱r╱ // 0x239b @0x27
0x2374…23b4 at0028 = ╱69╱i╱ // 0x239c @0x28
0x2374…23b4 at0029 = ╱6e╱n╱ // 0x239d @0x29
0x2374…23b4 at002a = ╱74╱t╱ // 0x239e @0x2a
0x2374…23b4 at002b = ╱65╱e╱ // 0x239f @0x2b
0x2374…23b4 at002c = ╱72╱r╱ // 0x23a0 @0x2c
0x2374…23b4 at002d = ╱65╱e╱ // 0x23a1 @0x2d
0x2374…23b4 at002e = ╱6e╱n╱ // 0x23a2 @0x2e
0x2374…23b4 at002f = ╱20╱…╱ // 0x23a3 @0x2f
0x2374…23b4 at0030 = ╱2d╱-╱ // 0x23a4 @0x30
0x2374…23b4 at0031 = ╱20╱…╱ // 0x23a5 @0x31
0x2374…23b4 at0032 = ╱74╱t╱ // 0x23a6 @0x32
0x2374…23b4 at0033 = ╱72╱r╱ // 0x23a7 @0x33
0x2374…23b4 at0034 = ╱79╱y╱ // 0x23a8 @0x34
0x2374…23b4 at0035 = ╱6b╱k╱ // 0x23a9 @0x35
0x2374…23b4 at0036 = ╱20╱…╱ // 0x23aa @0x36
0x2374…23b4 at0037 = ╱52╱R╱ // 0x23ab @0x37
0x2374…23b4 at0038 = ╱45╱E╱ // 0x23ac @0x38
0x2374…23b4 at0039 = ╱54╱T╱ // 0x23ad @0x39
0x2374…23b4 at003a = ╱55╱U╱ // 0x23ae @0x3a
0x2374…23b4 at003b = ╱52╱R╱ // 0x23af @0x3b
0x2374…23b4 at003c = ╱4e╱N╱ // 0x23b0 @0x3c
0x2374…23b4 at003d = ╱20╱…╱ // 0x23b1 @0x3d
0x2374…23b4 at003e = ╱22╱"╱ // 0x23b2 @0x3e
0x2374…23b4 at003f = EOL // 0x23b3 @0x3f
0x2374…23b4 }
0x23b4…23c2 b9b0 3510 INPUT "" : SVAR$
0x23b4…23c2 LineComal80 {
0x23b4…23c2 ptr = 0xb9b0 // 0x23b4 @0x0
0x23b4…23c2 lno = 0x0db6 // 0x23b6 @0x2
0x23b4…23c2 at0004 = ╱91╱ INPUT ╱ // 0x23b8 @0x4
0x23b4…23c2 at0005 = ╱22╱"╱ // 0x23b9 @0x5
0x23b4…23c2 at0006 = ╱22╱"╱ // 0x23ba @0x6
0x23b4…23c2 at0007 = ╱f1╱ : ╱ // 0x23bb @0x7
0x23b4…23c2 at0008 = ╱53╱S╱ // 0x23bc @0x8
0x23b4…23c2 at0009 = ╱56╱V╱ // 0x23bd @0x9
0x23b4…23c2 at000a = ╱41╱A╱ // 0x23be @0xa
0x23b4…23c2 at000b = ╱52╱R╱ // 0x23bf @0xb
0x23b4…23c2 at000c = ╱ef╱$╱ // 0x23c0 @0xc
0x23b4…23c2 at000d = EOL // 0x23c1 @0xd
0x23b4…23c2 }
0x23c2…23d2 b9c0 3520 SELECT OUTPUT "P" + PRTNR$
0x23c2…23d2 LineComal80 {
0x23c2…23d2 ptr = 0xb9c0 // 0x23c2 @0x0
0x23c2…23d2 lno = 0x0dc0 // 0x23c4 @0x2
0x23c2…23d2 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x23c6 @0x4
0x23c2…23d2 at0005 = ╱22╱"╱ // 0x23c7 @0x5
0x23c2…23d2 at0006 = ╱50╱P╱ // 0x23c8 @0x6
0x23c2…23d2 at0007 = ╱22╱"╱ // 0x23c9 @0x7
0x23c2…23d2 at0008 = ╱eb╱ + ╱ // 0x23ca @0x8
0x23c2…23d2 at0009 = ╱50╱P╱ // 0x23cb @0x9
0x23c2…23d2 at000a = ╱52╱R╱ // 0x23cc @0xa
0x23c2…23d2 at000b = ╱54╱T╱ // 0x23cd @0xb
0x23c2…23d2 at000c = ╱4e╱N╱ // 0x23ce @0xc
0x23c2…23d2 at000d = ╱52╱R╱ // 0x23cf @0xd
0x23c2…23d2 at000e = ╱ef╱$╱ // 0x23d0 @0xe
0x23c2…23d2 at000f = EOL // 0x23d1 @0xf
0x23c2…23d2 }
0x23d2…23e0 b9ce 3530 IF ("P") THEN
0x23d2…23e0 LineComal80 {
0x23d2…23e0 ptr = 0xb9ce // 0x23d2 @0x0
0x23d2…23e0 lno = 0x0dca // 0x23d4 @0x2
0x23d2…23e0 at0004 = ╱9b3ecd╱ IF ╱ // 0x23d6 @0x4
0x23d2…23e0 at0007 = ╱ed╱(╱ // 0x23d9 @0x7
0x23d2…23e0 at0008 = ╱22╱"╱ // 0x23da @0x8
0x23d2…23e0 at0009 = ╱50╱P╱ // 0x23db @0x9
0x23d2…23e0 at000a = ╱22╱"╱ // 0x23dc @0xa
0x23d2…23e0 at000b = ╱ee╱)╱ // 0x23dd @0xb
0x23d2…23e0 at000c = ╱b5╱ THEN ╱ // 0x23de @0xc
0x23d2…23e0 at000d = EOL // 0x23df @0xd
0x23d2…23e0 }
0x23e0…23f0 b9de 3540 CURSOR 12,LINE
0x23e0…23f0 LineComal80 {
0x23e0…23f0 ptr = 0xb9de // 0x23e0 @0x0
0x23e0…23f0 lno = 0x0dd4 // 0x23e2 @0x2
0x23e0…23f0 at0004 = ╱a1╱ CURSOR ╱ // 0x23e4 @0x4
0x23e0…23f0 at0005 = ╱31╱1╱ // 0x23e5 @0x5
0x23e0…23f0 at0006 = ╱32╱2╱ // 0x23e6 @0x6
0x23e0…23f0 at0007 = ╱f20c00╱ // 0x23e7 @0x7
0x23e0…23f0 at000a = ╱ec╱,╱ // 0x23ea @0xa
0x23e0…23f0 at000b = ╱4c╱L╱ // 0x23eb @0xb
0x23e0…23f0 at000c = ╱49╱I╱ // 0x23ec @0xc
0x23e0…23f0 at000d = ╱4e╱N╱ // 0x23ed @0xd
0x23e0…23f0 at000e = ╱45╱E╱ // 0x23ee @0xe
0x23e0…23f0 at000f = EOL // 0x23ef @0xf
0x23e0…23f0 }
0x23f0…2427 ba15 3550 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
0x23f0…2427 LineComal80 {
0x23f0…2427 ptr = 0xba15 // 0x23f0 @0x0
0x23f0…2427 lno = 0x0dde // 0x23f2 @0x2
0x23f0…2427 at0004 = ╱92╱ PRINT ╱ // 0x23f4 @0x4
0x23f0…2427 at0005 = ╱22╱"╱ // 0x23f5 @0x5
0x23f0…2427 at0006 = ╱3c╱<╱ // 0x23f6 @0x6
0x23f0…2427 at0007 = ╱53╱S╱ // 0x23f7 @0x7
0x23f0…2427 at0008 = ╱5a╱Z╱ // 0x23f8 @0x8
0x23f0…2427 at0009 = ╱3e╱>╱ // 0x23f9 @0x9
0x23f0…2427 at000a = ╱50╱P╱ // 0x23fa @0xa
0x23f0…2427 at000b = ╱72╱r╱ // 0x23fb @0xb
0x23f0…2427 at000c = ╱69╱i╱ // 0x23fc @0xc
0x23f0…2427 at000d = ╱6e╱n╱ // 0x23fd @0xd
0x23f0…2427 at000e = ╱74╱t╱ // 0x23fe @0xe
0x23f0…2427 at000f = ╱65╱e╱ // 0x23ff @0xf
0x23f0…2427 at0010 = ╱72╱r╱ // 0x2400 @0x10
0x23f0…2427 at0011 = ╱65╱e╱ // 0x2401 @0x11
0x23f0…2427 at0012 = ╱6e╱n╱ // 0x2402 @0x12
0x23f0…2427 at0013 = ╱20╱…╱ // 0x2403 @0x13
0x23f0…2427 at0014 = ╱65╱e╱ // 0x2404 @0x14
0x23f0…2427 at0015 = ╱72╱r╱ // 0x2405 @0x15
0x23f0…2427 at0016 = ╱20╱…╱ // 0x2406 @0x16
0x23f0…2427 at0017 = ╱72╱r╱ // 0x2407 @0x17
0x23f0…2427 at0018 = ╱65╱e╱ // 0x2408 @0x18
0x23f0…2427 at0019 = ╱73╱s╱ // 0x2409 @0x19
0x23f0…2427 at001a = ╱65╱e╱ // 0x240a @0x1a
0x23f0…2427 at001b = ╱72╱r╱ // 0x240b @0x1b
0x23f0…2427 at001c = ╱76╱v╱ // 0x240c @0x1c
0x23f0…2427 at001d = ╱65╱e╱ // 0x240d @0x1d
0x23f0…2427 at001e = ╱72╱r╱ // 0x240e @0x1e
0x23f0…2427 at001f = ╱65╱e╱ // 0x240f @0x1f
0x23f0…2427 at0020 = ╱74╱t╱ // 0x2410 @0x20
0x23f0…2427 at0021 = ╱20╱…╱ // 0x2411 @0x21
0x23f0…2427 at0022 = ╱61╱a╱ // 0x2412 @0x22
0x23f0…2427 at0023 = ╱66╱f╱ // 0x2413 @0x23
0x23f0…2427 at0024 = ╱20╱…╱ // 0x2414 @0x24
0x23f0…2427 at0025 = ╱65╱e╱ // 0x2415 @0x25
0x23f0…2427 at0026 = ╱6e╱n╱ // 0x2416 @0x26
0x23f0…2427 at0027 = ╱20╱…╱ // 0x2417 @0x27
0x23f0…2427 at0028 = ╱61╱a╱ // 0x2418 @0x28
0x23f0…2427 at0029 = ╱6e╱n╱ // 0x2419 @0x29
0x23f0…2427 at002a = ╱64╱d╱ // 0x241a @0x2a
0x23f0…2427 at002b = ╱65╱e╱ // 0x241b @0x2b
0x23f0…2427 at002c = ╱6e╱n╱ // 0x241c @0x2c
0x23f0…2427 at002d = ╱20╱…╱ // 0x241d @0x2d
0x23f0…2427 at002e = ╱62╱b╱ // 0x241e @0x2e
0x23f0…2427 at002f = ╱72╱r╱ // 0x241f @0x2f
0x23f0…2427 at0030 = ╱75╱u╱ // 0x2420 @0x30
0x23f0…2427 at0031 = ╱67╱g╱ // 0x2421 @0x31
0x23f0…2427 at0032 = ╱65╱e╱ // 0x2422 @0x32
0x23f0…2427 at0033 = ╱72╱r╱ // 0x2423 @0x33
0x23f0…2427 at0034 = ╱2c╱,╱ // 0x2424 @0x34
0x23f0…2427 at0035 = ╱22╱"╱ // 0x2425 @0x35
0x23f0…2427 at0036 = EOL // 0x2426 @0x36
0x23f0…2427 }
0x2427…243c ba2a 3560 CURSOR 12,LINE + 1
0x2427…243c LineComal80 {
0x2427…243c ptr = 0xba2a // 0x2427 @0x0
0x2427…243c lno = 0x0de8 // 0x2429 @0x2
0x2427…243c at0004 = ╱a1╱ CURSOR ╱ // 0x242b @0x4
0x2427…243c at0005 = ╱31╱1╱ // 0x242c @0x5
0x2427…243c at0006 = ╱32╱2╱ // 0x242d @0x6
0x2427…243c at0007 = ╱f20c00╱ // 0x242e @0x7
0x2427…243c at000a = ╱ec╱,╱ // 0x2431 @0xa
0x2427…243c at000b = ╱4c╱L╱ // 0x2432 @0xb
0x2427…243c at000c = ╱49╱I╱ // 0x2433 @0xc
0x2427…243c at000d = ╱4e╱N╱ // 0x2434 @0xd
0x2427…243c at000e = ╱45╱E╱ // 0x2435 @0xe
0x2427…243c at000f = ╱e5╱ + ╱ // 0x2436 @0xf
0x2427…243c at0010 = ╱31╱1╱ // 0x2437 @0x10
0x2427…243c at0011 = ╱f20100╱ // 0x2438 @0x11
0x2427…243c at0014 = EOL // 0x243b @0x14
0x2427…243c }
0x243c…247d ba6b 3570 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
0x243c…247d LineComal80 {
0x243c…247d ptr = 0xba6b // 0x243c @0x0
0x243c…247d lno = 0x0df2 // 0x243e @0x2
0x243c…247d at0004 = ╱91╱ INPUT ╱ // 0x2440 @0x4
0x243c…247d at0005 = ╱22╱"╱ // 0x2441 @0x5
0x243c…247d at0006 = ╱3c╱<╱ // 0x2442 @0x6
0x243c…247d at0007 = ╱53╱S╱ // 0x2443 @0x7
0x243c…247d at0008 = ╱5a╱Z╱ // 0x2444 @0x8
0x243c…247d at0009 = ╱3e╱>╱ // 0x2445 @0x9
0x243c…247d at000a = ╱53╱S╱ // 0x2446 @0xa
0x243c…247d at000b = ╱6b╱k╱ // 0x2447 @0xb
0x243c…247d at000c = ╱61╱a╱ // 0x2448 @0xc
0x243c…247d at000d = ╱6c╱l╱ // 0x2449 @0xd
0x243c…247d at000e = ╱20╱…╱ // 0x244a @0xe
0x243c…247d at000f = ╱64╱d╱ // 0x244b @0xf
0x243c…247d at0010 = ╱65╱e╱ // 0x244c @0x10
0x243c…247d at0011 = ╱72╱r╱ // 0x244d @0x11
0x243c…247d at0012 = ╱20╱…╱ // 0x244e @0x12
0x243c…247d at0013 = ╱76╱v╱ // 0x244f @0x13
0x243c…247d at0014 = ╱65╱e╱ // 0x2450 @0x14
0x243c…247d at0015 = ╱6e╱n╱ // 0x2451 @0x15
0x243c…247d at0016 = ╱74╱t╱ // 0x2452 @0x16
0x243c…247d at0017 = ╱65╱e╱ // 0x2453 @0x17
0x243c…247d at0018 = ╱73╱s╱ // 0x2454 @0x18
0x243c…247d at0019 = ╱20╱…╱ // 0x2455 @0x19
0x243c…247d at001a = ╱70╱p╱ // 0x2456 @0x1a
0x243c…247d at001b = ╱7d╱å╱ // 0x2457 @0x1b
0x243c…247d at001c = ╱20╱…╱ // 0x2458 @0x1c
0x243c…247d at001d = ╱61╱a╱ // 0x2459 @0x1d
0x243c…247d at001e = ╱74╱t╱ // 0x245a @0x1e
0x243c…247d at001f = ╱20╱…╱ // 0x245b @0x1f
0x243c…247d at0020 = ╱64╱d╱ // 0x245c @0x20
0x243c…247d at0021 = ╱65╱e╱ // 0x245d @0x21
0x243c…247d at0022 = ╱6e╱n╱ // 0x245e @0x22
0x243c…247d at0023 = ╱20╱…╱ // 0x245f @0x23
0x243c…247d at0024 = ╱62╱b╱ // 0x2460 @0x24
0x243c…247d at0025 = ╱6c╱l╱ // 0x2461 @0x25
0x243c…247d at0026 = ╱69╱i╱ // 0x2462 @0x26
0x243c…247d at0027 = ╱76╱v╱ // 0x2463 @0x27
0x243c…247d at0028 = ╱65╱e╱ // 0x2464 @0x28
0x243c…247d at0029 = ╱72╱r╱ // 0x2465 @0x29
0x243c…247d at002a = ╱20╱…╱ // 0x2466 @0x2a
0x243c…247d at002b = ╱6c╱l╱ // 0x2467 @0x2b
0x243c…247d at002c = ╱65╱e╱ // 0x2468 @0x2c
0x243c…247d at002d = ╱64╱d╱ // 0x2469 @0x2d
0x243c…247d at002e = ╱69╱i╱ // 0x246a @0x2e
0x243c…247d at002f = ╱67╱g╱ // 0x246b @0x2f
0x243c…247d at0030 = ╱20╱…╱ // 0x246c @0x30
0x243c…247d at0031 = ╱3f╱?╱ // 0x246d @0x31
0x243c…247d at0032 = ╱20╱…╱ // 0x246e @0x32
0x243c…247d at0033 = ╱28╱(╱ // 0x246f @0x33
0x243c…247d at0034 = ╱6a╱j╱ // 0x2470 @0x34
0x243c…247d at0035 = ╱2f╱/╱ // 0x2471 @0x35
0x243c…247d at0036 = ╱6e╱n╱ // 0x2472 @0x36
0x243c…247d at0037 = ╱29╱)╱ // 0x2473 @0x37
0x243c…247d at0038 = ╱20╱…╱ // 0x2474 @0x38
0x243c…247d at0039 = ╱22╱"╱ // 0x2475 @0x39
0x243c…247d at003a = ╱f1╱ : ╱ // 0x2476 @0x3a
0x243c…247d at003b = ╱53╱S╱ // 0x2477 @0x3b
0x243c…247d at003c = ╱56╱V╱ // 0x2478 @0x3c
0x243c…247d at003d = ╱41╱A╱ // 0x2479 @0x3d
0x243c…247d at003e = ╱52╱R╱ // 0x247a @0x3e
0x243c…247d at003f = ╱ef╱$╱ // 0x247b @0x3f
0x243c…247d at0040 = EOL // 0x247c @0x40
0x243c…247d }
0x247d…2498 ba86 3580 IF VAR$ = "J" OR SVAR$ = "j" THEN
0x247d…2498 LineComal80 {
0x247d…2498 ptr = 0xba86 // 0x247d @0x0
0x247d…2498 lno = 0x0dfc // 0x247f @0x2
0x247d…2498 at0004 = ╱9b3f53╱ IF ╱ // 0x2481 @0x4
0x247d…2498 at0007 = ╱56╱V╱ // 0x2484 @0x7
0x247d…2498 at0008 = ╱41╱A╱ // 0x2485 @0x8
0x247d…2498 at0009 = ╱52╱R╱ // 0x2486 @0x9
0x247d…2498 at000a = ╱ef╱$╱ // 0x2487 @0xa
0x247d…2498 at000b = ╱df╱ = ╱ // 0x2488 @0xb
0x247d…2498 at000c = ╱22╱"╱ // 0x2489 @0xc
0x247d…2498 at000d = ╱4a╱J╱ // 0x248a @0xd
0x247d…2498 at000e = ╱22╱"╱ // 0x248b @0xe
0x247d…2498 at000f = ╱d8╱ OR ╱ // 0x248c @0xf
0x247d…2498 at0010 = ╱53╱S╱ // 0x248d @0x10
0x247d…2498 at0011 = ╱56╱V╱ // 0x248e @0x11
0x247d…2498 at0012 = ╱41╱A╱ // 0x248f @0x12
0x247d…2498 at0013 = ╱52╱R╱ // 0x2490 @0x13
0x247d…2498 at0014 = ╱ef╱$╱ // 0x2491 @0x14
0x247d…2498 at0015 = ╱df╱ = ╱ // 0x2492 @0x15
0x247d…2498 at0016 = ╱22╱"╱ // 0x2493 @0x16
0x247d…2498 at0017 = ╱6a╱j╱ // 0x2494 @0x17
0x247d…2498 at0018 = ╱22╱"╱ // 0x2495 @0x18
0x247d…2498 at0019 = ╱b5╱ THEN ╱ // 0x2496 @0x19
0x247d…2498 at001a = EOL // 0x2497 @0x1a
0x247d…2498 }
0x2498…24a8 ba96 3590 CURSOR 12,LINE
0x2498…24a8 LineComal80 {
0x2498…24a8 ptr = 0xba96 // 0x2498 @0x0
0x2498…24a8 lno = 0x0e06 // 0x249a @0x2
0x2498…24a8 at0004 = ╱a1╱ CURSOR ╱ // 0x249c @0x4
0x2498…24a8 at0005 = ╱31╱1╱ // 0x249d @0x5
0x2498…24a8 at0006 = ╱32╱2╱ // 0x249e @0x6
0x2498…24a8 at0007 = ╱f20c00╱ // 0x249f @0x7
0x2498…24a8 at000a = ╱ec╱,╱ // 0x24a2 @0xa
0x2498…24a8 at000b = ╱4c╱L╱ // 0x24a3 @0xb
0x2498…24a8 at000c = ╱49╱I╱ // 0x24a4 @0xc
0x2498…24a8 at000d = ╱4e╱N╱ // 0x24a5 @0xd
0x2498…24a8 at000e = ╱45╱E╱ // 0x24a6 @0xe
0x2498…24a8 at000f = EOL // 0x24a7 @0xf
0x2498…24a8 }
0x24a8…24e3 bad1 3600 PRINT "<Z> Der ventes på at printeren bliver ledig...."
0x24a8…24e3 LineComal80 {
0x24a8…24e3 ptr = 0xbad1 // 0x24a8 @0x0
0x24a8…24e3 lno = 0x0e10 // 0x24aa @0x2
0x24a8…24e3 at0004 = ╱92╱ PRINT ╱ // 0x24ac @0x4
0x24a8…24e3 at0005 = ╱22╱"╱ // 0x24ad @0x5
0x24a8…24e3 at0006 = ╱3c╱<╱ // 0x24ae @0x6
0x24a8…24e3 at0007 = ╱5a╱Z╱ // 0x24af @0x7
0x24a8…24e3 at0008 = ╱3e╱>╱ // 0x24b0 @0x8
0x24a8…24e3 at0009 = ╱20╱…╱ // 0x24b1 @0x9
0x24a8…24e3 at000a = ╱20╱…╱ // 0x24b2 @0xa
0x24a8…24e3 at000b = ╱20╱…╱ // 0x24b3 @0xb
0x24a8…24e3 at000c = ╱20╱…╱ // 0x24b4 @0xc
0x24a8…24e3 at000d = ╱20╱…╱ // 0x24b5 @0xd
0x24a8…24e3 at000e = ╱44╱D╱ // 0x24b6 @0xe
0x24a8…24e3 at000f = ╱65╱e╱ // 0x24b7 @0xf
0x24a8…24e3 at0010 = ╱72╱r╱ // 0x24b8 @0x10
0x24a8…24e3 at0011 = ╱20╱…╱ // 0x24b9 @0x11
0x24a8…24e3 at0012 = ╱76╱v╱ // 0x24ba @0x12
0x24a8…24e3 at0013 = ╱65╱e╱ // 0x24bb @0x13
0x24a8…24e3 at0014 = ╱6e╱n╱ // 0x24bc @0x14
0x24a8…24e3 at0015 = ╱74╱t╱ // 0x24bd @0x15
0x24a8…24e3 at0016 = ╱65╱e╱ // 0x24be @0x16
0x24a8…24e3 at0017 = ╱73╱s╱ // 0x24bf @0x17
0x24a8…24e3 at0018 = ╱20╱…╱ // 0x24c0 @0x18
0x24a8…24e3 at0019 = ╱70╱p╱ // 0x24c1 @0x19
0x24a8…24e3 at001a = ╱7d╱å╱ // 0x24c2 @0x1a
0x24a8…24e3 at001b = ╱20╱…╱ // 0x24c3 @0x1b
0x24a8…24e3 at001c = ╱61╱a╱ // 0x24c4 @0x1c
0x24a8…24e3 at001d = ╱74╱t╱ // 0x24c5 @0x1d
0x24a8…24e3 at001e = ╱20╱…╱ // 0x24c6 @0x1e
0x24a8…24e3 at001f = ╱70╱p╱ // 0x24c7 @0x1f
0x24a8…24e3 at0020 = ╱72╱r╱ // 0x24c8 @0x20
0x24a8…24e3 at0021 = ╱69╱i╱ // 0x24c9 @0x21
0x24a8…24e3 at0022 = ╱6e╱n╱ // 0x24ca @0x22
0x24a8…24e3 at0023 = ╱74╱t╱ // 0x24cb @0x23
0x24a8…24e3 at0024 = ╱65╱e╱ // 0x24cc @0x24
0x24a8…24e3 at0025 = ╱72╱r╱ // 0x24cd @0x25
0x24a8…24e3 at0026 = ╱65╱e╱ // 0x24ce @0x26
0x24a8…24e3 at0027 = ╱6e╱n╱ // 0x24cf @0x27
0x24a8…24e3 at0028 = ╱20╱…╱ // 0x24d0 @0x28
0x24a8…24e3 at0029 = ╱62╱b╱ // 0x24d1 @0x29
0x24a8…24e3 at002a = ╱6c╱l╱ // 0x24d2 @0x2a
0x24a8…24e3 at002b = ╱69╱i╱ // 0x24d3 @0x2b
0x24a8…24e3 at002c = ╱76╱v╱ // 0x24d4 @0x2c
0x24a8…24e3 at002d = ╱65╱e╱ // 0x24d5 @0x2d
0x24a8…24e3 at002e = ╱72╱r╱ // 0x24d6 @0x2e
0x24a8…24e3 at002f = ╱20╱…╱ // 0x24d7 @0x2f
0x24a8…24e3 at0030 = ╱6c╱l╱ // 0x24d8 @0x30
0x24a8…24e3 at0031 = ╱65╱e╱ // 0x24d9 @0x31
0x24a8…24e3 at0032 = ╱64╱d╱ // 0x24da @0x32
0x24a8…24e3 at0033 = ╱69╱i╱ // 0x24db @0x33
0x24a8…24e3 at0034 = ╱67╱g╱ // 0x24dc @0x34
0x24a8…24e3 at0035 = ╱2e╱.╱ // 0x24dd @0x35
0x24a8…24e3 at0036 = ╱2e╱.╱ // 0x24de @0x36
0x24a8…24e3 at0037 = ╱2e╱.╱ // 0x24df @0x37
0x24a8…24e3 at0038 = ╱2e╱.╱ // 0x24e0 @0x38
0x24a8…24e3 at0039 = ╱22╱"╱ // 0x24e1 @0x39
0x24a8…24e3 at003a = EOL // 0x24e2 @0x3a
0x24a8…24e3 }
0x24e3…24ef badd 3610 PRINT "<SZ>"
0x24e3…24ef LineComal80 {
0x24e3…24ef ptr = 0xbadd // 0x24e3 @0x0
0x24e3…24ef lno = 0x0e1a // 0x24e5 @0x2
0x24e3…24ef at0004 = ╱92╱ PRINT ╱ // 0x24e7 @0x4
0x24e3…24ef at0005 = ╱22╱"╱ // 0x24e8 @0x5
0x24e3…24ef at0006 = ╱3c╱<╱ // 0x24e9 @0x6
0x24e3…24ef at0007 = ╱53╱S╱ // 0x24ea @0x7
0x24e3…24ef at0008 = ╱5a╱Z╱ // 0x24eb @0x8
0x24e3…24ef at0009 = ╱3e╱>╱ // 0x24ec @0x9
0x24e3…24ef at000a = ╱22╱"╱ // 0x24ed @0xa
0x24e3…24ef at000b = EOL // 0x24ee @0xb
0x24e3…24ef }
0x24ef…24fd baeb 3620 WHILE ╱cd╱ ("P") DO
0x24ef…24fd LineComal80 {
0x24ef…24fd ptr = 0xbaeb // 0x24ef @0x0
0x24ef…24fd lno = 0x0e24 // 0x24f1 @0x2
0x24ef…24fd at0004 = ╱9340╱ WHILE ╱ // 0x24f3 @0x4
0x24ef…24fd at0006 = ╱cd╱ // 0x24f5 @0x6
0x24ef…24fd at0007 = ╱ed╱(╱ // 0x24f6 @0x7
0x24ef…24fd at0008 = ╱22╱"╱ // 0x24f7 @0x8
0x24ef…24fd at0009 = ╱50╱P╱ // 0x24f8 @0x9
0x24ef…24fd at000a = ╱22╱"╱ // 0x24f9 @0xa
0x24ef…24fd at000b = ╱ee╱)╱ // 0x24fa @0xb
0x24ef…24fd at000c = ╱bb╱ DO ╱ // 0x24fb @0xc
0x24ef…24fd at000d = EOL // 0x24fc @0xd
0x24ef…24fd }
0x24fd…250e bafc 3630 LET SEK := ╱ca╱ (5)
0x24fd…250e LineComal80 {
0x24fd…250e ptr = 0xbafc // 0x24fd @0x0
0x24fd…250e lno = 0x0e2e // 0x24ff @0x2
0x24fd…250e at0004 = ╱86╱ LET ╱ // 0x2501 @0x4
0x24fd…250e at0005 = ╱53╱S╱ // 0x2502 @0x5
0x24fd…250e at0006 = ╱45╱E╱ // 0x2503 @0x6
0x24fd…250e at0007 = ╱4b╱K╱ // 0x2504 @0x7
0x24fd…250e at0008 = ╱f0╱ := ╱ // 0x2505 @0x8
0x24fd…250e at0009 = ╱ca╱ // 0x2506 @0x9
0x24fd…250e at000a = ╱ed╱(╱ // 0x2507 @0xa
0x24fd…250e at000b = ╱35╱5╱ // 0x2508 @0xb
0x24fd…250e at000c = ╱f20500╱ // 0x2509 @0xc
0x24fd…250e at000f = ╱ee╱)╱ // 0x250c @0xf
0x24fd…250e at0010 = EOL // 0x250d @0x10
0x24fd…250e }
0x250e…251e bb0c 3640 SELECT OUTPUT "P" + PRTNR$
0x250e…251e LineComal80 {
0x250e…251e ptr = 0xbb0c // 0x250e @0x0
0x250e…251e lno = 0x0e38 // 0x2510 @0x2
0x250e…251e at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2512 @0x4
0x250e…251e at0005 = ╱22╱"╱ // 0x2513 @0x5
0x250e…251e at0006 = ╱50╱P╱ // 0x2514 @0x6
0x250e…251e at0007 = ╱22╱"╱ // 0x2515 @0x7
0x250e…251e at0008 = ╱eb╱ + ╱ // 0x2516 @0x8
0x250e…251e at0009 = ╱50╱P╱ // 0x2517 @0x9
0x250e…251e at000a = ╱52╱R╱ // 0x2518 @0xa
0x250e…251e at000b = ╱54╱T╱ // 0x2519 @0xb
0x250e…251e at000c = ╱4e╱N╱ // 0x251a @0xc
0x250e…251e at000d = ╱52╱R╱ // 0x251b @0xd
0x250e…251e at000e = ╱ef╱$╱ // 0x251c @0xe
0x250e…251e at000f = EOL // 0x251d @0xf
0x250e…251e }
0x251e…2524 bb12 3650 ENDWHILE
0x251e…2524 LineComal80 {
0x251e…2524 ptr = 0xbb12 // 0x251e @0x0
0x251e…2524 lno = 0x0e42 // 0x2520 @0x2
0x251e…2524 at0004 = ╱94╱ ENDWHILE ╱ // 0x2522 @0x4
0x251e…2524 at0005 = EOL // 0x2523 @0x5
0x251e…2524 }
0x2524…252b bb19 3660 ELSE
0x2524…252b LineComal80 {
0x2524…252b ptr = 0xbb19 // 0x2524 @0x0
0x2524…252b lno = 0x0e4c // 0x2526 @0x2
0x2524…252b at0004 = ╱9a41╱ ELSE ╱ // 0x2528 @0x4
0x2524…252b at0006 = EOL // 0x252a @0x6
0x2524…252b }
0x252b…2539 bb27 3670 LET OK := FALSE
0x252b…2539 LineComal80 {
0x252b…2539 ptr = 0xbb27 // 0x252b @0x0
0x252b…2539 lno = 0x0e56 // 0x252d @0x2
0x252b…2539 at0004 = ╱86╱ LET ╱ // 0x252f @0x4
0x252b…2539 at0005 = ╱4f╱O╱ // 0x2530 @0x5
0x252b…2539 at0006 = ╱4b╱K╱ // 0x2531 @0x6
0x252b…2539 at0007 = ╱f0╱ := ╱ // 0x2532 @0x7
0x252b…2539 at0008 = ╱46╱F╱ // 0x2533 @0x8
0x252b…2539 at0009 = ╱41╱A╱ // 0x2534 @0x9
0x252b…2539 at000a = ╱4c╱L╱ // 0x2535 @0xa
0x252b…2539 at000b = ╱53╱S╱ // 0x2536 @0xb
0x252b…2539 at000c = ╱45╱E╱ // 0x2537 @0xc
0x252b…2539 at000d = EOL // 0x2538 @0xd
0x252b…2539 }
0x2539…253f bb2d 3680 ENDIF
0x2539…253f LineComal80 {
0x2539…253f ptr = 0xbb2d // 0x2539 @0x0
0x2539…253f lno = 0x0e60 // 0x253b @0x2
0x2539…253f at0004 = ╱9c╱ ENDIF ╱ // 0x253d @0x4
0x2539…253f at0005 = EOL // 0x253e @0x5
0x2539…253f }
0x253f…2545 bb33 3690 ENDIF
0x253f…2545 LineComal80 {
0x253f…2545 ptr = 0xbb33 // 0x253f @0x0
0x253f…2545 lno = 0x0e6a // 0x2541 @0x2
0x253f…2545 at0004 = ╱9c╱ ENDIF ╱ // 0x2543 @0x4
0x253f…2545 at0005 = EOL // 0x2544 @0x5
0x253f…2545 }
0x2545…2554 bb42 3700 CURSOR 1,LINE
0x2545…2554 LineComal80 {
0x2545…2554 ptr = 0xbb42 // 0x2545 @0x0
0x2545…2554 lno = 0x0e74 // 0x2547 @0x2
0x2545…2554 at0004 = ╱a1╱ CURSOR ╱ // 0x2549 @0x4
0x2545…2554 at0005 = ╱31╱1╱ // 0x254a @0x5
0x2545…2554 at0006 = ╱f20100╱ // 0x254b @0x6
0x2545…2554 at0009 = ╱ec╱,╱ // 0x254e @0x9
0x2545…2554 at000a = ╱4c╱L╱ // 0x254f @0xa
0x2545…2554 at000b = ╱49╱I╱ // 0x2550 @0xb
0x2545…2554 at000c = ╱4e╱N╱ // 0x2551 @0xc
0x2545…2554 at000d = ╱45╱E╱ // 0x2552 @0xd
0x2545…2554 at000e = EOL // 0x2553 @0xe
0x2545…2554 }
0x2554…255f bb4d 3710 PRINT "<Z>"
0x2554…255f LineComal80 {
0x2554…255f ptr = 0xbb4d // 0x2554 @0x0
0x2554…255f lno = 0x0e7e // 0x2556 @0x2
0x2554…255f at0004 = ╱92╱ PRINT ╱ // 0x2558 @0x4
0x2554…255f at0005 = ╱22╱"╱ // 0x2559 @0x5
0x2554…255f at0006 = ╱3c╱<╱ // 0x255a @0x6
0x2554…255f at0007 = ╱5a╱Z╱ // 0x255b @0x7
0x2554…255f at0008 = ╱3e╱>╱ // 0x255c @0x8
0x2554…255f at0009 = ╱22╱"╱ // 0x255d @0x9
0x2554…255f at000a = EOL // 0x255e @0xa
0x2554…255f }
0x255f…256b bb59 3720 PRINT "<SZ>"
0x255f…256b LineComal80 {
0x255f…256b ptr = 0xbb59 // 0x255f @0x0
0x255f…256b lno = 0x0e88 // 0x2561 @0x2
0x255f…256b at0004 = ╱92╱ PRINT ╱ // 0x2563 @0x4
0x255f…256b at0005 = ╱22╱"╱ // 0x2564 @0x5
0x255f…256b at0006 = ╱3c╱<╱ // 0x2565 @0x6
0x255f…256b at0007 = ╱53╱S╱ // 0x2566 @0x7
0x255f…256b at0008 = ╱5a╱Z╱ // 0x2567 @0x8
0x255f…256b at0009 = ╱3e╱>╱ // 0x2568 @0x9
0x255f…256b at000a = ╱22╱"╱ // 0x2569 @0xa
0x255f…256b at000b = EOL // 0x256a @0xb
0x255f…256b }
0x256b…2579 bb67 3730 ENDPROC PRINTRES
0x256b…2579 LineComal80 {
0x256b…2579 ptr = 0xbb67 // 0x256b @0x0
0x256b…2579 lno = 0x0e92 // 0x256d @0x2
0x256b…2579 at0004 = ╱9f╱ ENDPROC ╱ // 0x256f @0x4
0x256b…2579 at0005 = ╱50╱P╱ // 0x2570 @0x5
0x256b…2579 at0006 = ╱52╱R╱ // 0x2571 @0x6
0x256b…2579 at0007 = ╱49╱I╱ // 0x2572 @0x7
0x256b…2579 at0008 = ╱4e╱N╱ // 0x2573 @0x8
0x256b…2579 at0009 = ╱54╱T╱ // 0x2574 @0x9
0x256b…2579 at000a = ╱52╱R╱ // 0x2575 @0xa
0x256b…2579 at000b = ╱45╱E╱ // 0x2576 @0xb
0x256b…2579 at000c = ╱53╱S╱ // 0x2577 @0xc
0x256b…2579 at000d = EOL // 0x2578 @0xd
0x256b…2579 }
0x2579…257f bb6d 3740 //
0x2579…257f LineComal80 {
0x2579…257f ptr = 0xbb6d // 0x2579 @0x0
0x2579…257f lno = 0x0e9c // 0x257b @0x2
0x2579…257f at0004 = ╱89╱ // ╱ // 0x257d @0x4
0x2579…257f at0005 = EOL // 0x257e @0x5
0x2579…257f }
0x257f…259e bb8c 3750 PROC PRINTREL // RELEASE PRINTER
0x257f…259e LineComal80 {
0x257f…259e ptr = 0xbb8c // 0x257f @0x0
0x257f…259e lno = 0x0ea6 // 0x2581 @0x2
0x257f…259e at0004 = ╱9e42╱ PROC ╱ // 0x2583 @0x4
0x257f…259e at0006 = ╱50╱P╱ // 0x2585 @0x6
0x257f…259e at0007 = ╱52╱R╱ // 0x2586 @0x7
0x257f…259e at0008 = ╱49╱I╱ // 0x2587 @0x8
0x257f…259e at0009 = ╱4e╱N╱ // 0x2588 @0x9
0x257f…259e at000a = ╱54╱T╱ // 0x2589 @0xa
0x257f…259e at000b = ╱52╱R╱ // 0x258a @0xb
0x257f…259e at000c = ╱45╱E╱ // 0x258b @0xc
0x257f…259e at000d = ╱4c╱L╱ // 0x258c @0xd
0x257f…259e at000e = ╱89╱ // ╱ // 0x258d @0xe
0x257f…259e at000f = ╱52╱R╱ // 0x258e @0xf
0x257f…259e at0010 = ╱45╱E╱ // 0x258f @0x10
0x257f…259e at0011 = ╱4c╱L╱ // 0x2590 @0x11
0x257f…259e at0012 = ╱45╱E╱ // 0x2591 @0x12
0x257f…259e at0013 = ╱41╱A╱ // 0x2592 @0x13
0x257f…259e at0014 = ╱53╱S╱ // 0x2593 @0x14
0x257f…259e at0015 = ╱45╱E╱ // 0x2594 @0x15
0x257f…259e at0016 = ╱20╱…╱ // 0x2595 @0x16
0x257f…259e at0017 = ╱50╱P╱ // 0x2596 @0x17
0x257f…259e at0018 = ╱52╱R╱ // 0x2597 @0x18
0x257f…259e at0019 = ╱49╱I╱ // 0x2598 @0x19
0x257f…259e at001a = ╱4e╱N╱ // 0x2599 @0x1a
0x257f…259e at001b = ╱54╱T╱ // 0x259a @0x1b
0x257f…259e at001c = ╱45╱E╱ // 0x259b @0x1c
0x257f…259e at001d = ╱52╱R╱ // 0x259c @0x1d
0x257f…259e at001e = EOL // 0x259d @0x1e
0x257f…259e }
0x259e…25a7 bb95 3760 SELECT OUTPUT "T"
0x259e…25a7 LineComal80 {
0x259e…25a7 ptr = 0xbb95 // 0x259e @0x0
0x259e…25a7 lno = 0x0eb0 // 0x25a0 @0x2
0x259e…25a7 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x25a2 @0x4
0x259e…25a7 at0005 = ╱22╱"╱ // 0x25a3 @0x5
0x259e…25a7 at0006 = ╱54╱T╱ // 0x25a4 @0x6
0x259e…25a7 at0007 = ╱22╱"╱ // 0x25a5 @0x7
0x259e…25a7 at0008 = EOL // 0x25a6 @0x8
0x259e…25a7 }
0x25a7…25b5 0000 3770 ENDPROC PRINTREL
0x25a7…25b5 LineComal80 {
0x25a7…25b5 ptr = 0x0000 // 0x25a7 @0x0
0x25a7…25b5 lno = 0x0eba // 0x25a9 @0x2
0x25a7…25b5 at0004 = ╱9f╱ ENDPROC ╱ // 0x25ab @0x4
0x25a7…25b5 at0005 = ╱50╱P╱ // 0x25ac @0x5
0x25a7…25b5 at0006 = ╱52╱R╱ // 0x25ad @0x6
0x25a7…25b5 at0007 = ╱49╱I╱ // 0x25ae @0x7
0x25a7…25b5 at0008 = ╱4e╱N╱ // 0x25af @0x8
0x25a7…25b5 at0009 = ╱54╱T╱ // 0x25b0 @0x9
0x25a7…25b5 at000a = ╱52╱R╱ // 0x25b1 @0xa
0x25a7…25b5 at000b = ╱45╱E╱ // 0x25b2 @0xb
0x25a7…25b5 at000c = ╱4c╱L╱ // 0x25b3 @0xc
0x25a7…25b5 at000d = EOL // 0x25b4 @0xd
0x25a7…25b5 }
0x25b5…25c0 f0 bc de 08 86 42 4c 47 4e 52 ef ┆ BLGNR ┆
0x25c0…25e0 f0 22 20 20 22 ea 42 54 58 54 ef f0 22 47 41 4d 4d 45 4c 20 53 41 4c 44 4f 22 ea 53 55 4d f0 30 ┆ " " BTXT "GAMMEL SALDO" SUM 0┆
0x25e0…25e6 2e 30 f8 00 00 00 ┆.0 ┆
0x25e6…2606 (126,) 00 00 00 00 00 ff 1e bc f0 0a 92 22 3c 53 3e 20 20 44 41 54 4f 20 20 20 20 42 49 4c 41 47 20 20 ┆ "<S> DATO BILAG ┆
0x2606…2626 54 45 4b 53 54 22 ea d2 ed 34 37 f2 2f 00 ee ea 22 44 45 42 45 54 42 45 4c 5c 42 20 20 4b 52 45 ┆TEKST" 47 / "DEBETBELØB KRE┆
0x2626…2633 44 49 54 42 45 4c 5c 42 22 ff 2f b2 fa ┆DITBELØB" / ┆
0x2633…2653 (127,) 0a 92 22 21 20 20 20 53 41 4c 44 4f 22 ff 5c bc 72 0b 92 d2 ed 34 32 f2 2a 00 ee ea d0 ed 51 5f ┆ "! SALDO" Ø r 42 * Q_┆
0x2653…2673 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea 22 21 22 ea ff 79 bc 7c 0b 86 ┆K 9 2 67 C "!" y ø ┆
0x2673…2680 54 4f 54 ed 31 f2 01 00 ee f0 54 4f 54 ┆TOT 1 TOT┆
0x2680…26a0 (128,) ed 31 f2 01 00 ee e5 51 5f 4b ff 80 bc 86 0b 9a 32 ff ad bc 90 0b 92 d2 ed 35 35 f2 37 00 ee ea ┆ 1 Q_K 2 55 7 ┆
0x26a0…26c0 d0 ed 51 5f 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea 22 21 22 ea ff ca ┆ Q_K 9 2 67 C "!" ┆
0x26c0…26cd bc 9a 0b 86 54 4f 54 ed 32 f2 02 00 ee ┆ TOT 2 ┆
0x26cd…26ed (129,) f0 54 4f 54 ed 32 f2 02 00 ee e5 51 5f 4b ff d6 bc a4 0b 9c ff 40 b4 ae 0b 92 ff d0 bc a5 0b 92 ┆ TOT 2 Q_K @ ┆
0x26ed…270d d0 ed c4 ed 53 55 4d ee ec 39 f2 09 00 ec 32 f2 02 00 ee ea ff 79 ac f2 08 86 42 4d 4f 4d 53 f0 ┆ SUM 9 2 y BMOMS ┆
0x270d…271a 30 f2 00 00 ea 44 4b f0 c8 ed 4b 54 4f ┆0 DK KTO┆
0x271a…273a (130,) 5f 50 52 49 4d 4f ee ea 53 55 4d f0 4b 54 4f 5f 50 52 49 4d 4f ff f0 bc e8 08 86 42 4c 47 4e 52 ┆_PRIMO SUM KTO_PRIMO BLGNR┆
0x273a…275a ef f0 22 20 20 22 ea 42 54 58 54 ef f0 22 47 41 4d 4d 45 4c 20 53 41 4c 44 4f 22 ff 54 bd 38 09 ┆ " " BTXT "GAMMEL SALDO" T 8 ┆
0x275a…2767 9b 26 44 4b df 44 45 42 45 54 b5 ff 68 ┆ &DK DEBET h┆
0x2767…2787 (131,) bd 42 09 86 53 55 4d f0 53 55 4d e5 42 42 45 4c 5c 42 ff 6f bd 4c 09 9a 27 ff 83 bd 56 09 86 53 ┆ B SUM SUM BBELØB o L ' V S┆
0x2787…27a7 55 4d f0 53 55 4d e6 42 42 45 4c 5c 42 ff 12 ad 60 09 9c ff 39 32 32 31 33 38 00 00 06 00 1f 1f ┆UM SUM BBELØB ` 922138 ┆
0x27a7…27b4 1f 20 20 00 00 05 00 1f 1f 1f 1f 1f 1f ┆ ┆
0x27b4…27d4 (132,) 1f 1f 4f 44 4c 41 53 20 4c 45 4d 4d 41 47 00 00 14 00 d7 bd 8c 0a 86 4c 49 4e 5f 54 f0 39 f2 09 ┆ ODLAS LEMMAG LIN_T 9 ┆
0x27d4…27f4 00 ea 53 49 44 45 4e 52 f0 53 49 44 45 4e 52 e5 31 f2 01 00 ff ff bd 96 0a 92 22 2a 2a 2a 20 22 ┆ SIDENR SIDENR 1 "*** "┆
0x27f4…2801 ea 53 59 53 54 5f 4e 41 56 4e ef ea 22 ┆ SYST_NAVN "┆
0x2801…2821 (133,) 20 2a 2a 2a 22 ea d2 ed 34 32 f2 2a 00 ee ea ff 4c be a0 0a 92 22 2a 2a 2a 20 55 44 53 4b 52 45 ┆ ***" 42 * L "*** UDSKRE┆
0x2821…2841 56 45 54 20 50 52 2e 20 22 ea 53 59 53 54 5f 44 41 54 ef ed 31 f2 01 00 f1 32 f2 02 00 ee ea 22 ┆VET PR. " SYST_DAT 1 2 "┆
0x2841…284e 2e 22 ea 53 59 53 54 5f 44 41 54 ef ed ┆." SYST_DAT ┆
0x284e…286e (134,) 33 f2 03 00 f1 32 f2 02 00 ee ea 22 2e 22 ea ff 7b be aa 0a 92 53 59 53 54 5f 44 41 54 ef ed 35 ┆3 2 "." æ SYST_DAT 5┆
0x286e…288e f2 05 00 f1 32 f2 02 00 ee ea 22 20 2a 2a 2a 20 53 49 44 45 3a 20 22 ea 53 49 44 45 4e 52 ff 81 ┆ 2 " *** SIDE: " SIDENR ┆
0x288e…289b be b4 0a 92 ff ba be be 0a 92 22 46 69 ┆ "Fi┆
0x289b…28bb (135,) 72 6d 61 6e 61 76 6e 3a 20 22 ea 46 49 52 4d 41 4e 41 56 4e ef ea d2 ed 35 35 f2 37 00 ee ea 22 ┆rmanavn: " FIRMANAVN 55 7 "┆
0x28bb…28db 2a 2a 20 4b 4f 4e 54 4f 4b 4f 52 54 20 2a 2a 22 ff c0 be c8 0a 92 ff 0a bf d2 0a 92 22 2a 2a 20 ┆** KONTOKORT **" "** ┆
0x28db…28e8 4b 4f 4e 54 4f 4e 52 3a 20 22 ea 4b 54 ┆KONTONR: " KT┆
0x28e8…2908 (136,) 4f 4e 52 ef ea d2 ed 32 35 f2 19 00 ee ea 22 4b 4f 4e 54 4f 4e 41 56 4e 3a 20 22 ea 4b 54 4f 5f ┆ONR 25 "KONTONAVN: " KTO_┆
0x2908…2928 4e 41 56 4e ef ea d2 ed 37 38 f2 4e 00 ee ea 22 2a 2a 22 ff 3c bf dc 0a 92 22 3c 53 3e 2d 2d 2d ┆NAVN 78 N "**" < "<S>---┆
0x2928…2935 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x2935…2955 (137,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 6c bf e6 0a 92 22 2d ┆-----------------------" l "-┆
0x2955…2975 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2975…2982 2d 2d 2d 2d 2d 2d 2d 22 ff b0 bf f0 0a ┆-------" ┆
0x2982…29a2 (138,) 92 22 3c 53 3e 20 20 44 41 54 4f 20 20 20 20 42 49 4c 41 47 20 20 54 45 4b 53 54 22 ea d2 ed 34 ┆ "<S> DATO BILAG TEKST" 4┆
0x29a2…29c2 37 f2 2f 00 ee ea 22 44 45 42 45 54 42 45 4c 5c 42 20 20 4b 52 45 44 49 54 42 45 4c 5c 42 22 ff ┆7 / "DEBETBELØB KREDITBELØB" ┆
0x29c2…29cf c1 bf fa 0a 92 22 20 20 20 20 53 41 4c ┆ " SAL┆
0x29cf…29ef (139,) 44 4f 22 ff f4 bf 04 0b 92 22 3c 53 3e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆DO" "<S>-------------------┆
0x29ef…2a0f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 23 c0 0e 0b 92 22 2d 2d 2d ┆---------------------" # "---┆
0x2a0f…2a1c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x2a1c…2a3c (140,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 2f c0 18 0b 9f 4e 59 ┆-----------------------" / NY┆
0x2a3c…2a5c 53 49 44 45 ff 34 c0 22 0b ff 61 c0 2c 0b 9e 30 53 4b 52 49 56 5f 4c 49 4e ed 51 5f 44 ef ec 51 ┆SIDE 4 " a , 0SKRIV_LIN Q_D Q┆
0x2a5c…2a69 5f 42 ef ec 51 5f 54 ef ec 51 5f 4d ec ┆_B Q_T Q_M ┆
0x2a69…2a89 (141,) 51 5f 4b ec 51 5f 44 4b ee ff 85 c0 36 0b 82 00 4c 49 4e 5f 54 e5 36 f2 06 00 e1 4d 41 58 5f 4c ┆Q_K Q_DK 6 LIN_T 6 MAX_L┆
0x2a89…2aa9 49 4e b5 9d 53 49 44 45 53 4b 49 46 54 ff 9b c0 40 0b 86 4c 49 4e 5f 54 f0 4c 49 4e 5f 54 e5 31 ┆IN SIDESKIFT @ LIN_T LIN_T 1┆
0x2aa9…2ab6 f2 01 00 ff e2 c0 4a 0b 92 51 5f 44 ef ┆ J Q_D ┆
0x2ab6…2ad6 (142,) ed 31 f2 01 00 f1 32 f2 02 00 ee ea 22 2e 22 ea 51 5f 44 ef ed 33 f2 03 00 f1 32 f2 02 00 ee ea ┆ 1 2 "." Q_D 3 2 ┆
0x2ad6…2af6 22 2e 22 ea 51 5f 44 ef ed 35 f2 05 00 f1 32 f2 02 00 ee ea d2 ed 31 31 f2 0b 00 ee ea ff 12 c1 ┆"." Q_D 5 2 11 ┆
0x2af6…2b03 54 0b 92 51 5f 42 ef ea d2 ed 31 31 f2 ┆T Q_B 11 ┆
0x2b03…2b23 (143,) 0b 00 ee ea 51 5f 42 ef ea d2 ed 31 38 f2 12 00 ee ea 51 5f 54 ef ea d2 ed 34 31 f2 29 00 ee ea ┆ Q_B 18 Q_T 41 ) ┆
0x2b23…2b43 ff 34 c1 5e 0b 82 00 51 5f 4d e1 30 f2 00 00 b5 92 d0 ed 51 5f 4d ec 39 f2 09 00 ec 32 f2 02 00 ┆ 4 ^ Q_M 0 Q_M 9 2 ┆
0x2b43…2b50 ee ea ff 49 c3 68 0b 9b 31 51 5f 44 4b ┆ I h 1Q_DK┆
0x2b50…2b70 (144,) df 44 45 42 45 54 b5 ff 73 c1 72 0b 92 d2 ed 34 32 f2 2a 00 ee ea d0 ed 51 5f 4b ec 39 f2 09 00 ┆ DEBET s r 42 * Q_K 9 ┆
0x2b70…2b90 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea 22 21 22 ea ff 90 c1 7c 0b 86 54 4f 54 ed 31 f2 ┆ 2 67 C "!" ø TOT 1 ┆
0x2b90…2b9d 01 00 ee f0 54 4f 54 ed 31 f2 01 00 ee ┆ TOT 1 ┆
0x2b9d…2bbd (145,) e5 51 5f 4b ff 97 c1 86 0b 9a 00 ff c4 c1 90 0b 92 d2 ed 35 35 f2 37 00 ee ea d0 ed 51 5f 4b ec ┆ Q_K 55 7 Q_K ┆
0x2bbd…2bdd 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea 22 21 22 ea ff e1 c1 9a 0b 86 54 4f ┆9 2 67 C "!" TO┆
0x2bdd…2bea 54 ed 32 f2 02 00 ee f0 54 4f 54 ed 32 ┆T 2 TOT 2┆
0x2bea…2c0a (146,) f2 02 00 ee e5 51 5f 4b ff e7 c1 a4 0b 9c ff 01 c2 a5 0b 92 d0 ed c4 ed 53 55 4d ee ec 39 f2 09 ┆ Q_K SUM 9 ┆
0x2c0a…2c2a 00 ec 32 f2 02 00 ee ea ff 07 c2 ae 0b 92 ff 16 c2 b8 0b 9f 53 4b 52 49 56 5f 4c 49 4e ff 1b c2 ┆ 2 SKRIV_LIN ┆
0x2c2a…2c37 c2 0b ff 28 c2 cc 0b 9e 33 41 46 53 4c ┆ ( 3AFSL┆
0x2c37…2c57 (147,) 55 54 ff 45 c2 d6 0b b4 00 49 f0 4c 49 4e 5f 54 b7 4d 41 58 5f 4c 49 4e e6 36 f2 06 00 bb 92 ff ┆UT E I LIN_T MAX_LIN 6 ┆
0x2c57…2c77 5d c2 e0 0b 86 4c 49 4e 5f 54 f0 4d 41 58 5f 4c 49 4e e6 35 f2 05 00 ff 8f c2 ea 0b 92 22 3c 53 ┆Å LIN_T MAX_LIN 5 "<S┆
0x2c77…2c84 3e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆>------------┆
0x2c84…2ca4 (148,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 04 c3 f4 ┆---------------------------" ┆
0x2ca4…2cc4 0b 92 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "-----------------------------┆
0x2cc4…2cd1 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff ┆-----------" ┆
0x2cd1…2cf1 (149,) 3c b5 fe 0b 92 d2 ed 35 34 f2 36 00 ee ea d0 ed 54 4f 54 ed 31 f2 01 00 ee ec 39 f2 09 00 ec 32 ┆< 54 6 TOT 1 9 2┆
0x2cf1…2d11 f2 02 00 ee ea d2 ed 35 35 f2 37 00 ee ea d0 ed 54 4f 54 ed 32 f2 02 00 ee ec 39 f2 09 00 ec 32 ┆ 55 7 TOT 2 9 2┆
0x2d11…2d1e f2 02 00 ee ff 3c b5 fe 0b 92 d2 ed 34 ┆ < 4┆
0x2d1e…2d3e (150,) 32 f2 2a 00 ee ea d0 ed 54 4f 54 ed 31 f2 01 00 ee ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 35 ┆2 * TOT 1 9 2 5┆
0x2d3e…2d5e 35 f2 37 00 ee ea d0 ed 54 4f 54 ed 32 f2 02 00 ee ec 39 f2 09 00 ec 32 f2 02 00 ee ff 72 c3 72 ┆5 7 TOT 2 9 2 r r┆
0x2d5e…2d6b 0b 92 d2 ed 34 32 f2 2a 00 ee ea d0 ed ┆ 42 * ┆
0x2d6b…2d8b (151,) 51 5f 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea ff 8f c3 7c 0b 86 54 4f ┆Q_K 9 2 67 C ø TO┆
0x2d8b…2dab 54 ed 31 f2 01 00 ee f0 54 4f 54 ed 31 f2 01 00 ee e5 51 5f 4b ff 96 c3 86 0b 9a 32 ff 9b c4 90 ┆T 1 TOT 1 Q_K 2 ┆
0x2dab…2db8 0b 92 d2 ed 35 35 f2 37 00 ee ea d0 ed ┆ 55 7 ┆
0x2db8…2dd8 (152,) 51 5f 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea ff a9 b5 1c 0c 92 d2 ed ┆Q_K 9 2 67 C ┆
0x2dd8…2df8 35 35 f2 37 00 ee ea d0 ed 54 4f 54 ed 31 f2 01 00 ee e6 54 4f 54 ed 32 f2 02 00 ee ec 39 f2 09 ┆55 7 TOT 1 TOT 2 9 ┆
0x2df8…2e05 00 ec 32 f2 02 00 ee ff f8 b5 3a 0c 92 ┆ 2 : ┆
0x2e05…2e25 (153,) d2 ed 34 32 f2 2a 00 ee ea d0 ed 54 4f 54 ed 32 f2 02 00 ee e6 54 4f 54 ed 31 f2 01 00 ee ec 39 ┆ 42 * TOT 2 TOT 1 9┆
0x2e25…2e45 f2 09 00 ec 32 f2 02 00 ee ff 6a b6 58 0c 92 d2 ed 31 38 f2 12 00 ee ea 22 42 41 4c 41 4e 43 45 ┆ 2 j X 18 "BALANCE┆
0x2e45…2e52 22 ea d2 ed 34 32 f2 2a 00 ee ea d0 ed ┆" 42 * ┆
0x2e52…2e72 (154,) 54 4f 54 ed 31 f2 01 00 ee ec 39 f2 09 00 ec 32 f2 02 00 ee ea 22 20 22 ea d0 ed 54 4f 54 ed 31 ┆TOT 1 9 2 " " TOT 1┆
0x2e72…2e92 f2 01 00 ee ec 39 f2 09 00 ec 32 f2 02 00 ee ff 39 32 32 31 33 38 00 00 06 00 1f 1f 1f 20 20 00 ┆ 9 2 922138 ┆
0x2e92…2e9f 00 05 00 1f 1f 1f 1f 1f 1f 1f 1f 4f 44 ┆ OD┆
0x2e9f…2ebf (155,) 4c 41 53 20 4c 45 4d 4d 41 47 00 00 14 00 b8 c4 9a 0b 86 54 4f 54 ed 32 f2 02 00 ee f0 54 4f 54 ┆LAS LEMMAG TOT 2 TOT┆
0x2ebf…2edf ed 32 f2 02 00 ee e5 51 5f 4b ff be c4 a4 0b 9c ff 01 c2 a5 0b 92 d0 ed c4 ed 53 55 4d ee ec 31 ┆ 2 Q_K SUM 1┆
0x2edf…2eec 30 f2 0a 00 ec 32 f2 02 00 ee ea ff 80 ┆0 2 ┆
0x2eec…2f0c (156,) c6 ec 09 9e 2a 53 49 44 45 53 4b 49 46 54 ff 0e c5 ba 09 9b 00 54 4f 54 ed 31 f2 01 00 ee e1 30 ┆ *SIDESKIFT TOT 1 0┆
0x2f0c…2f2c f2 00 00 d8 54 4f 54 ed 32 f2 02 00 ee e1 30 f2 00 00 b5 ff 40 c5 c4 09 92 22 3c 53 3e 2d 2d 2d ┆ TOT 2 0 @ "<S>---┆
0x2f2c…2f39 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x2f39…2f59 (157,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 6f c5 ce 09 92 22 2d ┆-----------------------" o "-┆
0x2f59…2f79 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2f79…2f86 2d 2d 2d 2d 2d 2d 22 ff b3 c5 d8 09 92 ┆------" ┆
0x2f86…2fa6 (158,) d2 ed 31 38 f2 12 00 ee ea 22 54 52 41 4e 53 50 4f 52 54 22 ea d2 ed 35 34 f2 36 00 ee ea d0 ed ┆ 18 "TRANSPORT" 54 6 ┆
0x2fa6…2fc6 54 4f 54 ed 31 f2 01 00 ee ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea ff cf ┆TOT 1 9 2 67 C ┆
0x2fc6…2fd3 c5 e2 09 92 d0 ed 54 4f 54 ed 32 f2 02 ┆ TOT 2 ┆
0x2fd3…2ff3 (159,) 00 ee ec 39 f2 09 00 ec 32 f2 02 00 ee ff e5 c5 ec 09 86 4c 49 4e 5f 54 f0 4c 49 4e 5f 54 e5 32 ┆ 9 2 LIN_T LIN_T 2┆
0x2ff3…3013 f2 02 00 ff f1 c5 f6 09 9d 4e 59 53 49 44 45 ff 35 c6 00 0a 92 d2 ed 31 38 f2 12 00 ee ea 22 54 ┆ NYSIDE 5 18 "T┆
0x3013…3020 52 41 4e 53 50 4f 52 54 22 ea d2 ed 35 ┆RANSPORT" 5┆
0x3020…3040 (160,) 34 f2 36 00 ee ea d0 ed 54 4f 54 ed 31 f2 01 00 ee ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 ┆4 6 TOT 1 9 2 6┆
0x3040…3060 37 f2 43 00 ee ea ff 51 c6 0a 0a 92 d0 ed 54 4f 54 ed 32 f2 02 00 ee ec 39 f2 09 00 ec 32 f2 02 ┆7 C Q TOT 2 9 2 ┆
0x3060…306d 00 ee ff 67 c6 14 0a 86 4c 49 4e 5f 54 ┆ g LIN_T┆
0x306d…308d (161,) f0 4c 49 4e 5f 54 e5 31 f2 01 00 ff 6e c6 1e 0a 9a 00 ff 7a c6 28 0a 9d 4e 59 53 49 44 45 ff 97 ┆ LIN_T 1 n z ( NYSIDE ┆
0x308d…30ad af 32 0a 9c ff a5 c6 f6 09 9b 2b 54 4f 54 ed 31 f2 01 00 ee e1 30 f2 00 00 d8 54 4f 54 ed 32 f2 ┆ 2 +TOT 1 0 TOT 2 ┆
0x30ad…30ba 02 00 ee e1 30 f2 00 00 b5 ff d6 c6 00 ┆ 0 ┆
0x30ba…30da (162,) 0a 92 22 3c 53 3e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "<S>--------------------------┆
0x30da…30fa 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff c6 d0 0a 0a 92 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆------------" "------------┆
0x30fa…3107 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x3107…3127 (163,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 49 c7 d8 09 92 d2 ed 31 38 f2 12 00 ee ea 22 54 ┆--------------" I 18 "T┆
0x3127…3147 52 41 4e 53 50 4f 52 54 22 ea d2 ed 35 34 f2 36 00 ee ea d0 ed 54 4f 54 ed 31 f2 01 00 ee ec 39 ┆RANSPORT" 54 6 TOT 1 9┆
0x3147…3154 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 ┆ 2 6┆
0x3154…3174 (164,) 37 f2 43 00 ee ea ff 65 c7 e2 09 92 d0 ed 54 4f 54 ed 32 f2 02 00 ee ec 39 f2 09 00 ec 32 f2 02 ┆7 C e TOT 2 9 2 ┆
0x3174…3194 00 ee ff 7b c7 ec 09 86 4c 49 4e 5f 54 f0 4c 49 4e 5f 54 e5 32 f2 02 00 ff 87 c7 f6 09 9d 4e 59 ┆ æ LIN_T LIN_T 2 NY┆
0x3194…31a1 53 49 44 45 ff cb c7 00 0a 92 d2 ed 31 ┆SIDE 1┆
0x31a1…31c1 (165,) 38 f2 12 00 ee ea 22 54 52 41 4e 53 50 4f 52 54 22 ea d2 ed 35 34 f2 36 00 ee ea d0 ed 54 4f 54 ┆8 "TRANSPORT" 54 6 TOT┆
0x31c1…31e1 ed 31 f2 01 00 ee ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea ff e7 c7 0a 0a ┆ 1 9 2 67 C ┆
0x31e1…31ee 92 d0 ed 54 4f 54 ed 32 f2 02 00 ee ec ┆ TOT 2 ┆
0x31ee…320e (166,) 39 f2 09 00 ec 32 f2 02 00 ee ff fd c7 14 0a 86 4c 49 4e 5f 54 f0 4c 49 4e 5f 54 e5 31 f2 01 00 ┆9 2 LIN_T LIN_T 1 ┆
0x320e…322e ff 04 c8 1e 0a 9a 2c ff 10 c8 28 0a 9d 4e 59 53 49 44 45 ff ba d0 1e 0a 9c ff 25 c8 32 0a 9f 53 ┆ , ( NYSIDE % 2 S┆
0x322e…323b 49 44 45 53 4b 49 46 54 ff 32 c8 3c 0a ┆IDESKIFT 2 < ┆
0x323b…325b (167,) 9e 2c 4e 59 53 49 44 45 ff 46 c8 46 0a 9b 2d 4f 55 54 5f 57 41 59 ef df 22 50 22 b5 ff 5e c8 50 ┆ ,NYSIDE F F -OUT_WAY "P" ^ P┆
0x325b…327b 0a b4 00 49 f0 4c 49 4e 5f 54 b7 4d 41 58 5f 4c 49 4e bb 92 ff 65 c8 5a 0a 9a 2e ff 93 c8 64 0a ┆ I LIN_T MAX_LIN e Z . d ┆
0x327b…3288 91 22 3c 53 43 35 35 32 33 3e 4e 7b 73 ┆ "<SC5523>Næs┆
0x3288…32a8 (168,) 74 65 20 73 69 64 65 20 2d 20 74 72 79 6b 20 52 45 54 55 52 4e 22 f1 53 56 41 52 ef ff 99 c8 6e ┆te side - tryk RETURN" SVAR n┆
0x32a8…32c8 0a a0 ff 9f c8 78 0a 9c ff 04 d3 82 0a 86 4c 49 4e 5f 54 f0 39 f2 09 00 ea 53 49 44 45 4e 52 f0 ┆ x LIN_T 9 SIDENR ┆
0x32c8…32d5 53 49 44 45 4e 52 e5 31 f2 01 00 ff ff ┆SIDENR 1 ┆
0x32d5…32f5 (169,) bd 96 0a 92 22 2a 2a 2a 20 22 ea 53 59 53 54 5f 4e 41 56 4e ef ea 22 20 2a 2a 2a 22 ea d2 ed 34 ┆ "*** " SYST_NAVN " ***" 4┆
0x32f5…3315 32 f2 2a 00 ee ea ff 12 c9 8c 0a 92 22 2a 2a 2a 20 22 ea 53 59 53 54 5f 4e 41 56 4e ef ea 22 20 ┆2 * "*** " SYST_NAVN " ┆
0x3315…3322 2a 2a 2a 22 ea d2 ed 34 31 f2 29 00 ee ┆***" 41 ) ┆
0x3322…3342 (170,) ea ff 5f c9 96 0a 92 22 2a 2a 2a 20 55 44 53 4b 52 45 56 45 54 20 50 52 2e 20 22 ea 53 59 53 54 ┆ _ "*** UDSKREVET PR. " SYST┆
0x3342…3362 5f 44 41 54 ef ed 31 f2 01 00 f1 32 f2 02 00 ee ea 22 2e 22 ea 53 59 53 54 5f 44 41 54 ef ed 33 ┆_DAT 1 2 "." SYST_DAT 3┆
0x3362…336f f2 03 00 f1 32 f2 02 00 ee ea 22 2e 22 ┆ 2 "."┆
0x336f…338f (171,) ea ff 8e c9 a0 0a 92 53 59 53 54 5f 44 41 54 ef ed 35 f2 05 00 f1 32 f2 02 00 ee ea 22 20 2a 2a ┆ SYST_DAT 5 2 " **┆
0x338f…33af 2a 20 53 49 44 45 3a 20 22 ea 53 49 44 45 4e 52 ff 94 c9 aa 0a 92 ff cd c9 b4 0a 92 22 46 69 72 ┆* SIDE: " SIDENR "Fir┆
0x33af…33bc 6d 61 6e 61 76 6e 3a 20 22 ea 46 49 52 ┆manavn: " FIR┆
0x33bc…33dc (172,) 4d 41 4e 41 56 4e ef ea d2 ed 35 34 f2 36 00 ee ea 22 2a 2a 20 4b 4f 4e 54 4f 4b 4f 52 54 20 2a ┆MANAVN 54 6 "** KONTOKORT *┆
0x33dc…33fc 2a 22 ff d3 c9 be 0a 92 ff 1d ca c8 0a 92 22 2a 2a 20 4b 4f 4e 54 4f 4e 52 3a 20 22 ea 4b 54 4f ┆*" "** KONTONR: " KTO┆
0x33fc…3409 4e 52 ef ea d2 ed 32 35 f2 19 00 ee ea ┆NR 25 ┆
0x3409…3429 (173,) 22 4b 4f 4e 54 4f 4e 41 56 4e 3a 20 22 ea 4b 54 4f 5f 4e 41 56 4e ef ea d2 ed 37 37 f2 4d 00 ee ┆"KONTONAVN: " KTO_NAVN 77 M ┆
0x3429…3449 ea 22 2a 2a 22 ff 4e ca d2 0a 92 22 3c 53 3e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "**" N "<S>-----------------┆
0x3449…3456 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x3456…3476 (174,) 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 7e ca dc 0a 92 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------" ü "----------------┆
0x3476…3496 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff c2 ca e6 0a 92 22 ┆------------------------" "┆
0x3496…34a3 3c 53 3e 20 20 44 41 54 4f 20 20 20 20 ┆<S> DATO ┆
0x34a3…34c3 (175,) 42 49 4c 41 47 20 20 54 45 4b 53 54 22 ea d2 ed 34 37 f2 2f 00 ee ea 22 44 45 42 45 54 42 45 4c ┆BILAG TEKST" 47 / "DEBETBEL┆
0x34c3…34e3 5c 42 20 20 4b 52 45 44 49 54 42 45 4c 5c 42 22 ff d3 ca f0 0a 92 22 20 20 20 20 53 41 4c 44 4f ┆ØB KREDITBELØB" " SALDO┆
0x34e3…34f0 22 ff 05 cb fa 0a 92 22 3c 53 3e 2d 2d ┆" "<S>--┆
0x34f0…3510 (176,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3510…3530 2d 2d 2d 2d 2d 22 ff 34 cb 04 0b 92 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-----" 4 "-------------------┆
0x3530…353d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x353d…355d (177,) 2d 2d 2d 2d 2d 2d 2d 22 ff 40 cb 0e 0b 9f 4e 59 53 49 44 45 ff 45 cb 18 0b ff 5d d1 22 0b 9e 2f ┆-------" @ NYSIDE E Å " /┆
0x355d…357d 53 4b 52 49 56 5f 4c 49 4e ed 51 5f 44 ef ec 51 5f 42 ef ec 51 5f 54 ef ec 51 5f 4d ec 51 5f 4b ┆SKRIV_LIN Q_D Q_B Q_T Q_M Q_K┆
0x357d…358a ec 51 5f 44 4b ee ff 96 cb 36 0b 82 00 ┆ Q_DK 6 ┆
0x358a…35aa (178,) 4c 49 4e 5f 54 e5 36 f2 06 00 e1 4d 41 58 5f 4c 49 4e b5 9d 53 49 44 45 53 4b 49 46 54 ff ac cb ┆LIN_T 6 MAX_LIN SIDESKIFT ┆
0x35aa…35ca 36 0b 86 4c 49 4e 5f 54 f0 4c 49 4e 5f 54 e5 31 f2 01 00 ff f3 cb 40 0b 92 51 5f 44 ef ed 31 f2 ┆6 LIN_T LIN_T 1 @ Q_D 1 ┆
0x35ca…35d7 01 00 f1 32 f2 02 00 ee ea 22 2e 22 ea ┆ 2 "." ┆
0x35d7…35f7 (179,) 51 5f 44 ef ed 33 f2 03 00 f1 32 f2 02 00 ee ea 22 2e 22 ea 51 5f 44 ef ed 35 f2 05 00 f1 32 f2 ┆Q_D 3 2 "." Q_D 5 2 ┆
0x35f7…3617 02 00 ee ea d2 ed 31 31 f2 0b 00 ee ea ff 23 cc 4a 0b 92 51 5f 42 ef ea d2 ed 31 31 f2 0b 00 ee ┆ 11 # J Q_B 11 ┆
0x3617…3624 ea 51 5f 42 ef ea d2 ed 31 38 f2 12 00 ┆ Q_B 18 ┆
0x3624…3644 (180,) ee ea 51 5f 54 ef ea d2 ed 34 31 f2 29 00 ee ea ff 45 cc 54 0b 82 00 51 5f 4d e1 30 f2 00 00 b5 ┆ Q_T 41 ) E T Q_M 0 ┆
0x3644…3664 92 d0 ed 51 5f 4d ec 39 f2 09 00 ec 32 f2 02 00 ee ea ff 57 cc 5e 0b 9b 30 51 5f 44 4b df 44 45 ┆ Q_M 9 2 W ^ 0Q_DK DE┆
0x3664…3671 42 45 54 b5 ff 80 cc 68 0b 92 d2 ed 34 ┆BET h 4┆
0x3671…3691 (181,) 32 f2 2a 00 ee ea d0 ed 51 5f 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea ┆2 * Q_K 9 2 67 C ┆
0x3691…36b1 ff 9d cc 72 0b 86 54 4f 54 ed 31 f2 01 00 ee f0 54 4f 54 ed 31 f2 01 00 ee e5 51 5f 4b ff a4 cc ┆ r TOT 1 TOT 1 Q_K ┆
0x36b1…36be 7c 0b 9a 31 ff cd cc 86 0b 92 d2 ed 35 ┆ø 1 5┆
0x36be…36de (182,) 35 f2 37 00 ee ea d0 ed 51 5f 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 37 f2 43 00 ee ea ┆5 7 Q_K 9 2 67 C ┆
0x36de…36fe ff ea cc 90 0b 86 54 4f 54 ed 32 f2 02 00 ee f0 54 4f 54 ed 32 f2 02 00 ee e5 51 5f 4b ff f0 cc ┆ TOT 2 TOT 2 Q_K ┆
0x36fe…370b 9a 0b 9c ff 0b d2 a4 0b 92 d0 ed c4 ed ┆ ┆
0x370b…372b (183,) 53 55 4d ee ec 39 f2 09 00 ec 32 f2 02 00 ee ea ff 10 cd ae 0b 92 ff 1f cd b8 0b 9f 53 4b 52 49 ┆SUM 9 2 SKRI┆
0x372b…374b 56 5f 4c 49 4e ff 24 cd c2 0b ff 81 d1 cc 0b 9e 34 41 46 53 4c 55 54 ff dc d0 d6 0b b4 00 49 f0 ┆V_LIN $ 4AFSLUT I ┆
0x374b…3758 4c 49 4e 5f 54 b7 4d 41 58 5f 4c 49 4e ┆LIN_T MAX_LIN┆
0x3758…3778 (184,) e6 36 f2 06 00 bb 92 ff 66 cd e0 0b 86 4c 49 4e 5f 54 f0 4d 41 58 5f 4c 49 4e e6 35 f2 05 00 ff ┆ 6 f LIN_T MAX_LIN 5 ┆
0x3778…3798 98 cd ea 0b 92 22 3c 53 3e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "<S>-----------------------┆
0x3798…37a5 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x37a5…37c5 (185,) 2d 2d 2d 22 ff 3a cf f4 0b 92 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆---" : "---------------------┆
0x37c5…37e5 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 0c ce fe 0b 92 d2 ed 34 32 f2 2a 00 ┆------------------" 42 * ┆
0x37e5…37f2 ee ea d0 ed 54 4f 54 ed 31 f2 01 00 ee ┆ TOT 1 ┆
0x37f2…3812 (186,) ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 35 35 f2 37 00 ee ea d0 ed 54 4f 54 ed 32 f2 02 00 ee ┆ 9 2 55 7 TOT 2 ┆
0x3812…3832 ec 39 f2 09 00 ec 32 f2 02 00 ee ff 2a ce 08 0c 92 d2 ed 31 38 f2 12 00 ee ea 22 4e 59 20 53 41 ┆ 9 2 * 18 "NY SA┆
0x3832…383f 4c 44 4f 20 20 20 20 22 ea ff 4a ce 12 ┆LDO " J ┆
0x383f…385f (187,) 0c 9b 34 54 4f 54 ed 31 f2 01 00 ee e6 54 4f 54 ed 32 f2 02 00 ee e1 30 f2 00 00 b5 ff 79 ce 1c ┆ 4TOT 1 TOT 2 0 y ┆
0x385f…387f 0c 92 d2 ed 35 35 f2 37 00 ee ea d0 ed 54 4f 54 ed 31 f2 01 00 ee e6 54 4f 54 ed 32 f2 02 00 ee ┆ 55 7 TOT 1 TOT 2 ┆
0x387f…388c ec 39 f2 09 00 ec 32 f2 02 00 ee ff 92 ┆ 9 2 ┆
0x388c…38ac (188,) ce 26 0c 86 54 4f 54 ed 32 f2 02 00 ee f0 54 4f 54 ed 31 f2 01 00 ee ff 99 ce 30 0c 9a 35 ff c8 ┆ & TOT 2 TOT 1 0 5 ┆
0x38ac…38cc ce 3a 0c 92 d2 ed 34 32 f2 2a 00 ee ea d0 ed 54 4f 54 ed 32 f2 02 00 ee e6 54 4f 54 ed 31 f2 01 ┆ : 42 * TOT 2 TOT 1 ┆
0x38cc…38d9 00 ee ec 39 f2 09 00 ec 32 f2 02 00 ee ┆ 9 2 ┆
0x38d9…38f9 (189,) ff e1 ce 44 0c 86 54 4f 54 ed 31 f2 01 00 ee f0 54 4f 54 ed 32 f2 02 00 ee ff e7 ce 4e 0c 9c ff ┆ D TOT 1 TOT 2 N ┆
0x38f9…3919 3a cf 58 0c 92 d2 ed 31 38 f2 12 00 ee ea 22 42 41 4c 41 4e 43 45 22 ea d2 ed 34 32 f2 2a 00 ee ┆: X 18 "BALANCE" 42 * ┆
0x3919…3926 ea d0 ed 54 4f 54 ed 31 f2 01 00 ee ec ┆ TOT 1 ┆
0x3926…3946 (190,) 39 f2 09 00 ec 32 f2 02 00 ee ea 22 20 22 ea d0 ed 54 4f 54 ed 31 f2 01 00 ee ec 39 f2 09 00 ec ┆9 2 " " TOT 1 9 ┆
0x3946…3966 32 f2 02 00 ee ff 4e cf fe 0b 9b 35 4f 55 54 5f 57 41 59 ef df 22 50 22 b5 ff 9e d1 08 0c 92 ff ┆2 N 5OUT_WAY "P" ┆
0x3966…3973 5a cf 1c 0c 92 ff 60 cf 26 0c 9c ff 6c ┆Z ` & l┆
0x3973…3993 (191,) cf 30 0c 9f 41 46 53 4c 55 54 ff 86 cf 3a 0c 9e 36 46 49 4e 44 5f 4b 54 4f ed b6 52 5f 4b 54 4f ┆ 0 AFSLUT : 6FIND_KTO R_KTO┆
0x3993…39b3 4e 52 ef ee ff 94 cf 44 0c 86 4f 4b f0 46 41 4c 53 45 ff b8 cf 4e 0c a9 4b 54 4f 49 44 58 ef ec ┆NR D OK FALSE N KTOIDX ┆
0x39b3…39c0 31 f2 01 00 f1 49 5f 48 5c 4a 52 45 43 ┆1 I_HØJREC┆
0x39c0…39e0 (192,) ec 49 5f 4d 41 58 52 45 43 ff dd cf 58 0c 86 4c 4f 57 f0 31 f2 01 00 ea 48 49 47 48 f0 49 5f 48 ┆ I_MAXREC X LOW 1 HIGH I_H┆
0x39e0…3a00 5c 4a 52 45 43 ea 50 4f 53 f0 32 f2 02 00 ff ee cf 62 0c 9b 37 48 49 47 48 e1 31 f2 01 00 b5 ff ┆ØJREC POS 2 b 7HIGH 1 ┆
0x3a00…3a0d f5 cf 6c 0c 97 38 ff 21 d0 76 0c 86 50 ┆ l 8 ! v P┆
0x3a0d…3a2d (193,) 4f 53 f0 c6 ed ed 48 49 47 48 e6 4c 4f 57 ee e8 32 f2 02 00 e5 2e 35 f8 80 00 00 00 00 00 00 05 ┆OS HIGH LOW 2 .5 ┆
0x3a2d…3a4d ee e5 4c 4f 57 ff 3f d0 80 0c a9 4b 54 4f 49 44 58 ef ec 50 4f 53 f1 4b 54 4f 4e 52 ef ec 52 45 ┆ LOW ? KTOIDX POS KTONR RE┆
0x3a4d…3a5a 43 4e 52 ff 86 b7 bc 0c 9b 39 4b 54 4f ┆CNR 9KTO┆
0x3a5a…3a7a (194,) 4e 52 ef e1 52 5f 4b 54 4f 4e 52 ef b5 ff 39 32 32 31 33 38 00 00 06 00 1f 1f 1f 20 20 00 00 05 ┆NR R_KTONR 922138 ┆
0x3a7a…3a9a 00 1f 1f 1f 1f 1f 1f 1f 1f 4f 44 4c 41 53 20 4c 45 4d 4d 41 47 00 00 14 00 74 72 6f 6b 6f 74 6e ┆ ODLAS LEMMAG trokotn┆
0x3a9a…3aa7 6f 6b 20 66 61 20 67 6e 69 6e 76 69 72 ┆ok fa gninvir┆
0x3aa7…3ac7 (195,) 6b 73 64 55 00 00 18 00 64 ab 84 08 9d 50 52 49 4e 54 52 45 53 ed 22 70 61 70 69 72 22 ec 31 36 ┆ksdU d PRINTRES "papir" 16┆
0x3ac7…3ae7 f2 10 00 ee ff 16 c8 28 0a 9d 4e 59 53 49 44 45 ff 10 c8 14 0a 86 4c 49 4e 5f 54 f0 4c 49 4e 5f ┆ ( NYSIDE LIN_T LIN_┆
0x3ae7…3af4 54 e5 31 f2 01 00 ff 66 cd e0 0b 86 4c ┆T 1 f L┆
0x3af4…3b14 (196,) 49 4e 5f 54 f0 4d 41 58 5f 4c 49 4e e6 33 f2 03 00 ff 72 69 70 61 70 00 00 05 00 0c d1 8e 0d a1 ┆IN_T MAX_LIN 3 ripap ┆
0x3b14…3b34 31 f2 01 00 ec 4c 49 4e 45 ff 3e b9 98 0d 92 22 3c 5a 3e 22 ff 8a aa 20 08 86 50 4e 55 4d 4d 45 ┆1 LINE > "<Z>" PNUMME┆
0x3b34…3b41 52 f0 30 f2 00 00 ff 10 c8 19 0a 86 50 ┆R 0 P┆
0x3b41…3b61 (197,) 4e 55 4d 4d 45 52 f0 50 4e 55 4d 4d 45 52 e5 31 f2 01 00 ff 32 c8 4b 0a 86 50 4e 55 4d 4d 45 52 ┆NUMMER PNUMMER 1 2 K PNUMMER┆
0x3b61…3b81 f0 50 4e 55 4d 4d 45 52 e5 31 f2 01 00 ff 96 cb 2c 0b 82 00 4c 49 4e 5f 54 e5 38 f2 08 00 e1 4d ┆ PNUMMER 1 , LIN_T 8 M┆
0x3b81…3b8e 41 58 5f 4c 49 4e b5 9d 53 49 44 45 53 ┆AX_LIN SIDES┆
0x3b8e…3bae (198,) 4b 49 46 54 ff dc d0 d6 0b b4 00 49 f0 4c 49 4e 5f 54 b7 4d 41 58 5f 4c 49 4e e6 34 f2 04 00 bb ┆KIFT I LIN_T MAX_LIN 4 ┆
0x3bae…3bce 92 ff 54 cf 12 0c 92 ff b4 d1 a5 0b 9b 32 53 55 4d e1 30 f2 00 00 b5 ff bf d1 a6 0b 92 22 20 4b ┆ T 2SUM 0 " K┆
0x3bce…3bdb 22 ea ff c6 d1 a7 0b 9a 33 ff d1 d1 a8 ┆" 3 ┆
0x3bdb…3bfb (199,) 0b 92 22 20 44 22 ea ff 0a cd a9 0b 9c ff 72 69 70 61 70 00 00 05 00 39 32 32 31 33 38 00 00 06 ┆ " D" ripap 922138 ┆
0x3bfb…3c1b 00 1f 1f 1f 20 20 00 00 05 00 1f 1f 1f 1f 1f 1f 1f 1f 4f 44 4c 41 53 20 4c 45 4d 4d 41 47 00 00 ┆ ODLAS LEMMAG ┆
0x3c1b…3c28 14 00 1b d2 a5 0b 9b 32 53 55 4d e0 30 ┆ 2SUM 0┆
0x3c28…3c48 (200,) f2 00 00 b5 ff 25 d2 a6 0b 92 22 4b 22 ea ff 2c d2 a7 0b 9a 33 ff 36 d2 a8 0b 92 22 44 22 ea ff ┆ % "K" , 3 6 "D" ┆
0x3c48…3c68 0a cd a9 0b 9c ff 39 32 32 31 33 38 00 00 06 00 1f 1f 1f 20 20 00 00 05 00 1f 1f 1f 1f 1f 1f 1f ┆ 922138 ┆
0x3c68…3c75 1f 4f 44 4c 41 53 20 4c 45 4d 4d 41 47 ┆ ODLAS LEMMAG┆
0x3c75…3c95 (201,) 00 00 14 00 8f d2 8c 0a 92 22 2a 2a 2a 20 22 ea 53 59 53 54 5f 4e 41 56 4e ef ea 22 20 2a 2a 2a ┆ "*** " SYST_NAVN " ***┆
0x3c95…3cb5 22 ea d2 ed 34 31 f2 29 00 ee ea ff 5f c9 96 0a 92 22 2a 2a 2a 20 55 44 53 4b 52 45 56 45 54 20 ┆" 41 ) _ "*** UDSKREVET ┆
0x3cb5…3cc2 50 52 2e 20 22 ea 53 59 53 54 5f 44 41 ┆PR. " SYST_DA┆
0x3cc2…3ce2 (202,) 54 ef ed 31 f2 01 00 f1 32 f2 02 00 ee ea 22 2e 22 ea 53 59 53 54 5f 44 41 54 ef ed 33 f2 03 00 ┆T 1 2 "." SYST_DAT 3 ┆
0x3ce2…3d02 f1 32 f2 02 00 ee ea 22 2e 22 ea ff 8f d2 8c 0a 92 22 2a 2a 2a 20 22 ea 53 59 53 54 5f 4e 41 56 ┆ 2 "." "*** " SYST_NAV┆
0x3d02…3d0f 4e ef ea 22 20 2a 2a 2a 22 ea d2 ed 33 ┆N " ***" 3┆
0x3d0f…3d2f (203,) 39 f2 27 00 ee ea ff 2c d3 8c 0a 92 22 2a 2a 2a 20 22 ea 53 59 53 54 5f 4e 41 56 4e ef ea 22 20 ┆9 ' , "*** " SYST_NAVN " ┆
0x3d2f…3d4f 2a 2a 2a 22 ea d2 ed 33 39 f2 27 00 ee ea ff 79 d3 96 0a 92 22 2a 2a 2a 20 55 44 53 4b 52 45 56 ┆***" 39 ' y "*** UDSKREV┆
0x3d4f…3d5c 45 54 20 50 52 2e 20 22 ea 53 59 53 54 ┆ET PR. " SYST┆
0x3d5c…3d7c (204,) 5f 44 41 54 ef ed 31 f2 01 00 f1 32 f2 02 00 ee ea 22 2e 22 ea 53 59 53 54 5f 44 41 54 ef ed 33 ┆_DAT 1 2 "." SYST_DAT 3┆
0x3d7c…3d9c f2 03 00 f1 32 f2 02 00 ee ea 22 2e 22 ea ff a8 d3 a0 0a 92 53 59 53 54 5f 44 41 54 ef ed 35 f2 ┆ 2 "." SYST_DAT 5 ┆
0x3d9c…3da9 05 00 f1 32 f2 02 00 ee ea 22 20 2a 2a ┆ 2 " **┆
0x3da9…3dc9 (205,) 2a 20 53 49 44 45 3a 20 22 ea 53 49 44 45 4e 52 ff ae d3 aa 0a 92 ff e7 d3 b4 0a 92 22 46 69 72 ┆* SIDE: " SIDENR "Fir┆
0x3dc9…3de9 6d 61 6e 61 76 6e 3a 20 22 ea 46 49 52 4d 41 4e 41 56 4e ef ea d2 ed 35 32 f2 34 00 ee ea 22 2a ┆manavn: " FIRMANAVN 52 4 "*┆
0x3de9…3df6 2a 20 4b 4f 4e 54 4f 4b 4f 52 54 20 2a ┆* KONTOKORT *┆
0x3df6…3e16 (206,) 2a 22 ff ed d3 be 0a 92 ff 37 d4 c8 0a 92 22 2a 2a 20 4b 4f 4e 54 4f 4e 52 3a 20 22 ea 4b 54 4f ┆*" 7 "** KONTONR: " KTO┆
0x3e16…3e36 4e 52 ef ea d2 ed 32 35 f2 19 00 ee ea 22 4b 4f 4e 54 4f 4e 41 56 4e 3a 20 22 ea 4b 54 4f 5f 4e ┆NR 25 "KONTONAVN: " KTO_N┆
0x3e36…3e43 41 56 4e ef ea d2 ed 37 35 f2 4b 00 ee ┆AVN 75 K ┆
0x3e43…3e63 (207,) ea 22 2a 2a 22 ff 68 d4 d2 0a 92 22 3c 53 3e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "**" h "<S>-----------------┆
0x3e63…3e83 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 96 d4 dc 0a 92 22 2d 2d 2d ┆---------------------" "---┆
0x3e83…3e90 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x3e90…3eb0 (208,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff da d4 e6 0a 92 22 3c 53 ┆----------------------" "<S┆
0x3eb0…3ed0 3e 20 20 44 41 54 4f 20 20 20 20 42 49 4c 41 47 20 20 54 45 4b 53 54 22 ea d2 ed 34 35 f2 2d 00 ┆> DATO BILAG TEKST" 45 - ┆
0x3ed0…3edd ee ea 22 44 45 42 45 54 42 45 4c 5c 42 ┆ "DEBETBELØB┆
0x3edd…3efd (209,) 20 20 4b 52 45 44 49 54 42 45 4c 5c 42 22 ff eb d4 f0 0a 92 22 20 20 20 20 53 41 4c 44 4f 22 ff ┆ KREDITBELØB" " SALDO" ┆
0x3efd…3f1d 1b d5 fa 0a 92 22 3c 53 3e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "<S>-----------------------┆
0x3f1d…3f2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x3f2a…3f4a (210,) 2d 22 ff 4a d5 04 0b 92 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-" J "-----------------------┆
0x3f4a…3f6a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 56 d5 0e 0b 9f 4e 59 53 49 44 45 ff 5b d5 ┆----------------" V NYSIDE Æ ┆
0x3f6a…3f77 18 0b ff 88 d5 22 0b 9e 2f 53 4b 52 49 ┆ " /SKRI┆
0x3f77…3f97 (211,) 56 5f 4c 49 4e ed 51 5f 44 ef ec 51 5f 42 ef ec 51 5f 54 ef ec 51 5f 4d ec 51 5f 4b ec 51 5f 44 ┆V_LIN Q_D Q_B Q_T Q_M Q_K Q_D┆
0x3f97…3fb7 4b ee ff ac d5 2c 0b 82 00 4c 49 4e 5f 54 e5 38 f2 08 00 e1 4d 41 58 5f 4c 49 4e b5 9d 53 49 44 ┆K , LIN_T 8 MAX_LIN SID┆
0x3fb7…3fc4 45 53 4b 49 46 54 ff c2 d5 36 0b 86 4c ┆ESKIFT 6 L┆
0x3fc4…3fe4 (212,) 49 4e 5f 54 f0 4c 49 4e 5f 54 e5 31 f2 01 00 ff 09 d6 40 0b 92 51 5f 44 ef ed 31 f2 01 00 f1 32 ┆IN_T LIN_T 1 @ Q_D 1 2┆
0x3fe4…4004 f2 02 00 ee ea 22 2e 22 ea 51 5f 44 ef ed 33 f2 03 00 f1 32 f2 02 00 ee ea 22 2e 22 ea 51 5f 44 ┆ "." Q_D 3 2 "." Q_D┆
0x4004…4011 ef ed 35 f2 05 00 f1 32 f2 02 00 ee ea ┆ 5 2 ┆
0x4011…4031 (213,) d2 ed 31 31 f2 0b 00 ee ea ff 39 d6 4a 0b 92 51 5f 42 ef ea d2 ed 31 31 f2 0b 00 ee ea 51 5f 42 ┆ 11 9 J Q_B 11 Q_B┆
0x4031…4051 ef ea d2 ed 31 38 f2 12 00 ee ea 51 5f 54 ef ea d2 ed 33 39 f2 27 00 ee ea ff 5b d6 54 0b 82 00 ┆ 18 Q_T 39 ' Æ T ┆
0x4051…405e 51 5f 4d e1 30 f2 00 00 b5 92 d0 ed 51 ┆Q_M 0 Q┆
0x405e…407e (214,) 5f 4d ec 39 f2 09 00 ec 32 f2 02 00 ee ea ff 44 d9 5e 0b 9b 30 51 5f 44 4b df 44 45 42 45 54 b5 ┆_M 9 2 D ^ 0Q_DK DEBET ┆
0x407e…409e ff 96 d6 68 0b 92 d2 ed 34 32 f2 2a 00 ee ea d0 ed 51 5f 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea ┆ h 42 * Q_K 9 2 ┆
0x409e…40ab d2 ed 36 37 f2 43 00 ee ea ff b3 d6 72 ┆ 67 C r┆
0x40ab…40cb (215,) 0b 86 54 4f 54 ed 31 f2 01 00 ee f0 54 4f 54 ed 31 f2 01 00 ee e5 51 5f 4b ff ba d6 7c 0b 9a 31 ┆ TOT 1 TOT 1 Q_K ø 1┆
0x40cb…40eb ff e3 d6 86 0b 92 d2 ed 35 35 f2 37 00 ee ea d0 ed 51 5f 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea ┆ 55 7 Q_K 9 2 ┆
0x40eb…40f8 d2 ed 36 37 f2 43 00 ee ea ff 00 d7 90 ┆ 67 C ┆
0x40f8…4118 (216,) 0b 86 54 4f 54 ed 32 f2 02 00 ee f0 54 4f 54 ed 32 f2 02 00 ee e5 51 5f 4b ff 06 d7 9a 0b 9c ff ┆ TOT 2 TOT 2 Q_K ┆
0x4118…4138 20 d7 a4 0b 92 d0 ed c4 ed 53 55 4d ee ec 39 f2 09 00 ec 32 f2 02 00 ee ea ff 30 d7 a5 0b 9b 32 ┆ SUM 9 2 0 2┆
0x4138…4145 53 55 4d e0 30 f2 00 00 b5 ff 3b d7 a6 ┆SUM 0 ; ┆
0x4145…4165 (217,) 0b 92 22 20 4b 22 ea ff 56 da c2 0b 9a 33 ff 4d d7 cc 0b 92 22 20 44 22 ea ff 53 d7 d6 0b 9c ff ┆ " K" V 3 M " D" S ┆
0x4165…4185 59 d7 e0 0b 92 ff 68 d7 ea 0b 9f 53 4b 52 49 56 5f 4c 49 4e ff 6d d7 f4 0b ff 7a d7 fe 0b 9e 34 ┆Y h SKRIV_LIN m z 4┆
0x4185…4192 41 46 53 4c 55 54 ff 97 d7 08 0c b4 00 ┆AFSLUT ┆
0x4192…41b2 (218,) 49 f0 4c 49 4e 5f 54 b7 4d 41 58 5f 4c 49 4e e6 34 f2 04 00 bb 92 ff af d7 12 0c 86 4c 49 4e 5f ┆I LIN_T MAX_LIN 4 LIN_┆
0x41b2…41d2 54 f0 4d 41 58 5f 4c 49 4e e6 33 f2 03 00 ff df d7 1c 0c 92 22 3c 53 3e 2d 2d 2d 2d 2d 2d 2d 2d ┆T MAX_LIN 3 "<S>--------┆
0x41d2…41df 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------┆
0x41df…41ff (219,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ff 0e d8 26 0c 92 22 2d 2d 2d 2d 2d 2d 2d 2d ┆----------------" & "--------┆
0x41ff…421f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ┆-------------------------------"┆
0x421f…422c ff 22 d8 30 0c 9b 35 4f 55 54 5f 57 41 ┆ " 0 5OUT_WA┆
0x422c…424c (220,) 59 ef df 22 50 22 b5 ff 28 d8 3a 0c 92 ff 2e d8 44 0c 92 ff 34 d8 4e 0c 92 ff 3a d8 58 0c 9c ff ┆Y "P" ( : . D 4 N : X ┆
0x424c…426c 46 d8 62 0c 9f 41 46 53 4c 55 54 ff 60 d8 6c 0c 9e 36 46 49 4e 44 5f 4b 54 4f ed b6 52 5f 4b 54 ┆F b AFSLUT ` l 6FIND_KTO R_KT┆
0x426c…4279 4f 4e 52 ef ee ff 6e d8 76 0c 86 4f 4b ┆ONR n v OK┆
0x4279…4299 (221,) f0 46 41 4c 53 45 ff 92 d8 80 0c a9 4b 54 4f 49 44 58 ef ec 31 f2 01 00 f1 49 5f 48 5c 4a 52 45 ┆ FALSE KTOIDX 1 I_HØJRE┆
0x4299…42b9 43 ec 49 5f 4d 41 58 52 45 43 ff b7 d8 8a 0c 86 4c 4f 57 f0 31 f2 01 00 ea 48 49 47 48 f0 49 5f ┆C I_MAXREC LOW 1 HIGH I_┆
0x42b9…42c6 48 5c 4a 52 45 43 ea 50 4f 53 f0 32 f2 ┆HØJREC POS 2 ┆
0x42c6…42e6 (222,) 02 00 ff c8 d8 94 0c 9b 37 48 49 47 48 e1 31 f2 01 00 b5 ff cf d8 9e 0c 97 38 ff fb d8 a8 0c 86 ┆ 7HIGH 1 8 ┆
0x42e6…4306 50 4f 53 f0 c6 ed ed 48 49 47 48 e6 4c 4f 57 ee e8 32 f2 02 00 e5 2e 35 f8 80 00 00 00 00 00 00 ┆POS HIGH LOW 2 .5 ┆
0x4306…4313 05 ee e5 4c 4f 57 ff 3f d0 b2 0c a9 4b ┆ LOW ? K┆
0x4313…4333 (223,) 54 4f 49 44 58 ef ec 50 4f 53 f1 4b 54 4f 4e 52 ef ec 52 45 43 4e 52 ff 39 32 32 31 33 38 00 00 ┆TOIDX POS KTONR RECNR 922138 ┆
0x4333…4353 06 00 1f 1f 1f 20 20 00 00 05 00 1f 1f 1f 1f 1f 1f 1f 1f 4f 44 4c 41 53 20 4c 45 4d 4d 41 47 00 ┆ ODLAS LEMMAG ┆
0x4353…4360 00 14 00 6d d9 68 0b 92 d2 ed 34 30 f2 ┆ m h 40 ┆
0x4360…4380 (224,) 28 00 ee ea d0 ed 51 5f 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 35 f2 41 00 ee ea ff 8a ┆( Q_K 9 2 65 A ┆
0x4380…43a0 d9 72 0b 86 54 4f 54 ed 31 f2 01 00 ee f0 54 4f 54 ed 31 f2 01 00 ee e5 51 5f 4b ff 91 d9 7c 0b ┆ r TOT 1 TOT 1 Q_K ø ┆
0x43a0…43ad 9a 31 ff ba d9 86 0b 92 d2 ed 35 33 f2 ┆ 1 53 ┆
0x43ad…43cd (225,) 35 00 ee ea d0 ed 51 5f 4b ec 39 f2 09 00 ec 32 f2 02 00 ee ea d2 ed 36 35 f2 41 00 ee ea ff d7 ┆5 Q_K 9 2 65 A ┆
0x43cd…43ed d9 90 0b 86 54 4f 54 ed 32 f2 02 00 ee f0 54 4f 54 ed 32 f2 02 00 ee e5 51 5f 4b ff dd d9 9a 0b ┆ TOT 2 TOT 2 Q_K ┆
0x43ed…43fa 9c ff f7 d9 a4 0b 92 d0 ed c4 ed 53 55 ┆ SU┆
0x43fa…441a (226,) 4d ee ec 39 f2 09 00 ec 32 f2 02 00 ee ea ff 07 da ae 0b 9b 32 53 55 4d e0 30 f2 00 00 b5 ff 3b ┆M 9 2 2SUM 0 ;┆
0x441a…443a d7 b8 0b 92 22 20 4b 22 ea ff 72 69 70 61 70 00 00 05 00 39 32 32 31 33 38 00 00 06 00 1f 1f 1f ┆ " K" ripap 922138 ┆
0x443a…4447 20 20 00 00 05 00 1f 1f 1f 1f 1f 1f 1f ┆ ┆
0x4447…4467 (227,) 1f 4f 44 4c 41 53 20 4c 45 4d 4d 41 47 00 00 14 00 56 da c7 0b 9b 00 53 55 4d e1 30 f2 00 00 b5 ┆ ODLAS LEMMAG V SUM 0 ┆
0x4467…447e ff 4d d7 cc 0b 82 00 53 55 4d e1 30 f2 00 00 b5 92 22 20 44 22 ea ff ┆ M SUM 0 " D" ┆
0x447e…4484 (228,) ee 95 ee 95 00 00 ┆ ┆