|
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: 17990 (0x4646)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_01, UNKNOWN_TOKEN_11, UNKNOWN_TOKEN_17, UNKNOWN_TOKEN_1f, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSKRY.B«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSKRY.B«
0100 // **************************************************
0110 // * *
0120 // * Bogføringssystemet 'SYS-KAS' *
0130 // * vers. 1.0 *
0140 // * *
0150 // * Udviklet marts 1983 på en 'SPC/1' mikrodatamat *
0160 // * Programsystemet er skrevet i COMAL80 vers. 1.2 *
0170 // * *
0180 // * Udviklet af : Peter Kristensen *
0190 // * Vestervang 6, 6920 Videbæk *
0200 // * *
0210 // * (C) : forlaget systime a/s *
0220 // * Klokkebakken 20, Gjellerup *
0230 // * 7400 Herning *
0240 // **************************************************
0250 EXEC DIMENSIONER
0260 EXEC INITIER
0270 EXEC FUNKTIONSMENU
0280 // =========== Procedurer starter ==============
0290 PROC DIMENSIONER
0300 // Standard variable
0310 DIM SPC$ OF 80,SVAR$ OF 10,PRGFL$ OF 8,ALFA$ OF 28,TAL$ OF 10
0320 DIM PROGRAM$ OF 17,PRTNR$ OF 1
0330 REAL RESRV,PPAR
0340 INTEGER OK,TRUE,FALSE,I,J,K
0350 // Hjælpevariable
0360 REAL TOT(6)
0370 INTEGER A_POST,HIGH,LOW,POS,IDXPOS,KREDIT,DEBET,LIN_T,MAX_LIN,T_IDX
0380 // Variable til filen SYSPARA
0390 DIM SYSPARA$ OF 17
0400 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0410 DIM DATAFL$ OF 8,T_KODE$ OF 1
0420 // Variable til filen @@PARAM
0430 DIM PARAM$ OF 17
0440 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0450 REAL MOMS
0460 // Variable til filen @@KASSE
0470 DIM KASSE$ OF 17
0480 DIM K_BDAT$ OF 6
0490 INTEGER K_HØJREC,K_MAXREC,S_NR_KASSE
0500 DIM K_BKTO$ OF 8,K_LKOD$ OF 1,K_MKOD$ OF 1
0510 DIM K_BNR$ OF 5,K_TXT$ OF 20
0520 REAL K_BKR
0530 INTEGER K_DK
0540 // Variable til filen @@KONTO
0550 DIM KONTO$ OF 17
0560 DIM ST_DATO$ OF 6
0570 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0580 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0590 REAL KTO_PRIMO,KTO_ULTIMO
0600 INTEGER KTO_FP,KTO_SP
0610 // Variable til filen @@KTOIDX
0620 DIM KTOIDX$ OF 17
0630 INTEGER I_HØJREC,I_MAXREC
0640 DIM KTONR$ OF 8
0650 INTEGER RECNR
0660 // Variable til filen @@FKTONR
0670 DIM FKTONR$ OF 17
0680 DIM KASSE_KTO$ OF 8,BANK_KTO$ OF 8,GIRO_KTO$ OF 8
0690 ENDPROC DIMENSIONER
0700
0710 PROC INITIER
0720 LET PRGFL$ := "DP2"
0730 LET PROGRAM$ := PRGFL$ + ":SYSI"
0740 LET TAL$ := "0123456789"
0750 FOR I := ╱cc╱ ("A") TO ("Å") DO LET ALFA$ := ALFA$ + CHR$ (I)
0760 LET SPC$ := " "
0770 LET SPC$ := SPC$ + SPC$
0780 LET FALSE := 0 ; TRUE := 1 // boolske variable
0790 LET KREDIT := - 1 ; DEBET := 1
0800 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0810 EXEC OPENFIL(SYSPARA$,"R")
0820 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0830 EXEC TERMINAL_IDX
0840 CLOSE SYSPARA$
0850 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0860 EXEC OPENFIL(PARAM$,"R")
0870 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0880 CLOSE PARAM$
0890 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0900 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0910 LET KASSE$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KASSE"
0920 LET FKTONR$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "FKTONR"
0930 EXEC OPENFIL(KTOIDX$,"r")
0940 EXEC OPENFIL(KONTO$,"R")
0950 EXEC OPENFIL(KASSE$,"W")
0960 EXEC OPENFIL(FKTONR$,"R")
0970 GET FKTONR$,1 : KASSE_KTO$
0980 GET FKTONR$,2 : BANK_KTO$
0990 GET FKTONR$,3 : GIRO_KTO$
1000 CLOSE FKTONR$
1010 ENDPROC INITIER
1020
1030 PROC FUNKTIONSMENU
1040 REPEAT
1050 EXEC OVERSKRIFT("Kasserapport",6)
1060 PRINT "<C2009>Indtastning af kasseposteringer IK"
1070 PRINT "<C2011>Udskrivning af kassekladde UK"
1080 PRINT "<C2013>Ret kasseposteringer RK"
1090 PRINT "<C2015>Afstem og bogfør kasseposteringer AK"
1100 PRINT "<C2018>Programfordeler RETURN"
1110 LET SVAR$ := " "
1120 REPEAT
1130 EDIT "<C2523>Indtast funktionskode: " : SVAR$(1 : 2)
1140 EXEC SL_FEJLLINIE
1150 IF SVAR$ IN " " THEN EXIT
1160 IF "/" + SVAR$(1 : 2) + "/" IN "/IK/ik/UK/uk/RK/rk/AK/ak/" THEN
1170 EXEC FEJL("Ulovlig funktionskode: '" + SVAR$(1 : 2) + "'")
1180 ENDIF
1190 UNTIL OK
1200 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
1210 CASE SVAR$(1 : 2) OF
1220 WHILE "IK","ik"
1230 IF _HØJREC > 1 AND K_BDAT$ >< SYST_DAT$ THEN
1240 PRINT "<XC1210>Du er startet på en ny dato siden du sidst ind-"
1250 PRINT "<C1211>tastede kasseposteringer - kasserapporten skal "
1260 PRINT "<C1212>afstemmes inden du kan indtaste flere kasse-"
1270 PRINT "<C1213>posteringer."
1280 INPUT "<SC6523>Tryk RETURN" : SVAR$
1290 ELSE
1300 EXEC INDTAST_POSTER
1310 ENDIF
1320 WHILE "UK","uk"
1330 EXEC UDSKRIV_POSTER
1340 WHILE "RK","rk"
1350 EXEC RET_POSTER
1360 WHILE "AK","ak"
1370 IF _HØJREC = 1 THEN
1380 EXEC FEJL("Ulovlig afstemning - ingen posteringer")
1390 ELSE
1400 LET PROGRAM$ := PRGFL$ + ":SYSAK"
1410 CHAIN PROGRAM$
1420 ENDIF
1430 OTHERWISE
1440 CHAIN PROGRAM$
1450 ENDCASE
1460 UNTIL FALSE
1470 ENDPROC FUNKTIONSMENU
1480
1490 PROC TERMINAL_IDX
1500 LET PPAR := 5 ; RESRV := 0
1510 CALL :PRES"
1520 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
1530 ENDPROC TERMINAL_IDX
1540
1550 PROC OPENFIL(FNAVN$,WAY$)
1560 REPEAT
1570 IF AY$ = "W" OR WAY$ = "w" THEN
1580 OPEN FNAVN$,W
1590 ELSE
1600 OPEN FNAVN$,R
1610 ENDIF
1620 IF (FNAVN$) THEN
1630 PRINT "<SC0123>" ; CHR$ (7)
1640 IF (FNAVN$) = 6 THEN
1650 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
1660 INPUT "" : SVAR$
1670 ELSE
1680 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
1690 PRINT "<S>" ; FNAVN$ ; " ***"
1700 INPUT "" : SVAR$
1710 PRINT "<C0102>" ; SPC$
1720 ENDIF
1730 ENDIF
1740 UNTIL NOT ╱cd╱ (FNAVN$)
1750 ENDPROC OPENFIL
1760
1770 PROC TAL_CONTROL( REF RST$)
1780 LET J := 0 ; OK := TRUE
1790 FOR I := 1 TO (RST$) DO
1800 IF RST$(I) IN TAL$ + "." THEN LET J := J + 1 ; RST$(J) := RST$(I)
1810 NEXT I
1820 IF = 0 THEN
1830 LET OK := FALSE
1840 ELSE
1850 LET RST$ := RST$(1 : J)
1860 ENDIF
1870 ENDPROC TAL_CONTROL
1880
1890 PROC KASSEHOVED
1900 EXEC OVERSKRIFT("INDTASTNING AF KASSEBILAG",4)
1910 PRINT "<C0105> BILAG TEKST MOMS KASSE"
1920 PRINT "<C0106> NR KODE BANK/"
1930 PRINT "<C0107> GIRO"
1940 PRINT "<C0108>----------------------------------------"
1950 PRINT "<C4105>/ INDBETALING UDBETALING MODPOST- F/"
1960 PRINT "<C4106> (DEBET) (KREDIT) ERES R/"
1970 PRINT "<C4107> KONTONR S"
1980 PRINT "<C4108>----------------------------------------"
1990 ENDPROC KASSEHOVED
2000
2010 PROC OVERSKRIFT(ST$,L)
2020 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
2030 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
2040 PRINT SYST_DAT$(5 : 2)
2050 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
2060 PRINT "*** " ; ST$ ; " ***"
2070 ENDPROC OVERSKRIFT
2080
2090 PROC EDIT_LIN(R_LIN)
2100 LET R_SLIN := R_LIN MOD 12 + 8
2110 IF R_SLIN = 8 THEN LET R_SLIN := 12 + R_SLIN
2120 EXEC LÆS_K_POST(R_LIN)
2130 IF _BNR$ = "*****" THEN
2140 LET K_BKTO$ := "" ; K_LKOD$ := " " ; K_MKOD$ := " "
2150 LET K_BNR$ := " " ; K_TXT$ := "" ; K_BKR := 0 ; K_DK := 0
2160 ENDIF
2170 REPEAT
2180 EXEC SL_FEJLLINIE
2190 CURSOR 1,R_SLIN
2200 PRINT CHR$ (R_LIN,2)
2210 REPEAT
2220 CURSOR 4,R_SLIN
2230 EDIT "" : K_BNR$
2240 EXEC SL_FEJLLINIE
2250 IF _BNR$ = "*****" OR "/" + K_BNR$ + "/" IN "/SLUT/slut/" THEN
2260 LET OK := TRUE
2270 ELSE
2280 EXEC TAL_CONTROL(K_BNR$)
2290 IF NOT OK THEN EXEC FEJL("Ulovlig bilagsnummer")
2300 ENDIF
2310 UNTIL OK
2320 CURSOR 4,R_SLIN
2330 PRINT SPC$(1 : 5)
2340 CURSOR 4,R_SLIN
2350 IF _BNR$ = "*****" OR "/" + K_BNR$ + "/" IN "/SLUT/slut/" THEN
2360 IF /" + K_BNR$ + "/" IN "/SLUT/slut/" THEN
2370 LET SVAR$ := "S" ; K_BNR$ := "*****" ; K_HØJREC := K_HØJREC - 1
2380 ENDIF
2390 PRINT SPC$(1 : 76)
2400 EXIT
2410 ELSE
2420 PRINT K_BNR$
2430 ENDIF
2440 CURSOR 11,R_SLIN
2450 EDIT "" : K_TXT$
2460 REPEAT
2470 CURSOR 32,R_SLIN
2480 EDIT "" : K_MKOD$
2490 EXEC SL_FEJLLINIE
2500 EXEC ST_BGST(K_MKOD$)
2510 IF NOT K_MKOD$ IN "IU " THEN EXEC FEJL("ULOVLIG KODE: '" + K_MKOD$ + "'")
2520 UNTIL OK
2470 REPEAT
2480 CURSOR 38,R_SLIN
2490 EDIT "" : K_LKOD$
2500 EXEC SL_FEJLLINIE
2510 EXEC ST_BGST(K_LKOD$)
2520 IF "/" + K_LKOD$ + "/" IN "/K/B/G/" THEN
2530 EXEC FEJL("ULOVLIG KODE: '" + K_LKOD$ + "'")
2540 ENDIF
2550 UNTIL OK
2560 REPEAT
2570 IF _DK = KREDIT THEN
2580 LET SVAR$ := CHR$ (K_BKR,7,2)
2590 IF K_BKR = 0 THEN LET SVAR$ := ""
2600 CURSOR 57,R_SLIN
2610 EDIT "" : SVAR$
2620 EXEC SL_FEJLLINIE
2630 EXEC TAL_CONTROL(SVAR$)
2640 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
2650 LET K_BKR := INT(100 * ASC ("0" + SVAR$) + 0.5) / 100
2660 CURSOR 57,R_SLIN
2670 IF _BKR > 0 THEN
2680 PRINT CHR$ (K_BKR,7,2)
2690 ELSE
2700 PRINT SPC$(1 : 10)
2710 ENDIF
2720 ELSE
2730 LET K_DK := DEBET
2740 LET SVAR$ := CHR$ (K_BKR,7,2)
2750 IF K_BKR = 0 THEN LET SVAR$ := ""
2760 CURSOR 44,R_SLIN
2770 EDIT "" : SVAR$
2780 EXEC SL_FEJLLINIE
2790 EXEC TAL_CONTROL(SVAR$)
2800 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
2810 LET K_BKR := INT(100 * ASC ("0" + SVAR$) + 0.5) / 100
2820 CURSOR 44,R_SLIN
2830 IF _BKR > 0 THEN
2840 PRINT CHR$ (K_BKR,7,2)
2850 ELSE
2860 PRINT SPC$(1 : 10)
2870 ENDIF
2880 ENDIF
2890 IF K_BKR = 0 THEN LET K_DK := K_DK * ( - 1)
2900 UNTIL K_BKR > 0
2910 REPEAT
2920 CURSOR 69,R_SLIN
2930 EDIT "" : K_BKTO$
2940 EXEC SL_FEJLLINIE
2950 EXEC FIND_KTO(K_BKTO$)
2960 IF K THEN
2970 EXEC LÆS_KONTO(RECNR)
2980 IF TO_TYPE$ >< "A" THEN
2990 EXEC FEJL("Ulovlig kontonr - kontotype < > 'A'")
3000 ELSE
3010 PRINT "<C0102>" ; TAB(35 - ╱cb╱ (KTO_NAVN$) / 2) ; "Konto: " ; KTO_NAVN$
3020 ENDIF
3030 ELSE
3040 EXEC FEJL("Ulovlig kontonr - konto findes ikke")
3050 ENDIF
3060 UNTIL OK
3070 REPEAT
3080 LET SVAR$ := "f"
3090 CURSOR 78,R_SLIN
3100 EDIT "" : SVAR$(1)
3110 EXEC ST_BGST(SVAR$)
3120 UNTIL "/" + SVAR$(1) + "/" IN "/F/S/R/"
3130 UNTIL SVAR$(1) IN "FS"
3140 EXEC SKRIV_K_POST(R_LIN)
3150 EXEC SL_FEJLLINIE
3160 ENDPROC EDIT_LIN
3170
3180 PROC SL_FEJLLINIE
3190 LET OK := TRUE
3200 PRINT "<C0102>" ; SPC$
3210 ENDPROC SL_FEJLLINIE
3220
3230 PROC FEJL(ST$)
3240 LET OK := FALSE
3250 CURSOR 36 - ╱cb╱ (ST$) / 2,2
3260 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
3270 ENDPROC FEJL
3280
3290
3300 PROC INDTAST_POSTER
3310 EXEC SKRIV_LINIER
3320 LET SVAR$ := "F"
3330 WHILE SVAR$ = "F" DO
3340 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
3350 IF K_HØJREC = 1 THEN LET K_BDAT$ := SYST_DAT$
3360 IF _HØJREC = K_MAXREC THEN
3370 EXEC FEJL("Der kan ikke indtastes flere posteringer før afstemning")
3380 INPUT "<SC6524>Tryk RETURN" : SVAR$
3390 EXEC SL_FEJLLINIE
3400 EXIT
3410 ENDIF
3420 LET K_HØJREC := K_HØJREC + 1
3430 EXEC EDIT_LIN(K_HØJREC - 1)
3440 PUT KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
3450 IF K_HØJREC - 1) MOD 12 = 0 AND SVAR$ = "F" THEN
3460 EXEC RET_LINIER
3470 EXEC KASSEHOVED
3480 LET SVAR$ := "F"
3490 ENDIF
3500 ENDWHILE
3510 EXEC RET_LINIER
3520 ENDPROC INDTAST_POSTER
3530
3540 PROC RET_LINIER
3550 REPEAT
3560 PRINT "<SC0122>" ; SPC$
3570 LET SVAR$ := "j"
3580 EDIT "<SC1222>Ok (j) eller linienummer der skal rettes? " : SVAR$
3590 IF "/" + SVAR$ + "/" IN "/J/j/" THEN
3600 EXEC TAL_CONTROL(SVAR$)
3610 IF K THEN
3620 IF (SVAR$) < K_HØJREC AND ASC (SVAR$) > 0 THEN
3630 EXEC EDIT_LIN( ASC (SVAR$))
3640 ENDIF
3650 ENDIF
3660 ENDIF
3670 UNTIL "/" + SVAR$ + "/" IN "/J/j/"
3680 ENDPROC RET_LINIER
3690
3700
3710 PROC SKRIV_LINIER
3720 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
3730 EXEC KASSEHOVED
3740 FOR I := K_HØJREC - (K_HØJREC - 1) MOD 12 TO _HØJREC - 1 DO
3750 IF > 0 THEN
3760 EXEC LÆS_K_POST(I)
3770 IF K_BNR$ >< "*****" THEN EXEC SKRIV_LIN(I)
3780 ENDIF
3790 NEXT I
3800 ENDPROC SKRIV_LINIER
3810
3820 PROC SKRIV_LIN(R_LIN)
3830 IF K_BNR$ = "*****" THEN EXIT
3840 LET R_SLIN := R_LIN MOD 12 + 8
3850 IF R_SLIN = 8 THEN LET R_SLIN := 12 + R_SLIN
3860 CURSOR 1,R_SLIN
3870 PRINT CHR$ (R_LIN,2)
3880 CURSOR 4,R_SLIN
3890 PRINT K_BNR$
3900 CURSOR 11,R_SLIN
3910 PRINT K_TXT$
3920 CURSOR 32,R_SLIN
3930 PRINT K_MKOD$
3940 CURSOR 38,R_SLIN
3950 PRINT K_LKOD$
3960 IF _DK = DEBET THEN
3970 CURSOR 42,R_SLIN
3980 ELSE
3990 CURSOR 55,R_SLIN
4000 ENDIF
4010 PRINT CHR$ (K_BKR,9,2)
4020 CURSOR 69,R_SLIN
4030 PRINT K_BKTO$
4040 ENDPROC SKRIV_LIN
4050
4060 PROC SKRIV_K_POST(P)
4070 PUT KASSE$,P + 1 : K_BKTO$,K_LKOD$,K_MKOD$,K_BNR$,K_TXT$,K_BKR,K_DK
4080 ENDPROC SKRIV_K_POST
4090
4100 PROC LÆS_K_POST(P)
4110 GET KASSE$,P + 1 : K_BKTO$,K_LKOD$,K_MKOD$,K_BNR$,K_TXT$,K_BKR,K_DK
4120 ENDPROC LÆS_K_POST
4130
4140 PROC LÆS_KONTO(P)
4150 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
4160 ENDPROC LÆS_KONTO
4170
4180 PROC ST_BGST( REF RST$)
4190 FOR I := 1 TO (RST$) DO
4200 IF RST$(I) =< "å" AND RST$(I) >= "a" THEN LET RST$(I) := CHR$ ( ╱cc╱ (RST$(I)) - 32)
4210 NEXT I
4220 ENDPROC ST_BGST
4230 PROC RET_POSTER
4240 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
4250 LET K := 0
4260 WHILE K < K_HØJREC - 1 DO
4270 IF (K + 12) MOD 12 = 0 THEN EXEC KASSEHOVED
4280 LET K := K + 1
4290 EXEC LÆS_K_POST(K)
4300 EXEC SKRIV_LIN(K)
4310 IF K MOD 12 = 0 OR K = K_HØJREC - 1 THEN EXEC RET_LINIER
4320 ENDWHILE
4330 ENDPROC RET_POSTER
4340 PROC SIDE_SKIFT
4350 FOR I := LIN_T TO AX_LIN DO PRINT
4360 LET LIN_T := 9
4430 PRINT
4380 PRINT "*** " ; SYST_NAVN$ ; " ***"
4390 PRINT
4400 PRINT "<S>Firmanavn: " ; FIRMANAVN$ ; TAB(42)
4410 PRINT "** KASSEKLADDE PR. " ; K_BDAT$(1 : 2) ; "." ; K_BDAT$(3 : 2) ; "." ;
4420 PRINT K_BDAT$(5 : 2) ; " ** ** UDSKREVET PR. " ; SYST_DAT$(1 : 2) ; "." ;
4430 PRINT SYST_DAT$(3 : 2) ; "." ; SYST_DAT$(5 : 2) ; " ** "
4440 PRINT
4450 LET SVAR$ := "-----------------"
4460 LET K := ╱cb╱ (" " + KASSE_KTO$ + " KASSE ") ; I := K DIV 2 ; K := 22 - K - I
4470 PRINT "<S>" ; TAB(37) ; SVAR$(1 : I) ; " " ; KASSE_KTO$ ; " KASSE " ; SVAR$(1 : K) ; " "
4480 LET K := ╱cb╱ (" " + BANK_KTO$ + " BANK ") ; I := K DIV 2 ; K := 22 - K - I
4490 PRINT "<S>" ; SVAR$(1 : I) ; " " ; BANK_KTO$ ; " BANK " ; SVAR$(1 : K) ; " "
4500 LET K := ╱cb╱ (" " + GIRO_KTO$ + " GIRO ") ; I := K DIV 2 ; K := 22 - K - I
4510 PRINT SVAR$(1 : I) ; " " ; GIRO_KTO$ ; " GIRO " ; SVAR$(1 : K)
4580 PRINT "<S>BILAG TEKST MK INDBETALT UDBETALT "
4530 PRINT " INDSAT HÆVET INDSAT HÆVET KONTONR"
4540 EXEC SLUT_LINIE
4550 ENDPROC SIDE_SKIFT
4560
4570 PROC PRINT_LINIE
4580 IF K_BNR$ = "*****" THEN EXIT
4590 IF LIN_T + 15 >= MAX_LIN THEN EXEC TRANSPORT
4600 LET LIN_T := LIN_T + 1
4610 PRINT "<S>" ; K_BNR$ ; TAB(11) ; K_TXT$ ; TAB(33) ; K_MKOD$ ; TAB(36)
4620 CASE K_LKOD$ OF
4630 WHILE "K"
4640 // DO NOTHING
4650 LET T_IDX := 1
4660 WHILE "B"
4670 PRINT TAB(25) ;
4680 LET T_IDX := 3
4690 WHILE "G"
4700 PRINT TAB(49) ;
4710 LET T_IDX := 5
4720 ENDCASE
4730 IF _DK = DEBET THEN
4740 PRINT USING "########.##" : K_BKR ;
4750 LET TOT(T_IDX) := TOT(T_IDX) + K_BKR
4760 ELSE
4770 PRINT USING " #######.##" : K_BKR ;
4780 LET TOT(T_IDX + 1) := TOT(T_IDX + 1) + K_BKR
4790 ENDIF
4800 IF _BKTO$ + "/" IN KASSE_KTO$ + "/" + BANK_KTO$ + "/" + GIRO_KTO$ + "/" THEN
4810 PRINT "<N>"
4820 PRINT "<S>" ; TAB(36)
4830 CASE K_BKTO$ OF
4840 WHILE KASSE_KTO$
4850 // DO NOTHING
4860 LET T_IDX := 1
4870 WHILE BANK_KTO$
4880 PRINT "<S>" ; TAB(28)
4890 LET T_IDX := 3
4900 WHILE GIRO_KTO$
4910 PRINT "<S>" ; TAB(52)
4920 LET T_IDX := 5
4930 ENDCASE
4940 IF _DK = DEBET THEN
4950 PRINT USING " ########.##" : K_BKR
4960 LET TOT(T_IDX + 1) := TOT(T_IDX + 1) + K_BKR
4970 ELSE
4980 PRINT USING "########.##" : K_BKR
4990 LET TOT(T_IDX) := TOT(T_IDX) + K_BKR
5000 ENDIF
5010 ELSE
5020 PRINT TAB(73) ;
5030 PRINT "<S> "
5040 PRINT K_BKTO$
5050 ENDIF
5060 ENDPROC PRINT_LINIE
5070
5080 PROC SLUT_LINIE
5150 PRINT "<S>----- -------------------- -- ---------- ---------- "
5100 PRINT "---------- ---------- ---------- ---------- --------"
5110 ENDPROC SLUT_LINIE
5120
5130 PROC TRANSPORT
5140 IF IN_T = 100 THEN
5150 EXEC SIDE_SKIFT
5160 ELSE
5170 EXEC SLUT_LINIE
5180 LET LIN_T := LIN_T + 2
5190 PRINT "<S>" ; TAB(11) ; "TRANSPORT" ; TAB(36)
5200 PRINT USING "<S>########.## ########.## " : TOT(1),TOT(2)
5210 PRINT USING "<S>########.## ########.## " : TOT(3),TOT(4)
5220 PRINT USING "########.## ########.##" : TOT(5),TOT(6)
5230 EXEC SIDE_SKIFT
5240 LET LIN_T := LIN_T + 1
5250 PRINT "<S>" ; TAB(11) ; "TRANSPORT" ; TAB(36)
5260 PRINT USING "<S>########.## ########.## " : TOT(1),TOT(2)
5270 PRINT USING "<S>########.## ########.## " : TOT(3),TOT(4)
5280 PRINT USING "########.## ########.## " : TOT(5),TOT(6)
5350 ENDIF
5360 ENDPROC TRANSPORT
5370
5380 PROC UDSKRIV_POSTER
5390 EXEC OVERSKRIFT("Udskrivning af kassekladde",7)
5400 EXEC PRINTRES("EDB-liste",12)
5410 LET TOT(1),TOT(2),TOT(3),TOT(4),TOT(5),TOT(6) := 0 ; LIN_T := 100 ; MAX_LIN := 51
5360 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
5370 FOR J := 1 TO _HØJREC - 1 DO
5380 EXEC LÆS_K_POST(J)
5390 EXEC PRINT_LINIE
5400 NEXT J
5410 IF LIN_T >< 100 THEN EXEC AFSLUT
5420 EXEC PRINTREL
5430 ENDPROC UDSKRIV_POSTER
5440
5450 PROC AFSLUT
5460 EXEC SLUT_LINIE
5470 LET LIN_T := LIN_T + 6
5480 PRINT "<S>" ; TAB(11) ; "DAGENS BEVÆGELSER " ; TAB(35)
5490 PRINT "<S>" ; CHR$ (TOT(1),9,2) ; CHR$ (TOT(2),9,2)
5500 PRINT "<S>" ; CHR$ (TOT(3),9,2) ; CHR$ (TOT(4),9,2)
5510 PRINT CHR$ (TOT(5),9,2) ; CHR$ (TOT(6),9,2)
5520 PRINT
5530 PRINT "<S>" ; TAB(11) ; "BEHOLDNING MORGEN" ; TAB(35)
5540 EXEC FIND_KTO(KASSE_KTO$)
5550 EXEC LÆS_KONTO(RECNR)
5560 PRINT "<S>" ; CHR$ (KTO_ULTIMO,9,2) ; TAB(28)
5570 LET TOT(1) := TOT(1) + KTO_ULTIMO
5580 EXEC FIND_KTO(BANK_KTO$)
5590 EXEC LÆS_KONTO(RECNR)
5600 PRINT "<S>" ; CHR$ (KTO_ULTIMO,9,2) ; TAB(28)
5610 LET TOT(3) := TOT(3) + KTO_ULTIMO
5620 EXEC FIND_KTO(GIRO_KTO$)
5630 EXEC LÆS_KONTO(RECNR)
5640 PRINT CHR$ (KTO_ULTIMO,9,2)
5650 LET TOT(5) := TOT(5) + KTO_ULTIMO
5660 PRINT "<S>" ; TAB(11) ; "BEHOLDNING AFTEN(ber.)" ; TAB(47)
5670 PRINT "<S>" ; CHR$ (TOT(1) - TOT(2),9,2) ; TAB(28)
5680 PRINT "<S>" ; CHR$ (TOT(3) - TOT(4),9,2) ; TAB(28)
5690 PRINT CHR$ (TOT(5) - TOT(6),9,2)
5700 PRINT "<S> ---------- ---------- "
5710 PRINT "---------- ---------- ---------- ----------"
5720 PRINT "<S>" ; TAB(11) ; "BALANCE" ; TAB(35)
5730 PRINT CHR$ (TOT(1),9,2) ; CHR$ (TOT(1),9,2) ; CHR$ (TOT(3),9,2) ;
5740 PRINT CHR$ (TOT(3),9,2) ; CHR$ (TOT(5),9,2) ; CHR$ (TOT(5),9,2)
5760 FOR I := LIN_T TO AX_LIN DO PRINT
5770 ENDPROC AFSLUT
5780
5790 PROC FIND_KTO( REF R_KTONR$)
5800 LET OK := FALSE
5810 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
5820 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
5830 IF IGH > 1 THEN
5840 REPEAT
5850 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
5860 GET KTOIDX$,POS : KTONR$,RECNR
5870 IF TONR$ > R_KTONR$ THEN
5880 LET HIGH := POS
5890 ELSE
5900 IF TONR$ < R_KTONR$ THEN
5910 LET LOW := POS
5920 ENDIF
5930 ENDIF
5940 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
5950 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
5960 GET KTOIDX$,POS : KTONR$,RECNR
5970 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
5980 ENDIF
5990 LET FIND_KTO := POS
6000 ENDPROC FIND_KTO
6010 //
6070 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
6080 LET PRTNR$ := "1" ; OK := TRUE
6090 REPEAT
6100 CURSOR 15,LINE
6110 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
6120 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
6130 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
6140 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
6150 INPUT "" : SVAR$
6160 SELECT OUTPUT "P" + PRTNR$
6170 IF ("P") THEN
6180 CURSOR 12,LINE
6190 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
6200 CURSOR 12,LINE + 1
6210 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
6220 IF VAR$ = "J" OR SVAR$ = "j" THEN
6230 CURSOR 12,LINE
6240 PRINT "<Z> Der ventes på at printeren bliver ledig...."
6250 PRINT "<SZ>"
6260 WHILE ╱cd╱ ("P") DO
6270 LET SEK := ╱ca╱ (5)
6280 SELECT OUTPUT "P" + PRTNR$
6290 ENDWHILE
6300 ELSE
6310 LET OK := FALSE
6320 ENDIF
6330 ENDIF
6340 CURSOR 1,LINE
6350 PRINT "<Z>"
6360 PRINT "<SZ>"
6370 ENDPROC PRINTRES
6020 //
6030 PROC PRINTREL // RELEASE PRINTER
6040 SELECT OUTPUT "T"
6050 ENDPROC PRINTREL
4370 PRINT "<K>"
5750 PRINT "<LIN>"
5410 LET TOT(1),TOT(2),TOT(3),TOT(4),TOT(5),TOT(6) := 0 ; LIN_T := 100 ; MAX_LIN := 51
5410 LET TOT(1),TOT(2),TOT(3),TOT(4),TOT(5),TOT(6) := 0 ; LIN_T := 100 ; MAX_LIN := 72
5400 EXEC PRINTRES("papir",12)
1910 PRINT "<C0105> BILAG TEKST KASSE"
1920 PRINT "<C0106> NR BANK/"
2460 LET K_MKOD$ := ""
4520 PRINT "<S>BILAG TEKST INDBETALT UDBETALT "
5090 PRINT "<S>----- ------------------------ ---------- ---------- "
1400 LET PROGRAM$ := PRGFL$ + ":SYSAK" + S_KODE$
5290 ENDIF
5300 ENDPROC TRANSPORT
5310
5320 PROC UDSKRIV_POSTER
5330 EXEC OVERSKRIFT("Udskrivning af kassekladde",7)
5340 EXEC PRINTRES("papir",12)
5350 LET TOT(1),TOT(2),TOT(3),TOT(4),TOT(5),TOT(6) := 0 ; LIN_T := 100 ; MAX_LIN := 72
7967 ╱1f╱ ╱1f╱ ESSAKAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ W ╱00╱ ╱00╱ ╱01╱ ╱00╱ G OR CHAIN ╱17╱ //
6070 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
6080 LET PRTNR$ := "1" ; OK := TRUE
6090 REPEAT
6100 CURSOR 15,LINE
6110 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
6120 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
6130 CURSOR 1,LINE
6140 PRINT "<Z>"
6150 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
6160 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
6170 INPUT "" : SVAR$
6180 SELECT OUTPUT "P" + PRTNR$
6190 IF ("P") THEN
6200 CURSOR 12,LINE
6210 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
6220 CURSOR 12,LINE + 1
6230 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
6240 IF VAR$ = "J" OR SVAR$ = "j" THEN
6250 CURSOR 12,LINE
6260 PRINT "<Z> Der ventes på at printeren bliver ledig...."
6270 PRINT "<SZ>"
6280 WHILE ╱cd╱ ("P") DO
6290 LET SEK := ╱ca╱ (5)
6300 SELECT OUTPUT "P" + PRTNR$
6310 ENDWHILE
6320 ELSE
6330 LET OK := FALSE
6340 ENDIF
6350 ENDIF
6360 CURSOR 1,LINE
6370 PRINT "<Z>"
6380 PRINT "<SZ>"
6390 ENDPROC PRINTRES
8000 PROC REMOVEBLANK( REF ÆÆ$)
8010 LET J := 0
8020 FOR I := 1 TO (ÆÆ$) DO
8030 IF ÆÆ$(I) >< " " THEN LET J := J + 1 ; ÆÆ$(J) := ÆÆ$(I)
8040 NEXT I
8050 ENDPROC REMOVEBLANK
0x0000…0038 (0,) 9626 0100 // **************************************************
0x0000…0038 LineComal80 {
0x0000…0038 ptr = 0x9626 // 0x0 @0x0
0x0000…0038 lno = 0x0064 // 0x2 @0x2
0x0000…0038 at0004 = ╱89╱ // ╱ // 0x4 @0x4
0x0000…0038 at0005 = ╱2a╱*╱ // 0x5 @0x5
0x0000…0038 at0006 = ╱2a╱*╱ // 0x6 @0x6
0x0000…0038 at0007 = ╱2a╱*╱ // 0x7 @0x7
0x0000…0038 at0008 = ╱2a╱*╱ // 0x8 @0x8
0x0000…0038 at0009 = ╱2a╱*╱ // 0x9 @0x9
0x0000…0038 at000a = ╱2a╱*╱ // 0xa @0xa
0x0000…0038 at000b = ╱2a╱*╱ // 0xb @0xb
0x0000…0038 at000c = ╱2a╱*╱ // 0xc @0xc
0x0000…0038 at000d = ╱2a╱*╱ // 0xd @0xd
0x0000…0038 at000e = ╱2a╱*╱ // 0xe @0xe
0x0000…0038 at000f = ╱2a╱*╱ // 0xf @0xf
0x0000…0038 at0010 = ╱2a╱*╱ // 0x10 @0x10
0x0000…0038 at0011 = ╱2a╱*╱ // 0x11 @0x11
0x0000…0038 at0012 = ╱2a╱*╱ // 0x12 @0x12
0x0000…0038 at0013 = ╱2a╱*╱ // 0x13 @0x13
0x0000…0038 at0014 = ╱2a╱*╱ // 0x14 @0x14
0x0000…0038 at0015 = ╱2a╱*╱ // 0x15 @0x15
0x0000…0038 at0016 = ╱2a╱*╱ // 0x16 @0x16
0x0000…0038 at0017 = ╱2a╱*╱ // 0x17 @0x17
0x0000…0038 at0018 = ╱2a╱*╱ // 0x18 @0x18
0x0000…0038 at0019 = ╱2a╱*╱ // 0x19 @0x19
0x0000…0038 at001a = ╱2a╱*╱ // 0x1a @0x1a
0x0000…0038 at001b = ╱2a╱*╱ // 0x1b @0x1b
0x0000…0038 at001c = ╱2a╱*╱ // 0x1c @0x1c
0x0000…0038 at001d = ╱2a╱*╱ // 0x1d @0x1d
0x0000…0038 at001e = ╱2a╱*╱ // 0x1e @0x1e
0x0000…0038 at001f = ╱2a╱*╱ // 0x1f @0x1f
0x0000…0038 at0020 = ╱2a╱*╱ // 0x20 @0x20
0x0000…0038 at0021 = ╱2a╱*╱ // 0x21 @0x21
0x0000…0038 at0022 = ╱2a╱*╱ // 0x22 @0x22
0x0000…0038 at0023 = ╱2a╱*╱ // 0x23 @0x23
0x0000…0038 at0024 = ╱2a╱*╱ // 0x24 @0x24
0x0000…0038 at0025 = ╱2a╱*╱ // 0x25 @0x25
0x0000…0038 at0026 = ╱2a╱*╱ // 0x26 @0x26
0x0000…0038 at0027 = ╱2a╱*╱ // 0x27 @0x27
0x0000…0038 at0028 = ╱2a╱*╱ // 0x28 @0x28
0x0000…0038 at0029 = ╱2a╱*╱ // 0x29 @0x29
0x0000…0038 at002a = ╱2a╱*╱ // 0x2a @0x2a
0x0000…0038 at002b = ╱2a╱*╱ // 0x2b @0x2b
0x0000…0038 at002c = ╱2a╱*╱ // 0x2c @0x2c
0x0000…0038 at002d = ╱2a╱*╱ // 0x2d @0x2d
0x0000…0038 at002e = ╱2a╱*╱ // 0x2e @0x2e
0x0000…0038 at002f = ╱2a╱*╱ // 0x2f @0x2f
0x0000…0038 at0030 = ╱2a╱*╱ // 0x30 @0x30
0x0000…0038 at0031 = ╱2a╱*╱ // 0x31 @0x31
0x0000…0038 at0032 = ╱2a╱*╱ // 0x32 @0x32
0x0000…0038 at0033 = ╱2a╱*╱ // 0x33 @0x33
0x0000…0038 at0034 = ╱2a╱*╱ // 0x34 @0x34
0x0000…0038 at0035 = ╱2a╱*╱ // 0x35 @0x35
0x0000…0038 at0036 = ╱2a╱*╱ // 0x36 @0x36
0x0000…0038 at0037 = EOL // 0x37 @0x37
0x0000…0038 }
0x0038…0070 965e 0110 // * *
0x0038…0070 LineComal80 {
0x0038…0070 ptr = 0x965e // 0x38 @0x0
0x0038…0070 lno = 0x006e // 0x3a @0x2
0x0038…0070 at0004 = ╱89╱ // ╱ // 0x3c @0x4
0x0038…0070 at0005 = ╱2a╱*╱ // 0x3d @0x5
0x0038…0070 at0006 = ╱20╱…╱ // 0x3e @0x6
0x0038…0070 at0007 = ╱20╱…╱ // 0x3f @0x7
0x0038…0070 at0008 = ╱20╱…╱ // 0x40 @0x8
0x0038…0070 at0009 = ╱20╱…╱ // 0x41 @0x9
0x0038…0070 at000a = ╱20╱…╱ // 0x42 @0xa
0x0038…0070 at000b = ╱20╱…╱ // 0x43 @0xb
0x0038…0070 at000c = ╱20╱…╱ // 0x44 @0xc
0x0038…0070 at000d = ╱20╱…╱ // 0x45 @0xd
0x0038…0070 at000e = ╱20╱…╱ // 0x46 @0xe
0x0038…0070 at000f = ╱20╱…╱ // 0x47 @0xf
0x0038…0070 at0010 = ╱20╱…╱ // 0x48 @0x10
0x0038…0070 at0011 = ╱20╱…╱ // 0x49 @0x11
0x0038…0070 at0012 = ╱20╱…╱ // 0x4a @0x12
0x0038…0070 at0013 = ╱20╱…╱ // 0x4b @0x13
0x0038…0070 at0014 = ╱20╱…╱ // 0x4c @0x14
0x0038…0070 at0015 = ╱20╱…╱ // 0x4d @0x15
0x0038…0070 at0016 = ╱20╱…╱ // 0x4e @0x16
0x0038…0070 at0017 = ╱20╱…╱ // 0x4f @0x17
0x0038…0070 at0018 = ╱20╱…╱ // 0x50 @0x18
0x0038…0070 at0019 = ╱20╱…╱ // 0x51 @0x19
0x0038…0070 at001a = ╱20╱…╱ // 0x52 @0x1a
0x0038…0070 at001b = ╱20╱…╱ // 0x53 @0x1b
0x0038…0070 at001c = ╱20╱…╱ // 0x54 @0x1c
0x0038…0070 at001d = ╱20╱…╱ // 0x55 @0x1d
0x0038…0070 at001e = ╱20╱…╱ // 0x56 @0x1e
0x0038…0070 at001f = ╱20╱…╱ // 0x57 @0x1f
0x0038…0070 at0020 = ╱20╱…╱ // 0x58 @0x20
0x0038…0070 at0021 = ╱20╱…╱ // 0x59 @0x21
0x0038…0070 at0022 = ╱20╱…╱ // 0x5a @0x22
0x0038…0070 at0023 = ╱20╱…╱ // 0x5b @0x23
0x0038…0070 at0024 = ╱20╱…╱ // 0x5c @0x24
0x0038…0070 at0025 = ╱20╱…╱ // 0x5d @0x25
0x0038…0070 at0026 = ╱20╱…╱ // 0x5e @0x26
0x0038…0070 at0027 = ╱20╱…╱ // 0x5f @0x27
0x0038…0070 at0028 = ╱20╱…╱ // 0x60 @0x28
0x0038…0070 at0029 = ╱20╱…╱ // 0x61 @0x29
0x0038…0070 at002a = ╱20╱…╱ // 0x62 @0x2a
0x0038…0070 at002b = ╱20╱…╱ // 0x63 @0x2b
0x0038…0070 at002c = ╱20╱…╱ // 0x64 @0x2c
0x0038…0070 at002d = ╱20╱…╱ // 0x65 @0x2d
0x0038…0070 at002e = ╱20╱…╱ // 0x66 @0x2e
0x0038…0070 at002f = ╱20╱…╱ // 0x67 @0x2f
0x0038…0070 at0030 = ╱20╱…╱ // 0x68 @0x30
0x0038…0070 at0031 = ╱20╱…╱ // 0x69 @0x31
0x0038…0070 at0032 = ╱20╱…╱ // 0x6a @0x32
0x0038…0070 at0033 = ╱20╱…╱ // 0x6b @0x33
0x0038…0070 at0034 = ╱20╱…╱ // 0x6c @0x34
0x0038…0070 at0035 = ╱20╱…╱ // 0x6d @0x35
0x0038…0070 at0036 = ╱2a╱*╱ // 0x6e @0x36
0x0038…0070 at0037 = EOL // 0x6f @0x37
0x0038…0070 }
0x0070…00a8 9696 0120 // * Bogføringssystemet 'SYS-KAS' *
0x0070…00a8 LineComal80 {
0x0070…00a8 ptr = 0x9696 // 0x70 @0x0
0x0070…00a8 lno = 0x0078 // 0x72 @0x2
0x0070…00a8 at0004 = ╱89╱ // ╱ // 0x74 @0x4
0x0070…00a8 at0005 = ╱2a╱*╱ // 0x75 @0x5
0x0070…00a8 at0006 = ╱20╱…╱ // 0x76 @0x6
0x0070…00a8 at0007 = ╱20╱…╱ // 0x77 @0x7
0x0070…00a8 at0008 = ╱20╱…╱ // 0x78 @0x8
0x0070…00a8 at0009 = ╱20╱…╱ // 0x79 @0x9
0x0070…00a8 at000a = ╱20╱…╱ // 0x7a @0xa
0x0070…00a8 at000b = ╱20╱…╱ // 0x7b @0xb
0x0070…00a8 at000c = ╱20╱…╱ // 0x7c @0xc
0x0070…00a8 at000d = ╱20╱…╱ // 0x7d @0xd
0x0070…00a8 at000e = ╱20╱…╱ // 0x7e @0xe
0x0070…00a8 at000f = ╱20╱…╱ // 0x7f @0xf
0x0070…00a8 at0010 = ╱42╱B╱ // 0x80 @0x10
0x0070…00a8 at0011 = ╱6f╱o╱ // 0x81 @0x11
0x0070…00a8 at0012 = ╱67╱g╱ // 0x82 @0x12
0x0070…00a8 at0013 = ╱66╱f╱ // 0x83 @0x13
0x0070…00a8 at0014 = ╱7c╱ø╱ // 0x84 @0x14
0x0070…00a8 at0015 = ╱72╱r╱ // 0x85 @0x15
0x0070…00a8 at0016 = ╱69╱i╱ // 0x86 @0x16
0x0070…00a8 at0017 = ╱6e╱n╱ // 0x87 @0x17
0x0070…00a8 at0018 = ╱67╱g╱ // 0x88 @0x18
0x0070…00a8 at0019 = ╱73╱s╱ // 0x89 @0x19
0x0070…00a8 at001a = ╱73╱s╱ // 0x8a @0x1a
0x0070…00a8 at001b = ╱79╱y╱ // 0x8b @0x1b
0x0070…00a8 at001c = ╱73╱s╱ // 0x8c @0x1c
0x0070…00a8 at001d = ╱74╱t╱ // 0x8d @0x1d
0x0070…00a8 at001e = ╱65╱e╱ // 0x8e @0x1e
0x0070…00a8 at001f = ╱6d╱m╱ // 0x8f @0x1f
0x0070…00a8 at0020 = ╱65╱e╱ // 0x90 @0x20
0x0070…00a8 at0021 = ╱74╱t╱ // 0x91 @0x21
0x0070…00a8 at0022 = ╱20╱…╱ // 0x92 @0x22
0x0070…00a8 at0023 = ╱27╱'╱ // 0x93 @0x23
0x0070…00a8 at0024 = ╱53╱S╱ // 0x94 @0x24
0x0070…00a8 at0025 = ╱59╱Y╱ // 0x95 @0x25
0x0070…00a8 at0026 = ╱53╱S╱ // 0x96 @0x26
0x0070…00a8 at0027 = ╱2d╱-╱ // 0x97 @0x27
0x0070…00a8 at0028 = ╱4b╱K╱ // 0x98 @0x28
0x0070…00a8 at0029 = ╱41╱A╱ // 0x99 @0x29
0x0070…00a8 at002a = ╱53╱S╱ // 0x9a @0x2a
0x0070…00a8 at002b = ╱27╱'╱ // 0x9b @0x2b
0x0070…00a8 at002c = ╱20╱…╱ // 0x9c @0x2c
0x0070…00a8 at002d = ╱20╱…╱ // 0x9d @0x2d
0x0070…00a8 at002e = ╱20╱…╱ // 0x9e @0x2e
0x0070…00a8 at002f = ╱20╱…╱ // 0x9f @0x2f
0x0070…00a8 at0030 = ╱20╱…╱ // 0xa0 @0x30
0x0070…00a8 at0031 = ╱20╱…╱ // 0xa1 @0x31
0x0070…00a8 at0032 = ╱20╱…╱ // 0xa2 @0x32
0x0070…00a8 at0033 = ╱20╱…╱ // 0xa3 @0x33
0x0070…00a8 at0034 = ╱20╱…╱ // 0xa4 @0x34
0x0070…00a8 at0035 = ╱20╱…╱ // 0xa5 @0x35
0x0070…00a8 at0036 = ╱2a╱*╱ // 0xa6 @0x36
0x0070…00a8 at0037 = EOL // 0xa7 @0x37
0x0070…00a8 }
0x00a8…00e0 96ce 0130 // * vers. 1.0 *
0x00a8…00e0 LineComal80 {
0x00a8…00e0 ptr = 0x96ce // 0xa8 @0x0
0x00a8…00e0 lno = 0x0082 // 0xaa @0x2
0x00a8…00e0 at0004 = ╱89╱ // ╱ // 0xac @0x4
0x00a8…00e0 at0005 = ╱2a╱*╱ // 0xad @0x5
0x00a8…00e0 at0006 = ╱20╱…╱ // 0xae @0x6
0x00a8…00e0 at0007 = ╱20╱…╱ // 0xaf @0x7
0x00a8…00e0 at0008 = ╱20╱…╱ // 0xb0 @0x8
0x00a8…00e0 at0009 = ╱20╱…╱ // 0xb1 @0x9
0x00a8…00e0 at000a = ╱20╱…╱ // 0xb2 @0xa
0x00a8…00e0 at000b = ╱20╱…╱ // 0xb3 @0xb
0x00a8…00e0 at000c = ╱20╱…╱ // 0xb4 @0xc
0x00a8…00e0 at000d = ╱20╱…╱ // 0xb5 @0xd
0x00a8…00e0 at000e = ╱20╱…╱ // 0xb6 @0xe
0x00a8…00e0 at000f = ╱20╱…╱ // 0xb7 @0xf
0x00a8…00e0 at0010 = ╱20╱…╱ // 0xb8 @0x10
0x00a8…00e0 at0011 = ╱20╱…╱ // 0xb9 @0x11
0x00a8…00e0 at0012 = ╱20╱…╱ // 0xba @0x12
0x00a8…00e0 at0013 = ╱20╱…╱ // 0xbb @0x13
0x00a8…00e0 at0014 = ╱20╱…╱ // 0xbc @0x14
0x00a8…00e0 at0015 = ╱20╱…╱ // 0xbd @0x15
0x00a8…00e0 at0016 = ╱20╱…╱ // 0xbe @0x16
0x00a8…00e0 at0017 = ╱20╱…╱ // 0xbf @0x17
0x00a8…00e0 at0018 = ╱76╱v╱ // 0xc0 @0x18
0x00a8…00e0 at0019 = ╱65╱e╱ // 0xc1 @0x19
0x00a8…00e0 at001a = ╱72╱r╱ // 0xc2 @0x1a
0x00a8…00e0 at001b = ╱73╱s╱ // 0xc3 @0x1b
0x00a8…00e0 at001c = ╱2e╱.╱ // 0xc4 @0x1c
0x00a8…00e0 at001d = ╱20╱…╱ // 0xc5 @0x1d
0x00a8…00e0 at001e = ╱31╱1╱ // 0xc6 @0x1e
0x00a8…00e0 at001f = ╱2e╱.╱ // 0xc7 @0x1f
0x00a8…00e0 at0020 = ╱30╱0╱ // 0xc8 @0x20
0x00a8…00e0 at0021 = ╱20╱…╱ // 0xc9 @0x21
0x00a8…00e0 at0022 = ╱20╱…╱ // 0xca @0x22
0x00a8…00e0 at0023 = ╱20╱…╱ // 0xcb @0x23
0x00a8…00e0 at0024 = ╱20╱…╱ // 0xcc @0x24
0x00a8…00e0 at0025 = ╱20╱…╱ // 0xcd @0x25
0x00a8…00e0 at0026 = ╱20╱…╱ // 0xce @0x26
0x00a8…00e0 at0027 = ╱20╱…╱ // 0xcf @0x27
0x00a8…00e0 at0028 = ╱20╱…╱ // 0xd0 @0x28
0x00a8…00e0 at0029 = ╱20╱…╱ // 0xd1 @0x29
0x00a8…00e0 at002a = ╱20╱…╱ // 0xd2 @0x2a
0x00a8…00e0 at002b = ╱20╱…╱ // 0xd3 @0x2b
0x00a8…00e0 at002c = ╱20╱…╱ // 0xd4 @0x2c
0x00a8…00e0 at002d = ╱20╱…╱ // 0xd5 @0x2d
0x00a8…00e0 at002e = ╱20╱…╱ // 0xd6 @0x2e
0x00a8…00e0 at002f = ╱20╱…╱ // 0xd7 @0x2f
0x00a8…00e0 at0030 = ╱20╱…╱ // 0xd8 @0x30
0x00a8…00e0 at0031 = ╱20╱…╱ // 0xd9 @0x31
0x00a8…00e0 at0032 = ╱20╱…╱ // 0xda @0x32
0x00a8…00e0 at0033 = ╱20╱…╱ // 0xdb @0x33
0x00a8…00e0 at0034 = ╱20╱…╱ // 0xdc @0x34
0x00a8…00e0 at0035 = ╱20╱…╱ // 0xdd @0x35
0x00a8…00e0 at0036 = ╱2a╱*╱ // 0xde @0x36
0x00a8…00e0 at0037 = EOL // 0xdf @0x37
0x00a8…00e0 }
0x00e0…0118 9706 0140 // * *
0x00e0…0118 LineComal80 {
0x00e0…0118 ptr = 0x9706 // 0xe0 @0x0
0x00e0…0118 lno = 0x008c // 0xe2 @0x2
0x00e0…0118 at0004 = ╱89╱ // ╱ // 0xe4 @0x4
0x00e0…0118 at0005 = ╱2a╱*╱ // 0xe5 @0x5
0x00e0…0118 at0006 = ╱20╱…╱ // 0xe6 @0x6
0x00e0…0118 at0007 = ╱20╱…╱ // 0xe7 @0x7
0x00e0…0118 at0008 = ╱20╱…╱ // 0xe8 @0x8
0x00e0…0118 at0009 = ╱20╱…╱ // 0xe9 @0x9
0x00e0…0118 at000a = ╱20╱…╱ // 0xea @0xa
0x00e0…0118 at000b = ╱20╱…╱ // 0xeb @0xb
0x00e0…0118 at000c = ╱20╱…╱ // 0xec @0xc
0x00e0…0118 at000d = ╱20╱…╱ // 0xed @0xd
0x00e0…0118 at000e = ╱20╱…╱ // 0xee @0xe
0x00e0…0118 at000f = ╱20╱…╱ // 0xef @0xf
0x00e0…0118 at0010 = ╱20╱…╱ // 0xf0 @0x10
0x00e0…0118 at0011 = ╱20╱…╱ // 0xf1 @0x11
0x00e0…0118 at0012 = ╱20╱…╱ // 0xf2 @0x12
0x00e0…0118 at0013 = ╱20╱…╱ // 0xf3 @0x13
0x00e0…0118 at0014 = ╱20╱…╱ // 0xf4 @0x14
0x00e0…0118 at0015 = ╱20╱…╱ // 0xf5 @0x15
0x00e0…0118 at0016 = ╱20╱…╱ // 0xf6 @0x16
0x00e0…0118 at0017 = ╱20╱…╱ // 0xf7 @0x17
0x00e0…0118 at0018 = ╱20╱…╱ // 0xf8 @0x18
0x00e0…0118 at0019 = ╱20╱…╱ // 0xf9 @0x19
0x00e0…0118 at001a = ╱20╱…╱ // 0xfa @0x1a
0x00e0…0118 at001b = ╱20╱…╱ // 0xfb @0x1b
0x00e0…0118 at001c = ╱20╱…╱ // 0xfc @0x1c
0x00e0…0118 at001d = ╱20╱…╱ // 0xfd @0x1d
0x00e0…0118 at001e = ╱20╱…╱ // 0xfe @0x1e
0x00e0…0118 at001f = ╱20╱…╱ // 0xff @0x1f
0x00e0…0118 at0020 = ╱20╱…╱ // 0x100 @0x20
0x00e0…0118 at0021 = ╱20╱…╱ // 0x101 @0x21
0x00e0…0118 at0022 = ╱20╱…╱ // 0x102 @0x22
0x00e0…0118 at0023 = ╱20╱…╱ // 0x103 @0x23
0x00e0…0118 at0024 = ╱20╱…╱ // 0x104 @0x24
0x00e0…0118 at0025 = ╱20╱…╱ // 0x105 @0x25
0x00e0…0118 at0026 = ╱20╱…╱ // 0x106 @0x26
0x00e0…0118 at0027 = ╱20╱…╱ // 0x107 @0x27
0x00e0…0118 at0028 = ╱20╱…╱ // 0x108 @0x28
0x00e0…0118 at0029 = ╱20╱…╱ // 0x109 @0x29
0x00e0…0118 at002a = ╱20╱…╱ // 0x10a @0x2a
0x00e0…0118 at002b = ╱20╱…╱ // 0x10b @0x2b
0x00e0…0118 at002c = ╱20╱…╱ // 0x10c @0x2c
0x00e0…0118 at002d = ╱20╱…╱ // 0x10d @0x2d
0x00e0…0118 at002e = ╱20╱…╱ // 0x10e @0x2e
0x00e0…0118 at002f = ╱20╱…╱ // 0x10f @0x2f
0x00e0…0118 at0030 = ╱20╱…╱ // 0x110 @0x30
0x00e0…0118 at0031 = ╱20╱…╱ // 0x111 @0x31
0x00e0…0118 at0032 = ╱20╱…╱ // 0x112 @0x32
0x00e0…0118 at0033 = ╱20╱…╱ // 0x113 @0x33
0x00e0…0118 at0034 = ╱20╱…╱ // 0x114 @0x34
0x00e0…0118 at0035 = ╱20╱…╱ // 0x115 @0x35
0x00e0…0118 at0036 = ╱2a╱*╱ // 0x116 @0x36
0x00e0…0118 at0037 = EOL // 0x117 @0x37
0x00e0…0118 }
0x0118…0150 973e 0150 // * Udviklet marts 1983 på en 'SPC/1' mikrodatamat *
0x0118…0150 LineComal80 {
0x0118…0150 ptr = 0x973e // 0x118 @0x0
0x0118…0150 lno = 0x0096 // 0x11a @0x2
0x0118…0150 at0004 = ╱89╱ // ╱ // 0x11c @0x4
0x0118…0150 at0005 = ╱2a╱*╱ // 0x11d @0x5
0x0118…0150 at0006 = ╱20╱…╱ // 0x11e @0x6
0x0118…0150 at0007 = ╱55╱U╱ // 0x11f @0x7
0x0118…0150 at0008 = ╱64╱d╱ // 0x120 @0x8
0x0118…0150 at0009 = ╱76╱v╱ // 0x121 @0x9
0x0118…0150 at000a = ╱69╱i╱ // 0x122 @0xa
0x0118…0150 at000b = ╱6b╱k╱ // 0x123 @0xb
0x0118…0150 at000c = ╱6c╱l╱ // 0x124 @0xc
0x0118…0150 at000d = ╱65╱e╱ // 0x125 @0xd
0x0118…0150 at000e = ╱74╱t╱ // 0x126 @0xe
0x0118…0150 at000f = ╱20╱…╱ // 0x127 @0xf
0x0118…0150 at0010 = ╱6d╱m╱ // 0x128 @0x10
0x0118…0150 at0011 = ╱61╱a╱ // 0x129 @0x11
0x0118…0150 at0012 = ╱72╱r╱ // 0x12a @0x12
0x0118…0150 at0013 = ╱74╱t╱ // 0x12b @0x13
0x0118…0150 at0014 = ╱73╱s╱ // 0x12c @0x14
0x0118…0150 at0015 = ╱20╱…╱ // 0x12d @0x15
0x0118…0150 at0016 = ╱31╱1╱ // 0x12e @0x16
0x0118…0150 at0017 = ╱39╱9╱ // 0x12f @0x17
0x0118…0150 at0018 = ╱38╱8╱ // 0x130 @0x18
0x0118…0150 at0019 = ╱33╱3╱ // 0x131 @0x19
0x0118…0150 at001a = ╱20╱…╱ // 0x132 @0x1a
0x0118…0150 at001b = ╱70╱p╱ // 0x133 @0x1b
0x0118…0150 at001c = ╱7d╱å╱ // 0x134 @0x1c
0x0118…0150 at001d = ╱20╱…╱ // 0x135 @0x1d
0x0118…0150 at001e = ╱65╱e╱ // 0x136 @0x1e
0x0118…0150 at001f = ╱6e╱n╱ // 0x137 @0x1f
0x0118…0150 at0020 = ╱20╱…╱ // 0x138 @0x20
0x0118…0150 at0021 = ╱27╱'╱ // 0x139 @0x21
0x0118…0150 at0022 = ╱53╱S╱ // 0x13a @0x22
0x0118…0150 at0023 = ╱50╱P╱ // 0x13b @0x23
0x0118…0150 at0024 = ╱43╱C╱ // 0x13c @0x24
0x0118…0150 at0025 = ╱2f╱/╱ // 0x13d @0x25
0x0118…0150 at0026 = ╱31╱1╱ // 0x13e @0x26
0x0118…0150 at0027 = ╱27╱'╱ // 0x13f @0x27
0x0118…0150 at0028 = ╱20╱…╱ // 0x140 @0x28
0x0118…0150 at0029 = ╱6d╱m╱ // 0x141 @0x29
0x0118…0150 at002a = ╱69╱i╱ // 0x142 @0x2a
0x0118…0150 at002b = ╱6b╱k╱ // 0x143 @0x2b
0x0118…0150 at002c = ╱72╱r╱ // 0x144 @0x2c
0x0118…0150 at002d = ╱6f╱o╱ // 0x145 @0x2d
0x0118…0150 at002e = ╱64╱d╱ // 0x146 @0x2e
0x0118…0150 at002f = ╱61╱a╱ // 0x147 @0x2f
0x0118…0150 at0030 = ╱74╱t╱ // 0x148 @0x30
0x0118…0150 at0031 = ╱61╱a╱ // 0x149 @0x31
0x0118…0150 at0032 = ╱6d╱m╱ // 0x14a @0x32
0x0118…0150 at0033 = ╱61╱a╱ // 0x14b @0x33
0x0118…0150 at0034 = ╱74╱t╱ // 0x14c @0x34
0x0118…0150 at0035 = ╱20╱…╱ // 0x14d @0x35
0x0118…0150 at0036 = ╱2a╱*╱ // 0x14e @0x36
0x0118…0150 at0037 = EOL // 0x14f @0x37
0x0118…0150 }
0x0150…0188 9776 0160 // * Programsystemet er skrevet i COMAL80 vers. 1.2 *
0x0150…0188 LineComal80 {
0x0150…0188 ptr = 0x9776 // 0x150 @0x0
0x0150…0188 lno = 0x00a0 // 0x152 @0x2
0x0150…0188 at0004 = ╱89╱ // ╱ // 0x154 @0x4
0x0150…0188 at0005 = ╱2a╱*╱ // 0x155 @0x5
0x0150…0188 at0006 = ╱20╱…╱ // 0x156 @0x6
0x0150…0188 at0007 = ╱50╱P╱ // 0x157 @0x7
0x0150…0188 at0008 = ╱72╱r╱ // 0x158 @0x8
0x0150…0188 at0009 = ╱6f╱o╱ // 0x159 @0x9
0x0150…0188 at000a = ╱67╱g╱ // 0x15a @0xa
0x0150…0188 at000b = ╱72╱r╱ // 0x15b @0xb
0x0150…0188 at000c = ╱61╱a╱ // 0x15c @0xc
0x0150…0188 at000d = ╱6d╱m╱ // 0x15d @0xd
0x0150…0188 at000e = ╱73╱s╱ // 0x15e @0xe
0x0150…0188 at000f = ╱79╱y╱ // 0x15f @0xf
0x0150…0188 at0010 = ╱73╱s╱ // 0x160 @0x10
0x0150…0188 at0011 = ╱74╱t╱ // 0x161 @0x11
0x0150…0188 at0012 = ╱65╱e╱ // 0x162 @0x12
0x0150…0188 at0013 = ╱6d╱m╱ // 0x163 @0x13
0x0150…0188 at0014 = ╱65╱e╱ // 0x164 @0x14
0x0150…0188 at0015 = ╱74╱t╱ // 0x165 @0x15
0x0150…0188 at0016 = ╱20╱…╱ // 0x166 @0x16
0x0150…0188 at0017 = ╱65╱e╱ // 0x167 @0x17
0x0150…0188 at0018 = ╱72╱r╱ // 0x168 @0x18
0x0150…0188 at0019 = ╱20╱…╱ // 0x169 @0x19
0x0150…0188 at001a = ╱73╱s╱ // 0x16a @0x1a
0x0150…0188 at001b = ╱6b╱k╱ // 0x16b @0x1b
0x0150…0188 at001c = ╱72╱r╱ // 0x16c @0x1c
0x0150…0188 at001d = ╱65╱e╱ // 0x16d @0x1d
0x0150…0188 at001e = ╱76╱v╱ // 0x16e @0x1e
0x0150…0188 at001f = ╱65╱e╱ // 0x16f @0x1f
0x0150…0188 at0020 = ╱74╱t╱ // 0x170 @0x20
0x0150…0188 at0021 = ╱20╱…╱ // 0x171 @0x21
0x0150…0188 at0022 = ╱69╱i╱ // 0x172 @0x22
0x0150…0188 at0023 = ╱20╱…╱ // 0x173 @0x23
0x0150…0188 at0024 = ╱43╱C╱ // 0x174 @0x24
0x0150…0188 at0025 = ╱4f╱O╱ // 0x175 @0x25
0x0150…0188 at0026 = ╱4d╱M╱ // 0x176 @0x26
0x0150…0188 at0027 = ╱41╱A╱ // 0x177 @0x27
0x0150…0188 at0028 = ╱4c╱L╱ // 0x178 @0x28
0x0150…0188 at0029 = ╱38╱8╱ // 0x179 @0x29
0x0150…0188 at002a = ╱30╱0╱ // 0x17a @0x2a
0x0150…0188 at002b = ╱20╱…╱ // 0x17b @0x2b
0x0150…0188 at002c = ╱76╱v╱ // 0x17c @0x2c
0x0150…0188 at002d = ╱65╱e╱ // 0x17d @0x2d
0x0150…0188 at002e = ╱72╱r╱ // 0x17e @0x2e
0x0150…0188 at002f = ╱73╱s╱ // 0x17f @0x2f
0x0150…0188 at0030 = ╱2e╱.╱ // 0x180 @0x30
0x0150…0188 at0031 = ╱20╱…╱ // 0x181 @0x31
0x0150…0188 at0032 = ╱31╱1╱ // 0x182 @0x32
0x0150…0188 at0033 = ╱2e╱.╱ // 0x183 @0x33
0x0150…0188 at0034 = ╱32╱2╱ // 0x184 @0x34
0x0150…0188 at0035 = ╱20╱…╱ // 0x185 @0x35
0x0150…0188 at0036 = ╱2a╱*╱ // 0x186 @0x36
0x0150…0188 at0037 = EOL // 0x187 @0x37
0x0150…0188 }
0x0188…01c0 97ae 0170 // * *
0x0188…01c0 LineComal80 {
0x0188…01c0 ptr = 0x97ae // 0x188 @0x0
0x0188…01c0 lno = 0x00aa // 0x18a @0x2
0x0188…01c0 at0004 = ╱89╱ // ╱ // 0x18c @0x4
0x0188…01c0 at0005 = ╱2a╱*╱ // 0x18d @0x5
0x0188…01c0 at0006 = ╱20╱…╱ // 0x18e @0x6
0x0188…01c0 at0007 = ╱20╱…╱ // 0x18f @0x7
0x0188…01c0 at0008 = ╱20╱…╱ // 0x190 @0x8
0x0188…01c0 at0009 = ╱20╱…╱ // 0x191 @0x9
0x0188…01c0 at000a = ╱20╱…╱ // 0x192 @0xa
0x0188…01c0 at000b = ╱20╱…╱ // 0x193 @0xb
0x0188…01c0 at000c = ╱20╱…╱ // 0x194 @0xc
0x0188…01c0 at000d = ╱20╱…╱ // 0x195 @0xd
0x0188…01c0 at000e = ╱20╱…╱ // 0x196 @0xe
0x0188…01c0 at000f = ╱20╱…╱ // 0x197 @0xf
0x0188…01c0 at0010 = ╱20╱…╱ // 0x198 @0x10
0x0188…01c0 at0011 = ╱20╱…╱ // 0x199 @0x11
0x0188…01c0 at0012 = ╱20╱…╱ // 0x19a @0x12
0x0188…01c0 at0013 = ╱20╱…╱ // 0x19b @0x13
0x0188…01c0 at0014 = ╱20╱…╱ // 0x19c @0x14
0x0188…01c0 at0015 = ╱20╱…╱ // 0x19d @0x15
0x0188…01c0 at0016 = ╱20╱…╱ // 0x19e @0x16
0x0188…01c0 at0017 = ╱20╱…╱ // 0x19f @0x17
0x0188…01c0 at0018 = ╱20╱…╱ // 0x1a0 @0x18
0x0188…01c0 at0019 = ╱20╱…╱ // 0x1a1 @0x19
0x0188…01c0 at001a = ╱20╱…╱ // 0x1a2 @0x1a
0x0188…01c0 at001b = ╱20╱…╱ // 0x1a3 @0x1b
0x0188…01c0 at001c = ╱20╱…╱ // 0x1a4 @0x1c
0x0188…01c0 at001d = ╱20╱…╱ // 0x1a5 @0x1d
0x0188…01c0 at001e = ╱20╱…╱ // 0x1a6 @0x1e
0x0188…01c0 at001f = ╱20╱…╱ // 0x1a7 @0x1f
0x0188…01c0 at0020 = ╱20╱…╱ // 0x1a8 @0x20
0x0188…01c0 at0021 = ╱20╱…╱ // 0x1a9 @0x21
0x0188…01c0 at0022 = ╱20╱…╱ // 0x1aa @0x22
0x0188…01c0 at0023 = ╱20╱…╱ // 0x1ab @0x23
0x0188…01c0 at0024 = ╱20╱…╱ // 0x1ac @0x24
0x0188…01c0 at0025 = ╱20╱…╱ // 0x1ad @0x25
0x0188…01c0 at0026 = ╱20╱…╱ // 0x1ae @0x26
0x0188…01c0 at0027 = ╱20╱…╱ // 0x1af @0x27
0x0188…01c0 at0028 = ╱20╱…╱ // 0x1b0 @0x28
0x0188…01c0 at0029 = ╱20╱…╱ // 0x1b1 @0x29
0x0188…01c0 at002a = ╱20╱…╱ // 0x1b2 @0x2a
0x0188…01c0 at002b = ╱20╱…╱ // 0x1b3 @0x2b
0x0188…01c0 at002c = ╱20╱…╱ // 0x1b4 @0x2c
0x0188…01c0 at002d = ╱20╱…╱ // 0x1b5 @0x2d
0x0188…01c0 at002e = ╱20╱…╱ // 0x1b6 @0x2e
0x0188…01c0 at002f = ╱20╱…╱ // 0x1b7 @0x2f
0x0188…01c0 at0030 = ╱20╱…╱ // 0x1b8 @0x30
0x0188…01c0 at0031 = ╱20╱…╱ // 0x1b9 @0x31
0x0188…01c0 at0032 = ╱20╱…╱ // 0x1ba @0x32
0x0188…01c0 at0033 = ╱20╱…╱ // 0x1bb @0x33
0x0188…01c0 at0034 = ╱20╱…╱ // 0x1bc @0x34
0x0188…01c0 at0035 = ╱20╱…╱ // 0x1bd @0x35
0x0188…01c0 at0036 = ╱2a╱*╱ // 0x1be @0x36
0x0188…01c0 at0037 = EOL // 0x1bf @0x37
0x0188…01c0 }
0x01c0…01f8 97e6 0180 // * Udviklet af : Peter Kristensen *
0x01c0…01f8 LineComal80 {
0x01c0…01f8 ptr = 0x97e6 // 0x1c0 @0x0
0x01c0…01f8 lno = 0x00b4 // 0x1c2 @0x2
0x01c0…01f8 at0004 = ╱89╱ // ╱ // 0x1c4 @0x4
0x01c0…01f8 at0005 = ╱2a╱*╱ // 0x1c5 @0x5
0x01c0…01f8 at0006 = ╱20╱…╱ // 0x1c6 @0x6
0x01c0…01f8 at0007 = ╱55╱U╱ // 0x1c7 @0x7
0x01c0…01f8 at0008 = ╱64╱d╱ // 0x1c8 @0x8
0x01c0…01f8 at0009 = ╱76╱v╱ // 0x1c9 @0x9
0x01c0…01f8 at000a = ╱69╱i╱ // 0x1ca @0xa
0x01c0…01f8 at000b = ╱6b╱k╱ // 0x1cb @0xb
0x01c0…01f8 at000c = ╱6c╱l╱ // 0x1cc @0xc
0x01c0…01f8 at000d = ╱65╱e╱ // 0x1cd @0xd
0x01c0…01f8 at000e = ╱74╱t╱ // 0x1ce @0xe
0x01c0…01f8 at000f = ╱20╱…╱ // 0x1cf @0xf
0x01c0…01f8 at0010 = ╱61╱a╱ // 0x1d0 @0x10
0x01c0…01f8 at0011 = ╱66╱f╱ // 0x1d1 @0x11
0x01c0…01f8 at0012 = ╱20╱…╱ // 0x1d2 @0x12
0x01c0…01f8 at0013 = ╱3a╱:╱ // 0x1d3 @0x13
0x01c0…01f8 at0014 = ╱20╱…╱ // 0x1d4 @0x14
0x01c0…01f8 at0015 = ╱50╱P╱ // 0x1d5 @0x15
0x01c0…01f8 at0016 = ╱65╱e╱ // 0x1d6 @0x16
0x01c0…01f8 at0017 = ╱74╱t╱ // 0x1d7 @0x17
0x01c0…01f8 at0018 = ╱65╱e╱ // 0x1d8 @0x18
0x01c0…01f8 at0019 = ╱72╱r╱ // 0x1d9 @0x19
0x01c0…01f8 at001a = ╱20╱…╱ // 0x1da @0x1a
0x01c0…01f8 at001b = ╱4b╱K╱ // 0x1db @0x1b
0x01c0…01f8 at001c = ╱72╱r╱ // 0x1dc @0x1c
0x01c0…01f8 at001d = ╱69╱i╱ // 0x1dd @0x1d
0x01c0…01f8 at001e = ╱73╱s╱ // 0x1de @0x1e
0x01c0…01f8 at001f = ╱74╱t╱ // 0x1df @0x1f
0x01c0…01f8 at0020 = ╱65╱e╱ // 0x1e0 @0x20
0x01c0…01f8 at0021 = ╱6e╱n╱ // 0x1e1 @0x21
0x01c0…01f8 at0022 = ╱73╱s╱ // 0x1e2 @0x22
0x01c0…01f8 at0023 = ╱65╱e╱ // 0x1e3 @0x23
0x01c0…01f8 at0024 = ╱6e╱n╱ // 0x1e4 @0x24
0x01c0…01f8 at0025 = ╱20╱…╱ // 0x1e5 @0x25
0x01c0…01f8 at0026 = ╱20╱…╱ // 0x1e6 @0x26
0x01c0…01f8 at0027 = ╱20╱…╱ // 0x1e7 @0x27
0x01c0…01f8 at0028 = ╱20╱…╱ // 0x1e8 @0x28
0x01c0…01f8 at0029 = ╱20╱…╱ // 0x1e9 @0x29
0x01c0…01f8 at002a = ╱20╱…╱ // 0x1ea @0x2a
0x01c0…01f8 at002b = ╱20╱…╱ // 0x1eb @0x2b
0x01c0…01f8 at002c = ╱20╱…╱ // 0x1ec @0x2c
0x01c0…01f8 at002d = ╱20╱…╱ // 0x1ed @0x2d
0x01c0…01f8 at002e = ╱20╱…╱ // 0x1ee @0x2e
0x01c0…01f8 at002f = ╱20╱…╱ // 0x1ef @0x2f
0x01c0…01f8 at0030 = ╱20╱…╱ // 0x1f0 @0x30
0x01c0…01f8 at0031 = ╱20╱…╱ // 0x1f1 @0x31
0x01c0…01f8 at0032 = ╱20╱…╱ // 0x1f2 @0x32
0x01c0…01f8 at0033 = ╱20╱…╱ // 0x1f3 @0x33
0x01c0…01f8 at0034 = ╱20╱…╱ // 0x1f4 @0x34
0x01c0…01f8 at0035 = ╱20╱…╱ // 0x1f5 @0x35
0x01c0…01f8 at0036 = ╱2a╱*╱ // 0x1f6 @0x36
0x01c0…01f8 at0037 = EOL // 0x1f7 @0x37
0x01c0…01f8 }
0x01f8…0230 981e 0190 // * Vestervang 6, 6920 Videbæk *
0x01f8…0230 LineComal80 {
0x01f8…0230 ptr = 0x981e // 0x1f8 @0x0
0x01f8…0230 lno = 0x00be // 0x1fa @0x2
0x01f8…0230 at0004 = ╱89╱ // ╱ // 0x1fc @0x4
0x01f8…0230 at0005 = ╱2a╱*╱ // 0x1fd @0x5
0x01f8…0230 at0006 = ╱20╱…╱ // 0x1fe @0x6
0x01f8…0230 at0007 = ╱20╱…╱ // 0x1ff @0x7
0x01f8…0230 at0008 = ╱20╱…╱ // 0x200 @0x8
0x01f8…0230 at0009 = ╱20╱…╱ // 0x201 @0x9
0x01f8…0230 at000a = ╱20╱…╱ // 0x202 @0xa
0x01f8…0230 at000b = ╱20╱…╱ // 0x203 @0xb
0x01f8…0230 at000c = ╱20╱…╱ // 0x204 @0xc
0x01f8…0230 at000d = ╱20╱…╱ // 0x205 @0xd
0x01f8…0230 at000e = ╱20╱…╱ // 0x206 @0xe
0x01f8…0230 at000f = ╱20╱…╱ // 0x207 @0xf
0x01f8…0230 at0010 = ╱20╱…╱ // 0x208 @0x10
0x01f8…0230 at0011 = ╱20╱…╱ // 0x209 @0x11
0x01f8…0230 at0012 = ╱20╱…╱ // 0x20a @0x12
0x01f8…0230 at0013 = ╱20╱…╱ // 0x20b @0x13
0x01f8…0230 at0014 = ╱20╱…╱ // 0x20c @0x14
0x01f8…0230 at0015 = ╱56╱V╱ // 0x20d @0x15
0x01f8…0230 at0016 = ╱65╱e╱ // 0x20e @0x16
0x01f8…0230 at0017 = ╱73╱s╱ // 0x20f @0x17
0x01f8…0230 at0018 = ╱74╱t╱ // 0x210 @0x18
0x01f8…0230 at0019 = ╱65╱e╱ // 0x211 @0x19
0x01f8…0230 at001a = ╱72╱r╱ // 0x212 @0x1a
0x01f8…0230 at001b = ╱76╱v╱ // 0x213 @0x1b
0x01f8…0230 at001c = ╱61╱a╱ // 0x214 @0x1c
0x01f8…0230 at001d = ╱6e╱n╱ // 0x215 @0x1d
0x01f8…0230 at001e = ╱67╱g╱ // 0x216 @0x1e
0x01f8…0230 at001f = ╱20╱…╱ // 0x217 @0x1f
0x01f8…0230 at0020 = ╱36╱6╱ // 0x218 @0x20
0x01f8…0230 at0021 = ╱2c╱,╱ // 0x219 @0x21
0x01f8…0230 at0022 = ╱20╱…╱ // 0x21a @0x22
0x01f8…0230 at0023 = ╱36╱6╱ // 0x21b @0x23
0x01f8…0230 at0024 = ╱39╱9╱ // 0x21c @0x24
0x01f8…0230 at0025 = ╱32╱2╱ // 0x21d @0x25
0x01f8…0230 at0026 = ╱30╱0╱ // 0x21e @0x26
0x01f8…0230 at0027 = ╱20╱…╱ // 0x21f @0x27
0x01f8…0230 at0028 = ╱56╱V╱ // 0x220 @0x28
0x01f8…0230 at0029 = ╱69╱i╱ // 0x221 @0x29
0x01f8…0230 at002a = ╱64╱d╱ // 0x222 @0x2a
0x01f8…0230 at002b = ╱65╱e╱ // 0x223 @0x2b
0x01f8…0230 at002c = ╱62╱b╱ // 0x224 @0x2c
0x01f8…0230 at002d = ╱7b╱æ╱ // 0x225 @0x2d
0x01f8…0230 at002e = ╱6b╱k╱ // 0x226 @0x2e
0x01f8…0230 at002f = ╱20╱…╱ // 0x227 @0x2f
0x01f8…0230 at0030 = ╱20╱…╱ // 0x228 @0x30
0x01f8…0230 at0031 = ╱20╱…╱ // 0x229 @0x31
0x01f8…0230 at0032 = ╱20╱…╱ // 0x22a @0x32
0x01f8…0230 at0033 = ╱20╱…╱ // 0x22b @0x33
0x01f8…0230 at0034 = ╱20╱…╱ // 0x22c @0x34
0x01f8…0230 at0035 = ╱20╱…╱ // 0x22d @0x35
0x01f8…0230 at0036 = ╱2a╱*╱ // 0x22e @0x36
0x01f8…0230 at0037 = EOL // 0x22f @0x37
0x01f8…0230 }
0x0230…0268 9856 0200 // * *
0x0230…0268 LineComal80 {
0x0230…0268 ptr = 0x9856 // 0x230 @0x0
0x0230…0268 lno = 0x00c8 // 0x232 @0x2
0x0230…0268 at0004 = ╱89╱ // ╱ // 0x234 @0x4
0x0230…0268 at0005 = ╱2a╱*╱ // 0x235 @0x5
0x0230…0268 at0006 = ╱20╱…╱ // 0x236 @0x6
0x0230…0268 at0007 = ╱20╱…╱ // 0x237 @0x7
0x0230…0268 at0008 = ╱20╱…╱ // 0x238 @0x8
0x0230…0268 at0009 = ╱20╱…╱ // 0x239 @0x9
0x0230…0268 at000a = ╱20╱…╱ // 0x23a @0xa
0x0230…0268 at000b = ╱20╱…╱ // 0x23b @0xb
0x0230…0268 at000c = ╱20╱…╱ // 0x23c @0xc
0x0230…0268 at000d = ╱20╱…╱ // 0x23d @0xd
0x0230…0268 at000e = ╱20╱…╱ // 0x23e @0xe
0x0230…0268 at000f = ╱20╱…╱ // 0x23f @0xf
0x0230…0268 at0010 = ╱20╱…╱ // 0x240 @0x10
0x0230…0268 at0011 = ╱20╱…╱ // 0x241 @0x11
0x0230…0268 at0012 = ╱20╱…╱ // 0x242 @0x12
0x0230…0268 at0013 = ╱20╱…╱ // 0x243 @0x13
0x0230…0268 at0014 = ╱20╱…╱ // 0x244 @0x14
0x0230…0268 at0015 = ╱20╱…╱ // 0x245 @0x15
0x0230…0268 at0016 = ╱20╱…╱ // 0x246 @0x16
0x0230…0268 at0017 = ╱20╱…╱ // 0x247 @0x17
0x0230…0268 at0018 = ╱20╱…╱ // 0x248 @0x18
0x0230…0268 at0019 = ╱20╱…╱ // 0x249 @0x19
0x0230…0268 at001a = ╱20╱…╱ // 0x24a @0x1a
0x0230…0268 at001b = ╱20╱…╱ // 0x24b @0x1b
0x0230…0268 at001c = ╱20╱…╱ // 0x24c @0x1c
0x0230…0268 at001d = ╱20╱…╱ // 0x24d @0x1d
0x0230…0268 at001e = ╱20╱…╱ // 0x24e @0x1e
0x0230…0268 at001f = ╱20╱…╱ // 0x24f @0x1f
0x0230…0268 at0020 = ╱20╱…╱ // 0x250 @0x20
0x0230…0268 at0021 = ╱20╱…╱ // 0x251 @0x21
0x0230…0268 at0022 = ╱20╱…╱ // 0x252 @0x22
0x0230…0268 at0023 = ╱20╱…╱ // 0x253 @0x23
0x0230…0268 at0024 = ╱20╱…╱ // 0x254 @0x24
0x0230…0268 at0025 = ╱20╱…╱ // 0x255 @0x25
0x0230…0268 at0026 = ╱20╱…╱ // 0x256 @0x26
0x0230…0268 at0027 = ╱20╱…╱ // 0x257 @0x27
0x0230…0268 at0028 = ╱20╱…╱ // 0x258 @0x28
0x0230…0268 at0029 = ╱20╱…╱ // 0x259 @0x29
0x0230…0268 at002a = ╱20╱…╱ // 0x25a @0x2a
0x0230…0268 at002b = ╱20╱…╱ // 0x25b @0x2b
0x0230…0268 at002c = ╱20╱…╱ // 0x25c @0x2c
0x0230…0268 at002d = ╱20╱…╱ // 0x25d @0x2d
0x0230…0268 at002e = ╱20╱…╱ // 0x25e @0x2e
0x0230…0268 at002f = ╱20╱…╱ // 0x25f @0x2f
0x0230…0268 at0030 = ╱20╱…╱ // 0x260 @0x30
0x0230…0268 at0031 = ╱20╱…╱ // 0x261 @0x31
0x0230…0268 at0032 = ╱20╱…╱ // 0x262 @0x32
0x0230…0268 at0033 = ╱20╱…╱ // 0x263 @0x33
0x0230…0268 at0034 = ╱20╱…╱ // 0x264 @0x34
0x0230…0268 at0035 = ╱20╱…╱ // 0x265 @0x35
0x0230…0268 at0036 = ╱2a╱*╱ // 0x266 @0x36
0x0230…0268 at0037 = EOL // 0x267 @0x37
0x0230…0268 }
0x0268…02a0 (8,) 988e 0210 // * (C) : forlaget systime a/s *
0x0268…02a0 LineComal80 {
0x0268…02a0 ptr = 0x988e // 0x268 @0x0
0x0268…02a0 lno = 0x00d2 // 0x26a @0x2
0x0268…02a0 at0004 = ╱89╱ // ╱ // 0x26c @0x4
0x0268…02a0 at0005 = ╱2a╱*╱ // 0x26d @0x5
0x0268…02a0 at0006 = ╱20╱…╱ // 0x26e @0x6
0x0268…02a0 at0007 = ╱20╱…╱ // 0x26f @0x7
0x0268…02a0 at0008 = ╱20╱…╱ // 0x270 @0x8
0x0268…02a0 at0009 = ╱28╱(╱ // 0x271 @0x9
0x0268…02a0 at000a = ╱43╱C╱ // 0x272 @0xa
0x0268…02a0 at000b = ╱29╱)╱ // 0x273 @0xb
0x0268…02a0 at000c = ╱20╱…╱ // 0x274 @0xc
0x0268…02a0 at000d = ╱20╱…╱ // 0x275 @0xd
0x0268…02a0 at000e = ╱20╱…╱ // 0x276 @0xe
0x0268…02a0 at000f = ╱20╱…╱ // 0x277 @0xf
0x0268…02a0 at0010 = ╱20╱…╱ // 0x278 @0x10
0x0268…02a0 at0011 = ╱20╱…╱ // 0x279 @0x11
0x0268…02a0 at0012 = ╱20╱…╱ // 0x27a @0x12
0x0268…02a0 at0013 = ╱3a╱:╱ // 0x27b @0x13
0x0268…02a0 at0014 = ╱20╱…╱ // 0x27c @0x14
0x0268…02a0 at0015 = ╱66╱f╱ // 0x27d @0x15
0x0268…02a0 at0016 = ╱6f╱o╱ // 0x27e @0x16
0x0268…02a0 at0017 = ╱72╱r╱ // 0x27f @0x17
0x0268…02a0 at0018 = ╱6c╱l╱ // 0x280 @0x18
0x0268…02a0 at0019 = ╱61╱a╱ // 0x281 @0x19
0x0268…02a0 at001a = ╱67╱g╱ // 0x282 @0x1a
0x0268…02a0 at001b = ╱65╱e╱ // 0x283 @0x1b
0x0268…02a0 at001c = ╱74╱t╱ // 0x284 @0x1c
0x0268…02a0 at001d = ╱20╱…╱ // 0x285 @0x1d
0x0268…02a0 at001e = ╱73╱s╱ // 0x286 @0x1e
0x0268…02a0 at001f = ╱79╱y╱ // 0x287 @0x1f
0x0268…02a0 at0020 = ╱73╱s╱ // 0x288 @0x20
0x0268…02a0 at0021 = ╱74╱t╱ // 0x289 @0x21
0x0268…02a0 at0022 = ╱69╱i╱ // 0x28a @0x22
0x0268…02a0 at0023 = ╱6d╱m╱ // 0x28b @0x23
0x0268…02a0 at0024 = ╱65╱e╱ // 0x28c @0x24
0x0268…02a0 at0025 = ╱20╱…╱ // 0x28d @0x25
0x0268…02a0 at0026 = ╱61╱a╱ // 0x28e @0x26
0x0268…02a0 at0027 = ╱2f╱/╱ // 0x28f @0x27
0x0268…02a0 at0028 = ╱73╱s╱ // 0x290 @0x28
0x0268…02a0 at0029 = ╱20╱…╱ // 0x291 @0x29
0x0268…02a0 at002a = ╱20╱…╱ // 0x292 @0x2a
0x0268…02a0 at002b = ╱20╱…╱ // 0x293 @0x2b
0x0268…02a0 at002c = ╱20╱…╱ // 0x294 @0x2c
0x0268…02a0 at002d = ╱20╱…╱ // 0x295 @0x2d
0x0268…02a0 at002e = ╱20╱…╱ // 0x296 @0x2e
0x0268…02a0 at002f = ╱20╱…╱ // 0x297 @0x2f
0x0268…02a0 at0030 = ╱20╱…╱ // 0x298 @0x30
0x0268…02a0 at0031 = ╱20╱…╱ // 0x299 @0x31
0x0268…02a0 at0032 = ╱20╱…╱ // 0x29a @0x32
0x0268…02a0 at0033 = ╱20╱…╱ // 0x29b @0x33
0x0268…02a0 at0034 = ╱20╱…╱ // 0x29c @0x34
0x0268…02a0 at0035 = ╱20╱…╱ // 0x29d @0x35
0x0268…02a0 at0036 = ╱2a╱*╱ // 0x29e @0x36
0x0268…02a0 at0037 = EOL // 0x29f @0x37
0x0268…02a0 }
0x02a0…02d8 98c6 0220 // * Klokkebakken 20, Gjellerup *
0x02a0…02d8 LineComal80 {
0x02a0…02d8 ptr = 0x98c6 // 0x2a0 @0x0
0x02a0…02d8 lno = 0x00dc // 0x2a2 @0x2
0x02a0…02d8 at0004 = ╱89╱ // ╱ // 0x2a4 @0x4
0x02a0…02d8 at0005 = ╱2a╱*╱ // 0x2a5 @0x5
0x02a0…02d8 at0006 = ╱20╱…╱ // 0x2a6 @0x6
0x02a0…02d8 at0007 = ╱20╱…╱ // 0x2a7 @0x7
0x02a0…02d8 at0008 = ╱20╱…╱ // 0x2a8 @0x8
0x02a0…02d8 at0009 = ╱20╱…╱ // 0x2a9 @0x9
0x02a0…02d8 at000a = ╱20╱…╱ // 0x2aa @0xa
0x02a0…02d8 at000b = ╱20╱…╱ // 0x2ab @0xb
0x02a0…02d8 at000c = ╱20╱…╱ // 0x2ac @0xc
0x02a0…02d8 at000d = ╱20╱…╱ // 0x2ad @0xd
0x02a0…02d8 at000e = ╱20╱…╱ // 0x2ae @0xe
0x02a0…02d8 at000f = ╱20╱…╱ // 0x2af @0xf
0x02a0…02d8 at0010 = ╱20╱…╱ // 0x2b0 @0x10
0x02a0…02d8 at0011 = ╱20╱…╱ // 0x2b1 @0x11
0x02a0…02d8 at0012 = ╱20╱…╱ // 0x2b2 @0x12
0x02a0…02d8 at0013 = ╱20╱…╱ // 0x2b3 @0x13
0x02a0…02d8 at0014 = ╱20╱…╱ // 0x2b4 @0x14
0x02a0…02d8 at0015 = ╱4b╱K╱ // 0x2b5 @0x15
0x02a0…02d8 at0016 = ╱6c╱l╱ // 0x2b6 @0x16
0x02a0…02d8 at0017 = ╱6f╱o╱ // 0x2b7 @0x17
0x02a0…02d8 at0018 = ╱6b╱k╱ // 0x2b8 @0x18
0x02a0…02d8 at0019 = ╱6b╱k╱ // 0x2b9 @0x19
0x02a0…02d8 at001a = ╱65╱e╱ // 0x2ba @0x1a
0x02a0…02d8 at001b = ╱62╱b╱ // 0x2bb @0x1b
0x02a0…02d8 at001c = ╱61╱a╱ // 0x2bc @0x1c
0x02a0…02d8 at001d = ╱6b╱k╱ // 0x2bd @0x1d
0x02a0…02d8 at001e = ╱6b╱k╱ // 0x2be @0x1e
0x02a0…02d8 at001f = ╱65╱e╱ // 0x2bf @0x1f
0x02a0…02d8 at0020 = ╱6e╱n╱ // 0x2c0 @0x20
0x02a0…02d8 at0021 = ╱20╱…╱ // 0x2c1 @0x21
0x02a0…02d8 at0022 = ╱32╱2╱ // 0x2c2 @0x22
0x02a0…02d8 at0023 = ╱30╱0╱ // 0x2c3 @0x23
0x02a0…02d8 at0024 = ╱2c╱,╱ // 0x2c4 @0x24
0x02a0…02d8 at0025 = ╱20╱…╱ // 0x2c5 @0x25
0x02a0…02d8 at0026 = ╱47╱G╱ // 0x2c6 @0x26
0x02a0…02d8 at0027 = ╱6a╱j╱ // 0x2c7 @0x27
0x02a0…02d8 at0028 = ╱65╱e╱ // 0x2c8 @0x28
0x02a0…02d8 at0029 = ╱6c╱l╱ // 0x2c9 @0x29
0x02a0…02d8 at002a = ╱6c╱l╱ // 0x2ca @0x2a
0x02a0…02d8 at002b = ╱65╱e╱ // 0x2cb @0x2b
0x02a0…02d8 at002c = ╱72╱r╱ // 0x2cc @0x2c
0x02a0…02d8 at002d = ╱75╱u╱ // 0x2cd @0x2d
0x02a0…02d8 at002e = ╱70╱p╱ // 0x2ce @0x2e
0x02a0…02d8 at002f = ╱20╱…╱ // 0x2cf @0x2f
0x02a0…02d8 at0030 = ╱20╱…╱ // 0x2d0 @0x30
0x02a0…02d8 at0031 = ╱20╱…╱ // 0x2d1 @0x31
0x02a0…02d8 at0032 = ╱20╱…╱ // 0x2d2 @0x32
0x02a0…02d8 at0033 = ╱20╱…╱ // 0x2d3 @0x33
0x02a0…02d8 at0034 = ╱20╱…╱ // 0x2d4 @0x34
0x02a0…02d8 at0035 = ╱20╱…╱ // 0x2d5 @0x35
0x02a0…02d8 at0036 = ╱2a╱*╱ // 0x2d6 @0x36
0x02a0…02d8 at0037 = EOL // 0x2d7 @0x37
0x02a0…02d8 }
0x02d8…0310 98fe 0230 // * 7400 Herning *
0x02d8…0310 LineComal80 {
0x02d8…0310 ptr = 0x98fe // 0x2d8 @0x0
0x02d8…0310 lno = 0x00e6 // 0x2da @0x2
0x02d8…0310 at0004 = ╱89╱ // ╱ // 0x2dc @0x4
0x02d8…0310 at0005 = ╱2a╱*╱ // 0x2dd @0x5
0x02d8…0310 at0006 = ╱20╱…╱ // 0x2de @0x6
0x02d8…0310 at0007 = ╱20╱…╱ // 0x2df @0x7
0x02d8…0310 at0008 = ╱20╱…╱ // 0x2e0 @0x8
0x02d8…0310 at0009 = ╱20╱…╱ // 0x2e1 @0x9
0x02d8…0310 at000a = ╱20╱…╱ // 0x2e2 @0xa
0x02d8…0310 at000b = ╱20╱…╱ // 0x2e3 @0xb
0x02d8…0310 at000c = ╱20╱…╱ // 0x2e4 @0xc
0x02d8…0310 at000d = ╱20╱…╱ // 0x2e5 @0xd
0x02d8…0310 at000e = ╱20╱…╱ // 0x2e6 @0xe
0x02d8…0310 at000f = ╱20╱…╱ // 0x2e7 @0xf
0x02d8…0310 at0010 = ╱20╱…╱ // 0x2e8 @0x10
0x02d8…0310 at0011 = ╱20╱…╱ // 0x2e9 @0x11
0x02d8…0310 at0012 = ╱20╱…╱ // 0x2ea @0x12
0x02d8…0310 at0013 = ╱20╱…╱ // 0x2eb @0x13
0x02d8…0310 at0014 = ╱20╱…╱ // 0x2ec @0x14
0x02d8…0310 at0015 = ╱37╱7╱ // 0x2ed @0x15
0x02d8…0310 at0016 = ╱34╱4╱ // 0x2ee @0x16
0x02d8…0310 at0017 = ╱30╱0╱ // 0x2ef @0x17
0x02d8…0310 at0018 = ╱30╱0╱ // 0x2f0 @0x18
0x02d8…0310 at0019 = ╱20╱…╱ // 0x2f1 @0x19
0x02d8…0310 at001a = ╱20╱…╱ // 0x2f2 @0x1a
0x02d8…0310 at001b = ╱48╱H╱ // 0x2f3 @0x1b
0x02d8…0310 at001c = ╱65╱e╱ // 0x2f4 @0x1c
0x02d8…0310 at001d = ╱72╱r╱ // 0x2f5 @0x1d
0x02d8…0310 at001e = ╱6e╱n╱ // 0x2f6 @0x1e
0x02d8…0310 at001f = ╱69╱i╱ // 0x2f7 @0x1f
0x02d8…0310 at0020 = ╱6e╱n╱ // 0x2f8 @0x20
0x02d8…0310 at0021 = ╱67╱g╱ // 0x2f9 @0x21
0x02d8…0310 at0022 = ╱20╱…╱ // 0x2fa @0x22
0x02d8…0310 at0023 = ╱20╱…╱ // 0x2fb @0x23
0x02d8…0310 at0024 = ╱20╱…╱ // 0x2fc @0x24
0x02d8…0310 at0025 = ╱20╱…╱ // 0x2fd @0x25
0x02d8…0310 at0026 = ╱20╱…╱ // 0x2fe @0x26
0x02d8…0310 at0027 = ╱20╱…╱ // 0x2ff @0x27
0x02d8…0310 at0028 = ╱20╱…╱ // 0x300 @0x28
0x02d8…0310 at0029 = ╱20╱…╱ // 0x301 @0x29
0x02d8…0310 at002a = ╱20╱…╱ // 0x302 @0x2a
0x02d8…0310 at002b = ╱20╱…╱ // 0x303 @0x2b
0x02d8…0310 at002c = ╱20╱…╱ // 0x304 @0x2c
0x02d8…0310 at002d = ╱20╱…╱ // 0x305 @0x2d
0x02d8…0310 at002e = ╱20╱…╱ // 0x306 @0x2e
0x02d8…0310 at002f = ╱20╱…╱ // 0x307 @0x2f
0x02d8…0310 at0030 = ╱20╱…╱ // 0x308 @0x30
0x02d8…0310 at0031 = ╱20╱…╱ // 0x309 @0x31
0x02d8…0310 at0032 = ╱20╱…╱ // 0x30a @0x32
0x02d8…0310 at0033 = ╱20╱…╱ // 0x30b @0x33
0x02d8…0310 at0034 = ╱20╱…╱ // 0x30c @0x34
0x02d8…0310 at0035 = ╱20╱…╱ // 0x30d @0x35
0x02d8…0310 at0036 = ╱2a╱*╱ // 0x30e @0x36
0x02d8…0310 at0037 = EOL // 0x30f @0x37
0x02d8…0310 }
0x0310…0348 9936 0240 // **************************************************
0x0310…0348 LineComal80 {
0x0310…0348 ptr = 0x9936 // 0x310 @0x0
0x0310…0348 lno = 0x00f0 // 0x312 @0x2
0x0310…0348 at0004 = ╱89╱ // ╱ // 0x314 @0x4
0x0310…0348 at0005 = ╱2a╱*╱ // 0x315 @0x5
0x0310…0348 at0006 = ╱2a╱*╱ // 0x316 @0x6
0x0310…0348 at0007 = ╱2a╱*╱ // 0x317 @0x7
0x0310…0348 at0008 = ╱2a╱*╱ // 0x318 @0x8
0x0310…0348 at0009 = ╱2a╱*╱ // 0x319 @0x9
0x0310…0348 at000a = ╱2a╱*╱ // 0x31a @0xa
0x0310…0348 at000b = ╱2a╱*╱ // 0x31b @0xb
0x0310…0348 at000c = ╱2a╱*╱ // 0x31c @0xc
0x0310…0348 at000d = ╱2a╱*╱ // 0x31d @0xd
0x0310…0348 at000e = ╱2a╱*╱ // 0x31e @0xe
0x0310…0348 at000f = ╱2a╱*╱ // 0x31f @0xf
0x0310…0348 at0010 = ╱2a╱*╱ // 0x320 @0x10
0x0310…0348 at0011 = ╱2a╱*╱ // 0x321 @0x11
0x0310…0348 at0012 = ╱2a╱*╱ // 0x322 @0x12
0x0310…0348 at0013 = ╱2a╱*╱ // 0x323 @0x13
0x0310…0348 at0014 = ╱2a╱*╱ // 0x324 @0x14
0x0310…0348 at0015 = ╱2a╱*╱ // 0x325 @0x15
0x0310…0348 at0016 = ╱2a╱*╱ // 0x326 @0x16
0x0310…0348 at0017 = ╱2a╱*╱ // 0x327 @0x17
0x0310…0348 at0018 = ╱2a╱*╱ // 0x328 @0x18
0x0310…0348 at0019 = ╱2a╱*╱ // 0x329 @0x19
0x0310…0348 at001a = ╱2a╱*╱ // 0x32a @0x1a
0x0310…0348 at001b = ╱2a╱*╱ // 0x32b @0x1b
0x0310…0348 at001c = ╱2a╱*╱ // 0x32c @0x1c
0x0310…0348 at001d = ╱2a╱*╱ // 0x32d @0x1d
0x0310…0348 at001e = ╱2a╱*╱ // 0x32e @0x1e
0x0310…0348 at001f = ╱2a╱*╱ // 0x32f @0x1f
0x0310…0348 at0020 = ╱2a╱*╱ // 0x330 @0x20
0x0310…0348 at0021 = ╱2a╱*╱ // 0x331 @0x21
0x0310…0348 at0022 = ╱2a╱*╱ // 0x332 @0x22
0x0310…0348 at0023 = ╱2a╱*╱ // 0x333 @0x23
0x0310…0348 at0024 = ╱2a╱*╱ // 0x334 @0x24
0x0310…0348 at0025 = ╱2a╱*╱ // 0x335 @0x25
0x0310…0348 at0026 = ╱2a╱*╱ // 0x336 @0x26
0x0310…0348 at0027 = ╱2a╱*╱ // 0x337 @0x27
0x0310…0348 at0028 = ╱2a╱*╱ // 0x338 @0x28
0x0310…0348 at0029 = ╱2a╱*╱ // 0x339 @0x29
0x0310…0348 at002a = ╱2a╱*╱ // 0x33a @0x2a
0x0310…0348 at002b = ╱2a╱*╱ // 0x33b @0x2b
0x0310…0348 at002c = ╱2a╱*╱ // 0x33c @0x2c
0x0310…0348 at002d = ╱2a╱*╱ // 0x33d @0x2d
0x0310…0348 at002e = ╱2a╱*╱ // 0x33e @0x2e
0x0310…0348 at002f = ╱2a╱*╱ // 0x33f @0x2f
0x0310…0348 at0030 = ╱2a╱*╱ // 0x340 @0x30
0x0310…0348 at0031 = ╱2a╱*╱ // 0x341 @0x31
0x0310…0348 at0032 = ╱2a╱*╱ // 0x342 @0x32
0x0310…0348 at0033 = ╱2a╱*╱ // 0x343 @0x33
0x0310…0348 at0034 = ╱2a╱*╱ // 0x344 @0x34
0x0310…0348 at0035 = ╱2a╱*╱ // 0x345 @0x35
0x0310…0348 at0036 = ╱2a╱*╱ // 0x346 @0x36
0x0310…0348 at0037 = EOL // 0x347 @0x37
0x0310…0348 }
0x0348…0359 9947 0250 EXEC DIMENSIONER
0x0348…0359 LineComal80 {
0x0348…0359 ptr = 0x9947 // 0x348 @0x0
0x0348…0359 lno = 0x00fa // 0x34a @0x2
0x0348…0359 at0004 = ╱9d╱ EXEC ╱ // 0x34c @0x4
0x0348…0359 at0005 = ╱44╱D╱ // 0x34d @0x5
0x0348…0359 at0006 = ╱49╱I╱ // 0x34e @0x6
0x0348…0359 at0007 = ╱4d╱M╱ // 0x34f @0x7
0x0348…0359 at0008 = ╱45╱E╱ // 0x350 @0x8
0x0348…0359 at0009 = ╱4e╱N╱ // 0x351 @0x9
0x0348…0359 at000a = ╱53╱S╱ // 0x352 @0xa
0x0348…0359 at000b = ╱49╱I╱ // 0x353 @0xb
0x0348…0359 at000c = ╱4f╱O╱ // 0x354 @0xc
0x0348…0359 at000d = ╱4e╱N╱ // 0x355 @0xd
0x0348…0359 at000e = ╱45╱E╱ // 0x356 @0xe
0x0348…0359 at000f = ╱52╱R╱ // 0x357 @0xf
0x0348…0359 at0010 = EOL // 0x358 @0x10
0x0348…0359 }
0x0359…0366 9954 0260 EXEC INITIER
0x0359…0366 LineComal80 {
0x0359…0366 ptr = 0x9954 // 0x359 @0x0
0x0359…0366 lno = 0x0104 // 0x35b @0x2
0x0359…0366 at0004 = ╱9d╱ EXEC ╱ // 0x35d @0x4
0x0359…0366 at0005 = ╱49╱I╱ // 0x35e @0x5
0x0359…0366 at0006 = ╱4e╱N╱ // 0x35f @0x6
0x0359…0366 at0007 = ╱49╱I╱ // 0x360 @0x7
0x0359…0366 at0008 = ╱54╱T╱ // 0x361 @0x8
0x0359…0366 at0009 = ╱49╱I╱ // 0x362 @0x9
0x0359…0366 at000a = ╱45╱E╱ // 0x363 @0xa
0x0359…0366 at000b = ╱52╱R╱ // 0x364 @0xb
0x0359…0366 at000c = EOL // 0x365 @0xc
0x0359…0366 }
0x0366…0379 9967 0270 EXEC FUNKTIONSMENU
0x0366…0379 LineComal80 {
0x0366…0379 ptr = 0x9967 // 0x366 @0x0
0x0366…0379 lno = 0x010e // 0x368 @0x2
0x0366…0379 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0379 at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…0379 at0006 = ╱55╱U╱ // 0x36c @0x6
0x0366…0379 at0007 = ╱4e╱N╱ // 0x36d @0x7
0x0366…0379 at0008 = ╱4b╱K╱ // 0x36e @0x8
0x0366…0379 at0009 = ╱54╱T╱ // 0x36f @0x9
0x0366…0379 at000a = ╱49╱I╱ // 0x370 @0xa
0x0366…0379 at000b = ╱4f╱O╱ // 0x371 @0xb
0x0366…0379 at000c = ╱4e╱N╱ // 0x372 @0xc
0x0366…0379 at000d = ╱53╱S╱ // 0x373 @0xd
0x0366…0379 at000e = ╱4d╱M╱ // 0x374 @0xe
0x0366…0379 at000f = ╱45╱E╱ // 0x375 @0xf
0x0366…0379 at0010 = ╱4e╱N╱ // 0x376 @0x10
0x0366…0379 at0011 = ╱55╱U╱ // 0x377 @0x11
0x0366…0379 at0012 = EOL // 0x378 @0x12
0x0366…0379 }
0x0379…03ac 999a 0280 // =========== Procedurer starter ==============
0x0379…03ac LineComal80 {
0x0379…03ac ptr = 0x999a // 0x379 @0x0
0x0379…03ac lno = 0x0118 // 0x37b @0x2
0x0379…03ac at0004 = ╱89╱ // ╱ // 0x37d @0x4
0x0379…03ac at0005 = ╱3d╱=╱ // 0x37e @0x5
0x0379…03ac at0006 = ╱3d╱=╱ // 0x37f @0x6
0x0379…03ac at0007 = ╱3d╱=╱ // 0x380 @0x7
0x0379…03ac at0008 = ╱3d╱=╱ // 0x381 @0x8
0x0379…03ac at0009 = ╱3d╱=╱ // 0x382 @0x9
0x0379…03ac at000a = ╱3d╱=╱ // 0x383 @0xa
0x0379…03ac at000b = ╱3d╱=╱ // 0x384 @0xb
0x0379…03ac at000c = ╱3d╱=╱ // 0x385 @0xc
0x0379…03ac at000d = ╱3d╱=╱ // 0x386 @0xd
0x0379…03ac at000e = ╱3d╱=╱ // 0x387 @0xe
0x0379…03ac at000f = ╱3d╱=╱ // 0x388 @0xf
0x0379…03ac at0010 = ╱20╱…╱ // 0x389 @0x10
0x0379…03ac at0011 = ╱50╱P╱ // 0x38a @0x11
0x0379…03ac at0012 = ╱72╱r╱ // 0x38b @0x12
0x0379…03ac at0013 = ╱6f╱o╱ // 0x38c @0x13
0x0379…03ac at0014 = ╱63╱c╱ // 0x38d @0x14
0x0379…03ac at0015 = ╱65╱e╱ // 0x38e @0x15
0x0379…03ac at0016 = ╱64╱d╱ // 0x38f @0x16
0x0379…03ac at0017 = ╱75╱u╱ // 0x390 @0x17
0x0379…03ac at0018 = ╱72╱r╱ // 0x391 @0x18
0x0379…03ac at0019 = ╱65╱e╱ // 0x392 @0x19
0x0379…03ac at001a = ╱72╱r╱ // 0x393 @0x1a
0x0379…03ac at001b = ╱20╱…╱ // 0x394 @0x1b
0x0379…03ac at001c = ╱73╱s╱ // 0x395 @0x1c
0x0379…03ac at001d = ╱74╱t╱ // 0x396 @0x1d
0x0379…03ac at001e = ╱61╱a╱ // 0x397 @0x1e
0x0379…03ac at001f = ╱72╱r╱ // 0x398 @0x1f
0x0379…03ac at0020 = ╱74╱t╱ // 0x399 @0x20
0x0379…03ac at0021 = ╱65╱e╱ // 0x39a @0x21
0x0379…03ac at0022 = ╱72╱r╱ // 0x39b @0x22
0x0379…03ac at0023 = ╱20╱…╱ // 0x39c @0x23
0x0379…03ac at0024 = ╱3d╱=╱ // 0x39d @0x24
0x0379…03ac at0025 = ╱3d╱=╱ // 0x39e @0x25
0x0379…03ac at0026 = ╱3d╱=╱ // 0x39f @0x26
0x0379…03ac at0027 = ╱3d╱=╱ // 0x3a0 @0x27
0x0379…03ac at0028 = ╱3d╱=╱ // 0x3a1 @0x28
0x0379…03ac at0029 = ╱3d╱=╱ // 0x3a2 @0x29
0x0379…03ac at002a = ╱3d╱=╱ // 0x3a3 @0x2a
0x0379…03ac at002b = ╱3d╱=╱ // 0x3a4 @0x2b
0x0379…03ac at002c = ╱3d╱=╱ // 0x3a5 @0x2c
0x0379…03ac at002d = ╱3d╱=╱ // 0x3a6 @0x2d
0x0379…03ac at002e = ╱3d╱=╱ // 0x3a7 @0x2e
0x0379…03ac at002f = ╱3d╱=╱ // 0x3a8 @0x2f
0x0379…03ac at0030 = ╱3d╱=╱ // 0x3a9 @0x30
0x0379…03ac at0031 = ╱3d╱=╱ // 0x3aa @0x31
0x0379…03ac at0032 = EOL // 0x3ab @0x32
0x0379…03ac }
0x03ac…03be 99ac 0290 PROC DIMENSIONER
0x03ac…03be LineComal80 {
0x03ac…03be ptr = 0x99ac // 0x3ac @0x0
0x03ac…03be lno = 0x0122 // 0x3ae @0x2
0x03ac…03be at0004 = ╱9e01╱ PROC ╱ // 0x3b0 @0x4
0x03ac…03be at0006 = ╱44╱D╱ // 0x3b2 @0x6
0x03ac…03be at0007 = ╱49╱I╱ // 0x3b3 @0x7
0x03ac…03be at0008 = ╱4d╱M╱ // 0x3b4 @0x8
0x03ac…03be at0009 = ╱45╱E╱ // 0x3b5 @0x9
0x03ac…03be at000a = ╱4e╱N╱ // 0x3b6 @0xa
0x03ac…03be at000b = ╱53╱S╱ // 0x3b7 @0xb
0x03ac…03be at000c = ╱49╱I╱ // 0x3b8 @0xc
0x03ac…03be at000d = ╱4f╱O╱ // 0x3b9 @0xd
0x03ac…03be at000e = ╱4e╱N╱ // 0x3ba @0xe
0x03ac…03be at000f = ╱45╱E╱ // 0x3bb @0xf
0x03ac…03be at0010 = ╱52╱R╱ // 0x3bc @0x10
0x03ac…03be at0011 = EOL // 0x3bd @0x11
0x03ac…03be }
0x03be…03d5 99c3 0300 // Standard variable
0x03be…03d5 LineComal80 {
0x03be…03d5 ptr = 0x99c3 // 0x3be @0x0
0x03be…03d5 lno = 0x012c // 0x3c0 @0x2
0x03be…03d5 at0004 = ╱89╱ // ╱ // 0x3c2 @0x4
0x03be…03d5 at0005 = ╱53╱S╱ // 0x3c3 @0x5
0x03be…03d5 at0006 = ╱74╱t╱ // 0x3c4 @0x6
0x03be…03d5 at0007 = ╱61╱a╱ // 0x3c5 @0x7
0x03be…03d5 at0008 = ╱6e╱n╱ // 0x3c6 @0x8
0x03be…03d5 at0009 = ╱64╱d╱ // 0x3c7 @0x9
0x03be…03d5 at000a = ╱61╱a╱ // 0x3c8 @0xa
0x03be…03d5 at000b = ╱72╱r╱ // 0x3c9 @0xb
0x03be…03d5 at000c = ╱64╱d╱ // 0x3ca @0xc
0x03be…03d5 at000d = ╱20╱…╱ // 0x3cb @0xd
0x03be…03d5 at000e = ╱76╱v╱ // 0x3cc @0xe
0x03be…03d5 at000f = ╱61╱a╱ // 0x3cd @0xf
0x03be…03d5 at0010 = ╱72╱r╱ // 0x3ce @0x10
0x03be…03d5 at0011 = ╱69╱i╱ // 0x3cf @0x11
0x03be…03d5 at0012 = ╱61╱a╱ // 0x3d0 @0x12
0x03be…03d5 at0013 = ╱62╱b╱ // 0x3d1 @0x13
0x03be…03d5 at0014 = ╱6c╱l╱ // 0x3d2 @0x14
0x03be…03d5 at0015 = ╱65╱e╱ // 0x3d3 @0x15
0x03be…03d5 at0016 = EOL // 0x3d4 @0x16
0x03be…03d5 }
0x03d5…0414 9a02 0310 DIM SPC$ OF 80,SVAR$ OF 10,PRGFL$ OF 8,ALFA$ OF 28,TAL$ OF 10
0x03d5…0414 LineComal80 {
0x03d5…0414 ptr = 0x9a02 // 0x3d5 @0x0
0x03d5…0414 lno = 0x0136 // 0x3d7 @0x2
0x03d5…0414 at0004 = ╱87╱ DIM ╱ // 0x3d9 @0x4
0x03d5…0414 at0005 = ╱53╱S╱ // 0x3da @0x5
0x03d5…0414 at0006 = ╱50╱P╱ // 0x3db @0x6
0x03d5…0414 at0007 = ╱43╱C╱ // 0x3dc @0x7
0x03d5…0414 at0008 = ╱ef╱$╱ // 0x3dd @0x8
0x03d5…0414 at0009 = ╱ba╱ OF ╱ // 0x3de @0x9
0x03d5…0414 at000a = ╱38╱8╱ // 0x3df @0xa
0x03d5…0414 at000b = ╱30╱0╱ // 0x3e0 @0xb
0x03d5…0414 at000c = ╱f25000╱ // 0x3e1 @0xc
0x03d5…0414 at000f = ╱ec╱,╱ // 0x3e4 @0xf
0x03d5…0414 at0010 = ╱53╱S╱ // 0x3e5 @0x10
0x03d5…0414 at0011 = ╱56╱V╱ // 0x3e6 @0x11
0x03d5…0414 at0012 = ╱41╱A╱ // 0x3e7 @0x12
0x03d5…0414 at0013 = ╱52╱R╱ // 0x3e8 @0x13
0x03d5…0414 at0014 = ╱ef╱$╱ // 0x3e9 @0x14
0x03d5…0414 at0015 = ╱ba╱ OF ╱ // 0x3ea @0x15
0x03d5…0414 at0016 = ╱31╱1╱ // 0x3eb @0x16
0x03d5…0414 at0017 = ╱30╱0╱ // 0x3ec @0x17
0x03d5…0414 at0018 = ╱f20a00╱ // 0x3ed @0x18
0x03d5…0414 at001b = ╱ec╱,╱ // 0x3f0 @0x1b
0x03d5…0414 at001c = ╱50╱P╱ // 0x3f1 @0x1c
0x03d5…0414 at001d = ╱52╱R╱ // 0x3f2 @0x1d
0x03d5…0414 at001e = ╱47╱G╱ // 0x3f3 @0x1e
0x03d5…0414 at001f = ╱46╱F╱ // 0x3f4 @0x1f
0x03d5…0414 at0020 = ╱4c╱L╱ // 0x3f5 @0x20
0x03d5…0414 at0021 = ╱ef╱$╱ // 0x3f6 @0x21
0x03d5…0414 at0022 = ╱ba╱ OF ╱ // 0x3f7 @0x22
0x03d5…0414 at0023 = ╱38╱8╱ // 0x3f8 @0x23
0x03d5…0414 at0024 = ╱f20800╱ // 0x3f9 @0x24
0x03d5…0414 at0027 = ╱ec╱,╱ // 0x3fc @0x27
0x03d5…0414 at0028 = ╱41╱A╱ // 0x3fd @0x28
0x03d5…0414 at0029 = ╱4c╱L╱ // 0x3fe @0x29
0x03d5…0414 at002a = ╱46╱F╱ // 0x3ff @0x2a
0x03d5…0414 at002b = ╱41╱A╱ // 0x400 @0x2b
0x03d5…0414 at002c = ╱ef╱$╱ // 0x401 @0x2c
0x03d5…0414 at002d = ╱ba╱ OF ╱ // 0x402 @0x2d
0x03d5…0414 at002e = ╱32╱2╱ // 0x403 @0x2e
0x03d5…0414 at002f = ╱38╱8╱ // 0x404 @0x2f
0x03d5…0414 at0030 = ╱f21c00╱ // 0x405 @0x30
0x03d5…0414 at0033 = ╱ec╱,╱ // 0x408 @0x33
0x03d5…0414 at0034 = ╱54╱T╱ // 0x409 @0x34
0x03d5…0414 at0035 = ╱41╱A╱ // 0x40a @0x35
0x03d5…0414 at0036 = ╱4c╱L╱ // 0x40b @0x36
0x03d5…0414 at0037 = ╱ef╱$╱ // 0x40c @0x37
0x03d5…0414 at0038 = ╱ba╱ OF ╱ // 0x40d @0x38
0x03d5…0414 at0039 = ╱31╱1╱ // 0x40e @0x39
0x03d5…0414 at003a = ╱30╱0╱ // 0x40f @0x3a
0x03d5…0414 at003b = ╱f20a00╱ // 0x410 @0x3b
0x03d5…0414 at003e = EOL // 0x413 @0x3e
0x03d5…0414 }
0x0414…0434 9a22 0320 DIM PROGRAM$ OF 17,PRTNR$ OF 1
0x0414…0434 LineComal80 {
0x0414…0434 ptr = 0x9a22 // 0x414 @0x0
0x0414…0434 lno = 0x0140 // 0x416 @0x2
0x0414…0434 at0004 = ╱87╱ DIM ╱ // 0x418 @0x4
0x0414…0434 at0005 = ╱50╱P╱ // 0x419 @0x5
0x0414…0434 at0006 = ╱52╱R╱ // 0x41a @0x6
0x0414…0434 at0007 = ╱4f╱O╱ // 0x41b @0x7
0x0414…0434 at0008 = ╱47╱G╱ // 0x41c @0x8
0x0414…0434 at0009 = ╱52╱R╱ // 0x41d @0x9
0x0414…0434 at000a = ╱41╱A╱ // 0x41e @0xa
0x0414…0434 at000b = ╱4d╱M╱ // 0x41f @0xb
0x0414…0434 at000c = ╱ef╱$╱ // 0x420 @0xc
0x0414…0434 at000d = ╱ba╱ OF ╱ // 0x421 @0xd
0x0414…0434 at000e = ╱31╱1╱ // 0x422 @0xe
0x0414…0434 at000f = ╱37╱7╱ // 0x423 @0xf
0x0414…0434 at0010 = ╱f21100╱ // 0x424 @0x10
0x0414…0434 at0013 = ╱ec╱,╱ // 0x427 @0x13
0x0414…0434 at0014 = ╱50╱P╱ // 0x428 @0x14
0x0414…0434 at0015 = ╱52╱R╱ // 0x429 @0x15
0x0414…0434 at0016 = ╱54╱T╱ // 0x42a @0x16
0x0414…0434 at0017 = ╱4e╱N╱ // 0x42b @0x17
0x0414…0434 at0018 = ╱52╱R╱ // 0x42c @0x18
0x0414…0434 at0019 = ╱ef╱$╱ // 0x42d @0x19
0x0414…0434 at001a = ╱ba╱ OF ╱ // 0x42e @0x1a
0x0414…0434 at001b = ╱31╱1╱ // 0x42f @0x1b
0x0414…0434 at001c = ╱f20100╱ // 0x430 @0x1c
0x0414…0434 at001f = EOL // 0x433 @0x1f
0x0414…0434 }
0x0434…0444 9a32 0330 REAL RESRV,PPAR
0x0434…0444 LineComal80 {
0x0434…0444 ptr = 0x9a32 // 0x434 @0x0
0x0434…0444 lno = 0x014a // 0x436 @0x2
0x0434…0444 at0004 = ╱b3╱ REAL ╱ // 0x438 @0x4
0x0434…0444 at0005 = ╱52╱R╱ // 0x439 @0x5
0x0434…0444 at0006 = ╱45╱E╱ // 0x43a @0x6
0x0434…0444 at0007 = ╱53╱S╱ // 0x43b @0x7
0x0434…0444 at0008 = ╱52╱R╱ // 0x43c @0x8
0x0434…0444 at0009 = ╱56╱V╱ // 0x43d @0x9
0x0434…0444 at000a = ╱ec╱,╱ // 0x43e @0xa
0x0434…0444 at000b = ╱50╱P╱ // 0x43f @0xb
0x0434…0444 at000c = ╱50╱P╱ // 0x440 @0xc
0x0434…0444 at000d = ╱41╱A╱ // 0x441 @0xd
0x0434…0444 at000e = ╱52╱R╱ // 0x442 @0xe
0x0434…0444 at000f = EOL // 0x443 @0xf
0x0434…0444 }
0x0444…045d 9a4b 0340 INTEGER OK,TRUE,FALSE,I,J,K
0x0444…045d LineComal80 {
0x0444…045d ptr = 0x9a4b // 0x444 @0x0
0x0444…045d lno = 0x0154 // 0x446 @0x2
0x0444…045d at0004 = ╱b2╱ INTEGER ╱ // 0x448 @0x4
0x0444…045d at0005 = ╱4f╱O╱ // 0x449 @0x5
0x0444…045d at0006 = ╱4b╱K╱ // 0x44a @0x6
0x0444…045d at0007 = ╱ec╱,╱ // 0x44b @0x7
0x0444…045d at0008 = ╱54╱T╱ // 0x44c @0x8
0x0444…045d at0009 = ╱52╱R╱ // 0x44d @0x9
0x0444…045d at000a = ╱55╱U╱ // 0x44e @0xa
0x0444…045d at000b = ╱45╱E╱ // 0x44f @0xb
0x0444…045d at000c = ╱ec╱,╱ // 0x450 @0xc
0x0444…045d at000d = ╱46╱F╱ // 0x451 @0xd
0x0444…045d at000e = ╱41╱A╱ // 0x452 @0xe
0x0444…045d at000f = ╱4c╱L╱ // 0x453 @0xf
0x0444…045d at0010 = ╱53╱S╱ // 0x454 @0x10
0x0444…045d at0011 = ╱45╱E╱ // 0x455 @0x11
0x0444…045d at0012 = ╱ec╱,╱ // 0x456 @0x12
0x0444…045d at0013 = ╱49╱I╱ // 0x457 @0x13
0x0444…045d at0014 = ╱ec╱,╱ // 0x458 @0x14
0x0444…045d at0015 = ╱4a╱J╱ // 0x459 @0x15
0x0444…045d at0016 = ╱ec╱,╱ // 0x45a @0x16
0x0444…045d at0017 = ╱4b╱K╱ // 0x45b @0x17
0x0444…045d at0018 = EOL // 0x45c @0x18
0x0444…045d }
0x045d…0471 9a5f 0350 // Hjælpevariable
0x045d…0471 LineComal80 {
0x045d…0471 ptr = 0x9a5f // 0x45d @0x0
0x045d…0471 lno = 0x015e // 0x45f @0x2
0x045d…0471 at0004 = ╱89╱ // ╱ // 0x461 @0x4
0x045d…0471 at0005 = ╱48╱H╱ // 0x462 @0x5
0x045d…0471 at0006 = ╱6a╱j╱ // 0x463 @0x6
0x045d…0471 at0007 = ╱7b╱æ╱ // 0x464 @0x7
0x045d…0471 at0008 = ╱6c╱l╱ // 0x465 @0x8
0x045d…0471 at0009 = ╱70╱p╱ // 0x466 @0x9
0x045d…0471 at000a = ╱65╱e╱ // 0x467 @0xa
0x045d…0471 at000b = ╱76╱v╱ // 0x468 @0xb
0x045d…0471 at000c = ╱61╱a╱ // 0x469 @0xc
0x045d…0471 at000d = ╱72╱r╱ // 0x46a @0xd
0x045d…0471 at000e = ╱69╱i╱ // 0x46b @0xe
0x045d…0471 at000f = ╱61╱a╱ // 0x46c @0xf
0x045d…0471 at0010 = ╱62╱b╱ // 0x46d @0x10
0x045d…0471 at0011 = ╱6c╱l╱ // 0x46e @0x11
0x045d…0471 at0012 = ╱65╱e╱ // 0x46f @0x12
0x045d…0471 at0013 = EOL // 0x470 @0x13
0x045d…0471 }
0x0471…0480 9a6e 0360 REAL TOT(6)
0x0471…0480 LineComal80 {
0x0471…0480 ptr = 0x9a6e // 0x471 @0x0
0x0471…0480 lno = 0x0168 // 0x473 @0x2
0x0471…0480 at0004 = ╱b3╱ REAL ╱ // 0x475 @0x4
0x0471…0480 at0005 = ╱54╱T╱ // 0x476 @0x5
0x0471…0480 at0006 = ╱4f╱O╱ // 0x477 @0x6
0x0471…0480 at0007 = ╱54╱T╱ // 0x478 @0x7
0x0471…0480 at0008 = ╱ed╱(╱ // 0x479 @0x8
0x0471…0480 at0009 = ╱36╱6╱ // 0x47a @0x9
0x0471…0480 at000a = ╱f20600╱ // 0x47b @0xa
0x0471…0480 at000d = ╱ee╱)╱ // 0x47e @0xd
0x0471…0480 at000e = EOL // 0x47f @0xe
0x0471…0480 }
0x0480…04c1 9aaf 0370 INTEGER A_POST,HIGH,LOW,POS,IDXPOS,KREDIT,DEBET,LIN_T,MAX_LIN,T_IDX
0x0480…04c1 LineComal80 {
0x0480…04c1 ptr = 0x9aaf // 0x480 @0x0
0x0480…04c1 lno = 0x0172 // 0x482 @0x2
0x0480…04c1 at0004 = ╱b2╱ INTEGER ╱ // 0x484 @0x4
0x0480…04c1 at0005 = ╱41╱A╱ // 0x485 @0x5
0x0480…04c1 at0006 = ╱5f╱_╱ // 0x486 @0x6
0x0480…04c1 at0007 = ╱50╱P╱ // 0x487 @0x7
0x0480…04c1 at0008 = ╱4f╱O╱ // 0x488 @0x8
0x0480…04c1 at0009 = ╱53╱S╱ // 0x489 @0x9
0x0480…04c1 at000a = ╱54╱T╱ // 0x48a @0xa
0x0480…04c1 at000b = ╱ec╱,╱ // 0x48b @0xb
0x0480…04c1 at000c = ╱48╱H╱ // 0x48c @0xc
0x0480…04c1 at000d = ╱49╱I╱ // 0x48d @0xd
0x0480…04c1 at000e = ╱47╱G╱ // 0x48e @0xe
0x0480…04c1 at000f = ╱48╱H╱ // 0x48f @0xf
0x0480…04c1 at0010 = ╱ec╱,╱ // 0x490 @0x10
0x0480…04c1 at0011 = ╱4c╱L╱ // 0x491 @0x11
0x0480…04c1 at0012 = ╱4f╱O╱ // 0x492 @0x12
0x0480…04c1 at0013 = ╱57╱W╱ // 0x493 @0x13
0x0480…04c1 at0014 = ╱ec╱,╱ // 0x494 @0x14
0x0480…04c1 at0015 = ╱50╱P╱ // 0x495 @0x15
0x0480…04c1 at0016 = ╱4f╱O╱ // 0x496 @0x16
0x0480…04c1 at0017 = ╱53╱S╱ // 0x497 @0x17
0x0480…04c1 at0018 = ╱ec╱,╱ // 0x498 @0x18
0x0480…04c1 at0019 = ╱49╱I╱ // 0x499 @0x19
0x0480…04c1 at001a = ╱44╱D╱ // 0x49a @0x1a
0x0480…04c1 at001b = ╱58╱X╱ // 0x49b @0x1b
0x0480…04c1 at001c = ╱50╱P╱ // 0x49c @0x1c
0x0480…04c1 at001d = ╱4f╱O╱ // 0x49d @0x1d
0x0480…04c1 at001e = ╱53╱S╱ // 0x49e @0x1e
0x0480…04c1 at001f = ╱ec╱,╱ // 0x49f @0x1f
0x0480…04c1 at0020 = ╱4b╱K╱ // 0x4a0 @0x20
0x0480…04c1 at0021 = ╱52╱R╱ // 0x4a1 @0x21
0x0480…04c1 at0022 = ╱45╱E╱ // 0x4a2 @0x22
0x0480…04c1 at0023 = ╱44╱D╱ // 0x4a3 @0x23
0x0480…04c1 at0024 = ╱49╱I╱ // 0x4a4 @0x24
0x0480…04c1 at0025 = ╱54╱T╱ // 0x4a5 @0x25
0x0480…04c1 at0026 = ╱ec╱,╱ // 0x4a6 @0x26
0x0480…04c1 at0027 = ╱44╱D╱ // 0x4a7 @0x27
0x0480…04c1 at0028 = ╱45╱E╱ // 0x4a8 @0x28
0x0480…04c1 at0029 = ╱42╱B╱ // 0x4a9 @0x29
0x0480…04c1 at002a = ╱45╱E╱ // 0x4aa @0x2a
0x0480…04c1 at002b = ╱54╱T╱ // 0x4ab @0x2b
0x0480…04c1 at002c = ╱ec╱,╱ // 0x4ac @0x2c
0x0480…04c1 at002d = ╱4c╱L╱ // 0x4ad @0x2d
0x0480…04c1 at002e = ╱49╱I╱ // 0x4ae @0x2e
0x0480…04c1 at002f = ╱4e╱N╱ // 0x4af @0x2f
0x0480…04c1 at0030 = ╱5f╱_╱ // 0x4b0 @0x30
0x0480…04c1 at0031 = ╱54╱T╱ // 0x4b1 @0x31
0x0480…04c1 at0032 = ╱ec╱,╱ // 0x4b2 @0x32
0x0480…04c1 at0033 = ╱4d╱M╱ // 0x4b3 @0x33
0x0480…04c1 at0034 = ╱41╱A╱ // 0x4b4 @0x34
0x0480…04c1 at0035 = ╱58╱X╱ // 0x4b5 @0x35
0x0480…04c1 at0036 = ╱5f╱_╱ // 0x4b6 @0x36
0x0480…04c1 at0037 = ╱4c╱L╱ // 0x4b7 @0x37
0x0480…04c1 at0038 = ╱49╱I╱ // 0x4b8 @0x38
0x0480…04c1 at0039 = ╱4e╱N╱ // 0x4b9 @0x39
0x0480…04c1 at003a = ╱ec╱,╱ // 0x4ba @0x3a
0x0480…04c1 at003b = ╱54╱T╱ // 0x4bb @0x3b
0x0480…04c1 at003c = ╱5f╱_╱ // 0x4bc @0x3c
0x0480…04c1 at003d = ╱49╱I╱ // 0x4bd @0x3d
0x0480…04c1 at003e = ╱44╱D╱ // 0x4be @0x3e
0x0480…04c1 at003f = ╱58╱X╱ // 0x4bf @0x3f
0x0480…04c1 at0040 = EOL // 0x4c0 @0x40
0x0480…04c1 }
0x04c1…04e1 9acf 0380 // Variable til filen SYSPARA
0x04c1…04e1 LineComal80 {
0x04c1…04e1 ptr = 0x9acf // 0x4c1 @0x0
0x04c1…04e1 lno = 0x017c // 0x4c3 @0x2
0x04c1…04e1 at0004 = ╱89╱ // ╱ // 0x4c5 @0x4
0x04c1…04e1 at0005 = ╱56╱V╱ // 0x4c6 @0x5
0x04c1…04e1 at0006 = ╱61╱a╱ // 0x4c7 @0x6
0x04c1…04e1 at0007 = ╱72╱r╱ // 0x4c8 @0x7
0x04c1…04e1 at0008 = ╱69╱i╱ // 0x4c9 @0x8
0x04c1…04e1 at0009 = ╱61╱a╱ // 0x4ca @0x9
0x04c1…04e1 at000a = ╱62╱b╱ // 0x4cb @0xa
0x04c1…04e1 at000b = ╱6c╱l╱ // 0x4cc @0xb
0x04c1…04e1 at000c = ╱65╱e╱ // 0x4cd @0xc
0x04c1…04e1 at000d = ╱20╱…╱ // 0x4ce @0xd
0x04c1…04e1 at000e = ╱74╱t╱ // 0x4cf @0xe
0x04c1…04e1 at000f = ╱69╱i╱ // 0x4d0 @0xf
0x04c1…04e1 at0010 = ╱6c╱l╱ // 0x4d1 @0x10
0x04c1…04e1 at0011 = ╱20╱…╱ // 0x4d2 @0x11
0x04c1…04e1 at0012 = ╱66╱f╱ // 0x4d3 @0x12
0x04c1…04e1 at0013 = ╱69╱i╱ // 0x4d4 @0x13
0x04c1…04e1 at0014 = ╱6c╱l╱ // 0x4d5 @0x14
0x04c1…04e1 at0015 = ╱65╱e╱ // 0x4d6 @0x15
0x04c1…04e1 at0016 = ╱6e╱n╱ // 0x4d7 @0x16
0x04c1…04e1 at0017 = ╱20╱…╱ // 0x4d8 @0x17
0x04c1…04e1 at0018 = ╱53╱S╱ // 0x4d9 @0x18
0x04c1…04e1 at0019 = ╱59╱Y╱ // 0x4da @0x19
0x04c1…04e1 at001a = ╱53╱S╱ // 0x4db @0x1a
0x04c1…04e1 at001b = ╱50╱P╱ // 0x4dc @0x1b
0x04c1…04e1 at001c = ╱41╱A╱ // 0x4dd @0x1c
0x04c1…04e1 at001d = ╱52╱R╱ // 0x4de @0x1d
0x04c1…04e1 at001e = ╱41╱A╱ // 0x4df @0x1e
0x04c1…04e1 at001f = EOL // 0x4e0 @0x1f
0x04c1…04e1 }
0x04e1…04f5 9ae3 0390 DIM SYSPARA$ OF 17
0x04e1…04f5 LineComal80 {
0x04e1…04f5 ptr = 0x9ae3 // 0x4e1 @0x0
0x04e1…04f5 lno = 0x0186 // 0x4e3 @0x2
0x04e1…04f5 at0004 = ╱87╱ DIM ╱ // 0x4e5 @0x4
0x04e1…04f5 at0005 = ╱53╱S╱ // 0x4e6 @0x5
0x04e1…04f5 at0006 = ╱59╱Y╱ // 0x4e7 @0x6
0x04e1…04f5 at0007 = ╱53╱S╱ // 0x4e8 @0x7
0x04e1…04f5 at0008 = ╱50╱P╱ // 0x4e9 @0x8
0x04e1…04f5 at0009 = ╱41╱A╱ // 0x4ea @0x9
0x04e1…04f5 at000a = ╱52╱R╱ // 0x4eb @0xa
0x04e1…04f5 at000b = ╱41╱A╱ // 0x4ec @0xb
0x04e1…04f5 at000c = ╱ef╱$╱ // 0x4ed @0xc
0x04e1…04f5 at000d = ╱ba╱ OF ╱ // 0x4ee @0xd
0x04e1…04f5 at000e = ╱31╱1╱ // 0x4ef @0xe
0x04e1…04f5 at000f = ╱37╱7╱ // 0x4f0 @0xf
0x04e1…04f5 at0010 = ╱f21100╱ // 0x4f1 @0x10
0x04e1…04f5 at0013 = EOL // 0x4f4 @0x13
0x04e1…04f5 }
0x04f5…0518 9b06 0400 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0x04f5…0518 LineComal80 {
0x04f5…0518 ptr = 0x9b06 // 0x4f5 @0x0
0x04f5…0518 lno = 0x0190 // 0x4f7 @0x2
0x04f5…0518 at0004 = ╱87╱ DIM ╱ // 0x4f9 @0x4
0x04f5…0518 at0005 = ╱53╱S╱ // 0x4fa @0x5
0x04f5…0518 at0006 = ╱59╱Y╱ // 0x4fb @0x6
0x04f5…0518 at0007 = ╱53╱S╱ // 0x4fc @0x7
0x04f5…0518 at0008 = ╱54╱T╱ // 0x4fd @0x8
0x04f5…0518 at0009 = ╱5f╱_╱ // 0x4fe @0x9
0x04f5…0518 at000a = ╱4e╱N╱ // 0x4ff @0xa
0x04f5…0518 at000b = ╱41╱A╱ // 0x500 @0xb
0x04f5…0518 at000c = ╱56╱V╱ // 0x501 @0xc
0x04f5…0518 at000d = ╱4e╱N╱ // 0x502 @0xd
0x04f5…0518 at000e = ╱ef╱$╱ // 0x503 @0xe
0x04f5…0518 at000f = ╱ba╱ OF ╱ // 0x504 @0xf
0x04f5…0518 at0010 = ╱33╱3╱ // 0x505 @0x10
0x04f5…0518 at0011 = ╱30╱0╱ // 0x506 @0x11
0x04f5…0518 at0012 = ╱f21e00╱ // 0x507 @0x12
0x04f5…0518 at0015 = ╱ec╱,╱ // 0x50a @0x15
0x04f5…0518 at0016 = ╱53╱S╱ // 0x50b @0x16
0x04f5…0518 at0017 = ╱5f╱_╱ // 0x50c @0x17
0x04f5…0518 at0018 = ╱4b╱K╱ // 0x50d @0x18
0x04f5…0518 at0019 = ╱4f╱O╱ // 0x50e @0x19
0x04f5…0518 at001a = ╱44╱D╱ // 0x50f @0x1a
0x04f5…0518 at001b = ╱45╱E╱ // 0x510 @0x1b
0x04f5…0518 at001c = ╱ef╱$╱ // 0x511 @0x1c
0x04f5…0518 at001d = ╱ba╱ OF ╱ // 0x512 @0x1d
0x04f5…0518 at001e = ╱31╱1╱ // 0x513 @0x1e
0x04f5…0518 at001f = ╱f20100╱ // 0x514 @0x1f
0x04f5…0518 at0022 = EOL // 0x517 @0x22
0x04f5…0518 }
0x0518…0537 9b25 0410 DIM DATAFL$ OF 8,T_KODE$ OF 1
0x0518…0537 LineComal80 {
0x0518…0537 ptr = 0x9b25 // 0x518 @0x0
0x0518…0537 lno = 0x019a // 0x51a @0x2
0x0518…0537 at0004 = ╱87╱ DIM ╱ // 0x51c @0x4
0x0518…0537 at0005 = ╱44╱D╱ // 0x51d @0x5
0x0518…0537 at0006 = ╱41╱A╱ // 0x51e @0x6
0x0518…0537 at0007 = ╱54╱T╱ // 0x51f @0x7
0x0518…0537 at0008 = ╱41╱A╱ // 0x520 @0x8
0x0518…0537 at0009 = ╱46╱F╱ // 0x521 @0x9
0x0518…0537 at000a = ╱4c╱L╱ // 0x522 @0xa
0x0518…0537 at000b = ╱ef╱$╱ // 0x523 @0xb
0x0518…0537 at000c = ╱ba╱ OF ╱ // 0x524 @0xc
0x0518…0537 at000d = ╱38╱8╱ // 0x525 @0xd
0x0518…0537 at000e = ╱f20800╱ // 0x526 @0xe
0x0518…0537 at0011 = ╱ec╱,╱ // 0x529 @0x11
0x0518…0537 at0012 = ╱54╱T╱ // 0x52a @0x12
0x0518…0537 at0013 = ╱5f╱_╱ // 0x52b @0x13
0x0518…0537 at0014 = ╱4b╱K╱ // 0x52c @0x14
0x0518…0537 at0015 = ╱4f╱O╱ // 0x52d @0x15
0x0518…0537 at0016 = ╱44╱D╱ // 0x52e @0x16
0x0518…0537 at0017 = ╱45╱E╱ // 0x52f @0x17
0x0518…0537 at0018 = ╱ef╱$╱ // 0x530 @0x18
0x0518…0537 at0019 = ╱ba╱ OF ╱ // 0x531 @0x19
0x0518…0537 at001a = ╱31╱1╱ // 0x532 @0x1a
0x0518…0537 at001b = ╱f20100╱ // 0x533 @0x1b
0x0518…0537 at001e = EOL // 0x536 @0x1e
0x0518…0537 }
0x0537…0557 9b45 0420 // Variable til filen @@PARAM
0x0537…0557 LineComal80 {
0x0537…0557 ptr = 0x9b45 // 0x537 @0x0
0x0537…0557 lno = 0x01a4 // 0x539 @0x2
0x0537…0557 at0004 = ╱89╱ // ╱ // 0x53b @0x4
0x0537…0557 at0005 = ╱56╱V╱ // 0x53c @0x5
0x0537…0557 at0006 = ╱61╱a╱ // 0x53d @0x6
0x0537…0557 at0007 = ╱72╱r╱ // 0x53e @0x7
0x0537…0557 at0008 = ╱69╱i╱ // 0x53f @0x8
0x0537…0557 at0009 = ╱61╱a╱ // 0x540 @0x9
0x0537…0557 at000a = ╱62╱b╱ // 0x541 @0xa
0x0537…0557 at000b = ╱6c╱l╱ // 0x542 @0xb
0x0537…0557 at000c = ╱65╱e╱ // 0x543 @0xc
0x0537…0557 at000d = ╱20╱…╱ // 0x544 @0xd
0x0537…0557 at000e = ╱74╱t╱ // 0x545 @0xe
0x0537…0557 at000f = ╱69╱i╱ // 0x546 @0xf
0x0537…0557 at0010 = ╱6c╱l╱ // 0x547 @0x10
0x0537…0557 at0011 = ╱20╱…╱ // 0x548 @0x11
0x0537…0557 at0012 = ╱66╱f╱ // 0x549 @0x12
0x0537…0557 at0013 = ╱69╱i╱ // 0x54a @0x13
0x0537…0557 at0014 = ╱6c╱l╱ // 0x54b @0x14
0x0537…0557 at0015 = ╱65╱e╱ // 0x54c @0x15
0x0537…0557 at0016 = ╱6e╱n╱ // 0x54d @0x16
0x0537…0557 at0017 = ╱20╱…╱ // 0x54e @0x17
0x0537…0557 at0018 = ╱40╱@╱ // 0x54f @0x18
0x0537…0557 at0019 = ╱40╱@╱ // 0x550 @0x19
0x0537…0557 at001a = ╱50╱P╱ // 0x551 @0x1a
0x0537…0557 at001b = ╱41╱A╱ // 0x552 @0x1b
0x0537…0557 at001c = ╱52╱R╱ // 0x553 @0x1c
0x0537…0557 at001d = ╱41╱A╱ // 0x554 @0x1d
0x0537…0557 at001e = ╱4d╱M╱ // 0x555 @0x1e
0x0537…0557 at001f = EOL // 0x556 @0x1f
0x0537…0557 }
0x0557…0569 9b57 0430 DIM PARAM$ OF 17
0x0557…0569 LineComal80 {
0x0557…0569 ptr = 0x9b57 // 0x557 @0x0
0x0557…0569 lno = 0x01ae // 0x559 @0x2
0x0557…0569 at0004 = ╱87╱ DIM ╱ // 0x55b @0x4
0x0557…0569 at0005 = ╱50╱P╱ // 0x55c @0x5
0x0557…0569 at0006 = ╱41╱A╱ // 0x55d @0x6
0x0557…0569 at0007 = ╱52╱R╱ // 0x55e @0x7
0x0557…0569 at0008 = ╱41╱A╱ // 0x55f @0x8
0x0557…0569 at0009 = ╱4d╱M╱ // 0x560 @0x9
0x0557…0569 at000a = ╱ef╱$╱ // 0x561 @0xa
0x0557…0569 at000b = ╱ba╱ OF ╱ // 0x562 @0xb
0x0557…0569 at000c = ╱31╱1╱ // 0x563 @0xc
0x0557…0569 at000d = ╱37╱7╱ // 0x564 @0xd
0x0557…0569 at000e = ╱f21100╱ // 0x565 @0xe
0x0557…0569 at0011 = EOL // 0x568 @0x11
0x0557…0569 }
0x0569…058e 9b7c 0440 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0x0569…058e LineComal80 {
0x0569…058e ptr = 0x9b7c // 0x569 @0x0
0x0569…058e lno = 0x01b8 // 0x56b @0x2
0x0569…058e at0004 = ╱87╱ DIM ╱ // 0x56d @0x4
0x0569…058e at0005 = ╱46╱F╱ // 0x56e @0x5
0x0569…058e at0006 = ╱49╱I╱ // 0x56f @0x6
0x0569…058e at0007 = ╱52╱R╱ // 0x570 @0x7
0x0569…058e at0008 = ╱4d╱M╱ // 0x571 @0x8
0x0569…058e at0009 = ╱41╱A╱ // 0x572 @0x9
0x0569…058e at000a = ╱4e╱N╱ // 0x573 @0xa
0x0569…058e at000b = ╱41╱A╱ // 0x574 @0xb
0x0569…058e at000c = ╱56╱V╱ // 0x575 @0xc
0x0569…058e at000d = ╱4e╱N╱ // 0x576 @0xd
0x0569…058e at000e = ╱ef╱$╱ // 0x577 @0xe
0x0569…058e at000f = ╱ba╱ OF ╱ // 0x578 @0xf
0x0569…058e at0010 = ╱33╱3╱ // 0x579 @0x10
0x0569…058e at0011 = ╱30╱0╱ // 0x57a @0x11
0x0569…058e at0012 = ╱f21e00╱ // 0x57b @0x12
0x0569…058e at0015 = ╱ec╱,╱ // 0x57e @0x15
0x0569…058e at0016 = ╱53╱S╱ // 0x57f @0x16
0x0569…058e at0017 = ╱59╱Y╱ // 0x580 @0x17
0x0569…058e at0018 = ╱53╱S╱ // 0x581 @0x18
0x0569…058e at0019 = ╱54╱T╱ // 0x582 @0x19
0x0569…058e at001a = ╱5f╱_╱ // 0x583 @0x1a
0x0569…058e at001b = ╱44╱D╱ // 0x584 @0x1b
0x0569…058e at001c = ╱41╱A╱ // 0x585 @0x1c
0x0569…058e at001d = ╱54╱T╱ // 0x586 @0x1d
0x0569…058e at001e = ╱ef╱$╱ // 0x587 @0x1e
0x0569…058e at001f = ╱ba╱ OF ╱ // 0x588 @0x1f
0x0569…058e at0020 = ╱36╱6╱ // 0x589 @0x20
0x0569…058e at0021 = ╱f20600╱ // 0x58a @0x21
0x0569…058e at0024 = EOL // 0x58d @0x24
0x0569…058e }
0x058e…0598 9b86 0450 REAL MOMS
0x058e…0598 LineComal80 {
0x058e…0598 ptr = 0x9b86 // 0x58e @0x0
0x058e…0598 lno = 0x01c2 // 0x590 @0x2
0x058e…0598 at0004 = ╱b3╱ REAL ╱ // 0x592 @0x4
0x058e…0598 at0005 = ╱4d╱M╱ // 0x593 @0x5
0x058e…0598 at0006 = ╱4f╱O╱ // 0x594 @0x6
0x058e…0598 at0007 = ╱4d╱M╱ // 0x595 @0x7
0x058e…0598 at0008 = ╱53╱S╱ // 0x596 @0x8
0x058e…0598 at0009 = EOL // 0x597 @0x9
0x058e…0598 }
0x0598…05b8 9ba6 0460 // Variable til filen @@KASSE
0x0598…05b8 LineComal80 {
0x0598…05b8 ptr = 0x9ba6 // 0x598 @0x0
0x0598…05b8 lno = 0x01cc // 0x59a @0x2
0x0598…05b8 at0004 = ╱89╱ // ╱ // 0x59c @0x4
0x0598…05b8 at0005 = ╱56╱V╱ // 0x59d @0x5
0x0598…05b8 at0006 = ╱61╱a╱ // 0x59e @0x6
0x0598…05b8 at0007 = ╱72╱r╱ // 0x59f @0x7
0x0598…05b8 at0008 = ╱69╱i╱ // 0x5a0 @0x8
0x0598…05b8 at0009 = ╱61╱a╱ // 0x5a1 @0x9
0x0598…05b8 at000a = ╱62╱b╱ // 0x5a2 @0xa
0x0598…05b8 at000b = ╱6c╱l╱ // 0x5a3 @0xb
0x0598…05b8 at000c = ╱65╱e╱ // 0x5a4 @0xc
0x0598…05b8 at000d = ╱20╱…╱ // 0x5a5 @0xd
0x0598…05b8 at000e = ╱74╱t╱ // 0x5a6 @0xe
0x0598…05b8 at000f = ╱69╱i╱ // 0x5a7 @0xf
0x0598…05b8 at0010 = ╱6c╱l╱ // 0x5a8 @0x10
0x0598…05b8 at0011 = ╱20╱…╱ // 0x5a9 @0x11
0x0598…05b8 at0012 = ╱66╱f╱ // 0x5aa @0x12
0x0598…05b8 at0013 = ╱69╱i╱ // 0x5ab @0x13
0x0598…05b8 at0014 = ╱6c╱l╱ // 0x5ac @0x14
0x0598…05b8 at0015 = ╱65╱e╱ // 0x5ad @0x15
0x0598…05b8 at0016 = ╱6e╱n╱ // 0x5ae @0x16
0x0598…05b8 at0017 = ╱20╱…╱ // 0x5af @0x17
0x0598…05b8 at0018 = ╱40╱@╱ // 0x5b0 @0x18
0x0598…05b8 at0019 = ╱40╱@╱ // 0x5b1 @0x19
0x0598…05b8 at001a = ╱4b╱K╱ // 0x5b2 @0x1a
0x0598…05b8 at001b = ╱41╱A╱ // 0x5b3 @0x1b
0x0598…05b8 at001c = ╱53╱S╱ // 0x5b4 @0x1c
0x0598…05b8 at001d = ╱53╱S╱ // 0x5b5 @0x1d
0x0598…05b8 at001e = ╱45╱E╱ // 0x5b6 @0x1e
0x0598…05b8 at001f = EOL // 0x5b7 @0x1f
0x0598…05b8 }
0x05b8…05ca 9bb8 0470 DIM KASSE$ OF 17
0x05b8…05ca LineComal80 {
0x05b8…05ca ptr = 0x9bb8 // 0x5b8 @0x0
0x05b8…05ca lno = 0x01d6 // 0x5ba @0x2
0x05b8…05ca at0004 = ╱87╱ DIM ╱ // 0x5bc @0x4
0x05b8…05ca at0005 = ╱4b╱K╱ // 0x5bd @0x5
0x05b8…05ca at0006 = ╱41╱A╱ // 0x5be @0x6
0x05b8…05ca at0007 = ╱53╱S╱ // 0x5bf @0x7
0x05b8…05ca at0008 = ╱53╱S╱ // 0x5c0 @0x8
0x05b8…05ca at0009 = ╱45╱E╱ // 0x5c1 @0x9
0x05b8…05ca at000a = ╱ef╱$╱ // 0x5c2 @0xa
0x05b8…05ca at000b = ╱ba╱ OF ╱ // 0x5c3 @0xb
0x05b8…05ca at000c = ╱31╱1╱ // 0x5c4 @0xc
0x05b8…05ca at000d = ╱37╱7╱ // 0x5c5 @0xd
0x05b8…05ca at000e = ╱f21100╱ // 0x5c6 @0xe
0x05b8…05ca at0011 = EOL // 0x5c9 @0x11
0x05b8…05ca }
0x05ca…05dc 9bca 0480 DIM K_BDAT$ OF 6
0x05ca…05dc LineComal80 {
0x05ca…05dc ptr = 0x9bca // 0x5ca @0x0
0x05ca…05dc lno = 0x01e0 // 0x5cc @0x2
0x05ca…05dc at0004 = ╱87╱ DIM ╱ // 0x5ce @0x4
0x05ca…05dc at0005 = ╱4b╱K╱ // 0x5cf @0x5
0x05ca…05dc at0006 = ╱5f╱_╱ // 0x5d0 @0x6
0x05ca…05dc at0007 = ╱42╱B╱ // 0x5d1 @0x7
0x05ca…05dc at0008 = ╱44╱D╱ // 0x5d2 @0x8
0x05ca…05dc at0009 = ╱41╱A╱ // 0x5d3 @0x9
0x05ca…05dc at000a = ╱54╱T╱ // 0x5d4 @0xa
0x05ca…05dc at000b = ╱ef╱$╱ // 0x5d5 @0xb
0x05ca…05dc at000c = ╱ba╱ OF ╱ // 0x5d6 @0xc
0x05ca…05dc at000d = ╱36╱6╱ // 0x5d7 @0xd
0x05ca…05dc at000e = ╱f20600╱ // 0x5d8 @0xe
0x05ca…05dc at0011 = EOL // 0x5db @0x11
0x05ca…05dc }
0x05dc…05fe 9bec 0490 INTEGER K_HØJREC,K_MAXREC,S_NR_KASSE
0x05dc…05fe LineComal80 {
0x05dc…05fe ptr = 0x9bec // 0x5dc @0x0
0x05dc…05fe lno = 0x01ea // 0x5de @0x2
0x05dc…05fe at0004 = ╱b2╱ INTEGER ╱ // 0x5e0 @0x4
0x05dc…05fe at0005 = ╱4b╱K╱ // 0x5e1 @0x5
0x05dc…05fe at0006 = ╱5f╱_╱ // 0x5e2 @0x6
0x05dc…05fe at0007 = ╱48╱H╱ // 0x5e3 @0x7
0x05dc…05fe at0008 = ╱5c╱Ø╱ // 0x5e4 @0x8
0x05dc…05fe at0009 = ╱4a╱J╱ // 0x5e5 @0x9
0x05dc…05fe at000a = ╱52╱R╱ // 0x5e6 @0xa
0x05dc…05fe at000b = ╱45╱E╱ // 0x5e7 @0xb
0x05dc…05fe at000c = ╱43╱C╱ // 0x5e8 @0xc
0x05dc…05fe at000d = ╱ec╱,╱ // 0x5e9 @0xd
0x05dc…05fe at000e = ╱4b╱K╱ // 0x5ea @0xe
0x05dc…05fe at000f = ╱5f╱_╱ // 0x5eb @0xf
0x05dc…05fe at0010 = ╱4d╱M╱ // 0x5ec @0x10
0x05dc…05fe at0011 = ╱41╱A╱ // 0x5ed @0x11
0x05dc…05fe at0012 = ╱58╱X╱ // 0x5ee @0x12
0x05dc…05fe at0013 = ╱52╱R╱ // 0x5ef @0x13
0x05dc…05fe at0014 = ╱45╱E╱ // 0x5f0 @0x14
0x05dc…05fe at0015 = ╱43╱C╱ // 0x5f1 @0x15
0x05dc…05fe at0016 = ╱ec╱,╱ // 0x5f2 @0x16
0x05dc…05fe at0017 = ╱53╱S╱ // 0x5f3 @0x17
0x05dc…05fe at0018 = ╱5f╱_╱ // 0x5f4 @0x18
0x05dc…05fe at0019 = ╱4e╱N╱ // 0x5f5 @0x19
0x05dc…05fe at001a = ╱52╱R╱ // 0x5f6 @0x1a
0x05dc…05fe at001b = ╱5f╱_╱ // 0x5f7 @0x1b
0x05dc…05fe at001c = ╱4b╱K╱ // 0x5f8 @0x1c
0x05dc…05fe at001d = ╱41╱A╱ // 0x5f9 @0x1d
0x05dc…05fe at001e = ╱53╱S╱ // 0x5fa @0x1e
0x05dc…05fe at001f = ╱53╱S╱ // 0x5fb @0x1f
0x05dc…05fe at0020 = ╱45╱E╱ // 0x5fc @0x20
0x05dc…05fe at0021 = EOL // 0x5fd @0x21
0x05dc…05fe }
0x05fe…062a 9c18 0500 DIM K_BKTO$ OF 8,K_LKOD$ OF 1,K_MKOD$ OF 1
0x05fe…062a LineComal80 {
0x05fe…062a ptr = 0x9c18 // 0x5fe @0x0
0x05fe…062a lno = 0x01f4 // 0x600 @0x2
0x05fe…062a at0004 = ╱87╱ DIM ╱ // 0x602 @0x4
0x05fe…062a at0005 = ╱4b╱K╱ // 0x603 @0x5
0x05fe…062a at0006 = ╱5f╱_╱ // 0x604 @0x6
0x05fe…062a at0007 = ╱42╱B╱ // 0x605 @0x7
0x05fe…062a at0008 = ╱4b╱K╱ // 0x606 @0x8
0x05fe…062a at0009 = ╱54╱T╱ // 0x607 @0x9
0x05fe…062a at000a = ╱4f╱O╱ // 0x608 @0xa
0x05fe…062a at000b = ╱ef╱$╱ // 0x609 @0xb
0x05fe…062a at000c = ╱ba╱ OF ╱ // 0x60a @0xc
0x05fe…062a at000d = ╱38╱8╱ // 0x60b @0xd
0x05fe…062a at000e = ╱f20800╱ // 0x60c @0xe
0x05fe…062a at0011 = ╱ec╱,╱ // 0x60f @0x11
0x05fe…062a at0012 = ╱4b╱K╱ // 0x610 @0x12
0x05fe…062a at0013 = ╱5f╱_╱ // 0x611 @0x13
0x05fe…062a at0014 = ╱4c╱L╱ // 0x612 @0x14
0x05fe…062a at0015 = ╱4b╱K╱ // 0x613 @0x15
0x05fe…062a at0016 = ╱4f╱O╱ // 0x614 @0x16
0x05fe…062a at0017 = ╱44╱D╱ // 0x615 @0x17
0x05fe…062a at0018 = ╱ef╱$╱ // 0x616 @0x18
0x05fe…062a at0019 = ╱ba╱ OF ╱ // 0x617 @0x19
0x05fe…062a at001a = ╱31╱1╱ // 0x618 @0x1a
0x05fe…062a at001b = ╱f20100╱ // 0x619 @0x1b
0x05fe…062a at001e = ╱ec╱,╱ // 0x61c @0x1e
0x05fe…062a at001f = ╱4b╱K╱ // 0x61d @0x1f
0x05fe…062a at0020 = ╱5f╱_╱ // 0x61e @0x20
0x05fe…062a at0021 = ╱4d╱M╱ // 0x61f @0x21
0x05fe…062a at0022 = ╱4b╱K╱ // 0x620 @0x22
0x05fe…062a at0023 = ╱4f╱O╱ // 0x621 @0x23
0x05fe…062a at0024 = ╱44╱D╱ // 0x622 @0x24
0x05fe…062a at0025 = ╱ef╱$╱ // 0x623 @0x25
0x05fe…062a at0026 = ╱ba╱ OF ╱ // 0x624 @0x26
0x05fe…062a at0027 = ╱31╱1╱ // 0x625 @0x27
0x05fe…062a at0028 = ╱f20100╱ // 0x626 @0x28
0x05fe…062a at002b = EOL // 0x629 @0x2b
0x05fe…062a }
0x062a…0648 9c36 0510 DIM K_BNR$ OF 5,K_TXT$ OF 20
0x062a…0648 LineComal80 {
0x062a…0648 ptr = 0x9c36 // 0x62a @0x0
0x062a…0648 lno = 0x01fe // 0x62c @0x2
0x062a…0648 at0004 = ╱87╱ DIM ╱ // 0x62e @0x4
0x062a…0648 at0005 = ╱4b╱K╱ // 0x62f @0x5
0x062a…0648 at0006 = ╱5f╱_╱ // 0x630 @0x6
0x062a…0648 at0007 = ╱42╱B╱ // 0x631 @0x7
0x062a…0648 at0008 = ╱4e╱N╱ // 0x632 @0x8
0x062a…0648 at0009 = ╱52╱R╱ // 0x633 @0x9
0x062a…0648 at000a = ╱ef╱$╱ // 0x634 @0xa
0x062a…0648 at000b = ╱ba╱ OF ╱ // 0x635 @0xb
0x062a…0648 at000c = ╱35╱5╱ // 0x636 @0xc
0x062a…0648 at000d = ╱f20500╱ // 0x637 @0xd
0x062a…0648 at0010 = ╱ec╱,╱ // 0x63a @0x10
0x062a…0648 at0011 = ╱4b╱K╱ // 0x63b @0x11
0x062a…0648 at0012 = ╱5f╱_╱ // 0x63c @0x12
0x062a…0648 at0013 = ╱54╱T╱ // 0x63d @0x13
0x062a…0648 at0014 = ╱58╱X╱ // 0x63e @0x14
0x062a…0648 at0015 = ╱54╱T╱ // 0x63f @0x15
0x062a…0648 at0016 = ╱ef╱$╱ // 0x640 @0x16
0x062a…0648 at0017 = ╱ba╱ OF ╱ // 0x641 @0x17
0x062a…0648 at0018 = ╱32╱2╱ // 0x642 @0x18
0x062a…0648 at0019 = ╱30╱0╱ // 0x643 @0x19
0x062a…0648 at001a = ╱f21400╱ // 0x644 @0x1a
0x062a…0648 at001d = EOL // 0x647 @0x1d
0x062a…0648 }
0x0648…0653 9c41 0520 REAL K_BKR
0x0648…0653 LineComal80 {
0x0648…0653 ptr = 0x9c41 // 0x648 @0x0
0x0648…0653 lno = 0x0208 // 0x64a @0x2
0x0648…0653 at0004 = ╱b3╱ REAL ╱ // 0x64c @0x4
0x0648…0653 at0005 = ╱4b╱K╱ // 0x64d @0x5
0x0648…0653 at0006 = ╱5f╱_╱ // 0x64e @0x6
0x0648…0653 at0007 = ╱42╱B╱ // 0x64f @0x7
0x0648…0653 at0008 = ╱4b╱K╱ // 0x650 @0x8
0x0648…0653 at0009 = ╱52╱R╱ // 0x651 @0x9
0x0648…0653 at000a = EOL // 0x652 @0xa
0x0648…0653 }
0x0653…065d 9c4b 0530 INTEGER K_DK
0x0653…065d LineComal80 {
0x0653…065d ptr = 0x9c4b // 0x653 @0x0
0x0653…065d lno = 0x0212 // 0x655 @0x2
0x0653…065d at0004 = ╱b2╱ INTEGER ╱ // 0x657 @0x4
0x0653…065d at0005 = ╱4b╱K╱ // 0x658 @0x5
0x0653…065d at0006 = ╱5f╱_╱ // 0x659 @0x6
0x0653…065d at0007 = ╱44╱D╱ // 0x65a @0x7
0x0653…065d at0008 = ╱4b╱K╱ // 0x65b @0x8
0x0653…065d at0009 = EOL // 0x65c @0x9
0x0653…065d }
0x065d…067d 9c6b 0540 // Variable til filen @@KONTO
0x065d…067d LineComal80 {
0x065d…067d ptr = 0x9c6b // 0x65d @0x0
0x065d…067d lno = 0x021c // 0x65f @0x2
0x065d…067d at0004 = ╱89╱ // ╱ // 0x661 @0x4
0x065d…067d at0005 = ╱56╱V╱ // 0x662 @0x5
0x065d…067d at0006 = ╱61╱a╱ // 0x663 @0x6
0x065d…067d at0007 = ╱72╱r╱ // 0x664 @0x7
0x065d…067d at0008 = ╱69╱i╱ // 0x665 @0x8
0x065d…067d at0009 = ╱61╱a╱ // 0x666 @0x9
0x065d…067d at000a = ╱62╱b╱ // 0x667 @0xa
0x065d…067d at000b = ╱6c╱l╱ // 0x668 @0xb
0x065d…067d at000c = ╱65╱e╱ // 0x669 @0xc
0x065d…067d at000d = ╱20╱…╱ // 0x66a @0xd
0x065d…067d at000e = ╱74╱t╱ // 0x66b @0xe
0x065d…067d at000f = ╱69╱i╱ // 0x66c @0xf
0x065d…067d at0010 = ╱6c╱l╱ // 0x66d @0x10
0x065d…067d at0011 = ╱20╱…╱ // 0x66e @0x11
0x065d…067d at0012 = ╱66╱f╱ // 0x66f @0x12
0x065d…067d at0013 = ╱69╱i╱ // 0x670 @0x13
0x065d…067d at0014 = ╱6c╱l╱ // 0x671 @0x14
0x065d…067d at0015 = ╱65╱e╱ // 0x672 @0x15
0x065d…067d at0016 = ╱6e╱n╱ // 0x673 @0x16
0x065d…067d at0017 = ╱20╱…╱ // 0x674 @0x17
0x065d…067d at0018 = ╱40╱@╱ // 0x675 @0x18
0x065d…067d at0019 = ╱40╱@╱ // 0x676 @0x19
0x065d…067d at001a = ╱4b╱K╱ // 0x677 @0x1a
0x065d…067d at001b = ╱4f╱O╱ // 0x678 @0x1b
0x065d…067d at001c = ╱4e╱N╱ // 0x679 @0x1c
0x065d…067d at001d = ╱54╱T╱ // 0x67a @0x1d
0x065d…067d at001e = ╱4f╱O╱ // 0x67b @0x1e
0x065d…067d at001f = EOL // 0x67c @0x1f
0x065d…067d }
0x067d…068f 9c7d 0550 DIM KONTO$ OF 17
0x067d…068f LineComal80 {
0x067d…068f ptr = 0x9c7d // 0x67d @0x0
0x067d…068f lno = 0x0226 // 0x67f @0x2
0x067d…068f at0004 = ╱87╱ DIM ╱ // 0x681 @0x4
0x067d…068f at0005 = ╱4b╱K╱ // 0x682 @0x5
0x067d…068f at0006 = ╱4f╱O╱ // 0x683 @0x6
0x067d…068f at0007 = ╱4e╱N╱ // 0x684 @0x7
0x067d…068f at0008 = ╱54╱T╱ // 0x685 @0x8
0x067d…068f at0009 = ╱4f╱O╱ // 0x686 @0x9
0x067d…068f at000a = ╱ef╱$╱ // 0x687 @0xa
0x067d…068f at000b = ╱ba╱ OF ╱ // 0x688 @0xb
0x067d…068f at000c = ╱31╱1╱ // 0x689 @0xc
0x067d…068f at000d = ╱37╱7╱ // 0x68a @0xd
0x067d…068f at000e = ╱f21100╱ // 0x68b @0xe
0x067d…068f at0011 = EOL // 0x68e @0x11
0x067d…068f }
0x068f…06a2 9c90 0560 DIM ST_DATO$ OF 6
0x068f…06a2 LineComal80 {
0x068f…06a2 ptr = 0x9c90 // 0x68f @0x0
0x068f…06a2 lno = 0x0230 // 0x691 @0x2
0x068f…06a2 at0004 = ╱87╱ DIM ╱ // 0x693 @0x4
0x068f…06a2 at0005 = ╱53╱S╱ // 0x694 @0x5
0x068f…06a2 at0006 = ╱54╱T╱ // 0x695 @0x6
0x068f…06a2 at0007 = ╱5f╱_╱ // 0x696 @0x7
0x068f…06a2 at0008 = ╱44╱D╱ // 0x697 @0x8
0x068f…06a2 at0009 = ╱41╱A╱ // 0x698 @0x9
0x068f…06a2 at000a = ╱54╱T╱ // 0x699 @0xa
0x068f…06a2 at000b = ╱4f╱O╱ // 0x69a @0xb
0x068f…06a2 at000c = ╱ef╱$╱ // 0x69b @0xc
0x068f…06a2 at000d = ╱ba╱ OF ╱ // 0x69c @0xd
0x068f…06a2 at000e = ╱36╱6╱ // 0x69d @0xe
0x068f…06a2 at000f = ╱f20600╱ // 0x69e @0xf
0x068f…06a2 at0012 = EOL // 0x6a1 @0x12
0x068f…06a2 }
0x06a2…06c8 9cb6 0570 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0x06a2…06c8 LineComal80 {
0x06a2…06c8 ptr = 0x9cb6 // 0x6a2 @0x0
0x06a2…06c8 lno = 0x023a // 0x6a4 @0x2
0x06a2…06c8 at0004 = ╱b2╱ INTEGER ╱ // 0x6a6 @0x4
0x06a2…06c8 at0005 = ╱4e╱N╱ // 0x6a7 @0x5
0x06a2…06c8 at0006 = ╱5f╱_╱ // 0x6a8 @0x6
0x06a2…06c8 at0007 = ╱46╱F╱ // 0x6a9 @0x7
0x06a2…06c8 at0008 = ╱52╱R╱ // 0x6aa @0x8
0x06a2…06c8 at0009 = ╱49╱I╱ // 0x6ab @0x9
0x06a2…06c8 at000a = ╱52╱R╱ // 0x6ac @0xa
0x06a2…06c8 at000b = ╱45╱E╱ // 0x6ad @0xb
0x06a2…06c8 at000c = ╱43╱C╱ // 0x6ae @0xc
0x06a2…06c8 at000d = ╱ec╱,╱ // 0x6af @0xd
0x06a2…06c8 at000e = ╱4e╱N╱ // 0x6b0 @0xe
0x06a2…06c8 at000f = ╱5f╱_╱ // 0x6b1 @0xf
0x06a2…06c8 at0010 = ╱4d╱M╱ // 0x6b2 @0x10
0x06a2…06c8 at0011 = ╱41╱A╱ // 0x6b3 @0x11
0x06a2…06c8 at0012 = ╱58╱X╱ // 0x6b4 @0x12
0x06a2…06c8 at0013 = ╱52╱R╱ // 0x6b5 @0x13
0x06a2…06c8 at0014 = ╱45╱E╱ // 0x6b6 @0x14
0x06a2…06c8 at0015 = ╱43╱C╱ // 0x6b7 @0x15
0x06a2…06c8 at0016 = ╱ec╱,╱ // 0x6b8 @0x16
0x06a2…06c8 at0017 = ╱41╱A╱ // 0x6b9 @0x17
0x06a2…06c8 at0018 = ╱4e╱N╱ // 0x6ba @0x18
0x06a2…06c8 at0019 = ╱54╱T╱ // 0x6bb @0x19
0x06a2…06c8 at001a = ╱5f╱_╱ // 0x6bc @0x1a
0x06a2…06c8 at001b = ╱50╱P╱ // 0x6bd @0x1b
0x06a2…06c8 at001c = ╱45╱E╱ // 0x6be @0x1c
0x06a2…06c8 at001d = ╱52╱R╱ // 0x6bf @0x1d
0x06a2…06c8 at001e = ╱ec╱,╱ // 0x6c0 @0x1e
0x06a2…06c8 at001f = ╱50╱P╱ // 0x6c1 @0x1f
0x06a2…06c8 at0020 = ╱45╱E╱ // 0x6c2 @0x20
0x06a2…06c8 at0021 = ╱52╱R╱ // 0x6c3 @0x21
0x06a2…06c8 at0022 = ╱5f╱_╱ // 0x6c4 @0x22
0x06a2…06c8 at0023 = ╱4e╱N╱ // 0x6c5 @0x23
0x06a2…06c8 at0024 = ╱52╱R╱ // 0x6c6 @0x24
0x06a2…06c8 at0025 = EOL // 0x6c7 @0x25
0x06a2…06c8 }
0x06c8…06ec 9cda 0580 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0x06c8…06ec LineComal80 {
0x06c8…06ec ptr = 0x9cda // 0x6c8 @0x0
0x06c8…06ec lno = 0x0244 // 0x6ca @0x2
0x06c8…06ec at0004 = ╱87╱ DIM ╱ // 0x6cc @0x4
0x06c8…06ec at0005 = ╱4b╱K╱ // 0x6cd @0x5
0x06c8…06ec at0006 = ╱54╱T╱ // 0x6ce @0x6
0x06c8…06ec at0007 = ╱4f╱O╱ // 0x6cf @0x7
0x06c8…06ec at0008 = ╱5f╱_╱ // 0x6d0 @0x8
0x06c8…06ec at0009 = ╱54╱T╱ // 0x6d1 @0x9
0x06c8…06ec at000a = ╱59╱Y╱ // 0x6d2 @0xa
0x06c8…06ec at000b = ╱50╱P╱ // 0x6d3 @0xb
0x06c8…06ec at000c = ╱45╱E╱ // 0x6d4 @0xc
0x06c8…06ec at000d = ╱ef╱$╱ // 0x6d5 @0xd
0x06c8…06ec at000e = ╱ba╱ OF ╱ // 0x6d6 @0xe
0x06c8…06ec at000f = ╱31╱1╱ // 0x6d7 @0xf
0x06c8…06ec at0010 = ╱f20100╱ // 0x6d8 @0x10
0x06c8…06ec at0013 = ╱ec╱,╱ // 0x6db @0x13
0x06c8…06ec at0014 = ╱4b╱K╱ // 0x6dc @0x14
0x06c8…06ec at0015 = ╱54╱T╱ // 0x6dd @0x15
0x06c8…06ec at0016 = ╱4f╱O╱ // 0x6de @0x16
0x06c8…06ec at0017 = ╱5f╱_╱ // 0x6df @0x17
0x06c8…06ec at0018 = ╱4e╱N╱ // 0x6e0 @0x18
0x06c8…06ec at0019 = ╱41╱A╱ // 0x6e1 @0x19
0x06c8…06ec at001a = ╱56╱V╱ // 0x6e2 @0x1a
0x06c8…06ec at001b = ╱4e╱N╱ // 0x6e3 @0x1b
0x06c8…06ec at001c = ╱ef╱$╱ // 0x6e4 @0x1c
0x06c8…06ec at001d = ╱ba╱ OF ╱ // 0x6e5 @0x1d
0x06c8…06ec at001e = ╱34╱4╱ // 0x6e6 @0x1e
0x06c8…06ec at001f = ╱30╱0╱ // 0x6e7 @0x1f
0x06c8…06ec at0020 = ╱f22800╱ // 0x6e8 @0x20
0x06c8…06ec at0023 = EOL // 0x6eb @0x23
0x06c8…06ec }
0x06ec…0706 9cf4 0590 REAL KTO_PRIMO,KTO_ULTIMO
0x06ec…0706 LineComal80 {
0x06ec…0706 ptr = 0x9cf4 // 0x6ec @0x0
0x06ec…0706 lno = 0x024e // 0x6ee @0x2
0x06ec…0706 at0004 = ╱b3╱ REAL ╱ // 0x6f0 @0x4
0x06ec…0706 at0005 = ╱4b╱K╱ // 0x6f1 @0x5
0x06ec…0706 at0006 = ╱54╱T╱ // 0x6f2 @0x6
0x06ec…0706 at0007 = ╱4f╱O╱ // 0x6f3 @0x7
0x06ec…0706 at0008 = ╱5f╱_╱ // 0x6f4 @0x8
0x06ec…0706 at0009 = ╱50╱P╱ // 0x6f5 @0x9
0x06ec…0706 at000a = ╱52╱R╱ // 0x6f6 @0xa
0x06ec…0706 at000b = ╱49╱I╱ // 0x6f7 @0xb
0x06ec…0706 at000c = ╱4d╱M╱ // 0x6f8 @0xc
0x06ec…0706 at000d = ╱4f╱O╱ // 0x6f9 @0xd
0x06ec…0706 at000e = ╱ec╱,╱ // 0x6fa @0xe
0x06ec…0706 at000f = ╱4b╱K╱ // 0x6fb @0xf
0x06ec…0706 at0010 = ╱54╱T╱ // 0x6fc @0x10
0x06ec…0706 at0011 = ╱4f╱O╱ // 0x6fd @0x11
0x06ec…0706 at0012 = ╱5f╱_╱ // 0x6fe @0x12
0x06ec…0706 at0013 = ╱55╱U╱ // 0x6ff @0x13
0x06ec…0706 at0014 = ╱4c╱L╱ // 0x700 @0x14
0x06ec…0706 at0015 = ╱54╱T╱ // 0x701 @0x15
0x06ec…0706 at0016 = ╱49╱I╱ // 0x702 @0x16
0x06ec…0706 at0017 = ╱4d╱M╱ // 0x703 @0x17
0x06ec…0706 at0018 = ╱4f╱O╱ // 0x704 @0x18
0x06ec…0706 at0019 = EOL // 0x705 @0x19
0x06ec…0706 }
0x0706…0719 9d07 0600 INTEGER KTO_FP,KTO_SP
0x0706…0719 LineComal80 {
0x0706…0719 ptr = 0x9d07 // 0x706 @0x0
0x0706…0719 lno = 0x0258 // 0x708 @0x2
0x0706…0719 at0004 = ╱b2╱ INTEGER ╱ // 0x70a @0x4
0x0706…0719 at0005 = ╱4b╱K╱ // 0x70b @0x5
0x0706…0719 at0006 = ╱54╱T╱ // 0x70c @0x6
0x0706…0719 at0007 = ╱4f╱O╱ // 0x70d @0x7
0x0706…0719 at0008 = ╱5f╱_╱ // 0x70e @0x8
0x0706…0719 at0009 = ╱46╱F╱ // 0x70f @0x9
0x0706…0719 at000a = ╱50╱P╱ // 0x710 @0xa
0x0706…0719 at000b = ╱ec╱,╱ // 0x711 @0xb
0x0706…0719 at000c = ╱4b╱K╱ // 0x712 @0xc
0x0706…0719 at000d = ╱54╱T╱ // 0x713 @0xd
0x0706…0719 at000e = ╱4f╱O╱ // 0x714 @0xe
0x0706…0719 at000f = ╱5f╱_╱ // 0x715 @0xf
0x0706…0719 at0010 = ╱53╱S╱ // 0x716 @0x10
0x0706…0719 at0011 = ╱50╱P╱ // 0x717 @0x11
0x0706…0719 at0012 = EOL // 0x718 @0x12
0x0706…0719 }
0x0719…073a 9d28 0610 // Variable til filen @@KTOIDX
0x0719…073a LineComal80 {
0x0719…073a ptr = 0x9d28 // 0x719 @0x0
0x0719…073a lno = 0x0262 // 0x71b @0x2
0x0719…073a at0004 = ╱89╱ // ╱ // 0x71d @0x4
0x0719…073a at0005 = ╱56╱V╱ // 0x71e @0x5
0x0719…073a at0006 = ╱61╱a╱ // 0x71f @0x6
0x0719…073a at0007 = ╱72╱r╱ // 0x720 @0x7
0x0719…073a at0008 = ╱69╱i╱ // 0x721 @0x8
0x0719…073a at0009 = ╱61╱a╱ // 0x722 @0x9
0x0719…073a at000a = ╱62╱b╱ // 0x723 @0xa
0x0719…073a at000b = ╱6c╱l╱ // 0x724 @0xb
0x0719…073a at000c = ╱65╱e╱ // 0x725 @0xc
0x0719…073a at000d = ╱20╱…╱ // 0x726 @0xd
0x0719…073a at000e = ╱74╱t╱ // 0x727 @0xe
0x0719…073a at000f = ╱69╱i╱ // 0x728 @0xf
0x0719…073a at0010 = ╱6c╱l╱ // 0x729 @0x10
0x0719…073a at0011 = ╱20╱…╱ // 0x72a @0x11
0x0719…073a at0012 = ╱66╱f╱ // 0x72b @0x12
0x0719…073a at0013 = ╱69╱i╱ // 0x72c @0x13
0x0719…073a at0014 = ╱6c╱l╱ // 0x72d @0x14
0x0719…073a at0015 = ╱65╱e╱ // 0x72e @0x15
0x0719…073a at0016 = ╱6e╱n╱ // 0x72f @0x16
0x0719…073a at0017 = ╱20╱…╱ // 0x730 @0x17
0x0719…073a at0018 = ╱40╱@╱ // 0x731 @0x18
0x0719…073a at0019 = ╱40╱@╱ // 0x732 @0x19
0x0719…073a at001a = ╱4b╱K╱ // 0x733 @0x1a
0x0719…073a at001b = ╱54╱T╱ // 0x734 @0x1b
0x0719…073a at001c = ╱4f╱O╱ // 0x735 @0x1c
0x0719…073a at001d = ╱49╱I╱ // 0x736 @0x1d
0x0719…073a at001e = ╱44╱D╱ // 0x737 @0x1e
0x0719…073a at001f = ╱58╱X╱ // 0x738 @0x1f
0x0719…073a at0020 = EOL // 0x739 @0x20
0x0719…073a }
0x073a…074d 9d3b 0620 DIM KTOIDX$ OF 17
0x073a…074d LineComal80 {
0x073a…074d ptr = 0x9d3b // 0x73a @0x0
0x073a…074d lno = 0x026c // 0x73c @0x2
0x073a…074d at0004 = ╱87╱ DIM ╱ // 0x73e @0x4
0x073a…074d at0005 = ╱4b╱K╱ // 0x73f @0x5
0x073a…074d at0006 = ╱54╱T╱ // 0x740 @0x6
0x073a…074d at0007 = ╱4f╱O╱ // 0x741 @0x7
0x073a…074d at0008 = ╱49╱I╱ // 0x742 @0x8
0x073a…074d at0009 = ╱44╱D╱ // 0x743 @0x9
0x073a…074d at000a = ╱58╱X╱ // 0x744 @0xa
0x073a…074d at000b = ╱ef╱$╱ // 0x745 @0xb
0x073a…074d at000c = ╱ba╱ OF ╱ // 0x746 @0xc
0x073a…074d at000d = ╱31╱1╱ // 0x747 @0xd
0x073a…074d at000e = ╱37╱7╱ // 0x748 @0xe
0x073a…074d at000f = ╱f21100╱ // 0x749 @0xf
0x073a…074d at0012 = EOL // 0x74c @0x12
0x073a…074d }
0x074d…0764 9d52 0630 INTEGER I_HØJREC,I_MAXREC
0x074d…0764 LineComal80 {
0x074d…0764 ptr = 0x9d52 // 0x74d @0x0
0x074d…0764 lno = 0x0276 // 0x74f @0x2
0x074d…0764 at0004 = ╱b2╱ INTEGER ╱ // 0x751 @0x4
0x074d…0764 at0005 = ╱49╱I╱ // 0x752 @0x5
0x074d…0764 at0006 = ╱5f╱_╱ // 0x753 @0x6
0x074d…0764 at0007 = ╱48╱H╱ // 0x754 @0x7
0x074d…0764 at0008 = ╱5c╱Ø╱ // 0x755 @0x8
0x074d…0764 at0009 = ╱4a╱J╱ // 0x756 @0x9
0x074d…0764 at000a = ╱52╱R╱ // 0x757 @0xa
0x074d…0764 at000b = ╱45╱E╱ // 0x758 @0xb
0x074d…0764 at000c = ╱43╱C╱ // 0x759 @0xc
0x074d…0764 at000d = ╱ec╱,╱ // 0x75a @0xd
0x074d…0764 at000e = ╱49╱I╱ // 0x75b @0xe
0x074d…0764 at000f = ╱5f╱_╱ // 0x75c @0xf
0x074d…0764 at0010 = ╱4d╱M╱ // 0x75d @0x10
0x074d…0764 at0011 = ╱41╱A╱ // 0x75e @0x11
0x074d…0764 at0012 = ╱58╱X╱ // 0x75f @0x12
0x074d…0764 at0013 = ╱52╱R╱ // 0x760 @0x13
0x074d…0764 at0014 = ╱45╱E╱ // 0x761 @0x14
0x074d…0764 at0015 = ╱43╱C╱ // 0x762 @0x15
0x074d…0764 at0016 = EOL // 0x763 @0x16
0x074d…0764 }
0x0764…0775 9d63 0640 DIM KTONR$ OF 8
0x0764…0775 LineComal80 {
0x0764…0775 ptr = 0x9d63 // 0x764 @0x0
0x0764…0775 lno = 0x0280 // 0x766 @0x2
0x0764…0775 at0004 = ╱87╱ DIM ╱ // 0x768 @0x4
0x0764…0775 at0005 = ╱4b╱K╱ // 0x769 @0x5
0x0764…0775 at0006 = ╱54╱T╱ // 0x76a @0x6
0x0764…0775 at0007 = ╱4f╱O╱ // 0x76b @0x7
0x0764…0775 at0008 = ╱4e╱N╱ // 0x76c @0x8
0x0764…0775 at0009 = ╱52╱R╱ // 0x76d @0x9
0x0764…0775 at000a = ╱ef╱$╱ // 0x76e @0xa
0x0764…0775 at000b = ╱ba╱ OF ╱ // 0x76f @0xb
0x0764…0775 at000c = ╱38╱8╱ // 0x770 @0xc
0x0764…0775 at000d = ╱f20800╱ // 0x771 @0xd
0x0764…0775 at0010 = EOL // 0x774 @0x10
0x0764…0775 }
0x0775…0780 9d6e 0650 INTEGER RECNR
0x0775…0780 LineComal80 {
0x0775…0780 ptr = 0x9d6e // 0x775 @0x0
0x0775…0780 lno = 0x028a // 0x777 @0x2
0x0775…0780 at0004 = ╱b2╱ INTEGER ╱ // 0x779 @0x4
0x0775…0780 at0005 = ╱52╱R╱ // 0x77a @0x5
0x0775…0780 at0006 = ╱45╱E╱ // 0x77b @0x6
0x0775…0780 at0007 = ╱43╱C╱ // 0x77c @0x7
0x0775…0780 at0008 = ╱4e╱N╱ // 0x77d @0x8
0x0775…0780 at0009 = ╱52╱R╱ // 0x77e @0x9
0x0775…0780 at000a = EOL // 0x77f @0xa
0x0775…0780 }
0x0780…07a1 9d8f 0660 // Variable til filen @@FKTONR
0x0780…07a1 LineComal80 {
0x0780…07a1 ptr = 0x9d8f // 0x780 @0x0
0x0780…07a1 lno = 0x0294 // 0x782 @0x2
0x0780…07a1 at0004 = ╱89╱ // ╱ // 0x784 @0x4
0x0780…07a1 at0005 = ╱56╱V╱ // 0x785 @0x5
0x0780…07a1 at0006 = ╱61╱a╱ // 0x786 @0x6
0x0780…07a1 at0007 = ╱72╱r╱ // 0x787 @0x7
0x0780…07a1 at0008 = ╱69╱i╱ // 0x788 @0x8
0x0780…07a1 at0009 = ╱61╱a╱ // 0x789 @0x9
0x0780…07a1 at000a = ╱62╱b╱ // 0x78a @0xa
0x0780…07a1 at000b = ╱6c╱l╱ // 0x78b @0xb
0x0780…07a1 at000c = ╱65╱e╱ // 0x78c @0xc
0x0780…07a1 at000d = ╱20╱…╱ // 0x78d @0xd
0x0780…07a1 at000e = ╱74╱t╱ // 0x78e @0xe
0x0780…07a1 at000f = ╱69╱i╱ // 0x78f @0xf
0x0780…07a1 at0010 = ╱6c╱l╱ // 0x790 @0x10
0x0780…07a1 at0011 = ╱20╱…╱ // 0x791 @0x11
0x0780…07a1 at0012 = ╱66╱f╱ // 0x792 @0x12
0x0780…07a1 at0013 = ╱69╱i╱ // 0x793 @0x13
0x0780…07a1 at0014 = ╱6c╱l╱ // 0x794 @0x14
0x0780…07a1 at0015 = ╱65╱e╱ // 0x795 @0x15
0x0780…07a1 at0016 = ╱6e╱n╱ // 0x796 @0x16
0x0780…07a1 at0017 = ╱20╱…╱ // 0x797 @0x17
0x0780…07a1 at0018 = ╱40╱@╱ // 0x798 @0x18
0x0780…07a1 at0019 = ╱40╱@╱ // 0x799 @0x19
0x0780…07a1 at001a = ╱46╱F╱ // 0x79a @0x1a
0x0780…07a1 at001b = ╱4b╱K╱ // 0x79b @0x1b
0x0780…07a1 at001c = ╱54╱T╱ // 0x79c @0x1c
0x0780…07a1 at001d = ╱4f╱O╱ // 0x79d @0x1d
0x0780…07a1 at001e = ╱4e╱N╱ // 0x79e @0x1e
0x0780…07a1 at001f = ╱52╱R╱ // 0x79f @0x1f
0x0780…07a1 at0020 = EOL // 0x7a0 @0x20
0x0780…07a1 }
0x07a1…07b4 9da2 0670 DIM FKTONR$ OF 17
0x07a1…07b4 LineComal80 {
0x07a1…07b4 ptr = 0x9da2 // 0x7a1 @0x0
0x07a1…07b4 lno = 0x029e // 0x7a3 @0x2
0x07a1…07b4 at0004 = ╱87╱ DIM ╱ // 0x7a5 @0x4
0x07a1…07b4 at0005 = ╱46╱F╱ // 0x7a6 @0x5
0x07a1…07b4 at0006 = ╱4b╱K╱ // 0x7a7 @0x6
0x07a1…07b4 at0007 = ╱54╱T╱ // 0x7a8 @0x7
0x07a1…07b4 at0008 = ╱4f╱O╱ // 0x7a9 @0x8
0x07a1…07b4 at0009 = ╱4e╱N╱ // 0x7aa @0x9
0x07a1…07b4 at000a = ╱52╱R╱ // 0x7ab @0xa
0x07a1…07b4 at000b = ╱ef╱$╱ // 0x7ac @0xb
0x07a1…07b4 at000c = ╱ba╱ OF ╱ // 0x7ad @0xc
0x07a1…07b4 at000d = ╱31╱1╱ // 0x7ae @0xd
0x07a1…07b4 at000e = ╱37╱7╱ // 0x7af @0xe
0x07a1…07b4 at000f = ╱f21100╱ // 0x7b0 @0xf
0x07a1…07b4 at0012 = EOL // 0x7b3 @0x12
0x07a1…07b4 }
0x07b4…07e7 9dd5 0680 DIM KASSE_KTO$ OF 8,BANK_KTO$ OF 8,GIRO_KTO$ OF 8
0x07b4…07e7 LineComal80 {
0x07b4…07e7 ptr = 0x9dd5 // 0x7b4 @0x0
0x07b4…07e7 lno = 0x02a8 // 0x7b6 @0x2
0x07b4…07e7 at0004 = ╱87╱ DIM ╱ // 0x7b8 @0x4
0x07b4…07e7 at0005 = ╱4b╱K╱ // 0x7b9 @0x5
0x07b4…07e7 at0006 = ╱41╱A╱ // 0x7ba @0x6
0x07b4…07e7 at0007 = ╱53╱S╱ // 0x7bb @0x7
0x07b4…07e7 at0008 = ╱53╱S╱ // 0x7bc @0x8
0x07b4…07e7 at0009 = ╱45╱E╱ // 0x7bd @0x9
0x07b4…07e7 at000a = ╱5f╱_╱ // 0x7be @0xa
0x07b4…07e7 at000b = ╱4b╱K╱ // 0x7bf @0xb
0x07b4…07e7 at000c = ╱54╱T╱ // 0x7c0 @0xc
0x07b4…07e7 at000d = ╱4f╱O╱ // 0x7c1 @0xd
0x07b4…07e7 at000e = ╱ef╱$╱ // 0x7c2 @0xe
0x07b4…07e7 at000f = ╱ba╱ OF ╱ // 0x7c3 @0xf
0x07b4…07e7 at0010 = ╱38╱8╱ // 0x7c4 @0x10
0x07b4…07e7 at0011 = ╱f20800╱ // 0x7c5 @0x11
0x07b4…07e7 at0014 = ╱ec╱,╱ // 0x7c8 @0x14
0x07b4…07e7 at0015 = ╱42╱B╱ // 0x7c9 @0x15
0x07b4…07e7 at0016 = ╱41╱A╱ // 0x7ca @0x16
0x07b4…07e7 at0017 = ╱4e╱N╱ // 0x7cb @0x17
0x07b4…07e7 at0018 = ╱4b╱K╱ // 0x7cc @0x18
0x07b4…07e7 at0019 = ╱5f╱_╱ // 0x7cd @0x19
0x07b4…07e7 at001a = ╱4b╱K╱ // 0x7ce @0x1a
0x07b4…07e7 at001b = ╱54╱T╱ // 0x7cf @0x1b
0x07b4…07e7 at001c = ╱4f╱O╱ // 0x7d0 @0x1c
0x07b4…07e7 at001d = ╱ef╱$╱ // 0x7d1 @0x1d
0x07b4…07e7 at001e = ╱ba╱ OF ╱ // 0x7d2 @0x1e
0x07b4…07e7 at001f = ╱38╱8╱ // 0x7d3 @0x1f
0x07b4…07e7 at0020 = ╱f20800╱ // 0x7d4 @0x20
0x07b4…07e7 at0023 = ╱ec╱,╱ // 0x7d7 @0x23
0x07b4…07e7 at0024 = ╱47╱G╱ // 0x7d8 @0x24
0x07b4…07e7 at0025 = ╱49╱I╱ // 0x7d9 @0x25
0x07b4…07e7 at0026 = ╱52╱R╱ // 0x7da @0x26
0x07b4…07e7 at0027 = ╱4f╱O╱ // 0x7db @0x27
0x07b4…07e7 at0028 = ╱5f╱_╱ // 0x7dc @0x28
0x07b4…07e7 at0029 = ╱4b╱K╱ // 0x7dd @0x29
0x07b4…07e7 at002a = ╱54╱T╱ // 0x7de @0x2a
0x07b4…07e7 at002b = ╱4f╱O╱ // 0x7df @0x2b
0x07b4…07e7 at002c = ╱ef╱$╱ // 0x7e0 @0x2c
0x07b4…07e7 at002d = ╱ba╱ OF ╱ // 0x7e1 @0x2d
0x07b4…07e7 at002e = ╱38╱8╱ // 0x7e2 @0x2e
0x07b4…07e7 at002f = ╱f20800╱ // 0x7e3 @0x2f
0x07b4…07e7 at0032 = EOL // 0x7e6 @0x32
0x07b4…07e7 }
0x07e7…07f8 9de6 0690 ENDPROC DIMENSIONER
0x07e7…07f8 LineComal80 {
0x07e7…07f8 ptr = 0x9de6 // 0x7e7 @0x0
0x07e7…07f8 lno = 0x02b2 // 0x7e9 @0x2
0x07e7…07f8 at0004 = ╱9f╱ ENDPROC ╱ // 0x7eb @0x4
0x07e7…07f8 at0005 = ╱44╱D╱ // 0x7ec @0x5
0x07e7…07f8 at0006 = ╱49╱I╱ // 0x7ed @0x6
0x07e7…07f8 at0007 = ╱4d╱M╱ // 0x7ee @0x7
0x07e7…07f8 at0008 = ╱45╱E╱ // 0x7ef @0x8
0x07e7…07f8 at0009 = ╱4e╱N╱ // 0x7f0 @0x9
0x07e7…07f8 at000a = ╱53╱S╱ // 0x7f1 @0xa
0x07e7…07f8 at000b = ╱49╱I╱ // 0x7f2 @0xb
0x07e7…07f8 at000c = ╱4f╱O╱ // 0x7f3 @0xc
0x07e7…07f8 at000d = ╱4e╱N╱ // 0x7f4 @0xd
0x07e7…07f8 at000e = ╱45╱E╱ // 0x7f5 @0xe
0x07e7…07f8 at000f = ╱52╱R╱ // 0x7f6 @0xf
0x07e7…07f8 at0010 = EOL // 0x7f7 @0x10
0x07e7…07f8 }
0x07f8…07fd 9deb 0700
0x07f8…07fd LineComal80 {
0x07f8…07fd ptr = 0x9deb // 0x7f8 @0x0
0x07f8…07fd lno = 0x02bc // 0x7fa @0x2
0x07f8…07fd at0004 = EOL // 0x7fc @0x4
0x07f8…07fd }
0x07fd…080b 9df9 0710 PROC INITIER
0x07fd…080b LineComal80 {
0x07fd…080b ptr = 0x9df9 // 0x7fd @0x0
0x07fd…080b lno = 0x02c6 // 0x7ff @0x2
0x07fd…080b at0004 = ╱9e02╱ PROC ╱ // 0x801 @0x4
0x07fd…080b at0006 = ╱49╱I╱ // 0x803 @0x6
0x07fd…080b at0007 = ╱4e╱N╱ // 0x804 @0x7
0x07fd…080b at0008 = ╱49╱I╱ // 0x805 @0x8
0x07fd…080b at0009 = ╱54╱T╱ // 0x806 @0x9
0x07fd…080b at000a = ╱49╱I╱ // 0x807 @0xa
0x07fd…080b at000b = ╱45╱E╱ // 0x808 @0xb
0x07fd…080b at000c = ╱52╱R╱ // 0x809 @0xc
0x07fd…080b at000d = EOL // 0x80a @0xd
0x07fd…080b }
0x080b…081d 9e0b 0720 LET PRGFL$ := "DP2"
0x080b…081d LineComal80 {
0x080b…081d ptr = 0x9e0b // 0x80b @0x0
0x080b…081d lno = 0x02d0 // 0x80d @0x2
0x080b…081d at0004 = ╱86╱ LET ╱ // 0x80f @0x4
0x080b…081d at0005 = ╱50╱P╱ // 0x810 @0x5
0x080b…081d at0006 = ╱52╱R╱ // 0x811 @0x6
0x080b…081d at0007 = ╱47╱G╱ // 0x812 @0x7
0x080b…081d at0008 = ╱46╱F╱ // 0x813 @0x8
0x080b…081d at0009 = ╱4c╱L╱ // 0x814 @0x9
0x080b…081d at000a = ╱ef╱$╱ // 0x815 @0xa
0x080b…081d at000b = ╱f0╱ := ╱ // 0x816 @0xb
0x080b…081d at000c = ╱22╱"╱ // 0x817 @0xc
0x080b…081d at000d = ╱44╱D╱ // 0x818 @0xd
0x080b…081d at000e = ╱50╱P╱ // 0x819 @0xe
0x080b…081d at000f = ╱32╱2╱ // 0x81a @0xf
0x080b…081d at0010 = ╱22╱"╱ // 0x81b @0x10
0x080b…081d at0011 = EOL // 0x81c @0x11
0x080b…081d }
0x081d…083a 9e28 0730 LET PROGRAM$ := PRGFL$ + ":SYSI"
0x081d…083a LineComal80 {
0x081d…083a ptr = 0x9e28 // 0x81d @0x0
0x081d…083a lno = 0x02da // 0x81f @0x2
0x081d…083a at0004 = ╱86╱ LET ╱ // 0x821 @0x4
0x081d…083a at0005 = ╱50╱P╱ // 0x822 @0x5
0x081d…083a at0006 = ╱52╱R╱ // 0x823 @0x6
0x081d…083a at0007 = ╱4f╱O╱ // 0x824 @0x7
0x081d…083a at0008 = ╱47╱G╱ // 0x825 @0x8
0x081d…083a at0009 = ╱52╱R╱ // 0x826 @0x9
0x081d…083a at000a = ╱41╱A╱ // 0x827 @0xa
0x081d…083a at000b = ╱4d╱M╱ // 0x828 @0xb
0x081d…083a at000c = ╱ef╱$╱ // 0x829 @0xc
0x081d…083a at000d = ╱f0╱ := ╱ // 0x82a @0xd
0x081d…083a at000e = ╱50╱P╱ // 0x82b @0xe
0x081d…083a at000f = ╱52╱R╱ // 0x82c @0xf
0x081d…083a at0010 = ╱47╱G╱ // 0x82d @0x10
0x081d…083a at0011 = ╱46╱F╱ // 0x82e @0x11
0x081d…083a at0012 = ╱4c╱L╱ // 0x82f @0x12
0x081d…083a at0013 = ╱ef╱$╱ // 0x830 @0x13
0x081d…083a at0014 = ╱eb╱ + ╱ // 0x831 @0x14
0x081d…083a at0015 = ╱22╱"╱ // 0x832 @0x15
0x081d…083a at0016 = ╱3a╱:╱ // 0x833 @0x16
0x081d…083a at0017 = ╱53╱S╱ // 0x834 @0x17
0x081d…083a at0018 = ╱59╱Y╱ // 0x835 @0x18
0x081d…083a at0019 = ╱53╱S╱ // 0x836 @0x19
0x081d…083a at001a = ╱49╱I╱ // 0x837 @0x1a
0x081d…083a at001b = ╱22╱"╱ // 0x838 @0x1b
0x081d…083a at001c = EOL // 0x839 @0x1c
0x081d…083a }
0x083a…0851 9e3f 0740 LET TAL$ := "0123456789"
0x083a…0851 LineComal80 {
0x083a…0851 ptr = 0x9e3f // 0x83a @0x0
0x083a…0851 lno = 0x02e4 // 0x83c @0x2
0x083a…0851 at0004 = ╱86╱ LET ╱ // 0x83e @0x4
0x083a…0851 at0005 = ╱54╱T╱ // 0x83f @0x5
0x083a…0851 at0006 = ╱41╱A╱ // 0x840 @0x6
0x083a…0851 at0007 = ╱4c╱L╱ // 0x841 @0x7
0x083a…0851 at0008 = ╱ef╱$╱ // 0x842 @0x8
0x083a…0851 at0009 = ╱f0╱ := ╱ // 0x843 @0x9
0x083a…0851 at000a = ╱22╱"╱ // 0x844 @0xa
0x083a…0851 at000b = ╱30╱0╱ // 0x845 @0xb
0x083a…0851 at000c = ╱31╱1╱ // 0x846 @0xc
0x083a…0851 at000d = ╱32╱2╱ // 0x847 @0xd
0x083a…0851 at000e = ╱33╱3╱ // 0x848 @0xe
0x083a…0851 at000f = ╱34╱4╱ // 0x849 @0xf
0x083a…0851 at0010 = ╱35╱5╱ // 0x84a @0x10
0x083a…0851 at0011 = ╱36╱6╱ // 0x84b @0x11
0x083a…0851 at0012 = ╱37╱7╱ // 0x84c @0x12
0x083a…0851 at0013 = ╱38╱8╱ // 0x84d @0x13
0x083a…0851 at0014 = ╱39╱9╱ // 0x84e @0x14
0x083a…0851 at0015 = ╱22╱"╱ // 0x84f @0x15
0x083a…0851 at0016 = EOL // 0x850 @0x16
0x083a…0851 }
0x0851…0879 9e67 0750 FOR I := ╱cc╱ ("A") TO ("Å") DO LET ALFA$ := ALFA$ + CHR$ (I)
0x0851…0879 LineComal80 {
0x0851…0879 ptr = 0x9e67 // 0x851 @0x0
0x0851…0879 lno = 0x02ee // 0x853 @0x2
0x0851…0879 at0004 = ╱b400╱ FOR ╱ // 0x855 @0x4
0x0851…0879 at0006 = ╱49╱I╱ // 0x857 @0x6
0x0851…0879 at0007 = ╱f0╱ := ╱ // 0x858 @0x7
0x0851…0879 at0008 = ╱cc╱ // 0x859 @0x8
0x0851…0879 at0009 = ╱ed╱(╱ // 0x85a @0x9
0x0851…0879 at000a = ╱22╱"╱ // 0x85b @0xa
0x0851…0879 at000b = ╱41╱A╱ // 0x85c @0xb
0x0851…0879 at000c = ╱22╱"╱ // 0x85d @0xc
0x0851…0879 at000d = ╱ee╱)╱ // 0x85e @0xd
0x0851…0879 at000e = ╱b7cc╱ TO ╱ // 0x85f @0xe
0x0851…0879 at0010 = ╱ed╱(╱ // 0x861 @0x10
0x0851…0879 at0011 = ╱22╱"╱ // 0x862 @0x11
0x0851…0879 at0012 = ╱5d╱Å╱ // 0x863 @0x12
0x0851…0879 at0013 = ╱22╱"╱ // 0x864 @0x13
0x0851…0879 at0014 = ╱ee╱)╱ // 0x865 @0x14
0x0851…0879 at0015 = ╱bb╱ DO ╱ // 0x866 @0x15
0x0851…0879 at0016 = ╱86╱ LET ╱ // 0x867 @0x16
0x0851…0879 at0017 = ╱41╱A╱ // 0x868 @0x17
0x0851…0879 at0018 = ╱4c╱L╱ // 0x869 @0x18
0x0851…0879 at0019 = ╱46╱F╱ // 0x86a @0x19
0x0851…0879 at001a = ╱41╱A╱ // 0x86b @0x1a
0x0851…0879 at001b = ╱ef╱$╱ // 0x86c @0x1b
0x0851…0879 at001c = ╱f0╱ := ╱ // 0x86d @0x1c
0x0851…0879 at001d = ╱41╱A╱ // 0x86e @0x1d
0x0851…0879 at001e = ╱4c╱L╱ // 0x86f @0x1e
0x0851…0879 at001f = ╱46╱F╱ // 0x870 @0x1f
0x0851…0879 at0020 = ╱41╱A╱ // 0x871 @0x20
0x0851…0879 at0021 = ╱ef╱$╱ // 0x872 @0x21
0x0851…0879 at0022 = ╱eb╱ + ╱ // 0x873 @0x22
0x0851…0879 at0023 = ╱d0╱ CHR$ ╱ // 0x874 @0x23
0x0851…0879 at0024 = ╱ed╱(╱ // 0x875 @0x24
0x0851…0879 at0025 = ╱49╱I╱ // 0x876 @0x25
0x0851…0879 at0026 = ╱ee╱)╱ // 0x877 @0x26
0x0851…0879 at0027 = EOL // 0x878 @0x27
0x0851…0879 }
0x0879…08b3 9ea1 0760 LET SPC$ := " "
0x0879…08b3 LineComal80 {
0x0879…08b3 ptr = 0x9ea1 // 0x879 @0x0
0x0879…08b3 lno = 0x02f8 // 0x87b @0x2
0x0879…08b3 at0004 = ╱86╱ LET ╱ // 0x87d @0x4
0x0879…08b3 at0005 = ╱53╱S╱ // 0x87e @0x5
0x0879…08b3 at0006 = ╱50╱P╱ // 0x87f @0x6
0x0879…08b3 at0007 = ╱43╱C╱ // 0x880 @0x7
0x0879…08b3 at0008 = ╱ef╱$╱ // 0x881 @0x8
0x0879…08b3 at0009 = ╱f0╱ := ╱ // 0x882 @0x9
0x0879…08b3 at000a = ╱22╱"╱ // 0x883 @0xa
0x0879…08b3 at000b = ╱20╱…╱ // 0x884 @0xb
0x0879…08b3 at000c = ╱20╱…╱ // 0x885 @0xc
0x0879…08b3 at000d = ╱20╱…╱ // 0x886 @0xd
0x0879…08b3 at000e = ╱20╱…╱ // 0x887 @0xe
0x0879…08b3 at000f = ╱20╱…╱ // 0x888 @0xf
0x0879…08b3 at0010 = ╱20╱…╱ // 0x889 @0x10
0x0879…08b3 at0011 = ╱20╱…╱ // 0x88a @0x11
0x0879…08b3 at0012 = ╱20╱…╱ // 0x88b @0x12
0x0879…08b3 at0013 = ╱20╱…╱ // 0x88c @0x13
0x0879…08b3 at0014 = ╱20╱…╱ // 0x88d @0x14
0x0879…08b3 at0015 = ╱20╱…╱ // 0x88e @0x15
0x0879…08b3 at0016 = ╱20╱…╱ // 0x88f @0x16
0x0879…08b3 at0017 = ╱20╱…╱ // 0x890 @0x17
0x0879…08b3 at0018 = ╱20╱…╱ // 0x891 @0x18
0x0879…08b3 at0019 = ╱20╱…╱ // 0x892 @0x19
0x0879…08b3 at001a = ╱20╱…╱ // 0x893 @0x1a
0x0879…08b3 at001b = ╱20╱…╱ // 0x894 @0x1b
0x0879…08b3 at001c = ╱20╱…╱ // 0x895 @0x1c
0x0879…08b3 at001d = ╱20╱…╱ // 0x896 @0x1d
0x0879…08b3 at001e = ╱20╱…╱ // 0x897 @0x1e
0x0879…08b3 at001f = ╱20╱…╱ // 0x898 @0x1f
0x0879…08b3 at0020 = ╱20╱…╱ // 0x899 @0x20
0x0879…08b3 at0021 = ╱20╱…╱ // 0x89a @0x21
0x0879…08b3 at0022 = ╱20╱…╱ // 0x89b @0x22
0x0879…08b3 at0023 = ╱20╱…╱ // 0x89c @0x23
0x0879…08b3 at0024 = ╱20╱…╱ // 0x89d @0x24
0x0879…08b3 at0025 = ╱20╱…╱ // 0x89e @0x25
0x0879…08b3 at0026 = ╱20╱…╱ // 0x89f @0x26
0x0879…08b3 at0027 = ╱20╱…╱ // 0x8a0 @0x27
0x0879…08b3 at0028 = ╱20╱…╱ // 0x8a1 @0x28
0x0879…08b3 at0029 = ╱20╱…╱ // 0x8a2 @0x29
0x0879…08b3 at002a = ╱20╱…╱ // 0x8a3 @0x2a
0x0879…08b3 at002b = ╱20╱…╱ // 0x8a4 @0x2b
0x0879…08b3 at002c = ╱20╱…╱ // 0x8a5 @0x2c
0x0879…08b3 at002d = ╱20╱…╱ // 0x8a6 @0x2d
0x0879…08b3 at002e = ╱20╱…╱ // 0x8a7 @0x2e
0x0879…08b3 at002f = ╱20╱…╱ // 0x8a8 @0x2f
0x0879…08b3 at0030 = ╱20╱…╱ // 0x8a9 @0x30
0x0879…08b3 at0031 = ╱20╱…╱ // 0x8aa @0x31
0x0879…08b3 at0032 = ╱20╱…╱ // 0x8ab @0x32
0x0879…08b3 at0033 = ╱20╱…╱ // 0x8ac @0x33
0x0879…08b3 at0034 = ╱20╱…╱ // 0x8ad @0x34
0x0879…08b3 at0035 = ╱20╱…╱ // 0x8ae @0x35
0x0879…08b3 at0036 = ╱20╱…╱ // 0x8af @0x36
0x0879…08b3 at0037 = ╱20╱…╱ // 0x8b0 @0x37
0x0879…08b3 at0038 = ╱22╱"╱ // 0x8b1 @0x38
0x0879…08b3 at0039 = EOL // 0x8b2 @0x39
0x0879…08b3 }
0x08b3…08c7 9eb5 0770 LET SPC$ := SPC$ + SPC$
0x08b3…08c7 LineComal80 {
0x08b3…08c7 ptr = 0x9eb5 // 0x8b3 @0x0
0x08b3…08c7 lno = 0x0302 // 0x8b5 @0x2
0x08b3…08c7 at0004 = ╱86╱ LET ╱ // 0x8b7 @0x4
0x08b3…08c7 at0005 = ╱53╱S╱ // 0x8b8 @0x5
0x08b3…08c7 at0006 = ╱50╱P╱ // 0x8b9 @0x6
0x08b3…08c7 at0007 = ╱43╱C╱ // 0x8ba @0x7
0x08b3…08c7 at0008 = ╱ef╱$╱ // 0x8bb @0x8
0x08b3…08c7 at0009 = ╱f0╱ := ╱ // 0x8bc @0x9
0x08b3…08c7 at000a = ╱53╱S╱ // 0x8bd @0xa
0x08b3…08c7 at000b = ╱50╱P╱ // 0x8be @0xb
0x08b3…08c7 at000c = ╱43╱C╱ // 0x8bf @0xc
0x08b3…08c7 at000d = ╱ef╱$╱ // 0x8c0 @0xd
0x08b3…08c7 at000e = ╱eb╱ + ╱ // 0x8c1 @0xe
0x08b3…08c7 at000f = ╱53╱S╱ // 0x8c2 @0xf
0x08b3…08c7 at0010 = ╱50╱P╱ // 0x8c3 @0x10
0x08b3…08c7 at0011 = ╱43╱C╱ // 0x8c4 @0x11
0x08b3…08c7 at0012 = ╱ef╱$╱ // 0x8c5 @0x12
0x08b3…08c7 at0013 = EOL // 0x8c6 @0x13
0x08b3…08c7 }
0x08c7…08f2 9ee0 0780 LET FALSE := 0 ; TRUE := 1 // boolske variable
0x08c7…08f2 LineComal80 {
0x08c7…08f2 ptr = 0x9ee0 // 0x8c7 @0x0
0x08c7…08f2 lno = 0x030c // 0x8c9 @0x2
0x08c7…08f2 at0004 = ╱86╱ LET ╱ // 0x8cb @0x4
0x08c7…08f2 at0005 = ╱46╱F╱ // 0x8cc @0x5
0x08c7…08f2 at0006 = ╱41╱A╱ // 0x8cd @0x6
0x08c7…08f2 at0007 = ╱4c╱L╱ // 0x8ce @0x7
0x08c7…08f2 at0008 = ╱53╱S╱ // 0x8cf @0x8
0x08c7…08f2 at0009 = ╱45╱E╱ // 0x8d0 @0x9
0x08c7…08f2 at000a = ╱f0╱ := ╱ // 0x8d1 @0xa
0x08c7…08f2 at000b = ╱30╱0╱ // 0x8d2 @0xb
0x08c7…08f2 at000c = ╱f20000╱ // 0x8d3 @0xc
0x08c7…08f2 at000f = ╱ea╱ ; ╱ // 0x8d6 @0xf
0x08c7…08f2 at0010 = ╱54╱T╱ // 0x8d7 @0x10
0x08c7…08f2 at0011 = ╱52╱R╱ // 0x8d8 @0x11
0x08c7…08f2 at0012 = ╱55╱U╱ // 0x8d9 @0x12
0x08c7…08f2 at0013 = ╱45╱E╱ // 0x8da @0x13
0x08c7…08f2 at0014 = ╱f0╱ := ╱ // 0x8db @0x14
0x08c7…08f2 at0015 = ╱31╱1╱ // 0x8dc @0x15
0x08c7…08f2 at0016 = ╱f20100╱ // 0x8dd @0x16
0x08c7…08f2 at0019 = ╱89╱ // ╱ // 0x8e0 @0x19
0x08c7…08f2 at001a = ╱62╱b╱ // 0x8e1 @0x1a
0x08c7…08f2 at001b = ╱6f╱o╱ // 0x8e2 @0x1b
0x08c7…08f2 at001c = ╱6f╱o╱ // 0x8e3 @0x1c
0x08c7…08f2 at001d = ╱6c╱l╱ // 0x8e4 @0x1d
0x08c7…08f2 at001e = ╱73╱s╱ // 0x8e5 @0x1e
0x08c7…08f2 at001f = ╱6b╱k╱ // 0x8e6 @0x1f
0x08c7…08f2 at0020 = ╱65╱e╱ // 0x8e7 @0x20
0x08c7…08f2 at0021 = ╱20╱…╱ // 0x8e8 @0x21
0x08c7…08f2 at0022 = ╱76╱v╱ // 0x8e9 @0x22
0x08c7…08f2 at0023 = ╱61╱a╱ // 0x8ea @0x23
0x08c7…08f2 at0024 = ╱72╱r╱ // 0x8eb @0x24
0x08c7…08f2 at0025 = ╱69╱i╱ // 0x8ec @0x25
0x08c7…08f2 at0026 = ╱61╱a╱ // 0x8ed @0x26
0x08c7…08f2 at0027 = ╱62╱b╱ // 0x8ee @0x27
0x08c7…08f2 at0028 = ╱6c╱l╱ // 0x8ef @0x28
0x08c7…08f2 at0029 = ╱65╱e╱ // 0x8f0 @0x29
0x08c7…08f2 at002a = EOL // 0x8f1 @0x2a
0x08c7…08f2 }
0x08f2…090f 9efd 0790 LET KREDIT := - 1 ; DEBET := 1
0x08f2…090f LineComal80 {
0x08f2…090f ptr = 0x9efd // 0x8f2 @0x0
0x08f2…090f lno = 0x0316 // 0x8f4 @0x2
0x08f2…090f at0004 = ╱86╱ LET ╱ // 0x8f6 @0x4
0x08f2…090f at0005 = ╱4b╱K╱ // 0x8f7 @0x5
0x08f2…090f at0006 = ╱52╱R╱ // 0x8f8 @0x6
0x08f2…090f at0007 = ╱45╱E╱ // 0x8f9 @0x7
0x08f2…090f at0008 = ╱44╱D╱ // 0x8fa @0x8
0x08f2…090f at0009 = ╱49╱I╱ // 0x8fb @0x9
0x08f2…090f at000a = ╱54╱T╱ // 0x8fc @0xa
0x08f2…090f at000b = ╱f0╱ := ╱ // 0x8fd @0xb
0x08f2…090f at000c = ╱de╱ - ╱ // 0x8fe @0xc
0x08f2…090f at000d = ╱31╱1╱ // 0x8ff @0xd
0x08f2…090f at000e = ╱f20100╱ // 0x900 @0xe
0x08f2…090f at0011 = ╱ea╱ ; ╱ // 0x903 @0x11
0x08f2…090f at0012 = ╱44╱D╱ // 0x904 @0x12
0x08f2…090f at0013 = ╱45╱E╱ // 0x905 @0x13
0x08f2…090f at0014 = ╱42╱B╱ // 0x906 @0x14
0x08f2…090f at0015 = ╱45╱E╱ // 0x907 @0x15
0x08f2…090f at0016 = ╱54╱T╱ // 0x908 @0x16
0x08f2…090f at0017 = ╱f0╱ := ╱ // 0x909 @0x17
0x08f2…090f at0018 = ╱31╱1╱ // 0x90a @0x18
0x08f2…090f at0019 = ╱f20100╱ // 0x90b @0x19
0x08f2…090f at001c = EOL // 0x90e @0x1c
0x08f2…090f }
0x090f…092f 9f1d 0800 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0x090f…092f LineComal80 {
0x090f…092f ptr = 0x9f1d // 0x90f @0x0
0x090f…092f lno = 0x0320 // 0x911 @0x2
0x090f…092f at0004 = ╱86╱ LET ╱ // 0x913 @0x4
0x090f…092f at0005 = ╱53╱S╱ // 0x914 @0x5
0x090f…092f at0006 = ╱59╱Y╱ // 0x915 @0x6
0x090f…092f at0007 = ╱53╱S╱ // 0x916 @0x7
0x090f…092f at0008 = ╱50╱P╱ // 0x917 @0x8
0x090f…092f at0009 = ╱41╱A╱ // 0x918 @0x9
0x090f…092f at000a = ╱52╱R╱ // 0x919 @0xa
0x090f…092f at000b = ╱41╱A╱ // 0x91a @0xb
0x090f…092f at000c = ╱ef╱$╱ // 0x91b @0xc
0x090f…092f at000d = ╱f0╱ := ╱ // 0x91c @0xd
0x090f…092f at000e = ╱50╱P╱ // 0x91d @0xe
0x090f…092f at000f = ╱52╱R╱ // 0x91e @0xf
0x090f…092f at0010 = ╱47╱G╱ // 0x91f @0x10
0x090f…092f at0011 = ╱46╱F╱ // 0x920 @0x11
0x090f…092f at0012 = ╱4c╱L╱ // 0x921 @0x12
0x090f…092f at0013 = ╱ef╱$╱ // 0x922 @0x13
0x090f…092f at0014 = ╱eb╱ + ╱ // 0x923 @0x14
0x090f…092f at0015 = ╱22╱"╱ // 0x924 @0x15
0x090f…092f at0016 = ╱3a╱:╱ // 0x925 @0x16
0x090f…092f at0017 = ╱53╱S╱ // 0x926 @0x17
0x090f…092f at0018 = ╱59╱Y╱ // 0x927 @0x18
0x090f…092f at0019 = ╱53╱S╱ // 0x928 @0x19
0x090f…092f at001a = ╱50╱P╱ // 0x929 @0x1a
0x090f…092f at001b = ╱41╱A╱ // 0x92a @0x1b
0x090f…092f at001c = ╱52╱R╱ // 0x92b @0x1c
0x090f…092f at001d = ╱41╱A╱ // 0x92c @0x1d
0x090f…092f at001e = ╱22╱"╱ // 0x92d @0x1e
0x090f…092f at001f = EOL // 0x92e @0x1f
0x090f…092f }
0x092f…094a 9f38 0810 EXEC OPENFIL(SYSPARA$,"R")
0x092f…094a LineComal80 {
0x092f…094a ptr = 0x9f38 // 0x92f @0x0
0x092f…094a lno = 0x032a // 0x931 @0x2
0x092f…094a at0004 = ╱9d╱ EXEC ╱ // 0x933 @0x4
0x092f…094a at0005 = ╱4f╱O╱ // 0x934 @0x5
0x092f…094a at0006 = ╱50╱P╱ // 0x935 @0x6
0x092f…094a at0007 = ╱45╱E╱ // 0x936 @0x7
0x092f…094a at0008 = ╱4e╱N╱ // 0x937 @0x8
0x092f…094a at0009 = ╱46╱F╱ // 0x938 @0x9
0x092f…094a at000a = ╱49╱I╱ // 0x939 @0xa
0x092f…094a at000b = ╱4c╱L╱ // 0x93a @0xb
0x092f…094a at000c = ╱ed╱(╱ // 0x93b @0xc
0x092f…094a at000d = ╱53╱S╱ // 0x93c @0xd
0x092f…094a at000e = ╱59╱Y╱ // 0x93d @0xe
0x092f…094a at000f = ╱53╱S╱ // 0x93e @0xf
0x092f…094a at0010 = ╱50╱P╱ // 0x93f @0x10
0x092f…094a at0011 = ╱41╱A╱ // 0x940 @0x11
0x092f…094a at0012 = ╱52╱R╱ // 0x941 @0x12
0x092f…094a at0013 = ╱41╱A╱ // 0x942 @0x13
0x092f…094a at0014 = ╱ef╱$╱ // 0x943 @0x14
0x092f…094a at0015 = ╱ec╱,╱ // 0x944 @0x15
0x092f…094a at0016 = ╱22╱"╱ // 0x945 @0x16
0x092f…094a at0017 = ╱52╱R╱ // 0x946 @0x17
0x092f…094a at0018 = ╱22╱"╱ // 0x947 @0x18
0x092f…094a at0019 = ╱ee╱)╱ // 0x948 @0x19
0x092f…094a at001a = EOL // 0x949 @0x1a
0x092f…094a }
0x094a…0970 9f5e 0820 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0x094a…0970 LineComal80 {
0x094a…0970 ptr = 0x9f5e // 0x94a @0x0
0x094a…0970 lno = 0x0334 // 0x94c @0x2
0x094a…0970 at0004 = ╱a9╱ GET ╱ // 0x94e @0x4
0x094a…0970 at0005 = ╱53╱S╱ // 0x94f @0x5
0x094a…0970 at0006 = ╱59╱Y╱ // 0x950 @0x6
0x094a…0970 at0007 = ╱53╱S╱ // 0x951 @0x7
0x094a…0970 at0008 = ╱50╱P╱ // 0x952 @0x8
0x094a…0970 at0009 = ╱41╱A╱ // 0x953 @0x9
0x094a…0970 at000a = ╱52╱R╱ // 0x954 @0xa
0x094a…0970 at000b = ╱41╱A╱ // 0x955 @0xb
0x094a…0970 at000c = ╱ef╱$╱ // 0x956 @0xc
0x094a…0970 at000d = ╱ec╱,╱ // 0x957 @0xd
0x094a…0970 at000e = ╱31╱1╱ // 0x958 @0xe
0x094a…0970 at000f = ╱f20100╱ // 0x959 @0xf
0x094a…0970 at0012 = ╱f1╱ : ╱ // 0x95c @0x12
0x094a…0970 at0013 = ╱53╱S╱ // 0x95d @0x13
0x094a…0970 at0014 = ╱59╱Y╱ // 0x95e @0x14
0x094a…0970 at0015 = ╱53╱S╱ // 0x95f @0x15
0x094a…0970 at0016 = ╱54╱T╱ // 0x960 @0x16
0x094a…0970 at0017 = ╱5f╱_╱ // 0x961 @0x17
0x094a…0970 at0018 = ╱4e╱N╱ // 0x962 @0x18
0x094a…0970 at0019 = ╱41╱A╱ // 0x963 @0x19
0x094a…0970 at001a = ╱56╱V╱ // 0x964 @0x1a
0x094a…0970 at001b = ╱4e╱N╱ // 0x965 @0x1b
0x094a…0970 at001c = ╱ef╱$╱ // 0x966 @0x1c
0x094a…0970 at001d = ╱ec╱,╱ // 0x967 @0x1d
0x094a…0970 at001e = ╱53╱S╱ // 0x968 @0x1e
0x094a…0970 at001f = ╱5f╱_╱ // 0x969 @0x1f
0x094a…0970 at0020 = ╱4b╱K╱ // 0x96a @0x20
0x094a…0970 at0021 = ╱4f╱O╱ // 0x96b @0x21
0x094a…0970 at0022 = ╱44╱D╱ // 0x96c @0x22
0x094a…0970 at0023 = ╱45╱E╱ // 0x96d @0x23
0x094a…0970 at0024 = ╱ef╱$╱ // 0x96e @0x24
0x094a…0970 at0025 = EOL // 0x96f @0x25
0x094a…0970 }
0x0970…0982 9f70 0830 EXEC TERMINAL_IDX
0x0970…0982 LineComal80 {
0x0970…0982 ptr = 0x9f70 // 0x970 @0x0
0x0970…0982 lno = 0x033e // 0x972 @0x2
0x0970…0982 at0004 = ╱9d╱ EXEC ╱ // 0x974 @0x4
0x0970…0982 at0005 = ╱54╱T╱ // 0x975 @0x5
0x0970…0982 at0006 = ╱45╱E╱ // 0x976 @0x6
0x0970…0982 at0007 = ╱52╱R╱ // 0x977 @0x7
0x0970…0982 at0008 = ╱4d╱M╱ // 0x978 @0x8
0x0970…0982 at0009 = ╱49╱I╱ // 0x979 @0x9
0x0970…0982 at000a = ╱4e╱N╱ // 0x97a @0xa
0x0970…0982 at000b = ╱41╱A╱ // 0x97b @0xb
0x0970…0982 at000c = ╱4c╱L╱ // 0x97c @0xc
0x0970…0982 at000d = ╱5f╱_╱ // 0x97d @0xd
0x0970…0982 at000e = ╱49╱I╱ // 0x97e @0xe
0x0970…0982 at000f = ╱44╱D╱ // 0x97f @0xf
0x0970…0982 at0010 = ╱58╱X╱ // 0x980 @0x10
0x0970…0982 at0011 = EOL // 0x981 @0x11
0x0970…0982 }
0x0982…0990 9f7e 0840 CLOSE SYSPARA$
0x0982…0990 LineComal80 {
0x0982…0990 ptr = 0x9f7e // 0x982 @0x0
0x0982…0990 lno = 0x0348 // 0x984 @0x2
0x0982…0990 at0004 = ╱a8╱ CLOSE ╱ // 0x986 @0x4
0x0982…0990 at0005 = ╱53╱S╱ // 0x987 @0x5
0x0982…0990 at0006 = ╱59╱Y╱ // 0x988 @0x6
0x0982…0990 at0007 = ╱53╱S╱ // 0x989 @0x7
0x0982…0990 at0008 = ╱50╱P╱ // 0x98a @0x8
0x0982…0990 at0009 = ╱41╱A╱ // 0x98b @0x9
0x0982…0990 at000a = ╱52╱R╱ // 0x98c @0xa
0x0982…0990 at000b = ╱41╱A╱ // 0x98d @0xb
0x0982…0990 at000c = ╱ef╱$╱ // 0x98e @0xc
0x0982…0990 at000d = EOL // 0x98f @0xd
0x0982…0990 }
0x0990…09c0 9fae 0850 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0x0990…09c0 LineComal80 {
0x0990…09c0 ptr = 0x9fae // 0x990 @0x0
0x0990…09c0 lno = 0x0352 // 0x992 @0x2
0x0990…09c0 at0004 = ╱86╱ LET ╱ // 0x994 @0x4
0x0990…09c0 at0005 = ╱50╱P╱ // 0x995 @0x5
0x0990…09c0 at0006 = ╱41╱A╱ // 0x996 @0x6
0x0990…09c0 at0007 = ╱52╱R╱ // 0x997 @0x7
0x0990…09c0 at0008 = ╱41╱A╱ // 0x998 @0x8
0x0990…09c0 at0009 = ╱4d╱M╱ // 0x999 @0x9
0x0990…09c0 at000a = ╱ef╱$╱ // 0x99a @0xa
0x0990…09c0 at000b = ╱f0╱ := ╱ // 0x99b @0xb
0x0990…09c0 at000c = ╱44╱D╱ // 0x99c @0xc
0x0990…09c0 at000d = ╱41╱A╱ // 0x99d @0xd
0x0990…09c0 at000e = ╱54╱T╱ // 0x99e @0xe
0x0990…09c0 at000f = ╱41╱A╱ // 0x99f @0xf
0x0990…09c0 at0010 = ╱46╱F╱ // 0x9a0 @0x10
0x0990…09c0 at0011 = ╱4c╱L╱ // 0x9a1 @0x11
0x0990…09c0 at0012 = ╱ef╱$╱ // 0x9a2 @0x12
0x0990…09c0 at0013 = ╱eb╱ + ╱ // 0x9a3 @0x13
0x0990…09c0 at0014 = ╱22╱"╱ // 0x9a4 @0x14
0x0990…09c0 at0015 = ╱3a╱:╱ // 0x9a5 @0x15
0x0990…09c0 at0016 = ╱22╱"╱ // 0x9a6 @0x16
0x0990…09c0 at0017 = ╱eb╱ + ╱ // 0x9a7 @0x17
0x0990…09c0 at0018 = ╱53╱S╱ // 0x9a8 @0x18
0x0990…09c0 at0019 = ╱5f╱_╱ // 0x9a9 @0x19
0x0990…09c0 at001a = ╱4b╱K╱ // 0x9aa @0x1a
0x0990…09c0 at001b = ╱4f╱O╱ // 0x9ab @0x1b
0x0990…09c0 at001c = ╱44╱D╱ // 0x9ac @0x1c
0x0990…09c0 at001d = ╱45╱E╱ // 0x9ad @0x1d
0x0990…09c0 at001e = ╱ef╱$╱ // 0x9ae @0x1e
0x0990…09c0 at001f = ╱eb╱ + ╱ // 0x9af @0x1f
0x0990…09c0 at0020 = ╱54╱T╱ // 0x9b0 @0x20
0x0990…09c0 at0021 = ╱5f╱_╱ // 0x9b1 @0x21
0x0990…09c0 at0022 = ╱4b╱K╱ // 0x9b2 @0x22
0x0990…09c0 at0023 = ╱4f╱O╱ // 0x9b3 @0x23
0x0990…09c0 at0024 = ╱44╱D╱ // 0x9b4 @0x24
0x0990…09c0 at0025 = ╱45╱E╱ // 0x9b5 @0x25
0x0990…09c0 at0026 = ╱ef╱$╱ // 0x9b6 @0x26
0x0990…09c0 at0027 = ╱eb╱ + ╱ // 0x9b7 @0x27
0x0990…09c0 at0028 = ╱22╱"╱ // 0x9b8 @0x28
0x0990…09c0 at0029 = ╱50╱P╱ // 0x9b9 @0x29
0x0990…09c0 at002a = ╱41╱A╱ // 0x9ba @0x2a
0x0990…09c0 at002b = ╱52╱R╱ // 0x9bb @0x2b
0x0990…09c0 at002c = ╱41╱A╱ // 0x9bc @0x2c
0x0990…09c0 at002d = ╱4d╱M╱ // 0x9bd @0x2d
0x0990…09c0 at002e = ╱22╱"╱ // 0x9be @0x2e
0x0990…09c0 at002f = EOL // 0x9bf @0x2f
0x0990…09c0 }
0x09c0…09d9 9fc7 0860 EXEC OPENFIL(PARAM$,"R")
0x09c0…09d9 LineComal80 {
0x09c0…09d9 ptr = 0x9fc7 // 0x9c0 @0x0
0x09c0…09d9 lno = 0x035c // 0x9c2 @0x2
0x09c0…09d9 at0004 = ╱9d╱ EXEC ╱ // 0x9c4 @0x4
0x09c0…09d9 at0005 = ╱4f╱O╱ // 0x9c5 @0x5
0x09c0…09d9 at0006 = ╱50╱P╱ // 0x9c6 @0x6
0x09c0…09d9 at0007 = ╱45╱E╱ // 0x9c7 @0x7
0x09c0…09d9 at0008 = ╱4e╱N╱ // 0x9c8 @0x8
0x09c0…09d9 at0009 = ╱46╱F╱ // 0x9c9 @0x9
0x09c0…09d9 at000a = ╱49╱I╱ // 0x9ca @0xa
0x09c0…09d9 at000b = ╱4c╱L╱ // 0x9cb @0xb
0x09c0…09d9 at000c = ╱ed╱(╱ // 0x9cc @0xc
0x09c0…09d9 at000d = ╱50╱P╱ // 0x9cd @0xd
0x09c0…09d9 at000e = ╱41╱A╱ // 0x9ce @0xe
0x09c0…09d9 at000f = ╱52╱R╱ // 0x9cf @0xf
0x09c0…09d9 at0010 = ╱41╱A╱ // 0x9d0 @0x10
0x09c0…09d9 at0011 = ╱4d╱M╱ // 0x9d1 @0x11
0x09c0…09d9 at0012 = ╱ef╱$╱ // 0x9d2 @0x12
0x09c0…09d9 at0013 = ╱ec╱,╱ // 0x9d3 @0x13
0x09c0…09d9 at0014 = ╱22╱"╱ // 0x9d4 @0x14
0x09c0…09d9 at0015 = ╱52╱R╱ // 0x9d5 @0x15
0x09c0…09d9 at0016 = ╱22╱"╱ // 0x9d6 @0x16
0x09c0…09d9 at0017 = ╱ee╱)╱ // 0x9d7 @0x17
0x09c0…09d9 at0018 = EOL // 0x9d8 @0x18
0x09c0…09d9 }
0x09d9…0a04 9ff2 0870 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0x09d9…0a04 LineComal80 {
0x09d9…0a04 ptr = 0x9ff2 // 0x9d9 @0x0
0x09d9…0a04 lno = 0x0366 // 0x9db @0x2
0x09d9…0a04 at0004 = ╱a9╱ GET ╱ // 0x9dd @0x4
0x09d9…0a04 at0005 = ╱50╱P╱ // 0x9de @0x5
0x09d9…0a04 at0006 = ╱41╱A╱ // 0x9df @0x6
0x09d9…0a04 at0007 = ╱52╱R╱ // 0x9e0 @0x7
0x09d9…0a04 at0008 = ╱41╱A╱ // 0x9e1 @0x8
0x09d9…0a04 at0009 = ╱4d╱M╱ // 0x9e2 @0x9
0x09d9…0a04 at000a = ╱ef╱$╱ // 0x9e3 @0xa
0x09d9…0a04 at000b = ╱ec╱,╱ // 0x9e4 @0xb
0x09d9…0a04 at000c = ╱31╱1╱ // 0x9e5 @0xc
0x09d9…0a04 at000d = ╱f20100╱ // 0x9e6 @0xd
0x09d9…0a04 at0010 = ╱f1╱ : ╱ // 0x9e9 @0x10
0x09d9…0a04 at0011 = ╱46╱F╱ // 0x9ea @0x11
0x09d9…0a04 at0012 = ╱49╱I╱ // 0x9eb @0x12
0x09d9…0a04 at0013 = ╱52╱R╱ // 0x9ec @0x13
0x09d9…0a04 at0014 = ╱4d╱M╱ // 0x9ed @0x14
0x09d9…0a04 at0015 = ╱41╱A╱ // 0x9ee @0x15
0x09d9…0a04 at0016 = ╱4e╱N╱ // 0x9ef @0x16
0x09d9…0a04 at0017 = ╱41╱A╱ // 0x9f0 @0x17
0x09d9…0a04 at0018 = ╱56╱V╱ // 0x9f1 @0x18
0x09d9…0a04 at0019 = ╱4e╱N╱ // 0x9f2 @0x19
0x09d9…0a04 at001a = ╱ef╱$╱ // 0x9f3 @0x1a
0x09d9…0a04 at001b = ╱ec╱,╱ // 0x9f4 @0x1b
0x09d9…0a04 at001c = ╱53╱S╱ // 0x9f5 @0x1c
0x09d9…0a04 at001d = ╱59╱Y╱ // 0x9f6 @0x1d
0x09d9…0a04 at001e = ╱53╱S╱ // 0x9f7 @0x1e
0x09d9…0a04 at001f = ╱54╱T╱ // 0x9f8 @0x1f
0x09d9…0a04 at0020 = ╱5f╱_╱ // 0x9f9 @0x20
0x09d9…0a04 at0021 = ╱44╱D╱ // 0x9fa @0x21
0x09d9…0a04 at0022 = ╱41╱A╱ // 0x9fb @0x22
0x09d9…0a04 at0023 = ╱54╱T╱ // 0x9fc @0x23
0x09d9…0a04 at0024 = ╱ef╱$╱ // 0x9fd @0x24
0x09d9…0a04 at0025 = ╱ec╱,╱ // 0x9fe @0x25
0x09d9…0a04 at0026 = ╱4d╱M╱ // 0x9ff @0x26
0x09d9…0a04 at0027 = ╱4f╱O╱ // 0xa00 @0x27
0x09d9…0a04 at0028 = ╱4d╱M╱ // 0xa01 @0x28
0x09d9…0a04 at0029 = ╱53╱S╱ // 0xa02 @0x29
0x09d9…0a04 at002a = EOL // 0xa03 @0x2a
0x09d9…0a04 }
0x0a04…0a10 9ffe 0880 CLOSE PARAM$
0x0a04…0a10 LineComal80 {
0x0a04…0a10 ptr = 0x9ffe // 0xa04 @0x0
0x0a04…0a10 lno = 0x0370 // 0xa06 @0x2
0x0a04…0a10 at0004 = ╱a8╱ CLOSE ╱ // 0xa08 @0x4
0x0a04…0a10 at0005 = ╱50╱P╱ // 0xa09 @0x5
0x0a04…0a10 at0006 = ╱41╱A╱ // 0xa0a @0x6
0x0a04…0a10 at0007 = ╱52╱R╱ // 0xa0b @0x7
0x0a04…0a10 at0008 = ╱41╱A╱ // 0xa0c @0x8
0x0a04…0a10 at0009 = ╱4d╱M╱ // 0xa0d @0x9
0x0a04…0a10 at000a = ╱ef╱$╱ // 0xa0e @0xa
0x0a04…0a10 at000b = EOL // 0xa0f @0xb
0x0a04…0a10 }
0x0a10…0a42 a030 0890 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0x0a10…0a42 LineComal80 {
0x0a10…0a42 ptr = 0xa030 // 0xa10 @0x0
0x0a10…0a42 lno = 0x037a // 0xa12 @0x2
0x0a10…0a42 at0004 = ╱86╱ LET ╱ // 0xa14 @0x4
0x0a10…0a42 at0005 = ╱4b╱K╱ // 0xa15 @0x5
0x0a10…0a42 at0006 = ╱54╱T╱ // 0xa16 @0x6
0x0a10…0a42 at0007 = ╱4f╱O╱ // 0xa17 @0x7
0x0a10…0a42 at0008 = ╱49╱I╱ // 0xa18 @0x8
0x0a10…0a42 at0009 = ╱44╱D╱ // 0xa19 @0x9
0x0a10…0a42 at000a = ╱58╱X╱ // 0xa1a @0xa
0x0a10…0a42 at000b = ╱ef╱$╱ // 0xa1b @0xb
0x0a10…0a42 at000c = ╱f0╱ := ╱ // 0xa1c @0xc
0x0a10…0a42 at000d = ╱44╱D╱ // 0xa1d @0xd
0x0a10…0a42 at000e = ╱41╱A╱ // 0xa1e @0xe
0x0a10…0a42 at000f = ╱54╱T╱ // 0xa1f @0xf
0x0a10…0a42 at0010 = ╱41╱A╱ // 0xa20 @0x10
0x0a10…0a42 at0011 = ╱46╱F╱ // 0xa21 @0x11
0x0a10…0a42 at0012 = ╱4c╱L╱ // 0xa22 @0x12
0x0a10…0a42 at0013 = ╱ef╱$╱ // 0xa23 @0x13
0x0a10…0a42 at0014 = ╱eb╱ + ╱ // 0xa24 @0x14
0x0a10…0a42 at0015 = ╱22╱"╱ // 0xa25 @0x15
0x0a10…0a42 at0016 = ╱3a╱:╱ // 0xa26 @0x16
0x0a10…0a42 at0017 = ╱22╱"╱ // 0xa27 @0x17
0x0a10…0a42 at0018 = ╱eb╱ + ╱ // 0xa28 @0x18
0x0a10…0a42 at0019 = ╱53╱S╱ // 0xa29 @0x19
0x0a10…0a42 at001a = ╱5f╱_╱ // 0xa2a @0x1a
0x0a10…0a42 at001b = ╱4b╱K╱ // 0xa2b @0x1b
0x0a10…0a42 at001c = ╱4f╱O╱ // 0xa2c @0x1c
0x0a10…0a42 at001d = ╱44╱D╱ // 0xa2d @0x1d
0x0a10…0a42 at001e = ╱45╱E╱ // 0xa2e @0x1e
0x0a10…0a42 at001f = ╱ef╱$╱ // 0xa2f @0x1f
0x0a10…0a42 at0020 = ╱eb╱ + ╱ // 0xa30 @0x20
0x0a10…0a42 at0021 = ╱54╱T╱ // 0xa31 @0x21
0x0a10…0a42 at0022 = ╱5f╱_╱ // 0xa32 @0x22
0x0a10…0a42 at0023 = ╱4b╱K╱ // 0xa33 @0x23
0x0a10…0a42 at0024 = ╱4f╱O╱ // 0xa34 @0x24
0x0a10…0a42 at0025 = ╱44╱D╱ // 0xa35 @0x25
0x0a10…0a42 at0026 = ╱45╱E╱ // 0xa36 @0x26
0x0a10…0a42 at0027 = ╱ef╱$╱ // 0xa37 @0x27
0x0a10…0a42 at0028 = ╱eb╱ + ╱ // 0xa38 @0x28
0x0a10…0a42 at0029 = ╱22╱"╱ // 0xa39 @0x29
0x0a10…0a42 at002a = ╱4b╱K╱ // 0xa3a @0x2a
0x0a10…0a42 at002b = ╱54╱T╱ // 0xa3b @0x2b
0x0a10…0a42 at002c = ╱4f╱O╱ // 0xa3c @0x2c
0x0a10…0a42 at002d = ╱49╱I╱ // 0xa3d @0x2d
0x0a10…0a42 at002e = ╱44╱D╱ // 0xa3e @0x2e
0x0a10…0a42 at002f = ╱58╱X╱ // 0xa3f @0x2f
0x0a10…0a42 at0030 = ╱22╱"╱ // 0xa40 @0x30
0x0a10…0a42 at0031 = EOL // 0xa41 @0x31
0x0a10…0a42 }
0x0a42…0a72 a060 0900 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0x0a42…0a72 LineComal80 {
0x0a42…0a72 ptr = 0xa060 // 0xa42 @0x0
0x0a42…0a72 lno = 0x0384 // 0xa44 @0x2
0x0a42…0a72 at0004 = ╱86╱ LET ╱ // 0xa46 @0x4
0x0a42…0a72 at0005 = ╱4b╱K╱ // 0xa47 @0x5
0x0a42…0a72 at0006 = ╱4f╱O╱ // 0xa48 @0x6
0x0a42…0a72 at0007 = ╱4e╱N╱ // 0xa49 @0x7
0x0a42…0a72 at0008 = ╱54╱T╱ // 0xa4a @0x8
0x0a42…0a72 at0009 = ╱4f╱O╱ // 0xa4b @0x9
0x0a42…0a72 at000a = ╱ef╱$╱ // 0xa4c @0xa
0x0a42…0a72 at000b = ╱f0╱ := ╱ // 0xa4d @0xb
0x0a42…0a72 at000c = ╱44╱D╱ // 0xa4e @0xc
0x0a42…0a72 at000d = ╱41╱A╱ // 0xa4f @0xd
0x0a42…0a72 at000e = ╱54╱T╱ // 0xa50 @0xe
0x0a42…0a72 at000f = ╱41╱A╱ // 0xa51 @0xf
0x0a42…0a72 at0010 = ╱46╱F╱ // 0xa52 @0x10
0x0a42…0a72 at0011 = ╱4c╱L╱ // 0xa53 @0x11
0x0a42…0a72 at0012 = ╱ef╱$╱ // 0xa54 @0x12
0x0a42…0a72 at0013 = ╱eb╱ + ╱ // 0xa55 @0x13
0x0a42…0a72 at0014 = ╱22╱"╱ // 0xa56 @0x14
0x0a42…0a72 at0015 = ╱3a╱:╱ // 0xa57 @0x15
0x0a42…0a72 at0016 = ╱22╱"╱ // 0xa58 @0x16
0x0a42…0a72 at0017 = ╱eb╱ + ╱ // 0xa59 @0x17
0x0a42…0a72 at0018 = ╱53╱S╱ // 0xa5a @0x18
0x0a42…0a72 at0019 = ╱5f╱_╱ // 0xa5b @0x19
0x0a42…0a72 at001a = ╱4b╱K╱ // 0xa5c @0x1a
0x0a42…0a72 at001b = ╱4f╱O╱ // 0xa5d @0x1b
0x0a42…0a72 at001c = ╱44╱D╱ // 0xa5e @0x1c
0x0a42…0a72 at001d = ╱45╱E╱ // 0xa5f @0x1d
0x0a42…0a72 at001e = ╱ef╱$╱ // 0xa60 @0x1e
0x0a42…0a72 at001f = ╱eb╱ + ╱ // 0xa61 @0x1f
0x0a42…0a72 at0020 = ╱54╱T╱ // 0xa62 @0x20
0x0a42…0a72 at0021 = ╱5f╱_╱ // 0xa63 @0x21
0x0a42…0a72 at0022 = ╱4b╱K╱ // 0xa64 @0x22
0x0a42…0a72 at0023 = ╱4f╱O╱ // 0xa65 @0x23
0x0a42…0a72 at0024 = ╱44╱D╱ // 0xa66 @0x24
0x0a42…0a72 at0025 = ╱45╱E╱ // 0xa67 @0x25
0x0a42…0a72 at0026 = ╱ef╱$╱ // 0xa68 @0x26
0x0a42…0a72 at0027 = ╱eb╱ + ╱ // 0xa69 @0x27
0x0a42…0a72 at0028 = ╱22╱"╱ // 0xa6a @0x28
0x0a42…0a72 at0029 = ╱4b╱K╱ // 0xa6b @0x29
0x0a42…0a72 at002a = ╱4f╱O╱ // 0xa6c @0x2a
0x0a42…0a72 at002b = ╱4e╱N╱ // 0xa6d @0x2b
0x0a42…0a72 at002c = ╱54╱T╱ // 0xa6e @0x2c
0x0a42…0a72 at002d = ╱4f╱O╱ // 0xa6f @0x2d
0x0a42…0a72 at002e = ╱22╱"╱ // 0xa70 @0x2e
0x0a42…0a72 at002f = EOL // 0xa71 @0x2f
0x0a42…0a72 }
0x0a72…0aa2 a090 0910 LET KASSE$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KASSE"
0x0a72…0aa2 LineComal80 {
0x0a72…0aa2 ptr = 0xa090 // 0xa72 @0x0
0x0a72…0aa2 lno = 0x038e // 0xa74 @0x2
0x0a72…0aa2 at0004 = ╱86╱ LET ╱ // 0xa76 @0x4
0x0a72…0aa2 at0005 = ╱4b╱K╱ // 0xa77 @0x5
0x0a72…0aa2 at0006 = ╱41╱A╱ // 0xa78 @0x6
0x0a72…0aa2 at0007 = ╱53╱S╱ // 0xa79 @0x7
0x0a72…0aa2 at0008 = ╱53╱S╱ // 0xa7a @0x8
0x0a72…0aa2 at0009 = ╱45╱E╱ // 0xa7b @0x9
0x0a72…0aa2 at000a = ╱ef╱$╱ // 0xa7c @0xa
0x0a72…0aa2 at000b = ╱f0╱ := ╱ // 0xa7d @0xb
0x0a72…0aa2 at000c = ╱44╱D╱ // 0xa7e @0xc
0x0a72…0aa2 at000d = ╱41╱A╱ // 0xa7f @0xd
0x0a72…0aa2 at000e = ╱54╱T╱ // 0xa80 @0xe
0x0a72…0aa2 at000f = ╱41╱A╱ // 0xa81 @0xf
0x0a72…0aa2 at0010 = ╱46╱F╱ // 0xa82 @0x10
0x0a72…0aa2 at0011 = ╱4c╱L╱ // 0xa83 @0x11
0x0a72…0aa2 at0012 = ╱ef╱$╱ // 0xa84 @0x12
0x0a72…0aa2 at0013 = ╱eb╱ + ╱ // 0xa85 @0x13
0x0a72…0aa2 at0014 = ╱22╱"╱ // 0xa86 @0x14
0x0a72…0aa2 at0015 = ╱3a╱:╱ // 0xa87 @0x15
0x0a72…0aa2 at0016 = ╱22╱"╱ // 0xa88 @0x16
0x0a72…0aa2 at0017 = ╱eb╱ + ╱ // 0xa89 @0x17
0x0a72…0aa2 at0018 = ╱53╱S╱ // 0xa8a @0x18
0x0a72…0aa2 at0019 = ╱5f╱_╱ // 0xa8b @0x19
0x0a72…0aa2 at001a = ╱4b╱K╱ // 0xa8c @0x1a
0x0a72…0aa2 at001b = ╱4f╱O╱ // 0xa8d @0x1b
0x0a72…0aa2 at001c = ╱44╱D╱ // 0xa8e @0x1c
0x0a72…0aa2 at001d = ╱45╱E╱ // 0xa8f @0x1d
0x0a72…0aa2 at001e = ╱ef╱$╱ // 0xa90 @0x1e
0x0a72…0aa2 at001f = ╱eb╱ + ╱ // 0xa91 @0x1f
0x0a72…0aa2 at0020 = ╱54╱T╱ // 0xa92 @0x20
0x0a72…0aa2 at0021 = ╱5f╱_╱ // 0xa93 @0x21
0x0a72…0aa2 at0022 = ╱4b╱K╱ // 0xa94 @0x22
0x0a72…0aa2 at0023 = ╱4f╱O╱ // 0xa95 @0x23
0x0a72…0aa2 at0024 = ╱44╱D╱ // 0xa96 @0x24
0x0a72…0aa2 at0025 = ╱45╱E╱ // 0xa97 @0x25
0x0a72…0aa2 at0026 = ╱ef╱$╱ // 0xa98 @0x26
0x0a72…0aa2 at0027 = ╱eb╱ + ╱ // 0xa99 @0x27
0x0a72…0aa2 at0028 = ╱22╱"╱ // 0xa9a @0x28
0x0a72…0aa2 at0029 = ╱4b╱K╱ // 0xa9b @0x29
0x0a72…0aa2 at002a = ╱41╱A╱ // 0xa9c @0x2a
0x0a72…0aa2 at002b = ╱53╱S╱ // 0xa9d @0x2b
0x0a72…0aa2 at002c = ╱53╱S╱ // 0xa9e @0x2c
0x0a72…0aa2 at002d = ╱45╱E╱ // 0xa9f @0x2d
0x0a72…0aa2 at002e = ╱22╱"╱ // 0xaa0 @0x2e
0x0a72…0aa2 at002f = EOL // 0xaa1 @0x2f
0x0a72…0aa2 }
0x0aa2…0ad4 a0c2 0920 LET FKTONR$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "FKTONR"
0x0aa2…0ad4 LineComal80 {
0x0aa2…0ad4 ptr = 0xa0c2 // 0xaa2 @0x0
0x0aa2…0ad4 lno = 0x0398 // 0xaa4 @0x2
0x0aa2…0ad4 at0004 = ╱86╱ LET ╱ // 0xaa6 @0x4
0x0aa2…0ad4 at0005 = ╱46╱F╱ // 0xaa7 @0x5
0x0aa2…0ad4 at0006 = ╱4b╱K╱ // 0xaa8 @0x6
0x0aa2…0ad4 at0007 = ╱54╱T╱ // 0xaa9 @0x7
0x0aa2…0ad4 at0008 = ╱4f╱O╱ // 0xaaa @0x8
0x0aa2…0ad4 at0009 = ╱4e╱N╱ // 0xaab @0x9
0x0aa2…0ad4 at000a = ╱52╱R╱ // 0xaac @0xa
0x0aa2…0ad4 at000b = ╱ef╱$╱ // 0xaad @0xb
0x0aa2…0ad4 at000c = ╱f0╱ := ╱ // 0xaae @0xc
0x0aa2…0ad4 at000d = ╱44╱D╱ // 0xaaf @0xd
0x0aa2…0ad4 at000e = ╱41╱A╱ // 0xab0 @0xe
0x0aa2…0ad4 at000f = ╱54╱T╱ // 0xab1 @0xf
0x0aa2…0ad4 at0010 = ╱41╱A╱ // 0xab2 @0x10
0x0aa2…0ad4 at0011 = ╱46╱F╱ // 0xab3 @0x11
0x0aa2…0ad4 at0012 = ╱4c╱L╱ // 0xab4 @0x12
0x0aa2…0ad4 at0013 = ╱ef╱$╱ // 0xab5 @0x13
0x0aa2…0ad4 at0014 = ╱eb╱ + ╱ // 0xab6 @0x14
0x0aa2…0ad4 at0015 = ╱22╱"╱ // 0xab7 @0x15
0x0aa2…0ad4 at0016 = ╱3a╱:╱ // 0xab8 @0x16
0x0aa2…0ad4 at0017 = ╱22╱"╱ // 0xab9 @0x17
0x0aa2…0ad4 at0018 = ╱eb╱ + ╱ // 0xaba @0x18
0x0aa2…0ad4 at0019 = ╱53╱S╱ // 0xabb @0x19
0x0aa2…0ad4 at001a = ╱5f╱_╱ // 0xabc @0x1a
0x0aa2…0ad4 at001b = ╱4b╱K╱ // 0xabd @0x1b
0x0aa2…0ad4 at001c = ╱4f╱O╱ // 0xabe @0x1c
0x0aa2…0ad4 at001d = ╱44╱D╱ // 0xabf @0x1d
0x0aa2…0ad4 at001e = ╱45╱E╱ // 0xac0 @0x1e
0x0aa2…0ad4 at001f = ╱ef╱$╱ // 0xac1 @0x1f
0x0aa2…0ad4 at0020 = ╱eb╱ + ╱ // 0xac2 @0x20
0x0aa2…0ad4 at0021 = ╱54╱T╱ // 0xac3 @0x21
0x0aa2…0ad4 at0022 = ╱5f╱_╱ // 0xac4 @0x22
0x0aa2…0ad4 at0023 = ╱4b╱K╱ // 0xac5 @0x23
0x0aa2…0ad4 at0024 = ╱4f╱O╱ // 0xac6 @0x24
0x0aa2…0ad4 at0025 = ╱44╱D╱ // 0xac7 @0x25
0x0aa2…0ad4 at0026 = ╱45╱E╱ // 0xac8 @0x26
0x0aa2…0ad4 at0027 = ╱ef╱$╱ // 0xac9 @0x27
0x0aa2…0ad4 at0028 = ╱eb╱ + ╱ // 0xaca @0x28
0x0aa2…0ad4 at0029 = ╱22╱"╱ // 0xacb @0x29
0x0aa2…0ad4 at002a = ╱46╱F╱ // 0xacc @0x2a
0x0aa2…0ad4 at002b = ╱4b╱K╱ // 0xacd @0x2b
0x0aa2…0ad4 at002c = ╱54╱T╱ // 0xace @0x2c
0x0aa2…0ad4 at002d = ╱4f╱O╱ // 0xacf @0x2d
0x0aa2…0ad4 at002e = ╱4e╱N╱ // 0xad0 @0x2e
0x0aa2…0ad4 at002f = ╱52╱R╱ // 0xad1 @0x2f
0x0aa2…0ad4 at0030 = ╱22╱"╱ // 0xad2 @0x30
0x0aa2…0ad4 at0031 = EOL // 0xad3 @0x31
0x0aa2…0ad4 }
0x0ad4…0aee (36,) a0dc 0930 EXEC OPENFIL(KTOIDX$,"r")
0x0ad4…0aee LineComal80 {
0x0ad4…0aee ptr = 0xa0dc // 0xad4 @0x0
0x0ad4…0aee lno = 0x03a2 // 0xad6 @0x2
0x0ad4…0aee at0004 = ╱9d╱ EXEC ╱ // 0xad8 @0x4
0x0ad4…0aee at0005 = ╱4f╱O╱ // 0xad9 @0x5
0x0ad4…0aee at0006 = ╱50╱P╱ // 0xada @0x6
0x0ad4…0aee at0007 = ╱45╱E╱ // 0xadb @0x7
0x0ad4…0aee at0008 = ╱4e╱N╱ // 0xadc @0x8
0x0ad4…0aee at0009 = ╱46╱F╱ // 0xadd @0x9
0x0ad4…0aee at000a = ╱49╱I╱ // 0xade @0xa
0x0ad4…0aee at000b = ╱4c╱L╱ // 0xadf @0xb
0x0ad4…0aee at000c = ╱ed╱(╱ // 0xae0 @0xc
0x0ad4…0aee at000d = ╱4b╱K╱ // 0xae1 @0xd
0x0ad4…0aee at000e = ╱54╱T╱ // 0xae2 @0xe
0x0ad4…0aee at000f = ╱4f╱O╱ // 0xae3 @0xf
0x0ad4…0aee at0010 = ╱49╱I╱ // 0xae4 @0x10
0x0ad4…0aee at0011 = ╱44╱D╱ // 0xae5 @0x11
0x0ad4…0aee at0012 = ╱58╱X╱ // 0xae6 @0x12
0x0ad4…0aee at0013 = ╱ef╱$╱ // 0xae7 @0x13
0x0ad4…0aee at0014 = ╱ec╱,╱ // 0xae8 @0x14
0x0ad4…0aee at0015 = ╱22╱"╱ // 0xae9 @0x15
0x0ad4…0aee at0016 = ╱72╱r╱ // 0xaea @0x16
0x0ad4…0aee at0017 = ╱22╱"╱ // 0xaeb @0x17
0x0ad4…0aee at0018 = ╱ee╱)╱ // 0xaec @0x18
0x0ad4…0aee at0019 = EOL // 0xaed @0x19
0x0ad4…0aee }
0x0aee…0b07 a0f5 0940 EXEC OPENFIL(KONTO$,"R")
0x0aee…0b07 LineComal80 {
0x0aee…0b07 ptr = 0xa0f5 // 0xaee @0x0
0x0aee…0b07 lno = 0x03ac // 0xaf0 @0x2
0x0aee…0b07 at0004 = ╱9d╱ EXEC ╱ // 0xaf2 @0x4
0x0aee…0b07 at0005 = ╱4f╱O╱ // 0xaf3 @0x5
0x0aee…0b07 at0006 = ╱50╱P╱ // 0xaf4 @0x6
0x0aee…0b07 at0007 = ╱45╱E╱ // 0xaf5 @0x7
0x0aee…0b07 at0008 = ╱4e╱N╱ // 0xaf6 @0x8
0x0aee…0b07 at0009 = ╱46╱F╱ // 0xaf7 @0x9
0x0aee…0b07 at000a = ╱49╱I╱ // 0xaf8 @0xa
0x0aee…0b07 at000b = ╱4c╱L╱ // 0xaf9 @0xb
0x0aee…0b07 at000c = ╱ed╱(╱ // 0xafa @0xc
0x0aee…0b07 at000d = ╱4b╱K╱ // 0xafb @0xd
0x0aee…0b07 at000e = ╱4f╱O╱ // 0xafc @0xe
0x0aee…0b07 at000f = ╱4e╱N╱ // 0xafd @0xf
0x0aee…0b07 at0010 = ╱54╱T╱ // 0xafe @0x10
0x0aee…0b07 at0011 = ╱4f╱O╱ // 0xaff @0x11
0x0aee…0b07 at0012 = ╱ef╱$╱ // 0xb00 @0x12
0x0aee…0b07 at0013 = ╱ec╱,╱ // 0xb01 @0x13
0x0aee…0b07 at0014 = ╱22╱"╱ // 0xb02 @0x14
0x0aee…0b07 at0015 = ╱52╱R╱ // 0xb03 @0x15
0x0aee…0b07 at0016 = ╱22╱"╱ // 0xb04 @0x16
0x0aee…0b07 at0017 = ╱ee╱)╱ // 0xb05 @0x17
0x0aee…0b07 at0018 = EOL // 0xb06 @0x18
0x0aee…0b07 }
0x0b07…0b20 a10e 0950 EXEC OPENFIL(KASSE$,"W")
0x0b07…0b20 LineComal80 {
0x0b07…0b20 ptr = 0xa10e // 0xb07 @0x0
0x0b07…0b20 lno = 0x03b6 // 0xb09 @0x2
0x0b07…0b20 at0004 = ╱9d╱ EXEC ╱ // 0xb0b @0x4
0x0b07…0b20 at0005 = ╱4f╱O╱ // 0xb0c @0x5
0x0b07…0b20 at0006 = ╱50╱P╱ // 0xb0d @0x6
0x0b07…0b20 at0007 = ╱45╱E╱ // 0xb0e @0x7
0x0b07…0b20 at0008 = ╱4e╱N╱ // 0xb0f @0x8
0x0b07…0b20 at0009 = ╱46╱F╱ // 0xb10 @0x9
0x0b07…0b20 at000a = ╱49╱I╱ // 0xb11 @0xa
0x0b07…0b20 at000b = ╱4c╱L╱ // 0xb12 @0xb
0x0b07…0b20 at000c = ╱ed╱(╱ // 0xb13 @0xc
0x0b07…0b20 at000d = ╱4b╱K╱ // 0xb14 @0xd
0x0b07…0b20 at000e = ╱41╱A╱ // 0xb15 @0xe
0x0b07…0b20 at000f = ╱53╱S╱ // 0xb16 @0xf
0x0b07…0b20 at0010 = ╱53╱S╱ // 0xb17 @0x10
0x0b07…0b20 at0011 = ╱45╱E╱ // 0xb18 @0x11
0x0b07…0b20 at0012 = ╱ef╱$╱ // 0xb19 @0x12
0x0b07…0b20 at0013 = ╱ec╱,╱ // 0xb1a @0x13
0x0b07…0b20 at0014 = ╱22╱"╱ // 0xb1b @0x14
0x0b07…0b20 at0015 = ╱57╱W╱ // 0xb1c @0x15
0x0b07…0b20 at0016 = ╱22╱"╱ // 0xb1d @0x16
0x0b07…0b20 at0017 = ╱ee╱)╱ // 0xb1e @0x17
0x0b07…0b20 at0018 = EOL // 0xb1f @0x18
0x0b07…0b20 }
0x0b20…0b3a a128 0960 EXEC OPENFIL(FKTONR$,"R")
0x0b20…0b3a LineComal80 {
0x0b20…0b3a ptr = 0xa128 // 0xb20 @0x0
0x0b20…0b3a lno = 0x03c0 // 0xb22 @0x2
0x0b20…0b3a at0004 = ╱9d╱ EXEC ╱ // 0xb24 @0x4
0x0b20…0b3a at0005 = ╱4f╱O╱ // 0xb25 @0x5
0x0b20…0b3a at0006 = ╱50╱P╱ // 0xb26 @0x6
0x0b20…0b3a at0007 = ╱45╱E╱ // 0xb27 @0x7
0x0b20…0b3a at0008 = ╱4e╱N╱ // 0xb28 @0x8
0x0b20…0b3a at0009 = ╱46╱F╱ // 0xb29 @0x9
0x0b20…0b3a at000a = ╱49╱I╱ // 0xb2a @0xa
0x0b20…0b3a at000b = ╱4c╱L╱ // 0xb2b @0xb
0x0b20…0b3a at000c = ╱ed╱(╱ // 0xb2c @0xc
0x0b20…0b3a at000d = ╱46╱F╱ // 0xb2d @0xd
0x0b20…0b3a at000e = ╱4b╱K╱ // 0xb2e @0xe
0x0b20…0b3a at000f = ╱54╱T╱ // 0xb2f @0xf
0x0b20…0b3a at0010 = ╱4f╱O╱ // 0xb30 @0x10
0x0b20…0b3a at0011 = ╱4e╱N╱ // 0xb31 @0x11
0x0b20…0b3a at0012 = ╱52╱R╱ // 0xb32 @0x12
0x0b20…0b3a at0013 = ╱ef╱$╱ // 0xb33 @0x13
0x0b20…0b3a at0014 = ╱ec╱,╱ // 0xb34 @0x14
0x0b20…0b3a at0015 = ╱22╱"╱ // 0xb35 @0x15
0x0b20…0b3a at0016 = ╱52╱R╱ // 0xb36 @0x16
0x0b20…0b3a at0017 = ╱22╱"╱ // 0xb37 @0x17
0x0b20…0b3a at0018 = ╱ee╱)╱ // 0xb38 @0x18
0x0b20…0b3a at0019 = EOL // 0xb39 @0x19
0x0b20…0b3a }
0x0b3a…0b57 a145 0970 GET FKTONR$,1 : KASSE_KTO$
0x0b3a…0b57 LineComal80 {
0x0b3a…0b57 ptr = 0xa145 // 0xb3a @0x0
0x0b3a…0b57 lno = 0x03ca // 0xb3c @0x2
0x0b3a…0b57 at0004 = ╱a9╱ GET ╱ // 0xb3e @0x4
0x0b3a…0b57 at0005 = ╱46╱F╱ // 0xb3f @0x5
0x0b3a…0b57 at0006 = ╱4b╱K╱ // 0xb40 @0x6
0x0b3a…0b57 at0007 = ╱54╱T╱ // 0xb41 @0x7
0x0b3a…0b57 at0008 = ╱4f╱O╱ // 0xb42 @0x8
0x0b3a…0b57 at0009 = ╱4e╱N╱ // 0xb43 @0x9
0x0b3a…0b57 at000a = ╱52╱R╱ // 0xb44 @0xa
0x0b3a…0b57 at000b = ╱ef╱$╱ // 0xb45 @0xb
0x0b3a…0b57 at000c = ╱ec╱,╱ // 0xb46 @0xc
0x0b3a…0b57 at000d = ╱31╱1╱ // 0xb47 @0xd
0x0b3a…0b57 at000e = ╱f20100╱ // 0xb48 @0xe
0x0b3a…0b57 at0011 = ╱f1╱ : ╱ // 0xb4b @0x11
0x0b3a…0b57 at0012 = ╱4b╱K╱ // 0xb4c @0x12
0x0b3a…0b57 at0013 = ╱41╱A╱ // 0xb4d @0x13
0x0b3a…0b57 at0014 = ╱53╱S╱ // 0xb4e @0x14
0x0b3a…0b57 at0015 = ╱53╱S╱ // 0xb4f @0x15
0x0b3a…0b57 at0016 = ╱45╱E╱ // 0xb50 @0x16
0x0b3a…0b57 at0017 = ╱5f╱_╱ // 0xb51 @0x17
0x0b3a…0b57 at0018 = ╱4b╱K╱ // 0xb52 @0x18
0x0b3a…0b57 at0019 = ╱54╱T╱ // 0xb53 @0x19
0x0b3a…0b57 at001a = ╱4f╱O╱ // 0xb54 @0x1a
0x0b3a…0b57 at001b = ╱ef╱$╱ // 0xb55 @0x1b
0x0b3a…0b57 at001c = EOL // 0xb56 @0x1c
0x0b3a…0b57 }
0x0b57…0b73 a161 0980 GET FKTONR$,2 : BANK_KTO$
0x0b57…0b73 LineComal80 {
0x0b57…0b73 ptr = 0xa161 // 0xb57 @0x0
0x0b57…0b73 lno = 0x03d4 // 0xb59 @0x2
0x0b57…0b73 at0004 = ╱a9╱ GET ╱ // 0xb5b @0x4
0x0b57…0b73 at0005 = ╱46╱F╱ // 0xb5c @0x5
0x0b57…0b73 at0006 = ╱4b╱K╱ // 0xb5d @0x6
0x0b57…0b73 at0007 = ╱54╱T╱ // 0xb5e @0x7
0x0b57…0b73 at0008 = ╱4f╱O╱ // 0xb5f @0x8
0x0b57…0b73 at0009 = ╱4e╱N╱ // 0xb60 @0x9
0x0b57…0b73 at000a = ╱52╱R╱ // 0xb61 @0xa
0x0b57…0b73 at000b = ╱ef╱$╱ // 0xb62 @0xb
0x0b57…0b73 at000c = ╱ec╱,╱ // 0xb63 @0xc
0x0b57…0b73 at000d = ╱32╱2╱ // 0xb64 @0xd
0x0b57…0b73 at000e = ╱f20200╱ // 0xb65 @0xe
0x0b57…0b73 at0011 = ╱f1╱ : ╱ // 0xb68 @0x11
0x0b57…0b73 at0012 = ╱42╱B╱ // 0xb69 @0x12
0x0b57…0b73 at0013 = ╱41╱A╱ // 0xb6a @0x13
0x0b57…0b73 at0014 = ╱4e╱N╱ // 0xb6b @0x14
0x0b57…0b73 at0015 = ╱4b╱K╱ // 0xb6c @0x15
0x0b57…0b73 at0016 = ╱5f╱_╱ // 0xb6d @0x16
0x0b57…0b73 at0017 = ╱4b╱K╱ // 0xb6e @0x17
0x0b57…0b73 at0018 = ╱54╱T╱ // 0xb6f @0x18
0x0b57…0b73 at0019 = ╱4f╱O╱ // 0xb70 @0x19
0x0b57…0b73 at001a = ╱ef╱$╱ // 0xb71 @0x1a
0x0b57…0b73 at001b = EOL // 0xb72 @0x1b
0x0b57…0b73 }
0x0b73…0b8f a17d 0990 GET FKTONR$,3 : GIRO_KTO$
0x0b73…0b8f LineComal80 {
0x0b73…0b8f ptr = 0xa17d // 0xb73 @0x0
0x0b73…0b8f lno = 0x03de // 0xb75 @0x2
0x0b73…0b8f at0004 = ╱a9╱ GET ╱ // 0xb77 @0x4
0x0b73…0b8f at0005 = ╱46╱F╱ // 0xb78 @0x5
0x0b73…0b8f at0006 = ╱4b╱K╱ // 0xb79 @0x6
0x0b73…0b8f at0007 = ╱54╱T╱ // 0xb7a @0x7
0x0b73…0b8f at0008 = ╱4f╱O╱ // 0xb7b @0x8
0x0b73…0b8f at0009 = ╱4e╱N╱ // 0xb7c @0x9
0x0b73…0b8f at000a = ╱52╱R╱ // 0xb7d @0xa
0x0b73…0b8f at000b = ╱ef╱$╱ // 0xb7e @0xb
0x0b73…0b8f at000c = ╱ec╱,╱ // 0xb7f @0xc
0x0b73…0b8f at000d = ╱33╱3╱ // 0xb80 @0xd
0x0b73…0b8f at000e = ╱f20300╱ // 0xb81 @0xe
0x0b73…0b8f at0011 = ╱f1╱ : ╱ // 0xb84 @0x11
0x0b73…0b8f at0012 = ╱47╱G╱ // 0xb85 @0x12
0x0b73…0b8f at0013 = ╱49╱I╱ // 0xb86 @0x13
0x0b73…0b8f at0014 = ╱52╱R╱ // 0xb87 @0x14
0x0b73…0b8f at0015 = ╱4f╱O╱ // 0xb88 @0x15
0x0b73…0b8f at0016 = ╱5f╱_╱ // 0xb89 @0x16
0x0b73…0b8f at0017 = ╱4b╱K╱ // 0xb8a @0x17
0x0b73…0b8f at0018 = ╱54╱T╱ // 0xb8b @0x18
0x0b73…0b8f at0019 = ╱4f╱O╱ // 0xb8c @0x19
0x0b73…0b8f at001a = ╱ef╱$╱ // 0xb8d @0x1a
0x0b73…0b8f at001b = EOL // 0xb8e @0x1b
0x0b73…0b8f }
0x0b8f…0b9c a18a 1000 CLOSE FKTONR$
0x0b8f…0b9c LineComal80 {
0x0b8f…0b9c ptr = 0xa18a // 0xb8f @0x0
0x0b8f…0b9c lno = 0x03e8 // 0xb91 @0x2
0x0b8f…0b9c at0004 = ╱a8╱ CLOSE ╱ // 0xb93 @0x4
0x0b8f…0b9c at0005 = ╱46╱F╱ // 0xb94 @0x5
0x0b8f…0b9c at0006 = ╱4b╱K╱ // 0xb95 @0x6
0x0b8f…0b9c at0007 = ╱54╱T╱ // 0xb96 @0x7
0x0b8f…0b9c at0008 = ╱4f╱O╱ // 0xb97 @0x8
0x0b8f…0b9c at0009 = ╱4e╱N╱ // 0xb98 @0x9
0x0b8f…0b9c at000a = ╱52╱R╱ // 0xb99 @0xa
0x0b8f…0b9c at000b = ╱ef╱$╱ // 0xb9a @0xb
0x0b8f…0b9c at000c = EOL // 0xb9b @0xc
0x0b8f…0b9c }
0x0b9c…0ba9 a197 1010 ENDPROC INITIER
0x0b9c…0ba9 LineComal80 {
0x0b9c…0ba9 ptr = 0xa197 // 0xb9c @0x0
0x0b9c…0ba9 lno = 0x03f2 // 0xb9e @0x2
0x0b9c…0ba9 at0004 = ╱9f╱ ENDPROC ╱ // 0xba0 @0x4
0x0b9c…0ba9 at0005 = ╱49╱I╱ // 0xba1 @0x5
0x0b9c…0ba9 at0006 = ╱4e╱N╱ // 0xba2 @0x6
0x0b9c…0ba9 at0007 = ╱49╱I╱ // 0xba3 @0x7
0x0b9c…0ba9 at0008 = ╱54╱T╱ // 0xba4 @0x8
0x0b9c…0ba9 at0009 = ╱49╱I╱ // 0xba5 @0x9
0x0b9c…0ba9 at000a = ╱45╱E╱ // 0xba6 @0xa
0x0b9c…0ba9 at000b = ╱52╱R╱ // 0xba7 @0xb
0x0b9c…0ba9 at000c = EOL // 0xba8 @0xc
0x0b9c…0ba9 }
0x0ba9…0bae a19c 1020
0x0ba9…0bae LineComal80 {
0x0ba9…0bae ptr = 0xa19c // 0xba9 @0x0
0x0ba9…0bae lno = 0x03fc // 0xbab @0x2
0x0ba9…0bae at0004 = EOL // 0xbad @0x4
0x0ba9…0bae }
0x0bae…0bc2 a1b0 1030 PROC FUNKTIONSMENU
0x0bae…0bc2 LineComal80 {
0x0bae…0bc2 ptr = 0xa1b0 // 0xbae @0x0
0x0bae…0bc2 lno = 0x0406 // 0xbb0 @0x2
0x0bae…0bc2 at0004 = ╱9e03╱ PROC ╱ // 0xbb2 @0x4
0x0bae…0bc2 at0006 = ╱46╱F╱ // 0xbb4 @0x6
0x0bae…0bc2 at0007 = ╱55╱U╱ // 0xbb5 @0x7
0x0bae…0bc2 at0008 = ╱4e╱N╱ // 0xbb6 @0x8
0x0bae…0bc2 at0009 = ╱4b╱K╱ // 0xbb7 @0x9
0x0bae…0bc2 at000a = ╱54╱T╱ // 0xbb8 @0xa
0x0bae…0bc2 at000b = ╱49╱I╱ // 0xbb9 @0xb
0x0bae…0bc2 at000c = ╱4f╱O╱ // 0xbba @0xc
0x0bae…0bc2 at000d = ╱4e╱N╱ // 0xbbb @0xd
0x0bae…0bc2 at000e = ╱53╱S╱ // 0xbbc @0xe
0x0bae…0bc2 at000f = ╱4d╱M╱ // 0xbbd @0xf
0x0bae…0bc2 at0010 = ╱45╱E╱ // 0xbbe @0x10
0x0bae…0bc2 at0011 = ╱4e╱N╱ // 0xbbf @0x11
0x0bae…0bc2 at0012 = ╱55╱U╱ // 0xbc0 @0x12
0x0bae…0bc2 at0013 = EOL // 0xbc1 @0x13
0x0bae…0bc2 }
0x0bc2…0bc9 a1b7 1040 REPEAT
0x0bc2…0bc9 LineComal80 {
0x0bc2…0bc9 ptr = 0xa1b7 // 0xbc2 @0x0
0x0bc2…0bc9 lno = 0x0410 // 0xbc4 @0x2
0x0bc2…0bc9 at0004 = ╱9704╱ REPEAT ╱ // 0xbc6 @0x4
0x0bc2…0bc9 at0006 = EOL // 0xbc8 @0x6
0x0bc2…0bc9 }
0x0bc9…0bee a1dc 1050 EXEC OVERSKRIFT("Kasserapport",6)
0x0bc9…0bee LineComal80 {
0x0bc9…0bee ptr = 0xa1dc // 0xbc9 @0x0
0x0bc9…0bee lno = 0x041a // 0xbcb @0x2
0x0bc9…0bee at0004 = ╱9d╱ EXEC ╱ // 0xbcd @0x4
0x0bc9…0bee at0005 = ╱4f╱O╱ // 0xbce @0x5
0x0bc9…0bee at0006 = ╱56╱V╱ // 0xbcf @0x6
0x0bc9…0bee at0007 = ╱45╱E╱ // 0xbd0 @0x7
0x0bc9…0bee at0008 = ╱52╱R╱ // 0xbd1 @0x8
0x0bc9…0bee at0009 = ╱53╱S╱ // 0xbd2 @0x9
0x0bc9…0bee at000a = ╱4b╱K╱ // 0xbd3 @0xa
0x0bc9…0bee at000b = ╱52╱R╱ // 0xbd4 @0xb
0x0bc9…0bee at000c = ╱49╱I╱ // 0xbd5 @0xc
0x0bc9…0bee at000d = ╱46╱F╱ // 0xbd6 @0xd
0x0bc9…0bee at000e = ╱54╱T╱ // 0xbd7 @0xe
0x0bc9…0bee at000f = ╱ed╱(╱ // 0xbd8 @0xf
0x0bc9…0bee at0010 = ╱22╱"╱ // 0xbd9 @0x10
0x0bc9…0bee at0011 = ╱4b╱K╱ // 0xbda @0x11
0x0bc9…0bee at0012 = ╱61╱a╱ // 0xbdb @0x12
0x0bc9…0bee at0013 = ╱73╱s╱ // 0xbdc @0x13
0x0bc9…0bee at0014 = ╱73╱s╱ // 0xbdd @0x14
0x0bc9…0bee at0015 = ╱65╱e╱ // 0xbde @0x15
0x0bc9…0bee at0016 = ╱72╱r╱ // 0xbdf @0x16
0x0bc9…0bee at0017 = ╱61╱a╱ // 0xbe0 @0x17
0x0bc9…0bee at0018 = ╱70╱p╱ // 0xbe1 @0x18
0x0bc9…0bee at0019 = ╱70╱p╱ // 0xbe2 @0x19
0x0bc9…0bee at001a = ╱6f╱o╱ // 0xbe3 @0x1a
0x0bc9…0bee at001b = ╱72╱r╱ // 0xbe4 @0x1b
0x0bc9…0bee at001c = ╱74╱t╱ // 0xbe5 @0x1c
0x0bc9…0bee at001d = ╱22╱"╱ // 0xbe6 @0x1d
0x0bc9…0bee at001e = ╱ec╱,╱ // 0xbe7 @0x1e
0x0bc9…0bee at001f = ╱36╱6╱ // 0xbe8 @0x1f
0x0bc9…0bee at0020 = ╱f20600╱ // 0xbe9 @0x20
0x0bc9…0bee at0023 = ╱ee╱)╱ // 0xbec @0x23
0x0bc9…0bee at0024 = EOL // 0xbed @0x24
0x0bc9…0bee }
0x0bee…0c23 a211 1060 PRINT "<C2009>Indtastning af kasseposteringer IK"
0x0bee…0c23 LineComal80 {
0x0bee…0c23 ptr = 0xa211 // 0xbee @0x0
0x0bee…0c23 lno = 0x0424 // 0xbf0 @0x2
0x0bee…0c23 at0004 = ╱92╱ PRINT ╱ // 0xbf2 @0x4
0x0bee…0c23 at0005 = ╱22╱"╱ // 0xbf3 @0x5
0x0bee…0c23 at0006 = ╱3c╱<╱ // 0xbf4 @0x6
0x0bee…0c23 at0007 = ╱43╱C╱ // 0xbf5 @0x7
0x0bee…0c23 at0008 = ╱32╱2╱ // 0xbf6 @0x8
0x0bee…0c23 at0009 = ╱30╱0╱ // 0xbf7 @0x9
0x0bee…0c23 at000a = ╱30╱0╱ // 0xbf8 @0xa
0x0bee…0c23 at000b = ╱39╱9╱ // 0xbf9 @0xb
0x0bee…0c23 at000c = ╱3e╱>╱ // 0xbfa @0xc
0x0bee…0c23 at000d = ╱49╱I╱ // 0xbfb @0xd
0x0bee…0c23 at000e = ╱6e╱n╱ // 0xbfc @0xe
0x0bee…0c23 at000f = ╱64╱d╱ // 0xbfd @0xf
0x0bee…0c23 at0010 = ╱74╱t╱ // 0xbfe @0x10
0x0bee…0c23 at0011 = ╱61╱a╱ // 0xbff @0x11
0x0bee…0c23 at0012 = ╱73╱s╱ // 0xc00 @0x12
0x0bee…0c23 at0013 = ╱74╱t╱ // 0xc01 @0x13
0x0bee…0c23 at0014 = ╱6e╱n╱ // 0xc02 @0x14
0x0bee…0c23 at0015 = ╱69╱i╱ // 0xc03 @0x15
0x0bee…0c23 at0016 = ╱6e╱n╱ // 0xc04 @0x16
0x0bee…0c23 at0017 = ╱67╱g╱ // 0xc05 @0x17
0x0bee…0c23 at0018 = ╱20╱…╱ // 0xc06 @0x18
0x0bee…0c23 at0019 = ╱61╱a╱ // 0xc07 @0x19
0x0bee…0c23 at001a = ╱66╱f╱ // 0xc08 @0x1a
0x0bee…0c23 at001b = ╱20╱…╱ // 0xc09 @0x1b
0x0bee…0c23 at001c = ╱6b╱k╱ // 0xc0a @0x1c
0x0bee…0c23 at001d = ╱61╱a╱ // 0xc0b @0x1d
0x0bee…0c23 at001e = ╱73╱s╱ // 0xc0c @0x1e
0x0bee…0c23 at001f = ╱73╱s╱ // 0xc0d @0x1f
0x0bee…0c23 at0020 = ╱65╱e╱ // 0xc0e @0x20
0x0bee…0c23 at0021 = ╱70╱p╱ // 0xc0f @0x21
0x0bee…0c23 at0022 = ╱6f╱o╱ // 0xc10 @0x22
0x0bee…0c23 at0023 = ╱73╱s╱ // 0xc11 @0x23
0x0bee…0c23 at0024 = ╱74╱t╱ // 0xc12 @0x24
0x0bee…0c23 at0025 = ╱65╱e╱ // 0xc13 @0x25
0x0bee…0c23 at0026 = ╱72╱r╱ // 0xc14 @0x26
0x0bee…0c23 at0027 = ╱69╱i╱ // 0xc15 @0x27
0x0bee…0c23 at0028 = ╱6e╱n╱ // 0xc16 @0x28
0x0bee…0c23 at0029 = ╱67╱g╱ // 0xc17 @0x29
0x0bee…0c23 at002a = ╱65╱e╱ // 0xc18 @0x2a
0x0bee…0c23 at002b = ╱72╱r╱ // 0xc19 @0x2b
0x0bee…0c23 at002c = ╱20╱…╱ // 0xc1a @0x2c
0x0bee…0c23 at002d = ╱20╱…╱ // 0xc1b @0x2d
0x0bee…0c23 at002e = ╱20╱…╱ // 0xc1c @0x2e
0x0bee…0c23 at002f = ╱20╱…╱ // 0xc1d @0x2f
0x0bee…0c23 at0030 = ╱20╱…╱ // 0xc1e @0x30
0x0bee…0c23 at0031 = ╱49╱I╱ // 0xc1f @0x31
0x0bee…0c23 at0032 = ╱4b╱K╱ // 0xc20 @0x32
0x0bee…0c23 at0033 = ╱22╱"╱ // 0xc21 @0x33
0x0bee…0c23 at0034 = EOL // 0xc22 @0x34
0x0bee…0c23 }
0x0c23…0c58 a246 1070 PRINT "<C2011>Udskrivning af kassekladde UK"
0x0c23…0c58 LineComal80 {
0x0c23…0c58 ptr = 0xa246 // 0xc23 @0x0
0x0c23…0c58 lno = 0x042e // 0xc25 @0x2
0x0c23…0c58 at0004 = ╱92╱ PRINT ╱ // 0xc27 @0x4
0x0c23…0c58 at0005 = ╱22╱"╱ // 0xc28 @0x5
0x0c23…0c58 at0006 = ╱3c╱<╱ // 0xc29 @0x6
0x0c23…0c58 at0007 = ╱43╱C╱ // 0xc2a @0x7
0x0c23…0c58 at0008 = ╱32╱2╱ // 0xc2b @0x8
0x0c23…0c58 at0009 = ╱30╱0╱ // 0xc2c @0x9
0x0c23…0c58 at000a = ╱31╱1╱ // 0xc2d @0xa
0x0c23…0c58 at000b = ╱31╱1╱ // 0xc2e @0xb
0x0c23…0c58 at000c = ╱3e╱>╱ // 0xc2f @0xc
0x0c23…0c58 at000d = ╱55╱U╱ // 0xc30 @0xd
0x0c23…0c58 at000e = ╱64╱d╱ // 0xc31 @0xe
0x0c23…0c58 at000f = ╱73╱s╱ // 0xc32 @0xf
0x0c23…0c58 at0010 = ╱6b╱k╱ // 0xc33 @0x10
0x0c23…0c58 at0011 = ╱72╱r╱ // 0xc34 @0x11
0x0c23…0c58 at0012 = ╱69╱i╱ // 0xc35 @0x12
0x0c23…0c58 at0013 = ╱76╱v╱ // 0xc36 @0x13
0x0c23…0c58 at0014 = ╱6e╱n╱ // 0xc37 @0x14
0x0c23…0c58 at0015 = ╱69╱i╱ // 0xc38 @0x15
0x0c23…0c58 at0016 = ╱6e╱n╱ // 0xc39 @0x16
0x0c23…0c58 at0017 = ╱67╱g╱ // 0xc3a @0x17
0x0c23…0c58 at0018 = ╱20╱…╱ // 0xc3b @0x18
0x0c23…0c58 at0019 = ╱61╱a╱ // 0xc3c @0x19
0x0c23…0c58 at001a = ╱66╱f╱ // 0xc3d @0x1a
0x0c23…0c58 at001b = ╱20╱…╱ // 0xc3e @0x1b
0x0c23…0c58 at001c = ╱6b╱k╱ // 0xc3f @0x1c
0x0c23…0c58 at001d = ╱61╱a╱ // 0xc40 @0x1d
0x0c23…0c58 at001e = ╱73╱s╱ // 0xc41 @0x1e
0x0c23…0c58 at001f = ╱73╱s╱ // 0xc42 @0x1f
0x0c23…0c58 at0020 = ╱65╱e╱ // 0xc43 @0x20
0x0c23…0c58 at0021 = ╱6b╱k╱ // 0xc44 @0x21
0x0c23…0c58 at0022 = ╱6c╱l╱ // 0xc45 @0x22
0x0c23…0c58 at0023 = ╱61╱a╱ // 0xc46 @0x23
0x0c23…0c58 at0024 = ╱64╱d╱ // 0xc47 @0x24
0x0c23…0c58 at0025 = ╱64╱d╱ // 0xc48 @0x25
0x0c23…0c58 at0026 = ╱65╱e╱ // 0xc49 @0x26
0x0c23…0c58 at0027 = ╱20╱…╱ // 0xc4a @0x27
0x0c23…0c58 at0028 = ╱20╱…╱ // 0xc4b @0x28
0x0c23…0c58 at0029 = ╱20╱…╱ // 0xc4c @0x29
0x0c23…0c58 at002a = ╱20╱…╱ // 0xc4d @0x2a
0x0c23…0c58 at002b = ╱20╱…╱ // 0xc4e @0x2b
0x0c23…0c58 at002c = ╱20╱…╱ // 0xc4f @0x2c
0x0c23…0c58 at002d = ╱20╱…╱ // 0xc50 @0x2d
0x0c23…0c58 at002e = ╱20╱…╱ // 0xc51 @0x2e
0x0c23…0c58 at002f = ╱20╱…╱ // 0xc52 @0x2f
0x0c23…0c58 at0030 = ╱20╱…╱ // 0xc53 @0x30
0x0c23…0c58 at0031 = ╱55╱U╱ // 0xc54 @0x31
0x0c23…0c58 at0032 = ╱4b╱K╱ // 0xc55 @0x32
0x0c23…0c58 at0033 = ╱22╱"╱ // 0xc56 @0x33
0x0c23…0c58 at0034 = EOL // 0xc57 @0x34
0x0c23…0c58 }
0x0c58…0c8d a27b 1080 PRINT "<C2013>Ret kasseposteringer RK"
0x0c58…0c8d LineComal80 {
0x0c58…0c8d ptr = 0xa27b // 0xc58 @0x0
0x0c58…0c8d lno = 0x0438 // 0xc5a @0x2
0x0c58…0c8d at0004 = ╱92╱ PRINT ╱ // 0xc5c @0x4
0x0c58…0c8d at0005 = ╱22╱"╱ // 0xc5d @0x5
0x0c58…0c8d at0006 = ╱3c╱<╱ // 0xc5e @0x6
0x0c58…0c8d at0007 = ╱43╱C╱ // 0xc5f @0x7
0x0c58…0c8d at0008 = ╱32╱2╱ // 0xc60 @0x8
0x0c58…0c8d at0009 = ╱30╱0╱ // 0xc61 @0x9
0x0c58…0c8d at000a = ╱31╱1╱ // 0xc62 @0xa
0x0c58…0c8d at000b = ╱33╱3╱ // 0xc63 @0xb
0x0c58…0c8d at000c = ╱3e╱>╱ // 0xc64 @0xc
0x0c58…0c8d at000d = ╱52╱R╱ // 0xc65 @0xd
0x0c58…0c8d at000e = ╱65╱e╱ // 0xc66 @0xe
0x0c58…0c8d at000f = ╱74╱t╱ // 0xc67 @0xf
0x0c58…0c8d at0010 = ╱20╱…╱ // 0xc68 @0x10
0x0c58…0c8d at0011 = ╱6b╱k╱ // 0xc69 @0x11
0x0c58…0c8d at0012 = ╱61╱a╱ // 0xc6a @0x12
0x0c58…0c8d at0013 = ╱73╱s╱ // 0xc6b @0x13
0x0c58…0c8d at0014 = ╱73╱s╱ // 0xc6c @0x14
0x0c58…0c8d at0015 = ╱65╱e╱ // 0xc6d @0x15
0x0c58…0c8d at0016 = ╱70╱p╱ // 0xc6e @0x16
0x0c58…0c8d at0017 = ╱6f╱o╱ // 0xc6f @0x17
0x0c58…0c8d at0018 = ╱73╱s╱ // 0xc70 @0x18
0x0c58…0c8d at0019 = ╱74╱t╱ // 0xc71 @0x19
0x0c58…0c8d at001a = ╱65╱e╱ // 0xc72 @0x1a
0x0c58…0c8d at001b = ╱72╱r╱ // 0xc73 @0x1b
0x0c58…0c8d at001c = ╱69╱i╱ // 0xc74 @0x1c
0x0c58…0c8d at001d = ╱6e╱n╱ // 0xc75 @0x1d
0x0c58…0c8d at001e = ╱67╱g╱ // 0xc76 @0x1e
0x0c58…0c8d at001f = ╱65╱e╱ // 0xc77 @0x1f
0x0c58…0c8d at0020 = ╱72╱r╱ // 0xc78 @0x20
0x0c58…0c8d at0021 = ╱20╱…╱ // 0xc79 @0x21
0x0c58…0c8d at0022 = ╱20╱…╱ // 0xc7a @0x22
0x0c58…0c8d at0023 = ╱20╱…╱ // 0xc7b @0x23
0x0c58…0c8d at0024 = ╱20╱…╱ // 0xc7c @0x24
0x0c58…0c8d at0025 = ╱20╱…╱ // 0xc7d @0x25
0x0c58…0c8d at0026 = ╱20╱…╱ // 0xc7e @0x26
0x0c58…0c8d at0027 = ╱20╱…╱ // 0xc7f @0x27
0x0c58…0c8d at0028 = ╱20╱…╱ // 0xc80 @0x28
0x0c58…0c8d at0029 = ╱20╱…╱ // 0xc81 @0x29
0x0c58…0c8d at002a = ╱20╱…╱ // 0xc82 @0x2a
0x0c58…0c8d at002b = ╱20╱…╱ // 0xc83 @0x2b
0x0c58…0c8d at002c = ╱20╱…╱ // 0xc84 @0x2c
0x0c58…0c8d at002d = ╱20╱…╱ // 0xc85 @0x2d
0x0c58…0c8d at002e = ╱20╱…╱ // 0xc86 @0x2e
0x0c58…0c8d at002f = ╱20╱…╱ // 0xc87 @0x2f
0x0c58…0c8d at0030 = ╱20╱…╱ // 0xc88 @0x30
0x0c58…0c8d at0031 = ╱52╱R╱ // 0xc89 @0x31
0x0c58…0c8d at0032 = ╱4b╱K╱ // 0xc8a @0x32
0x0c58…0c8d at0033 = ╱22╱"╱ // 0xc8b @0x33
0x0c58…0c8d at0034 = EOL // 0xc8c @0x34
0x0c58…0c8d }
0x0c8d…0cc2 a2b0 1090 PRINT "<C2015>Afstem og bogfør kasseposteringer AK"
0x0c8d…0cc2 LineComal80 {
0x0c8d…0cc2 ptr = 0xa2b0 // 0xc8d @0x0
0x0c8d…0cc2 lno = 0x0442 // 0xc8f @0x2
0x0c8d…0cc2 at0004 = ╱92╱ PRINT ╱ // 0xc91 @0x4
0x0c8d…0cc2 at0005 = ╱22╱"╱ // 0xc92 @0x5
0x0c8d…0cc2 at0006 = ╱3c╱<╱ // 0xc93 @0x6
0x0c8d…0cc2 at0007 = ╱43╱C╱ // 0xc94 @0x7
0x0c8d…0cc2 at0008 = ╱32╱2╱ // 0xc95 @0x8
0x0c8d…0cc2 at0009 = ╱30╱0╱ // 0xc96 @0x9
0x0c8d…0cc2 at000a = ╱31╱1╱ // 0xc97 @0xa
0x0c8d…0cc2 at000b = ╱35╱5╱ // 0xc98 @0xb
0x0c8d…0cc2 at000c = ╱3e╱>╱ // 0xc99 @0xc
0x0c8d…0cc2 at000d = ╱41╱A╱ // 0xc9a @0xd
0x0c8d…0cc2 at000e = ╱66╱f╱ // 0xc9b @0xe
0x0c8d…0cc2 at000f = ╱73╱s╱ // 0xc9c @0xf
0x0c8d…0cc2 at0010 = ╱74╱t╱ // 0xc9d @0x10
0x0c8d…0cc2 at0011 = ╱65╱e╱ // 0xc9e @0x11
0x0c8d…0cc2 at0012 = ╱6d╱m╱ // 0xc9f @0x12
0x0c8d…0cc2 at0013 = ╱20╱…╱ // 0xca0 @0x13
0x0c8d…0cc2 at0014 = ╱6f╱o╱ // 0xca1 @0x14
0x0c8d…0cc2 at0015 = ╱67╱g╱ // 0xca2 @0x15
0x0c8d…0cc2 at0016 = ╱20╱…╱ // 0xca3 @0x16
0x0c8d…0cc2 at0017 = ╱62╱b╱ // 0xca4 @0x17
0x0c8d…0cc2 at0018 = ╱6f╱o╱ // 0xca5 @0x18
0x0c8d…0cc2 at0019 = ╱67╱g╱ // 0xca6 @0x19
0x0c8d…0cc2 at001a = ╱66╱f╱ // 0xca7 @0x1a
0x0c8d…0cc2 at001b = ╱7c╱ø╱ // 0xca8 @0x1b
0x0c8d…0cc2 at001c = ╱72╱r╱ // 0xca9 @0x1c
0x0c8d…0cc2 at001d = ╱20╱…╱ // 0xcaa @0x1d
0x0c8d…0cc2 at001e = ╱6b╱k╱ // 0xcab @0x1e
0x0c8d…0cc2 at001f = ╱61╱a╱ // 0xcac @0x1f
0x0c8d…0cc2 at0020 = ╱73╱s╱ // 0xcad @0x20
0x0c8d…0cc2 at0021 = ╱73╱s╱ // 0xcae @0x21
0x0c8d…0cc2 at0022 = ╱65╱e╱ // 0xcaf @0x22
0x0c8d…0cc2 at0023 = ╱70╱p╱ // 0xcb0 @0x23
0x0c8d…0cc2 at0024 = ╱6f╱o╱ // 0xcb1 @0x24
0x0c8d…0cc2 at0025 = ╱73╱s╱ // 0xcb2 @0x25
0x0c8d…0cc2 at0026 = ╱74╱t╱ // 0xcb3 @0x26
0x0c8d…0cc2 at0027 = ╱65╱e╱ // 0xcb4 @0x27
0x0c8d…0cc2 at0028 = ╱72╱r╱ // 0xcb5 @0x28
0x0c8d…0cc2 at0029 = ╱69╱i╱ // 0xcb6 @0x29
0x0c8d…0cc2 at002a = ╱6e╱n╱ // 0xcb7 @0x2a
0x0c8d…0cc2 at002b = ╱67╱g╱ // 0xcb8 @0x2b
0x0c8d…0cc2 at002c = ╱65╱e╱ // 0xcb9 @0x2c
0x0c8d…0cc2 at002d = ╱72╱r╱ // 0xcba @0x2d
0x0c8d…0cc2 at002e = ╱20╱…╱ // 0xcbb @0x2e
0x0c8d…0cc2 at002f = ╱20╱…╱ // 0xcbc @0x2f
0x0c8d…0cc2 at0030 = ╱20╱…╱ // 0xcbd @0x30
0x0c8d…0cc2 at0031 = ╱41╱A╱ // 0xcbe @0x31
0x0c8d…0cc2 at0032 = ╱4b╱K╱ // 0xcbf @0x32
0x0c8d…0cc2 at0033 = ╱22╱"╱ // 0xcc0 @0x33
0x0c8d…0cc2 at0034 = EOL // 0xcc1 @0x34
0x0c8d…0cc2 }
0x0cc2…0cf9 a2e7 1100 PRINT "<C2018>Programfordeler RETURN"
0x0cc2…0cf9 LineComal80 {
0x0cc2…0cf9 ptr = 0xa2e7 // 0xcc2 @0x0
0x0cc2…0cf9 lno = 0x044c // 0xcc4 @0x2
0x0cc2…0cf9 at0004 = ╱92╱ PRINT ╱ // 0xcc6 @0x4
0x0cc2…0cf9 at0005 = ╱22╱"╱ // 0xcc7 @0x5
0x0cc2…0cf9 at0006 = ╱3c╱<╱ // 0xcc8 @0x6
0x0cc2…0cf9 at0007 = ╱43╱C╱ // 0xcc9 @0x7
0x0cc2…0cf9 at0008 = ╱32╱2╱ // 0xcca @0x8
0x0cc2…0cf9 at0009 = ╱30╱0╱ // 0xccb @0x9
0x0cc2…0cf9 at000a = ╱31╱1╱ // 0xccc @0xa
0x0cc2…0cf9 at000b = ╱38╱8╱ // 0xccd @0xb
0x0cc2…0cf9 at000c = ╱3e╱>╱ // 0xcce @0xc
0x0cc2…0cf9 at000d = ╱50╱P╱ // 0xccf @0xd
0x0cc2…0cf9 at000e = ╱72╱r╱ // 0xcd0 @0xe
0x0cc2…0cf9 at000f = ╱6f╱o╱ // 0xcd1 @0xf
0x0cc2…0cf9 at0010 = ╱67╱g╱ // 0xcd2 @0x10
0x0cc2…0cf9 at0011 = ╱72╱r╱ // 0xcd3 @0x11
0x0cc2…0cf9 at0012 = ╱61╱a╱ // 0xcd4 @0x12
0x0cc2…0cf9 at0013 = ╱6d╱m╱ // 0xcd5 @0x13
0x0cc2…0cf9 at0014 = ╱66╱f╱ // 0xcd6 @0x14
0x0cc2…0cf9 at0015 = ╱6f╱o╱ // 0xcd7 @0x15
0x0cc2…0cf9 at0016 = ╱72╱r╱ // 0xcd8 @0x16
0x0cc2…0cf9 at0017 = ╱64╱d╱ // 0xcd9 @0x17
0x0cc2…0cf9 at0018 = ╱65╱e╱ // 0xcda @0x18
0x0cc2…0cf9 at0019 = ╱6c╱l╱ // 0xcdb @0x19
0x0cc2…0cf9 at001a = ╱65╱e╱ // 0xcdc @0x1a
0x0cc2…0cf9 at001b = ╱72╱r╱ // 0xcdd @0x1b
0x0cc2…0cf9 at001c = ╱20╱…╱ // 0xcde @0x1c
0x0cc2…0cf9 at001d = ╱20╱…╱ // 0xcdf @0x1d
0x0cc2…0cf9 at001e = ╱20╱…╱ // 0xce0 @0x1e
0x0cc2…0cf9 at001f = ╱20╱…╱ // 0xce1 @0x1f
0x0cc2…0cf9 at0020 = ╱20╱…╱ // 0xce2 @0x20
0x0cc2…0cf9 at0021 = ╱20╱…╱ // 0xce3 @0x21
0x0cc2…0cf9 at0022 = ╱20╱…╱ // 0xce4 @0x22
0x0cc2…0cf9 at0023 = ╱20╱…╱ // 0xce5 @0x23
0x0cc2…0cf9 at0024 = ╱20╱…╱ // 0xce6 @0x24
0x0cc2…0cf9 at0025 = ╱20╱…╱ // 0xce7 @0x25
0x0cc2…0cf9 at0026 = ╱20╱…╱ // 0xce8 @0x26
0x0cc2…0cf9 at0027 = ╱20╱…╱ // 0xce9 @0x27
0x0cc2…0cf9 at0028 = ╱20╱…╱ // 0xcea @0x28
0x0cc2…0cf9 at0029 = ╱20╱…╱ // 0xceb @0x29
0x0cc2…0cf9 at002a = ╱20╱…╱ // 0xcec @0x2a
0x0cc2…0cf9 at002b = ╱20╱…╱ // 0xced @0x2b
0x0cc2…0cf9 at002c = ╱20╱…╱ // 0xcee @0x2c
0x0cc2…0cf9 at002d = ╱20╱…╱ // 0xcef @0x2d
0x0cc2…0cf9 at002e = ╱20╱…╱ // 0xcf0 @0x2e
0x0cc2…0cf9 at002f = ╱52╱R╱ // 0xcf1 @0x2f
0x0cc2…0cf9 at0030 = ╱45╱E╱ // 0xcf2 @0x30
0x0cc2…0cf9 at0031 = ╱54╱T╱ // 0xcf3 @0x31
0x0cc2…0cf9 at0032 = ╱55╱U╱ // 0xcf4 @0x32
0x0cc2…0cf9 at0033 = ╱52╱R╱ // 0xcf5 @0x33
0x0cc2…0cf9 at0034 = ╱4e╱N╱ // 0xcf6 @0x34
0x0cc2…0cf9 at0035 = ╱22╱"╱ // 0xcf7 @0x35
0x0cc2…0cf9 at0036 = EOL // 0xcf8 @0x36
0x0cc2…0cf9 }
0x0cf9…0d09 a2f7 1110 LET SVAR$ := " "
0x0cf9…0d09 LineComal80 {
0x0cf9…0d09 ptr = 0xa2f7 // 0xcf9 @0x0
0x0cf9…0d09 lno = 0x0456 // 0xcfb @0x2
0x0cf9…0d09 at0004 = ╱86╱ LET ╱ // 0xcfd @0x4
0x0cf9…0d09 at0005 = ╱53╱S╱ // 0xcfe @0x5
0x0cf9…0d09 at0006 = ╱56╱V╱ // 0xcff @0x6
0x0cf9…0d09 at0007 = ╱41╱A╱ // 0xd00 @0x7
0x0cf9…0d09 at0008 = ╱52╱R╱ // 0xd01 @0x8
0x0cf9…0d09 at0009 = ╱ef╱$╱ // 0xd02 @0x9
0x0cf9…0d09 at000a = ╱f0╱ := ╱ // 0xd03 @0xa
0x0cf9…0d09 at000b = ╱22╱"╱ // 0xd04 @0xb
0x0cf9…0d09 at000c = ╱20╱…╱ // 0xd05 @0xc
0x0cf9…0d09 at000d = ╱20╱…╱ // 0xd06 @0xd
0x0cf9…0d09 at000e = ╱22╱"╱ // 0xd07 @0xe
0x0cf9…0d09 at000f = EOL // 0xd08 @0xf
0x0cf9…0d09 }
0x0d09…0d10 a2fe 1120 REPEAT
0x0d09…0d10 LineComal80 {
0x0d09…0d10 ptr = 0xa2fe // 0xd09 @0x0
0x0d09…0d10 lno = 0x0460 // 0xd0b @0x2
0x0d09…0d10 at0004 = ╱9705╱ REPEAT ╱ // 0xd0d @0x4
0x0d09…0d10 at0006 = EOL // 0xd0f @0x6
0x0d09…0d10 }
0x0d10…0d47 a335 1130 EDIT "<C2523>Indtast funktionskode: " : SVAR$(1 : 2)
0x0d10…0d47 LineComal80 {
0x0d10…0d47 ptr = 0xa335 // 0xd10 @0x0
0x0d10…0d47 lno = 0x046a // 0xd12 @0x2
0x0d10…0d47 at0004 = ╱b1╱ EDIT ╱ // 0xd14 @0x4
0x0d10…0d47 at0005 = ╱22╱"╱ // 0xd15 @0x5
0x0d10…0d47 at0006 = ╱3c╱<╱ // 0xd16 @0x6
0x0d10…0d47 at0007 = ╱43╱C╱ // 0xd17 @0x7
0x0d10…0d47 at0008 = ╱32╱2╱ // 0xd18 @0x8
0x0d10…0d47 at0009 = ╱35╱5╱ // 0xd19 @0x9
0x0d10…0d47 at000a = ╱32╱2╱ // 0xd1a @0xa
0x0d10…0d47 at000b = ╱33╱3╱ // 0xd1b @0xb
0x0d10…0d47 at000c = ╱3e╱>╱ // 0xd1c @0xc
0x0d10…0d47 at000d = ╱49╱I╱ // 0xd1d @0xd
0x0d10…0d47 at000e = ╱6e╱n╱ // 0xd1e @0xe
0x0d10…0d47 at000f = ╱64╱d╱ // 0xd1f @0xf
0x0d10…0d47 at0010 = ╱74╱t╱ // 0xd20 @0x10
0x0d10…0d47 at0011 = ╱61╱a╱ // 0xd21 @0x11
0x0d10…0d47 at0012 = ╱73╱s╱ // 0xd22 @0x12
0x0d10…0d47 at0013 = ╱74╱t╱ // 0xd23 @0x13
0x0d10…0d47 at0014 = ╱20╱…╱ // 0xd24 @0x14
0x0d10…0d47 at0015 = ╱66╱f╱ // 0xd25 @0x15
0x0d10…0d47 at0016 = ╱75╱u╱ // 0xd26 @0x16
0x0d10…0d47 at0017 = ╱6e╱n╱ // 0xd27 @0x17
0x0d10…0d47 at0018 = ╱6b╱k╱ // 0xd28 @0x18
0x0d10…0d47 at0019 = ╱74╱t╱ // 0xd29 @0x19
0x0d10…0d47 at001a = ╱69╱i╱ // 0xd2a @0x1a
0x0d10…0d47 at001b = ╱6f╱o╱ // 0xd2b @0x1b
0x0d10…0d47 at001c = ╱6e╱n╱ // 0xd2c @0x1c
0x0d10…0d47 at001d = ╱73╱s╱ // 0xd2d @0x1d
0x0d10…0d47 at001e = ╱6b╱k╱ // 0xd2e @0x1e
0x0d10…0d47 at001f = ╱6f╱o╱ // 0xd2f @0x1f
0x0d10…0d47 at0020 = ╱64╱d╱ // 0xd30 @0x20
0x0d10…0d47 at0021 = ╱65╱e╱ // 0xd31 @0x21
0x0d10…0d47 at0022 = ╱3a╱:╱ // 0xd32 @0x22
0x0d10…0d47 at0023 = ╱20╱…╱ // 0xd33 @0x23
0x0d10…0d47 at0024 = ╱22╱"╱ // 0xd34 @0x24
0x0d10…0d47 at0025 = ╱f1╱ : ╱ // 0xd35 @0x25
0x0d10…0d47 at0026 = ╱53╱S╱ // 0xd36 @0x26
0x0d10…0d47 at0027 = ╱56╱V╱ // 0xd37 @0x27
0x0d10…0d47 at0028 = ╱41╱A╱ // 0xd38 @0x28
0x0d10…0d47 at0029 = ╱52╱R╱ // 0xd39 @0x29
0x0d10…0d47 at002a = ╱ef╱$╱ // 0xd3a @0x2a
0x0d10…0d47 at002b = ╱ed╱(╱ // 0xd3b @0x2b
0x0d10…0d47 at002c = ╱31╱1╱ // 0xd3c @0x2c
0x0d10…0d47 at002d = ╱f20100╱ // 0xd3d @0x2d
0x0d10…0d47 at0030 = ╱f1╱ : ╱ // 0xd40 @0x30
0x0d10…0d47 at0031 = ╱32╱2╱ // 0xd41 @0x31
0x0d10…0d47 at0032 = ╱f20200╱ // 0xd42 @0x32
0x0d10…0d47 at0035 = ╱ee╱)╱ // 0xd45 @0x35
0x0d10…0d47 at0036 = EOL // 0xd46 @0x36
0x0d10…0d47 }
0x0d47…0d59 a347 1140 EXEC SL_FEJLLINIE
0x0d47…0d59 LineComal80 {
0x0d47…0d59 ptr = 0xa347 // 0xd47 @0x0
0x0d47…0d59 lno = 0x0474 // 0xd49 @0x2
0x0d47…0d59 at0004 = ╱9d╱ EXEC ╱ // 0xd4b @0x4
0x0d47…0d59 at0005 = ╱53╱S╱ // 0xd4c @0x5
0x0d47…0d59 at0006 = ╱4c╱L╱ // 0xd4d @0x6
0x0d47…0d59 at0007 = ╱5f╱_╱ // 0xd4e @0x7
0x0d47…0d59 at0008 = ╱46╱F╱ // 0xd4f @0x8
0x0d47…0d59 at0009 = ╱45╱E╱ // 0xd50 @0x9
0x0d47…0d59 at000a = ╱4a╱J╱ // 0xd51 @0xa
0x0d47…0d59 at000b = ╱4c╱L╱ // 0xd52 @0xb
0x0d47…0d59 at000c = ╱4c╱L╱ // 0xd53 @0xc
0x0d47…0d59 at000d = ╱49╱I╱ // 0xd54 @0xd
0x0d47…0d59 at000e = ╱4e╱N╱ // 0xd55 @0xe
0x0d47…0d59 at000f = ╱49╱I╱ // 0xd56 @0xf
0x0d47…0d59 at0010 = ╱45╱E╱ // 0xd57 @0x10
0x0d47…0d59 at0011 = EOL // 0xd58 @0x11
0x0d47…0d59 }
0x0d59…0d6c a35a 1150 IF SVAR$ IN " " THEN EXIT
0x0d59…0d6c LineComal80 {
0x0d59…0d6c ptr = 0xa35a // 0xd59 @0x0
0x0d59…0d6c lno = 0x047e // 0xd5b @0x2
0x0d59…0d6c at0004 = ╱8200╱ IF ╱ // 0xd5d @0x4
0x0d59…0d6c at0006 = ╱53╱S╱ // 0xd5f @0x6
0x0d59…0d6c at0007 = ╱56╱V╱ // 0xd60 @0x7
0x0d59…0d6c at0008 = ╱41╱A╱ // 0xd61 @0x8
0x0d59…0d6c at0009 = ╱52╱R╱ // 0xd62 @0x9
0x0d59…0d6c at000a = ╱ef╱$╱ // 0xd63 @0xa
0x0d59…0d6c at000b = ╱dc╱ IN ╱ // 0xd64 @0xb
0x0d59…0d6c at000c = ╱22╱"╱ // 0xd65 @0xc
0x0d59…0d6c at000d = ╱20╱…╱ // 0xd66 @0xd
0x0d59…0d6c at000e = ╱20╱…╱ // 0xd67 @0xe
0x0d59…0d6c at000f = ╱22╱"╱ // 0xd68 @0xf
0x0d59…0d6c at0010 = ╱b5╱ THEN ╱ // 0xd69 @0x10
0x0d59…0d6c at0011 = ╱99╱ EXIT ╱ // 0xd6a @0x11
0x0d59…0d6c at0012 = EOL // 0xd6b @0x12
0x0d59…0d6c }
0x0d6c…0da9 a397 1160 IF "/" + SVAR$(1 : 2) + "/" IN "/IK/ik/UK/uk/RK/rk/AK/ak/" THEN
0x0d6c…0da9 LineComal80 {
0x0d6c…0da9 ptr = 0xa397 // 0xd6c @0x0
0x0d6c…0da9 lno = 0x0488 // 0xd6e @0x2
0x0d6c…0da9 at0004 = ╱9b06d7╱ IF ╱ // 0xd70 @0x4
0x0d6c…0da9 at0007 = ╱22╱"╱ // 0xd73 @0x7
0x0d6c…0da9 at0008 = ╱2f╱/╱ // 0xd74 @0x8
0x0d6c…0da9 at0009 = ╱22╱"╱ // 0xd75 @0x9
0x0d6c…0da9 at000a = ╱eb╱ + ╱ // 0xd76 @0xa
0x0d6c…0da9 at000b = ╱53╱S╱ // 0xd77 @0xb
0x0d6c…0da9 at000c = ╱56╱V╱ // 0xd78 @0xc
0x0d6c…0da9 at000d = ╱41╱A╱ // 0xd79 @0xd
0x0d6c…0da9 at000e = ╱52╱R╱ // 0xd7a @0xe
0x0d6c…0da9 at000f = ╱ef╱$╱ // 0xd7b @0xf
0x0d6c…0da9 at0010 = ╱ed╱(╱ // 0xd7c @0x10
0x0d6c…0da9 at0011 = ╱31╱1╱ // 0xd7d @0x11
0x0d6c…0da9 at0012 = ╱f20100╱ // 0xd7e @0x12
0x0d6c…0da9 at0015 = ╱f1╱ : ╱ // 0xd81 @0x15
0x0d6c…0da9 at0016 = ╱32╱2╱ // 0xd82 @0x16
0x0d6c…0da9 at0017 = ╱f20200╱ // 0xd83 @0x17
0x0d6c…0da9 at001a = ╱ee╱)╱ // 0xd86 @0x1a
0x0d6c…0da9 at001b = ╱eb╱ + ╱ // 0xd87 @0x1b
0x0d6c…0da9 at001c = ╱22╱"╱ // 0xd88 @0x1c
0x0d6c…0da9 at001d = ╱2f╱/╱ // 0xd89 @0x1d
0x0d6c…0da9 at001e = ╱22╱"╱ // 0xd8a @0x1e
0x0d6c…0da9 at001f = ╱dc╱ IN ╱ // 0xd8b @0x1f
0x0d6c…0da9 at0020 = ╱22╱"╱ // 0xd8c @0x20
0x0d6c…0da9 at0021 = ╱2f╱/╱ // 0xd8d @0x21
0x0d6c…0da9 at0022 = ╱49╱I╱ // 0xd8e @0x22
0x0d6c…0da9 at0023 = ╱4b╱K╱ // 0xd8f @0x23
0x0d6c…0da9 at0024 = ╱2f╱/╱ // 0xd90 @0x24
0x0d6c…0da9 at0025 = ╱69╱i╱ // 0xd91 @0x25
0x0d6c…0da9 at0026 = ╱6b╱k╱ // 0xd92 @0x26
0x0d6c…0da9 at0027 = ╱2f╱/╱ // 0xd93 @0x27
0x0d6c…0da9 at0028 = ╱55╱U╱ // 0xd94 @0x28
0x0d6c…0da9 at0029 = ╱4b╱K╱ // 0xd95 @0x29
0x0d6c…0da9 at002a = ╱2f╱/╱ // 0xd96 @0x2a
0x0d6c…0da9 at002b = ╱75╱u╱ // 0xd97 @0x2b
0x0d6c…0da9 at002c = ╱6b╱k╱ // 0xd98 @0x2c
0x0d6c…0da9 at002d = ╱2f╱/╱ // 0xd99 @0x2d
0x0d6c…0da9 at002e = ╱52╱R╱ // 0xd9a @0x2e
0x0d6c…0da9 at002f = ╱4b╱K╱ // 0xd9b @0x2f
0x0d6c…0da9 at0030 = ╱2f╱/╱ // 0xd9c @0x30
0x0d6c…0da9 at0031 = ╱72╱r╱ // 0xd9d @0x31
0x0d6c…0da9 at0032 = ╱6b╱k╱ // 0xd9e @0x32
0x0d6c…0da9 at0033 = ╱2f╱/╱ // 0xd9f @0x33
0x0d6c…0da9 at0034 = ╱41╱A╱ // 0xda0 @0x34
0x0d6c…0da9 at0035 = ╱4b╱K╱ // 0xda1 @0x35
0x0d6c…0da9 at0036 = ╱2f╱/╱ // 0xda2 @0x36
0x0d6c…0da9 at0037 = ╱61╱a╱ // 0xda3 @0x37
0x0d6c…0da9 at0038 = ╱6b╱k╱ // 0xda4 @0x38
0x0d6c…0da9 at0039 = ╱2f╱/╱ // 0xda5 @0x39
0x0d6c…0da9 at003a = ╱22╱"╱ // 0xda6 @0x3a
0x0d6c…0da9 at003b = ╱b5╱ THEN ╱ // 0xda7 @0x3b
0x0d6c…0da9 at003c = EOL // 0xda8 @0x3c
0x0d6c…0da9 }
0x0da9…0de4 a3d2 1170 EXEC FEJL("Ulovlig funktionskode: '" + SVAR$(1 : 2) + "'")
0x0da9…0de4 LineComal80 {
0x0da9…0de4 ptr = 0xa3d2 // 0xda9 @0x0
0x0da9…0de4 lno = 0x0492 // 0xdab @0x2
0x0da9…0de4 at0004 = ╱9d╱ EXEC ╱ // 0xdad @0x4
0x0da9…0de4 at0005 = ╱46╱F╱ // 0xdae @0x5
0x0da9…0de4 at0006 = ╱45╱E╱ // 0xdaf @0x6
0x0da9…0de4 at0007 = ╱4a╱J╱ // 0xdb0 @0x7
0x0da9…0de4 at0008 = ╱4c╱L╱ // 0xdb1 @0x8
0x0da9…0de4 at0009 = ╱ed╱(╱ // 0xdb2 @0x9
0x0da9…0de4 at000a = ╱22╱"╱ // 0xdb3 @0xa
0x0da9…0de4 at000b = ╱55╱U╱ // 0xdb4 @0xb
0x0da9…0de4 at000c = ╱6c╱l╱ // 0xdb5 @0xc
0x0da9…0de4 at000d = ╱6f╱o╱ // 0xdb6 @0xd
0x0da9…0de4 at000e = ╱76╱v╱ // 0xdb7 @0xe
0x0da9…0de4 at000f = ╱6c╱l╱ // 0xdb8 @0xf
0x0da9…0de4 at0010 = ╱69╱i╱ // 0xdb9 @0x10
0x0da9…0de4 at0011 = ╱67╱g╱ // 0xdba @0x11
0x0da9…0de4 at0012 = ╱20╱…╱ // 0xdbb @0x12
0x0da9…0de4 at0013 = ╱66╱f╱ // 0xdbc @0x13
0x0da9…0de4 at0014 = ╱75╱u╱ // 0xdbd @0x14
0x0da9…0de4 at0015 = ╱6e╱n╱ // 0xdbe @0x15
0x0da9…0de4 at0016 = ╱6b╱k╱ // 0xdbf @0x16
0x0da9…0de4 at0017 = ╱74╱t╱ // 0xdc0 @0x17
0x0da9…0de4 at0018 = ╱69╱i╱ // 0xdc1 @0x18
0x0da9…0de4 at0019 = ╱6f╱o╱ // 0xdc2 @0x19
0x0da9…0de4 at001a = ╱6e╱n╱ // 0xdc3 @0x1a
0x0da9…0de4 at001b = ╱73╱s╱ // 0xdc4 @0x1b
0x0da9…0de4 at001c = ╱6b╱k╱ // 0xdc5 @0x1c
0x0da9…0de4 at001d = ╱6f╱o╱ // 0xdc6 @0x1d
0x0da9…0de4 at001e = ╱64╱d╱ // 0xdc7 @0x1e
0x0da9…0de4 at001f = ╱65╱e╱ // 0xdc8 @0x1f
0x0da9…0de4 at0020 = ╱3a╱:╱ // 0xdc9 @0x20
0x0da9…0de4 at0021 = ╱20╱…╱ // 0xdca @0x21
0x0da9…0de4 at0022 = ╱27╱'╱ // 0xdcb @0x22
0x0da9…0de4 at0023 = ╱22╱"╱ // 0xdcc @0x23
0x0da9…0de4 at0024 = ╱eb╱ + ╱ // 0xdcd @0x24
0x0da9…0de4 at0025 = ╱53╱S╱ // 0xdce @0x25
0x0da9…0de4 at0026 = ╱56╱V╱ // 0xdcf @0x26
0x0da9…0de4 at0027 = ╱41╱A╱ // 0xdd0 @0x27
0x0da9…0de4 at0028 = ╱52╱R╱ // 0xdd1 @0x28
0x0da9…0de4 at0029 = ╱ef╱$╱ // 0xdd2 @0x29
0x0da9…0de4 at002a = ╱ed╱(╱ // 0xdd3 @0x2a
0x0da9…0de4 at002b = ╱31╱1╱ // 0xdd4 @0x2b
0x0da9…0de4 at002c = ╱f20100╱ // 0xdd5 @0x2c
0x0da9…0de4 at002f = ╱f1╱ : ╱ // 0xdd8 @0x2f
0x0da9…0de4 at0030 = ╱32╱2╱ // 0xdd9 @0x30
0x0da9…0de4 at0031 = ╱f20200╱ // 0xdda @0x31
0x0da9…0de4 at0034 = ╱ee╱)╱ // 0xddd @0x34
0x0da9…0de4 at0035 = ╱eb╱ + ╱ // 0xdde @0x35
0x0da9…0de4 at0036 = ╱22╱"╱ // 0xddf @0x36
0x0da9…0de4 at0037 = ╱27╱'╱ // 0xde0 @0x37
0x0da9…0de4 at0038 = ╱22╱"╱ // 0xde1 @0x38
0x0da9…0de4 at0039 = ╱ee╱)╱ // 0xde2 @0x39
0x0da9…0de4 at003a = EOL // 0xde3 @0x3a
0x0da9…0de4 }
0x0de4…0dea a3d8 1180 ENDIF
0x0de4…0dea LineComal80 {
0x0de4…0dea ptr = 0xa3d8 // 0xde4 @0x0
0x0de4…0dea lno = 0x049c // 0xde6 @0x2
0x0de4…0dea at0004 = ╱9c╱ ENDIF ╱ // 0xde8 @0x4
0x0de4…0dea at0005 = EOL // 0xde9 @0x5
0x0de4…0dea }
0x0dea…0df2 a3e0 1190 UNTIL OK
0x0dea…0df2 LineComal80 {
0x0dea…0df2 ptr = 0xa3e0 // 0xdea @0x0
0x0dea…0df2 lno = 0x04a6 // 0xdec @0x2
0x0dea…0df2 at0004 = ╱98╱ UNTIL ╱ // 0xdee @0x4
0x0dea…0df2 at0005 = ╱4f╱O╱ // 0xdef @0x5
0x0dea…0df2 at0006 = ╱4b╱K╱ // 0xdf0 @0x6
0x0dea…0df2 at0007 = EOL // 0xdf1 @0x7
0x0dea…0df2 }
0x0df2…0e28 a416 1200 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
0x0df2…0e28 LineComal80 {
0x0df2…0e28 ptr = 0xa416 // 0xdf2 @0x0
0x0df2…0e28 lno = 0x04b0 // 0xdf4 @0x2
0x0df2…0e28 at0004 = ╱a9╱ GET ╱ // 0xdf6 @0x4
0x0df2…0e28 at0005 = ╱4b╱K╱ // 0xdf7 @0x5
0x0df2…0e28 at0006 = ╱41╱A╱ // 0xdf8 @0x6
0x0df2…0e28 at0007 = ╱53╱S╱ // 0xdf9 @0x7
0x0df2…0e28 at0008 = ╱53╱S╱ // 0xdfa @0x8
0x0df2…0e28 at0009 = ╱45╱E╱ // 0xdfb @0x9
0x0df2…0e28 at000a = ╱ef╱$╱ // 0xdfc @0xa
0x0df2…0e28 at000b = ╱ec╱,╱ // 0xdfd @0xb
0x0df2…0e28 at000c = ╱31╱1╱ // 0xdfe @0xc
0x0df2…0e28 at000d = ╱f20100╱ // 0xdff @0xd
0x0df2…0e28 at0010 = ╱f1╱ : ╱ // 0xe02 @0x10
0x0df2…0e28 at0011 = ╱4b╱K╱ // 0xe03 @0x11
0x0df2…0e28 at0012 = ╱5f╱_╱ // 0xe04 @0x12
0x0df2…0e28 at0013 = ╱48╱H╱ // 0xe05 @0x13
0x0df2…0e28 at0014 = ╱5c╱Ø╱ // 0xe06 @0x14
0x0df2…0e28 at0015 = ╱4a╱J╱ // 0xe07 @0x15
0x0df2…0e28 at0016 = ╱52╱R╱ // 0xe08 @0x16
0x0df2…0e28 at0017 = ╱45╱E╱ // 0xe09 @0x17
0x0df2…0e28 at0018 = ╱43╱C╱ // 0xe0a @0x18
0x0df2…0e28 at0019 = ╱ec╱,╱ // 0xe0b @0x19
0x0df2…0e28 at001a = ╱4b╱K╱ // 0xe0c @0x1a
0x0df2…0e28 at001b = ╱5f╱_╱ // 0xe0d @0x1b
0x0df2…0e28 at001c = ╱4d╱M╱ // 0xe0e @0x1c
0x0df2…0e28 at001d = ╱41╱A╱ // 0xe0f @0x1d
0x0df2…0e28 at001e = ╱58╱X╱ // 0xe10 @0x1e
0x0df2…0e28 at001f = ╱52╱R╱ // 0xe11 @0x1f
0x0df2…0e28 at0020 = ╱45╱E╱ // 0xe12 @0x20
0x0df2…0e28 at0021 = ╱43╱C╱ // 0xe13 @0x21
0x0df2…0e28 at0022 = ╱ec╱,╱ // 0xe14 @0x22
0x0df2…0e28 at0023 = ╱53╱S╱ // 0xe15 @0x23
0x0df2…0e28 at0024 = ╱5f╱_╱ // 0xe16 @0x24
0x0df2…0e28 at0025 = ╱4e╱N╱ // 0xe17 @0x25
0x0df2…0e28 at0026 = ╱52╱R╱ // 0xe18 @0x26
0x0df2…0e28 at0027 = ╱5f╱_╱ // 0xe19 @0x27
0x0df2…0e28 at0028 = ╱4b╱K╱ // 0xe1a @0x28
0x0df2…0e28 at0029 = ╱41╱A╱ // 0xe1b @0x29
0x0df2…0e28 at002a = ╱53╱S╱ // 0xe1c @0x2a
0x0df2…0e28 at002b = ╱53╱S╱ // 0xe1d @0x2b
0x0df2…0e28 at002c = ╱45╱E╱ // 0xe1e @0x2c
0x0df2…0e28 at002d = ╱ec╱,╱ // 0xe1f @0x2d
0x0df2…0e28 at002e = ╱4b╱K╱ // 0xe20 @0x2e
0x0df2…0e28 at002f = ╱5f╱_╱ // 0xe21 @0x2f
0x0df2…0e28 at0030 = ╱42╱B╱ // 0xe22 @0x30
0x0df2…0e28 at0031 = ╱44╱D╱ // 0xe23 @0x31
0x0df2…0e28 at0032 = ╱41╱A╱ // 0xe24 @0x32
0x0df2…0e28 at0033 = ╱54╱T╱ // 0xe25 @0x33
0x0df2…0e28 at0034 = ╱ef╱$╱ // 0xe26 @0x34
0x0df2…0e28 at0035 = EOL // 0xe27 @0x35
0x0df2…0e28 }
0x0e28…0e41 a42f 1210 CASE SVAR$(1 : 2) OF
0x0e28…0e41 LineComal80 {
0x0e28…0e41 ptr = 0xa42f // 0xe28 @0x0
0x0e28…0e41 lno = 0x04ba // 0xe2a @0x2
0x0e28…0e41 at0004 = ╱a20700╱ CASE ╱ // 0xe2c @0x4
0x0e28…0e41 at0007 = ╱53╱S╱ // 0xe2f @0x7
0x0e28…0e41 at0008 = ╱56╱V╱ // 0xe30 @0x8
0x0e28…0e41 at0009 = ╱41╱A╱ // 0xe31 @0x9
0x0e28…0e41 at000a = ╱52╱R╱ // 0xe32 @0xa
0x0e28…0e41 at000b = ╱ef╱$╱ // 0xe33 @0xb
0x0e28…0e41 at000c = ╱ed╱(╱ // 0xe34 @0xc
0x0e28…0e41 at000d = ╱31╱1╱ // 0xe35 @0xd
0x0e28…0e41 at000e = ╱f20100╱ // 0xe36 @0xe
0x0e28…0e41 at0011 = ╱f1╱ : ╱ // 0xe39 @0x11
0x0e28…0e41 at0012 = ╱32╱2╱ // 0xe3a @0x12
0x0e28…0e41 at0013 = ╱f20200╱ // 0xe3b @0x13
0x0e28…0e41 at0016 = ╱ee╱)╱ // 0xe3e @0x16
0x0e28…0e41 at0017 = ╱ba╱ OF ╱ // 0xe3f @0x17
0x0e28…0e41 at0018 = EOL // 0xe40 @0x18
0x0e28…0e41 }
0x0e41…0e52 a440 1220 WHILE "IK","ik"
0x0e41…0e52 LineComal80 {
0x0e41…0e52 ptr = 0xa440 // 0xe41 @0x0
0x0e41…0e52 lno = 0x04c4 // 0xe43 @0x2
0x0e41…0e52 at0004 = ╱a40800╱ WHILE ╱ // 0xe45 @0x4
0x0e41…0e52 at0007 = ╱22╱"╱ // 0xe48 @0x7
0x0e41…0e52 at0008 = ╱49╱I╱ // 0xe49 @0x8
0x0e41…0e52 at0009 = ╱4b╱K╱ // 0xe4a @0x9
0x0e41…0e52 at000a = ╱22╱"╱ // 0xe4b @0xa
0x0e41…0e52 at000b = ╱ec╱,╱ // 0xe4c @0xb
0x0e41…0e52 at000c = ╱22╱"╱ // 0xe4d @0xc
0x0e41…0e52 at000d = ╱69╱i╱ // 0xe4e @0xd
0x0e41…0e52 at000e = ╱6b╱k╱ // 0xe4f @0xe
0x0e41…0e52 at000f = ╱22╱"╱ // 0xe50 @0xf
0x0e41…0e52 at0010 = EOL // 0xe51 @0x10
0x0e41…0e52 }
0x0e52…0e79 a467 1230 IF _HØJREC > 1 AND K_BDAT$ >< SYST_DAT$ THEN
0x0e52…0e79 LineComal80 {
0x0e52…0e79 ptr = 0xa467 // 0xe52 @0x0
0x0e52…0e79 lno = 0x04ce // 0xe54 @0x2
0x0e52…0e79 at0004 = ╱9b094b╱ IF ╱ // 0xe56 @0x4
0x0e52…0e79 at0007 = ╱5f╱_╱ // 0xe59 @0x7
0x0e52…0e79 at0008 = ╱48╱H╱ // 0xe5a @0x8
0x0e52…0e79 at0009 = ╱5c╱Ø╱ // 0xe5b @0x9
0x0e52…0e79 at000a = ╱4a╱J╱ // 0xe5c @0xa
0x0e52…0e79 at000b = ╱52╱R╱ // 0xe5d @0xb
0x0e52…0e79 at000c = ╱45╱E╱ // 0xe5e @0xc
0x0e52…0e79 at000d = ╱43╱C╱ // 0xe5f @0xd
0x0e52…0e79 at000e = ╱e1╱ > ╱ // 0xe60 @0xe
0x0e52…0e79 at000f = ╱31╱1╱ // 0xe61 @0xf
0x0e52…0e79 at0010 = ╱f20100╱ // 0xe62 @0x10
0x0e52…0e79 at0013 = ╱d9╱ AND ╱ // 0xe65 @0x13
0x0e52…0e79 at0014 = ╱4b╱K╱ // 0xe66 @0x14
0x0e52…0e79 at0015 = ╱5f╱_╱ // 0xe67 @0x15
0x0e52…0e79 at0016 = ╱42╱B╱ // 0xe68 @0x16
0x0e52…0e79 at0017 = ╱44╱D╱ // 0xe69 @0x17
0x0e52…0e79 at0018 = ╱41╱A╱ // 0xe6a @0x18
0x0e52…0e79 at0019 = ╱54╱T╱ // 0xe6b @0x19
0x0e52…0e79 at001a = ╱ef╱$╱ // 0xe6c @0x1a
0x0e52…0e79 at001b = ╱e4╱ >< ╱ // 0xe6d @0x1b
0x0e52…0e79 at001c = ╱53╱S╱ // 0xe6e @0x1c
0x0e52…0e79 at001d = ╱59╱Y╱ // 0xe6f @0x1d
0x0e52…0e79 at001e = ╱53╱S╱ // 0xe70 @0x1e
0x0e52…0e79 at001f = ╱54╱T╱ // 0xe71 @0x1f
0x0e52…0e79 at0020 = ╱5f╱_╱ // 0xe72 @0x20
0x0e52…0e79 at0021 = ╱44╱D╱ // 0xe73 @0x21
0x0e52…0e79 at0022 = ╱41╱A╱ // 0xe74 @0x22
0x0e52…0e79 at0023 = ╱54╱T╱ // 0xe75 @0x23
0x0e52…0e79 at0024 = ╱ef╱$╱ // 0xe76 @0x24
0x0e52…0e79 at0025 = ╱b5╱ THEN ╱ // 0xe77 @0x25
0x0e52…0e79 at0026 = EOL // 0xe78 @0x26
0x0e52…0e79 }
0x0e79…0eb8 a4a6 1240 PRINT "<XC1210>Du er startet på en ny dato siden du sidst ind-"
0x0e79…0eb8 LineComal80 {
0x0e79…0eb8 ptr = 0xa4a6 // 0xe79 @0x0
0x0e79…0eb8 lno = 0x04d8 // 0xe7b @0x2
0x0e79…0eb8 at0004 = ╱92╱ PRINT ╱ // 0xe7d @0x4
0x0e79…0eb8 at0005 = ╱22╱"╱ // 0xe7e @0x5
0x0e79…0eb8 at0006 = ╱3c╱<╱ // 0xe7f @0x6
0x0e79…0eb8 at0007 = ╱58╱X╱ // 0xe80 @0x7
0x0e79…0eb8 at0008 = ╱43╱C╱ // 0xe81 @0x8
0x0e79…0eb8 at0009 = ╱31╱1╱ // 0xe82 @0x9
0x0e79…0eb8 at000a = ╱32╱2╱ // 0xe83 @0xa
0x0e79…0eb8 at000b = ╱31╱1╱ // 0xe84 @0xb
0x0e79…0eb8 at000c = ╱30╱0╱ // 0xe85 @0xc
0x0e79…0eb8 at000d = ╱3e╱>╱ // 0xe86 @0xd
0x0e79…0eb8 at000e = ╱44╱D╱ // 0xe87 @0xe
0x0e79…0eb8 at000f = ╱75╱u╱ // 0xe88 @0xf
0x0e79…0eb8 at0010 = ╱20╱…╱ // 0xe89 @0x10
0x0e79…0eb8 at0011 = ╱65╱e╱ // 0xe8a @0x11
0x0e79…0eb8 at0012 = ╱72╱r╱ // 0xe8b @0x12
0x0e79…0eb8 at0013 = ╱20╱…╱ // 0xe8c @0x13
0x0e79…0eb8 at0014 = ╱73╱s╱ // 0xe8d @0x14
0x0e79…0eb8 at0015 = ╱74╱t╱ // 0xe8e @0x15
0x0e79…0eb8 at0016 = ╱61╱a╱ // 0xe8f @0x16
0x0e79…0eb8 at0017 = ╱72╱r╱ // 0xe90 @0x17
0x0e79…0eb8 at0018 = ╱74╱t╱ // 0xe91 @0x18
0x0e79…0eb8 at0019 = ╱65╱e╱ // 0xe92 @0x19
0x0e79…0eb8 at001a = ╱74╱t╱ // 0xe93 @0x1a
0x0e79…0eb8 at001b = ╱20╱…╱ // 0xe94 @0x1b
0x0e79…0eb8 at001c = ╱70╱p╱ // 0xe95 @0x1c
0x0e79…0eb8 at001d = ╱7d╱å╱ // 0xe96 @0x1d
0x0e79…0eb8 at001e = ╱20╱…╱ // 0xe97 @0x1e
0x0e79…0eb8 at001f = ╱65╱e╱ // 0xe98 @0x1f
0x0e79…0eb8 at0020 = ╱6e╱n╱ // 0xe99 @0x20
0x0e79…0eb8 at0021 = ╱20╱…╱ // 0xe9a @0x21
0x0e79…0eb8 at0022 = ╱6e╱n╱ // 0xe9b @0x22
0x0e79…0eb8 at0023 = ╱79╱y╱ // 0xe9c @0x23
0x0e79…0eb8 at0024 = ╱20╱…╱ // 0xe9d @0x24
0x0e79…0eb8 at0025 = ╱64╱d╱ // 0xe9e @0x25
0x0e79…0eb8 at0026 = ╱61╱a╱ // 0xe9f @0x26
0x0e79…0eb8 at0027 = ╱74╱t╱ // 0xea0 @0x27
0x0e79…0eb8 at0028 = ╱6f╱o╱ // 0xea1 @0x28
0x0e79…0eb8 at0029 = ╱20╱…╱ // 0xea2 @0x29
0x0e79…0eb8 at002a = ╱73╱s╱ // 0xea3 @0x2a
0x0e79…0eb8 at002b = ╱69╱i╱ // 0xea4 @0x2b
0x0e79…0eb8 at002c = ╱64╱d╱ // 0xea5 @0x2c
0x0e79…0eb8 at002d = ╱65╱e╱ // 0xea6 @0x2d
0x0e79…0eb8 at002e = ╱6e╱n╱ // 0xea7 @0x2e
0x0e79…0eb8 at002f = ╱20╱…╱ // 0xea8 @0x2f
0x0e79…0eb8 at0030 = ╱64╱d╱ // 0xea9 @0x30
0x0e79…0eb8 at0031 = ╱75╱u╱ // 0xeaa @0x31
0x0e79…0eb8 at0032 = ╱20╱…╱ // 0xeab @0x32
0x0e79…0eb8 at0033 = ╱73╱s╱ // 0xeac @0x33
0x0e79…0eb8 at0034 = ╱69╱i╱ // 0xead @0x34
0x0e79…0eb8 at0035 = ╱64╱d╱ // 0xeae @0x35
0x0e79…0eb8 at0036 = ╱73╱s╱ // 0xeaf @0x36
0x0e79…0eb8 at0037 = ╱74╱t╱ // 0xeb0 @0x37
0x0e79…0eb8 at0038 = ╱20╱…╱ // 0xeb1 @0x38
0x0e79…0eb8 at0039 = ╱69╱i╱ // 0xeb2 @0x39
0x0e79…0eb8 at003a = ╱6e╱n╱ // 0xeb3 @0x3a
0x0e79…0eb8 at003b = ╱64╱d╱ // 0xeb4 @0x3b
0x0e79…0eb8 at003c = ╱2d╱-╱ // 0xeb5 @0x3c
0x0e79…0eb8 at003d = ╱22╱"╱ // 0xeb6 @0x3d
0x0e79…0eb8 at003e = EOL // 0xeb7 @0x3e
0x0e79…0eb8 }
0x0eb8…0ef7 a4e5 1250 PRINT "<C1211>tastede kasseposteringer - kasserapporten skal "
0x0eb8…0ef7 LineComal80 {
0x0eb8…0ef7 ptr = 0xa4e5 // 0xeb8 @0x0
0x0eb8…0ef7 lno = 0x04e2 // 0xeba @0x2
0x0eb8…0ef7 at0004 = ╱92╱ PRINT ╱ // 0xebc @0x4
0x0eb8…0ef7 at0005 = ╱22╱"╱ // 0xebd @0x5
0x0eb8…0ef7 at0006 = ╱3c╱<╱ // 0xebe @0x6
0x0eb8…0ef7 at0007 = ╱43╱C╱ // 0xebf @0x7
0x0eb8…0ef7 at0008 = ╱31╱1╱ // 0xec0 @0x8
0x0eb8…0ef7 at0009 = ╱32╱2╱ // 0xec1 @0x9
0x0eb8…0ef7 at000a = ╱31╱1╱ // 0xec2 @0xa
0x0eb8…0ef7 at000b = ╱31╱1╱ // 0xec3 @0xb
0x0eb8…0ef7 at000c = ╱3e╱>╱ // 0xec4 @0xc
0x0eb8…0ef7 at000d = ╱74╱t╱ // 0xec5 @0xd
0x0eb8…0ef7 at000e = ╱61╱a╱ // 0xec6 @0xe
0x0eb8…0ef7 at000f = ╱73╱s╱ // 0xec7 @0xf
0x0eb8…0ef7 at0010 = ╱74╱t╱ // 0xec8 @0x10
0x0eb8…0ef7 at0011 = ╱65╱e╱ // 0xec9 @0x11
0x0eb8…0ef7 at0012 = ╱64╱d╱ // 0xeca @0x12
0x0eb8…0ef7 at0013 = ╱65╱e╱ // 0xecb @0x13
0x0eb8…0ef7 at0014 = ╱20╱…╱ // 0xecc @0x14
0x0eb8…0ef7 at0015 = ╱6b╱k╱ // 0xecd @0x15
0x0eb8…0ef7 at0016 = ╱61╱a╱ // 0xece @0x16
0x0eb8…0ef7 at0017 = ╱73╱s╱ // 0xecf @0x17
0x0eb8…0ef7 at0018 = ╱73╱s╱ // 0xed0 @0x18
0x0eb8…0ef7 at0019 = ╱65╱e╱ // 0xed1 @0x19
0x0eb8…0ef7 at001a = ╱70╱p╱ // 0xed2 @0x1a
0x0eb8…0ef7 at001b = ╱6f╱o╱ // 0xed3 @0x1b
0x0eb8…0ef7 at001c = ╱73╱s╱ // 0xed4 @0x1c
0x0eb8…0ef7 at001d = ╱74╱t╱ // 0xed5 @0x1d
0x0eb8…0ef7 at001e = ╱65╱e╱ // 0xed6 @0x1e
0x0eb8…0ef7 at001f = ╱72╱r╱ // 0xed7 @0x1f
0x0eb8…0ef7 at0020 = ╱69╱i╱ // 0xed8 @0x20
0x0eb8…0ef7 at0021 = ╱6e╱n╱ // 0xed9 @0x21
0x0eb8…0ef7 at0022 = ╱67╱g╱ // 0xeda @0x22
0x0eb8…0ef7 at0023 = ╱65╱e╱ // 0xedb @0x23
0x0eb8…0ef7 at0024 = ╱72╱r╱ // 0xedc @0x24
0x0eb8…0ef7 at0025 = ╱20╱…╱ // 0xedd @0x25
0x0eb8…0ef7 at0026 = ╱2d╱-╱ // 0xede @0x26
0x0eb8…0ef7 at0027 = ╱20╱…╱ // 0xedf @0x27
0x0eb8…0ef7 at0028 = ╱20╱…╱ // 0xee0 @0x28
0x0eb8…0ef7 at0029 = ╱6b╱k╱ // 0xee1 @0x29
0x0eb8…0ef7 at002a = ╱61╱a╱ // 0xee2 @0x2a
0x0eb8…0ef7 at002b = ╱73╱s╱ // 0xee3 @0x2b
0x0eb8…0ef7 at002c = ╱73╱s╱ // 0xee4 @0x2c
0x0eb8…0ef7 at002d = ╱65╱e╱ // 0xee5 @0x2d
0x0eb8…0ef7 at002e = ╱72╱r╱ // 0xee6 @0x2e
0x0eb8…0ef7 at002f = ╱61╱a╱ // 0xee7 @0x2f
0x0eb8…0ef7 at0030 = ╱70╱p╱ // 0xee8 @0x30
0x0eb8…0ef7 at0031 = ╱70╱p╱ // 0xee9 @0x31
0x0eb8…0ef7 at0032 = ╱6f╱o╱ // 0xeea @0x32
0x0eb8…0ef7 at0033 = ╱72╱r╱ // 0xeeb @0x33
0x0eb8…0ef7 at0034 = ╱74╱t╱ // 0xeec @0x34
0x0eb8…0ef7 at0035 = ╱65╱e╱ // 0xeed @0x35
0x0eb8…0ef7 at0036 = ╱6e╱n╱ // 0xeee @0x36
0x0eb8…0ef7 at0037 = ╱20╱…╱ // 0xeef @0x37
0x0eb8…0ef7 at0038 = ╱73╱s╱ // 0xef0 @0x38
0x0eb8…0ef7 at0039 = ╱6b╱k╱ // 0xef1 @0x39
0x0eb8…0ef7 at003a = ╱61╱a╱ // 0xef2 @0x3a
0x0eb8…0ef7 at003b = ╱6c╱l╱ // 0xef3 @0x3b
0x0eb8…0ef7 at003c = ╱20╱…╱ // 0xef4 @0x3c
0x0eb8…0ef7 at003d = ╱22╱"╱ // 0xef5 @0x3d
0x0eb8…0ef7 at003e = EOL // 0xef6 @0x3e
0x0eb8…0ef7 }
0x0ef7…0f32 a520 1260 PRINT "<C1212>afstemmes inden du kan indtaste flere kasse-"
0x0ef7…0f32 LineComal80 {
0x0ef7…0f32 ptr = 0xa520 // 0xef7 @0x0
0x0ef7…0f32 lno = 0x04ec // 0xef9 @0x2
0x0ef7…0f32 at0004 = ╱92╱ PRINT ╱ // 0xefb @0x4
0x0ef7…0f32 at0005 = ╱22╱"╱ // 0xefc @0x5
0x0ef7…0f32 at0006 = ╱3c╱<╱ // 0xefd @0x6
0x0ef7…0f32 at0007 = ╱43╱C╱ // 0xefe @0x7
0x0ef7…0f32 at0008 = ╱31╱1╱ // 0xeff @0x8
0x0ef7…0f32 at0009 = ╱32╱2╱ // 0xf00 @0x9
0x0ef7…0f32 at000a = ╱31╱1╱ // 0xf01 @0xa
0x0ef7…0f32 at000b = ╱32╱2╱ // 0xf02 @0xb
0x0ef7…0f32 at000c = ╱3e╱>╱ // 0xf03 @0xc
0x0ef7…0f32 at000d = ╱61╱a╱ // 0xf04 @0xd
0x0ef7…0f32 at000e = ╱66╱f╱ // 0xf05 @0xe
0x0ef7…0f32 at000f = ╱73╱s╱ // 0xf06 @0xf
0x0ef7…0f32 at0010 = ╱74╱t╱ // 0xf07 @0x10
0x0ef7…0f32 at0011 = ╱65╱e╱ // 0xf08 @0x11
0x0ef7…0f32 at0012 = ╱6d╱m╱ // 0xf09 @0x12
0x0ef7…0f32 at0013 = ╱6d╱m╱ // 0xf0a @0x13
0x0ef7…0f32 at0014 = ╱65╱e╱ // 0xf0b @0x14
0x0ef7…0f32 at0015 = ╱73╱s╱ // 0xf0c @0x15
0x0ef7…0f32 at0016 = ╱20╱…╱ // 0xf0d @0x16
0x0ef7…0f32 at0017 = ╱69╱i╱ // 0xf0e @0x17
0x0ef7…0f32 at0018 = ╱6e╱n╱ // 0xf0f @0x18
0x0ef7…0f32 at0019 = ╱64╱d╱ // 0xf10 @0x19
0x0ef7…0f32 at001a = ╱65╱e╱ // 0xf11 @0x1a
0x0ef7…0f32 at001b = ╱6e╱n╱ // 0xf12 @0x1b
0x0ef7…0f32 at001c = ╱20╱…╱ // 0xf13 @0x1c
0x0ef7…0f32 at001d = ╱64╱d╱ // 0xf14 @0x1d
0x0ef7…0f32 at001e = ╱75╱u╱ // 0xf15 @0x1e
0x0ef7…0f32 at001f = ╱20╱…╱ // 0xf16 @0x1f
0x0ef7…0f32 at0020 = ╱6b╱k╱ // 0xf17 @0x20
0x0ef7…0f32 at0021 = ╱61╱a╱ // 0xf18 @0x21
0x0ef7…0f32 at0022 = ╱6e╱n╱ // 0xf19 @0x22
0x0ef7…0f32 at0023 = ╱20╱…╱ // 0xf1a @0x23
0x0ef7…0f32 at0024 = ╱69╱i╱ // 0xf1b @0x24
0x0ef7…0f32 at0025 = ╱6e╱n╱ // 0xf1c @0x25
0x0ef7…0f32 at0026 = ╱64╱d╱ // 0xf1d @0x26
0x0ef7…0f32 at0027 = ╱74╱t╱ // 0xf1e @0x27
0x0ef7…0f32 at0028 = ╱61╱a╱ // 0xf1f @0x28
0x0ef7…0f32 at0029 = ╱73╱s╱ // 0xf20 @0x29
0x0ef7…0f32 at002a = ╱74╱t╱ // 0xf21 @0x2a
0x0ef7…0f32 at002b = ╱65╱e╱ // 0xf22 @0x2b
0x0ef7…0f32 at002c = ╱20╱…╱ // 0xf23 @0x2c
0x0ef7…0f32 at002d = ╱66╱f╱ // 0xf24 @0x2d
0x0ef7…0f32 at002e = ╱6c╱l╱ // 0xf25 @0x2e
0x0ef7…0f32 at002f = ╱65╱e╱ // 0xf26 @0x2f
0x0ef7…0f32 at0030 = ╱72╱r╱ // 0xf27 @0x30
0x0ef7…0f32 at0031 = ╱65╱e╱ // 0xf28 @0x31
0x0ef7…0f32 at0032 = ╱20╱…╱ // 0xf29 @0x32
0x0ef7…0f32 at0033 = ╱6b╱k╱ // 0xf2a @0x33
0x0ef7…0f32 at0034 = ╱61╱a╱ // 0xf2b @0x34
0x0ef7…0f32 at0035 = ╱73╱s╱ // 0xf2c @0x35
0x0ef7…0f32 at0036 = ╱73╱s╱ // 0xf2d @0x36
0x0ef7…0f32 at0037 = ╱65╱e╱ // 0xf2e @0x37
0x0ef7…0f32 at0038 = ╱2d╱-╱ // 0xf2f @0x38
0x0ef7…0f32 at0039 = ╱22╱"╱ // 0xf30 @0x39
0x0ef7…0f32 at003a = EOL // 0xf31 @0x3a
0x0ef7…0f32 }
0x0f32…0f4d a53b 1270 PRINT "<C1213>posteringer."
0x0f32…0f4d LineComal80 {
0x0f32…0f4d ptr = 0xa53b // 0xf32 @0x0
0x0f32…0f4d lno = 0x04f6 // 0xf34 @0x2
0x0f32…0f4d at0004 = ╱92╱ PRINT ╱ // 0xf36 @0x4
0x0f32…0f4d at0005 = ╱22╱"╱ // 0xf37 @0x5
0x0f32…0f4d at0006 = ╱3c╱<╱ // 0xf38 @0x6
0x0f32…0f4d at0007 = ╱43╱C╱ // 0xf39 @0x7
0x0f32…0f4d at0008 = ╱31╱1╱ // 0xf3a @0x8
0x0f32…0f4d at0009 = ╱32╱2╱ // 0xf3b @0x9
0x0f32…0f4d at000a = ╱31╱1╱ // 0xf3c @0xa
0x0f32…0f4d at000b = ╱33╱3╱ // 0xf3d @0xb
0x0f32…0f4d at000c = ╱3e╱>╱ // 0xf3e @0xc
0x0f32…0f4d at000d = ╱70╱p╱ // 0xf3f @0xd
0x0f32…0f4d at000e = ╱6f╱o╱ // 0xf40 @0xe
0x0f32…0f4d at000f = ╱73╱s╱ // 0xf41 @0xf
0x0f32…0f4d at0010 = ╱74╱t╱ // 0xf42 @0x10
0x0f32…0f4d at0011 = ╱65╱e╱ // 0xf43 @0x11
0x0f32…0f4d at0012 = ╱72╱r╱ // 0xf44 @0x12
0x0f32…0f4d at0013 = ╱69╱i╱ // 0xf45 @0x13
0x0f32…0f4d at0014 = ╱6e╱n╱ // 0xf46 @0x14
0x0f32…0f4d at0015 = ╱67╱g╱ // 0xf47 @0x15
0x0f32…0f4d at0016 = ╱65╱e╱ // 0xf48 @0x16
0x0f32…0f4d at0017 = ╱72╱r╱ // 0xf49 @0x17
0x0f32…0f4d at0018 = ╱2e╱.╱ // 0xf4a @0x18
0x0f32…0f4d at0019 = ╱22╱"╱ // 0xf4b @0x19
0x0f32…0f4d at001a = EOL // 0xf4c @0x1a
0x0f32…0f4d }
0x0f4d…0f6e a55c 1280 INPUT "<SC6523>Tryk RETURN" : SVAR$
0x0f4d…0f6e LineComal80 {
0x0f4d…0f6e ptr = 0xa55c // 0xf4d @0x0
0x0f4d…0f6e lno = 0x0500 // 0xf4f @0x2
0x0f4d…0f6e at0004 = ╱91╱ INPUT ╱ // 0xf51 @0x4
0x0f4d…0f6e at0005 = ╱22╱"╱ // 0xf52 @0x5
0x0f4d…0f6e at0006 = ╱3c╱<╱ // 0xf53 @0x6
0x0f4d…0f6e at0007 = ╱53╱S╱ // 0xf54 @0x7
0x0f4d…0f6e at0008 = ╱43╱C╱ // 0xf55 @0x8
0x0f4d…0f6e at0009 = ╱36╱6╱ // 0xf56 @0x9
0x0f4d…0f6e at000a = ╱35╱5╱ // 0xf57 @0xa
0x0f4d…0f6e at000b = ╱32╱2╱ // 0xf58 @0xb
0x0f4d…0f6e at000c = ╱33╱3╱ // 0xf59 @0xc
0x0f4d…0f6e at000d = ╱3e╱>╱ // 0xf5a @0xd
0x0f4d…0f6e at000e = ╱54╱T╱ // 0xf5b @0xe
0x0f4d…0f6e at000f = ╱72╱r╱ // 0xf5c @0xf
0x0f4d…0f6e at0010 = ╱79╱y╱ // 0xf5d @0x10
0x0f4d…0f6e at0011 = ╱6b╱k╱ // 0xf5e @0x11
0x0f4d…0f6e at0012 = ╱20╱…╱ // 0xf5f @0x12
0x0f4d…0f6e at0013 = ╱52╱R╱ // 0xf60 @0x13
0x0f4d…0f6e at0014 = ╱45╱E╱ // 0xf61 @0x14
0x0f4d…0f6e at0015 = ╱54╱T╱ // 0xf62 @0x15
0x0f4d…0f6e at0016 = ╱55╱U╱ // 0xf63 @0x16
0x0f4d…0f6e at0017 = ╱52╱R╱ // 0xf64 @0x17
0x0f4d…0f6e at0018 = ╱4e╱N╱ // 0xf65 @0x18
0x0f4d…0f6e at0019 = ╱22╱"╱ // 0xf66 @0x19
0x0f4d…0f6e at001a = ╱f1╱ : ╱ // 0xf67 @0x1a
0x0f4d…0f6e at001b = ╱53╱S╱ // 0xf68 @0x1b
0x0f4d…0f6e at001c = ╱56╱V╱ // 0xf69 @0x1c
0x0f4d…0f6e at001d = ╱41╱A╱ // 0xf6a @0x1d
0x0f4d…0f6e at001e = ╱52╱R╱ // 0xf6b @0x1e
0x0f4d…0f6e at001f = ╱ef╱$╱ // 0xf6c @0x1f
0x0f4d…0f6e at0020 = EOL // 0xf6d @0x20
0x0f4d…0f6e }
0x0f6e…0f75 a563 1290 ELSE
0x0f6e…0f75 LineComal80 {
0x0f6e…0f75 ptr = 0xa563 // 0xf6e @0x0
0x0f6e…0f75 lno = 0x050a // 0xf70 @0x2
0x0f6e…0f75 at0004 = ╱9a0a╱ ELSE ╱ // 0xf72 @0x4
0x0f6e…0f75 at0006 = EOL // 0xf74 @0x6
0x0f6e…0f75 }
0x0f75…0f89 a577 1300 EXEC INDTAST_POSTER
0x0f75…0f89 LineComal80 {
0x0f75…0f89 ptr = 0xa577 // 0xf75 @0x0
0x0f75…0f89 lno = 0x0514 // 0xf77 @0x2
0x0f75…0f89 at0004 = ╱9d╱ EXEC ╱ // 0xf79 @0x4
0x0f75…0f89 at0005 = ╱49╱I╱ // 0xf7a @0x5
0x0f75…0f89 at0006 = ╱4e╱N╱ // 0xf7b @0x6
0x0f75…0f89 at0007 = ╱44╱D╱ // 0xf7c @0x7
0x0f75…0f89 at0008 = ╱54╱T╱ // 0xf7d @0x8
0x0f75…0f89 at0009 = ╱41╱A╱ // 0xf7e @0x9
0x0f75…0f89 at000a = ╱53╱S╱ // 0xf7f @0xa
0x0f75…0f89 at000b = ╱54╱T╱ // 0xf80 @0xb
0x0f75…0f89 at000c = ╱5f╱_╱ // 0xf81 @0xc
0x0f75…0f89 at000d = ╱50╱P╱ // 0xf82 @0xd
0x0f75…0f89 at000e = ╱4f╱O╱ // 0xf83 @0xe
0x0f75…0f89 at000f = ╱53╱S╱ // 0xf84 @0xf
0x0f75…0f89 at0010 = ╱54╱T╱ // 0xf85 @0x10
0x0f75…0f89 at0011 = ╱45╱E╱ // 0xf86 @0x11
0x0f75…0f89 at0012 = ╱52╱R╱ // 0xf87 @0x12
0x0f75…0f89 at0013 = EOL // 0xf88 @0x13
0x0f75…0f89 }
0x0f89…0f8f a57d 1310 ENDIF
0x0f89…0f8f LineComal80 {
0x0f89…0f8f ptr = 0xa57d // 0xf89 @0x0
0x0f89…0f8f lno = 0x051e // 0xf8b @0x2
0x0f89…0f8f at0004 = ╱9c╱ ENDIF ╱ // 0xf8d @0x4
0x0f89…0f8f at0005 = EOL // 0xf8e @0x5
0x0f89…0f8f }
0x0f8f…0fa0 a58e 1320 WHILE "UK","uk"
0x0f8f…0fa0 LineComal80 {
0x0f8f…0fa0 ptr = 0xa58e // 0xf8f @0x0
0x0f8f…0fa0 lno = 0x0528 // 0xf91 @0x2
0x0f8f…0fa0 at0004 = ╱a40b00╱ WHILE ╱ // 0xf93 @0x4
0x0f8f…0fa0 at0007 = ╱22╱"╱ // 0xf96 @0x7
0x0f8f…0fa0 at0008 = ╱55╱U╱ // 0xf97 @0x8
0x0f8f…0fa0 at0009 = ╱4b╱K╱ // 0xf98 @0x9
0x0f8f…0fa0 at000a = ╱22╱"╱ // 0xf99 @0xa
0x0f8f…0fa0 at000b = ╱ec╱,╱ // 0xf9a @0xb
0x0f8f…0fa0 at000c = ╱22╱"╱ // 0xf9b @0xc
0x0f8f…0fa0 at000d = ╱75╱u╱ // 0xf9c @0xd
0x0f8f…0fa0 at000e = ╱6b╱k╱ // 0xf9d @0xe
0x0f8f…0fa0 at000f = ╱22╱"╱ // 0xf9e @0xf
0x0f8f…0fa0 at0010 = EOL // 0xf9f @0x10
0x0f8f…0fa0 }
0x0fa0…0fb4 a5a2 1330 EXEC UDSKRIV_POSTER
0x0fa0…0fb4 LineComal80 {
0x0fa0…0fb4 ptr = 0xa5a2 // 0xfa0 @0x0
0x0fa0…0fb4 lno = 0x0532 // 0xfa2 @0x2
0x0fa0…0fb4 at0004 = ╱9d╱ EXEC ╱ // 0xfa4 @0x4
0x0fa0…0fb4 at0005 = ╱55╱U╱ // 0xfa5 @0x5
0x0fa0…0fb4 at0006 = ╱44╱D╱ // 0xfa6 @0x6
0x0fa0…0fb4 at0007 = ╱53╱S╱ // 0xfa7 @0x7
0x0fa0…0fb4 at0008 = ╱4b╱K╱ // 0xfa8 @0x8
0x0fa0…0fb4 at0009 = ╱52╱R╱ // 0xfa9 @0x9
0x0fa0…0fb4 at000a = ╱49╱I╱ // 0xfaa @0xa
0x0fa0…0fb4 at000b = ╱56╱V╱ // 0xfab @0xb
0x0fa0…0fb4 at000c = ╱5f╱_╱ // 0xfac @0xc
0x0fa0…0fb4 at000d = ╱50╱P╱ // 0xfad @0xd
0x0fa0…0fb4 at000e = ╱4f╱O╱ // 0xfae @0xe
0x0fa0…0fb4 at000f = ╱53╱S╱ // 0xfaf @0xf
0x0fa0…0fb4 at0010 = ╱54╱T╱ // 0xfb0 @0x10
0x0fa0…0fb4 at0011 = ╱45╱E╱ // 0xfb1 @0x11
0x0fa0…0fb4 at0012 = ╱52╱R╱ // 0xfb2 @0x12
0x0fa0…0fb4 at0013 = EOL // 0xfb3 @0x13
0x0fa0…0fb4 }
0x0fb4…0fc5 a5b3 1340 WHILE "RK","rk"
0x0fb4…0fc5 LineComal80 {
0x0fb4…0fc5 ptr = 0xa5b3 // 0xfb4 @0x0
0x0fb4…0fc5 lno = 0x053c // 0xfb6 @0x2
0x0fb4…0fc5 at0004 = ╱a40c00╱ WHILE ╱ // 0xfb8 @0x4
0x0fb4…0fc5 at0007 = ╱22╱"╱ // 0xfbb @0x7
0x0fb4…0fc5 at0008 = ╱52╱R╱ // 0xfbc @0x8
0x0fb4…0fc5 at0009 = ╱4b╱K╱ // 0xfbd @0x9
0x0fb4…0fc5 at000a = ╱22╱"╱ // 0xfbe @0xa
0x0fb4…0fc5 at000b = ╱ec╱,╱ // 0xfbf @0xb
0x0fb4…0fc5 at000c = ╱22╱"╱ // 0xfc0 @0xc
0x0fb4…0fc5 at000d = ╱72╱r╱ // 0xfc1 @0xd
0x0fb4…0fc5 at000e = ╱6b╱k╱ // 0xfc2 @0xe
0x0fb4…0fc5 at000f = ╱22╱"╱ // 0xfc3 @0xf
0x0fb4…0fc5 at0010 = EOL // 0xfc4 @0x10
0x0fb4…0fc5 }
0x0fc5…0fd5 a5c3 1350 EXEC RET_POSTER
0x0fc5…0fd5 LineComal80 {
0x0fc5…0fd5 ptr = 0xa5c3 // 0xfc5 @0x0
0x0fc5…0fd5 lno = 0x0546 // 0xfc7 @0x2
0x0fc5…0fd5 at0004 = ╱9d╱ EXEC ╱ // 0xfc9 @0x4
0x0fc5…0fd5 at0005 = ╱52╱R╱ // 0xfca @0x5
0x0fc5…0fd5 at0006 = ╱45╱E╱ // 0xfcb @0x6
0x0fc5…0fd5 at0007 = ╱54╱T╱ // 0xfcc @0x7
0x0fc5…0fd5 at0008 = ╱5f╱_╱ // 0xfcd @0x8
0x0fc5…0fd5 at0009 = ╱50╱P╱ // 0xfce @0x9
0x0fc5…0fd5 at000a = ╱4f╱O╱ // 0xfcf @0xa
0x0fc5…0fd5 at000b = ╱53╱S╱ // 0xfd0 @0xb
0x0fc5…0fd5 at000c = ╱54╱T╱ // 0xfd1 @0xc
0x0fc5…0fd5 at000d = ╱45╱E╱ // 0xfd2 @0xd
0x0fc5…0fd5 at000e = ╱52╱R╱ // 0xfd3 @0xe
0x0fc5…0fd5 at000f = EOL // 0xfd4 @0xf
0x0fc5…0fd5 }
0x0fd5…0fe6 a5d4 1360 WHILE "AK","ak"
0x0fd5…0fe6 LineComal80 {
0x0fd5…0fe6 ptr = 0xa5d4 // 0xfd5 @0x0
0x0fd5…0fe6 lno = 0x0550 // 0xfd7 @0x2
0x0fd5…0fe6 at0004 = ╱a40d00╱ WHILE ╱ // 0xfd9 @0x4
0x0fd5…0fe6 at0007 = ╱22╱"╱ // 0xfdc @0x7
0x0fd5…0fe6 at0008 = ╱41╱A╱ // 0xfdd @0x8
0x0fd5…0fe6 at0009 = ╱4b╱K╱ // 0xfde @0x9
0x0fd5…0fe6 at000a = ╱22╱"╱ // 0xfdf @0xa
0x0fd5…0fe6 at000b = ╱ec╱,╱ // 0xfe0 @0xb
0x0fd5…0fe6 at000c = ╱22╱"╱ // 0xfe1 @0xc
0x0fd5…0fe6 at000d = ╱61╱a╱ // 0xfe2 @0xd
0x0fd5…0fe6 at000e = ╱6b╱k╱ // 0xfe3 @0xe
0x0fd5…0fe6 at000f = ╱22╱"╱ // 0xfe4 @0xf
0x0fd5…0fe6 at0010 = EOL // 0xfe5 @0x10
0x0fd5…0fe6 }
0x0fe6…0ffb a5e9 1370 IF _HØJREC = 1 THEN
0x0fe6…0ffb LineComal80 {
0x0fe6…0ffb ptr = 0xa5e9 // 0xfe6 @0x0
0x0fe6…0ffb lno = 0x055a // 0xfe8 @0x2
0x0fe6…0ffb at0004 = ╱9b0e4b╱ IF ╱ // 0xfea @0x4
0x0fe6…0ffb at0007 = ╱5f╱_╱ // 0xfed @0x7
0x0fe6…0ffb at0008 = ╱48╱H╱ // 0xfee @0x8
0x0fe6…0ffb at0009 = ╱5c╱Ø╱ // 0xfef @0x9
0x0fe6…0ffb at000a = ╱4a╱J╱ // 0xff0 @0xa
0x0fe6…0ffb at000b = ╱52╱R╱ // 0xff1 @0xb
0x0fe6…0ffb at000c = ╱45╱E╱ // 0xff2 @0xc
0x0fe6…0ffb at000d = ╱43╱C╱ // 0xff3 @0xd
0x0fe6…0ffb at000e = ╱df╱ = ╱ // 0xff4 @0xe
0x0fe6…0ffb at000f = ╱31╱1╱ // 0xff5 @0xf
0x0fe6…0ffb at0010 = ╱f20100╱ // 0xff6 @0x10
0x0fe6…0ffb at0013 = ╱b5╱ THEN ╱ // 0xff9 @0x13
0x0fe6…0ffb at0014 = EOL // 0xffa @0x14
0x0fe6…0ffb }
0x0ffb…102f a61d 1380 EXEC FEJL("Ulovlig afstemning - ingen posteringer")
0x0ffb…102f LineComal80 {
0x0ffb…102f ptr = 0xa61d // 0xffb @0x0
0x0ffb…102f lno = 0x0564 // 0xffd @0x2
0x0ffb…102f at0004 = ╱9d╱ EXEC ╱ // 0xfff @0x4
0x0ffb…102f at0005 = ╱46╱F╱ // 0x1000 @0x5
0x0ffb…102f at0006 = ╱45╱E╱ // 0x1001 @0x6
0x0ffb…102f at0007 = ╱4a╱J╱ // 0x1002 @0x7
0x0ffb…102f at0008 = ╱4c╱L╱ // 0x1003 @0x8
0x0ffb…102f at0009 = ╱ed╱(╱ // 0x1004 @0x9
0x0ffb…102f at000a = ╱22╱"╱ // 0x1005 @0xa
0x0ffb…102f at000b = ╱55╱U╱ // 0x1006 @0xb
0x0ffb…102f at000c = ╱6c╱l╱ // 0x1007 @0xc
0x0ffb…102f at000d = ╱6f╱o╱ // 0x1008 @0xd
0x0ffb…102f at000e = ╱76╱v╱ // 0x1009 @0xe
0x0ffb…102f at000f = ╱6c╱l╱ // 0x100a @0xf
0x0ffb…102f at0010 = ╱69╱i╱ // 0x100b @0x10
0x0ffb…102f at0011 = ╱67╱g╱ // 0x100c @0x11
0x0ffb…102f at0012 = ╱20╱…╱ // 0x100d @0x12
0x0ffb…102f at0013 = ╱61╱a╱ // 0x100e @0x13
0x0ffb…102f at0014 = ╱66╱f╱ // 0x100f @0x14
0x0ffb…102f at0015 = ╱73╱s╱ // 0x1010 @0x15
0x0ffb…102f at0016 = ╱74╱t╱ // 0x1011 @0x16
0x0ffb…102f at0017 = ╱65╱e╱ // 0x1012 @0x17
0x0ffb…102f at0018 = ╱6d╱m╱ // 0x1013 @0x18
0x0ffb…102f at0019 = ╱6e╱n╱ // 0x1014 @0x19
0x0ffb…102f at001a = ╱69╱i╱ // 0x1015 @0x1a
0x0ffb…102f at001b = ╱6e╱n╱ // 0x1016 @0x1b
0x0ffb…102f at001c = ╱67╱g╱ // 0x1017 @0x1c
0x0ffb…102f at001d = ╱20╱…╱ // 0x1018 @0x1d
0x0ffb…102f at001e = ╱2d╱-╱ // 0x1019 @0x1e
0x0ffb…102f at001f = ╱20╱…╱ // 0x101a @0x1f
0x0ffb…102f at0020 = ╱69╱i╱ // 0x101b @0x20
0x0ffb…102f at0021 = ╱6e╱n╱ // 0x101c @0x21
0x0ffb…102f at0022 = ╱67╱g╱ // 0x101d @0x22
0x0ffb…102f at0023 = ╱65╱e╱ // 0x101e @0x23
0x0ffb…102f at0024 = ╱6e╱n╱ // 0x101f @0x24
0x0ffb…102f at0025 = ╱20╱…╱ // 0x1020 @0x25
0x0ffb…102f at0026 = ╱70╱p╱ // 0x1021 @0x26
0x0ffb…102f at0027 = ╱6f╱o╱ // 0x1022 @0x27
0x0ffb…102f at0028 = ╱73╱s╱ // 0x1023 @0x28
0x0ffb…102f at0029 = ╱74╱t╱ // 0x1024 @0x29
0x0ffb…102f at002a = ╱65╱e╱ // 0x1025 @0x2a
0x0ffb…102f at002b = ╱72╱r╱ // 0x1026 @0x2b
0x0ffb…102f at002c = ╱69╱i╱ // 0x1027 @0x2c
0x0ffb…102f at002d = ╱6e╱n╱ // 0x1028 @0x2d
0x0ffb…102f at002e = ╱67╱g╱ // 0x1029 @0x2e
0x0ffb…102f at002f = ╱65╱e╱ // 0x102a @0x2f
0x0ffb…102f at0030 = ╱72╱r╱ // 0x102b @0x30
0x0ffb…102f at0031 = ╱22╱"╱ // 0x102c @0x31
0x0ffb…102f at0032 = ╱ee╱)╱ // 0x102d @0x32
0x0ffb…102f at0033 = EOL // 0x102e @0x33
0x0ffb…102f }
0x102f…1036 d721 1390 ELSE
0x102f…1036 LineComal80 {
0x102f…1036 ptr = 0xd721 // 0x102f @0x0
0x102f…1036 lno = 0x056e // 0x1031 @0x2
0x102f…1036 at0004 = ╱9a0f╱ ELSE ╱ // 0x1033 @0x4
0x102f…1036 at0006 = EOL // 0x1035 @0x6
0x102f…1036 }
0x1036…1054 a642 1400 LET PROGRAM$ := PRGFL$ + ":SYSAK"
0x1036…1054 LineComal80 {
0x1036…1054 ptr = 0xa642 // 0x1036 @0x0
0x1036…1054 lno = 0x0578 // 0x1038 @0x2
0x1036…1054 at0004 = ╱86╱ LET ╱ // 0x103a @0x4
0x1036…1054 at0005 = ╱50╱P╱ // 0x103b @0x5
0x1036…1054 at0006 = ╱52╱R╱ // 0x103c @0x6
0x1036…1054 at0007 = ╱4f╱O╱ // 0x103d @0x7
0x1036…1054 at0008 = ╱47╱G╱ // 0x103e @0x8
0x1036…1054 at0009 = ╱52╱R╱ // 0x103f @0x9
0x1036…1054 at000a = ╱41╱A╱ // 0x1040 @0xa
0x1036…1054 at000b = ╱4d╱M╱ // 0x1041 @0xb
0x1036…1054 at000c = ╱ef╱$╱ // 0x1042 @0xc
0x1036…1054 at000d = ╱f0╱ := ╱ // 0x1043 @0xd
0x1036…1054 at000e = ╱50╱P╱ // 0x1044 @0xe
0x1036…1054 at000f = ╱52╱R╱ // 0x1045 @0xf
0x1036…1054 at0010 = ╱47╱G╱ // 0x1046 @0x10
0x1036…1054 at0011 = ╱46╱F╱ // 0x1047 @0x11
0x1036…1054 at0012 = ╱4c╱L╱ // 0x1048 @0x12
0x1036…1054 at0013 = ╱ef╱$╱ // 0x1049 @0x13
0x1036…1054 at0014 = ╱eb╱ + ╱ // 0x104a @0x14
0x1036…1054 at0015 = ╱22╱"╱ // 0x104b @0x15
0x1036…1054 at0016 = ╱3a╱:╱ // 0x104c @0x16
0x1036…1054 at0017 = ╱53╱S╱ // 0x104d @0x17
0x1036…1054 at0018 = ╱59╱Y╱ // 0x104e @0x18
0x1036…1054 at0019 = ╱53╱S╱ // 0x104f @0x19
0x1036…1054 at001a = ╱41╱A╱ // 0x1050 @0x1a
0x1036…1054 at001b = ╱4b╱K╱ // 0x1051 @0x1b
0x1036…1054 at001c = ╱22╱"╱ // 0x1052 @0x1c
0x1036…1054 at001d = EOL // 0x1053 @0x1d
0x1036…1054 }
0x1054…1062 a650 1410 CHAIN PROGRAM$
0x1054…1062 LineComal80 {
0x1054…1062 ptr = 0xa650 // 0x1054 @0x0
0x1054…1062 lno = 0x0582 // 0x1056 @0x2
0x1054…1062 at0004 = ╱ac╱ CHAIN ╱ // 0x1058 @0x4
0x1054…1062 at0005 = ╱50╱P╱ // 0x1059 @0x5
0x1054…1062 at0006 = ╱52╱R╱ // 0x105a @0x6
0x1054…1062 at0007 = ╱4f╱O╱ // 0x105b @0x7
0x1054…1062 at0008 = ╱47╱G╱ // 0x105c @0x8
0x1054…1062 at0009 = ╱52╱R╱ // 0x105d @0x9
0x1054…1062 at000a = ╱41╱A╱ // 0x105e @0xa
0x1054…1062 at000b = ╱4d╱M╱ // 0x105f @0xb
0x1054…1062 at000c = ╱ef╱$╱ // 0x1060 @0xc
0x1054…1062 at000d = EOL // 0x1061 @0xd
0x1054…1062 }
0x1062…1068 a656 1420 ENDIF
0x1062…1068 LineComal80 {
0x1062…1068 ptr = 0xa656 // 0x1062 @0x0
0x1062…1068 lno = 0x058c // 0x1064 @0x2
0x1062…1068 at0004 = ╱9c╱ ENDIF ╱ // 0x1066 @0x4
0x1062…1068 at0005 = EOL // 0x1067 @0x5
0x1062…1068 }
0x1068…106f a65d 1430 OTHERWISE
0x1068…106f LineComal80 {
0x1068…106f ptr = 0xa65d // 0x1068 @0x0
0x1068…106f lno = 0x0596 // 0x106a @0x2
0x1068…106f at0004 = ╱9510╱ OTHERWISE ╱ // 0x106c @0x4
0x1068…106f at0006 = EOL // 0x106e @0x6
0x1068…106f }
0x106f…107d a66b 1440 CHAIN PROGRAM$
0x106f…107d LineComal80 {
0x106f…107d ptr = 0xa66b // 0x106f @0x0
0x106f…107d lno = 0x05a0 // 0x1071 @0x2
0x106f…107d at0004 = ╱ac╱ CHAIN ╱ // 0x1073 @0x4
0x106f…107d at0005 = ╱50╱P╱ // 0x1074 @0x5
0x106f…107d at0006 = ╱52╱R╱ // 0x1075 @0x6
0x106f…107d at0007 = ╱4f╱O╱ // 0x1076 @0x7
0x106f…107d at0008 = ╱47╱G╱ // 0x1077 @0x8
0x106f…107d at0009 = ╱52╱R╱ // 0x1078 @0x9
0x106f…107d at000a = ╱41╱A╱ // 0x1079 @0xa
0x106f…107d at000b = ╱4d╱M╱ // 0x107a @0xb
0x106f…107d at000c = ╱ef╱$╱ // 0x107b @0xc
0x106f…107d at000d = EOL // 0x107c @0xd
0x106f…107d }
0x107d…1083 a671 1450 ENDCASE
0x107d…1083 LineComal80 {
0x107d…1083 ptr = 0xa671 // 0x107d @0x0
0x107d…1083 lno = 0x05aa // 0x107f @0x2
0x107d…1083 at0004 = ╱a3╱ ENDCASE ╱ // 0x1081 @0x4
0x107d…1083 at0005 = EOL // 0x1082 @0x5
0x107d…1083 }
0x1083…108e a67c 1460 UNTIL FALSE
0x1083…108e LineComal80 {
0x1083…108e ptr = 0xa67c // 0x1083 @0x0
0x1083…108e lno = 0x05b4 // 0x1085 @0x2
0x1083…108e at0004 = ╱98╱ UNTIL ╱ // 0x1087 @0x4
0x1083…108e at0005 = ╱46╱F╱ // 0x1088 @0x5
0x1083…108e at0006 = ╱41╱A╱ // 0x1089 @0x6
0x1083…108e at0007 = ╱4c╱L╱ // 0x108a @0x7
0x1083…108e at0008 = ╱53╱S╱ // 0x108b @0x8
0x1083…108e at0009 = ╱45╱E╱ // 0x108c @0x9
0x1083…108e at000a = EOL // 0x108d @0xa
0x1083…108e }
0x108e…10a1 a68f 1470 ENDPROC FUNKTIONSMENU
0x108e…10a1 LineComal80 {
0x108e…10a1 ptr = 0xa68f // 0x108e @0x0
0x108e…10a1 lno = 0x05be // 0x1090 @0x2
0x108e…10a1 at0004 = ╱9f╱ ENDPROC ╱ // 0x1092 @0x4
0x108e…10a1 at0005 = ╱46╱F╱ // 0x1093 @0x5
0x108e…10a1 at0006 = ╱55╱U╱ // 0x1094 @0x6
0x108e…10a1 at0007 = ╱4e╱N╱ // 0x1095 @0x7
0x108e…10a1 at0008 = ╱4b╱K╱ // 0x1096 @0x8
0x108e…10a1 at0009 = ╱54╱T╱ // 0x1097 @0x9
0x108e…10a1 at000a = ╱49╱I╱ // 0x1098 @0xa
0x108e…10a1 at000b = ╱4f╱O╱ // 0x1099 @0xb
0x108e…10a1 at000c = ╱4e╱N╱ // 0x109a @0xc
0x108e…10a1 at000d = ╱53╱S╱ // 0x109b @0xd
0x108e…10a1 at000e = ╱4d╱M╱ // 0x109c @0xe
0x108e…10a1 at000f = ╱45╱E╱ // 0x109d @0xf
0x108e…10a1 at0010 = ╱4e╱N╱ // 0x109e @0x10
0x108e…10a1 at0011 = ╱55╱U╱ // 0x109f @0x11
0x108e…10a1 at0012 = EOL // 0x10a0 @0x12
0x108e…10a1 }
0x10a1…10a6 a694 1480
0x10a1…10a6 LineComal80 {
0x10a1…10a6 ptr = 0xa694 // 0x10a1 @0x0
0x10a1…10a6 lno = 0x05c8 // 0x10a3 @0x2
0x10a1…10a6 at0004 = EOL // 0x10a5 @0x4
0x10a1…10a6 }
0x10a6…10b9 a6a7 1490 PROC TERMINAL_IDX
0x10a6…10b9 LineComal80 {
0x10a6…10b9 ptr = 0xa6a7 // 0x10a6 @0x0
0x10a6…10b9 lno = 0x05d2 // 0x10a8 @0x2
0x10a6…10b9 at0004 = ╱9e11╱ PROC ╱ // 0x10aa @0x4
0x10a6…10b9 at0006 = ╱54╱T╱ // 0x10ac @0x6
0x10a6…10b9 at0007 = ╱45╱E╱ // 0x10ad @0x7
0x10a6…10b9 at0008 = ╱52╱R╱ // 0x10ae @0x8
0x10a6…10b9 at0009 = ╱4d╱M╱ // 0x10af @0x9
0x10a6…10b9 at000a = ╱49╱I╱ // 0x10b0 @0xa
0x10a6…10b9 at000b = ╱4e╱N╱ // 0x10b1 @0xb
0x10a6…10b9 at000c = ╱41╱A╱ // 0x10b2 @0xc
0x10a6…10b9 at000d = ╱4c╱L╱ // 0x10b3 @0xd
0x10a6…10b9 at000e = ╱5f╱_╱ // 0x10b4 @0xe
0x10a6…10b9 at000f = ╱49╱I╱ // 0x10b5 @0xf
0x10a6…10b9 at0010 = ╱44╱D╱ // 0x10b6 @0x10
0x10a6…10b9 at0011 = ╱58╱X╱ // 0x10b7 @0x11
0x10a6…10b9 at0012 = EOL // 0x10b8 @0x12
0x10a6…10b9 }
0x10b9…10d3 a6c1 1500 LET PPAR := 5 ; RESRV := 0
0x10b9…10d3 LineComal80 {
0x10b9…10d3 ptr = 0xa6c1 // 0x10b9 @0x0
0x10b9…10d3 lno = 0x05dc // 0x10bb @0x2
0x10b9…10d3 at0004 = ╱86╱ LET ╱ // 0x10bd @0x4
0x10b9…10d3 at0005 = ╱50╱P╱ // 0x10be @0x5
0x10b9…10d3 at0006 = ╱50╱P╱ // 0x10bf @0x6
0x10b9…10d3 at0007 = ╱41╱A╱ // 0x10c0 @0x7
0x10b9…10d3 at0008 = ╱52╱R╱ // 0x10c1 @0x8
0x10b9…10d3 at0009 = ╱f0╱ := ╱ // 0x10c2 @0x9
0x10b9…10d3 at000a = ╱35╱5╱ // 0x10c3 @0xa
0x10b9…10d3 at000b = ╱f20500╱ // 0x10c4 @0xb
0x10b9…10d3 at000e = ╱ea╱ ; ╱ // 0x10c7 @0xe
0x10b9…10d3 at000f = ╱52╱R╱ // 0x10c8 @0xf
0x10b9…10d3 at0010 = ╱45╱E╱ // 0x10c9 @0x10
0x10b9…10d3 at0011 = ╱53╱S╱ // 0x10ca @0x11
0x10b9…10d3 at0012 = ╱52╱R╱ // 0x10cb @0x12
0x10b9…10d3 at0013 = ╱56╱V╱ // 0x10cc @0x13
0x10b9…10d3 at0014 = ╱f0╱ := ╱ // 0x10cd @0x14
0x10b9…10d3 at0015 = ╱30╱0╱ // 0x10ce @0x15
0x10b9…10d3 at0016 = ╱f20000╱ // 0x10cf @0x16
0x10b9…10d3 at0019 = EOL // 0x10d2 @0x19
0x10b9…10d3 }
0x10d3…10e5 a6d3 1510 CALL :PRES"
0x10d3…10e5 LineComal80 {
0x10d3…10e5 ptr = 0xa6d3 // 0x10d3 @0x0
0x10d3…10e5 lno = 0x05e6 // 0x10d5 @0x2
0x10d3…10e5 at0004 = ╱ad00╱ CALL ╱ // 0x10d7 @0x4
0x10d3…10e5 at0006 = ╱fe22444445╱ // 0x10d9 @0x6
0x10d3…10e5 at000b = ╱3a╱:╱ // 0x10de @0xb
0x10d3…10e5 at000c = ╱50╱P╱ // 0x10df @0xc
0x10d3…10e5 at000d = ╱52╱R╱ // 0x10e0 @0xd
0x10d3…10e5 at000e = ╱45╱E╱ // 0x10e1 @0xe
0x10d3…10e5 at000f = ╱53╱S╱ // 0x10e2 @0xf
0x10d3…10e5 at0010 = ╱22╱"╱ // 0x10e3 @0x10
0x10d3…10e5 at0011 = EOL // 0x10e4 @0x11
0x10d3…10e5 }
0x10e5…110e a6fc 1520 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0x10e5…110e LineComal80 {
0x10e5…110e ptr = 0xa6fc // 0x10e5 @0x0
0x10e5…110e lno = 0x05f0 // 0x10e7 @0x2
0x10e5…110e at0004 = ╱a9╱ GET ╱ // 0x10e9 @0x4
0x10e5…110e at0005 = ╱53╱S╱ // 0x10ea @0x5
0x10e5…110e at0006 = ╱59╱Y╱ // 0x10eb @0x6
0x10e5…110e at0007 = ╱53╱S╱ // 0x10ec @0x7
0x10e5…110e at0008 = ╱50╱P╱ // 0x10ed @0x8
0x10e5…110e at0009 = ╱41╱A╱ // 0x10ee @0x9
0x10e5…110e at000a = ╱52╱R╱ // 0x10ef @0xa
0x10e5…110e at000b = ╱41╱A╱ // 0x10f0 @0xb
0x10e5…110e at000c = ╱ef╱$╱ // 0x10f1 @0xc
0x10e5…110e at000d = ╱ec╱,╱ // 0x10f2 @0xd
0x10e5…110e at000e = ╱31╱1╱ // 0x10f3 @0xe
0x10e5…110e at000f = ╱f20100╱ // 0x10f4 @0xf
0x10e5…110e at0012 = ╱e5╱ + ╱ // 0x10f7 @0x12
0x10e5…110e at0013 = ╱52╱R╱ // 0x10f8 @0x13
0x10e5…110e at0014 = ╱45╱E╱ // 0x10f9 @0x14
0x10e5…110e at0015 = ╱53╱S╱ // 0x10fa @0x15
0x10e5…110e at0016 = ╱52╱R╱ // 0x10fb @0x16
0x10e5…110e at0017 = ╱56╱V╱ // 0x10fc @0x17
0x10e5…110e at0018 = ╱f1╱ : ╱ // 0x10fd @0x18
0x10e5…110e at0019 = ╱44╱D╱ // 0x10fe @0x19
0x10e5…110e at001a = ╱41╱A╱ // 0x10ff @0x1a
0x10e5…110e at001b = ╱54╱T╱ // 0x1100 @0x1b
0x10e5…110e at001c = ╱41╱A╱ // 0x1101 @0x1c
0x10e5…110e at001d = ╱46╱F╱ // 0x1102 @0x1d
0x10e5…110e at001e = ╱4c╱L╱ // 0x1103 @0x1e
0x10e5…110e at001f = ╱ef╱$╱ // 0x1104 @0x1f
0x10e5…110e at0020 = ╱ec╱,╱ // 0x1105 @0x20
0x10e5…110e at0021 = ╱54╱T╱ // 0x1106 @0x21
0x10e5…110e at0022 = ╱5f╱_╱ // 0x1107 @0x22
0x10e5…110e at0023 = ╱4b╱K╱ // 0x1108 @0x23
0x10e5…110e at0024 = ╱4f╱O╱ // 0x1109 @0x24
0x10e5…110e at0025 = ╱44╱D╱ // 0x110a @0x25
0x10e5…110e at0026 = ╱45╱E╱ // 0x110b @0x26
0x10e5…110e at0027 = ╱ef╱$╱ // 0x110c @0x27
0x10e5…110e at0028 = EOL // 0x110d @0x28
0x10e5…110e }
0x110e…1120 a70e 1530 ENDPROC TERMINAL_IDX
0x110e…1120 LineComal80 {
0x110e…1120 ptr = 0xa70e // 0x110e @0x0
0x110e…1120 lno = 0x05fa // 0x1110 @0x2
0x110e…1120 at0004 = ╱9f╱ ENDPROC ╱ // 0x1112 @0x4
0x110e…1120 at0005 = ╱54╱T╱ // 0x1113 @0x5
0x110e…1120 at0006 = ╱45╱E╱ // 0x1114 @0x6
0x110e…1120 at0007 = ╱52╱R╱ // 0x1115 @0x7
0x110e…1120 at0008 = ╱4d╱M╱ // 0x1116 @0x8
0x110e…1120 at0009 = ╱49╱I╱ // 0x1117 @0x9
0x110e…1120 at000a = ╱4e╱N╱ // 0x1118 @0xa
0x110e…1120 at000b = ╱41╱A╱ // 0x1119 @0xb
0x110e…1120 at000c = ╱4c╱L╱ // 0x111a @0xc
0x110e…1120 at000d = ╱5f╱_╱ // 0x111b @0xd
0x110e…1120 at000e = ╱49╱I╱ // 0x111c @0xe
0x110e…1120 at000f = ╱44╱D╱ // 0x111d @0xf
0x110e…1120 at0010 = ╱58╱X╱ // 0x111e @0x10
0x110e…1120 at0011 = EOL // 0x111f @0x11
0x110e…1120 }
0x1120…1125 a713 1540
0x1120…1125 LineComal80 {
0x1120…1125 ptr = 0xa713 // 0x1120 @0x0
0x1120…1125 lno = 0x0604 // 0x1122 @0x2
0x1120…1125 at0004 = EOL // 0x1124 @0x4
0x1120…1125 }
0x1125…1140 (57,) a72e 1550 PROC OPENFIL(FNAVN$,WAY$)
0x1125…1140 LineComal80 {
0x1125…1140 ptr = 0xa72e // 0x1125 @0x0
0x1125…1140 lno = 0x060e // 0x1127 @0x2
0x1125…1140 at0004 = ╱9e12╱ PROC ╱ // 0x1129 @0x4
0x1125…1140 at0006 = ╱4f╱O╱ // 0x112b @0x6
0x1125…1140 at0007 = ╱50╱P╱ // 0x112c @0x7
0x1125…1140 at0008 = ╱45╱E╱ // 0x112d @0x8
0x1125…1140 at0009 = ╱4e╱N╱ // 0x112e @0x9
0x1125…1140 at000a = ╱46╱F╱ // 0x112f @0xa
0x1125…1140 at000b = ╱49╱I╱ // 0x1130 @0xb
0x1125…1140 at000c = ╱4c╱L╱ // 0x1131 @0xc
0x1125…1140 at000d = ╱ed╱(╱ // 0x1132 @0xd
0x1125…1140 at000e = ╱46╱F╱ // 0x1133 @0xe
0x1125…1140 at000f = ╱4e╱N╱ // 0x1134 @0xf
0x1125…1140 at0010 = ╱41╱A╱ // 0x1135 @0x10
0x1125…1140 at0011 = ╱56╱V╱ // 0x1136 @0x11
0x1125…1140 at0012 = ╱4e╱N╱ // 0x1137 @0x12
0x1125…1140 at0013 = ╱ef╱$╱ // 0x1138 @0x13
0x1125…1140 at0014 = ╱ec╱,╱ // 0x1139 @0x14
0x1125…1140 at0015 = ╱57╱W╱ // 0x113a @0x15
0x1125…1140 at0016 = ╱41╱A╱ // 0x113b @0x16
0x1125…1140 at0017 = ╱59╱Y╱ // 0x113c @0x17
0x1125…1140 at0018 = ╱ef╱$╱ // 0x113d @0x18
0x1125…1140 at0019 = ╱ee╱)╱ // 0x113e @0x19
0x1125…1140 at001a = EOL // 0x113f @0x1a
0x1125…1140 }
0x1140…1147 a735 1560 REPEAT
0x1140…1147 LineComal80 {
0x1140…1147 ptr = 0xa735 // 0x1140 @0x0
0x1140…1147 lno = 0x0618 // 0x1142 @0x2
0x1140…1147 at0004 = ╱9713╱ REPEAT ╱ // 0x1144 @0x4
0x1140…1147 at0006 = EOL // 0x1146 @0x6
0x1140…1147 }
0x1147…1160 a74e 1570 IF AY$ = "W" OR WAY$ = "w" THEN
0x1147…1160 LineComal80 {
0x1147…1160 ptr = 0xa74e // 0x1147 @0x0
0x1147…1160 lno = 0x0622 // 0x1149 @0x2
0x1147…1160 at0004 = ╱9b1457╱ IF ╱ // 0x114b @0x4
0x1147…1160 at0007 = ╱41╱A╱ // 0x114e @0x7
0x1147…1160 at0008 = ╱59╱Y╱ // 0x114f @0x8
0x1147…1160 at0009 = ╱ef╱$╱ // 0x1150 @0x9
0x1147…1160 at000a = ╱df╱ = ╱ // 0x1151 @0xa
0x1147…1160 at000b = ╱22╱"╱ // 0x1152 @0xb
0x1147…1160 at000c = ╱57╱W╱ // 0x1153 @0xc
0x1147…1160 at000d = ╱22╱"╱ // 0x1154 @0xd
0x1147…1160 at000e = ╱d8╱ OR ╱ // 0x1155 @0xe
0x1147…1160 at000f = ╱57╱W╱ // 0x1156 @0xf
0x1147…1160 at0010 = ╱41╱A╱ // 0x1157 @0x10
0x1147…1160 at0011 = ╱59╱Y╱ // 0x1158 @0x11
0x1147…1160 at0012 = ╱ef╱$╱ // 0x1159 @0x12
0x1147…1160 at0013 = ╱df╱ = ╱ // 0x115a @0x13
0x1147…1160 at0014 = ╱22╱"╱ // 0x115b @0x14
0x1147…1160 at0015 = ╱77╱w╱ // 0x115c @0x15
0x1147…1160 at0016 = ╱22╱"╱ // 0x115d @0x16
0x1147…1160 at0017 = ╱b5╱ THEN ╱ // 0x115e @0x17
0x1147…1160 at0018 = EOL // 0x115f @0x18
0x1147…1160 }
0x1160…116e a75c 1580 OPEN FNAVN$,W
0x1160…116e LineComal80 {
0x1160…116e ptr = 0xa75c // 0x1160 @0x0
0x1160…116e lno = 0x062c // 0x1162 @0x2
0x1160…116e at0004 = ╱a7╱ OPEN ╱ // 0x1164 @0x4
0x1160…116e at0005 = ╱46╱F╱ // 0x1165 @0x5
0x1160…116e at0006 = ╱4e╱N╱ // 0x1166 @0x6
0x1160…116e at0007 = ╱41╱A╱ // 0x1167 @0x7
0x1160…116e at0008 = ╱56╱V╱ // 0x1168 @0x8
0x1160…116e at0009 = ╱4e╱N╱ // 0x1169 @0x9
0x1160…116e at000a = ╱ef╱$╱ // 0x116a @0xa
0x1160…116e at000b = ╱ec╱,╱ // 0x116b @0xb
0x1160…116e at000c = ╱57╱W╱ // 0x116c @0xc
0x1160…116e at000d = EOL // 0x116d @0xd
0x1160…116e }
0x116e…1175 a763 1590 ELSE
0x116e…1175 LineComal80 {
0x116e…1175 ptr = 0xa763 // 0x116e @0x0
0x116e…1175 lno = 0x0636 // 0x1170 @0x2
0x116e…1175 at0004 = ╱9a15╱ ELSE ╱ // 0x1172 @0x4
0x116e…1175 at0006 = EOL // 0x1174 @0x6
0x116e…1175 }
0x1175…1183 a771 1600 OPEN FNAVN$,R
0x1175…1183 LineComal80 {
0x1175…1183 ptr = 0xa771 // 0x1175 @0x0
0x1175…1183 lno = 0x0640 // 0x1177 @0x2
0x1175…1183 at0004 = ╱a7╱ OPEN ╱ // 0x1179 @0x4
0x1175…1183 at0005 = ╱46╱F╱ // 0x117a @0x5
0x1175…1183 at0006 = ╱4e╱N╱ // 0x117b @0x6
0x1175…1183 at0007 = ╱41╱A╱ // 0x117c @0x7
0x1175…1183 at0008 = ╱56╱V╱ // 0x117d @0x8
0x1175…1183 at0009 = ╱4e╱N╱ // 0x117e @0x9
0x1175…1183 at000a = ╱ef╱$╱ // 0x117f @0xa
0x1175…1183 at000b = ╱ec╱,╱ // 0x1180 @0xb
0x1175…1183 at000c = ╱52╱R╱ // 0x1181 @0xc
0x1175…1183 at000d = EOL // 0x1182 @0xd
0x1175…1183 }
0x1183…1189 a777 1610 ENDIF
0x1183…1189 LineComal80 {
0x1183…1189 ptr = 0xa777 // 0x1183 @0x0
0x1183…1189 lno = 0x064a // 0x1185 @0x2
0x1183…1189 at0004 = ╱9c╱ ENDIF ╱ // 0x1187 @0x4
0x1183…1189 at0005 = EOL // 0x1188 @0x5
0x1183…1189 }
0x1189…119a a788 1620 IF (FNAVN$) THEN
0x1189…119a LineComal80 {
0x1189…119a ptr = 0xa788 // 0x1189 @0x0
0x1189…119a lno = 0x0654 // 0x118b @0x2
0x1189…119a at0004 = ╱9b16cd╱ IF ╱ // 0x118d @0x4
0x1189…119a at0007 = ╱ed╱(╱ // 0x1190 @0x7
0x1189…119a at0008 = ╱46╱F╱ // 0x1191 @0x8
0x1189…119a at0009 = ╱4e╱N╱ // 0x1192 @0x9
0x1189…119a at000a = ╱41╱A╱ // 0x1193 @0xa
0x1189…119a at000b = ╱56╱V╱ // 0x1194 @0xb
0x1189…119a at000c = ╱4e╱N╱ // 0x1195 @0xc
0x1189…119a at000d = ╱ef╱$╱ // 0x1196 @0xd
0x1189…119a at000e = ╱ee╱)╱ // 0x1197 @0xe
0x1189…119a at000f = ╱b5╱ THEN ╱ // 0x1198 @0xf
0x1189…119a at0010 = EOL // 0x1199 @0x10
0x1189…119a }
0x119a…11b2 a7a0 1630 PRINT "<SC0123>" ; CHR$ (7)
0x119a…11b2 LineComal80 {
0x119a…11b2 ptr = 0xa7a0 // 0x119a @0x0
0x119a…11b2 lno = 0x065e // 0x119c @0x2
0x119a…11b2 at0004 = ╱92╱ PRINT ╱ // 0x119e @0x4
0x119a…11b2 at0005 = ╱22╱"╱ // 0x119f @0x5
0x119a…11b2 at0006 = ╱3c╱<╱ // 0x11a0 @0x6
0x119a…11b2 at0007 = ╱53╱S╱ // 0x11a1 @0x7
0x119a…11b2 at0008 = ╱43╱C╱ // 0x11a2 @0x8
0x119a…11b2 at0009 = ╱30╱0╱ // 0x11a3 @0x9
0x119a…11b2 at000a = ╱31╱1╱ // 0x11a4 @0xa
0x119a…11b2 at000b = ╱32╱2╱ // 0x11a5 @0xb
0x119a…11b2 at000c = ╱33╱3╱ // 0x11a6 @0xc
0x119a…11b2 at000d = ╱3e╱>╱ // 0x11a7 @0xd
0x119a…11b2 at000e = ╱22╱"╱ // 0x11a8 @0xe
0x119a…11b2 at000f = ╱ea╱ ; ╱ // 0x11a9 @0xf
0x119a…11b2 at0010 = ╱d0╱ CHR$ ╱ // 0x11aa @0x10
0x119a…11b2 at0011 = ╱ed╱(╱ // 0x11ab @0x11
0x119a…11b2 at0012 = ╱37╱7╱ // 0x11ac @0x12
0x119a…11b2 at0013 = ╱f20700╱ // 0x11ad @0x13
0x119a…11b2 at0016 = ╱ee╱)╱ // 0x11b0 @0x16
0x119a…11b2 at0017 = EOL // 0x11b1 @0x17
0x119a…11b2 }
0x11b2…11c8 a7b6 1640 IF (FNAVN$) = 6 THEN
0x11b2…11c8 LineComal80 {
0x11b2…11c8 ptr = 0xa7b6 // 0x11b2 @0x0
0x11b2…11c8 lno = 0x0668 // 0x11b4 @0x2
0x11b2…11c8 at0004 = ╱9b17cd╱ IF ╱ // 0x11b6 @0x4
0x11b2…11c8 at0007 = ╱ed╱(╱ // 0x11b9 @0x7
0x11b2…11c8 at0008 = ╱46╱F╱ // 0x11ba @0x8
0x11b2…11c8 at0009 = ╱4e╱N╱ // 0x11bb @0x9
0x11b2…11c8 at000a = ╱41╱A╱ // 0x11bc @0xa
0x11b2…11c8 at000b = ╱56╱V╱ // 0x11bd @0xb
0x11b2…11c8 at000c = ╱4e╱N╱ // 0x11be @0xc
0x11b2…11c8 at000d = ╱ef╱$╱ // 0x11bf @0xd
0x11b2…11c8 at000e = ╱ee╱)╱ // 0x11c0 @0xe
0x11b2…11c8 at000f = ╱df╱ = ╱ // 0x11c1 @0xf
0x11b2…11c8 at0010 = ╱36╱6╱ // 0x11c2 @0x10
0x11b2…11c8 at0011 = ╱f20600╱ // 0x11c3 @0x11
0x11b2…11c8 at0014 = ╱b5╱ THEN ╱ // 0x11c6 @0x14
0x11b2…11c8 at0015 = EOL // 0x11c7 @0x15
0x11b2…11c8 }
0x11c8…120d a7fb 1650 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
0x11c8…120d LineComal80 {
0x11c8…120d ptr = 0xa7fb // 0x11c8 @0x0
0x11c8…120d lno = 0x0672 // 0x11ca @0x2
0x11c8…120d at0004 = ╱92╱ PRINT ╱ // 0x11cc @0x4
0x11c8…120d at0005 = ╱22╱"╱ // 0x11cd @0x5
0x11c8…120d at0006 = ╱3c╱<╱ // 0x11ce @0x6
0x11c8…120d at0007 = ╱53╱S╱ // 0x11cf @0x7
0x11c8…120d at0008 = ╱43╱C╱ // 0x11d0 @0x8
0x11c8…120d at0009 = ╱31╱1╱ // 0x11d1 @0x9
0x11c8…120d at000a = ╱36╱6╱ // 0x11d2 @0xa
0x11c8…120d at000b = ╱30╱0╱ // 0x11d3 @0xb
0x11c8…120d at000c = ╱32╱2╱ // 0x11d4 @0xc
0x11c8…120d at000d = ╱3e╱>╱ // 0x11d5 @0xd
0x11c8…120d at000e = ╱2a╱*╱ // 0x11d6 @0xe
0x11c8…120d at000f = ╱2a╱*╱ // 0x11d7 @0xf
0x11c8…120d at0010 = ╱2a╱*╱ // 0x11d8 @0x10
0x11c8…120d at0011 = ╱20╱…╱ // 0x11d9 @0x11
0x11c8…120d at0012 = ╱46╱F╱ // 0x11da @0x12
0x11c8…120d at0013 = ╱65╱e╱ // 0x11db @0x13
0x11c8…120d at0014 = ╱6a╱j╱ // 0x11dc @0x14
0x11c8…120d at0015 = ╱6c╱l╱ // 0x11dd @0x15
0x11c8…120d at0016 = ╱20╱…╱ // 0x11de @0x16
0x11c8…120d at0017 = ╱6e╱n╱ // 0x11df @0x17
0x11c8…120d at0018 = ╱72╱r╱ // 0x11e0 @0x18
0x11c8…120d at0019 = ╱2e╱.╱ // 0x11e1 @0x19
0x11c8…120d at001a = ╱20╱…╱ // 0x11e2 @0x1a
0x11c8…120d at001b = ╱36╱6╱ // 0x11e3 @0x1b
0x11c8…120d at001c = ╱20╱…╱ // 0x11e4 @0x1c
0x11c8…120d at001d = ╱2d╱-╱ // 0x11e5 @0x1d
0x11c8…120d at001e = ╱20╱…╱ // 0x11e6 @0x1e
0x11c8…120d at001f = ╱69╱i╱ // 0x11e7 @0x1f
0x11c8…120d at0020 = ╱6e╱n╱ // 0x11e8 @0x20
0x11c8…120d at0021 = ╱64╱d╱ // 0x11e9 @0x21
0x11c8…120d at0022 = ╱73╱s╱ // 0x11ea @0x22
0x11c8…120d at0023 = ╱7b╱æ╱ // 0x11eb @0x23
0x11c8…120d at0024 = ╱74╱t╱ // 0x11ec @0x24
0x11c8…120d at0025 = ╱20╱…╱ // 0x11ed @0x25
0x11c8…120d at0026 = ╱64╱d╱ // 0x11ee @0x26
0x11c8…120d at0027 = ╱69╱i╱ // 0x11ef @0x27
0x11c8…120d at0028 = ╱73╱s╱ // 0x11f0 @0x28
0x11c8…120d at0029 = ╱6b╱k╱ // 0x11f1 @0x29
0x11c8…120d at002a = ╱65╱e╱ // 0x11f2 @0x2a
0x11c8…120d at002b = ╱74╱t╱ // 0x11f3 @0x2b
0x11c8…120d at002c = ╱74╱t╱ // 0x11f4 @0x2c
0x11c8…120d at002d = ╱65╱e╱ // 0x11f5 @0x2d
0x11c8…120d at002e = ╱20╱…╱ // 0x11f6 @0x2e
0x11c8…120d at002f = ╱6f╱o╱ // 0x11f7 @0x2f
0x11c8…120d at0030 = ╱67╱g╱ // 0x11f8 @0x30
0x11c8…120d at0031 = ╱20╱…╱ // 0x11f9 @0x31
0x11c8…120d at0032 = ╱74╱t╱ // 0x11fa @0x32
0x11c8…120d at0033 = ╱72╱r╱ // 0x11fb @0x33
0x11c8…120d at0034 = ╱79╱y╱ // 0x11fc @0x34
0x11c8…120d at0035 = ╱6b╱k╱ // 0x11fd @0x35
0x11c8…120d at0036 = ╱20╱…╱ // 0x11fe @0x36
0x11c8…120d at0037 = ╱3c╱<╱ // 0x11ff @0x37
0x11c8…120d at0038 = ╱52╱R╱ // 0x1200 @0x38
0x11c8…120d at0039 = ╱45╱E╱ // 0x1201 @0x39
0x11c8…120d at003a = ╱54╱T╱ // 0x1202 @0x3a
0x11c8…120d at003b = ╱55╱U╱ // 0x1203 @0x3b
0x11c8…120d at003c = ╱52╱R╱ // 0x1204 @0x3c
0x11c8…120d at003d = ╱4e╱N╱ // 0x1205 @0x3d
0x11c8…120d at003e = ╱3e╱>╱ // 0x1206 @0x3e
0x11c8…120d at003f = ╱20╱…╱ // 0x1207 @0x3f
0x11c8…120d at0040 = ╱2a╱*╱ // 0x1208 @0x40
0x11c8…120d at0041 = ╱2a╱*╱ // 0x1209 @0x41
0x11c8…120d at0042 = ╱2a╱*╱ // 0x120a @0x42
0x11c8…120d at0043 = ╱22╱"╱ // 0x120b @0x43
0x11c8…120d at0044 = EOL // 0x120c @0x44
0x11c8…120d }
0x120d…121b a809 1660 INPUT "" : SVAR$
0x120d…121b LineComal80 {
0x120d…121b ptr = 0xa809 // 0x120d @0x0
0x120d…121b lno = 0x067c // 0x120f @0x2
0x120d…121b at0004 = ╱91╱ INPUT ╱ // 0x1211 @0x4
0x120d…121b at0005 = ╱22╱"╱ // 0x1212 @0x5
0x120d…121b at0006 = ╱22╱"╱ // 0x1213 @0x6
0x120d…121b at0007 = ╱f1╱ : ╱ // 0x1214 @0x7
0x120d…121b at0008 = ╱53╱S╱ // 0x1215 @0x8
0x120d…121b at0009 = ╱56╱V╱ // 0x1216 @0x9
0x120d…121b at000a = ╱41╱A╱ // 0x1217 @0xa
0x120d…121b at000b = ╱52╱R╱ // 0x1218 @0xb
0x120d…121b at000c = ╱ef╱$╱ // 0x1219 @0xc
0x120d…121b at000d = EOL // 0x121a @0xd
0x120d…121b }
0x121b…1222 a810 1670 ELSE
0x121b…1222 LineComal80 {
0x121b…1222 ptr = 0xa810 // 0x121b @0x0
0x121b…1222 lno = 0x0686 // 0x121d @0x2
0x121b…1222 at0004 = ╱9a18╱ ELSE ╱ // 0x121f @0x4
0x121b…1222 at0006 = EOL // 0x1221 @0x6
0x121b…1222 }
0x1222…1263 a851 1680 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
0x1222…1263 LineComal80 {
0x1222…1263 ptr = 0xa851 // 0x1222 @0x0
0x1222…1263 lno = 0x0690 // 0x1224 @0x2
0x1222…1263 at0004 = ╱92╱ PRINT ╱ // 0x1226 @0x4
0x1222…1263 at0005 = ╱22╱"╱ // 0x1227 @0x5
0x1222…1263 at0006 = ╱3c╱<╱ // 0x1228 @0x6
0x1222…1263 at0007 = ╱53╱S╱ // 0x1229 @0x7
0x1222…1263 at0008 = ╱43╱C╱ // 0x122a @0x8
0x1222…1263 at0009 = ╱31╱1╱ // 0x122b @0x9
0x1222…1263 at000a = ╱38╱8╱ // 0x122c @0xa
0x1222…1263 at000b = ╱30╱0╱ // 0x122d @0xb
0x1222…1263 at000c = ╱32╱2╱ // 0x122e @0xc
0x1222…1263 at000d = ╱3e╱>╱ // 0x122f @0xd
0x1222…1263 at000e = ╱2a╱*╱ // 0x1230 @0xe
0x1222…1263 at000f = ╱2a╱*╱ // 0x1231 @0xf
0x1222…1263 at0010 = ╱2a╱*╱ // 0x1232 @0x10
0x1222…1263 at0011 = ╱20╱…╱ // 0x1233 @0x11
0x1222…1263 at0012 = ╱46╱F╱ // 0x1234 @0x12
0x1222…1263 at0013 = ╱65╱e╱ // 0x1235 @0x13
0x1222…1263 at0014 = ╱6a╱j╱ // 0x1236 @0x14
0x1222…1263 at0015 = ╱6c╱l╱ // 0x1237 @0x15
0x1222…1263 at0016 = ╱20╱…╱ // 0x1238 @0x16
0x1222…1263 at0017 = ╱6e╱n╱ // 0x1239 @0x17
0x1222…1263 at0018 = ╱72╱r╱ // 0x123a @0x18
0x1222…1263 at0019 = ╱2e╱.╱ // 0x123b @0x19
0x1222…1263 at001a = ╱20╱…╱ // 0x123c @0x1a
0x1222…1263 at001b = ╱22╱"╱ // 0x123d @0x1b
0x1222…1263 at001c = ╱ea╱ ; ╱ // 0x123e @0x1c
0x1222…1263 at001d = ╱d0╱ CHR$ ╱ // 0x123f @0x1d
0x1222…1263 at001e = ╱ed╱(╱ // 0x1240 @0x1e
0x1222…1263 at001f = ╱cd╱ // 0x1241 @0x1f
0x1222…1263 at0020 = ╱ed╱(╱ // 0x1242 @0x20
0x1222…1263 at0021 = ╱46╱F╱ // 0x1243 @0x21
0x1222…1263 at0022 = ╱4e╱N╱ // 0x1244 @0x22
0x1222…1263 at0023 = ╱41╱A╱ // 0x1245 @0x23
0x1222…1263 at0024 = ╱56╱V╱ // 0x1246 @0x24
0x1222…1263 at0025 = ╱4e╱N╱ // 0x1247 @0x25
0x1222…1263 at0026 = ╱ef╱$╱ // 0x1248 @0x26
0x1222…1263 at0027 = ╱ee╱)╱ // 0x1249 @0x27
0x1222…1263 at0028 = ╱ec╱,╱ // 0x124a @0x28
0x1222…1263 at0029 = ╱32╱2╱ // 0x124b @0x29
0x1222…1263 at002a = ╱f20200╱ // 0x124c @0x2a
0x1222…1263 at002d = ╱ee╱)╱ // 0x124f @0x2d
0x1222…1263 at002e = ╱ea╱ ; ╱ // 0x1250 @0x2e
0x1222…1263 at002f = ╱22╱"╱ // 0x1251 @0x2f
0x1222…1263 at0030 = ╱20╱…╱ // 0x1252 @0x30
0x1222…1263 at0031 = ╱76╱v╱ // 0x1253 @0x31
0x1222…1263 at0032 = ╱65╱e╱ // 0x1254 @0x32
0x1222…1263 at0033 = ╱64╱d╱ // 0x1255 @0x33
0x1222…1263 at0034 = ╱20╱…╱ // 0x1256 @0x34
0x1222…1263 at0035 = ╱7d╱å╱ // 0x1257 @0x35
0x1222…1263 at0036 = ╱62╱b╱ // 0x1258 @0x36
0x1222…1263 at0037 = ╱6e╱n╱ // 0x1259 @0x37
0x1222…1263 at0038 = ╱69╱i╱ // 0x125a @0x38
0x1222…1263 at0039 = ╱6e╱n╱ // 0x125b @0x39
0x1222…1263 at003a = ╱67╱g╱ // 0x125c @0x3a
0x1222…1263 at003b = ╱20╱…╱ // 0x125d @0x3b
0x1222…1263 at003c = ╱61╱a╱ // 0x125e @0x3c
0x1222…1263 at003d = ╱66╱f╱ // 0x125f @0x3d
0x1222…1263 at003e = ╱20╱…╱ // 0x1260 @0x3e
0x1222…1263 at003f = ╱22╱"╱ // 0x1261 @0x3f
0x1222…1263 at0040 = EOL // 0x1262 @0x40
0x1222…1263 }
0x1263…127c a86a 1690 PRINT "<S>" ; FNAVN$ ; " ***"
0x1263…127c LineComal80 {
0x1263…127c ptr = 0xa86a // 0x1263 @0x0
0x1263…127c lno = 0x069a // 0x1265 @0x2
0x1263…127c at0004 = ╱92╱ PRINT ╱ // 0x1267 @0x4
0x1263…127c at0005 = ╱22╱"╱ // 0x1268 @0x5
0x1263…127c at0006 = ╱3c╱<╱ // 0x1269 @0x6
0x1263…127c at0007 = ╱53╱S╱ // 0x126a @0x7
0x1263…127c at0008 = ╱3e╱>╱ // 0x126b @0x8
0x1263…127c at0009 = ╱22╱"╱ // 0x126c @0x9
0x1263…127c at000a = ╱ea╱ ; ╱ // 0x126d @0xa
0x1263…127c at000b = ╱46╱F╱ // 0x126e @0xb
0x1263…127c at000c = ╱4e╱N╱ // 0x126f @0xc
0x1263…127c at000d = ╱41╱A╱ // 0x1270 @0xd
0x1263…127c at000e = ╱56╱V╱ // 0x1271 @0xe
0x1263…127c at000f = ╱4e╱N╱ // 0x1272 @0xf
0x1263…127c at0010 = ╱ef╱$╱ // 0x1273 @0x10
0x1263…127c at0011 = ╱ea╱ ; ╱ // 0x1274 @0x11
0x1263…127c at0012 = ╱22╱"╱ // 0x1275 @0x12
0x1263…127c at0013 = ╱20╱…╱ // 0x1276 @0x13
0x1263…127c at0014 = ╱2a╱*╱ // 0x1277 @0x14
0x1263…127c at0015 = ╱2a╱*╱ // 0x1278 @0x15
0x1263…127c at0016 = ╱2a╱*╱ // 0x1279 @0x16
0x1263…127c at0017 = ╱22╱"╱ // 0x127a @0x17
0x1263…127c at0018 = EOL // 0x127b @0x18
0x1263…127c }
0x127c…128a a878 1700 INPUT "" : SVAR$
0x127c…128a LineComal80 {
0x127c…128a ptr = 0xa878 // 0x127c @0x0
0x127c…128a lno = 0x06a4 // 0x127e @0x2
0x127c…128a at0004 = ╱91╱ INPUT ╱ // 0x1280 @0x4
0x127c…128a at0005 = ╱22╱"╱ // 0x1281 @0x5
0x127c…128a at0006 = ╱22╱"╱ // 0x1282 @0x6
0x127c…128a at0007 = ╱f1╱ : ╱ // 0x1283 @0x7
0x127c…128a at0008 = ╱53╱S╱ // 0x1284 @0x8
0x127c…128a at0009 = ╱56╱V╱ // 0x1285 @0x9
0x127c…128a at000a = ╱41╱A╱ // 0x1286 @0xa
0x127c…128a at000b = ╱52╱R╱ // 0x1287 @0xb
0x127c…128a at000c = ╱ef╱$╱ // 0x1288 @0xc
0x127c…128a at000d = EOL // 0x1289 @0xd
0x127c…128a }
0x128a…129e a88c 1710 PRINT "<C0102>" ; SPC$
0x128a…129e LineComal80 {
0x128a…129e ptr = 0xa88c // 0x128a @0x0
0x128a…129e lno = 0x06ae // 0x128c @0x2
0x128a…129e at0004 = ╱92╱ PRINT ╱ // 0x128e @0x4
0x128a…129e at0005 = ╱22╱"╱ // 0x128f @0x5
0x128a…129e at0006 = ╱3c╱<╱ // 0x1290 @0x6
0x128a…129e at0007 = ╱43╱C╱ // 0x1291 @0x7
0x128a…129e at0008 = ╱30╱0╱ // 0x1292 @0x8
0x128a…129e at0009 = ╱31╱1╱ // 0x1293 @0x9
0x128a…129e at000a = ╱30╱0╱ // 0x1294 @0xa
0x128a…129e at000b = ╱32╱2╱ // 0x1295 @0xb
0x128a…129e at000c = ╱3e╱>╱ // 0x1296 @0xc
0x128a…129e at000d = ╱22╱"╱ // 0x1297 @0xd
0x128a…129e at000e = ╱ea╱ ; ╱ // 0x1298 @0xe
0x128a…129e at000f = ╱53╱S╱ // 0x1299 @0xf
0x128a…129e at0010 = ╱50╱P╱ // 0x129a @0x10
0x128a…129e at0011 = ╱43╱C╱ // 0x129b @0x11
0x128a…129e at0012 = ╱ef╱$╱ // 0x129c @0x12
0x128a…129e at0013 = EOL // 0x129d @0x13
0x128a…129e }
0x129e…12a4 a892 1720 ENDIF
0x129e…12a4 LineComal80 {
0x129e…12a4 ptr = 0xa892 // 0x129e @0x0
0x129e…12a4 lno = 0x06b8 // 0x12a0 @0x2
0x129e…12a4 at0004 = ╱9c╱ ENDIF ╱ // 0x12a2 @0x4
0x129e…12a4 at0005 = EOL // 0x12a3 @0x5
0x129e…12a4 }
0x12a4…12aa a898 1730 ENDIF
0x12a4…12aa LineComal80 {
0x12a4…12aa ptr = 0xa898 // 0x12a4 @0x0
0x12a4…12aa lno = 0x06c2 // 0x12a6 @0x2
0x12a4…12aa at0004 = ╱9c╱ ENDIF ╱ // 0x12a8 @0x4
0x12a4…12aa at0005 = EOL // 0x12a9 @0x5
0x12a4…12aa }
0x12aa…12ba a8a8 1740 UNTIL NOT ╱cd╱ (FNAVN$)
0x12aa…12ba LineComal80 {
0x12aa…12ba ptr = 0xa8a8 // 0x12aa @0x0
0x12aa…12ba lno = 0x06cc // 0x12ac @0x2
0x12aa…12ba at0004 = ╱98╱ UNTIL ╱ // 0x12ae @0x4
0x12aa…12ba at0005 = ╱d7╱ NOT ╱ // 0x12af @0x5
0x12aa…12ba at0006 = ╱cd╱ // 0x12b0 @0x6
0x12aa…12ba at0007 = ╱ed╱(╱ // 0x12b1 @0x7
0x12aa…12ba at0008 = ╱46╱F╱ // 0x12b2 @0x8
0x12aa…12ba at0009 = ╱4e╱N╱ // 0x12b3 @0x9
0x12aa…12ba at000a = ╱41╱A╱ // 0x12b4 @0xa
0x12aa…12ba at000b = ╱56╱V╱ // 0x12b5 @0xb
0x12aa…12ba at000c = ╱4e╱N╱ // 0x12b6 @0xc
0x12aa…12ba at000d = ╱ef╱$╱ // 0x12b7 @0xd
0x12aa…12ba at000e = ╱ee╱)╱ // 0x12b8 @0xe
0x12aa…12ba at000f = EOL // 0x12b9 @0xf
0x12aa…12ba }
0x12ba…12c7 a8b5 1750 ENDPROC OPENFIL
0x12ba…12c7 LineComal80 {
0x12ba…12c7 ptr = 0xa8b5 // 0x12ba @0x0
0x12ba…12c7 lno = 0x06d6 // 0x12bc @0x2
0x12ba…12c7 at0004 = ╱9f╱ ENDPROC ╱ // 0x12be @0x4
0x12ba…12c7 at0005 = ╱4f╱O╱ // 0x12bf @0x5
0x12ba…12c7 at0006 = ╱50╱P╱ // 0x12c0 @0x6
0x12ba…12c7 at0007 = ╱45╱E╱ // 0x12c1 @0x7
0x12ba…12c7 at0008 = ╱4e╱N╱ // 0x12c2 @0x8
0x12ba…12c7 at0009 = ╱46╱F╱ // 0x12c3 @0x9
0x12ba…12c7 at000a = ╱49╱I╱ // 0x12c4 @0xa
0x12ba…12c7 at000b = ╱4c╱L╱ // 0x12c5 @0xb
0x12ba…12c7 at000c = EOL // 0x12c6 @0xc
0x12ba…12c7 }
0x12c7…12cc a8ba 1760
0x12c7…12cc LineComal80 {
0x12c7…12cc ptr = 0xa8ba // 0x12c7 @0x0
0x12c7…12cc lno = 0x06e0 // 0x12c9 @0x2
0x12c7…12cc at0004 = EOL // 0x12cb @0x4
0x12c7…12cc }
0x12cc…12e5 a8d3 1770 PROC TAL_CONTROL( REF RST$)
0x12cc…12e5 LineComal80 {
0x12cc…12e5 ptr = 0xa8d3 // 0x12cc @0x0
0x12cc…12e5 lno = 0x06ea // 0x12ce @0x2
0x12cc…12e5 at0004 = ╱9e19╱ PROC ╱ // 0x12d0 @0x4
0x12cc…12e5 at0006 = ╱54╱T╱ // 0x12d2 @0x6
0x12cc…12e5 at0007 = ╱41╱A╱ // 0x12d3 @0x7
0x12cc…12e5 at0008 = ╱4c╱L╱ // 0x12d4 @0x8
0x12cc…12e5 at0009 = ╱5f╱_╱ // 0x12d5 @0x9
0x12cc…12e5 at000a = ╱43╱C╱ // 0x12d6 @0xa
0x12cc…12e5 at000b = ╱4f╱O╱ // 0x12d7 @0xb
0x12cc…12e5 at000c = ╱4e╱N╱ // 0x12d8 @0xc
0x12cc…12e5 at000d = ╱54╱T╱ // 0x12d9 @0xd
0x12cc…12e5 at000e = ╱52╱R╱ // 0x12da @0xe
0x12cc…12e5 at000f = ╱4f╱O╱ // 0x12db @0xf
0x12cc…12e5 at0010 = ╱4c╱L╱ // 0x12dc @0x10
0x12cc…12e5 at0011 = ╱ed╱(╱ // 0x12dd @0x11
0x12cc…12e5 at0012 = ╱b6╱ REF ╱ // 0x12de @0x12
0x12cc…12e5 at0013 = ╱52╱R╱ // 0x12df @0x13
0x12cc…12e5 at0014 = ╱53╱S╱ // 0x12e0 @0x14
0x12cc…12e5 at0015 = ╱54╱T╱ // 0x12e1 @0x15
0x12cc…12e5 at0016 = ╱ef╱$╱ // 0x12e2 @0x16
0x12cc…12e5 at0017 = ╱ee╱)╱ // 0x12e3 @0x17
0x12cc…12e5 at0018 = EOL // 0x12e4 @0x18
0x12cc…12e5 }
0x12e5…12f9 a8e7 1780 LET J := 0 ; OK := TRUE
0x12e5…12f9 LineComal80 {
0x12e5…12f9 ptr = 0xa8e7 // 0x12e5 @0x0
0x12e5…12f9 lno = 0x06f4 // 0x12e7 @0x2
0x12e5…12f9 at0004 = ╱86╱ LET ╱ // 0x12e9 @0x4
0x12e5…12f9 at0005 = ╱4a╱J╱ // 0x12ea @0x5
0x12e5…12f9 at0006 = ╱f0╱ := ╱ // 0x12eb @0x6
0x12e5…12f9 at0007 = ╱30╱0╱ // 0x12ec @0x7
0x12e5…12f9 at0008 = ╱f20000╱ // 0x12ed @0x8
0x12e5…12f9 at000b = ╱ea╱ ; ╱ // 0x12f0 @0xb
0x12e5…12f9 at000c = ╱4f╱O╱ // 0x12f1 @0xc
0x12e5…12f9 at000d = ╱4b╱K╱ // 0x12f2 @0xd
0x12e5…12f9 at000e = ╱f0╱ := ╱ // 0x12f3 @0xe
0x12e5…12f9 at000f = ╱54╱T╱ // 0x12f4 @0xf
0x12e5…12f9 at0010 = ╱52╱R╱ // 0x12f5 @0x10
0x12e5…12f9 at0011 = ╱55╱U╱ // 0x12f6 @0x11
0x12e5…12f9 at0012 = ╱45╱E╱ // 0x12f7 @0x12
0x12e5…12f9 at0013 = EOL // 0x12f8 @0x13
0x12e5…12f9 }
0x12f9…130f a8fd 1790 FOR I := 1 TO (RST$) DO
0x12f9…130f LineComal80 {
0x12f9…130f ptr = 0xa8fd // 0x12f9 @0x0
0x12f9…130f lno = 0x06fe // 0x12fb @0x2
0x12f9…130f at0004 = ╱831a╱ FOR ╱ // 0x12fd @0x4
0x12f9…130f at0006 = ╱49╱I╱ // 0x12ff @0x6
0x12f9…130f at0007 = ╱f0╱ := ╱ // 0x1300 @0x7
0x12f9…130f at0008 = ╱31╱1╱ // 0x1301 @0x8
0x12f9…130f at0009 = ╱f20100╱ // 0x1302 @0x9
0x12f9…130f at000c = ╱b7cb╱ TO ╱ // 0x1305 @0xc
0x12f9…130f at000e = ╱ed╱(╱ // 0x1307 @0xe
0x12f9…130f at000f = ╱52╱R╱ // 0x1308 @0xf
0x12f9…130f at0010 = ╱53╱S╱ // 0x1309 @0x10
0x12f9…130f at0011 = ╱54╱T╱ // 0x130a @0x11
0x12f9…130f at0012 = ╱ef╱$╱ // 0x130b @0x12
0x12f9…130f at0013 = ╱ee╱)╱ // 0x130c @0x13
0x12f9…130f at0014 = ╱bb╱ DO ╱ // 0x130d @0x14
0x12f9…130f at0015 = EOL // 0x130e @0x15
0x12f9…130f }
0x130f…1340 a92e 1800 IF RST$(I) IN TAL$ + "." THEN LET J := J + 1 ; RST$(J) := RST$(I)
0x130f…1340 LineComal80 {
0x130f…1340 ptr = 0xa92e // 0x130f @0x0
0x130f…1340 lno = 0x0708 // 0x1311 @0x2
0x130f…1340 at0004 = ╱8200╱ IF ╱ // 0x1313 @0x4
0x130f…1340 at0006 = ╱52╱R╱ // 0x1315 @0x6
0x130f…1340 at0007 = ╱53╱S╱ // 0x1316 @0x7
0x130f…1340 at0008 = ╱54╱T╱ // 0x1317 @0x8
0x130f…1340 at0009 = ╱ef╱$╱ // 0x1318 @0x9
0x130f…1340 at000a = ╱ed╱(╱ // 0x1319 @0xa
0x130f…1340 at000b = ╱49╱I╱ // 0x131a @0xb
0x130f…1340 at000c = ╱ee╱)╱ // 0x131b @0xc
0x130f…1340 at000d = ╱dc╱ IN ╱ // 0x131c @0xd
0x130f…1340 at000e = ╱54╱T╱ // 0x131d @0xe
0x130f…1340 at000f = ╱41╱A╱ // 0x131e @0xf
0x130f…1340 at0010 = ╱4c╱L╱ // 0x131f @0x10
0x130f…1340 at0011 = ╱ef╱$╱ // 0x1320 @0x11
0x130f…1340 at0012 = ╱eb╱ + ╱ // 0x1321 @0x12
0x130f…1340 at0013 = ╱22╱"╱ // 0x1322 @0x13
0x130f…1340 at0014 = ╱2e╱.╱ // 0x1323 @0x14
0x130f…1340 at0015 = ╱22╱"╱ // 0x1324 @0x15
0x130f…1340 at0016 = ╱b5╱ THEN ╱ // 0x1325 @0x16
0x130f…1340 at0017 = ╱86╱ LET ╱ // 0x1326 @0x17
0x130f…1340 at0018 = ╱4a╱J╱ // 0x1327 @0x18
0x130f…1340 at0019 = ╱f0╱ := ╱ // 0x1328 @0x19
0x130f…1340 at001a = ╱4a╱J╱ // 0x1329 @0x1a
0x130f…1340 at001b = ╱e5╱ + ╱ // 0x132a @0x1b
0x130f…1340 at001c = ╱31╱1╱ // 0x132b @0x1c
0x130f…1340 at001d = ╱f20100╱ // 0x132c @0x1d
0x130f…1340 at0020 = ╱ea╱ ; ╱ // 0x132f @0x20
0x130f…1340 at0021 = ╱52╱R╱ // 0x1330 @0x21
0x130f…1340 at0022 = ╱53╱S╱ // 0x1331 @0x22
0x130f…1340 at0023 = ╱54╱T╱ // 0x1332 @0x23
0x130f…1340 at0024 = ╱ef╱$╱ // 0x1333 @0x24
0x130f…1340 at0025 = ╱ed╱(╱ // 0x1334 @0x25
0x130f…1340 at0026 = ╱4a╱J╱ // 0x1335 @0x26
0x130f…1340 at0027 = ╱ee╱)╱ // 0x1336 @0x27
0x130f…1340 at0028 = ╱f0╱ := ╱ // 0x1337 @0x28
0x130f…1340 at0029 = ╱52╱R╱ // 0x1338 @0x29
0x130f…1340 at002a = ╱53╱S╱ // 0x1339 @0x2a
0x130f…1340 at002b = ╱54╱T╱ // 0x133a @0x2b
0x130f…1340 at002c = ╱ef╱$╱ // 0x133b @0x2c
0x130f…1340 at002d = ╱ed╱(╱ // 0x133c @0x2d
0x130f…1340 at002e = ╱49╱I╱ // 0x133d @0x2e
0x130f…1340 at002f = ╱ee╱)╱ // 0x133e @0x2f
0x130f…1340 at0030 = EOL // 0x133f @0x30
0x130f…1340 }
0x1340…1347 (64,) a935 1810 NEXT I
0x1340…1347 LineComal80 {
0x1340…1347 ptr = 0xa935 // 0x1340 @0x0
0x1340…1347 lno = 0x0712 // 0x1342 @0x2
0x1340…1347 at0004 = ╱84╱ NEXT ╱ // 0x1344 @0x4
0x1340…1347 at0005 = ╱49╱I╱ // 0x1345 @0x5
0x1340…1347 at0006 = EOL // 0x1346 @0x6
0x1340…1347 }
0x1347…1355 a943 1820 IF = 0 THEN
0x1347…1355 LineComal80 {
0x1347…1355 ptr = 0xa943 // 0x1347 @0x0
0x1347…1355 lno = 0x071c // 0x1349 @0x2
0x1347…1355 at0004 = ╱9b1b4a╱ IF ╱ // 0x134b @0x4
0x1347…1355 at0007 = ╱df╱ = ╱ // 0x134e @0x7
0x1347…1355 at0008 = ╱30╱0╱ // 0x134f @0x8
0x1347…1355 at0009 = ╱f20000╱ // 0x1350 @0x9
0x1347…1355 at000c = ╱b5╱ THEN ╱ // 0x1353 @0xc
0x1347…1355 at000d = EOL // 0x1354 @0xd
0x1347…1355 }
0x1355…1363 a951 1830 LET OK := FALSE
0x1355…1363 LineComal80 {
0x1355…1363 ptr = 0xa951 // 0x1355 @0x0
0x1355…1363 lno = 0x0726 // 0x1357 @0x2
0x1355…1363 at0004 = ╱86╱ LET ╱ // 0x1359 @0x4
0x1355…1363 at0005 = ╱4f╱O╱ // 0x135a @0x5
0x1355…1363 at0006 = ╱4b╱K╱ // 0x135b @0x6
0x1355…1363 at0007 = ╱f0╱ := ╱ // 0x135c @0x7
0x1355…1363 at0008 = ╱46╱F╱ // 0x135d @0x8
0x1355…1363 at0009 = ╱41╱A╱ // 0x135e @0x9
0x1355…1363 at000a = ╱4c╱L╱ // 0x135f @0xa
0x1355…1363 at000b = ╱53╱S╱ // 0x1360 @0xb
0x1355…1363 at000c = ╱45╱E╱ // 0x1361 @0xc
0x1355…1363 at000d = EOL // 0x1362 @0xd
0x1355…1363 }
0x1363…136a a958 1840 ELSE
0x1363…136a LineComal80 {
0x1363…136a ptr = 0xa958 // 0x1363 @0x0
0x1363…136a lno = 0x0730 // 0x1365 @0x2
0x1363…136a at0004 = ╱9a1c╱ ELSE ╱ // 0x1367 @0x4
0x1363…136a at0006 = EOL // 0x1369 @0x6
0x1363…136a }
0x136a…1381 a96f 1850 LET RST$ := RST$(1 : J)
0x136a…1381 LineComal80 {
0x136a…1381 ptr = 0xa96f // 0x136a @0x0
0x136a…1381 lno = 0x073a // 0x136c @0x2
0x136a…1381 at0004 = ╱86╱ LET ╱ // 0x136e @0x4
0x136a…1381 at0005 = ╱52╱R╱ // 0x136f @0x5
0x136a…1381 at0006 = ╱53╱S╱ // 0x1370 @0x6
0x136a…1381 at0007 = ╱54╱T╱ // 0x1371 @0x7
0x136a…1381 at0008 = ╱ef╱$╱ // 0x1372 @0x8
0x136a…1381 at0009 = ╱f0╱ := ╱ // 0x1373 @0x9
0x136a…1381 at000a = ╱52╱R╱ // 0x1374 @0xa
0x136a…1381 at000b = ╱53╱S╱ // 0x1375 @0xb
0x136a…1381 at000c = ╱54╱T╱ // 0x1376 @0xc
0x136a…1381 at000d = ╱ef╱$╱ // 0x1377 @0xd
0x136a…1381 at000e = ╱ed╱(╱ // 0x1378 @0xe
0x136a…1381 at000f = ╱31╱1╱ // 0x1379 @0xf
0x136a…1381 at0010 = ╱f20100╱ // 0x137a @0x10
0x136a…1381 at0013 = ╱f1╱ : ╱ // 0x137d @0x13
0x136a…1381 at0014 = ╱4a╱J╱ // 0x137e @0x14
0x136a…1381 at0015 = ╱ee╱)╱ // 0x137f @0x15
0x136a…1381 at0016 = EOL // 0x1380 @0x16
0x136a…1381 }
0x1381…1387 a975 1860 ENDIF
0x1381…1387 LineComal80 {
0x1381…1387 ptr = 0xa975 // 0x1381 @0x0
0x1381…1387 lno = 0x0744 // 0x1383 @0x2
0x1381…1387 at0004 = ╱9c╱ ENDIF ╱ // 0x1385 @0x4
0x1381…1387 at0005 = EOL // 0x1386 @0x5
0x1381…1387 }
0x1387…1398 a986 1870 ENDPROC TAL_CONTROL
0x1387…1398 LineComal80 {
0x1387…1398 ptr = 0xa986 // 0x1387 @0x0
0x1387…1398 lno = 0x074e // 0x1389 @0x2
0x1387…1398 at0004 = ╱9f╱ ENDPROC ╱ // 0x138b @0x4
0x1387…1398 at0005 = ╱54╱T╱ // 0x138c @0x5
0x1387…1398 at0006 = ╱41╱A╱ // 0x138d @0x6
0x1387…1398 at0007 = ╱4c╱L╱ // 0x138e @0x7
0x1387…1398 at0008 = ╱5f╱_╱ // 0x138f @0x8
0x1387…1398 at0009 = ╱43╱C╱ // 0x1390 @0x9
0x1387…1398 at000a = ╱4f╱O╱ // 0x1391 @0xa
0x1387…1398 at000b = ╱4e╱N╱ // 0x1392 @0xb
0x1387…1398 at000c = ╱54╱T╱ // 0x1393 @0xc
0x1387…1398 at000d = ╱52╱R╱ // 0x1394 @0xd
0x1387…1398 at000e = ╱4f╱O╱ // 0x1395 @0xe
0x1387…1398 at000f = ╱4c╱L╱ // 0x1396 @0xf
0x1387…1398 at0010 = EOL // 0x1397 @0x10
0x1387…1398 }
0x1398…139d a98b 1880
0x1398…139d LineComal80 {
0x1398…139d ptr = 0xa98b // 0x1398 @0x0
0x1398…139d lno = 0x0758 // 0x139a @0x2
0x1398…139d at0004 = EOL // 0x139c @0x4
0x1398…139d }
0x139d…13ae a99c 1890 PROC KASSEHOVED
0x139d…13ae LineComal80 {
0x139d…13ae ptr = 0xa99c // 0x139d @0x0
0x139d…13ae lno = 0x0762 // 0x139f @0x2
0x139d…13ae at0004 = ╱9e1d╱ PROC ╱ // 0x13a1 @0x4
0x139d…13ae at0006 = ╱4b╱K╱ // 0x13a3 @0x6
0x139d…13ae at0007 = ╱41╱A╱ // 0x13a4 @0x7
0x139d…13ae at0008 = ╱53╱S╱ // 0x13a5 @0x8
0x139d…13ae at0009 = ╱53╱S╱ // 0x13a6 @0x9
0x139d…13ae at000a = ╱45╱E╱ // 0x13a7 @0xa
0x139d…13ae at000b = ╱48╱H╱ // 0x13a8 @0xb
0x139d…13ae at000c = ╱4f╱O╱ // 0x13a9 @0xc
0x139d…13ae at000d = ╱56╱V╱ // 0x13aa @0xd
0x139d…13ae at000e = ╱45╱E╱ // 0x13ab @0xe
0x139d…13ae at000f = ╱44╱D╱ // 0x13ac @0xf
0x139d…13ae at0010 = EOL // 0x13ad @0x10
0x139d…13ae }
0x13ae…13e0 d61b 1900 EXEC OVERSKRIFT("INDTASTNING AF KASSEBILAG",4)
0x13ae…13e0 LineComal80 {
0x13ae…13e0 ptr = 0xd61b // 0x13ae @0x0
0x13ae…13e0 lno = 0x076c // 0x13b0 @0x2
0x13ae…13e0 at0004 = ╱9d╱ EXEC ╱ // 0x13b2 @0x4
0x13ae…13e0 at0005 = ╱4f╱O╱ // 0x13b3 @0x5
0x13ae…13e0 at0006 = ╱56╱V╱ // 0x13b4 @0x6
0x13ae…13e0 at0007 = ╱45╱E╱ // 0x13b5 @0x7
0x13ae…13e0 at0008 = ╱52╱R╱ // 0x13b6 @0x8
0x13ae…13e0 at0009 = ╱53╱S╱ // 0x13b7 @0x9
0x13ae…13e0 at000a = ╱4b╱K╱ // 0x13b8 @0xa
0x13ae…13e0 at000b = ╱52╱R╱ // 0x13b9 @0xb
0x13ae…13e0 at000c = ╱49╱I╱ // 0x13ba @0xc
0x13ae…13e0 at000d = ╱46╱F╱ // 0x13bb @0xd
0x13ae…13e0 at000e = ╱54╱T╱ // 0x13bc @0xe
0x13ae…13e0 at000f = ╱ed╱(╱ // 0x13bd @0xf
0x13ae…13e0 at0010 = ╱22╱"╱ // 0x13be @0x10
0x13ae…13e0 at0011 = ╱49╱I╱ // 0x13bf @0x11
0x13ae…13e0 at0012 = ╱4e╱N╱ // 0x13c0 @0x12
0x13ae…13e0 at0013 = ╱44╱D╱ // 0x13c1 @0x13
0x13ae…13e0 at0014 = ╱54╱T╱ // 0x13c2 @0x14
0x13ae…13e0 at0015 = ╱41╱A╱ // 0x13c3 @0x15
0x13ae…13e0 at0016 = ╱53╱S╱ // 0x13c4 @0x16
0x13ae…13e0 at0017 = ╱54╱T╱ // 0x13c5 @0x17
0x13ae…13e0 at0018 = ╱4e╱N╱ // 0x13c6 @0x18
0x13ae…13e0 at0019 = ╱49╱I╱ // 0x13c7 @0x19
0x13ae…13e0 at001a = ╱4e╱N╱ // 0x13c8 @0x1a
0x13ae…13e0 at001b = ╱47╱G╱ // 0x13c9 @0x1b
0x13ae…13e0 at001c = ╱20╱…╱ // 0x13ca @0x1c
0x13ae…13e0 at001d = ╱41╱A╱ // 0x13cb @0x1d
0x13ae…13e0 at001e = ╱46╱F╱ // 0x13cc @0x1e
0x13ae…13e0 at001f = ╱20╱…╱ // 0x13cd @0x1f
0x13ae…13e0 at0020 = ╱4b╱K╱ // 0x13ce @0x20
0x13ae…13e0 at0021 = ╱41╱A╱ // 0x13cf @0x21
0x13ae…13e0 at0022 = ╱53╱S╱ // 0x13d0 @0x22
0x13ae…13e0 at0023 = ╱53╱S╱ // 0x13d1 @0x23
0x13ae…13e0 at0024 = ╱45╱E╱ // 0x13d2 @0x24
0x13ae…13e0 at0025 = ╱42╱B╱ // 0x13d3 @0x25
0x13ae…13e0 at0026 = ╱49╱I╱ // 0x13d4 @0x26
0x13ae…13e0 at0027 = ╱4c╱L╱ // 0x13d5 @0x27
0x13ae…13e0 at0028 = ╱41╱A╱ // 0x13d6 @0x28
0x13ae…13e0 at0029 = ╱47╱G╱ // 0x13d7 @0x29
0x13ae…13e0 at002a = ╱22╱"╱ // 0x13d8 @0x2a
0x13ae…13e0 at002b = ╱ec╱,╱ // 0x13d9 @0x2b
0x13ae…13e0 at002c = ╱34╱4╱ // 0x13da @0x2c
0x13ae…13e0 at002d = ╱f20400╱ // 0x13db @0x2d
0x13ae…13e0 at0030 = ╱ee╱)╱ // 0x13de @0x30
0x13ae…13e0 at0031 = EOL // 0x13df @0x31
0x13ae…13e0 }
0x13e0…1417 aa05 1910 PRINT "<C0105> BILAG TEKST MOMS KASSE"
0x13e0…1417 LineComal80 {
0x13e0…1417 ptr = 0xaa05 // 0x13e0 @0x0
0x13e0…1417 lno = 0x0776 // 0x13e2 @0x2
0x13e0…1417 at0004 = ╱92╱ PRINT ╱ // 0x13e4 @0x4
0x13e0…1417 at0005 = ╱22╱"╱ // 0x13e5 @0x5
0x13e0…1417 at0006 = ╱3c╱<╱ // 0x13e6 @0x6
0x13e0…1417 at0007 = ╱43╱C╱ // 0x13e7 @0x7
0x13e0…1417 at0008 = ╱30╱0╱ // 0x13e8 @0x8
0x13e0…1417 at0009 = ╱31╱1╱ // 0x13e9 @0x9
0x13e0…1417 at000a = ╱30╱0╱ // 0x13ea @0xa
0x13e0…1417 at000b = ╱35╱5╱ // 0x13eb @0xb
0x13e0…1417 at000c = ╱3e╱>╱ // 0x13ec @0xc
0x13e0…1417 at000d = ╱20╱…╱ // 0x13ed @0xd
0x13e0…1417 at000e = ╱20╱…╱ // 0x13ee @0xe
0x13e0…1417 at000f = ╱20╱…╱ // 0x13ef @0xf
0x13e0…1417 at0010 = ╱42╱B╱ // 0x13f0 @0x10
0x13e0…1417 at0011 = ╱49╱I╱ // 0x13f1 @0x11
0x13e0…1417 at0012 = ╱4c╱L╱ // 0x13f2 @0x12
0x13e0…1417 at0013 = ╱41╱A╱ // 0x13f3 @0x13
0x13e0…1417 at0014 = ╱47╱G╱ // 0x13f4 @0x14
0x13e0…1417 at0015 = ╱20╱…╱ // 0x13f5 @0x15
0x13e0…1417 at0016 = ╱20╱…╱ // 0x13f6 @0x16
0x13e0…1417 at0017 = ╱54╱T╱ // 0x13f7 @0x17
0x13e0…1417 at0018 = ╱45╱E╱ // 0x13f8 @0x18
0x13e0…1417 at0019 = ╱4b╱K╱ // 0x13f9 @0x19
0x13e0…1417 at001a = ╱53╱S╱ // 0x13fa @0x1a
0x13e0…1417 at001b = ╱54╱T╱ // 0x13fb @0x1b
0x13e0…1417 at001c = ╱20╱…╱ // 0x13fc @0x1c
0x13e0…1417 at001d = ╱20╱…╱ // 0x13fd @0x1d
0x13e0…1417 at001e = ╱20╱…╱ // 0x13fe @0x1e
0x13e0…1417 at001f = ╱20╱…╱ // 0x13ff @0x1f
0x13e0…1417 at0020 = ╱20╱…╱ // 0x1400 @0x20
0x13e0…1417 at0021 = ╱20╱…╱ // 0x1401 @0x21
0x13e0…1417 at0022 = ╱20╱…╱ // 0x1402 @0x22
0x13e0…1417 at0023 = ╱20╱…╱ // 0x1403 @0x23
0x13e0…1417 at0024 = ╱20╱…╱ // 0x1404 @0x24
0x13e0…1417 at0025 = ╱20╱…╱ // 0x1405 @0x25
0x13e0…1417 at0026 = ╱20╱…╱ // 0x1406 @0x26
0x13e0…1417 at0027 = ╱20╱…╱ // 0x1407 @0x27
0x13e0…1417 at0028 = ╱20╱…╱ // 0x1408 @0x28
0x13e0…1417 at0029 = ╱20╱…╱ // 0x1409 @0x29
0x13e0…1417 at002a = ╱4d╱M╱ // 0x140a @0x2a
0x13e0…1417 at002b = ╱4f╱O╱ // 0x140b @0x2b
0x13e0…1417 at002c = ╱4d╱M╱ // 0x140c @0x2c
0x13e0…1417 at002d = ╱53╱S╱ // 0x140d @0x2d
0x13e0…1417 at002e = ╱20╱…╱ // 0x140e @0x2e
0x13e0…1417 at002f = ╱20╱…╱ // 0x140f @0x2f
0x13e0…1417 at0030 = ╱4b╱K╱ // 0x1410 @0x30
0x13e0…1417 at0031 = ╱41╱A╱ // 0x1411 @0x31
0x13e0…1417 at0032 = ╱53╱S╱ // 0x1412 @0x32
0x13e0…1417 at0033 = ╱53╱S╱ // 0x1413 @0x33
0x13e0…1417 at0034 = ╱45╱E╱ // 0x1414 @0x34
0x13e0…1417 at0035 = ╱22╱"╱ // 0x1415 @0x35
0x13e0…1417 at0036 = EOL // 0x1416 @0x36
0x13e0…1417 }
0x1417…144e aa3c 1920 PRINT "<C0106> NR KODE BANK/"
0x1417…144e LineComal80 {
0x1417…144e ptr = 0xaa3c // 0x1417 @0x0
0x1417…144e lno = 0x0780 // 0x1419 @0x2
0x1417…144e at0004 = ╱92╱ PRINT ╱ // 0x141b @0x4
0x1417…144e at0005 = ╱22╱"╱ // 0x141c @0x5
0x1417…144e at0006 = ╱3c╱<╱ // 0x141d @0x6
0x1417…144e at0007 = ╱43╱C╱ // 0x141e @0x7
0x1417…144e at0008 = ╱30╱0╱ // 0x141f @0x8
0x1417…144e at0009 = ╱31╱1╱ // 0x1420 @0x9
0x1417…144e at000a = ╱30╱0╱ // 0x1421 @0xa
0x1417…144e at000b = ╱36╱6╱ // 0x1422 @0xb
0x1417…144e at000c = ╱3e╱>╱ // 0x1423 @0xc
0x1417…144e at000d = ╱20╱…╱ // 0x1424 @0xd
0x1417…144e at000e = ╱20╱…╱ // 0x1425 @0xe
0x1417…144e at000f = ╱20╱…╱ // 0x1426 @0xf
0x1417…144e at0010 = ╱20╱…╱ // 0x1427 @0x10
0x1417…144e at0011 = ╱4e╱N╱ // 0x1428 @0x11
0x1417…144e at0012 = ╱52╱R╱ // 0x1429 @0x12
0x1417…144e at0013 = ╱20╱…╱ // 0x142a @0x13
0x1417…144e at0014 = ╱20╱…╱ // 0x142b @0x14
0x1417…144e at0015 = ╱20╱…╱ // 0x142c @0x15
0x1417…144e at0016 = ╱20╱…╱ // 0x142d @0x16
0x1417…144e at0017 = ╱20╱…╱ // 0x142e @0x17
0x1417…144e at0018 = ╱20╱…╱ // 0x142f @0x18
0x1417…144e at0019 = ╱20╱…╱ // 0x1430 @0x19
0x1417…144e at001a = ╱20╱…╱ // 0x1431 @0x1a
0x1417…144e at001b = ╱20╱…╱ // 0x1432 @0x1b
0x1417…144e at001c = ╱20╱…╱ // 0x1433 @0x1c
0x1417…144e at001d = ╱20╱…╱ // 0x1434 @0x1d
0x1417…144e at001e = ╱20╱…╱ // 0x1435 @0x1e
0x1417…144e at001f = ╱20╱…╱ // 0x1436 @0x1f
0x1417…144e at0020 = ╱20╱…╱ // 0x1437 @0x20
0x1417…144e at0021 = ╱20╱…╱ // 0x1438 @0x21
0x1417…144e at0022 = ╱20╱…╱ // 0x1439 @0x22
0x1417…144e at0023 = ╱20╱…╱ // 0x143a @0x23
0x1417…144e at0024 = ╱20╱…╱ // 0x143b @0x24
0x1417…144e at0025 = ╱20╱…╱ // 0x143c @0x25
0x1417…144e at0026 = ╱20╱…╱ // 0x143d @0x26
0x1417…144e at0027 = ╱20╱…╱ // 0x143e @0x27
0x1417…144e at0028 = ╱20╱…╱ // 0x143f @0x28
0x1417…144e at0029 = ╱20╱…╱ // 0x1440 @0x29
0x1417…144e at002a = ╱4b╱K╱ // 0x1441 @0x2a
0x1417…144e at002b = ╱4f╱O╱ // 0x1442 @0x2b
0x1417…144e at002c = ╱44╱D╱ // 0x1443 @0x2c
0x1417…144e at002d = ╱45╱E╱ // 0x1444 @0x2d
0x1417…144e at002e = ╱20╱…╱ // 0x1445 @0x2e
0x1417…144e at002f = ╱20╱…╱ // 0x1446 @0x2f
0x1417…144e at0030 = ╱42╱B╱ // 0x1447 @0x30
0x1417…144e at0031 = ╱41╱A╱ // 0x1448 @0x31
0x1417…144e at0032 = ╱4e╱N╱ // 0x1449 @0x32
0x1417…144e at0033 = ╱4b╱K╱ // 0x144a @0x33
0x1417…144e at0034 = ╱2f╱/╱ // 0x144b @0x34
0x1417…144e at0035 = ╱22╱"╱ // 0x144c @0x35
0x1417…144e at0036 = EOL // 0x144d @0x36
0x1417…144e }
0x144e…1484 aa72 1930 PRINT "<C0107> GIRO"
0x144e…1484 LineComal80 {
0x144e…1484 ptr = 0xaa72 // 0x144e @0x0
0x144e…1484 lno = 0x078a // 0x1450 @0x2
0x144e…1484 at0004 = ╱92╱ PRINT ╱ // 0x1452 @0x4
0x144e…1484 at0005 = ╱22╱"╱ // 0x1453 @0x5
0x144e…1484 at0006 = ╱3c╱<╱ // 0x1454 @0x6
0x144e…1484 at0007 = ╱43╱C╱ // 0x1455 @0x7
0x144e…1484 at0008 = ╱30╱0╱ // 0x1456 @0x8
0x144e…1484 at0009 = ╱31╱1╱ // 0x1457 @0x9
0x144e…1484 at000a = ╱30╱0╱ // 0x1458 @0xa
0x144e…1484 at000b = ╱37╱7╱ // 0x1459 @0xb
0x144e…1484 at000c = ╱3e╱>╱ // 0x145a @0xc
0x144e…1484 at000d = ╱20╱…╱ // 0x145b @0xd
0x144e…1484 at000e = ╱20╱…╱ // 0x145c @0xe
0x144e…1484 at000f = ╱20╱…╱ // 0x145d @0xf
0x144e…1484 at0010 = ╱20╱…╱ // 0x145e @0x10
0x144e…1484 at0011 = ╱20╱…╱ // 0x145f @0x11
0x144e…1484 at0012 = ╱20╱…╱ // 0x1460 @0x12
0x144e…1484 at0013 = ╱20╱…╱ // 0x1461 @0x13
0x144e…1484 at0014 = ╱20╱…╱ // 0x1462 @0x14
0x144e…1484 at0015 = ╱20╱…╱ // 0x1463 @0x15
0x144e…1484 at0016 = ╱20╱…╱ // 0x1464 @0x16
0x144e…1484 at0017 = ╱20╱…╱ // 0x1465 @0x17
0x144e…1484 at0018 = ╱20╱…╱ // 0x1466 @0x18
0x144e…1484 at0019 = ╱20╱…╱ // 0x1467 @0x19
0x144e…1484 at001a = ╱20╱…╱ // 0x1468 @0x1a
0x144e…1484 at001b = ╱20╱…╱ // 0x1469 @0x1b
0x144e…1484 at001c = ╱20╱…╱ // 0x146a @0x1c
0x144e…1484 at001d = ╱20╱…╱ // 0x146b @0x1d
0x144e…1484 at001e = ╱20╱…╱ // 0x146c @0x1e
0x144e…1484 at001f = ╱20╱…╱ // 0x146d @0x1f
0x144e…1484 at0020 = ╱20╱…╱ // 0x146e @0x20
0x144e…1484 at0021 = ╱20╱…╱ // 0x146f @0x21
0x144e…1484 at0022 = ╱20╱…╱ // 0x1470 @0x22
0x144e…1484 at0023 = ╱20╱…╱ // 0x1471 @0x23
0x144e…1484 at0024 = ╱20╱…╱ // 0x1472 @0x24
0x144e…1484 at0025 = ╱20╱…╱ // 0x1473 @0x25
0x144e…1484 at0026 = ╱20╱…╱ // 0x1474 @0x26
0x144e…1484 at0027 = ╱20╱…╱ // 0x1475 @0x27
0x144e…1484 at0028 = ╱20╱…╱ // 0x1476 @0x28
0x144e…1484 at0029 = ╱20╱…╱ // 0x1477 @0x29
0x144e…1484 at002a = ╱20╱…╱ // 0x1478 @0x2a
0x144e…1484 at002b = ╱20╱…╱ // 0x1479 @0x2b
0x144e…1484 at002c = ╱20╱…╱ // 0x147a @0x2c
0x144e…1484 at002d = ╱20╱…╱ // 0x147b @0x2d
0x144e…1484 at002e = ╱20╱…╱ // 0x147c @0x2e
0x144e…1484 at002f = ╱20╱…╱ // 0x147d @0x2f
0x144e…1484 at0030 = ╱47╱G╱ // 0x147e @0x30
0x144e…1484 at0031 = ╱49╱I╱ // 0x147f @0x31
0x144e…1484 at0032 = ╱52╱R╱ // 0x1480 @0x32
0x144e…1484 at0033 = ╱4f╱O╱ // 0x1481 @0x33
0x144e…1484 at0034 = ╱22╱"╱ // 0x1482 @0x34
0x144e…1484 at0035 = EOL // 0x1483 @0x35
0x144e…1484 }
0x1484…14bb aaa9 1940 PRINT "<C0108>----------------------------------------"
0x1484…14bb LineComal80 {
0x1484…14bb ptr = 0xaaa9 // 0x1484 @0x0
0x1484…14bb lno = 0x0794 // 0x1486 @0x2
0x1484…14bb at0004 = ╱92╱ PRINT ╱ // 0x1488 @0x4
0x1484…14bb at0005 = ╱22╱"╱ // 0x1489 @0x5
0x1484…14bb at0006 = ╱3c╱<╱ // 0x148a @0x6
0x1484…14bb at0007 = ╱43╱C╱ // 0x148b @0x7
0x1484…14bb at0008 = ╱30╱0╱ // 0x148c @0x8
0x1484…14bb at0009 = ╱31╱1╱ // 0x148d @0x9
0x1484…14bb at000a = ╱30╱0╱ // 0x148e @0xa
0x1484…14bb at000b = ╱38╱8╱ // 0x148f @0xb
0x1484…14bb at000c = ╱3e╱>╱ // 0x1490 @0xc
0x1484…14bb at000d = ╱2d╱-╱ // 0x1491 @0xd
0x1484…14bb at000e = ╱2d╱-╱ // 0x1492 @0xe
0x1484…14bb at000f = ╱2d╱-╱ // 0x1493 @0xf
0x1484…14bb at0010 = ╱2d╱-╱ // 0x1494 @0x10
0x1484…14bb at0011 = ╱2d╱-╱ // 0x1495 @0x11
0x1484…14bb at0012 = ╱2d╱-╱ // 0x1496 @0x12
0x1484…14bb at0013 = ╱2d╱-╱ // 0x1497 @0x13
0x1484…14bb at0014 = ╱2d╱-╱ // 0x1498 @0x14
0x1484…14bb at0015 = ╱2d╱-╱ // 0x1499 @0x15
0x1484…14bb at0016 = ╱2d╱-╱ // 0x149a @0x16
0x1484…14bb at0017 = ╱2d╱-╱ // 0x149b @0x17
0x1484…14bb at0018 = ╱2d╱-╱ // 0x149c @0x18
0x1484…14bb at0019 = ╱2d╱-╱ // 0x149d @0x19
0x1484…14bb at001a = ╱2d╱-╱ // 0x149e @0x1a
0x1484…14bb at001b = ╱2d╱-╱ // 0x149f @0x1b
0x1484…14bb at001c = ╱2d╱-╱ // 0x14a0 @0x1c
0x1484…14bb at001d = ╱2d╱-╱ // 0x14a1 @0x1d
0x1484…14bb at001e = ╱2d╱-╱ // 0x14a2 @0x1e
0x1484…14bb at001f = ╱2d╱-╱ // 0x14a3 @0x1f
0x1484…14bb at0020 = ╱2d╱-╱ // 0x14a4 @0x20
0x1484…14bb at0021 = ╱2d╱-╱ // 0x14a5 @0x21
0x1484…14bb at0022 = ╱2d╱-╱ // 0x14a6 @0x22
0x1484…14bb at0023 = ╱2d╱-╱ // 0x14a7 @0x23
0x1484…14bb at0024 = ╱2d╱-╱ // 0x14a8 @0x24
0x1484…14bb at0025 = ╱2d╱-╱ // 0x14a9 @0x25
0x1484…14bb at0026 = ╱2d╱-╱ // 0x14aa @0x26
0x1484…14bb at0027 = ╱2d╱-╱ // 0x14ab @0x27
0x1484…14bb at0028 = ╱2d╱-╱ // 0x14ac @0x28
0x1484…14bb at0029 = ╱2d╱-╱ // 0x14ad @0x29
0x1484…14bb at002a = ╱2d╱-╱ // 0x14ae @0x2a
0x1484…14bb at002b = ╱2d╱-╱ // 0x14af @0x2b
0x1484…14bb at002c = ╱2d╱-╱ // 0x14b0 @0x2c
0x1484…14bb at002d = ╱2d╱-╱ // 0x14b1 @0x2d
0x1484…14bb at002e = ╱2d╱-╱ // 0x14b2 @0x2e
0x1484…14bb at002f = ╱2d╱-╱ // 0x14b3 @0x2f
0x1484…14bb at0030 = ╱2d╱-╱ // 0x14b4 @0x30
0x1484…14bb at0031 = ╱2d╱-╱ // 0x14b5 @0x31
0x1484…14bb at0032 = ╱2d╱-╱ // 0x14b6 @0x32
0x1484…14bb at0033 = ╱2d╱-╱ // 0x14b7 @0x33
0x1484…14bb at0034 = ╱2d╱-╱ // 0x14b8 @0x34
0x1484…14bb at0035 = ╱22╱"╱ // 0x14b9 @0x35
0x1484…14bb at0036 = EOL // 0x14ba @0x36
0x1484…14bb }
0x14bb…14f1 aadf 1950 PRINT "<C4105>/ INDBETALING UDBETALING MODPOST- F/"
0x14bb…14f1 LineComal80 {
0x14bb…14f1 ptr = 0xaadf // 0x14bb @0x0
0x14bb…14f1 lno = 0x079e // 0x14bd @0x2
0x14bb…14f1 at0004 = ╱92╱ PRINT ╱ // 0x14bf @0x4
0x14bb…14f1 at0005 = ╱22╱"╱ // 0x14c0 @0x5
0x14bb…14f1 at0006 = ╱3c╱<╱ // 0x14c1 @0x6
0x14bb…14f1 at0007 = ╱43╱C╱ // 0x14c2 @0x7
0x14bb…14f1 at0008 = ╱34╱4╱ // 0x14c3 @0x8
0x14bb…14f1 at0009 = ╱31╱1╱ // 0x14c4 @0x9
0x14bb…14f1 at000a = ╱30╱0╱ // 0x14c5 @0xa
0x14bb…14f1 at000b = ╱35╱5╱ // 0x14c6 @0xb
0x14bb…14f1 at000c = ╱3e╱>╱ // 0x14c7 @0xc
0x14bb…14f1 at000d = ╱2f╱/╱ // 0x14c8 @0xd
0x14bb…14f1 at000e = ╱20╱…╱ // 0x14c9 @0xe
0x14bb…14f1 at000f = ╱20╱…╱ // 0x14ca @0xf
0x14bb…14f1 at0010 = ╱49╱I╱ // 0x14cb @0x10
0x14bb…14f1 at0011 = ╱4e╱N╱ // 0x14cc @0x11
0x14bb…14f1 at0012 = ╱44╱D╱ // 0x14cd @0x12
0x14bb…14f1 at0013 = ╱42╱B╱ // 0x14ce @0x13
0x14bb…14f1 at0014 = ╱45╱E╱ // 0x14cf @0x14
0x14bb…14f1 at0015 = ╱54╱T╱ // 0x14d0 @0x15
0x14bb…14f1 at0016 = ╱41╱A╱ // 0x14d1 @0x16
0x14bb…14f1 at0017 = ╱4c╱L╱ // 0x14d2 @0x17
0x14bb…14f1 at0018 = ╱49╱I╱ // 0x14d3 @0x18
0x14bb…14f1 at0019 = ╱4e╱N╱ // 0x14d4 @0x19
0x14bb…14f1 at001a = ╱47╱G╱ // 0x14d5 @0x1a
0x14bb…14f1 at001b = ╱20╱…╱ // 0x14d6 @0x1b
0x14bb…14f1 at001c = ╱20╱…╱ // 0x14d7 @0x1c
0x14bb…14f1 at001d = ╱55╱U╱ // 0x14d8 @0x1d
0x14bb…14f1 at001e = ╱44╱D╱ // 0x14d9 @0x1e
0x14bb…14f1 at001f = ╱42╱B╱ // 0x14da @0x1f
0x14bb…14f1 at0020 = ╱45╱E╱ // 0x14db @0x20
0x14bb…14f1 at0021 = ╱54╱T╱ // 0x14dc @0x21
0x14bb…14f1 at0022 = ╱41╱A╱ // 0x14dd @0x22
0x14bb…14f1 at0023 = ╱4c╱L╱ // 0x14de @0x23
0x14bb…14f1 at0024 = ╱49╱I╱ // 0x14df @0x24
0x14bb…14f1 at0025 = ╱4e╱N╱ // 0x14e0 @0x25
0x14bb…14f1 at0026 = ╱47╱G╱ // 0x14e1 @0x26
0x14bb…14f1 at0027 = ╱20╱…╱ // 0x14e2 @0x27
0x14bb…14f1 at0028 = ╱20╱…╱ // 0x14e3 @0x28
0x14bb…14f1 at0029 = ╱4d╱M╱ // 0x14e4 @0x29
0x14bb…14f1 at002a = ╱4f╱O╱ // 0x14e5 @0x2a
0x14bb…14f1 at002b = ╱44╱D╱ // 0x14e6 @0x2b
0x14bb…14f1 at002c = ╱50╱P╱ // 0x14e7 @0x2c
0x14bb…14f1 at002d = ╱4f╱O╱ // 0x14e8 @0x2d
0x14bb…14f1 at002e = ╱53╱S╱ // 0x14e9 @0x2e
0x14bb…14f1 at002f = ╱54╱T╱ // 0x14ea @0x2f
0x14bb…14f1 at0030 = ╱2d╱-╱ // 0x14eb @0x30
0x14bb…14f1 at0031 = ╱20╱…╱ // 0x14ec @0x31
0x14bb…14f1 at0032 = ╱46╱F╱ // 0x14ed @0x32
0x14bb…14f1 at0033 = ╱2f╱/╱ // 0x14ee @0x33
0x14bb…14f1 at0034 = ╱22╱"╱ // 0x14ef @0x34
0x14bb…14f1 at0035 = EOL // 0x14f0 @0x35
0x14bb…14f1 }
0x14f1…1527 ab15 1960 PRINT "<C4106> (DEBET) (KREDIT) ERES R/"
0x14f1…1527 LineComal80 {
0x14f1…1527 ptr = 0xab15 // 0x14f1 @0x0
0x14f1…1527 lno = 0x07a8 // 0x14f3 @0x2
0x14f1…1527 at0004 = ╱92╱ PRINT ╱ // 0x14f5 @0x4
0x14f1…1527 at0005 = ╱22╱"╱ // 0x14f6 @0x5
0x14f1…1527 at0006 = ╱3c╱<╱ // 0x14f7 @0x6
0x14f1…1527 at0007 = ╱43╱C╱ // 0x14f8 @0x7
0x14f1…1527 at0008 = ╱34╱4╱ // 0x14f9 @0x8
0x14f1…1527 at0009 = ╱31╱1╱ // 0x14fa @0x9
0x14f1…1527 at000a = ╱30╱0╱ // 0x14fb @0xa
0x14f1…1527 at000b = ╱36╱6╱ // 0x14fc @0xb
0x14f1…1527 at000c = ╱3e╱>╱ // 0x14fd @0xc
0x14f1…1527 at000d = ╱20╱…╱ // 0x14fe @0xd
0x14f1…1527 at000e = ╱20╱…╱ // 0x14ff @0xe
0x14f1…1527 at000f = ╱20╱…╱ // 0x1500 @0xf
0x14f1…1527 at0010 = ╱20╱…╱ // 0x1501 @0x10
0x14f1…1527 at0011 = ╱20╱…╱ // 0x1502 @0x11
0x14f1…1527 at0012 = ╱28╱(╱ // 0x1503 @0x12
0x14f1…1527 at0013 = ╱44╱D╱ // 0x1504 @0x13
0x14f1…1527 at0014 = ╱45╱E╱ // 0x1505 @0x14
0x14f1…1527 at0015 = ╱42╱B╱ // 0x1506 @0x15
0x14f1…1527 at0016 = ╱45╱E╱ // 0x1507 @0x16
0x14f1…1527 at0017 = ╱54╱T╱ // 0x1508 @0x17
0x14f1…1527 at0018 = ╱29╱)╱ // 0x1509 @0x18
0x14f1…1527 at0019 = ╱20╱…╱ // 0x150a @0x19
0x14f1…1527 at001a = ╱20╱…╱ // 0x150b @0x1a
0x14f1…1527 at001b = ╱20╱…╱ // 0x150c @0x1b
0x14f1…1527 at001c = ╱20╱…╱ // 0x150d @0x1c
0x14f1…1527 at001d = ╱20╱…╱ // 0x150e @0x1d
0x14f1…1527 at001e = ╱28╱(╱ // 0x150f @0x1e
0x14f1…1527 at001f = ╱4b╱K╱ // 0x1510 @0x1f
0x14f1…1527 at0020 = ╱52╱R╱ // 0x1511 @0x20
0x14f1…1527 at0021 = ╱45╱E╱ // 0x1512 @0x21
0x14f1…1527 at0022 = ╱44╱D╱ // 0x1513 @0x22
0x14f1…1527 at0023 = ╱49╱I╱ // 0x1514 @0x23
0x14f1…1527 at0024 = ╱54╱T╱ // 0x1515 @0x24
0x14f1…1527 at0025 = ╱29╱)╱ // 0x1516 @0x25
0x14f1…1527 at0026 = ╱20╱…╱ // 0x1517 @0x26
0x14f1…1527 at0027 = ╱20╱…╱ // 0x1518 @0x27
0x14f1…1527 at0028 = ╱20╱…╱ // 0x1519 @0x28
0x14f1…1527 at0029 = ╱45╱E╱ // 0x151a @0x29
0x14f1…1527 at002a = ╱52╱R╱ // 0x151b @0x2a
0x14f1…1527 at002b = ╱45╱E╱ // 0x151c @0x2b
0x14f1…1527 at002c = ╱53╱S╱ // 0x151d @0x2c
0x14f1…1527 at002d = ╱20╱…╱ // 0x151e @0x2d
0x14f1…1527 at002e = ╱20╱…╱ // 0x151f @0x2e
0x14f1…1527 at002f = ╱20╱…╱ // 0x1520 @0x2f
0x14f1…1527 at0030 = ╱20╱…╱ // 0x1521 @0x30
0x14f1…1527 at0031 = ╱20╱…╱ // 0x1522 @0x31
0x14f1…1527 at0032 = ╱52╱R╱ // 0x1523 @0x32
0x14f1…1527 at0033 = ╱2f╱/╱ // 0x1524 @0x33
0x14f1…1527 at0034 = ╱22╱"╱ // 0x1525 @0x34
0x14f1…1527 at0035 = EOL // 0x1526 @0x35
0x14f1…1527 }
0x1527…155c ab4a 1970 PRINT "<C4107> KONTONR S"
0x1527…155c LineComal80 {
0x1527…155c ptr = 0xab4a // 0x1527 @0x0
0x1527…155c lno = 0x07b2 // 0x1529 @0x2
0x1527…155c at0004 = ╱92╱ PRINT ╱ // 0x152b @0x4
0x1527…155c at0005 = ╱22╱"╱ // 0x152c @0x5
0x1527…155c at0006 = ╱3c╱<╱ // 0x152d @0x6
0x1527…155c at0007 = ╱43╱C╱ // 0x152e @0x7
0x1527…155c at0008 = ╱34╱4╱ // 0x152f @0x8
0x1527…155c at0009 = ╱31╱1╱ // 0x1530 @0x9
0x1527…155c at000a = ╱30╱0╱ // 0x1531 @0xa
0x1527…155c at000b = ╱37╱7╱ // 0x1532 @0xb
0x1527…155c at000c = ╱3e╱>╱ // 0x1533 @0xc
0x1527…155c at000d = ╱20╱…╱ // 0x1534 @0xd
0x1527…155c at000e = ╱20╱…╱ // 0x1535 @0xe
0x1527…155c at000f = ╱20╱…╱ // 0x1536 @0xf
0x1527…155c at0010 = ╱20╱…╱ // 0x1537 @0x10
0x1527…155c at0011 = ╱20╱…╱ // 0x1538 @0x11
0x1527…155c at0012 = ╱20╱…╱ // 0x1539 @0x12
0x1527…155c at0013 = ╱20╱…╱ // 0x153a @0x13
0x1527…155c at0014 = ╱20╱…╱ // 0x153b @0x14
0x1527…155c at0015 = ╱20╱…╱ // 0x153c @0x15
0x1527…155c at0016 = ╱20╱…╱ // 0x153d @0x16
0x1527…155c at0017 = ╱20╱…╱ // 0x153e @0x17
0x1527…155c at0018 = ╱20╱…╱ // 0x153f @0x18
0x1527…155c at0019 = ╱20╱…╱ // 0x1540 @0x19
0x1527…155c at001a = ╱20╱…╱ // 0x1541 @0x1a
0x1527…155c at001b = ╱20╱…╱ // 0x1542 @0x1b
0x1527…155c at001c = ╱20╱…╱ // 0x1543 @0x1c
0x1527…155c at001d = ╱20╱…╱ // 0x1544 @0x1d
0x1527…155c at001e = ╱20╱…╱ // 0x1545 @0x1e
0x1527…155c at001f = ╱20╱…╱ // 0x1546 @0x1f
0x1527…155c at0020 = ╱20╱…╱ // 0x1547 @0x20
0x1527…155c at0021 = ╱20╱…╱ // 0x1548 @0x21
0x1527…155c at0022 = ╱20╱…╱ // 0x1549 @0x22
0x1527…155c at0023 = ╱20╱…╱ // 0x154a @0x23
0x1527…155c at0024 = ╱20╱…╱ // 0x154b @0x24
0x1527…155c at0025 = ╱20╱…╱ // 0x154c @0x25
0x1527…155c at0026 = ╱20╱…╱ // 0x154d @0x26
0x1527…155c at0027 = ╱20╱…╱ // 0x154e @0x27
0x1527…155c at0028 = ╱20╱…╱ // 0x154f @0x28
0x1527…155c at0029 = ╱4b╱K╱ // 0x1550 @0x29
0x1527…155c at002a = ╱4f╱O╱ // 0x1551 @0x2a
0x1527…155c at002b = ╱4e╱N╱ // 0x1552 @0x2b
0x1527…155c at002c = ╱54╱T╱ // 0x1553 @0x2c
0x1527…155c at002d = ╱4f╱O╱ // 0x1554 @0x2d
0x1527…155c at002e = ╱4e╱N╱ // 0x1555 @0x2e
0x1527…155c at002f = ╱52╱R╱ // 0x1556 @0x2f
0x1527…155c at0030 = ╱20╱…╱ // 0x1557 @0x30
0x1527…155c at0031 = ╱20╱…╱ // 0x1558 @0x31
0x1527…155c at0032 = ╱53╱S╱ // 0x1559 @0x32
0x1527…155c at0033 = ╱22╱"╱ // 0x155a @0x33
0x1527…155c at0034 = EOL // 0x155b @0x34
0x1527…155c }
0x155c…1593 ab81 1980 PRINT "<C4108>----------------------------------------"
0x155c…1593 LineComal80 {
0x155c…1593 ptr = 0xab81 // 0x155c @0x0
0x155c…1593 lno = 0x07bc // 0x155e @0x2
0x155c…1593 at0004 = ╱92╱ PRINT ╱ // 0x1560 @0x4
0x155c…1593 at0005 = ╱22╱"╱ // 0x1561 @0x5
0x155c…1593 at0006 = ╱3c╱<╱ // 0x1562 @0x6
0x155c…1593 at0007 = ╱43╱C╱ // 0x1563 @0x7
0x155c…1593 at0008 = ╱34╱4╱ // 0x1564 @0x8
0x155c…1593 at0009 = ╱31╱1╱ // 0x1565 @0x9
0x155c…1593 at000a = ╱30╱0╱ // 0x1566 @0xa
0x155c…1593 at000b = ╱38╱8╱ // 0x1567 @0xb
0x155c…1593 at000c = ╱3e╱>╱ // 0x1568 @0xc
0x155c…1593 at000d = ╱2d╱-╱ // 0x1569 @0xd
0x155c…1593 at000e = ╱2d╱-╱ // 0x156a @0xe
0x155c…1593 at000f = ╱2d╱-╱ // 0x156b @0xf
0x155c…1593 at0010 = ╱2d╱-╱ // 0x156c @0x10
0x155c…1593 at0011 = ╱2d╱-╱ // 0x156d @0x11
0x155c…1593 at0012 = ╱2d╱-╱ // 0x156e @0x12
0x155c…1593 at0013 = ╱2d╱-╱ // 0x156f @0x13
0x155c…1593 at0014 = ╱2d╱-╱ // 0x1570 @0x14
0x155c…1593 at0015 = ╱2d╱-╱ // 0x1571 @0x15
0x155c…1593 at0016 = ╱2d╱-╱ // 0x1572 @0x16
0x155c…1593 at0017 = ╱2d╱-╱ // 0x1573 @0x17
0x155c…1593 at0018 = ╱2d╱-╱ // 0x1574 @0x18
0x155c…1593 at0019 = ╱2d╱-╱ // 0x1575 @0x19
0x155c…1593 at001a = ╱2d╱-╱ // 0x1576 @0x1a
0x155c…1593 at001b = ╱2d╱-╱ // 0x1577 @0x1b
0x155c…1593 at001c = ╱2d╱-╱ // 0x1578 @0x1c
0x155c…1593 at001d = ╱2d╱-╱ // 0x1579 @0x1d
0x155c…1593 at001e = ╱2d╱-╱ // 0x157a @0x1e
0x155c…1593 at001f = ╱2d╱-╱ // 0x157b @0x1f
0x155c…1593 at0020 = ╱2d╱-╱ // 0x157c @0x20
0x155c…1593 at0021 = ╱2d╱-╱ // 0x157d @0x21
0x155c…1593 at0022 = ╱2d╱-╱ // 0x157e @0x22
0x155c…1593 at0023 = ╱2d╱-╱ // 0x157f @0x23
0x155c…1593 at0024 = ╱2d╱-╱ // 0x1580 @0x24
0x155c…1593 at0025 = ╱2d╱-╱ // 0x1581 @0x25
0x155c…1593 at0026 = ╱2d╱-╱ // 0x1582 @0x26
0x155c…1593 at0027 = ╱2d╱-╱ // 0x1583 @0x27
0x155c…1593 at0028 = ╱2d╱-╱ // 0x1584 @0x28
0x155c…1593 at0029 = ╱2d╱-╱ // 0x1585 @0x29
0x155c…1593 at002a = ╱2d╱-╱ // 0x1586 @0x2a
0x155c…1593 at002b = ╱2d╱-╱ // 0x1587 @0x2b
0x155c…1593 at002c = ╱2d╱-╱ // 0x1588 @0x2c
0x155c…1593 at002d = ╱2d╱-╱ // 0x1589 @0x2d
0x155c…1593 at002e = ╱2d╱-╱ // 0x158a @0x2e
0x155c…1593 at002f = ╱2d╱-╱ // 0x158b @0x2f
0x155c…1593 at0030 = ╱2d╱-╱ // 0x158c @0x30
0x155c…1593 at0031 = ╱2d╱-╱ // 0x158d @0x31
0x155c…1593 at0032 = ╱2d╱-╱ // 0x158e @0x32
0x155c…1593 at0033 = ╱2d╱-╱ // 0x158f @0x33
0x155c…1593 at0034 = ╱2d╱-╱ // 0x1590 @0x34
0x155c…1593 at0035 = ╱22╱"╱ // 0x1591 @0x35
0x155c…1593 at0036 = EOL // 0x1592 @0x36
0x155c…1593 }
0x1593…15a3 ab91 1990 ENDPROC KASSEHOVED
0x1593…15a3 LineComal80 {
0x1593…15a3 ptr = 0xab91 // 0x1593 @0x0
0x1593…15a3 lno = 0x07c6 // 0x1595 @0x2
0x1593…15a3 at0004 = ╱9f╱ ENDPROC ╱ // 0x1597 @0x4
0x1593…15a3 at0005 = ╱4b╱K╱ // 0x1598 @0x5
0x1593…15a3 at0006 = ╱41╱A╱ // 0x1599 @0x6
0x1593…15a3 at0007 = ╱53╱S╱ // 0x159a @0x7
0x1593…15a3 at0008 = ╱53╱S╱ // 0x159b @0x8
0x1593…15a3 at0009 = ╱45╱E╱ // 0x159c @0x9
0x1593…15a3 at000a = ╱48╱H╱ // 0x159d @0xa
0x1593…15a3 at000b = ╱4f╱O╱ // 0x159e @0xb
0x1593…15a3 at000c = ╱56╱V╱ // 0x159f @0xc
0x1593…15a3 at000d = ╱45╱E╱ // 0x15a0 @0xd
0x1593…15a3 at000e = ╱44╱D╱ // 0x15a1 @0xe
0x1593…15a3 at000f = EOL // 0x15a2 @0xf
0x1593…15a3 }
0x15a3…15a8 ab96 2000
0x15a3…15a8 LineComal80 {
0x15a3…15a8 ptr = 0xab96 // 0x15a3 @0x0
0x15a3…15a8 lno = 0x07d0 // 0x15a5 @0x2
0x15a3…15a8 at0004 = EOL // 0x15a7 @0x4
0x15a3…15a8 }
0x15a8…15c0 (72,) abae 2010 PROC OVERSKRIFT(ST$,L)
0x15a8…15c0 LineComal80 {
0x15a8…15c0 ptr = 0xabae // 0x15a8 @0x0
0x15a8…15c0 lno = 0x07da // 0x15aa @0x2
0x15a8…15c0 at0004 = ╱9e1e╱ PROC ╱ // 0x15ac @0x4
0x15a8…15c0 at0006 = ╱4f╱O╱ // 0x15ae @0x6
0x15a8…15c0 at0007 = ╱56╱V╱ // 0x15af @0x7
0x15a8…15c0 at0008 = ╱45╱E╱ // 0x15b0 @0x8
0x15a8…15c0 at0009 = ╱52╱R╱ // 0x15b1 @0x9
0x15a8…15c0 at000a = ╱53╱S╱ // 0x15b2 @0xa
0x15a8…15c0 at000b = ╱4b╱K╱ // 0x15b3 @0xb
0x15a8…15c0 at000c = ╱52╱R╱ // 0x15b4 @0xc
0x15a8…15c0 at000d = ╱49╱I╱ // 0x15b5 @0xd
0x15a8…15c0 at000e = ╱46╱F╱ // 0x15b6 @0xe
0x15a8…15c0 at000f = ╱54╱T╱ // 0x15b7 @0xf
0x15a8…15c0 at0010 = ╱ed╱(╱ // 0x15b8 @0x10
0x15a8…15c0 at0011 = ╱53╱S╱ // 0x15b9 @0x11
0x15a8…15c0 at0012 = ╱54╱T╱ // 0x15ba @0x12
0x15a8…15c0 at0013 = ╱ef╱$╱ // 0x15bb @0x13
0x15a8…15c0 at0014 = ╱ec╱,╱ // 0x15bc @0x14
0x15a8…15c0 at0015 = ╱4c╱L╱ // 0x15bd @0x15
0x15a8…15c0 at0016 = ╱ee╱)╱ // 0x15be @0x16
0x15a8…15c0 at0017 = EOL // 0x15bf @0x17
0x15a8…15c0 }
0x15c0…15e6 abd4 2020 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0x15c0…15e6 LineComal80 {
0x15c0…15e6 ptr = 0xabd4 // 0x15c0 @0x0
0x15c0…15e6 lno = 0x07e4 // 0x15c2 @0x2
0x15c0…15e6 at0004 = ╱92╱ PRINT ╱ // 0x15c4 @0x4
0x15c0…15e6 at0005 = ╱22╱"╱ // 0x15c5 @0x5
0x15c0…15e6 at0006 = ╱3c╱<╱ // 0x15c6 @0x6
0x15c0…15e6 at0007 = ╱58╱X╱ // 0x15c7 @0x7
0x15c0…15e6 at0008 = ╱43╱C╱ // 0x15c8 @0x8
0x15c0…15e6 at0009 = ╱30╱0╱ // 0x15c9 @0x9
0x15c0…15e6 at000a = ╱31╱1╱ // 0x15ca @0xa
0x15c0…15e6 at000b = ╱30╱0╱ // 0x15cb @0xb
0x15c0…15e6 at000c = ╱31╱1╱ // 0x15cc @0xc
0x15c0…15e6 at000d = ╱3e╱>╱ // 0x15cd @0xd
0x15c0…15e6 at000e = ╱46╱F╱ // 0x15ce @0xe
0x15c0…15e6 at000f = ╱69╱i╱ // 0x15cf @0xf
0x15c0…15e6 at0010 = ╱72╱r╱ // 0x15d0 @0x10
0x15c0…15e6 at0011 = ╱6d╱m╱ // 0x15d1 @0x11
0x15c0…15e6 at0012 = ╱61╱a╱ // 0x15d2 @0x12
0x15c0…15e6 at0013 = ╱6e╱n╱ // 0x15d3 @0x13
0x15c0…15e6 at0014 = ╱61╱a╱ // 0x15d4 @0x14
0x15c0…15e6 at0015 = ╱76╱v╱ // 0x15d5 @0x15
0x15c0…15e6 at0016 = ╱6e╱n╱ // 0x15d6 @0x16
0x15c0…15e6 at0017 = ╱3a╱:╱ // 0x15d7 @0x17
0x15c0…15e6 at0018 = ╱20╱…╱ // 0x15d8 @0x18
0x15c0…15e6 at0019 = ╱22╱"╱ // 0x15d9 @0x19
0x15c0…15e6 at001a = ╱ea╱ ; ╱ // 0x15da @0x1a
0x15c0…15e6 at001b = ╱46╱F╱ // 0x15db @0x1b
0x15c0…15e6 at001c = ╱49╱I╱ // 0x15dc @0x1c
0x15c0…15e6 at001d = ╱52╱R╱ // 0x15dd @0x1d
0x15c0…15e6 at001e = ╱4d╱M╱ // 0x15de @0x1e
0x15c0…15e6 at001f = ╱41╱A╱ // 0x15df @0x1f
0x15c0…15e6 at0020 = ╱4e╱N╱ // 0x15e0 @0x20
0x15c0…15e6 at0021 = ╱41╱A╱ // 0x15e1 @0x21
0x15c0…15e6 at0022 = ╱56╱V╱ // 0x15e2 @0x22
0x15c0…15e6 at0023 = ╱4e╱N╱ // 0x15e3 @0x23
0x15c0…15e6 at0024 = ╱ef╱$╱ // 0x15e4 @0x24
0x15c0…15e6 at0025 = EOL // 0x15e5 @0x25
0x15c0…15e6 }
0x15e6…162e ac1c 2030 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0x15e6…162e LineComal80 {
0x15e6…162e ptr = 0xac1c // 0x15e6 @0x0
0x15e6…162e lno = 0x07ee // 0x15e8 @0x2
0x15e6…162e at0004 = ╱92╱ PRINT ╱ // 0x15ea @0x4
0x15e6…162e at0005 = ╱22╱"╱ // 0x15eb @0x5
0x15e6…162e at0006 = ╱3c╱<╱ // 0x15ec @0x6
0x15e6…162e at0007 = ╱53╱S╱ // 0x15ed @0x7
0x15e6…162e at0008 = ╱43╱C╱ // 0x15ee @0x8
0x15e6…162e at0009 = ╱36╱6╱ // 0x15ef @0x9
0x15e6…162e at000a = ╱35╱5╱ // 0x15f0 @0xa
0x15e6…162e at000b = ╱30╱0╱ // 0x15f1 @0xb
0x15e6…162e at000c = ╱31╱1╱ // 0x15f2 @0xc
0x15e6…162e at000d = ╱3e╱>╱ // 0x15f3 @0xd
0x15e6…162e at000e = ╱44╱D╱ // 0x15f4 @0xe
0x15e6…162e at000f = ╱61╱a╱ // 0x15f5 @0xf
0x15e6…162e at0010 = ╱74╱t╱ // 0x15f6 @0x10
0x15e6…162e at0011 = ╱6f╱o╱ // 0x15f7 @0x11
0x15e6…162e at0012 = ╱3a╱:╱ // 0x15f8 @0x12
0x15e6…162e at0013 = ╱20╱…╱ // 0x15f9 @0x13
0x15e6…162e at0014 = ╱22╱"╱ // 0x15fa @0x14
0x15e6…162e at0015 = ╱ea╱ ; ╱ // 0x15fb @0x15
0x15e6…162e at0016 = ╱53╱S╱ // 0x15fc @0x16
0x15e6…162e at0017 = ╱59╱Y╱ // 0x15fd @0x17
0x15e6…162e at0018 = ╱53╱S╱ // 0x15fe @0x18
0x15e6…162e at0019 = ╱54╱T╱ // 0x15ff @0x19
0x15e6…162e at001a = ╱5f╱_╱ // 0x1600 @0x1a
0x15e6…162e at001b = ╱44╱D╱ // 0x1601 @0x1b
0x15e6…162e at001c = ╱41╱A╱ // 0x1602 @0x1c
0x15e6…162e at001d = ╱54╱T╱ // 0x1603 @0x1d
0x15e6…162e at001e = ╱ef╱$╱ // 0x1604 @0x1e
0x15e6…162e at001f = ╱ed╱(╱ // 0x1605 @0x1f
0x15e6…162e at0020 = ╱31╱1╱ // 0x1606 @0x20
0x15e6…162e at0021 = ╱f20100╱ // 0x1607 @0x21
0x15e6…162e at0024 = ╱f1╱ : ╱ // 0x160a @0x24
0x15e6…162e at0025 = ╱32╱2╱ // 0x160b @0x25
0x15e6…162e at0026 = ╱f20200╱ // 0x160c @0x26
0x15e6…162e at0029 = ╱ee╱)╱ // 0x160f @0x29
0x15e6…162e at002a = ╱ea╱ ; ╱ // 0x1610 @0x2a
0x15e6…162e at002b = ╱22╱"╱ // 0x1611 @0x2b
0x15e6…162e at002c = ╱2e╱.╱ // 0x1612 @0x2c
0x15e6…162e at002d = ╱22╱"╱ // 0x1613 @0x2d
0x15e6…162e at002e = ╱ea╱ ; ╱ // 0x1614 @0x2e
0x15e6…162e at002f = ╱53╱S╱ // 0x1615 @0x2f
0x15e6…162e at0030 = ╱59╱Y╱ // 0x1616 @0x30
0x15e6…162e at0031 = ╱53╱S╱ // 0x1617 @0x31
0x15e6…162e at0032 = ╱54╱T╱ // 0x1618 @0x32
0x15e6…162e at0033 = ╱5f╱_╱ // 0x1619 @0x33
0x15e6…162e at0034 = ╱44╱D╱ // 0x161a @0x34
0x15e6…162e at0035 = ╱41╱A╱ // 0x161b @0x35
0x15e6…162e at0036 = ╱54╱T╱ // 0x161c @0x36
0x15e6…162e at0037 = ╱ef╱$╱ // 0x161d @0x37
0x15e6…162e at0038 = ╱ed╱(╱ // 0x161e @0x38
0x15e6…162e at0039 = ╱33╱3╱ // 0x161f @0x39
0x15e6…162e at003a = ╱f20300╱ // 0x1620 @0x3a
0x15e6…162e at003d = ╱f1╱ : ╱ // 0x1623 @0x3d
0x15e6…162e at003e = ╱32╱2╱ // 0x1624 @0x3e
0x15e6…162e at003f = ╱f20200╱ // 0x1625 @0x3f
0x15e6…162e at0042 = ╱ee╱)╱ // 0x1628 @0x42
0x15e6…162e at0043 = ╱ea╱ ; ╱ // 0x1629 @0x43
0x15e6…162e at0044 = ╱22╱"╱ // 0x162a @0x44
0x15e6…162e at0045 = ╱2e╱.╱ // 0x162b @0x45
0x15e6…162e at0046 = ╱22╱"╱ // 0x162c @0x46
0x15e6…162e at0047 = EOL // 0x162d @0x47
0x15e6…162e }
0x162e…1648 ac36 2040 PRINT SYST_DAT$(5 : 2)
0x162e…1648 LineComal80 {
0x162e…1648 ptr = 0xac36 // 0x162e @0x0
0x162e…1648 lno = 0x07f8 // 0x1630 @0x2
0x162e…1648 at0004 = ╱92╱ PRINT ╱ // 0x1632 @0x4
0x162e…1648 at0005 = ╱53╱S╱ // 0x1633 @0x5
0x162e…1648 at0006 = ╱59╱Y╱ // 0x1634 @0x6
0x162e…1648 at0007 = ╱53╱S╱ // 0x1635 @0x7
0x162e…1648 at0008 = ╱54╱T╱ // 0x1636 @0x8
0x162e…1648 at0009 = ╱5f╱_╱ // 0x1637 @0x9
0x162e…1648 at000a = ╱44╱D╱ // 0x1638 @0xa
0x162e…1648 at000b = ╱41╱A╱ // 0x1639 @0xb
0x162e…1648 at000c = ╱54╱T╱ // 0x163a @0xc
0x162e…1648 at000d = ╱ef╱$╱ // 0x163b @0xd
0x162e…1648 at000e = ╱ed╱(╱ // 0x163c @0xe
0x162e…1648 at000f = ╱35╱5╱ // 0x163d @0xf
0x162e…1648 at0010 = ╱f20500╱ // 0x163e @0x10
0x162e…1648 at0013 = ╱f1╱ : ╱ // 0x1641 @0x13
0x162e…1648 at0014 = ╱32╱2╱ // 0x1642 @0x14
0x162e…1648 at0015 = ╱f20200╱ // 0x1643 @0x15
0x162e…1648 at0018 = ╱ee╱)╱ // 0x1646 @0x18
0x162e…1648 at0019 = EOL // 0x1647 @0x19
0x162e…1648 }
0x1648…1664 ac52 2050 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
0x1648…1664 LineComal80 {
0x1648…1664 ptr = 0xac52 // 0x1648 @0x0
0x1648…1664 lno = 0x0802 // 0x164a @0x2
0x1648…1664 at0004 = ╱a1╱ CURSOR ╱ // 0x164c @0x4
0x1648…1664 at0005 = ╱33╱3╱ // 0x164d @0x5
0x1648…1664 at0006 = ╱34╱4╱ // 0x164e @0x6
0x1648…1664 at0007 = ╱f22200╱ // 0x164f @0x7
0x1648…1664 at000a = ╱e6╱ - ╱ // 0x1652 @0xa
0x1648…1664 at000b = ╱c6╱INT╱ // 0x1653 @0xb
0x1648…1664 at000c = ╱ed╱(╱ // 0x1654 @0xc
0x1648…1664 at000d = ╱cb╱ // 0x1655 @0xd
0x1648…1664 at000e = ╱ed╱(╱ // 0x1656 @0xe
0x1648…1664 at000f = ╱53╱S╱ // 0x1657 @0xf
0x1648…1664 at0010 = ╱54╱T╱ // 0x1658 @0x10
0x1648…1664 at0011 = ╱ef╱$╱ // 0x1659 @0x11
0x1648…1664 at0012 = ╱ee╱)╱ // 0x165a @0x12
0x1648…1664 at0013 = ╱e8╱ / ╱ // 0x165b @0x13
0x1648…1664 at0014 = ╱32╱2╱ // 0x165c @0x14
0x1648…1664 at0015 = ╱f20200╱ // 0x165d @0x15
0x1648…1664 at0018 = ╱ee╱)╱ // 0x1660 @0x18
0x1648…1664 at0019 = ╱ec╱,╱ // 0x1661 @0x19
0x1648…1664 at001a = ╱4c╱L╱ // 0x1662 @0x1a
0x1648…1664 at001b = EOL // 0x1663 @0x1b
0x1648…1664 }
0x1664…167b ac69 2060 PRINT "*** " ; ST$ ; " ***"
0x1664…167b LineComal80 {
0x1664…167b ptr = 0xac69 // 0x1664 @0x0
0x1664…167b lno = 0x080c // 0x1666 @0x2
0x1664…167b at0004 = ╱92╱ PRINT ╱ // 0x1668 @0x4
0x1664…167b at0005 = ╱22╱"╱ // 0x1669 @0x5
0x1664…167b at0006 = ╱2a╱*╱ // 0x166a @0x6
0x1664…167b at0007 = ╱2a╱*╱ // 0x166b @0x7
0x1664…167b at0008 = ╱2a╱*╱ // 0x166c @0x8
0x1664…167b at0009 = ╱20╱…╱ // 0x166d @0x9
0x1664…167b at000a = ╱22╱"╱ // 0x166e @0xa
0x1664…167b at000b = ╱ea╱ ; ╱ // 0x166f @0xb
0x1664…167b at000c = ╱53╱S╱ // 0x1670 @0xc
0x1664…167b at000d = ╱54╱T╱ // 0x1671 @0xd
0x1664…167b at000e = ╱ef╱$╱ // 0x1672 @0xe
0x1664…167b at000f = ╱ea╱ ; ╱ // 0x1673 @0xf
0x1664…167b at0010 = ╱22╱"╱ // 0x1674 @0x10
0x1664…167b at0011 = ╱20╱…╱ // 0x1675 @0x11
0x1664…167b at0012 = ╱2a╱*╱ // 0x1676 @0x12
0x1664…167b at0013 = ╱2a╱*╱ // 0x1677 @0x13
0x1664…167b at0014 = ╱2a╱*╱ // 0x1678 @0x14
0x1664…167b at0015 = ╱22╱"╱ // 0x1679 @0x15
0x1664…167b at0016 = EOL // 0x167a @0x16
0x1664…167b }
0x167b…168b ac79 2070 ENDPROC OVERSKRIFT
0x167b…168b LineComal80 {
0x167b…168b ptr = 0xac79 // 0x167b @0x0
0x167b…168b lno = 0x0816 // 0x167d @0x2
0x167b…168b at0004 = ╱9f╱ ENDPROC ╱ // 0x167f @0x4
0x167b…168b at0005 = ╱4f╱O╱ // 0x1680 @0x5
0x167b…168b at0006 = ╱56╱V╱ // 0x1681 @0x6
0x167b…168b at0007 = ╱45╱E╱ // 0x1682 @0x7
0x167b…168b at0008 = ╱52╱R╱ // 0x1683 @0x8
0x167b…168b at0009 = ╱53╱S╱ // 0x1684 @0x9
0x167b…168b at000a = ╱4b╱K╱ // 0x1685 @0xa
0x167b…168b at000b = ╱52╱R╱ // 0x1686 @0xb
0x167b…168b at000c = ╱49╱I╱ // 0x1687 @0xc
0x167b…168b at000d = ╱46╱F╱ // 0x1688 @0xd
0x167b…168b at000e = ╱54╱T╱ // 0x1689 @0xe
0x167b…168b at000f = EOL // 0x168a @0xf
0x167b…168b }
0x168b…1690 ac7e 2080
0x168b…1690 LineComal80 {
0x168b…1690 ptr = 0xac7e // 0x168b @0x0
0x168b…1690 lno = 0x0820 // 0x168d @0x2
0x168b…1690 at0004 = EOL // 0x168f @0x4
0x168b…1690 }
0x1690…16a6 ac94 2090 PROC EDIT_LIN(R_LIN)
0x1690…16a6 LineComal80 {
0x1690…16a6 ptr = 0xac94 // 0x1690 @0x0
0x1690…16a6 lno = 0x082a // 0x1692 @0x2
0x1690…16a6 at0004 = ╱9e1f╱ PROC ╱ // 0x1694 @0x4
0x1690…16a6 at0006 = ╱45╱E╱ // 0x1696 @0x6
0x1690…16a6 at0007 = ╱44╱D╱ // 0x1697 @0x7
0x1690…16a6 at0008 = ╱49╱I╱ // 0x1698 @0x8
0x1690…16a6 at0009 = ╱54╱T╱ // 0x1699 @0x9
0x1690…16a6 at000a = ╱5f╱_╱ // 0x169a @0xa
0x1690…16a6 at000b = ╱4c╱L╱ // 0x169b @0xb
0x1690…16a6 at000c = ╱49╱I╱ // 0x169c @0xc
0x1690…16a6 at000d = ╱4e╱N╱ // 0x169d @0xd
0x1690…16a6 at000e = ╱ed╱(╱ // 0x169e @0xe
0x1690…16a6 at000f = ╱52╱R╱ // 0x169f @0xf
0x1690…16a6 at0010 = ╱5f╱_╱ // 0x16a0 @0x10
0x1690…16a6 at0011 = ╱4c╱L╱ // 0x16a1 @0x11
0x1690…16a6 at0012 = ╱49╱I╱ // 0x16a2 @0x12
0x1690…16a6 at0013 = ╱4e╱N╱ // 0x16a3 @0x13
0x1690…16a6 at0014 = ╱ee╱)╱ // 0x16a4 @0x14
0x1690…16a6 at0015 = EOL // 0x16a5 @0x15
0x1690…16a6 }
0x16a6…16c3 acb1 2100 LET R_SLIN := R_LIN MOD 12 + 8
0x16a6…16c3 LineComal80 {
0x16a6…16c3 ptr = 0xacb1 // 0x16a6 @0x0
0x16a6…16c3 lno = 0x0834 // 0x16a8 @0x2
0x16a6…16c3 at0004 = ╱86╱ LET ╱ // 0x16aa @0x4
0x16a6…16c3 at0005 = ╱52╱R╱ // 0x16ab @0x5
0x16a6…16c3 at0006 = ╱5f╱_╱ // 0x16ac @0x6
0x16a6…16c3 at0007 = ╱53╱S╱ // 0x16ad @0x7
0x16a6…16c3 at0008 = ╱4c╱L╱ // 0x16ae @0x8
0x16a6…16c3 at0009 = ╱49╱I╱ // 0x16af @0x9
0x16a6…16c3 at000a = ╱4e╱N╱ // 0x16b0 @0xa
0x16a6…16c3 at000b = ╱f0╱ := ╱ // 0x16b1 @0xb
0x16a6…16c3 at000c = ╱52╱R╱ // 0x16b2 @0xc
0x16a6…16c3 at000d = ╱5f╱_╱ // 0x16b3 @0xd
0x16a6…16c3 at000e = ╱4c╱L╱ // 0x16b4 @0xe
0x16a6…16c3 at000f = ╱49╱I╱ // 0x16b5 @0xf
0x16a6…16c3 at0010 = ╱4e╱N╱ // 0x16b6 @0x10
0x16a6…16c3 at0011 = ╱db╱ MOD ╱ // 0x16b7 @0x11
0x16a6…16c3 at0012 = ╱31╱1╱ // 0x16b8 @0x12
0x16a6…16c3 at0013 = ╱32╱2╱ // 0x16b9 @0x13
0x16a6…16c3 at0014 = ╱f20c00╱ // 0x16ba @0x14
0x16a6…16c3 at0017 = ╱e5╱ + ╱ // 0x16bd @0x17
0x16a6…16c3 at0018 = ╱38╱8╱ // 0x16be @0x18
0x16a6…16c3 at0019 = ╱f20800╱ // 0x16bf @0x19
0x16a6…16c3 at001c = EOL // 0x16c2 @0x1c
0x16a6…16c3 }
0x16c3…16ea acd8 2110 IF R_SLIN = 8 THEN LET R_SLIN := 12 + R_SLIN
0x16c3…16ea LineComal80 {
0x16c3…16ea ptr = 0xacd8 // 0x16c3 @0x0
0x16c3…16ea lno = 0x083e // 0x16c5 @0x2
0x16c3…16ea at0004 = ╱8200╱ IF ╱ // 0x16c7 @0x4
0x16c3…16ea at0006 = ╱52╱R╱ // 0x16c9 @0x6
0x16c3…16ea at0007 = ╱5f╱_╱ // 0x16ca @0x7
0x16c3…16ea at0008 = ╱53╱S╱ // 0x16cb @0x8
0x16c3…16ea at0009 = ╱4c╱L╱ // 0x16cc @0x9
0x16c3…16ea at000a = ╱49╱I╱ // 0x16cd @0xa
0x16c3…16ea at000b = ╱4e╱N╱ // 0x16ce @0xb
0x16c3…16ea at000c = ╱df╱ = ╱ // 0x16cf @0xc
0x16c3…16ea at000d = ╱38╱8╱ // 0x16d0 @0xd
0x16c3…16ea at000e = ╱f20800╱ // 0x16d1 @0xe
0x16c3…16ea at0011 = ╱b5╱ THEN ╱ // 0x16d4 @0x11
0x16c3…16ea at0012 = ╱86╱ LET ╱ // 0x16d5 @0x12
0x16c3…16ea at0013 = ╱52╱R╱ // 0x16d6 @0x13
0x16c3…16ea at0014 = ╱5f╱_╱ // 0x16d7 @0x14
0x16c3…16ea at0015 = ╱53╱S╱ // 0x16d8 @0x15
0x16c3…16ea at0016 = ╱4c╱L╱ // 0x16d9 @0x16
0x16c3…16ea at0017 = ╱49╱I╱ // 0x16da @0x17
0x16c3…16ea at0018 = ╱4e╱N╱ // 0x16db @0x18
0x16c3…16ea at0019 = ╱f0╱ := ╱ // 0x16dc @0x19
0x16c3…16ea at001a = ╱31╱1╱ // 0x16dd @0x1a
0x16c3…16ea at001b = ╱32╱2╱ // 0x16de @0x1b
0x16c3…16ea at001c = ╱f20c00╱ // 0x16df @0x1c
0x16c3…16ea at001f = ╱e5╱ + ╱ // 0x16e2 @0x1f
0x16c3…16ea at0020 = ╱52╱R╱ // 0x16e3 @0x20
0x16c3…16ea at0021 = ╱5f╱_╱ // 0x16e4 @0x21
0x16c3…16ea at0022 = ╱53╱S╱ // 0x16e5 @0x22
0x16c3…16ea at0023 = ╱4c╱L╱ // 0x16e6 @0x23
0x16c3…16ea at0024 = ╱49╱I╱ // 0x16e7 @0x24
0x16c3…16ea at0025 = ╱4e╱N╱ // 0x16e8 @0x25
0x16c3…16ea at0026 = EOL // 0x16e9 @0x26
0x16c3…16ea }
0x16ea…1701 acef 2120 EXEC LÆS_K_POST(R_LIN)
0x16ea…1701 LineComal80 {
0x16ea…1701 ptr = 0xacef // 0x16ea @0x0
0x16ea…1701 lno = 0x0848 // 0x16ec @0x2
0x16ea…1701 at0004 = ╱9d╱ EXEC ╱ // 0x16ee @0x4
0x16ea…1701 at0005 = ╱4c╱L╱ // 0x16ef @0x5
0x16ea…1701 at0006 = ╱5b╱Æ╱ // 0x16f0 @0x6
0x16ea…1701 at0007 = ╱53╱S╱ // 0x16f1 @0x7
0x16ea…1701 at0008 = ╱5f╱_╱ // 0x16f2 @0x8
0x16ea…1701 at0009 = ╱4b╱K╱ // 0x16f3 @0x9
0x16ea…1701 at000a = ╱5f╱_╱ // 0x16f4 @0xa
0x16ea…1701 at000b = ╱50╱P╱ // 0x16f5 @0xb
0x16ea…1701 at000c = ╱4f╱O╱ // 0x16f6 @0xc
0x16ea…1701 at000d = ╱53╱S╱ // 0x16f7 @0xd
0x16ea…1701 at000e = ╱54╱T╱ // 0x16f8 @0xe
0x16ea…1701 at000f = ╱ed╱(╱ // 0x16f9 @0xf
0x16ea…1701 at0010 = ╱52╱R╱ // 0x16fa @0x10
0x16ea…1701 at0011 = ╱5f╱_╱ // 0x16fb @0x11
0x16ea…1701 at0012 = ╱4c╱L╱ // 0x16fc @0x12
0x16ea…1701 at0013 = ╱49╱I╱ // 0x16fd @0x13
0x16ea…1701 at0014 = ╱4e╱N╱ // 0x16fe @0x14
0x16ea…1701 at0015 = ╱ee╱)╱ // 0x16ff @0x15
0x16ea…1701 at0016 = EOL // 0x1700 @0x16
0x16ea…1701 }
0x1701…1717 ad05 2130 IF _BNR$ = "*****" THEN
0x1701…1717 LineComal80 {
0x1701…1717 ptr = 0xad05 // 0x1701 @0x0
0x1701…1717 lno = 0x0852 // 0x1703 @0x2
0x1701…1717 at0004 = ╱9b204b╱ IF ╱ // 0x1705 @0x4
0x1701…1717 at0007 = ╱5f╱_╱ // 0x1708 @0x7
0x1701…1717 at0008 = ╱42╱B╱ // 0x1709 @0x8
0x1701…1717 at0009 = ╱4e╱N╱ // 0x170a @0x9
0x1701…1717 at000a = ╱52╱R╱ // 0x170b @0xa
0x1701…1717 at000b = ╱ef╱$╱ // 0x170c @0xb
0x1701…1717 at000c = ╱df╱ = ╱ // 0x170d @0xc
0x1701…1717 at000d = ╱22╱"╱ // 0x170e @0xd
0x1701…1717 at000e = ╱2a╱*╱ // 0x170f @0xe
0x1701…1717 at000f = ╱2a╱*╱ // 0x1710 @0xf
0x1701…1717 at0010 = ╱2a╱*╱ // 0x1711 @0x10
0x1701…1717 at0011 = ╱2a╱*╱ // 0x1712 @0x11
0x1701…1717 at0012 = ╱2a╱*╱ // 0x1713 @0x12
0x1701…1717 at0013 = ╱22╱"╱ // 0x1714 @0x13
0x1701…1717 at0014 = ╱b5╱ THEN ╱ // 0x1715 @0x14
0x1701…1717 at0015 = EOL // 0x1716 @0x15
0x1701…1717 }
0x1717…173f ad2d 2140 LET K_BKTO$ := "" ; K_LKOD$ := " " ; K_MKOD$ := " "
0x1717…173f LineComal80 {
0x1717…173f ptr = 0xad2d // 0x1717 @0x0
0x1717…173f lno = 0x085c // 0x1719 @0x2
0x1717…173f at0004 = ╱86╱ LET ╱ // 0x171b @0x4
0x1717…173f at0005 = ╱4b╱K╱ // 0x171c @0x5
0x1717…173f at0006 = ╱5f╱_╱ // 0x171d @0x6
0x1717…173f at0007 = ╱42╱B╱ // 0x171e @0x7
0x1717…173f at0008 = ╱4b╱K╱ // 0x171f @0x8
0x1717…173f at0009 = ╱54╱T╱ // 0x1720 @0x9
0x1717…173f at000a = ╱4f╱O╱ // 0x1721 @0xa
0x1717…173f at000b = ╱ef╱$╱ // 0x1722 @0xb
0x1717…173f at000c = ╱f0╱ := ╱ // 0x1723 @0xc
0x1717…173f at000d = ╱22╱"╱ // 0x1724 @0xd
0x1717…173f at000e = ╱22╱"╱ // 0x1725 @0xe
0x1717…173f at000f = ╱ea╱ ; ╱ // 0x1726 @0xf
0x1717…173f at0010 = ╱4b╱K╱ // 0x1727 @0x10
0x1717…173f at0011 = ╱5f╱_╱ // 0x1728 @0x11
0x1717…173f at0012 = ╱4c╱L╱ // 0x1729 @0x12
0x1717…173f at0013 = ╱4b╱K╱ // 0x172a @0x13
0x1717…173f at0014 = ╱4f╱O╱ // 0x172b @0x14
0x1717…173f at0015 = ╱44╱D╱ // 0x172c @0x15
0x1717…173f at0016 = ╱ef╱$╱ // 0x172d @0x16
0x1717…173f at0017 = ╱f0╱ := ╱ // 0x172e @0x17
0x1717…173f at0018 = ╱22╱"╱ // 0x172f @0x18
0x1717…173f at0019 = ╱20╱…╱ // 0x1730 @0x19
0x1717…173f at001a = ╱22╱"╱ // 0x1731 @0x1a
0x1717…173f at001b = ╱ea╱ ; ╱ // 0x1732 @0x1b
0x1717…173f at001c = ╱4b╱K╱ // 0x1733 @0x1c
0x1717…173f at001d = ╱5f╱_╱ // 0x1734 @0x1d
0x1717…173f at001e = ╱4d╱M╱ // 0x1735 @0x1e
0x1717…173f at001f = ╱4b╱K╱ // 0x1736 @0x1f
0x1717…173f at0020 = ╱4f╱O╱ // 0x1737 @0x20
0x1717…173f at0021 = ╱44╱D╱ // 0x1738 @0x21
0x1717…173f at0022 = ╱ef╱$╱ // 0x1739 @0x22
0x1717…173f at0023 = ╱f0╱ := ╱ // 0x173a @0x23
0x1717…173f at0024 = ╱22╱"╱ // 0x173b @0x24
0x1717…173f at0025 = ╱20╱…╱ // 0x173c @0x25
0x1717…173f at0026 = ╱22╱"╱ // 0x173d @0x26
0x1717…173f at0027 = EOL // 0x173e @0x27
0x1717…173f }
0x173f…1774 ad62 2150 LET K_BNR$ := " " ; K_TXT$ := "" ; K_BKR := 0 ; K_DK := 0
0x173f…1774 LineComal80 {
0x173f…1774 ptr = 0xad62 // 0x173f @0x0
0x173f…1774 lno = 0x0866 // 0x1741 @0x2
0x173f…1774 at0004 = ╱86╱ LET ╱ // 0x1743 @0x4
0x173f…1774 at0005 = ╱4b╱K╱ // 0x1744 @0x5
0x173f…1774 at0006 = ╱5f╱_╱ // 0x1745 @0x6
0x173f…1774 at0007 = ╱42╱B╱ // 0x1746 @0x7
0x173f…1774 at0008 = ╱4e╱N╱ // 0x1747 @0x8
0x173f…1774 at0009 = ╱52╱R╱ // 0x1748 @0x9
0x173f…1774 at000a = ╱ef╱$╱ // 0x1749 @0xa
0x173f…1774 at000b = ╱f0╱ := ╱ // 0x174a @0xb
0x173f…1774 at000c = ╱22╱"╱ // 0x174b @0xc
0x173f…1774 at000d = ╱20╱…╱ // 0x174c @0xd
0x173f…1774 at000e = ╱20╱…╱ // 0x174d @0xe
0x173f…1774 at000f = ╱20╱…╱ // 0x174e @0xf
0x173f…1774 at0010 = ╱20╱…╱ // 0x174f @0x10
0x173f…1774 at0011 = ╱20╱…╱ // 0x1750 @0x11
0x173f…1774 at0012 = ╱20╱…╱ // 0x1751 @0x12
0x173f…1774 at0013 = ╱20╱…╱ // 0x1752 @0x13
0x173f…1774 at0014 = ╱22╱"╱ // 0x1753 @0x14
0x173f…1774 at0015 = ╱ea╱ ; ╱ // 0x1754 @0x15
0x173f…1774 at0016 = ╱4b╱K╱ // 0x1755 @0x16
0x173f…1774 at0017 = ╱5f╱_╱ // 0x1756 @0x17
0x173f…1774 at0018 = ╱54╱T╱ // 0x1757 @0x18
0x173f…1774 at0019 = ╱58╱X╱ // 0x1758 @0x19
0x173f…1774 at001a = ╱54╱T╱ // 0x1759 @0x1a
0x173f…1774 at001b = ╱ef╱$╱ // 0x175a @0x1b
0x173f…1774 at001c = ╱f0╱ := ╱ // 0x175b @0x1c
0x173f…1774 at001d = ╱22╱"╱ // 0x175c @0x1d
0x173f…1774 at001e = ╱22╱"╱ // 0x175d @0x1e
0x173f…1774 at001f = ╱ea╱ ; ╱ // 0x175e @0x1f
0x173f…1774 at0020 = ╱4b╱K╱ // 0x175f @0x20
0x173f…1774 at0021 = ╱5f╱_╱ // 0x1760 @0x21
0x173f…1774 at0022 = ╱42╱B╱ // 0x1761 @0x22
0x173f…1774 at0023 = ╱4b╱K╱ // 0x1762 @0x23
0x173f…1774 at0024 = ╱52╱R╱ // 0x1763 @0x24
0x173f…1774 at0025 = ╱f0╱ := ╱ // 0x1764 @0x25
0x173f…1774 at0026 = ╱30╱0╱ // 0x1765 @0x26
0x173f…1774 at0027 = ╱f20000╱ // 0x1766 @0x27
0x173f…1774 at002a = ╱ea╱ ; ╱ // 0x1769 @0x2a
0x173f…1774 at002b = ╱4b╱K╱ // 0x176a @0x2b
0x173f…1774 at002c = ╱5f╱_╱ // 0x176b @0x2c
0x173f…1774 at002d = ╱44╱D╱ // 0x176c @0x2d
0x173f…1774 at002e = ╱4b╱K╱ // 0x176d @0x2e
0x173f…1774 at002f = ╱f0╱ := ╱ // 0x176e @0x2f
0x173f…1774 at0030 = ╱30╱0╱ // 0x176f @0x30
0x173f…1774 at0031 = ╱f20000╱ // 0x1770 @0x31
0x173f…1774 at0034 = EOL // 0x1773 @0x34
0x173f…1774 }
0x1774…177a ad68 2160 ENDIF
0x1774…177a LineComal80 {
0x1774…177a ptr = 0xad68 // 0x1774 @0x0
0x1774…177a lno = 0x0870 // 0x1776 @0x2
0x1774…177a at0004 = ╱9c╱ ENDIF ╱ // 0x1778 @0x4
0x1774…177a at0005 = EOL // 0x1779 @0x5
0x1774…177a }
0x177a…1781 ad6f 2170 REPEAT
0x177a…1781 LineComal80 {
0x177a…1781 ptr = 0xad6f // 0x177a @0x0
0x177a…1781 lno = 0x087a // 0x177c @0x2
0x177a…1781 at0004 = ╱9721╱ REPEAT ╱ // 0x177e @0x4
0x177a…1781 at0006 = EOL // 0x1780 @0x6
0x177a…1781 }
0x1781…1793 ad81 2180 EXEC SL_FEJLLINIE
0x1781…1793 LineComal80 {
0x1781…1793 ptr = 0xad81 // 0x1781 @0x0
0x1781…1793 lno = 0x0884 // 0x1783 @0x2
0x1781…1793 at0004 = ╱9d╱ EXEC ╱ // 0x1785 @0x4
0x1781…1793 at0005 = ╱53╱S╱ // 0x1786 @0x5
0x1781…1793 at0006 = ╱4c╱L╱ // 0x1787 @0x6
0x1781…1793 at0007 = ╱5f╱_╱ // 0x1788 @0x7
0x1781…1793 at0008 = ╱46╱F╱ // 0x1789 @0x8
0x1781…1793 at0009 = ╱45╱E╱ // 0x178a @0x9
0x1781…1793 at000a = ╱4a╱J╱ // 0x178b @0xa
0x1781…1793 at000b = ╱4c╱L╱ // 0x178c @0xb
0x1781…1793 at000c = ╱4c╱L╱ // 0x178d @0xc
0x1781…1793 at000d = ╱49╱I╱ // 0x178e @0xd
0x1781…1793 at000e = ╱4e╱N╱ // 0x178f @0xe
0x1781…1793 at000f = ╱49╱I╱ // 0x1790 @0xf
0x1781…1793 at0010 = ╱45╱E╱ // 0x1791 @0x10
0x1781…1793 at0011 = EOL // 0x1792 @0x11
0x1781…1793 }
0x1793…17a4 dc00 2190 CURSOR 1,R_SLIN
0x1793…17a4 LineComal80 {
0x1793…17a4 ptr = 0xdc00 // 0x1793 @0x0
0x1793…17a4 lno = 0x088e // 0x1795 @0x2
0x1793…17a4 at0004 = ╱a1╱ CURSOR ╱ // 0x1797 @0x4
0x1793…17a4 at0005 = ╱31╱1╱ // 0x1798 @0x5
0x1793…17a4 at0006 = ╱f20100╱ // 0x1799 @0x6
0x1793…17a4 at0009 = ╱ec╱,╱ // 0x179c @0x9
0x1793…17a4 at000a = ╱52╱R╱ // 0x179d @0xa
0x1793…17a4 at000b = ╱5f╱_╱ // 0x179e @0xb
0x1793…17a4 at000c = ╱53╱S╱ // 0x179f @0xc
0x1793…17a4 at000d = ╱4c╱L╱ // 0x17a0 @0xd
0x1793…17a4 at000e = ╱49╱I╱ // 0x17a1 @0xe
0x1793…17a4 at000f = ╱4e╱N╱ // 0x17a2 @0xf
0x1793…17a4 at0010 = EOL // 0x17a3 @0x10
0x1793…17a4 }
0x17a4…17b7 ada5 2200 PRINT CHR$ (R_LIN,2)
0x17a4…17b7 LineComal80 {
0x17a4…17b7 ptr = 0xada5 // 0x17a4 @0x0
0x17a4…17b7 lno = 0x0898 // 0x17a6 @0x2
0x17a4…17b7 at0004 = ╱92╱ PRINT ╱ // 0x17a8 @0x4
0x17a4…17b7 at0005 = ╱d0╱ CHR$ ╱ // 0x17a9 @0x5
0x17a4…17b7 at0006 = ╱ed╱(╱ // 0x17aa @0x6
0x17a4…17b7 at0007 = ╱52╱R╱ // 0x17ab @0x7
0x17a4…17b7 at0008 = ╱5f╱_╱ // 0x17ac @0x8
0x17a4…17b7 at0009 = ╱4c╱L╱ // 0x17ad @0x9
0x17a4…17b7 at000a = ╱49╱I╱ // 0x17ae @0xa
0x17a4…17b7 at000b = ╱4e╱N╱ // 0x17af @0xb
0x17a4…17b7 at000c = ╱ec╱,╱ // 0x17b0 @0xc
0x17a4…17b7 at000d = ╱32╱2╱ // 0x17b1 @0xd
0x17a4…17b7 at000e = ╱f20200╱ // 0x17b2 @0xe
0x17a4…17b7 at0011 = ╱ee╱)╱ // 0x17b5 @0x11
0x17a4…17b7 at0012 = EOL // 0x17b6 @0x12
0x17a4…17b7 }
0x17b7…17be adac 2210 REPEAT
0x17b7…17be LineComal80 {
0x17b7…17be ptr = 0xadac // 0x17b7 @0x0
0x17b7…17be lno = 0x08a2 // 0x17b9 @0x2
0x17b7…17be at0004 = ╱9722╱ REPEAT ╱ // 0x17bb @0x4
0x17b7…17be at0006 = EOL // 0x17bd @0x6
0x17b7…17be }
0x17be…17cf adbd 2220 CURSOR 4,R_SLIN
0x17be…17cf LineComal80 {
0x17be…17cf ptr = 0xadbd // 0x17be @0x0
0x17be…17cf lno = 0x08ac // 0x17c0 @0x2
0x17be…17cf at0004 = ╱a1╱ CURSOR ╱ // 0x17c2 @0x4
0x17be…17cf at0005 = ╱34╱4╱ // 0x17c3 @0x5
0x17be…17cf at0006 = ╱f20400╱ // 0x17c4 @0x6
0x17be…17cf at0009 = ╱ec╱,╱ // 0x17c7 @0x9
0x17be…17cf at000a = ╱52╱R╱ // 0x17c8 @0xa
0x17be…17cf at000b = ╱5f╱_╱ // 0x17c9 @0xb
0x17be…17cf at000c = ╱53╱S╱ // 0x17ca @0xc
0x17be…17cf at000d = ╱4c╱L╱ // 0x17cb @0xd
0x17be…17cf at000e = ╱49╱I╱ // 0x17cc @0xe
0x17be…17cf at000f = ╱4e╱N╱ // 0x17cd @0xf
0x17be…17cf at0010 = EOL // 0x17ce @0x10
0x17be…17cf }
0x17cf…17de adcc 2230 EDIT "" : K_BNR$
0x17cf…17de LineComal80 {
0x17cf…17de ptr = 0xadcc // 0x17cf @0x0
0x17cf…17de lno = 0x08b6 // 0x17d1 @0x2
0x17cf…17de at0004 = ╱b1╱ EDIT ╱ // 0x17d3 @0x4
0x17cf…17de at0005 = ╱22╱"╱ // 0x17d4 @0x5
0x17cf…17de at0006 = ╱22╱"╱ // 0x17d5 @0x6
0x17cf…17de at0007 = ╱f1╱ : ╱ // 0x17d6 @0x7
0x17cf…17de at0008 = ╱4b╱K╱ // 0x17d7 @0x8
0x17cf…17de at0009 = ╱5f╱_╱ // 0x17d8 @0x9
0x17cf…17de at000a = ╱42╱B╱ // 0x17d9 @0xa
0x17cf…17de at000b = ╱4e╱N╱ // 0x17da @0xb
0x17cf…17de at000c = ╱52╱R╱ // 0x17db @0xc
0x17cf…17de at000d = ╱ef╱$╱ // 0x17dc @0xd
0x17cf…17de at000e = EOL // 0x17dd @0xe
0x17cf…17de }
0x17de…17f0 adde 2240 EXEC SL_FEJLLINIE
0x17de…17f0 LineComal80 {
0x17de…17f0 ptr = 0xadde // 0x17de @0x0
0x17de…17f0 lno = 0x08c0 // 0x17e0 @0x2
0x17de…17f0 at0004 = ╱9d╱ EXEC ╱ // 0x17e2 @0x4
0x17de…17f0 at0005 = ╱53╱S╱ // 0x17e3 @0x5
0x17de…17f0 at0006 = ╱4c╱L╱ // 0x17e4 @0x6
0x17de…17f0 at0007 = ╱5f╱_╱ // 0x17e5 @0x7
0x17de…17f0 at0008 = ╱46╱F╱ // 0x17e6 @0x8
0x17de…17f0 at0009 = ╱45╱E╱ // 0x17e7 @0x9
0x17de…17f0 at000a = ╱4a╱J╱ // 0x17e8 @0xa
0x17de…17f0 at000b = ╱4c╱L╱ // 0x17e9 @0xb
0x17de…17f0 at000c = ╱4c╱L╱ // 0x17ea @0xc
0x17de…17f0 at000d = ╱49╱I╱ // 0x17eb @0xd
0x17de…17f0 at000e = ╱4e╱N╱ // 0x17ec @0xe
0x17de…17f0 at000f = ╱49╱I╱ // 0x17ed @0xf
0x17de…17f0 at0010 = ╱45╱E╱ // 0x17ee @0x10
0x17de…17f0 at0011 = EOL // 0x17ef @0x11
0x17de…17f0 }
0x17f0…1823 ae11 2250 IF _BNR$ = "*****" OR "/" + K_BNR$ + "/" IN "/SLUT/slut/" THEN
0x17f0…1823 LineComal80 {
0x17f0…1823 ptr = 0xae11 // 0x17f0 @0x0
0x17f0…1823 lno = 0x08ca // 0x17f2 @0x2
0x17f0…1823 at0004 = ╱9b234b╱ IF ╱ // 0x17f4 @0x4
0x17f0…1823 at0007 = ╱5f╱_╱ // 0x17f7 @0x7
0x17f0…1823 at0008 = ╱42╱B╱ // 0x17f8 @0x8
0x17f0…1823 at0009 = ╱4e╱N╱ // 0x17f9 @0x9
0x17f0…1823 at000a = ╱52╱R╱ // 0x17fa @0xa
0x17f0…1823 at000b = ╱ef╱$╱ // 0x17fb @0xb
0x17f0…1823 at000c = ╱df╱ = ╱ // 0x17fc @0xc
0x17f0…1823 at000d = ╱22╱"╱ // 0x17fd @0xd
0x17f0…1823 at000e = ╱2a╱*╱ // 0x17fe @0xe
0x17f0…1823 at000f = ╱2a╱*╱ // 0x17ff @0xf
0x17f0…1823 at0010 = ╱2a╱*╱ // 0x1800 @0x10
0x17f0…1823 at0011 = ╱2a╱*╱ // 0x1801 @0x11
0x17f0…1823 at0012 = ╱2a╱*╱ // 0x1802 @0x12
0x17f0…1823 at0013 = ╱22╱"╱ // 0x1803 @0x13
0x17f0…1823 at0014 = ╱d8╱ OR ╱ // 0x1804 @0x14
0x17f0…1823 at0015 = ╱22╱"╱ // 0x1805 @0x15
0x17f0…1823 at0016 = ╱2f╱/╱ // 0x1806 @0x16
0x17f0…1823 at0017 = ╱22╱"╱ // 0x1807 @0x17
0x17f0…1823 at0018 = ╱eb╱ + ╱ // 0x1808 @0x18
0x17f0…1823 at0019 = ╱4b╱K╱ // 0x1809 @0x19
0x17f0…1823 at001a = ╱5f╱_╱ // 0x180a @0x1a
0x17f0…1823 at001b = ╱42╱B╱ // 0x180b @0x1b
0x17f0…1823 at001c = ╱4e╱N╱ // 0x180c @0x1c
0x17f0…1823 at001d = ╱52╱R╱ // 0x180d @0x1d
0x17f0…1823 at001e = ╱ef╱$╱ // 0x180e @0x1e
0x17f0…1823 at001f = ╱eb╱ + ╱ // 0x180f @0x1f
0x17f0…1823 at0020 = ╱22╱"╱ // 0x1810 @0x20
0x17f0…1823 at0021 = ╱2f╱/╱ // 0x1811 @0x21
0x17f0…1823 at0022 = ╱22╱"╱ // 0x1812 @0x22
0x17f0…1823 at0023 = ╱dc╱ IN ╱ // 0x1813 @0x23
0x17f0…1823 at0024 = ╱22╱"╱ // 0x1814 @0x24
0x17f0…1823 at0025 = ╱2f╱/╱ // 0x1815 @0x25
0x17f0…1823 at0026 = ╱53╱S╱ // 0x1816 @0x26
0x17f0…1823 at0027 = ╱4c╱L╱ // 0x1817 @0x27
0x17f0…1823 at0028 = ╱55╱U╱ // 0x1818 @0x28
0x17f0…1823 at0029 = ╱54╱T╱ // 0x1819 @0x29
0x17f0…1823 at002a = ╱2f╱/╱ // 0x181a @0x2a
0x17f0…1823 at002b = ╱73╱s╱ // 0x181b @0x2b
0x17f0…1823 at002c = ╱6c╱l╱ // 0x181c @0x2c
0x17f0…1823 at002d = ╱75╱u╱ // 0x181d @0x2d
0x17f0…1823 at002e = ╱74╱t╱ // 0x181e @0x2e
0x17f0…1823 at002f = ╱2f╱/╱ // 0x181f @0x2f
0x17f0…1823 at0030 = ╱22╱"╱ // 0x1820 @0x30
0x17f0…1823 at0031 = ╱b5╱ THEN ╱ // 0x1821 @0x31
0x17f0…1823 at0032 = EOL // 0x1822 @0x32
0x17f0…1823 }
0x1823…1830 ae1e 2260 LET OK := TRUE
0x1823…1830 LineComal80 {
0x1823…1830 ptr = 0xae1e // 0x1823 @0x0
0x1823…1830 lno = 0x08d4 // 0x1825 @0x2
0x1823…1830 at0004 = ╱86╱ LET ╱ // 0x1827 @0x4
0x1823…1830 at0005 = ╱4f╱O╱ // 0x1828 @0x5
0x1823…1830 at0006 = ╱4b╱K╱ // 0x1829 @0x6
0x1823…1830 at0007 = ╱f0╱ := ╱ // 0x182a @0x7
0x1823…1830 at0008 = ╱54╱T╱ // 0x182b @0x8
0x1823…1830 at0009 = ╱52╱R╱ // 0x182c @0x9
0x1823…1830 at000a = ╱55╱U╱ // 0x182d @0xa
0x1823…1830 at000b = ╱45╱E╱ // 0x182e @0xb
0x1823…1830 at000c = EOL // 0x182f @0xc
0x1823…1830 }
0x1830…1837 ae25 2270 ELSE
0x1830…1837 LineComal80 {
0x1830…1837 ptr = 0xae25 // 0x1830 @0x0
0x1830…1837 lno = 0x08de // 0x1832 @0x2
0x1830…1837 at0004 = ╱9a24╱ ELSE ╱ // 0x1834 @0x4
0x1830…1837 at0006 = EOL // 0x1836 @0x6
0x1830…1837 }
0x1837…1850 ae3e 2280 EXEC TAL_CONTROL(K_BNR$)
0x1837…1850 LineComal80 {
0x1837…1850 ptr = 0xae3e // 0x1837 @0x0
0x1837…1850 lno = 0x08e8 // 0x1839 @0x2
0x1837…1850 at0004 = ╱9d╱ EXEC ╱ // 0x183b @0x4
0x1837…1850 at0005 = ╱54╱T╱ // 0x183c @0x5
0x1837…1850 at0006 = ╱41╱A╱ // 0x183d @0x6
0x1837…1850 at0007 = ╱4c╱L╱ // 0x183e @0x7
0x1837…1850 at0008 = ╱5f╱_╱ // 0x183f @0x8
0x1837…1850 at0009 = ╱43╱C╱ // 0x1840 @0x9
0x1837…1850 at000a = ╱4f╱O╱ // 0x1841 @0xa
0x1837…1850 at000b = ╱4e╱N╱ // 0x1842 @0xb
0x1837…1850 at000c = ╱54╱T╱ // 0x1843 @0xc
0x1837…1850 at000d = ╱52╱R╱ // 0x1844 @0xd
0x1837…1850 at000e = ╱4f╱O╱ // 0x1845 @0xe
0x1837…1850 at000f = ╱4c╱L╱ // 0x1846 @0xf
0x1837…1850 at0010 = ╱ed╱(╱ // 0x1847 @0x10
0x1837…1850 at0011 = ╱4b╱K╱ // 0x1848 @0x11
0x1837…1850 at0012 = ╱5f╱_╱ // 0x1849 @0x12
0x1837…1850 at0013 = ╱42╱B╱ // 0x184a @0x13
0x1837…1850 at0014 = ╱4e╱N╱ // 0x184b @0x14
0x1837…1850 at0015 = ╱52╱R╱ // 0x184c @0x15
0x1837…1850 at0016 = ╱ef╱$╱ // 0x184d @0x16
0x1837…1850 at0017 = ╱ee╱)╱ // 0x184e @0x17
0x1837…1850 at0018 = EOL // 0x184f @0x18
0x1837…1850 }
0x1850…1878 ae66 2290 IF NOT OK THEN EXEC FEJL("Ulovlig bilagsnummer")
0x1850…1878 LineComal80 {
0x1850…1878 ptr = 0xae66 // 0x1850 @0x0
0x1850…1878 lno = 0x08f2 // 0x1852 @0x2
0x1850…1878 at0004 = ╱8200╱ IF ╱ // 0x1854 @0x4
0x1850…1878 at0006 = ╱d7╱ NOT ╱ // 0x1856 @0x6
0x1850…1878 at0007 = ╱4f╱O╱ // 0x1857 @0x7
0x1850…1878 at0008 = ╱4b╱K╱ // 0x1858 @0x8
0x1850…1878 at0009 = ╱b5╱ THEN ╱ // 0x1859 @0x9
0x1850…1878 at000a = ╱9d╱ EXEC ╱ // 0x185a @0xa
0x1850…1878 at000b = ╱46╱F╱ // 0x185b @0xb
0x1850…1878 at000c = ╱45╱E╱ // 0x185c @0xc
0x1850…1878 at000d = ╱4a╱J╱ // 0x185d @0xd
0x1850…1878 at000e = ╱4c╱L╱ // 0x185e @0xe
0x1850…1878 at000f = ╱ed╱(╱ // 0x185f @0xf
0x1850…1878 at0010 = ╱22╱"╱ // 0x1860 @0x10
0x1850…1878 at0011 = ╱55╱U╱ // 0x1861 @0x11
0x1850…1878 at0012 = ╱6c╱l╱ // 0x1862 @0x12
0x1850…1878 at0013 = ╱6f╱o╱ // 0x1863 @0x13
0x1850…1878 at0014 = ╱76╱v╱ // 0x1864 @0x14
0x1850…1878 at0015 = ╱6c╱l╱ // 0x1865 @0x15
0x1850…1878 at0016 = ╱69╱i╱ // 0x1866 @0x16
0x1850…1878 at0017 = ╱67╱g╱ // 0x1867 @0x17
0x1850…1878 at0018 = ╱20╱…╱ // 0x1868 @0x18
0x1850…1878 at0019 = ╱62╱b╱ // 0x1869 @0x19
0x1850…1878 at001a = ╱69╱i╱ // 0x186a @0x1a
0x1850…1878 at001b = ╱6c╱l╱ // 0x186b @0x1b
0x1850…1878 at001c = ╱61╱a╱ // 0x186c @0x1c
0x1850…1878 at001d = ╱67╱g╱ // 0x186d @0x1d
0x1850…1878 at001e = ╱73╱s╱ // 0x186e @0x1e
0x1850…1878 at001f = ╱6e╱n╱ // 0x186f @0x1f
0x1850…1878 at0020 = ╱75╱u╱ // 0x1870 @0x20
0x1850…1878 at0021 = ╱6d╱m╱ // 0x1871 @0x21
0x1850…1878 at0022 = ╱6d╱m╱ // 0x1872 @0x22
0x1850…1878 at0023 = ╱65╱e╱ // 0x1873 @0x23
0x1850…1878 at0024 = ╱72╱r╱ // 0x1874 @0x24
0x1850…1878 at0025 = ╱22╱"╱ // 0x1875 @0x25
0x1850…1878 at0026 = ╱ee╱)╱ // 0x1876 @0x26
0x1850…1878 at0027 = EOL // 0x1877 @0x27
0x1850…1878 }
0x1878…187e ae6c 2300 ENDIF
0x1878…187e LineComal80 {
0x1878…187e ptr = 0xae6c // 0x1878 @0x0
0x1878…187e lno = 0x08fc // 0x187a @0x2
0x1878…187e at0004 = ╱9c╱ ENDIF ╱ // 0x187c @0x4
0x1878…187e at0005 = EOL // 0x187d @0x5
0x1878…187e }
0x187e…1886 ae74 2310 UNTIL OK
0x187e…1886 LineComal80 {
0x187e…1886 ptr = 0xae74 // 0x187e @0x0
0x187e…1886 lno = 0x0906 // 0x1880 @0x2
0x187e…1886 at0004 = ╱98╱ UNTIL ╱ // 0x1882 @0x4
0x187e…1886 at0005 = ╱4f╱O╱ // 0x1883 @0x5
0x187e…1886 at0006 = ╱4b╱K╱ // 0x1884 @0x6
0x187e…1886 at0007 = EOL // 0x1885 @0x7
0x187e…1886 }
0x1886…1897 ae85 2320 CURSOR 4,R_SLIN
0x1886…1897 LineComal80 {
0x1886…1897 ptr = 0xae85 // 0x1886 @0x0
0x1886…1897 lno = 0x0910 // 0x1888 @0x2
0x1886…1897 at0004 = ╱a1╱ CURSOR ╱ // 0x188a @0x4
0x1886…1897 at0005 = ╱34╱4╱ // 0x188b @0x5
0x1886…1897 at0006 = ╱f20400╱ // 0x188c @0x6
0x1886…1897 at0009 = ╱ec╱,╱ // 0x188f @0x9
0x1886…1897 at000a = ╱52╱R╱ // 0x1890 @0xa
0x1886…1897 at000b = ╱5f╱_╱ // 0x1891 @0xb
0x1886…1897 at000c = ╱53╱S╱ // 0x1892 @0xc
0x1886…1897 at000d = ╱4c╱L╱ // 0x1893 @0xd
0x1886…1897 at000e = ╱49╱I╱ // 0x1894 @0xe
0x1886…1897 at000f = ╱4e╱N╱ // 0x1895 @0xf
0x1886…1897 at0010 = EOL // 0x1896 @0x10
0x1886…1897 }
0x1897…18ac ae9a 2330 PRINT SPC$(1 : 5)
0x1897…18ac LineComal80 {
0x1897…18ac ptr = 0xae9a // 0x1897 @0x0
0x1897…18ac lno = 0x091a // 0x1899 @0x2
0x1897…18ac at0004 = ╱92╱ PRINT ╱ // 0x189b @0x4
0x1897…18ac at0005 = ╱53╱S╱ // 0x189c @0x5
0x1897…18ac at0006 = ╱50╱P╱ // 0x189d @0x6
0x1897…18ac at0007 = ╱43╱C╱ // 0x189e @0x7
0x1897…18ac at0008 = ╱ef╱$╱ // 0x189f @0x8
0x1897…18ac at0009 = ╱ed╱(╱ // 0x18a0 @0x9
0x1897…18ac at000a = ╱31╱1╱ // 0x18a1 @0xa
0x1897…18ac at000b = ╱f20100╱ // 0x18a2 @0xb
0x1897…18ac at000e = ╱f1╱ : ╱ // 0x18a5 @0xe
0x1897…18ac at000f = ╱35╱5╱ // 0x18a6 @0xf
0x1897…18ac at0010 = ╱f20500╱ // 0x18a7 @0x10
0x1897…18ac at0013 = ╱ee╱)╱ // 0x18aa @0x13
0x1897…18ac at0014 = EOL // 0x18ab @0x14
0x1897…18ac }
0x18ac…18bd aeab 2340 CURSOR 4,R_SLIN
0x18ac…18bd LineComal80 {
0x18ac…18bd ptr = 0xaeab // 0x18ac @0x0
0x18ac…18bd lno = 0x0924 // 0x18ae @0x2
0x18ac…18bd at0004 = ╱a1╱ CURSOR ╱ // 0x18b0 @0x4
0x18ac…18bd at0005 = ╱34╱4╱ // 0x18b1 @0x5
0x18ac…18bd at0006 = ╱f20400╱ // 0x18b2 @0x6
0x18ac…18bd at0009 = ╱ec╱,╱ // 0x18b5 @0x9
0x18ac…18bd at000a = ╱52╱R╱ // 0x18b6 @0xa
0x18ac…18bd at000b = ╱5f╱_╱ // 0x18b7 @0xb
0x18ac…18bd at000c = ╱53╱S╱ // 0x18b8 @0xc
0x18ac…18bd at000d = ╱4c╱L╱ // 0x18b9 @0xd
0x18ac…18bd at000e = ╱49╱I╱ // 0x18ba @0xe
0x18ac…18bd at000f = ╱4e╱N╱ // 0x18bb @0xf
0x18ac…18bd at0010 = EOL // 0x18bc @0x10
0x18ac…18bd }
0x18bd…18f0 aede 2350 IF _BNR$ = "*****" OR "/" + K_BNR$ + "/" IN "/SLUT/slut/" THEN
0x18bd…18f0 LineComal80 {
0x18bd…18f0 ptr = 0xaede // 0x18bd @0x0
0x18bd…18f0 lno = 0x092e // 0x18bf @0x2
0x18bd…18f0 at0004 = ╱9b254b╱ IF ╱ // 0x18c1 @0x4
0x18bd…18f0 at0007 = ╱5f╱_╱ // 0x18c4 @0x7
0x18bd…18f0 at0008 = ╱42╱B╱ // 0x18c5 @0x8
0x18bd…18f0 at0009 = ╱4e╱N╱ // 0x18c6 @0x9
0x18bd…18f0 at000a = ╱52╱R╱ // 0x18c7 @0xa
0x18bd…18f0 at000b = ╱ef╱$╱ // 0x18c8 @0xb
0x18bd…18f0 at000c = ╱df╱ = ╱ // 0x18c9 @0xc
0x18bd…18f0 at000d = ╱22╱"╱ // 0x18ca @0xd
0x18bd…18f0 at000e = ╱2a╱*╱ // 0x18cb @0xe
0x18bd…18f0 at000f = ╱2a╱*╱ // 0x18cc @0xf
0x18bd…18f0 at0010 = ╱2a╱*╱ // 0x18cd @0x10
0x18bd…18f0 at0011 = ╱2a╱*╱ // 0x18ce @0x11
0x18bd…18f0 at0012 = ╱2a╱*╱ // 0x18cf @0x12
0x18bd…18f0 at0013 = ╱22╱"╱ // 0x18d0 @0x13
0x18bd…18f0 at0014 = ╱d8╱ OR ╱ // 0x18d1 @0x14
0x18bd…18f0 at0015 = ╱22╱"╱ // 0x18d2 @0x15
0x18bd…18f0 at0016 = ╱2f╱/╱ // 0x18d3 @0x16
0x18bd…18f0 at0017 = ╱22╱"╱ // 0x18d4 @0x17
0x18bd…18f0 at0018 = ╱eb╱ + ╱ // 0x18d5 @0x18
0x18bd…18f0 at0019 = ╱4b╱K╱ // 0x18d6 @0x19
0x18bd…18f0 at001a = ╱5f╱_╱ // 0x18d7 @0x1a
0x18bd…18f0 at001b = ╱42╱B╱ // 0x18d8 @0x1b
0x18bd…18f0 at001c = ╱4e╱N╱ // 0x18d9 @0x1c
0x18bd…18f0 at001d = ╱52╱R╱ // 0x18da @0x1d
0x18bd…18f0 at001e = ╱ef╱$╱ // 0x18db @0x1e
0x18bd…18f0 at001f = ╱eb╱ + ╱ // 0x18dc @0x1f
0x18bd…18f0 at0020 = ╱22╱"╱ // 0x18dd @0x20
0x18bd…18f0 at0021 = ╱2f╱/╱ // 0x18de @0x21
0x18bd…18f0 at0022 = ╱22╱"╱ // 0x18df @0x22
0x18bd…18f0 at0023 = ╱dc╱ IN ╱ // 0x18e0 @0x23
0x18bd…18f0 at0024 = ╱22╱"╱ // 0x18e1 @0x24
0x18bd…18f0 at0025 = ╱2f╱/╱ // 0x18e2 @0x25
0x18bd…18f0 at0026 = ╱53╱S╱ // 0x18e3 @0x26
0x18bd…18f0 at0027 = ╱4c╱L╱ // 0x18e4 @0x27
0x18bd…18f0 at0028 = ╱55╱U╱ // 0x18e5 @0x28
0x18bd…18f0 at0029 = ╱54╱T╱ // 0x18e6 @0x29
0x18bd…18f0 at002a = ╱2f╱/╱ // 0x18e7 @0x2a
0x18bd…18f0 at002b = ╱73╱s╱ // 0x18e8 @0x2b
0x18bd…18f0 at002c = ╱6c╱l╱ // 0x18e9 @0x2c
0x18bd…18f0 at002d = ╱75╱u╱ // 0x18ea @0x2d
0x18bd…18f0 at002e = ╱74╱t╱ // 0x18eb @0x2e
0x18bd…18f0 at002f = ╱2f╱/╱ // 0x18ec @0x2f
0x18bd…18f0 at0030 = ╱22╱"╱ // 0x18ed @0x30
0x18bd…18f0 at0031 = ╱b5╱ THEN ╱ // 0x18ee @0x31
0x18bd…18f0 at0032 = EOL // 0x18ef @0x32
0x18bd…18f0 }
0x18f0…1914 af02 2360 IF /" + K_BNR$ + "/" IN "/SLUT/slut/" THEN
0x18f0…1914 LineComal80 {
0x18f0…1914 ptr = 0xaf02 // 0x18f0 @0x0
0x18f0…1914 lno = 0x0938 // 0x18f2 @0x2
0x18f0…1914 at0004 = ╱9b2622╱ IF ╱ // 0x18f4 @0x4
0x18f0…1914 at0007 = ╱2f╱/╱ // 0x18f7 @0x7
0x18f0…1914 at0008 = ╱22╱"╱ // 0x18f8 @0x8
0x18f0…1914 at0009 = ╱eb╱ + ╱ // 0x18f9 @0x9
0x18f0…1914 at000a = ╱4b╱K╱ // 0x18fa @0xa
0x18f0…1914 at000b = ╱5f╱_╱ // 0x18fb @0xb
0x18f0…1914 at000c = ╱42╱B╱ // 0x18fc @0xc
0x18f0…1914 at000d = ╱4e╱N╱ // 0x18fd @0xd
0x18f0…1914 at000e = ╱52╱R╱ // 0x18fe @0xe
0x18f0…1914 at000f = ╱ef╱$╱ // 0x18ff @0xf
0x18f0…1914 at0010 = ╱eb╱ + ╱ // 0x1900 @0x10
0x18f0…1914 at0011 = ╱22╱"╱ // 0x1901 @0x11
0x18f0…1914 at0012 = ╱2f╱/╱ // 0x1902 @0x12
0x18f0…1914 at0013 = ╱22╱"╱ // 0x1903 @0x13
0x18f0…1914 at0014 = ╱dc╱ IN ╱ // 0x1904 @0x14
0x18f0…1914 at0015 = ╱22╱"╱ // 0x1905 @0x15
0x18f0…1914 at0016 = ╱2f╱/╱ // 0x1906 @0x16
0x18f0…1914 at0017 = ╱53╱S╱ // 0x1907 @0x17
0x18f0…1914 at0018 = ╱4c╱L╱ // 0x1908 @0x18
0x18f0…1914 at0019 = ╱55╱U╱ // 0x1909 @0x19
0x18f0…1914 at001a = ╱54╱T╱ // 0x190a @0x1a
0x18f0…1914 at001b = ╱2f╱/╱ // 0x190b @0x1b
0x18f0…1914 at001c = ╱73╱s╱ // 0x190c @0x1c
0x18f0…1914 at001d = ╱6c╱l╱ // 0x190d @0x1d
0x18f0…1914 at001e = ╱75╱u╱ // 0x190e @0x1e
0x18f0…1914 at001f = ╱74╱t╱ // 0x190f @0x1f
0x18f0…1914 at0020 = ╱2f╱/╱ // 0x1910 @0x20
0x18f0…1914 at0021 = ╱22╱"╱ // 0x1911 @0x21
0x18f0…1914 at0022 = ╱b5╱ THEN ╱ // 0x1912 @0x22
0x18f0…1914 at0023 = EOL // 0x1913 @0x23
0x18f0…1914 }
0x1914…1949 af37 2370 LET SVAR$ := "S" ; K_BNR$ := "*****" ; K_HØJREC := K_HØJREC - 1
0x1914…1949 LineComal80 {
0x1914…1949 ptr = 0xaf37 // 0x1914 @0x0
0x1914…1949 lno = 0x0942 // 0x1916 @0x2
0x1914…1949 at0004 = ╱86╱ LET ╱ // 0x1918 @0x4
0x1914…1949 at0005 = ╱53╱S╱ // 0x1919 @0x5
0x1914…1949 at0006 = ╱56╱V╱ // 0x191a @0x6
0x1914…1949 at0007 = ╱41╱A╱ // 0x191b @0x7
0x1914…1949 at0008 = ╱52╱R╱ // 0x191c @0x8
0x1914…1949 at0009 = ╱ef╱$╱ // 0x191d @0x9
0x1914…1949 at000a = ╱f0╱ := ╱ // 0x191e @0xa
0x1914…1949 at000b = ╱22╱"╱ // 0x191f @0xb
0x1914…1949 at000c = ╱53╱S╱ // 0x1920 @0xc
0x1914…1949 at000d = ╱22╱"╱ // 0x1921 @0xd
0x1914…1949 at000e = ╱ea╱ ; ╱ // 0x1922 @0xe
0x1914…1949 at000f = ╱4b╱K╱ // 0x1923 @0xf
0x1914…1949 at0010 = ╱5f╱_╱ // 0x1924 @0x10
0x1914…1949 at0011 = ╱42╱B╱ // 0x1925 @0x11
0x1914…1949 at0012 = ╱4e╱N╱ // 0x1926 @0x12
0x1914…1949 at0013 = ╱52╱R╱ // 0x1927 @0x13
0x1914…1949 at0014 = ╱ef╱$╱ // 0x1928 @0x14
0x1914…1949 at0015 = ╱f0╱ := ╱ // 0x1929 @0x15
0x1914…1949 at0016 = ╱22╱"╱ // 0x192a @0x16
0x1914…1949 at0017 = ╱2a╱*╱ // 0x192b @0x17
0x1914…1949 at0018 = ╱2a╱*╱ // 0x192c @0x18
0x1914…1949 at0019 = ╱2a╱*╱ // 0x192d @0x19
0x1914…1949 at001a = ╱2a╱*╱ // 0x192e @0x1a
0x1914…1949 at001b = ╱2a╱*╱ // 0x192f @0x1b
0x1914…1949 at001c = ╱22╱"╱ // 0x1930 @0x1c
0x1914…1949 at001d = ╱ea╱ ; ╱ // 0x1931 @0x1d
0x1914…1949 at001e = ╱4b╱K╱ // 0x1932 @0x1e
0x1914…1949 at001f = ╱5f╱_╱ // 0x1933 @0x1f
0x1914…1949 at0020 = ╱48╱H╱ // 0x1934 @0x20
0x1914…1949 at0021 = ╱5c╱Ø╱ // 0x1935 @0x21
0x1914…1949 at0022 = ╱4a╱J╱ // 0x1936 @0x22
0x1914…1949 at0023 = ╱52╱R╱ // 0x1937 @0x23
0x1914…1949 at0024 = ╱45╱E╱ // 0x1938 @0x24
0x1914…1949 at0025 = ╱43╱C╱ // 0x1939 @0x25
0x1914…1949 at0026 = ╱f0╱ := ╱ // 0x193a @0x26
0x1914…1949 at0027 = ╱4b╱K╱ // 0x193b @0x27
0x1914…1949 at0028 = ╱5f╱_╱ // 0x193c @0x28
0x1914…1949 at0029 = ╱48╱H╱ // 0x193d @0x29
0x1914…1949 at002a = ╱5c╱Ø╱ // 0x193e @0x2a
0x1914…1949 at002b = ╱4a╱J╱ // 0x193f @0x2b
0x1914…1949 at002c = ╱52╱R╱ // 0x1940 @0x2c
0x1914…1949 at002d = ╱45╱E╱ // 0x1941 @0x2d
0x1914…1949 at002e = ╱43╱C╱ // 0x1942 @0x2e
0x1914…1949 at002f = ╱e6╱ - ╱ // 0x1943 @0x2f
0x1914…1949 at0030 = ╱31╱1╱ // 0x1944 @0x30
0x1914…1949 at0031 = ╱f20100╱ // 0x1945 @0x31
0x1914…1949 at0034 = EOL // 0x1948 @0x34
0x1914…1949 }
0x1949…194f af3d 2380 ENDIF
0x1949…194f LineComal80 {
0x1949…194f ptr = 0xaf3d // 0x1949 @0x0
0x1949…194f lno = 0x094c // 0x194b @0x2
0x1949…194f at0004 = ╱9c╱ ENDIF ╱ // 0x194d @0x4
0x1949…194f at0005 = EOL // 0x194e @0x5
0x1949…194f }
0x194f…1965 af53 2390 PRINT SPC$(1 : 76)
0x194f…1965 LineComal80 {
0x194f…1965 ptr = 0xaf53 // 0x194f @0x0
0x194f…1965 lno = 0x0956 // 0x1951 @0x2
0x194f…1965 at0004 = ╱92╱ PRINT ╱ // 0x1953 @0x4
0x194f…1965 at0005 = ╱53╱S╱ // 0x1954 @0x5
0x194f…1965 at0006 = ╱50╱P╱ // 0x1955 @0x6
0x194f…1965 at0007 = ╱43╱C╱ // 0x1956 @0x7
0x194f…1965 at0008 = ╱ef╱$╱ // 0x1957 @0x8
0x194f…1965 at0009 = ╱ed╱(╱ // 0x1958 @0x9
0x194f…1965 at000a = ╱31╱1╱ // 0x1959 @0xa
0x194f…1965 at000b = ╱f20100╱ // 0x195a @0xb
0x194f…1965 at000e = ╱f1╱ : ╱ // 0x195d @0xe
0x194f…1965 at000f = ╱37╱7╱ // 0x195e @0xf
0x194f…1965 at0010 = ╱36╱6╱ // 0x195f @0x10
0x194f…1965 at0011 = ╱f24c00╱ // 0x1960 @0x11
0x194f…1965 at0014 = ╱ee╱)╱ // 0x1963 @0x14
0x194f…1965 at0015 = EOL // 0x1964 @0x15
0x194f…1965 }
0x1965…196b af59 2400 EXIT
0x1965…196b LineComal80 {
0x1965…196b ptr = 0xaf59 // 0x1965 @0x0
0x1965…196b lno = 0x0960 // 0x1967 @0x2
0x1965…196b at0004 = ╱99╱ EXIT ╱ // 0x1969 @0x4
0x1965…196b at0005 = EOL // 0x196a @0x5
0x1965…196b }
0x196b…1972 af60 2410 ELSE
0x196b…1972 LineComal80 {
0x196b…1972 ptr = 0xaf60 // 0x196b @0x0
0x196b…1972 lno = 0x096a // 0x196d @0x2
0x196b…1972 at0004 = ╱9a27╱ ELSE ╱ // 0x196f @0x4
0x196b…1972 at0006 = EOL // 0x1971 @0x6
0x196b…1972 }
0x1972…197e af6c 2420 PRINT K_BNR$
0x1972…197e LineComal80 {
0x1972…197e ptr = 0xaf6c // 0x1972 @0x0
0x1972…197e lno = 0x0974 // 0x1974 @0x2
0x1972…197e at0004 = ╱92╱ PRINT ╱ // 0x1976 @0x4
0x1972…197e at0005 = ╱4b╱K╱ // 0x1977 @0x5
0x1972…197e at0006 = ╱5f╱_╱ // 0x1978 @0x6
0x1972…197e at0007 = ╱42╱B╱ // 0x1979 @0x7
0x1972…197e at0008 = ╱4e╱N╱ // 0x197a @0x8
0x1972…197e at0009 = ╱52╱R╱ // 0x197b @0x9
0x1972…197e at000a = ╱ef╱$╱ // 0x197c @0xa
0x1972…197e at000b = EOL // 0x197d @0xb
0x1972…197e }
0x197e…1984 af72 2430 ENDIF
0x197e…1984 LineComal80 {
0x197e…1984 ptr = 0xaf72 // 0x197e @0x0
0x197e…1984 lno = 0x097e // 0x1980 @0x2
0x197e…1984 at0004 = ╱9c╱ ENDIF ╱ // 0x1982 @0x4
0x197e…1984 at0005 = EOL // 0x1983 @0x5
0x197e…1984 }
0x1984…1996 af84 2440 CURSOR 11,R_SLIN
0x1984…1996 LineComal80 {
0x1984…1996 ptr = 0xaf84 // 0x1984 @0x0
0x1984…1996 lno = 0x0988 // 0x1986 @0x2
0x1984…1996 at0004 = ╱a1╱ CURSOR ╱ // 0x1988 @0x4
0x1984…1996 at0005 = ╱31╱1╱ // 0x1989 @0x5
0x1984…1996 at0006 = ╱31╱1╱ // 0x198a @0x6
0x1984…1996 at0007 = ╱f20b00╱ // 0x198b @0x7
0x1984…1996 at000a = ╱ec╱,╱ // 0x198e @0xa
0x1984…1996 at000b = ╱52╱R╱ // 0x198f @0xb
0x1984…1996 at000c = ╱5f╱_╱ // 0x1990 @0xc
0x1984…1996 at000d = ╱53╱S╱ // 0x1991 @0xd
0x1984…1996 at000e = ╱4c╱L╱ // 0x1992 @0xe
0x1984…1996 at000f = ╱49╱I╱ // 0x1993 @0xf
0x1984…1996 at0010 = ╱4e╱N╱ // 0x1994 @0x10
0x1984…1996 at0011 = EOL // 0x1995 @0x11
0x1984…1996 }
0x1996…19a5 d689 2450 EDIT "" : K_TXT$
0x1996…19a5 LineComal80 {
0x1996…19a5 ptr = 0xd689 // 0x1996 @0x0
0x1996…19a5 lno = 0x0992 // 0x1998 @0x2
0x1996…19a5 at0004 = ╱b1╱ EDIT ╱ // 0x199a @0x4
0x1996…19a5 at0005 = ╱22╱"╱ // 0x199b @0x5
0x1996…19a5 at0006 = ╱22╱"╱ // 0x199c @0x6
0x1996…19a5 at0007 = ╱f1╱ : ╱ // 0x199d @0x7
0x1996…19a5 at0008 = ╱4b╱K╱ // 0x199e @0x8
0x1996…19a5 at0009 = ╱5f╱_╱ // 0x199f @0x9
0x1996…19a5 at000a = ╱54╱T╱ // 0x19a0 @0xa
0x1996…19a5 at000b = ╱58╱X╱ // 0x19a1 @0xb
0x1996…19a5 at000c = ╱54╱T╱ // 0x19a2 @0xc
0x1996…19a5 at000d = ╱ef╱$╱ // 0x19a3 @0xd
0x1996…19a5 at000e = EOL // 0x19a4 @0xe
0x1996…19a5 }
0x19a5…19ac af9a 2460 REPEAT
0x19a5…19ac LineComal80 {
0x19a5…19ac ptr = 0xaf9a // 0x19a5 @0x0
0x19a5…19ac lno = 0x099c // 0x19a7 @0x2
0x19a5…19ac at0004 = ╱9728╱ REPEAT ╱ // 0x19a9 @0x4
0x19a5…19ac at0006 = EOL // 0x19ab @0x6
0x19a5…19ac }
0x19ac…19be afac 2470 CURSOR 32,R_SLIN
0x19ac…19be LineComal80 {
0x19ac…19be ptr = 0xafac // 0x19ac @0x0
0x19ac…19be lno = 0x09a6 // 0x19ae @0x2
0x19ac…19be at0004 = ╱a1╱ CURSOR ╱ // 0x19b0 @0x4
0x19ac…19be at0005 = ╱33╱3╱ // 0x19b1 @0x5
0x19ac…19be at0006 = ╱32╱2╱ // 0x19b2 @0x6
0x19ac…19be at0007 = ╱f22000╱ // 0x19b3 @0x7
0x19ac…19be at000a = ╱ec╱,╱ // 0x19b6 @0xa
0x19ac…19be at000b = ╱52╱R╱ // 0x19b7 @0xb
0x19ac…19be at000c = ╱5f╱_╱ // 0x19b8 @0xc
0x19ac…19be at000d = ╱53╱S╱ // 0x19b9 @0xd
0x19ac…19be at000e = ╱4c╱L╱ // 0x19ba @0xe
0x19ac…19be at000f = ╱49╱I╱ // 0x19bb @0xf
0x19ac…19be at0010 = ╱4e╱N╱ // 0x19bc @0x10
0x19ac…19be at0011 = EOL // 0x19bd @0x11
0x19ac…19be }
0x19be…19ce afbc 2480 EDIT "" : K_MKOD$
0x19be…19ce LineComal80 {
0x19be…19ce ptr = 0xafbc // 0x19be @0x0
0x19be…19ce lno = 0x09b0 // 0x19c0 @0x2
0x19be…19ce at0004 = ╱b1╱ EDIT ╱ // 0x19c2 @0x4
0x19be…19ce at0005 = ╱22╱"╱ // 0x19c3 @0x5
0x19be…19ce at0006 = ╱22╱"╱ // 0x19c4 @0x6
0x19be…19ce at0007 = ╱f1╱ : ╱ // 0x19c5 @0x7
0x19be…19ce at0008 = ╱4b╱K╱ // 0x19c6 @0x8
0x19be…19ce at0009 = ╱5f╱_╱ // 0x19c7 @0x9
0x19be…19ce at000a = ╱4d╱M╱ // 0x19c8 @0xa
0x19be…19ce at000b = ╱4b╱K╱ // 0x19c9 @0xb
0x19be…19ce at000c = ╱4f╱O╱ // 0x19ca @0xc
0x19be…19ce at000d = ╱44╱D╱ // 0x19cb @0xd
0x19be…19ce at000e = ╱ef╱$╱ // 0x19cc @0xe
0x19be…19ce at000f = EOL // 0x19cd @0xf
0x19be…19ce }
0x19ce…19e0 afce 2490 EXEC SL_FEJLLINIE
0x19ce…19e0 LineComal80 {
0x19ce…19e0 ptr = 0xafce // 0x19ce @0x0
0x19ce…19e0 lno = 0x09ba // 0x19d0 @0x2
0x19ce…19e0 at0004 = ╱9d╱ EXEC ╱ // 0x19d2 @0x4
0x19ce…19e0 at0005 = ╱53╱S╱ // 0x19d3 @0x5
0x19ce…19e0 at0006 = ╱4c╱L╱ // 0x19d4 @0x6
0x19ce…19e0 at0007 = ╱5f╱_╱ // 0x19d5 @0x7
0x19ce…19e0 at0008 = ╱46╱F╱ // 0x19d6 @0x8
0x19ce…19e0 at0009 = ╱45╱E╱ // 0x19d7 @0x9
0x19ce…19e0 at000a = ╱4a╱J╱ // 0x19d8 @0xa
0x19ce…19e0 at000b = ╱4c╱L╱ // 0x19d9 @0xb
0x19ce…19e0 at000c = ╱4c╱L╱ // 0x19da @0xc
0x19ce…19e0 at000d = ╱49╱I╱ // 0x19db @0xd
0x19ce…19e0 at000e = ╱4e╱N╱ // 0x19dc @0xe
0x19ce…19e0 at000f = ╱49╱I╱ // 0x19dd @0xf
0x19ce…19e0 at0010 = ╱45╱E╱ // 0x19de @0x10
0x19ce…19e0 at0011 = EOL // 0x19df @0x11
0x19ce…19e0 }
0x19e0…19f6 afe4 2500 EXEC ST_BGST(K_MKOD$)
0x19e0…19f6 LineComal80 {
0x19e0…19f6 ptr = 0xafe4 // 0x19e0 @0x0
0x19e0…19f6 lno = 0x09c4 // 0x19e2 @0x2
0x19e0…19f6 at0004 = ╱9d╱ EXEC ╱ // 0x19e4 @0x4
0x19e0…19f6 at0005 = ╱53╱S╱ // 0x19e5 @0x5
0x19e0…19f6 at0006 = ╱54╱T╱ // 0x19e6 @0x6
0x19e0…19f6 at0007 = ╱5f╱_╱ // 0x19e7 @0x7
0x19e0…19f6 at0008 = ╱42╱B╱ // 0x19e8 @0x8
0x19e0…19f6 at0009 = ╱47╱G╱ // 0x19e9 @0x9
0x19e0…19f6 at000a = ╱53╱S╱ // 0x19ea @0xa
0x19e0…19f6 at000b = ╱54╱T╱ // 0x19eb @0xb
0x19e0…19f6 at000c = ╱ed╱(╱ // 0x19ec @0xc
0x19e0…19f6 at000d = ╱4b╱K╱ // 0x19ed @0xd
0x19e0…19f6 at000e = ╱5f╱_╱ // 0x19ee @0xe
0x19e0…19f6 at000f = ╱4d╱M╱ // 0x19ef @0xf
0x19e0…19f6 at0010 = ╱4b╱K╱ // 0x19f0 @0x10
0x19e0…19f6 at0011 = ╱4f╱O╱ // 0x19f1 @0x11
0x19e0…19f6 at0012 = ╱44╱D╱ // 0x19f2 @0x12
0x19e0…19f6 at0013 = ╱ef╱$╱ // 0x19f3 @0x13
0x19e0…19f6 at0014 = ╱ee╱)╱ // 0x19f4 @0x14
0x19e0…19f6 at0015 = EOL // 0x19f5 @0x15
0x19e0…19f6 }
0x19f6…1a30 b01e 2510 IF NOT K_MKOD$ IN "IU " THEN EXEC FEJL("ULOVLIG KODE: '" + K_MKOD$ + "'")
0x19f6…1a30 LineComal80 {
0x19f6…1a30 ptr = 0xb01e // 0x19f6 @0x0
0x19f6…1a30 lno = 0x09ce // 0x19f8 @0x2
0x19f6…1a30 at0004 = ╱8200╱ IF ╱ // 0x19fa @0x4
0x19f6…1a30 at0006 = ╱d7╱ NOT ╱ // 0x19fc @0x6
0x19f6…1a30 at0007 = ╱4b╱K╱ // 0x19fd @0x7
0x19f6…1a30 at0008 = ╱5f╱_╱ // 0x19fe @0x8
0x19f6…1a30 at0009 = ╱4d╱M╱ // 0x19ff @0x9
0x19f6…1a30 at000a = ╱4b╱K╱ // 0x1a00 @0xa
0x19f6…1a30 at000b = ╱4f╱O╱ // 0x1a01 @0xb
0x19f6…1a30 at000c = ╱44╱D╱ // 0x1a02 @0xc
0x19f6…1a30 at000d = ╱ef╱$╱ // 0x1a03 @0xd
0x19f6…1a30 at000e = ╱dc╱ IN ╱ // 0x1a04 @0xe
0x19f6…1a30 at000f = ╱22╱"╱ // 0x1a05 @0xf
0x19f6…1a30 at0010 = ╱49╱I╱ // 0x1a06 @0x10
0x19f6…1a30 at0011 = ╱55╱U╱ // 0x1a07 @0x11
0x19f6…1a30 at0012 = ╱20╱…╱ // 0x1a08 @0x12
0x19f6…1a30 at0013 = ╱22╱"╱ // 0x1a09 @0x13
0x19f6…1a30 at0014 = ╱b5╱ THEN ╱ // 0x1a0a @0x14
0x19f6…1a30 at0015 = ╱9d╱ EXEC ╱ // 0x1a0b @0x15
0x19f6…1a30 at0016 = ╱46╱F╱ // 0x1a0c @0x16
0x19f6…1a30 at0017 = ╱45╱E╱ // 0x1a0d @0x17
0x19f6…1a30 at0018 = ╱4a╱J╱ // 0x1a0e @0x18
0x19f6…1a30 at0019 = ╱4c╱L╱ // 0x1a0f @0x19
0x19f6…1a30 at001a = ╱ed╱(╱ // 0x1a10 @0x1a
0x19f6…1a30 at001b = ╱22╱"╱ // 0x1a11 @0x1b
0x19f6…1a30 at001c = ╱55╱U╱ // 0x1a12 @0x1c
0x19f6…1a30 at001d = ╱4c╱L╱ // 0x1a13 @0x1d
0x19f6…1a30 at001e = ╱4f╱O╱ // 0x1a14 @0x1e
0x19f6…1a30 at001f = ╱56╱V╱ // 0x1a15 @0x1f
0x19f6…1a30 at0020 = ╱4c╱L╱ // 0x1a16 @0x20
0x19f6…1a30 at0021 = ╱49╱I╱ // 0x1a17 @0x21
0x19f6…1a30 at0022 = ╱47╱G╱ // 0x1a18 @0x22
0x19f6…1a30 at0023 = ╱20╱…╱ // 0x1a19 @0x23
0x19f6…1a30 at0024 = ╱4b╱K╱ // 0x1a1a @0x24
0x19f6…1a30 at0025 = ╱4f╱O╱ // 0x1a1b @0x25
0x19f6…1a30 at0026 = ╱44╱D╱ // 0x1a1c @0x26
0x19f6…1a30 at0027 = ╱45╱E╱ // 0x1a1d @0x27
0x19f6…1a30 at0028 = ╱3a╱:╱ // 0x1a1e @0x28
0x19f6…1a30 at0029 = ╱20╱…╱ // 0x1a1f @0x29
0x19f6…1a30 at002a = ╱27╱'╱ // 0x1a20 @0x2a
0x19f6…1a30 at002b = ╱22╱"╱ // 0x1a21 @0x2b
0x19f6…1a30 at002c = ╱eb╱ + ╱ // 0x1a22 @0x2c
0x19f6…1a30 at002d = ╱4b╱K╱ // 0x1a23 @0x2d
0x19f6…1a30 at002e = ╱5f╱_╱ // 0x1a24 @0x2e
0x19f6…1a30 at002f = ╱4d╱M╱ // 0x1a25 @0x2f
0x19f6…1a30 at0030 = ╱4b╱K╱ // 0x1a26 @0x30
0x19f6…1a30 at0031 = ╱4f╱O╱ // 0x1a27 @0x31
0x19f6…1a30 at0032 = ╱44╱D╱ // 0x1a28 @0x32
0x19f6…1a30 at0033 = ╱ef╱$╱ // 0x1a29 @0x33
0x19f6…1a30 at0034 = ╱eb╱ + ╱ // 0x1a2a @0x34
0x19f6…1a30 at0035 = ╱22╱"╱ // 0x1a2b @0x35
0x19f6…1a30 at0036 = ╱27╱'╱ // 0x1a2c @0x36
0x19f6…1a30 at0037 = ╱22╱"╱ // 0x1a2d @0x37
0x19f6…1a30 at0038 = ╱ee╱)╱ // 0x1a2e @0x38
0x19f6…1a30 at0039 = EOL // 0x1a2f @0x39
0x19f6…1a30 }
0x1a30…1a38 b026 2520 UNTIL OK
0x1a30…1a38 LineComal80 {
0x1a30…1a38 ptr = 0xb026 // 0x1a30 @0x0
0x1a30…1a38 lno = 0x09d8 // 0x1a32 @0x2
0x1a30…1a38 at0004 = ╱98╱ UNTIL ╱ // 0x1a34 @0x4
0x1a30…1a38 at0005 = ╱4f╱O╱ // 0x1a35 @0x5
0x1a30…1a38 at0006 = ╱4b╱K╱ // 0x1a36 @0x6
0x1a30…1a38 at0007 = EOL // 0x1a37 @0x7
0x1a30…1a38 }
0x1a38…1a3f b02d 2470 REPEAT
0x1a38…1a3f LineComal80 {
0x1a38…1a3f ptr = 0xb02d // 0x1a38 @0x0
0x1a38…1a3f lno = 0x09a6 // 0x1a3a @0x2
0x1a38…1a3f at0004 = ╱9728╱ REPEAT ╱ // 0x1a3c @0x4
0x1a38…1a3f at0006 = EOL // 0x1a3e @0x6
0x1a38…1a3f }
0x1a3f…1a51 b03f 2480 CURSOR 38,R_SLIN
0x1a3f…1a51 LineComal80 {
0x1a3f…1a51 ptr = 0xb03f // 0x1a3f @0x0
0x1a3f…1a51 lno = 0x09b0 // 0x1a41 @0x2
0x1a3f…1a51 at0004 = ╱a1╱ CURSOR ╱ // 0x1a43 @0x4
0x1a3f…1a51 at0005 = ╱33╱3╱ // 0x1a44 @0x5
0x1a3f…1a51 at0006 = ╱38╱8╱ // 0x1a45 @0x6
0x1a3f…1a51 at0007 = ╱f22600╱ // 0x1a46 @0x7
0x1a3f…1a51 at000a = ╱ec╱,╱ // 0x1a49 @0xa
0x1a3f…1a51 at000b = ╱52╱R╱ // 0x1a4a @0xb
0x1a3f…1a51 at000c = ╱5f╱_╱ // 0x1a4b @0xc
0x1a3f…1a51 at000d = ╱53╱S╱ // 0x1a4c @0xd
0x1a3f…1a51 at000e = ╱4c╱L╱ // 0x1a4d @0xe
0x1a3f…1a51 at000f = ╱49╱I╱ // 0x1a4e @0xf
0x1a3f…1a51 at0010 = ╱4e╱N╱ // 0x1a4f @0x10
0x1a3f…1a51 at0011 = EOL // 0x1a50 @0x11
0x1a3f…1a51 }
0x1a51…1a61 b04f 2490 EDIT "" : K_LKOD$
0x1a51…1a61 LineComal80 {
0x1a51…1a61 ptr = 0xb04f // 0x1a51 @0x0
0x1a51…1a61 lno = 0x09ba // 0x1a53 @0x2
0x1a51…1a61 at0004 = ╱b1╱ EDIT ╱ // 0x1a55 @0x4
0x1a51…1a61 at0005 = ╱22╱"╱ // 0x1a56 @0x5
0x1a51…1a61 at0006 = ╱22╱"╱ // 0x1a57 @0x6
0x1a51…1a61 at0007 = ╱f1╱ : ╱ // 0x1a58 @0x7
0x1a51…1a61 at0008 = ╱4b╱K╱ // 0x1a59 @0x8
0x1a51…1a61 at0009 = ╱5f╱_╱ // 0x1a5a @0x9
0x1a51…1a61 at000a = ╱4c╱L╱ // 0x1a5b @0xa
0x1a51…1a61 at000b = ╱4b╱K╱ // 0x1a5c @0xb
0x1a51…1a61 at000c = ╱4f╱O╱ // 0x1a5d @0xc
0x1a51…1a61 at000d = ╱44╱D╱ // 0x1a5e @0xd
0x1a51…1a61 at000e = ╱ef╱$╱ // 0x1a5f @0xe
0x1a51…1a61 at000f = EOL // 0x1a60 @0xf
0x1a51…1a61 }
0x1a61…1a73 b061 2500 EXEC SL_FEJLLINIE
0x1a61…1a73 LineComal80 {
0x1a61…1a73 ptr = 0xb061 // 0x1a61 @0x0
0x1a61…1a73 lno = 0x09c4 // 0x1a63 @0x2
0x1a61…1a73 at0004 = ╱9d╱ EXEC ╱ // 0x1a65 @0x4
0x1a61…1a73 at0005 = ╱53╱S╱ // 0x1a66 @0x5
0x1a61…1a73 at0006 = ╱4c╱L╱ // 0x1a67 @0x6
0x1a61…1a73 at0007 = ╱5f╱_╱ // 0x1a68 @0x7
0x1a61…1a73 at0008 = ╱46╱F╱ // 0x1a69 @0x8
0x1a61…1a73 at0009 = ╱45╱E╱ // 0x1a6a @0x9
0x1a61…1a73 at000a = ╱4a╱J╱ // 0x1a6b @0xa
0x1a61…1a73 at000b = ╱4c╱L╱ // 0x1a6c @0xb
0x1a61…1a73 at000c = ╱4c╱L╱ // 0x1a6d @0xc
0x1a61…1a73 at000d = ╱49╱I╱ // 0x1a6e @0xd
0x1a61…1a73 at000e = ╱4e╱N╱ // 0x1a6f @0xe
0x1a61…1a73 at000f = ╱49╱I╱ // 0x1a70 @0xf
0x1a61…1a73 at0010 = ╱45╱E╱ // 0x1a71 @0x10
0x1a61…1a73 at0011 = EOL // 0x1a72 @0x11
0x1a61…1a73 }
0x1a73…1a89 b077 2510 EXEC ST_BGST(K_LKOD$)
0x1a73…1a89 LineComal80 {
0x1a73…1a89 ptr = 0xb077 // 0x1a73 @0x0
0x1a73…1a89 lno = 0x09ce // 0x1a75 @0x2
0x1a73…1a89 at0004 = ╱9d╱ EXEC ╱ // 0x1a77 @0x4
0x1a73…1a89 at0005 = ╱53╱S╱ // 0x1a78 @0x5
0x1a73…1a89 at0006 = ╱54╱T╱ // 0x1a79 @0x6
0x1a73…1a89 at0007 = ╱5f╱_╱ // 0x1a7a @0x7
0x1a73…1a89 at0008 = ╱42╱B╱ // 0x1a7b @0x8
0x1a73…1a89 at0009 = ╱47╱G╱ // 0x1a7c @0x9
0x1a73…1a89 at000a = ╱53╱S╱ // 0x1a7d @0xa
0x1a73…1a89 at000b = ╱54╱T╱ // 0x1a7e @0xb
0x1a73…1a89 at000c = ╱ed╱(╱ // 0x1a7f @0xc
0x1a73…1a89 at000d = ╱4b╱K╱ // 0x1a80 @0xd
0x1a73…1a89 at000e = ╱5f╱_╱ // 0x1a81 @0xe
0x1a73…1a89 at000f = ╱4c╱L╱ // 0x1a82 @0xf
0x1a73…1a89 at0010 = ╱4b╱K╱ // 0x1a83 @0x10
0x1a73…1a89 at0011 = ╱4f╱O╱ // 0x1a84 @0x11
0x1a73…1a89 at0012 = ╱44╱D╱ // 0x1a85 @0x12
0x1a73…1a89 at0013 = ╱ef╱$╱ // 0x1a86 @0x13
0x1a73…1a89 at0014 = ╱ee╱)╱ // 0x1a87 @0x14
0x1a73…1a89 at0015 = EOL // 0x1a88 @0x15
0x1a73…1a89 }
0x1a89…1aab b099 2520 IF "/" + K_LKOD$ + "/" IN "/K/B/G/" THEN
0x1a89…1aab LineComal80 {
0x1a89…1aab ptr = 0xb099 // 0x1a89 @0x0
0x1a89…1aab lno = 0x09d8 // 0x1a8b @0x2
0x1a89…1aab at0004 = ╱9b29d7╱ IF ╱ // 0x1a8d @0x4
0x1a89…1aab at0007 = ╱22╱"╱ // 0x1a90 @0x7
0x1a89…1aab at0008 = ╱2f╱/╱ // 0x1a91 @0x8
0x1a89…1aab at0009 = ╱22╱"╱ // 0x1a92 @0x9
0x1a89…1aab at000a = ╱eb╱ + ╱ // 0x1a93 @0xa
0x1a89…1aab at000b = ╱4b╱K╱ // 0x1a94 @0xb
0x1a89…1aab at000c = ╱5f╱_╱ // 0x1a95 @0xc
0x1a89…1aab at000d = ╱4c╱L╱ // 0x1a96 @0xd
0x1a89…1aab at000e = ╱4b╱K╱ // 0x1a97 @0xe
0x1a89…1aab at000f = ╱4f╱O╱ // 0x1a98 @0xf
0x1a89…1aab at0010 = ╱44╱D╱ // 0x1a99 @0x10
0x1a89…1aab at0011 = ╱ef╱$╱ // 0x1a9a @0x11
0x1a89…1aab at0012 = ╱eb╱ + ╱ // 0x1a9b @0x12
0x1a89…1aab at0013 = ╱22╱"╱ // 0x1a9c @0x13
0x1a89…1aab at0014 = ╱2f╱/╱ // 0x1a9d @0x14
0x1a89…1aab at0015 = ╱22╱"╱ // 0x1a9e @0x15
0x1a89…1aab at0016 = ╱dc╱ IN ╱ // 0x1a9f @0x16
0x1a89…1aab at0017 = ╱22╱"╱ // 0x1aa0 @0x17
0x1a89…1aab at0018 = ╱2f╱/╱ // 0x1aa1 @0x18
0x1a89…1aab at0019 = ╱4b╱K╱ // 0x1aa2 @0x19
0x1a89…1aab at001a = ╱2f╱/╱ // 0x1aa3 @0x1a
0x1a89…1aab at001b = ╱42╱B╱ // 0x1aa4 @0x1b
0x1a89…1aab at001c = ╱2f╱/╱ // 0x1aa5 @0x1c
0x1a89…1aab at001d = ╱47╱G╱ // 0x1aa6 @0x1d
0x1a89…1aab at001e = ╱2f╱/╱ // 0x1aa7 @0x1e
0x1a89…1aab at001f = ╱22╱"╱ // 0x1aa8 @0x1f
0x1a89…1aab at0020 = ╱b5╱ THEN ╱ // 0x1aa9 @0x20
0x1a89…1aab at0021 = EOL // 0x1aaa @0x21
0x1a89…1aab }
0x1aab…1ad4 b0c2 2530 EXEC FEJL("ULOVLIG KODE: '" + K_LKOD$ + "'")
0x1aab…1ad4 LineComal80 {
0x1aab…1ad4 ptr = 0xb0c2 // 0x1aab @0x0
0x1aab…1ad4 lno = 0x09e2 // 0x1aad @0x2
0x1aab…1ad4 at0004 = ╱9d╱ EXEC ╱ // 0x1aaf @0x4
0x1aab…1ad4 at0005 = ╱46╱F╱ // 0x1ab0 @0x5
0x1aab…1ad4 at0006 = ╱45╱E╱ // 0x1ab1 @0x6
0x1aab…1ad4 at0007 = ╱4a╱J╱ // 0x1ab2 @0x7
0x1aab…1ad4 at0008 = ╱4c╱L╱ // 0x1ab3 @0x8
0x1aab…1ad4 at0009 = ╱ed╱(╱ // 0x1ab4 @0x9
0x1aab…1ad4 at000a = ╱22╱"╱ // 0x1ab5 @0xa
0x1aab…1ad4 at000b = ╱55╱U╱ // 0x1ab6 @0xb
0x1aab…1ad4 at000c = ╱4c╱L╱ // 0x1ab7 @0xc
0x1aab…1ad4 at000d = ╱4f╱O╱ // 0x1ab8 @0xd
0x1aab…1ad4 at000e = ╱56╱V╱ // 0x1ab9 @0xe
0x1aab…1ad4 at000f = ╱4c╱L╱ // 0x1aba @0xf
0x1aab…1ad4 at0010 = ╱49╱I╱ // 0x1abb @0x10
0x1aab…1ad4 at0011 = ╱47╱G╱ // 0x1abc @0x11
0x1aab…1ad4 at0012 = ╱20╱…╱ // 0x1abd @0x12
0x1aab…1ad4 at0013 = ╱4b╱K╱ // 0x1abe @0x13
0x1aab…1ad4 at0014 = ╱4f╱O╱ // 0x1abf @0x14
0x1aab…1ad4 at0015 = ╱44╱D╱ // 0x1ac0 @0x15
0x1aab…1ad4 at0016 = ╱45╱E╱ // 0x1ac1 @0x16
0x1aab…1ad4 at0017 = ╱3a╱:╱ // 0x1ac2 @0x17
0x1aab…1ad4 at0018 = ╱20╱…╱ // 0x1ac3 @0x18
0x1aab…1ad4 at0019 = ╱27╱'╱ // 0x1ac4 @0x19
0x1aab…1ad4 at001a = ╱22╱"╱ // 0x1ac5 @0x1a
0x1aab…1ad4 at001b = ╱eb╱ + ╱ // 0x1ac6 @0x1b
0x1aab…1ad4 at001c = ╱4b╱K╱ // 0x1ac7 @0x1c
0x1aab…1ad4 at001d = ╱5f╱_╱ // 0x1ac8 @0x1d
0x1aab…1ad4 at001e = ╱4c╱L╱ // 0x1ac9 @0x1e
0x1aab…1ad4 at001f = ╱4b╱K╱ // 0x1aca @0x1f
0x1aab…1ad4 at0020 = ╱4f╱O╱ // 0x1acb @0x20
0x1aab…1ad4 at0021 = ╱44╱D╱ // 0x1acc @0x21
0x1aab…1ad4 at0022 = ╱ef╱$╱ // 0x1acd @0x22
0x1aab…1ad4 at0023 = ╱eb╱ + ╱ // 0x1ace @0x23
0x1aab…1ad4 at0024 = ╱22╱"╱ // 0x1acf @0x24
0x1aab…1ad4 at0025 = ╱27╱'╱ // 0x1ad0 @0x25
0x1aab…1ad4 at0026 = ╱22╱"╱ // 0x1ad1 @0x26
0x1aab…1ad4 at0027 = ╱ee╱)╱ // 0x1ad2 @0x27
0x1aab…1ad4 at0028 = EOL // 0x1ad3 @0x28
0x1aab…1ad4 }
0x1ad4…1ada b0c8 2540 ENDIF
0x1ad4…1ada LineComal80 {
0x1ad4…1ada ptr = 0xb0c8 // 0x1ad4 @0x0
0x1ad4…1ada lno = 0x09ec // 0x1ad6 @0x2
0x1ad4…1ada at0004 = ╱9c╱ ENDIF ╱ // 0x1ad8 @0x4
0x1ad4…1ada at0005 = EOL // 0x1ad9 @0x5
0x1ad4…1ada }
0x1ada…1ae2 b0d0 2550 UNTIL OK
0x1ada…1ae2 LineComal80 {
0x1ada…1ae2 ptr = 0xb0d0 // 0x1ada @0x0
0x1ada…1ae2 lno = 0x09f6 // 0x1adc @0x2
0x1ada…1ae2 at0004 = ╱98╱ UNTIL ╱ // 0x1ade @0x4
0x1ada…1ae2 at0005 = ╱4f╱O╱ // 0x1adf @0x5
0x1ada…1ae2 at0006 = ╱4b╱K╱ // 0x1ae0 @0x6
0x1ada…1ae2 at0007 = EOL // 0x1ae1 @0x7
0x1ada…1ae2 }
0x1ae2…1ae9 b0d7 2560 REPEAT
0x1ae2…1ae9 LineComal80 {
0x1ae2…1ae9 ptr = 0xb0d7 // 0x1ae2 @0x0
0x1ae2…1ae9 lno = 0x0a00 // 0x1ae4 @0x2
0x1ae2…1ae9 at0004 = ╱972a╱ REPEAT ╱ // 0x1ae6 @0x4
0x1ae2…1ae9 at0006 = EOL // 0x1ae8 @0x6
0x1ae2…1ae9 }
0x1ae9…1afc b0ea 2570 IF _DK = KREDIT THEN
0x1ae9…1afc LineComal80 {
0x1ae9…1afc ptr = 0xb0ea // 0x1ae9 @0x0
0x1ae9…1afc lno = 0x0a0a // 0x1aeb @0x2
0x1ae9…1afc at0004 = ╱9b2b4b╱ IF ╱ // 0x1aed @0x4
0x1ae9…1afc at0007 = ╱5f╱_╱ // 0x1af0 @0x7
0x1ae9…1afc at0008 = ╱44╱D╱ // 0x1af1 @0x8
0x1ae9…1afc at0009 = ╱4b╱K╱ // 0x1af2 @0x9
0x1ae9…1afc at000a = ╱df╱ = ╱ // 0x1af3 @0xa
0x1ae9…1afc at000b = ╱4b╱K╱ // 0x1af4 @0xb
0x1ae9…1afc at000c = ╱52╱R╱ // 0x1af5 @0xc
0x1ae9…1afc at000d = ╱45╱E╱ // 0x1af6 @0xd
0x1ae9…1afc at000e = ╱44╱D╱ // 0x1af7 @0xe
0x1ae9…1afc at000f = ╱49╱I╱ // 0x1af8 @0xf
0x1ae9…1afc at0010 = ╱54╱T╱ // 0x1af9 @0x10
0x1ae9…1afc at0011 = ╱b5╱ THEN ╱ // 0x1afa @0x11
0x1ae9…1afc at0012 = EOL // 0x1afb @0x12
0x1ae9…1afc }
0x1afc…1b1a dbe8 2580 LET SVAR$ := CHR$ (K_BKR,7,2)
0x1afc…1b1a LineComal80 {
0x1afc…1b1a ptr = 0xdbe8 // 0x1afc @0x0
0x1afc…1b1a lno = 0x0a14 // 0x1afe @0x2
0x1afc…1b1a at0004 = ╱86╱ LET ╱ // 0x1b00 @0x4
0x1afc…1b1a at0005 = ╱53╱S╱ // 0x1b01 @0x5
0x1afc…1b1a at0006 = ╱56╱V╱ // 0x1b02 @0x6
0x1afc…1b1a at0007 = ╱41╱A╱ // 0x1b03 @0x7
0x1afc…1b1a at0008 = ╱52╱R╱ // 0x1b04 @0x8
0x1afc…1b1a at0009 = ╱ef╱$╱ // 0x1b05 @0x9
0x1afc…1b1a at000a = ╱f0╱ := ╱ // 0x1b06 @0xa
0x1afc…1b1a at000b = ╱d0╱ CHR$ ╱ // 0x1b07 @0xb
0x1afc…1b1a at000c = ╱ed╱(╱ // 0x1b08 @0xc
0x1afc…1b1a at000d = ╱4b╱K╱ // 0x1b09 @0xd
0x1afc…1b1a at000e = ╱5f╱_╱ // 0x1b0a @0xe
0x1afc…1b1a at000f = ╱42╱B╱ // 0x1b0b @0xf
0x1afc…1b1a at0010 = ╱4b╱K╱ // 0x1b0c @0x10
0x1afc…1b1a at0011 = ╱52╱R╱ // 0x1b0d @0x11
0x1afc…1b1a at0012 = ╱ec╱,╱ // 0x1b0e @0x12
0x1afc…1b1a at0013 = ╱37╱7╱ // 0x1b0f @0x13
0x1afc…1b1a at0014 = ╱f20700╱ // 0x1b10 @0x14
0x1afc…1b1a at0017 = ╱ec╱,╱ // 0x1b13 @0x17
0x1afc…1b1a at0018 = ╱32╱2╱ // 0x1b14 @0x18
0x1afc…1b1a at0019 = ╱f20200╱ // 0x1b15 @0x19
0x1afc…1b1a at001c = ╱ee╱)╱ // 0x1b18 @0x1c
0x1afc…1b1a at001d = EOL // 0x1b19 @0x1d
0x1afc…1b1a }
0x1b1a…1b35 b123 2590 IF K_BKR = 0 THEN LET SVAR$ := ""
0x1b1a…1b35 LineComal80 {
0x1b1a…1b35 ptr = 0xb123 // 0x1b1a @0x0
0x1b1a…1b35 lno = 0x0a1e // 0x1b1c @0x2
0x1b1a…1b35 at0004 = ╱8200╱ IF ╱ // 0x1b1e @0x4
0x1b1a…1b35 at0006 = ╱4b╱K╱ // 0x1b20 @0x6
0x1b1a…1b35 at0007 = ╱5f╱_╱ // 0x1b21 @0x7
0x1b1a…1b35 at0008 = ╱42╱B╱ // 0x1b22 @0x8
0x1b1a…1b35 at0009 = ╱4b╱K╱ // 0x1b23 @0x9
0x1b1a…1b35 at000a = ╱52╱R╱ // 0x1b24 @0xa
0x1b1a…1b35 at000b = ╱df╱ = ╱ // 0x1b25 @0xb
0x1b1a…1b35 at000c = ╱30╱0╱ // 0x1b26 @0xc
0x1b1a…1b35 at000d = ╱f20000╱ // 0x1b27 @0xd
0x1b1a…1b35 at0010 = ╱b5╱ THEN ╱ // 0x1b2a @0x10
0x1b1a…1b35 at0011 = ╱86╱ LET ╱ // 0x1b2b @0x11
0x1b1a…1b35 at0012 = ╱53╱S╱ // 0x1b2c @0x12
0x1b1a…1b35 at0013 = ╱56╱V╱ // 0x1b2d @0x13
0x1b1a…1b35 at0014 = ╱41╱A╱ // 0x1b2e @0x14
0x1b1a…1b35 at0015 = ╱52╱R╱ // 0x1b2f @0x15
0x1b1a…1b35 at0016 = ╱ef╱$╱ // 0x1b30 @0x16
0x1b1a…1b35 at0017 = ╱f0╱ := ╱ // 0x1b31 @0x17
0x1b1a…1b35 at0018 = ╱22╱"╱ // 0x1b32 @0x18
0x1b1a…1b35 at0019 = ╱22╱"╱ // 0x1b33 @0x19
0x1b1a…1b35 at001a = EOL // 0x1b34 @0x1a
0x1b1a…1b35 }
0x1b35…1b47 b135 2600 CURSOR 57,R_SLIN
0x1b35…1b47 LineComal80 {
0x1b35…1b47 ptr = 0xb135 // 0x1b35 @0x0
0x1b35…1b47 lno = 0x0a28 // 0x1b37 @0x2
0x1b35…1b47 at0004 = ╱a1╱ CURSOR ╱ // 0x1b39 @0x4
0x1b35…1b47 at0005 = ╱35╱5╱ // 0x1b3a @0x5
0x1b35…1b47 at0006 = ╱37╱7╱ // 0x1b3b @0x6
0x1b35…1b47 at0007 = ╱f23900╱ // 0x1b3c @0x7
0x1b35…1b47 at000a = ╱ec╱,╱ // 0x1b3f @0xa
0x1b35…1b47 at000b = ╱52╱R╱ // 0x1b40 @0xb
0x1b35…1b47 at000c = ╱5f╱_╱ // 0x1b41 @0xc
0x1b35…1b47 at000d = ╱53╱S╱ // 0x1b42 @0xd
0x1b35…1b47 at000e = ╱4c╱L╱ // 0x1b43 @0xe
0x1b35…1b47 at000f = ╱49╱I╱ // 0x1b44 @0xf
0x1b35…1b47 at0010 = ╱4e╱N╱ // 0x1b45 @0x10
0x1b35…1b47 at0011 = EOL // 0x1b46 @0x11
0x1b35…1b47 }
0x1b47…1b55 b143 2610 EDIT "" : SVAR$
0x1b47…1b55 LineComal80 {
0x1b47…1b55 ptr = 0xb143 // 0x1b47 @0x0
0x1b47…1b55 lno = 0x0a32 // 0x1b49 @0x2
0x1b47…1b55 at0004 = ╱b1╱ EDIT ╱ // 0x1b4b @0x4
0x1b47…1b55 at0005 = ╱22╱"╱ // 0x1b4c @0x5
0x1b47…1b55 at0006 = ╱22╱"╱ // 0x1b4d @0x6
0x1b47…1b55 at0007 = ╱f1╱ : ╱ // 0x1b4e @0x7
0x1b47…1b55 at0008 = ╱53╱S╱ // 0x1b4f @0x8
0x1b47…1b55 at0009 = ╱56╱V╱ // 0x1b50 @0x9
0x1b47…1b55 at000a = ╱41╱A╱ // 0x1b51 @0xa
0x1b47…1b55 at000b = ╱52╱R╱ // 0x1b52 @0xb
0x1b47…1b55 at000c = ╱ef╱$╱ // 0x1b53 @0xc
0x1b47…1b55 at000d = EOL // 0x1b54 @0xd
0x1b47…1b55 }
0x1b55…1b67 b155 2620 EXEC SL_FEJLLINIE
0x1b55…1b67 LineComal80 {
0x1b55…1b67 ptr = 0xb155 // 0x1b55 @0x0
0x1b55…1b67 lno = 0x0a3c // 0x1b57 @0x2
0x1b55…1b67 at0004 = ╱9d╱ EXEC ╱ // 0x1b59 @0x4
0x1b55…1b67 at0005 = ╱53╱S╱ // 0x1b5a @0x5
0x1b55…1b67 at0006 = ╱4c╱L╱ // 0x1b5b @0x6
0x1b55…1b67 at0007 = ╱5f╱_╱ // 0x1b5c @0x7
0x1b55…1b67 at0008 = ╱46╱F╱ // 0x1b5d @0x8
0x1b55…1b67 at0009 = ╱45╱E╱ // 0x1b5e @0x9
0x1b55…1b67 at000a = ╱4a╱J╱ // 0x1b5f @0xa
0x1b55…1b67 at000b = ╱4c╱L╱ // 0x1b60 @0xb
0x1b55…1b67 at000c = ╱4c╱L╱ // 0x1b61 @0xc
0x1b55…1b67 at000d = ╱49╱I╱ // 0x1b62 @0xd
0x1b55…1b67 at000e = ╱4e╱N╱ // 0x1b63 @0xe
0x1b55…1b67 at000f = ╱49╱I╱ // 0x1b64 @0xf
0x1b55…1b67 at0010 = ╱45╱E╱ // 0x1b65 @0x10
0x1b55…1b67 at0011 = EOL // 0x1b66 @0x11
0x1b55…1b67 }
0x1b67…1b7f b16d 2630 EXEC TAL_CONTROL(SVAR$)
0x1b67…1b7f LineComal80 {
0x1b67…1b7f ptr = 0xb16d // 0x1b67 @0x0
0x1b67…1b7f lno = 0x0a46 // 0x1b69 @0x2
0x1b67…1b7f at0004 = ╱9d╱ EXEC ╱ // 0x1b6b @0x4
0x1b67…1b7f at0005 = ╱54╱T╱ // 0x1b6c @0x5
0x1b67…1b7f at0006 = ╱41╱A╱ // 0x1b6d @0x6
0x1b67…1b7f at0007 = ╱4c╱L╱ // 0x1b6e @0x7
0x1b67…1b7f at0008 = ╱5f╱_╱ // 0x1b6f @0x8
0x1b67…1b7f at0009 = ╱43╱C╱ // 0x1b70 @0x9
0x1b67…1b7f at000a = ╱4f╱O╱ // 0x1b71 @0xa
0x1b67…1b7f at000b = ╱4e╱N╱ // 0x1b72 @0xb
0x1b67…1b7f at000c = ╱54╱T╱ // 0x1b73 @0xc
0x1b67…1b7f at000d = ╱52╱R╱ // 0x1b74 @0xd
0x1b67…1b7f at000e = ╱4f╱O╱ // 0x1b75 @0xe
0x1b67…1b7f at000f = ╱4c╱L╱ // 0x1b76 @0xf
0x1b67…1b7f at0010 = ╱ed╱(╱ // 0x1b77 @0x10
0x1b67…1b7f at0011 = ╱53╱S╱ // 0x1b78 @0x11
0x1b67…1b7f at0012 = ╱56╱V╱ // 0x1b79 @0x12
0x1b67…1b7f at0013 = ╱41╱A╱ // 0x1b7a @0x13
0x1b67…1b7f at0014 = ╱52╱R╱ // 0x1b7b @0x14
0x1b67…1b7f at0015 = ╱ef╱$╱ // 0x1b7c @0x15
0x1b67…1b7f at0016 = ╱ee╱)╱ // 0x1b7d @0x16
0x1b67…1b7f at0017 = EOL // 0x1b7e @0x17
0x1b67…1b7f }
0x1b7f…1ba1 b18f 2640 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
0x1b7f…1ba1 LineComal80 {
0x1b7f…1ba1 ptr = 0xb18f // 0x1b7f @0x0
0x1b7f…1ba1 lno = 0x0a50 // 0x1b81 @0x2
0x1b7f…1ba1 at0004 = ╱8200╱ IF ╱ // 0x1b83 @0x4
0x1b7f…1ba1 at0006 = ╱d7╱ NOT ╱ // 0x1b85 @0x6
0x1b7f…1ba1 at0007 = ╱22╱"╱ // 0x1b86 @0x7
0x1b7f…1ba1 at0008 = ╱2e╱.╱ // 0x1b87 @0x8
0x1b7f…1ba1 at0009 = ╱22╱"╱ // 0x1b88 @0x9
0x1b7f…1ba1 at000a = ╱dc╱ IN ╱ // 0x1b89 @0xa
0x1b7f…1ba1 at000b = ╱53╱S╱ // 0x1b8a @0xb
0x1b7f…1ba1 at000c = ╱56╱V╱ // 0x1b8b @0xc
0x1b7f…1ba1 at000d = ╱41╱A╱ // 0x1b8c @0xd
0x1b7f…1ba1 at000e = ╱52╱R╱ // 0x1b8d @0xe
0x1b7f…1ba1 at000f = ╱ef╱$╱ // 0x1b8e @0xf
0x1b7f…1ba1 at0010 = ╱b5╱ THEN ╱ // 0x1b8f @0x10
0x1b7f…1ba1 at0011 = ╱86╱ LET ╱ // 0x1b90 @0x11
0x1b7f…1ba1 at0012 = ╱53╱S╱ // 0x1b91 @0x12
0x1b7f…1ba1 at0013 = ╱56╱V╱ // 0x1b92 @0x13
0x1b7f…1ba1 at0014 = ╱41╱A╱ // 0x1b93 @0x14
0x1b7f…1ba1 at0015 = ╱52╱R╱ // 0x1b94 @0x15
0x1b7f…1ba1 at0016 = ╱ef╱$╱ // 0x1b95 @0x16
0x1b7f…1ba1 at0017 = ╱f0╱ := ╱ // 0x1b96 @0x17
0x1b7f…1ba1 at0018 = ╱53╱S╱ // 0x1b97 @0x18
0x1b7f…1ba1 at0019 = ╱56╱V╱ // 0x1b98 @0x19
0x1b7f…1ba1 at001a = ╱41╱A╱ // 0x1b99 @0x1a
0x1b7f…1ba1 at001b = ╱52╱R╱ // 0x1b9a @0x1b
0x1b7f…1ba1 at001c = ╱ef╱$╱ // 0x1b9b @0x1c
0x1b7f…1ba1 at001d = ╱eb╱ + ╱ // 0x1b9c @0x1d
0x1b7f…1ba1 at001e = ╱22╱"╱ // 0x1b9d @0x1e
0x1b7f…1ba1 at001f = ╱2e╱.╱ // 0x1b9e @0x1f
0x1b7f…1ba1 at0020 = ╱22╱"╱ // 0x1b9f @0x20
0x1b7f…1ba1 at0021 = EOL // 0x1ba0 @0x21
0x1b7f…1ba1 }
0x1ba1…1bd7 b1c5 2650 LET K_BKR := INT(100 * ASC ("0" + SVAR$) + 0.5) / 100
0x1ba1…1bd7 LineComal80 {
0x1ba1…1bd7 ptr = 0xb1c5 // 0x1ba1 @0x0
0x1ba1…1bd7 lno = 0x0a5a // 0x1ba3 @0x2
0x1ba1…1bd7 at0004 = ╱86╱ LET ╱ // 0x1ba5 @0x4
0x1ba1…1bd7 at0005 = ╱4b╱K╱ // 0x1ba6 @0x5
0x1ba1…1bd7 at0006 = ╱5f╱_╱ // 0x1ba7 @0x6
0x1ba1…1bd7 at0007 = ╱42╱B╱ // 0x1ba8 @0x7
0x1ba1…1bd7 at0008 = ╱4b╱K╱ // 0x1ba9 @0x8
0x1ba1…1bd7 at0009 = ╱52╱R╱ // 0x1baa @0x9
0x1ba1…1bd7 at000a = ╱f0╱ := ╱ // 0x1bab @0xa
0x1ba1…1bd7 at000b = ╱c6╱INT╱ // 0x1bac @0xb
0x1ba1…1bd7 at000c = ╱ed╱(╱ // 0x1bad @0xc
0x1ba1…1bd7 at000d = ╱31╱1╱ // 0x1bae @0xd
0x1ba1…1bd7 at000e = ╱30╱0╱ // 0x1baf @0xe
0x1ba1…1bd7 at000f = ╱30╱0╱ // 0x1bb0 @0xf
0x1ba1…1bd7 at0010 = ╱f26400╱ // 0x1bb1 @0x10
0x1ba1…1bd7 at0013 = ╱e7╱ * ╱ // 0x1bb4 @0x13
0x1ba1…1bd7 at0014 = ╱cf╱ ASC ╱ // 0x1bb5 @0x14
0x1ba1…1bd7 at0015 = ╱ed╱(╱ // 0x1bb6 @0x15
0x1ba1…1bd7 at0016 = ╱22╱"╱ // 0x1bb7 @0x16
0x1ba1…1bd7 at0017 = ╱30╱0╱ // 0x1bb8 @0x17
0x1ba1…1bd7 at0018 = ╱22╱"╱ // 0x1bb9 @0x18
0x1ba1…1bd7 at0019 = ╱eb╱ + ╱ // 0x1bba @0x19
0x1ba1…1bd7 at001a = ╱53╱S╱ // 0x1bbb @0x1a
0x1ba1…1bd7 at001b = ╱56╱V╱ // 0x1bbc @0x1b
0x1ba1…1bd7 at001c = ╱41╱A╱ // 0x1bbd @0x1c
0x1ba1…1bd7 at001d = ╱52╱R╱ // 0x1bbe @0x1d
0x1ba1…1bd7 at001e = ╱ef╱$╱ // 0x1bbf @0x1e
0x1ba1…1bd7 at001f = ╱ee╱)╱ // 0x1bc0 @0x1f
0x1ba1…1bd7 at0020 = ╱e5╱ + ╱ // 0x1bc1 @0x20
0x1ba1…1bd7 at0021 = ╱30╱0╱ // 0x1bc2 @0x21
0x1ba1…1bd7 at0022 = ╱2e╱.╱ // 0x1bc3 @0x22
0x1ba1…1bd7 at0023 = ╱35╱5╱ // 0x1bc4 @0x23
0x1ba1…1bd7 at0024 = ╱f88000000000000005╱ // 0x1bc5 @0x24
0x1ba1…1bd7 at002d = ╱ee╱)╱ // 0x1bce @0x2d
0x1ba1…1bd7 at002e = ╱e8╱ / ╱ // 0x1bcf @0x2e
0x1ba1…1bd7 at002f = ╱31╱1╱ // 0x1bd0 @0x2f
0x1ba1…1bd7 at0030 = ╱30╱0╱ // 0x1bd1 @0x30
0x1ba1…1bd7 at0031 = ╱30╱0╱ // 0x1bd2 @0x31
0x1ba1…1bd7 at0032 = ╱f26400╱ // 0x1bd3 @0x32
0x1ba1…1bd7 at0035 = EOL // 0x1bd6 @0x35
0x1ba1…1bd7 }
0x1bd7…1be9 b1d7 2660 CURSOR 57,R_SLIN
0x1bd7…1be9 LineComal80 {
0x1bd7…1be9 ptr = 0xb1d7 // 0x1bd7 @0x0
0x1bd7…1be9 lno = 0x0a64 // 0x1bd9 @0x2
0x1bd7…1be9 at0004 = ╱a1╱ CURSOR ╱ // 0x1bdb @0x4
0x1bd7…1be9 at0005 = ╱35╱5╱ // 0x1bdc @0x5
0x1bd7…1be9 at0006 = ╱37╱7╱ // 0x1bdd @0x6
0x1bd7…1be9 at0007 = ╱f23900╱ // 0x1bde @0x7
0x1bd7…1be9 at000a = ╱ec╱,╱ // 0x1be1 @0xa
0x1bd7…1be9 at000b = ╱52╱R╱ // 0x1be2 @0xb
0x1bd7…1be9 at000c = ╱5f╱_╱ // 0x1be3 @0xc
0x1bd7…1be9 at000d = ╱53╱S╱ // 0x1be4 @0xd
0x1bd7…1be9 at000e = ╱4c╱L╱ // 0x1be5 @0xe
0x1bd7…1be9 at000f = ╱49╱I╱ // 0x1be6 @0xf
0x1bd7…1be9 at0010 = ╱4e╱N╱ // 0x1be7 @0x10
0x1bd7…1be9 at0011 = EOL // 0x1be8 @0x11
0x1bd7…1be9 }
0x1be9…1bfb b1e9 2670 IF _BKR > 0 THEN
0x1be9…1bfb LineComal80 {
0x1be9…1bfb ptr = 0xb1e9 // 0x1be9 @0x0
0x1be9…1bfb lno = 0x0a6e // 0x1beb @0x2
0x1be9…1bfb at0004 = ╱9b2c4b╱ IF ╱ // 0x1bed @0x4
0x1be9…1bfb at0007 = ╱5f╱_╱ // 0x1bf0 @0x7
0x1be9…1bfb at0008 = ╱42╱B╱ // 0x1bf1 @0x8
0x1be9…1bfb at0009 = ╱4b╱K╱ // 0x1bf2 @0x9
0x1be9…1bfb at000a = ╱52╱R╱ // 0x1bf3 @0xa
0x1be9…1bfb at000b = ╱e1╱ > ╱ // 0x1bf4 @0xb
0x1be9…1bfb at000c = ╱30╱0╱ // 0x1bf5 @0xc
0x1be9…1bfb at000d = ╱f20000╱ // 0x1bf6 @0xd
0x1be9…1bfb at0010 = ╱b5╱ THEN ╱ // 0x1bf9 @0x10
0x1be9…1bfb at0011 = EOL // 0x1bfa @0x11
0x1be9…1bfb }
0x1bfb…1c13 b201 2680 PRINT CHR$ (K_BKR,7,2)
0x1bfb…1c13 LineComal80 {
0x1bfb…1c13 ptr = 0xb201 // 0x1bfb @0x0
0x1bfb…1c13 lno = 0x0a78 // 0x1bfd @0x2
0x1bfb…1c13 at0004 = ╱92╱ PRINT ╱ // 0x1bff @0x4
0x1bfb…1c13 at0005 = ╱d0╱ CHR$ ╱ // 0x1c00 @0x5
0x1bfb…1c13 at0006 = ╱ed╱(╱ // 0x1c01 @0x6
0x1bfb…1c13 at0007 = ╱4b╱K╱ // 0x1c02 @0x7
0x1bfb…1c13 at0008 = ╱5f╱_╱ // 0x1c03 @0x8
0x1bfb…1c13 at0009 = ╱42╱B╱ // 0x1c04 @0x9
0x1bfb…1c13 at000a = ╱4b╱K╱ // 0x1c05 @0xa
0x1bfb…1c13 at000b = ╱52╱R╱ // 0x1c06 @0xb
0x1bfb…1c13 at000c = ╱ec╱,╱ // 0x1c07 @0xc
0x1bfb…1c13 at000d = ╱37╱7╱ // 0x1c08 @0xd
0x1bfb…1c13 at000e = ╱f20700╱ // 0x1c09 @0xe
0x1bfb…1c13 at0011 = ╱ec╱,╱ // 0x1c0c @0x11
0x1bfb…1c13 at0012 = ╱32╱2╱ // 0x1c0d @0x12
0x1bfb…1c13 at0013 = ╱f20200╱ // 0x1c0e @0x13
0x1bfb…1c13 at0016 = ╱ee╱)╱ // 0x1c11 @0x16
0x1bfb…1c13 at0017 = EOL // 0x1c12 @0x17
0x1bfb…1c13 }
0x1c13…1c1a b208 2690 ELSE
0x1c13…1c1a LineComal80 {
0x1c13…1c1a ptr = 0xb208 // 0x1c13 @0x0
0x1c13…1c1a lno = 0x0a82 // 0x1c15 @0x2
0x1c13…1c1a at0004 = ╱9a2d╱ ELSE ╱ // 0x1c17 @0x4
0x1c13…1c1a at0006 = EOL // 0x1c19 @0x6
0x1c13…1c1a }
0x1c1a…1c30 b21e 2700 PRINT SPC$(1 : 10)
0x1c1a…1c30 LineComal80 {
0x1c1a…1c30 ptr = 0xb21e // 0x1c1a @0x0
0x1c1a…1c30 lno = 0x0a8c // 0x1c1c @0x2
0x1c1a…1c30 at0004 = ╱92╱ PRINT ╱ // 0x1c1e @0x4
0x1c1a…1c30 at0005 = ╱53╱S╱ // 0x1c1f @0x5
0x1c1a…1c30 at0006 = ╱50╱P╱ // 0x1c20 @0x6
0x1c1a…1c30 at0007 = ╱43╱C╱ // 0x1c21 @0x7
0x1c1a…1c30 at0008 = ╱ef╱$╱ // 0x1c22 @0x8
0x1c1a…1c30 at0009 = ╱ed╱(╱ // 0x1c23 @0x9
0x1c1a…1c30 at000a = ╱31╱1╱ // 0x1c24 @0xa
0x1c1a…1c30 at000b = ╱f20100╱ // 0x1c25 @0xb
0x1c1a…1c30 at000e = ╱f1╱ : ╱ // 0x1c28 @0xe
0x1c1a…1c30 at000f = ╱31╱1╱ // 0x1c29 @0xf
0x1c1a…1c30 at0010 = ╱30╱0╱ // 0x1c2a @0x10
0x1c1a…1c30 at0011 = ╱f20a00╱ // 0x1c2b @0x11
0x1c1a…1c30 at0014 = ╱ee╱)╱ // 0x1c2e @0x14
0x1c1a…1c30 at0015 = EOL // 0x1c2f @0x15
0x1c1a…1c30 }
0x1c30…1c36 b224 2710 ENDIF
0x1c30…1c36 LineComal80 {
0x1c30…1c36 ptr = 0xb224 // 0x1c30 @0x0
0x1c30…1c36 lno = 0x0a96 // 0x1c32 @0x2
0x1c30…1c36 at0004 = ╱9c╱ ENDIF ╱ // 0x1c34 @0x4
0x1c30…1c36 at0005 = EOL // 0x1c35 @0x5
0x1c30…1c36 }
0x1c36…1c3d b22b 2720 ELSE
0x1c36…1c3d LineComal80 {
0x1c36…1c3d ptr = 0xb22b // 0x1c36 @0x0
0x1c36…1c3d lno = 0x0aa0 // 0x1c38 @0x2
0x1c36…1c3d at0004 = ╱9a2e╱ ELSE ╱ // 0x1c3a @0x4
0x1c36…1c3d at0006 = EOL // 0x1c3c @0x6
0x1c36…1c3d }
0x1c3d…1c4d b23b 2730 LET K_DK := DEBET
0x1c3d…1c4d LineComal80 {
0x1c3d…1c4d ptr = 0xb23b // 0x1c3d @0x0
0x1c3d…1c4d lno = 0x0aaa // 0x1c3f @0x2
0x1c3d…1c4d at0004 = ╱86╱ LET ╱ // 0x1c41 @0x4
0x1c3d…1c4d at0005 = ╱4b╱K╱ // 0x1c42 @0x5
0x1c3d…1c4d at0006 = ╱5f╱_╱ // 0x1c43 @0x6
0x1c3d…1c4d at0007 = ╱44╱D╱ // 0x1c44 @0x7
0x1c3d…1c4d at0008 = ╱4b╱K╱ // 0x1c45 @0x8
0x1c3d…1c4d at0009 = ╱f0╱ := ╱ // 0x1c46 @0x9
0x1c3d…1c4d at000a = ╱44╱D╱ // 0x1c47 @0xa
0x1c3d…1c4d at000b = ╱45╱E╱ // 0x1c48 @0xb
0x1c3d…1c4d at000c = ╱42╱B╱ // 0x1c49 @0xc
0x1c3d…1c4d at000d = ╱45╱E╱ // 0x1c4a @0xd
0x1c3d…1c4d at000e = ╱54╱T╱ // 0x1c4b @0xe
0x1c3d…1c4d at000f = EOL // 0x1c4c @0xf
0x1c3d…1c4d }
0x1c4d…1c6b dbd0 2740 LET SVAR$ := CHR$ (K_BKR,7,2)
0x1c4d…1c6b LineComal80 {
0x1c4d…1c6b ptr = 0xdbd0 // 0x1c4d @0x0
0x1c4d…1c6b lno = 0x0ab4 // 0x1c4f @0x2
0x1c4d…1c6b at0004 = ╱86╱ LET ╱ // 0x1c51 @0x4
0x1c4d…1c6b at0005 = ╱53╱S╱ // 0x1c52 @0x5
0x1c4d…1c6b at0006 = ╱56╱V╱ // 0x1c53 @0x6
0x1c4d…1c6b at0007 = ╱41╱A╱ // 0x1c54 @0x7
0x1c4d…1c6b at0008 = ╱52╱R╱ // 0x1c55 @0x8
0x1c4d…1c6b at0009 = ╱ef╱$╱ // 0x1c56 @0x9
0x1c4d…1c6b at000a = ╱f0╱ := ╱ // 0x1c57 @0xa
0x1c4d…1c6b at000b = ╱d0╱ CHR$ ╱ // 0x1c58 @0xb
0x1c4d…1c6b at000c = ╱ed╱(╱ // 0x1c59 @0xc
0x1c4d…1c6b at000d = ╱4b╱K╱ // 0x1c5a @0xd
0x1c4d…1c6b at000e = ╱5f╱_╱ // 0x1c5b @0xe
0x1c4d…1c6b at000f = ╱42╱B╱ // 0x1c5c @0xf
0x1c4d…1c6b at0010 = ╱4b╱K╱ // 0x1c5d @0x10
0x1c4d…1c6b at0011 = ╱52╱R╱ // 0x1c5e @0x11
0x1c4d…1c6b at0012 = ╱ec╱,╱ // 0x1c5f @0x12
0x1c4d…1c6b at0013 = ╱37╱7╱ // 0x1c60 @0x13
0x1c4d…1c6b at0014 = ╱f20700╱ // 0x1c61 @0x14
0x1c4d…1c6b at0017 = ╱ec╱,╱ // 0x1c64 @0x17
0x1c4d…1c6b at0018 = ╱32╱2╱ // 0x1c65 @0x18
0x1c4d…1c6b at0019 = ╱f20200╱ // 0x1c66 @0x19
0x1c4d…1c6b at001c = ╱ee╱)╱ // 0x1c69 @0x1c
0x1c4d…1c6b at001d = EOL // 0x1c6a @0x1d
0x1c4d…1c6b }
0x1c6b…1c86 b274 2750 IF K_BKR = 0 THEN LET SVAR$ := ""
0x1c6b…1c86 LineComal80 {
0x1c6b…1c86 ptr = 0xb274 // 0x1c6b @0x0
0x1c6b…1c86 lno = 0x0abe // 0x1c6d @0x2
0x1c6b…1c86 at0004 = ╱8200╱ IF ╱ // 0x1c6f @0x4
0x1c6b…1c86 at0006 = ╱4b╱K╱ // 0x1c71 @0x6
0x1c6b…1c86 at0007 = ╱5f╱_╱ // 0x1c72 @0x7
0x1c6b…1c86 at0008 = ╱42╱B╱ // 0x1c73 @0x8
0x1c6b…1c86 at0009 = ╱4b╱K╱ // 0x1c74 @0x9
0x1c6b…1c86 at000a = ╱52╱R╱ // 0x1c75 @0xa
0x1c6b…1c86 at000b = ╱df╱ = ╱ // 0x1c76 @0xb
0x1c6b…1c86 at000c = ╱30╱0╱ // 0x1c77 @0xc
0x1c6b…1c86 at000d = ╱f20000╱ // 0x1c78 @0xd
0x1c6b…1c86 at0010 = ╱b5╱ THEN ╱ // 0x1c7b @0x10
0x1c6b…1c86 at0011 = ╱86╱ LET ╱ // 0x1c7c @0x11
0x1c6b…1c86 at0012 = ╱53╱S╱ // 0x1c7d @0x12
0x1c6b…1c86 at0013 = ╱56╱V╱ // 0x1c7e @0x13
0x1c6b…1c86 at0014 = ╱41╱A╱ // 0x1c7f @0x14
0x1c6b…1c86 at0015 = ╱52╱R╱ // 0x1c80 @0x15
0x1c6b…1c86 at0016 = ╱ef╱$╱ // 0x1c81 @0x16
0x1c6b…1c86 at0017 = ╱f0╱ := ╱ // 0x1c82 @0x17
0x1c6b…1c86 at0018 = ╱22╱"╱ // 0x1c83 @0x18
0x1c6b…1c86 at0019 = ╱22╱"╱ // 0x1c84 @0x19
0x1c6b…1c86 at001a = EOL // 0x1c85 @0x1a
0x1c6b…1c86 }
0x1c86…1c98 b286 2760 CURSOR 44,R_SLIN
0x1c86…1c98 LineComal80 {
0x1c86…1c98 ptr = 0xb286 // 0x1c86 @0x0
0x1c86…1c98 lno = 0x0ac8 // 0x1c88 @0x2
0x1c86…1c98 at0004 = ╱a1╱ CURSOR ╱ // 0x1c8a @0x4
0x1c86…1c98 at0005 = ╱34╱4╱ // 0x1c8b @0x5
0x1c86…1c98 at0006 = ╱34╱4╱ // 0x1c8c @0x6
0x1c86…1c98 at0007 = ╱f22c00╱ // 0x1c8d @0x7
0x1c86…1c98 at000a = ╱ec╱,╱ // 0x1c90 @0xa
0x1c86…1c98 at000b = ╱52╱R╱ // 0x1c91 @0xb
0x1c86…1c98 at000c = ╱5f╱_╱ // 0x1c92 @0xc
0x1c86…1c98 at000d = ╱53╱S╱ // 0x1c93 @0xd
0x1c86…1c98 at000e = ╱4c╱L╱ // 0x1c94 @0xe
0x1c86…1c98 at000f = ╱49╱I╱ // 0x1c95 @0xf
0x1c86…1c98 at0010 = ╱4e╱N╱ // 0x1c96 @0x10
0x1c86…1c98 at0011 = EOL // 0x1c97 @0x11
0x1c86…1c98 }
0x1c98…1ca6 b294 2770 EDIT "" : SVAR$
0x1c98…1ca6 LineComal80 {
0x1c98…1ca6 ptr = 0xb294 // 0x1c98 @0x0
0x1c98…1ca6 lno = 0x0ad2 // 0x1c9a @0x2
0x1c98…1ca6 at0004 = ╱b1╱ EDIT ╱ // 0x1c9c @0x4
0x1c98…1ca6 at0005 = ╱22╱"╱ // 0x1c9d @0x5
0x1c98…1ca6 at0006 = ╱22╱"╱ // 0x1c9e @0x6
0x1c98…1ca6 at0007 = ╱f1╱ : ╱ // 0x1c9f @0x7
0x1c98…1ca6 at0008 = ╱53╱S╱ // 0x1ca0 @0x8
0x1c98…1ca6 at0009 = ╱56╱V╱ // 0x1ca1 @0x9
0x1c98…1ca6 at000a = ╱41╱A╱ // 0x1ca2 @0xa
0x1c98…1ca6 at000b = ╱52╱R╱ // 0x1ca3 @0xb
0x1c98…1ca6 at000c = ╱ef╱$╱ // 0x1ca4 @0xc
0x1c98…1ca6 at000d = EOL // 0x1ca5 @0xd
0x1c98…1ca6 }
0x1ca6…1cb8 b2a6 2780 EXEC SL_FEJLLINIE
0x1ca6…1cb8 LineComal80 {
0x1ca6…1cb8 ptr = 0xb2a6 // 0x1ca6 @0x0
0x1ca6…1cb8 lno = 0x0adc // 0x1ca8 @0x2
0x1ca6…1cb8 at0004 = ╱9d╱ EXEC ╱ // 0x1caa @0x4
0x1ca6…1cb8 at0005 = ╱53╱S╱ // 0x1cab @0x5
0x1ca6…1cb8 at0006 = ╱4c╱L╱ // 0x1cac @0x6
0x1ca6…1cb8 at0007 = ╱5f╱_╱ // 0x1cad @0x7
0x1ca6…1cb8 at0008 = ╱46╱F╱ // 0x1cae @0x8
0x1ca6…1cb8 at0009 = ╱45╱E╱ // 0x1caf @0x9
0x1ca6…1cb8 at000a = ╱4a╱J╱ // 0x1cb0 @0xa
0x1ca6…1cb8 at000b = ╱4c╱L╱ // 0x1cb1 @0xb
0x1ca6…1cb8 at000c = ╱4c╱L╱ // 0x1cb2 @0xc
0x1ca6…1cb8 at000d = ╱49╱I╱ // 0x1cb3 @0xd
0x1ca6…1cb8 at000e = ╱4e╱N╱ // 0x1cb4 @0xe
0x1ca6…1cb8 at000f = ╱49╱I╱ // 0x1cb5 @0xf
0x1ca6…1cb8 at0010 = ╱45╱E╱ // 0x1cb6 @0x10
0x1ca6…1cb8 at0011 = EOL // 0x1cb7 @0x11
0x1ca6…1cb8 }
0x1cb8…1cd0 b2be 2790 EXEC TAL_CONTROL(SVAR$)
0x1cb8…1cd0 LineComal80 {
0x1cb8…1cd0 ptr = 0xb2be // 0x1cb8 @0x0
0x1cb8…1cd0 lno = 0x0ae6 // 0x1cba @0x2
0x1cb8…1cd0 at0004 = ╱9d╱ EXEC ╱ // 0x1cbc @0x4
0x1cb8…1cd0 at0005 = ╱54╱T╱ // 0x1cbd @0x5
0x1cb8…1cd0 at0006 = ╱41╱A╱ // 0x1cbe @0x6
0x1cb8…1cd0 at0007 = ╱4c╱L╱ // 0x1cbf @0x7
0x1cb8…1cd0 at0008 = ╱5f╱_╱ // 0x1cc0 @0x8
0x1cb8…1cd0 at0009 = ╱43╱C╱ // 0x1cc1 @0x9
0x1cb8…1cd0 at000a = ╱4f╱O╱ // 0x1cc2 @0xa
0x1cb8…1cd0 at000b = ╱4e╱N╱ // 0x1cc3 @0xb
0x1cb8…1cd0 at000c = ╱54╱T╱ // 0x1cc4 @0xc
0x1cb8…1cd0 at000d = ╱52╱R╱ // 0x1cc5 @0xd
0x1cb8…1cd0 at000e = ╱4f╱O╱ // 0x1cc6 @0xe
0x1cb8…1cd0 at000f = ╱4c╱L╱ // 0x1cc7 @0xf
0x1cb8…1cd0 at0010 = ╱ed╱(╱ // 0x1cc8 @0x10
0x1cb8…1cd0 at0011 = ╱53╱S╱ // 0x1cc9 @0x11
0x1cb8…1cd0 at0012 = ╱56╱V╱ // 0x1cca @0x12
0x1cb8…1cd0 at0013 = ╱41╱A╱ // 0x1ccb @0x13
0x1cb8…1cd0 at0014 = ╱52╱R╱ // 0x1ccc @0x14
0x1cb8…1cd0 at0015 = ╱ef╱$╱ // 0x1ccd @0x15
0x1cb8…1cd0 at0016 = ╱ee╱)╱ // 0x1cce @0x16
0x1cb8…1cd0 at0017 = EOL // 0x1ccf @0x17
0x1cb8…1cd0 }
0x1cd0…1cf2 b2e0 2800 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
0x1cd0…1cf2 LineComal80 {
0x1cd0…1cf2 ptr = 0xb2e0 // 0x1cd0 @0x0
0x1cd0…1cf2 lno = 0x0af0 // 0x1cd2 @0x2
0x1cd0…1cf2 at0004 = ╱8200╱ IF ╱ // 0x1cd4 @0x4
0x1cd0…1cf2 at0006 = ╱d7╱ NOT ╱ // 0x1cd6 @0x6
0x1cd0…1cf2 at0007 = ╱22╱"╱ // 0x1cd7 @0x7
0x1cd0…1cf2 at0008 = ╱2e╱.╱ // 0x1cd8 @0x8
0x1cd0…1cf2 at0009 = ╱22╱"╱ // 0x1cd9 @0x9
0x1cd0…1cf2 at000a = ╱dc╱ IN ╱ // 0x1cda @0xa
0x1cd0…1cf2 at000b = ╱53╱S╱ // 0x1cdb @0xb
0x1cd0…1cf2 at000c = ╱56╱V╱ // 0x1cdc @0xc
0x1cd0…1cf2 at000d = ╱41╱A╱ // 0x1cdd @0xd
0x1cd0…1cf2 at000e = ╱52╱R╱ // 0x1cde @0xe
0x1cd0…1cf2 at000f = ╱ef╱$╱ // 0x1cdf @0xf
0x1cd0…1cf2 at0010 = ╱b5╱ THEN ╱ // 0x1ce0 @0x10
0x1cd0…1cf2 at0011 = ╱86╱ LET ╱ // 0x1ce1 @0x11
0x1cd0…1cf2 at0012 = ╱53╱S╱ // 0x1ce2 @0x12
0x1cd0…1cf2 at0013 = ╱56╱V╱ // 0x1ce3 @0x13
0x1cd0…1cf2 at0014 = ╱41╱A╱ // 0x1ce4 @0x14
0x1cd0…1cf2 at0015 = ╱52╱R╱ // 0x1ce5 @0x15
0x1cd0…1cf2 at0016 = ╱ef╱$╱ // 0x1ce6 @0x16
0x1cd0…1cf2 at0017 = ╱f0╱ := ╱ // 0x1ce7 @0x17
0x1cd0…1cf2 at0018 = ╱53╱S╱ // 0x1ce8 @0x18
0x1cd0…1cf2 at0019 = ╱56╱V╱ // 0x1ce9 @0x19
0x1cd0…1cf2 at001a = ╱41╱A╱ // 0x1cea @0x1a
0x1cd0…1cf2 at001b = ╱52╱R╱ // 0x1ceb @0x1b
0x1cd0…1cf2 at001c = ╱ef╱$╱ // 0x1cec @0x1c
0x1cd0…1cf2 at001d = ╱eb╱ + ╱ // 0x1ced @0x1d
0x1cd0…1cf2 at001e = ╱22╱"╱ // 0x1cee @0x1e
0x1cd0…1cf2 at001f = ╱2e╱.╱ // 0x1cef @0x1f
0x1cd0…1cf2 at0020 = ╱22╱"╱ // 0x1cf0 @0x20
0x1cd0…1cf2 at0021 = EOL // 0x1cf1 @0x21
0x1cd0…1cf2 }
0x1cf2…1d28 b316 2810 LET K_BKR := INT(100 * ASC ("0" + SVAR$) + 0.5) / 100
0x1cf2…1d28 LineComal80 {
0x1cf2…1d28 ptr = 0xb316 // 0x1cf2 @0x0
0x1cf2…1d28 lno = 0x0afa // 0x1cf4 @0x2
0x1cf2…1d28 at0004 = ╱86╱ LET ╱ // 0x1cf6 @0x4
0x1cf2…1d28 at0005 = ╱4b╱K╱ // 0x1cf7 @0x5
0x1cf2…1d28 at0006 = ╱5f╱_╱ // 0x1cf8 @0x6
0x1cf2…1d28 at0007 = ╱42╱B╱ // 0x1cf9 @0x7
0x1cf2…1d28 at0008 = ╱4b╱K╱ // 0x1cfa @0x8
0x1cf2…1d28 at0009 = ╱52╱R╱ // 0x1cfb @0x9
0x1cf2…1d28 at000a = ╱f0╱ := ╱ // 0x1cfc @0xa
0x1cf2…1d28 at000b = ╱c6╱INT╱ // 0x1cfd @0xb
0x1cf2…1d28 at000c = ╱ed╱(╱ // 0x1cfe @0xc
0x1cf2…1d28 at000d = ╱31╱1╱ // 0x1cff @0xd
0x1cf2…1d28 at000e = ╱30╱0╱ // 0x1d00 @0xe
0x1cf2…1d28 at000f = ╱30╱0╱ // 0x1d01 @0xf
0x1cf2…1d28 at0010 = ╱f26400╱ // 0x1d02 @0x10
0x1cf2…1d28 at0013 = ╱e7╱ * ╱ // 0x1d05 @0x13
0x1cf2…1d28 at0014 = ╱cf╱ ASC ╱ // 0x1d06 @0x14
0x1cf2…1d28 at0015 = ╱ed╱(╱ // 0x1d07 @0x15
0x1cf2…1d28 at0016 = ╱22╱"╱ // 0x1d08 @0x16
0x1cf2…1d28 at0017 = ╱30╱0╱ // 0x1d09 @0x17
0x1cf2…1d28 at0018 = ╱22╱"╱ // 0x1d0a @0x18
0x1cf2…1d28 at0019 = ╱eb╱ + ╱ // 0x1d0b @0x19
0x1cf2…1d28 at001a = ╱53╱S╱ // 0x1d0c @0x1a
0x1cf2…1d28 at001b = ╱56╱V╱ // 0x1d0d @0x1b
0x1cf2…1d28 at001c = ╱41╱A╱ // 0x1d0e @0x1c
0x1cf2…1d28 at001d = ╱52╱R╱ // 0x1d0f @0x1d
0x1cf2…1d28 at001e = ╱ef╱$╱ // 0x1d10 @0x1e
0x1cf2…1d28 at001f = ╱ee╱)╱ // 0x1d11 @0x1f
0x1cf2…1d28 at0020 = ╱e5╱ + ╱ // 0x1d12 @0x20
0x1cf2…1d28 at0021 = ╱30╱0╱ // 0x1d13 @0x21
0x1cf2…1d28 at0022 = ╱2e╱.╱ // 0x1d14 @0x22
0x1cf2…1d28 at0023 = ╱35╱5╱ // 0x1d15 @0x23
0x1cf2…1d28 at0024 = ╱f88000000000000005╱ // 0x1d16 @0x24
0x1cf2…1d28 at002d = ╱ee╱)╱ // 0x1d1f @0x2d
0x1cf2…1d28 at002e = ╱e8╱ / ╱ // 0x1d20 @0x2e
0x1cf2…1d28 at002f = ╱31╱1╱ // 0x1d21 @0x2f
0x1cf2…1d28 at0030 = ╱30╱0╱ // 0x1d22 @0x30
0x1cf2…1d28 at0031 = ╱30╱0╱ // 0x1d23 @0x31
0x1cf2…1d28 at0032 = ╱f26400╱ // 0x1d24 @0x32
0x1cf2…1d28 at0035 = EOL // 0x1d27 @0x35
0x1cf2…1d28 }
0x1d28…1d3a b328 2820 CURSOR 44,R_SLIN
0x1d28…1d3a LineComal80 {
0x1d28…1d3a ptr = 0xb328 // 0x1d28 @0x0
0x1d28…1d3a lno = 0x0b04 // 0x1d2a @0x2
0x1d28…1d3a at0004 = ╱a1╱ CURSOR ╱ // 0x1d2c @0x4
0x1d28…1d3a at0005 = ╱34╱4╱ // 0x1d2d @0x5
0x1d28…1d3a at0006 = ╱34╱4╱ // 0x1d2e @0x6
0x1d28…1d3a at0007 = ╱f22c00╱ // 0x1d2f @0x7
0x1d28…1d3a at000a = ╱ec╱,╱ // 0x1d32 @0xa
0x1d28…1d3a at000b = ╱52╱R╱ // 0x1d33 @0xb
0x1d28…1d3a at000c = ╱5f╱_╱ // 0x1d34 @0xc
0x1d28…1d3a at000d = ╱53╱S╱ // 0x1d35 @0xd
0x1d28…1d3a at000e = ╱4c╱L╱ // 0x1d36 @0xe
0x1d28…1d3a at000f = ╱49╱I╱ // 0x1d37 @0xf
0x1d28…1d3a at0010 = ╱4e╱N╱ // 0x1d38 @0x10
0x1d28…1d3a at0011 = EOL // 0x1d39 @0x11
0x1d28…1d3a }
0x1d3a…1d4c b33a 2830 IF _BKR > 0 THEN
0x1d3a…1d4c LineComal80 {
0x1d3a…1d4c ptr = 0xb33a // 0x1d3a @0x0
0x1d3a…1d4c lno = 0x0b0e // 0x1d3c @0x2
0x1d3a…1d4c at0004 = ╱9b2f4b╱ IF ╱ // 0x1d3e @0x4
0x1d3a…1d4c at0007 = ╱5f╱_╱ // 0x1d41 @0x7
0x1d3a…1d4c at0008 = ╱42╱B╱ // 0x1d42 @0x8
0x1d3a…1d4c at0009 = ╱4b╱K╱ // 0x1d43 @0x9
0x1d3a…1d4c at000a = ╱52╱R╱ // 0x1d44 @0xa
0x1d3a…1d4c at000b = ╱e1╱ > ╱ // 0x1d45 @0xb
0x1d3a…1d4c at000c = ╱30╱0╱ // 0x1d46 @0xc
0x1d3a…1d4c at000d = ╱f20000╱ // 0x1d47 @0xd
0x1d3a…1d4c at0010 = ╱b5╱ THEN ╱ // 0x1d4a @0x10
0x1d3a…1d4c at0011 = EOL // 0x1d4b @0x11
0x1d3a…1d4c }
0x1d4c…1d64 b352 2840 PRINT CHR$ (K_BKR,7,2)
0x1d4c…1d64 LineComal80 {
0x1d4c…1d64 ptr = 0xb352 // 0x1d4c @0x0
0x1d4c…1d64 lno = 0x0b18 // 0x1d4e @0x2
0x1d4c…1d64 at0004 = ╱92╱ PRINT ╱ // 0x1d50 @0x4
0x1d4c…1d64 at0005 = ╱d0╱ CHR$ ╱ // 0x1d51 @0x5
0x1d4c…1d64 at0006 = ╱ed╱(╱ // 0x1d52 @0x6
0x1d4c…1d64 at0007 = ╱4b╱K╱ // 0x1d53 @0x7
0x1d4c…1d64 at0008 = ╱5f╱_╱ // 0x1d54 @0x8
0x1d4c…1d64 at0009 = ╱42╱B╱ // 0x1d55 @0x9
0x1d4c…1d64 at000a = ╱4b╱K╱ // 0x1d56 @0xa
0x1d4c…1d64 at000b = ╱52╱R╱ // 0x1d57 @0xb
0x1d4c…1d64 at000c = ╱ec╱,╱ // 0x1d58 @0xc
0x1d4c…1d64 at000d = ╱37╱7╱ // 0x1d59 @0xd
0x1d4c…1d64 at000e = ╱f20700╱ // 0x1d5a @0xe
0x1d4c…1d64 at0011 = ╱ec╱,╱ // 0x1d5d @0x11
0x1d4c…1d64 at0012 = ╱32╱2╱ // 0x1d5e @0x12
0x1d4c…1d64 at0013 = ╱f20200╱ // 0x1d5f @0x13
0x1d4c…1d64 at0016 = ╱ee╱)╱ // 0x1d62 @0x16
0x1d4c…1d64 at0017 = EOL // 0x1d63 @0x17
0x1d4c…1d64 }
0x1d64…1d6b b359 2850 ELSE
0x1d64…1d6b LineComal80 {
0x1d64…1d6b ptr = 0xb359 // 0x1d64 @0x0
0x1d64…1d6b lno = 0x0b22 // 0x1d66 @0x2
0x1d64…1d6b at0004 = ╱9a30╱ ELSE ╱ // 0x1d68 @0x4
0x1d64…1d6b at0006 = EOL // 0x1d6a @0x6
0x1d64…1d6b }
0x1d6b…1d81 b36f 2860 PRINT SPC$(1 : 10)
0x1d6b…1d81 LineComal80 {
0x1d6b…1d81 ptr = 0xb36f // 0x1d6b @0x0
0x1d6b…1d81 lno = 0x0b2c // 0x1d6d @0x2
0x1d6b…1d81 at0004 = ╱92╱ PRINT ╱ // 0x1d6f @0x4
0x1d6b…1d81 at0005 = ╱53╱S╱ // 0x1d70 @0x5
0x1d6b…1d81 at0006 = ╱50╱P╱ // 0x1d71 @0x6
0x1d6b…1d81 at0007 = ╱43╱C╱ // 0x1d72 @0x7
0x1d6b…1d81 at0008 = ╱ef╱$╱ // 0x1d73 @0x8
0x1d6b…1d81 at0009 = ╱ed╱(╱ // 0x1d74 @0x9
0x1d6b…1d81 at000a = ╱31╱1╱ // 0x1d75 @0xa
0x1d6b…1d81 at000b = ╱f20100╱ // 0x1d76 @0xb
0x1d6b…1d81 at000e = ╱f1╱ : ╱ // 0x1d79 @0xe
0x1d6b…1d81 at000f = ╱31╱1╱ // 0x1d7a @0xf
0x1d6b…1d81 at0010 = ╱30╱0╱ // 0x1d7b @0x10
0x1d6b…1d81 at0011 = ╱f20a00╱ // 0x1d7c @0x11
0x1d6b…1d81 at0014 = ╱ee╱)╱ // 0x1d7f @0x14
0x1d6b…1d81 at0015 = EOL // 0x1d80 @0x15
0x1d6b…1d81 }
0x1d81…1d87 b375 2870 ENDIF
0x1d81…1d87 LineComal80 {
0x1d81…1d87 ptr = 0xb375 // 0x1d81 @0x0
0x1d81…1d87 lno = 0x0b36 // 0x1d83 @0x2
0x1d81…1d87 at0004 = ╱9c╱ ENDIF ╱ // 0x1d85 @0x4
0x1d81…1d87 at0005 = EOL // 0x1d86 @0x5
0x1d81…1d87 }
0x1d87…1d8d b37b 2880 ENDIF
0x1d87…1d8d LineComal80 {
0x1d87…1d8d ptr = 0xb37b // 0x1d87 @0x0
0x1d87…1d8d lno = 0x0b40 // 0x1d89 @0x2
0x1d87…1d8d at0004 = ╱9c╱ ENDIF ╱ // 0x1d8b @0x4
0x1d87…1d8d at0005 = EOL // 0x1d8c @0x5
0x1d87…1d8d }
0x1d8d…1db1 b39f 2890 IF K_BKR = 0 THEN LET K_DK := K_DK * ( - 1)
0x1d8d…1db1 LineComal80 {
0x1d8d…1db1 ptr = 0xb39f // 0x1d8d @0x0
0x1d8d…1db1 lno = 0x0b4a // 0x1d8f @0x2
0x1d8d…1db1 at0004 = ╱8200╱ IF ╱ // 0x1d91 @0x4
0x1d8d…1db1 at0006 = ╱4b╱K╱ // 0x1d93 @0x6
0x1d8d…1db1 at0007 = ╱5f╱_╱ // 0x1d94 @0x7
0x1d8d…1db1 at0008 = ╱42╱B╱ // 0x1d95 @0x8
0x1d8d…1db1 at0009 = ╱4b╱K╱ // 0x1d96 @0x9
0x1d8d…1db1 at000a = ╱52╱R╱ // 0x1d97 @0xa
0x1d8d…1db1 at000b = ╱df╱ = ╱ // 0x1d98 @0xb
0x1d8d…1db1 at000c = ╱30╱0╱ // 0x1d99 @0xc
0x1d8d…1db1 at000d = ╱f20000╱ // 0x1d9a @0xd
0x1d8d…1db1 at0010 = ╱b5╱ THEN ╱ // 0x1d9d @0x10
0x1d8d…1db1 at0011 = ╱86╱ LET ╱ // 0x1d9e @0x11
0x1d8d…1db1 at0012 = ╱4b╱K╱ // 0x1d9f @0x12
0x1d8d…1db1 at0013 = ╱5f╱_╱ // 0x1da0 @0x13
0x1d8d…1db1 at0014 = ╱44╱D╱ // 0x1da1 @0x14
0x1d8d…1db1 at0015 = ╱4b╱K╱ // 0x1da2 @0x15
0x1d8d…1db1 at0016 = ╱f0╱ := ╱ // 0x1da3 @0x16
0x1d8d…1db1 at0017 = ╱4b╱K╱ // 0x1da4 @0x17
0x1d8d…1db1 at0018 = ╱5f╱_╱ // 0x1da5 @0x18
0x1d8d…1db1 at0019 = ╱44╱D╱ // 0x1da6 @0x19
0x1d8d…1db1 at001a = ╱4b╱K╱ // 0x1da7 @0x1a
0x1d8d…1db1 at001b = ╱e7╱ * ╱ // 0x1da8 @0x1b
0x1d8d…1db1 at001c = ╱ed╱(╱ // 0x1da9 @0x1c
0x1d8d…1db1 at001d = ╱de╱ - ╱ // 0x1daa @0x1d
0x1d8d…1db1 at001e = ╱31╱1╱ // 0x1dab @0x1e
0x1d8d…1db1 at001f = ╱f20100╱ // 0x1dac @0x1f
0x1d8d…1db1 at0022 = ╱ee╱)╱ // 0x1daf @0x22
0x1d8d…1db1 at0023 = EOL // 0x1db0 @0x23
0x1d8d…1db1 }
0x1db1…1dc1 b3af 2900 UNTIL K_BKR > 0
0x1db1…1dc1 LineComal80 {
0x1db1…1dc1 ptr = 0xb3af // 0x1db1 @0x0
0x1db1…1dc1 lno = 0x0b54 // 0x1db3 @0x2
0x1db1…1dc1 at0004 = ╱98╱ UNTIL ╱ // 0x1db5 @0x4
0x1db1…1dc1 at0005 = ╱4b╱K╱ // 0x1db6 @0x5
0x1db1…1dc1 at0006 = ╱5f╱_╱ // 0x1db7 @0x6
0x1db1…1dc1 at0007 = ╱42╱B╱ // 0x1db8 @0x7
0x1db1…1dc1 at0008 = ╱4b╱K╱ // 0x1db9 @0x8
0x1db1…1dc1 at0009 = ╱52╱R╱ // 0x1dba @0x9
0x1db1…1dc1 at000a = ╱e1╱ > ╱ // 0x1dbb @0xa
0x1db1…1dc1 at000b = ╱30╱0╱ // 0x1dbc @0xb
0x1db1…1dc1 at000c = ╱f20000╱ // 0x1dbd @0xc
0x1db1…1dc1 at000f = EOL // 0x1dc0 @0xf
0x1db1…1dc1 }
0x1dc1…1dc8 b3b6 2910 REPEAT
0x1dc1…1dc8 LineComal80 {
0x1dc1…1dc8 ptr = 0xb3b6 // 0x1dc1 @0x0
0x1dc1…1dc8 lno = 0x0b5e // 0x1dc3 @0x2
0x1dc1…1dc8 at0004 = ╱9731╱ REPEAT ╱ // 0x1dc5 @0x4
0x1dc1…1dc8 at0006 = EOL // 0x1dc7 @0x6
0x1dc1…1dc8 }
0x1dc8…1dda b3c8 2920 CURSOR 69,R_SLIN
0x1dc8…1dda LineComal80 {
0x1dc8…1dda ptr = 0xb3c8 // 0x1dc8 @0x0
0x1dc8…1dda lno = 0x0b68 // 0x1dca @0x2
0x1dc8…1dda at0004 = ╱a1╱ CURSOR ╱ // 0x1dcc @0x4
0x1dc8…1dda at0005 = ╱36╱6╱ // 0x1dcd @0x5
0x1dc8…1dda at0006 = ╱39╱9╱ // 0x1dce @0x6
0x1dc8…1dda at0007 = ╱f24500╱ // 0x1dcf @0x7
0x1dc8…1dda at000a = ╱ec╱,╱ // 0x1dd2 @0xa
0x1dc8…1dda at000b = ╱52╱R╱ // 0x1dd3 @0xb
0x1dc8…1dda at000c = ╱5f╱_╱ // 0x1dd4 @0xc
0x1dc8…1dda at000d = ╱53╱S╱ // 0x1dd5 @0xd
0x1dc8…1dda at000e = ╱4c╱L╱ // 0x1dd6 @0xe
0x1dc8…1dda at000f = ╱49╱I╱ // 0x1dd7 @0xf
0x1dc8…1dda at0010 = ╱4e╱N╱ // 0x1dd8 @0x10
0x1dc8…1dda at0011 = EOL // 0x1dd9 @0x11
0x1dc8…1dda }
0x1dda…1dea b3d8 2930 EDIT "" : K_BKTO$
0x1dda…1dea LineComal80 {
0x1dda…1dea ptr = 0xb3d8 // 0x1dda @0x0
0x1dda…1dea lno = 0x0b72 // 0x1ddc @0x2
0x1dda…1dea at0004 = ╱b1╱ EDIT ╱ // 0x1dde @0x4
0x1dda…1dea at0005 = ╱22╱"╱ // 0x1ddf @0x5
0x1dda…1dea at0006 = ╱22╱"╱ // 0x1de0 @0x6
0x1dda…1dea at0007 = ╱f1╱ : ╱ // 0x1de1 @0x7
0x1dda…1dea at0008 = ╱4b╱K╱ // 0x1de2 @0x8
0x1dda…1dea at0009 = ╱5f╱_╱ // 0x1de3 @0x9
0x1dda…1dea at000a = ╱42╱B╱ // 0x1de4 @0xa
0x1dda…1dea at000b = ╱4b╱K╱ // 0x1de5 @0xb
0x1dda…1dea at000c = ╱54╱T╱ // 0x1de6 @0xc
0x1dda…1dea at000d = ╱4f╱O╱ // 0x1de7 @0xd
0x1dda…1dea at000e = ╱ef╱$╱ // 0x1de8 @0xe
0x1dda…1dea at000f = EOL // 0x1de9 @0xf
0x1dda…1dea }
0x1dea…1dfc b3ea 2940 EXEC SL_FEJLLINIE
0x1dea…1dfc LineComal80 {
0x1dea…1dfc ptr = 0xb3ea // 0x1dea @0x0
0x1dea…1dfc lno = 0x0b7c // 0x1dec @0x2
0x1dea…1dfc at0004 = ╱9d╱ EXEC ╱ // 0x1dee @0x4
0x1dea…1dfc at0005 = ╱53╱S╱ // 0x1def @0x5
0x1dea…1dfc at0006 = ╱4c╱L╱ // 0x1df0 @0x6
0x1dea…1dfc at0007 = ╱5f╱_╱ // 0x1df1 @0x7
0x1dea…1dfc at0008 = ╱46╱F╱ // 0x1df2 @0x8
0x1dea…1dfc at0009 = ╱45╱E╱ // 0x1df3 @0x9
0x1dea…1dfc at000a = ╱4a╱J╱ // 0x1df4 @0xa
0x1dea…1dfc at000b = ╱4c╱L╱ // 0x1df5 @0xb
0x1dea…1dfc at000c = ╱4c╱L╱ // 0x1df6 @0xc
0x1dea…1dfc at000d = ╱49╱I╱ // 0x1df7 @0xd
0x1dea…1dfc at000e = ╱4e╱N╱ // 0x1df8 @0xe
0x1dea…1dfc at000f = ╱49╱I╱ // 0x1df9 @0xf
0x1dea…1dfc at0010 = ╱45╱E╱ // 0x1dfa @0x10
0x1dea…1dfc at0011 = EOL // 0x1dfb @0x11
0x1dea…1dfc }
0x1dfc…1e13 b401 2950 EXEC FIND_KTO(K_BKTO$)
0x1dfc…1e13 LineComal80 {
0x1dfc…1e13 ptr = 0xb401 // 0x1dfc @0x0
0x1dfc…1e13 lno = 0x0b86 // 0x1dfe @0x2
0x1dfc…1e13 at0004 = ╱9d╱ EXEC ╱ // 0x1e00 @0x4
0x1dfc…1e13 at0005 = ╱46╱F╱ // 0x1e01 @0x5
0x1dfc…1e13 at0006 = ╱49╱I╱ // 0x1e02 @0x6
0x1dfc…1e13 at0007 = ╱4e╱N╱ // 0x1e03 @0x7
0x1dfc…1e13 at0008 = ╱44╱D╱ // 0x1e04 @0x8
0x1dfc…1e13 at0009 = ╱5f╱_╱ // 0x1e05 @0x9
0x1dfc…1e13 at000a = ╱4b╱K╱ // 0x1e06 @0xa
0x1dfc…1e13 at000b = ╱54╱T╱ // 0x1e07 @0xb
0x1dfc…1e13 at000c = ╱4f╱O╱ // 0x1e08 @0xc
0x1dfc…1e13 at000d = ╱ed╱(╱ // 0x1e09 @0xd
0x1dfc…1e13 at000e = ╱4b╱K╱ // 0x1e0a @0xe
0x1dfc…1e13 at000f = ╱5f╱_╱ // 0x1e0b @0xf
0x1dfc…1e13 at0010 = ╱42╱B╱ // 0x1e0c @0x10
0x1dfc…1e13 at0011 = ╱4b╱K╱ // 0x1e0d @0x11
0x1dfc…1e13 at0012 = ╱54╱T╱ // 0x1e0e @0x12
0x1dfc…1e13 at0013 = ╱4f╱O╱ // 0x1e0f @0x13
0x1dfc…1e13 at0014 = ╱ef╱$╱ // 0x1e10 @0x14
0x1dfc…1e13 at0015 = ╱ee╱)╱ // 0x1e11 @0x15
0x1dfc…1e13 at0016 = EOL // 0x1e12 @0x16
0x1dfc…1e13 }
0x1e13…1e1d b40b 2960 IF K THEN
0x1e13…1e1d LineComal80 {
0x1e13…1e1d ptr = 0xb40b // 0x1e13 @0x0
0x1e13…1e1d lno = 0x0b90 // 0x1e15 @0x2
0x1e13…1e1d at0004 = ╱9b324f╱ IF ╱ // 0x1e17 @0x4
0x1e13…1e1d at0007 = ╱4b╱K╱ // 0x1e1a @0x7
0x1e13…1e1d at0008 = ╱b5╱ THEN ╱ // 0x1e1b @0x8
0x1e13…1e1d at0009 = EOL // 0x1e1c @0x9
0x1e13…1e1d }
0x1e1d…1e33 b421 2970 EXEC LÆS_KONTO(RECNR)
0x1e1d…1e33 LineComal80 {
0x1e1d…1e33 ptr = 0xb421 // 0x1e1d @0x0
0x1e1d…1e33 lno = 0x0b9a // 0x1e1f @0x2
0x1e1d…1e33 at0004 = ╱9d╱ EXEC ╱ // 0x1e21 @0x4
0x1e1d…1e33 at0005 = ╱4c╱L╱ // 0x1e22 @0x5
0x1e1d…1e33 at0006 = ╱5b╱Æ╱ // 0x1e23 @0x6
0x1e1d…1e33 at0007 = ╱53╱S╱ // 0x1e24 @0x7
0x1e1d…1e33 at0008 = ╱5f╱_╱ // 0x1e25 @0x8
0x1e1d…1e33 at0009 = ╱4b╱K╱ // 0x1e26 @0x9
0x1e1d…1e33 at000a = ╱4f╱O╱ // 0x1e27 @0xa
0x1e1d…1e33 at000b = ╱4e╱N╱ // 0x1e28 @0xb
0x1e1d…1e33 at000c = ╱54╱T╱ // 0x1e29 @0xc
0x1e1d…1e33 at000d = ╱4f╱O╱ // 0x1e2a @0xd
0x1e1d…1e33 at000e = ╱ed╱(╱ // 0x1e2b @0xe
0x1e1d…1e33 at000f = ╱52╱R╱ // 0x1e2c @0xf
0x1e1d…1e33 at0010 = ╱45╱E╱ // 0x1e2d @0x10
0x1e1d…1e33 at0011 = ╱43╱C╱ // 0x1e2e @0x11
0x1e1d…1e33 at0012 = ╱4e╱N╱ // 0x1e2f @0x12
0x1e1d…1e33 at0013 = ╱52╱R╱ // 0x1e30 @0x13
0x1e1d…1e33 at0014 = ╱ee╱)╱ // 0x1e31 @0x14
0x1e1d…1e33 at0015 = EOL // 0x1e32 @0x15
0x1e1d…1e33 }
0x1e33…1e48 b436 2980 IF TO_TYPE$ >< "A" THEN
0x1e33…1e48 LineComal80 {
0x1e33…1e48 ptr = 0xb436 // 0x1e33 @0x0
0x1e33…1e48 lno = 0x0ba4 // 0x1e35 @0x2
0x1e33…1e48 at0004 = ╱9b334b╱ IF ╱ // 0x1e37 @0x4
0x1e33…1e48 at0007 = ╱54╱T╱ // 0x1e3a @0x7
0x1e33…1e48 at0008 = ╱4f╱O╱ // 0x1e3b @0x8
0x1e33…1e48 at0009 = ╱5f╱_╱ // 0x1e3c @0x9
0x1e33…1e48 at000a = ╱54╱T╱ // 0x1e3d @0xa
0x1e33…1e48 at000b = ╱59╱Y╱ // 0x1e3e @0xb
0x1e33…1e48 at000c = ╱50╱P╱ // 0x1e3f @0xc
0x1e33…1e48 at000d = ╱45╱E╱ // 0x1e40 @0xd
0x1e33…1e48 at000e = ╱ef╱$╱ // 0x1e41 @0xe
0x1e33…1e48 at000f = ╱e4╱ >< ╱ // 0x1e42 @0xf
0x1e33…1e48 at0010 = ╱22╱"╱ // 0x1e43 @0x10
0x1e33…1e48 at0011 = ╱41╱A╱ // 0x1e44 @0x11
0x1e33…1e48 at0012 = ╱22╱"╱ // 0x1e45 @0x12
0x1e33…1e48 at0013 = ╱b5╱ THEN ╱ // 0x1e46 @0x13
0x1e33…1e48 at0014 = EOL // 0x1e47 @0x14
0x1e33…1e48 }
0x1e48…1e79 b467 2990 EXEC FEJL("Ulovlig kontonr - kontotype < > 'A'")
0x1e48…1e79 LineComal80 {
0x1e48…1e79 ptr = 0xb467 // 0x1e48 @0x0
0x1e48…1e79 lno = 0x0bae // 0x1e4a @0x2
0x1e48…1e79 at0004 = ╱9d╱ EXEC ╱ // 0x1e4c @0x4
0x1e48…1e79 at0005 = ╱46╱F╱ // 0x1e4d @0x5
0x1e48…1e79 at0006 = ╱45╱E╱ // 0x1e4e @0x6
0x1e48…1e79 at0007 = ╱4a╱J╱ // 0x1e4f @0x7
0x1e48…1e79 at0008 = ╱4c╱L╱ // 0x1e50 @0x8
0x1e48…1e79 at0009 = ╱ed╱(╱ // 0x1e51 @0x9
0x1e48…1e79 at000a = ╱22╱"╱ // 0x1e52 @0xa
0x1e48…1e79 at000b = ╱55╱U╱ // 0x1e53 @0xb
0x1e48…1e79 at000c = ╱6c╱l╱ // 0x1e54 @0xc
0x1e48…1e79 at000d = ╱6f╱o╱ // 0x1e55 @0xd
0x1e48…1e79 at000e = ╱76╱v╱ // 0x1e56 @0xe
0x1e48…1e79 at000f = ╱6c╱l╱ // 0x1e57 @0xf
0x1e48…1e79 at0010 = ╱69╱i╱ // 0x1e58 @0x10
0x1e48…1e79 at0011 = ╱67╱g╱ // 0x1e59 @0x11
0x1e48…1e79 at0012 = ╱20╱…╱ // 0x1e5a @0x12
0x1e48…1e79 at0013 = ╱6b╱k╱ // 0x1e5b @0x13
0x1e48…1e79 at0014 = ╱6f╱o╱ // 0x1e5c @0x14
0x1e48…1e79 at0015 = ╱6e╱n╱ // 0x1e5d @0x15
0x1e48…1e79 at0016 = ╱74╱t╱ // 0x1e5e @0x16
0x1e48…1e79 at0017 = ╱6f╱o╱ // 0x1e5f @0x17
0x1e48…1e79 at0018 = ╱6e╱n╱ // 0x1e60 @0x18
0x1e48…1e79 at0019 = ╱72╱r╱ // 0x1e61 @0x19
0x1e48…1e79 at001a = ╱20╱…╱ // 0x1e62 @0x1a
0x1e48…1e79 at001b = ╱2d╱-╱ // 0x1e63 @0x1b
0x1e48…1e79 at001c = ╱20╱…╱ // 0x1e64 @0x1c
0x1e48…1e79 at001d = ╱6b╱k╱ // 0x1e65 @0x1d
0x1e48…1e79 at001e = ╱6f╱o╱ // 0x1e66 @0x1e
0x1e48…1e79 at001f = ╱6e╱n╱ // 0x1e67 @0x1f
0x1e48…1e79 at0020 = ╱74╱t╱ // 0x1e68 @0x20
0x1e48…1e79 at0021 = ╱6f╱o╱ // 0x1e69 @0x21
0x1e48…1e79 at0022 = ╱74╱t╱ // 0x1e6a @0x22
0x1e48…1e79 at0023 = ╱79╱y╱ // 0x1e6b @0x23
0x1e48…1e79 at0024 = ╱70╱p╱ // 0x1e6c @0x24
0x1e48…1e79 at0025 = ╱65╱e╱ // 0x1e6d @0x25
0x1e48…1e79 at0026 = ╱20╱…╱ // 0x1e6e @0x26
0x1e48…1e79 at0027 = ╱3c╱<╱ // 0x1e6f @0x27
0x1e48…1e79 at0028 = ╱20╱…╱ // 0x1e70 @0x28
0x1e48…1e79 at0029 = ╱3e╱>╱ // 0x1e71 @0x29
0x1e48…1e79 at002a = ╱20╱…╱ // 0x1e72 @0x2a
0x1e48…1e79 at002b = ╱27╱'╱ // 0x1e73 @0x2b
0x1e48…1e79 at002c = ╱41╱A╱ // 0x1e74 @0x2c
0x1e48…1e79 at002d = ╱27╱'╱ // 0x1e75 @0x2d
0x1e48…1e79 at002e = ╱22╱"╱ // 0x1e76 @0x2e
0x1e48…1e79 at002f = ╱ee╱)╱ // 0x1e77 @0x2f
0x1e48…1e79 at0030 = EOL // 0x1e78 @0x30
0x1e48…1e79 }
0x1e79…1e80 b46e 3000 ELSE
0x1e79…1e80 LineComal80 {
0x1e79…1e80 ptr = 0xb46e // 0x1e79 @0x0
0x1e79…1e80 lno = 0x0bb8 // 0x1e7b @0x2
0x1e79…1e80 at0004 = ╱9a34╱ ELSE ╱ // 0x1e7d @0x4
0x1e79…1e80 at0006 = EOL // 0x1e7f @0x6
0x1e79…1e80 }
0x1e80…1ebe b4ac 3010 PRINT "<C0102>" ; TAB(35 - ╱cb╱ (KTO_NAVN$) / 2) ; "Konto: " ; KTO_NAVN$
0x1e80…1ebe LineComal80 {
0x1e80…1ebe ptr = 0xb4ac // 0x1e80 @0x0
0x1e80…1ebe lno = 0x0bc2 // 0x1e82 @0x2
0x1e80…1ebe at0004 = ╱92╱ PRINT ╱ // 0x1e84 @0x4
0x1e80…1ebe at0005 = ╱22╱"╱ // 0x1e85 @0x5
0x1e80…1ebe at0006 = ╱3c╱<╱ // 0x1e86 @0x6
0x1e80…1ebe at0007 = ╱43╱C╱ // 0x1e87 @0x7
0x1e80…1ebe at0008 = ╱30╱0╱ // 0x1e88 @0x8
0x1e80…1ebe at0009 = ╱31╱1╱ // 0x1e89 @0x9
0x1e80…1ebe at000a = ╱30╱0╱ // 0x1e8a @0xa
0x1e80…1ebe at000b = ╱32╱2╱ // 0x1e8b @0xb
0x1e80…1ebe at000c = ╱3e╱>╱ // 0x1e8c @0xc
0x1e80…1ebe at000d = ╱22╱"╱ // 0x1e8d @0xd
0x1e80…1ebe at000e = ╱ea╱ ; ╱ // 0x1e8e @0xe
0x1e80…1ebe at000f = ╱d2╱TAB╱ // 0x1e8f @0xf
0x1e80…1ebe at0010 = ╱ed╱(╱ // 0x1e90 @0x10
0x1e80…1ebe at0011 = ╱33╱3╱ // 0x1e91 @0x11
0x1e80…1ebe at0012 = ╱35╱5╱ // 0x1e92 @0x12
0x1e80…1ebe at0013 = ╱f22300╱ // 0x1e93 @0x13
0x1e80…1ebe at0016 = ╱e6╱ - ╱ // 0x1e96 @0x16
0x1e80…1ebe at0017 = ╱cb╱ // 0x1e97 @0x17
0x1e80…1ebe at0018 = ╱ed╱(╱ // 0x1e98 @0x18
0x1e80…1ebe at0019 = ╱4b╱K╱ // 0x1e99 @0x19
0x1e80…1ebe at001a = ╱54╱T╱ // 0x1e9a @0x1a
0x1e80…1ebe at001b = ╱4f╱O╱ // 0x1e9b @0x1b
0x1e80…1ebe at001c = ╱5f╱_╱ // 0x1e9c @0x1c
0x1e80…1ebe at001d = ╱4e╱N╱ // 0x1e9d @0x1d
0x1e80…1ebe at001e = ╱41╱A╱ // 0x1e9e @0x1e
0x1e80…1ebe at001f = ╱56╱V╱ // 0x1e9f @0x1f
0x1e80…1ebe at0020 = ╱4e╱N╱ // 0x1ea0 @0x20
0x1e80…1ebe at0021 = ╱ef╱$╱ // 0x1ea1 @0x21
0x1e80…1ebe at0022 = ╱ee╱)╱ // 0x1ea2 @0x22
0x1e80…1ebe at0023 = ╱e8╱ / ╱ // 0x1ea3 @0x23
0x1e80…1ebe at0024 = ╱32╱2╱ // 0x1ea4 @0x24
0x1e80…1ebe at0025 = ╱f20200╱ // 0x1ea5 @0x25
0x1e80…1ebe at0028 = ╱ee╱)╱ // 0x1ea8 @0x28
0x1e80…1ebe at0029 = ╱ea╱ ; ╱ // 0x1ea9 @0x29
0x1e80…1ebe at002a = ╱22╱"╱ // 0x1eaa @0x2a
0x1e80…1ebe at002b = ╱4b╱K╱ // 0x1eab @0x2b
0x1e80…1ebe at002c = ╱6f╱o╱ // 0x1eac @0x2c
0x1e80…1ebe at002d = ╱6e╱n╱ // 0x1ead @0x2d
0x1e80…1ebe at002e = ╱74╱t╱ // 0x1eae @0x2e
0x1e80…1ebe at002f = ╱6f╱o╱ // 0x1eaf @0x2f
0x1e80…1ebe at0030 = ╱3a╱:╱ // 0x1eb0 @0x30
0x1e80…1ebe at0031 = ╱20╱…╱ // 0x1eb1 @0x31
0x1e80…1ebe at0032 = ╱22╱"╱ // 0x1eb2 @0x32
0x1e80…1ebe at0033 = ╱ea╱ ; ╱ // 0x1eb3 @0x33
0x1e80…1ebe at0034 = ╱4b╱K╱ // 0x1eb4 @0x34
0x1e80…1ebe at0035 = ╱54╱T╱ // 0x1eb5 @0x35
0x1e80…1ebe at0036 = ╱4f╱O╱ // 0x1eb6 @0x36
0x1e80…1ebe at0037 = ╱5f╱_╱ // 0x1eb7 @0x37
0x1e80…1ebe at0038 = ╱4e╱N╱ // 0x1eb8 @0x38
0x1e80…1ebe at0039 = ╱41╱A╱ // 0x1eb9 @0x39
0x1e80…1ebe at003a = ╱56╱V╱ // 0x1eba @0x3a
0x1e80…1ebe at003b = ╱4e╱N╱ // 0x1ebb @0x3b
0x1e80…1ebe at003c = ╱ef╱$╱ // 0x1ebc @0x3c
0x1e80…1ebe at003d = EOL // 0x1ebd @0x3d
0x1e80…1ebe }
0x1ebe…1ec4 b4b2 3020 ENDIF
0x1ebe…1ec4 LineComal80 {
0x1ebe…1ec4 ptr = 0xb4b2 // 0x1ebe @0x0
0x1ebe…1ec4 lno = 0x0bcc // 0x1ec0 @0x2
0x1ebe…1ec4 at0004 = ╱9c╱ ENDIF ╱ // 0x1ec2 @0x4
0x1ebe…1ec4 at0005 = EOL // 0x1ec3 @0x5
0x1ebe…1ec4 }
0x1ec4…1ecb b4b9 3030 ELSE
0x1ec4…1ecb LineComal80 {
0x1ec4…1ecb ptr = 0xb4b9 // 0x1ec4 @0x0
0x1ec4…1ecb lno = 0x0bd6 // 0x1ec6 @0x2
0x1ec4…1ecb at0004 = ╱9a35╱ ELSE ╱ // 0x1ec8 @0x4
0x1ec4…1ecb at0006 = EOL // 0x1eca @0x6
0x1ec4…1ecb }
0x1ecb…1efc b4ea 3040 EXEC FEJL("Ulovlig kontonr - konto findes ikke")
0x1ecb…1efc LineComal80 {
0x1ecb…1efc ptr = 0xb4ea // 0x1ecb @0x0
0x1ecb…1efc lno = 0x0be0 // 0x1ecd @0x2
0x1ecb…1efc at0004 = ╱9d╱ EXEC ╱ // 0x1ecf @0x4
0x1ecb…1efc at0005 = ╱46╱F╱ // 0x1ed0 @0x5
0x1ecb…1efc at0006 = ╱45╱E╱ // 0x1ed1 @0x6
0x1ecb…1efc at0007 = ╱4a╱J╱ // 0x1ed2 @0x7
0x1ecb…1efc at0008 = ╱4c╱L╱ // 0x1ed3 @0x8
0x1ecb…1efc at0009 = ╱ed╱(╱ // 0x1ed4 @0x9
0x1ecb…1efc at000a = ╱22╱"╱ // 0x1ed5 @0xa
0x1ecb…1efc at000b = ╱55╱U╱ // 0x1ed6 @0xb
0x1ecb…1efc at000c = ╱6c╱l╱ // 0x1ed7 @0xc
0x1ecb…1efc at000d = ╱6f╱o╱ // 0x1ed8 @0xd
0x1ecb…1efc at000e = ╱76╱v╱ // 0x1ed9 @0xe
0x1ecb…1efc at000f = ╱6c╱l╱ // 0x1eda @0xf
0x1ecb…1efc at0010 = ╱69╱i╱ // 0x1edb @0x10
0x1ecb…1efc at0011 = ╱67╱g╱ // 0x1edc @0x11
0x1ecb…1efc at0012 = ╱20╱…╱ // 0x1edd @0x12
0x1ecb…1efc at0013 = ╱6b╱k╱ // 0x1ede @0x13
0x1ecb…1efc at0014 = ╱6f╱o╱ // 0x1edf @0x14
0x1ecb…1efc at0015 = ╱6e╱n╱ // 0x1ee0 @0x15
0x1ecb…1efc at0016 = ╱74╱t╱ // 0x1ee1 @0x16
0x1ecb…1efc at0017 = ╱6f╱o╱ // 0x1ee2 @0x17
0x1ecb…1efc at0018 = ╱6e╱n╱ // 0x1ee3 @0x18
0x1ecb…1efc at0019 = ╱72╱r╱ // 0x1ee4 @0x19
0x1ecb…1efc at001a = ╱20╱…╱ // 0x1ee5 @0x1a
0x1ecb…1efc at001b = ╱2d╱-╱ // 0x1ee6 @0x1b
0x1ecb…1efc at001c = ╱20╱…╱ // 0x1ee7 @0x1c
0x1ecb…1efc at001d = ╱6b╱k╱ // 0x1ee8 @0x1d
0x1ecb…1efc at001e = ╱6f╱o╱ // 0x1ee9 @0x1e
0x1ecb…1efc at001f = ╱6e╱n╱ // 0x1eea @0x1f
0x1ecb…1efc at0020 = ╱74╱t╱ // 0x1eeb @0x20
0x1ecb…1efc at0021 = ╱6f╱o╱ // 0x1eec @0x21
0x1ecb…1efc at0022 = ╱20╱…╱ // 0x1eed @0x22
0x1ecb…1efc at0023 = ╱66╱f╱ // 0x1eee @0x23
0x1ecb…1efc at0024 = ╱69╱i╱ // 0x1eef @0x24
0x1ecb…1efc at0025 = ╱6e╱n╱ // 0x1ef0 @0x25
0x1ecb…1efc at0026 = ╱64╱d╱ // 0x1ef1 @0x26
0x1ecb…1efc at0027 = ╱65╱e╱ // 0x1ef2 @0x27
0x1ecb…1efc at0028 = ╱73╱s╱ // 0x1ef3 @0x28
0x1ecb…1efc at0029 = ╱20╱…╱ // 0x1ef4 @0x29
0x1ecb…1efc at002a = ╱69╱i╱ // 0x1ef5 @0x2a
0x1ecb…1efc at002b = ╱6b╱k╱ // 0x1ef6 @0x2b
0x1ecb…1efc at002c = ╱6b╱k╱ // 0x1ef7 @0x2c
0x1ecb…1efc at002d = ╱65╱e╱ // 0x1ef8 @0x2d
0x1ecb…1efc at002e = ╱22╱"╱ // 0x1ef9 @0x2e
0x1ecb…1efc at002f = ╱ee╱)╱ // 0x1efa @0x2f
0x1ecb…1efc at0030 = EOL // 0x1efb @0x30
0x1ecb…1efc }
0x1efc…1f02 b4f0 3050 ENDIF
0x1efc…1f02 LineComal80 {
0x1efc…1f02 ptr = 0xb4f0 // 0x1efc @0x0
0x1efc…1f02 lno = 0x0bea // 0x1efe @0x2
0x1efc…1f02 at0004 = ╱9c╱ ENDIF ╱ // 0x1f00 @0x4
0x1efc…1f02 at0005 = EOL // 0x1f01 @0x5
0x1efc…1f02 }
0x1f02…1f0a b4f8 3060 UNTIL OK
0x1f02…1f0a LineComal80 {
0x1f02…1f0a ptr = 0xb4f8 // 0x1f02 @0x0
0x1f02…1f0a lno = 0x0bf4 // 0x1f04 @0x2
0x1f02…1f0a at0004 = ╱98╱ UNTIL ╱ // 0x1f06 @0x4
0x1f02…1f0a at0005 = ╱4f╱O╱ // 0x1f07 @0x5
0x1f02…1f0a at0006 = ╱4b╱K╱ // 0x1f08 @0x6
0x1f02…1f0a at0007 = EOL // 0x1f09 @0x7
0x1f02…1f0a }
0x1f0a…1f11 b4ff 3070 REPEAT
0x1f0a…1f11 LineComal80 {
0x1f0a…1f11 ptr = 0xb4ff // 0x1f0a @0x0
0x1f0a…1f11 lno = 0x0bfe // 0x1f0c @0x2
0x1f0a…1f11 at0004 = ╱9736╱ REPEAT ╱ // 0x1f0e @0x4
0x1f0a…1f11 at0006 = EOL // 0x1f10 @0x6
0x1f0a…1f11 }
0x1f11…1f20 b50e 3080 LET SVAR$ := "f"
0x1f11…1f20 LineComal80 {
0x1f11…1f20 ptr = 0xb50e // 0x1f11 @0x0
0x1f11…1f20 lno = 0x0c08 // 0x1f13 @0x2
0x1f11…1f20 at0004 = ╱86╱ LET ╱ // 0x1f15 @0x4
0x1f11…1f20 at0005 = ╱53╱S╱ // 0x1f16 @0x5
0x1f11…1f20 at0006 = ╱56╱V╱ // 0x1f17 @0x6
0x1f11…1f20 at0007 = ╱41╱A╱ // 0x1f18 @0x7
0x1f11…1f20 at0008 = ╱52╱R╱ // 0x1f19 @0x8
0x1f11…1f20 at0009 = ╱ef╱$╱ // 0x1f1a @0x9
0x1f11…1f20 at000a = ╱f0╱ := ╱ // 0x1f1b @0xa
0x1f11…1f20 at000b = ╱22╱"╱ // 0x1f1c @0xb
0x1f11…1f20 at000c = ╱66╱f╱ // 0x1f1d @0xc
0x1f11…1f20 at000d = ╱22╱"╱ // 0x1f1e @0xd
0x1f11…1f20 at000e = EOL // 0x1f1f @0xe
0x1f11…1f20 }
0x1f20…1f32 b520 3090 CURSOR 78,R_SLIN
0x1f20…1f32 LineComal80 {
0x1f20…1f32 ptr = 0xb520 // 0x1f20 @0x0
0x1f20…1f32 lno = 0x0c12 // 0x1f22 @0x2
0x1f20…1f32 at0004 = ╱a1╱ CURSOR ╱ // 0x1f24 @0x4
0x1f20…1f32 at0005 = ╱37╱7╱ // 0x1f25 @0x5
0x1f20…1f32 at0006 = ╱38╱8╱ // 0x1f26 @0x6
0x1f20…1f32 at0007 = ╱f24e00╱ // 0x1f27 @0x7
0x1f20…1f32 at000a = ╱ec╱,╱ // 0x1f2a @0xa
0x1f20…1f32 at000b = ╱52╱R╱ // 0x1f2b @0xb
0x1f20…1f32 at000c = ╱5f╱_╱ // 0x1f2c @0xc
0x1f20…1f32 at000d = ╱53╱S╱ // 0x1f2d @0xd
0x1f20…1f32 at000e = ╱4c╱L╱ // 0x1f2e @0xe
0x1f20…1f32 at000f = ╱49╱I╱ // 0x1f2f @0xf
0x1f20…1f32 at0010 = ╱4e╱N╱ // 0x1f30 @0x10
0x1f20…1f32 at0011 = EOL // 0x1f31 @0x11
0x1f20…1f32 }
0x1f32…1f46 b534 3100 EDIT "" : SVAR$(1)
0x1f32…1f46 LineComal80 {
0x1f32…1f46 ptr = 0xb534 // 0x1f32 @0x0
0x1f32…1f46 lno = 0x0c1c // 0x1f34 @0x2
0x1f32…1f46 at0004 = ╱b1╱ EDIT ╱ // 0x1f36 @0x4
0x1f32…1f46 at0005 = ╱22╱"╱ // 0x1f37 @0x5
0x1f32…1f46 at0006 = ╱22╱"╱ // 0x1f38 @0x6
0x1f32…1f46 at0007 = ╱f1╱ : ╱ // 0x1f39 @0x7
0x1f32…1f46 at0008 = ╱53╱S╱ // 0x1f3a @0x8
0x1f32…1f46 at0009 = ╱56╱V╱ // 0x1f3b @0x9
0x1f32…1f46 at000a = ╱41╱A╱ // 0x1f3c @0xa
0x1f32…1f46 at000b = ╱52╱R╱ // 0x1f3d @0xb
0x1f32…1f46 at000c = ╱ef╱$╱ // 0x1f3e @0xc
0x1f32…1f46 at000d = ╱ed╱(╱ // 0x1f3f @0xd
0x1f32…1f46 at000e = ╱31╱1╱ // 0x1f40 @0xe
0x1f32…1f46 at000f = ╱f20100╱ // 0x1f41 @0xf
0x1f32…1f46 at0012 = ╱ee╱)╱ // 0x1f44 @0x12
0x1f32…1f46 at0013 = EOL // 0x1f45 @0x13
0x1f32…1f46 }
0x1f46…1f5a b548 3110 EXEC ST_BGST(SVAR$)
0x1f46…1f5a LineComal80 {
0x1f46…1f5a ptr = 0xb548 // 0x1f46 @0x0
0x1f46…1f5a lno = 0x0c26 // 0x1f48 @0x2
0x1f46…1f5a at0004 = ╱9d╱ EXEC ╱ // 0x1f4a @0x4
0x1f46…1f5a at0005 = ╱53╱S╱ // 0x1f4b @0x5
0x1f46…1f5a at0006 = ╱54╱T╱ // 0x1f4c @0x6
0x1f46…1f5a at0007 = ╱5f╱_╱ // 0x1f4d @0x7
0x1f46…1f5a at0008 = ╱42╱B╱ // 0x1f4e @0x8
0x1f46…1f5a at0009 = ╱47╱G╱ // 0x1f4f @0x9
0x1f46…1f5a at000a = ╱53╱S╱ // 0x1f50 @0xa
0x1f46…1f5a at000b = ╱54╱T╱ // 0x1f51 @0xb
0x1f46…1f5a at000c = ╱ed╱(╱ // 0x1f52 @0xc
0x1f46…1f5a at000d = ╱53╱S╱ // 0x1f53 @0xd
0x1f46…1f5a at000e = ╱56╱V╱ // 0x1f54 @0xe
0x1f46…1f5a at000f = ╱41╱A╱ // 0x1f55 @0xf
0x1f46…1f5a at0010 = ╱52╱R╱ // 0x1f56 @0x10
0x1f46…1f5a at0011 = ╱ef╱$╱ // 0x1f57 @0x11
0x1f46…1f5a at0012 = ╱ee╱)╱ // 0x1f58 @0x12
0x1f46…1f5a at0013 = EOL // 0x1f59 @0x13
0x1f46…1f5a }
0x1f5a…1f7d b56b 3120 UNTIL "/" + SVAR$(1) + "/" IN "/F/S/R/"
0x1f5a…1f7d LineComal80 {
0x1f5a…1f7d ptr = 0xb56b // 0x1f5a @0x0
0x1f5a…1f7d lno = 0x0c30 // 0x1f5c @0x2
0x1f5a…1f7d at0004 = ╱98╱ UNTIL ╱ // 0x1f5e @0x4
0x1f5a…1f7d at0005 = ╱22╱"╱ // 0x1f5f @0x5
0x1f5a…1f7d at0006 = ╱2f╱/╱ // 0x1f60 @0x6
0x1f5a…1f7d at0007 = ╱22╱"╱ // 0x1f61 @0x7
0x1f5a…1f7d at0008 = ╱eb╱ + ╱ // 0x1f62 @0x8
0x1f5a…1f7d at0009 = ╱53╱S╱ // 0x1f63 @0x9
0x1f5a…1f7d at000a = ╱56╱V╱ // 0x1f64 @0xa
0x1f5a…1f7d at000b = ╱41╱A╱ // 0x1f65 @0xb
0x1f5a…1f7d at000c = ╱52╱R╱ // 0x1f66 @0xc
0x1f5a…1f7d at000d = ╱ef╱$╱ // 0x1f67 @0xd
0x1f5a…1f7d at000e = ╱ed╱(╱ // 0x1f68 @0xe
0x1f5a…1f7d at000f = ╱31╱1╱ // 0x1f69 @0xf
0x1f5a…1f7d at0010 = ╱f20100╱ // 0x1f6a @0x10
0x1f5a…1f7d at0013 = ╱ee╱)╱ // 0x1f6d @0x13
0x1f5a…1f7d at0014 = ╱eb╱ + ╱ // 0x1f6e @0x14
0x1f5a…1f7d at0015 = ╱22╱"╱ // 0x1f6f @0x15
0x1f5a…1f7d at0016 = ╱2f╱/╱ // 0x1f70 @0x16
0x1f5a…1f7d at0017 = ╱22╱"╱ // 0x1f71 @0x17
0x1f5a…1f7d at0018 = ╱dc╱ IN ╱ // 0x1f72 @0x18
0x1f5a…1f7d at0019 = ╱22╱"╱ // 0x1f73 @0x19
0x1f5a…1f7d at001a = ╱2f╱/╱ // 0x1f74 @0x1a
0x1f5a…1f7d at001b = ╱46╱F╱ // 0x1f75 @0x1b
0x1f5a…1f7d at001c = ╱2f╱/╱ // 0x1f76 @0x1c
0x1f5a…1f7d at001d = ╱53╱S╱ // 0x1f77 @0x1d
0x1f5a…1f7d at001e = ╱2f╱/╱ // 0x1f78 @0x1e
0x1f5a…1f7d at001f = ╱52╱R╱ // 0x1f79 @0x1f
0x1f5a…1f7d at0020 = ╱2f╱/╱ // 0x1f7a @0x20
0x1f5a…1f7d at0021 = ╱22╱"╱ // 0x1f7b @0x21
0x1f5a…1f7d at0022 = EOL // 0x1f7c @0x22
0x1f5a…1f7d }
0x1f7d…1f93 b581 3130 UNTIL SVAR$(1) IN "FS"
0x1f7d…1f93 LineComal80 {
0x1f7d…1f93 ptr = 0xb581 // 0x1f7d @0x0
0x1f7d…1f93 lno = 0x0c3a // 0x1f7f @0x2
0x1f7d…1f93 at0004 = ╱98╱ UNTIL ╱ // 0x1f81 @0x4
0x1f7d…1f93 at0005 = ╱53╱S╱ // 0x1f82 @0x5
0x1f7d…1f93 at0006 = ╱56╱V╱ // 0x1f83 @0x6
0x1f7d…1f93 at0007 = ╱41╱A╱ // 0x1f84 @0x7
0x1f7d…1f93 at0008 = ╱52╱R╱ // 0x1f85 @0x8
0x1f7d…1f93 at0009 = ╱ef╱$╱ // 0x1f86 @0x9
0x1f7d…1f93 at000a = ╱ed╱(╱ // 0x1f87 @0xa
0x1f7d…1f93 at000b = ╱31╱1╱ // 0x1f88 @0xb
0x1f7d…1f93 at000c = ╱f20100╱ // 0x1f89 @0xc
0x1f7d…1f93 at000f = ╱ee╱)╱ // 0x1f8c @0xf
0x1f7d…1f93 at0010 = ╱dc╱ IN ╱ // 0x1f8d @0x10
0x1f7d…1f93 at0011 = ╱22╱"╱ // 0x1f8e @0x11
0x1f7d…1f93 at0012 = ╱46╱F╱ // 0x1f8f @0x12
0x1f7d…1f93 at0013 = ╱53╱S╱ // 0x1f90 @0x13
0x1f7d…1f93 at0014 = ╱22╱"╱ // 0x1f91 @0x14
0x1f7d…1f93 at0015 = EOL // 0x1f92 @0x15
0x1f7d…1f93 }
0x1f93…1fac b59a 3140 EXEC SKRIV_K_POST(R_LIN)
0x1f93…1fac LineComal80 {
0x1f93…1fac ptr = 0xb59a // 0x1f93 @0x0
0x1f93…1fac lno = 0x0c44 // 0x1f95 @0x2
0x1f93…1fac at0004 = ╱9d╱ EXEC ╱ // 0x1f97 @0x4
0x1f93…1fac at0005 = ╱53╱S╱ // 0x1f98 @0x5
0x1f93…1fac at0006 = ╱4b╱K╱ // 0x1f99 @0x6
0x1f93…1fac at0007 = ╱52╱R╱ // 0x1f9a @0x7
0x1f93…1fac at0008 = ╱49╱I╱ // 0x1f9b @0x8
0x1f93…1fac at0009 = ╱56╱V╱ // 0x1f9c @0x9
0x1f93…1fac at000a = ╱5f╱_╱ // 0x1f9d @0xa
0x1f93…1fac at000b = ╱4b╱K╱ // 0x1f9e @0xb
0x1f93…1fac at000c = ╱5f╱_╱ // 0x1f9f @0xc
0x1f93…1fac at000d = ╱50╱P╱ // 0x1fa0 @0xd
0x1f93…1fac at000e = ╱4f╱O╱ // 0x1fa1 @0xe
0x1f93…1fac at000f = ╱53╱S╱ // 0x1fa2 @0xf
0x1f93…1fac at0010 = ╱54╱T╱ // 0x1fa3 @0x10
0x1f93…1fac at0011 = ╱ed╱(╱ // 0x1fa4 @0x11
0x1f93…1fac at0012 = ╱52╱R╱ // 0x1fa5 @0x12
0x1f93…1fac at0013 = ╱5f╱_╱ // 0x1fa6 @0x13
0x1f93…1fac at0014 = ╱4c╱L╱ // 0x1fa7 @0x14
0x1f93…1fac at0015 = ╱49╱I╱ // 0x1fa8 @0x15
0x1f93…1fac at0016 = ╱4e╱N╱ // 0x1fa9 @0x16
0x1f93…1fac at0017 = ╱ee╱)╱ // 0x1faa @0x17
0x1f93…1fac at0018 = EOL // 0x1fab @0x18
0x1f93…1fac }
0x1fac…1fbe b5ac 3150 EXEC SL_FEJLLINIE
0x1fac…1fbe LineComal80 {
0x1fac…1fbe ptr = 0xb5ac // 0x1fac @0x0
0x1fac…1fbe lno = 0x0c4e // 0x1fae @0x2
0x1fac…1fbe at0004 = ╱9d╱ EXEC ╱ // 0x1fb0 @0x4
0x1fac…1fbe at0005 = ╱53╱S╱ // 0x1fb1 @0x5
0x1fac…1fbe at0006 = ╱4c╱L╱ // 0x1fb2 @0x6
0x1fac…1fbe at0007 = ╱5f╱_╱ // 0x1fb3 @0x7
0x1fac…1fbe at0008 = ╱46╱F╱ // 0x1fb4 @0x8
0x1fac…1fbe at0009 = ╱45╱E╱ // 0x1fb5 @0x9
0x1fac…1fbe at000a = ╱4a╱J╱ // 0x1fb6 @0xa
0x1fac…1fbe at000b = ╱4c╱L╱ // 0x1fb7 @0xb
0x1fac…1fbe at000c = ╱4c╱L╱ // 0x1fb8 @0xc
0x1fac…1fbe at000d = ╱49╱I╱ // 0x1fb9 @0xd
0x1fac…1fbe at000e = ╱4e╱N╱ // 0x1fba @0xe
0x1fac…1fbe at000f = ╱49╱I╱ // 0x1fbb @0xf
0x1fac…1fbe at0010 = ╱45╱E╱ // 0x1fbc @0x10
0x1fac…1fbe at0011 = EOL // 0x1fbd @0x11
0x1fac…1fbe }
0x1fbe…1fcc b5ba 3160 ENDPROC EDIT_LIN
0x1fbe…1fcc LineComal80 {
0x1fbe…1fcc ptr = 0xb5ba // 0x1fbe @0x0
0x1fbe…1fcc lno = 0x0c58 // 0x1fc0 @0x2
0x1fbe…1fcc at0004 = ╱9f╱ ENDPROC ╱ // 0x1fc2 @0x4
0x1fbe…1fcc at0005 = ╱45╱E╱ // 0x1fc3 @0x5
0x1fbe…1fcc at0006 = ╱44╱D╱ // 0x1fc4 @0x6
0x1fbe…1fcc at0007 = ╱49╱I╱ // 0x1fc5 @0x7
0x1fbe…1fcc at0008 = ╱54╱T╱ // 0x1fc6 @0x8
0x1fbe…1fcc at0009 = ╱5f╱_╱ // 0x1fc7 @0x9
0x1fbe…1fcc at000a = ╱4c╱L╱ // 0x1fc8 @0xa
0x1fbe…1fcc at000b = ╱49╱I╱ // 0x1fc9 @0xb
0x1fbe…1fcc at000c = ╱4e╱N╱ // 0x1fca @0xc
0x1fbe…1fcc at000d = EOL // 0x1fcb @0xd
0x1fbe…1fcc }
0x1fcc…1fd1 b5bf 3170
0x1fcc…1fd1 LineComal80 {
0x1fcc…1fd1 ptr = 0xb5bf // 0x1fcc @0x0
0x1fcc…1fd1 lno = 0x0c62 // 0x1fce @0x2
0x1fcc…1fd1 at0004 = EOL // 0x1fd0 @0x4
0x1fcc…1fd1 }
0x1fd1…1fe4 b5d2 3180 PROC SL_FEJLLINIE
0x1fd1…1fe4 LineComal80 {
0x1fd1…1fe4 ptr = 0xb5d2 // 0x1fd1 @0x0
0x1fd1…1fe4 lno = 0x0c6c // 0x1fd3 @0x2
0x1fd1…1fe4 at0004 = ╱9e37╱ PROC ╱ // 0x1fd5 @0x4
0x1fd1…1fe4 at0006 = ╱53╱S╱ // 0x1fd7 @0x6
0x1fd1…1fe4 at0007 = ╱4c╱L╱ // 0x1fd8 @0x7
0x1fd1…1fe4 at0008 = ╱5f╱_╱ // 0x1fd9 @0x8
0x1fd1…1fe4 at0009 = ╱46╱F╱ // 0x1fda @0x9
0x1fd1…1fe4 at000a = ╱45╱E╱ // 0x1fdb @0xa
0x1fd1…1fe4 at000b = ╱4a╱J╱ // 0x1fdc @0xb
0x1fd1…1fe4 at000c = ╱4c╱L╱ // 0x1fdd @0xc
0x1fd1…1fe4 at000d = ╱4c╱L╱ // 0x1fde @0xd
0x1fd1…1fe4 at000e = ╱49╱I╱ // 0x1fdf @0xe
0x1fd1…1fe4 at000f = ╱4e╱N╱ // 0x1fe0 @0xf
0x1fd1…1fe4 at0010 = ╱49╱I╱ // 0x1fe1 @0x10
0x1fd1…1fe4 at0011 = ╱45╱E╱ // 0x1fe2 @0x11
0x1fd1…1fe4 at0012 = EOL // 0x1fe3 @0x12
0x1fd1…1fe4 }
0x1fe4…1ff1 b5df 3190 LET OK := TRUE
0x1fe4…1ff1 LineComal80 {
0x1fe4…1ff1 ptr = 0xb5df // 0x1fe4 @0x0
0x1fe4…1ff1 lno = 0x0c76 // 0x1fe6 @0x2
0x1fe4…1ff1 at0004 = ╱86╱ LET ╱ // 0x1fe8 @0x4
0x1fe4…1ff1 at0005 = ╱4f╱O╱ // 0x1fe9 @0x5
0x1fe4…1ff1 at0006 = ╱4b╱K╱ // 0x1fea @0x6
0x1fe4…1ff1 at0007 = ╱f0╱ := ╱ // 0x1feb @0x7
0x1fe4…1ff1 at0008 = ╱54╱T╱ // 0x1fec @0x8
0x1fe4…1ff1 at0009 = ╱52╱R╱ // 0x1fed @0x9
0x1fe4…1ff1 at000a = ╱55╱U╱ // 0x1fee @0xa
0x1fe4…1ff1 at000b = ╱45╱E╱ // 0x1fef @0xb
0x1fe4…1ff1 at000c = EOL // 0x1ff0 @0xc
0x1fe4…1ff1 }
0x1ff1…2005 b5f3 3200 PRINT "<C0102>" ; SPC$
0x1ff1…2005 LineComal80 {
0x1ff1…2005 ptr = 0xb5f3 // 0x1ff1 @0x0
0x1ff1…2005 lno = 0x0c80 // 0x1ff3 @0x2
0x1ff1…2005 at0004 = ╱92╱ PRINT ╱ // 0x1ff5 @0x4
0x1ff1…2005 at0005 = ╱22╱"╱ // 0x1ff6 @0x5
0x1ff1…2005 at0006 = ╱3c╱<╱ // 0x1ff7 @0x6
0x1ff1…2005 at0007 = ╱43╱C╱ // 0x1ff8 @0x7
0x1ff1…2005 at0008 = ╱30╱0╱ // 0x1ff9 @0x8
0x1ff1…2005 at0009 = ╱31╱1╱ // 0x1ffa @0x9
0x1ff1…2005 at000a = ╱30╱0╱ // 0x1ffb @0xa
0x1ff1…2005 at000b = ╱32╱2╱ // 0x1ffc @0xb
0x1ff1…2005 at000c = ╱3e╱>╱ // 0x1ffd @0xc
0x1ff1…2005 at000d = ╱22╱"╱ // 0x1ffe @0xd
0x1ff1…2005 at000e = ╱ea╱ ; ╱ // 0x1fff @0xe
0x1ff1…2005 at000f = ╱53╱S╱ // 0x2000 @0xf
0x1ff1…2005 at0010 = ╱50╱P╱ // 0x2001 @0x10
0x1ff1…2005 at0011 = ╱43╱C╱ // 0x2002 @0x11
0x1ff1…2005 at0012 = ╱ef╱$╱ // 0x2003 @0x12
0x1ff1…2005 at0013 = EOL // 0x2004 @0x13
0x1ff1…2005 }
0x2005…2017 b605 3210 ENDPROC SL_FEJLLINIE
0x2005…2017 LineComal80 {
0x2005…2017 ptr = 0xb605 // 0x2005 @0x0
0x2005…2017 lno = 0x0c8a // 0x2007 @0x2
0x2005…2017 at0004 = ╱9f╱ ENDPROC ╱ // 0x2009 @0x4
0x2005…2017 at0005 = ╱53╱S╱ // 0x200a @0x5
0x2005…2017 at0006 = ╱4c╱L╱ // 0x200b @0x6
0x2005…2017 at0007 = ╱5f╱_╱ // 0x200c @0x7
0x2005…2017 at0008 = ╱46╱F╱ // 0x200d @0x8
0x2005…2017 at0009 = ╱45╱E╱ // 0x200e @0x9
0x2005…2017 at000a = ╱4a╱J╱ // 0x200f @0xa
0x2005…2017 at000b = ╱4c╱L╱ // 0x2010 @0xb
0x2005…2017 at000c = ╱4c╱L╱ // 0x2011 @0xc
0x2005…2017 at000d = ╱49╱I╱ // 0x2012 @0xd
0x2005…2017 at000e = ╱4e╱N╱ // 0x2013 @0xe
0x2005…2017 at000f = ╱49╱I╱ // 0x2014 @0xf
0x2005…2017 at0010 = ╱45╱E╱ // 0x2015 @0x10
0x2005…2017 at0011 = EOL // 0x2016 @0x11
0x2005…2017 }
0x2017…201c b60a 3220
0x2017…201c LineComal80 {
0x2017…201c ptr = 0xb60a // 0x2017 @0x0
0x2017…201c lno = 0x0c94 // 0x2019 @0x2
0x2017…201c at0004 = EOL // 0x201b @0x4
0x2017…201c }
0x201c…202c b61a 3230 PROC FEJL(ST$)
0x201c…202c LineComal80 {
0x201c…202c ptr = 0xb61a // 0x201c @0x0
0x201c…202c lno = 0x0c9e // 0x201e @0x2
0x201c…202c at0004 = ╱9e38╱ PROC ╱ // 0x2020 @0x4
0x201c…202c at0006 = ╱46╱F╱ // 0x2022 @0x6
0x201c…202c at0007 = ╱45╱E╱ // 0x2023 @0x7
0x201c…202c at0008 = ╱4a╱J╱ // 0x2024 @0x8
0x201c…202c at0009 = ╱4c╱L╱ // 0x2025 @0x9
0x201c…202c at000a = ╱ed╱(╱ // 0x2026 @0xa
0x201c…202c at000b = ╱53╱S╱ // 0x2027 @0xb
0x201c…202c at000c = ╱54╱T╱ // 0x2028 @0xc
0x201c…202c at000d = ╱ef╱$╱ // 0x2029 @0xd
0x201c…202c at000e = ╱ee╱)╱ // 0x202a @0xe
0x201c…202c at000f = EOL // 0x202b @0xf
0x201c…202c }
0x202c…203a b628 3240 LET OK := FALSE
0x202c…203a LineComal80 {
0x202c…203a ptr = 0xb628 // 0x202c @0x0
0x202c…203a lno = 0x0ca8 // 0x202e @0x2
0x202c…203a at0004 = ╱86╱ LET ╱ // 0x2030 @0x4
0x202c…203a at0005 = ╱4f╱O╱ // 0x2031 @0x5
0x202c…203a at0006 = ╱4b╱K╱ // 0x2032 @0x6
0x202c…203a at0007 = ╱f0╱ := ╱ // 0x2033 @0x7
0x202c…203a at0008 = ╱46╱F╱ // 0x2034 @0x8
0x202c…203a at0009 = ╱41╱A╱ // 0x2035 @0x9
0x202c…203a at000a = ╱4c╱L╱ // 0x2036 @0xa
0x202c…203a at000b = ╱53╱S╱ // 0x2037 @0xb
0x202c…203a at000c = ╱45╱E╱ // 0x2038 @0xc
0x202c…203a at000d = EOL // 0x2039 @0xd
0x202c…203a }
0x203a…2056 b644 3250 CURSOR 36 - ╱cb╱ (ST$) / 2,2
0x203a…2056 LineComal80 {
0x203a…2056 ptr = 0xb644 // 0x203a @0x0
0x203a…2056 lno = 0x0cb2 // 0x203c @0x2
0x203a…2056 at0004 = ╱a1╱ CURSOR ╱ // 0x203e @0x4
0x203a…2056 at0005 = ╱33╱3╱ // 0x203f @0x5
0x203a…2056 at0006 = ╱36╱6╱ // 0x2040 @0x6
0x203a…2056 at0007 = ╱f22400╱ // 0x2041 @0x7
0x203a…2056 at000a = ╱e6╱ - ╱ // 0x2044 @0xa
0x203a…2056 at000b = ╱cb╱ // 0x2045 @0xb
0x203a…2056 at000c = ╱ed╱(╱ // 0x2046 @0xc
0x203a…2056 at000d = ╱53╱S╱ // 0x2047 @0xd
0x203a…2056 at000e = ╱54╱T╱ // 0x2048 @0xe
0x203a…2056 at000f = ╱ef╱$╱ // 0x2049 @0xf
0x203a…2056 at0010 = ╱ee╱)╱ // 0x204a @0x10
0x203a…2056 at0011 = ╱e8╱ / ╱ // 0x204b @0x11
0x203a…2056 at0012 = ╱32╱2╱ // 0x204c @0x12
0x203a…2056 at0013 = ╱f20200╱ // 0x204d @0x13
0x203a…2056 at0016 = ╱ec╱,╱ // 0x2050 @0x16
0x203a…2056 at0017 = ╱32╱2╱ // 0x2051 @0x17
0x203a…2056 at0018 = ╱f20200╱ // 0x2052 @0x18
0x203a…2056 at001b = EOL // 0x2055 @0x1b
0x203a…2056 }
0x2056…2075 b663 3260 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
0x2056…2075 LineComal80 {
0x2056…2075 ptr = 0xb663 // 0x2056 @0x0
0x2056…2075 lno = 0x0cbc // 0x2058 @0x2
0x2056…2075 at0004 = ╱92╱ PRINT ╱ // 0x205a @0x4
0x2056…2075 at0005 = ╱22╱"╱ // 0x205b @0x5
0x2056…2075 at0006 = ╱2a╱*╱ // 0x205c @0x6
0x2056…2075 at0007 = ╱2a╱*╱ // 0x205d @0x7
0x2056…2075 at0008 = ╱2a╱*╱ // 0x205e @0x8
0x2056…2075 at0009 = ╱20╱…╱ // 0x205f @0x9
0x2056…2075 at000a = ╱22╱"╱ // 0x2060 @0xa
0x2056…2075 at000b = ╱eb╱ + ╱ // 0x2061 @0xb
0x2056…2075 at000c = ╱53╱S╱ // 0x2062 @0xc
0x2056…2075 at000d = ╱54╱T╱ // 0x2063 @0xd
0x2056…2075 at000e = ╱ef╱$╱ // 0x2064 @0xe
0x2056…2075 at000f = ╱eb╱ + ╱ // 0x2065 @0xf
0x2056…2075 at0010 = ╱22╱"╱ // 0x2066 @0x10
0x2056…2075 at0011 = ╱20╱…╱ // 0x2067 @0x11
0x2056…2075 at0012 = ╱2a╱*╱ // 0x2068 @0x12
0x2056…2075 at0013 = ╱2a╱*╱ // 0x2069 @0x13
0x2056…2075 at0014 = ╱2a╱*╱ // 0x206a @0x14
0x2056…2075 at0015 = ╱22╱"╱ // 0x206b @0x15
0x2056…2075 at0016 = ╱ea╱ ; ╱ // 0x206c @0x16
0x2056…2075 at0017 = ╱d0╱ CHR$ ╱ // 0x206d @0x17
0x2056…2075 at0018 = ╱ed╱(╱ // 0x206e @0x18
0x2056…2075 at0019 = ╱37╱7╱ // 0x206f @0x19
0x2056…2075 at001a = ╱f20700╱ // 0x2070 @0x1a
0x2056…2075 at001d = ╱ee╱)╱ // 0x2073 @0x1d
0x2056…2075 at001e = EOL // 0x2074 @0x1e
0x2056…2075 }
0x2075…207f b66d 3270 ENDPROC FEJL
0x2075…207f LineComal80 {
0x2075…207f ptr = 0xb66d // 0x2075 @0x0
0x2075…207f lno = 0x0cc6 // 0x2077 @0x2
0x2075…207f at0004 = ╱9f╱ ENDPROC ╱ // 0x2079 @0x4
0x2075…207f at0005 = ╱46╱F╱ // 0x207a @0x5
0x2075…207f at0006 = ╱45╱E╱ // 0x207b @0x6
0x2075…207f at0007 = ╱4a╱J╱ // 0x207c @0x7
0x2075…207f at0008 = ╱4c╱L╱ // 0x207d @0x8
0x2075…207f at0009 = EOL // 0x207e @0x9
0x2075…207f }
0x207f…2084 b672 3280
0x207f…2084 LineComal80 {
0x207f…2084 ptr = 0xb672 // 0x207f @0x0
0x207f…2084 lno = 0x0cd0 // 0x2081 @0x2
0x207f…2084 at0004 = EOL // 0x2083 @0x4
0x207f…2084 }
0x2084…2089 b677 3290
0x2084…2089 LineComal80 {
0x2084…2089 ptr = 0xb677 // 0x2084 @0x0
0x2084…2089 lno = 0x0cda // 0x2086 @0x2
0x2084…2089 at0004 = EOL // 0x2088 @0x4
0x2084…2089 }
0x2089…209e b68c 3300 PROC INDTAST_POSTER
0x2089…209e LineComal80 {
0x2089…209e ptr = 0xb68c // 0x2089 @0x0
0x2089…209e lno = 0x0ce4 // 0x208b @0x2
0x2089…209e at0004 = ╱9e39╱ PROC ╱ // 0x208d @0x4
0x2089…209e at0006 = ╱49╱I╱ // 0x208f @0x6
0x2089…209e at0007 = ╱4e╱N╱ // 0x2090 @0x7
0x2089…209e at0008 = ╱44╱D╱ // 0x2091 @0x8
0x2089…209e at0009 = ╱54╱T╱ // 0x2092 @0x9
0x2089…209e at000a = ╱41╱A╱ // 0x2093 @0xa
0x2089…209e at000b = ╱53╱S╱ // 0x2094 @0xb
0x2089…209e at000c = ╱54╱T╱ // 0x2095 @0xc
0x2089…209e at000d = ╱5f╱_╱ // 0x2096 @0xd
0x2089…209e at000e = ╱50╱P╱ // 0x2097 @0xe
0x2089…209e at000f = ╱4f╱O╱ // 0x2098 @0xf
0x2089…209e at0010 = ╱53╱S╱ // 0x2099 @0x10
0x2089…209e at0011 = ╱54╱T╱ // 0x209a @0x11
0x2089…209e at0012 = ╱45╱E╱ // 0x209b @0x12
0x2089…209e at0013 = ╱52╱R╱ // 0x209c @0x13
0x2089…209e at0014 = EOL // 0x209d @0x14
0x2089…209e }
0x209e…20b0 b69e 3310 EXEC SKRIV_LINIER
0x209e…20b0 LineComal80 {
0x209e…20b0 ptr = 0xb69e // 0x209e @0x0
0x209e…20b0 lno = 0x0cee // 0x20a0 @0x2
0x209e…20b0 at0004 = ╱9d╱ EXEC ╱ // 0x20a2 @0x4
0x209e…20b0 at0005 = ╱53╱S╱ // 0x20a3 @0x5
0x209e…20b0 at0006 = ╱4b╱K╱ // 0x20a4 @0x6
0x209e…20b0 at0007 = ╱52╱R╱ // 0x20a5 @0x7
0x209e…20b0 at0008 = ╱49╱I╱ // 0x20a6 @0x8
0x209e…20b0 at0009 = ╱56╱V╱ // 0x20a7 @0x9
0x209e…20b0 at000a = ╱5f╱_╱ // 0x20a8 @0xa
0x209e…20b0 at000b = ╱4c╱L╱ // 0x20a9 @0xb
0x209e…20b0 at000c = ╱49╱I╱ // 0x20aa @0xc
0x209e…20b0 at000d = ╱4e╱N╱ // 0x20ab @0xd
0x209e…20b0 at000e = ╱49╱I╱ // 0x20ac @0xe
0x209e…20b0 at000f = ╱45╱E╱ // 0x20ad @0xf
0x209e…20b0 at0010 = ╱52╱R╱ // 0x20ae @0x10
0x209e…20b0 at0011 = EOL // 0x20af @0x11
0x209e…20b0 }
0x20b0…20bf b6ad 3320 LET SVAR$ := "F"
0x20b0…20bf LineComal80 {
0x20b0…20bf ptr = 0xb6ad // 0x20b0 @0x0
0x20b0…20bf lno = 0x0cf8 // 0x20b2 @0x2
0x20b0…20bf at0004 = ╱86╱ LET ╱ // 0x20b4 @0x4
0x20b0…20bf at0005 = ╱53╱S╱ // 0x20b5 @0x5
0x20b0…20bf at0006 = ╱56╱V╱ // 0x20b6 @0x6
0x20b0…20bf at0007 = ╱41╱A╱ // 0x20b7 @0x7
0x20b0…20bf at0008 = ╱52╱R╱ // 0x20b8 @0x8
0x20b0…20bf at0009 = ╱ef╱$╱ // 0x20b9 @0x9
0x20b0…20bf at000a = ╱f0╱ := ╱ // 0x20ba @0xa
0x20b0…20bf at000b = ╱22╱"╱ // 0x20bb @0xb
0x20b0…20bf at000c = ╱46╱F╱ // 0x20bc @0xc
0x20b0…20bf at000d = ╱22╱"╱ // 0x20bd @0xd
0x20b0…20bf at000e = EOL // 0x20be @0xe
0x20b0…20bf }
0x20bf…20d0 b6be 3330 WHILE SVAR$ = "F" DO
0x20bf…20d0 LineComal80 {
0x20bf…20d0 ptr = 0xb6be // 0x20bf @0x0
0x20bf…20d0 lno = 0x0d02 // 0x20c1 @0x2
0x20bf…20d0 at0004 = ╱933a╱ WHILE ╱ // 0x20c3 @0x4
0x20bf…20d0 at0006 = ╱53╱S╱ // 0x20c5 @0x6
0x20bf…20d0 at0007 = ╱56╱V╱ // 0x20c6 @0x7
0x20bf…20d0 at0008 = ╱41╱A╱ // 0x20c7 @0x8
0x20bf…20d0 at0009 = ╱52╱R╱ // 0x20c8 @0x9
0x20bf…20d0 at000a = ╱ef╱$╱ // 0x20c9 @0xa
0x20bf…20d0 at000b = ╱df╱ = ╱ // 0x20ca @0xb
0x20bf…20d0 at000c = ╱22╱"╱ // 0x20cb @0xc
0x20bf…20d0 at000d = ╱46╱F╱ // 0x20cc @0xd
0x20bf…20d0 at000e = ╱22╱"╱ // 0x20cd @0xe
0x20bf…20d0 at000f = ╱bb╱ DO ╱ // 0x20ce @0xf
0x20bf…20d0 at0010 = EOL // 0x20cf @0x10
0x20bf…20d0 }
0x20d0…2106 b6f4 3340 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
0x20d0…2106 LineComal80 {
0x20d0…2106 ptr = 0xb6f4 // 0x20d0 @0x0
0x20d0…2106 lno = 0x0d0c // 0x20d2 @0x2
0x20d0…2106 at0004 = ╱a9╱ GET ╱ // 0x20d4 @0x4
0x20d0…2106 at0005 = ╱4b╱K╱ // 0x20d5 @0x5
0x20d0…2106 at0006 = ╱41╱A╱ // 0x20d6 @0x6
0x20d0…2106 at0007 = ╱53╱S╱ // 0x20d7 @0x7
0x20d0…2106 at0008 = ╱53╱S╱ // 0x20d8 @0x8
0x20d0…2106 at0009 = ╱45╱E╱ // 0x20d9 @0x9
0x20d0…2106 at000a = ╱ef╱$╱ // 0x20da @0xa
0x20d0…2106 at000b = ╱ec╱,╱ // 0x20db @0xb
0x20d0…2106 at000c = ╱31╱1╱ // 0x20dc @0xc
0x20d0…2106 at000d = ╱f20100╱ // 0x20dd @0xd
0x20d0…2106 at0010 = ╱f1╱ : ╱ // 0x20e0 @0x10
0x20d0…2106 at0011 = ╱4b╱K╱ // 0x20e1 @0x11
0x20d0…2106 at0012 = ╱5f╱_╱ // 0x20e2 @0x12
0x20d0…2106 at0013 = ╱48╱H╱ // 0x20e3 @0x13
0x20d0…2106 at0014 = ╱5c╱Ø╱ // 0x20e4 @0x14
0x20d0…2106 at0015 = ╱4a╱J╱ // 0x20e5 @0x15
0x20d0…2106 at0016 = ╱52╱R╱ // 0x20e6 @0x16
0x20d0…2106 at0017 = ╱45╱E╱ // 0x20e7 @0x17
0x20d0…2106 at0018 = ╱43╱C╱ // 0x20e8 @0x18
0x20d0…2106 at0019 = ╱ec╱,╱ // 0x20e9 @0x19
0x20d0…2106 at001a = ╱4b╱K╱ // 0x20ea @0x1a
0x20d0…2106 at001b = ╱5f╱_╱ // 0x20eb @0x1b
0x20d0…2106 at001c = ╱4d╱M╱ // 0x20ec @0x1c
0x20d0…2106 at001d = ╱41╱A╱ // 0x20ed @0x1d
0x20d0…2106 at001e = ╱58╱X╱ // 0x20ee @0x1e
0x20d0…2106 at001f = ╱52╱R╱ // 0x20ef @0x1f
0x20d0…2106 at0020 = ╱45╱E╱ // 0x20f0 @0x20
0x20d0…2106 at0021 = ╱43╱C╱ // 0x20f1 @0x21
0x20d0…2106 at0022 = ╱ec╱,╱ // 0x20f2 @0x22
0x20d0…2106 at0023 = ╱53╱S╱ // 0x20f3 @0x23
0x20d0…2106 at0024 = ╱5f╱_╱ // 0x20f4 @0x24
0x20d0…2106 at0025 = ╱4e╱N╱ // 0x20f5 @0x25
0x20d0…2106 at0026 = ╱52╱R╱ // 0x20f6 @0x26
0x20d0…2106 at0027 = ╱5f╱_╱ // 0x20f7 @0x27
0x20d0…2106 at0028 = ╱4b╱K╱ // 0x20f8 @0x28
0x20d0…2106 at0029 = ╱41╱A╱ // 0x20f9 @0x29
0x20d0…2106 at002a = ╱53╱S╱ // 0x20fa @0x2a
0x20d0…2106 at002b = ╱53╱S╱ // 0x20fb @0x2b
0x20d0…2106 at002c = ╱45╱E╱ // 0x20fc @0x2c
0x20d0…2106 at002d = ╱ec╱,╱ // 0x20fd @0x2d
0x20d0…2106 at002e = ╱4b╱K╱ // 0x20fe @0x2e
0x20d0…2106 at002f = ╱5f╱_╱ // 0x20ff @0x2f
0x20d0…2106 at0030 = ╱42╱B╱ // 0x2100 @0x30
0x20d0…2106 at0031 = ╱44╱D╱ // 0x2101 @0x31
0x20d0…2106 at0032 = ╱41╱A╱ // 0x2102 @0x32
0x20d0…2106 at0033 = ╱54╱T╱ // 0x2103 @0x33
0x20d0…2106 at0034 = ╱ef╱$╱ // 0x2104 @0x34
0x20d0…2106 at0035 = EOL // 0x2105 @0x35
0x20d0…2106 }
0x2106…212d b71b 3350 IF K_HØJREC = 1 THEN LET K_BDAT$ := SYST_DAT$
0x2106…212d LineComal80 {
0x2106…212d ptr = 0xb71b // 0x2106 @0x0
0x2106…212d lno = 0x0d16 // 0x2108 @0x2
0x2106…212d at0004 = ╱8200╱ IF ╱ // 0x210a @0x4
0x2106…212d at0006 = ╱4b╱K╱ // 0x210c @0x6
0x2106…212d at0007 = ╱5f╱_╱ // 0x210d @0x7
0x2106…212d at0008 = ╱48╱H╱ // 0x210e @0x8
0x2106…212d at0009 = ╱5c╱Ø╱ // 0x210f @0x9
0x2106…212d at000a = ╱4a╱J╱ // 0x2110 @0xa
0x2106…212d at000b = ╱52╱R╱ // 0x2111 @0xb
0x2106…212d at000c = ╱45╱E╱ // 0x2112 @0xc
0x2106…212d at000d = ╱43╱C╱ // 0x2113 @0xd
0x2106…212d at000e = ╱df╱ = ╱ // 0x2114 @0xe
0x2106…212d at000f = ╱31╱1╱ // 0x2115 @0xf
0x2106…212d at0010 = ╱f20100╱ // 0x2116 @0x10
0x2106…212d at0013 = ╱b5╱ THEN ╱ // 0x2119 @0x13
0x2106…212d at0014 = ╱86╱ LET ╱ // 0x211a @0x14
0x2106…212d at0015 = ╱4b╱K╱ // 0x211b @0x15
0x2106…212d at0016 = ╱5f╱_╱ // 0x211c @0x16
0x2106…212d at0017 = ╱42╱B╱ // 0x211d @0x17
0x2106…212d at0018 = ╱44╱D╱ // 0x211e @0x18
0x2106…212d at0019 = ╱41╱A╱ // 0x211f @0x19
0x2106…212d at001a = ╱54╱T╱ // 0x2120 @0x1a
0x2106…212d at001b = ╱ef╱$╱ // 0x2121 @0x1b
0x2106…212d at001c = ╱f0╱ := ╱ // 0x2122 @0x1c
0x2106…212d at001d = ╱53╱S╱ // 0x2123 @0x1d
0x2106…212d at001e = ╱59╱Y╱ // 0x2124 @0x1e
0x2106…212d at001f = ╱53╱S╱ // 0x2125 @0x1f
0x2106…212d at0020 = ╱54╱T╱ // 0x2126 @0x20
0x2106…212d at0021 = ╱5f╱_╱ // 0x2127 @0x21
0x2106…212d at0022 = ╱44╱D╱ // 0x2128 @0x22
0x2106…212d at0023 = ╱41╱A╱ // 0x2129 @0x23
0x2106…212d at0024 = ╱54╱T╱ // 0x212a @0x24
0x2106…212d at0025 = ╱ef╱$╱ // 0x212b @0x25
0x2106…212d at0026 = EOL // 0x212c @0x26
0x2106…212d }
0x212d…2146 b734 3360 IF _HØJREC = K_MAXREC THEN
0x212d…2146 LineComal80 {
0x212d…2146 ptr = 0xb734 // 0x212d @0x0
0x212d…2146 lno = 0x0d20 // 0x212f @0x2
0x212d…2146 at0004 = ╱9b3b4b╱ IF ╱ // 0x2131 @0x4
0x212d…2146 at0007 = ╱5f╱_╱ // 0x2134 @0x7
0x212d…2146 at0008 = ╱48╱H╱ // 0x2135 @0x8
0x212d…2146 at0009 = ╱5c╱Ø╱ // 0x2136 @0x9
0x212d…2146 at000a = ╱4a╱J╱ // 0x2137 @0xa
0x212d…2146 at000b = ╱52╱R╱ // 0x2138 @0xb
0x212d…2146 at000c = ╱45╱E╱ // 0x2139 @0xc
0x212d…2146 at000d = ╱43╱C╱ // 0x213a @0xd
0x212d…2146 at000e = ╱df╱ = ╱ // 0x213b @0xe
0x212d…2146 at000f = ╱4b╱K╱ // 0x213c @0xf
0x212d…2146 at0010 = ╱5f╱_╱ // 0x213d @0x10
0x212d…2146 at0011 = ╱4d╱M╱ // 0x213e @0x11
0x212d…2146 at0012 = ╱41╱A╱ // 0x213f @0x12
0x212d…2146 at0013 = ╱58╱X╱ // 0x2140 @0x13
0x212d…2146 at0014 = ╱52╱R╱ // 0x2141 @0x14
0x212d…2146 at0015 = ╱45╱E╱ // 0x2142 @0x15
0x212d…2146 at0016 = ╱43╱C╱ // 0x2143 @0x16
0x212d…2146 at0017 = ╱b5╱ THEN ╱ // 0x2144 @0x17
0x212d…2146 at0018 = EOL // 0x2145 @0x18
0x212d…2146 }
0x2146…218b b779 3370 EXEC FEJL("Der kan ikke indtastes flere posteringer før afstemning")
0x2146…218b LineComal80 {
0x2146…218b ptr = 0xb779 // 0x2146 @0x0
0x2146…218b lno = 0x0d2a // 0x2148 @0x2
0x2146…218b at0004 = ╱9d╱ EXEC ╱ // 0x214a @0x4
0x2146…218b at0005 = ╱46╱F╱ // 0x214b @0x5
0x2146…218b at0006 = ╱45╱E╱ // 0x214c @0x6
0x2146…218b at0007 = ╱4a╱J╱ // 0x214d @0x7
0x2146…218b at0008 = ╱4c╱L╱ // 0x214e @0x8
0x2146…218b at0009 = ╱ed╱(╱ // 0x214f @0x9
0x2146…218b at000a = ╱22╱"╱ // 0x2150 @0xa
0x2146…218b at000b = ╱44╱D╱ // 0x2151 @0xb
0x2146…218b at000c = ╱65╱e╱ // 0x2152 @0xc
0x2146…218b at000d = ╱72╱r╱ // 0x2153 @0xd
0x2146…218b at000e = ╱20╱…╱ // 0x2154 @0xe
0x2146…218b at000f = ╱6b╱k╱ // 0x2155 @0xf
0x2146…218b at0010 = ╱61╱a╱ // 0x2156 @0x10
0x2146…218b at0011 = ╱6e╱n╱ // 0x2157 @0x11
0x2146…218b at0012 = ╱20╱…╱ // 0x2158 @0x12
0x2146…218b at0013 = ╱69╱i╱ // 0x2159 @0x13
0x2146…218b at0014 = ╱6b╱k╱ // 0x215a @0x14
0x2146…218b at0015 = ╱6b╱k╱ // 0x215b @0x15
0x2146…218b at0016 = ╱65╱e╱ // 0x215c @0x16
0x2146…218b at0017 = ╱20╱…╱ // 0x215d @0x17
0x2146…218b at0018 = ╱69╱i╱ // 0x215e @0x18
0x2146…218b at0019 = ╱6e╱n╱ // 0x215f @0x19
0x2146…218b at001a = ╱64╱d╱ // 0x2160 @0x1a
0x2146…218b at001b = ╱74╱t╱ // 0x2161 @0x1b
0x2146…218b at001c = ╱61╱a╱ // 0x2162 @0x1c
0x2146…218b at001d = ╱73╱s╱ // 0x2163 @0x1d
0x2146…218b at001e = ╱74╱t╱ // 0x2164 @0x1e
0x2146…218b at001f = ╱65╱e╱ // 0x2165 @0x1f
0x2146…218b at0020 = ╱73╱s╱ // 0x2166 @0x20
0x2146…218b at0021 = ╱20╱…╱ // 0x2167 @0x21
0x2146…218b at0022 = ╱66╱f╱ // 0x2168 @0x22
0x2146…218b at0023 = ╱6c╱l╱ // 0x2169 @0x23
0x2146…218b at0024 = ╱65╱e╱ // 0x216a @0x24
0x2146…218b at0025 = ╱72╱r╱ // 0x216b @0x25
0x2146…218b at0026 = ╱65╱e╱ // 0x216c @0x26
0x2146…218b at0027 = ╱20╱…╱ // 0x216d @0x27
0x2146…218b at0028 = ╱70╱p╱ // 0x216e @0x28
0x2146…218b at0029 = ╱6f╱o╱ // 0x216f @0x29
0x2146…218b at002a = ╱73╱s╱ // 0x2170 @0x2a
0x2146…218b at002b = ╱74╱t╱ // 0x2171 @0x2b
0x2146…218b at002c = ╱65╱e╱ // 0x2172 @0x2c
0x2146…218b at002d = ╱72╱r╱ // 0x2173 @0x2d
0x2146…218b at002e = ╱69╱i╱ // 0x2174 @0x2e
0x2146…218b at002f = ╱6e╱n╱ // 0x2175 @0x2f
0x2146…218b at0030 = ╱67╱g╱ // 0x2176 @0x30
0x2146…218b at0031 = ╱65╱e╱ // 0x2177 @0x31
0x2146…218b at0032 = ╱72╱r╱ // 0x2178 @0x32
0x2146…218b at0033 = ╱20╱…╱ // 0x2179 @0x33
0x2146…218b at0034 = ╱66╱f╱ // 0x217a @0x34
0x2146…218b at0035 = ╱7c╱ø╱ // 0x217b @0x35
0x2146…218b at0036 = ╱72╱r╱ // 0x217c @0x36
0x2146…218b at0037 = ╱20╱…╱ // 0x217d @0x37
0x2146…218b at0038 = ╱61╱a╱ // 0x217e @0x38
0x2146…218b at0039 = ╱66╱f╱ // 0x217f @0x39
0x2146…218b at003a = ╱73╱s╱ // 0x2180 @0x3a
0x2146…218b at003b = ╱74╱t╱ // 0x2181 @0x3b
0x2146…218b at003c = ╱65╱e╱ // 0x2182 @0x3c
0x2146…218b at003d = ╱6d╱m╱ // 0x2183 @0x3d
0x2146…218b at003e = ╱6e╱n╱ // 0x2184 @0x3e
0x2146…218b at003f = ╱69╱i╱ // 0x2185 @0x3f
0x2146…218b at0040 = ╱6e╱n╱ // 0x2186 @0x40
0x2146…218b at0041 = ╱67╱g╱ // 0x2187 @0x41
0x2146…218b at0042 = ╱22╱"╱ // 0x2188 @0x42
0x2146…218b at0043 = ╱ee╱)╱ // 0x2189 @0x43
0x2146…218b at0044 = EOL // 0x218a @0x44
0x2146…218b }
0x218b…21ac b79a 3380 INPUT "<SC6524>Tryk RETURN" : SVAR$
0x218b…21ac LineComal80 {
0x218b…21ac ptr = 0xb79a // 0x218b @0x0
0x218b…21ac lno = 0x0d34 // 0x218d @0x2
0x218b…21ac at0004 = ╱91╱ INPUT ╱ // 0x218f @0x4
0x218b…21ac at0005 = ╱22╱"╱ // 0x2190 @0x5
0x218b…21ac at0006 = ╱3c╱<╱ // 0x2191 @0x6
0x218b…21ac at0007 = ╱53╱S╱ // 0x2192 @0x7
0x218b…21ac at0008 = ╱43╱C╱ // 0x2193 @0x8
0x218b…21ac at0009 = ╱36╱6╱ // 0x2194 @0x9
0x218b…21ac at000a = ╱35╱5╱ // 0x2195 @0xa
0x218b…21ac at000b = ╱32╱2╱ // 0x2196 @0xb
0x218b…21ac at000c = ╱34╱4╱ // 0x2197 @0xc
0x218b…21ac at000d = ╱3e╱>╱ // 0x2198 @0xd
0x218b…21ac at000e = ╱54╱T╱ // 0x2199 @0xe
0x218b…21ac at000f = ╱72╱r╱ // 0x219a @0xf
0x218b…21ac at0010 = ╱79╱y╱ // 0x219b @0x10
0x218b…21ac at0011 = ╱6b╱k╱ // 0x219c @0x11
0x218b…21ac at0012 = ╱20╱…╱ // 0x219d @0x12
0x218b…21ac at0013 = ╱52╱R╱ // 0x219e @0x13
0x218b…21ac at0014 = ╱45╱E╱ // 0x219f @0x14
0x218b…21ac at0015 = ╱54╱T╱ // 0x21a0 @0x15
0x218b…21ac at0016 = ╱55╱U╱ // 0x21a1 @0x16
0x218b…21ac at0017 = ╱52╱R╱ // 0x21a2 @0x17
0x218b…21ac at0018 = ╱4e╱N╱ // 0x21a3 @0x18
0x218b…21ac at0019 = ╱22╱"╱ // 0x21a4 @0x19
0x218b…21ac at001a = ╱f1╱ : ╱ // 0x21a5 @0x1a
0x218b…21ac at001b = ╱53╱S╱ // 0x21a6 @0x1b
0x218b…21ac at001c = ╱56╱V╱ // 0x21a7 @0x1c
0x218b…21ac at001d = ╱41╱A╱ // 0x21a8 @0x1d
0x218b…21ac at001e = ╱52╱R╱ // 0x21a9 @0x1e
0x218b…21ac at001f = ╱ef╱$╱ // 0x21aa @0x1f
0x218b…21ac at0020 = EOL // 0x21ab @0x20
0x218b…21ac }
0x21ac…21be b7ac 3390 EXEC SL_FEJLLINIE
0x21ac…21be LineComal80 {
0x21ac…21be ptr = 0xb7ac // 0x21ac @0x0
0x21ac…21be lno = 0x0d3e // 0x21ae @0x2
0x21ac…21be at0004 = ╱9d╱ EXEC ╱ // 0x21b0 @0x4
0x21ac…21be at0005 = ╱53╱S╱ // 0x21b1 @0x5
0x21ac…21be at0006 = ╱4c╱L╱ // 0x21b2 @0x6
0x21ac…21be at0007 = ╱5f╱_╱ // 0x21b3 @0x7
0x21ac…21be at0008 = ╱46╱F╱ // 0x21b4 @0x8
0x21ac…21be at0009 = ╱45╱E╱ // 0x21b5 @0x9
0x21ac…21be at000a = ╱4a╱J╱ // 0x21b6 @0xa
0x21ac…21be at000b = ╱4c╱L╱ // 0x21b7 @0xb
0x21ac…21be at000c = ╱4c╱L╱ // 0x21b8 @0xc
0x21ac…21be at000d = ╱49╱I╱ // 0x21b9 @0xd
0x21ac…21be at000e = ╱4e╱N╱ // 0x21ba @0xe
0x21ac…21be at000f = ╱49╱I╱ // 0x21bb @0xf
0x21ac…21be at0010 = ╱45╱E╱ // 0x21bc @0x10
0x21ac…21be at0011 = EOL // 0x21bd @0x11
0x21ac…21be }
0x21be…21c4 b7b2 3400 EXIT
0x21be…21c4 LineComal80 {
0x21be…21c4 ptr = 0xb7b2 // 0x21be @0x0
0x21be…21c4 lno = 0x0d48 // 0x21c0 @0x2
0x21be…21c4 at0004 = ╱99╱ EXIT ╱ // 0x21c2 @0x4
0x21be…21c4 at0005 = EOL // 0x21c3 @0x5
0x21be…21c4 }
0x21c4…21ca b7b8 3410 ENDIF
0x21c4…21ca LineComal80 {
0x21c4…21ca ptr = 0xb7b8 // 0x21c4 @0x0
0x21c4…21ca lno = 0x0d52 // 0x21c6 @0x2
0x21c4…21ca at0004 = ╱9c╱ ENDIF ╱ // 0x21c8 @0x4
0x21c4…21ca at0005 = EOL // 0x21c9 @0x5
0x21c4…21ca }
0x21ca…21e6 b7d4 3420 LET K_HØJREC := K_HØJREC + 1
0x21ca…21e6 LineComal80 {
0x21ca…21e6 ptr = 0xb7d4 // 0x21ca @0x0
0x21ca…21e6 lno = 0x0d5c // 0x21cc @0x2
0x21ca…21e6 at0004 = ╱86╱ LET ╱ // 0x21ce @0x4
0x21ca…21e6 at0005 = ╱4b╱K╱ // 0x21cf @0x5
0x21ca…21e6 at0006 = ╱5f╱_╱ // 0x21d0 @0x6
0x21ca…21e6 at0007 = ╱48╱H╱ // 0x21d1 @0x7
0x21ca…21e6 at0008 = ╱5c╱Ø╱ // 0x21d2 @0x8
0x21ca…21e6 at0009 = ╱4a╱J╱ // 0x21d3 @0x9
0x21ca…21e6 at000a = ╱52╱R╱ // 0x21d4 @0xa
0x21ca…21e6 at000b = ╱45╱E╱ // 0x21d5 @0xb
0x21ca…21e6 at000c = ╱43╱C╱ // 0x21d6 @0xc
0x21ca…21e6 at000d = ╱f0╱ := ╱ // 0x21d7 @0xd
0x21ca…21e6 at000e = ╱4b╱K╱ // 0x21d8 @0xe
0x21ca…21e6 at000f = ╱5f╱_╱ // 0x21d9 @0xf
0x21ca…21e6 at0010 = ╱48╱H╱ // 0x21da @0x10
0x21ca…21e6 at0011 = ╱5c╱Ø╱ // 0x21db @0x11
0x21ca…21e6 at0012 = ╱4a╱J╱ // 0x21dc @0x12
0x21ca…21e6 at0013 = ╱52╱R╱ // 0x21dd @0x13
0x21ca…21e6 at0014 = ╱45╱E╱ // 0x21de @0x14
0x21ca…21e6 at0015 = ╱43╱C╱ // 0x21df @0x15
0x21ca…21e6 at0016 = ╱e5╱ + ╱ // 0x21e0 @0x16
0x21ca…21e6 at0017 = ╱31╱1╱ // 0x21e1 @0x17
0x21ca…21e6 at0018 = ╱f20100╱ // 0x21e2 @0x18
0x21ca…21e6 at001b = EOL // 0x21e5 @0x1b
0x21ca…21e6 }
0x21e6…2203 b7f1 3430 EXEC EDIT_LIN(K_HØJREC - 1)
0x21e6…2203 LineComal80 {
0x21e6…2203 ptr = 0xb7f1 // 0x21e6 @0x0
0x21e6…2203 lno = 0x0d66 // 0x21e8 @0x2
0x21e6…2203 at0004 = ╱9d╱ EXEC ╱ // 0x21ea @0x4
0x21e6…2203 at0005 = ╱45╱E╱ // 0x21eb @0x5
0x21e6…2203 at0006 = ╱44╱D╱ // 0x21ec @0x6
0x21e6…2203 at0007 = ╱49╱I╱ // 0x21ed @0x7
0x21e6…2203 at0008 = ╱54╱T╱ // 0x21ee @0x8
0x21e6…2203 at0009 = ╱5f╱_╱ // 0x21ef @0x9
0x21e6…2203 at000a = ╱4c╱L╱ // 0x21f0 @0xa
0x21e6…2203 at000b = ╱49╱I╱ // 0x21f1 @0xb
0x21e6…2203 at000c = ╱4e╱N╱ // 0x21f2 @0xc
0x21e6…2203 at000d = ╱ed╱(╱ // 0x21f3 @0xd
0x21e6…2203 at000e = ╱4b╱K╱ // 0x21f4 @0xe
0x21e6…2203 at000f = ╱5f╱_╱ // 0x21f5 @0xf
0x21e6…2203 at0010 = ╱48╱H╱ // 0x21f6 @0x10
0x21e6…2203 at0011 = ╱5c╱Ø╱ // 0x21f7 @0x11
0x21e6…2203 at0012 = ╱4a╱J╱ // 0x21f8 @0x12
0x21e6…2203 at0013 = ╱52╱R╱ // 0x21f9 @0x13
0x21e6…2203 at0014 = ╱45╱E╱ // 0x21fa @0x14
0x21e6…2203 at0015 = ╱43╱C╱ // 0x21fb @0x15
0x21e6…2203 at0016 = ╱e6╱ - ╱ // 0x21fc @0x16
0x21e6…2203 at0017 = ╱31╱1╱ // 0x21fd @0x17
0x21e6…2203 at0018 = ╱f20100╱ // 0x21fe @0x18
0x21e6…2203 at001b = ╱ee╱)╱ // 0x2201 @0x1b
0x21e6…2203 at001c = EOL // 0x2202 @0x1c
0x21e6…2203 }
0x2203…2239 b827 3440 PUT KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
0x2203…2239 LineComal80 {
0x2203…2239 ptr = 0xb827 // 0x2203 @0x0
0x2203…2239 lno = 0x0d70 // 0x2205 @0x2
0x2203…2239 at0004 = ╱aa╱ PUT ╱ // 0x2207 @0x4
0x2203…2239 at0005 = ╱4b╱K╱ // 0x2208 @0x5
0x2203…2239 at0006 = ╱41╱A╱ // 0x2209 @0x6
0x2203…2239 at0007 = ╱53╱S╱ // 0x220a @0x7
0x2203…2239 at0008 = ╱53╱S╱ // 0x220b @0x8
0x2203…2239 at0009 = ╱45╱E╱ // 0x220c @0x9
0x2203…2239 at000a = ╱ef╱$╱ // 0x220d @0xa
0x2203…2239 at000b = ╱ec╱,╱ // 0x220e @0xb
0x2203…2239 at000c = ╱31╱1╱ // 0x220f @0xc
0x2203…2239 at000d = ╱f20100╱ // 0x2210 @0xd
0x2203…2239 at0010 = ╱f1╱ : ╱ // 0x2213 @0x10
0x2203…2239 at0011 = ╱4b╱K╱ // 0x2214 @0x11
0x2203…2239 at0012 = ╱5f╱_╱ // 0x2215 @0x12
0x2203…2239 at0013 = ╱48╱H╱ // 0x2216 @0x13
0x2203…2239 at0014 = ╱5c╱Ø╱ // 0x2217 @0x14
0x2203…2239 at0015 = ╱4a╱J╱ // 0x2218 @0x15
0x2203…2239 at0016 = ╱52╱R╱ // 0x2219 @0x16
0x2203…2239 at0017 = ╱45╱E╱ // 0x221a @0x17
0x2203…2239 at0018 = ╱43╱C╱ // 0x221b @0x18
0x2203…2239 at0019 = ╱ec╱,╱ // 0x221c @0x19
0x2203…2239 at001a = ╱4b╱K╱ // 0x221d @0x1a
0x2203…2239 at001b = ╱5f╱_╱ // 0x221e @0x1b
0x2203…2239 at001c = ╱4d╱M╱ // 0x221f @0x1c
0x2203…2239 at001d = ╱41╱A╱ // 0x2220 @0x1d
0x2203…2239 at001e = ╱58╱X╱ // 0x2221 @0x1e
0x2203…2239 at001f = ╱52╱R╱ // 0x2222 @0x1f
0x2203…2239 at0020 = ╱45╱E╱ // 0x2223 @0x20
0x2203…2239 at0021 = ╱43╱C╱ // 0x2224 @0x21
0x2203…2239 at0022 = ╱ec╱,╱ // 0x2225 @0x22
0x2203…2239 at0023 = ╱53╱S╱ // 0x2226 @0x23
0x2203…2239 at0024 = ╱5f╱_╱ // 0x2227 @0x24
0x2203…2239 at0025 = ╱4e╱N╱ // 0x2228 @0x25
0x2203…2239 at0026 = ╱52╱R╱ // 0x2229 @0x26
0x2203…2239 at0027 = ╱5f╱_╱ // 0x222a @0x27
0x2203…2239 at0028 = ╱4b╱K╱ // 0x222b @0x28
0x2203…2239 at0029 = ╱41╱A╱ // 0x222c @0x29
0x2203…2239 at002a = ╱53╱S╱ // 0x222d @0x2a
0x2203…2239 at002b = ╱53╱S╱ // 0x222e @0x2b
0x2203…2239 at002c = ╱45╱E╱ // 0x222f @0x2c
0x2203…2239 at002d = ╱ec╱,╱ // 0x2230 @0x2d
0x2203…2239 at002e = ╱4b╱K╱ // 0x2231 @0x2e
0x2203…2239 at002f = ╱5f╱_╱ // 0x2232 @0x2f
0x2203…2239 at0030 = ╱42╱B╱ // 0x2233 @0x30
0x2203…2239 at0031 = ╱44╱D╱ // 0x2234 @0x31
0x2203…2239 at0032 = ╱41╱A╱ // 0x2235 @0x32
0x2203…2239 at0033 = ╱54╱T╱ // 0x2236 @0x33
0x2203…2239 at0034 = ╱ef╱$╱ // 0x2237 @0x34
0x2203…2239 at0035 = EOL // 0x2238 @0x35
0x2203…2239 }
0x2239…2265 b853 3450 IF K_HØJREC - 1) MOD 12 = 0 AND SVAR$ = "F" THEN
0x2239…2265 LineComal80 {
0x2239…2265 ptr = 0xb853 // 0x2239 @0x0
0x2239…2265 lno = 0x0d7a // 0x223b @0x2
0x2239…2265 at0004 = ╱9b3ced╱ IF ╱ // 0x223d @0x4
0x2239…2265 at0007 = ╱4b╱K╱ // 0x2240 @0x7
0x2239…2265 at0008 = ╱5f╱_╱ // 0x2241 @0x8
0x2239…2265 at0009 = ╱48╱H╱ // 0x2242 @0x9
0x2239…2265 at000a = ╱5c╱Ø╱ // 0x2243 @0xa
0x2239…2265 at000b = ╱4a╱J╱ // 0x2244 @0xb
0x2239…2265 at000c = ╱52╱R╱ // 0x2245 @0xc
0x2239…2265 at000d = ╱45╱E╱ // 0x2246 @0xd
0x2239…2265 at000e = ╱43╱C╱ // 0x2247 @0xe
0x2239…2265 at000f = ╱e6╱ - ╱ // 0x2248 @0xf
0x2239…2265 at0010 = ╱31╱1╱ // 0x2249 @0x10
0x2239…2265 at0011 = ╱f20100╱ // 0x224a @0x11
0x2239…2265 at0014 = ╱ee╱)╱ // 0x224d @0x14
0x2239…2265 at0015 = ╱db╱ MOD ╱ // 0x224e @0x15
0x2239…2265 at0016 = ╱31╱1╱ // 0x224f @0x16
0x2239…2265 at0017 = ╱32╱2╱ // 0x2250 @0x17
0x2239…2265 at0018 = ╱f20c00╱ // 0x2251 @0x18
0x2239…2265 at001b = ╱df╱ = ╱ // 0x2254 @0x1b
0x2239…2265 at001c = ╱30╱0╱ // 0x2255 @0x1c
0x2239…2265 at001d = ╱f20000╱ // 0x2256 @0x1d
0x2239…2265 at0020 = ╱d9╱ AND ╱ // 0x2259 @0x20
0x2239…2265 at0021 = ╱53╱S╱ // 0x225a @0x21
0x2239…2265 at0022 = ╱56╱V╱ // 0x225b @0x22
0x2239…2265 at0023 = ╱41╱A╱ // 0x225c @0x23
0x2239…2265 at0024 = ╱52╱R╱ // 0x225d @0x24
0x2239…2265 at0025 = ╱ef╱$╱ // 0x225e @0x25
0x2239…2265 at0026 = ╱df╱ = ╱ // 0x225f @0x26
0x2239…2265 at0027 = ╱22╱"╱ // 0x2260 @0x27
0x2239…2265 at0028 = ╱46╱F╱ // 0x2261 @0x28
0x2239…2265 at0029 = ╱22╱"╱ // 0x2262 @0x29
0x2239…2265 at002a = ╱b5╱ THEN ╱ // 0x2263 @0x2a
0x2239…2265 at002b = EOL // 0x2264 @0x2b
0x2239…2265 }
0x2265…2275 b863 3460 EXEC RET_LINIER
0x2265…2275 LineComal80 {
0x2265…2275 ptr = 0xb863 // 0x2265 @0x0
0x2265…2275 lno = 0x0d84 // 0x2267 @0x2
0x2265…2275 at0004 = ╱9d╱ EXEC ╱ // 0x2269 @0x4
0x2265…2275 at0005 = ╱52╱R╱ // 0x226a @0x5
0x2265…2275 at0006 = ╱45╱E╱ // 0x226b @0x6
0x2265…2275 at0007 = ╱54╱T╱ // 0x226c @0x7
0x2265…2275 at0008 = ╱5f╱_╱ // 0x226d @0x8
0x2265…2275 at0009 = ╱4c╱L╱ // 0x226e @0x9
0x2265…2275 at000a = ╱49╱I╱ // 0x226f @0xa
0x2265…2275 at000b = ╱4e╱N╱ // 0x2270 @0xb
0x2265…2275 at000c = ╱49╱I╱ // 0x2271 @0xc
0x2265…2275 at000d = ╱45╱E╱ // 0x2272 @0xd
0x2265…2275 at000e = ╱52╱R╱ // 0x2273 @0xe
0x2265…2275 at000f = EOL // 0x2274 @0xf
0x2265…2275 }
0x2275…2285 b873 3470 EXEC KASSEHOVED
0x2275…2285 LineComal80 {
0x2275…2285 ptr = 0xb873 // 0x2275 @0x0
0x2275…2285 lno = 0x0d8e // 0x2277 @0x2
0x2275…2285 at0004 = ╱9d╱ EXEC ╱ // 0x2279 @0x4
0x2275…2285 at0005 = ╱4b╱K╱ // 0x227a @0x5
0x2275…2285 at0006 = ╱41╱A╱ // 0x227b @0x6
0x2275…2285 at0007 = ╱53╱S╱ // 0x227c @0x7
0x2275…2285 at0008 = ╱53╱S╱ // 0x227d @0x8
0x2275…2285 at0009 = ╱45╱E╱ // 0x227e @0x9
0x2275…2285 at000a = ╱48╱H╱ // 0x227f @0xa
0x2275…2285 at000b = ╱4f╱O╱ // 0x2280 @0xb
0x2275…2285 at000c = ╱56╱V╱ // 0x2281 @0xc
0x2275…2285 at000d = ╱45╱E╱ // 0x2282 @0xd
0x2275…2285 at000e = ╱44╱D╱ // 0x2283 @0xe
0x2275…2285 at000f = EOL // 0x2284 @0xf
0x2275…2285 }
0x2285…2294 b882 3480 LET SVAR$ := "F"
0x2285…2294 LineComal80 {
0x2285…2294 ptr = 0xb882 // 0x2285 @0x0
0x2285…2294 lno = 0x0d98 // 0x2287 @0x2
0x2285…2294 at0004 = ╱86╱ LET ╱ // 0x2289 @0x4
0x2285…2294 at0005 = ╱53╱S╱ // 0x228a @0x5
0x2285…2294 at0006 = ╱56╱V╱ // 0x228b @0x6
0x2285…2294 at0007 = ╱41╱A╱ // 0x228c @0x7
0x2285…2294 at0008 = ╱52╱R╱ // 0x228d @0x8
0x2285…2294 at0009 = ╱ef╱$╱ // 0x228e @0x9
0x2285…2294 at000a = ╱f0╱ := ╱ // 0x228f @0xa
0x2285…2294 at000b = ╱22╱"╱ // 0x2290 @0xb
0x2285…2294 at000c = ╱46╱F╱ // 0x2291 @0xc
0x2285…2294 at000d = ╱22╱"╱ // 0x2292 @0xd
0x2285…2294 at000e = EOL // 0x2293 @0xe
0x2285…2294 }
0x2294…229a b888 3490 ENDIF
0x2294…229a LineComal80 {
0x2294…229a ptr = 0xb888 // 0x2294 @0x0
0x2294…229a lno = 0x0da2 // 0x2296 @0x2
0x2294…229a at0004 = ╱9c╱ ENDIF ╱ // 0x2298 @0x4
0x2294…229a at0005 = EOL // 0x2299 @0x5
0x2294…229a }
0x229a…22a0 b88e 3500 ENDWHILE
0x229a…22a0 LineComal80 {
0x229a…22a0 ptr = 0xb88e // 0x229a @0x0
0x229a…22a0 lno = 0x0dac // 0x229c @0x2
0x229a…22a0 at0004 = ╱94╱ ENDWHILE ╱ // 0x229e @0x4
0x229a…22a0 at0005 = EOL // 0x229f @0x5
0x229a…22a0 }
0x22a0…22b0 b89e 3510 EXEC RET_LINIER
0x22a0…22b0 LineComal80 {
0x22a0…22b0 ptr = 0xb89e // 0x22a0 @0x0
0x22a0…22b0 lno = 0x0db6 // 0x22a2 @0x2
0x22a0…22b0 at0004 = ╱9d╱ EXEC ╱ // 0x22a4 @0x4
0x22a0…22b0 at0005 = ╱52╱R╱ // 0x22a5 @0x5
0x22a0…22b0 at0006 = ╱45╱E╱ // 0x22a6 @0x6
0x22a0…22b0 at0007 = ╱54╱T╱ // 0x22a7 @0x7
0x22a0…22b0 at0008 = ╱5f╱_╱ // 0x22a8 @0x8
0x22a0…22b0 at0009 = ╱4c╱L╱ // 0x22a9 @0x9
0x22a0…22b0 at000a = ╱49╱I╱ // 0x22aa @0xa
0x22a0…22b0 at000b = ╱4e╱N╱ // 0x22ab @0xb
0x22a0…22b0 at000c = ╱49╱I╱ // 0x22ac @0xc
0x22a0…22b0 at000d = ╱45╱E╱ // 0x22ad @0xd
0x22a0…22b0 at000e = ╱52╱R╱ // 0x22ae @0xe
0x22a0…22b0 at000f = EOL // 0x22af @0xf
0x22a0…22b0 }
0x22b0…22c4 b8b2 3520 ENDPROC INDTAST_POSTER
0x22b0…22c4 LineComal80 {
0x22b0…22c4 ptr = 0xb8b2 // 0x22b0 @0x0
0x22b0…22c4 lno = 0x0dc0 // 0x22b2 @0x2
0x22b0…22c4 at0004 = ╱9f╱ ENDPROC ╱ // 0x22b4 @0x4
0x22b0…22c4 at0005 = ╱49╱I╱ // 0x22b5 @0x5
0x22b0…22c4 at0006 = ╱4e╱N╱ // 0x22b6 @0x6
0x22b0…22c4 at0007 = ╱44╱D╱ // 0x22b7 @0x7
0x22b0…22c4 at0008 = ╱54╱T╱ // 0x22b8 @0x8
0x22b0…22c4 at0009 = ╱41╱A╱ // 0x22b9 @0x9
0x22b0…22c4 at000a = ╱53╱S╱ // 0x22ba @0xa
0x22b0…22c4 at000b = ╱54╱T╱ // 0x22bb @0xb
0x22b0…22c4 at000c = ╱5f╱_╱ // 0x22bc @0xc
0x22b0…22c4 at000d = ╱50╱P╱ // 0x22bd @0xd
0x22b0…22c4 at000e = ╱4f╱O╱ // 0x22be @0xe
0x22b0…22c4 at000f = ╱53╱S╱ // 0x22bf @0xf
0x22b0…22c4 at0010 = ╱54╱T╱ // 0x22c0 @0x10
0x22b0…22c4 at0011 = ╱45╱E╱ // 0x22c1 @0x11
0x22b0…22c4 at0012 = ╱52╱R╱ // 0x22c2 @0x12
0x22b0…22c4 at0013 = EOL // 0x22c3 @0x13
0x22b0…22c4 }
0x22c4…22c9 b8b7 3530
0x22c4…22c9 LineComal80 {
0x22c4…22c9 ptr = 0xb8b7 // 0x22c4 @0x0
0x22c4…22c9 lno = 0x0dca // 0x22c6 @0x2
0x22c4…22c9 at0004 = EOL // 0x22c8 @0x4
0x22c4…22c9 }
0x22c9…22da b8c8 3540 PROC RET_LINIER
0x22c9…22da LineComal80 {
0x22c9…22da ptr = 0xb8c8 // 0x22c9 @0x0
0x22c9…22da lno = 0x0dd4 // 0x22cb @0x2
0x22c9…22da at0004 = ╱9e3d╱ PROC ╱ // 0x22cd @0x4
0x22c9…22da at0006 = ╱52╱R╱ // 0x22cf @0x6
0x22c9…22da at0007 = ╱45╱E╱ // 0x22d0 @0x7
0x22c9…22da at0008 = ╱54╱T╱ // 0x22d1 @0x8
0x22c9…22da at0009 = ╱5f╱_╱ // 0x22d2 @0x9
0x22c9…22da at000a = ╱4c╱L╱ // 0x22d3 @0xa
0x22c9…22da at000b = ╱49╱I╱ // 0x22d4 @0xb
0x22c9…22da at000c = ╱4e╱N╱ // 0x22d5 @0xc
0x22c9…22da at000d = ╱49╱I╱ // 0x22d6 @0xd
0x22c9…22da at000e = ╱45╱E╱ // 0x22d7 @0xe
0x22c9…22da at000f = ╱52╱R╱ // 0x22d8 @0xf
0x22c9…22da at0010 = EOL // 0x22d9 @0x10
0x22c9…22da }
0x22da…22e1 b8cf 3550 REPEAT
0x22da…22e1 LineComal80 {
0x22da…22e1 ptr = 0xb8cf // 0x22da @0x0
0x22da…22e1 lno = 0x0dde // 0x22dc @0x2
0x22da…22e1 at0004 = ╱973e╱ REPEAT ╱ // 0x22de @0x4
0x22da…22e1 at0006 = EOL // 0x22e0 @0x6
0x22da…22e1 }
0x22e1…22f6 b8e4 3560 PRINT "<SC0122>" ; SPC$
0x22e1…22f6 LineComal80 {
0x22e1…22f6 ptr = 0xb8e4 // 0x22e1 @0x0
0x22e1…22f6 lno = 0x0de8 // 0x22e3 @0x2
0x22e1…22f6 at0004 = ╱92╱ PRINT ╱ // 0x22e5 @0x4
0x22e1…22f6 at0005 = ╱22╱"╱ // 0x22e6 @0x5
0x22e1…22f6 at0006 = ╱3c╱<╱ // 0x22e7 @0x6
0x22e1…22f6 at0007 = ╱53╱S╱ // 0x22e8 @0x7
0x22e1…22f6 at0008 = ╱43╱C╱ // 0x22e9 @0x8
0x22e1…22f6 at0009 = ╱30╱0╱ // 0x22ea @0x9
0x22e1…22f6 at000a = ╱31╱1╱ // 0x22eb @0xa
0x22e1…22f6 at000b = ╱32╱2╱ // 0x22ec @0xb
0x22e1…22f6 at000c = ╱32╱2╱ // 0x22ed @0xc
0x22e1…22f6 at000d = ╱3e╱>╱ // 0x22ee @0xd
0x22e1…22f6 at000e = ╱22╱"╱ // 0x22ef @0xe
0x22e1…22f6 at000f = ╱ea╱ ; ╱ // 0x22f0 @0xf
0x22e1…22f6 at0010 = ╱53╱S╱ // 0x22f1 @0x10
0x22e1…22f6 at0011 = ╱50╱P╱ // 0x22f2 @0x11
0x22e1…22f6 at0012 = ╱43╱C╱ // 0x22f3 @0x12
0x22e1…22f6 at0013 = ╱ef╱$╱ // 0x22f4 @0x13
0x22e1…22f6 at0014 = EOL // 0x22f5 @0x14
0x22e1…22f6 }
0x22f6…2305 b8f3 3570 LET SVAR$ := "j"
0x22f6…2305 LineComal80 {
0x22f6…2305 ptr = 0xb8f3 // 0x22f6 @0x0
0x22f6…2305 lno = 0x0df2 // 0x22f8 @0x2
0x22f6…2305 at0004 = ╱86╱ LET ╱ // 0x22fa @0x4
0x22f6…2305 at0005 = ╱53╱S╱ // 0x22fb @0x5
0x22f6…2305 at0006 = ╱56╱V╱ // 0x22fc @0x6
0x22f6…2305 at0007 = ╱41╱A╱ // 0x22fd @0x7
0x22f6…2305 at0008 = ╱52╱R╱ // 0x22fe @0x8
0x22f6…2305 at0009 = ╱ef╱$╱ // 0x22ff @0x9
0x22f6…2305 at000a = ╱f0╱ := ╱ // 0x2300 @0xa
0x22f6…2305 at000b = ╱22╱"╱ // 0x2301 @0xb
0x22f6…2305 at000c = ╱6a╱j╱ // 0x2302 @0xc
0x22f6…2305 at000d = ╱22╱"╱ // 0x2303 @0xd
0x22f6…2305 at000e = EOL // 0x2304 @0xe
0x22f6…2305 }
0x2305…2345 b933 3580 EDIT "<SC1222>Ok (j) eller linienummer der skal rettes? " : SVAR$
0x2305…2345 LineComal80 {
0x2305…2345 ptr = 0xb933 // 0x2305 @0x0
0x2305…2345 lno = 0x0dfc // 0x2307 @0x2
0x2305…2345 at0004 = ╱b1╱ EDIT ╱ // 0x2309 @0x4
0x2305…2345 at0005 = ╱22╱"╱ // 0x230a @0x5
0x2305…2345 at0006 = ╱3c╱<╱ // 0x230b @0x6
0x2305…2345 at0007 = ╱53╱S╱ // 0x230c @0x7
0x2305…2345 at0008 = ╱43╱C╱ // 0x230d @0x8
0x2305…2345 at0009 = ╱31╱1╱ // 0x230e @0x9
0x2305…2345 at000a = ╱32╱2╱ // 0x230f @0xa
0x2305…2345 at000b = ╱32╱2╱ // 0x2310 @0xb
0x2305…2345 at000c = ╱32╱2╱ // 0x2311 @0xc
0x2305…2345 at000d = ╱3e╱>╱ // 0x2312 @0xd
0x2305…2345 at000e = ╱4f╱O╱ // 0x2313 @0xe
0x2305…2345 at000f = ╱6b╱k╱ // 0x2314 @0xf
0x2305…2345 at0010 = ╱20╱…╱ // 0x2315 @0x10
0x2305…2345 at0011 = ╱28╱(╱ // 0x2316 @0x11
0x2305…2345 at0012 = ╱6a╱j╱ // 0x2317 @0x12
0x2305…2345 at0013 = ╱29╱)╱ // 0x2318 @0x13
0x2305…2345 at0014 = ╱20╱…╱ // 0x2319 @0x14
0x2305…2345 at0015 = ╱65╱e╱ // 0x231a @0x15
0x2305…2345 at0016 = ╱6c╱l╱ // 0x231b @0x16
0x2305…2345 at0017 = ╱6c╱l╱ // 0x231c @0x17
0x2305…2345 at0018 = ╱65╱e╱ // 0x231d @0x18
0x2305…2345 at0019 = ╱72╱r╱ // 0x231e @0x19
0x2305…2345 at001a = ╱20╱…╱ // 0x231f @0x1a
0x2305…2345 at001b = ╱6c╱l╱ // 0x2320 @0x1b
0x2305…2345 at001c = ╱69╱i╱ // 0x2321 @0x1c
0x2305…2345 at001d = ╱6e╱n╱ // 0x2322 @0x1d
0x2305…2345 at001e = ╱69╱i╱ // 0x2323 @0x1e
0x2305…2345 at001f = ╱65╱e╱ // 0x2324 @0x1f
0x2305…2345 at0020 = ╱6e╱n╱ // 0x2325 @0x20
0x2305…2345 at0021 = ╱75╱u╱ // 0x2326 @0x21
0x2305…2345 at0022 = ╱6d╱m╱ // 0x2327 @0x22
0x2305…2345 at0023 = ╱6d╱m╱ // 0x2328 @0x23
0x2305…2345 at0024 = ╱65╱e╱ // 0x2329 @0x24
0x2305…2345 at0025 = ╱72╱r╱ // 0x232a @0x25
0x2305…2345 at0026 = ╱20╱…╱ // 0x232b @0x26
0x2305…2345 at0027 = ╱64╱d╱ // 0x232c @0x27
0x2305…2345 at0028 = ╱65╱e╱ // 0x232d @0x28
0x2305…2345 at0029 = ╱72╱r╱ // 0x232e @0x29
0x2305…2345 at002a = ╱20╱…╱ // 0x232f @0x2a
0x2305…2345 at002b = ╱73╱s╱ // 0x2330 @0x2b
0x2305…2345 at002c = ╱6b╱k╱ // 0x2331 @0x2c
0x2305…2345 at002d = ╱61╱a╱ // 0x2332 @0x2d
0x2305…2345 at002e = ╱6c╱l╱ // 0x2333 @0x2e
0x2305…2345 at002f = ╱20╱…╱ // 0x2334 @0x2f
0x2305…2345 at0030 = ╱72╱r╱ // 0x2335 @0x30
0x2305…2345 at0031 = ╱65╱e╱ // 0x2336 @0x31
0x2305…2345 at0032 = ╱74╱t╱ // 0x2337 @0x32
0x2305…2345 at0033 = ╱74╱t╱ // 0x2338 @0x33
0x2305…2345 at0034 = ╱65╱e╱ // 0x2339 @0x34
0x2305…2345 at0035 = ╱73╱s╱ // 0x233a @0x35
0x2305…2345 at0036 = ╱3f╱?╱ // 0x233b @0x36
0x2305…2345 at0037 = ╱20╱…╱ // 0x233c @0x37
0x2305…2345 at0038 = ╱22╱"╱ // 0x233d @0x38
0x2305…2345 at0039 = ╱f1╱ : ╱ // 0x233e @0x39
0x2305…2345 at003a = ╱53╱S╱ // 0x233f @0x3a
0x2305…2345 at003b = ╱56╱V╱ // 0x2340 @0x3b
0x2305…2345 at003c = ╱41╱A╱ // 0x2341 @0x3c
0x2305…2345 at003d = ╱52╱R╱ // 0x2342 @0x3d
0x2305…2345 at003e = ╱ef╱$╱ // 0x2343 @0x3e
0x2305…2345 at003f = EOL // 0x2344 @0x3f
0x2305…2345 }
0x2345…2363 b951 3590 IF "/" + SVAR$ + "/" IN "/J/j/" THEN
0x2345…2363 LineComal80 {
0x2345…2363 ptr = 0xb951 // 0x2345 @0x0
0x2345…2363 lno = 0x0e06 // 0x2347 @0x2
0x2345…2363 at0004 = ╱9b3fd7╱ IF ╱ // 0x2349 @0x4
0x2345…2363 at0007 = ╱22╱"╱ // 0x234c @0x7
0x2345…2363 at0008 = ╱2f╱/╱ // 0x234d @0x8
0x2345…2363 at0009 = ╱22╱"╱ // 0x234e @0x9
0x2345…2363 at000a = ╱eb╱ + ╱ // 0x234f @0xa
0x2345…2363 at000b = ╱53╱S╱ // 0x2350 @0xb
0x2345…2363 at000c = ╱56╱V╱ // 0x2351 @0xc
0x2345…2363 at000d = ╱41╱A╱ // 0x2352 @0xd
0x2345…2363 at000e = ╱52╱R╱ // 0x2353 @0xe
0x2345…2363 at000f = ╱ef╱$╱ // 0x2354 @0xf
0x2345…2363 at0010 = ╱eb╱ + ╱ // 0x2355 @0x10
0x2345…2363 at0011 = ╱22╱"╱ // 0x2356 @0x11
0x2345…2363 at0012 = ╱2f╱/╱ // 0x2357 @0x12
0x2345…2363 at0013 = ╱22╱"╱ // 0x2358 @0x13
0x2345…2363 at0014 = ╱dc╱ IN ╱ // 0x2359 @0x14
0x2345…2363 at0015 = ╱22╱"╱ // 0x235a @0x15
0x2345…2363 at0016 = ╱2f╱/╱ // 0x235b @0x16
0x2345…2363 at0017 = ╱4a╱J╱ // 0x235c @0x17
0x2345…2363 at0018 = ╱2f╱/╱ // 0x235d @0x18
0x2345…2363 at0019 = ╱6a╱j╱ // 0x235e @0x19
0x2345…2363 at001a = ╱2f╱/╱ // 0x235f @0x1a
0x2345…2363 at001b = ╱22╱"╱ // 0x2360 @0x1b
0x2345…2363 at001c = ╱b5╱ THEN ╱ // 0x2361 @0x1c
0x2345…2363 at001d = EOL // 0x2362 @0x1d
0x2345…2363 }
0x2363…237b b969 3600 EXEC TAL_CONTROL(SVAR$)
0x2363…237b LineComal80 {
0x2363…237b ptr = 0xb969 // 0x2363 @0x0
0x2363…237b lno = 0x0e10 // 0x2365 @0x2
0x2363…237b at0004 = ╱9d╱ EXEC ╱ // 0x2367 @0x4
0x2363…237b at0005 = ╱54╱T╱ // 0x2368 @0x5
0x2363…237b at0006 = ╱41╱A╱ // 0x2369 @0x6
0x2363…237b at0007 = ╱4c╱L╱ // 0x236a @0x7
0x2363…237b at0008 = ╱5f╱_╱ // 0x236b @0x8
0x2363…237b at0009 = ╱43╱C╱ // 0x236c @0x9
0x2363…237b at000a = ╱4f╱O╱ // 0x236d @0xa
0x2363…237b at000b = ╱4e╱N╱ // 0x236e @0xb
0x2363…237b at000c = ╱54╱T╱ // 0x236f @0xc
0x2363…237b at000d = ╱52╱R╱ // 0x2370 @0xd
0x2363…237b at000e = ╱4f╱O╱ // 0x2371 @0xe
0x2363…237b at000f = ╱4c╱L╱ // 0x2372 @0xf
0x2363…237b at0010 = ╱ed╱(╱ // 0x2373 @0x10
0x2363…237b at0011 = ╱53╱S╱ // 0x2374 @0x11
0x2363…237b at0012 = ╱56╱V╱ // 0x2375 @0x12
0x2363…237b at0013 = ╱41╱A╱ // 0x2376 @0x13
0x2363…237b at0014 = ╱52╱R╱ // 0x2377 @0x14
0x2363…237b at0015 = ╱ef╱$╱ // 0x2378 @0x15
0x2363…237b at0016 = ╱ee╱)╱ // 0x2379 @0x16
0x2363…237b at0017 = EOL // 0x237a @0x17
0x2363…237b }
0x237b…2385 b973 3610 IF K THEN
0x237b…2385 LineComal80 {
0x237b…2385 ptr = 0xb973 // 0x237b @0x0
0x237b…2385 lno = 0x0e1a // 0x237d @0x2
0x237b…2385 at0004 = ╱9b404f╱ IF ╱ // 0x237f @0x4
0x237b…2385 at0007 = ╱4b╱K╱ // 0x2382 @0x7
0x237b…2385 at0008 = ╱b5╱ THEN ╱ // 0x2383 @0x8
0x237b…2385 at0009 = EOL // 0x2384 @0x9
0x237b…2385 }
0x2385…23ac b99a 3620 IF (SVAR$) < K_HØJREC AND ASC (SVAR$) > 0 THEN
0x2385…23ac LineComal80 {
0x2385…23ac ptr = 0xb99a // 0x2385 @0x0
0x2385…23ac lno = 0x0e24 // 0x2387 @0x2
0x2385…23ac at0004 = ╱9b41cf╱ IF ╱ // 0x2389 @0x4
0x2385…23ac at0007 = ╱ed╱(╱ // 0x238c @0x7
0x2385…23ac at0008 = ╱53╱S╱ // 0x238d @0x8
0x2385…23ac at0009 = ╱56╱V╱ // 0x238e @0x9
0x2385…23ac at000a = ╱41╱A╱ // 0x238f @0xa
0x2385…23ac at000b = ╱52╱R╱ // 0x2390 @0xb
0x2385…23ac at000c = ╱ef╱$╱ // 0x2391 @0xc
0x2385…23ac at000d = ╱ee╱)╱ // 0x2392 @0xd
0x2385…23ac at000e = ╱e0╱ < ╱ // 0x2393 @0xe
0x2385…23ac at000f = ╱4b╱K╱ // 0x2394 @0xf
0x2385…23ac at0010 = ╱5f╱_╱ // 0x2395 @0x10
0x2385…23ac at0011 = ╱48╱H╱ // 0x2396 @0x11
0x2385…23ac at0012 = ╱5c╱Ø╱ // 0x2397 @0x12
0x2385…23ac at0013 = ╱4a╱J╱ // 0x2398 @0x13
0x2385…23ac at0014 = ╱52╱R╱ // 0x2399 @0x14
0x2385…23ac at0015 = ╱45╱E╱ // 0x239a @0x15
0x2385…23ac at0016 = ╱43╱C╱ // 0x239b @0x16
0x2385…23ac at0017 = ╱d9╱ AND ╱ // 0x239c @0x17
0x2385…23ac at0018 = ╱cf╱ ASC ╱ // 0x239d @0x18
0x2385…23ac at0019 = ╱ed╱(╱ // 0x239e @0x19
0x2385…23ac at001a = ╱53╱S╱ // 0x239f @0x1a
0x2385…23ac at001b = ╱56╱V╱ // 0x23a0 @0x1b
0x2385…23ac at001c = ╱41╱A╱ // 0x23a1 @0x1c
0x2385…23ac at001d = ╱52╱R╱ // 0x23a2 @0x1d
0x2385…23ac at001e = ╱ef╱$╱ // 0x23a3 @0x1e
0x2385…23ac at001f = ╱ee╱)╱ // 0x23a4 @0x1f
0x2385…23ac at0020 = ╱e1╱ > ╱ // 0x23a5 @0x20
0x2385…23ac at0021 = ╱30╱0╱ // 0x23a6 @0x21
0x2385…23ac at0022 = ╱f20000╱ // 0x23a7 @0x22
0x2385…23ac at0025 = ╱b5╱ THEN ╱ // 0x23aa @0x25
0x2385…23ac at0026 = EOL // 0x23ab @0x26
0x2385…23ac }
0x23ac…23c4 b9b2 3630 EXEC EDIT_LIN( ASC (SVAR$))
0x23ac…23c4 LineComal80 {
0x23ac…23c4 ptr = 0xb9b2 // 0x23ac @0x0
0x23ac…23c4 lno = 0x0e2e // 0x23ae @0x2
0x23ac…23c4 at0004 = ╱9d╱ EXEC ╱ // 0x23b0 @0x4
0x23ac…23c4 at0005 = ╱45╱E╱ // 0x23b1 @0x5
0x23ac…23c4 at0006 = ╱44╱D╱ // 0x23b2 @0x6
0x23ac…23c4 at0007 = ╱49╱I╱ // 0x23b3 @0x7
0x23ac…23c4 at0008 = ╱54╱T╱ // 0x23b4 @0x8
0x23ac…23c4 at0009 = ╱5f╱_╱ // 0x23b5 @0x9
0x23ac…23c4 at000a = ╱4c╱L╱ // 0x23b6 @0xa
0x23ac…23c4 at000b = ╱49╱I╱ // 0x23b7 @0xb
0x23ac…23c4 at000c = ╱4e╱N╱ // 0x23b8 @0xc
0x23ac…23c4 at000d = ╱ed╱(╱ // 0x23b9 @0xd
0x23ac…23c4 at000e = ╱cf╱ ASC ╱ // 0x23ba @0xe
0x23ac…23c4 at000f = ╱ed╱(╱ // 0x23bb @0xf
0x23ac…23c4 at0010 = ╱53╱S╱ // 0x23bc @0x10
0x23ac…23c4 at0011 = ╱56╱V╱ // 0x23bd @0x11
0x23ac…23c4 at0012 = ╱41╱A╱ // 0x23be @0x12
0x23ac…23c4 at0013 = ╱52╱R╱ // 0x23bf @0x13
0x23ac…23c4 at0014 = ╱ef╱$╱ // 0x23c0 @0x14
0x23ac…23c4 at0015 = ╱ee╱)╱ // 0x23c1 @0x15
0x23ac…23c4 at0016 = ╱ee╱)╱ // 0x23c2 @0x16
0x23ac…23c4 at0017 = EOL // 0x23c3 @0x17
0x23ac…23c4 }
0x23c4…23ca b9b8 3640 ENDIF
0x23c4…23ca LineComal80 {
0x23c4…23ca ptr = 0xb9b8 // 0x23c4 @0x0
0x23c4…23ca lno = 0x0e38 // 0x23c6 @0x2
0x23c4…23ca at0004 = ╱9c╱ ENDIF ╱ // 0x23c8 @0x4
0x23c4…23ca at0005 = EOL // 0x23c9 @0x5
0x23c4…23ca }
0x23ca…23d0 b9be 3650 ENDIF
0x23ca…23d0 LineComal80 {
0x23ca…23d0 ptr = 0xb9be // 0x23ca @0x0
0x23ca…23d0 lno = 0x0e42 // 0x23cc @0x2
0x23ca…23d0 at0004 = ╱9c╱ ENDIF ╱ // 0x23ce @0x4
0x23ca…23d0 at0005 = EOL // 0x23cf @0x5
0x23ca…23d0 }
0x23d0…23d6 b9c4 3660 ENDIF
0x23d0…23d6 LineComal80 {
0x23d0…23d6 ptr = 0xb9c4 // 0x23d0 @0x0
0x23d0…23d6 lno = 0x0e4c // 0x23d2 @0x2
0x23d0…23d6 at0004 = ╱9c╱ ENDIF ╱ // 0x23d4 @0x4
0x23d0…23d6 at0005 = EOL // 0x23d5 @0x5
0x23d0…23d6 }
0x23d6…23f1 b9df 3670 UNTIL "/" + SVAR$ + "/" IN "/J/j/"
0x23d6…23f1 LineComal80 {
0x23d6…23f1 ptr = 0xb9df // 0x23d6 @0x0
0x23d6…23f1 lno = 0x0e56 // 0x23d8 @0x2
0x23d6…23f1 at0004 = ╱98╱ UNTIL ╱ // 0x23da @0x4
0x23d6…23f1 at0005 = ╱22╱"╱ // 0x23db @0x5
0x23d6…23f1 at0006 = ╱2f╱/╱ // 0x23dc @0x6
0x23d6…23f1 at0007 = ╱22╱"╱ // 0x23dd @0x7
0x23d6…23f1 at0008 = ╱eb╱ + ╱ // 0x23de @0x8
0x23d6…23f1 at0009 = ╱53╱S╱ // 0x23df @0x9
0x23d6…23f1 at000a = ╱56╱V╱ // 0x23e0 @0xa
0x23d6…23f1 at000b = ╱41╱A╱ // 0x23e1 @0xb
0x23d6…23f1 at000c = ╱52╱R╱ // 0x23e2 @0xc
0x23d6…23f1 at000d = ╱ef╱$╱ // 0x23e3 @0xd
0x23d6…23f1 at000e = ╱eb╱ + ╱ // 0x23e4 @0xe
0x23d6…23f1 at000f = ╱22╱"╱ // 0x23e5 @0xf
0x23d6…23f1 at0010 = ╱2f╱/╱ // 0x23e6 @0x10
0x23d6…23f1 at0011 = ╱22╱"╱ // 0x23e7 @0x11
0x23d6…23f1 at0012 = ╱dc╱ IN ╱ // 0x23e8 @0x12
0x23d6…23f1 at0013 = ╱22╱"╱ // 0x23e9 @0x13
0x23d6…23f1 at0014 = ╱2f╱/╱ // 0x23ea @0x14
0x23d6…23f1 at0015 = ╱4a╱J╱ // 0x23eb @0x15
0x23d6…23f1 at0016 = ╱2f╱/╱ // 0x23ec @0x16
0x23d6…23f1 at0017 = ╱6a╱j╱ // 0x23ed @0x17
0x23d6…23f1 at0018 = ╱2f╱/╱ // 0x23ee @0x18
0x23d6…23f1 at0019 = ╱22╱"╱ // 0x23ef @0x19
0x23d6…23f1 at001a = EOL // 0x23f0 @0x1a
0x23d6…23f1 }
0x23f1…2401 b9ef 3680 ENDPROC RET_LINIER
0x23f1…2401 LineComal80 {
0x23f1…2401 ptr = 0xb9ef // 0x23f1 @0x0
0x23f1…2401 lno = 0x0e60 // 0x23f3 @0x2
0x23f1…2401 at0004 = ╱9f╱ ENDPROC ╱ // 0x23f5 @0x4
0x23f1…2401 at0005 = ╱52╱R╱ // 0x23f6 @0x5
0x23f1…2401 at0006 = ╱45╱E╱ // 0x23f7 @0x6
0x23f1…2401 at0007 = ╱54╱T╱ // 0x23f8 @0x7
0x23f1…2401 at0008 = ╱5f╱_╱ // 0x23f9 @0x8
0x23f1…2401 at0009 = ╱4c╱L╱ // 0x23fa @0x9
0x23f1…2401 at000a = ╱49╱I╱ // 0x23fb @0xa
0x23f1…2401 at000b = ╱4e╱N╱ // 0x23fc @0xb
0x23f1…2401 at000c = ╱49╱I╱ // 0x23fd @0xc
0x23f1…2401 at000d = ╱45╱E╱ // 0x23fe @0xd
0x23f1…2401 at000e = ╱52╱R╱ // 0x23ff @0xe
0x23f1…2401 at000f = EOL // 0x2400 @0xf
0x23f1…2401 }
0x2401…2406 b9f4 3690
0x2401…2406 LineComal80 {
0x2401…2406 ptr = 0xb9f4 // 0x2401 @0x0
0x2401…2406 lno = 0x0e6a // 0x2403 @0x2
0x2401…2406 at0004 = EOL // 0x2405 @0x4
0x2401…2406 }
0x2406…240b b9f9 3700
0x2406…240b LineComal80 {
0x2406…240b ptr = 0xb9f9 // 0x2406 @0x0
0x2406…240b lno = 0x0e74 // 0x2408 @0x2
0x2406…240b at0004 = EOL // 0x240a @0x4
0x2406…240b }
0x240b…241e ba0c 3710 PROC SKRIV_LINIER
0x240b…241e LineComal80 {
0x240b…241e ptr = 0xba0c // 0x240b @0x0
0x240b…241e lno = 0x0e7e // 0x240d @0x2
0x240b…241e at0004 = ╱9e42╱ PROC ╱ // 0x240f @0x4
0x240b…241e at0006 = ╱53╱S╱ // 0x2411 @0x6
0x240b…241e at0007 = ╱4b╱K╱ // 0x2412 @0x7
0x240b…241e at0008 = ╱52╱R╱ // 0x2413 @0x8
0x240b…241e at0009 = ╱49╱I╱ // 0x2414 @0x9
0x240b…241e at000a = ╱56╱V╱ // 0x2415 @0xa
0x240b…241e at000b = ╱5f╱_╱ // 0x2416 @0xb
0x240b…241e at000c = ╱4c╱L╱ // 0x2417 @0xc
0x240b…241e at000d = ╱49╱I╱ // 0x2418 @0xd
0x240b…241e at000e = ╱4e╱N╱ // 0x2419 @0xe
0x240b…241e at000f = ╱49╱I╱ // 0x241a @0xf
0x240b…241e at0010 = ╱45╱E╱ // 0x241b @0x10
0x240b…241e at0011 = ╱52╱R╱ // 0x241c @0x11
0x240b…241e at0012 = EOL // 0x241d @0x12
0x240b…241e }
0x241e…2454 ba42 3720 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
0x241e…2454 LineComal80 {
0x241e…2454 ptr = 0xba42 // 0x241e @0x0
0x241e…2454 lno = 0x0e88 // 0x2420 @0x2
0x241e…2454 at0004 = ╱a9╱ GET ╱ // 0x2422 @0x4
0x241e…2454 at0005 = ╱4b╱K╱ // 0x2423 @0x5
0x241e…2454 at0006 = ╱41╱A╱ // 0x2424 @0x6
0x241e…2454 at0007 = ╱53╱S╱ // 0x2425 @0x7
0x241e…2454 at0008 = ╱53╱S╱ // 0x2426 @0x8
0x241e…2454 at0009 = ╱45╱E╱ // 0x2427 @0x9
0x241e…2454 at000a = ╱ef╱$╱ // 0x2428 @0xa
0x241e…2454 at000b = ╱ec╱,╱ // 0x2429 @0xb
0x241e…2454 at000c = ╱31╱1╱ // 0x242a @0xc
0x241e…2454 at000d = ╱f20100╱ // 0x242b @0xd
0x241e…2454 at0010 = ╱f1╱ : ╱ // 0x242e @0x10
0x241e…2454 at0011 = ╱4b╱K╱ // 0x242f @0x11
0x241e…2454 at0012 = ╱5f╱_╱ // 0x2430 @0x12
0x241e…2454 at0013 = ╱48╱H╱ // 0x2431 @0x13
0x241e…2454 at0014 = ╱5c╱Ø╱ // 0x2432 @0x14
0x241e…2454 at0015 = ╱4a╱J╱ // 0x2433 @0x15
0x241e…2454 at0016 = ╱52╱R╱ // 0x2434 @0x16
0x241e…2454 at0017 = ╱45╱E╱ // 0x2435 @0x17
0x241e…2454 at0018 = ╱43╱C╱ // 0x2436 @0x18
0x241e…2454 at0019 = ╱ec╱,╱ // 0x2437 @0x19
0x241e…2454 at001a = ╱4b╱K╱ // 0x2438 @0x1a
0x241e…2454 at001b = ╱5f╱_╱ // 0x2439 @0x1b
0x241e…2454 at001c = ╱4d╱M╱ // 0x243a @0x1c
0x241e…2454 at001d = ╱41╱A╱ // 0x243b @0x1d
0x241e…2454 at001e = ╱58╱X╱ // 0x243c @0x1e
0x241e…2454 at001f = ╱52╱R╱ // 0x243d @0x1f
0x241e…2454 at0020 = ╱45╱E╱ // 0x243e @0x20
0x241e…2454 at0021 = ╱43╱C╱ // 0x243f @0x21
0x241e…2454 at0022 = ╱ec╱,╱ // 0x2440 @0x22
0x241e…2454 at0023 = ╱53╱S╱ // 0x2441 @0x23
0x241e…2454 at0024 = ╱5f╱_╱ // 0x2442 @0x24
0x241e…2454 at0025 = ╱4e╱N╱ // 0x2443 @0x25
0x241e…2454 at0026 = ╱52╱R╱ // 0x2444 @0x26
0x241e…2454 at0027 = ╱5f╱_╱ // 0x2445 @0x27
0x241e…2454 at0028 = ╱4b╱K╱ // 0x2446 @0x28
0x241e…2454 at0029 = ╱41╱A╱ // 0x2447 @0x29
0x241e…2454 at002a = ╱53╱S╱ // 0x2448 @0x2a
0x241e…2454 at002b = ╱53╱S╱ // 0x2449 @0x2b
0x241e…2454 at002c = ╱45╱E╱ // 0x244a @0x2c
0x241e…2454 at002d = ╱ec╱,╱ // 0x244b @0x2d
0x241e…2454 at002e = ╱4b╱K╱ // 0x244c @0x2e
0x241e…2454 at002f = ╱5f╱_╱ // 0x244d @0x2f
0x241e…2454 at0030 = ╱42╱B╱ // 0x244e @0x30
0x241e…2454 at0031 = ╱44╱D╱ // 0x244f @0x31
0x241e…2454 at0032 = ╱41╱A╱ // 0x2450 @0x32
0x241e…2454 at0033 = ╱54╱T╱ // 0x2451 @0x33
0x241e…2454 at0034 = ╱ef╱$╱ // 0x2452 @0x34
0x241e…2454 at0035 = EOL // 0x2453 @0x35
0x241e…2454 }
0x2454…2464 ba52 3730 EXEC KASSEHOVED
0x2454…2464 LineComal80 {
0x2454…2464 ptr = 0xba52 // 0x2454 @0x0
0x2454…2464 lno = 0x0e92 // 0x2456 @0x2
0x2454…2464 at0004 = ╱9d╱ EXEC ╱ // 0x2458 @0x4
0x2454…2464 at0005 = ╱4b╱K╱ // 0x2459 @0x5
0x2454…2464 at0006 = ╱41╱A╱ // 0x245a @0x6
0x2454…2464 at0007 = ╱53╱S╱ // 0x245b @0x7
0x2454…2464 at0008 = ╱53╱S╱ // 0x245c @0x8
0x2454…2464 at0009 = ╱45╱E╱ // 0x245d @0x9
0x2454…2464 at000a = ╱48╱H╱ // 0x245e @0xa
0x2454…2464 at000b = ╱4f╱O╱ // 0x245f @0xb
0x2454…2464 at000c = ╱56╱V╱ // 0x2460 @0xc
0x2454…2464 at000d = ╱45╱E╱ // 0x2461 @0xd
0x2454…2464 at000e = ╱44╱D╱ // 0x2462 @0xe
0x2454…2464 at000f = EOL // 0x2463 @0xf
0x2454…2464 }
0x2464…249a ba88 3740 FOR I := K_HØJREC - (K_HØJREC - 1) MOD 12 TO _HØJREC - 1 DO
0x2464…249a LineComal80 {
0x2464…249a ptr = 0xba88 // 0x2464 @0x0
0x2464…249a lno = 0x0e9c // 0x2466 @0x2
0x2464…249a at0004 = ╱8343╱ FOR ╱ // 0x2468 @0x4
0x2464…249a at0006 = ╱49╱I╱ // 0x246a @0x6
0x2464…249a at0007 = ╱f0╱ := ╱ // 0x246b @0x7
0x2464…249a at0008 = ╱4b╱K╱ // 0x246c @0x8
0x2464…249a at0009 = ╱5f╱_╱ // 0x246d @0x9
0x2464…249a at000a = ╱48╱H╱ // 0x246e @0xa
0x2464…249a at000b = ╱5c╱Ø╱ // 0x246f @0xb
0x2464…249a at000c = ╱4a╱J╱ // 0x2470 @0xc
0x2464…249a at000d = ╱52╱R╱ // 0x2471 @0xd
0x2464…249a at000e = ╱45╱E╱ // 0x2472 @0xe
0x2464…249a at000f = ╱43╱C╱ // 0x2473 @0xf
0x2464…249a at0010 = ╱e6╱ - ╱ // 0x2474 @0x10
0x2464…249a at0011 = ╱ed╱(╱ // 0x2475 @0x11
0x2464…249a at0012 = ╱4b╱K╱ // 0x2476 @0x12
0x2464…249a at0013 = ╱5f╱_╱ // 0x2477 @0x13
0x2464…249a at0014 = ╱48╱H╱ // 0x2478 @0x14
0x2464…249a at0015 = ╱5c╱Ø╱ // 0x2479 @0x15
0x2464…249a at0016 = ╱4a╱J╱ // 0x247a @0x16
0x2464…249a at0017 = ╱52╱R╱ // 0x247b @0x17
0x2464…249a at0018 = ╱45╱E╱ // 0x247c @0x18
0x2464…249a at0019 = ╱43╱C╱ // 0x247d @0x19
0x2464…249a at001a = ╱e6╱ - ╱ // 0x247e @0x1a
0x2464…249a at001b = ╱31╱1╱ // 0x247f @0x1b
0x2464…249a at001c = ╱f20100╱ // 0x2480 @0x1c
0x2464…249a at001f = ╱ee╱)╱ // 0x2483 @0x1f
0x2464…249a at0020 = ╱db╱ MOD ╱ // 0x2484 @0x20
0x2464…249a at0021 = ╱31╱1╱ // 0x2485 @0x21
0x2464…249a at0022 = ╱32╱2╱ // 0x2486 @0x22
0x2464…249a at0023 = ╱f20c00╱ // 0x2487 @0x23
0x2464…249a at0026 = ╱b74b╱ TO ╱ // 0x248a @0x26
0x2464…249a at0028 = ╱5f╱_╱ // 0x248c @0x28
0x2464…249a at0029 = ╱48╱H╱ // 0x248d @0x29
0x2464…249a at002a = ╱5c╱Ø╱ // 0x248e @0x2a
0x2464…249a at002b = ╱4a╱J╱ // 0x248f @0x2b
0x2464…249a at002c = ╱52╱R╱ // 0x2490 @0x2c
0x2464…249a at002d = ╱45╱E╱ // 0x2491 @0x2d
0x2464…249a at002e = ╱43╱C╱ // 0x2492 @0x2e
0x2464…249a at002f = ╱e6╱ - ╱ // 0x2493 @0x2f
0x2464…249a at0030 = ╱31╱1╱ // 0x2494 @0x30
0x2464…249a at0031 = ╱f20100╱ // 0x2495 @0x31
0x2464…249a at0034 = ╱bb╱ DO ╱ // 0x2498 @0x34
0x2464…249a at0035 = EOL // 0x2499 @0x35
0x2464…249a }
0x249a…24a8 ba96 3750 IF > 0 THEN
0x249a…24a8 LineComal80 {
0x249a…24a8 ptr = 0xba96 // 0x249a @0x0
0x249a…24a8 lno = 0x0ea6 // 0x249c @0x2
0x249a…24a8 at0004 = ╱9b4449╱ IF ╱ // 0x249e @0x4
0x249a…24a8 at0007 = ╱e1╱ > ╱ // 0x24a1 @0x7
0x249a…24a8 at0008 = ╱30╱0╱ // 0x24a2 @0x8
0x249a…24a8 at0009 = ╱f20000╱ // 0x24a3 @0x9
0x249a…24a8 at000c = ╱b5╱ THEN ╱ // 0x24a6 @0xc
0x249a…24a8 at000d = EOL // 0x24a7 @0xd
0x249a…24a8 }
0x24a8…24bb baa9 3760 EXEC LÆS_K_POST(I)
0x24a8…24bb LineComal80 {
0x24a8…24bb ptr = 0xbaa9 // 0x24a8 @0x0
0x24a8…24bb lno = 0x0eb0 // 0x24aa @0x2
0x24a8…24bb at0004 = ╱9d╱ EXEC ╱ // 0x24ac @0x4
0x24a8…24bb at0005 = ╱4c╱L╱ // 0x24ad @0x5
0x24a8…24bb at0006 = ╱5b╱Æ╱ // 0x24ae @0x6
0x24a8…24bb at0007 = ╱53╱S╱ // 0x24af @0x7
0x24a8…24bb at0008 = ╱5f╱_╱ // 0x24b0 @0x8
0x24a8…24bb at0009 = ╱4b╱K╱ // 0x24b1 @0x9
0x24a8…24bb at000a = ╱5f╱_╱ // 0x24b2 @0xa
0x24a8…24bb at000b = ╱50╱P╱ // 0x24b3 @0xb
0x24a8…24bb at000c = ╱4f╱O╱ // 0x24b4 @0xc
0x24a8…24bb at000d = ╱53╱S╱ // 0x24b5 @0xd
0x24a8…24bb at000e = ╱54╱T╱ // 0x24b6 @0xe
0x24a8…24bb at000f = ╱ed╱(╱ // 0x24b7 @0xf
0x24a8…24bb at0010 = ╱49╱I╱ // 0x24b8 @0x10
0x24a8…24bb at0011 = ╱ee╱)╱ // 0x24b9 @0x11
0x24a8…24bb at0012 = EOL // 0x24ba @0x12
0x24a8…24bb }
0x24bb…24de bacc 3770 IF K_BNR$ >< "*****" THEN EXEC SKRIV_LIN(I)
0x24bb…24de LineComal80 {
0x24bb…24de ptr = 0xbacc // 0x24bb @0x0
0x24bb…24de lno = 0x0eba // 0x24bd @0x2
0x24bb…24de at0004 = ╱8200╱ IF ╱ // 0x24bf @0x4
0x24bb…24de at0006 = ╱4b╱K╱ // 0x24c1 @0x6
0x24bb…24de at0007 = ╱5f╱_╱ // 0x24c2 @0x7
0x24bb…24de at0008 = ╱42╱B╱ // 0x24c3 @0x8
0x24bb…24de at0009 = ╱4e╱N╱ // 0x24c4 @0x9
0x24bb…24de at000a = ╱52╱R╱ // 0x24c5 @0xa
0x24bb…24de at000b = ╱ef╱$╱ // 0x24c6 @0xb
0x24bb…24de at000c = ╱e4╱ >< ╱ // 0x24c7 @0xc
0x24bb…24de at000d = ╱22╱"╱ // 0x24c8 @0xd
0x24bb…24de at000e = ╱2a╱*╱ // 0x24c9 @0xe
0x24bb…24de at000f = ╱2a╱*╱ // 0x24ca @0xf
0x24bb…24de at0010 = ╱2a╱*╱ // 0x24cb @0x10
0x24bb…24de at0011 = ╱2a╱*╱ // 0x24cc @0x11
0x24bb…24de at0012 = ╱2a╱*╱ // 0x24cd @0x12
0x24bb…24de at0013 = ╱22╱"╱ // 0x24ce @0x13
0x24bb…24de at0014 = ╱b5╱ THEN ╱ // 0x24cf @0x14
0x24bb…24de at0015 = ╱9d╱ EXEC ╱ // 0x24d0 @0x15
0x24bb…24de at0016 = ╱53╱S╱ // 0x24d1 @0x16
0x24bb…24de at0017 = ╱4b╱K╱ // 0x24d2 @0x17
0x24bb…24de at0018 = ╱52╱R╱ // 0x24d3 @0x18
0x24bb…24de at0019 = ╱49╱I╱ // 0x24d4 @0x19
0x24bb…24de at001a = ╱56╱V╱ // 0x24d5 @0x1a
0x24bb…24de at001b = ╱5f╱_╱ // 0x24d6 @0x1b
0x24bb…24de at001c = ╱4c╱L╱ // 0x24d7 @0x1c
0x24bb…24de at001d = ╱49╱I╱ // 0x24d8 @0x1d
0x24bb…24de at001e = ╱4e╱N╱ // 0x24d9 @0x1e
0x24bb…24de at001f = ╱ed╱(╱ // 0x24da @0x1f
0x24bb…24de at0020 = ╱49╱I╱ // 0x24db @0x20
0x24bb…24de at0021 = ╱ee╱)╱ // 0x24dc @0x21
0x24bb…24de at0022 = EOL // 0x24dd @0x22
0x24bb…24de }
0x24de…24e4 bad2 3780 ENDIF
0x24de…24e4 LineComal80 {
0x24de…24e4 ptr = 0xbad2 // 0x24de @0x0
0x24de…24e4 lno = 0x0ec4 // 0x24e0 @0x2
0x24de…24e4 at0004 = ╱9c╱ ENDIF ╱ // 0x24e2 @0x4
0x24de…24e4 at0005 = EOL // 0x24e3 @0x5
0x24de…24e4 }
0x24e4…24eb bad9 3790 NEXT I
0x24e4…24eb LineComal80 {
0x24e4…24eb ptr = 0xbad9 // 0x24e4 @0x0
0x24e4…24eb lno = 0x0ece // 0x24e6 @0x2
0x24e4…24eb at0004 = ╱84╱ NEXT ╱ // 0x24e8 @0x4
0x24e4…24eb at0005 = ╱49╱I╱ // 0x24e9 @0x5
0x24e4…24eb at0006 = EOL // 0x24ea @0x6
0x24e4…24eb }
0x24eb…24fd baeb 3800 ENDPROC SKRIV_LINIER
0x24eb…24fd LineComal80 {
0x24eb…24fd ptr = 0xbaeb // 0x24eb @0x0
0x24eb…24fd lno = 0x0ed8 // 0x24ed @0x2
0x24eb…24fd at0004 = ╱9f╱ ENDPROC ╱ // 0x24ef @0x4
0x24eb…24fd at0005 = ╱53╱S╱ // 0x24f0 @0x5
0x24eb…24fd at0006 = ╱4b╱K╱ // 0x24f1 @0x6
0x24eb…24fd at0007 = ╱52╱R╱ // 0x24f2 @0x7
0x24eb…24fd at0008 = ╱49╱I╱ // 0x24f3 @0x8
0x24eb…24fd at0009 = ╱56╱V╱ // 0x24f4 @0x9
0x24eb…24fd at000a = ╱5f╱_╱ // 0x24f5 @0xa
0x24eb…24fd at000b = ╱4c╱L╱ // 0x24f6 @0xb
0x24eb…24fd at000c = ╱49╱I╱ // 0x24f7 @0xc
0x24eb…24fd at000d = ╱4e╱N╱ // 0x24f8 @0xd
0x24eb…24fd at000e = ╱49╱I╱ // 0x24f9 @0xe
0x24eb…24fd at000f = ╱45╱E╱ // 0x24fa @0xf
0x24eb…24fd at0010 = ╱52╱R╱ // 0x24fb @0x10
0x24eb…24fd at0011 = EOL // 0x24fc @0x11
0x24eb…24fd }
0x24fd…2502 baf0 3810
0x24fd…2502 LineComal80 {
0x24fd…2502 ptr = 0xbaf0 // 0x24fd @0x0
0x24fd…2502 lno = 0x0ee2 // 0x24ff @0x2
0x24fd…2502 at0004 = EOL // 0x2501 @0x4
0x24fd…2502 }
0x2502…2519 bb07 3820 PROC SKRIV_LIN(R_LIN)
0x2502…2519 LineComal80 {
0x2502…2519 ptr = 0xbb07 // 0x2502 @0x0
0x2502…2519 lno = 0x0eec // 0x2504 @0x2
0x2502…2519 at0004 = ╱9e45╱ PROC ╱ // 0x2506 @0x4
0x2502…2519 at0006 = ╱53╱S╱ // 0x2508 @0x6
0x2502…2519 at0007 = ╱4b╱K╱ // 0x2509 @0x7
0x2502…2519 at0008 = ╱52╱R╱ // 0x250a @0x8
0x2502…2519 at0009 = ╱49╱I╱ // 0x250b @0x9
0x2502…2519 at000a = ╱56╱V╱ // 0x250c @0xa
0x2502…2519 at000b = ╱5f╱_╱ // 0x250d @0xb
0x2502…2519 at000c = ╱4c╱L╱ // 0x250e @0xc
0x2502…2519 at000d = ╱49╱I╱ // 0x250f @0xd
0x2502…2519 at000e = ╱4e╱N╱ // 0x2510 @0xe
0x2502…2519 at000f = ╱ed╱(╱ // 0x2511 @0xf
0x2502…2519 at0010 = ╱52╱R╱ // 0x2512 @0x10
0x2502…2519 at0011 = ╱5f╱_╱ // 0x2513 @0x11
0x2502…2519 at0012 = ╱4c╱L╱ // 0x2514 @0x12
0x2502…2519 at0013 = ╱49╱I╱ // 0x2515 @0x13
0x2502…2519 at0014 = ╱4e╱N╱ // 0x2516 @0x14
0x2502…2519 at0015 = ╱ee╱)╱ // 0x2517 @0x15
0x2502…2519 at0016 = EOL // 0x2518 @0x16
0x2502…2519 }
0x2519…2530 bb1e 3830 IF K_BNR$ = "*****" THEN EXIT
0x2519…2530 LineComal80 {
0x2519…2530 ptr = 0xbb1e // 0x2519 @0x0
0x2519…2530 lno = 0x0ef6 // 0x251b @0x2
0x2519…2530 at0004 = ╱8200╱ IF ╱ // 0x251d @0x4
0x2519…2530 at0006 = ╱4b╱K╱ // 0x251f @0x6
0x2519…2530 at0007 = ╱5f╱_╱ // 0x2520 @0x7
0x2519…2530 at0008 = ╱42╱B╱ // 0x2521 @0x8
0x2519…2530 at0009 = ╱4e╱N╱ // 0x2522 @0x9
0x2519…2530 at000a = ╱52╱R╱ // 0x2523 @0xa
0x2519…2530 at000b = ╱ef╱$╱ // 0x2524 @0xb
0x2519…2530 at000c = ╱df╱ = ╱ // 0x2525 @0xc
0x2519…2530 at000d = ╱22╱"╱ // 0x2526 @0xd
0x2519…2530 at000e = ╱2a╱*╱ // 0x2527 @0xe
0x2519…2530 at000f = ╱2a╱*╱ // 0x2528 @0xf
0x2519…2530 at0010 = ╱2a╱*╱ // 0x2529 @0x10
0x2519…2530 at0011 = ╱2a╱*╱ // 0x252a @0x11
0x2519…2530 at0012 = ╱2a╱*╱ // 0x252b @0x12
0x2519…2530 at0013 = ╱22╱"╱ // 0x252c @0x13
0x2519…2530 at0014 = ╱b5╱ THEN ╱ // 0x252d @0x14
0x2519…2530 at0015 = ╱99╱ EXIT ╱ // 0x252e @0x15
0x2519…2530 at0016 = EOL // 0x252f @0x16
0x2519…2530 }
0x2530…254d bb3b 3840 LET R_SLIN := R_LIN MOD 12 + 8
0x2530…254d LineComal80 {
0x2530…254d ptr = 0xbb3b // 0x2530 @0x0
0x2530…254d lno = 0x0f00 // 0x2532 @0x2
0x2530…254d at0004 = ╱86╱ LET ╱ // 0x2534 @0x4
0x2530…254d at0005 = ╱52╱R╱ // 0x2535 @0x5
0x2530…254d at0006 = ╱5f╱_╱ // 0x2536 @0x6
0x2530…254d at0007 = ╱53╱S╱ // 0x2537 @0x7
0x2530…254d at0008 = ╱4c╱L╱ // 0x2538 @0x8
0x2530…254d at0009 = ╱49╱I╱ // 0x2539 @0x9
0x2530…254d at000a = ╱4e╱N╱ // 0x253a @0xa
0x2530…254d at000b = ╱f0╱ := ╱ // 0x253b @0xb
0x2530…254d at000c = ╱52╱R╱ // 0x253c @0xc
0x2530…254d at000d = ╱5f╱_╱ // 0x253d @0xd
0x2530…254d at000e = ╱4c╱L╱ // 0x253e @0xe
0x2530…254d at000f = ╱49╱I╱ // 0x253f @0xf
0x2530…254d at0010 = ╱4e╱N╱ // 0x2540 @0x10
0x2530…254d at0011 = ╱db╱ MOD ╱ // 0x2541 @0x11
0x2530…254d at0012 = ╱31╱1╱ // 0x2542 @0x12
0x2530…254d at0013 = ╱32╱2╱ // 0x2543 @0x13
0x2530…254d at0014 = ╱f20c00╱ // 0x2544 @0x14
0x2530…254d at0017 = ╱e5╱ + ╱ // 0x2547 @0x17
0x2530…254d at0018 = ╱38╱8╱ // 0x2548 @0x18
0x2530…254d at0019 = ╱f20800╱ // 0x2549 @0x19
0x2530…254d at001c = EOL // 0x254c @0x1c
0x2530…254d }
0x254d…2574 bb62 3850 IF R_SLIN = 8 THEN LET R_SLIN := 12 + R_SLIN
0x254d…2574 LineComal80 {
0x254d…2574 ptr = 0xbb62 // 0x254d @0x0
0x254d…2574 lno = 0x0f0a // 0x254f @0x2
0x254d…2574 at0004 = ╱8200╱ IF ╱ // 0x2551 @0x4
0x254d…2574 at0006 = ╱52╱R╱ // 0x2553 @0x6
0x254d…2574 at0007 = ╱5f╱_╱ // 0x2554 @0x7
0x254d…2574 at0008 = ╱53╱S╱ // 0x2555 @0x8
0x254d…2574 at0009 = ╱4c╱L╱ // 0x2556 @0x9
0x254d…2574 at000a = ╱49╱I╱ // 0x2557 @0xa
0x254d…2574 at000b = ╱4e╱N╱ // 0x2558 @0xb
0x254d…2574 at000c = ╱df╱ = ╱ // 0x2559 @0xc
0x254d…2574 at000d = ╱38╱8╱ // 0x255a @0xd
0x254d…2574 at000e = ╱f20800╱ // 0x255b @0xe
0x254d…2574 at0011 = ╱b5╱ THEN ╱ // 0x255e @0x11
0x254d…2574 at0012 = ╱86╱ LET ╱ // 0x255f @0x12
0x254d…2574 at0013 = ╱52╱R╱ // 0x2560 @0x13
0x254d…2574 at0014 = ╱5f╱_╱ // 0x2561 @0x14
0x254d…2574 at0015 = ╱53╱S╱ // 0x2562 @0x15
0x254d…2574 at0016 = ╱4c╱L╱ // 0x2563 @0x16
0x254d…2574 at0017 = ╱49╱I╱ // 0x2564 @0x17
0x254d…2574 at0018 = ╱4e╱N╱ // 0x2565 @0x18
0x254d…2574 at0019 = ╱f0╱ := ╱ // 0x2566 @0x19
0x254d…2574 at001a = ╱31╱1╱ // 0x2567 @0x1a
0x254d…2574 at001b = ╱32╱2╱ // 0x2568 @0x1b
0x254d…2574 at001c = ╱f20c00╱ // 0x2569 @0x1c
0x254d…2574 at001f = ╱e5╱ + ╱ // 0x256c @0x1f
0x254d…2574 at0020 = ╱52╱R╱ // 0x256d @0x20
0x254d…2574 at0021 = ╱5f╱_╱ // 0x256e @0x21
0x254d…2574 at0022 = ╱53╱S╱ // 0x256f @0x22
0x254d…2574 at0023 = ╱4c╱L╱ // 0x2570 @0x23
0x254d…2574 at0024 = ╱49╱I╱ // 0x2571 @0x24
0x254d…2574 at0025 = ╱4e╱N╱ // 0x2572 @0x25
0x254d…2574 at0026 = EOL // 0x2573 @0x26
0x254d…2574 }
0x2574…2585 bb73 3860 CURSOR 1,R_SLIN
0x2574…2585 LineComal80 {
0x2574…2585 ptr = 0xbb73 // 0x2574 @0x0
0x2574…2585 lno = 0x0f14 // 0x2576 @0x2
0x2574…2585 at0004 = ╱a1╱ CURSOR ╱ // 0x2578 @0x4
0x2574…2585 at0005 = ╱31╱1╱ // 0x2579 @0x5
0x2574…2585 at0006 = ╱f20100╱ // 0x257a @0x6
0x2574…2585 at0009 = ╱ec╱,╱ // 0x257d @0x9
0x2574…2585 at000a = ╱52╱R╱ // 0x257e @0xa
0x2574…2585 at000b = ╱5f╱_╱ // 0x257f @0xb
0x2574…2585 at000c = ╱53╱S╱ // 0x2580 @0xc
0x2574…2585 at000d = ╱4c╱L╱ // 0x2581 @0xd
0x2574…2585 at000e = ╱49╱I╱ // 0x2582 @0xe
0x2574…2585 at000f = ╱4e╱N╱ // 0x2583 @0xf
0x2574…2585 at0010 = EOL // 0x2584 @0x10
0x2574…2585 }
0x2585…2598 bb86 3870 PRINT CHR$ (R_LIN,2)
0x2585…2598 LineComal80 {
0x2585…2598 ptr = 0xbb86 // 0x2585 @0x0
0x2585…2598 lno = 0x0f1e // 0x2587 @0x2
0x2585…2598 at0004 = ╱92╱ PRINT ╱ // 0x2589 @0x4
0x2585…2598 at0005 = ╱d0╱ CHR$ ╱ // 0x258a @0x5
0x2585…2598 at0006 = ╱ed╱(╱ // 0x258b @0x6
0x2585…2598 at0007 = ╱52╱R╱ // 0x258c @0x7
0x2585…2598 at0008 = ╱5f╱_╱ // 0x258d @0x8
0x2585…2598 at0009 = ╱4c╱L╱ // 0x258e @0x9
0x2585…2598 at000a = ╱49╱I╱ // 0x258f @0xa
0x2585…2598 at000b = ╱4e╱N╱ // 0x2590 @0xb
0x2585…2598 at000c = ╱ec╱,╱ // 0x2591 @0xc
0x2585…2598 at000d = ╱32╱2╱ // 0x2592 @0xd
0x2585…2598 at000e = ╱f20200╱ // 0x2593 @0xe
0x2585…2598 at0011 = ╱ee╱)╱ // 0x2596 @0x11
0x2585…2598 at0012 = EOL // 0x2597 @0x12
0x2585…2598 }
0x2598…25a9 bb97 3880 CURSOR 4,R_SLIN
0x2598…25a9 LineComal80 {
0x2598…25a9 ptr = 0xbb97 // 0x2598 @0x0
0x2598…25a9 lno = 0x0f28 // 0x259a @0x2
0x2598…25a9 at0004 = ╱a1╱ CURSOR ╱ // 0x259c @0x4
0x2598…25a9 at0005 = ╱34╱4╱ // 0x259d @0x5
0x2598…25a9 at0006 = ╱f20400╱ // 0x259e @0x6
0x2598…25a9 at0009 = ╱ec╱,╱ // 0x25a1 @0x9
0x2598…25a9 at000a = ╱52╱R╱ // 0x25a2 @0xa
0x2598…25a9 at000b = ╱5f╱_╱ // 0x25a3 @0xb
0x2598…25a9 at000c = ╱53╱S╱ // 0x25a4 @0xc
0x2598…25a9 at000d = ╱4c╱L╱ // 0x25a5 @0xd
0x2598…25a9 at000e = ╱49╱I╱ // 0x25a6 @0xe
0x2598…25a9 at000f = ╱4e╱N╱ // 0x25a7 @0xf
0x2598…25a9 at0010 = EOL // 0x25a8 @0x10
0x2598…25a9 }
0x25a9…25b5 bba3 3890 PRINT K_BNR$
0x25a9…25b5 LineComal80 {
0x25a9…25b5 ptr = 0xbba3 // 0x25a9 @0x0
0x25a9…25b5 lno = 0x0f32 // 0x25ab @0x2
0x25a9…25b5 at0004 = ╱92╱ PRINT ╱ // 0x25ad @0x4
0x25a9…25b5 at0005 = ╱4b╱K╱ // 0x25ae @0x5
0x25a9…25b5 at0006 = ╱5f╱_╱ // 0x25af @0x6
0x25a9…25b5 at0007 = ╱42╱B╱ // 0x25b0 @0x7
0x25a9…25b5 at0008 = ╱4e╱N╱ // 0x25b1 @0x8
0x25a9…25b5 at0009 = ╱52╱R╱ // 0x25b2 @0x9
0x25a9…25b5 at000a = ╱ef╱$╱ // 0x25b3 @0xa
0x25a9…25b5 at000b = EOL // 0x25b4 @0xb
0x25a9…25b5 }
0x25b5…25c7 bbb5 3900 CURSOR 11,R_SLIN
0x25b5…25c7 LineComal80 {
0x25b5…25c7 ptr = 0xbbb5 // 0x25b5 @0x0
0x25b5…25c7 lno = 0x0f3c // 0x25b7 @0x2
0x25b5…25c7 at0004 = ╱a1╱ CURSOR ╱ // 0x25b9 @0x4
0x25b5…25c7 at0005 = ╱31╱1╱ // 0x25ba @0x5
0x25b5…25c7 at0006 = ╱31╱1╱ // 0x25bb @0x6
0x25b5…25c7 at0007 = ╱f20b00╱ // 0x25bc @0x7
0x25b5…25c7 at000a = ╱ec╱,╱ // 0x25bf @0xa
0x25b5…25c7 at000b = ╱52╱R╱ // 0x25c0 @0xb
0x25b5…25c7 at000c = ╱5f╱_╱ // 0x25c1 @0xc
0x25b5…25c7 at000d = ╱53╱S╱ // 0x25c2 @0xd
0x25b5…25c7 at000e = ╱4c╱L╱ // 0x25c3 @0xe
0x25b5…25c7 at000f = ╱49╱I╱ // 0x25c4 @0xf
0x25b5…25c7 at0010 = ╱4e╱N╱ // 0x25c5 @0x10
0x25b5…25c7 at0011 = EOL // 0x25c6 @0x11
0x25b5…25c7 }
0x25c7…25d3 bbc1 3910 PRINT K_TXT$
0x25c7…25d3 LineComal80 {
0x25c7…25d3 ptr = 0xbbc1 // 0x25c7 @0x0
0x25c7…25d3 lno = 0x0f46 // 0x25c9 @0x2
0x25c7…25d3 at0004 = ╱92╱ PRINT ╱ // 0x25cb @0x4
0x25c7…25d3 at0005 = ╱4b╱K╱ // 0x25cc @0x5
0x25c7…25d3 at0006 = ╱5f╱_╱ // 0x25cd @0x6
0x25c7…25d3 at0007 = ╱54╱T╱ // 0x25ce @0x7
0x25c7…25d3 at0008 = ╱58╱X╱ // 0x25cf @0x8
0x25c7…25d3 at0009 = ╱54╱T╱ // 0x25d0 @0x9
0x25c7…25d3 at000a = ╱ef╱$╱ // 0x25d1 @0xa
0x25c7…25d3 at000b = EOL // 0x25d2 @0xb
0x25c7…25d3 }
0x25d3…25e5 bbd3 3920 CURSOR 32,R_SLIN
0x25d3…25e5 LineComal80 {
0x25d3…25e5 ptr = 0xbbd3 // 0x25d3 @0x0
0x25d3…25e5 lno = 0x0f50 // 0x25d5 @0x2
0x25d3…25e5 at0004 = ╱a1╱ CURSOR ╱ // 0x25d7 @0x4
0x25d3…25e5 at0005 = ╱33╱3╱ // 0x25d8 @0x5
0x25d3…25e5 at0006 = ╱32╱2╱ // 0x25d9 @0x6
0x25d3…25e5 at0007 = ╱f22000╱ // 0x25da @0x7
0x25d3…25e5 at000a = ╱ec╱,╱ // 0x25dd @0xa
0x25d3…25e5 at000b = ╱52╱R╱ // 0x25de @0xb
0x25d3…25e5 at000c = ╱5f╱_╱ // 0x25df @0xc
0x25d3…25e5 at000d = ╱53╱S╱ // 0x25e0 @0xd
0x25d3…25e5 at000e = ╱4c╱L╱ // 0x25e1 @0xe
0x25d3…25e5 at000f = ╱49╱I╱ // 0x25e2 @0xf
0x25d3…25e5 at0010 = ╱4e╱N╱ // 0x25e3 @0x10
0x25d3…25e5 at0011 = EOL // 0x25e4 @0x11
0x25d3…25e5 }
0x25e5…25f2 bbe0 3930 PRINT K_MKOD$
0x25e5…25f2 LineComal80 {
0x25e5…25f2 ptr = 0xbbe0 // 0x25e5 @0x0
0x25e5…25f2 lno = 0x0f5a // 0x25e7 @0x2
0x25e5…25f2 at0004 = ╱92╱ PRINT ╱ // 0x25e9 @0x4
0x25e5…25f2 at0005 = ╱4b╱K╱ // 0x25ea @0x5
0x25e5…25f2 at0006 = ╱5f╱_╱ // 0x25eb @0x6
0x25e5…25f2 at0007 = ╱4d╱M╱ // 0x25ec @0x7
0x25e5…25f2 at0008 = ╱4b╱K╱ // 0x25ed @0x8
0x25e5…25f2 at0009 = ╱4f╱O╱ // 0x25ee @0x9
0x25e5…25f2 at000a = ╱44╱D╱ // 0x25ef @0xa
0x25e5…25f2 at000b = ╱ef╱$╱ // 0x25f0 @0xb
0x25e5…25f2 at000c = EOL // 0x25f1 @0xc
0x25e5…25f2 }
0x25f2…2604 bbf2 3940 CURSOR 38,R_SLIN
0x25f2…2604 LineComal80 {
0x25f2…2604 ptr = 0xbbf2 // 0x25f2 @0x0
0x25f2…2604 lno = 0x0f64 // 0x25f4 @0x2
0x25f2…2604 at0004 = ╱a1╱ CURSOR ╱ // 0x25f6 @0x4
0x25f2…2604 at0005 = ╱33╱3╱ // 0x25f7 @0x5
0x25f2…2604 at0006 = ╱38╱8╱ // 0x25f8 @0x6
0x25f2…2604 at0007 = ╱f22600╱ // 0x25f9 @0x7
0x25f2…2604 at000a = ╱ec╱,╱ // 0x25fc @0xa
0x25f2…2604 at000b = ╱52╱R╱ // 0x25fd @0xb
0x25f2…2604 at000c = ╱5f╱_╱ // 0x25fe @0xc
0x25f2…2604 at000d = ╱53╱S╱ // 0x25ff @0xd
0x25f2…2604 at000e = ╱4c╱L╱ // 0x2600 @0xe
0x25f2…2604 at000f = ╱49╱I╱ // 0x2601 @0xf
0x25f2…2604 at0010 = ╱4e╱N╱ // 0x2602 @0x10
0x25f2…2604 at0011 = EOL // 0x2603 @0x11
0x25f2…2604 }
0x2604…2611 bbff 3950 PRINT K_LKOD$
0x2604…2611 LineComal80 {
0x2604…2611 ptr = 0xbbff // 0x2604 @0x0
0x2604…2611 lno = 0x0f6e // 0x2606 @0x2
0x2604…2611 at0004 = ╱92╱ PRINT ╱ // 0x2608 @0x4
0x2604…2611 at0005 = ╱4b╱K╱ // 0x2609 @0x5
0x2604…2611 at0006 = ╱5f╱_╱ // 0x260a @0x6
0x2604…2611 at0007 = ╱4c╱L╱ // 0x260b @0x7
0x2604…2611 at0008 = ╱4b╱K╱ // 0x260c @0x8
0x2604…2611 at0009 = ╱4f╱O╱ // 0x260d @0x9
0x2604…2611 at000a = ╱44╱D╱ // 0x260e @0xa
0x2604…2611 at000b = ╱ef╱$╱ // 0x260f @0xb
0x2604…2611 at000c = EOL // 0x2610 @0xc
0x2604…2611 }
0x2611…2623 bc11 3960 IF _DK = DEBET THEN
0x2611…2623 LineComal80 {
0x2611…2623 ptr = 0xbc11 // 0x2611 @0x0
0x2611…2623 lno = 0x0f78 // 0x2613 @0x2
0x2611…2623 at0004 = ╱9b464b╱ IF ╱ // 0x2615 @0x4
0x2611…2623 at0007 = ╱5f╱_╱ // 0x2618 @0x7
0x2611…2623 at0008 = ╱44╱D╱ // 0x2619 @0x8
0x2611…2623 at0009 = ╱4b╱K╱ // 0x261a @0x9
0x2611…2623 at000a = ╱df╱ = ╱ // 0x261b @0xa
0x2611…2623 at000b = ╱44╱D╱ // 0x261c @0xb
0x2611…2623 at000c = ╱45╱E╱ // 0x261d @0xc
0x2611…2623 at000d = ╱42╱B╱ // 0x261e @0xd
0x2611…2623 at000e = ╱45╱E╱ // 0x261f @0xe
0x2611…2623 at000f = ╱54╱T╱ // 0x2620 @0xf
0x2611…2623 at0010 = ╱b5╱ THEN ╱ // 0x2621 @0x10
0x2611…2623 at0011 = EOL // 0x2622 @0x11
0x2611…2623 }
0x2623…2635 bc23 3970 CURSOR 42,R_SLIN
0x2623…2635 LineComal80 {
0x2623…2635 ptr = 0xbc23 // 0x2623 @0x0
0x2623…2635 lno = 0x0f82 // 0x2625 @0x2
0x2623…2635 at0004 = ╱a1╱ CURSOR ╱ // 0x2627 @0x4
0x2623…2635 at0005 = ╱34╱4╱ // 0x2628 @0x5
0x2623…2635 at0006 = ╱32╱2╱ // 0x2629 @0x6
0x2623…2635 at0007 = ╱f22a00╱ // 0x262a @0x7
0x2623…2635 at000a = ╱ec╱,╱ // 0x262d @0xa
0x2623…2635 at000b = ╱52╱R╱ // 0x262e @0xb
0x2623…2635 at000c = ╱5f╱_╱ // 0x262f @0xc
0x2623…2635 at000d = ╱53╱S╱ // 0x2630 @0xd
0x2623…2635 at000e = ╱4c╱L╱ // 0x2631 @0xe
0x2623…2635 at000f = ╱49╱I╱ // 0x2632 @0xf
0x2623…2635 at0010 = ╱4e╱N╱ // 0x2633 @0x10
0x2623…2635 at0011 = EOL // 0x2634 @0x11
0x2623…2635 }
0x2635…263c bc2a 3980 ELSE
0x2635…263c LineComal80 {
0x2635…263c ptr = 0xbc2a // 0x2635 @0x0
0x2635…263c lno = 0x0f8c // 0x2637 @0x2
0x2635…263c at0004 = ╱9a47╱ ELSE ╱ // 0x2639 @0x4
0x2635…263c at0006 = EOL // 0x263b @0x6
0x2635…263c }
0x263c…264e bc3c 3990 CURSOR 55,R_SLIN
0x263c…264e LineComal80 {
0x263c…264e ptr = 0xbc3c // 0x263c @0x0
0x263c…264e lno = 0x0f96 // 0x263e @0x2
0x263c…264e at0004 = ╱a1╱ CURSOR ╱ // 0x2640 @0x4
0x263c…264e at0005 = ╱35╱5╱ // 0x2641 @0x5
0x263c…264e at0006 = ╱35╱5╱ // 0x2642 @0x6
0x263c…264e at0007 = ╱f23700╱ // 0x2643 @0x7
0x263c…264e at000a = ╱ec╱,╱ // 0x2646 @0xa
0x263c…264e at000b = ╱52╱R╱ // 0x2647 @0xb
0x263c…264e at000c = ╱5f╱_╱ // 0x2648 @0xc
0x263c…264e at000d = ╱53╱S╱ // 0x2649 @0xd
0x263c…264e at000e = ╱4c╱L╱ // 0x264a @0xe
0x263c…264e at000f = ╱49╱I╱ // 0x264b @0xf
0x263c…264e at0010 = ╱4e╱N╱ // 0x264c @0x10
0x263c…264e at0011 = EOL // 0x264d @0x11
0x263c…264e }
0x264e…2654 bc42 4000 ENDIF
0x264e…2654 LineComal80 {
0x264e…2654 ptr = 0xbc42 // 0x264e @0x0
0x264e…2654 lno = 0x0fa0 // 0x2650 @0x2
0x264e…2654 at0004 = ╱9c╱ ENDIF ╱ // 0x2652 @0x4
0x264e…2654 at0005 = EOL // 0x2653 @0x5
0x264e…2654 }
0x2654…266c bc5a 4010 PRINT CHR$ (K_BKR,9,2)
0x2654…266c LineComal80 {
0x2654…266c ptr = 0xbc5a // 0x2654 @0x0
0x2654…266c lno = 0x0faa // 0x2656 @0x2
0x2654…266c at0004 = ╱92╱ PRINT ╱ // 0x2658 @0x4
0x2654…266c at0005 = ╱d0╱ CHR$ ╱ // 0x2659 @0x5
0x2654…266c at0006 = ╱ed╱(╱ // 0x265a @0x6
0x2654…266c at0007 = ╱4b╱K╱ // 0x265b @0x7
0x2654…266c at0008 = ╱5f╱_╱ // 0x265c @0x8
0x2654…266c at0009 = ╱42╱B╱ // 0x265d @0x9
0x2654…266c at000a = ╱4b╱K╱ // 0x265e @0xa
0x2654…266c at000b = ╱52╱R╱ // 0x265f @0xb
0x2654…266c at000c = ╱ec╱,╱ // 0x2660 @0xc
0x2654…266c at000d = ╱39╱9╱ // 0x2661 @0xd
0x2654…266c at000e = ╱f20900╱ // 0x2662 @0xe
0x2654…266c at0011 = ╱ec╱,╱ // 0x2665 @0x11
0x2654…266c at0012 = ╱32╱2╱ // 0x2666 @0x12
0x2654…266c at0013 = ╱f20200╱ // 0x2667 @0x13
0x2654…266c at0016 = ╱ee╱)╱ // 0x266a @0x16
0x2654…266c at0017 = EOL // 0x266b @0x17
0x2654…266c }
0x266c…267e bc6c 4020 CURSOR 69,R_SLIN
0x266c…267e LineComal80 {
0x266c…267e ptr = 0xbc6c // 0x266c @0x0
0x266c…267e lno = 0x0fb4 // 0x266e @0x2
0x266c…267e at0004 = ╱a1╱ CURSOR ╱ // 0x2670 @0x4
0x266c…267e at0005 = ╱36╱6╱ // 0x2671 @0x5
0x266c…267e at0006 = ╱39╱9╱ // 0x2672 @0x6
0x266c…267e at0007 = ╱f24500╱ // 0x2673 @0x7
0x266c…267e at000a = ╱ec╱,╱ // 0x2676 @0xa
0x266c…267e at000b = ╱52╱R╱ // 0x2677 @0xb
0x266c…267e at000c = ╱5f╱_╱ // 0x2678 @0xc
0x266c…267e at000d = ╱53╱S╱ // 0x2679 @0xd
0x266c…267e at000e = ╱4c╱L╱ // 0x267a @0xe
0x266c…267e at000f = ╱49╱I╱ // 0x267b @0xf
0x266c…267e at0010 = ╱4e╱N╱ // 0x267c @0x10
0x266c…267e at0011 = EOL // 0x267d @0x11
0x266c…267e }
0x267e…268b bc79 4030 PRINT K_BKTO$
0x267e…268b LineComal80 {
0x267e…268b ptr = 0xbc79 // 0x267e @0x0
0x267e…268b lno = 0x0fbe // 0x2680 @0x2
0x267e…268b at0004 = ╱92╱ PRINT ╱ // 0x2682 @0x4
0x267e…268b at0005 = ╱4b╱K╱ // 0x2683 @0x5
0x267e…268b at0006 = ╱5f╱_╱ // 0x2684 @0x6
0x267e…268b at0007 = ╱42╱B╱ // 0x2685 @0x7
0x267e…268b at0008 = ╱4b╱K╱ // 0x2686 @0x8
0x267e…268b at0009 = ╱54╱T╱ // 0x2687 @0x9
0x267e…268b at000a = ╱4f╱O╱ // 0x2688 @0xa
0x267e…268b at000b = ╱ef╱$╱ // 0x2689 @0xb
0x267e…268b at000c = EOL // 0x268a @0xc
0x267e…268b }
0x268b…269a bc88 4040 ENDPROC SKRIV_LIN
0x268b…269a LineComal80 {
0x268b…269a ptr = 0xbc88 // 0x268b @0x0
0x268b…269a lno = 0x0fc8 // 0x268d @0x2
0x268b…269a at0004 = ╱9f╱ ENDPROC ╱ // 0x268f @0x4
0x268b…269a at0005 = ╱53╱S╱ // 0x2690 @0x5
0x268b…269a at0006 = ╱4b╱K╱ // 0x2691 @0x6
0x268b…269a at0007 = ╱52╱R╱ // 0x2692 @0x7
0x268b…269a at0008 = ╱49╱I╱ // 0x2693 @0x8
0x268b…269a at0009 = ╱56╱V╱ // 0x2694 @0x9
0x268b…269a at000a = ╱5f╱_╱ // 0x2695 @0xa
0x268b…269a at000b = ╱4c╱L╱ // 0x2696 @0xb
0x268b…269a at000c = ╱49╱I╱ // 0x2697 @0xc
0x268b…269a at000d = ╱4e╱N╱ // 0x2698 @0xd
0x268b…269a at000e = EOL // 0x2699 @0xe
0x268b…269a }
0x269a…269f bc8d 4050
0x269a…269f LineComal80 {
0x269a…269f ptr = 0xbc8d // 0x269a @0x0
0x269a…269f lno = 0x0fd2 // 0x269c @0x2
0x269a…269f at0004 = EOL // 0x269e @0x4
0x269a…269f }
0x269f…26b5 bca3 4060 PROC SKRIV_K_POST(P)
0x269f…26b5 LineComal80 {
0x269f…26b5 ptr = 0xbca3 // 0x269f @0x0
0x269f…26b5 lno = 0x0fdc // 0x26a1 @0x2
0x269f…26b5 at0004 = ╱9e48╱ PROC ╱ // 0x26a3 @0x4
0x269f…26b5 at0006 = ╱53╱S╱ // 0x26a5 @0x6
0x269f…26b5 at0007 = ╱4b╱K╱ // 0x26a6 @0x7
0x269f…26b5 at0008 = ╱52╱R╱ // 0x26a7 @0x8
0x269f…26b5 at0009 = ╱49╱I╱ // 0x26a8 @0x9
0x269f…26b5 at000a = ╱56╱V╱ // 0x26a9 @0xa
0x269f…26b5 at000b = ╱5f╱_╱ // 0x26aa @0xb
0x269f…26b5 at000c = ╱4b╱K╱ // 0x26ab @0xc
0x269f…26b5 at000d = ╱5f╱_╱ // 0x26ac @0xd
0x269f…26b5 at000e = ╱50╱P╱ // 0x26ad @0xe
0x269f…26b5 at000f = ╱4f╱O╱ // 0x26ae @0xf
0x269f…26b5 at0010 = ╱53╱S╱ // 0x26af @0x10
0x269f…26b5 at0011 = ╱54╱T╱ // 0x26b0 @0x11
0x269f…26b5 at0012 = ╱ed╱(╱ // 0x26b1 @0x12
0x269f…26b5 at0013 = ╱50╱P╱ // 0x26b2 @0x13
0x269f…26b5 at0014 = ╱ee╱)╱ // 0x26b3 @0x14
0x269f…26b5 at0015 = EOL // 0x26b4 @0x15
0x269f…26b5 }
0x26b5…26f9 bce7 4070 PUT KASSE$,P + 1 : K_BKTO$,K_LKOD$,K_MKOD$,K_BNR$,K_TXT$,K_BKR,K_DK
0x26b5…26f9 LineComal80 {
0x26b5…26f9 ptr = 0xbce7 // 0x26b5 @0x0
0x26b5…26f9 lno = 0x0fe6 // 0x26b7 @0x2
0x26b5…26f9 at0004 = ╱aa╱ PUT ╱ // 0x26b9 @0x4
0x26b5…26f9 at0005 = ╱4b╱K╱ // 0x26ba @0x5
0x26b5…26f9 at0006 = ╱41╱A╱ // 0x26bb @0x6
0x26b5…26f9 at0007 = ╱53╱S╱ // 0x26bc @0x7
0x26b5…26f9 at0008 = ╱53╱S╱ // 0x26bd @0x8
0x26b5…26f9 at0009 = ╱45╱E╱ // 0x26be @0x9
0x26b5…26f9 at000a = ╱ef╱$╱ // 0x26bf @0xa
0x26b5…26f9 at000b = ╱ec╱,╱ // 0x26c0 @0xb
0x26b5…26f9 at000c = ╱50╱P╱ // 0x26c1 @0xc
0x26b5…26f9 at000d = ╱e5╱ + ╱ // 0x26c2 @0xd
0x26b5…26f9 at000e = ╱31╱1╱ // 0x26c3 @0xe
0x26b5…26f9 at000f = ╱f20100╱ // 0x26c4 @0xf
0x26b5…26f9 at0012 = ╱f1╱ : ╱ // 0x26c7 @0x12
0x26b5…26f9 at0013 = ╱4b╱K╱ // 0x26c8 @0x13
0x26b5…26f9 at0014 = ╱5f╱_╱ // 0x26c9 @0x14
0x26b5…26f9 at0015 = ╱42╱B╱ // 0x26ca @0x15
0x26b5…26f9 at0016 = ╱4b╱K╱ // 0x26cb @0x16
0x26b5…26f9 at0017 = ╱54╱T╱ // 0x26cc @0x17
0x26b5…26f9 at0018 = ╱4f╱O╱ // 0x26cd @0x18
0x26b5…26f9 at0019 = ╱ef╱$╱ // 0x26ce @0x19
0x26b5…26f9 at001a = ╱ec╱,╱ // 0x26cf @0x1a
0x26b5…26f9 at001b = ╱4b╱K╱ // 0x26d0 @0x1b
0x26b5…26f9 at001c = ╱5f╱_╱ // 0x26d1 @0x1c
0x26b5…26f9 at001d = ╱4c╱L╱ // 0x26d2 @0x1d
0x26b5…26f9 at001e = ╱4b╱K╱ // 0x26d3 @0x1e
0x26b5…26f9 at001f = ╱4f╱O╱ // 0x26d4 @0x1f
0x26b5…26f9 at0020 = ╱44╱D╱ // 0x26d5 @0x20
0x26b5…26f9 at0021 = ╱ef╱$╱ // 0x26d6 @0x21
0x26b5…26f9 at0022 = ╱ec╱,╱ // 0x26d7 @0x22
0x26b5…26f9 at0023 = ╱4b╱K╱ // 0x26d8 @0x23
0x26b5…26f9 at0024 = ╱5f╱_╱ // 0x26d9 @0x24
0x26b5…26f9 at0025 = ╱4d╱M╱ // 0x26da @0x25
0x26b5…26f9 at0026 = ╱4b╱K╱ // 0x26db @0x26
0x26b5…26f9 at0027 = ╱4f╱O╱ // 0x26dc @0x27
0x26b5…26f9 at0028 = ╱44╱D╱ // 0x26dd @0x28
0x26b5…26f9 at0029 = ╱ef╱$╱ // 0x26de @0x29
0x26b5…26f9 at002a = ╱ec╱,╱ // 0x26df @0x2a
0x26b5…26f9 at002b = ╱4b╱K╱ // 0x26e0 @0x2b
0x26b5…26f9 at002c = ╱5f╱_╱ // 0x26e1 @0x2c
0x26b5…26f9 at002d = ╱42╱B╱ // 0x26e2 @0x2d
0x26b5…26f9 at002e = ╱4e╱N╱ // 0x26e3 @0x2e
0x26b5…26f9 at002f = ╱52╱R╱ // 0x26e4 @0x2f
0x26b5…26f9 at0030 = ╱ef╱$╱ // 0x26e5 @0x30
0x26b5…26f9 at0031 = ╱ec╱,╱ // 0x26e6 @0x31
0x26b5…26f9 at0032 = ╱4b╱K╱ // 0x26e7 @0x32
0x26b5…26f9 at0033 = ╱5f╱_╱ // 0x26e8 @0x33
0x26b5…26f9 at0034 = ╱54╱T╱ // 0x26e9 @0x34
0x26b5…26f9 at0035 = ╱58╱X╱ // 0x26ea @0x35
0x26b5…26f9 at0036 = ╱54╱T╱ // 0x26eb @0x36
0x26b5…26f9 at0037 = ╱ef╱$╱ // 0x26ec @0x37
0x26b5…26f9 at0038 = ╱ec╱,╱ // 0x26ed @0x38
0x26b5…26f9 at0039 = ╱4b╱K╱ // 0x26ee @0x39
0x26b5…26f9 at003a = ╱5f╱_╱ // 0x26ef @0x3a
0x26b5…26f9 at003b = ╱42╱B╱ // 0x26f0 @0x3b
0x26b5…26f9 at003c = ╱4b╱K╱ // 0x26f1 @0x3c
0x26b5…26f9 at003d = ╱52╱R╱ // 0x26f2 @0x3d
0x26b5…26f9 at003e = ╱ec╱,╱ // 0x26f3 @0x3e
0x26b5…26f9 at003f = ╱4b╱K╱ // 0x26f4 @0x3f
0x26b5…26f9 at0040 = ╱5f╱_╱ // 0x26f5 @0x40
0x26b5…26f9 at0041 = ╱44╱D╱ // 0x26f6 @0x41
0x26b5…26f9 at0042 = ╱4b╱K╱ // 0x26f7 @0x42
0x26b5…26f9 at0043 = EOL // 0x26f8 @0x43
0x26b5…26f9 }
0x26f9…270b bcf9 4080 ENDPROC SKRIV_K_POST
0x26f9…270b LineComal80 {
0x26f9…270b ptr = 0xbcf9 // 0x26f9 @0x0
0x26f9…270b lno = 0x0ff0 // 0x26fb @0x2
0x26f9…270b at0004 = ╱9f╱ ENDPROC ╱ // 0x26fd @0x4
0x26f9…270b at0005 = ╱53╱S╱ // 0x26fe @0x5
0x26f9…270b at0006 = ╱4b╱K╱ // 0x26ff @0x6
0x26f9…270b at0007 = ╱52╱R╱ // 0x2700 @0x7
0x26f9…270b at0008 = ╱49╱I╱ // 0x2701 @0x8
0x26f9…270b at0009 = ╱56╱V╱ // 0x2702 @0x9
0x26f9…270b at000a = ╱5f╱_╱ // 0x2703 @0xa
0x26f9…270b at000b = ╱4b╱K╱ // 0x2704 @0xb
0x26f9…270b at000c = ╱5f╱_╱ // 0x2705 @0xc
0x26f9…270b at000d = ╱50╱P╱ // 0x2706 @0xd
0x26f9…270b at000e = ╱4f╱O╱ // 0x2707 @0xe
0x26f9…270b at000f = ╱53╱S╱ // 0x2708 @0xf
0x26f9…270b at0010 = ╱54╱T╱ // 0x2709 @0x10
0x26f9…270b at0011 = EOL // 0x270a @0x11
0x26f9…270b }
0x270b…2710 bcfe 4090
0x270b…2710 LineComal80 {
0x270b…2710 ptr = 0xbcfe // 0x270b @0x0
0x270b…2710 lno = 0x0ffa // 0x270d @0x2
0x270b…2710 at0004 = EOL // 0x270f @0x4
0x270b…2710 }
0x2710…2724 bd12 4100 PROC LÆS_K_POST(P)
0x2710…2724 LineComal80 {
0x2710…2724 ptr = 0xbd12 // 0x2710 @0x0
0x2710…2724 lno = 0x1004 // 0x2712 @0x2
0x2710…2724 at0004 = ╱9e49╱ PROC ╱ // 0x2714 @0x4
0x2710…2724 at0006 = ╱4c╱L╱ // 0x2716 @0x6
0x2710…2724 at0007 = ╱5b╱Æ╱ // 0x2717 @0x7
0x2710…2724 at0008 = ╱53╱S╱ // 0x2718 @0x8
0x2710…2724 at0009 = ╱5f╱_╱ // 0x2719 @0x9
0x2710…2724 at000a = ╱4b╱K╱ // 0x271a @0xa
0x2710…2724 at000b = ╱5f╱_╱ // 0x271b @0xb
0x2710…2724 at000c = ╱50╱P╱ // 0x271c @0xc
0x2710…2724 at000d = ╱4f╱O╱ // 0x271d @0xd
0x2710…2724 at000e = ╱53╱S╱ // 0x271e @0xe
0x2710…2724 at000f = ╱54╱T╱ // 0x271f @0xf
0x2710…2724 at0010 = ╱ed╱(╱ // 0x2720 @0x10
0x2710…2724 at0011 = ╱50╱P╱ // 0x2721 @0x11
0x2710…2724 at0012 = ╱ee╱)╱ // 0x2722 @0x12
0x2710…2724 at0013 = EOL // 0x2723 @0x13
0x2710…2724 }
0x2724…2768 bd56 4110 GET KASSE$,P + 1 : K_BKTO$,K_LKOD$,K_MKOD$,K_BNR$,K_TXT$,K_BKR,K_DK
0x2724…2768 LineComal80 {
0x2724…2768 ptr = 0xbd56 // 0x2724 @0x0
0x2724…2768 lno = 0x100e // 0x2726 @0x2
0x2724…2768 at0004 = ╱a9╱ GET ╱ // 0x2728 @0x4
0x2724…2768 at0005 = ╱4b╱K╱ // 0x2729 @0x5
0x2724…2768 at0006 = ╱41╱A╱ // 0x272a @0x6
0x2724…2768 at0007 = ╱53╱S╱ // 0x272b @0x7
0x2724…2768 at0008 = ╱53╱S╱ // 0x272c @0x8
0x2724…2768 at0009 = ╱45╱E╱ // 0x272d @0x9
0x2724…2768 at000a = ╱ef╱$╱ // 0x272e @0xa
0x2724…2768 at000b = ╱ec╱,╱ // 0x272f @0xb
0x2724…2768 at000c = ╱50╱P╱ // 0x2730 @0xc
0x2724…2768 at000d = ╱e5╱ + ╱ // 0x2731 @0xd
0x2724…2768 at000e = ╱31╱1╱ // 0x2732 @0xe
0x2724…2768 at000f = ╱f20100╱ // 0x2733 @0xf
0x2724…2768 at0012 = ╱f1╱ : ╱ // 0x2736 @0x12
0x2724…2768 at0013 = ╱4b╱K╱ // 0x2737 @0x13
0x2724…2768 at0014 = ╱5f╱_╱ // 0x2738 @0x14
0x2724…2768 at0015 = ╱42╱B╱ // 0x2739 @0x15
0x2724…2768 at0016 = ╱4b╱K╱ // 0x273a @0x16
0x2724…2768 at0017 = ╱54╱T╱ // 0x273b @0x17
0x2724…2768 at0018 = ╱4f╱O╱ // 0x273c @0x18
0x2724…2768 at0019 = ╱ef╱$╱ // 0x273d @0x19
0x2724…2768 at001a = ╱ec╱,╱ // 0x273e @0x1a
0x2724…2768 at001b = ╱4b╱K╱ // 0x273f @0x1b
0x2724…2768 at001c = ╱5f╱_╱ // 0x2740 @0x1c
0x2724…2768 at001d = ╱4c╱L╱ // 0x2741 @0x1d
0x2724…2768 at001e = ╱4b╱K╱ // 0x2742 @0x1e
0x2724…2768 at001f = ╱4f╱O╱ // 0x2743 @0x1f
0x2724…2768 at0020 = ╱44╱D╱ // 0x2744 @0x20
0x2724…2768 at0021 = ╱ef╱$╱ // 0x2745 @0x21
0x2724…2768 at0022 = ╱ec╱,╱ // 0x2746 @0x22
0x2724…2768 at0023 = ╱4b╱K╱ // 0x2747 @0x23
0x2724…2768 at0024 = ╱5f╱_╱ // 0x2748 @0x24
0x2724…2768 at0025 = ╱4d╱M╱ // 0x2749 @0x25
0x2724…2768 at0026 = ╱4b╱K╱ // 0x274a @0x26
0x2724…2768 at0027 = ╱4f╱O╱ // 0x274b @0x27
0x2724…2768 at0028 = ╱44╱D╱ // 0x274c @0x28
0x2724…2768 at0029 = ╱ef╱$╱ // 0x274d @0x29
0x2724…2768 at002a = ╱ec╱,╱ // 0x274e @0x2a
0x2724…2768 at002b = ╱4b╱K╱ // 0x274f @0x2b
0x2724…2768 at002c = ╱5f╱_╱ // 0x2750 @0x2c
0x2724…2768 at002d = ╱42╱B╱ // 0x2751 @0x2d
0x2724…2768 at002e = ╱4e╱N╱ // 0x2752 @0x2e
0x2724…2768 at002f = ╱52╱R╱ // 0x2753 @0x2f
0x2724…2768 at0030 = ╱ef╱$╱ // 0x2754 @0x30
0x2724…2768 at0031 = ╱ec╱,╱ // 0x2755 @0x31
0x2724…2768 at0032 = ╱4b╱K╱ // 0x2756 @0x32
0x2724…2768 at0033 = ╱5f╱_╱ // 0x2757 @0x33
0x2724…2768 at0034 = ╱54╱T╱ // 0x2758 @0x34
0x2724…2768 at0035 = ╱58╱X╱ // 0x2759 @0x35
0x2724…2768 at0036 = ╱54╱T╱ // 0x275a @0x36
0x2724…2768 at0037 = ╱ef╱$╱ // 0x275b @0x37
0x2724…2768 at0038 = ╱ec╱,╱ // 0x275c @0x38
0x2724…2768 at0039 = ╱4b╱K╱ // 0x275d @0x39
0x2724…2768 at003a = ╱5f╱_╱ // 0x275e @0x3a
0x2724…2768 at003b = ╱42╱B╱ // 0x275f @0x3b
0x2724…2768 at003c = ╱4b╱K╱ // 0x2760 @0x3c
0x2724…2768 at003d = ╱52╱R╱ // 0x2761 @0x3d
0x2724…2768 at003e = ╱ec╱,╱ // 0x2762 @0x3e
0x2724…2768 at003f = ╱4b╱K╱ // 0x2763 @0x3f
0x2724…2768 at0040 = ╱5f╱_╱ // 0x2764 @0x40
0x2724…2768 at0041 = ╱44╱D╱ // 0x2765 @0x41
0x2724…2768 at0042 = ╱4b╱K╱ // 0x2766 @0x42
0x2724…2768 at0043 = EOL // 0x2767 @0x43
0x2724…2768 }
0x2768…2778 bd66 4120 ENDPROC LÆS_K_POST
0x2768…2778 LineComal80 {
0x2768…2778 ptr = 0xbd66 // 0x2768 @0x0
0x2768…2778 lno = 0x1018 // 0x276a @0x2
0x2768…2778 at0004 = ╱9f╱ ENDPROC ╱ // 0x276c @0x4
0x2768…2778 at0005 = ╱4c╱L╱ // 0x276d @0x5
0x2768…2778 at0006 = ╱5b╱Æ╱ // 0x276e @0x6
0x2768…2778 at0007 = ╱53╱S╱ // 0x276f @0x7
0x2768…2778 at0008 = ╱5f╱_╱ // 0x2770 @0x8
0x2768…2778 at0009 = ╱4b╱K╱ // 0x2771 @0x9
0x2768…2778 at000a = ╱5f╱_╱ // 0x2772 @0xa
0x2768…2778 at000b = ╱50╱P╱ // 0x2773 @0xb
0x2768…2778 at000c = ╱4f╱O╱ // 0x2774 @0xc
0x2768…2778 at000d = ╱53╱S╱ // 0x2775 @0xd
0x2768…2778 at000e = ╱54╱T╱ // 0x2776 @0xe
0x2768…2778 at000f = EOL // 0x2777 @0xf
0x2768…2778 }
0x2778…277d bd6b 4130
0x2778…277d LineComal80 {
0x2778…277d ptr = 0xbd6b // 0x2778 @0x0
0x2778…277d lno = 0x1022 // 0x277a @0x2
0x2778…277d at0004 = EOL // 0x277c @0x4
0x2778…277d }
0x277d…2790 bd7e 4140 PROC LÆS_KONTO(P)
0x277d…2790 LineComal80 {
0x277d…2790 ptr = 0xbd7e // 0x277d @0x0
0x277d…2790 lno = 0x102c // 0x277f @0x2
0x277d…2790 at0004 = ╱9e4a╱ PROC ╱ // 0x2781 @0x4
0x277d…2790 at0006 = ╱4c╱L╱ // 0x2783 @0x6
0x277d…2790 at0007 = ╱5b╱Æ╱ // 0x2784 @0x7
0x277d…2790 at0008 = ╱53╱S╱ // 0x2785 @0x8
0x277d…2790 at0009 = ╱5f╱_╱ // 0x2786 @0x9
0x277d…2790 at000a = ╱4b╱K╱ // 0x2787 @0xa
0x277d…2790 at000b = ╱4f╱O╱ // 0x2788 @0xb
0x277d…2790 at000c = ╱4e╱N╱ // 0x2789 @0xc
0x277d…2790 at000d = ╱54╱T╱ // 0x278a @0xd
0x277d…2790 at000e = ╱4f╱O╱ // 0x278b @0xe
0x277d…2790 at000f = ╱ed╱(╱ // 0x278c @0xf
0x277d…2790 at0010 = ╱50╱P╱ // 0x278d @0x10
0x277d…2790 at0011 = ╱ee╱)╱ // 0x278e @0x11
0x277d…2790 at0012 = EOL // 0x278f @0x12
0x277d…2790 }
0x2790…27d5 bdc3 4150 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0x2790…27d5 LineComal80 {
0x2790…27d5 ptr = 0xbdc3 // 0x2790 @0x0
0x2790…27d5 lno = 0x1036 // 0x2792 @0x2
0x2790…27d5 at0004 = ╱a9╱ GET ╱ // 0x2794 @0x4
0x2790…27d5 at0005 = ╱4b╱K╱ // 0x2795 @0x5
0x2790…27d5 at0006 = ╱4f╱O╱ // 0x2796 @0x6
0x2790…27d5 at0007 = ╱4e╱N╱ // 0x2797 @0x7
0x2790…27d5 at0008 = ╱54╱T╱ // 0x2798 @0x8
0x2790…27d5 at0009 = ╱4f╱O╱ // 0x2799 @0x9
0x2790…27d5 at000a = ╱ef╱$╱ // 0x279a @0xa
0x2790…27d5 at000b = ╱ec╱,╱ // 0x279b @0xb
0x2790…27d5 at000c = ╱50╱P╱ // 0x279c @0xc
0x2790…27d5 at000d = ╱f1╱ : ╱ // 0x279d @0xd
0x2790…27d5 at000e = ╱4b╱K╱ // 0x279e @0xe
0x2790…27d5 at000f = ╱54╱T╱ // 0x279f @0xf
0x2790…27d5 at0010 = ╱4f╱O╱ // 0x27a0 @0x10
0x2790…27d5 at0011 = ╱5f╱_╱ // 0x27a1 @0x11
0x2790…27d5 at0012 = ╱54╱T╱ // 0x27a2 @0x12
0x2790…27d5 at0013 = ╱59╱Y╱ // 0x27a3 @0x13
0x2790…27d5 at0014 = ╱50╱P╱ // 0x27a4 @0x14
0x2790…27d5 at0015 = ╱45╱E╱ // 0x27a5 @0x15
0x2790…27d5 at0016 = ╱ef╱$╱ // 0x27a6 @0x16
0x2790…27d5 at0017 = ╱ec╱,╱ // 0x27a7 @0x17
0x2790…27d5 at0018 = ╱4b╱K╱ // 0x27a8 @0x18
0x2790…27d5 at0019 = ╱54╱T╱ // 0x27a9 @0x19
0x2790…27d5 at001a = ╱4f╱O╱ // 0x27aa @0x1a
0x2790…27d5 at001b = ╱5f╱_╱ // 0x27ab @0x1b
0x2790…27d5 at001c = ╱4e╱N╱ // 0x27ac @0x1c
0x2790…27d5 at001d = ╱41╱A╱ // 0x27ad @0x1d
0x2790…27d5 at001e = ╱56╱V╱ // 0x27ae @0x1e
0x2790…27d5 at001f = ╱4e╱N╱ // 0x27af @0x1f
0x2790…27d5 at0020 = ╱ef╱$╱ // 0x27b0 @0x20
0x2790…27d5 at0021 = ╱ec╱,╱ // 0x27b1 @0x21
0x2790…27d5 at0022 = ╱4b╱K╱ // 0x27b2 @0x22
0x2790…27d5 at0023 = ╱54╱T╱ // 0x27b3 @0x23
0x2790…27d5 at0024 = ╱4f╱O╱ // 0x27b4 @0x24
0x2790…27d5 at0025 = ╱5f╱_╱ // 0x27b5 @0x25
0x2790…27d5 at0026 = ╱50╱P╱ // 0x27b6 @0x26
0x2790…27d5 at0027 = ╱52╱R╱ // 0x27b7 @0x27
0x2790…27d5 at0028 = ╱49╱I╱ // 0x27b8 @0x28
0x2790…27d5 at0029 = ╱4d╱M╱ // 0x27b9 @0x29
0x2790…27d5 at002a = ╱4f╱O╱ // 0x27ba @0x2a
0x2790…27d5 at002b = ╱ec╱,╱ // 0x27bb @0x2b
0x2790…27d5 at002c = ╱4b╱K╱ // 0x27bc @0x2c
0x2790…27d5 at002d = ╱54╱T╱ // 0x27bd @0x2d
0x2790…27d5 at002e = ╱4f╱O╱ // 0x27be @0x2e
0x2790…27d5 at002f = ╱5f╱_╱ // 0x27bf @0x2f
0x2790…27d5 at0030 = ╱55╱U╱ // 0x27c0 @0x30
0x2790…27d5 at0031 = ╱4c╱L╱ // 0x27c1 @0x31
0x2790…27d5 at0032 = ╱54╱T╱ // 0x27c2 @0x32
0x2790…27d5 at0033 = ╱49╱I╱ // 0x27c3 @0x33
0x2790…27d5 at0034 = ╱4d╱M╱ // 0x27c4 @0x34
0x2790…27d5 at0035 = ╱4f╱O╱ // 0x27c5 @0x35
0x2790…27d5 at0036 = ╱ec╱,╱ // 0x27c6 @0x36
0x2790…27d5 at0037 = ╱4b╱K╱ // 0x27c7 @0x37
0x2790…27d5 at0038 = ╱54╱T╱ // 0x27c8 @0x38
0x2790…27d5 at0039 = ╱4f╱O╱ // 0x27c9 @0x39
0x2790…27d5 at003a = ╱5f╱_╱ // 0x27ca @0x3a
0x2790…27d5 at003b = ╱46╱F╱ // 0x27cb @0x3b
0x2790…27d5 at003c = ╱50╱P╱ // 0x27cc @0x3c
0x2790…27d5 at003d = ╱ec╱,╱ // 0x27cd @0x3d
0x2790…27d5 at003e = ╱4b╱K╱ // 0x27ce @0x3e
0x2790…27d5 at003f = ╱54╱T╱ // 0x27cf @0x3f
0x2790…27d5 at0040 = ╱4f╱O╱ // 0x27d0 @0x40
0x2790…27d5 at0041 = ╱5f╱_╱ // 0x27d1 @0x41
0x2790…27d5 at0042 = ╱53╱S╱ // 0x27d2 @0x42
0x2790…27d5 at0043 = ╱50╱P╱ // 0x27d3 @0x43
0x2790…27d5 at0044 = EOL // 0x27d4 @0x44
0x2790…27d5 }
0x27d5…27e4 bdd2 4160 ENDPROC LÆS_KONTO
0x27d5…27e4 LineComal80 {
0x27d5…27e4 ptr = 0xbdd2 // 0x27d5 @0x0
0x27d5…27e4 lno = 0x1040 // 0x27d7 @0x2
0x27d5…27e4 at0004 = ╱9f╱ ENDPROC ╱ // 0x27d9 @0x4
0x27d5…27e4 at0005 = ╱4c╱L╱ // 0x27da @0x5
0x27d5…27e4 at0006 = ╱5b╱Æ╱ // 0x27db @0x6
0x27d5…27e4 at0007 = ╱53╱S╱ // 0x27dc @0x7
0x27d5…27e4 at0008 = ╱5f╱_╱ // 0x27dd @0x8
0x27d5…27e4 at0009 = ╱4b╱K╱ // 0x27de @0x9
0x27d5…27e4 at000a = ╱4f╱O╱ // 0x27df @0xa
0x27d5…27e4 at000b = ╱4e╱N╱ // 0x27e0 @0xb
0x27d5…27e4 at000c = ╱54╱T╱ // 0x27e1 @0xc
0x27d5…27e4 at000d = ╱4f╱O╱ // 0x27e2 @0xd
0x27d5…27e4 at000e = EOL // 0x27e3 @0xe
0x27d5…27e4 }
0x27e4…27e9 bdd7 4170
0x27e4…27e9 LineComal80 {
0x27e4…27e9 ptr = 0xbdd7 // 0x27e4 @0x0
0x27e4…27e9 lno = 0x104a // 0x27e6 @0x2
0x27e4…27e9 at0004 = EOL // 0x27e8 @0x4
0x27e4…27e9 }
0x27e9…27fe bdec 4180 PROC ST_BGST( REF RST$)
0x27e9…27fe LineComal80 {
0x27e9…27fe ptr = 0xbdec // 0x27e9 @0x0
0x27e9…27fe lno = 0x1054 // 0x27eb @0x2
0x27e9…27fe at0004 = ╱9e4b╱ PROC ╱ // 0x27ed @0x4
0x27e9…27fe at0006 = ╱53╱S╱ // 0x27ef @0x6
0x27e9…27fe at0007 = ╱54╱T╱ // 0x27f0 @0x7
0x27e9…27fe at0008 = ╱5f╱_╱ // 0x27f1 @0x8
0x27e9…27fe at0009 = ╱42╱B╱ // 0x27f2 @0x9
0x27e9…27fe at000a = ╱47╱G╱ // 0x27f3 @0xa
0x27e9…27fe at000b = ╱53╱S╱ // 0x27f4 @0xb
0x27e9…27fe at000c = ╱54╱T╱ // 0x27f5 @0xc
0x27e9…27fe at000d = ╱ed╱(╱ // 0x27f6 @0xd
0x27e9…27fe at000e = ╱b6╱ REF ╱ // 0x27f7 @0xe
0x27e9…27fe at000f = ╱52╱R╱ // 0x27f8 @0xf
0x27e9…27fe at0010 = ╱53╱S╱ // 0x27f9 @0x10
0x27e9…27fe at0011 = ╱54╱T╱ // 0x27fa @0x11
0x27e9…27fe at0012 = ╱ef╱$╱ // 0x27fb @0x12
0x27e9…27fe at0013 = ╱ee╱)╱ // 0x27fc @0x13
0x27e9…27fe at0014 = EOL // 0x27fd @0x14
0x27e9…27fe }
0x27fe…2814 be02 4190 FOR I := 1 TO (RST$) DO
0x27fe…2814 LineComal80 {
0x27fe…2814 ptr = 0xbe02 // 0x27fe @0x0
0x27fe…2814 lno = 0x105e // 0x2800 @0x2
0x27fe…2814 at0004 = ╱834c╱ FOR ╱ // 0x2802 @0x4
0x27fe…2814 at0006 = ╱49╱I╱ // 0x2804 @0x6
0x27fe…2814 at0007 = ╱f0╱ := ╱ // 0x2805 @0x7
0x27fe…2814 at0008 = ╱31╱1╱ // 0x2806 @0x8
0x27fe…2814 at0009 = ╱f20100╱ // 0x2807 @0x9
0x27fe…2814 at000c = ╱b7cb╱ TO ╱ // 0x280a @0xc
0x27fe…2814 at000e = ╱ed╱(╱ // 0x280c @0xe
0x27fe…2814 at000f = ╱52╱R╱ // 0x280d @0xf
0x27fe…2814 at0010 = ╱53╱S╱ // 0x280e @0x10
0x27fe…2814 at0011 = ╱54╱T╱ // 0x280f @0x11
0x27fe…2814 at0012 = ╱ef╱$╱ // 0x2810 @0x12
0x27fe…2814 at0013 = ╱ee╱)╱ // 0x2811 @0x13
0x27fe…2814 at0014 = ╱bb╱ DO ╱ // 0x2812 @0x14
0x27fe…2814 at0015 = EOL // 0x2813 @0x15
0x27fe…2814 }
0x2814…284f be3d 4200 IF RST$(I) =< "å" AND RST$(I) >= "a" THEN LET RST$(I) := CHR$ ( ╱cc╱ (RST$(I)) - 32)
0x2814…284f LineComal80 {
0x2814…284f ptr = 0xbe3d // 0x2814 @0x0
0x2814…284f lno = 0x1068 // 0x2816 @0x2
0x2814…284f at0004 = ╱8200╱ IF ╱ // 0x2818 @0x4
0x2814…284f at0006 = ╱52╱R╱ // 0x281a @0x6
0x2814…284f at0007 = ╱53╱S╱ // 0x281b @0x7
0x2814…284f at0008 = ╱54╱T╱ // 0x281c @0x8
0x2814…284f at0009 = ╱ef╱$╱ // 0x281d @0x9
0x2814…284f at000a = ╱ed╱(╱ // 0x281e @0xa
0x2814…284f at000b = ╱49╱I╱ // 0x281f @0xb
0x2814…284f at000c = ╱ee╱)╱ // 0x2820 @0xc
0x2814…284f at000d = ╱e2╱ =< ╱ // 0x2821 @0xd
0x2814…284f at000e = ╱22╱"╱ // 0x2822 @0xe
0x2814…284f at000f = ╱7d╱å╱ // 0x2823 @0xf
0x2814…284f at0010 = ╱22╱"╱ // 0x2824 @0x10
0x2814…284f at0011 = ╱d9╱ AND ╱ // 0x2825 @0x11
0x2814…284f at0012 = ╱52╱R╱ // 0x2826 @0x12
0x2814…284f at0013 = ╱53╱S╱ // 0x2827 @0x13
0x2814…284f at0014 = ╱54╱T╱ // 0x2828 @0x14
0x2814…284f at0015 = ╱ef╱$╱ // 0x2829 @0x15
0x2814…284f at0016 = ╱ed╱(╱ // 0x282a @0x16
0x2814…284f at0017 = ╱49╱I╱ // 0x282b @0x17
0x2814…284f at0018 = ╱ee╱)╱ // 0x282c @0x18
0x2814…284f at0019 = ╱e3╱ >= ╱ // 0x282d @0x19
0x2814…284f at001a = ╱22╱"╱ // 0x282e @0x1a
0x2814…284f at001b = ╱61╱a╱ // 0x282f @0x1b
0x2814…284f at001c = ╱22╱"╱ // 0x2830 @0x1c
0x2814…284f at001d = ╱b5╱ THEN ╱ // 0x2831 @0x1d
0x2814…284f at001e = ╱86╱ LET ╱ // 0x2832 @0x1e
0x2814…284f at001f = ╱52╱R╱ // 0x2833 @0x1f
0x2814…284f at0020 = ╱53╱S╱ // 0x2834 @0x20
0x2814…284f at0021 = ╱54╱T╱ // 0x2835 @0x21
0x2814…284f at0022 = ╱ef╱$╱ // 0x2836 @0x22
0x2814…284f at0023 = ╱ed╱(╱ // 0x2837 @0x23
0x2814…284f at0024 = ╱49╱I╱ // 0x2838 @0x24
0x2814…284f at0025 = ╱ee╱)╱ // 0x2839 @0x25
0x2814…284f at0026 = ╱f0╱ := ╱ // 0x283a @0x26
0x2814…284f at0027 = ╱d0╱ CHR$ ╱ // 0x283b @0x27
0x2814…284f at0028 = ╱ed╱(╱ // 0x283c @0x28
0x2814…284f at0029 = ╱cc╱ // 0x283d @0x29
0x2814…284f at002a = ╱ed╱(╱ // 0x283e @0x2a
0x2814…284f at002b = ╱52╱R╱ // 0x283f @0x2b
0x2814…284f at002c = ╱53╱S╱ // 0x2840 @0x2c
0x2814…284f at002d = ╱54╱T╱ // 0x2841 @0x2d
0x2814…284f at002e = ╱ef╱$╱ // 0x2842 @0x2e
0x2814…284f at002f = ╱ed╱(╱ // 0x2843 @0x2f
0x2814…284f at0030 = ╱49╱I╱ // 0x2844 @0x30
0x2814…284f at0031 = ╱ee╱)╱ // 0x2845 @0x31
0x2814…284f at0032 = ╱ee╱)╱ // 0x2846 @0x32
0x2814…284f at0033 = ╱e6╱ - ╱ // 0x2847 @0x33
0x2814…284f at0034 = ╱33╱3╱ // 0x2848 @0x34
0x2814…284f at0035 = ╱32╱2╱ // 0x2849 @0x35
0x2814…284f at0036 = ╱f22000╱ // 0x284a @0x36
0x2814…284f at0039 = ╱ee╱)╱ // 0x284d @0x39
0x2814…284f at003a = EOL // 0x284e @0x3a
0x2814…284f }
0x284f…2856 be44 4210 NEXT I
0x284f…2856 LineComal80 {
0x284f…2856 ptr = 0xbe44 // 0x284f @0x0
0x284f…2856 lno = 0x1072 // 0x2851 @0x2
0x284f…2856 at0004 = ╱84╱ NEXT ╱ // 0x2853 @0x4
0x284f…2856 at0005 = ╱49╱I╱ // 0x2854 @0x5
0x284f…2856 at0006 = EOL // 0x2855 @0x6
0x284f…2856 }
0x2856…2863 be51 4220 ENDPROC ST_BGST
0x2856…2863 LineComal80 {
0x2856…2863 ptr = 0xbe51 // 0x2856 @0x0
0x2856…2863 lno = 0x107c // 0x2858 @0x2
0x2856…2863 at0004 = ╱9f╱ ENDPROC ╱ // 0x285a @0x4
0x2856…2863 at0005 = ╱53╱S╱ // 0x285b @0x5
0x2856…2863 at0006 = ╱54╱T╱ // 0x285c @0x6
0x2856…2863 at0007 = ╱5f╱_╱ // 0x285d @0x7
0x2856…2863 at0008 = ╱42╱B╱ // 0x285e @0x8
0x2856…2863 at0009 = ╱47╱G╱ // 0x285f @0x9
0x2856…2863 at000a = ╱53╱S╱ // 0x2860 @0xa
0x2856…2863 at000b = ╱54╱T╱ // 0x2861 @0xb
0x2856…2863 at000c = EOL // 0x2862 @0xc
0x2856…2863 }
0x2863…2874 be62 4230 PROC RET_POSTER
0x2863…2874 LineComal80 {
0x2863…2874 ptr = 0xbe62 // 0x2863 @0x0
0x2863…2874 lno = 0x1086 // 0x2865 @0x2
0x2863…2874 at0004 = ╱9e4d╱ PROC ╱ // 0x2867 @0x4
0x2863…2874 at0006 = ╱52╱R╱ // 0x2869 @0x6
0x2863…2874 at0007 = ╱45╱E╱ // 0x286a @0x7
0x2863…2874 at0008 = ╱54╱T╱ // 0x286b @0x8
0x2863…2874 at0009 = ╱5f╱_╱ // 0x286c @0x9
0x2863…2874 at000a = ╱50╱P╱ // 0x286d @0xa
0x2863…2874 at000b = ╱4f╱O╱ // 0x286e @0xb
0x2863…2874 at000c = ╱53╱S╱ // 0x286f @0xc
0x2863…2874 at000d = ╱54╱T╱ // 0x2870 @0xd
0x2863…2874 at000e = ╱45╱E╱ // 0x2871 @0xe
0x2863…2874 at000f = ╱52╱R╱ // 0x2872 @0xf
0x2863…2874 at0010 = EOL // 0x2873 @0x10
0x2863…2874 }
0x2874…28aa be98 4240 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
0x2874…28aa LineComal80 {
0x2874…28aa ptr = 0xbe98 // 0x2874 @0x0
0x2874…28aa lno = 0x1090 // 0x2876 @0x2
0x2874…28aa at0004 = ╱a9╱ GET ╱ // 0x2878 @0x4
0x2874…28aa at0005 = ╱4b╱K╱ // 0x2879 @0x5
0x2874…28aa at0006 = ╱41╱A╱ // 0x287a @0x6
0x2874…28aa at0007 = ╱53╱S╱ // 0x287b @0x7
0x2874…28aa at0008 = ╱53╱S╱ // 0x287c @0x8
0x2874…28aa at0009 = ╱45╱E╱ // 0x287d @0x9
0x2874…28aa at000a = ╱ef╱$╱ // 0x287e @0xa
0x2874…28aa at000b = ╱ec╱,╱ // 0x287f @0xb
0x2874…28aa at000c = ╱31╱1╱ // 0x2880 @0xc
0x2874…28aa at000d = ╱f20100╱ // 0x2881 @0xd
0x2874…28aa at0010 = ╱f1╱ : ╱ // 0x2884 @0x10
0x2874…28aa at0011 = ╱4b╱K╱ // 0x2885 @0x11
0x2874…28aa at0012 = ╱5f╱_╱ // 0x2886 @0x12
0x2874…28aa at0013 = ╱48╱H╱ // 0x2887 @0x13
0x2874…28aa at0014 = ╱5c╱Ø╱ // 0x2888 @0x14
0x2874…28aa at0015 = ╱4a╱J╱ // 0x2889 @0x15
0x2874…28aa at0016 = ╱52╱R╱ // 0x288a @0x16
0x2874…28aa at0017 = ╱45╱E╱ // 0x288b @0x17
0x2874…28aa at0018 = ╱43╱C╱ // 0x288c @0x18
0x2874…28aa at0019 = ╱ec╱,╱ // 0x288d @0x19
0x2874…28aa at001a = ╱4b╱K╱ // 0x288e @0x1a
0x2874…28aa at001b = ╱5f╱_╱ // 0x288f @0x1b
0x2874…28aa at001c = ╱4d╱M╱ // 0x2890 @0x1c
0x2874…28aa at001d = ╱41╱A╱ // 0x2891 @0x1d
0x2874…28aa at001e = ╱58╱X╱ // 0x2892 @0x1e
0x2874…28aa at001f = ╱52╱R╱ // 0x2893 @0x1f
0x2874…28aa at0020 = ╱45╱E╱ // 0x2894 @0x20
0x2874…28aa at0021 = ╱43╱C╱ // 0x2895 @0x21
0x2874…28aa at0022 = ╱ec╱,╱ // 0x2896 @0x22
0x2874…28aa at0023 = ╱53╱S╱ // 0x2897 @0x23
0x2874…28aa at0024 = ╱5f╱_╱ // 0x2898 @0x24
0x2874…28aa at0025 = ╱4e╱N╱ // 0x2899 @0x25
0x2874…28aa at0026 = ╱52╱R╱ // 0x289a @0x26
0x2874…28aa at0027 = ╱5f╱_╱ // 0x289b @0x27
0x2874…28aa at0028 = ╱4b╱K╱ // 0x289c @0x28
0x2874…28aa at0029 = ╱41╱A╱ // 0x289d @0x29
0x2874…28aa at002a = ╱53╱S╱ // 0x289e @0x2a
0x2874…28aa at002b = ╱53╱S╱ // 0x289f @0x2b
0x2874…28aa at002c = ╱45╱E╱ // 0x28a0 @0x2c
0x2874…28aa at002d = ╱ec╱,╱ // 0x28a1 @0x2d
0x2874…28aa at002e = ╱4b╱K╱ // 0x28a2 @0x2e
0x2874…28aa at002f = ╱5f╱_╱ // 0x28a3 @0x2f
0x2874…28aa at0030 = ╱42╱B╱ // 0x28a4 @0x30
0x2874…28aa at0031 = ╱44╱D╱ // 0x28a5 @0x31
0x2874…28aa at0032 = ╱41╱A╱ // 0x28a6 @0x32
0x2874…28aa at0033 = ╱54╱T╱ // 0x28a7 @0x33
0x2874…28aa at0034 = ╱ef╱$╱ // 0x28a8 @0x34
0x2874…28aa at0035 = EOL // 0x28a9 @0x35
0x2874…28aa }
0x28aa…28b6 bea4 4250 LET K := 0
0x28aa…28b6 LineComal80 {
0x28aa…28b6 ptr = 0xbea4 // 0x28aa @0x0
0x28aa…28b6 lno = 0x109a // 0x28ac @0x2
0x28aa…28b6 at0004 = ╱86╱ LET ╱ // 0x28ae @0x4
0x28aa…28b6 at0005 = ╱4b╱K╱ // 0x28af @0x5
0x28aa…28b6 at0006 = ╱f0╱ := ╱ // 0x28b0 @0x6
0x28aa…28b6 at0007 = ╱30╱0╱ // 0x28b1 @0x7
0x28aa…28b6 at0008 = ╱f20000╱ // 0x28b2 @0x8
0x28aa…28b6 at000b = EOL // 0x28b5 @0xb
0x28aa…28b6 }
0x28b6…28cd bebb 4260 WHILE K < K_HØJREC - 1 DO
0x28b6…28cd LineComal80 {
0x28b6…28cd ptr = 0xbebb // 0x28b6 @0x0
0x28b6…28cd lno = 0x10a4 // 0x28b8 @0x2
0x28b6…28cd at0004 = ╱934e╱ WHILE ╱ // 0x28ba @0x4
0x28b6…28cd at0006 = ╱4b╱K╱ // 0x28bc @0x6
0x28b6…28cd at0007 = ╱e0╱ < ╱ // 0x28bd @0x7
0x28b6…28cd at0008 = ╱4b╱K╱ // 0x28be @0x8
0x28b6…28cd at0009 = ╱5f╱_╱ // 0x28bf @0x9
0x28b6…28cd at000a = ╱48╱H╱ // 0x28c0 @0xa
0x28b6…28cd at000b = ╱5c╱Ø╱ // 0x28c1 @0xb
0x28b6…28cd at000c = ╱4a╱J╱ // 0x28c2 @0xc
0x28b6…28cd at000d = ╱52╱R╱ // 0x28c3 @0xd
0x28b6…28cd at000e = ╱45╱E╱ // 0x28c4 @0xe
0x28b6…28cd at000f = ╱43╱C╱ // 0x28c5 @0xf
0x28b6…28cd at0010 = ╱e6╱ - ╱ // 0x28c6 @0x10
0x28b6…28cd at0011 = ╱31╱1╱ // 0x28c7 @0x11
0x28b6…28cd at0012 = ╱f20100╱ // 0x28c8 @0x12
0x28b6…28cd at0015 = ╱bb╱ DO ╱ // 0x28cb @0x15
0x28b6…28cd at0016 = EOL // 0x28cc @0x16
0x28b6…28cd }
0x28cd…28f4 bee2 4270 IF (K + 12) MOD 12 = 0 THEN EXEC KASSEHOVED
0x28cd…28f4 LineComal80 {
0x28cd…28f4 ptr = 0xbee2 // 0x28cd @0x0
0x28cd…28f4 lno = 0x10ae // 0x28cf @0x2
0x28cd…28f4 at0004 = ╱8200╱ IF ╱ // 0x28d1 @0x4
0x28cd…28f4 at0006 = ╱ed╱(╱ // 0x28d3 @0x6
0x28cd…28f4 at0007 = ╱4b╱K╱ // 0x28d4 @0x7
0x28cd…28f4 at0008 = ╱e5╱ + ╱ // 0x28d5 @0x8
0x28cd…28f4 at0009 = ╱31╱1╱ // 0x28d6 @0x9
0x28cd…28f4 at000a = ╱32╱2╱ // 0x28d7 @0xa
0x28cd…28f4 at000b = ╱f20c00╱ // 0x28d8 @0xb
0x28cd…28f4 at000e = ╱ee╱)╱ // 0x28db @0xe
0x28cd…28f4 at000f = ╱db╱ MOD ╱ // 0x28dc @0xf
0x28cd…28f4 at0010 = ╱31╱1╱ // 0x28dd @0x10
0x28cd…28f4 at0011 = ╱32╱2╱ // 0x28de @0x11
0x28cd…28f4 at0012 = ╱f20c00╱ // 0x28df @0x12
0x28cd…28f4 at0015 = ╱df╱ = ╱ // 0x28e2 @0x15
0x28cd…28f4 at0016 = ╱30╱0╱ // 0x28e3 @0x16
0x28cd…28f4 at0017 = ╱f20000╱ // 0x28e4 @0x17
0x28cd…28f4 at001a = ╱b5╱ THEN ╱ // 0x28e7 @0x1a
0x28cd…28f4 at001b = ╱9d╱ EXEC ╱ // 0x28e8 @0x1b
0x28cd…28f4 at001c = ╱4b╱K╱ // 0x28e9 @0x1c
0x28cd…28f4 at001d = ╱41╱A╱ // 0x28ea @0x1d
0x28cd…28f4 at001e = ╱53╱S╱ // 0x28eb @0x1e
0x28cd…28f4 at001f = ╱53╱S╱ // 0x28ec @0x1f
0x28cd…28f4 at0020 = ╱45╱E╱ // 0x28ed @0x20
0x28cd…28f4 at0021 = ╱48╱H╱ // 0x28ee @0x21
0x28cd…28f4 at0022 = ╱4f╱O╱ // 0x28ef @0x22
0x28cd…28f4 at0023 = ╱56╱V╱ // 0x28f0 @0x23
0x28cd…28f4 at0024 = ╱45╱E╱ // 0x28f1 @0x24
0x28cd…28f4 at0025 = ╱44╱D╱ // 0x28f2 @0x25
0x28cd…28f4 at0026 = EOL // 0x28f3 @0x26
0x28cd…28f4 }
0x28f4…2902 bef0 4280 LET K := K + 1
0x28f4…2902 LineComal80 {
0x28f4…2902 ptr = 0xbef0 // 0x28f4 @0x0
0x28f4…2902 lno = 0x10b8 // 0x28f6 @0x2
0x28f4…2902 at0004 = ╱86╱ LET ╱ // 0x28f8 @0x4
0x28f4…2902 at0005 = ╱4b╱K╱ // 0x28f9 @0x5
0x28f4…2902 at0006 = ╱f0╱ := ╱ // 0x28fa @0x6
0x28f4…2902 at0007 = ╱4b╱K╱ // 0x28fb @0x7
0x28f4…2902 at0008 = ╱e5╱ + ╱ // 0x28fc @0x8
0x28f4…2902 at0009 = ╱31╱1╱ // 0x28fd @0x9
0x28f4…2902 at000a = ╱f20100╱ // 0x28fe @0xa
0x28f4…2902 at000d = EOL // 0x2901 @0xd
0x28f4…2902 }
0x2902…2915 bf03 4290 EXEC LÆS_K_POST(K)
0x2902…2915 LineComal80 {
0x2902…2915 ptr = 0xbf03 // 0x2902 @0x0
0x2902…2915 lno = 0x10c2 // 0x2904 @0x2
0x2902…2915 at0004 = ╱9d╱ EXEC ╱ // 0x2906 @0x4
0x2902…2915 at0005 = ╱4c╱L╱ // 0x2907 @0x5
0x2902…2915 at0006 = ╱5b╱Æ╱ // 0x2908 @0x6
0x2902…2915 at0007 = ╱53╱S╱ // 0x2909 @0x7
0x2902…2915 at0008 = ╱5f╱_╱ // 0x290a @0x8
0x2902…2915 at0009 = ╱4b╱K╱ // 0x290b @0x9
0x2902…2915 at000a = ╱5f╱_╱ // 0x290c @0xa
0x2902…2915 at000b = ╱50╱P╱ // 0x290d @0xb
0x2902…2915 at000c = ╱4f╱O╱ // 0x290e @0xc
0x2902…2915 at000d = ╱53╱S╱ // 0x290f @0xd
0x2902…2915 at000e = ╱54╱T╱ // 0x2910 @0xe
0x2902…2915 at000f = ╱ed╱(╱ // 0x2911 @0xf
0x2902…2915 at0010 = ╱4b╱K╱ // 0x2912 @0x10
0x2902…2915 at0011 = ╱ee╱)╱ // 0x2913 @0x11
0x2902…2915 at0012 = EOL // 0x2914 @0x12
0x2902…2915 }
0x2915…2927 bf15 4300 EXEC SKRIV_LIN(K)
0x2915…2927 LineComal80 {
0x2915…2927 ptr = 0xbf15 // 0x2915 @0x0
0x2915…2927 lno = 0x10cc // 0x2917 @0x2
0x2915…2927 at0004 = ╱9d╱ EXEC ╱ // 0x2919 @0x4
0x2915…2927 at0005 = ╱53╱S╱ // 0x291a @0x5
0x2915…2927 at0006 = ╱4b╱K╱ // 0x291b @0x6
0x2915…2927 at0007 = ╱52╱R╱ // 0x291c @0x7
0x2915…2927 at0008 = ╱49╱I╱ // 0x291d @0x8
0x2915…2927 at0009 = ╱56╱V╱ // 0x291e @0x9
0x2915…2927 at000a = ╱5f╱_╱ // 0x291f @0xa
0x2915…2927 at000b = ╱4c╱L╱ // 0x2920 @0xb
0x2915…2927 at000c = ╱49╱I╱ // 0x2921 @0xc
0x2915…2927 at000d = ╱4e╱N╱ // 0x2922 @0xd
0x2915…2927 at000e = ╱ed╱(╱ // 0x2923 @0xe
0x2915…2927 at000f = ╱4b╱K╱ // 0x2924 @0xf
0x2915…2927 at0010 = ╱ee╱)╱ // 0x2925 @0x10
0x2915…2927 at0011 = EOL // 0x2926 @0x11
0x2915…2927 }
0x2927…2956 bf44 4310 IF K MOD 12 = 0 OR K = K_HØJREC - 1 THEN EXEC RET_LINIER
0x2927…2956 LineComal80 {
0x2927…2956 ptr = 0xbf44 // 0x2927 @0x0
0x2927…2956 lno = 0x10d6 // 0x2929 @0x2
0x2927…2956 at0004 = ╱8200╱ IF ╱ // 0x292b @0x4
0x2927…2956 at0006 = ╱4b╱K╱ // 0x292d @0x6
0x2927…2956 at0007 = ╱db╱ MOD ╱ // 0x292e @0x7
0x2927…2956 at0008 = ╱31╱1╱ // 0x292f @0x8
0x2927…2956 at0009 = ╱32╱2╱ // 0x2930 @0x9
0x2927…2956 at000a = ╱f20c00╱ // 0x2931 @0xa
0x2927…2956 at000d = ╱df╱ = ╱ // 0x2934 @0xd
0x2927…2956 at000e = ╱30╱0╱ // 0x2935 @0xe
0x2927…2956 at000f = ╱f20000╱ // 0x2936 @0xf
0x2927…2956 at0012 = ╱d8╱ OR ╱ // 0x2939 @0x12
0x2927…2956 at0013 = ╱4b╱K╱ // 0x293a @0x13
0x2927…2956 at0014 = ╱df╱ = ╱ // 0x293b @0x14
0x2927…2956 at0015 = ╱4b╱K╱ // 0x293c @0x15
0x2927…2956 at0016 = ╱5f╱_╱ // 0x293d @0x16
0x2927…2956 at0017 = ╱48╱H╱ // 0x293e @0x17
0x2927…2956 at0018 = ╱5c╱Ø╱ // 0x293f @0x18
0x2927…2956 at0019 = ╱4a╱J╱ // 0x2940 @0x19
0x2927…2956 at001a = ╱52╱R╱ // 0x2941 @0x1a
0x2927…2956 at001b = ╱45╱E╱ // 0x2942 @0x1b
0x2927…2956 at001c = ╱43╱C╱ // 0x2943 @0x1c
0x2927…2956 at001d = ╱e6╱ - ╱ // 0x2944 @0x1d
0x2927…2956 at001e = ╱31╱1╱ // 0x2945 @0x1e
0x2927…2956 at001f = ╱f20100╱ // 0x2946 @0x1f
0x2927…2956 at0022 = ╱b5╱ THEN ╱ // 0x2949 @0x22
0x2927…2956 at0023 = ╱9d╱ EXEC ╱ // 0x294a @0x23
0x2927…2956 at0024 = ╱52╱R╱ // 0x294b @0x24
0x2927…2956 at0025 = ╱45╱E╱ // 0x294c @0x25
0x2927…2956 at0026 = ╱54╱T╱ // 0x294d @0x26
0x2927…2956 at0027 = ╱5f╱_╱ // 0x294e @0x27
0x2927…2956 at0028 = ╱4c╱L╱ // 0x294f @0x28
0x2927…2956 at0029 = ╱49╱I╱ // 0x2950 @0x29
0x2927…2956 at002a = ╱4e╱N╱ // 0x2951 @0x2a
0x2927…2956 at002b = ╱49╱I╱ // 0x2952 @0x2b
0x2927…2956 at002c = ╱45╱E╱ // 0x2953 @0x2c
0x2927…2956 at002d = ╱52╱R╱ // 0x2954 @0x2d
0x2927…2956 at002e = EOL // 0x2955 @0x2e
0x2927…2956 }
0x2956…295c bf4a 4320 ENDWHILE
0x2956…295c LineComal80 {
0x2956…295c ptr = 0xbf4a // 0x2956 @0x0
0x2956…295c lno = 0x10e0 // 0x2958 @0x2
0x2956…295c at0004 = ╱94╱ ENDWHILE ╱ // 0x295a @0x4
0x2956…295c at0005 = EOL // 0x295b @0x5
0x2956…295c }
0x295c…296c bf5a 4330 ENDPROC RET_POSTER
0x295c…296c LineComal80 {
0x295c…296c ptr = 0xbf5a // 0x295c @0x0
0x295c…296c lno = 0x10ea // 0x295e @0x2
0x295c…296c at0004 = ╱9f╱ ENDPROC ╱ // 0x2960 @0x4
0x295c…296c at0005 = ╱52╱R╱ // 0x2961 @0x5
0x295c…296c at0006 = ╱45╱E╱ // 0x2962 @0x6
0x295c…296c at0007 = ╱54╱T╱ // 0x2963 @0x7
0x295c…296c at0008 = ╱5f╱_╱ // 0x2964 @0x8
0x295c…296c at0009 = ╱50╱P╱ // 0x2965 @0x9
0x295c…296c at000a = ╱4f╱O╱ // 0x2966 @0xa
0x295c…296c at000b = ╱53╱S╱ // 0x2967 @0xb
0x295c…296c at000c = ╱54╱T╱ // 0x2968 @0xc
0x295c…296c at000d = ╱45╱E╱ // 0x2969 @0xd
0x295c…296c at000e = ╱52╱R╱ // 0x296a @0xe
0x295c…296c at000f = EOL // 0x296b @0xf
0x295c…296c }
0x296c…297d bf6b 4340 PROC SIDE_SKIFT
0x296c…297d LineComal80 {
0x296c…297d ptr = 0xbf6b // 0x296c @0x0
0x296c…297d lno = 0x10f4 // 0x296e @0x2
0x296c…297d at0004 = ╱9e4f╱ PROC ╱ // 0x2970 @0x4
0x296c…297d at0006 = ╱53╱S╱ // 0x2972 @0x6
0x296c…297d at0007 = ╱49╱I╱ // 0x2973 @0x7
0x296c…297d at0008 = ╱44╱D╱ // 0x2974 @0x8
0x296c…297d at0009 = ╱45╱E╱ // 0x2975 @0x9
0x296c…297d at000a = ╱5f╱_╱ // 0x2976 @0xa
0x296c…297d at000b = ╱53╱S╱ // 0x2977 @0xb
0x296c…297d at000c = ╱4b╱K╱ // 0x2978 @0xc
0x296c…297d at000d = ╱49╱I╱ // 0x2979 @0xd
0x296c…297d at000e = ╱46╱F╱ // 0x297a @0xe
0x296c…297d at000f = ╱54╱T╱ // 0x297b @0xf
0x296c…297d at0010 = EOL // 0x297c @0x10
0x296c…297d }
0x297d…2995 bf83 4350 FOR I := LIN_T TO AX_LIN DO PRINT
0x297d…2995 LineComal80 {
0x297d…2995 ptr = 0xbf83 // 0x297d @0x0
0x297d…2995 lno = 0x10fe // 0x297f @0x2
0x297d…2995 at0004 = ╱b400╱ FOR ╱ // 0x2981 @0x4
0x297d…2995 at0006 = ╱49╱I╱ // 0x2983 @0x6
0x297d…2995 at0007 = ╱f0╱ := ╱ // 0x2984 @0x7
0x297d…2995 at0008 = ╱4c╱L╱ // 0x2985 @0x8
0x297d…2995 at0009 = ╱49╱I╱ // 0x2986 @0x9
0x297d…2995 at000a = ╱4e╱N╱ // 0x2987 @0xa
0x297d…2995 at000b = ╱5f╱_╱ // 0x2988 @0xb
0x297d…2995 at000c = ╱54╱T╱ // 0x2989 @0xc
0x297d…2995 at000d = ╱b74d╱ TO ╱ // 0x298a @0xd
0x297d…2995 at000f = ╱41╱A╱ // 0x298c @0xf
0x297d…2995 at0010 = ╱58╱X╱ // 0x298d @0x10
0x297d…2995 at0011 = ╱5f╱_╱ // 0x298e @0x11
0x297d…2995 at0012 = ╱4c╱L╱ // 0x298f @0x12
0x297d…2995 at0013 = ╱49╱I╱ // 0x2990 @0x13
0x297d…2995 at0014 = ╱4e╱N╱ // 0x2991 @0x14
0x297d…2995 at0015 = ╱bb╱ DO ╱ // 0x2992 @0x15
0x297d…2995 at0016 = ╱92╱ PRINT ╱ // 0x2993 @0x16
0x297d…2995 at0017 = EOL // 0x2994 @0x17
0x297d…2995 }
0x2995…29a5 d524 4360 LET LIN_T := 9
0x2995…29a5 LineComal80 {
0x2995…29a5 ptr = 0xd524 // 0x2995 @0x0
0x2995…29a5 lno = 0x1108 // 0x2997 @0x2
0x2995…29a5 at0004 = ╱86╱ LET ╱ // 0x2999 @0x4
0x2995…29a5 at0005 = ╱4c╱L╱ // 0x299a @0x5
0x2995…29a5 at0006 = ╱49╱I╱ // 0x299b @0x6
0x2995…29a5 at0007 = ╱4e╱N╱ // 0x299c @0x7
0x2995…29a5 at0008 = ╱5f╱_╱ // 0x299d @0x8
0x2995…29a5 at0009 = ╱54╱T╱ // 0x299e @0x9
0x2995…29a5 at000a = ╱f0╱ := ╱ // 0x299f @0xa
0x2995…29a5 at000b = ╱39╱9╱ // 0x29a0 @0xb
0x2995…29a5 at000c = ╱f20900╱ // 0x29a1 @0xc
0x2995…29a5 at000f = EOL // 0x29a4 @0xf
0x2995…29a5 }
0x29a5…29ab bf99 4430 PRINT
0x29a5…29ab LineComal80 {
0x29a5…29ab ptr = 0xbf99 // 0x29a5 @0x0
0x29a5…29ab lno = 0x114e // 0x29a7 @0x2
0x29a5…29ab at0004 = ╱92╱ PRINT ╱ // 0x29a9 @0x4
0x29a5…29ab at0005 = EOL // 0x29aa @0x5
0x29a5…29ab }
0x29ab…29c9 bfb7 4380 PRINT "*** " ; SYST_NAVN$ ; " ***"
0x29ab…29c9 LineComal80 {
0x29ab…29c9 ptr = 0xbfb7 // 0x29ab @0x0
0x29ab…29c9 lno = 0x111c // 0x29ad @0x2
0x29ab…29c9 at0004 = ╱92╱ PRINT ╱ // 0x29af @0x4
0x29ab…29c9 at0005 = ╱22╱"╱ // 0x29b0 @0x5
0x29ab…29c9 at0006 = ╱2a╱*╱ // 0x29b1 @0x6
0x29ab…29c9 at0007 = ╱2a╱*╱ // 0x29b2 @0x7
0x29ab…29c9 at0008 = ╱2a╱*╱ // 0x29b3 @0x8
0x29ab…29c9 at0009 = ╱20╱…╱ // 0x29b4 @0x9
0x29ab…29c9 at000a = ╱22╱"╱ // 0x29b5 @0xa
0x29ab…29c9 at000b = ╱ea╱ ; ╱ // 0x29b6 @0xb
0x29ab…29c9 at000c = ╱53╱S╱ // 0x29b7 @0xc
0x29ab…29c9 at000d = ╱59╱Y╱ // 0x29b8 @0xd
0x29ab…29c9 at000e = ╱53╱S╱ // 0x29b9 @0xe
0x29ab…29c9 at000f = ╱54╱T╱ // 0x29ba @0xf
0x29ab…29c9 at0010 = ╱5f╱_╱ // 0x29bb @0x10
0x29ab…29c9 at0011 = ╱4e╱N╱ // 0x29bc @0x11
0x29ab…29c9 at0012 = ╱41╱A╱ // 0x29bd @0x12
0x29ab…29c9 at0013 = ╱56╱V╱ // 0x29be @0x13
0x29ab…29c9 at0014 = ╱4e╱N╱ // 0x29bf @0x14
0x29ab…29c9 at0015 = ╱ef╱$╱ // 0x29c0 @0x15
0x29ab…29c9 at0016 = ╱ea╱ ; ╱ // 0x29c1 @0x16
0x29ab…29c9 at0017 = ╱22╱"╱ // 0x29c2 @0x17
0x29ab…29c9 at0018 = ╱20╱…╱ // 0x29c3 @0x18
0x29ab…29c9 at0019 = ╱2a╱*╱ // 0x29c4 @0x19
0x29ab…29c9 at001a = ╱2a╱*╱ // 0x29c5 @0x1a
0x29ab…29c9 at001b = ╱2a╱*╱ // 0x29c6 @0x1b
0x29ab…29c9 at001c = ╱22╱"╱ // 0x29c7 @0x1c
0x29ab…29c9 at001d = EOL // 0x29c8 @0x1d
0x29ab…29c9 }
0x29c9…29cf bfbd 4390 PRINT
0x29c9…29cf LineComal80 {
0x29c9…29cf ptr = 0xbfbd // 0x29c9 @0x0
0x29c9…29cf lno = 0x1126 // 0x29cb @0x2
0x29c9…29cf at0004 = ╱92╱ PRINT ╱ // 0x29cd @0x4
0x29c9…29cf at0005 = EOL // 0x29ce @0x5
0x29c9…29cf }
0x29cf…29f9 (139,) bfe7 4400 PRINT "<S>Firmanavn: " ; FIRMANAVN$ ; TAB(42)
0x29cf…29f9 LineComal80 {
0x29cf…29f9 ptr = 0xbfe7 // 0x29cf @0x0
0x29cf…29f9 lno = 0x1130 // 0x29d1 @0x2
0x29cf…29f9 at0004 = ╱92╱ PRINT ╱ // 0x29d3 @0x4
0x29cf…29f9 at0005 = ╱22╱"╱ // 0x29d4 @0x5
0x29cf…29f9 at0006 = ╱3c╱<╱ // 0x29d5 @0x6
0x29cf…29f9 at0007 = ╱53╱S╱ // 0x29d6 @0x7
0x29cf…29f9 at0008 = ╱3e╱>╱ // 0x29d7 @0x8
0x29cf…29f9 at0009 = ╱46╱F╱ // 0x29d8 @0x9
0x29cf…29f9 at000a = ╱69╱i╱ // 0x29d9 @0xa
0x29cf…29f9 at000b = ╱72╱r╱ // 0x29da @0xb
0x29cf…29f9 at000c = ╱6d╱m╱ // 0x29db @0xc
0x29cf…29f9 at000d = ╱61╱a╱ // 0x29dc @0xd
0x29cf…29f9 at000e = ╱6e╱n╱ // 0x29dd @0xe
0x29cf…29f9 at000f = ╱61╱a╱ // 0x29de @0xf
0x29cf…29f9 at0010 = ╱76╱v╱ // 0x29df @0x10
0x29cf…29f9 at0011 = ╱6e╱n╱ // 0x29e0 @0x11
0x29cf…29f9 at0012 = ╱3a╱:╱ // 0x29e1 @0x12
0x29cf…29f9 at0013 = ╱20╱…╱ // 0x29e2 @0x13
0x29cf…29f9 at0014 = ╱22╱"╱ // 0x29e3 @0x14
0x29cf…29f9 at0015 = ╱ea╱ ; ╱ // 0x29e4 @0x15
0x29cf…29f9 at0016 = ╱46╱F╱ // 0x29e5 @0x16
0x29cf…29f9 at0017 = ╱49╱I╱ // 0x29e6 @0x17
0x29cf…29f9 at0018 = ╱52╱R╱ // 0x29e7 @0x18
0x29cf…29f9 at0019 = ╱4d╱M╱ // 0x29e8 @0x19
0x29cf…29f9 at001a = ╱41╱A╱ // 0x29e9 @0x1a
0x29cf…29f9 at001b = ╱4e╱N╱ // 0x29ea @0x1b
0x29cf…29f9 at001c = ╱41╱A╱ // 0x29eb @0x1c
0x29cf…29f9 at001d = ╱56╱V╱ // 0x29ec @0x1d
0x29cf…29f9 at001e = ╱4e╱N╱ // 0x29ed @0x1e
0x29cf…29f9 at001f = ╱ef╱$╱ // 0x29ee @0x1f
0x29cf…29f9 at0020 = ╱ea╱ ; ╱ // 0x29ef @0x20
0x29cf…29f9 at0021 = ╱d2╱TAB╱ // 0x29f0 @0x21
0x29cf…29f9 at0022 = ╱ed╱(╱ // 0x29f1 @0x22
0x29cf…29f9 at0023 = ╱34╱4╱ // 0x29f2 @0x23
0x29cf…29f9 at0024 = ╱32╱2╱ // 0x29f3 @0x24
0x29cf…29f9 at0025 = ╱f22a00╱ // 0x29f4 @0x25
0x29cf…29f9 at0028 = ╱ee╱)╱ // 0x29f7 @0x28
0x29cf…29f9 at0029 = EOL // 0x29f8 @0x29
0x29cf…29f9 }
0x29f9…2a43 c031 4410 PRINT "** KASSEKLADDE PR. " ; K_BDAT$(1 : 2) ; "." ; K_BDAT$(3 : 2) ; "." ;
0x29f9…2a43 LineComal80 {
0x29f9…2a43 ptr = 0xc031 // 0x29f9 @0x0
0x29f9…2a43 lno = 0x113a // 0x29fb @0x2
0x29f9…2a43 at0004 = ╱92╱ PRINT ╱ // 0x29fd @0x4
0x29f9…2a43 at0005 = ╱22╱"╱ // 0x29fe @0x5
0x29f9…2a43 at0006 = ╱2a╱*╱ // 0x29ff @0x6
0x29f9…2a43 at0007 = ╱2a╱*╱ // 0x2a00 @0x7
0x29f9…2a43 at0008 = ╱20╱…╱ // 0x2a01 @0x8
0x29f9…2a43 at0009 = ╱4b╱K╱ // 0x2a02 @0x9
0x29f9…2a43 at000a = ╱41╱A╱ // 0x2a03 @0xa
0x29f9…2a43 at000b = ╱53╱S╱ // 0x2a04 @0xb
0x29f9…2a43 at000c = ╱53╱S╱ // 0x2a05 @0xc
0x29f9…2a43 at000d = ╱45╱E╱ // 0x2a06 @0xd
0x29f9…2a43 at000e = ╱4b╱K╱ // 0x2a07 @0xe
0x29f9…2a43 at000f = ╱4c╱L╱ // 0x2a08 @0xf
0x29f9…2a43 at0010 = ╱41╱A╱ // 0x2a09 @0x10
0x29f9…2a43 at0011 = ╱44╱D╱ // 0x2a0a @0x11
0x29f9…2a43 at0012 = ╱44╱D╱ // 0x2a0b @0x12
0x29f9…2a43 at0013 = ╱45╱E╱ // 0x2a0c @0x13
0x29f9…2a43 at0014 = ╱20╱…╱ // 0x2a0d @0x14
0x29f9…2a43 at0015 = ╱50╱P╱ // 0x2a0e @0x15
0x29f9…2a43 at0016 = ╱52╱R╱ // 0x2a0f @0x16
0x29f9…2a43 at0017 = ╱2e╱.╱ // 0x2a10 @0x17
0x29f9…2a43 at0018 = ╱20╱…╱ // 0x2a11 @0x18
0x29f9…2a43 at0019 = ╱22╱"╱ // 0x2a12 @0x19
0x29f9…2a43 at001a = ╱ea╱ ; ╱ // 0x2a13 @0x1a
0x29f9…2a43 at001b = ╱4b╱K╱ // 0x2a14 @0x1b
0x29f9…2a43 at001c = ╱5f╱_╱ // 0x2a15 @0x1c
0x29f9…2a43 at001d = ╱42╱B╱ // 0x2a16 @0x1d
0x29f9…2a43 at001e = ╱44╱D╱ // 0x2a17 @0x1e
0x29f9…2a43 at001f = ╱41╱A╱ // 0x2a18 @0x1f
0x29f9…2a43 at0020 = ╱54╱T╱ // 0x2a19 @0x20
0x29f9…2a43 at0021 = ╱ef╱$╱ // 0x2a1a @0x21
0x29f9…2a43 at0022 = ╱ed╱(╱ // 0x2a1b @0x22
0x29f9…2a43 at0023 = ╱31╱1╱ // 0x2a1c @0x23
0x29f9…2a43 at0024 = ╱f20100╱ // 0x2a1d @0x24
0x29f9…2a43 at0027 = ╱f1╱ : ╱ // 0x2a20 @0x27
0x29f9…2a43 at0028 = ╱32╱2╱ // 0x2a21 @0x28
0x29f9…2a43 at0029 = ╱f20200╱ // 0x2a22 @0x29
0x29f9…2a43 at002c = ╱ee╱)╱ // 0x2a25 @0x2c
0x29f9…2a43 at002d = ╱ea╱ ; ╱ // 0x2a26 @0x2d
0x29f9…2a43 at002e = ╱22╱"╱ // 0x2a27 @0x2e
0x29f9…2a43 at002f = ╱2e╱.╱ // 0x2a28 @0x2f
0x29f9…2a43 at0030 = ╱22╱"╱ // 0x2a29 @0x30
0x29f9…2a43 at0031 = ╱ea╱ ; ╱ // 0x2a2a @0x31
0x29f9…2a43 at0032 = ╱4b╱K╱ // 0x2a2b @0x32
0x29f9…2a43 at0033 = ╱5f╱_╱ // 0x2a2c @0x33
0x29f9…2a43 at0034 = ╱42╱B╱ // 0x2a2d @0x34
0x29f9…2a43 at0035 = ╱44╱D╱ // 0x2a2e @0x35
0x29f9…2a43 at0036 = ╱41╱A╱ // 0x2a2f @0x36
0x29f9…2a43 at0037 = ╱54╱T╱ // 0x2a30 @0x37
0x29f9…2a43 at0038 = ╱ef╱$╱ // 0x2a31 @0x38
0x29f9…2a43 at0039 = ╱ed╱(╱ // 0x2a32 @0x39
0x29f9…2a43 at003a = ╱33╱3╱ // 0x2a33 @0x3a
0x29f9…2a43 at003b = ╱f20300╱ // 0x2a34 @0x3b
0x29f9…2a43 at003e = ╱f1╱ : ╱ // 0x2a37 @0x3e
0x29f9…2a43 at003f = ╱32╱2╱ // 0x2a38 @0x3f
0x29f9…2a43 at0040 = ╱f20200╱ // 0x2a39 @0x40
0x29f9…2a43 at0043 = ╱ee╱)╱ // 0x2a3c @0x43
0x29f9…2a43 at0044 = ╱ea╱ ; ╱ // 0x2a3d @0x44
0x29f9…2a43 at0045 = ╱22╱"╱ // 0x2a3e @0x45
0x29f9…2a43 at0046 = ╱2e╱.╱ // 0x2a3f @0x46
0x29f9…2a43 at0047 = ╱22╱"╱ // 0x2a40 @0x47
0x29f9…2a43 at0048 = ╱ea╱ ; ╱ // 0x2a41 @0x48
0x29f9…2a43 at0049 = EOL // 0x2a42 @0x49
0x29f9…2a43 }
0x2a43…2a90 c07e 4420 PRINT K_BDAT$(5 : 2) ; " ** ** UDSKREVET PR. " ; SYST_DAT$(1 : 2) ; "." ;
0x2a43…2a90 LineComal80 {
0x2a43…2a90 ptr = 0xc07e // 0x2a43 @0x0
0x2a43…2a90 lno = 0x1144 // 0x2a45 @0x2
0x2a43…2a90 at0004 = ╱92╱ PRINT ╱ // 0x2a47 @0x4
0x2a43…2a90 at0005 = ╱4b╱K╱ // 0x2a48 @0x5
0x2a43…2a90 at0006 = ╱5f╱_╱ // 0x2a49 @0x6
0x2a43…2a90 at0007 = ╱42╱B╱ // 0x2a4a @0x7
0x2a43…2a90 at0008 = ╱44╱D╱ // 0x2a4b @0x8
0x2a43…2a90 at0009 = ╱41╱A╱ // 0x2a4c @0x9
0x2a43…2a90 at000a = ╱54╱T╱ // 0x2a4d @0xa
0x2a43…2a90 at000b = ╱ef╱$╱ // 0x2a4e @0xb
0x2a43…2a90 at000c = ╱ed╱(╱ // 0x2a4f @0xc
0x2a43…2a90 at000d = ╱35╱5╱ // 0x2a50 @0xd
0x2a43…2a90 at000e = ╱f20500╱ // 0x2a51 @0xe
0x2a43…2a90 at0011 = ╱f1╱ : ╱ // 0x2a54 @0x11
0x2a43…2a90 at0012 = ╱32╱2╱ // 0x2a55 @0x12
0x2a43…2a90 at0013 = ╱f20200╱ // 0x2a56 @0x13
0x2a43…2a90 at0016 = ╱ee╱)╱ // 0x2a59 @0x16
0x2a43…2a90 at0017 = ╱ea╱ ; ╱ // 0x2a5a @0x17
0x2a43…2a90 at0018 = ╱22╱"╱ // 0x2a5b @0x18
0x2a43…2a90 at0019 = ╱20╱…╱ // 0x2a5c @0x19
0x2a43…2a90 at001a = ╱2a╱*╱ // 0x2a5d @0x1a
0x2a43…2a90 at001b = ╱2a╱*╱ // 0x2a5e @0x1b
0x2a43…2a90 at001c = ╱20╱…╱ // 0x2a5f @0x1c
0x2a43…2a90 at001d = ╱20╱…╱ // 0x2a60 @0x1d
0x2a43…2a90 at001e = ╱20╱…╱ // 0x2a61 @0x1e
0x2a43…2a90 at001f = ╱20╱…╱ // 0x2a62 @0x1f
0x2a43…2a90 at0020 = ╱2a╱*╱ // 0x2a63 @0x20
0x2a43…2a90 at0021 = ╱2a╱*╱ // 0x2a64 @0x21
0x2a43…2a90 at0022 = ╱20╱…╱ // 0x2a65 @0x22
0x2a43…2a90 at0023 = ╱55╱U╱ // 0x2a66 @0x23
0x2a43…2a90 at0024 = ╱44╱D╱ // 0x2a67 @0x24
0x2a43…2a90 at0025 = ╱53╱S╱ // 0x2a68 @0x25
0x2a43…2a90 at0026 = ╱4b╱K╱ // 0x2a69 @0x26
0x2a43…2a90 at0027 = ╱52╱R╱ // 0x2a6a @0x27
0x2a43…2a90 at0028 = ╱45╱E╱ // 0x2a6b @0x28
0x2a43…2a90 at0029 = ╱56╱V╱ // 0x2a6c @0x29
0x2a43…2a90 at002a = ╱45╱E╱ // 0x2a6d @0x2a
0x2a43…2a90 at002b = ╱54╱T╱ // 0x2a6e @0x2b
0x2a43…2a90 at002c = ╱20╱…╱ // 0x2a6f @0x2c
0x2a43…2a90 at002d = ╱50╱P╱ // 0x2a70 @0x2d
0x2a43…2a90 at002e = ╱52╱R╱ // 0x2a71 @0x2e
0x2a43…2a90 at002f = ╱2e╱.╱ // 0x2a72 @0x2f
0x2a43…2a90 at0030 = ╱20╱…╱ // 0x2a73 @0x30
0x2a43…2a90 at0031 = ╱22╱"╱ // 0x2a74 @0x31
0x2a43…2a90 at0032 = ╱ea╱ ; ╱ // 0x2a75 @0x32
0x2a43…2a90 at0033 = ╱53╱S╱ // 0x2a76 @0x33
0x2a43…2a90 at0034 = ╱59╱Y╱ // 0x2a77 @0x34
0x2a43…2a90 at0035 = ╱53╱S╱ // 0x2a78 @0x35
0x2a43…2a90 at0036 = ╱54╱T╱ // 0x2a79 @0x36
0x2a43…2a90 at0037 = ╱5f╱_╱ // 0x2a7a @0x37
0x2a43…2a90 at0038 = ╱44╱D╱ // 0x2a7b @0x38
0x2a43…2a90 at0039 = ╱41╱A╱ // 0x2a7c @0x39
0x2a43…2a90 at003a = ╱54╱T╱ // 0x2a7d @0x3a
0x2a43…2a90 at003b = ╱ef╱$╱ // 0x2a7e @0x3b
0x2a43…2a90 at003c = ╱ed╱(╱ // 0x2a7f @0x3c
0x2a43…2a90 at003d = ╱31╱1╱ // 0x2a80 @0x3d
0x2a43…2a90 at003e = ╱f20100╱ // 0x2a81 @0x3e
0x2a43…2a90 at0041 = ╱f1╱ : ╱ // 0x2a84 @0x41
0x2a43…2a90 at0042 = ╱32╱2╱ // 0x2a85 @0x42
0x2a43…2a90 at0043 = ╱f20200╱ // 0x2a86 @0x43
0x2a43…2a90 at0046 = ╱ee╱)╱ // 0x2a89 @0x46
0x2a43…2a90 at0047 = ╱ea╱ ; ╱ // 0x2a8a @0x47
0x2a43…2a90 at0048 = ╱22╱"╱ // 0x2a8b @0x48
0x2a43…2a90 at0049 = ╱2e╱.╱ // 0x2a8c @0x49
0x2a43…2a90 at004a = ╱22╱"╱ // 0x2a8d @0x4a
0x2a43…2a90 at004b = ╱ea╱ ; ╱ // 0x2a8e @0x4b
0x2a43…2a90 at004c = EOL // 0x2a8f @0x4c
0x2a43…2a90 }
0x2a90…2aca c0b8 4430 PRINT SYST_DAT$(3 : 2) ; "." ; SYST_DAT$(5 : 2) ; " ** "
0x2a90…2aca LineComal80 {
0x2a90…2aca ptr = 0xc0b8 // 0x2a90 @0x0
0x2a90…2aca lno = 0x114e // 0x2a92 @0x2
0x2a90…2aca at0004 = ╱92╱ PRINT ╱ // 0x2a94 @0x4
0x2a90…2aca at0005 = ╱53╱S╱ // 0x2a95 @0x5
0x2a90…2aca at0006 = ╱59╱Y╱ // 0x2a96 @0x6
0x2a90…2aca at0007 = ╱53╱S╱ // 0x2a97 @0x7
0x2a90…2aca at0008 = ╱54╱T╱ // 0x2a98 @0x8
0x2a90…2aca at0009 = ╱5f╱_╱ // 0x2a99 @0x9
0x2a90…2aca at000a = ╱44╱D╱ // 0x2a9a @0xa
0x2a90…2aca at000b = ╱41╱A╱ // 0x2a9b @0xb
0x2a90…2aca at000c = ╱54╱T╱ // 0x2a9c @0xc
0x2a90…2aca at000d = ╱ef╱$╱ // 0x2a9d @0xd
0x2a90…2aca at000e = ╱ed╱(╱ // 0x2a9e @0xe
0x2a90…2aca at000f = ╱33╱3╱ // 0x2a9f @0xf
0x2a90…2aca at0010 = ╱f20300╱ // 0x2aa0 @0x10
0x2a90…2aca at0013 = ╱f1╱ : ╱ // 0x2aa3 @0x13
0x2a90…2aca at0014 = ╱32╱2╱ // 0x2aa4 @0x14
0x2a90…2aca at0015 = ╱f20200╱ // 0x2aa5 @0x15
0x2a90…2aca at0018 = ╱ee╱)╱ // 0x2aa8 @0x18
0x2a90…2aca at0019 = ╱ea╱ ; ╱ // 0x2aa9 @0x19
0x2a90…2aca at001a = ╱22╱"╱ // 0x2aaa @0x1a
0x2a90…2aca at001b = ╱2e╱.╱ // 0x2aab @0x1b
0x2a90…2aca at001c = ╱22╱"╱ // 0x2aac @0x1c
0x2a90…2aca at001d = ╱ea╱ ; ╱ // 0x2aad @0x1d
0x2a90…2aca at001e = ╱53╱S╱ // 0x2aae @0x1e
0x2a90…2aca at001f = ╱59╱Y╱ // 0x2aaf @0x1f
0x2a90…2aca at0020 = ╱53╱S╱ // 0x2ab0 @0x20
0x2a90…2aca at0021 = ╱54╱T╱ // 0x2ab1 @0x21
0x2a90…2aca at0022 = ╱5f╱_╱ // 0x2ab2 @0x22
0x2a90…2aca at0023 = ╱44╱D╱ // 0x2ab3 @0x23
0x2a90…2aca at0024 = ╱41╱A╱ // 0x2ab4 @0x24
0x2a90…2aca at0025 = ╱54╱T╱ // 0x2ab5 @0x25
0x2a90…2aca at0026 = ╱ef╱$╱ // 0x2ab6 @0x26
0x2a90…2aca at0027 = ╱ed╱(╱ // 0x2ab7 @0x27
0x2a90…2aca at0028 = ╱35╱5╱ // 0x2ab8 @0x28
0x2a90…2aca at0029 = ╱f20500╱ // 0x2ab9 @0x29
0x2a90…2aca at002c = ╱f1╱ : ╱ // 0x2abc @0x2c
0x2a90…2aca at002d = ╱32╱2╱ // 0x2abd @0x2d
0x2a90…2aca at002e = ╱f20200╱ // 0x2abe @0x2e
0x2a90…2aca at0031 = ╱ee╱)╱ // 0x2ac1 @0x31
0x2a90…2aca at0032 = ╱ea╱ ; ╱ // 0x2ac2 @0x32
0x2a90…2aca at0033 = ╱22╱"╱ // 0x2ac3 @0x33
0x2a90…2aca at0034 = ╱20╱…╱ // 0x2ac4 @0x34
0x2a90…2aca at0035 = ╱2a╱*╱ // 0x2ac5 @0x35
0x2a90…2aca at0036 = ╱2a╱*╱ // 0x2ac6 @0x36
0x2a90…2aca at0037 = ╱20╱…╱ // 0x2ac7 @0x37
0x2a90…2aca at0038 = ╱22╱"╱ // 0x2ac8 @0x38
0x2a90…2aca at0039 = EOL // 0x2ac9 @0x39
0x2a90…2aca }
0x2aca…2ad0 c0be 4440 PRINT
0x2aca…2ad0 LineComal80 {
0x2aca…2ad0 ptr = 0xc0be // 0x2aca @0x0
0x2aca…2ad0 lno = 0x1158 // 0x2acc @0x2
0x2aca…2ad0 at0004 = ╱92╱ PRINT ╱ // 0x2ace @0x4
0x2aca…2ad0 at0005 = EOL // 0x2acf @0x5
0x2aca…2ad0 }
0x2ad0…2aef c0dd 4450 LET SVAR$ := "-----------------"
0x2ad0…2aef LineComal80 {
0x2ad0…2aef ptr = 0xc0dd // 0x2ad0 @0x0
0x2ad0…2aef lno = 0x1162 // 0x2ad2 @0x2
0x2ad0…2aef at0004 = ╱86╱ LET ╱ // 0x2ad4 @0x4
0x2ad0…2aef at0005 = ╱53╱S╱ // 0x2ad5 @0x5
0x2ad0…2aef at0006 = ╱56╱V╱ // 0x2ad6 @0x6
0x2ad0…2aef at0007 = ╱41╱A╱ // 0x2ad7 @0x7
0x2ad0…2aef at0008 = ╱52╱R╱ // 0x2ad8 @0x8
0x2ad0…2aef at0009 = ╱ef╱$╱ // 0x2ad9 @0x9
0x2ad0…2aef at000a = ╱f0╱ := ╱ // 0x2ada @0xa
0x2ad0…2aef at000b = ╱22╱"╱ // 0x2adb @0xb
0x2ad0…2aef at000c = ╱2d╱-╱ // 0x2adc @0xc
0x2ad0…2aef at000d = ╱2d╱-╱ // 0x2add @0xd
0x2ad0…2aef at000e = ╱2d╱-╱ // 0x2ade @0xe
0x2ad0…2aef at000f = ╱2d╱-╱ // 0x2adf @0xf
0x2ad0…2aef at0010 = ╱2d╱-╱ // 0x2ae0 @0x10
0x2ad0…2aef at0011 = ╱2d╱-╱ // 0x2ae1 @0x11
0x2ad0…2aef at0012 = ╱2d╱-╱ // 0x2ae2 @0x12
0x2ad0…2aef at0013 = ╱2d╱-╱ // 0x2ae3 @0x13
0x2ad0…2aef at0014 = ╱2d╱-╱ // 0x2ae4 @0x14
0x2ad0…2aef at0015 = ╱2d╱-╱ // 0x2ae5 @0x15
0x2ad0…2aef at0016 = ╱2d╱-╱ // 0x2ae6 @0x16
0x2ad0…2aef at0017 = ╱2d╱-╱ // 0x2ae7 @0x17
0x2ad0…2aef at0018 = ╱2d╱-╱ // 0x2ae8 @0x18
0x2ad0…2aef at0019 = ╱2d╱-╱ // 0x2ae9 @0x19
0x2ad0…2aef at001a = ╱2d╱-╱ // 0x2aea @0x1a
0x2ad0…2aef at001b = ╱2d╱-╱ // 0x2aeb @0x1b
0x2ad0…2aef at001c = ╱2d╱-╱ // 0x2aec @0x1c
0x2ad0…2aef at001d = ╱22╱"╱ // 0x2aed @0x1d
0x2ad0…2aef at001e = EOL // 0x2aee @0x1e
0x2ad0…2aef }
0x2aef…2b27 c115 4460 LET K := ╱cb╱ (" " + KASSE_KTO$ + " KASSE ") ; I := K DIV 2 ; K := 22 - K - I
0x2aef…2b27 LineComal80 {
0x2aef…2b27 ptr = 0xc115 // 0x2aef @0x0
0x2aef…2b27 lno = 0x116c // 0x2af1 @0x2
0x2aef…2b27 at0004 = ╱86╱ LET ╱ // 0x2af3 @0x4
0x2aef…2b27 at0005 = ╱4b╱K╱ // 0x2af4 @0x5
0x2aef…2b27 at0006 = ╱f0╱ := ╱ // 0x2af5 @0x6
0x2aef…2b27 at0007 = ╱cb╱ // 0x2af6 @0x7
0x2aef…2b27 at0008 = ╱ed╱(╱ // 0x2af7 @0x8
0x2aef…2b27 at0009 = ╱22╱"╱ // 0x2af8 @0x9
0x2aef…2b27 at000a = ╱20╱…╱ // 0x2af9 @0xa
0x2aef…2b27 at000b = ╱22╱"╱ // 0x2afa @0xb
0x2aef…2b27 at000c = ╱eb╱ + ╱ // 0x2afb @0xc
0x2aef…2b27 at000d = ╱4b╱K╱ // 0x2afc @0xd
0x2aef…2b27 at000e = ╱41╱A╱ // 0x2afd @0xe
0x2aef…2b27 at000f = ╱53╱S╱ // 0x2afe @0xf
0x2aef…2b27 at0010 = ╱53╱S╱ // 0x2aff @0x10
0x2aef…2b27 at0011 = ╱45╱E╱ // 0x2b00 @0x11
0x2aef…2b27 at0012 = ╱5f╱_╱ // 0x2b01 @0x12
0x2aef…2b27 at0013 = ╱4b╱K╱ // 0x2b02 @0x13
0x2aef…2b27 at0014 = ╱54╱T╱ // 0x2b03 @0x14
0x2aef…2b27 at0015 = ╱4f╱O╱ // 0x2b04 @0x15
0x2aef…2b27 at0016 = ╱ef╱$╱ // 0x2b05 @0x16
0x2aef…2b27 at0017 = ╱eb╱ + ╱ // 0x2b06 @0x17
0x2aef…2b27 at0018 = ╱22╱"╱ // 0x2b07 @0x18
0x2aef…2b27 at0019 = ╱20╱…╱ // 0x2b08 @0x19
0x2aef…2b27 at001a = ╱4b╱K╱ // 0x2b09 @0x1a
0x2aef…2b27 at001b = ╱41╱A╱ // 0x2b0a @0x1b
0x2aef…2b27 at001c = ╱53╱S╱ // 0x2b0b @0x1c
0x2aef…2b27 at001d = ╱53╱S╱ // 0x2b0c @0x1d
0x2aef…2b27 at001e = ╱45╱E╱ // 0x2b0d @0x1e
0x2aef…2b27 at001f = ╱20╱…╱ // 0x2b0e @0x1f
0x2aef…2b27 at0020 = ╱22╱"╱ // 0x2b0f @0x20
0x2aef…2b27 at0021 = ╱ee╱)╱ // 0x2b10 @0x21
0x2aef…2b27 at0022 = ╱ea╱ ; ╱ // 0x2b11 @0x22
0x2aef…2b27 at0023 = ╱49╱I╱ // 0x2b12 @0x23
0x2aef…2b27 at0024 = ╱f0╱ := ╱ // 0x2b13 @0x24
0x2aef…2b27 at0025 = ╱4b╱K╱ // 0x2b14 @0x25
0x2aef…2b27 at0026 = ╱da╱ DIV ╱ // 0x2b15 @0x26
0x2aef…2b27 at0027 = ╱32╱2╱ // 0x2b16 @0x27
0x2aef…2b27 at0028 = ╱f20200╱ // 0x2b17 @0x28
0x2aef…2b27 at002b = ╱ea╱ ; ╱ // 0x2b1a @0x2b
0x2aef…2b27 at002c = ╱4b╱K╱ // 0x2b1b @0x2c
0x2aef…2b27 at002d = ╱f0╱ := ╱ // 0x2b1c @0x2d
0x2aef…2b27 at002e = ╱32╱2╱ // 0x2b1d @0x2e
0x2aef…2b27 at002f = ╱32╱2╱ // 0x2b1e @0x2f
0x2aef…2b27 at0030 = ╱f21600╱ // 0x2b1f @0x30
0x2aef…2b27 at0033 = ╱e6╱ - ╱ // 0x2b22 @0x33
0x2aef…2b27 at0034 = ╱4b╱K╱ // 0x2b23 @0x34
0x2aef…2b27 at0035 = ╱e6╱ - ╱ // 0x2b24 @0x35
0x2aef…2b27 at0036 = ╱49╱I╱ // 0x2b25 @0x36
0x2aef…2b27 at0037 = EOL // 0x2b26 @0x37
0x2aef…2b27 }
0x2b27…2b75 c163 4470 PRINT "<S>" ; TAB(37) ; SVAR$(1 : I) ; " " ; KASSE_KTO$ ; " KASSE " ; SVAR$(1 : K) ; " "
0x2b27…2b75 LineComal80 {
0x2b27…2b75 ptr = 0xc163 // 0x2b27 @0x0
0x2b27…2b75 lno = 0x1176 // 0x2b29 @0x2
0x2b27…2b75 at0004 = ╱92╱ PRINT ╱ // 0x2b2b @0x4
0x2b27…2b75 at0005 = ╱22╱"╱ // 0x2b2c @0x5
0x2b27…2b75 at0006 = ╱3c╱<╱ // 0x2b2d @0x6
0x2b27…2b75 at0007 = ╱53╱S╱ // 0x2b2e @0x7
0x2b27…2b75 at0008 = ╱3e╱>╱ // 0x2b2f @0x8
0x2b27…2b75 at0009 = ╱22╱"╱ // 0x2b30 @0x9
0x2b27…2b75 at000a = ╱ea╱ ; ╱ // 0x2b31 @0xa
0x2b27…2b75 at000b = ╱d2╱TAB╱ // 0x2b32 @0xb
0x2b27…2b75 at000c = ╱ed╱(╱ // 0x2b33 @0xc
0x2b27…2b75 at000d = ╱33╱3╱ // 0x2b34 @0xd
0x2b27…2b75 at000e = ╱37╱7╱ // 0x2b35 @0xe
0x2b27…2b75 at000f = ╱f22500╱ // 0x2b36 @0xf
0x2b27…2b75 at0012 = ╱ee╱)╱ // 0x2b39 @0x12
0x2b27…2b75 at0013 = ╱ea╱ ; ╱ // 0x2b3a @0x13
0x2b27…2b75 at0014 = ╱53╱S╱ // 0x2b3b @0x14
0x2b27…2b75 at0015 = ╱56╱V╱ // 0x2b3c @0x15
0x2b27…2b75 at0016 = ╱41╱A╱ // 0x2b3d @0x16
0x2b27…2b75 at0017 = ╱52╱R╱ // 0x2b3e @0x17
0x2b27…2b75 at0018 = ╱ef╱$╱ // 0x2b3f @0x18
0x2b27…2b75 at0019 = ╱ed╱(╱ // 0x2b40 @0x19
0x2b27…2b75 at001a = ╱31╱1╱ // 0x2b41 @0x1a
0x2b27…2b75 at001b = ╱f20100╱ // 0x2b42 @0x1b
0x2b27…2b75 at001e = ╱f1╱ : ╱ // 0x2b45 @0x1e
0x2b27…2b75 at001f = ╱49╱I╱ // 0x2b46 @0x1f
0x2b27…2b75 at0020 = ╱ee╱)╱ // 0x2b47 @0x20
0x2b27…2b75 at0021 = ╱ea╱ ; ╱ // 0x2b48 @0x21
0x2b27…2b75 at0022 = ╱22╱"╱ // 0x2b49 @0x22
0x2b27…2b75 at0023 = ╱20╱…╱ // 0x2b4a @0x23
0x2b27…2b75 at0024 = ╱22╱"╱ // 0x2b4b @0x24
0x2b27…2b75 at0025 = ╱ea╱ ; ╱ // 0x2b4c @0x25
0x2b27…2b75 at0026 = ╱4b╱K╱ // 0x2b4d @0x26
0x2b27…2b75 at0027 = ╱41╱A╱ // 0x2b4e @0x27
0x2b27…2b75 at0028 = ╱53╱S╱ // 0x2b4f @0x28
0x2b27…2b75 at0029 = ╱53╱S╱ // 0x2b50 @0x29
0x2b27…2b75 at002a = ╱45╱E╱ // 0x2b51 @0x2a
0x2b27…2b75 at002b = ╱5f╱_╱ // 0x2b52 @0x2b
0x2b27…2b75 at002c = ╱4b╱K╱ // 0x2b53 @0x2c
0x2b27…2b75 at002d = ╱54╱T╱ // 0x2b54 @0x2d
0x2b27…2b75 at002e = ╱4f╱O╱ // 0x2b55 @0x2e
0x2b27…2b75 at002f = ╱ef╱$╱ // 0x2b56 @0x2f
0x2b27…2b75 at0030 = ╱ea╱ ; ╱ // 0x2b57 @0x30
0x2b27…2b75 at0031 = ╱22╱"╱ // 0x2b58 @0x31
0x2b27…2b75 at0032 = ╱20╱…╱ // 0x2b59 @0x32
0x2b27…2b75 at0033 = ╱4b╱K╱ // 0x2b5a @0x33
0x2b27…2b75 at0034 = ╱41╱A╱ // 0x2b5b @0x34
0x2b27…2b75 at0035 = ╱53╱S╱ // 0x2b5c @0x35
0x2b27…2b75 at0036 = ╱53╱S╱ // 0x2b5d @0x36
0x2b27…2b75 at0037 = ╱45╱E╱ // 0x2b5e @0x37
0x2b27…2b75 at0038 = ╱20╱…╱ // 0x2b5f @0x38
0x2b27…2b75 at0039 = ╱22╱"╱ // 0x2b60 @0x39
0x2b27…2b75 at003a = ╱ea╱ ; ╱ // 0x2b61 @0x3a
0x2b27…2b75 at003b = ╱53╱S╱ // 0x2b62 @0x3b
0x2b27…2b75 at003c = ╱56╱V╱ // 0x2b63 @0x3c
0x2b27…2b75 at003d = ╱41╱A╱ // 0x2b64 @0x3d
0x2b27…2b75 at003e = ╱52╱R╱ // 0x2b65 @0x3e
0x2b27…2b75 at003f = ╱ef╱$╱ // 0x2b66 @0x3f
0x2b27…2b75 at0040 = ╱ed╱(╱ // 0x2b67 @0x40
0x2b27…2b75 at0041 = ╱31╱1╱ // 0x2b68 @0x41
0x2b27…2b75 at0042 = ╱f20100╱ // 0x2b69 @0x42
0x2b27…2b75 at0045 = ╱f1╱ : ╱ // 0x2b6c @0x45
0x2b27…2b75 at0046 = ╱4b╱K╱ // 0x2b6d @0x46
0x2b27…2b75 at0047 = ╱ee╱)╱ // 0x2b6e @0x47
0x2b27…2b75 at0048 = ╱ea╱ ; ╱ // 0x2b6f @0x48
0x2b27…2b75 at0049 = ╱22╱"╱ // 0x2b70 @0x49
0x2b27…2b75 at004a = ╱20╱…╱ // 0x2b71 @0x4a
0x2b27…2b75 at004b = ╱20╱…╱ // 0x2b72 @0x4b
0x2b27…2b75 at004c = ╱22╱"╱ // 0x2b73 @0x4c
0x2b27…2b75 at004d = EOL // 0x2b74 @0x4d
0x2b27…2b75 }
0x2b75…2bab c199 4480 LET K := ╱cb╱ (" " + BANK_KTO$ + " BANK ") ; I := K DIV 2 ; K := 22 - K - I
0x2b75…2bab LineComal80 {
0x2b75…2bab ptr = 0xc199 // 0x2b75 @0x0
0x2b75…2bab lno = 0x1180 // 0x2b77 @0x2
0x2b75…2bab at0004 = ╱86╱ LET ╱ // 0x2b79 @0x4
0x2b75…2bab at0005 = ╱4b╱K╱ // 0x2b7a @0x5
0x2b75…2bab at0006 = ╱f0╱ := ╱ // 0x2b7b @0x6
0x2b75…2bab at0007 = ╱cb╱ // 0x2b7c @0x7
0x2b75…2bab at0008 = ╱ed╱(╱ // 0x2b7d @0x8
0x2b75…2bab at0009 = ╱22╱"╱ // 0x2b7e @0x9
0x2b75…2bab at000a = ╱20╱…╱ // 0x2b7f @0xa
0x2b75…2bab at000b = ╱22╱"╱ // 0x2b80 @0xb
0x2b75…2bab at000c = ╱eb╱ + ╱ // 0x2b81 @0xc
0x2b75…2bab at000d = ╱42╱B╱ // 0x2b82 @0xd
0x2b75…2bab at000e = ╱41╱A╱ // 0x2b83 @0xe
0x2b75…2bab at000f = ╱4e╱N╱ // 0x2b84 @0xf
0x2b75…2bab at0010 = ╱4b╱K╱ // 0x2b85 @0x10
0x2b75…2bab at0011 = ╱5f╱_╱ // 0x2b86 @0x11
0x2b75…2bab at0012 = ╱4b╱K╱ // 0x2b87 @0x12
0x2b75…2bab at0013 = ╱54╱T╱ // 0x2b88 @0x13
0x2b75…2bab at0014 = ╱4f╱O╱ // 0x2b89 @0x14
0x2b75…2bab at0015 = ╱ef╱$╱ // 0x2b8a @0x15
0x2b75…2bab at0016 = ╱eb╱ + ╱ // 0x2b8b @0x16
0x2b75…2bab at0017 = ╱22╱"╱ // 0x2b8c @0x17
0x2b75…2bab at0018 = ╱20╱…╱ // 0x2b8d @0x18
0x2b75…2bab at0019 = ╱42╱B╱ // 0x2b8e @0x19
0x2b75…2bab at001a = ╱41╱A╱ // 0x2b8f @0x1a
0x2b75…2bab at001b = ╱4e╱N╱ // 0x2b90 @0x1b
0x2b75…2bab at001c = ╱4b╱K╱ // 0x2b91 @0x1c
0x2b75…2bab at001d = ╱20╱…╱ // 0x2b92 @0x1d
0x2b75…2bab at001e = ╱22╱"╱ // 0x2b93 @0x1e
0x2b75…2bab at001f = ╱ee╱)╱ // 0x2b94 @0x1f
0x2b75…2bab at0020 = ╱ea╱ ; ╱ // 0x2b95 @0x20
0x2b75…2bab at0021 = ╱49╱I╱ // 0x2b96 @0x21
0x2b75…2bab at0022 = ╱f0╱ := ╱ // 0x2b97 @0x22
0x2b75…2bab at0023 = ╱4b╱K╱ // 0x2b98 @0x23
0x2b75…2bab at0024 = ╱da╱ DIV ╱ // 0x2b99 @0x24
0x2b75…2bab at0025 = ╱32╱2╱ // 0x2b9a @0x25
0x2b75…2bab at0026 = ╱f20200╱ // 0x2b9b @0x26
0x2b75…2bab at0029 = ╱ea╱ ; ╱ // 0x2b9e @0x29
0x2b75…2bab at002a = ╱4b╱K╱ // 0x2b9f @0x2a
0x2b75…2bab at002b = ╱f0╱ := ╱ // 0x2ba0 @0x2b
0x2b75…2bab at002c = ╱32╱2╱ // 0x2ba1 @0x2c
0x2b75…2bab at002d = ╱32╱2╱ // 0x2ba2 @0x2d
0x2b75…2bab at002e = ╱f21600╱ // 0x2ba3 @0x2e
0x2b75…2bab at0031 = ╱e6╱ - ╱ // 0x2ba6 @0x31
0x2b75…2bab at0032 = ╱4b╱K╱ // 0x2ba7 @0x32
0x2b75…2bab at0033 = ╱e6╱ - ╱ // 0x2ba8 @0x33
0x2b75…2bab at0034 = ╱49╱I╱ // 0x2ba9 @0x34
0x2b75…2bab at0035 = EOL // 0x2baa @0x35
0x2b75…2bab }
0x2bab…2bee c1dc 4490 PRINT "<S>" ; SVAR$(1 : I) ; " " ; BANK_KTO$ ; " BANK " ; SVAR$(1 : K) ; " "
0x2bab…2bee LineComal80 {
0x2bab…2bee ptr = 0xc1dc // 0x2bab @0x0
0x2bab…2bee lno = 0x118a // 0x2bad @0x2
0x2bab…2bee at0004 = ╱92╱ PRINT ╱ // 0x2baf @0x4
0x2bab…2bee at0005 = ╱22╱"╱ // 0x2bb0 @0x5
0x2bab…2bee at0006 = ╱3c╱<╱ // 0x2bb1 @0x6
0x2bab…2bee at0007 = ╱53╱S╱ // 0x2bb2 @0x7
0x2bab…2bee at0008 = ╱3e╱>╱ // 0x2bb3 @0x8
0x2bab…2bee at0009 = ╱22╱"╱ // 0x2bb4 @0x9
0x2bab…2bee at000a = ╱ea╱ ; ╱ // 0x2bb5 @0xa
0x2bab…2bee at000b = ╱53╱S╱ // 0x2bb6 @0xb
0x2bab…2bee at000c = ╱56╱V╱ // 0x2bb7 @0xc
0x2bab…2bee at000d = ╱41╱A╱ // 0x2bb8 @0xd
0x2bab…2bee at000e = ╱52╱R╱ // 0x2bb9 @0xe
0x2bab…2bee at000f = ╱ef╱$╱ // 0x2bba @0xf
0x2bab…2bee at0010 = ╱ed╱(╱ // 0x2bbb @0x10
0x2bab…2bee at0011 = ╱31╱1╱ // 0x2bbc @0x11
0x2bab…2bee at0012 = ╱f20100╱ // 0x2bbd @0x12
0x2bab…2bee at0015 = ╱f1╱ : ╱ // 0x2bc0 @0x15
0x2bab…2bee at0016 = ╱49╱I╱ // 0x2bc1 @0x16
0x2bab…2bee at0017 = ╱ee╱)╱ // 0x2bc2 @0x17
0x2bab…2bee at0018 = ╱ea╱ ; ╱ // 0x2bc3 @0x18
0x2bab…2bee at0019 = ╱22╱"╱ // 0x2bc4 @0x19
0x2bab…2bee at001a = ╱20╱…╱ // 0x2bc5 @0x1a
0x2bab…2bee at001b = ╱22╱"╱ // 0x2bc6 @0x1b
0x2bab…2bee at001c = ╱ea╱ ; ╱ // 0x2bc7 @0x1c
0x2bab…2bee at001d = ╱42╱B╱ // 0x2bc8 @0x1d
0x2bab…2bee at001e = ╱41╱A╱ // 0x2bc9 @0x1e
0x2bab…2bee at001f = ╱4e╱N╱ // 0x2bca @0x1f
0x2bab…2bee at0020 = ╱4b╱K╱ // 0x2bcb @0x20
0x2bab…2bee at0021 = ╱5f╱_╱ // 0x2bcc @0x21
0x2bab…2bee at0022 = ╱4b╱K╱ // 0x2bcd @0x22
0x2bab…2bee at0023 = ╱54╱T╱ // 0x2bce @0x23
0x2bab…2bee at0024 = ╱4f╱O╱ // 0x2bcf @0x24
0x2bab…2bee at0025 = ╱ef╱$╱ // 0x2bd0 @0x25
0x2bab…2bee at0026 = ╱ea╱ ; ╱ // 0x2bd1 @0x26
0x2bab…2bee at0027 = ╱22╱"╱ // 0x2bd2 @0x27
0x2bab…2bee at0028 = ╱20╱…╱ // 0x2bd3 @0x28
0x2bab…2bee at0029 = ╱42╱B╱ // 0x2bd4 @0x29
0x2bab…2bee at002a = ╱41╱A╱ // 0x2bd5 @0x2a
0x2bab…2bee at002b = ╱4e╱N╱ // 0x2bd6 @0x2b
0x2bab…2bee at002c = ╱4b╱K╱ // 0x2bd7 @0x2c
0x2bab…2bee at002d = ╱20╱…╱ // 0x2bd8 @0x2d
0x2bab…2bee at002e = ╱22╱"╱ // 0x2bd9 @0x2e
0x2bab…2bee at002f = ╱ea╱ ; ╱ // 0x2bda @0x2f
0x2bab…2bee at0030 = ╱53╱S╱ // 0x2bdb @0x30
0x2bab…2bee at0031 = ╱56╱V╱ // 0x2bdc @0x31
0x2bab…2bee at0032 = ╱41╱A╱ // 0x2bdd @0x32
0x2bab…2bee at0033 = ╱52╱R╱ // 0x2bde @0x33
0x2bab…2bee at0034 = ╱ef╱$╱ // 0x2bdf @0x34
0x2bab…2bee at0035 = ╱ed╱(╱ // 0x2be0 @0x35
0x2bab…2bee at0036 = ╱31╱1╱ // 0x2be1 @0x36
0x2bab…2bee at0037 = ╱f20100╱ // 0x2be2 @0x37
0x2bab…2bee at003a = ╱f1╱ : ╱ // 0x2be5 @0x3a
0x2bab…2bee at003b = ╱4b╱K╱ // 0x2be6 @0x3b
0x2bab…2bee at003c = ╱ee╱)╱ // 0x2be7 @0x3c
0x2bab…2bee at003d = ╱ea╱ ; ╱ // 0x2be8 @0x3d
0x2bab…2bee at003e = ╱22╱"╱ // 0x2be9 @0x3e
0x2bab…2bee at003f = ╱20╱…╱ // 0x2bea @0x3f
0x2bab…2bee at0040 = ╱20╱…╱ // 0x2beb @0x40
0x2bab…2bee at0041 = ╱22╱"╱ // 0x2bec @0x41
0x2bab…2bee at0042 = EOL // 0x2bed @0x42
0x2bab…2bee }
0x2bee…2c24 c212 4500 LET K := ╱cb╱ (" " + GIRO_KTO$ + " GIRO ") ; I := K DIV 2 ; K := 22 - K - I
0x2bee…2c24 LineComal80 {
0x2bee…2c24 ptr = 0xc212 // 0x2bee @0x0
0x2bee…2c24 lno = 0x1194 // 0x2bf0 @0x2
0x2bee…2c24 at0004 = ╱86╱ LET ╱ // 0x2bf2 @0x4
0x2bee…2c24 at0005 = ╱4b╱K╱ // 0x2bf3 @0x5
0x2bee…2c24 at0006 = ╱f0╱ := ╱ // 0x2bf4 @0x6
0x2bee…2c24 at0007 = ╱cb╱ // 0x2bf5 @0x7
0x2bee…2c24 at0008 = ╱ed╱(╱ // 0x2bf6 @0x8
0x2bee…2c24 at0009 = ╱22╱"╱ // 0x2bf7 @0x9
0x2bee…2c24 at000a = ╱20╱…╱ // 0x2bf8 @0xa
0x2bee…2c24 at000b = ╱22╱"╱ // 0x2bf9 @0xb
0x2bee…2c24 at000c = ╱eb╱ + ╱ // 0x2bfa @0xc
0x2bee…2c24 at000d = ╱47╱G╱ // 0x2bfb @0xd
0x2bee…2c24 at000e = ╱49╱I╱ // 0x2bfc @0xe
0x2bee…2c24 at000f = ╱52╱R╱ // 0x2bfd @0xf
0x2bee…2c24 at0010 = ╱4f╱O╱ // 0x2bfe @0x10
0x2bee…2c24 at0011 = ╱5f╱_╱ // 0x2bff @0x11
0x2bee…2c24 at0012 = ╱4b╱K╱ // 0x2c00 @0x12
0x2bee…2c24 at0013 = ╱54╱T╱ // 0x2c01 @0x13
0x2bee…2c24 at0014 = ╱4f╱O╱ // 0x2c02 @0x14
0x2bee…2c24 at0015 = ╱ef╱$╱ // 0x2c03 @0x15
0x2bee…2c24 at0016 = ╱eb╱ + ╱ // 0x2c04 @0x16
0x2bee…2c24 at0017 = ╱22╱"╱ // 0x2c05 @0x17
0x2bee…2c24 at0018 = ╱20╱…╱ // 0x2c06 @0x18
0x2bee…2c24 at0019 = ╱47╱G╱ // 0x2c07 @0x19
0x2bee…2c24 at001a = ╱49╱I╱ // 0x2c08 @0x1a
0x2bee…2c24 at001b = ╱52╱R╱ // 0x2c09 @0x1b
0x2bee…2c24 at001c = ╱4f╱O╱ // 0x2c0a @0x1c
0x2bee…2c24 at001d = ╱20╱…╱ // 0x2c0b @0x1d
0x2bee…2c24 at001e = ╱22╱"╱ // 0x2c0c @0x1e
0x2bee…2c24 at001f = ╱ee╱)╱ // 0x2c0d @0x1f
0x2bee…2c24 at0020 = ╱ea╱ ; ╱ // 0x2c0e @0x20
0x2bee…2c24 at0021 = ╱49╱I╱ // 0x2c0f @0x21
0x2bee…2c24 at0022 = ╱f0╱ := ╱ // 0x2c10 @0x22
0x2bee…2c24 at0023 = ╱4b╱K╱ // 0x2c11 @0x23
0x2bee…2c24 at0024 = ╱da╱ DIV ╱ // 0x2c12 @0x24
0x2bee…2c24 at0025 = ╱32╱2╱ // 0x2c13 @0x25
0x2bee…2c24 at0026 = ╱f20200╱ // 0x2c14 @0x26
0x2bee…2c24 at0029 = ╱ea╱ ; ╱ // 0x2c17 @0x29
0x2bee…2c24 at002a = ╱4b╱K╱ // 0x2c18 @0x2a
0x2bee…2c24 at002b = ╱f0╱ := ╱ // 0x2c19 @0x2b
0x2bee…2c24 at002c = ╱32╱2╱ // 0x2c1a @0x2c
0x2bee…2c24 at002d = ╱32╱2╱ // 0x2c1b @0x2d
0x2bee…2c24 at002e = ╱f21600╱ // 0x2c1c @0x2e
0x2bee…2c24 at0031 = ╱e6╱ - ╱ // 0x2c1f @0x31
0x2bee…2c24 at0032 = ╱4b╱K╱ // 0x2c20 @0x32
0x2bee…2c24 at0033 = ╱e6╱ - ╱ // 0x2c21 @0x33
0x2bee…2c24 at0034 = ╱49╱I╱ // 0x2c22 @0x34
0x2bee…2c24 at0035 = EOL // 0x2c23 @0x35
0x2bee…2c24 }
0x2c24…2c5c d699 4510 PRINT SVAR$(1 : I) ; " " ; GIRO_KTO$ ; " GIRO " ; SVAR$(1 : K)
0x2c24…2c5c LineComal80 {
0x2c24…2c5c ptr = 0xd699 // 0x2c24 @0x0
0x2c24…2c5c lno = 0x119e // 0x2c26 @0x2
0x2c24…2c5c at0004 = ╱92╱ PRINT ╱ // 0x2c28 @0x4
0x2c24…2c5c at0005 = ╱53╱S╱ // 0x2c29 @0x5
0x2c24…2c5c at0006 = ╱56╱V╱ // 0x2c2a @0x6
0x2c24…2c5c at0007 = ╱41╱A╱ // 0x2c2b @0x7
0x2c24…2c5c at0008 = ╱52╱R╱ // 0x2c2c @0x8
0x2c24…2c5c at0009 = ╱ef╱$╱ // 0x2c2d @0x9
0x2c24…2c5c at000a = ╱ed╱(╱ // 0x2c2e @0xa
0x2c24…2c5c at000b = ╱31╱1╱ // 0x2c2f @0xb
0x2c24…2c5c at000c = ╱f20100╱ // 0x2c30 @0xc
0x2c24…2c5c at000f = ╱f1╱ : ╱ // 0x2c33 @0xf
0x2c24…2c5c at0010 = ╱49╱I╱ // 0x2c34 @0x10
0x2c24…2c5c at0011 = ╱ee╱)╱ // 0x2c35 @0x11
0x2c24…2c5c at0012 = ╱ea╱ ; ╱ // 0x2c36 @0x12
0x2c24…2c5c at0013 = ╱22╱"╱ // 0x2c37 @0x13
0x2c24…2c5c at0014 = ╱20╱…╱ // 0x2c38 @0x14
0x2c24…2c5c at0015 = ╱22╱"╱ // 0x2c39 @0x15
0x2c24…2c5c at0016 = ╱ea╱ ; ╱ // 0x2c3a @0x16
0x2c24…2c5c at0017 = ╱47╱G╱ // 0x2c3b @0x17
0x2c24…2c5c at0018 = ╱49╱I╱ // 0x2c3c @0x18
0x2c24…2c5c at0019 = ╱52╱R╱ // 0x2c3d @0x19
0x2c24…2c5c at001a = ╱4f╱O╱ // 0x2c3e @0x1a
0x2c24…2c5c at001b = ╱5f╱_╱ // 0x2c3f @0x1b
0x2c24…2c5c at001c = ╱4b╱K╱ // 0x2c40 @0x1c
0x2c24…2c5c at001d = ╱54╱T╱ // 0x2c41 @0x1d
0x2c24…2c5c at001e = ╱4f╱O╱ // 0x2c42 @0x1e
0x2c24…2c5c at001f = ╱ef╱$╱ // 0x2c43 @0x1f
0x2c24…2c5c at0020 = ╱ea╱ ; ╱ // 0x2c44 @0x20
0x2c24…2c5c at0021 = ╱22╱"╱ // 0x2c45 @0x21
0x2c24…2c5c at0022 = ╱20╱…╱ // 0x2c46 @0x22
0x2c24…2c5c at0023 = ╱47╱G╱ // 0x2c47 @0x23
0x2c24…2c5c at0024 = ╱49╱I╱ // 0x2c48 @0x24
0x2c24…2c5c at0025 = ╱52╱R╱ // 0x2c49 @0x25
0x2c24…2c5c at0026 = ╱4f╱O╱ // 0x2c4a @0x26
0x2c24…2c5c at0027 = ╱20╱…╱ // 0x2c4b @0x27
0x2c24…2c5c at0028 = ╱22╱"╱ // 0x2c4c @0x28
0x2c24…2c5c at0029 = ╱ea╱ ; ╱ // 0x2c4d @0x29
0x2c24…2c5c at002a = ╱53╱S╱ // 0x2c4e @0x2a
0x2c24…2c5c at002b = ╱56╱V╱ // 0x2c4f @0x2b
0x2c24…2c5c at002c = ╱41╱A╱ // 0x2c50 @0x2c
0x2c24…2c5c at002d = ╱52╱R╱ // 0x2c51 @0x2d
0x2c24…2c5c at002e = ╱ef╱$╱ // 0x2c52 @0x2e
0x2c24…2c5c at002f = ╱ed╱(╱ // 0x2c53 @0x2f
0x2c24…2c5c at0030 = ╱31╱1╱ // 0x2c54 @0x30
0x2c24…2c5c at0031 = ╱f20100╱ // 0x2c55 @0x31
0x2c24…2c5c at0034 = ╱f1╱ : ╱ // 0x2c58 @0x34
0x2c24…2c5c at0035 = ╱4b╱K╱ // 0x2c59 @0x35
0x2c24…2c5c at0036 = ╱ee╱)╱ // 0x2c5a @0x36
0x2c24…2c5c at0037 = EOL // 0x2c5b @0x37
0x2c24…2c5c }
0x2c5c…2ca0 c28e 4580 PRINT "<S>BILAG TEKST MK INDBETALT UDBETALT "
0x2c5c…2ca0 LineComal80 {
0x2c5c…2ca0 ptr = 0xc28e // 0x2c5c @0x0
0x2c5c…2ca0 lno = 0x11e4 // 0x2c5e @0x2
0x2c5c…2ca0 at0004 = ╱92╱ PRINT ╱ // 0x2c60 @0x4
0x2c5c…2ca0 at0005 = ╱22╱"╱ // 0x2c61 @0x5
0x2c5c…2ca0 at0006 = ╱3c╱<╱ // 0x2c62 @0x6
0x2c5c…2ca0 at0007 = ╱53╱S╱ // 0x2c63 @0x7
0x2c5c…2ca0 at0008 = ╱3e╱>╱ // 0x2c64 @0x8
0x2c5c…2ca0 at0009 = ╱42╱B╱ // 0x2c65 @0x9
0x2c5c…2ca0 at000a = ╱49╱I╱ // 0x2c66 @0xa
0x2c5c…2ca0 at000b = ╱4c╱L╱ // 0x2c67 @0xb
0x2c5c…2ca0 at000c = ╱41╱A╱ // 0x2c68 @0xc
0x2c5c…2ca0 at000d = ╱47╱G╱ // 0x2c69 @0xd
0x2c5c…2ca0 at000e = ╱20╱…╱ // 0x2c6a @0xe
0x2c5c…2ca0 at000f = ╱20╱…╱ // 0x2c6b @0xf
0x2c5c…2ca0 at0010 = ╱54╱T╱ // 0x2c6c @0x10
0x2c5c…2ca0 at0011 = ╱45╱E╱ // 0x2c6d @0x11
0x2c5c…2ca0 at0012 = ╱4b╱K╱ // 0x2c6e @0x12
0x2c5c…2ca0 at0013 = ╱53╱S╱ // 0x2c6f @0x13
0x2c5c…2ca0 at0014 = ╱54╱T╱ // 0x2c70 @0x14
0x2c5c…2ca0 at0015 = ╱20╱…╱ // 0x2c71 @0x15
0x2c5c…2ca0 at0016 = ╱20╱…╱ // 0x2c72 @0x16
0x2c5c…2ca0 at0017 = ╱20╱…╱ // 0x2c73 @0x17
0x2c5c…2ca0 at0018 = ╱20╱…╱ // 0x2c74 @0x18
0x2c5c…2ca0 at0019 = ╱20╱…╱ // 0x2c75 @0x19
0x2c5c…2ca0 at001a = ╱20╱…╱ // 0x2c76 @0x1a
0x2c5c…2ca0 at001b = ╱20╱…╱ // 0x2c77 @0x1b
0x2c5c…2ca0 at001c = ╱20╱…╱ // 0x2c78 @0x1c
0x2c5c…2ca0 at001d = ╱20╱…╱ // 0x2c79 @0x1d
0x2c5c…2ca0 at001e = ╱20╱…╱ // 0x2c7a @0x1e
0x2c5c…2ca0 at001f = ╱20╱…╱ // 0x2c7b @0x1f
0x2c5c…2ca0 at0020 = ╱20╱…╱ // 0x2c7c @0x20
0x2c5c…2ca0 at0021 = ╱20╱…╱ // 0x2c7d @0x21
0x2c5c…2ca0 at0022 = ╱20╱…╱ // 0x2c7e @0x22
0x2c5c…2ca0 at0023 = ╱20╱…╱ // 0x2c7f @0x23
0x2c5c…2ca0 at0024 = ╱20╱…╱ // 0x2c80 @0x24
0x2c5c…2ca0 at0025 = ╱20╱…╱ // 0x2c81 @0x25
0x2c5c…2ca0 at0026 = ╱4d╱M╱ // 0x2c82 @0x26
0x2c5c…2ca0 at0027 = ╱4b╱K╱ // 0x2c83 @0x27
0x2c5c…2ca0 at0028 = ╱20╱…╱ // 0x2c84 @0x28
0x2c5c…2ca0 at0029 = ╱20╱…╱ // 0x2c85 @0x29
0x2c5c…2ca0 at002a = ╱49╱I╱ // 0x2c86 @0x2a
0x2c5c…2ca0 at002b = ╱4e╱N╱ // 0x2c87 @0x2b
0x2c5c…2ca0 at002c = ╱44╱D╱ // 0x2c88 @0x2c
0x2c5c…2ca0 at002d = ╱42╱B╱ // 0x2c89 @0x2d
0x2c5c…2ca0 at002e = ╱45╱E╱ // 0x2c8a @0x2e
0x2c5c…2ca0 at002f = ╱54╱T╱ // 0x2c8b @0x2f
0x2c5c…2ca0 at0030 = ╱41╱A╱ // 0x2c8c @0x30
0x2c5c…2ca0 at0031 = ╱4c╱L╱ // 0x2c8d @0x31
0x2c5c…2ca0 at0032 = ╱54╱T╱ // 0x2c8e @0x32
0x2c5c…2ca0 at0033 = ╱20╱…╱ // 0x2c8f @0x33
0x2c5c…2ca0 at0034 = ╱20╱…╱ // 0x2c90 @0x34
0x2c5c…2ca0 at0035 = ╱20╱…╱ // 0x2c91 @0x35
0x2c5c…2ca0 at0036 = ╱20╱…╱ // 0x2c92 @0x36
0x2c5c…2ca0 at0037 = ╱55╱U╱ // 0x2c93 @0x37
0x2c5c…2ca0 at0038 = ╱44╱D╱ // 0x2c94 @0x38
0x2c5c…2ca0 at0039 = ╱42╱B╱ // 0x2c95 @0x39
0x2c5c…2ca0 at003a = ╱45╱E╱ // 0x2c96 @0x3a
0x2c5c…2ca0 at003b = ╱54╱T╱ // 0x2c97 @0x3b
0x2c5c…2ca0 at003c = ╱41╱A╱ // 0x2c98 @0x3c
0x2c5c…2ca0 at003d = ╱4c╱L╱ // 0x2c99 @0x3d
0x2c5c…2ca0 at003e = ╱54╱T╱ // 0x2c9a @0x3e
0x2c5c…2ca0 at003f = ╱20╱…╱ // 0x2c9b @0x3f
0x2c5c…2ca0 at0040 = ╱20╱…╱ // 0x2c9c @0x40
0x2c5c…2ca0 at0041 = ╱20╱…╱ // 0x2c9d @0x41
0x2c5c…2ca0 at0042 = ╱22╱"╱ // 0x2c9e @0x42
0x2c5c…2ca0 at0043 = EOL // 0x2c9f @0x43
0x2c5c…2ca0 }
0x2ca0…2cdf c2cd 4530 PRINT " INDSAT HÆVET INDSAT HÆVET KONTONR"
0x2ca0…2cdf LineComal80 {
0x2ca0…2cdf ptr = 0xc2cd // 0x2ca0 @0x0
0x2ca0…2cdf lno = 0x11b2 // 0x2ca2 @0x2
0x2ca0…2cdf at0004 = ╱92╱ PRINT ╱ // 0x2ca4 @0x4
0x2ca0…2cdf at0005 = ╱22╱"╱ // 0x2ca5 @0x5
0x2ca0…2cdf at0006 = ╱20╱…╱ // 0x2ca6 @0x6
0x2ca0…2cdf at0007 = ╱20╱…╱ // 0x2ca7 @0x7
0x2ca0…2cdf at0008 = ╱49╱I╱ // 0x2ca8 @0x8
0x2ca0…2cdf at0009 = ╱4e╱N╱ // 0x2ca9 @0x9
0x2ca0…2cdf at000a = ╱44╱D╱ // 0x2caa @0xa
0x2ca0…2cdf at000b = ╱53╱S╱ // 0x2cab @0xb
0x2ca0…2cdf at000c = ╱41╱A╱ // 0x2cac @0xc
0x2ca0…2cdf at000d = ╱54╱T╱ // 0x2cad @0xd
0x2ca0…2cdf at000e = ╱20╱…╱ // 0x2cae @0xe
0x2ca0…2cdf at000f = ╱20╱…╱ // 0x2caf @0xf
0x2ca0…2cdf at0010 = ╱20╱…╱ // 0x2cb0 @0x10
0x2ca0…2cdf at0011 = ╱20╱…╱ // 0x2cb1 @0x11
0x2ca0…2cdf at0012 = ╱20╱…╱ // 0x2cb2 @0x12
0x2ca0…2cdf at0013 = ╱20╱…╱ // 0x2cb3 @0x13
0x2ca0…2cdf at0014 = ╱48╱H╱ // 0x2cb4 @0x14
0x2ca0…2cdf at0015 = ╱5b╱Æ╱ // 0x2cb5 @0x15
0x2ca0…2cdf at0016 = ╱56╱V╱ // 0x2cb6 @0x16
0x2ca0…2cdf at0017 = ╱45╱E╱ // 0x2cb7 @0x17
0x2ca0…2cdf at0018 = ╱54╱T╱ // 0x2cb8 @0x18
0x2ca0…2cdf at0019 = ╱20╱…╱ // 0x2cb9 @0x19
0x2ca0…2cdf at001a = ╱20╱…╱ // 0x2cba @0x1a
0x2ca0…2cdf at001b = ╱20╱…╱ // 0x2cbb @0x1b
0x2ca0…2cdf at001c = ╱20╱…╱ // 0x2cbc @0x1c
0x2ca0…2cdf at001d = ╱20╱…╱ // 0x2cbd @0x1d
0x2ca0…2cdf at001e = ╱20╱…╱ // 0x2cbe @0x1e
0x2ca0…2cdf at001f = ╱20╱…╱ // 0x2cbf @0x1f
0x2ca0…2cdf at0020 = ╱49╱I╱ // 0x2cc0 @0x20
0x2ca0…2cdf at0021 = ╱4e╱N╱ // 0x2cc1 @0x21
0x2ca0…2cdf at0022 = ╱44╱D╱ // 0x2cc2 @0x22
0x2ca0…2cdf at0023 = ╱53╱S╱ // 0x2cc3 @0x23
0x2ca0…2cdf at0024 = ╱41╱A╱ // 0x2cc4 @0x24
0x2ca0…2cdf at0025 = ╱54╱T╱ // 0x2cc5 @0x25
0x2ca0…2cdf at0026 = ╱20╱…╱ // 0x2cc6 @0x26
0x2ca0…2cdf at0027 = ╱20╱…╱ // 0x2cc7 @0x27
0x2ca0…2cdf at0028 = ╱20╱…╱ // 0x2cc8 @0x28
0x2ca0…2cdf at0029 = ╱20╱…╱ // 0x2cc9 @0x29
0x2ca0…2cdf at002a = ╱20╱…╱ // 0x2cca @0x2a
0x2ca0…2cdf at002b = ╱20╱…╱ // 0x2ccb @0x2b
0x2ca0…2cdf at002c = ╱48╱H╱ // 0x2ccc @0x2c
0x2ca0…2cdf at002d = ╱5b╱Æ╱ // 0x2ccd @0x2d
0x2ca0…2cdf at002e = ╱56╱V╱ // 0x2cce @0x2e
0x2ca0…2cdf at002f = ╱45╱E╱ // 0x2ccf @0x2f
0x2ca0…2cdf at0030 = ╱54╱T╱ // 0x2cd0 @0x30
0x2ca0…2cdf at0031 = ╱20╱…╱ // 0x2cd1 @0x31
0x2ca0…2cdf at0032 = ╱20╱…╱ // 0x2cd2 @0x32
0x2ca0…2cdf at0033 = ╱20╱…╱ // 0x2cd3 @0x33
0x2ca0…2cdf at0034 = ╱20╱…╱ // 0x2cd4 @0x34
0x2ca0…2cdf at0035 = ╱20╱…╱ // 0x2cd5 @0x35
0x2ca0…2cdf at0036 = ╱4b╱K╱ // 0x2cd6 @0x36
0x2ca0…2cdf at0037 = ╱4f╱O╱ // 0x2cd7 @0x37
0x2ca0…2cdf at0038 = ╱4e╱N╱ // 0x2cd8 @0x38
0x2ca0…2cdf at0039 = ╱54╱T╱ // 0x2cd9 @0x39
0x2ca0…2cdf at003a = ╱4f╱O╱ // 0x2cda @0x3a
0x2ca0…2cdf at003b = ╱4e╱N╱ // 0x2cdb @0x3b
0x2ca0…2cdf at003c = ╱52╱R╱ // 0x2cdc @0x3c
0x2ca0…2cdf at003d = ╱22╱"╱ // 0x2cdd @0x3d
0x2ca0…2cdf at003e = EOL // 0x2cde @0x3e
0x2ca0…2cdf }
0x2cdf…2cef c2dd 4540 EXEC SLUT_LINIE
0x2cdf…2cef LineComal80 {
0x2cdf…2cef ptr = 0xc2dd // 0x2cdf @0x0
0x2cdf…2cef lno = 0x11bc // 0x2ce1 @0x2
0x2cdf…2cef at0004 = ╱9d╱ EXEC ╱ // 0x2ce3 @0x4
0x2cdf…2cef at0005 = ╱53╱S╱ // 0x2ce4 @0x5
0x2cdf…2cef at0006 = ╱4c╱L╱ // 0x2ce5 @0x6
0x2cdf…2cef at0007 = ╱55╱U╱ // 0x2ce6 @0x7
0x2cdf…2cef at0008 = ╱54╱T╱ // 0x2ce7 @0x8
0x2cdf…2cef at0009 = ╱5f╱_╱ // 0x2ce8 @0x9
0x2cdf…2cef at000a = ╱4c╱L╱ // 0x2ce9 @0xa
0x2cdf…2cef at000b = ╱49╱I╱ // 0x2cea @0xb
0x2cdf…2cef at000c = ╱4e╱N╱ // 0x2ceb @0xc
0x2cdf…2cef at000d = ╱49╱I╱ // 0x2cec @0xd
0x2cdf…2cef at000e = ╱45╱E╱ // 0x2ced @0xe
0x2cdf…2cef at000f = EOL // 0x2cee @0xf
0x2cdf…2cef }
0x2cef…2cff c2ed 4550 ENDPROC SIDE_SKIFT
0x2cef…2cff LineComal80 {
0x2cef…2cff ptr = 0xc2ed // 0x2cef @0x0
0x2cef…2cff lno = 0x11c6 // 0x2cf1 @0x2
0x2cef…2cff at0004 = ╱9f╱ ENDPROC ╱ // 0x2cf3 @0x4
0x2cef…2cff at0005 = ╱53╱S╱ // 0x2cf4 @0x5
0x2cef…2cff at0006 = ╱49╱I╱ // 0x2cf5 @0x6
0x2cef…2cff at0007 = ╱44╱D╱ // 0x2cf6 @0x7
0x2cef…2cff at0008 = ╱45╱E╱ // 0x2cf7 @0x8
0x2cef…2cff at0009 = ╱5f╱_╱ // 0x2cf8 @0x9
0x2cef…2cff at000a = ╱53╱S╱ // 0x2cf9 @0xa
0x2cef…2cff at000b = ╱4b╱K╱ // 0x2cfa @0xb
0x2cef…2cff at000c = ╱49╱I╱ // 0x2cfb @0xc
0x2cef…2cff at000d = ╱46╱F╱ // 0x2cfc @0xd
0x2cef…2cff at000e = ╱54╱T╱ // 0x2cfd @0xe
0x2cef…2cff at000f = EOL // 0x2cfe @0xf
0x2cef…2cff }
0x2cff…2d04 c2f2 4560
0x2cff…2d04 LineComal80 {
0x2cff…2d04 ptr = 0xc2f2 // 0x2cff @0x0
0x2cff…2d04 lno = 0x11d0 // 0x2d01 @0x2
0x2cff…2d04 at0004 = EOL // 0x2d03 @0x4
0x2cff…2d04 }
0x2d04…2d16 c304 4570 PROC PRINT_LINIE
0x2d04…2d16 LineComal80 {
0x2d04…2d16 ptr = 0xc304 // 0x2d04 @0x0
0x2d04…2d16 lno = 0x11da // 0x2d06 @0x2
0x2d04…2d16 at0004 = ╱9e50╱ PROC ╱ // 0x2d08 @0x4
0x2d04…2d16 at0006 = ╱50╱P╱ // 0x2d0a @0x6
0x2d04…2d16 at0007 = ╱52╱R╱ // 0x2d0b @0x7
0x2d04…2d16 at0008 = ╱49╱I╱ // 0x2d0c @0x8
0x2d04…2d16 at0009 = ╱4e╱N╱ // 0x2d0d @0x9
0x2d04…2d16 at000a = ╱54╱T╱ // 0x2d0e @0xa
0x2d04…2d16 at000b = ╱5f╱_╱ // 0x2d0f @0xb
0x2d04…2d16 at000c = ╱4c╱L╱ // 0x2d10 @0xc
0x2d04…2d16 at000d = ╱49╱I╱ // 0x2d11 @0xd
0x2d04…2d16 at000e = ╱4e╱N╱ // 0x2d12 @0xe
0x2d04…2d16 at000f = ╱49╱I╱ // 0x2d13 @0xf
0x2d04…2d16 at0010 = ╱45╱E╱ // 0x2d14 @0x10
0x2d04…2d16 at0011 = EOL // 0x2d15 @0x11
0x2d04…2d16 }
0x2d16…2d2d c31b 4580 IF K_BNR$ = "*****" THEN EXIT
0x2d16…2d2d LineComal80 {
0x2d16…2d2d ptr = 0xc31b // 0x2d16 @0x0
0x2d16…2d2d lno = 0x11e4 // 0x2d18 @0x2
0x2d16…2d2d at0004 = ╱8200╱ IF ╱ // 0x2d1a @0x4
0x2d16…2d2d at0006 = ╱4b╱K╱ // 0x2d1c @0x6
0x2d16…2d2d at0007 = ╱5f╱_╱ // 0x2d1d @0x7
0x2d16…2d2d at0008 = ╱42╱B╱ // 0x2d1e @0x8
0x2d16…2d2d at0009 = ╱4e╱N╱ // 0x2d1f @0x9
0x2d16…2d2d at000a = ╱52╱R╱ // 0x2d20 @0xa
0x2d16…2d2d at000b = ╱ef╱$╱ // 0x2d21 @0xb
0x2d16…2d2d at000c = ╱df╱ = ╱ // 0x2d22 @0xc
0x2d16…2d2d at000d = ╱22╱"╱ // 0x2d23 @0xd
0x2d16…2d2d at000e = ╱2a╱*╱ // 0x2d24 @0xe
0x2d16…2d2d at000f = ╱2a╱*╱ // 0x2d25 @0xf
0x2d16…2d2d at0010 = ╱2a╱*╱ // 0x2d26 @0x10
0x2d16…2d2d at0011 = ╱2a╱*╱ // 0x2d27 @0x11
0x2d16…2d2d at0012 = ╱2a╱*╱ // 0x2d28 @0x12
0x2d16…2d2d at0013 = ╱22╱"╱ // 0x2d29 @0x13
0x2d16…2d2d at0014 = ╱b5╱ THEN ╱ // 0x2d2a @0x14
0x2d16…2d2d at0015 = ╱99╱ EXIT ╱ // 0x2d2b @0x15
0x2d16…2d2d at0016 = EOL // 0x2d2c @0x16
0x2d16…2d2d }
0x2d2d…2d52 c340 4590 IF LIN_T + 15 >= MAX_LIN THEN EXEC TRANSPORT
0x2d2d…2d52 LineComal80 {
0x2d2d…2d52 ptr = 0xc340 // 0x2d2d @0x0
0x2d2d…2d52 lno = 0x11ee // 0x2d2f @0x2
0x2d2d…2d52 at0004 = ╱8200╱ IF ╱ // 0x2d31 @0x4
0x2d2d…2d52 at0006 = ╱4c╱L╱ // 0x2d33 @0x6
0x2d2d…2d52 at0007 = ╱49╱I╱ // 0x2d34 @0x7
0x2d2d…2d52 at0008 = ╱4e╱N╱ // 0x2d35 @0x8
0x2d2d…2d52 at0009 = ╱5f╱_╱ // 0x2d36 @0x9
0x2d2d…2d52 at000a = ╱54╱T╱ // 0x2d37 @0xa
0x2d2d…2d52 at000b = ╱e5╱ + ╱ // 0x2d38 @0xb
0x2d2d…2d52 at000c = ╱31╱1╱ // 0x2d39 @0xc
0x2d2d…2d52 at000d = ╱35╱5╱ // 0x2d3a @0xd
0x2d2d…2d52 at000e = ╱f20f00╱ // 0x2d3b @0xe
0x2d2d…2d52 at0011 = ╱e3╱ >= ╱ // 0x2d3e @0x11
0x2d2d…2d52 at0012 = ╱4d╱M╱ // 0x2d3f @0x12
0x2d2d…2d52 at0013 = ╱41╱A╱ // 0x2d40 @0x13
0x2d2d…2d52 at0014 = ╱58╱X╱ // 0x2d41 @0x14
0x2d2d…2d52 at0015 = ╱5f╱_╱ // 0x2d42 @0x15
0x2d2d…2d52 at0016 = ╱4c╱L╱ // 0x2d43 @0x16
0x2d2d…2d52 at0017 = ╱49╱I╱ // 0x2d44 @0x17
0x2d2d…2d52 at0018 = ╱4e╱N╱ // 0x2d45 @0x18
0x2d2d…2d52 at0019 = ╱b5╱ THEN ╱ // 0x2d46 @0x19
0x2d2d…2d52 at001a = ╱9d╱ EXEC ╱ // 0x2d47 @0x1a
0x2d2d…2d52 at001b = ╱54╱T╱ // 0x2d48 @0x1b
0x2d2d…2d52 at001c = ╱52╱R╱ // 0x2d49 @0x1c
0x2d2d…2d52 at001d = ╱41╱A╱ // 0x2d4a @0x1d
0x2d2d…2d52 at001e = ╱4e╱N╱ // 0x2d4b @0x1e
0x2d2d…2d52 at001f = ╱53╱S╱ // 0x2d4c @0x1f
0x2d2d…2d52 at0020 = ╱50╱P╱ // 0x2d4d @0x20
0x2d2d…2d52 at0021 = ╱4f╱O╱ // 0x2d4e @0x21
0x2d2d…2d52 at0022 = ╱52╱R╱ // 0x2d4f @0x22
0x2d2d…2d52 at0023 = ╱54╱T╱ // 0x2d50 @0x23
0x2d2d…2d52 at0024 = EOL // 0x2d51 @0x24
0x2d2d…2d52 }
0x2d52…2d68 c356 4600 LET LIN_T := LIN_T + 1
0x2d52…2d68 LineComal80 {
0x2d52…2d68 ptr = 0xc356 // 0x2d52 @0x0
0x2d52…2d68 lno = 0x11f8 // 0x2d54 @0x2
0x2d52…2d68 at0004 = ╱86╱ LET ╱ // 0x2d56 @0x4
0x2d52…2d68 at0005 = ╱4c╱L╱ // 0x2d57 @0x5
0x2d52…2d68 at0006 = ╱49╱I╱ // 0x2d58 @0x6
0x2d52…2d68 at0007 = ╱4e╱N╱ // 0x2d59 @0x7
0x2d52…2d68 at0008 = ╱5f╱_╱ // 0x2d5a @0x8
0x2d52…2d68 at0009 = ╱54╱T╱ // 0x2d5b @0x9
0x2d52…2d68 at000a = ╱f0╱ := ╱ // 0x2d5c @0xa
0x2d52…2d68 at000b = ╱4c╱L╱ // 0x2d5d @0xb
0x2d52…2d68 at000c = ╱49╱I╱ // 0x2d5e @0xc
0x2d52…2d68 at000d = ╱4e╱N╱ // 0x2d5f @0xd
0x2d52…2d68 at000e = ╱5f╱_╱ // 0x2d60 @0xe
0x2d52…2d68 at000f = ╱54╱T╱ // 0x2d61 @0xf
0x2d52…2d68 at0010 = ╱e5╱ + ╱ // 0x2d62 @0x10
0x2d52…2d68 at0011 = ╱31╱1╱ // 0x2d63 @0x11
0x2d52…2d68 at0012 = ╱f20100╱ // 0x2d64 @0x12
0x2d52…2d68 at0015 = EOL // 0x2d67 @0x15
0x2d52…2d68 }
0x2d68…2da4 c392 4610 PRINT "<S>" ; K_BNR$ ; TAB(11) ; K_TXT$ ; TAB(33) ; K_MKOD$ ; TAB(36)
0x2d68…2da4 LineComal80 {
0x2d68…2da4 ptr = 0xc392 // 0x2d68 @0x0
0x2d68…2da4 lno = 0x1202 // 0x2d6a @0x2
0x2d68…2da4 at0004 = ╱92╱ PRINT ╱ // 0x2d6c @0x4
0x2d68…2da4 at0005 = ╱22╱"╱ // 0x2d6d @0x5
0x2d68…2da4 at0006 = ╱3c╱<╱ // 0x2d6e @0x6
0x2d68…2da4 at0007 = ╱53╱S╱ // 0x2d6f @0x7
0x2d68…2da4 at0008 = ╱3e╱>╱ // 0x2d70 @0x8
0x2d68…2da4 at0009 = ╱22╱"╱ // 0x2d71 @0x9
0x2d68…2da4 at000a = ╱ea╱ ; ╱ // 0x2d72 @0xa
0x2d68…2da4 at000b = ╱4b╱K╱ // 0x2d73 @0xb
0x2d68…2da4 at000c = ╱5f╱_╱ // 0x2d74 @0xc
0x2d68…2da4 at000d = ╱42╱B╱ // 0x2d75 @0xd
0x2d68…2da4 at000e = ╱4e╱N╱ // 0x2d76 @0xe
0x2d68…2da4 at000f = ╱52╱R╱ // 0x2d77 @0xf
0x2d68…2da4 at0010 = ╱ef╱$╱ // 0x2d78 @0x10
0x2d68…2da4 at0011 = ╱ea╱ ; ╱ // 0x2d79 @0x11
0x2d68…2da4 at0012 = ╱d2╱TAB╱ // 0x2d7a @0x12
0x2d68…2da4 at0013 = ╱ed╱(╱ // 0x2d7b @0x13
0x2d68…2da4 at0014 = ╱31╱1╱ // 0x2d7c @0x14
0x2d68…2da4 at0015 = ╱31╱1╱ // 0x2d7d @0x15
0x2d68…2da4 at0016 = ╱f20b00╱ // 0x2d7e @0x16
0x2d68…2da4 at0019 = ╱ee╱)╱ // 0x2d81 @0x19
0x2d68…2da4 at001a = ╱ea╱ ; ╱ // 0x2d82 @0x1a
0x2d68…2da4 at001b = ╱4b╱K╱ // 0x2d83 @0x1b
0x2d68…2da4 at001c = ╱5f╱_╱ // 0x2d84 @0x1c
0x2d68…2da4 at001d = ╱54╱T╱ // 0x2d85 @0x1d
0x2d68…2da4 at001e = ╱58╱X╱ // 0x2d86 @0x1e
0x2d68…2da4 at001f = ╱54╱T╱ // 0x2d87 @0x1f
0x2d68…2da4 at0020 = ╱ef╱$╱ // 0x2d88 @0x20
0x2d68…2da4 at0021 = ╱ea╱ ; ╱ // 0x2d89 @0x21
0x2d68…2da4 at0022 = ╱d2╱TAB╱ // 0x2d8a @0x22
0x2d68…2da4 at0023 = ╱ed╱(╱ // 0x2d8b @0x23
0x2d68…2da4 at0024 = ╱33╱3╱ // 0x2d8c @0x24
0x2d68…2da4 at0025 = ╱33╱3╱ // 0x2d8d @0x25
0x2d68…2da4 at0026 = ╱f22100╱ // 0x2d8e @0x26
0x2d68…2da4 at0029 = ╱ee╱)╱ // 0x2d91 @0x29
0x2d68…2da4 at002a = ╱ea╱ ; ╱ // 0x2d92 @0x2a
0x2d68…2da4 at002b = ╱4b╱K╱ // 0x2d93 @0x2b
0x2d68…2da4 at002c = ╱5f╱_╱ // 0x2d94 @0x2c
0x2d68…2da4 at002d = ╱4d╱M╱ // 0x2d95 @0x2d
0x2d68…2da4 at002e = ╱4b╱K╱ // 0x2d96 @0x2e
0x2d68…2da4 at002f = ╱4f╱O╱ // 0x2d97 @0x2f
0x2d68…2da4 at0030 = ╱44╱D╱ // 0x2d98 @0x30
0x2d68…2da4 at0031 = ╱ef╱$╱ // 0x2d99 @0x31
0x2d68…2da4 at0032 = ╱ea╱ ; ╱ // 0x2d9a @0x32
0x2d68…2da4 at0033 = ╱d2╱TAB╱ // 0x2d9b @0x33
0x2d68…2da4 at0034 = ╱ed╱(╱ // 0x2d9c @0x34
0x2d68…2da4 at0035 = ╱33╱3╱ // 0x2d9d @0x35
0x2d68…2da4 at0036 = ╱36╱6╱ // 0x2d9e @0x36
0x2d68…2da4 at0037 = ╱f22400╱ // 0x2d9f @0x37
0x2d68…2da4 at003a = ╱ee╱)╱ // 0x2da2 @0x3a
0x2d68…2da4 at003b = EOL // 0x2da3 @0x3b
0x2d68…2da4 }
0x2da4…2db4 c3a2 4620 CASE K_LKOD$ OF
0x2da4…2db4 LineComal80 {
0x2da4…2db4 ptr = 0xc3a2 // 0x2da4 @0x0
0x2da4…2db4 lno = 0x120c // 0x2da6 @0x2
0x2da4…2db4 at0004 = ╱a25100╱ CASE ╱ // 0x2da8 @0x4
0x2da4…2db4 at0007 = ╱4b╱K╱ // 0x2dab @0x7
0x2da4…2db4 at0008 = ╱5f╱_╱ // 0x2dac @0x8
0x2da4…2db4 at0009 = ╱4c╱L╱ // 0x2dad @0x9
0x2da4…2db4 at000a = ╱4b╱K╱ // 0x2dae @0xa
0x2da4…2db4 at000b = ╱4f╱O╱ // 0x2daf @0xb
0x2da4…2db4 at000c = ╱44╱D╱ // 0x2db0 @0xc
0x2da4…2db4 at000d = ╱ef╱$╱ // 0x2db1 @0xd
0x2da4…2db4 at000e = ╱ba╱ OF ╱ // 0x2db2 @0xe
0x2da4…2db4 at000f = EOL // 0x2db3 @0xf
0x2da4…2db4 }
0x2db4…2dbf c3ad 4630 WHILE "K"
0x2db4…2dbf LineComal80 {
0x2db4…2dbf ptr = 0xc3ad // 0x2db4 @0x0
0x2db4…2dbf lno = 0x1216 // 0x2db6 @0x2
0x2db4…2dbf at0004 = ╱a45200╱ WHILE ╱ // 0x2db8 @0x4
0x2db4…2dbf at0007 = ╱22╱"╱ // 0x2dbb @0x7
0x2db4…2dbf at0008 = ╱4b╱K╱ // 0x2dbc @0x8
0x2db4…2dbf at0009 = ╱22╱"╱ // 0x2dbd @0x9
0x2db4…2dbf at000a = EOL // 0x2dbe @0xa
0x2db4…2dbf }
0x2dbf…2dcf c3bd 4640 // DO NOTHING
0x2dbf…2dcf LineComal80 {
0x2dbf…2dcf ptr = 0xc3bd // 0x2dbf @0x0
0x2dbf…2dcf lno = 0x1220 // 0x2dc1 @0x2
0x2dbf…2dcf at0004 = ╱89╱ // ╱ // 0x2dc3 @0x4
0x2dbf…2dcf at0005 = ╱44╱D╱ // 0x2dc4 @0x5
0x2dbf…2dcf at0006 = ╱4f╱O╱ // 0x2dc5 @0x6
0x2dbf…2dcf at0007 = ╱20╱…╱ // 0x2dc6 @0x7
0x2dbf…2dcf at0008 = ╱4e╱N╱ // 0x2dc7 @0x8
0x2dbf…2dcf at0009 = ╱4f╱O╱ // 0x2dc8 @0x9
0x2dbf…2dcf at000a = ╱54╱T╱ // 0x2dc9 @0xa
0x2dbf…2dcf at000b = ╱48╱H╱ // 0x2dca @0xb
0x2dbf…2dcf at000c = ╱49╱I╱ // 0x2dcb @0xc
0x2dbf…2dcf at000d = ╱4e╱N╱ // 0x2dcc @0xd
0x2dbf…2dcf at000e = ╱47╱G╱ // 0x2dcd @0xe
0x2dbf…2dcf at000f = EOL // 0x2dce @0xf
0x2dbf…2dcf }
0x2dcf…2ddf c3cd 4650 LET T_IDX := 1
0x2dcf…2ddf LineComal80 {
0x2dcf…2ddf ptr = 0xc3cd // 0x2dcf @0x0
0x2dcf…2ddf lno = 0x122a // 0x2dd1 @0x2
0x2dcf…2ddf at0004 = ╱86╱ LET ╱ // 0x2dd3 @0x4
0x2dcf…2ddf at0005 = ╱54╱T╱ // 0x2dd4 @0x5
0x2dcf…2ddf at0006 = ╱5f╱_╱ // 0x2dd5 @0x6
0x2dcf…2ddf at0007 = ╱49╱I╱ // 0x2dd6 @0x7
0x2dcf…2ddf at0008 = ╱44╱D╱ // 0x2dd7 @0x8
0x2dcf…2ddf at0009 = ╱58╱X╱ // 0x2dd8 @0x9
0x2dcf…2ddf at000a = ╱f0╱ := ╱ // 0x2dd9 @0xa
0x2dcf…2ddf at000b = ╱31╱1╱ // 0x2dda @0xb
0x2dcf…2ddf at000c = ╱f20100╱ // 0x2ddb @0xc
0x2dcf…2ddf at000f = EOL // 0x2dde @0xf
0x2dcf…2ddf }
0x2ddf…2dea c3d8 4660 WHILE "B"
0x2ddf…2dea LineComal80 {
0x2ddf…2dea ptr = 0xc3d8 // 0x2ddf @0x0
0x2ddf…2dea lno = 0x1234 // 0x2de1 @0x2
0x2ddf…2dea at0004 = ╱a45300╱ WHILE ╱ // 0x2de3 @0x4
0x2ddf…2dea at0007 = ╱22╱"╱ // 0x2de6 @0x7
0x2ddf…2dea at0008 = ╱42╱B╱ // 0x2de7 @0x8
0x2ddf…2dea at0009 = ╱22╱"╱ // 0x2de8 @0x9
0x2ddf…2dea at000a = EOL // 0x2de9 @0xa
0x2ddf…2dea }
0x2dea…2df9 c3e7 4670 PRINT TAB(25) ;
0x2dea…2df9 LineComal80 {
0x2dea…2df9 ptr = 0xc3e7 // 0x2dea @0x0
0x2dea…2df9 lno = 0x123e // 0x2dec @0x2
0x2dea…2df9 at0004 = ╱92╱ PRINT ╱ // 0x2dee @0x4
0x2dea…2df9 at0005 = ╱d2╱TAB╱ // 0x2def @0x5
0x2dea…2df9 at0006 = ╱ed╱(╱ // 0x2df0 @0x6
0x2dea…2df9 at0007 = ╱32╱2╱ // 0x2df1 @0x7
0x2dea…2df9 at0008 = ╱35╱5╱ // 0x2df2 @0x8
0x2dea…2df9 at0009 = ╱f21900╱ // 0x2df3 @0x9
0x2dea…2df9 at000c = ╱ee╱)╱ // 0x2df6 @0xc
0x2dea…2df9 at000d = ╱ea╱ ; ╱ // 0x2df7 @0xd
0x2dea…2df9 at000e = EOL // 0x2df8 @0xe
0x2dea…2df9 }
0x2df9…2e09 c3f7 4680 LET T_IDX := 3
0x2df9…2e09 LineComal80 {
0x2df9…2e09 ptr = 0xc3f7 // 0x2df9 @0x0
0x2df9…2e09 lno = 0x1248 // 0x2dfb @0x2
0x2df9…2e09 at0004 = ╱86╱ LET ╱ // 0x2dfd @0x4
0x2df9…2e09 at0005 = ╱54╱T╱ // 0x2dfe @0x5
0x2df9…2e09 at0006 = ╱5f╱_╱ // 0x2dff @0x6
0x2df9…2e09 at0007 = ╱49╱I╱ // 0x2e00 @0x7
0x2df9…2e09 at0008 = ╱44╱D╱ // 0x2e01 @0x8
0x2df9…2e09 at0009 = ╱58╱X╱ // 0x2e02 @0x9
0x2df9…2e09 at000a = ╱f0╱ := ╱ // 0x2e03 @0xa
0x2df9…2e09 at000b = ╱33╱3╱ // 0x2e04 @0xb
0x2df9…2e09 at000c = ╱f20300╱ // 0x2e05 @0xc
0x2df9…2e09 at000f = EOL // 0x2e08 @0xf
0x2df9…2e09 }
0x2e09…2e14 c402 4690 WHILE "G"
0x2e09…2e14 LineComal80 {
0x2e09…2e14 ptr = 0xc402 // 0x2e09 @0x0
0x2e09…2e14 lno = 0x1252 // 0x2e0b @0x2
0x2e09…2e14 at0004 = ╱a45400╱ WHILE ╱ // 0x2e0d @0x4
0x2e09…2e14 at0007 = ╱22╱"╱ // 0x2e10 @0x7
0x2e09…2e14 at0008 = ╱47╱G╱ // 0x2e11 @0x8
0x2e09…2e14 at0009 = ╱22╱"╱ // 0x2e12 @0x9
0x2e09…2e14 at000a = EOL // 0x2e13 @0xa
0x2e09…2e14 }
0x2e14…2e23 c411 4700 PRINT TAB(49) ;
0x2e14…2e23 LineComal80 {
0x2e14…2e23 ptr = 0xc411 // 0x2e14 @0x0
0x2e14…2e23 lno = 0x125c // 0x2e16 @0x2
0x2e14…2e23 at0004 = ╱92╱ PRINT ╱ // 0x2e18 @0x4
0x2e14…2e23 at0005 = ╱d2╱TAB╱ // 0x2e19 @0x5
0x2e14…2e23 at0006 = ╱ed╱(╱ // 0x2e1a @0x6
0x2e14…2e23 at0007 = ╱34╱4╱ // 0x2e1b @0x7
0x2e14…2e23 at0008 = ╱39╱9╱ // 0x2e1c @0x8
0x2e14…2e23 at0009 = ╱f23100╱ // 0x2e1d @0x9
0x2e14…2e23 at000c = ╱ee╱)╱ // 0x2e20 @0xc
0x2e14…2e23 at000d = ╱ea╱ ; ╱ // 0x2e21 @0xd
0x2e14…2e23 at000e = EOL // 0x2e22 @0xe
0x2e14…2e23 }
0x2e23…2e33 c421 4710 LET T_IDX := 5
0x2e23…2e33 LineComal80 {
0x2e23…2e33 ptr = 0xc421 // 0x2e23 @0x0
0x2e23…2e33 lno = 0x1266 // 0x2e25 @0x2
0x2e23…2e33 at0004 = ╱86╱ LET ╱ // 0x2e27 @0x4
0x2e23…2e33 at0005 = ╱54╱T╱ // 0x2e28 @0x5
0x2e23…2e33 at0006 = ╱5f╱_╱ // 0x2e29 @0x6
0x2e23…2e33 at0007 = ╱49╱I╱ // 0x2e2a @0x7
0x2e23…2e33 at0008 = ╱44╱D╱ // 0x2e2b @0x8
0x2e23…2e33 at0009 = ╱58╱X╱ // 0x2e2c @0x9
0x2e23…2e33 at000a = ╱f0╱ := ╱ // 0x2e2d @0xa
0x2e23…2e33 at000b = ╱35╱5╱ // 0x2e2e @0xb
0x2e23…2e33 at000c = ╱f20500╱ // 0x2e2f @0xc
0x2e23…2e33 at000f = EOL // 0x2e32 @0xf
0x2e23…2e33 }
0x2e33…2e39 c427 4720 ENDCASE
0x2e33…2e39 LineComal80 {
0x2e33…2e39 ptr = 0xc427 // 0x2e33 @0x0
0x2e33…2e39 lno = 0x1270 // 0x2e35 @0x2
0x2e33…2e39 at0004 = ╱a3╱ ENDCASE ╱ // 0x2e37 @0x4
0x2e33…2e39 at0005 = EOL // 0x2e38 @0x5
0x2e33…2e39 }
0x2e39…2e4b c439 4730 IF _DK = DEBET THEN
0x2e39…2e4b LineComal80 {
0x2e39…2e4b ptr = 0xc439 // 0x2e39 @0x0
0x2e39…2e4b lno = 0x127a // 0x2e3b @0x2
0x2e39…2e4b at0004 = ╱9b554b╱ IF ╱ // 0x2e3d @0x4
0x2e39…2e4b at0007 = ╱5f╱_╱ // 0x2e40 @0x7
0x2e39…2e4b at0008 = ╱44╱D╱ // 0x2e41 @0x8
0x2e39…2e4b at0009 = ╱4b╱K╱ // 0x2e42 @0x9
0x2e39…2e4b at000a = ╱df╱ = ╱ // 0x2e43 @0xa
0x2e39…2e4b at000b = ╱44╱D╱ // 0x2e44 @0xb
0x2e39…2e4b at000c = ╱45╱E╱ // 0x2e45 @0xc
0x2e39…2e4b at000d = ╱42╱B╱ // 0x2e46 @0xd
0x2e39…2e4b at000e = ╱45╱E╱ // 0x2e47 @0xe
0x2e39…2e4b at000f = ╱54╱T╱ // 0x2e48 @0xf
0x2e39…2e4b at0010 = ╱b5╱ THEN ╱ // 0x2e49 @0x10
0x2e39…2e4b at0011 = EOL // 0x2e4a @0x11
0x2e39…2e4b }
0x2e4b…2e66 c454 4740 PRINT USING "########.##" : K_BKR ;
0x2e4b…2e66 LineComal80 {
0x2e4b…2e66 ptr = 0xc454 // 0x2e4b @0x0
0x2e4b…2e66 lno = 0x1284 // 0x2e4d @0x2
0x2e4b…2e66 at0004 = ╱92╱ PRINT ╱ // 0x2e4f @0x4
0x2e4b…2e66 at0005 = ╱b9╱ USING ╱ // 0x2e50 @0x5
0x2e4b…2e66 at0006 = ╱22╱"╱ // 0x2e51 @0x6
0x2e4b…2e66 at0007 = ╱23╱#╱ // 0x2e52 @0x7
0x2e4b…2e66 at0008 = ╱23╱#╱ // 0x2e53 @0x8
0x2e4b…2e66 at0009 = ╱23╱#╱ // 0x2e54 @0x9
0x2e4b…2e66 at000a = ╱23╱#╱ // 0x2e55 @0xa
0x2e4b…2e66 at000b = ╱23╱#╱ // 0x2e56 @0xb
0x2e4b…2e66 at000c = ╱23╱#╱ // 0x2e57 @0xc
0x2e4b…2e66 at000d = ╱23╱#╱ // 0x2e58 @0xd
0x2e4b…2e66 at000e = ╱23╱#╱ // 0x2e59 @0xe
0x2e4b…2e66 at000f = ╱2e╱.╱ // 0x2e5a @0xf
0x2e4b…2e66 at0010 = ╱23╱#╱ // 0x2e5b @0x10
0x2e4b…2e66 at0011 = ╱23╱#╱ // 0x2e5c @0x11
0x2e4b…2e66 at0012 = ╱22╱"╱ // 0x2e5d @0x12
0x2e4b…2e66 at0013 = ╱f1╱ : ╱ // 0x2e5e @0x13
0x2e4b…2e66 at0014 = ╱4b╱K╱ // 0x2e5f @0x14
0x2e4b…2e66 at0015 = ╱5f╱_╱ // 0x2e60 @0x15
0x2e4b…2e66 at0016 = ╱42╱B╱ // 0x2e61 @0x16
0x2e4b…2e66 at0017 = ╱4b╱K╱ // 0x2e62 @0x17
0x2e4b…2e66 at0018 = ╱52╱R╱ // 0x2e63 @0x18
0x2e4b…2e66 at0019 = ╱ea╱ ; ╱ // 0x2e64 @0x19
0x2e4b…2e66 at001a = EOL // 0x2e65 @0x1a
0x2e4b…2e66 }
0x2e66…2e87 c475 4750 LET TOT(T_IDX) := TOT(T_IDX) + K_BKR
0x2e66…2e87 LineComal80 {
0x2e66…2e87 ptr = 0xc475 // 0x2e66 @0x0
0x2e66…2e87 lno = 0x128e // 0x2e68 @0x2
0x2e66…2e87 at0004 = ╱86╱ LET ╱ // 0x2e6a @0x4
0x2e66…2e87 at0005 = ╱54╱T╱ // 0x2e6b @0x5
0x2e66…2e87 at0006 = ╱4f╱O╱ // 0x2e6c @0x6
0x2e66…2e87 at0007 = ╱54╱T╱ // 0x2e6d @0x7
0x2e66…2e87 at0008 = ╱ed╱(╱ // 0x2e6e @0x8
0x2e66…2e87 at0009 = ╱54╱T╱ // 0x2e6f @0x9
0x2e66…2e87 at000a = ╱5f╱_╱ // 0x2e70 @0xa
0x2e66…2e87 at000b = ╱49╱I╱ // 0x2e71 @0xb
0x2e66…2e87 at000c = ╱44╱D╱ // 0x2e72 @0xc
0x2e66…2e87 at000d = ╱58╱X╱ // 0x2e73 @0xd
0x2e66…2e87 at000e = ╱ee╱)╱ // 0x2e74 @0xe
0x2e66…2e87 at000f = ╱f0╱ := ╱ // 0x2e75 @0xf
0x2e66…2e87 at0010 = ╱54╱T╱ // 0x2e76 @0x10
0x2e66…2e87 at0011 = ╱4f╱O╱ // 0x2e77 @0x11
0x2e66…2e87 at0012 = ╱54╱T╱ // 0x2e78 @0x12
0x2e66…2e87 at0013 = ╱ed╱(╱ // 0x2e79 @0x13
0x2e66…2e87 at0014 = ╱54╱T╱ // 0x2e7a @0x14
0x2e66…2e87 at0015 = ╱5f╱_╱ // 0x2e7b @0x15
0x2e66…2e87 at0016 = ╱49╱I╱ // 0x2e7c @0x16
0x2e66…2e87 at0017 = ╱44╱D╱ // 0x2e7d @0x17
0x2e66…2e87 at0018 = ╱58╱X╱ // 0x2e7e @0x18
0x2e66…2e87 at0019 = ╱ee╱)╱ // 0x2e7f @0x19
0x2e66…2e87 at001a = ╱e5╱ + ╱ // 0x2e80 @0x1a
0x2e66…2e87 at001b = ╱4b╱K╱ // 0x2e81 @0x1b
0x2e66…2e87 at001c = ╱5f╱_╱ // 0x2e82 @0x1c
0x2e66…2e87 at001d = ╱42╱B╱ // 0x2e83 @0x1d
0x2e66…2e87 at001e = ╱4b╱K╱ // 0x2e84 @0x1e
0x2e66…2e87 at001f = ╱52╱R╱ // 0x2e85 @0x1f
0x2e66…2e87 at0020 = EOL // 0x2e86 @0x20
0x2e66…2e87 }
0x2e87…2e8e c47c 4760 ELSE
0x2e87…2e8e LineComal80 {
0x2e87…2e8e ptr = 0xc47c // 0x2e87 @0x0
0x2e87…2e8e lno = 0x1298 // 0x2e89 @0x2
0x2e87…2e8e at0004 = ╱9a56╱ ELSE ╱ // 0x2e8b @0x4
0x2e87…2e8e at0006 = EOL // 0x2e8d @0x6
0x2e87…2e8e }
0x2e8e…2eb5 c4a3 4770 PRINT USING " #######.##" : K_BKR ;
0x2e8e…2eb5 LineComal80 {
0x2e8e…2eb5 ptr = 0xc4a3 // 0x2e8e @0x0
0x2e8e…2eb5 lno = 0x12a2 // 0x2e90 @0x2
0x2e8e…2eb5 at0004 = ╱92╱ PRINT ╱ // 0x2e92 @0x4
0x2e8e…2eb5 at0005 = ╱b9╱ USING ╱ // 0x2e93 @0x5
0x2e8e…2eb5 at0006 = ╱22╱"╱ // 0x2e94 @0x6
0x2e8e…2eb5 at0007 = ╱20╱…╱ // 0x2e95 @0x7
0x2e8e…2eb5 at0008 = ╱20╱…╱ // 0x2e96 @0x8
0x2e8e…2eb5 at0009 = ╱20╱…╱ // 0x2e97 @0x9
0x2e8e…2eb5 at000a = ╱20╱…╱ // 0x2e98 @0xa
0x2e8e…2eb5 at000b = ╱20╱…╱ // 0x2e99 @0xb
0x2e8e…2eb5 at000c = ╱20╱…╱ // 0x2e9a @0xc
0x2e8e…2eb5 at000d = ╱20╱…╱ // 0x2e9b @0xd
0x2e8e…2eb5 at000e = ╱20╱…╱ // 0x2e9c @0xe
0x2e8e…2eb5 at000f = ╱20╱…╱ // 0x2e9d @0xf
0x2e8e…2eb5 at0010 = ╱20╱…╱ // 0x2e9e @0x10
0x2e8e…2eb5 at0011 = ╱20╱…╱ // 0x2e9f @0x11
0x2e8e…2eb5 at0012 = ╱20╱…╱ // 0x2ea0 @0x12
0x2e8e…2eb5 at0013 = ╱20╱…╱ // 0x2ea1 @0x13
0x2e8e…2eb5 at0014 = ╱23╱#╱ // 0x2ea2 @0x14
0x2e8e…2eb5 at0015 = ╱23╱#╱ // 0x2ea3 @0x15
0x2e8e…2eb5 at0016 = ╱23╱#╱ // 0x2ea4 @0x16
0x2e8e…2eb5 at0017 = ╱23╱#╱ // 0x2ea5 @0x17
0x2e8e…2eb5 at0018 = ╱23╱#╱ // 0x2ea6 @0x18
0x2e8e…2eb5 at0019 = ╱23╱#╱ // 0x2ea7 @0x19
0x2e8e…2eb5 at001a = ╱23╱#╱ // 0x2ea8 @0x1a
0x2e8e…2eb5 at001b = ╱2e╱.╱ // 0x2ea9 @0x1b
0x2e8e…2eb5 at001c = ╱23╱#╱ // 0x2eaa @0x1c
0x2e8e…2eb5 at001d = ╱23╱#╱ // 0x2eab @0x1d
0x2e8e…2eb5 at001e = ╱22╱"╱ // 0x2eac @0x1e
0x2e8e…2eb5 at001f = ╱f1╱ : ╱ // 0x2ead @0x1f
0x2e8e…2eb5 at0020 = ╱4b╱K╱ // 0x2eae @0x20
0x2e8e…2eb5 at0021 = ╱5f╱_╱ // 0x2eaf @0x21
0x2e8e…2eb5 at0022 = ╱42╱B╱ // 0x2eb0 @0x22
0x2e8e…2eb5 at0023 = ╱4b╱K╱ // 0x2eb1 @0x23
0x2e8e…2eb5 at0024 = ╱52╱R╱ // 0x2eb2 @0x24
0x2e8e…2eb5 at0025 = ╱ea╱ ; ╱ // 0x2eb3 @0x25
0x2e8e…2eb5 at0026 = EOL // 0x2eb4 @0x26
0x2e8e…2eb5 }
0x2eb5…2ee0 c4ce 4780 LET TOT(T_IDX + 1) := TOT(T_IDX + 1) + K_BKR
0x2eb5…2ee0 LineComal80 {
0x2eb5…2ee0 ptr = 0xc4ce // 0x2eb5 @0x0
0x2eb5…2ee0 lno = 0x12ac // 0x2eb7 @0x2
0x2eb5…2ee0 at0004 = ╱86╱ LET ╱ // 0x2eb9 @0x4
0x2eb5…2ee0 at0005 = ╱54╱T╱ // 0x2eba @0x5
0x2eb5…2ee0 at0006 = ╱4f╱O╱ // 0x2ebb @0x6
0x2eb5…2ee0 at0007 = ╱54╱T╱ // 0x2ebc @0x7
0x2eb5…2ee0 at0008 = ╱ed╱(╱ // 0x2ebd @0x8
0x2eb5…2ee0 at0009 = ╱54╱T╱ // 0x2ebe @0x9
0x2eb5…2ee0 at000a = ╱5f╱_╱ // 0x2ebf @0xa
0x2eb5…2ee0 at000b = ╱49╱I╱ // 0x2ec0 @0xb
0x2eb5…2ee0 at000c = ╱44╱D╱ // 0x2ec1 @0xc
0x2eb5…2ee0 at000d = ╱58╱X╱ // 0x2ec2 @0xd
0x2eb5…2ee0 at000e = ╱e5╱ + ╱ // 0x2ec3 @0xe
0x2eb5…2ee0 at000f = ╱31╱1╱ // 0x2ec4 @0xf
0x2eb5…2ee0 at0010 = ╱f20100╱ // 0x2ec5 @0x10
0x2eb5…2ee0 at0013 = ╱ee╱)╱ // 0x2ec8 @0x13
0x2eb5…2ee0 at0014 = ╱f0╱ := ╱ // 0x2ec9 @0x14
0x2eb5…2ee0 at0015 = ╱54╱T╱ // 0x2eca @0x15
0x2eb5…2ee0 at0016 = ╱4f╱O╱ // 0x2ecb @0x16
0x2eb5…2ee0 at0017 = ╱54╱T╱ // 0x2ecc @0x17
0x2eb5…2ee0 at0018 = ╱ed╱(╱ // 0x2ecd @0x18
0x2eb5…2ee0 at0019 = ╱54╱T╱ // 0x2ece @0x19
0x2eb5…2ee0 at001a = ╱5f╱_╱ // 0x2ecf @0x1a
0x2eb5…2ee0 at001b = ╱49╱I╱ // 0x2ed0 @0x1b
0x2eb5…2ee0 at001c = ╱44╱D╱ // 0x2ed1 @0x1c
0x2eb5…2ee0 at001d = ╱58╱X╱ // 0x2ed2 @0x1d
0x2eb5…2ee0 at001e = ╱e5╱ + ╱ // 0x2ed3 @0x1e
0x2eb5…2ee0 at001f = ╱31╱1╱ // 0x2ed4 @0x1f
0x2eb5…2ee0 at0020 = ╱f20100╱ // 0x2ed5 @0x20
0x2eb5…2ee0 at0023 = ╱ee╱)╱ // 0x2ed8 @0x23
0x2eb5…2ee0 at0024 = ╱e5╱ + ╱ // 0x2ed9 @0x24
0x2eb5…2ee0 at0025 = ╱4b╱K╱ // 0x2eda @0x25
0x2eb5…2ee0 at0026 = ╱5f╱_╱ // 0x2edb @0x26
0x2eb5…2ee0 at0027 = ╱42╱B╱ // 0x2edc @0x27
0x2eb5…2ee0 at0028 = ╱4b╱K╱ // 0x2edd @0x28
0x2eb5…2ee0 at0029 = ╱52╱R╱ // 0x2ede @0x29
0x2eb5…2ee0 at002a = EOL // 0x2edf @0x2a
0x2eb5…2ee0 }
0x2ee0…2ee6 c4d4 4790 ENDIF
0x2ee0…2ee6 LineComal80 {
0x2ee0…2ee6 ptr = 0xc4d4 // 0x2ee0 @0x0
0x2ee0…2ee6 lno = 0x12b6 // 0x2ee2 @0x2
0x2ee0…2ee6 at0004 = ╱9c╱ ENDIF ╱ // 0x2ee4 @0x4
0x2ee0…2ee6 at0005 = EOL // 0x2ee5 @0x5
0x2ee0…2ee6 }
0x2ee6…2f24 c512 4800 IF _BKTO$ + "/" IN KASSE_KTO$ + "/" + BANK_KTO$ + "/" + GIRO_KTO$ + "/" THEN
0x2ee6…2f24 LineComal80 {
0x2ee6…2f24 ptr = 0xc512 // 0x2ee6 @0x0
0x2ee6…2f24 lno = 0x12c0 // 0x2ee8 @0x2
0x2ee6…2f24 at0004 = ╱9b574b╱ IF ╱ // 0x2eea @0x4
0x2ee6…2f24 at0007 = ╱5f╱_╱ // 0x2eed @0x7
0x2ee6…2f24 at0008 = ╱42╱B╱ // 0x2eee @0x8
0x2ee6…2f24 at0009 = ╱4b╱K╱ // 0x2eef @0x9
0x2ee6…2f24 at000a = ╱54╱T╱ // 0x2ef0 @0xa
0x2ee6…2f24 at000b = ╱4f╱O╱ // 0x2ef1 @0xb
0x2ee6…2f24 at000c = ╱ef╱$╱ // 0x2ef2 @0xc
0x2ee6…2f24 at000d = ╱eb╱ + ╱ // 0x2ef3 @0xd
0x2ee6…2f24 at000e = ╱22╱"╱ // 0x2ef4 @0xe
0x2ee6…2f24 at000f = ╱2f╱/╱ // 0x2ef5 @0xf
0x2ee6…2f24 at0010 = ╱22╱"╱ // 0x2ef6 @0x10
0x2ee6…2f24 at0011 = ╱dc╱ IN ╱ // 0x2ef7 @0x11
0x2ee6…2f24 at0012 = ╱4b╱K╱ // 0x2ef8 @0x12
0x2ee6…2f24 at0013 = ╱41╱A╱ // 0x2ef9 @0x13
0x2ee6…2f24 at0014 = ╱53╱S╱ // 0x2efa @0x14
0x2ee6…2f24 at0015 = ╱53╱S╱ // 0x2efb @0x15
0x2ee6…2f24 at0016 = ╱45╱E╱ // 0x2efc @0x16
0x2ee6…2f24 at0017 = ╱5f╱_╱ // 0x2efd @0x17
0x2ee6…2f24 at0018 = ╱4b╱K╱ // 0x2efe @0x18
0x2ee6…2f24 at0019 = ╱54╱T╱ // 0x2eff @0x19
0x2ee6…2f24 at001a = ╱4f╱O╱ // 0x2f00 @0x1a
0x2ee6…2f24 at001b = ╱ef╱$╱ // 0x2f01 @0x1b
0x2ee6…2f24 at001c = ╱eb╱ + ╱ // 0x2f02 @0x1c
0x2ee6…2f24 at001d = ╱22╱"╱ // 0x2f03 @0x1d
0x2ee6…2f24 at001e = ╱2f╱/╱ // 0x2f04 @0x1e
0x2ee6…2f24 at001f = ╱22╱"╱ // 0x2f05 @0x1f
0x2ee6…2f24 at0020 = ╱eb╱ + ╱ // 0x2f06 @0x20
0x2ee6…2f24 at0021 = ╱42╱B╱ // 0x2f07 @0x21
0x2ee6…2f24 at0022 = ╱41╱A╱ // 0x2f08 @0x22
0x2ee6…2f24 at0023 = ╱4e╱N╱ // 0x2f09 @0x23
0x2ee6…2f24 at0024 = ╱4b╱K╱ // 0x2f0a @0x24
0x2ee6…2f24 at0025 = ╱5f╱_╱ // 0x2f0b @0x25
0x2ee6…2f24 at0026 = ╱4b╱K╱ // 0x2f0c @0x26
0x2ee6…2f24 at0027 = ╱54╱T╱ // 0x2f0d @0x27
0x2ee6…2f24 at0028 = ╱4f╱O╱ // 0x2f0e @0x28
0x2ee6…2f24 at0029 = ╱ef╱$╱ // 0x2f0f @0x29
0x2ee6…2f24 at002a = ╱eb╱ + ╱ // 0x2f10 @0x2a
0x2ee6…2f24 at002b = ╱22╱"╱ // 0x2f11 @0x2b
0x2ee6…2f24 at002c = ╱2f╱/╱ // 0x2f12 @0x2c
0x2ee6…2f24 at002d = ╱22╱"╱ // 0x2f13 @0x2d
0x2ee6…2f24 at002e = ╱eb╱ + ╱ // 0x2f14 @0x2e
0x2ee6…2f24 at002f = ╱47╱G╱ // 0x2f15 @0x2f
0x2ee6…2f24 at0030 = ╱49╱I╱ // 0x2f16 @0x30
0x2ee6…2f24 at0031 = ╱52╱R╱ // 0x2f17 @0x31
0x2ee6…2f24 at0032 = ╱4f╱O╱ // 0x2f18 @0x32
0x2ee6…2f24 at0033 = ╱5f╱_╱ // 0x2f19 @0x33
0x2ee6…2f24 at0034 = ╱4b╱K╱ // 0x2f1a @0x34
0x2ee6…2f24 at0035 = ╱54╱T╱ // 0x2f1b @0x35
0x2ee6…2f24 at0036 = ╱4f╱O╱ // 0x2f1c @0x36
0x2ee6…2f24 at0037 = ╱ef╱$╱ // 0x2f1d @0x37
0x2ee6…2f24 at0038 = ╱eb╱ + ╱ // 0x2f1e @0x38
0x2ee6…2f24 at0039 = ╱22╱"╱ // 0x2f1f @0x39
0x2ee6…2f24 at003a = ╱2f╱/╱ // 0x2f20 @0x3a
0x2ee6…2f24 at003b = ╱22╱"╱ // 0x2f21 @0x3b
0x2ee6…2f24 at003c = ╱b5╱ THEN ╱ // 0x2f22 @0x3c
0x2ee6…2f24 at003d = EOL // 0x2f23 @0x3d
0x2ee6…2f24 }
0x2f24…2f2f c51d 4810 PRINT "<N>"
0x2f24…2f2f LineComal80 {
0x2f24…2f2f ptr = 0xc51d // 0x2f24 @0x0
0x2f24…2f2f lno = 0x12ca // 0x2f26 @0x2
0x2f24…2f2f at0004 = ╱92╱ PRINT ╱ // 0x2f28 @0x4
0x2f24…2f2f at0005 = ╱22╱"╱ // 0x2f29 @0x5
0x2f24…2f2f at0006 = ╱3c╱<╱ // 0x2f2a @0x6
0x2f24…2f2f at0007 = ╱4e╱N╱ // 0x2f2b @0x7
0x2f24…2f2f at0008 = ╱3e╱>╱ // 0x2f2c @0x8
0x2f24…2f2f at0009 = ╱22╱"╱ // 0x2f2d @0x9
0x2f24…2f2f at000a = EOL // 0x2f2e @0xa
0x2f24…2f2f }
0x2f2f…2f43 c531 4820 PRINT "<S>" ; TAB(36)
0x2f2f…2f43 LineComal80 {
0x2f2f…2f43 ptr = 0xc531 // 0x2f2f @0x0
0x2f2f…2f43 lno = 0x12d4 // 0x2f31 @0x2
0x2f2f…2f43 at0004 = ╱92╱ PRINT ╱ // 0x2f33 @0x4
0x2f2f…2f43 at0005 = ╱22╱"╱ // 0x2f34 @0x5
0x2f2f…2f43 at0006 = ╱3c╱<╱ // 0x2f35 @0x6
0x2f2f…2f43 at0007 = ╱53╱S╱ // 0x2f36 @0x7
0x2f2f…2f43 at0008 = ╱3e╱>╱ // 0x2f37 @0x8
0x2f2f…2f43 at0009 = ╱22╱"╱ // 0x2f38 @0x9
0x2f2f…2f43 at000a = ╱ea╱ ; ╱ // 0x2f39 @0xa
0x2f2f…2f43 at000b = ╱d2╱TAB╱ // 0x2f3a @0xb
0x2f2f…2f43 at000c = ╱ed╱(╱ // 0x2f3b @0xc
0x2f2f…2f43 at000d = ╱33╱3╱ // 0x2f3c @0xd
0x2f2f…2f43 at000e = ╱36╱6╱ // 0x2f3d @0xe
0x2f2f…2f43 at000f = ╱f22400╱ // 0x2f3e @0xf
0x2f2f…2f43 at0012 = ╱ee╱)╱ // 0x2f41 @0x12
0x2f2f…2f43 at0013 = EOL // 0x2f42 @0x13
0x2f2f…2f43 }
0x2f43…2f53 c541 4830 CASE K_BKTO$ OF
0x2f43…2f53 LineComal80 {
0x2f43…2f53 ptr = 0xc541 // 0x2f43 @0x0
0x2f43…2f53 lno = 0x12de // 0x2f45 @0x2
0x2f43…2f53 at0004 = ╱a25800╱ CASE ╱ // 0x2f47 @0x4
0x2f43…2f53 at0007 = ╱4b╱K╱ // 0x2f4a @0x7
0x2f43…2f53 at0008 = ╱5f╱_╱ // 0x2f4b @0x8
0x2f43…2f53 at0009 = ╱42╱B╱ // 0x2f4c @0x9
0x2f43…2f53 at000a = ╱4b╱K╱ // 0x2f4d @0xa
0x2f43…2f53 at000b = ╱54╱T╱ // 0x2f4e @0xb
0x2f43…2f53 at000c = ╱4f╱O╱ // 0x2f4f @0xc
0x2f43…2f53 at000d = ╱ef╱$╱ // 0x2f50 @0xd
0x2f43…2f53 at000e = ╱ba╱ OF ╱ // 0x2f51 @0xe
0x2f43…2f53 at000f = EOL // 0x2f52 @0xf
0x2f43…2f53 }
0x2f53…2f65 c553 4840 WHILE KASSE_KTO$
0x2f53…2f65 LineComal80 {
0x2f53…2f65 ptr = 0xc553 // 0x2f53 @0x0
0x2f53…2f65 lno = 0x12e8 // 0x2f55 @0x2
0x2f53…2f65 at0004 = ╱a45900╱ WHILE ╱ // 0x2f57 @0x4
0x2f53…2f65 at0007 = ╱4b╱K╱ // 0x2f5a @0x7
0x2f53…2f65 at0008 = ╱41╱A╱ // 0x2f5b @0x8
0x2f53…2f65 at0009 = ╱53╱S╱ // 0x2f5c @0x9
0x2f53…2f65 at000a = ╱53╱S╱ // 0x2f5d @0xa
0x2f53…2f65 at000b = ╱45╱E╱ // 0x2f5e @0xb
0x2f53…2f65 at000c = ╱5f╱_╱ // 0x2f5f @0xc
0x2f53…2f65 at000d = ╱4b╱K╱ // 0x2f60 @0xd
0x2f53…2f65 at000e = ╱54╱T╱ // 0x2f61 @0xe
0x2f53…2f65 at000f = ╱4f╱O╱ // 0x2f62 @0xf
0x2f53…2f65 at0010 = ╱ef╱$╱ // 0x2f63 @0x10
0x2f53…2f65 at0011 = EOL // 0x2f64 @0x11
0x2f53…2f65 }
0x2f65…2f75 c563 4850 // DO NOTHING
0x2f65…2f75 LineComal80 {
0x2f65…2f75 ptr = 0xc563 // 0x2f65 @0x0
0x2f65…2f75 lno = 0x12f2 // 0x2f67 @0x2
0x2f65…2f75 at0004 = ╱89╱ // ╱ // 0x2f69 @0x4
0x2f65…2f75 at0005 = ╱44╱D╱ // 0x2f6a @0x5
0x2f65…2f75 at0006 = ╱4f╱O╱ // 0x2f6b @0x6
0x2f65…2f75 at0007 = ╱20╱…╱ // 0x2f6c @0x7
0x2f65…2f75 at0008 = ╱4e╱N╱ // 0x2f6d @0x8
0x2f65…2f75 at0009 = ╱4f╱O╱ // 0x2f6e @0x9
0x2f65…2f75 at000a = ╱54╱T╱ // 0x2f6f @0xa
0x2f65…2f75 at000b = ╱48╱H╱ // 0x2f70 @0xb
0x2f65…2f75 at000c = ╱49╱I╱ // 0x2f71 @0xc
0x2f65…2f75 at000d = ╱4e╱N╱ // 0x2f72 @0xd
0x2f65…2f75 at000e = ╱47╱G╱ // 0x2f73 @0xe
0x2f65…2f75 at000f = EOL // 0x2f74 @0xf
0x2f65…2f75 }
0x2f75…2f85 c573 4860 LET T_IDX := 1
0x2f75…2f85 LineComal80 {
0x2f75…2f85 ptr = 0xc573 // 0x2f75 @0x0
0x2f75…2f85 lno = 0x12fc // 0x2f77 @0x2
0x2f75…2f85 at0004 = ╱86╱ LET ╱ // 0x2f79 @0x4
0x2f75…2f85 at0005 = ╱54╱T╱ // 0x2f7a @0x5
0x2f75…2f85 at0006 = ╱5f╱_╱ // 0x2f7b @0x6
0x2f75…2f85 at0007 = ╱49╱I╱ // 0x2f7c @0x7
0x2f75…2f85 at0008 = ╱44╱D╱ // 0x2f7d @0x8
0x2f75…2f85 at0009 = ╱58╱X╱ // 0x2f7e @0x9
0x2f75…2f85 at000a = ╱f0╱ := ╱ // 0x2f7f @0xa
0x2f75…2f85 at000b = ╱31╱1╱ // 0x2f80 @0xb
0x2f75…2f85 at000c = ╱f20100╱ // 0x2f81 @0xc
0x2f75…2f85 at000f = EOL // 0x2f84 @0xf
0x2f75…2f85 }
0x2f85…2f96 c584 4870 WHILE BANK_KTO$
0x2f85…2f96 LineComal80 {
0x2f85…2f96 ptr = 0xc584 // 0x2f85 @0x0
0x2f85…2f96 lno = 0x1306 // 0x2f87 @0x2
0x2f85…2f96 at0004 = ╱a45a00╱ WHILE ╱ // 0x2f89 @0x4
0x2f85…2f96 at0007 = ╱42╱B╱ // 0x2f8c @0x7
0x2f85…2f96 at0008 = ╱41╱A╱ // 0x2f8d @0x8
0x2f85…2f96 at0009 = ╱4e╱N╱ // 0x2f8e @0x9
0x2f85…2f96 at000a = ╱4b╱K╱ // 0x2f8f @0xa
0x2f85…2f96 at000b = ╱5f╱_╱ // 0x2f90 @0xb
0x2f85…2f96 at000c = ╱4b╱K╱ // 0x2f91 @0xc
0x2f85…2f96 at000d = ╱54╱T╱ // 0x2f92 @0xd
0x2f85…2f96 at000e = ╱4f╱O╱ // 0x2f93 @0xe
0x2f85…2f96 at000f = ╱ef╱$╱ // 0x2f94 @0xf
0x2f85…2f96 at0010 = EOL // 0x2f95 @0x10
0x2f85…2f96 }
0x2f96…2faa c598 4880 PRINT "<S>" ; TAB(28)
0x2f96…2faa LineComal80 {
0x2f96…2faa ptr = 0xc598 // 0x2f96 @0x0
0x2f96…2faa lno = 0x1310 // 0x2f98 @0x2
0x2f96…2faa at0004 = ╱92╱ PRINT ╱ // 0x2f9a @0x4
0x2f96…2faa at0005 = ╱22╱"╱ // 0x2f9b @0x5
0x2f96…2faa at0006 = ╱3c╱<╱ // 0x2f9c @0x6
0x2f96…2faa at0007 = ╱53╱S╱ // 0x2f9d @0x7
0x2f96…2faa at0008 = ╱3e╱>╱ // 0x2f9e @0x8
0x2f96…2faa at0009 = ╱22╱"╱ // 0x2f9f @0x9
0x2f96…2faa at000a = ╱ea╱ ; ╱ // 0x2fa0 @0xa
0x2f96…2faa at000b = ╱d2╱TAB╱ // 0x2fa1 @0xb
0x2f96…2faa at000c = ╱ed╱(╱ // 0x2fa2 @0xc
0x2f96…2faa at000d = ╱32╱2╱ // 0x2fa3 @0xd
0x2f96…2faa at000e = ╱38╱8╱ // 0x2fa4 @0xe
0x2f96…2faa at000f = ╱f21c00╱ // 0x2fa5 @0xf
0x2f96…2faa at0012 = ╱ee╱)╱ // 0x2fa8 @0x12
0x2f96…2faa at0013 = EOL // 0x2fa9 @0x13
0x2f96…2faa }
0x2faa…2fba c5a8 4890 LET T_IDX := 3
0x2faa…2fba LineComal80 {
0x2faa…2fba ptr = 0xc5a8 // 0x2faa @0x0
0x2faa…2fba lno = 0x131a // 0x2fac @0x2
0x2faa…2fba at0004 = ╱86╱ LET ╱ // 0x2fae @0x4
0x2faa…2fba at0005 = ╱54╱T╱ // 0x2faf @0x5
0x2faa…2fba at0006 = ╱5f╱_╱ // 0x2fb0 @0x6
0x2faa…2fba at0007 = ╱49╱I╱ // 0x2fb1 @0x7
0x2faa…2fba at0008 = ╱44╱D╱ // 0x2fb2 @0x8
0x2faa…2fba at0009 = ╱58╱X╱ // 0x2fb3 @0x9
0x2faa…2fba at000a = ╱f0╱ := ╱ // 0x2fb4 @0xa
0x2faa…2fba at000b = ╱33╱3╱ // 0x2fb5 @0xb
0x2faa…2fba at000c = ╱f20300╱ // 0x2fb6 @0xc
0x2faa…2fba at000f = EOL // 0x2fb9 @0xf
0x2faa…2fba }
0x2fba…2fcb c5b9 4900 WHILE GIRO_KTO$
0x2fba…2fcb LineComal80 {
0x2fba…2fcb ptr = 0xc5b9 // 0x2fba @0x0
0x2fba…2fcb lno = 0x1324 // 0x2fbc @0x2
0x2fba…2fcb at0004 = ╱a45b00╱ WHILE ╱ // 0x2fbe @0x4
0x2fba…2fcb at0007 = ╱47╱G╱ // 0x2fc1 @0x7
0x2fba…2fcb at0008 = ╱49╱I╱ // 0x2fc2 @0x8
0x2fba…2fcb at0009 = ╱52╱R╱ // 0x2fc3 @0x9
0x2fba…2fcb at000a = ╱4f╱O╱ // 0x2fc4 @0xa
0x2fba…2fcb at000b = ╱5f╱_╱ // 0x2fc5 @0xb
0x2fba…2fcb at000c = ╱4b╱K╱ // 0x2fc6 @0xc
0x2fba…2fcb at000d = ╱54╱T╱ // 0x2fc7 @0xd
0x2fba…2fcb at000e = ╱4f╱O╱ // 0x2fc8 @0xe
0x2fba…2fcb at000f = ╱ef╱$╱ // 0x2fc9 @0xf
0x2fba…2fcb at0010 = EOL // 0x2fca @0x10
0x2fba…2fcb }
0x2fcb…2fdf c5cd 4910 PRINT "<S>" ; TAB(52)
0x2fcb…2fdf LineComal80 {
0x2fcb…2fdf ptr = 0xc5cd // 0x2fcb @0x0
0x2fcb…2fdf lno = 0x132e // 0x2fcd @0x2
0x2fcb…2fdf at0004 = ╱92╱ PRINT ╱ // 0x2fcf @0x4
0x2fcb…2fdf at0005 = ╱22╱"╱ // 0x2fd0 @0x5
0x2fcb…2fdf at0006 = ╱3c╱<╱ // 0x2fd1 @0x6
0x2fcb…2fdf at0007 = ╱53╱S╱ // 0x2fd2 @0x7
0x2fcb…2fdf at0008 = ╱3e╱>╱ // 0x2fd3 @0x8
0x2fcb…2fdf at0009 = ╱22╱"╱ // 0x2fd4 @0x9
0x2fcb…2fdf at000a = ╱ea╱ ; ╱ // 0x2fd5 @0xa
0x2fcb…2fdf at000b = ╱d2╱TAB╱ // 0x2fd6 @0xb
0x2fcb…2fdf at000c = ╱ed╱(╱ // 0x2fd7 @0xc
0x2fcb…2fdf at000d = ╱35╱5╱ // 0x2fd8 @0xd
0x2fcb…2fdf at000e = ╱32╱2╱ // 0x2fd9 @0xe
0x2fcb…2fdf at000f = ╱f23400╱ // 0x2fda @0xf
0x2fcb…2fdf at0012 = ╱ee╱)╱ // 0x2fdd @0x12
0x2fcb…2fdf at0013 = EOL // 0x2fde @0x13
0x2fcb…2fdf }
0x2fdf…2fef c5dd 4920 LET T_IDX := 5
0x2fdf…2fef LineComal80 {
0x2fdf…2fef ptr = 0xc5dd // 0x2fdf @0x0
0x2fdf…2fef lno = 0x1338 // 0x2fe1 @0x2
0x2fdf…2fef at0004 = ╱86╱ LET ╱ // 0x2fe3 @0x4
0x2fdf…2fef at0005 = ╱54╱T╱ // 0x2fe4 @0x5
0x2fdf…2fef at0006 = ╱5f╱_╱ // 0x2fe5 @0x6
0x2fdf…2fef at0007 = ╱49╱I╱ // 0x2fe6 @0x7
0x2fdf…2fef at0008 = ╱44╱D╱ // 0x2fe7 @0x8
0x2fdf…2fef at0009 = ╱58╱X╱ // 0x2fe8 @0x9
0x2fdf…2fef at000a = ╱f0╱ := ╱ // 0x2fe9 @0xa
0x2fdf…2fef at000b = ╱35╱5╱ // 0x2fea @0xb
0x2fdf…2fef at000c = ╱f20500╱ // 0x2feb @0xc
0x2fdf…2fef at000f = EOL // 0x2fee @0xf
0x2fdf…2fef }
0x2fef…2ff5 c5e3 4930 ENDCASE
0x2fef…2ff5 LineComal80 {
0x2fef…2ff5 ptr = 0xc5e3 // 0x2fef @0x0
0x2fef…2ff5 lno = 0x1342 // 0x2ff1 @0x2
0x2fef…2ff5 at0004 = ╱a3╱ ENDCASE ╱ // 0x2ff3 @0x4
0x2fef…2ff5 at0005 = EOL // 0x2ff4 @0x5
0x2fef…2ff5 }
0x2ff5…3007 c5f5 4940 IF _DK = DEBET THEN
0x2ff5…3007 LineComal80 {
0x2ff5…3007 ptr = 0xc5f5 // 0x2ff5 @0x0
0x2ff5…3007 lno = 0x134c // 0x2ff7 @0x2
0x2ff5…3007 at0004 = ╱9b5c4b╱ IF ╱ // 0x2ff9 @0x4
0x2ff5…3007 at0007 = ╱5f╱_╱ // 0x2ffc @0x7
0x2ff5…3007 at0008 = ╱44╱D╱ // 0x2ffd @0x8
0x2ff5…3007 at0009 = ╱4b╱K╱ // 0x2ffe @0x9
0x2ff5…3007 at000a = ╱df╱ = ╱ // 0x2fff @0xa
0x2ff5…3007 at000b = ╱44╱D╱ // 0x3000 @0xb
0x2ff5…3007 at000c = ╱45╱E╱ // 0x3001 @0xc
0x2ff5…3007 at000d = ╱42╱B╱ // 0x3002 @0xd
0x2ff5…3007 at000e = ╱45╱E╱ // 0x3003 @0xe
0x2ff5…3007 at000f = ╱54╱T╱ // 0x3004 @0xf
0x2ff5…3007 at0010 = ╱b5╱ THEN ╱ // 0x3005 @0x10
0x2ff5…3007 at0011 = EOL // 0x3006 @0x11
0x2ff5…3007 }
0x3007…302d c61b 4950 PRINT USING " ########.##" : K_BKR
0x3007…302d LineComal80 {
0x3007…302d ptr = 0xc61b // 0x3007 @0x0
0x3007…302d lno = 0x1356 // 0x3009 @0x2
0x3007…302d at0004 = ╱92╱ PRINT ╱ // 0x300b @0x4
0x3007…302d at0005 = ╱b9╱ USING ╱ // 0x300c @0x5
0x3007…302d at0006 = ╱22╱"╱ // 0x300d @0x6
0x3007…302d at0007 = ╱20╱…╱ // 0x300e @0x7
0x3007…302d at0008 = ╱20╱…╱ // 0x300f @0x8
0x3007…302d at0009 = ╱20╱…╱ // 0x3010 @0x9
0x3007…302d at000a = ╱20╱…╱ // 0x3011 @0xa
0x3007…302d at000b = ╱20╱…╱ // 0x3012 @0xb
0x3007…302d at000c = ╱20╱…╱ // 0x3013 @0xc
0x3007…302d at000d = ╱20╱…╱ // 0x3014 @0xd
0x3007…302d at000e = ╱20╱…╱ // 0x3015 @0xe
0x3007…302d at000f = ╱20╱…╱ // 0x3016 @0xf
0x3007…302d at0010 = ╱20╱…╱ // 0x3017 @0x10
0x3007…302d at0011 = ╱20╱…╱ // 0x3018 @0x11
0x3007…302d at0012 = ╱20╱…╱ // 0x3019 @0x12
0x3007…302d at0013 = ╱23╱#╱ // 0x301a @0x13
0x3007…302d at0014 = ╱23╱#╱ // 0x301b @0x14
0x3007…302d at0015 = ╱23╱#╱ // 0x301c @0x15
0x3007…302d at0016 = ╱23╱#╱ // 0x301d @0x16
0x3007…302d at0017 = ╱23╱#╱ // 0x301e @0x17
0x3007…302d at0018 = ╱23╱#╱ // 0x301f @0x18
0x3007…302d at0019 = ╱23╱#╱ // 0x3020 @0x19
0x3007…302d at001a = ╱23╱#╱ // 0x3021 @0x1a
0x3007…302d at001b = ╱2e╱.╱ // 0x3022 @0x1b
0x3007…302d at001c = ╱23╱#╱ // 0x3023 @0x1c
0x3007…302d at001d = ╱23╱#╱ // 0x3024 @0x1d
0x3007…302d at001e = ╱22╱"╱ // 0x3025 @0x1e
0x3007…302d at001f = ╱f1╱ : ╱ // 0x3026 @0x1f
0x3007…302d at0020 = ╱4b╱K╱ // 0x3027 @0x20
0x3007…302d at0021 = ╱5f╱_╱ // 0x3028 @0x21
0x3007…302d at0022 = ╱42╱B╱ // 0x3029 @0x22
0x3007…302d at0023 = ╱4b╱K╱ // 0x302a @0x23
0x3007…302d at0024 = ╱52╱R╱ // 0x302b @0x24
0x3007…302d at0025 = EOL // 0x302c @0x25
0x3007…302d }
0x302d…3058 c646 4960 LET TOT(T_IDX + 1) := TOT(T_IDX + 1) + K_BKR
0x302d…3058 LineComal80 {
0x302d…3058 ptr = 0xc646 // 0x302d @0x0
0x302d…3058 lno = 0x1360 // 0x302f @0x2
0x302d…3058 at0004 = ╱86╱ LET ╱ // 0x3031 @0x4
0x302d…3058 at0005 = ╱54╱T╱ // 0x3032 @0x5
0x302d…3058 at0006 = ╱4f╱O╱ // 0x3033 @0x6
0x302d…3058 at0007 = ╱54╱T╱ // 0x3034 @0x7
0x302d…3058 at0008 = ╱ed╱(╱ // 0x3035 @0x8
0x302d…3058 at0009 = ╱54╱T╱ // 0x3036 @0x9
0x302d…3058 at000a = ╱5f╱_╱ // 0x3037 @0xa
0x302d…3058 at000b = ╱49╱I╱ // 0x3038 @0xb
0x302d…3058 at000c = ╱44╱D╱ // 0x3039 @0xc
0x302d…3058 at000d = ╱58╱X╱ // 0x303a @0xd
0x302d…3058 at000e = ╱e5╱ + ╱ // 0x303b @0xe
0x302d…3058 at000f = ╱31╱1╱ // 0x303c @0xf
0x302d…3058 at0010 = ╱f20100╱ // 0x303d @0x10
0x302d…3058 at0013 = ╱ee╱)╱ // 0x3040 @0x13
0x302d…3058 at0014 = ╱f0╱ := ╱ // 0x3041 @0x14
0x302d…3058 at0015 = ╱54╱T╱ // 0x3042 @0x15
0x302d…3058 at0016 = ╱4f╱O╱ // 0x3043 @0x16
0x302d…3058 at0017 = ╱54╱T╱ // 0x3044 @0x17
0x302d…3058 at0018 = ╱ed╱(╱ // 0x3045 @0x18
0x302d…3058 at0019 = ╱54╱T╱ // 0x3046 @0x19
0x302d…3058 at001a = ╱5f╱_╱ // 0x3047 @0x1a
0x302d…3058 at001b = ╱49╱I╱ // 0x3048 @0x1b
0x302d…3058 at001c = ╱44╱D╱ // 0x3049 @0x1c
0x302d…3058 at001d = ╱58╱X╱ // 0x304a @0x1d
0x302d…3058 at001e = ╱e5╱ + ╱ // 0x304b @0x1e
0x302d…3058 at001f = ╱31╱1╱ // 0x304c @0x1f
0x302d…3058 at0020 = ╱f20100╱ // 0x304d @0x20
0x302d…3058 at0023 = ╱ee╱)╱ // 0x3050 @0x23
0x302d…3058 at0024 = ╱e5╱ + ╱ // 0x3051 @0x24
0x302d…3058 at0025 = ╱4b╱K╱ // 0x3052 @0x25
0x302d…3058 at0026 = ╱5f╱_╱ // 0x3053 @0x26
0x302d…3058 at0027 = ╱42╱B╱ // 0x3054 @0x27
0x302d…3058 at0028 = ╱4b╱K╱ // 0x3055 @0x28
0x302d…3058 at0029 = ╱52╱R╱ // 0x3056 @0x29
0x302d…3058 at002a = EOL // 0x3057 @0x2a
0x302d…3058 }
0x3058…305f c64d 4970 ELSE
0x3058…305f LineComal80 {
0x3058…305f ptr = 0xc64d // 0x3058 @0x0
0x3058…305f lno = 0x136a // 0x305a @0x2
0x3058…305f at0004 = ╱9a5d╱ ELSE ╱ // 0x305c @0x4
0x3058…305f at0006 = EOL // 0x305e @0x6
0x3058…305f }
0x305f…3079 c667 4980 PRINT USING "########.##" : K_BKR
0x305f…3079 LineComal80 {
0x305f…3079 ptr = 0xc667 // 0x305f @0x0
0x305f…3079 lno = 0x1374 // 0x3061 @0x2
0x305f…3079 at0004 = ╱92╱ PRINT ╱ // 0x3063 @0x4
0x305f…3079 at0005 = ╱b9╱ USING ╱ // 0x3064 @0x5
0x305f…3079 at0006 = ╱22╱"╱ // 0x3065 @0x6
0x305f…3079 at0007 = ╱23╱#╱ // 0x3066 @0x7
0x305f…3079 at0008 = ╱23╱#╱ // 0x3067 @0x8
0x305f…3079 at0009 = ╱23╱#╱ // 0x3068 @0x9
0x305f…3079 at000a = ╱23╱#╱ // 0x3069 @0xa
0x305f…3079 at000b = ╱23╱#╱ // 0x306a @0xb
0x305f…3079 at000c = ╱23╱#╱ // 0x306b @0xc
0x305f…3079 at000d = ╱23╱#╱ // 0x306c @0xd
0x305f…3079 at000e = ╱23╱#╱ // 0x306d @0xe
0x305f…3079 at000f = ╱2e╱.╱ // 0x306e @0xf
0x305f…3079 at0010 = ╱23╱#╱ // 0x306f @0x10
0x305f…3079 at0011 = ╱23╱#╱ // 0x3070 @0x11
0x305f…3079 at0012 = ╱22╱"╱ // 0x3071 @0x12
0x305f…3079 at0013 = ╱f1╱ : ╱ // 0x3072 @0x13
0x305f…3079 at0014 = ╱4b╱K╱ // 0x3073 @0x14
0x305f…3079 at0015 = ╱5f╱_╱ // 0x3074 @0x15
0x305f…3079 at0016 = ╱42╱B╱ // 0x3075 @0x16
0x305f…3079 at0017 = ╱4b╱K╱ // 0x3076 @0x17
0x305f…3079 at0018 = ╱52╱R╱ // 0x3077 @0x18
0x305f…3079 at0019 = EOL // 0x3078 @0x19
0x305f…3079 }
0x3079…309a c688 4990 LET TOT(T_IDX) := TOT(T_IDX) + K_BKR
0x3079…309a LineComal80 {
0x3079…309a ptr = 0xc688 // 0x3079 @0x0
0x3079…309a lno = 0x137e // 0x307b @0x2
0x3079…309a at0004 = ╱86╱ LET ╱ // 0x307d @0x4
0x3079…309a at0005 = ╱54╱T╱ // 0x307e @0x5
0x3079…309a at0006 = ╱4f╱O╱ // 0x307f @0x6
0x3079…309a at0007 = ╱54╱T╱ // 0x3080 @0x7
0x3079…309a at0008 = ╱ed╱(╱ // 0x3081 @0x8
0x3079…309a at0009 = ╱54╱T╱ // 0x3082 @0x9
0x3079…309a at000a = ╱5f╱_╱ // 0x3083 @0xa
0x3079…309a at000b = ╱49╱I╱ // 0x3084 @0xb
0x3079…309a at000c = ╱44╱D╱ // 0x3085 @0xc
0x3079…309a at000d = ╱58╱X╱ // 0x3086 @0xd
0x3079…309a at000e = ╱ee╱)╱ // 0x3087 @0xe
0x3079…309a at000f = ╱f0╱ := ╱ // 0x3088 @0xf
0x3079…309a at0010 = ╱54╱T╱ // 0x3089 @0x10
0x3079…309a at0011 = ╱4f╱O╱ // 0x308a @0x11
0x3079…309a at0012 = ╱54╱T╱ // 0x308b @0x12
0x3079…309a at0013 = ╱ed╱(╱ // 0x308c @0x13
0x3079…309a at0014 = ╱54╱T╱ // 0x308d @0x14
0x3079…309a at0015 = ╱5f╱_╱ // 0x308e @0x15
0x3079…309a at0016 = ╱49╱I╱ // 0x308f @0x16
0x3079…309a at0017 = ╱44╱D╱ // 0x3090 @0x17
0x3079…309a at0018 = ╱58╱X╱ // 0x3091 @0x18
0x3079…309a at0019 = ╱ee╱)╱ // 0x3092 @0x19
0x3079…309a at001a = ╱e5╱ + ╱ // 0x3093 @0x1a
0x3079…309a at001b = ╱4b╱K╱ // 0x3094 @0x1b
0x3079…309a at001c = ╱5f╱_╱ // 0x3095 @0x1c
0x3079…309a at001d = ╱42╱B╱ // 0x3096 @0x1d
0x3079…309a at001e = ╱4b╱K╱ // 0x3097 @0x1e
0x3079…309a at001f = ╱52╱R╱ // 0x3098 @0x1f
0x3079…309a at0020 = EOL // 0x3099 @0x20
0x3079…309a }
0x309a…30a0 c68e 5000 ENDIF
0x309a…30a0 LineComal80 {
0x309a…30a0 ptr = 0xc68e // 0x309a @0x0
0x309a…30a0 lno = 0x1388 // 0x309c @0x2
0x309a…30a0 at0004 = ╱9c╱ ENDIF ╱ // 0x309e @0x4
0x309a…30a0 at0005 = EOL // 0x309f @0x5
0x309a…30a0 }
0x30a0…30a7 c695 5010 ELSE
0x30a0…30a7 LineComal80 {
0x30a0…30a7 ptr = 0xc695 // 0x30a0 @0x0
0x30a0…30a7 lno = 0x1392 // 0x30a2 @0x2
0x30a0…30a7 at0004 = ╱9a5e╱ ELSE ╱ // 0x30a4 @0x4
0x30a0…30a7 at0006 = EOL // 0x30a6 @0x6
0x30a0…30a7 }
0x30a7…30b6 c6a4 5020 PRINT TAB(73) ;
0x30a7…30b6 LineComal80 {
0x30a7…30b6 ptr = 0xc6a4 // 0x30a7 @0x0
0x30a7…30b6 lno = 0x139c // 0x30a9 @0x2
0x30a7…30b6 at0004 = ╱92╱ PRINT ╱ // 0x30ab @0x4
0x30a7…30b6 at0005 = ╱d2╱TAB╱ // 0x30ac @0x5
0x30a7…30b6 at0006 = ╱ed╱(╱ // 0x30ad @0x6
0x30a7…30b6 at0007 = ╱37╱7╱ // 0x30ae @0x7
0x30a7…30b6 at0008 = ╱33╱3╱ // 0x30af @0x8
0x30a7…30b6 at0009 = ╱f24900╱ // 0x30b0 @0x9
0x30a7…30b6 at000c = ╱ee╱)╱ // 0x30b3 @0xc
0x30a7…30b6 at000d = ╱ea╱ ; ╱ // 0x30b4 @0xd
0x30a7…30b6 at000e = EOL // 0x30b5 @0xe
0x30a7…30b6 }
0x30b6…30c2 c6b0 5030 PRINT "<S> "
0x30b6…30c2 LineComal80 {
0x30b6…30c2 ptr = 0xc6b0 // 0x30b6 @0x0
0x30b6…30c2 lno = 0x13a6 // 0x30b8 @0x2
0x30b6…30c2 at0004 = ╱92╱ PRINT ╱ // 0x30ba @0x4
0x30b6…30c2 at0005 = ╱22╱"╱ // 0x30bb @0x5
0x30b6…30c2 at0006 = ╱3c╱<╱ // 0x30bc @0x6
0x30b6…30c2 at0007 = ╱53╱S╱ // 0x30bd @0x7
0x30b6…30c2 at0008 = ╱3e╱>╱ // 0x30be @0x8
0x30b6…30c2 at0009 = ╱20╱…╱ // 0x30bf @0x9
0x30b6…30c2 at000a = ╱22╱"╱ // 0x30c0 @0xa
0x30b6…30c2 at000b = EOL // 0x30c1 @0xb
0x30b6…30c2 }
0x30c2…30cf c6bd 5040 PRINT K_BKTO$
0x30c2…30cf LineComal80 {
0x30c2…30cf ptr = 0xc6bd // 0x30c2 @0x0
0x30c2…30cf lno = 0x13b0 // 0x30c4 @0x2
0x30c2…30cf at0004 = ╱92╱ PRINT ╱ // 0x30c6 @0x4
0x30c2…30cf at0005 = ╱4b╱K╱ // 0x30c7 @0x5
0x30c2…30cf at0006 = ╱5f╱_╱ // 0x30c8 @0x6
0x30c2…30cf at0007 = ╱42╱B╱ // 0x30c9 @0x7
0x30c2…30cf at0008 = ╱4b╱K╱ // 0x30ca @0x8
0x30c2…30cf at0009 = ╱54╱T╱ // 0x30cb @0x9
0x30c2…30cf at000a = ╱4f╱O╱ // 0x30cc @0xa
0x30c2…30cf at000b = ╱ef╱$╱ // 0x30cd @0xb
0x30c2…30cf at000c = EOL // 0x30ce @0xc
0x30c2…30cf }
0x30cf…30d5 c6c3 5050 ENDIF
0x30cf…30d5 LineComal80 {
0x30cf…30d5 ptr = 0xc6c3 // 0x30cf @0x0
0x30cf…30d5 lno = 0x13ba // 0x30d1 @0x2
0x30cf…30d5 at0004 = ╱9c╱ ENDIF ╱ // 0x30d3 @0x4
0x30cf…30d5 at0005 = EOL // 0x30d4 @0x5
0x30cf…30d5 }
0x30d5…30e6 c6d4 5060 ENDPROC PRINT_LINIE
0x30d5…30e6 LineComal80 {
0x30d5…30e6 ptr = 0xc6d4 // 0x30d5 @0x0
0x30d5…30e6 lno = 0x13c4 // 0x30d7 @0x2
0x30d5…30e6 at0004 = ╱9f╱ ENDPROC ╱ // 0x30d9 @0x4
0x30d5…30e6 at0005 = ╱50╱P╱ // 0x30da @0x5
0x30d5…30e6 at0006 = ╱52╱R╱ // 0x30db @0x6
0x30d5…30e6 at0007 = ╱49╱I╱ // 0x30dc @0x7
0x30d5…30e6 at0008 = ╱4e╱N╱ // 0x30dd @0x8
0x30d5…30e6 at0009 = ╱54╱T╱ // 0x30de @0x9
0x30d5…30e6 at000a = ╱5f╱_╱ // 0x30df @0xa
0x30d5…30e6 at000b = ╱4c╱L╱ // 0x30e0 @0xb
0x30d5…30e6 at000c = ╱49╱I╱ // 0x30e1 @0xc
0x30d5…30e6 at000d = ╱4e╱N╱ // 0x30e2 @0xd
0x30d5…30e6 at000e = ╱49╱I╱ // 0x30e3 @0xe
0x30d5…30e6 at000f = ╱45╱E╱ // 0x30e4 @0xf
0x30d5…30e6 at0010 = EOL // 0x30e5 @0x10
0x30d5…30e6 }
0x30e6…30eb c6d9 5070
0x30e6…30eb LineComal80 {
0x30e6…30eb ptr = 0xc6d9 // 0x30e6 @0x0
0x30e6…30eb lno = 0x13ce // 0x30e8 @0x2
0x30e6…30eb at0004 = EOL // 0x30ea @0x4
0x30e6…30eb }
0x30eb…30fc d6dd 5080 PROC SLUT_LINIE
0x30eb…30fc LineComal80 {
0x30eb…30fc ptr = 0xd6dd // 0x30eb @0x0
0x30eb…30fc lno = 0x13d8 // 0x30ed @0x2
0x30eb…30fc at0004 = ╱9e5f╱ PROC ╱ // 0x30ef @0x4
0x30eb…30fc at0006 = ╱53╱S╱ // 0x30f1 @0x6
0x30eb…30fc at0007 = ╱4c╱L╱ // 0x30f2 @0x7
0x30eb…30fc at0008 = ╱55╱U╱ // 0x30f3 @0x8
0x30eb…30fc at0009 = ╱54╱T╱ // 0x30f4 @0x9
0x30eb…30fc at000a = ╱5f╱_╱ // 0x30f5 @0xa
0x30eb…30fc at000b = ╱4c╱L╱ // 0x30f6 @0xb
0x30eb…30fc at000c = ╱49╱I╱ // 0x30f7 @0xc
0x30eb…30fc at000d = ╱4e╱N╱ // 0x30f8 @0xd
0x30eb…30fc at000e = ╱49╱I╱ // 0x30f9 @0xe
0x30eb…30fc at000f = ╱45╱E╱ // 0x30fa @0xf
0x30eb…30fc at0010 = EOL // 0x30fb @0x10
0x30eb…30fc }
0x30fc…3140 c72e 5150 PRINT "<S>----- -------------------- -- ---------- ---------- "
0x30fc…3140 LineComal80 {
0x30fc…3140 ptr = 0xc72e // 0x30fc @0x0
0x30fc…3140 lno = 0x141e // 0x30fe @0x2
0x30fc…3140 at0004 = ╱92╱ PRINT ╱ // 0x3100 @0x4
0x30fc…3140 at0005 = ╱22╱"╱ // 0x3101 @0x5
0x30fc…3140 at0006 = ╱3c╱<╱ // 0x3102 @0x6
0x30fc…3140 at0007 = ╱53╱S╱ // 0x3103 @0x7
0x30fc…3140 at0008 = ╱3e╱>╱ // 0x3104 @0x8
0x30fc…3140 at0009 = ╱2d╱-╱ // 0x3105 @0x9
0x30fc…3140 at000a = ╱2d╱-╱ // 0x3106 @0xa
0x30fc…3140 at000b = ╱2d╱-╱ // 0x3107 @0xb
0x30fc…3140 at000c = ╱2d╱-╱ // 0x3108 @0xc
0x30fc…3140 at000d = ╱2d╱-╱ // 0x3109 @0xd
0x30fc…3140 at000e = ╱20╱…╱ // 0x310a @0xe
0x30fc…3140 at000f = ╱20╱…╱ // 0x310b @0xf
0x30fc…3140 at0010 = ╱2d╱-╱ // 0x310c @0x10
0x30fc…3140 at0011 = ╱2d╱-╱ // 0x310d @0x11
0x30fc…3140 at0012 = ╱2d╱-╱ // 0x310e @0x12
0x30fc…3140 at0013 = ╱2d╱-╱ // 0x310f @0x13
0x30fc…3140 at0014 = ╱2d╱-╱ // 0x3110 @0x14
0x30fc…3140 at0015 = ╱2d╱-╱ // 0x3111 @0x15
0x30fc…3140 at0016 = ╱2d╱-╱ // 0x3112 @0x16
0x30fc…3140 at0017 = ╱2d╱-╱ // 0x3113 @0x17
0x30fc…3140 at0018 = ╱2d╱-╱ // 0x3114 @0x18
0x30fc…3140 at0019 = ╱2d╱-╱ // 0x3115 @0x19
0x30fc…3140 at001a = ╱2d╱-╱ // 0x3116 @0x1a
0x30fc…3140 at001b = ╱2d╱-╱ // 0x3117 @0x1b
0x30fc…3140 at001c = ╱2d╱-╱ // 0x3118 @0x1c
0x30fc…3140 at001d = ╱2d╱-╱ // 0x3119 @0x1d
0x30fc…3140 at001e = ╱2d╱-╱ // 0x311a @0x1e
0x30fc…3140 at001f = ╱2d╱-╱ // 0x311b @0x1f
0x30fc…3140 at0020 = ╱2d╱-╱ // 0x311c @0x20
0x30fc…3140 at0021 = ╱2d╱-╱ // 0x311d @0x21
0x30fc…3140 at0022 = ╱2d╱-╱ // 0x311e @0x22
0x30fc…3140 at0023 = ╱2d╱-╱ // 0x311f @0x23
0x30fc…3140 at0024 = ╱20╱…╱ // 0x3120 @0x24
0x30fc…3140 at0025 = ╱20╱…╱ // 0x3121 @0x25
0x30fc…3140 at0026 = ╱2d╱-╱ // 0x3122 @0x26
0x30fc…3140 at0027 = ╱2d╱-╱ // 0x3123 @0x27
0x30fc…3140 at0028 = ╱20╱…╱ // 0x3124 @0x28
0x30fc…3140 at0029 = ╱20╱…╱ // 0x3125 @0x29
0x30fc…3140 at002a = ╱2d╱-╱ // 0x3126 @0x2a
0x30fc…3140 at002b = ╱2d╱-╱ // 0x3127 @0x2b
0x30fc…3140 at002c = ╱2d╱-╱ // 0x3128 @0x2c
0x30fc…3140 at002d = ╱2d╱-╱ // 0x3129 @0x2d
0x30fc…3140 at002e = ╱2d╱-╱ // 0x312a @0x2e
0x30fc…3140 at002f = ╱2d╱-╱ // 0x312b @0x2f
0x30fc…3140 at0030 = ╱2d╱-╱ // 0x312c @0x30
0x30fc…3140 at0031 = ╱2d╱-╱ // 0x312d @0x31
0x30fc…3140 at0032 = ╱2d╱-╱ // 0x312e @0x32
0x30fc…3140 at0033 = ╱2d╱-╱ // 0x312f @0x33
0x30fc…3140 at0034 = ╱20╱…╱ // 0x3130 @0x34
0x30fc…3140 at0035 = ╱20╱…╱ // 0x3131 @0x35
0x30fc…3140 at0036 = ╱2d╱-╱ // 0x3132 @0x36
0x30fc…3140 at0037 = ╱2d╱-╱ // 0x3133 @0x37
0x30fc…3140 at0038 = ╱2d╱-╱ // 0x3134 @0x38
0x30fc…3140 at0039 = ╱2d╱-╱ // 0x3135 @0x39
0x30fc…3140 at003a = ╱2d╱-╱ // 0x3136 @0x3a
0x30fc…3140 at003b = ╱2d╱-╱ // 0x3137 @0x3b
0x30fc…3140 at003c = ╱2d╱-╱ // 0x3138 @0x3c
0x30fc…3140 at003d = ╱2d╱-╱ // 0x3139 @0x3d
0x30fc…3140 at003e = ╱2d╱-╱ // 0x313a @0x3e
0x30fc…3140 at003f = ╱2d╱-╱ // 0x313b @0x3f
0x30fc…3140 at0040 = ╱20╱…╱ // 0x313c @0x40
0x30fc…3140 at0041 = ╱20╱…╱ // 0x313d @0x41
0x30fc…3140 at0042 = ╱22╱"╱ // 0x313e @0x42
0x30fc…3140 at0043 = EOL // 0x313f @0x43
0x30fc…3140 }
0x3140…3180 c76e 5100 PRINT "---------- ---------- ---------- ---------- --------"
0x3140…3180 LineComal80 {
0x3140…3180 ptr = 0xc76e // 0x3140 @0x0
0x3140…3180 lno = 0x13ec // 0x3142 @0x2
0x3140…3180 at0004 = ╱92╱ PRINT ╱ // 0x3144 @0x4
0x3140…3180 at0005 = ╱22╱"╱ // 0x3145 @0x5
0x3140…3180 at0006 = ╱2d╱-╱ // 0x3146 @0x6
0x3140…3180 at0007 = ╱2d╱-╱ // 0x3147 @0x7
0x3140…3180 at0008 = ╱2d╱-╱ // 0x3148 @0x8
0x3140…3180 at0009 = ╱2d╱-╱ // 0x3149 @0x9
0x3140…3180 at000a = ╱2d╱-╱ // 0x314a @0xa
0x3140…3180 at000b = ╱2d╱-╱ // 0x314b @0xb
0x3140…3180 at000c = ╱2d╱-╱ // 0x314c @0xc
0x3140…3180 at000d = ╱2d╱-╱ // 0x314d @0xd
0x3140…3180 at000e = ╱2d╱-╱ // 0x314e @0xe
0x3140…3180 at000f = ╱2d╱-╱ // 0x314f @0xf
0x3140…3180 at0010 = ╱20╱…╱ // 0x3150 @0x10
0x3140…3180 at0011 = ╱20╱…╱ // 0x3151 @0x11
0x3140…3180 at0012 = ╱2d╱-╱ // 0x3152 @0x12
0x3140…3180 at0013 = ╱2d╱-╱ // 0x3153 @0x13
0x3140…3180 at0014 = ╱2d╱-╱ // 0x3154 @0x14
0x3140…3180 at0015 = ╱2d╱-╱ // 0x3155 @0x15
0x3140…3180 at0016 = ╱2d╱-╱ // 0x3156 @0x16
0x3140…3180 at0017 = ╱2d╱-╱ // 0x3157 @0x17
0x3140…3180 at0018 = ╱2d╱-╱ // 0x3158 @0x18
0x3140…3180 at0019 = ╱2d╱-╱ // 0x3159 @0x19
0x3140…3180 at001a = ╱2d╱-╱ // 0x315a @0x1a
0x3140…3180 at001b = ╱2d╱-╱ // 0x315b @0x1b
0x3140…3180 at001c = ╱20╱…╱ // 0x315c @0x1c
0x3140…3180 at001d = ╱20╱…╱ // 0x315d @0x1d
0x3140…3180 at001e = ╱2d╱-╱ // 0x315e @0x1e
0x3140…3180 at001f = ╱2d╱-╱ // 0x315f @0x1f
0x3140…3180 at0020 = ╱2d╱-╱ // 0x3160 @0x20
0x3140…3180 at0021 = ╱2d╱-╱ // 0x3161 @0x21
0x3140…3180 at0022 = ╱2d╱-╱ // 0x3162 @0x22
0x3140…3180 at0023 = ╱2d╱-╱ // 0x3163 @0x23
0x3140…3180 at0024 = ╱2d╱-╱ // 0x3164 @0x24
0x3140…3180 at0025 = ╱2d╱-╱ // 0x3165 @0x25
0x3140…3180 at0026 = ╱2d╱-╱ // 0x3166 @0x26
0x3140…3180 at0027 = ╱2d╱-╱ // 0x3167 @0x27
0x3140…3180 at0028 = ╱20╱…╱ // 0x3168 @0x28
0x3140…3180 at0029 = ╱20╱…╱ // 0x3169 @0x29
0x3140…3180 at002a = ╱2d╱-╱ // 0x316a @0x2a
0x3140…3180 at002b = ╱2d╱-╱ // 0x316b @0x2b
0x3140…3180 at002c = ╱2d╱-╱ // 0x316c @0x2c
0x3140…3180 at002d = ╱2d╱-╱ // 0x316d @0x2d
0x3140…3180 at002e = ╱2d╱-╱ // 0x316e @0x2e
0x3140…3180 at002f = ╱2d╱-╱ // 0x316f @0x2f
0x3140…3180 at0030 = ╱2d╱-╱ // 0x3170 @0x30
0x3140…3180 at0031 = ╱2d╱-╱ // 0x3171 @0x31
0x3140…3180 at0032 = ╱2d╱-╱ // 0x3172 @0x32
0x3140…3180 at0033 = ╱2d╱-╱ // 0x3173 @0x33
0x3140…3180 at0034 = ╱20╱…╱ // 0x3174 @0x34
0x3140…3180 at0035 = ╱20╱…╱ // 0x3175 @0x35
0x3140…3180 at0036 = ╱2d╱-╱ // 0x3176 @0x36
0x3140…3180 at0037 = ╱2d╱-╱ // 0x3177 @0x37
0x3140…3180 at0038 = ╱2d╱-╱ // 0x3178 @0x38
0x3140…3180 at0039 = ╱2d╱-╱ // 0x3179 @0x39
0x3140…3180 at003a = ╱2d╱-╱ // 0x317a @0x3a
0x3140…3180 at003b = ╱2d╱-╱ // 0x317b @0x3b
0x3140…3180 at003c = ╱2d╱-╱ // 0x317c @0x3c
0x3140…3180 at003d = ╱2d╱-╱ // 0x317d @0x3d
0x3140…3180 at003e = ╱22╱"╱ // 0x317e @0x3e
0x3140…3180 at003f = EOL // 0x317f @0x3f
0x3140…3180 }
0x3180…3190 c77e 5110 ENDPROC SLUT_LINIE
0x3180…3190 LineComal80 {
0x3180…3190 ptr = 0xc77e // 0x3180 @0x0
0x3180…3190 lno = 0x13f6 // 0x3182 @0x2
0x3180…3190 at0004 = ╱9f╱ ENDPROC ╱ // 0x3184 @0x4
0x3180…3190 at0005 = ╱53╱S╱ // 0x3185 @0x5
0x3180…3190 at0006 = ╱4c╱L╱ // 0x3186 @0x6
0x3180…3190 at0007 = ╱55╱U╱ // 0x3187 @0x7
0x3180…3190 at0008 = ╱54╱T╱ // 0x3188 @0x8
0x3180…3190 at0009 = ╱5f╱_╱ // 0x3189 @0x9
0x3180…3190 at000a = ╱4c╱L╱ // 0x318a @0xa
0x3180…3190 at000b = ╱49╱I╱ // 0x318b @0xb
0x3180…3190 at000c = ╱4e╱N╱ // 0x318c @0xc
0x3180…3190 at000d = ╱49╱I╱ // 0x318d @0xd
0x3180…3190 at000e = ╱45╱E╱ // 0x318e @0xe
0x3180…3190 at000f = EOL // 0x318f @0xf
0x3180…3190 }
0x3190…3195 c783 5120
0x3190…3195 LineComal80 {
0x3190…3195 ptr = 0xc783 // 0x3190 @0x0
0x3190…3195 lno = 0x1400 // 0x3192 @0x2
0x3190…3195 at0004 = EOL // 0x3194 @0x4
0x3190…3195 }
0x3195…31a5 c793 5130 PROC TRANSPORT
0x3195…31a5 LineComal80 {
0x3195…31a5 ptr = 0xc793 // 0x3195 @0x0
0x3195…31a5 lno = 0x140a // 0x3197 @0x2
0x3195…31a5 at0004 = ╱9e60╱ PROC ╱ // 0x3199 @0x4
0x3195…31a5 at0006 = ╱54╱T╱ // 0x319b @0x6
0x3195…31a5 at0007 = ╱52╱R╱ // 0x319c @0x7
0x3195…31a5 at0008 = ╱41╱A╱ // 0x319d @0x8
0x3195…31a5 at0009 = ╱4e╱N╱ // 0x319e @0x9
0x3195…31a5 at000a = ╱53╱S╱ // 0x319f @0xa
0x3195…31a5 at000b = ╱50╱P╱ // 0x31a0 @0xb
0x3195…31a5 at000c = ╱4f╱O╱ // 0x31a1 @0xc
0x3195…31a5 at000d = ╱52╱R╱ // 0x31a2 @0xd
0x3195…31a5 at000e = ╱54╱T╱ // 0x31a3 @0xe
0x3195…31a5 at000f = EOL // 0x31a4 @0xf
0x3195…31a5 }
0x31a5…31b9 c7a7 5140 IF IN_T = 100 THEN
0x31a5…31b9 LineComal80 {
0x31a5…31b9 ptr = 0xc7a7 // 0x31a5 @0x0
0x31a5…31b9 lno = 0x1414 // 0x31a7 @0x2
0x31a5…31b9 at0004 = ╱9b614c╱ IF ╱ // 0x31a9 @0x4
0x31a5…31b9 at0007 = ╱49╱I╱ // 0x31ac @0x7
0x31a5…31b9 at0008 = ╱4e╱N╱ // 0x31ad @0x8
0x31a5…31b9 at0009 = ╱5f╱_╱ // 0x31ae @0x9
0x31a5…31b9 at000a = ╱54╱T╱ // 0x31af @0xa
0x31a5…31b9 at000b = ╱df╱ = ╱ // 0x31b0 @0xb
0x31a5…31b9 at000c = ╱31╱1╱ // 0x31b1 @0xc
0x31a5…31b9 at000d = ╱30╱0╱ // 0x31b2 @0xd
0x31a5…31b9 at000e = ╱30╱0╱ // 0x31b3 @0xe
0x31a5…31b9 at000f = ╱f26400╱ // 0x31b4 @0xf
0x31a5…31b9 at0012 = ╱b5╱ THEN ╱ // 0x31b7 @0x12
0x31a5…31b9 at0013 = EOL // 0x31b8 @0x13
0x31a5…31b9 }
0x31b9…31c9 c7b7 5150 EXEC SIDE_SKIFT
0x31b9…31c9 LineComal80 {
0x31b9…31c9 ptr = 0xc7b7 // 0x31b9 @0x0
0x31b9…31c9 lno = 0x141e // 0x31bb @0x2
0x31b9…31c9 at0004 = ╱9d╱ EXEC ╱ // 0x31bd @0x4
0x31b9…31c9 at0005 = ╱53╱S╱ // 0x31be @0x5
0x31b9…31c9 at0006 = ╱49╱I╱ // 0x31bf @0x6
0x31b9…31c9 at0007 = ╱44╱D╱ // 0x31c0 @0x7
0x31b9…31c9 at0008 = ╱45╱E╱ // 0x31c1 @0x8
0x31b9…31c9 at0009 = ╱5f╱_╱ // 0x31c2 @0x9
0x31b9…31c9 at000a = ╱53╱S╱ // 0x31c3 @0xa
0x31b9…31c9 at000b = ╱4b╱K╱ // 0x31c4 @0xb
0x31b9…31c9 at000c = ╱49╱I╱ // 0x31c5 @0xc
0x31b9…31c9 at000d = ╱46╱F╱ // 0x31c6 @0xd
0x31b9…31c9 at000e = ╱54╱T╱ // 0x31c7 @0xe
0x31b9…31c9 at000f = EOL // 0x31c8 @0xf
0x31b9…31c9 }
0x31c9…31d0 c7be 5160 ELSE
0x31c9…31d0 LineComal80 {
0x31c9…31d0 ptr = 0xc7be // 0x31c9 @0x0
0x31c9…31d0 lno = 0x1428 // 0x31cb @0x2
0x31c9…31d0 at0004 = ╱9a62╱ ELSE ╱ // 0x31cd @0x4
0x31c9…31d0 at0006 = EOL // 0x31cf @0x6
0x31c9…31d0 }
0x31d0…31e0 c7ce 5170 EXEC SLUT_LINIE
0x31d0…31e0 LineComal80 {
0x31d0…31e0 ptr = 0xc7ce // 0x31d0 @0x0
0x31d0…31e0 lno = 0x1432 // 0x31d2 @0x2
0x31d0…31e0 at0004 = ╱9d╱ EXEC ╱ // 0x31d4 @0x4
0x31d0…31e0 at0005 = ╱53╱S╱ // 0x31d5 @0x5
0x31d0…31e0 at0006 = ╱4c╱L╱ // 0x31d6 @0x6
0x31d0…31e0 at0007 = ╱55╱U╱ // 0x31d7 @0x7
0x31d0…31e0 at0008 = ╱54╱T╱ // 0x31d8 @0x8
0x31d0…31e0 at0009 = ╱5f╱_╱ // 0x31d9 @0x9
0x31d0…31e0 at000a = ╱4c╱L╱ // 0x31da @0xa
0x31d0…31e0 at000b = ╱49╱I╱ // 0x31db @0xb
0x31d0…31e0 at000c = ╱4e╱N╱ // 0x31dc @0xc
0x31d0…31e0 at000d = ╱49╱I╱ // 0x31dd @0xd
0x31d0…31e0 at000e = ╱45╱E╱ // 0x31de @0xe
0x31d0…31e0 at000f = EOL // 0x31df @0xf
0x31d0…31e0 }
0x31e0…31f6 c7e4 5180 LET LIN_T := LIN_T + 2
0x31e0…31f6 LineComal80 {
0x31e0…31f6 ptr = 0xc7e4 // 0x31e0 @0x0
0x31e0…31f6 lno = 0x143c // 0x31e2 @0x2
0x31e0…31f6 at0004 = ╱86╱ LET ╱ // 0x31e4 @0x4
0x31e0…31f6 at0005 = ╱4c╱L╱ // 0x31e5 @0x5
0x31e0…31f6 at0006 = ╱49╱I╱ // 0x31e6 @0x6
0x31e0…31f6 at0007 = ╱4e╱N╱ // 0x31e7 @0x7
0x31e0…31f6 at0008 = ╱5f╱_╱ // 0x31e8 @0x8
0x31e0…31f6 at0009 = ╱54╱T╱ // 0x31e9 @0x9
0x31e0…31f6 at000a = ╱f0╱ := ╱ // 0x31ea @0xa
0x31e0…31f6 at000b = ╱4c╱L╱ // 0x31eb @0xb
0x31e0…31f6 at000c = ╱49╱I╱ // 0x31ec @0xc
0x31e0…31f6 at000d = ╱4e╱N╱ // 0x31ed @0xd
0x31e0…31f6 at000e = ╱5f╱_╱ // 0x31ee @0xe
0x31e0…31f6 at000f = ╱54╱T╱ // 0x31ef @0xf
0x31e0…31f6 at0010 = ╱e5╱ + ╱ // 0x31f0 @0x10
0x31e0…31f6 at0011 = ╱32╱2╱ // 0x31f1 @0x11
0x31e0…31f6 at0012 = ╱f20200╱ // 0x31f2 @0x12
0x31e0…31f6 at0015 = EOL // 0x31f5 @0x15
0x31e0…31f6 }
0x31f6…321f c80d 5190 PRINT "<S>" ; TAB(11) ; "TRANSPORT" ; TAB(36)
0x31f6…321f LineComal80 {
0x31f6…321f ptr = 0xc80d // 0x31f6 @0x0
0x31f6…321f lno = 0x1446 // 0x31f8 @0x2
0x31f6…321f at0004 = ╱92╱ PRINT ╱ // 0x31fa @0x4
0x31f6…321f at0005 = ╱22╱"╱ // 0x31fb @0x5
0x31f6…321f at0006 = ╱3c╱<╱ // 0x31fc @0x6
0x31f6…321f at0007 = ╱53╱S╱ // 0x31fd @0x7
0x31f6…321f at0008 = ╱3e╱>╱ // 0x31fe @0x8
0x31f6…321f at0009 = ╱22╱"╱ // 0x31ff @0x9
0x31f6…321f at000a = ╱ea╱ ; ╱ // 0x3200 @0xa
0x31f6…321f at000b = ╱d2╱TAB╱ // 0x3201 @0xb
0x31f6…321f at000c = ╱ed╱(╱ // 0x3202 @0xc
0x31f6…321f at000d = ╱31╱1╱ // 0x3203 @0xd
0x31f6…321f at000e = ╱31╱1╱ // 0x3204 @0xe
0x31f6…321f at000f = ╱f20b00╱ // 0x3205 @0xf
0x31f6…321f at0012 = ╱ee╱)╱ // 0x3208 @0x12
0x31f6…321f at0013 = ╱ea╱ ; ╱ // 0x3209 @0x13
0x31f6…321f at0014 = ╱22╱"╱ // 0x320a @0x14
0x31f6…321f at0015 = ╱54╱T╱ // 0x320b @0x15
0x31f6…321f at0016 = ╱52╱R╱ // 0x320c @0x16
0x31f6…321f at0017 = ╱41╱A╱ // 0x320d @0x17
0x31f6…321f at0018 = ╱4e╱N╱ // 0x320e @0x18
0x31f6…321f at0019 = ╱53╱S╱ // 0x320f @0x19
0x31f6…321f at001a = ╱50╱P╱ // 0x3210 @0x1a
0x31f6…321f at001b = ╱4f╱O╱ // 0x3211 @0x1b
0x31f6…321f at001c = ╱52╱R╱ // 0x3212 @0x1c
0x31f6…321f at001d = ╱54╱T╱ // 0x3213 @0x1d
0x31f6…321f at001e = ╱22╱"╱ // 0x3214 @0x1e
0x31f6…321f at001f = ╱ea╱ ; ╱ // 0x3215 @0x1f
0x31f6…321f at0020 = ╱d2╱TAB╱ // 0x3216 @0x20
0x31f6…321f at0021 = ╱ed╱(╱ // 0x3217 @0x21
0x31f6…321f at0022 = ╱33╱3╱ // 0x3218 @0x22
0x31f6…321f at0023 = ╱36╱6╱ // 0x3219 @0x23
0x31f6…321f at0024 = ╱f22400╱ // 0x321a @0x24
0x31f6…321f at0027 = ╱ee╱)╱ // 0x321d @0x27
0x31f6…321f at0028 = EOL // 0x321e @0x28
0x31f6…321f }
0x321f…3257 c845 5200 PRINT USING "<S>########.## ########.## " : TOT(1),TOT(2)
0x321f…3257 LineComal80 {
0x321f…3257 ptr = 0xc845 // 0x321f @0x0
0x321f…3257 lno = 0x1450 // 0x3221 @0x2
0x321f…3257 at0004 = ╱92╱ PRINT ╱ // 0x3223 @0x4
0x321f…3257 at0005 = ╱b9╱ USING ╱ // 0x3224 @0x5
0x321f…3257 at0006 = ╱22╱"╱ // 0x3225 @0x6
0x321f…3257 at0007 = ╱3c╱<╱ // 0x3226 @0x7
0x321f…3257 at0008 = ╱53╱S╱ // 0x3227 @0x8
0x321f…3257 at0009 = ╱3e╱>╱ // 0x3228 @0x9
0x321f…3257 at000a = ╱23╱#╱ // 0x3229 @0xa
0x321f…3257 at000b = ╱23╱#╱ // 0x322a @0xb
0x321f…3257 at000c = ╱23╱#╱ // 0x322b @0xc
0x321f…3257 at000d = ╱23╱#╱ // 0x322c @0xd
0x321f…3257 at000e = ╱23╱#╱ // 0x322d @0xe
0x321f…3257 at000f = ╱23╱#╱ // 0x322e @0xf
0x321f…3257 at0010 = ╱23╱#╱ // 0x322f @0x10
0x321f…3257 at0011 = ╱23╱#╱ // 0x3230 @0x11
0x321f…3257 at0012 = ╱2e╱.╱ // 0x3231 @0x12
0x321f…3257 at0013 = ╱23╱#╱ // 0x3232 @0x13
0x321f…3257 at0014 = ╱23╱#╱ // 0x3233 @0x14
0x321f…3257 at0015 = ╱20╱…╱ // 0x3234 @0x15
0x321f…3257 at0016 = ╱23╱#╱ // 0x3235 @0x16
0x321f…3257 at0017 = ╱23╱#╱ // 0x3236 @0x17
0x321f…3257 at0018 = ╱23╱#╱ // 0x3237 @0x18
0x321f…3257 at0019 = ╱23╱#╱ // 0x3238 @0x19
0x321f…3257 at001a = ╱23╱#╱ // 0x3239 @0x1a
0x321f…3257 at001b = ╱23╱#╱ // 0x323a @0x1b
0x321f…3257 at001c = ╱23╱#╱ // 0x323b @0x1c
0x321f…3257 at001d = ╱23╱#╱ // 0x323c @0x1d
0x321f…3257 at001e = ╱2e╱.╱ // 0x323d @0x1e
0x321f…3257 at001f = ╱23╱#╱ // 0x323e @0x1f
0x321f…3257 at0020 = ╱23╱#╱ // 0x323f @0x20
0x321f…3257 at0021 = ╱20╱…╱ // 0x3240 @0x21
0x321f…3257 at0022 = ╱22╱"╱ // 0x3241 @0x22
0x321f…3257 at0023 = ╱f1╱ : ╱ // 0x3242 @0x23
0x321f…3257 at0024 = ╱54╱T╱ // 0x3243 @0x24
0x321f…3257 at0025 = ╱4f╱O╱ // 0x3244 @0x25
0x321f…3257 at0026 = ╱54╱T╱ // 0x3245 @0x26
0x321f…3257 at0027 = ╱ed╱(╱ // 0x3246 @0x27
0x321f…3257 at0028 = ╱31╱1╱ // 0x3247 @0x28
0x321f…3257 at0029 = ╱f20100╱ // 0x3248 @0x29
0x321f…3257 at002c = ╱ee╱)╱ // 0x324b @0x2c
0x321f…3257 at002d = ╱ec╱,╱ // 0x324c @0x2d
0x321f…3257 at002e = ╱54╱T╱ // 0x324d @0x2e
0x321f…3257 at002f = ╱4f╱O╱ // 0x324e @0x2f
0x321f…3257 at0030 = ╱54╱T╱ // 0x324f @0x30
0x321f…3257 at0031 = ╱ed╱(╱ // 0x3250 @0x31
0x321f…3257 at0032 = ╱32╱2╱ // 0x3251 @0x32
0x321f…3257 at0033 = ╱f20200╱ // 0x3252 @0x33
0x321f…3257 at0036 = ╱ee╱)╱ // 0x3255 @0x36
0x321f…3257 at0037 = EOL // 0x3256 @0x37
0x321f…3257 }
0x3257…328f c87d 5210 PRINT USING "<S>########.## ########.## " : TOT(3),TOT(4)
0x3257…328f LineComal80 {
0x3257…328f ptr = 0xc87d // 0x3257 @0x0
0x3257…328f lno = 0x145a // 0x3259 @0x2
0x3257…328f at0004 = ╱92╱ PRINT ╱ // 0x325b @0x4
0x3257…328f at0005 = ╱b9╱ USING ╱ // 0x325c @0x5
0x3257…328f at0006 = ╱22╱"╱ // 0x325d @0x6
0x3257…328f at0007 = ╱3c╱<╱ // 0x325e @0x7
0x3257…328f at0008 = ╱53╱S╱ // 0x325f @0x8
0x3257…328f at0009 = ╱3e╱>╱ // 0x3260 @0x9
0x3257…328f at000a = ╱23╱#╱ // 0x3261 @0xa
0x3257…328f at000b = ╱23╱#╱ // 0x3262 @0xb
0x3257…328f at000c = ╱23╱#╱ // 0x3263 @0xc
0x3257…328f at000d = ╱23╱#╱ // 0x3264 @0xd
0x3257…328f at000e = ╱23╱#╱ // 0x3265 @0xe
0x3257…328f at000f = ╱23╱#╱ // 0x3266 @0xf
0x3257…328f at0010 = ╱23╱#╱ // 0x3267 @0x10
0x3257…328f at0011 = ╱23╱#╱ // 0x3268 @0x11
0x3257…328f at0012 = ╱2e╱.╱ // 0x3269 @0x12
0x3257…328f at0013 = ╱23╱#╱ // 0x326a @0x13
0x3257…328f at0014 = ╱23╱#╱ // 0x326b @0x14
0x3257…328f at0015 = ╱20╱…╱ // 0x326c @0x15
0x3257…328f at0016 = ╱23╱#╱ // 0x326d @0x16
0x3257…328f at0017 = ╱23╱#╱ // 0x326e @0x17
0x3257…328f at0018 = ╱23╱#╱ // 0x326f @0x18
0x3257…328f at0019 = ╱23╱#╱ // 0x3270 @0x19
0x3257…328f at001a = ╱23╱#╱ // 0x3271 @0x1a
0x3257…328f at001b = ╱23╱#╱ // 0x3272 @0x1b
0x3257…328f at001c = ╱23╱#╱ // 0x3273 @0x1c
0x3257…328f at001d = ╱23╱#╱ // 0x3274 @0x1d
0x3257…328f at001e = ╱2e╱.╱ // 0x3275 @0x1e
0x3257…328f at001f = ╱23╱#╱ // 0x3276 @0x1f
0x3257…328f at0020 = ╱23╱#╱ // 0x3277 @0x20
0x3257…328f at0021 = ╱20╱…╱ // 0x3278 @0x21
0x3257…328f at0022 = ╱22╱"╱ // 0x3279 @0x22
0x3257…328f at0023 = ╱f1╱ : ╱ // 0x327a @0x23
0x3257…328f at0024 = ╱54╱T╱ // 0x327b @0x24
0x3257…328f at0025 = ╱4f╱O╱ // 0x327c @0x25
0x3257…328f at0026 = ╱54╱T╱ // 0x327d @0x26
0x3257…328f at0027 = ╱ed╱(╱ // 0x327e @0x27
0x3257…328f at0028 = ╱33╱3╱ // 0x327f @0x28
0x3257…328f at0029 = ╱f20300╱ // 0x3280 @0x29
0x3257…328f at002c = ╱ee╱)╱ // 0x3283 @0x2c
0x3257…328f at002d = ╱ec╱,╱ // 0x3284 @0x2d
0x3257…328f at002e = ╱54╱T╱ // 0x3285 @0x2e
0x3257…328f at002f = ╱4f╱O╱ // 0x3286 @0x2f
0x3257…328f at0030 = ╱54╱T╱ // 0x3287 @0x30
0x3257…328f at0031 = ╱ed╱(╱ // 0x3288 @0x31
0x3257…328f at0032 = ╱34╱4╱ // 0x3289 @0x32
0x3257…328f at0033 = ╱f20400╱ // 0x328a @0x33
0x3257…328f at0036 = ╱ee╱)╱ // 0x328d @0x36
0x3257…328f at0037 = EOL // 0x328e @0x37
0x3257…328f }
0x328f…32c3 c8b1 5220 PRINT USING "########.## ########.##" : TOT(5),TOT(6)
0x328f…32c3 LineComal80 {
0x328f…32c3 ptr = 0xc8b1 // 0x328f @0x0
0x328f…32c3 lno = 0x1464 // 0x3291 @0x2
0x328f…32c3 at0004 = ╱92╱ PRINT ╱ // 0x3293 @0x4
0x328f…32c3 at0005 = ╱b9╱ USING ╱ // 0x3294 @0x5
0x328f…32c3 at0006 = ╱22╱"╱ // 0x3295 @0x6
0x328f…32c3 at0007 = ╱23╱#╱ // 0x3296 @0x7
0x328f…32c3 at0008 = ╱23╱#╱ // 0x3297 @0x8
0x328f…32c3 at0009 = ╱23╱#╱ // 0x3298 @0x9
0x328f…32c3 at000a = ╱23╱#╱ // 0x3299 @0xa
0x328f…32c3 at000b = ╱23╱#╱ // 0x329a @0xb
0x328f…32c3 at000c = ╱23╱#╱ // 0x329b @0xc
0x328f…32c3 at000d = ╱23╱#╱ // 0x329c @0xd
0x328f…32c3 at000e = ╱23╱#╱ // 0x329d @0xe
0x328f…32c3 at000f = ╱2e╱.╱ // 0x329e @0xf
0x328f…32c3 at0010 = ╱23╱#╱ // 0x329f @0x10
0x328f…32c3 at0011 = ╱23╱#╱ // 0x32a0 @0x11
0x328f…32c3 at0012 = ╱20╱…╱ // 0x32a1 @0x12
0x328f…32c3 at0013 = ╱23╱#╱ // 0x32a2 @0x13
0x328f…32c3 at0014 = ╱23╱#╱ // 0x32a3 @0x14
0x328f…32c3 at0015 = ╱23╱#╱ // 0x32a4 @0x15
0x328f…32c3 at0016 = ╱23╱#╱ // 0x32a5 @0x16
0x328f…32c3 at0017 = ╱23╱#╱ // 0x32a6 @0x17
0x328f…32c3 at0018 = ╱23╱#╱ // 0x32a7 @0x18
0x328f…32c3 at0019 = ╱23╱#╱ // 0x32a8 @0x19
0x328f…32c3 at001a = ╱23╱#╱ // 0x32a9 @0x1a
0x328f…32c3 at001b = ╱2e╱.╱ // 0x32aa @0x1b
0x328f…32c3 at001c = ╱23╱#╱ // 0x32ab @0x1c
0x328f…32c3 at001d = ╱23╱#╱ // 0x32ac @0x1d
0x328f…32c3 at001e = ╱22╱"╱ // 0x32ad @0x1e
0x328f…32c3 at001f = ╱f1╱ : ╱ // 0x32ae @0x1f
0x328f…32c3 at0020 = ╱54╱T╱ // 0x32af @0x20
0x328f…32c3 at0021 = ╱4f╱O╱ // 0x32b0 @0x21
0x328f…32c3 at0022 = ╱54╱T╱ // 0x32b1 @0x22
0x328f…32c3 at0023 = ╱ed╱(╱ // 0x32b2 @0x23
0x328f…32c3 at0024 = ╱35╱5╱ // 0x32b3 @0x24
0x328f…32c3 at0025 = ╱f20500╱ // 0x32b4 @0x25
0x328f…32c3 at0028 = ╱ee╱)╱ // 0x32b7 @0x28
0x328f…32c3 at0029 = ╱ec╱,╱ // 0x32b8 @0x29
0x328f…32c3 at002a = ╱54╱T╱ // 0x32b9 @0x2a
0x328f…32c3 at002b = ╱4f╱O╱ // 0x32ba @0x2b
0x328f…32c3 at002c = ╱54╱T╱ // 0x32bb @0x2c
0x328f…32c3 at002d = ╱ed╱(╱ // 0x32bc @0x2d
0x328f…32c3 at002e = ╱36╱6╱ // 0x32bd @0x2e
0x328f…32c3 at002f = ╱f20600╱ // 0x32be @0x2f
0x328f…32c3 at0032 = ╱ee╱)╱ // 0x32c1 @0x32
0x328f…32c3 at0033 = EOL // 0x32c2 @0x33
0x328f…32c3 }
0x32c3…32d3 c8c1 5230 EXEC SIDE_SKIFT
0x32c3…32d3 LineComal80 {
0x32c3…32d3 ptr = 0xc8c1 // 0x32c3 @0x0
0x32c3…32d3 lno = 0x146e // 0x32c5 @0x2
0x32c3…32d3 at0004 = ╱9d╱ EXEC ╱ // 0x32c7 @0x4
0x32c3…32d3 at0005 = ╱53╱S╱ // 0x32c8 @0x5
0x32c3…32d3 at0006 = ╱49╱I╱ // 0x32c9 @0x6
0x32c3…32d3 at0007 = ╱44╱D╱ // 0x32ca @0x7
0x32c3…32d3 at0008 = ╱45╱E╱ // 0x32cb @0x8
0x32c3…32d3 at0009 = ╱5f╱_╱ // 0x32cc @0x9
0x32c3…32d3 at000a = ╱53╱S╱ // 0x32cd @0xa
0x32c3…32d3 at000b = ╱4b╱K╱ // 0x32ce @0xb
0x32c3…32d3 at000c = ╱49╱I╱ // 0x32cf @0xc
0x32c3…32d3 at000d = ╱46╱F╱ // 0x32d0 @0xd
0x32c3…32d3 at000e = ╱54╱T╱ // 0x32d1 @0xe
0x32c3…32d3 at000f = EOL // 0x32d2 @0xf
0x32c3…32d3 }
0x32d3…32e9 c8d7 5240 LET LIN_T := LIN_T + 1
0x32d3…32e9 LineComal80 {
0x32d3…32e9 ptr = 0xc8d7 // 0x32d3 @0x0
0x32d3…32e9 lno = 0x1478 // 0x32d5 @0x2
0x32d3…32e9 at0004 = ╱86╱ LET ╱ // 0x32d7 @0x4
0x32d3…32e9 at0005 = ╱4c╱L╱ // 0x32d8 @0x5
0x32d3…32e9 at0006 = ╱49╱I╱ // 0x32d9 @0x6
0x32d3…32e9 at0007 = ╱4e╱N╱ // 0x32da @0x7
0x32d3…32e9 at0008 = ╱5f╱_╱ // 0x32db @0x8
0x32d3…32e9 at0009 = ╱54╱T╱ // 0x32dc @0x9
0x32d3…32e9 at000a = ╱f0╱ := ╱ // 0x32dd @0xa
0x32d3…32e9 at000b = ╱4c╱L╱ // 0x32de @0xb
0x32d3…32e9 at000c = ╱49╱I╱ // 0x32df @0xc
0x32d3…32e9 at000d = ╱4e╱N╱ // 0x32e0 @0xd
0x32d3…32e9 at000e = ╱5f╱_╱ // 0x32e1 @0xe
0x32d3…32e9 at000f = ╱54╱T╱ // 0x32e2 @0xf
0x32d3…32e9 at0010 = ╱e5╱ + ╱ // 0x32e3 @0x10
0x32d3…32e9 at0011 = ╱31╱1╱ // 0x32e4 @0x11
0x32d3…32e9 at0012 = ╱f20100╱ // 0x32e5 @0x12
0x32d3…32e9 at0015 = EOL // 0x32e8 @0x15
0x32d3…32e9 }
0x32e9…3312 c900 5250 PRINT "<S>" ; TAB(11) ; "TRANSPORT" ; TAB(36)
0x32e9…3312 LineComal80 {
0x32e9…3312 ptr = 0xc900 // 0x32e9 @0x0
0x32e9…3312 lno = 0x1482 // 0x32eb @0x2
0x32e9…3312 at0004 = ╱92╱ PRINT ╱ // 0x32ed @0x4
0x32e9…3312 at0005 = ╱22╱"╱ // 0x32ee @0x5
0x32e9…3312 at0006 = ╱3c╱<╱ // 0x32ef @0x6
0x32e9…3312 at0007 = ╱53╱S╱ // 0x32f0 @0x7
0x32e9…3312 at0008 = ╱3e╱>╱ // 0x32f1 @0x8
0x32e9…3312 at0009 = ╱22╱"╱ // 0x32f2 @0x9
0x32e9…3312 at000a = ╱ea╱ ; ╱ // 0x32f3 @0xa
0x32e9…3312 at000b = ╱d2╱TAB╱ // 0x32f4 @0xb
0x32e9…3312 at000c = ╱ed╱(╱ // 0x32f5 @0xc
0x32e9…3312 at000d = ╱31╱1╱ // 0x32f6 @0xd
0x32e9…3312 at000e = ╱31╱1╱ // 0x32f7 @0xe
0x32e9…3312 at000f = ╱f20b00╱ // 0x32f8 @0xf
0x32e9…3312 at0012 = ╱ee╱)╱ // 0x32fb @0x12
0x32e9…3312 at0013 = ╱ea╱ ; ╱ // 0x32fc @0x13
0x32e9…3312 at0014 = ╱22╱"╱ // 0x32fd @0x14
0x32e9…3312 at0015 = ╱54╱T╱ // 0x32fe @0x15
0x32e9…3312 at0016 = ╱52╱R╱ // 0x32ff @0x16
0x32e9…3312 at0017 = ╱41╱A╱ // 0x3300 @0x17
0x32e9…3312 at0018 = ╱4e╱N╱ // 0x3301 @0x18
0x32e9…3312 at0019 = ╱53╱S╱ // 0x3302 @0x19
0x32e9…3312 at001a = ╱50╱P╱ // 0x3303 @0x1a
0x32e9…3312 at001b = ╱4f╱O╱ // 0x3304 @0x1b
0x32e9…3312 at001c = ╱52╱R╱ // 0x3305 @0x1c
0x32e9…3312 at001d = ╱54╱T╱ // 0x3306 @0x1d
0x32e9…3312 at001e = ╱22╱"╱ // 0x3307 @0x1e
0x32e9…3312 at001f = ╱ea╱ ; ╱ // 0x3308 @0x1f
0x32e9…3312 at0020 = ╱d2╱TAB╱ // 0x3309 @0x20
0x32e9…3312 at0021 = ╱ed╱(╱ // 0x330a @0x21
0x32e9…3312 at0022 = ╱33╱3╱ // 0x330b @0x22
0x32e9…3312 at0023 = ╱36╱6╱ // 0x330c @0x23
0x32e9…3312 at0024 = ╱f22400╱ // 0x330d @0x24
0x32e9…3312 at0027 = ╱ee╱)╱ // 0x3310 @0x27
0x32e9…3312 at0028 = EOL // 0x3311 @0x28
0x32e9…3312 }
0x3312…334a c938 5260 PRINT USING "<S>########.## ########.## " : TOT(1),TOT(2)
0x3312…334a LineComal80 {
0x3312…334a ptr = 0xc938 // 0x3312 @0x0
0x3312…334a lno = 0x148c // 0x3314 @0x2
0x3312…334a at0004 = ╱92╱ PRINT ╱ // 0x3316 @0x4
0x3312…334a at0005 = ╱b9╱ USING ╱ // 0x3317 @0x5
0x3312…334a at0006 = ╱22╱"╱ // 0x3318 @0x6
0x3312…334a at0007 = ╱3c╱<╱ // 0x3319 @0x7
0x3312…334a at0008 = ╱53╱S╱ // 0x331a @0x8
0x3312…334a at0009 = ╱3e╱>╱ // 0x331b @0x9
0x3312…334a at000a = ╱23╱#╱ // 0x331c @0xa
0x3312…334a at000b = ╱23╱#╱ // 0x331d @0xb
0x3312…334a at000c = ╱23╱#╱ // 0x331e @0xc
0x3312…334a at000d = ╱23╱#╱ // 0x331f @0xd
0x3312…334a at000e = ╱23╱#╱ // 0x3320 @0xe
0x3312…334a at000f = ╱23╱#╱ // 0x3321 @0xf
0x3312…334a at0010 = ╱23╱#╱ // 0x3322 @0x10
0x3312…334a at0011 = ╱23╱#╱ // 0x3323 @0x11
0x3312…334a at0012 = ╱2e╱.╱ // 0x3324 @0x12
0x3312…334a at0013 = ╱23╱#╱ // 0x3325 @0x13
0x3312…334a at0014 = ╱23╱#╱ // 0x3326 @0x14
0x3312…334a at0015 = ╱20╱…╱ // 0x3327 @0x15
0x3312…334a at0016 = ╱23╱#╱ // 0x3328 @0x16
0x3312…334a at0017 = ╱23╱#╱ // 0x3329 @0x17
0x3312…334a at0018 = ╱23╱#╱ // 0x332a @0x18
0x3312…334a at0019 = ╱23╱#╱ // 0x332b @0x19
0x3312…334a at001a = ╱23╱#╱ // 0x332c @0x1a
0x3312…334a at001b = ╱23╱#╱ // 0x332d @0x1b
0x3312…334a at001c = ╱23╱#╱ // 0x332e @0x1c
0x3312…334a at001d = ╱23╱#╱ // 0x332f @0x1d
0x3312…334a at001e = ╱2e╱.╱ // 0x3330 @0x1e
0x3312…334a at001f = ╱23╱#╱ // 0x3331 @0x1f
0x3312…334a at0020 = ╱23╱#╱ // 0x3332 @0x20
0x3312…334a at0021 = ╱20╱…╱ // 0x3333 @0x21
0x3312…334a at0022 = ╱22╱"╱ // 0x3334 @0x22
0x3312…334a at0023 = ╱f1╱ : ╱ // 0x3335 @0x23
0x3312…334a at0024 = ╱54╱T╱ // 0x3336 @0x24
0x3312…334a at0025 = ╱4f╱O╱ // 0x3337 @0x25
0x3312…334a at0026 = ╱54╱T╱ // 0x3338 @0x26
0x3312…334a at0027 = ╱ed╱(╱ // 0x3339 @0x27
0x3312…334a at0028 = ╱31╱1╱ // 0x333a @0x28
0x3312…334a at0029 = ╱f20100╱ // 0x333b @0x29
0x3312…334a at002c = ╱ee╱)╱ // 0x333e @0x2c
0x3312…334a at002d = ╱ec╱,╱ // 0x333f @0x2d
0x3312…334a at002e = ╱54╱T╱ // 0x3340 @0x2e
0x3312…334a at002f = ╱4f╱O╱ // 0x3341 @0x2f
0x3312…334a at0030 = ╱54╱T╱ // 0x3342 @0x30
0x3312…334a at0031 = ╱ed╱(╱ // 0x3343 @0x31
0x3312…334a at0032 = ╱32╱2╱ // 0x3344 @0x32
0x3312…334a at0033 = ╱f20200╱ // 0x3345 @0x33
0x3312…334a at0036 = ╱ee╱)╱ // 0x3348 @0x36
0x3312…334a at0037 = EOL // 0x3349 @0x37
0x3312…334a }
0x334a…3382 c970 5270 PRINT USING "<S>########.## ########.## " : TOT(3),TOT(4)
0x334a…3382 LineComal80 {
0x334a…3382 ptr = 0xc970 // 0x334a @0x0
0x334a…3382 lno = 0x1496 // 0x334c @0x2
0x334a…3382 at0004 = ╱92╱ PRINT ╱ // 0x334e @0x4
0x334a…3382 at0005 = ╱b9╱ USING ╱ // 0x334f @0x5
0x334a…3382 at0006 = ╱22╱"╱ // 0x3350 @0x6
0x334a…3382 at0007 = ╱3c╱<╱ // 0x3351 @0x7
0x334a…3382 at0008 = ╱53╱S╱ // 0x3352 @0x8
0x334a…3382 at0009 = ╱3e╱>╱ // 0x3353 @0x9
0x334a…3382 at000a = ╱23╱#╱ // 0x3354 @0xa
0x334a…3382 at000b = ╱23╱#╱ // 0x3355 @0xb
0x334a…3382 at000c = ╱23╱#╱ // 0x3356 @0xc
0x334a…3382 at000d = ╱23╱#╱ // 0x3357 @0xd
0x334a…3382 at000e = ╱23╱#╱ // 0x3358 @0xe
0x334a…3382 at000f = ╱23╱#╱ // 0x3359 @0xf
0x334a…3382 at0010 = ╱23╱#╱ // 0x335a @0x10
0x334a…3382 at0011 = ╱23╱#╱ // 0x335b @0x11
0x334a…3382 at0012 = ╱2e╱.╱ // 0x335c @0x12
0x334a…3382 at0013 = ╱23╱#╱ // 0x335d @0x13
0x334a…3382 at0014 = ╱23╱#╱ // 0x335e @0x14
0x334a…3382 at0015 = ╱20╱…╱ // 0x335f @0x15
0x334a…3382 at0016 = ╱23╱#╱ // 0x3360 @0x16
0x334a…3382 at0017 = ╱23╱#╱ // 0x3361 @0x17
0x334a…3382 at0018 = ╱23╱#╱ // 0x3362 @0x18
0x334a…3382 at0019 = ╱23╱#╱ // 0x3363 @0x19
0x334a…3382 at001a = ╱23╱#╱ // 0x3364 @0x1a
0x334a…3382 at001b = ╱23╱#╱ // 0x3365 @0x1b
0x334a…3382 at001c = ╱23╱#╱ // 0x3366 @0x1c
0x334a…3382 at001d = ╱23╱#╱ // 0x3367 @0x1d
0x334a…3382 at001e = ╱2e╱.╱ // 0x3368 @0x1e
0x334a…3382 at001f = ╱23╱#╱ // 0x3369 @0x1f
0x334a…3382 at0020 = ╱23╱#╱ // 0x336a @0x20
0x334a…3382 at0021 = ╱20╱…╱ // 0x336b @0x21
0x334a…3382 at0022 = ╱22╱"╱ // 0x336c @0x22
0x334a…3382 at0023 = ╱f1╱ : ╱ // 0x336d @0x23
0x334a…3382 at0024 = ╱54╱T╱ // 0x336e @0x24
0x334a…3382 at0025 = ╱4f╱O╱ // 0x336f @0x25
0x334a…3382 at0026 = ╱54╱T╱ // 0x3370 @0x26
0x334a…3382 at0027 = ╱ed╱(╱ // 0x3371 @0x27
0x334a…3382 at0028 = ╱33╱3╱ // 0x3372 @0x28
0x334a…3382 at0029 = ╱f20300╱ // 0x3373 @0x29
0x334a…3382 at002c = ╱ee╱)╱ // 0x3376 @0x2c
0x334a…3382 at002d = ╱ec╱,╱ // 0x3377 @0x2d
0x334a…3382 at002e = ╱54╱T╱ // 0x3378 @0x2e
0x334a…3382 at002f = ╱4f╱O╱ // 0x3379 @0x2f
0x334a…3382 at0030 = ╱54╱T╱ // 0x337a @0x30
0x334a…3382 at0031 = ╱ed╱(╱ // 0x337b @0x31
0x334a…3382 at0032 = ╱34╱4╱ // 0x337c @0x32
0x334a…3382 at0033 = ╱f20400╱ // 0x337d @0x33
0x334a…3382 at0036 = ╱ee╱)╱ // 0x3380 @0x36
0x334a…3382 at0037 = EOL // 0x3381 @0x37
0x334a…3382 }
0x3382…33b7 d747 5280 PRINT USING "########.## ########.## " : TOT(5),TOT(6)
0x3382…33b7 LineComal80 {
0x3382…33b7 ptr = 0xd747 // 0x3382 @0x0
0x3382…33b7 lno = 0x14a0 // 0x3384 @0x2
0x3382…33b7 at0004 = ╱92╱ PRINT ╱ // 0x3386 @0x4
0x3382…33b7 at0005 = ╱b9╱ USING ╱ // 0x3387 @0x5
0x3382…33b7 at0006 = ╱22╱"╱ // 0x3388 @0x6
0x3382…33b7 at0007 = ╱23╱#╱ // 0x3389 @0x7
0x3382…33b7 at0008 = ╱23╱#╱ // 0x338a @0x8
0x3382…33b7 at0009 = ╱23╱#╱ // 0x338b @0x9
0x3382…33b7 at000a = ╱23╱#╱ // 0x338c @0xa
0x3382…33b7 at000b = ╱23╱#╱ // 0x338d @0xb
0x3382…33b7 at000c = ╱23╱#╱ // 0x338e @0xc
0x3382…33b7 at000d = ╱23╱#╱ // 0x338f @0xd
0x3382…33b7 at000e = ╱23╱#╱ // 0x3390 @0xe
0x3382…33b7 at000f = ╱2e╱.╱ // 0x3391 @0xf
0x3382…33b7 at0010 = ╱23╱#╱ // 0x3392 @0x10
0x3382…33b7 at0011 = ╱23╱#╱ // 0x3393 @0x11
0x3382…33b7 at0012 = ╱20╱…╱ // 0x3394 @0x12
0x3382…33b7 at0013 = ╱23╱#╱ // 0x3395 @0x13
0x3382…33b7 at0014 = ╱23╱#╱ // 0x3396 @0x14
0x3382…33b7 at0015 = ╱23╱#╱ // 0x3397 @0x15
0x3382…33b7 at0016 = ╱23╱#╱ // 0x3398 @0x16
0x3382…33b7 at0017 = ╱23╱#╱ // 0x3399 @0x17
0x3382…33b7 at0018 = ╱23╱#╱ // 0x339a @0x18
0x3382…33b7 at0019 = ╱23╱#╱ // 0x339b @0x19
0x3382…33b7 at001a = ╱23╱#╱ // 0x339c @0x1a
0x3382…33b7 at001b = ╱2e╱.╱ // 0x339d @0x1b
0x3382…33b7 at001c = ╱23╱#╱ // 0x339e @0x1c
0x3382…33b7 at001d = ╱23╱#╱ // 0x339f @0x1d
0x3382…33b7 at001e = ╱20╱…╱ // 0x33a0 @0x1e
0x3382…33b7 at001f = ╱22╱"╱ // 0x33a1 @0x1f
0x3382…33b7 at0020 = ╱f1╱ : ╱ // 0x33a2 @0x20
0x3382…33b7 at0021 = ╱54╱T╱ // 0x33a3 @0x21
0x3382…33b7 at0022 = ╱4f╱O╱ // 0x33a4 @0x22
0x3382…33b7 at0023 = ╱54╱T╱ // 0x33a5 @0x23
0x3382…33b7 at0024 = ╱ed╱(╱ // 0x33a6 @0x24
0x3382…33b7 at0025 = ╱35╱5╱ // 0x33a7 @0x25
0x3382…33b7 at0026 = ╱f20500╱ // 0x33a8 @0x26
0x3382…33b7 at0029 = ╱ee╱)╱ // 0x33ab @0x29
0x3382…33b7 at002a = ╱ec╱,╱ // 0x33ac @0x2a
0x3382…33b7 at002b = ╱54╱T╱ // 0x33ad @0x2b
0x3382…33b7 at002c = ╱4f╱O╱ // 0x33ae @0x2c
0x3382…33b7 at002d = ╱54╱T╱ // 0x33af @0x2d
0x3382…33b7 at002e = ╱ed╱(╱ // 0x33b0 @0x2e
0x3382…33b7 at002f = ╱36╱6╱ // 0x33b1 @0x2f
0x3382…33b7 at0030 = ╱f20600╱ // 0x33b2 @0x30
0x3382…33b7 at0033 = ╱ee╱)╱ // 0x33b5 @0x33
0x3382…33b7 at0034 = EOL // 0x33b6 @0x34
0x3382…33b7 }
0x33b7…33bd c9ab 5350 ENDIF
0x33b7…33bd LineComal80 {
0x33b7…33bd ptr = 0xc9ab // 0x33b7 @0x0
0x33b7…33bd lno = 0x14e6 // 0x33b9 @0x2
0x33b7…33bd at0004 = ╱9c╱ ENDIF ╱ // 0x33bb @0x4
0x33b7…33bd at0005 = EOL // 0x33bc @0x5
0x33b7…33bd }
0x33bd…33cc c9ba 5360 ENDPROC TRANSPORT
0x33bd…33cc LineComal80 {
0x33bd…33cc ptr = 0xc9ba // 0x33bd @0x0
0x33bd…33cc lno = 0x14f0 // 0x33bf @0x2
0x33bd…33cc at0004 = ╱9f╱ ENDPROC ╱ // 0x33c1 @0x4
0x33bd…33cc at0005 = ╱54╱T╱ // 0x33c2 @0x5
0x33bd…33cc at0006 = ╱52╱R╱ // 0x33c3 @0x6
0x33bd…33cc at0007 = ╱41╱A╱ // 0x33c4 @0x7
0x33bd…33cc at0008 = ╱4e╱N╱ // 0x33c5 @0x8
0x33bd…33cc at0009 = ╱53╱S╱ // 0x33c6 @0x9
0x33bd…33cc at000a = ╱50╱P╱ // 0x33c7 @0xa
0x33bd…33cc at000b = ╱4f╱O╱ // 0x33c8 @0xb
0x33bd…33cc at000c = ╱52╱R╱ // 0x33c9 @0xc
0x33bd…33cc at000d = ╱54╱T╱ // 0x33ca @0xd
0x33bd…33cc at000e = EOL // 0x33cb @0xe
0x33bd…33cc }
0x33cc…33d1 c9bf 5370
0x33cc…33d1 LineComal80 {
0x33cc…33d1 ptr = 0xc9bf // 0x33cc @0x0
0x33cc…33d1 lno = 0x14fa // 0x33ce @0x2
0x33cc…33d1 at0004 = EOL // 0x33d0 @0x4
0x33cc…33d1 }
0x33d1…33e6 c9d4 5380 PROC UDSKRIV_POSTER
0x33d1…33e6 LineComal80 {
0x33d1…33e6 ptr = 0xc9d4 // 0x33d1 @0x0
0x33d1…33e6 lno = 0x1504 // 0x33d3 @0x2
0x33d1…33e6 at0004 = ╱9e64╱ PROC ╱ // 0x33d5 @0x4
0x33d1…33e6 at0006 = ╱55╱U╱ // 0x33d7 @0x6
0x33d1…33e6 at0007 = ╱44╱D╱ // 0x33d8 @0x7
0x33d1…33e6 at0008 = ╱53╱S╱ // 0x33d9 @0x8
0x33d1…33e6 at0009 = ╱4b╱K╱ // 0x33da @0x9
0x33d1…33e6 at000a = ╱52╱R╱ // 0x33db @0xa
0x33d1…33e6 at000b = ╱49╱I╱ // 0x33dc @0xb
0x33d1…33e6 at000c = ╱56╱V╱ // 0x33dd @0xc
0x33d1…33e6 at000d = ╱5f╱_╱ // 0x33de @0xd
0x33d1…33e6 at000e = ╱50╱P╱ // 0x33df @0xe
0x33d1…33e6 at000f = ╱4f╱O╱ // 0x33e0 @0xf
0x33d1…33e6 at0010 = ╱53╱S╱ // 0x33e1 @0x10
0x33d1…33e6 at0011 = ╱54╱T╱ // 0x33e2 @0x11
0x33d1…33e6 at0012 = ╱45╱E╱ // 0x33e3 @0x12
0x33d1…33e6 at0013 = ╱52╱R╱ // 0x33e4 @0x13
0x33d1…33e6 at0014 = EOL // 0x33e5 @0x14
0x33d1…33e6 }
0x33e6…3419 d5fe 5390 EXEC OVERSKRIFT("Udskrivning af kassekladde",7)
0x33e6…3419 LineComal80 {
0x33e6…3419 ptr = 0xd5fe // 0x33e6 @0x0
0x33e6…3419 lno = 0x150e // 0x33e8 @0x2
0x33e6…3419 at0004 = ╱9d╱ EXEC ╱ // 0x33ea @0x4
0x33e6…3419 at0005 = ╱4f╱O╱ // 0x33eb @0x5
0x33e6…3419 at0006 = ╱56╱V╱ // 0x33ec @0x6
0x33e6…3419 at0007 = ╱45╱E╱ // 0x33ed @0x7
0x33e6…3419 at0008 = ╱52╱R╱ // 0x33ee @0x8
0x33e6…3419 at0009 = ╱53╱S╱ // 0x33ef @0x9
0x33e6…3419 at000a = ╱4b╱K╱ // 0x33f0 @0xa
0x33e6…3419 at000b = ╱52╱R╱ // 0x33f1 @0xb
0x33e6…3419 at000c = ╱49╱I╱ // 0x33f2 @0xc
0x33e6…3419 at000d = ╱46╱F╱ // 0x33f3 @0xd
0x33e6…3419 at000e = ╱54╱T╱ // 0x33f4 @0xe
0x33e6…3419 at000f = ╱ed╱(╱ // 0x33f5 @0xf
0x33e6…3419 at0010 = ╱22╱"╱ // 0x33f6 @0x10
0x33e6…3419 at0011 = ╱55╱U╱ // 0x33f7 @0x11
0x33e6…3419 at0012 = ╱64╱d╱ // 0x33f8 @0x12
0x33e6…3419 at0013 = ╱73╱s╱ // 0x33f9 @0x13
0x33e6…3419 at0014 = ╱6b╱k╱ // 0x33fa @0x14
0x33e6…3419 at0015 = ╱72╱r╱ // 0x33fb @0x15
0x33e6…3419 at0016 = ╱69╱i╱ // 0x33fc @0x16
0x33e6…3419 at0017 = ╱76╱v╱ // 0x33fd @0x17
0x33e6…3419 at0018 = ╱6e╱n╱ // 0x33fe @0x18
0x33e6…3419 at0019 = ╱69╱i╱ // 0x33ff @0x19
0x33e6…3419 at001a = ╱6e╱n╱ // 0x3400 @0x1a
0x33e6…3419 at001b = ╱67╱g╱ // 0x3401 @0x1b
0x33e6…3419 at001c = ╱20╱…╱ // 0x3402 @0x1c
0x33e6…3419 at001d = ╱61╱a╱ // 0x3403 @0x1d
0x33e6…3419 at001e = ╱66╱f╱ // 0x3404 @0x1e
0x33e6…3419 at001f = ╱20╱…╱ // 0x3405 @0x1f
0x33e6…3419 at0020 = ╱6b╱k╱ // 0x3406 @0x20
0x33e6…3419 at0021 = ╱61╱a╱ // 0x3407 @0x21
0x33e6…3419 at0022 = ╱73╱s╱ // 0x3408 @0x22
0x33e6…3419 at0023 = ╱73╱s╱ // 0x3409 @0x23
0x33e6…3419 at0024 = ╱65╱e╱ // 0x340a @0x24
0x33e6…3419 at0025 = ╱6b╱k╱ // 0x340b @0x25
0x33e6…3419 at0026 = ╱6c╱l╱ // 0x340c @0x26
0x33e6…3419 at0027 = ╱61╱a╱ // 0x340d @0x27
0x33e6…3419 at0028 = ╱64╱d╱ // 0x340e @0x28
0x33e6…3419 at0029 = ╱64╱d╱ // 0x340f @0x29
0x33e6…3419 at002a = ╱65╱e╱ // 0x3410 @0x2a
0x33e6…3419 at002b = ╱22╱"╱ // 0x3411 @0x2b
0x33e6…3419 at002c = ╱ec╱,╱ // 0x3412 @0x2c
0x33e6…3419 at002d = ╱37╱7╱ // 0x3413 @0x2d
0x33e6…3419 at002e = ╱f20700╱ // 0x3414 @0x2e
0x33e6…3419 at0031 = ╱ee╱)╱ // 0x3417 @0x31
0x33e6…3419 at0032 = EOL // 0x3418 @0x32
0x33e6…3419 }
0x3419…343a d59d 5400 EXEC PRINTRES("EDB-liste",12)
0x3419…343a LineComal80 {
0x3419…343a ptr = 0xd59d // 0x3419 @0x0
0x3419…343a lno = 0x1518 // 0x341b @0x2
0x3419…343a at0004 = ╱9d╱ EXEC ╱ // 0x341d @0x4
0x3419…343a at0005 = ╱50╱P╱ // 0x341e @0x5
0x3419…343a at0006 = ╱52╱R╱ // 0x341f @0x6
0x3419…343a at0007 = ╱49╱I╱ // 0x3420 @0x7
0x3419…343a at0008 = ╱4e╱N╱ // 0x3421 @0x8
0x3419…343a at0009 = ╱54╱T╱ // 0x3422 @0x9
0x3419…343a at000a = ╱52╱R╱ // 0x3423 @0xa
0x3419…343a at000b = ╱45╱E╱ // 0x3424 @0xb
0x3419…343a at000c = ╱53╱S╱ // 0x3425 @0xc
0x3419…343a at000d = ╱ed╱(╱ // 0x3426 @0xd
0x3419…343a at000e = ╱22╱"╱ // 0x3427 @0xe
0x3419…343a at000f = ╱45╱E╱ // 0x3428 @0xf
0x3419…343a at0010 = ╱44╱D╱ // 0x3429 @0x10
0x3419…343a at0011 = ╱42╱B╱ // 0x342a @0x11
0x3419…343a at0012 = ╱2d╱-╱ // 0x342b @0x12
0x3419…343a at0013 = ╱6c╱l╱ // 0x342c @0x13
0x3419…343a at0014 = ╱69╱i╱ // 0x342d @0x14
0x3419…343a at0015 = ╱73╱s╱ // 0x342e @0x15
0x3419…343a at0016 = ╱74╱t╱ // 0x342f @0x16
0x3419…343a at0017 = ╱65╱e╱ // 0x3430 @0x17
0x3419…343a at0018 = ╱22╱"╱ // 0x3431 @0x18
0x3419…343a at0019 = ╱ec╱,╱ // 0x3432 @0x19
0x3419…343a at001a = ╱31╱1╱ // 0x3433 @0x1a
0x3419…343a at001b = ╱32╱2╱ // 0x3434 @0x1b
0x3419…343a at001c = ╱f20c00╱ // 0x3435 @0x1c
0x3419…343a at001f = ╱ee╱)╱ // 0x3438 @0x1f
0x3419…343a at0020 = EOL // 0x3439 @0x20
0x3419…343a }
0x343a…349b ca89 5410 LET TOT(1),TOT(2),TOT(3),TOT(4),TOT(5),TOT(6) := 0 ; LIN_T := 100 ; MAX_LIN := 51
0x343a…349b LineComal80 {
0x343a…349b ptr = 0xca89 // 0x343a @0x0
0x343a…349b lno = 0x1522 // 0x343c @0x2
0x343a…349b at0004 = ╱86╱ LET ╱ // 0x343e @0x4
0x343a…349b at0005 = ╱54╱T╱ // 0x343f @0x5
0x343a…349b at0006 = ╱4f╱O╱ // 0x3440 @0x6
0x343a…349b at0007 = ╱54╱T╱ // 0x3441 @0x7
0x343a…349b at0008 = ╱ed╱(╱ // 0x3442 @0x8
0x343a…349b at0009 = ╱31╱1╱ // 0x3443 @0x9
0x343a…349b at000a = ╱f20100╱ // 0x3444 @0xa
0x343a…349b at000d = ╱ee╱)╱ // 0x3447 @0xd
0x343a…349b at000e = ╱ec╱,╱ // 0x3448 @0xe
0x343a…349b at000f = ╱54╱T╱ // 0x3449 @0xf
0x343a…349b at0010 = ╱4f╱O╱ // 0x344a @0x10
0x343a…349b at0011 = ╱54╱T╱ // 0x344b @0x11
0x343a…349b at0012 = ╱ed╱(╱ // 0x344c @0x12
0x343a…349b at0013 = ╱32╱2╱ // 0x344d @0x13
0x343a…349b at0014 = ╱f20200╱ // 0x344e @0x14
0x343a…349b at0017 = ╱ee╱)╱ // 0x3451 @0x17
0x343a…349b at0018 = ╱ec╱,╱ // 0x3452 @0x18
0x343a…349b at0019 = ╱54╱T╱ // 0x3453 @0x19
0x343a…349b at001a = ╱4f╱O╱ // 0x3454 @0x1a
0x343a…349b at001b = ╱54╱T╱ // 0x3455 @0x1b
0x343a…349b at001c = ╱ed╱(╱ // 0x3456 @0x1c
0x343a…349b at001d = ╱33╱3╱ // 0x3457 @0x1d
0x343a…349b at001e = ╱f20300╱ // 0x3458 @0x1e
0x343a…349b at0021 = ╱ee╱)╱ // 0x345b @0x21
0x343a…349b at0022 = ╱ec╱,╱ // 0x345c @0x22
0x343a…349b at0023 = ╱54╱T╱ // 0x345d @0x23
0x343a…349b at0024 = ╱4f╱O╱ // 0x345e @0x24
0x343a…349b at0025 = ╱54╱T╱ // 0x345f @0x25
0x343a…349b at0026 = ╱ed╱(╱ // 0x3460 @0x26
0x343a…349b at0027 = ╱34╱4╱ // 0x3461 @0x27
0x343a…349b at0028 = ╱f20400╱ // 0x3462 @0x28
0x343a…349b at002b = ╱ee╱)╱ // 0x3465 @0x2b
0x343a…349b at002c = ╱ec╱,╱ // 0x3466 @0x2c
0x343a…349b at002d = ╱54╱T╱ // 0x3467 @0x2d
0x343a…349b at002e = ╱4f╱O╱ // 0x3468 @0x2e
0x343a…349b at002f = ╱54╱T╱ // 0x3469 @0x2f
0x343a…349b at0030 = ╱ed╱(╱ // 0x346a @0x30
0x343a…349b at0031 = ╱35╱5╱ // 0x346b @0x31
0x343a…349b at0032 = ╱f20500╱ // 0x346c @0x32
0x343a…349b at0035 = ╱ee╱)╱ // 0x346f @0x35
0x343a…349b at0036 = ╱ec╱,╱ // 0x3470 @0x36
0x343a…349b at0037 = ╱54╱T╱ // 0x3471 @0x37
0x343a…349b at0038 = ╱4f╱O╱ // 0x3472 @0x38
0x343a…349b at0039 = ╱54╱T╱ // 0x3473 @0x39
0x343a…349b at003a = ╱ed╱(╱ // 0x3474 @0x3a
0x343a…349b at003b = ╱36╱6╱ // 0x3475 @0x3b
0x343a…349b at003c = ╱f20600╱ // 0x3476 @0x3c
0x343a…349b at003f = ╱ee╱)╱ // 0x3479 @0x3f
0x343a…349b at0040 = ╱f0╱ := ╱ // 0x347a @0x40
0x343a…349b at0041 = ╱30╱0╱ // 0x347b @0x41
0x343a…349b at0042 = ╱f20000╱ // 0x347c @0x42
0x343a…349b at0045 = ╱ea╱ ; ╱ // 0x347f @0x45
0x343a…349b at0046 = ╱4c╱L╱ // 0x3480 @0x46
0x343a…349b at0047 = ╱49╱I╱ // 0x3481 @0x47
0x343a…349b at0048 = ╱4e╱N╱ // 0x3482 @0x48
0x343a…349b at0049 = ╱5f╱_╱ // 0x3483 @0x49
0x343a…349b at004a = ╱54╱T╱ // 0x3484 @0x4a
0x343a…349b at004b = ╱f0╱ := ╱ // 0x3485 @0x4b
0x343a…349b at004c = ╱31╱1╱ // 0x3486 @0x4c
0x343a…349b at004d = ╱30╱0╱ // 0x3487 @0x4d
0x343a…349b at004e = ╱30╱0╱ // 0x3488 @0x4e
0x343a…349b at004f = ╱f26400╱ // 0x3489 @0x4f
0x343a…349b at0052 = ╱ea╱ ; ╱ // 0x348c @0x52
0x343a…349b at0053 = ╱4d╱M╱ // 0x348d @0x53
0x343a…349b at0054 = ╱41╱A╱ // 0x348e @0x54
0x343a…349b at0055 = ╱58╱X╱ // 0x348f @0x55
0x343a…349b at0056 = ╱5f╱_╱ // 0x3490 @0x56
0x343a…349b at0057 = ╱4c╱L╱ // 0x3491 @0x57
0x343a…349b at0058 = ╱49╱I╱ // 0x3492 @0x58
0x343a…349b at0059 = ╱4e╱N╱ // 0x3493 @0x59
0x343a…349b at005a = ╱f0╱ := ╱ // 0x3494 @0x5a
0x343a…349b at005b = ╱35╱5╱ // 0x3495 @0x5b
0x343a…349b at005c = ╱31╱1╱ // 0x3496 @0x5c
0x343a…349b at005d = ╱f23300╱ // 0x3497 @0x5d
0x343a…349b at0060 = EOL // 0x349a @0x60
0x343a…349b }
0x349b…34d1 cabf 5360 GET KASSE$,1 : K_HØJREC,K_MAXREC,S_NR_KASSE,K_BDAT$
0x349b…34d1 LineComal80 {
0x349b…34d1 ptr = 0xcabf // 0x349b @0x0
0x349b…34d1 lno = 0x14f0 // 0x349d @0x2
0x349b…34d1 at0004 = ╱a9╱ GET ╱ // 0x349f @0x4
0x349b…34d1 at0005 = ╱4b╱K╱ // 0x34a0 @0x5
0x349b…34d1 at0006 = ╱41╱A╱ // 0x34a1 @0x6
0x349b…34d1 at0007 = ╱53╱S╱ // 0x34a2 @0x7
0x349b…34d1 at0008 = ╱53╱S╱ // 0x34a3 @0x8
0x349b…34d1 at0009 = ╱45╱E╱ // 0x34a4 @0x9
0x349b…34d1 at000a = ╱ef╱$╱ // 0x34a5 @0xa
0x349b…34d1 at000b = ╱ec╱,╱ // 0x34a6 @0xb
0x349b…34d1 at000c = ╱31╱1╱ // 0x34a7 @0xc
0x349b…34d1 at000d = ╱f20100╱ // 0x34a8 @0xd
0x349b…34d1 at0010 = ╱f1╱ : ╱ // 0x34ab @0x10
0x349b…34d1 at0011 = ╱4b╱K╱ // 0x34ac @0x11
0x349b…34d1 at0012 = ╱5f╱_╱ // 0x34ad @0x12
0x349b…34d1 at0013 = ╱48╱H╱ // 0x34ae @0x13
0x349b…34d1 at0014 = ╱5c╱Ø╱ // 0x34af @0x14
0x349b…34d1 at0015 = ╱4a╱J╱ // 0x34b0 @0x15
0x349b…34d1 at0016 = ╱52╱R╱ // 0x34b1 @0x16
0x349b…34d1 at0017 = ╱45╱E╱ // 0x34b2 @0x17
0x349b…34d1 at0018 = ╱43╱C╱ // 0x34b3 @0x18
0x349b…34d1 at0019 = ╱ec╱,╱ // 0x34b4 @0x19
0x349b…34d1 at001a = ╱4b╱K╱ // 0x34b5 @0x1a
0x349b…34d1 at001b = ╱5f╱_╱ // 0x34b6 @0x1b
0x349b…34d1 at001c = ╱4d╱M╱ // 0x34b7 @0x1c
0x349b…34d1 at001d = ╱41╱A╱ // 0x34b8 @0x1d
0x349b…34d1 at001e = ╱58╱X╱ // 0x34b9 @0x1e
0x349b…34d1 at001f = ╱52╱R╱ // 0x34ba @0x1f
0x349b…34d1 at0020 = ╱45╱E╱ // 0x34bb @0x20
0x349b…34d1 at0021 = ╱43╱C╱ // 0x34bc @0x21
0x349b…34d1 at0022 = ╱ec╱,╱ // 0x34bd @0x22
0x349b…34d1 at0023 = ╱53╱S╱ // 0x34be @0x23
0x349b…34d1 at0024 = ╱5f╱_╱ // 0x34bf @0x24
0x349b…34d1 at0025 = ╱4e╱N╱ // 0x34c0 @0x25
0x349b…34d1 at0026 = ╱52╱R╱ // 0x34c1 @0x26
0x349b…34d1 at0027 = ╱5f╱_╱ // 0x34c2 @0x27
0x349b…34d1 at0028 = ╱4b╱K╱ // 0x34c3 @0x28
0x349b…34d1 at0029 = ╱41╱A╱ // 0x34c4 @0x29
0x349b…34d1 at002a = ╱53╱S╱ // 0x34c5 @0x2a
0x349b…34d1 at002b = ╱53╱S╱ // 0x34c6 @0x2b
0x349b…34d1 at002c = ╱45╱E╱ // 0x34c7 @0x2c
0x349b…34d1 at002d = ╱ec╱,╱ // 0x34c8 @0x2d
0x349b…34d1 at002e = ╱4b╱K╱ // 0x34c9 @0x2e
0x349b…34d1 at002f = ╱5f╱_╱ // 0x34ca @0x2f
0x349b…34d1 at0030 = ╱42╱B╱ // 0x34cb @0x30
0x349b…34d1 at0031 = ╱44╱D╱ // 0x34cc @0x31
0x349b…34d1 at0032 = ╱41╱A╱ // 0x34cd @0x32
0x349b…34d1 at0033 = ╱54╱T╱ // 0x34ce @0x33
0x349b…34d1 at0034 = ╱ef╱$╱ // 0x34cf @0x34
0x349b…34d1 at0035 = EOL // 0x34d0 @0x35
0x349b…34d1 }
0x34d1…34ed cadb 5370 FOR J := 1 TO _HØJREC - 1 DO
0x34d1…34ed LineComal80 {
0x34d1…34ed ptr = 0xcadb // 0x34d1 @0x0
0x34d1…34ed lno = 0x14fa // 0x34d3 @0x2
0x34d1…34ed at0004 = ╱8364╱ FOR ╱ // 0x34d5 @0x4
0x34d1…34ed at0006 = ╱4a╱J╱ // 0x34d7 @0x6
0x34d1…34ed at0007 = ╱f0╱ := ╱ // 0x34d8 @0x7
0x34d1…34ed at0008 = ╱31╱1╱ // 0x34d9 @0x8
0x34d1…34ed at0009 = ╱f20100╱ // 0x34da @0x9
0x34d1…34ed at000c = ╱b74b╱ TO ╱ // 0x34dd @0xc
0x34d1…34ed at000e = ╱5f╱_╱ // 0x34df @0xe
0x34d1…34ed at000f = ╱48╱H╱ // 0x34e0 @0xf
0x34d1…34ed at0010 = ╱5c╱Ø╱ // 0x34e1 @0x10
0x34d1…34ed at0011 = ╱4a╱J╱ // 0x34e2 @0x11
0x34d1…34ed at0012 = ╱52╱R╱ // 0x34e3 @0x12
0x34d1…34ed at0013 = ╱45╱E╱ // 0x34e4 @0x13
0x34d1…34ed at0014 = ╱43╱C╱ // 0x34e5 @0x14
0x34d1…34ed at0015 = ╱e6╱ - ╱ // 0x34e6 @0x15
0x34d1…34ed at0016 = ╱31╱1╱ // 0x34e7 @0x16
0x34d1…34ed at0017 = ╱f20100╱ // 0x34e8 @0x17
0x34d1…34ed at001a = ╱bb╱ DO ╱ // 0x34eb @0x1a
0x34d1…34ed at001b = EOL // 0x34ec @0x1b
0x34d1…34ed }
0x34ed…3500 caee 5380 EXEC LÆS_K_POST(J)
0x34ed…3500 LineComal80 {
0x34ed…3500 ptr = 0xcaee // 0x34ed @0x0
0x34ed…3500 lno = 0x1504 // 0x34ef @0x2
0x34ed…3500 at0004 = ╱9d╱ EXEC ╱ // 0x34f1 @0x4
0x34ed…3500 at0005 = ╱4c╱L╱ // 0x34f2 @0x5
0x34ed…3500 at0006 = ╱5b╱Æ╱ // 0x34f3 @0x6
0x34ed…3500 at0007 = ╱53╱S╱ // 0x34f4 @0x7
0x34ed…3500 at0008 = ╱5f╱_╱ // 0x34f5 @0x8
0x34ed…3500 at0009 = ╱4b╱K╱ // 0x34f6 @0x9
0x34ed…3500 at000a = ╱5f╱_╱ // 0x34f7 @0xa
0x34ed…3500 at000b = ╱50╱P╱ // 0x34f8 @0xb
0x34ed…3500 at000c = ╱4f╱O╱ // 0x34f9 @0xc
0x34ed…3500 at000d = ╱53╱S╱ // 0x34fa @0xd
0x34ed…3500 at000e = ╱54╱T╱ // 0x34fb @0xe
0x34ed…3500 at000f = ╱ed╱(╱ // 0x34fc @0xf
0x34ed…3500 at0010 = ╱4a╱J╱ // 0x34fd @0x10
0x34ed…3500 at0011 = ╱ee╱)╱ // 0x34fe @0x11
0x34ed…3500 at0012 = EOL // 0x34ff @0x12
0x34ed…3500 }
0x3500…3511 caff 5390 EXEC PRINT_LINIE
0x3500…3511 LineComal80 {
0x3500…3511 ptr = 0xcaff // 0x3500 @0x0
0x3500…3511 lno = 0x150e // 0x3502 @0x2
0x3500…3511 at0004 = ╱9d╱ EXEC ╱ // 0x3504 @0x4
0x3500…3511 at0005 = ╱50╱P╱ // 0x3505 @0x5
0x3500…3511 at0006 = ╱52╱R╱ // 0x3506 @0x6
0x3500…3511 at0007 = ╱49╱I╱ // 0x3507 @0x7
0x3500…3511 at0008 = ╱4e╱N╱ // 0x3508 @0x8
0x3500…3511 at0009 = ╱54╱T╱ // 0x3509 @0x9
0x3500…3511 at000a = ╱5f╱_╱ // 0x350a @0xa
0x3500…3511 at000b = ╱4c╱L╱ // 0x350b @0xb
0x3500…3511 at000c = ╱49╱I╱ // 0x350c @0xc
0x3500…3511 at000d = ╱4e╱N╱ // 0x350d @0xd
0x3500…3511 at000e = ╱49╱I╱ // 0x350e @0xe
0x3500…3511 at000f = ╱45╱E╱ // 0x350f @0xf
0x3500…3511 at0010 = EOL // 0x3510 @0x10
0x3500…3511 }
0x3511…3518 cb06 5400 NEXT J
0x3511…3518 LineComal80 {
0x3511…3518 ptr = 0xcb06 // 0x3511 @0x0
0x3511…3518 lno = 0x1518 // 0x3513 @0x2
0x3511…3518 at0004 = ╱84╱ NEXT ╱ // 0x3515 @0x4
0x3511…3518 at0005 = ╱4a╱J╱ // 0x3516 @0x5
0x3511…3518 at0006 = EOL // 0x3517 @0x6
0x3511…3518 }
0x3518…3533 cb21 5410 IF LIN_T >< 100 THEN EXEC AFSLUT
0x3518…3533 LineComal80 {
0x3518…3533 ptr = 0xcb21 // 0x3518 @0x0
0x3518…3533 lno = 0x1522 // 0x351a @0x2
0x3518…3533 at0004 = ╱8200╱ IF ╱ // 0x351c @0x4
0x3518…3533 at0006 = ╱4c╱L╱ // 0x351e @0x6
0x3518…3533 at0007 = ╱49╱I╱ // 0x351f @0x7
0x3518…3533 at0008 = ╱4e╱N╱ // 0x3520 @0x8
0x3518…3533 at0009 = ╱5f╱_╱ // 0x3521 @0x9
0x3518…3533 at000a = ╱54╱T╱ // 0x3522 @0xa
0x3518…3533 at000b = ╱e4╱ >< ╱ // 0x3523 @0xb
0x3518…3533 at000c = ╱31╱1╱ // 0x3524 @0xc
0x3518…3533 at000d = ╱30╱0╱ // 0x3525 @0xd
0x3518…3533 at000e = ╱30╱0╱ // 0x3526 @0xe
0x3518…3533 at000f = ╱f26400╱ // 0x3527 @0xf
0x3518…3533 at0012 = ╱b5╱ THEN ╱ // 0x352a @0x12
0x3518…3533 at0013 = ╱9d╱ EXEC ╱ // 0x352b @0x13
0x3518…3533 at0014 = ╱41╱A╱ // 0x352c @0x14
0x3518…3533 at0015 = ╱46╱F╱ // 0x352d @0x15
0x3518…3533 at0016 = ╱53╱S╱ // 0x352e @0x16
0x3518…3533 at0017 = ╱4c╱L╱ // 0x352f @0x17
0x3518…3533 at0018 = ╱55╱U╱ // 0x3530 @0x18
0x3518…3533 at0019 = ╱54╱T╱ // 0x3531 @0x19
0x3518…3533 at001a = EOL // 0x3532 @0x1a
0x3518…3533 }
0x3533…3541 cb2f 5420 EXEC PRINTREL
0x3533…3541 LineComal80 {
0x3533…3541 ptr = 0xcb2f // 0x3533 @0x0
0x3533…3541 lno = 0x152c // 0x3535 @0x2
0x3533…3541 at0004 = ╱9d╱ EXEC ╱ // 0x3537 @0x4
0x3533…3541 at0005 = ╱50╱P╱ // 0x3538 @0x5
0x3533…3541 at0006 = ╱52╱R╱ // 0x3539 @0x6
0x3533…3541 at0007 = ╱49╱I╱ // 0x353a @0x7
0x3533…3541 at0008 = ╱4e╱N╱ // 0x353b @0x8
0x3533…3541 at0009 = ╱54╱T╱ // 0x353c @0x9
0x3533…3541 at000a = ╱52╱R╱ // 0x353d @0xa
0x3533…3541 at000b = ╱45╱E╱ // 0x353e @0xb
0x3533…3541 at000c = ╱4c╱L╱ // 0x353f @0xc
0x3533…3541 at000d = EOL // 0x3540 @0xd
0x3533…3541 }
0x3541…3555 cb43 5430 ENDPROC UDSKRIV_POSTER
0x3541…3555 LineComal80 {
0x3541…3555 ptr = 0xcb43 // 0x3541 @0x0
0x3541…3555 lno = 0x1536 // 0x3543 @0x2
0x3541…3555 at0004 = ╱9f╱ ENDPROC ╱ // 0x3545 @0x4
0x3541…3555 at0005 = ╱55╱U╱ // 0x3546 @0x5
0x3541…3555 at0006 = ╱44╱D╱ // 0x3547 @0x6
0x3541…3555 at0007 = ╱53╱S╱ // 0x3548 @0x7
0x3541…3555 at0008 = ╱4b╱K╱ // 0x3549 @0x8
0x3541…3555 at0009 = ╱52╱R╱ // 0x354a @0x9
0x3541…3555 at000a = ╱49╱I╱ // 0x354b @0xa
0x3541…3555 at000b = ╱56╱V╱ // 0x354c @0xb
0x3541…3555 at000c = ╱5f╱_╱ // 0x354d @0xc
0x3541…3555 at000d = ╱50╱P╱ // 0x354e @0xd
0x3541…3555 at000e = ╱4f╱O╱ // 0x354f @0xe
0x3541…3555 at000f = ╱53╱S╱ // 0x3550 @0xf
0x3541…3555 at0010 = ╱54╱T╱ // 0x3551 @0x10
0x3541…3555 at0011 = ╱45╱E╱ // 0x3552 @0x11
0x3541…3555 at0012 = ╱52╱R╱ // 0x3553 @0x12
0x3541…3555 at0013 = EOL // 0x3554 @0x13
0x3541…3555 }
0x3555…355a cb48 5440
0x3555…355a LineComal80 {
0x3555…355a ptr = 0xcb48 // 0x3555 @0x0
0x3555…355a lno = 0x1540 // 0x3557 @0x2
0x3555…355a at0004 = EOL // 0x3559 @0x4
0x3555…355a }
0x355a…3567 cb55 5450 PROC AFSLUT
0x355a…3567 LineComal80 {
0x355a…3567 ptr = 0xcb55 // 0x355a @0x0
0x355a…3567 lno = 0x154a // 0x355c @0x2
0x355a…3567 at0004 = ╱9e65╱ PROC ╱ // 0x355e @0x4
0x355a…3567 at0006 = ╱41╱A╱ // 0x3560 @0x6
0x355a…3567 at0007 = ╱46╱F╱ // 0x3561 @0x7
0x355a…3567 at0008 = ╱53╱S╱ // 0x3562 @0x8
0x355a…3567 at0009 = ╱4c╱L╱ // 0x3563 @0x9
0x355a…3567 at000a = ╱55╱U╱ // 0x3564 @0xa
0x355a…3567 at000b = ╱54╱T╱ // 0x3565 @0xb
0x355a…3567 at000c = EOL // 0x3566 @0xc
0x355a…3567 }
0x3567…3577 cb65 5460 EXEC SLUT_LINIE
0x3567…3577 LineComal80 {
0x3567…3577 ptr = 0xcb65 // 0x3567 @0x0
0x3567…3577 lno = 0x1554 // 0x3569 @0x2
0x3567…3577 at0004 = ╱9d╱ EXEC ╱ // 0x356b @0x4
0x3567…3577 at0005 = ╱53╱S╱ // 0x356c @0x5
0x3567…3577 at0006 = ╱4c╱L╱ // 0x356d @0x6
0x3567…3577 at0007 = ╱55╱U╱ // 0x356e @0x7
0x3567…3577 at0008 = ╱54╱T╱ // 0x356f @0x8
0x3567…3577 at0009 = ╱5f╱_╱ // 0x3570 @0x9
0x3567…3577 at000a = ╱4c╱L╱ // 0x3571 @0xa
0x3567…3577 at000b = ╱49╱I╱ // 0x3572 @0xb
0x3567…3577 at000c = ╱4e╱N╱ // 0x3573 @0xc
0x3567…3577 at000d = ╱49╱I╱ // 0x3574 @0xd
0x3567…3577 at000e = ╱45╱E╱ // 0x3575 @0xe
0x3567…3577 at000f = EOL // 0x3576 @0xf
0x3567…3577 }
0x3577…358d cb7b 5470 LET LIN_T := LIN_T + 6
0x3577…358d LineComal80 {
0x3577…358d ptr = 0xcb7b // 0x3577 @0x0
0x3577…358d lno = 0x155e // 0x3579 @0x2
0x3577…358d at0004 = ╱86╱ LET ╱ // 0x357b @0x4
0x3577…358d at0005 = ╱4c╱L╱ // 0x357c @0x5
0x3577…358d at0006 = ╱49╱I╱ // 0x357d @0x6
0x3577…358d at0007 = ╱4e╱N╱ // 0x357e @0x7
0x3577…358d at0008 = ╱5f╱_╱ // 0x357f @0x8
0x3577…358d at0009 = ╱54╱T╱ // 0x3580 @0x9
0x3577…358d at000a = ╱f0╱ := ╱ // 0x3581 @0xa
0x3577…358d at000b = ╱4c╱L╱ // 0x3582 @0xb
0x3577…358d at000c = ╱49╱I╱ // 0x3583 @0xc
0x3577…358d at000d = ╱4e╱N╱ // 0x3584 @0xd
0x3577…358d at000e = ╱5f╱_╱ // 0x3585 @0xe
0x3577…358d at000f = ╱54╱T╱ // 0x3586 @0xf
0x3577…358d at0010 = ╱e5╱ + ╱ // 0x3587 @0x10
0x3577…358d at0011 = ╱36╱6╱ // 0x3588 @0x11
0x3577…358d at0012 = ╱f20600╱ // 0x3589 @0x12
0x3577…358d at0015 = EOL // 0x358c @0x15
0x3577…358d }
0x358d…35bf cbad 5480 PRINT "<S>" ; TAB(11) ; "DAGENS BEVÆGELSER " ; TAB(35)
0x358d…35bf LineComal80 {
0x358d…35bf ptr = 0xcbad // 0x358d @0x0
0x358d…35bf lno = 0x1568 // 0x358f @0x2
0x358d…35bf at0004 = ╱92╱ PRINT ╱ // 0x3591 @0x4
0x358d…35bf at0005 = ╱22╱"╱ // 0x3592 @0x5
0x358d…35bf at0006 = ╱3c╱<╱ // 0x3593 @0x6
0x358d…35bf at0007 = ╱53╱S╱ // 0x3594 @0x7
0x358d…35bf at0008 = ╱3e╱>╱ // 0x3595 @0x8
0x358d…35bf at0009 = ╱22╱"╱ // 0x3596 @0x9
0x358d…35bf at000a = ╱ea╱ ; ╱ // 0x3597 @0xa
0x358d…35bf at000b = ╱d2╱TAB╱ // 0x3598 @0xb
0x358d…35bf at000c = ╱ed╱(╱ // 0x3599 @0xc
0x358d…35bf at000d = ╱31╱1╱ // 0x359a @0xd
0x358d…35bf at000e = ╱31╱1╱ // 0x359b @0xe
0x358d…35bf at000f = ╱f20b00╱ // 0x359c @0xf
0x358d…35bf at0012 = ╱ee╱)╱ // 0x359f @0x12
0x358d…35bf at0013 = ╱ea╱ ; ╱ // 0x35a0 @0x13
0x358d…35bf at0014 = ╱22╱"╱ // 0x35a1 @0x14
0x358d…35bf at0015 = ╱44╱D╱ // 0x35a2 @0x15
0x358d…35bf at0016 = ╱41╱A╱ // 0x35a3 @0x16
0x358d…35bf at0017 = ╱47╱G╱ // 0x35a4 @0x17
0x358d…35bf at0018 = ╱45╱E╱ // 0x35a5 @0x18
0x358d…35bf at0019 = ╱4e╱N╱ // 0x35a6 @0x19
0x358d…35bf at001a = ╱53╱S╱ // 0x35a7 @0x1a
0x358d…35bf at001b = ╱20╱…╱ // 0x35a8 @0x1b
0x358d…35bf at001c = ╱42╱B╱ // 0x35a9 @0x1c
0x358d…35bf at001d = ╱45╱E╱ // 0x35aa @0x1d
0x358d…35bf at001e = ╱56╱V╱ // 0x35ab @0x1e
0x358d…35bf at001f = ╱5b╱Æ╱ // 0x35ac @0x1f
0x358d…35bf at0020 = ╱47╱G╱ // 0x35ad @0x20
0x358d…35bf at0021 = ╱45╱E╱ // 0x35ae @0x21
0x358d…35bf at0022 = ╱4c╱L╱ // 0x35af @0x22
0x358d…35bf at0023 = ╱53╱S╱ // 0x35b0 @0x23
0x358d…35bf at0024 = ╱45╱E╱ // 0x35b1 @0x24
0x358d…35bf at0025 = ╱52╱R╱ // 0x35b2 @0x25
0x358d…35bf at0026 = ╱20╱…╱ // 0x35b3 @0x26
0x358d…35bf at0027 = ╱22╱"╱ // 0x35b4 @0x27
0x358d…35bf at0028 = ╱ea╱ ; ╱ // 0x35b5 @0x28
0x358d…35bf at0029 = ╱d2╱TAB╱ // 0x35b6 @0x29
0x358d…35bf at002a = ╱ed╱(╱ // 0x35b7 @0x2a
0x358d…35bf at002b = ╱33╱3╱ // 0x35b8 @0x2b
0x358d…35bf at002c = ╱35╱5╱ // 0x35b9 @0x2c
0x358d…35bf at002d = ╱f22300╱ // 0x35ba @0x2d
0x358d…35bf at0030 = ╱ee╱)╱ // 0x35bd @0x30
0x358d…35bf at0031 = EOL // 0x35be @0x31
0x358d…35bf }
0x35bf…35f8 cbe6 5490 PRINT "<S>" ; CHR$ (TOT(1),9,2) ; CHR$ (TOT(2),9,2)
0x35bf…35f8 LineComal80 {
0x35bf…35f8 ptr = 0xcbe6 // 0x35bf @0x0
0x35bf…35f8 lno = 0x1572 // 0x35c1 @0x2
0x35bf…35f8 at0004 = ╱92╱ PRINT ╱ // 0x35c3 @0x4
0x35bf…35f8 at0005 = ╱22╱"╱ // 0x35c4 @0x5
0x35bf…35f8 at0006 = ╱3c╱<╱ // 0x35c5 @0x6
0x35bf…35f8 at0007 = ╱53╱S╱ // 0x35c6 @0x7
0x35bf…35f8 at0008 = ╱3e╱>╱ // 0x35c7 @0x8
0x35bf…35f8 at0009 = ╱22╱"╱ // 0x35c8 @0x9
0x35bf…35f8 at000a = ╱ea╱ ; ╱ // 0x35c9 @0xa
0x35bf…35f8 at000b = ╱d0╱ CHR$ ╱ // 0x35ca @0xb
0x35bf…35f8 at000c = ╱ed╱(╱ // 0x35cb @0xc
0x35bf…35f8 at000d = ╱54╱T╱ // 0x35cc @0xd
0x35bf…35f8 at000e = ╱4f╱O╱ // 0x35cd @0xe
0x35bf…35f8 at000f = ╱54╱T╱ // 0x35ce @0xf
0x35bf…35f8 at0010 = ╱ed╱(╱ // 0x35cf @0x10
0x35bf…35f8 at0011 = ╱31╱1╱ // 0x35d0 @0x11
0x35bf…35f8 at0012 = ╱f20100╱ // 0x35d1 @0x12
0x35bf…35f8 at0015 = ╱ee╱)╱ // 0x35d4 @0x15
0x35bf…35f8 at0016 = ╱ec╱,╱ // 0x35d5 @0x16
0x35bf…35f8 at0017 = ╱39╱9╱ // 0x35d6 @0x17
0x35bf…35f8 at0018 = ╱f20900╱ // 0x35d7 @0x18
0x35bf…35f8 at001b = ╱ec╱,╱ // 0x35da @0x1b
0x35bf…35f8 at001c = ╱32╱2╱ // 0x35db @0x1c
0x35bf…35f8 at001d = ╱f20200╱ // 0x35dc @0x1d
0x35bf…35f8 at0020 = ╱ee╱)╱ // 0x35df @0x20
0x35bf…35f8 at0021 = ╱ea╱ ; ╱ // 0x35e0 @0x21
0x35bf…35f8 at0022 = ╱d0╱ CHR$ ╱ // 0x35e1 @0x22
0x35bf…35f8 at0023 = ╱ed╱(╱ // 0x35e2 @0x23
0x35bf…35f8 at0024 = ╱54╱T╱ // 0x35e3 @0x24
0x35bf…35f8 at0025 = ╱4f╱O╱ // 0x35e4 @0x25
0x35bf…35f8 at0026 = ╱54╱T╱ // 0x35e5 @0x26
0x35bf…35f8 at0027 = ╱ed╱(╱ // 0x35e6 @0x27
0x35bf…35f8 at0028 = ╱32╱2╱ // 0x35e7 @0x28
0x35bf…35f8 at0029 = ╱f20200╱ // 0x35e8 @0x29
0x35bf…35f8 at002c = ╱ee╱)╱ // 0x35eb @0x2c
0x35bf…35f8 at002d = ╱ec╱,╱ // 0x35ec @0x2d
0x35bf…35f8 at002e = ╱39╱9╱ // 0x35ed @0x2e
0x35bf…35f8 at002f = ╱f20900╱ // 0x35ee @0x2f
0x35bf…35f8 at0032 = ╱ec╱,╱ // 0x35f1 @0x32
0x35bf…35f8 at0033 = ╱32╱2╱ // 0x35f2 @0x33
0x35bf…35f8 at0034 = ╱f20200╱ // 0x35f3 @0x34
0x35bf…35f8 at0037 = ╱ee╱)╱ // 0x35f6 @0x37
0x35bf…35f8 at0038 = EOL // 0x35f7 @0x38
0x35bf…35f8 }
0x35f8…3631 cc1f 5500 PRINT "<S>" ; CHR$ (TOT(3),9,2) ; CHR$ (TOT(4),9,2)
0x35f8…3631 LineComal80 {
0x35f8…3631 ptr = 0xcc1f // 0x35f8 @0x0
0x35f8…3631 lno = 0x157c // 0x35fa @0x2
0x35f8…3631 at0004 = ╱92╱ PRINT ╱ // 0x35fc @0x4
0x35f8…3631 at0005 = ╱22╱"╱ // 0x35fd @0x5
0x35f8…3631 at0006 = ╱3c╱<╱ // 0x35fe @0x6
0x35f8…3631 at0007 = ╱53╱S╱ // 0x35ff @0x7
0x35f8…3631 at0008 = ╱3e╱>╱ // 0x3600 @0x8
0x35f8…3631 at0009 = ╱22╱"╱ // 0x3601 @0x9
0x35f8…3631 at000a = ╱ea╱ ; ╱ // 0x3602 @0xa
0x35f8…3631 at000b = ╱d0╱ CHR$ ╱ // 0x3603 @0xb
0x35f8…3631 at000c = ╱ed╱(╱ // 0x3604 @0xc
0x35f8…3631 at000d = ╱54╱T╱ // 0x3605 @0xd
0x35f8…3631 at000e = ╱4f╱O╱ // 0x3606 @0xe
0x35f8…3631 at000f = ╱54╱T╱ // 0x3607 @0xf
0x35f8…3631 at0010 = ╱ed╱(╱ // 0x3608 @0x10
0x35f8…3631 at0011 = ╱33╱3╱ // 0x3609 @0x11
0x35f8…3631 at0012 = ╱f20300╱ // 0x360a @0x12
0x35f8…3631 at0015 = ╱ee╱)╱ // 0x360d @0x15
0x35f8…3631 at0016 = ╱ec╱,╱ // 0x360e @0x16
0x35f8…3631 at0017 = ╱39╱9╱ // 0x360f @0x17
0x35f8…3631 at0018 = ╱f20900╱ // 0x3610 @0x18
0x35f8…3631 at001b = ╱ec╱,╱ // 0x3613 @0x1b
0x35f8…3631 at001c = ╱32╱2╱ // 0x3614 @0x1c
0x35f8…3631 at001d = ╱f20200╱ // 0x3615 @0x1d
0x35f8…3631 at0020 = ╱ee╱)╱ // 0x3618 @0x20
0x35f8…3631 at0021 = ╱ea╱ ; ╱ // 0x3619 @0x21
0x35f8…3631 at0022 = ╱d0╱ CHR$ ╱ // 0x361a @0x22
0x35f8…3631 at0023 = ╱ed╱(╱ // 0x361b @0x23
0x35f8…3631 at0024 = ╱54╱T╱ // 0x361c @0x24
0x35f8…3631 at0025 = ╱4f╱O╱ // 0x361d @0x25
0x35f8…3631 at0026 = ╱54╱T╱ // 0x361e @0x26
0x35f8…3631 at0027 = ╱ed╱(╱ // 0x361f @0x27
0x35f8…3631 at0028 = ╱34╱4╱ // 0x3620 @0x28
0x35f8…3631 at0029 = ╱f20400╱ // 0x3621 @0x29
0x35f8…3631 at002c = ╱ee╱)╱ // 0x3624 @0x2c
0x35f8…3631 at002d = ╱ec╱,╱ // 0x3625 @0x2d
0x35f8…3631 at002e = ╱39╱9╱ // 0x3626 @0x2e
0x35f8…3631 at002f = ╱f20900╱ // 0x3627 @0x2f
0x35f8…3631 at0032 = ╱ec╱,╱ // 0x362a @0x32
0x35f8…3631 at0033 = ╱32╱2╱ // 0x362b @0x33
0x35f8…3631 at0034 = ╱f20200╱ // 0x362c @0x34
0x35f8…3631 at0037 = ╱ee╱)╱ // 0x362f @0x37
0x35f8…3631 at0038 = EOL // 0x3630 @0x38
0x35f8…3631 }
0x3631…3664 cc52 5510 PRINT CHR$ (TOT(5),9,2) ; CHR$ (TOT(6),9,2)
0x3631…3664 LineComal80 {
0x3631…3664 ptr = 0xcc52 // 0x3631 @0x0
0x3631…3664 lno = 0x1586 // 0x3633 @0x2
0x3631…3664 at0004 = ╱92╱ PRINT ╱ // 0x3635 @0x4
0x3631…3664 at0005 = ╱d0╱ CHR$ ╱ // 0x3636 @0x5
0x3631…3664 at0006 = ╱ed╱(╱ // 0x3637 @0x6
0x3631…3664 at0007 = ╱54╱T╱ // 0x3638 @0x7
0x3631…3664 at0008 = ╱4f╱O╱ // 0x3639 @0x8
0x3631…3664 at0009 = ╱54╱T╱ // 0x363a @0x9
0x3631…3664 at000a = ╱ed╱(╱ // 0x363b @0xa
0x3631…3664 at000b = ╱35╱5╱ // 0x363c @0xb
0x3631…3664 at000c = ╱f20500╱ // 0x363d @0xc
0x3631…3664 at000f = ╱ee╱)╱ // 0x3640 @0xf
0x3631…3664 at0010 = ╱ec╱,╱ // 0x3641 @0x10
0x3631…3664 at0011 = ╱39╱9╱ // 0x3642 @0x11
0x3631…3664 at0012 = ╱f20900╱ // 0x3643 @0x12
0x3631…3664 at0015 = ╱ec╱,╱ // 0x3646 @0x15
0x3631…3664 at0016 = ╱32╱2╱ // 0x3647 @0x16
0x3631…3664 at0017 = ╱f20200╱ // 0x3648 @0x17
0x3631…3664 at001a = ╱ee╱)╱ // 0x364b @0x1a
0x3631…3664 at001b = ╱ea╱ ; ╱ // 0x364c @0x1b
0x3631…3664 at001c = ╱d0╱ CHR$ ╱ // 0x364d @0x1c
0x3631…3664 at001d = ╱ed╱(╱ // 0x364e @0x1d
0x3631…3664 at001e = ╱54╱T╱ // 0x364f @0x1e
0x3631…3664 at001f = ╱4f╱O╱ // 0x3650 @0x1f
0x3631…3664 at0020 = ╱54╱T╱ // 0x3651 @0x20
0x3631…3664 at0021 = ╱ed╱(╱ // 0x3652 @0x21
0x3631…3664 at0022 = ╱36╱6╱ // 0x3653 @0x22
0x3631…3664 at0023 = ╱f20600╱ // 0x3654 @0x23
0x3631…3664 at0026 = ╱ee╱)╱ // 0x3657 @0x26
0x3631…3664 at0027 = ╱ec╱,╱ // 0x3658 @0x27
0x3631…3664 at0028 = ╱39╱9╱ // 0x3659 @0x28
0x3631…3664 at0029 = ╱f20900╱ // 0x365a @0x29
0x3631…3664 at002c = ╱ec╱,╱ // 0x365d @0x2c
0x3631…3664 at002d = ╱32╱2╱ // 0x365e @0x2d
0x3631…3664 at002e = ╱f20200╱ // 0x365f @0x2e
0x3631…3664 at0031 = ╱ee╱)╱ // 0x3662 @0x31
0x3631…3664 at0032 = EOL // 0x3663 @0x32
0x3631…3664 }
0x3664…366a cc58 5520 PRINT
0x3664…366a LineComal80 {
0x3664…366a ptr = 0xcc58 // 0x3664 @0x0
0x3664…366a lno = 0x1590 // 0x3666 @0x2
0x3664…366a at0004 = ╱92╱ PRINT ╱ // 0x3668 @0x4
0x3664…366a at0005 = EOL // 0x3669 @0x5
0x3664…366a }
0x366a…369b cc89 5530 PRINT "<S>" ; TAB(11) ; "BEHOLDNING MORGEN" ; TAB(35)
0x366a…369b LineComal80 {
0x366a…369b ptr = 0xcc89 // 0x366a @0x0
0x366a…369b lno = 0x159a // 0x366c @0x2
0x366a…369b at0004 = ╱92╱ PRINT ╱ // 0x366e @0x4
0x366a…369b at0005 = ╱22╱"╱ // 0x366f @0x5
0x366a…369b at0006 = ╱3c╱<╱ // 0x3670 @0x6
0x366a…369b at0007 = ╱53╱S╱ // 0x3671 @0x7
0x366a…369b at0008 = ╱3e╱>╱ // 0x3672 @0x8
0x366a…369b at0009 = ╱22╱"╱ // 0x3673 @0x9
0x366a…369b at000a = ╱ea╱ ; ╱ // 0x3674 @0xa
0x366a…369b at000b = ╱d2╱TAB╱ // 0x3675 @0xb
0x366a…369b at000c = ╱ed╱(╱ // 0x3676 @0xc
0x366a…369b at000d = ╱31╱1╱ // 0x3677 @0xd
0x366a…369b at000e = ╱31╱1╱ // 0x3678 @0xe
0x366a…369b at000f = ╱f20b00╱ // 0x3679 @0xf
0x366a…369b at0012 = ╱ee╱)╱ // 0x367c @0x12
0x366a…369b at0013 = ╱ea╱ ; ╱ // 0x367d @0x13
0x366a…369b at0014 = ╱22╱"╱ // 0x367e @0x14
0x366a…369b at0015 = ╱42╱B╱ // 0x367f @0x15
0x366a…369b at0016 = ╱45╱E╱ // 0x3680 @0x16
0x366a…369b at0017 = ╱48╱H╱ // 0x3681 @0x17
0x366a…369b at0018 = ╱4f╱O╱ // 0x3682 @0x18
0x366a…369b at0019 = ╱4c╱L╱ // 0x3683 @0x19
0x366a…369b at001a = ╱44╱D╱ // 0x3684 @0x1a
0x366a…369b at001b = ╱4e╱N╱ // 0x3685 @0x1b
0x366a…369b at001c = ╱49╱I╱ // 0x3686 @0x1c
0x366a…369b at001d = ╱4e╱N╱ // 0x3687 @0x1d
0x366a…369b at001e = ╱47╱G╱ // 0x3688 @0x1e
0x366a…369b at001f = ╱20╱…╱ // 0x3689 @0x1f
0x366a…369b at0020 = ╱4d╱M╱ // 0x368a @0x20
0x366a…369b at0021 = ╱4f╱O╱ // 0x368b @0x21
0x366a…369b at0022 = ╱52╱R╱ // 0x368c @0x22
0x366a…369b at0023 = ╱47╱G╱ // 0x368d @0x23
0x366a…369b at0024 = ╱45╱E╱ // 0x368e @0x24
0x366a…369b at0025 = ╱4e╱N╱ // 0x368f @0x25
0x366a…369b at0026 = ╱22╱"╱ // 0x3690 @0x26
0x366a…369b at0027 = ╱ea╱ ; ╱ // 0x3691 @0x27
0x366a…369b at0028 = ╱d2╱TAB╱ // 0x3692 @0x28
0x366a…369b at0029 = ╱ed╱(╱ // 0x3693 @0x29
0x366a…369b at002a = ╱33╱3╱ // 0x3694 @0x2a
0x366a…369b at002b = ╱35╱5╱ // 0x3695 @0x2b
0x366a…369b at002c = ╱f22300╱ // 0x3696 @0x2c
0x366a…369b at002f = ╱ee╱)╱ // 0x3699 @0x2f
0x366a…369b at0030 = EOL // 0x369a @0x30
0x366a…369b }
0x369b…36b5 cca3 5540 EXEC FIND_KTO(KASSE_KTO$)
0x369b…36b5 LineComal80 {
0x369b…36b5 ptr = 0xcca3 // 0x369b @0x0
0x369b…36b5 lno = 0x15a4 // 0x369d @0x2
0x369b…36b5 at0004 = ╱9d╱ EXEC ╱ // 0x369f @0x4
0x369b…36b5 at0005 = ╱46╱F╱ // 0x36a0 @0x5
0x369b…36b5 at0006 = ╱49╱I╱ // 0x36a1 @0x6
0x369b…36b5 at0007 = ╱4e╱N╱ // 0x36a2 @0x7
0x369b…36b5 at0008 = ╱44╱D╱ // 0x36a3 @0x8
0x369b…36b5 at0009 = ╱5f╱_╱ // 0x36a4 @0x9
0x369b…36b5 at000a = ╱4b╱K╱ // 0x36a5 @0xa
0x369b…36b5 at000b = ╱54╱T╱ // 0x36a6 @0xb
0x369b…36b5 at000c = ╱4f╱O╱ // 0x36a7 @0xc
0x369b…36b5 at000d = ╱ed╱(╱ // 0x36a8 @0xd
0x369b…36b5 at000e = ╱4b╱K╱ // 0x36a9 @0xe
0x369b…36b5 at000f = ╱41╱A╱ // 0x36aa @0xf
0x369b…36b5 at0010 = ╱53╱S╱ // 0x36ab @0x10
0x369b…36b5 at0011 = ╱53╱S╱ // 0x36ac @0x11
0x369b…36b5 at0012 = ╱45╱E╱ // 0x36ad @0x12
0x369b…36b5 at0013 = ╱5f╱_╱ // 0x36ae @0x13
0x369b…36b5 at0014 = ╱4b╱K╱ // 0x36af @0x14
0x369b…36b5 at0015 = ╱54╱T╱ // 0x36b0 @0x15
0x369b…36b5 at0016 = ╱4f╱O╱ // 0x36b1 @0x16
0x369b…36b5 at0017 = ╱ef╱$╱ // 0x36b2 @0x17
0x369b…36b5 at0018 = ╱ee╱)╱ // 0x36b3 @0x18
0x369b…36b5 at0019 = EOL // 0x36b4 @0x19
0x369b…36b5 }
0x36b5…36cb ccb9 5550 EXEC LÆS_KONTO(RECNR)
0x36b5…36cb LineComal80 {
0x36b5…36cb ptr = 0xccb9 // 0x36b5 @0x0
0x36b5…36cb lno = 0x15ae // 0x36b7 @0x2
0x36b5…36cb at0004 = ╱9d╱ EXEC ╱ // 0x36b9 @0x4
0x36b5…36cb at0005 = ╱4c╱L╱ // 0x36ba @0x5
0x36b5…36cb at0006 = ╱5b╱Æ╱ // 0x36bb @0x6
0x36b5…36cb at0007 = ╱53╱S╱ // 0x36bc @0x7
0x36b5…36cb at0008 = ╱5f╱_╱ // 0x36bd @0x8
0x36b5…36cb at0009 = ╱4b╱K╱ // 0x36be @0x9
0x36b5…36cb at000a = ╱4f╱O╱ // 0x36bf @0xa
0x36b5…36cb at000b = ╱4e╱N╱ // 0x36c0 @0xb
0x36b5…36cb at000c = ╱54╱T╱ // 0x36c1 @0xc
0x36b5…36cb at000d = ╱4f╱O╱ // 0x36c2 @0xd
0x36b5…36cb at000e = ╱ed╱(╱ // 0x36c3 @0xe
0x36b5…36cb at000f = ╱52╱R╱ // 0x36c4 @0xf
0x36b5…36cb at0010 = ╱45╱E╱ // 0x36c5 @0x10
0x36b5…36cb at0011 = ╱43╱C╱ // 0x36c6 @0x11
0x36b5…36cb at0012 = ╱4e╱N╱ // 0x36c7 @0x12
0x36b5…36cb at0013 = ╱52╱R╱ // 0x36c8 @0x13
0x36b5…36cb at0014 = ╱ee╱)╱ // 0x36c9 @0x14
0x36b5…36cb at0015 = EOL // 0x36ca @0x15
0x36b5…36cb }
0x36cb…36f7 cce5 5560 PRINT "<S>" ; CHR$ (KTO_ULTIMO,9,2) ; TAB(28)
0x36cb…36f7 LineComal80 {
0x36cb…36f7 ptr = 0xcce5 // 0x36cb @0x0
0x36cb…36f7 lno = 0x15b8 // 0x36cd @0x2
0x36cb…36f7 at0004 = ╱92╱ PRINT ╱ // 0x36cf @0x4
0x36cb…36f7 at0005 = ╱22╱"╱ // 0x36d0 @0x5
0x36cb…36f7 at0006 = ╱3c╱<╱ // 0x36d1 @0x6
0x36cb…36f7 at0007 = ╱53╱S╱ // 0x36d2 @0x7
0x36cb…36f7 at0008 = ╱3e╱>╱ // 0x36d3 @0x8
0x36cb…36f7 at0009 = ╱22╱"╱ // 0x36d4 @0x9
0x36cb…36f7 at000a = ╱ea╱ ; ╱ // 0x36d5 @0xa
0x36cb…36f7 at000b = ╱d0╱ CHR$ ╱ // 0x36d6 @0xb
0x36cb…36f7 at000c = ╱ed╱(╱ // 0x36d7 @0xc
0x36cb…36f7 at000d = ╱4b╱K╱ // 0x36d8 @0xd
0x36cb…36f7 at000e = ╱54╱T╱ // 0x36d9 @0xe
0x36cb…36f7 at000f = ╱4f╱O╱ // 0x36da @0xf
0x36cb…36f7 at0010 = ╱5f╱_╱ // 0x36db @0x10
0x36cb…36f7 at0011 = ╱55╱U╱ // 0x36dc @0x11
0x36cb…36f7 at0012 = ╱4c╱L╱ // 0x36dd @0x12
0x36cb…36f7 at0013 = ╱54╱T╱ // 0x36de @0x13
0x36cb…36f7 at0014 = ╱49╱I╱ // 0x36df @0x14
0x36cb…36f7 at0015 = ╱4d╱M╱ // 0x36e0 @0x15
0x36cb…36f7 at0016 = ╱4f╱O╱ // 0x36e1 @0x16
0x36cb…36f7 at0017 = ╱ec╱,╱ // 0x36e2 @0x17
0x36cb…36f7 at0018 = ╱39╱9╱ // 0x36e3 @0x18
0x36cb…36f7 at0019 = ╱f20900╱ // 0x36e4 @0x19
0x36cb…36f7 at001c = ╱ec╱,╱ // 0x36e7 @0x1c
0x36cb…36f7 at001d = ╱32╱2╱ // 0x36e8 @0x1d
0x36cb…36f7 at001e = ╱f20200╱ // 0x36e9 @0x1e
0x36cb…36f7 at0021 = ╱ee╱)╱ // 0x36ec @0x21
0x36cb…36f7 at0022 = ╱ea╱ ; ╱ // 0x36ed @0x22
0x36cb…36f7 at0023 = ╱d2╱TAB╱ // 0x36ee @0x23
0x36cb…36f7 at0024 = ╱ed╱(╱ // 0x36ef @0x24
0x36cb…36f7 at0025 = ╱32╱2╱ // 0x36f0 @0x25
0x36cb…36f7 at0026 = ╱38╱8╱ // 0x36f1 @0x26
0x36cb…36f7 at0027 = ╱f21c00╱ // 0x36f2 @0x27
0x36cb…36f7 at002a = ╱ee╱)╱ // 0x36f5 @0x2a
0x36cb…36f7 at002b = EOL // 0x36f6 @0x2b
0x36cb…36f7 }
0x36f7…371b cd09 5570 LET TOT(1) := TOT(1) + KTO_ULTIMO
0x36f7…371b LineComal80 {
0x36f7…371b ptr = 0xcd09 // 0x36f7 @0x0
0x36f7…371b lno = 0x15c2 // 0x36f9 @0x2
0x36f7…371b at0004 = ╱86╱ LET ╱ // 0x36fb @0x4
0x36f7…371b at0005 = ╱54╱T╱ // 0x36fc @0x5
0x36f7…371b at0006 = ╱4f╱O╱ // 0x36fd @0x6
0x36f7…371b at0007 = ╱54╱T╱ // 0x36fe @0x7
0x36f7…371b at0008 = ╱ed╱(╱ // 0x36ff @0x8
0x36f7…371b at0009 = ╱31╱1╱ // 0x3700 @0x9
0x36f7…371b at000a = ╱f20100╱ // 0x3701 @0xa
0x36f7…371b at000d = ╱ee╱)╱ // 0x3704 @0xd
0x36f7…371b at000e = ╱f0╱ := ╱ // 0x3705 @0xe
0x36f7…371b at000f = ╱54╱T╱ // 0x3706 @0xf
0x36f7…371b at0010 = ╱4f╱O╱ // 0x3707 @0x10
0x36f7…371b at0011 = ╱54╱T╱ // 0x3708 @0x11
0x36f7…371b at0012 = ╱ed╱(╱ // 0x3709 @0x12
0x36f7…371b at0013 = ╱31╱1╱ // 0x370a @0x13
0x36f7…371b at0014 = ╱f20100╱ // 0x370b @0x14
0x36f7…371b at0017 = ╱ee╱)╱ // 0x370e @0x17
0x36f7…371b at0018 = ╱e5╱ + ╱ // 0x370f @0x18
0x36f7…371b at0019 = ╱4b╱K╱ // 0x3710 @0x19
0x36f7…371b at001a = ╱54╱T╱ // 0x3711 @0x1a
0x36f7…371b at001b = ╱4f╱O╱ // 0x3712 @0x1b
0x36f7…371b at001c = ╱5f╱_╱ // 0x3713 @0x1c
0x36f7…371b at001d = ╱55╱U╱ // 0x3714 @0x1d
0x36f7…371b at001e = ╱4c╱L╱ // 0x3715 @0x1e
0x36f7…371b at001f = ╱54╱T╱ // 0x3716 @0x1f
0x36f7…371b at0020 = ╱49╱I╱ // 0x3717 @0x20
0x36f7…371b at0021 = ╱4d╱M╱ // 0x3718 @0x21
0x36f7…371b at0022 = ╱4f╱O╱ // 0x3719 @0x22
0x36f7…371b at0023 = EOL // 0x371a @0x23
0x36f7…371b }
0x371b…3734 cd22 5580 EXEC FIND_KTO(BANK_KTO$)
0x371b…3734 LineComal80 {
0x371b…3734 ptr = 0xcd22 // 0x371b @0x0
0x371b…3734 lno = 0x15cc // 0x371d @0x2
0x371b…3734 at0004 = ╱9d╱ EXEC ╱ // 0x371f @0x4
0x371b…3734 at0005 = ╱46╱F╱ // 0x3720 @0x5
0x371b…3734 at0006 = ╱49╱I╱ // 0x3721 @0x6
0x371b…3734 at0007 = ╱4e╱N╱ // 0x3722 @0x7
0x371b…3734 at0008 = ╱44╱D╱ // 0x3723 @0x8
0x371b…3734 at0009 = ╱5f╱_╱ // 0x3724 @0x9
0x371b…3734 at000a = ╱4b╱K╱ // 0x3725 @0xa
0x371b…3734 at000b = ╱54╱T╱ // 0x3726 @0xb
0x371b…3734 at000c = ╱4f╱O╱ // 0x3727 @0xc
0x371b…3734 at000d = ╱ed╱(╱ // 0x3728 @0xd
0x371b…3734 at000e = ╱42╱B╱ // 0x3729 @0xe
0x371b…3734 at000f = ╱41╱A╱ // 0x372a @0xf
0x371b…3734 at0010 = ╱4e╱N╱ // 0x372b @0x10
0x371b…3734 at0011 = ╱4b╱K╱ // 0x372c @0x11
0x371b…3734 at0012 = ╱5f╱_╱ // 0x372d @0x12
0x371b…3734 at0013 = ╱4b╱K╱ // 0x372e @0x13
0x371b…3734 at0014 = ╱54╱T╱ // 0x372f @0x14
0x371b…3734 at0015 = ╱4f╱O╱ // 0x3730 @0x15
0x371b…3734 at0016 = ╱ef╱$╱ // 0x3731 @0x16
0x371b…3734 at0017 = ╱ee╱)╱ // 0x3732 @0x17
0x371b…3734 at0018 = EOL // 0x3733 @0x18
0x371b…3734 }
0x3734…374a cd38 5590 EXEC LÆS_KONTO(RECNR)
0x3734…374a LineComal80 {
0x3734…374a ptr = 0xcd38 // 0x3734 @0x0
0x3734…374a lno = 0x15d6 // 0x3736 @0x2
0x3734…374a at0004 = ╱9d╱ EXEC ╱ // 0x3738 @0x4
0x3734…374a at0005 = ╱4c╱L╱ // 0x3739 @0x5
0x3734…374a at0006 = ╱5b╱Æ╱ // 0x373a @0x6
0x3734…374a at0007 = ╱53╱S╱ // 0x373b @0x7
0x3734…374a at0008 = ╱5f╱_╱ // 0x373c @0x8
0x3734…374a at0009 = ╱4b╱K╱ // 0x373d @0x9
0x3734…374a at000a = ╱4f╱O╱ // 0x373e @0xa
0x3734…374a at000b = ╱4e╱N╱ // 0x373f @0xb
0x3734…374a at000c = ╱54╱T╱ // 0x3740 @0xc
0x3734…374a at000d = ╱4f╱O╱ // 0x3741 @0xd
0x3734…374a at000e = ╱ed╱(╱ // 0x3742 @0xe
0x3734…374a at000f = ╱52╱R╱ // 0x3743 @0xf
0x3734…374a at0010 = ╱45╱E╱ // 0x3744 @0x10
0x3734…374a at0011 = ╱43╱C╱ // 0x3745 @0x11
0x3734…374a at0012 = ╱4e╱N╱ // 0x3746 @0x12
0x3734…374a at0013 = ╱52╱R╱ // 0x3747 @0x13
0x3734…374a at0014 = ╱ee╱)╱ // 0x3748 @0x14
0x3734…374a at0015 = EOL // 0x3749 @0x15
0x3734…374a }
0x374a…3776 cd64 5600 PRINT "<S>" ; CHR$ (KTO_ULTIMO,9,2) ; TAB(28)
0x374a…3776 LineComal80 {
0x374a…3776 ptr = 0xcd64 // 0x374a @0x0
0x374a…3776 lno = 0x15e0 // 0x374c @0x2
0x374a…3776 at0004 = ╱92╱ PRINT ╱ // 0x374e @0x4
0x374a…3776 at0005 = ╱22╱"╱ // 0x374f @0x5
0x374a…3776 at0006 = ╱3c╱<╱ // 0x3750 @0x6
0x374a…3776 at0007 = ╱53╱S╱ // 0x3751 @0x7
0x374a…3776 at0008 = ╱3e╱>╱ // 0x3752 @0x8
0x374a…3776 at0009 = ╱22╱"╱ // 0x3753 @0x9
0x374a…3776 at000a = ╱ea╱ ; ╱ // 0x3754 @0xa
0x374a…3776 at000b = ╱d0╱ CHR$ ╱ // 0x3755 @0xb
0x374a…3776 at000c = ╱ed╱(╱ // 0x3756 @0xc
0x374a…3776 at000d = ╱4b╱K╱ // 0x3757 @0xd
0x374a…3776 at000e = ╱54╱T╱ // 0x3758 @0xe
0x374a…3776 at000f = ╱4f╱O╱ // 0x3759 @0xf
0x374a…3776 at0010 = ╱5f╱_╱ // 0x375a @0x10
0x374a…3776 at0011 = ╱55╱U╱ // 0x375b @0x11
0x374a…3776 at0012 = ╱4c╱L╱ // 0x375c @0x12
0x374a…3776 at0013 = ╱54╱T╱ // 0x375d @0x13
0x374a…3776 at0014 = ╱49╱I╱ // 0x375e @0x14
0x374a…3776 at0015 = ╱4d╱M╱ // 0x375f @0x15
0x374a…3776 at0016 = ╱4f╱O╱ // 0x3760 @0x16
0x374a…3776 at0017 = ╱ec╱,╱ // 0x3761 @0x17
0x374a…3776 at0018 = ╱39╱9╱ // 0x3762 @0x18
0x374a…3776 at0019 = ╱f20900╱ // 0x3763 @0x19
0x374a…3776 at001c = ╱ec╱,╱ // 0x3766 @0x1c
0x374a…3776 at001d = ╱32╱2╱ // 0x3767 @0x1d
0x374a…3776 at001e = ╱f20200╱ // 0x3768 @0x1e
0x374a…3776 at0021 = ╱ee╱)╱ // 0x376b @0x21
0x374a…3776 at0022 = ╱ea╱ ; ╱ // 0x376c @0x22
0x374a…3776 at0023 = ╱d2╱TAB╱ // 0x376d @0x23
0x374a…3776 at0024 = ╱ed╱(╱ // 0x376e @0x24
0x374a…3776 at0025 = ╱32╱2╱ // 0x376f @0x25
0x374a…3776 at0026 = ╱38╱8╱ // 0x3770 @0x26
0x374a…3776 at0027 = ╱f21c00╱ // 0x3771 @0x27
0x374a…3776 at002a = ╱ee╱)╱ // 0x3774 @0x2a
0x374a…3776 at002b = EOL // 0x3775 @0x2b
0x374a…3776 }
0x3776…379a cd88 5610 LET TOT(3) := TOT(3) + KTO_ULTIMO
0x3776…379a LineComal80 {
0x3776…379a ptr = 0xcd88 // 0x3776 @0x0
0x3776…379a lno = 0x15ea // 0x3778 @0x2
0x3776…379a at0004 = ╱86╱ LET ╱ // 0x377a @0x4
0x3776…379a at0005 = ╱54╱T╱ // 0x377b @0x5
0x3776…379a at0006 = ╱4f╱O╱ // 0x377c @0x6
0x3776…379a at0007 = ╱54╱T╱ // 0x377d @0x7
0x3776…379a at0008 = ╱ed╱(╱ // 0x377e @0x8
0x3776…379a at0009 = ╱33╱3╱ // 0x377f @0x9
0x3776…379a at000a = ╱f20300╱ // 0x3780 @0xa
0x3776…379a at000d = ╱ee╱)╱ // 0x3783 @0xd
0x3776…379a at000e = ╱f0╱ := ╱ // 0x3784 @0xe
0x3776…379a at000f = ╱54╱T╱ // 0x3785 @0xf
0x3776…379a at0010 = ╱4f╱O╱ // 0x3786 @0x10
0x3776…379a at0011 = ╱54╱T╱ // 0x3787 @0x11
0x3776…379a at0012 = ╱ed╱(╱ // 0x3788 @0x12
0x3776…379a at0013 = ╱33╱3╱ // 0x3789 @0x13
0x3776…379a at0014 = ╱f20300╱ // 0x378a @0x14
0x3776…379a at0017 = ╱ee╱)╱ // 0x378d @0x17
0x3776…379a at0018 = ╱e5╱ + ╱ // 0x378e @0x18
0x3776…379a at0019 = ╱4b╱K╱ // 0x378f @0x19
0x3776…379a at001a = ╱54╱T╱ // 0x3790 @0x1a
0x3776…379a at001b = ╱4f╱O╱ // 0x3791 @0x1b
0x3776…379a at001c = ╱5f╱_╱ // 0x3792 @0x1c
0x3776…379a at001d = ╱55╱U╱ // 0x3793 @0x1d
0x3776…379a at001e = ╱4c╱L╱ // 0x3794 @0x1e
0x3776…379a at001f = ╱54╱T╱ // 0x3795 @0x1f
0x3776…379a at0020 = ╱49╱I╱ // 0x3796 @0x20
0x3776…379a at0021 = ╱4d╱M╱ // 0x3797 @0x21
0x3776…379a at0022 = ╱4f╱O╱ // 0x3798 @0x22
0x3776…379a at0023 = EOL // 0x3799 @0x23
0x3776…379a }
0x379a…37b3 cda1 5620 EXEC FIND_KTO(GIRO_KTO$)
0x379a…37b3 LineComal80 {
0x379a…37b3 ptr = 0xcda1 // 0x379a @0x0
0x379a…37b3 lno = 0x15f4 // 0x379c @0x2
0x379a…37b3 at0004 = ╱9d╱ EXEC ╱ // 0x379e @0x4
0x379a…37b3 at0005 = ╱46╱F╱ // 0x379f @0x5
0x379a…37b3 at0006 = ╱49╱I╱ // 0x37a0 @0x6
0x379a…37b3 at0007 = ╱4e╱N╱ // 0x37a1 @0x7
0x379a…37b3 at0008 = ╱44╱D╱ // 0x37a2 @0x8
0x379a…37b3 at0009 = ╱5f╱_╱ // 0x37a3 @0x9
0x379a…37b3 at000a = ╱4b╱K╱ // 0x37a4 @0xa
0x379a…37b3 at000b = ╱54╱T╱ // 0x37a5 @0xb
0x379a…37b3 at000c = ╱4f╱O╱ // 0x37a6 @0xc
0x379a…37b3 at000d = ╱ed╱(╱ // 0x37a7 @0xd
0x379a…37b3 at000e = ╱47╱G╱ // 0x37a8 @0xe
0x379a…37b3 at000f = ╱49╱I╱ // 0x37a9 @0xf
0x379a…37b3 at0010 = ╱52╱R╱ // 0x37aa @0x10
0x379a…37b3 at0011 = ╱4f╱O╱ // 0x37ab @0x11
0x379a…37b3 at0012 = ╱5f╱_╱ // 0x37ac @0x12
0x379a…37b3 at0013 = ╱4b╱K╱ // 0x37ad @0x13
0x379a…37b3 at0014 = ╱54╱T╱ // 0x37ae @0x14
0x379a…37b3 at0015 = ╱4f╱O╱ // 0x37af @0x15
0x379a…37b3 at0016 = ╱ef╱$╱ // 0x37b0 @0x16
0x379a…37b3 at0017 = ╱ee╱)╱ // 0x37b1 @0x17
0x379a…37b3 at0018 = EOL // 0x37b2 @0x18
0x379a…37b3 }
0x37b3…37c9 cdb7 5630 EXEC LÆS_KONTO(RECNR)
0x37b3…37c9 LineComal80 {
0x37b3…37c9 ptr = 0xcdb7 // 0x37b3 @0x0
0x37b3…37c9 lno = 0x15fe // 0x37b5 @0x2
0x37b3…37c9 at0004 = ╱9d╱ EXEC ╱ // 0x37b7 @0x4
0x37b3…37c9 at0005 = ╱4c╱L╱ // 0x37b8 @0x5
0x37b3…37c9 at0006 = ╱5b╱Æ╱ // 0x37b9 @0x6
0x37b3…37c9 at0007 = ╱53╱S╱ // 0x37ba @0x7
0x37b3…37c9 at0008 = ╱5f╱_╱ // 0x37bb @0x8
0x37b3…37c9 at0009 = ╱4b╱K╱ // 0x37bc @0x9
0x37b3…37c9 at000a = ╱4f╱O╱ // 0x37bd @0xa
0x37b3…37c9 at000b = ╱4e╱N╱ // 0x37be @0xb
0x37b3…37c9 at000c = ╱54╱T╱ // 0x37bf @0xc
0x37b3…37c9 at000d = ╱4f╱O╱ // 0x37c0 @0xd
0x37b3…37c9 at000e = ╱ed╱(╱ // 0x37c1 @0xe
0x37b3…37c9 at000f = ╱52╱R╱ // 0x37c2 @0xf
0x37b3…37c9 at0010 = ╱45╱E╱ // 0x37c3 @0x10
0x37b3…37c9 at0011 = ╱43╱C╱ // 0x37c4 @0x11
0x37b3…37c9 at0012 = ╱4e╱N╱ // 0x37c5 @0x12
0x37b3…37c9 at0013 = ╱52╱R╱ // 0x37c6 @0x13
0x37b3…37c9 at0014 = ╱ee╱)╱ // 0x37c7 @0x14
0x37b3…37c9 at0015 = EOL // 0x37c8 @0x15
0x37b3…37c9 }
0x37c9…37e6 cdd4 5640 PRINT CHR$ (KTO_ULTIMO,9,2)
0x37c9…37e6 LineComal80 {
0x37c9…37e6 ptr = 0xcdd4 // 0x37c9 @0x0
0x37c9…37e6 lno = 0x1608 // 0x37cb @0x2
0x37c9…37e6 at0004 = ╱92╱ PRINT ╱ // 0x37cd @0x4
0x37c9…37e6 at0005 = ╱d0╱ CHR$ ╱ // 0x37ce @0x5
0x37c9…37e6 at0006 = ╱ed╱(╱ // 0x37cf @0x6
0x37c9…37e6 at0007 = ╱4b╱K╱ // 0x37d0 @0x7
0x37c9…37e6 at0008 = ╱54╱T╱ // 0x37d1 @0x8
0x37c9…37e6 at0009 = ╱4f╱O╱ // 0x37d2 @0x9
0x37c9…37e6 at000a = ╱5f╱_╱ // 0x37d3 @0xa
0x37c9…37e6 at000b = ╱55╱U╱ // 0x37d4 @0xb
0x37c9…37e6 at000c = ╱4c╱L╱ // 0x37d5 @0xc
0x37c9…37e6 at000d = ╱54╱T╱ // 0x37d6 @0xd
0x37c9…37e6 at000e = ╱49╱I╱ // 0x37d7 @0xe
0x37c9…37e6 at000f = ╱4d╱M╱ // 0x37d8 @0xf
0x37c9…37e6 at0010 = ╱4f╱O╱ // 0x37d9 @0x10
0x37c9…37e6 at0011 = ╱ec╱,╱ // 0x37da @0x11
0x37c9…37e6 at0012 = ╱39╱9╱ // 0x37db @0x12
0x37c9…37e6 at0013 = ╱f20900╱ // 0x37dc @0x13
0x37c9…37e6 at0016 = ╱ec╱,╱ // 0x37df @0x16
0x37c9…37e6 at0017 = ╱32╱2╱ // 0x37e0 @0x17
0x37c9…37e6 at0018 = ╱f20200╱ // 0x37e1 @0x18
0x37c9…37e6 at001b = ╱ee╱)╱ // 0x37e4 @0x1b
0x37c9…37e6 at001c = EOL // 0x37e5 @0x1c
0x37c9…37e6 }
0x37e6…380a cdf8 5650 LET TOT(5) := TOT(5) + KTO_ULTIMO
0x37e6…380a LineComal80 {
0x37e6…380a ptr = 0xcdf8 // 0x37e6 @0x0
0x37e6…380a lno = 0x1612 // 0x37e8 @0x2
0x37e6…380a at0004 = ╱86╱ LET ╱ // 0x37ea @0x4
0x37e6…380a at0005 = ╱54╱T╱ // 0x37eb @0x5
0x37e6…380a at0006 = ╱4f╱O╱ // 0x37ec @0x6
0x37e6…380a at0007 = ╱54╱T╱ // 0x37ed @0x7
0x37e6…380a at0008 = ╱ed╱(╱ // 0x37ee @0x8
0x37e6…380a at0009 = ╱35╱5╱ // 0x37ef @0x9
0x37e6…380a at000a = ╱f20500╱ // 0x37f0 @0xa
0x37e6…380a at000d = ╱ee╱)╱ // 0x37f3 @0xd
0x37e6…380a at000e = ╱f0╱ := ╱ // 0x37f4 @0xe
0x37e6…380a at000f = ╱54╱T╱ // 0x37f5 @0xf
0x37e6…380a at0010 = ╱4f╱O╱ // 0x37f6 @0x10
0x37e6…380a at0011 = ╱54╱T╱ // 0x37f7 @0x11
0x37e6…380a at0012 = ╱ed╱(╱ // 0x37f8 @0x12
0x37e6…380a at0013 = ╱35╱5╱ // 0x37f9 @0x13
0x37e6…380a at0014 = ╱f20500╱ // 0x37fa @0x14
0x37e6…380a at0017 = ╱ee╱)╱ // 0x37fd @0x17
0x37e6…380a at0018 = ╱e5╱ + ╱ // 0x37fe @0x18
0x37e6…380a at0019 = ╱4b╱K╱ // 0x37ff @0x19
0x37e6…380a at001a = ╱54╱T╱ // 0x3800 @0x1a
0x37e6…380a at001b = ╱4f╱O╱ // 0x3801 @0x1b
0x37e6…380a at001c = ╱5f╱_╱ // 0x3802 @0x1c
0x37e6…380a at001d = ╱55╱U╱ // 0x3803 @0x1d
0x37e6…380a at001e = ╱4c╱L╱ // 0x3804 @0x1e
0x37e6…380a at001f = ╱54╱T╱ // 0x3805 @0x1f
0x37e6…380a at0020 = ╱49╱I╱ // 0x3806 @0x20
0x37e6…380a at0021 = ╱4d╱M╱ // 0x3807 @0x21
0x37e6…380a at0022 = ╱4f╱O╱ // 0x3808 @0x22
0x37e6…380a at0023 = EOL // 0x3809 @0x23
0x37e6…380a }
0x380a…3840 ce2e 5660 PRINT "<S>" ; TAB(11) ; "BEHOLDNING AFTEN(ber.)" ; TAB(47)
0x380a…3840 LineComal80 {
0x380a…3840 ptr = 0xce2e // 0x380a @0x0
0x380a…3840 lno = 0x161c // 0x380c @0x2
0x380a…3840 at0004 = ╱92╱ PRINT ╱ // 0x380e @0x4
0x380a…3840 at0005 = ╱22╱"╱ // 0x380f @0x5
0x380a…3840 at0006 = ╱3c╱<╱ // 0x3810 @0x6
0x380a…3840 at0007 = ╱53╱S╱ // 0x3811 @0x7
0x380a…3840 at0008 = ╱3e╱>╱ // 0x3812 @0x8
0x380a…3840 at0009 = ╱22╱"╱ // 0x3813 @0x9
0x380a…3840 at000a = ╱ea╱ ; ╱ // 0x3814 @0xa
0x380a…3840 at000b = ╱d2╱TAB╱ // 0x3815 @0xb
0x380a…3840 at000c = ╱ed╱(╱ // 0x3816 @0xc
0x380a…3840 at000d = ╱31╱1╱ // 0x3817 @0xd
0x380a…3840 at000e = ╱31╱1╱ // 0x3818 @0xe
0x380a…3840 at000f = ╱f20b00╱ // 0x3819 @0xf
0x380a…3840 at0012 = ╱ee╱)╱ // 0x381c @0x12
0x380a…3840 at0013 = ╱ea╱ ; ╱ // 0x381d @0x13
0x380a…3840 at0014 = ╱22╱"╱ // 0x381e @0x14
0x380a…3840 at0015 = ╱42╱B╱ // 0x381f @0x15
0x380a…3840 at0016 = ╱45╱E╱ // 0x3820 @0x16
0x380a…3840 at0017 = ╱48╱H╱ // 0x3821 @0x17
0x380a…3840 at0018 = ╱4f╱O╱ // 0x3822 @0x18
0x380a…3840 at0019 = ╱4c╱L╱ // 0x3823 @0x19
0x380a…3840 at001a = ╱44╱D╱ // 0x3824 @0x1a
0x380a…3840 at001b = ╱4e╱N╱ // 0x3825 @0x1b
0x380a…3840 at001c = ╱49╱I╱ // 0x3826 @0x1c
0x380a…3840 at001d = ╱4e╱N╱ // 0x3827 @0x1d
0x380a…3840 at001e = ╱47╱G╱ // 0x3828 @0x1e
0x380a…3840 at001f = ╱20╱…╱ // 0x3829 @0x1f
0x380a…3840 at0020 = ╱41╱A╱ // 0x382a @0x20
0x380a…3840 at0021 = ╱46╱F╱ // 0x382b @0x21
0x380a…3840 at0022 = ╱54╱T╱ // 0x382c @0x22
0x380a…3840 at0023 = ╱45╱E╱ // 0x382d @0x23
0x380a…3840 at0024 = ╱4e╱N╱ // 0x382e @0x24
0x380a…3840 at0025 = ╱28╱(╱ // 0x382f @0x25
0x380a…3840 at0026 = ╱62╱b╱ // 0x3830 @0x26
0x380a…3840 at0027 = ╱65╱e╱ // 0x3831 @0x27
0x380a…3840 at0028 = ╱72╱r╱ // 0x3832 @0x28
0x380a…3840 at0029 = ╱2e╱.╱ // 0x3833 @0x29
0x380a…3840 at002a = ╱29╱)╱ // 0x3834 @0x2a
0x380a…3840 at002b = ╱22╱"╱ // 0x3835 @0x2b
0x380a…3840 at002c = ╱ea╱ ; ╱ // 0x3836 @0x2c
0x380a…3840 at002d = ╱d2╱TAB╱ // 0x3837 @0x2d
0x380a…3840 at002e = ╱ed╱(╱ // 0x3838 @0x2e
0x380a…3840 at002f = ╱34╱4╱ // 0x3839 @0x2f
0x380a…3840 at0030 = ╱37╱7╱ // 0x383a @0x30
0x380a…3840 at0031 = ╱f22f00╱ // 0x383b @0x31
0x380a…3840 at0034 = ╱ee╱)╱ // 0x383e @0x34
0x380a…3840 at0035 = EOL // 0x383f @0x35
0x380a…3840 }
0x3840…3875 ce63 5670 PRINT "<S>" ; CHR$ (TOT(1) - TOT(2),9,2) ; TAB(28)
0x3840…3875 LineComal80 {
0x3840…3875 ptr = 0xce63 // 0x3840 @0x0
0x3840…3875 lno = 0x1626 // 0x3842 @0x2
0x3840…3875 at0004 = ╱92╱ PRINT ╱ // 0x3844 @0x4
0x3840…3875 at0005 = ╱22╱"╱ // 0x3845 @0x5
0x3840…3875 at0006 = ╱3c╱<╱ // 0x3846 @0x6
0x3840…3875 at0007 = ╱53╱S╱ // 0x3847 @0x7
0x3840…3875 at0008 = ╱3e╱>╱ // 0x3848 @0x8
0x3840…3875 at0009 = ╱22╱"╱ // 0x3849 @0x9
0x3840…3875 at000a = ╱ea╱ ; ╱ // 0x384a @0xa
0x3840…3875 at000b = ╱d0╱ CHR$ ╱ // 0x384b @0xb
0x3840…3875 at000c = ╱ed╱(╱ // 0x384c @0xc
0x3840…3875 at000d = ╱54╱T╱ // 0x384d @0xd
0x3840…3875 at000e = ╱4f╱O╱ // 0x384e @0xe
0x3840…3875 at000f = ╱54╱T╱ // 0x384f @0xf
0x3840…3875 at0010 = ╱ed╱(╱ // 0x3850 @0x10
0x3840…3875 at0011 = ╱31╱1╱ // 0x3851 @0x11
0x3840…3875 at0012 = ╱f20100╱ // 0x3852 @0x12
0x3840…3875 at0015 = ╱ee╱)╱ // 0x3855 @0x15
0x3840…3875 at0016 = ╱e6╱ - ╱ // 0x3856 @0x16
0x3840…3875 at0017 = ╱54╱T╱ // 0x3857 @0x17
0x3840…3875 at0018 = ╱4f╱O╱ // 0x3858 @0x18
0x3840…3875 at0019 = ╱54╱T╱ // 0x3859 @0x19
0x3840…3875 at001a = ╱ed╱(╱ // 0x385a @0x1a
0x3840…3875 at001b = ╱32╱2╱ // 0x385b @0x1b
0x3840…3875 at001c = ╱f20200╱ // 0x385c @0x1c
0x3840…3875 at001f = ╱ee╱)╱ // 0x385f @0x1f
0x3840…3875 at0020 = ╱ec╱,╱ // 0x3860 @0x20
0x3840…3875 at0021 = ╱39╱9╱ // 0x3861 @0x21
0x3840…3875 at0022 = ╱f20900╱ // 0x3862 @0x22
0x3840…3875 at0025 = ╱ec╱,╱ // 0x3865 @0x25
0x3840…3875 at0026 = ╱32╱2╱ // 0x3866 @0x26
0x3840…3875 at0027 = ╱f20200╱ // 0x3867 @0x27
0x3840…3875 at002a = ╱ee╱)╱ // 0x386a @0x2a
0x3840…3875 at002b = ╱ea╱ ; ╱ // 0x386b @0x2b
0x3840…3875 at002c = ╱d2╱TAB╱ // 0x386c @0x2c
0x3840…3875 at002d = ╱ed╱(╱ // 0x386d @0x2d
0x3840…3875 at002e = ╱32╱2╱ // 0x386e @0x2e
0x3840…3875 at002f = ╱38╱8╱ // 0x386f @0x2f
0x3840…3875 at0030 = ╱f21c00╱ // 0x3870 @0x30
0x3840…3875 at0033 = ╱ee╱)╱ // 0x3873 @0x33
0x3840…3875 at0034 = EOL // 0x3874 @0x34
0x3840…3875 }
0x3875…38aa ce98 5680 PRINT "<S>" ; CHR$ (TOT(3) - TOT(4),9,2) ; TAB(28)
0x3875…38aa LineComal80 {
0x3875…38aa ptr = 0xce98 // 0x3875 @0x0
0x3875…38aa lno = 0x1630 // 0x3877 @0x2
0x3875…38aa at0004 = ╱92╱ PRINT ╱ // 0x3879 @0x4
0x3875…38aa at0005 = ╱22╱"╱ // 0x387a @0x5
0x3875…38aa at0006 = ╱3c╱<╱ // 0x387b @0x6
0x3875…38aa at0007 = ╱53╱S╱ // 0x387c @0x7
0x3875…38aa at0008 = ╱3e╱>╱ // 0x387d @0x8
0x3875…38aa at0009 = ╱22╱"╱ // 0x387e @0x9
0x3875…38aa at000a = ╱ea╱ ; ╱ // 0x387f @0xa
0x3875…38aa at000b = ╱d0╱ CHR$ ╱ // 0x3880 @0xb
0x3875…38aa at000c = ╱ed╱(╱ // 0x3881 @0xc
0x3875…38aa at000d = ╱54╱T╱ // 0x3882 @0xd
0x3875…38aa at000e = ╱4f╱O╱ // 0x3883 @0xe
0x3875…38aa at000f = ╱54╱T╱ // 0x3884 @0xf
0x3875…38aa at0010 = ╱ed╱(╱ // 0x3885 @0x10
0x3875…38aa at0011 = ╱33╱3╱ // 0x3886 @0x11
0x3875…38aa at0012 = ╱f20300╱ // 0x3887 @0x12
0x3875…38aa at0015 = ╱ee╱)╱ // 0x388a @0x15
0x3875…38aa at0016 = ╱e6╱ - ╱ // 0x388b @0x16
0x3875…38aa at0017 = ╱54╱T╱ // 0x388c @0x17
0x3875…38aa at0018 = ╱4f╱O╱ // 0x388d @0x18
0x3875…38aa at0019 = ╱54╱T╱ // 0x388e @0x19
0x3875…38aa at001a = ╱ed╱(╱ // 0x388f @0x1a
0x3875…38aa at001b = ╱34╱4╱ // 0x3890 @0x1b
0x3875…38aa at001c = ╱f20400╱ // 0x3891 @0x1c
0x3875…38aa at001f = ╱ee╱)╱ // 0x3894 @0x1f
0x3875…38aa at0020 = ╱ec╱,╱ // 0x3895 @0x20
0x3875…38aa at0021 = ╱39╱9╱ // 0x3896 @0x21
0x3875…38aa at0022 = ╱f20900╱ // 0x3897 @0x22
0x3875…38aa at0025 = ╱ec╱,╱ // 0x389a @0x25
0x3875…38aa at0026 = ╱32╱2╱ // 0x389b @0x26
0x3875…38aa at0027 = ╱f20200╱ // 0x389c @0x27
0x3875…38aa at002a = ╱ee╱)╱ // 0x389f @0x2a
0x3875…38aa at002b = ╱ea╱ ; ╱ // 0x38a0 @0x2b
0x3875…38aa at002c = ╱d2╱TAB╱ // 0x38a1 @0x2c
0x3875…38aa at002d = ╱ed╱(╱ // 0x38a2 @0x2d
0x3875…38aa at002e = ╱32╱2╱ // 0x38a3 @0x2e
0x3875…38aa at002f = ╱38╱8╱ // 0x38a4 @0x2f
0x3875…38aa at0030 = ╱f21c00╱ // 0x38a5 @0x30
0x3875…38aa at0033 = ╱ee╱)╱ // 0x38a8 @0x33
0x3875…38aa at0034 = EOL // 0x38a9 @0x34
0x3875…38aa }
0x38aa…38d0 cebe 5690 PRINT CHR$ (TOT(5) - TOT(6),9,2)
0x38aa…38d0 LineComal80 {
0x38aa…38d0 ptr = 0xcebe // 0x38aa @0x0
0x38aa…38d0 lno = 0x163a // 0x38ac @0x2
0x38aa…38d0 at0004 = ╱92╱ PRINT ╱ // 0x38ae @0x4
0x38aa…38d0 at0005 = ╱d0╱ CHR$ ╱ // 0x38af @0x5
0x38aa…38d0 at0006 = ╱ed╱(╱ // 0x38b0 @0x6
0x38aa…38d0 at0007 = ╱54╱T╱ // 0x38b1 @0x7
0x38aa…38d0 at0008 = ╱4f╱O╱ // 0x38b2 @0x8
0x38aa…38d0 at0009 = ╱54╱T╱ // 0x38b3 @0x9
0x38aa…38d0 at000a = ╱ed╱(╱ // 0x38b4 @0xa
0x38aa…38d0 at000b = ╱35╱5╱ // 0x38b5 @0xb
0x38aa…38d0 at000c = ╱f20500╱ // 0x38b6 @0xc
0x38aa…38d0 at000f = ╱ee╱)╱ // 0x38b9 @0xf
0x38aa…38d0 at0010 = ╱e6╱ - ╱ // 0x38ba @0x10
0x38aa…38d0 at0011 = ╱54╱T╱ // 0x38bb @0x11
0x38aa…38d0 at0012 = ╱4f╱O╱ // 0x38bc @0x12
0x38aa…38d0 at0013 = ╱54╱T╱ // 0x38bd @0x13
0x38aa…38d0 at0014 = ╱ed╱(╱ // 0x38be @0x14
0x38aa…38d0 at0015 = ╱36╱6╱ // 0x38bf @0x15
0x38aa…38d0 at0016 = ╱f20600╱ // 0x38c0 @0x16
0x38aa…38d0 at0019 = ╱ee╱)╱ // 0x38c3 @0x19
0x38aa…38d0 at001a = ╱ec╱,╱ // 0x38c4 @0x1a
0x38aa…38d0 at001b = ╱39╱9╱ // 0x38c5 @0x1b
0x38aa…38d0 at001c = ╱f20900╱ // 0x38c6 @0x1c
0x38aa…38d0 at001f = ╱ec╱,╱ // 0x38c9 @0x1f
0x38aa…38d0 at0020 = ╱32╱2╱ // 0x38ca @0x20
0x38aa…38d0 at0021 = ╱f20200╱ // 0x38cb @0x21
0x38aa…38d0 at0024 = ╱ee╱)╱ // 0x38ce @0x24
0x38aa…38d0 at0025 = EOL // 0x38cf @0x25
0x38aa…38d0 }
0x38d0…3914 cf02 5700 PRINT "<S> ---------- ---------- "
0x38d0…3914 LineComal80 {
0x38d0…3914 ptr = 0xcf02 // 0x38d0 @0x0
0x38d0…3914 lno = 0x1644 // 0x38d2 @0x2
0x38d0…3914 at0004 = ╱92╱ PRINT ╱ // 0x38d4 @0x4
0x38d0…3914 at0005 = ╱22╱"╱ // 0x38d5 @0x5
0x38d0…3914 at0006 = ╱3c╱<╱ // 0x38d6 @0x6
0x38d0…3914 at0007 = ╱53╱S╱ // 0x38d7 @0x7
0x38d0…3914 at0008 = ╱3e╱>╱ // 0x38d8 @0x8
0x38d0…3914 at0009 = ╱20╱…╱ // 0x38d9 @0x9
0x38d0…3914 at000a = ╱20╱…╱ // 0x38da @0xa
0x38d0…3914 at000b = ╱20╱…╱ // 0x38db @0xb
0x38d0…3914 at000c = ╱20╱…╱ // 0x38dc @0xc
0x38d0…3914 at000d = ╱20╱…╱ // 0x38dd @0xd
0x38d0…3914 at000e = ╱20╱…╱ // 0x38de @0xe
0x38d0…3914 at000f = ╱20╱…╱ // 0x38df @0xf
0x38d0…3914 at0010 = ╱20╱…╱ // 0x38e0 @0x10
0x38d0…3914 at0011 = ╱20╱…╱ // 0x38e1 @0x11
0x38d0…3914 at0012 = ╱20╱…╱ // 0x38e2 @0x12
0x38d0…3914 at0013 = ╱20╱…╱ // 0x38e3 @0x13
0x38d0…3914 at0014 = ╱20╱…╱ // 0x38e4 @0x14
0x38d0…3914 at0015 = ╱20╱…╱ // 0x38e5 @0x15
0x38d0…3914 at0016 = ╱20╱…╱ // 0x38e6 @0x16
0x38d0…3914 at0017 = ╱20╱…╱ // 0x38e7 @0x17
0x38d0…3914 at0018 = ╱20╱…╱ // 0x38e8 @0x18
0x38d0…3914 at0019 = ╱20╱…╱ // 0x38e9 @0x19
0x38d0…3914 at001a = ╱20╱…╱ // 0x38ea @0x1a
0x38d0…3914 at001b = ╱20╱…╱ // 0x38eb @0x1b
0x38d0…3914 at001c = ╱20╱…╱ // 0x38ec @0x1c
0x38d0…3914 at001d = ╱20╱…╱ // 0x38ed @0x1d
0x38d0…3914 at001e = ╱20╱…╱ // 0x38ee @0x1e
0x38d0…3914 at001f = ╱20╱…╱ // 0x38ef @0x1f
0x38d0…3914 at0020 = ╱20╱…╱ // 0x38f0 @0x20
0x38d0…3914 at0021 = ╱20╱…╱ // 0x38f1 @0x21
0x38d0…3914 at0022 = ╱20╱…╱ // 0x38f2 @0x22
0x38d0…3914 at0023 = ╱20╱…╱ // 0x38f3 @0x23
0x38d0…3914 at0024 = ╱20╱…╱ // 0x38f4 @0x24
0x38d0…3914 at0025 = ╱20╱…╱ // 0x38f5 @0x25
0x38d0…3914 at0026 = ╱20╱…╱ // 0x38f6 @0x26
0x38d0…3914 at0027 = ╱20╱…╱ // 0x38f7 @0x27
0x38d0…3914 at0028 = ╱20╱…╱ // 0x38f8 @0x28
0x38d0…3914 at0029 = ╱20╱…╱ // 0x38f9 @0x29
0x38d0…3914 at002a = ╱2d╱-╱ // 0x38fa @0x2a
0x38d0…3914 at002b = ╱2d╱-╱ // 0x38fb @0x2b
0x38d0…3914 at002c = ╱2d╱-╱ // 0x38fc @0x2c
0x38d0…3914 at002d = ╱2d╱-╱ // 0x38fd @0x2d
0x38d0…3914 at002e = ╱2d╱-╱ // 0x38fe @0x2e
0x38d0…3914 at002f = ╱2d╱-╱ // 0x38ff @0x2f
0x38d0…3914 at0030 = ╱2d╱-╱ // 0x3900 @0x30
0x38d0…3914 at0031 = ╱2d╱-╱ // 0x3901 @0x31
0x38d0…3914 at0032 = ╱2d╱-╱ // 0x3902 @0x32
0x38d0…3914 at0033 = ╱2d╱-╱ // 0x3903 @0x33
0x38d0…3914 at0034 = ╱20╱…╱ // 0x3904 @0x34
0x38d0…3914 at0035 = ╱20╱…╱ // 0x3905 @0x35
0x38d0…3914 at0036 = ╱2d╱-╱ // 0x3906 @0x36
0x38d0…3914 at0037 = ╱2d╱-╱ // 0x3907 @0x37
0x38d0…3914 at0038 = ╱2d╱-╱ // 0x3908 @0x38
0x38d0…3914 at0039 = ╱2d╱-╱ // 0x3909 @0x39
0x38d0…3914 at003a = ╱2d╱-╱ // 0x390a @0x3a
0x38d0…3914 at003b = ╱2d╱-╱ // 0x390b @0x3b
0x38d0…3914 at003c = ╱2d╱-╱ // 0x390c @0x3c
0x38d0…3914 at003d = ╱2d╱-╱ // 0x390d @0x3d
0x38d0…3914 at003e = ╱2d╱-╱ // 0x390e @0x3e
0x38d0…3914 at003f = ╱2d╱-╱ // 0x390f @0x3f
0x38d0…3914 at0040 = ╱20╱…╱ // 0x3910 @0x40
0x38d0…3914 at0041 = ╱20╱…╱ // 0x3911 @0x41
0x38d0…3914 at0042 = ╱22╱"╱ // 0x3912 @0x42
0x38d0…3914 at0043 = EOL // 0x3913 @0x43
0x38d0…3914 }
0x3914…394a cf38 5710 PRINT "---------- ---------- ---------- ----------"
0x3914…394a LineComal80 {
0x3914…394a ptr = 0xcf38 // 0x3914 @0x0
0x3914…394a lno = 0x164e // 0x3916 @0x2
0x3914…394a at0004 = ╱92╱ PRINT ╱ // 0x3918 @0x4
0x3914…394a at0005 = ╱22╱"╱ // 0x3919 @0x5
0x3914…394a at0006 = ╱2d╱-╱ // 0x391a @0x6
0x3914…394a at0007 = ╱2d╱-╱ // 0x391b @0x7
0x3914…394a at0008 = ╱2d╱-╱ // 0x391c @0x8
0x3914…394a at0009 = ╱2d╱-╱ // 0x391d @0x9
0x3914…394a at000a = ╱2d╱-╱ // 0x391e @0xa
0x3914…394a at000b = ╱2d╱-╱ // 0x391f @0xb
0x3914…394a at000c = ╱2d╱-╱ // 0x3920 @0xc
0x3914…394a at000d = ╱2d╱-╱ // 0x3921 @0xd
0x3914…394a at000e = ╱2d╱-╱ // 0x3922 @0xe
0x3914…394a at000f = ╱2d╱-╱ // 0x3923 @0xf
0x3914…394a at0010 = ╱20╱…╱ // 0x3924 @0x10
0x3914…394a at0011 = ╱20╱…╱ // 0x3925 @0x11
0x3914…394a at0012 = ╱2d╱-╱ // 0x3926 @0x12
0x3914…394a at0013 = ╱2d╱-╱ // 0x3927 @0x13
0x3914…394a at0014 = ╱2d╱-╱ // 0x3928 @0x14
0x3914…394a at0015 = ╱2d╱-╱ // 0x3929 @0x15
0x3914…394a at0016 = ╱2d╱-╱ // 0x392a @0x16
0x3914…394a at0017 = ╱2d╱-╱ // 0x392b @0x17
0x3914…394a at0018 = ╱2d╱-╱ // 0x392c @0x18
0x3914…394a at0019 = ╱2d╱-╱ // 0x392d @0x19
0x3914…394a at001a = ╱2d╱-╱ // 0x392e @0x1a
0x3914…394a at001b = ╱2d╱-╱ // 0x392f @0x1b
0x3914…394a at001c = ╱20╱…╱ // 0x3930 @0x1c
0x3914…394a at001d = ╱20╱…╱ // 0x3931 @0x1d
0x3914…394a at001e = ╱2d╱-╱ // 0x3932 @0x1e
0x3914…394a at001f = ╱2d╱-╱ // 0x3933 @0x1f
0x3914…394a at0020 = ╱2d╱-╱ // 0x3934 @0x20
0x3914…394a at0021 = ╱2d╱-╱ // 0x3935 @0x21
0x3914…394a at0022 = ╱2d╱-╱ // 0x3936 @0x22
0x3914…394a at0023 = ╱2d╱-╱ // 0x3937 @0x23
0x3914…394a at0024 = ╱2d╱-╱ // 0x3938 @0x24
0x3914…394a at0025 = ╱2d╱-╱ // 0x3939 @0x25
0x3914…394a at0026 = ╱2d╱-╱ // 0x393a @0x26
0x3914…394a at0027 = ╱2d╱-╱ // 0x393b @0x27
0x3914…394a at0028 = ╱20╱…╱ // 0x393c @0x28
0x3914…394a at0029 = ╱20╱…╱ // 0x393d @0x29
0x3914…394a at002a = ╱2d╱-╱ // 0x393e @0x2a
0x3914…394a at002b = ╱2d╱-╱ // 0x393f @0x2b
0x3914…394a at002c = ╱2d╱-╱ // 0x3940 @0x2c
0x3914…394a at002d = ╱2d╱-╱ // 0x3941 @0x2d
0x3914…394a at002e = ╱2d╱-╱ // 0x3942 @0x2e
0x3914…394a at002f = ╱2d╱-╱ // 0x3943 @0x2f
0x3914…394a at0030 = ╱2d╱-╱ // 0x3944 @0x30
0x3914…394a at0031 = ╱2d╱-╱ // 0x3945 @0x31
0x3914…394a at0032 = ╱2d╱-╱ // 0x3946 @0x32
0x3914…394a at0033 = ╱2d╱-╱ // 0x3947 @0x33
0x3914…394a at0034 = ╱22╱"╱ // 0x3948 @0x34
0x3914…394a at0035 = EOL // 0x3949 @0x35
0x3914…394a }
0x394a…3971 cf5f 5720 PRINT "<S>" ; TAB(11) ; "BALANCE" ; TAB(35)
0x394a…3971 LineComal80 {
0x394a…3971 ptr = 0xcf5f // 0x394a @0x0
0x394a…3971 lno = 0x1658 // 0x394c @0x2
0x394a…3971 at0004 = ╱92╱ PRINT ╱ // 0x394e @0x4
0x394a…3971 at0005 = ╱22╱"╱ // 0x394f @0x5
0x394a…3971 at0006 = ╱3c╱<╱ // 0x3950 @0x6
0x394a…3971 at0007 = ╱53╱S╱ // 0x3951 @0x7
0x394a…3971 at0008 = ╱3e╱>╱ // 0x3952 @0x8
0x394a…3971 at0009 = ╱22╱"╱ // 0x3953 @0x9
0x394a…3971 at000a = ╱ea╱ ; ╱ // 0x3954 @0xa
0x394a…3971 at000b = ╱d2╱TAB╱ // 0x3955 @0xb
0x394a…3971 at000c = ╱ed╱(╱ // 0x3956 @0xc
0x394a…3971 at000d = ╱31╱1╱ // 0x3957 @0xd
0x394a…3971 at000e = ╱31╱1╱ // 0x3958 @0xe
0x394a…3971 at000f = ╱f20b00╱ // 0x3959 @0xf
0x394a…3971 at0012 = ╱ee╱)╱ // 0x395c @0x12
0x394a…3971 at0013 = ╱ea╱ ; ╱ // 0x395d @0x13
0x394a…3971 at0014 = ╱22╱"╱ // 0x395e @0x14
0x394a…3971 at0015 = ╱42╱B╱ // 0x395f @0x15
0x394a…3971 at0016 = ╱41╱A╱ // 0x3960 @0x16
0x394a…3971 at0017 = ╱4c╱L╱ // 0x3961 @0x17
0x394a…3971 at0018 = ╱41╱A╱ // 0x3962 @0x18
0x394a…3971 at0019 = ╱4e╱N╱ // 0x3963 @0x19
0x394a…3971 at001a = ╱43╱C╱ // 0x3964 @0x1a
0x394a…3971 at001b = ╱45╱E╱ // 0x3965 @0x1b
0x394a…3971 at001c = ╱22╱"╱ // 0x3966 @0x1c
0x394a…3971 at001d = ╱ea╱ ; ╱ // 0x3967 @0x1d
0x394a…3971 at001e = ╱d2╱TAB╱ // 0x3968 @0x1e
0x394a…3971 at001f = ╱ed╱(╱ // 0x3969 @0x1f
0x394a…3971 at0020 = ╱33╱3╱ // 0x396a @0x20
0x394a…3971 at0021 = ╱35╱5╱ // 0x396b @0x21
0x394a…3971 at0022 = ╱f22300╱ // 0x396c @0x22
0x394a…3971 at0025 = ╱ee╱)╱ // 0x396f @0x25
0x394a…3971 at0026 = EOL // 0x3970 @0x26
0x394a…3971 }
0x3971…39bc cfaa 5730 PRINT CHR$ (TOT(1),9,2) ; CHR$ (TOT(1),9,2) ; CHR$ (TOT(3),9,2) ;
0x3971…39bc LineComal80 {
0x3971…39bc ptr = 0xcfaa // 0x3971 @0x0
0x3971…39bc lno = 0x1662 // 0x3973 @0x2
0x3971…39bc at0004 = ╱92╱ PRINT ╱ // 0x3975 @0x4
0x3971…39bc at0005 = ╱d0╱ CHR$ ╱ // 0x3976 @0x5
0x3971…39bc at0006 = ╱ed╱(╱ // 0x3977 @0x6
0x3971…39bc at0007 = ╱54╱T╱ // 0x3978 @0x7
0x3971…39bc at0008 = ╱4f╱O╱ // 0x3979 @0x8
0x3971…39bc at0009 = ╱54╱T╱ // 0x397a @0x9
0x3971…39bc at000a = ╱ed╱(╱ // 0x397b @0xa
0x3971…39bc at000b = ╱31╱1╱ // 0x397c @0xb
0x3971…39bc at000c = ╱f20100╱ // 0x397d @0xc
0x3971…39bc at000f = ╱ee╱)╱ // 0x3980 @0xf
0x3971…39bc at0010 = ╱ec╱,╱ // 0x3981 @0x10
0x3971…39bc at0011 = ╱39╱9╱ // 0x3982 @0x11
0x3971…39bc at0012 = ╱f20900╱ // 0x3983 @0x12
0x3971…39bc at0015 = ╱ec╱,╱ // 0x3986 @0x15
0x3971…39bc at0016 = ╱32╱2╱ // 0x3987 @0x16
0x3971…39bc at0017 = ╱f20200╱ // 0x3988 @0x17
0x3971…39bc at001a = ╱ee╱)╱ // 0x398b @0x1a
0x3971…39bc at001b = ╱ea╱ ; ╱ // 0x398c @0x1b
0x3971…39bc at001c = ╱d0╱ CHR$ ╱ // 0x398d @0x1c
0x3971…39bc at001d = ╱ed╱(╱ // 0x398e @0x1d
0x3971…39bc at001e = ╱54╱T╱ // 0x398f @0x1e
0x3971…39bc at001f = ╱4f╱O╱ // 0x3990 @0x1f
0x3971…39bc at0020 = ╱54╱T╱ // 0x3991 @0x20
0x3971…39bc at0021 = ╱ed╱(╱ // 0x3992 @0x21
0x3971…39bc at0022 = ╱31╱1╱ // 0x3993 @0x22
0x3971…39bc at0023 = ╱f20100╱ // 0x3994 @0x23
0x3971…39bc at0026 = ╱ee╱)╱ // 0x3997 @0x26
0x3971…39bc at0027 = ╱ec╱,╱ // 0x3998 @0x27
0x3971…39bc at0028 = ╱39╱9╱ // 0x3999 @0x28
0x3971…39bc at0029 = ╱f20900╱ // 0x399a @0x29
0x3971…39bc at002c = ╱ec╱,╱ // 0x399d @0x2c
0x3971…39bc at002d = ╱32╱2╱ // 0x399e @0x2d
0x3971…39bc at002e = ╱f20200╱ // 0x399f @0x2e
0x3971…39bc at0031 = ╱ee╱)╱ // 0x39a2 @0x31
0x3971…39bc at0032 = ╱ea╱ ; ╱ // 0x39a3 @0x32
0x3971…39bc at0033 = ╱d0╱ CHR$ ╱ // 0x39a4 @0x33
0x3971…39bc at0034 = ╱ed╱(╱ // 0x39a5 @0x34
0x3971…39bc at0035 = ╱54╱T╱ // 0x39a6 @0x35
0x3971…39bc at0036 = ╱4f╱O╱ // 0x39a7 @0x36
0x3971…39bc at0037 = ╱54╱T╱ // 0x39a8 @0x37
0x3971…39bc at0038 = ╱ed╱(╱ // 0x39a9 @0x38
0x3971…39bc at0039 = ╱33╱3╱ // 0x39aa @0x39
0x3971…39bc at003a = ╱f20300╱ // 0x39ab @0x3a
0x3971…39bc at003d = ╱ee╱)╱ // 0x39ae @0x3d
0x3971…39bc at003e = ╱ec╱,╱ // 0x39af @0x3e
0x3971…39bc at003f = ╱39╱9╱ // 0x39b0 @0x3f
0x3971…39bc at0040 = ╱f20900╱ // 0x39b1 @0x40
0x3971…39bc at0043 = ╱ec╱,╱ // 0x39b4 @0x43
0x3971…39bc at0044 = ╱32╱2╱ // 0x39b5 @0x44
0x3971…39bc at0045 = ╱f20200╱ // 0x39b6 @0x45
0x3971…39bc at0048 = ╱ee╱)╱ // 0x39b9 @0x48
0x3971…39bc at0049 = ╱ea╱ ; ╱ // 0x39ba @0x49
0x3971…39bc at004a = EOL // 0x39bb @0x4a
0x3971…39bc }
0x39bc…3a06 d52f 5740 PRINT CHR$ (TOT(3),9,2) ; CHR$ (TOT(5),9,2) ; CHR$ (TOT(5),9,2)
0x39bc…3a06 LineComal80 {
0x39bc…3a06 ptr = 0xd52f // 0x39bc @0x0
0x39bc…3a06 lno = 0x166c // 0x39be @0x2
0x39bc…3a06 at0004 = ╱92╱ PRINT ╱ // 0x39c0 @0x4
0x39bc…3a06 at0005 = ╱d0╱ CHR$ ╱ // 0x39c1 @0x5
0x39bc…3a06 at0006 = ╱ed╱(╱ // 0x39c2 @0x6
0x39bc…3a06 at0007 = ╱54╱T╱ // 0x39c3 @0x7
0x39bc…3a06 at0008 = ╱4f╱O╱ // 0x39c4 @0x8
0x39bc…3a06 at0009 = ╱54╱T╱ // 0x39c5 @0x9
0x39bc…3a06 at000a = ╱ed╱(╱ // 0x39c6 @0xa
0x39bc…3a06 at000b = ╱33╱3╱ // 0x39c7 @0xb
0x39bc…3a06 at000c = ╱f20300╱ // 0x39c8 @0xc
0x39bc…3a06 at000f = ╱ee╱)╱ // 0x39cb @0xf
0x39bc…3a06 at0010 = ╱ec╱,╱ // 0x39cc @0x10
0x39bc…3a06 at0011 = ╱39╱9╱ // 0x39cd @0x11
0x39bc…3a06 at0012 = ╱f20900╱ // 0x39ce @0x12
0x39bc…3a06 at0015 = ╱ec╱,╱ // 0x39d1 @0x15
0x39bc…3a06 at0016 = ╱32╱2╱ // 0x39d2 @0x16
0x39bc…3a06 at0017 = ╱f20200╱ // 0x39d3 @0x17
0x39bc…3a06 at001a = ╱ee╱)╱ // 0x39d6 @0x1a
0x39bc…3a06 at001b = ╱ea╱ ; ╱ // 0x39d7 @0x1b
0x39bc…3a06 at001c = ╱d0╱ CHR$ ╱ // 0x39d8 @0x1c
0x39bc…3a06 at001d = ╱ed╱(╱ // 0x39d9 @0x1d
0x39bc…3a06 at001e = ╱54╱T╱ // 0x39da @0x1e
0x39bc…3a06 at001f = ╱4f╱O╱ // 0x39db @0x1f
0x39bc…3a06 at0020 = ╱54╱T╱ // 0x39dc @0x20
0x39bc…3a06 at0021 = ╱ed╱(╱ // 0x39dd @0x21
0x39bc…3a06 at0022 = ╱35╱5╱ // 0x39de @0x22
0x39bc…3a06 at0023 = ╱f20500╱ // 0x39df @0x23
0x39bc…3a06 at0026 = ╱ee╱)╱ // 0x39e2 @0x26
0x39bc…3a06 at0027 = ╱ec╱,╱ // 0x39e3 @0x27
0x39bc…3a06 at0028 = ╱39╱9╱ // 0x39e4 @0x28
0x39bc…3a06 at0029 = ╱f20900╱ // 0x39e5 @0x29
0x39bc…3a06 at002c = ╱ec╱,╱ // 0x39e8 @0x2c
0x39bc…3a06 at002d = ╱32╱2╱ // 0x39e9 @0x2d
0x39bc…3a06 at002e = ╱f20200╱ // 0x39ea @0x2e
0x39bc…3a06 at0031 = ╱ee╱)╱ // 0x39ed @0x31
0x39bc…3a06 at0032 = ╱ea╱ ; ╱ // 0x39ee @0x32
0x39bc…3a06 at0033 = ╱d0╱ CHR$ ╱ // 0x39ef @0x33
0x39bc…3a06 at0034 = ╱ed╱(╱ // 0x39f0 @0x34
0x39bc…3a06 at0035 = ╱54╱T╱ // 0x39f1 @0x35
0x39bc…3a06 at0036 = ╱4f╱O╱ // 0x39f2 @0x36
0x39bc…3a06 at0037 = ╱54╱T╱ // 0x39f3 @0x37
0x39bc…3a06 at0038 = ╱ed╱(╱ // 0x39f4 @0x38
0x39bc…3a06 at0039 = ╱35╱5╱ // 0x39f5 @0x39
0x39bc…3a06 at003a = ╱f20500╱ // 0x39f6 @0x3a
0x39bc…3a06 at003d = ╱ee╱)╱ // 0x39f9 @0x3d
0x39bc…3a06 at003e = ╱ec╱,╱ // 0x39fa @0x3e
0x39bc…3a06 at003f = ╱39╱9╱ // 0x39fb @0x3f
0x39bc…3a06 at0040 = ╱f20900╱ // 0x39fc @0x40
0x39bc…3a06 at0043 = ╱ec╱,╱ // 0x39ff @0x43
0x39bc…3a06 at0044 = ╱32╱2╱ // 0x3a00 @0x44
0x39bc…3a06 at0045 = ╱f20200╱ // 0x3a01 @0x45
0x39bc…3a06 at0048 = ╱ee╱)╱ // 0x3a04 @0x48
0x39bc…3a06 at0049 = EOL // 0x3a05 @0x49
0x39bc…3a06 }
0x3a06…3a1e d00c 5760 FOR I := LIN_T TO AX_LIN DO PRINT
0x3a06…3a1e LineComal80 {
0x3a06…3a1e ptr = 0xd00c // 0x3a06 @0x0
0x3a06…3a1e lno = 0x1680 // 0x3a08 @0x2
0x3a06…3a1e at0004 = ╱b400╱ FOR ╱ // 0x3a0a @0x4
0x3a06…3a1e at0006 = ╱49╱I╱ // 0x3a0c @0x6
0x3a06…3a1e at0007 = ╱f0╱ := ╱ // 0x3a0d @0x7
0x3a06…3a1e at0008 = ╱4c╱L╱ // 0x3a0e @0x8
0x3a06…3a1e at0009 = ╱49╱I╱ // 0x3a0f @0x9
0x3a06…3a1e at000a = ╱4e╱N╱ // 0x3a10 @0xa
0x3a06…3a1e at000b = ╱5f╱_╱ // 0x3a11 @0xb
0x3a06…3a1e at000c = ╱54╱T╱ // 0x3a12 @0xc
0x3a06…3a1e at000d = ╱b74d╱ TO ╱ // 0x3a13 @0xd
0x3a06…3a1e at000f = ╱41╱A╱ // 0x3a15 @0xf
0x3a06…3a1e at0010 = ╱58╱X╱ // 0x3a16 @0x10
0x3a06…3a1e at0011 = ╱5f╱_╱ // 0x3a17 @0x11
0x3a06…3a1e at0012 = ╱4c╱L╱ // 0x3a18 @0x12
0x3a06…3a1e at0013 = ╱49╱I╱ // 0x3a19 @0x13
0x3a06…3a1e at0014 = ╱4e╱N╱ // 0x3a1a @0x14
0x3a06…3a1e at0015 = ╱bb╱ DO ╱ // 0x3a1b @0x15
0x3a06…3a1e at0016 = ╱92╱ PRINT ╱ // 0x3a1c @0x16
0x3a06…3a1e at0017 = EOL // 0x3a1d @0x17
0x3a06…3a1e }
0x3a1e…3a2a d018 5770 ENDPROC AFSLUT
0x3a1e…3a2a LineComal80 {
0x3a1e…3a2a ptr = 0xd018 // 0x3a1e @0x0
0x3a1e…3a2a lno = 0x168a // 0x3a20 @0x2
0x3a1e…3a2a at0004 = ╱9f╱ ENDPROC ╱ // 0x3a22 @0x4
0x3a1e…3a2a at0005 = ╱41╱A╱ // 0x3a23 @0x5
0x3a1e…3a2a at0006 = ╱46╱F╱ // 0x3a24 @0x6
0x3a1e…3a2a at0007 = ╱53╱S╱ // 0x3a25 @0x7
0x3a1e…3a2a at0008 = ╱4c╱L╱ // 0x3a26 @0x8
0x3a1e…3a2a at0009 = ╱55╱U╱ // 0x3a27 @0x9
0x3a1e…3a2a at000a = ╱54╱T╱ // 0x3a28 @0xa
0x3a1e…3a2a at000b = EOL // 0x3a29 @0xb
0x3a1e…3a2a }
0x3a2a…3a2f d01d 5780
0x3a2a…3a2f LineComal80 {
0x3a2a…3a2f ptr = 0xd01d // 0x3a2a @0x0
0x3a2a…3a2f lno = 0x1694 // 0x3a2c @0x2
0x3a2a…3a2f at0004 = EOL // 0x3a2e @0x4
0x3a2a…3a2f }
0x3a2f…3a49 d037 5790 PROC FIND_KTO( REF R_KTONR$)
0x3a2f…3a49 LineComal80 {
0x3a2f…3a49 ptr = 0xd037 // 0x3a2f @0x0
0x3a2f…3a49 lno = 0x169e // 0x3a31 @0x2
0x3a2f…3a49 at0004 = ╱9e66╱ PROC ╱ // 0x3a33 @0x4
0x3a2f…3a49 at0006 = ╱46╱F╱ // 0x3a35 @0x6
0x3a2f…3a49 at0007 = ╱49╱I╱ // 0x3a36 @0x7
0x3a2f…3a49 at0008 = ╱4e╱N╱ // 0x3a37 @0x8
0x3a2f…3a49 at0009 = ╱44╱D╱ // 0x3a38 @0x9
0x3a2f…3a49 at000a = ╱5f╱_╱ // 0x3a39 @0xa
0x3a2f…3a49 at000b = ╱4b╱K╱ // 0x3a3a @0xb
0x3a2f…3a49 at000c = ╱54╱T╱ // 0x3a3b @0xc
0x3a2f…3a49 at000d = ╱4f╱O╱ // 0x3a3c @0xd
0x3a2f…3a49 at000e = ╱ed╱(╱ // 0x3a3d @0xe
0x3a2f…3a49 at000f = ╱b6╱ REF ╱ // 0x3a3e @0xf
0x3a2f…3a49 at0010 = ╱52╱R╱ // 0x3a3f @0x10
0x3a2f…3a49 at0011 = ╱5f╱_╱ // 0x3a40 @0x11
0x3a2f…3a49 at0012 = ╱4b╱K╱ // 0x3a41 @0x12
0x3a2f…3a49 at0013 = ╱54╱T╱ // 0x3a42 @0x13
0x3a2f…3a49 at0014 = ╱4f╱O╱ // 0x3a43 @0x14
0x3a2f…3a49 at0015 = ╱4e╱N╱ // 0x3a44 @0x15
0x3a2f…3a49 at0016 = ╱52╱R╱ // 0x3a45 @0x16
0x3a2f…3a49 at0017 = ╱ef╱$╱ // 0x3a46 @0x17
0x3a2f…3a49 at0018 = ╱ee╱)╱ // 0x3a47 @0x18
0x3a2f…3a49 at0019 = EOL // 0x3a48 @0x19
0x3a2f…3a49 }
0x3a49…3a57 d045 5800 LET OK := FALSE
0x3a49…3a57 LineComal80 {
0x3a49…3a57 ptr = 0xd045 // 0x3a49 @0x0
0x3a49…3a57 lno = 0x16a8 // 0x3a4b @0x2
0x3a49…3a57 at0004 = ╱86╱ LET ╱ // 0x3a4d @0x4
0x3a49…3a57 at0005 = ╱4f╱O╱ // 0x3a4e @0x5
0x3a49…3a57 at0006 = ╱4b╱K╱ // 0x3a4f @0x6
0x3a49…3a57 at0007 = ╱f0╱ := ╱ // 0x3a50 @0x7
0x3a49…3a57 at0008 = ╱46╱F╱ // 0x3a51 @0x8
0x3a49…3a57 at0009 = ╱41╱A╱ // 0x3a52 @0x9
0x3a49…3a57 at000a = ╱4c╱L╱ // 0x3a53 @0xa
0x3a49…3a57 at000b = ╱53╱S╱ // 0x3a54 @0xb
0x3a49…3a57 at000c = ╱45╱E╱ // 0x3a55 @0xc
0x3a49…3a57 at000d = EOL // 0x3a56 @0xd
0x3a49…3a57 }
0x3a57…3a7b d069 5810 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
0x3a57…3a7b LineComal80 {
0x3a57…3a7b ptr = 0xd069 // 0x3a57 @0x0
0x3a57…3a7b lno = 0x16b2 // 0x3a59 @0x2
0x3a57…3a7b at0004 = ╱a9╱ GET ╱ // 0x3a5b @0x4
0x3a57…3a7b at0005 = ╱4b╱K╱ // 0x3a5c @0x5
0x3a57…3a7b at0006 = ╱54╱T╱ // 0x3a5d @0x6
0x3a57…3a7b at0007 = ╱4f╱O╱ // 0x3a5e @0x7
0x3a57…3a7b at0008 = ╱49╱I╱ // 0x3a5f @0x8
0x3a57…3a7b at0009 = ╱44╱D╱ // 0x3a60 @0x9
0x3a57…3a7b at000a = ╱58╱X╱ // 0x3a61 @0xa
0x3a57…3a7b at000b = ╱ef╱$╱ // 0x3a62 @0xb
0x3a57…3a7b at000c = ╱ec╱,╱ // 0x3a63 @0xc
0x3a57…3a7b at000d = ╱31╱1╱ // 0x3a64 @0xd
0x3a57…3a7b at000e = ╱f20100╱ // 0x3a65 @0xe
0x3a57…3a7b at0011 = ╱f1╱ : ╱ // 0x3a68 @0x11
0x3a57…3a7b at0012 = ╱49╱I╱ // 0x3a69 @0x12
0x3a57…3a7b at0013 = ╱5f╱_╱ // 0x3a6a @0x13
0x3a57…3a7b at0014 = ╱48╱H╱ // 0x3a6b @0x14
0x3a57…3a7b at0015 = ╱5c╱Ø╱ // 0x3a6c @0x15
0x3a57…3a7b at0016 = ╱4a╱J╱ // 0x3a6d @0x16
0x3a57…3a7b at0017 = ╱52╱R╱ // 0x3a6e @0x17
0x3a57…3a7b at0018 = ╱45╱E╱ // 0x3a6f @0x18
0x3a57…3a7b at0019 = ╱43╱C╱ // 0x3a70 @0x19
0x3a57…3a7b at001a = ╱ec╱,╱ // 0x3a71 @0x1a
0x3a57…3a7b at001b = ╱49╱I╱ // 0x3a72 @0x1b
0x3a57…3a7b at001c = ╱5f╱_╱ // 0x3a73 @0x1c
0x3a57…3a7b at001d = ╱4d╱M╱ // 0x3a74 @0x1d
0x3a57…3a7b at001e = ╱41╱A╱ // 0x3a75 @0x1e
0x3a57…3a7b at001f = ╱58╱X╱ // 0x3a76 @0x1f
0x3a57…3a7b at0020 = ╱52╱R╱ // 0x3a77 @0x20
0x3a57…3a7b at0021 = ╱45╱E╱ // 0x3a78 @0x21
0x3a57…3a7b at0022 = ╱43╱C╱ // 0x3a79 @0x22
0x3a57…3a7b at0023 = EOL // 0x3a7a @0x23
0x3a57…3a7b }
0x3a7b…3aa0 d08e 5820 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
0x3a7b…3aa0 LineComal80 {
0x3a7b…3aa0 ptr = 0xd08e // 0x3a7b @0x0
0x3a7b…3aa0 lno = 0x16bc // 0x3a7d @0x2
0x3a7b…3aa0 at0004 = ╱86╱ LET ╱ // 0x3a7f @0x4
0x3a7b…3aa0 at0005 = ╱4c╱L╱ // 0x3a80 @0x5
0x3a7b…3aa0 at0006 = ╱4f╱O╱ // 0x3a81 @0x6
0x3a7b…3aa0 at0007 = ╱57╱W╱ // 0x3a82 @0x7
0x3a7b…3aa0 at0008 = ╱f0╱ := ╱ // 0x3a83 @0x8
0x3a7b…3aa0 at0009 = ╱31╱1╱ // 0x3a84 @0x9
0x3a7b…3aa0 at000a = ╱f20100╱ // 0x3a85 @0xa
0x3a7b…3aa0 at000d = ╱ea╱ ; ╱ // 0x3a88 @0xd
0x3a7b…3aa0 at000e = ╱48╱H╱ // 0x3a89 @0xe
0x3a7b…3aa0 at000f = ╱49╱I╱ // 0x3a8a @0xf
0x3a7b…3aa0 at0010 = ╱47╱G╱ // 0x3a8b @0x10
0x3a7b…3aa0 at0011 = ╱48╱H╱ // 0x3a8c @0x11
0x3a7b…3aa0 at0012 = ╱f0╱ := ╱ // 0x3a8d @0x12
0x3a7b…3aa0 at0013 = ╱49╱I╱ // 0x3a8e @0x13
0x3a7b…3aa0 at0014 = ╱5f╱_╱ // 0x3a8f @0x14
0x3a7b…3aa0 at0015 = ╱48╱H╱ // 0x3a90 @0x15
0x3a7b…3aa0 at0016 = ╱5c╱Ø╱ // 0x3a91 @0x16
0x3a7b…3aa0 at0017 = ╱4a╱J╱ // 0x3a92 @0x17
0x3a7b…3aa0 at0018 = ╱52╱R╱ // 0x3a93 @0x18
0x3a7b…3aa0 at0019 = ╱45╱E╱ // 0x3a94 @0x19
0x3a7b…3aa0 at001a = ╱43╱C╱ // 0x3a95 @0x1a
0x3a7b…3aa0 at001b = ╱ea╱ ; ╱ // 0x3a96 @0x1b
0x3a7b…3aa0 at001c = ╱50╱P╱ // 0x3a97 @0x1c
0x3a7b…3aa0 at001d = ╱4f╱O╱ // 0x3a98 @0x1d
0x3a7b…3aa0 at001e = ╱53╱S╱ // 0x3a99 @0x1e
0x3a7b…3aa0 at001f = ╱f0╱ := ╱ // 0x3a9a @0x1f
0x3a7b…3aa0 at0020 = ╱32╱2╱ // 0x3a9b @0x20
0x3a7b…3aa0 at0021 = ╱f20200╱ // 0x3a9c @0x21
0x3a7b…3aa0 at0024 = EOL // 0x3a9f @0x24
0x3a7b…3aa0 }
0x3aa0…3ab1 d09f 5830 IF IGH > 1 THEN
0x3aa0…3ab1 LineComal80 {
0x3aa0…3ab1 ptr = 0xd09f // 0x3aa0 @0x0
0x3aa0…3ab1 lno = 0x16c6 // 0x3aa2 @0x2
0x3aa0…3ab1 at0004 = ╱9b6748╱ IF ╱ // 0x3aa4 @0x4
0x3aa0…3ab1 at0007 = ╱49╱I╱ // 0x3aa7 @0x7
0x3aa0…3ab1 at0008 = ╱47╱G╱ // 0x3aa8 @0x8
0x3aa0…3ab1 at0009 = ╱48╱H╱ // 0x3aa9 @0x9
0x3aa0…3ab1 at000a = ╱e1╱ > ╱ // 0x3aaa @0xa
0x3aa0…3ab1 at000b = ╱31╱1╱ // 0x3aab @0xb
0x3aa0…3ab1 at000c = ╱f20100╱ // 0x3aac @0xc
0x3aa0…3ab1 at000f = ╱b5╱ THEN ╱ // 0x3aaf @0xf
0x3aa0…3ab1 at0010 = EOL // 0x3ab0 @0x10
0x3aa0…3ab1 }
0x3ab1…3ab8 d0a6 5840 REPEAT
0x3ab1…3ab8 LineComal80 {
0x3ab1…3ab8 ptr = 0xd0a6 // 0x3ab1 @0x0
0x3ab1…3ab8 lno = 0x16d0 // 0x3ab3 @0x2
0x3ab1…3ab8 at0004 = ╱9768╱ REPEAT ╱ // 0x3ab5 @0x4
0x3ab1…3ab8 at0006 = EOL // 0x3ab7 @0x6
0x3ab1…3ab8 }
0x3ab8…3ae4 d0d2 5850 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x3ab8…3ae4 LineComal80 {
0x3ab8…3ae4 ptr = 0xd0d2 // 0x3ab8 @0x0
0x3ab8…3ae4 lno = 0x16da // 0x3aba @0x2
0x3ab8…3ae4 at0004 = ╱86╱ LET ╱ // 0x3abc @0x4
0x3ab8…3ae4 at0005 = ╱50╱P╱ // 0x3abd @0x5
0x3ab8…3ae4 at0006 = ╱4f╱O╱ // 0x3abe @0x6
0x3ab8…3ae4 at0007 = ╱53╱S╱ // 0x3abf @0x7
0x3ab8…3ae4 at0008 = ╱f0╱ := ╱ // 0x3ac0 @0x8
0x3ab8…3ae4 at0009 = ╱c6╱INT╱ // 0x3ac1 @0x9
0x3ab8…3ae4 at000a = ╱ed╱(╱ // 0x3ac2 @0xa
0x3ab8…3ae4 at000b = ╱ed╱(╱ // 0x3ac3 @0xb
0x3ab8…3ae4 at000c = ╱48╱H╱ // 0x3ac4 @0xc
0x3ab8…3ae4 at000d = ╱49╱I╱ // 0x3ac5 @0xd
0x3ab8…3ae4 at000e = ╱47╱G╱ // 0x3ac6 @0xe
0x3ab8…3ae4 at000f = ╱48╱H╱ // 0x3ac7 @0xf
0x3ab8…3ae4 at0010 = ╱e6╱ - ╱ // 0x3ac8 @0x10
0x3ab8…3ae4 at0011 = ╱4c╱L╱ // 0x3ac9 @0x11
0x3ab8…3ae4 at0012 = ╱4f╱O╱ // 0x3aca @0x12
0x3ab8…3ae4 at0013 = ╱57╱W╱ // 0x3acb @0x13
0x3ab8…3ae4 at0014 = ╱ee╱)╱ // 0x3acc @0x14
0x3ab8…3ae4 at0015 = ╱e8╱ / ╱ // 0x3acd @0x15
0x3ab8…3ae4 at0016 = ╱32╱2╱ // 0x3ace @0x16
0x3ab8…3ae4 at0017 = ╱f20200╱ // 0x3acf @0x17
0x3ab8…3ae4 at001a = ╱e5╱ + ╱ // 0x3ad2 @0x1a
0x3ab8…3ae4 at001b = ╱2e╱.╱ // 0x3ad3 @0x1b
0x3ab8…3ae4 at001c = ╱35╱5╱ // 0x3ad4 @0x1c
0x3ab8…3ae4 at001d = ╱f88000000000000005╱ // 0x3ad5 @0x1d
0x3ab8…3ae4 at0026 = ╱ee╱)╱ // 0x3ade @0x26
0x3ab8…3ae4 at0027 = ╱e5╱ + ╱ // 0x3adf @0x27
0x3ab8…3ae4 at0028 = ╱4c╱L╱ // 0x3ae0 @0x28
0x3ab8…3ae4 at0029 = ╱4f╱O╱ // 0x3ae1 @0x29
0x3ab8…3ae4 at002a = ╱57╱W╱ // 0x3ae2 @0x2a
0x3ab8…3ae4 at002b = EOL // 0x3ae3 @0x2b
0x3ab8…3ae4 }
0x3ae4…3b02 d0f0 5860 GET KTOIDX$,POS : KTONR$,RECNR
0x3ae4…3b02 LineComal80 {
0x3ae4…3b02 ptr = 0xd0f0 // 0x3ae4 @0x0
0x3ae4…3b02 lno = 0x16e4 // 0x3ae6 @0x2
0x3ae4…3b02 at0004 = ╱a9╱ GET ╱ // 0x3ae8 @0x4
0x3ae4…3b02 at0005 = ╱4b╱K╱ // 0x3ae9 @0x5
0x3ae4…3b02 at0006 = ╱54╱T╱ // 0x3aea @0x6
0x3ae4…3b02 at0007 = ╱4f╱O╱ // 0x3aeb @0x7
0x3ae4…3b02 at0008 = ╱49╱I╱ // 0x3aec @0x8
0x3ae4…3b02 at0009 = ╱44╱D╱ // 0x3aed @0x9
0x3ae4…3b02 at000a = ╱58╱X╱ // 0x3aee @0xa
0x3ae4…3b02 at000b = ╱ef╱$╱ // 0x3aef @0xb
0x3ae4…3b02 at000c = ╱ec╱,╱ // 0x3af0 @0xc
0x3ae4…3b02 at000d = ╱50╱P╱ // 0x3af1 @0xd
0x3ae4…3b02 at000e = ╱4f╱O╱ // 0x3af2 @0xe
0x3ae4…3b02 at000f = ╱53╱S╱ // 0x3af3 @0xf
0x3ae4…3b02 at0010 = ╱f1╱ : ╱ // 0x3af4 @0x10
0x3ae4…3b02 at0011 = ╱4b╱K╱ // 0x3af5 @0x11
0x3ae4…3b02 at0012 = ╱54╱T╱ // 0x3af6 @0x12
0x3ae4…3b02 at0013 = ╱4f╱O╱ // 0x3af7 @0x13
0x3ae4…3b02 at0014 = ╱4e╱N╱ // 0x3af8 @0x14
0x3ae4…3b02 at0015 = ╱52╱R╱ // 0x3af9 @0x15
0x3ae4…3b02 at0016 = ╱ef╱$╱ // 0x3afa @0x16
0x3ae4…3b02 at0017 = ╱ec╱,╱ // 0x3afb @0x17
0x3ae4…3b02 at0018 = ╱52╱R╱ // 0x3afc @0x18
0x3ae4…3b02 at0019 = ╱45╱E╱ // 0x3afd @0x19
0x3ae4…3b02 at001a = ╱43╱C╱ // 0x3afe @0x1a
0x3ae4…3b02 at001b = ╱4e╱N╱ // 0x3aff @0x1b
0x3ae4…3b02 at001c = ╱52╱R╱ // 0x3b00 @0x1c
0x3ae4…3b02 at001d = EOL // 0x3b01 @0x1d
0x3ae4…3b02 }
0x3b02…3b19 d107 5870 IF TONR$ > R_KTONR$ THEN
0x3b02…3b19 LineComal80 {
0x3b02…3b19 ptr = 0xd107 // 0x3b02 @0x0
0x3b02…3b19 lno = 0x16ee // 0x3b04 @0x2
0x3b02…3b19 at0004 = ╱9b694b╱ IF ╱ // 0x3b06 @0x4
0x3b02…3b19 at0007 = ╱54╱T╱ // 0x3b09 @0x7
0x3b02…3b19 at0008 = ╱4f╱O╱ // 0x3b0a @0x8
0x3b02…3b19 at0009 = ╱4e╱N╱ // 0x3b0b @0x9
0x3b02…3b19 at000a = ╱52╱R╱ // 0x3b0c @0xa
0x3b02…3b19 at000b = ╱ef╱$╱ // 0x3b0d @0xb
0x3b02…3b19 at000c = ╱e1╱ > ╱ // 0x3b0e @0xc
0x3b02…3b19 at000d = ╱52╱R╱ // 0x3b0f @0xd
0x3b02…3b19 at000e = ╱5f╱_╱ // 0x3b10 @0xe
0x3b02…3b19 at000f = ╱4b╱K╱ // 0x3b11 @0xf
0x3b02…3b19 at0010 = ╱54╱T╱ // 0x3b12 @0x10
0x3b02…3b19 at0011 = ╱4f╱O╱ // 0x3b13 @0x11
0x3b02…3b19 at0012 = ╱4e╱N╱ // 0x3b14 @0x12
0x3b02…3b19 at0013 = ╱52╱R╱ // 0x3b15 @0x13
0x3b02…3b19 at0014 = ╱ef╱$╱ // 0x3b16 @0x14
0x3b02…3b19 at0015 = ╱b5╱ THEN ╱ // 0x3b17 @0x15
0x3b02…3b19 at0016 = EOL // 0x3b18 @0x16
0x3b02…3b19 }
0x3b19…3b27 d115 5880 LET HIGH := POS
0x3b19…3b27 LineComal80 {
0x3b19…3b27 ptr = 0xd115 // 0x3b19 @0x0
0x3b19…3b27 lno = 0x16f8 // 0x3b1b @0x2
0x3b19…3b27 at0004 = ╱86╱ LET ╱ // 0x3b1d @0x4
0x3b19…3b27 at0005 = ╱48╱H╱ // 0x3b1e @0x5
0x3b19…3b27 at0006 = ╱49╱I╱ // 0x3b1f @0x6
0x3b19…3b27 at0007 = ╱47╱G╱ // 0x3b20 @0x7
0x3b19…3b27 at0008 = ╱48╱H╱ // 0x3b21 @0x8
0x3b19…3b27 at0009 = ╱f0╱ := ╱ // 0x3b22 @0x9
0x3b19…3b27 at000a = ╱50╱P╱ // 0x3b23 @0xa
0x3b19…3b27 at000b = ╱4f╱O╱ // 0x3b24 @0xb
0x3b19…3b27 at000c = ╱53╱S╱ // 0x3b25 @0xc
0x3b19…3b27 at000d = EOL // 0x3b26 @0xd
0x3b19…3b27 }
0x3b27…3b2e d11c 5890 ELSE
0x3b27…3b2e LineComal80 {
0x3b27…3b2e ptr = 0xd11c // 0x3b27 @0x0
0x3b27…3b2e lno = 0x1702 // 0x3b29 @0x2
0x3b27…3b2e at0004 = ╱9a6a╱ ELSE ╱ // 0x3b2b @0x4
0x3b27…3b2e at0006 = EOL // 0x3b2d @0x6
0x3b27…3b2e }
0x3b2e…3b45 d133 5900 IF TONR$ < R_KTONR$ THEN
0x3b2e…3b45 LineComal80 {
0x3b2e…3b45 ptr = 0xd133 // 0x3b2e @0x0
0x3b2e…3b45 lno = 0x170c // 0x3b30 @0x2
0x3b2e…3b45 at0004 = ╱9b6b4b╱ IF ╱ // 0x3b32 @0x4
0x3b2e…3b45 at0007 = ╱54╱T╱ // 0x3b35 @0x7
0x3b2e…3b45 at0008 = ╱4f╱O╱ // 0x3b36 @0x8
0x3b2e…3b45 at0009 = ╱4e╱N╱ // 0x3b37 @0x9
0x3b2e…3b45 at000a = ╱52╱R╱ // 0x3b38 @0xa
0x3b2e…3b45 at000b = ╱ef╱$╱ // 0x3b39 @0xb
0x3b2e…3b45 at000c = ╱e0╱ < ╱ // 0x3b3a @0xc
0x3b2e…3b45 at000d = ╱52╱R╱ // 0x3b3b @0xd
0x3b2e…3b45 at000e = ╱5f╱_╱ // 0x3b3c @0xe
0x3b2e…3b45 at000f = ╱4b╱K╱ // 0x3b3d @0xf
0x3b2e…3b45 at0010 = ╱54╱T╱ // 0x3b3e @0x10
0x3b2e…3b45 at0011 = ╱4f╱O╱ // 0x3b3f @0x11
0x3b2e…3b45 at0012 = ╱4e╱N╱ // 0x3b40 @0x12
0x3b2e…3b45 at0013 = ╱52╱R╱ // 0x3b41 @0x13
0x3b2e…3b45 at0014 = ╱ef╱$╱ // 0x3b42 @0x14
0x3b2e…3b45 at0015 = ╱b5╱ THEN ╱ // 0x3b43 @0x15
0x3b2e…3b45 at0016 = EOL // 0x3b44 @0x16
0x3b2e…3b45 }
0x3b45…3b52 d140 5910 LET LOW := POS
0x3b45…3b52 LineComal80 {
0x3b45…3b52 ptr = 0xd140 // 0x3b45 @0x0
0x3b45…3b52 lno = 0x1716 // 0x3b47 @0x2
0x3b45…3b52 at0004 = ╱86╱ LET ╱ // 0x3b49 @0x4
0x3b45…3b52 at0005 = ╱4c╱L╱ // 0x3b4a @0x5
0x3b45…3b52 at0006 = ╱4f╱O╱ // 0x3b4b @0x6
0x3b45…3b52 at0007 = ╱57╱W╱ // 0x3b4c @0x7
0x3b45…3b52 at0008 = ╱f0╱ := ╱ // 0x3b4d @0x8
0x3b45…3b52 at0009 = ╱50╱P╱ // 0x3b4e @0x9
0x3b45…3b52 at000a = ╱4f╱O╱ // 0x3b4f @0xa
0x3b45…3b52 at000b = ╱53╱S╱ // 0x3b50 @0xb
0x3b45…3b52 at000c = EOL // 0x3b51 @0xc
0x3b45…3b52 }
0x3b52…3b58 d146 5920 ENDIF
0x3b52…3b58 LineComal80 {
0x3b52…3b58 ptr = 0xd146 // 0x3b52 @0x0
0x3b52…3b58 lno = 0x1720 // 0x3b54 @0x2
0x3b52…3b58 at0004 = ╱9c╱ ENDIF ╱ // 0x3b56 @0x4
0x3b52…3b58 at0005 = EOL // 0x3b57 @0x5
0x3b52…3b58 }
0x3b58…3b5e d14c 5930 ENDIF
0x3b58…3b5e LineComal80 {
0x3b58…3b5e ptr = 0xd14c // 0x3b58 @0x0
0x3b58…3b5e lno = 0x172a // 0x3b5a @0x2
0x3b58…3b5e at0004 = ╱9c╱ ENDIF ╱ // 0x3b5c @0x4
0x3b58…3b5e at0005 = EOL // 0x3b5d @0x5
0x3b58…3b5e }
0x3b5e…3b81 d16f 5940 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
0x3b5e…3b81 LineComal80 {
0x3b5e…3b81 ptr = 0xd16f // 0x3b5e @0x0
0x3b5e…3b81 lno = 0x1734 // 0x3b60 @0x2
0x3b5e…3b81 at0004 = ╱98╱ UNTIL ╱ // 0x3b62 @0x4
0x3b5e…3b81 at0005 = ╱48╱H╱ // 0x3b63 @0x5
0x3b5e…3b81 at0006 = ╱49╱I╱ // 0x3b64 @0x6
0x3b5e…3b81 at0007 = ╱47╱G╱ // 0x3b65 @0x7
0x3b5e…3b81 at0008 = ╱48╱H╱ // 0x3b66 @0x8
0x3b5e…3b81 at0009 = ╱e6╱ - ╱ // 0x3b67 @0x9
0x3b5e…3b81 at000a = ╱4c╱L╱ // 0x3b68 @0xa
0x3b5e…3b81 at000b = ╱4f╱O╱ // 0x3b69 @0xb
0x3b5e…3b81 at000c = ╱57╱W╱ // 0x3b6a @0xc
0x3b5e…3b81 at000d = ╱e2╱ =< ╱ // 0x3b6b @0xd
0x3b5e…3b81 at000e = ╱31╱1╱ // 0x3b6c @0xe
0x3b5e…3b81 at000f = ╱f20100╱ // 0x3b6d @0xf
0x3b5e…3b81 at0012 = ╱d8╱ OR ╱ // 0x3b70 @0x12
0x3b5e…3b81 at0013 = ╱52╱R╱ // 0x3b71 @0x13
0x3b5e…3b81 at0014 = ╱5f╱_╱ // 0x3b72 @0x14
0x3b5e…3b81 at0015 = ╱4b╱K╱ // 0x3b73 @0x15
0x3b5e…3b81 at0016 = ╱54╱T╱ // 0x3b74 @0x16
0x3b5e…3b81 at0017 = ╱4f╱O╱ // 0x3b75 @0x17
0x3b5e…3b81 at0018 = ╱4e╱N╱ // 0x3b76 @0x18
0x3b5e…3b81 at0019 = ╱52╱R╱ // 0x3b77 @0x19
0x3b5e…3b81 at001a = ╱ef╱$╱ // 0x3b78 @0x1a
0x3b5e…3b81 at001b = ╱df╱ = ╱ // 0x3b79 @0x1b
0x3b5e…3b81 at001c = ╱4b╱K╱ // 0x3b7a @0x1c
0x3b5e…3b81 at001d = ╱54╱T╱ // 0x3b7b @0x1d
0x3b5e…3b81 at001e = ╱4f╱O╱ // 0x3b7c @0x1e
0x3b5e…3b81 at001f = ╱4e╱N╱ // 0x3b7d @0x1f
0x3b5e…3b81 at0020 = ╱52╱R╱ // 0x3b7e @0x20
0x3b5e…3b81 at0021 = ╱ef╱$╱ // 0x3b7f @0x21
0x3b5e…3b81 at0022 = EOL // 0x3b80 @0x22
0x3b5e…3b81 }
0x3b81…3bad d19b 5950 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x3b81…3bad LineComal80 {
0x3b81…3bad ptr = 0xd19b // 0x3b81 @0x0
0x3b81…3bad lno = 0x173e // 0x3b83 @0x2
0x3b81…3bad at0004 = ╱86╱ LET ╱ // 0x3b85 @0x4
0x3b81…3bad at0005 = ╱50╱P╱ // 0x3b86 @0x5
0x3b81…3bad at0006 = ╱4f╱O╱ // 0x3b87 @0x6
0x3b81…3bad at0007 = ╱53╱S╱ // 0x3b88 @0x7
0x3b81…3bad at0008 = ╱f0╱ := ╱ // 0x3b89 @0x8
0x3b81…3bad at0009 = ╱c6╱INT╱ // 0x3b8a @0x9
0x3b81…3bad at000a = ╱ed╱(╱ // 0x3b8b @0xa
0x3b81…3bad at000b = ╱ed╱(╱ // 0x3b8c @0xb
0x3b81…3bad at000c = ╱48╱H╱ // 0x3b8d @0xc
0x3b81…3bad at000d = ╱49╱I╱ // 0x3b8e @0xd
0x3b81…3bad at000e = ╱47╱G╱ // 0x3b8f @0xe
0x3b81…3bad at000f = ╱48╱H╱ // 0x3b90 @0xf
0x3b81…3bad at0010 = ╱e6╱ - ╱ // 0x3b91 @0x10
0x3b81…3bad at0011 = ╱4c╱L╱ // 0x3b92 @0x11
0x3b81…3bad at0012 = ╱4f╱O╱ // 0x3b93 @0x12
0x3b81…3bad at0013 = ╱57╱W╱ // 0x3b94 @0x13
0x3b81…3bad at0014 = ╱ee╱)╱ // 0x3b95 @0x14
0x3b81…3bad at0015 = ╱e8╱ / ╱ // 0x3b96 @0x15
0x3b81…3bad at0016 = ╱32╱2╱ // 0x3b97 @0x16
0x3b81…3bad at0017 = ╱f20200╱ // 0x3b98 @0x17
0x3b81…3bad at001a = ╱e5╱ + ╱ // 0x3b9b @0x1a
0x3b81…3bad at001b = ╱2e╱.╱ // 0x3b9c @0x1b
0x3b81…3bad at001c = ╱35╱5╱ // 0x3b9d @0x1c
0x3b81…3bad at001d = ╱f88000000000000005╱ // 0x3b9e @0x1d
0x3b81…3bad at0026 = ╱ee╱)╱ // 0x3ba7 @0x26
0x3b81…3bad at0027 = ╱e5╱ + ╱ // 0x3ba8 @0x27
0x3b81…3bad at0028 = ╱4c╱L╱ // 0x3ba9 @0x28
0x3b81…3bad at0029 = ╱4f╱O╱ // 0x3baa @0x29
0x3b81…3bad at002a = ╱57╱W╱ // 0x3bab @0x2a
0x3b81…3bad at002b = EOL // 0x3bac @0x2b
0x3b81…3bad }
0x3bad…3bcb d1b9 5960 GET KTOIDX$,POS : KTONR$,RECNR
0x3bad…3bcb LineComal80 {
0x3bad…3bcb ptr = 0xd1b9 // 0x3bad @0x0
0x3bad…3bcb lno = 0x1748 // 0x3baf @0x2
0x3bad…3bcb at0004 = ╱a9╱ GET ╱ // 0x3bb1 @0x4
0x3bad…3bcb at0005 = ╱4b╱K╱ // 0x3bb2 @0x5
0x3bad…3bcb at0006 = ╱54╱T╱ // 0x3bb3 @0x6
0x3bad…3bcb at0007 = ╱4f╱O╱ // 0x3bb4 @0x7
0x3bad…3bcb at0008 = ╱49╱I╱ // 0x3bb5 @0x8
0x3bad…3bcb at0009 = ╱44╱D╱ // 0x3bb6 @0x9
0x3bad…3bcb at000a = ╱58╱X╱ // 0x3bb7 @0xa
0x3bad…3bcb at000b = ╱ef╱$╱ // 0x3bb8 @0xb
0x3bad…3bcb at000c = ╱ec╱,╱ // 0x3bb9 @0xc
0x3bad…3bcb at000d = ╱50╱P╱ // 0x3bba @0xd
0x3bad…3bcb at000e = ╱4f╱O╱ // 0x3bbb @0xe
0x3bad…3bcb at000f = ╱53╱S╱ // 0x3bbc @0xf
0x3bad…3bcb at0010 = ╱f1╱ : ╱ // 0x3bbd @0x10
0x3bad…3bcb at0011 = ╱4b╱K╱ // 0x3bbe @0x11
0x3bad…3bcb at0012 = ╱54╱T╱ // 0x3bbf @0x12
0x3bad…3bcb at0013 = ╱4f╱O╱ // 0x3bc0 @0x13
0x3bad…3bcb at0014 = ╱4e╱N╱ // 0x3bc1 @0x14
0x3bad…3bcb at0015 = ╱52╱R╱ // 0x3bc2 @0x15
0x3bad…3bcb at0016 = ╱ef╱$╱ // 0x3bc3 @0x16
0x3bad…3bcb at0017 = ╱ec╱,╱ // 0x3bc4 @0x17
0x3bad…3bcb at0018 = ╱52╱R╱ // 0x3bc5 @0x18
0x3bad…3bcb at0019 = ╱45╱E╱ // 0x3bc6 @0x19
0x3bad…3bcb at001a = ╱43╱C╱ // 0x3bc7 @0x1a
0x3bad…3bcb at001b = ╱4e╱N╱ // 0x3bc8 @0x1b
0x3bad…3bcb at001c = ╱52╱R╱ // 0x3bc9 @0x1c
0x3bad…3bcb at001d = EOL // 0x3bca @0x1d
0x3bad…3bcb }
0x3bcb…3bea d1d8 5970 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
0x3bcb…3bea LineComal80 {
0x3bcb…3bea ptr = 0xd1d8 // 0x3bcb @0x0
0x3bcb…3bea lno = 0x1752 // 0x3bcd @0x2
0x3bcb…3bea at0004 = ╱8200╱ IF ╱ // 0x3bcf @0x4
0x3bcb…3bea at0006 = ╱4b╱K╱ // 0x3bd1 @0x6
0x3bcb…3bea at0007 = ╱54╱T╱ // 0x3bd2 @0x7
0x3bcb…3bea at0008 = ╱4f╱O╱ // 0x3bd3 @0x8
0x3bcb…3bea at0009 = ╱4e╱N╱ // 0x3bd4 @0x9
0x3bcb…3bea at000a = ╱52╱R╱ // 0x3bd5 @0xa
0x3bcb…3bea at000b = ╱ef╱$╱ // 0x3bd6 @0xb
0x3bcb…3bea at000c = ╱df╱ = ╱ // 0x3bd7 @0xc
0x3bcb…3bea at000d = ╱52╱R╱ // 0x3bd8 @0xd
0x3bcb…3bea at000e = ╱5f╱_╱ // 0x3bd9 @0xe
0x3bcb…3bea at000f = ╱4b╱K╱ // 0x3bda @0xf
0x3bcb…3bea at0010 = ╱54╱T╱ // 0x3bdb @0x10
0x3bcb…3bea at0011 = ╱4f╱O╱ // 0x3bdc @0x11
0x3bcb…3bea at0012 = ╱4e╱N╱ // 0x3bdd @0x12
0x3bcb…3bea at0013 = ╱52╱R╱ // 0x3bde @0x13
0x3bcb…3bea at0014 = ╱ef╱$╱ // 0x3bdf @0x14
0x3bcb…3bea at0015 = ╱b5╱ THEN ╱ // 0x3be0 @0x15
0x3bcb…3bea at0016 = ╱86╱ LET ╱ // 0x3be1 @0x16
0x3bcb…3bea at0017 = ╱4f╱O╱ // 0x3be2 @0x17
0x3bcb…3bea at0018 = ╱4b╱K╱ // 0x3be3 @0x18
0x3bcb…3bea at0019 = ╱f0╱ := ╱ // 0x3be4 @0x19
0x3bcb…3bea at001a = ╱54╱T╱ // 0x3be5 @0x1a
0x3bcb…3bea at001b = ╱52╱R╱ // 0x3be6 @0x1b
0x3bcb…3bea at001c = ╱55╱U╱ // 0x3be7 @0x1c
0x3bcb…3bea at001d = ╱45╱E╱ // 0x3be8 @0x1d
0x3bcb…3bea at001e = EOL // 0x3be9 @0x1e
0x3bcb…3bea }
0x3bea…3bf0 d1de 5980 ENDIF
0x3bea…3bf0 LineComal80 {
0x3bea…3bf0 ptr = 0xd1de // 0x3bea @0x0
0x3bea…3bf0 lno = 0x175c // 0x3bec @0x2
0x3bea…3bf0 at0004 = ╱9c╱ ENDIF ╱ // 0x3bee @0x4
0x3bea…3bf0 at0005 = EOL // 0x3bef @0x5
0x3bea…3bf0 }
0x3bf0…3c02 d1f0 5990 LET FIND_KTO := POS
0x3bf0…3c02 LineComal80 {
0x3bf0…3c02 ptr = 0xd1f0 // 0x3bf0 @0x0
0x3bf0…3c02 lno = 0x1766 // 0x3bf2 @0x2
0x3bf0…3c02 at0004 = ╱86╱ LET ╱ // 0x3bf4 @0x4
0x3bf0…3c02 at0005 = ╱46╱F╱ // 0x3bf5 @0x5
0x3bf0…3c02 at0006 = ╱49╱I╱ // 0x3bf6 @0x6
0x3bf0…3c02 at0007 = ╱4e╱N╱ // 0x3bf7 @0x7
0x3bf0…3c02 at0008 = ╱44╱D╱ // 0x3bf8 @0x8
0x3bf0…3c02 at0009 = ╱5f╱_╱ // 0x3bf9 @0x9
0x3bf0…3c02 at000a = ╱4b╱K╱ // 0x3bfa @0xa
0x3bf0…3c02 at000b = ╱54╱T╱ // 0x3bfb @0xb
0x3bf0…3c02 at000c = ╱4f╱O╱ // 0x3bfc @0xc
0x3bf0…3c02 at000d = ╱f0╱ := ╱ // 0x3bfd @0xd
0x3bf0…3c02 at000e = ╱50╱P╱ // 0x3bfe @0xe
0x3bf0…3c02 at000f = ╱4f╱O╱ // 0x3bff @0xf
0x3bf0…3c02 at0010 = ╱53╱S╱ // 0x3c00 @0x10
0x3bf0…3c02 at0011 = EOL // 0x3c01 @0x11
0x3bf0…3c02 }
0x3c02…3c10 d1fe 6000 ENDPROC FIND_KTO
0x3c02…3c10 LineComal80 {
0x3c02…3c10 ptr = 0xd1fe // 0x3c02 @0x0
0x3c02…3c10 lno = 0x1770 // 0x3c04 @0x2
0x3c02…3c10 at0004 = ╱9f╱ ENDPROC ╱ // 0x3c06 @0x4
0x3c02…3c10 at0005 = ╱46╱F╱ // 0x3c07 @0x5
0x3c02…3c10 at0006 = ╱49╱I╱ // 0x3c08 @0x6
0x3c02…3c10 at0007 = ╱4e╱N╱ // 0x3c09 @0x7
0x3c02…3c10 at0008 = ╱44╱D╱ // 0x3c0a @0x8
0x3c02…3c10 at0009 = ╱5f╱_╱ // 0x3c0b @0x9
0x3c02…3c10 at000a = ╱4b╱K╱ // 0x3c0c @0xa
0x3c02…3c10 at000b = ╱54╱T╱ // 0x3c0d @0xb
0x3c02…3c10 at000c = ╱4f╱O╱ // 0x3c0e @0xc
0x3c02…3c10 at000d = EOL // 0x3c0f @0xd
0x3c02…3c10 }
0x3c10…3c16 d4e8 6010 //
0x3c10…3c16 LineComal80 {
0x3c10…3c16 ptr = 0xd4e8 // 0x3c10 @0x0
0x3c10…3c16 lno = 0x177a // 0x3c12 @0x2
0x3c10…3c16 at0004 = ╱89╱ // ╱ // 0x3c14 @0x4
0x3c10…3c16 at0005 = EOL // 0x3c15 @0x5
0x3c10…3c16 }
0x3c16…3c49 d237 6070 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
0x3c16…3c49 LineComal80 {
0x3c16…3c49 ptr = 0xd237 // 0x3c16 @0x0
0x3c16…3c49 lno = 0x17b6 // 0x3c18 @0x2
0x3c16…3c49 at0004 = ╱9e6c╱ PROC ╱ // 0x3c1a @0x4
0x3c16…3c49 at0006 = ╱50╱P╱ // 0x3c1c @0x6
0x3c16…3c49 at0007 = ╱52╱R╱ // 0x3c1d @0x7
0x3c16…3c49 at0008 = ╱49╱I╱ // 0x3c1e @0x8
0x3c16…3c49 at0009 = ╱4e╱N╱ // 0x3c1f @0x9
0x3c16…3c49 at000a = ╱54╱T╱ // 0x3c20 @0xa
0x3c16…3c49 at000b = ╱52╱R╱ // 0x3c21 @0xb
0x3c16…3c49 at000c = ╱45╱E╱ // 0x3c22 @0xc
0x3c16…3c49 at000d = ╱53╱S╱ // 0x3c23 @0xd
0x3c16…3c49 at000e = ╱ed╱(╱ // 0x3c24 @0xe
0x3c16…3c49 at000f = ╱50╱P╱ // 0x3c25 @0xf
0x3c16…3c49 at0010 = ╱41╱A╱ // 0x3c26 @0x10
0x3c16…3c49 at0011 = ╱47╱G╱ // 0x3c27 @0x11
0x3c16…3c49 at0012 = ╱45╱E╱ // 0x3c28 @0x12
0x3c16…3c49 at0013 = ╱54╱T╱ // 0x3c29 @0x13
0x3c16…3c49 at0014 = ╱59╱Y╱ // 0x3c2a @0x14
0x3c16…3c49 at0015 = ╱50╱P╱ // 0x3c2b @0x15
0x3c16…3c49 at0016 = ╱45╱E╱ // 0x3c2c @0x16
0x3c16…3c49 at0017 = ╱ef╱$╱ // 0x3c2d @0x17
0x3c16…3c49 at0018 = ╱ec╱,╱ // 0x3c2e @0x18
0x3c16…3c49 at0019 = ╱4c╱L╱ // 0x3c2f @0x19
0x3c16…3c49 at001a = ╱49╱I╱ // 0x3c30 @0x1a
0x3c16…3c49 at001b = ╱4e╱N╱ // 0x3c31 @0x1b
0x3c16…3c49 at001c = ╱45╱E╱ // 0x3c32 @0x1c
0x3c16…3c49 at001d = ╱ee╱)╱ // 0x3c33 @0x1d
0x3c16…3c49 at001e = ╱89╱ // ╱ // 0x3c34 @0x1e
0x3c16…3c49 at001f = ╱50╱P╱ // 0x3c35 @0x1f
0x3c16…3c49 at0020 = ╱52╱R╱ // 0x3c36 @0x20
0x3c16…3c49 at0021 = ╱49╱I╱ // 0x3c37 @0x21
0x3c16…3c49 at0022 = ╱4e╱N╱ // 0x3c38 @0x22
0x3c16…3c49 at0023 = ╱54╱T╱ // 0x3c39 @0x23
0x3c16…3c49 at0024 = ╱45╱E╱ // 0x3c3a @0x24
0x3c16…3c49 at0025 = ╱52╱R╱ // 0x3c3b @0x25
0x3c16…3c49 at0026 = ╱20╱…╱ // 0x3c3c @0x26
0x3c16…3c49 at0027 = ╱52╱R╱ // 0x3c3d @0x27
0x3c16…3c49 at0028 = ╱45╱E╱ // 0x3c3e @0x28
0x3c16…3c49 at0029 = ╱53╱S╱ // 0x3c3f @0x29
0x3c16…3c49 at002a = ╱45╱E╱ // 0x3c40 @0x2a
0x3c16…3c49 at002b = ╱52╱R╱ // 0x3c41 @0x2b
0x3c16…3c49 at002c = ╱56╱V╱ // 0x3c42 @0x2c
0x3c16…3c49 at002d = ╱41╱A╱ // 0x3c43 @0x2d
0x3c16…3c49 at002e = ╱54╱T╱ // 0x3c44 @0x2e
0x3c16…3c49 at002f = ╱49╱I╱ // 0x3c45 @0x2f
0x3c16…3c49 at0030 = ╱4f╱O╱ // 0x3c46 @0x30
0x3c16…3c49 at0031 = ╱4e╱N╱ // 0x3c47 @0x31
0x3c16…3c49 at0032 = EOL // 0x3c48 @0x32
0x3c16…3c49 }
0x3c49…3c61 d24f 6080 LET PRTNR$ := "1" ; OK := TRUE
0x3c49…3c61 LineComal80 {
0x3c49…3c61 ptr = 0xd24f // 0x3c49 @0x0
0x3c49…3c61 lno = 0x17c0 // 0x3c4b @0x2
0x3c49…3c61 at0004 = ╱86╱ LET ╱ // 0x3c4d @0x4
0x3c49…3c61 at0005 = ╱50╱P╱ // 0x3c4e @0x5
0x3c49…3c61 at0006 = ╱52╱R╱ // 0x3c4f @0x6
0x3c49…3c61 at0007 = ╱54╱T╱ // 0x3c50 @0x7
0x3c49…3c61 at0008 = ╱4e╱N╱ // 0x3c51 @0x8
0x3c49…3c61 at0009 = ╱52╱R╱ // 0x3c52 @0x9
0x3c49…3c61 at000a = ╱ef╱$╱ // 0x3c53 @0xa
0x3c49…3c61 at000b = ╱f0╱ := ╱ // 0x3c54 @0xb
0x3c49…3c61 at000c = ╱22╱"╱ // 0x3c55 @0xc
0x3c49…3c61 at000d = ╱31╱1╱ // 0x3c56 @0xd
0x3c49…3c61 at000e = ╱22╱"╱ // 0x3c57 @0xe
0x3c49…3c61 at000f = ╱ea╱ ; ╱ // 0x3c58 @0xf
0x3c49…3c61 at0010 = ╱4f╱O╱ // 0x3c59 @0x10
0x3c49…3c61 at0011 = ╱4b╱K╱ // 0x3c5a @0x11
0x3c49…3c61 at0012 = ╱f0╱ := ╱ // 0x3c5b @0x12
0x3c49…3c61 at0013 = ╱54╱T╱ // 0x3c5c @0x13
0x3c49…3c61 at0014 = ╱52╱R╱ // 0x3c5d @0x14
0x3c49…3c61 at0015 = ╱55╱U╱ // 0x3c5e @0x15
0x3c49…3c61 at0016 = ╱45╱E╱ // 0x3c5f @0x16
0x3c49…3c61 at0017 = EOL // 0x3c60 @0x17
0x3c49…3c61 }
0x3c61…3c68 d256 6090 REPEAT
0x3c61…3c68 LineComal80 {
0x3c61…3c68 ptr = 0xd256 // 0x3c61 @0x0
0x3c61…3c68 lno = 0x17ca // 0x3c63 @0x2
0x3c61…3c68 at0004 = ╱976d╱ REPEAT ╱ // 0x3c65 @0x4
0x3c61…3c68 at0006 = EOL // 0x3c67 @0x6
0x3c61…3c68 }
0x3c68…3c78 d266 6100 CURSOR 15,LINE
0x3c68…3c78 LineComal80 {
0x3c68…3c78 ptr = 0xd266 // 0x3c68 @0x0
0x3c68…3c78 lno = 0x17d4 // 0x3c6a @0x2
0x3c68…3c78 at0004 = ╱a1╱ CURSOR ╱ // 0x3c6c @0x4
0x3c68…3c78 at0005 = ╱31╱1╱ // 0x3c6d @0x5
0x3c68…3c78 at0006 = ╱35╱5╱ // 0x3c6e @0x6
0x3c68…3c78 at0007 = ╱f20f00╱ // 0x3c6f @0x7
0x3c68…3c78 at000a = ╱ec╱,╱ // 0x3c72 @0xa
0x3c68…3c78 at000b = ╱4c╱L╱ // 0x3c73 @0xb
0x3c68…3c78 at000c = ╱49╱I╱ // 0x3c74 @0xc
0x3c68…3c78 at000d = ╱4e╱N╱ // 0x3c75 @0xd
0x3c68…3c78 at000e = ╱45╱E╱ // 0x3c76 @0xe
0x3c68…3c78 at000f = EOL // 0x3c77 @0xf
0x3c68…3c78 }
0x3c78…3cb1 d29f 6110 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
0x3c78…3cb1 LineComal80 {
0x3c78…3cb1 ptr = 0xd29f // 0x3c78 @0x0
0x3c78…3cb1 lno = 0x17de // 0x3c7a @0x2
0x3c78…3cb1 at0004 = ╱b1╱ EDIT ╱ // 0x3c7c @0x4
0x3c78…3cb1 at0005 = ╱22╱"╱ // 0x3c7d @0x5
0x3c78…3cb1 at0006 = ╱3c╱<╱ // 0x3c7e @0x6
0x3c78…3cb1 at0007 = ╱5a╱Z╱ // 0x3c7f @0x7
0x3c78…3cb1 at0008 = ╱3e╱>╱ // 0x3c80 @0x8
0x3c78…3cb1 at0009 = ╱55╱U╱ // 0x3c81 @0x9
0x3c78…3cb1 at000a = ╱64╱d╱ // 0x3c82 @0xa
0x3c78…3cb1 at000b = ╱73╱s╱ // 0x3c83 @0xb
0x3c78…3cb1 at000c = ╱6b╱k╱ // 0x3c84 @0xc
0x3c78…3cb1 at000d = ╱72╱r╱ // 0x3c85 @0xd
0x3c78…3cb1 at000e = ╱69╱i╱ // 0x3c86 @0xe
0x3c78…3cb1 at000f = ╱76╱v╱ // 0x3c87 @0xf
0x3c78…3cb1 at0010 = ╱6e╱n╱ // 0x3c88 @0x10
0x3c78…3cb1 at0011 = ╱69╱i╱ // 0x3c89 @0x11
0x3c78…3cb1 at0012 = ╱6e╱n╱ // 0x3c8a @0x12
0x3c78…3cb1 at0013 = ╱67╱g╱ // 0x3c8b @0x13
0x3c78…3cb1 at0014 = ╱20╱…╱ // 0x3c8c @0x14
0x3c78…3cb1 at0015 = ╱70╱p╱ // 0x3c8d @0x15
0x3c78…3cb1 at0016 = ╱7d╱å╱ // 0x3c8e @0x16
0x3c78…3cb1 at0017 = ╱20╱…╱ // 0x3c8f @0x17
0x3c78…3cb1 at0018 = ╱70╱p╱ // 0x3c90 @0x18
0x3c78…3cb1 at0019 = ╱72╱r╱ // 0x3c91 @0x19
0x3c78…3cb1 at001a = ╱69╱i╱ // 0x3c92 @0x1a
0x3c78…3cb1 at001b = ╱6e╱n╱ // 0x3c93 @0x1b
0x3c78…3cb1 at001c = ╱74╱t╱ // 0x3c94 @0x1c
0x3c78…3cb1 at001d = ╱65╱e╱ // 0x3c95 @0x1d
0x3c78…3cb1 at001e = ╱72╱r╱ // 0x3c96 @0x1e
0x3c78…3cb1 at001f = ╱20╱…╱ // 0x3c97 @0x1f
0x3c78…3cb1 at0020 = ╱6e╱n╱ // 0x3c98 @0x20
0x3c78…3cb1 at0021 = ╱72╱r╱ // 0x3c99 @0x21
0x3c78…3cb1 at0022 = ╱2e╱.╱ // 0x3c9a @0x22
0x3c78…3cb1 at0023 = ╱20╱…╱ // 0x3c9b @0x23
0x3c78…3cb1 at0024 = ╱3f╱?╱ // 0x3c9c @0x24
0x3c78…3cb1 at0025 = ╱20╱…╱ // 0x3c9d @0x25
0x3c78…3cb1 at0026 = ╱28╱(╱ // 0x3c9e @0x26
0x3c78…3cb1 at0027 = ╱31╱1╱ // 0x3c9f @0x27
0x3c78…3cb1 at0028 = ╱2f╱/╱ // 0x3ca0 @0x28
0x3c78…3cb1 at0029 = ╱32╱2╱ // 0x3ca1 @0x29
0x3c78…3cb1 at002a = ╱2f╱/╱ // 0x3ca2 @0x2a
0x3c78…3cb1 at002b = ╱33╱3╱ // 0x3ca3 @0x2b
0x3c78…3cb1 at002c = ╱2f╱/╱ // 0x3ca4 @0x2c
0x3c78…3cb1 at002d = ╱34╱4╱ // 0x3ca5 @0x2d
0x3c78…3cb1 at002e = ╱29╱)╱ // 0x3ca6 @0x2e
0x3c78…3cb1 at002f = ╱20╱…╱ // 0x3ca7 @0x2f
0x3c78…3cb1 at0030 = ╱22╱"╱ // 0x3ca8 @0x30
0x3c78…3cb1 at0031 = ╱f1╱ : ╱ // 0x3ca9 @0x31
0x3c78…3cb1 at0032 = ╱50╱P╱ // 0x3caa @0x32
0x3c78…3cb1 at0033 = ╱52╱R╱ // 0x3cab @0x33
0x3c78…3cb1 at0034 = ╱54╱T╱ // 0x3cac @0x34
0x3c78…3cb1 at0035 = ╱4e╱N╱ // 0x3cad @0x35
0x3c78…3cb1 at0036 = ╱52╱R╱ // 0x3cae @0x36
0x3c78…3cb1 at0037 = ╱ef╱$╱ // 0x3caf @0x37
0x3c78…3cb1 at0038 = EOL // 0x3cb0 @0x38
0x3c78…3cb1 }
0x3cb1…3cd1 d2bf 6120 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
0x3cb1…3cd1 LineComal80 {
0x3cb1…3cd1 ptr = 0xd2bf // 0x3cb1 @0x0
0x3cb1…3cd1 lno = 0x17e8 // 0x3cb3 @0x2
0x3cb1…3cd1 at0004 = ╱98╱ UNTIL ╱ // 0x3cb5 @0x4
0x3cb1…3cd1 at0005 = ╱22╱"╱ // 0x3cb6 @0x5
0x3cb1…3cd1 at0006 = ╱2f╱/╱ // 0x3cb7 @0x6
0x3cb1…3cd1 at0007 = ╱22╱"╱ // 0x3cb8 @0x7
0x3cb1…3cd1 at0008 = ╱eb╱ + ╱ // 0x3cb9 @0x8
0x3cb1…3cd1 at0009 = ╱50╱P╱ // 0x3cba @0x9
0x3cb1…3cd1 at000a = ╱52╱R╱ // 0x3cbb @0xa
0x3cb1…3cd1 at000b = ╱54╱T╱ // 0x3cbc @0xb
0x3cb1…3cd1 at000c = ╱4e╱N╱ // 0x3cbd @0xc
0x3cb1…3cd1 at000d = ╱52╱R╱ // 0x3cbe @0xd
0x3cb1…3cd1 at000e = ╱ef╱$╱ // 0x3cbf @0xe
0x3cb1…3cd1 at000f = ╱eb╱ + ╱ // 0x3cc0 @0xf
0x3cb1…3cd1 at0010 = ╱22╱"╱ // 0x3cc1 @0x10
0x3cb1…3cd1 at0011 = ╱2f╱/╱ // 0x3cc2 @0x11
0x3cb1…3cd1 at0012 = ╱22╱"╱ // 0x3cc3 @0x12
0x3cb1…3cd1 at0013 = ╱dc╱ IN ╱ // 0x3cc4 @0x13
0x3cb1…3cd1 at0014 = ╱22╱"╱ // 0x3cc5 @0x14
0x3cb1…3cd1 at0015 = ╱2f╱/╱ // 0x3cc6 @0x15
0x3cb1…3cd1 at0016 = ╱31╱1╱ // 0x3cc7 @0x16
0x3cb1…3cd1 at0017 = ╱2f╱/╱ // 0x3cc8 @0x17
0x3cb1…3cd1 at0018 = ╱32╱2╱ // 0x3cc9 @0x18
0x3cb1…3cd1 at0019 = ╱2f╱/╱ // 0x3cca @0x19
0x3cb1…3cd1 at001a = ╱33╱3╱ // 0x3ccb @0x1a
0x3cb1…3cd1 at001b = ╱2f╱/╱ // 0x3ccc @0x1b
0x3cb1…3cd1 at001c = ╱34╱4╱ // 0x3ccd @0x1c
0x3cb1…3cd1 at001d = ╱2f╱/╱ // 0x3cce @0x1d
0x3cb1…3cd1 at001e = ╱22╱"╱ // 0x3ccf @0x1e
0x3cb1…3cd1 at001f = EOL // 0x3cd0 @0x1f
0x3cb1…3cd1 }
0x3cd1…3cf5 d2e3 6130 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
0x3cd1…3cf5 LineComal80 {
0x3cd1…3cf5 ptr = 0xd2e3 // 0x3cd1 @0x0
0x3cd1…3cf5 lno = 0x17f2 // 0x3cd3 @0x2
0x3cd1…3cf5 at0004 = ╱a1╱ CURSOR ╱ // 0x3cd5 @0x4
0x3cd1…3cf5 at0005 = ╱ed╱(╱ // 0x3cd6 @0x5
0x3cd1…3cf5 at0006 = ╱33╱3╱ // 0x3cd7 @0x6
0x3cd1…3cf5 at0007 = ╱39╱9╱ // 0x3cd8 @0x7
0x3cd1…3cf5 at0008 = ╱f22700╱ // 0x3cd9 @0x8
0x3cd1…3cf5 at000b = ╱e6╱ - ╱ // 0x3cdc @0xb
0x3cd1…3cf5 at000c = ╱cb╱ // 0x3cdd @0xc
0x3cd1…3cf5 at000d = ╱ed╱(╱ // 0x3cde @0xd
0x3cd1…3cf5 at000e = ╱50╱P╱ // 0x3cdf @0xe
0x3cd1…3cf5 at000f = ╱41╱A╱ // 0x3ce0 @0xf
0x3cd1…3cf5 at0010 = ╱47╱G╱ // 0x3ce1 @0x10
0x3cd1…3cf5 at0011 = ╱45╱E╱ // 0x3ce2 @0x11
0x3cd1…3cf5 at0012 = ╱54╱T╱ // 0x3ce3 @0x12
0x3cd1…3cf5 at0013 = ╱59╱Y╱ // 0x3ce4 @0x13
0x3cd1…3cf5 at0014 = ╱50╱P╱ // 0x3ce5 @0x14
0x3cd1…3cf5 at0015 = ╱45╱E╱ // 0x3ce6 @0x15
0x3cd1…3cf5 at0016 = ╱ef╱$╱ // 0x3ce7 @0x16
0x3cd1…3cf5 at0017 = ╱ee╱)╱ // 0x3ce8 @0x17
0x3cd1…3cf5 at0018 = ╱ee╱)╱ // 0x3ce9 @0x18
0x3cd1…3cf5 at0019 = ╱da╱ DIV ╱ // 0x3cea @0x19
0x3cd1…3cf5 at001a = ╱32╱2╱ // 0x3ceb @0x1a
0x3cd1…3cf5 at001b = ╱f20200╱ // 0x3cec @0x1b
0x3cd1…3cf5 at001e = ╱ec╱,╱ // 0x3cef @0x1e
0x3cd1…3cf5 at001f = ╱4c╱L╱ // 0x3cf0 @0x1f
0x3cd1…3cf5 at0020 = ╱49╱I╱ // 0x3cf1 @0x20
0x3cd1…3cf5 at0021 = ╱4e╱N╱ // 0x3cf2 @0x21
0x3cd1…3cf5 at0022 = ╱45╱E╱ // 0x3cf3 @0x22
0x3cd1…3cf5 at0023 = EOL // 0x3cf4 @0x23
0x3cd1…3cf5 }
0x3cf5…3d35 d323 6140 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
0x3cf5…3d35 LineComal80 {
0x3cf5…3d35 ptr = 0xd323 // 0x3cf5 @0x0
0x3cf5…3d35 lno = 0x17fc // 0x3cf7 @0x2
0x3cf5…3d35 at0004 = ╱92╱ PRINT ╱ // 0x3cf9 @0x4
0x3cf5…3d35 at0005 = ╱22╱"╱ // 0x3cfa @0x5
0x3cf5…3d35 at0006 = ╱3c╱<╱ // 0x3cfb @0x6
0x3cf5…3d35 at0007 = ╱53╱S╱ // 0x3cfc @0x7
0x3cf5…3d35 at0008 = ╱5a╱Z╱ // 0x3cfd @0x8
0x3cf5…3d35 at0009 = ╱3e╱>╱ // 0x3cfe @0x9
0x3cf5…3d35 at000a = ╱20╱…╱ // 0x3cff @0xa
0x3cf5…3d35 at000b = ╱20╱…╱ // 0x3d00 @0xb
0x3cf5…3d35 at000c = ╱20╱…╱ // 0x3d01 @0xc
0x3cf5…3d35 at000d = ╱20╱…╱ // 0x3d02 @0xd
0x3cf5…3d35 at000e = ╱20╱…╱ // 0x3d03 @0xe
0x3cf5…3d35 at000f = ╱4d╱M╱ // 0x3d04 @0xf
0x3cf5…3d35 at0010 = ╱6f╱o╱ // 0x3d05 @0x10
0x3cf5…3d35 at0011 = ╱6e╱n╱ // 0x3d06 @0x11
0x3cf5…3d35 at0012 = ╱74╱t╱ // 0x3d07 @0x12
0x3cf5…3d35 at0013 = ╱65╱e╱ // 0x3d08 @0x13
0x3cf5…3d35 at0014 = ╱72╱r╱ // 0x3d09 @0x14
0x3cf5…3d35 at0015 = ╱20╱…╱ // 0x3d0a @0x15
0x3cf5…3d35 at0016 = ╱22╱"╱ // 0x3d0b @0x16
0x3cf5…3d35 at0017 = ╱ea╱ ; ╱ // 0x3d0c @0x17
0x3cf5…3d35 at0018 = ╱50╱P╱ // 0x3d0d @0x18
0x3cf5…3d35 at0019 = ╱41╱A╱ // 0x3d0e @0x19
0x3cf5…3d35 at001a = ╱47╱G╱ // 0x3d0f @0x1a
0x3cf5…3d35 at001b = ╱45╱E╱ // 0x3d10 @0x1b
0x3cf5…3d35 at001c = ╱54╱T╱ // 0x3d11 @0x1c
0x3cf5…3d35 at001d = ╱59╱Y╱ // 0x3d12 @0x1d
0x3cf5…3d35 at001e = ╱50╱P╱ // 0x3d13 @0x1e
0x3cf5…3d35 at001f = ╱45╱E╱ // 0x3d14 @0x1f
0x3cf5…3d35 at0020 = ╱ef╱$╱ // 0x3d15 @0x20
0x3cf5…3d35 at0021 = ╱ea╱ ; ╱ // 0x3d16 @0x21
0x3cf5…3d35 at0022 = ╱22╱"╱ // 0x3d17 @0x22
0x3cf5…3d35 at0023 = ╱20╱…╱ // 0x3d18 @0x23
0x3cf5…3d35 at0024 = ╱69╱i╱ // 0x3d19 @0x24
0x3cf5…3d35 at0025 = ╱20╱…╱ // 0x3d1a @0x25
0x3cf5…3d35 at0026 = ╱70╱p╱ // 0x3d1b @0x26
0x3cf5…3d35 at0027 = ╱72╱r╱ // 0x3d1c @0x27
0x3cf5…3d35 at0028 = ╱69╱i╱ // 0x3d1d @0x28
0x3cf5…3d35 at0029 = ╱6e╱n╱ // 0x3d1e @0x29
0x3cf5…3d35 at002a = ╱74╱t╱ // 0x3d1f @0x2a
0x3cf5…3d35 at002b = ╱65╱e╱ // 0x3d20 @0x2b
0x3cf5…3d35 at002c = ╱72╱r╱ // 0x3d21 @0x2c
0x3cf5…3d35 at002d = ╱65╱e╱ // 0x3d22 @0x2d
0x3cf5…3d35 at002e = ╱6e╱n╱ // 0x3d23 @0x2e
0x3cf5…3d35 at002f = ╱20╱…╱ // 0x3d24 @0x2f
0x3cf5…3d35 at0030 = ╱2d╱-╱ // 0x3d25 @0x30
0x3cf5…3d35 at0031 = ╱20╱…╱ // 0x3d26 @0x31
0x3cf5…3d35 at0032 = ╱74╱t╱ // 0x3d27 @0x32
0x3cf5…3d35 at0033 = ╱72╱r╱ // 0x3d28 @0x33
0x3cf5…3d35 at0034 = ╱79╱y╱ // 0x3d29 @0x34
0x3cf5…3d35 at0035 = ╱6b╱k╱ // 0x3d2a @0x35
0x3cf5…3d35 at0036 = ╱20╱…╱ // 0x3d2b @0x36
0x3cf5…3d35 at0037 = ╱52╱R╱ // 0x3d2c @0x37
0x3cf5…3d35 at0038 = ╱45╱E╱ // 0x3d2d @0x38
0x3cf5…3d35 at0039 = ╱54╱T╱ // 0x3d2e @0x39
0x3cf5…3d35 at003a = ╱55╱U╱ // 0x3d2f @0x3a
0x3cf5…3d35 at003b = ╱52╱R╱ // 0x3d30 @0x3b
0x3cf5…3d35 at003c = ╱4e╱N╱ // 0x3d31 @0x3c
0x3cf5…3d35 at003d = ╱20╱…╱ // 0x3d32 @0x3d
0x3cf5…3d35 at003e = ╱22╱"╱ // 0x3d33 @0x3e
0x3cf5…3d35 at003f = EOL // 0x3d34 @0x3f
0x3cf5…3d35 }
0x3d35…3d43 d331 6150 INPUT "" : SVAR$
0x3d35…3d43 LineComal80 {
0x3d35…3d43 ptr = 0xd331 // 0x3d35 @0x0
0x3d35…3d43 lno = 0x1806 // 0x3d37 @0x2
0x3d35…3d43 at0004 = ╱91╱ INPUT ╱ // 0x3d39 @0x4
0x3d35…3d43 at0005 = ╱22╱"╱ // 0x3d3a @0x5
0x3d35…3d43 at0006 = ╱22╱"╱ // 0x3d3b @0x6
0x3d35…3d43 at0007 = ╱f1╱ : ╱ // 0x3d3c @0x7
0x3d35…3d43 at0008 = ╱53╱S╱ // 0x3d3d @0x8
0x3d35…3d43 at0009 = ╱56╱V╱ // 0x3d3e @0x9
0x3d35…3d43 at000a = ╱41╱A╱ // 0x3d3f @0xa
0x3d35…3d43 at000b = ╱52╱R╱ // 0x3d40 @0xb
0x3d35…3d43 at000c = ╱ef╱$╱ // 0x3d41 @0xc
0x3d35…3d43 at000d = EOL // 0x3d42 @0xd
0x3d35…3d43 }
0x3d43…3d53 d341 6160 SELECT OUTPUT "P" + PRTNR$
0x3d43…3d53 LineComal80 {
0x3d43…3d53 ptr = 0xd341 // 0x3d43 @0x0
0x3d43…3d53 lno = 0x1810 // 0x3d45 @0x2
0x3d43…3d53 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x3d47 @0x4
0x3d43…3d53 at0005 = ╱22╱"╱ // 0x3d48 @0x5
0x3d43…3d53 at0006 = ╱50╱P╱ // 0x3d49 @0x6
0x3d43…3d53 at0007 = ╱22╱"╱ // 0x3d4a @0x7
0x3d43…3d53 at0008 = ╱eb╱ + ╱ // 0x3d4b @0x8
0x3d43…3d53 at0009 = ╱50╱P╱ // 0x3d4c @0x9
0x3d43…3d53 at000a = ╱52╱R╱ // 0x3d4d @0xa
0x3d43…3d53 at000b = ╱54╱T╱ // 0x3d4e @0xb
0x3d43…3d53 at000c = ╱4e╱N╱ // 0x3d4f @0xc
0x3d43…3d53 at000d = ╱52╱R╱ // 0x3d50 @0xd
0x3d43…3d53 at000e = ╱ef╱$╱ // 0x3d51 @0xe
0x3d43…3d53 at000f = EOL // 0x3d52 @0xf
0x3d43…3d53 }
0x3d53…3d61 d34f 6170 IF ("P") THEN
0x3d53…3d61 LineComal80 {
0x3d53…3d61 ptr = 0xd34f // 0x3d53 @0x0
0x3d53…3d61 lno = 0x181a // 0x3d55 @0x2
0x3d53…3d61 at0004 = ╱9b6ecd╱ IF ╱ // 0x3d57 @0x4
0x3d53…3d61 at0007 = ╱ed╱(╱ // 0x3d5a @0x7
0x3d53…3d61 at0008 = ╱22╱"╱ // 0x3d5b @0x8
0x3d53…3d61 at0009 = ╱50╱P╱ // 0x3d5c @0x9
0x3d53…3d61 at000a = ╱22╱"╱ // 0x3d5d @0xa
0x3d53…3d61 at000b = ╱ee╱)╱ // 0x3d5e @0xb
0x3d53…3d61 at000c = ╱b5╱ THEN ╱ // 0x3d5f @0xc
0x3d53…3d61 at000d = EOL // 0x3d60 @0xd
0x3d53…3d61 }
0x3d61…3d71 d35f 6180 CURSOR 12,LINE
0x3d61…3d71 LineComal80 {
0x3d61…3d71 ptr = 0xd35f // 0x3d61 @0x0
0x3d61…3d71 lno = 0x1824 // 0x3d63 @0x2
0x3d61…3d71 at0004 = ╱a1╱ CURSOR ╱ // 0x3d65 @0x4
0x3d61…3d71 at0005 = ╱31╱1╱ // 0x3d66 @0x5
0x3d61…3d71 at0006 = ╱32╱2╱ // 0x3d67 @0x6
0x3d61…3d71 at0007 = ╱f20c00╱ // 0x3d68 @0x7
0x3d61…3d71 at000a = ╱ec╱,╱ // 0x3d6b @0xa
0x3d61…3d71 at000b = ╱4c╱L╱ // 0x3d6c @0xb
0x3d61…3d71 at000c = ╱49╱I╱ // 0x3d6d @0xc
0x3d61…3d71 at000d = ╱4e╱N╱ // 0x3d6e @0xd
0x3d61…3d71 at000e = ╱45╱E╱ // 0x3d6f @0xe
0x3d61…3d71 at000f = EOL // 0x3d70 @0xf
0x3d61…3d71 }
0x3d71…3da8 d396 6190 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
0x3d71…3da8 LineComal80 {
0x3d71…3da8 ptr = 0xd396 // 0x3d71 @0x0
0x3d71…3da8 lno = 0x182e // 0x3d73 @0x2
0x3d71…3da8 at0004 = ╱92╱ PRINT ╱ // 0x3d75 @0x4
0x3d71…3da8 at0005 = ╱22╱"╱ // 0x3d76 @0x5
0x3d71…3da8 at0006 = ╱3c╱<╱ // 0x3d77 @0x6
0x3d71…3da8 at0007 = ╱53╱S╱ // 0x3d78 @0x7
0x3d71…3da8 at0008 = ╱5a╱Z╱ // 0x3d79 @0x8
0x3d71…3da8 at0009 = ╱3e╱>╱ // 0x3d7a @0x9
0x3d71…3da8 at000a = ╱50╱P╱ // 0x3d7b @0xa
0x3d71…3da8 at000b = ╱72╱r╱ // 0x3d7c @0xb
0x3d71…3da8 at000c = ╱69╱i╱ // 0x3d7d @0xc
0x3d71…3da8 at000d = ╱6e╱n╱ // 0x3d7e @0xd
0x3d71…3da8 at000e = ╱74╱t╱ // 0x3d7f @0xe
0x3d71…3da8 at000f = ╱65╱e╱ // 0x3d80 @0xf
0x3d71…3da8 at0010 = ╱72╱r╱ // 0x3d81 @0x10
0x3d71…3da8 at0011 = ╱65╱e╱ // 0x3d82 @0x11
0x3d71…3da8 at0012 = ╱6e╱n╱ // 0x3d83 @0x12
0x3d71…3da8 at0013 = ╱20╱…╱ // 0x3d84 @0x13
0x3d71…3da8 at0014 = ╱65╱e╱ // 0x3d85 @0x14
0x3d71…3da8 at0015 = ╱72╱r╱ // 0x3d86 @0x15
0x3d71…3da8 at0016 = ╱20╱…╱ // 0x3d87 @0x16
0x3d71…3da8 at0017 = ╱72╱r╱ // 0x3d88 @0x17
0x3d71…3da8 at0018 = ╱65╱e╱ // 0x3d89 @0x18
0x3d71…3da8 at0019 = ╱73╱s╱ // 0x3d8a @0x19
0x3d71…3da8 at001a = ╱65╱e╱ // 0x3d8b @0x1a
0x3d71…3da8 at001b = ╱72╱r╱ // 0x3d8c @0x1b
0x3d71…3da8 at001c = ╱76╱v╱ // 0x3d8d @0x1c
0x3d71…3da8 at001d = ╱65╱e╱ // 0x3d8e @0x1d
0x3d71…3da8 at001e = ╱72╱r╱ // 0x3d8f @0x1e
0x3d71…3da8 at001f = ╱65╱e╱ // 0x3d90 @0x1f
0x3d71…3da8 at0020 = ╱74╱t╱ // 0x3d91 @0x20
0x3d71…3da8 at0021 = ╱20╱…╱ // 0x3d92 @0x21
0x3d71…3da8 at0022 = ╱61╱a╱ // 0x3d93 @0x22
0x3d71…3da8 at0023 = ╱66╱f╱ // 0x3d94 @0x23
0x3d71…3da8 at0024 = ╱20╱…╱ // 0x3d95 @0x24
0x3d71…3da8 at0025 = ╱65╱e╱ // 0x3d96 @0x25
0x3d71…3da8 at0026 = ╱6e╱n╱ // 0x3d97 @0x26
0x3d71…3da8 at0027 = ╱20╱…╱ // 0x3d98 @0x27
0x3d71…3da8 at0028 = ╱61╱a╱ // 0x3d99 @0x28
0x3d71…3da8 at0029 = ╱6e╱n╱ // 0x3d9a @0x29
0x3d71…3da8 at002a = ╱64╱d╱ // 0x3d9b @0x2a
0x3d71…3da8 at002b = ╱65╱e╱ // 0x3d9c @0x2b
0x3d71…3da8 at002c = ╱6e╱n╱ // 0x3d9d @0x2c
0x3d71…3da8 at002d = ╱20╱…╱ // 0x3d9e @0x2d
0x3d71…3da8 at002e = ╱62╱b╱ // 0x3d9f @0x2e
0x3d71…3da8 at002f = ╱72╱r╱ // 0x3da0 @0x2f
0x3d71…3da8 at0030 = ╱75╱u╱ // 0x3da1 @0x30
0x3d71…3da8 at0031 = ╱67╱g╱ // 0x3da2 @0x31
0x3d71…3da8 at0032 = ╱65╱e╱ // 0x3da3 @0x32
0x3d71…3da8 at0033 = ╱72╱r╱ // 0x3da4 @0x33
0x3d71…3da8 at0034 = ╱2c╱,╱ // 0x3da5 @0x34
0x3d71…3da8 at0035 = ╱22╱"╱ // 0x3da6 @0x35
0x3d71…3da8 at0036 = EOL // 0x3da7 @0x36
0x3d71…3da8 }
0x3da8…3dbd d3ab 6200 CURSOR 12,LINE + 1
0x3da8…3dbd LineComal80 {
0x3da8…3dbd ptr = 0xd3ab // 0x3da8 @0x0
0x3da8…3dbd lno = 0x1838 // 0x3daa @0x2
0x3da8…3dbd at0004 = ╱a1╱ CURSOR ╱ // 0x3dac @0x4
0x3da8…3dbd at0005 = ╱31╱1╱ // 0x3dad @0x5
0x3da8…3dbd at0006 = ╱32╱2╱ // 0x3dae @0x6
0x3da8…3dbd at0007 = ╱f20c00╱ // 0x3daf @0x7
0x3da8…3dbd at000a = ╱ec╱,╱ // 0x3db2 @0xa
0x3da8…3dbd at000b = ╱4c╱L╱ // 0x3db3 @0xb
0x3da8…3dbd at000c = ╱49╱I╱ // 0x3db4 @0xc
0x3da8…3dbd at000d = ╱4e╱N╱ // 0x3db5 @0xd
0x3da8…3dbd at000e = ╱45╱E╱ // 0x3db6 @0xe
0x3da8…3dbd at000f = ╱e5╱ + ╱ // 0x3db7 @0xf
0x3da8…3dbd at0010 = ╱31╱1╱ // 0x3db8 @0x10
0x3da8…3dbd at0011 = ╱f20100╱ // 0x3db9 @0x11
0x3da8…3dbd at0014 = EOL // 0x3dbc @0x14
0x3da8…3dbd }
0x3dbd…3dfe d3ec 6210 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
0x3dbd…3dfe LineComal80 {
0x3dbd…3dfe ptr = 0xd3ec // 0x3dbd @0x0
0x3dbd…3dfe lno = 0x1842 // 0x3dbf @0x2
0x3dbd…3dfe at0004 = ╱91╱ INPUT ╱ // 0x3dc1 @0x4
0x3dbd…3dfe at0005 = ╱22╱"╱ // 0x3dc2 @0x5
0x3dbd…3dfe at0006 = ╱3c╱<╱ // 0x3dc3 @0x6
0x3dbd…3dfe at0007 = ╱53╱S╱ // 0x3dc4 @0x7
0x3dbd…3dfe at0008 = ╱5a╱Z╱ // 0x3dc5 @0x8
0x3dbd…3dfe at0009 = ╱3e╱>╱ // 0x3dc6 @0x9
0x3dbd…3dfe at000a = ╱53╱S╱ // 0x3dc7 @0xa
0x3dbd…3dfe at000b = ╱6b╱k╱ // 0x3dc8 @0xb
0x3dbd…3dfe at000c = ╱61╱a╱ // 0x3dc9 @0xc
0x3dbd…3dfe at000d = ╱6c╱l╱ // 0x3dca @0xd
0x3dbd…3dfe at000e = ╱20╱…╱ // 0x3dcb @0xe
0x3dbd…3dfe at000f = ╱64╱d╱ // 0x3dcc @0xf
0x3dbd…3dfe at0010 = ╱65╱e╱ // 0x3dcd @0x10
0x3dbd…3dfe at0011 = ╱72╱r╱ // 0x3dce @0x11
0x3dbd…3dfe at0012 = ╱20╱…╱ // 0x3dcf @0x12
0x3dbd…3dfe at0013 = ╱76╱v╱ // 0x3dd0 @0x13
0x3dbd…3dfe at0014 = ╱65╱e╱ // 0x3dd1 @0x14
0x3dbd…3dfe at0015 = ╱6e╱n╱ // 0x3dd2 @0x15
0x3dbd…3dfe at0016 = ╱74╱t╱ // 0x3dd3 @0x16
0x3dbd…3dfe at0017 = ╱65╱e╱ // 0x3dd4 @0x17
0x3dbd…3dfe at0018 = ╱73╱s╱ // 0x3dd5 @0x18
0x3dbd…3dfe at0019 = ╱20╱…╱ // 0x3dd6 @0x19
0x3dbd…3dfe at001a = ╱70╱p╱ // 0x3dd7 @0x1a
0x3dbd…3dfe at001b = ╱7d╱å╱ // 0x3dd8 @0x1b
0x3dbd…3dfe at001c = ╱20╱…╱ // 0x3dd9 @0x1c
0x3dbd…3dfe at001d = ╱61╱a╱ // 0x3dda @0x1d
0x3dbd…3dfe at001e = ╱74╱t╱ // 0x3ddb @0x1e
0x3dbd…3dfe at001f = ╱20╱…╱ // 0x3ddc @0x1f
0x3dbd…3dfe at0020 = ╱64╱d╱ // 0x3ddd @0x20
0x3dbd…3dfe at0021 = ╱65╱e╱ // 0x3dde @0x21
0x3dbd…3dfe at0022 = ╱6e╱n╱ // 0x3ddf @0x22
0x3dbd…3dfe at0023 = ╱20╱…╱ // 0x3de0 @0x23
0x3dbd…3dfe at0024 = ╱62╱b╱ // 0x3de1 @0x24
0x3dbd…3dfe at0025 = ╱6c╱l╱ // 0x3de2 @0x25
0x3dbd…3dfe at0026 = ╱69╱i╱ // 0x3de3 @0x26
0x3dbd…3dfe at0027 = ╱76╱v╱ // 0x3de4 @0x27
0x3dbd…3dfe at0028 = ╱65╱e╱ // 0x3de5 @0x28
0x3dbd…3dfe at0029 = ╱72╱r╱ // 0x3de6 @0x29
0x3dbd…3dfe at002a = ╱20╱…╱ // 0x3de7 @0x2a
0x3dbd…3dfe at002b = ╱6c╱l╱ // 0x3de8 @0x2b
0x3dbd…3dfe at002c = ╱65╱e╱ // 0x3de9 @0x2c
0x3dbd…3dfe at002d = ╱64╱d╱ // 0x3dea @0x2d
0x3dbd…3dfe at002e = ╱69╱i╱ // 0x3deb @0x2e
0x3dbd…3dfe at002f = ╱67╱g╱ // 0x3dec @0x2f
0x3dbd…3dfe at0030 = ╱20╱…╱ // 0x3ded @0x30
0x3dbd…3dfe at0031 = ╱3f╱?╱ // 0x3dee @0x31
0x3dbd…3dfe at0032 = ╱20╱…╱ // 0x3def @0x32
0x3dbd…3dfe at0033 = ╱28╱(╱ // 0x3df0 @0x33
0x3dbd…3dfe at0034 = ╱6a╱j╱ // 0x3df1 @0x34
0x3dbd…3dfe at0035 = ╱2f╱/╱ // 0x3df2 @0x35
0x3dbd…3dfe at0036 = ╱6e╱n╱ // 0x3df3 @0x36
0x3dbd…3dfe at0037 = ╱29╱)╱ // 0x3df4 @0x37
0x3dbd…3dfe at0038 = ╱20╱…╱ // 0x3df5 @0x38
0x3dbd…3dfe at0039 = ╱22╱"╱ // 0x3df6 @0x39
0x3dbd…3dfe at003a = ╱f1╱ : ╱ // 0x3df7 @0x3a
0x3dbd…3dfe at003b = ╱53╱S╱ // 0x3df8 @0x3b
0x3dbd…3dfe at003c = ╱56╱V╱ // 0x3df9 @0x3c
0x3dbd…3dfe at003d = ╱41╱A╱ // 0x3dfa @0x3d
0x3dbd…3dfe at003e = ╱52╱R╱ // 0x3dfb @0x3e
0x3dbd…3dfe at003f = ╱ef╱$╱ // 0x3dfc @0x3f
0x3dbd…3dfe at0040 = EOL // 0x3dfd @0x40
0x3dbd…3dfe }
0x3dfe…3e19 d407 6220 IF VAR$ = "J" OR SVAR$ = "j" THEN
0x3dfe…3e19 LineComal80 {
0x3dfe…3e19 ptr = 0xd407 // 0x3dfe @0x0
0x3dfe…3e19 lno = 0x184c // 0x3e00 @0x2
0x3dfe…3e19 at0004 = ╱9b6f53╱ IF ╱ // 0x3e02 @0x4
0x3dfe…3e19 at0007 = ╱56╱V╱ // 0x3e05 @0x7
0x3dfe…3e19 at0008 = ╱41╱A╱ // 0x3e06 @0x8
0x3dfe…3e19 at0009 = ╱52╱R╱ // 0x3e07 @0x9
0x3dfe…3e19 at000a = ╱ef╱$╱ // 0x3e08 @0xa
0x3dfe…3e19 at000b = ╱df╱ = ╱ // 0x3e09 @0xb
0x3dfe…3e19 at000c = ╱22╱"╱ // 0x3e0a @0xc
0x3dfe…3e19 at000d = ╱4a╱J╱ // 0x3e0b @0xd
0x3dfe…3e19 at000e = ╱22╱"╱ // 0x3e0c @0xe
0x3dfe…3e19 at000f = ╱d8╱ OR ╱ // 0x3e0d @0xf
0x3dfe…3e19 at0010 = ╱53╱S╱ // 0x3e0e @0x10
0x3dfe…3e19 at0011 = ╱56╱V╱ // 0x3e0f @0x11
0x3dfe…3e19 at0012 = ╱41╱A╱ // 0x3e10 @0x12
0x3dfe…3e19 at0013 = ╱52╱R╱ // 0x3e11 @0x13
0x3dfe…3e19 at0014 = ╱ef╱$╱ // 0x3e12 @0x14
0x3dfe…3e19 at0015 = ╱df╱ = ╱ // 0x3e13 @0x15
0x3dfe…3e19 at0016 = ╱22╱"╱ // 0x3e14 @0x16
0x3dfe…3e19 at0017 = ╱6a╱j╱ // 0x3e15 @0x17
0x3dfe…3e19 at0018 = ╱22╱"╱ // 0x3e16 @0x18
0x3dfe…3e19 at0019 = ╱b5╱ THEN ╱ // 0x3e17 @0x19
0x3dfe…3e19 at001a = EOL // 0x3e18 @0x1a
0x3dfe…3e19 }
0x3e19…3e29 d417 6230 CURSOR 12,LINE
0x3e19…3e29 LineComal80 {
0x3e19…3e29 ptr = 0xd417 // 0x3e19 @0x0
0x3e19…3e29 lno = 0x1856 // 0x3e1b @0x2
0x3e19…3e29 at0004 = ╱a1╱ CURSOR ╱ // 0x3e1d @0x4
0x3e19…3e29 at0005 = ╱31╱1╱ // 0x3e1e @0x5
0x3e19…3e29 at0006 = ╱32╱2╱ // 0x3e1f @0x6
0x3e19…3e29 at0007 = ╱f20c00╱ // 0x3e20 @0x7
0x3e19…3e29 at000a = ╱ec╱,╱ // 0x3e23 @0xa
0x3e19…3e29 at000b = ╱4c╱L╱ // 0x3e24 @0xb
0x3e19…3e29 at000c = ╱49╱I╱ // 0x3e25 @0xc
0x3e19…3e29 at000d = ╱4e╱N╱ // 0x3e26 @0xd
0x3e19…3e29 at000e = ╱45╱E╱ // 0x3e27 @0xe
0x3e19…3e29 at000f = EOL // 0x3e28 @0xf
0x3e19…3e29 }
0x3e29…3e64 d452 6240 PRINT "<Z> Der ventes på at printeren bliver ledig...."
0x3e29…3e64 LineComal80 {
0x3e29…3e64 ptr = 0xd452 // 0x3e29 @0x0
0x3e29…3e64 lno = 0x1860 // 0x3e2b @0x2
0x3e29…3e64 at0004 = ╱92╱ PRINT ╱ // 0x3e2d @0x4
0x3e29…3e64 at0005 = ╱22╱"╱ // 0x3e2e @0x5
0x3e29…3e64 at0006 = ╱3c╱<╱ // 0x3e2f @0x6
0x3e29…3e64 at0007 = ╱5a╱Z╱ // 0x3e30 @0x7
0x3e29…3e64 at0008 = ╱3e╱>╱ // 0x3e31 @0x8
0x3e29…3e64 at0009 = ╱20╱…╱ // 0x3e32 @0x9
0x3e29…3e64 at000a = ╱20╱…╱ // 0x3e33 @0xa
0x3e29…3e64 at000b = ╱20╱…╱ // 0x3e34 @0xb
0x3e29…3e64 at000c = ╱20╱…╱ // 0x3e35 @0xc
0x3e29…3e64 at000d = ╱20╱…╱ // 0x3e36 @0xd
0x3e29…3e64 at000e = ╱44╱D╱ // 0x3e37 @0xe
0x3e29…3e64 at000f = ╱65╱e╱ // 0x3e38 @0xf
0x3e29…3e64 at0010 = ╱72╱r╱ // 0x3e39 @0x10
0x3e29…3e64 at0011 = ╱20╱…╱ // 0x3e3a @0x11
0x3e29…3e64 at0012 = ╱76╱v╱ // 0x3e3b @0x12
0x3e29…3e64 at0013 = ╱65╱e╱ // 0x3e3c @0x13
0x3e29…3e64 at0014 = ╱6e╱n╱ // 0x3e3d @0x14
0x3e29…3e64 at0015 = ╱74╱t╱ // 0x3e3e @0x15
0x3e29…3e64 at0016 = ╱65╱e╱ // 0x3e3f @0x16
0x3e29…3e64 at0017 = ╱73╱s╱ // 0x3e40 @0x17
0x3e29…3e64 at0018 = ╱20╱…╱ // 0x3e41 @0x18
0x3e29…3e64 at0019 = ╱70╱p╱ // 0x3e42 @0x19
0x3e29…3e64 at001a = ╱7d╱å╱ // 0x3e43 @0x1a
0x3e29…3e64 at001b = ╱20╱…╱ // 0x3e44 @0x1b
0x3e29…3e64 at001c = ╱61╱a╱ // 0x3e45 @0x1c
0x3e29…3e64 at001d = ╱74╱t╱ // 0x3e46 @0x1d
0x3e29…3e64 at001e = ╱20╱…╱ // 0x3e47 @0x1e
0x3e29…3e64 at001f = ╱70╱p╱ // 0x3e48 @0x1f
0x3e29…3e64 at0020 = ╱72╱r╱ // 0x3e49 @0x20
0x3e29…3e64 at0021 = ╱69╱i╱ // 0x3e4a @0x21
0x3e29…3e64 at0022 = ╱6e╱n╱ // 0x3e4b @0x22
0x3e29…3e64 at0023 = ╱74╱t╱ // 0x3e4c @0x23
0x3e29…3e64 at0024 = ╱65╱e╱ // 0x3e4d @0x24
0x3e29…3e64 at0025 = ╱72╱r╱ // 0x3e4e @0x25
0x3e29…3e64 at0026 = ╱65╱e╱ // 0x3e4f @0x26
0x3e29…3e64 at0027 = ╱6e╱n╱ // 0x3e50 @0x27
0x3e29…3e64 at0028 = ╱20╱…╱ // 0x3e51 @0x28
0x3e29…3e64 at0029 = ╱62╱b╱ // 0x3e52 @0x29
0x3e29…3e64 at002a = ╱6c╱l╱ // 0x3e53 @0x2a
0x3e29…3e64 at002b = ╱69╱i╱ // 0x3e54 @0x2b
0x3e29…3e64 at002c = ╱76╱v╱ // 0x3e55 @0x2c
0x3e29…3e64 at002d = ╱65╱e╱ // 0x3e56 @0x2d
0x3e29…3e64 at002e = ╱72╱r╱ // 0x3e57 @0x2e
0x3e29…3e64 at002f = ╱20╱…╱ // 0x3e58 @0x2f
0x3e29…3e64 at0030 = ╱6c╱l╱ // 0x3e59 @0x30
0x3e29…3e64 at0031 = ╱65╱e╱ // 0x3e5a @0x31
0x3e29…3e64 at0032 = ╱64╱d╱ // 0x3e5b @0x32
0x3e29…3e64 at0033 = ╱69╱i╱ // 0x3e5c @0x33
0x3e29…3e64 at0034 = ╱67╱g╱ // 0x3e5d @0x34
0x3e29…3e64 at0035 = ╱2e╱.╱ // 0x3e5e @0x35
0x3e29…3e64 at0036 = ╱2e╱.╱ // 0x3e5f @0x36
0x3e29…3e64 at0037 = ╱2e╱.╱ // 0x3e60 @0x37
0x3e29…3e64 at0038 = ╱2e╱.╱ // 0x3e61 @0x38
0x3e29…3e64 at0039 = ╱22╱"╱ // 0x3e62 @0x39
0x3e29…3e64 at003a = EOL // 0x3e63 @0x3a
0x3e29…3e64 }
0x3e64…3e70 d45e 6250 PRINT "<SZ>"
0x3e64…3e70 LineComal80 {
0x3e64…3e70 ptr = 0xd45e // 0x3e64 @0x0
0x3e64…3e70 lno = 0x186a // 0x3e66 @0x2
0x3e64…3e70 at0004 = ╱92╱ PRINT ╱ // 0x3e68 @0x4
0x3e64…3e70 at0005 = ╱22╱"╱ // 0x3e69 @0x5
0x3e64…3e70 at0006 = ╱3c╱<╱ // 0x3e6a @0x6
0x3e64…3e70 at0007 = ╱53╱S╱ // 0x3e6b @0x7
0x3e64…3e70 at0008 = ╱5a╱Z╱ // 0x3e6c @0x8
0x3e64…3e70 at0009 = ╱3e╱>╱ // 0x3e6d @0x9
0x3e64…3e70 at000a = ╱22╱"╱ // 0x3e6e @0xa
0x3e64…3e70 at000b = EOL // 0x3e6f @0xb
0x3e64…3e70 }
0x3e70…3e7e d46c 6260 WHILE ╱cd╱ ("P") DO
0x3e70…3e7e LineComal80 {
0x3e70…3e7e ptr = 0xd46c // 0x3e70 @0x0
0x3e70…3e7e lno = 0x1874 // 0x3e72 @0x2
0x3e70…3e7e at0004 = ╱9370╱ WHILE ╱ // 0x3e74 @0x4
0x3e70…3e7e at0006 = ╱cd╱ // 0x3e76 @0x6
0x3e70…3e7e at0007 = ╱ed╱(╱ // 0x3e77 @0x7
0x3e70…3e7e at0008 = ╱22╱"╱ // 0x3e78 @0x8
0x3e70…3e7e at0009 = ╱50╱P╱ // 0x3e79 @0x9
0x3e70…3e7e at000a = ╱22╱"╱ // 0x3e7a @0xa
0x3e70…3e7e at000b = ╱ee╱)╱ // 0x3e7b @0xb
0x3e70…3e7e at000c = ╱bb╱ DO ╱ // 0x3e7c @0xc
0x3e70…3e7e at000d = EOL // 0x3e7d @0xd
0x3e70…3e7e }
0x3e7e…3e8f d47d 6270 LET SEK := ╱ca╱ (5)
0x3e7e…3e8f LineComal80 {
0x3e7e…3e8f ptr = 0xd47d // 0x3e7e @0x0
0x3e7e…3e8f lno = 0x187e // 0x3e80 @0x2
0x3e7e…3e8f at0004 = ╱86╱ LET ╱ // 0x3e82 @0x4
0x3e7e…3e8f at0005 = ╱53╱S╱ // 0x3e83 @0x5
0x3e7e…3e8f at0006 = ╱45╱E╱ // 0x3e84 @0x6
0x3e7e…3e8f at0007 = ╱4b╱K╱ // 0x3e85 @0x7
0x3e7e…3e8f at0008 = ╱f0╱ := ╱ // 0x3e86 @0x8
0x3e7e…3e8f at0009 = ╱ca╱ // 0x3e87 @0x9
0x3e7e…3e8f at000a = ╱ed╱(╱ // 0x3e88 @0xa
0x3e7e…3e8f at000b = ╱35╱5╱ // 0x3e89 @0xb
0x3e7e…3e8f at000c = ╱f20500╱ // 0x3e8a @0xc
0x3e7e…3e8f at000f = ╱ee╱)╱ // 0x3e8d @0xf
0x3e7e…3e8f at0010 = EOL // 0x3e8e @0x10
0x3e7e…3e8f }
0x3e8f…3e9f d48d 6280 SELECT OUTPUT "P" + PRTNR$
0x3e8f…3e9f LineComal80 {
0x3e8f…3e9f ptr = 0xd48d // 0x3e8f @0x0
0x3e8f…3e9f lno = 0x1888 // 0x3e91 @0x2
0x3e8f…3e9f at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x3e93 @0x4
0x3e8f…3e9f at0005 = ╱22╱"╱ // 0x3e94 @0x5
0x3e8f…3e9f at0006 = ╱50╱P╱ // 0x3e95 @0x6
0x3e8f…3e9f at0007 = ╱22╱"╱ // 0x3e96 @0x7
0x3e8f…3e9f at0008 = ╱eb╱ + ╱ // 0x3e97 @0x8
0x3e8f…3e9f at0009 = ╱50╱P╱ // 0x3e98 @0x9
0x3e8f…3e9f at000a = ╱52╱R╱ // 0x3e99 @0xa
0x3e8f…3e9f at000b = ╱54╱T╱ // 0x3e9a @0xb
0x3e8f…3e9f at000c = ╱4e╱N╱ // 0x3e9b @0xc
0x3e8f…3e9f at000d = ╱52╱R╱ // 0x3e9c @0xd
0x3e8f…3e9f at000e = ╱ef╱$╱ // 0x3e9d @0xe
0x3e8f…3e9f at000f = EOL // 0x3e9e @0xf
0x3e8f…3e9f }
0x3e9f…3ea5 d493 6290 ENDWHILE
0x3e9f…3ea5 LineComal80 {
0x3e9f…3ea5 ptr = 0xd493 // 0x3e9f @0x0
0x3e9f…3ea5 lno = 0x1892 // 0x3ea1 @0x2
0x3e9f…3ea5 at0004 = ╱94╱ ENDWHILE ╱ // 0x3ea3 @0x4
0x3e9f…3ea5 at0005 = EOL // 0x3ea4 @0x5
0x3e9f…3ea5 }
0x3ea5…3eac d49a 6300 ELSE
0x3ea5…3eac LineComal80 {
0x3ea5…3eac ptr = 0xd49a // 0x3ea5 @0x0
0x3ea5…3eac lno = 0x189c // 0x3ea7 @0x2
0x3ea5…3eac at0004 = ╱9a71╱ ELSE ╱ // 0x3ea9 @0x4
0x3ea5…3eac at0006 = EOL // 0x3eab @0x6
0x3ea5…3eac }
0x3eac…3eba d4a8 6310 LET OK := FALSE
0x3eac…3eba LineComal80 {
0x3eac…3eba ptr = 0xd4a8 // 0x3eac @0x0
0x3eac…3eba lno = 0x18a6 // 0x3eae @0x2
0x3eac…3eba at0004 = ╱86╱ LET ╱ // 0x3eb0 @0x4
0x3eac…3eba at0005 = ╱4f╱O╱ // 0x3eb1 @0x5
0x3eac…3eba at0006 = ╱4b╱K╱ // 0x3eb2 @0x6
0x3eac…3eba at0007 = ╱f0╱ := ╱ // 0x3eb3 @0x7
0x3eac…3eba at0008 = ╱46╱F╱ // 0x3eb4 @0x8
0x3eac…3eba at0009 = ╱41╱A╱ // 0x3eb5 @0x9
0x3eac…3eba at000a = ╱4c╱L╱ // 0x3eb6 @0xa
0x3eac…3eba at000b = ╱53╱S╱ // 0x3eb7 @0xb
0x3eac…3eba at000c = ╱45╱E╱ // 0x3eb8 @0xc
0x3eac…3eba at000d = EOL // 0x3eb9 @0xd
0x3eac…3eba }
0x3eba…3ec0 d4ae 6320 ENDIF
0x3eba…3ec0 LineComal80 {
0x3eba…3ec0 ptr = 0xd4ae // 0x3eba @0x0
0x3eba…3ec0 lno = 0x18b0 // 0x3ebc @0x2
0x3eba…3ec0 at0004 = ╱9c╱ ENDIF ╱ // 0x3ebe @0x4
0x3eba…3ec0 at0005 = EOL // 0x3ebf @0x5
0x3eba…3ec0 }
0x3ec0…3ec6 d4b4 6330 ENDIF
0x3ec0…3ec6 LineComal80 {
0x3ec0…3ec6 ptr = 0xd4b4 // 0x3ec0 @0x0
0x3ec0…3ec6 lno = 0x18ba // 0x3ec2 @0x2
0x3ec0…3ec6 at0004 = ╱9c╱ ENDIF ╱ // 0x3ec4 @0x4
0x3ec0…3ec6 at0005 = EOL // 0x3ec5 @0x5
0x3ec0…3ec6 }
0x3ec6…3ed5 d4c3 6340 CURSOR 1,LINE
0x3ec6…3ed5 LineComal80 {
0x3ec6…3ed5 ptr = 0xd4c3 // 0x3ec6 @0x0
0x3ec6…3ed5 lno = 0x18c4 // 0x3ec8 @0x2
0x3ec6…3ed5 at0004 = ╱a1╱ CURSOR ╱ // 0x3eca @0x4
0x3ec6…3ed5 at0005 = ╱31╱1╱ // 0x3ecb @0x5
0x3ec6…3ed5 at0006 = ╱f20100╱ // 0x3ecc @0x6
0x3ec6…3ed5 at0009 = ╱ec╱,╱ // 0x3ecf @0x9
0x3ec6…3ed5 at000a = ╱4c╱L╱ // 0x3ed0 @0xa
0x3ec6…3ed5 at000b = ╱49╱I╱ // 0x3ed1 @0xb
0x3ec6…3ed5 at000c = ╱4e╱N╱ // 0x3ed2 @0xc
0x3ec6…3ed5 at000d = ╱45╱E╱ // 0x3ed3 @0xd
0x3ec6…3ed5 at000e = EOL // 0x3ed4 @0xe
0x3ec6…3ed5 }
0x3ed5…3ee0 d4ce 6350 PRINT "<Z>"
0x3ed5…3ee0 LineComal80 {
0x3ed5…3ee0 ptr = 0xd4ce // 0x3ed5 @0x0
0x3ed5…3ee0 lno = 0x18ce // 0x3ed7 @0x2
0x3ed5…3ee0 at0004 = ╱92╱ PRINT ╱ // 0x3ed9 @0x4
0x3ed5…3ee0 at0005 = ╱22╱"╱ // 0x3eda @0x5
0x3ed5…3ee0 at0006 = ╱3c╱<╱ // 0x3edb @0x6
0x3ed5…3ee0 at0007 = ╱5a╱Z╱ // 0x3edc @0x7
0x3ed5…3ee0 at0008 = ╱3e╱>╱ // 0x3edd @0x8
0x3ed5…3ee0 at0009 = ╱22╱"╱ // 0x3ede @0x9
0x3ed5…3ee0 at000a = EOL // 0x3edf @0xa
0x3ed5…3ee0 }
0x3ee0…3eec d4da 6360 PRINT "<SZ>"
0x3ee0…3eec LineComal80 {
0x3ee0…3eec ptr = 0xd4da // 0x3ee0 @0x0
0x3ee0…3eec lno = 0x18d8 // 0x3ee2 @0x2
0x3ee0…3eec at0004 = ╱92╱ PRINT ╱ // 0x3ee4 @0x4
0x3ee0…3eec at0005 = ╱22╱"╱ // 0x3ee5 @0x5
0x3ee0…3eec at0006 = ╱3c╱<╱ // 0x3ee6 @0x6
0x3ee0…3eec at0007 = ╱53╱S╱ // 0x3ee7 @0x7
0x3ee0…3eec at0008 = ╱5a╱Z╱ // 0x3ee8 @0x8
0x3ee0…3eec at0009 = ╱3e╱>╱ // 0x3ee9 @0x9
0x3ee0…3eec at000a = ╱22╱"╱ // 0x3eea @0xa
0x3ee0…3eec at000b = EOL // 0x3eeb @0xb
0x3ee0…3eec }
0x3eec…3efa d4e8 6370 ENDPROC PRINTRES
0x3eec…3efa LineComal80 {
0x3eec…3efa ptr = 0xd4e8 // 0x3eec @0x0
0x3eec…3efa lno = 0x18e2 // 0x3eee @0x2
0x3eec…3efa at0004 = ╱9f╱ ENDPROC ╱ // 0x3ef0 @0x4
0x3eec…3efa at0005 = ╱50╱P╱ // 0x3ef1 @0x5
0x3eec…3efa at0006 = ╱52╱R╱ // 0x3ef2 @0x6
0x3eec…3efa at0007 = ╱49╱I╱ // 0x3ef3 @0x7
0x3eec…3efa at0008 = ╱4e╱N╱ // 0x3ef4 @0x8
0x3eec…3efa at0009 = ╱54╱T╱ // 0x3ef5 @0x9
0x3eec…3efa at000a = ╱52╱R╱ // 0x3ef6 @0xa
0x3eec…3efa at000b = ╱45╱E╱ // 0x3ef7 @0xb
0x3eec…3efa at000c = ╱53╱S╱ // 0x3ef8 @0xc
0x3eec…3efa at000d = EOL // 0x3ef9 @0xd
0x3eec…3efa }
0x3efa…3f00 d4ee 6020 //
0x3efa…3f00 LineComal80 {
0x3efa…3f00 ptr = 0xd4ee // 0x3efa @0x0
0x3efa…3f00 lno = 0x1784 // 0x3efc @0x2
0x3efa…3f00 at0004 = ╱89╱ // ╱ // 0x3efe @0x4
0x3efa…3f00 at0005 = EOL // 0x3eff @0x5
0x3efa…3f00 }
0x3f00…3f1f d50d 6030 PROC PRINTREL // RELEASE PRINTER
0x3f00…3f1f LineComal80 {
0x3f00…3f1f ptr = 0xd50d // 0x3f00 @0x0
0x3f00…3f1f lno = 0x178e // 0x3f02 @0x2
0x3f00…3f1f at0004 = ╱9e6c╱ PROC ╱ // 0x3f04 @0x4
0x3f00…3f1f at0006 = ╱50╱P╱ // 0x3f06 @0x6
0x3f00…3f1f at0007 = ╱52╱R╱ // 0x3f07 @0x7
0x3f00…3f1f at0008 = ╱49╱I╱ // 0x3f08 @0x8
0x3f00…3f1f at0009 = ╱4e╱N╱ // 0x3f09 @0x9
0x3f00…3f1f at000a = ╱54╱T╱ // 0x3f0a @0xa
0x3f00…3f1f at000b = ╱52╱R╱ // 0x3f0b @0xb
0x3f00…3f1f at000c = ╱45╱E╱ // 0x3f0c @0xc
0x3f00…3f1f at000d = ╱4c╱L╱ // 0x3f0d @0xd
0x3f00…3f1f at000e = ╱89╱ // ╱ // 0x3f0e @0xe
0x3f00…3f1f at000f = ╱52╱R╱ // 0x3f0f @0xf
0x3f00…3f1f at0010 = ╱45╱E╱ // 0x3f10 @0x10
0x3f00…3f1f at0011 = ╱4c╱L╱ // 0x3f11 @0x11
0x3f00…3f1f at0012 = ╱45╱E╱ // 0x3f12 @0x12
0x3f00…3f1f at0013 = ╱41╱A╱ // 0x3f13 @0x13
0x3f00…3f1f at0014 = ╱53╱S╱ // 0x3f14 @0x14
0x3f00…3f1f at0015 = ╱45╱E╱ // 0x3f15 @0x15
0x3f00…3f1f at0016 = ╱20╱…╱ // 0x3f16 @0x16
0x3f00…3f1f at0017 = ╱50╱P╱ // 0x3f17 @0x17
0x3f00…3f1f at0018 = ╱52╱R╱ // 0x3f18 @0x18
0x3f00…3f1f at0019 = ╱49╱I╱ // 0x3f19 @0x19
0x3f00…3f1f at001a = ╱4e╱N╱ // 0x3f1a @0x1a
0x3f00…3f1f at001b = ╱54╱T╱ // 0x3f1b @0x1b
0x3f00…3f1f at001c = ╱45╱E╱ // 0x3f1c @0x1c
0x3f00…3f1f at001d = ╱52╱R╱ // 0x3f1d @0x1d
0x3f00…3f1f at001e = EOL // 0x3f1e @0x1e
0x3f00…3f1f }
0x3f1f…3f28 d516 6040 SELECT OUTPUT "T"
0x3f1f…3f28 LineComal80 {
0x3f1f…3f28 ptr = 0xd516 // 0x3f1f @0x0
0x3f1f…3f28 lno = 0x1798 // 0x3f21 @0x2
0x3f1f…3f28 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x3f23 @0x4
0x3f1f…3f28 at0005 = ╱22╱"╱ // 0x3f24 @0x5
0x3f1f…3f28 at0006 = ╱54╱T╱ // 0x3f25 @0x6
0x3f1f…3f28 at0007 = ╱22╱"╱ // 0x3f26 @0x7
0x3f1f…3f28 at0008 = EOL // 0x3f27 @0x8
0x3f1f…3f28 }
0x3f28…3f36 d841 6050 ENDPROC PRINTREL
0x3f28…3f36 LineComal80 {
0x3f28…3f36 ptr = 0xd841 // 0x3f28 @0x0
0x3f28…3f36 lno = 0x17a2 // 0x3f2a @0x2
0x3f28…3f36 at0004 = ╱9f╱ ENDPROC ╱ // 0x3f2c @0x4
0x3f28…3f36 at0005 = ╱50╱P╱ // 0x3f2d @0x5
0x3f28…3f36 at0006 = ╱52╱R╱ // 0x3f2e @0x6
0x3f28…3f36 at0007 = ╱49╱I╱ // 0x3f2f @0x7
0x3f28…3f36 at0008 = ╱4e╱N╱ // 0x3f30 @0x8
0x3f28…3f36 at0009 = ╱54╱T╱ // 0x3f31 @0x9
0x3f28…3f36 at000a = ╱52╱R╱ // 0x3f32 @0xa
0x3f28…3f36 at000b = ╱45╱E╱ // 0x3f33 @0xb
0x3f28…3f36 at000c = ╱4c╱L╱ // 0x3f34 @0xc
0x3f28…3f36 at000d = EOL // 0x3f35 @0xd
0x3f28…3f36 }
0x3f36…3f41 bf99 4370 PRINT "<K>"
0x3f36…3f41 LineComal80 {
0x3f36…3f41 ptr = 0xbf99 // 0x3f36 @0x0
0x3f36…3f41 lno = 0x1112 // 0x3f38 @0x2
0x3f36…3f41 at0004 = ╱92╱ PRINT ╱ // 0x3f3a @0x4
0x3f36…3f41 at0005 = ╱22╱"╱ // 0x3f3b @0x5
0x3f36…3f41 at0006 = ╱3c╱<╱ // 0x3f3c @0x6
0x3f36…3f41 at0007 = ╱4b╱K╱ // 0x3f3d @0x7
0x3f36…3f41 at0008 = ╱3e╱>╱ // 0x3f3e @0x8
0x3f36…3f41 at0009 = ╱22╱"╱ // 0x3f3f @0x9
0x3f36…3f41 at000a = EOL // 0x3f40 @0xa
0x3f36…3f41 }
0x3f41…3f4e cff4 5750 PRINT "<LIN>"
0x3f41…3f4e LineComal80 {
0x3f41…3f4e ptr = 0xcff4 // 0x3f41 @0x0
0x3f41…3f4e lno = 0x1676 // 0x3f43 @0x2
0x3f41…3f4e at0004 = ╱92╱ PRINT ╱ // 0x3f45 @0x4
0x3f41…3f4e at0005 = ╱22╱"╱ // 0x3f46 @0x5
0x3f41…3f4e at0006 = ╱3c╱<╱ // 0x3f47 @0x6
0x3f41…3f4e at0007 = ╱4c╱L╱ // 0x3f48 @0x7
0x3f41…3f4e at0008 = ╱49╱I╱ // 0x3f49 @0x8
0x3f41…3f4e at0009 = ╱4e╱N╱ // 0x3f4a @0x9
0x3f41…3f4e at000a = ╱3e╱>╱ // 0x3f4b @0xa
0x3f41…3f4e at000b = ╱22╱"╱ // 0x3f4c @0xb
0x3f41…3f4e at000c = EOL // 0x3f4d @0xc
0x3f41…3f4e }
0x3f4e…3faf ca89 5410 LET TOT(1),TOT(2),TOT(3),TOT(4),TOT(5),TOT(6) := 0 ; LIN_T := 100 ; MAX_LIN := 51
0x3f4e…3faf LineComal80 {
0x3f4e…3faf ptr = 0xca89 // 0x3f4e @0x0
0x3f4e…3faf lno = 0x1522 // 0x3f50 @0x2
0x3f4e…3faf at0004 = ╱86╱ LET ╱ // 0x3f52 @0x4
0x3f4e…3faf at0005 = ╱54╱T╱ // 0x3f53 @0x5
0x3f4e…3faf at0006 = ╱4f╱O╱ // 0x3f54 @0x6
0x3f4e…3faf at0007 = ╱54╱T╱ // 0x3f55 @0x7
0x3f4e…3faf at0008 = ╱ed╱(╱ // 0x3f56 @0x8
0x3f4e…3faf at0009 = ╱31╱1╱ // 0x3f57 @0x9
0x3f4e…3faf at000a = ╱f20100╱ // 0x3f58 @0xa
0x3f4e…3faf at000d = ╱ee╱)╱ // 0x3f5b @0xd
0x3f4e…3faf at000e = ╱ec╱,╱ // 0x3f5c @0xe
0x3f4e…3faf at000f = ╱54╱T╱ // 0x3f5d @0xf
0x3f4e…3faf at0010 = ╱4f╱O╱ // 0x3f5e @0x10
0x3f4e…3faf at0011 = ╱54╱T╱ // 0x3f5f @0x11
0x3f4e…3faf at0012 = ╱ed╱(╱ // 0x3f60 @0x12
0x3f4e…3faf at0013 = ╱32╱2╱ // 0x3f61 @0x13
0x3f4e…3faf at0014 = ╱f20200╱ // 0x3f62 @0x14
0x3f4e…3faf at0017 = ╱ee╱)╱ // 0x3f65 @0x17
0x3f4e…3faf at0018 = ╱ec╱,╱ // 0x3f66 @0x18
0x3f4e…3faf at0019 = ╱54╱T╱ // 0x3f67 @0x19
0x3f4e…3faf at001a = ╱4f╱O╱ // 0x3f68 @0x1a
0x3f4e…3faf at001b = ╱54╱T╱ // 0x3f69 @0x1b
0x3f4e…3faf at001c = ╱ed╱(╱ // 0x3f6a @0x1c
0x3f4e…3faf at001d = ╱33╱3╱ // 0x3f6b @0x1d
0x3f4e…3faf at001e = ╱f20300╱ // 0x3f6c @0x1e
0x3f4e…3faf at0021 = ╱ee╱)╱ // 0x3f6f @0x21
0x3f4e…3faf at0022 = ╱ec╱,╱ // 0x3f70 @0x22
0x3f4e…3faf at0023 = ╱54╱T╱ // 0x3f71 @0x23
0x3f4e…3faf at0024 = ╱4f╱O╱ // 0x3f72 @0x24
0x3f4e…3faf at0025 = ╱54╱T╱ // 0x3f73 @0x25
0x3f4e…3faf at0026 = ╱ed╱(╱ // 0x3f74 @0x26
0x3f4e…3faf at0027 = ╱34╱4╱ // 0x3f75 @0x27
0x3f4e…3faf at0028 = ╱f20400╱ // 0x3f76 @0x28
0x3f4e…3faf at002b = ╱ee╱)╱ // 0x3f79 @0x2b
0x3f4e…3faf at002c = ╱ec╱,╱ // 0x3f7a @0x2c
0x3f4e…3faf at002d = ╱54╱T╱ // 0x3f7b @0x2d
0x3f4e…3faf at002e = ╱4f╱O╱ // 0x3f7c @0x2e
0x3f4e…3faf at002f = ╱54╱T╱ // 0x3f7d @0x2f
0x3f4e…3faf at0030 = ╱ed╱(╱ // 0x3f7e @0x30
0x3f4e…3faf at0031 = ╱35╱5╱ // 0x3f7f @0x31
0x3f4e…3faf at0032 = ╱f20500╱ // 0x3f80 @0x32
0x3f4e…3faf at0035 = ╱ee╱)╱ // 0x3f83 @0x35
0x3f4e…3faf at0036 = ╱ec╱,╱ // 0x3f84 @0x36
0x3f4e…3faf at0037 = ╱54╱T╱ // 0x3f85 @0x37
0x3f4e…3faf at0038 = ╱4f╱O╱ // 0x3f86 @0x38
0x3f4e…3faf at0039 = ╱54╱T╱ // 0x3f87 @0x39
0x3f4e…3faf at003a = ╱ed╱(╱ // 0x3f88 @0x3a
0x3f4e…3faf at003b = ╱36╱6╱ // 0x3f89 @0x3b
0x3f4e…3faf at003c = ╱f20600╱ // 0x3f8a @0x3c
0x3f4e…3faf at003f = ╱ee╱)╱ // 0x3f8d @0x3f
0x3f4e…3faf at0040 = ╱f0╱ := ╱ // 0x3f8e @0x40
0x3f4e…3faf at0041 = ╱30╱0╱ // 0x3f8f @0x41
0x3f4e…3faf at0042 = ╱f20000╱ // 0x3f90 @0x42
0x3f4e…3faf at0045 = ╱ea╱ ; ╱ // 0x3f93 @0x45
0x3f4e…3faf at0046 = ╱4c╱L╱ // 0x3f94 @0x46
0x3f4e…3faf at0047 = ╱49╱I╱ // 0x3f95 @0x47
0x3f4e…3faf at0048 = ╱4e╱N╱ // 0x3f96 @0x48
0x3f4e…3faf at0049 = ╱5f╱_╱ // 0x3f97 @0x49
0x3f4e…3faf at004a = ╱54╱T╱ // 0x3f98 @0x4a
0x3f4e…3faf at004b = ╱f0╱ := ╱ // 0x3f99 @0x4b
0x3f4e…3faf at004c = ╱31╱1╱ // 0x3f9a @0x4c
0x3f4e…3faf at004d = ╱30╱0╱ // 0x3f9b @0x4d
0x3f4e…3faf at004e = ╱30╱0╱ // 0x3f9c @0x4e
0x3f4e…3faf at004f = ╱f26400╱ // 0x3f9d @0x4f
0x3f4e…3faf at0052 = ╱ea╱ ; ╱ // 0x3fa0 @0x52
0x3f4e…3faf at0053 = ╱4d╱M╱ // 0x3fa1 @0x53
0x3f4e…3faf at0054 = ╱41╱A╱ // 0x3fa2 @0x54
0x3f4e…3faf at0055 = ╱58╱X╱ // 0x3fa3 @0x55
0x3f4e…3faf at0056 = ╱5f╱_╱ // 0x3fa4 @0x56
0x3f4e…3faf at0057 = ╱4c╱L╱ // 0x3fa5 @0x57
0x3f4e…3faf at0058 = ╱49╱I╱ // 0x3fa6 @0x58
0x3f4e…3faf at0059 = ╱4e╱N╱ // 0x3fa7 @0x59
0x3f4e…3faf at005a = ╱f0╱ := ╱ // 0x3fa8 @0x5a
0x3f4e…3faf at005b = ╱35╱5╱ // 0x3fa9 @0x5b
0x3f4e…3faf at005c = ╱31╱1╱ // 0x3faa @0x5c
0x3f4e…3faf at005d = ╱f23300╱ // 0x3fab @0x5d
0x3f4e…3faf at0060 = EOL // 0x3fae @0x60
0x3f4e…3faf }
0x3faf…4010 ca89 5410 LET TOT(1),TOT(2),TOT(3),TOT(4),TOT(5),TOT(6) := 0 ; LIN_T := 100 ; MAX_LIN := 72
0x3faf…4010 LineComal80 {
0x3faf…4010 ptr = 0xca89 // 0x3faf @0x0
0x3faf…4010 lno = 0x1522 // 0x3fb1 @0x2
0x3faf…4010 at0004 = ╱86╱ LET ╱ // 0x3fb3 @0x4
0x3faf…4010 at0005 = ╱54╱T╱ // 0x3fb4 @0x5
0x3faf…4010 at0006 = ╱4f╱O╱ // 0x3fb5 @0x6
0x3faf…4010 at0007 = ╱54╱T╱ // 0x3fb6 @0x7
0x3faf…4010 at0008 = ╱ed╱(╱ // 0x3fb7 @0x8
0x3faf…4010 at0009 = ╱31╱1╱ // 0x3fb8 @0x9
0x3faf…4010 at000a = ╱f20100╱ // 0x3fb9 @0xa
0x3faf…4010 at000d = ╱ee╱)╱ // 0x3fbc @0xd
0x3faf…4010 at000e = ╱ec╱,╱ // 0x3fbd @0xe
0x3faf…4010 at000f = ╱54╱T╱ // 0x3fbe @0xf
0x3faf…4010 at0010 = ╱4f╱O╱ // 0x3fbf @0x10
0x3faf…4010 at0011 = ╱54╱T╱ // 0x3fc0 @0x11
0x3faf…4010 at0012 = ╱ed╱(╱ // 0x3fc1 @0x12
0x3faf…4010 at0013 = ╱32╱2╱ // 0x3fc2 @0x13
0x3faf…4010 at0014 = ╱f20200╱ // 0x3fc3 @0x14
0x3faf…4010 at0017 = ╱ee╱)╱ // 0x3fc6 @0x17
0x3faf…4010 at0018 = ╱ec╱,╱ // 0x3fc7 @0x18
0x3faf…4010 at0019 = ╱54╱T╱ // 0x3fc8 @0x19
0x3faf…4010 at001a = ╱4f╱O╱ // 0x3fc9 @0x1a
0x3faf…4010 at001b = ╱54╱T╱ // 0x3fca @0x1b
0x3faf…4010 at001c = ╱ed╱(╱ // 0x3fcb @0x1c
0x3faf…4010 at001d = ╱33╱3╱ // 0x3fcc @0x1d
0x3faf…4010 at001e = ╱f20300╱ // 0x3fcd @0x1e
0x3faf…4010 at0021 = ╱ee╱)╱ // 0x3fd0 @0x21
0x3faf…4010 at0022 = ╱ec╱,╱ // 0x3fd1 @0x22
0x3faf…4010 at0023 = ╱54╱T╱ // 0x3fd2 @0x23
0x3faf…4010 at0024 = ╱4f╱O╱ // 0x3fd3 @0x24
0x3faf…4010 at0025 = ╱54╱T╱ // 0x3fd4 @0x25
0x3faf…4010 at0026 = ╱ed╱(╱ // 0x3fd5 @0x26
0x3faf…4010 at0027 = ╱34╱4╱ // 0x3fd6 @0x27
0x3faf…4010 at0028 = ╱f20400╱ // 0x3fd7 @0x28
0x3faf…4010 at002b = ╱ee╱)╱ // 0x3fda @0x2b
0x3faf…4010 at002c = ╱ec╱,╱ // 0x3fdb @0x2c
0x3faf…4010 at002d = ╱54╱T╱ // 0x3fdc @0x2d
0x3faf…4010 at002e = ╱4f╱O╱ // 0x3fdd @0x2e
0x3faf…4010 at002f = ╱54╱T╱ // 0x3fde @0x2f
0x3faf…4010 at0030 = ╱ed╱(╱ // 0x3fdf @0x30
0x3faf…4010 at0031 = ╱35╱5╱ // 0x3fe0 @0x31
0x3faf…4010 at0032 = ╱f20500╱ // 0x3fe1 @0x32
0x3faf…4010 at0035 = ╱ee╱)╱ // 0x3fe4 @0x35
0x3faf…4010 at0036 = ╱ec╱,╱ // 0x3fe5 @0x36
0x3faf…4010 at0037 = ╱54╱T╱ // 0x3fe6 @0x37
0x3faf…4010 at0038 = ╱4f╱O╱ // 0x3fe7 @0x38
0x3faf…4010 at0039 = ╱54╱T╱ // 0x3fe8 @0x39
0x3faf…4010 at003a = ╱ed╱(╱ // 0x3fe9 @0x3a
0x3faf…4010 at003b = ╱36╱6╱ // 0x3fea @0x3b
0x3faf…4010 at003c = ╱f20600╱ // 0x3feb @0x3c
0x3faf…4010 at003f = ╱ee╱)╱ // 0x3fee @0x3f
0x3faf…4010 at0040 = ╱f0╱ := ╱ // 0x3fef @0x40
0x3faf…4010 at0041 = ╱30╱0╱ // 0x3ff0 @0x41
0x3faf…4010 at0042 = ╱f20000╱ // 0x3ff1 @0x42
0x3faf…4010 at0045 = ╱ea╱ ; ╱ // 0x3ff4 @0x45
0x3faf…4010 at0046 = ╱4c╱L╱ // 0x3ff5 @0x46
0x3faf…4010 at0047 = ╱49╱I╱ // 0x3ff6 @0x47
0x3faf…4010 at0048 = ╱4e╱N╱ // 0x3ff7 @0x48
0x3faf…4010 at0049 = ╱5f╱_╱ // 0x3ff8 @0x49
0x3faf…4010 at004a = ╱54╱T╱ // 0x3ff9 @0x4a
0x3faf…4010 at004b = ╱f0╱ := ╱ // 0x3ffa @0x4b
0x3faf…4010 at004c = ╱31╱1╱ // 0x3ffb @0x4c
0x3faf…4010 at004d = ╱30╱0╱ // 0x3ffc @0x4d
0x3faf…4010 at004e = ╱30╱0╱ // 0x3ffd @0x4e
0x3faf…4010 at004f = ╱f26400╱ // 0x3ffe @0x4f
0x3faf…4010 at0052 = ╱ea╱ ; ╱ // 0x4001 @0x52
0x3faf…4010 at0053 = ╱4d╱M╱ // 0x4002 @0x53
0x3faf…4010 at0054 = ╱41╱A╱ // 0x4003 @0x54
0x3faf…4010 at0055 = ╱58╱X╱ // 0x4004 @0x55
0x3faf…4010 at0056 = ╱5f╱_╱ // 0x4005 @0x56
0x3faf…4010 at0057 = ╱4c╱L╱ // 0x4006 @0x57
0x3faf…4010 at0058 = ╱49╱I╱ // 0x4007 @0x58
0x3faf…4010 at0059 = ╱4e╱N╱ // 0x4008 @0x59
0x3faf…4010 at005a = ╱f0╱ := ╱ // 0x4009 @0x5a
0x3faf…4010 at005b = ╱37╱7╱ // 0x400a @0x5b
0x3faf…4010 at005c = ╱32╱2╱ // 0x400b @0x5c
0x3faf…4010 at005d = ╱f24800╱ // 0x400c @0x5d
0x3faf…4010 at0060 = EOL // 0x400f @0x60
0x3faf…4010 }
0x4010…402d d59d 5400 EXEC PRINTRES("papir",12)
0x4010…402d LineComal80 {
0x4010…402d ptr = 0xd59d // 0x4010 @0x0
0x4010…402d lno = 0x1518 // 0x4012 @0x2
0x4010…402d at0004 = ╱9d╱ EXEC ╱ // 0x4014 @0x4
0x4010…402d at0005 = ╱50╱P╱ // 0x4015 @0x5
0x4010…402d at0006 = ╱52╱R╱ // 0x4016 @0x6
0x4010…402d at0007 = ╱49╱I╱ // 0x4017 @0x7
0x4010…402d at0008 = ╱4e╱N╱ // 0x4018 @0x8
0x4010…402d at0009 = ╱54╱T╱ // 0x4019 @0x9
0x4010…402d at000a = ╱52╱R╱ // 0x401a @0xa
0x4010…402d at000b = ╱45╱E╱ // 0x401b @0xb
0x4010…402d at000c = ╱53╱S╱ // 0x401c @0xc
0x4010…402d at000d = ╱ed╱(╱ // 0x401d @0xd
0x4010…402d at000e = ╱22╱"╱ // 0x401e @0xe
0x4010…402d at000f = ╱70╱p╱ // 0x401f @0xf
0x4010…402d at0010 = ╱61╱a╱ // 0x4020 @0x10
0x4010…402d at0011 = ╱70╱p╱ // 0x4021 @0x11
0x4010…402d at0012 = ╱69╱i╱ // 0x4022 @0x12
0x4010…402d at0013 = ╱72╱r╱ // 0x4023 @0x13
0x4010…402d at0014 = ╱22╱"╱ // 0x4024 @0x14
0x4010…402d at0015 = ╱ec╱,╱ // 0x4025 @0x15
0x4010…402d at0016 = ╱31╱1╱ // 0x4026 @0x16
0x4010…402d at0017 = ╱32╱2╱ // 0x4027 @0x17
0x4010…402d at0018 = ╱f20c00╱ // 0x4028 @0x18
0x4010…402d at001b = ╱ee╱)╱ // 0x402b @0x1b
0x4010…402d at001c = EOL // 0x402c @0x1c
0x4010…402d }
0x402d…4064 d652 1910 PRINT "<C0105> BILAG TEKST KASSE"
0x402d…4064 LineComal80 {
0x402d…4064 ptr = 0xd652 // 0x402d @0x0
0x402d…4064 lno = 0x0776 // 0x402f @0x2
0x402d…4064 at0004 = ╱92╱ PRINT ╱ // 0x4031 @0x4
0x402d…4064 at0005 = ╱22╱"╱ // 0x4032 @0x5
0x402d…4064 at0006 = ╱3c╱<╱ // 0x4033 @0x6
0x402d…4064 at0007 = ╱43╱C╱ // 0x4034 @0x7
0x402d…4064 at0008 = ╱30╱0╱ // 0x4035 @0x8
0x402d…4064 at0009 = ╱31╱1╱ // 0x4036 @0x9
0x402d…4064 at000a = ╱30╱0╱ // 0x4037 @0xa
0x402d…4064 at000b = ╱35╱5╱ // 0x4038 @0xb
0x402d…4064 at000c = ╱3e╱>╱ // 0x4039 @0xc
0x402d…4064 at000d = ╱20╱…╱ // 0x403a @0xd
0x402d…4064 at000e = ╱20╱…╱ // 0x403b @0xe
0x402d…4064 at000f = ╱20╱…╱ // 0x403c @0xf
0x402d…4064 at0010 = ╱42╱B╱ // 0x403d @0x10
0x402d…4064 at0011 = ╱49╱I╱ // 0x403e @0x11
0x402d…4064 at0012 = ╱4c╱L╱ // 0x403f @0x12
0x402d…4064 at0013 = ╱41╱A╱ // 0x4040 @0x13
0x402d…4064 at0014 = ╱47╱G╱ // 0x4041 @0x14
0x402d…4064 at0015 = ╱20╱…╱ // 0x4042 @0x15
0x402d…4064 at0016 = ╱20╱…╱ // 0x4043 @0x16
0x402d…4064 at0017 = ╱54╱T╱ // 0x4044 @0x17
0x402d…4064 at0018 = ╱45╱E╱ // 0x4045 @0x18
0x402d…4064 at0019 = ╱4b╱K╱ // 0x4046 @0x19
0x402d…4064 at001a = ╱53╱S╱ // 0x4047 @0x1a
0x402d…4064 at001b = ╱54╱T╱ // 0x4048 @0x1b
0x402d…4064 at001c = ╱20╱…╱ // 0x4049 @0x1c
0x402d…4064 at001d = ╱20╱…╱ // 0x404a @0x1d
0x402d…4064 at001e = ╱20╱…╱ // 0x404b @0x1e
0x402d…4064 at001f = ╱20╱…╱ // 0x404c @0x1f
0x402d…4064 at0020 = ╱20╱…╱ // 0x404d @0x20
0x402d…4064 at0021 = ╱20╱…╱ // 0x404e @0x21
0x402d…4064 at0022 = ╱20╱…╱ // 0x404f @0x22
0x402d…4064 at0023 = ╱20╱…╱ // 0x4050 @0x23
0x402d…4064 at0024 = ╱20╱…╱ // 0x4051 @0x24
0x402d…4064 at0025 = ╱20╱…╱ // 0x4052 @0x25
0x402d…4064 at0026 = ╱20╱…╱ // 0x4053 @0x26
0x402d…4064 at0027 = ╱20╱…╱ // 0x4054 @0x27
0x402d…4064 at0028 = ╱20╱…╱ // 0x4055 @0x28
0x402d…4064 at0029 = ╱20╱…╱ // 0x4056 @0x29
0x402d…4064 at002a = ╱20╱…╱ // 0x4057 @0x2a
0x402d…4064 at002b = ╱20╱…╱ // 0x4058 @0x2b
0x402d…4064 at002c = ╱20╱…╱ // 0x4059 @0x2c
0x402d…4064 at002d = ╱20╱…╱ // 0x405a @0x2d
0x402d…4064 at002e = ╱20╱…╱ // 0x405b @0x2e
0x402d…4064 at002f = ╱20╱…╱ // 0x405c @0x2f
0x402d…4064 at0030 = ╱4b╱K╱ // 0x405d @0x30
0x402d…4064 at0031 = ╱41╱A╱ // 0x405e @0x31
0x402d…4064 at0032 = ╱53╱S╱ // 0x405f @0x32
0x402d…4064 at0033 = ╱53╱S╱ // 0x4060 @0x33
0x402d…4064 at0034 = ╱45╱E╱ // 0x4061 @0x34
0x402d…4064 at0035 = ╱22╱"╱ // 0x4062 @0x35
0x402d…4064 at0036 = EOL // 0x4063 @0x36
0x402d…4064 }
0x4064…409b aa3c 1920 PRINT "<C0106> NR BANK/"
0x4064…409b LineComal80 {
0x4064…409b ptr = 0xaa3c // 0x4064 @0x0
0x4064…409b lno = 0x0780 // 0x4066 @0x2
0x4064…409b at0004 = ╱92╱ PRINT ╱ // 0x4068 @0x4
0x4064…409b at0005 = ╱22╱"╱ // 0x4069 @0x5
0x4064…409b at0006 = ╱3c╱<╱ // 0x406a @0x6
0x4064…409b at0007 = ╱43╱C╱ // 0x406b @0x7
0x4064…409b at0008 = ╱30╱0╱ // 0x406c @0x8
0x4064…409b at0009 = ╱31╱1╱ // 0x406d @0x9
0x4064…409b at000a = ╱30╱0╱ // 0x406e @0xa
0x4064…409b at000b = ╱36╱6╱ // 0x406f @0xb
0x4064…409b at000c = ╱3e╱>╱ // 0x4070 @0xc
0x4064…409b at000d = ╱20╱…╱ // 0x4071 @0xd
0x4064…409b at000e = ╱20╱…╱ // 0x4072 @0xe
0x4064…409b at000f = ╱20╱…╱ // 0x4073 @0xf
0x4064…409b at0010 = ╱20╱…╱ // 0x4074 @0x10
0x4064…409b at0011 = ╱4e╱N╱ // 0x4075 @0x11
0x4064…409b at0012 = ╱52╱R╱ // 0x4076 @0x12
0x4064…409b at0013 = ╱20╱…╱ // 0x4077 @0x13
0x4064…409b at0014 = ╱20╱…╱ // 0x4078 @0x14
0x4064…409b at0015 = ╱20╱…╱ // 0x4079 @0x15
0x4064…409b at0016 = ╱20╱…╱ // 0x407a @0x16
0x4064…409b at0017 = ╱20╱…╱ // 0x407b @0x17
0x4064…409b at0018 = ╱20╱…╱ // 0x407c @0x18
0x4064…409b at0019 = ╱20╱…╱ // 0x407d @0x19
0x4064…409b at001a = ╱20╱…╱ // 0x407e @0x1a
0x4064…409b at001b = ╱20╱…╱ // 0x407f @0x1b
0x4064…409b at001c = ╱20╱…╱ // 0x4080 @0x1c
0x4064…409b at001d = ╱20╱…╱ // 0x4081 @0x1d
0x4064…409b at001e = ╱20╱…╱ // 0x4082 @0x1e
0x4064…409b at001f = ╱20╱…╱ // 0x4083 @0x1f
0x4064…409b at0020 = ╱20╱…╱ // 0x4084 @0x20
0x4064…409b at0021 = ╱20╱…╱ // 0x4085 @0x21
0x4064…409b at0022 = ╱20╱…╱ // 0x4086 @0x22
0x4064…409b at0023 = ╱20╱…╱ // 0x4087 @0x23
0x4064…409b at0024 = ╱20╱…╱ // 0x4088 @0x24
0x4064…409b at0025 = ╱20╱…╱ // 0x4089 @0x25
0x4064…409b at0026 = ╱20╱…╱ // 0x408a @0x26
0x4064…409b at0027 = ╱20╱…╱ // 0x408b @0x27
0x4064…409b at0028 = ╱20╱…╱ // 0x408c @0x28
0x4064…409b at0029 = ╱20╱…╱ // 0x408d @0x29
0x4064…409b at002a = ╱20╱…╱ // 0x408e @0x2a
0x4064…409b at002b = ╱20╱…╱ // 0x408f @0x2b
0x4064…409b at002c = ╱20╱…╱ // 0x4090 @0x2c
0x4064…409b at002d = ╱20╱…╱ // 0x4091 @0x2d
0x4064…409b at002e = ╱20╱…╱ // 0x4092 @0x2e
0x4064…409b at002f = ╱20╱…╱ // 0x4093 @0x2f
0x4064…409b at0030 = ╱42╱B╱ // 0x4094 @0x30
0x4064…409b at0031 = ╱41╱A╱ // 0x4095 @0x31
0x4064…409b at0032 = ╱4e╱N╱ // 0x4096 @0x32
0x4064…409b at0033 = ╱4b╱K╱ // 0x4097 @0x33
0x4064…409b at0034 = ╱2f╱/╱ // 0x4098 @0x34
0x4064…409b at0035 = ╱22╱"╱ // 0x4099 @0x35
0x4064…409b at0036 = EOL // 0x409a @0x36
0x4064…409b }
0x409b…40ab b026 2460 LET K_MKOD$ := ""
0x409b…40ab LineComal80 {
0x409b…40ab ptr = 0xb026 // 0x409b @0x0
0x409b…40ab lno = 0x099c // 0x409d @0x2
0x409b…40ab at0004 = ╱86╱ LET ╱ // 0x409f @0x4
0x409b…40ab at0005 = ╱4b╱K╱ // 0x40a0 @0x5
0x409b…40ab at0006 = ╱5f╱_╱ // 0x40a1 @0x6
0x409b…40ab at0007 = ╱4d╱M╱ // 0x40a2 @0x7
0x409b…40ab at0008 = ╱4b╱K╱ // 0x40a3 @0x8
0x409b…40ab at0009 = ╱4f╱O╱ // 0x40a4 @0x9
0x409b…40ab at000a = ╱44╱D╱ // 0x40a5 @0xa
0x409b…40ab at000b = ╱ef╱$╱ // 0x40a6 @0xb
0x409b…40ab at000c = ╱f0╱ := ╱ // 0x40a7 @0xc
0x409b…40ab at000d = ╱22╱"╱ // 0x40a8 @0xd
0x409b…40ab at000e = ╱22╱"╱ // 0x40a9 @0xe
0x409b…40ab at000f = EOL // 0x40aa @0xf
0x409b…40ab }
0x40ab…40ef (215,) c28e 4520 PRINT "<S>BILAG TEKST INDBETALT UDBETALT "
0x40ab…40ef LineComal80 {
0x40ab…40ef ptr = 0xc28e // 0x40ab @0x0
0x40ab…40ef lno = 0x11a8 // 0x40ad @0x2
0x40ab…40ef at0004 = ╱92╱ PRINT ╱ // 0x40af @0x4
0x40ab…40ef at0005 = ╱22╱"╱ // 0x40b0 @0x5
0x40ab…40ef at0006 = ╱3c╱<╱ // 0x40b1 @0x6
0x40ab…40ef at0007 = ╱53╱S╱ // 0x40b2 @0x7
0x40ab…40ef at0008 = ╱3e╱>╱ // 0x40b3 @0x8
0x40ab…40ef at0009 = ╱42╱B╱ // 0x40b4 @0x9
0x40ab…40ef at000a = ╱49╱I╱ // 0x40b5 @0xa
0x40ab…40ef at000b = ╱4c╱L╱ // 0x40b6 @0xb
0x40ab…40ef at000c = ╱41╱A╱ // 0x40b7 @0xc
0x40ab…40ef at000d = ╱47╱G╱ // 0x40b8 @0xd
0x40ab…40ef at000e = ╱20╱…╱ // 0x40b9 @0xe
0x40ab…40ef at000f = ╱20╱…╱ // 0x40ba @0xf
0x40ab…40ef at0010 = ╱54╱T╱ // 0x40bb @0x10
0x40ab…40ef at0011 = ╱45╱E╱ // 0x40bc @0x11
0x40ab…40ef at0012 = ╱4b╱K╱ // 0x40bd @0x12
0x40ab…40ef at0013 = ╱53╱S╱ // 0x40be @0x13
0x40ab…40ef at0014 = ╱54╱T╱ // 0x40bf @0x14
0x40ab…40ef at0015 = ╱20╱…╱ // 0x40c0 @0x15
0x40ab…40ef at0016 = ╱20╱…╱ // 0x40c1 @0x16
0x40ab…40ef at0017 = ╱20╱…╱ // 0x40c2 @0x17
0x40ab…40ef at0018 = ╱20╱…╱ // 0x40c3 @0x18
0x40ab…40ef at0019 = ╱20╱…╱ // 0x40c4 @0x19
0x40ab…40ef at001a = ╱20╱…╱ // 0x40c5 @0x1a
0x40ab…40ef at001b = ╱20╱…╱ // 0x40c6 @0x1b
0x40ab…40ef at001c = ╱20╱…╱ // 0x40c7 @0x1c
0x40ab…40ef at001d = ╱20╱…╱ // 0x40c8 @0x1d
0x40ab…40ef at001e = ╱20╱…╱ // 0x40c9 @0x1e
0x40ab…40ef at001f = ╱20╱…╱ // 0x40ca @0x1f
0x40ab…40ef at0020 = ╱20╱…╱ // 0x40cb @0x20
0x40ab…40ef at0021 = ╱20╱…╱ // 0x40cc @0x21
0x40ab…40ef at0022 = ╱20╱…╱ // 0x40cd @0x22
0x40ab…40ef at0023 = ╱20╱…╱ // 0x40ce @0x23
0x40ab…40ef at0024 = ╱20╱…╱ // 0x40cf @0x24
0x40ab…40ef at0025 = ╱20╱…╱ // 0x40d0 @0x25
0x40ab…40ef at0026 = ╱20╱…╱ // 0x40d1 @0x26
0x40ab…40ef at0027 = ╱20╱…╱ // 0x40d2 @0x27
0x40ab…40ef at0028 = ╱20╱…╱ // 0x40d3 @0x28
0x40ab…40ef at0029 = ╱20╱…╱ // 0x40d4 @0x29
0x40ab…40ef at002a = ╱49╱I╱ // 0x40d5 @0x2a
0x40ab…40ef at002b = ╱4e╱N╱ // 0x40d6 @0x2b
0x40ab…40ef at002c = ╱44╱D╱ // 0x40d7 @0x2c
0x40ab…40ef at002d = ╱42╱B╱ // 0x40d8 @0x2d
0x40ab…40ef at002e = ╱45╱E╱ // 0x40d9 @0x2e
0x40ab…40ef at002f = ╱54╱T╱ // 0x40da @0x2f
0x40ab…40ef at0030 = ╱41╱A╱ // 0x40db @0x30
0x40ab…40ef at0031 = ╱4c╱L╱ // 0x40dc @0x31
0x40ab…40ef at0032 = ╱54╱T╱ // 0x40dd @0x32
0x40ab…40ef at0033 = ╱20╱…╱ // 0x40de @0x33
0x40ab…40ef at0034 = ╱20╱…╱ // 0x40df @0x34
0x40ab…40ef at0035 = ╱20╱…╱ // 0x40e0 @0x35
0x40ab…40ef at0036 = ╱20╱…╱ // 0x40e1 @0x36
0x40ab…40ef at0037 = ╱55╱U╱ // 0x40e2 @0x37
0x40ab…40ef at0038 = ╱44╱D╱ // 0x40e3 @0x38
0x40ab…40ef at0039 = ╱42╱B╱ // 0x40e4 @0x39
0x40ab…40ef at003a = ╱45╱E╱ // 0x40e5 @0x3a
0x40ab…40ef at003b = ╱54╱T╱ // 0x40e6 @0x3b
0x40ab…40ef at003c = ╱41╱A╱ // 0x40e7 @0x3c
0x40ab…40ef at003d = ╱4c╱L╱ // 0x40e8 @0x3d
0x40ab…40ef at003e = ╱54╱T╱ // 0x40e9 @0x3e
0x40ab…40ef at003f = ╱20╱…╱ // 0x40ea @0x3f
0x40ab…40ef at0040 = ╱20╱…╱ // 0x40eb @0x40
0x40ab…40ef at0041 = ╱20╱…╱ // 0x40ec @0x41
0x40ab…40ef at0042 = ╱22╱"╱ // 0x40ed @0x42
0x40ab…40ef at0043 = EOL // 0x40ee @0x43
0x40ab…40ef }
0x40ef…4133 c72e 5090 PRINT "<S>----- ------------------------ ---------- ---------- "
0x40ef…4133 LineComal80 {
0x40ef…4133 ptr = 0xc72e // 0x40ef @0x0
0x40ef…4133 lno = 0x13e2 // 0x40f1 @0x2
0x40ef…4133 at0004 = ╱92╱ PRINT ╱ // 0x40f3 @0x4
0x40ef…4133 at0005 = ╱22╱"╱ // 0x40f4 @0x5
0x40ef…4133 at0006 = ╱3c╱<╱ // 0x40f5 @0x6
0x40ef…4133 at0007 = ╱53╱S╱ // 0x40f6 @0x7
0x40ef…4133 at0008 = ╱3e╱>╱ // 0x40f7 @0x8
0x40ef…4133 at0009 = ╱2d╱-╱ // 0x40f8 @0x9
0x40ef…4133 at000a = ╱2d╱-╱ // 0x40f9 @0xa
0x40ef…4133 at000b = ╱2d╱-╱ // 0x40fa @0xb
0x40ef…4133 at000c = ╱2d╱-╱ // 0x40fb @0xc
0x40ef…4133 at000d = ╱2d╱-╱ // 0x40fc @0xd
0x40ef…4133 at000e = ╱20╱…╱ // 0x40fd @0xe
0x40ef…4133 at000f = ╱20╱…╱ // 0x40fe @0xf
0x40ef…4133 at0010 = ╱2d╱-╱ // 0x40ff @0x10
0x40ef…4133 at0011 = ╱2d╱-╱ // 0x4100 @0x11
0x40ef…4133 at0012 = ╱2d╱-╱ // 0x4101 @0x12
0x40ef…4133 at0013 = ╱2d╱-╱ // 0x4102 @0x13
0x40ef…4133 at0014 = ╱2d╱-╱ // 0x4103 @0x14
0x40ef…4133 at0015 = ╱2d╱-╱ // 0x4104 @0x15
0x40ef…4133 at0016 = ╱2d╱-╱ // 0x4105 @0x16
0x40ef…4133 at0017 = ╱2d╱-╱ // 0x4106 @0x17
0x40ef…4133 at0018 = ╱2d╱-╱ // 0x4107 @0x18
0x40ef…4133 at0019 = ╱2d╱-╱ // 0x4108 @0x19
0x40ef…4133 at001a = ╱2d╱-╱ // 0x4109 @0x1a
0x40ef…4133 at001b = ╱2d╱-╱ // 0x410a @0x1b
0x40ef…4133 at001c = ╱2d╱-╱ // 0x410b @0x1c
0x40ef…4133 at001d = ╱2d╱-╱ // 0x410c @0x1d
0x40ef…4133 at001e = ╱2d╱-╱ // 0x410d @0x1e
0x40ef…4133 at001f = ╱2d╱-╱ // 0x410e @0x1f
0x40ef…4133 at0020 = ╱2d╱-╱ // 0x410f @0x20
0x40ef…4133 at0021 = ╱2d╱-╱ // 0x4110 @0x21
0x40ef…4133 at0022 = ╱2d╱-╱ // 0x4111 @0x22
0x40ef…4133 at0023 = ╱2d╱-╱ // 0x4112 @0x23
0x40ef…4133 at0024 = ╱2d╱-╱ // 0x4113 @0x24
0x40ef…4133 at0025 = ╱2d╱-╱ // 0x4114 @0x25
0x40ef…4133 at0026 = ╱2d╱-╱ // 0x4115 @0x26
0x40ef…4133 at0027 = ╱2d╱-╱ // 0x4116 @0x27
0x40ef…4133 at0028 = ╱20╱…╱ // 0x4117 @0x28
0x40ef…4133 at0029 = ╱20╱…╱ // 0x4118 @0x29
0x40ef…4133 at002a = ╱2d╱-╱ // 0x4119 @0x2a
0x40ef…4133 at002b = ╱2d╱-╱ // 0x411a @0x2b
0x40ef…4133 at002c = ╱2d╱-╱ // 0x411b @0x2c
0x40ef…4133 at002d = ╱2d╱-╱ // 0x411c @0x2d
0x40ef…4133 at002e = ╱2d╱-╱ // 0x411d @0x2e
0x40ef…4133 at002f = ╱2d╱-╱ // 0x411e @0x2f
0x40ef…4133 at0030 = ╱2d╱-╱ // 0x411f @0x30
0x40ef…4133 at0031 = ╱2d╱-╱ // 0x4120 @0x31
0x40ef…4133 at0032 = ╱2d╱-╱ // 0x4121 @0x32
0x40ef…4133 at0033 = ╱2d╱-╱ // 0x4122 @0x33
0x40ef…4133 at0034 = ╱20╱…╱ // 0x4123 @0x34
0x40ef…4133 at0035 = ╱20╱…╱ // 0x4124 @0x35
0x40ef…4133 at0036 = ╱2d╱-╱ // 0x4125 @0x36
0x40ef…4133 at0037 = ╱2d╱-╱ // 0x4126 @0x37
0x40ef…4133 at0038 = ╱2d╱-╱ // 0x4127 @0x38
0x40ef…4133 at0039 = ╱2d╱-╱ // 0x4128 @0x39
0x40ef…4133 at003a = ╱2d╱-╱ // 0x4129 @0x3a
0x40ef…4133 at003b = ╱2d╱-╱ // 0x412a @0x3b
0x40ef…4133 at003c = ╱2d╱-╱ // 0x412b @0x3c
0x40ef…4133 at003d = ╱2d╱-╱ // 0x412c @0x3d
0x40ef…4133 at003e = ╱2d╱-╱ // 0x412d @0x3e
0x40ef…4133 at003f = ╱2d╱-╱ // 0x412e @0x3f
0x40ef…4133 at0040 = ╱20╱…╱ // 0x412f @0x40
0x40ef…4133 at0041 = ╱20╱…╱ // 0x4130 @0x41
0x40ef…4133 at0042 = ╱22╱"╱ // 0x4131 @0x42
0x40ef…4133 at0043 = EOL // 0x4132 @0x43
0x40ef…4133 }
0x4133…4159 a642 1400 LET PROGRAM$ := PRGFL$ + ":SYSAK" + S_KODE$
0x4133…4159 LineComal80 {
0x4133…4159 ptr = 0xa642 // 0x4133 @0x0
0x4133…4159 lno = 0x0578 // 0x4135 @0x2
0x4133…4159 at0004 = ╱86╱ LET ╱ // 0x4137 @0x4
0x4133…4159 at0005 = ╱50╱P╱ // 0x4138 @0x5
0x4133…4159 at0006 = ╱52╱R╱ // 0x4139 @0x6
0x4133…4159 at0007 = ╱4f╱O╱ // 0x413a @0x7
0x4133…4159 at0008 = ╱47╱G╱ // 0x413b @0x8
0x4133…4159 at0009 = ╱52╱R╱ // 0x413c @0x9
0x4133…4159 at000a = ╱41╱A╱ // 0x413d @0xa
0x4133…4159 at000b = ╱4d╱M╱ // 0x413e @0xb
0x4133…4159 at000c = ╱ef╱$╱ // 0x413f @0xc
0x4133…4159 at000d = ╱f0╱ := ╱ // 0x4140 @0xd
0x4133…4159 at000e = ╱50╱P╱ // 0x4141 @0xe
0x4133…4159 at000f = ╱52╱R╱ // 0x4142 @0xf
0x4133…4159 at0010 = ╱47╱G╱ // 0x4143 @0x10
0x4133…4159 at0011 = ╱46╱F╱ // 0x4144 @0x11
0x4133…4159 at0012 = ╱4c╱L╱ // 0x4145 @0x12
0x4133…4159 at0013 = ╱ef╱$╱ // 0x4146 @0x13
0x4133…4159 at0014 = ╱eb╱ + ╱ // 0x4147 @0x14
0x4133…4159 at0015 = ╱22╱"╱ // 0x4148 @0x15
0x4133…4159 at0016 = ╱3a╱:╱ // 0x4149 @0x16
0x4133…4159 at0017 = ╱53╱S╱ // 0x414a @0x17
0x4133…4159 at0018 = ╱59╱Y╱ // 0x414b @0x18
0x4133…4159 at0019 = ╱53╱S╱ // 0x414c @0x19
0x4133…4159 at001a = ╱41╱A╱ // 0x414d @0x1a
0x4133…4159 at001b = ╱4b╱K╱ // 0x414e @0x1b
0x4133…4159 at001c = ╱22╱"╱ // 0x414f @0x1c
0x4133…4159 at001d = ╱eb╱ + ╱ // 0x4150 @0x1d
0x4133…4159 at001e = ╱53╱S╱ // 0x4151 @0x1e
0x4133…4159 at001f = ╱5f╱_╱ // 0x4152 @0x1f
0x4133…4159 at0020 = ╱4b╱K╱ // 0x4153 @0x20
0x4133…4159 at0021 = ╱4f╱O╱ // 0x4154 @0x21
0x4133…4159 at0022 = ╱44╱D╱ // 0x4155 @0x22
0x4133…4159 at0023 = ╱45╱E╱ // 0x4156 @0x23
0x4133…4159 at0024 = ╱ef╱$╱ // 0x4157 @0x24
0x4133…4159 at0025 = EOL // 0x4158 @0x25
0x4133…4159 }
0x4159…415f d74d 5290 ENDIF
0x4159…415f LineComal80 {
0x4159…415f ptr = 0xd74d // 0x4159 @0x0
0x4159…415f lno = 0x14aa // 0x415b @0x2
0x4159…415f at0004 = ╱9c╱ ENDIF ╱ // 0x415d @0x4
0x4159…415f at0005 = EOL // 0x415e @0x5
0x4159…415f }
0x415f…416e d75c 5300 ENDPROC TRANSPORT
0x415f…416e LineComal80 {
0x415f…416e ptr = 0xd75c // 0x415f @0x0
0x415f…416e lno = 0x14b4 // 0x4161 @0x2
0x415f…416e at0004 = ╱9f╱ ENDPROC ╱ // 0x4163 @0x4
0x415f…416e at0005 = ╱54╱T╱ // 0x4164 @0x5
0x415f…416e at0006 = ╱52╱R╱ // 0x4165 @0x6
0x415f…416e at0007 = ╱41╱A╱ // 0x4166 @0x7
0x415f…416e at0008 = ╱4e╱N╱ // 0x4167 @0x8
0x415f…416e at0009 = ╱53╱S╱ // 0x4168 @0x9
0x415f…416e at000a = ╱50╱P╱ // 0x4169 @0xa
0x415f…416e at000b = ╱4f╱O╱ // 0x416a @0xb
0x415f…416e at000c = ╱52╱R╱ // 0x416b @0xc
0x415f…416e at000d = ╱54╱T╱ // 0x416c @0xd
0x415f…416e at000e = EOL // 0x416d @0xe
0x415f…416e }
0x416e…4173 d761 5310
0x416e…4173 LineComal80 {
0x416e…4173 ptr = 0xd761 // 0x416e @0x0
0x416e…4173 lno = 0x14be // 0x4170 @0x2
0x416e…4173 at0004 = EOL // 0x4172 @0x4
0x416e…4173 }
0x4173…4188 d776 5320 PROC UDSKRIV_POSTER
0x4173…4188 LineComal80 {
0x4173…4188 ptr = 0xd776 // 0x4173 @0x0
0x4173…4188 lno = 0x14c8 // 0x4175 @0x2
0x4173…4188 at0004 = ╱9e63╱ PROC ╱ // 0x4177 @0x4
0x4173…4188 at0006 = ╱55╱U╱ // 0x4179 @0x6
0x4173…4188 at0007 = ╱44╱D╱ // 0x417a @0x7
0x4173…4188 at0008 = ╱53╱S╱ // 0x417b @0x8
0x4173…4188 at0009 = ╱4b╱K╱ // 0x417c @0x9
0x4173…4188 at000a = ╱52╱R╱ // 0x417d @0xa
0x4173…4188 at000b = ╱49╱I╱ // 0x417e @0xb
0x4173…4188 at000c = ╱56╱V╱ // 0x417f @0xc
0x4173…4188 at000d = ╱5f╱_╱ // 0x4180 @0xd
0x4173…4188 at000e = ╱50╱P╱ // 0x4181 @0xe
0x4173…4188 at000f = ╱4f╱O╱ // 0x4182 @0xf
0x4173…4188 at0010 = ╱53╱S╱ // 0x4183 @0x10
0x4173…4188 at0011 = ╱54╱T╱ // 0x4184 @0x11
0x4173…4188 at0012 = ╱45╱E╱ // 0x4185 @0x12
0x4173…4188 at0013 = ╱52╱R╱ // 0x4186 @0x13
0x4173…4188 at0014 = EOL // 0x4187 @0x14
0x4173…4188 }
0x4188…41bb d7a9 5330 EXEC OVERSKRIFT("Udskrivning af kassekladde",7)
0x4188…41bb LineComal80 {
0x4188…41bb ptr = 0xd7a9 // 0x4188 @0x0
0x4188…41bb lno = 0x14d2 // 0x418a @0x2
0x4188…41bb at0004 = ╱9d╱ EXEC ╱ // 0x418c @0x4
0x4188…41bb at0005 = ╱4f╱O╱ // 0x418d @0x5
0x4188…41bb at0006 = ╱56╱V╱ // 0x418e @0x6
0x4188…41bb at0007 = ╱45╱E╱ // 0x418f @0x7
0x4188…41bb at0008 = ╱52╱R╱ // 0x4190 @0x8
0x4188…41bb at0009 = ╱53╱S╱ // 0x4191 @0x9
0x4188…41bb at000a = ╱4b╱K╱ // 0x4192 @0xa
0x4188…41bb at000b = ╱52╱R╱ // 0x4193 @0xb
0x4188…41bb at000c = ╱49╱I╱ // 0x4194 @0xc
0x4188…41bb at000d = ╱46╱F╱ // 0x4195 @0xd
0x4188…41bb at000e = ╱54╱T╱ // 0x4196 @0xe
0x4188…41bb at000f = ╱ed╱(╱ // 0x4197 @0xf
0x4188…41bb at0010 = ╱22╱"╱ // 0x4198 @0x10
0x4188…41bb at0011 = ╱55╱U╱ // 0x4199 @0x11
0x4188…41bb at0012 = ╱64╱d╱ // 0x419a @0x12
0x4188…41bb at0013 = ╱73╱s╱ // 0x419b @0x13
0x4188…41bb at0014 = ╱6b╱k╱ // 0x419c @0x14
0x4188…41bb at0015 = ╱72╱r╱ // 0x419d @0x15
0x4188…41bb at0016 = ╱69╱i╱ // 0x419e @0x16
0x4188…41bb at0017 = ╱76╱v╱ // 0x419f @0x17
0x4188…41bb at0018 = ╱6e╱n╱ // 0x41a0 @0x18
0x4188…41bb at0019 = ╱69╱i╱ // 0x41a1 @0x19
0x4188…41bb at001a = ╱6e╱n╱ // 0x41a2 @0x1a
0x4188…41bb at001b = ╱67╱g╱ // 0x41a3 @0x1b
0x4188…41bb at001c = ╱20╱…╱ // 0x41a4 @0x1c
0x4188…41bb at001d = ╱61╱a╱ // 0x41a5 @0x1d
0x4188…41bb at001e = ╱66╱f╱ // 0x41a6 @0x1e
0x4188…41bb at001f = ╱20╱…╱ // 0x41a7 @0x1f
0x4188…41bb at0020 = ╱6b╱k╱ // 0x41a8 @0x20
0x4188…41bb at0021 = ╱61╱a╱ // 0x41a9 @0x21
0x4188…41bb at0022 = ╱73╱s╱ // 0x41aa @0x22
0x4188…41bb at0023 = ╱73╱s╱ // 0x41ab @0x23
0x4188…41bb at0024 = ╱65╱e╱ // 0x41ac @0x24
0x4188…41bb at0025 = ╱6b╱k╱ // 0x41ad @0x25
0x4188…41bb at0026 = ╱6c╱l╱ // 0x41ae @0x26
0x4188…41bb at0027 = ╱61╱a╱ // 0x41af @0x27
0x4188…41bb at0028 = ╱64╱d╱ // 0x41b0 @0x28
0x4188…41bb at0029 = ╱64╱d╱ // 0x41b1 @0x29
0x4188…41bb at002a = ╱65╱e╱ // 0x41b2 @0x2a
0x4188…41bb at002b = ╱22╱"╱ // 0x41b3 @0x2b
0x4188…41bb at002c = ╱ec╱,╱ // 0x41b4 @0x2c
0x4188…41bb at002d = ╱37╱7╱ // 0x41b5 @0x2d
0x4188…41bb at002e = ╱f20700╱ // 0x41b6 @0x2e
0x4188…41bb at0031 = ╱ee╱)╱ // 0x41b9 @0x31
0x4188…41bb at0032 = EOL // 0x41ba @0x32
0x4188…41bb }
0x41bb…41d8 d7c6 5340 EXEC PRINTRES("papir",12)
0x41bb…41d8 LineComal80 {
0x41bb…41d8 ptr = 0xd7c6 // 0x41bb @0x0
0x41bb…41d8 lno = 0x14dc // 0x41bd @0x2
0x41bb…41d8 at0004 = ╱9d╱ EXEC ╱ // 0x41bf @0x4
0x41bb…41d8 at0005 = ╱50╱P╱ // 0x41c0 @0x5
0x41bb…41d8 at0006 = ╱52╱R╱ // 0x41c1 @0x6
0x41bb…41d8 at0007 = ╱49╱I╱ // 0x41c2 @0x7
0x41bb…41d8 at0008 = ╱4e╱N╱ // 0x41c3 @0x8
0x41bb…41d8 at0009 = ╱54╱T╱ // 0x41c4 @0x9
0x41bb…41d8 at000a = ╱52╱R╱ // 0x41c5 @0xa
0x41bb…41d8 at000b = ╱45╱E╱ // 0x41c6 @0xb
0x41bb…41d8 at000c = ╱53╱S╱ // 0x41c7 @0xc
0x41bb…41d8 at000d = ╱ed╱(╱ // 0x41c8 @0xd
0x41bb…41d8 at000e = ╱22╱"╱ // 0x41c9 @0xe
0x41bb…41d8 at000f = ╱70╱p╱ // 0x41ca @0xf
0x41bb…41d8 at0010 = ╱61╱a╱ // 0x41cb @0x10
0x41bb…41d8 at0011 = ╱70╱p╱ // 0x41cc @0x11
0x41bb…41d8 at0012 = ╱69╱i╱ // 0x41cd @0x12
0x41bb…41d8 at0013 = ╱72╱r╱ // 0x41ce @0x13
0x41bb…41d8 at0014 = ╱22╱"╱ // 0x41cf @0x14
0x41bb…41d8 at0015 = ╱ec╱,╱ // 0x41d0 @0x15
0x41bb…41d8 at0016 = ╱31╱1╱ // 0x41d1 @0x16
0x41bb…41d8 at0017 = ╱32╱2╱ // 0x41d2 @0x17
0x41bb…41d8 at0018 = ╱f20c00╱ // 0x41d3 @0x18
0x41bb…41d8 at001b = ╱ee╱)╱ // 0x41d6 @0x1b
0x41bb…41d8 at001c = EOL // 0x41d7 @0x1c
0x41bb…41d8 }
0x41d8…4239 ca89 5350 LET TOT(1),TOT(2),TOT(3),TOT(4),TOT(5),TOT(6) := 0 ; LIN_T := 100 ; MAX_LIN := 72
0x41d8…4239 LineComal80 {
0x41d8…4239 ptr = 0xca89 // 0x41d8 @0x0
0x41d8…4239 lno = 0x14e6 // 0x41da @0x2
0x41d8…4239 at0004 = ╱86╱ LET ╱ // 0x41dc @0x4
0x41d8…4239 at0005 = ╱54╱T╱ // 0x41dd @0x5
0x41d8…4239 at0006 = ╱4f╱O╱ // 0x41de @0x6
0x41d8…4239 at0007 = ╱54╱T╱ // 0x41df @0x7
0x41d8…4239 at0008 = ╱ed╱(╱ // 0x41e0 @0x8
0x41d8…4239 at0009 = ╱31╱1╱ // 0x41e1 @0x9
0x41d8…4239 at000a = ╱f20100╱ // 0x41e2 @0xa
0x41d8…4239 at000d = ╱ee╱)╱ // 0x41e5 @0xd
0x41d8…4239 at000e = ╱ec╱,╱ // 0x41e6 @0xe
0x41d8…4239 at000f = ╱54╱T╱ // 0x41e7 @0xf
0x41d8…4239 at0010 = ╱4f╱O╱ // 0x41e8 @0x10
0x41d8…4239 at0011 = ╱54╱T╱ // 0x41e9 @0x11
0x41d8…4239 at0012 = ╱ed╱(╱ // 0x41ea @0x12
0x41d8…4239 at0013 = ╱32╱2╱ // 0x41eb @0x13
0x41d8…4239 at0014 = ╱f20200╱ // 0x41ec @0x14
0x41d8…4239 at0017 = ╱ee╱)╱ // 0x41ef @0x17
0x41d8…4239 at0018 = ╱ec╱,╱ // 0x41f0 @0x18
0x41d8…4239 at0019 = ╱54╱T╱ // 0x41f1 @0x19
0x41d8…4239 at001a = ╱4f╱O╱ // 0x41f2 @0x1a
0x41d8…4239 at001b = ╱54╱T╱ // 0x41f3 @0x1b
0x41d8…4239 at001c = ╱ed╱(╱ // 0x41f4 @0x1c
0x41d8…4239 at001d = ╱33╱3╱ // 0x41f5 @0x1d
0x41d8…4239 at001e = ╱f20300╱ // 0x41f6 @0x1e
0x41d8…4239 at0021 = ╱ee╱)╱ // 0x41f9 @0x21
0x41d8…4239 at0022 = ╱ec╱,╱ // 0x41fa @0x22
0x41d8…4239 at0023 = ╱54╱T╱ // 0x41fb @0x23
0x41d8…4239 at0024 = ╱4f╱O╱ // 0x41fc @0x24
0x41d8…4239 at0025 = ╱54╱T╱ // 0x41fd @0x25
0x41d8…4239 at0026 = ╱ed╱(╱ // 0x41fe @0x26
0x41d8…4239 at0027 = ╱34╱4╱ // 0x41ff @0x27
0x41d8…4239 at0028 = ╱f20400╱ // 0x4200 @0x28
0x41d8…4239 at002b = ╱ee╱)╱ // 0x4203 @0x2b
0x41d8…4239 at002c = ╱ec╱,╱ // 0x4204 @0x2c
0x41d8…4239 at002d = ╱54╱T╱ // 0x4205 @0x2d
0x41d8…4239 at002e = ╱4f╱O╱ // 0x4206 @0x2e
0x41d8…4239 at002f = ╱54╱T╱ // 0x4207 @0x2f
0x41d8…4239 at0030 = ╱ed╱(╱ // 0x4208 @0x30
0x41d8…4239 at0031 = ╱35╱5╱ // 0x4209 @0x31
0x41d8…4239 at0032 = ╱f20500╱ // 0x420a @0x32
0x41d8…4239 at0035 = ╱ee╱)╱ // 0x420d @0x35
0x41d8…4239 at0036 = ╱ec╱,╱ // 0x420e @0x36
0x41d8…4239 at0037 = ╱54╱T╱ // 0x420f @0x37
0x41d8…4239 at0038 = ╱4f╱O╱ // 0x4210 @0x38
0x41d8…4239 at0039 = ╱54╱T╱ // 0x4211 @0x39
0x41d8…4239 at003a = ╱ed╱(╱ // 0x4212 @0x3a
0x41d8…4239 at003b = ╱36╱6╱ // 0x4213 @0x3b
0x41d8…4239 at003c = ╱f20600╱ // 0x4214 @0x3c
0x41d8…4239 at003f = ╱ee╱)╱ // 0x4217 @0x3f
0x41d8…4239 at0040 = ╱f0╱ := ╱ // 0x4218 @0x40
0x41d8…4239 at0041 = ╱30╱0╱ // 0x4219 @0x41
0x41d8…4239 at0042 = ╱f20000╱ // 0x421a @0x42
0x41d8…4239 at0045 = ╱ea╱ ; ╱ // 0x421d @0x45
0x41d8…4239 at0046 = ╱4c╱L╱ // 0x421e @0x46
0x41d8…4239 at0047 = ╱49╱I╱ // 0x421f @0x47
0x41d8…4239 at0048 = ╱4e╱N╱ // 0x4220 @0x48
0x41d8…4239 at0049 = ╱5f╱_╱ // 0x4221 @0x49
0x41d8…4239 at004a = ╱54╱T╱ // 0x4222 @0x4a
0x41d8…4239 at004b = ╱f0╱ := ╱ // 0x4223 @0x4b
0x41d8…4239 at004c = ╱31╱1╱ // 0x4224 @0x4c
0x41d8…4239 at004d = ╱30╱0╱ // 0x4225 @0x4d
0x41d8…4239 at004e = ╱30╱0╱ // 0x4226 @0x4e
0x41d8…4239 at004f = ╱f26400╱ // 0x4227 @0x4f
0x41d8…4239 at0052 = ╱ea╱ ; ╱ // 0x422a @0x52
0x41d8…4239 at0053 = ╱4d╱M╱ // 0x422b @0x53
0x41d8…4239 at0054 = ╱41╱A╱ // 0x422c @0x54
0x41d8…4239 at0055 = ╱58╱X╱ // 0x422d @0x55
0x41d8…4239 at0056 = ╱5f╱_╱ // 0x422e @0x56
0x41d8…4239 at0057 = ╱4c╱L╱ // 0x422f @0x57
0x41d8…4239 at0058 = ╱49╱I╱ // 0x4230 @0x58
0x41d8…4239 at0059 = ╱4e╱N╱ // 0x4231 @0x59
0x41d8…4239 at005a = ╱f0╱ := ╱ // 0x4232 @0x5a
0x41d8…4239 at005b = ╱37╱7╱ // 0x4233 @0x5b
0x41d8…4239 at005c = ╱32╱2╱ // 0x4234 @0x5c
0x41d8…4239 at005d = ╱f24800╱ // 0x4235 @0x5d
0x41d8…4239 at0060 = EOL // 0x4238 @0x60
0x41d8…4239 }
0x4239…4259 1f1f 7967 ╱1f╱ ╱1f╱ ESSAKAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ W ╱00╱ ╱00╱ ╱01╱ ╱00╱ G OR CHAIN ╱17╱ //
0x4239…4259 LineComal80 {
0x4239…4259 ptr = 0x1f1f // 0x4239 @0x0
0x4239…4259 lno = 0x1f1f // 0x423b @0x2
0x4239…4259 at0004 = ╱1f╱ // 0x423d @0x4
0x4239…4259 at0005 = ╱1f╱ // 0x423e @0x5
0x4239…4259 at0006 = ╱45╱E╱ // 0x423f @0x6
0x4239…4259 at0007 = ╱53╱S╱ // 0x4240 @0x7
0x4239…4259 at0008 = ╱53╱S╱ // 0x4241 @0x8
0x4239…4259 at0009 = ╱41╱A╱ // 0x4242 @0x9
0x4239…4259 at000a = ╱4b╱K╱ // 0x4243 @0xa
0x4239…4259 at000b = ╱41╱A╱ // 0x4244 @0xb
0x4239…4259 at000c = ╱59╱Y╱ // 0x4245 @0xc
0x4239…4259 at000d = ╱3a╱:╱ // 0x4246 @0xd
0x4239…4259 at000e = ╱32╱2╱ // 0x4247 @0xe
0x4239…4259 at000f = ╱50╱P╱ // 0x4248 @0xf
0x4239…4259 at0010 = ╱44╱D╱ // 0x4249 @0x10
0x4239…4259 at0011 = ╱00╱ // 0x424a @0x11
0x4239…4259 at0012 = ╱00╱ // 0x424b @0x12
0x4239…4259 at0013 = ╱11╱ // 0x424c @0x13
0x4239…4259 at0014 = ╱00╱ // 0x424d @0x14
0x4239…4259 at0015 = ╱57╱W╱ // 0x424e @0x15
0x4239…4259 at0016 = ╱00╱ // 0x424f @0x16
0x4239…4259 at0017 = ╱00╱ // 0x4250 @0x17
0x4239…4259 at0018 = ╱01╱ // 0x4251 @0x18
0x4239…4259 at0019 = ╱00╱ // 0x4252 @0x19
0x4239…4259 at001a = ╱47╱G╱ // 0x4253 @0x1a
0x4239…4259 at001b = ╱d8╱ OR ╱ // 0x4254 @0x1b
0x4239…4259 at001c = ╱ac╱ CHAIN ╱ // 0x4255 @0x1c
0x4239…4259 at001d = ╱17╱ // 0x4256 @0x1d
0x4239…4259 at001e = ╱89╱ // ╱ // 0x4257 @0x1e
0x4239…4259 at001f = EOL // 0x4258 @0x1f
0x4239…4259 }
0x4259…428c d87a 6070 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
0x4259…428c LineComal80 {
0x4259…428c ptr = 0xd87a // 0x4259 @0x0
0x4259…428c lno = 0x17b6 // 0x425b @0x2
0x4259…428c at0004 = ╱9e6d╱ PROC ╱ // 0x425d @0x4
0x4259…428c at0006 = ╱50╱P╱ // 0x425f @0x6
0x4259…428c at0007 = ╱52╱R╱ // 0x4260 @0x7
0x4259…428c at0008 = ╱49╱I╱ // 0x4261 @0x8
0x4259…428c at0009 = ╱4e╱N╱ // 0x4262 @0x9
0x4259…428c at000a = ╱54╱T╱ // 0x4263 @0xa
0x4259…428c at000b = ╱52╱R╱ // 0x4264 @0xb
0x4259…428c at000c = ╱45╱E╱ // 0x4265 @0xc
0x4259…428c at000d = ╱53╱S╱ // 0x4266 @0xd
0x4259…428c at000e = ╱ed╱(╱ // 0x4267 @0xe
0x4259…428c at000f = ╱50╱P╱ // 0x4268 @0xf
0x4259…428c at0010 = ╱41╱A╱ // 0x4269 @0x10
0x4259…428c at0011 = ╱47╱G╱ // 0x426a @0x11
0x4259…428c at0012 = ╱45╱E╱ // 0x426b @0x12
0x4259…428c at0013 = ╱54╱T╱ // 0x426c @0x13
0x4259…428c at0014 = ╱59╱Y╱ // 0x426d @0x14
0x4259…428c at0015 = ╱50╱P╱ // 0x426e @0x15
0x4259…428c at0016 = ╱45╱E╱ // 0x426f @0x16
0x4259…428c at0017 = ╱ef╱$╱ // 0x4270 @0x17
0x4259…428c at0018 = ╱ec╱,╱ // 0x4271 @0x18
0x4259…428c at0019 = ╱4c╱L╱ // 0x4272 @0x19
0x4259…428c at001a = ╱49╱I╱ // 0x4273 @0x1a
0x4259…428c at001b = ╱4e╱N╱ // 0x4274 @0x1b
0x4259…428c at001c = ╱45╱E╱ // 0x4275 @0x1c
0x4259…428c at001d = ╱ee╱)╱ // 0x4276 @0x1d
0x4259…428c at001e = ╱89╱ // ╱ // 0x4277 @0x1e
0x4259…428c at001f = ╱50╱P╱ // 0x4278 @0x1f
0x4259…428c at0020 = ╱52╱R╱ // 0x4279 @0x20
0x4259…428c at0021 = ╱49╱I╱ // 0x427a @0x21
0x4259…428c at0022 = ╱4e╱N╱ // 0x427b @0x22
0x4259…428c at0023 = ╱54╱T╱ // 0x427c @0x23
0x4259…428c at0024 = ╱45╱E╱ // 0x427d @0x24
0x4259…428c at0025 = ╱52╱R╱ // 0x427e @0x25
0x4259…428c at0026 = ╱20╱…╱ // 0x427f @0x26
0x4259…428c at0027 = ╱52╱R╱ // 0x4280 @0x27
0x4259…428c at0028 = ╱45╱E╱ // 0x4281 @0x28
0x4259…428c at0029 = ╱53╱S╱ // 0x4282 @0x29
0x4259…428c at002a = ╱45╱E╱ // 0x4283 @0x2a
0x4259…428c at002b = ╱52╱R╱ // 0x4284 @0x2b
0x4259…428c at002c = ╱56╱V╱ // 0x4285 @0x2c
0x4259…428c at002d = ╱41╱A╱ // 0x4286 @0x2d
0x4259…428c at002e = ╱54╱T╱ // 0x4287 @0x2e
0x4259…428c at002f = ╱49╱I╱ // 0x4288 @0x2f
0x4259…428c at0030 = ╱4f╱O╱ // 0x4289 @0x30
0x4259…428c at0031 = ╱4e╱N╱ // 0x428a @0x31
0x4259…428c at0032 = EOL // 0x428b @0x32
0x4259…428c }
0x428c…42a4 d892 6080 LET PRTNR$ := "1" ; OK := TRUE
0x428c…42a4 LineComal80 {
0x428c…42a4 ptr = 0xd892 // 0x428c @0x0
0x428c…42a4 lno = 0x17c0 // 0x428e @0x2
0x428c…42a4 at0004 = ╱86╱ LET ╱ // 0x4290 @0x4
0x428c…42a4 at0005 = ╱50╱P╱ // 0x4291 @0x5
0x428c…42a4 at0006 = ╱52╱R╱ // 0x4292 @0x6
0x428c…42a4 at0007 = ╱54╱T╱ // 0x4293 @0x7
0x428c…42a4 at0008 = ╱4e╱N╱ // 0x4294 @0x8
0x428c…42a4 at0009 = ╱52╱R╱ // 0x4295 @0x9
0x428c…42a4 at000a = ╱ef╱$╱ // 0x4296 @0xa
0x428c…42a4 at000b = ╱f0╱ := ╱ // 0x4297 @0xb
0x428c…42a4 at000c = ╱22╱"╱ // 0x4298 @0xc
0x428c…42a4 at000d = ╱31╱1╱ // 0x4299 @0xd
0x428c…42a4 at000e = ╱22╱"╱ // 0x429a @0xe
0x428c…42a4 at000f = ╱ea╱ ; ╱ // 0x429b @0xf
0x428c…42a4 at0010 = ╱4f╱O╱ // 0x429c @0x10
0x428c…42a4 at0011 = ╱4b╱K╱ // 0x429d @0x11
0x428c…42a4 at0012 = ╱f0╱ := ╱ // 0x429e @0x12
0x428c…42a4 at0013 = ╱54╱T╱ // 0x429f @0x13
0x428c…42a4 at0014 = ╱52╱R╱ // 0x42a0 @0x14
0x428c…42a4 at0015 = ╱55╱U╱ // 0x42a1 @0x15
0x428c…42a4 at0016 = ╱45╱E╱ // 0x42a2 @0x16
0x428c…42a4 at0017 = EOL // 0x42a3 @0x17
0x428c…42a4 }
0x42a4…42ab d899 6090 REPEAT
0x42a4…42ab LineComal80 {
0x42a4…42ab ptr = 0xd899 // 0x42a4 @0x0
0x42a4…42ab lno = 0x17ca // 0x42a6 @0x2
0x42a4…42ab at0004 = ╱976e╱ REPEAT ╱ // 0x42a8 @0x4
0x42a4…42ab at0006 = EOL // 0x42aa @0x6
0x42a4…42ab }
0x42ab…42bb d8a9 6100 CURSOR 15,LINE
0x42ab…42bb LineComal80 {
0x42ab…42bb ptr = 0xd8a9 // 0x42ab @0x0
0x42ab…42bb lno = 0x17d4 // 0x42ad @0x2
0x42ab…42bb at0004 = ╱a1╱ CURSOR ╱ // 0x42af @0x4
0x42ab…42bb at0005 = ╱31╱1╱ // 0x42b0 @0x5
0x42ab…42bb at0006 = ╱35╱5╱ // 0x42b1 @0x6
0x42ab…42bb at0007 = ╱f20f00╱ // 0x42b2 @0x7
0x42ab…42bb at000a = ╱ec╱,╱ // 0x42b5 @0xa
0x42ab…42bb at000b = ╱4c╱L╱ // 0x42b6 @0xb
0x42ab…42bb at000c = ╱49╱I╱ // 0x42b7 @0xc
0x42ab…42bb at000d = ╱4e╱N╱ // 0x42b8 @0xd
0x42ab…42bb at000e = ╱45╱E╱ // 0x42b9 @0xe
0x42ab…42bb at000f = EOL // 0x42ba @0xf
0x42ab…42bb }
0x42bb…42f4 d8e2 6110 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
0x42bb…42f4 LineComal80 {
0x42bb…42f4 ptr = 0xd8e2 // 0x42bb @0x0
0x42bb…42f4 lno = 0x17de // 0x42bd @0x2
0x42bb…42f4 at0004 = ╱b1╱ EDIT ╱ // 0x42bf @0x4
0x42bb…42f4 at0005 = ╱22╱"╱ // 0x42c0 @0x5
0x42bb…42f4 at0006 = ╱3c╱<╱ // 0x42c1 @0x6
0x42bb…42f4 at0007 = ╱5a╱Z╱ // 0x42c2 @0x7
0x42bb…42f4 at0008 = ╱3e╱>╱ // 0x42c3 @0x8
0x42bb…42f4 at0009 = ╱55╱U╱ // 0x42c4 @0x9
0x42bb…42f4 at000a = ╱64╱d╱ // 0x42c5 @0xa
0x42bb…42f4 at000b = ╱73╱s╱ // 0x42c6 @0xb
0x42bb…42f4 at000c = ╱6b╱k╱ // 0x42c7 @0xc
0x42bb…42f4 at000d = ╱72╱r╱ // 0x42c8 @0xd
0x42bb…42f4 at000e = ╱69╱i╱ // 0x42c9 @0xe
0x42bb…42f4 at000f = ╱76╱v╱ // 0x42ca @0xf
0x42bb…42f4 at0010 = ╱6e╱n╱ // 0x42cb @0x10
0x42bb…42f4 at0011 = ╱69╱i╱ // 0x42cc @0x11
0x42bb…42f4 at0012 = ╱6e╱n╱ // 0x42cd @0x12
0x42bb…42f4 at0013 = ╱67╱g╱ // 0x42ce @0x13
0x42bb…42f4 at0014 = ╱20╱…╱ // 0x42cf @0x14
0x42bb…42f4 at0015 = ╱70╱p╱ // 0x42d0 @0x15
0x42bb…42f4 at0016 = ╱7d╱å╱ // 0x42d1 @0x16
0x42bb…42f4 at0017 = ╱20╱…╱ // 0x42d2 @0x17
0x42bb…42f4 at0018 = ╱70╱p╱ // 0x42d3 @0x18
0x42bb…42f4 at0019 = ╱72╱r╱ // 0x42d4 @0x19
0x42bb…42f4 at001a = ╱69╱i╱ // 0x42d5 @0x1a
0x42bb…42f4 at001b = ╱6e╱n╱ // 0x42d6 @0x1b
0x42bb…42f4 at001c = ╱74╱t╱ // 0x42d7 @0x1c
0x42bb…42f4 at001d = ╱65╱e╱ // 0x42d8 @0x1d
0x42bb…42f4 at001e = ╱72╱r╱ // 0x42d9 @0x1e
0x42bb…42f4 at001f = ╱20╱…╱ // 0x42da @0x1f
0x42bb…42f4 at0020 = ╱6e╱n╱ // 0x42db @0x20
0x42bb…42f4 at0021 = ╱72╱r╱ // 0x42dc @0x21
0x42bb…42f4 at0022 = ╱2e╱.╱ // 0x42dd @0x22
0x42bb…42f4 at0023 = ╱20╱…╱ // 0x42de @0x23
0x42bb…42f4 at0024 = ╱3f╱?╱ // 0x42df @0x24
0x42bb…42f4 at0025 = ╱20╱…╱ // 0x42e0 @0x25
0x42bb…42f4 at0026 = ╱28╱(╱ // 0x42e1 @0x26
0x42bb…42f4 at0027 = ╱31╱1╱ // 0x42e2 @0x27
0x42bb…42f4 at0028 = ╱2f╱/╱ // 0x42e3 @0x28
0x42bb…42f4 at0029 = ╱32╱2╱ // 0x42e4 @0x29
0x42bb…42f4 at002a = ╱2f╱/╱ // 0x42e5 @0x2a
0x42bb…42f4 at002b = ╱33╱3╱ // 0x42e6 @0x2b
0x42bb…42f4 at002c = ╱2f╱/╱ // 0x42e7 @0x2c
0x42bb…42f4 at002d = ╱34╱4╱ // 0x42e8 @0x2d
0x42bb…42f4 at002e = ╱29╱)╱ // 0x42e9 @0x2e
0x42bb…42f4 at002f = ╱20╱…╱ // 0x42ea @0x2f
0x42bb…42f4 at0030 = ╱22╱"╱ // 0x42eb @0x30
0x42bb…42f4 at0031 = ╱f1╱ : ╱ // 0x42ec @0x31
0x42bb…42f4 at0032 = ╱50╱P╱ // 0x42ed @0x32
0x42bb…42f4 at0033 = ╱52╱R╱ // 0x42ee @0x33
0x42bb…42f4 at0034 = ╱54╱T╱ // 0x42ef @0x34
0x42bb…42f4 at0035 = ╱4e╱N╱ // 0x42f0 @0x35
0x42bb…42f4 at0036 = ╱52╱R╱ // 0x42f1 @0x36
0x42bb…42f4 at0037 = ╱ef╱$╱ // 0x42f2 @0x37
0x42bb…42f4 at0038 = EOL // 0x42f3 @0x38
0x42bb…42f4 }
0x42f4…4314 d902 6120 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
0x42f4…4314 LineComal80 {
0x42f4…4314 ptr = 0xd902 // 0x42f4 @0x0
0x42f4…4314 lno = 0x17e8 // 0x42f6 @0x2
0x42f4…4314 at0004 = ╱98╱ UNTIL ╱ // 0x42f8 @0x4
0x42f4…4314 at0005 = ╱22╱"╱ // 0x42f9 @0x5
0x42f4…4314 at0006 = ╱2f╱/╱ // 0x42fa @0x6
0x42f4…4314 at0007 = ╱22╱"╱ // 0x42fb @0x7
0x42f4…4314 at0008 = ╱eb╱ + ╱ // 0x42fc @0x8
0x42f4…4314 at0009 = ╱50╱P╱ // 0x42fd @0x9
0x42f4…4314 at000a = ╱52╱R╱ // 0x42fe @0xa
0x42f4…4314 at000b = ╱54╱T╱ // 0x42ff @0xb
0x42f4…4314 at000c = ╱4e╱N╱ // 0x4300 @0xc
0x42f4…4314 at000d = ╱52╱R╱ // 0x4301 @0xd
0x42f4…4314 at000e = ╱ef╱$╱ // 0x4302 @0xe
0x42f4…4314 at000f = ╱eb╱ + ╱ // 0x4303 @0xf
0x42f4…4314 at0010 = ╱22╱"╱ // 0x4304 @0x10
0x42f4…4314 at0011 = ╱2f╱/╱ // 0x4305 @0x11
0x42f4…4314 at0012 = ╱22╱"╱ // 0x4306 @0x12
0x42f4…4314 at0013 = ╱dc╱ IN ╱ // 0x4307 @0x13
0x42f4…4314 at0014 = ╱22╱"╱ // 0x4308 @0x14
0x42f4…4314 at0015 = ╱2f╱/╱ // 0x4309 @0x15
0x42f4…4314 at0016 = ╱31╱1╱ // 0x430a @0x16
0x42f4…4314 at0017 = ╱2f╱/╱ // 0x430b @0x17
0x42f4…4314 at0018 = ╱32╱2╱ // 0x430c @0x18
0x42f4…4314 at0019 = ╱2f╱/╱ // 0x430d @0x19
0x42f4…4314 at001a = ╱33╱3╱ // 0x430e @0x1a
0x42f4…4314 at001b = ╱2f╱/╱ // 0x430f @0x1b
0x42f4…4314 at001c = ╱34╱4╱ // 0x4310 @0x1c
0x42f4…4314 at001d = ╱2f╱/╱ // 0x4311 @0x1d
0x42f4…4314 at001e = ╱22╱"╱ // 0x4312 @0x1e
0x42f4…4314 at001f = EOL // 0x4313 @0x1f
0x42f4…4314 }
0x4314…4323 d911 6130 CURSOR 1,LINE
0x4314…4323 LineComal80 {
0x4314…4323 ptr = 0xd911 // 0x4314 @0x0
0x4314…4323 lno = 0x17f2 // 0x4316 @0x2
0x4314…4323 at0004 = ╱a1╱ CURSOR ╱ // 0x4318 @0x4
0x4314…4323 at0005 = ╱31╱1╱ // 0x4319 @0x5
0x4314…4323 at0006 = ╱f20100╱ // 0x431a @0x6
0x4314…4323 at0009 = ╱ec╱,╱ // 0x431d @0x9
0x4314…4323 at000a = ╱4c╱L╱ // 0x431e @0xa
0x4314…4323 at000b = ╱49╱I╱ // 0x431f @0xb
0x4314…4323 at000c = ╱4e╱N╱ // 0x4320 @0xc
0x4314…4323 at000d = ╱45╱E╱ // 0x4321 @0xd
0x4314…4323 at000e = EOL // 0x4322 @0xe
0x4314…4323 }
0x4323…432e d91c 6140 PRINT "<Z>"
0x4323…432e LineComal80 {
0x4323…432e ptr = 0xd91c // 0x4323 @0x0
0x4323…432e lno = 0x17fc // 0x4325 @0x2
0x4323…432e at0004 = ╱92╱ PRINT ╱ // 0x4327 @0x4
0x4323…432e at0005 = ╱22╱"╱ // 0x4328 @0x5
0x4323…432e at0006 = ╱3c╱<╱ // 0x4329 @0x6
0x4323…432e at0007 = ╱5a╱Z╱ // 0x432a @0x7
0x4323…432e at0008 = ╱3e╱>╱ // 0x432b @0x8
0x4323…432e at0009 = ╱22╱"╱ // 0x432c @0x9
0x4323…432e at000a = EOL // 0x432d @0xa
0x4323…432e }
0x432e…4352 d940 6150 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
0x432e…4352 LineComal80 {
0x432e…4352 ptr = 0xd940 // 0x432e @0x0
0x432e…4352 lno = 0x1806 // 0x4330 @0x2
0x432e…4352 at0004 = ╱a1╱ CURSOR ╱ // 0x4332 @0x4
0x432e…4352 at0005 = ╱ed╱(╱ // 0x4333 @0x5
0x432e…4352 at0006 = ╱33╱3╱ // 0x4334 @0x6
0x432e…4352 at0007 = ╱39╱9╱ // 0x4335 @0x7
0x432e…4352 at0008 = ╱f22700╱ // 0x4336 @0x8
0x432e…4352 at000b = ╱e6╱ - ╱ // 0x4339 @0xb
0x432e…4352 at000c = ╱cb╱ // 0x433a @0xc
0x432e…4352 at000d = ╱ed╱(╱ // 0x433b @0xd
0x432e…4352 at000e = ╱50╱P╱ // 0x433c @0xe
0x432e…4352 at000f = ╱41╱A╱ // 0x433d @0xf
0x432e…4352 at0010 = ╱47╱G╱ // 0x433e @0x10
0x432e…4352 at0011 = ╱45╱E╱ // 0x433f @0x11
0x432e…4352 at0012 = ╱54╱T╱ // 0x4340 @0x12
0x432e…4352 at0013 = ╱59╱Y╱ // 0x4341 @0x13
0x432e…4352 at0014 = ╱50╱P╱ // 0x4342 @0x14
0x432e…4352 at0015 = ╱45╱E╱ // 0x4343 @0x15
0x432e…4352 at0016 = ╱ef╱$╱ // 0x4344 @0x16
0x432e…4352 at0017 = ╱ee╱)╱ // 0x4345 @0x17
0x432e…4352 at0018 = ╱ee╱)╱ // 0x4346 @0x18
0x432e…4352 at0019 = ╱da╱ DIV ╱ // 0x4347 @0x19
0x432e…4352 at001a = ╱32╱2╱ // 0x4348 @0x1a
0x432e…4352 at001b = ╱f20200╱ // 0x4349 @0x1b
0x432e…4352 at001e = ╱ec╱,╱ // 0x434c @0x1e
0x432e…4352 at001f = ╱4c╱L╱ // 0x434d @0x1f
0x432e…4352 at0020 = ╱49╱I╱ // 0x434e @0x20
0x432e…4352 at0021 = ╱4e╱N╱ // 0x434f @0x21
0x432e…4352 at0022 = ╱45╱E╱ // 0x4350 @0x22
0x432e…4352 at0023 = EOL // 0x4351 @0x23
0x432e…4352 }
0x4352…4392 d980 6160 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
0x4352…4392 LineComal80 {
0x4352…4392 ptr = 0xd980 // 0x4352 @0x0
0x4352…4392 lno = 0x1810 // 0x4354 @0x2
0x4352…4392 at0004 = ╱92╱ PRINT ╱ // 0x4356 @0x4
0x4352…4392 at0005 = ╱22╱"╱ // 0x4357 @0x5
0x4352…4392 at0006 = ╱3c╱<╱ // 0x4358 @0x6
0x4352…4392 at0007 = ╱53╱S╱ // 0x4359 @0x7
0x4352…4392 at0008 = ╱5a╱Z╱ // 0x435a @0x8
0x4352…4392 at0009 = ╱3e╱>╱ // 0x435b @0x9
0x4352…4392 at000a = ╱20╱…╱ // 0x435c @0xa
0x4352…4392 at000b = ╱20╱…╱ // 0x435d @0xb
0x4352…4392 at000c = ╱20╱…╱ // 0x435e @0xc
0x4352…4392 at000d = ╱20╱…╱ // 0x435f @0xd
0x4352…4392 at000e = ╱20╱…╱ // 0x4360 @0xe
0x4352…4392 at000f = ╱4d╱M╱ // 0x4361 @0xf
0x4352…4392 at0010 = ╱6f╱o╱ // 0x4362 @0x10
0x4352…4392 at0011 = ╱6e╱n╱ // 0x4363 @0x11
0x4352…4392 at0012 = ╱74╱t╱ // 0x4364 @0x12
0x4352…4392 at0013 = ╱65╱e╱ // 0x4365 @0x13
0x4352…4392 at0014 = ╱72╱r╱ // 0x4366 @0x14
0x4352…4392 at0015 = ╱20╱…╱ // 0x4367 @0x15
0x4352…4392 at0016 = ╱22╱"╱ // 0x4368 @0x16
0x4352…4392 at0017 = ╱ea╱ ; ╱ // 0x4369 @0x17
0x4352…4392 at0018 = ╱50╱P╱ // 0x436a @0x18
0x4352…4392 at0019 = ╱41╱A╱ // 0x436b @0x19
0x4352…4392 at001a = ╱47╱G╱ // 0x436c @0x1a
0x4352…4392 at001b = ╱45╱E╱ // 0x436d @0x1b
0x4352…4392 at001c = ╱54╱T╱ // 0x436e @0x1c
0x4352…4392 at001d = ╱59╱Y╱ // 0x436f @0x1d
0x4352…4392 at001e = ╱50╱P╱ // 0x4370 @0x1e
0x4352…4392 at001f = ╱45╱E╱ // 0x4371 @0x1f
0x4352…4392 at0020 = ╱ef╱$╱ // 0x4372 @0x20
0x4352…4392 at0021 = ╱ea╱ ; ╱ // 0x4373 @0x21
0x4352…4392 at0022 = ╱22╱"╱ // 0x4374 @0x22
0x4352…4392 at0023 = ╱20╱…╱ // 0x4375 @0x23
0x4352…4392 at0024 = ╱69╱i╱ // 0x4376 @0x24
0x4352…4392 at0025 = ╱20╱…╱ // 0x4377 @0x25
0x4352…4392 at0026 = ╱70╱p╱ // 0x4378 @0x26
0x4352…4392 at0027 = ╱72╱r╱ // 0x4379 @0x27
0x4352…4392 at0028 = ╱69╱i╱ // 0x437a @0x28
0x4352…4392 at0029 = ╱6e╱n╱ // 0x437b @0x29
0x4352…4392 at002a = ╱74╱t╱ // 0x437c @0x2a
0x4352…4392 at002b = ╱65╱e╱ // 0x437d @0x2b
0x4352…4392 at002c = ╱72╱r╱ // 0x437e @0x2c
0x4352…4392 at002d = ╱65╱e╱ // 0x437f @0x2d
0x4352…4392 at002e = ╱6e╱n╱ // 0x4380 @0x2e
0x4352…4392 at002f = ╱20╱…╱ // 0x4381 @0x2f
0x4352…4392 at0030 = ╱2d╱-╱ // 0x4382 @0x30
0x4352…4392 at0031 = ╱20╱…╱ // 0x4383 @0x31
0x4352…4392 at0032 = ╱74╱t╱ // 0x4384 @0x32
0x4352…4392 at0033 = ╱72╱r╱ // 0x4385 @0x33
0x4352…4392 at0034 = ╱79╱y╱ // 0x4386 @0x34
0x4352…4392 at0035 = ╱6b╱k╱ // 0x4387 @0x35
0x4352…4392 at0036 = ╱20╱…╱ // 0x4388 @0x36
0x4352…4392 at0037 = ╱52╱R╱ // 0x4389 @0x37
0x4352…4392 at0038 = ╱45╱E╱ // 0x438a @0x38
0x4352…4392 at0039 = ╱54╱T╱ // 0x438b @0x39
0x4352…4392 at003a = ╱55╱U╱ // 0x438c @0x3a
0x4352…4392 at003b = ╱52╱R╱ // 0x438d @0x3b
0x4352…4392 at003c = ╱4e╱N╱ // 0x438e @0x3c
0x4352…4392 at003d = ╱20╱…╱ // 0x438f @0x3d
0x4352…4392 at003e = ╱22╱"╱ // 0x4390 @0x3e
0x4352…4392 at003f = EOL // 0x4391 @0x3f
0x4352…4392 }
0x4392…43a0 d98e 6170 INPUT "" : SVAR$
0x4392…43a0 LineComal80 {
0x4392…43a0 ptr = 0xd98e // 0x4392 @0x0
0x4392…43a0 lno = 0x181a // 0x4394 @0x2
0x4392…43a0 at0004 = ╱91╱ INPUT ╱ // 0x4396 @0x4
0x4392…43a0 at0005 = ╱22╱"╱ // 0x4397 @0x5
0x4392…43a0 at0006 = ╱22╱"╱ // 0x4398 @0x6
0x4392…43a0 at0007 = ╱f1╱ : ╱ // 0x4399 @0x7
0x4392…43a0 at0008 = ╱53╱S╱ // 0x439a @0x8
0x4392…43a0 at0009 = ╱56╱V╱ // 0x439b @0x9
0x4392…43a0 at000a = ╱41╱A╱ // 0x439c @0xa
0x4392…43a0 at000b = ╱52╱R╱ // 0x439d @0xb
0x4392…43a0 at000c = ╱ef╱$╱ // 0x439e @0xc
0x4392…43a0 at000d = EOL // 0x439f @0xd
0x4392…43a0 }
0x43a0…43b0 d99e 6180 SELECT OUTPUT "P" + PRTNR$
0x43a0…43b0 LineComal80 {
0x43a0…43b0 ptr = 0xd99e // 0x43a0 @0x0
0x43a0…43b0 lno = 0x1824 // 0x43a2 @0x2
0x43a0…43b0 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x43a4 @0x4
0x43a0…43b0 at0005 = ╱22╱"╱ // 0x43a5 @0x5
0x43a0…43b0 at0006 = ╱50╱P╱ // 0x43a6 @0x6
0x43a0…43b0 at0007 = ╱22╱"╱ // 0x43a7 @0x7
0x43a0…43b0 at0008 = ╱eb╱ + ╱ // 0x43a8 @0x8
0x43a0…43b0 at0009 = ╱50╱P╱ // 0x43a9 @0x9
0x43a0…43b0 at000a = ╱52╱R╱ // 0x43aa @0xa
0x43a0…43b0 at000b = ╱54╱T╱ // 0x43ab @0xb
0x43a0…43b0 at000c = ╱4e╱N╱ // 0x43ac @0xc
0x43a0…43b0 at000d = ╱52╱R╱ // 0x43ad @0xd
0x43a0…43b0 at000e = ╱ef╱$╱ // 0x43ae @0xe
0x43a0…43b0 at000f = EOL // 0x43af @0xf
0x43a0…43b0 }
0x43b0…43be d9ac 6190 IF ("P") THEN
0x43b0…43be LineComal80 {
0x43b0…43be ptr = 0xd9ac // 0x43b0 @0x0
0x43b0…43be lno = 0x182e // 0x43b2 @0x2
0x43b0…43be at0004 = ╱9b6fcd╱ IF ╱ // 0x43b4 @0x4
0x43b0…43be at0007 = ╱ed╱(╱ // 0x43b7 @0x7
0x43b0…43be at0008 = ╱22╱"╱ // 0x43b8 @0x8
0x43b0…43be at0009 = ╱50╱P╱ // 0x43b9 @0x9
0x43b0…43be at000a = ╱22╱"╱ // 0x43ba @0xa
0x43b0…43be at000b = ╱ee╱)╱ // 0x43bb @0xb
0x43b0…43be at000c = ╱b5╱ THEN ╱ // 0x43bc @0xc
0x43b0…43be at000d = EOL // 0x43bd @0xd
0x43b0…43be }
0x43be…43ce d9bc 6200 CURSOR 12,LINE
0x43be…43ce LineComal80 {
0x43be…43ce ptr = 0xd9bc // 0x43be @0x0
0x43be…43ce lno = 0x1838 // 0x43c0 @0x2
0x43be…43ce at0004 = ╱a1╱ CURSOR ╱ // 0x43c2 @0x4
0x43be…43ce at0005 = ╱31╱1╱ // 0x43c3 @0x5
0x43be…43ce at0006 = ╱32╱2╱ // 0x43c4 @0x6
0x43be…43ce at0007 = ╱f20c00╱ // 0x43c5 @0x7
0x43be…43ce at000a = ╱ec╱,╱ // 0x43c8 @0xa
0x43be…43ce at000b = ╱4c╱L╱ // 0x43c9 @0xb
0x43be…43ce at000c = ╱49╱I╱ // 0x43ca @0xc
0x43be…43ce at000d = ╱4e╱N╱ // 0x43cb @0xd
0x43be…43ce at000e = ╱45╱E╱ // 0x43cc @0xe
0x43be…43ce at000f = EOL // 0x43cd @0xf
0x43be…43ce }
0x43ce…4405 d9f3 6210 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
0x43ce…4405 LineComal80 {
0x43ce…4405 ptr = 0xd9f3 // 0x43ce @0x0
0x43ce…4405 lno = 0x1842 // 0x43d0 @0x2
0x43ce…4405 at0004 = ╱92╱ PRINT ╱ // 0x43d2 @0x4
0x43ce…4405 at0005 = ╱22╱"╱ // 0x43d3 @0x5
0x43ce…4405 at0006 = ╱3c╱<╱ // 0x43d4 @0x6
0x43ce…4405 at0007 = ╱53╱S╱ // 0x43d5 @0x7
0x43ce…4405 at0008 = ╱5a╱Z╱ // 0x43d6 @0x8
0x43ce…4405 at0009 = ╱3e╱>╱ // 0x43d7 @0x9
0x43ce…4405 at000a = ╱50╱P╱ // 0x43d8 @0xa
0x43ce…4405 at000b = ╱72╱r╱ // 0x43d9 @0xb
0x43ce…4405 at000c = ╱69╱i╱ // 0x43da @0xc
0x43ce…4405 at000d = ╱6e╱n╱ // 0x43db @0xd
0x43ce…4405 at000e = ╱74╱t╱ // 0x43dc @0xe
0x43ce…4405 at000f = ╱65╱e╱ // 0x43dd @0xf
0x43ce…4405 at0010 = ╱72╱r╱ // 0x43de @0x10
0x43ce…4405 at0011 = ╱65╱e╱ // 0x43df @0x11
0x43ce…4405 at0012 = ╱6e╱n╱ // 0x43e0 @0x12
0x43ce…4405 at0013 = ╱20╱…╱ // 0x43e1 @0x13
0x43ce…4405 at0014 = ╱65╱e╱ // 0x43e2 @0x14
0x43ce…4405 at0015 = ╱72╱r╱ // 0x43e3 @0x15
0x43ce…4405 at0016 = ╱20╱…╱ // 0x43e4 @0x16
0x43ce…4405 at0017 = ╱72╱r╱ // 0x43e5 @0x17
0x43ce…4405 at0018 = ╱65╱e╱ // 0x43e6 @0x18
0x43ce…4405 at0019 = ╱73╱s╱ // 0x43e7 @0x19
0x43ce…4405 at001a = ╱65╱e╱ // 0x43e8 @0x1a
0x43ce…4405 at001b = ╱72╱r╱ // 0x43e9 @0x1b
0x43ce…4405 at001c = ╱76╱v╱ // 0x43ea @0x1c
0x43ce…4405 at001d = ╱65╱e╱ // 0x43eb @0x1d
0x43ce…4405 at001e = ╱72╱r╱ // 0x43ec @0x1e
0x43ce…4405 at001f = ╱65╱e╱ // 0x43ed @0x1f
0x43ce…4405 at0020 = ╱74╱t╱ // 0x43ee @0x20
0x43ce…4405 at0021 = ╱20╱…╱ // 0x43ef @0x21
0x43ce…4405 at0022 = ╱61╱a╱ // 0x43f0 @0x22
0x43ce…4405 at0023 = ╱66╱f╱ // 0x43f1 @0x23
0x43ce…4405 at0024 = ╱20╱…╱ // 0x43f2 @0x24
0x43ce…4405 at0025 = ╱65╱e╱ // 0x43f3 @0x25
0x43ce…4405 at0026 = ╱6e╱n╱ // 0x43f4 @0x26
0x43ce…4405 at0027 = ╱20╱…╱ // 0x43f5 @0x27
0x43ce…4405 at0028 = ╱61╱a╱ // 0x43f6 @0x28
0x43ce…4405 at0029 = ╱6e╱n╱ // 0x43f7 @0x29
0x43ce…4405 at002a = ╱64╱d╱ // 0x43f8 @0x2a
0x43ce…4405 at002b = ╱65╱e╱ // 0x43f9 @0x2b
0x43ce…4405 at002c = ╱6e╱n╱ // 0x43fa @0x2c
0x43ce…4405 at002d = ╱20╱…╱ // 0x43fb @0x2d
0x43ce…4405 at002e = ╱62╱b╱ // 0x43fc @0x2e
0x43ce…4405 at002f = ╱72╱r╱ // 0x43fd @0x2f
0x43ce…4405 at0030 = ╱75╱u╱ // 0x43fe @0x30
0x43ce…4405 at0031 = ╱67╱g╱ // 0x43ff @0x31
0x43ce…4405 at0032 = ╱65╱e╱ // 0x4400 @0x32
0x43ce…4405 at0033 = ╱72╱r╱ // 0x4401 @0x33
0x43ce…4405 at0034 = ╱2c╱,╱ // 0x4402 @0x34
0x43ce…4405 at0035 = ╱22╱"╱ // 0x4403 @0x35
0x43ce…4405 at0036 = EOL // 0x4404 @0x36
0x43ce…4405 }
0x4405…441a da08 6220 CURSOR 12,LINE + 1
0x4405…441a LineComal80 {
0x4405…441a ptr = 0xda08 // 0x4405 @0x0
0x4405…441a lno = 0x184c // 0x4407 @0x2
0x4405…441a at0004 = ╱a1╱ CURSOR ╱ // 0x4409 @0x4
0x4405…441a at0005 = ╱31╱1╱ // 0x440a @0x5
0x4405…441a at0006 = ╱32╱2╱ // 0x440b @0x6
0x4405…441a at0007 = ╱f20c00╱ // 0x440c @0x7
0x4405…441a at000a = ╱ec╱,╱ // 0x440f @0xa
0x4405…441a at000b = ╱4c╱L╱ // 0x4410 @0xb
0x4405…441a at000c = ╱49╱I╱ // 0x4411 @0xc
0x4405…441a at000d = ╱4e╱N╱ // 0x4412 @0xd
0x4405…441a at000e = ╱45╱E╱ // 0x4413 @0xe
0x4405…441a at000f = ╱e5╱ + ╱ // 0x4414 @0xf
0x4405…441a at0010 = ╱31╱1╱ // 0x4415 @0x10
0x4405…441a at0011 = ╱f20100╱ // 0x4416 @0x11
0x4405…441a at0014 = EOL // 0x4419 @0x14
0x4405…441a }
0x441a…445b da49 6230 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
0x441a…445b LineComal80 {
0x441a…445b ptr = 0xda49 // 0x441a @0x0
0x441a…445b lno = 0x1856 // 0x441c @0x2
0x441a…445b at0004 = ╱91╱ INPUT ╱ // 0x441e @0x4
0x441a…445b at0005 = ╱22╱"╱ // 0x441f @0x5
0x441a…445b at0006 = ╱3c╱<╱ // 0x4420 @0x6
0x441a…445b at0007 = ╱53╱S╱ // 0x4421 @0x7
0x441a…445b at0008 = ╱5a╱Z╱ // 0x4422 @0x8
0x441a…445b at0009 = ╱3e╱>╱ // 0x4423 @0x9
0x441a…445b at000a = ╱53╱S╱ // 0x4424 @0xa
0x441a…445b at000b = ╱6b╱k╱ // 0x4425 @0xb
0x441a…445b at000c = ╱61╱a╱ // 0x4426 @0xc
0x441a…445b at000d = ╱6c╱l╱ // 0x4427 @0xd
0x441a…445b at000e = ╱20╱…╱ // 0x4428 @0xe
0x441a…445b at000f = ╱64╱d╱ // 0x4429 @0xf
0x441a…445b at0010 = ╱65╱e╱ // 0x442a @0x10
0x441a…445b at0011 = ╱72╱r╱ // 0x442b @0x11
0x441a…445b at0012 = ╱20╱…╱ // 0x442c @0x12
0x441a…445b at0013 = ╱76╱v╱ // 0x442d @0x13
0x441a…445b at0014 = ╱65╱e╱ // 0x442e @0x14
0x441a…445b at0015 = ╱6e╱n╱ // 0x442f @0x15
0x441a…445b at0016 = ╱74╱t╱ // 0x4430 @0x16
0x441a…445b at0017 = ╱65╱e╱ // 0x4431 @0x17
0x441a…445b at0018 = ╱73╱s╱ // 0x4432 @0x18
0x441a…445b at0019 = ╱20╱…╱ // 0x4433 @0x19
0x441a…445b at001a = ╱70╱p╱ // 0x4434 @0x1a
0x441a…445b at001b = ╱7d╱å╱ // 0x4435 @0x1b
0x441a…445b at001c = ╱20╱…╱ // 0x4436 @0x1c
0x441a…445b at001d = ╱61╱a╱ // 0x4437 @0x1d
0x441a…445b at001e = ╱74╱t╱ // 0x4438 @0x1e
0x441a…445b at001f = ╱20╱…╱ // 0x4439 @0x1f
0x441a…445b at0020 = ╱64╱d╱ // 0x443a @0x20
0x441a…445b at0021 = ╱65╱e╱ // 0x443b @0x21
0x441a…445b at0022 = ╱6e╱n╱ // 0x443c @0x22
0x441a…445b at0023 = ╱20╱…╱ // 0x443d @0x23
0x441a…445b at0024 = ╱62╱b╱ // 0x443e @0x24
0x441a…445b at0025 = ╱6c╱l╱ // 0x443f @0x25
0x441a…445b at0026 = ╱69╱i╱ // 0x4440 @0x26
0x441a…445b at0027 = ╱76╱v╱ // 0x4441 @0x27
0x441a…445b at0028 = ╱65╱e╱ // 0x4442 @0x28
0x441a…445b at0029 = ╱72╱r╱ // 0x4443 @0x29
0x441a…445b at002a = ╱20╱…╱ // 0x4444 @0x2a
0x441a…445b at002b = ╱6c╱l╱ // 0x4445 @0x2b
0x441a…445b at002c = ╱65╱e╱ // 0x4446 @0x2c
0x441a…445b at002d = ╱64╱d╱ // 0x4447 @0x2d
0x441a…445b at002e = ╱69╱i╱ // 0x4448 @0x2e
0x441a…445b at002f = ╱67╱g╱ // 0x4449 @0x2f
0x441a…445b at0030 = ╱20╱…╱ // 0x444a @0x30
0x441a…445b at0031 = ╱3f╱?╱ // 0x444b @0x31
0x441a…445b at0032 = ╱20╱…╱ // 0x444c @0x32
0x441a…445b at0033 = ╱28╱(╱ // 0x444d @0x33
0x441a…445b at0034 = ╱6a╱j╱ // 0x444e @0x34
0x441a…445b at0035 = ╱2f╱/╱ // 0x444f @0x35
0x441a…445b at0036 = ╱6e╱n╱ // 0x4450 @0x36
0x441a…445b at0037 = ╱29╱)╱ // 0x4451 @0x37
0x441a…445b at0038 = ╱20╱…╱ // 0x4452 @0x38
0x441a…445b at0039 = ╱22╱"╱ // 0x4453 @0x39
0x441a…445b at003a = ╱f1╱ : ╱ // 0x4454 @0x3a
0x441a…445b at003b = ╱53╱S╱ // 0x4455 @0x3b
0x441a…445b at003c = ╱56╱V╱ // 0x4456 @0x3c
0x441a…445b at003d = ╱41╱A╱ // 0x4457 @0x3d
0x441a…445b at003e = ╱52╱R╱ // 0x4458 @0x3e
0x441a…445b at003f = ╱ef╱$╱ // 0x4459 @0x3f
0x441a…445b at0040 = EOL // 0x445a @0x40
0x441a…445b }
0x445b…4476 da64 6240 IF VAR$ = "J" OR SVAR$ = "j" THEN
0x445b…4476 LineComal80 {
0x445b…4476 ptr = 0xda64 // 0x445b @0x0
0x445b…4476 lno = 0x1860 // 0x445d @0x2
0x445b…4476 at0004 = ╱9b7053╱ IF ╱ // 0x445f @0x4
0x445b…4476 at0007 = ╱56╱V╱ // 0x4462 @0x7
0x445b…4476 at0008 = ╱41╱A╱ // 0x4463 @0x8
0x445b…4476 at0009 = ╱52╱R╱ // 0x4464 @0x9
0x445b…4476 at000a = ╱ef╱$╱ // 0x4465 @0xa
0x445b…4476 at000b = ╱df╱ = ╱ // 0x4466 @0xb
0x445b…4476 at000c = ╱22╱"╱ // 0x4467 @0xc
0x445b…4476 at000d = ╱4a╱J╱ // 0x4468 @0xd
0x445b…4476 at000e = ╱22╱"╱ // 0x4469 @0xe
0x445b…4476 at000f = ╱d8╱ OR ╱ // 0x446a @0xf
0x445b…4476 at0010 = ╱53╱S╱ // 0x446b @0x10
0x445b…4476 at0011 = ╱56╱V╱ // 0x446c @0x11
0x445b…4476 at0012 = ╱41╱A╱ // 0x446d @0x12
0x445b…4476 at0013 = ╱52╱R╱ // 0x446e @0x13
0x445b…4476 at0014 = ╱ef╱$╱ // 0x446f @0x14
0x445b…4476 at0015 = ╱df╱ = ╱ // 0x4470 @0x15
0x445b…4476 at0016 = ╱22╱"╱ // 0x4471 @0x16
0x445b…4476 at0017 = ╱6a╱j╱ // 0x4472 @0x17
0x445b…4476 at0018 = ╱22╱"╱ // 0x4473 @0x18
0x445b…4476 at0019 = ╱b5╱ THEN ╱ // 0x4474 @0x19
0x445b…4476 at001a = EOL // 0x4475 @0x1a
0x445b…4476 }
0x4476…4486 da74 6250 CURSOR 12,LINE
0x4476…4486 LineComal80 {
0x4476…4486 ptr = 0xda74 // 0x4476 @0x0
0x4476…4486 lno = 0x186a // 0x4478 @0x2
0x4476…4486 at0004 = ╱a1╱ CURSOR ╱ // 0x447a @0x4
0x4476…4486 at0005 = ╱31╱1╱ // 0x447b @0x5
0x4476…4486 at0006 = ╱32╱2╱ // 0x447c @0x6
0x4476…4486 at0007 = ╱f20c00╱ // 0x447d @0x7
0x4476…4486 at000a = ╱ec╱,╱ // 0x4480 @0xa
0x4476…4486 at000b = ╱4c╱L╱ // 0x4481 @0xb
0x4476…4486 at000c = ╱49╱I╱ // 0x4482 @0xc
0x4476…4486 at000d = ╱4e╱N╱ // 0x4483 @0xd
0x4476…4486 at000e = ╱45╱E╱ // 0x4484 @0xe
0x4476…4486 at000f = EOL // 0x4485 @0xf
0x4476…4486 }
0x4486…44c1 daaf 6260 PRINT "<Z> Der ventes på at printeren bliver ledig...."
0x4486…44c1 LineComal80 {
0x4486…44c1 ptr = 0xdaaf // 0x4486 @0x0
0x4486…44c1 lno = 0x1874 // 0x4488 @0x2
0x4486…44c1 at0004 = ╱92╱ PRINT ╱ // 0x448a @0x4
0x4486…44c1 at0005 = ╱22╱"╱ // 0x448b @0x5
0x4486…44c1 at0006 = ╱3c╱<╱ // 0x448c @0x6
0x4486…44c1 at0007 = ╱5a╱Z╱ // 0x448d @0x7
0x4486…44c1 at0008 = ╱3e╱>╱ // 0x448e @0x8
0x4486…44c1 at0009 = ╱20╱…╱ // 0x448f @0x9
0x4486…44c1 at000a = ╱20╱…╱ // 0x4490 @0xa
0x4486…44c1 at000b = ╱20╱…╱ // 0x4491 @0xb
0x4486…44c1 at000c = ╱20╱…╱ // 0x4492 @0xc
0x4486…44c1 at000d = ╱20╱…╱ // 0x4493 @0xd
0x4486…44c1 at000e = ╱44╱D╱ // 0x4494 @0xe
0x4486…44c1 at000f = ╱65╱e╱ // 0x4495 @0xf
0x4486…44c1 at0010 = ╱72╱r╱ // 0x4496 @0x10
0x4486…44c1 at0011 = ╱20╱…╱ // 0x4497 @0x11
0x4486…44c1 at0012 = ╱76╱v╱ // 0x4498 @0x12
0x4486…44c1 at0013 = ╱65╱e╱ // 0x4499 @0x13
0x4486…44c1 at0014 = ╱6e╱n╱ // 0x449a @0x14
0x4486…44c1 at0015 = ╱74╱t╱ // 0x449b @0x15
0x4486…44c1 at0016 = ╱65╱e╱ // 0x449c @0x16
0x4486…44c1 at0017 = ╱73╱s╱ // 0x449d @0x17
0x4486…44c1 at0018 = ╱20╱…╱ // 0x449e @0x18
0x4486…44c1 at0019 = ╱70╱p╱ // 0x449f @0x19
0x4486…44c1 at001a = ╱7d╱å╱ // 0x44a0 @0x1a
0x4486…44c1 at001b = ╱20╱…╱ // 0x44a1 @0x1b
0x4486…44c1 at001c = ╱61╱a╱ // 0x44a2 @0x1c
0x4486…44c1 at001d = ╱74╱t╱ // 0x44a3 @0x1d
0x4486…44c1 at001e = ╱20╱…╱ // 0x44a4 @0x1e
0x4486…44c1 at001f = ╱70╱p╱ // 0x44a5 @0x1f
0x4486…44c1 at0020 = ╱72╱r╱ // 0x44a6 @0x20
0x4486…44c1 at0021 = ╱69╱i╱ // 0x44a7 @0x21
0x4486…44c1 at0022 = ╱6e╱n╱ // 0x44a8 @0x22
0x4486…44c1 at0023 = ╱74╱t╱ // 0x44a9 @0x23
0x4486…44c1 at0024 = ╱65╱e╱ // 0x44aa @0x24
0x4486…44c1 at0025 = ╱72╱r╱ // 0x44ab @0x25
0x4486…44c1 at0026 = ╱65╱e╱ // 0x44ac @0x26
0x4486…44c1 at0027 = ╱6e╱n╱ // 0x44ad @0x27
0x4486…44c1 at0028 = ╱20╱…╱ // 0x44ae @0x28
0x4486…44c1 at0029 = ╱62╱b╱ // 0x44af @0x29
0x4486…44c1 at002a = ╱6c╱l╱ // 0x44b0 @0x2a
0x4486…44c1 at002b = ╱69╱i╱ // 0x44b1 @0x2b
0x4486…44c1 at002c = ╱76╱v╱ // 0x44b2 @0x2c
0x4486…44c1 at002d = ╱65╱e╱ // 0x44b3 @0x2d
0x4486…44c1 at002e = ╱72╱r╱ // 0x44b4 @0x2e
0x4486…44c1 at002f = ╱20╱…╱ // 0x44b5 @0x2f
0x4486…44c1 at0030 = ╱6c╱l╱ // 0x44b6 @0x30
0x4486…44c1 at0031 = ╱65╱e╱ // 0x44b7 @0x31
0x4486…44c1 at0032 = ╱64╱d╱ // 0x44b8 @0x32
0x4486…44c1 at0033 = ╱69╱i╱ // 0x44b9 @0x33
0x4486…44c1 at0034 = ╱67╱g╱ // 0x44ba @0x34
0x4486…44c1 at0035 = ╱2e╱.╱ // 0x44bb @0x35
0x4486…44c1 at0036 = ╱2e╱.╱ // 0x44bc @0x36
0x4486…44c1 at0037 = ╱2e╱.╱ // 0x44bd @0x37
0x4486…44c1 at0038 = ╱2e╱.╱ // 0x44be @0x38
0x4486…44c1 at0039 = ╱22╱"╱ // 0x44bf @0x39
0x4486…44c1 at003a = EOL // 0x44c0 @0x3a
0x4486…44c1 }
0x44c1…44cd dabb 6270 PRINT "<SZ>"
0x44c1…44cd LineComal80 {
0x44c1…44cd ptr = 0xdabb // 0x44c1 @0x0
0x44c1…44cd lno = 0x187e // 0x44c3 @0x2
0x44c1…44cd at0004 = ╱92╱ PRINT ╱ // 0x44c5 @0x4
0x44c1…44cd at0005 = ╱22╱"╱ // 0x44c6 @0x5
0x44c1…44cd at0006 = ╱3c╱<╱ // 0x44c7 @0x6
0x44c1…44cd at0007 = ╱53╱S╱ // 0x44c8 @0x7
0x44c1…44cd at0008 = ╱5a╱Z╱ // 0x44c9 @0x8
0x44c1…44cd at0009 = ╱3e╱>╱ // 0x44ca @0x9
0x44c1…44cd at000a = ╱22╱"╱ // 0x44cb @0xa
0x44c1…44cd at000b = EOL // 0x44cc @0xb
0x44c1…44cd }
0x44cd…44db dac9 6280 WHILE ╱cd╱ ("P") DO
0x44cd…44db LineComal80 {
0x44cd…44db ptr = 0xdac9 // 0x44cd @0x0
0x44cd…44db lno = 0x1888 // 0x44cf @0x2
0x44cd…44db at0004 = ╱9371╱ WHILE ╱ // 0x44d1 @0x4
0x44cd…44db at0006 = ╱cd╱ // 0x44d3 @0x6
0x44cd…44db at0007 = ╱ed╱(╱ // 0x44d4 @0x7
0x44cd…44db at0008 = ╱22╱"╱ // 0x44d5 @0x8
0x44cd…44db at0009 = ╱50╱P╱ // 0x44d6 @0x9
0x44cd…44db at000a = ╱22╱"╱ // 0x44d7 @0xa
0x44cd…44db at000b = ╱ee╱)╱ // 0x44d8 @0xb
0x44cd…44db at000c = ╱bb╱ DO ╱ // 0x44d9 @0xc
0x44cd…44db at000d = EOL // 0x44da @0xd
0x44cd…44db }
0x44db…44ec dada 6290 LET SEK := ╱ca╱ (5)
0x44db…44ec LineComal80 {
0x44db…44ec ptr = 0xdada // 0x44db @0x0
0x44db…44ec lno = 0x1892 // 0x44dd @0x2
0x44db…44ec at0004 = ╱86╱ LET ╱ // 0x44df @0x4
0x44db…44ec at0005 = ╱53╱S╱ // 0x44e0 @0x5
0x44db…44ec at0006 = ╱45╱E╱ // 0x44e1 @0x6
0x44db…44ec at0007 = ╱4b╱K╱ // 0x44e2 @0x7
0x44db…44ec at0008 = ╱f0╱ := ╱ // 0x44e3 @0x8
0x44db…44ec at0009 = ╱ca╱ // 0x44e4 @0x9
0x44db…44ec at000a = ╱ed╱(╱ // 0x44e5 @0xa
0x44db…44ec at000b = ╱35╱5╱ // 0x44e6 @0xb
0x44db…44ec at000c = ╱f20500╱ // 0x44e7 @0xc
0x44db…44ec at000f = ╱ee╱)╱ // 0x44ea @0xf
0x44db…44ec at0010 = EOL // 0x44eb @0x10
0x44db…44ec }
0x44ec…44fc daea 6300 SELECT OUTPUT "P" + PRTNR$
0x44ec…44fc LineComal80 {
0x44ec…44fc ptr = 0xdaea // 0x44ec @0x0
0x44ec…44fc lno = 0x189c // 0x44ee @0x2
0x44ec…44fc at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x44f0 @0x4
0x44ec…44fc at0005 = ╱22╱"╱ // 0x44f1 @0x5
0x44ec…44fc at0006 = ╱50╱P╱ // 0x44f2 @0x6
0x44ec…44fc at0007 = ╱22╱"╱ // 0x44f3 @0x7
0x44ec…44fc at0008 = ╱eb╱ + ╱ // 0x44f4 @0x8
0x44ec…44fc at0009 = ╱50╱P╱ // 0x44f5 @0x9
0x44ec…44fc at000a = ╱52╱R╱ // 0x44f6 @0xa
0x44ec…44fc at000b = ╱54╱T╱ // 0x44f7 @0xb
0x44ec…44fc at000c = ╱4e╱N╱ // 0x44f8 @0xc
0x44ec…44fc at000d = ╱52╱R╱ // 0x44f9 @0xd
0x44ec…44fc at000e = ╱ef╱$╱ // 0x44fa @0xe
0x44ec…44fc at000f = EOL // 0x44fb @0xf
0x44ec…44fc }
0x44fc…4502 daf0 6310 ENDWHILE
0x44fc…4502 LineComal80 {
0x44fc…4502 ptr = 0xdaf0 // 0x44fc @0x0
0x44fc…4502 lno = 0x18a6 // 0x44fe @0x2
0x44fc…4502 at0004 = ╱94╱ ENDWHILE ╱ // 0x4500 @0x4
0x44fc…4502 at0005 = EOL // 0x4501 @0x5
0x44fc…4502 }
0x4502…4509 daf7 6320 ELSE
0x4502…4509 LineComal80 {
0x4502…4509 ptr = 0xdaf7 // 0x4502 @0x0
0x4502…4509 lno = 0x18b0 // 0x4504 @0x2
0x4502…4509 at0004 = ╱9a72╱ ELSE ╱ // 0x4506 @0x4
0x4502…4509 at0006 = EOL // 0x4508 @0x6
0x4502…4509 }
0x4509…4517 db05 6330 LET OK := FALSE
0x4509…4517 LineComal80 {
0x4509…4517 ptr = 0xdb05 // 0x4509 @0x0
0x4509…4517 lno = 0x18ba // 0x450b @0x2
0x4509…4517 at0004 = ╱86╱ LET ╱ // 0x450d @0x4
0x4509…4517 at0005 = ╱4f╱O╱ // 0x450e @0x5
0x4509…4517 at0006 = ╱4b╱K╱ // 0x450f @0x6
0x4509…4517 at0007 = ╱f0╱ := ╱ // 0x4510 @0x7
0x4509…4517 at0008 = ╱46╱F╱ // 0x4511 @0x8
0x4509…4517 at0009 = ╱41╱A╱ // 0x4512 @0x9
0x4509…4517 at000a = ╱4c╱L╱ // 0x4513 @0xa
0x4509…4517 at000b = ╱53╱S╱ // 0x4514 @0xb
0x4509…4517 at000c = ╱45╱E╱ // 0x4515 @0xc
0x4509…4517 at000d = EOL // 0x4516 @0xd
0x4509…4517 }
0x4517…451d db0b 6340 ENDIF
0x4517…451d LineComal80 {
0x4517…451d ptr = 0xdb0b // 0x4517 @0x0
0x4517…451d lno = 0x18c4 // 0x4519 @0x2
0x4517…451d at0004 = ╱9c╱ ENDIF ╱ // 0x451b @0x4
0x4517…451d at0005 = EOL // 0x451c @0x5
0x4517…451d }
0x451d…4523 db11 6350 ENDIF
0x451d…4523 LineComal80 {
0x451d…4523 ptr = 0xdb11 // 0x451d @0x0
0x451d…4523 lno = 0x18ce // 0x451f @0x2
0x451d…4523 at0004 = ╱9c╱ ENDIF ╱ // 0x4521 @0x4
0x451d…4523 at0005 = EOL // 0x4522 @0x5
0x451d…4523 }
0x4523…4532 db20 6360 CURSOR 1,LINE
0x4523…4532 LineComal80 {
0x4523…4532 ptr = 0xdb20 // 0x4523 @0x0
0x4523…4532 lno = 0x18d8 // 0x4525 @0x2
0x4523…4532 at0004 = ╱a1╱ CURSOR ╱ // 0x4527 @0x4
0x4523…4532 at0005 = ╱31╱1╱ // 0x4528 @0x5
0x4523…4532 at0006 = ╱f20100╱ // 0x4529 @0x6
0x4523…4532 at0009 = ╱ec╱,╱ // 0x452c @0x9
0x4523…4532 at000a = ╱4c╱L╱ // 0x452d @0xa
0x4523…4532 at000b = ╱49╱I╱ // 0x452e @0xb
0x4523…4532 at000c = ╱4e╱N╱ // 0x452f @0xc
0x4523…4532 at000d = ╱45╱E╱ // 0x4530 @0xd
0x4523…4532 at000e = EOL // 0x4531 @0xe
0x4523…4532 }
0x4532…453d db2b 6370 PRINT "<Z>"
0x4532…453d LineComal80 {
0x4532…453d ptr = 0xdb2b // 0x4532 @0x0
0x4532…453d lno = 0x18e2 // 0x4534 @0x2
0x4532…453d at0004 = ╱92╱ PRINT ╱ // 0x4536 @0x4
0x4532…453d at0005 = ╱22╱"╱ // 0x4537 @0x5
0x4532…453d at0006 = ╱3c╱<╱ // 0x4538 @0x6
0x4532…453d at0007 = ╱5a╱Z╱ // 0x4539 @0x7
0x4532…453d at0008 = ╱3e╱>╱ // 0x453a @0x8
0x4532…453d at0009 = ╱22╱"╱ // 0x453b @0x9
0x4532…453d at000a = EOL // 0x453c @0xa
0x4532…453d }
0x453d…4549 db37 6380 PRINT "<SZ>"
0x453d…4549 LineComal80 {
0x453d…4549 ptr = 0xdb37 // 0x453d @0x0
0x453d…4549 lno = 0x18ec // 0x453f @0x2
0x453d…4549 at0004 = ╱92╱ PRINT ╱ // 0x4541 @0x4
0x453d…4549 at0005 = ╱22╱"╱ // 0x4542 @0x5
0x453d…4549 at0006 = ╱3c╱<╱ // 0x4543 @0x6
0x453d…4549 at0007 = ╱53╱S╱ // 0x4544 @0x7
0x453d…4549 at0008 = ╱5a╱Z╱ // 0x4545 @0x8
0x453d…4549 at0009 = ╱3e╱>╱ // 0x4546 @0x9
0x453d…4549 at000a = ╱22╱"╱ // 0x4547 @0xa
0x453d…4549 at000b = EOL // 0x4548 @0xb
0x453d…4549 }
0x4549…4557 db45 6390 ENDPROC PRINTRES
0x4549…4557 LineComal80 {
0x4549…4557 ptr = 0xdb45 // 0x4549 @0x0
0x4549…4557 lno = 0x18f6 // 0x454b @0x2
0x4549…4557 at0004 = ╱9f╱ ENDPROC ╱ // 0x454d @0x4
0x4549…4557 at0005 = ╱50╱P╱ // 0x454e @0x5
0x4549…4557 at0006 = ╱52╱R╱ // 0x454f @0x6
0x4549…4557 at0007 = ╱49╱I╱ // 0x4550 @0x7
0x4549…4557 at0008 = ╱4e╱N╱ // 0x4551 @0x8
0x4549…4557 at0009 = ╱54╱T╱ // 0x4552 @0x9
0x4549…4557 at000a = ╱52╱R╱ // 0x4553 @0xa
0x4549…4557 at000b = ╱45╱E╱ // 0x4554 @0xb
0x4549…4557 at000c = ╱53╱S╱ // 0x4555 @0xc
0x4549…4557 at000d = EOL // 0x4556 @0xd
0x4549…4557 }
0x4557…456f db5d 8000 PROC REMOVEBLANK( REF ÆÆ$)
0x4557…456f LineComal80 {
0x4557…456f ptr = 0xdb5d // 0x4557 @0x0
0x4557…456f lno = 0x1f40 // 0x4559 @0x2
0x4557…456f at0004 = ╱9e73╱ PROC ╱ // 0x455b @0x4
0x4557…456f at0006 = ╱52╱R╱ // 0x455d @0x6
0x4557…456f at0007 = ╱45╱E╱ // 0x455e @0x7
0x4557…456f at0008 = ╱4d╱M╱ // 0x455f @0x8
0x4557…456f at0009 = ╱4f╱O╱ // 0x4560 @0x9
0x4557…456f at000a = ╱56╱V╱ // 0x4561 @0xa
0x4557…456f at000b = ╱45╱E╱ // 0x4562 @0xb
0x4557…456f at000c = ╱42╱B╱ // 0x4563 @0xc
0x4557…456f at000d = ╱4c╱L╱ // 0x4564 @0xd
0x4557…456f at000e = ╱41╱A╱ // 0x4565 @0xe
0x4557…456f at000f = ╱4e╱N╱ // 0x4566 @0xf
0x4557…456f at0010 = ╱4b╱K╱ // 0x4567 @0x10
0x4557…456f at0011 = ╱ed╱(╱ // 0x4568 @0x11
0x4557…456f at0012 = ╱b6╱ REF ╱ // 0x4569 @0x12
0x4557…456f at0013 = ╱5b╱Æ╱ // 0x456a @0x13
0x4557…456f at0014 = ╱5b╱Æ╱ // 0x456b @0x14
0x4557…456f at0015 = ╱ef╱$╱ // 0x456c @0x15
0x4557…456f at0016 = ╱ee╱)╱ // 0x456d @0x16
0x4557…456f at0017 = EOL // 0x456e @0x17
0x4557…456f }
0x456f…457b db69 8010 LET J := 0
0x456f…457b LineComal80 {
0x456f…457b ptr = 0xdb69 // 0x456f @0x0
0x456f…457b lno = 0x1f4a // 0x4571 @0x2
0x456f…457b at0004 = ╱86╱ LET ╱ // 0x4573 @0x4
0x456f…457b at0005 = ╱4a╱J╱ // 0x4574 @0x5
0x456f…457b at0006 = ╱f0╱ := ╱ // 0x4575 @0x6
0x456f…457b at0007 = ╱30╱0╱ // 0x4576 @0x7
0x456f…457b at0008 = ╱f20000╱ // 0x4577 @0x8
0x456f…457b at000b = EOL // 0x457a @0xb
0x456f…457b }
0x457b…4590 (231,) db7e 8020 FOR I := 1 TO (ÆÆ$) DO
0x457b…4590 LineComal80 {
0x457b…4590 ptr = 0xdb7e // 0x457b @0x0
0x457b…4590 lno = 0x1f54 // 0x457d @0x2
0x457b…4590 at0004 = ╱8374╱ FOR ╱ // 0x457f @0x4
0x457b…4590 at0006 = ╱49╱I╱ // 0x4581 @0x6
0x457b…4590 at0007 = ╱f0╱ := ╱ // 0x4582 @0x7
0x457b…4590 at0008 = ╱31╱1╱ // 0x4583 @0x8
0x457b…4590 at0009 = ╱f20100╱ // 0x4584 @0x9
0x457b…4590 at000c = ╱b7cb╱ TO ╱ // 0x4587 @0xc
0x457b…4590 at000e = ╱ed╱(╱ // 0x4589 @0xe
0x457b…4590 at000f = ╱5b╱Æ╱ // 0x458a @0xf
0x457b…4590 at0010 = ╱5b╱Æ╱ // 0x458b @0x10
0x457b…4590 at0011 = ╱ef╱$╱ // 0x458c @0x11
0x457b…4590 at0012 = ╱ee╱)╱ // 0x458d @0x12
0x457b…4590 at0013 = ╱bb╱ DO ╱ // 0x458e @0x13
0x457b…4590 at0014 = EOL // 0x458f @0x14
0x457b…4590 }
0x4590…45b9 dba7 8030 IF ÆÆ$(I) >< " " THEN LET J := J + 1 ; ÆÆ$(J) := ÆÆ$(I)
0x4590…45b9 LineComal80 {
0x4590…45b9 ptr = 0xdba7 // 0x4590 @0x0
0x4590…45b9 lno = 0x1f5e // 0x4592 @0x2
0x4590…45b9 at0004 = ╱8200╱ IF ╱ // 0x4594 @0x4
0x4590…45b9 at0006 = ╱5b╱Æ╱ // 0x4596 @0x6
0x4590…45b9 at0007 = ╱5b╱Æ╱ // 0x4597 @0x7
0x4590…45b9 at0008 = ╱ef╱$╱ // 0x4598 @0x8
0x4590…45b9 at0009 = ╱ed╱(╱ // 0x4599 @0x9
0x4590…45b9 at000a = ╱49╱I╱ // 0x459a @0xa
0x4590…45b9 at000b = ╱ee╱)╱ // 0x459b @0xb
0x4590…45b9 at000c = ╱e4╱ >< ╱ // 0x459c @0xc
0x4590…45b9 at000d = ╱22╱"╱ // 0x459d @0xd
0x4590…45b9 at000e = ╱20╱…╱ // 0x459e @0xe
0x4590…45b9 at000f = ╱22╱"╱ // 0x459f @0xf
0x4590…45b9 at0010 = ╱b5╱ THEN ╱ // 0x45a0 @0x10
0x4590…45b9 at0011 = ╱86╱ LET ╱ // 0x45a1 @0x11
0x4590…45b9 at0012 = ╱4a╱J╱ // 0x45a2 @0x12
0x4590…45b9 at0013 = ╱f0╱ := ╱ // 0x45a3 @0x13
0x4590…45b9 at0014 = ╱4a╱J╱ // 0x45a4 @0x14
0x4590…45b9 at0015 = ╱e5╱ + ╱ // 0x45a5 @0x15
0x4590…45b9 at0016 = ╱31╱1╱ // 0x45a6 @0x16
0x4590…45b9 at0017 = ╱f20100╱ // 0x45a7 @0x17
0x4590…45b9 at001a = ╱ea╱ ; ╱ // 0x45aa @0x1a
0x4590…45b9 at001b = ╱5b╱Æ╱ // 0x45ab @0x1b
0x4590…45b9 at001c = ╱5b╱Æ╱ // 0x45ac @0x1c
0x4590…45b9 at001d = ╱ef╱$╱ // 0x45ad @0x1d
0x4590…45b9 at001e = ╱ed╱(╱ // 0x45ae @0x1e
0x4590…45b9 at001f = ╱4a╱J╱ // 0x45af @0x1f
0x4590…45b9 at0020 = ╱ee╱)╱ // 0x45b0 @0x20
0x4590…45b9 at0021 = ╱f0╱ := ╱ // 0x45b1 @0x21
0x4590…45b9 at0022 = ╱5b╱Æ╱ // 0x45b2 @0x22
0x4590…45b9 at0023 = ╱5b╱Æ╱ // 0x45b3 @0x23
0x4590…45b9 at0024 = ╱ef╱$╱ // 0x45b4 @0x24
0x4590…45b9 at0025 = ╱ed╱(╱ // 0x45b5 @0x25
0x4590…45b9 at0026 = ╱49╱I╱ // 0x45b6 @0x26
0x4590…45b9 at0027 = ╱ee╱)╱ // 0x45b7 @0x27
0x4590…45b9 at0028 = EOL // 0x45b8 @0x28
0x4590…45b9 }
0x45b9…45c0 dc19 8040 NEXT I
0x45b9…45c0 LineComal80 {
0x45b9…45c0 ptr = 0xdc19 // 0x45b9 @0x0
0x45b9…45c0 lno = 0x1f68 // 0x45bb @0x2
0x45b9…45c0 at0004 = ╱84╱ NEXT ╱ // 0x45bd @0x4
0x45b9…45c0 at0005 = ╱49╱I╱ // 0x45be @0x5
0x45b9…45c0 at0006 = EOL // 0x45bf @0x6
0x45b9…45c0 }
0x45c0…45d1 0000 8050 ENDPROC REMOVEBLANK
0x45c0…45d1 LineComal80 {
0x45c0…45d1 ptr = 0x0000 // 0x45c0 @0x0
0x45c0…45d1 lno = 0x1f72 // 0x45c2 @0x2
0x45c0…45d1 at0004 = ╱9f╱ ENDPROC ╱ // 0x45c4 @0x4
0x45c0…45d1 at0005 = ╱52╱R╱ // 0x45c5 @0x5
0x45c0…45d1 at0006 = ╱45╱E╱ // 0x45c6 @0x6
0x45c0…45d1 at0007 = ╱4d╱M╱ // 0x45c7 @0x7
0x45c0…45d1 at0008 = ╱4f╱O╱ // 0x45c8 @0x8
0x45c0…45d1 at0009 = ╱56╱V╱ // 0x45c9 @0x9
0x45c0…45d1 at000a = ╱45╱E╱ // 0x45ca @0xa
0x45c0…45d1 at000b = ╱42╱B╱ // 0x45cb @0xb
0x45c0…45d1 at000c = ╱4c╱L╱ // 0x45cc @0xc
0x45c0…45d1 at000d = ╱41╱A╱ // 0x45cd @0xd
0x45c0…45d1 at000e = ╱4e╱N╱ // 0x45ce @0xe
0x45c0…45d1 at000f = ╱4b╱K╱ // 0x45cf @0xf
0x45c0…45d1 at0010 = EOL // 0x45d0 @0x10
0x45c0…45d1 }
0x45d1…45e0 59 b2 b5 0a 9d 52 45 4d 4f 56 45 42 4c 41 4e ┆Y REMOVEBLAN┆
0x45e0…4600 4b ff 59 b2 b5 0a 9d 52 45 4d 4f 56 45 42 4c 41 4e 4b ed 53 56 41 52 ef ee ff 08 b1 19 0a 9d 52 ┆K Y REMOVEBLANK SVAR R┆
0x4600…4615 45 4d 4f 56 45 42 4c 41 4e 4b ed 53 56 41 52 ef ee ff a5 ad 98 ┆EMOVEBLANK SVAR ┆
0x4615…4635 (233,) 08 92 22 3c 5a 3e 22 ea d0 ed 52 5f 4c 49 4e ec 32 f2 02 00 ee ff ae db 6d 1f 86 5b 5b ef f0 5b ┆ "<Z>" R_LIN 2 m ÆÆ Æ┆
0x4635…4640 5b ef ed 31 f2 01 00 f1 4a ee ff ┆Æ 1 J ┆
0x4640…4646 (234,) ee 95 ee 95 00 00 ┆ ┆