|
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: 21595 (0x545b)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
Names: »SYSR.B«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSR.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 // **************************************************
0120 EXEC DIMENSIONER
0130 EXEC INITIER
0120 EXEC FUNKTIONSMENU
0280 CHAIN PROGRAM$
0250 // =========== Procedurer starter ==============
0260 PROC DIMENSIONER
0270 // Standard variable
0280 DIM SPC$ OF 80,SVAR$ OF 10,PRGFL$ OF 8,ALFA$ OF 28,TAL$ OF 10
0170 DIM PROGRAM$ OF 17,PRTNR$ OF 1
0300 REAL RESRV,PPAR
0310 INTEGER OK,TRUE,FALSE,I,J,LIN_T,MAX_LIN,SIDENR
0340 // Variable til filen KTOIDX m.m.
0350 DIM KTOIDX$ OF 17
0360 INTEGER I_HØJREC,I_MAXREC,LOW,HIGH,POS,IDXPOS,RECNR
0370 DIM KTONR$ OF 8
0380 // Variable til filen @@KONTO
0390 DIM KONTO$ OF 17
0400 DIM ST_DATO$ OF 6
0410 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0420 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0430 REAL KTO_PRIMO,KTO_ULTIMO
0440 INTEGER KTO_FP,KTO_SP
0450 // Variable til filen SYSPARA
0460 DIM SYSPARA$ OF 17
0470 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0480 DIM DATAFL$ OF 8,T_KODE$ OF 1
0490 // Variable til filen @@PARAM
0500 DIM PARAM$ OF 17
0510 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0520 REAL MOMS
0530 REAL SALDO
0540 DIM FIL$ OF 17,S_KTONR$ OF 8
0550 // Variable til filen driftø
0420 DIM DRIFTØ$ OF 17
0570 DIM PRIMODAT$ OF 6
0580 REAL DRIFT(2)
0610 // Filnavne til regnskabsanalysen
0620 DIM KAPOMK$ OF 17,OMSÆTN$ OF 17,VAREFO$ OF 17,AFSKRI$ OF 17
0630 DIM EGENKA$ OF 17,AKTIVE$ OF 17,RENTEO$ OF 17
0640 DIM VARELA$ OF 17,DEBITO$ OF 17,KREDIT$ OF 17
0650 REAL S_KAPOMK,S_OMSÆTN,S_VAREFO,S_AFSKRI,S_EGENKA,S_AKTIVE,S_RENTEO
0660 REAL S_VARELA,S_DEBITO,S_KREDIT,S_VARELA_P
0590 ENDPROC DIMENSIONER
0600
0610 PROC INITIER
0630 LET PRGFL$ := "DP2"
0640 LET PROGRAM$ := PRGFL$ + ":SYS"
0650 LET SPC$ := " "
0660 LET SPC$ := SPC$ + SPC$
0670 LET FALSE := 0 ; TRUE := 1 // boolske variable
0680 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0690 EXEC OPENFIL(SYSPARA$,"R")
0700 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0710 EXEC TERMINAL_IDX
0720 CLOSE SYSPARA$
0730 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0740 EXEC OPENFIL(PARAM$,"R")
0750 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0760 CLOSE PARAM$
0840 LET OMSÆTN$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "OMSÆTN"
0850 LET VAREFO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "VAREFO"
0860 LET KAPOMK$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KAPOMK"
0870 LET AFSKRI$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "AFSKRI"
0880 LET RENTEO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "RENTEO"
0890 LET AKTIVE$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "AKTIVE"
0900 LET VARELA$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "VARELA"
0910 LET DEBITO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "DEBITO"
0920 LET KREDIT$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KREDIT"
0930 LET EGENKA$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "EGENKA"
0780 LET DRIFTØ$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "DRIFTØ"
0790 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0800 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0810 EXEC OPENFIL(DRIFTØ$,"R")
0820 GET DRIFTØ$,1 : PRIMODAT$
0830 EXEC OPENFIL(KTOIDX$,"R")
0840 EXEC OPENFIL(KONTO$,"R")
0850 ENDPROC INITIER
1020
1030 PROC OPSUMER
1040 EXEC SAMMENTÆL(OMSÆTN$)
1050 LET S_OMSÆTN := SALDO
1060 EXEC SAMMENTÆL(VAREFO$)
1070 LET S_VAREFO := SALDO
1080 EXEC SAMMENTÆL(KAPOMK$)
1090 LET S_KAPOMK := SALDO
1100 EXEC SAMMENTÆL(AFSKRI$)
1110 LET S_AFSKRI := SALDO
1120 EXEC SAMMENTÆL(RENTEO$)
1130 LET S_RENTEO := SALDO
1140 EXEC SAMMENTÆL(AKTIVE$)
1150 LET S_AKTIVE := SALDO * ( - 1)
1160 EXEC SAMMENTÆL(EGENKA$)
1170 LET S_EGENKA := SALDO
1180 EXEC SAMMENTÆL(VARELA$)
1190 LET S_VARELA := SALDO * ( - 1)
1200 EXEC SAMMENTÆL(DEBITO$)
1210 LET S_DEBITO := SALDO * ( - 1)
1220 EXEC SAMMENTÆL(KREDIT$)
1230 LET S_KREDIT := SALDO
1240 ENDPROC OPSUMER
0860
0870 PROC TERMINAL_IDX
0880 LET PPAR := 5 ; RESRV := 0
0890 CALL :PRES"
0900 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0910 ENDPROC TERMINAL_IDX
0920
0930 PROC LÆS_KONTO(P)
0940 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0950 ENDPROC LÆS_KONTO
0960
0970 PROC OPENFIL(FNAVN$,WAY$)
0980 REPEAT
0990 IF AY$ = "W" OR WAY$ = "w" THEN
1000 OPEN FNAVN$,W
1010 ELSE
1020 OPEN FNAVN$,R
1030 ENDIF
1040 IF (FNAVN$) THEN
1050 PRINT "<SC0123>" ; CHR$ (7)
1060 IF (FNAVN$) = 6 THEN
1070 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
1080 INPUT "" : SVAR$
1090 ELSE
1100 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
1110 PRINT "<S>" ; FNAVN$ ; " ***"
1120 INPUT "" : SVAR$
1130 PRINT "<C0102>" ; SPC$
1140 ENDIF
1150 ENDIF
1160 UNTIL NOT ╱cd╱ (FNAVN$)
1170 ENDPROC OPENFIL
1180
1190 PROC OVERSKRIFT(ST$,L)
1200 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
1210 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
1220 PRINT SYST_DAT$(5 : 2)
1230 CURSOR 36 - INT( ╱cb╱ (ST$) / 2),L
1240 PRINT "*** " ; ST$ ; " ***"
1250 ENDPROC OVERSKRIFT
1260
1270 PROC SL_FEJLLINIE
1280 LET OK := TRUE
1290 PRINT "<C0102>" ; SPC$
1300 ENDPROC SL_FEJLLINIE
1310
1320 PROC FEJL(ST$)
1330 LET OK := FALSE
1340 CURSOR 36 - ╱cb╱ (ST$) / 2,2
1350 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
1360 ENDPROC FEJL
1370
1380 PROC FIND_KTO( REF R_KTONR$)
1390 LET OK := FALSE
1400 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
1410 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
1420 IF IGH > 1 THEN
1430 REPEAT
1440 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
1450 GET KTOIDX$,POS : KTONR$,RECNR
1460 IF TONR$ > R_KTONR$ THEN
1470 LET HIGH := POS
1480 ELSE
1490 IF TONR$ < R_KTONR$ THEN
1500 LET LOW := POS
1510 ENDIF
1520 ENDIF
1530 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
1540 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
1550 GET KTOIDX$,POS : KTONR$,RECNR
1560 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
1570 IF KTONR$ < R_KTONR$ AND POS = I_HØJREC THEN LET POS := POS + 1
1580 ENDIF
1590 LET FIND_KTO := POS
1600 ENDPROC FIND_KTO
2000 PROC SAMMENTÆL( REF SAMFIL$)
2010 EXEC OPENFIL(SAMFIL$,"R")
2020 GET SAMFIL$ : SALDO
2030 LET SALDO := 0
2040 GET SAMFIL$ : S_KTONR$
2050 WHILE NOT ╱cd╱ (SAMFIL$) DO
2060 LET IDXPOS := FIND_KTO(S_KTONR$)
2070 GET KTOIDX$,IDXPOS : KTONR$,RECNR
2080 WHILE S_KTONR$ = KTONR$(1 : ╱cb╱ (S_KTONR$)) DO
2090 GET DRIFTØ$,RECNR : DRIFT(1),DRIFT(2)
2100 LET SALDO := SALDO + DRIFT(2)
2110 LET IDXPOS := IDXPOS + 1
2120 IF IDXPOS > I_HØJREC THEN EXIT
2130 GET KTOIDX$,IDXPOS : KTONR$,RECNR
2140 ENDWHILE
2150 GET SAMFIL$ : S_KTONR$
2160 ENDWHILE
2170 LET SALDO := SALDO * ( - 1)
2180 CLOSE SAMFIL$
2190 EXEC OPENFIL(SAMFIL$,"W")
2200 PUT SAMFIL$ : SALDO
2210 CLOSE SAMFIL$
2220 ENDPROC SAMMENTÆL
2230
2240 PROC UDSKRIV
2250 LET MAX_LIN := 72 ; LIN_T := 200 ; SIDENR := 0
2260 EXEC PRINTRES("smal EDB-liste",17)
2270 EXEC SIDESKIFT
2280 PRINT "Regnskab for perioden " ; PRIMODAT$(1 : 2) ; "." ; PRIMODAT$(3 : 2) ; "." ;
2290 PRINT PRIMODAT$(5 : 2) ; " - " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "." ;
2300 PRINT SYST_DAT$(5 : 2)
2310 PRINT "================================================================"
2320 PRINT "Nettoomsætning" ; TAB(53) ; CHR$ (S_OMSÆTN,9,2)
2330 PRINT "- Vareforbrug" ; TAB(53) ; CHR$ (S_VAREFO * ( - 1),9,2)
2340 PRINT TAB(53) ; "------------"
2350 LET BRUTTO := S_OMSÆTN + S_VAREFO
2360 PRINT "Bruttofortjeneste" ; TAB(53) ; CHR$ (BRUTTO,9,2)
2370 PRINT "- Øvrige variable omkostningninger" ; TAB(53) ;
2380 PRINT CHR$ (ØVR_VAR * ( - 1),9,2)
2390 LET DÆKNING := BRUTTO + ØVR_VAR
2400 PRINT TAB(53) ; "------------"
2410 PRINT "Dækningsbidrag" ; TAB(53) ; CHR$ (DÆKNING,9,2)
2420 PRINT "- Kontante kap. omkostninger" ; TAB(53) ;
2430 PRINT CHR$ ((S_KAPOMK - ØVR_VAR) * ( - 1),9,2)
2440 PRINT TAB(53) ; "------------"
2450 LET INDTJEN := DÆKNING + (S_KAPOMK - ØVR_VAR)
2460 PRINT "Indtjeningsbidrag " ; TAB(53) ; CHR$ (INDTJEN,9,2)
2470 PRINT "- Afskrivninger" ; TAB(53) ; CHR$ (S_AFSKRI * ( - 1),9,2)
2480 PRINT TAB(53) ; "------------"
2490 LET RES_F_R := INDTJEN + S_AFSKRI
2500 PRINT "Resultat af ordinær drift før renter" ; TAB(53) ; CHR$ (RES_F_R,9,2)
2510 PRINT "- Renteomkostninger" ; TAB(53) ; CHR$ (S_RENTEO * ( - 1),9,2)
2520 PRINT TAB(53) ; "------------"
2530 LET RESULTAT := RES_F_R + S_RENTEO
2540 PRINT "Resultat af ordinær drift" ; TAB(53) ; CHR$ (RESULTAT,9,2)
2550 PRINT TAB(53) ; "============"
2560 PRINT
2570 PRINT
2580 PRINT
2590 PRINT "**** R E N T A B I L I T E T ****"
2600 PRINT "---------------------------------"
2610 PRINT
2620 PRINT " (1) Afkastningsgrad :" ;
2630 PRINT USING "###.## %" : (RES_F_R + L_I) * 100 / S_AKTIVE
2640 PRINT
2650 PRINT " (2) Overskudsgrad :" ;
2660 PRINT USING "###.## %" : (RES_F_R + L_I) * 100 / S_OMSÆTN
2670 PRINT
2680 PRINT " (3) Aktivernes omsætningshastighed :" ;
2690 PRINT USING "###.## g" : S_OMSÆTN / S_AKTIVE
2700 PRINT
2710 PRINT " (4) Egenkap. forrentning :" ;
2720 PRINT USING "###.## %" : (RESULTAT + L_I) * 100 / S_EGENKA
2730 PRINT
2740 PRINT
2750 PRINT "**** I N D T J E N I N G S E V N E ****"
2760 PRINT "---------------------------------------"
2770 PRINT
2780 PRINT " (1) Bruttofortjeneste i % af omsætning :" ;
2790 PRINT USING "###.## %" : BRUTTO * 100 / S_AKTIVE
2800 PRINT
2810 PRINT " (2) Dækningsgrad :" ;
2820 PRINT USING "###.## %" : DÆKNING * 100 / S_AKTIVE
2830 PRINT
2840 PRINT " (3) Omkostninger i % af omsætningen"
2850 LET LIN_T := LIN_T + 42
2860 EXEC OMK_I_PROCENT(VAREFO$)
2870 EXEC OMK_I_PROCENT(KAPOMK$)
2880 EXEC OMK_I_PROCENT(AFSKRI$)
2890 EXEC OMK_I_PROCENT(RENTEO$)
2900 EXEC SIDESKIFT
2910 PRINT
2920 PRINT "**** O M S Æ T N I N G S H A S T I G H E D E R ****"
2930 PRINT "---------------------------------------------------"
2940 PRINT
2950 PRINT " (1) Varedebitorer :" ;
2960 PRINT USING "###.## g" : S_OMSÆTN * ((100 + MOMS) / 100) / S_DEBITO
2970 PRINT
2980 PRINT " (2) Varelager :" ;
2990 PRINT USING "###.## g" : ABS(S_VAREFO) / S_VARELA
3000 PRINT
3010 PRINT " (3) Varekreditorer :" ;
3020 LET VAREKØB := (ABS(S_VAREFO) + (S_VARELA - S_VARELA_P)) * ((100 + MOMS) / 100)
3030 PRINT USING "###.## g" : VAREKØB / S_KREDIT
3040 PRINT
3050 PRINT
3060 PRINT "**** K R E D I T - O G L A G E R D A G E ****"
3070 PRINT "-------------------------------------------------"
3080 PRINT
3090 PRINT " (1) Varedebitorer :" ;
3100 PRINT USING "####.# dg" : S_DEBITO * 360 / (S_OMSÆTN * ((100 + MOMS) / 100))
3110 PRINT
3120 PRINT " (2) Varelager :" ;
3130 PRINT USING "####.# dg" : S_VARELA * 360 / ABS(S_VAREFO)
3140 PRINT
3150 PRINT " (3) Varekreditorer :" ;
3160 PRINT USING "####.# dg" : S_KREDIT * 360 / VAREKØB
3170 LET LIN_T := LIN_T + 19
3180 FOR I := LIN_T TO AX_LIN DO PRINT
3190 EXEC PRINTREL
3200 ENDPROC UDSKRIV
3210 PROC OMK_I_PROCENT( REF SAMFIL$)
3220 EXEC OPENFIL(SAMFIL$,"R")
3230 GET SAMFIL$ : SALDO
3240 LET SALDO := 0
3250 GET SAMFIL$ : S_KTONR$
3260 WHILE NOT ╱cd╱ (SAMFIL$) DO
3270 LET IDXPOS := FIND_KTO(S_KTONR$)
3280 GET KTOIDX$,IDXPOS : KTONR$,RECNR
3290 WHILE S_KTONR$ = KTONR$(1 : ╱cb╱ (S_KTONR$)) DO
3300 EXEC LÆS_KONTO(RECNR)
3310 GET DRIFTØ$,RECNR : DRIFT(1),DRIFT(2)
3320 IF TO_TYPE$ = "A" THEN
3330 PRINT " " ; KTO_NAVN$ ; TAB(43) ; ":" ;
3340 PRINT USING "###.## %" : ABS(DRIFT(2) * 100) / S_OMSÆTN
3350 LET LIN_T := LIN_T + 1
3360 ENDIF
3370 LET IDXPOS := IDXPOS + 1
3380 IF IDXPOS > I_HØJREC THEN EXIT
3390 GET KTOIDX$,IDXPOS : KTONR$,RECNR
3400 ENDWHILE
3410 GET SAMFIL$ : S_KTONR$
3420 ENDWHILE
3430 CLOSE SAMFIL$
3440 ENDPROC OMK_I_PROCENT
3450 PROC SIDESKIFT
3460 FOR I := LIN_T TO AX_LIN DO PRINT
3470 LET SIDENR := SIDENR + 1 ; LIN_T := 8
3480 PRINT
3490 PRINT "*** " ; SYST_NAVN$ ; " ***"
3500 PRINT
3510 PRINT "**** R E G N S K A B S A N A L Y S E ****" ; TAB(58) ; "SIDE: " ;
3520 PRINT SIDENR
3530 PRINT
3540 PRINT "Firmanavn: " ; FIRMANAVN$
3550 PRINT
3560 ENDPROC SIDESKIFT
3570
3580 PROC FUNKTIONSMENU
3590 EXEC OVERSKRIFT("Regnskabsanalyse",6)
3600 INPUT "<C0809>Indtast venligst: Øvrige var. omkostninger: " : ØVR_VAR
3610 LET ØVR_VAR := ØVR_VAR * ( - 1)
3620 INPUT "<C0811> Løn til indehaver : " : L_I
3630 LET L_I := L_I * ( - 1)
3640 INPUT "<C1013> Varelager primo : " : S_VARELA_P
3650 PRINT "<C3515>Nu optælles der!"
3660 EXEC OPSUMER
3670 EXEC UDSKRIV
3680 ENDPROC FUNKTIONSMENU
1610 //
1600 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
1610 LET PRTNR$ := "1" ; OK := TRUE
1620 REPEAT
1630 CURSOR 21,LINE
1640 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
1650 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
1660 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
1670 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
1680 INPUT "" : SVAR$
1690 SELECT OUTPUT "P" + PRTNR$
1700 IF ("P") THEN
1710 CURSOR 12,LINE
1720 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
1730 CURSOR 12,LINE + 1
1740 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
1750 IF VAR$ = "J" OR SVAR$ = "j" THEN
1760 CURSOR 12,LINE
1770 PRINT "<Z> Der ventes på at printeren bliver ledig...."
1780 PRINT "<SZ>"
1790 WHILE ╱cd╱ ("P") DO
1800 LET SEK := ╱ca╱ (5)
1810 SELECT OUTPUT "P" + PRTNR$
1820 ENDWHILE
1830 ELSE
1840 LET OK := FALSE
1850 ENDIF
1860 ENDIF
1870 CURSOR 1,LINE
1880 PRINT "<Z>"
1890 PRINT "<SZ>"
1900 ENDPROC PRINTRES
1620 //
1630 PROC PRINTREL // RELEASE PRINTER
1640 SELECT OUTPUT "T"
1800 ENDPROC PRINTREL
1810 // DIM S$ OF 80,KTONR$ OF 10,X(20)
1820 PROC OPDEL(A$)
1830 LET KTONR$ := ""
1840 LET I := 1
1850 WHILE A$(I) >< "*" DO
1860 IF A$(I) = "/" THEN LET KTONR$ := "" ; I := I + 1
1870 WHILE (A$(I) >< "/") AND (A$(I) >< "*") DO
1880 LET KTONR$ := KTONR$ + A$(I)
1890 LET I := I + 1
1900 ENDWHILE
1910 EXEC OPSUM(KTONR$)
1920 ENDWHILE
1930 ENDPROC OPDEL
1940 PROC OPSUM(KN$)
1950 LET X(P) := X(P) + 1
1960 PRINT KN$,X(P)
1970 ENDPROC OPSUM
1980 LET P := 0
1990 OPEN "DP2:ZATAL",R
2000 GET "DP2:ZATAL" : S$
2010 WHILE NOT ╱cd╱ ("DP2:ZATAL") DO
2020 LET P := P + 1
2030 EXEC OPDEL(S$)
2040 GET "DP2:ZATAL" : S$
2050 ENDWHILE
2060 CLOSE
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 0120 EXEC DIMENSIONER
0x0348…0359 LineComal80 {
0x0348…0359 ptr = 0x9947 // 0x348 @0x0
0x0348…0359 lno = 0x0078 // 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 c546 0130 EXEC INITIER
0x0359…0366 LineComal80 {
0x0359…0366 ptr = 0xc546 // 0x359 @0x0
0x0359…0366 lno = 0x0082 // 0x35b @0x2
0x0359…0366 at0004 = ╱9d╱ EXEC ╱ // 0x35d @0x4
0x0359…0366 at0005 = ╱49╱I╱ // 0x35e @0x5
0x0359…0366 at0006 = ╱4e╱N╱ // 0x35f @0x6
0x0359…0366 at0007 = ╱49╱I╱ // 0x360 @0x7
0x0359…0366 at0008 = ╱54╱T╱ // 0x361 @0x8
0x0359…0366 at0009 = ╱49╱I╱ // 0x362 @0x9
0x0359…0366 at000a = ╱45╱E╱ // 0x363 @0xa
0x0359…0366 at000b = ╱52╱R╱ // 0x364 @0xb
0x0359…0366 at000c = EOL // 0x365 @0xc
0x0359…0366 }
0x0366…0379 9975 0120 EXEC FUNKTIONSMENU
0x0366…0379 LineComal80 {
0x0366…0379 ptr = 0x9975 // 0x366 @0x0
0x0366…0379 lno = 0x0078 // 0x368 @0x2
0x0366…0379 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0379 at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…0379 at0006 = ╱55╱U╱ // 0x36c @0x6
0x0366…0379 at0007 = ╱4e╱N╱ // 0x36d @0x7
0x0366…0379 at0008 = ╱4b╱K╱ // 0x36e @0x8
0x0366…0379 at0009 = ╱54╱T╱ // 0x36f @0x9
0x0366…0379 at000a = ╱49╱I╱ // 0x370 @0xa
0x0366…0379 at000b = ╱4f╱O╱ // 0x371 @0xb
0x0366…0379 at000c = ╱4e╱N╱ // 0x372 @0xc
0x0366…0379 at000d = ╱53╱S╱ // 0x373 @0xd
0x0366…0379 at000e = ╱4d╱M╱ // 0x374 @0xe
0x0366…0379 at000f = ╱45╱E╱ // 0x375 @0xf
0x0366…0379 at0010 = ╱4e╱N╱ // 0x376 @0x10
0x0366…0379 at0011 = ╱55╱U╱ // 0x377 @0x11
0x0366…0379 at0012 = EOL // 0x378 @0x12
0x0366…0379 }
0x0379…0387 9975 0280 CHAIN PROGRAM$
0x0379…0387 LineComal80 {
0x0379…0387 ptr = 0x9975 // 0x379 @0x0
0x0379…0387 lno = 0x0118 // 0x37b @0x2
0x0379…0387 at0004 = ╱ac╱ CHAIN ╱ // 0x37d @0x4
0x0379…0387 at0005 = ╱50╱P╱ // 0x37e @0x5
0x0379…0387 at0006 = ╱52╱R╱ // 0x37f @0x6
0x0379…0387 at0007 = ╱4f╱O╱ // 0x380 @0x7
0x0379…0387 at0008 = ╱47╱G╱ // 0x381 @0x8
0x0379…0387 at0009 = ╱52╱R╱ // 0x382 @0x9
0x0379…0387 at000a = ╱41╱A╱ // 0x383 @0xa
0x0379…0387 at000b = ╱4d╱M╱ // 0x384 @0xb
0x0379…0387 at000c = ╱ef╱$╱ // 0x385 @0xc
0x0379…0387 at000d = EOL // 0x386 @0xd
0x0379…0387 }
0x0387…03ba 99a8 0250 // =========== Procedurer starter ==============
0x0387…03ba LineComal80 {
0x0387…03ba ptr = 0x99a8 // 0x387 @0x0
0x0387…03ba lno = 0x00fa // 0x389 @0x2
0x0387…03ba at0004 = ╱89╱ // ╱ // 0x38b @0x4
0x0387…03ba at0005 = ╱3d╱=╱ // 0x38c @0x5
0x0387…03ba at0006 = ╱3d╱=╱ // 0x38d @0x6
0x0387…03ba at0007 = ╱3d╱=╱ // 0x38e @0x7
0x0387…03ba at0008 = ╱3d╱=╱ // 0x38f @0x8
0x0387…03ba at0009 = ╱3d╱=╱ // 0x390 @0x9
0x0387…03ba at000a = ╱3d╱=╱ // 0x391 @0xa
0x0387…03ba at000b = ╱3d╱=╱ // 0x392 @0xb
0x0387…03ba at000c = ╱3d╱=╱ // 0x393 @0xc
0x0387…03ba at000d = ╱3d╱=╱ // 0x394 @0xd
0x0387…03ba at000e = ╱3d╱=╱ // 0x395 @0xe
0x0387…03ba at000f = ╱3d╱=╱ // 0x396 @0xf
0x0387…03ba at0010 = ╱20╱…╱ // 0x397 @0x10
0x0387…03ba at0011 = ╱50╱P╱ // 0x398 @0x11
0x0387…03ba at0012 = ╱72╱r╱ // 0x399 @0x12
0x0387…03ba at0013 = ╱6f╱o╱ // 0x39a @0x13
0x0387…03ba at0014 = ╱63╱c╱ // 0x39b @0x14
0x0387…03ba at0015 = ╱65╱e╱ // 0x39c @0x15
0x0387…03ba at0016 = ╱64╱d╱ // 0x39d @0x16
0x0387…03ba at0017 = ╱75╱u╱ // 0x39e @0x17
0x0387…03ba at0018 = ╱72╱r╱ // 0x39f @0x18
0x0387…03ba at0019 = ╱65╱e╱ // 0x3a0 @0x19
0x0387…03ba at001a = ╱72╱r╱ // 0x3a1 @0x1a
0x0387…03ba at001b = ╱20╱…╱ // 0x3a2 @0x1b
0x0387…03ba at001c = ╱73╱s╱ // 0x3a3 @0x1c
0x0387…03ba at001d = ╱74╱t╱ // 0x3a4 @0x1d
0x0387…03ba at001e = ╱61╱a╱ // 0x3a5 @0x1e
0x0387…03ba at001f = ╱72╱r╱ // 0x3a6 @0x1f
0x0387…03ba at0020 = ╱74╱t╱ // 0x3a7 @0x20
0x0387…03ba at0021 = ╱65╱e╱ // 0x3a8 @0x21
0x0387…03ba at0022 = ╱72╱r╱ // 0x3a9 @0x22
0x0387…03ba at0023 = ╱20╱…╱ // 0x3aa @0x23
0x0387…03ba at0024 = ╱3d╱=╱ // 0x3ab @0x24
0x0387…03ba at0025 = ╱3d╱=╱ // 0x3ac @0x25
0x0387…03ba at0026 = ╱3d╱=╱ // 0x3ad @0x26
0x0387…03ba at0027 = ╱3d╱=╱ // 0x3ae @0x27
0x0387…03ba at0028 = ╱3d╱=╱ // 0x3af @0x28
0x0387…03ba at0029 = ╱3d╱=╱ // 0x3b0 @0x29
0x0387…03ba at002a = ╱3d╱=╱ // 0x3b1 @0x2a
0x0387…03ba at002b = ╱3d╱=╱ // 0x3b2 @0x2b
0x0387…03ba at002c = ╱3d╱=╱ // 0x3b3 @0x2c
0x0387…03ba at002d = ╱3d╱=╱ // 0x3b4 @0x2d
0x0387…03ba at002e = ╱3d╱=╱ // 0x3b5 @0x2e
0x0387…03ba at002f = ╱3d╱=╱ // 0x3b6 @0x2f
0x0387…03ba at0030 = ╱3d╱=╱ // 0x3b7 @0x30
0x0387…03ba at0031 = ╱3d╱=╱ // 0x3b8 @0x31
0x0387…03ba at0032 = EOL // 0x3b9 @0x32
0x0387…03ba }
0x03ba…03cc 99ba 0260 PROC DIMENSIONER
0x03ba…03cc LineComal80 {
0x03ba…03cc ptr = 0x99ba // 0x3ba @0x0
0x03ba…03cc lno = 0x0104 // 0x3bc @0x2
0x03ba…03cc at0004 = ╱9e03╱ PROC ╱ // 0x3be @0x4
0x03ba…03cc at0006 = ╱44╱D╱ // 0x3c0 @0x6
0x03ba…03cc at0007 = ╱49╱I╱ // 0x3c1 @0x7
0x03ba…03cc at0008 = ╱4d╱M╱ // 0x3c2 @0x8
0x03ba…03cc at0009 = ╱45╱E╱ // 0x3c3 @0x9
0x03ba…03cc at000a = ╱4e╱N╱ // 0x3c4 @0xa
0x03ba…03cc at000b = ╱53╱S╱ // 0x3c5 @0xb
0x03ba…03cc at000c = ╱49╱I╱ // 0x3c6 @0xc
0x03ba…03cc at000d = ╱4f╱O╱ // 0x3c7 @0xd
0x03ba…03cc at000e = ╱4e╱N╱ // 0x3c8 @0xe
0x03ba…03cc at000f = ╱45╱E╱ // 0x3c9 @0xf
0x03ba…03cc at0010 = ╱52╱R╱ // 0x3ca @0x10
0x03ba…03cc at0011 = EOL // 0x3cb @0x11
0x03ba…03cc }
0x03cc…03e3 99d1 0270 // Standard variable
0x03cc…03e3 LineComal80 {
0x03cc…03e3 ptr = 0x99d1 // 0x3cc @0x0
0x03cc…03e3 lno = 0x010e // 0x3ce @0x2
0x03cc…03e3 at0004 = ╱89╱ // ╱ // 0x3d0 @0x4
0x03cc…03e3 at0005 = ╱53╱S╱ // 0x3d1 @0x5
0x03cc…03e3 at0006 = ╱74╱t╱ // 0x3d2 @0x6
0x03cc…03e3 at0007 = ╱61╱a╱ // 0x3d3 @0x7
0x03cc…03e3 at0008 = ╱6e╱n╱ // 0x3d4 @0x8
0x03cc…03e3 at0009 = ╱64╱d╱ // 0x3d5 @0x9
0x03cc…03e3 at000a = ╱61╱a╱ // 0x3d6 @0xa
0x03cc…03e3 at000b = ╱72╱r╱ // 0x3d7 @0xb
0x03cc…03e3 at000c = ╱64╱d╱ // 0x3d8 @0xc
0x03cc…03e3 at000d = ╱20╱…╱ // 0x3d9 @0xd
0x03cc…03e3 at000e = ╱76╱v╱ // 0x3da @0xe
0x03cc…03e3 at000f = ╱61╱a╱ // 0x3db @0xf
0x03cc…03e3 at0010 = ╱72╱r╱ // 0x3dc @0x10
0x03cc…03e3 at0011 = ╱69╱i╱ // 0x3dd @0x11
0x03cc…03e3 at0012 = ╱61╱a╱ // 0x3de @0x12
0x03cc…03e3 at0013 = ╱62╱b╱ // 0x3df @0x13
0x03cc…03e3 at0014 = ╱6c╱l╱ // 0x3e0 @0x14
0x03cc…03e3 at0015 = ╱65╱e╱ // 0x3e1 @0x15
0x03cc…03e3 at0016 = EOL // 0x3e2 @0x16
0x03cc…03e3 }
0x03e3…0422 c967 0280 DIM SPC$ OF 80,SVAR$ OF 10,PRGFL$ OF 8,ALFA$ OF 28,TAL$ OF 10
0x03e3…0422 LineComal80 {
0x03e3…0422 ptr = 0xc967 // 0x3e3 @0x0
0x03e3…0422 lno = 0x0118 // 0x3e5 @0x2
0x03e3…0422 at0004 = ╱87╱ DIM ╱ // 0x3e7 @0x4
0x03e3…0422 at0005 = ╱53╱S╱ // 0x3e8 @0x5
0x03e3…0422 at0006 = ╱50╱P╱ // 0x3e9 @0x6
0x03e3…0422 at0007 = ╱43╱C╱ // 0x3ea @0x7
0x03e3…0422 at0008 = ╱ef╱$╱ // 0x3eb @0x8
0x03e3…0422 at0009 = ╱ba╱ OF ╱ // 0x3ec @0x9
0x03e3…0422 at000a = ╱38╱8╱ // 0x3ed @0xa
0x03e3…0422 at000b = ╱30╱0╱ // 0x3ee @0xb
0x03e3…0422 at000c = ╱f25000╱ // 0x3ef @0xc
0x03e3…0422 at000f = ╱ec╱,╱ // 0x3f2 @0xf
0x03e3…0422 at0010 = ╱53╱S╱ // 0x3f3 @0x10
0x03e3…0422 at0011 = ╱56╱V╱ // 0x3f4 @0x11
0x03e3…0422 at0012 = ╱41╱A╱ // 0x3f5 @0x12
0x03e3…0422 at0013 = ╱52╱R╱ // 0x3f6 @0x13
0x03e3…0422 at0014 = ╱ef╱$╱ // 0x3f7 @0x14
0x03e3…0422 at0015 = ╱ba╱ OF ╱ // 0x3f8 @0x15
0x03e3…0422 at0016 = ╱31╱1╱ // 0x3f9 @0x16
0x03e3…0422 at0017 = ╱30╱0╱ // 0x3fa @0x17
0x03e3…0422 at0018 = ╱f20a00╱ // 0x3fb @0x18
0x03e3…0422 at001b = ╱ec╱,╱ // 0x3fe @0x1b
0x03e3…0422 at001c = ╱50╱P╱ // 0x3ff @0x1c
0x03e3…0422 at001d = ╱52╱R╱ // 0x400 @0x1d
0x03e3…0422 at001e = ╱47╱G╱ // 0x401 @0x1e
0x03e3…0422 at001f = ╱46╱F╱ // 0x402 @0x1f
0x03e3…0422 at0020 = ╱4c╱L╱ // 0x403 @0x20
0x03e3…0422 at0021 = ╱ef╱$╱ // 0x404 @0x21
0x03e3…0422 at0022 = ╱ba╱ OF ╱ // 0x405 @0x22
0x03e3…0422 at0023 = ╱38╱8╱ // 0x406 @0x23
0x03e3…0422 at0024 = ╱f20800╱ // 0x407 @0x24
0x03e3…0422 at0027 = ╱ec╱,╱ // 0x40a @0x27
0x03e3…0422 at0028 = ╱41╱A╱ // 0x40b @0x28
0x03e3…0422 at0029 = ╱4c╱L╱ // 0x40c @0x29
0x03e3…0422 at002a = ╱46╱F╱ // 0x40d @0x2a
0x03e3…0422 at002b = ╱41╱A╱ // 0x40e @0x2b
0x03e3…0422 at002c = ╱ef╱$╱ // 0x40f @0x2c
0x03e3…0422 at002d = ╱ba╱ OF ╱ // 0x410 @0x2d
0x03e3…0422 at002e = ╱32╱2╱ // 0x411 @0x2e
0x03e3…0422 at002f = ╱38╱8╱ // 0x412 @0x2f
0x03e3…0422 at0030 = ╱f21c00╱ // 0x413 @0x30
0x03e3…0422 at0033 = ╱ec╱,╱ // 0x416 @0x33
0x03e3…0422 at0034 = ╱54╱T╱ // 0x417 @0x34
0x03e3…0422 at0035 = ╱41╱A╱ // 0x418 @0x35
0x03e3…0422 at0036 = ╱4c╱L╱ // 0x419 @0x36
0x03e3…0422 at0037 = ╱ef╱$╱ // 0x41a @0x37
0x03e3…0422 at0038 = ╱ba╱ OF ╱ // 0x41b @0x38
0x03e3…0422 at0039 = ╱31╱1╱ // 0x41c @0x39
0x03e3…0422 at003a = ╱30╱0╱ // 0x41d @0x3a
0x03e3…0422 at003b = ╱f20a00╱ // 0x41e @0x3b
0x03e3…0422 at003e = EOL // 0x421 @0x3e
0x03e3…0422 }
0x0422…0442 9a30 0170 DIM PROGRAM$ OF 17,PRTNR$ OF 1
0x0422…0442 LineComal80 {
0x0422…0442 ptr = 0x9a30 // 0x422 @0x0
0x0422…0442 lno = 0x00aa // 0x424 @0x2
0x0422…0442 at0004 = ╱87╱ DIM ╱ // 0x426 @0x4
0x0422…0442 at0005 = ╱50╱P╱ // 0x427 @0x5
0x0422…0442 at0006 = ╱52╱R╱ // 0x428 @0x6
0x0422…0442 at0007 = ╱4f╱O╱ // 0x429 @0x7
0x0422…0442 at0008 = ╱47╱G╱ // 0x42a @0x8
0x0422…0442 at0009 = ╱52╱R╱ // 0x42b @0x9
0x0422…0442 at000a = ╱41╱A╱ // 0x42c @0xa
0x0422…0442 at000b = ╱4d╱M╱ // 0x42d @0xb
0x0422…0442 at000c = ╱ef╱$╱ // 0x42e @0xc
0x0422…0442 at000d = ╱ba╱ OF ╱ // 0x42f @0xd
0x0422…0442 at000e = ╱31╱1╱ // 0x430 @0xe
0x0422…0442 at000f = ╱37╱7╱ // 0x431 @0xf
0x0422…0442 at0010 = ╱f21100╱ // 0x432 @0x10
0x0422…0442 at0013 = ╱ec╱,╱ // 0x435 @0x13
0x0422…0442 at0014 = ╱50╱P╱ // 0x436 @0x14
0x0422…0442 at0015 = ╱52╱R╱ // 0x437 @0x15
0x0422…0442 at0016 = ╱54╱T╱ // 0x438 @0x16
0x0422…0442 at0017 = ╱4e╱N╱ // 0x439 @0x17
0x0422…0442 at0018 = ╱52╱R╱ // 0x43a @0x18
0x0422…0442 at0019 = ╱ef╱$╱ // 0x43b @0x19
0x0422…0442 at001a = ╱ba╱ OF ╱ // 0x43c @0x1a
0x0422…0442 at001b = ╱31╱1╱ // 0x43d @0x1b
0x0422…0442 at001c = ╱f20100╱ // 0x43e @0x1c
0x0422…0442 at001f = EOL // 0x441 @0x1f
0x0422…0442 }
0x0442…0452 9a40 0300 REAL RESRV,PPAR
0x0442…0452 LineComal80 {
0x0442…0452 ptr = 0x9a40 // 0x442 @0x0
0x0442…0452 lno = 0x012c // 0x444 @0x2
0x0442…0452 at0004 = ╱b3╱ REAL ╱ // 0x446 @0x4
0x0442…0452 at0005 = ╱52╱R╱ // 0x447 @0x5
0x0442…0452 at0006 = ╱45╱E╱ // 0x448 @0x6
0x0442…0452 at0007 = ╱53╱S╱ // 0x449 @0x7
0x0442…0452 at0008 = ╱52╱R╱ // 0x44a @0x8
0x0442…0452 at0009 = ╱56╱V╱ // 0x44b @0x9
0x0442…0452 at000a = ╱ec╱,╱ // 0x44c @0xa
0x0442…0452 at000b = ╱50╱P╱ // 0x44d @0xb
0x0442…0452 at000c = ╱50╱P╱ // 0x44e @0xc
0x0442…0452 at000d = ╱41╱A╱ // 0x44f @0xd
0x0442…0452 at000e = ╱52╱R╱ // 0x450 @0xe
0x0442…0452 at000f = EOL // 0x451 @0xf
0x0442…0452 }
0x0452…047e c500 0310 INTEGER OK,TRUE,FALSE,I,J,LIN_T,MAX_LIN,SIDENR
0x0452…047e LineComal80 {
0x0452…047e ptr = 0xc500 // 0x452 @0x0
0x0452…047e lno = 0x0136 // 0x454 @0x2
0x0452…047e at0004 = ╱b2╱ INTEGER ╱ // 0x456 @0x4
0x0452…047e at0005 = ╱4f╱O╱ // 0x457 @0x5
0x0452…047e at0006 = ╱4b╱K╱ // 0x458 @0x6
0x0452…047e at0007 = ╱ec╱,╱ // 0x459 @0x7
0x0452…047e at0008 = ╱54╱T╱ // 0x45a @0x8
0x0452…047e at0009 = ╱52╱R╱ // 0x45b @0x9
0x0452…047e at000a = ╱55╱U╱ // 0x45c @0xa
0x0452…047e at000b = ╱45╱E╱ // 0x45d @0xb
0x0452…047e at000c = ╱ec╱,╱ // 0x45e @0xc
0x0452…047e at000d = ╱46╱F╱ // 0x45f @0xd
0x0452…047e at000e = ╱41╱A╱ // 0x460 @0xe
0x0452…047e at000f = ╱4c╱L╱ // 0x461 @0xf
0x0452…047e at0010 = ╱53╱S╱ // 0x462 @0x10
0x0452…047e at0011 = ╱45╱E╱ // 0x463 @0x11
0x0452…047e at0012 = ╱ec╱,╱ // 0x464 @0x12
0x0452…047e at0013 = ╱49╱I╱ // 0x465 @0x13
0x0452…047e at0014 = ╱ec╱,╱ // 0x466 @0x14
0x0452…047e at0015 = ╱4a╱J╱ // 0x467 @0x15
0x0452…047e at0016 = ╱ec╱,╱ // 0x468 @0x16
0x0452…047e at0017 = ╱4c╱L╱ // 0x469 @0x17
0x0452…047e at0018 = ╱49╱I╱ // 0x46a @0x18
0x0452…047e at0019 = ╱4e╱N╱ // 0x46b @0x19
0x0452…047e at001a = ╱5f╱_╱ // 0x46c @0x1a
0x0452…047e at001b = ╱54╱T╱ // 0x46d @0x1b
0x0452…047e at001c = ╱ec╱,╱ // 0x46e @0x1c
0x0452…047e at001d = ╱4d╱M╱ // 0x46f @0x1d
0x0452…047e at001e = ╱41╱A╱ // 0x470 @0x1e
0x0452…047e at001f = ╱58╱X╱ // 0x471 @0x1f
0x0452…047e at0020 = ╱5f╱_╱ // 0x472 @0x20
0x0452…047e at0021 = ╱4c╱L╱ // 0x473 @0x21
0x0452…047e at0022 = ╱49╱I╱ // 0x474 @0x22
0x0452…047e at0023 = ╱4e╱N╱ // 0x475 @0x23
0x0452…047e at0024 = ╱ec╱,╱ // 0x476 @0x24
0x0452…047e at0025 = ╱53╱S╱ // 0x477 @0x25
0x0452…047e at0026 = ╱49╱I╱ // 0x478 @0x26
0x0452…047e at0027 = ╱44╱D╱ // 0x479 @0x27
0x0452…047e at0028 = ╱45╱E╱ // 0x47a @0x28
0x0452…047e at0029 = ╱4e╱N╱ // 0x47b @0x29
0x0452…047e at002a = ╱52╱R╱ // 0x47c @0x2a
0x0452…047e at002b = EOL // 0x47d @0x2b
0x0452…047e }
0x047e…04a2 9a90 0340 // Variable til filen KTOIDX m.m.
0x047e…04a2 LineComal80 {
0x047e…04a2 ptr = 0x9a90 // 0x47e @0x0
0x047e…04a2 lno = 0x0154 // 0x480 @0x2
0x047e…04a2 at0004 = ╱89╱ // ╱ // 0x482 @0x4
0x047e…04a2 at0005 = ╱56╱V╱ // 0x483 @0x5
0x047e…04a2 at0006 = ╱61╱a╱ // 0x484 @0x6
0x047e…04a2 at0007 = ╱72╱r╱ // 0x485 @0x7
0x047e…04a2 at0008 = ╱69╱i╱ // 0x486 @0x8
0x047e…04a2 at0009 = ╱61╱a╱ // 0x487 @0x9
0x047e…04a2 at000a = ╱62╱b╱ // 0x488 @0xa
0x047e…04a2 at000b = ╱6c╱l╱ // 0x489 @0xb
0x047e…04a2 at000c = ╱65╱e╱ // 0x48a @0xc
0x047e…04a2 at000d = ╱20╱…╱ // 0x48b @0xd
0x047e…04a2 at000e = ╱74╱t╱ // 0x48c @0xe
0x047e…04a2 at000f = ╱69╱i╱ // 0x48d @0xf
0x047e…04a2 at0010 = ╱6c╱l╱ // 0x48e @0x10
0x047e…04a2 at0011 = ╱20╱…╱ // 0x48f @0x11
0x047e…04a2 at0012 = ╱66╱f╱ // 0x490 @0x12
0x047e…04a2 at0013 = ╱69╱i╱ // 0x491 @0x13
0x047e…04a2 at0014 = ╱6c╱l╱ // 0x492 @0x14
0x047e…04a2 at0015 = ╱65╱e╱ // 0x493 @0x15
0x047e…04a2 at0016 = ╱6e╱n╱ // 0x494 @0x16
0x047e…04a2 at0017 = ╱20╱…╱ // 0x495 @0x17
0x047e…04a2 at0018 = ╱4b╱K╱ // 0x496 @0x18
0x047e…04a2 at0019 = ╱54╱T╱ // 0x497 @0x19
0x047e…04a2 at001a = ╱4f╱O╱ // 0x498 @0x1a
0x047e…04a2 at001b = ╱49╱I╱ // 0x499 @0x1b
0x047e…04a2 at001c = ╱44╱D╱ // 0x49a @0x1c
0x047e…04a2 at001d = ╱58╱X╱ // 0x49b @0x1d
0x047e…04a2 at001e = ╱20╱…╱ // 0x49c @0x1e
0x047e…04a2 at001f = ╱6d╱m╱ // 0x49d @0x1f
0x047e…04a2 at0020 = ╱2e╱.╱ // 0x49e @0x20
0x047e…04a2 at0021 = ╱6d╱m╱ // 0x49f @0x21
0x047e…04a2 at0022 = ╱2e╱.╱ // 0x4a0 @0x22
0x047e…04a2 at0023 = EOL // 0x4a1 @0x23
0x047e…04a2 }
0x04a2…04b5 9aa3 0350 DIM KTOIDX$ OF 17
0x04a2…04b5 LineComal80 {
0x04a2…04b5 ptr = 0x9aa3 // 0x4a2 @0x0
0x04a2…04b5 lno = 0x015e // 0x4a4 @0x2
0x04a2…04b5 at0004 = ╱87╱ DIM ╱ // 0x4a6 @0x4
0x04a2…04b5 at0005 = ╱4b╱K╱ // 0x4a7 @0x5
0x04a2…04b5 at0006 = ╱54╱T╱ // 0x4a8 @0x6
0x04a2…04b5 at0007 = ╱4f╱O╱ // 0x4a9 @0x7
0x04a2…04b5 at0008 = ╱49╱I╱ // 0x4aa @0x8
0x04a2…04b5 at0009 = ╱44╱D╱ // 0x4ab @0x9
0x04a2…04b5 at000a = ╱58╱X╱ // 0x4ac @0xa
0x04a2…04b5 at000b = ╱ef╱$╱ // 0x4ad @0xb
0x04a2…04b5 at000c = ╱ba╱ OF ╱ // 0x4ae @0xc
0x04a2…04b5 at000d = ╱31╱1╱ // 0x4af @0xd
0x04a2…04b5 at000e = ╱37╱7╱ // 0x4b0 @0xe
0x04a2…04b5 at000f = ╱f21100╱ // 0x4b1 @0xf
0x04a2…04b5 at0012 = EOL // 0x4b4 @0x12
0x04a2…04b5 }
0x04b5…04e6 9ad4 0360 INTEGER I_HØJREC,I_MAXREC,LOW,HIGH,POS,IDXPOS,RECNR
0x04b5…04e6 LineComal80 {
0x04b5…04e6 ptr = 0x9ad4 // 0x4b5 @0x0
0x04b5…04e6 lno = 0x0168 // 0x4b7 @0x2
0x04b5…04e6 at0004 = ╱b2╱ INTEGER ╱ // 0x4b9 @0x4
0x04b5…04e6 at0005 = ╱49╱I╱ // 0x4ba @0x5
0x04b5…04e6 at0006 = ╱5f╱_╱ // 0x4bb @0x6
0x04b5…04e6 at0007 = ╱48╱H╱ // 0x4bc @0x7
0x04b5…04e6 at0008 = ╱5c╱Ø╱ // 0x4bd @0x8
0x04b5…04e6 at0009 = ╱4a╱J╱ // 0x4be @0x9
0x04b5…04e6 at000a = ╱52╱R╱ // 0x4bf @0xa
0x04b5…04e6 at000b = ╱45╱E╱ // 0x4c0 @0xb
0x04b5…04e6 at000c = ╱43╱C╱ // 0x4c1 @0xc
0x04b5…04e6 at000d = ╱ec╱,╱ // 0x4c2 @0xd
0x04b5…04e6 at000e = ╱49╱I╱ // 0x4c3 @0xe
0x04b5…04e6 at000f = ╱5f╱_╱ // 0x4c4 @0xf
0x04b5…04e6 at0010 = ╱4d╱M╱ // 0x4c5 @0x10
0x04b5…04e6 at0011 = ╱41╱A╱ // 0x4c6 @0x11
0x04b5…04e6 at0012 = ╱58╱X╱ // 0x4c7 @0x12
0x04b5…04e6 at0013 = ╱52╱R╱ // 0x4c8 @0x13
0x04b5…04e6 at0014 = ╱45╱E╱ // 0x4c9 @0x14
0x04b5…04e6 at0015 = ╱43╱C╱ // 0x4ca @0x15
0x04b5…04e6 at0016 = ╱ec╱,╱ // 0x4cb @0x16
0x04b5…04e6 at0017 = ╱4c╱L╱ // 0x4cc @0x17
0x04b5…04e6 at0018 = ╱4f╱O╱ // 0x4cd @0x18
0x04b5…04e6 at0019 = ╱57╱W╱ // 0x4ce @0x19
0x04b5…04e6 at001a = ╱ec╱,╱ // 0x4cf @0x1a
0x04b5…04e6 at001b = ╱48╱H╱ // 0x4d0 @0x1b
0x04b5…04e6 at001c = ╱49╱I╱ // 0x4d1 @0x1c
0x04b5…04e6 at001d = ╱47╱G╱ // 0x4d2 @0x1d
0x04b5…04e6 at001e = ╱48╱H╱ // 0x4d3 @0x1e
0x04b5…04e6 at001f = ╱ec╱,╱ // 0x4d4 @0x1f
0x04b5…04e6 at0020 = ╱50╱P╱ // 0x4d5 @0x20
0x04b5…04e6 at0021 = ╱4f╱O╱ // 0x4d6 @0x21
0x04b5…04e6 at0022 = ╱53╱S╱ // 0x4d7 @0x22
0x04b5…04e6 at0023 = ╱ec╱,╱ // 0x4d8 @0x23
0x04b5…04e6 at0024 = ╱49╱I╱ // 0x4d9 @0x24
0x04b5…04e6 at0025 = ╱44╱D╱ // 0x4da @0x25
0x04b5…04e6 at0026 = ╱58╱X╱ // 0x4db @0x26
0x04b5…04e6 at0027 = ╱50╱P╱ // 0x4dc @0x27
0x04b5…04e6 at0028 = ╱4f╱O╱ // 0x4dd @0x28
0x04b5…04e6 at0029 = ╱53╱S╱ // 0x4de @0x29
0x04b5…04e6 at002a = ╱ec╱,╱ // 0x4df @0x2a
0x04b5…04e6 at002b = ╱52╱R╱ // 0x4e0 @0x2b
0x04b5…04e6 at002c = ╱45╱E╱ // 0x4e1 @0x2c
0x04b5…04e6 at002d = ╱43╱C╱ // 0x4e2 @0x2d
0x04b5…04e6 at002e = ╱4e╱N╱ // 0x4e3 @0x2e
0x04b5…04e6 at002f = ╱52╱R╱ // 0x4e4 @0x2f
0x04b5…04e6 at0030 = EOL // 0x4e5 @0x30
0x04b5…04e6 }
0x04e6…04f7 9ae5 0370 DIM KTONR$ OF 8
0x04e6…04f7 LineComal80 {
0x04e6…04f7 ptr = 0x9ae5 // 0x4e6 @0x0
0x04e6…04f7 lno = 0x0172 // 0x4e8 @0x2
0x04e6…04f7 at0004 = ╱87╱ DIM ╱ // 0x4ea @0x4
0x04e6…04f7 at0005 = ╱4b╱K╱ // 0x4eb @0x5
0x04e6…04f7 at0006 = ╱54╱T╱ // 0x4ec @0x6
0x04e6…04f7 at0007 = ╱4f╱O╱ // 0x4ed @0x7
0x04e6…04f7 at0008 = ╱4e╱N╱ // 0x4ee @0x8
0x04e6…04f7 at0009 = ╱52╱R╱ // 0x4ef @0x9
0x04e6…04f7 at000a = ╱ef╱$╱ // 0x4f0 @0xa
0x04e6…04f7 at000b = ╱ba╱ OF ╱ // 0x4f1 @0xb
0x04e6…04f7 at000c = ╱38╱8╱ // 0x4f2 @0xc
0x04e6…04f7 at000d = ╱f20800╱ // 0x4f3 @0xd
0x04e6…04f7 at0010 = EOL // 0x4f6 @0x10
0x04e6…04f7 }
0x04f7…0517 9b05 0380 // Variable til filen @@KONTO
0x04f7…0517 LineComal80 {
0x04f7…0517 ptr = 0x9b05 // 0x4f7 @0x0
0x04f7…0517 lno = 0x017c // 0x4f9 @0x2
0x04f7…0517 at0004 = ╱89╱ // ╱ // 0x4fb @0x4
0x04f7…0517 at0005 = ╱56╱V╱ // 0x4fc @0x5
0x04f7…0517 at0006 = ╱61╱a╱ // 0x4fd @0x6
0x04f7…0517 at0007 = ╱72╱r╱ // 0x4fe @0x7
0x04f7…0517 at0008 = ╱69╱i╱ // 0x4ff @0x8
0x04f7…0517 at0009 = ╱61╱a╱ // 0x500 @0x9
0x04f7…0517 at000a = ╱62╱b╱ // 0x501 @0xa
0x04f7…0517 at000b = ╱6c╱l╱ // 0x502 @0xb
0x04f7…0517 at000c = ╱65╱e╱ // 0x503 @0xc
0x04f7…0517 at000d = ╱20╱…╱ // 0x504 @0xd
0x04f7…0517 at000e = ╱74╱t╱ // 0x505 @0xe
0x04f7…0517 at000f = ╱69╱i╱ // 0x506 @0xf
0x04f7…0517 at0010 = ╱6c╱l╱ // 0x507 @0x10
0x04f7…0517 at0011 = ╱20╱…╱ // 0x508 @0x11
0x04f7…0517 at0012 = ╱66╱f╱ // 0x509 @0x12
0x04f7…0517 at0013 = ╱69╱i╱ // 0x50a @0x13
0x04f7…0517 at0014 = ╱6c╱l╱ // 0x50b @0x14
0x04f7…0517 at0015 = ╱65╱e╱ // 0x50c @0x15
0x04f7…0517 at0016 = ╱6e╱n╱ // 0x50d @0x16
0x04f7…0517 at0017 = ╱20╱…╱ // 0x50e @0x17
0x04f7…0517 at0018 = ╱40╱@╱ // 0x50f @0x18
0x04f7…0517 at0019 = ╱40╱@╱ // 0x510 @0x19
0x04f7…0517 at001a = ╱4b╱K╱ // 0x511 @0x1a
0x04f7…0517 at001b = ╱4f╱O╱ // 0x512 @0x1b
0x04f7…0517 at001c = ╱4e╱N╱ // 0x513 @0x1c
0x04f7…0517 at001d = ╱54╱T╱ // 0x514 @0x1d
0x04f7…0517 at001e = ╱4f╱O╱ // 0x515 @0x1e
0x04f7…0517 at001f = EOL // 0x516 @0x1f
0x04f7…0517 }
0x0517…0529 9b17 0390 DIM KONTO$ OF 17
0x0517…0529 LineComal80 {
0x0517…0529 ptr = 0x9b17 // 0x517 @0x0
0x0517…0529 lno = 0x0186 // 0x519 @0x2
0x0517…0529 at0004 = ╱87╱ DIM ╱ // 0x51b @0x4
0x0517…0529 at0005 = ╱4b╱K╱ // 0x51c @0x5
0x0517…0529 at0006 = ╱4f╱O╱ // 0x51d @0x6
0x0517…0529 at0007 = ╱4e╱N╱ // 0x51e @0x7
0x0517…0529 at0008 = ╱54╱T╱ // 0x51f @0x8
0x0517…0529 at0009 = ╱4f╱O╱ // 0x520 @0x9
0x0517…0529 at000a = ╱ef╱$╱ // 0x521 @0xa
0x0517…0529 at000b = ╱ba╱ OF ╱ // 0x522 @0xb
0x0517…0529 at000c = ╱31╱1╱ // 0x523 @0xc
0x0517…0529 at000d = ╱37╱7╱ // 0x524 @0xd
0x0517…0529 at000e = ╱f21100╱ // 0x525 @0xe
0x0517…0529 at0011 = EOL // 0x528 @0x11
0x0517…0529 }
0x0529…053c 9b2a 0400 DIM ST_DATO$ OF 6
0x0529…053c LineComal80 {
0x0529…053c ptr = 0x9b2a // 0x529 @0x0
0x0529…053c lno = 0x0190 // 0x52b @0x2
0x0529…053c at0004 = ╱87╱ DIM ╱ // 0x52d @0x4
0x0529…053c at0005 = ╱53╱S╱ // 0x52e @0x5
0x0529…053c at0006 = ╱54╱T╱ // 0x52f @0x6
0x0529…053c at0007 = ╱5f╱_╱ // 0x530 @0x7
0x0529…053c at0008 = ╱44╱D╱ // 0x531 @0x8
0x0529…053c at0009 = ╱41╱A╱ // 0x532 @0x9
0x0529…053c at000a = ╱54╱T╱ // 0x533 @0xa
0x0529…053c at000b = ╱4f╱O╱ // 0x534 @0xb
0x0529…053c at000c = ╱ef╱$╱ // 0x535 @0xc
0x0529…053c at000d = ╱ba╱ OF ╱ // 0x536 @0xd
0x0529…053c at000e = ╱36╱6╱ // 0x537 @0xe
0x0529…053c at000f = ╱f20600╱ // 0x538 @0xf
0x0529…053c at0012 = EOL // 0x53b @0x12
0x0529…053c }
0x053c…0562 9b50 0410 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0x053c…0562 LineComal80 {
0x053c…0562 ptr = 0x9b50 // 0x53c @0x0
0x053c…0562 lno = 0x019a // 0x53e @0x2
0x053c…0562 at0004 = ╱b2╱ INTEGER ╱ // 0x540 @0x4
0x053c…0562 at0005 = ╱4e╱N╱ // 0x541 @0x5
0x053c…0562 at0006 = ╱5f╱_╱ // 0x542 @0x6
0x053c…0562 at0007 = ╱46╱F╱ // 0x543 @0x7
0x053c…0562 at0008 = ╱52╱R╱ // 0x544 @0x8
0x053c…0562 at0009 = ╱49╱I╱ // 0x545 @0x9
0x053c…0562 at000a = ╱52╱R╱ // 0x546 @0xa
0x053c…0562 at000b = ╱45╱E╱ // 0x547 @0xb
0x053c…0562 at000c = ╱43╱C╱ // 0x548 @0xc
0x053c…0562 at000d = ╱ec╱,╱ // 0x549 @0xd
0x053c…0562 at000e = ╱4e╱N╱ // 0x54a @0xe
0x053c…0562 at000f = ╱5f╱_╱ // 0x54b @0xf
0x053c…0562 at0010 = ╱4d╱M╱ // 0x54c @0x10
0x053c…0562 at0011 = ╱41╱A╱ // 0x54d @0x11
0x053c…0562 at0012 = ╱58╱X╱ // 0x54e @0x12
0x053c…0562 at0013 = ╱52╱R╱ // 0x54f @0x13
0x053c…0562 at0014 = ╱45╱E╱ // 0x550 @0x14
0x053c…0562 at0015 = ╱43╱C╱ // 0x551 @0x15
0x053c…0562 at0016 = ╱ec╱,╱ // 0x552 @0x16
0x053c…0562 at0017 = ╱41╱A╱ // 0x553 @0x17
0x053c…0562 at0018 = ╱4e╱N╱ // 0x554 @0x18
0x053c…0562 at0019 = ╱54╱T╱ // 0x555 @0x19
0x053c…0562 at001a = ╱5f╱_╱ // 0x556 @0x1a
0x053c…0562 at001b = ╱50╱P╱ // 0x557 @0x1b
0x053c…0562 at001c = ╱45╱E╱ // 0x558 @0x1c
0x053c…0562 at001d = ╱52╱R╱ // 0x559 @0x1d
0x053c…0562 at001e = ╱ec╱,╱ // 0x55a @0x1e
0x053c…0562 at001f = ╱50╱P╱ // 0x55b @0x1f
0x053c…0562 at0020 = ╱45╱E╱ // 0x55c @0x20
0x053c…0562 at0021 = ╱52╱R╱ // 0x55d @0x21
0x053c…0562 at0022 = ╱5f╱_╱ // 0x55e @0x22
0x053c…0562 at0023 = ╱4e╱N╱ // 0x55f @0x23
0x053c…0562 at0024 = ╱52╱R╱ // 0x560 @0x24
0x053c…0562 at0025 = EOL // 0x561 @0x25
0x053c…0562 }
0x0562…0586 9b74 0420 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0x0562…0586 LineComal80 {
0x0562…0586 ptr = 0x9b74 // 0x562 @0x0
0x0562…0586 lno = 0x01a4 // 0x564 @0x2
0x0562…0586 at0004 = ╱87╱ DIM ╱ // 0x566 @0x4
0x0562…0586 at0005 = ╱4b╱K╱ // 0x567 @0x5
0x0562…0586 at0006 = ╱54╱T╱ // 0x568 @0x6
0x0562…0586 at0007 = ╱4f╱O╱ // 0x569 @0x7
0x0562…0586 at0008 = ╱5f╱_╱ // 0x56a @0x8
0x0562…0586 at0009 = ╱54╱T╱ // 0x56b @0x9
0x0562…0586 at000a = ╱59╱Y╱ // 0x56c @0xa
0x0562…0586 at000b = ╱50╱P╱ // 0x56d @0xb
0x0562…0586 at000c = ╱45╱E╱ // 0x56e @0xc
0x0562…0586 at000d = ╱ef╱$╱ // 0x56f @0xd
0x0562…0586 at000e = ╱ba╱ OF ╱ // 0x570 @0xe
0x0562…0586 at000f = ╱31╱1╱ // 0x571 @0xf
0x0562…0586 at0010 = ╱f20100╱ // 0x572 @0x10
0x0562…0586 at0013 = ╱ec╱,╱ // 0x575 @0x13
0x0562…0586 at0014 = ╱4b╱K╱ // 0x576 @0x14
0x0562…0586 at0015 = ╱54╱T╱ // 0x577 @0x15
0x0562…0586 at0016 = ╱4f╱O╱ // 0x578 @0x16
0x0562…0586 at0017 = ╱5f╱_╱ // 0x579 @0x17
0x0562…0586 at0018 = ╱4e╱N╱ // 0x57a @0x18
0x0562…0586 at0019 = ╱41╱A╱ // 0x57b @0x19
0x0562…0586 at001a = ╱56╱V╱ // 0x57c @0x1a
0x0562…0586 at001b = ╱4e╱N╱ // 0x57d @0x1b
0x0562…0586 at001c = ╱ef╱$╱ // 0x57e @0x1c
0x0562…0586 at001d = ╱ba╱ OF ╱ // 0x57f @0x1d
0x0562…0586 at001e = ╱34╱4╱ // 0x580 @0x1e
0x0562…0586 at001f = ╱30╱0╱ // 0x581 @0x1f
0x0562…0586 at0020 = ╱f22800╱ // 0x582 @0x20
0x0562…0586 at0023 = EOL // 0x585 @0x23
0x0562…0586 }
0x0586…05a0 9b8e 0430 REAL KTO_PRIMO,KTO_ULTIMO
0x0586…05a0 LineComal80 {
0x0586…05a0 ptr = 0x9b8e // 0x586 @0x0
0x0586…05a0 lno = 0x01ae // 0x588 @0x2
0x0586…05a0 at0004 = ╱b3╱ REAL ╱ // 0x58a @0x4
0x0586…05a0 at0005 = ╱4b╱K╱ // 0x58b @0x5
0x0586…05a0 at0006 = ╱54╱T╱ // 0x58c @0x6
0x0586…05a0 at0007 = ╱4f╱O╱ // 0x58d @0x7
0x0586…05a0 at0008 = ╱5f╱_╱ // 0x58e @0x8
0x0586…05a0 at0009 = ╱50╱P╱ // 0x58f @0x9
0x0586…05a0 at000a = ╱52╱R╱ // 0x590 @0xa
0x0586…05a0 at000b = ╱49╱I╱ // 0x591 @0xb
0x0586…05a0 at000c = ╱4d╱M╱ // 0x592 @0xc
0x0586…05a0 at000d = ╱4f╱O╱ // 0x593 @0xd
0x0586…05a0 at000e = ╱ec╱,╱ // 0x594 @0xe
0x0586…05a0 at000f = ╱4b╱K╱ // 0x595 @0xf
0x0586…05a0 at0010 = ╱54╱T╱ // 0x596 @0x10
0x0586…05a0 at0011 = ╱4f╱O╱ // 0x597 @0x11
0x0586…05a0 at0012 = ╱5f╱_╱ // 0x598 @0x12
0x0586…05a0 at0013 = ╱55╱U╱ // 0x599 @0x13
0x0586…05a0 at0014 = ╱4c╱L╱ // 0x59a @0x14
0x0586…05a0 at0015 = ╱54╱T╱ // 0x59b @0x15
0x0586…05a0 at0016 = ╱49╱I╱ // 0x59c @0x16
0x0586…05a0 at0017 = ╱4d╱M╱ // 0x59d @0x17
0x0586…05a0 at0018 = ╱4f╱O╱ // 0x59e @0x18
0x0586…05a0 at0019 = EOL // 0x59f @0x19
0x0586…05a0 }
0x05a0…05b3 9ba1 0440 INTEGER KTO_FP,KTO_SP
0x05a0…05b3 LineComal80 {
0x05a0…05b3 ptr = 0x9ba1 // 0x5a0 @0x0
0x05a0…05b3 lno = 0x01b8 // 0x5a2 @0x2
0x05a0…05b3 at0004 = ╱b2╱ INTEGER ╱ // 0x5a4 @0x4
0x05a0…05b3 at0005 = ╱4b╱K╱ // 0x5a5 @0x5
0x05a0…05b3 at0006 = ╱54╱T╱ // 0x5a6 @0x6
0x05a0…05b3 at0007 = ╱4f╱O╱ // 0x5a7 @0x7
0x05a0…05b3 at0008 = ╱5f╱_╱ // 0x5a8 @0x8
0x05a0…05b3 at0009 = ╱46╱F╱ // 0x5a9 @0x9
0x05a0…05b3 at000a = ╱50╱P╱ // 0x5aa @0xa
0x05a0…05b3 at000b = ╱ec╱,╱ // 0x5ab @0xb
0x05a0…05b3 at000c = ╱4b╱K╱ // 0x5ac @0xc
0x05a0…05b3 at000d = ╱54╱T╱ // 0x5ad @0xd
0x05a0…05b3 at000e = ╱4f╱O╱ // 0x5ae @0xe
0x05a0…05b3 at000f = ╱5f╱_╱ // 0x5af @0xf
0x05a0…05b3 at0010 = ╱53╱S╱ // 0x5b0 @0x10
0x05a0…05b3 at0011 = ╱50╱P╱ // 0x5b1 @0x11
0x05a0…05b3 at0012 = EOL // 0x5b2 @0x12
0x05a0…05b3 }
0x05b3…05d3 9bc1 0450 // Variable til filen SYSPARA
0x05b3…05d3 LineComal80 {
0x05b3…05d3 ptr = 0x9bc1 // 0x5b3 @0x0
0x05b3…05d3 lno = 0x01c2 // 0x5b5 @0x2
0x05b3…05d3 at0004 = ╱89╱ // ╱ // 0x5b7 @0x4
0x05b3…05d3 at0005 = ╱56╱V╱ // 0x5b8 @0x5
0x05b3…05d3 at0006 = ╱61╱a╱ // 0x5b9 @0x6
0x05b3…05d3 at0007 = ╱72╱r╱ // 0x5ba @0x7
0x05b3…05d3 at0008 = ╱69╱i╱ // 0x5bb @0x8
0x05b3…05d3 at0009 = ╱61╱a╱ // 0x5bc @0x9
0x05b3…05d3 at000a = ╱62╱b╱ // 0x5bd @0xa
0x05b3…05d3 at000b = ╱6c╱l╱ // 0x5be @0xb
0x05b3…05d3 at000c = ╱65╱e╱ // 0x5bf @0xc
0x05b3…05d3 at000d = ╱20╱…╱ // 0x5c0 @0xd
0x05b3…05d3 at000e = ╱74╱t╱ // 0x5c1 @0xe
0x05b3…05d3 at000f = ╱69╱i╱ // 0x5c2 @0xf
0x05b3…05d3 at0010 = ╱6c╱l╱ // 0x5c3 @0x10
0x05b3…05d3 at0011 = ╱20╱…╱ // 0x5c4 @0x11
0x05b3…05d3 at0012 = ╱66╱f╱ // 0x5c5 @0x12
0x05b3…05d3 at0013 = ╱69╱i╱ // 0x5c6 @0x13
0x05b3…05d3 at0014 = ╱6c╱l╱ // 0x5c7 @0x14
0x05b3…05d3 at0015 = ╱65╱e╱ // 0x5c8 @0x15
0x05b3…05d3 at0016 = ╱6e╱n╱ // 0x5c9 @0x16
0x05b3…05d3 at0017 = ╱20╱…╱ // 0x5ca @0x17
0x05b3…05d3 at0018 = ╱53╱S╱ // 0x5cb @0x18
0x05b3…05d3 at0019 = ╱59╱Y╱ // 0x5cc @0x19
0x05b3…05d3 at001a = ╱53╱S╱ // 0x5cd @0x1a
0x05b3…05d3 at001b = ╱50╱P╱ // 0x5ce @0x1b
0x05b3…05d3 at001c = ╱41╱A╱ // 0x5cf @0x1c
0x05b3…05d3 at001d = ╱52╱R╱ // 0x5d0 @0x1d
0x05b3…05d3 at001e = ╱41╱A╱ // 0x5d1 @0x1e
0x05b3…05d3 at001f = EOL // 0x5d2 @0x1f
0x05b3…05d3 }
0x05d3…05e7 9bd5 0460 DIM SYSPARA$ OF 17
0x05d3…05e7 LineComal80 {
0x05d3…05e7 ptr = 0x9bd5 // 0x5d3 @0x0
0x05d3…05e7 lno = 0x01cc // 0x5d5 @0x2
0x05d3…05e7 at0004 = ╱87╱ DIM ╱ // 0x5d7 @0x4
0x05d3…05e7 at0005 = ╱53╱S╱ // 0x5d8 @0x5
0x05d3…05e7 at0006 = ╱59╱Y╱ // 0x5d9 @0x6
0x05d3…05e7 at0007 = ╱53╱S╱ // 0x5da @0x7
0x05d3…05e7 at0008 = ╱50╱P╱ // 0x5db @0x8
0x05d3…05e7 at0009 = ╱41╱A╱ // 0x5dc @0x9
0x05d3…05e7 at000a = ╱52╱R╱ // 0x5dd @0xa
0x05d3…05e7 at000b = ╱41╱A╱ // 0x5de @0xb
0x05d3…05e7 at000c = ╱ef╱$╱ // 0x5df @0xc
0x05d3…05e7 at000d = ╱ba╱ OF ╱ // 0x5e0 @0xd
0x05d3…05e7 at000e = ╱31╱1╱ // 0x5e1 @0xe
0x05d3…05e7 at000f = ╱37╱7╱ // 0x5e2 @0xf
0x05d3…05e7 at0010 = ╱f21100╱ // 0x5e3 @0x10
0x05d3…05e7 at0013 = EOL // 0x5e6 @0x13
0x05d3…05e7 }
0x05e7…060a 9bf8 0470 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0x05e7…060a LineComal80 {
0x05e7…060a ptr = 0x9bf8 // 0x5e7 @0x0
0x05e7…060a lno = 0x01d6 // 0x5e9 @0x2
0x05e7…060a at0004 = ╱87╱ DIM ╱ // 0x5eb @0x4
0x05e7…060a at0005 = ╱53╱S╱ // 0x5ec @0x5
0x05e7…060a at0006 = ╱59╱Y╱ // 0x5ed @0x6
0x05e7…060a at0007 = ╱53╱S╱ // 0x5ee @0x7
0x05e7…060a at0008 = ╱54╱T╱ // 0x5ef @0x8
0x05e7…060a at0009 = ╱5f╱_╱ // 0x5f0 @0x9
0x05e7…060a at000a = ╱4e╱N╱ // 0x5f1 @0xa
0x05e7…060a at000b = ╱41╱A╱ // 0x5f2 @0xb
0x05e7…060a at000c = ╱56╱V╱ // 0x5f3 @0xc
0x05e7…060a at000d = ╱4e╱N╱ // 0x5f4 @0xd
0x05e7…060a at000e = ╱ef╱$╱ // 0x5f5 @0xe
0x05e7…060a at000f = ╱ba╱ OF ╱ // 0x5f6 @0xf
0x05e7…060a at0010 = ╱33╱3╱ // 0x5f7 @0x10
0x05e7…060a at0011 = ╱30╱0╱ // 0x5f8 @0x11
0x05e7…060a at0012 = ╱f21e00╱ // 0x5f9 @0x12
0x05e7…060a at0015 = ╱ec╱,╱ // 0x5fc @0x15
0x05e7…060a at0016 = ╱53╱S╱ // 0x5fd @0x16
0x05e7…060a at0017 = ╱5f╱_╱ // 0x5fe @0x17
0x05e7…060a at0018 = ╱4b╱K╱ // 0x5ff @0x18
0x05e7…060a at0019 = ╱4f╱O╱ // 0x600 @0x19
0x05e7…060a at001a = ╱44╱D╱ // 0x601 @0x1a
0x05e7…060a at001b = ╱45╱E╱ // 0x602 @0x1b
0x05e7…060a at001c = ╱ef╱$╱ // 0x603 @0x1c
0x05e7…060a at001d = ╱ba╱ OF ╱ // 0x604 @0x1d
0x05e7…060a at001e = ╱31╱1╱ // 0x605 @0x1e
0x05e7…060a at001f = ╱f20100╱ // 0x606 @0x1f
0x05e7…060a at0022 = EOL // 0x609 @0x22
0x05e7…060a }
0x060a…0629 9c17 0480 DIM DATAFL$ OF 8,T_KODE$ OF 1
0x060a…0629 LineComal80 {
0x060a…0629 ptr = 0x9c17 // 0x60a @0x0
0x060a…0629 lno = 0x01e0 // 0x60c @0x2
0x060a…0629 at0004 = ╱87╱ DIM ╱ // 0x60e @0x4
0x060a…0629 at0005 = ╱44╱D╱ // 0x60f @0x5
0x060a…0629 at0006 = ╱41╱A╱ // 0x610 @0x6
0x060a…0629 at0007 = ╱54╱T╱ // 0x611 @0x7
0x060a…0629 at0008 = ╱41╱A╱ // 0x612 @0x8
0x060a…0629 at0009 = ╱46╱F╱ // 0x613 @0x9
0x060a…0629 at000a = ╱4c╱L╱ // 0x614 @0xa
0x060a…0629 at000b = ╱ef╱$╱ // 0x615 @0xb
0x060a…0629 at000c = ╱ba╱ OF ╱ // 0x616 @0xc
0x060a…0629 at000d = ╱38╱8╱ // 0x617 @0xd
0x060a…0629 at000e = ╱f20800╱ // 0x618 @0xe
0x060a…0629 at0011 = ╱ec╱,╱ // 0x61b @0x11
0x060a…0629 at0012 = ╱54╱T╱ // 0x61c @0x12
0x060a…0629 at0013 = ╱5f╱_╱ // 0x61d @0x13
0x060a…0629 at0014 = ╱4b╱K╱ // 0x61e @0x14
0x060a…0629 at0015 = ╱4f╱O╱ // 0x61f @0x15
0x060a…0629 at0016 = ╱44╱D╱ // 0x620 @0x16
0x060a…0629 at0017 = ╱45╱E╱ // 0x621 @0x17
0x060a…0629 at0018 = ╱ef╱$╱ // 0x622 @0x18
0x060a…0629 at0019 = ╱ba╱ OF ╱ // 0x623 @0x19
0x060a…0629 at001a = ╱31╱1╱ // 0x624 @0x1a
0x060a…0629 at001b = ╱f20100╱ // 0x625 @0x1b
0x060a…0629 at001e = EOL // 0x628 @0x1e
0x060a…0629 }
0x0629…0649 9c37 0490 // Variable til filen @@PARAM
0x0629…0649 LineComal80 {
0x0629…0649 ptr = 0x9c37 // 0x629 @0x0
0x0629…0649 lno = 0x01ea // 0x62b @0x2
0x0629…0649 at0004 = ╱89╱ // ╱ // 0x62d @0x4
0x0629…0649 at0005 = ╱56╱V╱ // 0x62e @0x5
0x0629…0649 at0006 = ╱61╱a╱ // 0x62f @0x6
0x0629…0649 at0007 = ╱72╱r╱ // 0x630 @0x7
0x0629…0649 at0008 = ╱69╱i╱ // 0x631 @0x8
0x0629…0649 at0009 = ╱61╱a╱ // 0x632 @0x9
0x0629…0649 at000a = ╱62╱b╱ // 0x633 @0xa
0x0629…0649 at000b = ╱6c╱l╱ // 0x634 @0xb
0x0629…0649 at000c = ╱65╱e╱ // 0x635 @0xc
0x0629…0649 at000d = ╱20╱…╱ // 0x636 @0xd
0x0629…0649 at000e = ╱74╱t╱ // 0x637 @0xe
0x0629…0649 at000f = ╱69╱i╱ // 0x638 @0xf
0x0629…0649 at0010 = ╱6c╱l╱ // 0x639 @0x10
0x0629…0649 at0011 = ╱20╱…╱ // 0x63a @0x11
0x0629…0649 at0012 = ╱66╱f╱ // 0x63b @0x12
0x0629…0649 at0013 = ╱69╱i╱ // 0x63c @0x13
0x0629…0649 at0014 = ╱6c╱l╱ // 0x63d @0x14
0x0629…0649 at0015 = ╱65╱e╱ // 0x63e @0x15
0x0629…0649 at0016 = ╱6e╱n╱ // 0x63f @0x16
0x0629…0649 at0017 = ╱20╱…╱ // 0x640 @0x17
0x0629…0649 at0018 = ╱40╱@╱ // 0x641 @0x18
0x0629…0649 at0019 = ╱40╱@╱ // 0x642 @0x19
0x0629…0649 at001a = ╱50╱P╱ // 0x643 @0x1a
0x0629…0649 at001b = ╱41╱A╱ // 0x644 @0x1b
0x0629…0649 at001c = ╱52╱R╱ // 0x645 @0x1c
0x0629…0649 at001d = ╱41╱A╱ // 0x646 @0x1d
0x0629…0649 at001e = ╱4d╱M╱ // 0x647 @0x1e
0x0629…0649 at001f = EOL // 0x648 @0x1f
0x0629…0649 }
0x0649…065b 9c49 0500 DIM PARAM$ OF 17
0x0649…065b LineComal80 {
0x0649…065b ptr = 0x9c49 // 0x649 @0x0
0x0649…065b lno = 0x01f4 // 0x64b @0x2
0x0649…065b at0004 = ╱87╱ DIM ╱ // 0x64d @0x4
0x0649…065b at0005 = ╱50╱P╱ // 0x64e @0x5
0x0649…065b at0006 = ╱41╱A╱ // 0x64f @0x6
0x0649…065b at0007 = ╱52╱R╱ // 0x650 @0x7
0x0649…065b at0008 = ╱41╱A╱ // 0x651 @0x8
0x0649…065b at0009 = ╱4d╱M╱ // 0x652 @0x9
0x0649…065b at000a = ╱ef╱$╱ // 0x653 @0xa
0x0649…065b at000b = ╱ba╱ OF ╱ // 0x654 @0xb
0x0649…065b at000c = ╱31╱1╱ // 0x655 @0xc
0x0649…065b at000d = ╱37╱7╱ // 0x656 @0xd
0x0649…065b at000e = ╱f21100╱ // 0x657 @0xe
0x0649…065b at0011 = EOL // 0x65a @0x11
0x0649…065b }
0x065b…0680 9c6e 0510 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0x065b…0680 LineComal80 {
0x065b…0680 ptr = 0x9c6e // 0x65b @0x0
0x065b…0680 lno = 0x01fe // 0x65d @0x2
0x065b…0680 at0004 = ╱87╱ DIM ╱ // 0x65f @0x4
0x065b…0680 at0005 = ╱46╱F╱ // 0x660 @0x5
0x065b…0680 at0006 = ╱49╱I╱ // 0x661 @0x6
0x065b…0680 at0007 = ╱52╱R╱ // 0x662 @0x7
0x065b…0680 at0008 = ╱4d╱M╱ // 0x663 @0x8
0x065b…0680 at0009 = ╱41╱A╱ // 0x664 @0x9
0x065b…0680 at000a = ╱4e╱N╱ // 0x665 @0xa
0x065b…0680 at000b = ╱41╱A╱ // 0x666 @0xb
0x065b…0680 at000c = ╱56╱V╱ // 0x667 @0xc
0x065b…0680 at000d = ╱4e╱N╱ // 0x668 @0xd
0x065b…0680 at000e = ╱ef╱$╱ // 0x669 @0xe
0x065b…0680 at000f = ╱ba╱ OF ╱ // 0x66a @0xf
0x065b…0680 at0010 = ╱33╱3╱ // 0x66b @0x10
0x065b…0680 at0011 = ╱30╱0╱ // 0x66c @0x11
0x065b…0680 at0012 = ╱f21e00╱ // 0x66d @0x12
0x065b…0680 at0015 = ╱ec╱,╱ // 0x670 @0x15
0x065b…0680 at0016 = ╱53╱S╱ // 0x671 @0x16
0x065b…0680 at0017 = ╱59╱Y╱ // 0x672 @0x17
0x065b…0680 at0018 = ╱53╱S╱ // 0x673 @0x18
0x065b…0680 at0019 = ╱54╱T╱ // 0x674 @0x19
0x065b…0680 at001a = ╱5f╱_╱ // 0x675 @0x1a
0x065b…0680 at001b = ╱44╱D╱ // 0x676 @0x1b
0x065b…0680 at001c = ╱41╱A╱ // 0x677 @0x1c
0x065b…0680 at001d = ╱54╱T╱ // 0x678 @0x1d
0x065b…0680 at001e = ╱ef╱$╱ // 0x679 @0x1e
0x065b…0680 at001f = ╱ba╱ OF ╱ // 0x67a @0x1f
0x065b…0680 at0020 = ╱36╱6╱ // 0x67b @0x20
0x065b…0680 at0021 = ╱f20600╱ // 0x67c @0x21
0x065b…0680 at0024 = EOL // 0x67f @0x24
0x065b…0680 }
0x0680…068a 9c78 0520 REAL MOMS
0x0680…068a LineComal80 {
0x0680…068a ptr = 0x9c78 // 0x680 @0x0
0x0680…068a lno = 0x0208 // 0x682 @0x2
0x0680…068a at0004 = ╱b3╱ REAL ╱ // 0x684 @0x4
0x0680…068a at0005 = ╱4d╱M╱ // 0x685 @0x5
0x0680…068a at0006 = ╱4f╱O╱ // 0x686 @0x6
0x0680…068a at0007 = ╱4d╱M╱ // 0x687 @0x7
0x0680…068a at0008 = ╱53╱S╱ // 0x688 @0x8
0x0680…068a at0009 = EOL // 0x689 @0x9
0x0680…068a }
0x068a…0695 9c83 0530 REAL SALDO
0x068a…0695 LineComal80 {
0x068a…0695 ptr = 0x9c83 // 0x68a @0x0
0x068a…0695 lno = 0x0212 // 0x68c @0x2
0x068a…0695 at0004 = ╱b3╱ REAL ╱ // 0x68e @0x4
0x068a…0695 at0005 = ╱53╱S╱ // 0x68f @0x5
0x068a…0695 at0006 = ╱41╱A╱ // 0x690 @0x6
0x068a…0695 at0007 = ╱4c╱L╱ // 0x691 @0x7
0x068a…0695 at0008 = ╱44╱D╱ // 0x692 @0x8
0x068a…0695 at0009 = ╱4f╱O╱ // 0x693 @0x9
0x068a…0695 at000a = EOL // 0x694 @0xa
0x068a…0695 }
0x0695…06b3 9ca1 0540 DIM FIL$ OF 17,S_KTONR$ OF 8
0x0695…06b3 LineComal80 {
0x0695…06b3 ptr = 0x9ca1 // 0x695 @0x0
0x0695…06b3 lno = 0x021c // 0x697 @0x2
0x0695…06b3 at0004 = ╱87╱ DIM ╱ // 0x699 @0x4
0x0695…06b3 at0005 = ╱46╱F╱ // 0x69a @0x5
0x0695…06b3 at0006 = ╱49╱I╱ // 0x69b @0x6
0x0695…06b3 at0007 = ╱4c╱L╱ // 0x69c @0x7
0x0695…06b3 at0008 = ╱ef╱$╱ // 0x69d @0x8
0x0695…06b3 at0009 = ╱ba╱ OF ╱ // 0x69e @0x9
0x0695…06b3 at000a = ╱31╱1╱ // 0x69f @0xa
0x0695…06b3 at000b = ╱37╱7╱ // 0x6a0 @0xb
0x0695…06b3 at000c = ╱f21100╱ // 0x6a1 @0xc
0x0695…06b3 at000f = ╱ec╱,╱ // 0x6a4 @0xf
0x0695…06b3 at0010 = ╱53╱S╱ // 0x6a5 @0x10
0x0695…06b3 at0011 = ╱5f╱_╱ // 0x6a6 @0x11
0x0695…06b3 at0012 = ╱4b╱K╱ // 0x6a7 @0x12
0x0695…06b3 at0013 = ╱54╱T╱ // 0x6a8 @0x13
0x0695…06b3 at0014 = ╱4f╱O╱ // 0x6a9 @0x14
0x0695…06b3 at0015 = ╱4e╱N╱ // 0x6aa @0x15
0x0695…06b3 at0016 = ╱52╱R╱ // 0x6ab @0x16
0x0695…06b3 at0017 = ╱ef╱$╱ // 0x6ac @0x17
0x0695…06b3 at0018 = ╱ba╱ OF ╱ // 0x6ad @0x18
0x0695…06b3 at0019 = ╱38╱8╱ // 0x6ae @0x19
0x0695…06b3 at001a = ╱f20800╱ // 0x6af @0x1a
0x0695…06b3 at001d = EOL // 0x6b2 @0x1d
0x0695…06b3 }
0x06b3…06d2 c91b 0550 // Variable til filen driftø
0x06b3…06d2 LineComal80 {
0x06b3…06d2 ptr = 0xc91b // 0x6b3 @0x0
0x06b3…06d2 lno = 0x0226 // 0x6b5 @0x2
0x06b3…06d2 at0004 = ╱89╱ // ╱ // 0x6b7 @0x4
0x06b3…06d2 at0005 = ╱56╱V╱ // 0x6b8 @0x5
0x06b3…06d2 at0006 = ╱61╱a╱ // 0x6b9 @0x6
0x06b3…06d2 at0007 = ╱72╱r╱ // 0x6ba @0x7
0x06b3…06d2 at0008 = ╱69╱i╱ // 0x6bb @0x8
0x06b3…06d2 at0009 = ╱61╱a╱ // 0x6bc @0x9
0x06b3…06d2 at000a = ╱62╱b╱ // 0x6bd @0xa
0x06b3…06d2 at000b = ╱6c╱l╱ // 0x6be @0xb
0x06b3…06d2 at000c = ╱65╱e╱ // 0x6bf @0xc
0x06b3…06d2 at000d = ╱20╱…╱ // 0x6c0 @0xd
0x06b3…06d2 at000e = ╱74╱t╱ // 0x6c1 @0xe
0x06b3…06d2 at000f = ╱69╱i╱ // 0x6c2 @0xf
0x06b3…06d2 at0010 = ╱6c╱l╱ // 0x6c3 @0x10
0x06b3…06d2 at0011 = ╱20╱…╱ // 0x6c4 @0x11
0x06b3…06d2 at0012 = ╱66╱f╱ // 0x6c5 @0x12
0x06b3…06d2 at0013 = ╱69╱i╱ // 0x6c6 @0x13
0x06b3…06d2 at0014 = ╱6c╱l╱ // 0x6c7 @0x14
0x06b3…06d2 at0015 = ╱65╱e╱ // 0x6c8 @0x15
0x06b3…06d2 at0016 = ╱6e╱n╱ // 0x6c9 @0x16
0x06b3…06d2 at0017 = ╱20╱…╱ // 0x6ca @0x17
0x06b3…06d2 at0018 = ╱64╱d╱ // 0x6cb @0x18
0x06b3…06d2 at0019 = ╱72╱r╱ // 0x6cc @0x19
0x06b3…06d2 at001a = ╱69╱i╱ // 0x6cd @0x1a
0x06b3…06d2 at001b = ╱66╱f╱ // 0x6ce @0x1b
0x06b3…06d2 at001c = ╱74╱t╱ // 0x6cf @0x1c
0x06b3…06d2 at001d = ╱7c╱ø╱ // 0x6d0 @0x1d
0x06b3…06d2 at001e = EOL // 0x6d1 @0x1e
0x06b3…06d2 }
0x06d2…06e5 9cd3 0420 DIM DRIFTØ$ OF 17
0x06d2…06e5 LineComal80 {
0x06d2…06e5 ptr = 0x9cd3 // 0x6d2 @0x0
0x06d2…06e5 lno = 0x01a4 // 0x6d4 @0x2
0x06d2…06e5 at0004 = ╱87╱ DIM ╱ // 0x6d6 @0x4
0x06d2…06e5 at0005 = ╱44╱D╱ // 0x6d7 @0x5
0x06d2…06e5 at0006 = ╱52╱R╱ // 0x6d8 @0x6
0x06d2…06e5 at0007 = ╱49╱I╱ // 0x6d9 @0x7
0x06d2…06e5 at0008 = ╱46╱F╱ // 0x6da @0x8
0x06d2…06e5 at0009 = ╱54╱T╱ // 0x6db @0x9
0x06d2…06e5 at000a = ╱5c╱Ø╱ // 0x6dc @0xa
0x06d2…06e5 at000b = ╱ef╱$╱ // 0x6dd @0xb
0x06d2…06e5 at000c = ╱ba╱ OF ╱ // 0x6de @0xc
0x06d2…06e5 at000d = ╱31╱1╱ // 0x6df @0xd
0x06d2…06e5 at000e = ╱37╱7╱ // 0x6e0 @0xe
0x06d2…06e5 at000f = ╱f21100╱ // 0x6e1 @0xf
0x06d2…06e5 at0012 = EOL // 0x6e4 @0x12
0x06d2…06e5 }
0x06e5…06f9 9ce7 0570 DIM PRIMODAT$ OF 6
0x06e5…06f9 LineComal80 {
0x06e5…06f9 ptr = 0x9ce7 // 0x6e5 @0x0
0x06e5…06f9 lno = 0x023a // 0x6e7 @0x2
0x06e5…06f9 at0004 = ╱87╱ DIM ╱ // 0x6e9 @0x4
0x06e5…06f9 at0005 = ╱50╱P╱ // 0x6ea @0x5
0x06e5…06f9 at0006 = ╱52╱R╱ // 0x6eb @0x6
0x06e5…06f9 at0007 = ╱49╱I╱ // 0x6ec @0x7
0x06e5…06f9 at0008 = ╱4d╱M╱ // 0x6ed @0x8
0x06e5…06f9 at0009 = ╱4f╱O╱ // 0x6ee @0x9
0x06e5…06f9 at000a = ╱44╱D╱ // 0x6ef @0xa
0x06e5…06f9 at000b = ╱41╱A╱ // 0x6f0 @0xb
0x06e5…06f9 at000c = ╱54╱T╱ // 0x6f1 @0xc
0x06e5…06f9 at000d = ╱ef╱$╱ // 0x6f2 @0xd
0x06e5…06f9 at000e = ╱ba╱ OF ╱ // 0x6f3 @0xe
0x06e5…06f9 at000f = ╱36╱6╱ // 0x6f4 @0xf
0x06e5…06f9 at0010 = ╱f20600╱ // 0x6f5 @0x10
0x06e5…06f9 at0013 = EOL // 0x6f8 @0x13
0x06e5…06f9 }
0x06f9…070a 9e26 0580 REAL DRIFT(2)
0x06f9…070a LineComal80 {
0x06f9…070a ptr = 0x9e26 // 0x6f9 @0x0
0x06f9…070a lno = 0x0244 // 0x6fb @0x2
0x06f9…070a at0004 = ╱b3╱ REAL ╱ // 0x6fd @0x4
0x06f9…070a at0005 = ╱44╱D╱ // 0x6fe @0x5
0x06f9…070a at0006 = ╱52╱R╱ // 0x6ff @0x6
0x06f9…070a at0007 = ╱49╱I╱ // 0x700 @0x7
0x06f9…070a at0008 = ╱46╱F╱ // 0x701 @0x8
0x06f9…070a at0009 = ╱54╱T╱ // 0x702 @0x9
0x06f9…070a at000a = ╱ed╱(╱ // 0x703 @0xa
0x06f9…070a at000b = ╱32╱2╱ // 0x704 @0xb
0x06f9…070a at000c = ╱f20200╱ // 0x705 @0xc
0x06f9…070a at000f = ╱ee╱)╱ // 0x708 @0xf
0x06f9…070a at0010 = EOL // 0x709 @0x10
0x06f9…070a }
0x070a…072e 9d1c 0610 // Filnavne til regnskabsanalysen
0x070a…072e LineComal80 {
0x070a…072e ptr = 0x9d1c // 0x70a @0x0
0x070a…072e lno = 0x0262 // 0x70c @0x2
0x070a…072e at0004 = ╱89╱ // ╱ // 0x70e @0x4
0x070a…072e at0005 = ╱46╱F╱ // 0x70f @0x5
0x070a…072e at0006 = ╱69╱i╱ // 0x710 @0x6
0x070a…072e at0007 = ╱6c╱l╱ // 0x711 @0x7
0x070a…072e at0008 = ╱6e╱n╱ // 0x712 @0x8
0x070a…072e at0009 = ╱61╱a╱ // 0x713 @0x9
0x070a…072e at000a = ╱76╱v╱ // 0x714 @0xa
0x070a…072e at000b = ╱6e╱n╱ // 0x715 @0xb
0x070a…072e at000c = ╱65╱e╱ // 0x716 @0xc
0x070a…072e at000d = ╱20╱…╱ // 0x717 @0xd
0x070a…072e at000e = ╱74╱t╱ // 0x718 @0xe
0x070a…072e at000f = ╱69╱i╱ // 0x719 @0xf
0x070a…072e at0010 = ╱6c╱l╱ // 0x71a @0x10
0x070a…072e at0011 = ╱20╱…╱ // 0x71b @0x11
0x070a…072e at0012 = ╱72╱r╱ // 0x71c @0x12
0x070a…072e at0013 = ╱65╱e╱ // 0x71d @0x13
0x070a…072e at0014 = ╱67╱g╱ // 0x71e @0x14
0x070a…072e at0015 = ╱6e╱n╱ // 0x71f @0x15
0x070a…072e at0016 = ╱73╱s╱ // 0x720 @0x16
0x070a…072e at0017 = ╱6b╱k╱ // 0x721 @0x17
0x070a…072e at0018 = ╱61╱a╱ // 0x722 @0x18
0x070a…072e at0019 = ╱62╱b╱ // 0x723 @0x19
0x070a…072e at001a = ╱73╱s╱ // 0x724 @0x1a
0x070a…072e at001b = ╱61╱a╱ // 0x725 @0x1b
0x070a…072e at001c = ╱6e╱n╱ // 0x726 @0x1c
0x070a…072e at001d = ╱61╱a╱ // 0x727 @0x1d
0x070a…072e at001e = ╱6c╱l╱ // 0x728 @0x1e
0x070a…072e at001f = ╱79╱y╱ // 0x729 @0x1f
0x070a…072e at0020 = ╱73╱s╱ // 0x72a @0x20
0x070a…072e at0021 = ╱65╱e╱ // 0x72b @0x21
0x070a…072e at0022 = ╱6e╱n╱ // 0x72c @0x22
0x070a…072e at0023 = EOL // 0x72d @0x23
0x070a…072e }
0x072e…076b 9d59 0620 DIM KAPOMK$ OF 17,OMSÆTN$ OF 17,VAREFO$ OF 17,AFSKRI$ OF 17
0x072e…076b LineComal80 {
0x072e…076b ptr = 0x9d59 // 0x72e @0x0
0x072e…076b lno = 0x026c // 0x730 @0x2
0x072e…076b at0004 = ╱87╱ DIM ╱ // 0x732 @0x4
0x072e…076b at0005 = ╱4b╱K╱ // 0x733 @0x5
0x072e…076b at0006 = ╱41╱A╱ // 0x734 @0x6
0x072e…076b at0007 = ╱50╱P╱ // 0x735 @0x7
0x072e…076b at0008 = ╱4f╱O╱ // 0x736 @0x8
0x072e…076b at0009 = ╱4d╱M╱ // 0x737 @0x9
0x072e…076b at000a = ╱4b╱K╱ // 0x738 @0xa
0x072e…076b at000b = ╱ef╱$╱ // 0x739 @0xb
0x072e…076b at000c = ╱ba╱ OF ╱ // 0x73a @0xc
0x072e…076b at000d = ╱31╱1╱ // 0x73b @0xd
0x072e…076b at000e = ╱37╱7╱ // 0x73c @0xe
0x072e…076b at000f = ╱f21100╱ // 0x73d @0xf
0x072e…076b at0012 = ╱ec╱,╱ // 0x740 @0x12
0x072e…076b at0013 = ╱4f╱O╱ // 0x741 @0x13
0x072e…076b at0014 = ╱4d╱M╱ // 0x742 @0x14
0x072e…076b at0015 = ╱53╱S╱ // 0x743 @0x15
0x072e…076b at0016 = ╱5b╱Æ╱ // 0x744 @0x16
0x072e…076b at0017 = ╱54╱T╱ // 0x745 @0x17
0x072e…076b at0018 = ╱4e╱N╱ // 0x746 @0x18
0x072e…076b at0019 = ╱ef╱$╱ // 0x747 @0x19
0x072e…076b at001a = ╱ba╱ OF ╱ // 0x748 @0x1a
0x072e…076b at001b = ╱31╱1╱ // 0x749 @0x1b
0x072e…076b at001c = ╱37╱7╱ // 0x74a @0x1c
0x072e…076b at001d = ╱f21100╱ // 0x74b @0x1d
0x072e…076b at0020 = ╱ec╱,╱ // 0x74e @0x20
0x072e…076b at0021 = ╱56╱V╱ // 0x74f @0x21
0x072e…076b at0022 = ╱41╱A╱ // 0x750 @0x22
0x072e…076b at0023 = ╱52╱R╱ // 0x751 @0x23
0x072e…076b at0024 = ╱45╱E╱ // 0x752 @0x24
0x072e…076b at0025 = ╱46╱F╱ // 0x753 @0x25
0x072e…076b at0026 = ╱4f╱O╱ // 0x754 @0x26
0x072e…076b at0027 = ╱ef╱$╱ // 0x755 @0x27
0x072e…076b at0028 = ╱ba╱ OF ╱ // 0x756 @0x28
0x072e…076b at0029 = ╱31╱1╱ // 0x757 @0x29
0x072e…076b at002a = ╱37╱7╱ // 0x758 @0x2a
0x072e…076b at002b = ╱f21100╱ // 0x759 @0x2b
0x072e…076b at002e = ╱ec╱,╱ // 0x75c @0x2e
0x072e…076b at002f = ╱41╱A╱ // 0x75d @0x2f
0x072e…076b at0030 = ╱46╱F╱ // 0x75e @0x30
0x072e…076b at0031 = ╱53╱S╱ // 0x75f @0x31
0x072e…076b at0032 = ╱4b╱K╱ // 0x760 @0x32
0x072e…076b at0033 = ╱52╱R╱ // 0x761 @0x33
0x072e…076b at0034 = ╱49╱I╱ // 0x762 @0x34
0x072e…076b at0035 = ╱ef╱$╱ // 0x763 @0x35
0x072e…076b at0036 = ╱ba╱ OF ╱ // 0x764 @0x36
0x072e…076b at0037 = ╱31╱1╱ // 0x765 @0x37
0x072e…076b at0038 = ╱37╱7╱ // 0x766 @0x38
0x072e…076b at0039 = ╱f21100╱ // 0x767 @0x39
0x072e…076b at003c = EOL // 0x76a @0x3c
0x072e…076b }
0x076b…079a 9d88 0630 DIM EGENKA$ OF 17,AKTIVE$ OF 17,RENTEO$ OF 17
0x076b…079a LineComal80 {
0x076b…079a ptr = 0x9d88 // 0x76b @0x0
0x076b…079a lno = 0x0276 // 0x76d @0x2
0x076b…079a at0004 = ╱87╱ DIM ╱ // 0x76f @0x4
0x076b…079a at0005 = ╱45╱E╱ // 0x770 @0x5
0x076b…079a at0006 = ╱47╱G╱ // 0x771 @0x6
0x076b…079a at0007 = ╱45╱E╱ // 0x772 @0x7
0x076b…079a at0008 = ╱4e╱N╱ // 0x773 @0x8
0x076b…079a at0009 = ╱4b╱K╱ // 0x774 @0x9
0x076b…079a at000a = ╱41╱A╱ // 0x775 @0xa
0x076b…079a at000b = ╱ef╱$╱ // 0x776 @0xb
0x076b…079a at000c = ╱ba╱ OF ╱ // 0x777 @0xc
0x076b…079a at000d = ╱31╱1╱ // 0x778 @0xd
0x076b…079a at000e = ╱37╱7╱ // 0x779 @0xe
0x076b…079a at000f = ╱f21100╱ // 0x77a @0xf
0x076b…079a at0012 = ╱ec╱,╱ // 0x77d @0x12
0x076b…079a at0013 = ╱41╱A╱ // 0x77e @0x13
0x076b…079a at0014 = ╱4b╱K╱ // 0x77f @0x14
0x076b…079a at0015 = ╱54╱T╱ // 0x780 @0x15
0x076b…079a at0016 = ╱49╱I╱ // 0x781 @0x16
0x076b…079a at0017 = ╱56╱V╱ // 0x782 @0x17
0x076b…079a at0018 = ╱45╱E╱ // 0x783 @0x18
0x076b…079a at0019 = ╱ef╱$╱ // 0x784 @0x19
0x076b…079a at001a = ╱ba╱ OF ╱ // 0x785 @0x1a
0x076b…079a at001b = ╱31╱1╱ // 0x786 @0x1b
0x076b…079a at001c = ╱37╱7╱ // 0x787 @0x1c
0x076b…079a at001d = ╱f21100╱ // 0x788 @0x1d
0x076b…079a at0020 = ╱ec╱,╱ // 0x78b @0x20
0x076b…079a at0021 = ╱52╱R╱ // 0x78c @0x21
0x076b…079a at0022 = ╱45╱E╱ // 0x78d @0x22
0x076b…079a at0023 = ╱4e╱N╱ // 0x78e @0x23
0x076b…079a at0024 = ╱54╱T╱ // 0x78f @0x24
0x076b…079a at0025 = ╱45╱E╱ // 0x790 @0x25
0x076b…079a at0026 = ╱4f╱O╱ // 0x791 @0x26
0x076b…079a at0027 = ╱ef╱$╱ // 0x792 @0x27
0x076b…079a at0028 = ╱ba╱ OF ╱ // 0x793 @0x28
0x076b…079a at0029 = ╱31╱1╱ // 0x794 @0x29
0x076b…079a at002a = ╱37╱7╱ // 0x795 @0x2a
0x076b…079a at002b = ╱f21100╱ // 0x796 @0x2b
0x076b…079a at002e = EOL // 0x799 @0x2e
0x076b…079a }
0x079a…07c9 9db7 0640 DIM VARELA$ OF 17,DEBITO$ OF 17,KREDIT$ OF 17
0x079a…07c9 LineComal80 {
0x079a…07c9 ptr = 0x9db7 // 0x79a @0x0
0x079a…07c9 lno = 0x0280 // 0x79c @0x2
0x079a…07c9 at0004 = ╱87╱ DIM ╱ // 0x79e @0x4
0x079a…07c9 at0005 = ╱56╱V╱ // 0x79f @0x5
0x079a…07c9 at0006 = ╱41╱A╱ // 0x7a0 @0x6
0x079a…07c9 at0007 = ╱52╱R╱ // 0x7a1 @0x7
0x079a…07c9 at0008 = ╱45╱E╱ // 0x7a2 @0x8
0x079a…07c9 at0009 = ╱4c╱L╱ // 0x7a3 @0x9
0x079a…07c9 at000a = ╱41╱A╱ // 0x7a4 @0xa
0x079a…07c9 at000b = ╱ef╱$╱ // 0x7a5 @0xb
0x079a…07c9 at000c = ╱ba╱ OF ╱ // 0x7a6 @0xc
0x079a…07c9 at000d = ╱31╱1╱ // 0x7a7 @0xd
0x079a…07c9 at000e = ╱37╱7╱ // 0x7a8 @0xe
0x079a…07c9 at000f = ╱f21100╱ // 0x7a9 @0xf
0x079a…07c9 at0012 = ╱ec╱,╱ // 0x7ac @0x12
0x079a…07c9 at0013 = ╱44╱D╱ // 0x7ad @0x13
0x079a…07c9 at0014 = ╱45╱E╱ // 0x7ae @0x14
0x079a…07c9 at0015 = ╱42╱B╱ // 0x7af @0x15
0x079a…07c9 at0016 = ╱49╱I╱ // 0x7b0 @0x16
0x079a…07c9 at0017 = ╱54╱T╱ // 0x7b1 @0x17
0x079a…07c9 at0018 = ╱4f╱O╱ // 0x7b2 @0x18
0x079a…07c9 at0019 = ╱ef╱$╱ // 0x7b3 @0x19
0x079a…07c9 at001a = ╱ba╱ OF ╱ // 0x7b4 @0x1a
0x079a…07c9 at001b = ╱31╱1╱ // 0x7b5 @0x1b
0x079a…07c9 at001c = ╱37╱7╱ // 0x7b6 @0x1c
0x079a…07c9 at001d = ╱f21100╱ // 0x7b7 @0x1d
0x079a…07c9 at0020 = ╱ec╱,╱ // 0x7ba @0x20
0x079a…07c9 at0021 = ╱4b╱K╱ // 0x7bb @0x21
0x079a…07c9 at0022 = ╱52╱R╱ // 0x7bc @0x22
0x079a…07c9 at0023 = ╱45╱E╱ // 0x7bd @0x23
0x079a…07c9 at0024 = ╱44╱D╱ // 0x7be @0x24
0x079a…07c9 at0025 = ╱49╱I╱ // 0x7bf @0x25
0x079a…07c9 at0026 = ╱54╱T╱ // 0x7c0 @0x26
0x079a…07c9 at0027 = ╱ef╱$╱ // 0x7c1 @0x27
0x079a…07c9 at0028 = ╱ba╱ OF ╱ // 0x7c2 @0x28
0x079a…07c9 at0029 = ╱31╱1╱ // 0x7c3 @0x29
0x079a…07c9 at002a = ╱37╱7╱ // 0x7c4 @0x2a
0x079a…07c9 at002b = ╱f21100╱ // 0x7c5 @0x2b
0x079a…07c9 at002e = EOL // 0x7c8 @0x2e
0x079a…07c9 }
0x07c9…080d 9dfb 0650 REAL S_KAPOMK,S_OMSÆTN,S_VAREFO,S_AFSKRI,S_EGENKA,S_AKTIVE,S_RENTEO
0x07c9…080d LineComal80 {
0x07c9…080d ptr = 0x9dfb // 0x7c9 @0x0
0x07c9…080d lno = 0x028a // 0x7cb @0x2
0x07c9…080d at0004 = ╱b3╱ REAL ╱ // 0x7cd @0x4
0x07c9…080d at0005 = ╱53╱S╱ // 0x7ce @0x5
0x07c9…080d at0006 = ╱5f╱_╱ // 0x7cf @0x6
0x07c9…080d at0007 = ╱4b╱K╱ // 0x7d0 @0x7
0x07c9…080d at0008 = ╱41╱A╱ // 0x7d1 @0x8
0x07c9…080d at0009 = ╱50╱P╱ // 0x7d2 @0x9
0x07c9…080d at000a = ╱4f╱O╱ // 0x7d3 @0xa
0x07c9…080d at000b = ╱4d╱M╱ // 0x7d4 @0xb
0x07c9…080d at000c = ╱4b╱K╱ // 0x7d5 @0xc
0x07c9…080d at000d = ╱ec╱,╱ // 0x7d6 @0xd
0x07c9…080d at000e = ╱53╱S╱ // 0x7d7 @0xe
0x07c9…080d at000f = ╱5f╱_╱ // 0x7d8 @0xf
0x07c9…080d at0010 = ╱4f╱O╱ // 0x7d9 @0x10
0x07c9…080d at0011 = ╱4d╱M╱ // 0x7da @0x11
0x07c9…080d at0012 = ╱53╱S╱ // 0x7db @0x12
0x07c9…080d at0013 = ╱5b╱Æ╱ // 0x7dc @0x13
0x07c9…080d at0014 = ╱54╱T╱ // 0x7dd @0x14
0x07c9…080d at0015 = ╱4e╱N╱ // 0x7de @0x15
0x07c9…080d at0016 = ╱ec╱,╱ // 0x7df @0x16
0x07c9…080d at0017 = ╱53╱S╱ // 0x7e0 @0x17
0x07c9…080d at0018 = ╱5f╱_╱ // 0x7e1 @0x18
0x07c9…080d at0019 = ╱56╱V╱ // 0x7e2 @0x19
0x07c9…080d at001a = ╱41╱A╱ // 0x7e3 @0x1a
0x07c9…080d at001b = ╱52╱R╱ // 0x7e4 @0x1b
0x07c9…080d at001c = ╱45╱E╱ // 0x7e5 @0x1c
0x07c9…080d at001d = ╱46╱F╱ // 0x7e6 @0x1d
0x07c9…080d at001e = ╱4f╱O╱ // 0x7e7 @0x1e
0x07c9…080d at001f = ╱ec╱,╱ // 0x7e8 @0x1f
0x07c9…080d at0020 = ╱53╱S╱ // 0x7e9 @0x20
0x07c9…080d at0021 = ╱5f╱_╱ // 0x7ea @0x21
0x07c9…080d at0022 = ╱41╱A╱ // 0x7eb @0x22
0x07c9…080d at0023 = ╱46╱F╱ // 0x7ec @0x23
0x07c9…080d at0024 = ╱53╱S╱ // 0x7ed @0x24
0x07c9…080d at0025 = ╱4b╱K╱ // 0x7ee @0x25
0x07c9…080d at0026 = ╱52╱R╱ // 0x7ef @0x26
0x07c9…080d at0027 = ╱49╱I╱ // 0x7f0 @0x27
0x07c9…080d at0028 = ╱ec╱,╱ // 0x7f1 @0x28
0x07c9…080d at0029 = ╱53╱S╱ // 0x7f2 @0x29
0x07c9…080d at002a = ╱5f╱_╱ // 0x7f3 @0x2a
0x07c9…080d at002b = ╱45╱E╱ // 0x7f4 @0x2b
0x07c9…080d at002c = ╱47╱G╱ // 0x7f5 @0x2c
0x07c9…080d at002d = ╱45╱E╱ // 0x7f6 @0x2d
0x07c9…080d at002e = ╱4e╱N╱ // 0x7f7 @0x2e
0x07c9…080d at002f = ╱4b╱K╱ // 0x7f8 @0x2f
0x07c9…080d at0030 = ╱41╱A╱ // 0x7f9 @0x30
0x07c9…080d at0031 = ╱ec╱,╱ // 0x7fa @0x31
0x07c9…080d at0032 = ╱53╱S╱ // 0x7fb @0x32
0x07c9…080d at0033 = ╱5f╱_╱ // 0x7fc @0x33
0x07c9…080d at0034 = ╱41╱A╱ // 0x7fd @0x34
0x07c9…080d at0035 = ╱4b╱K╱ // 0x7fe @0x35
0x07c9…080d at0036 = ╱54╱T╱ // 0x7ff @0x36
0x07c9…080d at0037 = ╱49╱I╱ // 0x800 @0x37
0x07c9…080d at0038 = ╱56╱V╱ // 0x801 @0x38
0x07c9…080d at0039 = ╱45╱E╱ // 0x802 @0x39
0x07c9…080d at003a = ╱ec╱,╱ // 0x803 @0x3a
0x07c9…080d at003b = ╱53╱S╱ // 0x804 @0x3b
0x07c9…080d at003c = ╱5f╱_╱ // 0x805 @0x3c
0x07c9…080d at003d = ╱52╱R╱ // 0x806 @0x3d
0x07c9…080d at003e = ╱45╱E╱ // 0x807 @0x3e
0x07c9…080d at003f = ╱4e╱N╱ // 0x808 @0x3f
0x07c9…080d at0040 = ╱54╱T╱ // 0x809 @0x40
0x07c9…080d at0041 = ╱45╱E╱ // 0x80a @0x41
0x07c9…080d at0042 = ╱4f╱O╱ // 0x80b @0x42
0x07c9…080d at0043 = EOL // 0x80c @0x43
0x07c9…080d }
0x080d…0838 9e26 0660 REAL S_VARELA,S_DEBITO,S_KREDIT,S_VARELA_P
0x080d…0838 LineComal80 {
0x080d…0838 ptr = 0x9e26 // 0x80d @0x0
0x080d…0838 lno = 0x0294 // 0x80f @0x2
0x080d…0838 at0004 = ╱b3╱ REAL ╱ // 0x811 @0x4
0x080d…0838 at0005 = ╱53╱S╱ // 0x812 @0x5
0x080d…0838 at0006 = ╱5f╱_╱ // 0x813 @0x6
0x080d…0838 at0007 = ╱56╱V╱ // 0x814 @0x7
0x080d…0838 at0008 = ╱41╱A╱ // 0x815 @0x8
0x080d…0838 at0009 = ╱52╱R╱ // 0x816 @0x9
0x080d…0838 at000a = ╱45╱E╱ // 0x817 @0xa
0x080d…0838 at000b = ╱4c╱L╱ // 0x818 @0xb
0x080d…0838 at000c = ╱41╱A╱ // 0x819 @0xc
0x080d…0838 at000d = ╱ec╱,╱ // 0x81a @0xd
0x080d…0838 at000e = ╱53╱S╱ // 0x81b @0xe
0x080d…0838 at000f = ╱5f╱_╱ // 0x81c @0xf
0x080d…0838 at0010 = ╱44╱D╱ // 0x81d @0x10
0x080d…0838 at0011 = ╱45╱E╱ // 0x81e @0x11
0x080d…0838 at0012 = ╱42╱B╱ // 0x81f @0x12
0x080d…0838 at0013 = ╱49╱I╱ // 0x820 @0x13
0x080d…0838 at0014 = ╱54╱T╱ // 0x821 @0x14
0x080d…0838 at0015 = ╱4f╱O╱ // 0x822 @0x15
0x080d…0838 at0016 = ╱ec╱,╱ // 0x823 @0x16
0x080d…0838 at0017 = ╱53╱S╱ // 0x824 @0x17
0x080d…0838 at0018 = ╱5f╱_╱ // 0x825 @0x18
0x080d…0838 at0019 = ╱4b╱K╱ // 0x826 @0x19
0x080d…0838 at001a = ╱52╱R╱ // 0x827 @0x1a
0x080d…0838 at001b = ╱45╱E╱ // 0x828 @0x1b
0x080d…0838 at001c = ╱44╱D╱ // 0x829 @0x1c
0x080d…0838 at001d = ╱49╱I╱ // 0x82a @0x1d
0x080d…0838 at001e = ╱54╱T╱ // 0x82b @0x1e
0x080d…0838 at001f = ╱ec╱,╱ // 0x82c @0x1f
0x080d…0838 at0020 = ╱53╱S╱ // 0x82d @0x20
0x080d…0838 at0021 = ╱5f╱_╱ // 0x82e @0x21
0x080d…0838 at0022 = ╱56╱V╱ // 0x82f @0x22
0x080d…0838 at0023 = ╱41╱A╱ // 0x830 @0x23
0x080d…0838 at0024 = ╱52╱R╱ // 0x831 @0x24
0x080d…0838 at0025 = ╱45╱E╱ // 0x832 @0x25
0x080d…0838 at0026 = ╱4c╱L╱ // 0x833 @0x26
0x080d…0838 at0027 = ╱41╱A╱ // 0x834 @0x27
0x080d…0838 at0028 = ╱5f╱_╱ // 0x835 @0x28
0x080d…0838 at0029 = ╱50╱P╱ // 0x836 @0x29
0x080d…0838 at002a = EOL // 0x837 @0x2a
0x080d…0838 }
0x0838…0849 9e37 0590 ENDPROC DIMENSIONER
0x0838…0849 LineComal80 {
0x0838…0849 ptr = 0x9e37 // 0x838 @0x0
0x0838…0849 lno = 0x024e // 0x83a @0x2
0x0838…0849 at0004 = ╱9f╱ ENDPROC ╱ // 0x83c @0x4
0x0838…0849 at0005 = ╱44╱D╱ // 0x83d @0x5
0x0838…0849 at0006 = ╱49╱I╱ // 0x83e @0x6
0x0838…0849 at0007 = ╱4d╱M╱ // 0x83f @0x7
0x0838…0849 at0008 = ╱45╱E╱ // 0x840 @0x8
0x0838…0849 at0009 = ╱4e╱N╱ // 0x841 @0x9
0x0838…0849 at000a = ╱53╱S╱ // 0x842 @0xa
0x0838…0849 at000b = ╱49╱I╱ // 0x843 @0xb
0x0838…0849 at000c = ╱4f╱O╱ // 0x844 @0xc
0x0838…0849 at000d = ╱4e╱N╱ // 0x845 @0xd
0x0838…0849 at000e = ╱45╱E╱ // 0x846 @0xe
0x0838…0849 at000f = ╱52╱R╱ // 0x847 @0xf
0x0838…0849 at0010 = EOL // 0x848 @0x10
0x0838…0849 }
0x0849…084e 9e3c 0600
0x0849…084e LineComal80 {
0x0849…084e ptr = 0x9e3c // 0x849 @0x0
0x0849…084e lno = 0x0258 // 0x84b @0x2
0x0849…084e at0004 = EOL // 0x84d @0x4
0x0849…084e }
0x084e…085c e282 0610 PROC INITIER
0x084e…085c LineComal80 {
0x084e…085c ptr = 0xe282 // 0x84e @0x0
0x084e…085c lno = 0x0262 // 0x850 @0x2
0x084e…085c at0004 = ╱9e04╱ PROC ╱ // 0x852 @0x4
0x084e…085c at0006 = ╱49╱I╱ // 0x854 @0x6
0x084e…085c at0007 = ╱4e╱N╱ // 0x855 @0x7
0x084e…085c at0008 = ╱49╱I╱ // 0x856 @0x8
0x084e…085c at0009 = ╱54╱T╱ // 0x857 @0x9
0x084e…085c at000a = ╱49╱I╱ // 0x858 @0xa
0x084e…085c at000b = ╱45╱E╱ // 0x859 @0xb
0x084e…085c at000c = ╱52╱R╱ // 0x85a @0xc
0x084e…085c at000d = EOL // 0x85b @0xd
0x084e…085c }
0x085c…086e 9e5c 0630 LET PRGFL$ := "DP2"
0x085c…086e LineComal80 {
0x085c…086e ptr = 0x9e5c // 0x85c @0x0
0x085c…086e lno = 0x0276 // 0x85e @0x2
0x085c…086e at0004 = ╱86╱ LET ╱ // 0x860 @0x4
0x085c…086e at0005 = ╱50╱P╱ // 0x861 @0x5
0x085c…086e at0006 = ╱52╱R╱ // 0x862 @0x6
0x085c…086e at0007 = ╱47╱G╱ // 0x863 @0x7
0x085c…086e at0008 = ╱46╱F╱ // 0x864 @0x8
0x085c…086e at0009 = ╱4c╱L╱ // 0x865 @0x9
0x085c…086e at000a = ╱ef╱$╱ // 0x866 @0xa
0x085c…086e at000b = ╱f0╱ := ╱ // 0x867 @0xb
0x085c…086e at000c = ╱22╱"╱ // 0x868 @0xc
0x085c…086e at000d = ╱44╱D╱ // 0x869 @0xd
0x085c…086e at000e = ╱50╱P╱ // 0x86a @0xe
0x085c…086e at000f = ╱32╱2╱ // 0x86b @0xf
0x085c…086e at0010 = ╱22╱"╱ // 0x86c @0x10
0x085c…086e at0011 = EOL // 0x86d @0x11
0x085c…086e }
0x086e…088a 9e78 0640 LET PROGRAM$ := PRGFL$ + ":SYS"
0x086e…088a LineComal80 {
0x086e…088a ptr = 0x9e78 // 0x86e @0x0
0x086e…088a lno = 0x0280 // 0x870 @0x2
0x086e…088a at0004 = ╱86╱ LET ╱ // 0x872 @0x4
0x086e…088a at0005 = ╱50╱P╱ // 0x873 @0x5
0x086e…088a at0006 = ╱52╱R╱ // 0x874 @0x6
0x086e…088a at0007 = ╱4f╱O╱ // 0x875 @0x7
0x086e…088a at0008 = ╱47╱G╱ // 0x876 @0x8
0x086e…088a at0009 = ╱52╱R╱ // 0x877 @0x9
0x086e…088a at000a = ╱41╱A╱ // 0x878 @0xa
0x086e…088a at000b = ╱4d╱M╱ // 0x879 @0xb
0x086e…088a at000c = ╱ef╱$╱ // 0x87a @0xc
0x086e…088a at000d = ╱f0╱ := ╱ // 0x87b @0xd
0x086e…088a at000e = ╱50╱P╱ // 0x87c @0xe
0x086e…088a at000f = ╱52╱R╱ // 0x87d @0xf
0x086e…088a at0010 = ╱47╱G╱ // 0x87e @0x10
0x086e…088a at0011 = ╱46╱F╱ // 0x87f @0x11
0x086e…088a at0012 = ╱4c╱L╱ // 0x880 @0x12
0x086e…088a at0013 = ╱ef╱$╱ // 0x881 @0x13
0x086e…088a at0014 = ╱eb╱ + ╱ // 0x882 @0x14
0x086e…088a at0015 = ╱22╱"╱ // 0x883 @0x15
0x086e…088a at0016 = ╱3a╱:╱ // 0x884 @0x16
0x086e…088a at0017 = ╱53╱S╱ // 0x885 @0x17
0x086e…088a at0018 = ╱59╱Y╱ // 0x886 @0x18
0x086e…088a at0019 = ╱53╱S╱ // 0x887 @0x19
0x086e…088a at001a = ╱22╱"╱ // 0x888 @0x1a
0x086e…088a at001b = EOL // 0x889 @0x1b
0x086e…088a }
0x088a…08c4 9eb2 0650 LET SPC$ := " "
0x088a…08c4 LineComal80 {
0x088a…08c4 ptr = 0x9eb2 // 0x88a @0x0
0x088a…08c4 lno = 0x028a // 0x88c @0x2
0x088a…08c4 at0004 = ╱86╱ LET ╱ // 0x88e @0x4
0x088a…08c4 at0005 = ╱53╱S╱ // 0x88f @0x5
0x088a…08c4 at0006 = ╱50╱P╱ // 0x890 @0x6
0x088a…08c4 at0007 = ╱43╱C╱ // 0x891 @0x7
0x088a…08c4 at0008 = ╱ef╱$╱ // 0x892 @0x8
0x088a…08c4 at0009 = ╱f0╱ := ╱ // 0x893 @0x9
0x088a…08c4 at000a = ╱22╱"╱ // 0x894 @0xa
0x088a…08c4 at000b = ╱20╱…╱ // 0x895 @0xb
0x088a…08c4 at000c = ╱20╱…╱ // 0x896 @0xc
0x088a…08c4 at000d = ╱20╱…╱ // 0x897 @0xd
0x088a…08c4 at000e = ╱20╱…╱ // 0x898 @0xe
0x088a…08c4 at000f = ╱20╱…╱ // 0x899 @0xf
0x088a…08c4 at0010 = ╱20╱…╱ // 0x89a @0x10
0x088a…08c4 at0011 = ╱20╱…╱ // 0x89b @0x11
0x088a…08c4 at0012 = ╱20╱…╱ // 0x89c @0x12
0x088a…08c4 at0013 = ╱20╱…╱ // 0x89d @0x13
0x088a…08c4 at0014 = ╱20╱…╱ // 0x89e @0x14
0x088a…08c4 at0015 = ╱20╱…╱ // 0x89f @0x15
0x088a…08c4 at0016 = ╱20╱…╱ // 0x8a0 @0x16
0x088a…08c4 at0017 = ╱20╱…╱ // 0x8a1 @0x17
0x088a…08c4 at0018 = ╱20╱…╱ // 0x8a2 @0x18
0x088a…08c4 at0019 = ╱20╱…╱ // 0x8a3 @0x19
0x088a…08c4 at001a = ╱20╱…╱ // 0x8a4 @0x1a
0x088a…08c4 at001b = ╱20╱…╱ // 0x8a5 @0x1b
0x088a…08c4 at001c = ╱20╱…╱ // 0x8a6 @0x1c
0x088a…08c4 at001d = ╱20╱…╱ // 0x8a7 @0x1d
0x088a…08c4 at001e = ╱20╱…╱ // 0x8a8 @0x1e
0x088a…08c4 at001f = ╱20╱…╱ // 0x8a9 @0x1f
0x088a…08c4 at0020 = ╱20╱…╱ // 0x8aa @0x20
0x088a…08c4 at0021 = ╱20╱…╱ // 0x8ab @0x21
0x088a…08c4 at0022 = ╱20╱…╱ // 0x8ac @0x22
0x088a…08c4 at0023 = ╱20╱…╱ // 0x8ad @0x23
0x088a…08c4 at0024 = ╱20╱…╱ // 0x8ae @0x24
0x088a…08c4 at0025 = ╱20╱…╱ // 0x8af @0x25
0x088a…08c4 at0026 = ╱20╱…╱ // 0x8b0 @0x26
0x088a…08c4 at0027 = ╱20╱…╱ // 0x8b1 @0x27
0x088a…08c4 at0028 = ╱20╱…╱ // 0x8b2 @0x28
0x088a…08c4 at0029 = ╱20╱…╱ // 0x8b3 @0x29
0x088a…08c4 at002a = ╱20╱…╱ // 0x8b4 @0x2a
0x088a…08c4 at002b = ╱20╱…╱ // 0x8b5 @0x2b
0x088a…08c4 at002c = ╱20╱…╱ // 0x8b6 @0x2c
0x088a…08c4 at002d = ╱20╱…╱ // 0x8b7 @0x2d
0x088a…08c4 at002e = ╱20╱…╱ // 0x8b8 @0x2e
0x088a…08c4 at002f = ╱20╱…╱ // 0x8b9 @0x2f
0x088a…08c4 at0030 = ╱20╱…╱ // 0x8ba @0x30
0x088a…08c4 at0031 = ╱20╱…╱ // 0x8bb @0x31
0x088a…08c4 at0032 = ╱20╱…╱ // 0x8bc @0x32
0x088a…08c4 at0033 = ╱20╱…╱ // 0x8bd @0x33
0x088a…08c4 at0034 = ╱20╱…╱ // 0x8be @0x34
0x088a…08c4 at0035 = ╱20╱…╱ // 0x8bf @0x35
0x088a…08c4 at0036 = ╱20╱…╱ // 0x8c0 @0x36
0x088a…08c4 at0037 = ╱20╱…╱ // 0x8c1 @0x37
0x088a…08c4 at0038 = ╱22╱"╱ // 0x8c2 @0x38
0x088a…08c4 at0039 = EOL // 0x8c3 @0x39
0x088a…08c4 }
0x08c4…08d8 9ec6 0660 LET SPC$ := SPC$ + SPC$
0x08c4…08d8 LineComal80 {
0x08c4…08d8 ptr = 0x9ec6 // 0x8c4 @0x0
0x08c4…08d8 lno = 0x0294 // 0x8c6 @0x2
0x08c4…08d8 at0004 = ╱86╱ LET ╱ // 0x8c8 @0x4
0x08c4…08d8 at0005 = ╱53╱S╱ // 0x8c9 @0x5
0x08c4…08d8 at0006 = ╱50╱P╱ // 0x8ca @0x6
0x08c4…08d8 at0007 = ╱43╱C╱ // 0x8cb @0x7
0x08c4…08d8 at0008 = ╱ef╱$╱ // 0x8cc @0x8
0x08c4…08d8 at0009 = ╱f0╱ := ╱ // 0x8cd @0x9
0x08c4…08d8 at000a = ╱53╱S╱ // 0x8ce @0xa
0x08c4…08d8 at000b = ╱50╱P╱ // 0x8cf @0xb
0x08c4…08d8 at000c = ╱43╱C╱ // 0x8d0 @0xc
0x08c4…08d8 at000d = ╱ef╱$╱ // 0x8d1 @0xd
0x08c4…08d8 at000e = ╱eb╱ + ╱ // 0x8d2 @0xe
0x08c4…08d8 at000f = ╱53╱S╱ // 0x8d3 @0xf
0x08c4…08d8 at0010 = ╱50╱P╱ // 0x8d4 @0x10
0x08c4…08d8 at0011 = ╱43╱C╱ // 0x8d5 @0x11
0x08c4…08d8 at0012 = ╱ef╱$╱ // 0x8d6 @0x12
0x08c4…08d8 at0013 = EOL // 0x8d7 @0x13
0x08c4…08d8 }
0x08d8…0903 9ef1 0670 LET FALSE := 0 ; TRUE := 1 // boolske variable
0x08d8…0903 LineComal80 {
0x08d8…0903 ptr = 0x9ef1 // 0x8d8 @0x0
0x08d8…0903 lno = 0x029e // 0x8da @0x2
0x08d8…0903 at0004 = ╱86╱ LET ╱ // 0x8dc @0x4
0x08d8…0903 at0005 = ╱46╱F╱ // 0x8dd @0x5
0x08d8…0903 at0006 = ╱41╱A╱ // 0x8de @0x6
0x08d8…0903 at0007 = ╱4c╱L╱ // 0x8df @0x7
0x08d8…0903 at0008 = ╱53╱S╱ // 0x8e0 @0x8
0x08d8…0903 at0009 = ╱45╱E╱ // 0x8e1 @0x9
0x08d8…0903 at000a = ╱f0╱ := ╱ // 0x8e2 @0xa
0x08d8…0903 at000b = ╱30╱0╱ // 0x8e3 @0xb
0x08d8…0903 at000c = ╱f20000╱ // 0x8e4 @0xc
0x08d8…0903 at000f = ╱ea╱ ; ╱ // 0x8e7 @0xf
0x08d8…0903 at0010 = ╱54╱T╱ // 0x8e8 @0x10
0x08d8…0903 at0011 = ╱52╱R╱ // 0x8e9 @0x11
0x08d8…0903 at0012 = ╱55╱U╱ // 0x8ea @0x12
0x08d8…0903 at0013 = ╱45╱E╱ // 0x8eb @0x13
0x08d8…0903 at0014 = ╱f0╱ := ╱ // 0x8ec @0x14
0x08d8…0903 at0015 = ╱31╱1╱ // 0x8ed @0x15
0x08d8…0903 at0016 = ╱f20100╱ // 0x8ee @0x16
0x08d8…0903 at0019 = ╱89╱ // ╱ // 0x8f1 @0x19
0x08d8…0903 at001a = ╱62╱b╱ // 0x8f2 @0x1a
0x08d8…0903 at001b = ╱6f╱o╱ // 0x8f3 @0x1b
0x08d8…0903 at001c = ╱6f╱o╱ // 0x8f4 @0x1c
0x08d8…0903 at001d = ╱6c╱l╱ // 0x8f5 @0x1d
0x08d8…0903 at001e = ╱73╱s╱ // 0x8f6 @0x1e
0x08d8…0903 at001f = ╱6b╱k╱ // 0x8f7 @0x1f
0x08d8…0903 at0020 = ╱65╱e╱ // 0x8f8 @0x20
0x08d8…0903 at0021 = ╱20╱…╱ // 0x8f9 @0x21
0x08d8…0903 at0022 = ╱76╱v╱ // 0x8fa @0x22
0x08d8…0903 at0023 = ╱61╱a╱ // 0x8fb @0x23
0x08d8…0903 at0024 = ╱72╱r╱ // 0x8fc @0x24
0x08d8…0903 at0025 = ╱69╱i╱ // 0x8fd @0x25
0x08d8…0903 at0026 = ╱61╱a╱ // 0x8fe @0x26
0x08d8…0903 at0027 = ╱62╱b╱ // 0x8ff @0x27
0x08d8…0903 at0028 = ╱6c╱l╱ // 0x900 @0x28
0x08d8…0903 at0029 = ╱65╱e╱ // 0x901 @0x29
0x08d8…0903 at002a = EOL // 0x902 @0x2a
0x08d8…0903 }
0x0903…0923 9f11 0680 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0x0903…0923 LineComal80 {
0x0903…0923 ptr = 0x9f11 // 0x903 @0x0
0x0903…0923 lno = 0x02a8 // 0x905 @0x2
0x0903…0923 at0004 = ╱86╱ LET ╱ // 0x907 @0x4
0x0903…0923 at0005 = ╱53╱S╱ // 0x908 @0x5
0x0903…0923 at0006 = ╱59╱Y╱ // 0x909 @0x6
0x0903…0923 at0007 = ╱53╱S╱ // 0x90a @0x7
0x0903…0923 at0008 = ╱50╱P╱ // 0x90b @0x8
0x0903…0923 at0009 = ╱41╱A╱ // 0x90c @0x9
0x0903…0923 at000a = ╱52╱R╱ // 0x90d @0xa
0x0903…0923 at000b = ╱41╱A╱ // 0x90e @0xb
0x0903…0923 at000c = ╱ef╱$╱ // 0x90f @0xc
0x0903…0923 at000d = ╱f0╱ := ╱ // 0x910 @0xd
0x0903…0923 at000e = ╱50╱P╱ // 0x911 @0xe
0x0903…0923 at000f = ╱52╱R╱ // 0x912 @0xf
0x0903…0923 at0010 = ╱47╱G╱ // 0x913 @0x10
0x0903…0923 at0011 = ╱46╱F╱ // 0x914 @0x11
0x0903…0923 at0012 = ╱4c╱L╱ // 0x915 @0x12
0x0903…0923 at0013 = ╱ef╱$╱ // 0x916 @0x13
0x0903…0923 at0014 = ╱eb╱ + ╱ // 0x917 @0x14
0x0903…0923 at0015 = ╱22╱"╱ // 0x918 @0x15
0x0903…0923 at0016 = ╱3a╱:╱ // 0x919 @0x16
0x0903…0923 at0017 = ╱53╱S╱ // 0x91a @0x17
0x0903…0923 at0018 = ╱59╱Y╱ // 0x91b @0x18
0x0903…0923 at0019 = ╱53╱S╱ // 0x91c @0x19
0x0903…0923 at001a = ╱50╱P╱ // 0x91d @0x1a
0x0903…0923 at001b = ╱41╱A╱ // 0x91e @0x1b
0x0903…0923 at001c = ╱52╱R╱ // 0x91f @0x1c
0x0903…0923 at001d = ╱41╱A╱ // 0x920 @0x1d
0x0903…0923 at001e = ╱22╱"╱ // 0x921 @0x1e
0x0903…0923 at001f = EOL // 0x922 @0x1f
0x0903…0923 }
0x0923…093e 9f2c 0690 EXEC OPENFIL(SYSPARA$,"R")
0x0923…093e LineComal80 {
0x0923…093e ptr = 0x9f2c // 0x923 @0x0
0x0923…093e lno = 0x02b2 // 0x925 @0x2
0x0923…093e at0004 = ╱9d╱ EXEC ╱ // 0x927 @0x4
0x0923…093e at0005 = ╱4f╱O╱ // 0x928 @0x5
0x0923…093e at0006 = ╱50╱P╱ // 0x929 @0x6
0x0923…093e at0007 = ╱45╱E╱ // 0x92a @0x7
0x0923…093e at0008 = ╱4e╱N╱ // 0x92b @0x8
0x0923…093e at0009 = ╱46╱F╱ // 0x92c @0x9
0x0923…093e at000a = ╱49╱I╱ // 0x92d @0xa
0x0923…093e at000b = ╱4c╱L╱ // 0x92e @0xb
0x0923…093e at000c = ╱ed╱(╱ // 0x92f @0xc
0x0923…093e at000d = ╱53╱S╱ // 0x930 @0xd
0x0923…093e at000e = ╱59╱Y╱ // 0x931 @0xe
0x0923…093e at000f = ╱53╱S╱ // 0x932 @0xf
0x0923…093e at0010 = ╱50╱P╱ // 0x933 @0x10
0x0923…093e at0011 = ╱41╱A╱ // 0x934 @0x11
0x0923…093e at0012 = ╱52╱R╱ // 0x935 @0x12
0x0923…093e at0013 = ╱41╱A╱ // 0x936 @0x13
0x0923…093e at0014 = ╱ef╱$╱ // 0x937 @0x14
0x0923…093e at0015 = ╱ec╱,╱ // 0x938 @0x15
0x0923…093e at0016 = ╱22╱"╱ // 0x939 @0x16
0x0923…093e at0017 = ╱52╱R╱ // 0x93a @0x17
0x0923…093e at0018 = ╱22╱"╱ // 0x93b @0x18
0x0923…093e at0019 = ╱ee╱)╱ // 0x93c @0x19
0x0923…093e at001a = EOL // 0x93d @0x1a
0x0923…093e }
0x093e…0964 9f52 0700 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0x093e…0964 LineComal80 {
0x093e…0964 ptr = 0x9f52 // 0x93e @0x0
0x093e…0964 lno = 0x02bc // 0x940 @0x2
0x093e…0964 at0004 = ╱a9╱ GET ╱ // 0x942 @0x4
0x093e…0964 at0005 = ╱53╱S╱ // 0x943 @0x5
0x093e…0964 at0006 = ╱59╱Y╱ // 0x944 @0x6
0x093e…0964 at0007 = ╱53╱S╱ // 0x945 @0x7
0x093e…0964 at0008 = ╱50╱P╱ // 0x946 @0x8
0x093e…0964 at0009 = ╱41╱A╱ // 0x947 @0x9
0x093e…0964 at000a = ╱52╱R╱ // 0x948 @0xa
0x093e…0964 at000b = ╱41╱A╱ // 0x949 @0xb
0x093e…0964 at000c = ╱ef╱$╱ // 0x94a @0xc
0x093e…0964 at000d = ╱ec╱,╱ // 0x94b @0xd
0x093e…0964 at000e = ╱31╱1╱ // 0x94c @0xe
0x093e…0964 at000f = ╱f20100╱ // 0x94d @0xf
0x093e…0964 at0012 = ╱f1╱ : ╱ // 0x950 @0x12
0x093e…0964 at0013 = ╱53╱S╱ // 0x951 @0x13
0x093e…0964 at0014 = ╱59╱Y╱ // 0x952 @0x14
0x093e…0964 at0015 = ╱53╱S╱ // 0x953 @0x15
0x093e…0964 at0016 = ╱54╱T╱ // 0x954 @0x16
0x093e…0964 at0017 = ╱5f╱_╱ // 0x955 @0x17
0x093e…0964 at0018 = ╱4e╱N╱ // 0x956 @0x18
0x093e…0964 at0019 = ╱41╱A╱ // 0x957 @0x19
0x093e…0964 at001a = ╱56╱V╱ // 0x958 @0x1a
0x093e…0964 at001b = ╱4e╱N╱ // 0x959 @0x1b
0x093e…0964 at001c = ╱ef╱$╱ // 0x95a @0x1c
0x093e…0964 at001d = ╱ec╱,╱ // 0x95b @0x1d
0x093e…0964 at001e = ╱53╱S╱ // 0x95c @0x1e
0x093e…0964 at001f = ╱5f╱_╱ // 0x95d @0x1f
0x093e…0964 at0020 = ╱4b╱K╱ // 0x95e @0x20
0x093e…0964 at0021 = ╱4f╱O╱ // 0x95f @0x21
0x093e…0964 at0022 = ╱44╱D╱ // 0x960 @0x22
0x093e…0964 at0023 = ╱45╱E╱ // 0x961 @0x23
0x093e…0964 at0024 = ╱ef╱$╱ // 0x962 @0x24
0x093e…0964 at0025 = EOL // 0x963 @0x25
0x093e…0964 }
0x0964…0976 9f64 0710 EXEC TERMINAL_IDX
0x0964…0976 LineComal80 {
0x0964…0976 ptr = 0x9f64 // 0x964 @0x0
0x0964…0976 lno = 0x02c6 // 0x966 @0x2
0x0964…0976 at0004 = ╱9d╱ EXEC ╱ // 0x968 @0x4
0x0964…0976 at0005 = ╱54╱T╱ // 0x969 @0x5
0x0964…0976 at0006 = ╱45╱E╱ // 0x96a @0x6
0x0964…0976 at0007 = ╱52╱R╱ // 0x96b @0x7
0x0964…0976 at0008 = ╱4d╱M╱ // 0x96c @0x8
0x0964…0976 at0009 = ╱49╱I╱ // 0x96d @0x9
0x0964…0976 at000a = ╱4e╱N╱ // 0x96e @0xa
0x0964…0976 at000b = ╱41╱A╱ // 0x96f @0xb
0x0964…0976 at000c = ╱4c╱L╱ // 0x970 @0xc
0x0964…0976 at000d = ╱5f╱_╱ // 0x971 @0xd
0x0964…0976 at000e = ╱49╱I╱ // 0x972 @0xe
0x0964…0976 at000f = ╱44╱D╱ // 0x973 @0xf
0x0964…0976 at0010 = ╱58╱X╱ // 0x974 @0x10
0x0964…0976 at0011 = EOL // 0x975 @0x11
0x0964…0976 }
0x0976…0984 9f72 0720 CLOSE SYSPARA$
0x0976…0984 LineComal80 {
0x0976…0984 ptr = 0x9f72 // 0x976 @0x0
0x0976…0984 lno = 0x02d0 // 0x978 @0x2
0x0976…0984 at0004 = ╱a8╱ CLOSE ╱ // 0x97a @0x4
0x0976…0984 at0005 = ╱53╱S╱ // 0x97b @0x5
0x0976…0984 at0006 = ╱59╱Y╱ // 0x97c @0x6
0x0976…0984 at0007 = ╱53╱S╱ // 0x97d @0x7
0x0976…0984 at0008 = ╱50╱P╱ // 0x97e @0x8
0x0976…0984 at0009 = ╱41╱A╱ // 0x97f @0x9
0x0976…0984 at000a = ╱52╱R╱ // 0x980 @0xa
0x0976…0984 at000b = ╱41╱A╱ // 0x981 @0xb
0x0976…0984 at000c = ╱ef╱$╱ // 0x982 @0xc
0x0976…0984 at000d = EOL // 0x983 @0xd
0x0976…0984 }
0x0984…09b4 9fa2 0730 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0x0984…09b4 LineComal80 {
0x0984…09b4 ptr = 0x9fa2 // 0x984 @0x0
0x0984…09b4 lno = 0x02da // 0x986 @0x2
0x0984…09b4 at0004 = ╱86╱ LET ╱ // 0x988 @0x4
0x0984…09b4 at0005 = ╱50╱P╱ // 0x989 @0x5
0x0984…09b4 at0006 = ╱41╱A╱ // 0x98a @0x6
0x0984…09b4 at0007 = ╱52╱R╱ // 0x98b @0x7
0x0984…09b4 at0008 = ╱41╱A╱ // 0x98c @0x8
0x0984…09b4 at0009 = ╱4d╱M╱ // 0x98d @0x9
0x0984…09b4 at000a = ╱ef╱$╱ // 0x98e @0xa
0x0984…09b4 at000b = ╱f0╱ := ╱ // 0x98f @0xb
0x0984…09b4 at000c = ╱44╱D╱ // 0x990 @0xc
0x0984…09b4 at000d = ╱41╱A╱ // 0x991 @0xd
0x0984…09b4 at000e = ╱54╱T╱ // 0x992 @0xe
0x0984…09b4 at000f = ╱41╱A╱ // 0x993 @0xf
0x0984…09b4 at0010 = ╱46╱F╱ // 0x994 @0x10
0x0984…09b4 at0011 = ╱4c╱L╱ // 0x995 @0x11
0x0984…09b4 at0012 = ╱ef╱$╱ // 0x996 @0x12
0x0984…09b4 at0013 = ╱eb╱ + ╱ // 0x997 @0x13
0x0984…09b4 at0014 = ╱22╱"╱ // 0x998 @0x14
0x0984…09b4 at0015 = ╱3a╱:╱ // 0x999 @0x15
0x0984…09b4 at0016 = ╱22╱"╱ // 0x99a @0x16
0x0984…09b4 at0017 = ╱eb╱ + ╱ // 0x99b @0x17
0x0984…09b4 at0018 = ╱53╱S╱ // 0x99c @0x18
0x0984…09b4 at0019 = ╱5f╱_╱ // 0x99d @0x19
0x0984…09b4 at001a = ╱4b╱K╱ // 0x99e @0x1a
0x0984…09b4 at001b = ╱4f╱O╱ // 0x99f @0x1b
0x0984…09b4 at001c = ╱44╱D╱ // 0x9a0 @0x1c
0x0984…09b4 at001d = ╱45╱E╱ // 0x9a1 @0x1d
0x0984…09b4 at001e = ╱ef╱$╱ // 0x9a2 @0x1e
0x0984…09b4 at001f = ╱eb╱ + ╱ // 0x9a3 @0x1f
0x0984…09b4 at0020 = ╱54╱T╱ // 0x9a4 @0x20
0x0984…09b4 at0021 = ╱5f╱_╱ // 0x9a5 @0x21
0x0984…09b4 at0022 = ╱4b╱K╱ // 0x9a6 @0x22
0x0984…09b4 at0023 = ╱4f╱O╱ // 0x9a7 @0x23
0x0984…09b4 at0024 = ╱44╱D╱ // 0x9a8 @0x24
0x0984…09b4 at0025 = ╱45╱E╱ // 0x9a9 @0x25
0x0984…09b4 at0026 = ╱ef╱$╱ // 0x9aa @0x26
0x0984…09b4 at0027 = ╱eb╱ + ╱ // 0x9ab @0x27
0x0984…09b4 at0028 = ╱22╱"╱ // 0x9ac @0x28
0x0984…09b4 at0029 = ╱50╱P╱ // 0x9ad @0x29
0x0984…09b4 at002a = ╱41╱A╱ // 0x9ae @0x2a
0x0984…09b4 at002b = ╱52╱R╱ // 0x9af @0x2b
0x0984…09b4 at002c = ╱41╱A╱ // 0x9b0 @0x2c
0x0984…09b4 at002d = ╱4d╱M╱ // 0x9b1 @0x2d
0x0984…09b4 at002e = ╱22╱"╱ // 0x9b2 @0x2e
0x0984…09b4 at002f = EOL // 0x9b3 @0x2f
0x0984…09b4 }
0x09b4…09cd 9fbb 0740 EXEC OPENFIL(PARAM$,"R")
0x09b4…09cd LineComal80 {
0x09b4…09cd ptr = 0x9fbb // 0x9b4 @0x0
0x09b4…09cd lno = 0x02e4 // 0x9b6 @0x2
0x09b4…09cd at0004 = ╱9d╱ EXEC ╱ // 0x9b8 @0x4
0x09b4…09cd at0005 = ╱4f╱O╱ // 0x9b9 @0x5
0x09b4…09cd at0006 = ╱50╱P╱ // 0x9ba @0x6
0x09b4…09cd at0007 = ╱45╱E╱ // 0x9bb @0x7
0x09b4…09cd at0008 = ╱4e╱N╱ // 0x9bc @0x8
0x09b4…09cd at0009 = ╱46╱F╱ // 0x9bd @0x9
0x09b4…09cd at000a = ╱49╱I╱ // 0x9be @0xa
0x09b4…09cd at000b = ╱4c╱L╱ // 0x9bf @0xb
0x09b4…09cd at000c = ╱ed╱(╱ // 0x9c0 @0xc
0x09b4…09cd at000d = ╱50╱P╱ // 0x9c1 @0xd
0x09b4…09cd at000e = ╱41╱A╱ // 0x9c2 @0xe
0x09b4…09cd at000f = ╱52╱R╱ // 0x9c3 @0xf
0x09b4…09cd at0010 = ╱41╱A╱ // 0x9c4 @0x10
0x09b4…09cd at0011 = ╱4d╱M╱ // 0x9c5 @0x11
0x09b4…09cd at0012 = ╱ef╱$╱ // 0x9c6 @0x12
0x09b4…09cd at0013 = ╱ec╱,╱ // 0x9c7 @0x13
0x09b4…09cd at0014 = ╱22╱"╱ // 0x9c8 @0x14
0x09b4…09cd at0015 = ╱52╱R╱ // 0x9c9 @0x15
0x09b4…09cd at0016 = ╱22╱"╱ // 0x9ca @0x16
0x09b4…09cd at0017 = ╱ee╱)╱ // 0x9cb @0x17
0x09b4…09cd at0018 = EOL // 0x9cc @0x18
0x09b4…09cd }
0x09cd…09f8 9fe6 0750 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0x09cd…09f8 LineComal80 {
0x09cd…09f8 ptr = 0x9fe6 // 0x9cd @0x0
0x09cd…09f8 lno = 0x02ee // 0x9cf @0x2
0x09cd…09f8 at0004 = ╱a9╱ GET ╱ // 0x9d1 @0x4
0x09cd…09f8 at0005 = ╱50╱P╱ // 0x9d2 @0x5
0x09cd…09f8 at0006 = ╱41╱A╱ // 0x9d3 @0x6
0x09cd…09f8 at0007 = ╱52╱R╱ // 0x9d4 @0x7
0x09cd…09f8 at0008 = ╱41╱A╱ // 0x9d5 @0x8
0x09cd…09f8 at0009 = ╱4d╱M╱ // 0x9d6 @0x9
0x09cd…09f8 at000a = ╱ef╱$╱ // 0x9d7 @0xa
0x09cd…09f8 at000b = ╱ec╱,╱ // 0x9d8 @0xb
0x09cd…09f8 at000c = ╱31╱1╱ // 0x9d9 @0xc
0x09cd…09f8 at000d = ╱f20100╱ // 0x9da @0xd
0x09cd…09f8 at0010 = ╱f1╱ : ╱ // 0x9dd @0x10
0x09cd…09f8 at0011 = ╱46╱F╱ // 0x9de @0x11
0x09cd…09f8 at0012 = ╱49╱I╱ // 0x9df @0x12
0x09cd…09f8 at0013 = ╱52╱R╱ // 0x9e0 @0x13
0x09cd…09f8 at0014 = ╱4d╱M╱ // 0x9e1 @0x14
0x09cd…09f8 at0015 = ╱41╱A╱ // 0x9e2 @0x15
0x09cd…09f8 at0016 = ╱4e╱N╱ // 0x9e3 @0x16
0x09cd…09f8 at0017 = ╱41╱A╱ // 0x9e4 @0x17
0x09cd…09f8 at0018 = ╱56╱V╱ // 0x9e5 @0x18
0x09cd…09f8 at0019 = ╱4e╱N╱ // 0x9e6 @0x19
0x09cd…09f8 at001a = ╱ef╱$╱ // 0x9e7 @0x1a
0x09cd…09f8 at001b = ╱ec╱,╱ // 0x9e8 @0x1b
0x09cd…09f8 at001c = ╱53╱S╱ // 0x9e9 @0x1c
0x09cd…09f8 at001d = ╱59╱Y╱ // 0x9ea @0x1d
0x09cd…09f8 at001e = ╱53╱S╱ // 0x9eb @0x1e
0x09cd…09f8 at001f = ╱54╱T╱ // 0x9ec @0x1f
0x09cd…09f8 at0020 = ╱5f╱_╱ // 0x9ed @0x20
0x09cd…09f8 at0021 = ╱44╱D╱ // 0x9ee @0x21
0x09cd…09f8 at0022 = ╱41╱A╱ // 0x9ef @0x22
0x09cd…09f8 at0023 = ╱54╱T╱ // 0x9f0 @0x23
0x09cd…09f8 at0024 = ╱ef╱$╱ // 0x9f1 @0x24
0x09cd…09f8 at0025 = ╱ec╱,╱ // 0x9f2 @0x25
0x09cd…09f8 at0026 = ╱4d╱M╱ // 0x9f3 @0x26
0x09cd…09f8 at0027 = ╱4f╱O╱ // 0x9f4 @0x27
0x09cd…09f8 at0028 = ╱4d╱M╱ // 0x9f5 @0x28
0x09cd…09f8 at0029 = ╱53╱S╱ // 0x9f6 @0x29
0x09cd…09f8 at002a = EOL // 0x9f7 @0x2a
0x09cd…09f8 }
0x09f8…0a04 c93a 0760 CLOSE PARAM$
0x09f8…0a04 LineComal80 {
0x09f8…0a04 ptr = 0xc93a // 0x9f8 @0x0
0x09f8…0a04 lno = 0x02f8 // 0x9fa @0x2
0x09f8…0a04 at0004 = ╱a8╱ CLOSE ╱ // 0x9fc @0x4
0x09f8…0a04 at0005 = ╱50╱P╱ // 0x9fd @0x5
0x09f8…0a04 at0006 = ╱41╱A╱ // 0x9fe @0x6
0x09f8…0a04 at0007 = ╱52╱R╱ // 0x9ff @0x7
0x09f8…0a04 at0008 = ╱41╱A╱ // 0xa00 @0x8
0x09f8…0a04 at0009 = ╱4d╱M╱ // 0xa01 @0x9
0x09f8…0a04 at000a = ╱ef╱$╱ // 0xa02 @0xa
0x09f8…0a04 at000b = EOL // 0xa03 @0xb
0x09f8…0a04 }
0x0a04…0a36 a024 0840 LET OMSÆTN$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "OMSÆTN"
0x0a04…0a36 LineComal80 {
0x0a04…0a36 ptr = 0xa024 // 0xa04 @0x0
0x0a04…0a36 lno = 0x0348 // 0xa06 @0x2
0x0a04…0a36 at0004 = ╱86╱ LET ╱ // 0xa08 @0x4
0x0a04…0a36 at0005 = ╱4f╱O╱ // 0xa09 @0x5
0x0a04…0a36 at0006 = ╱4d╱M╱ // 0xa0a @0x6
0x0a04…0a36 at0007 = ╱53╱S╱ // 0xa0b @0x7
0x0a04…0a36 at0008 = ╱5b╱Æ╱ // 0xa0c @0x8
0x0a04…0a36 at0009 = ╱54╱T╱ // 0xa0d @0x9
0x0a04…0a36 at000a = ╱4e╱N╱ // 0xa0e @0xa
0x0a04…0a36 at000b = ╱ef╱$╱ // 0xa0f @0xb
0x0a04…0a36 at000c = ╱f0╱ := ╱ // 0xa10 @0xc
0x0a04…0a36 at000d = ╱44╱D╱ // 0xa11 @0xd
0x0a04…0a36 at000e = ╱41╱A╱ // 0xa12 @0xe
0x0a04…0a36 at000f = ╱54╱T╱ // 0xa13 @0xf
0x0a04…0a36 at0010 = ╱41╱A╱ // 0xa14 @0x10
0x0a04…0a36 at0011 = ╱46╱F╱ // 0xa15 @0x11
0x0a04…0a36 at0012 = ╱4c╱L╱ // 0xa16 @0x12
0x0a04…0a36 at0013 = ╱ef╱$╱ // 0xa17 @0x13
0x0a04…0a36 at0014 = ╱eb╱ + ╱ // 0xa18 @0x14
0x0a04…0a36 at0015 = ╱22╱"╱ // 0xa19 @0x15
0x0a04…0a36 at0016 = ╱3a╱:╱ // 0xa1a @0x16
0x0a04…0a36 at0017 = ╱22╱"╱ // 0xa1b @0x17
0x0a04…0a36 at0018 = ╱eb╱ + ╱ // 0xa1c @0x18
0x0a04…0a36 at0019 = ╱53╱S╱ // 0xa1d @0x19
0x0a04…0a36 at001a = ╱5f╱_╱ // 0xa1e @0x1a
0x0a04…0a36 at001b = ╱4b╱K╱ // 0xa1f @0x1b
0x0a04…0a36 at001c = ╱4f╱O╱ // 0xa20 @0x1c
0x0a04…0a36 at001d = ╱44╱D╱ // 0xa21 @0x1d
0x0a04…0a36 at001e = ╱45╱E╱ // 0xa22 @0x1e
0x0a04…0a36 at001f = ╱ef╱$╱ // 0xa23 @0x1f
0x0a04…0a36 at0020 = ╱eb╱ + ╱ // 0xa24 @0x20
0x0a04…0a36 at0021 = ╱54╱T╱ // 0xa25 @0x21
0x0a04…0a36 at0022 = ╱5f╱_╱ // 0xa26 @0x22
0x0a04…0a36 at0023 = ╱4b╱K╱ // 0xa27 @0x23
0x0a04…0a36 at0024 = ╱4f╱O╱ // 0xa28 @0x24
0x0a04…0a36 at0025 = ╱44╱D╱ // 0xa29 @0x25
0x0a04…0a36 at0026 = ╱45╱E╱ // 0xa2a @0x26
0x0a04…0a36 at0027 = ╱ef╱$╱ // 0xa2b @0x27
0x0a04…0a36 at0028 = ╱eb╱ + ╱ // 0xa2c @0x28
0x0a04…0a36 at0029 = ╱22╱"╱ // 0xa2d @0x29
0x0a04…0a36 at002a = ╱4f╱O╱ // 0xa2e @0x2a
0x0a04…0a36 at002b = ╱4d╱M╱ // 0xa2f @0x2b
0x0a04…0a36 at002c = ╱53╱S╱ // 0xa30 @0x2c
0x0a04…0a36 at002d = ╱5b╱Æ╱ // 0xa31 @0x2d
0x0a04…0a36 at002e = ╱54╱T╱ // 0xa32 @0x2e
0x0a04…0a36 at002f = ╱4e╱N╱ // 0xa33 @0x2f
0x0a04…0a36 at0030 = ╱22╱"╱ // 0xa34 @0x30
0x0a04…0a36 at0031 = EOL // 0xa35 @0x31
0x0a04…0a36 }
0x0a36…0a68 a056 0850 LET VAREFO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "VAREFO"
0x0a36…0a68 LineComal80 {
0x0a36…0a68 ptr = 0xa056 // 0xa36 @0x0
0x0a36…0a68 lno = 0x0352 // 0xa38 @0x2
0x0a36…0a68 at0004 = ╱86╱ LET ╱ // 0xa3a @0x4
0x0a36…0a68 at0005 = ╱56╱V╱ // 0xa3b @0x5
0x0a36…0a68 at0006 = ╱41╱A╱ // 0xa3c @0x6
0x0a36…0a68 at0007 = ╱52╱R╱ // 0xa3d @0x7
0x0a36…0a68 at0008 = ╱45╱E╱ // 0xa3e @0x8
0x0a36…0a68 at0009 = ╱46╱F╱ // 0xa3f @0x9
0x0a36…0a68 at000a = ╱4f╱O╱ // 0xa40 @0xa
0x0a36…0a68 at000b = ╱ef╱$╱ // 0xa41 @0xb
0x0a36…0a68 at000c = ╱f0╱ := ╱ // 0xa42 @0xc
0x0a36…0a68 at000d = ╱44╱D╱ // 0xa43 @0xd
0x0a36…0a68 at000e = ╱41╱A╱ // 0xa44 @0xe
0x0a36…0a68 at000f = ╱54╱T╱ // 0xa45 @0xf
0x0a36…0a68 at0010 = ╱41╱A╱ // 0xa46 @0x10
0x0a36…0a68 at0011 = ╱46╱F╱ // 0xa47 @0x11
0x0a36…0a68 at0012 = ╱4c╱L╱ // 0xa48 @0x12
0x0a36…0a68 at0013 = ╱ef╱$╱ // 0xa49 @0x13
0x0a36…0a68 at0014 = ╱eb╱ + ╱ // 0xa4a @0x14
0x0a36…0a68 at0015 = ╱22╱"╱ // 0xa4b @0x15
0x0a36…0a68 at0016 = ╱3a╱:╱ // 0xa4c @0x16
0x0a36…0a68 at0017 = ╱22╱"╱ // 0xa4d @0x17
0x0a36…0a68 at0018 = ╱eb╱ + ╱ // 0xa4e @0x18
0x0a36…0a68 at0019 = ╱53╱S╱ // 0xa4f @0x19
0x0a36…0a68 at001a = ╱5f╱_╱ // 0xa50 @0x1a
0x0a36…0a68 at001b = ╱4b╱K╱ // 0xa51 @0x1b
0x0a36…0a68 at001c = ╱4f╱O╱ // 0xa52 @0x1c
0x0a36…0a68 at001d = ╱44╱D╱ // 0xa53 @0x1d
0x0a36…0a68 at001e = ╱45╱E╱ // 0xa54 @0x1e
0x0a36…0a68 at001f = ╱ef╱$╱ // 0xa55 @0x1f
0x0a36…0a68 at0020 = ╱eb╱ + ╱ // 0xa56 @0x20
0x0a36…0a68 at0021 = ╱54╱T╱ // 0xa57 @0x21
0x0a36…0a68 at0022 = ╱5f╱_╱ // 0xa58 @0x22
0x0a36…0a68 at0023 = ╱4b╱K╱ // 0xa59 @0x23
0x0a36…0a68 at0024 = ╱4f╱O╱ // 0xa5a @0x24
0x0a36…0a68 at0025 = ╱44╱D╱ // 0xa5b @0x25
0x0a36…0a68 at0026 = ╱45╱E╱ // 0xa5c @0x26
0x0a36…0a68 at0027 = ╱ef╱$╱ // 0xa5d @0x27
0x0a36…0a68 at0028 = ╱eb╱ + ╱ // 0xa5e @0x28
0x0a36…0a68 at0029 = ╱22╱"╱ // 0xa5f @0x29
0x0a36…0a68 at002a = ╱56╱V╱ // 0xa60 @0x2a
0x0a36…0a68 at002b = ╱41╱A╱ // 0xa61 @0x2b
0x0a36…0a68 at002c = ╱52╱R╱ // 0xa62 @0x2c
0x0a36…0a68 at002d = ╱45╱E╱ // 0xa63 @0x2d
0x0a36…0a68 at002e = ╱46╱F╱ // 0xa64 @0x2e
0x0a36…0a68 at002f = ╱4f╱O╱ // 0xa65 @0x2f
0x0a36…0a68 at0030 = ╱22╱"╱ // 0xa66 @0x30
0x0a36…0a68 at0031 = EOL // 0xa67 @0x31
0x0a36…0a68 }
0x0a68…0a9a a088 0860 LET KAPOMK$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KAPOMK"
0x0a68…0a9a LineComal80 {
0x0a68…0a9a ptr = 0xa088 // 0xa68 @0x0
0x0a68…0a9a lno = 0x035c // 0xa6a @0x2
0x0a68…0a9a at0004 = ╱86╱ LET ╱ // 0xa6c @0x4
0x0a68…0a9a at0005 = ╱4b╱K╱ // 0xa6d @0x5
0x0a68…0a9a at0006 = ╱41╱A╱ // 0xa6e @0x6
0x0a68…0a9a at0007 = ╱50╱P╱ // 0xa6f @0x7
0x0a68…0a9a at0008 = ╱4f╱O╱ // 0xa70 @0x8
0x0a68…0a9a at0009 = ╱4d╱M╱ // 0xa71 @0x9
0x0a68…0a9a at000a = ╱4b╱K╱ // 0xa72 @0xa
0x0a68…0a9a at000b = ╱ef╱$╱ // 0xa73 @0xb
0x0a68…0a9a at000c = ╱f0╱ := ╱ // 0xa74 @0xc
0x0a68…0a9a at000d = ╱44╱D╱ // 0xa75 @0xd
0x0a68…0a9a at000e = ╱41╱A╱ // 0xa76 @0xe
0x0a68…0a9a at000f = ╱54╱T╱ // 0xa77 @0xf
0x0a68…0a9a at0010 = ╱41╱A╱ // 0xa78 @0x10
0x0a68…0a9a at0011 = ╱46╱F╱ // 0xa79 @0x11
0x0a68…0a9a at0012 = ╱4c╱L╱ // 0xa7a @0x12
0x0a68…0a9a at0013 = ╱ef╱$╱ // 0xa7b @0x13
0x0a68…0a9a at0014 = ╱eb╱ + ╱ // 0xa7c @0x14
0x0a68…0a9a at0015 = ╱22╱"╱ // 0xa7d @0x15
0x0a68…0a9a at0016 = ╱3a╱:╱ // 0xa7e @0x16
0x0a68…0a9a at0017 = ╱22╱"╱ // 0xa7f @0x17
0x0a68…0a9a at0018 = ╱eb╱ + ╱ // 0xa80 @0x18
0x0a68…0a9a at0019 = ╱53╱S╱ // 0xa81 @0x19
0x0a68…0a9a at001a = ╱5f╱_╱ // 0xa82 @0x1a
0x0a68…0a9a at001b = ╱4b╱K╱ // 0xa83 @0x1b
0x0a68…0a9a at001c = ╱4f╱O╱ // 0xa84 @0x1c
0x0a68…0a9a at001d = ╱44╱D╱ // 0xa85 @0x1d
0x0a68…0a9a at001e = ╱45╱E╱ // 0xa86 @0x1e
0x0a68…0a9a at001f = ╱ef╱$╱ // 0xa87 @0x1f
0x0a68…0a9a at0020 = ╱eb╱ + ╱ // 0xa88 @0x20
0x0a68…0a9a at0021 = ╱54╱T╱ // 0xa89 @0x21
0x0a68…0a9a at0022 = ╱5f╱_╱ // 0xa8a @0x22
0x0a68…0a9a at0023 = ╱4b╱K╱ // 0xa8b @0x23
0x0a68…0a9a at0024 = ╱4f╱O╱ // 0xa8c @0x24
0x0a68…0a9a at0025 = ╱44╱D╱ // 0xa8d @0x25
0x0a68…0a9a at0026 = ╱45╱E╱ // 0xa8e @0x26
0x0a68…0a9a at0027 = ╱ef╱$╱ // 0xa8f @0x27
0x0a68…0a9a at0028 = ╱eb╱ + ╱ // 0xa90 @0x28
0x0a68…0a9a at0029 = ╱22╱"╱ // 0xa91 @0x29
0x0a68…0a9a at002a = ╱4b╱K╱ // 0xa92 @0x2a
0x0a68…0a9a at002b = ╱41╱A╱ // 0xa93 @0x2b
0x0a68…0a9a at002c = ╱50╱P╱ // 0xa94 @0x2c
0x0a68…0a9a at002d = ╱4f╱O╱ // 0xa95 @0x2d
0x0a68…0a9a at002e = ╱4d╱M╱ // 0xa96 @0x2e
0x0a68…0a9a at002f = ╱4b╱K╱ // 0xa97 @0x2f
0x0a68…0a9a at0030 = ╱22╱"╱ // 0xa98 @0x30
0x0a68…0a9a at0031 = EOL // 0xa99 @0x31
0x0a68…0a9a }
0x0a9a…0acc a0ba 0870 LET AFSKRI$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "AFSKRI"
0x0a9a…0acc LineComal80 {
0x0a9a…0acc ptr = 0xa0ba // 0xa9a @0x0
0x0a9a…0acc lno = 0x0366 // 0xa9c @0x2
0x0a9a…0acc at0004 = ╱86╱ LET ╱ // 0xa9e @0x4
0x0a9a…0acc at0005 = ╱41╱A╱ // 0xa9f @0x5
0x0a9a…0acc at0006 = ╱46╱F╱ // 0xaa0 @0x6
0x0a9a…0acc at0007 = ╱53╱S╱ // 0xaa1 @0x7
0x0a9a…0acc at0008 = ╱4b╱K╱ // 0xaa2 @0x8
0x0a9a…0acc at0009 = ╱52╱R╱ // 0xaa3 @0x9
0x0a9a…0acc at000a = ╱49╱I╱ // 0xaa4 @0xa
0x0a9a…0acc at000b = ╱ef╱$╱ // 0xaa5 @0xb
0x0a9a…0acc at000c = ╱f0╱ := ╱ // 0xaa6 @0xc
0x0a9a…0acc at000d = ╱44╱D╱ // 0xaa7 @0xd
0x0a9a…0acc at000e = ╱41╱A╱ // 0xaa8 @0xe
0x0a9a…0acc at000f = ╱54╱T╱ // 0xaa9 @0xf
0x0a9a…0acc at0010 = ╱41╱A╱ // 0xaaa @0x10
0x0a9a…0acc at0011 = ╱46╱F╱ // 0xaab @0x11
0x0a9a…0acc at0012 = ╱4c╱L╱ // 0xaac @0x12
0x0a9a…0acc at0013 = ╱ef╱$╱ // 0xaad @0x13
0x0a9a…0acc at0014 = ╱eb╱ + ╱ // 0xaae @0x14
0x0a9a…0acc at0015 = ╱22╱"╱ // 0xaaf @0x15
0x0a9a…0acc at0016 = ╱3a╱:╱ // 0xab0 @0x16
0x0a9a…0acc at0017 = ╱22╱"╱ // 0xab1 @0x17
0x0a9a…0acc at0018 = ╱eb╱ + ╱ // 0xab2 @0x18
0x0a9a…0acc at0019 = ╱53╱S╱ // 0xab3 @0x19
0x0a9a…0acc at001a = ╱5f╱_╱ // 0xab4 @0x1a
0x0a9a…0acc at001b = ╱4b╱K╱ // 0xab5 @0x1b
0x0a9a…0acc at001c = ╱4f╱O╱ // 0xab6 @0x1c
0x0a9a…0acc at001d = ╱44╱D╱ // 0xab7 @0x1d
0x0a9a…0acc at001e = ╱45╱E╱ // 0xab8 @0x1e
0x0a9a…0acc at001f = ╱ef╱$╱ // 0xab9 @0x1f
0x0a9a…0acc at0020 = ╱eb╱ + ╱ // 0xaba @0x20
0x0a9a…0acc at0021 = ╱54╱T╱ // 0xabb @0x21
0x0a9a…0acc at0022 = ╱5f╱_╱ // 0xabc @0x22
0x0a9a…0acc at0023 = ╱4b╱K╱ // 0xabd @0x23
0x0a9a…0acc at0024 = ╱4f╱O╱ // 0xabe @0x24
0x0a9a…0acc at0025 = ╱44╱D╱ // 0xabf @0x25
0x0a9a…0acc at0026 = ╱45╱E╱ // 0xac0 @0x26
0x0a9a…0acc at0027 = ╱ef╱$╱ // 0xac1 @0x27
0x0a9a…0acc at0028 = ╱eb╱ + ╱ // 0xac2 @0x28
0x0a9a…0acc at0029 = ╱22╱"╱ // 0xac3 @0x29
0x0a9a…0acc at002a = ╱41╱A╱ // 0xac4 @0x2a
0x0a9a…0acc at002b = ╱46╱F╱ // 0xac5 @0x2b
0x0a9a…0acc at002c = ╱53╱S╱ // 0xac6 @0x2c
0x0a9a…0acc at002d = ╱4b╱K╱ // 0xac7 @0x2d
0x0a9a…0acc at002e = ╱52╱R╱ // 0xac8 @0x2e
0x0a9a…0acc at002f = ╱49╱I╱ // 0xac9 @0x2f
0x0a9a…0acc at0030 = ╱22╱"╱ // 0xaca @0x30
0x0a9a…0acc at0031 = EOL // 0xacb @0x31
0x0a9a…0acc }
0x0acc…0afe a0ec 0880 LET RENTEO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "RENTEO"
0x0acc…0afe LineComal80 {
0x0acc…0afe ptr = 0xa0ec // 0xacc @0x0
0x0acc…0afe lno = 0x0370 // 0xace @0x2
0x0acc…0afe at0004 = ╱86╱ LET ╱ // 0xad0 @0x4
0x0acc…0afe at0005 = ╱52╱R╱ // 0xad1 @0x5
0x0acc…0afe at0006 = ╱45╱E╱ // 0xad2 @0x6
0x0acc…0afe at0007 = ╱4e╱N╱ // 0xad3 @0x7
0x0acc…0afe at0008 = ╱54╱T╱ // 0xad4 @0x8
0x0acc…0afe at0009 = ╱45╱E╱ // 0xad5 @0x9
0x0acc…0afe at000a = ╱4f╱O╱ // 0xad6 @0xa
0x0acc…0afe at000b = ╱ef╱$╱ // 0xad7 @0xb
0x0acc…0afe at000c = ╱f0╱ := ╱ // 0xad8 @0xc
0x0acc…0afe at000d = ╱44╱D╱ // 0xad9 @0xd
0x0acc…0afe at000e = ╱41╱A╱ // 0xada @0xe
0x0acc…0afe at000f = ╱54╱T╱ // 0xadb @0xf
0x0acc…0afe at0010 = ╱41╱A╱ // 0xadc @0x10
0x0acc…0afe at0011 = ╱46╱F╱ // 0xadd @0x11
0x0acc…0afe at0012 = ╱4c╱L╱ // 0xade @0x12
0x0acc…0afe at0013 = ╱ef╱$╱ // 0xadf @0x13
0x0acc…0afe at0014 = ╱eb╱ + ╱ // 0xae0 @0x14
0x0acc…0afe at0015 = ╱22╱"╱ // 0xae1 @0x15
0x0acc…0afe at0016 = ╱3a╱:╱ // 0xae2 @0x16
0x0acc…0afe at0017 = ╱22╱"╱ // 0xae3 @0x17
0x0acc…0afe at0018 = ╱eb╱ + ╱ // 0xae4 @0x18
0x0acc…0afe at0019 = ╱53╱S╱ // 0xae5 @0x19
0x0acc…0afe at001a = ╱5f╱_╱ // 0xae6 @0x1a
0x0acc…0afe at001b = ╱4b╱K╱ // 0xae7 @0x1b
0x0acc…0afe at001c = ╱4f╱O╱ // 0xae8 @0x1c
0x0acc…0afe at001d = ╱44╱D╱ // 0xae9 @0x1d
0x0acc…0afe at001e = ╱45╱E╱ // 0xaea @0x1e
0x0acc…0afe at001f = ╱ef╱$╱ // 0xaeb @0x1f
0x0acc…0afe at0020 = ╱eb╱ + ╱ // 0xaec @0x20
0x0acc…0afe at0021 = ╱54╱T╱ // 0xaed @0x21
0x0acc…0afe at0022 = ╱5f╱_╱ // 0xaee @0x22
0x0acc…0afe at0023 = ╱4b╱K╱ // 0xaef @0x23
0x0acc…0afe at0024 = ╱4f╱O╱ // 0xaf0 @0x24
0x0acc…0afe at0025 = ╱44╱D╱ // 0xaf1 @0x25
0x0acc…0afe at0026 = ╱45╱E╱ // 0xaf2 @0x26
0x0acc…0afe at0027 = ╱ef╱$╱ // 0xaf3 @0x27
0x0acc…0afe at0028 = ╱eb╱ + ╱ // 0xaf4 @0x28
0x0acc…0afe at0029 = ╱22╱"╱ // 0xaf5 @0x29
0x0acc…0afe at002a = ╱52╱R╱ // 0xaf6 @0x2a
0x0acc…0afe at002b = ╱45╱E╱ // 0xaf7 @0x2b
0x0acc…0afe at002c = ╱4e╱N╱ // 0xaf8 @0x2c
0x0acc…0afe at002d = ╱54╱T╱ // 0xaf9 @0x2d
0x0acc…0afe at002e = ╱45╱E╱ // 0xafa @0x2e
0x0acc…0afe at002f = ╱4f╱O╱ // 0xafb @0x2f
0x0acc…0afe at0030 = ╱22╱"╱ // 0xafc @0x30
0x0acc…0afe at0031 = EOL // 0xafd @0x31
0x0acc…0afe }
0x0afe…0b30 a11e 0890 LET AKTIVE$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "AKTIVE"
0x0afe…0b30 LineComal80 {
0x0afe…0b30 ptr = 0xa11e // 0xafe @0x0
0x0afe…0b30 lno = 0x037a // 0xb00 @0x2
0x0afe…0b30 at0004 = ╱86╱ LET ╱ // 0xb02 @0x4
0x0afe…0b30 at0005 = ╱41╱A╱ // 0xb03 @0x5
0x0afe…0b30 at0006 = ╱4b╱K╱ // 0xb04 @0x6
0x0afe…0b30 at0007 = ╱54╱T╱ // 0xb05 @0x7
0x0afe…0b30 at0008 = ╱49╱I╱ // 0xb06 @0x8
0x0afe…0b30 at0009 = ╱56╱V╱ // 0xb07 @0x9
0x0afe…0b30 at000a = ╱45╱E╱ // 0xb08 @0xa
0x0afe…0b30 at000b = ╱ef╱$╱ // 0xb09 @0xb
0x0afe…0b30 at000c = ╱f0╱ := ╱ // 0xb0a @0xc
0x0afe…0b30 at000d = ╱44╱D╱ // 0xb0b @0xd
0x0afe…0b30 at000e = ╱41╱A╱ // 0xb0c @0xe
0x0afe…0b30 at000f = ╱54╱T╱ // 0xb0d @0xf
0x0afe…0b30 at0010 = ╱41╱A╱ // 0xb0e @0x10
0x0afe…0b30 at0011 = ╱46╱F╱ // 0xb0f @0x11
0x0afe…0b30 at0012 = ╱4c╱L╱ // 0xb10 @0x12
0x0afe…0b30 at0013 = ╱ef╱$╱ // 0xb11 @0x13
0x0afe…0b30 at0014 = ╱eb╱ + ╱ // 0xb12 @0x14
0x0afe…0b30 at0015 = ╱22╱"╱ // 0xb13 @0x15
0x0afe…0b30 at0016 = ╱3a╱:╱ // 0xb14 @0x16
0x0afe…0b30 at0017 = ╱22╱"╱ // 0xb15 @0x17
0x0afe…0b30 at0018 = ╱eb╱ + ╱ // 0xb16 @0x18
0x0afe…0b30 at0019 = ╱53╱S╱ // 0xb17 @0x19
0x0afe…0b30 at001a = ╱5f╱_╱ // 0xb18 @0x1a
0x0afe…0b30 at001b = ╱4b╱K╱ // 0xb19 @0x1b
0x0afe…0b30 at001c = ╱4f╱O╱ // 0xb1a @0x1c
0x0afe…0b30 at001d = ╱44╱D╱ // 0xb1b @0x1d
0x0afe…0b30 at001e = ╱45╱E╱ // 0xb1c @0x1e
0x0afe…0b30 at001f = ╱ef╱$╱ // 0xb1d @0x1f
0x0afe…0b30 at0020 = ╱eb╱ + ╱ // 0xb1e @0x20
0x0afe…0b30 at0021 = ╱54╱T╱ // 0xb1f @0x21
0x0afe…0b30 at0022 = ╱5f╱_╱ // 0xb20 @0x22
0x0afe…0b30 at0023 = ╱4b╱K╱ // 0xb21 @0x23
0x0afe…0b30 at0024 = ╱4f╱O╱ // 0xb22 @0x24
0x0afe…0b30 at0025 = ╱44╱D╱ // 0xb23 @0x25
0x0afe…0b30 at0026 = ╱45╱E╱ // 0xb24 @0x26
0x0afe…0b30 at0027 = ╱ef╱$╱ // 0xb25 @0x27
0x0afe…0b30 at0028 = ╱eb╱ + ╱ // 0xb26 @0x28
0x0afe…0b30 at0029 = ╱22╱"╱ // 0xb27 @0x29
0x0afe…0b30 at002a = ╱41╱A╱ // 0xb28 @0x2a
0x0afe…0b30 at002b = ╱4b╱K╱ // 0xb29 @0x2b
0x0afe…0b30 at002c = ╱54╱T╱ // 0xb2a @0x2c
0x0afe…0b30 at002d = ╱49╱I╱ // 0xb2b @0x2d
0x0afe…0b30 at002e = ╱56╱V╱ // 0xb2c @0x2e
0x0afe…0b30 at002f = ╱45╱E╱ // 0xb2d @0x2f
0x0afe…0b30 at0030 = ╱22╱"╱ // 0xb2e @0x30
0x0afe…0b30 at0031 = EOL // 0xb2f @0x31
0x0afe…0b30 }
0x0b30…0b62 a150 0900 LET VARELA$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "VARELA"
0x0b30…0b62 LineComal80 {
0x0b30…0b62 ptr = 0xa150 // 0xb30 @0x0
0x0b30…0b62 lno = 0x0384 // 0xb32 @0x2
0x0b30…0b62 at0004 = ╱86╱ LET ╱ // 0xb34 @0x4
0x0b30…0b62 at0005 = ╱56╱V╱ // 0xb35 @0x5
0x0b30…0b62 at0006 = ╱41╱A╱ // 0xb36 @0x6
0x0b30…0b62 at0007 = ╱52╱R╱ // 0xb37 @0x7
0x0b30…0b62 at0008 = ╱45╱E╱ // 0xb38 @0x8
0x0b30…0b62 at0009 = ╱4c╱L╱ // 0xb39 @0x9
0x0b30…0b62 at000a = ╱41╱A╱ // 0xb3a @0xa
0x0b30…0b62 at000b = ╱ef╱$╱ // 0xb3b @0xb
0x0b30…0b62 at000c = ╱f0╱ := ╱ // 0xb3c @0xc
0x0b30…0b62 at000d = ╱44╱D╱ // 0xb3d @0xd
0x0b30…0b62 at000e = ╱41╱A╱ // 0xb3e @0xe
0x0b30…0b62 at000f = ╱54╱T╱ // 0xb3f @0xf
0x0b30…0b62 at0010 = ╱41╱A╱ // 0xb40 @0x10
0x0b30…0b62 at0011 = ╱46╱F╱ // 0xb41 @0x11
0x0b30…0b62 at0012 = ╱4c╱L╱ // 0xb42 @0x12
0x0b30…0b62 at0013 = ╱ef╱$╱ // 0xb43 @0x13
0x0b30…0b62 at0014 = ╱eb╱ + ╱ // 0xb44 @0x14
0x0b30…0b62 at0015 = ╱22╱"╱ // 0xb45 @0x15
0x0b30…0b62 at0016 = ╱3a╱:╱ // 0xb46 @0x16
0x0b30…0b62 at0017 = ╱22╱"╱ // 0xb47 @0x17
0x0b30…0b62 at0018 = ╱eb╱ + ╱ // 0xb48 @0x18
0x0b30…0b62 at0019 = ╱53╱S╱ // 0xb49 @0x19
0x0b30…0b62 at001a = ╱5f╱_╱ // 0xb4a @0x1a
0x0b30…0b62 at001b = ╱4b╱K╱ // 0xb4b @0x1b
0x0b30…0b62 at001c = ╱4f╱O╱ // 0xb4c @0x1c
0x0b30…0b62 at001d = ╱44╱D╱ // 0xb4d @0x1d
0x0b30…0b62 at001e = ╱45╱E╱ // 0xb4e @0x1e
0x0b30…0b62 at001f = ╱ef╱$╱ // 0xb4f @0x1f
0x0b30…0b62 at0020 = ╱eb╱ + ╱ // 0xb50 @0x20
0x0b30…0b62 at0021 = ╱54╱T╱ // 0xb51 @0x21
0x0b30…0b62 at0022 = ╱5f╱_╱ // 0xb52 @0x22
0x0b30…0b62 at0023 = ╱4b╱K╱ // 0xb53 @0x23
0x0b30…0b62 at0024 = ╱4f╱O╱ // 0xb54 @0x24
0x0b30…0b62 at0025 = ╱44╱D╱ // 0xb55 @0x25
0x0b30…0b62 at0026 = ╱45╱E╱ // 0xb56 @0x26
0x0b30…0b62 at0027 = ╱ef╱$╱ // 0xb57 @0x27
0x0b30…0b62 at0028 = ╱eb╱ + ╱ // 0xb58 @0x28
0x0b30…0b62 at0029 = ╱22╱"╱ // 0xb59 @0x29
0x0b30…0b62 at002a = ╱56╱V╱ // 0xb5a @0x2a
0x0b30…0b62 at002b = ╱41╱A╱ // 0xb5b @0x2b
0x0b30…0b62 at002c = ╱52╱R╱ // 0xb5c @0x2c
0x0b30…0b62 at002d = ╱45╱E╱ // 0xb5d @0x2d
0x0b30…0b62 at002e = ╱4c╱L╱ // 0xb5e @0x2e
0x0b30…0b62 at002f = ╱41╱A╱ // 0xb5f @0x2f
0x0b30…0b62 at0030 = ╱22╱"╱ // 0xb60 @0x30
0x0b30…0b62 at0031 = EOL // 0xb61 @0x31
0x0b30…0b62 }
0x0b62…0b94 a182 0910 LET DEBITO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "DEBITO"
0x0b62…0b94 LineComal80 {
0x0b62…0b94 ptr = 0xa182 // 0xb62 @0x0
0x0b62…0b94 lno = 0x038e // 0xb64 @0x2
0x0b62…0b94 at0004 = ╱86╱ LET ╱ // 0xb66 @0x4
0x0b62…0b94 at0005 = ╱44╱D╱ // 0xb67 @0x5
0x0b62…0b94 at0006 = ╱45╱E╱ // 0xb68 @0x6
0x0b62…0b94 at0007 = ╱42╱B╱ // 0xb69 @0x7
0x0b62…0b94 at0008 = ╱49╱I╱ // 0xb6a @0x8
0x0b62…0b94 at0009 = ╱54╱T╱ // 0xb6b @0x9
0x0b62…0b94 at000a = ╱4f╱O╱ // 0xb6c @0xa
0x0b62…0b94 at000b = ╱ef╱$╱ // 0xb6d @0xb
0x0b62…0b94 at000c = ╱f0╱ := ╱ // 0xb6e @0xc
0x0b62…0b94 at000d = ╱44╱D╱ // 0xb6f @0xd
0x0b62…0b94 at000e = ╱41╱A╱ // 0xb70 @0xe
0x0b62…0b94 at000f = ╱54╱T╱ // 0xb71 @0xf
0x0b62…0b94 at0010 = ╱41╱A╱ // 0xb72 @0x10
0x0b62…0b94 at0011 = ╱46╱F╱ // 0xb73 @0x11
0x0b62…0b94 at0012 = ╱4c╱L╱ // 0xb74 @0x12
0x0b62…0b94 at0013 = ╱ef╱$╱ // 0xb75 @0x13
0x0b62…0b94 at0014 = ╱eb╱ + ╱ // 0xb76 @0x14
0x0b62…0b94 at0015 = ╱22╱"╱ // 0xb77 @0x15
0x0b62…0b94 at0016 = ╱3a╱:╱ // 0xb78 @0x16
0x0b62…0b94 at0017 = ╱22╱"╱ // 0xb79 @0x17
0x0b62…0b94 at0018 = ╱eb╱ + ╱ // 0xb7a @0x18
0x0b62…0b94 at0019 = ╱53╱S╱ // 0xb7b @0x19
0x0b62…0b94 at001a = ╱5f╱_╱ // 0xb7c @0x1a
0x0b62…0b94 at001b = ╱4b╱K╱ // 0xb7d @0x1b
0x0b62…0b94 at001c = ╱4f╱O╱ // 0xb7e @0x1c
0x0b62…0b94 at001d = ╱44╱D╱ // 0xb7f @0x1d
0x0b62…0b94 at001e = ╱45╱E╱ // 0xb80 @0x1e
0x0b62…0b94 at001f = ╱ef╱$╱ // 0xb81 @0x1f
0x0b62…0b94 at0020 = ╱eb╱ + ╱ // 0xb82 @0x20
0x0b62…0b94 at0021 = ╱54╱T╱ // 0xb83 @0x21
0x0b62…0b94 at0022 = ╱5f╱_╱ // 0xb84 @0x22
0x0b62…0b94 at0023 = ╱4b╱K╱ // 0xb85 @0x23
0x0b62…0b94 at0024 = ╱4f╱O╱ // 0xb86 @0x24
0x0b62…0b94 at0025 = ╱44╱D╱ // 0xb87 @0x25
0x0b62…0b94 at0026 = ╱45╱E╱ // 0xb88 @0x26
0x0b62…0b94 at0027 = ╱ef╱$╱ // 0xb89 @0x27
0x0b62…0b94 at0028 = ╱eb╱ + ╱ // 0xb8a @0x28
0x0b62…0b94 at0029 = ╱22╱"╱ // 0xb8b @0x29
0x0b62…0b94 at002a = ╱44╱D╱ // 0xb8c @0x2a
0x0b62…0b94 at002b = ╱45╱E╱ // 0xb8d @0x2b
0x0b62…0b94 at002c = ╱42╱B╱ // 0xb8e @0x2c
0x0b62…0b94 at002d = ╱49╱I╱ // 0xb8f @0x2d
0x0b62…0b94 at002e = ╱54╱T╱ // 0xb90 @0x2e
0x0b62…0b94 at002f = ╱4f╱O╱ // 0xb91 @0x2f
0x0b62…0b94 at0030 = ╱22╱"╱ // 0xb92 @0x30
0x0b62…0b94 at0031 = EOL // 0xb93 @0x31
0x0b62…0b94 }
0x0b94…0bc6 a1b4 0920 LET KREDIT$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KREDIT"
0x0b94…0bc6 LineComal80 {
0x0b94…0bc6 ptr = 0xa1b4 // 0xb94 @0x0
0x0b94…0bc6 lno = 0x0398 // 0xb96 @0x2
0x0b94…0bc6 at0004 = ╱86╱ LET ╱ // 0xb98 @0x4
0x0b94…0bc6 at0005 = ╱4b╱K╱ // 0xb99 @0x5
0x0b94…0bc6 at0006 = ╱52╱R╱ // 0xb9a @0x6
0x0b94…0bc6 at0007 = ╱45╱E╱ // 0xb9b @0x7
0x0b94…0bc6 at0008 = ╱44╱D╱ // 0xb9c @0x8
0x0b94…0bc6 at0009 = ╱49╱I╱ // 0xb9d @0x9
0x0b94…0bc6 at000a = ╱54╱T╱ // 0xb9e @0xa
0x0b94…0bc6 at000b = ╱ef╱$╱ // 0xb9f @0xb
0x0b94…0bc6 at000c = ╱f0╱ := ╱ // 0xba0 @0xc
0x0b94…0bc6 at000d = ╱44╱D╱ // 0xba1 @0xd
0x0b94…0bc6 at000e = ╱41╱A╱ // 0xba2 @0xe
0x0b94…0bc6 at000f = ╱54╱T╱ // 0xba3 @0xf
0x0b94…0bc6 at0010 = ╱41╱A╱ // 0xba4 @0x10
0x0b94…0bc6 at0011 = ╱46╱F╱ // 0xba5 @0x11
0x0b94…0bc6 at0012 = ╱4c╱L╱ // 0xba6 @0x12
0x0b94…0bc6 at0013 = ╱ef╱$╱ // 0xba7 @0x13
0x0b94…0bc6 at0014 = ╱eb╱ + ╱ // 0xba8 @0x14
0x0b94…0bc6 at0015 = ╱22╱"╱ // 0xba9 @0x15
0x0b94…0bc6 at0016 = ╱3a╱:╱ // 0xbaa @0x16
0x0b94…0bc6 at0017 = ╱22╱"╱ // 0xbab @0x17
0x0b94…0bc6 at0018 = ╱eb╱ + ╱ // 0xbac @0x18
0x0b94…0bc6 at0019 = ╱53╱S╱ // 0xbad @0x19
0x0b94…0bc6 at001a = ╱5f╱_╱ // 0xbae @0x1a
0x0b94…0bc6 at001b = ╱4b╱K╱ // 0xbaf @0x1b
0x0b94…0bc6 at001c = ╱4f╱O╱ // 0xbb0 @0x1c
0x0b94…0bc6 at001d = ╱44╱D╱ // 0xbb1 @0x1d
0x0b94…0bc6 at001e = ╱45╱E╱ // 0xbb2 @0x1e
0x0b94…0bc6 at001f = ╱ef╱$╱ // 0xbb3 @0x1f
0x0b94…0bc6 at0020 = ╱eb╱ + ╱ // 0xbb4 @0x20
0x0b94…0bc6 at0021 = ╱54╱T╱ // 0xbb5 @0x21
0x0b94…0bc6 at0022 = ╱5f╱_╱ // 0xbb6 @0x22
0x0b94…0bc6 at0023 = ╱4b╱K╱ // 0xbb7 @0x23
0x0b94…0bc6 at0024 = ╱4f╱O╱ // 0xbb8 @0x24
0x0b94…0bc6 at0025 = ╱44╱D╱ // 0xbb9 @0x25
0x0b94…0bc6 at0026 = ╱45╱E╱ // 0xbba @0x26
0x0b94…0bc6 at0027 = ╱ef╱$╱ // 0xbbb @0x27
0x0b94…0bc6 at0028 = ╱eb╱ + ╱ // 0xbbc @0x28
0x0b94…0bc6 at0029 = ╱22╱"╱ // 0xbbd @0x29
0x0b94…0bc6 at002a = ╱4b╱K╱ // 0xbbe @0x2a
0x0b94…0bc6 at002b = ╱52╱R╱ // 0xbbf @0x2b
0x0b94…0bc6 at002c = ╱45╱E╱ // 0xbc0 @0x2c
0x0b94…0bc6 at002d = ╱44╱D╱ // 0xbc1 @0x2d
0x0b94…0bc6 at002e = ╱49╱I╱ // 0xbc2 @0x2e
0x0b94…0bc6 at002f = ╱54╱T╱ // 0xbc3 @0x2f
0x0b94…0bc6 at0030 = ╱22╱"╱ // 0xbc4 @0x30
0x0b94…0bc6 at0031 = EOL // 0xbc5 @0x31
0x0b94…0bc6 }
0x0bc6…0bf8 a1e6 0930 LET EGENKA$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "EGENKA"
0x0bc6…0bf8 LineComal80 {
0x0bc6…0bf8 ptr = 0xa1e6 // 0xbc6 @0x0
0x0bc6…0bf8 lno = 0x03a2 // 0xbc8 @0x2
0x0bc6…0bf8 at0004 = ╱86╱ LET ╱ // 0xbca @0x4
0x0bc6…0bf8 at0005 = ╱45╱E╱ // 0xbcb @0x5
0x0bc6…0bf8 at0006 = ╱47╱G╱ // 0xbcc @0x6
0x0bc6…0bf8 at0007 = ╱45╱E╱ // 0xbcd @0x7
0x0bc6…0bf8 at0008 = ╱4e╱N╱ // 0xbce @0x8
0x0bc6…0bf8 at0009 = ╱4b╱K╱ // 0xbcf @0x9
0x0bc6…0bf8 at000a = ╱41╱A╱ // 0xbd0 @0xa
0x0bc6…0bf8 at000b = ╱ef╱$╱ // 0xbd1 @0xb
0x0bc6…0bf8 at000c = ╱f0╱ := ╱ // 0xbd2 @0xc
0x0bc6…0bf8 at000d = ╱44╱D╱ // 0xbd3 @0xd
0x0bc6…0bf8 at000e = ╱41╱A╱ // 0xbd4 @0xe
0x0bc6…0bf8 at000f = ╱54╱T╱ // 0xbd5 @0xf
0x0bc6…0bf8 at0010 = ╱41╱A╱ // 0xbd6 @0x10
0x0bc6…0bf8 at0011 = ╱46╱F╱ // 0xbd7 @0x11
0x0bc6…0bf8 at0012 = ╱4c╱L╱ // 0xbd8 @0x12
0x0bc6…0bf8 at0013 = ╱ef╱$╱ // 0xbd9 @0x13
0x0bc6…0bf8 at0014 = ╱eb╱ + ╱ // 0xbda @0x14
0x0bc6…0bf8 at0015 = ╱22╱"╱ // 0xbdb @0x15
0x0bc6…0bf8 at0016 = ╱3a╱:╱ // 0xbdc @0x16
0x0bc6…0bf8 at0017 = ╱22╱"╱ // 0xbdd @0x17
0x0bc6…0bf8 at0018 = ╱eb╱ + ╱ // 0xbde @0x18
0x0bc6…0bf8 at0019 = ╱53╱S╱ // 0xbdf @0x19
0x0bc6…0bf8 at001a = ╱5f╱_╱ // 0xbe0 @0x1a
0x0bc6…0bf8 at001b = ╱4b╱K╱ // 0xbe1 @0x1b
0x0bc6…0bf8 at001c = ╱4f╱O╱ // 0xbe2 @0x1c
0x0bc6…0bf8 at001d = ╱44╱D╱ // 0xbe3 @0x1d
0x0bc6…0bf8 at001e = ╱45╱E╱ // 0xbe4 @0x1e
0x0bc6…0bf8 at001f = ╱ef╱$╱ // 0xbe5 @0x1f
0x0bc6…0bf8 at0020 = ╱eb╱ + ╱ // 0xbe6 @0x20
0x0bc6…0bf8 at0021 = ╱54╱T╱ // 0xbe7 @0x21
0x0bc6…0bf8 at0022 = ╱5f╱_╱ // 0xbe8 @0x22
0x0bc6…0bf8 at0023 = ╱4b╱K╱ // 0xbe9 @0x23
0x0bc6…0bf8 at0024 = ╱4f╱O╱ // 0xbea @0x24
0x0bc6…0bf8 at0025 = ╱44╱D╱ // 0xbeb @0x25
0x0bc6…0bf8 at0026 = ╱45╱E╱ // 0xbec @0x26
0x0bc6…0bf8 at0027 = ╱ef╱$╱ // 0xbed @0x27
0x0bc6…0bf8 at0028 = ╱eb╱ + ╱ // 0xbee @0x28
0x0bc6…0bf8 at0029 = ╱22╱"╱ // 0xbef @0x29
0x0bc6…0bf8 at002a = ╱45╱E╱ // 0xbf0 @0x2a
0x0bc6…0bf8 at002b = ╱47╱G╱ // 0xbf1 @0x2b
0x0bc6…0bf8 at002c = ╱45╱E╱ // 0xbf2 @0x2c
0x0bc6…0bf8 at002d = ╱4e╱N╱ // 0xbf3 @0x2d
0x0bc6…0bf8 at002e = ╱4b╱K╱ // 0xbf4 @0x2e
0x0bc6…0bf8 at002f = ╱41╱A╱ // 0xbf5 @0x2f
0x0bc6…0bf8 at0030 = ╱22╱"╱ // 0xbf6 @0x30
0x0bc6…0bf8 at0031 = EOL // 0xbf7 @0x31
0x0bc6…0bf8 }
0x0bf8…0c2a a218 0780 LET DRIFTØ$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "DRIFTØ"
0x0bf8…0c2a LineComal80 {
0x0bf8…0c2a ptr = 0xa218 // 0xbf8 @0x0
0x0bf8…0c2a lno = 0x030c // 0xbfa @0x2
0x0bf8…0c2a at0004 = ╱86╱ LET ╱ // 0xbfc @0x4
0x0bf8…0c2a at0005 = ╱44╱D╱ // 0xbfd @0x5
0x0bf8…0c2a at0006 = ╱52╱R╱ // 0xbfe @0x6
0x0bf8…0c2a at0007 = ╱49╱I╱ // 0xbff @0x7
0x0bf8…0c2a at0008 = ╱46╱F╱ // 0xc00 @0x8
0x0bf8…0c2a at0009 = ╱54╱T╱ // 0xc01 @0x9
0x0bf8…0c2a at000a = ╱5c╱Ø╱ // 0xc02 @0xa
0x0bf8…0c2a at000b = ╱ef╱$╱ // 0xc03 @0xb
0x0bf8…0c2a at000c = ╱f0╱ := ╱ // 0xc04 @0xc
0x0bf8…0c2a at000d = ╱44╱D╱ // 0xc05 @0xd
0x0bf8…0c2a at000e = ╱41╱A╱ // 0xc06 @0xe
0x0bf8…0c2a at000f = ╱54╱T╱ // 0xc07 @0xf
0x0bf8…0c2a at0010 = ╱41╱A╱ // 0xc08 @0x10
0x0bf8…0c2a at0011 = ╱46╱F╱ // 0xc09 @0x11
0x0bf8…0c2a at0012 = ╱4c╱L╱ // 0xc0a @0x12
0x0bf8…0c2a at0013 = ╱ef╱$╱ // 0xc0b @0x13
0x0bf8…0c2a at0014 = ╱eb╱ + ╱ // 0xc0c @0x14
0x0bf8…0c2a at0015 = ╱22╱"╱ // 0xc0d @0x15
0x0bf8…0c2a at0016 = ╱3a╱:╱ // 0xc0e @0x16
0x0bf8…0c2a at0017 = ╱22╱"╱ // 0xc0f @0x17
0x0bf8…0c2a at0018 = ╱eb╱ + ╱ // 0xc10 @0x18
0x0bf8…0c2a at0019 = ╱53╱S╱ // 0xc11 @0x19
0x0bf8…0c2a at001a = ╱5f╱_╱ // 0xc12 @0x1a
0x0bf8…0c2a at001b = ╱4b╱K╱ // 0xc13 @0x1b
0x0bf8…0c2a at001c = ╱4f╱O╱ // 0xc14 @0x1c
0x0bf8…0c2a at001d = ╱44╱D╱ // 0xc15 @0x1d
0x0bf8…0c2a at001e = ╱45╱E╱ // 0xc16 @0x1e
0x0bf8…0c2a at001f = ╱ef╱$╱ // 0xc17 @0x1f
0x0bf8…0c2a at0020 = ╱eb╱ + ╱ // 0xc18 @0x20
0x0bf8…0c2a at0021 = ╱54╱T╱ // 0xc19 @0x21
0x0bf8…0c2a at0022 = ╱5f╱_╱ // 0xc1a @0x22
0x0bf8…0c2a at0023 = ╱4b╱K╱ // 0xc1b @0x23
0x0bf8…0c2a at0024 = ╱4f╱O╱ // 0xc1c @0x24
0x0bf8…0c2a at0025 = ╱44╱D╱ // 0xc1d @0x25
0x0bf8…0c2a at0026 = ╱45╱E╱ // 0xc1e @0x26
0x0bf8…0c2a at0027 = ╱ef╱$╱ // 0xc1f @0x27
0x0bf8…0c2a at0028 = ╱eb╱ + ╱ // 0xc20 @0x28
0x0bf8…0c2a at0029 = ╱22╱"╱ // 0xc21 @0x29
0x0bf8…0c2a at002a = ╱44╱D╱ // 0xc22 @0x2a
0x0bf8…0c2a at002b = ╱52╱R╱ // 0xc23 @0x2b
0x0bf8…0c2a at002c = ╱49╱I╱ // 0xc24 @0x2c
0x0bf8…0c2a at002d = ╱46╱F╱ // 0xc25 @0x2d
0x0bf8…0c2a at002e = ╱54╱T╱ // 0xc26 @0x2e
0x0bf8…0c2a at002f = ╱5c╱Ø╱ // 0xc27 @0x2f
0x0bf8…0c2a at0030 = ╱22╱"╱ // 0xc28 @0x30
0x0bf8…0c2a at0031 = EOL // 0xc29 @0x31
0x0bf8…0c2a }
0x0c2a…0c5c a24a 0790 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0x0c2a…0c5c LineComal80 {
0x0c2a…0c5c ptr = 0xa24a // 0xc2a @0x0
0x0c2a…0c5c lno = 0x0316 // 0xc2c @0x2
0x0c2a…0c5c at0004 = ╱86╱ LET ╱ // 0xc2e @0x4
0x0c2a…0c5c at0005 = ╱4b╱K╱ // 0xc2f @0x5
0x0c2a…0c5c at0006 = ╱54╱T╱ // 0xc30 @0x6
0x0c2a…0c5c at0007 = ╱4f╱O╱ // 0xc31 @0x7
0x0c2a…0c5c at0008 = ╱49╱I╱ // 0xc32 @0x8
0x0c2a…0c5c at0009 = ╱44╱D╱ // 0xc33 @0x9
0x0c2a…0c5c at000a = ╱58╱X╱ // 0xc34 @0xa
0x0c2a…0c5c at000b = ╱ef╱$╱ // 0xc35 @0xb
0x0c2a…0c5c at000c = ╱f0╱ := ╱ // 0xc36 @0xc
0x0c2a…0c5c at000d = ╱44╱D╱ // 0xc37 @0xd
0x0c2a…0c5c at000e = ╱41╱A╱ // 0xc38 @0xe
0x0c2a…0c5c at000f = ╱54╱T╱ // 0xc39 @0xf
0x0c2a…0c5c at0010 = ╱41╱A╱ // 0xc3a @0x10
0x0c2a…0c5c at0011 = ╱46╱F╱ // 0xc3b @0x11
0x0c2a…0c5c at0012 = ╱4c╱L╱ // 0xc3c @0x12
0x0c2a…0c5c at0013 = ╱ef╱$╱ // 0xc3d @0x13
0x0c2a…0c5c at0014 = ╱eb╱ + ╱ // 0xc3e @0x14
0x0c2a…0c5c at0015 = ╱22╱"╱ // 0xc3f @0x15
0x0c2a…0c5c at0016 = ╱3a╱:╱ // 0xc40 @0x16
0x0c2a…0c5c at0017 = ╱22╱"╱ // 0xc41 @0x17
0x0c2a…0c5c at0018 = ╱eb╱ + ╱ // 0xc42 @0x18
0x0c2a…0c5c at0019 = ╱53╱S╱ // 0xc43 @0x19
0x0c2a…0c5c at001a = ╱5f╱_╱ // 0xc44 @0x1a
0x0c2a…0c5c at001b = ╱4b╱K╱ // 0xc45 @0x1b
0x0c2a…0c5c at001c = ╱4f╱O╱ // 0xc46 @0x1c
0x0c2a…0c5c at001d = ╱44╱D╱ // 0xc47 @0x1d
0x0c2a…0c5c at001e = ╱45╱E╱ // 0xc48 @0x1e
0x0c2a…0c5c at001f = ╱ef╱$╱ // 0xc49 @0x1f
0x0c2a…0c5c at0020 = ╱eb╱ + ╱ // 0xc4a @0x20
0x0c2a…0c5c at0021 = ╱54╱T╱ // 0xc4b @0x21
0x0c2a…0c5c at0022 = ╱5f╱_╱ // 0xc4c @0x22
0x0c2a…0c5c at0023 = ╱4b╱K╱ // 0xc4d @0x23
0x0c2a…0c5c at0024 = ╱4f╱O╱ // 0xc4e @0x24
0x0c2a…0c5c at0025 = ╱44╱D╱ // 0xc4f @0x25
0x0c2a…0c5c at0026 = ╱45╱E╱ // 0xc50 @0x26
0x0c2a…0c5c at0027 = ╱ef╱$╱ // 0xc51 @0x27
0x0c2a…0c5c at0028 = ╱eb╱ + ╱ // 0xc52 @0x28
0x0c2a…0c5c at0029 = ╱22╱"╱ // 0xc53 @0x29
0x0c2a…0c5c at002a = ╱4b╱K╱ // 0xc54 @0x2a
0x0c2a…0c5c at002b = ╱54╱T╱ // 0xc55 @0x2b
0x0c2a…0c5c at002c = ╱4f╱O╱ // 0xc56 @0x2c
0x0c2a…0c5c at002d = ╱49╱I╱ // 0xc57 @0x2d
0x0c2a…0c5c at002e = ╱44╱D╱ // 0xc58 @0x2e
0x0c2a…0c5c at002f = ╱58╱X╱ // 0xc59 @0x2f
0x0c2a…0c5c at0030 = ╱22╱"╱ // 0xc5a @0x30
0x0c2a…0c5c at0031 = EOL // 0xc5b @0x31
0x0c2a…0c5c }
0x0c5c…0c8c a27a 0800 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0x0c5c…0c8c LineComal80 {
0x0c5c…0c8c ptr = 0xa27a // 0xc5c @0x0
0x0c5c…0c8c lno = 0x0320 // 0xc5e @0x2
0x0c5c…0c8c at0004 = ╱86╱ LET ╱ // 0xc60 @0x4
0x0c5c…0c8c at0005 = ╱4b╱K╱ // 0xc61 @0x5
0x0c5c…0c8c at0006 = ╱4f╱O╱ // 0xc62 @0x6
0x0c5c…0c8c at0007 = ╱4e╱N╱ // 0xc63 @0x7
0x0c5c…0c8c at0008 = ╱54╱T╱ // 0xc64 @0x8
0x0c5c…0c8c at0009 = ╱4f╱O╱ // 0xc65 @0x9
0x0c5c…0c8c at000a = ╱ef╱$╱ // 0xc66 @0xa
0x0c5c…0c8c at000b = ╱f0╱ := ╱ // 0xc67 @0xb
0x0c5c…0c8c at000c = ╱44╱D╱ // 0xc68 @0xc
0x0c5c…0c8c at000d = ╱41╱A╱ // 0xc69 @0xd
0x0c5c…0c8c at000e = ╱54╱T╱ // 0xc6a @0xe
0x0c5c…0c8c at000f = ╱41╱A╱ // 0xc6b @0xf
0x0c5c…0c8c at0010 = ╱46╱F╱ // 0xc6c @0x10
0x0c5c…0c8c at0011 = ╱4c╱L╱ // 0xc6d @0x11
0x0c5c…0c8c at0012 = ╱ef╱$╱ // 0xc6e @0x12
0x0c5c…0c8c at0013 = ╱eb╱ + ╱ // 0xc6f @0x13
0x0c5c…0c8c at0014 = ╱22╱"╱ // 0xc70 @0x14
0x0c5c…0c8c at0015 = ╱3a╱:╱ // 0xc71 @0x15
0x0c5c…0c8c at0016 = ╱22╱"╱ // 0xc72 @0x16
0x0c5c…0c8c at0017 = ╱eb╱ + ╱ // 0xc73 @0x17
0x0c5c…0c8c at0018 = ╱53╱S╱ // 0xc74 @0x18
0x0c5c…0c8c at0019 = ╱5f╱_╱ // 0xc75 @0x19
0x0c5c…0c8c at001a = ╱4b╱K╱ // 0xc76 @0x1a
0x0c5c…0c8c at001b = ╱4f╱O╱ // 0xc77 @0x1b
0x0c5c…0c8c at001c = ╱44╱D╱ // 0xc78 @0x1c
0x0c5c…0c8c at001d = ╱45╱E╱ // 0xc79 @0x1d
0x0c5c…0c8c at001e = ╱ef╱$╱ // 0xc7a @0x1e
0x0c5c…0c8c at001f = ╱eb╱ + ╱ // 0xc7b @0x1f
0x0c5c…0c8c at0020 = ╱54╱T╱ // 0xc7c @0x20
0x0c5c…0c8c at0021 = ╱5f╱_╱ // 0xc7d @0x21
0x0c5c…0c8c at0022 = ╱4b╱K╱ // 0xc7e @0x22
0x0c5c…0c8c at0023 = ╱4f╱O╱ // 0xc7f @0x23
0x0c5c…0c8c at0024 = ╱44╱D╱ // 0xc80 @0x24
0x0c5c…0c8c at0025 = ╱45╱E╱ // 0xc81 @0x25
0x0c5c…0c8c at0026 = ╱ef╱$╱ // 0xc82 @0x26
0x0c5c…0c8c at0027 = ╱eb╱ + ╱ // 0xc83 @0x27
0x0c5c…0c8c at0028 = ╱22╱"╱ // 0xc84 @0x28
0x0c5c…0c8c at0029 = ╱4b╱K╱ // 0xc85 @0x29
0x0c5c…0c8c at002a = ╱4f╱O╱ // 0xc86 @0x2a
0x0c5c…0c8c at002b = ╱4e╱N╱ // 0xc87 @0x2b
0x0c5c…0c8c at002c = ╱54╱T╱ // 0xc88 @0x2c
0x0c5c…0c8c at002d = ╱4f╱O╱ // 0xc89 @0x2d
0x0c5c…0c8c at002e = ╱22╱"╱ // 0xc8a @0x2e
0x0c5c…0c8c at002f = EOL // 0xc8b @0x2f
0x0c5c…0c8c }
0x0c8c…0ca6 a294 0810 EXEC OPENFIL(DRIFTØ$,"R")
0x0c8c…0ca6 LineComal80 {
0x0c8c…0ca6 ptr = 0xa294 // 0xc8c @0x0
0x0c8c…0ca6 lno = 0x032a // 0xc8e @0x2
0x0c8c…0ca6 at0004 = ╱9d╱ EXEC ╱ // 0xc90 @0x4
0x0c8c…0ca6 at0005 = ╱4f╱O╱ // 0xc91 @0x5
0x0c8c…0ca6 at0006 = ╱50╱P╱ // 0xc92 @0x6
0x0c8c…0ca6 at0007 = ╱45╱E╱ // 0xc93 @0x7
0x0c8c…0ca6 at0008 = ╱4e╱N╱ // 0xc94 @0x8
0x0c8c…0ca6 at0009 = ╱46╱F╱ // 0xc95 @0x9
0x0c8c…0ca6 at000a = ╱49╱I╱ // 0xc96 @0xa
0x0c8c…0ca6 at000b = ╱4c╱L╱ // 0xc97 @0xb
0x0c8c…0ca6 at000c = ╱ed╱(╱ // 0xc98 @0xc
0x0c8c…0ca6 at000d = ╱44╱D╱ // 0xc99 @0xd
0x0c8c…0ca6 at000e = ╱52╱R╱ // 0xc9a @0xe
0x0c8c…0ca6 at000f = ╱49╱I╱ // 0xc9b @0xf
0x0c8c…0ca6 at0010 = ╱46╱F╱ // 0xc9c @0x10
0x0c8c…0ca6 at0011 = ╱54╱T╱ // 0xc9d @0x11
0x0c8c…0ca6 at0012 = ╱5c╱Ø╱ // 0xc9e @0x12
0x0c8c…0ca6 at0013 = ╱ef╱$╱ // 0xc9f @0x13
0x0c8c…0ca6 at0014 = ╱ec╱,╱ // 0xca0 @0x14
0x0c8c…0ca6 at0015 = ╱22╱"╱ // 0xca1 @0x15
0x0c8c…0ca6 at0016 = ╱52╱R╱ // 0xca2 @0x16
0x0c8c…0ca6 at0017 = ╱22╱"╱ // 0xca3 @0x17
0x0c8c…0ca6 at0018 = ╱ee╱)╱ // 0xca4 @0x18
0x0c8c…0ca6 at0019 = EOL // 0xca5 @0x19
0x0c8c…0ca6 }
0x0ca6…0cc2 a2b0 0820 GET DRIFTØ$,1 : PRIMODAT$
0x0ca6…0cc2 LineComal80 {
0x0ca6…0cc2 ptr = 0xa2b0 // 0xca6 @0x0
0x0ca6…0cc2 lno = 0x0334 // 0xca8 @0x2
0x0ca6…0cc2 at0004 = ╱a9╱ GET ╱ // 0xcaa @0x4
0x0ca6…0cc2 at0005 = ╱44╱D╱ // 0xcab @0x5
0x0ca6…0cc2 at0006 = ╱52╱R╱ // 0xcac @0x6
0x0ca6…0cc2 at0007 = ╱49╱I╱ // 0xcad @0x7
0x0ca6…0cc2 at0008 = ╱46╱F╱ // 0xcae @0x8
0x0ca6…0cc2 at0009 = ╱54╱T╱ // 0xcaf @0x9
0x0ca6…0cc2 at000a = ╱5c╱Ø╱ // 0xcb0 @0xa
0x0ca6…0cc2 at000b = ╱ef╱$╱ // 0xcb1 @0xb
0x0ca6…0cc2 at000c = ╱ec╱,╱ // 0xcb2 @0xc
0x0ca6…0cc2 at000d = ╱31╱1╱ // 0xcb3 @0xd
0x0ca6…0cc2 at000e = ╱f20100╱ // 0xcb4 @0xe
0x0ca6…0cc2 at0011 = ╱f1╱ : ╱ // 0xcb7 @0x11
0x0ca6…0cc2 at0012 = ╱50╱P╱ // 0xcb8 @0x12
0x0ca6…0cc2 at0013 = ╱52╱R╱ // 0xcb9 @0x13
0x0ca6…0cc2 at0014 = ╱49╱I╱ // 0xcba @0x14
0x0ca6…0cc2 at0015 = ╱4d╱M╱ // 0xcbb @0x15
0x0ca6…0cc2 at0016 = ╱4f╱O╱ // 0xcbc @0x16
0x0ca6…0cc2 at0017 = ╱44╱D╱ // 0xcbd @0x17
0x0ca6…0cc2 at0018 = ╱41╱A╱ // 0xcbe @0x18
0x0ca6…0cc2 at0019 = ╱54╱T╱ // 0xcbf @0x19
0x0ca6…0cc2 at001a = ╱ef╱$╱ // 0xcc0 @0x1a
0x0ca6…0cc2 at001b = EOL // 0xcc1 @0x1b
0x0ca6…0cc2 }
0x0cc2…0cdc a2ca 0830 EXEC OPENFIL(KTOIDX$,"R")
0x0cc2…0cdc LineComal80 {
0x0cc2…0cdc ptr = 0xa2ca // 0xcc2 @0x0
0x0cc2…0cdc lno = 0x033e // 0xcc4 @0x2
0x0cc2…0cdc at0004 = ╱9d╱ EXEC ╱ // 0xcc6 @0x4
0x0cc2…0cdc at0005 = ╱4f╱O╱ // 0xcc7 @0x5
0x0cc2…0cdc at0006 = ╱50╱P╱ // 0xcc8 @0x6
0x0cc2…0cdc at0007 = ╱45╱E╱ // 0xcc9 @0x7
0x0cc2…0cdc at0008 = ╱4e╱N╱ // 0xcca @0x8
0x0cc2…0cdc at0009 = ╱46╱F╱ // 0xccb @0x9
0x0cc2…0cdc at000a = ╱49╱I╱ // 0xccc @0xa
0x0cc2…0cdc at000b = ╱4c╱L╱ // 0xccd @0xb
0x0cc2…0cdc at000c = ╱ed╱(╱ // 0xcce @0xc
0x0cc2…0cdc at000d = ╱4b╱K╱ // 0xccf @0xd
0x0cc2…0cdc at000e = ╱54╱T╱ // 0xcd0 @0xe
0x0cc2…0cdc at000f = ╱4f╱O╱ // 0xcd1 @0xf
0x0cc2…0cdc at0010 = ╱49╱I╱ // 0xcd2 @0x10
0x0cc2…0cdc at0011 = ╱44╱D╱ // 0xcd3 @0x11
0x0cc2…0cdc at0012 = ╱58╱X╱ // 0xcd4 @0x12
0x0cc2…0cdc at0013 = ╱ef╱$╱ // 0xcd5 @0x13
0x0cc2…0cdc at0014 = ╱ec╱,╱ // 0xcd6 @0x14
0x0cc2…0cdc at0015 = ╱22╱"╱ // 0xcd7 @0x15
0x0cc2…0cdc at0016 = ╱52╱R╱ // 0xcd8 @0x16
0x0cc2…0cdc at0017 = ╱22╱"╱ // 0xcd9 @0x17
0x0cc2…0cdc at0018 = ╱ee╱)╱ // 0xcda @0x18
0x0cc2…0cdc at0019 = EOL // 0xcdb @0x19
0x0cc2…0cdc }
0x0cdc…0cf5 a2e3 0840 EXEC OPENFIL(KONTO$,"R")
0x0cdc…0cf5 LineComal80 {
0x0cdc…0cf5 ptr = 0xa2e3 // 0xcdc @0x0
0x0cdc…0cf5 lno = 0x0348 // 0xcde @0x2
0x0cdc…0cf5 at0004 = ╱9d╱ EXEC ╱ // 0xce0 @0x4
0x0cdc…0cf5 at0005 = ╱4f╱O╱ // 0xce1 @0x5
0x0cdc…0cf5 at0006 = ╱50╱P╱ // 0xce2 @0x6
0x0cdc…0cf5 at0007 = ╱45╱E╱ // 0xce3 @0x7
0x0cdc…0cf5 at0008 = ╱4e╱N╱ // 0xce4 @0x8
0x0cdc…0cf5 at0009 = ╱46╱F╱ // 0xce5 @0x9
0x0cdc…0cf5 at000a = ╱49╱I╱ // 0xce6 @0xa
0x0cdc…0cf5 at000b = ╱4c╱L╱ // 0xce7 @0xb
0x0cdc…0cf5 at000c = ╱ed╱(╱ // 0xce8 @0xc
0x0cdc…0cf5 at000d = ╱4b╱K╱ // 0xce9 @0xd
0x0cdc…0cf5 at000e = ╱4f╱O╱ // 0xcea @0xe
0x0cdc…0cf5 at000f = ╱4e╱N╱ // 0xceb @0xf
0x0cdc…0cf5 at0010 = ╱54╱T╱ // 0xcec @0x10
0x0cdc…0cf5 at0011 = ╱4f╱O╱ // 0xced @0x11
0x0cdc…0cf5 at0012 = ╱ef╱$╱ // 0xcee @0x12
0x0cdc…0cf5 at0013 = ╱ec╱,╱ // 0xcef @0x13
0x0cdc…0cf5 at0014 = ╱22╱"╱ // 0xcf0 @0x14
0x0cdc…0cf5 at0015 = ╱52╱R╱ // 0xcf1 @0x15
0x0cdc…0cf5 at0016 = ╱22╱"╱ // 0xcf2 @0x16
0x0cdc…0cf5 at0017 = ╱ee╱)╱ // 0xcf3 @0x17
0x0cdc…0cf5 at0018 = EOL // 0xcf4 @0x18
0x0cdc…0cf5 }
0x0cf5…0d02 a4e0 0850 ENDPROC INITIER
0x0cf5…0d02 LineComal80 {
0x0cf5…0d02 ptr = 0xa4e0 // 0xcf5 @0x0
0x0cf5…0d02 lno = 0x0352 // 0xcf7 @0x2
0x0cf5…0d02 at0004 = ╱9f╱ ENDPROC ╱ // 0xcf9 @0x4
0x0cf5…0d02 at0005 = ╱49╱I╱ // 0xcfa @0x5
0x0cf5…0d02 at0006 = ╱4e╱N╱ // 0xcfb @0x6
0x0cf5…0d02 at0007 = ╱49╱I╱ // 0xcfc @0x7
0x0cf5…0d02 at0008 = ╱54╱T╱ // 0xcfd @0x8
0x0cf5…0d02 at0009 = ╱49╱I╱ // 0xcfe @0x9
0x0cf5…0d02 at000a = ╱45╱E╱ // 0xcff @0xa
0x0cf5…0d02 at000b = ╱52╱R╱ // 0xd00 @0xb
0x0cf5…0d02 at000c = EOL // 0xd01 @0xc
0x0cf5…0d02 }
0x0d02…0d07 a2f5 1020
0x0d02…0d07 LineComal80 {
0x0d02…0d07 ptr = 0xa2f5 // 0xd02 @0x0
0x0d02…0d07 lno = 0x03fc // 0xd04 @0x2
0x0d02…0d07 at0004 = EOL // 0xd06 @0x4
0x0d02…0d07 }
0x0d07…0d15 a303 1030 PROC OPSUMER
0x0d07…0d15 LineComal80 {
0x0d07…0d15 ptr = 0xa303 // 0xd07 @0x0
0x0d07…0d15 lno = 0x0406 // 0xd09 @0x2
0x0d07…0d15 at0004 = ╱9e00╱ PROC ╱ // 0xd0b @0x4
0x0d07…0d15 at0006 = ╱4f╱O╱ // 0xd0d @0x6
0x0d07…0d15 at0007 = ╱50╱P╱ // 0xd0e @0x7
0x0d07…0d15 at0008 = ╱53╱S╱ // 0xd0f @0x8
0x0d07…0d15 at0009 = ╱55╱U╱ // 0xd10 @0x9
0x0d07…0d15 at000a = ╱4d╱M╱ // 0xd11 @0xa
0x0d07…0d15 at000b = ╱45╱E╱ // 0xd12 @0xb
0x0d07…0d15 at000c = ╱52╱R╱ // 0xd13 @0xc
0x0d07…0d15 at000d = EOL // 0xd14 @0xd
0x0d07…0d15 }
0x0d15…0d2d a31b 1040 EXEC SAMMENTÆL(OMSÆTN$)
0x0d15…0d2d LineComal80 {
0x0d15…0d2d ptr = 0xa31b // 0xd15 @0x0
0x0d15…0d2d lno = 0x0410 // 0xd17 @0x2
0x0d15…0d2d at0004 = ╱9d╱ EXEC ╱ // 0xd19 @0x4
0x0d15…0d2d at0005 = ╱53╱S╱ // 0xd1a @0x5
0x0d15…0d2d at0006 = ╱41╱A╱ // 0xd1b @0x6
0x0d15…0d2d at0007 = ╱4d╱M╱ // 0xd1c @0x7
0x0d15…0d2d at0008 = ╱4d╱M╱ // 0xd1d @0x8
0x0d15…0d2d at0009 = ╱45╱E╱ // 0xd1e @0x9
0x0d15…0d2d at000a = ╱4e╱N╱ // 0xd1f @0xa
0x0d15…0d2d at000b = ╱54╱T╱ // 0xd20 @0xb
0x0d15…0d2d at000c = ╱5b╱Æ╱ // 0xd21 @0xc
0x0d15…0d2d at000d = ╱4c╱L╱ // 0xd22 @0xd
0x0d15…0d2d at000e = ╱ed╱(╱ // 0xd23 @0xe
0x0d15…0d2d at000f = ╱4f╱O╱ // 0xd24 @0xf
0x0d15…0d2d at0010 = ╱4d╱M╱ // 0xd25 @0x10
0x0d15…0d2d at0011 = ╱53╱S╱ // 0xd26 @0x11
0x0d15…0d2d at0012 = ╱5b╱Æ╱ // 0xd27 @0x12
0x0d15…0d2d at0013 = ╱54╱T╱ // 0xd28 @0x13
0x0d15…0d2d at0014 = ╱4e╱N╱ // 0xd29 @0x14
0x0d15…0d2d at0015 = ╱ef╱$╱ // 0xd2a @0x15
0x0d15…0d2d at0016 = ╱ee╱)╱ // 0xd2b @0x16
0x0d15…0d2d at0017 = EOL // 0xd2c @0x17
0x0d15…0d2d }
0x0d2d…0d41 a32f 1050 LET S_OMSÆTN := SALDO
0x0d2d…0d41 LineComal80 {
0x0d2d…0d41 ptr = 0xa32f // 0xd2d @0x0
0x0d2d…0d41 lno = 0x041a // 0xd2f @0x2
0x0d2d…0d41 at0004 = ╱86╱ LET ╱ // 0xd31 @0x4
0x0d2d…0d41 at0005 = ╱53╱S╱ // 0xd32 @0x5
0x0d2d…0d41 at0006 = ╱5f╱_╱ // 0xd33 @0x6
0x0d2d…0d41 at0007 = ╱4f╱O╱ // 0xd34 @0x7
0x0d2d…0d41 at0008 = ╱4d╱M╱ // 0xd35 @0x8
0x0d2d…0d41 at0009 = ╱53╱S╱ // 0xd36 @0x9
0x0d2d…0d41 at000a = ╱5b╱Æ╱ // 0xd37 @0xa
0x0d2d…0d41 at000b = ╱54╱T╱ // 0xd38 @0xb
0x0d2d…0d41 at000c = ╱4e╱N╱ // 0xd39 @0xc
0x0d2d…0d41 at000d = ╱f0╱ := ╱ // 0xd3a @0xd
0x0d2d…0d41 at000e = ╱53╱S╱ // 0xd3b @0xe
0x0d2d…0d41 at000f = ╱41╱A╱ // 0xd3c @0xf
0x0d2d…0d41 at0010 = ╱4c╱L╱ // 0xd3d @0x10
0x0d2d…0d41 at0011 = ╱44╱D╱ // 0xd3e @0x11
0x0d2d…0d41 at0012 = ╱4f╱O╱ // 0xd3f @0x12
0x0d2d…0d41 at0013 = EOL // 0xd40 @0x13
0x0d2d…0d41 }
0x0d41…0d59 a347 1060 EXEC SAMMENTÆL(VAREFO$)
0x0d41…0d59 LineComal80 {
0x0d41…0d59 ptr = 0xa347 // 0xd41 @0x0
0x0d41…0d59 lno = 0x0424 // 0xd43 @0x2
0x0d41…0d59 at0004 = ╱9d╱ EXEC ╱ // 0xd45 @0x4
0x0d41…0d59 at0005 = ╱53╱S╱ // 0xd46 @0x5
0x0d41…0d59 at0006 = ╱41╱A╱ // 0xd47 @0x6
0x0d41…0d59 at0007 = ╱4d╱M╱ // 0xd48 @0x7
0x0d41…0d59 at0008 = ╱4d╱M╱ // 0xd49 @0x8
0x0d41…0d59 at0009 = ╱45╱E╱ // 0xd4a @0x9
0x0d41…0d59 at000a = ╱4e╱N╱ // 0xd4b @0xa
0x0d41…0d59 at000b = ╱54╱T╱ // 0xd4c @0xb
0x0d41…0d59 at000c = ╱5b╱Æ╱ // 0xd4d @0xc
0x0d41…0d59 at000d = ╱4c╱L╱ // 0xd4e @0xd
0x0d41…0d59 at000e = ╱ed╱(╱ // 0xd4f @0xe
0x0d41…0d59 at000f = ╱56╱V╱ // 0xd50 @0xf
0x0d41…0d59 at0010 = ╱41╱A╱ // 0xd51 @0x10
0x0d41…0d59 at0011 = ╱52╱R╱ // 0xd52 @0x11
0x0d41…0d59 at0012 = ╱45╱E╱ // 0xd53 @0x12
0x0d41…0d59 at0013 = ╱46╱F╱ // 0xd54 @0x13
0x0d41…0d59 at0014 = ╱4f╱O╱ // 0xd55 @0x14
0x0d41…0d59 at0015 = ╱ef╱$╱ // 0xd56 @0x15
0x0d41…0d59 at0016 = ╱ee╱)╱ // 0xd57 @0x16
0x0d41…0d59 at0017 = EOL // 0xd58 @0x17
0x0d41…0d59 }
0x0d59…0d6d a35b 1070 LET S_VAREFO := SALDO
0x0d59…0d6d LineComal80 {
0x0d59…0d6d ptr = 0xa35b // 0xd59 @0x0
0x0d59…0d6d lno = 0x042e // 0xd5b @0x2
0x0d59…0d6d at0004 = ╱86╱ LET ╱ // 0xd5d @0x4
0x0d59…0d6d at0005 = ╱53╱S╱ // 0xd5e @0x5
0x0d59…0d6d at0006 = ╱5f╱_╱ // 0xd5f @0x6
0x0d59…0d6d at0007 = ╱56╱V╱ // 0xd60 @0x7
0x0d59…0d6d at0008 = ╱41╱A╱ // 0xd61 @0x8
0x0d59…0d6d at0009 = ╱52╱R╱ // 0xd62 @0x9
0x0d59…0d6d at000a = ╱45╱E╱ // 0xd63 @0xa
0x0d59…0d6d at000b = ╱46╱F╱ // 0xd64 @0xb
0x0d59…0d6d at000c = ╱4f╱O╱ // 0xd65 @0xc
0x0d59…0d6d at000d = ╱f0╱ := ╱ // 0xd66 @0xd
0x0d59…0d6d at000e = ╱53╱S╱ // 0xd67 @0xe
0x0d59…0d6d at000f = ╱41╱A╱ // 0xd68 @0xf
0x0d59…0d6d at0010 = ╱4c╱L╱ // 0xd69 @0x10
0x0d59…0d6d at0011 = ╱44╱D╱ // 0xd6a @0x11
0x0d59…0d6d at0012 = ╱4f╱O╱ // 0xd6b @0x12
0x0d59…0d6d at0013 = EOL // 0xd6c @0x13
0x0d59…0d6d }
0x0d6d…0d85 a373 1080 EXEC SAMMENTÆL(KAPOMK$)
0x0d6d…0d85 LineComal80 {
0x0d6d…0d85 ptr = 0xa373 // 0xd6d @0x0
0x0d6d…0d85 lno = 0x0438 // 0xd6f @0x2
0x0d6d…0d85 at0004 = ╱9d╱ EXEC ╱ // 0xd71 @0x4
0x0d6d…0d85 at0005 = ╱53╱S╱ // 0xd72 @0x5
0x0d6d…0d85 at0006 = ╱41╱A╱ // 0xd73 @0x6
0x0d6d…0d85 at0007 = ╱4d╱M╱ // 0xd74 @0x7
0x0d6d…0d85 at0008 = ╱4d╱M╱ // 0xd75 @0x8
0x0d6d…0d85 at0009 = ╱45╱E╱ // 0xd76 @0x9
0x0d6d…0d85 at000a = ╱4e╱N╱ // 0xd77 @0xa
0x0d6d…0d85 at000b = ╱54╱T╱ // 0xd78 @0xb
0x0d6d…0d85 at000c = ╱5b╱Æ╱ // 0xd79 @0xc
0x0d6d…0d85 at000d = ╱4c╱L╱ // 0xd7a @0xd
0x0d6d…0d85 at000e = ╱ed╱(╱ // 0xd7b @0xe
0x0d6d…0d85 at000f = ╱4b╱K╱ // 0xd7c @0xf
0x0d6d…0d85 at0010 = ╱41╱A╱ // 0xd7d @0x10
0x0d6d…0d85 at0011 = ╱50╱P╱ // 0xd7e @0x11
0x0d6d…0d85 at0012 = ╱4f╱O╱ // 0xd7f @0x12
0x0d6d…0d85 at0013 = ╱4d╱M╱ // 0xd80 @0x13
0x0d6d…0d85 at0014 = ╱4b╱K╱ // 0xd81 @0x14
0x0d6d…0d85 at0015 = ╱ef╱$╱ // 0xd82 @0x15
0x0d6d…0d85 at0016 = ╱ee╱)╱ // 0xd83 @0x16
0x0d6d…0d85 at0017 = EOL // 0xd84 @0x17
0x0d6d…0d85 }
0x0d85…0d99 a387 1090 LET S_KAPOMK := SALDO
0x0d85…0d99 LineComal80 {
0x0d85…0d99 ptr = 0xa387 // 0xd85 @0x0
0x0d85…0d99 lno = 0x0442 // 0xd87 @0x2
0x0d85…0d99 at0004 = ╱86╱ LET ╱ // 0xd89 @0x4
0x0d85…0d99 at0005 = ╱53╱S╱ // 0xd8a @0x5
0x0d85…0d99 at0006 = ╱5f╱_╱ // 0xd8b @0x6
0x0d85…0d99 at0007 = ╱4b╱K╱ // 0xd8c @0x7
0x0d85…0d99 at0008 = ╱41╱A╱ // 0xd8d @0x8
0x0d85…0d99 at0009 = ╱50╱P╱ // 0xd8e @0x9
0x0d85…0d99 at000a = ╱4f╱O╱ // 0xd8f @0xa
0x0d85…0d99 at000b = ╱4d╱M╱ // 0xd90 @0xb
0x0d85…0d99 at000c = ╱4b╱K╱ // 0xd91 @0xc
0x0d85…0d99 at000d = ╱f0╱ := ╱ // 0xd92 @0xd
0x0d85…0d99 at000e = ╱53╱S╱ // 0xd93 @0xe
0x0d85…0d99 at000f = ╱41╱A╱ // 0xd94 @0xf
0x0d85…0d99 at0010 = ╱4c╱L╱ // 0xd95 @0x10
0x0d85…0d99 at0011 = ╱44╱D╱ // 0xd96 @0x11
0x0d85…0d99 at0012 = ╱4f╱O╱ // 0xd97 @0x12
0x0d85…0d99 at0013 = EOL // 0xd98 @0x13
0x0d85…0d99 }
0x0d99…0db1 a39f 1100 EXEC SAMMENTÆL(AFSKRI$)
0x0d99…0db1 LineComal80 {
0x0d99…0db1 ptr = 0xa39f // 0xd99 @0x0
0x0d99…0db1 lno = 0x044c // 0xd9b @0x2
0x0d99…0db1 at0004 = ╱9d╱ EXEC ╱ // 0xd9d @0x4
0x0d99…0db1 at0005 = ╱53╱S╱ // 0xd9e @0x5
0x0d99…0db1 at0006 = ╱41╱A╱ // 0xd9f @0x6
0x0d99…0db1 at0007 = ╱4d╱M╱ // 0xda0 @0x7
0x0d99…0db1 at0008 = ╱4d╱M╱ // 0xda1 @0x8
0x0d99…0db1 at0009 = ╱45╱E╱ // 0xda2 @0x9
0x0d99…0db1 at000a = ╱4e╱N╱ // 0xda3 @0xa
0x0d99…0db1 at000b = ╱54╱T╱ // 0xda4 @0xb
0x0d99…0db1 at000c = ╱5b╱Æ╱ // 0xda5 @0xc
0x0d99…0db1 at000d = ╱4c╱L╱ // 0xda6 @0xd
0x0d99…0db1 at000e = ╱ed╱(╱ // 0xda7 @0xe
0x0d99…0db1 at000f = ╱41╱A╱ // 0xda8 @0xf
0x0d99…0db1 at0010 = ╱46╱F╱ // 0xda9 @0x10
0x0d99…0db1 at0011 = ╱53╱S╱ // 0xdaa @0x11
0x0d99…0db1 at0012 = ╱4b╱K╱ // 0xdab @0x12
0x0d99…0db1 at0013 = ╱52╱R╱ // 0xdac @0x13
0x0d99…0db1 at0014 = ╱49╱I╱ // 0xdad @0x14
0x0d99…0db1 at0015 = ╱ef╱$╱ // 0xdae @0x15
0x0d99…0db1 at0016 = ╱ee╱)╱ // 0xdaf @0x16
0x0d99…0db1 at0017 = EOL // 0xdb0 @0x17
0x0d99…0db1 }
0x0db1…0dc5 a3b3 1110 LET S_AFSKRI := SALDO
0x0db1…0dc5 LineComal80 {
0x0db1…0dc5 ptr = 0xa3b3 // 0xdb1 @0x0
0x0db1…0dc5 lno = 0x0456 // 0xdb3 @0x2
0x0db1…0dc5 at0004 = ╱86╱ LET ╱ // 0xdb5 @0x4
0x0db1…0dc5 at0005 = ╱53╱S╱ // 0xdb6 @0x5
0x0db1…0dc5 at0006 = ╱5f╱_╱ // 0xdb7 @0x6
0x0db1…0dc5 at0007 = ╱41╱A╱ // 0xdb8 @0x7
0x0db1…0dc5 at0008 = ╱46╱F╱ // 0xdb9 @0x8
0x0db1…0dc5 at0009 = ╱53╱S╱ // 0xdba @0x9
0x0db1…0dc5 at000a = ╱4b╱K╱ // 0xdbb @0xa
0x0db1…0dc5 at000b = ╱52╱R╱ // 0xdbc @0xb
0x0db1…0dc5 at000c = ╱49╱I╱ // 0xdbd @0xc
0x0db1…0dc5 at000d = ╱f0╱ := ╱ // 0xdbe @0xd
0x0db1…0dc5 at000e = ╱53╱S╱ // 0xdbf @0xe
0x0db1…0dc5 at000f = ╱41╱A╱ // 0xdc0 @0xf
0x0db1…0dc5 at0010 = ╱4c╱L╱ // 0xdc1 @0x10
0x0db1…0dc5 at0011 = ╱44╱D╱ // 0xdc2 @0x11
0x0db1…0dc5 at0012 = ╱4f╱O╱ // 0xdc3 @0x12
0x0db1…0dc5 at0013 = EOL // 0xdc4 @0x13
0x0db1…0dc5 }
0x0dc5…0ddd a3cb 1120 EXEC SAMMENTÆL(RENTEO$)
0x0dc5…0ddd LineComal80 {
0x0dc5…0ddd ptr = 0xa3cb // 0xdc5 @0x0
0x0dc5…0ddd lno = 0x0460 // 0xdc7 @0x2
0x0dc5…0ddd at0004 = ╱9d╱ EXEC ╱ // 0xdc9 @0x4
0x0dc5…0ddd at0005 = ╱53╱S╱ // 0xdca @0x5
0x0dc5…0ddd at0006 = ╱41╱A╱ // 0xdcb @0x6
0x0dc5…0ddd at0007 = ╱4d╱M╱ // 0xdcc @0x7
0x0dc5…0ddd at0008 = ╱4d╱M╱ // 0xdcd @0x8
0x0dc5…0ddd at0009 = ╱45╱E╱ // 0xdce @0x9
0x0dc5…0ddd at000a = ╱4e╱N╱ // 0xdcf @0xa
0x0dc5…0ddd at000b = ╱54╱T╱ // 0xdd0 @0xb
0x0dc5…0ddd at000c = ╱5b╱Æ╱ // 0xdd1 @0xc
0x0dc5…0ddd at000d = ╱4c╱L╱ // 0xdd2 @0xd
0x0dc5…0ddd at000e = ╱ed╱(╱ // 0xdd3 @0xe
0x0dc5…0ddd at000f = ╱52╱R╱ // 0xdd4 @0xf
0x0dc5…0ddd at0010 = ╱45╱E╱ // 0xdd5 @0x10
0x0dc5…0ddd at0011 = ╱4e╱N╱ // 0xdd6 @0x11
0x0dc5…0ddd at0012 = ╱54╱T╱ // 0xdd7 @0x12
0x0dc5…0ddd at0013 = ╱45╱E╱ // 0xdd8 @0x13
0x0dc5…0ddd at0014 = ╱4f╱O╱ // 0xdd9 @0x14
0x0dc5…0ddd at0015 = ╱ef╱$╱ // 0xdda @0x15
0x0dc5…0ddd at0016 = ╱ee╱)╱ // 0xddb @0x16
0x0dc5…0ddd at0017 = EOL // 0xddc @0x17
0x0dc5…0ddd }
0x0ddd…0df1 a3df 1130 LET S_RENTEO := SALDO
0x0ddd…0df1 LineComal80 {
0x0ddd…0df1 ptr = 0xa3df // 0xddd @0x0
0x0ddd…0df1 lno = 0x046a // 0xddf @0x2
0x0ddd…0df1 at0004 = ╱86╱ LET ╱ // 0xde1 @0x4
0x0ddd…0df1 at0005 = ╱53╱S╱ // 0xde2 @0x5
0x0ddd…0df1 at0006 = ╱5f╱_╱ // 0xde3 @0x6
0x0ddd…0df1 at0007 = ╱52╱R╱ // 0xde4 @0x7
0x0ddd…0df1 at0008 = ╱45╱E╱ // 0xde5 @0x8
0x0ddd…0df1 at0009 = ╱4e╱N╱ // 0xde6 @0x9
0x0ddd…0df1 at000a = ╱54╱T╱ // 0xde7 @0xa
0x0ddd…0df1 at000b = ╱45╱E╱ // 0xde8 @0xb
0x0ddd…0df1 at000c = ╱4f╱O╱ // 0xde9 @0xc
0x0ddd…0df1 at000d = ╱f0╱ := ╱ // 0xdea @0xd
0x0ddd…0df1 at000e = ╱53╱S╱ // 0xdeb @0xe
0x0ddd…0df1 at000f = ╱41╱A╱ // 0xdec @0xf
0x0ddd…0df1 at0010 = ╱4c╱L╱ // 0xded @0x10
0x0ddd…0df1 at0011 = ╱44╱D╱ // 0xdee @0x11
0x0ddd…0df1 at0012 = ╱4f╱O╱ // 0xdef @0x12
0x0ddd…0df1 at0013 = EOL // 0xdf0 @0x13
0x0ddd…0df1 }
0x0df1…0e09 a3f7 1140 EXEC SAMMENTÆL(AKTIVE$)
0x0df1…0e09 LineComal80 {
0x0df1…0e09 ptr = 0xa3f7 // 0xdf1 @0x0
0x0df1…0e09 lno = 0x0474 // 0xdf3 @0x2
0x0df1…0e09 at0004 = ╱9d╱ EXEC ╱ // 0xdf5 @0x4
0x0df1…0e09 at0005 = ╱53╱S╱ // 0xdf6 @0x5
0x0df1…0e09 at0006 = ╱41╱A╱ // 0xdf7 @0x6
0x0df1…0e09 at0007 = ╱4d╱M╱ // 0xdf8 @0x7
0x0df1…0e09 at0008 = ╱4d╱M╱ // 0xdf9 @0x8
0x0df1…0e09 at0009 = ╱45╱E╱ // 0xdfa @0x9
0x0df1…0e09 at000a = ╱4e╱N╱ // 0xdfb @0xa
0x0df1…0e09 at000b = ╱54╱T╱ // 0xdfc @0xb
0x0df1…0e09 at000c = ╱5b╱Æ╱ // 0xdfd @0xc
0x0df1…0e09 at000d = ╱4c╱L╱ // 0xdfe @0xd
0x0df1…0e09 at000e = ╱ed╱(╱ // 0xdff @0xe
0x0df1…0e09 at000f = ╱41╱A╱ // 0xe00 @0xf
0x0df1…0e09 at0010 = ╱4b╱K╱ // 0xe01 @0x10
0x0df1…0e09 at0011 = ╱54╱T╱ // 0xe02 @0x11
0x0df1…0e09 at0012 = ╱49╱I╱ // 0xe03 @0x12
0x0df1…0e09 at0013 = ╱56╱V╱ // 0xe04 @0x13
0x0df1…0e09 at0014 = ╱45╱E╱ // 0xe05 @0x14
0x0df1…0e09 at0015 = ╱ef╱$╱ // 0xe06 @0x15
0x0df1…0e09 at0016 = ╱ee╱)╱ // 0xe07 @0x16
0x0df1…0e09 at0017 = EOL // 0xe08 @0x17
0x0df1…0e09 }
0x0e09…0e25 a413 1150 LET S_AKTIVE := SALDO * ( - 1)
0x0e09…0e25 LineComal80 {
0x0e09…0e25 ptr = 0xa413 // 0xe09 @0x0
0x0e09…0e25 lno = 0x047e // 0xe0b @0x2
0x0e09…0e25 at0004 = ╱86╱ LET ╱ // 0xe0d @0x4
0x0e09…0e25 at0005 = ╱53╱S╱ // 0xe0e @0x5
0x0e09…0e25 at0006 = ╱5f╱_╱ // 0xe0f @0x6
0x0e09…0e25 at0007 = ╱41╱A╱ // 0xe10 @0x7
0x0e09…0e25 at0008 = ╱4b╱K╱ // 0xe11 @0x8
0x0e09…0e25 at0009 = ╱54╱T╱ // 0xe12 @0x9
0x0e09…0e25 at000a = ╱49╱I╱ // 0xe13 @0xa
0x0e09…0e25 at000b = ╱56╱V╱ // 0xe14 @0xb
0x0e09…0e25 at000c = ╱45╱E╱ // 0xe15 @0xc
0x0e09…0e25 at000d = ╱f0╱ := ╱ // 0xe16 @0xd
0x0e09…0e25 at000e = ╱53╱S╱ // 0xe17 @0xe
0x0e09…0e25 at000f = ╱41╱A╱ // 0xe18 @0xf
0x0e09…0e25 at0010 = ╱4c╱L╱ // 0xe19 @0x10
0x0e09…0e25 at0011 = ╱44╱D╱ // 0xe1a @0x11
0x0e09…0e25 at0012 = ╱4f╱O╱ // 0xe1b @0x12
0x0e09…0e25 at0013 = ╱e7╱ * ╱ // 0xe1c @0x13
0x0e09…0e25 at0014 = ╱ed╱(╱ // 0xe1d @0x14
0x0e09…0e25 at0015 = ╱de╱ - ╱ // 0xe1e @0x15
0x0e09…0e25 at0016 = ╱31╱1╱ // 0xe1f @0x16
0x0e09…0e25 at0017 = ╱f20100╱ // 0xe20 @0x17
0x0e09…0e25 at001a = ╱ee╱)╱ // 0xe23 @0x1a
0x0e09…0e25 at001b = EOL // 0xe24 @0x1b
0x0e09…0e25 }
0x0e25…0e3d a42b 1160 EXEC SAMMENTÆL(EGENKA$)
0x0e25…0e3d LineComal80 {
0x0e25…0e3d ptr = 0xa42b // 0xe25 @0x0
0x0e25…0e3d lno = 0x0488 // 0xe27 @0x2
0x0e25…0e3d at0004 = ╱9d╱ EXEC ╱ // 0xe29 @0x4
0x0e25…0e3d at0005 = ╱53╱S╱ // 0xe2a @0x5
0x0e25…0e3d at0006 = ╱41╱A╱ // 0xe2b @0x6
0x0e25…0e3d at0007 = ╱4d╱M╱ // 0xe2c @0x7
0x0e25…0e3d at0008 = ╱4d╱M╱ // 0xe2d @0x8
0x0e25…0e3d at0009 = ╱45╱E╱ // 0xe2e @0x9
0x0e25…0e3d at000a = ╱4e╱N╱ // 0xe2f @0xa
0x0e25…0e3d at000b = ╱54╱T╱ // 0xe30 @0xb
0x0e25…0e3d at000c = ╱5b╱Æ╱ // 0xe31 @0xc
0x0e25…0e3d at000d = ╱4c╱L╱ // 0xe32 @0xd
0x0e25…0e3d at000e = ╱ed╱(╱ // 0xe33 @0xe
0x0e25…0e3d at000f = ╱45╱E╱ // 0xe34 @0xf
0x0e25…0e3d at0010 = ╱47╱G╱ // 0xe35 @0x10
0x0e25…0e3d at0011 = ╱45╱E╱ // 0xe36 @0x11
0x0e25…0e3d at0012 = ╱4e╱N╱ // 0xe37 @0x12
0x0e25…0e3d at0013 = ╱4b╱K╱ // 0xe38 @0x13
0x0e25…0e3d at0014 = ╱41╱A╱ // 0xe39 @0x14
0x0e25…0e3d at0015 = ╱ef╱$╱ // 0xe3a @0x15
0x0e25…0e3d at0016 = ╱ee╱)╱ // 0xe3b @0x16
0x0e25…0e3d at0017 = EOL // 0xe3c @0x17
0x0e25…0e3d }
0x0e3d…0e51 a43f 1170 LET S_EGENKA := SALDO
0x0e3d…0e51 LineComal80 {
0x0e3d…0e51 ptr = 0xa43f // 0xe3d @0x0
0x0e3d…0e51 lno = 0x0492 // 0xe3f @0x2
0x0e3d…0e51 at0004 = ╱86╱ LET ╱ // 0xe41 @0x4
0x0e3d…0e51 at0005 = ╱53╱S╱ // 0xe42 @0x5
0x0e3d…0e51 at0006 = ╱5f╱_╱ // 0xe43 @0x6
0x0e3d…0e51 at0007 = ╱45╱E╱ // 0xe44 @0x7
0x0e3d…0e51 at0008 = ╱47╱G╱ // 0xe45 @0x8
0x0e3d…0e51 at0009 = ╱45╱E╱ // 0xe46 @0x9
0x0e3d…0e51 at000a = ╱4e╱N╱ // 0xe47 @0xa
0x0e3d…0e51 at000b = ╱4b╱K╱ // 0xe48 @0xb
0x0e3d…0e51 at000c = ╱41╱A╱ // 0xe49 @0xc
0x0e3d…0e51 at000d = ╱f0╱ := ╱ // 0xe4a @0xd
0x0e3d…0e51 at000e = ╱53╱S╱ // 0xe4b @0xe
0x0e3d…0e51 at000f = ╱41╱A╱ // 0xe4c @0xf
0x0e3d…0e51 at0010 = ╱4c╱L╱ // 0xe4d @0x10
0x0e3d…0e51 at0011 = ╱44╱D╱ // 0xe4e @0x11
0x0e3d…0e51 at0012 = ╱4f╱O╱ // 0xe4f @0x12
0x0e3d…0e51 at0013 = EOL // 0xe50 @0x13
0x0e3d…0e51 }
0x0e51…0e69 a457 1180 EXEC SAMMENTÆL(VARELA$)
0x0e51…0e69 LineComal80 {
0x0e51…0e69 ptr = 0xa457 // 0xe51 @0x0
0x0e51…0e69 lno = 0x049c // 0xe53 @0x2
0x0e51…0e69 at0004 = ╱9d╱ EXEC ╱ // 0xe55 @0x4
0x0e51…0e69 at0005 = ╱53╱S╱ // 0xe56 @0x5
0x0e51…0e69 at0006 = ╱41╱A╱ // 0xe57 @0x6
0x0e51…0e69 at0007 = ╱4d╱M╱ // 0xe58 @0x7
0x0e51…0e69 at0008 = ╱4d╱M╱ // 0xe59 @0x8
0x0e51…0e69 at0009 = ╱45╱E╱ // 0xe5a @0x9
0x0e51…0e69 at000a = ╱4e╱N╱ // 0xe5b @0xa
0x0e51…0e69 at000b = ╱54╱T╱ // 0xe5c @0xb
0x0e51…0e69 at000c = ╱5b╱Æ╱ // 0xe5d @0xc
0x0e51…0e69 at000d = ╱4c╱L╱ // 0xe5e @0xd
0x0e51…0e69 at000e = ╱ed╱(╱ // 0xe5f @0xe
0x0e51…0e69 at000f = ╱56╱V╱ // 0xe60 @0xf
0x0e51…0e69 at0010 = ╱41╱A╱ // 0xe61 @0x10
0x0e51…0e69 at0011 = ╱52╱R╱ // 0xe62 @0x11
0x0e51…0e69 at0012 = ╱45╱E╱ // 0xe63 @0x12
0x0e51…0e69 at0013 = ╱4c╱L╱ // 0xe64 @0x13
0x0e51…0e69 at0014 = ╱41╱A╱ // 0xe65 @0x14
0x0e51…0e69 at0015 = ╱ef╱$╱ // 0xe66 @0x15
0x0e51…0e69 at0016 = ╱ee╱)╱ // 0xe67 @0x16
0x0e51…0e69 at0017 = EOL // 0xe68 @0x17
0x0e51…0e69 }
0x0e69…0e85 a473 1190 LET S_VARELA := SALDO * ( - 1)
0x0e69…0e85 LineComal80 {
0x0e69…0e85 ptr = 0xa473 // 0xe69 @0x0
0x0e69…0e85 lno = 0x04a6 // 0xe6b @0x2
0x0e69…0e85 at0004 = ╱86╱ LET ╱ // 0xe6d @0x4
0x0e69…0e85 at0005 = ╱53╱S╱ // 0xe6e @0x5
0x0e69…0e85 at0006 = ╱5f╱_╱ // 0xe6f @0x6
0x0e69…0e85 at0007 = ╱56╱V╱ // 0xe70 @0x7
0x0e69…0e85 at0008 = ╱41╱A╱ // 0xe71 @0x8
0x0e69…0e85 at0009 = ╱52╱R╱ // 0xe72 @0x9
0x0e69…0e85 at000a = ╱45╱E╱ // 0xe73 @0xa
0x0e69…0e85 at000b = ╱4c╱L╱ // 0xe74 @0xb
0x0e69…0e85 at000c = ╱41╱A╱ // 0xe75 @0xc
0x0e69…0e85 at000d = ╱f0╱ := ╱ // 0xe76 @0xd
0x0e69…0e85 at000e = ╱53╱S╱ // 0xe77 @0xe
0x0e69…0e85 at000f = ╱41╱A╱ // 0xe78 @0xf
0x0e69…0e85 at0010 = ╱4c╱L╱ // 0xe79 @0x10
0x0e69…0e85 at0011 = ╱44╱D╱ // 0xe7a @0x11
0x0e69…0e85 at0012 = ╱4f╱O╱ // 0xe7b @0x12
0x0e69…0e85 at0013 = ╱e7╱ * ╱ // 0xe7c @0x13
0x0e69…0e85 at0014 = ╱ed╱(╱ // 0xe7d @0x14
0x0e69…0e85 at0015 = ╱de╱ - ╱ // 0xe7e @0x15
0x0e69…0e85 at0016 = ╱31╱1╱ // 0xe7f @0x16
0x0e69…0e85 at0017 = ╱f20100╱ // 0xe80 @0x17
0x0e69…0e85 at001a = ╱ee╱)╱ // 0xe83 @0x1a
0x0e69…0e85 at001b = EOL // 0xe84 @0x1b
0x0e69…0e85 }
0x0e85…0e9d a48b 1200 EXEC SAMMENTÆL(DEBITO$)
0x0e85…0e9d LineComal80 {
0x0e85…0e9d ptr = 0xa48b // 0xe85 @0x0
0x0e85…0e9d lno = 0x04b0 // 0xe87 @0x2
0x0e85…0e9d at0004 = ╱9d╱ EXEC ╱ // 0xe89 @0x4
0x0e85…0e9d at0005 = ╱53╱S╱ // 0xe8a @0x5
0x0e85…0e9d at0006 = ╱41╱A╱ // 0xe8b @0x6
0x0e85…0e9d at0007 = ╱4d╱M╱ // 0xe8c @0x7
0x0e85…0e9d at0008 = ╱4d╱M╱ // 0xe8d @0x8
0x0e85…0e9d at0009 = ╱45╱E╱ // 0xe8e @0x9
0x0e85…0e9d at000a = ╱4e╱N╱ // 0xe8f @0xa
0x0e85…0e9d at000b = ╱54╱T╱ // 0xe90 @0xb
0x0e85…0e9d at000c = ╱5b╱Æ╱ // 0xe91 @0xc
0x0e85…0e9d at000d = ╱4c╱L╱ // 0xe92 @0xd
0x0e85…0e9d at000e = ╱ed╱(╱ // 0xe93 @0xe
0x0e85…0e9d at000f = ╱44╱D╱ // 0xe94 @0xf
0x0e85…0e9d at0010 = ╱45╱E╱ // 0xe95 @0x10
0x0e85…0e9d at0011 = ╱42╱B╱ // 0xe96 @0x11
0x0e85…0e9d at0012 = ╱49╱I╱ // 0xe97 @0x12
0x0e85…0e9d at0013 = ╱54╱T╱ // 0xe98 @0x13
0x0e85…0e9d at0014 = ╱4f╱O╱ // 0xe99 @0x14
0x0e85…0e9d at0015 = ╱ef╱$╱ // 0xe9a @0x15
0x0e85…0e9d at0016 = ╱ee╱)╱ // 0xe9b @0x16
0x0e85…0e9d at0017 = EOL // 0xe9c @0x17
0x0e85…0e9d }
0x0e9d…0eb9 a4a7 1210 LET S_DEBITO := SALDO * ( - 1)
0x0e9d…0eb9 LineComal80 {
0x0e9d…0eb9 ptr = 0xa4a7 // 0xe9d @0x0
0x0e9d…0eb9 lno = 0x04ba // 0xe9f @0x2
0x0e9d…0eb9 at0004 = ╱86╱ LET ╱ // 0xea1 @0x4
0x0e9d…0eb9 at0005 = ╱53╱S╱ // 0xea2 @0x5
0x0e9d…0eb9 at0006 = ╱5f╱_╱ // 0xea3 @0x6
0x0e9d…0eb9 at0007 = ╱44╱D╱ // 0xea4 @0x7
0x0e9d…0eb9 at0008 = ╱45╱E╱ // 0xea5 @0x8
0x0e9d…0eb9 at0009 = ╱42╱B╱ // 0xea6 @0x9
0x0e9d…0eb9 at000a = ╱49╱I╱ // 0xea7 @0xa
0x0e9d…0eb9 at000b = ╱54╱T╱ // 0xea8 @0xb
0x0e9d…0eb9 at000c = ╱4f╱O╱ // 0xea9 @0xc
0x0e9d…0eb9 at000d = ╱f0╱ := ╱ // 0xeaa @0xd
0x0e9d…0eb9 at000e = ╱53╱S╱ // 0xeab @0xe
0x0e9d…0eb9 at000f = ╱41╱A╱ // 0xeac @0xf
0x0e9d…0eb9 at0010 = ╱4c╱L╱ // 0xead @0x10
0x0e9d…0eb9 at0011 = ╱44╱D╱ // 0xeae @0x11
0x0e9d…0eb9 at0012 = ╱4f╱O╱ // 0xeaf @0x12
0x0e9d…0eb9 at0013 = ╱e7╱ * ╱ // 0xeb0 @0x13
0x0e9d…0eb9 at0014 = ╱ed╱(╱ // 0xeb1 @0x14
0x0e9d…0eb9 at0015 = ╱de╱ - ╱ // 0xeb2 @0x15
0x0e9d…0eb9 at0016 = ╱31╱1╱ // 0xeb3 @0x16
0x0e9d…0eb9 at0017 = ╱f20100╱ // 0xeb4 @0x17
0x0e9d…0eb9 at001a = ╱ee╱)╱ // 0xeb7 @0x1a
0x0e9d…0eb9 at001b = EOL // 0xeb8 @0x1b
0x0e9d…0eb9 }
0x0eb9…0ed1 a4bf 1220 EXEC SAMMENTÆL(KREDIT$)
0x0eb9…0ed1 LineComal80 {
0x0eb9…0ed1 ptr = 0xa4bf // 0xeb9 @0x0
0x0eb9…0ed1 lno = 0x04c4 // 0xebb @0x2
0x0eb9…0ed1 at0004 = ╱9d╱ EXEC ╱ // 0xebd @0x4
0x0eb9…0ed1 at0005 = ╱53╱S╱ // 0xebe @0x5
0x0eb9…0ed1 at0006 = ╱41╱A╱ // 0xebf @0x6
0x0eb9…0ed1 at0007 = ╱4d╱M╱ // 0xec0 @0x7
0x0eb9…0ed1 at0008 = ╱4d╱M╱ // 0xec1 @0x8
0x0eb9…0ed1 at0009 = ╱45╱E╱ // 0xec2 @0x9
0x0eb9…0ed1 at000a = ╱4e╱N╱ // 0xec3 @0xa
0x0eb9…0ed1 at000b = ╱54╱T╱ // 0xec4 @0xb
0x0eb9…0ed1 at000c = ╱5b╱Æ╱ // 0xec5 @0xc
0x0eb9…0ed1 at000d = ╱4c╱L╱ // 0xec6 @0xd
0x0eb9…0ed1 at000e = ╱ed╱(╱ // 0xec7 @0xe
0x0eb9…0ed1 at000f = ╱4b╱K╱ // 0xec8 @0xf
0x0eb9…0ed1 at0010 = ╱52╱R╱ // 0xec9 @0x10
0x0eb9…0ed1 at0011 = ╱45╱E╱ // 0xeca @0x11
0x0eb9…0ed1 at0012 = ╱44╱D╱ // 0xecb @0x12
0x0eb9…0ed1 at0013 = ╱49╱I╱ // 0xecc @0x13
0x0eb9…0ed1 at0014 = ╱54╱T╱ // 0xecd @0x14
0x0eb9…0ed1 at0015 = ╱ef╱$╱ // 0xece @0x15
0x0eb9…0ed1 at0016 = ╱ee╱)╱ // 0xecf @0x16
0x0eb9…0ed1 at0017 = EOL // 0xed0 @0x17
0x0eb9…0ed1 }
0x0ed1…0ee5 a4d3 1230 LET S_KREDIT := SALDO
0x0ed1…0ee5 LineComal80 {
0x0ed1…0ee5 ptr = 0xa4d3 // 0xed1 @0x0
0x0ed1…0ee5 lno = 0x04ce // 0xed3 @0x2
0x0ed1…0ee5 at0004 = ╱86╱ LET ╱ // 0xed5 @0x4
0x0ed1…0ee5 at0005 = ╱53╱S╱ // 0xed6 @0x5
0x0ed1…0ee5 at0006 = ╱5f╱_╱ // 0xed7 @0x6
0x0ed1…0ee5 at0007 = ╱4b╱K╱ // 0xed8 @0x7
0x0ed1…0ee5 at0008 = ╱52╱R╱ // 0xed9 @0x8
0x0ed1…0ee5 at0009 = ╱45╱E╱ // 0xeda @0x9
0x0ed1…0ee5 at000a = ╱44╱D╱ // 0xedb @0xa
0x0ed1…0ee5 at000b = ╱49╱I╱ // 0xedc @0xb
0x0ed1…0ee5 at000c = ╱54╱T╱ // 0xedd @0xc
0x0ed1…0ee5 at000d = ╱f0╱ := ╱ // 0xede @0xd
0x0ed1…0ee5 at000e = ╱53╱S╱ // 0xedf @0xe
0x0ed1…0ee5 at000f = ╱41╱A╱ // 0xee0 @0xf
0x0ed1…0ee5 at0010 = ╱4c╱L╱ // 0xee1 @0x10
0x0ed1…0ee5 at0011 = ╱44╱D╱ // 0xee2 @0x11
0x0ed1…0ee5 at0012 = ╱4f╱O╱ // 0xee3 @0x12
0x0ed1…0ee5 at0013 = EOL // 0xee4 @0x13
0x0ed1…0ee5 }
0x0ee5…0ef2 a4e0 1240 ENDPROC OPSUMER
0x0ee5…0ef2 LineComal80 {
0x0ee5…0ef2 ptr = 0xa4e0 // 0xee5 @0x0
0x0ee5…0ef2 lno = 0x04d8 // 0xee7 @0x2
0x0ee5…0ef2 at0004 = ╱9f╱ ENDPROC ╱ // 0xee9 @0x4
0x0ee5…0ef2 at0005 = ╱4f╱O╱ // 0xeea @0x5
0x0ee5…0ef2 at0006 = ╱50╱P╱ // 0xeeb @0x6
0x0ee5…0ef2 at0007 = ╱53╱S╱ // 0xeec @0x7
0x0ee5…0ef2 at0008 = ╱55╱U╱ // 0xeed @0x8
0x0ee5…0ef2 at0009 = ╱4d╱M╱ // 0xeee @0x9
0x0ee5…0ef2 at000a = ╱45╱E╱ // 0xeef @0xa
0x0ee5…0ef2 at000b = ╱52╱R╱ // 0xef0 @0xb
0x0ee5…0ef2 at000c = EOL // 0xef1 @0xc
0x0ee5…0ef2 }
0x0ef2…0ef7 a4e5 0860
0x0ef2…0ef7 LineComal80 {
0x0ef2…0ef7 ptr = 0xa4e5 // 0xef2 @0x0
0x0ef2…0ef7 lno = 0x035c // 0xef4 @0x2
0x0ef2…0ef7 at0004 = EOL // 0xef6 @0x4
0x0ef2…0ef7 }
0x0ef7…0f0a a4f8 0870 PROC TERMINAL_IDX
0x0ef7…0f0a LineComal80 {
0x0ef7…0f0a ptr = 0xa4f8 // 0xef7 @0x0
0x0ef7…0f0a lno = 0x0366 // 0xef9 @0x2
0x0ef7…0f0a at0004 = ╱9e05╱ PROC ╱ // 0xefb @0x4
0x0ef7…0f0a at0006 = ╱54╱T╱ // 0xefd @0x6
0x0ef7…0f0a at0007 = ╱45╱E╱ // 0xefe @0x7
0x0ef7…0f0a at0008 = ╱52╱R╱ // 0xeff @0x8
0x0ef7…0f0a at0009 = ╱4d╱M╱ // 0xf00 @0x9
0x0ef7…0f0a at000a = ╱49╱I╱ // 0xf01 @0xa
0x0ef7…0f0a at000b = ╱4e╱N╱ // 0xf02 @0xb
0x0ef7…0f0a at000c = ╱41╱A╱ // 0xf03 @0xc
0x0ef7…0f0a at000d = ╱4c╱L╱ // 0xf04 @0xd
0x0ef7…0f0a at000e = ╱5f╱_╱ // 0xf05 @0xe
0x0ef7…0f0a at000f = ╱49╱I╱ // 0xf06 @0xf
0x0ef7…0f0a at0010 = ╱44╱D╱ // 0xf07 @0x10
0x0ef7…0f0a at0011 = ╱58╱X╱ // 0xf08 @0x11
0x0ef7…0f0a at0012 = EOL // 0xf09 @0x12
0x0ef7…0f0a }
0x0f0a…0f24 (50,) a512 0880 LET PPAR := 5 ; RESRV := 0
0x0f0a…0f24 LineComal80 {
0x0f0a…0f24 ptr = 0xa512 // 0xf0a @0x0
0x0f0a…0f24 lno = 0x0370 // 0xf0c @0x2
0x0f0a…0f24 at0004 = ╱86╱ LET ╱ // 0xf0e @0x4
0x0f0a…0f24 at0005 = ╱50╱P╱ // 0xf0f @0x5
0x0f0a…0f24 at0006 = ╱50╱P╱ // 0xf10 @0x6
0x0f0a…0f24 at0007 = ╱41╱A╱ // 0xf11 @0x7
0x0f0a…0f24 at0008 = ╱52╱R╱ // 0xf12 @0x8
0x0f0a…0f24 at0009 = ╱f0╱ := ╱ // 0xf13 @0x9
0x0f0a…0f24 at000a = ╱35╱5╱ // 0xf14 @0xa
0x0f0a…0f24 at000b = ╱f20500╱ // 0xf15 @0xb
0x0f0a…0f24 at000e = ╱ea╱ ; ╱ // 0xf18 @0xe
0x0f0a…0f24 at000f = ╱52╱R╱ // 0xf19 @0xf
0x0f0a…0f24 at0010 = ╱45╱E╱ // 0xf1a @0x10
0x0f0a…0f24 at0011 = ╱53╱S╱ // 0xf1b @0x11
0x0f0a…0f24 at0012 = ╱52╱R╱ // 0xf1c @0x12
0x0f0a…0f24 at0013 = ╱56╱V╱ // 0xf1d @0x13
0x0f0a…0f24 at0014 = ╱f0╱ := ╱ // 0xf1e @0x14
0x0f0a…0f24 at0015 = ╱30╱0╱ // 0xf1f @0x15
0x0f0a…0f24 at0016 = ╱f20000╱ // 0xf20 @0x16
0x0f0a…0f24 at0019 = EOL // 0xf23 @0x19
0x0f0a…0f24 }
0x0f24…0f36 a524 0890 CALL :PRES"
0x0f24…0f36 LineComal80 {
0x0f24…0f36 ptr = 0xa524 // 0xf24 @0x0
0x0f24…0f36 lno = 0x037a // 0xf26 @0x2
0x0f24…0f36 at0004 = ╱ad00╱ CALL ╱ // 0xf28 @0x4
0x0f24…0f36 at0006 = ╱fe22444445╱ // 0xf2a @0x6
0x0f24…0f36 at000b = ╱3a╱:╱ // 0xf2f @0xb
0x0f24…0f36 at000c = ╱50╱P╱ // 0xf30 @0xc
0x0f24…0f36 at000d = ╱52╱R╱ // 0xf31 @0xd
0x0f24…0f36 at000e = ╱45╱E╱ // 0xf32 @0xe
0x0f24…0f36 at000f = ╱53╱S╱ // 0xf33 @0xf
0x0f24…0f36 at0010 = ╱22╱"╱ // 0xf34 @0x10
0x0f24…0f36 at0011 = EOL // 0xf35 @0x11
0x0f24…0f36 }
0x0f36…0f5f a54d 0900 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0x0f36…0f5f LineComal80 {
0x0f36…0f5f ptr = 0xa54d // 0xf36 @0x0
0x0f36…0f5f lno = 0x0384 // 0xf38 @0x2
0x0f36…0f5f at0004 = ╱a9╱ GET ╱ // 0xf3a @0x4
0x0f36…0f5f at0005 = ╱53╱S╱ // 0xf3b @0x5
0x0f36…0f5f at0006 = ╱59╱Y╱ // 0xf3c @0x6
0x0f36…0f5f at0007 = ╱53╱S╱ // 0xf3d @0x7
0x0f36…0f5f at0008 = ╱50╱P╱ // 0xf3e @0x8
0x0f36…0f5f at0009 = ╱41╱A╱ // 0xf3f @0x9
0x0f36…0f5f at000a = ╱52╱R╱ // 0xf40 @0xa
0x0f36…0f5f at000b = ╱41╱A╱ // 0xf41 @0xb
0x0f36…0f5f at000c = ╱ef╱$╱ // 0xf42 @0xc
0x0f36…0f5f at000d = ╱ec╱,╱ // 0xf43 @0xd
0x0f36…0f5f at000e = ╱31╱1╱ // 0xf44 @0xe
0x0f36…0f5f at000f = ╱f20100╱ // 0xf45 @0xf
0x0f36…0f5f at0012 = ╱e5╱ + ╱ // 0xf48 @0x12
0x0f36…0f5f at0013 = ╱52╱R╱ // 0xf49 @0x13
0x0f36…0f5f at0014 = ╱45╱E╱ // 0xf4a @0x14
0x0f36…0f5f at0015 = ╱53╱S╱ // 0xf4b @0x15
0x0f36…0f5f at0016 = ╱52╱R╱ // 0xf4c @0x16
0x0f36…0f5f at0017 = ╱56╱V╱ // 0xf4d @0x17
0x0f36…0f5f at0018 = ╱f1╱ : ╱ // 0xf4e @0x18
0x0f36…0f5f at0019 = ╱44╱D╱ // 0xf4f @0x19
0x0f36…0f5f at001a = ╱41╱A╱ // 0xf50 @0x1a
0x0f36…0f5f at001b = ╱54╱T╱ // 0xf51 @0x1b
0x0f36…0f5f at001c = ╱41╱A╱ // 0xf52 @0x1c
0x0f36…0f5f at001d = ╱46╱F╱ // 0xf53 @0x1d
0x0f36…0f5f at001e = ╱4c╱L╱ // 0xf54 @0x1e
0x0f36…0f5f at001f = ╱ef╱$╱ // 0xf55 @0x1f
0x0f36…0f5f at0020 = ╱ec╱,╱ // 0xf56 @0x20
0x0f36…0f5f at0021 = ╱54╱T╱ // 0xf57 @0x21
0x0f36…0f5f at0022 = ╱5f╱_╱ // 0xf58 @0x22
0x0f36…0f5f at0023 = ╱4b╱K╱ // 0xf59 @0x23
0x0f36…0f5f at0024 = ╱4f╱O╱ // 0xf5a @0x24
0x0f36…0f5f at0025 = ╱44╱D╱ // 0xf5b @0x25
0x0f36…0f5f at0026 = ╱45╱E╱ // 0xf5c @0x26
0x0f36…0f5f at0027 = ╱ef╱$╱ // 0xf5d @0x27
0x0f36…0f5f at0028 = EOL // 0xf5e @0x28
0x0f36…0f5f }
0x0f5f…0f71 a55f 0910 ENDPROC TERMINAL_IDX
0x0f5f…0f71 LineComal80 {
0x0f5f…0f71 ptr = 0xa55f // 0xf5f @0x0
0x0f5f…0f71 lno = 0x038e // 0xf61 @0x2
0x0f5f…0f71 at0004 = ╱9f╱ ENDPROC ╱ // 0xf63 @0x4
0x0f5f…0f71 at0005 = ╱54╱T╱ // 0xf64 @0x5
0x0f5f…0f71 at0006 = ╱45╱E╱ // 0xf65 @0x6
0x0f5f…0f71 at0007 = ╱52╱R╱ // 0xf66 @0x7
0x0f5f…0f71 at0008 = ╱4d╱M╱ // 0xf67 @0x8
0x0f5f…0f71 at0009 = ╱49╱I╱ // 0xf68 @0x9
0x0f5f…0f71 at000a = ╱4e╱N╱ // 0xf69 @0xa
0x0f5f…0f71 at000b = ╱41╱A╱ // 0xf6a @0xb
0x0f5f…0f71 at000c = ╱4c╱L╱ // 0xf6b @0xc
0x0f5f…0f71 at000d = ╱5f╱_╱ // 0xf6c @0xd
0x0f5f…0f71 at000e = ╱49╱I╱ // 0xf6d @0xe
0x0f5f…0f71 at000f = ╱44╱D╱ // 0xf6e @0xf
0x0f5f…0f71 at0010 = ╱58╱X╱ // 0xf6f @0x10
0x0f5f…0f71 at0011 = EOL // 0xf70 @0x11
0x0f5f…0f71 }
0x0f71…0f76 a564 0920
0x0f71…0f76 LineComal80 {
0x0f71…0f76 ptr = 0xa564 // 0xf71 @0x0
0x0f71…0f76 lno = 0x0398 // 0xf73 @0x2
0x0f71…0f76 at0004 = EOL // 0xf75 @0x4
0x0f71…0f76 }
0x0f76…0f89 a577 0930 PROC LÆS_KONTO(P)
0x0f76…0f89 LineComal80 {
0x0f76…0f89 ptr = 0xa577 // 0xf76 @0x0
0x0f76…0f89 lno = 0x03a2 // 0xf78 @0x2
0x0f76…0f89 at0004 = ╱9e06╱ PROC ╱ // 0xf7a @0x4
0x0f76…0f89 at0006 = ╱4c╱L╱ // 0xf7c @0x6
0x0f76…0f89 at0007 = ╱5b╱Æ╱ // 0xf7d @0x7
0x0f76…0f89 at0008 = ╱53╱S╱ // 0xf7e @0x8
0x0f76…0f89 at0009 = ╱5f╱_╱ // 0xf7f @0x9
0x0f76…0f89 at000a = ╱4b╱K╱ // 0xf80 @0xa
0x0f76…0f89 at000b = ╱4f╱O╱ // 0xf81 @0xb
0x0f76…0f89 at000c = ╱4e╱N╱ // 0xf82 @0xc
0x0f76…0f89 at000d = ╱54╱T╱ // 0xf83 @0xd
0x0f76…0f89 at000e = ╱4f╱O╱ // 0xf84 @0xe
0x0f76…0f89 at000f = ╱ed╱(╱ // 0xf85 @0xf
0x0f76…0f89 at0010 = ╱50╱P╱ // 0xf86 @0x10
0x0f76…0f89 at0011 = ╱ee╱)╱ // 0xf87 @0x11
0x0f76…0f89 at0012 = EOL // 0xf88 @0x12
0x0f76…0f89 }
0x0f89…0fce a5bc 0940 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0x0f89…0fce LineComal80 {
0x0f89…0fce ptr = 0xa5bc // 0xf89 @0x0
0x0f89…0fce lno = 0x03ac // 0xf8b @0x2
0x0f89…0fce at0004 = ╱a9╱ GET ╱ // 0xf8d @0x4
0x0f89…0fce at0005 = ╱4b╱K╱ // 0xf8e @0x5
0x0f89…0fce at0006 = ╱4f╱O╱ // 0xf8f @0x6
0x0f89…0fce at0007 = ╱4e╱N╱ // 0xf90 @0x7
0x0f89…0fce at0008 = ╱54╱T╱ // 0xf91 @0x8
0x0f89…0fce at0009 = ╱4f╱O╱ // 0xf92 @0x9
0x0f89…0fce at000a = ╱ef╱$╱ // 0xf93 @0xa
0x0f89…0fce at000b = ╱ec╱,╱ // 0xf94 @0xb
0x0f89…0fce at000c = ╱50╱P╱ // 0xf95 @0xc
0x0f89…0fce at000d = ╱f1╱ : ╱ // 0xf96 @0xd
0x0f89…0fce at000e = ╱4b╱K╱ // 0xf97 @0xe
0x0f89…0fce at000f = ╱54╱T╱ // 0xf98 @0xf
0x0f89…0fce at0010 = ╱4f╱O╱ // 0xf99 @0x10
0x0f89…0fce at0011 = ╱5f╱_╱ // 0xf9a @0x11
0x0f89…0fce at0012 = ╱54╱T╱ // 0xf9b @0x12
0x0f89…0fce at0013 = ╱59╱Y╱ // 0xf9c @0x13
0x0f89…0fce at0014 = ╱50╱P╱ // 0xf9d @0x14
0x0f89…0fce at0015 = ╱45╱E╱ // 0xf9e @0x15
0x0f89…0fce at0016 = ╱ef╱$╱ // 0xf9f @0x16
0x0f89…0fce at0017 = ╱ec╱,╱ // 0xfa0 @0x17
0x0f89…0fce at0018 = ╱4b╱K╱ // 0xfa1 @0x18
0x0f89…0fce at0019 = ╱54╱T╱ // 0xfa2 @0x19
0x0f89…0fce at001a = ╱4f╱O╱ // 0xfa3 @0x1a
0x0f89…0fce at001b = ╱5f╱_╱ // 0xfa4 @0x1b
0x0f89…0fce at001c = ╱4e╱N╱ // 0xfa5 @0x1c
0x0f89…0fce at001d = ╱41╱A╱ // 0xfa6 @0x1d
0x0f89…0fce at001e = ╱56╱V╱ // 0xfa7 @0x1e
0x0f89…0fce at001f = ╱4e╱N╱ // 0xfa8 @0x1f
0x0f89…0fce at0020 = ╱ef╱$╱ // 0xfa9 @0x20
0x0f89…0fce at0021 = ╱ec╱,╱ // 0xfaa @0x21
0x0f89…0fce at0022 = ╱4b╱K╱ // 0xfab @0x22
0x0f89…0fce at0023 = ╱54╱T╱ // 0xfac @0x23
0x0f89…0fce at0024 = ╱4f╱O╱ // 0xfad @0x24
0x0f89…0fce at0025 = ╱5f╱_╱ // 0xfae @0x25
0x0f89…0fce at0026 = ╱50╱P╱ // 0xfaf @0x26
0x0f89…0fce at0027 = ╱52╱R╱ // 0xfb0 @0x27
0x0f89…0fce at0028 = ╱49╱I╱ // 0xfb1 @0x28
0x0f89…0fce at0029 = ╱4d╱M╱ // 0xfb2 @0x29
0x0f89…0fce at002a = ╱4f╱O╱ // 0xfb3 @0x2a
0x0f89…0fce at002b = ╱ec╱,╱ // 0xfb4 @0x2b
0x0f89…0fce at002c = ╱4b╱K╱ // 0xfb5 @0x2c
0x0f89…0fce at002d = ╱54╱T╱ // 0xfb6 @0x2d
0x0f89…0fce at002e = ╱4f╱O╱ // 0xfb7 @0x2e
0x0f89…0fce at002f = ╱5f╱_╱ // 0xfb8 @0x2f
0x0f89…0fce at0030 = ╱55╱U╱ // 0xfb9 @0x30
0x0f89…0fce at0031 = ╱4c╱L╱ // 0xfba @0x31
0x0f89…0fce at0032 = ╱54╱T╱ // 0xfbb @0x32
0x0f89…0fce at0033 = ╱49╱I╱ // 0xfbc @0x33
0x0f89…0fce at0034 = ╱4d╱M╱ // 0xfbd @0x34
0x0f89…0fce at0035 = ╱4f╱O╱ // 0xfbe @0x35
0x0f89…0fce at0036 = ╱ec╱,╱ // 0xfbf @0x36
0x0f89…0fce at0037 = ╱4b╱K╱ // 0xfc0 @0x37
0x0f89…0fce at0038 = ╱54╱T╱ // 0xfc1 @0x38
0x0f89…0fce at0039 = ╱4f╱O╱ // 0xfc2 @0x39
0x0f89…0fce at003a = ╱5f╱_╱ // 0xfc3 @0x3a
0x0f89…0fce at003b = ╱46╱F╱ // 0xfc4 @0x3b
0x0f89…0fce at003c = ╱50╱P╱ // 0xfc5 @0x3c
0x0f89…0fce at003d = ╱ec╱,╱ // 0xfc6 @0x3d
0x0f89…0fce at003e = ╱4b╱K╱ // 0xfc7 @0x3e
0x0f89…0fce at003f = ╱54╱T╱ // 0xfc8 @0x3f
0x0f89…0fce at0040 = ╱4f╱O╱ // 0xfc9 @0x40
0x0f89…0fce at0041 = ╱5f╱_╱ // 0xfca @0x41
0x0f89…0fce at0042 = ╱53╱S╱ // 0xfcb @0x42
0x0f89…0fce at0043 = ╱50╱P╱ // 0xfcc @0x43
0x0f89…0fce at0044 = EOL // 0xfcd @0x44
0x0f89…0fce }
0x0fce…0fdd a5cb 0950 ENDPROC LÆS_KONTO
0x0fce…0fdd LineComal80 {
0x0fce…0fdd ptr = 0xa5cb // 0xfce @0x0
0x0fce…0fdd lno = 0x03b6 // 0xfd0 @0x2
0x0fce…0fdd at0004 = ╱9f╱ ENDPROC ╱ // 0xfd2 @0x4
0x0fce…0fdd at0005 = ╱4c╱L╱ // 0xfd3 @0x5
0x0fce…0fdd at0006 = ╱5b╱Æ╱ // 0xfd4 @0x6
0x0fce…0fdd at0007 = ╱53╱S╱ // 0xfd5 @0x7
0x0fce…0fdd at0008 = ╱5f╱_╱ // 0xfd6 @0x8
0x0fce…0fdd at0009 = ╱4b╱K╱ // 0xfd7 @0x9
0x0fce…0fdd at000a = ╱4f╱O╱ // 0xfd8 @0xa
0x0fce…0fdd at000b = ╱4e╱N╱ // 0xfd9 @0xb
0x0fce…0fdd at000c = ╱54╱T╱ // 0xfda @0xc
0x0fce…0fdd at000d = ╱4f╱O╱ // 0xfdb @0xd
0x0fce…0fdd at000e = EOL // 0xfdc @0xe
0x0fce…0fdd }
0x0fdd…0fe2 a5d0 0960
0x0fdd…0fe2 LineComal80 {
0x0fdd…0fe2 ptr = 0xa5d0 // 0xfdd @0x0
0x0fdd…0fe2 lno = 0x03c0 // 0xfdf @0x2
0x0fdd…0fe2 at0004 = EOL // 0xfe1 @0x4
0x0fdd…0fe2 }
0x0fe2…0ffd a5eb 0970 PROC OPENFIL(FNAVN$,WAY$)
0x0fe2…0ffd LineComal80 {
0x0fe2…0ffd ptr = 0xa5eb // 0xfe2 @0x0
0x0fe2…0ffd lno = 0x03ca // 0xfe4 @0x2
0x0fe2…0ffd at0004 = ╱9e07╱ PROC ╱ // 0xfe6 @0x4
0x0fe2…0ffd at0006 = ╱4f╱O╱ // 0xfe8 @0x6
0x0fe2…0ffd at0007 = ╱50╱P╱ // 0xfe9 @0x7
0x0fe2…0ffd at0008 = ╱45╱E╱ // 0xfea @0x8
0x0fe2…0ffd at0009 = ╱4e╱N╱ // 0xfeb @0x9
0x0fe2…0ffd at000a = ╱46╱F╱ // 0xfec @0xa
0x0fe2…0ffd at000b = ╱49╱I╱ // 0xfed @0xb
0x0fe2…0ffd at000c = ╱4c╱L╱ // 0xfee @0xc
0x0fe2…0ffd at000d = ╱ed╱(╱ // 0xfef @0xd
0x0fe2…0ffd at000e = ╱46╱F╱ // 0xff0 @0xe
0x0fe2…0ffd at000f = ╱4e╱N╱ // 0xff1 @0xf
0x0fe2…0ffd at0010 = ╱41╱A╱ // 0xff2 @0x10
0x0fe2…0ffd at0011 = ╱56╱V╱ // 0xff3 @0x11
0x0fe2…0ffd at0012 = ╱4e╱N╱ // 0xff4 @0x12
0x0fe2…0ffd at0013 = ╱ef╱$╱ // 0xff5 @0x13
0x0fe2…0ffd at0014 = ╱ec╱,╱ // 0xff6 @0x14
0x0fe2…0ffd at0015 = ╱57╱W╱ // 0xff7 @0x15
0x0fe2…0ffd at0016 = ╱41╱A╱ // 0xff8 @0x16
0x0fe2…0ffd at0017 = ╱59╱Y╱ // 0xff9 @0x17
0x0fe2…0ffd at0018 = ╱ef╱$╱ // 0xffa @0x18
0x0fe2…0ffd at0019 = ╱ee╱)╱ // 0xffb @0x19
0x0fe2…0ffd at001a = EOL // 0xffc @0x1a
0x0fe2…0ffd }
0x0ffd…1004 a5f2 0980 REPEAT
0x0ffd…1004 LineComal80 {
0x0ffd…1004 ptr = 0xa5f2 // 0xffd @0x0
0x0ffd…1004 lno = 0x03d4 // 0xfff @0x2
0x0ffd…1004 at0004 = ╱9708╱ REPEAT ╱ // 0x1001 @0x4
0x0ffd…1004 at0006 = EOL // 0x1003 @0x6
0x0ffd…1004 }
0x1004…101d a60b 0990 IF AY$ = "W" OR WAY$ = "w" THEN
0x1004…101d LineComal80 {
0x1004…101d ptr = 0xa60b // 0x1004 @0x0
0x1004…101d lno = 0x03de // 0x1006 @0x2
0x1004…101d at0004 = ╱9b0957╱ IF ╱ // 0x1008 @0x4
0x1004…101d at0007 = ╱41╱A╱ // 0x100b @0x7
0x1004…101d at0008 = ╱59╱Y╱ // 0x100c @0x8
0x1004…101d at0009 = ╱ef╱$╱ // 0x100d @0x9
0x1004…101d at000a = ╱df╱ = ╱ // 0x100e @0xa
0x1004…101d at000b = ╱22╱"╱ // 0x100f @0xb
0x1004…101d at000c = ╱57╱W╱ // 0x1010 @0xc
0x1004…101d at000d = ╱22╱"╱ // 0x1011 @0xd
0x1004…101d at000e = ╱d8╱ OR ╱ // 0x1012 @0xe
0x1004…101d at000f = ╱57╱W╱ // 0x1013 @0xf
0x1004…101d at0010 = ╱41╱A╱ // 0x1014 @0x10
0x1004…101d at0011 = ╱59╱Y╱ // 0x1015 @0x11
0x1004…101d at0012 = ╱ef╱$╱ // 0x1016 @0x12
0x1004…101d at0013 = ╱df╱ = ╱ // 0x1017 @0x13
0x1004…101d at0014 = ╱22╱"╱ // 0x1018 @0x14
0x1004…101d at0015 = ╱77╱w╱ // 0x1019 @0x15
0x1004…101d at0016 = ╱22╱"╱ // 0x101a @0x16
0x1004…101d at0017 = ╱b5╱ THEN ╱ // 0x101b @0x17
0x1004…101d at0018 = EOL // 0x101c @0x18
0x1004…101d }
0x101d…102b a619 1000 OPEN FNAVN$,W
0x101d…102b LineComal80 {
0x101d…102b ptr = 0xa619 // 0x101d @0x0
0x101d…102b lno = 0x03e8 // 0x101f @0x2
0x101d…102b at0004 = ╱a7╱ OPEN ╱ // 0x1021 @0x4
0x101d…102b at0005 = ╱46╱F╱ // 0x1022 @0x5
0x101d…102b at0006 = ╱4e╱N╱ // 0x1023 @0x6
0x101d…102b at0007 = ╱41╱A╱ // 0x1024 @0x7
0x101d…102b at0008 = ╱56╱V╱ // 0x1025 @0x8
0x101d…102b at0009 = ╱4e╱N╱ // 0x1026 @0x9
0x101d…102b at000a = ╱ef╱$╱ // 0x1027 @0xa
0x101d…102b at000b = ╱ec╱,╱ // 0x1028 @0xb
0x101d…102b at000c = ╱57╱W╱ // 0x1029 @0xc
0x101d…102b at000d = EOL // 0x102a @0xd
0x101d…102b }
0x102b…1032 a620 1010 ELSE
0x102b…1032 LineComal80 {
0x102b…1032 ptr = 0xa620 // 0x102b @0x0
0x102b…1032 lno = 0x03f2 // 0x102d @0x2
0x102b…1032 at0004 = ╱9a0a╱ ELSE ╱ // 0x102f @0x4
0x102b…1032 at0006 = EOL // 0x1031 @0x6
0x102b…1032 }
0x1032…1040 a62e 1020 OPEN FNAVN$,R
0x1032…1040 LineComal80 {
0x1032…1040 ptr = 0xa62e // 0x1032 @0x0
0x1032…1040 lno = 0x03fc // 0x1034 @0x2
0x1032…1040 at0004 = ╱a7╱ OPEN ╱ // 0x1036 @0x4
0x1032…1040 at0005 = ╱46╱F╱ // 0x1037 @0x5
0x1032…1040 at0006 = ╱4e╱N╱ // 0x1038 @0x6
0x1032…1040 at0007 = ╱41╱A╱ // 0x1039 @0x7
0x1032…1040 at0008 = ╱56╱V╱ // 0x103a @0x8
0x1032…1040 at0009 = ╱4e╱N╱ // 0x103b @0x9
0x1032…1040 at000a = ╱ef╱$╱ // 0x103c @0xa
0x1032…1040 at000b = ╱ec╱,╱ // 0x103d @0xb
0x1032…1040 at000c = ╱52╱R╱ // 0x103e @0xc
0x1032…1040 at000d = EOL // 0x103f @0xd
0x1032…1040 }
0x1040…1046 a634 1030 ENDIF
0x1040…1046 LineComal80 {
0x1040…1046 ptr = 0xa634 // 0x1040 @0x0
0x1040…1046 lno = 0x0406 // 0x1042 @0x2
0x1040…1046 at0004 = ╱9c╱ ENDIF ╱ // 0x1044 @0x4
0x1040…1046 at0005 = EOL // 0x1045 @0x5
0x1040…1046 }
0x1046…1057 a645 1040 IF (FNAVN$) THEN
0x1046…1057 LineComal80 {
0x1046…1057 ptr = 0xa645 // 0x1046 @0x0
0x1046…1057 lno = 0x0410 // 0x1048 @0x2
0x1046…1057 at0004 = ╱9b0bcd╱ IF ╱ // 0x104a @0x4
0x1046…1057 at0007 = ╱ed╱(╱ // 0x104d @0x7
0x1046…1057 at0008 = ╱46╱F╱ // 0x104e @0x8
0x1046…1057 at0009 = ╱4e╱N╱ // 0x104f @0x9
0x1046…1057 at000a = ╱41╱A╱ // 0x1050 @0xa
0x1046…1057 at000b = ╱56╱V╱ // 0x1051 @0xb
0x1046…1057 at000c = ╱4e╱N╱ // 0x1052 @0xc
0x1046…1057 at000d = ╱ef╱$╱ // 0x1053 @0xd
0x1046…1057 at000e = ╱ee╱)╱ // 0x1054 @0xe
0x1046…1057 at000f = ╱b5╱ THEN ╱ // 0x1055 @0xf
0x1046…1057 at0010 = EOL // 0x1056 @0x10
0x1046…1057 }
0x1057…106f a65d 1050 PRINT "<SC0123>" ; CHR$ (7)
0x1057…106f LineComal80 {
0x1057…106f ptr = 0xa65d // 0x1057 @0x0
0x1057…106f lno = 0x041a // 0x1059 @0x2
0x1057…106f at0004 = ╱92╱ PRINT ╱ // 0x105b @0x4
0x1057…106f at0005 = ╱22╱"╱ // 0x105c @0x5
0x1057…106f at0006 = ╱3c╱<╱ // 0x105d @0x6
0x1057…106f at0007 = ╱53╱S╱ // 0x105e @0x7
0x1057…106f at0008 = ╱43╱C╱ // 0x105f @0x8
0x1057…106f at0009 = ╱30╱0╱ // 0x1060 @0x9
0x1057…106f at000a = ╱31╱1╱ // 0x1061 @0xa
0x1057…106f at000b = ╱32╱2╱ // 0x1062 @0xb
0x1057…106f at000c = ╱33╱3╱ // 0x1063 @0xc
0x1057…106f at000d = ╱3e╱>╱ // 0x1064 @0xd
0x1057…106f at000e = ╱22╱"╱ // 0x1065 @0xe
0x1057…106f at000f = ╱ea╱ ; ╱ // 0x1066 @0xf
0x1057…106f at0010 = ╱d0╱ CHR$ ╱ // 0x1067 @0x10
0x1057…106f at0011 = ╱ed╱(╱ // 0x1068 @0x11
0x1057…106f at0012 = ╱37╱7╱ // 0x1069 @0x12
0x1057…106f at0013 = ╱f20700╱ // 0x106a @0x13
0x1057…106f at0016 = ╱ee╱)╱ // 0x106d @0x16
0x1057…106f at0017 = EOL // 0x106e @0x17
0x1057…106f }
0x106f…1085 a673 1060 IF (FNAVN$) = 6 THEN
0x106f…1085 LineComal80 {
0x106f…1085 ptr = 0xa673 // 0x106f @0x0
0x106f…1085 lno = 0x0424 // 0x1071 @0x2
0x106f…1085 at0004 = ╱9b0ccd╱ IF ╱ // 0x1073 @0x4
0x106f…1085 at0007 = ╱ed╱(╱ // 0x1076 @0x7
0x106f…1085 at0008 = ╱46╱F╱ // 0x1077 @0x8
0x106f…1085 at0009 = ╱4e╱N╱ // 0x1078 @0x9
0x106f…1085 at000a = ╱41╱A╱ // 0x1079 @0xa
0x106f…1085 at000b = ╱56╱V╱ // 0x107a @0xb
0x106f…1085 at000c = ╱4e╱N╱ // 0x107b @0xc
0x106f…1085 at000d = ╱ef╱$╱ // 0x107c @0xd
0x106f…1085 at000e = ╱ee╱)╱ // 0x107d @0xe
0x106f…1085 at000f = ╱df╱ = ╱ // 0x107e @0xf
0x106f…1085 at0010 = ╱36╱6╱ // 0x107f @0x10
0x106f…1085 at0011 = ╱f20600╱ // 0x1080 @0x11
0x106f…1085 at0014 = ╱b5╱ THEN ╱ // 0x1083 @0x14
0x106f…1085 at0015 = EOL // 0x1084 @0x15
0x106f…1085 }
0x1085…10ca a6b8 1070 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
0x1085…10ca LineComal80 {
0x1085…10ca ptr = 0xa6b8 // 0x1085 @0x0
0x1085…10ca lno = 0x042e // 0x1087 @0x2
0x1085…10ca at0004 = ╱92╱ PRINT ╱ // 0x1089 @0x4
0x1085…10ca at0005 = ╱22╱"╱ // 0x108a @0x5
0x1085…10ca at0006 = ╱3c╱<╱ // 0x108b @0x6
0x1085…10ca at0007 = ╱53╱S╱ // 0x108c @0x7
0x1085…10ca at0008 = ╱43╱C╱ // 0x108d @0x8
0x1085…10ca at0009 = ╱31╱1╱ // 0x108e @0x9
0x1085…10ca at000a = ╱36╱6╱ // 0x108f @0xa
0x1085…10ca at000b = ╱30╱0╱ // 0x1090 @0xb
0x1085…10ca at000c = ╱32╱2╱ // 0x1091 @0xc
0x1085…10ca at000d = ╱3e╱>╱ // 0x1092 @0xd
0x1085…10ca at000e = ╱2a╱*╱ // 0x1093 @0xe
0x1085…10ca at000f = ╱2a╱*╱ // 0x1094 @0xf
0x1085…10ca at0010 = ╱2a╱*╱ // 0x1095 @0x10
0x1085…10ca at0011 = ╱20╱…╱ // 0x1096 @0x11
0x1085…10ca at0012 = ╱46╱F╱ // 0x1097 @0x12
0x1085…10ca at0013 = ╱65╱e╱ // 0x1098 @0x13
0x1085…10ca at0014 = ╱6a╱j╱ // 0x1099 @0x14
0x1085…10ca at0015 = ╱6c╱l╱ // 0x109a @0x15
0x1085…10ca at0016 = ╱20╱…╱ // 0x109b @0x16
0x1085…10ca at0017 = ╱6e╱n╱ // 0x109c @0x17
0x1085…10ca at0018 = ╱72╱r╱ // 0x109d @0x18
0x1085…10ca at0019 = ╱2e╱.╱ // 0x109e @0x19
0x1085…10ca at001a = ╱20╱…╱ // 0x109f @0x1a
0x1085…10ca at001b = ╱36╱6╱ // 0x10a0 @0x1b
0x1085…10ca at001c = ╱20╱…╱ // 0x10a1 @0x1c
0x1085…10ca at001d = ╱2d╱-╱ // 0x10a2 @0x1d
0x1085…10ca at001e = ╱20╱…╱ // 0x10a3 @0x1e
0x1085…10ca at001f = ╱69╱i╱ // 0x10a4 @0x1f
0x1085…10ca at0020 = ╱6e╱n╱ // 0x10a5 @0x20
0x1085…10ca at0021 = ╱64╱d╱ // 0x10a6 @0x21
0x1085…10ca at0022 = ╱73╱s╱ // 0x10a7 @0x22
0x1085…10ca at0023 = ╱7b╱æ╱ // 0x10a8 @0x23
0x1085…10ca at0024 = ╱74╱t╱ // 0x10a9 @0x24
0x1085…10ca at0025 = ╱20╱…╱ // 0x10aa @0x25
0x1085…10ca at0026 = ╱64╱d╱ // 0x10ab @0x26
0x1085…10ca at0027 = ╱69╱i╱ // 0x10ac @0x27
0x1085…10ca at0028 = ╱73╱s╱ // 0x10ad @0x28
0x1085…10ca at0029 = ╱6b╱k╱ // 0x10ae @0x29
0x1085…10ca at002a = ╱65╱e╱ // 0x10af @0x2a
0x1085…10ca at002b = ╱74╱t╱ // 0x10b0 @0x2b
0x1085…10ca at002c = ╱74╱t╱ // 0x10b1 @0x2c
0x1085…10ca at002d = ╱65╱e╱ // 0x10b2 @0x2d
0x1085…10ca at002e = ╱20╱…╱ // 0x10b3 @0x2e
0x1085…10ca at002f = ╱6f╱o╱ // 0x10b4 @0x2f
0x1085…10ca at0030 = ╱67╱g╱ // 0x10b5 @0x30
0x1085…10ca at0031 = ╱20╱…╱ // 0x10b6 @0x31
0x1085…10ca at0032 = ╱74╱t╱ // 0x10b7 @0x32
0x1085…10ca at0033 = ╱72╱r╱ // 0x10b8 @0x33
0x1085…10ca at0034 = ╱79╱y╱ // 0x10b9 @0x34
0x1085…10ca at0035 = ╱6b╱k╱ // 0x10ba @0x35
0x1085…10ca at0036 = ╱20╱…╱ // 0x10bb @0x36
0x1085…10ca at0037 = ╱3c╱<╱ // 0x10bc @0x37
0x1085…10ca at0038 = ╱52╱R╱ // 0x10bd @0x38
0x1085…10ca at0039 = ╱45╱E╱ // 0x10be @0x39
0x1085…10ca at003a = ╱54╱T╱ // 0x10bf @0x3a
0x1085…10ca at003b = ╱55╱U╱ // 0x10c0 @0x3b
0x1085…10ca at003c = ╱52╱R╱ // 0x10c1 @0x3c
0x1085…10ca at003d = ╱4e╱N╱ // 0x10c2 @0x3d
0x1085…10ca at003e = ╱3e╱>╱ // 0x10c3 @0x3e
0x1085…10ca at003f = ╱20╱…╱ // 0x10c4 @0x3f
0x1085…10ca at0040 = ╱2a╱*╱ // 0x10c5 @0x40
0x1085…10ca at0041 = ╱2a╱*╱ // 0x10c6 @0x41
0x1085…10ca at0042 = ╱2a╱*╱ // 0x10c7 @0x42
0x1085…10ca at0043 = ╱22╱"╱ // 0x10c8 @0x43
0x1085…10ca at0044 = EOL // 0x10c9 @0x44
0x1085…10ca }
0x10ca…10d8 a6c6 1080 INPUT "" : SVAR$
0x10ca…10d8 LineComal80 {
0x10ca…10d8 ptr = 0xa6c6 // 0x10ca @0x0
0x10ca…10d8 lno = 0x0438 // 0x10cc @0x2
0x10ca…10d8 at0004 = ╱91╱ INPUT ╱ // 0x10ce @0x4
0x10ca…10d8 at0005 = ╱22╱"╱ // 0x10cf @0x5
0x10ca…10d8 at0006 = ╱22╱"╱ // 0x10d0 @0x6
0x10ca…10d8 at0007 = ╱f1╱ : ╱ // 0x10d1 @0x7
0x10ca…10d8 at0008 = ╱53╱S╱ // 0x10d2 @0x8
0x10ca…10d8 at0009 = ╱56╱V╱ // 0x10d3 @0x9
0x10ca…10d8 at000a = ╱41╱A╱ // 0x10d4 @0xa
0x10ca…10d8 at000b = ╱52╱R╱ // 0x10d5 @0xb
0x10ca…10d8 at000c = ╱ef╱$╱ // 0x10d6 @0xc
0x10ca…10d8 at000d = EOL // 0x10d7 @0xd
0x10ca…10d8 }
0x10d8…10df (56,) a6cd 1090 ELSE
0x10d8…10df LineComal80 {
0x10d8…10df ptr = 0xa6cd // 0x10d8 @0x0
0x10d8…10df lno = 0x0442 // 0x10da @0x2
0x10d8…10df at0004 = ╱9a0d╱ ELSE ╱ // 0x10dc @0x4
0x10d8…10df at0006 = EOL // 0x10de @0x6
0x10d8…10df }
0x10df…1120 a70e 1100 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
0x10df…1120 LineComal80 {
0x10df…1120 ptr = 0xa70e // 0x10df @0x0
0x10df…1120 lno = 0x044c // 0x10e1 @0x2
0x10df…1120 at0004 = ╱92╱ PRINT ╱ // 0x10e3 @0x4
0x10df…1120 at0005 = ╱22╱"╱ // 0x10e4 @0x5
0x10df…1120 at0006 = ╱3c╱<╱ // 0x10e5 @0x6
0x10df…1120 at0007 = ╱53╱S╱ // 0x10e6 @0x7
0x10df…1120 at0008 = ╱43╱C╱ // 0x10e7 @0x8
0x10df…1120 at0009 = ╱31╱1╱ // 0x10e8 @0x9
0x10df…1120 at000a = ╱38╱8╱ // 0x10e9 @0xa
0x10df…1120 at000b = ╱30╱0╱ // 0x10ea @0xb
0x10df…1120 at000c = ╱32╱2╱ // 0x10eb @0xc
0x10df…1120 at000d = ╱3e╱>╱ // 0x10ec @0xd
0x10df…1120 at000e = ╱2a╱*╱ // 0x10ed @0xe
0x10df…1120 at000f = ╱2a╱*╱ // 0x10ee @0xf
0x10df…1120 at0010 = ╱2a╱*╱ // 0x10ef @0x10
0x10df…1120 at0011 = ╱20╱…╱ // 0x10f0 @0x11
0x10df…1120 at0012 = ╱46╱F╱ // 0x10f1 @0x12
0x10df…1120 at0013 = ╱65╱e╱ // 0x10f2 @0x13
0x10df…1120 at0014 = ╱6a╱j╱ // 0x10f3 @0x14
0x10df…1120 at0015 = ╱6c╱l╱ // 0x10f4 @0x15
0x10df…1120 at0016 = ╱20╱…╱ // 0x10f5 @0x16
0x10df…1120 at0017 = ╱6e╱n╱ // 0x10f6 @0x17
0x10df…1120 at0018 = ╱72╱r╱ // 0x10f7 @0x18
0x10df…1120 at0019 = ╱2e╱.╱ // 0x10f8 @0x19
0x10df…1120 at001a = ╱20╱…╱ // 0x10f9 @0x1a
0x10df…1120 at001b = ╱22╱"╱ // 0x10fa @0x1b
0x10df…1120 at001c = ╱ea╱ ; ╱ // 0x10fb @0x1c
0x10df…1120 at001d = ╱d0╱ CHR$ ╱ // 0x10fc @0x1d
0x10df…1120 at001e = ╱ed╱(╱ // 0x10fd @0x1e
0x10df…1120 at001f = ╱cd╱ // 0x10fe @0x1f
0x10df…1120 at0020 = ╱ed╱(╱ // 0x10ff @0x20
0x10df…1120 at0021 = ╱46╱F╱ // 0x1100 @0x21
0x10df…1120 at0022 = ╱4e╱N╱ // 0x1101 @0x22
0x10df…1120 at0023 = ╱41╱A╱ // 0x1102 @0x23
0x10df…1120 at0024 = ╱56╱V╱ // 0x1103 @0x24
0x10df…1120 at0025 = ╱4e╱N╱ // 0x1104 @0x25
0x10df…1120 at0026 = ╱ef╱$╱ // 0x1105 @0x26
0x10df…1120 at0027 = ╱ee╱)╱ // 0x1106 @0x27
0x10df…1120 at0028 = ╱ec╱,╱ // 0x1107 @0x28
0x10df…1120 at0029 = ╱32╱2╱ // 0x1108 @0x29
0x10df…1120 at002a = ╱f20200╱ // 0x1109 @0x2a
0x10df…1120 at002d = ╱ee╱)╱ // 0x110c @0x2d
0x10df…1120 at002e = ╱ea╱ ; ╱ // 0x110d @0x2e
0x10df…1120 at002f = ╱22╱"╱ // 0x110e @0x2f
0x10df…1120 at0030 = ╱20╱…╱ // 0x110f @0x30
0x10df…1120 at0031 = ╱76╱v╱ // 0x1110 @0x31
0x10df…1120 at0032 = ╱65╱e╱ // 0x1111 @0x32
0x10df…1120 at0033 = ╱64╱d╱ // 0x1112 @0x33
0x10df…1120 at0034 = ╱20╱…╱ // 0x1113 @0x34
0x10df…1120 at0035 = ╱7d╱å╱ // 0x1114 @0x35
0x10df…1120 at0036 = ╱62╱b╱ // 0x1115 @0x36
0x10df…1120 at0037 = ╱6e╱n╱ // 0x1116 @0x37
0x10df…1120 at0038 = ╱69╱i╱ // 0x1117 @0x38
0x10df…1120 at0039 = ╱6e╱n╱ // 0x1118 @0x39
0x10df…1120 at003a = ╱67╱g╱ // 0x1119 @0x3a
0x10df…1120 at003b = ╱20╱…╱ // 0x111a @0x3b
0x10df…1120 at003c = ╱61╱a╱ // 0x111b @0x3c
0x10df…1120 at003d = ╱66╱f╱ // 0x111c @0x3d
0x10df…1120 at003e = ╱20╱…╱ // 0x111d @0x3e
0x10df…1120 at003f = ╱22╱"╱ // 0x111e @0x3f
0x10df…1120 at0040 = EOL // 0x111f @0x40
0x10df…1120 }
0x1120…1139 a727 1110 PRINT "<S>" ; FNAVN$ ; " ***"
0x1120…1139 LineComal80 {
0x1120…1139 ptr = 0xa727 // 0x1120 @0x0
0x1120…1139 lno = 0x0456 // 0x1122 @0x2
0x1120…1139 at0004 = ╱92╱ PRINT ╱ // 0x1124 @0x4
0x1120…1139 at0005 = ╱22╱"╱ // 0x1125 @0x5
0x1120…1139 at0006 = ╱3c╱<╱ // 0x1126 @0x6
0x1120…1139 at0007 = ╱53╱S╱ // 0x1127 @0x7
0x1120…1139 at0008 = ╱3e╱>╱ // 0x1128 @0x8
0x1120…1139 at0009 = ╱22╱"╱ // 0x1129 @0x9
0x1120…1139 at000a = ╱ea╱ ; ╱ // 0x112a @0xa
0x1120…1139 at000b = ╱46╱F╱ // 0x112b @0xb
0x1120…1139 at000c = ╱4e╱N╱ // 0x112c @0xc
0x1120…1139 at000d = ╱41╱A╱ // 0x112d @0xd
0x1120…1139 at000e = ╱56╱V╱ // 0x112e @0xe
0x1120…1139 at000f = ╱4e╱N╱ // 0x112f @0xf
0x1120…1139 at0010 = ╱ef╱$╱ // 0x1130 @0x10
0x1120…1139 at0011 = ╱ea╱ ; ╱ // 0x1131 @0x11
0x1120…1139 at0012 = ╱22╱"╱ // 0x1132 @0x12
0x1120…1139 at0013 = ╱20╱…╱ // 0x1133 @0x13
0x1120…1139 at0014 = ╱2a╱*╱ // 0x1134 @0x14
0x1120…1139 at0015 = ╱2a╱*╱ // 0x1135 @0x15
0x1120…1139 at0016 = ╱2a╱*╱ // 0x1136 @0x16
0x1120…1139 at0017 = ╱22╱"╱ // 0x1137 @0x17
0x1120…1139 at0018 = EOL // 0x1138 @0x18
0x1120…1139 }
0x1139…1147 a735 1120 INPUT "" : SVAR$
0x1139…1147 LineComal80 {
0x1139…1147 ptr = 0xa735 // 0x1139 @0x0
0x1139…1147 lno = 0x0460 // 0x113b @0x2
0x1139…1147 at0004 = ╱91╱ INPUT ╱ // 0x113d @0x4
0x1139…1147 at0005 = ╱22╱"╱ // 0x113e @0x5
0x1139…1147 at0006 = ╱22╱"╱ // 0x113f @0x6
0x1139…1147 at0007 = ╱f1╱ : ╱ // 0x1140 @0x7
0x1139…1147 at0008 = ╱53╱S╱ // 0x1141 @0x8
0x1139…1147 at0009 = ╱56╱V╱ // 0x1142 @0x9
0x1139…1147 at000a = ╱41╱A╱ // 0x1143 @0xa
0x1139…1147 at000b = ╱52╱R╱ // 0x1144 @0xb
0x1139…1147 at000c = ╱ef╱$╱ // 0x1145 @0xc
0x1139…1147 at000d = EOL // 0x1146 @0xd
0x1139…1147 }
0x1147…115b a749 1130 PRINT "<C0102>" ; SPC$
0x1147…115b LineComal80 {
0x1147…115b ptr = 0xa749 // 0x1147 @0x0
0x1147…115b lno = 0x046a // 0x1149 @0x2
0x1147…115b at0004 = ╱92╱ PRINT ╱ // 0x114b @0x4
0x1147…115b at0005 = ╱22╱"╱ // 0x114c @0x5
0x1147…115b at0006 = ╱3c╱<╱ // 0x114d @0x6
0x1147…115b at0007 = ╱43╱C╱ // 0x114e @0x7
0x1147…115b at0008 = ╱30╱0╱ // 0x114f @0x8
0x1147…115b at0009 = ╱31╱1╱ // 0x1150 @0x9
0x1147…115b at000a = ╱30╱0╱ // 0x1151 @0xa
0x1147…115b at000b = ╱32╱2╱ // 0x1152 @0xb
0x1147…115b at000c = ╱3e╱>╱ // 0x1153 @0xc
0x1147…115b at000d = ╱22╱"╱ // 0x1154 @0xd
0x1147…115b at000e = ╱ea╱ ; ╱ // 0x1155 @0xe
0x1147…115b at000f = ╱53╱S╱ // 0x1156 @0xf
0x1147…115b at0010 = ╱50╱P╱ // 0x1157 @0x10
0x1147…115b at0011 = ╱43╱C╱ // 0x1158 @0x11
0x1147…115b at0012 = ╱ef╱$╱ // 0x1159 @0x12
0x1147…115b at0013 = EOL // 0x115a @0x13
0x1147…115b }
0x115b…1161 a74f 1140 ENDIF
0x115b…1161 LineComal80 {
0x115b…1161 ptr = 0xa74f // 0x115b @0x0
0x115b…1161 lno = 0x0474 // 0x115d @0x2
0x115b…1161 at0004 = ╱9c╱ ENDIF ╱ // 0x115f @0x4
0x115b…1161 at0005 = EOL // 0x1160 @0x5
0x115b…1161 }
0x1161…1167 a755 1150 ENDIF
0x1161…1167 LineComal80 {
0x1161…1167 ptr = 0xa755 // 0x1161 @0x0
0x1161…1167 lno = 0x047e // 0x1163 @0x2
0x1161…1167 at0004 = ╱9c╱ ENDIF ╱ // 0x1165 @0x4
0x1161…1167 at0005 = EOL // 0x1166 @0x5
0x1161…1167 }
0x1167…1177 a765 1160 UNTIL NOT ╱cd╱ (FNAVN$)
0x1167…1177 LineComal80 {
0x1167…1177 ptr = 0xa765 // 0x1167 @0x0
0x1167…1177 lno = 0x0488 // 0x1169 @0x2
0x1167…1177 at0004 = ╱98╱ UNTIL ╱ // 0x116b @0x4
0x1167…1177 at0005 = ╱d7╱ NOT ╱ // 0x116c @0x5
0x1167…1177 at0006 = ╱cd╱ // 0x116d @0x6
0x1167…1177 at0007 = ╱ed╱(╱ // 0x116e @0x7
0x1167…1177 at0008 = ╱46╱F╱ // 0x116f @0x8
0x1167…1177 at0009 = ╱4e╱N╱ // 0x1170 @0x9
0x1167…1177 at000a = ╱41╱A╱ // 0x1171 @0xa
0x1167…1177 at000b = ╱56╱V╱ // 0x1172 @0xb
0x1167…1177 at000c = ╱4e╱N╱ // 0x1173 @0xc
0x1167…1177 at000d = ╱ef╱$╱ // 0x1174 @0xd
0x1167…1177 at000e = ╱ee╱)╱ // 0x1175 @0xe
0x1167…1177 at000f = EOL // 0x1176 @0xf
0x1167…1177 }
0x1177…1184 a772 1170 ENDPROC OPENFIL
0x1177…1184 LineComal80 {
0x1177…1184 ptr = 0xa772 // 0x1177 @0x0
0x1177…1184 lno = 0x0492 // 0x1179 @0x2
0x1177…1184 at0004 = ╱9f╱ ENDPROC ╱ // 0x117b @0x4
0x1177…1184 at0005 = ╱4f╱O╱ // 0x117c @0x5
0x1177…1184 at0006 = ╱50╱P╱ // 0x117d @0x6
0x1177…1184 at0007 = ╱45╱E╱ // 0x117e @0x7
0x1177…1184 at0008 = ╱4e╱N╱ // 0x117f @0x8
0x1177…1184 at0009 = ╱46╱F╱ // 0x1180 @0x9
0x1177…1184 at000a = ╱49╱I╱ // 0x1181 @0xa
0x1177…1184 at000b = ╱4c╱L╱ // 0x1182 @0xb
0x1177…1184 at000c = EOL // 0x1183 @0xc
0x1177…1184 }
0x1184…1189 a777 1180
0x1184…1189 LineComal80 {
0x1184…1189 ptr = 0xa777 // 0x1184 @0x0
0x1184…1189 lno = 0x049c // 0x1186 @0x2
0x1184…1189 at0004 = EOL // 0x1188 @0x4
0x1184…1189 }
0x1189…11a1 a78f 1190 PROC OVERSKRIFT(ST$,L)
0x1189…11a1 LineComal80 {
0x1189…11a1 ptr = 0xa78f // 0x1189 @0x0
0x1189…11a1 lno = 0x04a6 // 0x118b @0x2
0x1189…11a1 at0004 = ╱9e0e╱ PROC ╱ // 0x118d @0x4
0x1189…11a1 at0006 = ╱4f╱O╱ // 0x118f @0x6
0x1189…11a1 at0007 = ╱56╱V╱ // 0x1190 @0x7
0x1189…11a1 at0008 = ╱45╱E╱ // 0x1191 @0x8
0x1189…11a1 at0009 = ╱52╱R╱ // 0x1192 @0x9
0x1189…11a1 at000a = ╱53╱S╱ // 0x1193 @0xa
0x1189…11a1 at000b = ╱4b╱K╱ // 0x1194 @0xb
0x1189…11a1 at000c = ╱52╱R╱ // 0x1195 @0xc
0x1189…11a1 at000d = ╱49╱I╱ // 0x1196 @0xd
0x1189…11a1 at000e = ╱46╱F╱ // 0x1197 @0xe
0x1189…11a1 at000f = ╱54╱T╱ // 0x1198 @0xf
0x1189…11a1 at0010 = ╱ed╱(╱ // 0x1199 @0x10
0x1189…11a1 at0011 = ╱53╱S╱ // 0x119a @0x11
0x1189…11a1 at0012 = ╱54╱T╱ // 0x119b @0x12
0x1189…11a1 at0013 = ╱ef╱$╱ // 0x119c @0x13
0x1189…11a1 at0014 = ╱ec╱,╱ // 0x119d @0x14
0x1189…11a1 at0015 = ╱4c╱L╱ // 0x119e @0x15
0x1189…11a1 at0016 = ╱ee╱)╱ // 0x119f @0x16
0x1189…11a1 at0017 = EOL // 0x11a0 @0x17
0x1189…11a1 }
0x11a1…11c7 a7b5 1200 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0x11a1…11c7 LineComal80 {
0x11a1…11c7 ptr = 0xa7b5 // 0x11a1 @0x0
0x11a1…11c7 lno = 0x04b0 // 0x11a3 @0x2
0x11a1…11c7 at0004 = ╱92╱ PRINT ╱ // 0x11a5 @0x4
0x11a1…11c7 at0005 = ╱22╱"╱ // 0x11a6 @0x5
0x11a1…11c7 at0006 = ╱3c╱<╱ // 0x11a7 @0x6
0x11a1…11c7 at0007 = ╱58╱X╱ // 0x11a8 @0x7
0x11a1…11c7 at0008 = ╱43╱C╱ // 0x11a9 @0x8
0x11a1…11c7 at0009 = ╱30╱0╱ // 0x11aa @0x9
0x11a1…11c7 at000a = ╱31╱1╱ // 0x11ab @0xa
0x11a1…11c7 at000b = ╱30╱0╱ // 0x11ac @0xb
0x11a1…11c7 at000c = ╱31╱1╱ // 0x11ad @0xc
0x11a1…11c7 at000d = ╱3e╱>╱ // 0x11ae @0xd
0x11a1…11c7 at000e = ╱46╱F╱ // 0x11af @0xe
0x11a1…11c7 at000f = ╱69╱i╱ // 0x11b0 @0xf
0x11a1…11c7 at0010 = ╱72╱r╱ // 0x11b1 @0x10
0x11a1…11c7 at0011 = ╱6d╱m╱ // 0x11b2 @0x11
0x11a1…11c7 at0012 = ╱61╱a╱ // 0x11b3 @0x12
0x11a1…11c7 at0013 = ╱6e╱n╱ // 0x11b4 @0x13
0x11a1…11c7 at0014 = ╱61╱a╱ // 0x11b5 @0x14
0x11a1…11c7 at0015 = ╱76╱v╱ // 0x11b6 @0x15
0x11a1…11c7 at0016 = ╱6e╱n╱ // 0x11b7 @0x16
0x11a1…11c7 at0017 = ╱3a╱:╱ // 0x11b8 @0x17
0x11a1…11c7 at0018 = ╱20╱…╱ // 0x11b9 @0x18
0x11a1…11c7 at0019 = ╱22╱"╱ // 0x11ba @0x19
0x11a1…11c7 at001a = ╱ea╱ ; ╱ // 0x11bb @0x1a
0x11a1…11c7 at001b = ╱46╱F╱ // 0x11bc @0x1b
0x11a1…11c7 at001c = ╱49╱I╱ // 0x11bd @0x1c
0x11a1…11c7 at001d = ╱52╱R╱ // 0x11be @0x1d
0x11a1…11c7 at001e = ╱4d╱M╱ // 0x11bf @0x1e
0x11a1…11c7 at001f = ╱41╱A╱ // 0x11c0 @0x1f
0x11a1…11c7 at0020 = ╱4e╱N╱ // 0x11c1 @0x20
0x11a1…11c7 at0021 = ╱41╱A╱ // 0x11c2 @0x21
0x11a1…11c7 at0022 = ╱56╱V╱ // 0x11c3 @0x22
0x11a1…11c7 at0023 = ╱4e╱N╱ // 0x11c4 @0x23
0x11a1…11c7 at0024 = ╱ef╱$╱ // 0x11c5 @0x24
0x11a1…11c7 at0025 = EOL // 0x11c6 @0x25
0x11a1…11c7 }
0x11c7…120f a7fd 1210 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0x11c7…120f LineComal80 {
0x11c7…120f ptr = 0xa7fd // 0x11c7 @0x0
0x11c7…120f lno = 0x04ba // 0x11c9 @0x2
0x11c7…120f at0004 = ╱92╱ PRINT ╱ // 0x11cb @0x4
0x11c7…120f at0005 = ╱22╱"╱ // 0x11cc @0x5
0x11c7…120f at0006 = ╱3c╱<╱ // 0x11cd @0x6
0x11c7…120f at0007 = ╱53╱S╱ // 0x11ce @0x7
0x11c7…120f at0008 = ╱43╱C╱ // 0x11cf @0x8
0x11c7…120f at0009 = ╱36╱6╱ // 0x11d0 @0x9
0x11c7…120f at000a = ╱35╱5╱ // 0x11d1 @0xa
0x11c7…120f at000b = ╱30╱0╱ // 0x11d2 @0xb
0x11c7…120f at000c = ╱31╱1╱ // 0x11d3 @0xc
0x11c7…120f at000d = ╱3e╱>╱ // 0x11d4 @0xd
0x11c7…120f at000e = ╱44╱D╱ // 0x11d5 @0xe
0x11c7…120f at000f = ╱61╱a╱ // 0x11d6 @0xf
0x11c7…120f at0010 = ╱74╱t╱ // 0x11d7 @0x10
0x11c7…120f at0011 = ╱6f╱o╱ // 0x11d8 @0x11
0x11c7…120f at0012 = ╱3a╱:╱ // 0x11d9 @0x12
0x11c7…120f at0013 = ╱20╱…╱ // 0x11da @0x13
0x11c7…120f at0014 = ╱22╱"╱ // 0x11db @0x14
0x11c7…120f at0015 = ╱ea╱ ; ╱ // 0x11dc @0x15
0x11c7…120f at0016 = ╱53╱S╱ // 0x11dd @0x16
0x11c7…120f at0017 = ╱59╱Y╱ // 0x11de @0x17
0x11c7…120f at0018 = ╱53╱S╱ // 0x11df @0x18
0x11c7…120f at0019 = ╱54╱T╱ // 0x11e0 @0x19
0x11c7…120f at001a = ╱5f╱_╱ // 0x11e1 @0x1a
0x11c7…120f at001b = ╱44╱D╱ // 0x11e2 @0x1b
0x11c7…120f at001c = ╱41╱A╱ // 0x11e3 @0x1c
0x11c7…120f at001d = ╱54╱T╱ // 0x11e4 @0x1d
0x11c7…120f at001e = ╱ef╱$╱ // 0x11e5 @0x1e
0x11c7…120f at001f = ╱ed╱(╱ // 0x11e6 @0x1f
0x11c7…120f at0020 = ╱31╱1╱ // 0x11e7 @0x20
0x11c7…120f at0021 = ╱f20100╱ // 0x11e8 @0x21
0x11c7…120f at0024 = ╱f1╱ : ╱ // 0x11eb @0x24
0x11c7…120f at0025 = ╱32╱2╱ // 0x11ec @0x25
0x11c7…120f at0026 = ╱f20200╱ // 0x11ed @0x26
0x11c7…120f at0029 = ╱ee╱)╱ // 0x11f0 @0x29
0x11c7…120f at002a = ╱ea╱ ; ╱ // 0x11f1 @0x2a
0x11c7…120f at002b = ╱22╱"╱ // 0x11f2 @0x2b
0x11c7…120f at002c = ╱2e╱.╱ // 0x11f3 @0x2c
0x11c7…120f at002d = ╱22╱"╱ // 0x11f4 @0x2d
0x11c7…120f at002e = ╱ea╱ ; ╱ // 0x11f5 @0x2e
0x11c7…120f at002f = ╱53╱S╱ // 0x11f6 @0x2f
0x11c7…120f at0030 = ╱59╱Y╱ // 0x11f7 @0x30
0x11c7…120f at0031 = ╱53╱S╱ // 0x11f8 @0x31
0x11c7…120f at0032 = ╱54╱T╱ // 0x11f9 @0x32
0x11c7…120f at0033 = ╱5f╱_╱ // 0x11fa @0x33
0x11c7…120f at0034 = ╱44╱D╱ // 0x11fb @0x34
0x11c7…120f at0035 = ╱41╱A╱ // 0x11fc @0x35
0x11c7…120f at0036 = ╱54╱T╱ // 0x11fd @0x36
0x11c7…120f at0037 = ╱ef╱$╱ // 0x11fe @0x37
0x11c7…120f at0038 = ╱ed╱(╱ // 0x11ff @0x38
0x11c7…120f at0039 = ╱33╱3╱ // 0x1200 @0x39
0x11c7…120f at003a = ╱f20300╱ // 0x1201 @0x3a
0x11c7…120f at003d = ╱f1╱ : ╱ // 0x1204 @0x3d
0x11c7…120f at003e = ╱32╱2╱ // 0x1205 @0x3e
0x11c7…120f at003f = ╱f20200╱ // 0x1206 @0x3f
0x11c7…120f at0042 = ╱ee╱)╱ // 0x1209 @0x42
0x11c7…120f at0043 = ╱ea╱ ; ╱ // 0x120a @0x43
0x11c7…120f at0044 = ╱22╱"╱ // 0x120b @0x44
0x11c7…120f at0045 = ╱2e╱.╱ // 0x120c @0x45
0x11c7…120f at0046 = ╱22╱"╱ // 0x120d @0x46
0x11c7…120f at0047 = EOL // 0x120e @0x47
0x11c7…120f }
0x120f…1229 a817 1220 PRINT SYST_DAT$(5 : 2)
0x120f…1229 LineComal80 {
0x120f…1229 ptr = 0xa817 // 0x120f @0x0
0x120f…1229 lno = 0x04c4 // 0x1211 @0x2
0x120f…1229 at0004 = ╱92╱ PRINT ╱ // 0x1213 @0x4
0x120f…1229 at0005 = ╱53╱S╱ // 0x1214 @0x5
0x120f…1229 at0006 = ╱59╱Y╱ // 0x1215 @0x6
0x120f…1229 at0007 = ╱53╱S╱ // 0x1216 @0x7
0x120f…1229 at0008 = ╱54╱T╱ // 0x1217 @0x8
0x120f…1229 at0009 = ╱5f╱_╱ // 0x1218 @0x9
0x120f…1229 at000a = ╱44╱D╱ // 0x1219 @0xa
0x120f…1229 at000b = ╱41╱A╱ // 0x121a @0xb
0x120f…1229 at000c = ╱54╱T╱ // 0x121b @0xc
0x120f…1229 at000d = ╱ef╱$╱ // 0x121c @0xd
0x120f…1229 at000e = ╱ed╱(╱ // 0x121d @0xe
0x120f…1229 at000f = ╱35╱5╱ // 0x121e @0xf
0x120f…1229 at0010 = ╱f20500╱ // 0x121f @0x10
0x120f…1229 at0013 = ╱f1╱ : ╱ // 0x1222 @0x13
0x120f…1229 at0014 = ╱32╱2╱ // 0x1223 @0x14
0x120f…1229 at0015 = ╱f20200╱ // 0x1224 @0x15
0x120f…1229 at0018 = ╱ee╱)╱ // 0x1227 @0x18
0x120f…1229 at0019 = EOL // 0x1228 @0x19
0x120f…1229 }
0x1229…1245 a833 1230 CURSOR 36 - INT( ╱cb╱ (ST$) / 2),L
0x1229…1245 LineComal80 {
0x1229…1245 ptr = 0xa833 // 0x1229 @0x0
0x1229…1245 lno = 0x04ce // 0x122b @0x2
0x1229…1245 at0004 = ╱a1╱ CURSOR ╱ // 0x122d @0x4
0x1229…1245 at0005 = ╱33╱3╱ // 0x122e @0x5
0x1229…1245 at0006 = ╱36╱6╱ // 0x122f @0x6
0x1229…1245 at0007 = ╱f22400╱ // 0x1230 @0x7
0x1229…1245 at000a = ╱e6╱ - ╱ // 0x1233 @0xa
0x1229…1245 at000b = ╱c6╱INT╱ // 0x1234 @0xb
0x1229…1245 at000c = ╱ed╱(╱ // 0x1235 @0xc
0x1229…1245 at000d = ╱cb╱ // 0x1236 @0xd
0x1229…1245 at000e = ╱ed╱(╱ // 0x1237 @0xe
0x1229…1245 at000f = ╱53╱S╱ // 0x1238 @0xf
0x1229…1245 at0010 = ╱54╱T╱ // 0x1239 @0x10
0x1229…1245 at0011 = ╱ef╱$╱ // 0x123a @0x11
0x1229…1245 at0012 = ╱ee╱)╱ // 0x123b @0x12
0x1229…1245 at0013 = ╱e8╱ / ╱ // 0x123c @0x13
0x1229…1245 at0014 = ╱32╱2╱ // 0x123d @0x14
0x1229…1245 at0015 = ╱f20200╱ // 0x123e @0x15
0x1229…1245 at0018 = ╱ee╱)╱ // 0x1241 @0x18
0x1229…1245 at0019 = ╱ec╱,╱ // 0x1242 @0x19
0x1229…1245 at001a = ╱4c╱L╱ // 0x1243 @0x1a
0x1229…1245 at001b = EOL // 0x1244 @0x1b
0x1229…1245 }
0x1245…125c a84a 1240 PRINT "*** " ; ST$ ; " ***"
0x1245…125c LineComal80 {
0x1245…125c ptr = 0xa84a // 0x1245 @0x0
0x1245…125c lno = 0x04d8 // 0x1247 @0x2
0x1245…125c at0004 = ╱92╱ PRINT ╱ // 0x1249 @0x4
0x1245…125c at0005 = ╱22╱"╱ // 0x124a @0x5
0x1245…125c at0006 = ╱2a╱*╱ // 0x124b @0x6
0x1245…125c at0007 = ╱2a╱*╱ // 0x124c @0x7
0x1245…125c at0008 = ╱2a╱*╱ // 0x124d @0x8
0x1245…125c at0009 = ╱20╱…╱ // 0x124e @0x9
0x1245…125c at000a = ╱22╱"╱ // 0x124f @0xa
0x1245…125c at000b = ╱ea╱ ; ╱ // 0x1250 @0xb
0x1245…125c at000c = ╱53╱S╱ // 0x1251 @0xc
0x1245…125c at000d = ╱54╱T╱ // 0x1252 @0xd
0x1245…125c at000e = ╱ef╱$╱ // 0x1253 @0xe
0x1245…125c at000f = ╱ea╱ ; ╱ // 0x1254 @0xf
0x1245…125c at0010 = ╱22╱"╱ // 0x1255 @0x10
0x1245…125c at0011 = ╱20╱…╱ // 0x1256 @0x11
0x1245…125c at0012 = ╱2a╱*╱ // 0x1257 @0x12
0x1245…125c at0013 = ╱2a╱*╱ // 0x1258 @0x13
0x1245…125c at0014 = ╱2a╱*╱ // 0x1259 @0x14
0x1245…125c at0015 = ╱22╱"╱ // 0x125a @0x15
0x1245…125c at0016 = EOL // 0x125b @0x16
0x1245…125c }
0x125c…126c a85a 1250 ENDPROC OVERSKRIFT
0x125c…126c LineComal80 {
0x125c…126c ptr = 0xa85a // 0x125c @0x0
0x125c…126c lno = 0x04e2 // 0x125e @0x2
0x125c…126c at0004 = ╱9f╱ ENDPROC ╱ // 0x1260 @0x4
0x125c…126c at0005 = ╱4f╱O╱ // 0x1261 @0x5
0x125c…126c at0006 = ╱56╱V╱ // 0x1262 @0x6
0x125c…126c at0007 = ╱45╱E╱ // 0x1263 @0x7
0x125c…126c at0008 = ╱52╱R╱ // 0x1264 @0x8
0x125c…126c at0009 = ╱53╱S╱ // 0x1265 @0x9
0x125c…126c at000a = ╱4b╱K╱ // 0x1266 @0xa
0x125c…126c at000b = ╱52╱R╱ // 0x1267 @0xb
0x125c…126c at000c = ╱49╱I╱ // 0x1268 @0xc
0x125c…126c at000d = ╱46╱F╱ // 0x1269 @0xd
0x125c…126c at000e = ╱54╱T╱ // 0x126a @0xe
0x125c…126c at000f = EOL // 0x126b @0xf
0x125c…126c }
0x126c…1271 a85f 1260
0x126c…1271 LineComal80 {
0x126c…1271 ptr = 0xa85f // 0x126c @0x0
0x126c…1271 lno = 0x04ec // 0x126e @0x2
0x126c…1271 at0004 = EOL // 0x1270 @0x4
0x126c…1271 }
0x1271…1284 a872 1270 PROC SL_FEJLLINIE
0x1271…1284 LineComal80 {
0x1271…1284 ptr = 0xa872 // 0x1271 @0x0
0x1271…1284 lno = 0x04f6 // 0x1273 @0x2
0x1271…1284 at0004 = ╱9e0f╱ PROC ╱ // 0x1275 @0x4
0x1271…1284 at0006 = ╱53╱S╱ // 0x1277 @0x6
0x1271…1284 at0007 = ╱4c╱L╱ // 0x1278 @0x7
0x1271…1284 at0008 = ╱5f╱_╱ // 0x1279 @0x8
0x1271…1284 at0009 = ╱46╱F╱ // 0x127a @0x9
0x1271…1284 at000a = ╱45╱E╱ // 0x127b @0xa
0x1271…1284 at000b = ╱4a╱J╱ // 0x127c @0xb
0x1271…1284 at000c = ╱4c╱L╱ // 0x127d @0xc
0x1271…1284 at000d = ╱4c╱L╱ // 0x127e @0xd
0x1271…1284 at000e = ╱49╱I╱ // 0x127f @0xe
0x1271…1284 at000f = ╱4e╱N╱ // 0x1280 @0xf
0x1271…1284 at0010 = ╱49╱I╱ // 0x1281 @0x10
0x1271…1284 at0011 = ╱45╱E╱ // 0x1282 @0x11
0x1271…1284 at0012 = EOL // 0x1283 @0x12
0x1271…1284 }
0x1284…1291 a87f 1280 LET OK := TRUE
0x1284…1291 LineComal80 {
0x1284…1291 ptr = 0xa87f // 0x1284 @0x0
0x1284…1291 lno = 0x0500 // 0x1286 @0x2
0x1284…1291 at0004 = ╱86╱ LET ╱ // 0x1288 @0x4
0x1284…1291 at0005 = ╱4f╱O╱ // 0x1289 @0x5
0x1284…1291 at0006 = ╱4b╱K╱ // 0x128a @0x6
0x1284…1291 at0007 = ╱f0╱ := ╱ // 0x128b @0x7
0x1284…1291 at0008 = ╱54╱T╱ // 0x128c @0x8
0x1284…1291 at0009 = ╱52╱R╱ // 0x128d @0x9
0x1284…1291 at000a = ╱55╱U╱ // 0x128e @0xa
0x1284…1291 at000b = ╱45╱E╱ // 0x128f @0xb
0x1284…1291 at000c = EOL // 0x1290 @0xc
0x1284…1291 }
0x1291…12a5 a893 1290 PRINT "<C0102>" ; SPC$
0x1291…12a5 LineComal80 {
0x1291…12a5 ptr = 0xa893 // 0x1291 @0x0
0x1291…12a5 lno = 0x050a // 0x1293 @0x2
0x1291…12a5 at0004 = ╱92╱ PRINT ╱ // 0x1295 @0x4
0x1291…12a5 at0005 = ╱22╱"╱ // 0x1296 @0x5
0x1291…12a5 at0006 = ╱3c╱<╱ // 0x1297 @0x6
0x1291…12a5 at0007 = ╱43╱C╱ // 0x1298 @0x7
0x1291…12a5 at0008 = ╱30╱0╱ // 0x1299 @0x8
0x1291…12a5 at0009 = ╱31╱1╱ // 0x129a @0x9
0x1291…12a5 at000a = ╱30╱0╱ // 0x129b @0xa
0x1291…12a5 at000b = ╱32╱2╱ // 0x129c @0xb
0x1291…12a5 at000c = ╱3e╱>╱ // 0x129d @0xc
0x1291…12a5 at000d = ╱22╱"╱ // 0x129e @0xd
0x1291…12a5 at000e = ╱ea╱ ; ╱ // 0x129f @0xe
0x1291…12a5 at000f = ╱53╱S╱ // 0x12a0 @0xf
0x1291…12a5 at0010 = ╱50╱P╱ // 0x12a1 @0x10
0x1291…12a5 at0011 = ╱43╱C╱ // 0x12a2 @0x11
0x1291…12a5 at0012 = ╱ef╱$╱ // 0x12a3 @0x12
0x1291…12a5 at0013 = EOL // 0x12a4 @0x13
0x1291…12a5 }
0x12a5…12b7 a8a5 1300 ENDPROC SL_FEJLLINIE
0x12a5…12b7 LineComal80 {
0x12a5…12b7 ptr = 0xa8a5 // 0x12a5 @0x0
0x12a5…12b7 lno = 0x0514 // 0x12a7 @0x2
0x12a5…12b7 at0004 = ╱9f╱ ENDPROC ╱ // 0x12a9 @0x4
0x12a5…12b7 at0005 = ╱53╱S╱ // 0x12aa @0x5
0x12a5…12b7 at0006 = ╱4c╱L╱ // 0x12ab @0x6
0x12a5…12b7 at0007 = ╱5f╱_╱ // 0x12ac @0x7
0x12a5…12b7 at0008 = ╱46╱F╱ // 0x12ad @0x8
0x12a5…12b7 at0009 = ╱45╱E╱ // 0x12ae @0x9
0x12a5…12b7 at000a = ╱4a╱J╱ // 0x12af @0xa
0x12a5…12b7 at000b = ╱4c╱L╱ // 0x12b0 @0xb
0x12a5…12b7 at000c = ╱4c╱L╱ // 0x12b1 @0xc
0x12a5…12b7 at000d = ╱49╱I╱ // 0x12b2 @0xd
0x12a5…12b7 at000e = ╱4e╱N╱ // 0x12b3 @0xe
0x12a5…12b7 at000f = ╱49╱I╱ // 0x12b4 @0xf
0x12a5…12b7 at0010 = ╱45╱E╱ // 0x12b5 @0x10
0x12a5…12b7 at0011 = EOL // 0x12b6 @0x11
0x12a5…12b7 }
0x12b7…12bc a8aa 1310
0x12b7…12bc LineComal80 {
0x12b7…12bc ptr = 0xa8aa // 0x12b7 @0x0
0x12b7…12bc lno = 0x051e // 0x12b9 @0x2
0x12b7…12bc at0004 = EOL // 0x12bb @0x4
0x12b7…12bc }
0x12bc…12cc a8ba 1320 PROC FEJL(ST$)
0x12bc…12cc LineComal80 {
0x12bc…12cc ptr = 0xa8ba // 0x12bc @0x0
0x12bc…12cc lno = 0x0528 // 0x12be @0x2
0x12bc…12cc at0004 = ╱9e10╱ PROC ╱ // 0x12c0 @0x4
0x12bc…12cc at0006 = ╱46╱F╱ // 0x12c2 @0x6
0x12bc…12cc at0007 = ╱45╱E╱ // 0x12c3 @0x7
0x12bc…12cc at0008 = ╱4a╱J╱ // 0x12c4 @0x8
0x12bc…12cc at0009 = ╱4c╱L╱ // 0x12c5 @0x9
0x12bc…12cc at000a = ╱ed╱(╱ // 0x12c6 @0xa
0x12bc…12cc at000b = ╱53╱S╱ // 0x12c7 @0xb
0x12bc…12cc at000c = ╱54╱T╱ // 0x12c8 @0xc
0x12bc…12cc at000d = ╱ef╱$╱ // 0x12c9 @0xd
0x12bc…12cc at000e = ╱ee╱)╱ // 0x12ca @0xe
0x12bc…12cc at000f = EOL // 0x12cb @0xf
0x12bc…12cc }
0x12cc…12da a8c8 1330 LET OK := FALSE
0x12cc…12da LineComal80 {
0x12cc…12da ptr = 0xa8c8 // 0x12cc @0x0
0x12cc…12da lno = 0x0532 // 0x12ce @0x2
0x12cc…12da at0004 = ╱86╱ LET ╱ // 0x12d0 @0x4
0x12cc…12da at0005 = ╱4f╱O╱ // 0x12d1 @0x5
0x12cc…12da at0006 = ╱4b╱K╱ // 0x12d2 @0x6
0x12cc…12da at0007 = ╱f0╱ := ╱ // 0x12d3 @0x7
0x12cc…12da at0008 = ╱46╱F╱ // 0x12d4 @0x8
0x12cc…12da at0009 = ╱41╱A╱ // 0x12d5 @0x9
0x12cc…12da at000a = ╱4c╱L╱ // 0x12d6 @0xa
0x12cc…12da at000b = ╱53╱S╱ // 0x12d7 @0xb
0x12cc…12da at000c = ╱45╱E╱ // 0x12d8 @0xc
0x12cc…12da at000d = EOL // 0x12d9 @0xd
0x12cc…12da }
0x12da…12f6 a8e4 1340 CURSOR 36 - ╱cb╱ (ST$) / 2,2
0x12da…12f6 LineComal80 {
0x12da…12f6 ptr = 0xa8e4 // 0x12da @0x0
0x12da…12f6 lno = 0x053c // 0x12dc @0x2
0x12da…12f6 at0004 = ╱a1╱ CURSOR ╱ // 0x12de @0x4
0x12da…12f6 at0005 = ╱33╱3╱ // 0x12df @0x5
0x12da…12f6 at0006 = ╱36╱6╱ // 0x12e0 @0x6
0x12da…12f6 at0007 = ╱f22400╱ // 0x12e1 @0x7
0x12da…12f6 at000a = ╱e6╱ - ╱ // 0x12e4 @0xa
0x12da…12f6 at000b = ╱cb╱ // 0x12e5 @0xb
0x12da…12f6 at000c = ╱ed╱(╱ // 0x12e6 @0xc
0x12da…12f6 at000d = ╱53╱S╱ // 0x12e7 @0xd
0x12da…12f6 at000e = ╱54╱T╱ // 0x12e8 @0xe
0x12da…12f6 at000f = ╱ef╱$╱ // 0x12e9 @0xf
0x12da…12f6 at0010 = ╱ee╱)╱ // 0x12ea @0x10
0x12da…12f6 at0011 = ╱e8╱ / ╱ // 0x12eb @0x11
0x12da…12f6 at0012 = ╱32╱2╱ // 0x12ec @0x12
0x12da…12f6 at0013 = ╱f20200╱ // 0x12ed @0x13
0x12da…12f6 at0016 = ╱ec╱,╱ // 0x12f0 @0x16
0x12da…12f6 at0017 = ╱32╱2╱ // 0x12f1 @0x17
0x12da…12f6 at0018 = ╱f20200╱ // 0x12f2 @0x18
0x12da…12f6 at001b = EOL // 0x12f5 @0x1b
0x12da…12f6 }
0x12f6…1315 a903 1350 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
0x12f6…1315 LineComal80 {
0x12f6…1315 ptr = 0xa903 // 0x12f6 @0x0
0x12f6…1315 lno = 0x0546 // 0x12f8 @0x2
0x12f6…1315 at0004 = ╱92╱ PRINT ╱ // 0x12fa @0x4
0x12f6…1315 at0005 = ╱22╱"╱ // 0x12fb @0x5
0x12f6…1315 at0006 = ╱2a╱*╱ // 0x12fc @0x6
0x12f6…1315 at0007 = ╱2a╱*╱ // 0x12fd @0x7
0x12f6…1315 at0008 = ╱2a╱*╱ // 0x12fe @0x8
0x12f6…1315 at0009 = ╱20╱…╱ // 0x12ff @0x9
0x12f6…1315 at000a = ╱22╱"╱ // 0x1300 @0xa
0x12f6…1315 at000b = ╱eb╱ + ╱ // 0x1301 @0xb
0x12f6…1315 at000c = ╱53╱S╱ // 0x1302 @0xc
0x12f6…1315 at000d = ╱54╱T╱ // 0x1303 @0xd
0x12f6…1315 at000e = ╱ef╱$╱ // 0x1304 @0xe
0x12f6…1315 at000f = ╱eb╱ + ╱ // 0x1305 @0xf
0x12f6…1315 at0010 = ╱22╱"╱ // 0x1306 @0x10
0x12f6…1315 at0011 = ╱20╱…╱ // 0x1307 @0x11
0x12f6…1315 at0012 = ╱2a╱*╱ // 0x1308 @0x12
0x12f6…1315 at0013 = ╱2a╱*╱ // 0x1309 @0x13
0x12f6…1315 at0014 = ╱2a╱*╱ // 0x130a @0x14
0x12f6…1315 at0015 = ╱22╱"╱ // 0x130b @0x15
0x12f6…1315 at0016 = ╱ea╱ ; ╱ // 0x130c @0x16
0x12f6…1315 at0017 = ╱d0╱ CHR$ ╱ // 0x130d @0x17
0x12f6…1315 at0018 = ╱ed╱(╱ // 0x130e @0x18
0x12f6…1315 at0019 = ╱37╱7╱ // 0x130f @0x19
0x12f6…1315 at001a = ╱f20700╱ // 0x1310 @0x1a
0x12f6…1315 at001d = ╱ee╱)╱ // 0x1313 @0x1d
0x12f6…1315 at001e = EOL // 0x1314 @0x1e
0x12f6…1315 }
0x1315…131f a90d 1360 ENDPROC FEJL
0x1315…131f LineComal80 {
0x1315…131f ptr = 0xa90d // 0x1315 @0x0
0x1315…131f lno = 0x0550 // 0x1317 @0x2
0x1315…131f at0004 = ╱9f╱ ENDPROC ╱ // 0x1319 @0x4
0x1315…131f at0005 = ╱46╱F╱ // 0x131a @0x5
0x1315…131f at0006 = ╱45╱E╱ // 0x131b @0x6
0x1315…131f at0007 = ╱4a╱J╱ // 0x131c @0x7
0x1315…131f at0008 = ╱4c╱L╱ // 0x131d @0x8
0x1315…131f at0009 = EOL // 0x131e @0x9
0x1315…131f }
0x131f…1324 a912 1370
0x131f…1324 LineComal80 {
0x131f…1324 ptr = 0xa912 // 0x131f @0x0
0x131f…1324 lno = 0x055a // 0x1321 @0x2
0x131f…1324 at0004 = EOL // 0x1323 @0x4
0x131f…1324 }
0x1324…133e a92c 1380 PROC FIND_KTO( REF R_KTONR$)
0x1324…133e LineComal80 {
0x1324…133e ptr = 0xa92c // 0x1324 @0x0
0x1324…133e lno = 0x0564 // 0x1326 @0x2
0x1324…133e at0004 = ╱9e11╱ PROC ╱ // 0x1328 @0x4
0x1324…133e at0006 = ╱46╱F╱ // 0x132a @0x6
0x1324…133e at0007 = ╱49╱I╱ // 0x132b @0x7
0x1324…133e at0008 = ╱4e╱N╱ // 0x132c @0x8
0x1324…133e at0009 = ╱44╱D╱ // 0x132d @0x9
0x1324…133e at000a = ╱5f╱_╱ // 0x132e @0xa
0x1324…133e at000b = ╱4b╱K╱ // 0x132f @0xb
0x1324…133e at000c = ╱54╱T╱ // 0x1330 @0xc
0x1324…133e at000d = ╱4f╱O╱ // 0x1331 @0xd
0x1324…133e at000e = ╱ed╱(╱ // 0x1332 @0xe
0x1324…133e at000f = ╱b6╱ REF ╱ // 0x1333 @0xf
0x1324…133e at0010 = ╱52╱R╱ // 0x1334 @0x10
0x1324…133e at0011 = ╱5f╱_╱ // 0x1335 @0x11
0x1324…133e at0012 = ╱4b╱K╱ // 0x1336 @0x12
0x1324…133e at0013 = ╱54╱T╱ // 0x1337 @0x13
0x1324…133e at0014 = ╱4f╱O╱ // 0x1338 @0x14
0x1324…133e at0015 = ╱4e╱N╱ // 0x1339 @0x15
0x1324…133e at0016 = ╱52╱R╱ // 0x133a @0x16
0x1324…133e at0017 = ╱ef╱$╱ // 0x133b @0x17
0x1324…133e at0018 = ╱ee╱)╱ // 0x133c @0x18
0x1324…133e at0019 = EOL // 0x133d @0x19
0x1324…133e }
0x133e…134c a93a 1390 LET OK := FALSE
0x133e…134c LineComal80 {
0x133e…134c ptr = 0xa93a // 0x133e @0x0
0x133e…134c lno = 0x056e // 0x1340 @0x2
0x133e…134c at0004 = ╱86╱ LET ╱ // 0x1342 @0x4
0x133e…134c at0005 = ╱4f╱O╱ // 0x1343 @0x5
0x133e…134c at0006 = ╱4b╱K╱ // 0x1344 @0x6
0x133e…134c at0007 = ╱f0╱ := ╱ // 0x1345 @0x7
0x133e…134c at0008 = ╱46╱F╱ // 0x1346 @0x8
0x133e…134c at0009 = ╱41╱A╱ // 0x1347 @0x9
0x133e…134c at000a = ╱4c╱L╱ // 0x1348 @0xa
0x133e…134c at000b = ╱53╱S╱ // 0x1349 @0xb
0x133e…134c at000c = ╱45╱E╱ // 0x134a @0xc
0x133e…134c at000d = EOL // 0x134b @0xd
0x133e…134c }
0x134c…1370 a95e 1400 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
0x134c…1370 LineComal80 {
0x134c…1370 ptr = 0xa95e // 0x134c @0x0
0x134c…1370 lno = 0x0578 // 0x134e @0x2
0x134c…1370 at0004 = ╱a9╱ GET ╱ // 0x1350 @0x4
0x134c…1370 at0005 = ╱4b╱K╱ // 0x1351 @0x5
0x134c…1370 at0006 = ╱54╱T╱ // 0x1352 @0x6
0x134c…1370 at0007 = ╱4f╱O╱ // 0x1353 @0x7
0x134c…1370 at0008 = ╱49╱I╱ // 0x1354 @0x8
0x134c…1370 at0009 = ╱44╱D╱ // 0x1355 @0x9
0x134c…1370 at000a = ╱58╱X╱ // 0x1356 @0xa
0x134c…1370 at000b = ╱ef╱$╱ // 0x1357 @0xb
0x134c…1370 at000c = ╱ec╱,╱ // 0x1358 @0xc
0x134c…1370 at000d = ╱31╱1╱ // 0x1359 @0xd
0x134c…1370 at000e = ╱f20100╱ // 0x135a @0xe
0x134c…1370 at0011 = ╱f1╱ : ╱ // 0x135d @0x11
0x134c…1370 at0012 = ╱49╱I╱ // 0x135e @0x12
0x134c…1370 at0013 = ╱5f╱_╱ // 0x135f @0x13
0x134c…1370 at0014 = ╱48╱H╱ // 0x1360 @0x14
0x134c…1370 at0015 = ╱5c╱Ø╱ // 0x1361 @0x15
0x134c…1370 at0016 = ╱4a╱J╱ // 0x1362 @0x16
0x134c…1370 at0017 = ╱52╱R╱ // 0x1363 @0x17
0x134c…1370 at0018 = ╱45╱E╱ // 0x1364 @0x18
0x134c…1370 at0019 = ╱43╱C╱ // 0x1365 @0x19
0x134c…1370 at001a = ╱ec╱,╱ // 0x1366 @0x1a
0x134c…1370 at001b = ╱49╱I╱ // 0x1367 @0x1b
0x134c…1370 at001c = ╱5f╱_╱ // 0x1368 @0x1c
0x134c…1370 at001d = ╱4d╱M╱ // 0x1369 @0x1d
0x134c…1370 at001e = ╱41╱A╱ // 0x136a @0x1e
0x134c…1370 at001f = ╱58╱X╱ // 0x136b @0x1f
0x134c…1370 at0020 = ╱52╱R╱ // 0x136c @0x20
0x134c…1370 at0021 = ╱45╱E╱ // 0x136d @0x21
0x134c…1370 at0022 = ╱43╱C╱ // 0x136e @0x22
0x134c…1370 at0023 = EOL // 0x136f @0x23
0x134c…1370 }
0x1370…1395 a983 1410 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
0x1370…1395 LineComal80 {
0x1370…1395 ptr = 0xa983 // 0x1370 @0x0
0x1370…1395 lno = 0x0582 // 0x1372 @0x2
0x1370…1395 at0004 = ╱86╱ LET ╱ // 0x1374 @0x4
0x1370…1395 at0005 = ╱4c╱L╱ // 0x1375 @0x5
0x1370…1395 at0006 = ╱4f╱O╱ // 0x1376 @0x6
0x1370…1395 at0007 = ╱57╱W╱ // 0x1377 @0x7
0x1370…1395 at0008 = ╱f0╱ := ╱ // 0x1378 @0x8
0x1370…1395 at0009 = ╱31╱1╱ // 0x1379 @0x9
0x1370…1395 at000a = ╱f20100╱ // 0x137a @0xa
0x1370…1395 at000d = ╱ea╱ ; ╱ // 0x137d @0xd
0x1370…1395 at000e = ╱48╱H╱ // 0x137e @0xe
0x1370…1395 at000f = ╱49╱I╱ // 0x137f @0xf
0x1370…1395 at0010 = ╱47╱G╱ // 0x1380 @0x10
0x1370…1395 at0011 = ╱48╱H╱ // 0x1381 @0x11
0x1370…1395 at0012 = ╱f0╱ := ╱ // 0x1382 @0x12
0x1370…1395 at0013 = ╱49╱I╱ // 0x1383 @0x13
0x1370…1395 at0014 = ╱5f╱_╱ // 0x1384 @0x14
0x1370…1395 at0015 = ╱48╱H╱ // 0x1385 @0x15
0x1370…1395 at0016 = ╱5c╱Ø╱ // 0x1386 @0x16
0x1370…1395 at0017 = ╱4a╱J╱ // 0x1387 @0x17
0x1370…1395 at0018 = ╱52╱R╱ // 0x1388 @0x18
0x1370…1395 at0019 = ╱45╱E╱ // 0x1389 @0x19
0x1370…1395 at001a = ╱43╱C╱ // 0x138a @0x1a
0x1370…1395 at001b = ╱ea╱ ; ╱ // 0x138b @0x1b
0x1370…1395 at001c = ╱50╱P╱ // 0x138c @0x1c
0x1370…1395 at001d = ╱4f╱O╱ // 0x138d @0x1d
0x1370…1395 at001e = ╱53╱S╱ // 0x138e @0x1e
0x1370…1395 at001f = ╱f0╱ := ╱ // 0x138f @0x1f
0x1370…1395 at0020 = ╱32╱2╱ // 0x1390 @0x20
0x1370…1395 at0021 = ╱f20200╱ // 0x1391 @0x21
0x1370…1395 at0024 = EOL // 0x1394 @0x24
0x1370…1395 }
0x1395…13a6 a994 1420 IF IGH > 1 THEN
0x1395…13a6 LineComal80 {
0x1395…13a6 ptr = 0xa994 // 0x1395 @0x0
0x1395…13a6 lno = 0x058c // 0x1397 @0x2
0x1395…13a6 at0004 = ╱9b1248╱ IF ╱ // 0x1399 @0x4
0x1395…13a6 at0007 = ╱49╱I╱ // 0x139c @0x7
0x1395…13a6 at0008 = ╱47╱G╱ // 0x139d @0x8
0x1395…13a6 at0009 = ╱48╱H╱ // 0x139e @0x9
0x1395…13a6 at000a = ╱e1╱ > ╱ // 0x139f @0xa
0x1395…13a6 at000b = ╱31╱1╱ // 0x13a0 @0xb
0x1395…13a6 at000c = ╱f20100╱ // 0x13a1 @0xc
0x1395…13a6 at000f = ╱b5╱ THEN ╱ // 0x13a4 @0xf
0x1395…13a6 at0010 = EOL // 0x13a5 @0x10
0x1395…13a6 }
0x13a6…13ad a99b 1430 REPEAT
0x13a6…13ad LineComal80 {
0x13a6…13ad ptr = 0xa99b // 0x13a6 @0x0
0x13a6…13ad lno = 0x0596 // 0x13a8 @0x2
0x13a6…13ad at0004 = ╱9713╱ REPEAT ╱ // 0x13aa @0x4
0x13a6…13ad at0006 = EOL // 0x13ac @0x6
0x13a6…13ad }
0x13ad…13d9 a9c7 1440 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x13ad…13d9 LineComal80 {
0x13ad…13d9 ptr = 0xa9c7 // 0x13ad @0x0
0x13ad…13d9 lno = 0x05a0 // 0x13af @0x2
0x13ad…13d9 at0004 = ╱86╱ LET ╱ // 0x13b1 @0x4
0x13ad…13d9 at0005 = ╱50╱P╱ // 0x13b2 @0x5
0x13ad…13d9 at0006 = ╱4f╱O╱ // 0x13b3 @0x6
0x13ad…13d9 at0007 = ╱53╱S╱ // 0x13b4 @0x7
0x13ad…13d9 at0008 = ╱f0╱ := ╱ // 0x13b5 @0x8
0x13ad…13d9 at0009 = ╱c6╱INT╱ // 0x13b6 @0x9
0x13ad…13d9 at000a = ╱ed╱(╱ // 0x13b7 @0xa
0x13ad…13d9 at000b = ╱ed╱(╱ // 0x13b8 @0xb
0x13ad…13d9 at000c = ╱48╱H╱ // 0x13b9 @0xc
0x13ad…13d9 at000d = ╱49╱I╱ // 0x13ba @0xd
0x13ad…13d9 at000e = ╱47╱G╱ // 0x13bb @0xe
0x13ad…13d9 at000f = ╱48╱H╱ // 0x13bc @0xf
0x13ad…13d9 at0010 = ╱e6╱ - ╱ // 0x13bd @0x10
0x13ad…13d9 at0011 = ╱4c╱L╱ // 0x13be @0x11
0x13ad…13d9 at0012 = ╱4f╱O╱ // 0x13bf @0x12
0x13ad…13d9 at0013 = ╱57╱W╱ // 0x13c0 @0x13
0x13ad…13d9 at0014 = ╱ee╱)╱ // 0x13c1 @0x14
0x13ad…13d9 at0015 = ╱e8╱ / ╱ // 0x13c2 @0x15
0x13ad…13d9 at0016 = ╱32╱2╱ // 0x13c3 @0x16
0x13ad…13d9 at0017 = ╱f20200╱ // 0x13c4 @0x17
0x13ad…13d9 at001a = ╱e5╱ + ╱ // 0x13c7 @0x1a
0x13ad…13d9 at001b = ╱2e╱.╱ // 0x13c8 @0x1b
0x13ad…13d9 at001c = ╱35╱5╱ // 0x13c9 @0x1c
0x13ad…13d9 at001d = ╱f88000000000000005╱ // 0x13ca @0x1d
0x13ad…13d9 at0026 = ╱ee╱)╱ // 0x13d3 @0x26
0x13ad…13d9 at0027 = ╱e5╱ + ╱ // 0x13d4 @0x27
0x13ad…13d9 at0028 = ╱4c╱L╱ // 0x13d5 @0x28
0x13ad…13d9 at0029 = ╱4f╱O╱ // 0x13d6 @0x29
0x13ad…13d9 at002a = ╱57╱W╱ // 0x13d7 @0x2a
0x13ad…13d9 at002b = EOL // 0x13d8 @0x2b
0x13ad…13d9 }
0x13d9…13f7 a9e5 1450 GET KTOIDX$,POS : KTONR$,RECNR
0x13d9…13f7 LineComal80 {
0x13d9…13f7 ptr = 0xa9e5 // 0x13d9 @0x0
0x13d9…13f7 lno = 0x05aa // 0x13db @0x2
0x13d9…13f7 at0004 = ╱a9╱ GET ╱ // 0x13dd @0x4
0x13d9…13f7 at0005 = ╱4b╱K╱ // 0x13de @0x5
0x13d9…13f7 at0006 = ╱54╱T╱ // 0x13df @0x6
0x13d9…13f7 at0007 = ╱4f╱O╱ // 0x13e0 @0x7
0x13d9…13f7 at0008 = ╱49╱I╱ // 0x13e1 @0x8
0x13d9…13f7 at0009 = ╱44╱D╱ // 0x13e2 @0x9
0x13d9…13f7 at000a = ╱58╱X╱ // 0x13e3 @0xa
0x13d9…13f7 at000b = ╱ef╱$╱ // 0x13e4 @0xb
0x13d9…13f7 at000c = ╱ec╱,╱ // 0x13e5 @0xc
0x13d9…13f7 at000d = ╱50╱P╱ // 0x13e6 @0xd
0x13d9…13f7 at000e = ╱4f╱O╱ // 0x13e7 @0xe
0x13d9…13f7 at000f = ╱53╱S╱ // 0x13e8 @0xf
0x13d9…13f7 at0010 = ╱f1╱ : ╱ // 0x13e9 @0x10
0x13d9…13f7 at0011 = ╱4b╱K╱ // 0x13ea @0x11
0x13d9…13f7 at0012 = ╱54╱T╱ // 0x13eb @0x12
0x13d9…13f7 at0013 = ╱4f╱O╱ // 0x13ec @0x13
0x13d9…13f7 at0014 = ╱4e╱N╱ // 0x13ed @0x14
0x13d9…13f7 at0015 = ╱52╱R╱ // 0x13ee @0x15
0x13d9…13f7 at0016 = ╱ef╱$╱ // 0x13ef @0x16
0x13d9…13f7 at0017 = ╱ec╱,╱ // 0x13f0 @0x17
0x13d9…13f7 at0018 = ╱52╱R╱ // 0x13f1 @0x18
0x13d9…13f7 at0019 = ╱45╱E╱ // 0x13f2 @0x19
0x13d9…13f7 at001a = ╱43╱C╱ // 0x13f3 @0x1a
0x13d9…13f7 at001b = ╱4e╱N╱ // 0x13f4 @0x1b
0x13d9…13f7 at001c = ╱52╱R╱ // 0x13f5 @0x1c
0x13d9…13f7 at001d = EOL // 0x13f6 @0x1d
0x13d9…13f7 }
0x13f7…140e a9fc 1460 IF TONR$ > R_KTONR$ THEN
0x13f7…140e LineComal80 {
0x13f7…140e ptr = 0xa9fc // 0x13f7 @0x0
0x13f7…140e lno = 0x05b4 // 0x13f9 @0x2
0x13f7…140e at0004 = ╱9b144b╱ IF ╱ // 0x13fb @0x4
0x13f7…140e at0007 = ╱54╱T╱ // 0x13fe @0x7
0x13f7…140e at0008 = ╱4f╱O╱ // 0x13ff @0x8
0x13f7…140e at0009 = ╱4e╱N╱ // 0x1400 @0x9
0x13f7…140e at000a = ╱52╱R╱ // 0x1401 @0xa
0x13f7…140e at000b = ╱ef╱$╱ // 0x1402 @0xb
0x13f7…140e at000c = ╱e1╱ > ╱ // 0x1403 @0xc
0x13f7…140e at000d = ╱52╱R╱ // 0x1404 @0xd
0x13f7…140e at000e = ╱5f╱_╱ // 0x1405 @0xe
0x13f7…140e at000f = ╱4b╱K╱ // 0x1406 @0xf
0x13f7…140e at0010 = ╱54╱T╱ // 0x1407 @0x10
0x13f7…140e at0011 = ╱4f╱O╱ // 0x1408 @0x11
0x13f7…140e at0012 = ╱4e╱N╱ // 0x1409 @0x12
0x13f7…140e at0013 = ╱52╱R╱ // 0x140a @0x13
0x13f7…140e at0014 = ╱ef╱$╱ // 0x140b @0x14
0x13f7…140e at0015 = ╱b5╱ THEN ╱ // 0x140c @0x15
0x13f7…140e at0016 = EOL // 0x140d @0x16
0x13f7…140e }
0x140e…141c aa0a 1470 LET HIGH := POS
0x140e…141c LineComal80 {
0x140e…141c ptr = 0xaa0a // 0x140e @0x0
0x140e…141c lno = 0x05be // 0x1410 @0x2
0x140e…141c at0004 = ╱86╱ LET ╱ // 0x1412 @0x4
0x140e…141c at0005 = ╱48╱H╱ // 0x1413 @0x5
0x140e…141c at0006 = ╱49╱I╱ // 0x1414 @0x6
0x140e…141c at0007 = ╱47╱G╱ // 0x1415 @0x7
0x140e…141c at0008 = ╱48╱H╱ // 0x1416 @0x8
0x140e…141c at0009 = ╱f0╱ := ╱ // 0x1417 @0x9
0x140e…141c at000a = ╱50╱P╱ // 0x1418 @0xa
0x140e…141c at000b = ╱4f╱O╱ // 0x1419 @0xb
0x140e…141c at000c = ╱53╱S╱ // 0x141a @0xc
0x140e…141c at000d = EOL // 0x141b @0xd
0x140e…141c }
0x141c…1423 aa11 1480 ELSE
0x141c…1423 LineComal80 {
0x141c…1423 ptr = 0xaa11 // 0x141c @0x0
0x141c…1423 lno = 0x05c8 // 0x141e @0x2
0x141c…1423 at0004 = ╱9a15╱ ELSE ╱ // 0x1420 @0x4
0x141c…1423 at0006 = EOL // 0x1422 @0x6
0x141c…1423 }
0x1423…143a aa28 1490 IF TONR$ < R_KTONR$ THEN
0x1423…143a LineComal80 {
0x1423…143a ptr = 0xaa28 // 0x1423 @0x0
0x1423…143a lno = 0x05d2 // 0x1425 @0x2
0x1423…143a at0004 = ╱9b164b╱ IF ╱ // 0x1427 @0x4
0x1423…143a at0007 = ╱54╱T╱ // 0x142a @0x7
0x1423…143a at0008 = ╱4f╱O╱ // 0x142b @0x8
0x1423…143a at0009 = ╱4e╱N╱ // 0x142c @0x9
0x1423…143a at000a = ╱52╱R╱ // 0x142d @0xa
0x1423…143a at000b = ╱ef╱$╱ // 0x142e @0xb
0x1423…143a at000c = ╱e0╱ < ╱ // 0x142f @0xc
0x1423…143a at000d = ╱52╱R╱ // 0x1430 @0xd
0x1423…143a at000e = ╱5f╱_╱ // 0x1431 @0xe
0x1423…143a at000f = ╱4b╱K╱ // 0x1432 @0xf
0x1423…143a at0010 = ╱54╱T╱ // 0x1433 @0x10
0x1423…143a at0011 = ╱4f╱O╱ // 0x1434 @0x11
0x1423…143a at0012 = ╱4e╱N╱ // 0x1435 @0x12
0x1423…143a at0013 = ╱52╱R╱ // 0x1436 @0x13
0x1423…143a at0014 = ╱ef╱$╱ // 0x1437 @0x14
0x1423…143a at0015 = ╱b5╱ THEN ╱ // 0x1438 @0x15
0x1423…143a at0016 = EOL // 0x1439 @0x16
0x1423…143a }
0x143a…1447 aa35 1500 LET LOW := POS
0x143a…1447 LineComal80 {
0x143a…1447 ptr = 0xaa35 // 0x143a @0x0
0x143a…1447 lno = 0x05dc // 0x143c @0x2
0x143a…1447 at0004 = ╱86╱ LET ╱ // 0x143e @0x4
0x143a…1447 at0005 = ╱4c╱L╱ // 0x143f @0x5
0x143a…1447 at0006 = ╱4f╱O╱ // 0x1440 @0x6
0x143a…1447 at0007 = ╱57╱W╱ // 0x1441 @0x7
0x143a…1447 at0008 = ╱f0╱ := ╱ // 0x1442 @0x8
0x143a…1447 at0009 = ╱50╱P╱ // 0x1443 @0x9
0x143a…1447 at000a = ╱4f╱O╱ // 0x1444 @0xa
0x143a…1447 at000b = ╱53╱S╱ // 0x1445 @0xb
0x143a…1447 at000c = EOL // 0x1446 @0xc
0x143a…1447 }
0x1447…144d aa3b 1510 ENDIF
0x1447…144d LineComal80 {
0x1447…144d ptr = 0xaa3b // 0x1447 @0x0
0x1447…144d lno = 0x05e6 // 0x1449 @0x2
0x1447…144d at0004 = ╱9c╱ ENDIF ╱ // 0x144b @0x4
0x1447…144d at0005 = EOL // 0x144c @0x5
0x1447…144d }
0x144d…1453 aa41 1520 ENDIF
0x144d…1453 LineComal80 {
0x144d…1453 ptr = 0xaa41 // 0x144d @0x0
0x144d…1453 lno = 0x05f0 // 0x144f @0x2
0x144d…1453 at0004 = ╱9c╱ ENDIF ╱ // 0x1451 @0x4
0x144d…1453 at0005 = EOL // 0x1452 @0x5
0x144d…1453 }
0x1453…1476 aa64 1530 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
0x1453…1476 LineComal80 {
0x1453…1476 ptr = 0xaa64 // 0x1453 @0x0
0x1453…1476 lno = 0x05fa // 0x1455 @0x2
0x1453…1476 at0004 = ╱98╱ UNTIL ╱ // 0x1457 @0x4
0x1453…1476 at0005 = ╱48╱H╱ // 0x1458 @0x5
0x1453…1476 at0006 = ╱49╱I╱ // 0x1459 @0x6
0x1453…1476 at0007 = ╱47╱G╱ // 0x145a @0x7
0x1453…1476 at0008 = ╱48╱H╱ // 0x145b @0x8
0x1453…1476 at0009 = ╱e6╱ - ╱ // 0x145c @0x9
0x1453…1476 at000a = ╱4c╱L╱ // 0x145d @0xa
0x1453…1476 at000b = ╱4f╱O╱ // 0x145e @0xb
0x1453…1476 at000c = ╱57╱W╱ // 0x145f @0xc
0x1453…1476 at000d = ╱e2╱ =< ╱ // 0x1460 @0xd
0x1453…1476 at000e = ╱31╱1╱ // 0x1461 @0xe
0x1453…1476 at000f = ╱f20100╱ // 0x1462 @0xf
0x1453…1476 at0012 = ╱d8╱ OR ╱ // 0x1465 @0x12
0x1453…1476 at0013 = ╱52╱R╱ // 0x1466 @0x13
0x1453…1476 at0014 = ╱5f╱_╱ // 0x1467 @0x14
0x1453…1476 at0015 = ╱4b╱K╱ // 0x1468 @0x15
0x1453…1476 at0016 = ╱54╱T╱ // 0x1469 @0x16
0x1453…1476 at0017 = ╱4f╱O╱ // 0x146a @0x17
0x1453…1476 at0018 = ╱4e╱N╱ // 0x146b @0x18
0x1453…1476 at0019 = ╱52╱R╱ // 0x146c @0x19
0x1453…1476 at001a = ╱ef╱$╱ // 0x146d @0x1a
0x1453…1476 at001b = ╱df╱ = ╱ // 0x146e @0x1b
0x1453…1476 at001c = ╱4b╱K╱ // 0x146f @0x1c
0x1453…1476 at001d = ╱54╱T╱ // 0x1470 @0x1d
0x1453…1476 at001e = ╱4f╱O╱ // 0x1471 @0x1e
0x1453…1476 at001f = ╱4e╱N╱ // 0x1472 @0x1f
0x1453…1476 at0020 = ╱52╱R╱ // 0x1473 @0x20
0x1453…1476 at0021 = ╱ef╱$╱ // 0x1474 @0x21
0x1453…1476 at0022 = EOL // 0x1475 @0x22
0x1453…1476 }
0x1476…14a2 aa90 1540 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x1476…14a2 LineComal80 {
0x1476…14a2 ptr = 0xaa90 // 0x1476 @0x0
0x1476…14a2 lno = 0x0604 // 0x1478 @0x2
0x1476…14a2 at0004 = ╱86╱ LET ╱ // 0x147a @0x4
0x1476…14a2 at0005 = ╱50╱P╱ // 0x147b @0x5
0x1476…14a2 at0006 = ╱4f╱O╱ // 0x147c @0x6
0x1476…14a2 at0007 = ╱53╱S╱ // 0x147d @0x7
0x1476…14a2 at0008 = ╱f0╱ := ╱ // 0x147e @0x8
0x1476…14a2 at0009 = ╱c6╱INT╱ // 0x147f @0x9
0x1476…14a2 at000a = ╱ed╱(╱ // 0x1480 @0xa
0x1476…14a2 at000b = ╱ed╱(╱ // 0x1481 @0xb
0x1476…14a2 at000c = ╱48╱H╱ // 0x1482 @0xc
0x1476…14a2 at000d = ╱49╱I╱ // 0x1483 @0xd
0x1476…14a2 at000e = ╱47╱G╱ // 0x1484 @0xe
0x1476…14a2 at000f = ╱48╱H╱ // 0x1485 @0xf
0x1476…14a2 at0010 = ╱e6╱ - ╱ // 0x1486 @0x10
0x1476…14a2 at0011 = ╱4c╱L╱ // 0x1487 @0x11
0x1476…14a2 at0012 = ╱4f╱O╱ // 0x1488 @0x12
0x1476…14a2 at0013 = ╱57╱W╱ // 0x1489 @0x13
0x1476…14a2 at0014 = ╱ee╱)╱ // 0x148a @0x14
0x1476…14a2 at0015 = ╱e8╱ / ╱ // 0x148b @0x15
0x1476…14a2 at0016 = ╱32╱2╱ // 0x148c @0x16
0x1476…14a2 at0017 = ╱f20200╱ // 0x148d @0x17
0x1476…14a2 at001a = ╱e5╱ + ╱ // 0x1490 @0x1a
0x1476…14a2 at001b = ╱2e╱.╱ // 0x1491 @0x1b
0x1476…14a2 at001c = ╱35╱5╱ // 0x1492 @0x1c
0x1476…14a2 at001d = ╱f88000000000000005╱ // 0x1493 @0x1d
0x1476…14a2 at0026 = ╱ee╱)╱ // 0x149c @0x26
0x1476…14a2 at0027 = ╱e5╱ + ╱ // 0x149d @0x27
0x1476…14a2 at0028 = ╱4c╱L╱ // 0x149e @0x28
0x1476…14a2 at0029 = ╱4f╱O╱ // 0x149f @0x29
0x1476…14a2 at002a = ╱57╱W╱ // 0x14a0 @0x2a
0x1476…14a2 at002b = EOL // 0x14a1 @0x2b
0x1476…14a2 }
0x14a2…14c0 aaae 1550 GET KTOIDX$,POS : KTONR$,RECNR
0x14a2…14c0 LineComal80 {
0x14a2…14c0 ptr = 0xaaae // 0x14a2 @0x0
0x14a2…14c0 lno = 0x060e // 0x14a4 @0x2
0x14a2…14c0 at0004 = ╱a9╱ GET ╱ // 0x14a6 @0x4
0x14a2…14c0 at0005 = ╱4b╱K╱ // 0x14a7 @0x5
0x14a2…14c0 at0006 = ╱54╱T╱ // 0x14a8 @0x6
0x14a2…14c0 at0007 = ╱4f╱O╱ // 0x14a9 @0x7
0x14a2…14c0 at0008 = ╱49╱I╱ // 0x14aa @0x8
0x14a2…14c0 at0009 = ╱44╱D╱ // 0x14ab @0x9
0x14a2…14c0 at000a = ╱58╱X╱ // 0x14ac @0xa
0x14a2…14c0 at000b = ╱ef╱$╱ // 0x14ad @0xb
0x14a2…14c0 at000c = ╱ec╱,╱ // 0x14ae @0xc
0x14a2…14c0 at000d = ╱50╱P╱ // 0x14af @0xd
0x14a2…14c0 at000e = ╱4f╱O╱ // 0x14b0 @0xe
0x14a2…14c0 at000f = ╱53╱S╱ // 0x14b1 @0xf
0x14a2…14c0 at0010 = ╱f1╱ : ╱ // 0x14b2 @0x10
0x14a2…14c0 at0011 = ╱4b╱K╱ // 0x14b3 @0x11
0x14a2…14c0 at0012 = ╱54╱T╱ // 0x14b4 @0x12
0x14a2…14c0 at0013 = ╱4f╱O╱ // 0x14b5 @0x13
0x14a2…14c0 at0014 = ╱4e╱N╱ // 0x14b6 @0x14
0x14a2…14c0 at0015 = ╱52╱R╱ // 0x14b7 @0x15
0x14a2…14c0 at0016 = ╱ef╱$╱ // 0x14b8 @0x16
0x14a2…14c0 at0017 = ╱ec╱,╱ // 0x14b9 @0x17
0x14a2…14c0 at0018 = ╱52╱R╱ // 0x14ba @0x18
0x14a2…14c0 at0019 = ╱45╱E╱ // 0x14bb @0x19
0x14a2…14c0 at001a = ╱43╱C╱ // 0x14bc @0x1a
0x14a2…14c0 at001b = ╱4e╱N╱ // 0x14bd @0x1b
0x14a2…14c0 at001c = ╱52╱R╱ // 0x14be @0x1c
0x14a2…14c0 at001d = EOL // 0x14bf @0x1d
0x14a2…14c0 }
0x14c0…14df aacd 1560 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
0x14c0…14df LineComal80 {
0x14c0…14df ptr = 0xaacd // 0x14c0 @0x0
0x14c0…14df lno = 0x0618 // 0x14c2 @0x2
0x14c0…14df at0004 = ╱8200╱ IF ╱ // 0x14c4 @0x4
0x14c0…14df at0006 = ╱4b╱K╱ // 0x14c6 @0x6
0x14c0…14df at0007 = ╱54╱T╱ // 0x14c7 @0x7
0x14c0…14df at0008 = ╱4f╱O╱ // 0x14c8 @0x8
0x14c0…14df at0009 = ╱4e╱N╱ // 0x14c9 @0x9
0x14c0…14df at000a = ╱52╱R╱ // 0x14ca @0xa
0x14c0…14df at000b = ╱ef╱$╱ // 0x14cb @0xb
0x14c0…14df at000c = ╱df╱ = ╱ // 0x14cc @0xc
0x14c0…14df at000d = ╱52╱R╱ // 0x14cd @0xd
0x14c0…14df at000e = ╱5f╱_╱ // 0x14ce @0xe
0x14c0…14df at000f = ╱4b╱K╱ // 0x14cf @0xf
0x14c0…14df at0010 = ╱54╱T╱ // 0x14d0 @0x10
0x14c0…14df at0011 = ╱4f╱O╱ // 0x14d1 @0x11
0x14c0…14df at0012 = ╱4e╱N╱ // 0x14d2 @0x12
0x14c0…14df at0013 = ╱52╱R╱ // 0x14d3 @0x13
0x14c0…14df at0014 = ╱ef╱$╱ // 0x14d4 @0x14
0x14c0…14df at0015 = ╱b5╱ THEN ╱ // 0x14d5 @0x15
0x14c0…14df at0016 = ╱86╱ LET ╱ // 0x14d6 @0x16
0x14c0…14df at0017 = ╱4f╱O╱ // 0x14d7 @0x17
0x14c0…14df at0018 = ╱4b╱K╱ // 0x14d8 @0x18
0x14c0…14df at0019 = ╱f0╱ := ╱ // 0x14d9 @0x19
0x14c0…14df at001a = ╱54╱T╱ // 0x14da @0x1a
0x14c0…14df at001b = ╱52╱R╱ // 0x14db @0x1b
0x14c0…14df at001c = ╱55╱U╱ // 0x14dc @0x1c
0x14c0…14df at001d = ╱45╱E╱ // 0x14dd @0x1d
0x14c0…14df at001e = EOL // 0x14de @0x1e
0x14c0…14df }
0x14df…1510 aafe 1570 IF KTONR$ < R_KTONR$ AND POS = I_HØJREC THEN LET POS := POS + 1
0x14df…1510 LineComal80 {
0x14df…1510 ptr = 0xaafe // 0x14df @0x0
0x14df…1510 lno = 0x0622 // 0x14e1 @0x2
0x14df…1510 at0004 = ╱8200╱ IF ╱ // 0x14e3 @0x4
0x14df…1510 at0006 = ╱4b╱K╱ // 0x14e5 @0x6
0x14df…1510 at0007 = ╱54╱T╱ // 0x14e6 @0x7
0x14df…1510 at0008 = ╱4f╱O╱ // 0x14e7 @0x8
0x14df…1510 at0009 = ╱4e╱N╱ // 0x14e8 @0x9
0x14df…1510 at000a = ╱52╱R╱ // 0x14e9 @0xa
0x14df…1510 at000b = ╱ef╱$╱ // 0x14ea @0xb
0x14df…1510 at000c = ╱e0╱ < ╱ // 0x14eb @0xc
0x14df…1510 at000d = ╱52╱R╱ // 0x14ec @0xd
0x14df…1510 at000e = ╱5f╱_╱ // 0x14ed @0xe
0x14df…1510 at000f = ╱4b╱K╱ // 0x14ee @0xf
0x14df…1510 at0010 = ╱54╱T╱ // 0x14ef @0x10
0x14df…1510 at0011 = ╱4f╱O╱ // 0x14f0 @0x11
0x14df…1510 at0012 = ╱4e╱N╱ // 0x14f1 @0x12
0x14df…1510 at0013 = ╱52╱R╱ // 0x14f2 @0x13
0x14df…1510 at0014 = ╱ef╱$╱ // 0x14f3 @0x14
0x14df…1510 at0015 = ╱d9╱ AND ╱ // 0x14f4 @0x15
0x14df…1510 at0016 = ╱50╱P╱ // 0x14f5 @0x16
0x14df…1510 at0017 = ╱4f╱O╱ // 0x14f6 @0x17
0x14df…1510 at0018 = ╱53╱S╱ // 0x14f7 @0x18
0x14df…1510 at0019 = ╱df╱ = ╱ // 0x14f8 @0x19
0x14df…1510 at001a = ╱49╱I╱ // 0x14f9 @0x1a
0x14df…1510 at001b = ╱5f╱_╱ // 0x14fa @0x1b
0x14df…1510 at001c = ╱48╱H╱ // 0x14fb @0x1c
0x14df…1510 at001d = ╱5c╱Ø╱ // 0x14fc @0x1d
0x14df…1510 at001e = ╱4a╱J╱ // 0x14fd @0x1e
0x14df…1510 at001f = ╱52╱R╱ // 0x14fe @0x1f
0x14df…1510 at0020 = ╱45╱E╱ // 0x14ff @0x20
0x14df…1510 at0021 = ╱43╱C╱ // 0x1500 @0x21
0x14df…1510 at0022 = ╱b5╱ THEN ╱ // 0x1501 @0x22
0x14df…1510 at0023 = ╱86╱ LET ╱ // 0x1502 @0x23
0x14df…1510 at0024 = ╱50╱P╱ // 0x1503 @0x24
0x14df…1510 at0025 = ╱4f╱O╱ // 0x1504 @0x25
0x14df…1510 at0026 = ╱53╱S╱ // 0x1505 @0x26
0x14df…1510 at0027 = ╱f0╱ := ╱ // 0x1506 @0x27
0x14df…1510 at0028 = ╱50╱P╱ // 0x1507 @0x28
0x14df…1510 at0029 = ╱4f╱O╱ // 0x1508 @0x29
0x14df…1510 at002a = ╱53╱S╱ // 0x1509 @0x2a
0x14df…1510 at002b = ╱e5╱ + ╱ // 0x150a @0x2b
0x14df…1510 at002c = ╱31╱1╱ // 0x150b @0x2c
0x14df…1510 at002d = ╱f20100╱ // 0x150c @0x2d
0x14df…1510 at0030 = EOL // 0x150f @0x30
0x14df…1510 }
0x1510…1516 ab04 1580 ENDIF
0x1510…1516 LineComal80 {
0x1510…1516 ptr = 0xab04 // 0x1510 @0x0
0x1510…1516 lno = 0x062c // 0x1512 @0x2
0x1510…1516 at0004 = ╱9c╱ ENDIF ╱ // 0x1514 @0x4
0x1510…1516 at0005 = EOL // 0x1515 @0x5
0x1510…1516 }
0x1516…1528 ab16 1590 LET FIND_KTO := POS
0x1516…1528 LineComal80 {
0x1516…1528 ptr = 0xab16 // 0x1516 @0x0
0x1516…1528 lno = 0x0636 // 0x1518 @0x2
0x1516…1528 at0004 = ╱86╱ LET ╱ // 0x151a @0x4
0x1516…1528 at0005 = ╱46╱F╱ // 0x151b @0x5
0x1516…1528 at0006 = ╱49╱I╱ // 0x151c @0x6
0x1516…1528 at0007 = ╱4e╱N╱ // 0x151d @0x7
0x1516…1528 at0008 = ╱44╱D╱ // 0x151e @0x8
0x1516…1528 at0009 = ╱5f╱_╱ // 0x151f @0x9
0x1516…1528 at000a = ╱4b╱K╱ // 0x1520 @0xa
0x1516…1528 at000b = ╱54╱T╱ // 0x1521 @0xb
0x1516…1528 at000c = ╱4f╱O╱ // 0x1522 @0xc
0x1516…1528 at000d = ╱f0╱ := ╱ // 0x1523 @0xd
0x1516…1528 at000e = ╱50╱P╱ // 0x1524 @0xe
0x1516…1528 at000f = ╱4f╱O╱ // 0x1525 @0xf
0x1516…1528 at0010 = ╱53╱S╱ // 0x1526 @0x10
0x1516…1528 at0011 = EOL // 0x1527 @0x11
0x1516…1528 }
0x1528…1536 bf9b 1600 ENDPROC FIND_KTO
0x1528…1536 LineComal80 {
0x1528…1536 ptr = 0xbf9b // 0x1528 @0x0
0x1528…1536 lno = 0x0640 // 0x152a @0x2
0x1528…1536 at0004 = ╱9f╱ ENDPROC ╱ // 0x152c @0x4
0x1528…1536 at0005 = ╱46╱F╱ // 0x152d @0x5
0x1528…1536 at0006 = ╱49╱I╱ // 0x152e @0x6
0x1528…1536 at0007 = ╱4e╱N╱ // 0x152f @0x7
0x1528…1536 at0008 = ╱44╱D╱ // 0x1530 @0x8
0x1528…1536 at0009 = ╱5f╱_╱ // 0x1531 @0x9
0x1528…1536 at000a = ╱4b╱K╱ // 0x1532 @0xa
0x1528…1536 at000b = ╱54╱T╱ // 0x1533 @0xb
0x1528…1536 at000c = ╱4f╱O╱ // 0x1534 @0xc
0x1528…1536 at000d = EOL // 0x1535 @0xd
0x1528…1536 }
0x1536…1550 ab3e 2000 PROC SAMMENTÆL( REF SAMFIL$)
0x1536…1550 LineComal80 {
0x1536…1550 ptr = 0xab3e // 0x1536 @0x0
0x1536…1550 lno = 0x07d0 // 0x1538 @0x2
0x1536…1550 at0004 = ╱9e00╱ PROC ╱ // 0x153a @0x4
0x1536…1550 at0006 = ╱53╱S╱ // 0x153c @0x6
0x1536…1550 at0007 = ╱41╱A╱ // 0x153d @0x7
0x1536…1550 at0008 = ╱4d╱M╱ // 0x153e @0x8
0x1536…1550 at0009 = ╱4d╱M╱ // 0x153f @0x9
0x1536…1550 at000a = ╱45╱E╱ // 0x1540 @0xa
0x1536…1550 at000b = ╱4e╱N╱ // 0x1541 @0xb
0x1536…1550 at000c = ╱54╱T╱ // 0x1542 @0xc
0x1536…1550 at000d = ╱5b╱Æ╱ // 0x1543 @0xd
0x1536…1550 at000e = ╱4c╱L╱ // 0x1544 @0xe
0x1536…1550 at000f = ╱ed╱(╱ // 0x1545 @0xf
0x1536…1550 at0010 = ╱b6╱ REF ╱ // 0x1546 @0x10
0x1536…1550 at0011 = ╱53╱S╱ // 0x1547 @0x11
0x1536…1550 at0012 = ╱41╱A╱ // 0x1548 @0x12
0x1536…1550 at0013 = ╱4d╱M╱ // 0x1549 @0x13
0x1536…1550 at0014 = ╱46╱F╱ // 0x154a @0x14
0x1536…1550 at0015 = ╱49╱I╱ // 0x154b @0x15
0x1536…1550 at0016 = ╱4c╱L╱ // 0x154c @0x16
0x1536…1550 at0017 = ╱ef╱$╱ // 0x154d @0x17
0x1536…1550 at0018 = ╱ee╱)╱ // 0x154e @0x18
0x1536…1550 at0019 = EOL // 0x154f @0x19
0x1536…1550 }
0x1550…156a ab58 2010 EXEC OPENFIL(SAMFIL$,"R")
0x1550…156a LineComal80 {
0x1550…156a ptr = 0xab58 // 0x1550 @0x0
0x1550…156a lno = 0x07da // 0x1552 @0x2
0x1550…156a at0004 = ╱9d╱ EXEC ╱ // 0x1554 @0x4
0x1550…156a at0005 = ╱4f╱O╱ // 0x1555 @0x5
0x1550…156a at0006 = ╱50╱P╱ // 0x1556 @0x6
0x1550…156a at0007 = ╱45╱E╱ // 0x1557 @0x7
0x1550…156a at0008 = ╱4e╱N╱ // 0x1558 @0x8
0x1550…156a at0009 = ╱46╱F╱ // 0x1559 @0x9
0x1550…156a at000a = ╱49╱I╱ // 0x155a @0xa
0x1550…156a at000b = ╱4c╱L╱ // 0x155b @0xb
0x1550…156a at000c = ╱ed╱(╱ // 0x155c @0xc
0x1550…156a at000d = ╱53╱S╱ // 0x155d @0xd
0x1550…156a at000e = ╱41╱A╱ // 0x155e @0xe
0x1550…156a at000f = ╱4d╱M╱ // 0x155f @0xf
0x1550…156a at0010 = ╱46╱F╱ // 0x1560 @0x10
0x1550…156a at0011 = ╱49╱I╱ // 0x1561 @0x11
0x1550…156a at0012 = ╱4c╱L╱ // 0x1562 @0x12
0x1550…156a at0013 = ╱ef╱$╱ // 0x1563 @0x13
0x1550…156a at0014 = ╱ec╱,╱ // 0x1564 @0x14
0x1550…156a at0015 = ╱22╱"╱ // 0x1565 @0x15
0x1550…156a at0016 = ╱52╱R╱ // 0x1566 @0x16
0x1550…156a at0017 = ╱22╱"╱ // 0x1567 @0x17
0x1550…156a at0018 = ╱ee╱)╱ // 0x1568 @0x18
0x1550…156a at0019 = EOL // 0x1569 @0x19
0x1550…156a }
0x156a…157d ab6b 2020 GET SAMFIL$ : SALDO
0x156a…157d LineComal80 {
0x156a…157d ptr = 0xab6b // 0x156a @0x0
0x156a…157d lno = 0x07e4 // 0x156c @0x2
0x156a…157d at0004 = ╱a9╱ GET ╱ // 0x156e @0x4
0x156a…157d at0005 = ╱53╱S╱ // 0x156f @0x5
0x156a…157d at0006 = ╱41╱A╱ // 0x1570 @0x6
0x156a…157d at0007 = ╱4d╱M╱ // 0x1571 @0x7
0x156a…157d at0008 = ╱46╱F╱ // 0x1572 @0x8
0x156a…157d at0009 = ╱49╱I╱ // 0x1573 @0x9
0x156a…157d at000a = ╱4c╱L╱ // 0x1574 @0xa
0x156a…157d at000b = ╱ef╱$╱ // 0x1575 @0xb
0x156a…157d at000c = ╱f1╱ : ╱ // 0x1576 @0xc
0x156a…157d at000d = ╱53╱S╱ // 0x1577 @0xd
0x156a…157d at000e = ╱41╱A╱ // 0x1578 @0xe
0x156a…157d at000f = ╱4c╱L╱ // 0x1579 @0xf
0x156a…157d at0010 = ╱44╱D╱ // 0x157a @0x10
0x156a…157d at0011 = ╱4f╱O╱ // 0x157b @0x11
0x156a…157d at0012 = EOL // 0x157c @0x12
0x156a…157d }
0x157d…158d ab7b 2030 LET SALDO := 0
0x157d…158d LineComal80 {
0x157d…158d ptr = 0xab7b // 0x157d @0x0
0x157d…158d lno = 0x07ee // 0x157f @0x2
0x157d…158d at0004 = ╱86╱ LET ╱ // 0x1581 @0x4
0x157d…158d at0005 = ╱53╱S╱ // 0x1582 @0x5
0x157d…158d at0006 = ╱41╱A╱ // 0x1583 @0x6
0x157d…158d at0007 = ╱4c╱L╱ // 0x1584 @0x7
0x157d…158d at0008 = ╱44╱D╱ // 0x1585 @0x8
0x157d…158d at0009 = ╱4f╱O╱ // 0x1586 @0x9
0x157d…158d at000a = ╱f0╱ := ╱ // 0x1587 @0xa
0x157d…158d at000b = ╱30╱0╱ // 0x1588 @0xb
0x157d…158d at000c = ╱f20000╱ // 0x1589 @0xc
0x157d…158d at000f = EOL // 0x158c @0xf
0x157d…158d }
0x158d…15a3 ab91 2040 GET SAMFIL$ : S_KTONR$
0x158d…15a3 LineComal80 {
0x158d…15a3 ptr = 0xab91 // 0x158d @0x0
0x158d…15a3 lno = 0x07f8 // 0x158f @0x2
0x158d…15a3 at0004 = ╱a9╱ GET ╱ // 0x1591 @0x4
0x158d…15a3 at0005 = ╱53╱S╱ // 0x1592 @0x5
0x158d…15a3 at0006 = ╱41╱A╱ // 0x1593 @0x6
0x158d…15a3 at0007 = ╱4d╱M╱ // 0x1594 @0x7
0x158d…15a3 at0008 = ╱46╱F╱ // 0x1595 @0x8
0x158d…15a3 at0009 = ╱49╱I╱ // 0x1596 @0x9
0x158d…15a3 at000a = ╱4c╱L╱ // 0x1597 @0xa
0x158d…15a3 at000b = ╱ef╱$╱ // 0x1598 @0xb
0x158d…15a3 at000c = ╱f1╱ : ╱ // 0x1599 @0xc
0x158d…15a3 at000d = ╱53╱S╱ // 0x159a @0xd
0x158d…15a3 at000e = ╱5f╱_╱ // 0x159b @0xe
0x158d…15a3 at000f = ╱4b╱K╱ // 0x159c @0xf
0x158d…15a3 at0010 = ╱54╱T╱ // 0x159d @0x10
0x158d…15a3 at0011 = ╱4f╱O╱ // 0x159e @0x11
0x158d…15a3 at0012 = ╱4e╱N╱ // 0x159f @0x12
0x158d…15a3 at0013 = ╱52╱R╱ // 0x15a0 @0x13
0x158d…15a3 at0014 = ╱ef╱$╱ // 0x15a1 @0x14
0x158d…15a3 at0015 = EOL // 0x15a2 @0x15
0x158d…15a3 }
0x15a3…15b6 aba4 2050 WHILE NOT ╱cd╱ (SAMFIL$) DO
0x15a3…15b6 LineComal80 {
0x15a3…15b6 ptr = 0xaba4 // 0x15a3 @0x0
0x15a3…15b6 lno = 0x0802 // 0x15a5 @0x2
0x15a3…15b6 at0004 = ╱9300╱ WHILE ╱ // 0x15a7 @0x4
0x15a3…15b6 at0006 = ╱d7╱ NOT ╱ // 0x15a9 @0x6
0x15a3…15b6 at0007 = ╱cd╱ // 0x15aa @0x7
0x15a3…15b6 at0008 = ╱ed╱(╱ // 0x15ab @0x8
0x15a3…15b6 at0009 = ╱53╱S╱ // 0x15ac @0x9
0x15a3…15b6 at000a = ╱41╱A╱ // 0x15ad @0xa
0x15a3…15b6 at000b = ╱4d╱M╱ // 0x15ae @0xb
0x15a3…15b6 at000c = ╱46╱F╱ // 0x15af @0xc
0x15a3…15b6 at000d = ╱49╱I╱ // 0x15b0 @0xd
0x15a3…15b6 at000e = ╱4c╱L╱ // 0x15b1 @0xe
0x15a3…15b6 at000f = ╱ef╱$╱ // 0x15b2 @0xf
0x15a3…15b6 at0010 = ╱ee╱)╱ // 0x15b3 @0x10
0x15a3…15b6 at0011 = ╱bb╱ DO ╱ // 0x15b4 @0x11
0x15a3…15b6 at0012 = EOL // 0x15b5 @0x12
0x15a3…15b6 }
0x15b6…15d5 abc3 2060 LET IDXPOS := FIND_KTO(S_KTONR$)
0x15b6…15d5 LineComal80 {
0x15b6…15d5 ptr = 0xabc3 // 0x15b6 @0x0
0x15b6…15d5 lno = 0x080c // 0x15b8 @0x2
0x15b6…15d5 at0004 = ╱86╱ LET ╱ // 0x15ba @0x4
0x15b6…15d5 at0005 = ╱49╱I╱ // 0x15bb @0x5
0x15b6…15d5 at0006 = ╱44╱D╱ // 0x15bc @0x6
0x15b6…15d5 at0007 = ╱58╱X╱ // 0x15bd @0x7
0x15b6…15d5 at0008 = ╱50╱P╱ // 0x15be @0x8
0x15b6…15d5 at0009 = ╱4f╱O╱ // 0x15bf @0x9
0x15b6…15d5 at000a = ╱53╱S╱ // 0x15c0 @0xa
0x15b6…15d5 at000b = ╱f0╱ := ╱ // 0x15c1 @0xb
0x15b6…15d5 at000c = ╱46╱F╱ // 0x15c2 @0xc
0x15b6…15d5 at000d = ╱49╱I╱ // 0x15c3 @0xd
0x15b6…15d5 at000e = ╱4e╱N╱ // 0x15c4 @0xe
0x15b6…15d5 at000f = ╱44╱D╱ // 0x15c5 @0xf
0x15b6…15d5 at0010 = ╱5f╱_╱ // 0x15c6 @0x10
0x15b6…15d5 at0011 = ╱4b╱K╱ // 0x15c7 @0x11
0x15b6…15d5 at0012 = ╱54╱T╱ // 0x15c8 @0x12
0x15b6…15d5 at0013 = ╱4f╱O╱ // 0x15c9 @0x13
0x15b6…15d5 at0014 = ╱ed╱(╱ // 0x15ca @0x14
0x15b6…15d5 at0015 = ╱53╱S╱ // 0x15cb @0x15
0x15b6…15d5 at0016 = ╱5f╱_╱ // 0x15cc @0x16
0x15b6…15d5 at0017 = ╱4b╱K╱ // 0x15cd @0x17
0x15b6…15d5 at0018 = ╱54╱T╱ // 0x15ce @0x18
0x15b6…15d5 at0019 = ╱4f╱O╱ // 0x15cf @0x19
0x15b6…15d5 at001a = ╱4e╱N╱ // 0x15d0 @0x1a
0x15b6…15d5 at001b = ╱52╱R╱ // 0x15d1 @0x1b
0x15b6…15d5 at001c = ╱ef╱$╱ // 0x15d2 @0x1c
0x15b6…15d5 at001d = ╱ee╱)╱ // 0x15d3 @0x1d
0x15b6…15d5 at001e = EOL // 0x15d4 @0x1e
0x15b6…15d5 }
0x15d5…15f6 abe4 2070 GET KTOIDX$,IDXPOS : KTONR$,RECNR
0x15d5…15f6 LineComal80 {
0x15d5…15f6 ptr = 0xabe4 // 0x15d5 @0x0
0x15d5…15f6 lno = 0x0816 // 0x15d7 @0x2
0x15d5…15f6 at0004 = ╱a9╱ GET ╱ // 0x15d9 @0x4
0x15d5…15f6 at0005 = ╱4b╱K╱ // 0x15da @0x5
0x15d5…15f6 at0006 = ╱54╱T╱ // 0x15db @0x6
0x15d5…15f6 at0007 = ╱4f╱O╱ // 0x15dc @0x7
0x15d5…15f6 at0008 = ╱49╱I╱ // 0x15dd @0x8
0x15d5…15f6 at0009 = ╱44╱D╱ // 0x15de @0x9
0x15d5…15f6 at000a = ╱58╱X╱ // 0x15df @0xa
0x15d5…15f6 at000b = ╱ef╱$╱ // 0x15e0 @0xb
0x15d5…15f6 at000c = ╱ec╱,╱ // 0x15e1 @0xc
0x15d5…15f6 at000d = ╱49╱I╱ // 0x15e2 @0xd
0x15d5…15f6 at000e = ╱44╱D╱ // 0x15e3 @0xe
0x15d5…15f6 at000f = ╱58╱X╱ // 0x15e4 @0xf
0x15d5…15f6 at0010 = ╱50╱P╱ // 0x15e5 @0x10
0x15d5…15f6 at0011 = ╱4f╱O╱ // 0x15e6 @0x11
0x15d5…15f6 at0012 = ╱53╱S╱ // 0x15e7 @0x12
0x15d5…15f6 at0013 = ╱f1╱ : ╱ // 0x15e8 @0x13
0x15d5…15f6 at0014 = ╱4b╱K╱ // 0x15e9 @0x14
0x15d5…15f6 at0015 = ╱54╱T╱ // 0x15ea @0x15
0x15d5…15f6 at0016 = ╱4f╱O╱ // 0x15eb @0x16
0x15d5…15f6 at0017 = ╱4e╱N╱ // 0x15ec @0x17
0x15d5…15f6 at0018 = ╱52╱R╱ // 0x15ed @0x18
0x15d5…15f6 at0019 = ╱ef╱$╱ // 0x15ee @0x19
0x15d5…15f6 at001a = ╱ec╱,╱ // 0x15ef @0x1a
0x15d5…15f6 at001b = ╱52╱R╱ // 0x15f0 @0x1b
0x15d5…15f6 at001c = ╱45╱E╱ // 0x15f1 @0x1c
0x15d5…15f6 at001d = ╱43╱C╱ // 0x15f2 @0x1d
0x15d5…15f6 at001e = ╱4e╱N╱ // 0x15f3 @0x1e
0x15d5…15f6 at001f = ╱52╱R╱ // 0x15f4 @0x1f
0x15d5…15f6 at0020 = EOL // 0x15f5 @0x20
0x15d5…15f6 }
0x15f6…161f ac0d 2080 WHILE S_KTONR$ = KTONR$(1 : ╱cb╱ (S_KTONR$)) DO
0x15f6…161f LineComal80 {
0x15f6…161f ptr = 0xac0d // 0x15f6 @0x0
0x15f6…161f lno = 0x0820 // 0x15f8 @0x2
0x15f6…161f at0004 = ╱9300╱ WHILE ╱ // 0x15fa @0x4
0x15f6…161f at0006 = ╱53╱S╱ // 0x15fc @0x6
0x15f6…161f at0007 = ╱5f╱_╱ // 0x15fd @0x7
0x15f6…161f at0008 = ╱4b╱K╱ // 0x15fe @0x8
0x15f6…161f at0009 = ╱54╱T╱ // 0x15ff @0x9
0x15f6…161f at000a = ╱4f╱O╱ // 0x1600 @0xa
0x15f6…161f at000b = ╱4e╱N╱ // 0x1601 @0xb
0x15f6…161f at000c = ╱52╱R╱ // 0x1602 @0xc
0x15f6…161f at000d = ╱ef╱$╱ // 0x1603 @0xd
0x15f6…161f at000e = ╱df╱ = ╱ // 0x1604 @0xe
0x15f6…161f at000f = ╱4b╱K╱ // 0x1605 @0xf
0x15f6…161f at0010 = ╱54╱T╱ // 0x1606 @0x10
0x15f6…161f at0011 = ╱4f╱O╱ // 0x1607 @0x11
0x15f6…161f at0012 = ╱4e╱N╱ // 0x1608 @0x12
0x15f6…161f at0013 = ╱52╱R╱ // 0x1609 @0x13
0x15f6…161f at0014 = ╱ef╱$╱ // 0x160a @0x14
0x15f6…161f at0015 = ╱ed╱(╱ // 0x160b @0x15
0x15f6…161f at0016 = ╱31╱1╱ // 0x160c @0x16
0x15f6…161f at0017 = ╱f20100╱ // 0x160d @0x17
0x15f6…161f at001a = ╱f1╱ : ╱ // 0x1610 @0x1a
0x15f6…161f at001b = ╱cb╱ // 0x1611 @0x1b
0x15f6…161f at001c = ╱ed╱(╱ // 0x1612 @0x1c
0x15f6…161f at001d = ╱53╱S╱ // 0x1613 @0x1d
0x15f6…161f at001e = ╱5f╱_╱ // 0x1614 @0x1e
0x15f6…161f at001f = ╱4b╱K╱ // 0x1615 @0x1f
0x15f6…161f at0020 = ╱54╱T╱ // 0x1616 @0x20
0x15f6…161f at0021 = ╱4f╱O╱ // 0x1617 @0x21
0x15f6…161f at0022 = ╱4e╱N╱ // 0x1618 @0x22
0x15f6…161f at0023 = ╱52╱R╱ // 0x1619 @0x23
0x15f6…161f at0024 = ╱ef╱$╱ // 0x161a @0x24
0x15f6…161f at0025 = ╱ee╱)╱ // 0x161b @0x25
0x15f6…161f at0026 = ╱ee╱)╱ // 0x161c @0x26
0x15f6…161f at0027 = ╱bb╱ DO ╱ // 0x161d @0x27
0x15f6…161f at0028 = EOL // 0x161e @0x28
0x15f6…161f }
0x161f…164a ac38 2090 GET DRIFTØ$,RECNR : DRIFT(1),DRIFT(2)
0x161f…164a LineComal80 {
0x161f…164a ptr = 0xac38 // 0x161f @0x0
0x161f…164a lno = 0x082a // 0x1621 @0x2
0x161f…164a at0004 = ╱a9╱ GET ╱ // 0x1623 @0x4
0x161f…164a at0005 = ╱44╱D╱ // 0x1624 @0x5
0x161f…164a at0006 = ╱52╱R╱ // 0x1625 @0x6
0x161f…164a at0007 = ╱49╱I╱ // 0x1626 @0x7
0x161f…164a at0008 = ╱46╱F╱ // 0x1627 @0x8
0x161f…164a at0009 = ╱54╱T╱ // 0x1628 @0x9
0x161f…164a at000a = ╱5c╱Ø╱ // 0x1629 @0xa
0x161f…164a at000b = ╱ef╱$╱ // 0x162a @0xb
0x161f…164a at000c = ╱ec╱,╱ // 0x162b @0xc
0x161f…164a at000d = ╱52╱R╱ // 0x162c @0xd
0x161f…164a at000e = ╱45╱E╱ // 0x162d @0xe
0x161f…164a at000f = ╱43╱C╱ // 0x162e @0xf
0x161f…164a at0010 = ╱4e╱N╱ // 0x162f @0x10
0x161f…164a at0011 = ╱52╱R╱ // 0x1630 @0x11
0x161f…164a at0012 = ╱f1╱ : ╱ // 0x1631 @0x12
0x161f…164a at0013 = ╱44╱D╱ // 0x1632 @0x13
0x161f…164a at0014 = ╱52╱R╱ // 0x1633 @0x14
0x161f…164a at0015 = ╱49╱I╱ // 0x1634 @0x15
0x161f…164a at0016 = ╱46╱F╱ // 0x1635 @0x16
0x161f…164a at0017 = ╱54╱T╱ // 0x1636 @0x17
0x161f…164a at0018 = ╱ed╱(╱ // 0x1637 @0x18
0x161f…164a at0019 = ╱31╱1╱ // 0x1638 @0x19
0x161f…164a at001a = ╱f20100╱ // 0x1639 @0x1a
0x161f…164a at001d = ╱ee╱)╱ // 0x163c @0x1d
0x161f…164a at001e = ╱ec╱,╱ // 0x163d @0x1e
0x161f…164a at001f = ╱44╱D╱ // 0x163e @0x1f
0x161f…164a at0020 = ╱52╱R╱ // 0x163f @0x20
0x161f…164a at0021 = ╱49╱I╱ // 0x1640 @0x21
0x161f…164a at0022 = ╱46╱F╱ // 0x1641 @0x22
0x161f…164a at0023 = ╱54╱T╱ // 0x1642 @0x23
0x161f…164a at0024 = ╱ed╱(╱ // 0x1643 @0x24
0x161f…164a at0025 = ╱32╱2╱ // 0x1644 @0x25
0x161f…164a at0026 = ╱f20200╱ // 0x1645 @0x26
0x161f…164a at0029 = ╱ee╱)╱ // 0x1648 @0x29
0x161f…164a at002a = EOL // 0x1649 @0x2a
0x161f…164a }
0x164a…1667 ac55 2100 LET SALDO := SALDO + DRIFT(2)
0x164a…1667 LineComal80 {
0x164a…1667 ptr = 0xac55 // 0x164a @0x0
0x164a…1667 lno = 0x0834 // 0x164c @0x2
0x164a…1667 at0004 = ╱86╱ LET ╱ // 0x164e @0x4
0x164a…1667 at0005 = ╱53╱S╱ // 0x164f @0x5
0x164a…1667 at0006 = ╱41╱A╱ // 0x1650 @0x6
0x164a…1667 at0007 = ╱4c╱L╱ // 0x1651 @0x7
0x164a…1667 at0008 = ╱44╱D╱ // 0x1652 @0x8
0x164a…1667 at0009 = ╱4f╱O╱ // 0x1653 @0x9
0x164a…1667 at000a = ╱f0╱ := ╱ // 0x1654 @0xa
0x164a…1667 at000b = ╱53╱S╱ // 0x1655 @0xb
0x164a…1667 at000c = ╱41╱A╱ // 0x1656 @0xc
0x164a…1667 at000d = ╱4c╱L╱ // 0x1657 @0xd
0x164a…1667 at000e = ╱44╱D╱ // 0x1658 @0xe
0x164a…1667 at000f = ╱4f╱O╱ // 0x1659 @0xf
0x164a…1667 at0010 = ╱e5╱ + ╱ // 0x165a @0x10
0x164a…1667 at0011 = ╱44╱D╱ // 0x165b @0x11
0x164a…1667 at0012 = ╱52╱R╱ // 0x165c @0x12
0x164a…1667 at0013 = ╱49╱I╱ // 0x165d @0x13
0x164a…1667 at0014 = ╱46╱F╱ // 0x165e @0x14
0x164a…1667 at0015 = ╱54╱T╱ // 0x165f @0x15
0x164a…1667 at0016 = ╱ed╱(╱ // 0x1660 @0x16
0x164a…1667 at0017 = ╱32╱2╱ // 0x1661 @0x17
0x164a…1667 at0018 = ╱f20200╱ // 0x1662 @0x18
0x164a…1667 at001b = ╱ee╱)╱ // 0x1665 @0x1b
0x164a…1667 at001c = EOL // 0x1666 @0x1c
0x164a…1667 }
0x1667…167f ac6d 2110 LET IDXPOS := IDXPOS + 1
0x1667…167f LineComal80 {
0x1667…167f ptr = 0xac6d // 0x1667 @0x0
0x1667…167f lno = 0x083e // 0x1669 @0x2
0x1667…167f at0004 = ╱86╱ LET ╱ // 0x166b @0x4
0x1667…167f at0005 = ╱49╱I╱ // 0x166c @0x5
0x1667…167f at0006 = ╱44╱D╱ // 0x166d @0x6
0x1667…167f at0007 = ╱58╱X╱ // 0x166e @0x7
0x1667…167f at0008 = ╱50╱P╱ // 0x166f @0x8
0x1667…167f at0009 = ╱4f╱O╱ // 0x1670 @0x9
0x1667…167f at000a = ╱53╱S╱ // 0x1671 @0xa
0x1667…167f at000b = ╱f0╱ := ╱ // 0x1672 @0xb
0x1667…167f at000c = ╱49╱I╱ // 0x1673 @0xc
0x1667…167f at000d = ╱44╱D╱ // 0x1674 @0xd
0x1667…167f at000e = ╱58╱X╱ // 0x1675 @0xe
0x1667…167f at000f = ╱50╱P╱ // 0x1676 @0xf
0x1667…167f at0010 = ╱4f╱O╱ // 0x1677 @0x10
0x1667…167f at0011 = ╱53╱S╱ // 0x1678 @0x11
0x1667…167f at0012 = ╱e5╱ + ╱ // 0x1679 @0x12
0x1667…167f at0013 = ╱31╱1╱ // 0x167a @0x13
0x1667…167f at0014 = ╱f20100╱ // 0x167b @0x14
0x1667…167f at0017 = EOL // 0x167e @0x17
0x1667…167f }
0x167f…1697 ac85 2120 IF IDXPOS > I_HØJREC THEN EXIT
0x167f…1697 LineComal80 {
0x167f…1697 ptr = 0xac85 // 0x167f @0x0
0x167f…1697 lno = 0x0848 // 0x1681 @0x2
0x167f…1697 at0004 = ╱8200╱ IF ╱ // 0x1683 @0x4
0x167f…1697 at0006 = ╱49╱I╱ // 0x1685 @0x6
0x167f…1697 at0007 = ╱44╱D╱ // 0x1686 @0x7
0x167f…1697 at0008 = ╱58╱X╱ // 0x1687 @0x8
0x167f…1697 at0009 = ╱50╱P╱ // 0x1688 @0x9
0x167f…1697 at000a = ╱4f╱O╱ // 0x1689 @0xa
0x167f…1697 at000b = ╱53╱S╱ // 0x168a @0xb
0x167f…1697 at000c = ╱e1╱ > ╱ // 0x168b @0xc
0x167f…1697 at000d = ╱49╱I╱ // 0x168c @0xd
0x167f…1697 at000e = ╱5f╱_╱ // 0x168d @0xe
0x167f…1697 at000f = ╱48╱H╱ // 0x168e @0xf
0x167f…1697 at0010 = ╱5c╱Ø╱ // 0x168f @0x10
0x167f…1697 at0011 = ╱4a╱J╱ // 0x1690 @0x11
0x167f…1697 at0012 = ╱52╱R╱ // 0x1691 @0x12
0x167f…1697 at0013 = ╱45╱E╱ // 0x1692 @0x13
0x167f…1697 at0014 = ╱43╱C╱ // 0x1693 @0x14
0x167f…1697 at0015 = ╱b5╱ THEN ╱ // 0x1694 @0x15
0x167f…1697 at0016 = ╱99╱ EXIT ╱ // 0x1695 @0x16
0x167f…1697 at0017 = EOL // 0x1696 @0x17
0x167f…1697 }
0x1697…16b8 aca6 2130 GET KTOIDX$,IDXPOS : KTONR$,RECNR
0x1697…16b8 LineComal80 {
0x1697…16b8 ptr = 0xaca6 // 0x1697 @0x0
0x1697…16b8 lno = 0x0852 // 0x1699 @0x2
0x1697…16b8 at0004 = ╱a9╱ GET ╱ // 0x169b @0x4
0x1697…16b8 at0005 = ╱4b╱K╱ // 0x169c @0x5
0x1697…16b8 at0006 = ╱54╱T╱ // 0x169d @0x6
0x1697…16b8 at0007 = ╱4f╱O╱ // 0x169e @0x7
0x1697…16b8 at0008 = ╱49╱I╱ // 0x169f @0x8
0x1697…16b8 at0009 = ╱44╱D╱ // 0x16a0 @0x9
0x1697…16b8 at000a = ╱58╱X╱ // 0x16a1 @0xa
0x1697…16b8 at000b = ╱ef╱$╱ // 0x16a2 @0xb
0x1697…16b8 at000c = ╱ec╱,╱ // 0x16a3 @0xc
0x1697…16b8 at000d = ╱49╱I╱ // 0x16a4 @0xd
0x1697…16b8 at000e = ╱44╱D╱ // 0x16a5 @0xe
0x1697…16b8 at000f = ╱58╱X╱ // 0x16a6 @0xf
0x1697…16b8 at0010 = ╱50╱P╱ // 0x16a7 @0x10
0x1697…16b8 at0011 = ╱4f╱O╱ // 0x16a8 @0x11
0x1697…16b8 at0012 = ╱53╱S╱ // 0x16a9 @0x12
0x1697…16b8 at0013 = ╱f1╱ : ╱ // 0x16aa @0x13
0x1697…16b8 at0014 = ╱4b╱K╱ // 0x16ab @0x14
0x1697…16b8 at0015 = ╱54╱T╱ // 0x16ac @0x15
0x1697…16b8 at0016 = ╱4f╱O╱ // 0x16ad @0x16
0x1697…16b8 at0017 = ╱4e╱N╱ // 0x16ae @0x17
0x1697…16b8 at0018 = ╱52╱R╱ // 0x16af @0x18
0x1697…16b8 at0019 = ╱ef╱$╱ // 0x16b0 @0x19
0x1697…16b8 at001a = ╱ec╱,╱ // 0x16b1 @0x1a
0x1697…16b8 at001b = ╱52╱R╱ // 0x16b2 @0x1b
0x1697…16b8 at001c = ╱45╱E╱ // 0x16b3 @0x1c
0x1697…16b8 at001d = ╱43╱C╱ // 0x16b4 @0x1d
0x1697…16b8 at001e = ╱4e╱N╱ // 0x16b5 @0x1e
0x1697…16b8 at001f = ╱52╱R╱ // 0x16b6 @0x1f
0x1697…16b8 at0020 = EOL // 0x16b7 @0x20
0x1697…16b8 }
0x16b8…16be acac 2140 ENDWHILE
0x16b8…16be LineComal80 {
0x16b8…16be ptr = 0xacac // 0x16b8 @0x0
0x16b8…16be lno = 0x085c // 0x16ba @0x2
0x16b8…16be at0004 = ╱94╱ ENDWHILE ╱ // 0x16bc @0x4
0x16b8…16be at0005 = EOL // 0x16bd @0x5
0x16b8…16be }
0x16be…16d4 acc2 2150 GET SAMFIL$ : S_KTONR$
0x16be…16d4 LineComal80 {
0x16be…16d4 ptr = 0xacc2 // 0x16be @0x0
0x16be…16d4 lno = 0x0866 // 0x16c0 @0x2
0x16be…16d4 at0004 = ╱a9╱ GET ╱ // 0x16c2 @0x4
0x16be…16d4 at0005 = ╱53╱S╱ // 0x16c3 @0x5
0x16be…16d4 at0006 = ╱41╱A╱ // 0x16c4 @0x6
0x16be…16d4 at0007 = ╱4d╱M╱ // 0x16c5 @0x7
0x16be…16d4 at0008 = ╱46╱F╱ // 0x16c6 @0x8
0x16be…16d4 at0009 = ╱49╱I╱ // 0x16c7 @0x9
0x16be…16d4 at000a = ╱4c╱L╱ // 0x16c8 @0xa
0x16be…16d4 at000b = ╱ef╱$╱ // 0x16c9 @0xb
0x16be…16d4 at000c = ╱f1╱ : ╱ // 0x16ca @0xc
0x16be…16d4 at000d = ╱53╱S╱ // 0x16cb @0xd
0x16be…16d4 at000e = ╱5f╱_╱ // 0x16cc @0xe
0x16be…16d4 at000f = ╱4b╱K╱ // 0x16cd @0xf
0x16be…16d4 at0010 = ╱54╱T╱ // 0x16ce @0x10
0x16be…16d4 at0011 = ╱4f╱O╱ // 0x16cf @0x11
0x16be…16d4 at0012 = ╱4e╱N╱ // 0x16d0 @0x12
0x16be…16d4 at0013 = ╱52╱R╱ // 0x16d1 @0x13
0x16be…16d4 at0014 = ╱ef╱$╱ // 0x16d2 @0x14
0x16be…16d4 at0015 = EOL // 0x16d3 @0x15
0x16be…16d4 }
0x16d4…16da acc8 2160 ENDWHILE
0x16d4…16da LineComal80 {
0x16d4…16da ptr = 0xacc8 // 0x16d4 @0x0
0x16d4…16da lno = 0x0870 // 0x16d6 @0x2
0x16d4…16da at0004 = ╱94╱ ENDWHILE ╱ // 0x16d8 @0x4
0x16d4…16da at0005 = EOL // 0x16d9 @0x5
0x16d4…16da }
0x16da…16f3 ace1 2170 LET SALDO := SALDO * ( - 1)
0x16da…16f3 LineComal80 {
0x16da…16f3 ptr = 0xace1 // 0x16da @0x0
0x16da…16f3 lno = 0x087a // 0x16dc @0x2
0x16da…16f3 at0004 = ╱86╱ LET ╱ // 0x16de @0x4
0x16da…16f3 at0005 = ╱53╱S╱ // 0x16df @0x5
0x16da…16f3 at0006 = ╱41╱A╱ // 0x16e0 @0x6
0x16da…16f3 at0007 = ╱4c╱L╱ // 0x16e1 @0x7
0x16da…16f3 at0008 = ╱44╱D╱ // 0x16e2 @0x8
0x16da…16f3 at0009 = ╱4f╱O╱ // 0x16e3 @0x9
0x16da…16f3 at000a = ╱f0╱ := ╱ // 0x16e4 @0xa
0x16da…16f3 at000b = ╱53╱S╱ // 0x16e5 @0xb
0x16da…16f3 at000c = ╱41╱A╱ // 0x16e6 @0xc
0x16da…16f3 at000d = ╱4c╱L╱ // 0x16e7 @0xd
0x16da…16f3 at000e = ╱44╱D╱ // 0x16e8 @0xe
0x16da…16f3 at000f = ╱4f╱O╱ // 0x16e9 @0xf
0x16da…16f3 at0010 = ╱e7╱ * ╱ // 0x16ea @0x10
0x16da…16f3 at0011 = ╱ed╱(╱ // 0x16eb @0x11
0x16da…16f3 at0012 = ╱de╱ - ╱ // 0x16ec @0x12
0x16da…16f3 at0013 = ╱31╱1╱ // 0x16ed @0x13
0x16da…16f3 at0014 = ╱f20100╱ // 0x16ee @0x14
0x16da…16f3 at0017 = ╱ee╱)╱ // 0x16f1 @0x17
0x16da…16f3 at0018 = EOL // 0x16f2 @0x18
0x16da…16f3 }
0x16f3…1700 acee 2180 CLOSE SAMFIL$
0x16f3…1700 LineComal80 {
0x16f3…1700 ptr = 0xacee // 0x16f3 @0x0
0x16f3…1700 lno = 0x0884 // 0x16f5 @0x2
0x16f3…1700 at0004 = ╱a8╱ CLOSE ╱ // 0x16f7 @0x4
0x16f3…1700 at0005 = ╱53╱S╱ // 0x16f8 @0x5
0x16f3…1700 at0006 = ╱41╱A╱ // 0x16f9 @0x6
0x16f3…1700 at0007 = ╱4d╱M╱ // 0x16fa @0x7
0x16f3…1700 at0008 = ╱46╱F╱ // 0x16fb @0x8
0x16f3…1700 at0009 = ╱49╱I╱ // 0x16fc @0x9
0x16f3…1700 at000a = ╱4c╱L╱ // 0x16fd @0xa
0x16f3…1700 at000b = ╱ef╱$╱ // 0x16fe @0xb
0x16f3…1700 at000c = EOL // 0x16ff @0xc
0x16f3…1700 }
0x1700…171a ad08 2190 EXEC OPENFIL(SAMFIL$,"W")
0x1700…171a LineComal80 {
0x1700…171a ptr = 0xad08 // 0x1700 @0x0
0x1700…171a lno = 0x088e // 0x1702 @0x2
0x1700…171a at0004 = ╱9d╱ EXEC ╱ // 0x1704 @0x4
0x1700…171a at0005 = ╱4f╱O╱ // 0x1705 @0x5
0x1700…171a at0006 = ╱50╱P╱ // 0x1706 @0x6
0x1700…171a at0007 = ╱45╱E╱ // 0x1707 @0x7
0x1700…171a at0008 = ╱4e╱N╱ // 0x1708 @0x8
0x1700…171a at0009 = ╱46╱F╱ // 0x1709 @0x9
0x1700…171a at000a = ╱49╱I╱ // 0x170a @0xa
0x1700…171a at000b = ╱4c╱L╱ // 0x170b @0xb
0x1700…171a at000c = ╱ed╱(╱ // 0x170c @0xc
0x1700…171a at000d = ╱53╱S╱ // 0x170d @0xd
0x1700…171a at000e = ╱41╱A╱ // 0x170e @0xe
0x1700…171a at000f = ╱4d╱M╱ // 0x170f @0xf
0x1700…171a at0010 = ╱46╱F╱ // 0x1710 @0x10
0x1700…171a at0011 = ╱49╱I╱ // 0x1711 @0x11
0x1700…171a at0012 = ╱4c╱L╱ // 0x1712 @0x12
0x1700…171a at0013 = ╱ef╱$╱ // 0x1713 @0x13
0x1700…171a at0014 = ╱ec╱,╱ // 0x1714 @0x14
0x1700…171a at0015 = ╱22╱"╱ // 0x1715 @0x15
0x1700…171a at0016 = ╱57╱W╱ // 0x1716 @0x16
0x1700…171a at0017 = ╱22╱"╱ // 0x1717 @0x17
0x1700…171a at0018 = ╱ee╱)╱ // 0x1718 @0x18
0x1700…171a at0019 = EOL // 0x1719 @0x19
0x1700…171a }
0x171a…172d ad1b 2200 PUT SAMFIL$ : SALDO
0x171a…172d LineComal80 {
0x171a…172d ptr = 0xad1b // 0x171a @0x0
0x171a…172d lno = 0x0898 // 0x171c @0x2
0x171a…172d at0004 = ╱aa╱ PUT ╱ // 0x171e @0x4
0x171a…172d at0005 = ╱53╱S╱ // 0x171f @0x5
0x171a…172d at0006 = ╱41╱A╱ // 0x1720 @0x6
0x171a…172d at0007 = ╱4d╱M╱ // 0x1721 @0x7
0x171a…172d at0008 = ╱46╱F╱ // 0x1722 @0x8
0x171a…172d at0009 = ╱49╱I╱ // 0x1723 @0x9
0x171a…172d at000a = ╱4c╱L╱ // 0x1724 @0xa
0x171a…172d at000b = ╱ef╱$╱ // 0x1725 @0xb
0x171a…172d at000c = ╱f1╱ : ╱ // 0x1726 @0xc
0x171a…172d at000d = ╱53╱S╱ // 0x1727 @0xd
0x171a…172d at000e = ╱41╱A╱ // 0x1728 @0xe
0x171a…172d at000f = ╱4c╱L╱ // 0x1729 @0xf
0x171a…172d at0010 = ╱44╱D╱ // 0x172a @0x10
0x171a…172d at0011 = ╱4f╱O╱ // 0x172b @0x11
0x171a…172d at0012 = EOL // 0x172c @0x12
0x171a…172d }
0x172d…173a ad28 2210 CLOSE SAMFIL$
0x172d…173a LineComal80 {
0x172d…173a ptr = 0xad28 // 0x172d @0x0
0x172d…173a lno = 0x08a2 // 0x172f @0x2
0x172d…173a at0004 = ╱a8╱ CLOSE ╱ // 0x1731 @0x4
0x172d…173a at0005 = ╱53╱S╱ // 0x1732 @0x5
0x172d…173a at0006 = ╱41╱A╱ // 0x1733 @0x6
0x172d…173a at0007 = ╱4d╱M╱ // 0x1734 @0x7
0x172d…173a at0008 = ╱46╱F╱ // 0x1735 @0x8
0x172d…173a at0009 = ╱49╱I╱ // 0x1736 @0x9
0x172d…173a at000a = ╱4c╱L╱ // 0x1737 @0xa
0x172d…173a at000b = ╱ef╱$╱ // 0x1738 @0xb
0x172d…173a at000c = EOL // 0x1739 @0xc
0x172d…173a }
0x173a…1749 ad37 2220 ENDPROC SAMMENTÆL
0x173a…1749 LineComal80 {
0x173a…1749 ptr = 0xad37 // 0x173a @0x0
0x173a…1749 lno = 0x08ac // 0x173c @0x2
0x173a…1749 at0004 = ╱9f╱ ENDPROC ╱ // 0x173e @0x4
0x173a…1749 at0005 = ╱53╱S╱ // 0x173f @0x5
0x173a…1749 at0006 = ╱41╱A╱ // 0x1740 @0x6
0x173a…1749 at0007 = ╱4d╱M╱ // 0x1741 @0x7
0x173a…1749 at0008 = ╱4d╱M╱ // 0x1742 @0x8
0x173a…1749 at0009 = ╱45╱E╱ // 0x1743 @0x9
0x173a…1749 at000a = ╱4e╱N╱ // 0x1744 @0xa
0x173a…1749 at000b = ╱54╱T╱ // 0x1745 @0xb
0x173a…1749 at000c = ╱5b╱Æ╱ // 0x1746 @0xc
0x173a…1749 at000d = ╱4c╱L╱ // 0x1747 @0xd
0x173a…1749 at000e = EOL // 0x1748 @0xe
0x173a…1749 }
0x1749…174e ad3c 2230
0x1749…174e LineComal80 {
0x1749…174e ptr = 0xad3c // 0x1749 @0x0
0x1749…174e lno = 0x08b6 // 0x174b @0x2
0x1749…174e at0004 = EOL // 0x174d @0x4
0x1749…174e }
0x174e…175c ad4a 2240 PROC UDSKRIV
0x174e…175c LineComal80 {
0x174e…175c ptr = 0xad4a // 0x174e @0x0
0x174e…175c lno = 0x08c0 // 0x1750 @0x2
0x174e…175c at0004 = ╱9e00╱ PROC ╱ // 0x1752 @0x4
0x174e…175c at0006 = ╱55╱U╱ // 0x1754 @0x6
0x174e…175c at0007 = ╱44╱D╱ // 0x1755 @0x7
0x174e…175c at0008 = ╱53╱S╱ // 0x1756 @0x8
0x174e…175c at0009 = ╱4b╱K╱ // 0x1757 @0x9
0x174e…175c at000a = ╱52╱R╱ // 0x1758 @0xa
0x174e…175c at000b = ╱49╱I╱ // 0x1759 @0xb
0x174e…175c at000c = ╱56╱V╱ // 0x175a @0xc
0x174e…175c at000d = EOL // 0x175b @0xd
0x174e…175c }
0x175c…1788 ad76 2250 LET MAX_LIN := 72 ; LIN_T := 200 ; SIDENR := 0
0x175c…1788 LineComal80 {
0x175c…1788 ptr = 0xad76 // 0x175c @0x0
0x175c…1788 lno = 0x08ca // 0x175e @0x2
0x175c…1788 at0004 = ╱86╱ LET ╱ // 0x1760 @0x4
0x175c…1788 at0005 = ╱4d╱M╱ // 0x1761 @0x5
0x175c…1788 at0006 = ╱41╱A╱ // 0x1762 @0x6
0x175c…1788 at0007 = ╱58╱X╱ // 0x1763 @0x7
0x175c…1788 at0008 = ╱5f╱_╱ // 0x1764 @0x8
0x175c…1788 at0009 = ╱4c╱L╱ // 0x1765 @0x9
0x175c…1788 at000a = ╱49╱I╱ // 0x1766 @0xa
0x175c…1788 at000b = ╱4e╱N╱ // 0x1767 @0xb
0x175c…1788 at000c = ╱f0╱ := ╱ // 0x1768 @0xc
0x175c…1788 at000d = ╱37╱7╱ // 0x1769 @0xd
0x175c…1788 at000e = ╱32╱2╱ // 0x176a @0xe
0x175c…1788 at000f = ╱f24800╱ // 0x176b @0xf
0x175c…1788 at0012 = ╱ea╱ ; ╱ // 0x176e @0x12
0x175c…1788 at0013 = ╱4c╱L╱ // 0x176f @0x13
0x175c…1788 at0014 = ╱49╱I╱ // 0x1770 @0x14
0x175c…1788 at0015 = ╱4e╱N╱ // 0x1771 @0x15
0x175c…1788 at0016 = ╱5f╱_╱ // 0x1772 @0x16
0x175c…1788 at0017 = ╱54╱T╱ // 0x1773 @0x17
0x175c…1788 at0018 = ╱f0╱ := ╱ // 0x1774 @0x18
0x175c…1788 at0019 = ╱32╱2╱ // 0x1775 @0x19
0x175c…1788 at001a = ╱30╱0╱ // 0x1776 @0x1a
0x175c…1788 at001b = ╱30╱0╱ // 0x1777 @0x1b
0x175c…1788 at001c = ╱f2c800╱ // 0x1778 @0x1c
0x175c…1788 at001f = ╱ea╱ ; ╱ // 0x177b @0x1f
0x175c…1788 at0020 = ╱53╱S╱ // 0x177c @0x20
0x175c…1788 at0021 = ╱49╱I╱ // 0x177d @0x21
0x175c…1788 at0022 = ╱44╱D╱ // 0x177e @0x22
0x175c…1788 at0023 = ╱45╱E╱ // 0x177f @0x23
0x175c…1788 at0024 = ╱4e╱N╱ // 0x1780 @0x24
0x175c…1788 at0025 = ╱52╱R╱ // 0x1781 @0x25
0x175c…1788 at0026 = ╱f0╱ := ╱ // 0x1782 @0x26
0x175c…1788 at0027 = ╱30╱0╱ // 0x1783 @0x27
0x175c…1788 at0028 = ╱f20000╱ // 0x1784 @0x28
0x175c…1788 at002b = EOL // 0x1787 @0x2b
0x175c…1788 }
0x1788…17ae ad9c 2260 EXEC PRINTRES("smal EDB-liste",17)
0x1788…17ae LineComal80 {
0x1788…17ae ptr = 0xad9c // 0x1788 @0x0
0x1788…17ae lno = 0x08d4 // 0x178a @0x2
0x1788…17ae at0004 = ╱9d╱ EXEC ╱ // 0x178c @0x4
0x1788…17ae at0005 = ╱50╱P╱ // 0x178d @0x5
0x1788…17ae at0006 = ╱52╱R╱ // 0x178e @0x6
0x1788…17ae at0007 = ╱49╱I╱ // 0x178f @0x7
0x1788…17ae at0008 = ╱4e╱N╱ // 0x1790 @0x8
0x1788…17ae at0009 = ╱54╱T╱ // 0x1791 @0x9
0x1788…17ae at000a = ╱52╱R╱ // 0x1792 @0xa
0x1788…17ae at000b = ╱45╱E╱ // 0x1793 @0xb
0x1788…17ae at000c = ╱53╱S╱ // 0x1794 @0xc
0x1788…17ae at000d = ╱ed╱(╱ // 0x1795 @0xd
0x1788…17ae at000e = ╱22╱"╱ // 0x1796 @0xe
0x1788…17ae at000f = ╱73╱s╱ // 0x1797 @0xf
0x1788…17ae at0010 = ╱6d╱m╱ // 0x1798 @0x10
0x1788…17ae at0011 = ╱61╱a╱ // 0x1799 @0x11
0x1788…17ae at0012 = ╱6c╱l╱ // 0x179a @0x12
0x1788…17ae at0013 = ╱20╱…╱ // 0x179b @0x13
0x1788…17ae at0014 = ╱45╱E╱ // 0x179c @0x14
0x1788…17ae at0015 = ╱44╱D╱ // 0x179d @0x15
0x1788…17ae at0016 = ╱42╱B╱ // 0x179e @0x16
0x1788…17ae at0017 = ╱2d╱-╱ // 0x179f @0x17
0x1788…17ae at0018 = ╱6c╱l╱ // 0x17a0 @0x18
0x1788…17ae at0019 = ╱69╱i╱ // 0x17a1 @0x19
0x1788…17ae at001a = ╱73╱s╱ // 0x17a2 @0x1a
0x1788…17ae at001b = ╱74╱t╱ // 0x17a3 @0x1b
0x1788…17ae at001c = ╱65╱e╱ // 0x17a4 @0x1c
0x1788…17ae at001d = ╱22╱"╱ // 0x17a5 @0x1d
0x1788…17ae at001e = ╱ec╱,╱ // 0x17a6 @0x1e
0x1788…17ae at001f = ╱31╱1╱ // 0x17a7 @0x1f
0x1788…17ae at0020 = ╱37╱7╱ // 0x17a8 @0x20
0x1788…17ae at0021 = ╱f21100╱ // 0x17a9 @0x21
0x1788…17ae at0024 = ╱ee╱)╱ // 0x17ac @0x24
0x1788…17ae at0025 = EOL // 0x17ad @0x25
0x1788…17ae }
0x17ae…17bd adab 2270 EXEC SIDESKIFT
0x17ae…17bd LineComal80 {
0x17ae…17bd ptr = 0xadab // 0x17ae @0x0
0x17ae…17bd lno = 0x08de // 0x17b0 @0x2
0x17ae…17bd at0004 = ╱9d╱ EXEC ╱ // 0x17b2 @0x4
0x17ae…17bd at0005 = ╱53╱S╱ // 0x17b3 @0x5
0x17ae…17bd at0006 = ╱49╱I╱ // 0x17b4 @0x6
0x17ae…17bd at0007 = ╱44╱D╱ // 0x17b5 @0x7
0x17ae…17bd at0008 = ╱45╱E╱ // 0x17b6 @0x8
0x17ae…17bd at0009 = ╱53╱S╱ // 0x17b7 @0x9
0x17ae…17bd at000a = ╱4b╱K╱ // 0x17b8 @0xa
0x17ae…17bd at000b = ╱49╱I╱ // 0x17b9 @0xb
0x17ae…17bd at000c = ╱46╱F╱ // 0x17ba @0xc
0x17ae…17bd at000d = ╱54╱T╱ // 0x17bb @0xd
0x17ae…17bd at000e = EOL // 0x17bc @0xe
0x17ae…17bd }
0x17bd…180e adfc 2280 PRINT "Regnskab for perioden " ; PRIMODAT$(1 : 2) ; "." ; PRIMODAT$(3 : 2) ; "." ;
0x17bd…180e LineComal80 {
0x17bd…180e ptr = 0xadfc // 0x17bd @0x0
0x17bd…180e lno = 0x08e8 // 0x17bf @0x2
0x17bd…180e at0004 = ╱92╱ PRINT ╱ // 0x17c1 @0x4
0x17bd…180e at0005 = ╱22╱"╱ // 0x17c2 @0x5
0x17bd…180e at0006 = ╱52╱R╱ // 0x17c3 @0x6
0x17bd…180e at0007 = ╱65╱e╱ // 0x17c4 @0x7
0x17bd…180e at0008 = ╱67╱g╱ // 0x17c5 @0x8
0x17bd…180e at0009 = ╱6e╱n╱ // 0x17c6 @0x9
0x17bd…180e at000a = ╱73╱s╱ // 0x17c7 @0xa
0x17bd…180e at000b = ╱6b╱k╱ // 0x17c8 @0xb
0x17bd…180e at000c = ╱61╱a╱ // 0x17c9 @0xc
0x17bd…180e at000d = ╱62╱b╱ // 0x17ca @0xd
0x17bd…180e at000e = ╱20╱…╱ // 0x17cb @0xe
0x17bd…180e at000f = ╱66╱f╱ // 0x17cc @0xf
0x17bd…180e at0010 = ╱6f╱o╱ // 0x17cd @0x10
0x17bd…180e at0011 = ╱72╱r╱ // 0x17ce @0x11
0x17bd…180e at0012 = ╱20╱…╱ // 0x17cf @0x12
0x17bd…180e at0013 = ╱70╱p╱ // 0x17d0 @0x13
0x17bd…180e at0014 = ╱65╱e╱ // 0x17d1 @0x14
0x17bd…180e at0015 = ╱72╱r╱ // 0x17d2 @0x15
0x17bd…180e at0016 = ╱69╱i╱ // 0x17d3 @0x16
0x17bd…180e at0017 = ╱6f╱o╱ // 0x17d4 @0x17
0x17bd…180e at0018 = ╱64╱d╱ // 0x17d5 @0x18
0x17bd…180e at0019 = ╱65╱e╱ // 0x17d6 @0x19
0x17bd…180e at001a = ╱6e╱n╱ // 0x17d7 @0x1a
0x17bd…180e at001b = ╱20╱…╱ // 0x17d8 @0x1b
0x17bd…180e at001c = ╱22╱"╱ // 0x17d9 @0x1c
0x17bd…180e at001d = ╱ea╱ ; ╱ // 0x17da @0x1d
0x17bd…180e at001e = ╱50╱P╱ // 0x17db @0x1e
0x17bd…180e at001f = ╱52╱R╱ // 0x17dc @0x1f
0x17bd…180e at0020 = ╱49╱I╱ // 0x17dd @0x20
0x17bd…180e at0021 = ╱4d╱M╱ // 0x17de @0x21
0x17bd…180e at0022 = ╱4f╱O╱ // 0x17df @0x22
0x17bd…180e at0023 = ╱44╱D╱ // 0x17e0 @0x23
0x17bd…180e at0024 = ╱41╱A╱ // 0x17e1 @0x24
0x17bd…180e at0025 = ╱54╱T╱ // 0x17e2 @0x25
0x17bd…180e at0026 = ╱ef╱$╱ // 0x17e3 @0x26
0x17bd…180e at0027 = ╱ed╱(╱ // 0x17e4 @0x27
0x17bd…180e at0028 = ╱31╱1╱ // 0x17e5 @0x28
0x17bd…180e at0029 = ╱f20100╱ // 0x17e6 @0x29
0x17bd…180e at002c = ╱f1╱ : ╱ // 0x17e9 @0x2c
0x17bd…180e at002d = ╱32╱2╱ // 0x17ea @0x2d
0x17bd…180e at002e = ╱f20200╱ // 0x17eb @0x2e
0x17bd…180e at0031 = ╱ee╱)╱ // 0x17ee @0x31
0x17bd…180e at0032 = ╱ea╱ ; ╱ // 0x17ef @0x32
0x17bd…180e at0033 = ╱22╱"╱ // 0x17f0 @0x33
0x17bd…180e at0034 = ╱2e╱.╱ // 0x17f1 @0x34
0x17bd…180e at0035 = ╱22╱"╱ // 0x17f2 @0x35
0x17bd…180e at0036 = ╱ea╱ ; ╱ // 0x17f3 @0x36
0x17bd…180e at0037 = ╱50╱P╱ // 0x17f4 @0x37
0x17bd…180e at0038 = ╱52╱R╱ // 0x17f5 @0x38
0x17bd…180e at0039 = ╱49╱I╱ // 0x17f6 @0x39
0x17bd…180e at003a = ╱4d╱M╱ // 0x17f7 @0x3a
0x17bd…180e at003b = ╱4f╱O╱ // 0x17f8 @0x3b
0x17bd…180e at003c = ╱44╱D╱ // 0x17f9 @0x3c
0x17bd…180e at003d = ╱41╱A╱ // 0x17fa @0x3d
0x17bd…180e at003e = ╱54╱T╱ // 0x17fb @0x3e
0x17bd…180e at003f = ╱ef╱$╱ // 0x17fc @0x3f
0x17bd…180e at0040 = ╱ed╱(╱ // 0x17fd @0x40
0x17bd…180e at0041 = ╱33╱3╱ // 0x17fe @0x41
0x17bd…180e at0042 = ╱f20300╱ // 0x17ff @0x42
0x17bd…180e at0045 = ╱f1╱ : ╱ // 0x1802 @0x45
0x17bd…180e at0046 = ╱32╱2╱ // 0x1803 @0x46
0x17bd…180e at0047 = ╱f20200╱ // 0x1804 @0x47
0x17bd…180e at004a = ╱ee╱)╱ // 0x1807 @0x4a
0x17bd…180e at004b = ╱ea╱ ; ╱ // 0x1808 @0x4b
0x17bd…180e at004c = ╱22╱"╱ // 0x1809 @0x4c
0x17bd…180e at004d = ╱2e╱.╱ // 0x180a @0x4d
0x17bd…180e at004e = ╱22╱"╱ // 0x180b @0x4e
0x17bd…180e at004f = ╱ea╱ ; ╱ // 0x180c @0x4f
0x17bd…180e at0050 = EOL // 0x180d @0x50
0x17bd…180e }
0x180e…1861 ae4f 2290 PRINT PRIMODAT$(5 : 2) ; " - " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "." ;
0x180e…1861 LineComal80 {
0x180e…1861 ptr = 0xae4f // 0x180e @0x0
0x180e…1861 lno = 0x08f2 // 0x1810 @0x2
0x180e…1861 at0004 = ╱92╱ PRINT ╱ // 0x1812 @0x4
0x180e…1861 at0005 = ╱50╱P╱ // 0x1813 @0x5
0x180e…1861 at0006 = ╱52╱R╱ // 0x1814 @0x6
0x180e…1861 at0007 = ╱49╱I╱ // 0x1815 @0x7
0x180e…1861 at0008 = ╱4d╱M╱ // 0x1816 @0x8
0x180e…1861 at0009 = ╱4f╱O╱ // 0x1817 @0x9
0x180e…1861 at000a = ╱44╱D╱ // 0x1818 @0xa
0x180e…1861 at000b = ╱41╱A╱ // 0x1819 @0xb
0x180e…1861 at000c = ╱54╱T╱ // 0x181a @0xc
0x180e…1861 at000d = ╱ef╱$╱ // 0x181b @0xd
0x180e…1861 at000e = ╱ed╱(╱ // 0x181c @0xe
0x180e…1861 at000f = ╱35╱5╱ // 0x181d @0xf
0x180e…1861 at0010 = ╱f20500╱ // 0x181e @0x10
0x180e…1861 at0013 = ╱f1╱ : ╱ // 0x1821 @0x13
0x180e…1861 at0014 = ╱32╱2╱ // 0x1822 @0x14
0x180e…1861 at0015 = ╱f20200╱ // 0x1823 @0x15
0x180e…1861 at0018 = ╱ee╱)╱ // 0x1826 @0x18
0x180e…1861 at0019 = ╱ea╱ ; ╱ // 0x1827 @0x19
0x180e…1861 at001a = ╱22╱"╱ // 0x1828 @0x1a
0x180e…1861 at001b = ╱20╱…╱ // 0x1829 @0x1b
0x180e…1861 at001c = ╱2d╱-╱ // 0x182a @0x1c
0x180e…1861 at001d = ╱20╱…╱ // 0x182b @0x1d
0x180e…1861 at001e = ╱22╱"╱ // 0x182c @0x1e
0x180e…1861 at001f = ╱ea╱ ; ╱ // 0x182d @0x1f
0x180e…1861 at0020 = ╱53╱S╱ // 0x182e @0x20
0x180e…1861 at0021 = ╱59╱Y╱ // 0x182f @0x21
0x180e…1861 at0022 = ╱53╱S╱ // 0x1830 @0x22
0x180e…1861 at0023 = ╱54╱T╱ // 0x1831 @0x23
0x180e…1861 at0024 = ╱5f╱_╱ // 0x1832 @0x24
0x180e…1861 at0025 = ╱44╱D╱ // 0x1833 @0x25
0x180e…1861 at0026 = ╱41╱A╱ // 0x1834 @0x26
0x180e…1861 at0027 = ╱54╱T╱ // 0x1835 @0x27
0x180e…1861 at0028 = ╱ef╱$╱ // 0x1836 @0x28
0x180e…1861 at0029 = ╱ed╱(╱ // 0x1837 @0x29
0x180e…1861 at002a = ╱31╱1╱ // 0x1838 @0x2a
0x180e…1861 at002b = ╱f20100╱ // 0x1839 @0x2b
0x180e…1861 at002e = ╱f1╱ : ╱ // 0x183c @0x2e
0x180e…1861 at002f = ╱32╱2╱ // 0x183d @0x2f
0x180e…1861 at0030 = ╱f20200╱ // 0x183e @0x30
0x180e…1861 at0033 = ╱ee╱)╱ // 0x1841 @0x33
0x180e…1861 at0034 = ╱ea╱ ; ╱ // 0x1842 @0x34
0x180e…1861 at0035 = ╱22╱"╱ // 0x1843 @0x35
0x180e…1861 at0036 = ╱2e╱.╱ // 0x1844 @0x36
0x180e…1861 at0037 = ╱22╱"╱ // 0x1845 @0x37
0x180e…1861 at0038 = ╱ea╱ ; ╱ // 0x1846 @0x38
0x180e…1861 at0039 = ╱53╱S╱ // 0x1847 @0x39
0x180e…1861 at003a = ╱59╱Y╱ // 0x1848 @0x3a
0x180e…1861 at003b = ╱53╱S╱ // 0x1849 @0x3b
0x180e…1861 at003c = ╱54╱T╱ // 0x184a @0x3c
0x180e…1861 at003d = ╱5f╱_╱ // 0x184b @0x3d
0x180e…1861 at003e = ╱44╱D╱ // 0x184c @0x3e
0x180e…1861 at003f = ╱41╱A╱ // 0x184d @0x3f
0x180e…1861 at0040 = ╱54╱T╱ // 0x184e @0x40
0x180e…1861 at0041 = ╱ef╱$╱ // 0x184f @0x41
0x180e…1861 at0042 = ╱ed╱(╱ // 0x1850 @0x42
0x180e…1861 at0043 = ╱33╱3╱ // 0x1851 @0x43
0x180e…1861 at0044 = ╱f20300╱ // 0x1852 @0x44
0x180e…1861 at0047 = ╱f1╱ : ╱ // 0x1855 @0x47
0x180e…1861 at0048 = ╱32╱2╱ // 0x1856 @0x48
0x180e…1861 at0049 = ╱f20200╱ // 0x1857 @0x49
0x180e…1861 at004c = ╱ee╱)╱ // 0x185a @0x4c
0x180e…1861 at004d = ╱ea╱ ; ╱ // 0x185b @0x4d
0x180e…1861 at004e = ╱22╱"╱ // 0x185c @0x4e
0x180e…1861 at004f = ╱2e╱.╱ // 0x185d @0x4f
0x180e…1861 at0050 = ╱22╱"╱ // 0x185e @0x50
0x180e…1861 at0051 = ╱ea╱ ; ╱ // 0x185f @0x51
0x180e…1861 at0052 = EOL // 0x1860 @0x52
0x180e…1861 }
0x1861…187b ae69 2300 PRINT SYST_DAT$(5 : 2)
0x1861…187b LineComal80 {
0x1861…187b ptr = 0xae69 // 0x1861 @0x0
0x1861…187b lno = 0x08fc // 0x1863 @0x2
0x1861…187b at0004 = ╱92╱ PRINT ╱ // 0x1865 @0x4
0x1861…187b at0005 = ╱53╱S╱ // 0x1866 @0x5
0x1861…187b at0006 = ╱59╱Y╱ // 0x1867 @0x6
0x1861…187b at0007 = ╱53╱S╱ // 0x1868 @0x7
0x1861…187b at0008 = ╱54╱T╱ // 0x1869 @0x8
0x1861…187b at0009 = ╱5f╱_╱ // 0x186a @0x9
0x1861…187b at000a = ╱44╱D╱ // 0x186b @0xa
0x1861…187b at000b = ╱41╱A╱ // 0x186c @0xb
0x1861…187b at000c = ╱54╱T╱ // 0x186d @0xc
0x1861…187b at000d = ╱ef╱$╱ // 0x186e @0xd
0x1861…187b at000e = ╱ed╱(╱ // 0x186f @0xe
0x1861…187b at000f = ╱35╱5╱ // 0x1870 @0xf
0x1861…187b at0010 = ╱f20500╱ // 0x1871 @0x10
0x1861…187b at0013 = ╱f1╱ : ╱ // 0x1874 @0x13
0x1861…187b at0014 = ╱32╱2╱ // 0x1875 @0x14
0x1861…187b at0015 = ╱f20200╱ // 0x1876 @0x15
0x1861…187b at0018 = ╱ee╱)╱ // 0x1879 @0x18
0x1861…187b at0019 = EOL // 0x187a @0x19
0x1861…187b }
0x187b…18c3 aeb1 2310 PRINT "================================================================"
0x187b…18c3 LineComal80 {
0x187b…18c3 ptr = 0xaeb1 // 0x187b @0x0
0x187b…18c3 lno = 0x0906 // 0x187d @0x2
0x187b…18c3 at0004 = ╱92╱ PRINT ╱ // 0x187f @0x4
0x187b…18c3 at0005 = ╱22╱"╱ // 0x1880 @0x5
0x187b…18c3 at0006 = ╱3d╱=╱ // 0x1881 @0x6
0x187b…18c3 at0007 = ╱3d╱=╱ // 0x1882 @0x7
0x187b…18c3 at0008 = ╱3d╱=╱ // 0x1883 @0x8
0x187b…18c3 at0009 = ╱3d╱=╱ // 0x1884 @0x9
0x187b…18c3 at000a = ╱3d╱=╱ // 0x1885 @0xa
0x187b…18c3 at000b = ╱3d╱=╱ // 0x1886 @0xb
0x187b…18c3 at000c = ╱3d╱=╱ // 0x1887 @0xc
0x187b…18c3 at000d = ╱3d╱=╱ // 0x1888 @0xd
0x187b…18c3 at000e = ╱3d╱=╱ // 0x1889 @0xe
0x187b…18c3 at000f = ╱3d╱=╱ // 0x188a @0xf
0x187b…18c3 at0010 = ╱3d╱=╱ // 0x188b @0x10
0x187b…18c3 at0011 = ╱3d╱=╱ // 0x188c @0x11
0x187b…18c3 at0012 = ╱3d╱=╱ // 0x188d @0x12
0x187b…18c3 at0013 = ╱3d╱=╱ // 0x188e @0x13
0x187b…18c3 at0014 = ╱3d╱=╱ // 0x188f @0x14
0x187b…18c3 at0015 = ╱3d╱=╱ // 0x1890 @0x15
0x187b…18c3 at0016 = ╱3d╱=╱ // 0x1891 @0x16
0x187b…18c3 at0017 = ╱3d╱=╱ // 0x1892 @0x17
0x187b…18c3 at0018 = ╱3d╱=╱ // 0x1893 @0x18
0x187b…18c3 at0019 = ╱3d╱=╱ // 0x1894 @0x19
0x187b…18c3 at001a = ╱3d╱=╱ // 0x1895 @0x1a
0x187b…18c3 at001b = ╱3d╱=╱ // 0x1896 @0x1b
0x187b…18c3 at001c = ╱3d╱=╱ // 0x1897 @0x1c
0x187b…18c3 at001d = ╱3d╱=╱ // 0x1898 @0x1d
0x187b…18c3 at001e = ╱3d╱=╱ // 0x1899 @0x1e
0x187b…18c3 at001f = ╱3d╱=╱ // 0x189a @0x1f
0x187b…18c3 at0020 = ╱3d╱=╱ // 0x189b @0x20
0x187b…18c3 at0021 = ╱3d╱=╱ // 0x189c @0x21
0x187b…18c3 at0022 = ╱3d╱=╱ // 0x189d @0x22
0x187b…18c3 at0023 = ╱3d╱=╱ // 0x189e @0x23
0x187b…18c3 at0024 = ╱3d╱=╱ // 0x189f @0x24
0x187b…18c3 at0025 = ╱3d╱=╱ // 0x18a0 @0x25
0x187b…18c3 at0026 = ╱3d╱=╱ // 0x18a1 @0x26
0x187b…18c3 at0027 = ╱3d╱=╱ // 0x18a2 @0x27
0x187b…18c3 at0028 = ╱3d╱=╱ // 0x18a3 @0x28
0x187b…18c3 at0029 = ╱3d╱=╱ // 0x18a4 @0x29
0x187b…18c3 at002a = ╱3d╱=╱ // 0x18a5 @0x2a
0x187b…18c3 at002b = ╱3d╱=╱ // 0x18a6 @0x2b
0x187b…18c3 at002c = ╱3d╱=╱ // 0x18a7 @0x2c
0x187b…18c3 at002d = ╱3d╱=╱ // 0x18a8 @0x2d
0x187b…18c3 at002e = ╱3d╱=╱ // 0x18a9 @0x2e
0x187b…18c3 at002f = ╱3d╱=╱ // 0x18aa @0x2f
0x187b…18c3 at0030 = ╱3d╱=╱ // 0x18ab @0x30
0x187b…18c3 at0031 = ╱3d╱=╱ // 0x18ac @0x31
0x187b…18c3 at0032 = ╱3d╱=╱ // 0x18ad @0x32
0x187b…18c3 at0033 = ╱3d╱=╱ // 0x18ae @0x33
0x187b…18c3 at0034 = ╱3d╱=╱ // 0x18af @0x34
0x187b…18c3 at0035 = ╱3d╱=╱ // 0x18b0 @0x35
0x187b…18c3 at0036 = ╱3d╱=╱ // 0x18b1 @0x36
0x187b…18c3 at0037 = ╱3d╱=╱ // 0x18b2 @0x37
0x187b…18c3 at0038 = ╱3d╱=╱ // 0x18b3 @0x38
0x187b…18c3 at0039 = ╱3d╱=╱ // 0x18b4 @0x39
0x187b…18c3 at003a = ╱3d╱=╱ // 0x18b5 @0x3a
0x187b…18c3 at003b = ╱3d╱=╱ // 0x18b6 @0x3b
0x187b…18c3 at003c = ╱3d╱=╱ // 0x18b7 @0x3c
0x187b…18c3 at003d = ╱3d╱=╱ // 0x18b8 @0x3d
0x187b…18c3 at003e = ╱3d╱=╱ // 0x18b9 @0x3e
0x187b…18c3 at003f = ╱3d╱=╱ // 0x18ba @0x3f
0x187b…18c3 at0040 = ╱3d╱=╱ // 0x18bb @0x40
0x187b…18c3 at0041 = ╱3d╱=╱ // 0x18bc @0x41
0x187b…18c3 at0042 = ╱3d╱=╱ // 0x18bd @0x42
0x187b…18c3 at0043 = ╱3d╱=╱ // 0x18be @0x43
0x187b…18c3 at0044 = ╱3d╱=╱ // 0x18bf @0x44
0x187b…18c3 at0045 = ╱3d╱=╱ // 0x18c0 @0x45
0x187b…18c3 at0046 = ╱22╱"╱ // 0x18c1 @0x46
0x187b…18c3 at0047 = EOL // 0x18c2 @0x47
0x187b…18c3 }
0x18c3…18f8 aee6 2320 PRINT "Nettoomsætning" ; TAB(53) ; CHR$ (S_OMSÆTN,9,2)
0x18c3…18f8 LineComal80 {
0x18c3…18f8 ptr = 0xaee6 // 0x18c3 @0x0
0x18c3…18f8 lno = 0x0910 // 0x18c5 @0x2
0x18c3…18f8 at0004 = ╱92╱ PRINT ╱ // 0x18c7 @0x4
0x18c3…18f8 at0005 = ╱22╱"╱ // 0x18c8 @0x5
0x18c3…18f8 at0006 = ╱4e╱N╱ // 0x18c9 @0x6
0x18c3…18f8 at0007 = ╱65╱e╱ // 0x18ca @0x7
0x18c3…18f8 at0008 = ╱74╱t╱ // 0x18cb @0x8
0x18c3…18f8 at0009 = ╱74╱t╱ // 0x18cc @0x9
0x18c3…18f8 at000a = ╱6f╱o╱ // 0x18cd @0xa
0x18c3…18f8 at000b = ╱6f╱o╱ // 0x18ce @0xb
0x18c3…18f8 at000c = ╱6d╱m╱ // 0x18cf @0xc
0x18c3…18f8 at000d = ╱73╱s╱ // 0x18d0 @0xd
0x18c3…18f8 at000e = ╱7b╱æ╱ // 0x18d1 @0xe
0x18c3…18f8 at000f = ╱74╱t╱ // 0x18d2 @0xf
0x18c3…18f8 at0010 = ╱6e╱n╱ // 0x18d3 @0x10
0x18c3…18f8 at0011 = ╱69╱i╱ // 0x18d4 @0x11
0x18c3…18f8 at0012 = ╱6e╱n╱ // 0x18d5 @0x12
0x18c3…18f8 at0013 = ╱67╱g╱ // 0x18d6 @0x13
0x18c3…18f8 at0014 = ╱22╱"╱ // 0x18d7 @0x14
0x18c3…18f8 at0015 = ╱ea╱ ; ╱ // 0x18d8 @0x15
0x18c3…18f8 at0016 = ╱d2╱TAB╱ // 0x18d9 @0x16
0x18c3…18f8 at0017 = ╱ed╱(╱ // 0x18da @0x17
0x18c3…18f8 at0018 = ╱35╱5╱ // 0x18db @0x18
0x18c3…18f8 at0019 = ╱33╱3╱ // 0x18dc @0x19
0x18c3…18f8 at001a = ╱f23500╱ // 0x18dd @0x1a
0x18c3…18f8 at001d = ╱ee╱)╱ // 0x18e0 @0x1d
0x18c3…18f8 at001e = ╱ea╱ ; ╱ // 0x18e1 @0x1e
0x18c3…18f8 at001f = ╱d0╱ CHR$ ╱ // 0x18e2 @0x1f
0x18c3…18f8 at0020 = ╱ed╱(╱ // 0x18e3 @0x20
0x18c3…18f8 at0021 = ╱53╱S╱ // 0x18e4 @0x21
0x18c3…18f8 at0022 = ╱5f╱_╱ // 0x18e5 @0x22
0x18c3…18f8 at0023 = ╱4f╱O╱ // 0x18e6 @0x23
0x18c3…18f8 at0024 = ╱4d╱M╱ // 0x18e7 @0x24
0x18c3…18f8 at0025 = ╱53╱S╱ // 0x18e8 @0x25
0x18c3…18f8 at0026 = ╱5b╱Æ╱ // 0x18e9 @0x26
0x18c3…18f8 at0027 = ╱54╱T╱ // 0x18ea @0x27
0x18c3…18f8 at0028 = ╱4e╱N╱ // 0x18eb @0x28
0x18c3…18f8 at0029 = ╱ec╱,╱ // 0x18ec @0x29
0x18c3…18f8 at002a = ╱39╱9╱ // 0x18ed @0x2a
0x18c3…18f8 at002b = ╱f20900╱ // 0x18ee @0x2b
0x18c3…18f8 at002e = ╱ec╱,╱ // 0x18f1 @0x2e
0x18c3…18f8 at002f = ╱32╱2╱ // 0x18f2 @0x2f
0x18c3…18f8 at0030 = ╱f20200╱ // 0x18f3 @0x30
0x18c3…18f8 at0033 = ╱ee╱)╱ // 0x18f6 @0x33
0x18c3…18f8 at0034 = EOL // 0x18f7 @0x34
0x18c3…18f8 }
0x18f8…1934 af22 2330 PRINT "- Vareforbrug" ; TAB(53) ; CHR$ (S_VAREFO * ( - 1),9,2)
0x18f8…1934 LineComal80 {
0x18f8…1934 ptr = 0xaf22 // 0x18f8 @0x0
0x18f8…1934 lno = 0x091a // 0x18fa @0x2
0x18f8…1934 at0004 = ╱92╱ PRINT ╱ // 0x18fc @0x4
0x18f8…1934 at0005 = ╱22╱"╱ // 0x18fd @0x5
0x18f8…1934 at0006 = ╱2d╱-╱ // 0x18fe @0x6
0x18f8…1934 at0007 = ╱20╱…╱ // 0x18ff @0x7
0x18f8…1934 at0008 = ╱56╱V╱ // 0x1900 @0x8
0x18f8…1934 at0009 = ╱61╱a╱ // 0x1901 @0x9
0x18f8…1934 at000a = ╱72╱r╱ // 0x1902 @0xa
0x18f8…1934 at000b = ╱65╱e╱ // 0x1903 @0xb
0x18f8…1934 at000c = ╱66╱f╱ // 0x1904 @0xc
0x18f8…1934 at000d = ╱6f╱o╱ // 0x1905 @0xd
0x18f8…1934 at000e = ╱72╱r╱ // 0x1906 @0xe
0x18f8…1934 at000f = ╱62╱b╱ // 0x1907 @0xf
0x18f8…1934 at0010 = ╱72╱r╱ // 0x1908 @0x10
0x18f8…1934 at0011 = ╱75╱u╱ // 0x1909 @0x11
0x18f8…1934 at0012 = ╱67╱g╱ // 0x190a @0x12
0x18f8…1934 at0013 = ╱22╱"╱ // 0x190b @0x13
0x18f8…1934 at0014 = ╱ea╱ ; ╱ // 0x190c @0x14
0x18f8…1934 at0015 = ╱d2╱TAB╱ // 0x190d @0x15
0x18f8…1934 at0016 = ╱ed╱(╱ // 0x190e @0x16
0x18f8…1934 at0017 = ╱35╱5╱ // 0x190f @0x17
0x18f8…1934 at0018 = ╱33╱3╱ // 0x1910 @0x18
0x18f8…1934 at0019 = ╱f23500╱ // 0x1911 @0x19
0x18f8…1934 at001c = ╱ee╱)╱ // 0x1914 @0x1c
0x18f8…1934 at001d = ╱ea╱ ; ╱ // 0x1915 @0x1d
0x18f8…1934 at001e = ╱d0╱ CHR$ ╱ // 0x1916 @0x1e
0x18f8…1934 at001f = ╱ed╱(╱ // 0x1917 @0x1f
0x18f8…1934 at0020 = ╱53╱S╱ // 0x1918 @0x20
0x18f8…1934 at0021 = ╱5f╱_╱ // 0x1919 @0x21
0x18f8…1934 at0022 = ╱56╱V╱ // 0x191a @0x22
0x18f8…1934 at0023 = ╱41╱A╱ // 0x191b @0x23
0x18f8…1934 at0024 = ╱52╱R╱ // 0x191c @0x24
0x18f8…1934 at0025 = ╱45╱E╱ // 0x191d @0x25
0x18f8…1934 at0026 = ╱46╱F╱ // 0x191e @0x26
0x18f8…1934 at0027 = ╱4f╱O╱ // 0x191f @0x27
0x18f8…1934 at0028 = ╱e7╱ * ╱ // 0x1920 @0x28
0x18f8…1934 at0029 = ╱ed╱(╱ // 0x1921 @0x29
0x18f8…1934 at002a = ╱de╱ - ╱ // 0x1922 @0x2a
0x18f8…1934 at002b = ╱31╱1╱ // 0x1923 @0x2b
0x18f8…1934 at002c = ╱f20100╱ // 0x1924 @0x2c
0x18f8…1934 at002f = ╱ee╱)╱ // 0x1927 @0x2f
0x18f8…1934 at0030 = ╱ec╱,╱ // 0x1928 @0x30
0x18f8…1934 at0031 = ╱39╱9╱ // 0x1929 @0x31
0x18f8…1934 at0032 = ╱f20900╱ // 0x192a @0x32
0x18f8…1934 at0035 = ╱ec╱,╱ // 0x192d @0x35
0x18f8…1934 at0036 = ╱32╱2╱ // 0x192e @0x36
0x18f8…1934 at0037 = ╱f20200╱ // 0x192f @0x37
0x18f8…1934 at003a = ╱ee╱)╱ // 0x1932 @0x3a
0x18f8…1934 at003b = EOL // 0x1933 @0x3b
0x18f8…1934 }
0x1934…1951 af3f 2340 PRINT TAB(53) ; "------------"
0x1934…1951 LineComal80 {
0x1934…1951 ptr = 0xaf3f // 0x1934 @0x0
0x1934…1951 lno = 0x0924 // 0x1936 @0x2
0x1934…1951 at0004 = ╱92╱ PRINT ╱ // 0x1938 @0x4
0x1934…1951 at0005 = ╱d2╱TAB╱ // 0x1939 @0x5
0x1934…1951 at0006 = ╱ed╱(╱ // 0x193a @0x6
0x1934…1951 at0007 = ╱35╱5╱ // 0x193b @0x7
0x1934…1951 at0008 = ╱33╱3╱ // 0x193c @0x8
0x1934…1951 at0009 = ╱f23500╱ // 0x193d @0x9
0x1934…1951 at000c = ╱ee╱)╱ // 0x1940 @0xc
0x1934…1951 at000d = ╱ea╱ ; ╱ // 0x1941 @0xd
0x1934…1951 at000e = ╱22╱"╱ // 0x1942 @0xe
0x1934…1951 at000f = ╱2d╱-╱ // 0x1943 @0xf
0x1934…1951 at0010 = ╱2d╱-╱ // 0x1944 @0x10
0x1934…1951 at0011 = ╱2d╱-╱ // 0x1945 @0x11
0x1934…1951 at0012 = ╱2d╱-╱ // 0x1946 @0x12
0x1934…1951 at0013 = ╱2d╱-╱ // 0x1947 @0x13
0x1934…1951 at0014 = ╱2d╱-╱ // 0x1948 @0x14
0x1934…1951 at0015 = ╱2d╱-╱ // 0x1949 @0x15
0x1934…1951 at0016 = ╱2d╱-╱ // 0x194a @0x16
0x1934…1951 at0017 = ╱2d╱-╱ // 0x194b @0x17
0x1934…1951 at0018 = ╱2d╱-╱ // 0x194c @0x18
0x1934…1951 at0019 = ╱2d╱-╱ // 0x194d @0x19
0x1934…1951 at001a = ╱2d╱-╱ // 0x194e @0x1a
0x1934…1951 at001b = ╱22╱"╱ // 0x194f @0x1b
0x1934…1951 at001c = EOL // 0x1950 @0x1c
0x1934…1951 }
0x1951…196f af5d 2350 LET BRUTTO := S_OMSÆTN + S_VAREFO
0x1951…196f LineComal80 {
0x1951…196f ptr = 0xaf5d // 0x1951 @0x0
0x1951…196f lno = 0x092e // 0x1953 @0x2
0x1951…196f at0004 = ╱86╱ LET ╱ // 0x1955 @0x4
0x1951…196f at0005 = ╱42╱B╱ // 0x1956 @0x5
0x1951…196f at0006 = ╱52╱R╱ // 0x1957 @0x6
0x1951…196f at0007 = ╱55╱U╱ // 0x1958 @0x7
0x1951…196f at0008 = ╱54╱T╱ // 0x1959 @0x8
0x1951…196f at0009 = ╱54╱T╱ // 0x195a @0x9
0x1951…196f at000a = ╱4f╱O╱ // 0x195b @0xa
0x1951…196f at000b = ╱f0╱ := ╱ // 0x195c @0xb
0x1951…196f at000c = ╱53╱S╱ // 0x195d @0xc
0x1951…196f at000d = ╱5f╱_╱ // 0x195e @0xd
0x1951…196f at000e = ╱4f╱O╱ // 0x195f @0xe
0x1951…196f at000f = ╱4d╱M╱ // 0x1960 @0xf
0x1951…196f at0010 = ╱53╱S╱ // 0x1961 @0x10
0x1951…196f at0011 = ╱5b╱Æ╱ // 0x1962 @0x11
0x1951…196f at0012 = ╱54╱T╱ // 0x1963 @0x12
0x1951…196f at0013 = ╱4e╱N╱ // 0x1964 @0x13
0x1951…196f at0014 = ╱e5╱ + ╱ // 0x1965 @0x14
0x1951…196f at0015 = ╱53╱S╱ // 0x1966 @0x15
0x1951…196f at0016 = ╱5f╱_╱ // 0x1967 @0x16
0x1951…196f at0017 = ╱56╱V╱ // 0x1968 @0x17
0x1951…196f at0018 = ╱41╱A╱ // 0x1969 @0x18
0x1951…196f at0019 = ╱52╱R╱ // 0x196a @0x19
0x1951…196f at001a = ╱45╱E╱ // 0x196b @0x1a
0x1951…196f at001b = ╱46╱F╱ // 0x196c @0x1b
0x1951…196f at001c = ╱4f╱O╱ // 0x196d @0x1c
0x1951…196f at001d = EOL // 0x196e @0x1d
0x1951…196f }
0x196f…19a5 af93 2360 PRINT "Bruttofortjeneste" ; TAB(53) ; CHR$ (BRUTTO,9,2)
0x196f…19a5 LineComal80 {
0x196f…19a5 ptr = 0xaf93 // 0x196f @0x0
0x196f…19a5 lno = 0x0938 // 0x1971 @0x2
0x196f…19a5 at0004 = ╱92╱ PRINT ╱ // 0x1973 @0x4
0x196f…19a5 at0005 = ╱22╱"╱ // 0x1974 @0x5
0x196f…19a5 at0006 = ╱42╱B╱ // 0x1975 @0x6
0x196f…19a5 at0007 = ╱72╱r╱ // 0x1976 @0x7
0x196f…19a5 at0008 = ╱75╱u╱ // 0x1977 @0x8
0x196f…19a5 at0009 = ╱74╱t╱ // 0x1978 @0x9
0x196f…19a5 at000a = ╱74╱t╱ // 0x1979 @0xa
0x196f…19a5 at000b = ╱6f╱o╱ // 0x197a @0xb
0x196f…19a5 at000c = ╱66╱f╱ // 0x197b @0xc
0x196f…19a5 at000d = ╱6f╱o╱ // 0x197c @0xd
0x196f…19a5 at000e = ╱72╱r╱ // 0x197d @0xe
0x196f…19a5 at000f = ╱74╱t╱ // 0x197e @0xf
0x196f…19a5 at0010 = ╱6a╱j╱ // 0x197f @0x10
0x196f…19a5 at0011 = ╱65╱e╱ // 0x1980 @0x11
0x196f…19a5 at0012 = ╱6e╱n╱ // 0x1981 @0x12
0x196f…19a5 at0013 = ╱65╱e╱ // 0x1982 @0x13
0x196f…19a5 at0014 = ╱73╱s╱ // 0x1983 @0x14
0x196f…19a5 at0015 = ╱74╱t╱ // 0x1984 @0x15
0x196f…19a5 at0016 = ╱65╱e╱ // 0x1985 @0x16
0x196f…19a5 at0017 = ╱22╱"╱ // 0x1986 @0x17
0x196f…19a5 at0018 = ╱ea╱ ; ╱ // 0x1987 @0x18
0x196f…19a5 at0019 = ╱d2╱TAB╱ // 0x1988 @0x19
0x196f…19a5 at001a = ╱ed╱(╱ // 0x1989 @0x1a
0x196f…19a5 at001b = ╱35╱5╱ // 0x198a @0x1b
0x196f…19a5 at001c = ╱33╱3╱ // 0x198b @0x1c
0x196f…19a5 at001d = ╱f23500╱ // 0x198c @0x1d
0x196f…19a5 at0020 = ╱ee╱)╱ // 0x198f @0x20
0x196f…19a5 at0021 = ╱ea╱ ; ╱ // 0x1990 @0x21
0x196f…19a5 at0022 = ╱d0╱ CHR$ ╱ // 0x1991 @0x22
0x196f…19a5 at0023 = ╱ed╱(╱ // 0x1992 @0x23
0x196f…19a5 at0024 = ╱42╱B╱ // 0x1993 @0x24
0x196f…19a5 at0025 = ╱52╱R╱ // 0x1994 @0x25
0x196f…19a5 at0026 = ╱55╱U╱ // 0x1995 @0x26
0x196f…19a5 at0027 = ╱54╱T╱ // 0x1996 @0x27
0x196f…19a5 at0028 = ╱54╱T╱ // 0x1997 @0x28
0x196f…19a5 at0029 = ╱4f╱O╱ // 0x1998 @0x29
0x196f…19a5 at002a = ╱ec╱,╱ // 0x1999 @0x2a
0x196f…19a5 at002b = ╱39╱9╱ // 0x199a @0x2b
0x196f…19a5 at002c = ╱f20900╱ // 0x199b @0x2c
0x196f…19a5 at002f = ╱ec╱,╱ // 0x199e @0x2f
0x196f…19a5 at0030 = ╱32╱2╱ // 0x199f @0x30
0x196f…19a5 at0031 = ╱f20200╱ // 0x19a0 @0x31
0x196f…19a5 at0034 = ╱ee╱)╱ // 0x19a3 @0x34
0x196f…19a5 at0035 = EOL // 0x19a4 @0x35
0x196f…19a5 }
0x19a5…19d9 afc7 2370 PRINT "- Øvrige variable omkostningninger" ; TAB(53) ;
0x19a5…19d9 LineComal80 {
0x19a5…19d9 ptr = 0xafc7 // 0x19a5 @0x0
0x19a5…19d9 lno = 0x0942 // 0x19a7 @0x2
0x19a5…19d9 at0004 = ╱92╱ PRINT ╱ // 0x19a9 @0x4
0x19a5…19d9 at0005 = ╱22╱"╱ // 0x19aa @0x5
0x19a5…19d9 at0006 = ╱2d╱-╱ // 0x19ab @0x6
0x19a5…19d9 at0007 = ╱20╱…╱ // 0x19ac @0x7
0x19a5…19d9 at0008 = ╱5c╱Ø╱ // 0x19ad @0x8
0x19a5…19d9 at0009 = ╱76╱v╱ // 0x19ae @0x9
0x19a5…19d9 at000a = ╱72╱r╱ // 0x19af @0xa
0x19a5…19d9 at000b = ╱69╱i╱ // 0x19b0 @0xb
0x19a5…19d9 at000c = ╱67╱g╱ // 0x19b1 @0xc
0x19a5…19d9 at000d = ╱65╱e╱ // 0x19b2 @0xd
0x19a5…19d9 at000e = ╱20╱…╱ // 0x19b3 @0xe
0x19a5…19d9 at000f = ╱76╱v╱ // 0x19b4 @0xf
0x19a5…19d9 at0010 = ╱61╱a╱ // 0x19b5 @0x10
0x19a5…19d9 at0011 = ╱72╱r╱ // 0x19b6 @0x11
0x19a5…19d9 at0012 = ╱69╱i╱ // 0x19b7 @0x12
0x19a5…19d9 at0013 = ╱61╱a╱ // 0x19b8 @0x13
0x19a5…19d9 at0014 = ╱62╱b╱ // 0x19b9 @0x14
0x19a5…19d9 at0015 = ╱6c╱l╱ // 0x19ba @0x15
0x19a5…19d9 at0016 = ╱65╱e╱ // 0x19bb @0x16
0x19a5…19d9 at0017 = ╱20╱…╱ // 0x19bc @0x17
0x19a5…19d9 at0018 = ╱6f╱o╱ // 0x19bd @0x18
0x19a5…19d9 at0019 = ╱6d╱m╱ // 0x19be @0x19
0x19a5…19d9 at001a = ╱6b╱k╱ // 0x19bf @0x1a
0x19a5…19d9 at001b = ╱6f╱o╱ // 0x19c0 @0x1b
0x19a5…19d9 at001c = ╱73╱s╱ // 0x19c1 @0x1c
0x19a5…19d9 at001d = ╱74╱t╱ // 0x19c2 @0x1d
0x19a5…19d9 at001e = ╱6e╱n╱ // 0x19c3 @0x1e
0x19a5…19d9 at001f = ╱69╱i╱ // 0x19c4 @0x1f
0x19a5…19d9 at0020 = ╱6e╱n╱ // 0x19c5 @0x20
0x19a5…19d9 at0021 = ╱67╱g╱ // 0x19c6 @0x21
0x19a5…19d9 at0022 = ╱6e╱n╱ // 0x19c7 @0x22
0x19a5…19d9 at0023 = ╱69╱i╱ // 0x19c8 @0x23
0x19a5…19d9 at0024 = ╱6e╱n╱ // 0x19c9 @0x24
0x19a5…19d9 at0025 = ╱67╱g╱ // 0x19ca @0x25
0x19a5…19d9 at0026 = ╱65╱e╱ // 0x19cb @0x26
0x19a5…19d9 at0027 = ╱72╱r╱ // 0x19cc @0x27
0x19a5…19d9 at0028 = ╱22╱"╱ // 0x19cd @0x28
0x19a5…19d9 at0029 = ╱ea╱ ; ╱ // 0x19ce @0x29
0x19a5…19d9 at002a = ╱d2╱TAB╱ // 0x19cf @0x2a
0x19a5…19d9 at002b = ╱ed╱(╱ // 0x19d0 @0x2b
0x19a5…19d9 at002c = ╱35╱5╱ // 0x19d1 @0x2c
0x19a5…19d9 at002d = ╱33╱3╱ // 0x19d2 @0x2d
0x19a5…19d9 at002e = ╱f23500╱ // 0x19d3 @0x2e
0x19a5…19d9 at0031 = ╱ee╱)╱ // 0x19d6 @0x31
0x19a5…19d9 at0032 = ╱ea╱ ; ╱ // 0x19d7 @0x32
0x19a5…19d9 at0033 = EOL // 0x19d8 @0x33
0x19a5…19d9 }
0x19d9…19fb afe9 2380 PRINT CHR$ (ØVR_VAR * ( - 1),9,2)
0x19d9…19fb LineComal80 {
0x19d9…19fb ptr = 0xafe9 // 0x19d9 @0x0
0x19d9…19fb lno = 0x094c // 0x19db @0x2
0x19d9…19fb at0004 = ╱92╱ PRINT ╱ // 0x19dd @0x4
0x19d9…19fb at0005 = ╱d0╱ CHR$ ╱ // 0x19de @0x5
0x19d9…19fb at0006 = ╱ed╱(╱ // 0x19df @0x6
0x19d9…19fb at0007 = ╱5c╱Ø╱ // 0x19e0 @0x7
0x19d9…19fb at0008 = ╱56╱V╱ // 0x19e1 @0x8
0x19d9…19fb at0009 = ╱52╱R╱ // 0x19e2 @0x9
0x19d9…19fb at000a = ╱5f╱_╱ // 0x19e3 @0xa
0x19d9…19fb at000b = ╱56╱V╱ // 0x19e4 @0xb
0x19d9…19fb at000c = ╱41╱A╱ // 0x19e5 @0xc
0x19d9…19fb at000d = ╱52╱R╱ // 0x19e6 @0xd
0x19d9…19fb at000e = ╱e7╱ * ╱ // 0x19e7 @0xe
0x19d9…19fb at000f = ╱ed╱(╱ // 0x19e8 @0xf
0x19d9…19fb at0010 = ╱de╱ - ╱ // 0x19e9 @0x10
0x19d9…19fb at0011 = ╱31╱1╱ // 0x19ea @0x11
0x19d9…19fb at0012 = ╱f20100╱ // 0x19eb @0x12
0x19d9…19fb at0015 = ╱ee╱)╱ // 0x19ee @0x15
0x19d9…19fb at0016 = ╱ec╱,╱ // 0x19ef @0x16
0x19d9…19fb at0017 = ╱39╱9╱ // 0x19f0 @0x17
0x19d9…19fb at0018 = ╱f20900╱ // 0x19f1 @0x18
0x19d9…19fb at001b = ╱ec╱,╱ // 0x19f4 @0x1b
0x19d9…19fb at001c = ╱32╱2╱ // 0x19f5 @0x1c
0x19d9…19fb at001d = ╱f20200╱ // 0x19f6 @0x1d
0x19d9…19fb at0020 = ╱ee╱)╱ // 0x19f9 @0x20
0x19d9…19fb at0021 = EOL // 0x19fa @0x21
0x19d9…19fb }
0x19fb…1a17 b005 2390 LET DÆKNING := BRUTTO + ØVR_VAR
0x19fb…1a17 LineComal80 {
0x19fb…1a17 ptr = 0xb005 // 0x19fb @0x0
0x19fb…1a17 lno = 0x0956 // 0x19fd @0x2
0x19fb…1a17 at0004 = ╱86╱ LET ╱ // 0x19ff @0x4
0x19fb…1a17 at0005 = ╱44╱D╱ // 0x1a00 @0x5
0x19fb…1a17 at0006 = ╱5b╱Æ╱ // 0x1a01 @0x6
0x19fb…1a17 at0007 = ╱4b╱K╱ // 0x1a02 @0x7
0x19fb…1a17 at0008 = ╱4e╱N╱ // 0x1a03 @0x8
0x19fb…1a17 at0009 = ╱49╱I╱ // 0x1a04 @0x9
0x19fb…1a17 at000a = ╱4e╱N╱ // 0x1a05 @0xa
0x19fb…1a17 at000b = ╱47╱G╱ // 0x1a06 @0xb
0x19fb…1a17 at000c = ╱f0╱ := ╱ // 0x1a07 @0xc
0x19fb…1a17 at000d = ╱42╱B╱ // 0x1a08 @0xd
0x19fb…1a17 at000e = ╱52╱R╱ // 0x1a09 @0xe
0x19fb…1a17 at000f = ╱55╱U╱ // 0x1a0a @0xf
0x19fb…1a17 at0010 = ╱54╱T╱ // 0x1a0b @0x10
0x19fb…1a17 at0011 = ╱54╱T╱ // 0x1a0c @0x11
0x19fb…1a17 at0012 = ╱4f╱O╱ // 0x1a0d @0x12
0x19fb…1a17 at0013 = ╱e5╱ + ╱ // 0x1a0e @0x13
0x19fb…1a17 at0014 = ╱5c╱Ø╱ // 0x1a0f @0x14
0x19fb…1a17 at0015 = ╱56╱V╱ // 0x1a10 @0x15
0x19fb…1a17 at0016 = ╱52╱R╱ // 0x1a11 @0x16
0x19fb…1a17 at0017 = ╱5f╱_╱ // 0x1a12 @0x17
0x19fb…1a17 at0018 = ╱56╱V╱ // 0x1a13 @0x18
0x19fb…1a17 at0019 = ╱41╱A╱ // 0x1a14 @0x19
0x19fb…1a17 at001a = ╱52╱R╱ // 0x1a15 @0x1a
0x19fb…1a17 at001b = EOL // 0x1a16 @0x1b
0x19fb…1a17 }
0x1a17…1a34 b022 2400 PRINT TAB(53) ; "------------"
0x1a17…1a34 LineComal80 {
0x1a17…1a34 ptr = 0xb022 // 0x1a17 @0x0
0x1a17…1a34 lno = 0x0960 // 0x1a19 @0x2
0x1a17…1a34 at0004 = ╱92╱ PRINT ╱ // 0x1a1b @0x4
0x1a17…1a34 at0005 = ╱d2╱TAB╱ // 0x1a1c @0x5
0x1a17…1a34 at0006 = ╱ed╱(╱ // 0x1a1d @0x6
0x1a17…1a34 at0007 = ╱35╱5╱ // 0x1a1e @0x7
0x1a17…1a34 at0008 = ╱33╱3╱ // 0x1a1f @0x8
0x1a17…1a34 at0009 = ╱f23500╱ // 0x1a20 @0x9
0x1a17…1a34 at000c = ╱ee╱)╱ // 0x1a23 @0xc
0x1a17…1a34 at000d = ╱ea╱ ; ╱ // 0x1a24 @0xd
0x1a17…1a34 at000e = ╱22╱"╱ // 0x1a25 @0xe
0x1a17…1a34 at000f = ╱2d╱-╱ // 0x1a26 @0xf
0x1a17…1a34 at0010 = ╱2d╱-╱ // 0x1a27 @0x10
0x1a17…1a34 at0011 = ╱2d╱-╱ // 0x1a28 @0x11
0x1a17…1a34 at0012 = ╱2d╱-╱ // 0x1a29 @0x12
0x1a17…1a34 at0013 = ╱2d╱-╱ // 0x1a2a @0x13
0x1a17…1a34 at0014 = ╱2d╱-╱ // 0x1a2b @0x14
0x1a17…1a34 at0015 = ╱2d╱-╱ // 0x1a2c @0x15
0x1a17…1a34 at0016 = ╱2d╱-╱ // 0x1a2d @0x16
0x1a17…1a34 at0017 = ╱2d╱-╱ // 0x1a2e @0x17
0x1a17…1a34 at0018 = ╱2d╱-╱ // 0x1a2f @0x18
0x1a17…1a34 at0019 = ╱2d╱-╱ // 0x1a30 @0x19
0x1a17…1a34 at001a = ╱2d╱-╱ // 0x1a31 @0x1a
0x1a17…1a34 at001b = ╱22╱"╱ // 0x1a32 @0x1b
0x1a17…1a34 at001c = EOL // 0x1a33 @0x1c
0x1a17…1a34 }
0x1a34…1a68 b056 2410 PRINT "Dækningsbidrag" ; TAB(53) ; CHR$ (DÆKNING,9,2)
0x1a34…1a68 LineComal80 {
0x1a34…1a68 ptr = 0xb056 // 0x1a34 @0x0
0x1a34…1a68 lno = 0x096a // 0x1a36 @0x2
0x1a34…1a68 at0004 = ╱92╱ PRINT ╱ // 0x1a38 @0x4
0x1a34…1a68 at0005 = ╱22╱"╱ // 0x1a39 @0x5
0x1a34…1a68 at0006 = ╱44╱D╱ // 0x1a3a @0x6
0x1a34…1a68 at0007 = ╱7b╱æ╱ // 0x1a3b @0x7
0x1a34…1a68 at0008 = ╱6b╱k╱ // 0x1a3c @0x8
0x1a34…1a68 at0009 = ╱6e╱n╱ // 0x1a3d @0x9
0x1a34…1a68 at000a = ╱69╱i╱ // 0x1a3e @0xa
0x1a34…1a68 at000b = ╱6e╱n╱ // 0x1a3f @0xb
0x1a34…1a68 at000c = ╱67╱g╱ // 0x1a40 @0xc
0x1a34…1a68 at000d = ╱73╱s╱ // 0x1a41 @0xd
0x1a34…1a68 at000e = ╱62╱b╱ // 0x1a42 @0xe
0x1a34…1a68 at000f = ╱69╱i╱ // 0x1a43 @0xf
0x1a34…1a68 at0010 = ╱64╱d╱ // 0x1a44 @0x10
0x1a34…1a68 at0011 = ╱72╱r╱ // 0x1a45 @0x11
0x1a34…1a68 at0012 = ╱61╱a╱ // 0x1a46 @0x12
0x1a34…1a68 at0013 = ╱67╱g╱ // 0x1a47 @0x13
0x1a34…1a68 at0014 = ╱22╱"╱ // 0x1a48 @0x14
0x1a34…1a68 at0015 = ╱ea╱ ; ╱ // 0x1a49 @0x15
0x1a34…1a68 at0016 = ╱d2╱TAB╱ // 0x1a4a @0x16
0x1a34…1a68 at0017 = ╱ed╱(╱ // 0x1a4b @0x17
0x1a34…1a68 at0018 = ╱35╱5╱ // 0x1a4c @0x18
0x1a34…1a68 at0019 = ╱33╱3╱ // 0x1a4d @0x19
0x1a34…1a68 at001a = ╱f23500╱ // 0x1a4e @0x1a
0x1a34…1a68 at001d = ╱ee╱)╱ // 0x1a51 @0x1d
0x1a34…1a68 at001e = ╱ea╱ ; ╱ // 0x1a52 @0x1e
0x1a34…1a68 at001f = ╱d0╱ CHR$ ╱ // 0x1a53 @0x1f
0x1a34…1a68 at0020 = ╱ed╱(╱ // 0x1a54 @0x20
0x1a34…1a68 at0021 = ╱44╱D╱ // 0x1a55 @0x21
0x1a34…1a68 at0022 = ╱5b╱Æ╱ // 0x1a56 @0x22
0x1a34…1a68 at0023 = ╱4b╱K╱ // 0x1a57 @0x23
0x1a34…1a68 at0024 = ╱4e╱N╱ // 0x1a58 @0x24
0x1a34…1a68 at0025 = ╱49╱I╱ // 0x1a59 @0x25
0x1a34…1a68 at0026 = ╱4e╱N╱ // 0x1a5a @0x26
0x1a34…1a68 at0027 = ╱47╱G╱ // 0x1a5b @0x27
0x1a34…1a68 at0028 = ╱ec╱,╱ // 0x1a5c @0x28
0x1a34…1a68 at0029 = ╱39╱9╱ // 0x1a5d @0x29
0x1a34…1a68 at002a = ╱f20900╱ // 0x1a5e @0x2a
0x1a34…1a68 at002d = ╱ec╱,╱ // 0x1a61 @0x2d
0x1a34…1a68 at002e = ╱32╱2╱ // 0x1a62 @0x2e
0x1a34…1a68 at002f = ╱f20200╱ // 0x1a63 @0x2f
0x1a34…1a68 at0032 = ╱ee╱)╱ // 0x1a66 @0x32
0x1a34…1a68 at0033 = EOL // 0x1a67 @0x33
0x1a34…1a68 }
0x1a68…1a96 b084 2420 PRINT "- Kontante kap. omkostninger" ; TAB(53) ;
0x1a68…1a96 LineComal80 {
0x1a68…1a96 ptr = 0xb084 // 0x1a68 @0x0
0x1a68…1a96 lno = 0x0974 // 0x1a6a @0x2
0x1a68…1a96 at0004 = ╱92╱ PRINT ╱ // 0x1a6c @0x4
0x1a68…1a96 at0005 = ╱22╱"╱ // 0x1a6d @0x5
0x1a68…1a96 at0006 = ╱2d╱-╱ // 0x1a6e @0x6
0x1a68…1a96 at0007 = ╱20╱…╱ // 0x1a6f @0x7
0x1a68…1a96 at0008 = ╱4b╱K╱ // 0x1a70 @0x8
0x1a68…1a96 at0009 = ╱6f╱o╱ // 0x1a71 @0x9
0x1a68…1a96 at000a = ╱6e╱n╱ // 0x1a72 @0xa
0x1a68…1a96 at000b = ╱74╱t╱ // 0x1a73 @0xb
0x1a68…1a96 at000c = ╱61╱a╱ // 0x1a74 @0xc
0x1a68…1a96 at000d = ╱6e╱n╱ // 0x1a75 @0xd
0x1a68…1a96 at000e = ╱74╱t╱ // 0x1a76 @0xe
0x1a68…1a96 at000f = ╱65╱e╱ // 0x1a77 @0xf
0x1a68…1a96 at0010 = ╱20╱…╱ // 0x1a78 @0x10
0x1a68…1a96 at0011 = ╱6b╱k╱ // 0x1a79 @0x11
0x1a68…1a96 at0012 = ╱61╱a╱ // 0x1a7a @0x12
0x1a68…1a96 at0013 = ╱70╱p╱ // 0x1a7b @0x13
0x1a68…1a96 at0014 = ╱2e╱.╱ // 0x1a7c @0x14
0x1a68…1a96 at0015 = ╱20╱…╱ // 0x1a7d @0x15
0x1a68…1a96 at0016 = ╱6f╱o╱ // 0x1a7e @0x16
0x1a68…1a96 at0017 = ╱6d╱m╱ // 0x1a7f @0x17
0x1a68…1a96 at0018 = ╱6b╱k╱ // 0x1a80 @0x18
0x1a68…1a96 at0019 = ╱6f╱o╱ // 0x1a81 @0x19
0x1a68…1a96 at001a = ╱73╱s╱ // 0x1a82 @0x1a
0x1a68…1a96 at001b = ╱74╱t╱ // 0x1a83 @0x1b
0x1a68…1a96 at001c = ╱6e╱n╱ // 0x1a84 @0x1c
0x1a68…1a96 at001d = ╱69╱i╱ // 0x1a85 @0x1d
0x1a68…1a96 at001e = ╱6e╱n╱ // 0x1a86 @0x1e
0x1a68…1a96 at001f = ╱67╱g╱ // 0x1a87 @0x1f
0x1a68…1a96 at0020 = ╱65╱e╱ // 0x1a88 @0x20
0x1a68…1a96 at0021 = ╱72╱r╱ // 0x1a89 @0x21
0x1a68…1a96 at0022 = ╱22╱"╱ // 0x1a8a @0x22
0x1a68…1a96 at0023 = ╱ea╱ ; ╱ // 0x1a8b @0x23
0x1a68…1a96 at0024 = ╱d2╱TAB╱ // 0x1a8c @0x24
0x1a68…1a96 at0025 = ╱ed╱(╱ // 0x1a8d @0x25
0x1a68…1a96 at0026 = ╱35╱5╱ // 0x1a8e @0x26
0x1a68…1a96 at0027 = ╱33╱3╱ // 0x1a8f @0x27
0x1a68…1a96 at0028 = ╱f23500╱ // 0x1a90 @0x28
0x1a68…1a96 at002b = ╱ee╱)╱ // 0x1a93 @0x2b
0x1a68…1a96 at002c = ╱ea╱ ; ╱ // 0x1a94 @0x2c
0x1a68…1a96 at002d = EOL // 0x1a95 @0x2d
0x1a68…1a96 }
0x1a96…1ac3 b0b1 2430 PRINT CHR$ ((S_KAPOMK - ØVR_VAR) * ( - 1),9,2)
0x1a96…1ac3 LineComal80 {
0x1a96…1ac3 ptr = 0xb0b1 // 0x1a96 @0x0
0x1a96…1ac3 lno = 0x097e // 0x1a98 @0x2
0x1a96…1ac3 at0004 = ╱92╱ PRINT ╱ // 0x1a9a @0x4
0x1a96…1ac3 at0005 = ╱d0╱ CHR$ ╱ // 0x1a9b @0x5
0x1a96…1ac3 at0006 = ╱ed╱(╱ // 0x1a9c @0x6
0x1a96…1ac3 at0007 = ╱ed╱(╱ // 0x1a9d @0x7
0x1a96…1ac3 at0008 = ╱53╱S╱ // 0x1a9e @0x8
0x1a96…1ac3 at0009 = ╱5f╱_╱ // 0x1a9f @0x9
0x1a96…1ac3 at000a = ╱4b╱K╱ // 0x1aa0 @0xa
0x1a96…1ac3 at000b = ╱41╱A╱ // 0x1aa1 @0xb
0x1a96…1ac3 at000c = ╱50╱P╱ // 0x1aa2 @0xc
0x1a96…1ac3 at000d = ╱4f╱O╱ // 0x1aa3 @0xd
0x1a96…1ac3 at000e = ╱4d╱M╱ // 0x1aa4 @0xe
0x1a96…1ac3 at000f = ╱4b╱K╱ // 0x1aa5 @0xf
0x1a96…1ac3 at0010 = ╱e6╱ - ╱ // 0x1aa6 @0x10
0x1a96…1ac3 at0011 = ╱5c╱Ø╱ // 0x1aa7 @0x11
0x1a96…1ac3 at0012 = ╱56╱V╱ // 0x1aa8 @0x12
0x1a96…1ac3 at0013 = ╱52╱R╱ // 0x1aa9 @0x13
0x1a96…1ac3 at0014 = ╱5f╱_╱ // 0x1aaa @0x14
0x1a96…1ac3 at0015 = ╱56╱V╱ // 0x1aab @0x15
0x1a96…1ac3 at0016 = ╱41╱A╱ // 0x1aac @0x16
0x1a96…1ac3 at0017 = ╱52╱R╱ // 0x1aad @0x17
0x1a96…1ac3 at0018 = ╱ee╱)╱ // 0x1aae @0x18
0x1a96…1ac3 at0019 = ╱e7╱ * ╱ // 0x1aaf @0x19
0x1a96…1ac3 at001a = ╱ed╱(╱ // 0x1ab0 @0x1a
0x1a96…1ac3 at001b = ╱de╱ - ╱ // 0x1ab1 @0x1b
0x1a96…1ac3 at001c = ╱31╱1╱ // 0x1ab2 @0x1c
0x1a96…1ac3 at001d = ╱f20100╱ // 0x1ab3 @0x1d
0x1a96…1ac3 at0020 = ╱ee╱)╱ // 0x1ab6 @0x20
0x1a96…1ac3 at0021 = ╱ec╱,╱ // 0x1ab7 @0x21
0x1a96…1ac3 at0022 = ╱39╱9╱ // 0x1ab8 @0x22
0x1a96…1ac3 at0023 = ╱f20900╱ // 0x1ab9 @0x23
0x1a96…1ac3 at0026 = ╱ec╱,╱ // 0x1abc @0x26
0x1a96…1ac3 at0027 = ╱32╱2╱ // 0x1abd @0x27
0x1a96…1ac3 at0028 = ╱f20200╱ // 0x1abe @0x28
0x1a96…1ac3 at002b = ╱ee╱)╱ // 0x1ac1 @0x2b
0x1a96…1ac3 at002c = EOL // 0x1ac2 @0x2c
0x1a96…1ac3 }
0x1ac3…1ae0 b0ce 2440 PRINT TAB(53) ; "------------"
0x1ac3…1ae0 LineComal80 {
0x1ac3…1ae0 ptr = 0xb0ce // 0x1ac3 @0x0
0x1ac3…1ae0 lno = 0x0988 // 0x1ac5 @0x2
0x1ac3…1ae0 at0004 = ╱92╱ PRINT ╱ // 0x1ac7 @0x4
0x1ac3…1ae0 at0005 = ╱d2╱TAB╱ // 0x1ac8 @0x5
0x1ac3…1ae0 at0006 = ╱ed╱(╱ // 0x1ac9 @0x6
0x1ac3…1ae0 at0007 = ╱35╱5╱ // 0x1aca @0x7
0x1ac3…1ae0 at0008 = ╱33╱3╱ // 0x1acb @0x8
0x1ac3…1ae0 at0009 = ╱f23500╱ // 0x1acc @0x9
0x1ac3…1ae0 at000c = ╱ee╱)╱ // 0x1acf @0xc
0x1ac3…1ae0 at000d = ╱ea╱ ; ╱ // 0x1ad0 @0xd
0x1ac3…1ae0 at000e = ╱22╱"╱ // 0x1ad1 @0xe
0x1ac3…1ae0 at000f = ╱2d╱-╱ // 0x1ad2 @0xf
0x1ac3…1ae0 at0010 = ╱2d╱-╱ // 0x1ad3 @0x10
0x1ac3…1ae0 at0011 = ╱2d╱-╱ // 0x1ad4 @0x11
0x1ac3…1ae0 at0012 = ╱2d╱-╱ // 0x1ad5 @0x12
0x1ac3…1ae0 at0013 = ╱2d╱-╱ // 0x1ad6 @0x13
0x1ac3…1ae0 at0014 = ╱2d╱-╱ // 0x1ad7 @0x14
0x1ac3…1ae0 at0015 = ╱2d╱-╱ // 0x1ad8 @0x15
0x1ac3…1ae0 at0016 = ╱2d╱-╱ // 0x1ad9 @0x16
0x1ac3…1ae0 at0017 = ╱2d╱-╱ // 0x1ada @0x17
0x1ac3…1ae0 at0018 = ╱2d╱-╱ // 0x1adb @0x18
0x1ac3…1ae0 at0019 = ╱2d╱-╱ // 0x1adc @0x19
0x1ac3…1ae0 at001a = ╱2d╱-╱ // 0x1add @0x1a
0x1ac3…1ae0 at001b = ╱22╱"╱ // 0x1ade @0x1b
0x1ac3…1ae0 at001c = EOL // 0x1adf @0x1c
0x1ac3…1ae0 }
0x1ae0…1b08 b0f6 2450 LET INDTJEN := DÆKNING + (S_KAPOMK - ØVR_VAR)
0x1ae0…1b08 LineComal80 {
0x1ae0…1b08 ptr = 0xb0f6 // 0x1ae0 @0x0
0x1ae0…1b08 lno = 0x0992 // 0x1ae2 @0x2
0x1ae0…1b08 at0004 = ╱86╱ LET ╱ // 0x1ae4 @0x4
0x1ae0…1b08 at0005 = ╱49╱I╱ // 0x1ae5 @0x5
0x1ae0…1b08 at0006 = ╱4e╱N╱ // 0x1ae6 @0x6
0x1ae0…1b08 at0007 = ╱44╱D╱ // 0x1ae7 @0x7
0x1ae0…1b08 at0008 = ╱54╱T╱ // 0x1ae8 @0x8
0x1ae0…1b08 at0009 = ╱4a╱J╱ // 0x1ae9 @0x9
0x1ae0…1b08 at000a = ╱45╱E╱ // 0x1aea @0xa
0x1ae0…1b08 at000b = ╱4e╱N╱ // 0x1aeb @0xb
0x1ae0…1b08 at000c = ╱f0╱ := ╱ // 0x1aec @0xc
0x1ae0…1b08 at000d = ╱44╱D╱ // 0x1aed @0xd
0x1ae0…1b08 at000e = ╱5b╱Æ╱ // 0x1aee @0xe
0x1ae0…1b08 at000f = ╱4b╱K╱ // 0x1aef @0xf
0x1ae0…1b08 at0010 = ╱4e╱N╱ // 0x1af0 @0x10
0x1ae0…1b08 at0011 = ╱49╱I╱ // 0x1af1 @0x11
0x1ae0…1b08 at0012 = ╱4e╱N╱ // 0x1af2 @0x12
0x1ae0…1b08 at0013 = ╱47╱G╱ // 0x1af3 @0x13
0x1ae0…1b08 at0014 = ╱e5╱ + ╱ // 0x1af4 @0x14
0x1ae0…1b08 at0015 = ╱ed╱(╱ // 0x1af5 @0x15
0x1ae0…1b08 at0016 = ╱53╱S╱ // 0x1af6 @0x16
0x1ae0…1b08 at0017 = ╱5f╱_╱ // 0x1af7 @0x17
0x1ae0…1b08 at0018 = ╱4b╱K╱ // 0x1af8 @0x18
0x1ae0…1b08 at0019 = ╱41╱A╱ // 0x1af9 @0x19
0x1ae0…1b08 at001a = ╱50╱P╱ // 0x1afa @0x1a
0x1ae0…1b08 at001b = ╱4f╱O╱ // 0x1afb @0x1b
0x1ae0…1b08 at001c = ╱4d╱M╱ // 0x1afc @0x1c
0x1ae0…1b08 at001d = ╱4b╱K╱ // 0x1afd @0x1d
0x1ae0…1b08 at001e = ╱e6╱ - ╱ // 0x1afe @0x1e
0x1ae0…1b08 at001f = ╱5c╱Ø╱ // 0x1aff @0x1f
0x1ae0…1b08 at0020 = ╱56╱V╱ // 0x1b00 @0x20
0x1ae0…1b08 at0021 = ╱52╱R╱ // 0x1b01 @0x21
0x1ae0…1b08 at0022 = ╱5f╱_╱ // 0x1b02 @0x22
0x1ae0…1b08 at0023 = ╱56╱V╱ // 0x1b03 @0x23
0x1ae0…1b08 at0024 = ╱41╱A╱ // 0x1b04 @0x24
0x1ae0…1b08 at0025 = ╱52╱R╱ // 0x1b05 @0x25
0x1ae0…1b08 at0026 = ╱ee╱)╱ // 0x1b06 @0x26
0x1ae0…1b08 at0027 = EOL // 0x1b07 @0x27
0x1ae0…1b08 }
0x1b08…1b40 b12e 2460 PRINT "Indtjeningsbidrag " ; TAB(53) ; CHR$ (INDTJEN,9,2)
0x1b08…1b40 LineComal80 {
0x1b08…1b40 ptr = 0xb12e // 0x1b08 @0x0
0x1b08…1b40 lno = 0x099c // 0x1b0a @0x2
0x1b08…1b40 at0004 = ╱92╱ PRINT ╱ // 0x1b0c @0x4
0x1b08…1b40 at0005 = ╱22╱"╱ // 0x1b0d @0x5
0x1b08…1b40 at0006 = ╱49╱I╱ // 0x1b0e @0x6
0x1b08…1b40 at0007 = ╱6e╱n╱ // 0x1b0f @0x7
0x1b08…1b40 at0008 = ╱64╱d╱ // 0x1b10 @0x8
0x1b08…1b40 at0009 = ╱74╱t╱ // 0x1b11 @0x9
0x1b08…1b40 at000a = ╱6a╱j╱ // 0x1b12 @0xa
0x1b08…1b40 at000b = ╱65╱e╱ // 0x1b13 @0xb
0x1b08…1b40 at000c = ╱6e╱n╱ // 0x1b14 @0xc
0x1b08…1b40 at000d = ╱69╱i╱ // 0x1b15 @0xd
0x1b08…1b40 at000e = ╱6e╱n╱ // 0x1b16 @0xe
0x1b08…1b40 at000f = ╱67╱g╱ // 0x1b17 @0xf
0x1b08…1b40 at0010 = ╱73╱s╱ // 0x1b18 @0x10
0x1b08…1b40 at0011 = ╱62╱b╱ // 0x1b19 @0x11
0x1b08…1b40 at0012 = ╱69╱i╱ // 0x1b1a @0x12
0x1b08…1b40 at0013 = ╱64╱d╱ // 0x1b1b @0x13
0x1b08…1b40 at0014 = ╱72╱r╱ // 0x1b1c @0x14
0x1b08…1b40 at0015 = ╱61╱a╱ // 0x1b1d @0x15
0x1b08…1b40 at0016 = ╱67╱g╱ // 0x1b1e @0x16
0x1b08…1b40 at0017 = ╱20╱…╱ // 0x1b1f @0x17
0x1b08…1b40 at0018 = ╱22╱"╱ // 0x1b20 @0x18
0x1b08…1b40 at0019 = ╱ea╱ ; ╱ // 0x1b21 @0x19
0x1b08…1b40 at001a = ╱d2╱TAB╱ // 0x1b22 @0x1a
0x1b08…1b40 at001b = ╱ed╱(╱ // 0x1b23 @0x1b
0x1b08…1b40 at001c = ╱35╱5╱ // 0x1b24 @0x1c
0x1b08…1b40 at001d = ╱33╱3╱ // 0x1b25 @0x1d
0x1b08…1b40 at001e = ╱f23500╱ // 0x1b26 @0x1e
0x1b08…1b40 at0021 = ╱ee╱)╱ // 0x1b29 @0x21
0x1b08…1b40 at0022 = ╱ea╱ ; ╱ // 0x1b2a @0x22
0x1b08…1b40 at0023 = ╱d0╱ CHR$ ╱ // 0x1b2b @0x23
0x1b08…1b40 at0024 = ╱ed╱(╱ // 0x1b2c @0x24
0x1b08…1b40 at0025 = ╱49╱I╱ // 0x1b2d @0x25
0x1b08…1b40 at0026 = ╱4e╱N╱ // 0x1b2e @0x26
0x1b08…1b40 at0027 = ╱44╱D╱ // 0x1b2f @0x27
0x1b08…1b40 at0028 = ╱54╱T╱ // 0x1b30 @0x28
0x1b08…1b40 at0029 = ╱4a╱J╱ // 0x1b31 @0x29
0x1b08…1b40 at002a = ╱45╱E╱ // 0x1b32 @0x2a
0x1b08…1b40 at002b = ╱4e╱N╱ // 0x1b33 @0x2b
0x1b08…1b40 at002c = ╱ec╱,╱ // 0x1b34 @0x2c
0x1b08…1b40 at002d = ╱39╱9╱ // 0x1b35 @0x2d
0x1b08…1b40 at002e = ╱f20900╱ // 0x1b36 @0x2e
0x1b08…1b40 at0031 = ╱ec╱,╱ // 0x1b39 @0x31
0x1b08…1b40 at0032 = ╱32╱2╱ // 0x1b3a @0x32
0x1b08…1b40 at0033 = ╱f20200╱ // 0x1b3b @0x33
0x1b08…1b40 at0036 = ╱ee╱)╱ // 0x1b3e @0x36
0x1b08…1b40 at0037 = EOL // 0x1b3f @0x37
0x1b08…1b40 }
0x1b40…1b7e b16c 2470 PRINT "- Afskrivninger" ; TAB(53) ; CHR$ (S_AFSKRI * ( - 1),9,2)
0x1b40…1b7e LineComal80 {
0x1b40…1b7e ptr = 0xb16c // 0x1b40 @0x0
0x1b40…1b7e lno = 0x09a6 // 0x1b42 @0x2
0x1b40…1b7e at0004 = ╱92╱ PRINT ╱ // 0x1b44 @0x4
0x1b40…1b7e at0005 = ╱22╱"╱ // 0x1b45 @0x5
0x1b40…1b7e at0006 = ╱2d╱-╱ // 0x1b46 @0x6
0x1b40…1b7e at0007 = ╱20╱…╱ // 0x1b47 @0x7
0x1b40…1b7e at0008 = ╱41╱A╱ // 0x1b48 @0x8
0x1b40…1b7e at0009 = ╱66╱f╱ // 0x1b49 @0x9
0x1b40…1b7e at000a = ╱73╱s╱ // 0x1b4a @0xa
0x1b40…1b7e at000b = ╱6b╱k╱ // 0x1b4b @0xb
0x1b40…1b7e at000c = ╱72╱r╱ // 0x1b4c @0xc
0x1b40…1b7e at000d = ╱69╱i╱ // 0x1b4d @0xd
0x1b40…1b7e at000e = ╱76╱v╱ // 0x1b4e @0xe
0x1b40…1b7e at000f = ╱6e╱n╱ // 0x1b4f @0xf
0x1b40…1b7e at0010 = ╱69╱i╱ // 0x1b50 @0x10
0x1b40…1b7e at0011 = ╱6e╱n╱ // 0x1b51 @0x11
0x1b40…1b7e at0012 = ╱67╱g╱ // 0x1b52 @0x12
0x1b40…1b7e at0013 = ╱65╱e╱ // 0x1b53 @0x13
0x1b40…1b7e at0014 = ╱72╱r╱ // 0x1b54 @0x14
0x1b40…1b7e at0015 = ╱22╱"╱ // 0x1b55 @0x15
0x1b40…1b7e at0016 = ╱ea╱ ; ╱ // 0x1b56 @0x16
0x1b40…1b7e at0017 = ╱d2╱TAB╱ // 0x1b57 @0x17
0x1b40…1b7e at0018 = ╱ed╱(╱ // 0x1b58 @0x18
0x1b40…1b7e at0019 = ╱35╱5╱ // 0x1b59 @0x19
0x1b40…1b7e at001a = ╱33╱3╱ // 0x1b5a @0x1a
0x1b40…1b7e at001b = ╱f23500╱ // 0x1b5b @0x1b
0x1b40…1b7e at001e = ╱ee╱)╱ // 0x1b5e @0x1e
0x1b40…1b7e at001f = ╱ea╱ ; ╱ // 0x1b5f @0x1f
0x1b40…1b7e at0020 = ╱d0╱ CHR$ ╱ // 0x1b60 @0x20
0x1b40…1b7e at0021 = ╱ed╱(╱ // 0x1b61 @0x21
0x1b40…1b7e at0022 = ╱53╱S╱ // 0x1b62 @0x22
0x1b40…1b7e at0023 = ╱5f╱_╱ // 0x1b63 @0x23
0x1b40…1b7e at0024 = ╱41╱A╱ // 0x1b64 @0x24
0x1b40…1b7e at0025 = ╱46╱F╱ // 0x1b65 @0x25
0x1b40…1b7e at0026 = ╱53╱S╱ // 0x1b66 @0x26
0x1b40…1b7e at0027 = ╱4b╱K╱ // 0x1b67 @0x27
0x1b40…1b7e at0028 = ╱52╱R╱ // 0x1b68 @0x28
0x1b40…1b7e at0029 = ╱49╱I╱ // 0x1b69 @0x29
0x1b40…1b7e at002a = ╱e7╱ * ╱ // 0x1b6a @0x2a
0x1b40…1b7e at002b = ╱ed╱(╱ // 0x1b6b @0x2b
0x1b40…1b7e at002c = ╱de╱ - ╱ // 0x1b6c @0x2c
0x1b40…1b7e at002d = ╱31╱1╱ // 0x1b6d @0x2d
0x1b40…1b7e at002e = ╱f20100╱ // 0x1b6e @0x2e
0x1b40…1b7e at0031 = ╱ee╱)╱ // 0x1b71 @0x31
0x1b40…1b7e at0032 = ╱ec╱,╱ // 0x1b72 @0x32
0x1b40…1b7e at0033 = ╱39╱9╱ // 0x1b73 @0x33
0x1b40…1b7e at0034 = ╱f20900╱ // 0x1b74 @0x34
0x1b40…1b7e at0037 = ╱ec╱,╱ // 0x1b77 @0x37
0x1b40…1b7e at0038 = ╱32╱2╱ // 0x1b78 @0x38
0x1b40…1b7e at0039 = ╱f20200╱ // 0x1b79 @0x39
0x1b40…1b7e at003c = ╱ee╱)╱ // 0x1b7c @0x3c
0x1b40…1b7e at003d = EOL // 0x1b7d @0x3d
0x1b40…1b7e }
0x1b7e…1b9b b189 2480 PRINT TAB(53) ; "------------"
0x1b7e…1b9b LineComal80 {
0x1b7e…1b9b ptr = 0xb189 // 0x1b7e @0x0
0x1b7e…1b9b lno = 0x09b0 // 0x1b80 @0x2
0x1b7e…1b9b at0004 = ╱92╱ PRINT ╱ // 0x1b82 @0x4
0x1b7e…1b9b at0005 = ╱d2╱TAB╱ // 0x1b83 @0x5
0x1b7e…1b9b at0006 = ╱ed╱(╱ // 0x1b84 @0x6
0x1b7e…1b9b at0007 = ╱35╱5╱ // 0x1b85 @0x7
0x1b7e…1b9b at0008 = ╱33╱3╱ // 0x1b86 @0x8
0x1b7e…1b9b at0009 = ╱f23500╱ // 0x1b87 @0x9
0x1b7e…1b9b at000c = ╱ee╱)╱ // 0x1b8a @0xc
0x1b7e…1b9b at000d = ╱ea╱ ; ╱ // 0x1b8b @0xd
0x1b7e…1b9b at000e = ╱22╱"╱ // 0x1b8c @0xe
0x1b7e…1b9b at000f = ╱2d╱-╱ // 0x1b8d @0xf
0x1b7e…1b9b at0010 = ╱2d╱-╱ // 0x1b8e @0x10
0x1b7e…1b9b at0011 = ╱2d╱-╱ // 0x1b8f @0x11
0x1b7e…1b9b at0012 = ╱2d╱-╱ // 0x1b90 @0x12
0x1b7e…1b9b at0013 = ╱2d╱-╱ // 0x1b91 @0x13
0x1b7e…1b9b at0014 = ╱2d╱-╱ // 0x1b92 @0x14
0x1b7e…1b9b at0015 = ╱2d╱-╱ // 0x1b93 @0x15
0x1b7e…1b9b at0016 = ╱2d╱-╱ // 0x1b94 @0x16
0x1b7e…1b9b at0017 = ╱2d╱-╱ // 0x1b95 @0x17
0x1b7e…1b9b at0018 = ╱2d╱-╱ // 0x1b96 @0x18
0x1b7e…1b9b at0019 = ╱2d╱-╱ // 0x1b97 @0x19
0x1b7e…1b9b at001a = ╱2d╱-╱ // 0x1b98 @0x1a
0x1b7e…1b9b at001b = ╱22╱"╱ // 0x1b99 @0x1b
0x1b7e…1b9b at001c = EOL // 0x1b9a @0x1c
0x1b7e…1b9b }
0x1b9b…1bb9 b1a7 2490 LET RES_F_R := INDTJEN + S_AFSKRI
0x1b9b…1bb9 LineComal80 {
0x1b9b…1bb9 ptr = 0xb1a7 // 0x1b9b @0x0
0x1b9b…1bb9 lno = 0x09ba // 0x1b9d @0x2
0x1b9b…1bb9 at0004 = ╱86╱ LET ╱ // 0x1b9f @0x4
0x1b9b…1bb9 at0005 = ╱52╱R╱ // 0x1ba0 @0x5
0x1b9b…1bb9 at0006 = ╱45╱E╱ // 0x1ba1 @0x6
0x1b9b…1bb9 at0007 = ╱53╱S╱ // 0x1ba2 @0x7
0x1b9b…1bb9 at0008 = ╱5f╱_╱ // 0x1ba3 @0x8
0x1b9b…1bb9 at0009 = ╱46╱F╱ // 0x1ba4 @0x9
0x1b9b…1bb9 at000a = ╱5f╱_╱ // 0x1ba5 @0xa
0x1b9b…1bb9 at000b = ╱52╱R╱ // 0x1ba6 @0xb
0x1b9b…1bb9 at000c = ╱f0╱ := ╱ // 0x1ba7 @0xc
0x1b9b…1bb9 at000d = ╱49╱I╱ // 0x1ba8 @0xd
0x1b9b…1bb9 at000e = ╱4e╱N╱ // 0x1ba9 @0xe
0x1b9b…1bb9 at000f = ╱44╱D╱ // 0x1baa @0xf
0x1b9b…1bb9 at0010 = ╱54╱T╱ // 0x1bab @0x10
0x1b9b…1bb9 at0011 = ╱4a╱J╱ // 0x1bac @0x11
0x1b9b…1bb9 at0012 = ╱45╱E╱ // 0x1bad @0x12
0x1b9b…1bb9 at0013 = ╱4e╱N╱ // 0x1bae @0x13
0x1b9b…1bb9 at0014 = ╱e5╱ + ╱ // 0x1baf @0x14
0x1b9b…1bb9 at0015 = ╱53╱S╱ // 0x1bb0 @0x15
0x1b9b…1bb9 at0016 = ╱5f╱_╱ // 0x1bb1 @0x16
0x1b9b…1bb9 at0017 = ╱41╱A╱ // 0x1bb2 @0x17
0x1b9b…1bb9 at0018 = ╱46╱F╱ // 0x1bb3 @0x18
0x1b9b…1bb9 at0019 = ╱53╱S╱ // 0x1bb4 @0x19
0x1b9b…1bb9 at001a = ╱4b╱K╱ // 0x1bb5 @0x1a
0x1b9b…1bb9 at001b = ╱52╱R╱ // 0x1bb6 @0x1b
0x1b9b…1bb9 at001c = ╱49╱I╱ // 0x1bb7 @0x1c
0x1b9b…1bb9 at001d = EOL // 0x1bb8 @0x1d
0x1b9b…1bb9 }
0x1bb9…1c03 b1f1 2500 PRINT "Resultat af ordinær drift før renter" ; TAB(53) ; CHR$ (RES_F_R,9,2)
0x1bb9…1c03 LineComal80 {
0x1bb9…1c03 ptr = 0xb1f1 // 0x1bb9 @0x0
0x1bb9…1c03 lno = 0x09c4 // 0x1bbb @0x2
0x1bb9…1c03 at0004 = ╱92╱ PRINT ╱ // 0x1bbd @0x4
0x1bb9…1c03 at0005 = ╱22╱"╱ // 0x1bbe @0x5
0x1bb9…1c03 at0006 = ╱52╱R╱ // 0x1bbf @0x6
0x1bb9…1c03 at0007 = ╱65╱e╱ // 0x1bc0 @0x7
0x1bb9…1c03 at0008 = ╱73╱s╱ // 0x1bc1 @0x8
0x1bb9…1c03 at0009 = ╱75╱u╱ // 0x1bc2 @0x9
0x1bb9…1c03 at000a = ╱6c╱l╱ // 0x1bc3 @0xa
0x1bb9…1c03 at000b = ╱74╱t╱ // 0x1bc4 @0xb
0x1bb9…1c03 at000c = ╱61╱a╱ // 0x1bc5 @0xc
0x1bb9…1c03 at000d = ╱74╱t╱ // 0x1bc6 @0xd
0x1bb9…1c03 at000e = ╱20╱…╱ // 0x1bc7 @0xe
0x1bb9…1c03 at000f = ╱61╱a╱ // 0x1bc8 @0xf
0x1bb9…1c03 at0010 = ╱66╱f╱ // 0x1bc9 @0x10
0x1bb9…1c03 at0011 = ╱20╱…╱ // 0x1bca @0x11
0x1bb9…1c03 at0012 = ╱6f╱o╱ // 0x1bcb @0x12
0x1bb9…1c03 at0013 = ╱72╱r╱ // 0x1bcc @0x13
0x1bb9…1c03 at0014 = ╱64╱d╱ // 0x1bcd @0x14
0x1bb9…1c03 at0015 = ╱69╱i╱ // 0x1bce @0x15
0x1bb9…1c03 at0016 = ╱6e╱n╱ // 0x1bcf @0x16
0x1bb9…1c03 at0017 = ╱7b╱æ╱ // 0x1bd0 @0x17
0x1bb9…1c03 at0018 = ╱72╱r╱ // 0x1bd1 @0x18
0x1bb9…1c03 at0019 = ╱20╱…╱ // 0x1bd2 @0x19
0x1bb9…1c03 at001a = ╱64╱d╱ // 0x1bd3 @0x1a
0x1bb9…1c03 at001b = ╱72╱r╱ // 0x1bd4 @0x1b
0x1bb9…1c03 at001c = ╱69╱i╱ // 0x1bd5 @0x1c
0x1bb9…1c03 at001d = ╱66╱f╱ // 0x1bd6 @0x1d
0x1bb9…1c03 at001e = ╱74╱t╱ // 0x1bd7 @0x1e
0x1bb9…1c03 at001f = ╱20╱…╱ // 0x1bd8 @0x1f
0x1bb9…1c03 at0020 = ╱66╱f╱ // 0x1bd9 @0x20
0x1bb9…1c03 at0021 = ╱7c╱ø╱ // 0x1bda @0x21
0x1bb9…1c03 at0022 = ╱72╱r╱ // 0x1bdb @0x22
0x1bb9…1c03 at0023 = ╱20╱…╱ // 0x1bdc @0x23
0x1bb9…1c03 at0024 = ╱72╱r╱ // 0x1bdd @0x24
0x1bb9…1c03 at0025 = ╱65╱e╱ // 0x1bde @0x25
0x1bb9…1c03 at0026 = ╱6e╱n╱ // 0x1bdf @0x26
0x1bb9…1c03 at0027 = ╱74╱t╱ // 0x1be0 @0x27
0x1bb9…1c03 at0028 = ╱65╱e╱ // 0x1be1 @0x28
0x1bb9…1c03 at0029 = ╱72╱r╱ // 0x1be2 @0x29
0x1bb9…1c03 at002a = ╱22╱"╱ // 0x1be3 @0x2a
0x1bb9…1c03 at002b = ╱ea╱ ; ╱ // 0x1be4 @0x2b
0x1bb9…1c03 at002c = ╱d2╱TAB╱ // 0x1be5 @0x2c
0x1bb9…1c03 at002d = ╱ed╱(╱ // 0x1be6 @0x2d
0x1bb9…1c03 at002e = ╱35╱5╱ // 0x1be7 @0x2e
0x1bb9…1c03 at002f = ╱33╱3╱ // 0x1be8 @0x2f
0x1bb9…1c03 at0030 = ╱f23500╱ // 0x1be9 @0x30
0x1bb9…1c03 at0033 = ╱ee╱)╱ // 0x1bec @0x33
0x1bb9…1c03 at0034 = ╱ea╱ ; ╱ // 0x1bed @0x34
0x1bb9…1c03 at0035 = ╱d0╱ CHR$ ╱ // 0x1bee @0x35
0x1bb9…1c03 at0036 = ╱ed╱(╱ // 0x1bef @0x36
0x1bb9…1c03 at0037 = ╱52╱R╱ // 0x1bf0 @0x37
0x1bb9…1c03 at0038 = ╱45╱E╱ // 0x1bf1 @0x38
0x1bb9…1c03 at0039 = ╱53╱S╱ // 0x1bf2 @0x39
0x1bb9…1c03 at003a = ╱5f╱_╱ // 0x1bf3 @0x3a
0x1bb9…1c03 at003b = ╱46╱F╱ // 0x1bf4 @0x3b
0x1bb9…1c03 at003c = ╱5f╱_╱ // 0x1bf5 @0x3c
0x1bb9…1c03 at003d = ╱52╱R╱ // 0x1bf6 @0x3d
0x1bb9…1c03 at003e = ╱ec╱,╱ // 0x1bf7 @0x3e
0x1bb9…1c03 at003f = ╱39╱9╱ // 0x1bf8 @0x3f
0x1bb9…1c03 at0040 = ╱f20900╱ // 0x1bf9 @0x40
0x1bb9…1c03 at0043 = ╱ec╱,╱ // 0x1bfc @0x43
0x1bb9…1c03 at0044 = ╱32╱2╱ // 0x1bfd @0x44
0x1bb9…1c03 at0045 = ╱f20200╱ // 0x1bfe @0x45
0x1bb9…1c03 at0048 = ╱ee╱)╱ // 0x1c01 @0x48
0x1bb9…1c03 at0049 = EOL // 0x1c02 @0x49
0x1bb9…1c03 }
0x1c03…1c45 b233 2510 PRINT "- Renteomkostninger" ; TAB(53) ; CHR$ (S_RENTEO * ( - 1),9,2)
0x1c03…1c45 LineComal80 {
0x1c03…1c45 ptr = 0xb233 // 0x1c03 @0x0
0x1c03…1c45 lno = 0x09ce // 0x1c05 @0x2
0x1c03…1c45 at0004 = ╱92╱ PRINT ╱ // 0x1c07 @0x4
0x1c03…1c45 at0005 = ╱22╱"╱ // 0x1c08 @0x5
0x1c03…1c45 at0006 = ╱2d╱-╱ // 0x1c09 @0x6
0x1c03…1c45 at0007 = ╱20╱…╱ // 0x1c0a @0x7
0x1c03…1c45 at0008 = ╱52╱R╱ // 0x1c0b @0x8
0x1c03…1c45 at0009 = ╱65╱e╱ // 0x1c0c @0x9
0x1c03…1c45 at000a = ╱6e╱n╱ // 0x1c0d @0xa
0x1c03…1c45 at000b = ╱74╱t╱ // 0x1c0e @0xb
0x1c03…1c45 at000c = ╱65╱e╱ // 0x1c0f @0xc
0x1c03…1c45 at000d = ╱6f╱o╱ // 0x1c10 @0xd
0x1c03…1c45 at000e = ╱6d╱m╱ // 0x1c11 @0xe
0x1c03…1c45 at000f = ╱6b╱k╱ // 0x1c12 @0xf
0x1c03…1c45 at0010 = ╱6f╱o╱ // 0x1c13 @0x10
0x1c03…1c45 at0011 = ╱73╱s╱ // 0x1c14 @0x11
0x1c03…1c45 at0012 = ╱74╱t╱ // 0x1c15 @0x12
0x1c03…1c45 at0013 = ╱6e╱n╱ // 0x1c16 @0x13
0x1c03…1c45 at0014 = ╱69╱i╱ // 0x1c17 @0x14
0x1c03…1c45 at0015 = ╱6e╱n╱ // 0x1c18 @0x15
0x1c03…1c45 at0016 = ╱67╱g╱ // 0x1c19 @0x16
0x1c03…1c45 at0017 = ╱65╱e╱ // 0x1c1a @0x17
0x1c03…1c45 at0018 = ╱72╱r╱ // 0x1c1b @0x18
0x1c03…1c45 at0019 = ╱22╱"╱ // 0x1c1c @0x19
0x1c03…1c45 at001a = ╱ea╱ ; ╱ // 0x1c1d @0x1a
0x1c03…1c45 at001b = ╱d2╱TAB╱ // 0x1c1e @0x1b
0x1c03…1c45 at001c = ╱ed╱(╱ // 0x1c1f @0x1c
0x1c03…1c45 at001d = ╱35╱5╱ // 0x1c20 @0x1d
0x1c03…1c45 at001e = ╱33╱3╱ // 0x1c21 @0x1e
0x1c03…1c45 at001f = ╱f23500╱ // 0x1c22 @0x1f
0x1c03…1c45 at0022 = ╱ee╱)╱ // 0x1c25 @0x22
0x1c03…1c45 at0023 = ╱ea╱ ; ╱ // 0x1c26 @0x23
0x1c03…1c45 at0024 = ╱d0╱ CHR$ ╱ // 0x1c27 @0x24
0x1c03…1c45 at0025 = ╱ed╱(╱ // 0x1c28 @0x25
0x1c03…1c45 at0026 = ╱53╱S╱ // 0x1c29 @0x26
0x1c03…1c45 at0027 = ╱5f╱_╱ // 0x1c2a @0x27
0x1c03…1c45 at0028 = ╱52╱R╱ // 0x1c2b @0x28
0x1c03…1c45 at0029 = ╱45╱E╱ // 0x1c2c @0x29
0x1c03…1c45 at002a = ╱4e╱N╱ // 0x1c2d @0x2a
0x1c03…1c45 at002b = ╱54╱T╱ // 0x1c2e @0x2b
0x1c03…1c45 at002c = ╱45╱E╱ // 0x1c2f @0x2c
0x1c03…1c45 at002d = ╱4f╱O╱ // 0x1c30 @0x2d
0x1c03…1c45 at002e = ╱e7╱ * ╱ // 0x1c31 @0x2e
0x1c03…1c45 at002f = ╱ed╱(╱ // 0x1c32 @0x2f
0x1c03…1c45 at0030 = ╱de╱ - ╱ // 0x1c33 @0x30
0x1c03…1c45 at0031 = ╱31╱1╱ // 0x1c34 @0x31
0x1c03…1c45 at0032 = ╱f20100╱ // 0x1c35 @0x32
0x1c03…1c45 at0035 = ╱ee╱)╱ // 0x1c38 @0x35
0x1c03…1c45 at0036 = ╱ec╱,╱ // 0x1c39 @0x36
0x1c03…1c45 at0037 = ╱39╱9╱ // 0x1c3a @0x37
0x1c03…1c45 at0038 = ╱f20900╱ // 0x1c3b @0x38
0x1c03…1c45 at003b = ╱ec╱,╱ // 0x1c3e @0x3b
0x1c03…1c45 at003c = ╱32╱2╱ // 0x1c3f @0x3c
0x1c03…1c45 at003d = ╱f20200╱ // 0x1c40 @0x3d
0x1c03…1c45 at0040 = ╱ee╱)╱ // 0x1c43 @0x40
0x1c03…1c45 at0041 = EOL // 0x1c44 @0x41
0x1c03…1c45 }
0x1c45…1c62 b250 2520 PRINT TAB(53) ; "------------"
0x1c45…1c62 LineComal80 {
0x1c45…1c62 ptr = 0xb250 // 0x1c45 @0x0
0x1c45…1c62 lno = 0x09d8 // 0x1c47 @0x2
0x1c45…1c62 at0004 = ╱92╱ PRINT ╱ // 0x1c49 @0x4
0x1c45…1c62 at0005 = ╱d2╱TAB╱ // 0x1c4a @0x5
0x1c45…1c62 at0006 = ╱ed╱(╱ // 0x1c4b @0x6
0x1c45…1c62 at0007 = ╱35╱5╱ // 0x1c4c @0x7
0x1c45…1c62 at0008 = ╱33╱3╱ // 0x1c4d @0x8
0x1c45…1c62 at0009 = ╱f23500╱ // 0x1c4e @0x9
0x1c45…1c62 at000c = ╱ee╱)╱ // 0x1c51 @0xc
0x1c45…1c62 at000d = ╱ea╱ ; ╱ // 0x1c52 @0xd
0x1c45…1c62 at000e = ╱22╱"╱ // 0x1c53 @0xe
0x1c45…1c62 at000f = ╱2d╱-╱ // 0x1c54 @0xf
0x1c45…1c62 at0010 = ╱2d╱-╱ // 0x1c55 @0x10
0x1c45…1c62 at0011 = ╱2d╱-╱ // 0x1c56 @0x11
0x1c45…1c62 at0012 = ╱2d╱-╱ // 0x1c57 @0x12
0x1c45…1c62 at0013 = ╱2d╱-╱ // 0x1c58 @0x13
0x1c45…1c62 at0014 = ╱2d╱-╱ // 0x1c59 @0x14
0x1c45…1c62 at0015 = ╱2d╱-╱ // 0x1c5a @0x15
0x1c45…1c62 at0016 = ╱2d╱-╱ // 0x1c5b @0x16
0x1c45…1c62 at0017 = ╱2d╱-╱ // 0x1c5c @0x17
0x1c45…1c62 at0018 = ╱2d╱-╱ // 0x1c5d @0x18
0x1c45…1c62 at0019 = ╱2d╱-╱ // 0x1c5e @0x19
0x1c45…1c62 at001a = ╱2d╱-╱ // 0x1c5f @0x1a
0x1c45…1c62 at001b = ╱22╱"╱ // 0x1c60 @0x1b
0x1c45…1c62 at001c = EOL // 0x1c61 @0x1c
0x1c45…1c62 }
0x1c62…1c81 b26f 2530 LET RESULTAT := RES_F_R + S_RENTEO
0x1c62…1c81 LineComal80 {
0x1c62…1c81 ptr = 0xb26f // 0x1c62 @0x0
0x1c62…1c81 lno = 0x09e2 // 0x1c64 @0x2
0x1c62…1c81 at0004 = ╱86╱ LET ╱ // 0x1c66 @0x4
0x1c62…1c81 at0005 = ╱52╱R╱ // 0x1c67 @0x5
0x1c62…1c81 at0006 = ╱45╱E╱ // 0x1c68 @0x6
0x1c62…1c81 at0007 = ╱53╱S╱ // 0x1c69 @0x7
0x1c62…1c81 at0008 = ╱55╱U╱ // 0x1c6a @0x8
0x1c62…1c81 at0009 = ╱4c╱L╱ // 0x1c6b @0x9
0x1c62…1c81 at000a = ╱54╱T╱ // 0x1c6c @0xa
0x1c62…1c81 at000b = ╱41╱A╱ // 0x1c6d @0xb
0x1c62…1c81 at000c = ╱54╱T╱ // 0x1c6e @0xc
0x1c62…1c81 at000d = ╱f0╱ := ╱ // 0x1c6f @0xd
0x1c62…1c81 at000e = ╱52╱R╱ // 0x1c70 @0xe
0x1c62…1c81 at000f = ╱45╱E╱ // 0x1c71 @0xf
0x1c62…1c81 at0010 = ╱53╱S╱ // 0x1c72 @0x10
0x1c62…1c81 at0011 = ╱5f╱_╱ // 0x1c73 @0x11
0x1c62…1c81 at0012 = ╱46╱F╱ // 0x1c74 @0x12
0x1c62…1c81 at0013 = ╱5f╱_╱ // 0x1c75 @0x13
0x1c62…1c81 at0014 = ╱52╱R╱ // 0x1c76 @0x14
0x1c62…1c81 at0015 = ╱e5╱ + ╱ // 0x1c77 @0x15
0x1c62…1c81 at0016 = ╱53╱S╱ // 0x1c78 @0x16
0x1c62…1c81 at0017 = ╱5f╱_╱ // 0x1c79 @0x17
0x1c62…1c81 at0018 = ╱52╱R╱ // 0x1c7a @0x18
0x1c62…1c81 at0019 = ╱45╱E╱ // 0x1c7b @0x19
0x1c62…1c81 at001a = ╱4e╱N╱ // 0x1c7c @0x1a
0x1c62…1c81 at001b = ╱54╱T╱ // 0x1c7d @0x1b
0x1c62…1c81 at001c = ╱45╱E╱ // 0x1c7e @0x1c
0x1c62…1c81 at001d = ╱4f╱O╱ // 0x1c7f @0x1d
0x1c62…1c81 at001e = EOL // 0x1c80 @0x1e
0x1c62…1c81 }
0x1c81…1cc1 b2af 2540 PRINT "Resultat af ordinær drift" ; TAB(53) ; CHR$ (RESULTAT,9,2)
0x1c81…1cc1 LineComal80 {
0x1c81…1cc1 ptr = 0xb2af // 0x1c81 @0x0
0x1c81…1cc1 lno = 0x09ec // 0x1c83 @0x2
0x1c81…1cc1 at0004 = ╱92╱ PRINT ╱ // 0x1c85 @0x4
0x1c81…1cc1 at0005 = ╱22╱"╱ // 0x1c86 @0x5
0x1c81…1cc1 at0006 = ╱52╱R╱ // 0x1c87 @0x6
0x1c81…1cc1 at0007 = ╱65╱e╱ // 0x1c88 @0x7
0x1c81…1cc1 at0008 = ╱73╱s╱ // 0x1c89 @0x8
0x1c81…1cc1 at0009 = ╱75╱u╱ // 0x1c8a @0x9
0x1c81…1cc1 at000a = ╱6c╱l╱ // 0x1c8b @0xa
0x1c81…1cc1 at000b = ╱74╱t╱ // 0x1c8c @0xb
0x1c81…1cc1 at000c = ╱61╱a╱ // 0x1c8d @0xc
0x1c81…1cc1 at000d = ╱74╱t╱ // 0x1c8e @0xd
0x1c81…1cc1 at000e = ╱20╱…╱ // 0x1c8f @0xe
0x1c81…1cc1 at000f = ╱61╱a╱ // 0x1c90 @0xf
0x1c81…1cc1 at0010 = ╱66╱f╱ // 0x1c91 @0x10
0x1c81…1cc1 at0011 = ╱20╱…╱ // 0x1c92 @0x11
0x1c81…1cc1 at0012 = ╱6f╱o╱ // 0x1c93 @0x12
0x1c81…1cc1 at0013 = ╱72╱r╱ // 0x1c94 @0x13
0x1c81…1cc1 at0014 = ╱64╱d╱ // 0x1c95 @0x14
0x1c81…1cc1 at0015 = ╱69╱i╱ // 0x1c96 @0x15
0x1c81…1cc1 at0016 = ╱6e╱n╱ // 0x1c97 @0x16
0x1c81…1cc1 at0017 = ╱7b╱æ╱ // 0x1c98 @0x17
0x1c81…1cc1 at0018 = ╱72╱r╱ // 0x1c99 @0x18
0x1c81…1cc1 at0019 = ╱20╱…╱ // 0x1c9a @0x19
0x1c81…1cc1 at001a = ╱64╱d╱ // 0x1c9b @0x1a
0x1c81…1cc1 at001b = ╱72╱r╱ // 0x1c9c @0x1b
0x1c81…1cc1 at001c = ╱69╱i╱ // 0x1c9d @0x1c
0x1c81…1cc1 at001d = ╱66╱f╱ // 0x1c9e @0x1d
0x1c81…1cc1 at001e = ╱74╱t╱ // 0x1c9f @0x1e
0x1c81…1cc1 at001f = ╱22╱"╱ // 0x1ca0 @0x1f
0x1c81…1cc1 at0020 = ╱ea╱ ; ╱ // 0x1ca1 @0x20
0x1c81…1cc1 at0021 = ╱d2╱TAB╱ // 0x1ca2 @0x21
0x1c81…1cc1 at0022 = ╱ed╱(╱ // 0x1ca3 @0x22
0x1c81…1cc1 at0023 = ╱35╱5╱ // 0x1ca4 @0x23
0x1c81…1cc1 at0024 = ╱33╱3╱ // 0x1ca5 @0x24
0x1c81…1cc1 at0025 = ╱f23500╱ // 0x1ca6 @0x25
0x1c81…1cc1 at0028 = ╱ee╱)╱ // 0x1ca9 @0x28
0x1c81…1cc1 at0029 = ╱ea╱ ; ╱ // 0x1caa @0x29
0x1c81…1cc1 at002a = ╱d0╱ CHR$ ╱ // 0x1cab @0x2a
0x1c81…1cc1 at002b = ╱ed╱(╱ // 0x1cac @0x2b
0x1c81…1cc1 at002c = ╱52╱R╱ // 0x1cad @0x2c
0x1c81…1cc1 at002d = ╱45╱E╱ // 0x1cae @0x2d
0x1c81…1cc1 at002e = ╱53╱S╱ // 0x1caf @0x2e
0x1c81…1cc1 at002f = ╱55╱U╱ // 0x1cb0 @0x2f
0x1c81…1cc1 at0030 = ╱4c╱L╱ // 0x1cb1 @0x30
0x1c81…1cc1 at0031 = ╱54╱T╱ // 0x1cb2 @0x31
0x1c81…1cc1 at0032 = ╱41╱A╱ // 0x1cb3 @0x32
0x1c81…1cc1 at0033 = ╱54╱T╱ // 0x1cb4 @0x33
0x1c81…1cc1 at0034 = ╱ec╱,╱ // 0x1cb5 @0x34
0x1c81…1cc1 at0035 = ╱39╱9╱ // 0x1cb6 @0x35
0x1c81…1cc1 at0036 = ╱f20900╱ // 0x1cb7 @0x36
0x1c81…1cc1 at0039 = ╱ec╱,╱ // 0x1cba @0x39
0x1c81…1cc1 at003a = ╱32╱2╱ // 0x1cbb @0x3a
0x1c81…1cc1 at003b = ╱f20200╱ // 0x1cbc @0x3b
0x1c81…1cc1 at003e = ╱ee╱)╱ // 0x1cbf @0x3e
0x1c81…1cc1 at003f = EOL // 0x1cc0 @0x3f
0x1c81…1cc1 }
0x1cc1…1cde b2cc 2550 PRINT TAB(53) ; "============"
0x1cc1…1cde LineComal80 {
0x1cc1…1cde ptr = 0xb2cc // 0x1cc1 @0x0
0x1cc1…1cde lno = 0x09f6 // 0x1cc3 @0x2
0x1cc1…1cde at0004 = ╱92╱ PRINT ╱ // 0x1cc5 @0x4
0x1cc1…1cde at0005 = ╱d2╱TAB╱ // 0x1cc6 @0x5
0x1cc1…1cde at0006 = ╱ed╱(╱ // 0x1cc7 @0x6
0x1cc1…1cde at0007 = ╱35╱5╱ // 0x1cc8 @0x7
0x1cc1…1cde at0008 = ╱33╱3╱ // 0x1cc9 @0x8
0x1cc1…1cde at0009 = ╱f23500╱ // 0x1cca @0x9
0x1cc1…1cde at000c = ╱ee╱)╱ // 0x1ccd @0xc
0x1cc1…1cde at000d = ╱ea╱ ; ╱ // 0x1cce @0xd
0x1cc1…1cde at000e = ╱22╱"╱ // 0x1ccf @0xe
0x1cc1…1cde at000f = ╱3d╱=╱ // 0x1cd0 @0xf
0x1cc1…1cde at0010 = ╱3d╱=╱ // 0x1cd1 @0x10
0x1cc1…1cde at0011 = ╱3d╱=╱ // 0x1cd2 @0x11
0x1cc1…1cde at0012 = ╱3d╱=╱ // 0x1cd3 @0x12
0x1cc1…1cde at0013 = ╱3d╱=╱ // 0x1cd4 @0x13
0x1cc1…1cde at0014 = ╱3d╱=╱ // 0x1cd5 @0x14
0x1cc1…1cde at0015 = ╱3d╱=╱ // 0x1cd6 @0x15
0x1cc1…1cde at0016 = ╱3d╱=╱ // 0x1cd7 @0x16
0x1cc1…1cde at0017 = ╱3d╱=╱ // 0x1cd8 @0x17
0x1cc1…1cde at0018 = ╱3d╱=╱ // 0x1cd9 @0x18
0x1cc1…1cde at0019 = ╱3d╱=╱ // 0x1cda @0x19
0x1cc1…1cde at001a = ╱3d╱=╱ // 0x1cdb @0x1a
0x1cc1…1cde at001b = ╱22╱"╱ // 0x1cdc @0x1b
0x1cc1…1cde at001c = EOL // 0x1cdd @0x1c
0x1cc1…1cde }
0x1cde…1ce4 b2d2 2560 PRINT
0x1cde…1ce4 LineComal80 {
0x1cde…1ce4 ptr = 0xb2d2 // 0x1cde @0x0
0x1cde…1ce4 lno = 0x0a00 // 0x1ce0 @0x2
0x1cde…1ce4 at0004 = ╱92╱ PRINT ╱ // 0x1ce2 @0x4
0x1cde…1ce4 at0005 = EOL // 0x1ce3 @0x5
0x1cde…1ce4 }
0x1ce4…1cea b2d8 2570 PRINT
0x1ce4…1cea LineComal80 {
0x1ce4…1cea ptr = 0xb2d8 // 0x1ce4 @0x0
0x1ce4…1cea lno = 0x0a0a // 0x1ce6 @0x2
0x1ce4…1cea at0004 = ╱92╱ PRINT ╱ // 0x1ce8 @0x4
0x1ce4…1cea at0005 = EOL // 0x1ce9 @0x5
0x1ce4…1cea }
0x1cea…1cf0 b2de 2580 PRINT
0x1cea…1cf0 LineComal80 {
0x1cea…1cf0 ptr = 0xb2de // 0x1cea @0x0
0x1cea…1cf0 lno = 0x0a14 // 0x1cec @0x2
0x1cea…1cf0 at0004 = ╱92╱ PRINT ╱ // 0x1cee @0x4
0x1cea…1cf0 at0005 = EOL // 0x1cef @0x5
0x1cea…1cf0 }
0x1cf0…1d19 b307 2590 PRINT "**** R E N T A B I L I T E T ****"
0x1cf0…1d19 LineComal80 {
0x1cf0…1d19 ptr = 0xb307 // 0x1cf0 @0x0
0x1cf0…1d19 lno = 0x0a1e // 0x1cf2 @0x2
0x1cf0…1d19 at0004 = ╱92╱ PRINT ╱ // 0x1cf4 @0x4
0x1cf0…1d19 at0005 = ╱22╱"╱ // 0x1cf5 @0x5
0x1cf0…1d19 at0006 = ╱2a╱*╱ // 0x1cf6 @0x6
0x1cf0…1d19 at0007 = ╱2a╱*╱ // 0x1cf7 @0x7
0x1cf0…1d19 at0008 = ╱2a╱*╱ // 0x1cf8 @0x8
0x1cf0…1d19 at0009 = ╱2a╱*╱ // 0x1cf9 @0x9
0x1cf0…1d19 at000a = ╱20╱…╱ // 0x1cfa @0xa
0x1cf0…1d19 at000b = ╱52╱R╱ // 0x1cfb @0xb
0x1cf0…1d19 at000c = ╱20╱…╱ // 0x1cfc @0xc
0x1cf0…1d19 at000d = ╱45╱E╱ // 0x1cfd @0xd
0x1cf0…1d19 at000e = ╱20╱…╱ // 0x1cfe @0xe
0x1cf0…1d19 at000f = ╱4e╱N╱ // 0x1cff @0xf
0x1cf0…1d19 at0010 = ╱20╱…╱ // 0x1d00 @0x10
0x1cf0…1d19 at0011 = ╱54╱T╱ // 0x1d01 @0x11
0x1cf0…1d19 at0012 = ╱20╱…╱ // 0x1d02 @0x12
0x1cf0…1d19 at0013 = ╱41╱A╱ // 0x1d03 @0x13
0x1cf0…1d19 at0014 = ╱20╱…╱ // 0x1d04 @0x14
0x1cf0…1d19 at0015 = ╱42╱B╱ // 0x1d05 @0x15
0x1cf0…1d19 at0016 = ╱20╱…╱ // 0x1d06 @0x16
0x1cf0…1d19 at0017 = ╱49╱I╱ // 0x1d07 @0x17
0x1cf0…1d19 at0018 = ╱20╱…╱ // 0x1d08 @0x18
0x1cf0…1d19 at0019 = ╱4c╱L╱ // 0x1d09 @0x19
0x1cf0…1d19 at001a = ╱20╱…╱ // 0x1d0a @0x1a
0x1cf0…1d19 at001b = ╱49╱I╱ // 0x1d0b @0x1b
0x1cf0…1d19 at001c = ╱20╱…╱ // 0x1d0c @0x1c
0x1cf0…1d19 at001d = ╱54╱T╱ // 0x1d0d @0x1d
0x1cf0…1d19 at001e = ╱20╱…╱ // 0x1d0e @0x1e
0x1cf0…1d19 at001f = ╱45╱E╱ // 0x1d0f @0x1f
0x1cf0…1d19 at0020 = ╱20╱…╱ // 0x1d10 @0x20
0x1cf0…1d19 at0021 = ╱54╱T╱ // 0x1d11 @0x21
0x1cf0…1d19 at0022 = ╱20╱…╱ // 0x1d12 @0x22
0x1cf0…1d19 at0023 = ╱2a╱*╱ // 0x1d13 @0x23
0x1cf0…1d19 at0024 = ╱2a╱*╱ // 0x1d14 @0x24
0x1cf0…1d19 at0025 = ╱2a╱*╱ // 0x1d15 @0x25
0x1cf0…1d19 at0026 = ╱2a╱*╱ // 0x1d16 @0x26
0x1cf0…1d19 at0027 = ╱22╱"╱ // 0x1d17 @0x27
0x1cf0…1d19 at0028 = EOL // 0x1d18 @0x28
0x1cf0…1d19 }
0x1d19…1d42 b330 2600 PRINT "---------------------------------"
0x1d19…1d42 LineComal80 {
0x1d19…1d42 ptr = 0xb330 // 0x1d19 @0x0
0x1d19…1d42 lno = 0x0a28 // 0x1d1b @0x2
0x1d19…1d42 at0004 = ╱92╱ PRINT ╱ // 0x1d1d @0x4
0x1d19…1d42 at0005 = ╱22╱"╱ // 0x1d1e @0x5
0x1d19…1d42 at0006 = ╱2d╱-╱ // 0x1d1f @0x6
0x1d19…1d42 at0007 = ╱2d╱-╱ // 0x1d20 @0x7
0x1d19…1d42 at0008 = ╱2d╱-╱ // 0x1d21 @0x8
0x1d19…1d42 at0009 = ╱2d╱-╱ // 0x1d22 @0x9
0x1d19…1d42 at000a = ╱2d╱-╱ // 0x1d23 @0xa
0x1d19…1d42 at000b = ╱2d╱-╱ // 0x1d24 @0xb
0x1d19…1d42 at000c = ╱2d╱-╱ // 0x1d25 @0xc
0x1d19…1d42 at000d = ╱2d╱-╱ // 0x1d26 @0xd
0x1d19…1d42 at000e = ╱2d╱-╱ // 0x1d27 @0xe
0x1d19…1d42 at000f = ╱2d╱-╱ // 0x1d28 @0xf
0x1d19…1d42 at0010 = ╱2d╱-╱ // 0x1d29 @0x10
0x1d19…1d42 at0011 = ╱2d╱-╱ // 0x1d2a @0x11
0x1d19…1d42 at0012 = ╱2d╱-╱ // 0x1d2b @0x12
0x1d19…1d42 at0013 = ╱2d╱-╱ // 0x1d2c @0x13
0x1d19…1d42 at0014 = ╱2d╱-╱ // 0x1d2d @0x14
0x1d19…1d42 at0015 = ╱2d╱-╱ // 0x1d2e @0x15
0x1d19…1d42 at0016 = ╱2d╱-╱ // 0x1d2f @0x16
0x1d19…1d42 at0017 = ╱2d╱-╱ // 0x1d30 @0x17
0x1d19…1d42 at0018 = ╱2d╱-╱ // 0x1d31 @0x18
0x1d19…1d42 at0019 = ╱2d╱-╱ // 0x1d32 @0x19
0x1d19…1d42 at001a = ╱2d╱-╱ // 0x1d33 @0x1a
0x1d19…1d42 at001b = ╱2d╱-╱ // 0x1d34 @0x1b
0x1d19…1d42 at001c = ╱2d╱-╱ // 0x1d35 @0x1c
0x1d19…1d42 at001d = ╱2d╱-╱ // 0x1d36 @0x1d
0x1d19…1d42 at001e = ╱2d╱-╱ // 0x1d37 @0x1e
0x1d19…1d42 at001f = ╱2d╱-╱ // 0x1d38 @0x1f
0x1d19…1d42 at0020 = ╱2d╱-╱ // 0x1d39 @0x20
0x1d19…1d42 at0021 = ╱2d╱-╱ // 0x1d3a @0x21
0x1d19…1d42 at0022 = ╱2d╱-╱ // 0x1d3b @0x22
0x1d19…1d42 at0023 = ╱2d╱-╱ // 0x1d3c @0x23
0x1d19…1d42 at0024 = ╱2d╱-╱ // 0x1d3d @0x24
0x1d19…1d42 at0025 = ╱2d╱-╱ // 0x1d3e @0x25
0x1d19…1d42 at0026 = ╱2d╱-╱ // 0x1d3f @0x26
0x1d19…1d42 at0027 = ╱22╱"╱ // 0x1d40 @0x27
0x1d19…1d42 at0028 = EOL // 0x1d41 @0x28
0x1d19…1d42 }
0x1d42…1d48 b336 2610 PRINT
0x1d42…1d48 LineComal80 {
0x1d42…1d48 ptr = 0xb336 // 0x1d42 @0x0
0x1d42…1d48 lno = 0x0a32 // 0x1d44 @0x2
0x1d42…1d48 at0004 = ╱92╱ PRINT ╱ // 0x1d46 @0x4
0x1d42…1d48 at0005 = EOL // 0x1d47 @0x5
0x1d42…1d48 }
0x1d48…1d7c b36a 2620 PRINT " (1) Afkastningsgrad :" ;
0x1d48…1d7c LineComal80 {
0x1d48…1d7c ptr = 0xb36a // 0x1d48 @0x0
0x1d48…1d7c lno = 0x0a3c // 0x1d4a @0x2
0x1d48…1d7c at0004 = ╱92╱ PRINT ╱ // 0x1d4c @0x4
0x1d48…1d7c at0005 = ╱22╱"╱ // 0x1d4d @0x5
0x1d48…1d7c at0006 = ╱20╱…╱ // 0x1d4e @0x6
0x1d48…1d7c at0007 = ╱28╱(╱ // 0x1d4f @0x7
0x1d48…1d7c at0008 = ╱31╱1╱ // 0x1d50 @0x8
0x1d48…1d7c at0009 = ╱29╱)╱ // 0x1d51 @0x9
0x1d48…1d7c at000a = ╱20╱…╱ // 0x1d52 @0xa
0x1d48…1d7c at000b = ╱41╱A╱ // 0x1d53 @0xb
0x1d48…1d7c at000c = ╱66╱f╱ // 0x1d54 @0xc
0x1d48…1d7c at000d = ╱6b╱k╱ // 0x1d55 @0xd
0x1d48…1d7c at000e = ╱61╱a╱ // 0x1d56 @0xe
0x1d48…1d7c at000f = ╱73╱s╱ // 0x1d57 @0xf
0x1d48…1d7c at0010 = ╱74╱t╱ // 0x1d58 @0x10
0x1d48…1d7c at0011 = ╱6e╱n╱ // 0x1d59 @0x11
0x1d48…1d7c at0012 = ╱69╱i╱ // 0x1d5a @0x12
0x1d48…1d7c at0013 = ╱6e╱n╱ // 0x1d5b @0x13
0x1d48…1d7c at0014 = ╱67╱g╱ // 0x1d5c @0x14
0x1d48…1d7c at0015 = ╱73╱s╱ // 0x1d5d @0x15
0x1d48…1d7c at0016 = ╱67╱g╱ // 0x1d5e @0x16
0x1d48…1d7c at0017 = ╱72╱r╱ // 0x1d5f @0x17
0x1d48…1d7c at0018 = ╱61╱a╱ // 0x1d60 @0x18
0x1d48…1d7c at0019 = ╱64╱d╱ // 0x1d61 @0x19
0x1d48…1d7c at001a = ╱20╱…╱ // 0x1d62 @0x1a
0x1d48…1d7c at001b = ╱20╱…╱ // 0x1d63 @0x1b
0x1d48…1d7c at001c = ╱20╱…╱ // 0x1d64 @0x1c
0x1d48…1d7c at001d = ╱20╱…╱ // 0x1d65 @0x1d
0x1d48…1d7c at001e = ╱20╱…╱ // 0x1d66 @0x1e
0x1d48…1d7c at001f = ╱20╱…╱ // 0x1d67 @0x1f
0x1d48…1d7c at0020 = ╱20╱…╱ // 0x1d68 @0x20
0x1d48…1d7c at0021 = ╱20╱…╱ // 0x1d69 @0x21
0x1d48…1d7c at0022 = ╱20╱…╱ // 0x1d6a @0x22
0x1d48…1d7c at0023 = ╱20╱…╱ // 0x1d6b @0x23
0x1d48…1d7c at0024 = ╱20╱…╱ // 0x1d6c @0x24
0x1d48…1d7c at0025 = ╱20╱…╱ // 0x1d6d @0x25
0x1d48…1d7c at0026 = ╱20╱…╱ // 0x1d6e @0x26
0x1d48…1d7c at0027 = ╱20╱…╱ // 0x1d6f @0x27
0x1d48…1d7c at0028 = ╱20╱…╱ // 0x1d70 @0x28
0x1d48…1d7c at0029 = ╱20╱…╱ // 0x1d71 @0x29
0x1d48…1d7c at002a = ╱20╱…╱ // 0x1d72 @0x2a
0x1d48…1d7c at002b = ╱20╱…╱ // 0x1d73 @0x2b
0x1d48…1d7c at002c = ╱20╱…╱ // 0x1d74 @0x2c
0x1d48…1d7c at002d = ╱20╱…╱ // 0x1d75 @0x2d
0x1d48…1d7c at002e = ╱20╱…╱ // 0x1d76 @0x2e
0x1d48…1d7c at002f = ╱20╱…╱ // 0x1d77 @0x2f
0x1d48…1d7c at0030 = ╱3a╱:╱ // 0x1d78 @0x30
0x1d48…1d7c at0031 = ╱22╱"╱ // 0x1d79 @0x31
0x1d48…1d7c at0032 = ╱ea╱ ; ╱ // 0x1d7a @0x32
0x1d48…1d7c at0033 = EOL // 0x1d7b @0x33
0x1d48…1d7c }
0x1d7c…1dab b399 2630 PRINT USING "###.## %" : (RES_F_R + L_I) * 100 / S_AKTIVE
0x1d7c…1dab LineComal80 {
0x1d7c…1dab ptr = 0xb399 // 0x1d7c @0x0
0x1d7c…1dab lno = 0x0a46 // 0x1d7e @0x2
0x1d7c…1dab at0004 = ╱92╱ PRINT ╱ // 0x1d80 @0x4
0x1d7c…1dab at0005 = ╱b9╱ USING ╱ // 0x1d81 @0x5
0x1d7c…1dab at0006 = ╱22╱"╱ // 0x1d82 @0x6
0x1d7c…1dab at0007 = ╱23╱#╱ // 0x1d83 @0x7
0x1d7c…1dab at0008 = ╱23╱#╱ // 0x1d84 @0x8
0x1d7c…1dab at0009 = ╱23╱#╱ // 0x1d85 @0x9
0x1d7c…1dab at000a = ╱2e╱.╱ // 0x1d86 @0xa
0x1d7c…1dab at000b = ╱23╱#╱ // 0x1d87 @0xb
0x1d7c…1dab at000c = ╱23╱#╱ // 0x1d88 @0xc
0x1d7c…1dab at000d = ╱20╱…╱ // 0x1d89 @0xd
0x1d7c…1dab at000e = ╱25╱%╱ // 0x1d8a @0xe
0x1d7c…1dab at000f = ╱22╱"╱ // 0x1d8b @0xf
0x1d7c…1dab at0010 = ╱f1╱ : ╱ // 0x1d8c @0x10
0x1d7c…1dab at0011 = ╱ed╱(╱ // 0x1d8d @0x11
0x1d7c…1dab at0012 = ╱52╱R╱ // 0x1d8e @0x12
0x1d7c…1dab at0013 = ╱45╱E╱ // 0x1d8f @0x13
0x1d7c…1dab at0014 = ╱53╱S╱ // 0x1d90 @0x14
0x1d7c…1dab at0015 = ╱5f╱_╱ // 0x1d91 @0x15
0x1d7c…1dab at0016 = ╱46╱F╱ // 0x1d92 @0x16
0x1d7c…1dab at0017 = ╱5f╱_╱ // 0x1d93 @0x17
0x1d7c…1dab at0018 = ╱52╱R╱ // 0x1d94 @0x18
0x1d7c…1dab at0019 = ╱e5╱ + ╱ // 0x1d95 @0x19
0x1d7c…1dab at001a = ╱4c╱L╱ // 0x1d96 @0x1a
0x1d7c…1dab at001b = ╱5f╱_╱ // 0x1d97 @0x1b
0x1d7c…1dab at001c = ╱49╱I╱ // 0x1d98 @0x1c
0x1d7c…1dab at001d = ╱ee╱)╱ // 0x1d99 @0x1d
0x1d7c…1dab at001e = ╱e7╱ * ╱ // 0x1d9a @0x1e
0x1d7c…1dab at001f = ╱31╱1╱ // 0x1d9b @0x1f
0x1d7c…1dab at0020 = ╱30╱0╱ // 0x1d9c @0x20
0x1d7c…1dab at0021 = ╱30╱0╱ // 0x1d9d @0x21
0x1d7c…1dab at0022 = ╱f26400╱ // 0x1d9e @0x22
0x1d7c…1dab at0025 = ╱e8╱ / ╱ // 0x1da1 @0x25
0x1d7c…1dab at0026 = ╱53╱S╱ // 0x1da2 @0x26
0x1d7c…1dab at0027 = ╱5f╱_╱ // 0x1da3 @0x27
0x1d7c…1dab at0028 = ╱41╱A╱ // 0x1da4 @0x28
0x1d7c…1dab at0029 = ╱4b╱K╱ // 0x1da5 @0x29
0x1d7c…1dab at002a = ╱54╱T╱ // 0x1da6 @0x2a
0x1d7c…1dab at002b = ╱49╱I╱ // 0x1da7 @0x2b
0x1d7c…1dab at002c = ╱56╱V╱ // 0x1da8 @0x2c
0x1d7c…1dab at002d = ╱45╱E╱ // 0x1da9 @0x2d
0x1d7c…1dab at002e = EOL // 0x1daa @0x2e
0x1d7c…1dab }
0x1dab…1db1 b39f 2640 PRINT
0x1dab…1db1 LineComal80 {
0x1dab…1db1 ptr = 0xb39f // 0x1dab @0x0
0x1dab…1db1 lno = 0x0a50 // 0x1dad @0x2
0x1dab…1db1 at0004 = ╱92╱ PRINT ╱ // 0x1daf @0x4
0x1dab…1db1 at0005 = EOL // 0x1db0 @0x5
0x1dab…1db1 }
0x1db1…1de5 b3d3 2650 PRINT " (2) Overskudsgrad :" ;
0x1db1…1de5 LineComal80 {
0x1db1…1de5 ptr = 0xb3d3 // 0x1db1 @0x0
0x1db1…1de5 lno = 0x0a5a // 0x1db3 @0x2
0x1db1…1de5 at0004 = ╱92╱ PRINT ╱ // 0x1db5 @0x4
0x1db1…1de5 at0005 = ╱22╱"╱ // 0x1db6 @0x5
0x1db1…1de5 at0006 = ╱20╱…╱ // 0x1db7 @0x6
0x1db1…1de5 at0007 = ╱28╱(╱ // 0x1db8 @0x7
0x1db1…1de5 at0008 = ╱32╱2╱ // 0x1db9 @0x8
0x1db1…1de5 at0009 = ╱29╱)╱ // 0x1dba @0x9
0x1db1…1de5 at000a = ╱20╱…╱ // 0x1dbb @0xa
0x1db1…1de5 at000b = ╱4f╱O╱ // 0x1dbc @0xb
0x1db1…1de5 at000c = ╱76╱v╱ // 0x1dbd @0xc
0x1db1…1de5 at000d = ╱65╱e╱ // 0x1dbe @0xd
0x1db1…1de5 at000e = ╱72╱r╱ // 0x1dbf @0xe
0x1db1…1de5 at000f = ╱73╱s╱ // 0x1dc0 @0xf
0x1db1…1de5 at0010 = ╱6b╱k╱ // 0x1dc1 @0x10
0x1db1…1de5 at0011 = ╱75╱u╱ // 0x1dc2 @0x11
0x1db1…1de5 at0012 = ╱64╱d╱ // 0x1dc3 @0x12
0x1db1…1de5 at0013 = ╱73╱s╱ // 0x1dc4 @0x13
0x1db1…1de5 at0014 = ╱67╱g╱ // 0x1dc5 @0x14
0x1db1…1de5 at0015 = ╱72╱r╱ // 0x1dc6 @0x15
0x1db1…1de5 at0016 = ╱61╱a╱ // 0x1dc7 @0x16
0x1db1…1de5 at0017 = ╱64╱d╱ // 0x1dc8 @0x17
0x1db1…1de5 at0018 = ╱20╱…╱ // 0x1dc9 @0x18
0x1db1…1de5 at0019 = ╱20╱…╱ // 0x1dca @0x19
0x1db1…1de5 at001a = ╱20╱…╱ // 0x1dcb @0x1a
0x1db1…1de5 at001b = ╱20╱…╱ // 0x1dcc @0x1b
0x1db1…1de5 at001c = ╱20╱…╱ // 0x1dcd @0x1c
0x1db1…1de5 at001d = ╱20╱…╱ // 0x1dce @0x1d
0x1db1…1de5 at001e = ╱20╱…╱ // 0x1dcf @0x1e
0x1db1…1de5 at001f = ╱20╱…╱ // 0x1dd0 @0x1f
0x1db1…1de5 at0020 = ╱20╱…╱ // 0x1dd1 @0x20
0x1db1…1de5 at0021 = ╱20╱…╱ // 0x1dd2 @0x21
0x1db1…1de5 at0022 = ╱20╱…╱ // 0x1dd3 @0x22
0x1db1…1de5 at0023 = ╱20╱…╱ // 0x1dd4 @0x23
0x1db1…1de5 at0024 = ╱20╱…╱ // 0x1dd5 @0x24
0x1db1…1de5 at0025 = ╱20╱…╱ // 0x1dd6 @0x25
0x1db1…1de5 at0026 = ╱20╱…╱ // 0x1dd7 @0x26
0x1db1…1de5 at0027 = ╱20╱…╱ // 0x1dd8 @0x27
0x1db1…1de5 at0028 = ╱20╱…╱ // 0x1dd9 @0x28
0x1db1…1de5 at0029 = ╱20╱…╱ // 0x1dda @0x29
0x1db1…1de5 at002a = ╱20╱…╱ // 0x1ddb @0x2a
0x1db1…1de5 at002b = ╱20╱…╱ // 0x1ddc @0x2b
0x1db1…1de5 at002c = ╱20╱…╱ // 0x1ddd @0x2c
0x1db1…1de5 at002d = ╱20╱…╱ // 0x1dde @0x2d
0x1db1…1de5 at002e = ╱20╱…╱ // 0x1ddf @0x2e
0x1db1…1de5 at002f = ╱20╱…╱ // 0x1de0 @0x2f
0x1db1…1de5 at0030 = ╱3a╱:╱ // 0x1de1 @0x30
0x1db1…1de5 at0031 = ╱22╱"╱ // 0x1de2 @0x31
0x1db1…1de5 at0032 = ╱ea╱ ; ╱ // 0x1de3 @0x32
0x1db1…1de5 at0033 = EOL // 0x1de4 @0x33
0x1db1…1de5 }
0x1de5…1e14 b402 2660 PRINT USING "###.## %" : (RES_F_R + L_I) * 100 / S_OMSÆTN
0x1de5…1e14 LineComal80 {
0x1de5…1e14 ptr = 0xb402 // 0x1de5 @0x0
0x1de5…1e14 lno = 0x0a64 // 0x1de7 @0x2
0x1de5…1e14 at0004 = ╱92╱ PRINT ╱ // 0x1de9 @0x4
0x1de5…1e14 at0005 = ╱b9╱ USING ╱ // 0x1dea @0x5
0x1de5…1e14 at0006 = ╱22╱"╱ // 0x1deb @0x6
0x1de5…1e14 at0007 = ╱23╱#╱ // 0x1dec @0x7
0x1de5…1e14 at0008 = ╱23╱#╱ // 0x1ded @0x8
0x1de5…1e14 at0009 = ╱23╱#╱ // 0x1dee @0x9
0x1de5…1e14 at000a = ╱2e╱.╱ // 0x1def @0xa
0x1de5…1e14 at000b = ╱23╱#╱ // 0x1df0 @0xb
0x1de5…1e14 at000c = ╱23╱#╱ // 0x1df1 @0xc
0x1de5…1e14 at000d = ╱20╱…╱ // 0x1df2 @0xd
0x1de5…1e14 at000e = ╱25╱%╱ // 0x1df3 @0xe
0x1de5…1e14 at000f = ╱22╱"╱ // 0x1df4 @0xf
0x1de5…1e14 at0010 = ╱f1╱ : ╱ // 0x1df5 @0x10
0x1de5…1e14 at0011 = ╱ed╱(╱ // 0x1df6 @0x11
0x1de5…1e14 at0012 = ╱52╱R╱ // 0x1df7 @0x12
0x1de5…1e14 at0013 = ╱45╱E╱ // 0x1df8 @0x13
0x1de5…1e14 at0014 = ╱53╱S╱ // 0x1df9 @0x14
0x1de5…1e14 at0015 = ╱5f╱_╱ // 0x1dfa @0x15
0x1de5…1e14 at0016 = ╱46╱F╱ // 0x1dfb @0x16
0x1de5…1e14 at0017 = ╱5f╱_╱ // 0x1dfc @0x17
0x1de5…1e14 at0018 = ╱52╱R╱ // 0x1dfd @0x18
0x1de5…1e14 at0019 = ╱e5╱ + ╱ // 0x1dfe @0x19
0x1de5…1e14 at001a = ╱4c╱L╱ // 0x1dff @0x1a
0x1de5…1e14 at001b = ╱5f╱_╱ // 0x1e00 @0x1b
0x1de5…1e14 at001c = ╱49╱I╱ // 0x1e01 @0x1c
0x1de5…1e14 at001d = ╱ee╱)╱ // 0x1e02 @0x1d
0x1de5…1e14 at001e = ╱e7╱ * ╱ // 0x1e03 @0x1e
0x1de5…1e14 at001f = ╱31╱1╱ // 0x1e04 @0x1f
0x1de5…1e14 at0020 = ╱30╱0╱ // 0x1e05 @0x20
0x1de5…1e14 at0021 = ╱30╱0╱ // 0x1e06 @0x21
0x1de5…1e14 at0022 = ╱f26400╱ // 0x1e07 @0x22
0x1de5…1e14 at0025 = ╱e8╱ / ╱ // 0x1e0a @0x25
0x1de5…1e14 at0026 = ╱53╱S╱ // 0x1e0b @0x26
0x1de5…1e14 at0027 = ╱5f╱_╱ // 0x1e0c @0x27
0x1de5…1e14 at0028 = ╱4f╱O╱ // 0x1e0d @0x28
0x1de5…1e14 at0029 = ╱4d╱M╱ // 0x1e0e @0x29
0x1de5…1e14 at002a = ╱53╱S╱ // 0x1e0f @0x2a
0x1de5…1e14 at002b = ╱5b╱Æ╱ // 0x1e10 @0x2b
0x1de5…1e14 at002c = ╱54╱T╱ // 0x1e11 @0x2c
0x1de5…1e14 at002d = ╱4e╱N╱ // 0x1e12 @0x2d
0x1de5…1e14 at002e = EOL // 0x1e13 @0x2e
0x1de5…1e14 }
0x1e14…1e1a (100,) b408 2670 PRINT
0x1e14…1e1a LineComal80 {
0x1e14…1e1a ptr = 0xb408 // 0x1e14 @0x0
0x1e14…1e1a lno = 0x0a6e // 0x1e16 @0x2
0x1e14…1e1a at0004 = ╱92╱ PRINT ╱ // 0x1e18 @0x4
0x1e14…1e1a at0005 = EOL // 0x1e19 @0x5
0x1e14…1e1a }
0x1e1a…1e4e b43c 2680 PRINT " (3) Aktivernes omsætningshastighed :" ;
0x1e1a…1e4e LineComal80 {
0x1e1a…1e4e ptr = 0xb43c // 0x1e1a @0x0
0x1e1a…1e4e lno = 0x0a78 // 0x1e1c @0x2
0x1e1a…1e4e at0004 = ╱92╱ PRINT ╱ // 0x1e1e @0x4
0x1e1a…1e4e at0005 = ╱22╱"╱ // 0x1e1f @0x5
0x1e1a…1e4e at0006 = ╱20╱…╱ // 0x1e20 @0x6
0x1e1a…1e4e at0007 = ╱28╱(╱ // 0x1e21 @0x7
0x1e1a…1e4e at0008 = ╱33╱3╱ // 0x1e22 @0x8
0x1e1a…1e4e at0009 = ╱29╱)╱ // 0x1e23 @0x9
0x1e1a…1e4e at000a = ╱20╱…╱ // 0x1e24 @0xa
0x1e1a…1e4e at000b = ╱41╱A╱ // 0x1e25 @0xb
0x1e1a…1e4e at000c = ╱6b╱k╱ // 0x1e26 @0xc
0x1e1a…1e4e at000d = ╱74╱t╱ // 0x1e27 @0xd
0x1e1a…1e4e at000e = ╱69╱i╱ // 0x1e28 @0xe
0x1e1a…1e4e at000f = ╱76╱v╱ // 0x1e29 @0xf
0x1e1a…1e4e at0010 = ╱65╱e╱ // 0x1e2a @0x10
0x1e1a…1e4e at0011 = ╱72╱r╱ // 0x1e2b @0x11
0x1e1a…1e4e at0012 = ╱6e╱n╱ // 0x1e2c @0x12
0x1e1a…1e4e at0013 = ╱65╱e╱ // 0x1e2d @0x13
0x1e1a…1e4e at0014 = ╱73╱s╱ // 0x1e2e @0x14
0x1e1a…1e4e at0015 = ╱20╱…╱ // 0x1e2f @0x15
0x1e1a…1e4e at0016 = ╱6f╱o╱ // 0x1e30 @0x16
0x1e1a…1e4e at0017 = ╱6d╱m╱ // 0x1e31 @0x17
0x1e1a…1e4e at0018 = ╱73╱s╱ // 0x1e32 @0x18
0x1e1a…1e4e at0019 = ╱7b╱æ╱ // 0x1e33 @0x19
0x1e1a…1e4e at001a = ╱74╱t╱ // 0x1e34 @0x1a
0x1e1a…1e4e at001b = ╱6e╱n╱ // 0x1e35 @0x1b
0x1e1a…1e4e at001c = ╱69╱i╱ // 0x1e36 @0x1c
0x1e1a…1e4e at001d = ╱6e╱n╱ // 0x1e37 @0x1d
0x1e1a…1e4e at001e = ╱67╱g╱ // 0x1e38 @0x1e
0x1e1a…1e4e at001f = ╱73╱s╱ // 0x1e39 @0x1f
0x1e1a…1e4e at0020 = ╱68╱h╱ // 0x1e3a @0x20
0x1e1a…1e4e at0021 = ╱61╱a╱ // 0x1e3b @0x21
0x1e1a…1e4e at0022 = ╱73╱s╱ // 0x1e3c @0x22
0x1e1a…1e4e at0023 = ╱74╱t╱ // 0x1e3d @0x23
0x1e1a…1e4e at0024 = ╱69╱i╱ // 0x1e3e @0x24
0x1e1a…1e4e at0025 = ╱67╱g╱ // 0x1e3f @0x25
0x1e1a…1e4e at0026 = ╱68╱h╱ // 0x1e40 @0x26
0x1e1a…1e4e at0027 = ╱65╱e╱ // 0x1e41 @0x27
0x1e1a…1e4e at0028 = ╱64╱d╱ // 0x1e42 @0x28
0x1e1a…1e4e at0029 = ╱20╱…╱ // 0x1e43 @0x29
0x1e1a…1e4e at002a = ╱20╱…╱ // 0x1e44 @0x2a
0x1e1a…1e4e at002b = ╱20╱…╱ // 0x1e45 @0x2b
0x1e1a…1e4e at002c = ╱20╱…╱ // 0x1e46 @0x2c
0x1e1a…1e4e at002d = ╱20╱…╱ // 0x1e47 @0x2d
0x1e1a…1e4e at002e = ╱20╱…╱ // 0x1e48 @0x2e
0x1e1a…1e4e at002f = ╱20╱…╱ // 0x1e49 @0x2f
0x1e1a…1e4e at0030 = ╱3a╱:╱ // 0x1e4a @0x30
0x1e1a…1e4e at0031 = ╱22╱"╱ // 0x1e4b @0x31
0x1e1a…1e4e at0032 = ╱ea╱ ; ╱ // 0x1e4c @0x32
0x1e1a…1e4e at0033 = EOL // 0x1e4d @0x33
0x1e1a…1e4e }
0x1e4e…1e71 b45f 2690 PRINT USING "###.## g" : S_OMSÆTN / S_AKTIVE
0x1e4e…1e71 LineComal80 {
0x1e4e…1e71 ptr = 0xb45f // 0x1e4e @0x0
0x1e4e…1e71 lno = 0x0a82 // 0x1e50 @0x2
0x1e4e…1e71 at0004 = ╱92╱ PRINT ╱ // 0x1e52 @0x4
0x1e4e…1e71 at0005 = ╱b9╱ USING ╱ // 0x1e53 @0x5
0x1e4e…1e71 at0006 = ╱22╱"╱ // 0x1e54 @0x6
0x1e4e…1e71 at0007 = ╱23╱#╱ // 0x1e55 @0x7
0x1e4e…1e71 at0008 = ╱23╱#╱ // 0x1e56 @0x8
0x1e4e…1e71 at0009 = ╱23╱#╱ // 0x1e57 @0x9
0x1e4e…1e71 at000a = ╱2e╱.╱ // 0x1e58 @0xa
0x1e4e…1e71 at000b = ╱23╱#╱ // 0x1e59 @0xb
0x1e4e…1e71 at000c = ╱23╱#╱ // 0x1e5a @0xc
0x1e4e…1e71 at000d = ╱20╱…╱ // 0x1e5b @0xd
0x1e4e…1e71 at000e = ╱67╱g╱ // 0x1e5c @0xe
0x1e4e…1e71 at000f = ╱22╱"╱ // 0x1e5d @0xf
0x1e4e…1e71 at0010 = ╱f1╱ : ╱ // 0x1e5e @0x10
0x1e4e…1e71 at0011 = ╱53╱S╱ // 0x1e5f @0x11
0x1e4e…1e71 at0012 = ╱5f╱_╱ // 0x1e60 @0x12
0x1e4e…1e71 at0013 = ╱4f╱O╱ // 0x1e61 @0x13
0x1e4e…1e71 at0014 = ╱4d╱M╱ // 0x1e62 @0x14
0x1e4e…1e71 at0015 = ╱53╱S╱ // 0x1e63 @0x15
0x1e4e…1e71 at0016 = ╱5b╱Æ╱ // 0x1e64 @0x16
0x1e4e…1e71 at0017 = ╱54╱T╱ // 0x1e65 @0x17
0x1e4e…1e71 at0018 = ╱4e╱N╱ // 0x1e66 @0x18
0x1e4e…1e71 at0019 = ╱e8╱ / ╱ // 0x1e67 @0x19
0x1e4e…1e71 at001a = ╱53╱S╱ // 0x1e68 @0x1a
0x1e4e…1e71 at001b = ╱5f╱_╱ // 0x1e69 @0x1b
0x1e4e…1e71 at001c = ╱41╱A╱ // 0x1e6a @0x1c
0x1e4e…1e71 at001d = ╱4b╱K╱ // 0x1e6b @0x1d
0x1e4e…1e71 at001e = ╱54╱T╱ // 0x1e6c @0x1e
0x1e4e…1e71 at001f = ╱49╱I╱ // 0x1e6d @0x1f
0x1e4e…1e71 at0020 = ╱56╱V╱ // 0x1e6e @0x20
0x1e4e…1e71 at0021 = ╱45╱E╱ // 0x1e6f @0x21
0x1e4e…1e71 at0022 = EOL // 0x1e70 @0x22
0x1e4e…1e71 }
0x1e71…1e77 b465 2700 PRINT
0x1e71…1e77 LineComal80 {
0x1e71…1e77 ptr = 0xb465 // 0x1e71 @0x0
0x1e71…1e77 lno = 0x0a8c // 0x1e73 @0x2
0x1e71…1e77 at0004 = ╱92╱ PRINT ╱ // 0x1e75 @0x4
0x1e71…1e77 at0005 = EOL // 0x1e76 @0x5
0x1e71…1e77 }
0x1e77…1eab b499 2710 PRINT " (4) Egenkap. forrentning :" ;
0x1e77…1eab LineComal80 {
0x1e77…1eab ptr = 0xb499 // 0x1e77 @0x0
0x1e77…1eab lno = 0x0a96 // 0x1e79 @0x2
0x1e77…1eab at0004 = ╱92╱ PRINT ╱ // 0x1e7b @0x4
0x1e77…1eab at0005 = ╱22╱"╱ // 0x1e7c @0x5
0x1e77…1eab at0006 = ╱20╱…╱ // 0x1e7d @0x6
0x1e77…1eab at0007 = ╱28╱(╱ // 0x1e7e @0x7
0x1e77…1eab at0008 = ╱34╱4╱ // 0x1e7f @0x8
0x1e77…1eab at0009 = ╱29╱)╱ // 0x1e80 @0x9
0x1e77…1eab at000a = ╱20╱…╱ // 0x1e81 @0xa
0x1e77…1eab at000b = ╱45╱E╱ // 0x1e82 @0xb
0x1e77…1eab at000c = ╱67╱g╱ // 0x1e83 @0xc
0x1e77…1eab at000d = ╱65╱e╱ // 0x1e84 @0xd
0x1e77…1eab at000e = ╱6e╱n╱ // 0x1e85 @0xe
0x1e77…1eab at000f = ╱6b╱k╱ // 0x1e86 @0xf
0x1e77…1eab at0010 = ╱61╱a╱ // 0x1e87 @0x10
0x1e77…1eab at0011 = ╱70╱p╱ // 0x1e88 @0x11
0x1e77…1eab at0012 = ╱2e╱.╱ // 0x1e89 @0x12
0x1e77…1eab at0013 = ╱20╱…╱ // 0x1e8a @0x13
0x1e77…1eab at0014 = ╱66╱f╱ // 0x1e8b @0x14
0x1e77…1eab at0015 = ╱6f╱o╱ // 0x1e8c @0x15
0x1e77…1eab at0016 = ╱72╱r╱ // 0x1e8d @0x16
0x1e77…1eab at0017 = ╱72╱r╱ // 0x1e8e @0x17
0x1e77…1eab at0018 = ╱65╱e╱ // 0x1e8f @0x18
0x1e77…1eab at0019 = ╱6e╱n╱ // 0x1e90 @0x19
0x1e77…1eab at001a = ╱74╱t╱ // 0x1e91 @0x1a
0x1e77…1eab at001b = ╱6e╱n╱ // 0x1e92 @0x1b
0x1e77…1eab at001c = ╱69╱i╱ // 0x1e93 @0x1c
0x1e77…1eab at001d = ╱6e╱n╱ // 0x1e94 @0x1d
0x1e77…1eab at001e = ╱67╱g╱ // 0x1e95 @0x1e
0x1e77…1eab at001f = ╱20╱…╱ // 0x1e96 @0x1f
0x1e77…1eab at0020 = ╱20╱…╱ // 0x1e97 @0x20
0x1e77…1eab at0021 = ╱20╱…╱ // 0x1e98 @0x21
0x1e77…1eab at0022 = ╱20╱…╱ // 0x1e99 @0x22
0x1e77…1eab at0023 = ╱20╱…╱ // 0x1e9a @0x23
0x1e77…1eab at0024 = ╱20╱…╱ // 0x1e9b @0x24
0x1e77…1eab at0025 = ╱20╱…╱ // 0x1e9c @0x25
0x1e77…1eab at0026 = ╱20╱…╱ // 0x1e9d @0x26
0x1e77…1eab at0027 = ╱20╱…╱ // 0x1e9e @0x27
0x1e77…1eab at0028 = ╱20╱…╱ // 0x1e9f @0x28
0x1e77…1eab at0029 = ╱20╱…╱ // 0x1ea0 @0x29
0x1e77…1eab at002a = ╱20╱…╱ // 0x1ea1 @0x2a
0x1e77…1eab at002b = ╱20╱…╱ // 0x1ea2 @0x2b
0x1e77…1eab at002c = ╱20╱…╱ // 0x1ea3 @0x2c
0x1e77…1eab at002d = ╱20╱…╱ // 0x1ea4 @0x2d
0x1e77…1eab at002e = ╱20╱…╱ // 0x1ea5 @0x2e
0x1e77…1eab at002f = ╱20╱…╱ // 0x1ea6 @0x2f
0x1e77…1eab at0030 = ╱3a╱:╱ // 0x1ea7 @0x30
0x1e77…1eab at0031 = ╱22╱"╱ // 0x1ea8 @0x31
0x1e77…1eab at0032 = ╱ea╱ ; ╱ // 0x1ea9 @0x32
0x1e77…1eab at0033 = EOL // 0x1eaa @0x33
0x1e77…1eab }
0x1eab…1edb b4c9 2720 PRINT USING "###.## %" : (RESULTAT + L_I) * 100 / S_EGENKA
0x1eab…1edb LineComal80 {
0x1eab…1edb ptr = 0xb4c9 // 0x1eab @0x0
0x1eab…1edb lno = 0x0aa0 // 0x1ead @0x2
0x1eab…1edb at0004 = ╱92╱ PRINT ╱ // 0x1eaf @0x4
0x1eab…1edb at0005 = ╱b9╱ USING ╱ // 0x1eb0 @0x5
0x1eab…1edb at0006 = ╱22╱"╱ // 0x1eb1 @0x6
0x1eab…1edb at0007 = ╱23╱#╱ // 0x1eb2 @0x7
0x1eab…1edb at0008 = ╱23╱#╱ // 0x1eb3 @0x8
0x1eab…1edb at0009 = ╱23╱#╱ // 0x1eb4 @0x9
0x1eab…1edb at000a = ╱2e╱.╱ // 0x1eb5 @0xa
0x1eab…1edb at000b = ╱23╱#╱ // 0x1eb6 @0xb
0x1eab…1edb at000c = ╱23╱#╱ // 0x1eb7 @0xc
0x1eab…1edb at000d = ╱20╱…╱ // 0x1eb8 @0xd
0x1eab…1edb at000e = ╱25╱%╱ // 0x1eb9 @0xe
0x1eab…1edb at000f = ╱22╱"╱ // 0x1eba @0xf
0x1eab…1edb at0010 = ╱f1╱ : ╱ // 0x1ebb @0x10
0x1eab…1edb at0011 = ╱ed╱(╱ // 0x1ebc @0x11
0x1eab…1edb at0012 = ╱52╱R╱ // 0x1ebd @0x12
0x1eab…1edb at0013 = ╱45╱E╱ // 0x1ebe @0x13
0x1eab…1edb at0014 = ╱53╱S╱ // 0x1ebf @0x14
0x1eab…1edb at0015 = ╱55╱U╱ // 0x1ec0 @0x15
0x1eab…1edb at0016 = ╱4c╱L╱ // 0x1ec1 @0x16
0x1eab…1edb at0017 = ╱54╱T╱ // 0x1ec2 @0x17
0x1eab…1edb at0018 = ╱41╱A╱ // 0x1ec3 @0x18
0x1eab…1edb at0019 = ╱54╱T╱ // 0x1ec4 @0x19
0x1eab…1edb at001a = ╱e5╱ + ╱ // 0x1ec5 @0x1a
0x1eab…1edb at001b = ╱4c╱L╱ // 0x1ec6 @0x1b
0x1eab…1edb at001c = ╱5f╱_╱ // 0x1ec7 @0x1c
0x1eab…1edb at001d = ╱49╱I╱ // 0x1ec8 @0x1d
0x1eab…1edb at001e = ╱ee╱)╱ // 0x1ec9 @0x1e
0x1eab…1edb at001f = ╱e7╱ * ╱ // 0x1eca @0x1f
0x1eab…1edb at0020 = ╱31╱1╱ // 0x1ecb @0x20
0x1eab…1edb at0021 = ╱30╱0╱ // 0x1ecc @0x21
0x1eab…1edb at0022 = ╱30╱0╱ // 0x1ecd @0x22
0x1eab…1edb at0023 = ╱f26400╱ // 0x1ece @0x23
0x1eab…1edb at0026 = ╱e8╱ / ╱ // 0x1ed1 @0x26
0x1eab…1edb at0027 = ╱53╱S╱ // 0x1ed2 @0x27
0x1eab…1edb at0028 = ╱5f╱_╱ // 0x1ed3 @0x28
0x1eab…1edb at0029 = ╱45╱E╱ // 0x1ed4 @0x29
0x1eab…1edb at002a = ╱47╱G╱ // 0x1ed5 @0x2a
0x1eab…1edb at002b = ╱45╱E╱ // 0x1ed6 @0x2b
0x1eab…1edb at002c = ╱4e╱N╱ // 0x1ed7 @0x2c
0x1eab…1edb at002d = ╱4b╱K╱ // 0x1ed8 @0x2d
0x1eab…1edb at002e = ╱41╱A╱ // 0x1ed9 @0x2e
0x1eab…1edb at002f = EOL // 0x1eda @0x2f
0x1eab…1edb }
0x1edb…1ee1 b4cf 2730 PRINT
0x1edb…1ee1 LineComal80 {
0x1edb…1ee1 ptr = 0xb4cf // 0x1edb @0x0
0x1edb…1ee1 lno = 0x0aaa // 0x1edd @0x2
0x1edb…1ee1 at0004 = ╱92╱ PRINT ╱ // 0x1edf @0x4
0x1edb…1ee1 at0005 = EOL // 0x1ee0 @0x5
0x1edb…1ee1 }
0x1ee1…1ee7 b4d5 2740 PRINT
0x1ee1…1ee7 LineComal80 {
0x1ee1…1ee7 ptr = 0xb4d5 // 0x1ee1 @0x0
0x1ee1…1ee7 lno = 0x0ab4 // 0x1ee3 @0x2
0x1ee1…1ee7 at0004 = ╱92╱ PRINT ╱ // 0x1ee5 @0x4
0x1ee1…1ee7 at0005 = EOL // 0x1ee6 @0x5
0x1ee1…1ee7 }
0x1ee7…1f16 b504 2750 PRINT "**** I N D T J E N I N G S E V N E ****"
0x1ee7…1f16 LineComal80 {
0x1ee7…1f16 ptr = 0xb504 // 0x1ee7 @0x0
0x1ee7…1f16 lno = 0x0abe // 0x1ee9 @0x2
0x1ee7…1f16 at0004 = ╱92╱ PRINT ╱ // 0x1eeb @0x4
0x1ee7…1f16 at0005 = ╱22╱"╱ // 0x1eec @0x5
0x1ee7…1f16 at0006 = ╱2a╱*╱ // 0x1eed @0x6
0x1ee7…1f16 at0007 = ╱2a╱*╱ // 0x1eee @0x7
0x1ee7…1f16 at0008 = ╱2a╱*╱ // 0x1eef @0x8
0x1ee7…1f16 at0009 = ╱2a╱*╱ // 0x1ef0 @0x9
0x1ee7…1f16 at000a = ╱20╱…╱ // 0x1ef1 @0xa
0x1ee7…1f16 at000b = ╱49╱I╱ // 0x1ef2 @0xb
0x1ee7…1f16 at000c = ╱20╱…╱ // 0x1ef3 @0xc
0x1ee7…1f16 at000d = ╱4e╱N╱ // 0x1ef4 @0xd
0x1ee7…1f16 at000e = ╱20╱…╱ // 0x1ef5 @0xe
0x1ee7…1f16 at000f = ╱44╱D╱ // 0x1ef6 @0xf
0x1ee7…1f16 at0010 = ╱20╱…╱ // 0x1ef7 @0x10
0x1ee7…1f16 at0011 = ╱54╱T╱ // 0x1ef8 @0x11
0x1ee7…1f16 at0012 = ╱20╱…╱ // 0x1ef9 @0x12
0x1ee7…1f16 at0013 = ╱4a╱J╱ // 0x1efa @0x13
0x1ee7…1f16 at0014 = ╱20╱…╱ // 0x1efb @0x14
0x1ee7…1f16 at0015 = ╱45╱E╱ // 0x1efc @0x15
0x1ee7…1f16 at0016 = ╱20╱…╱ // 0x1efd @0x16
0x1ee7…1f16 at0017 = ╱4e╱N╱ // 0x1efe @0x17
0x1ee7…1f16 at0018 = ╱20╱…╱ // 0x1eff @0x18
0x1ee7…1f16 at0019 = ╱49╱I╱ // 0x1f00 @0x19
0x1ee7…1f16 at001a = ╱20╱…╱ // 0x1f01 @0x1a
0x1ee7…1f16 at001b = ╱4e╱N╱ // 0x1f02 @0x1b
0x1ee7…1f16 at001c = ╱20╱…╱ // 0x1f03 @0x1c
0x1ee7…1f16 at001d = ╱47╱G╱ // 0x1f04 @0x1d
0x1ee7…1f16 at001e = ╱20╱…╱ // 0x1f05 @0x1e
0x1ee7…1f16 at001f = ╱53╱S╱ // 0x1f06 @0x1f
0x1ee7…1f16 at0020 = ╱20╱…╱ // 0x1f07 @0x20
0x1ee7…1f16 at0021 = ╱45╱E╱ // 0x1f08 @0x21
0x1ee7…1f16 at0022 = ╱20╱…╱ // 0x1f09 @0x22
0x1ee7…1f16 at0023 = ╱56╱V╱ // 0x1f0a @0x23
0x1ee7…1f16 at0024 = ╱20╱…╱ // 0x1f0b @0x24
0x1ee7…1f16 at0025 = ╱4e╱N╱ // 0x1f0c @0x25
0x1ee7…1f16 at0026 = ╱20╱…╱ // 0x1f0d @0x26
0x1ee7…1f16 at0027 = ╱45╱E╱ // 0x1f0e @0x27
0x1ee7…1f16 at0028 = ╱20╱…╱ // 0x1f0f @0x28
0x1ee7…1f16 at0029 = ╱2a╱*╱ // 0x1f10 @0x29
0x1ee7…1f16 at002a = ╱2a╱*╱ // 0x1f11 @0x2a
0x1ee7…1f16 at002b = ╱2a╱*╱ // 0x1f12 @0x2b
0x1ee7…1f16 at002c = ╱2a╱*╱ // 0x1f13 @0x2c
0x1ee7…1f16 at002d = ╱22╱"╱ // 0x1f14 @0x2d
0x1ee7…1f16 at002e = EOL // 0x1f15 @0x2e
0x1ee7…1f16 }
0x1f16…1f45 b533 2760 PRINT "---------------------------------------"
0x1f16…1f45 LineComal80 {
0x1f16…1f45 ptr = 0xb533 // 0x1f16 @0x0
0x1f16…1f45 lno = 0x0ac8 // 0x1f18 @0x2
0x1f16…1f45 at0004 = ╱92╱ PRINT ╱ // 0x1f1a @0x4
0x1f16…1f45 at0005 = ╱22╱"╱ // 0x1f1b @0x5
0x1f16…1f45 at0006 = ╱2d╱-╱ // 0x1f1c @0x6
0x1f16…1f45 at0007 = ╱2d╱-╱ // 0x1f1d @0x7
0x1f16…1f45 at0008 = ╱2d╱-╱ // 0x1f1e @0x8
0x1f16…1f45 at0009 = ╱2d╱-╱ // 0x1f1f @0x9
0x1f16…1f45 at000a = ╱2d╱-╱ // 0x1f20 @0xa
0x1f16…1f45 at000b = ╱2d╱-╱ // 0x1f21 @0xb
0x1f16…1f45 at000c = ╱2d╱-╱ // 0x1f22 @0xc
0x1f16…1f45 at000d = ╱2d╱-╱ // 0x1f23 @0xd
0x1f16…1f45 at000e = ╱2d╱-╱ // 0x1f24 @0xe
0x1f16…1f45 at000f = ╱2d╱-╱ // 0x1f25 @0xf
0x1f16…1f45 at0010 = ╱2d╱-╱ // 0x1f26 @0x10
0x1f16…1f45 at0011 = ╱2d╱-╱ // 0x1f27 @0x11
0x1f16…1f45 at0012 = ╱2d╱-╱ // 0x1f28 @0x12
0x1f16…1f45 at0013 = ╱2d╱-╱ // 0x1f29 @0x13
0x1f16…1f45 at0014 = ╱2d╱-╱ // 0x1f2a @0x14
0x1f16…1f45 at0015 = ╱2d╱-╱ // 0x1f2b @0x15
0x1f16…1f45 at0016 = ╱2d╱-╱ // 0x1f2c @0x16
0x1f16…1f45 at0017 = ╱2d╱-╱ // 0x1f2d @0x17
0x1f16…1f45 at0018 = ╱2d╱-╱ // 0x1f2e @0x18
0x1f16…1f45 at0019 = ╱2d╱-╱ // 0x1f2f @0x19
0x1f16…1f45 at001a = ╱2d╱-╱ // 0x1f30 @0x1a
0x1f16…1f45 at001b = ╱2d╱-╱ // 0x1f31 @0x1b
0x1f16…1f45 at001c = ╱2d╱-╱ // 0x1f32 @0x1c
0x1f16…1f45 at001d = ╱2d╱-╱ // 0x1f33 @0x1d
0x1f16…1f45 at001e = ╱2d╱-╱ // 0x1f34 @0x1e
0x1f16…1f45 at001f = ╱2d╱-╱ // 0x1f35 @0x1f
0x1f16…1f45 at0020 = ╱2d╱-╱ // 0x1f36 @0x20
0x1f16…1f45 at0021 = ╱2d╱-╱ // 0x1f37 @0x21
0x1f16…1f45 at0022 = ╱2d╱-╱ // 0x1f38 @0x22
0x1f16…1f45 at0023 = ╱2d╱-╱ // 0x1f39 @0x23
0x1f16…1f45 at0024 = ╱2d╱-╱ // 0x1f3a @0x24
0x1f16…1f45 at0025 = ╱2d╱-╱ // 0x1f3b @0x25
0x1f16…1f45 at0026 = ╱2d╱-╱ // 0x1f3c @0x26
0x1f16…1f45 at0027 = ╱2d╱-╱ // 0x1f3d @0x27
0x1f16…1f45 at0028 = ╱2d╱-╱ // 0x1f3e @0x28
0x1f16…1f45 at0029 = ╱2d╱-╱ // 0x1f3f @0x29
0x1f16…1f45 at002a = ╱2d╱-╱ // 0x1f40 @0x2a
0x1f16…1f45 at002b = ╱2d╱-╱ // 0x1f41 @0x2b
0x1f16…1f45 at002c = ╱2d╱-╱ // 0x1f42 @0x2c
0x1f16…1f45 at002d = ╱22╱"╱ // 0x1f43 @0x2d
0x1f16…1f45 at002e = EOL // 0x1f44 @0x2e
0x1f16…1f45 }
0x1f45…1f4b b539 2770 PRINT
0x1f45…1f4b LineComal80 {
0x1f45…1f4b ptr = 0xb539 // 0x1f45 @0x0
0x1f45…1f4b lno = 0x0ad2 // 0x1f47 @0x2
0x1f45…1f4b at0004 = ╱92╱ PRINT ╱ // 0x1f49 @0x4
0x1f45…1f4b at0005 = EOL // 0x1f4a @0x5
0x1f45…1f4b }
0x1f4b…1f7f b56d 2780 PRINT " (1) Bruttofortjeneste i % af omsætning :" ;
0x1f4b…1f7f LineComal80 {
0x1f4b…1f7f ptr = 0xb56d // 0x1f4b @0x0
0x1f4b…1f7f lno = 0x0adc // 0x1f4d @0x2
0x1f4b…1f7f at0004 = ╱92╱ PRINT ╱ // 0x1f4f @0x4
0x1f4b…1f7f at0005 = ╱22╱"╱ // 0x1f50 @0x5
0x1f4b…1f7f at0006 = ╱20╱…╱ // 0x1f51 @0x6
0x1f4b…1f7f at0007 = ╱28╱(╱ // 0x1f52 @0x7
0x1f4b…1f7f at0008 = ╱31╱1╱ // 0x1f53 @0x8
0x1f4b…1f7f at0009 = ╱29╱)╱ // 0x1f54 @0x9
0x1f4b…1f7f at000a = ╱20╱…╱ // 0x1f55 @0xa
0x1f4b…1f7f at000b = ╱42╱B╱ // 0x1f56 @0xb
0x1f4b…1f7f at000c = ╱72╱r╱ // 0x1f57 @0xc
0x1f4b…1f7f at000d = ╱75╱u╱ // 0x1f58 @0xd
0x1f4b…1f7f at000e = ╱74╱t╱ // 0x1f59 @0xe
0x1f4b…1f7f at000f = ╱74╱t╱ // 0x1f5a @0xf
0x1f4b…1f7f at0010 = ╱6f╱o╱ // 0x1f5b @0x10
0x1f4b…1f7f at0011 = ╱66╱f╱ // 0x1f5c @0x11
0x1f4b…1f7f at0012 = ╱6f╱o╱ // 0x1f5d @0x12
0x1f4b…1f7f at0013 = ╱72╱r╱ // 0x1f5e @0x13
0x1f4b…1f7f at0014 = ╱74╱t╱ // 0x1f5f @0x14
0x1f4b…1f7f at0015 = ╱6a╱j╱ // 0x1f60 @0x15
0x1f4b…1f7f at0016 = ╱65╱e╱ // 0x1f61 @0x16
0x1f4b…1f7f at0017 = ╱6e╱n╱ // 0x1f62 @0x17
0x1f4b…1f7f at0018 = ╱65╱e╱ // 0x1f63 @0x18
0x1f4b…1f7f at0019 = ╱73╱s╱ // 0x1f64 @0x19
0x1f4b…1f7f at001a = ╱74╱t╱ // 0x1f65 @0x1a
0x1f4b…1f7f at001b = ╱65╱e╱ // 0x1f66 @0x1b
0x1f4b…1f7f at001c = ╱20╱…╱ // 0x1f67 @0x1c
0x1f4b…1f7f at001d = ╱69╱i╱ // 0x1f68 @0x1d
0x1f4b…1f7f at001e = ╱20╱…╱ // 0x1f69 @0x1e
0x1f4b…1f7f at001f = ╱25╱%╱ // 0x1f6a @0x1f
0x1f4b…1f7f at0020 = ╱20╱…╱ // 0x1f6b @0x20
0x1f4b…1f7f at0021 = ╱61╱a╱ // 0x1f6c @0x21
0x1f4b…1f7f at0022 = ╱66╱f╱ // 0x1f6d @0x22
0x1f4b…1f7f at0023 = ╱20╱…╱ // 0x1f6e @0x23
0x1f4b…1f7f at0024 = ╱6f╱o╱ // 0x1f6f @0x24
0x1f4b…1f7f at0025 = ╱6d╱m╱ // 0x1f70 @0x25
0x1f4b…1f7f at0026 = ╱73╱s╱ // 0x1f71 @0x26
0x1f4b…1f7f at0027 = ╱7b╱æ╱ // 0x1f72 @0x27
0x1f4b…1f7f at0028 = ╱74╱t╱ // 0x1f73 @0x28
0x1f4b…1f7f at0029 = ╱6e╱n╱ // 0x1f74 @0x29
0x1f4b…1f7f at002a = ╱69╱i╱ // 0x1f75 @0x2a
0x1f4b…1f7f at002b = ╱6e╱n╱ // 0x1f76 @0x2b
0x1f4b…1f7f at002c = ╱67╱g╱ // 0x1f77 @0x2c
0x1f4b…1f7f at002d = ╱20╱…╱ // 0x1f78 @0x2d
0x1f4b…1f7f at002e = ╱20╱…╱ // 0x1f79 @0x2e
0x1f4b…1f7f at002f = ╱20╱…╱ // 0x1f7a @0x2f
0x1f4b…1f7f at0030 = ╱3a╱:╱ // 0x1f7b @0x30
0x1f4b…1f7f at0031 = ╱22╱"╱ // 0x1f7c @0x31
0x1f4b…1f7f at0032 = ╱ea╱ ; ╱ // 0x1f7d @0x32
0x1f4b…1f7f at0033 = EOL // 0x1f7e @0x33
0x1f4b…1f7f }
0x1f7f…1fa7 b595 2790 PRINT USING "###.## %" : BRUTTO * 100 / S_AKTIVE
0x1f7f…1fa7 LineComal80 {
0x1f7f…1fa7 ptr = 0xb595 // 0x1f7f @0x0
0x1f7f…1fa7 lno = 0x0ae6 // 0x1f81 @0x2
0x1f7f…1fa7 at0004 = ╱92╱ PRINT ╱ // 0x1f83 @0x4
0x1f7f…1fa7 at0005 = ╱b9╱ USING ╱ // 0x1f84 @0x5
0x1f7f…1fa7 at0006 = ╱22╱"╱ // 0x1f85 @0x6
0x1f7f…1fa7 at0007 = ╱23╱#╱ // 0x1f86 @0x7
0x1f7f…1fa7 at0008 = ╱23╱#╱ // 0x1f87 @0x8
0x1f7f…1fa7 at0009 = ╱23╱#╱ // 0x1f88 @0x9
0x1f7f…1fa7 at000a = ╱2e╱.╱ // 0x1f89 @0xa
0x1f7f…1fa7 at000b = ╱23╱#╱ // 0x1f8a @0xb
0x1f7f…1fa7 at000c = ╱23╱#╱ // 0x1f8b @0xc
0x1f7f…1fa7 at000d = ╱20╱…╱ // 0x1f8c @0xd
0x1f7f…1fa7 at000e = ╱25╱%╱ // 0x1f8d @0xe
0x1f7f…1fa7 at000f = ╱22╱"╱ // 0x1f8e @0xf
0x1f7f…1fa7 at0010 = ╱f1╱ : ╱ // 0x1f8f @0x10
0x1f7f…1fa7 at0011 = ╱42╱B╱ // 0x1f90 @0x11
0x1f7f…1fa7 at0012 = ╱52╱R╱ // 0x1f91 @0x12
0x1f7f…1fa7 at0013 = ╱55╱U╱ // 0x1f92 @0x13
0x1f7f…1fa7 at0014 = ╱54╱T╱ // 0x1f93 @0x14
0x1f7f…1fa7 at0015 = ╱54╱T╱ // 0x1f94 @0x15
0x1f7f…1fa7 at0016 = ╱4f╱O╱ // 0x1f95 @0x16
0x1f7f…1fa7 at0017 = ╱e7╱ * ╱ // 0x1f96 @0x17
0x1f7f…1fa7 at0018 = ╱31╱1╱ // 0x1f97 @0x18
0x1f7f…1fa7 at0019 = ╱30╱0╱ // 0x1f98 @0x19
0x1f7f…1fa7 at001a = ╱30╱0╱ // 0x1f99 @0x1a
0x1f7f…1fa7 at001b = ╱f26400╱ // 0x1f9a @0x1b
0x1f7f…1fa7 at001e = ╱e8╱ / ╱ // 0x1f9d @0x1e
0x1f7f…1fa7 at001f = ╱53╱S╱ // 0x1f9e @0x1f
0x1f7f…1fa7 at0020 = ╱5f╱_╱ // 0x1f9f @0x20
0x1f7f…1fa7 at0021 = ╱41╱A╱ // 0x1fa0 @0x21
0x1f7f…1fa7 at0022 = ╱4b╱K╱ // 0x1fa1 @0x22
0x1f7f…1fa7 at0023 = ╱54╱T╱ // 0x1fa2 @0x23
0x1f7f…1fa7 at0024 = ╱49╱I╱ // 0x1fa3 @0x24
0x1f7f…1fa7 at0025 = ╱56╱V╱ // 0x1fa4 @0x25
0x1f7f…1fa7 at0026 = ╱45╱E╱ // 0x1fa5 @0x26
0x1f7f…1fa7 at0027 = EOL // 0x1fa6 @0x27
0x1f7f…1fa7 }
0x1fa7…1fad b59b 2800 PRINT
0x1fa7…1fad LineComal80 {
0x1fa7…1fad ptr = 0xb59b // 0x1fa7 @0x0
0x1fa7…1fad lno = 0x0af0 // 0x1fa9 @0x2
0x1fa7…1fad at0004 = ╱92╱ PRINT ╱ // 0x1fab @0x4
0x1fa7…1fad at0005 = EOL // 0x1fac @0x5
0x1fa7…1fad }
0x1fad…1fe1 b5cf 2810 PRINT " (2) Dækningsgrad :" ;
0x1fad…1fe1 LineComal80 {
0x1fad…1fe1 ptr = 0xb5cf // 0x1fad @0x0
0x1fad…1fe1 lno = 0x0afa // 0x1faf @0x2
0x1fad…1fe1 at0004 = ╱92╱ PRINT ╱ // 0x1fb1 @0x4
0x1fad…1fe1 at0005 = ╱22╱"╱ // 0x1fb2 @0x5
0x1fad…1fe1 at0006 = ╱20╱…╱ // 0x1fb3 @0x6
0x1fad…1fe1 at0007 = ╱28╱(╱ // 0x1fb4 @0x7
0x1fad…1fe1 at0008 = ╱32╱2╱ // 0x1fb5 @0x8
0x1fad…1fe1 at0009 = ╱29╱)╱ // 0x1fb6 @0x9
0x1fad…1fe1 at000a = ╱20╱…╱ // 0x1fb7 @0xa
0x1fad…1fe1 at000b = ╱44╱D╱ // 0x1fb8 @0xb
0x1fad…1fe1 at000c = ╱7b╱æ╱ // 0x1fb9 @0xc
0x1fad…1fe1 at000d = ╱6b╱k╱ // 0x1fba @0xd
0x1fad…1fe1 at000e = ╱6e╱n╱ // 0x1fbb @0xe
0x1fad…1fe1 at000f = ╱69╱i╱ // 0x1fbc @0xf
0x1fad…1fe1 at0010 = ╱6e╱n╱ // 0x1fbd @0x10
0x1fad…1fe1 at0011 = ╱67╱g╱ // 0x1fbe @0x11
0x1fad…1fe1 at0012 = ╱73╱s╱ // 0x1fbf @0x12
0x1fad…1fe1 at0013 = ╱67╱g╱ // 0x1fc0 @0x13
0x1fad…1fe1 at0014 = ╱72╱r╱ // 0x1fc1 @0x14
0x1fad…1fe1 at0015 = ╱61╱a╱ // 0x1fc2 @0x15
0x1fad…1fe1 at0016 = ╱64╱d╱ // 0x1fc3 @0x16
0x1fad…1fe1 at0017 = ╱20╱…╱ // 0x1fc4 @0x17
0x1fad…1fe1 at0018 = ╱20╱…╱ // 0x1fc5 @0x18
0x1fad…1fe1 at0019 = ╱20╱…╱ // 0x1fc6 @0x19
0x1fad…1fe1 at001a = ╱20╱…╱ // 0x1fc7 @0x1a
0x1fad…1fe1 at001b = ╱20╱…╱ // 0x1fc8 @0x1b
0x1fad…1fe1 at001c = ╱20╱…╱ // 0x1fc9 @0x1c
0x1fad…1fe1 at001d = ╱20╱…╱ // 0x1fca @0x1d
0x1fad…1fe1 at001e = ╱20╱…╱ // 0x1fcb @0x1e
0x1fad…1fe1 at001f = ╱20╱…╱ // 0x1fcc @0x1f
0x1fad…1fe1 at0020 = ╱20╱…╱ // 0x1fcd @0x20
0x1fad…1fe1 at0021 = ╱20╱…╱ // 0x1fce @0x21
0x1fad…1fe1 at0022 = ╱20╱…╱ // 0x1fcf @0x22
0x1fad…1fe1 at0023 = ╱20╱…╱ // 0x1fd0 @0x23
0x1fad…1fe1 at0024 = ╱20╱…╱ // 0x1fd1 @0x24
0x1fad…1fe1 at0025 = ╱20╱…╱ // 0x1fd2 @0x25
0x1fad…1fe1 at0026 = ╱20╱…╱ // 0x1fd3 @0x26
0x1fad…1fe1 at0027 = ╱20╱…╱ // 0x1fd4 @0x27
0x1fad…1fe1 at0028 = ╱20╱…╱ // 0x1fd5 @0x28
0x1fad…1fe1 at0029 = ╱20╱…╱ // 0x1fd6 @0x29
0x1fad…1fe1 at002a = ╱20╱…╱ // 0x1fd7 @0x2a
0x1fad…1fe1 at002b = ╱20╱…╱ // 0x1fd8 @0x2b
0x1fad…1fe1 at002c = ╱20╱…╱ // 0x1fd9 @0x2c
0x1fad…1fe1 at002d = ╱20╱…╱ // 0x1fda @0x2d
0x1fad…1fe1 at002e = ╱20╱…╱ // 0x1fdb @0x2e
0x1fad…1fe1 at002f = ╱20╱…╱ // 0x1fdc @0x2f
0x1fad…1fe1 at0030 = ╱3a╱:╱ // 0x1fdd @0x30
0x1fad…1fe1 at0031 = ╱22╱"╱ // 0x1fde @0x31
0x1fad…1fe1 at0032 = ╱ea╱ ; ╱ // 0x1fdf @0x32
0x1fad…1fe1 at0033 = EOL // 0x1fe0 @0x33
0x1fad…1fe1 }
0x1fe1…200a b5f8 2820 PRINT USING "###.## %" : DÆKNING * 100 / S_AKTIVE
0x1fe1…200a LineComal80 {
0x1fe1…200a ptr = 0xb5f8 // 0x1fe1 @0x0
0x1fe1…200a lno = 0x0b04 // 0x1fe3 @0x2
0x1fe1…200a at0004 = ╱92╱ PRINT ╱ // 0x1fe5 @0x4
0x1fe1…200a at0005 = ╱b9╱ USING ╱ // 0x1fe6 @0x5
0x1fe1…200a at0006 = ╱22╱"╱ // 0x1fe7 @0x6
0x1fe1…200a at0007 = ╱23╱#╱ // 0x1fe8 @0x7
0x1fe1…200a at0008 = ╱23╱#╱ // 0x1fe9 @0x8
0x1fe1…200a at0009 = ╱23╱#╱ // 0x1fea @0x9
0x1fe1…200a at000a = ╱2e╱.╱ // 0x1feb @0xa
0x1fe1…200a at000b = ╱23╱#╱ // 0x1fec @0xb
0x1fe1…200a at000c = ╱23╱#╱ // 0x1fed @0xc
0x1fe1…200a at000d = ╱20╱…╱ // 0x1fee @0xd
0x1fe1…200a at000e = ╱25╱%╱ // 0x1fef @0xe
0x1fe1…200a at000f = ╱22╱"╱ // 0x1ff0 @0xf
0x1fe1…200a at0010 = ╱f1╱ : ╱ // 0x1ff1 @0x10
0x1fe1…200a at0011 = ╱44╱D╱ // 0x1ff2 @0x11
0x1fe1…200a at0012 = ╱5b╱Æ╱ // 0x1ff3 @0x12
0x1fe1…200a at0013 = ╱4b╱K╱ // 0x1ff4 @0x13
0x1fe1…200a at0014 = ╱4e╱N╱ // 0x1ff5 @0x14
0x1fe1…200a at0015 = ╱49╱I╱ // 0x1ff6 @0x15
0x1fe1…200a at0016 = ╱4e╱N╱ // 0x1ff7 @0x16
0x1fe1…200a at0017 = ╱47╱G╱ // 0x1ff8 @0x17
0x1fe1…200a at0018 = ╱e7╱ * ╱ // 0x1ff9 @0x18
0x1fe1…200a at0019 = ╱31╱1╱ // 0x1ffa @0x19
0x1fe1…200a at001a = ╱30╱0╱ // 0x1ffb @0x1a
0x1fe1…200a at001b = ╱30╱0╱ // 0x1ffc @0x1b
0x1fe1…200a at001c = ╱f26400╱ // 0x1ffd @0x1c
0x1fe1…200a at001f = ╱e8╱ / ╱ // 0x2000 @0x1f
0x1fe1…200a at0020 = ╱53╱S╱ // 0x2001 @0x20
0x1fe1…200a at0021 = ╱5f╱_╱ // 0x2002 @0x21
0x1fe1…200a at0022 = ╱41╱A╱ // 0x2003 @0x22
0x1fe1…200a at0023 = ╱4b╱K╱ // 0x2004 @0x23
0x1fe1…200a at0024 = ╱54╱T╱ // 0x2005 @0x24
0x1fe1…200a at0025 = ╱49╱I╱ // 0x2006 @0x25
0x1fe1…200a at0026 = ╱56╱V╱ // 0x2007 @0x26
0x1fe1…200a at0027 = ╱45╱E╱ // 0x2008 @0x27
0x1fe1…200a at0028 = EOL // 0x2009 @0x28
0x1fe1…200a }
0x200a…2010 b5fe 2830 PRINT
0x200a…2010 LineComal80 {
0x200a…2010 ptr = 0xb5fe // 0x200a @0x0
0x200a…2010 lno = 0x0b0e // 0x200c @0x2
0x200a…2010 at0004 = ╱92╱ PRINT ╱ // 0x200e @0x4
0x200a…2010 at0005 = EOL // 0x200f @0x5
0x200a…2010 }
0x2010…203c b62a 2840 PRINT " (3) Omkostninger i % af omsætningen"
0x2010…203c LineComal80 {
0x2010…203c ptr = 0xb62a // 0x2010 @0x0
0x2010…203c lno = 0x0b18 // 0x2012 @0x2
0x2010…203c at0004 = ╱92╱ PRINT ╱ // 0x2014 @0x4
0x2010…203c at0005 = ╱22╱"╱ // 0x2015 @0x5
0x2010…203c at0006 = ╱20╱…╱ // 0x2016 @0x6
0x2010…203c at0007 = ╱28╱(╱ // 0x2017 @0x7
0x2010…203c at0008 = ╱33╱3╱ // 0x2018 @0x8
0x2010…203c at0009 = ╱29╱)╱ // 0x2019 @0x9
0x2010…203c at000a = ╱20╱…╱ // 0x201a @0xa
0x2010…203c at000b = ╱4f╱O╱ // 0x201b @0xb
0x2010…203c at000c = ╱6d╱m╱ // 0x201c @0xc
0x2010…203c at000d = ╱6b╱k╱ // 0x201d @0xd
0x2010…203c at000e = ╱6f╱o╱ // 0x201e @0xe
0x2010…203c at000f = ╱73╱s╱ // 0x201f @0xf
0x2010…203c at0010 = ╱74╱t╱ // 0x2020 @0x10
0x2010…203c at0011 = ╱6e╱n╱ // 0x2021 @0x11
0x2010…203c at0012 = ╱69╱i╱ // 0x2022 @0x12
0x2010…203c at0013 = ╱6e╱n╱ // 0x2023 @0x13
0x2010…203c at0014 = ╱67╱g╱ // 0x2024 @0x14
0x2010…203c at0015 = ╱65╱e╱ // 0x2025 @0x15
0x2010…203c at0016 = ╱72╱r╱ // 0x2026 @0x16
0x2010…203c at0017 = ╱20╱…╱ // 0x2027 @0x17
0x2010…203c at0018 = ╱69╱i╱ // 0x2028 @0x18
0x2010…203c at0019 = ╱20╱…╱ // 0x2029 @0x19
0x2010…203c at001a = ╱25╱%╱ // 0x202a @0x1a
0x2010…203c at001b = ╱20╱…╱ // 0x202b @0x1b
0x2010…203c at001c = ╱61╱a╱ // 0x202c @0x1c
0x2010…203c at001d = ╱66╱f╱ // 0x202d @0x1d
0x2010…203c at001e = ╱20╱…╱ // 0x202e @0x1e
0x2010…203c at001f = ╱6f╱o╱ // 0x202f @0x1f
0x2010…203c at0020 = ╱6d╱m╱ // 0x2030 @0x20
0x2010…203c at0021 = ╱73╱s╱ // 0x2031 @0x21
0x2010…203c at0022 = ╱7b╱æ╱ // 0x2032 @0x22
0x2010…203c at0023 = ╱74╱t╱ // 0x2033 @0x23
0x2010…203c at0024 = ╱6e╱n╱ // 0x2034 @0x24
0x2010…203c at0025 = ╱69╱i╱ // 0x2035 @0x25
0x2010…203c at0026 = ╱6e╱n╱ // 0x2036 @0x26
0x2010…203c at0027 = ╱67╱g╱ // 0x2037 @0x27
0x2010…203c at0028 = ╱65╱e╱ // 0x2038 @0x28
0x2010…203c at0029 = ╱6e╱n╱ // 0x2039 @0x29
0x2010…203c at002a = ╱22╱"╱ // 0x203a @0x2a
0x2010…203c at002b = EOL // 0x203b @0x2b
0x2010…203c }
0x203c…2053 b641 2850 LET LIN_T := LIN_T + 42
0x203c…2053 LineComal80 {
0x203c…2053 ptr = 0xb641 // 0x203c @0x0
0x203c…2053 lno = 0x0b22 // 0x203e @0x2
0x203c…2053 at0004 = ╱86╱ LET ╱ // 0x2040 @0x4
0x203c…2053 at0005 = ╱4c╱L╱ // 0x2041 @0x5
0x203c…2053 at0006 = ╱49╱I╱ // 0x2042 @0x6
0x203c…2053 at0007 = ╱4e╱N╱ // 0x2043 @0x7
0x203c…2053 at0008 = ╱5f╱_╱ // 0x2044 @0x8
0x203c…2053 at0009 = ╱54╱T╱ // 0x2045 @0x9
0x203c…2053 at000a = ╱f0╱ := ╱ // 0x2046 @0xa
0x203c…2053 at000b = ╱4c╱L╱ // 0x2047 @0xb
0x203c…2053 at000c = ╱49╱I╱ // 0x2048 @0xc
0x203c…2053 at000d = ╱4e╱N╱ // 0x2049 @0xd
0x203c…2053 at000e = ╱5f╱_╱ // 0x204a @0xe
0x203c…2053 at000f = ╱54╱T╱ // 0x204b @0xf
0x203c…2053 at0010 = ╱e5╱ + ╱ // 0x204c @0x10
0x203c…2053 at0011 = ╱34╱4╱ // 0x204d @0x11
0x203c…2053 at0012 = ╱32╱2╱ // 0x204e @0x12
0x203c…2053 at0013 = ╱f22a00╱ // 0x204f @0x13
0x203c…2053 at0016 = EOL // 0x2052 @0x16
0x203c…2053 }
0x2053…206f b65d 2860 EXEC OMK_I_PROCENT(VAREFO$)
0x2053…206f LineComal80 {
0x2053…206f ptr = 0xb65d // 0x2053 @0x0
0x2053…206f lno = 0x0b2c // 0x2055 @0x2
0x2053…206f at0004 = ╱9d╱ EXEC ╱ // 0x2057 @0x4
0x2053…206f at0005 = ╱4f╱O╱ // 0x2058 @0x5
0x2053…206f at0006 = ╱4d╱M╱ // 0x2059 @0x6
0x2053…206f at0007 = ╱4b╱K╱ // 0x205a @0x7
0x2053…206f at0008 = ╱5f╱_╱ // 0x205b @0x8
0x2053…206f at0009 = ╱49╱I╱ // 0x205c @0x9
0x2053…206f at000a = ╱5f╱_╱ // 0x205d @0xa
0x2053…206f at000b = ╱50╱P╱ // 0x205e @0xb
0x2053…206f at000c = ╱52╱R╱ // 0x205f @0xc
0x2053…206f at000d = ╱4f╱O╱ // 0x2060 @0xd
0x2053…206f at000e = ╱43╱C╱ // 0x2061 @0xe
0x2053…206f at000f = ╱45╱E╱ // 0x2062 @0xf
0x2053…206f at0010 = ╱4e╱N╱ // 0x2063 @0x10
0x2053…206f at0011 = ╱54╱T╱ // 0x2064 @0x11
0x2053…206f at0012 = ╱ed╱(╱ // 0x2065 @0x12
0x2053…206f at0013 = ╱56╱V╱ // 0x2066 @0x13
0x2053…206f at0014 = ╱41╱A╱ // 0x2067 @0x14
0x2053…206f at0015 = ╱52╱R╱ // 0x2068 @0x15
0x2053…206f at0016 = ╱45╱E╱ // 0x2069 @0x16
0x2053…206f at0017 = ╱46╱F╱ // 0x206a @0x17
0x2053…206f at0018 = ╱4f╱O╱ // 0x206b @0x18
0x2053…206f at0019 = ╱ef╱$╱ // 0x206c @0x19
0x2053…206f at001a = ╱ee╱)╱ // 0x206d @0x1a
0x2053…206f at001b = EOL // 0x206e @0x1b
0x2053…206f }
0x206f…208b b679 2870 EXEC OMK_I_PROCENT(KAPOMK$)
0x206f…208b LineComal80 {
0x206f…208b ptr = 0xb679 // 0x206f @0x0
0x206f…208b lno = 0x0b36 // 0x2071 @0x2
0x206f…208b at0004 = ╱9d╱ EXEC ╱ // 0x2073 @0x4
0x206f…208b at0005 = ╱4f╱O╱ // 0x2074 @0x5
0x206f…208b at0006 = ╱4d╱M╱ // 0x2075 @0x6
0x206f…208b at0007 = ╱4b╱K╱ // 0x2076 @0x7
0x206f…208b at0008 = ╱5f╱_╱ // 0x2077 @0x8
0x206f…208b at0009 = ╱49╱I╱ // 0x2078 @0x9
0x206f…208b at000a = ╱5f╱_╱ // 0x2079 @0xa
0x206f…208b at000b = ╱50╱P╱ // 0x207a @0xb
0x206f…208b at000c = ╱52╱R╱ // 0x207b @0xc
0x206f…208b at000d = ╱4f╱O╱ // 0x207c @0xd
0x206f…208b at000e = ╱43╱C╱ // 0x207d @0xe
0x206f…208b at000f = ╱45╱E╱ // 0x207e @0xf
0x206f…208b at0010 = ╱4e╱N╱ // 0x207f @0x10
0x206f…208b at0011 = ╱54╱T╱ // 0x2080 @0x11
0x206f…208b at0012 = ╱ed╱(╱ // 0x2081 @0x12
0x206f…208b at0013 = ╱4b╱K╱ // 0x2082 @0x13
0x206f…208b at0014 = ╱41╱A╱ // 0x2083 @0x14
0x206f…208b at0015 = ╱50╱P╱ // 0x2084 @0x15
0x206f…208b at0016 = ╱4f╱O╱ // 0x2085 @0x16
0x206f…208b at0017 = ╱4d╱M╱ // 0x2086 @0x17
0x206f…208b at0018 = ╱4b╱K╱ // 0x2087 @0x18
0x206f…208b at0019 = ╱ef╱$╱ // 0x2088 @0x19
0x206f…208b at001a = ╱ee╱)╱ // 0x2089 @0x1a
0x206f…208b at001b = EOL // 0x208a @0x1b
0x206f…208b }
0x208b…20a7 b695 2880 EXEC OMK_I_PROCENT(AFSKRI$)
0x208b…20a7 LineComal80 {
0x208b…20a7 ptr = 0xb695 // 0x208b @0x0
0x208b…20a7 lno = 0x0b40 // 0x208d @0x2
0x208b…20a7 at0004 = ╱9d╱ EXEC ╱ // 0x208f @0x4
0x208b…20a7 at0005 = ╱4f╱O╱ // 0x2090 @0x5
0x208b…20a7 at0006 = ╱4d╱M╱ // 0x2091 @0x6
0x208b…20a7 at0007 = ╱4b╱K╱ // 0x2092 @0x7
0x208b…20a7 at0008 = ╱5f╱_╱ // 0x2093 @0x8
0x208b…20a7 at0009 = ╱49╱I╱ // 0x2094 @0x9
0x208b…20a7 at000a = ╱5f╱_╱ // 0x2095 @0xa
0x208b…20a7 at000b = ╱50╱P╱ // 0x2096 @0xb
0x208b…20a7 at000c = ╱52╱R╱ // 0x2097 @0xc
0x208b…20a7 at000d = ╱4f╱O╱ // 0x2098 @0xd
0x208b…20a7 at000e = ╱43╱C╱ // 0x2099 @0xe
0x208b…20a7 at000f = ╱45╱E╱ // 0x209a @0xf
0x208b…20a7 at0010 = ╱4e╱N╱ // 0x209b @0x10
0x208b…20a7 at0011 = ╱54╱T╱ // 0x209c @0x11
0x208b…20a7 at0012 = ╱ed╱(╱ // 0x209d @0x12
0x208b…20a7 at0013 = ╱41╱A╱ // 0x209e @0x13
0x208b…20a7 at0014 = ╱46╱F╱ // 0x209f @0x14
0x208b…20a7 at0015 = ╱53╱S╱ // 0x20a0 @0x15
0x208b…20a7 at0016 = ╱4b╱K╱ // 0x20a1 @0x16
0x208b…20a7 at0017 = ╱52╱R╱ // 0x20a2 @0x17
0x208b…20a7 at0018 = ╱49╱I╱ // 0x20a3 @0x18
0x208b…20a7 at0019 = ╱ef╱$╱ // 0x20a4 @0x19
0x208b…20a7 at001a = ╱ee╱)╱ // 0x20a5 @0x1a
0x208b…20a7 at001b = EOL // 0x20a6 @0x1b
0x208b…20a7 }
0x20a7…20c3 b6b1 2890 EXEC OMK_I_PROCENT(RENTEO$)
0x20a7…20c3 LineComal80 {
0x20a7…20c3 ptr = 0xb6b1 // 0x20a7 @0x0
0x20a7…20c3 lno = 0x0b4a // 0x20a9 @0x2
0x20a7…20c3 at0004 = ╱9d╱ EXEC ╱ // 0x20ab @0x4
0x20a7…20c3 at0005 = ╱4f╱O╱ // 0x20ac @0x5
0x20a7…20c3 at0006 = ╱4d╱M╱ // 0x20ad @0x6
0x20a7…20c3 at0007 = ╱4b╱K╱ // 0x20ae @0x7
0x20a7…20c3 at0008 = ╱5f╱_╱ // 0x20af @0x8
0x20a7…20c3 at0009 = ╱49╱I╱ // 0x20b0 @0x9
0x20a7…20c3 at000a = ╱5f╱_╱ // 0x20b1 @0xa
0x20a7…20c3 at000b = ╱50╱P╱ // 0x20b2 @0xb
0x20a7…20c3 at000c = ╱52╱R╱ // 0x20b3 @0xc
0x20a7…20c3 at000d = ╱4f╱O╱ // 0x20b4 @0xd
0x20a7…20c3 at000e = ╱43╱C╱ // 0x20b5 @0xe
0x20a7…20c3 at000f = ╱45╱E╱ // 0x20b6 @0xf
0x20a7…20c3 at0010 = ╱4e╱N╱ // 0x20b7 @0x10
0x20a7…20c3 at0011 = ╱54╱T╱ // 0x20b8 @0x11
0x20a7…20c3 at0012 = ╱ed╱(╱ // 0x20b9 @0x12
0x20a7…20c3 at0013 = ╱52╱R╱ // 0x20ba @0x13
0x20a7…20c3 at0014 = ╱45╱E╱ // 0x20bb @0x14
0x20a7…20c3 at0015 = ╱4e╱N╱ // 0x20bc @0x15
0x20a7…20c3 at0016 = ╱54╱T╱ // 0x20bd @0x16
0x20a7…20c3 at0017 = ╱45╱E╱ // 0x20be @0x17
0x20a7…20c3 at0018 = ╱4f╱O╱ // 0x20bf @0x18
0x20a7…20c3 at0019 = ╱ef╱$╱ // 0x20c0 @0x19
0x20a7…20c3 at001a = ╱ee╱)╱ // 0x20c1 @0x1a
0x20a7…20c3 at001b = EOL // 0x20c2 @0x1b
0x20a7…20c3 }
0x20c3…20d2 b6c0 2900 EXEC SIDESKIFT
0x20c3…20d2 LineComal80 {
0x20c3…20d2 ptr = 0xb6c0 // 0x20c3 @0x0
0x20c3…20d2 lno = 0x0b54 // 0x20c5 @0x2
0x20c3…20d2 at0004 = ╱9d╱ EXEC ╱ // 0x20c7 @0x4
0x20c3…20d2 at0005 = ╱53╱S╱ // 0x20c8 @0x5
0x20c3…20d2 at0006 = ╱49╱I╱ // 0x20c9 @0x6
0x20c3…20d2 at0007 = ╱44╱D╱ // 0x20ca @0x7
0x20c3…20d2 at0008 = ╱45╱E╱ // 0x20cb @0x8
0x20c3…20d2 at0009 = ╱53╱S╱ // 0x20cc @0x9
0x20c3…20d2 at000a = ╱4b╱K╱ // 0x20cd @0xa
0x20c3…20d2 at000b = ╱49╱I╱ // 0x20ce @0xb
0x20c3…20d2 at000c = ╱46╱F╱ // 0x20cf @0xc
0x20c3…20d2 at000d = ╱54╱T╱ // 0x20d0 @0xd
0x20c3…20d2 at000e = EOL // 0x20d1 @0xe
0x20c3…20d2 }
0x20d2…20d8 b6c6 2910 PRINT
0x20d2…20d8 LineComal80 {
0x20d2…20d8 ptr = 0xb6c6 // 0x20d2 @0x0
0x20d2…20d8 lno = 0x0b5e // 0x20d4 @0x2
0x20d2…20d8 at0004 = ╱92╱ PRINT ╱ // 0x20d6 @0x4
0x20d2…20d8 at0005 = EOL // 0x20d7 @0x5
0x20d2…20d8 }
0x20d8…2113 b701 2920 PRINT "**** O M S Æ T N I N G S H A S T I G H E D E R ****"
0x20d8…2113 LineComal80 {
0x20d8…2113 ptr = 0xb701 // 0x20d8 @0x0
0x20d8…2113 lno = 0x0b68 // 0x20da @0x2
0x20d8…2113 at0004 = ╱92╱ PRINT ╱ // 0x20dc @0x4
0x20d8…2113 at0005 = ╱22╱"╱ // 0x20dd @0x5
0x20d8…2113 at0006 = ╱2a╱*╱ // 0x20de @0x6
0x20d8…2113 at0007 = ╱2a╱*╱ // 0x20df @0x7
0x20d8…2113 at0008 = ╱2a╱*╱ // 0x20e0 @0x8
0x20d8…2113 at0009 = ╱2a╱*╱ // 0x20e1 @0x9
0x20d8…2113 at000a = ╱20╱…╱ // 0x20e2 @0xa
0x20d8…2113 at000b = ╱4f╱O╱ // 0x20e3 @0xb
0x20d8…2113 at000c = ╱20╱…╱ // 0x20e4 @0xc
0x20d8…2113 at000d = ╱4d╱M╱ // 0x20e5 @0xd
0x20d8…2113 at000e = ╱20╱…╱ // 0x20e6 @0xe
0x20d8…2113 at000f = ╱53╱S╱ // 0x20e7 @0xf
0x20d8…2113 at0010 = ╱20╱…╱ // 0x20e8 @0x10
0x20d8…2113 at0011 = ╱5b╱Æ╱ // 0x20e9 @0x11
0x20d8…2113 at0012 = ╱20╱…╱ // 0x20ea @0x12
0x20d8…2113 at0013 = ╱54╱T╱ // 0x20eb @0x13
0x20d8…2113 at0014 = ╱20╱…╱ // 0x20ec @0x14
0x20d8…2113 at0015 = ╱4e╱N╱ // 0x20ed @0x15
0x20d8…2113 at0016 = ╱20╱…╱ // 0x20ee @0x16
0x20d8…2113 at0017 = ╱49╱I╱ // 0x20ef @0x17
0x20d8…2113 at0018 = ╱20╱…╱ // 0x20f0 @0x18
0x20d8…2113 at0019 = ╱4e╱N╱ // 0x20f1 @0x19
0x20d8…2113 at001a = ╱20╱…╱ // 0x20f2 @0x1a
0x20d8…2113 at001b = ╱47╱G╱ // 0x20f3 @0x1b
0x20d8…2113 at001c = ╱20╱…╱ // 0x20f4 @0x1c
0x20d8…2113 at001d = ╱53╱S╱ // 0x20f5 @0x1d
0x20d8…2113 at001e = ╱20╱…╱ // 0x20f6 @0x1e
0x20d8…2113 at001f = ╱48╱H╱ // 0x20f7 @0x1f
0x20d8…2113 at0020 = ╱20╱…╱ // 0x20f8 @0x20
0x20d8…2113 at0021 = ╱41╱A╱ // 0x20f9 @0x21
0x20d8…2113 at0022 = ╱20╱…╱ // 0x20fa @0x22
0x20d8…2113 at0023 = ╱53╱S╱ // 0x20fb @0x23
0x20d8…2113 at0024 = ╱20╱…╱ // 0x20fc @0x24
0x20d8…2113 at0025 = ╱54╱T╱ // 0x20fd @0x25
0x20d8…2113 at0026 = ╱20╱…╱ // 0x20fe @0x26
0x20d8…2113 at0027 = ╱49╱I╱ // 0x20ff @0x27
0x20d8…2113 at0028 = ╱20╱…╱ // 0x2100 @0x28
0x20d8…2113 at0029 = ╱47╱G╱ // 0x2101 @0x29
0x20d8…2113 at002a = ╱20╱…╱ // 0x2102 @0x2a
0x20d8…2113 at002b = ╱48╱H╱ // 0x2103 @0x2b
0x20d8…2113 at002c = ╱20╱…╱ // 0x2104 @0x2c
0x20d8…2113 at002d = ╱45╱E╱ // 0x2105 @0x2d
0x20d8…2113 at002e = ╱20╱…╱ // 0x2106 @0x2e
0x20d8…2113 at002f = ╱44╱D╱ // 0x2107 @0x2f
0x20d8…2113 at0030 = ╱20╱…╱ // 0x2108 @0x30
0x20d8…2113 at0031 = ╱45╱E╱ // 0x2109 @0x31
0x20d8…2113 at0032 = ╱20╱…╱ // 0x210a @0x32
0x20d8…2113 at0033 = ╱52╱R╱ // 0x210b @0x33
0x20d8…2113 at0034 = ╱20╱…╱ // 0x210c @0x34
0x20d8…2113 at0035 = ╱2a╱*╱ // 0x210d @0x35
0x20d8…2113 at0036 = ╱2a╱*╱ // 0x210e @0x36
0x20d8…2113 at0037 = ╱2a╱*╱ // 0x210f @0x37
0x20d8…2113 at0038 = ╱2a╱*╱ // 0x2110 @0x38
0x20d8…2113 at0039 = ╱22╱"╱ // 0x2111 @0x39
0x20d8…2113 at003a = EOL // 0x2112 @0x3a
0x20d8…2113 }
0x2113…214e b73c 2930 PRINT "---------------------------------------------------"
0x2113…214e LineComal80 {
0x2113…214e ptr = 0xb73c // 0x2113 @0x0
0x2113…214e lno = 0x0b72 // 0x2115 @0x2
0x2113…214e at0004 = ╱92╱ PRINT ╱ // 0x2117 @0x4
0x2113…214e at0005 = ╱22╱"╱ // 0x2118 @0x5
0x2113…214e at0006 = ╱2d╱-╱ // 0x2119 @0x6
0x2113…214e at0007 = ╱2d╱-╱ // 0x211a @0x7
0x2113…214e at0008 = ╱2d╱-╱ // 0x211b @0x8
0x2113…214e at0009 = ╱2d╱-╱ // 0x211c @0x9
0x2113…214e at000a = ╱2d╱-╱ // 0x211d @0xa
0x2113…214e at000b = ╱2d╱-╱ // 0x211e @0xb
0x2113…214e at000c = ╱2d╱-╱ // 0x211f @0xc
0x2113…214e at000d = ╱2d╱-╱ // 0x2120 @0xd
0x2113…214e at000e = ╱2d╱-╱ // 0x2121 @0xe
0x2113…214e at000f = ╱2d╱-╱ // 0x2122 @0xf
0x2113…214e at0010 = ╱2d╱-╱ // 0x2123 @0x10
0x2113…214e at0011 = ╱2d╱-╱ // 0x2124 @0x11
0x2113…214e at0012 = ╱2d╱-╱ // 0x2125 @0x12
0x2113…214e at0013 = ╱2d╱-╱ // 0x2126 @0x13
0x2113…214e at0014 = ╱2d╱-╱ // 0x2127 @0x14
0x2113…214e at0015 = ╱2d╱-╱ // 0x2128 @0x15
0x2113…214e at0016 = ╱2d╱-╱ // 0x2129 @0x16
0x2113…214e at0017 = ╱2d╱-╱ // 0x212a @0x17
0x2113…214e at0018 = ╱2d╱-╱ // 0x212b @0x18
0x2113…214e at0019 = ╱2d╱-╱ // 0x212c @0x19
0x2113…214e at001a = ╱2d╱-╱ // 0x212d @0x1a
0x2113…214e at001b = ╱2d╱-╱ // 0x212e @0x1b
0x2113…214e at001c = ╱2d╱-╱ // 0x212f @0x1c
0x2113…214e at001d = ╱2d╱-╱ // 0x2130 @0x1d
0x2113…214e at001e = ╱2d╱-╱ // 0x2131 @0x1e
0x2113…214e at001f = ╱2d╱-╱ // 0x2132 @0x1f
0x2113…214e at0020 = ╱2d╱-╱ // 0x2133 @0x20
0x2113…214e at0021 = ╱2d╱-╱ // 0x2134 @0x21
0x2113…214e at0022 = ╱2d╱-╱ // 0x2135 @0x22
0x2113…214e at0023 = ╱2d╱-╱ // 0x2136 @0x23
0x2113…214e at0024 = ╱2d╱-╱ // 0x2137 @0x24
0x2113…214e at0025 = ╱2d╱-╱ // 0x2138 @0x25
0x2113…214e at0026 = ╱2d╱-╱ // 0x2139 @0x26
0x2113…214e at0027 = ╱2d╱-╱ // 0x213a @0x27
0x2113…214e at0028 = ╱2d╱-╱ // 0x213b @0x28
0x2113…214e at0029 = ╱2d╱-╱ // 0x213c @0x29
0x2113…214e at002a = ╱2d╱-╱ // 0x213d @0x2a
0x2113…214e at002b = ╱2d╱-╱ // 0x213e @0x2b
0x2113…214e at002c = ╱2d╱-╱ // 0x213f @0x2c
0x2113…214e at002d = ╱2d╱-╱ // 0x2140 @0x2d
0x2113…214e at002e = ╱2d╱-╱ // 0x2141 @0x2e
0x2113…214e at002f = ╱2d╱-╱ // 0x2142 @0x2f
0x2113…214e at0030 = ╱2d╱-╱ // 0x2143 @0x30
0x2113…214e at0031 = ╱2d╱-╱ // 0x2144 @0x31
0x2113…214e at0032 = ╱2d╱-╱ // 0x2145 @0x32
0x2113…214e at0033 = ╱2d╱-╱ // 0x2146 @0x33
0x2113…214e at0034 = ╱2d╱-╱ // 0x2147 @0x34
0x2113…214e at0035 = ╱2d╱-╱ // 0x2148 @0x35
0x2113…214e at0036 = ╱2d╱-╱ // 0x2149 @0x36
0x2113…214e at0037 = ╱2d╱-╱ // 0x214a @0x37
0x2113…214e at0038 = ╱2d╱-╱ // 0x214b @0x38
0x2113…214e at0039 = ╱22╱"╱ // 0x214c @0x39
0x2113…214e at003a = EOL // 0x214d @0x3a
0x2113…214e }
0x214e…2154 b742 2940 PRINT
0x214e…2154 LineComal80 {
0x214e…2154 ptr = 0xb742 // 0x214e @0x0
0x214e…2154 lno = 0x0b7c // 0x2150 @0x2
0x214e…2154 at0004 = ╱92╱ PRINT ╱ // 0x2152 @0x4
0x214e…2154 at0005 = EOL // 0x2153 @0x5
0x214e…2154 }
0x2154…2188 b776 2950 PRINT " (1) Varedebitorer :" ;
0x2154…2188 LineComal80 {
0x2154…2188 ptr = 0xb776 // 0x2154 @0x0
0x2154…2188 lno = 0x0b86 // 0x2156 @0x2
0x2154…2188 at0004 = ╱92╱ PRINT ╱ // 0x2158 @0x4
0x2154…2188 at0005 = ╱22╱"╱ // 0x2159 @0x5
0x2154…2188 at0006 = ╱20╱…╱ // 0x215a @0x6
0x2154…2188 at0007 = ╱28╱(╱ // 0x215b @0x7
0x2154…2188 at0008 = ╱31╱1╱ // 0x215c @0x8
0x2154…2188 at0009 = ╱29╱)╱ // 0x215d @0x9
0x2154…2188 at000a = ╱20╱…╱ // 0x215e @0xa
0x2154…2188 at000b = ╱56╱V╱ // 0x215f @0xb
0x2154…2188 at000c = ╱61╱a╱ // 0x2160 @0xc
0x2154…2188 at000d = ╱72╱r╱ // 0x2161 @0xd
0x2154…2188 at000e = ╱65╱e╱ // 0x2162 @0xe
0x2154…2188 at000f = ╱64╱d╱ // 0x2163 @0xf
0x2154…2188 at0010 = ╱65╱e╱ // 0x2164 @0x10
0x2154…2188 at0011 = ╱62╱b╱ // 0x2165 @0x11
0x2154…2188 at0012 = ╱69╱i╱ // 0x2166 @0x12
0x2154…2188 at0013 = ╱74╱t╱ // 0x2167 @0x13
0x2154…2188 at0014 = ╱6f╱o╱ // 0x2168 @0x14
0x2154…2188 at0015 = ╱72╱r╱ // 0x2169 @0x15
0x2154…2188 at0016 = ╱65╱e╱ // 0x216a @0x16
0x2154…2188 at0017 = ╱72╱r╱ // 0x216b @0x17
0x2154…2188 at0018 = ╱20╱…╱ // 0x216c @0x18
0x2154…2188 at0019 = ╱20╱…╱ // 0x216d @0x19
0x2154…2188 at001a = ╱20╱…╱ // 0x216e @0x1a
0x2154…2188 at001b = ╱20╱…╱ // 0x216f @0x1b
0x2154…2188 at001c = ╱20╱…╱ // 0x2170 @0x1c
0x2154…2188 at001d = ╱20╱…╱ // 0x2171 @0x1d
0x2154…2188 at001e = ╱20╱…╱ // 0x2172 @0x1e
0x2154…2188 at001f = ╱20╱…╱ // 0x2173 @0x1f
0x2154…2188 at0020 = ╱20╱…╱ // 0x2174 @0x20
0x2154…2188 at0021 = ╱20╱…╱ // 0x2175 @0x21
0x2154…2188 at0022 = ╱20╱…╱ // 0x2176 @0x22
0x2154…2188 at0023 = ╱20╱…╱ // 0x2177 @0x23
0x2154…2188 at0024 = ╱20╱…╱ // 0x2178 @0x24
0x2154…2188 at0025 = ╱20╱…╱ // 0x2179 @0x25
0x2154…2188 at0026 = ╱20╱…╱ // 0x217a @0x26
0x2154…2188 at0027 = ╱20╱…╱ // 0x217b @0x27
0x2154…2188 at0028 = ╱20╱…╱ // 0x217c @0x28
0x2154…2188 at0029 = ╱20╱…╱ // 0x217d @0x29
0x2154…2188 at002a = ╱20╱…╱ // 0x217e @0x2a
0x2154…2188 at002b = ╱20╱…╱ // 0x217f @0x2b
0x2154…2188 at002c = ╱20╱…╱ // 0x2180 @0x2c
0x2154…2188 at002d = ╱20╱…╱ // 0x2181 @0x2d
0x2154…2188 at002e = ╱20╱…╱ // 0x2182 @0x2e
0x2154…2188 at002f = ╱20╱…╱ // 0x2183 @0x2f
0x2154…2188 at0030 = ╱3a╱:╱ // 0x2184 @0x30
0x2154…2188 at0031 = ╱22╱"╱ // 0x2185 @0x31
0x2154…2188 at0032 = ╱ea╱ ; ╱ // 0x2186 @0x32
0x2154…2188 at0033 = EOL // 0x2187 @0x33
0x2154…2188 }
0x2188…21c2 b7b0 2960 PRINT USING "###.## g" : S_OMSÆTN * ((100 + MOMS) / 100) / S_DEBITO
0x2188…21c2 LineComal80 {
0x2188…21c2 ptr = 0xb7b0 // 0x2188 @0x0
0x2188…21c2 lno = 0x0b90 // 0x218a @0x2
0x2188…21c2 at0004 = ╱92╱ PRINT ╱ // 0x218c @0x4
0x2188…21c2 at0005 = ╱b9╱ USING ╱ // 0x218d @0x5
0x2188…21c2 at0006 = ╱22╱"╱ // 0x218e @0x6
0x2188…21c2 at0007 = ╱23╱#╱ // 0x218f @0x7
0x2188…21c2 at0008 = ╱23╱#╱ // 0x2190 @0x8
0x2188…21c2 at0009 = ╱23╱#╱ // 0x2191 @0x9
0x2188…21c2 at000a = ╱2e╱.╱ // 0x2192 @0xa
0x2188…21c2 at000b = ╱23╱#╱ // 0x2193 @0xb
0x2188…21c2 at000c = ╱23╱#╱ // 0x2194 @0xc
0x2188…21c2 at000d = ╱20╱…╱ // 0x2195 @0xd
0x2188…21c2 at000e = ╱67╱g╱ // 0x2196 @0xe
0x2188…21c2 at000f = ╱22╱"╱ // 0x2197 @0xf
0x2188…21c2 at0010 = ╱f1╱ : ╱ // 0x2198 @0x10
0x2188…21c2 at0011 = ╱53╱S╱ // 0x2199 @0x11
0x2188…21c2 at0012 = ╱5f╱_╱ // 0x219a @0x12
0x2188…21c2 at0013 = ╱4f╱O╱ // 0x219b @0x13
0x2188…21c2 at0014 = ╱4d╱M╱ // 0x219c @0x14
0x2188…21c2 at0015 = ╱53╱S╱ // 0x219d @0x15
0x2188…21c2 at0016 = ╱5b╱Æ╱ // 0x219e @0x16
0x2188…21c2 at0017 = ╱54╱T╱ // 0x219f @0x17
0x2188…21c2 at0018 = ╱4e╱N╱ // 0x21a0 @0x18
0x2188…21c2 at0019 = ╱e7╱ * ╱ // 0x21a1 @0x19
0x2188…21c2 at001a = ╱ed╱(╱ // 0x21a2 @0x1a
0x2188…21c2 at001b = ╱ed╱(╱ // 0x21a3 @0x1b
0x2188…21c2 at001c = ╱31╱1╱ // 0x21a4 @0x1c
0x2188…21c2 at001d = ╱30╱0╱ // 0x21a5 @0x1d
0x2188…21c2 at001e = ╱30╱0╱ // 0x21a6 @0x1e
0x2188…21c2 at001f = ╱f26400╱ // 0x21a7 @0x1f
0x2188…21c2 at0022 = ╱e5╱ + ╱ // 0x21aa @0x22
0x2188…21c2 at0023 = ╱4d╱M╱ // 0x21ab @0x23
0x2188…21c2 at0024 = ╱4f╱O╱ // 0x21ac @0x24
0x2188…21c2 at0025 = ╱4d╱M╱ // 0x21ad @0x25
0x2188…21c2 at0026 = ╱53╱S╱ // 0x21ae @0x26
0x2188…21c2 at0027 = ╱ee╱)╱ // 0x21af @0x27
0x2188…21c2 at0028 = ╱e8╱ / ╱ // 0x21b0 @0x28
0x2188…21c2 at0029 = ╱31╱1╱ // 0x21b1 @0x29
0x2188…21c2 at002a = ╱30╱0╱ // 0x21b2 @0x2a
0x2188…21c2 at002b = ╱30╱0╱ // 0x21b3 @0x2b
0x2188…21c2 at002c = ╱f26400╱ // 0x21b4 @0x2c
0x2188…21c2 at002f = ╱ee╱)╱ // 0x21b7 @0x2f
0x2188…21c2 at0030 = ╱e8╱ / ╱ // 0x21b8 @0x30
0x2188…21c2 at0031 = ╱53╱S╱ // 0x21b9 @0x31
0x2188…21c2 at0032 = ╱5f╱_╱ // 0x21ba @0x32
0x2188…21c2 at0033 = ╱44╱D╱ // 0x21bb @0x33
0x2188…21c2 at0034 = ╱45╱E╱ // 0x21bc @0x34
0x2188…21c2 at0035 = ╱42╱B╱ // 0x21bd @0x35
0x2188…21c2 at0036 = ╱49╱I╱ // 0x21be @0x36
0x2188…21c2 at0037 = ╱54╱T╱ // 0x21bf @0x37
0x2188…21c2 at0038 = ╱4f╱O╱ // 0x21c0 @0x38
0x2188…21c2 at0039 = EOL // 0x21c1 @0x39
0x2188…21c2 }
0x21c2…21c8 b7b6 2970 PRINT
0x21c2…21c8 LineComal80 {
0x21c2…21c8 ptr = 0xb7b6 // 0x21c2 @0x0
0x21c2…21c8 lno = 0x0b9a // 0x21c4 @0x2
0x21c2…21c8 at0004 = ╱92╱ PRINT ╱ // 0x21c6 @0x4
0x21c2…21c8 at0005 = EOL // 0x21c7 @0x5
0x21c2…21c8 }
0x21c8…21fc b7ea 2980 PRINT " (2) Varelager :" ;
0x21c8…21fc LineComal80 {
0x21c8…21fc ptr = 0xb7ea // 0x21c8 @0x0
0x21c8…21fc lno = 0x0ba4 // 0x21ca @0x2
0x21c8…21fc at0004 = ╱92╱ PRINT ╱ // 0x21cc @0x4
0x21c8…21fc at0005 = ╱22╱"╱ // 0x21cd @0x5
0x21c8…21fc at0006 = ╱20╱…╱ // 0x21ce @0x6
0x21c8…21fc at0007 = ╱28╱(╱ // 0x21cf @0x7
0x21c8…21fc at0008 = ╱32╱2╱ // 0x21d0 @0x8
0x21c8…21fc at0009 = ╱29╱)╱ // 0x21d1 @0x9
0x21c8…21fc at000a = ╱20╱…╱ // 0x21d2 @0xa
0x21c8…21fc at000b = ╱56╱V╱ // 0x21d3 @0xb
0x21c8…21fc at000c = ╱61╱a╱ // 0x21d4 @0xc
0x21c8…21fc at000d = ╱72╱r╱ // 0x21d5 @0xd
0x21c8…21fc at000e = ╱65╱e╱ // 0x21d6 @0xe
0x21c8…21fc at000f = ╱6c╱l╱ // 0x21d7 @0xf
0x21c8…21fc at0010 = ╱61╱a╱ // 0x21d8 @0x10
0x21c8…21fc at0011 = ╱67╱g╱ // 0x21d9 @0x11
0x21c8…21fc at0012 = ╱65╱e╱ // 0x21da @0x12
0x21c8…21fc at0013 = ╱72╱r╱ // 0x21db @0x13
0x21c8…21fc at0014 = ╱20╱…╱ // 0x21dc @0x14
0x21c8…21fc at0015 = ╱20╱…╱ // 0x21dd @0x15
0x21c8…21fc at0016 = ╱20╱…╱ // 0x21de @0x16
0x21c8…21fc at0017 = ╱20╱…╱ // 0x21df @0x17
0x21c8…21fc at0018 = ╱20╱…╱ // 0x21e0 @0x18
0x21c8…21fc at0019 = ╱20╱…╱ // 0x21e1 @0x19
0x21c8…21fc at001a = ╱20╱…╱ // 0x21e2 @0x1a
0x21c8…21fc at001b = ╱20╱…╱ // 0x21e3 @0x1b
0x21c8…21fc at001c = ╱20╱…╱ // 0x21e4 @0x1c
0x21c8…21fc at001d = ╱20╱…╱ // 0x21e5 @0x1d
0x21c8…21fc at001e = ╱20╱…╱ // 0x21e6 @0x1e
0x21c8…21fc at001f = ╱20╱…╱ // 0x21e7 @0x1f
0x21c8…21fc at0020 = ╱20╱…╱ // 0x21e8 @0x20
0x21c8…21fc at0021 = ╱20╱…╱ // 0x21e9 @0x21
0x21c8…21fc at0022 = ╱20╱…╱ // 0x21ea @0x22
0x21c8…21fc at0023 = ╱20╱…╱ // 0x21eb @0x23
0x21c8…21fc at0024 = ╱20╱…╱ // 0x21ec @0x24
0x21c8…21fc at0025 = ╱20╱…╱ // 0x21ed @0x25
0x21c8…21fc at0026 = ╱20╱…╱ // 0x21ee @0x26
0x21c8…21fc at0027 = ╱20╱…╱ // 0x21ef @0x27
0x21c8…21fc at0028 = ╱20╱…╱ // 0x21f0 @0x28
0x21c8…21fc at0029 = ╱20╱…╱ // 0x21f1 @0x29
0x21c8…21fc at002a = ╱20╱…╱ // 0x21f2 @0x2a
0x21c8…21fc at002b = ╱20╱…╱ // 0x21f3 @0x2b
0x21c8…21fc at002c = ╱20╱…╱ // 0x21f4 @0x2c
0x21c8…21fc at002d = ╱20╱…╱ // 0x21f5 @0x2d
0x21c8…21fc at002e = ╱20╱…╱ // 0x21f6 @0x2e
0x21c8…21fc at002f = ╱20╱…╱ // 0x21f7 @0x2f
0x21c8…21fc at0030 = ╱3a╱:╱ // 0x21f8 @0x30
0x21c8…21fc at0031 = ╱22╱"╱ // 0x21f9 @0x31
0x21c8…21fc at0032 = ╱ea╱ ; ╱ // 0x21fa @0x32
0x21c8…21fc at0033 = EOL // 0x21fb @0x33
0x21c8…21fc }
0x21fc…2222 b810 2990 PRINT USING "###.## g" : ABS(S_VAREFO) / S_VARELA
0x21fc…2222 LineComal80 {
0x21fc…2222 ptr = 0xb810 // 0x21fc @0x0
0x21fc…2222 lno = 0x0bae // 0x21fe @0x2
0x21fc…2222 at0004 = ╱92╱ PRINT ╱ // 0x2200 @0x4
0x21fc…2222 at0005 = ╱b9╱ USING ╱ // 0x2201 @0x5
0x21fc…2222 at0006 = ╱22╱"╱ // 0x2202 @0x6
0x21fc…2222 at0007 = ╱23╱#╱ // 0x2203 @0x7
0x21fc…2222 at0008 = ╱23╱#╱ // 0x2204 @0x8
0x21fc…2222 at0009 = ╱23╱#╱ // 0x2205 @0x9
0x21fc…2222 at000a = ╱2e╱.╱ // 0x2206 @0xa
0x21fc…2222 at000b = ╱23╱#╱ // 0x2207 @0xb
0x21fc…2222 at000c = ╱23╱#╱ // 0x2208 @0xc
0x21fc…2222 at000d = ╱20╱…╱ // 0x2209 @0xd
0x21fc…2222 at000e = ╱67╱g╱ // 0x220a @0xe
0x21fc…2222 at000f = ╱22╱"╱ // 0x220b @0xf
0x21fc…2222 at0010 = ╱f1╱ : ╱ // 0x220c @0x10
0x21fc…2222 at0011 = ╱c4╱ABS╱ // 0x220d @0x11
0x21fc…2222 at0012 = ╱ed╱(╱ // 0x220e @0x12
0x21fc…2222 at0013 = ╱53╱S╱ // 0x220f @0x13
0x21fc…2222 at0014 = ╱5f╱_╱ // 0x2210 @0x14
0x21fc…2222 at0015 = ╱56╱V╱ // 0x2211 @0x15
0x21fc…2222 at0016 = ╱41╱A╱ // 0x2212 @0x16
0x21fc…2222 at0017 = ╱52╱R╱ // 0x2213 @0x17
0x21fc…2222 at0018 = ╱45╱E╱ // 0x2214 @0x18
0x21fc…2222 at0019 = ╱46╱F╱ // 0x2215 @0x19
0x21fc…2222 at001a = ╱4f╱O╱ // 0x2216 @0x1a
0x21fc…2222 at001b = ╱ee╱)╱ // 0x2217 @0x1b
0x21fc…2222 at001c = ╱e8╱ / ╱ // 0x2218 @0x1c
0x21fc…2222 at001d = ╱53╱S╱ // 0x2219 @0x1d
0x21fc…2222 at001e = ╱5f╱_╱ // 0x221a @0x1e
0x21fc…2222 at001f = ╱56╱V╱ // 0x221b @0x1f
0x21fc…2222 at0020 = ╱41╱A╱ // 0x221c @0x20
0x21fc…2222 at0021 = ╱52╱R╱ // 0x221d @0x21
0x21fc…2222 at0022 = ╱45╱E╱ // 0x221e @0x22
0x21fc…2222 at0023 = ╱4c╱L╱ // 0x221f @0x23
0x21fc…2222 at0024 = ╱41╱A╱ // 0x2220 @0x24
0x21fc…2222 at0025 = EOL // 0x2221 @0x25
0x21fc…2222 }
0x2222…2228 b816 3000 PRINT
0x2222…2228 LineComal80 {
0x2222…2228 ptr = 0xb816 // 0x2222 @0x0
0x2222…2228 lno = 0x0bb8 // 0x2224 @0x2
0x2222…2228 at0004 = ╱92╱ PRINT ╱ // 0x2226 @0x4
0x2222…2228 at0005 = EOL // 0x2227 @0x5
0x2222…2228 }
0x2228…225c b84a 3010 PRINT " (3) Varekreditorer :" ;
0x2228…225c LineComal80 {
0x2228…225c ptr = 0xb84a // 0x2228 @0x0
0x2228…225c lno = 0x0bc2 // 0x222a @0x2
0x2228…225c at0004 = ╱92╱ PRINT ╱ // 0x222c @0x4
0x2228…225c at0005 = ╱22╱"╱ // 0x222d @0x5
0x2228…225c at0006 = ╱20╱…╱ // 0x222e @0x6
0x2228…225c at0007 = ╱28╱(╱ // 0x222f @0x7
0x2228…225c at0008 = ╱33╱3╱ // 0x2230 @0x8
0x2228…225c at0009 = ╱29╱)╱ // 0x2231 @0x9
0x2228…225c at000a = ╱20╱…╱ // 0x2232 @0xa
0x2228…225c at000b = ╱56╱V╱ // 0x2233 @0xb
0x2228…225c at000c = ╱61╱a╱ // 0x2234 @0xc
0x2228…225c at000d = ╱72╱r╱ // 0x2235 @0xd
0x2228…225c at000e = ╱65╱e╱ // 0x2236 @0xe
0x2228…225c at000f = ╱6b╱k╱ // 0x2237 @0xf
0x2228…225c at0010 = ╱72╱r╱ // 0x2238 @0x10
0x2228…225c at0011 = ╱65╱e╱ // 0x2239 @0x11
0x2228…225c at0012 = ╱64╱d╱ // 0x223a @0x12
0x2228…225c at0013 = ╱69╱i╱ // 0x223b @0x13
0x2228…225c at0014 = ╱74╱t╱ // 0x223c @0x14
0x2228…225c at0015 = ╱6f╱o╱ // 0x223d @0x15
0x2228…225c at0016 = ╱72╱r╱ // 0x223e @0x16
0x2228…225c at0017 = ╱65╱e╱ // 0x223f @0x17
0x2228…225c at0018 = ╱72╱r╱ // 0x2240 @0x18
0x2228…225c at0019 = ╱20╱…╱ // 0x2241 @0x19
0x2228…225c at001a = ╱20╱…╱ // 0x2242 @0x1a
0x2228…225c at001b = ╱20╱…╱ // 0x2243 @0x1b
0x2228…225c at001c = ╱20╱…╱ // 0x2244 @0x1c
0x2228…225c at001d = ╱20╱…╱ // 0x2245 @0x1d
0x2228…225c at001e = ╱20╱…╱ // 0x2246 @0x1e
0x2228…225c at001f = ╱20╱…╱ // 0x2247 @0x1f
0x2228…225c at0020 = ╱20╱…╱ // 0x2248 @0x20
0x2228…225c at0021 = ╱20╱…╱ // 0x2249 @0x21
0x2228…225c at0022 = ╱20╱…╱ // 0x224a @0x22
0x2228…225c at0023 = ╱20╱…╱ // 0x224b @0x23
0x2228…225c at0024 = ╱20╱…╱ // 0x224c @0x24
0x2228…225c at0025 = ╱20╱…╱ // 0x224d @0x25
0x2228…225c at0026 = ╱20╱…╱ // 0x224e @0x26
0x2228…225c at0027 = ╱20╱…╱ // 0x224f @0x27
0x2228…225c at0028 = ╱20╱…╱ // 0x2250 @0x28
0x2228…225c at0029 = ╱20╱…╱ // 0x2251 @0x29
0x2228…225c at002a = ╱20╱…╱ // 0x2252 @0x2a
0x2228…225c at002b = ╱20╱…╱ // 0x2253 @0x2b
0x2228…225c at002c = ╱20╱…╱ // 0x2254 @0x2c
0x2228…225c at002d = ╱20╱…╱ // 0x2255 @0x2d
0x2228…225c at002e = ╱20╱…╱ // 0x2256 @0x2e
0x2228…225c at002f = ╱20╱…╱ // 0x2257 @0x2f
0x2228…225c at0030 = ╱3a╱:╱ // 0x2258 @0x30
0x2228…225c at0031 = ╱22╱"╱ // 0x2259 @0x31
0x2228…225c at0032 = ╱ea╱ ; ╱ // 0x225a @0x32
0x2228…225c at0033 = EOL // 0x225b @0x33
0x2228…225c }
0x225c…22a4 b892 3020 LET VAREKØB := (ABS(S_VAREFO) + (S_VARELA - S_VARELA_P)) * ((100 + MOMS) / 100)
0x225c…22a4 LineComal80 {
0x225c…22a4 ptr = 0xb892 // 0x225c @0x0
0x225c…22a4 lno = 0x0bcc // 0x225e @0x2
0x225c…22a4 at0004 = ╱86╱ LET ╱ // 0x2260 @0x4
0x225c…22a4 at0005 = ╱56╱V╱ // 0x2261 @0x5
0x225c…22a4 at0006 = ╱41╱A╱ // 0x2262 @0x6
0x225c…22a4 at0007 = ╱52╱R╱ // 0x2263 @0x7
0x225c…22a4 at0008 = ╱45╱E╱ // 0x2264 @0x8
0x225c…22a4 at0009 = ╱4b╱K╱ // 0x2265 @0x9
0x225c…22a4 at000a = ╱5c╱Ø╱ // 0x2266 @0xa
0x225c…22a4 at000b = ╱42╱B╱ // 0x2267 @0xb
0x225c…22a4 at000c = ╱f0╱ := ╱ // 0x2268 @0xc
0x225c…22a4 at000d = ╱ed╱(╱ // 0x2269 @0xd
0x225c…22a4 at000e = ╱c4╱ABS╱ // 0x226a @0xe
0x225c…22a4 at000f = ╱ed╱(╱ // 0x226b @0xf
0x225c…22a4 at0010 = ╱53╱S╱ // 0x226c @0x10
0x225c…22a4 at0011 = ╱5f╱_╱ // 0x226d @0x11
0x225c…22a4 at0012 = ╱56╱V╱ // 0x226e @0x12
0x225c…22a4 at0013 = ╱41╱A╱ // 0x226f @0x13
0x225c…22a4 at0014 = ╱52╱R╱ // 0x2270 @0x14
0x225c…22a4 at0015 = ╱45╱E╱ // 0x2271 @0x15
0x225c…22a4 at0016 = ╱46╱F╱ // 0x2272 @0x16
0x225c…22a4 at0017 = ╱4f╱O╱ // 0x2273 @0x17
0x225c…22a4 at0018 = ╱ee╱)╱ // 0x2274 @0x18
0x225c…22a4 at0019 = ╱e5╱ + ╱ // 0x2275 @0x19
0x225c…22a4 at001a = ╱ed╱(╱ // 0x2276 @0x1a
0x225c…22a4 at001b = ╱53╱S╱ // 0x2277 @0x1b
0x225c…22a4 at001c = ╱5f╱_╱ // 0x2278 @0x1c
0x225c…22a4 at001d = ╱56╱V╱ // 0x2279 @0x1d
0x225c…22a4 at001e = ╱41╱A╱ // 0x227a @0x1e
0x225c…22a4 at001f = ╱52╱R╱ // 0x227b @0x1f
0x225c…22a4 at0020 = ╱45╱E╱ // 0x227c @0x20
0x225c…22a4 at0021 = ╱4c╱L╱ // 0x227d @0x21
0x225c…22a4 at0022 = ╱41╱A╱ // 0x227e @0x22
0x225c…22a4 at0023 = ╱e6╱ - ╱ // 0x227f @0x23
0x225c…22a4 at0024 = ╱53╱S╱ // 0x2280 @0x24
0x225c…22a4 at0025 = ╱5f╱_╱ // 0x2281 @0x25
0x225c…22a4 at0026 = ╱56╱V╱ // 0x2282 @0x26
0x225c…22a4 at0027 = ╱41╱A╱ // 0x2283 @0x27
0x225c…22a4 at0028 = ╱52╱R╱ // 0x2284 @0x28
0x225c…22a4 at0029 = ╱45╱E╱ // 0x2285 @0x29
0x225c…22a4 at002a = ╱4c╱L╱ // 0x2286 @0x2a
0x225c…22a4 at002b = ╱41╱A╱ // 0x2287 @0x2b
0x225c…22a4 at002c = ╱5f╱_╱ // 0x2288 @0x2c
0x225c…22a4 at002d = ╱50╱P╱ // 0x2289 @0x2d
0x225c…22a4 at002e = ╱ee╱)╱ // 0x228a @0x2e
0x225c…22a4 at002f = ╱ee╱)╱ // 0x228b @0x2f
0x225c…22a4 at0030 = ╱e7╱ * ╱ // 0x228c @0x30
0x225c…22a4 at0031 = ╱ed╱(╱ // 0x228d @0x31
0x225c…22a4 at0032 = ╱ed╱(╱ // 0x228e @0x32
0x225c…22a4 at0033 = ╱31╱1╱ // 0x228f @0x33
0x225c…22a4 at0034 = ╱30╱0╱ // 0x2290 @0x34
0x225c…22a4 at0035 = ╱30╱0╱ // 0x2291 @0x35
0x225c…22a4 at0036 = ╱f26400╱ // 0x2292 @0x36
0x225c…22a4 at0039 = ╱e5╱ + ╱ // 0x2295 @0x39
0x225c…22a4 at003a = ╱4d╱M╱ // 0x2296 @0x3a
0x225c…22a4 at003b = ╱4f╱O╱ // 0x2297 @0x3b
0x225c…22a4 at003c = ╱4d╱M╱ // 0x2298 @0x3c
0x225c…22a4 at003d = ╱53╱S╱ // 0x2299 @0x3d
0x225c…22a4 at003e = ╱ee╱)╱ // 0x229a @0x3e
0x225c…22a4 at003f = ╱e8╱ / ╱ // 0x229b @0x3f
0x225c…22a4 at0040 = ╱31╱1╱ // 0x229c @0x40
0x225c…22a4 at0041 = ╱30╱0╱ // 0x229d @0x41
0x225c…22a4 at0042 = ╱30╱0╱ // 0x229e @0x42
0x225c…22a4 at0043 = ╱f26400╱ // 0x229f @0x43
0x225c…22a4 at0046 = ╱ee╱)╱ // 0x22a2 @0x46
0x225c…22a4 at0047 = EOL // 0x22a3 @0x47
0x225c…22a4 }
0x22a4…22c6 b8b4 3030 PRINT USING "###.## g" : VAREKØB / S_KREDIT
0x22a4…22c6 LineComal80 {
0x22a4…22c6 ptr = 0xb8b4 // 0x22a4 @0x0
0x22a4…22c6 lno = 0x0bd6 // 0x22a6 @0x2
0x22a4…22c6 at0004 = ╱92╱ PRINT ╱ // 0x22a8 @0x4
0x22a4…22c6 at0005 = ╱b9╱ USING ╱ // 0x22a9 @0x5
0x22a4…22c6 at0006 = ╱22╱"╱ // 0x22aa @0x6
0x22a4…22c6 at0007 = ╱23╱#╱ // 0x22ab @0x7
0x22a4…22c6 at0008 = ╱23╱#╱ // 0x22ac @0x8
0x22a4…22c6 at0009 = ╱23╱#╱ // 0x22ad @0x9
0x22a4…22c6 at000a = ╱2e╱.╱ // 0x22ae @0xa
0x22a4…22c6 at000b = ╱23╱#╱ // 0x22af @0xb
0x22a4…22c6 at000c = ╱23╱#╱ // 0x22b0 @0xc
0x22a4…22c6 at000d = ╱20╱…╱ // 0x22b1 @0xd
0x22a4…22c6 at000e = ╱67╱g╱ // 0x22b2 @0xe
0x22a4…22c6 at000f = ╱22╱"╱ // 0x22b3 @0xf
0x22a4…22c6 at0010 = ╱f1╱ : ╱ // 0x22b4 @0x10
0x22a4…22c6 at0011 = ╱56╱V╱ // 0x22b5 @0x11
0x22a4…22c6 at0012 = ╱41╱A╱ // 0x22b6 @0x12
0x22a4…22c6 at0013 = ╱52╱R╱ // 0x22b7 @0x13
0x22a4…22c6 at0014 = ╱45╱E╱ // 0x22b8 @0x14
0x22a4…22c6 at0015 = ╱4b╱K╱ // 0x22b9 @0x15
0x22a4…22c6 at0016 = ╱5c╱Ø╱ // 0x22ba @0x16
0x22a4…22c6 at0017 = ╱42╱B╱ // 0x22bb @0x17
0x22a4…22c6 at0018 = ╱e8╱ / ╱ // 0x22bc @0x18
0x22a4…22c6 at0019 = ╱53╱S╱ // 0x22bd @0x19
0x22a4…22c6 at001a = ╱5f╱_╱ // 0x22be @0x1a
0x22a4…22c6 at001b = ╱4b╱K╱ // 0x22bf @0x1b
0x22a4…22c6 at001c = ╱52╱R╱ // 0x22c0 @0x1c
0x22a4…22c6 at001d = ╱45╱E╱ // 0x22c1 @0x1d
0x22a4…22c6 at001e = ╱44╱D╱ // 0x22c2 @0x1e
0x22a4…22c6 at001f = ╱49╱I╱ // 0x22c3 @0x1f
0x22a4…22c6 at0020 = ╱54╱T╱ // 0x22c4 @0x20
0x22a4…22c6 at0021 = EOL // 0x22c5 @0x21
0x22a4…22c6 }
0x22c6…22cc b8ba 3040 PRINT
0x22c6…22cc LineComal80 {
0x22c6…22cc ptr = 0xb8ba // 0x22c6 @0x0
0x22c6…22cc lno = 0x0be0 // 0x22c8 @0x2
0x22c6…22cc at0004 = ╱92╱ PRINT ╱ // 0x22ca @0x4
0x22c6…22cc at0005 = EOL // 0x22cb @0x5
0x22c6…22cc }
0x22cc…22d2 b8c0 3050 PRINT
0x22cc…22d2 LineComal80 {
0x22cc…22d2 ptr = 0xb8c0 // 0x22cc @0x0
0x22cc…22d2 lno = 0x0bea // 0x22ce @0x2
0x22cc…22d2 at0004 = ╱92╱ PRINT ╱ // 0x22d0 @0x4
0x22cc…22d2 at0005 = EOL // 0x22d1 @0x5
0x22cc…22d2 }
0x22d2…230b b8f9 3060 PRINT "**** K R E D I T - O G L A G E R D A G E ****"
0x22d2…230b LineComal80 {
0x22d2…230b ptr = 0xb8f9 // 0x22d2 @0x0
0x22d2…230b lno = 0x0bf4 // 0x22d4 @0x2
0x22d2…230b at0004 = ╱92╱ PRINT ╱ // 0x22d6 @0x4
0x22d2…230b at0005 = ╱22╱"╱ // 0x22d7 @0x5
0x22d2…230b at0006 = ╱2a╱*╱ // 0x22d8 @0x6
0x22d2…230b at0007 = ╱2a╱*╱ // 0x22d9 @0x7
0x22d2…230b at0008 = ╱2a╱*╱ // 0x22da @0x8
0x22d2…230b at0009 = ╱2a╱*╱ // 0x22db @0x9
0x22d2…230b at000a = ╱20╱…╱ // 0x22dc @0xa
0x22d2…230b at000b = ╱4b╱K╱ // 0x22dd @0xb
0x22d2…230b at000c = ╱20╱…╱ // 0x22de @0xc
0x22d2…230b at000d = ╱52╱R╱ // 0x22df @0xd
0x22d2…230b at000e = ╱20╱…╱ // 0x22e0 @0xe
0x22d2…230b at000f = ╱45╱E╱ // 0x22e1 @0xf
0x22d2…230b at0010 = ╱20╱…╱ // 0x22e2 @0x10
0x22d2…230b at0011 = ╱44╱D╱ // 0x22e3 @0x11
0x22d2…230b at0012 = ╱20╱…╱ // 0x22e4 @0x12
0x22d2…230b at0013 = ╱49╱I╱ // 0x22e5 @0x13
0x22d2…230b at0014 = ╱20╱…╱ // 0x22e6 @0x14
0x22d2…230b at0015 = ╱54╱T╱ // 0x22e7 @0x15
0x22d2…230b at0016 = ╱20╱…╱ // 0x22e8 @0x16
0x22d2…230b at0017 = ╱2d╱-╱ // 0x22e9 @0x17
0x22d2…230b at0018 = ╱20╱…╱ // 0x22ea @0x18
0x22d2…230b at0019 = ╱20╱…╱ // 0x22eb @0x19
0x22d2…230b at001a = ╱20╱…╱ // 0x22ec @0x1a
0x22d2…230b at001b = ╱4f╱O╱ // 0x22ed @0x1b
0x22d2…230b at001c = ╱20╱…╱ // 0x22ee @0x1c
0x22d2…230b at001d = ╱47╱G╱ // 0x22ef @0x1d
0x22d2…230b at001e = ╱20╱…╱ // 0x22f0 @0x1e
0x22d2…230b at001f = ╱20╱…╱ // 0x22f1 @0x1f
0x22d2…230b at0020 = ╱20╱…╱ // 0x22f2 @0x20
0x22d2…230b at0021 = ╱4c╱L╱ // 0x22f3 @0x21
0x22d2…230b at0022 = ╱20╱…╱ // 0x22f4 @0x22
0x22d2…230b at0023 = ╱41╱A╱ // 0x22f5 @0x23
0x22d2…230b at0024 = ╱20╱…╱ // 0x22f6 @0x24
0x22d2…230b at0025 = ╱47╱G╱ // 0x22f7 @0x25
0x22d2…230b at0026 = ╱20╱…╱ // 0x22f8 @0x26
0x22d2…230b at0027 = ╱45╱E╱ // 0x22f9 @0x27
0x22d2…230b at0028 = ╱20╱…╱ // 0x22fa @0x28
0x22d2…230b at0029 = ╱52╱R╱ // 0x22fb @0x29
0x22d2…230b at002a = ╱20╱…╱ // 0x22fc @0x2a
0x22d2…230b at002b = ╱44╱D╱ // 0x22fd @0x2b
0x22d2…230b at002c = ╱20╱…╱ // 0x22fe @0x2c
0x22d2…230b at002d = ╱41╱A╱ // 0x22ff @0x2d
0x22d2…230b at002e = ╱20╱…╱ // 0x2300 @0x2e
0x22d2…230b at002f = ╱47╱G╱ // 0x2301 @0x2f
0x22d2…230b at0030 = ╱20╱…╱ // 0x2302 @0x30
0x22d2…230b at0031 = ╱45╱E╱ // 0x2303 @0x31
0x22d2…230b at0032 = ╱20╱…╱ // 0x2304 @0x32
0x22d2…230b at0033 = ╱2a╱*╱ // 0x2305 @0x33
0x22d2…230b at0034 = ╱2a╱*╱ // 0x2306 @0x34
0x22d2…230b at0035 = ╱2a╱*╱ // 0x2307 @0x35
0x22d2…230b at0036 = ╱2a╱*╱ // 0x2308 @0x36
0x22d2…230b at0037 = ╱22╱"╱ // 0x2309 @0x37
0x22d2…230b at0038 = EOL // 0x230a @0x38
0x22d2…230b }
0x230b…2344 b932 3070 PRINT "-------------------------------------------------"
0x230b…2344 LineComal80 {
0x230b…2344 ptr = 0xb932 // 0x230b @0x0
0x230b…2344 lno = 0x0bfe // 0x230d @0x2
0x230b…2344 at0004 = ╱92╱ PRINT ╱ // 0x230f @0x4
0x230b…2344 at0005 = ╱22╱"╱ // 0x2310 @0x5
0x230b…2344 at0006 = ╱2d╱-╱ // 0x2311 @0x6
0x230b…2344 at0007 = ╱2d╱-╱ // 0x2312 @0x7
0x230b…2344 at0008 = ╱2d╱-╱ // 0x2313 @0x8
0x230b…2344 at0009 = ╱2d╱-╱ // 0x2314 @0x9
0x230b…2344 at000a = ╱2d╱-╱ // 0x2315 @0xa
0x230b…2344 at000b = ╱2d╱-╱ // 0x2316 @0xb
0x230b…2344 at000c = ╱2d╱-╱ // 0x2317 @0xc
0x230b…2344 at000d = ╱2d╱-╱ // 0x2318 @0xd
0x230b…2344 at000e = ╱2d╱-╱ // 0x2319 @0xe
0x230b…2344 at000f = ╱2d╱-╱ // 0x231a @0xf
0x230b…2344 at0010 = ╱2d╱-╱ // 0x231b @0x10
0x230b…2344 at0011 = ╱2d╱-╱ // 0x231c @0x11
0x230b…2344 at0012 = ╱2d╱-╱ // 0x231d @0x12
0x230b…2344 at0013 = ╱2d╱-╱ // 0x231e @0x13
0x230b…2344 at0014 = ╱2d╱-╱ // 0x231f @0x14
0x230b…2344 at0015 = ╱2d╱-╱ // 0x2320 @0x15
0x230b…2344 at0016 = ╱2d╱-╱ // 0x2321 @0x16
0x230b…2344 at0017 = ╱2d╱-╱ // 0x2322 @0x17
0x230b…2344 at0018 = ╱2d╱-╱ // 0x2323 @0x18
0x230b…2344 at0019 = ╱2d╱-╱ // 0x2324 @0x19
0x230b…2344 at001a = ╱2d╱-╱ // 0x2325 @0x1a
0x230b…2344 at001b = ╱2d╱-╱ // 0x2326 @0x1b
0x230b…2344 at001c = ╱2d╱-╱ // 0x2327 @0x1c
0x230b…2344 at001d = ╱2d╱-╱ // 0x2328 @0x1d
0x230b…2344 at001e = ╱2d╱-╱ // 0x2329 @0x1e
0x230b…2344 at001f = ╱2d╱-╱ // 0x232a @0x1f
0x230b…2344 at0020 = ╱2d╱-╱ // 0x232b @0x20
0x230b…2344 at0021 = ╱2d╱-╱ // 0x232c @0x21
0x230b…2344 at0022 = ╱2d╱-╱ // 0x232d @0x22
0x230b…2344 at0023 = ╱2d╱-╱ // 0x232e @0x23
0x230b…2344 at0024 = ╱2d╱-╱ // 0x232f @0x24
0x230b…2344 at0025 = ╱2d╱-╱ // 0x2330 @0x25
0x230b…2344 at0026 = ╱2d╱-╱ // 0x2331 @0x26
0x230b…2344 at0027 = ╱2d╱-╱ // 0x2332 @0x27
0x230b…2344 at0028 = ╱2d╱-╱ // 0x2333 @0x28
0x230b…2344 at0029 = ╱2d╱-╱ // 0x2334 @0x29
0x230b…2344 at002a = ╱2d╱-╱ // 0x2335 @0x2a
0x230b…2344 at002b = ╱2d╱-╱ // 0x2336 @0x2b
0x230b…2344 at002c = ╱2d╱-╱ // 0x2337 @0x2c
0x230b…2344 at002d = ╱2d╱-╱ // 0x2338 @0x2d
0x230b…2344 at002e = ╱2d╱-╱ // 0x2339 @0x2e
0x230b…2344 at002f = ╱2d╱-╱ // 0x233a @0x2f
0x230b…2344 at0030 = ╱2d╱-╱ // 0x233b @0x30
0x230b…2344 at0031 = ╱2d╱-╱ // 0x233c @0x31
0x230b…2344 at0032 = ╱2d╱-╱ // 0x233d @0x32
0x230b…2344 at0033 = ╱2d╱-╱ // 0x233e @0x33
0x230b…2344 at0034 = ╱2d╱-╱ // 0x233f @0x34
0x230b…2344 at0035 = ╱2d╱-╱ // 0x2340 @0x35
0x230b…2344 at0036 = ╱2d╱-╱ // 0x2341 @0x36
0x230b…2344 at0037 = ╱22╱"╱ // 0x2342 @0x37
0x230b…2344 at0038 = EOL // 0x2343 @0x38
0x230b…2344 }
0x2344…234a b938 3080 PRINT
0x2344…234a LineComal80 {
0x2344…234a ptr = 0xb938 // 0x2344 @0x0
0x2344…234a lno = 0x0c08 // 0x2346 @0x2
0x2344…234a at0004 = ╱92╱ PRINT ╱ // 0x2348 @0x4
0x2344…234a at0005 = EOL // 0x2349 @0x5
0x2344…234a }
0x234a…237e b96c 3090 PRINT " (1) Varedebitorer :" ;
0x234a…237e LineComal80 {
0x234a…237e ptr = 0xb96c // 0x234a @0x0
0x234a…237e lno = 0x0c12 // 0x234c @0x2
0x234a…237e at0004 = ╱92╱ PRINT ╱ // 0x234e @0x4
0x234a…237e at0005 = ╱22╱"╱ // 0x234f @0x5
0x234a…237e at0006 = ╱20╱…╱ // 0x2350 @0x6
0x234a…237e at0007 = ╱28╱(╱ // 0x2351 @0x7
0x234a…237e at0008 = ╱31╱1╱ // 0x2352 @0x8
0x234a…237e at0009 = ╱29╱)╱ // 0x2353 @0x9
0x234a…237e at000a = ╱20╱…╱ // 0x2354 @0xa
0x234a…237e at000b = ╱56╱V╱ // 0x2355 @0xb
0x234a…237e at000c = ╱61╱a╱ // 0x2356 @0xc
0x234a…237e at000d = ╱72╱r╱ // 0x2357 @0xd
0x234a…237e at000e = ╱65╱e╱ // 0x2358 @0xe
0x234a…237e at000f = ╱64╱d╱ // 0x2359 @0xf
0x234a…237e at0010 = ╱65╱e╱ // 0x235a @0x10
0x234a…237e at0011 = ╱62╱b╱ // 0x235b @0x11
0x234a…237e at0012 = ╱69╱i╱ // 0x235c @0x12
0x234a…237e at0013 = ╱74╱t╱ // 0x235d @0x13
0x234a…237e at0014 = ╱6f╱o╱ // 0x235e @0x14
0x234a…237e at0015 = ╱72╱r╱ // 0x235f @0x15
0x234a…237e at0016 = ╱65╱e╱ // 0x2360 @0x16
0x234a…237e at0017 = ╱72╱r╱ // 0x2361 @0x17
0x234a…237e at0018 = ╱20╱…╱ // 0x2362 @0x18
0x234a…237e at0019 = ╱20╱…╱ // 0x2363 @0x19
0x234a…237e at001a = ╱20╱…╱ // 0x2364 @0x1a
0x234a…237e at001b = ╱20╱…╱ // 0x2365 @0x1b
0x234a…237e at001c = ╱20╱…╱ // 0x2366 @0x1c
0x234a…237e at001d = ╱20╱…╱ // 0x2367 @0x1d
0x234a…237e at001e = ╱20╱…╱ // 0x2368 @0x1e
0x234a…237e at001f = ╱20╱…╱ // 0x2369 @0x1f
0x234a…237e at0020 = ╱20╱…╱ // 0x236a @0x20
0x234a…237e at0021 = ╱20╱…╱ // 0x236b @0x21
0x234a…237e at0022 = ╱20╱…╱ // 0x236c @0x22
0x234a…237e at0023 = ╱20╱…╱ // 0x236d @0x23
0x234a…237e at0024 = ╱20╱…╱ // 0x236e @0x24
0x234a…237e at0025 = ╱20╱…╱ // 0x236f @0x25
0x234a…237e at0026 = ╱20╱…╱ // 0x2370 @0x26
0x234a…237e at0027 = ╱20╱…╱ // 0x2371 @0x27
0x234a…237e at0028 = ╱20╱…╱ // 0x2372 @0x28
0x234a…237e at0029 = ╱20╱…╱ // 0x2373 @0x29
0x234a…237e at002a = ╱20╱…╱ // 0x2374 @0x2a
0x234a…237e at002b = ╱20╱…╱ // 0x2375 @0x2b
0x234a…237e at002c = ╱20╱…╱ // 0x2376 @0x2c
0x234a…237e at002d = ╱20╱…╱ // 0x2377 @0x2d
0x234a…237e at002e = ╱20╱…╱ // 0x2378 @0x2e
0x234a…237e at002f = ╱20╱…╱ // 0x2379 @0x2f
0x234a…237e at0030 = ╱3a╱:╱ // 0x237a @0x30
0x234a…237e at0031 = ╱22╱"╱ // 0x237b @0x31
0x234a…237e at0032 = ╱ea╱ ; ╱ // 0x237c @0x32
0x234a…237e at0033 = EOL // 0x237d @0x33
0x234a…237e }
0x237e…23c2 (118,) b9b0 3100 PRINT USING "####.# dg" : S_DEBITO * 360 / (S_OMSÆTN * ((100 + MOMS) / 100))
0x237e…23c2 LineComal80 {
0x237e…23c2 ptr = 0xb9b0 // 0x237e @0x0
0x237e…23c2 lno = 0x0c1c // 0x2380 @0x2
0x237e…23c2 at0004 = ╱92╱ PRINT ╱ // 0x2382 @0x4
0x237e…23c2 at0005 = ╱b9╱ USING ╱ // 0x2383 @0x5
0x237e…23c2 at0006 = ╱22╱"╱ // 0x2384 @0x6
0x237e…23c2 at0007 = ╱23╱#╱ // 0x2385 @0x7
0x237e…23c2 at0008 = ╱23╱#╱ // 0x2386 @0x8
0x237e…23c2 at0009 = ╱23╱#╱ // 0x2387 @0x9
0x237e…23c2 at000a = ╱23╱#╱ // 0x2388 @0xa
0x237e…23c2 at000b = ╱2e╱.╱ // 0x2389 @0xb
0x237e…23c2 at000c = ╱23╱#╱ // 0x238a @0xc
0x237e…23c2 at000d = ╱20╱…╱ // 0x238b @0xd
0x237e…23c2 at000e = ╱64╱d╱ // 0x238c @0xe
0x237e…23c2 at000f = ╱67╱g╱ // 0x238d @0xf
0x237e…23c2 at0010 = ╱22╱"╱ // 0x238e @0x10
0x237e…23c2 at0011 = ╱f1╱ : ╱ // 0x238f @0x11
0x237e…23c2 at0012 = ╱53╱S╱ // 0x2390 @0x12
0x237e…23c2 at0013 = ╱5f╱_╱ // 0x2391 @0x13
0x237e…23c2 at0014 = ╱44╱D╱ // 0x2392 @0x14
0x237e…23c2 at0015 = ╱45╱E╱ // 0x2393 @0x15
0x237e…23c2 at0016 = ╱42╱B╱ // 0x2394 @0x16
0x237e…23c2 at0017 = ╱49╱I╱ // 0x2395 @0x17
0x237e…23c2 at0018 = ╱54╱T╱ // 0x2396 @0x18
0x237e…23c2 at0019 = ╱4f╱O╱ // 0x2397 @0x19
0x237e…23c2 at001a = ╱e7╱ * ╱ // 0x2398 @0x1a
0x237e…23c2 at001b = ╱33╱3╱ // 0x2399 @0x1b
0x237e…23c2 at001c = ╱36╱6╱ // 0x239a @0x1c
0x237e…23c2 at001d = ╱30╱0╱ // 0x239b @0x1d
0x237e…23c2 at001e = ╱f26801╱ // 0x239c @0x1e
0x237e…23c2 at0021 = ╱e8╱ / ╱ // 0x239f @0x21
0x237e…23c2 at0022 = ╱ed╱(╱ // 0x23a0 @0x22
0x237e…23c2 at0023 = ╱53╱S╱ // 0x23a1 @0x23
0x237e…23c2 at0024 = ╱5f╱_╱ // 0x23a2 @0x24
0x237e…23c2 at0025 = ╱4f╱O╱ // 0x23a3 @0x25
0x237e…23c2 at0026 = ╱4d╱M╱ // 0x23a4 @0x26
0x237e…23c2 at0027 = ╱53╱S╱ // 0x23a5 @0x27
0x237e…23c2 at0028 = ╱5b╱Æ╱ // 0x23a6 @0x28
0x237e…23c2 at0029 = ╱54╱T╱ // 0x23a7 @0x29
0x237e…23c2 at002a = ╱4e╱N╱ // 0x23a8 @0x2a
0x237e…23c2 at002b = ╱e7╱ * ╱ // 0x23a9 @0x2b
0x237e…23c2 at002c = ╱ed╱(╱ // 0x23aa @0x2c
0x237e…23c2 at002d = ╱ed╱(╱ // 0x23ab @0x2d
0x237e…23c2 at002e = ╱31╱1╱ // 0x23ac @0x2e
0x237e…23c2 at002f = ╱30╱0╱ // 0x23ad @0x2f
0x237e…23c2 at0030 = ╱30╱0╱ // 0x23ae @0x30
0x237e…23c2 at0031 = ╱f26400╱ // 0x23af @0x31
0x237e…23c2 at0034 = ╱e5╱ + ╱ // 0x23b2 @0x34
0x237e…23c2 at0035 = ╱4d╱M╱ // 0x23b3 @0x35
0x237e…23c2 at0036 = ╱4f╱O╱ // 0x23b4 @0x36
0x237e…23c2 at0037 = ╱4d╱M╱ // 0x23b5 @0x37
0x237e…23c2 at0038 = ╱53╱S╱ // 0x23b6 @0x38
0x237e…23c2 at0039 = ╱ee╱)╱ // 0x23b7 @0x39
0x237e…23c2 at003a = ╱e8╱ / ╱ // 0x23b8 @0x3a
0x237e…23c2 at003b = ╱31╱1╱ // 0x23b9 @0x3b
0x237e…23c2 at003c = ╱30╱0╱ // 0x23ba @0x3c
0x237e…23c2 at003d = ╱30╱0╱ // 0x23bb @0x3d
0x237e…23c2 at003e = ╱f26400╱ // 0x23bc @0x3e
0x237e…23c2 at0041 = ╱ee╱)╱ // 0x23bf @0x41
0x237e…23c2 at0042 = ╱ee╱)╱ // 0x23c0 @0x42
0x237e…23c2 at0043 = EOL // 0x23c1 @0x43
0x237e…23c2 }
0x23c2…23c8 b9b6 3110 PRINT
0x23c2…23c8 LineComal80 {
0x23c2…23c8 ptr = 0xb9b6 // 0x23c2 @0x0
0x23c2…23c8 lno = 0x0c26 // 0x23c4 @0x2
0x23c2…23c8 at0004 = ╱92╱ PRINT ╱ // 0x23c6 @0x4
0x23c2…23c8 at0005 = EOL // 0x23c7 @0x5
0x23c2…23c8 }
0x23c8…23fc b9ea 3120 PRINT " (2) Varelager :" ;
0x23c8…23fc LineComal80 {
0x23c8…23fc ptr = 0xb9ea // 0x23c8 @0x0
0x23c8…23fc lno = 0x0c30 // 0x23ca @0x2
0x23c8…23fc at0004 = ╱92╱ PRINT ╱ // 0x23cc @0x4
0x23c8…23fc at0005 = ╱22╱"╱ // 0x23cd @0x5
0x23c8…23fc at0006 = ╱20╱…╱ // 0x23ce @0x6
0x23c8…23fc at0007 = ╱28╱(╱ // 0x23cf @0x7
0x23c8…23fc at0008 = ╱32╱2╱ // 0x23d0 @0x8
0x23c8…23fc at0009 = ╱29╱)╱ // 0x23d1 @0x9
0x23c8…23fc at000a = ╱20╱…╱ // 0x23d2 @0xa
0x23c8…23fc at000b = ╱56╱V╱ // 0x23d3 @0xb
0x23c8…23fc at000c = ╱61╱a╱ // 0x23d4 @0xc
0x23c8…23fc at000d = ╱72╱r╱ // 0x23d5 @0xd
0x23c8…23fc at000e = ╱65╱e╱ // 0x23d6 @0xe
0x23c8…23fc at000f = ╱6c╱l╱ // 0x23d7 @0xf
0x23c8…23fc at0010 = ╱61╱a╱ // 0x23d8 @0x10
0x23c8…23fc at0011 = ╱67╱g╱ // 0x23d9 @0x11
0x23c8…23fc at0012 = ╱65╱e╱ // 0x23da @0x12
0x23c8…23fc at0013 = ╱72╱r╱ // 0x23db @0x13
0x23c8…23fc at0014 = ╱20╱…╱ // 0x23dc @0x14
0x23c8…23fc at0015 = ╱20╱…╱ // 0x23dd @0x15
0x23c8…23fc at0016 = ╱20╱…╱ // 0x23de @0x16
0x23c8…23fc at0017 = ╱20╱…╱ // 0x23df @0x17
0x23c8…23fc at0018 = ╱20╱…╱ // 0x23e0 @0x18
0x23c8…23fc at0019 = ╱20╱…╱ // 0x23e1 @0x19
0x23c8…23fc at001a = ╱20╱…╱ // 0x23e2 @0x1a
0x23c8…23fc at001b = ╱20╱…╱ // 0x23e3 @0x1b
0x23c8…23fc at001c = ╱20╱…╱ // 0x23e4 @0x1c
0x23c8…23fc at001d = ╱20╱…╱ // 0x23e5 @0x1d
0x23c8…23fc at001e = ╱20╱…╱ // 0x23e6 @0x1e
0x23c8…23fc at001f = ╱20╱…╱ // 0x23e7 @0x1f
0x23c8…23fc at0020 = ╱20╱…╱ // 0x23e8 @0x20
0x23c8…23fc at0021 = ╱20╱…╱ // 0x23e9 @0x21
0x23c8…23fc at0022 = ╱20╱…╱ // 0x23ea @0x22
0x23c8…23fc at0023 = ╱20╱…╱ // 0x23eb @0x23
0x23c8…23fc at0024 = ╱20╱…╱ // 0x23ec @0x24
0x23c8…23fc at0025 = ╱20╱…╱ // 0x23ed @0x25
0x23c8…23fc at0026 = ╱20╱…╱ // 0x23ee @0x26
0x23c8…23fc at0027 = ╱20╱…╱ // 0x23ef @0x27
0x23c8…23fc at0028 = ╱20╱…╱ // 0x23f0 @0x28
0x23c8…23fc at0029 = ╱20╱…╱ // 0x23f1 @0x29
0x23c8…23fc at002a = ╱20╱…╱ // 0x23f2 @0x2a
0x23c8…23fc at002b = ╱20╱…╱ // 0x23f3 @0x2b
0x23c8…23fc at002c = ╱20╱…╱ // 0x23f4 @0x2c
0x23c8…23fc at002d = ╱20╱…╱ // 0x23f5 @0x2d
0x23c8…23fc at002e = ╱20╱…╱ // 0x23f6 @0x2e
0x23c8…23fc at002f = ╱20╱…╱ // 0x23f7 @0x2f
0x23c8…23fc at0030 = ╱3a╱:╱ // 0x23f8 @0x30
0x23c8…23fc at0031 = ╱22╱"╱ // 0x23f9 @0x31
0x23c8…23fc at0032 = ╱ea╱ ; ╱ // 0x23fa @0x32
0x23c8…23fc at0033 = EOL // 0x23fb @0x33
0x23c8…23fc }
0x23fc…242a ba18 3130 PRINT USING "####.# dg" : S_VARELA * 360 / ABS(S_VAREFO)
0x23fc…242a LineComal80 {
0x23fc…242a ptr = 0xba18 // 0x23fc @0x0
0x23fc…242a lno = 0x0c3a // 0x23fe @0x2
0x23fc…242a at0004 = ╱92╱ PRINT ╱ // 0x2400 @0x4
0x23fc…242a at0005 = ╱b9╱ USING ╱ // 0x2401 @0x5
0x23fc…242a at0006 = ╱22╱"╱ // 0x2402 @0x6
0x23fc…242a at0007 = ╱23╱#╱ // 0x2403 @0x7
0x23fc…242a at0008 = ╱23╱#╱ // 0x2404 @0x8
0x23fc…242a at0009 = ╱23╱#╱ // 0x2405 @0x9
0x23fc…242a at000a = ╱23╱#╱ // 0x2406 @0xa
0x23fc…242a at000b = ╱2e╱.╱ // 0x2407 @0xb
0x23fc…242a at000c = ╱23╱#╱ // 0x2408 @0xc
0x23fc…242a at000d = ╱20╱…╱ // 0x2409 @0xd
0x23fc…242a at000e = ╱64╱d╱ // 0x240a @0xe
0x23fc…242a at000f = ╱67╱g╱ // 0x240b @0xf
0x23fc…242a at0010 = ╱22╱"╱ // 0x240c @0x10
0x23fc…242a at0011 = ╱f1╱ : ╱ // 0x240d @0x11
0x23fc…242a at0012 = ╱53╱S╱ // 0x240e @0x12
0x23fc…242a at0013 = ╱5f╱_╱ // 0x240f @0x13
0x23fc…242a at0014 = ╱56╱V╱ // 0x2410 @0x14
0x23fc…242a at0015 = ╱41╱A╱ // 0x2411 @0x15
0x23fc…242a at0016 = ╱52╱R╱ // 0x2412 @0x16
0x23fc…242a at0017 = ╱45╱E╱ // 0x2413 @0x17
0x23fc…242a at0018 = ╱4c╱L╱ // 0x2414 @0x18
0x23fc…242a at0019 = ╱41╱A╱ // 0x2415 @0x19
0x23fc…242a at001a = ╱e7╱ * ╱ // 0x2416 @0x1a
0x23fc…242a at001b = ╱33╱3╱ // 0x2417 @0x1b
0x23fc…242a at001c = ╱36╱6╱ // 0x2418 @0x1c
0x23fc…242a at001d = ╱30╱0╱ // 0x2419 @0x1d
0x23fc…242a at001e = ╱f26801╱ // 0x241a @0x1e
0x23fc…242a at0021 = ╱e8╱ / ╱ // 0x241d @0x21
0x23fc…242a at0022 = ╱c4╱ABS╱ // 0x241e @0x22
0x23fc…242a at0023 = ╱ed╱(╱ // 0x241f @0x23
0x23fc…242a at0024 = ╱53╱S╱ // 0x2420 @0x24
0x23fc…242a at0025 = ╱5f╱_╱ // 0x2421 @0x25
0x23fc…242a at0026 = ╱56╱V╱ // 0x2422 @0x26
0x23fc…242a at0027 = ╱41╱A╱ // 0x2423 @0x27
0x23fc…242a at0028 = ╱52╱R╱ // 0x2424 @0x28
0x23fc…242a at0029 = ╱45╱E╱ // 0x2425 @0x29
0x23fc…242a at002a = ╱46╱F╱ // 0x2426 @0x2a
0x23fc…242a at002b = ╱4f╱O╱ // 0x2427 @0x2b
0x23fc…242a at002c = ╱ee╱)╱ // 0x2428 @0x2c
0x23fc…242a at002d = EOL // 0x2429 @0x2d
0x23fc…242a }
0x242a…2430 ba1e 3140 PRINT
0x242a…2430 LineComal80 {
0x242a…2430 ptr = 0xba1e // 0x242a @0x0
0x242a…2430 lno = 0x0c44 // 0x242c @0x2
0x242a…2430 at0004 = ╱92╱ PRINT ╱ // 0x242e @0x4
0x242a…2430 at0005 = EOL // 0x242f @0x5
0x242a…2430 }
0x2430…2464 ba52 3150 PRINT " (3) Varekreditorer :" ;
0x2430…2464 LineComal80 {
0x2430…2464 ptr = 0xba52 // 0x2430 @0x0
0x2430…2464 lno = 0x0c4e // 0x2432 @0x2
0x2430…2464 at0004 = ╱92╱ PRINT ╱ // 0x2434 @0x4
0x2430…2464 at0005 = ╱22╱"╱ // 0x2435 @0x5
0x2430…2464 at0006 = ╱20╱…╱ // 0x2436 @0x6
0x2430…2464 at0007 = ╱28╱(╱ // 0x2437 @0x7
0x2430…2464 at0008 = ╱33╱3╱ // 0x2438 @0x8
0x2430…2464 at0009 = ╱29╱)╱ // 0x2439 @0x9
0x2430…2464 at000a = ╱20╱…╱ // 0x243a @0xa
0x2430…2464 at000b = ╱56╱V╱ // 0x243b @0xb
0x2430…2464 at000c = ╱61╱a╱ // 0x243c @0xc
0x2430…2464 at000d = ╱72╱r╱ // 0x243d @0xd
0x2430…2464 at000e = ╱65╱e╱ // 0x243e @0xe
0x2430…2464 at000f = ╱6b╱k╱ // 0x243f @0xf
0x2430…2464 at0010 = ╱72╱r╱ // 0x2440 @0x10
0x2430…2464 at0011 = ╱65╱e╱ // 0x2441 @0x11
0x2430…2464 at0012 = ╱64╱d╱ // 0x2442 @0x12
0x2430…2464 at0013 = ╱69╱i╱ // 0x2443 @0x13
0x2430…2464 at0014 = ╱74╱t╱ // 0x2444 @0x14
0x2430…2464 at0015 = ╱6f╱o╱ // 0x2445 @0x15
0x2430…2464 at0016 = ╱72╱r╱ // 0x2446 @0x16
0x2430…2464 at0017 = ╱65╱e╱ // 0x2447 @0x17
0x2430…2464 at0018 = ╱72╱r╱ // 0x2448 @0x18
0x2430…2464 at0019 = ╱20╱…╱ // 0x2449 @0x19
0x2430…2464 at001a = ╱20╱…╱ // 0x244a @0x1a
0x2430…2464 at001b = ╱20╱…╱ // 0x244b @0x1b
0x2430…2464 at001c = ╱20╱…╱ // 0x244c @0x1c
0x2430…2464 at001d = ╱20╱…╱ // 0x244d @0x1d
0x2430…2464 at001e = ╱20╱…╱ // 0x244e @0x1e
0x2430…2464 at001f = ╱20╱…╱ // 0x244f @0x1f
0x2430…2464 at0020 = ╱20╱…╱ // 0x2450 @0x20
0x2430…2464 at0021 = ╱20╱…╱ // 0x2451 @0x21
0x2430…2464 at0022 = ╱20╱…╱ // 0x2452 @0x22
0x2430…2464 at0023 = ╱20╱…╱ // 0x2453 @0x23
0x2430…2464 at0024 = ╱20╱…╱ // 0x2454 @0x24
0x2430…2464 at0025 = ╱20╱…╱ // 0x2455 @0x25
0x2430…2464 at0026 = ╱20╱…╱ // 0x2456 @0x26
0x2430…2464 at0027 = ╱20╱…╱ // 0x2457 @0x27
0x2430…2464 at0028 = ╱20╱…╱ // 0x2458 @0x28
0x2430…2464 at0029 = ╱20╱…╱ // 0x2459 @0x29
0x2430…2464 at002a = ╱20╱…╱ // 0x245a @0x2a
0x2430…2464 at002b = ╱20╱…╱ // 0x245b @0x2b
0x2430…2464 at002c = ╱20╱…╱ // 0x245c @0x2c
0x2430…2464 at002d = ╱20╱…╱ // 0x245d @0x2d
0x2430…2464 at002e = ╱20╱…╱ // 0x245e @0x2e
0x2430…2464 at002f = ╱20╱…╱ // 0x245f @0x2f
0x2430…2464 at0030 = ╱3a╱:╱ // 0x2460 @0x30
0x2430…2464 at0031 = ╱22╱"╱ // 0x2461 @0x31
0x2430…2464 at0032 = ╱ea╱ ; ╱ // 0x2462 @0x32
0x2430…2464 at0033 = EOL // 0x2463 @0x33
0x2430…2464 }
0x2464…248e ba7c 3160 PRINT USING "####.# dg" : S_KREDIT * 360 / VAREKØB
0x2464…248e LineComal80 {
0x2464…248e ptr = 0xba7c // 0x2464 @0x0
0x2464…248e lno = 0x0c58 // 0x2466 @0x2
0x2464…248e at0004 = ╱92╱ PRINT ╱ // 0x2468 @0x4
0x2464…248e at0005 = ╱b9╱ USING ╱ // 0x2469 @0x5
0x2464…248e at0006 = ╱22╱"╱ // 0x246a @0x6
0x2464…248e at0007 = ╱23╱#╱ // 0x246b @0x7
0x2464…248e at0008 = ╱23╱#╱ // 0x246c @0x8
0x2464…248e at0009 = ╱23╱#╱ // 0x246d @0x9
0x2464…248e at000a = ╱23╱#╱ // 0x246e @0xa
0x2464…248e at000b = ╱2e╱.╱ // 0x246f @0xb
0x2464…248e at000c = ╱23╱#╱ // 0x2470 @0xc
0x2464…248e at000d = ╱20╱…╱ // 0x2471 @0xd
0x2464…248e at000e = ╱64╱d╱ // 0x2472 @0xe
0x2464…248e at000f = ╱67╱g╱ // 0x2473 @0xf
0x2464…248e at0010 = ╱22╱"╱ // 0x2474 @0x10
0x2464…248e at0011 = ╱f1╱ : ╱ // 0x2475 @0x11
0x2464…248e at0012 = ╱53╱S╱ // 0x2476 @0x12
0x2464…248e at0013 = ╱5f╱_╱ // 0x2477 @0x13
0x2464…248e at0014 = ╱4b╱K╱ // 0x2478 @0x14
0x2464…248e at0015 = ╱52╱R╱ // 0x2479 @0x15
0x2464…248e at0016 = ╱45╱E╱ // 0x247a @0x16
0x2464…248e at0017 = ╱44╱D╱ // 0x247b @0x17
0x2464…248e at0018 = ╱49╱I╱ // 0x247c @0x18
0x2464…248e at0019 = ╱54╱T╱ // 0x247d @0x19
0x2464…248e at001a = ╱e7╱ * ╱ // 0x247e @0x1a
0x2464…248e at001b = ╱33╱3╱ // 0x247f @0x1b
0x2464…248e at001c = ╱36╱6╱ // 0x2480 @0x1c
0x2464…248e at001d = ╱30╱0╱ // 0x2481 @0x1d
0x2464…248e at001e = ╱f26801╱ // 0x2482 @0x1e
0x2464…248e at0021 = ╱e8╱ / ╱ // 0x2485 @0x21
0x2464…248e at0022 = ╱56╱V╱ // 0x2486 @0x22
0x2464…248e at0023 = ╱41╱A╱ // 0x2487 @0x23
0x2464…248e at0024 = ╱52╱R╱ // 0x2488 @0x24
0x2464…248e at0025 = ╱45╱E╱ // 0x2489 @0x25
0x2464…248e at0026 = ╱4b╱K╱ // 0x248a @0x26
0x2464…248e at0027 = ╱5c╱Ø╱ // 0x248b @0x27
0x2464…248e at0028 = ╱42╱B╱ // 0x248c @0x28
0x2464…248e at0029 = EOL // 0x248d @0x29
0x2464…248e }
0x248e…24a5 ba93 3170 LET LIN_T := LIN_T + 19
0x248e…24a5 LineComal80 {
0x248e…24a5 ptr = 0xba93 // 0x248e @0x0
0x248e…24a5 lno = 0x0c62 // 0x2490 @0x2
0x248e…24a5 at0004 = ╱86╱ LET ╱ // 0x2492 @0x4
0x248e…24a5 at0005 = ╱4c╱L╱ // 0x2493 @0x5
0x248e…24a5 at0006 = ╱49╱I╱ // 0x2494 @0x6
0x248e…24a5 at0007 = ╱4e╱N╱ // 0x2495 @0x7
0x248e…24a5 at0008 = ╱5f╱_╱ // 0x2496 @0x8
0x248e…24a5 at0009 = ╱54╱T╱ // 0x2497 @0x9
0x248e…24a5 at000a = ╱f0╱ := ╱ // 0x2498 @0xa
0x248e…24a5 at000b = ╱4c╱L╱ // 0x2499 @0xb
0x248e…24a5 at000c = ╱49╱I╱ // 0x249a @0xc
0x248e…24a5 at000d = ╱4e╱N╱ // 0x249b @0xd
0x248e…24a5 at000e = ╱5f╱_╱ // 0x249c @0xe
0x248e…24a5 at000f = ╱54╱T╱ // 0x249d @0xf
0x248e…24a5 at0010 = ╱e5╱ + ╱ // 0x249e @0x10
0x248e…24a5 at0011 = ╱31╱1╱ // 0x249f @0x11
0x248e…24a5 at0012 = ╱39╱9╱ // 0x24a0 @0x12
0x248e…24a5 at0013 = ╱f21300╱ // 0x24a1 @0x13
0x248e…24a5 at0016 = EOL // 0x24a4 @0x16
0x248e…24a5 }
0x24a5…24bd baab 3180 FOR I := LIN_T TO AX_LIN DO PRINT
0x24a5…24bd LineComal80 {
0x24a5…24bd ptr = 0xbaab // 0x24a5 @0x0
0x24a5…24bd lno = 0x0c6c // 0x24a7 @0x2
0x24a5…24bd at0004 = ╱b400╱ FOR ╱ // 0x24a9 @0x4
0x24a5…24bd at0006 = ╱49╱I╱ // 0x24ab @0x6
0x24a5…24bd at0007 = ╱f0╱ := ╱ // 0x24ac @0x7
0x24a5…24bd at0008 = ╱4c╱L╱ // 0x24ad @0x8
0x24a5…24bd at0009 = ╱49╱I╱ // 0x24ae @0x9
0x24a5…24bd at000a = ╱4e╱N╱ // 0x24af @0xa
0x24a5…24bd at000b = ╱5f╱_╱ // 0x24b0 @0xb
0x24a5…24bd at000c = ╱54╱T╱ // 0x24b1 @0xc
0x24a5…24bd at000d = ╱b74d╱ TO ╱ // 0x24b2 @0xd
0x24a5…24bd at000f = ╱41╱A╱ // 0x24b4 @0xf
0x24a5…24bd at0010 = ╱58╱X╱ // 0x24b5 @0x10
0x24a5…24bd at0011 = ╱5f╱_╱ // 0x24b6 @0x11
0x24a5…24bd at0012 = ╱4c╱L╱ // 0x24b7 @0x12
0x24a5…24bd at0013 = ╱49╱I╱ // 0x24b8 @0x13
0x24a5…24bd at0014 = ╱4e╱N╱ // 0x24b9 @0x14
0x24a5…24bd at0015 = ╱bb╱ DO ╱ // 0x24ba @0x15
0x24a5…24bd at0016 = ╱92╱ PRINT ╱ // 0x24bb @0x16
0x24a5…24bd at0017 = EOL // 0x24bc @0x17
0x24a5…24bd }
0x24bd…24cb bab9 3190 EXEC PRINTREL
0x24bd…24cb LineComal80 {
0x24bd…24cb ptr = 0xbab9 // 0x24bd @0x0
0x24bd…24cb lno = 0x0c76 // 0x24bf @0x2
0x24bd…24cb at0004 = ╱9d╱ EXEC ╱ // 0x24c1 @0x4
0x24bd…24cb at0005 = ╱50╱P╱ // 0x24c2 @0x5
0x24bd…24cb at0006 = ╱52╱R╱ // 0x24c3 @0x6
0x24bd…24cb at0007 = ╱49╱I╱ // 0x24c4 @0x7
0x24bd…24cb at0008 = ╱4e╱N╱ // 0x24c5 @0x8
0x24bd…24cb at0009 = ╱54╱T╱ // 0x24c6 @0x9
0x24bd…24cb at000a = ╱52╱R╱ // 0x24c7 @0xa
0x24bd…24cb at000b = ╱45╱E╱ // 0x24c8 @0xb
0x24bd…24cb at000c = ╱4c╱L╱ // 0x24c9 @0xc
0x24bd…24cb at000d = EOL // 0x24ca @0xd
0x24bd…24cb }
0x24cb…24d8 bac6 3200 ENDPROC UDSKRIV
0x24cb…24d8 LineComal80 {
0x24cb…24d8 ptr = 0xbac6 // 0x24cb @0x0
0x24cb…24d8 lno = 0x0c80 // 0x24cd @0x2
0x24cb…24d8 at0004 = ╱9f╱ ENDPROC ╱ // 0x24cf @0x4
0x24cb…24d8 at0005 = ╱55╱U╱ // 0x24d0 @0x5
0x24cb…24d8 at0006 = ╱44╱D╱ // 0x24d1 @0x6
0x24cb…24d8 at0007 = ╱53╱S╱ // 0x24d2 @0x7
0x24cb…24d8 at0008 = ╱4b╱K╱ // 0x24d3 @0x8
0x24cb…24d8 at0009 = ╱52╱R╱ // 0x24d4 @0x9
0x24cb…24d8 at000a = ╱49╱I╱ // 0x24d5 @0xa
0x24cb…24d8 at000b = ╱56╱V╱ // 0x24d6 @0xb
0x24cb…24d8 at000c = EOL // 0x24d7 @0xc
0x24cb…24d8 }
0x24d8…24f6 bae4 3210 PROC OMK_I_PROCENT( REF SAMFIL$)
0x24d8…24f6 LineComal80 {
0x24d8…24f6 ptr = 0xbae4 // 0x24d8 @0x0
0x24d8…24f6 lno = 0x0c8a // 0x24da @0x2
0x24d8…24f6 at0004 = ╱9e00╱ PROC ╱ // 0x24dc @0x4
0x24d8…24f6 at0006 = ╱4f╱O╱ // 0x24de @0x6
0x24d8…24f6 at0007 = ╱4d╱M╱ // 0x24df @0x7
0x24d8…24f6 at0008 = ╱4b╱K╱ // 0x24e0 @0x8
0x24d8…24f6 at0009 = ╱5f╱_╱ // 0x24e1 @0x9
0x24d8…24f6 at000a = ╱49╱I╱ // 0x24e2 @0xa
0x24d8…24f6 at000b = ╱5f╱_╱ // 0x24e3 @0xb
0x24d8…24f6 at000c = ╱50╱P╱ // 0x24e4 @0xc
0x24d8…24f6 at000d = ╱52╱R╱ // 0x24e5 @0xd
0x24d8…24f6 at000e = ╱4f╱O╱ // 0x24e6 @0xe
0x24d8…24f6 at000f = ╱43╱C╱ // 0x24e7 @0xf
0x24d8…24f6 at0010 = ╱45╱E╱ // 0x24e8 @0x10
0x24d8…24f6 at0011 = ╱4e╱N╱ // 0x24e9 @0x11
0x24d8…24f6 at0012 = ╱54╱T╱ // 0x24ea @0x12
0x24d8…24f6 at0013 = ╱ed╱(╱ // 0x24eb @0x13
0x24d8…24f6 at0014 = ╱b6╱ REF ╱ // 0x24ec @0x14
0x24d8…24f6 at0015 = ╱53╱S╱ // 0x24ed @0x15
0x24d8…24f6 at0016 = ╱41╱A╱ // 0x24ee @0x16
0x24d8…24f6 at0017 = ╱4d╱M╱ // 0x24ef @0x17
0x24d8…24f6 at0018 = ╱46╱F╱ // 0x24f0 @0x18
0x24d8…24f6 at0019 = ╱49╱I╱ // 0x24f1 @0x19
0x24d8…24f6 at001a = ╱4c╱L╱ // 0x24f2 @0x1a
0x24d8…24f6 at001b = ╱ef╱$╱ // 0x24f3 @0x1b
0x24d8…24f6 at001c = ╱ee╱)╱ // 0x24f4 @0x1c
0x24d8…24f6 at001d = EOL // 0x24f5 @0x1d
0x24d8…24f6 }
0x24f6…2510 bafe 3220 EXEC OPENFIL(SAMFIL$,"R")
0x24f6…2510 LineComal80 {
0x24f6…2510 ptr = 0xbafe // 0x24f6 @0x0
0x24f6…2510 lno = 0x0c94 // 0x24f8 @0x2
0x24f6…2510 at0004 = ╱9d╱ EXEC ╱ // 0x24fa @0x4
0x24f6…2510 at0005 = ╱4f╱O╱ // 0x24fb @0x5
0x24f6…2510 at0006 = ╱50╱P╱ // 0x24fc @0x6
0x24f6…2510 at0007 = ╱45╱E╱ // 0x24fd @0x7
0x24f6…2510 at0008 = ╱4e╱N╱ // 0x24fe @0x8
0x24f6…2510 at0009 = ╱46╱F╱ // 0x24ff @0x9
0x24f6…2510 at000a = ╱49╱I╱ // 0x2500 @0xa
0x24f6…2510 at000b = ╱4c╱L╱ // 0x2501 @0xb
0x24f6…2510 at000c = ╱ed╱(╱ // 0x2502 @0xc
0x24f6…2510 at000d = ╱53╱S╱ // 0x2503 @0xd
0x24f6…2510 at000e = ╱41╱A╱ // 0x2504 @0xe
0x24f6…2510 at000f = ╱4d╱M╱ // 0x2505 @0xf
0x24f6…2510 at0010 = ╱46╱F╱ // 0x2506 @0x10
0x24f6…2510 at0011 = ╱49╱I╱ // 0x2507 @0x11
0x24f6…2510 at0012 = ╱4c╱L╱ // 0x2508 @0x12
0x24f6…2510 at0013 = ╱ef╱$╱ // 0x2509 @0x13
0x24f6…2510 at0014 = ╱ec╱,╱ // 0x250a @0x14
0x24f6…2510 at0015 = ╱22╱"╱ // 0x250b @0x15
0x24f6…2510 at0016 = ╱52╱R╱ // 0x250c @0x16
0x24f6…2510 at0017 = ╱22╱"╱ // 0x250d @0x17
0x24f6…2510 at0018 = ╱ee╱)╱ // 0x250e @0x18
0x24f6…2510 at0019 = EOL // 0x250f @0x19
0x24f6…2510 }
0x2510…2523 bb11 3230 GET SAMFIL$ : SALDO
0x2510…2523 LineComal80 {
0x2510…2523 ptr = 0xbb11 // 0x2510 @0x0
0x2510…2523 lno = 0x0c9e // 0x2512 @0x2
0x2510…2523 at0004 = ╱a9╱ GET ╱ // 0x2514 @0x4
0x2510…2523 at0005 = ╱53╱S╱ // 0x2515 @0x5
0x2510…2523 at0006 = ╱41╱A╱ // 0x2516 @0x6
0x2510…2523 at0007 = ╱4d╱M╱ // 0x2517 @0x7
0x2510…2523 at0008 = ╱46╱F╱ // 0x2518 @0x8
0x2510…2523 at0009 = ╱49╱I╱ // 0x2519 @0x9
0x2510…2523 at000a = ╱4c╱L╱ // 0x251a @0xa
0x2510…2523 at000b = ╱ef╱$╱ // 0x251b @0xb
0x2510…2523 at000c = ╱f1╱ : ╱ // 0x251c @0xc
0x2510…2523 at000d = ╱53╱S╱ // 0x251d @0xd
0x2510…2523 at000e = ╱41╱A╱ // 0x251e @0xe
0x2510…2523 at000f = ╱4c╱L╱ // 0x251f @0xf
0x2510…2523 at0010 = ╱44╱D╱ // 0x2520 @0x10
0x2510…2523 at0011 = ╱4f╱O╱ // 0x2521 @0x11
0x2510…2523 at0012 = EOL // 0x2522 @0x12
0x2510…2523 }
0x2523…2533 bb21 3240 LET SALDO := 0
0x2523…2533 LineComal80 {
0x2523…2533 ptr = 0xbb21 // 0x2523 @0x0
0x2523…2533 lno = 0x0ca8 // 0x2525 @0x2
0x2523…2533 at0004 = ╱86╱ LET ╱ // 0x2527 @0x4
0x2523…2533 at0005 = ╱53╱S╱ // 0x2528 @0x5
0x2523…2533 at0006 = ╱41╱A╱ // 0x2529 @0x6
0x2523…2533 at0007 = ╱4c╱L╱ // 0x252a @0x7
0x2523…2533 at0008 = ╱44╱D╱ // 0x252b @0x8
0x2523…2533 at0009 = ╱4f╱O╱ // 0x252c @0x9
0x2523…2533 at000a = ╱f0╱ := ╱ // 0x252d @0xa
0x2523…2533 at000b = ╱30╱0╱ // 0x252e @0xb
0x2523…2533 at000c = ╱f20000╱ // 0x252f @0xc
0x2523…2533 at000f = EOL // 0x2532 @0xf
0x2523…2533 }
0x2533…2549 bb37 3250 GET SAMFIL$ : S_KTONR$
0x2533…2549 LineComal80 {
0x2533…2549 ptr = 0xbb37 // 0x2533 @0x0
0x2533…2549 lno = 0x0cb2 // 0x2535 @0x2
0x2533…2549 at0004 = ╱a9╱ GET ╱ // 0x2537 @0x4
0x2533…2549 at0005 = ╱53╱S╱ // 0x2538 @0x5
0x2533…2549 at0006 = ╱41╱A╱ // 0x2539 @0x6
0x2533…2549 at0007 = ╱4d╱M╱ // 0x253a @0x7
0x2533…2549 at0008 = ╱46╱F╱ // 0x253b @0x8
0x2533…2549 at0009 = ╱49╱I╱ // 0x253c @0x9
0x2533…2549 at000a = ╱4c╱L╱ // 0x253d @0xa
0x2533…2549 at000b = ╱ef╱$╱ // 0x253e @0xb
0x2533…2549 at000c = ╱f1╱ : ╱ // 0x253f @0xc
0x2533…2549 at000d = ╱53╱S╱ // 0x2540 @0xd
0x2533…2549 at000e = ╱5f╱_╱ // 0x2541 @0xe
0x2533…2549 at000f = ╱4b╱K╱ // 0x2542 @0xf
0x2533…2549 at0010 = ╱54╱T╱ // 0x2543 @0x10
0x2533…2549 at0011 = ╱4f╱O╱ // 0x2544 @0x11
0x2533…2549 at0012 = ╱4e╱N╱ // 0x2545 @0x12
0x2533…2549 at0013 = ╱52╱R╱ // 0x2546 @0x13
0x2533…2549 at0014 = ╱ef╱$╱ // 0x2547 @0x14
0x2533…2549 at0015 = EOL // 0x2548 @0x15
0x2533…2549 }
0x2549…255c bb4a 3260 WHILE NOT ╱cd╱ (SAMFIL$) DO
0x2549…255c LineComal80 {
0x2549…255c ptr = 0xbb4a // 0x2549 @0x0
0x2549…255c lno = 0x0cbc // 0x254b @0x2
0x2549…255c at0004 = ╱9300╱ WHILE ╱ // 0x254d @0x4
0x2549…255c at0006 = ╱d7╱ NOT ╱ // 0x254f @0x6
0x2549…255c at0007 = ╱cd╱ // 0x2550 @0x7
0x2549…255c at0008 = ╱ed╱(╱ // 0x2551 @0x8
0x2549…255c at0009 = ╱53╱S╱ // 0x2552 @0x9
0x2549…255c at000a = ╱41╱A╱ // 0x2553 @0xa
0x2549…255c at000b = ╱4d╱M╱ // 0x2554 @0xb
0x2549…255c at000c = ╱46╱F╱ // 0x2555 @0xc
0x2549…255c at000d = ╱49╱I╱ // 0x2556 @0xd
0x2549…255c at000e = ╱4c╱L╱ // 0x2557 @0xe
0x2549…255c at000f = ╱ef╱$╱ // 0x2558 @0xf
0x2549…255c at0010 = ╱ee╱)╱ // 0x2559 @0x10
0x2549…255c at0011 = ╱bb╱ DO ╱ // 0x255a @0x11
0x2549…255c at0012 = EOL // 0x255b @0x12
0x2549…255c }
0x255c…257b bb69 3270 LET IDXPOS := FIND_KTO(S_KTONR$)
0x255c…257b LineComal80 {
0x255c…257b ptr = 0xbb69 // 0x255c @0x0
0x255c…257b lno = 0x0cc6 // 0x255e @0x2
0x255c…257b at0004 = ╱86╱ LET ╱ // 0x2560 @0x4
0x255c…257b at0005 = ╱49╱I╱ // 0x2561 @0x5
0x255c…257b at0006 = ╱44╱D╱ // 0x2562 @0x6
0x255c…257b at0007 = ╱58╱X╱ // 0x2563 @0x7
0x255c…257b at0008 = ╱50╱P╱ // 0x2564 @0x8
0x255c…257b at0009 = ╱4f╱O╱ // 0x2565 @0x9
0x255c…257b at000a = ╱53╱S╱ // 0x2566 @0xa
0x255c…257b at000b = ╱f0╱ := ╱ // 0x2567 @0xb
0x255c…257b at000c = ╱46╱F╱ // 0x2568 @0xc
0x255c…257b at000d = ╱49╱I╱ // 0x2569 @0xd
0x255c…257b at000e = ╱4e╱N╱ // 0x256a @0xe
0x255c…257b at000f = ╱44╱D╱ // 0x256b @0xf
0x255c…257b at0010 = ╱5f╱_╱ // 0x256c @0x10
0x255c…257b at0011 = ╱4b╱K╱ // 0x256d @0x11
0x255c…257b at0012 = ╱54╱T╱ // 0x256e @0x12
0x255c…257b at0013 = ╱4f╱O╱ // 0x256f @0x13
0x255c…257b at0014 = ╱ed╱(╱ // 0x2570 @0x14
0x255c…257b at0015 = ╱53╱S╱ // 0x2571 @0x15
0x255c…257b at0016 = ╱5f╱_╱ // 0x2572 @0x16
0x255c…257b at0017 = ╱4b╱K╱ // 0x2573 @0x17
0x255c…257b at0018 = ╱54╱T╱ // 0x2574 @0x18
0x255c…257b at0019 = ╱4f╱O╱ // 0x2575 @0x19
0x255c…257b at001a = ╱4e╱N╱ // 0x2576 @0x1a
0x255c…257b at001b = ╱52╱R╱ // 0x2577 @0x1b
0x255c…257b at001c = ╱ef╱$╱ // 0x2578 @0x1c
0x255c…257b at001d = ╱ee╱)╱ // 0x2579 @0x1d
0x255c…257b at001e = EOL // 0x257a @0x1e
0x255c…257b }
0x257b…259c bb8a 3280 GET KTOIDX$,IDXPOS : KTONR$,RECNR
0x257b…259c LineComal80 {
0x257b…259c ptr = 0xbb8a // 0x257b @0x0
0x257b…259c lno = 0x0cd0 // 0x257d @0x2
0x257b…259c at0004 = ╱a9╱ GET ╱ // 0x257f @0x4
0x257b…259c at0005 = ╱4b╱K╱ // 0x2580 @0x5
0x257b…259c at0006 = ╱54╱T╱ // 0x2581 @0x6
0x257b…259c at0007 = ╱4f╱O╱ // 0x2582 @0x7
0x257b…259c at0008 = ╱49╱I╱ // 0x2583 @0x8
0x257b…259c at0009 = ╱44╱D╱ // 0x2584 @0x9
0x257b…259c at000a = ╱58╱X╱ // 0x2585 @0xa
0x257b…259c at000b = ╱ef╱$╱ // 0x2586 @0xb
0x257b…259c at000c = ╱ec╱,╱ // 0x2587 @0xc
0x257b…259c at000d = ╱49╱I╱ // 0x2588 @0xd
0x257b…259c at000e = ╱44╱D╱ // 0x2589 @0xe
0x257b…259c at000f = ╱58╱X╱ // 0x258a @0xf
0x257b…259c at0010 = ╱50╱P╱ // 0x258b @0x10
0x257b…259c at0011 = ╱4f╱O╱ // 0x258c @0x11
0x257b…259c at0012 = ╱53╱S╱ // 0x258d @0x12
0x257b…259c at0013 = ╱f1╱ : ╱ // 0x258e @0x13
0x257b…259c at0014 = ╱4b╱K╱ // 0x258f @0x14
0x257b…259c at0015 = ╱54╱T╱ // 0x2590 @0x15
0x257b…259c at0016 = ╱4f╱O╱ // 0x2591 @0x16
0x257b…259c at0017 = ╱4e╱N╱ // 0x2592 @0x17
0x257b…259c at0018 = ╱52╱R╱ // 0x2593 @0x18
0x257b…259c at0019 = ╱ef╱$╱ // 0x2594 @0x19
0x257b…259c at001a = ╱ec╱,╱ // 0x2595 @0x1a
0x257b…259c at001b = ╱52╱R╱ // 0x2596 @0x1b
0x257b…259c at001c = ╱45╱E╱ // 0x2597 @0x1c
0x257b…259c at001d = ╱43╱C╱ // 0x2598 @0x1d
0x257b…259c at001e = ╱4e╱N╱ // 0x2599 @0x1e
0x257b…259c at001f = ╱52╱R╱ // 0x259a @0x1f
0x257b…259c at0020 = EOL // 0x259b @0x20
0x257b…259c }
0x259c…25c5 bbb3 3290 WHILE S_KTONR$ = KTONR$(1 : ╱cb╱ (S_KTONR$)) DO
0x259c…25c5 LineComal80 {
0x259c…25c5 ptr = 0xbbb3 // 0x259c @0x0
0x259c…25c5 lno = 0x0cda // 0x259e @0x2
0x259c…25c5 at0004 = ╱9300╱ WHILE ╱ // 0x25a0 @0x4
0x259c…25c5 at0006 = ╱53╱S╱ // 0x25a2 @0x6
0x259c…25c5 at0007 = ╱5f╱_╱ // 0x25a3 @0x7
0x259c…25c5 at0008 = ╱4b╱K╱ // 0x25a4 @0x8
0x259c…25c5 at0009 = ╱54╱T╱ // 0x25a5 @0x9
0x259c…25c5 at000a = ╱4f╱O╱ // 0x25a6 @0xa
0x259c…25c5 at000b = ╱4e╱N╱ // 0x25a7 @0xb
0x259c…25c5 at000c = ╱52╱R╱ // 0x25a8 @0xc
0x259c…25c5 at000d = ╱ef╱$╱ // 0x25a9 @0xd
0x259c…25c5 at000e = ╱df╱ = ╱ // 0x25aa @0xe
0x259c…25c5 at000f = ╱4b╱K╱ // 0x25ab @0xf
0x259c…25c5 at0010 = ╱54╱T╱ // 0x25ac @0x10
0x259c…25c5 at0011 = ╱4f╱O╱ // 0x25ad @0x11
0x259c…25c5 at0012 = ╱4e╱N╱ // 0x25ae @0x12
0x259c…25c5 at0013 = ╱52╱R╱ // 0x25af @0x13
0x259c…25c5 at0014 = ╱ef╱$╱ // 0x25b0 @0x14
0x259c…25c5 at0015 = ╱ed╱(╱ // 0x25b1 @0x15
0x259c…25c5 at0016 = ╱31╱1╱ // 0x25b2 @0x16
0x259c…25c5 at0017 = ╱f20100╱ // 0x25b3 @0x17
0x259c…25c5 at001a = ╱f1╱ : ╱ // 0x25b6 @0x1a
0x259c…25c5 at001b = ╱cb╱ // 0x25b7 @0x1b
0x259c…25c5 at001c = ╱ed╱(╱ // 0x25b8 @0x1c
0x259c…25c5 at001d = ╱53╱S╱ // 0x25b9 @0x1d
0x259c…25c5 at001e = ╱5f╱_╱ // 0x25ba @0x1e
0x259c…25c5 at001f = ╱4b╱K╱ // 0x25bb @0x1f
0x259c…25c5 at0020 = ╱54╱T╱ // 0x25bc @0x20
0x259c…25c5 at0021 = ╱4f╱O╱ // 0x25bd @0x21
0x259c…25c5 at0022 = ╱4e╱N╱ // 0x25be @0x22
0x259c…25c5 at0023 = ╱52╱R╱ // 0x25bf @0x23
0x259c…25c5 at0024 = ╱ef╱$╱ // 0x25c0 @0x24
0x259c…25c5 at0025 = ╱ee╱)╱ // 0x25c1 @0x25
0x259c…25c5 at0026 = ╱ee╱)╱ // 0x25c2 @0x26
0x259c…25c5 at0027 = ╱bb╱ DO ╱ // 0x25c3 @0x27
0x259c…25c5 at0028 = EOL // 0x25c4 @0x28
0x259c…25c5 }
0x25c5…25db bbc9 3300 EXEC LÆS_KONTO(RECNR)
0x25c5…25db LineComal80 {
0x25c5…25db ptr = 0xbbc9 // 0x25c5 @0x0
0x25c5…25db lno = 0x0ce4 // 0x25c7 @0x2
0x25c5…25db at0004 = ╱9d╱ EXEC ╱ // 0x25c9 @0x4
0x25c5…25db at0005 = ╱4c╱L╱ // 0x25ca @0x5
0x25c5…25db at0006 = ╱5b╱Æ╱ // 0x25cb @0x6
0x25c5…25db at0007 = ╱53╱S╱ // 0x25cc @0x7
0x25c5…25db at0008 = ╱5f╱_╱ // 0x25cd @0x8
0x25c5…25db at0009 = ╱4b╱K╱ // 0x25ce @0x9
0x25c5…25db at000a = ╱4f╱O╱ // 0x25cf @0xa
0x25c5…25db at000b = ╱4e╱N╱ // 0x25d0 @0xb
0x25c5…25db at000c = ╱54╱T╱ // 0x25d1 @0xc
0x25c5…25db at000d = ╱4f╱O╱ // 0x25d2 @0xd
0x25c5…25db at000e = ╱ed╱(╱ // 0x25d3 @0xe
0x25c5…25db at000f = ╱52╱R╱ // 0x25d4 @0xf
0x25c5…25db at0010 = ╱45╱E╱ // 0x25d5 @0x10
0x25c5…25db at0011 = ╱43╱C╱ // 0x25d6 @0x11
0x25c5…25db at0012 = ╱4e╱N╱ // 0x25d7 @0x12
0x25c5…25db at0013 = ╱52╱R╱ // 0x25d8 @0x13
0x25c5…25db at0014 = ╱ee╱)╱ // 0x25d9 @0x14
0x25c5…25db at0015 = EOL // 0x25da @0x15
0x25c5…25db }
0x25db…2606 bbf4 3310 GET DRIFTØ$,RECNR : DRIFT(1),DRIFT(2)
0x25db…2606 LineComal80 {
0x25db…2606 ptr = 0xbbf4 // 0x25db @0x0
0x25db…2606 lno = 0x0cee // 0x25dd @0x2
0x25db…2606 at0004 = ╱a9╱ GET ╱ // 0x25df @0x4
0x25db…2606 at0005 = ╱44╱D╱ // 0x25e0 @0x5
0x25db…2606 at0006 = ╱52╱R╱ // 0x25e1 @0x6
0x25db…2606 at0007 = ╱49╱I╱ // 0x25e2 @0x7
0x25db…2606 at0008 = ╱46╱F╱ // 0x25e3 @0x8
0x25db…2606 at0009 = ╱54╱T╱ // 0x25e4 @0x9
0x25db…2606 at000a = ╱5c╱Ø╱ // 0x25e5 @0xa
0x25db…2606 at000b = ╱ef╱$╱ // 0x25e6 @0xb
0x25db…2606 at000c = ╱ec╱,╱ // 0x25e7 @0xc
0x25db…2606 at000d = ╱52╱R╱ // 0x25e8 @0xd
0x25db…2606 at000e = ╱45╱E╱ // 0x25e9 @0xe
0x25db…2606 at000f = ╱43╱C╱ // 0x25ea @0xf
0x25db…2606 at0010 = ╱4e╱N╱ // 0x25eb @0x10
0x25db…2606 at0011 = ╱52╱R╱ // 0x25ec @0x11
0x25db…2606 at0012 = ╱f1╱ : ╱ // 0x25ed @0x12
0x25db…2606 at0013 = ╱44╱D╱ // 0x25ee @0x13
0x25db…2606 at0014 = ╱52╱R╱ // 0x25ef @0x14
0x25db…2606 at0015 = ╱49╱I╱ // 0x25f0 @0x15
0x25db…2606 at0016 = ╱46╱F╱ // 0x25f1 @0x16
0x25db…2606 at0017 = ╱54╱T╱ // 0x25f2 @0x17
0x25db…2606 at0018 = ╱ed╱(╱ // 0x25f3 @0x18
0x25db…2606 at0019 = ╱31╱1╱ // 0x25f4 @0x19
0x25db…2606 at001a = ╱f20100╱ // 0x25f5 @0x1a
0x25db…2606 at001d = ╱ee╱)╱ // 0x25f8 @0x1d
0x25db…2606 at001e = ╱ec╱,╱ // 0x25f9 @0x1e
0x25db…2606 at001f = ╱44╱D╱ // 0x25fa @0x1f
0x25db…2606 at0020 = ╱52╱R╱ // 0x25fb @0x20
0x25db…2606 at0021 = ╱49╱I╱ // 0x25fc @0x21
0x25db…2606 at0022 = ╱46╱F╱ // 0x25fd @0x22
0x25db…2606 at0023 = ╱54╱T╱ // 0x25fe @0x23
0x25db…2606 at0024 = ╱ed╱(╱ // 0x25ff @0x24
0x25db…2606 at0025 = ╱32╱2╱ // 0x2600 @0x25
0x25db…2606 at0026 = ╱f20200╱ // 0x2601 @0x26
0x25db…2606 at0029 = ╱ee╱)╱ // 0x2604 @0x29
0x25db…2606 at002a = EOL // 0x2605 @0x2a
0x25db…2606 }
0x2606…261b bc09 3320 IF TO_TYPE$ = "A" THEN
0x2606…261b LineComal80 {
0x2606…261b ptr = 0xbc09 // 0x2606 @0x0
0x2606…261b lno = 0x0cf8 // 0x2608 @0x2
0x2606…261b at0004 = ╱9b004b╱ IF ╱ // 0x260a @0x4
0x2606…261b at0007 = ╱54╱T╱ // 0x260d @0x7
0x2606…261b at0008 = ╱4f╱O╱ // 0x260e @0x8
0x2606…261b at0009 = ╱5f╱_╱ // 0x260f @0x9
0x2606…261b at000a = ╱54╱T╱ // 0x2610 @0xa
0x2606…261b at000b = ╱59╱Y╱ // 0x2611 @0xb
0x2606…261b at000c = ╱50╱P╱ // 0x2612 @0xc
0x2606…261b at000d = ╱45╱E╱ // 0x2613 @0xd
0x2606…261b at000e = ╱ef╱$╱ // 0x2614 @0xe
0x2606…261b at000f = ╱df╱ = ╱ // 0x2615 @0xf
0x2606…261b at0010 = ╱22╱"╱ // 0x2616 @0x10
0x2606…261b at0011 = ╱41╱A╱ // 0x2617 @0x11
0x2606…261b at0012 = ╱22╱"╱ // 0x2618 @0x12
0x2606…261b at0013 = ╱b5╱ THEN ╱ // 0x2619 @0x13
0x2606…261b at0014 = EOL // 0x261a @0x14
0x2606…261b }
0x261b…2641 bc2f 3330 PRINT " " ; KTO_NAVN$ ; TAB(43) ; ":" ;
0x261b…2641 LineComal80 {
0x261b…2641 ptr = 0xbc2f // 0x261b @0x0
0x261b…2641 lno = 0x0d02 // 0x261d @0x2
0x261b…2641 at0004 = ╱92╱ PRINT ╱ // 0x261f @0x4
0x261b…2641 at0005 = ╱22╱"╱ // 0x2620 @0x5
0x261b…2641 at0006 = ╱20╱…╱ // 0x2621 @0x6
0x261b…2641 at0007 = ╱20╱…╱ // 0x2622 @0x7
0x261b…2641 at0008 = ╱20╱…╱ // 0x2623 @0x8
0x261b…2641 at0009 = ╱20╱…╱ // 0x2624 @0x9
0x261b…2641 at000a = ╱20╱…╱ // 0x2625 @0xa
0x261b…2641 at000b = ╱20╱…╱ // 0x2626 @0xb
0x261b…2641 at000c = ╱22╱"╱ // 0x2627 @0xc
0x261b…2641 at000d = ╱ea╱ ; ╱ // 0x2628 @0xd
0x261b…2641 at000e = ╱4b╱K╱ // 0x2629 @0xe
0x261b…2641 at000f = ╱54╱T╱ // 0x262a @0xf
0x261b…2641 at0010 = ╱4f╱O╱ // 0x262b @0x10
0x261b…2641 at0011 = ╱5f╱_╱ // 0x262c @0x11
0x261b…2641 at0012 = ╱4e╱N╱ // 0x262d @0x12
0x261b…2641 at0013 = ╱41╱A╱ // 0x262e @0x13
0x261b…2641 at0014 = ╱56╱V╱ // 0x262f @0x14
0x261b…2641 at0015 = ╱4e╱N╱ // 0x2630 @0x15
0x261b…2641 at0016 = ╱ef╱$╱ // 0x2631 @0x16
0x261b…2641 at0017 = ╱ea╱ ; ╱ // 0x2632 @0x17
0x261b…2641 at0018 = ╱d2╱TAB╱ // 0x2633 @0x18
0x261b…2641 at0019 = ╱ed╱(╱ // 0x2634 @0x19
0x261b…2641 at001a = ╱34╱4╱ // 0x2635 @0x1a
0x261b…2641 at001b = ╱33╱3╱ // 0x2636 @0x1b
0x261b…2641 at001c = ╱f22b00╱ // 0x2637 @0x1c
0x261b…2641 at001f = ╱ee╱)╱ // 0x263a @0x1f
0x261b…2641 at0020 = ╱ea╱ ; ╱ // 0x263b @0x20
0x261b…2641 at0021 = ╱22╱"╱ // 0x263c @0x21
0x261b…2641 at0022 = ╱3a╱:╱ // 0x263d @0x22
0x261b…2641 at0023 = ╱22╱"╱ // 0x263e @0x23
0x261b…2641 at0024 = ╱ea╱ ; ╱ // 0x263f @0x24
0x261b…2641 at0025 = EOL // 0x2640 @0x25
0x261b…2641 }
0x2641…2671 bc5f 3340 PRINT USING "###.## %" : ABS(DRIFT(2) * 100) / S_OMSÆTN
0x2641…2671 LineComal80 {
0x2641…2671 ptr = 0xbc5f // 0x2641 @0x0
0x2641…2671 lno = 0x0d0c // 0x2643 @0x2
0x2641…2671 at0004 = ╱92╱ PRINT ╱ // 0x2645 @0x4
0x2641…2671 at0005 = ╱b9╱ USING ╱ // 0x2646 @0x5
0x2641…2671 at0006 = ╱22╱"╱ // 0x2647 @0x6
0x2641…2671 at0007 = ╱23╱#╱ // 0x2648 @0x7
0x2641…2671 at0008 = ╱23╱#╱ // 0x2649 @0x8
0x2641…2671 at0009 = ╱23╱#╱ // 0x264a @0x9
0x2641…2671 at000a = ╱2e╱.╱ // 0x264b @0xa
0x2641…2671 at000b = ╱23╱#╱ // 0x264c @0xb
0x2641…2671 at000c = ╱23╱#╱ // 0x264d @0xc
0x2641…2671 at000d = ╱20╱…╱ // 0x264e @0xd
0x2641…2671 at000e = ╱25╱%╱ // 0x264f @0xe
0x2641…2671 at000f = ╱22╱"╱ // 0x2650 @0xf
0x2641…2671 at0010 = ╱f1╱ : ╱ // 0x2651 @0x10
0x2641…2671 at0011 = ╱c4╱ABS╱ // 0x2652 @0x11
0x2641…2671 at0012 = ╱ed╱(╱ // 0x2653 @0x12
0x2641…2671 at0013 = ╱44╱D╱ // 0x2654 @0x13
0x2641…2671 at0014 = ╱52╱R╱ // 0x2655 @0x14
0x2641…2671 at0015 = ╱49╱I╱ // 0x2656 @0x15
0x2641…2671 at0016 = ╱46╱F╱ // 0x2657 @0x16
0x2641…2671 at0017 = ╱54╱T╱ // 0x2658 @0x17
0x2641…2671 at0018 = ╱ed╱(╱ // 0x2659 @0x18
0x2641…2671 at0019 = ╱32╱2╱ // 0x265a @0x19
0x2641…2671 at001a = ╱f20200╱ // 0x265b @0x1a
0x2641…2671 at001d = ╱ee╱)╱ // 0x265e @0x1d
0x2641…2671 at001e = ╱e7╱ * ╱ // 0x265f @0x1e
0x2641…2671 at001f = ╱31╱1╱ // 0x2660 @0x1f
0x2641…2671 at0020 = ╱30╱0╱ // 0x2661 @0x20
0x2641…2671 at0021 = ╱30╱0╱ // 0x2662 @0x21
0x2641…2671 at0022 = ╱f26400╱ // 0x2663 @0x22
0x2641…2671 at0025 = ╱ee╱)╱ // 0x2666 @0x25
0x2641…2671 at0026 = ╱e8╱ / ╱ // 0x2667 @0x26
0x2641…2671 at0027 = ╱53╱S╱ // 0x2668 @0x27
0x2641…2671 at0028 = ╱5f╱_╱ // 0x2669 @0x28
0x2641…2671 at0029 = ╱4f╱O╱ // 0x266a @0x29
0x2641…2671 at002a = ╱4d╱M╱ // 0x266b @0x2a
0x2641…2671 at002b = ╱53╱S╱ // 0x266c @0x2b
0x2641…2671 at002c = ╱5b╱Æ╱ // 0x266d @0x2c
0x2641…2671 at002d = ╱54╱T╱ // 0x266e @0x2d
0x2641…2671 at002e = ╱4e╱N╱ // 0x266f @0x2e
0x2641…2671 at002f = EOL // 0x2670 @0x2f
0x2641…2671 }
0x2671…2687 bc75 3350 LET LIN_T := LIN_T + 1
0x2671…2687 LineComal80 {
0x2671…2687 ptr = 0xbc75 // 0x2671 @0x0
0x2671…2687 lno = 0x0d16 // 0x2673 @0x2
0x2671…2687 at0004 = ╱86╱ LET ╱ // 0x2675 @0x4
0x2671…2687 at0005 = ╱4c╱L╱ // 0x2676 @0x5
0x2671…2687 at0006 = ╱49╱I╱ // 0x2677 @0x6
0x2671…2687 at0007 = ╱4e╱N╱ // 0x2678 @0x7
0x2671…2687 at0008 = ╱5f╱_╱ // 0x2679 @0x8
0x2671…2687 at0009 = ╱54╱T╱ // 0x267a @0x9
0x2671…2687 at000a = ╱f0╱ := ╱ // 0x267b @0xa
0x2671…2687 at000b = ╱4c╱L╱ // 0x267c @0xb
0x2671…2687 at000c = ╱49╱I╱ // 0x267d @0xc
0x2671…2687 at000d = ╱4e╱N╱ // 0x267e @0xd
0x2671…2687 at000e = ╱5f╱_╱ // 0x267f @0xe
0x2671…2687 at000f = ╱54╱T╱ // 0x2680 @0xf
0x2671…2687 at0010 = ╱e5╱ + ╱ // 0x2681 @0x10
0x2671…2687 at0011 = ╱31╱1╱ // 0x2682 @0x11
0x2671…2687 at0012 = ╱f20100╱ // 0x2683 @0x12
0x2671…2687 at0015 = EOL // 0x2686 @0x15
0x2671…2687 }
0x2687…268d bc7b 3360 ENDIF
0x2687…268d LineComal80 {
0x2687…268d ptr = 0xbc7b // 0x2687 @0x0
0x2687…268d lno = 0x0d20 // 0x2689 @0x2
0x2687…268d at0004 = ╱9c╱ ENDIF ╱ // 0x268b @0x4
0x2687…268d at0005 = EOL // 0x268c @0x5
0x2687…268d }
0x268d…26a5 bc93 3370 LET IDXPOS := IDXPOS + 1
0x268d…26a5 LineComal80 {
0x268d…26a5 ptr = 0xbc93 // 0x268d @0x0
0x268d…26a5 lno = 0x0d2a // 0x268f @0x2
0x268d…26a5 at0004 = ╱86╱ LET ╱ // 0x2691 @0x4
0x268d…26a5 at0005 = ╱49╱I╱ // 0x2692 @0x5
0x268d…26a5 at0006 = ╱44╱D╱ // 0x2693 @0x6
0x268d…26a5 at0007 = ╱58╱X╱ // 0x2694 @0x7
0x268d…26a5 at0008 = ╱50╱P╱ // 0x2695 @0x8
0x268d…26a5 at0009 = ╱4f╱O╱ // 0x2696 @0x9
0x268d…26a5 at000a = ╱53╱S╱ // 0x2697 @0xa
0x268d…26a5 at000b = ╱f0╱ := ╱ // 0x2698 @0xb
0x268d…26a5 at000c = ╱49╱I╱ // 0x2699 @0xc
0x268d…26a5 at000d = ╱44╱D╱ // 0x269a @0xd
0x268d…26a5 at000e = ╱58╱X╱ // 0x269b @0xe
0x268d…26a5 at000f = ╱50╱P╱ // 0x269c @0xf
0x268d…26a5 at0010 = ╱4f╱O╱ // 0x269d @0x10
0x268d…26a5 at0011 = ╱53╱S╱ // 0x269e @0x11
0x268d…26a5 at0012 = ╱e5╱ + ╱ // 0x269f @0x12
0x268d…26a5 at0013 = ╱31╱1╱ // 0x26a0 @0x13
0x268d…26a5 at0014 = ╱f20100╱ // 0x26a1 @0x14
0x268d…26a5 at0017 = EOL // 0x26a4 @0x17
0x268d…26a5 }
0x26a5…26bd bcab 3380 IF IDXPOS > I_HØJREC THEN EXIT
0x26a5…26bd LineComal80 {
0x26a5…26bd ptr = 0xbcab // 0x26a5 @0x0
0x26a5…26bd lno = 0x0d34 // 0x26a7 @0x2
0x26a5…26bd at0004 = ╱8200╱ IF ╱ // 0x26a9 @0x4
0x26a5…26bd at0006 = ╱49╱I╱ // 0x26ab @0x6
0x26a5…26bd at0007 = ╱44╱D╱ // 0x26ac @0x7
0x26a5…26bd at0008 = ╱58╱X╱ // 0x26ad @0x8
0x26a5…26bd at0009 = ╱50╱P╱ // 0x26ae @0x9
0x26a5…26bd at000a = ╱4f╱O╱ // 0x26af @0xa
0x26a5…26bd at000b = ╱53╱S╱ // 0x26b0 @0xb
0x26a5…26bd at000c = ╱e1╱ > ╱ // 0x26b1 @0xc
0x26a5…26bd at000d = ╱49╱I╱ // 0x26b2 @0xd
0x26a5…26bd at000e = ╱5f╱_╱ // 0x26b3 @0xe
0x26a5…26bd at000f = ╱48╱H╱ // 0x26b4 @0xf
0x26a5…26bd at0010 = ╱5c╱Ø╱ // 0x26b5 @0x10
0x26a5…26bd at0011 = ╱4a╱J╱ // 0x26b6 @0x11
0x26a5…26bd at0012 = ╱52╱R╱ // 0x26b7 @0x12
0x26a5…26bd at0013 = ╱45╱E╱ // 0x26b8 @0x13
0x26a5…26bd at0014 = ╱43╱C╱ // 0x26b9 @0x14
0x26a5…26bd at0015 = ╱b5╱ THEN ╱ // 0x26ba @0x15
0x26a5…26bd at0016 = ╱99╱ EXIT ╱ // 0x26bb @0x16
0x26a5…26bd at0017 = EOL // 0x26bc @0x17
0x26a5…26bd }
0x26bd…26de bccc 3390 GET KTOIDX$,IDXPOS : KTONR$,RECNR
0x26bd…26de LineComal80 {
0x26bd…26de ptr = 0xbccc // 0x26bd @0x0
0x26bd…26de lno = 0x0d3e // 0x26bf @0x2
0x26bd…26de at0004 = ╱a9╱ GET ╱ // 0x26c1 @0x4
0x26bd…26de at0005 = ╱4b╱K╱ // 0x26c2 @0x5
0x26bd…26de at0006 = ╱54╱T╱ // 0x26c3 @0x6
0x26bd…26de at0007 = ╱4f╱O╱ // 0x26c4 @0x7
0x26bd…26de at0008 = ╱49╱I╱ // 0x26c5 @0x8
0x26bd…26de at0009 = ╱44╱D╱ // 0x26c6 @0x9
0x26bd…26de at000a = ╱58╱X╱ // 0x26c7 @0xa
0x26bd…26de at000b = ╱ef╱$╱ // 0x26c8 @0xb
0x26bd…26de at000c = ╱ec╱,╱ // 0x26c9 @0xc
0x26bd…26de at000d = ╱49╱I╱ // 0x26ca @0xd
0x26bd…26de at000e = ╱44╱D╱ // 0x26cb @0xe
0x26bd…26de at000f = ╱58╱X╱ // 0x26cc @0xf
0x26bd…26de at0010 = ╱50╱P╱ // 0x26cd @0x10
0x26bd…26de at0011 = ╱4f╱O╱ // 0x26ce @0x11
0x26bd…26de at0012 = ╱53╱S╱ // 0x26cf @0x12
0x26bd…26de at0013 = ╱f1╱ : ╱ // 0x26d0 @0x13
0x26bd…26de at0014 = ╱4b╱K╱ // 0x26d1 @0x14
0x26bd…26de at0015 = ╱54╱T╱ // 0x26d2 @0x15
0x26bd…26de at0016 = ╱4f╱O╱ // 0x26d3 @0x16
0x26bd…26de at0017 = ╱4e╱N╱ // 0x26d4 @0x17
0x26bd…26de at0018 = ╱52╱R╱ // 0x26d5 @0x18
0x26bd…26de at0019 = ╱ef╱$╱ // 0x26d6 @0x19
0x26bd…26de at001a = ╱ec╱,╱ // 0x26d7 @0x1a
0x26bd…26de at001b = ╱52╱R╱ // 0x26d8 @0x1b
0x26bd…26de at001c = ╱45╱E╱ // 0x26d9 @0x1c
0x26bd…26de at001d = ╱43╱C╱ // 0x26da @0x1d
0x26bd…26de at001e = ╱4e╱N╱ // 0x26db @0x1e
0x26bd…26de at001f = ╱52╱R╱ // 0x26dc @0x1f
0x26bd…26de at0020 = EOL // 0x26dd @0x20
0x26bd…26de }
0x26de…26e4 bcd2 3400 ENDWHILE
0x26de…26e4 LineComal80 {
0x26de…26e4 ptr = 0xbcd2 // 0x26de @0x0
0x26de…26e4 lno = 0x0d48 // 0x26e0 @0x2
0x26de…26e4 at0004 = ╱94╱ ENDWHILE ╱ // 0x26e2 @0x4
0x26de…26e4 at0005 = EOL // 0x26e3 @0x5
0x26de…26e4 }
0x26e4…26fa bce8 3410 GET SAMFIL$ : S_KTONR$
0x26e4…26fa LineComal80 {
0x26e4…26fa ptr = 0xbce8 // 0x26e4 @0x0
0x26e4…26fa lno = 0x0d52 // 0x26e6 @0x2
0x26e4…26fa at0004 = ╱a9╱ GET ╱ // 0x26e8 @0x4
0x26e4…26fa at0005 = ╱53╱S╱ // 0x26e9 @0x5
0x26e4…26fa at0006 = ╱41╱A╱ // 0x26ea @0x6
0x26e4…26fa at0007 = ╱4d╱M╱ // 0x26eb @0x7
0x26e4…26fa at0008 = ╱46╱F╱ // 0x26ec @0x8
0x26e4…26fa at0009 = ╱49╱I╱ // 0x26ed @0x9
0x26e4…26fa at000a = ╱4c╱L╱ // 0x26ee @0xa
0x26e4…26fa at000b = ╱ef╱$╱ // 0x26ef @0xb
0x26e4…26fa at000c = ╱f1╱ : ╱ // 0x26f0 @0xc
0x26e4…26fa at000d = ╱53╱S╱ // 0x26f1 @0xd
0x26e4…26fa at000e = ╱5f╱_╱ // 0x26f2 @0xe
0x26e4…26fa at000f = ╱4b╱K╱ // 0x26f3 @0xf
0x26e4…26fa at0010 = ╱54╱T╱ // 0x26f4 @0x10
0x26e4…26fa at0011 = ╱4f╱O╱ // 0x26f5 @0x11
0x26e4…26fa at0012 = ╱4e╱N╱ // 0x26f6 @0x12
0x26e4…26fa at0013 = ╱52╱R╱ // 0x26f7 @0x13
0x26e4…26fa at0014 = ╱ef╱$╱ // 0x26f8 @0x14
0x26e4…26fa at0015 = EOL // 0x26f9 @0x15
0x26e4…26fa }
0x26fa…2700 bcee 3420 ENDWHILE
0x26fa…2700 LineComal80 {
0x26fa…2700 ptr = 0xbcee // 0x26fa @0x0
0x26fa…2700 lno = 0x0d5c // 0x26fc @0x2
0x26fa…2700 at0004 = ╱94╱ ENDWHILE ╱ // 0x26fe @0x4
0x26fa…2700 at0005 = EOL // 0x26ff @0x5
0x26fa…2700 }
0x2700…270d bcfb 3430 CLOSE SAMFIL$
0x2700…270d LineComal80 {
0x2700…270d ptr = 0xbcfb // 0x2700 @0x0
0x2700…270d lno = 0x0d66 // 0x2702 @0x2
0x2700…270d at0004 = ╱a8╱ CLOSE ╱ // 0x2704 @0x4
0x2700…270d at0005 = ╱53╱S╱ // 0x2705 @0x5
0x2700…270d at0006 = ╱41╱A╱ // 0x2706 @0x6
0x2700…270d at0007 = ╱4d╱M╱ // 0x2707 @0x7
0x2700…270d at0008 = ╱46╱F╱ // 0x2708 @0x8
0x2700…270d at0009 = ╱49╱I╱ // 0x2709 @0x9
0x2700…270d at000a = ╱4c╱L╱ // 0x270a @0xa
0x2700…270d at000b = ╱ef╱$╱ // 0x270b @0xb
0x2700…270d at000c = EOL // 0x270c @0xc
0x2700…270d }
0x270d…2720 bd0e 3440 ENDPROC OMK_I_PROCENT
0x270d…2720 LineComal80 {
0x270d…2720 ptr = 0xbd0e // 0x270d @0x0
0x270d…2720 lno = 0x0d70 // 0x270f @0x2
0x270d…2720 at0004 = ╱9f╱ ENDPROC ╱ // 0x2711 @0x4
0x270d…2720 at0005 = ╱4f╱O╱ // 0x2712 @0x5
0x270d…2720 at0006 = ╱4d╱M╱ // 0x2713 @0x6
0x270d…2720 at0007 = ╱4b╱K╱ // 0x2714 @0x7
0x270d…2720 at0008 = ╱5f╱_╱ // 0x2715 @0x8
0x270d…2720 at0009 = ╱49╱I╱ // 0x2716 @0x9
0x270d…2720 at000a = ╱5f╱_╱ // 0x2717 @0xa
0x270d…2720 at000b = ╱50╱P╱ // 0x2718 @0xb
0x270d…2720 at000c = ╱52╱R╱ // 0x2719 @0xc
0x270d…2720 at000d = ╱4f╱O╱ // 0x271a @0xd
0x270d…2720 at000e = ╱43╱C╱ // 0x271b @0xe
0x270d…2720 at000f = ╱45╱E╱ // 0x271c @0xf
0x270d…2720 at0010 = ╱4e╱N╱ // 0x271d @0x10
0x270d…2720 at0011 = ╱54╱T╱ // 0x271e @0x11
0x270d…2720 at0012 = EOL // 0x271f @0x12
0x270d…2720 }
0x2720…2730 bd1e 3450 PROC SIDESKIFT
0x2720…2730 LineComal80 {
0x2720…2730 ptr = 0xbd1e // 0x2720 @0x0
0x2720…2730 lno = 0x0d7a // 0x2722 @0x2
0x2720…2730 at0004 = ╱9e00╱ PROC ╱ // 0x2724 @0x4
0x2720…2730 at0006 = ╱53╱S╱ // 0x2726 @0x6
0x2720…2730 at0007 = ╱49╱I╱ // 0x2727 @0x7
0x2720…2730 at0008 = ╱44╱D╱ // 0x2728 @0x8
0x2720…2730 at0009 = ╱45╱E╱ // 0x2729 @0x9
0x2720…2730 at000a = ╱53╱S╱ // 0x272a @0xa
0x2720…2730 at000b = ╱4b╱K╱ // 0x272b @0xb
0x2720…2730 at000c = ╱49╱I╱ // 0x272c @0xc
0x2720…2730 at000d = ╱46╱F╱ // 0x272d @0xd
0x2720…2730 at000e = ╱54╱T╱ // 0x272e @0xe
0x2720…2730 at000f = EOL // 0x272f @0xf
0x2720…2730 }
0x2730…2748 bd36 3460 FOR I := LIN_T TO AX_LIN DO PRINT
0x2730…2748 LineComal80 {
0x2730…2748 ptr = 0xbd36 // 0x2730 @0x0
0x2730…2748 lno = 0x0d84 // 0x2732 @0x2
0x2730…2748 at0004 = ╱b400╱ FOR ╱ // 0x2734 @0x4
0x2730…2748 at0006 = ╱49╱I╱ // 0x2736 @0x6
0x2730…2748 at0007 = ╱f0╱ := ╱ // 0x2737 @0x7
0x2730…2748 at0008 = ╱4c╱L╱ // 0x2738 @0x8
0x2730…2748 at0009 = ╱49╱I╱ // 0x2739 @0x9
0x2730…2748 at000a = ╱4e╱N╱ // 0x273a @0xa
0x2730…2748 at000b = ╱5f╱_╱ // 0x273b @0xb
0x2730…2748 at000c = ╱54╱T╱ // 0x273c @0xc
0x2730…2748 at000d = ╱b74d╱ TO ╱ // 0x273d @0xd
0x2730…2748 at000f = ╱41╱A╱ // 0x273f @0xf
0x2730…2748 at0010 = ╱58╱X╱ // 0x2740 @0x10
0x2730…2748 at0011 = ╱5f╱_╱ // 0x2741 @0x11
0x2730…2748 at0012 = ╱4c╱L╱ // 0x2742 @0x12
0x2730…2748 at0013 = ╱49╱I╱ // 0x2743 @0x13
0x2730…2748 at0014 = ╱4e╱N╱ // 0x2744 @0x14
0x2730…2748 at0015 = ╱bb╱ DO ╱ // 0x2745 @0x15
0x2730…2748 at0016 = ╱92╱ PRINT ╱ // 0x2746 @0x16
0x2730…2748 at0017 = EOL // 0x2747 @0x17
0x2730…2748 }
0x2748…276b bd59 3470 LET SIDENR := SIDENR + 1 ; LIN_T := 8
0x2748…276b LineComal80 {
0x2748…276b ptr = 0xbd59 // 0x2748 @0x0
0x2748…276b lno = 0x0d8e // 0x274a @0x2
0x2748…276b at0004 = ╱86╱ LET ╱ // 0x274c @0x4
0x2748…276b at0005 = ╱53╱S╱ // 0x274d @0x5
0x2748…276b at0006 = ╱49╱I╱ // 0x274e @0x6
0x2748…276b at0007 = ╱44╱D╱ // 0x274f @0x7
0x2748…276b at0008 = ╱45╱E╱ // 0x2750 @0x8
0x2748…276b at0009 = ╱4e╱N╱ // 0x2751 @0x9
0x2748…276b at000a = ╱52╱R╱ // 0x2752 @0xa
0x2748…276b at000b = ╱f0╱ := ╱ // 0x2753 @0xb
0x2748…276b at000c = ╱53╱S╱ // 0x2754 @0xc
0x2748…276b at000d = ╱49╱I╱ // 0x2755 @0xd
0x2748…276b at000e = ╱44╱D╱ // 0x2756 @0xe
0x2748…276b at000f = ╱45╱E╱ // 0x2757 @0xf
0x2748…276b at0010 = ╱4e╱N╱ // 0x2758 @0x10
0x2748…276b at0011 = ╱52╱R╱ // 0x2759 @0x11
0x2748…276b at0012 = ╱e5╱ + ╱ // 0x275a @0x12
0x2748…276b at0013 = ╱31╱1╱ // 0x275b @0x13
0x2748…276b at0014 = ╱f20100╱ // 0x275c @0x14
0x2748…276b at0017 = ╱ea╱ ; ╱ // 0x275f @0x17
0x2748…276b at0018 = ╱4c╱L╱ // 0x2760 @0x18
0x2748…276b at0019 = ╱49╱I╱ // 0x2761 @0x19
0x2748…276b at001a = ╱4e╱N╱ // 0x2762 @0x1a
0x2748…276b at001b = ╱5f╱_╱ // 0x2763 @0x1b
0x2748…276b at001c = ╱54╱T╱ // 0x2764 @0x1c
0x2748…276b at001d = ╱f0╱ := ╱ // 0x2765 @0x1d
0x2748…276b at001e = ╱38╱8╱ // 0x2766 @0x1e
0x2748…276b at001f = ╱f20800╱ // 0x2767 @0x1f
0x2748…276b at0022 = EOL // 0x276a @0x22
0x2748…276b }
0x276b…2771 bd5f 3480 PRINT
0x276b…2771 LineComal80 {
0x276b…2771 ptr = 0xbd5f // 0x276b @0x0
0x276b…2771 lno = 0x0d98 // 0x276d @0x2
0x276b…2771 at0004 = ╱92╱ PRINT ╱ // 0x276f @0x4
0x276b…2771 at0005 = EOL // 0x2770 @0x5
0x276b…2771 }
0x2771…278f bd7d 3490 PRINT "*** " ; SYST_NAVN$ ; " ***"
0x2771…278f LineComal80 {
0x2771…278f ptr = 0xbd7d // 0x2771 @0x0
0x2771…278f lno = 0x0da2 // 0x2773 @0x2
0x2771…278f at0004 = ╱92╱ PRINT ╱ // 0x2775 @0x4
0x2771…278f at0005 = ╱22╱"╱ // 0x2776 @0x5
0x2771…278f at0006 = ╱2a╱*╱ // 0x2777 @0x6
0x2771…278f at0007 = ╱2a╱*╱ // 0x2778 @0x7
0x2771…278f at0008 = ╱2a╱*╱ // 0x2779 @0x8
0x2771…278f at0009 = ╱20╱…╱ // 0x277a @0x9
0x2771…278f at000a = ╱22╱"╱ // 0x277b @0xa
0x2771…278f at000b = ╱ea╱ ; ╱ // 0x277c @0xb
0x2771…278f at000c = ╱53╱S╱ // 0x277d @0xc
0x2771…278f at000d = ╱59╱Y╱ // 0x277e @0xd
0x2771…278f at000e = ╱53╱S╱ // 0x277f @0xe
0x2771…278f at000f = ╱54╱T╱ // 0x2780 @0xf
0x2771…278f at0010 = ╱5f╱_╱ // 0x2781 @0x10
0x2771…278f at0011 = ╱4e╱N╱ // 0x2782 @0x11
0x2771…278f at0012 = ╱41╱A╱ // 0x2783 @0x12
0x2771…278f at0013 = ╱56╱V╱ // 0x2784 @0x13
0x2771…278f at0014 = ╱4e╱N╱ // 0x2785 @0x14
0x2771…278f at0015 = ╱ef╱$╱ // 0x2786 @0x15
0x2771…278f at0016 = ╱ea╱ ; ╱ // 0x2787 @0x16
0x2771…278f at0017 = ╱22╱"╱ // 0x2788 @0x17
0x2771…278f at0018 = ╱20╱…╱ // 0x2789 @0x18
0x2771…278f at0019 = ╱2a╱*╱ // 0x278a @0x19
0x2771…278f at001a = ╱2a╱*╱ // 0x278b @0x1a
0x2771…278f at001b = ╱2a╱*╱ // 0x278c @0x1b
0x2771…278f at001c = ╱22╱"╱ // 0x278d @0x1c
0x2771…278f at001d = EOL // 0x278e @0x1d
0x2771…278f }
0x278f…2795 bd83 3500 PRINT
0x278f…2795 LineComal80 {
0x278f…2795 ptr = 0xbd83 // 0x278f @0x0
0x278f…2795 lno = 0x0dac // 0x2791 @0x2
0x278f…2795 at0004 = ╱92╱ PRINT ╱ // 0x2793 @0x4
0x278f…2795 at0005 = EOL // 0x2794 @0x5
0x278f…2795 }
0x2795…27d9 bdc7 3510 PRINT "**** R E G N S K A B S A N A L Y S E ****" ; TAB(58) ; "SIDE: " ;
0x2795…27d9 LineComal80 {
0x2795…27d9 ptr = 0xbdc7 // 0x2795 @0x0
0x2795…27d9 lno = 0x0db6 // 0x2797 @0x2
0x2795…27d9 at0004 = ╱92╱ PRINT ╱ // 0x2799 @0x4
0x2795…27d9 at0005 = ╱22╱"╱ // 0x279a @0x5
0x2795…27d9 at0006 = ╱2a╱*╱ // 0x279b @0x6
0x2795…27d9 at0007 = ╱2a╱*╱ // 0x279c @0x7
0x2795…27d9 at0008 = ╱2a╱*╱ // 0x279d @0x8
0x2795…27d9 at0009 = ╱2a╱*╱ // 0x279e @0x9
0x2795…27d9 at000a = ╱20╱…╱ // 0x279f @0xa
0x2795…27d9 at000b = ╱52╱R╱ // 0x27a0 @0xb
0x2795…27d9 at000c = ╱20╱…╱ // 0x27a1 @0xc
0x2795…27d9 at000d = ╱45╱E╱ // 0x27a2 @0xd
0x2795…27d9 at000e = ╱20╱…╱ // 0x27a3 @0xe
0x2795…27d9 at000f = ╱47╱G╱ // 0x27a4 @0xf
0x2795…27d9 at0010 = ╱20╱…╱ // 0x27a5 @0x10
0x2795…27d9 at0011 = ╱4e╱N╱ // 0x27a6 @0x11
0x2795…27d9 at0012 = ╱20╱…╱ // 0x27a7 @0x12
0x2795…27d9 at0013 = ╱53╱S╱ // 0x27a8 @0x13
0x2795…27d9 at0014 = ╱20╱…╱ // 0x27a9 @0x14
0x2795…27d9 at0015 = ╱4b╱K╱ // 0x27aa @0x15
0x2795…27d9 at0016 = ╱20╱…╱ // 0x27ab @0x16
0x2795…27d9 at0017 = ╱41╱A╱ // 0x27ac @0x17
0x2795…27d9 at0018 = ╱20╱…╱ // 0x27ad @0x18
0x2795…27d9 at0019 = ╱42╱B╱ // 0x27ae @0x19
0x2795…27d9 at001a = ╱20╱…╱ // 0x27af @0x1a
0x2795…27d9 at001b = ╱53╱S╱ // 0x27b0 @0x1b
0x2795…27d9 at001c = ╱20╱…╱ // 0x27b1 @0x1c
0x2795…27d9 at001d = ╱41╱A╱ // 0x27b2 @0x1d
0x2795…27d9 at001e = ╱20╱…╱ // 0x27b3 @0x1e
0x2795…27d9 at001f = ╱4e╱N╱ // 0x27b4 @0x1f
0x2795…27d9 at0020 = ╱20╱…╱ // 0x27b5 @0x20
0x2795…27d9 at0021 = ╱41╱A╱ // 0x27b6 @0x21
0x2795…27d9 at0022 = ╱20╱…╱ // 0x27b7 @0x22
0x2795…27d9 at0023 = ╱4c╱L╱ // 0x27b8 @0x23
0x2795…27d9 at0024 = ╱20╱…╱ // 0x27b9 @0x24
0x2795…27d9 at0025 = ╱59╱Y╱ // 0x27ba @0x25
0x2795…27d9 at0026 = ╱20╱…╱ // 0x27bb @0x26
0x2795…27d9 at0027 = ╱53╱S╱ // 0x27bc @0x27
0x2795…27d9 at0028 = ╱20╱…╱ // 0x27bd @0x28
0x2795…27d9 at0029 = ╱45╱E╱ // 0x27be @0x29
0x2795…27d9 at002a = ╱20╱…╱ // 0x27bf @0x2a
0x2795…27d9 at002b = ╱2a╱*╱ // 0x27c0 @0x2b
0x2795…27d9 at002c = ╱2a╱*╱ // 0x27c1 @0x2c
0x2795…27d9 at002d = ╱2a╱*╱ // 0x27c2 @0x2d
0x2795…27d9 at002e = ╱2a╱*╱ // 0x27c3 @0x2e
0x2795…27d9 at002f = ╱22╱"╱ // 0x27c4 @0x2f
0x2795…27d9 at0030 = ╱ea╱ ; ╱ // 0x27c5 @0x30
0x2795…27d9 at0031 = ╱d2╱TAB╱ // 0x27c6 @0x31
0x2795…27d9 at0032 = ╱ed╱(╱ // 0x27c7 @0x32
0x2795…27d9 at0033 = ╱35╱5╱ // 0x27c8 @0x33
0x2795…27d9 at0034 = ╱38╱8╱ // 0x27c9 @0x34
0x2795…27d9 at0035 = ╱f23a00╱ // 0x27ca @0x35
0x2795…27d9 at0038 = ╱ee╱)╱ // 0x27cd @0x38
0x2795…27d9 at0039 = ╱ea╱ ; ╱ // 0x27ce @0x39
0x2795…27d9 at003a = ╱22╱"╱ // 0x27cf @0x3a
0x2795…27d9 at003b = ╱53╱S╱ // 0x27d0 @0x3b
0x2795…27d9 at003c = ╱49╱I╱ // 0x27d1 @0x3c
0x2795…27d9 at003d = ╱44╱D╱ // 0x27d2 @0x3d
0x2795…27d9 at003e = ╱45╱E╱ // 0x27d3 @0x3e
0x2795…27d9 at003f = ╱3a╱:╱ // 0x27d4 @0x3f
0x2795…27d9 at0040 = ╱20╱…╱ // 0x27d5 @0x40
0x2795…27d9 at0041 = ╱22╱"╱ // 0x27d6 @0x41
0x2795…27d9 at0042 = ╱ea╱ ; ╱ // 0x27d7 @0x42
0x2795…27d9 at0043 = EOL // 0x27d8 @0x43
0x2795…27d9 }
0x27d9…27e5 bdd3 3520 PRINT SIDENR
0x27d9…27e5 LineComal80 {
0x27d9…27e5 ptr = 0xbdd3 // 0x27d9 @0x0
0x27d9…27e5 lno = 0x0dc0 // 0x27db @0x2
0x27d9…27e5 at0004 = ╱92╱ PRINT ╱ // 0x27dd @0x4
0x27d9…27e5 at0005 = ╱53╱S╱ // 0x27de @0x5
0x27d9…27e5 at0006 = ╱49╱I╱ // 0x27df @0x6
0x27d9…27e5 at0007 = ╱44╱D╱ // 0x27e0 @0x7
0x27d9…27e5 at0008 = ╱45╱E╱ // 0x27e1 @0x8
0x27d9…27e5 at0009 = ╱4e╱N╱ // 0x27e2 @0x9
0x27d9…27e5 at000a = ╱52╱R╱ // 0x27e3 @0xa
0x27d9…27e5 at000b = EOL // 0x27e4 @0xb
0x27d9…27e5 }
0x27e5…27eb bdd9 3530 PRINT
0x27e5…27eb LineComal80 {
0x27e5…27eb ptr = 0xbdd9 // 0x27e5 @0x0
0x27e5…27eb lno = 0x0dca // 0x27e7 @0x2
0x27e5…27eb at0004 = ╱92╱ PRINT ╱ // 0x27e9 @0x4
0x27e5…27eb at0005 = EOL // 0x27ea @0x5
0x27e5…27eb }
0x27eb…2809 bdf7 3540 PRINT "Firmanavn: " ; FIRMANAVN$
0x27eb…2809 LineComal80 {
0x27eb…2809 ptr = 0xbdf7 // 0x27eb @0x0
0x27eb…2809 lno = 0x0dd4 // 0x27ed @0x2
0x27eb…2809 at0004 = ╱92╱ PRINT ╱ // 0x27ef @0x4
0x27eb…2809 at0005 = ╱22╱"╱ // 0x27f0 @0x5
0x27eb…2809 at0006 = ╱46╱F╱ // 0x27f1 @0x6
0x27eb…2809 at0007 = ╱69╱i╱ // 0x27f2 @0x7
0x27eb…2809 at0008 = ╱72╱r╱ // 0x27f3 @0x8
0x27eb…2809 at0009 = ╱6d╱m╱ // 0x27f4 @0x9
0x27eb…2809 at000a = ╱61╱a╱ // 0x27f5 @0xa
0x27eb…2809 at000b = ╱6e╱n╱ // 0x27f6 @0xb
0x27eb…2809 at000c = ╱61╱a╱ // 0x27f7 @0xc
0x27eb…2809 at000d = ╱76╱v╱ // 0x27f8 @0xd
0x27eb…2809 at000e = ╱6e╱n╱ // 0x27f9 @0xe
0x27eb…2809 at000f = ╱3a╱:╱ // 0x27fa @0xf
0x27eb…2809 at0010 = ╱20╱…╱ // 0x27fb @0x10
0x27eb…2809 at0011 = ╱22╱"╱ // 0x27fc @0x11
0x27eb…2809 at0012 = ╱ea╱ ; ╱ // 0x27fd @0x12
0x27eb…2809 at0013 = ╱46╱F╱ // 0x27fe @0x13
0x27eb…2809 at0014 = ╱49╱I╱ // 0x27ff @0x14
0x27eb…2809 at0015 = ╱52╱R╱ // 0x2800 @0x15
0x27eb…2809 at0016 = ╱4d╱M╱ // 0x2801 @0x16
0x27eb…2809 at0017 = ╱41╱A╱ // 0x2802 @0x17
0x27eb…2809 at0018 = ╱4e╱N╱ // 0x2803 @0x18
0x27eb…2809 at0019 = ╱41╱A╱ // 0x2804 @0x19
0x27eb…2809 at001a = ╱56╱V╱ // 0x2805 @0x1a
0x27eb…2809 at001b = ╱4e╱N╱ // 0x2806 @0x1b
0x27eb…2809 at001c = ╱ef╱$╱ // 0x2807 @0x1c
0x27eb…2809 at001d = EOL // 0x2808 @0x1d
0x27eb…2809 }
0x2809…280f bdfd 3550 PRINT
0x2809…280f LineComal80 {
0x2809…280f ptr = 0xbdfd // 0x2809 @0x0
0x2809…280f lno = 0x0dde // 0x280b @0x2
0x2809…280f at0004 = ╱92╱ PRINT ╱ // 0x280d @0x4
0x2809…280f at0005 = EOL // 0x280e @0x5
0x2809…280f }
0x280f…281e be0c 3560 ENDPROC SIDESKIFT
0x280f…281e LineComal80 {
0x280f…281e ptr = 0xbe0c // 0x280f @0x0
0x280f…281e lno = 0x0de8 // 0x2811 @0x2
0x280f…281e at0004 = ╱9f╱ ENDPROC ╱ // 0x2813 @0x4
0x280f…281e at0005 = ╱53╱S╱ // 0x2814 @0x5
0x280f…281e at0006 = ╱49╱I╱ // 0x2815 @0x6
0x280f…281e at0007 = ╱44╱D╱ // 0x2816 @0x7
0x280f…281e at0008 = ╱45╱E╱ // 0x2817 @0x8
0x280f…281e at0009 = ╱53╱S╱ // 0x2818 @0x9
0x280f…281e at000a = ╱4b╱K╱ // 0x2819 @0xa
0x280f…281e at000b = ╱49╱I╱ // 0x281a @0xb
0x280f…281e at000c = ╱46╱F╱ // 0x281b @0xc
0x280f…281e at000d = ╱54╱T╱ // 0x281c @0xd
0x280f…281e at000e = EOL // 0x281d @0xe
0x280f…281e }
0x281e…2823 be11 3570
0x281e…2823 LineComal80 {
0x281e…2823 ptr = 0xbe11 // 0x281e @0x0
0x281e…2823 lno = 0x0df2 // 0x2820 @0x2
0x281e…2823 at0004 = EOL // 0x2822 @0x4
0x281e…2823 }
0x2823…2837 be25 3580 PROC FUNKTIONSMENU
0x2823…2837 LineComal80 {
0x2823…2837 ptr = 0xbe25 // 0x2823 @0x0
0x2823…2837 lno = 0x0dfc // 0x2825 @0x2
0x2823…2837 at0004 = ╱9e00╱ PROC ╱ // 0x2827 @0x4
0x2823…2837 at0006 = ╱46╱F╱ // 0x2829 @0x6
0x2823…2837 at0007 = ╱55╱U╱ // 0x282a @0x7
0x2823…2837 at0008 = ╱4e╱N╱ // 0x282b @0x8
0x2823…2837 at0009 = ╱4b╱K╱ // 0x282c @0x9
0x2823…2837 at000a = ╱54╱T╱ // 0x282d @0xa
0x2823…2837 at000b = ╱49╱I╱ // 0x282e @0xb
0x2823…2837 at000c = ╱4f╱O╱ // 0x282f @0xc
0x2823…2837 at000d = ╱4e╱N╱ // 0x2830 @0xd
0x2823…2837 at000e = ╱53╱S╱ // 0x2831 @0xe
0x2823…2837 at000f = ╱4d╱M╱ // 0x2832 @0xf
0x2823…2837 at0010 = ╱45╱E╱ // 0x2833 @0x10
0x2823…2837 at0011 = ╱4e╱N╱ // 0x2834 @0x11
0x2823…2837 at0012 = ╱55╱U╱ // 0x2835 @0x12
0x2823…2837 at0013 = EOL // 0x2836 @0x13
0x2823…2837 }
0x2837…2860 be4e 3590 EXEC OVERSKRIFT("Regnskabsanalyse",6)
0x2837…2860 LineComal80 {
0x2837…2860 ptr = 0xbe4e // 0x2837 @0x0
0x2837…2860 lno = 0x0e06 // 0x2839 @0x2
0x2837…2860 at0004 = ╱9d╱ EXEC ╱ // 0x283b @0x4
0x2837…2860 at0005 = ╱4f╱O╱ // 0x283c @0x5
0x2837…2860 at0006 = ╱56╱V╱ // 0x283d @0x6
0x2837…2860 at0007 = ╱45╱E╱ // 0x283e @0x7
0x2837…2860 at0008 = ╱52╱R╱ // 0x283f @0x8
0x2837…2860 at0009 = ╱53╱S╱ // 0x2840 @0x9
0x2837…2860 at000a = ╱4b╱K╱ // 0x2841 @0xa
0x2837…2860 at000b = ╱52╱R╱ // 0x2842 @0xb
0x2837…2860 at000c = ╱49╱I╱ // 0x2843 @0xc
0x2837…2860 at000d = ╱46╱F╱ // 0x2844 @0xd
0x2837…2860 at000e = ╱54╱T╱ // 0x2845 @0xe
0x2837…2860 at000f = ╱ed╱(╱ // 0x2846 @0xf
0x2837…2860 at0010 = ╱22╱"╱ // 0x2847 @0x10
0x2837…2860 at0011 = ╱52╱R╱ // 0x2848 @0x11
0x2837…2860 at0012 = ╱65╱e╱ // 0x2849 @0x12
0x2837…2860 at0013 = ╱67╱g╱ // 0x284a @0x13
0x2837…2860 at0014 = ╱6e╱n╱ // 0x284b @0x14
0x2837…2860 at0015 = ╱73╱s╱ // 0x284c @0x15
0x2837…2860 at0016 = ╱6b╱k╱ // 0x284d @0x16
0x2837…2860 at0017 = ╱61╱a╱ // 0x284e @0x17
0x2837…2860 at0018 = ╱62╱b╱ // 0x284f @0x18
0x2837…2860 at0019 = ╱73╱s╱ // 0x2850 @0x19
0x2837…2860 at001a = ╱61╱a╱ // 0x2851 @0x1a
0x2837…2860 at001b = ╱6e╱n╱ // 0x2852 @0x1b
0x2837…2860 at001c = ╱61╱a╱ // 0x2853 @0x1c
0x2837…2860 at001d = ╱6c╱l╱ // 0x2854 @0x1d
0x2837…2860 at001e = ╱79╱y╱ // 0x2855 @0x1e
0x2837…2860 at001f = ╱73╱s╱ // 0x2856 @0x1f
0x2837…2860 at0020 = ╱65╱e╱ // 0x2857 @0x20
0x2837…2860 at0021 = ╱22╱"╱ // 0x2858 @0x21
0x2837…2860 at0022 = ╱ec╱,╱ // 0x2859 @0x22
0x2837…2860 at0023 = ╱36╱6╱ // 0x285a @0x23
0x2837…2860 at0024 = ╱f20600╱ // 0x285b @0x24
0x2837…2860 at0027 = ╱ee╱)╱ // 0x285e @0x27
0x2837…2860 at0028 = EOL // 0x285f @0x28
0x2837…2860 }
0x2860…28a6 be94 3600 INPUT "<C0809>Indtast venligst: Øvrige var. omkostninger: " : ØVR_VAR
0x2860…28a6 LineComal80 {
0x2860…28a6 ptr = 0xbe94 // 0x2860 @0x0
0x2860…28a6 lno = 0x0e10 // 0x2862 @0x2
0x2860…28a6 at0004 = ╱91╱ INPUT ╱ // 0x2864 @0x4
0x2860…28a6 at0005 = ╱22╱"╱ // 0x2865 @0x5
0x2860…28a6 at0006 = ╱3c╱<╱ // 0x2866 @0x6
0x2860…28a6 at0007 = ╱43╱C╱ // 0x2867 @0x7
0x2860…28a6 at0008 = ╱30╱0╱ // 0x2868 @0x8
0x2860…28a6 at0009 = ╱38╱8╱ // 0x2869 @0x9
0x2860…28a6 at000a = ╱30╱0╱ // 0x286a @0xa
0x2860…28a6 at000b = ╱39╱9╱ // 0x286b @0xb
0x2860…28a6 at000c = ╱3e╱>╱ // 0x286c @0xc
0x2860…28a6 at000d = ╱49╱I╱ // 0x286d @0xd
0x2860…28a6 at000e = ╱6e╱n╱ // 0x286e @0xe
0x2860…28a6 at000f = ╱64╱d╱ // 0x286f @0xf
0x2860…28a6 at0010 = ╱74╱t╱ // 0x2870 @0x10
0x2860…28a6 at0011 = ╱61╱a╱ // 0x2871 @0x11
0x2860…28a6 at0012 = ╱73╱s╱ // 0x2872 @0x12
0x2860…28a6 at0013 = ╱74╱t╱ // 0x2873 @0x13
0x2860…28a6 at0014 = ╱20╱…╱ // 0x2874 @0x14
0x2860…28a6 at0015 = ╱76╱v╱ // 0x2875 @0x15
0x2860…28a6 at0016 = ╱65╱e╱ // 0x2876 @0x16
0x2860…28a6 at0017 = ╱6e╱n╱ // 0x2877 @0x17
0x2860…28a6 at0018 = ╱6c╱l╱ // 0x2878 @0x18
0x2860…28a6 at0019 = ╱69╱i╱ // 0x2879 @0x19
0x2860…28a6 at001a = ╱67╱g╱ // 0x287a @0x1a
0x2860…28a6 at001b = ╱73╱s╱ // 0x287b @0x1b
0x2860…28a6 at001c = ╱74╱t╱ // 0x287c @0x1c
0x2860…28a6 at001d = ╱3a╱:╱ // 0x287d @0x1d
0x2860…28a6 at001e = ╱20╱…╱ // 0x287e @0x1e
0x2860…28a6 at001f = ╱20╱…╱ // 0x287f @0x1f
0x2860…28a6 at0020 = ╱20╱…╱ // 0x2880 @0x20
0x2860…28a6 at0021 = ╱20╱…╱ // 0x2881 @0x21
0x2860…28a6 at0022 = ╱5c╱Ø╱ // 0x2882 @0x22
0x2860…28a6 at0023 = ╱76╱v╱ // 0x2883 @0x23
0x2860…28a6 at0024 = ╱72╱r╱ // 0x2884 @0x24
0x2860…28a6 at0025 = ╱69╱i╱ // 0x2885 @0x25
0x2860…28a6 at0026 = ╱67╱g╱ // 0x2886 @0x26
0x2860…28a6 at0027 = ╱65╱e╱ // 0x2887 @0x27
0x2860…28a6 at0028 = ╱20╱…╱ // 0x2888 @0x28
0x2860…28a6 at0029 = ╱76╱v╱ // 0x2889 @0x29
0x2860…28a6 at002a = ╱61╱a╱ // 0x288a @0x2a
0x2860…28a6 at002b = ╱72╱r╱ // 0x288b @0x2b
0x2860…28a6 at002c = ╱2e╱.╱ // 0x288c @0x2c
0x2860…28a6 at002d = ╱20╱…╱ // 0x288d @0x2d
0x2860…28a6 at002e = ╱6f╱o╱ // 0x288e @0x2e
0x2860…28a6 at002f = ╱6d╱m╱ // 0x288f @0x2f
0x2860…28a6 at0030 = ╱6b╱k╱ // 0x2890 @0x30
0x2860…28a6 at0031 = ╱6f╱o╱ // 0x2891 @0x31
0x2860…28a6 at0032 = ╱73╱s╱ // 0x2892 @0x32
0x2860…28a6 at0033 = ╱74╱t╱ // 0x2893 @0x33
0x2860…28a6 at0034 = ╱6e╱n╱ // 0x2894 @0x34
0x2860…28a6 at0035 = ╱69╱i╱ // 0x2895 @0x35
0x2860…28a6 at0036 = ╱6e╱n╱ // 0x2896 @0x36
0x2860…28a6 at0037 = ╱67╱g╱ // 0x2897 @0x37
0x2860…28a6 at0038 = ╱65╱e╱ // 0x2898 @0x38
0x2860…28a6 at0039 = ╱72╱r╱ // 0x2899 @0x39
0x2860…28a6 at003a = ╱3a╱:╱ // 0x289a @0x3a
0x2860…28a6 at003b = ╱20╱…╱ // 0x289b @0x3b
0x2860…28a6 at003c = ╱22╱"╱ // 0x289c @0x3c
0x2860…28a6 at003d = ╱f1╱ : ╱ // 0x289d @0x3d
0x2860…28a6 at003e = ╱5c╱Ø╱ // 0x289e @0x3e
0x2860…28a6 at003f = ╱56╱V╱ // 0x289f @0x3f
0x2860…28a6 at0040 = ╱52╱R╱ // 0x28a0 @0x40
0x2860…28a6 at0041 = ╱5f╱_╱ // 0x28a1 @0x41
0x2860…28a6 at0042 = ╱56╱V╱ // 0x28a2 @0x42
0x2860…28a6 at0043 = ╱41╱A╱ // 0x28a3 @0x43
0x2860…28a6 at0044 = ╱52╱R╱ // 0x28a4 @0x44
0x2860…28a6 at0045 = EOL // 0x28a5 @0x45
0x2860…28a6 }
0x28a6…28c3 beb1 3610 LET ØVR_VAR := ØVR_VAR * ( - 1)
0x28a6…28c3 LineComal80 {
0x28a6…28c3 ptr = 0xbeb1 // 0x28a6 @0x0
0x28a6…28c3 lno = 0x0e1a // 0x28a8 @0x2
0x28a6…28c3 at0004 = ╱86╱ LET ╱ // 0x28aa @0x4
0x28a6…28c3 at0005 = ╱5c╱Ø╱ // 0x28ab @0x5
0x28a6…28c3 at0006 = ╱56╱V╱ // 0x28ac @0x6
0x28a6…28c3 at0007 = ╱52╱R╱ // 0x28ad @0x7
0x28a6…28c3 at0008 = ╱5f╱_╱ // 0x28ae @0x8
0x28a6…28c3 at0009 = ╱56╱V╱ // 0x28af @0x9
0x28a6…28c3 at000a = ╱41╱A╱ // 0x28b0 @0xa
0x28a6…28c3 at000b = ╱52╱R╱ // 0x28b1 @0xb
0x28a6…28c3 at000c = ╱f0╱ := ╱ // 0x28b2 @0xc
0x28a6…28c3 at000d = ╱5c╱Ø╱ // 0x28b3 @0xd
0x28a6…28c3 at000e = ╱56╱V╱ // 0x28b4 @0xe
0x28a6…28c3 at000f = ╱52╱R╱ // 0x28b5 @0xf
0x28a6…28c3 at0010 = ╱5f╱_╱ // 0x28b6 @0x10
0x28a6…28c3 at0011 = ╱56╱V╱ // 0x28b7 @0x11
0x28a6…28c3 at0012 = ╱41╱A╱ // 0x28b8 @0x12
0x28a6…28c3 at0013 = ╱52╱R╱ // 0x28b9 @0x13
0x28a6…28c3 at0014 = ╱e7╱ * ╱ // 0x28ba @0x14
0x28a6…28c3 at0015 = ╱ed╱(╱ // 0x28bb @0x15
0x28a6…28c3 at0016 = ╱de╱ - ╱ // 0x28bc @0x16
0x28a6…28c3 at0017 = ╱31╱1╱ // 0x28bd @0x17
0x28a6…28c3 at0018 = ╱f20100╱ // 0x28be @0x18
0x28a6…28c3 at001b = ╱ee╱)╱ // 0x28c1 @0x1b
0x28a6…28c3 at001c = EOL // 0x28c2 @0x1c
0x28a6…28c3 }
0x28c3…2905 bef3 3620 INPUT "<C0811> Løn til indehaver : " : L_I
0x28c3…2905 LineComal80 {
0x28c3…2905 ptr = 0xbef3 // 0x28c3 @0x0
0x28c3…2905 lno = 0x0e24 // 0x28c5 @0x2
0x28c3…2905 at0004 = ╱91╱ INPUT ╱ // 0x28c7 @0x4
0x28c3…2905 at0005 = ╱22╱"╱ // 0x28c8 @0x5
0x28c3…2905 at0006 = ╱3c╱<╱ // 0x28c9 @0x6
0x28c3…2905 at0007 = ╱43╱C╱ // 0x28ca @0x7
0x28c3…2905 at0008 = ╱30╱0╱ // 0x28cb @0x8
0x28c3…2905 at0009 = ╱38╱8╱ // 0x28cc @0x9
0x28c3…2905 at000a = ╱31╱1╱ // 0x28cd @0xa
0x28c3…2905 at000b = ╱31╱1╱ // 0x28ce @0xb
0x28c3…2905 at000c = ╱3e╱>╱ // 0x28cf @0xc
0x28c3…2905 at000d = ╱20╱…╱ // 0x28d0 @0xd
0x28c3…2905 at000e = ╱20╱…╱ // 0x28d1 @0xe
0x28c3…2905 at000f = ╱20╱…╱ // 0x28d2 @0xf
0x28c3…2905 at0010 = ╱20╱…╱ // 0x28d3 @0x10
0x28c3…2905 at0011 = ╱20╱…╱ // 0x28d4 @0x11
0x28c3…2905 at0012 = ╱20╱…╱ // 0x28d5 @0x12
0x28c3…2905 at0013 = ╱20╱…╱ // 0x28d6 @0x13
0x28c3…2905 at0014 = ╱20╱…╱ // 0x28d7 @0x14
0x28c3…2905 at0015 = ╱20╱…╱ // 0x28d8 @0x15
0x28c3…2905 at0016 = ╱20╱…╱ // 0x28d9 @0x16
0x28c3…2905 at0017 = ╱20╱…╱ // 0x28da @0x17
0x28c3…2905 at0018 = ╱20╱…╱ // 0x28db @0x18
0x28c3…2905 at0019 = ╱20╱…╱ // 0x28dc @0x19
0x28c3…2905 at001a = ╱20╱…╱ // 0x28dd @0x1a
0x28c3…2905 at001b = ╱20╱…╱ // 0x28de @0x1b
0x28c3…2905 at001c = ╱20╱…╱ // 0x28df @0x1c
0x28c3…2905 at001d = ╱20╱…╱ // 0x28e0 @0x1d
0x28c3…2905 at001e = ╱20╱…╱ // 0x28e1 @0x1e
0x28c3…2905 at001f = ╱20╱…╱ // 0x28e2 @0x1f
0x28c3…2905 at0020 = ╱20╱…╱ // 0x28e3 @0x20
0x28c3…2905 at0021 = ╱20╱…╱ // 0x28e4 @0x21
0x28c3…2905 at0022 = ╱4c╱L╱ // 0x28e5 @0x22
0x28c3…2905 at0023 = ╱7c╱ø╱ // 0x28e6 @0x23
0x28c3…2905 at0024 = ╱6e╱n╱ // 0x28e7 @0x24
0x28c3…2905 at0025 = ╱20╱…╱ // 0x28e8 @0x25
0x28c3…2905 at0026 = ╱74╱t╱ // 0x28e9 @0x26
0x28c3…2905 at0027 = ╱69╱i╱ // 0x28ea @0x27
0x28c3…2905 at0028 = ╱6c╱l╱ // 0x28eb @0x28
0x28c3…2905 at0029 = ╱20╱…╱ // 0x28ec @0x29
0x28c3…2905 at002a = ╱69╱i╱ // 0x28ed @0x2a
0x28c3…2905 at002b = ╱6e╱n╱ // 0x28ee @0x2b
0x28c3…2905 at002c = ╱64╱d╱ // 0x28ef @0x2c
0x28c3…2905 at002d = ╱65╱e╱ // 0x28f0 @0x2d
0x28c3…2905 at002e = ╱68╱h╱ // 0x28f1 @0x2e
0x28c3…2905 at002f = ╱61╱a╱ // 0x28f2 @0x2f
0x28c3…2905 at0030 = ╱76╱v╱ // 0x28f3 @0x30
0x28c3…2905 at0031 = ╱65╱e╱ // 0x28f4 @0x31
0x28c3…2905 at0032 = ╱72╱r╱ // 0x28f5 @0x32
0x28c3…2905 at0033 = ╱20╱…╱ // 0x28f6 @0x33
0x28c3…2905 at0034 = ╱20╱…╱ // 0x28f7 @0x34
0x28c3…2905 at0035 = ╱20╱…╱ // 0x28f8 @0x35
0x28c3…2905 at0036 = ╱20╱…╱ // 0x28f9 @0x36
0x28c3…2905 at0037 = ╱20╱…╱ // 0x28fa @0x37
0x28c3…2905 at0038 = ╱20╱…╱ // 0x28fb @0x38
0x28c3…2905 at0039 = ╱20╱…╱ // 0x28fc @0x39
0x28c3…2905 at003a = ╱3a╱:╱ // 0x28fd @0x3a
0x28c3…2905 at003b = ╱20╱…╱ // 0x28fe @0x3b
0x28c3…2905 at003c = ╱22╱"╱ // 0x28ff @0x3c
0x28c3…2905 at003d = ╱f1╱ : ╱ // 0x2900 @0x3d
0x28c3…2905 at003e = ╱4c╱L╱ // 0x2901 @0x3e
0x28c3…2905 at003f = ╱5f╱_╱ // 0x2902 @0x3f
0x28c3…2905 at0040 = ╱49╱I╱ // 0x2903 @0x40
0x28c3…2905 at0041 = EOL // 0x2904 @0x41
0x28c3…2905 }
0x2905…291a bf08 3630 LET L_I := L_I * ( - 1)
0x2905…291a LineComal80 {
0x2905…291a ptr = 0xbf08 // 0x2905 @0x0
0x2905…291a lno = 0x0e2e // 0x2907 @0x2
0x2905…291a at0004 = ╱86╱ LET ╱ // 0x2909 @0x4
0x2905…291a at0005 = ╱4c╱L╱ // 0x290a @0x5
0x2905…291a at0006 = ╱5f╱_╱ // 0x290b @0x6
0x2905…291a at0007 = ╱49╱I╱ // 0x290c @0x7
0x2905…291a at0008 = ╱f0╱ := ╱ // 0x290d @0x8
0x2905…291a at0009 = ╱4c╱L╱ // 0x290e @0x9
0x2905…291a at000a = ╱5f╱_╱ // 0x290f @0xa
0x2905…291a at000b = ╱49╱I╱ // 0x2910 @0xb
0x2905…291a at000c = ╱e7╱ * ╱ // 0x2911 @0xc
0x2905…291a at000d = ╱ed╱(╱ // 0x2912 @0xd
0x2905…291a at000e = ╱de╱ - ╱ // 0x2913 @0xe
0x2905…291a at000f = ╱31╱1╱ // 0x2914 @0xf
0x2905…291a at0010 = ╱f20100╱ // 0x2915 @0x10
0x2905…291a at0013 = ╱ee╱)╱ // 0x2918 @0x13
0x2905…291a at0014 = EOL // 0x2919 @0x14
0x2905…291a }
0x291a…2961 bf4f 3640 INPUT "<C1013> Varelager primo : " : S_VARELA_P
0x291a…2961 LineComal80 {
0x291a…2961 ptr = 0xbf4f // 0x291a @0x0
0x291a…2961 lno = 0x0e38 // 0x291c @0x2
0x291a…2961 at0004 = ╱91╱ INPUT ╱ // 0x291e @0x4
0x291a…2961 at0005 = ╱22╱"╱ // 0x291f @0x5
0x291a…2961 at0006 = ╱3c╱<╱ // 0x2920 @0x6
0x291a…2961 at0007 = ╱43╱C╱ // 0x2921 @0x7
0x291a…2961 at0008 = ╱31╱1╱ // 0x2922 @0x8
0x291a…2961 at0009 = ╱30╱0╱ // 0x2923 @0x9
0x291a…2961 at000a = ╱31╱1╱ // 0x2924 @0xa
0x291a…2961 at000b = ╱33╱3╱ // 0x2925 @0xb
0x291a…2961 at000c = ╱3e╱>╱ // 0x2926 @0xc
0x291a…2961 at000d = ╱20╱…╱ // 0x2927 @0xd
0x291a…2961 at000e = ╱20╱…╱ // 0x2928 @0xe
0x291a…2961 at000f = ╱20╱…╱ // 0x2929 @0xf
0x291a…2961 at0010 = ╱20╱…╱ // 0x292a @0x10
0x291a…2961 at0011 = ╱20╱…╱ // 0x292b @0x11
0x291a…2961 at0012 = ╱20╱…╱ // 0x292c @0x12
0x291a…2961 at0013 = ╱20╱…╱ // 0x292d @0x13
0x291a…2961 at0014 = ╱20╱…╱ // 0x292e @0x14
0x291a…2961 at0015 = ╱20╱…╱ // 0x292f @0x15
0x291a…2961 at0016 = ╱20╱…╱ // 0x2930 @0x16
0x291a…2961 at0017 = ╱20╱…╱ // 0x2931 @0x17
0x291a…2961 at0018 = ╱20╱…╱ // 0x2932 @0x18
0x291a…2961 at0019 = ╱20╱…╱ // 0x2933 @0x19
0x291a…2961 at001a = ╱20╱…╱ // 0x2934 @0x1a
0x291a…2961 at001b = ╱20╱…╱ // 0x2935 @0x1b
0x291a…2961 at001c = ╱20╱…╱ // 0x2936 @0x1c
0x291a…2961 at001d = ╱20╱…╱ // 0x2937 @0x1d
0x291a…2961 at001e = ╱20╱…╱ // 0x2938 @0x1e
0x291a…2961 at001f = ╱20╱…╱ // 0x2939 @0x1f
0x291a…2961 at0020 = ╱56╱V╱ // 0x293a @0x20
0x291a…2961 at0021 = ╱61╱a╱ // 0x293b @0x21
0x291a…2961 at0022 = ╱72╱r╱ // 0x293c @0x22
0x291a…2961 at0023 = ╱65╱e╱ // 0x293d @0x23
0x291a…2961 at0024 = ╱6c╱l╱ // 0x293e @0x24
0x291a…2961 at0025 = ╱61╱a╱ // 0x293f @0x25
0x291a…2961 at0026 = ╱67╱g╱ // 0x2940 @0x26
0x291a…2961 at0027 = ╱65╱e╱ // 0x2941 @0x27
0x291a…2961 at0028 = ╱72╱r╱ // 0x2942 @0x28
0x291a…2961 at0029 = ╱20╱…╱ // 0x2943 @0x29
0x291a…2961 at002a = ╱70╱p╱ // 0x2944 @0x2a
0x291a…2961 at002b = ╱72╱r╱ // 0x2945 @0x2b
0x291a…2961 at002c = ╱69╱i╱ // 0x2946 @0x2c
0x291a…2961 at002d = ╱6d╱m╱ // 0x2947 @0x2d
0x291a…2961 at002e = ╱6f╱o╱ // 0x2948 @0x2e
0x291a…2961 at002f = ╱20╱…╱ // 0x2949 @0x2f
0x291a…2961 at0030 = ╱20╱…╱ // 0x294a @0x30
0x291a…2961 at0031 = ╱20╱…╱ // 0x294b @0x31
0x291a…2961 at0032 = ╱20╱…╱ // 0x294c @0x32
0x291a…2961 at0033 = ╱20╱…╱ // 0x294d @0x33
0x291a…2961 at0034 = ╱20╱…╱ // 0x294e @0x34
0x291a…2961 at0035 = ╱20╱…╱ // 0x294f @0x35
0x291a…2961 at0036 = ╱20╱…╱ // 0x2950 @0x36
0x291a…2961 at0037 = ╱20╱…╱ // 0x2951 @0x37
0x291a…2961 at0038 = ╱3a╱:╱ // 0x2952 @0x38
0x291a…2961 at0039 = ╱20╱…╱ // 0x2953 @0x39
0x291a…2961 at003a = ╱22╱"╱ // 0x2954 @0x3a
0x291a…2961 at003b = ╱f1╱ : ╱ // 0x2955 @0x3b
0x291a…2961 at003c = ╱53╱S╱ // 0x2956 @0x3c
0x291a…2961 at003d = ╱5f╱_╱ // 0x2957 @0x3d
0x291a…2961 at003e = ╱56╱V╱ // 0x2958 @0x3e
0x291a…2961 at003f = ╱41╱A╱ // 0x2959 @0x3f
0x291a…2961 at0040 = ╱52╱R╱ // 0x295a @0x40
0x291a…2961 at0041 = ╱45╱E╱ // 0x295b @0x41
0x291a…2961 at0042 = ╱4c╱L╱ // 0x295c @0x42
0x291a…2961 at0043 = ╱41╱A╱ // 0x295d @0x43
0x291a…2961 at0044 = ╱5f╱_╱ // 0x295e @0x44
0x291a…2961 at0045 = ╱50╱P╱ // 0x295f @0x45
0x291a…2961 at0046 = EOL // 0x2960 @0x46
0x291a…2961 }
0x2961…2980 bf6e 3650 PRINT "<C3515>Nu optælles der!"
0x2961…2980 LineComal80 {
0x2961…2980 ptr = 0xbf6e // 0x2961 @0x0
0x2961…2980 lno = 0x0e42 // 0x2963 @0x2
0x2961…2980 at0004 = ╱92╱ PRINT ╱ // 0x2965 @0x4
0x2961…2980 at0005 = ╱22╱"╱ // 0x2966 @0x5
0x2961…2980 at0006 = ╱3c╱<╱ // 0x2967 @0x6
0x2961…2980 at0007 = ╱43╱C╱ // 0x2968 @0x7
0x2961…2980 at0008 = ╱33╱3╱ // 0x2969 @0x8
0x2961…2980 at0009 = ╱35╱5╱ // 0x296a @0x9
0x2961…2980 at000a = ╱31╱1╱ // 0x296b @0xa
0x2961…2980 at000b = ╱35╱5╱ // 0x296c @0xb
0x2961…2980 at000c = ╱3e╱>╱ // 0x296d @0xc
0x2961…2980 at000d = ╱4e╱N╱ // 0x296e @0xd
0x2961…2980 at000e = ╱75╱u╱ // 0x296f @0xe
0x2961…2980 at000f = ╱20╱…╱ // 0x2970 @0xf
0x2961…2980 at0010 = ╱6f╱o╱ // 0x2971 @0x10
0x2961…2980 at0011 = ╱70╱p╱ // 0x2972 @0x11
0x2961…2980 at0012 = ╱74╱t╱ // 0x2973 @0x12
0x2961…2980 at0013 = ╱7b╱æ╱ // 0x2974 @0x13
0x2961…2980 at0014 = ╱6c╱l╱ // 0x2975 @0x14
0x2961…2980 at0015 = ╱6c╱l╱ // 0x2976 @0x15
0x2961…2980 at0016 = ╱65╱e╱ // 0x2977 @0x16
0x2961…2980 at0017 = ╱73╱s╱ // 0x2978 @0x17
0x2961…2980 at0018 = ╱20╱…╱ // 0x2979 @0x18
0x2961…2980 at0019 = ╱64╱d╱ // 0x297a @0x19
0x2961…2980 at001a = ╱65╱e╱ // 0x297b @0x1a
0x2961…2980 at001b = ╱72╱r╱ // 0x297c @0x1b
0x2961…2980 at001c = ╱21╱!╱ // 0x297d @0x1c
0x2961…2980 at001d = ╱22╱"╱ // 0x297e @0x1d
0x2961…2980 at001e = EOL // 0x297f @0x1e
0x2961…2980 }
0x2980…298d bf7b 3660 EXEC OPSUMER
0x2980…298d LineComal80 {
0x2980…298d ptr = 0xbf7b // 0x2980 @0x0
0x2980…298d lno = 0x0e4c // 0x2982 @0x2
0x2980…298d at0004 = ╱9d╱ EXEC ╱ // 0x2984 @0x4
0x2980…298d at0005 = ╱4f╱O╱ // 0x2985 @0x5
0x2980…298d at0006 = ╱50╱P╱ // 0x2986 @0x6
0x2980…298d at0007 = ╱53╱S╱ // 0x2987 @0x7
0x2980…298d at0008 = ╱55╱U╱ // 0x2988 @0x8
0x2980…298d at0009 = ╱4d╱M╱ // 0x2989 @0x9
0x2980…298d at000a = ╱45╱E╱ // 0x298a @0xa
0x2980…298d at000b = ╱52╱R╱ // 0x298b @0xb
0x2980…298d at000c = EOL // 0x298c @0xc
0x2980…298d }
0x298d…299a bf88 3670 EXEC UDSKRIV
0x298d…299a LineComal80 {
0x298d…299a ptr = 0xbf88 // 0x298d @0x0
0x298d…299a lno = 0x0e56 // 0x298f @0x2
0x298d…299a at0004 = ╱9d╱ EXEC ╱ // 0x2991 @0x4
0x298d…299a at0005 = ╱55╱U╱ // 0x2992 @0x5
0x298d…299a at0006 = ╱44╱D╱ // 0x2993 @0x6
0x298d…299a at0007 = ╱53╱S╱ // 0x2994 @0x7
0x298d…299a at0008 = ╱4b╱K╱ // 0x2995 @0x8
0x298d…299a at0009 = ╱52╱R╱ // 0x2996 @0x9
0x298d…299a at000a = ╱49╱I╱ // 0x2997 @0xa
0x298d…299a at000b = ╱56╱V╱ // 0x2998 @0xb
0x298d…299a at000c = EOL // 0x2999 @0xc
0x298d…299a }
0x299a…29ad bf9b 3680 ENDPROC FUNKTIONSMENU
0x299a…29ad LineComal80 {
0x299a…29ad ptr = 0xbf9b // 0x299a @0x0
0x299a…29ad lno = 0x0e60 // 0x299c @0x2
0x299a…29ad at0004 = ╱9f╱ ENDPROC ╱ // 0x299e @0x4
0x299a…29ad at0005 = ╱46╱F╱ // 0x299f @0x5
0x299a…29ad at0006 = ╱55╱U╱ // 0x29a0 @0x6
0x299a…29ad at0007 = ╱4e╱N╱ // 0x29a1 @0x7
0x299a…29ad at0008 = ╱4b╱K╱ // 0x29a2 @0x8
0x299a…29ad at0009 = ╱54╱T╱ // 0x29a3 @0x9
0x299a…29ad at000a = ╱49╱I╱ // 0x29a4 @0xa
0x299a…29ad at000b = ╱4f╱O╱ // 0x29a5 @0xb
0x299a…29ad at000c = ╱4e╱N╱ // 0x29a6 @0xc
0x299a…29ad at000d = ╱53╱S╱ // 0x29a7 @0xd
0x299a…29ad at000e = ╱4d╱M╱ // 0x29a8 @0xe
0x299a…29ad at000f = ╱45╱E╱ // 0x29a9 @0xf
0x299a…29ad at0010 = ╱4e╱N╱ // 0x29aa @0x10
0x299a…29ad at0011 = ╱55╱U╱ // 0x29ab @0x11
0x299a…29ad at0012 = EOL // 0x29ac @0x12
0x299a…29ad }
0x29ad…29b3 c285 1610 //
0x29ad…29b3 LineComal80 {
0x29ad…29b3 ptr = 0xc285 // 0x29ad @0x0
0x29ad…29b3 lno = 0x064a // 0x29af @0x2
0x29ad…29b3 at0004 = ╱89╱ // ╱ // 0x29b1 @0x4
0x29ad…29b3 at0005 = EOL // 0x29b2 @0x5
0x29ad…29b3 }
0x29b3…29e6 bfd4 1600 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
0x29b3…29e6 LineComal80 {
0x29b3…29e6 ptr = 0xbfd4 // 0x29b3 @0x0
0x29b3…29e6 lno = 0x0640 // 0x29b5 @0x2
0x29b3…29e6 at0004 = ╱9e17╱ PROC ╱ // 0x29b7 @0x4
0x29b3…29e6 at0006 = ╱50╱P╱ // 0x29b9 @0x6
0x29b3…29e6 at0007 = ╱52╱R╱ // 0x29ba @0x7
0x29b3…29e6 at0008 = ╱49╱I╱ // 0x29bb @0x8
0x29b3…29e6 at0009 = ╱4e╱N╱ // 0x29bc @0x9
0x29b3…29e6 at000a = ╱54╱T╱ // 0x29bd @0xa
0x29b3…29e6 at000b = ╱52╱R╱ // 0x29be @0xb
0x29b3…29e6 at000c = ╱45╱E╱ // 0x29bf @0xc
0x29b3…29e6 at000d = ╱53╱S╱ // 0x29c0 @0xd
0x29b3…29e6 at000e = ╱ed╱(╱ // 0x29c1 @0xe
0x29b3…29e6 at000f = ╱50╱P╱ // 0x29c2 @0xf
0x29b3…29e6 at0010 = ╱41╱A╱ // 0x29c3 @0x10
0x29b3…29e6 at0011 = ╱47╱G╱ // 0x29c4 @0x11
0x29b3…29e6 at0012 = ╱45╱E╱ // 0x29c5 @0x12
0x29b3…29e6 at0013 = ╱54╱T╱ // 0x29c6 @0x13
0x29b3…29e6 at0014 = ╱59╱Y╱ // 0x29c7 @0x14
0x29b3…29e6 at0015 = ╱50╱P╱ // 0x29c8 @0x15
0x29b3…29e6 at0016 = ╱45╱E╱ // 0x29c9 @0x16
0x29b3…29e6 at0017 = ╱ef╱$╱ // 0x29ca @0x17
0x29b3…29e6 at0018 = ╱ec╱,╱ // 0x29cb @0x18
0x29b3…29e6 at0019 = ╱4c╱L╱ // 0x29cc @0x19
0x29b3…29e6 at001a = ╱49╱I╱ // 0x29cd @0x1a
0x29b3…29e6 at001b = ╱4e╱N╱ // 0x29ce @0x1b
0x29b3…29e6 at001c = ╱45╱E╱ // 0x29cf @0x1c
0x29b3…29e6 at001d = ╱ee╱)╱ // 0x29d0 @0x1d
0x29b3…29e6 at001e = ╱89╱ // ╱ // 0x29d1 @0x1e
0x29b3…29e6 at001f = ╱50╱P╱ // 0x29d2 @0x1f
0x29b3…29e6 at0020 = ╱52╱R╱ // 0x29d3 @0x20
0x29b3…29e6 at0021 = ╱49╱I╱ // 0x29d4 @0x21
0x29b3…29e6 at0022 = ╱4e╱N╱ // 0x29d5 @0x22
0x29b3…29e6 at0023 = ╱54╱T╱ // 0x29d6 @0x23
0x29b3…29e6 at0024 = ╱45╱E╱ // 0x29d7 @0x24
0x29b3…29e6 at0025 = ╱52╱R╱ // 0x29d8 @0x25
0x29b3…29e6 at0026 = ╱20╱…╱ // 0x29d9 @0x26
0x29b3…29e6 at0027 = ╱52╱R╱ // 0x29da @0x27
0x29b3…29e6 at0028 = ╱45╱E╱ // 0x29db @0x28
0x29b3…29e6 at0029 = ╱53╱S╱ // 0x29dc @0x29
0x29b3…29e6 at002a = ╱45╱E╱ // 0x29dd @0x2a
0x29b3…29e6 at002b = ╱52╱R╱ // 0x29de @0x2b
0x29b3…29e6 at002c = ╱56╱V╱ // 0x29df @0x2c
0x29b3…29e6 at002d = ╱41╱A╱ // 0x29e0 @0x2d
0x29b3…29e6 at002e = ╱54╱T╱ // 0x29e1 @0x2e
0x29b3…29e6 at002f = ╱49╱I╱ // 0x29e2 @0x2f
0x29b3…29e6 at0030 = ╱4f╱O╱ // 0x29e3 @0x30
0x29b3…29e6 at0031 = ╱4e╱N╱ // 0x29e4 @0x31
0x29b3…29e6 at0032 = EOL // 0x29e5 @0x32
0x29b3…29e6 }
0x29e6…29fe bfec 1610 LET PRTNR$ := "1" ; OK := TRUE
0x29e6…29fe LineComal80 {
0x29e6…29fe ptr = 0xbfec // 0x29e6 @0x0
0x29e6…29fe lno = 0x064a // 0x29e8 @0x2
0x29e6…29fe at0004 = ╱86╱ LET ╱ // 0x29ea @0x4
0x29e6…29fe at0005 = ╱50╱P╱ // 0x29eb @0x5
0x29e6…29fe at0006 = ╱52╱R╱ // 0x29ec @0x6
0x29e6…29fe at0007 = ╱54╱T╱ // 0x29ed @0x7
0x29e6…29fe at0008 = ╱4e╱N╱ // 0x29ee @0x8
0x29e6…29fe at0009 = ╱52╱R╱ // 0x29ef @0x9
0x29e6…29fe at000a = ╱ef╱$╱ // 0x29f0 @0xa
0x29e6…29fe at000b = ╱f0╱ := ╱ // 0x29f1 @0xb
0x29e6…29fe at000c = ╱22╱"╱ // 0x29f2 @0xc
0x29e6…29fe at000d = ╱31╱1╱ // 0x29f3 @0xd
0x29e6…29fe at000e = ╱22╱"╱ // 0x29f4 @0xe
0x29e6…29fe at000f = ╱ea╱ ; ╱ // 0x29f5 @0xf
0x29e6…29fe at0010 = ╱4f╱O╱ // 0x29f6 @0x10
0x29e6…29fe at0011 = ╱4b╱K╱ // 0x29f7 @0x11
0x29e6…29fe at0012 = ╱f0╱ := ╱ // 0x29f8 @0x12
0x29e6…29fe at0013 = ╱54╱T╱ // 0x29f9 @0x13
0x29e6…29fe at0014 = ╱52╱R╱ // 0x29fa @0x14
0x29e6…29fe at0015 = ╱55╱U╱ // 0x29fb @0x15
0x29e6…29fe at0016 = ╱45╱E╱ // 0x29fc @0x16
0x29e6…29fe at0017 = EOL // 0x29fd @0x17
0x29e6…29fe }
0x29fe…2a05 bff3 1620 REPEAT
0x29fe…2a05 LineComal80 {
0x29fe…2a05 ptr = 0xbff3 // 0x29fe @0x0
0x29fe…2a05 lno = 0x0654 // 0x2a00 @0x2
0x29fe…2a05 at0004 = ╱9718╱ REPEAT ╱ // 0x2a02 @0x4
0x29fe…2a05 at0006 = EOL // 0x2a04 @0x6
0x29fe…2a05 }
0x2a05…2a15 c003 1630 CURSOR 21,LINE
0x2a05…2a15 LineComal80 {
0x2a05…2a15 ptr = 0xc003 // 0x2a05 @0x0
0x2a05…2a15 lno = 0x065e // 0x2a07 @0x2
0x2a05…2a15 at0004 = ╱a1╱ CURSOR ╱ // 0x2a09 @0x4
0x2a05…2a15 at0005 = ╱32╱2╱ // 0x2a0a @0x5
0x2a05…2a15 at0006 = ╱31╱1╱ // 0x2a0b @0x6
0x2a05…2a15 at0007 = ╱f21500╱ // 0x2a0c @0x7
0x2a05…2a15 at000a = ╱ec╱,╱ // 0x2a0f @0xa
0x2a05…2a15 at000b = ╱4c╱L╱ // 0x2a10 @0xb
0x2a05…2a15 at000c = ╱49╱I╱ // 0x2a11 @0xc
0x2a05…2a15 at000d = ╱4e╱N╱ // 0x2a12 @0xd
0x2a05…2a15 at000e = ╱45╱E╱ // 0x2a13 @0xe
0x2a05…2a15 at000f = EOL // 0x2a14 @0xf
0x2a05…2a15 }
0x2a15…2a4e c03c 1640 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
0x2a15…2a4e LineComal80 {
0x2a15…2a4e ptr = 0xc03c // 0x2a15 @0x0
0x2a15…2a4e lno = 0x0668 // 0x2a17 @0x2
0x2a15…2a4e at0004 = ╱b1╱ EDIT ╱ // 0x2a19 @0x4
0x2a15…2a4e at0005 = ╱22╱"╱ // 0x2a1a @0x5
0x2a15…2a4e at0006 = ╱3c╱<╱ // 0x2a1b @0x6
0x2a15…2a4e at0007 = ╱5a╱Z╱ // 0x2a1c @0x7
0x2a15…2a4e at0008 = ╱3e╱>╱ // 0x2a1d @0x8
0x2a15…2a4e at0009 = ╱55╱U╱ // 0x2a1e @0x9
0x2a15…2a4e at000a = ╱64╱d╱ // 0x2a1f @0xa
0x2a15…2a4e at000b = ╱73╱s╱ // 0x2a20 @0xb
0x2a15…2a4e at000c = ╱6b╱k╱ // 0x2a21 @0xc
0x2a15…2a4e at000d = ╱72╱r╱ // 0x2a22 @0xd
0x2a15…2a4e at000e = ╱69╱i╱ // 0x2a23 @0xe
0x2a15…2a4e at000f = ╱76╱v╱ // 0x2a24 @0xf
0x2a15…2a4e at0010 = ╱6e╱n╱ // 0x2a25 @0x10
0x2a15…2a4e at0011 = ╱69╱i╱ // 0x2a26 @0x11
0x2a15…2a4e at0012 = ╱6e╱n╱ // 0x2a27 @0x12
0x2a15…2a4e at0013 = ╱67╱g╱ // 0x2a28 @0x13
0x2a15…2a4e at0014 = ╱20╱…╱ // 0x2a29 @0x14
0x2a15…2a4e at0015 = ╱70╱p╱ // 0x2a2a @0x15
0x2a15…2a4e at0016 = ╱7d╱å╱ // 0x2a2b @0x16
0x2a15…2a4e at0017 = ╱20╱…╱ // 0x2a2c @0x17
0x2a15…2a4e at0018 = ╱70╱p╱ // 0x2a2d @0x18
0x2a15…2a4e at0019 = ╱72╱r╱ // 0x2a2e @0x19
0x2a15…2a4e at001a = ╱69╱i╱ // 0x2a2f @0x1a
0x2a15…2a4e at001b = ╱6e╱n╱ // 0x2a30 @0x1b
0x2a15…2a4e at001c = ╱74╱t╱ // 0x2a31 @0x1c
0x2a15…2a4e at001d = ╱65╱e╱ // 0x2a32 @0x1d
0x2a15…2a4e at001e = ╱72╱r╱ // 0x2a33 @0x1e
0x2a15…2a4e at001f = ╱20╱…╱ // 0x2a34 @0x1f
0x2a15…2a4e at0020 = ╱6e╱n╱ // 0x2a35 @0x20
0x2a15…2a4e at0021 = ╱72╱r╱ // 0x2a36 @0x21
0x2a15…2a4e at0022 = ╱2e╱.╱ // 0x2a37 @0x22
0x2a15…2a4e at0023 = ╱20╱…╱ // 0x2a38 @0x23
0x2a15…2a4e at0024 = ╱3f╱?╱ // 0x2a39 @0x24
0x2a15…2a4e at0025 = ╱20╱…╱ // 0x2a3a @0x25
0x2a15…2a4e at0026 = ╱28╱(╱ // 0x2a3b @0x26
0x2a15…2a4e at0027 = ╱31╱1╱ // 0x2a3c @0x27
0x2a15…2a4e at0028 = ╱2f╱/╱ // 0x2a3d @0x28
0x2a15…2a4e at0029 = ╱32╱2╱ // 0x2a3e @0x29
0x2a15…2a4e at002a = ╱2f╱/╱ // 0x2a3f @0x2a
0x2a15…2a4e at002b = ╱33╱3╱ // 0x2a40 @0x2b
0x2a15…2a4e at002c = ╱2f╱/╱ // 0x2a41 @0x2c
0x2a15…2a4e at002d = ╱34╱4╱ // 0x2a42 @0x2d
0x2a15…2a4e at002e = ╱29╱)╱ // 0x2a43 @0x2e
0x2a15…2a4e at002f = ╱20╱…╱ // 0x2a44 @0x2f
0x2a15…2a4e at0030 = ╱22╱"╱ // 0x2a45 @0x30
0x2a15…2a4e at0031 = ╱f1╱ : ╱ // 0x2a46 @0x31
0x2a15…2a4e at0032 = ╱50╱P╱ // 0x2a47 @0x32
0x2a15…2a4e at0033 = ╱52╱R╱ // 0x2a48 @0x33
0x2a15…2a4e at0034 = ╱54╱T╱ // 0x2a49 @0x34
0x2a15…2a4e at0035 = ╱4e╱N╱ // 0x2a4a @0x35
0x2a15…2a4e at0036 = ╱52╱R╱ // 0x2a4b @0x36
0x2a15…2a4e at0037 = ╱ef╱$╱ // 0x2a4c @0x37
0x2a15…2a4e at0038 = EOL // 0x2a4d @0x38
0x2a15…2a4e }
0x2a4e…2a6e c05c 1650 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
0x2a4e…2a6e LineComal80 {
0x2a4e…2a6e ptr = 0xc05c // 0x2a4e @0x0
0x2a4e…2a6e lno = 0x0672 // 0x2a50 @0x2
0x2a4e…2a6e at0004 = ╱98╱ UNTIL ╱ // 0x2a52 @0x4
0x2a4e…2a6e at0005 = ╱22╱"╱ // 0x2a53 @0x5
0x2a4e…2a6e at0006 = ╱2f╱/╱ // 0x2a54 @0x6
0x2a4e…2a6e at0007 = ╱22╱"╱ // 0x2a55 @0x7
0x2a4e…2a6e at0008 = ╱eb╱ + ╱ // 0x2a56 @0x8
0x2a4e…2a6e at0009 = ╱50╱P╱ // 0x2a57 @0x9
0x2a4e…2a6e at000a = ╱52╱R╱ // 0x2a58 @0xa
0x2a4e…2a6e at000b = ╱54╱T╱ // 0x2a59 @0xb
0x2a4e…2a6e at000c = ╱4e╱N╱ // 0x2a5a @0xc
0x2a4e…2a6e at000d = ╱52╱R╱ // 0x2a5b @0xd
0x2a4e…2a6e at000e = ╱ef╱$╱ // 0x2a5c @0xe
0x2a4e…2a6e at000f = ╱eb╱ + ╱ // 0x2a5d @0xf
0x2a4e…2a6e at0010 = ╱22╱"╱ // 0x2a5e @0x10
0x2a4e…2a6e at0011 = ╱2f╱/╱ // 0x2a5f @0x11
0x2a4e…2a6e at0012 = ╱22╱"╱ // 0x2a60 @0x12
0x2a4e…2a6e at0013 = ╱dc╱ IN ╱ // 0x2a61 @0x13
0x2a4e…2a6e at0014 = ╱22╱"╱ // 0x2a62 @0x14
0x2a4e…2a6e at0015 = ╱2f╱/╱ // 0x2a63 @0x15
0x2a4e…2a6e at0016 = ╱31╱1╱ // 0x2a64 @0x16
0x2a4e…2a6e at0017 = ╱2f╱/╱ // 0x2a65 @0x17
0x2a4e…2a6e at0018 = ╱32╱2╱ // 0x2a66 @0x18
0x2a4e…2a6e at0019 = ╱2f╱/╱ // 0x2a67 @0x19
0x2a4e…2a6e at001a = ╱33╱3╱ // 0x2a68 @0x1a
0x2a4e…2a6e at001b = ╱2f╱/╱ // 0x2a69 @0x1b
0x2a4e…2a6e at001c = ╱34╱4╱ // 0x2a6a @0x1c
0x2a4e…2a6e at001d = ╱2f╱/╱ // 0x2a6b @0x1d
0x2a4e…2a6e at001e = ╱22╱"╱ // 0x2a6c @0x1e
0x2a4e…2a6e at001f = EOL // 0x2a6d @0x1f
0x2a4e…2a6e }
0x2a6e…2a92 c080 1660 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
0x2a6e…2a92 LineComal80 {
0x2a6e…2a92 ptr = 0xc080 // 0x2a6e @0x0
0x2a6e…2a92 lno = 0x067c // 0x2a70 @0x2
0x2a6e…2a92 at0004 = ╱a1╱ CURSOR ╱ // 0x2a72 @0x4
0x2a6e…2a92 at0005 = ╱ed╱(╱ // 0x2a73 @0x5
0x2a6e…2a92 at0006 = ╱33╱3╱ // 0x2a74 @0x6
0x2a6e…2a92 at0007 = ╱39╱9╱ // 0x2a75 @0x7
0x2a6e…2a92 at0008 = ╱f22700╱ // 0x2a76 @0x8
0x2a6e…2a92 at000b = ╱e6╱ - ╱ // 0x2a79 @0xb
0x2a6e…2a92 at000c = ╱cb╱ // 0x2a7a @0xc
0x2a6e…2a92 at000d = ╱ed╱(╱ // 0x2a7b @0xd
0x2a6e…2a92 at000e = ╱50╱P╱ // 0x2a7c @0xe
0x2a6e…2a92 at000f = ╱41╱A╱ // 0x2a7d @0xf
0x2a6e…2a92 at0010 = ╱47╱G╱ // 0x2a7e @0x10
0x2a6e…2a92 at0011 = ╱45╱E╱ // 0x2a7f @0x11
0x2a6e…2a92 at0012 = ╱54╱T╱ // 0x2a80 @0x12
0x2a6e…2a92 at0013 = ╱59╱Y╱ // 0x2a81 @0x13
0x2a6e…2a92 at0014 = ╱50╱P╱ // 0x2a82 @0x14
0x2a6e…2a92 at0015 = ╱45╱E╱ // 0x2a83 @0x15
0x2a6e…2a92 at0016 = ╱ef╱$╱ // 0x2a84 @0x16
0x2a6e…2a92 at0017 = ╱ee╱)╱ // 0x2a85 @0x17
0x2a6e…2a92 at0018 = ╱ee╱)╱ // 0x2a86 @0x18
0x2a6e…2a92 at0019 = ╱da╱ DIV ╱ // 0x2a87 @0x19
0x2a6e…2a92 at001a = ╱32╱2╱ // 0x2a88 @0x1a
0x2a6e…2a92 at001b = ╱f20200╱ // 0x2a89 @0x1b
0x2a6e…2a92 at001e = ╱ec╱,╱ // 0x2a8c @0x1e
0x2a6e…2a92 at001f = ╱4c╱L╱ // 0x2a8d @0x1f
0x2a6e…2a92 at0020 = ╱49╱I╱ // 0x2a8e @0x20
0x2a6e…2a92 at0021 = ╱4e╱N╱ // 0x2a8f @0x21
0x2a6e…2a92 at0022 = ╱45╱E╱ // 0x2a90 @0x22
0x2a6e…2a92 at0023 = EOL // 0x2a91 @0x23
0x2a6e…2a92 }
0x2a92…2ad2 c0c0 1670 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
0x2a92…2ad2 LineComal80 {
0x2a92…2ad2 ptr = 0xc0c0 // 0x2a92 @0x0
0x2a92…2ad2 lno = 0x0686 // 0x2a94 @0x2
0x2a92…2ad2 at0004 = ╱92╱ PRINT ╱ // 0x2a96 @0x4
0x2a92…2ad2 at0005 = ╱22╱"╱ // 0x2a97 @0x5
0x2a92…2ad2 at0006 = ╱3c╱<╱ // 0x2a98 @0x6
0x2a92…2ad2 at0007 = ╱53╱S╱ // 0x2a99 @0x7
0x2a92…2ad2 at0008 = ╱5a╱Z╱ // 0x2a9a @0x8
0x2a92…2ad2 at0009 = ╱3e╱>╱ // 0x2a9b @0x9
0x2a92…2ad2 at000a = ╱20╱…╱ // 0x2a9c @0xa
0x2a92…2ad2 at000b = ╱20╱…╱ // 0x2a9d @0xb
0x2a92…2ad2 at000c = ╱20╱…╱ // 0x2a9e @0xc
0x2a92…2ad2 at000d = ╱20╱…╱ // 0x2a9f @0xd
0x2a92…2ad2 at000e = ╱20╱…╱ // 0x2aa0 @0xe
0x2a92…2ad2 at000f = ╱4d╱M╱ // 0x2aa1 @0xf
0x2a92…2ad2 at0010 = ╱6f╱o╱ // 0x2aa2 @0x10
0x2a92…2ad2 at0011 = ╱6e╱n╱ // 0x2aa3 @0x11
0x2a92…2ad2 at0012 = ╱74╱t╱ // 0x2aa4 @0x12
0x2a92…2ad2 at0013 = ╱65╱e╱ // 0x2aa5 @0x13
0x2a92…2ad2 at0014 = ╱72╱r╱ // 0x2aa6 @0x14
0x2a92…2ad2 at0015 = ╱20╱…╱ // 0x2aa7 @0x15
0x2a92…2ad2 at0016 = ╱22╱"╱ // 0x2aa8 @0x16
0x2a92…2ad2 at0017 = ╱ea╱ ; ╱ // 0x2aa9 @0x17
0x2a92…2ad2 at0018 = ╱50╱P╱ // 0x2aaa @0x18
0x2a92…2ad2 at0019 = ╱41╱A╱ // 0x2aab @0x19
0x2a92…2ad2 at001a = ╱47╱G╱ // 0x2aac @0x1a
0x2a92…2ad2 at001b = ╱45╱E╱ // 0x2aad @0x1b
0x2a92…2ad2 at001c = ╱54╱T╱ // 0x2aae @0x1c
0x2a92…2ad2 at001d = ╱59╱Y╱ // 0x2aaf @0x1d
0x2a92…2ad2 at001e = ╱50╱P╱ // 0x2ab0 @0x1e
0x2a92…2ad2 at001f = ╱45╱E╱ // 0x2ab1 @0x1f
0x2a92…2ad2 at0020 = ╱ef╱$╱ // 0x2ab2 @0x20
0x2a92…2ad2 at0021 = ╱ea╱ ; ╱ // 0x2ab3 @0x21
0x2a92…2ad2 at0022 = ╱22╱"╱ // 0x2ab4 @0x22
0x2a92…2ad2 at0023 = ╱20╱…╱ // 0x2ab5 @0x23
0x2a92…2ad2 at0024 = ╱69╱i╱ // 0x2ab6 @0x24
0x2a92…2ad2 at0025 = ╱20╱…╱ // 0x2ab7 @0x25
0x2a92…2ad2 at0026 = ╱70╱p╱ // 0x2ab8 @0x26
0x2a92…2ad2 at0027 = ╱72╱r╱ // 0x2ab9 @0x27
0x2a92…2ad2 at0028 = ╱69╱i╱ // 0x2aba @0x28
0x2a92…2ad2 at0029 = ╱6e╱n╱ // 0x2abb @0x29
0x2a92…2ad2 at002a = ╱74╱t╱ // 0x2abc @0x2a
0x2a92…2ad2 at002b = ╱65╱e╱ // 0x2abd @0x2b
0x2a92…2ad2 at002c = ╱72╱r╱ // 0x2abe @0x2c
0x2a92…2ad2 at002d = ╱65╱e╱ // 0x2abf @0x2d
0x2a92…2ad2 at002e = ╱6e╱n╱ // 0x2ac0 @0x2e
0x2a92…2ad2 at002f = ╱20╱…╱ // 0x2ac1 @0x2f
0x2a92…2ad2 at0030 = ╱2d╱-╱ // 0x2ac2 @0x30
0x2a92…2ad2 at0031 = ╱20╱…╱ // 0x2ac3 @0x31
0x2a92…2ad2 at0032 = ╱74╱t╱ // 0x2ac4 @0x32
0x2a92…2ad2 at0033 = ╱72╱r╱ // 0x2ac5 @0x33
0x2a92…2ad2 at0034 = ╱79╱y╱ // 0x2ac6 @0x34
0x2a92…2ad2 at0035 = ╱6b╱k╱ // 0x2ac7 @0x35
0x2a92…2ad2 at0036 = ╱20╱…╱ // 0x2ac8 @0x36
0x2a92…2ad2 at0037 = ╱52╱R╱ // 0x2ac9 @0x37
0x2a92…2ad2 at0038 = ╱45╱E╱ // 0x2aca @0x38
0x2a92…2ad2 at0039 = ╱54╱T╱ // 0x2acb @0x39
0x2a92…2ad2 at003a = ╱55╱U╱ // 0x2acc @0x3a
0x2a92…2ad2 at003b = ╱52╱R╱ // 0x2acd @0x3b
0x2a92…2ad2 at003c = ╱4e╱N╱ // 0x2ace @0x3c
0x2a92…2ad2 at003d = ╱20╱…╱ // 0x2acf @0x3d
0x2a92…2ad2 at003e = ╱22╱"╱ // 0x2ad0 @0x3e
0x2a92…2ad2 at003f = EOL // 0x2ad1 @0x3f
0x2a92…2ad2 }
0x2ad2…2ae0 c0ce 1680 INPUT "" : SVAR$
0x2ad2…2ae0 LineComal80 {
0x2ad2…2ae0 ptr = 0xc0ce // 0x2ad2 @0x0
0x2ad2…2ae0 lno = 0x0690 // 0x2ad4 @0x2
0x2ad2…2ae0 at0004 = ╱91╱ INPUT ╱ // 0x2ad6 @0x4
0x2ad2…2ae0 at0005 = ╱22╱"╱ // 0x2ad7 @0x5
0x2ad2…2ae0 at0006 = ╱22╱"╱ // 0x2ad8 @0x6
0x2ad2…2ae0 at0007 = ╱f1╱ : ╱ // 0x2ad9 @0x7
0x2ad2…2ae0 at0008 = ╱53╱S╱ // 0x2ada @0x8
0x2ad2…2ae0 at0009 = ╱56╱V╱ // 0x2adb @0x9
0x2ad2…2ae0 at000a = ╱41╱A╱ // 0x2adc @0xa
0x2ad2…2ae0 at000b = ╱52╱R╱ // 0x2add @0xb
0x2ad2…2ae0 at000c = ╱ef╱$╱ // 0x2ade @0xc
0x2ad2…2ae0 at000d = EOL // 0x2adf @0xd
0x2ad2…2ae0 }
0x2ae0…2af0 c0de 1690 SELECT OUTPUT "P" + PRTNR$
0x2ae0…2af0 LineComal80 {
0x2ae0…2af0 ptr = 0xc0de // 0x2ae0 @0x0
0x2ae0…2af0 lno = 0x069a // 0x2ae2 @0x2
0x2ae0…2af0 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2ae4 @0x4
0x2ae0…2af0 at0005 = ╱22╱"╱ // 0x2ae5 @0x5
0x2ae0…2af0 at0006 = ╱50╱P╱ // 0x2ae6 @0x6
0x2ae0…2af0 at0007 = ╱22╱"╱ // 0x2ae7 @0x7
0x2ae0…2af0 at0008 = ╱eb╱ + ╱ // 0x2ae8 @0x8
0x2ae0…2af0 at0009 = ╱50╱P╱ // 0x2ae9 @0x9
0x2ae0…2af0 at000a = ╱52╱R╱ // 0x2aea @0xa
0x2ae0…2af0 at000b = ╱54╱T╱ // 0x2aeb @0xb
0x2ae0…2af0 at000c = ╱4e╱N╱ // 0x2aec @0xc
0x2ae0…2af0 at000d = ╱52╱R╱ // 0x2aed @0xd
0x2ae0…2af0 at000e = ╱ef╱$╱ // 0x2aee @0xe
0x2ae0…2af0 at000f = EOL // 0x2aef @0xf
0x2ae0…2af0 }
0x2af0…2afe c0ec 1700 IF ("P") THEN
0x2af0…2afe LineComal80 {
0x2af0…2afe ptr = 0xc0ec // 0x2af0 @0x0
0x2af0…2afe lno = 0x06a4 // 0x2af2 @0x2
0x2af0…2afe at0004 = ╱9b19cd╱ IF ╱ // 0x2af4 @0x4
0x2af0…2afe at0007 = ╱ed╱(╱ // 0x2af7 @0x7
0x2af0…2afe at0008 = ╱22╱"╱ // 0x2af8 @0x8
0x2af0…2afe at0009 = ╱50╱P╱ // 0x2af9 @0x9
0x2af0…2afe at000a = ╱22╱"╱ // 0x2afa @0xa
0x2af0…2afe at000b = ╱ee╱)╱ // 0x2afb @0xb
0x2af0…2afe at000c = ╱b5╱ THEN ╱ // 0x2afc @0xc
0x2af0…2afe at000d = EOL // 0x2afd @0xd
0x2af0…2afe }
0x2afe…2b0e c0fc 1710 CURSOR 12,LINE
0x2afe…2b0e LineComal80 {
0x2afe…2b0e ptr = 0xc0fc // 0x2afe @0x0
0x2afe…2b0e lno = 0x06ae // 0x2b00 @0x2
0x2afe…2b0e at0004 = ╱a1╱ CURSOR ╱ // 0x2b02 @0x4
0x2afe…2b0e at0005 = ╱31╱1╱ // 0x2b03 @0x5
0x2afe…2b0e at0006 = ╱32╱2╱ // 0x2b04 @0x6
0x2afe…2b0e at0007 = ╱f20c00╱ // 0x2b05 @0x7
0x2afe…2b0e at000a = ╱ec╱,╱ // 0x2b08 @0xa
0x2afe…2b0e at000b = ╱4c╱L╱ // 0x2b09 @0xb
0x2afe…2b0e at000c = ╱49╱I╱ // 0x2b0a @0xc
0x2afe…2b0e at000d = ╱4e╱N╱ // 0x2b0b @0xd
0x2afe…2b0e at000e = ╱45╱E╱ // 0x2b0c @0xe
0x2afe…2b0e at000f = EOL // 0x2b0d @0xf
0x2afe…2b0e }
0x2b0e…2b45 c133 1720 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
0x2b0e…2b45 LineComal80 {
0x2b0e…2b45 ptr = 0xc133 // 0x2b0e @0x0
0x2b0e…2b45 lno = 0x06b8 // 0x2b10 @0x2
0x2b0e…2b45 at0004 = ╱92╱ PRINT ╱ // 0x2b12 @0x4
0x2b0e…2b45 at0005 = ╱22╱"╱ // 0x2b13 @0x5
0x2b0e…2b45 at0006 = ╱3c╱<╱ // 0x2b14 @0x6
0x2b0e…2b45 at0007 = ╱53╱S╱ // 0x2b15 @0x7
0x2b0e…2b45 at0008 = ╱5a╱Z╱ // 0x2b16 @0x8
0x2b0e…2b45 at0009 = ╱3e╱>╱ // 0x2b17 @0x9
0x2b0e…2b45 at000a = ╱50╱P╱ // 0x2b18 @0xa
0x2b0e…2b45 at000b = ╱72╱r╱ // 0x2b19 @0xb
0x2b0e…2b45 at000c = ╱69╱i╱ // 0x2b1a @0xc
0x2b0e…2b45 at000d = ╱6e╱n╱ // 0x2b1b @0xd
0x2b0e…2b45 at000e = ╱74╱t╱ // 0x2b1c @0xe
0x2b0e…2b45 at000f = ╱65╱e╱ // 0x2b1d @0xf
0x2b0e…2b45 at0010 = ╱72╱r╱ // 0x2b1e @0x10
0x2b0e…2b45 at0011 = ╱65╱e╱ // 0x2b1f @0x11
0x2b0e…2b45 at0012 = ╱6e╱n╱ // 0x2b20 @0x12
0x2b0e…2b45 at0013 = ╱20╱…╱ // 0x2b21 @0x13
0x2b0e…2b45 at0014 = ╱65╱e╱ // 0x2b22 @0x14
0x2b0e…2b45 at0015 = ╱72╱r╱ // 0x2b23 @0x15
0x2b0e…2b45 at0016 = ╱20╱…╱ // 0x2b24 @0x16
0x2b0e…2b45 at0017 = ╱72╱r╱ // 0x2b25 @0x17
0x2b0e…2b45 at0018 = ╱65╱e╱ // 0x2b26 @0x18
0x2b0e…2b45 at0019 = ╱73╱s╱ // 0x2b27 @0x19
0x2b0e…2b45 at001a = ╱65╱e╱ // 0x2b28 @0x1a
0x2b0e…2b45 at001b = ╱72╱r╱ // 0x2b29 @0x1b
0x2b0e…2b45 at001c = ╱76╱v╱ // 0x2b2a @0x1c
0x2b0e…2b45 at001d = ╱65╱e╱ // 0x2b2b @0x1d
0x2b0e…2b45 at001e = ╱72╱r╱ // 0x2b2c @0x1e
0x2b0e…2b45 at001f = ╱65╱e╱ // 0x2b2d @0x1f
0x2b0e…2b45 at0020 = ╱74╱t╱ // 0x2b2e @0x20
0x2b0e…2b45 at0021 = ╱20╱…╱ // 0x2b2f @0x21
0x2b0e…2b45 at0022 = ╱61╱a╱ // 0x2b30 @0x22
0x2b0e…2b45 at0023 = ╱66╱f╱ // 0x2b31 @0x23
0x2b0e…2b45 at0024 = ╱20╱…╱ // 0x2b32 @0x24
0x2b0e…2b45 at0025 = ╱65╱e╱ // 0x2b33 @0x25
0x2b0e…2b45 at0026 = ╱6e╱n╱ // 0x2b34 @0x26
0x2b0e…2b45 at0027 = ╱20╱…╱ // 0x2b35 @0x27
0x2b0e…2b45 at0028 = ╱61╱a╱ // 0x2b36 @0x28
0x2b0e…2b45 at0029 = ╱6e╱n╱ // 0x2b37 @0x29
0x2b0e…2b45 at002a = ╱64╱d╱ // 0x2b38 @0x2a
0x2b0e…2b45 at002b = ╱65╱e╱ // 0x2b39 @0x2b
0x2b0e…2b45 at002c = ╱6e╱n╱ // 0x2b3a @0x2c
0x2b0e…2b45 at002d = ╱20╱…╱ // 0x2b3b @0x2d
0x2b0e…2b45 at002e = ╱62╱b╱ // 0x2b3c @0x2e
0x2b0e…2b45 at002f = ╱72╱r╱ // 0x2b3d @0x2f
0x2b0e…2b45 at0030 = ╱75╱u╱ // 0x2b3e @0x30
0x2b0e…2b45 at0031 = ╱67╱g╱ // 0x2b3f @0x31
0x2b0e…2b45 at0032 = ╱65╱e╱ // 0x2b40 @0x32
0x2b0e…2b45 at0033 = ╱72╱r╱ // 0x2b41 @0x33
0x2b0e…2b45 at0034 = ╱2c╱,╱ // 0x2b42 @0x34
0x2b0e…2b45 at0035 = ╱22╱"╱ // 0x2b43 @0x35
0x2b0e…2b45 at0036 = EOL // 0x2b44 @0x36
0x2b0e…2b45 }
0x2b45…2b5a c148 1730 CURSOR 12,LINE + 1
0x2b45…2b5a LineComal80 {
0x2b45…2b5a ptr = 0xc148 // 0x2b45 @0x0
0x2b45…2b5a lno = 0x06c2 // 0x2b47 @0x2
0x2b45…2b5a at0004 = ╱a1╱ CURSOR ╱ // 0x2b49 @0x4
0x2b45…2b5a at0005 = ╱31╱1╱ // 0x2b4a @0x5
0x2b45…2b5a at0006 = ╱32╱2╱ // 0x2b4b @0x6
0x2b45…2b5a at0007 = ╱f20c00╱ // 0x2b4c @0x7
0x2b45…2b5a at000a = ╱ec╱,╱ // 0x2b4f @0xa
0x2b45…2b5a at000b = ╱4c╱L╱ // 0x2b50 @0xb
0x2b45…2b5a at000c = ╱49╱I╱ // 0x2b51 @0xc
0x2b45…2b5a at000d = ╱4e╱N╱ // 0x2b52 @0xd
0x2b45…2b5a at000e = ╱45╱E╱ // 0x2b53 @0xe
0x2b45…2b5a at000f = ╱e5╱ + ╱ // 0x2b54 @0xf
0x2b45…2b5a at0010 = ╱31╱1╱ // 0x2b55 @0x10
0x2b45…2b5a at0011 = ╱f20100╱ // 0x2b56 @0x11
0x2b45…2b5a at0014 = EOL // 0x2b59 @0x14
0x2b45…2b5a }
0x2b5a…2b9b c189 1740 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
0x2b5a…2b9b LineComal80 {
0x2b5a…2b9b ptr = 0xc189 // 0x2b5a @0x0
0x2b5a…2b9b lno = 0x06cc // 0x2b5c @0x2
0x2b5a…2b9b at0004 = ╱91╱ INPUT ╱ // 0x2b5e @0x4
0x2b5a…2b9b at0005 = ╱22╱"╱ // 0x2b5f @0x5
0x2b5a…2b9b at0006 = ╱3c╱<╱ // 0x2b60 @0x6
0x2b5a…2b9b at0007 = ╱53╱S╱ // 0x2b61 @0x7
0x2b5a…2b9b at0008 = ╱5a╱Z╱ // 0x2b62 @0x8
0x2b5a…2b9b at0009 = ╱3e╱>╱ // 0x2b63 @0x9
0x2b5a…2b9b at000a = ╱53╱S╱ // 0x2b64 @0xa
0x2b5a…2b9b at000b = ╱6b╱k╱ // 0x2b65 @0xb
0x2b5a…2b9b at000c = ╱61╱a╱ // 0x2b66 @0xc
0x2b5a…2b9b at000d = ╱6c╱l╱ // 0x2b67 @0xd
0x2b5a…2b9b at000e = ╱20╱…╱ // 0x2b68 @0xe
0x2b5a…2b9b at000f = ╱64╱d╱ // 0x2b69 @0xf
0x2b5a…2b9b at0010 = ╱65╱e╱ // 0x2b6a @0x10
0x2b5a…2b9b at0011 = ╱72╱r╱ // 0x2b6b @0x11
0x2b5a…2b9b at0012 = ╱20╱…╱ // 0x2b6c @0x12
0x2b5a…2b9b at0013 = ╱76╱v╱ // 0x2b6d @0x13
0x2b5a…2b9b at0014 = ╱65╱e╱ // 0x2b6e @0x14
0x2b5a…2b9b at0015 = ╱6e╱n╱ // 0x2b6f @0x15
0x2b5a…2b9b at0016 = ╱74╱t╱ // 0x2b70 @0x16
0x2b5a…2b9b at0017 = ╱65╱e╱ // 0x2b71 @0x17
0x2b5a…2b9b at0018 = ╱73╱s╱ // 0x2b72 @0x18
0x2b5a…2b9b at0019 = ╱20╱…╱ // 0x2b73 @0x19
0x2b5a…2b9b at001a = ╱70╱p╱ // 0x2b74 @0x1a
0x2b5a…2b9b at001b = ╱7d╱å╱ // 0x2b75 @0x1b
0x2b5a…2b9b at001c = ╱20╱…╱ // 0x2b76 @0x1c
0x2b5a…2b9b at001d = ╱61╱a╱ // 0x2b77 @0x1d
0x2b5a…2b9b at001e = ╱74╱t╱ // 0x2b78 @0x1e
0x2b5a…2b9b at001f = ╱20╱…╱ // 0x2b79 @0x1f
0x2b5a…2b9b at0020 = ╱64╱d╱ // 0x2b7a @0x20
0x2b5a…2b9b at0021 = ╱65╱e╱ // 0x2b7b @0x21
0x2b5a…2b9b at0022 = ╱6e╱n╱ // 0x2b7c @0x22
0x2b5a…2b9b at0023 = ╱20╱…╱ // 0x2b7d @0x23
0x2b5a…2b9b at0024 = ╱62╱b╱ // 0x2b7e @0x24
0x2b5a…2b9b at0025 = ╱6c╱l╱ // 0x2b7f @0x25
0x2b5a…2b9b at0026 = ╱69╱i╱ // 0x2b80 @0x26
0x2b5a…2b9b at0027 = ╱76╱v╱ // 0x2b81 @0x27
0x2b5a…2b9b at0028 = ╱65╱e╱ // 0x2b82 @0x28
0x2b5a…2b9b at0029 = ╱72╱r╱ // 0x2b83 @0x29
0x2b5a…2b9b at002a = ╱20╱…╱ // 0x2b84 @0x2a
0x2b5a…2b9b at002b = ╱6c╱l╱ // 0x2b85 @0x2b
0x2b5a…2b9b at002c = ╱65╱e╱ // 0x2b86 @0x2c
0x2b5a…2b9b at002d = ╱64╱d╱ // 0x2b87 @0x2d
0x2b5a…2b9b at002e = ╱69╱i╱ // 0x2b88 @0x2e
0x2b5a…2b9b at002f = ╱67╱g╱ // 0x2b89 @0x2f
0x2b5a…2b9b at0030 = ╱20╱…╱ // 0x2b8a @0x30
0x2b5a…2b9b at0031 = ╱3f╱?╱ // 0x2b8b @0x31
0x2b5a…2b9b at0032 = ╱20╱…╱ // 0x2b8c @0x32
0x2b5a…2b9b at0033 = ╱28╱(╱ // 0x2b8d @0x33
0x2b5a…2b9b at0034 = ╱6a╱j╱ // 0x2b8e @0x34
0x2b5a…2b9b at0035 = ╱2f╱/╱ // 0x2b8f @0x35
0x2b5a…2b9b at0036 = ╱6e╱n╱ // 0x2b90 @0x36
0x2b5a…2b9b at0037 = ╱29╱)╱ // 0x2b91 @0x37
0x2b5a…2b9b at0038 = ╱20╱…╱ // 0x2b92 @0x38
0x2b5a…2b9b at0039 = ╱22╱"╱ // 0x2b93 @0x39
0x2b5a…2b9b at003a = ╱f1╱ : ╱ // 0x2b94 @0x3a
0x2b5a…2b9b at003b = ╱53╱S╱ // 0x2b95 @0x3b
0x2b5a…2b9b at003c = ╱56╱V╱ // 0x2b96 @0x3c
0x2b5a…2b9b at003d = ╱41╱A╱ // 0x2b97 @0x3d
0x2b5a…2b9b at003e = ╱52╱R╱ // 0x2b98 @0x3e
0x2b5a…2b9b at003f = ╱ef╱$╱ // 0x2b99 @0x3f
0x2b5a…2b9b at0040 = EOL // 0x2b9a @0x40
0x2b5a…2b9b }
0x2b9b…2bb6 c1a4 1750 IF VAR$ = "J" OR SVAR$ = "j" THEN
0x2b9b…2bb6 LineComal80 {
0x2b9b…2bb6 ptr = 0xc1a4 // 0x2b9b @0x0
0x2b9b…2bb6 lno = 0x06d6 // 0x2b9d @0x2
0x2b9b…2bb6 at0004 = ╱9b1a53╱ IF ╱ // 0x2b9f @0x4
0x2b9b…2bb6 at0007 = ╱56╱V╱ // 0x2ba2 @0x7
0x2b9b…2bb6 at0008 = ╱41╱A╱ // 0x2ba3 @0x8
0x2b9b…2bb6 at0009 = ╱52╱R╱ // 0x2ba4 @0x9
0x2b9b…2bb6 at000a = ╱ef╱$╱ // 0x2ba5 @0xa
0x2b9b…2bb6 at000b = ╱df╱ = ╱ // 0x2ba6 @0xb
0x2b9b…2bb6 at000c = ╱22╱"╱ // 0x2ba7 @0xc
0x2b9b…2bb6 at000d = ╱4a╱J╱ // 0x2ba8 @0xd
0x2b9b…2bb6 at000e = ╱22╱"╱ // 0x2ba9 @0xe
0x2b9b…2bb6 at000f = ╱d8╱ OR ╱ // 0x2baa @0xf
0x2b9b…2bb6 at0010 = ╱53╱S╱ // 0x2bab @0x10
0x2b9b…2bb6 at0011 = ╱56╱V╱ // 0x2bac @0x11
0x2b9b…2bb6 at0012 = ╱41╱A╱ // 0x2bad @0x12
0x2b9b…2bb6 at0013 = ╱52╱R╱ // 0x2bae @0x13
0x2b9b…2bb6 at0014 = ╱ef╱$╱ // 0x2baf @0x14
0x2b9b…2bb6 at0015 = ╱df╱ = ╱ // 0x2bb0 @0x15
0x2b9b…2bb6 at0016 = ╱22╱"╱ // 0x2bb1 @0x16
0x2b9b…2bb6 at0017 = ╱6a╱j╱ // 0x2bb2 @0x17
0x2b9b…2bb6 at0018 = ╱22╱"╱ // 0x2bb3 @0x18
0x2b9b…2bb6 at0019 = ╱b5╱ THEN ╱ // 0x2bb4 @0x19
0x2b9b…2bb6 at001a = EOL // 0x2bb5 @0x1a
0x2b9b…2bb6 }
0x2bb6…2bc6 c1b4 1760 CURSOR 12,LINE
0x2bb6…2bc6 LineComal80 {
0x2bb6…2bc6 ptr = 0xc1b4 // 0x2bb6 @0x0
0x2bb6…2bc6 lno = 0x06e0 // 0x2bb8 @0x2
0x2bb6…2bc6 at0004 = ╱a1╱ CURSOR ╱ // 0x2bba @0x4
0x2bb6…2bc6 at0005 = ╱31╱1╱ // 0x2bbb @0x5
0x2bb6…2bc6 at0006 = ╱32╱2╱ // 0x2bbc @0x6
0x2bb6…2bc6 at0007 = ╱f20c00╱ // 0x2bbd @0x7
0x2bb6…2bc6 at000a = ╱ec╱,╱ // 0x2bc0 @0xa
0x2bb6…2bc6 at000b = ╱4c╱L╱ // 0x2bc1 @0xb
0x2bb6…2bc6 at000c = ╱49╱I╱ // 0x2bc2 @0xc
0x2bb6…2bc6 at000d = ╱4e╱N╱ // 0x2bc3 @0xd
0x2bb6…2bc6 at000e = ╱45╱E╱ // 0x2bc4 @0xe
0x2bb6…2bc6 at000f = EOL // 0x2bc5 @0xf
0x2bb6…2bc6 }
0x2bc6…2c01 c1ef 1770 PRINT "<Z> Der ventes på at printeren bliver ledig...."
0x2bc6…2c01 LineComal80 {
0x2bc6…2c01 ptr = 0xc1ef // 0x2bc6 @0x0
0x2bc6…2c01 lno = 0x06ea // 0x2bc8 @0x2
0x2bc6…2c01 at0004 = ╱92╱ PRINT ╱ // 0x2bca @0x4
0x2bc6…2c01 at0005 = ╱22╱"╱ // 0x2bcb @0x5
0x2bc6…2c01 at0006 = ╱3c╱<╱ // 0x2bcc @0x6
0x2bc6…2c01 at0007 = ╱5a╱Z╱ // 0x2bcd @0x7
0x2bc6…2c01 at0008 = ╱3e╱>╱ // 0x2bce @0x8
0x2bc6…2c01 at0009 = ╱20╱…╱ // 0x2bcf @0x9
0x2bc6…2c01 at000a = ╱20╱…╱ // 0x2bd0 @0xa
0x2bc6…2c01 at000b = ╱20╱…╱ // 0x2bd1 @0xb
0x2bc6…2c01 at000c = ╱20╱…╱ // 0x2bd2 @0xc
0x2bc6…2c01 at000d = ╱20╱…╱ // 0x2bd3 @0xd
0x2bc6…2c01 at000e = ╱44╱D╱ // 0x2bd4 @0xe
0x2bc6…2c01 at000f = ╱65╱e╱ // 0x2bd5 @0xf
0x2bc6…2c01 at0010 = ╱72╱r╱ // 0x2bd6 @0x10
0x2bc6…2c01 at0011 = ╱20╱…╱ // 0x2bd7 @0x11
0x2bc6…2c01 at0012 = ╱76╱v╱ // 0x2bd8 @0x12
0x2bc6…2c01 at0013 = ╱65╱e╱ // 0x2bd9 @0x13
0x2bc6…2c01 at0014 = ╱6e╱n╱ // 0x2bda @0x14
0x2bc6…2c01 at0015 = ╱74╱t╱ // 0x2bdb @0x15
0x2bc6…2c01 at0016 = ╱65╱e╱ // 0x2bdc @0x16
0x2bc6…2c01 at0017 = ╱73╱s╱ // 0x2bdd @0x17
0x2bc6…2c01 at0018 = ╱20╱…╱ // 0x2bde @0x18
0x2bc6…2c01 at0019 = ╱70╱p╱ // 0x2bdf @0x19
0x2bc6…2c01 at001a = ╱7d╱å╱ // 0x2be0 @0x1a
0x2bc6…2c01 at001b = ╱20╱…╱ // 0x2be1 @0x1b
0x2bc6…2c01 at001c = ╱61╱a╱ // 0x2be2 @0x1c
0x2bc6…2c01 at001d = ╱74╱t╱ // 0x2be3 @0x1d
0x2bc6…2c01 at001e = ╱20╱…╱ // 0x2be4 @0x1e
0x2bc6…2c01 at001f = ╱70╱p╱ // 0x2be5 @0x1f
0x2bc6…2c01 at0020 = ╱72╱r╱ // 0x2be6 @0x20
0x2bc6…2c01 at0021 = ╱69╱i╱ // 0x2be7 @0x21
0x2bc6…2c01 at0022 = ╱6e╱n╱ // 0x2be8 @0x22
0x2bc6…2c01 at0023 = ╱74╱t╱ // 0x2be9 @0x23
0x2bc6…2c01 at0024 = ╱65╱e╱ // 0x2bea @0x24
0x2bc6…2c01 at0025 = ╱72╱r╱ // 0x2beb @0x25
0x2bc6…2c01 at0026 = ╱65╱e╱ // 0x2bec @0x26
0x2bc6…2c01 at0027 = ╱6e╱n╱ // 0x2bed @0x27
0x2bc6…2c01 at0028 = ╱20╱…╱ // 0x2bee @0x28
0x2bc6…2c01 at0029 = ╱62╱b╱ // 0x2bef @0x29
0x2bc6…2c01 at002a = ╱6c╱l╱ // 0x2bf0 @0x2a
0x2bc6…2c01 at002b = ╱69╱i╱ // 0x2bf1 @0x2b
0x2bc6…2c01 at002c = ╱76╱v╱ // 0x2bf2 @0x2c
0x2bc6…2c01 at002d = ╱65╱e╱ // 0x2bf3 @0x2d
0x2bc6…2c01 at002e = ╱72╱r╱ // 0x2bf4 @0x2e
0x2bc6…2c01 at002f = ╱20╱…╱ // 0x2bf5 @0x2f
0x2bc6…2c01 at0030 = ╱6c╱l╱ // 0x2bf6 @0x30
0x2bc6…2c01 at0031 = ╱65╱e╱ // 0x2bf7 @0x31
0x2bc6…2c01 at0032 = ╱64╱d╱ // 0x2bf8 @0x32
0x2bc6…2c01 at0033 = ╱69╱i╱ // 0x2bf9 @0x33
0x2bc6…2c01 at0034 = ╱67╱g╱ // 0x2bfa @0x34
0x2bc6…2c01 at0035 = ╱2e╱.╱ // 0x2bfb @0x35
0x2bc6…2c01 at0036 = ╱2e╱.╱ // 0x2bfc @0x36
0x2bc6…2c01 at0037 = ╱2e╱.╱ // 0x2bfd @0x37
0x2bc6…2c01 at0038 = ╱2e╱.╱ // 0x2bfe @0x38
0x2bc6…2c01 at0039 = ╱22╱"╱ // 0x2bff @0x39
0x2bc6…2c01 at003a = EOL // 0x2c00 @0x3a
0x2bc6…2c01 }
0x2c01…2c0d c1fb 1780 PRINT "<SZ>"
0x2c01…2c0d LineComal80 {
0x2c01…2c0d ptr = 0xc1fb // 0x2c01 @0x0
0x2c01…2c0d lno = 0x06f4 // 0x2c03 @0x2
0x2c01…2c0d at0004 = ╱92╱ PRINT ╱ // 0x2c05 @0x4
0x2c01…2c0d at0005 = ╱22╱"╱ // 0x2c06 @0x5
0x2c01…2c0d at0006 = ╱3c╱<╱ // 0x2c07 @0x6
0x2c01…2c0d at0007 = ╱53╱S╱ // 0x2c08 @0x7
0x2c01…2c0d at0008 = ╱5a╱Z╱ // 0x2c09 @0x8
0x2c01…2c0d at0009 = ╱3e╱>╱ // 0x2c0a @0x9
0x2c01…2c0d at000a = ╱22╱"╱ // 0x2c0b @0xa
0x2c01…2c0d at000b = EOL // 0x2c0c @0xb
0x2c01…2c0d }
0x2c0d…2c1b c209 1790 WHILE ╱cd╱ ("P") DO
0x2c0d…2c1b LineComal80 {
0x2c0d…2c1b ptr = 0xc209 // 0x2c0d @0x0
0x2c0d…2c1b lno = 0x06fe // 0x2c0f @0x2
0x2c0d…2c1b at0004 = ╱931b╱ WHILE ╱ // 0x2c11 @0x4
0x2c0d…2c1b at0006 = ╱cd╱ // 0x2c13 @0x6
0x2c0d…2c1b at0007 = ╱ed╱(╱ // 0x2c14 @0x7
0x2c0d…2c1b at0008 = ╱22╱"╱ // 0x2c15 @0x8
0x2c0d…2c1b at0009 = ╱50╱P╱ // 0x2c16 @0x9
0x2c0d…2c1b at000a = ╱22╱"╱ // 0x2c17 @0xa
0x2c0d…2c1b at000b = ╱ee╱)╱ // 0x2c18 @0xb
0x2c0d…2c1b at000c = ╱bb╱ DO ╱ // 0x2c19 @0xc
0x2c0d…2c1b at000d = EOL // 0x2c1a @0xd
0x2c0d…2c1b }
0x2c1b…2c2c c21a 1800 LET SEK := ╱ca╱ (5)
0x2c1b…2c2c LineComal80 {
0x2c1b…2c2c ptr = 0xc21a // 0x2c1b @0x0
0x2c1b…2c2c lno = 0x0708 // 0x2c1d @0x2
0x2c1b…2c2c at0004 = ╱86╱ LET ╱ // 0x2c1f @0x4
0x2c1b…2c2c at0005 = ╱53╱S╱ // 0x2c20 @0x5
0x2c1b…2c2c at0006 = ╱45╱E╱ // 0x2c21 @0x6
0x2c1b…2c2c at0007 = ╱4b╱K╱ // 0x2c22 @0x7
0x2c1b…2c2c at0008 = ╱f0╱ := ╱ // 0x2c23 @0x8
0x2c1b…2c2c at0009 = ╱ca╱ // 0x2c24 @0x9
0x2c1b…2c2c at000a = ╱ed╱(╱ // 0x2c25 @0xa
0x2c1b…2c2c at000b = ╱35╱5╱ // 0x2c26 @0xb
0x2c1b…2c2c at000c = ╱f20500╱ // 0x2c27 @0xc
0x2c1b…2c2c at000f = ╱ee╱)╱ // 0x2c2a @0xf
0x2c1b…2c2c at0010 = EOL // 0x2c2b @0x10
0x2c1b…2c2c }
0x2c2c…2c3c c22a 1810 SELECT OUTPUT "P" + PRTNR$
0x2c2c…2c3c LineComal80 {
0x2c2c…2c3c ptr = 0xc22a // 0x2c2c @0x0
0x2c2c…2c3c lno = 0x0712 // 0x2c2e @0x2
0x2c2c…2c3c at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2c30 @0x4
0x2c2c…2c3c at0005 = ╱22╱"╱ // 0x2c31 @0x5
0x2c2c…2c3c at0006 = ╱50╱P╱ // 0x2c32 @0x6
0x2c2c…2c3c at0007 = ╱22╱"╱ // 0x2c33 @0x7
0x2c2c…2c3c at0008 = ╱eb╱ + ╱ // 0x2c34 @0x8
0x2c2c…2c3c at0009 = ╱50╱P╱ // 0x2c35 @0x9
0x2c2c…2c3c at000a = ╱52╱R╱ // 0x2c36 @0xa
0x2c2c…2c3c at000b = ╱54╱T╱ // 0x2c37 @0xb
0x2c2c…2c3c at000c = ╱4e╱N╱ // 0x2c38 @0xc
0x2c2c…2c3c at000d = ╱52╱R╱ // 0x2c39 @0xd
0x2c2c…2c3c at000e = ╱ef╱$╱ // 0x2c3a @0xe
0x2c2c…2c3c at000f = EOL // 0x2c3b @0xf
0x2c2c…2c3c }
0x2c3c…2c42 c230 1820 ENDWHILE
0x2c3c…2c42 LineComal80 {
0x2c3c…2c42 ptr = 0xc230 // 0x2c3c @0x0
0x2c3c…2c42 lno = 0x071c // 0x2c3e @0x2
0x2c3c…2c42 at0004 = ╱94╱ ENDWHILE ╱ // 0x2c40 @0x4
0x2c3c…2c42 at0005 = EOL // 0x2c41 @0x5
0x2c3c…2c42 }
0x2c42…2c49 c237 1830 ELSE
0x2c42…2c49 LineComal80 {
0x2c42…2c49 ptr = 0xc237 // 0x2c42 @0x0
0x2c42…2c49 lno = 0x0726 // 0x2c44 @0x2
0x2c42…2c49 at0004 = ╱9a1c╱ ELSE ╱ // 0x2c46 @0x4
0x2c42…2c49 at0006 = EOL // 0x2c48 @0x6
0x2c42…2c49 }
0x2c49…2c57 c245 1840 LET OK := FALSE
0x2c49…2c57 LineComal80 {
0x2c49…2c57 ptr = 0xc245 // 0x2c49 @0x0
0x2c49…2c57 lno = 0x0730 // 0x2c4b @0x2
0x2c49…2c57 at0004 = ╱86╱ LET ╱ // 0x2c4d @0x4
0x2c49…2c57 at0005 = ╱4f╱O╱ // 0x2c4e @0x5
0x2c49…2c57 at0006 = ╱4b╱K╱ // 0x2c4f @0x6
0x2c49…2c57 at0007 = ╱f0╱ := ╱ // 0x2c50 @0x7
0x2c49…2c57 at0008 = ╱46╱F╱ // 0x2c51 @0x8
0x2c49…2c57 at0009 = ╱41╱A╱ // 0x2c52 @0x9
0x2c49…2c57 at000a = ╱4c╱L╱ // 0x2c53 @0xa
0x2c49…2c57 at000b = ╱53╱S╱ // 0x2c54 @0xb
0x2c49…2c57 at000c = ╱45╱E╱ // 0x2c55 @0xc
0x2c49…2c57 at000d = EOL // 0x2c56 @0xd
0x2c49…2c57 }
0x2c57…2c5d c24b 1850 ENDIF
0x2c57…2c5d LineComal80 {
0x2c57…2c5d ptr = 0xc24b // 0x2c57 @0x0
0x2c57…2c5d lno = 0x073a // 0x2c59 @0x2
0x2c57…2c5d at0004 = ╱9c╱ ENDIF ╱ // 0x2c5b @0x4
0x2c57…2c5d at0005 = EOL // 0x2c5c @0x5
0x2c57…2c5d }
0x2c5d…2c63 c251 1860 ENDIF
0x2c5d…2c63 LineComal80 {
0x2c5d…2c63 ptr = 0xc251 // 0x2c5d @0x0
0x2c5d…2c63 lno = 0x0744 // 0x2c5f @0x2
0x2c5d…2c63 at0004 = ╱9c╱ ENDIF ╱ // 0x2c61 @0x4
0x2c5d…2c63 at0005 = EOL // 0x2c62 @0x5
0x2c5d…2c63 }
0x2c63…2c72 c260 1870 CURSOR 1,LINE
0x2c63…2c72 LineComal80 {
0x2c63…2c72 ptr = 0xc260 // 0x2c63 @0x0
0x2c63…2c72 lno = 0x074e // 0x2c65 @0x2
0x2c63…2c72 at0004 = ╱a1╱ CURSOR ╱ // 0x2c67 @0x4
0x2c63…2c72 at0005 = ╱31╱1╱ // 0x2c68 @0x5
0x2c63…2c72 at0006 = ╱f20100╱ // 0x2c69 @0x6
0x2c63…2c72 at0009 = ╱ec╱,╱ // 0x2c6c @0x9
0x2c63…2c72 at000a = ╱4c╱L╱ // 0x2c6d @0xa
0x2c63…2c72 at000b = ╱49╱I╱ // 0x2c6e @0xb
0x2c63…2c72 at000c = ╱4e╱N╱ // 0x2c6f @0xc
0x2c63…2c72 at000d = ╱45╱E╱ // 0x2c70 @0xd
0x2c63…2c72 at000e = EOL // 0x2c71 @0xe
0x2c63…2c72 }
0x2c72…2c7d c26b 1880 PRINT "<Z>"
0x2c72…2c7d LineComal80 {
0x2c72…2c7d ptr = 0xc26b // 0x2c72 @0x0
0x2c72…2c7d lno = 0x0758 // 0x2c74 @0x2
0x2c72…2c7d at0004 = ╱92╱ PRINT ╱ // 0x2c76 @0x4
0x2c72…2c7d at0005 = ╱22╱"╱ // 0x2c77 @0x5
0x2c72…2c7d at0006 = ╱3c╱<╱ // 0x2c78 @0x6
0x2c72…2c7d at0007 = ╱5a╱Z╱ // 0x2c79 @0x7
0x2c72…2c7d at0008 = ╱3e╱>╱ // 0x2c7a @0x8
0x2c72…2c7d at0009 = ╱22╱"╱ // 0x2c7b @0x9
0x2c72…2c7d at000a = EOL // 0x2c7c @0xa
0x2c72…2c7d }
0x2c7d…2c89 c277 1890 PRINT "<SZ>"
0x2c7d…2c89 LineComal80 {
0x2c7d…2c89 ptr = 0xc277 // 0x2c7d @0x0
0x2c7d…2c89 lno = 0x0762 // 0x2c7f @0x2
0x2c7d…2c89 at0004 = ╱92╱ PRINT ╱ // 0x2c81 @0x4
0x2c7d…2c89 at0005 = ╱22╱"╱ // 0x2c82 @0x5
0x2c7d…2c89 at0006 = ╱3c╱<╱ // 0x2c83 @0x6
0x2c7d…2c89 at0007 = ╱53╱S╱ // 0x2c84 @0x7
0x2c7d…2c89 at0008 = ╱5a╱Z╱ // 0x2c85 @0x8
0x2c7d…2c89 at0009 = ╱3e╱>╱ // 0x2c86 @0x9
0x2c7d…2c89 at000a = ╱22╱"╱ // 0x2c87 @0xa
0x2c7d…2c89 at000b = EOL // 0x2c88 @0xb
0x2c7d…2c89 }
0x2c89…2c97 c285 1900 ENDPROC PRINTRES
0x2c89…2c97 LineComal80 {
0x2c89…2c97 ptr = 0xc285 // 0x2c89 @0x0
0x2c89…2c97 lno = 0x076c // 0x2c8b @0x2
0x2c89…2c97 at0004 = ╱9f╱ ENDPROC ╱ // 0x2c8d @0x4
0x2c89…2c97 at0005 = ╱50╱P╱ // 0x2c8e @0x5
0x2c89…2c97 at0006 = ╱52╱R╱ // 0x2c8f @0x6
0x2c89…2c97 at0007 = ╱49╱I╱ // 0x2c90 @0x7
0x2c89…2c97 at0008 = ╱4e╱N╱ // 0x2c91 @0x8
0x2c89…2c97 at0009 = ╱54╱T╱ // 0x2c92 @0x9
0x2c89…2c97 at000a = ╱52╱R╱ // 0x2c93 @0xa
0x2c89…2c97 at000b = ╱45╱E╱ // 0x2c94 @0xb
0x2c89…2c97 at000c = ╱53╱S╱ // 0x2c95 @0xc
0x2c89…2c97 at000d = EOL // 0x2c96 @0xd
0x2c89…2c97 }
0x2c97…2c9d c28b 1620 //
0x2c97…2c9d LineComal80 {
0x2c97…2c9d ptr = 0xc28b // 0x2c97 @0x0
0x2c97…2c9d lno = 0x0654 // 0x2c99 @0x2
0x2c97…2c9d at0004 = ╱89╱ // ╱ // 0x2c9b @0x4
0x2c97…2c9d at0005 = EOL // 0x2c9c @0x5
0x2c97…2c9d }
0x2c9d…2cbc c2aa 1630 PROC PRINTREL // RELEASE PRINTER
0x2c9d…2cbc LineComal80 {
0x2c9d…2cbc ptr = 0xc2aa // 0x2c9d @0x0
0x2c9d…2cbc lno = 0x065e // 0x2c9f @0x2
0x2c9d…2cbc at0004 = ╱9e17╱ PROC ╱ // 0x2ca1 @0x4
0x2c9d…2cbc at0006 = ╱50╱P╱ // 0x2ca3 @0x6
0x2c9d…2cbc at0007 = ╱52╱R╱ // 0x2ca4 @0x7
0x2c9d…2cbc at0008 = ╱49╱I╱ // 0x2ca5 @0x8
0x2c9d…2cbc at0009 = ╱4e╱N╱ // 0x2ca6 @0x9
0x2c9d…2cbc at000a = ╱54╱T╱ // 0x2ca7 @0xa
0x2c9d…2cbc at000b = ╱52╱R╱ // 0x2ca8 @0xb
0x2c9d…2cbc at000c = ╱45╱E╱ // 0x2ca9 @0xc
0x2c9d…2cbc at000d = ╱4c╱L╱ // 0x2caa @0xd
0x2c9d…2cbc at000e = ╱89╱ // ╱ // 0x2cab @0xe
0x2c9d…2cbc at000f = ╱52╱R╱ // 0x2cac @0xf
0x2c9d…2cbc at0010 = ╱45╱E╱ // 0x2cad @0x10
0x2c9d…2cbc at0011 = ╱4c╱L╱ // 0x2cae @0x11
0x2c9d…2cbc at0012 = ╱45╱E╱ // 0x2caf @0x12
0x2c9d…2cbc at0013 = ╱41╱A╱ // 0x2cb0 @0x13
0x2c9d…2cbc at0014 = ╱53╱S╱ // 0x2cb1 @0x14
0x2c9d…2cbc at0015 = ╱45╱E╱ // 0x2cb2 @0x15
0x2c9d…2cbc at0016 = ╱20╱…╱ // 0x2cb3 @0x16
0x2c9d…2cbc at0017 = ╱50╱P╱ // 0x2cb4 @0x17
0x2c9d…2cbc at0018 = ╱52╱R╱ // 0x2cb5 @0x18
0x2c9d…2cbc at0019 = ╱49╱I╱ // 0x2cb6 @0x19
0x2c9d…2cbc at001a = ╱4e╱N╱ // 0x2cb7 @0x1a
0x2c9d…2cbc at001b = ╱54╱T╱ // 0x2cb8 @0x1b
0x2c9d…2cbc at001c = ╱45╱E╱ // 0x2cb9 @0x1c
0x2c9d…2cbc at001d = ╱52╱R╱ // 0x2cba @0x1d
0x2c9d…2cbc at001e = EOL // 0x2cbb @0x1e
0x2c9d…2cbc }
0x2cbc…2cc5 c648 1640 SELECT OUTPUT "T"
0x2cbc…2cc5 LineComal80 {
0x2cbc…2cc5 ptr = 0xc648 // 0x2cbc @0x0
0x2cbc…2cc5 lno = 0x0668 // 0x2cbe @0x2
0x2cbc…2cc5 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2cc0 @0x4
0x2cbc…2cc5 at0005 = ╱22╱"╱ // 0x2cc1 @0x5
0x2cbc…2cc5 at0006 = ╱54╱T╱ // 0x2cc2 @0x6
0x2cbc…2cc5 at0007 = ╱22╱"╱ // 0x2cc3 @0x7
0x2cbc…2cc5 at0008 = EOL // 0x2cc4 @0x8
0x2cbc…2cc5 }
0x2cc5…2cd3 c2c1 1800 ENDPROC PRINTREL
0x2cc5…2cd3 LineComal80 {
0x2cc5…2cd3 ptr = 0xc2c1 // 0x2cc5 @0x0
0x2cc5…2cd3 lno = 0x0708 // 0x2cc7 @0x2
0x2cc5…2cd3 at0004 = ╱9f╱ ENDPROC ╱ // 0x2cc9 @0x4
0x2cc5…2cd3 at0005 = ╱50╱P╱ // 0x2cca @0x5
0x2cc5…2cd3 at0006 = ╱52╱R╱ // 0x2ccb @0x6
0x2cc5…2cd3 at0007 = ╱49╱I╱ // 0x2ccc @0x7
0x2cc5…2cd3 at0008 = ╱4e╱N╱ // 0x2ccd @0x8
0x2cc5…2cd3 at0009 = ╱54╱T╱ // 0x2cce @0x9
0x2cc5…2cd3 at000a = ╱52╱R╱ // 0x2ccf @0xa
0x2cc5…2cd3 at000b = ╱45╱E╱ // 0x2cd0 @0xb
0x2cc5…2cd3 at000c = ╱4c╱L╱ // 0x2cd1 @0xc
0x2cc5…2cd3 at000d = EOL // 0x2cd2 @0xd
0x2cc5…2cd3 }
0x2cd3…2cf8 c2e6 1810 // DIM S$ OF 80,KTONR$ OF 10,X(20)
0x2cd3…2cf8 LineComal80 {
0x2cd3…2cf8 ptr = 0xc2e6 // 0x2cd3 @0x0
0x2cd3…2cf8 lno = 0x0712 // 0x2cd5 @0x2
0x2cd3…2cf8 at0004 = ╱89╱ // ╱ // 0x2cd7 @0x4
0x2cd3…2cf8 at0005 = ╱44╱D╱ // 0x2cd8 @0x5
0x2cd3…2cf8 at0006 = ╱49╱I╱ // 0x2cd9 @0x6
0x2cd3…2cf8 at0007 = ╱4d╱M╱ // 0x2cda @0x7
0x2cd3…2cf8 at0008 = ╱20╱…╱ // 0x2cdb @0x8
0x2cd3…2cf8 at0009 = ╱53╱S╱ // 0x2cdc @0x9
0x2cd3…2cf8 at000a = ╱24╱$╱ // 0x2cdd @0xa
0x2cd3…2cf8 at000b = ╱20╱…╱ // 0x2cde @0xb
0x2cd3…2cf8 at000c = ╱4f╱O╱ // 0x2cdf @0xc
0x2cd3…2cf8 at000d = ╱46╱F╱ // 0x2ce0 @0xd
0x2cd3…2cf8 at000e = ╱20╱…╱ // 0x2ce1 @0xe
0x2cd3…2cf8 at000f = ╱38╱8╱ // 0x2ce2 @0xf
0x2cd3…2cf8 at0010 = ╱30╱0╱ // 0x2ce3 @0x10
0x2cd3…2cf8 at0011 = ╱2c╱,╱ // 0x2ce4 @0x11
0x2cd3…2cf8 at0012 = ╱4b╱K╱ // 0x2ce5 @0x12
0x2cd3…2cf8 at0013 = ╱54╱T╱ // 0x2ce6 @0x13
0x2cd3…2cf8 at0014 = ╱4f╱O╱ // 0x2ce7 @0x14
0x2cd3…2cf8 at0015 = ╱4e╱N╱ // 0x2ce8 @0x15
0x2cd3…2cf8 at0016 = ╱52╱R╱ // 0x2ce9 @0x16
0x2cd3…2cf8 at0017 = ╱24╱$╱ // 0x2cea @0x17
0x2cd3…2cf8 at0018 = ╱20╱…╱ // 0x2ceb @0x18
0x2cd3…2cf8 at0019 = ╱4f╱O╱ // 0x2cec @0x19
0x2cd3…2cf8 at001a = ╱46╱F╱ // 0x2ced @0x1a
0x2cd3…2cf8 at001b = ╱20╱…╱ // 0x2cee @0x1b
0x2cd3…2cf8 at001c = ╱31╱1╱ // 0x2cef @0x1c
0x2cd3…2cf8 at001d = ╱30╱0╱ // 0x2cf0 @0x1d
0x2cd3…2cf8 at001e = ╱2c╱,╱ // 0x2cf1 @0x1e
0x2cd3…2cf8 at001f = ╱58╱X╱ // 0x2cf2 @0x1f
0x2cd3…2cf8 at0020 = ╱28╱(╱ // 0x2cf3 @0x20
0x2cd3…2cf8 at0021 = ╱32╱2╱ // 0x2cf4 @0x21
0x2cd3…2cf8 at0022 = ╱30╱0╱ // 0x2cf5 @0x22
0x2cd3…2cf8 at0023 = ╱29╱)╱ // 0x2cf6 @0x23
0x2cd3…2cf8 at0024 = EOL // 0x2cf7 @0x24
0x2cd3…2cf8 }
0x2cf8…2d08 c2f6 1820 PROC OPDEL(A$)
0x2cf8…2d08 LineComal80 {
0x2cf8…2d08 ptr = 0xc2f6 // 0x2cf8 @0x0
0x2cf8…2d08 lno = 0x071c // 0x2cfa @0x2
0x2cf8…2d08 at0004 = ╱9e1c╱ PROC ╱ // 0x2cfc @0x4
0x2cf8…2d08 at0006 = ╱4f╱O╱ // 0x2cfe @0x6
0x2cf8…2d08 at0007 = ╱50╱P╱ // 0x2cff @0x7
0x2cf8…2d08 at0008 = ╱44╱D╱ // 0x2d00 @0x8
0x2cf8…2d08 at0009 = ╱45╱E╱ // 0x2d01 @0x9
0x2cf8…2d08 at000a = ╱4c╱L╱ // 0x2d02 @0xa
0x2cf8…2d08 at000b = ╱ed╱(╱ // 0x2d03 @0xb
0x2cf8…2d08 at000c = ╱41╱A╱ // 0x2d04 @0xc
0x2cf8…2d08 at000d = ╱ef╱$╱ // 0x2d05 @0xd
0x2cf8…2d08 at000e = ╱ee╱)╱ // 0x2d06 @0xe
0x2cf8…2d08 at000f = EOL // 0x2d07 @0xf
0x2cf8…2d08 }
0x2d08…2d17 c305 1830 LET KTONR$ := ""
0x2d08…2d17 LineComal80 {
0x2d08…2d17 ptr = 0xc305 // 0x2d08 @0x0
0x2d08…2d17 lno = 0x0726 // 0x2d0a @0x2
0x2d08…2d17 at0004 = ╱86╱ LET ╱ // 0x2d0c @0x4
0x2d08…2d17 at0005 = ╱4b╱K╱ // 0x2d0d @0x5
0x2d08…2d17 at0006 = ╱54╱T╱ // 0x2d0e @0x6
0x2d08…2d17 at0007 = ╱4f╱O╱ // 0x2d0f @0x7
0x2d08…2d17 at0008 = ╱4e╱N╱ // 0x2d10 @0x8
0x2d08…2d17 at0009 = ╱52╱R╱ // 0x2d11 @0x9
0x2d08…2d17 at000a = ╱ef╱$╱ // 0x2d12 @0xa
0x2d08…2d17 at000b = ╱f0╱ := ╱ // 0x2d13 @0xb
0x2d08…2d17 at000c = ╱22╱"╱ // 0x2d14 @0xc
0x2d08…2d17 at000d = ╱22╱"╱ // 0x2d15 @0xd
0x2d08…2d17 at000e = EOL // 0x2d16 @0xe
0x2d08…2d17 }
0x2d17…2d23 c311 1840 LET I := 1
0x2d17…2d23 LineComal80 {
0x2d17…2d23 ptr = 0xc311 // 0x2d17 @0x0
0x2d17…2d23 lno = 0x0730 // 0x2d19 @0x2
0x2d17…2d23 at0004 = ╱86╱ LET ╱ // 0x2d1b @0x4
0x2d17…2d23 at0005 = ╱49╱I╱ // 0x2d1c @0x5
0x2d17…2d23 at0006 = ╱f0╱ := ╱ // 0x2d1d @0x6
0x2d17…2d23 at0007 = ╱31╱1╱ // 0x2d1e @0x7
0x2d17…2d23 at0008 = ╱f20100╱ // 0x2d1f @0x8
0x2d17…2d23 at000b = EOL // 0x2d22 @0xb
0x2d17…2d23 }
0x2d23…2d34 c322 1850 WHILE A$(I) >< "*" DO
0x2d23…2d34 LineComal80 {
0x2d23…2d34 ptr = 0xc322 // 0x2d23 @0x0
0x2d23…2d34 lno = 0x073a // 0x2d25 @0x2
0x2d23…2d34 at0004 = ╱931d╱ WHILE ╱ // 0x2d27 @0x4
0x2d23…2d34 at0006 = ╱41╱A╱ // 0x2d29 @0x6
0x2d23…2d34 at0007 = ╱ef╱$╱ // 0x2d2a @0x7
0x2d23…2d34 at0008 = ╱ed╱(╱ // 0x2d2b @0x8
0x2d23…2d34 at0009 = ╱49╱I╱ // 0x2d2c @0x9
0x2d23…2d34 at000a = ╱ee╱)╱ // 0x2d2d @0xa
0x2d23…2d34 at000b = ╱e4╱ >< ╱ // 0x2d2e @0xb
0x2d23…2d34 at000c = ╱22╱"╱ // 0x2d2f @0xc
0x2d23…2d34 at000d = ╱2a╱*╱ // 0x2d30 @0xd
0x2d23…2d34 at000e = ╱22╱"╱ // 0x2d31 @0xe
0x2d23…2d34 at000f = ╱bb╱ DO ╱ // 0x2d32 @0xf
0x2d23…2d34 at0010 = EOL // 0x2d33 @0x10
0x2d23…2d34 }
0x2d34…2d58 c346 1860 IF A$(I) = "/" THEN LET KTONR$ := "" ; I := I + 1
0x2d34…2d58 LineComal80 {
0x2d34…2d58 ptr = 0xc346 // 0x2d34 @0x0
0x2d34…2d58 lno = 0x0744 // 0x2d36 @0x2
0x2d34…2d58 at0004 = ╱8200╱ IF ╱ // 0x2d38 @0x4
0x2d34…2d58 at0006 = ╱41╱A╱ // 0x2d3a @0x6
0x2d34…2d58 at0007 = ╱ef╱$╱ // 0x2d3b @0x7
0x2d34…2d58 at0008 = ╱ed╱(╱ // 0x2d3c @0x8
0x2d34…2d58 at0009 = ╱49╱I╱ // 0x2d3d @0x9
0x2d34…2d58 at000a = ╱ee╱)╱ // 0x2d3e @0xa
0x2d34…2d58 at000b = ╱df╱ = ╱ // 0x2d3f @0xb
0x2d34…2d58 at000c = ╱22╱"╱ // 0x2d40 @0xc
0x2d34…2d58 at000d = ╱2f╱/╱ // 0x2d41 @0xd
0x2d34…2d58 at000e = ╱22╱"╱ // 0x2d42 @0xe
0x2d34…2d58 at000f = ╱b5╱ THEN ╱ // 0x2d43 @0xf
0x2d34…2d58 at0010 = ╱86╱ LET ╱ // 0x2d44 @0x10
0x2d34…2d58 at0011 = ╱4b╱K╱ // 0x2d45 @0x11
0x2d34…2d58 at0012 = ╱54╱T╱ // 0x2d46 @0x12
0x2d34…2d58 at0013 = ╱4f╱O╱ // 0x2d47 @0x13
0x2d34…2d58 at0014 = ╱4e╱N╱ // 0x2d48 @0x14
0x2d34…2d58 at0015 = ╱52╱R╱ // 0x2d49 @0x15
0x2d34…2d58 at0016 = ╱ef╱$╱ // 0x2d4a @0x16
0x2d34…2d58 at0017 = ╱f0╱ := ╱ // 0x2d4b @0x17
0x2d34…2d58 at0018 = ╱22╱"╱ // 0x2d4c @0x18
0x2d34…2d58 at0019 = ╱22╱"╱ // 0x2d4d @0x19
0x2d34…2d58 at001a = ╱ea╱ ; ╱ // 0x2d4e @0x1a
0x2d34…2d58 at001b = ╱49╱I╱ // 0x2d4f @0x1b
0x2d34…2d58 at001c = ╱f0╱ := ╱ // 0x2d50 @0x1c
0x2d34…2d58 at001d = ╱49╱I╱ // 0x2d51 @0x1d
0x2d34…2d58 at001e = ╱e5╱ + ╱ // 0x2d52 @0x1e
0x2d34…2d58 at001f = ╱31╱1╱ // 0x2d53 @0x1f
0x2d34…2d58 at0020 = ╱f20100╱ // 0x2d54 @0x20
0x2d34…2d58 at0023 = EOL // 0x2d57 @0x23
0x2d34…2d58 }
0x2d58…2d77 c365 1870 WHILE (A$(I) >< "/") AND (A$(I) >< "*") DO
0x2d58…2d77 LineComal80 {
0x2d58…2d77 ptr = 0xc365 // 0x2d58 @0x0
0x2d58…2d77 lno = 0x074e // 0x2d5a @0x2
0x2d58…2d77 at0004 = ╱931e╱ WHILE ╱ // 0x2d5c @0x4
0x2d58…2d77 at0006 = ╱ed╱(╱ // 0x2d5e @0x6
0x2d58…2d77 at0007 = ╱41╱A╱ // 0x2d5f @0x7
0x2d58…2d77 at0008 = ╱ef╱$╱ // 0x2d60 @0x8
0x2d58…2d77 at0009 = ╱ed╱(╱ // 0x2d61 @0x9
0x2d58…2d77 at000a = ╱49╱I╱ // 0x2d62 @0xa
0x2d58…2d77 at000b = ╱ee╱)╱ // 0x2d63 @0xb
0x2d58…2d77 at000c = ╱e4╱ >< ╱ // 0x2d64 @0xc
0x2d58…2d77 at000d = ╱22╱"╱ // 0x2d65 @0xd
0x2d58…2d77 at000e = ╱2f╱/╱ // 0x2d66 @0xe
0x2d58…2d77 at000f = ╱22╱"╱ // 0x2d67 @0xf
0x2d58…2d77 at0010 = ╱ee╱)╱ // 0x2d68 @0x10
0x2d58…2d77 at0011 = ╱d9╱ AND ╱ // 0x2d69 @0x11
0x2d58…2d77 at0012 = ╱ed╱(╱ // 0x2d6a @0x12
0x2d58…2d77 at0013 = ╱41╱A╱ // 0x2d6b @0x13
0x2d58…2d77 at0014 = ╱ef╱$╱ // 0x2d6c @0x14
0x2d58…2d77 at0015 = ╱ed╱(╱ // 0x2d6d @0x15
0x2d58…2d77 at0016 = ╱49╱I╱ // 0x2d6e @0x16
0x2d58…2d77 at0017 = ╱ee╱)╱ // 0x2d6f @0x17
0x2d58…2d77 at0018 = ╱e4╱ >< ╱ // 0x2d70 @0x18
0x2d58…2d77 at0019 = ╱22╱"╱ // 0x2d71 @0x19
0x2d58…2d77 at001a = ╱2a╱*╱ // 0x2d72 @0x1a
0x2d58…2d77 at001b = ╱22╱"╱ // 0x2d73 @0x1b
0x2d58…2d77 at001c = ╱ee╱)╱ // 0x2d74 @0x1c
0x2d58…2d77 at001d = ╱bb╱ DO ╱ // 0x2d75 @0x1d
0x2d58…2d77 at001e = EOL // 0x2d76 @0x1e
0x2d58…2d77 }
0x2d77…2d90 c37e 1880 LET KTONR$ := KTONR$ + A$(I)
0x2d77…2d90 LineComal80 {
0x2d77…2d90 ptr = 0xc37e // 0x2d77 @0x0
0x2d77…2d90 lno = 0x0758 // 0x2d79 @0x2
0x2d77…2d90 at0004 = ╱86╱ LET ╱ // 0x2d7b @0x4
0x2d77…2d90 at0005 = ╱4b╱K╱ // 0x2d7c @0x5
0x2d77…2d90 at0006 = ╱54╱T╱ // 0x2d7d @0x6
0x2d77…2d90 at0007 = ╱4f╱O╱ // 0x2d7e @0x7
0x2d77…2d90 at0008 = ╱4e╱N╱ // 0x2d7f @0x8
0x2d77…2d90 at0009 = ╱52╱R╱ // 0x2d80 @0x9
0x2d77…2d90 at000a = ╱ef╱$╱ // 0x2d81 @0xa
0x2d77…2d90 at000b = ╱f0╱ := ╱ // 0x2d82 @0xb
0x2d77…2d90 at000c = ╱4b╱K╱ // 0x2d83 @0xc
0x2d77…2d90 at000d = ╱54╱T╱ // 0x2d84 @0xd
0x2d77…2d90 at000e = ╱4f╱O╱ // 0x2d85 @0xe
0x2d77…2d90 at000f = ╱4e╱N╱ // 0x2d86 @0xf
0x2d77…2d90 at0010 = ╱52╱R╱ // 0x2d87 @0x10
0x2d77…2d90 at0011 = ╱ef╱$╱ // 0x2d88 @0x11
0x2d77…2d90 at0012 = ╱eb╱ + ╱ // 0x2d89 @0x12
0x2d77…2d90 at0013 = ╱41╱A╱ // 0x2d8a @0x13
0x2d77…2d90 at0014 = ╱ef╱$╱ // 0x2d8b @0x14
0x2d77…2d90 at0015 = ╱ed╱(╱ // 0x2d8c @0x15
0x2d77…2d90 at0016 = ╱49╱I╱ // 0x2d8d @0x16
0x2d77…2d90 at0017 = ╱ee╱)╱ // 0x2d8e @0x17
0x2d77…2d90 at0018 = EOL // 0x2d8f @0x18
0x2d77…2d90 }
0x2d90…2d9e c38c 1890 LET I := I + 1
0x2d90…2d9e LineComal80 {
0x2d90…2d9e ptr = 0xc38c // 0x2d90 @0x0
0x2d90…2d9e lno = 0x0762 // 0x2d92 @0x2
0x2d90…2d9e at0004 = ╱86╱ LET ╱ // 0x2d94 @0x4
0x2d90…2d9e at0005 = ╱49╱I╱ // 0x2d95 @0x5
0x2d90…2d9e at0006 = ╱f0╱ := ╱ // 0x2d96 @0x6
0x2d90…2d9e at0007 = ╱49╱I╱ // 0x2d97 @0x7
0x2d90…2d9e at0008 = ╱e5╱ + ╱ // 0x2d98 @0x8
0x2d90…2d9e at0009 = ╱31╱1╱ // 0x2d99 @0x9
0x2d90…2d9e at000a = ╱f20100╱ // 0x2d9a @0xa
0x2d90…2d9e at000d = EOL // 0x2d9d @0xd
0x2d90…2d9e }
0x2d9e…2da4 c392 1900 ENDWHILE
0x2d9e…2da4 LineComal80 {
0x2d9e…2da4 ptr = 0xc392 // 0x2d9e @0x0
0x2d9e…2da4 lno = 0x076c // 0x2da0 @0x2
0x2d9e…2da4 at0004 = ╱94╱ ENDWHILE ╱ // 0x2da2 @0x4
0x2d9e…2da4 at0005 = EOL // 0x2da3 @0x5
0x2d9e…2da4 }
0x2da4…2db7 c3a5 1910 EXEC OPSUM(KTONR$)
0x2da4…2db7 LineComal80 {
0x2da4…2db7 ptr = 0xc3a5 // 0x2da4 @0x0
0x2da4…2db7 lno = 0x0776 // 0x2da6 @0x2
0x2da4…2db7 at0004 = ╱9d╱ EXEC ╱ // 0x2da8 @0x4
0x2da4…2db7 at0005 = ╱4f╱O╱ // 0x2da9 @0x5
0x2da4…2db7 at0006 = ╱50╱P╱ // 0x2daa @0x6
0x2da4…2db7 at0007 = ╱53╱S╱ // 0x2dab @0x7
0x2da4…2db7 at0008 = ╱55╱U╱ // 0x2dac @0x8
0x2da4…2db7 at0009 = ╱4d╱M╱ // 0x2dad @0x9
0x2da4…2db7 at000a = ╱ed╱(╱ // 0x2dae @0xa
0x2da4…2db7 at000b = ╱4b╱K╱ // 0x2daf @0xb
0x2da4…2db7 at000c = ╱54╱T╱ // 0x2db0 @0xc
0x2da4…2db7 at000d = ╱4f╱O╱ // 0x2db1 @0xd
0x2da4…2db7 at000e = ╱4e╱N╱ // 0x2db2 @0xe
0x2da4…2db7 at000f = ╱52╱R╱ // 0x2db3 @0xf
0x2da4…2db7 at0010 = ╱ef╱$╱ // 0x2db4 @0x10
0x2da4…2db7 at0011 = ╱ee╱)╱ // 0x2db5 @0x11
0x2da4…2db7 at0012 = EOL // 0x2db6 @0x12
0x2da4…2db7 }
0x2db7…2dbd c3ab 1920 ENDWHILE
0x2db7…2dbd LineComal80 {
0x2db7…2dbd ptr = 0xc3ab // 0x2db7 @0x0
0x2db7…2dbd lno = 0x0780 // 0x2db9 @0x2
0x2db7…2dbd at0004 = ╱94╱ ENDWHILE ╱ // 0x2dbb @0x4
0x2db7…2dbd at0005 = EOL // 0x2dbc @0x5
0x2db7…2dbd }
0x2dbd…2dc8 c3b6 1930 ENDPROC OPDEL
0x2dbd…2dc8 LineComal80 {
0x2dbd…2dc8 ptr = 0xc3b6 // 0x2dbd @0x0
0x2dbd…2dc8 lno = 0x078a // 0x2dbf @0x2
0x2dbd…2dc8 at0004 = ╱9f╱ ENDPROC ╱ // 0x2dc1 @0x4
0x2dbd…2dc8 at0005 = ╱4f╱O╱ // 0x2dc2 @0x5
0x2dbd…2dc8 at0006 = ╱50╱P╱ // 0x2dc3 @0x6
0x2dbd…2dc8 at0007 = ╱44╱D╱ // 0x2dc4 @0x7
0x2dbd…2dc8 at0008 = ╱45╱E╱ // 0x2dc5 @0x8
0x2dbd…2dc8 at0009 = ╱4c╱L╱ // 0x2dc6 @0x9
0x2dbd…2dc8 at000a = EOL // 0x2dc7 @0xa
0x2dbd…2dc8 }
0x2dc8…2dd9 c3c7 1940 PROC OPSUM(KN$)
0x2dc8…2dd9 LineComal80 {
0x2dc8…2dd9 ptr = 0xc3c7 // 0x2dc8 @0x0
0x2dc8…2dd9 lno = 0x0794 // 0x2dca @0x2
0x2dc8…2dd9 at0004 = ╱9e1f╱ PROC ╱ // 0x2dcc @0x4
0x2dc8…2dd9 at0006 = ╱4f╱O╱ // 0x2dce @0x6
0x2dc8…2dd9 at0007 = ╱50╱P╱ // 0x2dcf @0x7
0x2dc8…2dd9 at0008 = ╱53╱S╱ // 0x2dd0 @0x8
0x2dc8…2dd9 at0009 = ╱55╱U╱ // 0x2dd1 @0x9
0x2dc8…2dd9 at000a = ╱4d╱M╱ // 0x2dd2 @0xa
0x2dc8…2dd9 at000b = ╱ed╱(╱ // 0x2dd3 @0xb
0x2dc8…2dd9 at000c = ╱4b╱K╱ // 0x2dd4 @0xc
0x2dc8…2dd9 at000d = ╱4e╱N╱ // 0x2dd5 @0xd
0x2dc8…2dd9 at000e = ╱ef╱$╱ // 0x2dd6 @0xe
0x2dc8…2dd9 at000f = ╱ee╱)╱ // 0x2dd7 @0xf
0x2dc8…2dd9 at0010 = EOL // 0x2dd8 @0x10
0x2dc8…2dd9 }
0x2dd9…2ded c551 1950 LET X(P) := X(P) + 1
0x2dd9…2ded LineComal80 {
0x2dd9…2ded ptr = 0xc551 // 0x2dd9 @0x0
0x2dd9…2ded lno = 0x079e // 0x2ddb @0x2
0x2dd9…2ded at0004 = ╱86╱ LET ╱ // 0x2ddd @0x4
0x2dd9…2ded at0005 = ╱58╱X╱ // 0x2dde @0x5
0x2dd9…2ded at0006 = ╱ed╱(╱ // 0x2ddf @0x6
0x2dd9…2ded at0007 = ╱50╱P╱ // 0x2de0 @0x7
0x2dd9…2ded at0008 = ╱ee╱)╱ // 0x2de1 @0x8
0x2dd9…2ded at0009 = ╱f0╱ := ╱ // 0x2de2 @0x9
0x2dd9…2ded at000a = ╱58╱X╱ // 0x2de3 @0xa
0x2dd9…2ded at000b = ╱ed╱(╱ // 0x2de4 @0xb
0x2dd9…2ded at000c = ╱50╱P╱ // 0x2de5 @0xc
0x2dd9…2ded at000d = ╱ee╱)╱ // 0x2de6 @0xd
0x2dd9…2ded at000e = ╱e5╱ + ╱ // 0x2de7 @0xe
0x2dd9…2ded at000f = ╱31╱1╱ // 0x2de8 @0xf
0x2dd9…2ded at0010 = ╱f20100╱ // 0x2de9 @0x10
0x2dd9…2ded at0013 = EOL // 0x2dec @0x13
0x2dd9…2ded }
0x2ded…2dfb c3e9 1960 PRINT KN$,X(P)
0x2ded…2dfb LineComal80 {
0x2ded…2dfb ptr = 0xc3e9 // 0x2ded @0x0
0x2ded…2dfb lno = 0x07a8 // 0x2def @0x2
0x2ded…2dfb at0004 = ╱92╱ PRINT ╱ // 0x2df1 @0x4
0x2ded…2dfb at0005 = ╱4b╱K╱ // 0x2df2 @0x5
0x2ded…2dfb at0006 = ╱4e╱N╱ // 0x2df3 @0x6
0x2ded…2dfb at0007 = ╱ef╱$╱ // 0x2df4 @0x7
0x2ded…2dfb at0008 = ╱ec╱,╱ // 0x2df5 @0x8
0x2ded…2dfb at0009 = ╱58╱X╱ // 0x2df6 @0x9
0x2ded…2dfb at000a = ╱ed╱(╱ // 0x2df7 @0xa
0x2ded…2dfb at000b = ╱50╱P╱ // 0x2df8 @0xb
0x2ded…2dfb at000c = ╱ee╱)╱ // 0x2df9 @0xc
0x2ded…2dfb at000d = EOL // 0x2dfa @0xd
0x2ded…2dfb }
0x2dfb…2e06 c47b 1970 ENDPROC OPSUM
0x2dfb…2e06 LineComal80 {
0x2dfb…2e06 ptr = 0xc47b // 0x2dfb @0x0
0x2dfb…2e06 lno = 0x07b2 // 0x2dfd @0x2
0x2dfb…2e06 at0004 = ╱9f╱ ENDPROC ╱ // 0x2dff @0x4
0x2dfb…2e06 at0005 = ╱4f╱O╱ // 0x2e00 @0x5
0x2dfb…2e06 at0006 = ╱50╱P╱ // 0x2e01 @0x6
0x2dfb…2e06 at0007 = ╱53╱S╱ // 0x2e02 @0x7
0x2dfb…2e06 at0008 = ╱55╱U╱ // 0x2e03 @0x8
0x2dfb…2e06 at0009 = ╱4d╱M╱ // 0x2e04 @0x9
0x2dfb…2e06 at000a = EOL // 0x2e05 @0xa
0x2dfb…2e06 }
0x2e06…2e12 c487 1980 LET P := 0
0x2e06…2e12 LineComal80 {
0x2e06…2e12 ptr = 0xc487 // 0x2e06 @0x0
0x2e06…2e12 lno = 0x07bc // 0x2e08 @0x2
0x2e06…2e12 at0004 = ╱86╱ LET ╱ // 0x2e0a @0x4
0x2e06…2e12 at0005 = ╱50╱P╱ // 0x2e0b @0x5
0x2e06…2e12 at0006 = ╱f0╱ := ╱ // 0x2e0c @0x6
0x2e06…2e12 at0007 = ╱30╱0╱ // 0x2e0d @0x7
0x2e06…2e12 at0008 = ╱f20000╱ // 0x2e0e @0x8
0x2e06…2e12 at000b = EOL // 0x2e11 @0xb
0x2e06…2e12 }
0x2e12…2e25 c413 1990 OPEN "DP2:ZATAL",R
0x2e12…2e25 LineComal80 {
0x2e12…2e25 ptr = 0xc413 // 0x2e12 @0x0
0x2e12…2e25 lno = 0x07c6 // 0x2e14 @0x2
0x2e12…2e25 at0004 = ╱a7╱ OPEN ╱ // 0x2e16 @0x4
0x2e12…2e25 at0005 = ╱22╱"╱ // 0x2e17 @0x5
0x2e12…2e25 at0006 = ╱44╱D╱ // 0x2e18 @0x6
0x2e12…2e25 at0007 = ╱50╱P╱ // 0x2e19 @0x7
0x2e12…2e25 at0008 = ╱32╱2╱ // 0x2e1a @0x8
0x2e12…2e25 at0009 = ╱3a╱:╱ // 0x2e1b @0x9
0x2e12…2e25 at000a = ╱5a╱Z╱ // 0x2e1c @0xa
0x2e12…2e25 at000b = ╱41╱A╱ // 0x2e1d @0xb
0x2e12…2e25 at000c = ╱54╱T╱ // 0x2e1e @0xc
0x2e12…2e25 at000d = ╱41╱A╱ // 0x2e1f @0xd
0x2e12…2e25 at000e = ╱4c╱L╱ // 0x2e20 @0xe
0x2e12…2e25 at000f = ╱22╱"╱ // 0x2e21 @0xf
0x2e12…2e25 at0010 = ╱ec╱,╱ // 0x2e22 @0x10
0x2e12…2e25 at0011 = ╱52╱R╱ // 0x2e23 @0x11
0x2e12…2e25 at0012 = EOL // 0x2e24 @0x12
0x2e12…2e25 }
0x2e25…2e39 c427 2000 GET "DP2:ZATAL" : S$
0x2e25…2e39 LineComal80 {
0x2e25…2e39 ptr = 0xc427 // 0x2e25 @0x0
0x2e25…2e39 lno = 0x07d0 // 0x2e27 @0x2
0x2e25…2e39 at0004 = ╱a9╱ GET ╱ // 0x2e29 @0x4
0x2e25…2e39 at0005 = ╱22╱"╱ // 0x2e2a @0x5
0x2e25…2e39 at0006 = ╱44╱D╱ // 0x2e2b @0x6
0x2e25…2e39 at0007 = ╱50╱P╱ // 0x2e2c @0x7
0x2e25…2e39 at0008 = ╱32╱2╱ // 0x2e2d @0x8
0x2e25…2e39 at0009 = ╱3a╱:╱ // 0x2e2e @0x9
0x2e25…2e39 at000a = ╱5a╱Z╱ // 0x2e2f @0xa
0x2e25…2e39 at000b = ╱41╱A╱ // 0x2e30 @0xb
0x2e25…2e39 at000c = ╱54╱T╱ // 0x2e31 @0xc
0x2e25…2e39 at000d = ╱41╱A╱ // 0x2e32 @0xd
0x2e25…2e39 at000e = ╱4c╱L╱ // 0x2e33 @0xe
0x2e25…2e39 at000f = ╱22╱"╱ // 0x2e34 @0xf
0x2e25…2e39 at0010 = ╱f1╱ : ╱ // 0x2e35 @0x10
0x2e25…2e39 at0011 = ╱53╱S╱ // 0x2e36 @0x11
0x2e25…2e39 at0012 = ╱ef╱$╱ // 0x2e37 @0x12
0x2e25…2e39 at0013 = EOL // 0x2e38 @0x13
0x2e25…2e39 }
0x2e39…2e50 c43e 2010 WHILE NOT ╱cd╱ ("DP2:ZATAL") DO
0x2e39…2e50 LineComal80 {
0x2e39…2e50 ptr = 0xc43e // 0x2e39 @0x0
0x2e39…2e50 lno = 0x07da // 0x2e3b @0x2
0x2e39…2e50 at0004 = ╱9300╱ WHILE ╱ // 0x2e3d @0x4
0x2e39…2e50 at0006 = ╱d7╱ NOT ╱ // 0x2e3f @0x6
0x2e39…2e50 at0007 = ╱cd╱ // 0x2e40 @0x7
0x2e39…2e50 at0008 = ╱ed╱(╱ // 0x2e41 @0x8
0x2e39…2e50 at0009 = ╱22╱"╱ // 0x2e42 @0x9
0x2e39…2e50 at000a = ╱44╱D╱ // 0x2e43 @0xa
0x2e39…2e50 at000b = ╱50╱P╱ // 0x2e44 @0xb
0x2e39…2e50 at000c = ╱32╱2╱ // 0x2e45 @0xc
0x2e39…2e50 at000d = ╱3a╱:╱ // 0x2e46 @0xd
0x2e39…2e50 at000e = ╱5a╱Z╱ // 0x2e47 @0xe
0x2e39…2e50 at000f = ╱41╱A╱ // 0x2e48 @0xf
0x2e39…2e50 at0010 = ╱54╱T╱ // 0x2e49 @0x10
0x2e39…2e50 at0011 = ╱41╱A╱ // 0x2e4a @0x11
0x2e39…2e50 at0012 = ╱4c╱L╱ // 0x2e4b @0x12
0x2e39…2e50 at0013 = ╱22╱"╱ // 0x2e4c @0x13
0x2e39…2e50 at0014 = ╱ee╱)╱ // 0x2e4d @0x14
0x2e39…2e50 at0015 = ╱bb╱ DO ╱ // 0x2e4e @0x15
0x2e39…2e50 at0016 = EOL // 0x2e4f @0x16
0x2e39…2e50 }
0x2e50…2e5e c44c 2020 LET P := P + 1
0x2e50…2e5e LineComal80 {
0x2e50…2e5e ptr = 0xc44c // 0x2e50 @0x0
0x2e50…2e5e lno = 0x07e4 // 0x2e52 @0x2
0x2e50…2e5e at0004 = ╱86╱ LET ╱ // 0x2e54 @0x4
0x2e50…2e5e at0005 = ╱50╱P╱ // 0x2e55 @0x5
0x2e50…2e5e at0006 = ╱f0╱ := ╱ // 0x2e56 @0x6
0x2e50…2e5e at0007 = ╱50╱P╱ // 0x2e57 @0x7
0x2e50…2e5e at0008 = ╱e5╱ + ╱ // 0x2e58 @0x8
0x2e50…2e5e at0009 = ╱31╱1╱ // 0x2e59 @0x9
0x2e50…2e5e at000a = ╱f20100╱ // 0x2e5a @0xa
0x2e50…2e5e at000d = EOL // 0x2e5d @0xd
0x2e50…2e5e }
0x2e5e…2e6d c45b 2030 EXEC OPDEL(S$)
0x2e5e…2e6d LineComal80 {
0x2e5e…2e6d ptr = 0xc45b // 0x2e5e @0x0
0x2e5e…2e6d lno = 0x07ee // 0x2e60 @0x2
0x2e5e…2e6d at0004 = ╱9d╱ EXEC ╱ // 0x2e62 @0x4
0x2e5e…2e6d at0005 = ╱4f╱O╱ // 0x2e63 @0x5
0x2e5e…2e6d at0006 = ╱50╱P╱ // 0x2e64 @0x6
0x2e5e…2e6d at0007 = ╱44╱D╱ // 0x2e65 @0x7
0x2e5e…2e6d at0008 = ╱45╱E╱ // 0x2e66 @0x8
0x2e5e…2e6d at0009 = ╱4c╱L╱ // 0x2e67 @0x9
0x2e5e…2e6d at000a = ╱ed╱(╱ // 0x2e68 @0xa
0x2e5e…2e6d at000b = ╱53╱S╱ // 0x2e69 @0xb
0x2e5e…2e6d at000c = ╱ef╱$╱ // 0x2e6a @0xc
0x2e5e…2e6d at000d = ╱ee╱)╱ // 0x2e6b @0xd
0x2e5e…2e6d at000e = EOL // 0x2e6c @0xe
0x2e5e…2e6d }
0x2e6d…2e81 c46f 2040 GET "DP2:ZATAL" : S$
0x2e6d…2e81 LineComal80 {
0x2e6d…2e81 ptr = 0xc46f // 0x2e6d @0x0
0x2e6d…2e81 lno = 0x07f8 // 0x2e6f @0x2
0x2e6d…2e81 at0004 = ╱a9╱ GET ╱ // 0x2e71 @0x4
0x2e6d…2e81 at0005 = ╱22╱"╱ // 0x2e72 @0x5
0x2e6d…2e81 at0006 = ╱44╱D╱ // 0x2e73 @0x6
0x2e6d…2e81 at0007 = ╱50╱P╱ // 0x2e74 @0x7
0x2e6d…2e81 at0008 = ╱32╱2╱ // 0x2e75 @0x8
0x2e6d…2e81 at0009 = ╱3a╱:╱ // 0x2e76 @0x9
0x2e6d…2e81 at000a = ╱5a╱Z╱ // 0x2e77 @0xa
0x2e6d…2e81 at000b = ╱41╱A╱ // 0x2e78 @0xb
0x2e6d…2e81 at000c = ╱54╱T╱ // 0x2e79 @0xc
0x2e6d…2e81 at000d = ╱41╱A╱ // 0x2e7a @0xd
0x2e6d…2e81 at000e = ╱4c╱L╱ // 0x2e7b @0xe
0x2e6d…2e81 at000f = ╱22╱"╱ // 0x2e7c @0xf
0x2e6d…2e81 at0010 = ╱f1╱ : ╱ // 0x2e7d @0x10
0x2e6d…2e81 at0011 = ╱53╱S╱ // 0x2e7e @0x11
0x2e6d…2e81 at0012 = ╱ef╱$╱ // 0x2e7f @0x12
0x2e6d…2e81 at0013 = EOL // 0x2e80 @0x13
0x2e6d…2e81 }
0x2e81…2e87 c475 2050 ENDWHILE
0x2e81…2e87 LineComal80 {
0x2e81…2e87 ptr = 0xc475 // 0x2e81 @0x0
0x2e81…2e87 lno = 0x0802 // 0x2e83 @0x2
0x2e81…2e87 at0004 = ╱94╱ ENDWHILE ╱ // 0x2e85 @0x4
0x2e81…2e87 at0005 = EOL // 0x2e86 @0x5
0x2e81…2e87 }
0x2e87…2e8d 0000 2060 CLOSE
0x2e87…2e8d LineComal80 {
0x2e87…2e8d ptr = 0x0000 // 0x2e87 @0x0
0x2e87…2e8d lno = 0x080c // 0x2e89 @0x2
0x2e87…2e8d at0004 = ╱a8╱ CLOSE ╱ // 0x2e8b @0x4
0x2e87…2e8d at0005 = EOL // 0x2e8c @0x5
0x2e87…2e8d }
0x2e8d…2e9f f4 c3 b7 07 9e 20 4f 50 54 5b 4c ff 9f c4 c6 07 9d 4f ┆ OPTÆL O┆
0x2e9f…2ebf (155,) 50 45 4e 46 49 4c ed 4f 50 54 46 ef ec 22 52 22 ee ff ad c4 d0 07 a9 4f 50 54 46 ef f1 53 ef ff ┆PENFIL OPTF "R" OPTF S ┆
0x2ebf…2edf be c4 da 07 93 21 d7 cd ed 4f 50 54 46 ef ee bb ff cc c4 e4 07 86 50 f0 50 e5 31 f2 01 00 ff db ┆ ! OPTF P P 1 ┆
0x2edf…2eec c4 ee 07 9d 4f 50 44 45 4c ed 53 ef ee ┆ OPDEL S ┆
0x2eec…2f0c (156,) ff e9 c4 f8 07 a9 4f 50 54 46 ef f1 53 ef ff ef c4 02 08 94 ff f5 c4 0c 08 a8 ff 00 00 16 08 9f ┆ OPTF S ┆
0x2f0c…2f2c 4f 50 54 5b 4c ff d2 cd 40 01 89 48 4a 5b 4c 50 45 20 56 41 52 49 41 42 4c 45 ff 6c 9a c0 00 b3 ┆OPTÆL @ HJÆLPE VARIABLE l ┆
0x2f2c…2f39 58 ed 32 30 f2 14 00 ee ec 52 ed 34 30 ┆X 20 R 40┆
0x2f39…2f59 (157,) f2 28 00 ee ff 1f 1f 1f 1f 1f 1f 41 52 41 50 53 59 53 3a 32 50 44 00 00 11 00 52 00 00 01 00 67 ┆ ( ARAPSYS:2PD R g┆
0x2f59…2f79 d8 96 00 9d 4f 50 54 5b 4c ff 6b c5 9f 07 86 49 44 58 50 4f 53 f0 46 49 4e 44 5f 4b 54 4f ed 4b ┆ OPTÆL k IDXPOS FIND_KTO K┆
0x2f79…2f86 4e ef ee ff 8c c5 a0 07 a9 4b 54 4f 49 ┆N KTOI┆
0x2f86…2fa6 (158,) 44 58 ef ec 49 44 58 50 4f 53 f1 4b 54 4f 4e 52 ef ec 52 45 43 4e 52 ff ab c5 a1 07 93 00 4b 4e ┆DX IDXPOS KTONR RECNR KN┆
0x2fa6…2fc6 ef df 4b 54 4f 4e 52 ef ed 31 f2 01 00 f1 cb ed 4b 4e ef ee ee bb ff d6 c5 a2 07 a9 44 52 49 46 ┆ KTONR 1 KN DRIF┆
0x2fc6…2fd3 54 5c ef ec 52 45 43 4e 52 f1 44 52 49 ┆TØ RECNR DRI┆
0x2fd3…2ff3 (159,) 46 54 ed 31 f2 01 00 ee ec 44 52 49 46 54 ed 32 f2 02 00 ee ff f1 c5 a3 07 86 58 ed 50 ee f0 58 ┆FT 1 DRIFT 2 X P X┆
0x2ff3…3013 ed 50 ee e5 44 52 49 46 54 ed 32 f2 02 00 ee ff 09 c6 a4 07 86 49 44 58 50 4f 53 f0 49 44 58 50 ┆ P DRIFT 2 IDXPOS IDXP┆
0x3013…3020 4f 53 e5 31 f2 01 00 ff 21 c6 a5 07 82 ┆OS 1 ! ┆
0x3020…3040 (160,) 00 49 44 58 50 4f 53 e1 49 5f 48 5c 4a 52 45 43 b5 99 ff 42 c6 a6 07 a9 4b 54 4f 49 44 58 ef ec ┆ IDXPOS I_HØJREC B KTOIDX ┆
0x3040…3060 49 44 58 50 4f 53 f1 4b 54 4f 4e 52 ef ec 52 45 43 4e 52 ff db c3 a7 07 94 ff 56 c6 72 06 9f 50 ┆IDXPOS KTONR RECNR V r P┆
0x3060…306d 52 49 4e 54 52 45 4c ff 7b c6 7c 06 89 ┆RINTREL æ ø ┆
0x306d…308d (161,) 44 49 4d 20 53 24 20 4f 46 20 38 30 2c 4b 54 4f 4e 52 24 20 4f 46 20 31 30 2c 58 28 32 30 29 ff ┆DIM S$ OF 80,KTONR$ OF 10,X(20) ┆
0x308d…30ad 8b c6 86 06 9e 18 4f 50 44 45 4c ed 41 ef ee ff 9c c6 90 06 86 53 5f 4b 54 4f 4e 52 ef f0 22 22 ┆ OPDEL A S_KTONR ""┆
0x30ad…30ba ff a8 c6 9a 06 86 49 f0 31 f2 01 00 ff ┆ I 1 ┆
0x30ba…30da (162,) b9 c6 a4 06 93 19 41 ef ed 49 ee e4 22 2a 22 bb ff df c6 ae 06 82 00 41 ef ed 49 ee df 22 2f 22 ┆ A I "*" A I "/"┆
0x30da…30fa b5 86 53 5f 4b 54 4f 4e 52 ef f0 22 22 ea 49 f0 49 e5 31 f2 01 00 ff fe c6 b8 06 93 1a ed 41 ef ┆ S_KTONR "" I I 1 A ┆
0x30fa…3107 ed 49 ee e4 22 2f 22 ee d9 ed 41 ef ed ┆ I "/" A ┆
0x3107…3127 (163,) 49 ee e4 22 2a 22 ee bb ff 1b c7 c2 06 86 53 5f 4b 54 4f 4e 52 ef f0 53 5f 4b 54 4f 4e 52 ef eb ┆I "*" S_KTONR S_KTONR ┆
0x3127…3147 41 ef ed 49 ee ff 29 c7 cc 06 86 49 f0 49 e5 31 f2 01 00 ff 2f c7 d6 06 94 ff 44 c7 e0 06 9d 4f ┆A I ) I I 1 / D O┆
0x3147…3154 50 53 55 4d ed 53 5f 4b 54 4f 4e 52 ef ┆PSUM S_KTONR ┆
0x3154…3174 (164,) ee ff 4a c7 ea 06 94 ff 55 c7 f4 06 9f 4f 50 44 45 4c ff cd d6 fe 06 9e 1b 4f 50 53 55 4d ed 4b ┆ J U OPDEL OPSUM K┆
0x3174…3194 4e ef ee ff 7a c7 0c 08 86 58 ed 50 ee f0 58 ed 50 ee e5 31 f2 01 00 ff 94 c7 12 07 86 49 44 58 ┆N z X P X P 1 IDX┆
0x3194…31a1 50 4f 53 f0 46 49 4e 44 5f 4b 54 4f ed ┆POS FIND_KTO ┆
0x31a1…31c1 (165,) 4b 4e ef ee ff b5 c7 1c 07 a9 4b 54 4f 49 44 58 ef ec 49 44 58 50 4f 53 f1 4b 54 4f 4e 52 ef ec ┆KN KTOIDX IDXPOS KTONR ┆
0x31c1…31e1 52 45 43 4e 52 ff d4 c7 26 07 93 1c 4b 4e ef df 4b 54 4f 4e 52 ef ed 31 f2 01 00 f1 cb ed 4b 4e ┆RECNR & KN KTONR 1 KN┆
0x31e1…31ee ef ee ee bb ff 83 d6 30 07 a9 44 52 49 ┆ 0 DRI┆
0x31ee…320e (166,) 46 54 5c ef ec 52 45 43 4e 52 f1 44 52 49 46 54 ed 31 f2 01 00 ee ec 44 52 49 46 54 ed 32 f2 02 ┆FTØ RECNR DRIFT 1 DRIFT 2 ┆
0x320e…322e 00 ee ff 1a c8 3e 08 86 58 ed 50 ee f0 58 ed 50 ee e5 44 52 49 46 54 ed 32 f2 02 00 ee ff 32 c8 ┆ > X P X P DRIFT 2 2 ┆
0x322e…323b 44 07 86 49 44 58 50 4f 53 f0 49 44 58 ┆D IDXPOS IDX┆
0x323b…325b (167,) 50 4f 53 e5 31 f2 01 00 ff 4a c8 4e 07 82 00 49 44 58 50 4f 53 e1 49 5f 48 5c 4a 52 45 43 b5 99 ┆POS 1 J N IDXPOS I_HØJREC ┆
0x325b…327b ff 6b c8 58 07 a9 4b 54 4f 49 44 58 ef ec 49 44 58 50 4f 53 f1 4b 54 4f 4e 52 ef ec 52 45 43 4e ┆ k X KTOIDX IDXPOS KTONR RECN┆
0x327b…3288 52 ff be d8 62 07 94 ff 7f c8 70 08 92 ┆R b p ┆
0x3288…32a8 (168,) 4b 4e ef ec 58 ed 50 ee ff 8a c8 76 07 9f 4f 50 53 55 4d ff 96 c8 80 07 9e 1d 4f 50 54 5b 4c ff ┆KN X P v OPSUM OPTÆL ┆
0x32a8…32c8 a2 c8 8a 07 86 50 f0 30 f2 00 00 ff ba c8 94 07 9d 4f 50 45 4e 46 49 4c ed 4f 50 54 46 ef ec 22 ┆ P 0 OPENFIL OPTF "┆
0x32c8…32d5 52 22 ee ff c8 c8 9e 07 a9 4f 50 54 46 ┆R" OPTF┆
0x32d5…32f5 (169,) ef f1 53 ef ff d9 c8 a8 07 93 1e d7 cd ed 4f 50 54 46 ef ee bb ff e7 c8 b2 07 86 50 f0 50 e5 31 ┆ S OPTF P P 1┆
0x32f5…3315 f2 01 00 ff dc d6 bc 07 9d 4f 50 44 45 4c ed 53 ef ee ff 04 c9 d0 07 a9 4f 50 54 46 ef f1 53 ef ┆ OPDEL S OPTF S ┆
0x3315…3322 ff 0a c9 da 07 94 ff 10 c9 e4 07 a8 ff ┆ ┆
0x3322…3342 (170,) f2 c9 ee 07 9f 4f 50 54 5b 4c ff d3 9c 30 02 87 44 52 49 46 54 5c ef ba 31 37 f2 11 00 ec 4f 50 ┆ OPTÆL 0 DRIFTØ 17 OP┆
0x3342…3362 54 46 ef ba 31 37 f2 11 00 ff e6 a1 02 03 86 4f 50 54 46 ef f0 44 41 54 41 46 4c ef eb 22 3a 22 ┆TF 17 OPTF DATAFL ":"┆
0x3362…336f eb 53 5f 4b 4f 44 45 ef eb 54 5f 4b 4f ┆ S_KODE T_KO┆
0x336f…338f (171,) 44 45 ef eb 22 54 41 4c 22 ff 30 9a 22 01 87 50 52 4f 47 52 41 4d ef ba 31 37 f2 11 00 ec 50 52 ┆DE "TAL" 0 " PROGRAM 17 PR┆
0x338f…33af 54 4e 52 ef ba 31 f2 01 00 ec 53 ef ba 38 30 f2 50 00 ff c2 c9 64 00 89 60 60 60 60 60 60 20 52 ┆TNR 1 S 80 P d `````` R┆
0x33af…33bc 45 47 4e 53 4b 41 42 53 41 4e 41 4c 59 ┆EGNSKABSANALY┆
0x33bc…33dc (172,) 53 45 20 56 45 52 53 49 4f 4e 20 32 2e 30 20 27 27 27 27 27 27 27 27 ff 36 99 6e 00 89 60 60 60 ┆SE VERSION 2.0 '''''''' 6 n ```┆
0x33dc…33fc 60 60 60 20 62 79 20 50 65 74 65 72 20 4b 72 69 73 74 65 6e 73 65 6e 20 31 39 38 34 20 27 27 27 ┆``` by Peter Kristensen 1984 '''┆
0x33fc…3409 27 27 27 27 27 27 27 ff 02 ca f8 07 9e ┆''''''' ┆
0x3409…3429 (173,) 1f 42 45 52 45 47 4e 4d 41 4a ff 20 ca 02 08 86 58 ed 39 f2 09 00 ee f0 58 ed 39 f2 09 00 ee e6 ┆ BEREGNMAJ X 9 X 9 ┆
0x3429…3449 58 ed 32 30 f2 14 00 ee ff 35 ca 0c 08 86 52 ed 31 f2 01 00 ee f0 58 ed 31 f2 01 00 ee ff 4a ca ┆X 20 5 R 1 X 1 J ┆
0x3449…3456 16 08 86 52 ed 32 f2 02 00 ee f0 58 ed ┆ R 2 X ┆
0x3456…3476 (174,) 35 f2 05 00 ee ff 67 ca 20 08 86 52 ed 33 f2 03 00 ee f0 52 ed 31 f2 01 00 ee e6 52 ed 32 f2 02 ┆5 g R 3 R 1 R 2 ┆
0x3476…3496 00 ee ff 7d ca 2a 08 86 52 ed 34 f2 04 00 ee f0 58 ed 32 30 f2 14 00 ee ff 9a ca 34 08 86 52 ed ┆ å * R 4 X 20 4 R ┆
0x3496…34a3 35 f2 05 00 ee f0 52 ed 33 f2 03 00 ee ┆5 R 3 ┆
0x34a3…34c3 (175,) e6 52 ed 34 f2 04 00 ee ff af ca 3e 08 86 52 ed 36 f2 06 00 ee f0 58 ed 39 f2 09 00 ee ff cc ca ┆ R 4 > R 6 X 9 ┆
0x34c3…34e3 48 08 86 52 ed 37 f2 07 00 ee f0 52 ed 35 f2 05 00 ee e6 52 ed 36 f2 06 00 ee ff e2 ca 52 08 86 ┆H R 7 R 5 R 6 R ┆
0x34e3…34f0 52 ed 38 f2 08 00 ee f0 58 ed 31 30 f2 ┆R 8 X 10 ┆
0x34f0…3510 (176,) 0a 00 ee ff ff ca 5c 08 86 52 ed 39 f2 09 00 ee f0 52 ed 37 f2 07 00 ee e6 52 ed 38 f2 08 00 ee ┆ Ø R 9 R 7 R 8 ┆
0x3510…3530 ff 16 cb 66 08 86 52 ed 31 30 f2 0a 00 ee f0 58 ed 31 31 f2 0b 00 ee ff 35 cb 70 08 86 52 ed 31 ┆ f R 10 X 11 5 p R 1┆
0x3530…353d 31 f2 0b 00 ee f0 52 ed 39 f2 09 00 ee ┆1 R 9 ┆
0x353d…355d (177,) e6 52 ed 31 30 f2 0a 00 ee ff 4c cb 7a 08 86 52 ed 31 32 f2 0c 00 ee f0 58 ed 32 35 f2 19 00 ee ┆ R 10 L z R 12 X 25 ┆
0x355d…357d ff 6c cb 84 08 86 52 ed 31 33 f2 0d 00 ee f0 52 ed 31 31 f2 0b 00 ee e6 52 ed 31 32 f2 0c 00 ee ┆ l R 13 R 11 R 12 ┆
0x357d…358a ff 82 cb 8e 08 86 58 ed 32 36 f2 1a 00 ┆ X 26 ┆
0x358a…35aa (178,) ee f0 52 ed 35 f2 05 00 ee ff b3 cb 98 08 86 52 ed 31 34 f2 0e 00 ee f0 ed 52 ed 39 f2 09 00 ee ┆ R 5 R 14 R 9 ┆
0x35aa…35ca e6 58 ed 32 35 f2 19 00 ee ee e7 31 30 30 f2 64 00 e8 58 ed 31 38 f2 12 00 ee ff e5 cb a2 08 86 ┆ X 25 100 d X 18 ┆
0x35ca…35d7 52 ed 31 35 f2 0f 00 ee f0 ed 52 ed 31 ┆R 15 R 1┆
0x35d7…35f7 (179,) 31 f2 0b 00 ee e6 58 ed 32 35 f2 19 00 ee ee e7 31 30 30 f2 64 00 e8 58 ed 31 39 f2 13 00 ee ff ┆1 X 25 100 d X 19 ┆
0x35f7…3617 f8 cb ac 08 83 20 49 f0 31 f2 01 00 b7 34 f2 04 00 bb ff 2f d7 b6 08 86 52 ed 31 35 f2 0f 00 e5 ┆ I 1 4 / R 15 ┆
0x3617…3624 49 ee f0 ed 58 ed 49 ee e6 58 ed 34 f2 ┆I X I X 4 ┆
0x3624…3644 (180,) 04 00 e5 49 ee ee e7 31 30 30 f2 64 00 e8 58 ed 49 ee ff 45 cc ba 09 86 52 ed 31 39 f2 13 00 e5 ┆ I 100 d X I E R 19 ┆
0x3644…3664 49 ee f0 58 ed 32 35 f2 19 00 e5 49 ee e8 58 ed 49 ee ff 80 d8 ca 08 84 49 ff 7d cc ce 09 86 52 ┆I X 25 I X I I å R┆
0x3664…3671 ed 32 34 f2 18 00 ee f0 ed 52 ed 39 f2 ┆ 24 R 9 ┆
0x3671…3691 (181,) 09 00 ee e6 52 ed 31 30 f2 0a 00 ee ee e7 31 30 30 f2 64 00 e8 52 ed 32 30 f2 14 00 ee ff ad cc ┆ R 10 100 d R 20 ┆
0x3691…36b1 de 08 86 52 ed 32 35 f2 19 00 ee f0 ed 52 ed 31 f2 01 00 ee e6 52 ed 32 34 f2 18 00 ee ee e7 31 ┆ R 25 R 1 R 24 1┆
0x36b1…36be 30 30 f2 64 00 e8 52 ed 31 f2 01 00 ee ┆00 d R 1 ┆
0x36be…36de (182,) ff c0 cc e8 08 83 21 49 f0 31 f2 01 00 b7 34 f2 04 00 bb ff e5 cc f2 08 86 52 ed 32 35 f2 19 00 ┆ !I 1 4 R 25 ┆
0x36de…36fe e5 49 ee f0 58 ed 34 f2 04 00 e5 49 ee e8 58 ed 31 31 f2 0b 00 e5 49 ee ff ec cc fc 08 84 49 ff ┆ I X 4 I X 11 I I ┆
0x36fe…370b 1b cd 06 09 86 52 ed 33 30 f2 1e 00 ee ┆ R 30 ┆
0x370b…372b (183,) f0 ed 52 ed 31 f2 01 00 ee e7 31 2e 32 32 f8 81 00 00 00 00 00 22 01 ee e8 58 ed 31 36 f2 10 00 ┆ R 1 1.22 " X 16 ┆
0x372b…374b ee ff 60 cd 10 09 86 52 ed 33 31 f2 1f 00 ee f0 ed ed ed 58 ed 35 f2 05 00 ee e5 58 ed 31 32 f2 ┆ ` R 31 X 5 X 12 ┆
0x374b…3758 0c 00 ee ee e6 58 ed 32 31 f2 15 00 ee ┆ X 21 ┆
0x3758…3778 (184,) ee e7 31 2e 32 32 f8 81 00 00 00 00 00 22 01 ee e8 58 ed 31 37 f2 11 00 ee ff 73 cd 1a 09 83 22 ┆ 1.22 " X 17 s "┆
0x3778…3798 49 f0 31 f2 01 00 b7 36 f2 06 00 bb ff 95 cd 24 09 86 52 ed 33 31 f2 1f 00 e5 49 ee f0 33 36 30 ┆I 1 6 $ R 31 I 360┆
0x3798…37a5 f2 68 01 e8 52 ed 32 35 f2 19 00 e5 49 ┆ h R 25 I┆
0x37a5…37c5 (185,) ee ff 9c cd 2e 09 84 49 ff c3 cd 38 09 86 52 ed 33 38 f2 26 00 ee f0 58 ed 31 39 f2 13 00 ee e7 ┆ . I 8 R 38 & X 19 ┆
0x37c5…37e5 31 30 30 f2 64 00 e8 58 ed 31 38 f2 12 00 ee ff 37 ce 42 09 9f 42 45 52 45 47 4e 4d 41 4a ff 6c ┆100 d X 18 7 B BEREGNMAJ l┆
0x37e5…37f2 9a 4a 01 b3 58 ed 33 30 f2 1e 00 ee ec ┆ J X 30 ┆
0x37f2…3812 (186,) 52 ed 34 30 f2 28 00 ee ff f7 cd aa 00 9d 49 4e 50 55 54 54 41 4c ff 0a ce b4 00 9b 01 53 5f 4b ┆R 40 ( INPUTTAL S_K┆
0x3812…3832 4f 44 45 ef df 22 59 22 b5 ff 86 d4 be 00 9d 42 45 52 45 47 4e 4d 41 4a ff 20 ce d2 00 9a 02 ff ┆ODE "Y" BEREGNMAJ ┆
0x3832…383f 31 ce dc 00 9d 42 45 52 45 47 4e 4b 41 ┆1 BEREGNKA┆
0x383f…385f (187,) 4d 45 54 ff b0 d8 e6 00 9c ff 46 ce 4c 09 9e 23 49 4e 50 55 54 54 41 4c ff 6e ce 56 09 9d 4f 56 ┆MET F L #INPUTTAL n V OV┆
0x385f…387f 45 52 53 4b 52 49 46 54 ed 22 52 65 67 6e 73 6b 61 62 61 6e 61 6c 79 73 65 22 ec 35 f2 05 00 ee ┆ERSKRIFT "Regnskabanalyse" 5 ┆
0x387f…388c ff f4 e5 60 09 97 24 ff 0b d1 8e 17 91 ┆ ` $ ┆
0x388c…38ac (188,) 22 3c 43 32 34 30 38 5a 3e 49 6e 64 74 61 73 74 20 64 72 69 66 74 73 6c 65 64 65 72 6c 7c 6e 20 ┆"<C2408Z>Indtast driftslederløn ┆
0x38ac…38cc 20 20 3a 20 22 f1 58 ed 32 35 f2 19 00 ee ff dd ce 98 17 91 22 3c 43 32 34 30 39 5a 20 20 20 20 ┆ : " X 25 "<C2409Z ┆
0x38cc…38d9 20 20 20 20 20 70 72 69 6d 6f 6c 61 67 ┆ primolag┆
0x38d9…38f9 (189,) 65 72 20 41 20 20 20 20 20 3a 20 22 f1 58 ed 32 32 f2 16 00 ee ff 11 cf a2 17 91 22 3c 43 32 34 ┆er A : " X 22 "<C24┆
0x38f9…3919 31 30 5a 3e 20 20 20 20 20 20 20 20 70 72 69 6d 6f 6c 61 67 65 72 20 42 20 20 20 20 20 3a 20 22 ┆10Z> primolager B : "┆
0x3919…3926 f1 58 ed 32 33 f2 17 00 ee ff 45 cf ac ┆ X 23 E ┆
0x3926…3946 (190,) 17 91 22 3c 43 32 34 31 31 5a 3e 20 20 20 20 20 20 20 20 70 72 69 6d 6f 6c 61 67 65 72 20 43 20 ┆ "<C2411Z> primolager C ┆
0x3946…3966 20 20 20 20 3a 20 22 f1 58 ed 32 34 f2 18 00 ee ff 79 cf b6 17 91 22 3c 43 32 34 31 32 5a 3e 20 ┆ : " X 24 y "<C2412Z> ┆
0x3966…3973 20 20 20 20 20 20 20 5c 76 72 2e 20 76 ┆ Øvr. v┆
0x3973…3993 (191,) 61 72 2e 20 6f 6d 6b 2e 20 20 20 3a 20 22 f1 58 ed 32 30 f2 14 00 ee ff ad cf c0 17 91 22 3c 43 ┆ar. omk. : " X 20 "<C┆
0x3993…39b3 32 34 31 33 5a 3e 20 20 20 20 20 20 20 20 64 7b 6b 6e 69 6e 67 73 62 69 64 72 61 67 20 41 20 3a ┆2413Z> dækningsbidrag A :┆
0x39b3…39c0 20 22 f1 58 ed 32 37 f2 1b 00 ee ff e1 ┆ " X 27 ┆
0x39c0…39e0 (192,) cf ca 17 91 22 3c 43 32 34 31 34 5a 3e 20 20 20 20 20 20 20 20 64 7b 6b 6e 69 6e 67 73 62 69 64 ┆ "<C2414Z> dækningsbid┆
0x39e0…3a00 72 61 67 20 42 20 3a 20 22 f1 58 ed 32 38 f2 1c 00 ee ff 15 d0 d4 17 91 22 3c 43 32 34 31 35 5a ┆rag B : " X 28 "<C2415Z┆
0x3a00…3a0d 3e 20 20 20 20 20 20 20 20 64 7b 6b 6e ┆> dækn┆
0x3a0d…3a2d (193,) 69 6e 67 73 62 69 64 72 61 67 20 43 20 3a 20 22 f1 58 ed 32 39 f2 1d 00 ee ff 52 d0 96 0a 91 22 ┆ingsbidrag C : " X 29 R "┆
0x3a2d…3a4d 3c 43 32 34 31 38 5a 3e 45 72 20 61 6c 6c 65 20 74 61 6c 20 6b 6f 72 72 65 6b 74 20 69 6e 64 74 ┆<C2418Z>Er alle tal korrekt indt┆
0x3a4d…3a5a 61 73 74 65 64 65 20 3f 20 28 6a 2f 6e ┆astede ? (j/n┆
0x3a5a…3a7a (194,) 29 20 22 f1 53 56 41 52 ef ff ab d2 c8 0a 98 53 56 41 52 ef df 22 6a 22 d8 53 56 41 52 ef df 22 ┆) " SVAR SVAR "j" SVAR "┆
0x3a7a…3a9a 4a 22 ff 43 d3 dc 0a 83 2b 49 f0 31 f2 01 00 b7 33 f2 03 00 bb ff a0 d0 fc 17 86 58 ed 32 31 f2 ┆J" C +I 1 3 X 21 ┆
0x3a9a…3aa7 15 00 ee f0 58 ed 32 31 f2 15 00 ee e5 ┆ X 21 ┆
0x3aa7…3ac7 (195,) 58 ed 32 31 f2 15 00 e5 49 ee ff c2 d0 f0 0a 86 58 ed 32 36 f2 1a 00 ee f0 58 ed 32 36 f2 1a 00 ┆X 21 I X 26 X 26 ┆
0x3ac7…3ae7 ee e5 58 ed 32 36 f2 1a 00 e5 49 ee ff c9 d0 fa 0a 84 49 ff 74 d3 04 0b 9f 49 4e 50 55 54 54 41 ┆ X 26 I I t INPUTTA┆
0x3ae7…3af4 4c ff dd ce 98 17 91 22 3c 43 32 34 30 ┆L "<C240┆
0x3af4…3b14 (196,) 39 5a 3e 20 20 20 20 20 20 20 20 70 72 69 6d 6f 6c 61 67 65 72 20 41 20 20 20 20 20 3a 20 22 f1 ┆9Z> primolager A : " ┆
0x3b14…3b34 58 ed 32 32 f2 16 00 ee ff 77 d2 98 17 91 22 3c 43 32 34 30 39 5a 3e 20 20 20 20 20 20 20 20 70 ┆X 22 w "<C2409Z> p┆
0x3b34…3b41 72 69 6d 6f 6c 61 67 65 72 20 20 20 20 ┆rimolager ┆
0x3b41…3b61 (197,) 20 20 20 3a 20 22 f1 58 ed 32 32 f2 16 00 ee ff 73 d1 a2 17 91 22 3c 43 32 34 31 30 5a 3e 20 20 ┆ : " X 22 s "<C2410Z> ┆
0x3b61…3b81 20 20 20 20 20 20 5c 76 72 2e 20 76 61 72 2e 20 6f 6d 6b 2e 20 41 20 3a 20 22 f1 58 ed 32 33 f2 ┆ Øvr. var. omk. A : " X 23 ┆
0x3b81…3b8e 17 00 ee ff a7 d1 aa 0a 91 22 3c 43 32 ┆ "<C2┆
0x3b8e…3bae (198,) 34 31 31 5a 3e 20 20 20 20 20 20 20 20 5c 76 72 2e 20 76 61 72 2e 20 6f 6d 6b 2e 20 42 20 3a 20 ┆411Z> Øvr. var. omk. B : ┆
0x3bae…3bce 22 f1 58 ed 32 38 f2 1c 00 ee ff 6d d5 b4 0a 91 22 3c 43 32 34 31 32 5a 3e 20 20 20 20 20 20 20 ┆" X 28 m "<C2412Z> ┆
0x3bce…3bdb 20 5c 76 72 2e 20 76 61 72 2e 20 6f 6d ┆ Øvr. var. om┆
0x3bdb…3bfb (199,) 6b 2e 20 43 20 3a 20 22 f1 58 ed 32 39 f2 1d 00 ee ff 0f d2 c0 17 91 22 3c 43 32 34 31 33 5a 3e ┆k. C : " X 29 "<C2413Z>┆
0x3bfb…3c1b 20 20 20 20 20 20 20 20 64 7b 6b 6e 69 6e 67 73 62 69 64 72 61 67 20 41 20 3a 20 22 f1 58 ed 32 ┆ dækningsbidrag A : " X 2┆
0x3c1b…3c28 37 f2 1b 00 ee ff 43 d2 ca 17 91 22 3c ┆7 C "<┆
0x3c28…3c48 (200,) 43 32 34 31 34 5a 3e 20 20 20 20 20 20 20 20 64 7b 6b 6e 69 6e 67 73 62 69 64 72 61 67 20 42 20 ┆C2414Z> dækningsbidrag B ┆
0x3c48…3c68 3a 20 22 f1 58 ed 32 38 f2 1c 00 ee ff 15 d0 d4 17 91 22 3c 43 32 34 31 35 5a 3e 20 20 20 20 20 ┆: " X 28 "<C2415Z> ┆
0x3c68…3c75 20 20 20 64 7b 6b 6e 69 6e 67 73 62 69 ┆ dækningsbi┆
0x3c75…3c95 (201,) 64 72 61 67 20 43 20 3a 20 22 f1 58 ed 32 39 f2 1d 00 ee ff 73 d1 a0 0a 91 22 3c 43 32 34 31 30 ┆drag C : " X 29 s "<C2410┆
0x3c95…3cb5 5a 3e 20 20 20 20 20 20 20 20 5c 76 72 2e 20 76 61 72 2e 20 6f 6d 6b 2e 20 41 20 3a 20 22 f1 58 ┆Z> Øvr. var. omk. A : " X┆
0x3cb5…3cc2 ed 32 37 f2 1b 00 ee ff 6b d0 d2 0a b4 ┆ 27 k ┆
0x3cc2…3ce2 (202,) 00 49 f0 31 f2 01 00 b7 33 f2 03 00 bb 86 58 ed 32 30 f2 14 00 ee f0 58 ed 32 30 f2 14 00 ee e5 ┆ I 1 3 X 20 X 20 ┆
0x3ce2…3d02 58 ed 32 36 f2 1a 00 e5 49 ee ff 0f d3 8c 0a 91 22 3c 43 32 34 30 38 5a 3e 49 6e 64 74 61 73 74 ┆X 26 I "<C2408Z>Indtast┆
0x3d02…3d0f 20 64 72 69 66 74 73 6c 65 64 65 72 6c ┆ driftslederl┆
0x3d0f…3d2f (203,) 7c 6e 20 20 20 3a 20 22 f1 58 ed 32 35 f2 19 00 ee ff 77 d2 96 0a 91 22 3c 43 32 34 30 39 5a 3e ┆øn : " X 25 w "<C2409Z>┆
0x3d2f…3d4f 20 20 20 20 20 20 20 20 70 72 69 6d 6f 6c 61 67 65 72 20 20 20 20 20 20 20 3a 20 22 f1 58 ed 32 ┆ primolager : " X 2┆
0x3d4f…3d5c 31 f2 15 00 ee ff a0 d0 e6 0a 86 58 ed ┆1 X ┆
0x3d5c…3d7c (204,) 32 36 f2 1a 00 e5 49 ee f0 58 ed 31 f2 01 00 e5 49 ee e6 ed 58 ed 35 f2 05 00 e5 49 ee e5 58 ed ┆26 I X 1 I X 5 I X ┆
0x3d7c…3d9c 32 36 f2 1a 00 e5 49 ee ee ff 85 d3 0e 0b 9e 2c 55 44 53 4b 52 49 56 4d 41 4a ff 0f d5 18 0b 87 ┆26 I ,UDSKRIVMAJ ┆
0x3d9c…3da9 55 44 46 49 4c ef ba 31 37 f2 11 00 ff ┆UDFIL 17 ┆
0x3da9…3dc9 (205,) 96 d4 6c 1b 86 55 44 46 49 4c ef f0 53 5f 4b 4f 44 45 ef eb 22 52 53 4b 45 4c 45 54 22 ff cf d3 ┆ l UDFIL S_KODE "RSKELET" ┆
0x3dc9…3de9 76 1b 9d 4f 50 45 4e 46 49 4c 45 ed 55 44 46 49 4c ef ec 22 52 22 ee ff 39 d5 36 0b a9 55 44 46 ┆v OPENFILE UDFIL "R" 9 6 UDF┆
0x3de9…3df6 49 4c ef f1 53 ef ff f0 d3 54 0b 93 2d ┆IL S T -┆
0x3df6…3e16 (206,) d7 cd ed 55 44 46 49 4c ef ee bb ff fe d3 5e 0b 9b 2e 22 23 22 dc 53 ef b5 ff 0c d4 1e 0a 86 49 ┆ UDFIL ^ ."#" S I┆
0x3e16…3e36 f0 49 e5 31 f2 01 00 ff 1a d4 28 0a 92 b9 53 ef f1 52 ed 49 ee ff 21 d4 32 0a 9a 29 ff 29 d4 3c ┆ I 1 ( S R I ! 2 ) ) <┆
0x3e36…3e43 0a 92 53 ef ff 2f d4 46 0a 9c ff 3e d4 ┆ S / F > ┆
0x3e43…3e63 (207,) 50 0a a9 55 44 46 49 4c ef f1 53 ef ff 44 d4 5a 0a 94 ff 5f d5 64 0a a8 55 44 46 49 4c ef ff 6d ┆P UDFIL S D Z _ d UDFIL m┆
0x3e63…3e83 dd 78 0a 9f 55 44 53 4b 52 49 56 4d 41 4a ff de d3 4a 0b 86 49 f0 30 f2 00 00 ff 1f 1f 1f 1f 1f ┆ x UDSKRIVMAJ J I 0 ┆
0x3e83…3e90 1f 1f 1f 4c 41 54 41 59 3a 32 50 44 00 ┆ LATAY:2PD ┆
0x3e90…3eb0 (208,) 00 11 00 52 00 00 01 00 19 ce c8 00 9d 55 44 53 4b 52 49 56 4d 41 4a ff cf d3 2c 0b 9d 4f 50 45 ┆ R UDSKRIVMAJ , OPE┆
0x3eb0…3ed0 4e 46 49 4c ed 55 44 46 49 4c ef ec 22 52 22 ee ff 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f ┆NFIL UDFIL "R" ┆
0x3ed0…3edd 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f ┆ ┆
0x3edd…3efd (209,) 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f ┆ ┆
0x3efd…3f1d 1f 67 75 72 62 72 6f 66 65 72 61 56 20 20 20 20 2a 31 32 30 00 00 50 00 1f 1f 1f 1f 1f 31 32 30 ┆ gurbroferaV *120 P 120┆
0x3f1d…3f2a 00 00 08 00 96 d4 22 0b 86 55 44 46 49 ┆ " UDFI┆
0x3f2a…3f4a (210,) 4c ef f0 44 41 54 41 46 4c ef eb 22 3a 22 eb 53 5f 4b 4f 44 45 ef eb 22 52 53 4b 45 4c 45 54 22 ┆L DATAFL ":" S_KODE "RSKELET"┆
0x3f4a…3f6a ff 60 d4 40 0b 9d 50 52 49 4e 54 52 45 53 ed 22 73 6d 61 6c 20 45 44 42 2d 6c 69 73 74 65 22 ec ┆ ` @ PRINTRES "smal EDB-liste" ┆
0x3f6a…3f77 32 30 f2 14 00 ee ff 50 d4 6e 0a 9d 50 ┆20 P n P┆
0x3f77…3f97 (211,) 52 49 4e 54 52 45 4c ff 52 d0 be 0a 91 22 3c 43 32 32 31 38 5a 3e 45 72 20 61 6c 6c 65 20 74 61 ┆RINTREL R "<C2218Z>Er alle ta┆
0x3f97…3fb7 6c 20 6b 6f 72 72 65 6b 74 20 69 6e 64 74 61 73 74 65 64 65 20 3f 20 28 6a 2f 6e 29 20 22 f1 53 ┆l korrekt indtastede ? (j/n) " S┆
0x3fb7…3fc4 56 41 52 ef ff 75 99 cd 00 ac 50 52 4f ┆VAR u PRO┆
0x3fc4…3fe4 (212,) 47 52 41 4d ef ff ff c7 35 08 82 00 4b 54 4f 4e 52 ef ed 31 f2 01 00 ee df 22 30 22 b5 86 44 52 ┆GRAM 5 KTONR 1 "0" DR┆
0x3fe4…4004 49 46 54 ed 32 f2 02 00 ee f0 de 44 52 49 46 54 ed 32 f2 02 00 ee ff 0c d4 a3 1b 82 00 49 e2 31 ┆IFT 2 DRIFT 2 I 1┆
0x4004…4011 32 f2 0c 00 b5 86 52 ed 49 ee f0 c4 ed ┆2 R I ┆
0x4011…4031 (213,) 52 ed 49 ee ee ff 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f ┆R I ┆
0x4031…4051 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f ┆ ┆
0x4051…405e 1f 41 20 65 70 70 75 72 67 65 72 61 56 ┆ A eppurgeraV┆
0x405e…407e (214,) 20 20 20 2a 31 31 31 32 31 00 00 50 00 1f 1f 1f 31 31 31 32 31 00 00 08 00 1a c8 3e 08 86 58 ed ┆ *11121 P 11121 > X ┆
0x407e…409e 50 ee f0 58 ed 50 ee e5 c4 ed 44 52 49 46 54 ed 32 f2 02 00 ee ee ff 1a c8 3a 07 86 58 ed 50 ee ┆P X P DRIFT 2 : X P ┆
0x409e…40ab f0 58 ed 50 ee e5 44 52 49 46 54 ed 32 ┆ X P DRIFT 2┆
0x40ab…40cb (215,) f2 02 00 ee ff 7f c8 70 08 92 22 3c 58 43 31 32 31 32 3e 44 65 72 20 6f 70 74 7b 6c 6c 65 73 21 ┆ p "<XC1212>Der optælles!┆
0x40cb…40eb 22 ff 9e d6 67 08 86 58 ed 50 ee f0 c4 ed 58 ed 50 ee ee ff 7a c7 08 07 86 58 ed 50 ee f0 58 ed ┆" g X P X P z X P X ┆
0x40eb…40f8 50 ee ff f6 c8 c6 07 86 58 ed 50 ee f0 ┆P X P ┆
0x40f8…4118 (216,) c4 ed 58 ed 50 ee ee ff 45 cc ba 09 86 52 ed 31 39 f2 13 00 e5 49 ee f0 58 ed 32 35 f2 19 00 e5 ┆ X P E R 19 I X 25 ┆
0x4118…4138 49 ee e8 58 ed 49 ee e7 31 30 30 f2 64 00 ff 1f 1f 1f 1f 1f 58 44 49 4f 54 4b 41 59 3a 32 50 44 ┆I X I 100 d XDIOTKAY:2PD┆
0x4138…4145 00 00 11 00 52 00 00 01 00 45 cc c0 08 ┆ R E ┆
0x4145…4165 (217,) 86 52 ed 31 39 f2 13 00 e5 49 ee f0 58 ed 32 35 f2 19 00 e5 49 ee e7 31 30 30 f2 64 00 e8 58 ed ┆ R 19 I X 25 I 100 d X ┆
0x4165…4185 49 ee ff 7f c8 70 08 92 22 3c 58 43 31 32 31 32 3e 44 65 72 20 6f 70 74 7b 6c 6c 65 73 21 22 ea ┆I p "<XC1212>Der optælles!" ┆
0x4185…4192 4b 54 4f 4e 52 ef ea 22 20 20 20 20 20 ┆KTONR " ┆
0x4192…41b2 (218,) 20 22 ea 58 ed 50 ee ff 1f 1f 1f 1f 1f 1f 1f 1f 4c 41 54 41 59 3a 32 50 44 00 00 11 00 52 00 00 ┆ " X P LATAY:2PD R ┆
0x41b2…41d2 01 00 7f c8 70 08 92 22 3c 31 32 31 32 3e 44 65 72 20 6f 70 74 7b 6c 6c 65 73 21 22 ea 4b 54 4f ┆ p "<1212>Der optælles!" KTO┆
0x41d2…41df 4e 52 ef ea 22 20 20 20 20 20 20 22 ea ┆NR " " ┆
0x41df…41ff (219,) 58 ed 50 ee ff 7f c8 70 08 92 22 44 65 72 20 6f 70 74 7b 6c 6c 65 73 21 22 ea 4b 54 4f 4e 52 ef ┆X P p "Der optælles!" KTONR ┆
0x41ff…421f ea 22 20 20 20 20 20 20 22 ea 58 ed 50 ee ff e9 cd 8d 00 b4 00 49 f0 31 f2 01 00 b7 31 30 30 30 ┆ " " X P I 1 1000┆
0x421f…422c f2 e8 03 bb 86 49 f0 49 ff 7f c8 70 08 ┆ I I p ┆
0x422c…424c (220,) 89 50 52 49 4e 54 20 22 44 65 72 20 6f 70 74 7b 6c 6c 65 73 21 22 3b 4b 54 4f 4e 52 24 3b 22 20 ┆ PRINT "Der optælles!";KTONR$;" ┆
0x424c…426c 20 20 20 20 20 22 3b 58 28 50 29 ff 1a c8 43 08 92 4b 54 4f 4e 52 ef ea 22 20 20 20 20 20 20 20 ┆ ";X(P) C KTONR " ┆
0x426c…4279 20 20 20 20 20 20 22 ea 58 ed 50 ee ff ┆ " X P ┆
0x4279…4299 (221,) e9 cd a0 00 b4 00 49 f0 31 f2 01 00 b7 35 30 30 f2 f4 01 bb 86 49 f0 49 ff 7d cc d4 08 86 52 ed ┆ I 1 500 I I å R ┆
0x4299…42b9 32 34 f2 18 00 ee f0 ed 52 ed 36 f2 06 00 ee e5 52 ed 38 f2 08 00 ee ee e7 31 30 30 f2 64 00 e8 ┆24 R 6 R 8 100 d ┆
0x42b9…42c6 52 ed 32 30 f2 14 00 ee ff 75 99 f0 00 ┆R 20 u ┆
0x42c6…42e6 (222,) ac 50 52 4f 47 52 41 4d ef ff 7f c8 6c 07 92 22 3c 58 43 31 34 31 32 3e 44 65 72 20 6f 70 74 7b ┆ PROGRAM l "<XC1412>Der optæ┆
0x42e6…4306 6c 6c 65 73 21 22 ff 18 d9 8c 0a 91 22 3c 43 32 30 30 38 5a 3e 49 6e 64 74 61 73 74 20 64 72 69 ┆lles!" "<C2008Z>Indtast dri┆
0x4306…4313 66 74 73 6c 65 64 65 72 6c 7c 6e 20 20 ┆ftslederløn ┆
0x4313…4333 (223,) 20 20 20 20 20 20 20 20 20 20 3a 20 22 f1 58 ed 32 35 f2 19 00 ee ff 55 d9 96 0a 91 22 3c 43 32 ┆ : " X 25 U "<C2┆
0x4333…4353 34 30 39 5a 3e 20 20 20 20 20 20 20 20 6c 61 67 65 72 20 69 61 6c 74 2c 20 70 72 69 6d 6f 20 20 ┆409Z> lager ialt, primo ┆
0x4353…4360 20 20 20 20 20 20 20 3a 20 22 f1 58 ed ┆ : " X ┆
0x4360…4380 (224,) 32 31 f2 15 00 ee ff 92 d9 a0 0a 91 22 3c 43 32 34 31 30 5a 3e 20 20 20 20 20 20 20 20 5c 76 72 ┆21 "<C2410Z> Øvr┆
0x4380…43a0 69 67 65 20 76 61 72 69 61 62 6c 65 20 6f 6d 6b 2e 20 20 41 20 20 20 3a 20 22 f1 58 ed 32 37 f2 ┆ige variable omk. A : " X 27 ┆
0x43a0…43ad 1b 00 ee ff cf d9 aa 0a 91 22 3c 43 32 ┆ "<C2┆
0x43ad…43cd (225,) 34 31 31 5a 3e 20 20 20 20 20 20 20 20 5c 76 72 69 67 65 20 76 61 72 69 61 62 6c 65 20 6f 6d 6b ┆411Z> Øvrige variable omk┆
0x43cd…43ed 2e 20 20 42 20 20 20 3a 20 22 f1 58 ed 32 38 f2 1c 00 ee ff 0c da b4 0a 91 22 3c 43 32 34 31 32 ┆. B : " X 28 "<C2412┆
0x43ed…43fa 5a 3e 20 20 20 20 20 20 20 20 5c 76 72 ┆Z> Øvr┆
0x43fa…441a (226,) 69 67 65 20 76 61 72 69 61 62 6c 65 20 6f 6d 6b 2e 20 20 43 20 20 20 3a 20 22 f1 58 ed 32 39 f2 ┆ige variable omk. C : " X 29 ┆
0x441a…443a 1d 00 ee ff 49 da 88 09 91 22 3c 43 32 32 31 38 5a 3e 45 72 20 61 6c 6c 65 20 74 61 6c 20 6b 6f ┆ I "<C2218Z>Er alle tal ko┆
0x443a…4447 72 72 65 6b 74 20 69 6e 64 74 61 73 74 ┆rrekt indtast┆
0x4447…4467 (227,) 65 64 65 20 3f 20 28 6a 2f 6e 29 20 22 f1 53 56 41 52 ef ff 62 da 7e 09 98 53 56 41 52 ef df 22 ┆ede ? (j/n) " SVAR b ü SVAR "┆
0x4467…4487 6a 22 d8 53 56 41 52 ef df 22 4a 22 ff 92 da 88 09 b4 00 49 f0 31 f2 01 00 b7 33 f2 03 00 bb 86 ┆j" SVAR "J" I 1 3 ┆
0x4487…4494 58 ed 32 30 f2 14 00 ee f0 58 ed 32 30 ┆X 20 X 20┆
0x4494…44b4 (228,) f2 14 00 ee e5 58 ed 32 36 f2 1a 00 e5 49 ee ff a5 da 92 09 83 25 49 f0 31 f2 01 00 b7 33 f2 03 ┆ X 26 I %I 1 3 ┆
0x44b4…44d4 00 bb ff d6 da 9c 09 86 58 ed 32 36 f2 1a 00 e5 49 ee f0 58 ed 31 f2 01 00 e5 49 ee e6 ed 58 ed ┆ X 26 I X 1 I X ┆
0x44d4…44e1 35 f2 05 00 e5 49 ee e5 58 ed 32 36 f2 ┆5 I X 26 ┆
0x44e1…4501 (229,) 1a 00 e5 49 ee ee ff f8 da a6 09 86 58 ed 32 36 f2 1a 00 ee f0 58 ed 32 36 f2 1a 00 ee e5 58 ed ┆ I X 26 X 26 X ┆
0x4501…4521 32 36 f2 1a 00 e5 49 ee ff ff da b0 09 84 49 ff 0d db ba 09 9f 49 4e 50 55 54 54 41 4c ff 1e db ┆26 I I INPUTTAL ┆
0x4521…452e c4 09 9e 26 55 44 53 4b 52 49 56 4d 41 ┆ &UDSKRIVMA┆
0x452e…454e (230,) 4a ff 30 db ce 09 87 55 44 46 49 4c ef ba 31 37 f2 11 00 ff 5a db d8 09 86 55 44 46 49 4c ef f0 ┆J 0 UDFIL 17 Z UDFIL ┆
0x454e…456e 44 41 54 41 46 4c ef eb 22 3a 22 eb 53 5f 4b 4f 44 45 ef eb 22 52 53 4b 45 4c 45 54 22 ff 73 db ┆DATAFL ":" S_KODE "RSKELET" s ┆
0x456e…457b e2 09 9d 4f 50 45 4e 46 49 4c ed 55 44 ┆ OPENFIL UD┆
0x457b…459b (231,) 46 49 4c ef ec 22 52 22 ee ff d4 db ec 09 a9 55 44 46 49 4c ef f1 53 ef ff a8 db 40 0b 9d 50 52 ┆FIL "R" UDFIL S @ PR┆
0x459b…45bb 49 4e 54 52 45 53 ed 22 73 6d 61 6c 20 45 44 42 2d 6c 69 73 74 65 22 ec 32 30 f2 14 00 ee ff b4 ┆INTRES "smal EDB-liste" 20 ┆
0x45bb…45c8 db 00 0a 86 49 f0 30 f2 00 00 ff c6 db ┆ I 0 ┆
0x45c8…45e8 (232,) 0a 0a 93 27 d7 cd ed 55 44 46 49 4c ef ee bb ff fe d3 14 0a 9b 28 22 23 22 dc 53 ef b5 ff d6 e8 ┆ ' UDFIL ("#" S ┆
0x45e8…4608 f6 09 9d 50 52 49 4e 54 52 45 53 ed 22 70 61 70 69 72 22 ec 32 30 f2 14 00 ee ff 33 dc 8c 0a 91 ┆ PRINTRES "papir" 20 3 ┆
0x4608…4615 22 3c 43 32 30 30 38 5a 3e 49 6e 64 74 ┆"<C2008Z>Indt┆
0x4615…4635 (233,) 61 73 74 20 64 72 69 66 74 73 6c 65 64 65 72 6c 7c 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ast driftslederløn ┆
0x4635…4655 20 20 20 3a 20 22 f1 58 ed 32 35 f2 19 00 ee ff 70 dc 60 09 91 22 3c 43 32 30 30 39 5a 3e 20 20 ┆ : " X 25 p ` "<C2009Z> ┆
0x4655…4662 20 20 20 20 20 20 6c 61 67 65 72 20 69 ┆ lager i┆
0x4662…4682 (234,) 61 6c 74 2c 20 70 72 69 6d 6f 20 20 20 20 20 20 20 20 20 3a 20 22 f1 58 ed 32 31 f2 15 00 ee ff ┆alt, primo : " X 21 ┆
0x4682…46a2 ad dc 6a 09 91 22 3c 43 32 30 31 30 5a 3e 20 20 20 20 20 20 20 20 5c 76 72 69 67 65 20 76 61 72 ┆ j "<C2010Z> Øvrige var┆
0x46a2…46af 69 61 62 6c 65 20 6f 6d 6b 2e 20 20 41 ┆iable omk. A┆
0x46af…46cf (235,) 20 20 20 3a 20 22 f1 58 ed 32 37 f2 1b 00 ee ff ea dc 74 09 91 22 3c 43 32 30 31 31 5a 3e 20 20 ┆ : " X 27 t "<C2011Z> ┆
0x46cf…46ef 20 20 20 20 20 20 5c 76 72 69 67 65 20 76 61 72 69 61 62 6c 65 20 6f 6d 6b 2e 20 20 42 20 20 20 ┆ Øvrige variable omk. B ┆
0x46ef…46fc 3a 20 22 f1 58 ed 32 38 f2 1c 00 ee ff ┆: " X 28 ┆
0x46fc…471c (236,) 0c da 7e 09 91 22 3c 43 32 30 31 32 5a 3e 20 20 20 20 20 20 20 20 5c 76 72 69 67 65 20 76 61 72 ┆ ü "<C2012Z> Øvrige var┆
0x471c…473c 69 61 62 6c 65 20 6f 6d 6b 2e 20 20 43 20 20 20 3a 20 22 f1 58 ed 32 39 f2 1d 00 ee ff 33 dc 56 ┆iable omk. C : " X 29 3 V┆
0x473c…4749 09 91 22 3c 43 32 30 30 38 5a 3e 49 6e ┆ "<C2008Z>In┆
0x4749…4769 (237,) 64 74 61 73 74 20 64 72 69 66 74 73 6c 65 64 65 72 6c 7c 6e 20 20 20 20 20 20 20 20 20 20 20 20 ┆dtast driftslederløn ┆
0x4769…4789 3a 20 22 f1 58 ed 32 35 f2 19 00 ee ff 72 69 70 61 70 00 00 05 00 73 dd 82 0a 89 ff a6 dd 8c 0a ┆: " X 25 ripap s ┆
0x4789…4796 9e 2a 50 52 49 4e 54 52 45 53 ed 50 41 ┆ *PRINTRES PA┆
0x4796…47b6 (238,) 47 45 54 59 50 45 ef ec 4c 49 4e 45 ee 89 50 52 49 4e 54 45 52 20 52 45 53 45 52 56 41 54 49 4f ┆GETYPE LINE PRINTER RESERVATIO┆
0x47b6…47d6 4e ff be dd 96 0a 86 50 52 54 4e 52 ef f0 22 31 22 ea 4f 4b f0 54 52 55 45 ff c5 dd a0 0a 97 2b ┆N PRTNR "1" OK TRUE +┆
0x47d6…47e3 ff d5 dd aa 0a a1 31 35 f2 0f 00 ec 4c ┆ 15 L┆
0x47e3…4803 (239,) 49 4e 45 ff 0e de b4 0a b1 22 3c 5a 3e 55 64 73 6b 72 69 76 6e 69 6e 67 20 70 7d 20 70 72 69 6e ┆INE "<Z>Udskrivning på prin┆
0x4803…4823 74 65 72 20 6e 72 2e 20 3f 20 28 31 2f 32 2f 33 2f 34 29 20 22 f1 50 52 54 4e 52 ef ff 2e de be ┆ter nr. ? (1/2/3/4) " PRTNR . ┆
0x4823…4830 0a 98 22 2f 22 eb 50 52 54 4e 52 ef eb ┆ "/" PRTNR ┆
0x4830…4850 (240,) 22 2f 22 dc 22 2f 31 2f 32 2f 33 2f 34 2f 22 ff 3d de c8 0a a1 31 f2 01 00 ec 4c 49 4e 45 ff 48 ┆"/" "/1/2/3/4/" = 1 LINE H┆
0x4850…4870 de d2 0a 92 22 3c 5a 3e 22 ff 6c de dc 0a a1 ed 33 39 f2 27 00 e6 cb ed 50 41 47 45 54 59 50 45 ┆ "<Z>" l 39 ' PAGETYPE┆
0x4870…487d ef ee ee da 32 f2 02 00 ec 4c 49 4e 45 ┆ 2 LINE┆
0x487d…489d (241,) ff ac de e6 0a 92 22 3c 53 5a 3e 20 20 20 20 20 4d 6f 6e 74 65 72 20 22 ea 50 41 47 45 54 59 50 ┆ "<SZ> Monter " PAGETYP┆
0x489d…48bd 45 ef ea 22 20 69 20 70 72 69 6e 74 65 72 65 6e 20 2d 20 74 72 79 6b 20 52 45 54 55 52 4e 20 22 ┆E " i printeren - tryk RETURN "┆
0x48bd…48ca ff ba de f0 0a 91 22 22 f1 53 56 41 52 ┆ "" SVAR┆
0x48ca…48ea (242,) ef ff ca de fa 0a 96 22 50 22 eb 50 52 54 4e 52 ef ff d8 de 04 0b 9b 2c cd ed 22 50 22 ee b5 ff ┆ "P" PRTNR , "P" ┆
0x48ea…490a e8 de 0e 0b a1 31 32 f2 0c 00 ec 4c 49 4e 45 ff 1f df 18 0b 92 22 3c 53 5a 3e 50 72 69 6e 74 65 ┆ 12 LINE "<SZ>Printe┆
0x490a…4917 72 65 6e 20 65 72 20 72 65 73 65 72 76 ┆ren er reserv┆
0x4917…4937 (243,) 65 72 65 74 20 61 66 20 65 6e 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 22 ff 34 df 22 0b a1 31 ┆eret af en anden bruger," 4 " 1┆
0x4937…4957 32 f2 0c 00 ec 4c 49 4e 45 e5 31 f2 01 00 ff 75 df 2c 0b 91 22 3c 53 5a 3e 53 6b 61 6c 20 64 65 ┆2 LINE 1 u , "<SZ>Skal de┆
0x4957…4964 72 20 76 65 6e 74 65 73 20 70 7d 20 61 ┆r ventes på a┆
0x4964…4984 (244,) 74 20 64 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 20 3f 20 28 6a 2f 6e 29 20 22 f1 53 56 41 ┆t den bliver ledig ? (j/n) " SVA┆
0x4984…49a4 52 ef ff 90 df 36 0b 9b 2d 53 56 41 52 ef df 22 4a 22 d8 53 56 41 52 ef df 22 6a 22 b5 ff a0 df ┆R 6 -SVAR "J" SVAR "j" ┆
0x49a4…49b1 40 0b a1 31 32 f2 0c 00 ec 4c 49 4e 45 ┆@ 12 LINE┆
0x49b1…49d1 (245,) ff db df 4a 0b 92 22 3c 5a 3e 20 20 20 20 20 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 ┆ J "<Z> Der ventes på at ┆
0x49d1…49f1 70 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 2e 2e 2e 2e 22 ff e7 df 54 0b ┆printeren bliver ledig...." T ┆
0x49f1…49fe 92 22 3c 53 5a 3e 22 ff f5 df 5e 0b 93 ┆ "<SZ>" ^ ┆
0x49fe…4a1e (246,) 2e cd ed 22 50 22 ee bb ff 06 e0 68 0b 86 53 45 4b f0 ca ed 35 f2 05 00 ee ff 16 e0 72 0b 96 22 ┆. "P" h SEK 5 r "┆
0x4a1e…4a3e 50 22 eb 50 52 54 4e 52 ef ff 1c e0 7c 0b 94 ff 23 e0 86 0b 9a 2f ff 31 e0 90 0b 86 4f 4b f0 46 ┆P" PRTNR ø # / 1 OK F┆
0x4a3e…4a4b 41 4c 53 45 ff 37 e0 9a 0b 9c ff 3d e0 ┆ALSE 7 = ┆
0x4a4b…4a6b (247,) a4 0b 9c ff 4c e0 ae 0b a1 31 f2 01 00 ec 4c 49 4e 45 ff 57 e0 b8 0b 92 22 3c 5a 3e 22 ff 63 e0 ┆ L 1 LINE W "<Z>" c ┆
0x4a6b…4a8b c2 0b 92 22 3c 53 5a 3e 22 ff 7f e3 cc 0b 9f 50 52 49 4e 54 52 45 53 ff 27 e1 a0 0f 9e 30 45 44 ┆ "<SZ>" PRINTRES ' 0ED┆
0x4a8b…4a98 49 54 54 41 4c ff 8b e0 aa 0f 9e 00 45 ┆ITTAL E┆
0x4a98…4ab8 (248,) 44 54 41 4c ff 99 e0 b4 0f 9b 32 41 df 30 f2 00 00 b5 ff a4 e0 be 0f 86 53 ef f0 22 22 ff ab e0 ┆DTAL 2A 0 S "" ┆
0x4ab8…4ad8 c8 0f 9a 33 ff c2 e0 d2 0f 86 53 ef f0 d0 ed 41 ec 38 f2 08 00 ec 30 f2 00 00 ee ff c8 e0 dc 0f ┆ 3 S A 8 0 ┆
0x4ad8…4ae5 9c ff cf e0 e6 0f 97 34 ff da e0 f0 0f ┆ 4 ┆
0x4ae5…4b05 (249,) a1 58 31 ec 59 31 ff ea e0 fa 0f 92 22 3c 5a 53 3e 22 ea 54 31 ef ff f2 e0 04 10 b1 53 ef ff 07 ┆ X1 Y1 "<ZS>" T1 S ┆
0x4b05…4b25 e1 0e 10 9d 54 41 4c 5f 43 4f 4e 54 52 4f 4c ed 53 ef ee ff 0f e1 18 10 98 4f 4b ff 1c e1 22 10 ┆ TAL_CONTROL S OK " ┆
0x4b25…4b32 86 41 f0 cf ed 53 ef ee ff 3e e1 2c 10 ┆ A S > , ┆
0x4b32…4b52 (250,) 9f 45 44 54 41 4c ff 8b e0 aa 0f 9e 31 45 44 54 41 4c ed 58 31 ec 59 31 ec 54 31 ef ee ff 4a e1 ┆ EDTAL 1EDTAL X1 Y1 T1 J ┆
0x4b52…4b72 36 10 86 41 f0 35 f2 05 00 ff 76 e1 40 10 9d 45 44 54 41 4c ed 31 32 f2 0c 00 ec 31 32 f2 0c 00 ┆6 A 5 v @ EDTAL 12 12 ┆
0x4b72…4b7f ec 22 49 6e 64 74 61 73 74 20 65 74 20 ┆ "Indtast et ┆
0x4b7f…4b9f (251,) 74 61 6c 20 3a 20 22 ee ff 7d e1 4a 10 92 41 ff 8a e1 bc 0c 9f 45 44 49 54 54 41 4c ff b3 e2 c6 ┆tal : " å J A EDITTAL ┆
0x4b9f…4bbf 0c ff a8 e1 29 23 9e 35 54 41 4c 5f 43 4f 4e 54 52 4f 4c ed b6 52 53 54 ef ee ff bc e1 2a 23 86 ┆ )# 5TAL_CONTROL RST *# ┆
0x4bbf…4bcc 4a f0 30 f2 00 00 ea 4f 4b f0 54 52 55 ┆J 0 OK TRU┆
0x4bcc…4bec (252,) 45 ff d2 e1 2b 23 83 36 49 f0 31 f2 01 00 b7 cb ed 52 53 54 ef ee bb ff 03 e2 2c 23 82 00 52 53 ┆E +# 6I 1 RST ,# RS┆
0x4bec…4c0c 54 ef ed 49 ee dc 54 41 4c ef eb 22 2e 22 b5 86 4a f0 4a e5 31 f2 01 00 ea 52 53 54 ef ed 4a ee ┆T I TAL "." J J 1 RST J ┆
0x4c0c…4c19 f0 52 53 54 ef ed 49 ee ff 0a e2 2d 23 ┆ RST I -#┆
0x4c19…4c39 (253,) 84 49 ff 18 e2 2e 23 9b 37 4a df 30 f2 00 00 b5 ff 26 e2 2f 23 86 4f 4b f0 46 41 4c 53 45 ff 2d ┆ I .# 7J 0 & /# OK FALSE -┆
0x4c39…4c59 e2 30 23 9a 38 ff 44 e2 31 23 86 52 53 54 ef f0 52 53 54 ef ed 31 f2 01 00 f1 4a ee ff 4a e2 32 ┆ 0# 8 D 1# RST RST 1 J J 2┆
0x4c59…4c66 23 9c ff 5b e2 33 23 9f 54 41 4c 5f 43 ┆# Æ 3# TAL_C┆
0x4c66…4c86 (254,) 4f 4e 54 52 4f 4c ff 00 00 3e 0d ff 46 c5 8c 00 9d 45 44 49 54 54 41 4c ff 20 3a 20 6c 61 74 20 ┆ONTROL > F EDITTAL : lat ┆
0x4c86…4ca6 74 65 20 74 73 61 74 64 6e 49 00 00 11 00 4a 9e 6c 02 86 54 41 4c ef f0 22 30 31 32 33 34 35 36 ┆te tsatdnI J l TAL "0123456┆
0x4ca6…4cb3 37 38 39 22 ff 1f 1f 1f 1f 1f 1f 4f 54 ┆789" OT┆
0x4cb3…4cd3 (255,) 4e 4f 4b 41 59 3a 32 50 44 00 00 11 00 52 00 00 01 00 cc e2 d0 0c 9e 35 54 41 4c 5f 43 4f 4e 54 ┆NOKAY:2PD R 5TAL_CONT┆
0x4cd3…4cf3 52 4f 4c ed b6 52 5b 54 ef ee ff e0 e2 da 0c 86 4a f0 30 f2 00 00 ea 4f 4b f0 54 52 55 45 ff f6 ┆ROL RÆT J 0 OK TRUE ┆
0x4cf3…4d00 e2 e4 0c 83 36 49 f0 31 f2 01 00 b7 cb ┆ 6I 1 ┆
0x4d00…4d20 (256,) ed 52 5b 54 ef ee bb ff 27 e3 ee 0c 82 00 52 5b 54 ef ed 49 ee dc 54 41 4c ef eb 22 2e 22 b5 86 ┆ RÆT ' RÆT I TAL "." ┆
0x4d20…4d40 4a f0 4a e5 31 f2 01 00 ea 52 5b 54 ef ed 4a ee f0 52 5b 54 ef ed 49 ee ff 2e e3 f8 0c 84 49 ff ┆J J 1 RÆT J RÆT I . I ┆
0x4d40…4d4d 3c e3 02 0d 9b 37 4a df 30 f2 00 00 b5 ┆< 7J 0 ┆
0x4d4d…4d6d (257,) ff 4a e3 0c 0d 86 4f 4b f0 46 41 4c 53 45 ff 51 e3 16 0d 9a 38 ff 68 e3 20 0d 86 52 5b 54 ef f0 ┆ J OK FALSE Q 8 h RÆT ┆
0x4d6d…4d8d 52 5b 54 ef ed 31 f2 01 00 f1 4a ee ff 6e e3 2a 0d 9c ff 5b e2 34 0d 9f 54 41 4c 5f 43 4f 4e 54 ┆RÆT 1 J n * Æ 4 TAL_CONT┆
0x4d8d…4d9a 52 4f 4c ff 8d e3 d6 0b 9e 30 45 44 49 ┆ROL 0EDI┆
0x4d9a…4dba (258,) 54 54 41 4c ff a4 e3 e0 0b 9e 31 45 44 54 41 4c ed 58 31 ec 59 31 ec 54 31 ef ee ff b2 e3 ea 0b ┆TTAL 1EDTAL X1 Y1 T1 ┆
0x4dba…4dda 9b 32 5b df 30 f2 00 00 b5 ff bd e3 f4 0b 86 53 ef f0 22 22 ff c4 e3 fe 0b 9a 33 ff db e3 08 0c ┆ 2Æ 0 S "" 3 ┆
0x4dda…4de7 86 53 ef f0 d0 ed 5b ec 38 f2 08 00 ec ┆ S Æ 8 ┆
0x4de7…4e07 (259,) 30 f2 00 00 ee ff e1 e3 12 0c 9c ff e8 e3 1c 0c 97 34 ff f3 e3 26 0c a1 58 31 ec 59 31 ff b1 e6 ┆0 4 & X1 Y1 ┆
0x4e07…4e27 30 0c 92 22 3c 5a 53 3e 22 ea 54 31 ef ff 0b e4 3a 0c b1 53 ef ff 20 e4 44 0c 9d 54 41 4c 5f 43 ┆0 "<ZS>" T1 : S D TAL_C┆
0x4e27…4e34 4f 4e 54 52 4f 4c ed 53 ef ee ff 28 e4 ┆ONTROL S ( ┆
0x4e34…4e54 (260,) 4e 0c 98 4f 4b ff 35 e4 58 0c 86 5b f0 cf ed 53 ef ee ff 01 e6 62 0c 9f 45 44 54 41 4c ff 7f e4 ┆N OK 5 X Æ S b EDTAL ┆
0x4e54…4e74 6c 0c 86 5b f0 35 f2 05 00 ff 78 e4 a8 0c 9d 45 44 54 41 4c ed 31 32 f2 0c 00 ec 31 32 f2 0c 00 ┆l Æ 5 x EDTAL 12 12 ┆
0x4e74…4e81 ec 22 49 6e 64 74 61 73 74 20 65 74 20 ┆ "Indtast et ┆
0x4e81…4ea1 (261,) 74 61 6c 20 3a 20 22 ee ff 7d e1 b2 0c 92 5b ff 11 e6 76 0c 9d 45 44 54 41 4c ed 32 30 f2 14 00 ┆tal : " å Æ v EDTAL 20 ┆
0x4ea1…4ec1 ec 38 f2 08 00 ec 22 49 6e 64 74 61 73 74 20 64 72 69 66 74 73 6c 65 64 65 72 6c 7c 6e 20 20 20 ┆ 8 "Indtast driftslederløn ┆
0x4ec1…4ece 20 20 32 35 20 20 20 20 20 3a 20 22 ee ┆ 25 : " ┆
0x4ece…4eee (262,) ff 31 e6 80 0c 9d 45 44 54 41 4c ed 32 30 f2 14 00 ec 39 f2 09 00 ec 22 20 20 20 20 20 20 20 20 ┆ 1 EDTAL 20 9 " ┆
0x4eee…4f0e 6c 61 67 65 72 20 69 61 6c 74 2c 20 70 72 69 6d 6f 20 20 32 31 20 20 20 20 20 3a 20 22 ee ff 51 ┆lager ialt, primo 21 : " Q┆
0x4f0e…4f1b e6 8a 0c 9d 45 44 54 41 4c ed 32 30 f2 ┆ EDTAL 20 ┆
0x4f1b…4f3b (263,) 14 00 ec 31 30 f2 0a 00 ec 22 20 20 20 20 20 20 20 20 5c 76 72 69 67 65 20 76 61 72 69 61 62 6c ┆ 10 " Øvrige variabl┆
0x4f3b…4f5b 65 20 6f 6d 6b 2e 20 20 41 20 32 37 3a 20 22 ee ff 71 e6 94 0c 9d 45 44 54 41 4c ed 32 30 f2 14 ┆e omk. A 27: " q EDTAL 20 ┆
0x4f5b…4f68 00 ec 31 31 f2 0b 00 ec 22 20 20 20 20 ┆ 11 " ┆
0x4f68…4f88 (264,) 20 20 20 20 5c 76 72 69 67 65 20 76 61 72 69 61 62 6c 65 20 6f 6d 6b 2e 20 20 42 20 32 38 3a 20 ┆ Øvrige variable omk. B 28: ┆
0x4f88…4fa8 22 ee ff 91 e6 9e 0c 9d 45 44 54 41 4c ed 32 30 f2 14 00 ec 31 32 f2 0c 00 ec 22 20 20 20 20 20 ┆" EDTAL 20 12 " ┆
0x4fa8…4fb5 20 20 20 5c 76 72 69 67 65 20 76 61 72 ┆ Øvrige var┆
0x4fb5…4fd5 (265,) 69 61 62 6c 65 20 6f 6d 6b 2e 20 20 43 20 32 39 3a 20 22 ee ff 49 da 74 09 91 22 3c 43 32 32 31 ┆iable omk. C 29: " I t "<C221┆
0x4fd5…4ff5 38 5a 3e 45 72 20 61 6c 6c 65 20 74 61 6c 20 6b 6f 72 72 65 6b 74 20 69 6e 64 74 61 73 74 65 64 ┆8Z>Er alle tal korrekt indtasted┆
0x4ff5…5002 65 3f 20 28 6a 2f 6e 29 20 22 f1 53 56 ┆e? (j/n) " SV┆
0x5002…5022 (266,) 41 52 ef ff b8 e5 6a 09 9d 45 44 49 54 54 41 4c ff f2 e6 6c 0c 86 5b f0 58 ed 32 35 f2 19 00 ee ┆AR j EDITTAL l Æ X 25 ┆
0x5022…5042 ff a1 e6 77 0c 86 58 ed 32 35 f2 19 00 ee f0 5b ff bd e4 7f 0c 86 5b f0 58 ed 32 35 f2 19 00 ee ┆ w X 25 Æ Æ X 25 ┆
0x5042…504f ff 41 e6 81 0c 86 58 ed 32 31 f2 15 00 ┆ A X 21 ┆
0x504f…506f (267,) ee f0 5b ff fb e4 89 0c 86 5b f0 58 ed 32 37 f2 1b 00 ee ff 61 e6 8b 0c 86 58 ed 32 37 f2 1b 00 ┆ Æ Æ X 27 a X 27 ┆
0x506f…508f ee f0 5b ff 3a e5 93 0c 86 5b f0 58 ed 32 38 f2 1c 00 ee ff 81 e6 95 0c 86 58 ed 32 38 f2 1c 00 ┆ Æ : Æ X 28 X 28 ┆
0x508f…509c ee f0 5b ff 79 e5 9d 0c 86 5b f0 58 ed ┆ Æ y Æ X ┆
0x509c…50bc (268,) 32 39 f2 1d 00 ee ff 7d e1 9f 0c 86 58 ed 32 39 f2 1d 00 ee f0 5b ff bd e4 7f 0c 86 5b f0 58 ed ┆29 å X 29 Æ Æ X ┆
0x50bc…50dc 32 31 f2 15 00 ee ff 0b e4 3a 0c b1 22 22 f1 53 ef ff 46 c5 8c 00 9d 49 4e 50 55 54 54 41 4c ff ┆21 : "" S F INPUTTAL ┆
0x50dc…50e9 20 3a 39 32 20 43 20 20 2e 6b 6d 6f 20 ┆ :92 C .kmo ┆
0x50e9…5109 (269,) 65 6c 62 61 69 72 61 76 20 65 67 69 72 76 5c 20 20 20 20 20 20 20 20 00 00 24 00 30 e7 76 0c 9d ┆elbairav egirvØ $ 0 v ┆
0x5109…5129 45 44 54 41 4c ed 32 30 f2 14 00 ec 38 f2 08 00 ec 22 49 6e 64 74 61 73 74 20 64 72 69 66 74 73 ┆EDTAL 20 8 "Indtast drifts┆
0x5129…5136 6c 65 64 65 72 6c 7c 6e 20 20 20 20 20 ┆lederløn ┆
0x5136…5156 (270,) 20 20 20 20 20 20 20 3a 20 22 ee ff 40 e7 77 0c 86 58 ed 32 35 f2 19 00 ee f0 5b ff 50 e7 7f 0c ┆ : " @ w X 25 Æ P ┆
0x5156…5176 86 5b f0 58 ed 32 31 f2 15 00 ee ff 8e e7 80 0c 9d 45 44 54 41 4c ed 32 30 f2 14 00 ec 39 f2 09 ┆ Æ X 21 EDTAL 20 9 ┆
0x5176…5183 00 ec 22 20 20 20 20 20 20 20 20 6c 61 ┆ " la┆
0x5183…51a3 (271,) 67 65 72 20 69 61 6c 74 2c 20 70 72 69 6d 6f 20 20 20 20 20 20 20 20 20 3a 20 22 ee ff 9e e7 81 ┆ger ialt, primo : " ┆
0x51a3…51c3 0c 86 58 ed 32 31 f2 15 00 ee f0 5b ff ae e7 89 0c 86 5b f0 58 ed 32 37 f2 1b 00 ee ff ed e7 8a ┆ X 21 Æ Æ X 27 ┆
0x51c3…51d0 0c 9d 45 44 54 41 4c ed 32 30 f2 14 00 ┆ EDTAL 20 ┆
0x51d0…51f0 (272,) ec 31 30 f2 0a 00 ec 22 20 20 20 20 20 20 20 20 5c 76 72 69 67 65 20 76 61 72 69 61 62 6c 65 20 ┆ 10 " Øvrige variable ┆
0x51f0…5210 6f 6d 6b 2e 20 20 41 20 20 20 3a 20 22 ee ff fd e7 8b 0c 86 58 ed 32 37 f2 1b 00 ee f0 5b ff 0d ┆omk. A : " X 27 Æ ┆
0x5210…521d e8 93 0c 86 5b f0 58 ed 32 38 f2 1c 00 ┆ Æ X 28 ┆
0x521d…523d (273,) ee ff 4c e8 94 0c 9d 45 44 54 41 4c ed 32 30 f2 14 00 ec 31 31 f2 0b 00 ec 22 20 20 20 20 20 20 ┆ L EDTAL 20 11 " ┆
0x523d…525d 20 20 5c 76 72 69 67 65 20 76 61 72 69 61 62 6c 65 20 6f 6d 6b 2e 20 20 42 20 20 20 3a 20 22 ee ┆ Øvrige variable omk. B : " ┆
0x525d…526a ff 5c e8 95 0c 86 58 ed 32 38 f2 1c 00 ┆ Ø X 28 ┆
0x526a…528a (274,) ee f0 5b ff 6c e8 9d 0c 86 5b f0 58 ed 32 39 f2 1d 00 ee ff ab e8 9e 0c 9d 45 44 54 41 4c ed 32 ┆ Æ l Æ X 29 EDTAL 2┆
0x528a…52aa 30 f2 14 00 ec 31 32 f2 0c 00 ec 22 20 20 20 20 20 20 20 20 5c 76 72 69 67 65 20 76 61 72 69 61 ┆0 12 " Øvrige varia┆
0x52aa…52b7 62 6c 65 20 6f 6d 6b 2e 20 20 43 20 20 ┆ble omk. C ┆
0x52b7…52d7 (275,) 20 3a 20 22 ee ff bb e8 9f 0c 86 58 ed 32 39 f2 1d 00 ee f0 5b ff c8 e8 bc 0c 9f 45 44 49 54 54 ┆ : " X 29 Æ EDITT┆
0x52d7…52f7 41 4c ff b3 e2 c6 0c ff 72 69 70 61 70 00 00 05 00 1f e9 f7 09 92 ff f9 e8 f8 09 92 22 2a 2a 2a ┆AL ripap "***┆
0x52f7…5304 20 22 ea 53 59 53 54 4e 41 56 4e ef ea ┆ " SYSTNAVN ┆
0x5304…5324 (276,) 22 20 2a 2a 2a 22 ff ff e8 f9 09 92 ff 19 e9 fa 09 92 22 46 69 72 6d 61 3a 20 22 ea 46 49 52 4d ┆" ***" "Firma: " FIRM┆
0x5324…5344 41 4e 41 56 4e ef ff a8 db fb 09 92 ff f9 e8 f8 09 92 22 2a 2a 2a 20 22 ea 53 59 53 54 5f 4e 41 ┆ANAVN "*** " SYST_NA┆
0x5344…5351 56 4e ef ea 22 20 2a 2a 2a 22 ff 53 e9 ┆VN " ***" S ┆
0x5351…5371 (277,) 63 02 87 53 59 53 54 5f 4e 41 56 4e ef ba 33 30 f2 1e 00 ff 82 e2 64 02 86 53 59 53 54 5f 4e 41 ┆c SYST_NAVN 30 d SYST_NA┆
0x5371…5391 56 4e ef f0 22 42 6f 67 66 7c 72 69 6e 67 73 73 79 73 74 65 6d 65 74 20 27 53 59 53 4b 41 53 2d ┆VN "Bogføringssystemet 'SYSKAS-┆
0x5391…539e 31 27 22 ff 1f 1f 1f 1f 1f 1f 1f 1f 1f ┆1'" ┆
0x539e…53be (278,) 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f ┆ ┆
0x53be…53de 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 72 65 74 6e 65 52 20 ┆ retneR ┆
0x53de…53eb 20 2a 37 30 2f 36 30 00 00 50 00 1f 1f ┆ *70/60 P ┆
0x53eb…540b (279,) 1f 1f 1f 1f 37 30 00 00 08 00 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f ┆ 70 ┆
0x540b…542b 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 1f 72 65 67 6e 69 6e 74 73 6f 6b 6d 6f 73 65 ┆ regnintsokmose┆
0x542b…5438 74 65 74 69 63 61 70 61 6b 20 65 74 6e ┆teticapak etn┆
0x5438…5455 (280,) 61 74 6e 6f 4b 20 20 2a 34 30 2f 33 30 00 00 50 00 1f 1f 1f 1f 1f 1f 34 30 00 00 08 00 ┆atnoK *40/30 P 40 ┆
0x5455…545b (281,) ee 95 90 c9 00 00 ┆ ┆