|
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: 16886 (0x41f6)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSKAY.B«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSKAY.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
0350 // Hjælpevariable
0360 REAL TOT(6)
0370 INTEGER HIGH,LOW,POS,KREDIT,DEBET,LIN_T,MAX_LIN,T_IDX,K
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 @@KONTO
0470 DIM KONTO$ OF 17
0480 DIM ST_DATO$ OF 6
0490 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0500 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0510 REAL KTO_PRIMO,KTO_ULTIMO
0520 INTEGER KTO_FP,KTO_SP
0530 // Variable til filen @@KTOIDX
0540 DIM KTOIDX$ OF 17
0550 INTEGER I_HØJREC,I_MAXREC
0560 DIM KTONR$ OF 8
0570 INTEGER RECNR
0580 // Variable til filen @@ST_KTO
0590 DIM ST_KTO$ OF 17
0600 DIM KASSE_KTO$ OF 8,BANK_KTO$ OF 8,GIRO_KTO$ OF 8
0610 // Variable til filen @@DG_POS
0620 DIM DG_POS$ OF 17
0630 DIM P_BDAT$ OF 6
0640 REAL P_DEB,P_KRED
0650 INTEGER P_HØJREC,P_MAXREC,S_NR_DG_POS
0660 DIM P_BKTO$ OF 8,P_MKOD$ OF 1,P_BNR$ OF 5,P_TXT$ OF 20
0670 REAL P_BKR
0680 INTEGER P_DK
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 ST_KTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "ST_KTO"
0920 LET DG_POS$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "DG_POS"
0930 EXEC OPENFIL(KTOIDX$,"r")
0940 EXEC OPENFIL(KONTO$,"R")
0950 EXEC OPENFIL(DG_POS$,"W")
0960 EXEC OPENFIL(ST_KTO$,"R")
0970 GET ST_KTO$,1 : KASSE_KTO$
0980 GET ST_KTO$,2 : BANK_KTO$
0990 GET ST_KTO$,3 : GIRO_KTO$
1000 CLOSE ST_KTO$
1010 ENDPROC INITIER
1020
1030 PROC FUNKTIONSMENU
1040 REPEAT
1050 EXEC OVERSKRIFT("Konteringsark",6)
1060 PRINT "<C2009>Indtastning af posteringer IP"
1070 PRINT "<C2011>Udskrivning af konteringskladde UK"
1080 PRINT "<C2013>Ret posteringer RP"
1090 PRINT "<C2015>Bogfør posteringer BP"
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 "/IP/ip/UK/uk/RP/rp/BP/bp/" THEN
1170 EXEC FEJL("Ulovlig funktionskode: '" + SVAR$(1 : 2) + "'")
1180 ENDIF
1190 UNTIL OK
1200 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
1210 CASE SVAR$(1 : 2) OF
1220 WHILE "IP","ip"
1230 IF _HØJREC > 1 AND P_BDAT$ >< SYST_DAT$ THEN
1240 PRINT "<XC1210>Du er begyndt på en ny dato siden du sidst indtastede"
1250 PRINT "<C1211>posteringer - posteringerne skal bogføres før du kan "
1260 PRINT "<C1212>indtaste flere posteringer."
1270 INPUT "<SC6523>Tryk RETURN" : SVAR$
1280 ELSE
1290 EXEC INDTAST_POSTER
1300 ENDIF
1310 WHILE "UK","uk"
1320 EXEC UDSKRIV_POSTER
1330 WHILE "RP","rp"
1340 EXEC RET_POSTER
1350 WHILE "BP","bp"
1360 IF P_DEB >< P_KRED THEN EXEC FEJL("Ulovlig bogføring - debet < > kredit ")
1370 IF _DEB = 0 AND P_KRED = 0 THEN
1380 EXEC FEJL("Ulovlig bogføring - ingen posteringer")
1390 ENDIF
1400 IF OK THEN
1410 INPUT "<SC6524>Tryk RETURN" : SVAR$
1420 ELSE
1430 LET PROGRAM$ := PRGFL$ + ":SYSBP"
1440 CHAIN PROGRAM$
1450 ENDIF
1460 OTHERWISE
1470 CHAIN PROGRAM$
1480 ENDCASE
1490 UNTIL FALSE
1500 ENDPROC FUNKTIONSMENU
1510
1520 PROC TERMINAL_IDX
1530 LET PPAR := 5 ; RESRV := 0
1540 CALL :PRES"
1550 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
1560 ENDPROC TERMINAL_IDX
1570
1580 PROC OPENFIL(FNAVN$,WAY$)
1590 REPEAT
1600 IF AY$ = "W" OR WAY$ = "w" THEN
1610 OPEN FNAVN$,W
1620 ELSE
1630 OPEN FNAVN$,R
1640 ENDIF
1650 IF (FNAVN$) THEN
1660 PRINT "<SC0123>" ; CHR$ (7)
1670 IF (FNAVN$) = 6 THEN
1680 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
1690 INPUT "" : SVAR$
1700 ELSE
1710 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
1720 PRINT "<S>" ; FNAVN$ ; " ***"
1730 INPUT "" : SVAR$
1740 PRINT "<C0102>" ; SPC$
1750 ENDIF
1760 ENDIF
1770 UNTIL NOT ╱cd╱ (FNAVN$)
1780 ENDPROC OPENFIL
1790
1800 PROC TAL_CONTROL( REF RST$)
1810 LET J := 0 ; OK := TRUE
1820 FOR I := 1 TO (RST$) DO
1830 IF RST$(I) IN TAL$ + "." THEN LET J := J + 1 ; RST$(J) := RST$(I)
1840 NEXT I
1850 IF = 0 THEN
1860 LET OK := FALSE
1870 ELSE
1880 LET RST$ := RST$(1 : J)
1890 ENDIF
1900 ENDPROC TAL_CONTROL
1910
1920 PROC DIV_POSHOVED
1930 EXEC OVERSKRIFT("INDTASTNING AF DIVERSE POSTERINGER",4)
1940 PRINT "<C0105> BILAG TEKST MOMS KO"
1950 PRINT "<C0106> NR KODE NU"
1960 PRINT "<C0107>----------------------------------------"
1970 PRINT "<C4105>NTO- DEBET KREDIT F/R/S "
1980 PRINT "<C4106>MMER "
1990 PRINT "<C4107>----------------------------------------"
2000 ENDPROC DIV_POSHOVED
2010
2020 PROC OVERSKRIFT(ST$,L)
2030 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
2040 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
2050 PRINT SYST_DAT$(5 : 2)
2060 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
2070 PRINT "*** " ; ST$ ; " ***"
2080 ENDPROC OVERSKRIFT
2090
2100 PROC SL_FEJLLINIE
2110 LET OK := TRUE
2120 PRINT "<C0102>" ; SPC$
2130 ENDPROC SL_FEJLLINIE
2140
2150 PROC FEJL(ST$)
2160 LET OK := FALSE
2170 CURSOR 36 - ╱cb╱ (ST$) / 2,2
2180 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
2190 ENDPROC FEJL
2200
2210 PROC RET_LINIER
2220 REPEAT
2230 PRINT "<SC0123>" ; SPC$(1 : 78)
2240 LET SVAR$ := "j"
2250 EDIT "<SC1723>Ok (j) eller linienummer der skal rettes? " : SVAR$
2260 IF "/" + SVAR$ + "/" IN "/J/j/" THEN
2270 EXEC TAL_CONTROL(SVAR$)
2280 IF K THEN
2290 IF (SVAR$) < P_HØJREC AND ASC (SVAR$) > 0 THEN
2300 EXEC EDIT_LIN( ASC (SVAR$))
2310 ENDIF
2320 ENDIF
2330 ENDIF
2340 UNTIL "/" + SVAR$ + "/" IN "/J/j/"
2350 ENDPROC RET_LINIER
2360
2370 PROC LÆS_KONTO(P)
2380 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
2390 ENDPROC LÆS_KONTO
2400
2410 PROC ST_BGST( REF RST$)
2420 FOR I := 1 TO (RST$) DO
2430 IF RST$(I) =< "å" AND RST$(I) >= "a" THEN LET RST$(I) := CHR$ ( ╱cc╱ (RST$(I)) - 32)
2440 NEXT I
2450 ENDPROC ST_BGST
2460
2470 PROC INDTAST_POSTER
2480 EXEC SKRIV_LINIER
2490 LET SVAR$ := "F"
2500 WHILE SVAR$ = "F" DO
2510 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
2520 IF P_HØJREC = 1 THEN LET P_BDAT$ := SYST_DAT$ ; P_DEB,P_KRED := 0
2530 IF _HØJREC = P_MAXREC THEN
2540 EXEC FEJL("Der kan ikke indtastes flere posteringer før bogføring")
2550 INPUT "<SC6524>Tryk RETURN" : SVAR$
2560 EXEC SL_FEJLLINIE
2570 EXIT
2580 ENDIF
2590 LET P_HØJREC := P_HØJREC + 1
2600 EXEC EDIT_LIN(P_HØJREC - 1)
2610 PUT DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
2620 IF P_HØJREC - 1) MOD 12 = 0 AND SVAR$ = "F" THEN
2630 EXEC RET_LINIER
2640 EXEC DIV_POSHOVED
2650 LET SVAR$ := "F"
2660 ENDIF
2670 ENDWHILE
2680 EXEC RET_LINIER
2690 ENDPROC INDTAST_POSTER
2700
2710 PROC SKRIV_LINIER
2720 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
2730 EXEC DIV_POSHOVED
2740 FOR I := P_HØJREC - (P_HØJREC - 1) MOD 12 TO _HØJREC - 1 DO
2750 IF > 0 THEN
2760 EXEC LÆS_DG_POS(I)
2770 EXEC SKRIV_LIN(I)
2780 ENDIF
2790 NEXT I
2800 ENDPROC SKRIV_LINIER
2810
2820 PROC SKRIV_DG_POS(P)
2830 PUT DG_POS$,P + 1 : P_BKTO$,P_MKOD$,P_BNR$,P_TXT$,P_BKR,P_DK
2840 ENDPROC SKRIV_DG_POS
2850
2860 PROC LÆS_DG_POS(P)
2870 GET DG_POS$,P + 1 : P_BKTO$,P_MKOD$,P_BNR$,P_TXT$,P_BKR,P_DK
2880 ENDPROC LÆS_DG_POS
2890
2900 PROC SKRIV_LIN(R_LIN)
2910 IF P_BNR$ = "*****" THEN EXIT
2920 LET R_SLIN := R_LIN MOD 12 + 7
2930 IF R_SLIN = 7 THEN LET R_SLIN := 12 + R_SLIN
2940 CURSOR 1,R_SLIN
2950 PRINT CHR$ (R_LIN,2)
2960 CURSOR 4,R_SLIN
2970 PRINT P_BNR$
2980 CURSOR 11,R_SLIN
2990 PRINT P_TXT$
3000 CURSOR 34,R_SLIN
3010 PRINT P_MKOD$
3020 CURSOR 39,R_SLIN
3030 PRINT P_BKTO$
3040 IF _DK = DEBET THEN
3050 CURSOR 49,R_SLIN
3060 ELSE
3070 CURSOR 61,R_SLIN
3080 ENDIF
3090 PRINT CHR$ (P_BKR,7,2)
3100 ENDPROC SKRIV_LIN
3110
3120 PROC EDIT_LIN(R_LIN)
3130 LET R_SLIN := R_LIN MOD 12 + 7
3140 IF R_SLIN = 7 THEN LET R_SLIN := R_SLIN + 12
3150 EXEC LÆS_DG_POS(R_LIN)
3160 IF _BNR$ = "*****" THEN
3170 LET P_BNR$ := "" ; P_TXT$ := "" ; P_MKOD$ := "" ; P_BKR := 0 ; P_DK := DEBET ; P_BKTO$ := ""
3180 ENDIF
3190 IF _DK = DEBET THEN
3200 LET P_DEB := P_DEB - P_BKR
3210 ELSE
3220 LET P_KRED := P_KRED - P_BKR
3230 ENDIF
3240 REPEAT
3250 EXEC SL_FEJLLINIE
3260 CURSOR 1,R_SLIN
3270 PRINT CHR$ (R_LIN,2)
3280 REPEAT
3290 CURSOR 4,R_SLIN
3300 EDIT "" : P_BNR$
3310 EXEC SL_FEJLLINIE
3320 IF _BNR$ = "*****" OR "/" + P_BNR$ + "/" IN "/SLUT/slut/" THEN
3330 LET OK := TRUE
3340 ELSE
3350 EXEC TAL_CONTROL(P_BNR$)
3360 IF NOT OK THEN EXEC FEJL("Ulovlig bilagsnummer")
3370 ENDIF
3380 UNTIL OK
3390 CURSOR 4,R_SLIN
3400 PRINT SPC$(1 : 5)
3410 CURSOR 4,R_SLIN
3420 IF _BNR$ = "*****" OR "/" + P_BNR$ + "/" IN "/SLUT/slut/" THEN
3430 IF /" + P_BNR$ + "/" IN "/slut/SLUT/" THEN
3440 LET SVAR$ := "S" ; P_BNR$ := "*****" ; P_HØJREC := P_HØJREC - 1
3450 ENDIF
3460 PRINT SPC$(1 : 76)
3470 EXIT
3480 ELSE
3490 PRINT P_BNR$
3500 ENDIF
3510 CURSOR 11,R_SLIN
3520 EDIT "" : P_TXT$
3530 REPEAT
3540 CURSOR 34,R_SLIN
3550 EDIT "" : P_MKOD$
3560 EXEC SL_FEJLLINIE
3570 EXEC ST_BGST(P_MKOD$)
3580 IF P_MKOD$ IN "IU " THEN
3590 EXEC FEJL("Ulovlig momskode: '" + P_MKOD$ + "'")
3600 ENDIF
3610 UNTIL OK
3540 REPEAT
3550 CURSOR 39,R_SLIN
3560 EDIT "" : P_BKTO$
3570 EXEC SL_FEJLLINIE
3580 LET IDXPOS := FIND_KTO(P_BKTO$)
3590 IF K THEN
3600 EXEC LÆS_KONTO(RECNR)
3610 IF TO_TYPE$ >< "A" THEN
3620 EXEC FEJL("Ulovlig kontonr - kontotype < > 'A'")
3630 ELSE
3720 IF _BKTO$ + "/" IN KASSE_KTO$ + "/" + BANK_KTO$ + "/" + GIRO_KTO$ + "/" THEN
3730 EXEC FEJL("Ulovlig kontonr - konto = kasse/bank/giro")
3740 ELSE
3640 PRINT "<C0102>" ; TAB(35 - ╱cb╱ (KTO_NAVN$) / 2) ; "Konto: " ; KTO_NAVN$
3760 ENDIF
3650 ENDIF
3660 ELSE
3670 EXEC FEJL("Ulovlig kontonr - konto findes ikke")
3680 ENDIF
3690 UNTIL OK
3700 REPEAT
3710 LET SVAR$ := CHR$ (P_BKR,7,2)
3720 IF P_BKR = 0 THEN LET SVAR$ := ""
3730 IF _DK = KREDIT THEN
3740 CURSOR 61,R_SLIN
3750 EDIT "" : SVAR$
3760 EXEC SL_FEJLLINIE
3770 EXEC TAL_CONTROL(SVAR$)
3780 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
3790 LET P_BKR := INT(100 * ASC ("0" + SVAR$) + 0.5) / 100
3800 CURSOR 61,R_SLIN
3810 IF _BKR > 0 THEN
3820 PRINT CHR$ (P_BKR,7,2)
3830 ELSE
3840 PRINT SPC$(1 : 10)
3850 ENDIF
3860 ELSE
3870 LET P_DK := DEBET
3880 CURSOR 49,R_SLIN
3890 EDIT "" : SVAR$
3900 EXEC SL_FEJLLINIE
3910 EXEC TAL_CONTROL(SVAR$)
3920 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
3930 LET P_BKR := INT(100 * ASC ("0" + SVAR$) + .5) / 100
3940 CURSOR 49,R_SLIN
3950 IF _BKR > 0 THEN
3960 PRINT CHR$ (P_BKR,7,2)
3970 ELSE
3980 PRINT SPC$(1 : 10)
3990 ENDIF
4000 ENDIF
4010 IF P_BKR =< 0 THEN LET P_DK := P_DK * ( - 1)
4020 UNTIL P_BKR > 0
4030 REPEAT
4040 LET SVAR$ := "f"
4050 CURSOR 77,R_SLIN
4060 EDIT "" : SVAR$(1)
4070 EXEC ST_BGST(SVAR$)
4080 UNTIL "/" + SVAR$ + "/" IN "/F/S/R/"
4090 UNTIL SVAR$ IN "FS"
4100 IF _DK = DEBET THEN
4110 LET P_DEB := P_DEB + P_BKR
4120 ELSE
4130 LET P_KRED := P_KRED + P_BKR
4140 ENDIF
4150 EXEC SKRIV_DIFF
4160 PUT DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
4170 EXEC SKRIV_DG_POS(R_LIN)
4180 EXEC SL_FEJLLINIE
4190 ENDPROC EDIT_LIN
4200
4210 PROC SKRIV_DIFF
4220 PRINT "<SC0120>" ; SPC$
4230 PRINT "<SC0121>" ; SPC$
4240 PRINT "<SC2220>Debet/kredit total " ; CHR$ (P_DEB,9,2)
4250 PRINT CHR$ (P_KRED,9,2)
4260 IF _DEB < P_KRED THEN
4270 PRINT "<SC2221>Difference " ; CHR$ (P_KRED - P_DEB,9,2)
4280 ELSE
4290 IF _KRED < P_DEB THEN
4300 PRINT "<SC2221>Difference"
4310 PRINT "<SC5921>" ; CHR$ (P_DEB - P_KRED,9,2)
4320 ENDIF
4330 ENDIF
4340 ENDPROC SKRIV_DIFF
4350
4360 PROC RET_POSTER
4370 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
4380 LET K := 0
4390 WHILE K < P_HØJREC - 1 DO
4400 IF (K + 12) MOD 12 = 0 THEN EXEC DIV_POSHOVED
4410 LET K := K + 1
4420 EXEC LÆS_DG_POS(K)
4430 EXEC SKRIV_LIN(K)
4440 IF K MOD 12 = 0 OR K = P_HØJREC - 1 THEN EXEC RET_LINIER
4450 ENDWHILE
4460 ENDPROC RET_POSTER
4470
4480 PROC UDSKRIV_POSTER
4490 EXEC OVERSKRIFT("Udskrivning af konteringskladde",7)
4620 EXEC PRINTRES("smal EDB-liste",12)
4510 LET LIN_T := 100 ; MAX_LIN := 72
4520 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
4530 LET P_DEB,P_KRED := 0
4540 FOR J := 1 TO _HØJREC - 1 DO
4550 EXEC LÆS_DG_POS(J)
4560 EXEC PRINT_LIN
4570 NEXT J
4580 IF LIN_T >< 100 THEN EXEC AFSLUT
4590 EXEC PRINTREL
4600 PUT DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
4610 ENDPROC UDSKRIV_POSTER
4620
4630 PROC SIDESKIFT
4640 FOR I := LIN_T TO AX_LIN DO PRINT
4650 LET LIN_T := 9
4660 PRINT "*** " ; SYST_NAVN$ ; " ***"
4670 PRINT
4680 PRINT "Firmanavn: " ; FIRMANAVN$
4690 PRINT
4700 PRINT "<S>*** KONTERINGSKLADDE PR. " ; P_BDAT$(1 : 2) ; "." ; P_BDAT$(3 : 2) ; "."
4710 PRINT "<S>" ; P_BDAT$(5 : 2) ; " **** UDSKREVET PR. "
4720 PRINT SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "." ; SYST_DAT$(5 : 2) ; " ***"
4730 PRINT
4860 PRINT "<S>BILAG TEKST MK KONTONR DEBET "
4870 PRINT " KREDIT "
4880 PRINT "<S>----- -------------------- -- -------- ----------"
4890 PRINT " ----------"
4900 IF _DEB > 0 OR P_KRED > 0 THEN
4910 PRINT TAB(8) ; "TRANSPORT" ; TAB(41) ; CHR$ (P_DEB,9,2) ; CHR$ (P_KRED,9,2)
4920 LET LIN_T := LIN_T + 1
4930 ENDIF
4940 ENDPROC SIDESKIFT
4950
4960 PROC PRINT_LIN
4970 IF P_BNR$ = "*****" THEN EXIT
4980 IF IN_T + 5 > MAX_LIN THEN
4990 IF _DEB > 0 OR P_KRED > 0 THEN
5000 PRINT "<S>----- -------------------- -- -------- ---------- "
4890 PRINT "----------"
4900 PRINT TAB(9) ; "TRANSPORT" ; TAB(41) ; CHR$ (P_DEB,9,2) ; CHR$ (P_KRED,9,2)
4910 LET LIN_T := LIN_T + 2
4920 ENDIF
4930 EXEC SIDESKIFT
4940 ENDIF
4950 LET LIN_T := LIN_T + 1
4960 PRINT "<S>" ; P_BNR$ ; TAB(11) ; P_TXT$ ; TAB(33) ; P_MKOD$ ; TAB(37)
4970 PRINT "<S>" ; P_BKTO$ ; TAB(14)
4980 IF _DK = DEBET THEN
4990 PRINT CHR$ (P_BKR,7,2)
5000 LET P_DEB := P_DEB + P_BKR
5010 ELSE
5020 PRINT TAB(13) ; CHR$ (P_BKR,7,2)
5030 LET P_KRED := P_KRED + P_BKR
5040 ENDIF
5050 ENDPROC PRINT_LIN
5060
5070 PROC AFSLUT
5080 LET LIN_T := LIN_T + 2
5210 PRINT "<S>----- -------------------- -- -------- ---------- "
5100 PRINT "----------"
5110 PRINT TAB(8) ; "DEBET/KREDIT TOTAL" ; TAB(42) ; CHR$ (P_DEB,9,2) ;
5120 PRINT CHR$ (P_KRED,9,2)
5130 IF _DEB > P_KRED THEN
5140 PRINT TAB(11) ; "DIFFERENCE" ; TAB(42) ; CHR$ (P_DEB - P_KRED,9,2)
5150 LET LIN_T := LIN_T + 1
5160 ELSE
5170 IF _KRED > P_DEB THEN
5180 PRINT TAB(11) ; "DIFFERENCE" ; TAB(54) ; CHR$ (P_KRED - P_DEB,9,2)
5190 LET LIN_T := LIN_T + 1
5200 ENDIF
5210 ENDIF
5220 FOR I := LIN_T TO AX_LIN DO PRINT
5230 ENDPROC AFSLUT
5240
5250 PROC FIND_KTO( REF R_KTONR$)
5260 LET OK := FALSE
5270 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
5280 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
5290 IF IGH > 1 THEN
5300 REPEAT
5310 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
5320 GET KTOIDX$,POS : KTONR$,RECNR
5330 IF TONR$ > R_KTONR$ THEN
5340 LET HIGH := POS
5350 ELSE
5360 IF TONR$ < R_KTONR$ THEN
5370 LET LOW := POS
5380 ENDIF
5390 ENDIF
5400 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
5410 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
5420 GET KTOIDX$,POS : KTONR$,RECNR
5430 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
5440 ENDIF
5450 LET FIND_KTO := POS
5460 ENDPROC FIND_KTO
5470 //
5600 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
5610 LET PRTNR$ := "1" ; OK := TRUE
5620 REPEAT
5630 CURSOR 15,LINE
5640 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
5650 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
5660 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
5670 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
5680 INPUT "" : SVAR$
5690 SELECT OUTPUT "P" + PRTNR$
5700 IF ("P") THEN
5710 CURSOR 12,LINE
5720 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
5730 CURSOR 12,LINE + 1
5740 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
5750 IF VAR$ = "J" OR SVAR$ = "j" THEN
5760 CURSOR 12,LINE
5770 PRINT "<Z> Der ventes på at printeren bliver ledig...."
5780 PRINT "<SZ>"
5790 WHILE ╱cd╱ ("P") DO
5800 LET SEK := ╱ca╱ (5)
5810 SELECT OUTPUT "P" + PRTNR$
5820 ENDWHILE
5830 ELSE
5840 LET OK := FALSE
5850 ENDIF
5860 ENDIF
5870 CURSOR 1,LINE
5880 PRINT "<Z>"
5890 PRINT "<SZ>"
5900 ENDPROC PRINTRES
5480 //
5490 PROC PRINTREL // RELEASE PRINTER
5500 SELECT OUTPUT "T"
5510 ENDPROC PRINTREL
1940 PRINT "<C0105> BILAG TEKST KO"
1950 PRINT "<C0106> NR NU"
1960 PRINT "<C0107>----------------------------------------"
1970 PRINT "<C4105>NTO- DEBET KREDIT F/R/S "
1980 PRINT "<C4106>MMER "
1990 PRINT "<C4107>----------------------------------------"
2000 ENDPROC DIV_POSHOVED
2010
2020 PROC OVERSKRIFT(ST$,L)
2030 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
2040 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
2050 PRINT SYST_DAT$(5 : 2)
3530 LET P_MKOD$ := ""
4740 PRINT "<S>BILAG TEKST KONTONR DEBET "
4750 PRINT " KREDIT "
4760 PRINT "<S>----- ------------------------ -------- ----------"
4770 PRINT " ----------"
4780 IF _DEB > 0 OR P_KRED > 0 THEN
4790 PRINT TAB(8) ; "TRANSPORT" ; TAB(41) ; CHR$ (P_DEB,9,2) ; CHR$ (P_KRED,9,2)
4800 LET LIN_T := LIN_T + 1
4810 ENDIF
4820 ENDPROC SIDESKIFT
4830
4840 PROC PRINT_LIN
4850 IF P_BNR$ = "*****" THEN EXIT
4860 IF IN_T + 5 > MAX_LIN THEN
4870 IF _DEB > 0 OR P_KRED > 0 THEN
5000 PRINT "<S>----- -------------------- -- -------- ---------- "
4880 PRINT "<S>----- ------------------------ -------- ---------- "
5090 PRINT "<S>----- ------------------------ -------- ---------- "
4500 EXEC PRINTRES("papir",12)
1430 LET PROGRAM$ := PRGFL$ + ":SYSBP" + S_KODE$
5520 //
5530 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
5540 LET PRTNR$ := "1" ; OK := TRUE
5550 REPEAT
5560 CURSOR 15,LINE
5570 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
5580 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
5590 CURSOR 1,LINE
5600 PRINT "<Z>"
5610 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
5620 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
5630 INPUT "" : SVAR$
5640 SELECT OUTPUT "P" + PRTNR$
5650 IF ("P") THEN
5660 CURSOR 12,LINE
5670 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
5680 CURSOR 12,LINE + 1
5690 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
5700 IF VAR$ = "J" OR SVAR$ = "j" THEN
5710 CURSOR 12,LINE
5720 PRINT "<Z> Der ventes på at printeren bliver ledig...."
5730 PRINT "<SZ>"
5740 WHILE ╱cd╱ ("P") DO
5750 LET SEK := ╱ca╱ (5)
5760 SELECT OUTPUT "P" + PRTNR$
5770 ENDWHILE
5780 ELSE
5790 LET OK := FALSE
5800 ENDIF
5810 ENDIF
5820 CURSOR 1,LINE
5830 PRINT "<Z>"
5840 PRINT "<SZ>"
5850 ENDPROC PRINTRES
3270 PRINT "<Z>" ; CHR$ (R_LIN,2)
4455 PUT DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
1995 EXEC SKRIV_DIFF
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
8045 LET ÆÆ$ := ÆÆ$(1 : J)
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…045b 9a49 0340 INTEGER OK,TRUE,FALSE,I,J
0x0444…045b LineComal80 {
0x0444…045b ptr = 0x9a49 // 0x444 @0x0
0x0444…045b lno = 0x0154 // 0x446 @0x2
0x0444…045b at0004 = ╱b2╱ INTEGER ╱ // 0x448 @0x4
0x0444…045b at0005 = ╱4f╱O╱ // 0x449 @0x5
0x0444…045b at0006 = ╱4b╱K╱ // 0x44a @0x6
0x0444…045b at0007 = ╱ec╱,╱ // 0x44b @0x7
0x0444…045b at0008 = ╱54╱T╱ // 0x44c @0x8
0x0444…045b at0009 = ╱52╱R╱ // 0x44d @0x9
0x0444…045b at000a = ╱55╱U╱ // 0x44e @0xa
0x0444…045b at000b = ╱45╱E╱ // 0x44f @0xb
0x0444…045b at000c = ╱ec╱,╱ // 0x450 @0xc
0x0444…045b at000d = ╱46╱F╱ // 0x451 @0xd
0x0444…045b at000e = ╱41╱A╱ // 0x452 @0xe
0x0444…045b at000f = ╱4c╱L╱ // 0x453 @0xf
0x0444…045b at0010 = ╱53╱S╱ // 0x454 @0x10
0x0444…045b at0011 = ╱45╱E╱ // 0x455 @0x11
0x0444…045b at0012 = ╱ec╱,╱ // 0x456 @0x12
0x0444…045b at0013 = ╱49╱I╱ // 0x457 @0x13
0x0444…045b at0014 = ╱ec╱,╱ // 0x458 @0x14
0x0444…045b at0015 = ╱4a╱J╱ // 0x459 @0x15
0x0444…045b at0016 = EOL // 0x45a @0x16
0x0444…045b }
0x045b…046f 9a5d 0350 // Hjælpevariable
0x045b…046f LineComal80 {
0x045b…046f ptr = 0x9a5d // 0x45b @0x0
0x045b…046f lno = 0x015e // 0x45d @0x2
0x045b…046f at0004 = ╱89╱ // ╱ // 0x45f @0x4
0x045b…046f at0005 = ╱48╱H╱ // 0x460 @0x5
0x045b…046f at0006 = ╱6a╱j╱ // 0x461 @0x6
0x045b…046f at0007 = ╱7b╱æ╱ // 0x462 @0x7
0x045b…046f at0008 = ╱6c╱l╱ // 0x463 @0x8
0x045b…046f at0009 = ╱70╱p╱ // 0x464 @0x9
0x045b…046f at000a = ╱65╱e╱ // 0x465 @0xa
0x045b…046f at000b = ╱76╱v╱ // 0x466 @0xb
0x045b…046f at000c = ╱61╱a╱ // 0x467 @0xc
0x045b…046f at000d = ╱72╱r╱ // 0x468 @0xd
0x045b…046f at000e = ╱69╱i╱ // 0x469 @0xe
0x045b…046f at000f = ╱61╱a╱ // 0x46a @0xf
0x045b…046f at0010 = ╱62╱b╱ // 0x46b @0x10
0x045b…046f at0011 = ╱6c╱l╱ // 0x46c @0x11
0x045b…046f at0012 = ╱65╱e╱ // 0x46d @0x12
0x045b…046f at0013 = EOL // 0x46e @0x13
0x045b…046f }
0x046f…047e 9a6c 0360 REAL TOT(6)
0x046f…047e LineComal80 {
0x046f…047e ptr = 0x9a6c // 0x46f @0x0
0x046f…047e lno = 0x0168 // 0x471 @0x2
0x046f…047e at0004 = ╱b3╱ REAL ╱ // 0x473 @0x4
0x046f…047e at0005 = ╱54╱T╱ // 0x474 @0x5
0x046f…047e at0006 = ╱4f╱O╱ // 0x475 @0x6
0x046f…047e at0007 = ╱54╱T╱ // 0x476 @0x7
0x046f…047e at0008 = ╱ed╱(╱ // 0x477 @0x8
0x046f…047e at0009 = ╱36╱6╱ // 0x478 @0x9
0x046f…047e at000a = ╱f20600╱ // 0x479 @0xa
0x046f…047e at000d = ╱ee╱)╱ // 0x47c @0xd
0x046f…047e at000e = EOL // 0x47d @0xe
0x046f…047e }
0x047e…04b3 9aa1 0370 INTEGER HIGH,LOW,POS,KREDIT,DEBET,LIN_T,MAX_LIN,T_IDX,K
0x047e…04b3 LineComal80 {
0x047e…04b3 ptr = 0x9aa1 // 0x47e @0x0
0x047e…04b3 lno = 0x0172 // 0x480 @0x2
0x047e…04b3 at0004 = ╱b2╱ INTEGER ╱ // 0x482 @0x4
0x047e…04b3 at0005 = ╱48╱H╱ // 0x483 @0x5
0x047e…04b3 at0006 = ╱49╱I╱ // 0x484 @0x6
0x047e…04b3 at0007 = ╱47╱G╱ // 0x485 @0x7
0x047e…04b3 at0008 = ╱48╱H╱ // 0x486 @0x8
0x047e…04b3 at0009 = ╱ec╱,╱ // 0x487 @0x9
0x047e…04b3 at000a = ╱4c╱L╱ // 0x488 @0xa
0x047e…04b3 at000b = ╱4f╱O╱ // 0x489 @0xb
0x047e…04b3 at000c = ╱57╱W╱ // 0x48a @0xc
0x047e…04b3 at000d = ╱ec╱,╱ // 0x48b @0xd
0x047e…04b3 at000e = ╱50╱P╱ // 0x48c @0xe
0x047e…04b3 at000f = ╱4f╱O╱ // 0x48d @0xf
0x047e…04b3 at0010 = ╱53╱S╱ // 0x48e @0x10
0x047e…04b3 at0011 = ╱ec╱,╱ // 0x48f @0x11
0x047e…04b3 at0012 = ╱4b╱K╱ // 0x490 @0x12
0x047e…04b3 at0013 = ╱52╱R╱ // 0x491 @0x13
0x047e…04b3 at0014 = ╱45╱E╱ // 0x492 @0x14
0x047e…04b3 at0015 = ╱44╱D╱ // 0x493 @0x15
0x047e…04b3 at0016 = ╱49╱I╱ // 0x494 @0x16
0x047e…04b3 at0017 = ╱54╱T╱ // 0x495 @0x17
0x047e…04b3 at0018 = ╱ec╱,╱ // 0x496 @0x18
0x047e…04b3 at0019 = ╱44╱D╱ // 0x497 @0x19
0x047e…04b3 at001a = ╱45╱E╱ // 0x498 @0x1a
0x047e…04b3 at001b = ╱42╱B╱ // 0x499 @0x1b
0x047e…04b3 at001c = ╱45╱E╱ // 0x49a @0x1c
0x047e…04b3 at001d = ╱54╱T╱ // 0x49b @0x1d
0x047e…04b3 at001e = ╱ec╱,╱ // 0x49c @0x1e
0x047e…04b3 at001f = ╱4c╱L╱ // 0x49d @0x1f
0x047e…04b3 at0020 = ╱49╱I╱ // 0x49e @0x20
0x047e…04b3 at0021 = ╱4e╱N╱ // 0x49f @0x21
0x047e…04b3 at0022 = ╱5f╱_╱ // 0x4a0 @0x22
0x047e…04b3 at0023 = ╱54╱T╱ // 0x4a1 @0x23
0x047e…04b3 at0024 = ╱ec╱,╱ // 0x4a2 @0x24
0x047e…04b3 at0025 = ╱4d╱M╱ // 0x4a3 @0x25
0x047e…04b3 at0026 = ╱41╱A╱ // 0x4a4 @0x26
0x047e…04b3 at0027 = ╱58╱X╱ // 0x4a5 @0x27
0x047e…04b3 at0028 = ╱5f╱_╱ // 0x4a6 @0x28
0x047e…04b3 at0029 = ╱4c╱L╱ // 0x4a7 @0x29
0x047e…04b3 at002a = ╱49╱I╱ // 0x4a8 @0x2a
0x047e…04b3 at002b = ╱4e╱N╱ // 0x4a9 @0x2b
0x047e…04b3 at002c = ╱ec╱,╱ // 0x4aa @0x2c
0x047e…04b3 at002d = ╱54╱T╱ // 0x4ab @0x2d
0x047e…04b3 at002e = ╱5f╱_╱ // 0x4ac @0x2e
0x047e…04b3 at002f = ╱49╱I╱ // 0x4ad @0x2f
0x047e…04b3 at0030 = ╱44╱D╱ // 0x4ae @0x30
0x047e…04b3 at0031 = ╱58╱X╱ // 0x4af @0x31
0x047e…04b3 at0032 = ╱ec╱,╱ // 0x4b0 @0x32
0x047e…04b3 at0033 = ╱4b╱K╱ // 0x4b1 @0x33
0x047e…04b3 at0034 = EOL // 0x4b2 @0x34
0x047e…04b3 }
0x04b3…04d3 9ac1 0380 // Variable til filen SYSPARA
0x04b3…04d3 LineComal80 {
0x04b3…04d3 ptr = 0x9ac1 // 0x4b3 @0x0
0x04b3…04d3 lno = 0x017c // 0x4b5 @0x2
0x04b3…04d3 at0004 = ╱89╱ // ╱ // 0x4b7 @0x4
0x04b3…04d3 at0005 = ╱56╱V╱ // 0x4b8 @0x5
0x04b3…04d3 at0006 = ╱61╱a╱ // 0x4b9 @0x6
0x04b3…04d3 at0007 = ╱72╱r╱ // 0x4ba @0x7
0x04b3…04d3 at0008 = ╱69╱i╱ // 0x4bb @0x8
0x04b3…04d3 at0009 = ╱61╱a╱ // 0x4bc @0x9
0x04b3…04d3 at000a = ╱62╱b╱ // 0x4bd @0xa
0x04b3…04d3 at000b = ╱6c╱l╱ // 0x4be @0xb
0x04b3…04d3 at000c = ╱65╱e╱ // 0x4bf @0xc
0x04b3…04d3 at000d = ╱20╱…╱ // 0x4c0 @0xd
0x04b3…04d3 at000e = ╱74╱t╱ // 0x4c1 @0xe
0x04b3…04d3 at000f = ╱69╱i╱ // 0x4c2 @0xf
0x04b3…04d3 at0010 = ╱6c╱l╱ // 0x4c3 @0x10
0x04b3…04d3 at0011 = ╱20╱…╱ // 0x4c4 @0x11
0x04b3…04d3 at0012 = ╱66╱f╱ // 0x4c5 @0x12
0x04b3…04d3 at0013 = ╱69╱i╱ // 0x4c6 @0x13
0x04b3…04d3 at0014 = ╱6c╱l╱ // 0x4c7 @0x14
0x04b3…04d3 at0015 = ╱65╱e╱ // 0x4c8 @0x15
0x04b3…04d3 at0016 = ╱6e╱n╱ // 0x4c9 @0x16
0x04b3…04d3 at0017 = ╱20╱…╱ // 0x4ca @0x17
0x04b3…04d3 at0018 = ╱53╱S╱ // 0x4cb @0x18
0x04b3…04d3 at0019 = ╱59╱Y╱ // 0x4cc @0x19
0x04b3…04d3 at001a = ╱53╱S╱ // 0x4cd @0x1a
0x04b3…04d3 at001b = ╱50╱P╱ // 0x4ce @0x1b
0x04b3…04d3 at001c = ╱41╱A╱ // 0x4cf @0x1c
0x04b3…04d3 at001d = ╱52╱R╱ // 0x4d0 @0x1d
0x04b3…04d3 at001e = ╱41╱A╱ // 0x4d1 @0x1e
0x04b3…04d3 at001f = EOL // 0x4d2 @0x1f
0x04b3…04d3 }
0x04d3…04e7 9ad5 0390 DIM SYSPARA$ OF 17
0x04d3…04e7 LineComal80 {
0x04d3…04e7 ptr = 0x9ad5 // 0x4d3 @0x0
0x04d3…04e7 lno = 0x0186 // 0x4d5 @0x2
0x04d3…04e7 at0004 = ╱87╱ DIM ╱ // 0x4d7 @0x4
0x04d3…04e7 at0005 = ╱53╱S╱ // 0x4d8 @0x5
0x04d3…04e7 at0006 = ╱59╱Y╱ // 0x4d9 @0x6
0x04d3…04e7 at0007 = ╱53╱S╱ // 0x4da @0x7
0x04d3…04e7 at0008 = ╱50╱P╱ // 0x4db @0x8
0x04d3…04e7 at0009 = ╱41╱A╱ // 0x4dc @0x9
0x04d3…04e7 at000a = ╱52╱R╱ // 0x4dd @0xa
0x04d3…04e7 at000b = ╱41╱A╱ // 0x4de @0xb
0x04d3…04e7 at000c = ╱ef╱$╱ // 0x4df @0xc
0x04d3…04e7 at000d = ╱ba╱ OF ╱ // 0x4e0 @0xd
0x04d3…04e7 at000e = ╱31╱1╱ // 0x4e1 @0xe
0x04d3…04e7 at000f = ╱37╱7╱ // 0x4e2 @0xf
0x04d3…04e7 at0010 = ╱f21100╱ // 0x4e3 @0x10
0x04d3…04e7 at0013 = EOL // 0x4e6 @0x13
0x04d3…04e7 }
0x04e7…050a 9af8 0400 DIM SYST_NAVN$ OF 30,S_KODE$ OF 1
0x04e7…050a LineComal80 {
0x04e7…050a ptr = 0x9af8 // 0x4e7 @0x0
0x04e7…050a lno = 0x0190 // 0x4e9 @0x2
0x04e7…050a at0004 = ╱87╱ DIM ╱ // 0x4eb @0x4
0x04e7…050a at0005 = ╱53╱S╱ // 0x4ec @0x5
0x04e7…050a at0006 = ╱59╱Y╱ // 0x4ed @0x6
0x04e7…050a at0007 = ╱53╱S╱ // 0x4ee @0x7
0x04e7…050a at0008 = ╱54╱T╱ // 0x4ef @0x8
0x04e7…050a at0009 = ╱5f╱_╱ // 0x4f0 @0x9
0x04e7…050a at000a = ╱4e╱N╱ // 0x4f1 @0xa
0x04e7…050a at000b = ╱41╱A╱ // 0x4f2 @0xb
0x04e7…050a at000c = ╱56╱V╱ // 0x4f3 @0xc
0x04e7…050a at000d = ╱4e╱N╱ // 0x4f4 @0xd
0x04e7…050a at000e = ╱ef╱$╱ // 0x4f5 @0xe
0x04e7…050a at000f = ╱ba╱ OF ╱ // 0x4f6 @0xf
0x04e7…050a at0010 = ╱33╱3╱ // 0x4f7 @0x10
0x04e7…050a at0011 = ╱30╱0╱ // 0x4f8 @0x11
0x04e7…050a at0012 = ╱f21e00╱ // 0x4f9 @0x12
0x04e7…050a at0015 = ╱ec╱,╱ // 0x4fc @0x15
0x04e7…050a at0016 = ╱53╱S╱ // 0x4fd @0x16
0x04e7…050a at0017 = ╱5f╱_╱ // 0x4fe @0x17
0x04e7…050a at0018 = ╱4b╱K╱ // 0x4ff @0x18
0x04e7…050a at0019 = ╱4f╱O╱ // 0x500 @0x19
0x04e7…050a at001a = ╱44╱D╱ // 0x501 @0x1a
0x04e7…050a at001b = ╱45╱E╱ // 0x502 @0x1b
0x04e7…050a at001c = ╱ef╱$╱ // 0x503 @0x1c
0x04e7…050a at001d = ╱ba╱ OF ╱ // 0x504 @0x1d
0x04e7…050a at001e = ╱31╱1╱ // 0x505 @0x1e
0x04e7…050a at001f = ╱f20100╱ // 0x506 @0x1f
0x04e7…050a at0022 = EOL // 0x509 @0x22
0x04e7…050a }
0x050a…0529 9b17 0410 DIM DATAFL$ OF 8,T_KODE$ OF 1
0x050a…0529 LineComal80 {
0x050a…0529 ptr = 0x9b17 // 0x50a @0x0
0x050a…0529 lno = 0x019a // 0x50c @0x2
0x050a…0529 at0004 = ╱87╱ DIM ╱ // 0x50e @0x4
0x050a…0529 at0005 = ╱44╱D╱ // 0x50f @0x5
0x050a…0529 at0006 = ╱41╱A╱ // 0x510 @0x6
0x050a…0529 at0007 = ╱54╱T╱ // 0x511 @0x7
0x050a…0529 at0008 = ╱41╱A╱ // 0x512 @0x8
0x050a…0529 at0009 = ╱46╱F╱ // 0x513 @0x9
0x050a…0529 at000a = ╱4c╱L╱ // 0x514 @0xa
0x050a…0529 at000b = ╱ef╱$╱ // 0x515 @0xb
0x050a…0529 at000c = ╱ba╱ OF ╱ // 0x516 @0xc
0x050a…0529 at000d = ╱38╱8╱ // 0x517 @0xd
0x050a…0529 at000e = ╱f20800╱ // 0x518 @0xe
0x050a…0529 at0011 = ╱ec╱,╱ // 0x51b @0x11
0x050a…0529 at0012 = ╱54╱T╱ // 0x51c @0x12
0x050a…0529 at0013 = ╱5f╱_╱ // 0x51d @0x13
0x050a…0529 at0014 = ╱4b╱K╱ // 0x51e @0x14
0x050a…0529 at0015 = ╱4f╱O╱ // 0x51f @0x15
0x050a…0529 at0016 = ╱44╱D╱ // 0x520 @0x16
0x050a…0529 at0017 = ╱45╱E╱ // 0x521 @0x17
0x050a…0529 at0018 = ╱ef╱$╱ // 0x522 @0x18
0x050a…0529 at0019 = ╱ba╱ OF ╱ // 0x523 @0x19
0x050a…0529 at001a = ╱31╱1╱ // 0x524 @0x1a
0x050a…0529 at001b = ╱f20100╱ // 0x525 @0x1b
0x050a…0529 at001e = EOL // 0x528 @0x1e
0x050a…0529 }
0x0529…0549 9b37 0420 // Variable til filen @@PARAM
0x0529…0549 LineComal80 {
0x0529…0549 ptr = 0x9b37 // 0x529 @0x0
0x0529…0549 lno = 0x01a4 // 0x52b @0x2
0x0529…0549 at0004 = ╱89╱ // ╱ // 0x52d @0x4
0x0529…0549 at0005 = ╱56╱V╱ // 0x52e @0x5
0x0529…0549 at0006 = ╱61╱a╱ // 0x52f @0x6
0x0529…0549 at0007 = ╱72╱r╱ // 0x530 @0x7
0x0529…0549 at0008 = ╱69╱i╱ // 0x531 @0x8
0x0529…0549 at0009 = ╱61╱a╱ // 0x532 @0x9
0x0529…0549 at000a = ╱62╱b╱ // 0x533 @0xa
0x0529…0549 at000b = ╱6c╱l╱ // 0x534 @0xb
0x0529…0549 at000c = ╱65╱e╱ // 0x535 @0xc
0x0529…0549 at000d = ╱20╱…╱ // 0x536 @0xd
0x0529…0549 at000e = ╱74╱t╱ // 0x537 @0xe
0x0529…0549 at000f = ╱69╱i╱ // 0x538 @0xf
0x0529…0549 at0010 = ╱6c╱l╱ // 0x539 @0x10
0x0529…0549 at0011 = ╱20╱…╱ // 0x53a @0x11
0x0529…0549 at0012 = ╱66╱f╱ // 0x53b @0x12
0x0529…0549 at0013 = ╱69╱i╱ // 0x53c @0x13
0x0529…0549 at0014 = ╱6c╱l╱ // 0x53d @0x14
0x0529…0549 at0015 = ╱65╱e╱ // 0x53e @0x15
0x0529…0549 at0016 = ╱6e╱n╱ // 0x53f @0x16
0x0529…0549 at0017 = ╱20╱…╱ // 0x540 @0x17
0x0529…0549 at0018 = ╱40╱@╱ // 0x541 @0x18
0x0529…0549 at0019 = ╱40╱@╱ // 0x542 @0x19
0x0529…0549 at001a = ╱50╱P╱ // 0x543 @0x1a
0x0529…0549 at001b = ╱41╱A╱ // 0x544 @0x1b
0x0529…0549 at001c = ╱52╱R╱ // 0x545 @0x1c
0x0529…0549 at001d = ╱41╱A╱ // 0x546 @0x1d
0x0529…0549 at001e = ╱4d╱M╱ // 0x547 @0x1e
0x0529…0549 at001f = EOL // 0x548 @0x1f
0x0529…0549 }
0x0549…055b 9b49 0430 DIM PARAM$ OF 17
0x0549…055b LineComal80 {
0x0549…055b ptr = 0x9b49 // 0x549 @0x0
0x0549…055b lno = 0x01ae // 0x54b @0x2
0x0549…055b at0004 = ╱87╱ DIM ╱ // 0x54d @0x4
0x0549…055b at0005 = ╱50╱P╱ // 0x54e @0x5
0x0549…055b at0006 = ╱41╱A╱ // 0x54f @0x6
0x0549…055b at0007 = ╱52╱R╱ // 0x550 @0x7
0x0549…055b at0008 = ╱41╱A╱ // 0x551 @0x8
0x0549…055b at0009 = ╱4d╱M╱ // 0x552 @0x9
0x0549…055b at000a = ╱ef╱$╱ // 0x553 @0xa
0x0549…055b at000b = ╱ba╱ OF ╱ // 0x554 @0xb
0x0549…055b at000c = ╱31╱1╱ // 0x555 @0xc
0x0549…055b at000d = ╱37╱7╱ // 0x556 @0xd
0x0549…055b at000e = ╱f21100╱ // 0x557 @0xe
0x0549…055b at0011 = EOL // 0x55a @0x11
0x0549…055b }
0x055b…0580 9b6e 0440 DIM FIRMANAVN$ OF 30,SYST_DAT$ OF 6
0x055b…0580 LineComal80 {
0x055b…0580 ptr = 0x9b6e // 0x55b @0x0
0x055b…0580 lno = 0x01b8 // 0x55d @0x2
0x055b…0580 at0004 = ╱87╱ DIM ╱ // 0x55f @0x4
0x055b…0580 at0005 = ╱46╱F╱ // 0x560 @0x5
0x055b…0580 at0006 = ╱49╱I╱ // 0x561 @0x6
0x055b…0580 at0007 = ╱52╱R╱ // 0x562 @0x7
0x055b…0580 at0008 = ╱4d╱M╱ // 0x563 @0x8
0x055b…0580 at0009 = ╱41╱A╱ // 0x564 @0x9
0x055b…0580 at000a = ╱4e╱N╱ // 0x565 @0xa
0x055b…0580 at000b = ╱41╱A╱ // 0x566 @0xb
0x055b…0580 at000c = ╱56╱V╱ // 0x567 @0xc
0x055b…0580 at000d = ╱4e╱N╱ // 0x568 @0xd
0x055b…0580 at000e = ╱ef╱$╱ // 0x569 @0xe
0x055b…0580 at000f = ╱ba╱ OF ╱ // 0x56a @0xf
0x055b…0580 at0010 = ╱33╱3╱ // 0x56b @0x10
0x055b…0580 at0011 = ╱30╱0╱ // 0x56c @0x11
0x055b…0580 at0012 = ╱f21e00╱ // 0x56d @0x12
0x055b…0580 at0015 = ╱ec╱,╱ // 0x570 @0x15
0x055b…0580 at0016 = ╱53╱S╱ // 0x571 @0x16
0x055b…0580 at0017 = ╱59╱Y╱ // 0x572 @0x17
0x055b…0580 at0018 = ╱53╱S╱ // 0x573 @0x18
0x055b…0580 at0019 = ╱54╱T╱ // 0x574 @0x19
0x055b…0580 at001a = ╱5f╱_╱ // 0x575 @0x1a
0x055b…0580 at001b = ╱44╱D╱ // 0x576 @0x1b
0x055b…0580 at001c = ╱41╱A╱ // 0x577 @0x1c
0x055b…0580 at001d = ╱54╱T╱ // 0x578 @0x1d
0x055b…0580 at001e = ╱ef╱$╱ // 0x579 @0x1e
0x055b…0580 at001f = ╱ba╱ OF ╱ // 0x57a @0x1f
0x055b…0580 at0020 = ╱36╱6╱ // 0x57b @0x20
0x055b…0580 at0021 = ╱f20600╱ // 0x57c @0x21
0x055b…0580 at0024 = EOL // 0x57f @0x24
0x055b…0580 }
0x0580…058a 9b78 0450 REAL MOMS
0x0580…058a LineComal80 {
0x0580…058a ptr = 0x9b78 // 0x580 @0x0
0x0580…058a lno = 0x01c2 // 0x582 @0x2
0x0580…058a at0004 = ╱b3╱ REAL ╱ // 0x584 @0x4
0x0580…058a at0005 = ╱4d╱M╱ // 0x585 @0x5
0x0580…058a at0006 = ╱4f╱O╱ // 0x586 @0x6
0x0580…058a at0007 = ╱4d╱M╱ // 0x587 @0x7
0x0580…058a at0008 = ╱53╱S╱ // 0x588 @0x8
0x0580…058a at0009 = EOL // 0x589 @0x9
0x0580…058a }
0x058a…05aa 9b98 0460 // Variable til filen @@KONTO
0x058a…05aa LineComal80 {
0x058a…05aa ptr = 0x9b98 // 0x58a @0x0
0x058a…05aa lno = 0x01cc // 0x58c @0x2
0x058a…05aa at0004 = ╱89╱ // ╱ // 0x58e @0x4
0x058a…05aa at0005 = ╱56╱V╱ // 0x58f @0x5
0x058a…05aa at0006 = ╱61╱a╱ // 0x590 @0x6
0x058a…05aa at0007 = ╱72╱r╱ // 0x591 @0x7
0x058a…05aa at0008 = ╱69╱i╱ // 0x592 @0x8
0x058a…05aa at0009 = ╱61╱a╱ // 0x593 @0x9
0x058a…05aa at000a = ╱62╱b╱ // 0x594 @0xa
0x058a…05aa at000b = ╱6c╱l╱ // 0x595 @0xb
0x058a…05aa at000c = ╱65╱e╱ // 0x596 @0xc
0x058a…05aa at000d = ╱20╱…╱ // 0x597 @0xd
0x058a…05aa at000e = ╱74╱t╱ // 0x598 @0xe
0x058a…05aa at000f = ╱69╱i╱ // 0x599 @0xf
0x058a…05aa at0010 = ╱6c╱l╱ // 0x59a @0x10
0x058a…05aa at0011 = ╱20╱…╱ // 0x59b @0x11
0x058a…05aa at0012 = ╱66╱f╱ // 0x59c @0x12
0x058a…05aa at0013 = ╱69╱i╱ // 0x59d @0x13
0x058a…05aa at0014 = ╱6c╱l╱ // 0x59e @0x14
0x058a…05aa at0015 = ╱65╱e╱ // 0x59f @0x15
0x058a…05aa at0016 = ╱6e╱n╱ // 0x5a0 @0x16
0x058a…05aa at0017 = ╱20╱…╱ // 0x5a1 @0x17
0x058a…05aa at0018 = ╱40╱@╱ // 0x5a2 @0x18
0x058a…05aa at0019 = ╱40╱@╱ // 0x5a3 @0x19
0x058a…05aa at001a = ╱4b╱K╱ // 0x5a4 @0x1a
0x058a…05aa at001b = ╱4f╱O╱ // 0x5a5 @0x1b
0x058a…05aa at001c = ╱4e╱N╱ // 0x5a6 @0x1c
0x058a…05aa at001d = ╱54╱T╱ // 0x5a7 @0x1d
0x058a…05aa at001e = ╱4f╱O╱ // 0x5a8 @0x1e
0x058a…05aa at001f = EOL // 0x5a9 @0x1f
0x058a…05aa }
0x05aa…05bc 9baa 0470 DIM KONTO$ OF 17
0x05aa…05bc LineComal80 {
0x05aa…05bc ptr = 0x9baa // 0x5aa @0x0
0x05aa…05bc lno = 0x01d6 // 0x5ac @0x2
0x05aa…05bc at0004 = ╱87╱ DIM ╱ // 0x5ae @0x4
0x05aa…05bc at0005 = ╱4b╱K╱ // 0x5af @0x5
0x05aa…05bc at0006 = ╱4f╱O╱ // 0x5b0 @0x6
0x05aa…05bc at0007 = ╱4e╱N╱ // 0x5b1 @0x7
0x05aa…05bc at0008 = ╱54╱T╱ // 0x5b2 @0x8
0x05aa…05bc at0009 = ╱4f╱O╱ // 0x5b3 @0x9
0x05aa…05bc at000a = ╱ef╱$╱ // 0x5b4 @0xa
0x05aa…05bc at000b = ╱ba╱ OF ╱ // 0x5b5 @0xb
0x05aa…05bc at000c = ╱31╱1╱ // 0x5b6 @0xc
0x05aa…05bc at000d = ╱37╱7╱ // 0x5b7 @0xd
0x05aa…05bc at000e = ╱f21100╱ // 0x5b8 @0xe
0x05aa…05bc at0011 = EOL // 0x5bb @0x11
0x05aa…05bc }
0x05bc…05cf 9bbd 0480 DIM ST_DATO$ OF 6
0x05bc…05cf LineComal80 {
0x05bc…05cf ptr = 0x9bbd // 0x5bc @0x0
0x05bc…05cf lno = 0x01e0 // 0x5be @0x2
0x05bc…05cf at0004 = ╱87╱ DIM ╱ // 0x5c0 @0x4
0x05bc…05cf at0005 = ╱53╱S╱ // 0x5c1 @0x5
0x05bc…05cf at0006 = ╱54╱T╱ // 0x5c2 @0x6
0x05bc…05cf at0007 = ╱5f╱_╱ // 0x5c3 @0x7
0x05bc…05cf at0008 = ╱44╱D╱ // 0x5c4 @0x8
0x05bc…05cf at0009 = ╱41╱A╱ // 0x5c5 @0x9
0x05bc…05cf at000a = ╱54╱T╱ // 0x5c6 @0xa
0x05bc…05cf at000b = ╱4f╱O╱ // 0x5c7 @0xb
0x05bc…05cf at000c = ╱ef╱$╱ // 0x5c8 @0xc
0x05bc…05cf at000d = ╱ba╱ OF ╱ // 0x5c9 @0xd
0x05bc…05cf at000e = ╱36╱6╱ // 0x5ca @0xe
0x05bc…05cf at000f = ╱f20600╱ // 0x5cb @0xf
0x05bc…05cf at0012 = EOL // 0x5ce @0x12
0x05bc…05cf }
0x05cf…05f5 9be3 0490 INTEGER N_FRIREC,N_MAXREC,ANT_PER,PER_NR
0x05cf…05f5 LineComal80 {
0x05cf…05f5 ptr = 0x9be3 // 0x5cf @0x0
0x05cf…05f5 lno = 0x01ea // 0x5d1 @0x2
0x05cf…05f5 at0004 = ╱b2╱ INTEGER ╱ // 0x5d3 @0x4
0x05cf…05f5 at0005 = ╱4e╱N╱ // 0x5d4 @0x5
0x05cf…05f5 at0006 = ╱5f╱_╱ // 0x5d5 @0x6
0x05cf…05f5 at0007 = ╱46╱F╱ // 0x5d6 @0x7
0x05cf…05f5 at0008 = ╱52╱R╱ // 0x5d7 @0x8
0x05cf…05f5 at0009 = ╱49╱I╱ // 0x5d8 @0x9
0x05cf…05f5 at000a = ╱52╱R╱ // 0x5d9 @0xa
0x05cf…05f5 at000b = ╱45╱E╱ // 0x5da @0xb
0x05cf…05f5 at000c = ╱43╱C╱ // 0x5db @0xc
0x05cf…05f5 at000d = ╱ec╱,╱ // 0x5dc @0xd
0x05cf…05f5 at000e = ╱4e╱N╱ // 0x5dd @0xe
0x05cf…05f5 at000f = ╱5f╱_╱ // 0x5de @0xf
0x05cf…05f5 at0010 = ╱4d╱M╱ // 0x5df @0x10
0x05cf…05f5 at0011 = ╱41╱A╱ // 0x5e0 @0x11
0x05cf…05f5 at0012 = ╱58╱X╱ // 0x5e1 @0x12
0x05cf…05f5 at0013 = ╱52╱R╱ // 0x5e2 @0x13
0x05cf…05f5 at0014 = ╱45╱E╱ // 0x5e3 @0x14
0x05cf…05f5 at0015 = ╱43╱C╱ // 0x5e4 @0x15
0x05cf…05f5 at0016 = ╱ec╱,╱ // 0x5e5 @0x16
0x05cf…05f5 at0017 = ╱41╱A╱ // 0x5e6 @0x17
0x05cf…05f5 at0018 = ╱4e╱N╱ // 0x5e7 @0x18
0x05cf…05f5 at0019 = ╱54╱T╱ // 0x5e8 @0x19
0x05cf…05f5 at001a = ╱5f╱_╱ // 0x5e9 @0x1a
0x05cf…05f5 at001b = ╱50╱P╱ // 0x5ea @0x1b
0x05cf…05f5 at001c = ╱45╱E╱ // 0x5eb @0x1c
0x05cf…05f5 at001d = ╱52╱R╱ // 0x5ec @0x1d
0x05cf…05f5 at001e = ╱ec╱,╱ // 0x5ed @0x1e
0x05cf…05f5 at001f = ╱50╱P╱ // 0x5ee @0x1f
0x05cf…05f5 at0020 = ╱45╱E╱ // 0x5ef @0x20
0x05cf…05f5 at0021 = ╱52╱R╱ // 0x5f0 @0x21
0x05cf…05f5 at0022 = ╱5f╱_╱ // 0x5f1 @0x22
0x05cf…05f5 at0023 = ╱4e╱N╱ // 0x5f2 @0x23
0x05cf…05f5 at0024 = ╱52╱R╱ // 0x5f3 @0x24
0x05cf…05f5 at0025 = EOL // 0x5f4 @0x25
0x05cf…05f5 }
0x05f5…0619 9c07 0500 DIM KTO_TYPE$ OF 1,KTO_NAVN$ OF 40
0x05f5…0619 LineComal80 {
0x05f5…0619 ptr = 0x9c07 // 0x5f5 @0x0
0x05f5…0619 lno = 0x01f4 // 0x5f7 @0x2
0x05f5…0619 at0004 = ╱87╱ DIM ╱ // 0x5f9 @0x4
0x05f5…0619 at0005 = ╱4b╱K╱ // 0x5fa @0x5
0x05f5…0619 at0006 = ╱54╱T╱ // 0x5fb @0x6
0x05f5…0619 at0007 = ╱4f╱O╱ // 0x5fc @0x7
0x05f5…0619 at0008 = ╱5f╱_╱ // 0x5fd @0x8
0x05f5…0619 at0009 = ╱54╱T╱ // 0x5fe @0x9
0x05f5…0619 at000a = ╱59╱Y╱ // 0x5ff @0xa
0x05f5…0619 at000b = ╱50╱P╱ // 0x600 @0xb
0x05f5…0619 at000c = ╱45╱E╱ // 0x601 @0xc
0x05f5…0619 at000d = ╱ef╱$╱ // 0x602 @0xd
0x05f5…0619 at000e = ╱ba╱ OF ╱ // 0x603 @0xe
0x05f5…0619 at000f = ╱31╱1╱ // 0x604 @0xf
0x05f5…0619 at0010 = ╱f20100╱ // 0x605 @0x10
0x05f5…0619 at0013 = ╱ec╱,╱ // 0x608 @0x13
0x05f5…0619 at0014 = ╱4b╱K╱ // 0x609 @0x14
0x05f5…0619 at0015 = ╱54╱T╱ // 0x60a @0x15
0x05f5…0619 at0016 = ╱4f╱O╱ // 0x60b @0x16
0x05f5…0619 at0017 = ╱5f╱_╱ // 0x60c @0x17
0x05f5…0619 at0018 = ╱4e╱N╱ // 0x60d @0x18
0x05f5…0619 at0019 = ╱41╱A╱ // 0x60e @0x19
0x05f5…0619 at001a = ╱56╱V╱ // 0x60f @0x1a
0x05f5…0619 at001b = ╱4e╱N╱ // 0x610 @0x1b
0x05f5…0619 at001c = ╱ef╱$╱ // 0x611 @0x1c
0x05f5…0619 at001d = ╱ba╱ OF ╱ // 0x612 @0x1d
0x05f5…0619 at001e = ╱34╱4╱ // 0x613 @0x1e
0x05f5…0619 at001f = ╱30╱0╱ // 0x614 @0x1f
0x05f5…0619 at0020 = ╱f22800╱ // 0x615 @0x20
0x05f5…0619 at0023 = EOL // 0x618 @0x23
0x05f5…0619 }
0x0619…0633 9c21 0510 REAL KTO_PRIMO,KTO_ULTIMO
0x0619…0633 LineComal80 {
0x0619…0633 ptr = 0x9c21 // 0x619 @0x0
0x0619…0633 lno = 0x01fe // 0x61b @0x2
0x0619…0633 at0004 = ╱b3╱ REAL ╱ // 0x61d @0x4
0x0619…0633 at0005 = ╱4b╱K╱ // 0x61e @0x5
0x0619…0633 at0006 = ╱54╱T╱ // 0x61f @0x6
0x0619…0633 at0007 = ╱4f╱O╱ // 0x620 @0x7
0x0619…0633 at0008 = ╱5f╱_╱ // 0x621 @0x8
0x0619…0633 at0009 = ╱50╱P╱ // 0x622 @0x9
0x0619…0633 at000a = ╱52╱R╱ // 0x623 @0xa
0x0619…0633 at000b = ╱49╱I╱ // 0x624 @0xb
0x0619…0633 at000c = ╱4d╱M╱ // 0x625 @0xc
0x0619…0633 at000d = ╱4f╱O╱ // 0x626 @0xd
0x0619…0633 at000e = ╱ec╱,╱ // 0x627 @0xe
0x0619…0633 at000f = ╱4b╱K╱ // 0x628 @0xf
0x0619…0633 at0010 = ╱54╱T╱ // 0x629 @0x10
0x0619…0633 at0011 = ╱4f╱O╱ // 0x62a @0x11
0x0619…0633 at0012 = ╱5f╱_╱ // 0x62b @0x12
0x0619…0633 at0013 = ╱55╱U╱ // 0x62c @0x13
0x0619…0633 at0014 = ╱4c╱L╱ // 0x62d @0x14
0x0619…0633 at0015 = ╱54╱T╱ // 0x62e @0x15
0x0619…0633 at0016 = ╱49╱I╱ // 0x62f @0x16
0x0619…0633 at0017 = ╱4d╱M╱ // 0x630 @0x17
0x0619…0633 at0018 = ╱4f╱O╱ // 0x631 @0x18
0x0619…0633 at0019 = EOL // 0x632 @0x19
0x0619…0633 }
0x0633…0646 9c34 0520 INTEGER KTO_FP,KTO_SP
0x0633…0646 LineComal80 {
0x0633…0646 ptr = 0x9c34 // 0x633 @0x0
0x0633…0646 lno = 0x0208 // 0x635 @0x2
0x0633…0646 at0004 = ╱b2╱ INTEGER ╱ // 0x637 @0x4
0x0633…0646 at0005 = ╱4b╱K╱ // 0x638 @0x5
0x0633…0646 at0006 = ╱54╱T╱ // 0x639 @0x6
0x0633…0646 at0007 = ╱4f╱O╱ // 0x63a @0x7
0x0633…0646 at0008 = ╱5f╱_╱ // 0x63b @0x8
0x0633…0646 at0009 = ╱46╱F╱ // 0x63c @0x9
0x0633…0646 at000a = ╱50╱P╱ // 0x63d @0xa
0x0633…0646 at000b = ╱ec╱,╱ // 0x63e @0xb
0x0633…0646 at000c = ╱4b╱K╱ // 0x63f @0xc
0x0633…0646 at000d = ╱54╱T╱ // 0x640 @0xd
0x0633…0646 at000e = ╱4f╱O╱ // 0x641 @0xe
0x0633…0646 at000f = ╱5f╱_╱ // 0x642 @0xf
0x0633…0646 at0010 = ╱53╱S╱ // 0x643 @0x10
0x0633…0646 at0011 = ╱50╱P╱ // 0x644 @0x11
0x0633…0646 at0012 = EOL // 0x645 @0x12
0x0633…0646 }
0x0646…0667 9c55 0530 // Variable til filen @@KTOIDX
0x0646…0667 LineComal80 {
0x0646…0667 ptr = 0x9c55 // 0x646 @0x0
0x0646…0667 lno = 0x0212 // 0x648 @0x2
0x0646…0667 at0004 = ╱89╱ // ╱ // 0x64a @0x4
0x0646…0667 at0005 = ╱56╱V╱ // 0x64b @0x5
0x0646…0667 at0006 = ╱61╱a╱ // 0x64c @0x6
0x0646…0667 at0007 = ╱72╱r╱ // 0x64d @0x7
0x0646…0667 at0008 = ╱69╱i╱ // 0x64e @0x8
0x0646…0667 at0009 = ╱61╱a╱ // 0x64f @0x9
0x0646…0667 at000a = ╱62╱b╱ // 0x650 @0xa
0x0646…0667 at000b = ╱6c╱l╱ // 0x651 @0xb
0x0646…0667 at000c = ╱65╱e╱ // 0x652 @0xc
0x0646…0667 at000d = ╱20╱…╱ // 0x653 @0xd
0x0646…0667 at000e = ╱74╱t╱ // 0x654 @0xe
0x0646…0667 at000f = ╱69╱i╱ // 0x655 @0xf
0x0646…0667 at0010 = ╱6c╱l╱ // 0x656 @0x10
0x0646…0667 at0011 = ╱20╱…╱ // 0x657 @0x11
0x0646…0667 at0012 = ╱66╱f╱ // 0x658 @0x12
0x0646…0667 at0013 = ╱69╱i╱ // 0x659 @0x13
0x0646…0667 at0014 = ╱6c╱l╱ // 0x65a @0x14
0x0646…0667 at0015 = ╱65╱e╱ // 0x65b @0x15
0x0646…0667 at0016 = ╱6e╱n╱ // 0x65c @0x16
0x0646…0667 at0017 = ╱20╱…╱ // 0x65d @0x17
0x0646…0667 at0018 = ╱40╱@╱ // 0x65e @0x18
0x0646…0667 at0019 = ╱40╱@╱ // 0x65f @0x19
0x0646…0667 at001a = ╱4b╱K╱ // 0x660 @0x1a
0x0646…0667 at001b = ╱54╱T╱ // 0x661 @0x1b
0x0646…0667 at001c = ╱4f╱O╱ // 0x662 @0x1c
0x0646…0667 at001d = ╱49╱I╱ // 0x663 @0x1d
0x0646…0667 at001e = ╱44╱D╱ // 0x664 @0x1e
0x0646…0667 at001f = ╱58╱X╱ // 0x665 @0x1f
0x0646…0667 at0020 = EOL // 0x666 @0x20
0x0646…0667 }
0x0667…067a 9c68 0540 DIM KTOIDX$ OF 17
0x0667…067a LineComal80 {
0x0667…067a ptr = 0x9c68 // 0x667 @0x0
0x0667…067a lno = 0x021c // 0x669 @0x2
0x0667…067a at0004 = ╱87╱ DIM ╱ // 0x66b @0x4
0x0667…067a at0005 = ╱4b╱K╱ // 0x66c @0x5
0x0667…067a at0006 = ╱54╱T╱ // 0x66d @0x6
0x0667…067a at0007 = ╱4f╱O╱ // 0x66e @0x7
0x0667…067a at0008 = ╱49╱I╱ // 0x66f @0x8
0x0667…067a at0009 = ╱44╱D╱ // 0x670 @0x9
0x0667…067a at000a = ╱58╱X╱ // 0x671 @0xa
0x0667…067a at000b = ╱ef╱$╱ // 0x672 @0xb
0x0667…067a at000c = ╱ba╱ OF ╱ // 0x673 @0xc
0x0667…067a at000d = ╱31╱1╱ // 0x674 @0xd
0x0667…067a at000e = ╱37╱7╱ // 0x675 @0xe
0x0667…067a at000f = ╱f21100╱ // 0x676 @0xf
0x0667…067a at0012 = EOL // 0x679 @0x12
0x0667…067a }
0x067a…0691 9c7f 0550 INTEGER I_HØJREC,I_MAXREC
0x067a…0691 LineComal80 {
0x067a…0691 ptr = 0x9c7f // 0x67a @0x0
0x067a…0691 lno = 0x0226 // 0x67c @0x2
0x067a…0691 at0004 = ╱b2╱ INTEGER ╱ // 0x67e @0x4
0x067a…0691 at0005 = ╱49╱I╱ // 0x67f @0x5
0x067a…0691 at0006 = ╱5f╱_╱ // 0x680 @0x6
0x067a…0691 at0007 = ╱48╱H╱ // 0x681 @0x7
0x067a…0691 at0008 = ╱5c╱Ø╱ // 0x682 @0x8
0x067a…0691 at0009 = ╱4a╱J╱ // 0x683 @0x9
0x067a…0691 at000a = ╱52╱R╱ // 0x684 @0xa
0x067a…0691 at000b = ╱45╱E╱ // 0x685 @0xb
0x067a…0691 at000c = ╱43╱C╱ // 0x686 @0xc
0x067a…0691 at000d = ╱ec╱,╱ // 0x687 @0xd
0x067a…0691 at000e = ╱49╱I╱ // 0x688 @0xe
0x067a…0691 at000f = ╱5f╱_╱ // 0x689 @0xf
0x067a…0691 at0010 = ╱4d╱M╱ // 0x68a @0x10
0x067a…0691 at0011 = ╱41╱A╱ // 0x68b @0x11
0x067a…0691 at0012 = ╱58╱X╱ // 0x68c @0x12
0x067a…0691 at0013 = ╱52╱R╱ // 0x68d @0x13
0x067a…0691 at0014 = ╱45╱E╱ // 0x68e @0x14
0x067a…0691 at0015 = ╱43╱C╱ // 0x68f @0x15
0x067a…0691 at0016 = EOL // 0x690 @0x16
0x067a…0691 }
0x0691…06a2 9c90 0560 DIM KTONR$ OF 8
0x0691…06a2 LineComal80 {
0x0691…06a2 ptr = 0x9c90 // 0x691 @0x0
0x0691…06a2 lno = 0x0230 // 0x693 @0x2
0x0691…06a2 at0004 = ╱87╱ DIM ╱ // 0x695 @0x4
0x0691…06a2 at0005 = ╱4b╱K╱ // 0x696 @0x5
0x0691…06a2 at0006 = ╱54╱T╱ // 0x697 @0x6
0x0691…06a2 at0007 = ╱4f╱O╱ // 0x698 @0x7
0x0691…06a2 at0008 = ╱4e╱N╱ // 0x699 @0x8
0x0691…06a2 at0009 = ╱52╱R╱ // 0x69a @0x9
0x0691…06a2 at000a = ╱ef╱$╱ // 0x69b @0xa
0x0691…06a2 at000b = ╱ba╱ OF ╱ // 0x69c @0xb
0x0691…06a2 at000c = ╱38╱8╱ // 0x69d @0xc
0x0691…06a2 at000d = ╱f20800╱ // 0x69e @0xd
0x0691…06a2 at0010 = EOL // 0x6a1 @0x10
0x0691…06a2 }
0x06a2…06ad 9c9b 0570 INTEGER RECNR
0x06a2…06ad LineComal80 {
0x06a2…06ad ptr = 0x9c9b // 0x6a2 @0x0
0x06a2…06ad lno = 0x023a // 0x6a4 @0x2
0x06a2…06ad at0004 = ╱b2╱ INTEGER ╱ // 0x6a6 @0x4
0x06a2…06ad at0005 = ╱52╱R╱ // 0x6a7 @0x5
0x06a2…06ad at0006 = ╱45╱E╱ // 0x6a8 @0x6
0x06a2…06ad at0007 = ╱43╱C╱ // 0x6a9 @0x7
0x06a2…06ad at0008 = ╱4e╱N╱ // 0x6aa @0x8
0x06a2…06ad at0009 = ╱52╱R╱ // 0x6ab @0x9
0x06a2…06ad at000a = EOL // 0x6ac @0xa
0x06a2…06ad }
0x06ad…06ce 9cbc 0580 // Variable til filen @@ST_KTO
0x06ad…06ce LineComal80 {
0x06ad…06ce ptr = 0x9cbc // 0x6ad @0x0
0x06ad…06ce lno = 0x0244 // 0x6af @0x2
0x06ad…06ce at0004 = ╱89╱ // ╱ // 0x6b1 @0x4
0x06ad…06ce at0005 = ╱56╱V╱ // 0x6b2 @0x5
0x06ad…06ce at0006 = ╱61╱a╱ // 0x6b3 @0x6
0x06ad…06ce at0007 = ╱72╱r╱ // 0x6b4 @0x7
0x06ad…06ce at0008 = ╱69╱i╱ // 0x6b5 @0x8
0x06ad…06ce at0009 = ╱61╱a╱ // 0x6b6 @0x9
0x06ad…06ce at000a = ╱62╱b╱ // 0x6b7 @0xa
0x06ad…06ce at000b = ╱6c╱l╱ // 0x6b8 @0xb
0x06ad…06ce at000c = ╱65╱e╱ // 0x6b9 @0xc
0x06ad…06ce at000d = ╱20╱…╱ // 0x6ba @0xd
0x06ad…06ce at000e = ╱74╱t╱ // 0x6bb @0xe
0x06ad…06ce at000f = ╱69╱i╱ // 0x6bc @0xf
0x06ad…06ce at0010 = ╱6c╱l╱ // 0x6bd @0x10
0x06ad…06ce at0011 = ╱20╱…╱ // 0x6be @0x11
0x06ad…06ce at0012 = ╱66╱f╱ // 0x6bf @0x12
0x06ad…06ce at0013 = ╱69╱i╱ // 0x6c0 @0x13
0x06ad…06ce at0014 = ╱6c╱l╱ // 0x6c1 @0x14
0x06ad…06ce at0015 = ╱65╱e╱ // 0x6c2 @0x15
0x06ad…06ce at0016 = ╱6e╱n╱ // 0x6c3 @0x16
0x06ad…06ce at0017 = ╱20╱…╱ // 0x6c4 @0x17
0x06ad…06ce at0018 = ╱40╱@╱ // 0x6c5 @0x18
0x06ad…06ce at0019 = ╱40╱@╱ // 0x6c6 @0x19
0x06ad…06ce at001a = ╱53╱S╱ // 0x6c7 @0x1a
0x06ad…06ce at001b = ╱54╱T╱ // 0x6c8 @0x1b
0x06ad…06ce at001c = ╱5f╱_╱ // 0x6c9 @0x1c
0x06ad…06ce at001d = ╱4b╱K╱ // 0x6ca @0x1d
0x06ad…06ce at001e = ╱54╱T╱ // 0x6cb @0x1e
0x06ad…06ce at001f = ╱4f╱O╱ // 0x6cc @0x1f
0x06ad…06ce at0020 = EOL // 0x6cd @0x20
0x06ad…06ce }
0x06ce…06e1 9ccf 0590 DIM ST_KTO$ OF 17
0x06ce…06e1 LineComal80 {
0x06ce…06e1 ptr = 0x9ccf // 0x6ce @0x0
0x06ce…06e1 lno = 0x024e // 0x6d0 @0x2
0x06ce…06e1 at0004 = ╱87╱ DIM ╱ // 0x6d2 @0x4
0x06ce…06e1 at0005 = ╱53╱S╱ // 0x6d3 @0x5
0x06ce…06e1 at0006 = ╱54╱T╱ // 0x6d4 @0x6
0x06ce…06e1 at0007 = ╱5f╱_╱ // 0x6d5 @0x7
0x06ce…06e1 at0008 = ╱4b╱K╱ // 0x6d6 @0x8
0x06ce…06e1 at0009 = ╱54╱T╱ // 0x6d7 @0x9
0x06ce…06e1 at000a = ╱4f╱O╱ // 0x6d8 @0xa
0x06ce…06e1 at000b = ╱ef╱$╱ // 0x6d9 @0xb
0x06ce…06e1 at000c = ╱ba╱ OF ╱ // 0x6da @0xc
0x06ce…06e1 at000d = ╱31╱1╱ // 0x6db @0xd
0x06ce…06e1 at000e = ╱37╱7╱ // 0x6dc @0xe
0x06ce…06e1 at000f = ╱f21100╱ // 0x6dd @0xf
0x06ce…06e1 at0012 = EOL // 0x6e0 @0x12
0x06ce…06e1 }
0x06e1…0714 9d02 0600 DIM KASSE_KTO$ OF 8,BANK_KTO$ OF 8,GIRO_KTO$ OF 8
0x06e1…0714 LineComal80 {
0x06e1…0714 ptr = 0x9d02 // 0x6e1 @0x0
0x06e1…0714 lno = 0x0258 // 0x6e3 @0x2
0x06e1…0714 at0004 = ╱87╱ DIM ╱ // 0x6e5 @0x4
0x06e1…0714 at0005 = ╱4b╱K╱ // 0x6e6 @0x5
0x06e1…0714 at0006 = ╱41╱A╱ // 0x6e7 @0x6
0x06e1…0714 at0007 = ╱53╱S╱ // 0x6e8 @0x7
0x06e1…0714 at0008 = ╱53╱S╱ // 0x6e9 @0x8
0x06e1…0714 at0009 = ╱45╱E╱ // 0x6ea @0x9
0x06e1…0714 at000a = ╱5f╱_╱ // 0x6eb @0xa
0x06e1…0714 at000b = ╱4b╱K╱ // 0x6ec @0xb
0x06e1…0714 at000c = ╱54╱T╱ // 0x6ed @0xc
0x06e1…0714 at000d = ╱4f╱O╱ // 0x6ee @0xd
0x06e1…0714 at000e = ╱ef╱$╱ // 0x6ef @0xe
0x06e1…0714 at000f = ╱ba╱ OF ╱ // 0x6f0 @0xf
0x06e1…0714 at0010 = ╱38╱8╱ // 0x6f1 @0x10
0x06e1…0714 at0011 = ╱f20800╱ // 0x6f2 @0x11
0x06e1…0714 at0014 = ╱ec╱,╱ // 0x6f5 @0x14
0x06e1…0714 at0015 = ╱42╱B╱ // 0x6f6 @0x15
0x06e1…0714 at0016 = ╱41╱A╱ // 0x6f7 @0x16
0x06e1…0714 at0017 = ╱4e╱N╱ // 0x6f8 @0x17
0x06e1…0714 at0018 = ╱4b╱K╱ // 0x6f9 @0x18
0x06e1…0714 at0019 = ╱5f╱_╱ // 0x6fa @0x19
0x06e1…0714 at001a = ╱4b╱K╱ // 0x6fb @0x1a
0x06e1…0714 at001b = ╱54╱T╱ // 0x6fc @0x1b
0x06e1…0714 at001c = ╱4f╱O╱ // 0x6fd @0x1c
0x06e1…0714 at001d = ╱ef╱$╱ // 0x6fe @0x1d
0x06e1…0714 at001e = ╱ba╱ OF ╱ // 0x6ff @0x1e
0x06e1…0714 at001f = ╱38╱8╱ // 0x700 @0x1f
0x06e1…0714 at0020 = ╱f20800╱ // 0x701 @0x20
0x06e1…0714 at0023 = ╱ec╱,╱ // 0x704 @0x23
0x06e1…0714 at0024 = ╱47╱G╱ // 0x705 @0x24
0x06e1…0714 at0025 = ╱49╱I╱ // 0x706 @0x25
0x06e1…0714 at0026 = ╱52╱R╱ // 0x707 @0x26
0x06e1…0714 at0027 = ╱4f╱O╱ // 0x708 @0x27
0x06e1…0714 at0028 = ╱5f╱_╱ // 0x709 @0x28
0x06e1…0714 at0029 = ╱4b╱K╱ // 0x70a @0x29
0x06e1…0714 at002a = ╱54╱T╱ // 0x70b @0x2a
0x06e1…0714 at002b = ╱4f╱O╱ // 0x70c @0x2b
0x06e1…0714 at002c = ╱ef╱$╱ // 0x70d @0x2c
0x06e1…0714 at002d = ╱ba╱ OF ╱ // 0x70e @0x2d
0x06e1…0714 at002e = ╱38╱8╱ // 0x70f @0x2e
0x06e1…0714 at002f = ╱f20800╱ // 0x710 @0x2f
0x06e1…0714 at0032 = EOL // 0x713 @0x32
0x06e1…0714 }
0x0714…0735 9d23 0610 // Variable til filen @@DG_POS
0x0714…0735 LineComal80 {
0x0714…0735 ptr = 0x9d23 // 0x714 @0x0
0x0714…0735 lno = 0x0262 // 0x716 @0x2
0x0714…0735 at0004 = ╱89╱ // ╱ // 0x718 @0x4
0x0714…0735 at0005 = ╱56╱V╱ // 0x719 @0x5
0x0714…0735 at0006 = ╱61╱a╱ // 0x71a @0x6
0x0714…0735 at0007 = ╱72╱r╱ // 0x71b @0x7
0x0714…0735 at0008 = ╱69╱i╱ // 0x71c @0x8
0x0714…0735 at0009 = ╱61╱a╱ // 0x71d @0x9
0x0714…0735 at000a = ╱62╱b╱ // 0x71e @0xa
0x0714…0735 at000b = ╱6c╱l╱ // 0x71f @0xb
0x0714…0735 at000c = ╱65╱e╱ // 0x720 @0xc
0x0714…0735 at000d = ╱20╱…╱ // 0x721 @0xd
0x0714…0735 at000e = ╱74╱t╱ // 0x722 @0xe
0x0714…0735 at000f = ╱69╱i╱ // 0x723 @0xf
0x0714…0735 at0010 = ╱6c╱l╱ // 0x724 @0x10
0x0714…0735 at0011 = ╱20╱…╱ // 0x725 @0x11
0x0714…0735 at0012 = ╱66╱f╱ // 0x726 @0x12
0x0714…0735 at0013 = ╱69╱i╱ // 0x727 @0x13
0x0714…0735 at0014 = ╱6c╱l╱ // 0x728 @0x14
0x0714…0735 at0015 = ╱65╱e╱ // 0x729 @0x15
0x0714…0735 at0016 = ╱6e╱n╱ // 0x72a @0x16
0x0714…0735 at0017 = ╱20╱…╱ // 0x72b @0x17
0x0714…0735 at0018 = ╱40╱@╱ // 0x72c @0x18
0x0714…0735 at0019 = ╱40╱@╱ // 0x72d @0x19
0x0714…0735 at001a = ╱44╱D╱ // 0x72e @0x1a
0x0714…0735 at001b = ╱47╱G╱ // 0x72f @0x1b
0x0714…0735 at001c = ╱5f╱_╱ // 0x730 @0x1c
0x0714…0735 at001d = ╱50╱P╱ // 0x731 @0x1d
0x0714…0735 at001e = ╱4f╱O╱ // 0x732 @0x1e
0x0714…0735 at001f = ╱53╱S╱ // 0x733 @0x1f
0x0714…0735 at0020 = EOL // 0x734 @0x20
0x0714…0735 }
0x0735…0748 9d36 0620 DIM DG_POS$ OF 17
0x0735…0748 LineComal80 {
0x0735…0748 ptr = 0x9d36 // 0x735 @0x0
0x0735…0748 lno = 0x026c // 0x737 @0x2
0x0735…0748 at0004 = ╱87╱ DIM ╱ // 0x739 @0x4
0x0735…0748 at0005 = ╱44╱D╱ // 0x73a @0x5
0x0735…0748 at0006 = ╱47╱G╱ // 0x73b @0x6
0x0735…0748 at0007 = ╱5f╱_╱ // 0x73c @0x7
0x0735…0748 at0008 = ╱50╱P╱ // 0x73d @0x8
0x0735…0748 at0009 = ╱4f╱O╱ // 0x73e @0x9
0x0735…0748 at000a = ╱53╱S╱ // 0x73f @0xa
0x0735…0748 at000b = ╱ef╱$╱ // 0x740 @0xb
0x0735…0748 at000c = ╱ba╱ OF ╱ // 0x741 @0xc
0x0735…0748 at000d = ╱31╱1╱ // 0x742 @0xd
0x0735…0748 at000e = ╱37╱7╱ // 0x743 @0xe
0x0735…0748 at000f = ╱f21100╱ // 0x744 @0xf
0x0735…0748 at0012 = EOL // 0x747 @0x12
0x0735…0748 }
0x0748…075a 9d48 0630 DIM P_BDAT$ OF 6
0x0748…075a LineComal80 {
0x0748…075a ptr = 0x9d48 // 0x748 @0x0
0x0748…075a lno = 0x0276 // 0x74a @0x2
0x0748…075a at0004 = ╱87╱ DIM ╱ // 0x74c @0x4
0x0748…075a at0005 = ╱50╱P╱ // 0x74d @0x5
0x0748…075a at0006 = ╱5f╱_╱ // 0x74e @0x6
0x0748…075a at0007 = ╱42╱B╱ // 0x74f @0x7
0x0748…075a at0008 = ╱44╱D╱ // 0x750 @0x8
0x0748…075a at0009 = ╱41╱A╱ // 0x751 @0x9
0x0748…075a at000a = ╱54╱T╱ // 0x752 @0xa
0x0748…075a at000b = ╱ef╱$╱ // 0x753 @0xb
0x0748…075a at000c = ╱ba╱ OF ╱ // 0x754 @0xc
0x0748…075a at000d = ╱36╱6╱ // 0x755 @0xd
0x0748…075a at000e = ╱f20600╱ // 0x756 @0xe
0x0748…075a at0011 = EOL // 0x759 @0x11
0x0748…075a }
0x075a…076c 9d5a 0640 REAL P_DEB,P_KRED
0x075a…076c LineComal80 {
0x075a…076c ptr = 0x9d5a // 0x75a @0x0
0x075a…076c lno = 0x0280 // 0x75c @0x2
0x075a…076c at0004 = ╱b3╱ REAL ╱ // 0x75e @0x4
0x075a…076c at0005 = ╱50╱P╱ // 0x75f @0x5
0x075a…076c at0006 = ╱5f╱_╱ // 0x760 @0x6
0x075a…076c at0007 = ╱44╱D╱ // 0x761 @0x7
0x075a…076c at0008 = ╱45╱E╱ // 0x762 @0x8
0x075a…076c at0009 = ╱42╱B╱ // 0x763 @0x9
0x075a…076c at000a = ╱ec╱,╱ // 0x764 @0xa
0x075a…076c at000b = ╱50╱P╱ // 0x765 @0xb
0x075a…076c at000c = ╱5f╱_╱ // 0x766 @0xc
0x075a…076c at000d = ╱4b╱K╱ // 0x767 @0xd
0x075a…076c at000e = ╱52╱R╱ // 0x768 @0xe
0x075a…076c at000f = ╱45╱E╱ // 0x769 @0xf
0x075a…076c at0010 = ╱44╱D╱ // 0x76a @0x10
0x075a…076c at0011 = EOL // 0x76b @0x11
0x075a…076c }
0x076c…078f 9d7d 0650 INTEGER P_HØJREC,P_MAXREC,S_NR_DG_POS
0x076c…078f LineComal80 {
0x076c…078f ptr = 0x9d7d // 0x76c @0x0
0x076c…078f lno = 0x028a // 0x76e @0x2
0x076c…078f at0004 = ╱b2╱ INTEGER ╱ // 0x770 @0x4
0x076c…078f at0005 = ╱50╱P╱ // 0x771 @0x5
0x076c…078f at0006 = ╱5f╱_╱ // 0x772 @0x6
0x076c…078f at0007 = ╱48╱H╱ // 0x773 @0x7
0x076c…078f at0008 = ╱5c╱Ø╱ // 0x774 @0x8
0x076c…078f at0009 = ╱4a╱J╱ // 0x775 @0x9
0x076c…078f at000a = ╱52╱R╱ // 0x776 @0xa
0x076c…078f at000b = ╱45╱E╱ // 0x777 @0xb
0x076c…078f at000c = ╱43╱C╱ // 0x778 @0xc
0x076c…078f at000d = ╱ec╱,╱ // 0x779 @0xd
0x076c…078f at000e = ╱50╱P╱ // 0x77a @0xe
0x076c…078f at000f = ╱5f╱_╱ // 0x77b @0xf
0x076c…078f at0010 = ╱4d╱M╱ // 0x77c @0x10
0x076c…078f at0011 = ╱41╱A╱ // 0x77d @0x11
0x076c…078f at0012 = ╱58╱X╱ // 0x77e @0x12
0x076c…078f at0013 = ╱52╱R╱ // 0x77f @0x13
0x076c…078f at0014 = ╱45╱E╱ // 0x780 @0x14
0x076c…078f at0015 = ╱43╱C╱ // 0x781 @0x15
0x076c…078f at0016 = ╱ec╱,╱ // 0x782 @0x16
0x076c…078f at0017 = ╱53╱S╱ // 0x783 @0x17
0x076c…078f at0018 = ╱5f╱_╱ // 0x784 @0x18
0x076c…078f at0019 = ╱4e╱N╱ // 0x785 @0x19
0x076c…078f at001a = ╱52╱R╱ // 0x786 @0x1a
0x076c…078f at001b = ╱5f╱_╱ // 0x787 @0x1b
0x076c…078f at001c = ╱44╱D╱ // 0x788 @0x1c
0x076c…078f at001d = ╱47╱G╱ // 0x789 @0x1d
0x076c…078f at001e = ╱5f╱_╱ // 0x78a @0x1e
0x076c…078f at001f = ╱50╱P╱ // 0x78b @0x1f
0x076c…078f at0020 = ╱4f╱O╱ // 0x78c @0x20
0x076c…078f at0021 = ╱53╱S╱ // 0x78d @0x21
0x076c…078f at0022 = EOL // 0x78e @0x22
0x076c…078f }
0x078f…07c7 9db5 0660 DIM P_BKTO$ OF 8,P_MKOD$ OF 1,P_BNR$ OF 5,P_TXT$ OF 20
0x078f…07c7 LineComal80 {
0x078f…07c7 ptr = 0x9db5 // 0x78f @0x0
0x078f…07c7 lno = 0x0294 // 0x791 @0x2
0x078f…07c7 at0004 = ╱87╱ DIM ╱ // 0x793 @0x4
0x078f…07c7 at0005 = ╱50╱P╱ // 0x794 @0x5
0x078f…07c7 at0006 = ╱5f╱_╱ // 0x795 @0x6
0x078f…07c7 at0007 = ╱42╱B╱ // 0x796 @0x7
0x078f…07c7 at0008 = ╱4b╱K╱ // 0x797 @0x8
0x078f…07c7 at0009 = ╱54╱T╱ // 0x798 @0x9
0x078f…07c7 at000a = ╱4f╱O╱ // 0x799 @0xa
0x078f…07c7 at000b = ╱ef╱$╱ // 0x79a @0xb
0x078f…07c7 at000c = ╱ba╱ OF ╱ // 0x79b @0xc
0x078f…07c7 at000d = ╱38╱8╱ // 0x79c @0xd
0x078f…07c7 at000e = ╱f20800╱ // 0x79d @0xe
0x078f…07c7 at0011 = ╱ec╱,╱ // 0x7a0 @0x11
0x078f…07c7 at0012 = ╱50╱P╱ // 0x7a1 @0x12
0x078f…07c7 at0013 = ╱5f╱_╱ // 0x7a2 @0x13
0x078f…07c7 at0014 = ╱4d╱M╱ // 0x7a3 @0x14
0x078f…07c7 at0015 = ╱4b╱K╱ // 0x7a4 @0x15
0x078f…07c7 at0016 = ╱4f╱O╱ // 0x7a5 @0x16
0x078f…07c7 at0017 = ╱44╱D╱ // 0x7a6 @0x17
0x078f…07c7 at0018 = ╱ef╱$╱ // 0x7a7 @0x18
0x078f…07c7 at0019 = ╱ba╱ OF ╱ // 0x7a8 @0x19
0x078f…07c7 at001a = ╱31╱1╱ // 0x7a9 @0x1a
0x078f…07c7 at001b = ╱f20100╱ // 0x7aa @0x1b
0x078f…07c7 at001e = ╱ec╱,╱ // 0x7ad @0x1e
0x078f…07c7 at001f = ╱50╱P╱ // 0x7ae @0x1f
0x078f…07c7 at0020 = ╱5f╱_╱ // 0x7af @0x20
0x078f…07c7 at0021 = ╱42╱B╱ // 0x7b0 @0x21
0x078f…07c7 at0022 = ╱4e╱N╱ // 0x7b1 @0x22
0x078f…07c7 at0023 = ╱52╱R╱ // 0x7b2 @0x23
0x078f…07c7 at0024 = ╱ef╱$╱ // 0x7b3 @0x24
0x078f…07c7 at0025 = ╱ba╱ OF ╱ // 0x7b4 @0x25
0x078f…07c7 at0026 = ╱35╱5╱ // 0x7b5 @0x26
0x078f…07c7 at0027 = ╱f20500╱ // 0x7b6 @0x27
0x078f…07c7 at002a = ╱ec╱,╱ // 0x7b9 @0x2a
0x078f…07c7 at002b = ╱50╱P╱ // 0x7ba @0x2b
0x078f…07c7 at002c = ╱5f╱_╱ // 0x7bb @0x2c
0x078f…07c7 at002d = ╱54╱T╱ // 0x7bc @0x2d
0x078f…07c7 at002e = ╱58╱X╱ // 0x7bd @0x2e
0x078f…07c7 at002f = ╱54╱T╱ // 0x7be @0x2f
0x078f…07c7 at0030 = ╱ef╱$╱ // 0x7bf @0x30
0x078f…07c7 at0031 = ╱ba╱ OF ╱ // 0x7c0 @0x31
0x078f…07c7 at0032 = ╱32╱2╱ // 0x7c1 @0x32
0x078f…07c7 at0033 = ╱30╱0╱ // 0x7c2 @0x33
0x078f…07c7 at0034 = ╱f21400╱ // 0x7c3 @0x34
0x078f…07c7 at0037 = EOL // 0x7c6 @0x37
0x078f…07c7 }
0x07c7…07d2 9dc0 0670 REAL P_BKR
0x07c7…07d2 LineComal80 {
0x07c7…07d2 ptr = 0x9dc0 // 0x7c7 @0x0
0x07c7…07d2 lno = 0x029e // 0x7c9 @0x2
0x07c7…07d2 at0004 = ╱b3╱ REAL ╱ // 0x7cb @0x4
0x07c7…07d2 at0005 = ╱50╱P╱ // 0x7cc @0x5
0x07c7…07d2 at0006 = ╱5f╱_╱ // 0x7cd @0x6
0x07c7…07d2 at0007 = ╱42╱B╱ // 0x7ce @0x7
0x07c7…07d2 at0008 = ╱4b╱K╱ // 0x7cf @0x8
0x07c7…07d2 at0009 = ╱52╱R╱ // 0x7d0 @0x9
0x07c7…07d2 at000a = EOL // 0x7d1 @0xa
0x07c7…07d2 }
0x07d2…07dc (26,) 9dca 0680 INTEGER P_DK
0x07d2…07dc LineComal80 {
0x07d2…07dc ptr = 0x9dca // 0x7d2 @0x0
0x07d2…07dc lno = 0x02a8 // 0x7d4 @0x2
0x07d2…07dc at0004 = ╱b2╱ INTEGER ╱ // 0x7d6 @0x4
0x07d2…07dc at0005 = ╱50╱P╱ // 0x7d7 @0x5
0x07d2…07dc at0006 = ╱5f╱_╱ // 0x7d8 @0x6
0x07d2…07dc at0007 = ╱44╱D╱ // 0x7d9 @0x7
0x07d2…07dc at0008 = ╱4b╱K╱ // 0x7da @0x8
0x07d2…07dc at0009 = EOL // 0x7db @0x9
0x07d2…07dc }
0x07dc…07ed 9ddb 0690 ENDPROC DIMENSIONER
0x07dc…07ed LineComal80 {
0x07dc…07ed ptr = 0x9ddb // 0x7dc @0x0
0x07dc…07ed lno = 0x02b2 // 0x7de @0x2
0x07dc…07ed at0004 = ╱9f╱ ENDPROC ╱ // 0x7e0 @0x4
0x07dc…07ed at0005 = ╱44╱D╱ // 0x7e1 @0x5
0x07dc…07ed at0006 = ╱49╱I╱ // 0x7e2 @0x6
0x07dc…07ed at0007 = ╱4d╱M╱ // 0x7e3 @0x7
0x07dc…07ed at0008 = ╱45╱E╱ // 0x7e4 @0x8
0x07dc…07ed at0009 = ╱4e╱N╱ // 0x7e5 @0x9
0x07dc…07ed at000a = ╱53╱S╱ // 0x7e6 @0xa
0x07dc…07ed at000b = ╱49╱I╱ // 0x7e7 @0xb
0x07dc…07ed at000c = ╱4f╱O╱ // 0x7e8 @0xc
0x07dc…07ed at000d = ╱4e╱N╱ // 0x7e9 @0xd
0x07dc…07ed at000e = ╱45╱E╱ // 0x7ea @0xe
0x07dc…07ed at000f = ╱52╱R╱ // 0x7eb @0xf
0x07dc…07ed at0010 = EOL // 0x7ec @0x10
0x07dc…07ed }
0x07ed…07f2 9de0 0700
0x07ed…07f2 LineComal80 {
0x07ed…07f2 ptr = 0x9de0 // 0x7ed @0x0
0x07ed…07f2 lno = 0x02bc // 0x7ef @0x2
0x07ed…07f2 at0004 = EOL // 0x7f1 @0x4
0x07ed…07f2 }
0x07f2…0800 9dee 0710 PROC INITIER
0x07f2…0800 LineComal80 {
0x07f2…0800 ptr = 0x9dee // 0x7f2 @0x0
0x07f2…0800 lno = 0x02c6 // 0x7f4 @0x2
0x07f2…0800 at0004 = ╱9e02╱ PROC ╱ // 0x7f6 @0x4
0x07f2…0800 at0006 = ╱49╱I╱ // 0x7f8 @0x6
0x07f2…0800 at0007 = ╱4e╱N╱ // 0x7f9 @0x7
0x07f2…0800 at0008 = ╱49╱I╱ // 0x7fa @0x8
0x07f2…0800 at0009 = ╱54╱T╱ // 0x7fb @0x9
0x07f2…0800 at000a = ╱49╱I╱ // 0x7fc @0xa
0x07f2…0800 at000b = ╱45╱E╱ // 0x7fd @0xb
0x07f2…0800 at000c = ╱52╱R╱ // 0x7fe @0xc
0x07f2…0800 at000d = EOL // 0x7ff @0xd
0x07f2…0800 }
0x0800…0812 9e00 0720 LET PRGFL$ := "DP2"
0x0800…0812 LineComal80 {
0x0800…0812 ptr = 0x9e00 // 0x800 @0x0
0x0800…0812 lno = 0x02d0 // 0x802 @0x2
0x0800…0812 at0004 = ╱86╱ LET ╱ // 0x804 @0x4
0x0800…0812 at0005 = ╱50╱P╱ // 0x805 @0x5
0x0800…0812 at0006 = ╱52╱R╱ // 0x806 @0x6
0x0800…0812 at0007 = ╱47╱G╱ // 0x807 @0x7
0x0800…0812 at0008 = ╱46╱F╱ // 0x808 @0x8
0x0800…0812 at0009 = ╱4c╱L╱ // 0x809 @0x9
0x0800…0812 at000a = ╱ef╱$╱ // 0x80a @0xa
0x0800…0812 at000b = ╱f0╱ := ╱ // 0x80b @0xb
0x0800…0812 at000c = ╱22╱"╱ // 0x80c @0xc
0x0800…0812 at000d = ╱44╱D╱ // 0x80d @0xd
0x0800…0812 at000e = ╱50╱P╱ // 0x80e @0xe
0x0800…0812 at000f = ╱32╱2╱ // 0x80f @0xf
0x0800…0812 at0010 = ╱22╱"╱ // 0x810 @0x10
0x0800…0812 at0011 = EOL // 0x811 @0x11
0x0800…0812 }
0x0812…082f 9e1d 0730 LET PROGRAM$ := PRGFL$ + ":SYSI"
0x0812…082f LineComal80 {
0x0812…082f ptr = 0x9e1d // 0x812 @0x0
0x0812…082f lno = 0x02da // 0x814 @0x2
0x0812…082f at0004 = ╱86╱ LET ╱ // 0x816 @0x4
0x0812…082f at0005 = ╱50╱P╱ // 0x817 @0x5
0x0812…082f at0006 = ╱52╱R╱ // 0x818 @0x6
0x0812…082f at0007 = ╱4f╱O╱ // 0x819 @0x7
0x0812…082f at0008 = ╱47╱G╱ // 0x81a @0x8
0x0812…082f at0009 = ╱52╱R╱ // 0x81b @0x9
0x0812…082f at000a = ╱41╱A╱ // 0x81c @0xa
0x0812…082f at000b = ╱4d╱M╱ // 0x81d @0xb
0x0812…082f at000c = ╱ef╱$╱ // 0x81e @0xc
0x0812…082f at000d = ╱f0╱ := ╱ // 0x81f @0xd
0x0812…082f at000e = ╱50╱P╱ // 0x820 @0xe
0x0812…082f at000f = ╱52╱R╱ // 0x821 @0xf
0x0812…082f at0010 = ╱47╱G╱ // 0x822 @0x10
0x0812…082f at0011 = ╱46╱F╱ // 0x823 @0x11
0x0812…082f at0012 = ╱4c╱L╱ // 0x824 @0x12
0x0812…082f at0013 = ╱ef╱$╱ // 0x825 @0x13
0x0812…082f at0014 = ╱eb╱ + ╱ // 0x826 @0x14
0x0812…082f at0015 = ╱22╱"╱ // 0x827 @0x15
0x0812…082f at0016 = ╱3a╱:╱ // 0x828 @0x16
0x0812…082f at0017 = ╱53╱S╱ // 0x829 @0x17
0x0812…082f at0018 = ╱59╱Y╱ // 0x82a @0x18
0x0812…082f at0019 = ╱53╱S╱ // 0x82b @0x19
0x0812…082f at001a = ╱49╱I╱ // 0x82c @0x1a
0x0812…082f at001b = ╱22╱"╱ // 0x82d @0x1b
0x0812…082f at001c = EOL // 0x82e @0x1c
0x0812…082f }
0x082f…0846 9e34 0740 LET TAL$ := "0123456789"
0x082f…0846 LineComal80 {
0x082f…0846 ptr = 0x9e34 // 0x82f @0x0
0x082f…0846 lno = 0x02e4 // 0x831 @0x2
0x082f…0846 at0004 = ╱86╱ LET ╱ // 0x833 @0x4
0x082f…0846 at0005 = ╱54╱T╱ // 0x834 @0x5
0x082f…0846 at0006 = ╱41╱A╱ // 0x835 @0x6
0x082f…0846 at0007 = ╱4c╱L╱ // 0x836 @0x7
0x082f…0846 at0008 = ╱ef╱$╱ // 0x837 @0x8
0x082f…0846 at0009 = ╱f0╱ := ╱ // 0x838 @0x9
0x082f…0846 at000a = ╱22╱"╱ // 0x839 @0xa
0x082f…0846 at000b = ╱30╱0╱ // 0x83a @0xb
0x082f…0846 at000c = ╱31╱1╱ // 0x83b @0xc
0x082f…0846 at000d = ╱32╱2╱ // 0x83c @0xd
0x082f…0846 at000e = ╱33╱3╱ // 0x83d @0xe
0x082f…0846 at000f = ╱34╱4╱ // 0x83e @0xf
0x082f…0846 at0010 = ╱35╱5╱ // 0x83f @0x10
0x082f…0846 at0011 = ╱36╱6╱ // 0x840 @0x11
0x082f…0846 at0012 = ╱37╱7╱ // 0x841 @0x12
0x082f…0846 at0013 = ╱38╱8╱ // 0x842 @0x13
0x082f…0846 at0014 = ╱39╱9╱ // 0x843 @0x14
0x082f…0846 at0015 = ╱22╱"╱ // 0x844 @0x15
0x082f…0846 at0016 = EOL // 0x845 @0x16
0x082f…0846 }
0x0846…086e 9e5c 0750 FOR I := ╱cc╱ ("A") TO ("Å") DO LET ALFA$ := ALFA$ + CHR$ (I)
0x0846…086e LineComal80 {
0x0846…086e ptr = 0x9e5c // 0x846 @0x0
0x0846…086e lno = 0x02ee // 0x848 @0x2
0x0846…086e at0004 = ╱b400╱ FOR ╱ // 0x84a @0x4
0x0846…086e at0006 = ╱49╱I╱ // 0x84c @0x6
0x0846…086e at0007 = ╱f0╱ := ╱ // 0x84d @0x7
0x0846…086e at0008 = ╱cc╱ // 0x84e @0x8
0x0846…086e at0009 = ╱ed╱(╱ // 0x84f @0x9
0x0846…086e at000a = ╱22╱"╱ // 0x850 @0xa
0x0846…086e at000b = ╱41╱A╱ // 0x851 @0xb
0x0846…086e at000c = ╱22╱"╱ // 0x852 @0xc
0x0846…086e at000d = ╱ee╱)╱ // 0x853 @0xd
0x0846…086e at000e = ╱b7cc╱ TO ╱ // 0x854 @0xe
0x0846…086e at0010 = ╱ed╱(╱ // 0x856 @0x10
0x0846…086e at0011 = ╱22╱"╱ // 0x857 @0x11
0x0846…086e at0012 = ╱5d╱Å╱ // 0x858 @0x12
0x0846…086e at0013 = ╱22╱"╱ // 0x859 @0x13
0x0846…086e at0014 = ╱ee╱)╱ // 0x85a @0x14
0x0846…086e at0015 = ╱bb╱ DO ╱ // 0x85b @0x15
0x0846…086e at0016 = ╱86╱ LET ╱ // 0x85c @0x16
0x0846…086e at0017 = ╱41╱A╱ // 0x85d @0x17
0x0846…086e at0018 = ╱4c╱L╱ // 0x85e @0x18
0x0846…086e at0019 = ╱46╱F╱ // 0x85f @0x19
0x0846…086e at001a = ╱41╱A╱ // 0x860 @0x1a
0x0846…086e at001b = ╱ef╱$╱ // 0x861 @0x1b
0x0846…086e at001c = ╱f0╱ := ╱ // 0x862 @0x1c
0x0846…086e at001d = ╱41╱A╱ // 0x863 @0x1d
0x0846…086e at001e = ╱4c╱L╱ // 0x864 @0x1e
0x0846…086e at001f = ╱46╱F╱ // 0x865 @0x1f
0x0846…086e at0020 = ╱41╱A╱ // 0x866 @0x20
0x0846…086e at0021 = ╱ef╱$╱ // 0x867 @0x21
0x0846…086e at0022 = ╱eb╱ + ╱ // 0x868 @0x22
0x0846…086e at0023 = ╱d0╱ CHR$ ╱ // 0x869 @0x23
0x0846…086e at0024 = ╱ed╱(╱ // 0x86a @0x24
0x0846…086e at0025 = ╱49╱I╱ // 0x86b @0x25
0x0846…086e at0026 = ╱ee╱)╱ // 0x86c @0x26
0x0846…086e at0027 = EOL // 0x86d @0x27
0x0846…086e }
0x086e…08a8 9e96 0760 LET SPC$ := " "
0x086e…08a8 LineComal80 {
0x086e…08a8 ptr = 0x9e96 // 0x86e @0x0
0x086e…08a8 lno = 0x02f8 // 0x870 @0x2
0x086e…08a8 at0004 = ╱86╱ LET ╱ // 0x872 @0x4
0x086e…08a8 at0005 = ╱53╱S╱ // 0x873 @0x5
0x086e…08a8 at0006 = ╱50╱P╱ // 0x874 @0x6
0x086e…08a8 at0007 = ╱43╱C╱ // 0x875 @0x7
0x086e…08a8 at0008 = ╱ef╱$╱ // 0x876 @0x8
0x086e…08a8 at0009 = ╱f0╱ := ╱ // 0x877 @0x9
0x086e…08a8 at000a = ╱22╱"╱ // 0x878 @0xa
0x086e…08a8 at000b = ╱20╱…╱ // 0x879 @0xb
0x086e…08a8 at000c = ╱20╱…╱ // 0x87a @0xc
0x086e…08a8 at000d = ╱20╱…╱ // 0x87b @0xd
0x086e…08a8 at000e = ╱20╱…╱ // 0x87c @0xe
0x086e…08a8 at000f = ╱20╱…╱ // 0x87d @0xf
0x086e…08a8 at0010 = ╱20╱…╱ // 0x87e @0x10
0x086e…08a8 at0011 = ╱20╱…╱ // 0x87f @0x11
0x086e…08a8 at0012 = ╱20╱…╱ // 0x880 @0x12
0x086e…08a8 at0013 = ╱20╱…╱ // 0x881 @0x13
0x086e…08a8 at0014 = ╱20╱…╱ // 0x882 @0x14
0x086e…08a8 at0015 = ╱20╱…╱ // 0x883 @0x15
0x086e…08a8 at0016 = ╱20╱…╱ // 0x884 @0x16
0x086e…08a8 at0017 = ╱20╱…╱ // 0x885 @0x17
0x086e…08a8 at0018 = ╱20╱…╱ // 0x886 @0x18
0x086e…08a8 at0019 = ╱20╱…╱ // 0x887 @0x19
0x086e…08a8 at001a = ╱20╱…╱ // 0x888 @0x1a
0x086e…08a8 at001b = ╱20╱…╱ // 0x889 @0x1b
0x086e…08a8 at001c = ╱20╱…╱ // 0x88a @0x1c
0x086e…08a8 at001d = ╱20╱…╱ // 0x88b @0x1d
0x086e…08a8 at001e = ╱20╱…╱ // 0x88c @0x1e
0x086e…08a8 at001f = ╱20╱…╱ // 0x88d @0x1f
0x086e…08a8 at0020 = ╱20╱…╱ // 0x88e @0x20
0x086e…08a8 at0021 = ╱20╱…╱ // 0x88f @0x21
0x086e…08a8 at0022 = ╱20╱…╱ // 0x890 @0x22
0x086e…08a8 at0023 = ╱20╱…╱ // 0x891 @0x23
0x086e…08a8 at0024 = ╱20╱…╱ // 0x892 @0x24
0x086e…08a8 at0025 = ╱20╱…╱ // 0x893 @0x25
0x086e…08a8 at0026 = ╱20╱…╱ // 0x894 @0x26
0x086e…08a8 at0027 = ╱20╱…╱ // 0x895 @0x27
0x086e…08a8 at0028 = ╱20╱…╱ // 0x896 @0x28
0x086e…08a8 at0029 = ╱20╱…╱ // 0x897 @0x29
0x086e…08a8 at002a = ╱20╱…╱ // 0x898 @0x2a
0x086e…08a8 at002b = ╱20╱…╱ // 0x899 @0x2b
0x086e…08a8 at002c = ╱20╱…╱ // 0x89a @0x2c
0x086e…08a8 at002d = ╱20╱…╱ // 0x89b @0x2d
0x086e…08a8 at002e = ╱20╱…╱ // 0x89c @0x2e
0x086e…08a8 at002f = ╱20╱…╱ // 0x89d @0x2f
0x086e…08a8 at0030 = ╱20╱…╱ // 0x89e @0x30
0x086e…08a8 at0031 = ╱20╱…╱ // 0x89f @0x31
0x086e…08a8 at0032 = ╱20╱…╱ // 0x8a0 @0x32
0x086e…08a8 at0033 = ╱20╱…╱ // 0x8a1 @0x33
0x086e…08a8 at0034 = ╱20╱…╱ // 0x8a2 @0x34
0x086e…08a8 at0035 = ╱20╱…╱ // 0x8a3 @0x35
0x086e…08a8 at0036 = ╱20╱…╱ // 0x8a4 @0x36
0x086e…08a8 at0037 = ╱20╱…╱ // 0x8a5 @0x37
0x086e…08a8 at0038 = ╱22╱"╱ // 0x8a6 @0x38
0x086e…08a8 at0039 = EOL // 0x8a7 @0x39
0x086e…08a8 }
0x08a8…08bc 9eaa 0770 LET SPC$ := SPC$ + SPC$
0x08a8…08bc LineComal80 {
0x08a8…08bc ptr = 0x9eaa // 0x8a8 @0x0
0x08a8…08bc lno = 0x0302 // 0x8aa @0x2
0x08a8…08bc at0004 = ╱86╱ LET ╱ // 0x8ac @0x4
0x08a8…08bc at0005 = ╱53╱S╱ // 0x8ad @0x5
0x08a8…08bc at0006 = ╱50╱P╱ // 0x8ae @0x6
0x08a8…08bc at0007 = ╱43╱C╱ // 0x8af @0x7
0x08a8…08bc at0008 = ╱ef╱$╱ // 0x8b0 @0x8
0x08a8…08bc at0009 = ╱f0╱ := ╱ // 0x8b1 @0x9
0x08a8…08bc at000a = ╱53╱S╱ // 0x8b2 @0xa
0x08a8…08bc at000b = ╱50╱P╱ // 0x8b3 @0xb
0x08a8…08bc at000c = ╱43╱C╱ // 0x8b4 @0xc
0x08a8…08bc at000d = ╱ef╱$╱ // 0x8b5 @0xd
0x08a8…08bc at000e = ╱eb╱ + ╱ // 0x8b6 @0xe
0x08a8…08bc at000f = ╱53╱S╱ // 0x8b7 @0xf
0x08a8…08bc at0010 = ╱50╱P╱ // 0x8b8 @0x10
0x08a8…08bc at0011 = ╱43╱C╱ // 0x8b9 @0x11
0x08a8…08bc at0012 = ╱ef╱$╱ // 0x8ba @0x12
0x08a8…08bc at0013 = EOL // 0x8bb @0x13
0x08a8…08bc }
0x08bc…08e7 9ed5 0780 LET FALSE := 0 ; TRUE := 1 // boolske variable
0x08bc…08e7 LineComal80 {
0x08bc…08e7 ptr = 0x9ed5 // 0x8bc @0x0
0x08bc…08e7 lno = 0x030c // 0x8be @0x2
0x08bc…08e7 at0004 = ╱86╱ LET ╱ // 0x8c0 @0x4
0x08bc…08e7 at0005 = ╱46╱F╱ // 0x8c1 @0x5
0x08bc…08e7 at0006 = ╱41╱A╱ // 0x8c2 @0x6
0x08bc…08e7 at0007 = ╱4c╱L╱ // 0x8c3 @0x7
0x08bc…08e7 at0008 = ╱53╱S╱ // 0x8c4 @0x8
0x08bc…08e7 at0009 = ╱45╱E╱ // 0x8c5 @0x9
0x08bc…08e7 at000a = ╱f0╱ := ╱ // 0x8c6 @0xa
0x08bc…08e7 at000b = ╱30╱0╱ // 0x8c7 @0xb
0x08bc…08e7 at000c = ╱f20000╱ // 0x8c8 @0xc
0x08bc…08e7 at000f = ╱ea╱ ; ╱ // 0x8cb @0xf
0x08bc…08e7 at0010 = ╱54╱T╱ // 0x8cc @0x10
0x08bc…08e7 at0011 = ╱52╱R╱ // 0x8cd @0x11
0x08bc…08e7 at0012 = ╱55╱U╱ // 0x8ce @0x12
0x08bc…08e7 at0013 = ╱45╱E╱ // 0x8cf @0x13
0x08bc…08e7 at0014 = ╱f0╱ := ╱ // 0x8d0 @0x14
0x08bc…08e7 at0015 = ╱31╱1╱ // 0x8d1 @0x15
0x08bc…08e7 at0016 = ╱f20100╱ // 0x8d2 @0x16
0x08bc…08e7 at0019 = ╱89╱ // ╱ // 0x8d5 @0x19
0x08bc…08e7 at001a = ╱62╱b╱ // 0x8d6 @0x1a
0x08bc…08e7 at001b = ╱6f╱o╱ // 0x8d7 @0x1b
0x08bc…08e7 at001c = ╱6f╱o╱ // 0x8d8 @0x1c
0x08bc…08e7 at001d = ╱6c╱l╱ // 0x8d9 @0x1d
0x08bc…08e7 at001e = ╱73╱s╱ // 0x8da @0x1e
0x08bc…08e7 at001f = ╱6b╱k╱ // 0x8db @0x1f
0x08bc…08e7 at0020 = ╱65╱e╱ // 0x8dc @0x20
0x08bc…08e7 at0021 = ╱20╱…╱ // 0x8dd @0x21
0x08bc…08e7 at0022 = ╱76╱v╱ // 0x8de @0x22
0x08bc…08e7 at0023 = ╱61╱a╱ // 0x8df @0x23
0x08bc…08e7 at0024 = ╱72╱r╱ // 0x8e0 @0x24
0x08bc…08e7 at0025 = ╱69╱i╱ // 0x8e1 @0x25
0x08bc…08e7 at0026 = ╱61╱a╱ // 0x8e2 @0x26
0x08bc…08e7 at0027 = ╱62╱b╱ // 0x8e3 @0x27
0x08bc…08e7 at0028 = ╱6c╱l╱ // 0x8e4 @0x28
0x08bc…08e7 at0029 = ╱65╱e╱ // 0x8e5 @0x29
0x08bc…08e7 at002a = EOL // 0x8e6 @0x2a
0x08bc…08e7 }
0x08e7…0904 9ef2 0790 LET KREDIT := - 1 ; DEBET := 1
0x08e7…0904 LineComal80 {
0x08e7…0904 ptr = 0x9ef2 // 0x8e7 @0x0
0x08e7…0904 lno = 0x0316 // 0x8e9 @0x2
0x08e7…0904 at0004 = ╱86╱ LET ╱ // 0x8eb @0x4
0x08e7…0904 at0005 = ╱4b╱K╱ // 0x8ec @0x5
0x08e7…0904 at0006 = ╱52╱R╱ // 0x8ed @0x6
0x08e7…0904 at0007 = ╱45╱E╱ // 0x8ee @0x7
0x08e7…0904 at0008 = ╱44╱D╱ // 0x8ef @0x8
0x08e7…0904 at0009 = ╱49╱I╱ // 0x8f0 @0x9
0x08e7…0904 at000a = ╱54╱T╱ // 0x8f1 @0xa
0x08e7…0904 at000b = ╱f0╱ := ╱ // 0x8f2 @0xb
0x08e7…0904 at000c = ╱de╱ - ╱ // 0x8f3 @0xc
0x08e7…0904 at000d = ╱31╱1╱ // 0x8f4 @0xd
0x08e7…0904 at000e = ╱f20100╱ // 0x8f5 @0xe
0x08e7…0904 at0011 = ╱ea╱ ; ╱ // 0x8f8 @0x11
0x08e7…0904 at0012 = ╱44╱D╱ // 0x8f9 @0x12
0x08e7…0904 at0013 = ╱45╱E╱ // 0x8fa @0x13
0x08e7…0904 at0014 = ╱42╱B╱ // 0x8fb @0x14
0x08e7…0904 at0015 = ╱45╱E╱ // 0x8fc @0x15
0x08e7…0904 at0016 = ╱54╱T╱ // 0x8fd @0x16
0x08e7…0904 at0017 = ╱f0╱ := ╱ // 0x8fe @0x17
0x08e7…0904 at0018 = ╱31╱1╱ // 0x8ff @0x18
0x08e7…0904 at0019 = ╱f20100╱ // 0x900 @0x19
0x08e7…0904 at001c = EOL // 0x903 @0x1c
0x08e7…0904 }
0x0904…0924 9f12 0800 LET SYSPARA$ := PRGFL$ + ":SYSPARA"
0x0904…0924 LineComal80 {
0x0904…0924 ptr = 0x9f12 // 0x904 @0x0
0x0904…0924 lno = 0x0320 // 0x906 @0x2
0x0904…0924 at0004 = ╱86╱ LET ╱ // 0x908 @0x4
0x0904…0924 at0005 = ╱53╱S╱ // 0x909 @0x5
0x0904…0924 at0006 = ╱59╱Y╱ // 0x90a @0x6
0x0904…0924 at0007 = ╱53╱S╱ // 0x90b @0x7
0x0904…0924 at0008 = ╱50╱P╱ // 0x90c @0x8
0x0904…0924 at0009 = ╱41╱A╱ // 0x90d @0x9
0x0904…0924 at000a = ╱52╱R╱ // 0x90e @0xa
0x0904…0924 at000b = ╱41╱A╱ // 0x90f @0xb
0x0904…0924 at000c = ╱ef╱$╱ // 0x910 @0xc
0x0904…0924 at000d = ╱f0╱ := ╱ // 0x911 @0xd
0x0904…0924 at000e = ╱50╱P╱ // 0x912 @0xe
0x0904…0924 at000f = ╱52╱R╱ // 0x913 @0xf
0x0904…0924 at0010 = ╱47╱G╱ // 0x914 @0x10
0x0904…0924 at0011 = ╱46╱F╱ // 0x915 @0x11
0x0904…0924 at0012 = ╱4c╱L╱ // 0x916 @0x12
0x0904…0924 at0013 = ╱ef╱$╱ // 0x917 @0x13
0x0904…0924 at0014 = ╱eb╱ + ╱ // 0x918 @0x14
0x0904…0924 at0015 = ╱22╱"╱ // 0x919 @0x15
0x0904…0924 at0016 = ╱3a╱:╱ // 0x91a @0x16
0x0904…0924 at0017 = ╱53╱S╱ // 0x91b @0x17
0x0904…0924 at0018 = ╱59╱Y╱ // 0x91c @0x18
0x0904…0924 at0019 = ╱53╱S╱ // 0x91d @0x19
0x0904…0924 at001a = ╱50╱P╱ // 0x91e @0x1a
0x0904…0924 at001b = ╱41╱A╱ // 0x91f @0x1b
0x0904…0924 at001c = ╱52╱R╱ // 0x920 @0x1c
0x0904…0924 at001d = ╱41╱A╱ // 0x921 @0x1d
0x0904…0924 at001e = ╱22╱"╱ // 0x922 @0x1e
0x0904…0924 at001f = EOL // 0x923 @0x1f
0x0904…0924 }
0x0924…093f 9f2d 0810 EXEC OPENFIL(SYSPARA$,"R")
0x0924…093f LineComal80 {
0x0924…093f ptr = 0x9f2d // 0x924 @0x0
0x0924…093f lno = 0x032a // 0x926 @0x2
0x0924…093f at0004 = ╱9d╱ EXEC ╱ // 0x928 @0x4
0x0924…093f at0005 = ╱4f╱O╱ // 0x929 @0x5
0x0924…093f at0006 = ╱50╱P╱ // 0x92a @0x6
0x0924…093f at0007 = ╱45╱E╱ // 0x92b @0x7
0x0924…093f at0008 = ╱4e╱N╱ // 0x92c @0x8
0x0924…093f at0009 = ╱46╱F╱ // 0x92d @0x9
0x0924…093f at000a = ╱49╱I╱ // 0x92e @0xa
0x0924…093f at000b = ╱4c╱L╱ // 0x92f @0xb
0x0924…093f at000c = ╱ed╱(╱ // 0x930 @0xc
0x0924…093f at000d = ╱53╱S╱ // 0x931 @0xd
0x0924…093f at000e = ╱59╱Y╱ // 0x932 @0xe
0x0924…093f at000f = ╱53╱S╱ // 0x933 @0xf
0x0924…093f at0010 = ╱50╱P╱ // 0x934 @0x10
0x0924…093f at0011 = ╱41╱A╱ // 0x935 @0x11
0x0924…093f at0012 = ╱52╱R╱ // 0x936 @0x12
0x0924…093f at0013 = ╱41╱A╱ // 0x937 @0x13
0x0924…093f at0014 = ╱ef╱$╱ // 0x938 @0x14
0x0924…093f at0015 = ╱ec╱,╱ // 0x939 @0x15
0x0924…093f at0016 = ╱22╱"╱ // 0x93a @0x16
0x0924…093f at0017 = ╱52╱R╱ // 0x93b @0x17
0x0924…093f at0018 = ╱22╱"╱ // 0x93c @0x18
0x0924…093f at0019 = ╱ee╱)╱ // 0x93d @0x19
0x0924…093f at001a = EOL // 0x93e @0x1a
0x0924…093f }
0x093f…0965 9f53 0820 GET SYSPARA$,1 : SYST_NAVN$,S_KODE$
0x093f…0965 LineComal80 {
0x093f…0965 ptr = 0x9f53 // 0x93f @0x0
0x093f…0965 lno = 0x0334 // 0x941 @0x2
0x093f…0965 at0004 = ╱a9╱ GET ╱ // 0x943 @0x4
0x093f…0965 at0005 = ╱53╱S╱ // 0x944 @0x5
0x093f…0965 at0006 = ╱59╱Y╱ // 0x945 @0x6
0x093f…0965 at0007 = ╱53╱S╱ // 0x946 @0x7
0x093f…0965 at0008 = ╱50╱P╱ // 0x947 @0x8
0x093f…0965 at0009 = ╱41╱A╱ // 0x948 @0x9
0x093f…0965 at000a = ╱52╱R╱ // 0x949 @0xa
0x093f…0965 at000b = ╱41╱A╱ // 0x94a @0xb
0x093f…0965 at000c = ╱ef╱$╱ // 0x94b @0xc
0x093f…0965 at000d = ╱ec╱,╱ // 0x94c @0xd
0x093f…0965 at000e = ╱31╱1╱ // 0x94d @0xe
0x093f…0965 at000f = ╱f20100╱ // 0x94e @0xf
0x093f…0965 at0012 = ╱f1╱ : ╱ // 0x951 @0x12
0x093f…0965 at0013 = ╱53╱S╱ // 0x952 @0x13
0x093f…0965 at0014 = ╱59╱Y╱ // 0x953 @0x14
0x093f…0965 at0015 = ╱53╱S╱ // 0x954 @0x15
0x093f…0965 at0016 = ╱54╱T╱ // 0x955 @0x16
0x093f…0965 at0017 = ╱5f╱_╱ // 0x956 @0x17
0x093f…0965 at0018 = ╱4e╱N╱ // 0x957 @0x18
0x093f…0965 at0019 = ╱41╱A╱ // 0x958 @0x19
0x093f…0965 at001a = ╱56╱V╱ // 0x959 @0x1a
0x093f…0965 at001b = ╱4e╱N╱ // 0x95a @0x1b
0x093f…0965 at001c = ╱ef╱$╱ // 0x95b @0x1c
0x093f…0965 at001d = ╱ec╱,╱ // 0x95c @0x1d
0x093f…0965 at001e = ╱53╱S╱ // 0x95d @0x1e
0x093f…0965 at001f = ╱5f╱_╱ // 0x95e @0x1f
0x093f…0965 at0020 = ╱4b╱K╱ // 0x95f @0x20
0x093f…0965 at0021 = ╱4f╱O╱ // 0x960 @0x21
0x093f…0965 at0022 = ╱44╱D╱ // 0x961 @0x22
0x093f…0965 at0023 = ╱45╱E╱ // 0x962 @0x23
0x093f…0965 at0024 = ╱ef╱$╱ // 0x963 @0x24
0x093f…0965 at0025 = EOL // 0x964 @0x25
0x093f…0965 }
0x0965…0977 9f65 0830 EXEC TERMINAL_IDX
0x0965…0977 LineComal80 {
0x0965…0977 ptr = 0x9f65 // 0x965 @0x0
0x0965…0977 lno = 0x033e // 0x967 @0x2
0x0965…0977 at0004 = ╱9d╱ EXEC ╱ // 0x969 @0x4
0x0965…0977 at0005 = ╱54╱T╱ // 0x96a @0x5
0x0965…0977 at0006 = ╱45╱E╱ // 0x96b @0x6
0x0965…0977 at0007 = ╱52╱R╱ // 0x96c @0x7
0x0965…0977 at0008 = ╱4d╱M╱ // 0x96d @0x8
0x0965…0977 at0009 = ╱49╱I╱ // 0x96e @0x9
0x0965…0977 at000a = ╱4e╱N╱ // 0x96f @0xa
0x0965…0977 at000b = ╱41╱A╱ // 0x970 @0xb
0x0965…0977 at000c = ╱4c╱L╱ // 0x971 @0xc
0x0965…0977 at000d = ╱5f╱_╱ // 0x972 @0xd
0x0965…0977 at000e = ╱49╱I╱ // 0x973 @0xe
0x0965…0977 at000f = ╱44╱D╱ // 0x974 @0xf
0x0965…0977 at0010 = ╱58╱X╱ // 0x975 @0x10
0x0965…0977 at0011 = EOL // 0x976 @0x11
0x0965…0977 }
0x0977…0985 9f73 0840 CLOSE SYSPARA$
0x0977…0985 LineComal80 {
0x0977…0985 ptr = 0x9f73 // 0x977 @0x0
0x0977…0985 lno = 0x0348 // 0x979 @0x2
0x0977…0985 at0004 = ╱a8╱ CLOSE ╱ // 0x97b @0x4
0x0977…0985 at0005 = ╱53╱S╱ // 0x97c @0x5
0x0977…0985 at0006 = ╱59╱Y╱ // 0x97d @0x6
0x0977…0985 at0007 = ╱53╱S╱ // 0x97e @0x7
0x0977…0985 at0008 = ╱50╱P╱ // 0x97f @0x8
0x0977…0985 at0009 = ╱41╱A╱ // 0x980 @0x9
0x0977…0985 at000a = ╱52╱R╱ // 0x981 @0xa
0x0977…0985 at000b = ╱41╱A╱ // 0x982 @0xb
0x0977…0985 at000c = ╱ef╱$╱ // 0x983 @0xc
0x0977…0985 at000d = EOL // 0x984 @0xd
0x0977…0985 }
0x0985…09b5 9fa3 0850 LET PARAM$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "PARAM"
0x0985…09b5 LineComal80 {
0x0985…09b5 ptr = 0x9fa3 // 0x985 @0x0
0x0985…09b5 lno = 0x0352 // 0x987 @0x2
0x0985…09b5 at0004 = ╱86╱ LET ╱ // 0x989 @0x4
0x0985…09b5 at0005 = ╱50╱P╱ // 0x98a @0x5
0x0985…09b5 at0006 = ╱41╱A╱ // 0x98b @0x6
0x0985…09b5 at0007 = ╱52╱R╱ // 0x98c @0x7
0x0985…09b5 at0008 = ╱41╱A╱ // 0x98d @0x8
0x0985…09b5 at0009 = ╱4d╱M╱ // 0x98e @0x9
0x0985…09b5 at000a = ╱ef╱$╱ // 0x98f @0xa
0x0985…09b5 at000b = ╱f0╱ := ╱ // 0x990 @0xb
0x0985…09b5 at000c = ╱44╱D╱ // 0x991 @0xc
0x0985…09b5 at000d = ╱41╱A╱ // 0x992 @0xd
0x0985…09b5 at000e = ╱54╱T╱ // 0x993 @0xe
0x0985…09b5 at000f = ╱41╱A╱ // 0x994 @0xf
0x0985…09b5 at0010 = ╱46╱F╱ // 0x995 @0x10
0x0985…09b5 at0011 = ╱4c╱L╱ // 0x996 @0x11
0x0985…09b5 at0012 = ╱ef╱$╱ // 0x997 @0x12
0x0985…09b5 at0013 = ╱eb╱ + ╱ // 0x998 @0x13
0x0985…09b5 at0014 = ╱22╱"╱ // 0x999 @0x14
0x0985…09b5 at0015 = ╱3a╱:╱ // 0x99a @0x15
0x0985…09b5 at0016 = ╱22╱"╱ // 0x99b @0x16
0x0985…09b5 at0017 = ╱eb╱ + ╱ // 0x99c @0x17
0x0985…09b5 at0018 = ╱53╱S╱ // 0x99d @0x18
0x0985…09b5 at0019 = ╱5f╱_╱ // 0x99e @0x19
0x0985…09b5 at001a = ╱4b╱K╱ // 0x99f @0x1a
0x0985…09b5 at001b = ╱4f╱O╱ // 0x9a0 @0x1b
0x0985…09b5 at001c = ╱44╱D╱ // 0x9a1 @0x1c
0x0985…09b5 at001d = ╱45╱E╱ // 0x9a2 @0x1d
0x0985…09b5 at001e = ╱ef╱$╱ // 0x9a3 @0x1e
0x0985…09b5 at001f = ╱eb╱ + ╱ // 0x9a4 @0x1f
0x0985…09b5 at0020 = ╱54╱T╱ // 0x9a5 @0x20
0x0985…09b5 at0021 = ╱5f╱_╱ // 0x9a6 @0x21
0x0985…09b5 at0022 = ╱4b╱K╱ // 0x9a7 @0x22
0x0985…09b5 at0023 = ╱4f╱O╱ // 0x9a8 @0x23
0x0985…09b5 at0024 = ╱44╱D╱ // 0x9a9 @0x24
0x0985…09b5 at0025 = ╱45╱E╱ // 0x9aa @0x25
0x0985…09b5 at0026 = ╱ef╱$╱ // 0x9ab @0x26
0x0985…09b5 at0027 = ╱eb╱ + ╱ // 0x9ac @0x27
0x0985…09b5 at0028 = ╱22╱"╱ // 0x9ad @0x28
0x0985…09b5 at0029 = ╱50╱P╱ // 0x9ae @0x29
0x0985…09b5 at002a = ╱41╱A╱ // 0x9af @0x2a
0x0985…09b5 at002b = ╱52╱R╱ // 0x9b0 @0x2b
0x0985…09b5 at002c = ╱41╱A╱ // 0x9b1 @0x2c
0x0985…09b5 at002d = ╱4d╱M╱ // 0x9b2 @0x2d
0x0985…09b5 at002e = ╱22╱"╱ // 0x9b3 @0x2e
0x0985…09b5 at002f = EOL // 0x9b4 @0x2f
0x0985…09b5 }
0x09b5…09ce 9fbc 0860 EXEC OPENFIL(PARAM$,"R")
0x09b5…09ce LineComal80 {
0x09b5…09ce ptr = 0x9fbc // 0x9b5 @0x0
0x09b5…09ce lno = 0x035c // 0x9b7 @0x2
0x09b5…09ce at0004 = ╱9d╱ EXEC ╱ // 0x9b9 @0x4
0x09b5…09ce at0005 = ╱4f╱O╱ // 0x9ba @0x5
0x09b5…09ce at0006 = ╱50╱P╱ // 0x9bb @0x6
0x09b5…09ce at0007 = ╱45╱E╱ // 0x9bc @0x7
0x09b5…09ce at0008 = ╱4e╱N╱ // 0x9bd @0x8
0x09b5…09ce at0009 = ╱46╱F╱ // 0x9be @0x9
0x09b5…09ce at000a = ╱49╱I╱ // 0x9bf @0xa
0x09b5…09ce at000b = ╱4c╱L╱ // 0x9c0 @0xb
0x09b5…09ce at000c = ╱ed╱(╱ // 0x9c1 @0xc
0x09b5…09ce at000d = ╱50╱P╱ // 0x9c2 @0xd
0x09b5…09ce at000e = ╱41╱A╱ // 0x9c3 @0xe
0x09b5…09ce at000f = ╱52╱R╱ // 0x9c4 @0xf
0x09b5…09ce at0010 = ╱41╱A╱ // 0x9c5 @0x10
0x09b5…09ce at0011 = ╱4d╱M╱ // 0x9c6 @0x11
0x09b5…09ce at0012 = ╱ef╱$╱ // 0x9c7 @0x12
0x09b5…09ce at0013 = ╱ec╱,╱ // 0x9c8 @0x13
0x09b5…09ce at0014 = ╱22╱"╱ // 0x9c9 @0x14
0x09b5…09ce at0015 = ╱52╱R╱ // 0x9ca @0x15
0x09b5…09ce at0016 = ╱22╱"╱ // 0x9cb @0x16
0x09b5…09ce at0017 = ╱ee╱)╱ // 0x9cc @0x17
0x09b5…09ce at0018 = EOL // 0x9cd @0x18
0x09b5…09ce }
0x09ce…09f9 9fe7 0870 GET PARAM$,1 : FIRMANAVN$,SYST_DAT$,MOMS
0x09ce…09f9 LineComal80 {
0x09ce…09f9 ptr = 0x9fe7 // 0x9ce @0x0
0x09ce…09f9 lno = 0x0366 // 0x9d0 @0x2
0x09ce…09f9 at0004 = ╱a9╱ GET ╱ // 0x9d2 @0x4
0x09ce…09f9 at0005 = ╱50╱P╱ // 0x9d3 @0x5
0x09ce…09f9 at0006 = ╱41╱A╱ // 0x9d4 @0x6
0x09ce…09f9 at0007 = ╱52╱R╱ // 0x9d5 @0x7
0x09ce…09f9 at0008 = ╱41╱A╱ // 0x9d6 @0x8
0x09ce…09f9 at0009 = ╱4d╱M╱ // 0x9d7 @0x9
0x09ce…09f9 at000a = ╱ef╱$╱ // 0x9d8 @0xa
0x09ce…09f9 at000b = ╱ec╱,╱ // 0x9d9 @0xb
0x09ce…09f9 at000c = ╱31╱1╱ // 0x9da @0xc
0x09ce…09f9 at000d = ╱f20100╱ // 0x9db @0xd
0x09ce…09f9 at0010 = ╱f1╱ : ╱ // 0x9de @0x10
0x09ce…09f9 at0011 = ╱46╱F╱ // 0x9df @0x11
0x09ce…09f9 at0012 = ╱49╱I╱ // 0x9e0 @0x12
0x09ce…09f9 at0013 = ╱52╱R╱ // 0x9e1 @0x13
0x09ce…09f9 at0014 = ╱4d╱M╱ // 0x9e2 @0x14
0x09ce…09f9 at0015 = ╱41╱A╱ // 0x9e3 @0x15
0x09ce…09f9 at0016 = ╱4e╱N╱ // 0x9e4 @0x16
0x09ce…09f9 at0017 = ╱41╱A╱ // 0x9e5 @0x17
0x09ce…09f9 at0018 = ╱56╱V╱ // 0x9e6 @0x18
0x09ce…09f9 at0019 = ╱4e╱N╱ // 0x9e7 @0x19
0x09ce…09f9 at001a = ╱ef╱$╱ // 0x9e8 @0x1a
0x09ce…09f9 at001b = ╱ec╱,╱ // 0x9e9 @0x1b
0x09ce…09f9 at001c = ╱53╱S╱ // 0x9ea @0x1c
0x09ce…09f9 at001d = ╱59╱Y╱ // 0x9eb @0x1d
0x09ce…09f9 at001e = ╱53╱S╱ // 0x9ec @0x1e
0x09ce…09f9 at001f = ╱54╱T╱ // 0x9ed @0x1f
0x09ce…09f9 at0020 = ╱5f╱_╱ // 0x9ee @0x20
0x09ce…09f9 at0021 = ╱44╱D╱ // 0x9ef @0x21
0x09ce…09f9 at0022 = ╱41╱A╱ // 0x9f0 @0x22
0x09ce…09f9 at0023 = ╱54╱T╱ // 0x9f1 @0x23
0x09ce…09f9 at0024 = ╱ef╱$╱ // 0x9f2 @0x24
0x09ce…09f9 at0025 = ╱ec╱,╱ // 0x9f3 @0x25
0x09ce…09f9 at0026 = ╱4d╱M╱ // 0x9f4 @0x26
0x09ce…09f9 at0027 = ╱4f╱O╱ // 0x9f5 @0x27
0x09ce…09f9 at0028 = ╱4d╱M╱ // 0x9f6 @0x28
0x09ce…09f9 at0029 = ╱53╱S╱ // 0x9f7 @0x29
0x09ce…09f9 at002a = EOL // 0x9f8 @0x2a
0x09ce…09f9 }
0x09f9…0a05 9ff3 0880 CLOSE PARAM$
0x09f9…0a05 LineComal80 {
0x09f9…0a05 ptr = 0x9ff3 // 0x9f9 @0x0
0x09f9…0a05 lno = 0x0370 // 0x9fb @0x2
0x09f9…0a05 at0004 = ╱a8╱ CLOSE ╱ // 0x9fd @0x4
0x09f9…0a05 at0005 = ╱50╱P╱ // 0x9fe @0x5
0x09f9…0a05 at0006 = ╱41╱A╱ // 0x9ff @0x6
0x09f9…0a05 at0007 = ╱52╱R╱ // 0xa00 @0x7
0x09f9…0a05 at0008 = ╱41╱A╱ // 0xa01 @0x8
0x09f9…0a05 at0009 = ╱4d╱M╱ // 0xa02 @0x9
0x09f9…0a05 at000a = ╱ef╱$╱ // 0xa03 @0xa
0x09f9…0a05 at000b = EOL // 0xa04 @0xb
0x09f9…0a05 }
0x0a05…0a37 a025 0890 LET KTOIDX$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KTOIDX"
0x0a05…0a37 LineComal80 {
0x0a05…0a37 ptr = 0xa025 // 0xa05 @0x0
0x0a05…0a37 lno = 0x037a // 0xa07 @0x2
0x0a05…0a37 at0004 = ╱86╱ LET ╱ // 0xa09 @0x4
0x0a05…0a37 at0005 = ╱4b╱K╱ // 0xa0a @0x5
0x0a05…0a37 at0006 = ╱54╱T╱ // 0xa0b @0x6
0x0a05…0a37 at0007 = ╱4f╱O╱ // 0xa0c @0x7
0x0a05…0a37 at0008 = ╱49╱I╱ // 0xa0d @0x8
0x0a05…0a37 at0009 = ╱44╱D╱ // 0xa0e @0x9
0x0a05…0a37 at000a = ╱58╱X╱ // 0xa0f @0xa
0x0a05…0a37 at000b = ╱ef╱$╱ // 0xa10 @0xb
0x0a05…0a37 at000c = ╱f0╱ := ╱ // 0xa11 @0xc
0x0a05…0a37 at000d = ╱44╱D╱ // 0xa12 @0xd
0x0a05…0a37 at000e = ╱41╱A╱ // 0xa13 @0xe
0x0a05…0a37 at000f = ╱54╱T╱ // 0xa14 @0xf
0x0a05…0a37 at0010 = ╱41╱A╱ // 0xa15 @0x10
0x0a05…0a37 at0011 = ╱46╱F╱ // 0xa16 @0x11
0x0a05…0a37 at0012 = ╱4c╱L╱ // 0xa17 @0x12
0x0a05…0a37 at0013 = ╱ef╱$╱ // 0xa18 @0x13
0x0a05…0a37 at0014 = ╱eb╱ + ╱ // 0xa19 @0x14
0x0a05…0a37 at0015 = ╱22╱"╱ // 0xa1a @0x15
0x0a05…0a37 at0016 = ╱3a╱:╱ // 0xa1b @0x16
0x0a05…0a37 at0017 = ╱22╱"╱ // 0xa1c @0x17
0x0a05…0a37 at0018 = ╱eb╱ + ╱ // 0xa1d @0x18
0x0a05…0a37 at0019 = ╱53╱S╱ // 0xa1e @0x19
0x0a05…0a37 at001a = ╱5f╱_╱ // 0xa1f @0x1a
0x0a05…0a37 at001b = ╱4b╱K╱ // 0xa20 @0x1b
0x0a05…0a37 at001c = ╱4f╱O╱ // 0xa21 @0x1c
0x0a05…0a37 at001d = ╱44╱D╱ // 0xa22 @0x1d
0x0a05…0a37 at001e = ╱45╱E╱ // 0xa23 @0x1e
0x0a05…0a37 at001f = ╱ef╱$╱ // 0xa24 @0x1f
0x0a05…0a37 at0020 = ╱eb╱ + ╱ // 0xa25 @0x20
0x0a05…0a37 at0021 = ╱54╱T╱ // 0xa26 @0x21
0x0a05…0a37 at0022 = ╱5f╱_╱ // 0xa27 @0x22
0x0a05…0a37 at0023 = ╱4b╱K╱ // 0xa28 @0x23
0x0a05…0a37 at0024 = ╱4f╱O╱ // 0xa29 @0x24
0x0a05…0a37 at0025 = ╱44╱D╱ // 0xa2a @0x25
0x0a05…0a37 at0026 = ╱45╱E╱ // 0xa2b @0x26
0x0a05…0a37 at0027 = ╱ef╱$╱ // 0xa2c @0x27
0x0a05…0a37 at0028 = ╱eb╱ + ╱ // 0xa2d @0x28
0x0a05…0a37 at0029 = ╱22╱"╱ // 0xa2e @0x29
0x0a05…0a37 at002a = ╱4b╱K╱ // 0xa2f @0x2a
0x0a05…0a37 at002b = ╱54╱T╱ // 0xa30 @0x2b
0x0a05…0a37 at002c = ╱4f╱O╱ // 0xa31 @0x2c
0x0a05…0a37 at002d = ╱49╱I╱ // 0xa32 @0x2d
0x0a05…0a37 at002e = ╱44╱D╱ // 0xa33 @0x2e
0x0a05…0a37 at002f = ╱58╱X╱ // 0xa34 @0x2f
0x0a05…0a37 at0030 = ╱22╱"╱ // 0xa35 @0x30
0x0a05…0a37 at0031 = EOL // 0xa36 @0x31
0x0a05…0a37 }
0x0a37…0a67 a055 0900 LET KONTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "KONTO"
0x0a37…0a67 LineComal80 {
0x0a37…0a67 ptr = 0xa055 // 0xa37 @0x0
0x0a37…0a67 lno = 0x0384 // 0xa39 @0x2
0x0a37…0a67 at0004 = ╱86╱ LET ╱ // 0xa3b @0x4
0x0a37…0a67 at0005 = ╱4b╱K╱ // 0xa3c @0x5
0x0a37…0a67 at0006 = ╱4f╱O╱ // 0xa3d @0x6
0x0a37…0a67 at0007 = ╱4e╱N╱ // 0xa3e @0x7
0x0a37…0a67 at0008 = ╱54╱T╱ // 0xa3f @0x8
0x0a37…0a67 at0009 = ╱4f╱O╱ // 0xa40 @0x9
0x0a37…0a67 at000a = ╱ef╱$╱ // 0xa41 @0xa
0x0a37…0a67 at000b = ╱f0╱ := ╱ // 0xa42 @0xb
0x0a37…0a67 at000c = ╱44╱D╱ // 0xa43 @0xc
0x0a37…0a67 at000d = ╱41╱A╱ // 0xa44 @0xd
0x0a37…0a67 at000e = ╱54╱T╱ // 0xa45 @0xe
0x0a37…0a67 at000f = ╱41╱A╱ // 0xa46 @0xf
0x0a37…0a67 at0010 = ╱46╱F╱ // 0xa47 @0x10
0x0a37…0a67 at0011 = ╱4c╱L╱ // 0xa48 @0x11
0x0a37…0a67 at0012 = ╱ef╱$╱ // 0xa49 @0x12
0x0a37…0a67 at0013 = ╱eb╱ + ╱ // 0xa4a @0x13
0x0a37…0a67 at0014 = ╱22╱"╱ // 0xa4b @0x14
0x0a37…0a67 at0015 = ╱3a╱:╱ // 0xa4c @0x15
0x0a37…0a67 at0016 = ╱22╱"╱ // 0xa4d @0x16
0x0a37…0a67 at0017 = ╱eb╱ + ╱ // 0xa4e @0x17
0x0a37…0a67 at0018 = ╱53╱S╱ // 0xa4f @0x18
0x0a37…0a67 at0019 = ╱5f╱_╱ // 0xa50 @0x19
0x0a37…0a67 at001a = ╱4b╱K╱ // 0xa51 @0x1a
0x0a37…0a67 at001b = ╱4f╱O╱ // 0xa52 @0x1b
0x0a37…0a67 at001c = ╱44╱D╱ // 0xa53 @0x1c
0x0a37…0a67 at001d = ╱45╱E╱ // 0xa54 @0x1d
0x0a37…0a67 at001e = ╱ef╱$╱ // 0xa55 @0x1e
0x0a37…0a67 at001f = ╱eb╱ + ╱ // 0xa56 @0x1f
0x0a37…0a67 at0020 = ╱54╱T╱ // 0xa57 @0x20
0x0a37…0a67 at0021 = ╱5f╱_╱ // 0xa58 @0x21
0x0a37…0a67 at0022 = ╱4b╱K╱ // 0xa59 @0x22
0x0a37…0a67 at0023 = ╱4f╱O╱ // 0xa5a @0x23
0x0a37…0a67 at0024 = ╱44╱D╱ // 0xa5b @0x24
0x0a37…0a67 at0025 = ╱45╱E╱ // 0xa5c @0x25
0x0a37…0a67 at0026 = ╱ef╱$╱ // 0xa5d @0x26
0x0a37…0a67 at0027 = ╱eb╱ + ╱ // 0xa5e @0x27
0x0a37…0a67 at0028 = ╱22╱"╱ // 0xa5f @0x28
0x0a37…0a67 at0029 = ╱4b╱K╱ // 0xa60 @0x29
0x0a37…0a67 at002a = ╱4f╱O╱ // 0xa61 @0x2a
0x0a37…0a67 at002b = ╱4e╱N╱ // 0xa62 @0x2b
0x0a37…0a67 at002c = ╱54╱T╱ // 0xa63 @0x2c
0x0a37…0a67 at002d = ╱4f╱O╱ // 0xa64 @0x2d
0x0a37…0a67 at002e = ╱22╱"╱ // 0xa65 @0x2e
0x0a37…0a67 at002f = EOL // 0xa66 @0x2f
0x0a37…0a67 }
0x0a67…0a99 a087 0910 LET ST_KTO$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "ST_KTO"
0x0a67…0a99 LineComal80 {
0x0a67…0a99 ptr = 0xa087 // 0xa67 @0x0
0x0a67…0a99 lno = 0x038e // 0xa69 @0x2
0x0a67…0a99 at0004 = ╱86╱ LET ╱ // 0xa6b @0x4
0x0a67…0a99 at0005 = ╱53╱S╱ // 0xa6c @0x5
0x0a67…0a99 at0006 = ╱54╱T╱ // 0xa6d @0x6
0x0a67…0a99 at0007 = ╱5f╱_╱ // 0xa6e @0x7
0x0a67…0a99 at0008 = ╱4b╱K╱ // 0xa6f @0x8
0x0a67…0a99 at0009 = ╱54╱T╱ // 0xa70 @0x9
0x0a67…0a99 at000a = ╱4f╱O╱ // 0xa71 @0xa
0x0a67…0a99 at000b = ╱ef╱$╱ // 0xa72 @0xb
0x0a67…0a99 at000c = ╱f0╱ := ╱ // 0xa73 @0xc
0x0a67…0a99 at000d = ╱44╱D╱ // 0xa74 @0xd
0x0a67…0a99 at000e = ╱41╱A╱ // 0xa75 @0xe
0x0a67…0a99 at000f = ╱54╱T╱ // 0xa76 @0xf
0x0a67…0a99 at0010 = ╱41╱A╱ // 0xa77 @0x10
0x0a67…0a99 at0011 = ╱46╱F╱ // 0xa78 @0x11
0x0a67…0a99 at0012 = ╱4c╱L╱ // 0xa79 @0x12
0x0a67…0a99 at0013 = ╱ef╱$╱ // 0xa7a @0x13
0x0a67…0a99 at0014 = ╱eb╱ + ╱ // 0xa7b @0x14
0x0a67…0a99 at0015 = ╱22╱"╱ // 0xa7c @0x15
0x0a67…0a99 at0016 = ╱3a╱:╱ // 0xa7d @0x16
0x0a67…0a99 at0017 = ╱22╱"╱ // 0xa7e @0x17
0x0a67…0a99 at0018 = ╱eb╱ + ╱ // 0xa7f @0x18
0x0a67…0a99 at0019 = ╱53╱S╱ // 0xa80 @0x19
0x0a67…0a99 at001a = ╱5f╱_╱ // 0xa81 @0x1a
0x0a67…0a99 at001b = ╱4b╱K╱ // 0xa82 @0x1b
0x0a67…0a99 at001c = ╱4f╱O╱ // 0xa83 @0x1c
0x0a67…0a99 at001d = ╱44╱D╱ // 0xa84 @0x1d
0x0a67…0a99 at001e = ╱45╱E╱ // 0xa85 @0x1e
0x0a67…0a99 at001f = ╱ef╱$╱ // 0xa86 @0x1f
0x0a67…0a99 at0020 = ╱eb╱ + ╱ // 0xa87 @0x20
0x0a67…0a99 at0021 = ╱54╱T╱ // 0xa88 @0x21
0x0a67…0a99 at0022 = ╱5f╱_╱ // 0xa89 @0x22
0x0a67…0a99 at0023 = ╱4b╱K╱ // 0xa8a @0x23
0x0a67…0a99 at0024 = ╱4f╱O╱ // 0xa8b @0x24
0x0a67…0a99 at0025 = ╱44╱D╱ // 0xa8c @0x25
0x0a67…0a99 at0026 = ╱45╱E╱ // 0xa8d @0x26
0x0a67…0a99 at0027 = ╱ef╱$╱ // 0xa8e @0x27
0x0a67…0a99 at0028 = ╱eb╱ + ╱ // 0xa8f @0x28
0x0a67…0a99 at0029 = ╱22╱"╱ // 0xa90 @0x29
0x0a67…0a99 at002a = ╱53╱S╱ // 0xa91 @0x2a
0x0a67…0a99 at002b = ╱54╱T╱ // 0xa92 @0x2b
0x0a67…0a99 at002c = ╱5f╱_╱ // 0xa93 @0x2c
0x0a67…0a99 at002d = ╱4b╱K╱ // 0xa94 @0x2d
0x0a67…0a99 at002e = ╱54╱T╱ // 0xa95 @0x2e
0x0a67…0a99 at002f = ╱4f╱O╱ // 0xa96 @0x2f
0x0a67…0a99 at0030 = ╱22╱"╱ // 0xa97 @0x30
0x0a67…0a99 at0031 = EOL // 0xa98 @0x31
0x0a67…0a99 }
0x0a99…0acb a0b9 0920 LET DG_POS$ := DATAFL$ + ":" + S_KODE$ + T_KODE$ + "DG_POS"
0x0a99…0acb LineComal80 {
0x0a99…0acb ptr = 0xa0b9 // 0xa99 @0x0
0x0a99…0acb lno = 0x0398 // 0xa9b @0x2
0x0a99…0acb at0004 = ╱86╱ LET ╱ // 0xa9d @0x4
0x0a99…0acb at0005 = ╱44╱D╱ // 0xa9e @0x5
0x0a99…0acb at0006 = ╱47╱G╱ // 0xa9f @0x6
0x0a99…0acb at0007 = ╱5f╱_╱ // 0xaa0 @0x7
0x0a99…0acb at0008 = ╱50╱P╱ // 0xaa1 @0x8
0x0a99…0acb at0009 = ╱4f╱O╱ // 0xaa2 @0x9
0x0a99…0acb at000a = ╱53╱S╱ // 0xaa3 @0xa
0x0a99…0acb at000b = ╱ef╱$╱ // 0xaa4 @0xb
0x0a99…0acb at000c = ╱f0╱ := ╱ // 0xaa5 @0xc
0x0a99…0acb at000d = ╱44╱D╱ // 0xaa6 @0xd
0x0a99…0acb at000e = ╱41╱A╱ // 0xaa7 @0xe
0x0a99…0acb at000f = ╱54╱T╱ // 0xaa8 @0xf
0x0a99…0acb at0010 = ╱41╱A╱ // 0xaa9 @0x10
0x0a99…0acb at0011 = ╱46╱F╱ // 0xaaa @0x11
0x0a99…0acb at0012 = ╱4c╱L╱ // 0xaab @0x12
0x0a99…0acb at0013 = ╱ef╱$╱ // 0xaac @0x13
0x0a99…0acb at0014 = ╱eb╱ + ╱ // 0xaad @0x14
0x0a99…0acb at0015 = ╱22╱"╱ // 0xaae @0x15
0x0a99…0acb at0016 = ╱3a╱:╱ // 0xaaf @0x16
0x0a99…0acb at0017 = ╱22╱"╱ // 0xab0 @0x17
0x0a99…0acb at0018 = ╱eb╱ + ╱ // 0xab1 @0x18
0x0a99…0acb at0019 = ╱53╱S╱ // 0xab2 @0x19
0x0a99…0acb at001a = ╱5f╱_╱ // 0xab3 @0x1a
0x0a99…0acb at001b = ╱4b╱K╱ // 0xab4 @0x1b
0x0a99…0acb at001c = ╱4f╱O╱ // 0xab5 @0x1c
0x0a99…0acb at001d = ╱44╱D╱ // 0xab6 @0x1d
0x0a99…0acb at001e = ╱45╱E╱ // 0xab7 @0x1e
0x0a99…0acb at001f = ╱ef╱$╱ // 0xab8 @0x1f
0x0a99…0acb at0020 = ╱eb╱ + ╱ // 0xab9 @0x20
0x0a99…0acb at0021 = ╱54╱T╱ // 0xaba @0x21
0x0a99…0acb at0022 = ╱5f╱_╱ // 0xabb @0x22
0x0a99…0acb at0023 = ╱4b╱K╱ // 0xabc @0x23
0x0a99…0acb at0024 = ╱4f╱O╱ // 0xabd @0x24
0x0a99…0acb at0025 = ╱44╱D╱ // 0xabe @0x25
0x0a99…0acb at0026 = ╱45╱E╱ // 0xabf @0x26
0x0a99…0acb at0027 = ╱ef╱$╱ // 0xac0 @0x27
0x0a99…0acb at0028 = ╱eb╱ + ╱ // 0xac1 @0x28
0x0a99…0acb at0029 = ╱22╱"╱ // 0xac2 @0x29
0x0a99…0acb at002a = ╱44╱D╱ // 0xac3 @0x2a
0x0a99…0acb at002b = ╱47╱G╱ // 0xac4 @0x2b
0x0a99…0acb at002c = ╱5f╱_╱ // 0xac5 @0x2c
0x0a99…0acb at002d = ╱50╱P╱ // 0xac6 @0x2d
0x0a99…0acb at002e = ╱4f╱O╱ // 0xac7 @0x2e
0x0a99…0acb at002f = ╱53╱S╱ // 0xac8 @0x2f
0x0a99…0acb at0030 = ╱22╱"╱ // 0xac9 @0x30
0x0a99…0acb at0031 = EOL // 0xaca @0x31
0x0a99…0acb }
0x0acb…0ae5 a0d3 0930 EXEC OPENFIL(KTOIDX$,"r")
0x0acb…0ae5 LineComal80 {
0x0acb…0ae5 ptr = 0xa0d3 // 0xacb @0x0
0x0acb…0ae5 lno = 0x03a2 // 0xacd @0x2
0x0acb…0ae5 at0004 = ╱9d╱ EXEC ╱ // 0xacf @0x4
0x0acb…0ae5 at0005 = ╱4f╱O╱ // 0xad0 @0x5
0x0acb…0ae5 at0006 = ╱50╱P╱ // 0xad1 @0x6
0x0acb…0ae5 at0007 = ╱45╱E╱ // 0xad2 @0x7
0x0acb…0ae5 at0008 = ╱4e╱N╱ // 0xad3 @0x8
0x0acb…0ae5 at0009 = ╱46╱F╱ // 0xad4 @0x9
0x0acb…0ae5 at000a = ╱49╱I╱ // 0xad5 @0xa
0x0acb…0ae5 at000b = ╱4c╱L╱ // 0xad6 @0xb
0x0acb…0ae5 at000c = ╱ed╱(╱ // 0xad7 @0xc
0x0acb…0ae5 at000d = ╱4b╱K╱ // 0xad8 @0xd
0x0acb…0ae5 at000e = ╱54╱T╱ // 0xad9 @0xe
0x0acb…0ae5 at000f = ╱4f╱O╱ // 0xada @0xf
0x0acb…0ae5 at0010 = ╱49╱I╱ // 0xadb @0x10
0x0acb…0ae5 at0011 = ╱44╱D╱ // 0xadc @0x11
0x0acb…0ae5 at0012 = ╱58╱X╱ // 0xadd @0x12
0x0acb…0ae5 at0013 = ╱ef╱$╱ // 0xade @0x13
0x0acb…0ae5 at0014 = ╱ec╱,╱ // 0xadf @0x14
0x0acb…0ae5 at0015 = ╱22╱"╱ // 0xae0 @0x15
0x0acb…0ae5 at0016 = ╱72╱r╱ // 0xae1 @0x16
0x0acb…0ae5 at0017 = ╱22╱"╱ // 0xae2 @0x17
0x0acb…0ae5 at0018 = ╱ee╱)╱ // 0xae3 @0x18
0x0acb…0ae5 at0019 = EOL // 0xae4 @0x19
0x0acb…0ae5 }
0x0ae5…0afe a0ec 0940 EXEC OPENFIL(KONTO$,"R")
0x0ae5…0afe LineComal80 {
0x0ae5…0afe ptr = 0xa0ec // 0xae5 @0x0
0x0ae5…0afe lno = 0x03ac // 0xae7 @0x2
0x0ae5…0afe at0004 = ╱9d╱ EXEC ╱ // 0xae9 @0x4
0x0ae5…0afe at0005 = ╱4f╱O╱ // 0xaea @0x5
0x0ae5…0afe at0006 = ╱50╱P╱ // 0xaeb @0x6
0x0ae5…0afe at0007 = ╱45╱E╱ // 0xaec @0x7
0x0ae5…0afe at0008 = ╱4e╱N╱ // 0xaed @0x8
0x0ae5…0afe at0009 = ╱46╱F╱ // 0xaee @0x9
0x0ae5…0afe at000a = ╱49╱I╱ // 0xaef @0xa
0x0ae5…0afe at000b = ╱4c╱L╱ // 0xaf0 @0xb
0x0ae5…0afe at000c = ╱ed╱(╱ // 0xaf1 @0xc
0x0ae5…0afe at000d = ╱4b╱K╱ // 0xaf2 @0xd
0x0ae5…0afe at000e = ╱4f╱O╱ // 0xaf3 @0xe
0x0ae5…0afe at000f = ╱4e╱N╱ // 0xaf4 @0xf
0x0ae5…0afe at0010 = ╱54╱T╱ // 0xaf5 @0x10
0x0ae5…0afe at0011 = ╱4f╱O╱ // 0xaf6 @0x11
0x0ae5…0afe at0012 = ╱ef╱$╱ // 0xaf7 @0x12
0x0ae5…0afe at0013 = ╱ec╱,╱ // 0xaf8 @0x13
0x0ae5…0afe at0014 = ╱22╱"╱ // 0xaf9 @0x14
0x0ae5…0afe at0015 = ╱52╱R╱ // 0xafa @0x15
0x0ae5…0afe at0016 = ╱22╱"╱ // 0xafb @0x16
0x0ae5…0afe at0017 = ╱ee╱)╱ // 0xafc @0x17
0x0ae5…0afe at0018 = EOL // 0xafd @0x18
0x0ae5…0afe }
0x0afe…0b18 a106 0950 EXEC OPENFIL(DG_POS$,"W")
0x0afe…0b18 LineComal80 {
0x0afe…0b18 ptr = 0xa106 // 0xafe @0x0
0x0afe…0b18 lno = 0x03b6 // 0xb00 @0x2
0x0afe…0b18 at0004 = ╱9d╱ EXEC ╱ // 0xb02 @0x4
0x0afe…0b18 at0005 = ╱4f╱O╱ // 0xb03 @0x5
0x0afe…0b18 at0006 = ╱50╱P╱ // 0xb04 @0x6
0x0afe…0b18 at0007 = ╱45╱E╱ // 0xb05 @0x7
0x0afe…0b18 at0008 = ╱4e╱N╱ // 0xb06 @0x8
0x0afe…0b18 at0009 = ╱46╱F╱ // 0xb07 @0x9
0x0afe…0b18 at000a = ╱49╱I╱ // 0xb08 @0xa
0x0afe…0b18 at000b = ╱4c╱L╱ // 0xb09 @0xb
0x0afe…0b18 at000c = ╱ed╱(╱ // 0xb0a @0xc
0x0afe…0b18 at000d = ╱44╱D╱ // 0xb0b @0xd
0x0afe…0b18 at000e = ╱47╱G╱ // 0xb0c @0xe
0x0afe…0b18 at000f = ╱5f╱_╱ // 0xb0d @0xf
0x0afe…0b18 at0010 = ╱50╱P╱ // 0xb0e @0x10
0x0afe…0b18 at0011 = ╱4f╱O╱ // 0xb0f @0x11
0x0afe…0b18 at0012 = ╱53╱S╱ // 0xb10 @0x12
0x0afe…0b18 at0013 = ╱ef╱$╱ // 0xb11 @0x13
0x0afe…0b18 at0014 = ╱ec╱,╱ // 0xb12 @0x14
0x0afe…0b18 at0015 = ╱22╱"╱ // 0xb13 @0x15
0x0afe…0b18 at0016 = ╱57╱W╱ // 0xb14 @0x16
0x0afe…0b18 at0017 = ╱22╱"╱ // 0xb15 @0x17
0x0afe…0b18 at0018 = ╱ee╱)╱ // 0xb16 @0x18
0x0afe…0b18 at0019 = EOL // 0xb17 @0x19
0x0afe…0b18 }
0x0b18…0b32 a120 0960 EXEC OPENFIL(ST_KTO$,"R")
0x0b18…0b32 LineComal80 {
0x0b18…0b32 ptr = 0xa120 // 0xb18 @0x0
0x0b18…0b32 lno = 0x03c0 // 0xb1a @0x2
0x0b18…0b32 at0004 = ╱9d╱ EXEC ╱ // 0xb1c @0x4
0x0b18…0b32 at0005 = ╱4f╱O╱ // 0xb1d @0x5
0x0b18…0b32 at0006 = ╱50╱P╱ // 0xb1e @0x6
0x0b18…0b32 at0007 = ╱45╱E╱ // 0xb1f @0x7
0x0b18…0b32 at0008 = ╱4e╱N╱ // 0xb20 @0x8
0x0b18…0b32 at0009 = ╱46╱F╱ // 0xb21 @0x9
0x0b18…0b32 at000a = ╱49╱I╱ // 0xb22 @0xa
0x0b18…0b32 at000b = ╱4c╱L╱ // 0xb23 @0xb
0x0b18…0b32 at000c = ╱ed╱(╱ // 0xb24 @0xc
0x0b18…0b32 at000d = ╱53╱S╱ // 0xb25 @0xd
0x0b18…0b32 at000e = ╱54╱T╱ // 0xb26 @0xe
0x0b18…0b32 at000f = ╱5f╱_╱ // 0xb27 @0xf
0x0b18…0b32 at0010 = ╱4b╱K╱ // 0xb28 @0x10
0x0b18…0b32 at0011 = ╱54╱T╱ // 0xb29 @0x11
0x0b18…0b32 at0012 = ╱4f╱O╱ // 0xb2a @0x12
0x0b18…0b32 at0013 = ╱ef╱$╱ // 0xb2b @0x13
0x0b18…0b32 at0014 = ╱ec╱,╱ // 0xb2c @0x14
0x0b18…0b32 at0015 = ╱22╱"╱ // 0xb2d @0x15
0x0b18…0b32 at0016 = ╱52╱R╱ // 0xb2e @0x16
0x0b18…0b32 at0017 = ╱22╱"╱ // 0xb2f @0x17
0x0b18…0b32 at0018 = ╱ee╱)╱ // 0xb30 @0x18
0x0b18…0b32 at0019 = EOL // 0xb31 @0x19
0x0b18…0b32 }
0x0b32…0b4f a13d 0970 GET ST_KTO$,1 : KASSE_KTO$
0x0b32…0b4f LineComal80 {
0x0b32…0b4f ptr = 0xa13d // 0xb32 @0x0
0x0b32…0b4f lno = 0x03ca // 0xb34 @0x2
0x0b32…0b4f at0004 = ╱a9╱ GET ╱ // 0xb36 @0x4
0x0b32…0b4f at0005 = ╱53╱S╱ // 0xb37 @0x5
0x0b32…0b4f at0006 = ╱54╱T╱ // 0xb38 @0x6
0x0b32…0b4f at0007 = ╱5f╱_╱ // 0xb39 @0x7
0x0b32…0b4f at0008 = ╱4b╱K╱ // 0xb3a @0x8
0x0b32…0b4f at0009 = ╱54╱T╱ // 0xb3b @0x9
0x0b32…0b4f at000a = ╱4f╱O╱ // 0xb3c @0xa
0x0b32…0b4f at000b = ╱ef╱$╱ // 0xb3d @0xb
0x0b32…0b4f at000c = ╱ec╱,╱ // 0xb3e @0xc
0x0b32…0b4f at000d = ╱31╱1╱ // 0xb3f @0xd
0x0b32…0b4f at000e = ╱f20100╱ // 0xb40 @0xe
0x0b32…0b4f at0011 = ╱f1╱ : ╱ // 0xb43 @0x11
0x0b32…0b4f at0012 = ╱4b╱K╱ // 0xb44 @0x12
0x0b32…0b4f at0013 = ╱41╱A╱ // 0xb45 @0x13
0x0b32…0b4f at0014 = ╱53╱S╱ // 0xb46 @0x14
0x0b32…0b4f at0015 = ╱53╱S╱ // 0xb47 @0x15
0x0b32…0b4f at0016 = ╱45╱E╱ // 0xb48 @0x16
0x0b32…0b4f at0017 = ╱5f╱_╱ // 0xb49 @0x17
0x0b32…0b4f at0018 = ╱4b╱K╱ // 0xb4a @0x18
0x0b32…0b4f at0019 = ╱54╱T╱ // 0xb4b @0x19
0x0b32…0b4f at001a = ╱4f╱O╱ // 0xb4c @0x1a
0x0b32…0b4f at001b = ╱ef╱$╱ // 0xb4d @0x1b
0x0b32…0b4f at001c = EOL // 0xb4e @0x1c
0x0b32…0b4f }
0x0b4f…0b6b a159 0980 GET ST_KTO$,2 : BANK_KTO$
0x0b4f…0b6b LineComal80 {
0x0b4f…0b6b ptr = 0xa159 // 0xb4f @0x0
0x0b4f…0b6b lno = 0x03d4 // 0xb51 @0x2
0x0b4f…0b6b at0004 = ╱a9╱ GET ╱ // 0xb53 @0x4
0x0b4f…0b6b at0005 = ╱53╱S╱ // 0xb54 @0x5
0x0b4f…0b6b at0006 = ╱54╱T╱ // 0xb55 @0x6
0x0b4f…0b6b at0007 = ╱5f╱_╱ // 0xb56 @0x7
0x0b4f…0b6b at0008 = ╱4b╱K╱ // 0xb57 @0x8
0x0b4f…0b6b at0009 = ╱54╱T╱ // 0xb58 @0x9
0x0b4f…0b6b at000a = ╱4f╱O╱ // 0xb59 @0xa
0x0b4f…0b6b at000b = ╱ef╱$╱ // 0xb5a @0xb
0x0b4f…0b6b at000c = ╱ec╱,╱ // 0xb5b @0xc
0x0b4f…0b6b at000d = ╱32╱2╱ // 0xb5c @0xd
0x0b4f…0b6b at000e = ╱f20200╱ // 0xb5d @0xe
0x0b4f…0b6b at0011 = ╱f1╱ : ╱ // 0xb60 @0x11
0x0b4f…0b6b at0012 = ╱42╱B╱ // 0xb61 @0x12
0x0b4f…0b6b at0013 = ╱41╱A╱ // 0xb62 @0x13
0x0b4f…0b6b at0014 = ╱4e╱N╱ // 0xb63 @0x14
0x0b4f…0b6b at0015 = ╱4b╱K╱ // 0xb64 @0x15
0x0b4f…0b6b at0016 = ╱5f╱_╱ // 0xb65 @0x16
0x0b4f…0b6b at0017 = ╱4b╱K╱ // 0xb66 @0x17
0x0b4f…0b6b at0018 = ╱54╱T╱ // 0xb67 @0x18
0x0b4f…0b6b at0019 = ╱4f╱O╱ // 0xb68 @0x19
0x0b4f…0b6b at001a = ╱ef╱$╱ // 0xb69 @0x1a
0x0b4f…0b6b at001b = EOL // 0xb6a @0x1b
0x0b4f…0b6b }
0x0b6b…0b87 a175 0990 GET ST_KTO$,3 : GIRO_KTO$
0x0b6b…0b87 LineComal80 {
0x0b6b…0b87 ptr = 0xa175 // 0xb6b @0x0
0x0b6b…0b87 lno = 0x03de // 0xb6d @0x2
0x0b6b…0b87 at0004 = ╱a9╱ GET ╱ // 0xb6f @0x4
0x0b6b…0b87 at0005 = ╱53╱S╱ // 0xb70 @0x5
0x0b6b…0b87 at0006 = ╱54╱T╱ // 0xb71 @0x6
0x0b6b…0b87 at0007 = ╱5f╱_╱ // 0xb72 @0x7
0x0b6b…0b87 at0008 = ╱4b╱K╱ // 0xb73 @0x8
0x0b6b…0b87 at0009 = ╱54╱T╱ // 0xb74 @0x9
0x0b6b…0b87 at000a = ╱4f╱O╱ // 0xb75 @0xa
0x0b6b…0b87 at000b = ╱ef╱$╱ // 0xb76 @0xb
0x0b6b…0b87 at000c = ╱ec╱,╱ // 0xb77 @0xc
0x0b6b…0b87 at000d = ╱33╱3╱ // 0xb78 @0xd
0x0b6b…0b87 at000e = ╱f20300╱ // 0xb79 @0xe
0x0b6b…0b87 at0011 = ╱f1╱ : ╱ // 0xb7c @0x11
0x0b6b…0b87 at0012 = ╱47╱G╱ // 0xb7d @0x12
0x0b6b…0b87 at0013 = ╱49╱I╱ // 0xb7e @0x13
0x0b6b…0b87 at0014 = ╱52╱R╱ // 0xb7f @0x14
0x0b6b…0b87 at0015 = ╱4f╱O╱ // 0xb80 @0x15
0x0b6b…0b87 at0016 = ╱5f╱_╱ // 0xb81 @0x16
0x0b6b…0b87 at0017 = ╱4b╱K╱ // 0xb82 @0x17
0x0b6b…0b87 at0018 = ╱54╱T╱ // 0xb83 @0x18
0x0b6b…0b87 at0019 = ╱4f╱O╱ // 0xb84 @0x19
0x0b6b…0b87 at001a = ╱ef╱$╱ // 0xb85 @0x1a
0x0b6b…0b87 at001b = EOL // 0xb86 @0x1b
0x0b6b…0b87 }
0x0b87…0b94 a182 1000 CLOSE ST_KTO$
0x0b87…0b94 LineComal80 {
0x0b87…0b94 ptr = 0xa182 // 0xb87 @0x0
0x0b87…0b94 lno = 0x03e8 // 0xb89 @0x2
0x0b87…0b94 at0004 = ╱a8╱ CLOSE ╱ // 0xb8b @0x4
0x0b87…0b94 at0005 = ╱53╱S╱ // 0xb8c @0x5
0x0b87…0b94 at0006 = ╱54╱T╱ // 0xb8d @0x6
0x0b87…0b94 at0007 = ╱5f╱_╱ // 0xb8e @0x7
0x0b87…0b94 at0008 = ╱4b╱K╱ // 0xb8f @0x8
0x0b87…0b94 at0009 = ╱54╱T╱ // 0xb90 @0x9
0x0b87…0b94 at000a = ╱4f╱O╱ // 0xb91 @0xa
0x0b87…0b94 at000b = ╱ef╱$╱ // 0xb92 @0xb
0x0b87…0b94 at000c = EOL // 0xb93 @0xc
0x0b87…0b94 }
0x0b94…0ba1 a18f 1010 ENDPROC INITIER
0x0b94…0ba1 LineComal80 {
0x0b94…0ba1 ptr = 0xa18f // 0xb94 @0x0
0x0b94…0ba1 lno = 0x03f2 // 0xb96 @0x2
0x0b94…0ba1 at0004 = ╱9f╱ ENDPROC ╱ // 0xb98 @0x4
0x0b94…0ba1 at0005 = ╱49╱I╱ // 0xb99 @0x5
0x0b94…0ba1 at0006 = ╱4e╱N╱ // 0xb9a @0x6
0x0b94…0ba1 at0007 = ╱49╱I╱ // 0xb9b @0x7
0x0b94…0ba1 at0008 = ╱54╱T╱ // 0xb9c @0x8
0x0b94…0ba1 at0009 = ╱49╱I╱ // 0xb9d @0x9
0x0b94…0ba1 at000a = ╱45╱E╱ // 0xb9e @0xa
0x0b94…0ba1 at000b = ╱52╱R╱ // 0xb9f @0xb
0x0b94…0ba1 at000c = EOL // 0xba0 @0xc
0x0b94…0ba1 }
0x0ba1…0ba6 a194 1020
0x0ba1…0ba6 LineComal80 {
0x0ba1…0ba6 ptr = 0xa194 // 0xba1 @0x0
0x0ba1…0ba6 lno = 0x03fc // 0xba3 @0x2
0x0ba1…0ba6 at0004 = EOL // 0xba5 @0x4
0x0ba1…0ba6 }
0x0ba6…0bba a1a8 1030 PROC FUNKTIONSMENU
0x0ba6…0bba LineComal80 {
0x0ba6…0bba ptr = 0xa1a8 // 0xba6 @0x0
0x0ba6…0bba lno = 0x0406 // 0xba8 @0x2
0x0ba6…0bba at0004 = ╱9e03╱ PROC ╱ // 0xbaa @0x4
0x0ba6…0bba at0006 = ╱46╱F╱ // 0xbac @0x6
0x0ba6…0bba at0007 = ╱55╱U╱ // 0xbad @0x7
0x0ba6…0bba at0008 = ╱4e╱N╱ // 0xbae @0x8
0x0ba6…0bba at0009 = ╱4b╱K╱ // 0xbaf @0x9
0x0ba6…0bba at000a = ╱54╱T╱ // 0xbb0 @0xa
0x0ba6…0bba at000b = ╱49╱I╱ // 0xbb1 @0xb
0x0ba6…0bba at000c = ╱4f╱O╱ // 0xbb2 @0xc
0x0ba6…0bba at000d = ╱4e╱N╱ // 0xbb3 @0xd
0x0ba6…0bba at000e = ╱53╱S╱ // 0xbb4 @0xe
0x0ba6…0bba at000f = ╱4d╱M╱ // 0xbb5 @0xf
0x0ba6…0bba at0010 = ╱45╱E╱ // 0xbb6 @0x10
0x0ba6…0bba at0011 = ╱4e╱N╱ // 0xbb7 @0x11
0x0ba6…0bba at0012 = ╱55╱U╱ // 0xbb8 @0x12
0x0ba6…0bba at0013 = EOL // 0xbb9 @0x13
0x0ba6…0bba }
0x0bba…0bc1 a1af 1040 REPEAT
0x0bba…0bc1 LineComal80 {
0x0bba…0bc1 ptr = 0xa1af // 0xbba @0x0
0x0bba…0bc1 lno = 0x0410 // 0xbbc @0x2
0x0bba…0bc1 at0004 = ╱9704╱ REPEAT ╱ // 0xbbe @0x4
0x0bba…0bc1 at0006 = EOL // 0xbc0 @0x6
0x0bba…0bc1 }
0x0bc1…0be7 a1d5 1050 EXEC OVERSKRIFT("Konteringsark",6)
0x0bc1…0be7 LineComal80 {
0x0bc1…0be7 ptr = 0xa1d5 // 0xbc1 @0x0
0x0bc1…0be7 lno = 0x041a // 0xbc3 @0x2
0x0bc1…0be7 at0004 = ╱9d╱ EXEC ╱ // 0xbc5 @0x4
0x0bc1…0be7 at0005 = ╱4f╱O╱ // 0xbc6 @0x5
0x0bc1…0be7 at0006 = ╱56╱V╱ // 0xbc7 @0x6
0x0bc1…0be7 at0007 = ╱45╱E╱ // 0xbc8 @0x7
0x0bc1…0be7 at0008 = ╱52╱R╱ // 0xbc9 @0x8
0x0bc1…0be7 at0009 = ╱53╱S╱ // 0xbca @0x9
0x0bc1…0be7 at000a = ╱4b╱K╱ // 0xbcb @0xa
0x0bc1…0be7 at000b = ╱52╱R╱ // 0xbcc @0xb
0x0bc1…0be7 at000c = ╱49╱I╱ // 0xbcd @0xc
0x0bc1…0be7 at000d = ╱46╱F╱ // 0xbce @0xd
0x0bc1…0be7 at000e = ╱54╱T╱ // 0xbcf @0xe
0x0bc1…0be7 at000f = ╱ed╱(╱ // 0xbd0 @0xf
0x0bc1…0be7 at0010 = ╱22╱"╱ // 0xbd1 @0x10
0x0bc1…0be7 at0011 = ╱4b╱K╱ // 0xbd2 @0x11
0x0bc1…0be7 at0012 = ╱6f╱o╱ // 0xbd3 @0x12
0x0bc1…0be7 at0013 = ╱6e╱n╱ // 0xbd4 @0x13
0x0bc1…0be7 at0014 = ╱74╱t╱ // 0xbd5 @0x14
0x0bc1…0be7 at0015 = ╱65╱e╱ // 0xbd6 @0x15
0x0bc1…0be7 at0016 = ╱72╱r╱ // 0xbd7 @0x16
0x0bc1…0be7 at0017 = ╱69╱i╱ // 0xbd8 @0x17
0x0bc1…0be7 at0018 = ╱6e╱n╱ // 0xbd9 @0x18
0x0bc1…0be7 at0019 = ╱67╱g╱ // 0xbda @0x19
0x0bc1…0be7 at001a = ╱73╱s╱ // 0xbdb @0x1a
0x0bc1…0be7 at001b = ╱61╱a╱ // 0xbdc @0x1b
0x0bc1…0be7 at001c = ╱72╱r╱ // 0xbdd @0x1c
0x0bc1…0be7 at001d = ╱6b╱k╱ // 0xbde @0x1d
0x0bc1…0be7 at001e = ╱22╱"╱ // 0xbdf @0x1e
0x0bc1…0be7 at001f = ╱ec╱,╱ // 0xbe0 @0x1f
0x0bc1…0be7 at0020 = ╱36╱6╱ // 0xbe1 @0x20
0x0bc1…0be7 at0021 = ╱f20600╱ // 0xbe2 @0x21
0x0bc1…0be7 at0024 = ╱ee╱)╱ // 0xbe5 @0x24
0x0bc1…0be7 at0025 = EOL // 0xbe6 @0x25
0x0bc1…0be7 }
0x0be7…0c1c a20a 1060 PRINT "<C2009>Indtastning af posteringer IP"
0x0be7…0c1c LineComal80 {
0x0be7…0c1c ptr = 0xa20a // 0xbe7 @0x0
0x0be7…0c1c lno = 0x0424 // 0xbe9 @0x2
0x0be7…0c1c at0004 = ╱92╱ PRINT ╱ // 0xbeb @0x4
0x0be7…0c1c at0005 = ╱22╱"╱ // 0xbec @0x5
0x0be7…0c1c at0006 = ╱3c╱<╱ // 0xbed @0x6
0x0be7…0c1c at0007 = ╱43╱C╱ // 0xbee @0x7
0x0be7…0c1c at0008 = ╱32╱2╱ // 0xbef @0x8
0x0be7…0c1c at0009 = ╱30╱0╱ // 0xbf0 @0x9
0x0be7…0c1c at000a = ╱30╱0╱ // 0xbf1 @0xa
0x0be7…0c1c at000b = ╱39╱9╱ // 0xbf2 @0xb
0x0be7…0c1c at000c = ╱3e╱>╱ // 0xbf3 @0xc
0x0be7…0c1c at000d = ╱49╱I╱ // 0xbf4 @0xd
0x0be7…0c1c at000e = ╱6e╱n╱ // 0xbf5 @0xe
0x0be7…0c1c at000f = ╱64╱d╱ // 0xbf6 @0xf
0x0be7…0c1c at0010 = ╱74╱t╱ // 0xbf7 @0x10
0x0be7…0c1c at0011 = ╱61╱a╱ // 0xbf8 @0x11
0x0be7…0c1c at0012 = ╱73╱s╱ // 0xbf9 @0x12
0x0be7…0c1c at0013 = ╱74╱t╱ // 0xbfa @0x13
0x0be7…0c1c at0014 = ╱6e╱n╱ // 0xbfb @0x14
0x0be7…0c1c at0015 = ╱69╱i╱ // 0xbfc @0x15
0x0be7…0c1c at0016 = ╱6e╱n╱ // 0xbfd @0x16
0x0be7…0c1c at0017 = ╱67╱g╱ // 0xbfe @0x17
0x0be7…0c1c at0018 = ╱20╱…╱ // 0xbff @0x18
0x0be7…0c1c at0019 = ╱61╱a╱ // 0xc00 @0x19
0x0be7…0c1c at001a = ╱66╱f╱ // 0xc01 @0x1a
0x0be7…0c1c at001b = ╱20╱…╱ // 0xc02 @0x1b
0x0be7…0c1c at001c = ╱70╱p╱ // 0xc03 @0x1c
0x0be7…0c1c at001d = ╱6f╱o╱ // 0xc04 @0x1d
0x0be7…0c1c at001e = ╱73╱s╱ // 0xc05 @0x1e
0x0be7…0c1c at001f = ╱74╱t╱ // 0xc06 @0x1f
0x0be7…0c1c at0020 = ╱65╱e╱ // 0xc07 @0x20
0x0be7…0c1c at0021 = ╱72╱r╱ // 0xc08 @0x21
0x0be7…0c1c at0022 = ╱69╱i╱ // 0xc09 @0x22
0x0be7…0c1c at0023 = ╱6e╱n╱ // 0xc0a @0x23
0x0be7…0c1c at0024 = ╱67╱g╱ // 0xc0b @0x24
0x0be7…0c1c at0025 = ╱65╱e╱ // 0xc0c @0x25
0x0be7…0c1c at0026 = ╱72╱r╱ // 0xc0d @0x26
0x0be7…0c1c at0027 = ╱20╱…╱ // 0xc0e @0x27
0x0be7…0c1c at0028 = ╱20╱…╱ // 0xc0f @0x28
0x0be7…0c1c at0029 = ╱20╱…╱ // 0xc10 @0x29
0x0be7…0c1c at002a = ╱20╱…╱ // 0xc11 @0x2a
0x0be7…0c1c at002b = ╱20╱…╱ // 0xc12 @0x2b
0x0be7…0c1c at002c = ╱20╱…╱ // 0xc13 @0x2c
0x0be7…0c1c at002d = ╱20╱…╱ // 0xc14 @0x2d
0x0be7…0c1c at002e = ╱20╱…╱ // 0xc15 @0x2e
0x0be7…0c1c at002f = ╱20╱…╱ // 0xc16 @0x2f
0x0be7…0c1c at0030 = ╱20╱…╱ // 0xc17 @0x30
0x0be7…0c1c at0031 = ╱49╱I╱ // 0xc18 @0x31
0x0be7…0c1c at0032 = ╱50╱P╱ // 0xc19 @0x32
0x0be7…0c1c at0033 = ╱22╱"╱ // 0xc1a @0x33
0x0be7…0c1c at0034 = EOL // 0xc1b @0x34
0x0be7…0c1c }
0x0c1c…0c51 a23f 1070 PRINT "<C2011>Udskrivning af konteringskladde UK"
0x0c1c…0c51 LineComal80 {
0x0c1c…0c51 ptr = 0xa23f // 0xc1c @0x0
0x0c1c…0c51 lno = 0x042e // 0xc1e @0x2
0x0c1c…0c51 at0004 = ╱92╱ PRINT ╱ // 0xc20 @0x4
0x0c1c…0c51 at0005 = ╱22╱"╱ // 0xc21 @0x5
0x0c1c…0c51 at0006 = ╱3c╱<╱ // 0xc22 @0x6
0x0c1c…0c51 at0007 = ╱43╱C╱ // 0xc23 @0x7
0x0c1c…0c51 at0008 = ╱32╱2╱ // 0xc24 @0x8
0x0c1c…0c51 at0009 = ╱30╱0╱ // 0xc25 @0x9
0x0c1c…0c51 at000a = ╱31╱1╱ // 0xc26 @0xa
0x0c1c…0c51 at000b = ╱31╱1╱ // 0xc27 @0xb
0x0c1c…0c51 at000c = ╱3e╱>╱ // 0xc28 @0xc
0x0c1c…0c51 at000d = ╱55╱U╱ // 0xc29 @0xd
0x0c1c…0c51 at000e = ╱64╱d╱ // 0xc2a @0xe
0x0c1c…0c51 at000f = ╱73╱s╱ // 0xc2b @0xf
0x0c1c…0c51 at0010 = ╱6b╱k╱ // 0xc2c @0x10
0x0c1c…0c51 at0011 = ╱72╱r╱ // 0xc2d @0x11
0x0c1c…0c51 at0012 = ╱69╱i╱ // 0xc2e @0x12
0x0c1c…0c51 at0013 = ╱76╱v╱ // 0xc2f @0x13
0x0c1c…0c51 at0014 = ╱6e╱n╱ // 0xc30 @0x14
0x0c1c…0c51 at0015 = ╱69╱i╱ // 0xc31 @0x15
0x0c1c…0c51 at0016 = ╱6e╱n╱ // 0xc32 @0x16
0x0c1c…0c51 at0017 = ╱67╱g╱ // 0xc33 @0x17
0x0c1c…0c51 at0018 = ╱20╱…╱ // 0xc34 @0x18
0x0c1c…0c51 at0019 = ╱61╱a╱ // 0xc35 @0x19
0x0c1c…0c51 at001a = ╱66╱f╱ // 0xc36 @0x1a
0x0c1c…0c51 at001b = ╱20╱…╱ // 0xc37 @0x1b
0x0c1c…0c51 at001c = ╱6b╱k╱ // 0xc38 @0x1c
0x0c1c…0c51 at001d = ╱6f╱o╱ // 0xc39 @0x1d
0x0c1c…0c51 at001e = ╱6e╱n╱ // 0xc3a @0x1e
0x0c1c…0c51 at001f = ╱74╱t╱ // 0xc3b @0x1f
0x0c1c…0c51 at0020 = ╱65╱e╱ // 0xc3c @0x20
0x0c1c…0c51 at0021 = ╱72╱r╱ // 0xc3d @0x21
0x0c1c…0c51 at0022 = ╱69╱i╱ // 0xc3e @0x22
0x0c1c…0c51 at0023 = ╱6e╱n╱ // 0xc3f @0x23
0x0c1c…0c51 at0024 = ╱67╱g╱ // 0xc40 @0x24
0x0c1c…0c51 at0025 = ╱73╱s╱ // 0xc41 @0x25
0x0c1c…0c51 at0026 = ╱6b╱k╱ // 0xc42 @0x26
0x0c1c…0c51 at0027 = ╱6c╱l╱ // 0xc43 @0x27
0x0c1c…0c51 at0028 = ╱61╱a╱ // 0xc44 @0x28
0x0c1c…0c51 at0029 = ╱64╱d╱ // 0xc45 @0x29
0x0c1c…0c51 at002a = ╱64╱d╱ // 0xc46 @0x2a
0x0c1c…0c51 at002b = ╱65╱e╱ // 0xc47 @0x2b
0x0c1c…0c51 at002c = ╱20╱…╱ // 0xc48 @0x2c
0x0c1c…0c51 at002d = ╱20╱…╱ // 0xc49 @0x2d
0x0c1c…0c51 at002e = ╱20╱…╱ // 0xc4a @0x2e
0x0c1c…0c51 at002f = ╱20╱…╱ // 0xc4b @0x2f
0x0c1c…0c51 at0030 = ╱20╱…╱ // 0xc4c @0x30
0x0c1c…0c51 at0031 = ╱55╱U╱ // 0xc4d @0x31
0x0c1c…0c51 at0032 = ╱4b╱K╱ // 0xc4e @0x32
0x0c1c…0c51 at0033 = ╱22╱"╱ // 0xc4f @0x33
0x0c1c…0c51 at0034 = EOL // 0xc50 @0x34
0x0c1c…0c51 }
0x0c51…0c86 a274 1080 PRINT "<C2013>Ret posteringer RP"
0x0c51…0c86 LineComal80 {
0x0c51…0c86 ptr = 0xa274 // 0xc51 @0x0
0x0c51…0c86 lno = 0x0438 // 0xc53 @0x2
0x0c51…0c86 at0004 = ╱92╱ PRINT ╱ // 0xc55 @0x4
0x0c51…0c86 at0005 = ╱22╱"╱ // 0xc56 @0x5
0x0c51…0c86 at0006 = ╱3c╱<╱ // 0xc57 @0x6
0x0c51…0c86 at0007 = ╱43╱C╱ // 0xc58 @0x7
0x0c51…0c86 at0008 = ╱32╱2╱ // 0xc59 @0x8
0x0c51…0c86 at0009 = ╱30╱0╱ // 0xc5a @0x9
0x0c51…0c86 at000a = ╱31╱1╱ // 0xc5b @0xa
0x0c51…0c86 at000b = ╱33╱3╱ // 0xc5c @0xb
0x0c51…0c86 at000c = ╱3e╱>╱ // 0xc5d @0xc
0x0c51…0c86 at000d = ╱52╱R╱ // 0xc5e @0xd
0x0c51…0c86 at000e = ╱65╱e╱ // 0xc5f @0xe
0x0c51…0c86 at000f = ╱74╱t╱ // 0xc60 @0xf
0x0c51…0c86 at0010 = ╱20╱…╱ // 0xc61 @0x10
0x0c51…0c86 at0011 = ╱70╱p╱ // 0xc62 @0x11
0x0c51…0c86 at0012 = ╱6f╱o╱ // 0xc63 @0x12
0x0c51…0c86 at0013 = ╱73╱s╱ // 0xc64 @0x13
0x0c51…0c86 at0014 = ╱74╱t╱ // 0xc65 @0x14
0x0c51…0c86 at0015 = ╱65╱e╱ // 0xc66 @0x15
0x0c51…0c86 at0016 = ╱72╱r╱ // 0xc67 @0x16
0x0c51…0c86 at0017 = ╱69╱i╱ // 0xc68 @0x17
0x0c51…0c86 at0018 = ╱6e╱n╱ // 0xc69 @0x18
0x0c51…0c86 at0019 = ╱67╱g╱ // 0xc6a @0x19
0x0c51…0c86 at001a = ╱65╱e╱ // 0xc6b @0x1a
0x0c51…0c86 at001b = ╱72╱r╱ // 0xc6c @0x1b
0x0c51…0c86 at001c = ╱20╱…╱ // 0xc6d @0x1c
0x0c51…0c86 at001d = ╱20╱…╱ // 0xc6e @0x1d
0x0c51…0c86 at001e = ╱20╱…╱ // 0xc6f @0x1e
0x0c51…0c86 at001f = ╱20╱…╱ // 0xc70 @0x1f
0x0c51…0c86 at0020 = ╱20╱…╱ // 0xc71 @0x20
0x0c51…0c86 at0021 = ╱20╱…╱ // 0xc72 @0x21
0x0c51…0c86 at0022 = ╱20╱…╱ // 0xc73 @0x22
0x0c51…0c86 at0023 = ╱20╱…╱ // 0xc74 @0x23
0x0c51…0c86 at0024 = ╱20╱…╱ // 0xc75 @0x24
0x0c51…0c86 at0025 = ╱20╱…╱ // 0xc76 @0x25
0x0c51…0c86 at0026 = ╱20╱…╱ // 0xc77 @0x26
0x0c51…0c86 at0027 = ╱20╱…╱ // 0xc78 @0x27
0x0c51…0c86 at0028 = ╱20╱…╱ // 0xc79 @0x28
0x0c51…0c86 at0029 = ╱20╱…╱ // 0xc7a @0x29
0x0c51…0c86 at002a = ╱20╱…╱ // 0xc7b @0x2a
0x0c51…0c86 at002b = ╱20╱…╱ // 0xc7c @0x2b
0x0c51…0c86 at002c = ╱20╱…╱ // 0xc7d @0x2c
0x0c51…0c86 at002d = ╱20╱…╱ // 0xc7e @0x2d
0x0c51…0c86 at002e = ╱20╱…╱ // 0xc7f @0x2e
0x0c51…0c86 at002f = ╱20╱…╱ // 0xc80 @0x2f
0x0c51…0c86 at0030 = ╱20╱…╱ // 0xc81 @0x30
0x0c51…0c86 at0031 = ╱52╱R╱ // 0xc82 @0x31
0x0c51…0c86 at0032 = ╱50╱P╱ // 0xc83 @0x32
0x0c51…0c86 at0033 = ╱22╱"╱ // 0xc84 @0x33
0x0c51…0c86 at0034 = EOL // 0xc85 @0x34
0x0c51…0c86 }
0x0c86…0cbb a2a9 1090 PRINT "<C2015>Bogfør posteringer BP"
0x0c86…0cbb LineComal80 {
0x0c86…0cbb ptr = 0xa2a9 // 0xc86 @0x0
0x0c86…0cbb lno = 0x0442 // 0xc88 @0x2
0x0c86…0cbb at0004 = ╱92╱ PRINT ╱ // 0xc8a @0x4
0x0c86…0cbb at0005 = ╱22╱"╱ // 0xc8b @0x5
0x0c86…0cbb at0006 = ╱3c╱<╱ // 0xc8c @0x6
0x0c86…0cbb at0007 = ╱43╱C╱ // 0xc8d @0x7
0x0c86…0cbb at0008 = ╱32╱2╱ // 0xc8e @0x8
0x0c86…0cbb at0009 = ╱30╱0╱ // 0xc8f @0x9
0x0c86…0cbb at000a = ╱31╱1╱ // 0xc90 @0xa
0x0c86…0cbb at000b = ╱35╱5╱ // 0xc91 @0xb
0x0c86…0cbb at000c = ╱3e╱>╱ // 0xc92 @0xc
0x0c86…0cbb at000d = ╱42╱B╱ // 0xc93 @0xd
0x0c86…0cbb at000e = ╱6f╱o╱ // 0xc94 @0xe
0x0c86…0cbb at000f = ╱67╱g╱ // 0xc95 @0xf
0x0c86…0cbb at0010 = ╱66╱f╱ // 0xc96 @0x10
0x0c86…0cbb at0011 = ╱7c╱ø╱ // 0xc97 @0x11
0x0c86…0cbb at0012 = ╱72╱r╱ // 0xc98 @0x12
0x0c86…0cbb at0013 = ╱20╱…╱ // 0xc99 @0x13
0x0c86…0cbb at0014 = ╱70╱p╱ // 0xc9a @0x14
0x0c86…0cbb at0015 = ╱6f╱o╱ // 0xc9b @0x15
0x0c86…0cbb at0016 = ╱73╱s╱ // 0xc9c @0x16
0x0c86…0cbb at0017 = ╱74╱t╱ // 0xc9d @0x17
0x0c86…0cbb at0018 = ╱65╱e╱ // 0xc9e @0x18
0x0c86…0cbb at0019 = ╱72╱r╱ // 0xc9f @0x19
0x0c86…0cbb at001a = ╱69╱i╱ // 0xca0 @0x1a
0x0c86…0cbb at001b = ╱6e╱n╱ // 0xca1 @0x1b
0x0c86…0cbb at001c = ╱67╱g╱ // 0xca2 @0x1c
0x0c86…0cbb at001d = ╱65╱e╱ // 0xca3 @0x1d
0x0c86…0cbb at001e = ╱72╱r╱ // 0xca4 @0x1e
0x0c86…0cbb at001f = ╱20╱…╱ // 0xca5 @0x1f
0x0c86…0cbb at0020 = ╱20╱…╱ // 0xca6 @0x20
0x0c86…0cbb at0021 = ╱20╱…╱ // 0xca7 @0x21
0x0c86…0cbb at0022 = ╱20╱…╱ // 0xca8 @0x22
0x0c86…0cbb at0023 = ╱20╱…╱ // 0xca9 @0x23
0x0c86…0cbb at0024 = ╱20╱…╱ // 0xcaa @0x24
0x0c86…0cbb at0025 = ╱20╱…╱ // 0xcab @0x25
0x0c86…0cbb at0026 = ╱20╱…╱ // 0xcac @0x26
0x0c86…0cbb at0027 = ╱20╱…╱ // 0xcad @0x27
0x0c86…0cbb at0028 = ╱20╱…╱ // 0xcae @0x28
0x0c86…0cbb at0029 = ╱20╱…╱ // 0xcaf @0x29
0x0c86…0cbb at002a = ╱20╱…╱ // 0xcb0 @0x2a
0x0c86…0cbb at002b = ╱20╱…╱ // 0xcb1 @0x2b
0x0c86…0cbb at002c = ╱20╱…╱ // 0xcb2 @0x2c
0x0c86…0cbb at002d = ╱20╱…╱ // 0xcb3 @0x2d
0x0c86…0cbb at002e = ╱20╱…╱ // 0xcb4 @0x2e
0x0c86…0cbb at002f = ╱20╱…╱ // 0xcb5 @0x2f
0x0c86…0cbb at0030 = ╱20╱…╱ // 0xcb6 @0x30
0x0c86…0cbb at0031 = ╱42╱B╱ // 0xcb7 @0x31
0x0c86…0cbb at0032 = ╱50╱P╱ // 0xcb8 @0x32
0x0c86…0cbb at0033 = ╱22╱"╱ // 0xcb9 @0x33
0x0c86…0cbb at0034 = EOL // 0xcba @0x34
0x0c86…0cbb }
0x0cbb…0cf2 a2e0 1100 PRINT "<C2018>Programfordeler RETURN"
0x0cbb…0cf2 LineComal80 {
0x0cbb…0cf2 ptr = 0xa2e0 // 0xcbb @0x0
0x0cbb…0cf2 lno = 0x044c // 0xcbd @0x2
0x0cbb…0cf2 at0004 = ╱92╱ PRINT ╱ // 0xcbf @0x4
0x0cbb…0cf2 at0005 = ╱22╱"╱ // 0xcc0 @0x5
0x0cbb…0cf2 at0006 = ╱3c╱<╱ // 0xcc1 @0x6
0x0cbb…0cf2 at0007 = ╱43╱C╱ // 0xcc2 @0x7
0x0cbb…0cf2 at0008 = ╱32╱2╱ // 0xcc3 @0x8
0x0cbb…0cf2 at0009 = ╱30╱0╱ // 0xcc4 @0x9
0x0cbb…0cf2 at000a = ╱31╱1╱ // 0xcc5 @0xa
0x0cbb…0cf2 at000b = ╱38╱8╱ // 0xcc6 @0xb
0x0cbb…0cf2 at000c = ╱3e╱>╱ // 0xcc7 @0xc
0x0cbb…0cf2 at000d = ╱50╱P╱ // 0xcc8 @0xd
0x0cbb…0cf2 at000e = ╱72╱r╱ // 0xcc9 @0xe
0x0cbb…0cf2 at000f = ╱6f╱o╱ // 0xcca @0xf
0x0cbb…0cf2 at0010 = ╱67╱g╱ // 0xccb @0x10
0x0cbb…0cf2 at0011 = ╱72╱r╱ // 0xccc @0x11
0x0cbb…0cf2 at0012 = ╱61╱a╱ // 0xccd @0x12
0x0cbb…0cf2 at0013 = ╱6d╱m╱ // 0xcce @0x13
0x0cbb…0cf2 at0014 = ╱66╱f╱ // 0xccf @0x14
0x0cbb…0cf2 at0015 = ╱6f╱o╱ // 0xcd0 @0x15
0x0cbb…0cf2 at0016 = ╱72╱r╱ // 0xcd1 @0x16
0x0cbb…0cf2 at0017 = ╱64╱d╱ // 0xcd2 @0x17
0x0cbb…0cf2 at0018 = ╱65╱e╱ // 0xcd3 @0x18
0x0cbb…0cf2 at0019 = ╱6c╱l╱ // 0xcd4 @0x19
0x0cbb…0cf2 at001a = ╱65╱e╱ // 0xcd5 @0x1a
0x0cbb…0cf2 at001b = ╱72╱r╱ // 0xcd6 @0x1b
0x0cbb…0cf2 at001c = ╱20╱…╱ // 0xcd7 @0x1c
0x0cbb…0cf2 at001d = ╱20╱…╱ // 0xcd8 @0x1d
0x0cbb…0cf2 at001e = ╱20╱…╱ // 0xcd9 @0x1e
0x0cbb…0cf2 at001f = ╱20╱…╱ // 0xcda @0x1f
0x0cbb…0cf2 at0020 = ╱20╱…╱ // 0xcdb @0x20
0x0cbb…0cf2 at0021 = ╱20╱…╱ // 0xcdc @0x21
0x0cbb…0cf2 at0022 = ╱20╱…╱ // 0xcdd @0x22
0x0cbb…0cf2 at0023 = ╱20╱…╱ // 0xcde @0x23
0x0cbb…0cf2 at0024 = ╱20╱…╱ // 0xcdf @0x24
0x0cbb…0cf2 at0025 = ╱20╱…╱ // 0xce0 @0x25
0x0cbb…0cf2 at0026 = ╱20╱…╱ // 0xce1 @0x26
0x0cbb…0cf2 at0027 = ╱20╱…╱ // 0xce2 @0x27
0x0cbb…0cf2 at0028 = ╱20╱…╱ // 0xce3 @0x28
0x0cbb…0cf2 at0029 = ╱20╱…╱ // 0xce4 @0x29
0x0cbb…0cf2 at002a = ╱20╱…╱ // 0xce5 @0x2a
0x0cbb…0cf2 at002b = ╱20╱…╱ // 0xce6 @0x2b
0x0cbb…0cf2 at002c = ╱20╱…╱ // 0xce7 @0x2c
0x0cbb…0cf2 at002d = ╱20╱…╱ // 0xce8 @0x2d
0x0cbb…0cf2 at002e = ╱20╱…╱ // 0xce9 @0x2e
0x0cbb…0cf2 at002f = ╱52╱R╱ // 0xcea @0x2f
0x0cbb…0cf2 at0030 = ╱45╱E╱ // 0xceb @0x30
0x0cbb…0cf2 at0031 = ╱54╱T╱ // 0xcec @0x31
0x0cbb…0cf2 at0032 = ╱55╱U╱ // 0xced @0x32
0x0cbb…0cf2 at0033 = ╱52╱R╱ // 0xcee @0x33
0x0cbb…0cf2 at0034 = ╱4e╱N╱ // 0xcef @0x34
0x0cbb…0cf2 at0035 = ╱22╱"╱ // 0xcf0 @0x35
0x0cbb…0cf2 at0036 = EOL // 0xcf1 @0x36
0x0cbb…0cf2 }
0x0cf2…0d02 a2f0 1110 LET SVAR$ := " "
0x0cf2…0d02 LineComal80 {
0x0cf2…0d02 ptr = 0xa2f0 // 0xcf2 @0x0
0x0cf2…0d02 lno = 0x0456 // 0xcf4 @0x2
0x0cf2…0d02 at0004 = ╱86╱ LET ╱ // 0xcf6 @0x4
0x0cf2…0d02 at0005 = ╱53╱S╱ // 0xcf7 @0x5
0x0cf2…0d02 at0006 = ╱56╱V╱ // 0xcf8 @0x6
0x0cf2…0d02 at0007 = ╱41╱A╱ // 0xcf9 @0x7
0x0cf2…0d02 at0008 = ╱52╱R╱ // 0xcfa @0x8
0x0cf2…0d02 at0009 = ╱ef╱$╱ // 0xcfb @0x9
0x0cf2…0d02 at000a = ╱f0╱ := ╱ // 0xcfc @0xa
0x0cf2…0d02 at000b = ╱22╱"╱ // 0xcfd @0xb
0x0cf2…0d02 at000c = ╱20╱…╱ // 0xcfe @0xc
0x0cf2…0d02 at000d = ╱20╱…╱ // 0xcff @0xd
0x0cf2…0d02 at000e = ╱22╱"╱ // 0xd00 @0xe
0x0cf2…0d02 at000f = EOL // 0xd01 @0xf
0x0cf2…0d02 }
0x0d02…0d09 a2f7 1120 REPEAT
0x0d02…0d09 LineComal80 {
0x0d02…0d09 ptr = 0xa2f7 // 0xd02 @0x0
0x0d02…0d09 lno = 0x0460 // 0xd04 @0x2
0x0d02…0d09 at0004 = ╱9705╱ REPEAT ╱ // 0xd06 @0x4
0x0d02…0d09 at0006 = EOL // 0xd08 @0x6
0x0d02…0d09 }
0x0d09…0d40 a32e 1130 EDIT "<C2523>Indtast funktionskode: " : SVAR$(1 : 2)
0x0d09…0d40 LineComal80 {
0x0d09…0d40 ptr = 0xa32e // 0xd09 @0x0
0x0d09…0d40 lno = 0x046a // 0xd0b @0x2
0x0d09…0d40 at0004 = ╱b1╱ EDIT ╱ // 0xd0d @0x4
0x0d09…0d40 at0005 = ╱22╱"╱ // 0xd0e @0x5
0x0d09…0d40 at0006 = ╱3c╱<╱ // 0xd0f @0x6
0x0d09…0d40 at0007 = ╱43╱C╱ // 0xd10 @0x7
0x0d09…0d40 at0008 = ╱32╱2╱ // 0xd11 @0x8
0x0d09…0d40 at0009 = ╱35╱5╱ // 0xd12 @0x9
0x0d09…0d40 at000a = ╱32╱2╱ // 0xd13 @0xa
0x0d09…0d40 at000b = ╱33╱3╱ // 0xd14 @0xb
0x0d09…0d40 at000c = ╱3e╱>╱ // 0xd15 @0xc
0x0d09…0d40 at000d = ╱49╱I╱ // 0xd16 @0xd
0x0d09…0d40 at000e = ╱6e╱n╱ // 0xd17 @0xe
0x0d09…0d40 at000f = ╱64╱d╱ // 0xd18 @0xf
0x0d09…0d40 at0010 = ╱74╱t╱ // 0xd19 @0x10
0x0d09…0d40 at0011 = ╱61╱a╱ // 0xd1a @0x11
0x0d09…0d40 at0012 = ╱73╱s╱ // 0xd1b @0x12
0x0d09…0d40 at0013 = ╱74╱t╱ // 0xd1c @0x13
0x0d09…0d40 at0014 = ╱20╱…╱ // 0xd1d @0x14
0x0d09…0d40 at0015 = ╱66╱f╱ // 0xd1e @0x15
0x0d09…0d40 at0016 = ╱75╱u╱ // 0xd1f @0x16
0x0d09…0d40 at0017 = ╱6e╱n╱ // 0xd20 @0x17
0x0d09…0d40 at0018 = ╱6b╱k╱ // 0xd21 @0x18
0x0d09…0d40 at0019 = ╱74╱t╱ // 0xd22 @0x19
0x0d09…0d40 at001a = ╱69╱i╱ // 0xd23 @0x1a
0x0d09…0d40 at001b = ╱6f╱o╱ // 0xd24 @0x1b
0x0d09…0d40 at001c = ╱6e╱n╱ // 0xd25 @0x1c
0x0d09…0d40 at001d = ╱73╱s╱ // 0xd26 @0x1d
0x0d09…0d40 at001e = ╱6b╱k╱ // 0xd27 @0x1e
0x0d09…0d40 at001f = ╱6f╱o╱ // 0xd28 @0x1f
0x0d09…0d40 at0020 = ╱64╱d╱ // 0xd29 @0x20
0x0d09…0d40 at0021 = ╱65╱e╱ // 0xd2a @0x21
0x0d09…0d40 at0022 = ╱3a╱:╱ // 0xd2b @0x22
0x0d09…0d40 at0023 = ╱20╱…╱ // 0xd2c @0x23
0x0d09…0d40 at0024 = ╱22╱"╱ // 0xd2d @0x24
0x0d09…0d40 at0025 = ╱f1╱ : ╱ // 0xd2e @0x25
0x0d09…0d40 at0026 = ╱53╱S╱ // 0xd2f @0x26
0x0d09…0d40 at0027 = ╱56╱V╱ // 0xd30 @0x27
0x0d09…0d40 at0028 = ╱41╱A╱ // 0xd31 @0x28
0x0d09…0d40 at0029 = ╱52╱R╱ // 0xd32 @0x29
0x0d09…0d40 at002a = ╱ef╱$╱ // 0xd33 @0x2a
0x0d09…0d40 at002b = ╱ed╱(╱ // 0xd34 @0x2b
0x0d09…0d40 at002c = ╱31╱1╱ // 0xd35 @0x2c
0x0d09…0d40 at002d = ╱f20100╱ // 0xd36 @0x2d
0x0d09…0d40 at0030 = ╱f1╱ : ╱ // 0xd39 @0x30
0x0d09…0d40 at0031 = ╱32╱2╱ // 0xd3a @0x31
0x0d09…0d40 at0032 = ╱f20200╱ // 0xd3b @0x32
0x0d09…0d40 at0035 = ╱ee╱)╱ // 0xd3e @0x35
0x0d09…0d40 at0036 = EOL // 0xd3f @0x36
0x0d09…0d40 }
0x0d40…0d52 a340 1140 EXEC SL_FEJLLINIE
0x0d40…0d52 LineComal80 {
0x0d40…0d52 ptr = 0xa340 // 0xd40 @0x0
0x0d40…0d52 lno = 0x0474 // 0xd42 @0x2
0x0d40…0d52 at0004 = ╱9d╱ EXEC ╱ // 0xd44 @0x4
0x0d40…0d52 at0005 = ╱53╱S╱ // 0xd45 @0x5
0x0d40…0d52 at0006 = ╱4c╱L╱ // 0xd46 @0x6
0x0d40…0d52 at0007 = ╱5f╱_╱ // 0xd47 @0x7
0x0d40…0d52 at0008 = ╱46╱F╱ // 0xd48 @0x8
0x0d40…0d52 at0009 = ╱45╱E╱ // 0xd49 @0x9
0x0d40…0d52 at000a = ╱4a╱J╱ // 0xd4a @0xa
0x0d40…0d52 at000b = ╱4c╱L╱ // 0xd4b @0xb
0x0d40…0d52 at000c = ╱4c╱L╱ // 0xd4c @0xc
0x0d40…0d52 at000d = ╱49╱I╱ // 0xd4d @0xd
0x0d40…0d52 at000e = ╱4e╱N╱ // 0xd4e @0xe
0x0d40…0d52 at000f = ╱49╱I╱ // 0xd4f @0xf
0x0d40…0d52 at0010 = ╱45╱E╱ // 0xd50 @0x10
0x0d40…0d52 at0011 = EOL // 0xd51 @0x11
0x0d40…0d52 }
0x0d52…0d65 a353 1150 IF SVAR$ IN " " THEN EXIT
0x0d52…0d65 LineComal80 {
0x0d52…0d65 ptr = 0xa353 // 0xd52 @0x0
0x0d52…0d65 lno = 0x047e // 0xd54 @0x2
0x0d52…0d65 at0004 = ╱8200╱ IF ╱ // 0xd56 @0x4
0x0d52…0d65 at0006 = ╱53╱S╱ // 0xd58 @0x6
0x0d52…0d65 at0007 = ╱56╱V╱ // 0xd59 @0x7
0x0d52…0d65 at0008 = ╱41╱A╱ // 0xd5a @0x8
0x0d52…0d65 at0009 = ╱52╱R╱ // 0xd5b @0x9
0x0d52…0d65 at000a = ╱ef╱$╱ // 0xd5c @0xa
0x0d52…0d65 at000b = ╱dc╱ IN ╱ // 0xd5d @0xb
0x0d52…0d65 at000c = ╱22╱"╱ // 0xd5e @0xc
0x0d52…0d65 at000d = ╱20╱…╱ // 0xd5f @0xd
0x0d52…0d65 at000e = ╱20╱…╱ // 0xd60 @0xe
0x0d52…0d65 at000f = ╱22╱"╱ // 0xd61 @0xf
0x0d52…0d65 at0010 = ╱b5╱ THEN ╱ // 0xd62 @0x10
0x0d52…0d65 at0011 = ╱99╱ EXIT ╱ // 0xd63 @0x11
0x0d52…0d65 at0012 = EOL // 0xd64 @0x12
0x0d52…0d65 }
0x0d65…0da2 a390 1160 IF "/" + SVAR$(1 : 2) + "/" IN "/IP/ip/UK/uk/RP/rp/BP/bp/" THEN
0x0d65…0da2 LineComal80 {
0x0d65…0da2 ptr = 0xa390 // 0xd65 @0x0
0x0d65…0da2 lno = 0x0488 // 0xd67 @0x2
0x0d65…0da2 at0004 = ╱9b06d7╱ IF ╱ // 0xd69 @0x4
0x0d65…0da2 at0007 = ╱22╱"╱ // 0xd6c @0x7
0x0d65…0da2 at0008 = ╱2f╱/╱ // 0xd6d @0x8
0x0d65…0da2 at0009 = ╱22╱"╱ // 0xd6e @0x9
0x0d65…0da2 at000a = ╱eb╱ + ╱ // 0xd6f @0xa
0x0d65…0da2 at000b = ╱53╱S╱ // 0xd70 @0xb
0x0d65…0da2 at000c = ╱56╱V╱ // 0xd71 @0xc
0x0d65…0da2 at000d = ╱41╱A╱ // 0xd72 @0xd
0x0d65…0da2 at000e = ╱52╱R╱ // 0xd73 @0xe
0x0d65…0da2 at000f = ╱ef╱$╱ // 0xd74 @0xf
0x0d65…0da2 at0010 = ╱ed╱(╱ // 0xd75 @0x10
0x0d65…0da2 at0011 = ╱31╱1╱ // 0xd76 @0x11
0x0d65…0da2 at0012 = ╱f20100╱ // 0xd77 @0x12
0x0d65…0da2 at0015 = ╱f1╱ : ╱ // 0xd7a @0x15
0x0d65…0da2 at0016 = ╱32╱2╱ // 0xd7b @0x16
0x0d65…0da2 at0017 = ╱f20200╱ // 0xd7c @0x17
0x0d65…0da2 at001a = ╱ee╱)╱ // 0xd7f @0x1a
0x0d65…0da2 at001b = ╱eb╱ + ╱ // 0xd80 @0x1b
0x0d65…0da2 at001c = ╱22╱"╱ // 0xd81 @0x1c
0x0d65…0da2 at001d = ╱2f╱/╱ // 0xd82 @0x1d
0x0d65…0da2 at001e = ╱22╱"╱ // 0xd83 @0x1e
0x0d65…0da2 at001f = ╱dc╱ IN ╱ // 0xd84 @0x1f
0x0d65…0da2 at0020 = ╱22╱"╱ // 0xd85 @0x20
0x0d65…0da2 at0021 = ╱2f╱/╱ // 0xd86 @0x21
0x0d65…0da2 at0022 = ╱49╱I╱ // 0xd87 @0x22
0x0d65…0da2 at0023 = ╱50╱P╱ // 0xd88 @0x23
0x0d65…0da2 at0024 = ╱2f╱/╱ // 0xd89 @0x24
0x0d65…0da2 at0025 = ╱69╱i╱ // 0xd8a @0x25
0x0d65…0da2 at0026 = ╱70╱p╱ // 0xd8b @0x26
0x0d65…0da2 at0027 = ╱2f╱/╱ // 0xd8c @0x27
0x0d65…0da2 at0028 = ╱55╱U╱ // 0xd8d @0x28
0x0d65…0da2 at0029 = ╱4b╱K╱ // 0xd8e @0x29
0x0d65…0da2 at002a = ╱2f╱/╱ // 0xd8f @0x2a
0x0d65…0da2 at002b = ╱75╱u╱ // 0xd90 @0x2b
0x0d65…0da2 at002c = ╱6b╱k╱ // 0xd91 @0x2c
0x0d65…0da2 at002d = ╱2f╱/╱ // 0xd92 @0x2d
0x0d65…0da2 at002e = ╱52╱R╱ // 0xd93 @0x2e
0x0d65…0da2 at002f = ╱50╱P╱ // 0xd94 @0x2f
0x0d65…0da2 at0030 = ╱2f╱/╱ // 0xd95 @0x30
0x0d65…0da2 at0031 = ╱72╱r╱ // 0xd96 @0x31
0x0d65…0da2 at0032 = ╱70╱p╱ // 0xd97 @0x32
0x0d65…0da2 at0033 = ╱2f╱/╱ // 0xd98 @0x33
0x0d65…0da2 at0034 = ╱42╱B╱ // 0xd99 @0x34
0x0d65…0da2 at0035 = ╱50╱P╱ // 0xd9a @0x35
0x0d65…0da2 at0036 = ╱2f╱/╱ // 0xd9b @0x36
0x0d65…0da2 at0037 = ╱62╱b╱ // 0xd9c @0x37
0x0d65…0da2 at0038 = ╱70╱p╱ // 0xd9d @0x38
0x0d65…0da2 at0039 = ╱2f╱/╱ // 0xd9e @0x39
0x0d65…0da2 at003a = ╱22╱"╱ // 0xd9f @0x3a
0x0d65…0da2 at003b = ╱b5╱ THEN ╱ // 0xda0 @0x3b
0x0d65…0da2 at003c = EOL // 0xda1 @0x3c
0x0d65…0da2 }
0x0da2…0ddd a3cb 1170 EXEC FEJL("Ulovlig funktionskode: '" + SVAR$(1 : 2) + "'")
0x0da2…0ddd LineComal80 {
0x0da2…0ddd ptr = 0xa3cb // 0xda2 @0x0
0x0da2…0ddd lno = 0x0492 // 0xda4 @0x2
0x0da2…0ddd at0004 = ╱9d╱ EXEC ╱ // 0xda6 @0x4
0x0da2…0ddd at0005 = ╱46╱F╱ // 0xda7 @0x5
0x0da2…0ddd at0006 = ╱45╱E╱ // 0xda8 @0x6
0x0da2…0ddd at0007 = ╱4a╱J╱ // 0xda9 @0x7
0x0da2…0ddd at0008 = ╱4c╱L╱ // 0xdaa @0x8
0x0da2…0ddd at0009 = ╱ed╱(╱ // 0xdab @0x9
0x0da2…0ddd at000a = ╱22╱"╱ // 0xdac @0xa
0x0da2…0ddd at000b = ╱55╱U╱ // 0xdad @0xb
0x0da2…0ddd at000c = ╱6c╱l╱ // 0xdae @0xc
0x0da2…0ddd at000d = ╱6f╱o╱ // 0xdaf @0xd
0x0da2…0ddd at000e = ╱76╱v╱ // 0xdb0 @0xe
0x0da2…0ddd at000f = ╱6c╱l╱ // 0xdb1 @0xf
0x0da2…0ddd at0010 = ╱69╱i╱ // 0xdb2 @0x10
0x0da2…0ddd at0011 = ╱67╱g╱ // 0xdb3 @0x11
0x0da2…0ddd at0012 = ╱20╱…╱ // 0xdb4 @0x12
0x0da2…0ddd at0013 = ╱66╱f╱ // 0xdb5 @0x13
0x0da2…0ddd at0014 = ╱75╱u╱ // 0xdb6 @0x14
0x0da2…0ddd at0015 = ╱6e╱n╱ // 0xdb7 @0x15
0x0da2…0ddd at0016 = ╱6b╱k╱ // 0xdb8 @0x16
0x0da2…0ddd at0017 = ╱74╱t╱ // 0xdb9 @0x17
0x0da2…0ddd at0018 = ╱69╱i╱ // 0xdba @0x18
0x0da2…0ddd at0019 = ╱6f╱o╱ // 0xdbb @0x19
0x0da2…0ddd at001a = ╱6e╱n╱ // 0xdbc @0x1a
0x0da2…0ddd at001b = ╱73╱s╱ // 0xdbd @0x1b
0x0da2…0ddd at001c = ╱6b╱k╱ // 0xdbe @0x1c
0x0da2…0ddd at001d = ╱6f╱o╱ // 0xdbf @0x1d
0x0da2…0ddd at001e = ╱64╱d╱ // 0xdc0 @0x1e
0x0da2…0ddd at001f = ╱65╱e╱ // 0xdc1 @0x1f
0x0da2…0ddd at0020 = ╱3a╱:╱ // 0xdc2 @0x20
0x0da2…0ddd at0021 = ╱20╱…╱ // 0xdc3 @0x21
0x0da2…0ddd at0022 = ╱27╱'╱ // 0xdc4 @0x22
0x0da2…0ddd at0023 = ╱22╱"╱ // 0xdc5 @0x23
0x0da2…0ddd at0024 = ╱eb╱ + ╱ // 0xdc6 @0x24
0x0da2…0ddd at0025 = ╱53╱S╱ // 0xdc7 @0x25
0x0da2…0ddd at0026 = ╱56╱V╱ // 0xdc8 @0x26
0x0da2…0ddd at0027 = ╱41╱A╱ // 0xdc9 @0x27
0x0da2…0ddd at0028 = ╱52╱R╱ // 0xdca @0x28
0x0da2…0ddd at0029 = ╱ef╱$╱ // 0xdcb @0x29
0x0da2…0ddd at002a = ╱ed╱(╱ // 0xdcc @0x2a
0x0da2…0ddd at002b = ╱31╱1╱ // 0xdcd @0x2b
0x0da2…0ddd at002c = ╱f20100╱ // 0xdce @0x2c
0x0da2…0ddd at002f = ╱f1╱ : ╱ // 0xdd1 @0x2f
0x0da2…0ddd at0030 = ╱32╱2╱ // 0xdd2 @0x30
0x0da2…0ddd at0031 = ╱f20200╱ // 0xdd3 @0x31
0x0da2…0ddd at0034 = ╱ee╱)╱ // 0xdd6 @0x34
0x0da2…0ddd at0035 = ╱eb╱ + ╱ // 0xdd7 @0x35
0x0da2…0ddd at0036 = ╱22╱"╱ // 0xdd8 @0x36
0x0da2…0ddd at0037 = ╱27╱'╱ // 0xdd9 @0x37
0x0da2…0ddd at0038 = ╱22╱"╱ // 0xdda @0x38
0x0da2…0ddd at0039 = ╱ee╱)╱ // 0xddb @0x39
0x0da2…0ddd at003a = EOL // 0xddc @0x3a
0x0da2…0ddd }
0x0ddd…0de3 a3d1 1180 ENDIF
0x0ddd…0de3 LineComal80 {
0x0ddd…0de3 ptr = 0xa3d1 // 0xddd @0x0
0x0ddd…0de3 lno = 0x049c // 0xddf @0x2
0x0ddd…0de3 at0004 = ╱9c╱ ENDIF ╱ // 0xde1 @0x4
0x0ddd…0de3 at0005 = EOL // 0xde2 @0x5
0x0ddd…0de3 }
0x0de3…0deb a3d9 1190 UNTIL OK
0x0de3…0deb LineComal80 {
0x0de3…0deb ptr = 0xa3d9 // 0xde3 @0x0
0x0de3…0deb lno = 0x04a6 // 0xde5 @0x2
0x0de3…0deb at0004 = ╱98╱ UNTIL ╱ // 0xde7 @0x4
0x0de3…0deb at0005 = ╱4f╱O╱ // 0xde8 @0x5
0x0de3…0deb at0006 = ╱4b╱K╱ // 0xde9 @0x6
0x0de3…0deb at0007 = EOL // 0xdea @0x7
0x0de3…0deb }
0x0deb…0e30 a41e 1200 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
0x0deb…0e30 LineComal80 {
0x0deb…0e30 ptr = 0xa41e // 0xdeb @0x0
0x0deb…0e30 lno = 0x04b0 // 0xded @0x2
0x0deb…0e30 at0004 = ╱a9╱ GET ╱ // 0xdef @0x4
0x0deb…0e30 at0005 = ╱44╱D╱ // 0xdf0 @0x5
0x0deb…0e30 at0006 = ╱47╱G╱ // 0xdf1 @0x6
0x0deb…0e30 at0007 = ╱5f╱_╱ // 0xdf2 @0x7
0x0deb…0e30 at0008 = ╱50╱P╱ // 0xdf3 @0x8
0x0deb…0e30 at0009 = ╱4f╱O╱ // 0xdf4 @0x9
0x0deb…0e30 at000a = ╱53╱S╱ // 0xdf5 @0xa
0x0deb…0e30 at000b = ╱ef╱$╱ // 0xdf6 @0xb
0x0deb…0e30 at000c = ╱ec╱,╱ // 0xdf7 @0xc
0x0deb…0e30 at000d = ╱31╱1╱ // 0xdf8 @0xd
0x0deb…0e30 at000e = ╱f20100╱ // 0xdf9 @0xe
0x0deb…0e30 at0011 = ╱f1╱ : ╱ // 0xdfc @0x11
0x0deb…0e30 at0012 = ╱50╱P╱ // 0xdfd @0x12
0x0deb…0e30 at0013 = ╱5f╱_╱ // 0xdfe @0x13
0x0deb…0e30 at0014 = ╱48╱H╱ // 0xdff @0x14
0x0deb…0e30 at0015 = ╱5c╱Ø╱ // 0xe00 @0x15
0x0deb…0e30 at0016 = ╱4a╱J╱ // 0xe01 @0x16
0x0deb…0e30 at0017 = ╱52╱R╱ // 0xe02 @0x17
0x0deb…0e30 at0018 = ╱45╱E╱ // 0xe03 @0x18
0x0deb…0e30 at0019 = ╱43╱C╱ // 0xe04 @0x19
0x0deb…0e30 at001a = ╱ec╱,╱ // 0xe05 @0x1a
0x0deb…0e30 at001b = ╱50╱P╱ // 0xe06 @0x1b
0x0deb…0e30 at001c = ╱5f╱_╱ // 0xe07 @0x1c
0x0deb…0e30 at001d = ╱4d╱M╱ // 0xe08 @0x1d
0x0deb…0e30 at001e = ╱41╱A╱ // 0xe09 @0x1e
0x0deb…0e30 at001f = ╱58╱X╱ // 0xe0a @0x1f
0x0deb…0e30 at0020 = ╱52╱R╱ // 0xe0b @0x20
0x0deb…0e30 at0021 = ╱45╱E╱ // 0xe0c @0x21
0x0deb…0e30 at0022 = ╱43╱C╱ // 0xe0d @0x22
0x0deb…0e30 at0023 = ╱ec╱,╱ // 0xe0e @0x23
0x0deb…0e30 at0024 = ╱53╱S╱ // 0xe0f @0x24
0x0deb…0e30 at0025 = ╱5f╱_╱ // 0xe10 @0x25
0x0deb…0e30 at0026 = ╱4e╱N╱ // 0xe11 @0x26
0x0deb…0e30 at0027 = ╱52╱R╱ // 0xe12 @0x27
0x0deb…0e30 at0028 = ╱5f╱_╱ // 0xe13 @0x28
0x0deb…0e30 at0029 = ╱44╱D╱ // 0xe14 @0x29
0x0deb…0e30 at002a = ╱47╱G╱ // 0xe15 @0x2a
0x0deb…0e30 at002b = ╱5f╱_╱ // 0xe16 @0x2b
0x0deb…0e30 at002c = ╱50╱P╱ // 0xe17 @0x2c
0x0deb…0e30 at002d = ╱4f╱O╱ // 0xe18 @0x2d
0x0deb…0e30 at002e = ╱53╱S╱ // 0xe19 @0x2e
0x0deb…0e30 at002f = ╱ec╱,╱ // 0xe1a @0x2f
0x0deb…0e30 at0030 = ╱50╱P╱ // 0xe1b @0x30
0x0deb…0e30 at0031 = ╱5f╱_╱ // 0xe1c @0x31
0x0deb…0e30 at0032 = ╱44╱D╱ // 0xe1d @0x32
0x0deb…0e30 at0033 = ╱45╱E╱ // 0xe1e @0x33
0x0deb…0e30 at0034 = ╱42╱B╱ // 0xe1f @0x34
0x0deb…0e30 at0035 = ╱ec╱,╱ // 0xe20 @0x35
0x0deb…0e30 at0036 = ╱50╱P╱ // 0xe21 @0x36
0x0deb…0e30 at0037 = ╱5f╱_╱ // 0xe22 @0x37
0x0deb…0e30 at0038 = ╱4b╱K╱ // 0xe23 @0x38
0x0deb…0e30 at0039 = ╱52╱R╱ // 0xe24 @0x39
0x0deb…0e30 at003a = ╱45╱E╱ // 0xe25 @0x3a
0x0deb…0e30 at003b = ╱44╱D╱ // 0xe26 @0x3b
0x0deb…0e30 at003c = ╱ec╱,╱ // 0xe27 @0x3c
0x0deb…0e30 at003d = ╱50╱P╱ // 0xe28 @0x3d
0x0deb…0e30 at003e = ╱5f╱_╱ // 0xe29 @0x3e
0x0deb…0e30 at003f = ╱42╱B╱ // 0xe2a @0x3f
0x0deb…0e30 at0040 = ╱44╱D╱ // 0xe2b @0x40
0x0deb…0e30 at0041 = ╱41╱A╱ // 0xe2c @0x41
0x0deb…0e30 at0042 = ╱54╱T╱ // 0xe2d @0x42
0x0deb…0e30 at0043 = ╱ef╱$╱ // 0xe2e @0x43
0x0deb…0e30 at0044 = EOL // 0xe2f @0x44
0x0deb…0e30 }
0x0e30…0e49 a437 1210 CASE SVAR$(1 : 2) OF
0x0e30…0e49 LineComal80 {
0x0e30…0e49 ptr = 0xa437 // 0xe30 @0x0
0x0e30…0e49 lno = 0x04ba // 0xe32 @0x2
0x0e30…0e49 at0004 = ╱a20700╱ CASE ╱ // 0xe34 @0x4
0x0e30…0e49 at0007 = ╱53╱S╱ // 0xe37 @0x7
0x0e30…0e49 at0008 = ╱56╱V╱ // 0xe38 @0x8
0x0e30…0e49 at0009 = ╱41╱A╱ // 0xe39 @0x9
0x0e30…0e49 at000a = ╱52╱R╱ // 0xe3a @0xa
0x0e30…0e49 at000b = ╱ef╱$╱ // 0xe3b @0xb
0x0e30…0e49 at000c = ╱ed╱(╱ // 0xe3c @0xc
0x0e30…0e49 at000d = ╱31╱1╱ // 0xe3d @0xd
0x0e30…0e49 at000e = ╱f20100╱ // 0xe3e @0xe
0x0e30…0e49 at0011 = ╱f1╱ : ╱ // 0xe41 @0x11
0x0e30…0e49 at0012 = ╱32╱2╱ // 0xe42 @0x12
0x0e30…0e49 at0013 = ╱f20200╱ // 0xe43 @0x13
0x0e30…0e49 at0016 = ╱ee╱)╱ // 0xe46 @0x16
0x0e30…0e49 at0017 = ╱ba╱ OF ╱ // 0xe47 @0x17
0x0e30…0e49 at0018 = EOL // 0xe48 @0x18
0x0e30…0e49 }
0x0e49…0e5a a448 1220 WHILE "IP","ip"
0x0e49…0e5a LineComal80 {
0x0e49…0e5a ptr = 0xa448 // 0xe49 @0x0
0x0e49…0e5a lno = 0x04c4 // 0xe4b @0x2
0x0e49…0e5a at0004 = ╱a40800╱ WHILE ╱ // 0xe4d @0x4
0x0e49…0e5a at0007 = ╱22╱"╱ // 0xe50 @0x7
0x0e49…0e5a at0008 = ╱49╱I╱ // 0xe51 @0x8
0x0e49…0e5a at0009 = ╱50╱P╱ // 0xe52 @0x9
0x0e49…0e5a at000a = ╱22╱"╱ // 0xe53 @0xa
0x0e49…0e5a at000b = ╱ec╱,╱ // 0xe54 @0xb
0x0e49…0e5a at000c = ╱22╱"╱ // 0xe55 @0xc
0x0e49…0e5a at000d = ╱69╱i╱ // 0xe56 @0xd
0x0e49…0e5a at000e = ╱70╱p╱ // 0xe57 @0xe
0x0e49…0e5a at000f = ╱22╱"╱ // 0xe58 @0xf
0x0e49…0e5a at0010 = EOL // 0xe59 @0x10
0x0e49…0e5a }
0x0e5a…0e81 a46f 1230 IF _HØJREC > 1 AND P_BDAT$ >< SYST_DAT$ THEN
0x0e5a…0e81 LineComal80 {
0x0e5a…0e81 ptr = 0xa46f // 0xe5a @0x0
0x0e5a…0e81 lno = 0x04ce // 0xe5c @0x2
0x0e5a…0e81 at0004 = ╱9b0950╱ IF ╱ // 0xe5e @0x4
0x0e5a…0e81 at0007 = ╱5f╱_╱ // 0xe61 @0x7
0x0e5a…0e81 at0008 = ╱48╱H╱ // 0xe62 @0x8
0x0e5a…0e81 at0009 = ╱5c╱Ø╱ // 0xe63 @0x9
0x0e5a…0e81 at000a = ╱4a╱J╱ // 0xe64 @0xa
0x0e5a…0e81 at000b = ╱52╱R╱ // 0xe65 @0xb
0x0e5a…0e81 at000c = ╱45╱E╱ // 0xe66 @0xc
0x0e5a…0e81 at000d = ╱43╱C╱ // 0xe67 @0xd
0x0e5a…0e81 at000e = ╱e1╱ > ╱ // 0xe68 @0xe
0x0e5a…0e81 at000f = ╱31╱1╱ // 0xe69 @0xf
0x0e5a…0e81 at0010 = ╱f20100╱ // 0xe6a @0x10
0x0e5a…0e81 at0013 = ╱d9╱ AND ╱ // 0xe6d @0x13
0x0e5a…0e81 at0014 = ╱50╱P╱ // 0xe6e @0x14
0x0e5a…0e81 at0015 = ╱5f╱_╱ // 0xe6f @0x15
0x0e5a…0e81 at0016 = ╱42╱B╱ // 0xe70 @0x16
0x0e5a…0e81 at0017 = ╱44╱D╱ // 0xe71 @0x17
0x0e5a…0e81 at0018 = ╱41╱A╱ // 0xe72 @0x18
0x0e5a…0e81 at0019 = ╱54╱T╱ // 0xe73 @0x19
0x0e5a…0e81 at001a = ╱ef╱$╱ // 0xe74 @0x1a
0x0e5a…0e81 at001b = ╱e4╱ >< ╱ // 0xe75 @0x1b
0x0e5a…0e81 at001c = ╱53╱S╱ // 0xe76 @0x1c
0x0e5a…0e81 at001d = ╱59╱Y╱ // 0xe77 @0x1d
0x0e5a…0e81 at001e = ╱53╱S╱ // 0xe78 @0x1e
0x0e5a…0e81 at001f = ╱54╱T╱ // 0xe79 @0x1f
0x0e5a…0e81 at0020 = ╱5f╱_╱ // 0xe7a @0x20
0x0e5a…0e81 at0021 = ╱44╱D╱ // 0xe7b @0x21
0x0e5a…0e81 at0022 = ╱41╱A╱ // 0xe7c @0x22
0x0e5a…0e81 at0023 = ╱54╱T╱ // 0xe7d @0x23
0x0e5a…0e81 at0024 = ╱ef╱$╱ // 0xe7e @0x24
0x0e5a…0e81 at0025 = ╱b5╱ THEN ╱ // 0xe7f @0x25
0x0e5a…0e81 at0026 = EOL // 0xe80 @0x26
0x0e5a…0e81 }
0x0e81…0ec6 a4b4 1240 PRINT "<XC1210>Du er begyndt på en ny dato siden du sidst indtastede"
0x0e81…0ec6 LineComal80 {
0x0e81…0ec6 ptr = 0xa4b4 // 0xe81 @0x0
0x0e81…0ec6 lno = 0x04d8 // 0xe83 @0x2
0x0e81…0ec6 at0004 = ╱92╱ PRINT ╱ // 0xe85 @0x4
0x0e81…0ec6 at0005 = ╱22╱"╱ // 0xe86 @0x5
0x0e81…0ec6 at0006 = ╱3c╱<╱ // 0xe87 @0x6
0x0e81…0ec6 at0007 = ╱58╱X╱ // 0xe88 @0x7
0x0e81…0ec6 at0008 = ╱43╱C╱ // 0xe89 @0x8
0x0e81…0ec6 at0009 = ╱31╱1╱ // 0xe8a @0x9
0x0e81…0ec6 at000a = ╱32╱2╱ // 0xe8b @0xa
0x0e81…0ec6 at000b = ╱31╱1╱ // 0xe8c @0xb
0x0e81…0ec6 at000c = ╱30╱0╱ // 0xe8d @0xc
0x0e81…0ec6 at000d = ╱3e╱>╱ // 0xe8e @0xd
0x0e81…0ec6 at000e = ╱44╱D╱ // 0xe8f @0xe
0x0e81…0ec6 at000f = ╱75╱u╱ // 0xe90 @0xf
0x0e81…0ec6 at0010 = ╱20╱…╱ // 0xe91 @0x10
0x0e81…0ec6 at0011 = ╱65╱e╱ // 0xe92 @0x11
0x0e81…0ec6 at0012 = ╱72╱r╱ // 0xe93 @0x12
0x0e81…0ec6 at0013 = ╱20╱…╱ // 0xe94 @0x13
0x0e81…0ec6 at0014 = ╱62╱b╱ // 0xe95 @0x14
0x0e81…0ec6 at0015 = ╱65╱e╱ // 0xe96 @0x15
0x0e81…0ec6 at0016 = ╱67╱g╱ // 0xe97 @0x16
0x0e81…0ec6 at0017 = ╱79╱y╱ // 0xe98 @0x17
0x0e81…0ec6 at0018 = ╱6e╱n╱ // 0xe99 @0x18
0x0e81…0ec6 at0019 = ╱64╱d╱ // 0xe9a @0x19
0x0e81…0ec6 at001a = ╱74╱t╱ // 0xe9b @0x1a
0x0e81…0ec6 at001b = ╱20╱…╱ // 0xe9c @0x1b
0x0e81…0ec6 at001c = ╱70╱p╱ // 0xe9d @0x1c
0x0e81…0ec6 at001d = ╱7d╱å╱ // 0xe9e @0x1d
0x0e81…0ec6 at001e = ╱20╱…╱ // 0xe9f @0x1e
0x0e81…0ec6 at001f = ╱65╱e╱ // 0xea0 @0x1f
0x0e81…0ec6 at0020 = ╱6e╱n╱ // 0xea1 @0x20
0x0e81…0ec6 at0021 = ╱20╱…╱ // 0xea2 @0x21
0x0e81…0ec6 at0022 = ╱6e╱n╱ // 0xea3 @0x22
0x0e81…0ec6 at0023 = ╱79╱y╱ // 0xea4 @0x23
0x0e81…0ec6 at0024 = ╱20╱…╱ // 0xea5 @0x24
0x0e81…0ec6 at0025 = ╱64╱d╱ // 0xea6 @0x25
0x0e81…0ec6 at0026 = ╱61╱a╱ // 0xea7 @0x26
0x0e81…0ec6 at0027 = ╱74╱t╱ // 0xea8 @0x27
0x0e81…0ec6 at0028 = ╱6f╱o╱ // 0xea9 @0x28
0x0e81…0ec6 at0029 = ╱20╱…╱ // 0xeaa @0x29
0x0e81…0ec6 at002a = ╱73╱s╱ // 0xeab @0x2a
0x0e81…0ec6 at002b = ╱69╱i╱ // 0xeac @0x2b
0x0e81…0ec6 at002c = ╱64╱d╱ // 0xead @0x2c
0x0e81…0ec6 at002d = ╱65╱e╱ // 0xeae @0x2d
0x0e81…0ec6 at002e = ╱6e╱n╱ // 0xeaf @0x2e
0x0e81…0ec6 at002f = ╱20╱…╱ // 0xeb0 @0x2f
0x0e81…0ec6 at0030 = ╱64╱d╱ // 0xeb1 @0x30
0x0e81…0ec6 at0031 = ╱75╱u╱ // 0xeb2 @0x31
0x0e81…0ec6 at0032 = ╱20╱…╱ // 0xeb3 @0x32
0x0e81…0ec6 at0033 = ╱73╱s╱ // 0xeb4 @0x33
0x0e81…0ec6 at0034 = ╱69╱i╱ // 0xeb5 @0x34
0x0e81…0ec6 at0035 = ╱64╱d╱ // 0xeb6 @0x35
0x0e81…0ec6 at0036 = ╱73╱s╱ // 0xeb7 @0x36
0x0e81…0ec6 at0037 = ╱74╱t╱ // 0xeb8 @0x37
0x0e81…0ec6 at0038 = ╱20╱…╱ // 0xeb9 @0x38
0x0e81…0ec6 at0039 = ╱69╱i╱ // 0xeba @0x39
0x0e81…0ec6 at003a = ╱6e╱n╱ // 0xebb @0x3a
0x0e81…0ec6 at003b = ╱64╱d╱ // 0xebc @0x3b
0x0e81…0ec6 at003c = ╱74╱t╱ // 0xebd @0x3c
0x0e81…0ec6 at003d = ╱61╱a╱ // 0xebe @0x3d
0x0e81…0ec6 at003e = ╱73╱s╱ // 0xebf @0x3e
0x0e81…0ec6 at003f = ╱74╱t╱ // 0xec0 @0x3f
0x0e81…0ec6 at0040 = ╱65╱e╱ // 0xec1 @0x40
0x0e81…0ec6 at0041 = ╱64╱d╱ // 0xec2 @0x41
0x0e81…0ec6 at0042 = ╱65╱e╱ // 0xec3 @0x42
0x0e81…0ec6 at0043 = ╱22╱"╱ // 0xec4 @0x43
0x0e81…0ec6 at0044 = EOL // 0xec5 @0x44
0x0e81…0ec6 }
0x0ec6…0f0a a4f8 1250 PRINT "<C1211>posteringer - posteringerne skal bogføres før du kan "
0x0ec6…0f0a LineComal80 {
0x0ec6…0f0a ptr = 0xa4f8 // 0xec6 @0x0
0x0ec6…0f0a lno = 0x04e2 // 0xec8 @0x2
0x0ec6…0f0a at0004 = ╱92╱ PRINT ╱ // 0xeca @0x4
0x0ec6…0f0a at0005 = ╱22╱"╱ // 0xecb @0x5
0x0ec6…0f0a at0006 = ╱3c╱<╱ // 0xecc @0x6
0x0ec6…0f0a at0007 = ╱43╱C╱ // 0xecd @0x7
0x0ec6…0f0a at0008 = ╱31╱1╱ // 0xece @0x8
0x0ec6…0f0a at0009 = ╱32╱2╱ // 0xecf @0x9
0x0ec6…0f0a at000a = ╱31╱1╱ // 0xed0 @0xa
0x0ec6…0f0a at000b = ╱31╱1╱ // 0xed1 @0xb
0x0ec6…0f0a at000c = ╱3e╱>╱ // 0xed2 @0xc
0x0ec6…0f0a at000d = ╱70╱p╱ // 0xed3 @0xd
0x0ec6…0f0a at000e = ╱6f╱o╱ // 0xed4 @0xe
0x0ec6…0f0a at000f = ╱73╱s╱ // 0xed5 @0xf
0x0ec6…0f0a at0010 = ╱74╱t╱ // 0xed6 @0x10
0x0ec6…0f0a at0011 = ╱65╱e╱ // 0xed7 @0x11
0x0ec6…0f0a at0012 = ╱72╱r╱ // 0xed8 @0x12
0x0ec6…0f0a at0013 = ╱69╱i╱ // 0xed9 @0x13
0x0ec6…0f0a at0014 = ╱6e╱n╱ // 0xeda @0x14
0x0ec6…0f0a at0015 = ╱67╱g╱ // 0xedb @0x15
0x0ec6…0f0a at0016 = ╱65╱e╱ // 0xedc @0x16
0x0ec6…0f0a at0017 = ╱72╱r╱ // 0xedd @0x17
0x0ec6…0f0a at0018 = ╱20╱…╱ // 0xede @0x18
0x0ec6…0f0a at0019 = ╱2d╱-╱ // 0xedf @0x19
0x0ec6…0f0a at001a = ╱20╱…╱ // 0xee0 @0x1a
0x0ec6…0f0a at001b = ╱70╱p╱ // 0xee1 @0x1b
0x0ec6…0f0a at001c = ╱6f╱o╱ // 0xee2 @0x1c
0x0ec6…0f0a at001d = ╱73╱s╱ // 0xee3 @0x1d
0x0ec6…0f0a at001e = ╱74╱t╱ // 0xee4 @0x1e
0x0ec6…0f0a at001f = ╱65╱e╱ // 0xee5 @0x1f
0x0ec6…0f0a at0020 = ╱72╱r╱ // 0xee6 @0x20
0x0ec6…0f0a at0021 = ╱69╱i╱ // 0xee7 @0x21
0x0ec6…0f0a at0022 = ╱6e╱n╱ // 0xee8 @0x22
0x0ec6…0f0a at0023 = ╱67╱g╱ // 0xee9 @0x23
0x0ec6…0f0a at0024 = ╱65╱e╱ // 0xeea @0x24
0x0ec6…0f0a at0025 = ╱72╱r╱ // 0xeeb @0x25
0x0ec6…0f0a at0026 = ╱6e╱n╱ // 0xeec @0x26
0x0ec6…0f0a at0027 = ╱65╱e╱ // 0xeed @0x27
0x0ec6…0f0a at0028 = ╱20╱…╱ // 0xeee @0x28
0x0ec6…0f0a at0029 = ╱73╱s╱ // 0xeef @0x29
0x0ec6…0f0a at002a = ╱6b╱k╱ // 0xef0 @0x2a
0x0ec6…0f0a at002b = ╱61╱a╱ // 0xef1 @0x2b
0x0ec6…0f0a at002c = ╱6c╱l╱ // 0xef2 @0x2c
0x0ec6…0f0a at002d = ╱20╱…╱ // 0xef3 @0x2d
0x0ec6…0f0a at002e = ╱62╱b╱ // 0xef4 @0x2e
0x0ec6…0f0a at002f = ╱6f╱o╱ // 0xef5 @0x2f
0x0ec6…0f0a at0030 = ╱67╱g╱ // 0xef6 @0x30
0x0ec6…0f0a at0031 = ╱66╱f╱ // 0xef7 @0x31
0x0ec6…0f0a at0032 = ╱7c╱ø╱ // 0xef8 @0x32
0x0ec6…0f0a at0033 = ╱72╱r╱ // 0xef9 @0x33
0x0ec6…0f0a at0034 = ╱65╱e╱ // 0xefa @0x34
0x0ec6…0f0a at0035 = ╱73╱s╱ // 0xefb @0x35
0x0ec6…0f0a at0036 = ╱20╱…╱ // 0xefc @0x36
0x0ec6…0f0a at0037 = ╱66╱f╱ // 0xefd @0x37
0x0ec6…0f0a at0038 = ╱7c╱ø╱ // 0xefe @0x38
0x0ec6…0f0a at0039 = ╱72╱r╱ // 0xeff @0x39
0x0ec6…0f0a at003a = ╱20╱…╱ // 0xf00 @0x3a
0x0ec6…0f0a at003b = ╱64╱d╱ // 0xf01 @0x3b
0x0ec6…0f0a at003c = ╱75╱u╱ // 0xf02 @0x3c
0x0ec6…0f0a at003d = ╱20╱…╱ // 0xf03 @0x3d
0x0ec6…0f0a at003e = ╱6b╱k╱ // 0xf04 @0x3e
0x0ec6…0f0a at003f = ╱61╱a╱ // 0xf05 @0x3f
0x0ec6…0f0a at0040 = ╱6e╱n╱ // 0xf06 @0x40
0x0ec6…0f0a at0041 = ╱20╱…╱ // 0xf07 @0x41
0x0ec6…0f0a at0042 = ╱22╱"╱ // 0xf08 @0x42
0x0ec6…0f0a at0043 = EOL // 0xf09 @0x43
0x0ec6…0f0a }
0x0f0a…0f34 (50,) a522 1260 PRINT "<C1212>indtaste flere posteringer."
0x0f0a…0f34 LineComal80 {
0x0f0a…0f34 ptr = 0xa522 // 0xf0a @0x0
0x0f0a…0f34 lno = 0x04ec // 0xf0c @0x2
0x0f0a…0f34 at0004 = ╱92╱ PRINT ╱ // 0xf0e @0x4
0x0f0a…0f34 at0005 = ╱22╱"╱ // 0xf0f @0x5
0x0f0a…0f34 at0006 = ╱3c╱<╱ // 0xf10 @0x6
0x0f0a…0f34 at0007 = ╱43╱C╱ // 0xf11 @0x7
0x0f0a…0f34 at0008 = ╱31╱1╱ // 0xf12 @0x8
0x0f0a…0f34 at0009 = ╱32╱2╱ // 0xf13 @0x9
0x0f0a…0f34 at000a = ╱31╱1╱ // 0xf14 @0xa
0x0f0a…0f34 at000b = ╱32╱2╱ // 0xf15 @0xb
0x0f0a…0f34 at000c = ╱3e╱>╱ // 0xf16 @0xc
0x0f0a…0f34 at000d = ╱69╱i╱ // 0xf17 @0xd
0x0f0a…0f34 at000e = ╱6e╱n╱ // 0xf18 @0xe
0x0f0a…0f34 at000f = ╱64╱d╱ // 0xf19 @0xf
0x0f0a…0f34 at0010 = ╱74╱t╱ // 0xf1a @0x10
0x0f0a…0f34 at0011 = ╱61╱a╱ // 0xf1b @0x11
0x0f0a…0f34 at0012 = ╱73╱s╱ // 0xf1c @0x12
0x0f0a…0f34 at0013 = ╱74╱t╱ // 0xf1d @0x13
0x0f0a…0f34 at0014 = ╱65╱e╱ // 0xf1e @0x14
0x0f0a…0f34 at0015 = ╱20╱…╱ // 0xf1f @0x15
0x0f0a…0f34 at0016 = ╱66╱f╱ // 0xf20 @0x16
0x0f0a…0f34 at0017 = ╱6c╱l╱ // 0xf21 @0x17
0x0f0a…0f34 at0018 = ╱65╱e╱ // 0xf22 @0x18
0x0f0a…0f34 at0019 = ╱72╱r╱ // 0xf23 @0x19
0x0f0a…0f34 at001a = ╱65╱e╱ // 0xf24 @0x1a
0x0f0a…0f34 at001b = ╱20╱…╱ // 0xf25 @0x1b
0x0f0a…0f34 at001c = ╱70╱p╱ // 0xf26 @0x1c
0x0f0a…0f34 at001d = ╱6f╱o╱ // 0xf27 @0x1d
0x0f0a…0f34 at001e = ╱73╱s╱ // 0xf28 @0x1e
0x0f0a…0f34 at001f = ╱74╱t╱ // 0xf29 @0x1f
0x0f0a…0f34 at0020 = ╱65╱e╱ // 0xf2a @0x20
0x0f0a…0f34 at0021 = ╱72╱r╱ // 0xf2b @0x21
0x0f0a…0f34 at0022 = ╱69╱i╱ // 0xf2c @0x22
0x0f0a…0f34 at0023 = ╱6e╱n╱ // 0xf2d @0x23
0x0f0a…0f34 at0024 = ╱67╱g╱ // 0xf2e @0x24
0x0f0a…0f34 at0025 = ╱65╱e╱ // 0xf2f @0x25
0x0f0a…0f34 at0026 = ╱72╱r╱ // 0xf30 @0x26
0x0f0a…0f34 at0027 = ╱2e╱.╱ // 0xf31 @0x27
0x0f0a…0f34 at0028 = ╱22╱"╱ // 0xf32 @0x28
0x0f0a…0f34 at0029 = EOL // 0xf33 @0x29
0x0f0a…0f34 }
0x0f34…0f55 a543 1270 INPUT "<SC6523>Tryk RETURN" : SVAR$
0x0f34…0f55 LineComal80 {
0x0f34…0f55 ptr = 0xa543 // 0xf34 @0x0
0x0f34…0f55 lno = 0x04f6 // 0xf36 @0x2
0x0f34…0f55 at0004 = ╱91╱ INPUT ╱ // 0xf38 @0x4
0x0f34…0f55 at0005 = ╱22╱"╱ // 0xf39 @0x5
0x0f34…0f55 at0006 = ╱3c╱<╱ // 0xf3a @0x6
0x0f34…0f55 at0007 = ╱53╱S╱ // 0xf3b @0x7
0x0f34…0f55 at0008 = ╱43╱C╱ // 0xf3c @0x8
0x0f34…0f55 at0009 = ╱36╱6╱ // 0xf3d @0x9
0x0f34…0f55 at000a = ╱35╱5╱ // 0xf3e @0xa
0x0f34…0f55 at000b = ╱32╱2╱ // 0xf3f @0xb
0x0f34…0f55 at000c = ╱33╱3╱ // 0xf40 @0xc
0x0f34…0f55 at000d = ╱3e╱>╱ // 0xf41 @0xd
0x0f34…0f55 at000e = ╱54╱T╱ // 0xf42 @0xe
0x0f34…0f55 at000f = ╱72╱r╱ // 0xf43 @0xf
0x0f34…0f55 at0010 = ╱79╱y╱ // 0xf44 @0x10
0x0f34…0f55 at0011 = ╱6b╱k╱ // 0xf45 @0x11
0x0f34…0f55 at0012 = ╱20╱…╱ // 0xf46 @0x12
0x0f34…0f55 at0013 = ╱52╱R╱ // 0xf47 @0x13
0x0f34…0f55 at0014 = ╱45╱E╱ // 0xf48 @0x14
0x0f34…0f55 at0015 = ╱54╱T╱ // 0xf49 @0x15
0x0f34…0f55 at0016 = ╱55╱U╱ // 0xf4a @0x16
0x0f34…0f55 at0017 = ╱52╱R╱ // 0xf4b @0x17
0x0f34…0f55 at0018 = ╱4e╱N╱ // 0xf4c @0x18
0x0f34…0f55 at0019 = ╱22╱"╱ // 0xf4d @0x19
0x0f34…0f55 at001a = ╱f1╱ : ╱ // 0xf4e @0x1a
0x0f34…0f55 at001b = ╱53╱S╱ // 0xf4f @0x1b
0x0f34…0f55 at001c = ╱56╱V╱ // 0xf50 @0x1c
0x0f34…0f55 at001d = ╱41╱A╱ // 0xf51 @0x1d
0x0f34…0f55 at001e = ╱52╱R╱ // 0xf52 @0x1e
0x0f34…0f55 at001f = ╱ef╱$╱ // 0xf53 @0x1f
0x0f34…0f55 at0020 = EOL // 0xf54 @0x20
0x0f34…0f55 }
0x0f55…0f5c a54a 1280 ELSE
0x0f55…0f5c LineComal80 {
0x0f55…0f5c ptr = 0xa54a // 0xf55 @0x0
0x0f55…0f5c lno = 0x0500 // 0xf57 @0x2
0x0f55…0f5c at0004 = ╱9a0a╱ ELSE ╱ // 0xf59 @0x4
0x0f55…0f5c at0006 = EOL // 0xf5b @0x6
0x0f55…0f5c }
0x0f5c…0f70 a55e 1290 EXEC INDTAST_POSTER
0x0f5c…0f70 LineComal80 {
0x0f5c…0f70 ptr = 0xa55e // 0xf5c @0x0
0x0f5c…0f70 lno = 0x050a // 0xf5e @0x2
0x0f5c…0f70 at0004 = ╱9d╱ EXEC ╱ // 0xf60 @0x4
0x0f5c…0f70 at0005 = ╱49╱I╱ // 0xf61 @0x5
0x0f5c…0f70 at0006 = ╱4e╱N╱ // 0xf62 @0x6
0x0f5c…0f70 at0007 = ╱44╱D╱ // 0xf63 @0x7
0x0f5c…0f70 at0008 = ╱54╱T╱ // 0xf64 @0x8
0x0f5c…0f70 at0009 = ╱41╱A╱ // 0xf65 @0x9
0x0f5c…0f70 at000a = ╱53╱S╱ // 0xf66 @0xa
0x0f5c…0f70 at000b = ╱54╱T╱ // 0xf67 @0xb
0x0f5c…0f70 at000c = ╱5f╱_╱ // 0xf68 @0xc
0x0f5c…0f70 at000d = ╱50╱P╱ // 0xf69 @0xd
0x0f5c…0f70 at000e = ╱4f╱O╱ // 0xf6a @0xe
0x0f5c…0f70 at000f = ╱53╱S╱ // 0xf6b @0xf
0x0f5c…0f70 at0010 = ╱54╱T╱ // 0xf6c @0x10
0x0f5c…0f70 at0011 = ╱45╱E╱ // 0xf6d @0x11
0x0f5c…0f70 at0012 = ╱52╱R╱ // 0xf6e @0x12
0x0f5c…0f70 at0013 = EOL // 0xf6f @0x13
0x0f5c…0f70 }
0x0f70…0f76 a564 1300 ENDIF
0x0f70…0f76 LineComal80 {
0x0f70…0f76 ptr = 0xa564 // 0xf70 @0x0
0x0f70…0f76 lno = 0x0514 // 0xf72 @0x2
0x0f70…0f76 at0004 = ╱9c╱ ENDIF ╱ // 0xf74 @0x4
0x0f70…0f76 at0005 = EOL // 0xf75 @0x5
0x0f70…0f76 }
0x0f76…0f87 a575 1310 WHILE "UK","uk"
0x0f76…0f87 LineComal80 {
0x0f76…0f87 ptr = 0xa575 // 0xf76 @0x0
0x0f76…0f87 lno = 0x051e // 0xf78 @0x2
0x0f76…0f87 at0004 = ╱a40b00╱ WHILE ╱ // 0xf7a @0x4
0x0f76…0f87 at0007 = ╱22╱"╱ // 0xf7d @0x7
0x0f76…0f87 at0008 = ╱55╱U╱ // 0xf7e @0x8
0x0f76…0f87 at0009 = ╱4b╱K╱ // 0xf7f @0x9
0x0f76…0f87 at000a = ╱22╱"╱ // 0xf80 @0xa
0x0f76…0f87 at000b = ╱ec╱,╱ // 0xf81 @0xb
0x0f76…0f87 at000c = ╱22╱"╱ // 0xf82 @0xc
0x0f76…0f87 at000d = ╱75╱u╱ // 0xf83 @0xd
0x0f76…0f87 at000e = ╱6b╱k╱ // 0xf84 @0xe
0x0f76…0f87 at000f = ╱22╱"╱ // 0xf85 @0xf
0x0f76…0f87 at0010 = EOL // 0xf86 @0x10
0x0f76…0f87 }
0x0f87…0f9b a589 1320 EXEC UDSKRIV_POSTER
0x0f87…0f9b LineComal80 {
0x0f87…0f9b ptr = 0xa589 // 0xf87 @0x0
0x0f87…0f9b lno = 0x0528 // 0xf89 @0x2
0x0f87…0f9b at0004 = ╱9d╱ EXEC ╱ // 0xf8b @0x4
0x0f87…0f9b at0005 = ╱55╱U╱ // 0xf8c @0x5
0x0f87…0f9b at0006 = ╱44╱D╱ // 0xf8d @0x6
0x0f87…0f9b at0007 = ╱53╱S╱ // 0xf8e @0x7
0x0f87…0f9b at0008 = ╱4b╱K╱ // 0xf8f @0x8
0x0f87…0f9b at0009 = ╱52╱R╱ // 0xf90 @0x9
0x0f87…0f9b at000a = ╱49╱I╱ // 0xf91 @0xa
0x0f87…0f9b at000b = ╱56╱V╱ // 0xf92 @0xb
0x0f87…0f9b at000c = ╱5f╱_╱ // 0xf93 @0xc
0x0f87…0f9b at000d = ╱50╱P╱ // 0xf94 @0xd
0x0f87…0f9b at000e = ╱4f╱O╱ // 0xf95 @0xe
0x0f87…0f9b at000f = ╱53╱S╱ // 0xf96 @0xf
0x0f87…0f9b at0010 = ╱54╱T╱ // 0xf97 @0x10
0x0f87…0f9b at0011 = ╱45╱E╱ // 0xf98 @0x11
0x0f87…0f9b at0012 = ╱52╱R╱ // 0xf99 @0x12
0x0f87…0f9b at0013 = EOL // 0xf9a @0x13
0x0f87…0f9b }
0x0f9b…0fac a59a 1330 WHILE "RP","rp"
0x0f9b…0fac LineComal80 {
0x0f9b…0fac ptr = 0xa59a // 0xf9b @0x0
0x0f9b…0fac lno = 0x0532 // 0xf9d @0x2
0x0f9b…0fac at0004 = ╱a40c00╱ WHILE ╱ // 0xf9f @0x4
0x0f9b…0fac at0007 = ╱22╱"╱ // 0xfa2 @0x7
0x0f9b…0fac at0008 = ╱52╱R╱ // 0xfa3 @0x8
0x0f9b…0fac at0009 = ╱50╱P╱ // 0xfa4 @0x9
0x0f9b…0fac at000a = ╱22╱"╱ // 0xfa5 @0xa
0x0f9b…0fac at000b = ╱ec╱,╱ // 0xfa6 @0xb
0x0f9b…0fac at000c = ╱22╱"╱ // 0xfa7 @0xc
0x0f9b…0fac at000d = ╱72╱r╱ // 0xfa8 @0xd
0x0f9b…0fac at000e = ╱70╱p╱ // 0xfa9 @0xe
0x0f9b…0fac at000f = ╱22╱"╱ // 0xfaa @0xf
0x0f9b…0fac at0010 = EOL // 0xfab @0x10
0x0f9b…0fac }
0x0fac…0fbc a5aa 1340 EXEC RET_POSTER
0x0fac…0fbc LineComal80 {
0x0fac…0fbc ptr = 0xa5aa // 0xfac @0x0
0x0fac…0fbc lno = 0x053c // 0xfae @0x2
0x0fac…0fbc at0004 = ╱9d╱ EXEC ╱ // 0xfb0 @0x4
0x0fac…0fbc at0005 = ╱52╱R╱ // 0xfb1 @0x5
0x0fac…0fbc at0006 = ╱45╱E╱ // 0xfb2 @0x6
0x0fac…0fbc at0007 = ╱54╱T╱ // 0xfb3 @0x7
0x0fac…0fbc at0008 = ╱5f╱_╱ // 0xfb4 @0x8
0x0fac…0fbc at0009 = ╱50╱P╱ // 0xfb5 @0x9
0x0fac…0fbc at000a = ╱4f╱O╱ // 0xfb6 @0xa
0x0fac…0fbc at000b = ╱53╱S╱ // 0xfb7 @0xb
0x0fac…0fbc at000c = ╱54╱T╱ // 0xfb8 @0xc
0x0fac…0fbc at000d = ╱45╱E╱ // 0xfb9 @0xd
0x0fac…0fbc at000e = ╱52╱R╱ // 0xfba @0xe
0x0fac…0fbc at000f = EOL // 0xfbb @0xf
0x0fac…0fbc }
0x0fbc…0fcd a5bb 1350 WHILE "BP","bp"
0x0fbc…0fcd LineComal80 {
0x0fbc…0fcd ptr = 0xa5bb // 0xfbc @0x0
0x0fbc…0fcd lno = 0x0546 // 0xfbe @0x2
0x0fbc…0fcd at0004 = ╱a40d00╱ WHILE ╱ // 0xfc0 @0x4
0x0fbc…0fcd at0007 = ╱22╱"╱ // 0xfc3 @0x7
0x0fbc…0fcd at0008 = ╱42╱B╱ // 0xfc4 @0x8
0x0fbc…0fcd at0009 = ╱50╱P╱ // 0xfc5 @0x9
0x0fbc…0fcd at000a = ╱22╱"╱ // 0xfc6 @0xa
0x0fbc…0fcd at000b = ╱ec╱,╱ // 0xfc7 @0xb
0x0fbc…0fcd at000c = ╱22╱"╱ // 0xfc8 @0xc
0x0fbc…0fcd at000d = ╱62╱b╱ // 0xfc9 @0xd
0x0fbc…0fcd at000e = ╱70╱p╱ // 0xfca @0xe
0x0fbc…0fcd at000f = ╱22╱"╱ // 0xfcb @0xf
0x0fbc…0fcd at0010 = EOL // 0xfcc @0x10
0x0fbc…0fcd }
0x0fcd…100f a5fd 1360 IF P_DEB >< P_KRED THEN EXEC FEJL("Ulovlig bogføring - debet < > kredit ")
0x0fcd…100f LineComal80 {
0x0fcd…100f ptr = 0xa5fd // 0xfcd @0x0
0x0fcd…100f lno = 0x0550 // 0xfcf @0x2
0x0fcd…100f at0004 = ╱8200╱ IF ╱ // 0xfd1 @0x4
0x0fcd…100f at0006 = ╱50╱P╱ // 0xfd3 @0x6
0x0fcd…100f at0007 = ╱5f╱_╱ // 0xfd4 @0x7
0x0fcd…100f at0008 = ╱44╱D╱ // 0xfd5 @0x8
0x0fcd…100f at0009 = ╱45╱E╱ // 0xfd6 @0x9
0x0fcd…100f at000a = ╱42╱B╱ // 0xfd7 @0xa
0x0fcd…100f at000b = ╱e4╱ >< ╱ // 0xfd8 @0xb
0x0fcd…100f at000c = ╱50╱P╱ // 0xfd9 @0xc
0x0fcd…100f at000d = ╱5f╱_╱ // 0xfda @0xd
0x0fcd…100f at000e = ╱4b╱K╱ // 0xfdb @0xe
0x0fcd…100f at000f = ╱52╱R╱ // 0xfdc @0xf
0x0fcd…100f at0010 = ╱45╱E╱ // 0xfdd @0x10
0x0fcd…100f at0011 = ╱44╱D╱ // 0xfde @0x11
0x0fcd…100f at0012 = ╱b5╱ THEN ╱ // 0xfdf @0x12
0x0fcd…100f at0013 = ╱9d╱ EXEC ╱ // 0xfe0 @0x13
0x0fcd…100f at0014 = ╱46╱F╱ // 0xfe1 @0x14
0x0fcd…100f at0015 = ╱45╱E╱ // 0xfe2 @0x15
0x0fcd…100f at0016 = ╱4a╱J╱ // 0xfe3 @0x16
0x0fcd…100f at0017 = ╱4c╱L╱ // 0xfe4 @0x17
0x0fcd…100f at0018 = ╱ed╱(╱ // 0xfe5 @0x18
0x0fcd…100f at0019 = ╱22╱"╱ // 0xfe6 @0x19
0x0fcd…100f at001a = ╱55╱U╱ // 0xfe7 @0x1a
0x0fcd…100f at001b = ╱6c╱l╱ // 0xfe8 @0x1b
0x0fcd…100f at001c = ╱6f╱o╱ // 0xfe9 @0x1c
0x0fcd…100f at001d = ╱76╱v╱ // 0xfea @0x1d
0x0fcd…100f at001e = ╱6c╱l╱ // 0xfeb @0x1e
0x0fcd…100f at001f = ╱69╱i╱ // 0xfec @0x1f
0x0fcd…100f at0020 = ╱67╱g╱ // 0xfed @0x20
0x0fcd…100f at0021 = ╱20╱…╱ // 0xfee @0x21
0x0fcd…100f at0022 = ╱62╱b╱ // 0xfef @0x22
0x0fcd…100f at0023 = ╱6f╱o╱ // 0xff0 @0x23
0x0fcd…100f at0024 = ╱67╱g╱ // 0xff1 @0x24
0x0fcd…100f at0025 = ╱66╱f╱ // 0xff2 @0x25
0x0fcd…100f at0026 = ╱7c╱ø╱ // 0xff3 @0x26
0x0fcd…100f at0027 = ╱72╱r╱ // 0xff4 @0x27
0x0fcd…100f at0028 = ╱69╱i╱ // 0xff5 @0x28
0x0fcd…100f at0029 = ╱6e╱n╱ // 0xff6 @0x29
0x0fcd…100f at002a = ╱67╱g╱ // 0xff7 @0x2a
0x0fcd…100f at002b = ╱20╱…╱ // 0xff8 @0x2b
0x0fcd…100f at002c = ╱2d╱-╱ // 0xff9 @0x2c
0x0fcd…100f at002d = ╱20╱…╱ // 0xffa @0x2d
0x0fcd…100f at002e = ╱64╱d╱ // 0xffb @0x2e
0x0fcd…100f at002f = ╱65╱e╱ // 0xffc @0x2f
0x0fcd…100f at0030 = ╱62╱b╱ // 0xffd @0x30
0x0fcd…100f at0031 = ╱65╱e╱ // 0xffe @0x31
0x0fcd…100f at0032 = ╱74╱t╱ // 0xfff @0x32
0x0fcd…100f at0033 = ╱20╱…╱ // 0x1000 @0x33
0x0fcd…100f at0034 = ╱3c╱<╱ // 0x1001 @0x34
0x0fcd…100f at0035 = ╱20╱…╱ // 0x1002 @0x35
0x0fcd…100f at0036 = ╱3e╱>╱ // 0x1003 @0x36
0x0fcd…100f at0037 = ╱20╱…╱ // 0x1004 @0x37
0x0fcd…100f at0038 = ╱6b╱k╱ // 0x1005 @0x38
0x0fcd…100f at0039 = ╱72╱r╱ // 0x1006 @0x39
0x0fcd…100f at003a = ╱65╱e╱ // 0x1007 @0x3a
0x0fcd…100f at003b = ╱64╱d╱ // 0x1008 @0x3b
0x0fcd…100f at003c = ╱69╱i╱ // 0x1009 @0x3c
0x0fcd…100f at003d = ╱74╱t╱ // 0x100a @0x3d
0x0fcd…100f at003e = ╱20╱…╱ // 0x100b @0x3e
0x0fcd…100f at003f = ╱22╱"╱ // 0x100c @0x3f
0x0fcd…100f at0040 = ╱ee╱)╱ // 0x100d @0x40
0x0fcd…100f at0041 = EOL // 0x100e @0x41
0x0fcd…100f }
0x100f…102d a61b 1370 IF _DEB = 0 AND P_KRED = 0 THEN
0x100f…102d LineComal80 {
0x100f…102d ptr = 0xa61b // 0x100f @0x0
0x100f…102d lno = 0x055a // 0x1011 @0x2
0x100f…102d at0004 = ╱9b0e50╱ IF ╱ // 0x1013 @0x4
0x100f…102d at0007 = ╱5f╱_╱ // 0x1016 @0x7
0x100f…102d at0008 = ╱44╱D╱ // 0x1017 @0x8
0x100f…102d at0009 = ╱45╱E╱ // 0x1018 @0x9
0x100f…102d at000a = ╱42╱B╱ // 0x1019 @0xa
0x100f…102d at000b = ╱df╱ = ╱ // 0x101a @0xb
0x100f…102d at000c = ╱30╱0╱ // 0x101b @0xc
0x100f…102d at000d = ╱f20000╱ // 0x101c @0xd
0x100f…102d at0010 = ╱d9╱ AND ╱ // 0x101f @0x10
0x100f…102d at0011 = ╱50╱P╱ // 0x1020 @0x11
0x100f…102d at0012 = ╱5f╱_╱ // 0x1021 @0x12
0x100f…102d at0013 = ╱4b╱K╱ // 0x1022 @0x13
0x100f…102d at0014 = ╱52╱R╱ // 0x1023 @0x14
0x100f…102d at0015 = ╱45╱E╱ // 0x1024 @0x15
0x100f…102d at0016 = ╱44╱D╱ // 0x1025 @0x16
0x100f…102d at0017 = ╱df╱ = ╱ // 0x1026 @0x17
0x100f…102d at0018 = ╱30╱0╱ // 0x1027 @0x18
0x100f…102d at0019 = ╱f20000╱ // 0x1028 @0x19
0x100f…102d at001c = ╱b5╱ THEN ╱ // 0x102b @0x1c
0x100f…102d at001d = EOL // 0x102c @0x1d
0x100f…102d }
0x102d…1060 a64e 1380 EXEC FEJL("Ulovlig bogføring - ingen posteringer")
0x102d…1060 LineComal80 {
0x102d…1060 ptr = 0xa64e // 0x102d @0x0
0x102d…1060 lno = 0x0564 // 0x102f @0x2
0x102d…1060 at0004 = ╱9d╱ EXEC ╱ // 0x1031 @0x4
0x102d…1060 at0005 = ╱46╱F╱ // 0x1032 @0x5
0x102d…1060 at0006 = ╱45╱E╱ // 0x1033 @0x6
0x102d…1060 at0007 = ╱4a╱J╱ // 0x1034 @0x7
0x102d…1060 at0008 = ╱4c╱L╱ // 0x1035 @0x8
0x102d…1060 at0009 = ╱ed╱(╱ // 0x1036 @0x9
0x102d…1060 at000a = ╱22╱"╱ // 0x1037 @0xa
0x102d…1060 at000b = ╱55╱U╱ // 0x1038 @0xb
0x102d…1060 at000c = ╱6c╱l╱ // 0x1039 @0xc
0x102d…1060 at000d = ╱6f╱o╱ // 0x103a @0xd
0x102d…1060 at000e = ╱76╱v╱ // 0x103b @0xe
0x102d…1060 at000f = ╱6c╱l╱ // 0x103c @0xf
0x102d…1060 at0010 = ╱69╱i╱ // 0x103d @0x10
0x102d…1060 at0011 = ╱67╱g╱ // 0x103e @0x11
0x102d…1060 at0012 = ╱20╱…╱ // 0x103f @0x12
0x102d…1060 at0013 = ╱62╱b╱ // 0x1040 @0x13
0x102d…1060 at0014 = ╱6f╱o╱ // 0x1041 @0x14
0x102d…1060 at0015 = ╱67╱g╱ // 0x1042 @0x15
0x102d…1060 at0016 = ╱66╱f╱ // 0x1043 @0x16
0x102d…1060 at0017 = ╱7c╱ø╱ // 0x1044 @0x17
0x102d…1060 at0018 = ╱72╱r╱ // 0x1045 @0x18
0x102d…1060 at0019 = ╱69╱i╱ // 0x1046 @0x19
0x102d…1060 at001a = ╱6e╱n╱ // 0x1047 @0x1a
0x102d…1060 at001b = ╱67╱g╱ // 0x1048 @0x1b
0x102d…1060 at001c = ╱20╱…╱ // 0x1049 @0x1c
0x102d…1060 at001d = ╱2d╱-╱ // 0x104a @0x1d
0x102d…1060 at001e = ╱20╱…╱ // 0x104b @0x1e
0x102d…1060 at001f = ╱69╱i╱ // 0x104c @0x1f
0x102d…1060 at0020 = ╱6e╱n╱ // 0x104d @0x20
0x102d…1060 at0021 = ╱67╱g╱ // 0x104e @0x21
0x102d…1060 at0022 = ╱65╱e╱ // 0x104f @0x22
0x102d…1060 at0023 = ╱6e╱n╱ // 0x1050 @0x23
0x102d…1060 at0024 = ╱20╱…╱ // 0x1051 @0x24
0x102d…1060 at0025 = ╱70╱p╱ // 0x1052 @0x25
0x102d…1060 at0026 = ╱6f╱o╱ // 0x1053 @0x26
0x102d…1060 at0027 = ╱73╱s╱ // 0x1054 @0x27
0x102d…1060 at0028 = ╱74╱t╱ // 0x1055 @0x28
0x102d…1060 at0029 = ╱65╱e╱ // 0x1056 @0x29
0x102d…1060 at002a = ╱72╱r╱ // 0x1057 @0x2a
0x102d…1060 at002b = ╱69╱i╱ // 0x1058 @0x2b
0x102d…1060 at002c = ╱6e╱n╱ // 0x1059 @0x2c
0x102d…1060 at002d = ╱67╱g╱ // 0x105a @0x2d
0x102d…1060 at002e = ╱65╱e╱ // 0x105b @0x2e
0x102d…1060 at002f = ╱72╱r╱ // 0x105c @0x2f
0x102d…1060 at0030 = ╱22╱"╱ // 0x105d @0x30
0x102d…1060 at0031 = ╱ee╱)╱ // 0x105e @0x31
0x102d…1060 at0032 = EOL // 0x105f @0x32
0x102d…1060 }
0x1060…1066 a654 1390 ENDIF
0x1060…1066 LineComal80 {
0x1060…1066 ptr = 0xa654 // 0x1060 @0x0
0x1060…1066 lno = 0x056e // 0x1062 @0x2
0x1060…1066 at0004 = ╱9c╱ ENDIF ╱ // 0x1064 @0x4
0x1060…1066 at0005 = EOL // 0x1065 @0x5
0x1060…1066 }
0x1066…1071 a65f 1400 IF OK THEN
0x1066…1071 LineComal80 {
0x1066…1071 ptr = 0xa65f // 0x1066 @0x0
0x1066…1071 lno = 0x0578 // 0x1068 @0x2
0x1066…1071 at0004 = ╱9b0fd7╱ IF ╱ // 0x106a @0x4
0x1066…1071 at0007 = ╱4f╱O╱ // 0x106d @0x7
0x1066…1071 at0008 = ╱4b╱K╱ // 0x106e @0x8
0x1066…1071 at0009 = ╱b5╱ THEN ╱ // 0x106f @0x9
0x1066…1071 at000a = EOL // 0x1070 @0xa
0x1066…1071 }
0x1071…1092 a680 1410 INPUT "<SC6524>Tryk RETURN" : SVAR$
0x1071…1092 LineComal80 {
0x1071…1092 ptr = 0xa680 // 0x1071 @0x0
0x1071…1092 lno = 0x0582 // 0x1073 @0x2
0x1071…1092 at0004 = ╱91╱ INPUT ╱ // 0x1075 @0x4
0x1071…1092 at0005 = ╱22╱"╱ // 0x1076 @0x5
0x1071…1092 at0006 = ╱3c╱<╱ // 0x1077 @0x6
0x1071…1092 at0007 = ╱53╱S╱ // 0x1078 @0x7
0x1071…1092 at0008 = ╱43╱C╱ // 0x1079 @0x8
0x1071…1092 at0009 = ╱36╱6╱ // 0x107a @0x9
0x1071…1092 at000a = ╱35╱5╱ // 0x107b @0xa
0x1071…1092 at000b = ╱32╱2╱ // 0x107c @0xb
0x1071…1092 at000c = ╱34╱4╱ // 0x107d @0xc
0x1071…1092 at000d = ╱3e╱>╱ // 0x107e @0xd
0x1071…1092 at000e = ╱54╱T╱ // 0x107f @0xe
0x1071…1092 at000f = ╱72╱r╱ // 0x1080 @0xf
0x1071…1092 at0010 = ╱79╱y╱ // 0x1081 @0x10
0x1071…1092 at0011 = ╱6b╱k╱ // 0x1082 @0x11
0x1071…1092 at0012 = ╱20╱…╱ // 0x1083 @0x12
0x1071…1092 at0013 = ╱52╱R╱ // 0x1084 @0x13
0x1071…1092 at0014 = ╱45╱E╱ // 0x1085 @0x14
0x1071…1092 at0015 = ╱54╱T╱ // 0x1086 @0x15
0x1071…1092 at0016 = ╱55╱U╱ // 0x1087 @0x16
0x1071…1092 at0017 = ╱52╱R╱ // 0x1088 @0x17
0x1071…1092 at0018 = ╱4e╱N╱ // 0x1089 @0x18
0x1071…1092 at0019 = ╱22╱"╱ // 0x108a @0x19
0x1071…1092 at001a = ╱f1╱ : ╱ // 0x108b @0x1a
0x1071…1092 at001b = ╱53╱S╱ // 0x108c @0x1b
0x1071…1092 at001c = ╱56╱V╱ // 0x108d @0x1c
0x1071…1092 at001d = ╱41╱A╱ // 0x108e @0x1d
0x1071…1092 at001e = ╱52╱R╱ // 0x108f @0x1e
0x1071…1092 at001f = ╱ef╱$╱ // 0x1090 @0x1f
0x1071…1092 at0020 = EOL // 0x1091 @0x20
0x1071…1092 }
0x1092…1099 d36f 1420 ELSE
0x1092…1099 LineComal80 {
0x1092…1099 ptr = 0xd36f // 0x1092 @0x0
0x1092…1099 lno = 0x058c // 0x1094 @0x2
0x1092…1099 at0004 = ╱9a10╱ ELSE ╱ // 0x1096 @0x4
0x1092…1099 at0006 = EOL // 0x1098 @0x6
0x1092…1099 }
0x1099…10b7 a6a5 1430 LET PROGRAM$ := PRGFL$ + ":SYSBP"
0x1099…10b7 LineComal80 {
0x1099…10b7 ptr = 0xa6a5 // 0x1099 @0x0
0x1099…10b7 lno = 0x0596 // 0x109b @0x2
0x1099…10b7 at0004 = ╱86╱ LET ╱ // 0x109d @0x4
0x1099…10b7 at0005 = ╱50╱P╱ // 0x109e @0x5
0x1099…10b7 at0006 = ╱52╱R╱ // 0x109f @0x6
0x1099…10b7 at0007 = ╱4f╱O╱ // 0x10a0 @0x7
0x1099…10b7 at0008 = ╱47╱G╱ // 0x10a1 @0x8
0x1099…10b7 at0009 = ╱52╱R╱ // 0x10a2 @0x9
0x1099…10b7 at000a = ╱41╱A╱ // 0x10a3 @0xa
0x1099…10b7 at000b = ╱4d╱M╱ // 0x10a4 @0xb
0x1099…10b7 at000c = ╱ef╱$╱ // 0x10a5 @0xc
0x1099…10b7 at000d = ╱f0╱ := ╱ // 0x10a6 @0xd
0x1099…10b7 at000e = ╱50╱P╱ // 0x10a7 @0xe
0x1099…10b7 at000f = ╱52╱R╱ // 0x10a8 @0xf
0x1099…10b7 at0010 = ╱47╱G╱ // 0x10a9 @0x10
0x1099…10b7 at0011 = ╱46╱F╱ // 0x10aa @0x11
0x1099…10b7 at0012 = ╱4c╱L╱ // 0x10ab @0x12
0x1099…10b7 at0013 = ╱ef╱$╱ // 0x10ac @0x13
0x1099…10b7 at0014 = ╱eb╱ + ╱ // 0x10ad @0x14
0x1099…10b7 at0015 = ╱22╱"╱ // 0x10ae @0x15
0x1099…10b7 at0016 = ╱3a╱:╱ // 0x10af @0x16
0x1099…10b7 at0017 = ╱53╱S╱ // 0x10b0 @0x17
0x1099…10b7 at0018 = ╱59╱Y╱ // 0x10b1 @0x18
0x1099…10b7 at0019 = ╱53╱S╱ // 0x10b2 @0x19
0x1099…10b7 at001a = ╱42╱B╱ // 0x10b3 @0x1a
0x1099…10b7 at001b = ╱50╱P╱ // 0x10b4 @0x1b
0x1099…10b7 at001c = ╱22╱"╱ // 0x10b5 @0x1c
0x1099…10b7 at001d = EOL // 0x10b6 @0x1d
0x1099…10b7 }
0x10b7…10c5 a6b3 1440 CHAIN PROGRAM$
0x10b7…10c5 LineComal80 {
0x10b7…10c5 ptr = 0xa6b3 // 0x10b7 @0x0
0x10b7…10c5 lno = 0x05a0 // 0x10b9 @0x2
0x10b7…10c5 at0004 = ╱ac╱ CHAIN ╱ // 0x10bb @0x4
0x10b7…10c5 at0005 = ╱50╱P╱ // 0x10bc @0x5
0x10b7…10c5 at0006 = ╱52╱R╱ // 0x10bd @0x6
0x10b7…10c5 at0007 = ╱4f╱O╱ // 0x10be @0x7
0x10b7…10c5 at0008 = ╱47╱G╱ // 0x10bf @0x8
0x10b7…10c5 at0009 = ╱52╱R╱ // 0x10c0 @0x9
0x10b7…10c5 at000a = ╱41╱A╱ // 0x10c1 @0xa
0x10b7…10c5 at000b = ╱4d╱M╱ // 0x10c2 @0xb
0x10b7…10c5 at000c = ╱ef╱$╱ // 0x10c3 @0xc
0x10b7…10c5 at000d = EOL // 0x10c4 @0xd
0x10b7…10c5 }
0x10c5…10cb a6b9 1450 ENDIF
0x10c5…10cb LineComal80 {
0x10c5…10cb ptr = 0xa6b9 // 0x10c5 @0x0
0x10c5…10cb lno = 0x05aa // 0x10c7 @0x2
0x10c5…10cb at0004 = ╱9c╱ ENDIF ╱ // 0x10c9 @0x4
0x10c5…10cb at0005 = EOL // 0x10ca @0x5
0x10c5…10cb }
0x10cb…10d2 a6c0 1460 OTHERWISE
0x10cb…10d2 LineComal80 {
0x10cb…10d2 ptr = 0xa6c0 // 0x10cb @0x0
0x10cb…10d2 lno = 0x05b4 // 0x10cd @0x2
0x10cb…10d2 at0004 = ╱9511╱ OTHERWISE ╱ // 0x10cf @0x4
0x10cb…10d2 at0006 = EOL // 0x10d1 @0x6
0x10cb…10d2 }
0x10d2…10e0 a6ce 1470 CHAIN PROGRAM$
0x10d2…10e0 LineComal80 {
0x10d2…10e0 ptr = 0xa6ce // 0x10d2 @0x0
0x10d2…10e0 lno = 0x05be // 0x10d4 @0x2
0x10d2…10e0 at0004 = ╱ac╱ CHAIN ╱ // 0x10d6 @0x4
0x10d2…10e0 at0005 = ╱50╱P╱ // 0x10d7 @0x5
0x10d2…10e0 at0006 = ╱52╱R╱ // 0x10d8 @0x6
0x10d2…10e0 at0007 = ╱4f╱O╱ // 0x10d9 @0x7
0x10d2…10e0 at0008 = ╱47╱G╱ // 0x10da @0x8
0x10d2…10e0 at0009 = ╱52╱R╱ // 0x10db @0x9
0x10d2…10e0 at000a = ╱41╱A╱ // 0x10dc @0xa
0x10d2…10e0 at000b = ╱4d╱M╱ // 0x10dd @0xb
0x10d2…10e0 at000c = ╱ef╱$╱ // 0x10de @0xc
0x10d2…10e0 at000d = EOL // 0x10df @0xd
0x10d2…10e0 }
0x10e0…10e6 a6d4 1480 ENDCASE
0x10e0…10e6 LineComal80 {
0x10e0…10e6 ptr = 0xa6d4 // 0x10e0 @0x0
0x10e0…10e6 lno = 0x05c8 // 0x10e2 @0x2
0x10e0…10e6 at0004 = ╱a3╱ ENDCASE ╱ // 0x10e4 @0x4
0x10e0…10e6 at0005 = EOL // 0x10e5 @0x5
0x10e0…10e6 }
0x10e6…10f1 a6df 1490 UNTIL FALSE
0x10e6…10f1 LineComal80 {
0x10e6…10f1 ptr = 0xa6df // 0x10e6 @0x0
0x10e6…10f1 lno = 0x05d2 // 0x10e8 @0x2
0x10e6…10f1 at0004 = ╱98╱ UNTIL ╱ // 0x10ea @0x4
0x10e6…10f1 at0005 = ╱46╱F╱ // 0x10eb @0x5
0x10e6…10f1 at0006 = ╱41╱A╱ // 0x10ec @0x6
0x10e6…10f1 at0007 = ╱4c╱L╱ // 0x10ed @0x7
0x10e6…10f1 at0008 = ╱53╱S╱ // 0x10ee @0x8
0x10e6…10f1 at0009 = ╱45╱E╱ // 0x10ef @0x9
0x10e6…10f1 at000a = EOL // 0x10f0 @0xa
0x10e6…10f1 }
0x10f1…1104 a6f2 1500 ENDPROC FUNKTIONSMENU
0x10f1…1104 LineComal80 {
0x10f1…1104 ptr = 0xa6f2 // 0x10f1 @0x0
0x10f1…1104 lno = 0x05dc // 0x10f3 @0x2
0x10f1…1104 at0004 = ╱9f╱ ENDPROC ╱ // 0x10f5 @0x4
0x10f1…1104 at0005 = ╱46╱F╱ // 0x10f6 @0x5
0x10f1…1104 at0006 = ╱55╱U╱ // 0x10f7 @0x6
0x10f1…1104 at0007 = ╱4e╱N╱ // 0x10f8 @0x7
0x10f1…1104 at0008 = ╱4b╱K╱ // 0x10f9 @0x8
0x10f1…1104 at0009 = ╱54╱T╱ // 0x10fa @0x9
0x10f1…1104 at000a = ╱49╱I╱ // 0x10fb @0xa
0x10f1…1104 at000b = ╱4f╱O╱ // 0x10fc @0xb
0x10f1…1104 at000c = ╱4e╱N╱ // 0x10fd @0xc
0x10f1…1104 at000d = ╱53╱S╱ // 0x10fe @0xd
0x10f1…1104 at000e = ╱4d╱M╱ // 0x10ff @0xe
0x10f1…1104 at000f = ╱45╱E╱ // 0x1100 @0xf
0x10f1…1104 at0010 = ╱4e╱N╱ // 0x1101 @0x10
0x10f1…1104 at0011 = ╱55╱U╱ // 0x1102 @0x11
0x10f1…1104 at0012 = EOL // 0x1103 @0x12
0x10f1…1104 }
0x1104…1109 a6f7 1510
0x1104…1109 LineComal80 {
0x1104…1109 ptr = 0xa6f7 // 0x1104 @0x0
0x1104…1109 lno = 0x05e6 // 0x1106 @0x2
0x1104…1109 at0004 = EOL // 0x1108 @0x4
0x1104…1109 }
0x1109…111c a70a 1520 PROC TERMINAL_IDX
0x1109…111c LineComal80 {
0x1109…111c ptr = 0xa70a // 0x1109 @0x0
0x1109…111c lno = 0x05f0 // 0x110b @0x2
0x1109…111c at0004 = ╱9e12╱ PROC ╱ // 0x110d @0x4
0x1109…111c at0006 = ╱54╱T╱ // 0x110f @0x6
0x1109…111c at0007 = ╱45╱E╱ // 0x1110 @0x7
0x1109…111c at0008 = ╱52╱R╱ // 0x1111 @0x8
0x1109…111c at0009 = ╱4d╱M╱ // 0x1112 @0x9
0x1109…111c at000a = ╱49╱I╱ // 0x1113 @0xa
0x1109…111c at000b = ╱4e╱N╱ // 0x1114 @0xb
0x1109…111c at000c = ╱41╱A╱ // 0x1115 @0xc
0x1109…111c at000d = ╱4c╱L╱ // 0x1116 @0xd
0x1109…111c at000e = ╱5f╱_╱ // 0x1117 @0xe
0x1109…111c at000f = ╱49╱I╱ // 0x1118 @0xf
0x1109…111c at0010 = ╱44╱D╱ // 0x1119 @0x10
0x1109…111c at0011 = ╱58╱X╱ // 0x111a @0x11
0x1109…111c at0012 = EOL // 0x111b @0x12
0x1109…111c }
0x111c…1136 a724 1530 LET PPAR := 5 ; RESRV := 0
0x111c…1136 LineComal80 {
0x111c…1136 ptr = 0xa724 // 0x111c @0x0
0x111c…1136 lno = 0x05fa // 0x111e @0x2
0x111c…1136 at0004 = ╱86╱ LET ╱ // 0x1120 @0x4
0x111c…1136 at0005 = ╱50╱P╱ // 0x1121 @0x5
0x111c…1136 at0006 = ╱50╱P╱ // 0x1122 @0x6
0x111c…1136 at0007 = ╱41╱A╱ // 0x1123 @0x7
0x111c…1136 at0008 = ╱52╱R╱ // 0x1124 @0x8
0x111c…1136 at0009 = ╱f0╱ := ╱ // 0x1125 @0x9
0x111c…1136 at000a = ╱35╱5╱ // 0x1126 @0xa
0x111c…1136 at000b = ╱f20500╱ // 0x1127 @0xb
0x111c…1136 at000e = ╱ea╱ ; ╱ // 0x112a @0xe
0x111c…1136 at000f = ╱52╱R╱ // 0x112b @0xf
0x111c…1136 at0010 = ╱45╱E╱ // 0x112c @0x10
0x111c…1136 at0011 = ╱53╱S╱ // 0x112d @0x11
0x111c…1136 at0012 = ╱52╱R╱ // 0x112e @0x12
0x111c…1136 at0013 = ╱56╱V╱ // 0x112f @0x13
0x111c…1136 at0014 = ╱f0╱ := ╱ // 0x1130 @0x14
0x111c…1136 at0015 = ╱30╱0╱ // 0x1131 @0x15
0x111c…1136 at0016 = ╱f20000╱ // 0x1132 @0x16
0x111c…1136 at0019 = EOL // 0x1135 @0x19
0x111c…1136 }
0x1136…1148 a736 1540 CALL :PRES"
0x1136…1148 LineComal80 {
0x1136…1148 ptr = 0xa736 // 0x1136 @0x0
0x1136…1148 lno = 0x0604 // 0x1138 @0x2
0x1136…1148 at0004 = ╱ad00╱ CALL ╱ // 0x113a @0x4
0x1136…1148 at0006 = ╱fe22444445╱ // 0x113c @0x6
0x1136…1148 at000b = ╱3a╱:╱ // 0x1141 @0xb
0x1136…1148 at000c = ╱50╱P╱ // 0x1142 @0xc
0x1136…1148 at000d = ╱52╱R╱ // 0x1143 @0xd
0x1136…1148 at000e = ╱45╱E╱ // 0x1144 @0xe
0x1136…1148 at000f = ╱53╱S╱ // 0x1145 @0xf
0x1136…1148 at0010 = ╱22╱"╱ // 0x1146 @0x10
0x1136…1148 at0011 = EOL // 0x1147 @0x11
0x1136…1148 }
0x1148…1171 a75f 1550 GET SYSPARA$,1 + RESRV : DATAFL$,T_KODE$
0x1148…1171 LineComal80 {
0x1148…1171 ptr = 0xa75f // 0x1148 @0x0
0x1148…1171 lno = 0x060e // 0x114a @0x2
0x1148…1171 at0004 = ╱a9╱ GET ╱ // 0x114c @0x4
0x1148…1171 at0005 = ╱53╱S╱ // 0x114d @0x5
0x1148…1171 at0006 = ╱59╱Y╱ // 0x114e @0x6
0x1148…1171 at0007 = ╱53╱S╱ // 0x114f @0x7
0x1148…1171 at0008 = ╱50╱P╱ // 0x1150 @0x8
0x1148…1171 at0009 = ╱41╱A╱ // 0x1151 @0x9
0x1148…1171 at000a = ╱52╱R╱ // 0x1152 @0xa
0x1148…1171 at000b = ╱41╱A╱ // 0x1153 @0xb
0x1148…1171 at000c = ╱ef╱$╱ // 0x1154 @0xc
0x1148…1171 at000d = ╱ec╱,╱ // 0x1155 @0xd
0x1148…1171 at000e = ╱31╱1╱ // 0x1156 @0xe
0x1148…1171 at000f = ╱f20100╱ // 0x1157 @0xf
0x1148…1171 at0012 = ╱e5╱ + ╱ // 0x115a @0x12
0x1148…1171 at0013 = ╱52╱R╱ // 0x115b @0x13
0x1148…1171 at0014 = ╱45╱E╱ // 0x115c @0x14
0x1148…1171 at0015 = ╱53╱S╱ // 0x115d @0x15
0x1148…1171 at0016 = ╱52╱R╱ // 0x115e @0x16
0x1148…1171 at0017 = ╱56╱V╱ // 0x115f @0x17
0x1148…1171 at0018 = ╱f1╱ : ╱ // 0x1160 @0x18
0x1148…1171 at0019 = ╱44╱D╱ // 0x1161 @0x19
0x1148…1171 at001a = ╱41╱A╱ // 0x1162 @0x1a
0x1148…1171 at001b = ╱54╱T╱ // 0x1163 @0x1b
0x1148…1171 at001c = ╱41╱A╱ // 0x1164 @0x1c
0x1148…1171 at001d = ╱46╱F╱ // 0x1165 @0x1d
0x1148…1171 at001e = ╱4c╱L╱ // 0x1166 @0x1e
0x1148…1171 at001f = ╱ef╱$╱ // 0x1167 @0x1f
0x1148…1171 at0020 = ╱ec╱,╱ // 0x1168 @0x20
0x1148…1171 at0021 = ╱54╱T╱ // 0x1169 @0x21
0x1148…1171 at0022 = ╱5f╱_╱ // 0x116a @0x22
0x1148…1171 at0023 = ╱4b╱K╱ // 0x116b @0x23
0x1148…1171 at0024 = ╱4f╱O╱ // 0x116c @0x24
0x1148…1171 at0025 = ╱44╱D╱ // 0x116d @0x25
0x1148…1171 at0026 = ╱45╱E╱ // 0x116e @0x26
0x1148…1171 at0027 = ╱ef╱$╱ // 0x116f @0x27
0x1148…1171 at0028 = EOL // 0x1170 @0x28
0x1148…1171 }
0x1171…1183 a771 1560 ENDPROC TERMINAL_IDX
0x1171…1183 LineComal80 {
0x1171…1183 ptr = 0xa771 // 0x1171 @0x0
0x1171…1183 lno = 0x0618 // 0x1173 @0x2
0x1171…1183 at0004 = ╱9f╱ ENDPROC ╱ // 0x1175 @0x4
0x1171…1183 at0005 = ╱54╱T╱ // 0x1176 @0x5
0x1171…1183 at0006 = ╱45╱E╱ // 0x1177 @0x6
0x1171…1183 at0007 = ╱52╱R╱ // 0x1178 @0x7
0x1171…1183 at0008 = ╱4d╱M╱ // 0x1179 @0x8
0x1171…1183 at0009 = ╱49╱I╱ // 0x117a @0x9
0x1171…1183 at000a = ╱4e╱N╱ // 0x117b @0xa
0x1171…1183 at000b = ╱41╱A╱ // 0x117c @0xb
0x1171…1183 at000c = ╱4c╱L╱ // 0x117d @0xc
0x1171…1183 at000d = ╱5f╱_╱ // 0x117e @0xd
0x1171…1183 at000e = ╱49╱I╱ // 0x117f @0xe
0x1171…1183 at000f = ╱44╱D╱ // 0x1180 @0xf
0x1171…1183 at0010 = ╱58╱X╱ // 0x1181 @0x10
0x1171…1183 at0011 = EOL // 0x1182 @0x11
0x1171…1183 }
0x1183…1188 a776 1570
0x1183…1188 LineComal80 {
0x1183…1188 ptr = 0xa776 // 0x1183 @0x0
0x1183…1188 lno = 0x0622 // 0x1185 @0x2
0x1183…1188 at0004 = EOL // 0x1187 @0x4
0x1183…1188 }
0x1188…11a3 a791 1580 PROC OPENFIL(FNAVN$,WAY$)
0x1188…11a3 LineComal80 {
0x1188…11a3 ptr = 0xa791 // 0x1188 @0x0
0x1188…11a3 lno = 0x062c // 0x118a @0x2
0x1188…11a3 at0004 = ╱9e13╱ PROC ╱ // 0x118c @0x4
0x1188…11a3 at0006 = ╱4f╱O╱ // 0x118e @0x6
0x1188…11a3 at0007 = ╱50╱P╱ // 0x118f @0x7
0x1188…11a3 at0008 = ╱45╱E╱ // 0x1190 @0x8
0x1188…11a3 at0009 = ╱4e╱N╱ // 0x1191 @0x9
0x1188…11a3 at000a = ╱46╱F╱ // 0x1192 @0xa
0x1188…11a3 at000b = ╱49╱I╱ // 0x1193 @0xb
0x1188…11a3 at000c = ╱4c╱L╱ // 0x1194 @0xc
0x1188…11a3 at000d = ╱ed╱(╱ // 0x1195 @0xd
0x1188…11a3 at000e = ╱46╱F╱ // 0x1196 @0xe
0x1188…11a3 at000f = ╱4e╱N╱ // 0x1197 @0xf
0x1188…11a3 at0010 = ╱41╱A╱ // 0x1198 @0x10
0x1188…11a3 at0011 = ╱56╱V╱ // 0x1199 @0x11
0x1188…11a3 at0012 = ╱4e╱N╱ // 0x119a @0x12
0x1188…11a3 at0013 = ╱ef╱$╱ // 0x119b @0x13
0x1188…11a3 at0014 = ╱ec╱,╱ // 0x119c @0x14
0x1188…11a3 at0015 = ╱57╱W╱ // 0x119d @0x15
0x1188…11a3 at0016 = ╱41╱A╱ // 0x119e @0x16
0x1188…11a3 at0017 = ╱59╱Y╱ // 0x119f @0x17
0x1188…11a3 at0018 = ╱ef╱$╱ // 0x11a0 @0x18
0x1188…11a3 at0019 = ╱ee╱)╱ // 0x11a1 @0x19
0x1188…11a3 at001a = EOL // 0x11a2 @0x1a
0x1188…11a3 }
0x11a3…11aa a798 1590 REPEAT
0x11a3…11aa LineComal80 {
0x11a3…11aa ptr = 0xa798 // 0x11a3 @0x0
0x11a3…11aa lno = 0x0636 // 0x11a5 @0x2
0x11a3…11aa at0004 = ╱9714╱ REPEAT ╱ // 0x11a7 @0x4
0x11a3…11aa at0006 = EOL // 0x11a9 @0x6
0x11a3…11aa }
0x11aa…11c3 a7b1 1600 IF AY$ = "W" OR WAY$ = "w" THEN
0x11aa…11c3 LineComal80 {
0x11aa…11c3 ptr = 0xa7b1 // 0x11aa @0x0
0x11aa…11c3 lno = 0x0640 // 0x11ac @0x2
0x11aa…11c3 at0004 = ╱9b1557╱ IF ╱ // 0x11ae @0x4
0x11aa…11c3 at0007 = ╱41╱A╱ // 0x11b1 @0x7
0x11aa…11c3 at0008 = ╱59╱Y╱ // 0x11b2 @0x8
0x11aa…11c3 at0009 = ╱ef╱$╱ // 0x11b3 @0x9
0x11aa…11c3 at000a = ╱df╱ = ╱ // 0x11b4 @0xa
0x11aa…11c3 at000b = ╱22╱"╱ // 0x11b5 @0xb
0x11aa…11c3 at000c = ╱57╱W╱ // 0x11b6 @0xc
0x11aa…11c3 at000d = ╱22╱"╱ // 0x11b7 @0xd
0x11aa…11c3 at000e = ╱d8╱ OR ╱ // 0x11b8 @0xe
0x11aa…11c3 at000f = ╱57╱W╱ // 0x11b9 @0xf
0x11aa…11c3 at0010 = ╱41╱A╱ // 0x11ba @0x10
0x11aa…11c3 at0011 = ╱59╱Y╱ // 0x11bb @0x11
0x11aa…11c3 at0012 = ╱ef╱$╱ // 0x11bc @0x12
0x11aa…11c3 at0013 = ╱df╱ = ╱ // 0x11bd @0x13
0x11aa…11c3 at0014 = ╱22╱"╱ // 0x11be @0x14
0x11aa…11c3 at0015 = ╱77╱w╱ // 0x11bf @0x15
0x11aa…11c3 at0016 = ╱22╱"╱ // 0x11c0 @0x16
0x11aa…11c3 at0017 = ╱b5╱ THEN ╱ // 0x11c1 @0x17
0x11aa…11c3 at0018 = EOL // 0x11c2 @0x18
0x11aa…11c3 }
0x11c3…11d1 a7bf 1610 OPEN FNAVN$,W
0x11c3…11d1 LineComal80 {
0x11c3…11d1 ptr = 0xa7bf // 0x11c3 @0x0
0x11c3…11d1 lno = 0x064a // 0x11c5 @0x2
0x11c3…11d1 at0004 = ╱a7╱ OPEN ╱ // 0x11c7 @0x4
0x11c3…11d1 at0005 = ╱46╱F╱ // 0x11c8 @0x5
0x11c3…11d1 at0006 = ╱4e╱N╱ // 0x11c9 @0x6
0x11c3…11d1 at0007 = ╱41╱A╱ // 0x11ca @0x7
0x11c3…11d1 at0008 = ╱56╱V╱ // 0x11cb @0x8
0x11c3…11d1 at0009 = ╱4e╱N╱ // 0x11cc @0x9
0x11c3…11d1 at000a = ╱ef╱$╱ // 0x11cd @0xa
0x11c3…11d1 at000b = ╱ec╱,╱ // 0x11ce @0xb
0x11c3…11d1 at000c = ╱57╱W╱ // 0x11cf @0xc
0x11c3…11d1 at000d = EOL // 0x11d0 @0xd
0x11c3…11d1 }
0x11d1…11d8 a7c6 1620 ELSE
0x11d1…11d8 LineComal80 {
0x11d1…11d8 ptr = 0xa7c6 // 0x11d1 @0x0
0x11d1…11d8 lno = 0x0654 // 0x11d3 @0x2
0x11d1…11d8 at0004 = ╱9a16╱ ELSE ╱ // 0x11d5 @0x4
0x11d1…11d8 at0006 = EOL // 0x11d7 @0x6
0x11d1…11d8 }
0x11d8…11e6 a7d4 1630 OPEN FNAVN$,R
0x11d8…11e6 LineComal80 {
0x11d8…11e6 ptr = 0xa7d4 // 0x11d8 @0x0
0x11d8…11e6 lno = 0x065e // 0x11da @0x2
0x11d8…11e6 at0004 = ╱a7╱ OPEN ╱ // 0x11dc @0x4
0x11d8…11e6 at0005 = ╱46╱F╱ // 0x11dd @0x5
0x11d8…11e6 at0006 = ╱4e╱N╱ // 0x11de @0x6
0x11d8…11e6 at0007 = ╱41╱A╱ // 0x11df @0x7
0x11d8…11e6 at0008 = ╱56╱V╱ // 0x11e0 @0x8
0x11d8…11e6 at0009 = ╱4e╱N╱ // 0x11e1 @0x9
0x11d8…11e6 at000a = ╱ef╱$╱ // 0x11e2 @0xa
0x11d8…11e6 at000b = ╱ec╱,╱ // 0x11e3 @0xb
0x11d8…11e6 at000c = ╱52╱R╱ // 0x11e4 @0xc
0x11d8…11e6 at000d = EOL // 0x11e5 @0xd
0x11d8…11e6 }
0x11e6…11ec a7da 1640 ENDIF
0x11e6…11ec LineComal80 {
0x11e6…11ec ptr = 0xa7da // 0x11e6 @0x0
0x11e6…11ec lno = 0x0668 // 0x11e8 @0x2
0x11e6…11ec at0004 = ╱9c╱ ENDIF ╱ // 0x11ea @0x4
0x11e6…11ec at0005 = EOL // 0x11eb @0x5
0x11e6…11ec }
0x11ec…11fd a7eb 1650 IF (FNAVN$) THEN
0x11ec…11fd LineComal80 {
0x11ec…11fd ptr = 0xa7eb // 0x11ec @0x0
0x11ec…11fd lno = 0x0672 // 0x11ee @0x2
0x11ec…11fd at0004 = ╱9b17cd╱ IF ╱ // 0x11f0 @0x4
0x11ec…11fd at0007 = ╱ed╱(╱ // 0x11f3 @0x7
0x11ec…11fd at0008 = ╱46╱F╱ // 0x11f4 @0x8
0x11ec…11fd at0009 = ╱4e╱N╱ // 0x11f5 @0x9
0x11ec…11fd at000a = ╱41╱A╱ // 0x11f6 @0xa
0x11ec…11fd at000b = ╱56╱V╱ // 0x11f7 @0xb
0x11ec…11fd at000c = ╱4e╱N╱ // 0x11f8 @0xc
0x11ec…11fd at000d = ╱ef╱$╱ // 0x11f9 @0xd
0x11ec…11fd at000e = ╱ee╱)╱ // 0x11fa @0xe
0x11ec…11fd at000f = ╱b5╱ THEN ╱ // 0x11fb @0xf
0x11ec…11fd at0010 = EOL // 0x11fc @0x10
0x11ec…11fd }
0x11fd…1215 a803 1660 PRINT "<SC0123>" ; CHR$ (7)
0x11fd…1215 LineComal80 {
0x11fd…1215 ptr = 0xa803 // 0x11fd @0x0
0x11fd…1215 lno = 0x067c // 0x11ff @0x2
0x11fd…1215 at0004 = ╱92╱ PRINT ╱ // 0x1201 @0x4
0x11fd…1215 at0005 = ╱22╱"╱ // 0x1202 @0x5
0x11fd…1215 at0006 = ╱3c╱<╱ // 0x1203 @0x6
0x11fd…1215 at0007 = ╱53╱S╱ // 0x1204 @0x7
0x11fd…1215 at0008 = ╱43╱C╱ // 0x1205 @0x8
0x11fd…1215 at0009 = ╱30╱0╱ // 0x1206 @0x9
0x11fd…1215 at000a = ╱31╱1╱ // 0x1207 @0xa
0x11fd…1215 at000b = ╱32╱2╱ // 0x1208 @0xb
0x11fd…1215 at000c = ╱33╱3╱ // 0x1209 @0xc
0x11fd…1215 at000d = ╱3e╱>╱ // 0x120a @0xd
0x11fd…1215 at000e = ╱22╱"╱ // 0x120b @0xe
0x11fd…1215 at000f = ╱ea╱ ; ╱ // 0x120c @0xf
0x11fd…1215 at0010 = ╱d0╱ CHR$ ╱ // 0x120d @0x10
0x11fd…1215 at0011 = ╱ed╱(╱ // 0x120e @0x11
0x11fd…1215 at0012 = ╱37╱7╱ // 0x120f @0x12
0x11fd…1215 at0013 = ╱f20700╱ // 0x1210 @0x13
0x11fd…1215 at0016 = ╱ee╱)╱ // 0x1213 @0x16
0x11fd…1215 at0017 = EOL // 0x1214 @0x17
0x11fd…1215 }
0x1215…122b a819 1670 IF (FNAVN$) = 6 THEN
0x1215…122b LineComal80 {
0x1215…122b ptr = 0xa819 // 0x1215 @0x0
0x1215…122b lno = 0x0686 // 0x1217 @0x2
0x1215…122b at0004 = ╱9b18cd╱ IF ╱ // 0x1219 @0x4
0x1215…122b at0007 = ╱ed╱(╱ // 0x121c @0x7
0x1215…122b at0008 = ╱46╱F╱ // 0x121d @0x8
0x1215…122b at0009 = ╱4e╱N╱ // 0x121e @0x9
0x1215…122b at000a = ╱41╱A╱ // 0x121f @0xa
0x1215…122b at000b = ╱56╱V╱ // 0x1220 @0xb
0x1215…122b at000c = ╱4e╱N╱ // 0x1221 @0xc
0x1215…122b at000d = ╱ef╱$╱ // 0x1222 @0xd
0x1215…122b at000e = ╱ee╱)╱ // 0x1223 @0xe
0x1215…122b at000f = ╱df╱ = ╱ // 0x1224 @0xf
0x1215…122b at0010 = ╱36╱6╱ // 0x1225 @0x10
0x1215…122b at0011 = ╱f20600╱ // 0x1226 @0x11
0x1215…122b at0014 = ╱b5╱ THEN ╱ // 0x1229 @0x14
0x1215…122b at0015 = EOL // 0x122a @0x15
0x1215…122b }
0x122b…1270 a85e 1680 PRINT "<SC1602>*** Fejl nr. 6 - indsæt diskette og tryk <RETURN> ***"
0x122b…1270 LineComal80 {
0x122b…1270 ptr = 0xa85e // 0x122b @0x0
0x122b…1270 lno = 0x0690 // 0x122d @0x2
0x122b…1270 at0004 = ╱92╱ PRINT ╱ // 0x122f @0x4
0x122b…1270 at0005 = ╱22╱"╱ // 0x1230 @0x5
0x122b…1270 at0006 = ╱3c╱<╱ // 0x1231 @0x6
0x122b…1270 at0007 = ╱53╱S╱ // 0x1232 @0x7
0x122b…1270 at0008 = ╱43╱C╱ // 0x1233 @0x8
0x122b…1270 at0009 = ╱31╱1╱ // 0x1234 @0x9
0x122b…1270 at000a = ╱36╱6╱ // 0x1235 @0xa
0x122b…1270 at000b = ╱30╱0╱ // 0x1236 @0xb
0x122b…1270 at000c = ╱32╱2╱ // 0x1237 @0xc
0x122b…1270 at000d = ╱3e╱>╱ // 0x1238 @0xd
0x122b…1270 at000e = ╱2a╱*╱ // 0x1239 @0xe
0x122b…1270 at000f = ╱2a╱*╱ // 0x123a @0xf
0x122b…1270 at0010 = ╱2a╱*╱ // 0x123b @0x10
0x122b…1270 at0011 = ╱20╱…╱ // 0x123c @0x11
0x122b…1270 at0012 = ╱46╱F╱ // 0x123d @0x12
0x122b…1270 at0013 = ╱65╱e╱ // 0x123e @0x13
0x122b…1270 at0014 = ╱6a╱j╱ // 0x123f @0x14
0x122b…1270 at0015 = ╱6c╱l╱ // 0x1240 @0x15
0x122b…1270 at0016 = ╱20╱…╱ // 0x1241 @0x16
0x122b…1270 at0017 = ╱6e╱n╱ // 0x1242 @0x17
0x122b…1270 at0018 = ╱72╱r╱ // 0x1243 @0x18
0x122b…1270 at0019 = ╱2e╱.╱ // 0x1244 @0x19
0x122b…1270 at001a = ╱20╱…╱ // 0x1245 @0x1a
0x122b…1270 at001b = ╱36╱6╱ // 0x1246 @0x1b
0x122b…1270 at001c = ╱20╱…╱ // 0x1247 @0x1c
0x122b…1270 at001d = ╱2d╱-╱ // 0x1248 @0x1d
0x122b…1270 at001e = ╱20╱…╱ // 0x1249 @0x1e
0x122b…1270 at001f = ╱69╱i╱ // 0x124a @0x1f
0x122b…1270 at0020 = ╱6e╱n╱ // 0x124b @0x20
0x122b…1270 at0021 = ╱64╱d╱ // 0x124c @0x21
0x122b…1270 at0022 = ╱73╱s╱ // 0x124d @0x22
0x122b…1270 at0023 = ╱7b╱æ╱ // 0x124e @0x23
0x122b…1270 at0024 = ╱74╱t╱ // 0x124f @0x24
0x122b…1270 at0025 = ╱20╱…╱ // 0x1250 @0x25
0x122b…1270 at0026 = ╱64╱d╱ // 0x1251 @0x26
0x122b…1270 at0027 = ╱69╱i╱ // 0x1252 @0x27
0x122b…1270 at0028 = ╱73╱s╱ // 0x1253 @0x28
0x122b…1270 at0029 = ╱6b╱k╱ // 0x1254 @0x29
0x122b…1270 at002a = ╱65╱e╱ // 0x1255 @0x2a
0x122b…1270 at002b = ╱74╱t╱ // 0x1256 @0x2b
0x122b…1270 at002c = ╱74╱t╱ // 0x1257 @0x2c
0x122b…1270 at002d = ╱65╱e╱ // 0x1258 @0x2d
0x122b…1270 at002e = ╱20╱…╱ // 0x1259 @0x2e
0x122b…1270 at002f = ╱6f╱o╱ // 0x125a @0x2f
0x122b…1270 at0030 = ╱67╱g╱ // 0x125b @0x30
0x122b…1270 at0031 = ╱20╱…╱ // 0x125c @0x31
0x122b…1270 at0032 = ╱74╱t╱ // 0x125d @0x32
0x122b…1270 at0033 = ╱72╱r╱ // 0x125e @0x33
0x122b…1270 at0034 = ╱79╱y╱ // 0x125f @0x34
0x122b…1270 at0035 = ╱6b╱k╱ // 0x1260 @0x35
0x122b…1270 at0036 = ╱20╱…╱ // 0x1261 @0x36
0x122b…1270 at0037 = ╱3c╱<╱ // 0x1262 @0x37
0x122b…1270 at0038 = ╱52╱R╱ // 0x1263 @0x38
0x122b…1270 at0039 = ╱45╱E╱ // 0x1264 @0x39
0x122b…1270 at003a = ╱54╱T╱ // 0x1265 @0x3a
0x122b…1270 at003b = ╱55╱U╱ // 0x1266 @0x3b
0x122b…1270 at003c = ╱52╱R╱ // 0x1267 @0x3c
0x122b…1270 at003d = ╱4e╱N╱ // 0x1268 @0x3d
0x122b…1270 at003e = ╱3e╱>╱ // 0x1269 @0x3e
0x122b…1270 at003f = ╱20╱…╱ // 0x126a @0x3f
0x122b…1270 at0040 = ╱2a╱*╱ // 0x126b @0x40
0x122b…1270 at0041 = ╱2a╱*╱ // 0x126c @0x41
0x122b…1270 at0042 = ╱2a╱*╱ // 0x126d @0x42
0x122b…1270 at0043 = ╱22╱"╱ // 0x126e @0x43
0x122b…1270 at0044 = EOL // 0x126f @0x44
0x122b…1270 }
0x1270…127e a86c 1690 INPUT "" : SVAR$
0x1270…127e LineComal80 {
0x1270…127e ptr = 0xa86c // 0x1270 @0x0
0x1270…127e lno = 0x069a // 0x1272 @0x2
0x1270…127e at0004 = ╱91╱ INPUT ╱ // 0x1274 @0x4
0x1270…127e at0005 = ╱22╱"╱ // 0x1275 @0x5
0x1270…127e at0006 = ╱22╱"╱ // 0x1276 @0x6
0x1270…127e at0007 = ╱f1╱ : ╱ // 0x1277 @0x7
0x1270…127e at0008 = ╱53╱S╱ // 0x1278 @0x8
0x1270…127e at0009 = ╱56╱V╱ // 0x1279 @0x9
0x1270…127e at000a = ╱41╱A╱ // 0x127a @0xa
0x1270…127e at000b = ╱52╱R╱ // 0x127b @0xb
0x1270…127e at000c = ╱ef╱$╱ // 0x127c @0xc
0x1270…127e at000d = EOL // 0x127d @0xd
0x1270…127e }
0x127e…1285 a873 1700 ELSE
0x127e…1285 LineComal80 {
0x127e…1285 ptr = 0xa873 // 0x127e @0x0
0x127e…1285 lno = 0x06a4 // 0x1280 @0x2
0x127e…1285 at0004 = ╱9a19╱ ELSE ╱ // 0x1282 @0x4
0x127e…1285 at0006 = EOL // 0x1284 @0x6
0x127e…1285 }
0x1285…12c6 a8b4 1710 PRINT "<SC1802>*** Fejl nr. " ; CHR$ ( ╱cd╱ (FNAVN$),2) ; " ved åbning af "
0x1285…12c6 LineComal80 {
0x1285…12c6 ptr = 0xa8b4 // 0x1285 @0x0
0x1285…12c6 lno = 0x06ae // 0x1287 @0x2
0x1285…12c6 at0004 = ╱92╱ PRINT ╱ // 0x1289 @0x4
0x1285…12c6 at0005 = ╱22╱"╱ // 0x128a @0x5
0x1285…12c6 at0006 = ╱3c╱<╱ // 0x128b @0x6
0x1285…12c6 at0007 = ╱53╱S╱ // 0x128c @0x7
0x1285…12c6 at0008 = ╱43╱C╱ // 0x128d @0x8
0x1285…12c6 at0009 = ╱31╱1╱ // 0x128e @0x9
0x1285…12c6 at000a = ╱38╱8╱ // 0x128f @0xa
0x1285…12c6 at000b = ╱30╱0╱ // 0x1290 @0xb
0x1285…12c6 at000c = ╱32╱2╱ // 0x1291 @0xc
0x1285…12c6 at000d = ╱3e╱>╱ // 0x1292 @0xd
0x1285…12c6 at000e = ╱2a╱*╱ // 0x1293 @0xe
0x1285…12c6 at000f = ╱2a╱*╱ // 0x1294 @0xf
0x1285…12c6 at0010 = ╱2a╱*╱ // 0x1295 @0x10
0x1285…12c6 at0011 = ╱20╱…╱ // 0x1296 @0x11
0x1285…12c6 at0012 = ╱46╱F╱ // 0x1297 @0x12
0x1285…12c6 at0013 = ╱65╱e╱ // 0x1298 @0x13
0x1285…12c6 at0014 = ╱6a╱j╱ // 0x1299 @0x14
0x1285…12c6 at0015 = ╱6c╱l╱ // 0x129a @0x15
0x1285…12c6 at0016 = ╱20╱…╱ // 0x129b @0x16
0x1285…12c6 at0017 = ╱6e╱n╱ // 0x129c @0x17
0x1285…12c6 at0018 = ╱72╱r╱ // 0x129d @0x18
0x1285…12c6 at0019 = ╱2e╱.╱ // 0x129e @0x19
0x1285…12c6 at001a = ╱20╱…╱ // 0x129f @0x1a
0x1285…12c6 at001b = ╱22╱"╱ // 0x12a0 @0x1b
0x1285…12c6 at001c = ╱ea╱ ; ╱ // 0x12a1 @0x1c
0x1285…12c6 at001d = ╱d0╱ CHR$ ╱ // 0x12a2 @0x1d
0x1285…12c6 at001e = ╱ed╱(╱ // 0x12a3 @0x1e
0x1285…12c6 at001f = ╱cd╱ // 0x12a4 @0x1f
0x1285…12c6 at0020 = ╱ed╱(╱ // 0x12a5 @0x20
0x1285…12c6 at0021 = ╱46╱F╱ // 0x12a6 @0x21
0x1285…12c6 at0022 = ╱4e╱N╱ // 0x12a7 @0x22
0x1285…12c6 at0023 = ╱41╱A╱ // 0x12a8 @0x23
0x1285…12c6 at0024 = ╱56╱V╱ // 0x12a9 @0x24
0x1285…12c6 at0025 = ╱4e╱N╱ // 0x12aa @0x25
0x1285…12c6 at0026 = ╱ef╱$╱ // 0x12ab @0x26
0x1285…12c6 at0027 = ╱ee╱)╱ // 0x12ac @0x27
0x1285…12c6 at0028 = ╱ec╱,╱ // 0x12ad @0x28
0x1285…12c6 at0029 = ╱32╱2╱ // 0x12ae @0x29
0x1285…12c6 at002a = ╱f20200╱ // 0x12af @0x2a
0x1285…12c6 at002d = ╱ee╱)╱ // 0x12b2 @0x2d
0x1285…12c6 at002e = ╱ea╱ ; ╱ // 0x12b3 @0x2e
0x1285…12c6 at002f = ╱22╱"╱ // 0x12b4 @0x2f
0x1285…12c6 at0030 = ╱20╱…╱ // 0x12b5 @0x30
0x1285…12c6 at0031 = ╱76╱v╱ // 0x12b6 @0x31
0x1285…12c6 at0032 = ╱65╱e╱ // 0x12b7 @0x32
0x1285…12c6 at0033 = ╱64╱d╱ // 0x12b8 @0x33
0x1285…12c6 at0034 = ╱20╱…╱ // 0x12b9 @0x34
0x1285…12c6 at0035 = ╱7d╱å╱ // 0x12ba @0x35
0x1285…12c6 at0036 = ╱62╱b╱ // 0x12bb @0x36
0x1285…12c6 at0037 = ╱6e╱n╱ // 0x12bc @0x37
0x1285…12c6 at0038 = ╱69╱i╱ // 0x12bd @0x38
0x1285…12c6 at0039 = ╱6e╱n╱ // 0x12be @0x39
0x1285…12c6 at003a = ╱67╱g╱ // 0x12bf @0x3a
0x1285…12c6 at003b = ╱20╱…╱ // 0x12c0 @0x3b
0x1285…12c6 at003c = ╱61╱a╱ // 0x12c1 @0x3c
0x1285…12c6 at003d = ╱66╱f╱ // 0x12c2 @0x3d
0x1285…12c6 at003e = ╱20╱…╱ // 0x12c3 @0x3e
0x1285…12c6 at003f = ╱22╱"╱ // 0x12c4 @0x3f
0x1285…12c6 at0040 = EOL // 0x12c5 @0x40
0x1285…12c6 }
0x12c6…12df a8cd 1720 PRINT "<S>" ; FNAVN$ ; " ***"
0x12c6…12df LineComal80 {
0x12c6…12df ptr = 0xa8cd // 0x12c6 @0x0
0x12c6…12df lno = 0x06b8 // 0x12c8 @0x2
0x12c6…12df at0004 = ╱92╱ PRINT ╱ // 0x12ca @0x4
0x12c6…12df at0005 = ╱22╱"╱ // 0x12cb @0x5
0x12c6…12df at0006 = ╱3c╱<╱ // 0x12cc @0x6
0x12c6…12df at0007 = ╱53╱S╱ // 0x12cd @0x7
0x12c6…12df at0008 = ╱3e╱>╱ // 0x12ce @0x8
0x12c6…12df at0009 = ╱22╱"╱ // 0x12cf @0x9
0x12c6…12df at000a = ╱ea╱ ; ╱ // 0x12d0 @0xa
0x12c6…12df at000b = ╱46╱F╱ // 0x12d1 @0xb
0x12c6…12df at000c = ╱4e╱N╱ // 0x12d2 @0xc
0x12c6…12df at000d = ╱41╱A╱ // 0x12d3 @0xd
0x12c6…12df at000e = ╱56╱V╱ // 0x12d4 @0xe
0x12c6…12df at000f = ╱4e╱N╱ // 0x12d5 @0xf
0x12c6…12df at0010 = ╱ef╱$╱ // 0x12d6 @0x10
0x12c6…12df at0011 = ╱ea╱ ; ╱ // 0x12d7 @0x11
0x12c6…12df at0012 = ╱22╱"╱ // 0x12d8 @0x12
0x12c6…12df at0013 = ╱20╱…╱ // 0x12d9 @0x13
0x12c6…12df at0014 = ╱2a╱*╱ // 0x12da @0x14
0x12c6…12df at0015 = ╱2a╱*╱ // 0x12db @0x15
0x12c6…12df at0016 = ╱2a╱*╱ // 0x12dc @0x16
0x12c6…12df at0017 = ╱22╱"╱ // 0x12dd @0x17
0x12c6…12df at0018 = EOL // 0x12de @0x18
0x12c6…12df }
0x12df…12ed a8db 1730 INPUT "" : SVAR$
0x12df…12ed LineComal80 {
0x12df…12ed ptr = 0xa8db // 0x12df @0x0
0x12df…12ed lno = 0x06c2 // 0x12e1 @0x2
0x12df…12ed at0004 = ╱91╱ INPUT ╱ // 0x12e3 @0x4
0x12df…12ed at0005 = ╱22╱"╱ // 0x12e4 @0x5
0x12df…12ed at0006 = ╱22╱"╱ // 0x12e5 @0x6
0x12df…12ed at0007 = ╱f1╱ : ╱ // 0x12e6 @0x7
0x12df…12ed at0008 = ╱53╱S╱ // 0x12e7 @0x8
0x12df…12ed at0009 = ╱56╱V╱ // 0x12e8 @0x9
0x12df…12ed at000a = ╱41╱A╱ // 0x12e9 @0xa
0x12df…12ed at000b = ╱52╱R╱ // 0x12ea @0xb
0x12df…12ed at000c = ╱ef╱$╱ // 0x12eb @0xc
0x12df…12ed at000d = EOL // 0x12ec @0xd
0x12df…12ed }
0x12ed…1301 a8ef 1740 PRINT "<C0102>" ; SPC$
0x12ed…1301 LineComal80 {
0x12ed…1301 ptr = 0xa8ef // 0x12ed @0x0
0x12ed…1301 lno = 0x06cc // 0x12ef @0x2
0x12ed…1301 at0004 = ╱92╱ PRINT ╱ // 0x12f1 @0x4
0x12ed…1301 at0005 = ╱22╱"╱ // 0x12f2 @0x5
0x12ed…1301 at0006 = ╱3c╱<╱ // 0x12f3 @0x6
0x12ed…1301 at0007 = ╱43╱C╱ // 0x12f4 @0x7
0x12ed…1301 at0008 = ╱30╱0╱ // 0x12f5 @0x8
0x12ed…1301 at0009 = ╱31╱1╱ // 0x12f6 @0x9
0x12ed…1301 at000a = ╱30╱0╱ // 0x12f7 @0xa
0x12ed…1301 at000b = ╱32╱2╱ // 0x12f8 @0xb
0x12ed…1301 at000c = ╱3e╱>╱ // 0x12f9 @0xc
0x12ed…1301 at000d = ╱22╱"╱ // 0x12fa @0xd
0x12ed…1301 at000e = ╱ea╱ ; ╱ // 0x12fb @0xe
0x12ed…1301 at000f = ╱53╱S╱ // 0x12fc @0xf
0x12ed…1301 at0010 = ╱50╱P╱ // 0x12fd @0x10
0x12ed…1301 at0011 = ╱43╱C╱ // 0x12fe @0x11
0x12ed…1301 at0012 = ╱ef╱$╱ // 0x12ff @0x12
0x12ed…1301 at0013 = EOL // 0x1300 @0x13
0x12ed…1301 }
0x1301…1307 a8f5 1750 ENDIF
0x1301…1307 LineComal80 {
0x1301…1307 ptr = 0xa8f5 // 0x1301 @0x0
0x1301…1307 lno = 0x06d6 // 0x1303 @0x2
0x1301…1307 at0004 = ╱9c╱ ENDIF ╱ // 0x1305 @0x4
0x1301…1307 at0005 = EOL // 0x1306 @0x5
0x1301…1307 }
0x1307…130d a8fb 1760 ENDIF
0x1307…130d LineComal80 {
0x1307…130d ptr = 0xa8fb // 0x1307 @0x0
0x1307…130d lno = 0x06e0 // 0x1309 @0x2
0x1307…130d at0004 = ╱9c╱ ENDIF ╱ // 0x130b @0x4
0x1307…130d at0005 = EOL // 0x130c @0x5
0x1307…130d }
0x130d…131d a90b 1770 UNTIL NOT ╱cd╱ (FNAVN$)
0x130d…131d LineComal80 {
0x130d…131d ptr = 0xa90b // 0x130d @0x0
0x130d…131d lno = 0x06ea // 0x130f @0x2
0x130d…131d at0004 = ╱98╱ UNTIL ╱ // 0x1311 @0x4
0x130d…131d at0005 = ╱d7╱ NOT ╱ // 0x1312 @0x5
0x130d…131d at0006 = ╱cd╱ // 0x1313 @0x6
0x130d…131d at0007 = ╱ed╱(╱ // 0x1314 @0x7
0x130d…131d at0008 = ╱46╱F╱ // 0x1315 @0x8
0x130d…131d at0009 = ╱4e╱N╱ // 0x1316 @0x9
0x130d…131d at000a = ╱41╱A╱ // 0x1317 @0xa
0x130d…131d at000b = ╱56╱V╱ // 0x1318 @0xb
0x130d…131d at000c = ╱4e╱N╱ // 0x1319 @0xc
0x130d…131d at000d = ╱ef╱$╱ // 0x131a @0xd
0x130d…131d at000e = ╱ee╱)╱ // 0x131b @0xe
0x130d…131d at000f = EOL // 0x131c @0xf
0x130d…131d }
0x131d…132a a918 1780 ENDPROC OPENFIL
0x131d…132a LineComal80 {
0x131d…132a ptr = 0xa918 // 0x131d @0x0
0x131d…132a lno = 0x06f4 // 0x131f @0x2
0x131d…132a at0004 = ╱9f╱ ENDPROC ╱ // 0x1321 @0x4
0x131d…132a at0005 = ╱4f╱O╱ // 0x1322 @0x5
0x131d…132a at0006 = ╱50╱P╱ // 0x1323 @0x6
0x131d…132a at0007 = ╱45╱E╱ // 0x1324 @0x7
0x131d…132a at0008 = ╱4e╱N╱ // 0x1325 @0x8
0x131d…132a at0009 = ╱46╱F╱ // 0x1326 @0x9
0x131d…132a at000a = ╱49╱I╱ // 0x1327 @0xa
0x131d…132a at000b = ╱4c╱L╱ // 0x1328 @0xb
0x131d…132a at000c = EOL // 0x1329 @0xc
0x131d…132a }
0x132a…132f a91d 1790
0x132a…132f LineComal80 {
0x132a…132f ptr = 0xa91d // 0x132a @0x0
0x132a…132f lno = 0x06fe // 0x132c @0x2
0x132a…132f at0004 = EOL // 0x132e @0x4
0x132a…132f }
0x132f…1348 a936 1800 PROC TAL_CONTROL( REF RST$)
0x132f…1348 LineComal80 {
0x132f…1348 ptr = 0xa936 // 0x132f @0x0
0x132f…1348 lno = 0x0708 // 0x1331 @0x2
0x132f…1348 at0004 = ╱9e1a╱ PROC ╱ // 0x1333 @0x4
0x132f…1348 at0006 = ╱54╱T╱ // 0x1335 @0x6
0x132f…1348 at0007 = ╱41╱A╱ // 0x1336 @0x7
0x132f…1348 at0008 = ╱4c╱L╱ // 0x1337 @0x8
0x132f…1348 at0009 = ╱5f╱_╱ // 0x1338 @0x9
0x132f…1348 at000a = ╱43╱C╱ // 0x1339 @0xa
0x132f…1348 at000b = ╱4f╱O╱ // 0x133a @0xb
0x132f…1348 at000c = ╱4e╱N╱ // 0x133b @0xc
0x132f…1348 at000d = ╱54╱T╱ // 0x133c @0xd
0x132f…1348 at000e = ╱52╱R╱ // 0x133d @0xe
0x132f…1348 at000f = ╱4f╱O╱ // 0x133e @0xf
0x132f…1348 at0010 = ╱4c╱L╱ // 0x133f @0x10
0x132f…1348 at0011 = ╱ed╱(╱ // 0x1340 @0x11
0x132f…1348 at0012 = ╱b6╱ REF ╱ // 0x1341 @0x12
0x132f…1348 at0013 = ╱52╱R╱ // 0x1342 @0x13
0x132f…1348 at0014 = ╱53╱S╱ // 0x1343 @0x14
0x132f…1348 at0015 = ╱54╱T╱ // 0x1344 @0x15
0x132f…1348 at0016 = ╱ef╱$╱ // 0x1345 @0x16
0x132f…1348 at0017 = ╱ee╱)╱ // 0x1346 @0x17
0x132f…1348 at0018 = EOL // 0x1347 @0x18
0x132f…1348 }
0x1348…135c a94a 1810 LET J := 0 ; OK := TRUE
0x1348…135c LineComal80 {
0x1348…135c ptr = 0xa94a // 0x1348 @0x0
0x1348…135c lno = 0x0712 // 0x134a @0x2
0x1348…135c at0004 = ╱86╱ LET ╱ // 0x134c @0x4
0x1348…135c at0005 = ╱4a╱J╱ // 0x134d @0x5
0x1348…135c at0006 = ╱f0╱ := ╱ // 0x134e @0x6
0x1348…135c at0007 = ╱30╱0╱ // 0x134f @0x7
0x1348…135c at0008 = ╱f20000╱ // 0x1350 @0x8
0x1348…135c at000b = ╱ea╱ ; ╱ // 0x1353 @0xb
0x1348…135c at000c = ╱4f╱O╱ // 0x1354 @0xc
0x1348…135c at000d = ╱4b╱K╱ // 0x1355 @0xd
0x1348…135c at000e = ╱f0╱ := ╱ // 0x1356 @0xe
0x1348…135c at000f = ╱54╱T╱ // 0x1357 @0xf
0x1348…135c at0010 = ╱52╱R╱ // 0x1358 @0x10
0x1348…135c at0011 = ╱55╱U╱ // 0x1359 @0x11
0x1348…135c at0012 = ╱45╱E╱ // 0x135a @0x12
0x1348…135c at0013 = EOL // 0x135b @0x13
0x1348…135c }
0x135c…1372 a960 1820 FOR I := 1 TO (RST$) DO
0x135c…1372 LineComal80 {
0x135c…1372 ptr = 0xa960 // 0x135c @0x0
0x135c…1372 lno = 0x071c // 0x135e @0x2
0x135c…1372 at0004 = ╱831b╱ FOR ╱ // 0x1360 @0x4
0x135c…1372 at0006 = ╱49╱I╱ // 0x1362 @0x6
0x135c…1372 at0007 = ╱f0╱ := ╱ // 0x1363 @0x7
0x135c…1372 at0008 = ╱31╱1╱ // 0x1364 @0x8
0x135c…1372 at0009 = ╱f20100╱ // 0x1365 @0x9
0x135c…1372 at000c = ╱b7cb╱ TO ╱ // 0x1368 @0xc
0x135c…1372 at000e = ╱ed╱(╱ // 0x136a @0xe
0x135c…1372 at000f = ╱52╱R╱ // 0x136b @0xf
0x135c…1372 at0010 = ╱53╱S╱ // 0x136c @0x10
0x135c…1372 at0011 = ╱54╱T╱ // 0x136d @0x11
0x135c…1372 at0012 = ╱ef╱$╱ // 0x136e @0x12
0x135c…1372 at0013 = ╱ee╱)╱ // 0x136f @0x13
0x135c…1372 at0014 = ╱bb╱ DO ╱ // 0x1370 @0x14
0x135c…1372 at0015 = EOL // 0x1371 @0x15
0x135c…1372 }
0x1372…13a3 a991 1830 IF RST$(I) IN TAL$ + "." THEN LET J := J + 1 ; RST$(J) := RST$(I)
0x1372…13a3 LineComal80 {
0x1372…13a3 ptr = 0xa991 // 0x1372 @0x0
0x1372…13a3 lno = 0x0726 // 0x1374 @0x2
0x1372…13a3 at0004 = ╱8200╱ IF ╱ // 0x1376 @0x4
0x1372…13a3 at0006 = ╱52╱R╱ // 0x1378 @0x6
0x1372…13a3 at0007 = ╱53╱S╱ // 0x1379 @0x7
0x1372…13a3 at0008 = ╱54╱T╱ // 0x137a @0x8
0x1372…13a3 at0009 = ╱ef╱$╱ // 0x137b @0x9
0x1372…13a3 at000a = ╱ed╱(╱ // 0x137c @0xa
0x1372…13a3 at000b = ╱49╱I╱ // 0x137d @0xb
0x1372…13a3 at000c = ╱ee╱)╱ // 0x137e @0xc
0x1372…13a3 at000d = ╱dc╱ IN ╱ // 0x137f @0xd
0x1372…13a3 at000e = ╱54╱T╱ // 0x1380 @0xe
0x1372…13a3 at000f = ╱41╱A╱ // 0x1381 @0xf
0x1372…13a3 at0010 = ╱4c╱L╱ // 0x1382 @0x10
0x1372…13a3 at0011 = ╱ef╱$╱ // 0x1383 @0x11
0x1372…13a3 at0012 = ╱eb╱ + ╱ // 0x1384 @0x12
0x1372…13a3 at0013 = ╱22╱"╱ // 0x1385 @0x13
0x1372…13a3 at0014 = ╱2e╱.╱ // 0x1386 @0x14
0x1372…13a3 at0015 = ╱22╱"╱ // 0x1387 @0x15
0x1372…13a3 at0016 = ╱b5╱ THEN ╱ // 0x1388 @0x16
0x1372…13a3 at0017 = ╱86╱ LET ╱ // 0x1389 @0x17
0x1372…13a3 at0018 = ╱4a╱J╱ // 0x138a @0x18
0x1372…13a3 at0019 = ╱f0╱ := ╱ // 0x138b @0x19
0x1372…13a3 at001a = ╱4a╱J╱ // 0x138c @0x1a
0x1372…13a3 at001b = ╱e5╱ + ╱ // 0x138d @0x1b
0x1372…13a3 at001c = ╱31╱1╱ // 0x138e @0x1c
0x1372…13a3 at001d = ╱f20100╱ // 0x138f @0x1d
0x1372…13a3 at0020 = ╱ea╱ ; ╱ // 0x1392 @0x20
0x1372…13a3 at0021 = ╱52╱R╱ // 0x1393 @0x21
0x1372…13a3 at0022 = ╱53╱S╱ // 0x1394 @0x22
0x1372…13a3 at0023 = ╱54╱T╱ // 0x1395 @0x23
0x1372…13a3 at0024 = ╱ef╱$╱ // 0x1396 @0x24
0x1372…13a3 at0025 = ╱ed╱(╱ // 0x1397 @0x25
0x1372…13a3 at0026 = ╱4a╱J╱ // 0x1398 @0x26
0x1372…13a3 at0027 = ╱ee╱)╱ // 0x1399 @0x27
0x1372…13a3 at0028 = ╱f0╱ := ╱ // 0x139a @0x28
0x1372…13a3 at0029 = ╱52╱R╱ // 0x139b @0x29
0x1372…13a3 at002a = ╱53╱S╱ // 0x139c @0x2a
0x1372…13a3 at002b = ╱54╱T╱ // 0x139d @0x2b
0x1372…13a3 at002c = ╱ef╱$╱ // 0x139e @0x2c
0x1372…13a3 at002d = ╱ed╱(╱ // 0x139f @0x2d
0x1372…13a3 at002e = ╱49╱I╱ // 0x13a0 @0x2e
0x1372…13a3 at002f = ╱ee╱)╱ // 0x13a1 @0x2f
0x1372…13a3 at0030 = EOL // 0x13a2 @0x30
0x1372…13a3 }
0x13a3…13aa a998 1840 NEXT I
0x13a3…13aa LineComal80 {
0x13a3…13aa ptr = 0xa998 // 0x13a3 @0x0
0x13a3…13aa lno = 0x0730 // 0x13a5 @0x2
0x13a3…13aa at0004 = ╱84╱ NEXT ╱ // 0x13a7 @0x4
0x13a3…13aa at0005 = ╱49╱I╱ // 0x13a8 @0x5
0x13a3…13aa at0006 = EOL // 0x13a9 @0x6
0x13a3…13aa }
0x13aa…13b8 a9a6 1850 IF = 0 THEN
0x13aa…13b8 LineComal80 {
0x13aa…13b8 ptr = 0xa9a6 // 0x13aa @0x0
0x13aa…13b8 lno = 0x073a // 0x13ac @0x2
0x13aa…13b8 at0004 = ╱9b1c4a╱ IF ╱ // 0x13ae @0x4
0x13aa…13b8 at0007 = ╱df╱ = ╱ // 0x13b1 @0x7
0x13aa…13b8 at0008 = ╱30╱0╱ // 0x13b2 @0x8
0x13aa…13b8 at0009 = ╱f20000╱ // 0x13b3 @0x9
0x13aa…13b8 at000c = ╱b5╱ THEN ╱ // 0x13b6 @0xc
0x13aa…13b8 at000d = EOL // 0x13b7 @0xd
0x13aa…13b8 }
0x13b8…13c6 a9b4 1860 LET OK := FALSE
0x13b8…13c6 LineComal80 {
0x13b8…13c6 ptr = 0xa9b4 // 0x13b8 @0x0
0x13b8…13c6 lno = 0x0744 // 0x13ba @0x2
0x13b8…13c6 at0004 = ╱86╱ LET ╱ // 0x13bc @0x4
0x13b8…13c6 at0005 = ╱4f╱O╱ // 0x13bd @0x5
0x13b8…13c6 at0006 = ╱4b╱K╱ // 0x13be @0x6
0x13b8…13c6 at0007 = ╱f0╱ := ╱ // 0x13bf @0x7
0x13b8…13c6 at0008 = ╱46╱F╱ // 0x13c0 @0x8
0x13b8…13c6 at0009 = ╱41╱A╱ // 0x13c1 @0x9
0x13b8…13c6 at000a = ╱4c╱L╱ // 0x13c2 @0xa
0x13b8…13c6 at000b = ╱53╱S╱ // 0x13c3 @0xb
0x13b8…13c6 at000c = ╱45╱E╱ // 0x13c4 @0xc
0x13b8…13c6 at000d = EOL // 0x13c5 @0xd
0x13b8…13c6 }
0x13c6…13cd a9bb 1870 ELSE
0x13c6…13cd LineComal80 {
0x13c6…13cd ptr = 0xa9bb // 0x13c6 @0x0
0x13c6…13cd lno = 0x074e // 0x13c8 @0x2
0x13c6…13cd at0004 = ╱9a1d╱ ELSE ╱ // 0x13ca @0x4
0x13c6…13cd at0006 = EOL // 0x13cc @0x6
0x13c6…13cd }
0x13cd…13e4 a9d2 1880 LET RST$ := RST$(1 : J)
0x13cd…13e4 LineComal80 {
0x13cd…13e4 ptr = 0xa9d2 // 0x13cd @0x0
0x13cd…13e4 lno = 0x0758 // 0x13cf @0x2
0x13cd…13e4 at0004 = ╱86╱ LET ╱ // 0x13d1 @0x4
0x13cd…13e4 at0005 = ╱52╱R╱ // 0x13d2 @0x5
0x13cd…13e4 at0006 = ╱53╱S╱ // 0x13d3 @0x6
0x13cd…13e4 at0007 = ╱54╱T╱ // 0x13d4 @0x7
0x13cd…13e4 at0008 = ╱ef╱$╱ // 0x13d5 @0x8
0x13cd…13e4 at0009 = ╱f0╱ := ╱ // 0x13d6 @0x9
0x13cd…13e4 at000a = ╱52╱R╱ // 0x13d7 @0xa
0x13cd…13e4 at000b = ╱53╱S╱ // 0x13d8 @0xb
0x13cd…13e4 at000c = ╱54╱T╱ // 0x13d9 @0xc
0x13cd…13e4 at000d = ╱ef╱$╱ // 0x13da @0xd
0x13cd…13e4 at000e = ╱ed╱(╱ // 0x13db @0xe
0x13cd…13e4 at000f = ╱31╱1╱ // 0x13dc @0xf
0x13cd…13e4 at0010 = ╱f20100╱ // 0x13dd @0x10
0x13cd…13e4 at0013 = ╱f1╱ : ╱ // 0x13e0 @0x13
0x13cd…13e4 at0014 = ╱4a╱J╱ // 0x13e1 @0x14
0x13cd…13e4 at0015 = ╱ee╱)╱ // 0x13e2 @0x15
0x13cd…13e4 at0016 = EOL // 0x13e3 @0x16
0x13cd…13e4 }
0x13e4…13ea a9d8 1890 ENDIF
0x13e4…13ea LineComal80 {
0x13e4…13ea ptr = 0xa9d8 // 0x13e4 @0x0
0x13e4…13ea lno = 0x0762 // 0x13e6 @0x2
0x13e4…13ea at0004 = ╱9c╱ ENDIF ╱ // 0x13e8 @0x4
0x13e4…13ea at0005 = EOL // 0x13e9 @0x5
0x13e4…13ea }
0x13ea…13fb a9e9 1900 ENDPROC TAL_CONTROL
0x13ea…13fb LineComal80 {
0x13ea…13fb ptr = 0xa9e9 // 0x13ea @0x0
0x13ea…13fb lno = 0x076c // 0x13ec @0x2
0x13ea…13fb at0004 = ╱9f╱ ENDPROC ╱ // 0x13ee @0x4
0x13ea…13fb at0005 = ╱54╱T╱ // 0x13ef @0x5
0x13ea…13fb at0006 = ╱41╱A╱ // 0x13f0 @0x6
0x13ea…13fb at0007 = ╱4c╱L╱ // 0x13f1 @0x7
0x13ea…13fb at0008 = ╱5f╱_╱ // 0x13f2 @0x8
0x13ea…13fb at0009 = ╱43╱C╱ // 0x13f3 @0x9
0x13ea…13fb at000a = ╱4f╱O╱ // 0x13f4 @0xa
0x13ea…13fb at000b = ╱4e╱N╱ // 0x13f5 @0xb
0x13ea…13fb at000c = ╱54╱T╱ // 0x13f6 @0xc
0x13ea…13fb at000d = ╱52╱R╱ // 0x13f7 @0xd
0x13ea…13fb at000e = ╱4f╱O╱ // 0x13f8 @0xe
0x13ea…13fb at000f = ╱4c╱L╱ // 0x13f9 @0xf
0x13ea…13fb at0010 = EOL // 0x13fa @0x10
0x13ea…13fb }
0x13fb…1400 a9ee 1910
0x13fb…1400 LineComal80 {
0x13fb…1400 ptr = 0xa9ee // 0x13fb @0x0
0x13fb…1400 lno = 0x0776 // 0x13fd @0x2
0x13fb…1400 at0004 = EOL // 0x13ff @0x4
0x13fb…1400 }
0x1400…1413 aa01 1920 PROC DIV_POSHOVED
0x1400…1413 LineComal80 {
0x1400…1413 ptr = 0xaa01 // 0x1400 @0x0
0x1400…1413 lno = 0x0780 // 0x1402 @0x2
0x1400…1413 at0004 = ╱9e1e╱ PROC ╱ // 0x1404 @0x4
0x1400…1413 at0006 = ╱44╱D╱ // 0x1406 @0x6
0x1400…1413 at0007 = ╱49╱I╱ // 0x1407 @0x7
0x1400…1413 at0008 = ╱56╱V╱ // 0x1408 @0x8
0x1400…1413 at0009 = ╱5f╱_╱ // 0x1409 @0x9
0x1400…1413 at000a = ╱50╱P╱ // 0x140a @0xa
0x1400…1413 at000b = ╱4f╱O╱ // 0x140b @0xb
0x1400…1413 at000c = ╱53╱S╱ // 0x140c @0xc
0x1400…1413 at000d = ╱48╱H╱ // 0x140d @0xd
0x1400…1413 at000e = ╱4f╱O╱ // 0x140e @0xe
0x1400…1413 at000f = ╱56╱V╱ // 0x140f @0xf
0x1400…1413 at0010 = ╱45╱E╱ // 0x1410 @0x10
0x1400…1413 at0011 = ╱44╱D╱ // 0x1411 @0x11
0x1400…1413 at0012 = EOL // 0x1412 @0x12
0x1400…1413 }
0x1413…144e cede 1930 EXEC OVERSKRIFT("INDTASTNING AF DIVERSE POSTERINGER",4)
0x1413…144e LineComal80 {
0x1413…144e ptr = 0xcede // 0x1413 @0x0
0x1413…144e lno = 0x078a // 0x1415 @0x2
0x1413…144e at0004 = ╱9d╱ EXEC ╱ // 0x1417 @0x4
0x1413…144e at0005 = ╱4f╱O╱ // 0x1418 @0x5
0x1413…144e at0006 = ╱56╱V╱ // 0x1419 @0x6
0x1413…144e at0007 = ╱45╱E╱ // 0x141a @0x7
0x1413…144e at0008 = ╱52╱R╱ // 0x141b @0x8
0x1413…144e at0009 = ╱53╱S╱ // 0x141c @0x9
0x1413…144e at000a = ╱4b╱K╱ // 0x141d @0xa
0x1413…144e at000b = ╱52╱R╱ // 0x141e @0xb
0x1413…144e at000c = ╱49╱I╱ // 0x141f @0xc
0x1413…144e at000d = ╱46╱F╱ // 0x1420 @0xd
0x1413…144e at000e = ╱54╱T╱ // 0x1421 @0xe
0x1413…144e at000f = ╱ed╱(╱ // 0x1422 @0xf
0x1413…144e at0010 = ╱22╱"╱ // 0x1423 @0x10
0x1413…144e at0011 = ╱49╱I╱ // 0x1424 @0x11
0x1413…144e at0012 = ╱4e╱N╱ // 0x1425 @0x12
0x1413…144e at0013 = ╱44╱D╱ // 0x1426 @0x13
0x1413…144e at0014 = ╱54╱T╱ // 0x1427 @0x14
0x1413…144e at0015 = ╱41╱A╱ // 0x1428 @0x15
0x1413…144e at0016 = ╱53╱S╱ // 0x1429 @0x16
0x1413…144e at0017 = ╱54╱T╱ // 0x142a @0x17
0x1413…144e at0018 = ╱4e╱N╱ // 0x142b @0x18
0x1413…144e at0019 = ╱49╱I╱ // 0x142c @0x19
0x1413…144e at001a = ╱4e╱N╱ // 0x142d @0x1a
0x1413…144e at001b = ╱47╱G╱ // 0x142e @0x1b
0x1413…144e at001c = ╱20╱…╱ // 0x142f @0x1c
0x1413…144e at001d = ╱41╱A╱ // 0x1430 @0x1d
0x1413…144e at001e = ╱46╱F╱ // 0x1431 @0x1e
0x1413…144e at001f = ╱20╱…╱ // 0x1432 @0x1f
0x1413…144e at0020 = ╱44╱D╱ // 0x1433 @0x20
0x1413…144e at0021 = ╱49╱I╱ // 0x1434 @0x21
0x1413…144e at0022 = ╱56╱V╱ // 0x1435 @0x22
0x1413…144e at0023 = ╱45╱E╱ // 0x1436 @0x23
0x1413…144e at0024 = ╱52╱R╱ // 0x1437 @0x24
0x1413…144e at0025 = ╱53╱S╱ // 0x1438 @0x25
0x1413…144e at0026 = ╱45╱E╱ // 0x1439 @0x26
0x1413…144e at0027 = ╱20╱…╱ // 0x143a @0x27
0x1413…144e at0028 = ╱50╱P╱ // 0x143b @0x28
0x1413…144e at0029 = ╱4f╱O╱ // 0x143c @0x29
0x1413…144e at002a = ╱53╱S╱ // 0x143d @0x2a
0x1413…144e at002b = ╱54╱T╱ // 0x143e @0x2b
0x1413…144e at002c = ╱45╱E╱ // 0x143f @0x2c
0x1413…144e at002d = ╱52╱R╱ // 0x1440 @0x2d
0x1413…144e at002e = ╱49╱I╱ // 0x1441 @0x2e
0x1413…144e at002f = ╱4e╱N╱ // 0x1442 @0x2f
0x1413…144e at0030 = ╱47╱G╱ // 0x1443 @0x30
0x1413…144e at0031 = ╱45╱E╱ // 0x1444 @0x31
0x1413…144e at0032 = ╱52╱R╱ // 0x1445 @0x32
0x1413…144e at0033 = ╱22╱"╱ // 0x1446 @0x33
0x1413…144e at0034 = ╱ec╱,╱ // 0x1447 @0x34
0x1413…144e at0035 = ╱34╱4╱ // 0x1448 @0x35
0x1413…144e at0036 = ╱f20400╱ // 0x1449 @0x36
0x1413…144e at0039 = ╱ee╱)╱ // 0x144c @0x39
0x1413…144e at003a = EOL // 0x144d @0x3a
0x1413…144e }
0x144e…1485 aa73 1940 PRINT "<C0105> BILAG TEKST MOMS KO"
0x144e…1485 LineComal80 {
0x144e…1485 ptr = 0xaa73 // 0x144e @0x0
0x144e…1485 lno = 0x0794 // 0x1450 @0x2
0x144e…1485 at0004 = ╱92╱ PRINT ╱ // 0x1452 @0x4
0x144e…1485 at0005 = ╱22╱"╱ // 0x1453 @0x5
0x144e…1485 at0006 = ╱3c╱<╱ // 0x1454 @0x6
0x144e…1485 at0007 = ╱43╱C╱ // 0x1455 @0x7
0x144e…1485 at0008 = ╱30╱0╱ // 0x1456 @0x8
0x144e…1485 at0009 = ╱31╱1╱ // 0x1457 @0x9
0x144e…1485 at000a = ╱30╱0╱ // 0x1458 @0xa
0x144e…1485 at000b = ╱35╱5╱ // 0x1459 @0xb
0x144e…1485 at000c = ╱3e╱>╱ // 0x145a @0xc
0x144e…1485 at000d = ╱20╱…╱ // 0x145b @0xd
0x144e…1485 at000e = ╱20╱…╱ // 0x145c @0xe
0x144e…1485 at000f = ╱20╱…╱ // 0x145d @0xf
0x144e…1485 at0010 = ╱42╱B╱ // 0x145e @0x10
0x144e…1485 at0011 = ╱49╱I╱ // 0x145f @0x11
0x144e…1485 at0012 = ╱4c╱L╱ // 0x1460 @0x12
0x144e…1485 at0013 = ╱41╱A╱ // 0x1461 @0x13
0x144e…1485 at0014 = ╱47╱G╱ // 0x1462 @0x14
0x144e…1485 at0015 = ╱20╱…╱ // 0x1463 @0x15
0x144e…1485 at0016 = ╱20╱…╱ // 0x1464 @0x16
0x144e…1485 at0017 = ╱54╱T╱ // 0x1465 @0x17
0x144e…1485 at0018 = ╱45╱E╱ // 0x1466 @0x18
0x144e…1485 at0019 = ╱4b╱K╱ // 0x1467 @0x19
0x144e…1485 at001a = ╱53╱S╱ // 0x1468 @0x1a
0x144e…1485 at001b = ╱54╱T╱ // 0x1469 @0x1b
0x144e…1485 at001c = ╱20╱…╱ // 0x146a @0x1c
0x144e…1485 at001d = ╱20╱…╱ // 0x146b @0x1d
0x144e…1485 at001e = ╱20╱…╱ // 0x146c @0x1e
0x144e…1485 at001f = ╱20╱…╱ // 0x146d @0x1f
0x144e…1485 at0020 = ╱20╱…╱ // 0x146e @0x20
0x144e…1485 at0021 = ╱20╱…╱ // 0x146f @0x21
0x144e…1485 at0022 = ╱20╱…╱ // 0x1470 @0x22
0x144e…1485 at0023 = ╱20╱…╱ // 0x1471 @0x23
0x144e…1485 at0024 = ╱20╱…╱ // 0x1472 @0x24
0x144e…1485 at0025 = ╱20╱…╱ // 0x1473 @0x25
0x144e…1485 at0026 = ╱20╱…╱ // 0x1474 @0x26
0x144e…1485 at0027 = ╱20╱…╱ // 0x1475 @0x27
0x144e…1485 at0028 = ╱20╱…╱ // 0x1476 @0x28
0x144e…1485 at0029 = ╱20╱…╱ // 0x1477 @0x29
0x144e…1485 at002a = ╱20╱…╱ // 0x1478 @0x2a
0x144e…1485 at002b = ╱20╱…╱ // 0x1479 @0x2b
0x144e…1485 at002c = ╱20╱…╱ // 0x147a @0x2c
0x144e…1485 at002d = ╱4d╱M╱ // 0x147b @0x2d
0x144e…1485 at002e = ╱4f╱O╱ // 0x147c @0x2e
0x144e…1485 at002f = ╱4d╱M╱ // 0x147d @0x2f
0x144e…1485 at0030 = ╱53╱S╱ // 0x147e @0x30
0x144e…1485 at0031 = ╱20╱…╱ // 0x147f @0x31
0x144e…1485 at0032 = ╱20╱…╱ // 0x1480 @0x32
0x144e…1485 at0033 = ╱4b╱K╱ // 0x1481 @0x33
0x144e…1485 at0034 = ╱4f╱O╱ // 0x1482 @0x34
0x144e…1485 at0035 = ╱22╱"╱ // 0x1483 @0x35
0x144e…1485 at0036 = EOL // 0x1484 @0x36
0x144e…1485 }
0x1485…14bc aaaa 1950 PRINT "<C0106> NR KODE NU"
0x1485…14bc LineComal80 {
0x1485…14bc ptr = 0xaaaa // 0x1485 @0x0
0x1485…14bc lno = 0x079e // 0x1487 @0x2
0x1485…14bc at0004 = ╱92╱ PRINT ╱ // 0x1489 @0x4
0x1485…14bc at0005 = ╱22╱"╱ // 0x148a @0x5
0x1485…14bc at0006 = ╱3c╱<╱ // 0x148b @0x6
0x1485…14bc at0007 = ╱43╱C╱ // 0x148c @0x7
0x1485…14bc at0008 = ╱30╱0╱ // 0x148d @0x8
0x1485…14bc at0009 = ╱31╱1╱ // 0x148e @0x9
0x1485…14bc at000a = ╱30╱0╱ // 0x148f @0xa
0x1485…14bc at000b = ╱36╱6╱ // 0x1490 @0xb
0x1485…14bc at000c = ╱3e╱>╱ // 0x1491 @0xc
0x1485…14bc at000d = ╱20╱…╱ // 0x1492 @0xd
0x1485…14bc at000e = ╱20╱…╱ // 0x1493 @0xe
0x1485…14bc at000f = ╱20╱…╱ // 0x1494 @0xf
0x1485…14bc at0010 = ╱20╱…╱ // 0x1495 @0x10
0x1485…14bc at0011 = ╱4e╱N╱ // 0x1496 @0x11
0x1485…14bc at0012 = ╱52╱R╱ // 0x1497 @0x12
0x1485…14bc at0013 = ╱20╱…╱ // 0x1498 @0x13
0x1485…14bc at0014 = ╱20╱…╱ // 0x1499 @0x14
0x1485…14bc at0015 = ╱20╱…╱ // 0x149a @0x15
0x1485…14bc at0016 = ╱20╱…╱ // 0x149b @0x16
0x1485…14bc at0017 = ╱20╱…╱ // 0x149c @0x17
0x1485…14bc at0018 = ╱20╱…╱ // 0x149d @0x18
0x1485…14bc at0019 = ╱20╱…╱ // 0x149e @0x19
0x1485…14bc at001a = ╱20╱…╱ // 0x149f @0x1a
0x1485…14bc at001b = ╱20╱…╱ // 0x14a0 @0x1b
0x1485…14bc at001c = ╱20╱…╱ // 0x14a1 @0x1c
0x1485…14bc at001d = ╱20╱…╱ // 0x14a2 @0x1d
0x1485…14bc at001e = ╱20╱…╱ // 0x14a3 @0x1e
0x1485…14bc at001f = ╱20╱…╱ // 0x14a4 @0x1f
0x1485…14bc at0020 = ╱20╱…╱ // 0x14a5 @0x20
0x1485…14bc at0021 = ╱20╱…╱ // 0x14a6 @0x21
0x1485…14bc at0022 = ╱20╱…╱ // 0x14a7 @0x22
0x1485…14bc at0023 = ╱20╱…╱ // 0x14a8 @0x23
0x1485…14bc at0024 = ╱20╱…╱ // 0x14a9 @0x24
0x1485…14bc at0025 = ╱20╱…╱ // 0x14aa @0x25
0x1485…14bc at0026 = ╱20╱…╱ // 0x14ab @0x26
0x1485…14bc at0027 = ╱20╱…╱ // 0x14ac @0x27
0x1485…14bc at0028 = ╱20╱…╱ // 0x14ad @0x28
0x1485…14bc at0029 = ╱20╱…╱ // 0x14ae @0x29
0x1485…14bc at002a = ╱20╱…╱ // 0x14af @0x2a
0x1485…14bc at002b = ╱20╱…╱ // 0x14b0 @0x2b
0x1485…14bc at002c = ╱20╱…╱ // 0x14b1 @0x2c
0x1485…14bc at002d = ╱4b╱K╱ // 0x14b2 @0x2d
0x1485…14bc at002e = ╱4f╱O╱ // 0x14b3 @0x2e
0x1485…14bc at002f = ╱44╱D╱ // 0x14b4 @0x2f
0x1485…14bc at0030 = ╱45╱E╱ // 0x14b5 @0x30
0x1485…14bc at0031 = ╱20╱…╱ // 0x14b6 @0x31
0x1485…14bc at0032 = ╱20╱…╱ // 0x14b7 @0x32
0x1485…14bc at0033 = ╱4e╱N╱ // 0x14b8 @0x33
0x1485…14bc at0034 = ╱55╱U╱ // 0x14b9 @0x34
0x1485…14bc at0035 = ╱22╱"╱ // 0x14ba @0x35
0x1485…14bc at0036 = EOL // 0x14bb @0x36
0x1485…14bc }
0x14bc…14f3 aae1 1960 PRINT "<C0107>----------------------------------------"
0x14bc…14f3 LineComal80 {
0x14bc…14f3 ptr = 0xaae1 // 0x14bc @0x0
0x14bc…14f3 lno = 0x07a8 // 0x14be @0x2
0x14bc…14f3 at0004 = ╱92╱ PRINT ╱ // 0x14c0 @0x4
0x14bc…14f3 at0005 = ╱22╱"╱ // 0x14c1 @0x5
0x14bc…14f3 at0006 = ╱3c╱<╱ // 0x14c2 @0x6
0x14bc…14f3 at0007 = ╱43╱C╱ // 0x14c3 @0x7
0x14bc…14f3 at0008 = ╱30╱0╱ // 0x14c4 @0x8
0x14bc…14f3 at0009 = ╱31╱1╱ // 0x14c5 @0x9
0x14bc…14f3 at000a = ╱30╱0╱ // 0x14c6 @0xa
0x14bc…14f3 at000b = ╱37╱7╱ // 0x14c7 @0xb
0x14bc…14f3 at000c = ╱3e╱>╱ // 0x14c8 @0xc
0x14bc…14f3 at000d = ╱2d╱-╱ // 0x14c9 @0xd
0x14bc…14f3 at000e = ╱2d╱-╱ // 0x14ca @0xe
0x14bc…14f3 at000f = ╱2d╱-╱ // 0x14cb @0xf
0x14bc…14f3 at0010 = ╱2d╱-╱ // 0x14cc @0x10
0x14bc…14f3 at0011 = ╱2d╱-╱ // 0x14cd @0x11
0x14bc…14f3 at0012 = ╱2d╱-╱ // 0x14ce @0x12
0x14bc…14f3 at0013 = ╱2d╱-╱ // 0x14cf @0x13
0x14bc…14f3 at0014 = ╱2d╱-╱ // 0x14d0 @0x14
0x14bc…14f3 at0015 = ╱2d╱-╱ // 0x14d1 @0x15
0x14bc…14f3 at0016 = ╱2d╱-╱ // 0x14d2 @0x16
0x14bc…14f3 at0017 = ╱2d╱-╱ // 0x14d3 @0x17
0x14bc…14f3 at0018 = ╱2d╱-╱ // 0x14d4 @0x18
0x14bc…14f3 at0019 = ╱2d╱-╱ // 0x14d5 @0x19
0x14bc…14f3 at001a = ╱2d╱-╱ // 0x14d6 @0x1a
0x14bc…14f3 at001b = ╱2d╱-╱ // 0x14d7 @0x1b
0x14bc…14f3 at001c = ╱2d╱-╱ // 0x14d8 @0x1c
0x14bc…14f3 at001d = ╱2d╱-╱ // 0x14d9 @0x1d
0x14bc…14f3 at001e = ╱2d╱-╱ // 0x14da @0x1e
0x14bc…14f3 at001f = ╱2d╱-╱ // 0x14db @0x1f
0x14bc…14f3 at0020 = ╱2d╱-╱ // 0x14dc @0x20
0x14bc…14f3 at0021 = ╱2d╱-╱ // 0x14dd @0x21
0x14bc…14f3 at0022 = ╱2d╱-╱ // 0x14de @0x22
0x14bc…14f3 at0023 = ╱2d╱-╱ // 0x14df @0x23
0x14bc…14f3 at0024 = ╱2d╱-╱ // 0x14e0 @0x24
0x14bc…14f3 at0025 = ╱2d╱-╱ // 0x14e1 @0x25
0x14bc…14f3 at0026 = ╱2d╱-╱ // 0x14e2 @0x26
0x14bc…14f3 at0027 = ╱2d╱-╱ // 0x14e3 @0x27
0x14bc…14f3 at0028 = ╱2d╱-╱ // 0x14e4 @0x28
0x14bc…14f3 at0029 = ╱2d╱-╱ // 0x14e5 @0x29
0x14bc…14f3 at002a = ╱2d╱-╱ // 0x14e6 @0x2a
0x14bc…14f3 at002b = ╱2d╱-╱ // 0x14e7 @0x2b
0x14bc…14f3 at002c = ╱2d╱-╱ // 0x14e8 @0x2c
0x14bc…14f3 at002d = ╱2d╱-╱ // 0x14e9 @0x2d
0x14bc…14f3 at002e = ╱2d╱-╱ // 0x14ea @0x2e
0x14bc…14f3 at002f = ╱2d╱-╱ // 0x14eb @0x2f
0x14bc…14f3 at0030 = ╱2d╱-╱ // 0x14ec @0x30
0x14bc…14f3 at0031 = ╱2d╱-╱ // 0x14ed @0x31
0x14bc…14f3 at0032 = ╱2d╱-╱ // 0x14ee @0x32
0x14bc…14f3 at0033 = ╱2d╱-╱ // 0x14ef @0x33
0x14bc…14f3 at0034 = ╱2d╱-╱ // 0x14f0 @0x34
0x14bc…14f3 at0035 = ╱22╱"╱ // 0x14f1 @0x35
0x14bc…14f3 at0036 = EOL // 0x14f2 @0x36
0x14bc…14f3 }
0x14f3…152a ab18 1970 PRINT "<C4105>NTO- DEBET KREDIT F/R/S "
0x14f3…152a LineComal80 {
0x14f3…152a ptr = 0xab18 // 0x14f3 @0x0
0x14f3…152a lno = 0x07b2 // 0x14f5 @0x2
0x14f3…152a at0004 = ╱92╱ PRINT ╱ // 0x14f7 @0x4
0x14f3…152a at0005 = ╱22╱"╱ // 0x14f8 @0x5
0x14f3…152a at0006 = ╱3c╱<╱ // 0x14f9 @0x6
0x14f3…152a at0007 = ╱43╱C╱ // 0x14fa @0x7
0x14f3…152a at0008 = ╱34╱4╱ // 0x14fb @0x8
0x14f3…152a at0009 = ╱31╱1╱ // 0x14fc @0x9
0x14f3…152a at000a = ╱30╱0╱ // 0x14fd @0xa
0x14f3…152a at000b = ╱35╱5╱ // 0x14fe @0xb
0x14f3…152a at000c = ╱3e╱>╱ // 0x14ff @0xc
0x14f3…152a at000d = ╱4e╱N╱ // 0x1500 @0xd
0x14f3…152a at000e = ╱54╱T╱ // 0x1501 @0xe
0x14f3…152a at000f = ╱4f╱O╱ // 0x1502 @0xf
0x14f3…152a at0010 = ╱2d╱-╱ // 0x1503 @0x10
0x14f3…152a at0011 = ╱20╱…╱ // 0x1504 @0x11
0x14f3…152a at0012 = ╱20╱…╱ // 0x1505 @0x12
0x14f3…152a at0013 = ╱20╱…╱ // 0x1506 @0x13
0x14f3…152a at0014 = ╱20╱…╱ // 0x1507 @0x14
0x14f3…152a at0015 = ╱20╱…╱ // 0x1508 @0x15
0x14f3…152a at0016 = ╱20╱…╱ // 0x1509 @0x16
0x14f3…152a at0017 = ╱20╱…╱ // 0x150a @0x17
0x14f3…152a at0018 = ╱44╱D╱ // 0x150b @0x18
0x14f3…152a at0019 = ╱45╱E╱ // 0x150c @0x19
0x14f3…152a at001a = ╱42╱B╱ // 0x150d @0x1a
0x14f3…152a at001b = ╱45╱E╱ // 0x150e @0x1b
0x14f3…152a at001c = ╱54╱T╱ // 0x150f @0x1c
0x14f3…152a at001d = ╱20╱…╱ // 0x1510 @0x1d
0x14f3…152a at001e = ╱20╱…╱ // 0x1511 @0x1e
0x14f3…152a at001f = ╱20╱…╱ // 0x1512 @0x1f
0x14f3…152a at0020 = ╱20╱…╱ // 0x1513 @0x20
0x14f3…152a at0021 = ╱20╱…╱ // 0x1514 @0x21
0x14f3…152a at0022 = ╱20╱…╱ // 0x1515 @0x22
0x14f3…152a at0023 = ╱4b╱K╱ // 0x1516 @0x23
0x14f3…152a at0024 = ╱52╱R╱ // 0x1517 @0x24
0x14f3…152a at0025 = ╱45╱E╱ // 0x1518 @0x25
0x14f3…152a at0026 = ╱44╱D╱ // 0x1519 @0x26
0x14f3…152a at0027 = ╱49╱I╱ // 0x151a @0x27
0x14f3…152a at0028 = ╱54╱T╱ // 0x151b @0x28
0x14f3…152a at0029 = ╱20╱…╱ // 0x151c @0x29
0x14f3…152a at002a = ╱20╱…╱ // 0x151d @0x2a
0x14f3…152a at002b = ╱20╱…╱ // 0x151e @0x2b
0x14f3…152a at002c = ╱20╱…╱ // 0x151f @0x2c
0x14f3…152a at002d = ╱20╱…╱ // 0x1520 @0x2d
0x14f3…152a at002e = ╱20╱…╱ // 0x1521 @0x2e
0x14f3…152a at002f = ╱46╱F╱ // 0x1522 @0x2f
0x14f3…152a at0030 = ╱2f╱/╱ // 0x1523 @0x30
0x14f3…152a at0031 = ╱52╱R╱ // 0x1524 @0x31
0x14f3…152a at0032 = ╱2f╱/╱ // 0x1525 @0x32
0x14f3…152a at0033 = ╱53╱S╱ // 0x1526 @0x33
0x14f3…152a at0034 = ╱20╱…╱ // 0x1527 @0x34
0x14f3…152a at0035 = ╱22╱"╱ // 0x1528 @0x35
0x14f3…152a at0036 = EOL // 0x1529 @0x36
0x14f3…152a }
0x152a…1560 ab4e 1980 PRINT "<C4106>MMER "
0x152a…1560 LineComal80 {
0x152a…1560 ptr = 0xab4e // 0x152a @0x0
0x152a…1560 lno = 0x07bc // 0x152c @0x2
0x152a…1560 at0004 = ╱92╱ PRINT ╱ // 0x152e @0x4
0x152a…1560 at0005 = ╱22╱"╱ // 0x152f @0x5
0x152a…1560 at0006 = ╱3c╱<╱ // 0x1530 @0x6
0x152a…1560 at0007 = ╱43╱C╱ // 0x1531 @0x7
0x152a…1560 at0008 = ╱34╱4╱ // 0x1532 @0x8
0x152a…1560 at0009 = ╱31╱1╱ // 0x1533 @0x9
0x152a…1560 at000a = ╱30╱0╱ // 0x1534 @0xa
0x152a…1560 at000b = ╱36╱6╱ // 0x1535 @0xb
0x152a…1560 at000c = ╱3e╱>╱ // 0x1536 @0xc
0x152a…1560 at000d = ╱4d╱M╱ // 0x1537 @0xd
0x152a…1560 at000e = ╱4d╱M╱ // 0x1538 @0xe
0x152a…1560 at000f = ╱45╱E╱ // 0x1539 @0xf
0x152a…1560 at0010 = ╱52╱R╱ // 0x153a @0x10
0x152a…1560 at0011 = ╱20╱…╱ // 0x153b @0x11
0x152a…1560 at0012 = ╱20╱…╱ // 0x153c @0x12
0x152a…1560 at0013 = ╱20╱…╱ // 0x153d @0x13
0x152a…1560 at0014 = ╱20╱…╱ // 0x153e @0x14
0x152a…1560 at0015 = ╱20╱…╱ // 0x153f @0x15
0x152a…1560 at0016 = ╱20╱…╱ // 0x1540 @0x16
0x152a…1560 at0017 = ╱20╱…╱ // 0x1541 @0x17
0x152a…1560 at0018 = ╱20╱…╱ // 0x1542 @0x18
0x152a…1560 at0019 = ╱20╱…╱ // 0x1543 @0x19
0x152a…1560 at001a = ╱20╱…╱ // 0x1544 @0x1a
0x152a…1560 at001b = ╱20╱…╱ // 0x1545 @0x1b
0x152a…1560 at001c = ╱20╱…╱ // 0x1546 @0x1c
0x152a…1560 at001d = ╱20╱…╱ // 0x1547 @0x1d
0x152a…1560 at001e = ╱20╱…╱ // 0x1548 @0x1e
0x152a…1560 at001f = ╱20╱…╱ // 0x1549 @0x1f
0x152a…1560 at0020 = ╱20╱…╱ // 0x154a @0x20
0x152a…1560 at0021 = ╱20╱…╱ // 0x154b @0x21
0x152a…1560 at0022 = ╱20╱…╱ // 0x154c @0x22
0x152a…1560 at0023 = ╱20╱…╱ // 0x154d @0x23
0x152a…1560 at0024 = ╱20╱…╱ // 0x154e @0x24
0x152a…1560 at0025 = ╱20╱…╱ // 0x154f @0x25
0x152a…1560 at0026 = ╱20╱…╱ // 0x1550 @0x26
0x152a…1560 at0027 = ╱20╱…╱ // 0x1551 @0x27
0x152a…1560 at0028 = ╱20╱…╱ // 0x1552 @0x28
0x152a…1560 at0029 = ╱20╱…╱ // 0x1553 @0x29
0x152a…1560 at002a = ╱20╱…╱ // 0x1554 @0x2a
0x152a…1560 at002b = ╱20╱…╱ // 0x1555 @0x2b
0x152a…1560 at002c = ╱20╱…╱ // 0x1556 @0x2c
0x152a…1560 at002d = ╱20╱…╱ // 0x1557 @0x2d
0x152a…1560 at002e = ╱20╱…╱ // 0x1558 @0x2e
0x152a…1560 at002f = ╱20╱…╱ // 0x1559 @0x2f
0x152a…1560 at0030 = ╱20╱…╱ // 0x155a @0x30
0x152a…1560 at0031 = ╱20╱…╱ // 0x155b @0x31
0x152a…1560 at0032 = ╱20╱…╱ // 0x155c @0x32
0x152a…1560 at0033 = ╱20╱…╱ // 0x155d @0x33
0x152a…1560 at0034 = ╱22╱"╱ // 0x155e @0x34
0x152a…1560 at0035 = EOL // 0x155f @0x35
0x152a…1560 }
0x1560…1597 ab85 1990 PRINT "<C4107>----------------------------------------"
0x1560…1597 LineComal80 {
0x1560…1597 ptr = 0xab85 // 0x1560 @0x0
0x1560…1597 lno = 0x07c6 // 0x1562 @0x2
0x1560…1597 at0004 = ╱92╱ PRINT ╱ // 0x1564 @0x4
0x1560…1597 at0005 = ╱22╱"╱ // 0x1565 @0x5
0x1560…1597 at0006 = ╱3c╱<╱ // 0x1566 @0x6
0x1560…1597 at0007 = ╱43╱C╱ // 0x1567 @0x7
0x1560…1597 at0008 = ╱34╱4╱ // 0x1568 @0x8
0x1560…1597 at0009 = ╱31╱1╱ // 0x1569 @0x9
0x1560…1597 at000a = ╱30╱0╱ // 0x156a @0xa
0x1560…1597 at000b = ╱37╱7╱ // 0x156b @0xb
0x1560…1597 at000c = ╱3e╱>╱ // 0x156c @0xc
0x1560…1597 at000d = ╱2d╱-╱ // 0x156d @0xd
0x1560…1597 at000e = ╱2d╱-╱ // 0x156e @0xe
0x1560…1597 at000f = ╱2d╱-╱ // 0x156f @0xf
0x1560…1597 at0010 = ╱2d╱-╱ // 0x1570 @0x10
0x1560…1597 at0011 = ╱2d╱-╱ // 0x1571 @0x11
0x1560…1597 at0012 = ╱2d╱-╱ // 0x1572 @0x12
0x1560…1597 at0013 = ╱2d╱-╱ // 0x1573 @0x13
0x1560…1597 at0014 = ╱2d╱-╱ // 0x1574 @0x14
0x1560…1597 at0015 = ╱2d╱-╱ // 0x1575 @0x15
0x1560…1597 at0016 = ╱2d╱-╱ // 0x1576 @0x16
0x1560…1597 at0017 = ╱2d╱-╱ // 0x1577 @0x17
0x1560…1597 at0018 = ╱2d╱-╱ // 0x1578 @0x18
0x1560…1597 at0019 = ╱2d╱-╱ // 0x1579 @0x19
0x1560…1597 at001a = ╱2d╱-╱ // 0x157a @0x1a
0x1560…1597 at001b = ╱2d╱-╱ // 0x157b @0x1b
0x1560…1597 at001c = ╱2d╱-╱ // 0x157c @0x1c
0x1560…1597 at001d = ╱2d╱-╱ // 0x157d @0x1d
0x1560…1597 at001e = ╱2d╱-╱ // 0x157e @0x1e
0x1560…1597 at001f = ╱2d╱-╱ // 0x157f @0x1f
0x1560…1597 at0020 = ╱2d╱-╱ // 0x1580 @0x20
0x1560…1597 at0021 = ╱2d╱-╱ // 0x1581 @0x21
0x1560…1597 at0022 = ╱2d╱-╱ // 0x1582 @0x22
0x1560…1597 at0023 = ╱2d╱-╱ // 0x1583 @0x23
0x1560…1597 at0024 = ╱2d╱-╱ // 0x1584 @0x24
0x1560…1597 at0025 = ╱2d╱-╱ // 0x1585 @0x25
0x1560…1597 at0026 = ╱2d╱-╱ // 0x1586 @0x26
0x1560…1597 at0027 = ╱2d╱-╱ // 0x1587 @0x27
0x1560…1597 at0028 = ╱2d╱-╱ // 0x1588 @0x28
0x1560…1597 at0029 = ╱2d╱-╱ // 0x1589 @0x29
0x1560…1597 at002a = ╱2d╱-╱ // 0x158a @0x2a
0x1560…1597 at002b = ╱2d╱-╱ // 0x158b @0x2b
0x1560…1597 at002c = ╱2d╱-╱ // 0x158c @0x2c
0x1560…1597 at002d = ╱2d╱-╱ // 0x158d @0x2d
0x1560…1597 at002e = ╱2d╱-╱ // 0x158e @0x2e
0x1560…1597 at002f = ╱2d╱-╱ // 0x158f @0x2f
0x1560…1597 at0030 = ╱2d╱-╱ // 0x1590 @0x30
0x1560…1597 at0031 = ╱2d╱-╱ // 0x1591 @0x31
0x1560…1597 at0032 = ╱2d╱-╱ // 0x1592 @0x32
0x1560…1597 at0033 = ╱2d╱-╱ // 0x1593 @0x33
0x1560…1597 at0034 = ╱2d╱-╱ // 0x1594 @0x34
0x1560…1597 at0035 = ╱22╱"╱ // 0x1595 @0x35
0x1560…1597 at0036 = EOL // 0x1596 @0x36
0x1560…1597 }
0x1597…15a9 ab97 2000 ENDPROC DIV_POSHOVED
0x1597…15a9 LineComal80 {
0x1597…15a9 ptr = 0xab97 // 0x1597 @0x0
0x1597…15a9 lno = 0x07d0 // 0x1599 @0x2
0x1597…15a9 at0004 = ╱9f╱ ENDPROC ╱ // 0x159b @0x4
0x1597…15a9 at0005 = ╱44╱D╱ // 0x159c @0x5
0x1597…15a9 at0006 = ╱49╱I╱ // 0x159d @0x6
0x1597…15a9 at0007 = ╱56╱V╱ // 0x159e @0x7
0x1597…15a9 at0008 = ╱5f╱_╱ // 0x159f @0x8
0x1597…15a9 at0009 = ╱50╱P╱ // 0x15a0 @0x9
0x1597…15a9 at000a = ╱4f╱O╱ // 0x15a1 @0xa
0x1597…15a9 at000b = ╱53╱S╱ // 0x15a2 @0xb
0x1597…15a9 at000c = ╱48╱H╱ // 0x15a3 @0xc
0x1597…15a9 at000d = ╱4f╱O╱ // 0x15a4 @0xd
0x1597…15a9 at000e = ╱56╱V╱ // 0x15a5 @0xe
0x1597…15a9 at000f = ╱45╱E╱ // 0x15a6 @0xf
0x1597…15a9 at0010 = ╱44╱D╱ // 0x15a7 @0x10
0x1597…15a9 at0011 = EOL // 0x15a8 @0x11
0x1597…15a9 }
0x15a9…15ae ab9c 2010
0x15a9…15ae LineComal80 {
0x15a9…15ae ptr = 0xab9c // 0x15a9 @0x0
0x15a9…15ae lno = 0x07da // 0x15ab @0x2
0x15a9…15ae at0004 = EOL // 0x15ad @0x4
0x15a9…15ae }
0x15ae…15c6 abb4 2020 PROC OVERSKRIFT(ST$,L)
0x15ae…15c6 LineComal80 {
0x15ae…15c6 ptr = 0xabb4 // 0x15ae @0x0
0x15ae…15c6 lno = 0x07e4 // 0x15b0 @0x2
0x15ae…15c6 at0004 = ╱9e00╱ PROC ╱ // 0x15b2 @0x4
0x15ae…15c6 at0006 = ╱4f╱O╱ // 0x15b4 @0x6
0x15ae…15c6 at0007 = ╱56╱V╱ // 0x15b5 @0x7
0x15ae…15c6 at0008 = ╱45╱E╱ // 0x15b6 @0x8
0x15ae…15c6 at0009 = ╱52╱R╱ // 0x15b7 @0x9
0x15ae…15c6 at000a = ╱53╱S╱ // 0x15b8 @0xa
0x15ae…15c6 at000b = ╱4b╱K╱ // 0x15b9 @0xb
0x15ae…15c6 at000c = ╱52╱R╱ // 0x15ba @0xc
0x15ae…15c6 at000d = ╱49╱I╱ // 0x15bb @0xd
0x15ae…15c6 at000e = ╱46╱F╱ // 0x15bc @0xe
0x15ae…15c6 at000f = ╱54╱T╱ // 0x15bd @0xf
0x15ae…15c6 at0010 = ╱ed╱(╱ // 0x15be @0x10
0x15ae…15c6 at0011 = ╱53╱S╱ // 0x15bf @0x11
0x15ae…15c6 at0012 = ╱54╱T╱ // 0x15c0 @0x12
0x15ae…15c6 at0013 = ╱ef╱$╱ // 0x15c1 @0x13
0x15ae…15c6 at0014 = ╱ec╱,╱ // 0x15c2 @0x14
0x15ae…15c6 at0015 = ╱4c╱L╱ // 0x15c3 @0x15
0x15ae…15c6 at0016 = ╱ee╱)╱ // 0x15c4 @0x16
0x15ae…15c6 at0017 = EOL // 0x15c5 @0x17
0x15ae…15c6 }
0x15c6…15ec abda 2030 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0x15c6…15ec LineComal80 {
0x15c6…15ec ptr = 0xabda // 0x15c6 @0x0
0x15c6…15ec lno = 0x07ee // 0x15c8 @0x2
0x15c6…15ec at0004 = ╱92╱ PRINT ╱ // 0x15ca @0x4
0x15c6…15ec at0005 = ╱22╱"╱ // 0x15cb @0x5
0x15c6…15ec at0006 = ╱3c╱<╱ // 0x15cc @0x6
0x15c6…15ec at0007 = ╱58╱X╱ // 0x15cd @0x7
0x15c6…15ec at0008 = ╱43╱C╱ // 0x15ce @0x8
0x15c6…15ec at0009 = ╱30╱0╱ // 0x15cf @0x9
0x15c6…15ec at000a = ╱31╱1╱ // 0x15d0 @0xa
0x15c6…15ec at000b = ╱30╱0╱ // 0x15d1 @0xb
0x15c6…15ec at000c = ╱31╱1╱ // 0x15d2 @0xc
0x15c6…15ec at000d = ╱3e╱>╱ // 0x15d3 @0xd
0x15c6…15ec at000e = ╱46╱F╱ // 0x15d4 @0xe
0x15c6…15ec at000f = ╱69╱i╱ // 0x15d5 @0xf
0x15c6…15ec at0010 = ╱72╱r╱ // 0x15d6 @0x10
0x15c6…15ec at0011 = ╱6d╱m╱ // 0x15d7 @0x11
0x15c6…15ec at0012 = ╱61╱a╱ // 0x15d8 @0x12
0x15c6…15ec at0013 = ╱6e╱n╱ // 0x15d9 @0x13
0x15c6…15ec at0014 = ╱61╱a╱ // 0x15da @0x14
0x15c6…15ec at0015 = ╱76╱v╱ // 0x15db @0x15
0x15c6…15ec at0016 = ╱6e╱n╱ // 0x15dc @0x16
0x15c6…15ec at0017 = ╱3a╱:╱ // 0x15dd @0x17
0x15c6…15ec at0018 = ╱20╱…╱ // 0x15de @0x18
0x15c6…15ec at0019 = ╱22╱"╱ // 0x15df @0x19
0x15c6…15ec at001a = ╱ea╱ ; ╱ // 0x15e0 @0x1a
0x15c6…15ec at001b = ╱46╱F╱ // 0x15e1 @0x1b
0x15c6…15ec at001c = ╱49╱I╱ // 0x15e2 @0x1c
0x15c6…15ec at001d = ╱52╱R╱ // 0x15e3 @0x1d
0x15c6…15ec at001e = ╱4d╱M╱ // 0x15e4 @0x1e
0x15c6…15ec at001f = ╱41╱A╱ // 0x15e5 @0x1f
0x15c6…15ec at0020 = ╱4e╱N╱ // 0x15e6 @0x20
0x15c6…15ec at0021 = ╱41╱A╱ // 0x15e7 @0x21
0x15c6…15ec at0022 = ╱56╱V╱ // 0x15e8 @0x22
0x15c6…15ec at0023 = ╱4e╱N╱ // 0x15e9 @0x23
0x15c6…15ec at0024 = ╱ef╱$╱ // 0x15ea @0x24
0x15c6…15ec at0025 = EOL // 0x15eb @0x25
0x15c6…15ec }
0x15ec…1634 ac22 2040 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0x15ec…1634 LineComal80 {
0x15ec…1634 ptr = 0xac22 // 0x15ec @0x0
0x15ec…1634 lno = 0x07f8 // 0x15ee @0x2
0x15ec…1634 at0004 = ╱92╱ PRINT ╱ // 0x15f0 @0x4
0x15ec…1634 at0005 = ╱22╱"╱ // 0x15f1 @0x5
0x15ec…1634 at0006 = ╱3c╱<╱ // 0x15f2 @0x6
0x15ec…1634 at0007 = ╱53╱S╱ // 0x15f3 @0x7
0x15ec…1634 at0008 = ╱43╱C╱ // 0x15f4 @0x8
0x15ec…1634 at0009 = ╱36╱6╱ // 0x15f5 @0x9
0x15ec…1634 at000a = ╱35╱5╱ // 0x15f6 @0xa
0x15ec…1634 at000b = ╱30╱0╱ // 0x15f7 @0xb
0x15ec…1634 at000c = ╱31╱1╱ // 0x15f8 @0xc
0x15ec…1634 at000d = ╱3e╱>╱ // 0x15f9 @0xd
0x15ec…1634 at000e = ╱44╱D╱ // 0x15fa @0xe
0x15ec…1634 at000f = ╱61╱a╱ // 0x15fb @0xf
0x15ec…1634 at0010 = ╱74╱t╱ // 0x15fc @0x10
0x15ec…1634 at0011 = ╱6f╱o╱ // 0x15fd @0x11
0x15ec…1634 at0012 = ╱3a╱:╱ // 0x15fe @0x12
0x15ec…1634 at0013 = ╱20╱…╱ // 0x15ff @0x13
0x15ec…1634 at0014 = ╱22╱"╱ // 0x1600 @0x14
0x15ec…1634 at0015 = ╱ea╱ ; ╱ // 0x1601 @0x15
0x15ec…1634 at0016 = ╱53╱S╱ // 0x1602 @0x16
0x15ec…1634 at0017 = ╱59╱Y╱ // 0x1603 @0x17
0x15ec…1634 at0018 = ╱53╱S╱ // 0x1604 @0x18
0x15ec…1634 at0019 = ╱54╱T╱ // 0x1605 @0x19
0x15ec…1634 at001a = ╱5f╱_╱ // 0x1606 @0x1a
0x15ec…1634 at001b = ╱44╱D╱ // 0x1607 @0x1b
0x15ec…1634 at001c = ╱41╱A╱ // 0x1608 @0x1c
0x15ec…1634 at001d = ╱54╱T╱ // 0x1609 @0x1d
0x15ec…1634 at001e = ╱ef╱$╱ // 0x160a @0x1e
0x15ec…1634 at001f = ╱ed╱(╱ // 0x160b @0x1f
0x15ec…1634 at0020 = ╱31╱1╱ // 0x160c @0x20
0x15ec…1634 at0021 = ╱f20100╱ // 0x160d @0x21
0x15ec…1634 at0024 = ╱f1╱ : ╱ // 0x1610 @0x24
0x15ec…1634 at0025 = ╱32╱2╱ // 0x1611 @0x25
0x15ec…1634 at0026 = ╱f20200╱ // 0x1612 @0x26
0x15ec…1634 at0029 = ╱ee╱)╱ // 0x1615 @0x29
0x15ec…1634 at002a = ╱ea╱ ; ╱ // 0x1616 @0x2a
0x15ec…1634 at002b = ╱22╱"╱ // 0x1617 @0x2b
0x15ec…1634 at002c = ╱2e╱.╱ // 0x1618 @0x2c
0x15ec…1634 at002d = ╱22╱"╱ // 0x1619 @0x2d
0x15ec…1634 at002e = ╱ea╱ ; ╱ // 0x161a @0x2e
0x15ec…1634 at002f = ╱53╱S╱ // 0x161b @0x2f
0x15ec…1634 at0030 = ╱59╱Y╱ // 0x161c @0x30
0x15ec…1634 at0031 = ╱53╱S╱ // 0x161d @0x31
0x15ec…1634 at0032 = ╱54╱T╱ // 0x161e @0x32
0x15ec…1634 at0033 = ╱5f╱_╱ // 0x161f @0x33
0x15ec…1634 at0034 = ╱44╱D╱ // 0x1620 @0x34
0x15ec…1634 at0035 = ╱41╱A╱ // 0x1621 @0x35
0x15ec…1634 at0036 = ╱54╱T╱ // 0x1622 @0x36
0x15ec…1634 at0037 = ╱ef╱$╱ // 0x1623 @0x37
0x15ec…1634 at0038 = ╱ed╱(╱ // 0x1624 @0x38
0x15ec…1634 at0039 = ╱33╱3╱ // 0x1625 @0x39
0x15ec…1634 at003a = ╱f20300╱ // 0x1626 @0x3a
0x15ec…1634 at003d = ╱f1╱ : ╱ // 0x1629 @0x3d
0x15ec…1634 at003e = ╱32╱2╱ // 0x162a @0x3e
0x15ec…1634 at003f = ╱f20200╱ // 0x162b @0x3f
0x15ec…1634 at0042 = ╱ee╱)╱ // 0x162e @0x42
0x15ec…1634 at0043 = ╱ea╱ ; ╱ // 0x162f @0x43
0x15ec…1634 at0044 = ╱22╱"╱ // 0x1630 @0x44
0x15ec…1634 at0045 = ╱2e╱.╱ // 0x1631 @0x45
0x15ec…1634 at0046 = ╱22╱"╱ // 0x1632 @0x46
0x15ec…1634 at0047 = EOL // 0x1633 @0x47
0x15ec…1634 }
0x1634…164e ac3c 2050 PRINT SYST_DAT$(5 : 2)
0x1634…164e LineComal80 {
0x1634…164e ptr = 0xac3c // 0x1634 @0x0
0x1634…164e lno = 0x0802 // 0x1636 @0x2
0x1634…164e at0004 = ╱92╱ PRINT ╱ // 0x1638 @0x4
0x1634…164e at0005 = ╱53╱S╱ // 0x1639 @0x5
0x1634…164e at0006 = ╱59╱Y╱ // 0x163a @0x6
0x1634…164e at0007 = ╱53╱S╱ // 0x163b @0x7
0x1634…164e at0008 = ╱54╱T╱ // 0x163c @0x8
0x1634…164e at0009 = ╱5f╱_╱ // 0x163d @0x9
0x1634…164e at000a = ╱44╱D╱ // 0x163e @0xa
0x1634…164e at000b = ╱41╱A╱ // 0x163f @0xb
0x1634…164e at000c = ╱54╱T╱ // 0x1640 @0xc
0x1634…164e at000d = ╱ef╱$╱ // 0x1641 @0xd
0x1634…164e at000e = ╱ed╱(╱ // 0x1642 @0xe
0x1634…164e at000f = ╱35╱5╱ // 0x1643 @0xf
0x1634…164e at0010 = ╱f20500╱ // 0x1644 @0x10
0x1634…164e at0013 = ╱f1╱ : ╱ // 0x1647 @0x13
0x1634…164e at0014 = ╱32╱2╱ // 0x1648 @0x14
0x1634…164e at0015 = ╱f20200╱ // 0x1649 @0x15
0x1634…164e at0018 = ╱ee╱)╱ // 0x164c @0x18
0x1634…164e at0019 = EOL // 0x164d @0x19
0x1634…164e }
0x164e…166a ac58 2060 CURSOR 34 - INT( ╱cb╱ (ST$) / 2),L
0x164e…166a LineComal80 {
0x164e…166a ptr = 0xac58 // 0x164e @0x0
0x164e…166a lno = 0x080c // 0x1650 @0x2
0x164e…166a at0004 = ╱a1╱ CURSOR ╱ // 0x1652 @0x4
0x164e…166a at0005 = ╱33╱3╱ // 0x1653 @0x5
0x164e…166a at0006 = ╱34╱4╱ // 0x1654 @0x6
0x164e…166a at0007 = ╱f22200╱ // 0x1655 @0x7
0x164e…166a at000a = ╱e6╱ - ╱ // 0x1658 @0xa
0x164e…166a at000b = ╱c6╱INT╱ // 0x1659 @0xb
0x164e…166a at000c = ╱ed╱(╱ // 0x165a @0xc
0x164e…166a at000d = ╱cb╱ // 0x165b @0xd
0x164e…166a at000e = ╱ed╱(╱ // 0x165c @0xe
0x164e…166a at000f = ╱53╱S╱ // 0x165d @0xf
0x164e…166a at0010 = ╱54╱T╱ // 0x165e @0x10
0x164e…166a at0011 = ╱ef╱$╱ // 0x165f @0x11
0x164e…166a at0012 = ╱ee╱)╱ // 0x1660 @0x12
0x164e…166a at0013 = ╱e8╱ / ╱ // 0x1661 @0x13
0x164e…166a at0014 = ╱32╱2╱ // 0x1662 @0x14
0x164e…166a at0015 = ╱f20200╱ // 0x1663 @0x15
0x164e…166a at0018 = ╱ee╱)╱ // 0x1666 @0x18
0x164e…166a at0019 = ╱ec╱,╱ // 0x1667 @0x19
0x164e…166a at001a = ╱4c╱L╱ // 0x1668 @0x1a
0x164e…166a at001b = EOL // 0x1669 @0x1b
0x164e…166a }
0x166a…1681 ac6f 2070 PRINT "*** " ; ST$ ; " ***"
0x166a…1681 LineComal80 {
0x166a…1681 ptr = 0xac6f // 0x166a @0x0
0x166a…1681 lno = 0x0816 // 0x166c @0x2
0x166a…1681 at0004 = ╱92╱ PRINT ╱ // 0x166e @0x4
0x166a…1681 at0005 = ╱22╱"╱ // 0x166f @0x5
0x166a…1681 at0006 = ╱2a╱*╱ // 0x1670 @0x6
0x166a…1681 at0007 = ╱2a╱*╱ // 0x1671 @0x7
0x166a…1681 at0008 = ╱2a╱*╱ // 0x1672 @0x8
0x166a…1681 at0009 = ╱20╱…╱ // 0x1673 @0x9
0x166a…1681 at000a = ╱22╱"╱ // 0x1674 @0xa
0x166a…1681 at000b = ╱ea╱ ; ╱ // 0x1675 @0xb
0x166a…1681 at000c = ╱53╱S╱ // 0x1676 @0xc
0x166a…1681 at000d = ╱54╱T╱ // 0x1677 @0xd
0x166a…1681 at000e = ╱ef╱$╱ // 0x1678 @0xe
0x166a…1681 at000f = ╱ea╱ ; ╱ // 0x1679 @0xf
0x166a…1681 at0010 = ╱22╱"╱ // 0x167a @0x10
0x166a…1681 at0011 = ╱20╱…╱ // 0x167b @0x11
0x166a…1681 at0012 = ╱2a╱*╱ // 0x167c @0x12
0x166a…1681 at0013 = ╱2a╱*╱ // 0x167d @0x13
0x166a…1681 at0014 = ╱2a╱*╱ // 0x167e @0x14
0x166a…1681 at0015 = ╱22╱"╱ // 0x167f @0x15
0x166a…1681 at0016 = EOL // 0x1680 @0x16
0x166a…1681 }
0x1681…1691 ac7f 2080 ENDPROC OVERSKRIFT
0x1681…1691 LineComal80 {
0x1681…1691 ptr = 0xac7f // 0x1681 @0x0
0x1681…1691 lno = 0x0820 // 0x1683 @0x2
0x1681…1691 at0004 = ╱9f╱ ENDPROC ╱ // 0x1685 @0x4
0x1681…1691 at0005 = ╱4f╱O╱ // 0x1686 @0x5
0x1681…1691 at0006 = ╱56╱V╱ // 0x1687 @0x6
0x1681…1691 at0007 = ╱45╱E╱ // 0x1688 @0x7
0x1681…1691 at0008 = ╱52╱R╱ // 0x1689 @0x8
0x1681…1691 at0009 = ╱53╱S╱ // 0x168a @0x9
0x1681…1691 at000a = ╱4b╱K╱ // 0x168b @0xa
0x1681…1691 at000b = ╱52╱R╱ // 0x168c @0xb
0x1681…1691 at000c = ╱49╱I╱ // 0x168d @0xc
0x1681…1691 at000d = ╱46╱F╱ // 0x168e @0xd
0x1681…1691 at000e = ╱54╱T╱ // 0x168f @0xe
0x1681…1691 at000f = EOL // 0x1690 @0xf
0x1681…1691 }
0x1691…1696 ac84 2090
0x1691…1696 LineComal80 {
0x1691…1696 ptr = 0xac84 // 0x1691 @0x0
0x1691…1696 lno = 0x082a // 0x1693 @0x2
0x1691…1696 at0004 = EOL // 0x1695 @0x4
0x1691…1696 }
0x1696…16a9 ac97 2100 PROC SL_FEJLLINIE
0x1696…16a9 LineComal80 {
0x1696…16a9 ptr = 0xac97 // 0x1696 @0x0
0x1696…16a9 lno = 0x0834 // 0x1698 @0x2
0x1696…16a9 at0004 = ╱9e20╱ PROC ╱ // 0x169a @0x4
0x1696…16a9 at0006 = ╱53╱S╱ // 0x169c @0x6
0x1696…16a9 at0007 = ╱4c╱L╱ // 0x169d @0x7
0x1696…16a9 at0008 = ╱5f╱_╱ // 0x169e @0x8
0x1696…16a9 at0009 = ╱46╱F╱ // 0x169f @0x9
0x1696…16a9 at000a = ╱45╱E╱ // 0x16a0 @0xa
0x1696…16a9 at000b = ╱4a╱J╱ // 0x16a1 @0xb
0x1696…16a9 at000c = ╱4c╱L╱ // 0x16a2 @0xc
0x1696…16a9 at000d = ╱4c╱L╱ // 0x16a3 @0xd
0x1696…16a9 at000e = ╱49╱I╱ // 0x16a4 @0xe
0x1696…16a9 at000f = ╱4e╱N╱ // 0x16a5 @0xf
0x1696…16a9 at0010 = ╱49╱I╱ // 0x16a6 @0x10
0x1696…16a9 at0011 = ╱45╱E╱ // 0x16a7 @0x11
0x1696…16a9 at0012 = EOL // 0x16a8 @0x12
0x1696…16a9 }
0x16a9…16b6 aca4 2110 LET OK := TRUE
0x16a9…16b6 LineComal80 {
0x16a9…16b6 ptr = 0xaca4 // 0x16a9 @0x0
0x16a9…16b6 lno = 0x083e // 0x16ab @0x2
0x16a9…16b6 at0004 = ╱86╱ LET ╱ // 0x16ad @0x4
0x16a9…16b6 at0005 = ╱4f╱O╱ // 0x16ae @0x5
0x16a9…16b6 at0006 = ╱4b╱K╱ // 0x16af @0x6
0x16a9…16b6 at0007 = ╱f0╱ := ╱ // 0x16b0 @0x7
0x16a9…16b6 at0008 = ╱54╱T╱ // 0x16b1 @0x8
0x16a9…16b6 at0009 = ╱52╱R╱ // 0x16b2 @0x9
0x16a9…16b6 at000a = ╱55╱U╱ // 0x16b3 @0xa
0x16a9…16b6 at000b = ╱45╱E╱ // 0x16b4 @0xb
0x16a9…16b6 at000c = EOL // 0x16b5 @0xc
0x16a9…16b6 }
0x16b6…16ca acb8 2120 PRINT "<C0102>" ; SPC$
0x16b6…16ca LineComal80 {
0x16b6…16ca ptr = 0xacb8 // 0x16b6 @0x0
0x16b6…16ca lno = 0x0848 // 0x16b8 @0x2
0x16b6…16ca at0004 = ╱92╱ PRINT ╱ // 0x16ba @0x4
0x16b6…16ca at0005 = ╱22╱"╱ // 0x16bb @0x5
0x16b6…16ca at0006 = ╱3c╱<╱ // 0x16bc @0x6
0x16b6…16ca at0007 = ╱43╱C╱ // 0x16bd @0x7
0x16b6…16ca at0008 = ╱30╱0╱ // 0x16be @0x8
0x16b6…16ca at0009 = ╱31╱1╱ // 0x16bf @0x9
0x16b6…16ca at000a = ╱30╱0╱ // 0x16c0 @0xa
0x16b6…16ca at000b = ╱32╱2╱ // 0x16c1 @0xb
0x16b6…16ca at000c = ╱3e╱>╱ // 0x16c2 @0xc
0x16b6…16ca at000d = ╱22╱"╱ // 0x16c3 @0xd
0x16b6…16ca at000e = ╱ea╱ ; ╱ // 0x16c4 @0xe
0x16b6…16ca at000f = ╱53╱S╱ // 0x16c5 @0xf
0x16b6…16ca at0010 = ╱50╱P╱ // 0x16c6 @0x10
0x16b6…16ca at0011 = ╱43╱C╱ // 0x16c7 @0x11
0x16b6…16ca at0012 = ╱ef╱$╱ // 0x16c8 @0x12
0x16b6…16ca at0013 = EOL // 0x16c9 @0x13
0x16b6…16ca }
0x16ca…16dc acca 2130 ENDPROC SL_FEJLLINIE
0x16ca…16dc LineComal80 {
0x16ca…16dc ptr = 0xacca // 0x16ca @0x0
0x16ca…16dc lno = 0x0852 // 0x16cc @0x2
0x16ca…16dc at0004 = ╱9f╱ ENDPROC ╱ // 0x16ce @0x4
0x16ca…16dc at0005 = ╱53╱S╱ // 0x16cf @0x5
0x16ca…16dc at0006 = ╱4c╱L╱ // 0x16d0 @0x6
0x16ca…16dc at0007 = ╱5f╱_╱ // 0x16d1 @0x7
0x16ca…16dc at0008 = ╱46╱F╱ // 0x16d2 @0x8
0x16ca…16dc at0009 = ╱45╱E╱ // 0x16d3 @0x9
0x16ca…16dc at000a = ╱4a╱J╱ // 0x16d4 @0xa
0x16ca…16dc at000b = ╱4c╱L╱ // 0x16d5 @0xb
0x16ca…16dc at000c = ╱4c╱L╱ // 0x16d6 @0xc
0x16ca…16dc at000d = ╱49╱I╱ // 0x16d7 @0xd
0x16ca…16dc at000e = ╱4e╱N╱ // 0x16d8 @0xe
0x16ca…16dc at000f = ╱49╱I╱ // 0x16d9 @0xf
0x16ca…16dc at0010 = ╱45╱E╱ // 0x16da @0x10
0x16ca…16dc at0011 = EOL // 0x16db @0x11
0x16ca…16dc }
0x16dc…16e1 (76,) accf 2140
0x16dc…16e1 LineComal80 {
0x16dc…16e1 ptr = 0xaccf // 0x16dc @0x0
0x16dc…16e1 lno = 0x085c // 0x16de @0x2
0x16dc…16e1 at0004 = EOL // 0x16e0 @0x4
0x16dc…16e1 }
0x16e1…16f1 acdf 2150 PROC FEJL(ST$)
0x16e1…16f1 LineComal80 {
0x16e1…16f1 ptr = 0xacdf // 0x16e1 @0x0
0x16e1…16f1 lno = 0x0866 // 0x16e3 @0x2
0x16e1…16f1 at0004 = ╱9e21╱ PROC ╱ // 0x16e5 @0x4
0x16e1…16f1 at0006 = ╱46╱F╱ // 0x16e7 @0x6
0x16e1…16f1 at0007 = ╱45╱E╱ // 0x16e8 @0x7
0x16e1…16f1 at0008 = ╱4a╱J╱ // 0x16e9 @0x8
0x16e1…16f1 at0009 = ╱4c╱L╱ // 0x16ea @0x9
0x16e1…16f1 at000a = ╱ed╱(╱ // 0x16eb @0xa
0x16e1…16f1 at000b = ╱53╱S╱ // 0x16ec @0xb
0x16e1…16f1 at000c = ╱54╱T╱ // 0x16ed @0xc
0x16e1…16f1 at000d = ╱ef╱$╱ // 0x16ee @0xd
0x16e1…16f1 at000e = ╱ee╱)╱ // 0x16ef @0xe
0x16e1…16f1 at000f = EOL // 0x16f0 @0xf
0x16e1…16f1 }
0x16f1…16ff aced 2160 LET OK := FALSE
0x16f1…16ff LineComal80 {
0x16f1…16ff ptr = 0xaced // 0x16f1 @0x0
0x16f1…16ff lno = 0x0870 // 0x16f3 @0x2
0x16f1…16ff at0004 = ╱86╱ LET ╱ // 0x16f5 @0x4
0x16f1…16ff at0005 = ╱4f╱O╱ // 0x16f6 @0x5
0x16f1…16ff at0006 = ╱4b╱K╱ // 0x16f7 @0x6
0x16f1…16ff at0007 = ╱f0╱ := ╱ // 0x16f8 @0x7
0x16f1…16ff at0008 = ╱46╱F╱ // 0x16f9 @0x8
0x16f1…16ff at0009 = ╱41╱A╱ // 0x16fa @0x9
0x16f1…16ff at000a = ╱4c╱L╱ // 0x16fb @0xa
0x16f1…16ff at000b = ╱53╱S╱ // 0x16fc @0xb
0x16f1…16ff at000c = ╱45╱E╱ // 0x16fd @0xc
0x16f1…16ff at000d = EOL // 0x16fe @0xd
0x16f1…16ff }
0x16ff…171b ad09 2170 CURSOR 36 - ╱cb╱ (ST$) / 2,2
0x16ff…171b LineComal80 {
0x16ff…171b ptr = 0xad09 // 0x16ff @0x0
0x16ff…171b lno = 0x087a // 0x1701 @0x2
0x16ff…171b at0004 = ╱a1╱ CURSOR ╱ // 0x1703 @0x4
0x16ff…171b at0005 = ╱33╱3╱ // 0x1704 @0x5
0x16ff…171b at0006 = ╱36╱6╱ // 0x1705 @0x6
0x16ff…171b at0007 = ╱f22400╱ // 0x1706 @0x7
0x16ff…171b at000a = ╱e6╱ - ╱ // 0x1709 @0xa
0x16ff…171b at000b = ╱cb╱ // 0x170a @0xb
0x16ff…171b at000c = ╱ed╱(╱ // 0x170b @0xc
0x16ff…171b at000d = ╱53╱S╱ // 0x170c @0xd
0x16ff…171b at000e = ╱54╱T╱ // 0x170d @0xe
0x16ff…171b at000f = ╱ef╱$╱ // 0x170e @0xf
0x16ff…171b at0010 = ╱ee╱)╱ // 0x170f @0x10
0x16ff…171b at0011 = ╱e8╱ / ╱ // 0x1710 @0x11
0x16ff…171b at0012 = ╱32╱2╱ // 0x1711 @0x12
0x16ff…171b at0013 = ╱f20200╱ // 0x1712 @0x13
0x16ff…171b at0016 = ╱ec╱,╱ // 0x1715 @0x16
0x16ff…171b at0017 = ╱32╱2╱ // 0x1716 @0x17
0x16ff…171b at0018 = ╱f20200╱ // 0x1717 @0x18
0x16ff…171b at001b = EOL // 0x171a @0x1b
0x16ff…171b }
0x171b…173a ad28 2180 PRINT "*** " + ST$ + " ***" ; CHR$ (7)
0x171b…173a LineComal80 {
0x171b…173a ptr = 0xad28 // 0x171b @0x0
0x171b…173a lno = 0x0884 // 0x171d @0x2
0x171b…173a at0004 = ╱92╱ PRINT ╱ // 0x171f @0x4
0x171b…173a at0005 = ╱22╱"╱ // 0x1720 @0x5
0x171b…173a at0006 = ╱2a╱*╱ // 0x1721 @0x6
0x171b…173a at0007 = ╱2a╱*╱ // 0x1722 @0x7
0x171b…173a at0008 = ╱2a╱*╱ // 0x1723 @0x8
0x171b…173a at0009 = ╱20╱…╱ // 0x1724 @0x9
0x171b…173a at000a = ╱22╱"╱ // 0x1725 @0xa
0x171b…173a at000b = ╱eb╱ + ╱ // 0x1726 @0xb
0x171b…173a at000c = ╱53╱S╱ // 0x1727 @0xc
0x171b…173a at000d = ╱54╱T╱ // 0x1728 @0xd
0x171b…173a at000e = ╱ef╱$╱ // 0x1729 @0xe
0x171b…173a at000f = ╱eb╱ + ╱ // 0x172a @0xf
0x171b…173a at0010 = ╱22╱"╱ // 0x172b @0x10
0x171b…173a at0011 = ╱20╱…╱ // 0x172c @0x11
0x171b…173a at0012 = ╱2a╱*╱ // 0x172d @0x12
0x171b…173a at0013 = ╱2a╱*╱ // 0x172e @0x13
0x171b…173a at0014 = ╱2a╱*╱ // 0x172f @0x14
0x171b…173a at0015 = ╱22╱"╱ // 0x1730 @0x15
0x171b…173a at0016 = ╱ea╱ ; ╱ // 0x1731 @0x16
0x171b…173a at0017 = ╱d0╱ CHR$ ╱ // 0x1732 @0x17
0x171b…173a at0018 = ╱ed╱(╱ // 0x1733 @0x18
0x171b…173a at0019 = ╱37╱7╱ // 0x1734 @0x19
0x171b…173a at001a = ╱f20700╱ // 0x1735 @0x1a
0x171b…173a at001d = ╱ee╱)╱ // 0x1738 @0x1d
0x171b…173a at001e = EOL // 0x1739 @0x1e
0x171b…173a }
0x173a…1744 ad32 2190 ENDPROC FEJL
0x173a…1744 LineComal80 {
0x173a…1744 ptr = 0xad32 // 0x173a @0x0
0x173a…1744 lno = 0x088e // 0x173c @0x2
0x173a…1744 at0004 = ╱9f╱ ENDPROC ╱ // 0x173e @0x4
0x173a…1744 at0005 = ╱46╱F╱ // 0x173f @0x5
0x173a…1744 at0006 = ╱45╱E╱ // 0x1740 @0x6
0x173a…1744 at0007 = ╱4a╱J╱ // 0x1741 @0x7
0x173a…1744 at0008 = ╱4c╱L╱ // 0x1742 @0x8
0x173a…1744 at0009 = EOL // 0x1743 @0x9
0x173a…1744 }
0x1744…1749 ad37 2200
0x1744…1749 LineComal80 {
0x1744…1749 ptr = 0xad37 // 0x1744 @0x0
0x1744…1749 lno = 0x0898 // 0x1746 @0x2
0x1744…1749 at0004 = EOL // 0x1748 @0x4
0x1744…1749 }
0x1749…175a d7ae 2210 PROC RET_LINIER
0x1749…175a LineComal80 {
0x1749…175a ptr = 0xd7ae // 0x1749 @0x0
0x1749…175a lno = 0x08a2 // 0x174b @0x2
0x1749…175a at0004 = ╱9e22╱ PROC ╱ // 0x174d @0x4
0x1749…175a at0006 = ╱52╱R╱ // 0x174f @0x6
0x1749…175a at0007 = ╱45╱E╱ // 0x1750 @0x7
0x1749…175a at0008 = ╱54╱T╱ // 0x1751 @0x8
0x1749…175a at0009 = ╱5f╱_╱ // 0x1752 @0x9
0x1749…175a at000a = ╱4c╱L╱ // 0x1753 @0xa
0x1749…175a at000b = ╱49╱I╱ // 0x1754 @0xb
0x1749…175a at000c = ╱4e╱N╱ // 0x1755 @0xc
0x1749…175a at000d = ╱49╱I╱ // 0x1756 @0xd
0x1749…175a at000e = ╱45╱E╱ // 0x1757 @0xe
0x1749…175a at000f = ╱52╱R╱ // 0x1758 @0xf
0x1749…175a at0010 = EOL // 0x1759 @0x10
0x1749…175a }
0x175a…1761 ad4f 2220 REPEAT
0x175a…1761 LineComal80 {
0x175a…1761 ptr = 0xad4f // 0x175a @0x0
0x175a…1761 lno = 0x08ac // 0x175c @0x2
0x175a…1761 at0004 = ╱9723╱ REPEAT ╱ // 0x175e @0x4
0x175a…1761 at0006 = EOL // 0x1760 @0x6
0x175a…1761 }
0x1761…1782 ad70 2230 PRINT "<SC0123>" ; SPC$(1 : 78)
0x1761…1782 LineComal80 {
0x1761…1782 ptr = 0xad70 // 0x1761 @0x0
0x1761…1782 lno = 0x08b6 // 0x1763 @0x2
0x1761…1782 at0004 = ╱92╱ PRINT ╱ // 0x1765 @0x4
0x1761…1782 at0005 = ╱22╱"╱ // 0x1766 @0x5
0x1761…1782 at0006 = ╱3c╱<╱ // 0x1767 @0x6
0x1761…1782 at0007 = ╱53╱S╱ // 0x1768 @0x7
0x1761…1782 at0008 = ╱43╱C╱ // 0x1769 @0x8
0x1761…1782 at0009 = ╱30╱0╱ // 0x176a @0x9
0x1761…1782 at000a = ╱31╱1╱ // 0x176b @0xa
0x1761…1782 at000b = ╱32╱2╱ // 0x176c @0xb
0x1761…1782 at000c = ╱33╱3╱ // 0x176d @0xc
0x1761…1782 at000d = ╱3e╱>╱ // 0x176e @0xd
0x1761…1782 at000e = ╱22╱"╱ // 0x176f @0xe
0x1761…1782 at000f = ╱ea╱ ; ╱ // 0x1770 @0xf
0x1761…1782 at0010 = ╱53╱S╱ // 0x1771 @0x10
0x1761…1782 at0011 = ╱50╱P╱ // 0x1772 @0x11
0x1761…1782 at0012 = ╱43╱C╱ // 0x1773 @0x12
0x1761…1782 at0013 = ╱ef╱$╱ // 0x1774 @0x13
0x1761…1782 at0014 = ╱ed╱(╱ // 0x1775 @0x14
0x1761…1782 at0015 = ╱31╱1╱ // 0x1776 @0x15
0x1761…1782 at0016 = ╱f20100╱ // 0x1777 @0x16
0x1761…1782 at0019 = ╱f1╱ : ╱ // 0x177a @0x19
0x1761…1782 at001a = ╱37╱7╱ // 0x177b @0x1a
0x1761…1782 at001b = ╱38╱8╱ // 0x177c @0x1b
0x1761…1782 at001c = ╱f24e00╱ // 0x177d @0x1c
0x1761…1782 at001f = ╱ee╱)╱ // 0x1780 @0x1f
0x1761…1782 at0020 = EOL // 0x1781 @0x20
0x1761…1782 }
0x1782…1791 ad7f 2240 LET SVAR$ := "j"
0x1782…1791 LineComal80 {
0x1782…1791 ptr = 0xad7f // 0x1782 @0x0
0x1782…1791 lno = 0x08c0 // 0x1784 @0x2
0x1782…1791 at0004 = ╱86╱ LET ╱ // 0x1786 @0x4
0x1782…1791 at0005 = ╱53╱S╱ // 0x1787 @0x5
0x1782…1791 at0006 = ╱56╱V╱ // 0x1788 @0x6
0x1782…1791 at0007 = ╱41╱A╱ // 0x1789 @0x7
0x1782…1791 at0008 = ╱52╱R╱ // 0x178a @0x8
0x1782…1791 at0009 = ╱ef╱$╱ // 0x178b @0x9
0x1782…1791 at000a = ╱f0╱ := ╱ // 0x178c @0xa
0x1782…1791 at000b = ╱22╱"╱ // 0x178d @0xb
0x1782…1791 at000c = ╱6a╱j╱ // 0x178e @0xc
0x1782…1791 at000d = ╱22╱"╱ // 0x178f @0xd
0x1782…1791 at000e = EOL // 0x1790 @0xe
0x1782…1791 }
0x1791…17d1 adbf 2250 EDIT "<SC1723>Ok (j) eller linienummer der skal rettes? " : SVAR$
0x1791…17d1 LineComal80 {
0x1791…17d1 ptr = 0xadbf // 0x1791 @0x0
0x1791…17d1 lno = 0x08ca // 0x1793 @0x2
0x1791…17d1 at0004 = ╱b1╱ EDIT ╱ // 0x1795 @0x4
0x1791…17d1 at0005 = ╱22╱"╱ // 0x1796 @0x5
0x1791…17d1 at0006 = ╱3c╱<╱ // 0x1797 @0x6
0x1791…17d1 at0007 = ╱53╱S╱ // 0x1798 @0x7
0x1791…17d1 at0008 = ╱43╱C╱ // 0x1799 @0x8
0x1791…17d1 at0009 = ╱31╱1╱ // 0x179a @0x9
0x1791…17d1 at000a = ╱37╱7╱ // 0x179b @0xa
0x1791…17d1 at000b = ╱32╱2╱ // 0x179c @0xb
0x1791…17d1 at000c = ╱33╱3╱ // 0x179d @0xc
0x1791…17d1 at000d = ╱3e╱>╱ // 0x179e @0xd
0x1791…17d1 at000e = ╱4f╱O╱ // 0x179f @0xe
0x1791…17d1 at000f = ╱6b╱k╱ // 0x17a0 @0xf
0x1791…17d1 at0010 = ╱20╱…╱ // 0x17a1 @0x10
0x1791…17d1 at0011 = ╱28╱(╱ // 0x17a2 @0x11
0x1791…17d1 at0012 = ╱6a╱j╱ // 0x17a3 @0x12
0x1791…17d1 at0013 = ╱29╱)╱ // 0x17a4 @0x13
0x1791…17d1 at0014 = ╱20╱…╱ // 0x17a5 @0x14
0x1791…17d1 at0015 = ╱65╱e╱ // 0x17a6 @0x15
0x1791…17d1 at0016 = ╱6c╱l╱ // 0x17a7 @0x16
0x1791…17d1 at0017 = ╱6c╱l╱ // 0x17a8 @0x17
0x1791…17d1 at0018 = ╱65╱e╱ // 0x17a9 @0x18
0x1791…17d1 at0019 = ╱72╱r╱ // 0x17aa @0x19
0x1791…17d1 at001a = ╱20╱…╱ // 0x17ab @0x1a
0x1791…17d1 at001b = ╱6c╱l╱ // 0x17ac @0x1b
0x1791…17d1 at001c = ╱69╱i╱ // 0x17ad @0x1c
0x1791…17d1 at001d = ╱6e╱n╱ // 0x17ae @0x1d
0x1791…17d1 at001e = ╱69╱i╱ // 0x17af @0x1e
0x1791…17d1 at001f = ╱65╱e╱ // 0x17b0 @0x1f
0x1791…17d1 at0020 = ╱6e╱n╱ // 0x17b1 @0x20
0x1791…17d1 at0021 = ╱75╱u╱ // 0x17b2 @0x21
0x1791…17d1 at0022 = ╱6d╱m╱ // 0x17b3 @0x22
0x1791…17d1 at0023 = ╱6d╱m╱ // 0x17b4 @0x23
0x1791…17d1 at0024 = ╱65╱e╱ // 0x17b5 @0x24
0x1791…17d1 at0025 = ╱72╱r╱ // 0x17b6 @0x25
0x1791…17d1 at0026 = ╱20╱…╱ // 0x17b7 @0x26
0x1791…17d1 at0027 = ╱64╱d╱ // 0x17b8 @0x27
0x1791…17d1 at0028 = ╱65╱e╱ // 0x17b9 @0x28
0x1791…17d1 at0029 = ╱72╱r╱ // 0x17ba @0x29
0x1791…17d1 at002a = ╱20╱…╱ // 0x17bb @0x2a
0x1791…17d1 at002b = ╱73╱s╱ // 0x17bc @0x2b
0x1791…17d1 at002c = ╱6b╱k╱ // 0x17bd @0x2c
0x1791…17d1 at002d = ╱61╱a╱ // 0x17be @0x2d
0x1791…17d1 at002e = ╱6c╱l╱ // 0x17bf @0x2e
0x1791…17d1 at002f = ╱20╱…╱ // 0x17c0 @0x2f
0x1791…17d1 at0030 = ╱72╱r╱ // 0x17c1 @0x30
0x1791…17d1 at0031 = ╱65╱e╱ // 0x17c2 @0x31
0x1791…17d1 at0032 = ╱74╱t╱ // 0x17c3 @0x32
0x1791…17d1 at0033 = ╱74╱t╱ // 0x17c4 @0x33
0x1791…17d1 at0034 = ╱65╱e╱ // 0x17c5 @0x34
0x1791…17d1 at0035 = ╱73╱s╱ // 0x17c6 @0x35
0x1791…17d1 at0036 = ╱3f╱?╱ // 0x17c7 @0x36
0x1791…17d1 at0037 = ╱20╱…╱ // 0x17c8 @0x37
0x1791…17d1 at0038 = ╱22╱"╱ // 0x17c9 @0x38
0x1791…17d1 at0039 = ╱f1╱ : ╱ // 0x17ca @0x39
0x1791…17d1 at003a = ╱53╱S╱ // 0x17cb @0x3a
0x1791…17d1 at003b = ╱56╱V╱ // 0x17cc @0x3b
0x1791…17d1 at003c = ╱41╱A╱ // 0x17cd @0x3c
0x1791…17d1 at003d = ╱52╱R╱ // 0x17ce @0x3d
0x1791…17d1 at003e = ╱ef╱$╱ // 0x17cf @0x3e
0x1791…17d1 at003f = EOL // 0x17d0 @0x3f
0x1791…17d1 }
0x17d1…17ef addd 2260 IF "/" + SVAR$ + "/" IN "/J/j/" THEN
0x17d1…17ef LineComal80 {
0x17d1…17ef ptr = 0xaddd // 0x17d1 @0x0
0x17d1…17ef lno = 0x08d4 // 0x17d3 @0x2
0x17d1…17ef at0004 = ╱9b24d7╱ IF ╱ // 0x17d5 @0x4
0x17d1…17ef at0007 = ╱22╱"╱ // 0x17d8 @0x7
0x17d1…17ef at0008 = ╱2f╱/╱ // 0x17d9 @0x8
0x17d1…17ef at0009 = ╱22╱"╱ // 0x17da @0x9
0x17d1…17ef at000a = ╱eb╱ + ╱ // 0x17db @0xa
0x17d1…17ef at000b = ╱53╱S╱ // 0x17dc @0xb
0x17d1…17ef at000c = ╱56╱V╱ // 0x17dd @0xc
0x17d1…17ef at000d = ╱41╱A╱ // 0x17de @0xd
0x17d1…17ef at000e = ╱52╱R╱ // 0x17df @0xe
0x17d1…17ef at000f = ╱ef╱$╱ // 0x17e0 @0xf
0x17d1…17ef at0010 = ╱eb╱ + ╱ // 0x17e1 @0x10
0x17d1…17ef at0011 = ╱22╱"╱ // 0x17e2 @0x11
0x17d1…17ef at0012 = ╱2f╱/╱ // 0x17e3 @0x12
0x17d1…17ef at0013 = ╱22╱"╱ // 0x17e4 @0x13
0x17d1…17ef at0014 = ╱dc╱ IN ╱ // 0x17e5 @0x14
0x17d1…17ef at0015 = ╱22╱"╱ // 0x17e6 @0x15
0x17d1…17ef at0016 = ╱2f╱/╱ // 0x17e7 @0x16
0x17d1…17ef at0017 = ╱4a╱J╱ // 0x17e8 @0x17
0x17d1…17ef at0018 = ╱2f╱/╱ // 0x17e9 @0x18
0x17d1…17ef at0019 = ╱6a╱j╱ // 0x17ea @0x19
0x17d1…17ef at001a = ╱2f╱/╱ // 0x17eb @0x1a
0x17d1…17ef at001b = ╱22╱"╱ // 0x17ec @0x1b
0x17d1…17ef at001c = ╱b5╱ THEN ╱ // 0x17ed @0x1c
0x17d1…17ef at001d = EOL // 0x17ee @0x1d
0x17d1…17ef }
0x17ef…1807 adf5 2270 EXEC TAL_CONTROL(SVAR$)
0x17ef…1807 LineComal80 {
0x17ef…1807 ptr = 0xadf5 // 0x17ef @0x0
0x17ef…1807 lno = 0x08de // 0x17f1 @0x2
0x17ef…1807 at0004 = ╱9d╱ EXEC ╱ // 0x17f3 @0x4
0x17ef…1807 at0005 = ╱54╱T╱ // 0x17f4 @0x5
0x17ef…1807 at0006 = ╱41╱A╱ // 0x17f5 @0x6
0x17ef…1807 at0007 = ╱4c╱L╱ // 0x17f6 @0x7
0x17ef…1807 at0008 = ╱5f╱_╱ // 0x17f7 @0x8
0x17ef…1807 at0009 = ╱43╱C╱ // 0x17f8 @0x9
0x17ef…1807 at000a = ╱4f╱O╱ // 0x17f9 @0xa
0x17ef…1807 at000b = ╱4e╱N╱ // 0x17fa @0xb
0x17ef…1807 at000c = ╱54╱T╱ // 0x17fb @0xc
0x17ef…1807 at000d = ╱52╱R╱ // 0x17fc @0xd
0x17ef…1807 at000e = ╱4f╱O╱ // 0x17fd @0xe
0x17ef…1807 at000f = ╱4c╱L╱ // 0x17fe @0xf
0x17ef…1807 at0010 = ╱ed╱(╱ // 0x17ff @0x10
0x17ef…1807 at0011 = ╱53╱S╱ // 0x1800 @0x11
0x17ef…1807 at0012 = ╱56╱V╱ // 0x1801 @0x12
0x17ef…1807 at0013 = ╱41╱A╱ // 0x1802 @0x13
0x17ef…1807 at0014 = ╱52╱R╱ // 0x1803 @0x14
0x17ef…1807 at0015 = ╱ef╱$╱ // 0x1804 @0x15
0x17ef…1807 at0016 = ╱ee╱)╱ // 0x1805 @0x16
0x17ef…1807 at0017 = EOL // 0x1806 @0x17
0x17ef…1807 }
0x1807…1811 adff 2280 IF K THEN
0x1807…1811 LineComal80 {
0x1807…1811 ptr = 0xadff // 0x1807 @0x0
0x1807…1811 lno = 0x08e8 // 0x1809 @0x2
0x1807…1811 at0004 = ╱9b254f╱ IF ╱ // 0x180b @0x4
0x1807…1811 at0007 = ╱4b╱K╱ // 0x180e @0x7
0x1807…1811 at0008 = ╱b5╱ THEN ╱ // 0x180f @0x8
0x1807…1811 at0009 = EOL // 0x1810 @0x9
0x1807…1811 }
0x1811…1838 ae26 2290 IF (SVAR$) < P_HØJREC AND ASC (SVAR$) > 0 THEN
0x1811…1838 LineComal80 {
0x1811…1838 ptr = 0xae26 // 0x1811 @0x0
0x1811…1838 lno = 0x08f2 // 0x1813 @0x2
0x1811…1838 at0004 = ╱9b26cf╱ IF ╱ // 0x1815 @0x4
0x1811…1838 at0007 = ╱ed╱(╱ // 0x1818 @0x7
0x1811…1838 at0008 = ╱53╱S╱ // 0x1819 @0x8
0x1811…1838 at0009 = ╱56╱V╱ // 0x181a @0x9
0x1811…1838 at000a = ╱41╱A╱ // 0x181b @0xa
0x1811…1838 at000b = ╱52╱R╱ // 0x181c @0xb
0x1811…1838 at000c = ╱ef╱$╱ // 0x181d @0xc
0x1811…1838 at000d = ╱ee╱)╱ // 0x181e @0xd
0x1811…1838 at000e = ╱e0╱ < ╱ // 0x181f @0xe
0x1811…1838 at000f = ╱50╱P╱ // 0x1820 @0xf
0x1811…1838 at0010 = ╱5f╱_╱ // 0x1821 @0x10
0x1811…1838 at0011 = ╱48╱H╱ // 0x1822 @0x11
0x1811…1838 at0012 = ╱5c╱Ø╱ // 0x1823 @0x12
0x1811…1838 at0013 = ╱4a╱J╱ // 0x1824 @0x13
0x1811…1838 at0014 = ╱52╱R╱ // 0x1825 @0x14
0x1811…1838 at0015 = ╱45╱E╱ // 0x1826 @0x15
0x1811…1838 at0016 = ╱43╱C╱ // 0x1827 @0x16
0x1811…1838 at0017 = ╱d9╱ AND ╱ // 0x1828 @0x17
0x1811…1838 at0018 = ╱cf╱ ASC ╱ // 0x1829 @0x18
0x1811…1838 at0019 = ╱ed╱(╱ // 0x182a @0x19
0x1811…1838 at001a = ╱53╱S╱ // 0x182b @0x1a
0x1811…1838 at001b = ╱56╱V╱ // 0x182c @0x1b
0x1811…1838 at001c = ╱41╱A╱ // 0x182d @0x1c
0x1811…1838 at001d = ╱52╱R╱ // 0x182e @0x1d
0x1811…1838 at001e = ╱ef╱$╱ // 0x182f @0x1e
0x1811…1838 at001f = ╱ee╱)╱ // 0x1830 @0x1f
0x1811…1838 at0020 = ╱e1╱ > ╱ // 0x1831 @0x20
0x1811…1838 at0021 = ╱30╱0╱ // 0x1832 @0x21
0x1811…1838 at0022 = ╱f20000╱ // 0x1833 @0x22
0x1811…1838 at0025 = ╱b5╱ THEN ╱ // 0x1836 @0x25
0x1811…1838 at0026 = EOL // 0x1837 @0x26
0x1811…1838 }
0x1838…1850 ae3e 2300 EXEC EDIT_LIN( ASC (SVAR$))
0x1838…1850 LineComal80 {
0x1838…1850 ptr = 0xae3e // 0x1838 @0x0
0x1838…1850 lno = 0x08fc // 0x183a @0x2
0x1838…1850 at0004 = ╱9d╱ EXEC ╱ // 0x183c @0x4
0x1838…1850 at0005 = ╱45╱E╱ // 0x183d @0x5
0x1838…1850 at0006 = ╱44╱D╱ // 0x183e @0x6
0x1838…1850 at0007 = ╱49╱I╱ // 0x183f @0x7
0x1838…1850 at0008 = ╱54╱T╱ // 0x1840 @0x8
0x1838…1850 at0009 = ╱5f╱_╱ // 0x1841 @0x9
0x1838…1850 at000a = ╱4c╱L╱ // 0x1842 @0xa
0x1838…1850 at000b = ╱49╱I╱ // 0x1843 @0xb
0x1838…1850 at000c = ╱4e╱N╱ // 0x1844 @0xc
0x1838…1850 at000d = ╱ed╱(╱ // 0x1845 @0xd
0x1838…1850 at000e = ╱cf╱ ASC ╱ // 0x1846 @0xe
0x1838…1850 at000f = ╱ed╱(╱ // 0x1847 @0xf
0x1838…1850 at0010 = ╱53╱S╱ // 0x1848 @0x10
0x1838…1850 at0011 = ╱56╱V╱ // 0x1849 @0x11
0x1838…1850 at0012 = ╱41╱A╱ // 0x184a @0x12
0x1838…1850 at0013 = ╱52╱R╱ // 0x184b @0x13
0x1838…1850 at0014 = ╱ef╱$╱ // 0x184c @0x14
0x1838…1850 at0015 = ╱ee╱)╱ // 0x184d @0x15
0x1838…1850 at0016 = ╱ee╱)╱ // 0x184e @0x16
0x1838…1850 at0017 = EOL // 0x184f @0x17
0x1838…1850 }
0x1850…1856 ae44 2310 ENDIF
0x1850…1856 LineComal80 {
0x1850…1856 ptr = 0xae44 // 0x1850 @0x0
0x1850…1856 lno = 0x0906 // 0x1852 @0x2
0x1850…1856 at0004 = ╱9c╱ ENDIF ╱ // 0x1854 @0x4
0x1850…1856 at0005 = EOL // 0x1855 @0x5
0x1850…1856 }
0x1856…185c ae4a 2320 ENDIF
0x1856…185c LineComal80 {
0x1856…185c ptr = 0xae4a // 0x1856 @0x0
0x1856…185c lno = 0x0910 // 0x1858 @0x2
0x1856…185c at0004 = ╱9c╱ ENDIF ╱ // 0x185a @0x4
0x1856…185c at0005 = EOL // 0x185b @0x5
0x1856…185c }
0x185c…1862 ae50 2330 ENDIF
0x185c…1862 LineComal80 {
0x185c…1862 ptr = 0xae50 // 0x185c @0x0
0x185c…1862 lno = 0x091a // 0x185e @0x2
0x185c…1862 at0004 = ╱9c╱ ENDIF ╱ // 0x1860 @0x4
0x185c…1862 at0005 = EOL // 0x1861 @0x5
0x185c…1862 }
0x1862…187d ae6b 2340 UNTIL "/" + SVAR$ + "/" IN "/J/j/"
0x1862…187d LineComal80 {
0x1862…187d ptr = 0xae6b // 0x1862 @0x0
0x1862…187d lno = 0x0924 // 0x1864 @0x2
0x1862…187d at0004 = ╱98╱ UNTIL ╱ // 0x1866 @0x4
0x1862…187d at0005 = ╱22╱"╱ // 0x1867 @0x5
0x1862…187d at0006 = ╱2f╱/╱ // 0x1868 @0x6
0x1862…187d at0007 = ╱22╱"╱ // 0x1869 @0x7
0x1862…187d at0008 = ╱eb╱ + ╱ // 0x186a @0x8
0x1862…187d at0009 = ╱53╱S╱ // 0x186b @0x9
0x1862…187d at000a = ╱56╱V╱ // 0x186c @0xa
0x1862…187d at000b = ╱41╱A╱ // 0x186d @0xb
0x1862…187d at000c = ╱52╱R╱ // 0x186e @0xc
0x1862…187d at000d = ╱ef╱$╱ // 0x186f @0xd
0x1862…187d at000e = ╱eb╱ + ╱ // 0x1870 @0xe
0x1862…187d at000f = ╱22╱"╱ // 0x1871 @0xf
0x1862…187d at0010 = ╱2f╱/╱ // 0x1872 @0x10
0x1862…187d at0011 = ╱22╱"╱ // 0x1873 @0x11
0x1862…187d at0012 = ╱dc╱ IN ╱ // 0x1874 @0x12
0x1862…187d at0013 = ╱22╱"╱ // 0x1875 @0x13
0x1862…187d at0014 = ╱2f╱/╱ // 0x1876 @0x14
0x1862…187d at0015 = ╱4a╱J╱ // 0x1877 @0x15
0x1862…187d at0016 = ╱2f╱/╱ // 0x1878 @0x16
0x1862…187d at0017 = ╱6a╱j╱ // 0x1879 @0x17
0x1862…187d at0018 = ╱2f╱/╱ // 0x187a @0x18
0x1862…187d at0019 = ╱22╱"╱ // 0x187b @0x19
0x1862…187d at001a = EOL // 0x187c @0x1a
0x1862…187d }
0x187d…188d ae7b 2350 ENDPROC RET_LINIER
0x187d…188d LineComal80 {
0x187d…188d ptr = 0xae7b // 0x187d @0x0
0x187d…188d lno = 0x092e // 0x187f @0x2
0x187d…188d at0004 = ╱9f╱ ENDPROC ╱ // 0x1881 @0x4
0x187d…188d at0005 = ╱52╱R╱ // 0x1882 @0x5
0x187d…188d at0006 = ╱45╱E╱ // 0x1883 @0x6
0x187d…188d at0007 = ╱54╱T╱ // 0x1884 @0x7
0x187d…188d at0008 = ╱5f╱_╱ // 0x1885 @0x8
0x187d…188d at0009 = ╱4c╱L╱ // 0x1886 @0x9
0x187d…188d at000a = ╱49╱I╱ // 0x1887 @0xa
0x187d…188d at000b = ╱4e╱N╱ // 0x1888 @0xb
0x187d…188d at000c = ╱49╱I╱ // 0x1889 @0xc
0x187d…188d at000d = ╱45╱E╱ // 0x188a @0xd
0x187d…188d at000e = ╱52╱R╱ // 0x188b @0xe
0x187d…188d at000f = EOL // 0x188c @0xf
0x187d…188d }
0x188d…1892 ae80 2360
0x188d…1892 LineComal80 {
0x188d…1892 ptr = 0xae80 // 0x188d @0x0
0x188d…1892 lno = 0x0938 // 0x188f @0x2
0x188d…1892 at0004 = EOL // 0x1891 @0x4
0x188d…1892 }
0x1892…18a5 ae93 2370 PROC LÆS_KONTO(P)
0x1892…18a5 LineComal80 {
0x1892…18a5 ptr = 0xae93 // 0x1892 @0x0
0x1892…18a5 lno = 0x0942 // 0x1894 @0x2
0x1892…18a5 at0004 = ╱9e27╱ PROC ╱ // 0x1896 @0x4
0x1892…18a5 at0006 = ╱4c╱L╱ // 0x1898 @0x6
0x1892…18a5 at0007 = ╱5b╱Æ╱ // 0x1899 @0x7
0x1892…18a5 at0008 = ╱53╱S╱ // 0x189a @0x8
0x1892…18a5 at0009 = ╱5f╱_╱ // 0x189b @0x9
0x1892…18a5 at000a = ╱4b╱K╱ // 0x189c @0xa
0x1892…18a5 at000b = ╱4f╱O╱ // 0x189d @0xb
0x1892…18a5 at000c = ╱4e╱N╱ // 0x189e @0xc
0x1892…18a5 at000d = ╱54╱T╱ // 0x189f @0xd
0x1892…18a5 at000e = ╱4f╱O╱ // 0x18a0 @0xe
0x1892…18a5 at000f = ╱ed╱(╱ // 0x18a1 @0xf
0x1892…18a5 at0010 = ╱50╱P╱ // 0x18a2 @0x10
0x1892…18a5 at0011 = ╱ee╱)╱ // 0x18a3 @0x11
0x1892…18a5 at0012 = EOL // 0x18a4 @0x12
0x1892…18a5 }
0x18a5…18ea aed8 2380 GET KONTO$,P : KTO_TYPE$,KTO_NAVN$,KTO_PRIMO,KTO_ULTIMO,KTO_FP,KTO_SP
0x18a5…18ea LineComal80 {
0x18a5…18ea ptr = 0xaed8 // 0x18a5 @0x0
0x18a5…18ea lno = 0x094c // 0x18a7 @0x2
0x18a5…18ea at0004 = ╱a9╱ GET ╱ // 0x18a9 @0x4
0x18a5…18ea at0005 = ╱4b╱K╱ // 0x18aa @0x5
0x18a5…18ea at0006 = ╱4f╱O╱ // 0x18ab @0x6
0x18a5…18ea at0007 = ╱4e╱N╱ // 0x18ac @0x7
0x18a5…18ea at0008 = ╱54╱T╱ // 0x18ad @0x8
0x18a5…18ea at0009 = ╱4f╱O╱ // 0x18ae @0x9
0x18a5…18ea at000a = ╱ef╱$╱ // 0x18af @0xa
0x18a5…18ea at000b = ╱ec╱,╱ // 0x18b0 @0xb
0x18a5…18ea at000c = ╱50╱P╱ // 0x18b1 @0xc
0x18a5…18ea at000d = ╱f1╱ : ╱ // 0x18b2 @0xd
0x18a5…18ea at000e = ╱4b╱K╱ // 0x18b3 @0xe
0x18a5…18ea at000f = ╱54╱T╱ // 0x18b4 @0xf
0x18a5…18ea at0010 = ╱4f╱O╱ // 0x18b5 @0x10
0x18a5…18ea at0011 = ╱5f╱_╱ // 0x18b6 @0x11
0x18a5…18ea at0012 = ╱54╱T╱ // 0x18b7 @0x12
0x18a5…18ea at0013 = ╱59╱Y╱ // 0x18b8 @0x13
0x18a5…18ea at0014 = ╱50╱P╱ // 0x18b9 @0x14
0x18a5…18ea at0015 = ╱45╱E╱ // 0x18ba @0x15
0x18a5…18ea at0016 = ╱ef╱$╱ // 0x18bb @0x16
0x18a5…18ea at0017 = ╱ec╱,╱ // 0x18bc @0x17
0x18a5…18ea at0018 = ╱4b╱K╱ // 0x18bd @0x18
0x18a5…18ea at0019 = ╱54╱T╱ // 0x18be @0x19
0x18a5…18ea at001a = ╱4f╱O╱ // 0x18bf @0x1a
0x18a5…18ea at001b = ╱5f╱_╱ // 0x18c0 @0x1b
0x18a5…18ea at001c = ╱4e╱N╱ // 0x18c1 @0x1c
0x18a5…18ea at001d = ╱41╱A╱ // 0x18c2 @0x1d
0x18a5…18ea at001e = ╱56╱V╱ // 0x18c3 @0x1e
0x18a5…18ea at001f = ╱4e╱N╱ // 0x18c4 @0x1f
0x18a5…18ea at0020 = ╱ef╱$╱ // 0x18c5 @0x20
0x18a5…18ea at0021 = ╱ec╱,╱ // 0x18c6 @0x21
0x18a5…18ea at0022 = ╱4b╱K╱ // 0x18c7 @0x22
0x18a5…18ea at0023 = ╱54╱T╱ // 0x18c8 @0x23
0x18a5…18ea at0024 = ╱4f╱O╱ // 0x18c9 @0x24
0x18a5…18ea at0025 = ╱5f╱_╱ // 0x18ca @0x25
0x18a5…18ea at0026 = ╱50╱P╱ // 0x18cb @0x26
0x18a5…18ea at0027 = ╱52╱R╱ // 0x18cc @0x27
0x18a5…18ea at0028 = ╱49╱I╱ // 0x18cd @0x28
0x18a5…18ea at0029 = ╱4d╱M╱ // 0x18ce @0x29
0x18a5…18ea at002a = ╱4f╱O╱ // 0x18cf @0x2a
0x18a5…18ea at002b = ╱ec╱,╱ // 0x18d0 @0x2b
0x18a5…18ea at002c = ╱4b╱K╱ // 0x18d1 @0x2c
0x18a5…18ea at002d = ╱54╱T╱ // 0x18d2 @0x2d
0x18a5…18ea at002e = ╱4f╱O╱ // 0x18d3 @0x2e
0x18a5…18ea at002f = ╱5f╱_╱ // 0x18d4 @0x2f
0x18a5…18ea at0030 = ╱55╱U╱ // 0x18d5 @0x30
0x18a5…18ea at0031 = ╱4c╱L╱ // 0x18d6 @0x31
0x18a5…18ea at0032 = ╱54╱T╱ // 0x18d7 @0x32
0x18a5…18ea at0033 = ╱49╱I╱ // 0x18d8 @0x33
0x18a5…18ea at0034 = ╱4d╱M╱ // 0x18d9 @0x34
0x18a5…18ea at0035 = ╱4f╱O╱ // 0x18da @0x35
0x18a5…18ea at0036 = ╱ec╱,╱ // 0x18db @0x36
0x18a5…18ea at0037 = ╱4b╱K╱ // 0x18dc @0x37
0x18a5…18ea at0038 = ╱54╱T╱ // 0x18dd @0x38
0x18a5…18ea at0039 = ╱4f╱O╱ // 0x18de @0x39
0x18a5…18ea at003a = ╱5f╱_╱ // 0x18df @0x3a
0x18a5…18ea at003b = ╱46╱F╱ // 0x18e0 @0x3b
0x18a5…18ea at003c = ╱50╱P╱ // 0x18e1 @0x3c
0x18a5…18ea at003d = ╱ec╱,╱ // 0x18e2 @0x3d
0x18a5…18ea at003e = ╱4b╱K╱ // 0x18e3 @0x3e
0x18a5…18ea at003f = ╱54╱T╱ // 0x18e4 @0x3f
0x18a5…18ea at0040 = ╱4f╱O╱ // 0x18e5 @0x40
0x18a5…18ea at0041 = ╱5f╱_╱ // 0x18e6 @0x41
0x18a5…18ea at0042 = ╱53╱S╱ // 0x18e7 @0x42
0x18a5…18ea at0043 = ╱50╱P╱ // 0x18e8 @0x43
0x18a5…18ea at0044 = EOL // 0x18e9 @0x44
0x18a5…18ea }
0x18ea…18f9 aee7 2390 ENDPROC LÆS_KONTO
0x18ea…18f9 LineComal80 {
0x18ea…18f9 ptr = 0xaee7 // 0x18ea @0x0
0x18ea…18f9 lno = 0x0956 // 0x18ec @0x2
0x18ea…18f9 at0004 = ╱9f╱ ENDPROC ╱ // 0x18ee @0x4
0x18ea…18f9 at0005 = ╱4c╱L╱ // 0x18ef @0x5
0x18ea…18f9 at0006 = ╱5b╱Æ╱ // 0x18f0 @0x6
0x18ea…18f9 at0007 = ╱53╱S╱ // 0x18f1 @0x7
0x18ea…18f9 at0008 = ╱5f╱_╱ // 0x18f2 @0x8
0x18ea…18f9 at0009 = ╱4b╱K╱ // 0x18f3 @0x9
0x18ea…18f9 at000a = ╱4f╱O╱ // 0x18f4 @0xa
0x18ea…18f9 at000b = ╱4e╱N╱ // 0x18f5 @0xb
0x18ea…18f9 at000c = ╱54╱T╱ // 0x18f6 @0xc
0x18ea…18f9 at000d = ╱4f╱O╱ // 0x18f7 @0xd
0x18ea…18f9 at000e = EOL // 0x18f8 @0xe
0x18ea…18f9 }
0x18f9…18fe aeec 2400
0x18f9…18fe LineComal80 {
0x18f9…18fe ptr = 0xaeec // 0x18f9 @0x0
0x18f9…18fe lno = 0x0960 // 0x18fb @0x2
0x18f9…18fe at0004 = EOL // 0x18fd @0x4
0x18f9…18fe }
0x18fe…1913 af01 2410 PROC ST_BGST( REF RST$)
0x18fe…1913 LineComal80 {
0x18fe…1913 ptr = 0xaf01 // 0x18fe @0x0
0x18fe…1913 lno = 0x096a // 0x1900 @0x2
0x18fe…1913 at0004 = ╱9e28╱ PROC ╱ // 0x1902 @0x4
0x18fe…1913 at0006 = ╱53╱S╱ // 0x1904 @0x6
0x18fe…1913 at0007 = ╱54╱T╱ // 0x1905 @0x7
0x18fe…1913 at0008 = ╱5f╱_╱ // 0x1906 @0x8
0x18fe…1913 at0009 = ╱42╱B╱ // 0x1907 @0x9
0x18fe…1913 at000a = ╱47╱G╱ // 0x1908 @0xa
0x18fe…1913 at000b = ╱53╱S╱ // 0x1909 @0xb
0x18fe…1913 at000c = ╱54╱T╱ // 0x190a @0xc
0x18fe…1913 at000d = ╱ed╱(╱ // 0x190b @0xd
0x18fe…1913 at000e = ╱b6╱ REF ╱ // 0x190c @0xe
0x18fe…1913 at000f = ╱52╱R╱ // 0x190d @0xf
0x18fe…1913 at0010 = ╱53╱S╱ // 0x190e @0x10
0x18fe…1913 at0011 = ╱54╱T╱ // 0x190f @0x11
0x18fe…1913 at0012 = ╱ef╱$╱ // 0x1910 @0x12
0x18fe…1913 at0013 = ╱ee╱)╱ // 0x1911 @0x13
0x18fe…1913 at0014 = EOL // 0x1912 @0x14
0x18fe…1913 }
0x1913…1929 af17 2420 FOR I := 1 TO (RST$) DO
0x1913…1929 LineComal80 {
0x1913…1929 ptr = 0xaf17 // 0x1913 @0x0
0x1913…1929 lno = 0x0974 // 0x1915 @0x2
0x1913…1929 at0004 = ╱8329╱ FOR ╱ // 0x1917 @0x4
0x1913…1929 at0006 = ╱49╱I╱ // 0x1919 @0x6
0x1913…1929 at0007 = ╱f0╱ := ╱ // 0x191a @0x7
0x1913…1929 at0008 = ╱31╱1╱ // 0x191b @0x8
0x1913…1929 at0009 = ╱f20100╱ // 0x191c @0x9
0x1913…1929 at000c = ╱b7cb╱ TO ╱ // 0x191f @0xc
0x1913…1929 at000e = ╱ed╱(╱ // 0x1921 @0xe
0x1913…1929 at000f = ╱52╱R╱ // 0x1922 @0xf
0x1913…1929 at0010 = ╱53╱S╱ // 0x1923 @0x10
0x1913…1929 at0011 = ╱54╱T╱ // 0x1924 @0x11
0x1913…1929 at0012 = ╱ef╱$╱ // 0x1925 @0x12
0x1913…1929 at0013 = ╱ee╱)╱ // 0x1926 @0x13
0x1913…1929 at0014 = ╱bb╱ DO ╱ // 0x1927 @0x14
0x1913…1929 at0015 = EOL // 0x1928 @0x15
0x1913…1929 }
0x1929…1964 af52 2430 IF RST$(I) =< "å" AND RST$(I) >= "a" THEN LET RST$(I) := CHR$ ( ╱cc╱ (RST$(I)) - 32)
0x1929…1964 LineComal80 {
0x1929…1964 ptr = 0xaf52 // 0x1929 @0x0
0x1929…1964 lno = 0x097e // 0x192b @0x2
0x1929…1964 at0004 = ╱8200╱ IF ╱ // 0x192d @0x4
0x1929…1964 at0006 = ╱52╱R╱ // 0x192f @0x6
0x1929…1964 at0007 = ╱53╱S╱ // 0x1930 @0x7
0x1929…1964 at0008 = ╱54╱T╱ // 0x1931 @0x8
0x1929…1964 at0009 = ╱ef╱$╱ // 0x1932 @0x9
0x1929…1964 at000a = ╱ed╱(╱ // 0x1933 @0xa
0x1929…1964 at000b = ╱49╱I╱ // 0x1934 @0xb
0x1929…1964 at000c = ╱ee╱)╱ // 0x1935 @0xc
0x1929…1964 at000d = ╱e2╱ =< ╱ // 0x1936 @0xd
0x1929…1964 at000e = ╱22╱"╱ // 0x1937 @0xe
0x1929…1964 at000f = ╱7d╱å╱ // 0x1938 @0xf
0x1929…1964 at0010 = ╱22╱"╱ // 0x1939 @0x10
0x1929…1964 at0011 = ╱d9╱ AND ╱ // 0x193a @0x11
0x1929…1964 at0012 = ╱52╱R╱ // 0x193b @0x12
0x1929…1964 at0013 = ╱53╱S╱ // 0x193c @0x13
0x1929…1964 at0014 = ╱54╱T╱ // 0x193d @0x14
0x1929…1964 at0015 = ╱ef╱$╱ // 0x193e @0x15
0x1929…1964 at0016 = ╱ed╱(╱ // 0x193f @0x16
0x1929…1964 at0017 = ╱49╱I╱ // 0x1940 @0x17
0x1929…1964 at0018 = ╱ee╱)╱ // 0x1941 @0x18
0x1929…1964 at0019 = ╱e3╱ >= ╱ // 0x1942 @0x19
0x1929…1964 at001a = ╱22╱"╱ // 0x1943 @0x1a
0x1929…1964 at001b = ╱61╱a╱ // 0x1944 @0x1b
0x1929…1964 at001c = ╱22╱"╱ // 0x1945 @0x1c
0x1929…1964 at001d = ╱b5╱ THEN ╱ // 0x1946 @0x1d
0x1929…1964 at001e = ╱86╱ LET ╱ // 0x1947 @0x1e
0x1929…1964 at001f = ╱52╱R╱ // 0x1948 @0x1f
0x1929…1964 at0020 = ╱53╱S╱ // 0x1949 @0x20
0x1929…1964 at0021 = ╱54╱T╱ // 0x194a @0x21
0x1929…1964 at0022 = ╱ef╱$╱ // 0x194b @0x22
0x1929…1964 at0023 = ╱ed╱(╱ // 0x194c @0x23
0x1929…1964 at0024 = ╱49╱I╱ // 0x194d @0x24
0x1929…1964 at0025 = ╱ee╱)╱ // 0x194e @0x25
0x1929…1964 at0026 = ╱f0╱ := ╱ // 0x194f @0x26
0x1929…1964 at0027 = ╱d0╱ CHR$ ╱ // 0x1950 @0x27
0x1929…1964 at0028 = ╱ed╱(╱ // 0x1951 @0x28
0x1929…1964 at0029 = ╱cc╱ // 0x1952 @0x29
0x1929…1964 at002a = ╱ed╱(╱ // 0x1953 @0x2a
0x1929…1964 at002b = ╱52╱R╱ // 0x1954 @0x2b
0x1929…1964 at002c = ╱53╱S╱ // 0x1955 @0x2c
0x1929…1964 at002d = ╱54╱T╱ // 0x1956 @0x2d
0x1929…1964 at002e = ╱ef╱$╱ // 0x1957 @0x2e
0x1929…1964 at002f = ╱ed╱(╱ // 0x1958 @0x2f
0x1929…1964 at0030 = ╱49╱I╱ // 0x1959 @0x30
0x1929…1964 at0031 = ╱ee╱)╱ // 0x195a @0x31
0x1929…1964 at0032 = ╱ee╱)╱ // 0x195b @0x32
0x1929…1964 at0033 = ╱e6╱ - ╱ // 0x195c @0x33
0x1929…1964 at0034 = ╱33╱3╱ // 0x195d @0x34
0x1929…1964 at0035 = ╱32╱2╱ // 0x195e @0x35
0x1929…1964 at0036 = ╱f22000╱ // 0x195f @0x36
0x1929…1964 at0039 = ╱ee╱)╱ // 0x1962 @0x39
0x1929…1964 at003a = EOL // 0x1963 @0x3a
0x1929…1964 }
0x1964…196b af59 2440 NEXT I
0x1964…196b LineComal80 {
0x1964…196b ptr = 0xaf59 // 0x1964 @0x0
0x1964…196b lno = 0x0988 // 0x1966 @0x2
0x1964…196b at0004 = ╱84╱ NEXT ╱ // 0x1968 @0x4
0x1964…196b at0005 = ╱49╱I╱ // 0x1969 @0x5
0x1964…196b at0006 = EOL // 0x196a @0x6
0x1964…196b }
0x196b…1978 af66 2450 ENDPROC ST_BGST
0x196b…1978 LineComal80 {
0x196b…1978 ptr = 0xaf66 // 0x196b @0x0
0x196b…1978 lno = 0x0992 // 0x196d @0x2
0x196b…1978 at0004 = ╱9f╱ ENDPROC ╱ // 0x196f @0x4
0x196b…1978 at0005 = ╱53╱S╱ // 0x1970 @0x5
0x196b…1978 at0006 = ╱54╱T╱ // 0x1971 @0x6
0x196b…1978 at0007 = ╱5f╱_╱ // 0x1972 @0x7
0x196b…1978 at0008 = ╱42╱B╱ // 0x1973 @0x8
0x196b…1978 at0009 = ╱47╱G╱ // 0x1974 @0x9
0x196b…1978 at000a = ╱53╱S╱ // 0x1975 @0xa
0x196b…1978 at000b = ╱54╱T╱ // 0x1976 @0xb
0x196b…1978 at000c = EOL // 0x1977 @0xc
0x196b…1978 }
0x1978…197d af6b 2460
0x1978…197d LineComal80 {
0x1978…197d ptr = 0xaf6b // 0x1978 @0x0
0x1978…197d lno = 0x099c // 0x197a @0x2
0x1978…197d at0004 = EOL // 0x197c @0x4
0x1978…197d }
0x197d…1992 af80 2470 PROC INDTAST_POSTER
0x197d…1992 LineComal80 {
0x197d…1992 ptr = 0xaf80 // 0x197d @0x0
0x197d…1992 lno = 0x09a6 // 0x197f @0x2
0x197d…1992 at0004 = ╱9e2a╱ PROC ╱ // 0x1981 @0x4
0x197d…1992 at0006 = ╱49╱I╱ // 0x1983 @0x6
0x197d…1992 at0007 = ╱4e╱N╱ // 0x1984 @0x7
0x197d…1992 at0008 = ╱44╱D╱ // 0x1985 @0x8
0x197d…1992 at0009 = ╱54╱T╱ // 0x1986 @0x9
0x197d…1992 at000a = ╱41╱A╱ // 0x1987 @0xa
0x197d…1992 at000b = ╱53╱S╱ // 0x1988 @0xb
0x197d…1992 at000c = ╱54╱T╱ // 0x1989 @0xc
0x197d…1992 at000d = ╱5f╱_╱ // 0x198a @0xd
0x197d…1992 at000e = ╱50╱P╱ // 0x198b @0xe
0x197d…1992 at000f = ╱4f╱O╱ // 0x198c @0xf
0x197d…1992 at0010 = ╱53╱S╱ // 0x198d @0x10
0x197d…1992 at0011 = ╱54╱T╱ // 0x198e @0x11
0x197d…1992 at0012 = ╱45╱E╱ // 0x198f @0x12
0x197d…1992 at0013 = ╱52╱R╱ // 0x1990 @0x13
0x197d…1992 at0014 = EOL // 0x1991 @0x14
0x197d…1992 }
0x1992…19a4 d7be 2480 EXEC SKRIV_LINIER
0x1992…19a4 LineComal80 {
0x1992…19a4 ptr = 0xd7be // 0x1992 @0x0
0x1992…19a4 lno = 0x09b0 // 0x1994 @0x2
0x1992…19a4 at0004 = ╱9d╱ EXEC ╱ // 0x1996 @0x4
0x1992…19a4 at0005 = ╱53╱S╱ // 0x1997 @0x5
0x1992…19a4 at0006 = ╱4b╱K╱ // 0x1998 @0x6
0x1992…19a4 at0007 = ╱52╱R╱ // 0x1999 @0x7
0x1992…19a4 at0008 = ╱49╱I╱ // 0x199a @0x8
0x1992…19a4 at0009 = ╱56╱V╱ // 0x199b @0x9
0x1992…19a4 at000a = ╱5f╱_╱ // 0x199c @0xa
0x1992…19a4 at000b = ╱4c╱L╱ // 0x199d @0xb
0x1992…19a4 at000c = ╱49╱I╱ // 0x199e @0xc
0x1992…19a4 at000d = ╱4e╱N╱ // 0x199f @0xd
0x1992…19a4 at000e = ╱49╱I╱ // 0x19a0 @0xe
0x1992…19a4 at000f = ╱45╱E╱ // 0x19a1 @0xf
0x1992…19a4 at0010 = ╱52╱R╱ // 0x19a2 @0x10
0x1992…19a4 at0011 = EOL // 0x19a3 @0x11
0x1992…19a4 }
0x19a4…19b3 afa1 2490 LET SVAR$ := "F"
0x19a4…19b3 LineComal80 {
0x19a4…19b3 ptr = 0xafa1 // 0x19a4 @0x0
0x19a4…19b3 lno = 0x09ba // 0x19a6 @0x2
0x19a4…19b3 at0004 = ╱86╱ LET ╱ // 0x19a8 @0x4
0x19a4…19b3 at0005 = ╱53╱S╱ // 0x19a9 @0x5
0x19a4…19b3 at0006 = ╱56╱V╱ // 0x19aa @0x6
0x19a4…19b3 at0007 = ╱41╱A╱ // 0x19ab @0x7
0x19a4…19b3 at0008 = ╱52╱R╱ // 0x19ac @0x8
0x19a4…19b3 at0009 = ╱ef╱$╱ // 0x19ad @0x9
0x19a4…19b3 at000a = ╱f0╱ := ╱ // 0x19ae @0xa
0x19a4…19b3 at000b = ╱22╱"╱ // 0x19af @0xb
0x19a4…19b3 at000c = ╱46╱F╱ // 0x19b0 @0xc
0x19a4…19b3 at000d = ╱22╱"╱ // 0x19b1 @0xd
0x19a4…19b3 at000e = EOL // 0x19b2 @0xe
0x19a4…19b3 }
0x19b3…19c4 afb2 2500 WHILE SVAR$ = "F" DO
0x19b3…19c4 LineComal80 {
0x19b3…19c4 ptr = 0xafb2 // 0x19b3 @0x0
0x19b3…19c4 lno = 0x09c4 // 0x19b5 @0x2
0x19b3…19c4 at0004 = ╱932b╱ WHILE ╱ // 0x19b7 @0x4
0x19b3…19c4 at0006 = ╱53╱S╱ // 0x19b9 @0x6
0x19b3…19c4 at0007 = ╱56╱V╱ // 0x19ba @0x7
0x19b3…19c4 at0008 = ╱41╱A╱ // 0x19bb @0x8
0x19b3…19c4 at0009 = ╱52╱R╱ // 0x19bc @0x9
0x19b3…19c4 at000a = ╱ef╱$╱ // 0x19bd @0xa
0x19b3…19c4 at000b = ╱df╱ = ╱ // 0x19be @0xb
0x19b3…19c4 at000c = ╱22╱"╱ // 0x19bf @0xc
0x19b3…19c4 at000d = ╱46╱F╱ // 0x19c0 @0xd
0x19b3…19c4 at000e = ╱22╱"╱ // 0x19c1 @0xe
0x19b3…19c4 at000f = ╱bb╱ DO ╱ // 0x19c2 @0xf
0x19b3…19c4 at0010 = EOL // 0x19c3 @0x10
0x19b3…19c4 }
0x19c4…1a09 aff7 2510 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
0x19c4…1a09 LineComal80 {
0x19c4…1a09 ptr = 0xaff7 // 0x19c4 @0x0
0x19c4…1a09 lno = 0x09ce // 0x19c6 @0x2
0x19c4…1a09 at0004 = ╱a9╱ GET ╱ // 0x19c8 @0x4
0x19c4…1a09 at0005 = ╱44╱D╱ // 0x19c9 @0x5
0x19c4…1a09 at0006 = ╱47╱G╱ // 0x19ca @0x6
0x19c4…1a09 at0007 = ╱5f╱_╱ // 0x19cb @0x7
0x19c4…1a09 at0008 = ╱50╱P╱ // 0x19cc @0x8
0x19c4…1a09 at0009 = ╱4f╱O╱ // 0x19cd @0x9
0x19c4…1a09 at000a = ╱53╱S╱ // 0x19ce @0xa
0x19c4…1a09 at000b = ╱ef╱$╱ // 0x19cf @0xb
0x19c4…1a09 at000c = ╱ec╱,╱ // 0x19d0 @0xc
0x19c4…1a09 at000d = ╱31╱1╱ // 0x19d1 @0xd
0x19c4…1a09 at000e = ╱f20100╱ // 0x19d2 @0xe
0x19c4…1a09 at0011 = ╱f1╱ : ╱ // 0x19d5 @0x11
0x19c4…1a09 at0012 = ╱50╱P╱ // 0x19d6 @0x12
0x19c4…1a09 at0013 = ╱5f╱_╱ // 0x19d7 @0x13
0x19c4…1a09 at0014 = ╱48╱H╱ // 0x19d8 @0x14
0x19c4…1a09 at0015 = ╱5c╱Ø╱ // 0x19d9 @0x15
0x19c4…1a09 at0016 = ╱4a╱J╱ // 0x19da @0x16
0x19c4…1a09 at0017 = ╱52╱R╱ // 0x19db @0x17
0x19c4…1a09 at0018 = ╱45╱E╱ // 0x19dc @0x18
0x19c4…1a09 at0019 = ╱43╱C╱ // 0x19dd @0x19
0x19c4…1a09 at001a = ╱ec╱,╱ // 0x19de @0x1a
0x19c4…1a09 at001b = ╱50╱P╱ // 0x19df @0x1b
0x19c4…1a09 at001c = ╱5f╱_╱ // 0x19e0 @0x1c
0x19c4…1a09 at001d = ╱4d╱M╱ // 0x19e1 @0x1d
0x19c4…1a09 at001e = ╱41╱A╱ // 0x19e2 @0x1e
0x19c4…1a09 at001f = ╱58╱X╱ // 0x19e3 @0x1f
0x19c4…1a09 at0020 = ╱52╱R╱ // 0x19e4 @0x20
0x19c4…1a09 at0021 = ╱45╱E╱ // 0x19e5 @0x21
0x19c4…1a09 at0022 = ╱43╱C╱ // 0x19e6 @0x22
0x19c4…1a09 at0023 = ╱ec╱,╱ // 0x19e7 @0x23
0x19c4…1a09 at0024 = ╱53╱S╱ // 0x19e8 @0x24
0x19c4…1a09 at0025 = ╱5f╱_╱ // 0x19e9 @0x25
0x19c4…1a09 at0026 = ╱4e╱N╱ // 0x19ea @0x26
0x19c4…1a09 at0027 = ╱52╱R╱ // 0x19eb @0x27
0x19c4…1a09 at0028 = ╱5f╱_╱ // 0x19ec @0x28
0x19c4…1a09 at0029 = ╱44╱D╱ // 0x19ed @0x29
0x19c4…1a09 at002a = ╱47╱G╱ // 0x19ee @0x2a
0x19c4…1a09 at002b = ╱5f╱_╱ // 0x19ef @0x2b
0x19c4…1a09 at002c = ╱50╱P╱ // 0x19f0 @0x2c
0x19c4…1a09 at002d = ╱4f╱O╱ // 0x19f1 @0x2d
0x19c4…1a09 at002e = ╱53╱S╱ // 0x19f2 @0x2e
0x19c4…1a09 at002f = ╱ec╱,╱ // 0x19f3 @0x2f
0x19c4…1a09 at0030 = ╱50╱P╱ // 0x19f4 @0x30
0x19c4…1a09 at0031 = ╱5f╱_╱ // 0x19f5 @0x31
0x19c4…1a09 at0032 = ╱44╱D╱ // 0x19f6 @0x32
0x19c4…1a09 at0033 = ╱45╱E╱ // 0x19f7 @0x33
0x19c4…1a09 at0034 = ╱42╱B╱ // 0x19f8 @0x34
0x19c4…1a09 at0035 = ╱ec╱,╱ // 0x19f9 @0x35
0x19c4…1a09 at0036 = ╱50╱P╱ // 0x19fa @0x36
0x19c4…1a09 at0037 = ╱5f╱_╱ // 0x19fb @0x37
0x19c4…1a09 at0038 = ╱4b╱K╱ // 0x19fc @0x38
0x19c4…1a09 at0039 = ╱52╱R╱ // 0x19fd @0x39
0x19c4…1a09 at003a = ╱45╱E╱ // 0x19fe @0x3a
0x19c4…1a09 at003b = ╱44╱D╱ // 0x19ff @0x3b
0x19c4…1a09 at003c = ╱ec╱,╱ // 0x1a00 @0x3c
0x19c4…1a09 at003d = ╱50╱P╱ // 0x1a01 @0x3d
0x19c4…1a09 at003e = ╱5f╱_╱ // 0x1a02 @0x3e
0x19c4…1a09 at003f = ╱42╱B╱ // 0x1a03 @0x3f
0x19c4…1a09 at0040 = ╱44╱D╱ // 0x1a04 @0x40
0x19c4…1a09 at0041 = ╱41╱A╱ // 0x1a05 @0x41
0x19c4…1a09 at0042 = ╱54╱T╱ // 0x1a06 @0x42
0x19c4…1a09 at0043 = ╱ef╱$╱ // 0x1a07 @0x43
0x19c4…1a09 at0044 = EOL // 0x1a08 @0x44
0x19c4…1a09 }
0x1a09…1a42 b030 2520 IF P_HØJREC = 1 THEN LET P_BDAT$ := SYST_DAT$ ; P_DEB,P_KRED := 0
0x1a09…1a42 LineComal80 {
0x1a09…1a42 ptr = 0xb030 // 0x1a09 @0x0
0x1a09…1a42 lno = 0x09d8 // 0x1a0b @0x2
0x1a09…1a42 at0004 = ╱8200╱ IF ╱ // 0x1a0d @0x4
0x1a09…1a42 at0006 = ╱50╱P╱ // 0x1a0f @0x6
0x1a09…1a42 at0007 = ╱5f╱_╱ // 0x1a10 @0x7
0x1a09…1a42 at0008 = ╱48╱H╱ // 0x1a11 @0x8
0x1a09…1a42 at0009 = ╱5c╱Ø╱ // 0x1a12 @0x9
0x1a09…1a42 at000a = ╱4a╱J╱ // 0x1a13 @0xa
0x1a09…1a42 at000b = ╱52╱R╱ // 0x1a14 @0xb
0x1a09…1a42 at000c = ╱45╱E╱ // 0x1a15 @0xc
0x1a09…1a42 at000d = ╱43╱C╱ // 0x1a16 @0xd
0x1a09…1a42 at000e = ╱df╱ = ╱ // 0x1a17 @0xe
0x1a09…1a42 at000f = ╱31╱1╱ // 0x1a18 @0xf
0x1a09…1a42 at0010 = ╱f20100╱ // 0x1a19 @0x10
0x1a09…1a42 at0013 = ╱b5╱ THEN ╱ // 0x1a1c @0x13
0x1a09…1a42 at0014 = ╱86╱ LET ╱ // 0x1a1d @0x14
0x1a09…1a42 at0015 = ╱50╱P╱ // 0x1a1e @0x15
0x1a09…1a42 at0016 = ╱5f╱_╱ // 0x1a1f @0x16
0x1a09…1a42 at0017 = ╱42╱B╱ // 0x1a20 @0x17
0x1a09…1a42 at0018 = ╱44╱D╱ // 0x1a21 @0x18
0x1a09…1a42 at0019 = ╱41╱A╱ // 0x1a22 @0x19
0x1a09…1a42 at001a = ╱54╱T╱ // 0x1a23 @0x1a
0x1a09…1a42 at001b = ╱ef╱$╱ // 0x1a24 @0x1b
0x1a09…1a42 at001c = ╱f0╱ := ╱ // 0x1a25 @0x1c
0x1a09…1a42 at001d = ╱53╱S╱ // 0x1a26 @0x1d
0x1a09…1a42 at001e = ╱59╱Y╱ // 0x1a27 @0x1e
0x1a09…1a42 at001f = ╱53╱S╱ // 0x1a28 @0x1f
0x1a09…1a42 at0020 = ╱54╱T╱ // 0x1a29 @0x20
0x1a09…1a42 at0021 = ╱5f╱_╱ // 0x1a2a @0x21
0x1a09…1a42 at0022 = ╱44╱D╱ // 0x1a2b @0x22
0x1a09…1a42 at0023 = ╱41╱A╱ // 0x1a2c @0x23
0x1a09…1a42 at0024 = ╱54╱T╱ // 0x1a2d @0x24
0x1a09…1a42 at0025 = ╱ef╱$╱ // 0x1a2e @0x25
0x1a09…1a42 at0026 = ╱ea╱ ; ╱ // 0x1a2f @0x26
0x1a09…1a42 at0027 = ╱50╱P╱ // 0x1a30 @0x27
0x1a09…1a42 at0028 = ╱5f╱_╱ // 0x1a31 @0x28
0x1a09…1a42 at0029 = ╱44╱D╱ // 0x1a32 @0x29
0x1a09…1a42 at002a = ╱45╱E╱ // 0x1a33 @0x2a
0x1a09…1a42 at002b = ╱42╱B╱ // 0x1a34 @0x2b
0x1a09…1a42 at002c = ╱ec╱,╱ // 0x1a35 @0x2c
0x1a09…1a42 at002d = ╱50╱P╱ // 0x1a36 @0x2d
0x1a09…1a42 at002e = ╱5f╱_╱ // 0x1a37 @0x2e
0x1a09…1a42 at002f = ╱4b╱K╱ // 0x1a38 @0x2f
0x1a09…1a42 at0030 = ╱52╱R╱ // 0x1a39 @0x30
0x1a09…1a42 at0031 = ╱45╱E╱ // 0x1a3a @0x31
0x1a09…1a42 at0032 = ╱44╱D╱ // 0x1a3b @0x32
0x1a09…1a42 at0033 = ╱f0╱ := ╱ // 0x1a3c @0x33
0x1a09…1a42 at0034 = ╱30╱0╱ // 0x1a3d @0x34
0x1a09…1a42 at0035 = ╱f20000╱ // 0x1a3e @0x35
0x1a09…1a42 at0038 = EOL // 0x1a41 @0x38
0x1a09…1a42 }
0x1a42…1a5b b049 2530 IF _HØJREC = P_MAXREC THEN
0x1a42…1a5b LineComal80 {
0x1a42…1a5b ptr = 0xb049 // 0x1a42 @0x0
0x1a42…1a5b lno = 0x09e2 // 0x1a44 @0x2
0x1a42…1a5b at0004 = ╱9b2c50╱ IF ╱ // 0x1a46 @0x4
0x1a42…1a5b at0007 = ╱5f╱_╱ // 0x1a49 @0x7
0x1a42…1a5b at0008 = ╱48╱H╱ // 0x1a4a @0x8
0x1a42…1a5b at0009 = ╱5c╱Ø╱ // 0x1a4b @0x9
0x1a42…1a5b at000a = ╱4a╱J╱ // 0x1a4c @0xa
0x1a42…1a5b at000b = ╱52╱R╱ // 0x1a4d @0xb
0x1a42…1a5b at000c = ╱45╱E╱ // 0x1a4e @0xc
0x1a42…1a5b at000d = ╱43╱C╱ // 0x1a4f @0xd
0x1a42…1a5b at000e = ╱df╱ = ╱ // 0x1a50 @0xe
0x1a42…1a5b at000f = ╱50╱P╱ // 0x1a51 @0xf
0x1a42…1a5b at0010 = ╱5f╱_╱ // 0x1a52 @0x10
0x1a42…1a5b at0011 = ╱4d╱M╱ // 0x1a53 @0x11
0x1a42…1a5b at0012 = ╱41╱A╱ // 0x1a54 @0x12
0x1a42…1a5b at0013 = ╱58╱X╱ // 0x1a55 @0x13
0x1a42…1a5b at0014 = ╱52╱R╱ // 0x1a56 @0x14
0x1a42…1a5b at0015 = ╱45╱E╱ // 0x1a57 @0x15
0x1a42…1a5b at0016 = ╱43╱C╱ // 0x1a58 @0x16
0x1a42…1a5b at0017 = ╱b5╱ THEN ╱ // 0x1a59 @0x17
0x1a42…1a5b at0018 = EOL // 0x1a5a @0x18
0x1a42…1a5b }
0x1a5b…1a9f b08d 2540 EXEC FEJL("Der kan ikke indtastes flere posteringer før bogføring")
0x1a5b…1a9f LineComal80 {
0x1a5b…1a9f ptr = 0xb08d // 0x1a5b @0x0
0x1a5b…1a9f lno = 0x09ec // 0x1a5d @0x2
0x1a5b…1a9f at0004 = ╱9d╱ EXEC ╱ // 0x1a5f @0x4
0x1a5b…1a9f at0005 = ╱46╱F╱ // 0x1a60 @0x5
0x1a5b…1a9f at0006 = ╱45╱E╱ // 0x1a61 @0x6
0x1a5b…1a9f at0007 = ╱4a╱J╱ // 0x1a62 @0x7
0x1a5b…1a9f at0008 = ╱4c╱L╱ // 0x1a63 @0x8
0x1a5b…1a9f at0009 = ╱ed╱(╱ // 0x1a64 @0x9
0x1a5b…1a9f at000a = ╱22╱"╱ // 0x1a65 @0xa
0x1a5b…1a9f at000b = ╱44╱D╱ // 0x1a66 @0xb
0x1a5b…1a9f at000c = ╱65╱e╱ // 0x1a67 @0xc
0x1a5b…1a9f at000d = ╱72╱r╱ // 0x1a68 @0xd
0x1a5b…1a9f at000e = ╱20╱…╱ // 0x1a69 @0xe
0x1a5b…1a9f at000f = ╱6b╱k╱ // 0x1a6a @0xf
0x1a5b…1a9f at0010 = ╱61╱a╱ // 0x1a6b @0x10
0x1a5b…1a9f at0011 = ╱6e╱n╱ // 0x1a6c @0x11
0x1a5b…1a9f at0012 = ╱20╱…╱ // 0x1a6d @0x12
0x1a5b…1a9f at0013 = ╱69╱i╱ // 0x1a6e @0x13
0x1a5b…1a9f at0014 = ╱6b╱k╱ // 0x1a6f @0x14
0x1a5b…1a9f at0015 = ╱6b╱k╱ // 0x1a70 @0x15
0x1a5b…1a9f at0016 = ╱65╱e╱ // 0x1a71 @0x16
0x1a5b…1a9f at0017 = ╱20╱…╱ // 0x1a72 @0x17
0x1a5b…1a9f at0018 = ╱69╱i╱ // 0x1a73 @0x18
0x1a5b…1a9f at0019 = ╱6e╱n╱ // 0x1a74 @0x19
0x1a5b…1a9f at001a = ╱64╱d╱ // 0x1a75 @0x1a
0x1a5b…1a9f at001b = ╱74╱t╱ // 0x1a76 @0x1b
0x1a5b…1a9f at001c = ╱61╱a╱ // 0x1a77 @0x1c
0x1a5b…1a9f at001d = ╱73╱s╱ // 0x1a78 @0x1d
0x1a5b…1a9f at001e = ╱74╱t╱ // 0x1a79 @0x1e
0x1a5b…1a9f at001f = ╱65╱e╱ // 0x1a7a @0x1f
0x1a5b…1a9f at0020 = ╱73╱s╱ // 0x1a7b @0x20
0x1a5b…1a9f at0021 = ╱20╱…╱ // 0x1a7c @0x21
0x1a5b…1a9f at0022 = ╱66╱f╱ // 0x1a7d @0x22
0x1a5b…1a9f at0023 = ╱6c╱l╱ // 0x1a7e @0x23
0x1a5b…1a9f at0024 = ╱65╱e╱ // 0x1a7f @0x24
0x1a5b…1a9f at0025 = ╱72╱r╱ // 0x1a80 @0x25
0x1a5b…1a9f at0026 = ╱65╱e╱ // 0x1a81 @0x26
0x1a5b…1a9f at0027 = ╱20╱…╱ // 0x1a82 @0x27
0x1a5b…1a9f at0028 = ╱70╱p╱ // 0x1a83 @0x28
0x1a5b…1a9f at0029 = ╱6f╱o╱ // 0x1a84 @0x29
0x1a5b…1a9f at002a = ╱73╱s╱ // 0x1a85 @0x2a
0x1a5b…1a9f at002b = ╱74╱t╱ // 0x1a86 @0x2b
0x1a5b…1a9f at002c = ╱65╱e╱ // 0x1a87 @0x2c
0x1a5b…1a9f at002d = ╱72╱r╱ // 0x1a88 @0x2d
0x1a5b…1a9f at002e = ╱69╱i╱ // 0x1a89 @0x2e
0x1a5b…1a9f at002f = ╱6e╱n╱ // 0x1a8a @0x2f
0x1a5b…1a9f at0030 = ╱67╱g╱ // 0x1a8b @0x30
0x1a5b…1a9f at0031 = ╱65╱e╱ // 0x1a8c @0x31
0x1a5b…1a9f at0032 = ╱72╱r╱ // 0x1a8d @0x32
0x1a5b…1a9f at0033 = ╱20╱…╱ // 0x1a8e @0x33
0x1a5b…1a9f at0034 = ╱66╱f╱ // 0x1a8f @0x34
0x1a5b…1a9f at0035 = ╱7c╱ø╱ // 0x1a90 @0x35
0x1a5b…1a9f at0036 = ╱72╱r╱ // 0x1a91 @0x36
0x1a5b…1a9f at0037 = ╱20╱…╱ // 0x1a92 @0x37
0x1a5b…1a9f at0038 = ╱62╱b╱ // 0x1a93 @0x38
0x1a5b…1a9f at0039 = ╱6f╱o╱ // 0x1a94 @0x39
0x1a5b…1a9f at003a = ╱67╱g╱ // 0x1a95 @0x3a
0x1a5b…1a9f at003b = ╱66╱f╱ // 0x1a96 @0x3b
0x1a5b…1a9f at003c = ╱7c╱ø╱ // 0x1a97 @0x3c
0x1a5b…1a9f at003d = ╱72╱r╱ // 0x1a98 @0x3d
0x1a5b…1a9f at003e = ╱69╱i╱ // 0x1a99 @0x3e
0x1a5b…1a9f at003f = ╱6e╱n╱ // 0x1a9a @0x3f
0x1a5b…1a9f at0040 = ╱67╱g╱ // 0x1a9b @0x40
0x1a5b…1a9f at0041 = ╱22╱"╱ // 0x1a9c @0x41
0x1a5b…1a9f at0042 = ╱ee╱)╱ // 0x1a9d @0x42
0x1a5b…1a9f at0043 = EOL // 0x1a9e @0x43
0x1a5b…1a9f }
0x1a9f…1ac0 b0ae 2550 INPUT "<SC6524>Tryk RETURN" : SVAR$
0x1a9f…1ac0 LineComal80 {
0x1a9f…1ac0 ptr = 0xb0ae // 0x1a9f @0x0
0x1a9f…1ac0 lno = 0x09f6 // 0x1aa1 @0x2
0x1a9f…1ac0 at0004 = ╱91╱ INPUT ╱ // 0x1aa3 @0x4
0x1a9f…1ac0 at0005 = ╱22╱"╱ // 0x1aa4 @0x5
0x1a9f…1ac0 at0006 = ╱3c╱<╱ // 0x1aa5 @0x6
0x1a9f…1ac0 at0007 = ╱53╱S╱ // 0x1aa6 @0x7
0x1a9f…1ac0 at0008 = ╱43╱C╱ // 0x1aa7 @0x8
0x1a9f…1ac0 at0009 = ╱36╱6╱ // 0x1aa8 @0x9
0x1a9f…1ac0 at000a = ╱35╱5╱ // 0x1aa9 @0xa
0x1a9f…1ac0 at000b = ╱32╱2╱ // 0x1aaa @0xb
0x1a9f…1ac0 at000c = ╱34╱4╱ // 0x1aab @0xc
0x1a9f…1ac0 at000d = ╱3e╱>╱ // 0x1aac @0xd
0x1a9f…1ac0 at000e = ╱54╱T╱ // 0x1aad @0xe
0x1a9f…1ac0 at000f = ╱72╱r╱ // 0x1aae @0xf
0x1a9f…1ac0 at0010 = ╱79╱y╱ // 0x1aaf @0x10
0x1a9f…1ac0 at0011 = ╱6b╱k╱ // 0x1ab0 @0x11
0x1a9f…1ac0 at0012 = ╱20╱…╱ // 0x1ab1 @0x12
0x1a9f…1ac0 at0013 = ╱52╱R╱ // 0x1ab2 @0x13
0x1a9f…1ac0 at0014 = ╱45╱E╱ // 0x1ab3 @0x14
0x1a9f…1ac0 at0015 = ╱54╱T╱ // 0x1ab4 @0x15
0x1a9f…1ac0 at0016 = ╱55╱U╱ // 0x1ab5 @0x16
0x1a9f…1ac0 at0017 = ╱52╱R╱ // 0x1ab6 @0x17
0x1a9f…1ac0 at0018 = ╱4e╱N╱ // 0x1ab7 @0x18
0x1a9f…1ac0 at0019 = ╱22╱"╱ // 0x1ab8 @0x19
0x1a9f…1ac0 at001a = ╱f1╱ : ╱ // 0x1ab9 @0x1a
0x1a9f…1ac0 at001b = ╱53╱S╱ // 0x1aba @0x1b
0x1a9f…1ac0 at001c = ╱56╱V╱ // 0x1abb @0x1c
0x1a9f…1ac0 at001d = ╱41╱A╱ // 0x1abc @0x1d
0x1a9f…1ac0 at001e = ╱52╱R╱ // 0x1abd @0x1e
0x1a9f…1ac0 at001f = ╱ef╱$╱ // 0x1abe @0x1f
0x1a9f…1ac0 at0020 = EOL // 0x1abf @0x20
0x1a9f…1ac0 }
0x1ac0…1ad2 b0c0 2560 EXEC SL_FEJLLINIE
0x1ac0…1ad2 LineComal80 {
0x1ac0…1ad2 ptr = 0xb0c0 // 0x1ac0 @0x0
0x1ac0…1ad2 lno = 0x0a00 // 0x1ac2 @0x2
0x1ac0…1ad2 at0004 = ╱9d╱ EXEC ╱ // 0x1ac4 @0x4
0x1ac0…1ad2 at0005 = ╱53╱S╱ // 0x1ac5 @0x5
0x1ac0…1ad2 at0006 = ╱4c╱L╱ // 0x1ac6 @0x6
0x1ac0…1ad2 at0007 = ╱5f╱_╱ // 0x1ac7 @0x7
0x1ac0…1ad2 at0008 = ╱46╱F╱ // 0x1ac8 @0x8
0x1ac0…1ad2 at0009 = ╱45╱E╱ // 0x1ac9 @0x9
0x1ac0…1ad2 at000a = ╱4a╱J╱ // 0x1aca @0xa
0x1ac0…1ad2 at000b = ╱4c╱L╱ // 0x1acb @0xb
0x1ac0…1ad2 at000c = ╱4c╱L╱ // 0x1acc @0xc
0x1ac0…1ad2 at000d = ╱49╱I╱ // 0x1acd @0xd
0x1ac0…1ad2 at000e = ╱4e╱N╱ // 0x1ace @0xe
0x1ac0…1ad2 at000f = ╱49╱I╱ // 0x1acf @0xf
0x1ac0…1ad2 at0010 = ╱45╱E╱ // 0x1ad0 @0x10
0x1ac0…1ad2 at0011 = EOL // 0x1ad1 @0x11
0x1ac0…1ad2 }
0x1ad2…1ad8 b0c6 2570 EXIT
0x1ad2…1ad8 LineComal80 {
0x1ad2…1ad8 ptr = 0xb0c6 // 0x1ad2 @0x0
0x1ad2…1ad8 lno = 0x0a0a // 0x1ad4 @0x2
0x1ad2…1ad8 at0004 = ╱99╱ EXIT ╱ // 0x1ad6 @0x4
0x1ad2…1ad8 at0005 = EOL // 0x1ad7 @0x5
0x1ad2…1ad8 }
0x1ad8…1ade b0cc 2580 ENDIF
0x1ad8…1ade LineComal80 {
0x1ad8…1ade ptr = 0xb0cc // 0x1ad8 @0x0
0x1ad8…1ade lno = 0x0a14 // 0x1ada @0x2
0x1ad8…1ade at0004 = ╱9c╱ ENDIF ╱ // 0x1adc @0x4
0x1ad8…1ade at0005 = EOL // 0x1add @0x5
0x1ad8…1ade }
0x1ade…1afa b0e8 2590 LET P_HØJREC := P_HØJREC + 1
0x1ade…1afa LineComal80 {
0x1ade…1afa ptr = 0xb0e8 // 0x1ade @0x0
0x1ade…1afa lno = 0x0a1e // 0x1ae0 @0x2
0x1ade…1afa at0004 = ╱86╱ LET ╱ // 0x1ae2 @0x4
0x1ade…1afa at0005 = ╱50╱P╱ // 0x1ae3 @0x5
0x1ade…1afa at0006 = ╱5f╱_╱ // 0x1ae4 @0x6
0x1ade…1afa at0007 = ╱48╱H╱ // 0x1ae5 @0x7
0x1ade…1afa at0008 = ╱5c╱Ø╱ // 0x1ae6 @0x8
0x1ade…1afa at0009 = ╱4a╱J╱ // 0x1ae7 @0x9
0x1ade…1afa at000a = ╱52╱R╱ // 0x1ae8 @0xa
0x1ade…1afa at000b = ╱45╱E╱ // 0x1ae9 @0xb
0x1ade…1afa at000c = ╱43╱C╱ // 0x1aea @0xc
0x1ade…1afa at000d = ╱f0╱ := ╱ // 0x1aeb @0xd
0x1ade…1afa at000e = ╱50╱P╱ // 0x1aec @0xe
0x1ade…1afa at000f = ╱5f╱_╱ // 0x1aed @0xf
0x1ade…1afa at0010 = ╱48╱H╱ // 0x1aee @0x10
0x1ade…1afa at0011 = ╱5c╱Ø╱ // 0x1aef @0x11
0x1ade…1afa at0012 = ╱4a╱J╱ // 0x1af0 @0x12
0x1ade…1afa at0013 = ╱52╱R╱ // 0x1af1 @0x13
0x1ade…1afa at0014 = ╱45╱E╱ // 0x1af2 @0x14
0x1ade…1afa at0015 = ╱43╱C╱ // 0x1af3 @0x15
0x1ade…1afa at0016 = ╱e5╱ + ╱ // 0x1af4 @0x16
0x1ade…1afa at0017 = ╱31╱1╱ // 0x1af5 @0x17
0x1ade…1afa at0018 = ╱f20100╱ // 0x1af6 @0x18
0x1ade…1afa at001b = EOL // 0x1af9 @0x1b
0x1ade…1afa }
0x1afa…1b17 b105 2600 EXEC EDIT_LIN(P_HØJREC - 1)
0x1afa…1b17 LineComal80 {
0x1afa…1b17 ptr = 0xb105 // 0x1afa @0x0
0x1afa…1b17 lno = 0x0a28 // 0x1afc @0x2
0x1afa…1b17 at0004 = ╱9d╱ EXEC ╱ // 0x1afe @0x4
0x1afa…1b17 at0005 = ╱45╱E╱ // 0x1aff @0x5
0x1afa…1b17 at0006 = ╱44╱D╱ // 0x1b00 @0x6
0x1afa…1b17 at0007 = ╱49╱I╱ // 0x1b01 @0x7
0x1afa…1b17 at0008 = ╱54╱T╱ // 0x1b02 @0x8
0x1afa…1b17 at0009 = ╱5f╱_╱ // 0x1b03 @0x9
0x1afa…1b17 at000a = ╱4c╱L╱ // 0x1b04 @0xa
0x1afa…1b17 at000b = ╱49╱I╱ // 0x1b05 @0xb
0x1afa…1b17 at000c = ╱4e╱N╱ // 0x1b06 @0xc
0x1afa…1b17 at000d = ╱ed╱(╱ // 0x1b07 @0xd
0x1afa…1b17 at000e = ╱50╱P╱ // 0x1b08 @0xe
0x1afa…1b17 at000f = ╱5f╱_╱ // 0x1b09 @0xf
0x1afa…1b17 at0010 = ╱48╱H╱ // 0x1b0a @0x10
0x1afa…1b17 at0011 = ╱5c╱Ø╱ // 0x1b0b @0x11
0x1afa…1b17 at0012 = ╱4a╱J╱ // 0x1b0c @0x12
0x1afa…1b17 at0013 = ╱52╱R╱ // 0x1b0d @0x13
0x1afa…1b17 at0014 = ╱45╱E╱ // 0x1b0e @0x14
0x1afa…1b17 at0015 = ╱43╱C╱ // 0x1b0f @0x15
0x1afa…1b17 at0016 = ╱e6╱ - ╱ // 0x1b10 @0x16
0x1afa…1b17 at0017 = ╱31╱1╱ // 0x1b11 @0x17
0x1afa…1b17 at0018 = ╱f20100╱ // 0x1b12 @0x18
0x1afa…1b17 at001b = ╱ee╱)╱ // 0x1b15 @0x1b
0x1afa…1b17 at001c = EOL // 0x1b16 @0x1c
0x1afa…1b17 }
0x1b17…1b5c b14a 2610 PUT DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
0x1b17…1b5c LineComal80 {
0x1b17…1b5c ptr = 0xb14a // 0x1b17 @0x0
0x1b17…1b5c lno = 0x0a32 // 0x1b19 @0x2
0x1b17…1b5c at0004 = ╱aa╱ PUT ╱ // 0x1b1b @0x4
0x1b17…1b5c at0005 = ╱44╱D╱ // 0x1b1c @0x5
0x1b17…1b5c at0006 = ╱47╱G╱ // 0x1b1d @0x6
0x1b17…1b5c at0007 = ╱5f╱_╱ // 0x1b1e @0x7
0x1b17…1b5c at0008 = ╱50╱P╱ // 0x1b1f @0x8
0x1b17…1b5c at0009 = ╱4f╱O╱ // 0x1b20 @0x9
0x1b17…1b5c at000a = ╱53╱S╱ // 0x1b21 @0xa
0x1b17…1b5c at000b = ╱ef╱$╱ // 0x1b22 @0xb
0x1b17…1b5c at000c = ╱ec╱,╱ // 0x1b23 @0xc
0x1b17…1b5c at000d = ╱31╱1╱ // 0x1b24 @0xd
0x1b17…1b5c at000e = ╱f20100╱ // 0x1b25 @0xe
0x1b17…1b5c at0011 = ╱f1╱ : ╱ // 0x1b28 @0x11
0x1b17…1b5c at0012 = ╱50╱P╱ // 0x1b29 @0x12
0x1b17…1b5c at0013 = ╱5f╱_╱ // 0x1b2a @0x13
0x1b17…1b5c at0014 = ╱48╱H╱ // 0x1b2b @0x14
0x1b17…1b5c at0015 = ╱5c╱Ø╱ // 0x1b2c @0x15
0x1b17…1b5c at0016 = ╱4a╱J╱ // 0x1b2d @0x16
0x1b17…1b5c at0017 = ╱52╱R╱ // 0x1b2e @0x17
0x1b17…1b5c at0018 = ╱45╱E╱ // 0x1b2f @0x18
0x1b17…1b5c at0019 = ╱43╱C╱ // 0x1b30 @0x19
0x1b17…1b5c at001a = ╱ec╱,╱ // 0x1b31 @0x1a
0x1b17…1b5c at001b = ╱50╱P╱ // 0x1b32 @0x1b
0x1b17…1b5c at001c = ╱5f╱_╱ // 0x1b33 @0x1c
0x1b17…1b5c at001d = ╱4d╱M╱ // 0x1b34 @0x1d
0x1b17…1b5c at001e = ╱41╱A╱ // 0x1b35 @0x1e
0x1b17…1b5c at001f = ╱58╱X╱ // 0x1b36 @0x1f
0x1b17…1b5c at0020 = ╱52╱R╱ // 0x1b37 @0x20
0x1b17…1b5c at0021 = ╱45╱E╱ // 0x1b38 @0x21
0x1b17…1b5c at0022 = ╱43╱C╱ // 0x1b39 @0x22
0x1b17…1b5c at0023 = ╱ec╱,╱ // 0x1b3a @0x23
0x1b17…1b5c at0024 = ╱53╱S╱ // 0x1b3b @0x24
0x1b17…1b5c at0025 = ╱5f╱_╱ // 0x1b3c @0x25
0x1b17…1b5c at0026 = ╱4e╱N╱ // 0x1b3d @0x26
0x1b17…1b5c at0027 = ╱52╱R╱ // 0x1b3e @0x27
0x1b17…1b5c at0028 = ╱5f╱_╱ // 0x1b3f @0x28
0x1b17…1b5c at0029 = ╱44╱D╱ // 0x1b40 @0x29
0x1b17…1b5c at002a = ╱47╱G╱ // 0x1b41 @0x2a
0x1b17…1b5c at002b = ╱5f╱_╱ // 0x1b42 @0x2b
0x1b17…1b5c at002c = ╱50╱P╱ // 0x1b43 @0x2c
0x1b17…1b5c at002d = ╱4f╱O╱ // 0x1b44 @0x2d
0x1b17…1b5c at002e = ╱53╱S╱ // 0x1b45 @0x2e
0x1b17…1b5c at002f = ╱ec╱,╱ // 0x1b46 @0x2f
0x1b17…1b5c at0030 = ╱50╱P╱ // 0x1b47 @0x30
0x1b17…1b5c at0031 = ╱5f╱_╱ // 0x1b48 @0x31
0x1b17…1b5c at0032 = ╱44╱D╱ // 0x1b49 @0x32
0x1b17…1b5c at0033 = ╱45╱E╱ // 0x1b4a @0x33
0x1b17…1b5c at0034 = ╱42╱B╱ // 0x1b4b @0x34
0x1b17…1b5c at0035 = ╱ec╱,╱ // 0x1b4c @0x35
0x1b17…1b5c at0036 = ╱50╱P╱ // 0x1b4d @0x36
0x1b17…1b5c at0037 = ╱5f╱_╱ // 0x1b4e @0x37
0x1b17…1b5c at0038 = ╱4b╱K╱ // 0x1b4f @0x38
0x1b17…1b5c at0039 = ╱52╱R╱ // 0x1b50 @0x39
0x1b17…1b5c at003a = ╱45╱E╱ // 0x1b51 @0x3a
0x1b17…1b5c at003b = ╱44╱D╱ // 0x1b52 @0x3b
0x1b17…1b5c at003c = ╱ec╱,╱ // 0x1b53 @0x3c
0x1b17…1b5c at003d = ╱50╱P╱ // 0x1b54 @0x3d
0x1b17…1b5c at003e = ╱5f╱_╱ // 0x1b55 @0x3e
0x1b17…1b5c at003f = ╱42╱B╱ // 0x1b56 @0x3f
0x1b17…1b5c at0040 = ╱44╱D╱ // 0x1b57 @0x40
0x1b17…1b5c at0041 = ╱41╱A╱ // 0x1b58 @0x41
0x1b17…1b5c at0042 = ╱54╱T╱ // 0x1b59 @0x42
0x1b17…1b5c at0043 = ╱ef╱$╱ // 0x1b5a @0x43
0x1b17…1b5c at0044 = EOL // 0x1b5b @0x44
0x1b17…1b5c }
0x1b5c…1b88 b176 2620 IF P_HØJREC - 1) MOD 12 = 0 AND SVAR$ = "F" THEN
0x1b5c…1b88 LineComal80 {
0x1b5c…1b88 ptr = 0xb176 // 0x1b5c @0x0
0x1b5c…1b88 lno = 0x0a3c // 0x1b5e @0x2
0x1b5c…1b88 at0004 = ╱9b2ded╱ IF ╱ // 0x1b60 @0x4
0x1b5c…1b88 at0007 = ╱50╱P╱ // 0x1b63 @0x7
0x1b5c…1b88 at0008 = ╱5f╱_╱ // 0x1b64 @0x8
0x1b5c…1b88 at0009 = ╱48╱H╱ // 0x1b65 @0x9
0x1b5c…1b88 at000a = ╱5c╱Ø╱ // 0x1b66 @0xa
0x1b5c…1b88 at000b = ╱4a╱J╱ // 0x1b67 @0xb
0x1b5c…1b88 at000c = ╱52╱R╱ // 0x1b68 @0xc
0x1b5c…1b88 at000d = ╱45╱E╱ // 0x1b69 @0xd
0x1b5c…1b88 at000e = ╱43╱C╱ // 0x1b6a @0xe
0x1b5c…1b88 at000f = ╱e6╱ - ╱ // 0x1b6b @0xf
0x1b5c…1b88 at0010 = ╱31╱1╱ // 0x1b6c @0x10
0x1b5c…1b88 at0011 = ╱f20100╱ // 0x1b6d @0x11
0x1b5c…1b88 at0014 = ╱ee╱)╱ // 0x1b70 @0x14
0x1b5c…1b88 at0015 = ╱db╱ MOD ╱ // 0x1b71 @0x15
0x1b5c…1b88 at0016 = ╱31╱1╱ // 0x1b72 @0x16
0x1b5c…1b88 at0017 = ╱32╱2╱ // 0x1b73 @0x17
0x1b5c…1b88 at0018 = ╱f20c00╱ // 0x1b74 @0x18
0x1b5c…1b88 at001b = ╱df╱ = ╱ // 0x1b77 @0x1b
0x1b5c…1b88 at001c = ╱30╱0╱ // 0x1b78 @0x1c
0x1b5c…1b88 at001d = ╱f20000╱ // 0x1b79 @0x1d
0x1b5c…1b88 at0020 = ╱d9╱ AND ╱ // 0x1b7c @0x20
0x1b5c…1b88 at0021 = ╱53╱S╱ // 0x1b7d @0x21
0x1b5c…1b88 at0022 = ╱56╱V╱ // 0x1b7e @0x22
0x1b5c…1b88 at0023 = ╱41╱A╱ // 0x1b7f @0x23
0x1b5c…1b88 at0024 = ╱52╱R╱ // 0x1b80 @0x24
0x1b5c…1b88 at0025 = ╱ef╱$╱ // 0x1b81 @0x25
0x1b5c…1b88 at0026 = ╱df╱ = ╱ // 0x1b82 @0x26
0x1b5c…1b88 at0027 = ╱22╱"╱ // 0x1b83 @0x27
0x1b5c…1b88 at0028 = ╱46╱F╱ // 0x1b84 @0x28
0x1b5c…1b88 at0029 = ╱22╱"╱ // 0x1b85 @0x29
0x1b5c…1b88 at002a = ╱b5╱ THEN ╱ // 0x1b86 @0x2a
0x1b5c…1b88 at002b = EOL // 0x1b87 @0x2b
0x1b5c…1b88 }
0x1b88…1b98 b186 2630 EXEC RET_LINIER
0x1b88…1b98 LineComal80 {
0x1b88…1b98 ptr = 0xb186 // 0x1b88 @0x0
0x1b88…1b98 lno = 0x0a46 // 0x1b8a @0x2
0x1b88…1b98 at0004 = ╱9d╱ EXEC ╱ // 0x1b8c @0x4
0x1b88…1b98 at0005 = ╱52╱R╱ // 0x1b8d @0x5
0x1b88…1b98 at0006 = ╱45╱E╱ // 0x1b8e @0x6
0x1b88…1b98 at0007 = ╱54╱T╱ // 0x1b8f @0x7
0x1b88…1b98 at0008 = ╱5f╱_╱ // 0x1b90 @0x8
0x1b88…1b98 at0009 = ╱4c╱L╱ // 0x1b91 @0x9
0x1b88…1b98 at000a = ╱49╱I╱ // 0x1b92 @0xa
0x1b88…1b98 at000b = ╱4e╱N╱ // 0x1b93 @0xb
0x1b88…1b98 at000c = ╱49╱I╱ // 0x1b94 @0xc
0x1b88…1b98 at000d = ╱45╱E╱ // 0x1b95 @0xd
0x1b88…1b98 at000e = ╱52╱R╱ // 0x1b96 @0xe
0x1b88…1b98 at000f = EOL // 0x1b97 @0xf
0x1b88…1b98 }
0x1b98…1baa b198 2640 EXEC DIV_POSHOVED
0x1b98…1baa LineComal80 {
0x1b98…1baa ptr = 0xb198 // 0x1b98 @0x0
0x1b98…1baa lno = 0x0a50 // 0x1b9a @0x2
0x1b98…1baa at0004 = ╱9d╱ EXEC ╱ // 0x1b9c @0x4
0x1b98…1baa at0005 = ╱44╱D╱ // 0x1b9d @0x5
0x1b98…1baa at0006 = ╱49╱I╱ // 0x1b9e @0x6
0x1b98…1baa at0007 = ╱56╱V╱ // 0x1b9f @0x7
0x1b98…1baa at0008 = ╱5f╱_╱ // 0x1ba0 @0x8
0x1b98…1baa at0009 = ╱50╱P╱ // 0x1ba1 @0x9
0x1b98…1baa at000a = ╱4f╱O╱ // 0x1ba2 @0xa
0x1b98…1baa at000b = ╱53╱S╱ // 0x1ba3 @0xb
0x1b98…1baa at000c = ╱48╱H╱ // 0x1ba4 @0xc
0x1b98…1baa at000d = ╱4f╱O╱ // 0x1ba5 @0xd
0x1b98…1baa at000e = ╱56╱V╱ // 0x1ba6 @0xe
0x1b98…1baa at000f = ╱45╱E╱ // 0x1ba7 @0xf
0x1b98…1baa at0010 = ╱44╱D╱ // 0x1ba8 @0x10
0x1b98…1baa at0011 = EOL // 0x1ba9 @0x11
0x1b98…1baa }
0x1baa…1bb9 b1a7 2650 LET SVAR$ := "F"
0x1baa…1bb9 LineComal80 {
0x1baa…1bb9 ptr = 0xb1a7 // 0x1baa @0x0
0x1baa…1bb9 lno = 0x0a5a // 0x1bac @0x2
0x1baa…1bb9 at0004 = ╱86╱ LET ╱ // 0x1bae @0x4
0x1baa…1bb9 at0005 = ╱53╱S╱ // 0x1baf @0x5
0x1baa…1bb9 at0006 = ╱56╱V╱ // 0x1bb0 @0x6
0x1baa…1bb9 at0007 = ╱41╱A╱ // 0x1bb1 @0x7
0x1baa…1bb9 at0008 = ╱52╱R╱ // 0x1bb2 @0x8
0x1baa…1bb9 at0009 = ╱ef╱$╱ // 0x1bb3 @0x9
0x1baa…1bb9 at000a = ╱f0╱ := ╱ // 0x1bb4 @0xa
0x1baa…1bb9 at000b = ╱22╱"╱ // 0x1bb5 @0xb
0x1baa…1bb9 at000c = ╱46╱F╱ // 0x1bb6 @0xc
0x1baa…1bb9 at000d = ╱22╱"╱ // 0x1bb7 @0xd
0x1baa…1bb9 at000e = EOL // 0x1bb8 @0xe
0x1baa…1bb9 }
0x1bb9…1bbf b1ad 2660 ENDIF
0x1bb9…1bbf LineComal80 {
0x1bb9…1bbf ptr = 0xb1ad // 0x1bb9 @0x0
0x1bb9…1bbf lno = 0x0a64 // 0x1bbb @0x2
0x1bb9…1bbf at0004 = ╱9c╱ ENDIF ╱ // 0x1bbd @0x4
0x1bb9…1bbf at0005 = EOL // 0x1bbe @0x5
0x1bb9…1bbf }
0x1bbf…1bc5 b1b3 2670 ENDWHILE
0x1bbf…1bc5 LineComal80 {
0x1bbf…1bc5 ptr = 0xb1b3 // 0x1bbf @0x0
0x1bbf…1bc5 lno = 0x0a6e // 0x1bc1 @0x2
0x1bbf…1bc5 at0004 = ╱94╱ ENDWHILE ╱ // 0x1bc3 @0x4
0x1bbf…1bc5 at0005 = EOL // 0x1bc4 @0x5
0x1bbf…1bc5 }
0x1bc5…1bd5 b1c3 2680 EXEC RET_LINIER
0x1bc5…1bd5 LineComal80 {
0x1bc5…1bd5 ptr = 0xb1c3 // 0x1bc5 @0x0
0x1bc5…1bd5 lno = 0x0a78 // 0x1bc7 @0x2
0x1bc5…1bd5 at0004 = ╱9d╱ EXEC ╱ // 0x1bc9 @0x4
0x1bc5…1bd5 at0005 = ╱52╱R╱ // 0x1bca @0x5
0x1bc5…1bd5 at0006 = ╱45╱E╱ // 0x1bcb @0x6
0x1bc5…1bd5 at0007 = ╱54╱T╱ // 0x1bcc @0x7
0x1bc5…1bd5 at0008 = ╱5f╱_╱ // 0x1bcd @0x8
0x1bc5…1bd5 at0009 = ╱4c╱L╱ // 0x1bce @0x9
0x1bc5…1bd5 at000a = ╱49╱I╱ // 0x1bcf @0xa
0x1bc5…1bd5 at000b = ╱4e╱N╱ // 0x1bd0 @0xb
0x1bc5…1bd5 at000c = ╱49╱I╱ // 0x1bd1 @0xc
0x1bc5…1bd5 at000d = ╱45╱E╱ // 0x1bd2 @0xd
0x1bc5…1bd5 at000e = ╱52╱R╱ // 0x1bd3 @0xe
0x1bc5…1bd5 at000f = EOL // 0x1bd4 @0xf
0x1bc5…1bd5 }
0x1bd5…1be9 b1d7 2690 ENDPROC INDTAST_POSTER
0x1bd5…1be9 LineComal80 {
0x1bd5…1be9 ptr = 0xb1d7 // 0x1bd5 @0x0
0x1bd5…1be9 lno = 0x0a82 // 0x1bd7 @0x2
0x1bd5…1be9 at0004 = ╱9f╱ ENDPROC ╱ // 0x1bd9 @0x4
0x1bd5…1be9 at0005 = ╱49╱I╱ // 0x1bda @0x5
0x1bd5…1be9 at0006 = ╱4e╱N╱ // 0x1bdb @0x6
0x1bd5…1be9 at0007 = ╱44╱D╱ // 0x1bdc @0x7
0x1bd5…1be9 at0008 = ╱54╱T╱ // 0x1bdd @0x8
0x1bd5…1be9 at0009 = ╱41╱A╱ // 0x1bde @0x9
0x1bd5…1be9 at000a = ╱53╱S╱ // 0x1bdf @0xa
0x1bd5…1be9 at000b = ╱54╱T╱ // 0x1be0 @0xb
0x1bd5…1be9 at000c = ╱5f╱_╱ // 0x1be1 @0xc
0x1bd5…1be9 at000d = ╱50╱P╱ // 0x1be2 @0xd
0x1bd5…1be9 at000e = ╱4f╱O╱ // 0x1be3 @0xe
0x1bd5…1be9 at000f = ╱53╱S╱ // 0x1be4 @0xf
0x1bd5…1be9 at0010 = ╱54╱T╱ // 0x1be5 @0x10
0x1bd5…1be9 at0011 = ╱45╱E╱ // 0x1be6 @0x11
0x1bd5…1be9 at0012 = ╱52╱R╱ // 0x1be7 @0x12
0x1bd5…1be9 at0013 = EOL // 0x1be8 @0x13
0x1bd5…1be9 }
0x1be9…1bee b1dc 2700
0x1be9…1bee LineComal80 {
0x1be9…1bee ptr = 0xb1dc // 0x1be9 @0x0
0x1be9…1bee lno = 0x0a8c // 0x1beb @0x2
0x1be9…1bee at0004 = EOL // 0x1bed @0x4
0x1be9…1bee }
0x1bee…1c01 b1ef 2710 PROC SKRIV_LINIER
0x1bee…1c01 LineComal80 {
0x1bee…1c01 ptr = 0xb1ef // 0x1bee @0x0
0x1bee…1c01 lno = 0x0a96 // 0x1bf0 @0x2
0x1bee…1c01 at0004 = ╱9e2e╱ PROC ╱ // 0x1bf2 @0x4
0x1bee…1c01 at0006 = ╱53╱S╱ // 0x1bf4 @0x6
0x1bee…1c01 at0007 = ╱4b╱K╱ // 0x1bf5 @0x7
0x1bee…1c01 at0008 = ╱52╱R╱ // 0x1bf6 @0x8
0x1bee…1c01 at0009 = ╱49╱I╱ // 0x1bf7 @0x9
0x1bee…1c01 at000a = ╱56╱V╱ // 0x1bf8 @0xa
0x1bee…1c01 at000b = ╱5f╱_╱ // 0x1bf9 @0xb
0x1bee…1c01 at000c = ╱4c╱L╱ // 0x1bfa @0xc
0x1bee…1c01 at000d = ╱49╱I╱ // 0x1bfb @0xd
0x1bee…1c01 at000e = ╱4e╱N╱ // 0x1bfc @0xe
0x1bee…1c01 at000f = ╱49╱I╱ // 0x1bfd @0xf
0x1bee…1c01 at0010 = ╱45╱E╱ // 0x1bfe @0x10
0x1bee…1c01 at0011 = ╱52╱R╱ // 0x1bff @0x11
0x1bee…1c01 at0012 = EOL // 0x1c00 @0x12
0x1bee…1c01 }
0x1c01…1c46 b234 2720 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
0x1c01…1c46 LineComal80 {
0x1c01…1c46 ptr = 0xb234 // 0x1c01 @0x0
0x1c01…1c46 lno = 0x0aa0 // 0x1c03 @0x2
0x1c01…1c46 at0004 = ╱a9╱ GET ╱ // 0x1c05 @0x4
0x1c01…1c46 at0005 = ╱44╱D╱ // 0x1c06 @0x5
0x1c01…1c46 at0006 = ╱47╱G╱ // 0x1c07 @0x6
0x1c01…1c46 at0007 = ╱5f╱_╱ // 0x1c08 @0x7
0x1c01…1c46 at0008 = ╱50╱P╱ // 0x1c09 @0x8
0x1c01…1c46 at0009 = ╱4f╱O╱ // 0x1c0a @0x9
0x1c01…1c46 at000a = ╱53╱S╱ // 0x1c0b @0xa
0x1c01…1c46 at000b = ╱ef╱$╱ // 0x1c0c @0xb
0x1c01…1c46 at000c = ╱ec╱,╱ // 0x1c0d @0xc
0x1c01…1c46 at000d = ╱31╱1╱ // 0x1c0e @0xd
0x1c01…1c46 at000e = ╱f20100╱ // 0x1c0f @0xe
0x1c01…1c46 at0011 = ╱f1╱ : ╱ // 0x1c12 @0x11
0x1c01…1c46 at0012 = ╱50╱P╱ // 0x1c13 @0x12
0x1c01…1c46 at0013 = ╱5f╱_╱ // 0x1c14 @0x13
0x1c01…1c46 at0014 = ╱48╱H╱ // 0x1c15 @0x14
0x1c01…1c46 at0015 = ╱5c╱Ø╱ // 0x1c16 @0x15
0x1c01…1c46 at0016 = ╱4a╱J╱ // 0x1c17 @0x16
0x1c01…1c46 at0017 = ╱52╱R╱ // 0x1c18 @0x17
0x1c01…1c46 at0018 = ╱45╱E╱ // 0x1c19 @0x18
0x1c01…1c46 at0019 = ╱43╱C╱ // 0x1c1a @0x19
0x1c01…1c46 at001a = ╱ec╱,╱ // 0x1c1b @0x1a
0x1c01…1c46 at001b = ╱50╱P╱ // 0x1c1c @0x1b
0x1c01…1c46 at001c = ╱5f╱_╱ // 0x1c1d @0x1c
0x1c01…1c46 at001d = ╱4d╱M╱ // 0x1c1e @0x1d
0x1c01…1c46 at001e = ╱41╱A╱ // 0x1c1f @0x1e
0x1c01…1c46 at001f = ╱58╱X╱ // 0x1c20 @0x1f
0x1c01…1c46 at0020 = ╱52╱R╱ // 0x1c21 @0x20
0x1c01…1c46 at0021 = ╱45╱E╱ // 0x1c22 @0x21
0x1c01…1c46 at0022 = ╱43╱C╱ // 0x1c23 @0x22
0x1c01…1c46 at0023 = ╱ec╱,╱ // 0x1c24 @0x23
0x1c01…1c46 at0024 = ╱53╱S╱ // 0x1c25 @0x24
0x1c01…1c46 at0025 = ╱5f╱_╱ // 0x1c26 @0x25
0x1c01…1c46 at0026 = ╱4e╱N╱ // 0x1c27 @0x26
0x1c01…1c46 at0027 = ╱52╱R╱ // 0x1c28 @0x27
0x1c01…1c46 at0028 = ╱5f╱_╱ // 0x1c29 @0x28
0x1c01…1c46 at0029 = ╱44╱D╱ // 0x1c2a @0x29
0x1c01…1c46 at002a = ╱47╱G╱ // 0x1c2b @0x2a
0x1c01…1c46 at002b = ╱5f╱_╱ // 0x1c2c @0x2b
0x1c01…1c46 at002c = ╱50╱P╱ // 0x1c2d @0x2c
0x1c01…1c46 at002d = ╱4f╱O╱ // 0x1c2e @0x2d
0x1c01…1c46 at002e = ╱53╱S╱ // 0x1c2f @0x2e
0x1c01…1c46 at002f = ╱ec╱,╱ // 0x1c30 @0x2f
0x1c01…1c46 at0030 = ╱50╱P╱ // 0x1c31 @0x30
0x1c01…1c46 at0031 = ╱5f╱_╱ // 0x1c32 @0x31
0x1c01…1c46 at0032 = ╱44╱D╱ // 0x1c33 @0x32
0x1c01…1c46 at0033 = ╱45╱E╱ // 0x1c34 @0x33
0x1c01…1c46 at0034 = ╱42╱B╱ // 0x1c35 @0x34
0x1c01…1c46 at0035 = ╱ec╱,╱ // 0x1c36 @0x35
0x1c01…1c46 at0036 = ╱50╱P╱ // 0x1c37 @0x36
0x1c01…1c46 at0037 = ╱5f╱_╱ // 0x1c38 @0x37
0x1c01…1c46 at0038 = ╱4b╱K╱ // 0x1c39 @0x38
0x1c01…1c46 at0039 = ╱52╱R╱ // 0x1c3a @0x39
0x1c01…1c46 at003a = ╱45╱E╱ // 0x1c3b @0x3a
0x1c01…1c46 at003b = ╱44╱D╱ // 0x1c3c @0x3b
0x1c01…1c46 at003c = ╱ec╱,╱ // 0x1c3d @0x3c
0x1c01…1c46 at003d = ╱50╱P╱ // 0x1c3e @0x3d
0x1c01…1c46 at003e = ╱5f╱_╱ // 0x1c3f @0x3e
0x1c01…1c46 at003f = ╱42╱B╱ // 0x1c40 @0x3f
0x1c01…1c46 at0040 = ╱44╱D╱ // 0x1c41 @0x40
0x1c01…1c46 at0041 = ╱41╱A╱ // 0x1c42 @0x41
0x1c01…1c46 at0042 = ╱54╱T╱ // 0x1c43 @0x42
0x1c01…1c46 at0043 = ╱ef╱$╱ // 0x1c44 @0x43
0x1c01…1c46 at0044 = EOL // 0x1c45 @0x44
0x1c01…1c46 }
0x1c46…1c58 (94,) b246 2730 EXEC DIV_POSHOVED
0x1c46…1c58 LineComal80 {
0x1c46…1c58 ptr = 0xb246 // 0x1c46 @0x0
0x1c46…1c58 lno = 0x0aaa // 0x1c48 @0x2
0x1c46…1c58 at0004 = ╱9d╱ EXEC ╱ // 0x1c4a @0x4
0x1c46…1c58 at0005 = ╱44╱D╱ // 0x1c4b @0x5
0x1c46…1c58 at0006 = ╱49╱I╱ // 0x1c4c @0x6
0x1c46…1c58 at0007 = ╱56╱V╱ // 0x1c4d @0x7
0x1c46…1c58 at0008 = ╱5f╱_╱ // 0x1c4e @0x8
0x1c46…1c58 at0009 = ╱50╱P╱ // 0x1c4f @0x9
0x1c46…1c58 at000a = ╱4f╱O╱ // 0x1c50 @0xa
0x1c46…1c58 at000b = ╱53╱S╱ // 0x1c51 @0xb
0x1c46…1c58 at000c = ╱48╱H╱ // 0x1c52 @0xc
0x1c46…1c58 at000d = ╱4f╱O╱ // 0x1c53 @0xd
0x1c46…1c58 at000e = ╱56╱V╱ // 0x1c54 @0xe
0x1c46…1c58 at000f = ╱45╱E╱ // 0x1c55 @0xf
0x1c46…1c58 at0010 = ╱44╱D╱ // 0x1c56 @0x10
0x1c46…1c58 at0011 = EOL // 0x1c57 @0x11
0x1c46…1c58 }
0x1c58…1c8e b27c 2740 FOR I := P_HØJREC - (P_HØJREC - 1) MOD 12 TO _HØJREC - 1 DO
0x1c58…1c8e LineComal80 {
0x1c58…1c8e ptr = 0xb27c // 0x1c58 @0x0
0x1c58…1c8e lno = 0x0ab4 // 0x1c5a @0x2
0x1c58…1c8e at0004 = ╱832f╱ FOR ╱ // 0x1c5c @0x4
0x1c58…1c8e at0006 = ╱49╱I╱ // 0x1c5e @0x6
0x1c58…1c8e at0007 = ╱f0╱ := ╱ // 0x1c5f @0x7
0x1c58…1c8e at0008 = ╱50╱P╱ // 0x1c60 @0x8
0x1c58…1c8e at0009 = ╱5f╱_╱ // 0x1c61 @0x9
0x1c58…1c8e at000a = ╱48╱H╱ // 0x1c62 @0xa
0x1c58…1c8e at000b = ╱5c╱Ø╱ // 0x1c63 @0xb
0x1c58…1c8e at000c = ╱4a╱J╱ // 0x1c64 @0xc
0x1c58…1c8e at000d = ╱52╱R╱ // 0x1c65 @0xd
0x1c58…1c8e at000e = ╱45╱E╱ // 0x1c66 @0xe
0x1c58…1c8e at000f = ╱43╱C╱ // 0x1c67 @0xf
0x1c58…1c8e at0010 = ╱e6╱ - ╱ // 0x1c68 @0x10
0x1c58…1c8e at0011 = ╱ed╱(╱ // 0x1c69 @0x11
0x1c58…1c8e at0012 = ╱50╱P╱ // 0x1c6a @0x12
0x1c58…1c8e at0013 = ╱5f╱_╱ // 0x1c6b @0x13
0x1c58…1c8e at0014 = ╱48╱H╱ // 0x1c6c @0x14
0x1c58…1c8e at0015 = ╱5c╱Ø╱ // 0x1c6d @0x15
0x1c58…1c8e at0016 = ╱4a╱J╱ // 0x1c6e @0x16
0x1c58…1c8e at0017 = ╱52╱R╱ // 0x1c6f @0x17
0x1c58…1c8e at0018 = ╱45╱E╱ // 0x1c70 @0x18
0x1c58…1c8e at0019 = ╱43╱C╱ // 0x1c71 @0x19
0x1c58…1c8e at001a = ╱e6╱ - ╱ // 0x1c72 @0x1a
0x1c58…1c8e at001b = ╱31╱1╱ // 0x1c73 @0x1b
0x1c58…1c8e at001c = ╱f20100╱ // 0x1c74 @0x1c
0x1c58…1c8e at001f = ╱ee╱)╱ // 0x1c77 @0x1f
0x1c58…1c8e at0020 = ╱db╱ MOD ╱ // 0x1c78 @0x20
0x1c58…1c8e at0021 = ╱31╱1╱ // 0x1c79 @0x21
0x1c58…1c8e at0022 = ╱32╱2╱ // 0x1c7a @0x22
0x1c58…1c8e at0023 = ╱f20c00╱ // 0x1c7b @0x23
0x1c58…1c8e at0026 = ╱b750╱ TO ╱ // 0x1c7e @0x26
0x1c58…1c8e at0028 = ╱5f╱_╱ // 0x1c80 @0x28
0x1c58…1c8e at0029 = ╱48╱H╱ // 0x1c81 @0x29
0x1c58…1c8e at002a = ╱5c╱Ø╱ // 0x1c82 @0x2a
0x1c58…1c8e at002b = ╱4a╱J╱ // 0x1c83 @0x2b
0x1c58…1c8e at002c = ╱52╱R╱ // 0x1c84 @0x2c
0x1c58…1c8e at002d = ╱45╱E╱ // 0x1c85 @0x2d
0x1c58…1c8e at002e = ╱43╱C╱ // 0x1c86 @0x2e
0x1c58…1c8e at002f = ╱e6╱ - ╱ // 0x1c87 @0x2f
0x1c58…1c8e at0030 = ╱31╱1╱ // 0x1c88 @0x30
0x1c58…1c8e at0031 = ╱f20100╱ // 0x1c89 @0x31
0x1c58…1c8e at0034 = ╱bb╱ DO ╱ // 0x1c8c @0x34
0x1c58…1c8e at0035 = EOL // 0x1c8d @0x35
0x1c58…1c8e }
0x1c8e…1c9c b28a 2750 IF > 0 THEN
0x1c8e…1c9c LineComal80 {
0x1c8e…1c9c ptr = 0xb28a // 0x1c8e @0x0
0x1c8e…1c9c lno = 0x0abe // 0x1c90 @0x2
0x1c8e…1c9c at0004 = ╱9b3049╱ IF ╱ // 0x1c92 @0x4
0x1c8e…1c9c at0007 = ╱e1╱ > ╱ // 0x1c95 @0x7
0x1c8e…1c9c at0008 = ╱30╱0╱ // 0x1c96 @0x8
0x1c8e…1c9c at0009 = ╱f20000╱ // 0x1c97 @0x9
0x1c8e…1c9c at000c = ╱b5╱ THEN ╱ // 0x1c9a @0xc
0x1c8e…1c9c at000d = EOL // 0x1c9b @0xd
0x1c8e…1c9c }
0x1c9c…1caf b29d 2760 EXEC LÆS_DG_POS(I)
0x1c9c…1caf LineComal80 {
0x1c9c…1caf ptr = 0xb29d // 0x1c9c @0x0
0x1c9c…1caf lno = 0x0ac8 // 0x1c9e @0x2
0x1c9c…1caf at0004 = ╱9d╱ EXEC ╱ // 0x1ca0 @0x4
0x1c9c…1caf at0005 = ╱4c╱L╱ // 0x1ca1 @0x5
0x1c9c…1caf at0006 = ╱5b╱Æ╱ // 0x1ca2 @0x6
0x1c9c…1caf at0007 = ╱53╱S╱ // 0x1ca3 @0x7
0x1c9c…1caf at0008 = ╱5f╱_╱ // 0x1ca4 @0x8
0x1c9c…1caf at0009 = ╱44╱D╱ // 0x1ca5 @0x9
0x1c9c…1caf at000a = ╱47╱G╱ // 0x1ca6 @0xa
0x1c9c…1caf at000b = ╱5f╱_╱ // 0x1ca7 @0xb
0x1c9c…1caf at000c = ╱50╱P╱ // 0x1ca8 @0xc
0x1c9c…1caf at000d = ╱4f╱O╱ // 0x1ca9 @0xd
0x1c9c…1caf at000e = ╱53╱S╱ // 0x1caa @0xe
0x1c9c…1caf at000f = ╱ed╱(╱ // 0x1cab @0xf
0x1c9c…1caf at0010 = ╱49╱I╱ // 0x1cac @0x10
0x1c9c…1caf at0011 = ╱ee╱)╱ // 0x1cad @0x11
0x1c9c…1caf at0012 = EOL // 0x1cae @0x12
0x1c9c…1caf }
0x1caf…1cc1 b2af 2770 EXEC SKRIV_LIN(I)
0x1caf…1cc1 LineComal80 {
0x1caf…1cc1 ptr = 0xb2af // 0x1caf @0x0
0x1caf…1cc1 lno = 0x0ad2 // 0x1cb1 @0x2
0x1caf…1cc1 at0004 = ╱9d╱ EXEC ╱ // 0x1cb3 @0x4
0x1caf…1cc1 at0005 = ╱53╱S╱ // 0x1cb4 @0x5
0x1caf…1cc1 at0006 = ╱4b╱K╱ // 0x1cb5 @0x6
0x1caf…1cc1 at0007 = ╱52╱R╱ // 0x1cb6 @0x7
0x1caf…1cc1 at0008 = ╱49╱I╱ // 0x1cb7 @0x8
0x1caf…1cc1 at0009 = ╱56╱V╱ // 0x1cb8 @0x9
0x1caf…1cc1 at000a = ╱5f╱_╱ // 0x1cb9 @0xa
0x1caf…1cc1 at000b = ╱4c╱L╱ // 0x1cba @0xb
0x1caf…1cc1 at000c = ╱49╱I╱ // 0x1cbb @0xc
0x1caf…1cc1 at000d = ╱4e╱N╱ // 0x1cbc @0xd
0x1caf…1cc1 at000e = ╱ed╱(╱ // 0x1cbd @0xe
0x1caf…1cc1 at000f = ╱49╱I╱ // 0x1cbe @0xf
0x1caf…1cc1 at0010 = ╱ee╱)╱ // 0x1cbf @0x10
0x1caf…1cc1 at0011 = EOL // 0x1cc0 @0x11
0x1caf…1cc1 }
0x1cc1…1cc7 b2b5 2780 ENDIF
0x1cc1…1cc7 LineComal80 {
0x1cc1…1cc7 ptr = 0xb2b5 // 0x1cc1 @0x0
0x1cc1…1cc7 lno = 0x0adc // 0x1cc3 @0x2
0x1cc1…1cc7 at0004 = ╱9c╱ ENDIF ╱ // 0x1cc5 @0x4
0x1cc1…1cc7 at0005 = EOL // 0x1cc6 @0x5
0x1cc1…1cc7 }
0x1cc7…1cce b2bc 2790 NEXT I
0x1cc7…1cce LineComal80 {
0x1cc7…1cce ptr = 0xb2bc // 0x1cc7 @0x0
0x1cc7…1cce lno = 0x0ae6 // 0x1cc9 @0x2
0x1cc7…1cce at0004 = ╱84╱ NEXT ╱ // 0x1ccb @0x4
0x1cc7…1cce at0005 = ╱49╱I╱ // 0x1ccc @0x5
0x1cc7…1cce at0006 = EOL // 0x1ccd @0x6
0x1cc7…1cce }
0x1cce…1ce0 b2ce 2800 ENDPROC SKRIV_LINIER
0x1cce…1ce0 LineComal80 {
0x1cce…1ce0 ptr = 0xb2ce // 0x1cce @0x0
0x1cce…1ce0 lno = 0x0af0 // 0x1cd0 @0x2
0x1cce…1ce0 at0004 = ╱9f╱ ENDPROC ╱ // 0x1cd2 @0x4
0x1cce…1ce0 at0005 = ╱53╱S╱ // 0x1cd3 @0x5
0x1cce…1ce0 at0006 = ╱4b╱K╱ // 0x1cd4 @0x6
0x1cce…1ce0 at0007 = ╱52╱R╱ // 0x1cd5 @0x7
0x1cce…1ce0 at0008 = ╱49╱I╱ // 0x1cd6 @0x8
0x1cce…1ce0 at0009 = ╱56╱V╱ // 0x1cd7 @0x9
0x1cce…1ce0 at000a = ╱5f╱_╱ // 0x1cd8 @0xa
0x1cce…1ce0 at000b = ╱4c╱L╱ // 0x1cd9 @0xb
0x1cce…1ce0 at000c = ╱49╱I╱ // 0x1cda @0xc
0x1cce…1ce0 at000d = ╱4e╱N╱ // 0x1cdb @0xd
0x1cce…1ce0 at000e = ╱49╱I╱ // 0x1cdc @0xe
0x1cce…1ce0 at000f = ╱45╱E╱ // 0x1cdd @0xf
0x1cce…1ce0 at0010 = ╱52╱R╱ // 0x1cde @0x10
0x1cce…1ce0 at0011 = EOL // 0x1cdf @0x11
0x1cce…1ce0 }
0x1ce0…1ce5 (96,) b2d3 2810
0x1ce0…1ce5 LineComal80 {
0x1ce0…1ce5 ptr = 0xb2d3 // 0x1ce0 @0x0
0x1ce0…1ce5 lno = 0x0afa // 0x1ce2 @0x2
0x1ce0…1ce5 at0004 = EOL // 0x1ce4 @0x4
0x1ce0…1ce5 }
0x1ce5…1cfb b2e9 2820 PROC SKRIV_DG_POS(P)
0x1ce5…1cfb LineComal80 {
0x1ce5…1cfb ptr = 0xb2e9 // 0x1ce5 @0x0
0x1ce5…1cfb lno = 0x0b04 // 0x1ce7 @0x2
0x1ce5…1cfb at0004 = ╱9e31╱ PROC ╱ // 0x1ce9 @0x4
0x1ce5…1cfb at0006 = ╱53╱S╱ // 0x1ceb @0x6
0x1ce5…1cfb at0007 = ╱4b╱K╱ // 0x1cec @0x7
0x1ce5…1cfb at0008 = ╱52╱R╱ // 0x1ced @0x8
0x1ce5…1cfb at0009 = ╱49╱I╱ // 0x1cee @0x9
0x1ce5…1cfb at000a = ╱56╱V╱ // 0x1cef @0xa
0x1ce5…1cfb at000b = ╱5f╱_╱ // 0x1cf0 @0xb
0x1ce5…1cfb at000c = ╱44╱D╱ // 0x1cf1 @0xc
0x1ce5…1cfb at000d = ╱47╱G╱ // 0x1cf2 @0xd
0x1ce5…1cfb at000e = ╱5f╱_╱ // 0x1cf3 @0xe
0x1ce5…1cfb at000f = ╱50╱P╱ // 0x1cf4 @0xf
0x1ce5…1cfb at0010 = ╱4f╱O╱ // 0x1cf5 @0x10
0x1ce5…1cfb at0011 = ╱53╱S╱ // 0x1cf6 @0x11
0x1ce5…1cfb at0012 = ╱ed╱(╱ // 0x1cf7 @0x12
0x1ce5…1cfb at0013 = ╱50╱P╱ // 0x1cf8 @0x13
0x1ce5…1cfb at0014 = ╱ee╱)╱ // 0x1cf9 @0x14
0x1ce5…1cfb at0015 = EOL // 0x1cfa @0x15
0x1ce5…1cfb }
0x1cfb…1d38 b326 2830 PUT DG_POS$,P + 1 : P_BKTO$,P_MKOD$,P_BNR$,P_TXT$,P_BKR,P_DK
0x1cfb…1d38 LineComal80 {
0x1cfb…1d38 ptr = 0xb326 // 0x1cfb @0x0
0x1cfb…1d38 lno = 0x0b0e // 0x1cfd @0x2
0x1cfb…1d38 at0004 = ╱aa╱ PUT ╱ // 0x1cff @0x4
0x1cfb…1d38 at0005 = ╱44╱D╱ // 0x1d00 @0x5
0x1cfb…1d38 at0006 = ╱47╱G╱ // 0x1d01 @0x6
0x1cfb…1d38 at0007 = ╱5f╱_╱ // 0x1d02 @0x7
0x1cfb…1d38 at0008 = ╱50╱P╱ // 0x1d03 @0x8
0x1cfb…1d38 at0009 = ╱4f╱O╱ // 0x1d04 @0x9
0x1cfb…1d38 at000a = ╱53╱S╱ // 0x1d05 @0xa
0x1cfb…1d38 at000b = ╱ef╱$╱ // 0x1d06 @0xb
0x1cfb…1d38 at000c = ╱ec╱,╱ // 0x1d07 @0xc
0x1cfb…1d38 at000d = ╱50╱P╱ // 0x1d08 @0xd
0x1cfb…1d38 at000e = ╱e5╱ + ╱ // 0x1d09 @0xe
0x1cfb…1d38 at000f = ╱31╱1╱ // 0x1d0a @0xf
0x1cfb…1d38 at0010 = ╱f20100╱ // 0x1d0b @0x10
0x1cfb…1d38 at0013 = ╱f1╱ : ╱ // 0x1d0e @0x13
0x1cfb…1d38 at0014 = ╱50╱P╱ // 0x1d0f @0x14
0x1cfb…1d38 at0015 = ╱5f╱_╱ // 0x1d10 @0x15
0x1cfb…1d38 at0016 = ╱42╱B╱ // 0x1d11 @0x16
0x1cfb…1d38 at0017 = ╱4b╱K╱ // 0x1d12 @0x17
0x1cfb…1d38 at0018 = ╱54╱T╱ // 0x1d13 @0x18
0x1cfb…1d38 at0019 = ╱4f╱O╱ // 0x1d14 @0x19
0x1cfb…1d38 at001a = ╱ef╱$╱ // 0x1d15 @0x1a
0x1cfb…1d38 at001b = ╱ec╱,╱ // 0x1d16 @0x1b
0x1cfb…1d38 at001c = ╱50╱P╱ // 0x1d17 @0x1c
0x1cfb…1d38 at001d = ╱5f╱_╱ // 0x1d18 @0x1d
0x1cfb…1d38 at001e = ╱4d╱M╱ // 0x1d19 @0x1e
0x1cfb…1d38 at001f = ╱4b╱K╱ // 0x1d1a @0x1f
0x1cfb…1d38 at0020 = ╱4f╱O╱ // 0x1d1b @0x20
0x1cfb…1d38 at0021 = ╱44╱D╱ // 0x1d1c @0x21
0x1cfb…1d38 at0022 = ╱ef╱$╱ // 0x1d1d @0x22
0x1cfb…1d38 at0023 = ╱ec╱,╱ // 0x1d1e @0x23
0x1cfb…1d38 at0024 = ╱50╱P╱ // 0x1d1f @0x24
0x1cfb…1d38 at0025 = ╱5f╱_╱ // 0x1d20 @0x25
0x1cfb…1d38 at0026 = ╱42╱B╱ // 0x1d21 @0x26
0x1cfb…1d38 at0027 = ╱4e╱N╱ // 0x1d22 @0x27
0x1cfb…1d38 at0028 = ╱52╱R╱ // 0x1d23 @0x28
0x1cfb…1d38 at0029 = ╱ef╱$╱ // 0x1d24 @0x29
0x1cfb…1d38 at002a = ╱ec╱,╱ // 0x1d25 @0x2a
0x1cfb…1d38 at002b = ╱50╱P╱ // 0x1d26 @0x2b
0x1cfb…1d38 at002c = ╱5f╱_╱ // 0x1d27 @0x2c
0x1cfb…1d38 at002d = ╱54╱T╱ // 0x1d28 @0x2d
0x1cfb…1d38 at002e = ╱58╱X╱ // 0x1d29 @0x2e
0x1cfb…1d38 at002f = ╱54╱T╱ // 0x1d2a @0x2f
0x1cfb…1d38 at0030 = ╱ef╱$╱ // 0x1d2b @0x30
0x1cfb…1d38 at0031 = ╱ec╱,╱ // 0x1d2c @0x31
0x1cfb…1d38 at0032 = ╱50╱P╱ // 0x1d2d @0x32
0x1cfb…1d38 at0033 = ╱5f╱_╱ // 0x1d2e @0x33
0x1cfb…1d38 at0034 = ╱42╱B╱ // 0x1d2f @0x34
0x1cfb…1d38 at0035 = ╱4b╱K╱ // 0x1d30 @0x35
0x1cfb…1d38 at0036 = ╱52╱R╱ // 0x1d31 @0x36
0x1cfb…1d38 at0037 = ╱ec╱,╱ // 0x1d32 @0x37
0x1cfb…1d38 at0038 = ╱50╱P╱ // 0x1d33 @0x38
0x1cfb…1d38 at0039 = ╱5f╱_╱ // 0x1d34 @0x39
0x1cfb…1d38 at003a = ╱44╱D╱ // 0x1d35 @0x3a
0x1cfb…1d38 at003b = ╱4b╱K╱ // 0x1d36 @0x3b
0x1cfb…1d38 at003c = EOL // 0x1d37 @0x3c
0x1cfb…1d38 }
0x1d38…1d4a b338 2840 ENDPROC SKRIV_DG_POS
0x1d38…1d4a LineComal80 {
0x1d38…1d4a ptr = 0xb338 // 0x1d38 @0x0
0x1d38…1d4a lno = 0x0b18 // 0x1d3a @0x2
0x1d38…1d4a at0004 = ╱9f╱ ENDPROC ╱ // 0x1d3c @0x4
0x1d38…1d4a at0005 = ╱53╱S╱ // 0x1d3d @0x5
0x1d38…1d4a at0006 = ╱4b╱K╱ // 0x1d3e @0x6
0x1d38…1d4a at0007 = ╱52╱R╱ // 0x1d3f @0x7
0x1d38…1d4a at0008 = ╱49╱I╱ // 0x1d40 @0x8
0x1d38…1d4a at0009 = ╱56╱V╱ // 0x1d41 @0x9
0x1d38…1d4a at000a = ╱5f╱_╱ // 0x1d42 @0xa
0x1d38…1d4a at000b = ╱44╱D╱ // 0x1d43 @0xb
0x1d38…1d4a at000c = ╱47╱G╱ // 0x1d44 @0xc
0x1d38…1d4a at000d = ╱5f╱_╱ // 0x1d45 @0xd
0x1d38…1d4a at000e = ╱50╱P╱ // 0x1d46 @0xe
0x1d38…1d4a at000f = ╱4f╱O╱ // 0x1d47 @0xf
0x1d38…1d4a at0010 = ╱53╱S╱ // 0x1d48 @0x10
0x1d38…1d4a at0011 = EOL // 0x1d49 @0x11
0x1d38…1d4a }
0x1d4a…1d4f b33d 2850
0x1d4a…1d4f LineComal80 {
0x1d4a…1d4f ptr = 0xb33d // 0x1d4a @0x0
0x1d4a…1d4f lno = 0x0b22 // 0x1d4c @0x2
0x1d4a…1d4f at0004 = EOL // 0x1d4e @0x4
0x1d4a…1d4f }
0x1d4f…1d63 b351 2860 PROC LÆS_DG_POS(P)
0x1d4f…1d63 LineComal80 {
0x1d4f…1d63 ptr = 0xb351 // 0x1d4f @0x0
0x1d4f…1d63 lno = 0x0b2c // 0x1d51 @0x2
0x1d4f…1d63 at0004 = ╱9e32╱ PROC ╱ // 0x1d53 @0x4
0x1d4f…1d63 at0006 = ╱4c╱L╱ // 0x1d55 @0x6
0x1d4f…1d63 at0007 = ╱5b╱Æ╱ // 0x1d56 @0x7
0x1d4f…1d63 at0008 = ╱53╱S╱ // 0x1d57 @0x8
0x1d4f…1d63 at0009 = ╱5f╱_╱ // 0x1d58 @0x9
0x1d4f…1d63 at000a = ╱44╱D╱ // 0x1d59 @0xa
0x1d4f…1d63 at000b = ╱47╱G╱ // 0x1d5a @0xb
0x1d4f…1d63 at000c = ╱5f╱_╱ // 0x1d5b @0xc
0x1d4f…1d63 at000d = ╱50╱P╱ // 0x1d5c @0xd
0x1d4f…1d63 at000e = ╱4f╱O╱ // 0x1d5d @0xe
0x1d4f…1d63 at000f = ╱53╱S╱ // 0x1d5e @0xf
0x1d4f…1d63 at0010 = ╱ed╱(╱ // 0x1d5f @0x10
0x1d4f…1d63 at0011 = ╱50╱P╱ // 0x1d60 @0x11
0x1d4f…1d63 at0012 = ╱ee╱)╱ // 0x1d61 @0x12
0x1d4f…1d63 at0013 = EOL // 0x1d62 @0x13
0x1d4f…1d63 }
0x1d63…1da0 b38e 2870 GET DG_POS$,P + 1 : P_BKTO$,P_MKOD$,P_BNR$,P_TXT$,P_BKR,P_DK
0x1d63…1da0 LineComal80 {
0x1d63…1da0 ptr = 0xb38e // 0x1d63 @0x0
0x1d63…1da0 lno = 0x0b36 // 0x1d65 @0x2
0x1d63…1da0 at0004 = ╱a9╱ GET ╱ // 0x1d67 @0x4
0x1d63…1da0 at0005 = ╱44╱D╱ // 0x1d68 @0x5
0x1d63…1da0 at0006 = ╱47╱G╱ // 0x1d69 @0x6
0x1d63…1da0 at0007 = ╱5f╱_╱ // 0x1d6a @0x7
0x1d63…1da0 at0008 = ╱50╱P╱ // 0x1d6b @0x8
0x1d63…1da0 at0009 = ╱4f╱O╱ // 0x1d6c @0x9
0x1d63…1da0 at000a = ╱53╱S╱ // 0x1d6d @0xa
0x1d63…1da0 at000b = ╱ef╱$╱ // 0x1d6e @0xb
0x1d63…1da0 at000c = ╱ec╱,╱ // 0x1d6f @0xc
0x1d63…1da0 at000d = ╱50╱P╱ // 0x1d70 @0xd
0x1d63…1da0 at000e = ╱e5╱ + ╱ // 0x1d71 @0xe
0x1d63…1da0 at000f = ╱31╱1╱ // 0x1d72 @0xf
0x1d63…1da0 at0010 = ╱f20100╱ // 0x1d73 @0x10
0x1d63…1da0 at0013 = ╱f1╱ : ╱ // 0x1d76 @0x13
0x1d63…1da0 at0014 = ╱50╱P╱ // 0x1d77 @0x14
0x1d63…1da0 at0015 = ╱5f╱_╱ // 0x1d78 @0x15
0x1d63…1da0 at0016 = ╱42╱B╱ // 0x1d79 @0x16
0x1d63…1da0 at0017 = ╱4b╱K╱ // 0x1d7a @0x17
0x1d63…1da0 at0018 = ╱54╱T╱ // 0x1d7b @0x18
0x1d63…1da0 at0019 = ╱4f╱O╱ // 0x1d7c @0x19
0x1d63…1da0 at001a = ╱ef╱$╱ // 0x1d7d @0x1a
0x1d63…1da0 at001b = ╱ec╱,╱ // 0x1d7e @0x1b
0x1d63…1da0 at001c = ╱50╱P╱ // 0x1d7f @0x1c
0x1d63…1da0 at001d = ╱5f╱_╱ // 0x1d80 @0x1d
0x1d63…1da0 at001e = ╱4d╱M╱ // 0x1d81 @0x1e
0x1d63…1da0 at001f = ╱4b╱K╱ // 0x1d82 @0x1f
0x1d63…1da0 at0020 = ╱4f╱O╱ // 0x1d83 @0x20
0x1d63…1da0 at0021 = ╱44╱D╱ // 0x1d84 @0x21
0x1d63…1da0 at0022 = ╱ef╱$╱ // 0x1d85 @0x22
0x1d63…1da0 at0023 = ╱ec╱,╱ // 0x1d86 @0x23
0x1d63…1da0 at0024 = ╱50╱P╱ // 0x1d87 @0x24
0x1d63…1da0 at0025 = ╱5f╱_╱ // 0x1d88 @0x25
0x1d63…1da0 at0026 = ╱42╱B╱ // 0x1d89 @0x26
0x1d63…1da0 at0027 = ╱4e╱N╱ // 0x1d8a @0x27
0x1d63…1da0 at0028 = ╱52╱R╱ // 0x1d8b @0x28
0x1d63…1da0 at0029 = ╱ef╱$╱ // 0x1d8c @0x29
0x1d63…1da0 at002a = ╱ec╱,╱ // 0x1d8d @0x2a
0x1d63…1da0 at002b = ╱50╱P╱ // 0x1d8e @0x2b
0x1d63…1da0 at002c = ╱5f╱_╱ // 0x1d8f @0x2c
0x1d63…1da0 at002d = ╱54╱T╱ // 0x1d90 @0x2d
0x1d63…1da0 at002e = ╱58╱X╱ // 0x1d91 @0x2e
0x1d63…1da0 at002f = ╱54╱T╱ // 0x1d92 @0x2f
0x1d63…1da0 at0030 = ╱ef╱$╱ // 0x1d93 @0x30
0x1d63…1da0 at0031 = ╱ec╱,╱ // 0x1d94 @0x31
0x1d63…1da0 at0032 = ╱50╱P╱ // 0x1d95 @0x32
0x1d63…1da0 at0033 = ╱5f╱_╱ // 0x1d96 @0x33
0x1d63…1da0 at0034 = ╱42╱B╱ // 0x1d97 @0x34
0x1d63…1da0 at0035 = ╱4b╱K╱ // 0x1d98 @0x35
0x1d63…1da0 at0036 = ╱52╱R╱ // 0x1d99 @0x36
0x1d63…1da0 at0037 = ╱ec╱,╱ // 0x1d9a @0x37
0x1d63…1da0 at0038 = ╱50╱P╱ // 0x1d9b @0x38
0x1d63…1da0 at0039 = ╱5f╱_╱ // 0x1d9c @0x39
0x1d63…1da0 at003a = ╱44╱D╱ // 0x1d9d @0x3a
0x1d63…1da0 at003b = ╱4b╱K╱ // 0x1d9e @0x3b
0x1d63…1da0 at003c = EOL // 0x1d9f @0x3c
0x1d63…1da0 }
0x1da0…1db0 b39e 2880 ENDPROC LÆS_DG_POS
0x1da0…1db0 LineComal80 {
0x1da0…1db0 ptr = 0xb39e // 0x1da0 @0x0
0x1da0…1db0 lno = 0x0b40 // 0x1da2 @0x2
0x1da0…1db0 at0004 = ╱9f╱ ENDPROC ╱ // 0x1da4 @0x4
0x1da0…1db0 at0005 = ╱4c╱L╱ // 0x1da5 @0x5
0x1da0…1db0 at0006 = ╱5b╱Æ╱ // 0x1da6 @0x6
0x1da0…1db0 at0007 = ╱53╱S╱ // 0x1da7 @0x7
0x1da0…1db0 at0008 = ╱5f╱_╱ // 0x1da8 @0x8
0x1da0…1db0 at0009 = ╱44╱D╱ // 0x1da9 @0x9
0x1da0…1db0 at000a = ╱47╱G╱ // 0x1daa @0xa
0x1da0…1db0 at000b = ╱5f╱_╱ // 0x1dab @0xb
0x1da0…1db0 at000c = ╱50╱P╱ // 0x1dac @0xc
0x1da0…1db0 at000d = ╱4f╱O╱ // 0x1dad @0xd
0x1da0…1db0 at000e = ╱53╱S╱ // 0x1dae @0xe
0x1da0…1db0 at000f = EOL // 0x1daf @0xf
0x1da0…1db0 }
0x1db0…1db5 b3a3 2890
0x1db0…1db5 LineComal80 {
0x1db0…1db5 ptr = 0xb3a3 // 0x1db0 @0x0
0x1db0…1db5 lno = 0x0b4a // 0x1db2 @0x2
0x1db0…1db5 at0004 = EOL // 0x1db4 @0x4
0x1db0…1db5 }
0x1db5…1dcc b3ba 2900 PROC SKRIV_LIN(R_LIN)
0x1db5…1dcc LineComal80 {
0x1db5…1dcc ptr = 0xb3ba // 0x1db5 @0x0
0x1db5…1dcc lno = 0x0b54 // 0x1db7 @0x2
0x1db5…1dcc at0004 = ╱9e33╱ PROC ╱ // 0x1db9 @0x4
0x1db5…1dcc at0006 = ╱53╱S╱ // 0x1dbb @0x6
0x1db5…1dcc at0007 = ╱4b╱K╱ // 0x1dbc @0x7
0x1db5…1dcc at0008 = ╱52╱R╱ // 0x1dbd @0x8
0x1db5…1dcc at0009 = ╱49╱I╱ // 0x1dbe @0x9
0x1db5…1dcc at000a = ╱56╱V╱ // 0x1dbf @0xa
0x1db5…1dcc at000b = ╱5f╱_╱ // 0x1dc0 @0xb
0x1db5…1dcc at000c = ╱4c╱L╱ // 0x1dc1 @0xc
0x1db5…1dcc at000d = ╱49╱I╱ // 0x1dc2 @0xd
0x1db5…1dcc at000e = ╱4e╱N╱ // 0x1dc3 @0xe
0x1db5…1dcc at000f = ╱ed╱(╱ // 0x1dc4 @0xf
0x1db5…1dcc at0010 = ╱52╱R╱ // 0x1dc5 @0x10
0x1db5…1dcc at0011 = ╱5f╱_╱ // 0x1dc6 @0x11
0x1db5…1dcc at0012 = ╱4c╱L╱ // 0x1dc7 @0x12
0x1db5…1dcc at0013 = ╱49╱I╱ // 0x1dc8 @0x13
0x1db5…1dcc at0014 = ╱4e╱N╱ // 0x1dc9 @0x14
0x1db5…1dcc at0015 = ╱ee╱)╱ // 0x1dca @0x15
0x1db5…1dcc at0016 = EOL // 0x1dcb @0x16
0x1db5…1dcc }
0x1dcc…1de3 b3d1 2910 IF P_BNR$ = "*****" THEN EXIT
0x1dcc…1de3 LineComal80 {
0x1dcc…1de3 ptr = 0xb3d1 // 0x1dcc @0x0
0x1dcc…1de3 lno = 0x0b5e // 0x1dce @0x2
0x1dcc…1de3 at0004 = ╱8200╱ IF ╱ // 0x1dd0 @0x4
0x1dcc…1de3 at0006 = ╱50╱P╱ // 0x1dd2 @0x6
0x1dcc…1de3 at0007 = ╱5f╱_╱ // 0x1dd3 @0x7
0x1dcc…1de3 at0008 = ╱42╱B╱ // 0x1dd4 @0x8
0x1dcc…1de3 at0009 = ╱4e╱N╱ // 0x1dd5 @0x9
0x1dcc…1de3 at000a = ╱52╱R╱ // 0x1dd6 @0xa
0x1dcc…1de3 at000b = ╱ef╱$╱ // 0x1dd7 @0xb
0x1dcc…1de3 at000c = ╱df╱ = ╱ // 0x1dd8 @0xc
0x1dcc…1de3 at000d = ╱22╱"╱ // 0x1dd9 @0xd
0x1dcc…1de3 at000e = ╱2a╱*╱ // 0x1dda @0xe
0x1dcc…1de3 at000f = ╱2a╱*╱ // 0x1ddb @0xf
0x1dcc…1de3 at0010 = ╱2a╱*╱ // 0x1ddc @0x10
0x1dcc…1de3 at0011 = ╱2a╱*╱ // 0x1ddd @0x11
0x1dcc…1de3 at0012 = ╱2a╱*╱ // 0x1dde @0x12
0x1dcc…1de3 at0013 = ╱22╱"╱ // 0x1ddf @0x13
0x1dcc…1de3 at0014 = ╱b5╱ THEN ╱ // 0x1de0 @0x14
0x1dcc…1de3 at0015 = ╱99╱ EXIT ╱ // 0x1de1 @0x15
0x1dcc…1de3 at0016 = EOL // 0x1de2 @0x16
0x1dcc…1de3 }
0x1de3…1e00 b3ee 2920 LET R_SLIN := R_LIN MOD 12 + 7
0x1de3…1e00 LineComal80 {
0x1de3…1e00 ptr = 0xb3ee // 0x1de3 @0x0
0x1de3…1e00 lno = 0x0b68 // 0x1de5 @0x2
0x1de3…1e00 at0004 = ╱86╱ LET ╱ // 0x1de7 @0x4
0x1de3…1e00 at0005 = ╱52╱R╱ // 0x1de8 @0x5
0x1de3…1e00 at0006 = ╱5f╱_╱ // 0x1de9 @0x6
0x1de3…1e00 at0007 = ╱53╱S╱ // 0x1dea @0x7
0x1de3…1e00 at0008 = ╱4c╱L╱ // 0x1deb @0x8
0x1de3…1e00 at0009 = ╱49╱I╱ // 0x1dec @0x9
0x1de3…1e00 at000a = ╱4e╱N╱ // 0x1ded @0xa
0x1de3…1e00 at000b = ╱f0╱ := ╱ // 0x1dee @0xb
0x1de3…1e00 at000c = ╱52╱R╱ // 0x1def @0xc
0x1de3…1e00 at000d = ╱5f╱_╱ // 0x1df0 @0xd
0x1de3…1e00 at000e = ╱4c╱L╱ // 0x1df1 @0xe
0x1de3…1e00 at000f = ╱49╱I╱ // 0x1df2 @0xf
0x1de3…1e00 at0010 = ╱4e╱N╱ // 0x1df3 @0x10
0x1de3…1e00 at0011 = ╱db╱ MOD ╱ // 0x1df4 @0x11
0x1de3…1e00 at0012 = ╱31╱1╱ // 0x1df5 @0x12
0x1de3…1e00 at0013 = ╱32╱2╱ // 0x1df6 @0x13
0x1de3…1e00 at0014 = ╱f20c00╱ // 0x1df7 @0x14
0x1de3…1e00 at0017 = ╱e5╱ + ╱ // 0x1dfa @0x17
0x1de3…1e00 at0018 = ╱37╱7╱ // 0x1dfb @0x18
0x1de3…1e00 at0019 = ╱f20700╱ // 0x1dfc @0x19
0x1de3…1e00 at001c = EOL // 0x1dff @0x1c
0x1de3…1e00 }
0x1e00…1e27 b415 2930 IF R_SLIN = 7 THEN LET R_SLIN := 12 + R_SLIN
0x1e00…1e27 LineComal80 {
0x1e00…1e27 ptr = 0xb415 // 0x1e00 @0x0
0x1e00…1e27 lno = 0x0b72 // 0x1e02 @0x2
0x1e00…1e27 at0004 = ╱8200╱ IF ╱ // 0x1e04 @0x4
0x1e00…1e27 at0006 = ╱52╱R╱ // 0x1e06 @0x6
0x1e00…1e27 at0007 = ╱5f╱_╱ // 0x1e07 @0x7
0x1e00…1e27 at0008 = ╱53╱S╱ // 0x1e08 @0x8
0x1e00…1e27 at0009 = ╱4c╱L╱ // 0x1e09 @0x9
0x1e00…1e27 at000a = ╱49╱I╱ // 0x1e0a @0xa
0x1e00…1e27 at000b = ╱4e╱N╱ // 0x1e0b @0xb
0x1e00…1e27 at000c = ╱df╱ = ╱ // 0x1e0c @0xc
0x1e00…1e27 at000d = ╱37╱7╱ // 0x1e0d @0xd
0x1e00…1e27 at000e = ╱f20700╱ // 0x1e0e @0xe
0x1e00…1e27 at0011 = ╱b5╱ THEN ╱ // 0x1e11 @0x11
0x1e00…1e27 at0012 = ╱86╱ LET ╱ // 0x1e12 @0x12
0x1e00…1e27 at0013 = ╱52╱R╱ // 0x1e13 @0x13
0x1e00…1e27 at0014 = ╱5f╱_╱ // 0x1e14 @0x14
0x1e00…1e27 at0015 = ╱53╱S╱ // 0x1e15 @0x15
0x1e00…1e27 at0016 = ╱4c╱L╱ // 0x1e16 @0x16
0x1e00…1e27 at0017 = ╱49╱I╱ // 0x1e17 @0x17
0x1e00…1e27 at0018 = ╱4e╱N╱ // 0x1e18 @0x18
0x1e00…1e27 at0019 = ╱f0╱ := ╱ // 0x1e19 @0x19
0x1e00…1e27 at001a = ╱31╱1╱ // 0x1e1a @0x1a
0x1e00…1e27 at001b = ╱32╱2╱ // 0x1e1b @0x1b
0x1e00…1e27 at001c = ╱f20c00╱ // 0x1e1c @0x1c
0x1e00…1e27 at001f = ╱e5╱ + ╱ // 0x1e1f @0x1f
0x1e00…1e27 at0020 = ╱52╱R╱ // 0x1e20 @0x20
0x1e00…1e27 at0021 = ╱5f╱_╱ // 0x1e21 @0x21
0x1e00…1e27 at0022 = ╱53╱S╱ // 0x1e22 @0x22
0x1e00…1e27 at0023 = ╱4c╱L╱ // 0x1e23 @0x23
0x1e00…1e27 at0024 = ╱49╱I╱ // 0x1e24 @0x24
0x1e00…1e27 at0025 = ╱4e╱N╱ // 0x1e25 @0x25
0x1e00…1e27 at0026 = EOL // 0x1e26 @0x26
0x1e00…1e27 }
0x1e27…1e38 b426 2940 CURSOR 1,R_SLIN
0x1e27…1e38 LineComal80 {
0x1e27…1e38 ptr = 0xb426 // 0x1e27 @0x0
0x1e27…1e38 lno = 0x0b7c // 0x1e29 @0x2
0x1e27…1e38 at0004 = ╱a1╱ CURSOR ╱ // 0x1e2b @0x4
0x1e27…1e38 at0005 = ╱31╱1╱ // 0x1e2c @0x5
0x1e27…1e38 at0006 = ╱f20100╱ // 0x1e2d @0x6
0x1e27…1e38 at0009 = ╱ec╱,╱ // 0x1e30 @0x9
0x1e27…1e38 at000a = ╱52╱R╱ // 0x1e31 @0xa
0x1e27…1e38 at000b = ╱5f╱_╱ // 0x1e32 @0xb
0x1e27…1e38 at000c = ╱53╱S╱ // 0x1e33 @0xc
0x1e27…1e38 at000d = ╱4c╱L╱ // 0x1e34 @0xd
0x1e27…1e38 at000e = ╱49╱I╱ // 0x1e35 @0xe
0x1e27…1e38 at000f = ╱4e╱N╱ // 0x1e36 @0xf
0x1e27…1e38 at0010 = EOL // 0x1e37 @0x10
0x1e27…1e38 }
0x1e38…1e4b b439 2950 PRINT CHR$ (R_LIN,2)
0x1e38…1e4b LineComal80 {
0x1e38…1e4b ptr = 0xb439 // 0x1e38 @0x0
0x1e38…1e4b lno = 0x0b86 // 0x1e3a @0x2
0x1e38…1e4b at0004 = ╱92╱ PRINT ╱ // 0x1e3c @0x4
0x1e38…1e4b at0005 = ╱d0╱ CHR$ ╱ // 0x1e3d @0x5
0x1e38…1e4b at0006 = ╱ed╱(╱ // 0x1e3e @0x6
0x1e38…1e4b at0007 = ╱52╱R╱ // 0x1e3f @0x7
0x1e38…1e4b at0008 = ╱5f╱_╱ // 0x1e40 @0x8
0x1e38…1e4b at0009 = ╱4c╱L╱ // 0x1e41 @0x9
0x1e38…1e4b at000a = ╱49╱I╱ // 0x1e42 @0xa
0x1e38…1e4b at000b = ╱4e╱N╱ // 0x1e43 @0xb
0x1e38…1e4b at000c = ╱ec╱,╱ // 0x1e44 @0xc
0x1e38…1e4b at000d = ╱32╱2╱ // 0x1e45 @0xd
0x1e38…1e4b at000e = ╱f20200╱ // 0x1e46 @0xe
0x1e38…1e4b at0011 = ╱ee╱)╱ // 0x1e49 @0x11
0x1e38…1e4b at0012 = EOL // 0x1e4a @0x12
0x1e38…1e4b }
0x1e4b…1e5c b44a 2960 CURSOR 4,R_SLIN
0x1e4b…1e5c LineComal80 {
0x1e4b…1e5c ptr = 0xb44a // 0x1e4b @0x0
0x1e4b…1e5c lno = 0x0b90 // 0x1e4d @0x2
0x1e4b…1e5c at0004 = ╱a1╱ CURSOR ╱ // 0x1e4f @0x4
0x1e4b…1e5c at0005 = ╱34╱4╱ // 0x1e50 @0x5
0x1e4b…1e5c at0006 = ╱f20400╱ // 0x1e51 @0x6
0x1e4b…1e5c at0009 = ╱ec╱,╱ // 0x1e54 @0x9
0x1e4b…1e5c at000a = ╱52╱R╱ // 0x1e55 @0xa
0x1e4b…1e5c at000b = ╱5f╱_╱ // 0x1e56 @0xb
0x1e4b…1e5c at000c = ╱53╱S╱ // 0x1e57 @0xc
0x1e4b…1e5c at000d = ╱4c╱L╱ // 0x1e58 @0xd
0x1e4b…1e5c at000e = ╱49╱I╱ // 0x1e59 @0xe
0x1e4b…1e5c at000f = ╱4e╱N╱ // 0x1e5a @0xf
0x1e4b…1e5c at0010 = EOL // 0x1e5b @0x10
0x1e4b…1e5c }
0x1e5c…1e68 b456 2970 PRINT P_BNR$
0x1e5c…1e68 LineComal80 {
0x1e5c…1e68 ptr = 0xb456 // 0x1e5c @0x0
0x1e5c…1e68 lno = 0x0b9a // 0x1e5e @0x2
0x1e5c…1e68 at0004 = ╱92╱ PRINT ╱ // 0x1e60 @0x4
0x1e5c…1e68 at0005 = ╱50╱P╱ // 0x1e61 @0x5
0x1e5c…1e68 at0006 = ╱5f╱_╱ // 0x1e62 @0x6
0x1e5c…1e68 at0007 = ╱42╱B╱ // 0x1e63 @0x7
0x1e5c…1e68 at0008 = ╱4e╱N╱ // 0x1e64 @0x8
0x1e5c…1e68 at0009 = ╱52╱R╱ // 0x1e65 @0x9
0x1e5c…1e68 at000a = ╱ef╱$╱ // 0x1e66 @0xa
0x1e5c…1e68 at000b = EOL // 0x1e67 @0xb
0x1e5c…1e68 }
0x1e68…1e7a b468 2980 CURSOR 11,R_SLIN
0x1e68…1e7a LineComal80 {
0x1e68…1e7a ptr = 0xb468 // 0x1e68 @0x0
0x1e68…1e7a lno = 0x0ba4 // 0x1e6a @0x2
0x1e68…1e7a at0004 = ╱a1╱ CURSOR ╱ // 0x1e6c @0x4
0x1e68…1e7a at0005 = ╱31╱1╱ // 0x1e6d @0x5
0x1e68…1e7a at0006 = ╱31╱1╱ // 0x1e6e @0x6
0x1e68…1e7a at0007 = ╱f20b00╱ // 0x1e6f @0x7
0x1e68…1e7a at000a = ╱ec╱,╱ // 0x1e72 @0xa
0x1e68…1e7a at000b = ╱52╱R╱ // 0x1e73 @0xb
0x1e68…1e7a at000c = ╱5f╱_╱ // 0x1e74 @0xc
0x1e68…1e7a at000d = ╱53╱S╱ // 0x1e75 @0xd
0x1e68…1e7a at000e = ╱4c╱L╱ // 0x1e76 @0xe
0x1e68…1e7a at000f = ╱49╱I╱ // 0x1e77 @0xf
0x1e68…1e7a at0010 = ╱4e╱N╱ // 0x1e78 @0x10
0x1e68…1e7a at0011 = EOL // 0x1e79 @0x11
0x1e68…1e7a }
0x1e7a…1e86 b474 2990 PRINT P_TXT$
0x1e7a…1e86 LineComal80 {
0x1e7a…1e86 ptr = 0xb474 // 0x1e7a @0x0
0x1e7a…1e86 lno = 0x0bae // 0x1e7c @0x2
0x1e7a…1e86 at0004 = ╱92╱ PRINT ╱ // 0x1e7e @0x4
0x1e7a…1e86 at0005 = ╱50╱P╱ // 0x1e7f @0x5
0x1e7a…1e86 at0006 = ╱5f╱_╱ // 0x1e80 @0x6
0x1e7a…1e86 at0007 = ╱54╱T╱ // 0x1e81 @0x7
0x1e7a…1e86 at0008 = ╱58╱X╱ // 0x1e82 @0x8
0x1e7a…1e86 at0009 = ╱54╱T╱ // 0x1e83 @0x9
0x1e7a…1e86 at000a = ╱ef╱$╱ // 0x1e84 @0xa
0x1e7a…1e86 at000b = EOL // 0x1e85 @0xb
0x1e7a…1e86 }
0x1e86…1e98 b486 3000 CURSOR 34,R_SLIN
0x1e86…1e98 LineComal80 {
0x1e86…1e98 ptr = 0xb486 // 0x1e86 @0x0
0x1e86…1e98 lno = 0x0bb8 // 0x1e88 @0x2
0x1e86…1e98 at0004 = ╱a1╱ CURSOR ╱ // 0x1e8a @0x4
0x1e86…1e98 at0005 = ╱33╱3╱ // 0x1e8b @0x5
0x1e86…1e98 at0006 = ╱34╱4╱ // 0x1e8c @0x6
0x1e86…1e98 at0007 = ╱f22200╱ // 0x1e8d @0x7
0x1e86…1e98 at000a = ╱ec╱,╱ // 0x1e90 @0xa
0x1e86…1e98 at000b = ╱52╱R╱ // 0x1e91 @0xb
0x1e86…1e98 at000c = ╱5f╱_╱ // 0x1e92 @0xc
0x1e86…1e98 at000d = ╱53╱S╱ // 0x1e93 @0xd
0x1e86…1e98 at000e = ╱4c╱L╱ // 0x1e94 @0xe
0x1e86…1e98 at000f = ╱49╱I╱ // 0x1e95 @0xf
0x1e86…1e98 at0010 = ╱4e╱N╱ // 0x1e96 @0x10
0x1e86…1e98 at0011 = EOL // 0x1e97 @0x11
0x1e86…1e98 }
0x1e98…1ea5 b493 3010 PRINT P_MKOD$
0x1e98…1ea5 LineComal80 {
0x1e98…1ea5 ptr = 0xb493 // 0x1e98 @0x0
0x1e98…1ea5 lno = 0x0bc2 // 0x1e9a @0x2
0x1e98…1ea5 at0004 = ╱92╱ PRINT ╱ // 0x1e9c @0x4
0x1e98…1ea5 at0005 = ╱50╱P╱ // 0x1e9d @0x5
0x1e98…1ea5 at0006 = ╱5f╱_╱ // 0x1e9e @0x6
0x1e98…1ea5 at0007 = ╱4d╱M╱ // 0x1e9f @0x7
0x1e98…1ea5 at0008 = ╱4b╱K╱ // 0x1ea0 @0x8
0x1e98…1ea5 at0009 = ╱4f╱O╱ // 0x1ea1 @0x9
0x1e98…1ea5 at000a = ╱44╱D╱ // 0x1ea2 @0xa
0x1e98…1ea5 at000b = ╱ef╱$╱ // 0x1ea3 @0xb
0x1e98…1ea5 at000c = EOL // 0x1ea4 @0xc
0x1e98…1ea5 }
0x1ea5…1eb7 b4a5 3020 CURSOR 39,R_SLIN
0x1ea5…1eb7 LineComal80 {
0x1ea5…1eb7 ptr = 0xb4a5 // 0x1ea5 @0x0
0x1ea5…1eb7 lno = 0x0bcc // 0x1ea7 @0x2
0x1ea5…1eb7 at0004 = ╱a1╱ CURSOR ╱ // 0x1ea9 @0x4
0x1ea5…1eb7 at0005 = ╱33╱3╱ // 0x1eaa @0x5
0x1ea5…1eb7 at0006 = ╱39╱9╱ // 0x1eab @0x6
0x1ea5…1eb7 at0007 = ╱f22700╱ // 0x1eac @0x7
0x1ea5…1eb7 at000a = ╱ec╱,╱ // 0x1eaf @0xa
0x1ea5…1eb7 at000b = ╱52╱R╱ // 0x1eb0 @0xb
0x1ea5…1eb7 at000c = ╱5f╱_╱ // 0x1eb1 @0xc
0x1ea5…1eb7 at000d = ╱53╱S╱ // 0x1eb2 @0xd
0x1ea5…1eb7 at000e = ╱4c╱L╱ // 0x1eb3 @0xe
0x1ea5…1eb7 at000f = ╱49╱I╱ // 0x1eb4 @0xf
0x1ea5…1eb7 at0010 = ╱4e╱N╱ // 0x1eb5 @0x10
0x1ea5…1eb7 at0011 = EOL // 0x1eb6 @0x11
0x1ea5…1eb7 }
0x1eb7…1ec4 b4b2 3030 PRINT P_BKTO$
0x1eb7…1ec4 LineComal80 {
0x1eb7…1ec4 ptr = 0xb4b2 // 0x1eb7 @0x0
0x1eb7…1ec4 lno = 0x0bd6 // 0x1eb9 @0x2
0x1eb7…1ec4 at0004 = ╱92╱ PRINT ╱ // 0x1ebb @0x4
0x1eb7…1ec4 at0005 = ╱50╱P╱ // 0x1ebc @0x5
0x1eb7…1ec4 at0006 = ╱5f╱_╱ // 0x1ebd @0x6
0x1eb7…1ec4 at0007 = ╱42╱B╱ // 0x1ebe @0x7
0x1eb7…1ec4 at0008 = ╱4b╱K╱ // 0x1ebf @0x8
0x1eb7…1ec4 at0009 = ╱54╱T╱ // 0x1ec0 @0x9
0x1eb7…1ec4 at000a = ╱4f╱O╱ // 0x1ec1 @0xa
0x1eb7…1ec4 at000b = ╱ef╱$╱ // 0x1ec2 @0xb
0x1eb7…1ec4 at000c = EOL // 0x1ec3 @0xc
0x1eb7…1ec4 }
0x1ec4…1ed6 b4c4 3040 IF _DK = DEBET THEN
0x1ec4…1ed6 LineComal80 {
0x1ec4…1ed6 ptr = 0xb4c4 // 0x1ec4 @0x0
0x1ec4…1ed6 lno = 0x0be0 // 0x1ec6 @0x2
0x1ec4…1ed6 at0004 = ╱9b3450╱ IF ╱ // 0x1ec8 @0x4
0x1ec4…1ed6 at0007 = ╱5f╱_╱ // 0x1ecb @0x7
0x1ec4…1ed6 at0008 = ╱44╱D╱ // 0x1ecc @0x8
0x1ec4…1ed6 at0009 = ╱4b╱K╱ // 0x1ecd @0x9
0x1ec4…1ed6 at000a = ╱df╱ = ╱ // 0x1ece @0xa
0x1ec4…1ed6 at000b = ╱44╱D╱ // 0x1ecf @0xb
0x1ec4…1ed6 at000c = ╱45╱E╱ // 0x1ed0 @0xc
0x1ec4…1ed6 at000d = ╱42╱B╱ // 0x1ed1 @0xd
0x1ec4…1ed6 at000e = ╱45╱E╱ // 0x1ed2 @0xe
0x1ec4…1ed6 at000f = ╱54╱T╱ // 0x1ed3 @0xf
0x1ec4…1ed6 at0010 = ╱b5╱ THEN ╱ // 0x1ed4 @0x10
0x1ec4…1ed6 at0011 = EOL // 0x1ed5 @0x11
0x1ec4…1ed6 }
0x1ed6…1ee8 b4d6 3050 CURSOR 49,R_SLIN
0x1ed6…1ee8 LineComal80 {
0x1ed6…1ee8 ptr = 0xb4d6 // 0x1ed6 @0x0
0x1ed6…1ee8 lno = 0x0bea // 0x1ed8 @0x2
0x1ed6…1ee8 at0004 = ╱a1╱ CURSOR ╱ // 0x1eda @0x4
0x1ed6…1ee8 at0005 = ╱34╱4╱ // 0x1edb @0x5
0x1ed6…1ee8 at0006 = ╱39╱9╱ // 0x1edc @0x6
0x1ed6…1ee8 at0007 = ╱f23100╱ // 0x1edd @0x7
0x1ed6…1ee8 at000a = ╱ec╱,╱ // 0x1ee0 @0xa
0x1ed6…1ee8 at000b = ╱52╱R╱ // 0x1ee1 @0xb
0x1ed6…1ee8 at000c = ╱5f╱_╱ // 0x1ee2 @0xc
0x1ed6…1ee8 at000d = ╱53╱S╱ // 0x1ee3 @0xd
0x1ed6…1ee8 at000e = ╱4c╱L╱ // 0x1ee4 @0xe
0x1ed6…1ee8 at000f = ╱49╱I╱ // 0x1ee5 @0xf
0x1ed6…1ee8 at0010 = ╱4e╱N╱ // 0x1ee6 @0x10
0x1ed6…1ee8 at0011 = EOL // 0x1ee7 @0x11
0x1ed6…1ee8 }
0x1ee8…1eef b4dd 3060 ELSE
0x1ee8…1eef LineComal80 {
0x1ee8…1eef ptr = 0xb4dd // 0x1ee8 @0x0
0x1ee8…1eef lno = 0x0bf4 // 0x1eea @0x2
0x1ee8…1eef at0004 = ╱9a35╱ ELSE ╱ // 0x1eec @0x4
0x1ee8…1eef at0006 = EOL // 0x1eee @0x6
0x1ee8…1eef }
0x1eef…1f01 b4ef 3070 CURSOR 61,R_SLIN
0x1eef…1f01 LineComal80 {
0x1eef…1f01 ptr = 0xb4ef // 0x1eef @0x0
0x1eef…1f01 lno = 0x0bfe // 0x1ef1 @0x2
0x1eef…1f01 at0004 = ╱a1╱ CURSOR ╱ // 0x1ef3 @0x4
0x1eef…1f01 at0005 = ╱36╱6╱ // 0x1ef4 @0x5
0x1eef…1f01 at0006 = ╱31╱1╱ // 0x1ef5 @0x6
0x1eef…1f01 at0007 = ╱f23d00╱ // 0x1ef6 @0x7
0x1eef…1f01 at000a = ╱ec╱,╱ // 0x1ef9 @0xa
0x1eef…1f01 at000b = ╱52╱R╱ // 0x1efa @0xb
0x1eef…1f01 at000c = ╱5f╱_╱ // 0x1efb @0xc
0x1eef…1f01 at000d = ╱53╱S╱ // 0x1efc @0xd
0x1eef…1f01 at000e = ╱4c╱L╱ // 0x1efd @0xe
0x1eef…1f01 at000f = ╱49╱I╱ // 0x1efe @0xf
0x1eef…1f01 at0010 = ╱4e╱N╱ // 0x1eff @0x10
0x1eef…1f01 at0011 = EOL // 0x1f00 @0x11
0x1eef…1f01 }
0x1f01…1f07 b4f5 3080 ENDIF
0x1f01…1f07 LineComal80 {
0x1f01…1f07 ptr = 0xb4f5 // 0x1f01 @0x0
0x1f01…1f07 lno = 0x0c08 // 0x1f03 @0x2
0x1f01…1f07 at0004 = ╱9c╱ ENDIF ╱ // 0x1f05 @0x4
0x1f01…1f07 at0005 = EOL // 0x1f06 @0x5
0x1f01…1f07 }
0x1f07…1f1f b50d 3090 PRINT CHR$ (P_BKR,7,2)
0x1f07…1f1f LineComal80 {
0x1f07…1f1f ptr = 0xb50d // 0x1f07 @0x0
0x1f07…1f1f lno = 0x0c12 // 0x1f09 @0x2
0x1f07…1f1f at0004 = ╱92╱ PRINT ╱ // 0x1f0b @0x4
0x1f07…1f1f at0005 = ╱d0╱ CHR$ ╱ // 0x1f0c @0x5
0x1f07…1f1f at0006 = ╱ed╱(╱ // 0x1f0d @0x6
0x1f07…1f1f at0007 = ╱50╱P╱ // 0x1f0e @0x7
0x1f07…1f1f at0008 = ╱5f╱_╱ // 0x1f0f @0x8
0x1f07…1f1f at0009 = ╱42╱B╱ // 0x1f10 @0x9
0x1f07…1f1f at000a = ╱4b╱K╱ // 0x1f11 @0xa
0x1f07…1f1f at000b = ╱52╱R╱ // 0x1f12 @0xb
0x1f07…1f1f at000c = ╱ec╱,╱ // 0x1f13 @0xc
0x1f07…1f1f at000d = ╱37╱7╱ // 0x1f14 @0xd
0x1f07…1f1f at000e = ╱f20700╱ // 0x1f15 @0xe
0x1f07…1f1f at0011 = ╱ec╱,╱ // 0x1f18 @0x11
0x1f07…1f1f at0012 = ╱32╱2╱ // 0x1f19 @0x12
0x1f07…1f1f at0013 = ╱f20200╱ // 0x1f1a @0x13
0x1f07…1f1f at0016 = ╱ee╱)╱ // 0x1f1d @0x16
0x1f07…1f1f at0017 = EOL // 0x1f1e @0x17
0x1f07…1f1f }
0x1f1f…1f2e b51c 3100 ENDPROC SKRIV_LIN
0x1f1f…1f2e LineComal80 {
0x1f1f…1f2e ptr = 0xb51c // 0x1f1f @0x0
0x1f1f…1f2e lno = 0x0c1c // 0x1f21 @0x2
0x1f1f…1f2e at0004 = ╱9f╱ ENDPROC ╱ // 0x1f23 @0x4
0x1f1f…1f2e at0005 = ╱53╱S╱ // 0x1f24 @0x5
0x1f1f…1f2e at0006 = ╱4b╱K╱ // 0x1f25 @0x6
0x1f1f…1f2e at0007 = ╱52╱R╱ // 0x1f26 @0x7
0x1f1f…1f2e at0008 = ╱49╱I╱ // 0x1f27 @0x8
0x1f1f…1f2e at0009 = ╱56╱V╱ // 0x1f28 @0x9
0x1f1f…1f2e at000a = ╱5f╱_╱ // 0x1f29 @0xa
0x1f1f…1f2e at000b = ╱4c╱L╱ // 0x1f2a @0xb
0x1f1f…1f2e at000c = ╱49╱I╱ // 0x1f2b @0xc
0x1f1f…1f2e at000d = ╱4e╱N╱ // 0x1f2c @0xd
0x1f1f…1f2e at000e = EOL // 0x1f2d @0xe
0x1f1f…1f2e }
0x1f2e…1f33 b521 3110
0x1f2e…1f33 LineComal80 {
0x1f2e…1f33 ptr = 0xb521 // 0x1f2e @0x0
0x1f2e…1f33 lno = 0x0c26 // 0x1f30 @0x2
0x1f2e…1f33 at0004 = EOL // 0x1f32 @0x4
0x1f2e…1f33 }
0x1f33…1f49 b537 3120 PROC EDIT_LIN(R_LIN)
0x1f33…1f49 LineComal80 {
0x1f33…1f49 ptr = 0xb537 // 0x1f33 @0x0
0x1f33…1f49 lno = 0x0c30 // 0x1f35 @0x2
0x1f33…1f49 at0004 = ╱9e36╱ PROC ╱ // 0x1f37 @0x4
0x1f33…1f49 at0006 = ╱45╱E╱ // 0x1f39 @0x6
0x1f33…1f49 at0007 = ╱44╱D╱ // 0x1f3a @0x7
0x1f33…1f49 at0008 = ╱49╱I╱ // 0x1f3b @0x8
0x1f33…1f49 at0009 = ╱54╱T╱ // 0x1f3c @0x9
0x1f33…1f49 at000a = ╱5f╱_╱ // 0x1f3d @0xa
0x1f33…1f49 at000b = ╱4c╱L╱ // 0x1f3e @0xb
0x1f33…1f49 at000c = ╱49╱I╱ // 0x1f3f @0xc
0x1f33…1f49 at000d = ╱4e╱N╱ // 0x1f40 @0xd
0x1f33…1f49 at000e = ╱ed╱(╱ // 0x1f41 @0xe
0x1f33…1f49 at000f = ╱52╱R╱ // 0x1f42 @0xf
0x1f33…1f49 at0010 = ╱5f╱_╱ // 0x1f43 @0x10
0x1f33…1f49 at0011 = ╱4c╱L╱ // 0x1f44 @0x11
0x1f33…1f49 at0012 = ╱49╱I╱ // 0x1f45 @0x12
0x1f33…1f49 at0013 = ╱4e╱N╱ // 0x1f46 @0x13
0x1f33…1f49 at0014 = ╱ee╱)╱ // 0x1f47 @0x14
0x1f33…1f49 at0015 = EOL // 0x1f48 @0x15
0x1f33…1f49 }
0x1f49…1f66 b554 3130 LET R_SLIN := R_LIN MOD 12 + 7
0x1f49…1f66 LineComal80 {
0x1f49…1f66 ptr = 0xb554 // 0x1f49 @0x0
0x1f49…1f66 lno = 0x0c3a // 0x1f4b @0x2
0x1f49…1f66 at0004 = ╱86╱ LET ╱ // 0x1f4d @0x4
0x1f49…1f66 at0005 = ╱52╱R╱ // 0x1f4e @0x5
0x1f49…1f66 at0006 = ╱5f╱_╱ // 0x1f4f @0x6
0x1f49…1f66 at0007 = ╱53╱S╱ // 0x1f50 @0x7
0x1f49…1f66 at0008 = ╱4c╱L╱ // 0x1f51 @0x8
0x1f49…1f66 at0009 = ╱49╱I╱ // 0x1f52 @0x9
0x1f49…1f66 at000a = ╱4e╱N╱ // 0x1f53 @0xa
0x1f49…1f66 at000b = ╱f0╱ := ╱ // 0x1f54 @0xb
0x1f49…1f66 at000c = ╱52╱R╱ // 0x1f55 @0xc
0x1f49…1f66 at000d = ╱5f╱_╱ // 0x1f56 @0xd
0x1f49…1f66 at000e = ╱4c╱L╱ // 0x1f57 @0xe
0x1f49…1f66 at000f = ╱49╱I╱ // 0x1f58 @0xf
0x1f49…1f66 at0010 = ╱4e╱N╱ // 0x1f59 @0x10
0x1f49…1f66 at0011 = ╱db╱ MOD ╱ // 0x1f5a @0x11
0x1f49…1f66 at0012 = ╱31╱1╱ // 0x1f5b @0x12
0x1f49…1f66 at0013 = ╱32╱2╱ // 0x1f5c @0x13
0x1f49…1f66 at0014 = ╱f20c00╱ // 0x1f5d @0x14
0x1f49…1f66 at0017 = ╱e5╱ + ╱ // 0x1f60 @0x17
0x1f49…1f66 at0018 = ╱37╱7╱ // 0x1f61 @0x18
0x1f49…1f66 at0019 = ╱f20700╱ // 0x1f62 @0x19
0x1f49…1f66 at001c = EOL // 0x1f65 @0x1c
0x1f49…1f66 }
0x1f66…1f8d b57b 3140 IF R_SLIN = 7 THEN LET R_SLIN := R_SLIN + 12
0x1f66…1f8d LineComal80 {
0x1f66…1f8d ptr = 0xb57b // 0x1f66 @0x0
0x1f66…1f8d lno = 0x0c44 // 0x1f68 @0x2
0x1f66…1f8d at0004 = ╱8200╱ IF ╱ // 0x1f6a @0x4
0x1f66…1f8d at0006 = ╱52╱R╱ // 0x1f6c @0x6
0x1f66…1f8d at0007 = ╱5f╱_╱ // 0x1f6d @0x7
0x1f66…1f8d at0008 = ╱53╱S╱ // 0x1f6e @0x8
0x1f66…1f8d at0009 = ╱4c╱L╱ // 0x1f6f @0x9
0x1f66…1f8d at000a = ╱49╱I╱ // 0x1f70 @0xa
0x1f66…1f8d at000b = ╱4e╱N╱ // 0x1f71 @0xb
0x1f66…1f8d at000c = ╱df╱ = ╱ // 0x1f72 @0xc
0x1f66…1f8d at000d = ╱37╱7╱ // 0x1f73 @0xd
0x1f66…1f8d at000e = ╱f20700╱ // 0x1f74 @0xe
0x1f66…1f8d at0011 = ╱b5╱ THEN ╱ // 0x1f77 @0x11
0x1f66…1f8d at0012 = ╱86╱ LET ╱ // 0x1f78 @0x12
0x1f66…1f8d at0013 = ╱52╱R╱ // 0x1f79 @0x13
0x1f66…1f8d at0014 = ╱5f╱_╱ // 0x1f7a @0x14
0x1f66…1f8d at0015 = ╱53╱S╱ // 0x1f7b @0x15
0x1f66…1f8d at0016 = ╱4c╱L╱ // 0x1f7c @0x16
0x1f66…1f8d at0017 = ╱49╱I╱ // 0x1f7d @0x17
0x1f66…1f8d at0018 = ╱4e╱N╱ // 0x1f7e @0x18
0x1f66…1f8d at0019 = ╱f0╱ := ╱ // 0x1f7f @0x19
0x1f66…1f8d at001a = ╱52╱R╱ // 0x1f80 @0x1a
0x1f66…1f8d at001b = ╱5f╱_╱ // 0x1f81 @0x1b
0x1f66…1f8d at001c = ╱53╱S╱ // 0x1f82 @0x1c
0x1f66…1f8d at001d = ╱4c╱L╱ // 0x1f83 @0x1d
0x1f66…1f8d at001e = ╱49╱I╱ // 0x1f84 @0x1e
0x1f66…1f8d at001f = ╱4e╱N╱ // 0x1f85 @0x1f
0x1f66…1f8d at0020 = ╱e5╱ + ╱ // 0x1f86 @0x20
0x1f66…1f8d at0021 = ╱31╱1╱ // 0x1f87 @0x21
0x1f66…1f8d at0022 = ╱32╱2╱ // 0x1f88 @0x22
0x1f66…1f8d at0023 = ╱f20c00╱ // 0x1f89 @0x23
0x1f66…1f8d at0026 = EOL // 0x1f8c @0x26
0x1f66…1f8d }
0x1f8d…1fa4 b592 3150 EXEC LÆS_DG_POS(R_LIN)
0x1f8d…1fa4 LineComal80 {
0x1f8d…1fa4 ptr = 0xb592 // 0x1f8d @0x0
0x1f8d…1fa4 lno = 0x0c4e // 0x1f8f @0x2
0x1f8d…1fa4 at0004 = ╱9d╱ EXEC ╱ // 0x1f91 @0x4
0x1f8d…1fa4 at0005 = ╱4c╱L╱ // 0x1f92 @0x5
0x1f8d…1fa4 at0006 = ╱5b╱Æ╱ // 0x1f93 @0x6
0x1f8d…1fa4 at0007 = ╱53╱S╱ // 0x1f94 @0x7
0x1f8d…1fa4 at0008 = ╱5f╱_╱ // 0x1f95 @0x8
0x1f8d…1fa4 at0009 = ╱44╱D╱ // 0x1f96 @0x9
0x1f8d…1fa4 at000a = ╱47╱G╱ // 0x1f97 @0xa
0x1f8d…1fa4 at000b = ╱5f╱_╱ // 0x1f98 @0xb
0x1f8d…1fa4 at000c = ╱50╱P╱ // 0x1f99 @0xc
0x1f8d…1fa4 at000d = ╱4f╱O╱ // 0x1f9a @0xd
0x1f8d…1fa4 at000e = ╱53╱S╱ // 0x1f9b @0xe
0x1f8d…1fa4 at000f = ╱ed╱(╱ // 0x1f9c @0xf
0x1f8d…1fa4 at0010 = ╱52╱R╱ // 0x1f9d @0x10
0x1f8d…1fa4 at0011 = ╱5f╱_╱ // 0x1f9e @0x11
0x1f8d…1fa4 at0012 = ╱4c╱L╱ // 0x1f9f @0x12
0x1f8d…1fa4 at0013 = ╱49╱I╱ // 0x1fa0 @0x13
0x1f8d…1fa4 at0014 = ╱4e╱N╱ // 0x1fa1 @0x14
0x1f8d…1fa4 at0015 = ╱ee╱)╱ // 0x1fa2 @0x15
0x1f8d…1fa4 at0016 = EOL // 0x1fa3 @0x16
0x1f8d…1fa4 }
0x1fa4…1fba b5a8 3160 IF _BNR$ = "*****" THEN
0x1fa4…1fba LineComal80 {
0x1fa4…1fba ptr = 0xb5a8 // 0x1fa4 @0x0
0x1fa4…1fba lno = 0x0c58 // 0x1fa6 @0x2
0x1fa4…1fba at0004 = ╱9b3750╱ IF ╱ // 0x1fa8 @0x4
0x1fa4…1fba at0007 = ╱5f╱_╱ // 0x1fab @0x7
0x1fa4…1fba at0008 = ╱42╱B╱ // 0x1fac @0x8
0x1fa4…1fba at0009 = ╱4e╱N╱ // 0x1fad @0x9
0x1fa4…1fba at000a = ╱52╱R╱ // 0x1fae @0xa
0x1fa4…1fba at000b = ╱ef╱$╱ // 0x1faf @0xb
0x1fa4…1fba at000c = ╱df╱ = ╱ // 0x1fb0 @0xc
0x1fa4…1fba at000d = ╱22╱"╱ // 0x1fb1 @0xd
0x1fa4…1fba at000e = ╱2a╱*╱ // 0x1fb2 @0xe
0x1fa4…1fba at000f = ╱2a╱*╱ // 0x1fb3 @0xf
0x1fa4…1fba at0010 = ╱2a╱*╱ // 0x1fb4 @0x10
0x1fa4…1fba at0011 = ╱2a╱*╱ // 0x1fb5 @0x11
0x1fa4…1fba at0012 = ╱2a╱*╱ // 0x1fb6 @0x12
0x1fa4…1fba at0013 = ╱22╱"╱ // 0x1fb7 @0x13
0x1fa4…1fba at0014 = ╱b5╱ THEN ╱ // 0x1fb8 @0x14
0x1fa4…1fba at0015 = EOL // 0x1fb9 @0x15
0x1fa4…1fba }
0x1fba…1fff b5ed 3170 LET P_BNR$ := "" ; P_TXT$ := "" ; P_MKOD$ := "" ; P_BKR := 0 ; P_DK := DEBET ; P_BKTO$ := ""
0x1fba…1fff LineComal80 {
0x1fba…1fff ptr = 0xb5ed // 0x1fba @0x0
0x1fba…1fff lno = 0x0c62 // 0x1fbc @0x2
0x1fba…1fff at0004 = ╱86╱ LET ╱ // 0x1fbe @0x4
0x1fba…1fff at0005 = ╱50╱P╱ // 0x1fbf @0x5
0x1fba…1fff at0006 = ╱5f╱_╱ // 0x1fc0 @0x6
0x1fba…1fff at0007 = ╱42╱B╱ // 0x1fc1 @0x7
0x1fba…1fff at0008 = ╱4e╱N╱ // 0x1fc2 @0x8
0x1fba…1fff at0009 = ╱52╱R╱ // 0x1fc3 @0x9
0x1fba…1fff at000a = ╱ef╱$╱ // 0x1fc4 @0xa
0x1fba…1fff at000b = ╱f0╱ := ╱ // 0x1fc5 @0xb
0x1fba…1fff at000c = ╱22╱"╱ // 0x1fc6 @0xc
0x1fba…1fff at000d = ╱22╱"╱ // 0x1fc7 @0xd
0x1fba…1fff at000e = ╱ea╱ ; ╱ // 0x1fc8 @0xe
0x1fba…1fff at000f = ╱50╱P╱ // 0x1fc9 @0xf
0x1fba…1fff at0010 = ╱5f╱_╱ // 0x1fca @0x10
0x1fba…1fff at0011 = ╱54╱T╱ // 0x1fcb @0x11
0x1fba…1fff at0012 = ╱58╱X╱ // 0x1fcc @0x12
0x1fba…1fff at0013 = ╱54╱T╱ // 0x1fcd @0x13
0x1fba…1fff at0014 = ╱ef╱$╱ // 0x1fce @0x14
0x1fba…1fff at0015 = ╱f0╱ := ╱ // 0x1fcf @0x15
0x1fba…1fff at0016 = ╱22╱"╱ // 0x1fd0 @0x16
0x1fba…1fff at0017 = ╱22╱"╱ // 0x1fd1 @0x17
0x1fba…1fff at0018 = ╱ea╱ ; ╱ // 0x1fd2 @0x18
0x1fba…1fff at0019 = ╱50╱P╱ // 0x1fd3 @0x19
0x1fba…1fff at001a = ╱5f╱_╱ // 0x1fd4 @0x1a
0x1fba…1fff at001b = ╱4d╱M╱ // 0x1fd5 @0x1b
0x1fba…1fff at001c = ╱4b╱K╱ // 0x1fd6 @0x1c
0x1fba…1fff at001d = ╱4f╱O╱ // 0x1fd7 @0x1d
0x1fba…1fff at001e = ╱44╱D╱ // 0x1fd8 @0x1e
0x1fba…1fff at001f = ╱ef╱$╱ // 0x1fd9 @0x1f
0x1fba…1fff at0020 = ╱f0╱ := ╱ // 0x1fda @0x20
0x1fba…1fff at0021 = ╱22╱"╱ // 0x1fdb @0x21
0x1fba…1fff at0022 = ╱22╱"╱ // 0x1fdc @0x22
0x1fba…1fff at0023 = ╱ea╱ ; ╱ // 0x1fdd @0x23
0x1fba…1fff at0024 = ╱50╱P╱ // 0x1fde @0x24
0x1fba…1fff at0025 = ╱5f╱_╱ // 0x1fdf @0x25
0x1fba…1fff at0026 = ╱42╱B╱ // 0x1fe0 @0x26
0x1fba…1fff at0027 = ╱4b╱K╱ // 0x1fe1 @0x27
0x1fba…1fff at0028 = ╱52╱R╱ // 0x1fe2 @0x28
0x1fba…1fff at0029 = ╱f0╱ := ╱ // 0x1fe3 @0x29
0x1fba…1fff at002a = ╱30╱0╱ // 0x1fe4 @0x2a
0x1fba…1fff at002b = ╱f20000╱ // 0x1fe5 @0x2b
0x1fba…1fff at002e = ╱ea╱ ; ╱ // 0x1fe8 @0x2e
0x1fba…1fff at002f = ╱50╱P╱ // 0x1fe9 @0x2f
0x1fba…1fff at0030 = ╱5f╱_╱ // 0x1fea @0x30
0x1fba…1fff at0031 = ╱44╱D╱ // 0x1feb @0x31
0x1fba…1fff at0032 = ╱4b╱K╱ // 0x1fec @0x32
0x1fba…1fff at0033 = ╱f0╱ := ╱ // 0x1fed @0x33
0x1fba…1fff at0034 = ╱44╱D╱ // 0x1fee @0x34
0x1fba…1fff at0035 = ╱45╱E╱ // 0x1fef @0x35
0x1fba…1fff at0036 = ╱42╱B╱ // 0x1ff0 @0x36
0x1fba…1fff at0037 = ╱45╱E╱ // 0x1ff1 @0x37
0x1fba…1fff at0038 = ╱54╱T╱ // 0x1ff2 @0x38
0x1fba…1fff at0039 = ╱ea╱ ; ╱ // 0x1ff3 @0x39
0x1fba…1fff at003a = ╱50╱P╱ // 0x1ff4 @0x3a
0x1fba…1fff at003b = ╱5f╱_╱ // 0x1ff5 @0x3b
0x1fba…1fff at003c = ╱42╱B╱ // 0x1ff6 @0x3c
0x1fba…1fff at003d = ╱4b╱K╱ // 0x1ff7 @0x3d
0x1fba…1fff at003e = ╱54╱T╱ // 0x1ff8 @0x3e
0x1fba…1fff at003f = ╱4f╱O╱ // 0x1ff9 @0x3f
0x1fba…1fff at0040 = ╱ef╱$╱ // 0x1ffa @0x40
0x1fba…1fff at0041 = ╱f0╱ := ╱ // 0x1ffb @0x41
0x1fba…1fff at0042 = ╱22╱"╱ // 0x1ffc @0x42
0x1fba…1fff at0043 = ╱22╱"╱ // 0x1ffd @0x43
0x1fba…1fff at0044 = EOL // 0x1ffe @0x44
0x1fba…1fff }
0x1fff…2005 b5f3 3180 ENDIF
0x1fff…2005 LineComal80 {
0x1fff…2005 ptr = 0xb5f3 // 0x1fff @0x0
0x1fff…2005 lno = 0x0c6c // 0x2001 @0x2
0x1fff…2005 at0004 = ╱9c╱ ENDIF ╱ // 0x2003 @0x4
0x1fff…2005 at0005 = EOL // 0x2004 @0x5
0x1fff…2005 }
0x2005…2017 b605 3190 IF _DK = DEBET THEN
0x2005…2017 LineComal80 {
0x2005…2017 ptr = 0xb605 // 0x2005 @0x0
0x2005…2017 lno = 0x0c76 // 0x2007 @0x2
0x2005…2017 at0004 = ╱9b3850╱ IF ╱ // 0x2009 @0x4
0x2005…2017 at0007 = ╱5f╱_╱ // 0x200c @0x7
0x2005…2017 at0008 = ╱44╱D╱ // 0x200d @0x8
0x2005…2017 at0009 = ╱4b╱K╱ // 0x200e @0x9
0x2005…2017 at000a = ╱df╱ = ╱ // 0x200f @0xa
0x2005…2017 at000b = ╱44╱D╱ // 0x2010 @0xb
0x2005…2017 at000c = ╱45╱E╱ // 0x2011 @0xc
0x2005…2017 at000d = ╱42╱B╱ // 0x2012 @0xd
0x2005…2017 at000e = ╱45╱E╱ // 0x2013 @0xe
0x2005…2017 at000f = ╱54╱T╱ // 0x2014 @0xf
0x2005…2017 at0010 = ╱b5╱ THEN ╱ // 0x2015 @0x10
0x2005…2017 at0011 = EOL // 0x2016 @0x11
0x2005…2017 }
0x2017…202e b61c 3200 LET P_DEB := P_DEB - P_BKR
0x2017…202e LineComal80 {
0x2017…202e ptr = 0xb61c // 0x2017 @0x0
0x2017…202e lno = 0x0c80 // 0x2019 @0x2
0x2017…202e at0004 = ╱86╱ LET ╱ // 0x201b @0x4
0x2017…202e at0005 = ╱50╱P╱ // 0x201c @0x5
0x2017…202e at0006 = ╱5f╱_╱ // 0x201d @0x6
0x2017…202e at0007 = ╱44╱D╱ // 0x201e @0x7
0x2017…202e at0008 = ╱45╱E╱ // 0x201f @0x8
0x2017…202e at0009 = ╱42╱B╱ // 0x2020 @0x9
0x2017…202e at000a = ╱f0╱ := ╱ // 0x2021 @0xa
0x2017…202e at000b = ╱50╱P╱ // 0x2022 @0xb
0x2017…202e at000c = ╱5f╱_╱ // 0x2023 @0xc
0x2017…202e at000d = ╱44╱D╱ // 0x2024 @0xd
0x2017…202e at000e = ╱45╱E╱ // 0x2025 @0xe
0x2017…202e at000f = ╱42╱B╱ // 0x2026 @0xf
0x2017…202e at0010 = ╱e6╱ - ╱ // 0x2027 @0x10
0x2017…202e at0011 = ╱50╱P╱ // 0x2028 @0x11
0x2017…202e at0012 = ╱5f╱_╱ // 0x2029 @0x12
0x2017…202e at0013 = ╱42╱B╱ // 0x202a @0x13
0x2017…202e at0014 = ╱4b╱K╱ // 0x202b @0x14
0x2017…202e at0015 = ╱52╱R╱ // 0x202c @0x15
0x2017…202e at0016 = EOL // 0x202d @0x16
0x2017…202e }
0x202e…2035 b623 3210 ELSE
0x202e…2035 LineComal80 {
0x202e…2035 ptr = 0xb623 // 0x202e @0x0
0x202e…2035 lno = 0x0c8a // 0x2030 @0x2
0x202e…2035 at0004 = ╱9a39╱ ELSE ╱ // 0x2032 @0x4
0x202e…2035 at0006 = EOL // 0x2034 @0x6
0x202e…2035 }
0x2035…204e b63c 3220 LET P_KRED := P_KRED - P_BKR
0x2035…204e LineComal80 {
0x2035…204e ptr = 0xb63c // 0x2035 @0x0
0x2035…204e lno = 0x0c94 // 0x2037 @0x2
0x2035…204e at0004 = ╱86╱ LET ╱ // 0x2039 @0x4
0x2035…204e at0005 = ╱50╱P╱ // 0x203a @0x5
0x2035…204e at0006 = ╱5f╱_╱ // 0x203b @0x6
0x2035…204e at0007 = ╱4b╱K╱ // 0x203c @0x7
0x2035…204e at0008 = ╱52╱R╱ // 0x203d @0x8
0x2035…204e at0009 = ╱45╱E╱ // 0x203e @0x9
0x2035…204e at000a = ╱44╱D╱ // 0x203f @0xa
0x2035…204e at000b = ╱f0╱ := ╱ // 0x2040 @0xb
0x2035…204e at000c = ╱50╱P╱ // 0x2041 @0xc
0x2035…204e at000d = ╱5f╱_╱ // 0x2042 @0xd
0x2035…204e at000e = ╱4b╱K╱ // 0x2043 @0xe
0x2035…204e at000f = ╱52╱R╱ // 0x2044 @0xf
0x2035…204e at0010 = ╱45╱E╱ // 0x2045 @0x10
0x2035…204e at0011 = ╱44╱D╱ // 0x2046 @0x11
0x2035…204e at0012 = ╱e6╱ - ╱ // 0x2047 @0x12
0x2035…204e at0013 = ╱50╱P╱ // 0x2048 @0x13
0x2035…204e at0014 = ╱5f╱_╱ // 0x2049 @0x14
0x2035…204e at0015 = ╱42╱B╱ // 0x204a @0x15
0x2035…204e at0016 = ╱4b╱K╱ // 0x204b @0x16
0x2035…204e at0017 = ╱52╱R╱ // 0x204c @0x17
0x2035…204e at0018 = EOL // 0x204d @0x18
0x2035…204e }
0x204e…2054 b642 3230 ENDIF
0x204e…2054 LineComal80 {
0x204e…2054 ptr = 0xb642 // 0x204e @0x0
0x204e…2054 lno = 0x0c9e // 0x2050 @0x2
0x204e…2054 at0004 = ╱9c╱ ENDIF ╱ // 0x2052 @0x4
0x204e…2054 at0005 = EOL // 0x2053 @0x5
0x204e…2054 }
0x2054…205b b649 3240 REPEAT
0x2054…205b LineComal80 {
0x2054…205b ptr = 0xb649 // 0x2054 @0x0
0x2054…205b lno = 0x0ca8 // 0x2056 @0x2
0x2054…205b at0004 = ╱973a╱ REPEAT ╱ // 0x2058 @0x4
0x2054…205b at0006 = EOL // 0x205a @0x6
0x2054…205b }
0x205b…206d b65b 3250 EXEC SL_FEJLLINIE
0x205b…206d LineComal80 {
0x205b…206d ptr = 0xb65b // 0x205b @0x0
0x205b…206d lno = 0x0cb2 // 0x205d @0x2
0x205b…206d at0004 = ╱9d╱ EXEC ╱ // 0x205f @0x4
0x205b…206d at0005 = ╱53╱S╱ // 0x2060 @0x5
0x205b…206d at0006 = ╱4c╱L╱ // 0x2061 @0x6
0x205b…206d at0007 = ╱5f╱_╱ // 0x2062 @0x7
0x205b…206d at0008 = ╱46╱F╱ // 0x2063 @0x8
0x205b…206d at0009 = ╱45╱E╱ // 0x2064 @0x9
0x205b…206d at000a = ╱4a╱J╱ // 0x2065 @0xa
0x205b…206d at000b = ╱4c╱L╱ // 0x2066 @0xb
0x205b…206d at000c = ╱4c╱L╱ // 0x2067 @0xc
0x205b…206d at000d = ╱49╱I╱ // 0x2068 @0xd
0x205b…206d at000e = ╱4e╱N╱ // 0x2069 @0xe
0x205b…206d at000f = ╱49╱I╱ // 0x206a @0xf
0x205b…206d at0010 = ╱45╱E╱ // 0x206b @0x10
0x205b…206d at0011 = EOL // 0x206c @0x11
0x205b…206d }
0x206d…207e d699 3260 CURSOR 1,R_SLIN
0x206d…207e LineComal80 {
0x206d…207e ptr = 0xd699 // 0x206d @0x0
0x206d…207e lno = 0x0cbc // 0x206f @0x2
0x206d…207e at0004 = ╱a1╱ CURSOR ╱ // 0x2071 @0x4
0x206d…207e at0005 = ╱31╱1╱ // 0x2072 @0x5
0x206d…207e at0006 = ╱f20100╱ // 0x2073 @0x6
0x206d…207e at0009 = ╱ec╱,╱ // 0x2076 @0x9
0x206d…207e at000a = ╱52╱R╱ // 0x2077 @0xa
0x206d…207e at000b = ╱5f╱_╱ // 0x2078 @0xb
0x206d…207e at000c = ╱53╱S╱ // 0x2079 @0xc
0x206d…207e at000d = ╱4c╱L╱ // 0x207a @0xd
0x206d…207e at000e = ╱49╱I╱ // 0x207b @0xe
0x206d…207e at000f = ╱4e╱N╱ // 0x207c @0xf
0x206d…207e at0010 = EOL // 0x207d @0x10
0x206d…207e }
0x207e…2091 b67f 3270 PRINT CHR$ (R_LIN,2)
0x207e…2091 LineComal80 {
0x207e…2091 ptr = 0xb67f // 0x207e @0x0
0x207e…2091 lno = 0x0cc6 // 0x2080 @0x2
0x207e…2091 at0004 = ╱92╱ PRINT ╱ // 0x2082 @0x4
0x207e…2091 at0005 = ╱d0╱ CHR$ ╱ // 0x2083 @0x5
0x207e…2091 at0006 = ╱ed╱(╱ // 0x2084 @0x6
0x207e…2091 at0007 = ╱52╱R╱ // 0x2085 @0x7
0x207e…2091 at0008 = ╱5f╱_╱ // 0x2086 @0x8
0x207e…2091 at0009 = ╱4c╱L╱ // 0x2087 @0x9
0x207e…2091 at000a = ╱49╱I╱ // 0x2088 @0xa
0x207e…2091 at000b = ╱4e╱N╱ // 0x2089 @0xb
0x207e…2091 at000c = ╱ec╱,╱ // 0x208a @0xc
0x207e…2091 at000d = ╱32╱2╱ // 0x208b @0xd
0x207e…2091 at000e = ╱f20200╱ // 0x208c @0xe
0x207e…2091 at0011 = ╱ee╱)╱ // 0x208f @0x11
0x207e…2091 at0012 = EOL // 0x2090 @0x12
0x207e…2091 }
0x2091…2098 b686 3280 REPEAT
0x2091…2098 LineComal80 {
0x2091…2098 ptr = 0xb686 // 0x2091 @0x0
0x2091…2098 lno = 0x0cd0 // 0x2093 @0x2
0x2091…2098 at0004 = ╱973b╱ REPEAT ╱ // 0x2095 @0x4
0x2091…2098 at0006 = EOL // 0x2097 @0x6
0x2091…2098 }
0x2098…20a9 b697 3290 CURSOR 4,R_SLIN
0x2098…20a9 LineComal80 {
0x2098…20a9 ptr = 0xb697 // 0x2098 @0x0
0x2098…20a9 lno = 0x0cda // 0x209a @0x2
0x2098…20a9 at0004 = ╱a1╱ CURSOR ╱ // 0x209c @0x4
0x2098…20a9 at0005 = ╱34╱4╱ // 0x209d @0x5
0x2098…20a9 at0006 = ╱f20400╱ // 0x209e @0x6
0x2098…20a9 at0009 = ╱ec╱,╱ // 0x20a1 @0x9
0x2098…20a9 at000a = ╱52╱R╱ // 0x20a2 @0xa
0x2098…20a9 at000b = ╱5f╱_╱ // 0x20a3 @0xb
0x2098…20a9 at000c = ╱53╱S╱ // 0x20a4 @0xc
0x2098…20a9 at000d = ╱4c╱L╱ // 0x20a5 @0xd
0x2098…20a9 at000e = ╱49╱I╱ // 0x20a6 @0xe
0x2098…20a9 at000f = ╱4e╱N╱ // 0x20a7 @0xf
0x2098…20a9 at0010 = EOL // 0x20a8 @0x10
0x2098…20a9 }
0x20a9…20b8 b6a6 3300 EDIT "" : P_BNR$
0x20a9…20b8 LineComal80 {
0x20a9…20b8 ptr = 0xb6a6 // 0x20a9 @0x0
0x20a9…20b8 lno = 0x0ce4 // 0x20ab @0x2
0x20a9…20b8 at0004 = ╱b1╱ EDIT ╱ // 0x20ad @0x4
0x20a9…20b8 at0005 = ╱22╱"╱ // 0x20ae @0x5
0x20a9…20b8 at0006 = ╱22╱"╱ // 0x20af @0x6
0x20a9…20b8 at0007 = ╱f1╱ : ╱ // 0x20b0 @0x7
0x20a9…20b8 at0008 = ╱50╱P╱ // 0x20b1 @0x8
0x20a9…20b8 at0009 = ╱5f╱_╱ // 0x20b2 @0x9
0x20a9…20b8 at000a = ╱42╱B╱ // 0x20b3 @0xa
0x20a9…20b8 at000b = ╱4e╱N╱ // 0x20b4 @0xb
0x20a9…20b8 at000c = ╱52╱R╱ // 0x20b5 @0xc
0x20a9…20b8 at000d = ╱ef╱$╱ // 0x20b6 @0xd
0x20a9…20b8 at000e = EOL // 0x20b7 @0xe
0x20a9…20b8 }
0x20b8…20ca b6b8 3310 EXEC SL_FEJLLINIE
0x20b8…20ca LineComal80 {
0x20b8…20ca ptr = 0xb6b8 // 0x20b8 @0x0
0x20b8…20ca lno = 0x0cee // 0x20ba @0x2
0x20b8…20ca at0004 = ╱9d╱ EXEC ╱ // 0x20bc @0x4
0x20b8…20ca at0005 = ╱53╱S╱ // 0x20bd @0x5
0x20b8…20ca at0006 = ╱4c╱L╱ // 0x20be @0x6
0x20b8…20ca at0007 = ╱5f╱_╱ // 0x20bf @0x7
0x20b8…20ca at0008 = ╱46╱F╱ // 0x20c0 @0x8
0x20b8…20ca at0009 = ╱45╱E╱ // 0x20c1 @0x9
0x20b8…20ca at000a = ╱4a╱J╱ // 0x20c2 @0xa
0x20b8…20ca at000b = ╱4c╱L╱ // 0x20c3 @0xb
0x20b8…20ca at000c = ╱4c╱L╱ // 0x20c4 @0xc
0x20b8…20ca at000d = ╱49╱I╱ // 0x20c5 @0xd
0x20b8…20ca at000e = ╱4e╱N╱ // 0x20c6 @0xe
0x20b8…20ca at000f = ╱49╱I╱ // 0x20c7 @0xf
0x20b8…20ca at0010 = ╱45╱E╱ // 0x20c8 @0x10
0x20b8…20ca at0011 = EOL // 0x20c9 @0x11
0x20b8…20ca }
0x20ca…20fd b6eb 3320 IF _BNR$ = "*****" OR "/" + P_BNR$ + "/" IN "/SLUT/slut/" THEN
0x20ca…20fd LineComal80 {
0x20ca…20fd ptr = 0xb6eb // 0x20ca @0x0
0x20ca…20fd lno = 0x0cf8 // 0x20cc @0x2
0x20ca…20fd at0004 = ╱9b3c50╱ IF ╱ // 0x20ce @0x4
0x20ca…20fd at0007 = ╱5f╱_╱ // 0x20d1 @0x7
0x20ca…20fd at0008 = ╱42╱B╱ // 0x20d2 @0x8
0x20ca…20fd at0009 = ╱4e╱N╱ // 0x20d3 @0x9
0x20ca…20fd at000a = ╱52╱R╱ // 0x20d4 @0xa
0x20ca…20fd at000b = ╱ef╱$╱ // 0x20d5 @0xb
0x20ca…20fd at000c = ╱df╱ = ╱ // 0x20d6 @0xc
0x20ca…20fd at000d = ╱22╱"╱ // 0x20d7 @0xd
0x20ca…20fd at000e = ╱2a╱*╱ // 0x20d8 @0xe
0x20ca…20fd at000f = ╱2a╱*╱ // 0x20d9 @0xf
0x20ca…20fd at0010 = ╱2a╱*╱ // 0x20da @0x10
0x20ca…20fd at0011 = ╱2a╱*╱ // 0x20db @0x11
0x20ca…20fd at0012 = ╱2a╱*╱ // 0x20dc @0x12
0x20ca…20fd at0013 = ╱22╱"╱ // 0x20dd @0x13
0x20ca…20fd at0014 = ╱d8╱ OR ╱ // 0x20de @0x14
0x20ca…20fd at0015 = ╱22╱"╱ // 0x20df @0x15
0x20ca…20fd at0016 = ╱2f╱/╱ // 0x20e0 @0x16
0x20ca…20fd at0017 = ╱22╱"╱ // 0x20e1 @0x17
0x20ca…20fd at0018 = ╱eb╱ + ╱ // 0x20e2 @0x18
0x20ca…20fd at0019 = ╱50╱P╱ // 0x20e3 @0x19
0x20ca…20fd at001a = ╱5f╱_╱ // 0x20e4 @0x1a
0x20ca…20fd at001b = ╱42╱B╱ // 0x20e5 @0x1b
0x20ca…20fd at001c = ╱4e╱N╱ // 0x20e6 @0x1c
0x20ca…20fd at001d = ╱52╱R╱ // 0x20e7 @0x1d
0x20ca…20fd at001e = ╱ef╱$╱ // 0x20e8 @0x1e
0x20ca…20fd at001f = ╱eb╱ + ╱ // 0x20e9 @0x1f
0x20ca…20fd at0020 = ╱22╱"╱ // 0x20ea @0x20
0x20ca…20fd at0021 = ╱2f╱/╱ // 0x20eb @0x21
0x20ca…20fd at0022 = ╱22╱"╱ // 0x20ec @0x22
0x20ca…20fd at0023 = ╱dc╱ IN ╱ // 0x20ed @0x23
0x20ca…20fd at0024 = ╱22╱"╱ // 0x20ee @0x24
0x20ca…20fd at0025 = ╱2f╱/╱ // 0x20ef @0x25
0x20ca…20fd at0026 = ╱53╱S╱ // 0x20f0 @0x26
0x20ca…20fd at0027 = ╱4c╱L╱ // 0x20f1 @0x27
0x20ca…20fd at0028 = ╱55╱U╱ // 0x20f2 @0x28
0x20ca…20fd at0029 = ╱54╱T╱ // 0x20f3 @0x29
0x20ca…20fd at002a = ╱2f╱/╱ // 0x20f4 @0x2a
0x20ca…20fd at002b = ╱73╱s╱ // 0x20f5 @0x2b
0x20ca…20fd at002c = ╱6c╱l╱ // 0x20f6 @0x2c
0x20ca…20fd at002d = ╱75╱u╱ // 0x20f7 @0x2d
0x20ca…20fd at002e = ╱74╱t╱ // 0x20f8 @0x2e
0x20ca…20fd at002f = ╱2f╱/╱ // 0x20f9 @0x2f
0x20ca…20fd at0030 = ╱22╱"╱ // 0x20fa @0x30
0x20ca…20fd at0031 = ╱b5╱ THEN ╱ // 0x20fb @0x31
0x20ca…20fd at0032 = EOL // 0x20fc @0x32
0x20ca…20fd }
0x20fd…210a b6f8 3330 LET OK := TRUE
0x20fd…210a LineComal80 {
0x20fd…210a ptr = 0xb6f8 // 0x20fd @0x0
0x20fd…210a lno = 0x0d02 // 0x20ff @0x2
0x20fd…210a at0004 = ╱86╱ LET ╱ // 0x2101 @0x4
0x20fd…210a at0005 = ╱4f╱O╱ // 0x2102 @0x5
0x20fd…210a at0006 = ╱4b╱K╱ // 0x2103 @0x6
0x20fd…210a at0007 = ╱f0╱ := ╱ // 0x2104 @0x7
0x20fd…210a at0008 = ╱54╱T╱ // 0x2105 @0x8
0x20fd…210a at0009 = ╱52╱R╱ // 0x2106 @0x9
0x20fd…210a at000a = ╱55╱U╱ // 0x2107 @0xa
0x20fd…210a at000b = ╱45╱E╱ // 0x2108 @0xb
0x20fd…210a at000c = EOL // 0x2109 @0xc
0x20fd…210a }
0x210a…2111 b6ff 3340 ELSE
0x210a…2111 LineComal80 {
0x210a…2111 ptr = 0xb6ff // 0x210a @0x0
0x210a…2111 lno = 0x0d0c // 0x210c @0x2
0x210a…2111 at0004 = ╱9a3d╱ ELSE ╱ // 0x210e @0x4
0x210a…2111 at0006 = EOL // 0x2110 @0x6
0x210a…2111 }
0x2111…212a b718 3350 EXEC TAL_CONTROL(P_BNR$)
0x2111…212a LineComal80 {
0x2111…212a ptr = 0xb718 // 0x2111 @0x0
0x2111…212a lno = 0x0d16 // 0x2113 @0x2
0x2111…212a at0004 = ╱9d╱ EXEC ╱ // 0x2115 @0x4
0x2111…212a at0005 = ╱54╱T╱ // 0x2116 @0x5
0x2111…212a at0006 = ╱41╱A╱ // 0x2117 @0x6
0x2111…212a at0007 = ╱4c╱L╱ // 0x2118 @0x7
0x2111…212a at0008 = ╱5f╱_╱ // 0x2119 @0x8
0x2111…212a at0009 = ╱43╱C╱ // 0x211a @0x9
0x2111…212a at000a = ╱4f╱O╱ // 0x211b @0xa
0x2111…212a at000b = ╱4e╱N╱ // 0x211c @0xb
0x2111…212a at000c = ╱54╱T╱ // 0x211d @0xc
0x2111…212a at000d = ╱52╱R╱ // 0x211e @0xd
0x2111…212a at000e = ╱4f╱O╱ // 0x211f @0xe
0x2111…212a at000f = ╱4c╱L╱ // 0x2120 @0xf
0x2111…212a at0010 = ╱ed╱(╱ // 0x2121 @0x10
0x2111…212a at0011 = ╱50╱P╱ // 0x2122 @0x11
0x2111…212a at0012 = ╱5f╱_╱ // 0x2123 @0x12
0x2111…212a at0013 = ╱42╱B╱ // 0x2124 @0x13
0x2111…212a at0014 = ╱4e╱N╱ // 0x2125 @0x14
0x2111…212a at0015 = ╱52╱R╱ // 0x2126 @0x15
0x2111…212a at0016 = ╱ef╱$╱ // 0x2127 @0x16
0x2111…212a at0017 = ╱ee╱)╱ // 0x2128 @0x17
0x2111…212a at0018 = EOL // 0x2129 @0x18
0x2111…212a }
0x212a…2152 b740 3360 IF NOT OK THEN EXEC FEJL("Ulovlig bilagsnummer")
0x212a…2152 LineComal80 {
0x212a…2152 ptr = 0xb740 // 0x212a @0x0
0x212a…2152 lno = 0x0d20 // 0x212c @0x2
0x212a…2152 at0004 = ╱8200╱ IF ╱ // 0x212e @0x4
0x212a…2152 at0006 = ╱d7╱ NOT ╱ // 0x2130 @0x6
0x212a…2152 at0007 = ╱4f╱O╱ // 0x2131 @0x7
0x212a…2152 at0008 = ╱4b╱K╱ // 0x2132 @0x8
0x212a…2152 at0009 = ╱b5╱ THEN ╱ // 0x2133 @0x9
0x212a…2152 at000a = ╱9d╱ EXEC ╱ // 0x2134 @0xa
0x212a…2152 at000b = ╱46╱F╱ // 0x2135 @0xb
0x212a…2152 at000c = ╱45╱E╱ // 0x2136 @0xc
0x212a…2152 at000d = ╱4a╱J╱ // 0x2137 @0xd
0x212a…2152 at000e = ╱4c╱L╱ // 0x2138 @0xe
0x212a…2152 at000f = ╱ed╱(╱ // 0x2139 @0xf
0x212a…2152 at0010 = ╱22╱"╱ // 0x213a @0x10
0x212a…2152 at0011 = ╱55╱U╱ // 0x213b @0x11
0x212a…2152 at0012 = ╱6c╱l╱ // 0x213c @0x12
0x212a…2152 at0013 = ╱6f╱o╱ // 0x213d @0x13
0x212a…2152 at0014 = ╱76╱v╱ // 0x213e @0x14
0x212a…2152 at0015 = ╱6c╱l╱ // 0x213f @0x15
0x212a…2152 at0016 = ╱69╱i╱ // 0x2140 @0x16
0x212a…2152 at0017 = ╱67╱g╱ // 0x2141 @0x17
0x212a…2152 at0018 = ╱20╱…╱ // 0x2142 @0x18
0x212a…2152 at0019 = ╱62╱b╱ // 0x2143 @0x19
0x212a…2152 at001a = ╱69╱i╱ // 0x2144 @0x1a
0x212a…2152 at001b = ╱6c╱l╱ // 0x2145 @0x1b
0x212a…2152 at001c = ╱61╱a╱ // 0x2146 @0x1c
0x212a…2152 at001d = ╱67╱g╱ // 0x2147 @0x1d
0x212a…2152 at001e = ╱73╱s╱ // 0x2148 @0x1e
0x212a…2152 at001f = ╱6e╱n╱ // 0x2149 @0x1f
0x212a…2152 at0020 = ╱75╱u╱ // 0x214a @0x20
0x212a…2152 at0021 = ╱6d╱m╱ // 0x214b @0x21
0x212a…2152 at0022 = ╱6d╱m╱ // 0x214c @0x22
0x212a…2152 at0023 = ╱65╱e╱ // 0x214d @0x23
0x212a…2152 at0024 = ╱72╱r╱ // 0x214e @0x24
0x212a…2152 at0025 = ╱22╱"╱ // 0x214f @0x25
0x212a…2152 at0026 = ╱ee╱)╱ // 0x2150 @0x26
0x212a…2152 at0027 = EOL // 0x2151 @0x27
0x212a…2152 }
0x2152…2158 b746 3370 ENDIF
0x2152…2158 LineComal80 {
0x2152…2158 ptr = 0xb746 // 0x2152 @0x0
0x2152…2158 lno = 0x0d2a // 0x2154 @0x2
0x2152…2158 at0004 = ╱9c╱ ENDIF ╱ // 0x2156 @0x4
0x2152…2158 at0005 = EOL // 0x2157 @0x5
0x2152…2158 }
0x2158…2160 b74e 3380 UNTIL OK
0x2158…2160 LineComal80 {
0x2158…2160 ptr = 0xb74e // 0x2158 @0x0
0x2158…2160 lno = 0x0d34 // 0x215a @0x2
0x2158…2160 at0004 = ╱98╱ UNTIL ╱ // 0x215c @0x4
0x2158…2160 at0005 = ╱4f╱O╱ // 0x215d @0x5
0x2158…2160 at0006 = ╱4b╱K╱ // 0x215e @0x6
0x2158…2160 at0007 = EOL // 0x215f @0x7
0x2158…2160 }
0x2160…2171 b75f 3390 CURSOR 4,R_SLIN
0x2160…2171 LineComal80 {
0x2160…2171 ptr = 0xb75f // 0x2160 @0x0
0x2160…2171 lno = 0x0d3e // 0x2162 @0x2
0x2160…2171 at0004 = ╱a1╱ CURSOR ╱ // 0x2164 @0x4
0x2160…2171 at0005 = ╱34╱4╱ // 0x2165 @0x5
0x2160…2171 at0006 = ╱f20400╱ // 0x2166 @0x6
0x2160…2171 at0009 = ╱ec╱,╱ // 0x2169 @0x9
0x2160…2171 at000a = ╱52╱R╱ // 0x216a @0xa
0x2160…2171 at000b = ╱5f╱_╱ // 0x216b @0xb
0x2160…2171 at000c = ╱53╱S╱ // 0x216c @0xc
0x2160…2171 at000d = ╱4c╱L╱ // 0x216d @0xd
0x2160…2171 at000e = ╱49╱I╱ // 0x216e @0xe
0x2160…2171 at000f = ╱4e╱N╱ // 0x216f @0xf
0x2160…2171 at0010 = EOL // 0x2170 @0x10
0x2160…2171 }
0x2171…2186 b774 3400 PRINT SPC$(1 : 5)
0x2171…2186 LineComal80 {
0x2171…2186 ptr = 0xb774 // 0x2171 @0x0
0x2171…2186 lno = 0x0d48 // 0x2173 @0x2
0x2171…2186 at0004 = ╱92╱ PRINT ╱ // 0x2175 @0x4
0x2171…2186 at0005 = ╱53╱S╱ // 0x2176 @0x5
0x2171…2186 at0006 = ╱50╱P╱ // 0x2177 @0x6
0x2171…2186 at0007 = ╱43╱C╱ // 0x2178 @0x7
0x2171…2186 at0008 = ╱ef╱$╱ // 0x2179 @0x8
0x2171…2186 at0009 = ╱ed╱(╱ // 0x217a @0x9
0x2171…2186 at000a = ╱31╱1╱ // 0x217b @0xa
0x2171…2186 at000b = ╱f20100╱ // 0x217c @0xb
0x2171…2186 at000e = ╱f1╱ : ╱ // 0x217f @0xe
0x2171…2186 at000f = ╱35╱5╱ // 0x2180 @0xf
0x2171…2186 at0010 = ╱f20500╱ // 0x2181 @0x10
0x2171…2186 at0013 = ╱ee╱)╱ // 0x2184 @0x13
0x2171…2186 at0014 = EOL // 0x2185 @0x14
0x2171…2186 }
0x2186…2197 b785 3410 CURSOR 4,R_SLIN
0x2186…2197 LineComal80 {
0x2186…2197 ptr = 0xb785 // 0x2186 @0x0
0x2186…2197 lno = 0x0d52 // 0x2188 @0x2
0x2186…2197 at0004 = ╱a1╱ CURSOR ╱ // 0x218a @0x4
0x2186…2197 at0005 = ╱34╱4╱ // 0x218b @0x5
0x2186…2197 at0006 = ╱f20400╱ // 0x218c @0x6
0x2186…2197 at0009 = ╱ec╱,╱ // 0x218f @0x9
0x2186…2197 at000a = ╱52╱R╱ // 0x2190 @0xa
0x2186…2197 at000b = ╱5f╱_╱ // 0x2191 @0xb
0x2186…2197 at000c = ╱53╱S╱ // 0x2192 @0xc
0x2186…2197 at000d = ╱4c╱L╱ // 0x2193 @0xd
0x2186…2197 at000e = ╱49╱I╱ // 0x2194 @0xe
0x2186…2197 at000f = ╱4e╱N╱ // 0x2195 @0xf
0x2186…2197 at0010 = EOL // 0x2196 @0x10
0x2186…2197 }
0x2197…21ca b7b8 3420 IF _BNR$ = "*****" OR "/" + P_BNR$ + "/" IN "/SLUT/slut/" THEN
0x2197…21ca LineComal80 {
0x2197…21ca ptr = 0xb7b8 // 0x2197 @0x0
0x2197…21ca lno = 0x0d5c // 0x2199 @0x2
0x2197…21ca at0004 = ╱9b3e50╱ IF ╱ // 0x219b @0x4
0x2197…21ca at0007 = ╱5f╱_╱ // 0x219e @0x7
0x2197…21ca at0008 = ╱42╱B╱ // 0x219f @0x8
0x2197…21ca at0009 = ╱4e╱N╱ // 0x21a0 @0x9
0x2197…21ca at000a = ╱52╱R╱ // 0x21a1 @0xa
0x2197…21ca at000b = ╱ef╱$╱ // 0x21a2 @0xb
0x2197…21ca at000c = ╱df╱ = ╱ // 0x21a3 @0xc
0x2197…21ca at000d = ╱22╱"╱ // 0x21a4 @0xd
0x2197…21ca at000e = ╱2a╱*╱ // 0x21a5 @0xe
0x2197…21ca at000f = ╱2a╱*╱ // 0x21a6 @0xf
0x2197…21ca at0010 = ╱2a╱*╱ // 0x21a7 @0x10
0x2197…21ca at0011 = ╱2a╱*╱ // 0x21a8 @0x11
0x2197…21ca at0012 = ╱2a╱*╱ // 0x21a9 @0x12
0x2197…21ca at0013 = ╱22╱"╱ // 0x21aa @0x13
0x2197…21ca at0014 = ╱d8╱ OR ╱ // 0x21ab @0x14
0x2197…21ca at0015 = ╱22╱"╱ // 0x21ac @0x15
0x2197…21ca at0016 = ╱2f╱/╱ // 0x21ad @0x16
0x2197…21ca at0017 = ╱22╱"╱ // 0x21ae @0x17
0x2197…21ca at0018 = ╱eb╱ + ╱ // 0x21af @0x18
0x2197…21ca at0019 = ╱50╱P╱ // 0x21b0 @0x19
0x2197…21ca at001a = ╱5f╱_╱ // 0x21b1 @0x1a
0x2197…21ca at001b = ╱42╱B╱ // 0x21b2 @0x1b
0x2197…21ca at001c = ╱4e╱N╱ // 0x21b3 @0x1c
0x2197…21ca at001d = ╱52╱R╱ // 0x21b4 @0x1d
0x2197…21ca at001e = ╱ef╱$╱ // 0x21b5 @0x1e
0x2197…21ca at001f = ╱eb╱ + ╱ // 0x21b6 @0x1f
0x2197…21ca at0020 = ╱22╱"╱ // 0x21b7 @0x20
0x2197…21ca at0021 = ╱2f╱/╱ // 0x21b8 @0x21
0x2197…21ca at0022 = ╱22╱"╱ // 0x21b9 @0x22
0x2197…21ca at0023 = ╱dc╱ IN ╱ // 0x21ba @0x23
0x2197…21ca at0024 = ╱22╱"╱ // 0x21bb @0x24
0x2197…21ca at0025 = ╱2f╱/╱ // 0x21bc @0x25
0x2197…21ca at0026 = ╱53╱S╱ // 0x21bd @0x26
0x2197…21ca at0027 = ╱4c╱L╱ // 0x21be @0x27
0x2197…21ca at0028 = ╱55╱U╱ // 0x21bf @0x28
0x2197…21ca at0029 = ╱54╱T╱ // 0x21c0 @0x29
0x2197…21ca at002a = ╱2f╱/╱ // 0x21c1 @0x2a
0x2197…21ca at002b = ╱73╱s╱ // 0x21c2 @0x2b
0x2197…21ca at002c = ╱6c╱l╱ // 0x21c3 @0x2c
0x2197…21ca at002d = ╱75╱u╱ // 0x21c4 @0x2d
0x2197…21ca at002e = ╱74╱t╱ // 0x21c5 @0x2e
0x2197…21ca at002f = ╱2f╱/╱ // 0x21c6 @0x2f
0x2197…21ca at0030 = ╱22╱"╱ // 0x21c7 @0x30
0x2197…21ca at0031 = ╱b5╱ THEN ╱ // 0x21c8 @0x31
0x2197…21ca at0032 = EOL // 0x21c9 @0x32
0x2197…21ca }
0x21ca…21ee b7dc 3430 IF /" + P_BNR$ + "/" IN "/slut/SLUT/" THEN
0x21ca…21ee LineComal80 {
0x21ca…21ee ptr = 0xb7dc // 0x21ca @0x0
0x21ca…21ee lno = 0x0d66 // 0x21cc @0x2
0x21ca…21ee at0004 = ╱9b3f22╱ IF ╱ // 0x21ce @0x4
0x21ca…21ee at0007 = ╱2f╱/╱ // 0x21d1 @0x7
0x21ca…21ee at0008 = ╱22╱"╱ // 0x21d2 @0x8
0x21ca…21ee at0009 = ╱eb╱ + ╱ // 0x21d3 @0x9
0x21ca…21ee at000a = ╱50╱P╱ // 0x21d4 @0xa
0x21ca…21ee at000b = ╱5f╱_╱ // 0x21d5 @0xb
0x21ca…21ee at000c = ╱42╱B╱ // 0x21d6 @0xc
0x21ca…21ee at000d = ╱4e╱N╱ // 0x21d7 @0xd
0x21ca…21ee at000e = ╱52╱R╱ // 0x21d8 @0xe
0x21ca…21ee at000f = ╱ef╱$╱ // 0x21d9 @0xf
0x21ca…21ee at0010 = ╱eb╱ + ╱ // 0x21da @0x10
0x21ca…21ee at0011 = ╱22╱"╱ // 0x21db @0x11
0x21ca…21ee at0012 = ╱2f╱/╱ // 0x21dc @0x12
0x21ca…21ee at0013 = ╱22╱"╱ // 0x21dd @0x13
0x21ca…21ee at0014 = ╱dc╱ IN ╱ // 0x21de @0x14
0x21ca…21ee at0015 = ╱22╱"╱ // 0x21df @0x15
0x21ca…21ee at0016 = ╱2f╱/╱ // 0x21e0 @0x16
0x21ca…21ee at0017 = ╱73╱s╱ // 0x21e1 @0x17
0x21ca…21ee at0018 = ╱6c╱l╱ // 0x21e2 @0x18
0x21ca…21ee at0019 = ╱75╱u╱ // 0x21e3 @0x19
0x21ca…21ee at001a = ╱74╱t╱ // 0x21e4 @0x1a
0x21ca…21ee at001b = ╱2f╱/╱ // 0x21e5 @0x1b
0x21ca…21ee at001c = ╱53╱S╱ // 0x21e6 @0x1c
0x21ca…21ee at001d = ╱4c╱L╱ // 0x21e7 @0x1d
0x21ca…21ee at001e = ╱55╱U╱ // 0x21e8 @0x1e
0x21ca…21ee at001f = ╱54╱T╱ // 0x21e9 @0x1f
0x21ca…21ee at0020 = ╱2f╱/╱ // 0x21ea @0x20
0x21ca…21ee at0021 = ╱22╱"╱ // 0x21eb @0x21
0x21ca…21ee at0022 = ╱b5╱ THEN ╱ // 0x21ec @0x22
0x21ca…21ee at0023 = EOL // 0x21ed @0x23
0x21ca…21ee }
0x21ee…2223 b811 3440 LET SVAR$ := "S" ; P_BNR$ := "*****" ; P_HØJREC := P_HØJREC - 1
0x21ee…2223 LineComal80 {
0x21ee…2223 ptr = 0xb811 // 0x21ee @0x0
0x21ee…2223 lno = 0x0d70 // 0x21f0 @0x2
0x21ee…2223 at0004 = ╱86╱ LET ╱ // 0x21f2 @0x4
0x21ee…2223 at0005 = ╱53╱S╱ // 0x21f3 @0x5
0x21ee…2223 at0006 = ╱56╱V╱ // 0x21f4 @0x6
0x21ee…2223 at0007 = ╱41╱A╱ // 0x21f5 @0x7
0x21ee…2223 at0008 = ╱52╱R╱ // 0x21f6 @0x8
0x21ee…2223 at0009 = ╱ef╱$╱ // 0x21f7 @0x9
0x21ee…2223 at000a = ╱f0╱ := ╱ // 0x21f8 @0xa
0x21ee…2223 at000b = ╱22╱"╱ // 0x21f9 @0xb
0x21ee…2223 at000c = ╱53╱S╱ // 0x21fa @0xc
0x21ee…2223 at000d = ╱22╱"╱ // 0x21fb @0xd
0x21ee…2223 at000e = ╱ea╱ ; ╱ // 0x21fc @0xe
0x21ee…2223 at000f = ╱50╱P╱ // 0x21fd @0xf
0x21ee…2223 at0010 = ╱5f╱_╱ // 0x21fe @0x10
0x21ee…2223 at0011 = ╱42╱B╱ // 0x21ff @0x11
0x21ee…2223 at0012 = ╱4e╱N╱ // 0x2200 @0x12
0x21ee…2223 at0013 = ╱52╱R╱ // 0x2201 @0x13
0x21ee…2223 at0014 = ╱ef╱$╱ // 0x2202 @0x14
0x21ee…2223 at0015 = ╱f0╱ := ╱ // 0x2203 @0x15
0x21ee…2223 at0016 = ╱22╱"╱ // 0x2204 @0x16
0x21ee…2223 at0017 = ╱2a╱*╱ // 0x2205 @0x17
0x21ee…2223 at0018 = ╱2a╱*╱ // 0x2206 @0x18
0x21ee…2223 at0019 = ╱2a╱*╱ // 0x2207 @0x19
0x21ee…2223 at001a = ╱2a╱*╱ // 0x2208 @0x1a
0x21ee…2223 at001b = ╱2a╱*╱ // 0x2209 @0x1b
0x21ee…2223 at001c = ╱22╱"╱ // 0x220a @0x1c
0x21ee…2223 at001d = ╱ea╱ ; ╱ // 0x220b @0x1d
0x21ee…2223 at001e = ╱50╱P╱ // 0x220c @0x1e
0x21ee…2223 at001f = ╱5f╱_╱ // 0x220d @0x1f
0x21ee…2223 at0020 = ╱48╱H╱ // 0x220e @0x20
0x21ee…2223 at0021 = ╱5c╱Ø╱ // 0x220f @0x21
0x21ee…2223 at0022 = ╱4a╱J╱ // 0x2210 @0x22
0x21ee…2223 at0023 = ╱52╱R╱ // 0x2211 @0x23
0x21ee…2223 at0024 = ╱45╱E╱ // 0x2212 @0x24
0x21ee…2223 at0025 = ╱43╱C╱ // 0x2213 @0x25
0x21ee…2223 at0026 = ╱f0╱ := ╱ // 0x2214 @0x26
0x21ee…2223 at0027 = ╱50╱P╱ // 0x2215 @0x27
0x21ee…2223 at0028 = ╱5f╱_╱ // 0x2216 @0x28
0x21ee…2223 at0029 = ╱48╱H╱ // 0x2217 @0x29
0x21ee…2223 at002a = ╱5c╱Ø╱ // 0x2218 @0x2a
0x21ee…2223 at002b = ╱4a╱J╱ // 0x2219 @0x2b
0x21ee…2223 at002c = ╱52╱R╱ // 0x221a @0x2c
0x21ee…2223 at002d = ╱45╱E╱ // 0x221b @0x2d
0x21ee…2223 at002e = ╱43╱C╱ // 0x221c @0x2e
0x21ee…2223 at002f = ╱e6╱ - ╱ // 0x221d @0x2f
0x21ee…2223 at0030 = ╱31╱1╱ // 0x221e @0x30
0x21ee…2223 at0031 = ╱f20100╱ // 0x221f @0x31
0x21ee…2223 at0034 = EOL // 0x2222 @0x34
0x21ee…2223 }
0x2223…2229 b817 3450 ENDIF
0x2223…2229 LineComal80 {
0x2223…2229 ptr = 0xb817 // 0x2223 @0x0
0x2223…2229 lno = 0x0d7a // 0x2225 @0x2
0x2223…2229 at0004 = ╱9c╱ ENDIF ╱ // 0x2227 @0x4
0x2223…2229 at0005 = EOL // 0x2228 @0x5
0x2223…2229 }
0x2229…223f b82d 3460 PRINT SPC$(1 : 76)
0x2229…223f LineComal80 {
0x2229…223f ptr = 0xb82d // 0x2229 @0x0
0x2229…223f lno = 0x0d84 // 0x222b @0x2
0x2229…223f at0004 = ╱92╱ PRINT ╱ // 0x222d @0x4
0x2229…223f at0005 = ╱53╱S╱ // 0x222e @0x5
0x2229…223f at0006 = ╱50╱P╱ // 0x222f @0x6
0x2229…223f at0007 = ╱43╱C╱ // 0x2230 @0x7
0x2229…223f at0008 = ╱ef╱$╱ // 0x2231 @0x8
0x2229…223f at0009 = ╱ed╱(╱ // 0x2232 @0x9
0x2229…223f at000a = ╱31╱1╱ // 0x2233 @0xa
0x2229…223f at000b = ╱f20100╱ // 0x2234 @0xb
0x2229…223f at000e = ╱f1╱ : ╱ // 0x2237 @0xe
0x2229…223f at000f = ╱37╱7╱ // 0x2238 @0xf
0x2229…223f at0010 = ╱36╱6╱ // 0x2239 @0x10
0x2229…223f at0011 = ╱f24c00╱ // 0x223a @0x11
0x2229…223f at0014 = ╱ee╱)╱ // 0x223d @0x14
0x2229…223f at0015 = EOL // 0x223e @0x15
0x2229…223f }
0x223f…2245 b833 3470 EXIT
0x223f…2245 LineComal80 {
0x223f…2245 ptr = 0xb833 // 0x223f @0x0
0x223f…2245 lno = 0x0d8e // 0x2241 @0x2
0x223f…2245 at0004 = ╱99╱ EXIT ╱ // 0x2243 @0x4
0x223f…2245 at0005 = EOL // 0x2244 @0x5
0x223f…2245 }
0x2245…224c b83a 3480 ELSE
0x2245…224c LineComal80 {
0x2245…224c ptr = 0xb83a // 0x2245 @0x0
0x2245…224c lno = 0x0d98 // 0x2247 @0x2
0x2245…224c at0004 = ╱9a40╱ ELSE ╱ // 0x2249 @0x4
0x2245…224c at0006 = EOL // 0x224b @0x6
0x2245…224c }
0x224c…2258 b846 3490 PRINT P_BNR$
0x224c…2258 LineComal80 {
0x224c…2258 ptr = 0xb846 // 0x224c @0x0
0x224c…2258 lno = 0x0da2 // 0x224e @0x2
0x224c…2258 at0004 = ╱92╱ PRINT ╱ // 0x2250 @0x4
0x224c…2258 at0005 = ╱50╱P╱ // 0x2251 @0x5
0x224c…2258 at0006 = ╱5f╱_╱ // 0x2252 @0x6
0x224c…2258 at0007 = ╱42╱B╱ // 0x2253 @0x7
0x224c…2258 at0008 = ╱4e╱N╱ // 0x2254 @0x8
0x224c…2258 at0009 = ╱52╱R╱ // 0x2255 @0x9
0x224c…2258 at000a = ╱ef╱$╱ // 0x2256 @0xa
0x224c…2258 at000b = EOL // 0x2257 @0xb
0x224c…2258 }
0x2258…225e b84c 3500 ENDIF
0x2258…225e LineComal80 {
0x2258…225e ptr = 0xb84c // 0x2258 @0x0
0x2258…225e lno = 0x0dac // 0x225a @0x2
0x2258…225e at0004 = ╱9c╱ ENDIF ╱ // 0x225c @0x4
0x2258…225e at0005 = EOL // 0x225d @0x5
0x2258…225e }
0x225e…2270 b85e 3510 CURSOR 11,R_SLIN
0x225e…2270 LineComal80 {
0x225e…2270 ptr = 0xb85e // 0x225e @0x0
0x225e…2270 lno = 0x0db6 // 0x2260 @0x2
0x225e…2270 at0004 = ╱a1╱ CURSOR ╱ // 0x2262 @0x4
0x225e…2270 at0005 = ╱31╱1╱ // 0x2263 @0x5
0x225e…2270 at0006 = ╱31╱1╱ // 0x2264 @0x6
0x225e…2270 at0007 = ╱f20b00╱ // 0x2265 @0x7
0x225e…2270 at000a = ╱ec╱,╱ // 0x2268 @0xa
0x225e…2270 at000b = ╱52╱R╱ // 0x2269 @0xb
0x225e…2270 at000c = ╱5f╱_╱ // 0x226a @0xc
0x225e…2270 at000d = ╱53╱S╱ // 0x226b @0xd
0x225e…2270 at000e = ╱4c╱L╱ // 0x226c @0xe
0x225e…2270 at000f = ╱49╱I╱ // 0x226d @0xf
0x225e…2270 at0010 = ╱4e╱N╱ // 0x226e @0x10
0x225e…2270 at0011 = EOL // 0x226f @0x11
0x225e…2270 }
0x2270…227f d0de 3520 EDIT "" : P_TXT$
0x2270…227f LineComal80 {
0x2270…227f ptr = 0xd0de // 0x2270 @0x0
0x2270…227f lno = 0x0dc0 // 0x2272 @0x2
0x2270…227f at0004 = ╱b1╱ EDIT ╱ // 0x2274 @0x4
0x2270…227f at0005 = ╱22╱"╱ // 0x2275 @0x5
0x2270…227f at0006 = ╱22╱"╱ // 0x2276 @0x6
0x2270…227f at0007 = ╱f1╱ : ╱ // 0x2277 @0x7
0x2270…227f at0008 = ╱50╱P╱ // 0x2278 @0x8
0x2270…227f at0009 = ╱5f╱_╱ // 0x2279 @0x9
0x2270…227f at000a = ╱54╱T╱ // 0x227a @0xa
0x2270…227f at000b = ╱58╱X╱ // 0x227b @0xb
0x2270…227f at000c = ╱54╱T╱ // 0x227c @0xc
0x2270…227f at000d = ╱ef╱$╱ // 0x227d @0xd
0x2270…227f at000e = EOL // 0x227e @0xe
0x2270…227f }
0x227f…2286 b874 3530 REPEAT
0x227f…2286 LineComal80 {
0x227f…2286 ptr = 0xb874 // 0x227f @0x0
0x227f…2286 lno = 0x0dca // 0x2281 @0x2
0x227f…2286 at0004 = ╱9700╱ REPEAT ╱ // 0x2283 @0x4
0x227f…2286 at0006 = EOL // 0x2285 @0x6
0x227f…2286 }
0x2286…2298 b886 3540 CURSOR 34,R_SLIN
0x2286…2298 LineComal80 {
0x2286…2298 ptr = 0xb886 // 0x2286 @0x0
0x2286…2298 lno = 0x0dd4 // 0x2288 @0x2
0x2286…2298 at0004 = ╱a1╱ CURSOR ╱ // 0x228a @0x4
0x2286…2298 at0005 = ╱33╱3╱ // 0x228b @0x5
0x2286…2298 at0006 = ╱34╱4╱ // 0x228c @0x6
0x2286…2298 at0007 = ╱f22200╱ // 0x228d @0x7
0x2286…2298 at000a = ╱ec╱,╱ // 0x2290 @0xa
0x2286…2298 at000b = ╱52╱R╱ // 0x2291 @0xb
0x2286…2298 at000c = ╱5f╱_╱ // 0x2292 @0xc
0x2286…2298 at000d = ╱53╱S╱ // 0x2293 @0xd
0x2286…2298 at000e = ╱4c╱L╱ // 0x2294 @0xe
0x2286…2298 at000f = ╱49╱I╱ // 0x2295 @0xf
0x2286…2298 at0010 = ╱4e╱N╱ // 0x2296 @0x10
0x2286…2298 at0011 = EOL // 0x2297 @0x11
0x2286…2298 }
0x2298…22a8 b896 3550 EDIT "" : P_MKOD$
0x2298…22a8 LineComal80 {
0x2298…22a8 ptr = 0xb896 // 0x2298 @0x0
0x2298…22a8 lno = 0x0dde // 0x229a @0x2
0x2298…22a8 at0004 = ╱b1╱ EDIT ╱ // 0x229c @0x4
0x2298…22a8 at0005 = ╱22╱"╱ // 0x229d @0x5
0x2298…22a8 at0006 = ╱22╱"╱ // 0x229e @0x6
0x2298…22a8 at0007 = ╱f1╱ : ╱ // 0x229f @0x7
0x2298…22a8 at0008 = ╱50╱P╱ // 0x22a0 @0x8
0x2298…22a8 at0009 = ╱5f╱_╱ // 0x22a1 @0x9
0x2298…22a8 at000a = ╱4d╱M╱ // 0x22a2 @0xa
0x2298…22a8 at000b = ╱4b╱K╱ // 0x22a3 @0xb
0x2298…22a8 at000c = ╱4f╱O╱ // 0x22a4 @0xc
0x2298…22a8 at000d = ╱44╱D╱ // 0x22a5 @0xd
0x2298…22a8 at000e = ╱ef╱$╱ // 0x22a6 @0xe
0x2298…22a8 at000f = EOL // 0x22a7 @0xf
0x2298…22a8 }
0x22a8…22ba b8a8 3560 EXEC SL_FEJLLINIE
0x22a8…22ba LineComal80 {
0x22a8…22ba ptr = 0xb8a8 // 0x22a8 @0x0
0x22a8…22ba lno = 0x0de8 // 0x22aa @0x2
0x22a8…22ba at0004 = ╱9d╱ EXEC ╱ // 0x22ac @0x4
0x22a8…22ba at0005 = ╱53╱S╱ // 0x22ad @0x5
0x22a8…22ba at0006 = ╱4c╱L╱ // 0x22ae @0x6
0x22a8…22ba at0007 = ╱5f╱_╱ // 0x22af @0x7
0x22a8…22ba at0008 = ╱46╱F╱ // 0x22b0 @0x8
0x22a8…22ba at0009 = ╱45╱E╱ // 0x22b1 @0x9
0x22a8…22ba at000a = ╱4a╱J╱ // 0x22b2 @0xa
0x22a8…22ba at000b = ╱4c╱L╱ // 0x22b3 @0xb
0x22a8…22ba at000c = ╱4c╱L╱ // 0x22b4 @0xc
0x22a8…22ba at000d = ╱49╱I╱ // 0x22b5 @0xd
0x22a8…22ba at000e = ╱4e╱N╱ // 0x22b6 @0xe
0x22a8…22ba at000f = ╱49╱I╱ // 0x22b7 @0xf
0x22a8…22ba at0010 = ╱45╱E╱ // 0x22b8 @0x10
0x22a8…22ba at0011 = EOL // 0x22b9 @0x11
0x22a8…22ba }
0x22ba…22d0 b8be 3570 EXEC ST_BGST(P_MKOD$)
0x22ba…22d0 LineComal80 {
0x22ba…22d0 ptr = 0xb8be // 0x22ba @0x0
0x22ba…22d0 lno = 0x0df2 // 0x22bc @0x2
0x22ba…22d0 at0004 = ╱9d╱ EXEC ╱ // 0x22be @0x4
0x22ba…22d0 at0005 = ╱53╱S╱ // 0x22bf @0x5
0x22ba…22d0 at0006 = ╱54╱T╱ // 0x22c0 @0x6
0x22ba…22d0 at0007 = ╱5f╱_╱ // 0x22c1 @0x7
0x22ba…22d0 at0008 = ╱42╱B╱ // 0x22c2 @0x8
0x22ba…22d0 at0009 = ╱47╱G╱ // 0x22c3 @0x9
0x22ba…22d0 at000a = ╱53╱S╱ // 0x22c4 @0xa
0x22ba…22d0 at000b = ╱54╱T╱ // 0x22c5 @0xb
0x22ba…22d0 at000c = ╱ed╱(╱ // 0x22c6 @0xc
0x22ba…22d0 at000d = ╱50╱P╱ // 0x22c7 @0xd
0x22ba…22d0 at000e = ╱5f╱_╱ // 0x22c8 @0xe
0x22ba…22d0 at000f = ╱4d╱M╱ // 0x22c9 @0xf
0x22ba…22d0 at0010 = ╱4b╱K╱ // 0x22ca @0x10
0x22ba…22d0 at0011 = ╱4f╱O╱ // 0x22cb @0x11
0x22ba…22d0 at0012 = ╱44╱D╱ // 0x22cc @0x12
0x22ba…22d0 at0013 = ╱ef╱$╱ // 0x22cd @0x13
0x22ba…22d0 at0014 = ╱ee╱)╱ // 0x22ce @0x14
0x22ba…22d0 at0015 = EOL // 0x22cf @0x15
0x22ba…22d0 }
0x22d0…22e6 b8d4 3580 IF P_MKOD$ IN "IU " THEN
0x22d0…22e6 LineComal80 {
0x22d0…22e6 ptr = 0xb8d4 // 0x22d0 @0x0
0x22d0…22e6 lno = 0x0dfc // 0x22d2 @0x2
0x22d0…22e6 at0004 = ╱9b00d7╱ IF ╱ // 0x22d4 @0x4
0x22d0…22e6 at0007 = ╱50╱P╱ // 0x22d7 @0x7
0x22d0…22e6 at0008 = ╱5f╱_╱ // 0x22d8 @0x8
0x22d0…22e6 at0009 = ╱4d╱M╱ // 0x22d9 @0x9
0x22d0…22e6 at000a = ╱4b╱K╱ // 0x22da @0xa
0x22d0…22e6 at000b = ╱4f╱O╱ // 0x22db @0xb
0x22d0…22e6 at000c = ╱44╱D╱ // 0x22dc @0xc
0x22d0…22e6 at000d = ╱ef╱$╱ // 0x22dd @0xd
0x22d0…22e6 at000e = ╱dc╱ IN ╱ // 0x22de @0xe
0x22d0…22e6 at000f = ╱22╱"╱ // 0x22df @0xf
0x22d0…22e6 at0010 = ╱49╱I╱ // 0x22e0 @0x10
0x22d0…22e6 at0011 = ╱55╱U╱ // 0x22e1 @0x11
0x22d0…22e6 at0012 = ╱20╱…╱ // 0x22e2 @0x12
0x22d0…22e6 at0013 = ╱22╱"╱ // 0x22e3 @0x13
0x22d0…22e6 at0014 = ╱b5╱ THEN ╱ // 0x22e4 @0x14
0x22d0…22e6 at0015 = EOL // 0x22e5 @0x15
0x22d0…22e6 }
0x22e6…2313 b901 3590 EXEC FEJL("Ulovlig momskode: '" + P_MKOD$ + "'")
0x22e6…2313 LineComal80 {
0x22e6…2313 ptr = 0xb901 // 0x22e6 @0x0
0x22e6…2313 lno = 0x0e06 // 0x22e8 @0x2
0x22e6…2313 at0004 = ╱9d╱ EXEC ╱ // 0x22ea @0x4
0x22e6…2313 at0005 = ╱46╱F╱ // 0x22eb @0x5
0x22e6…2313 at0006 = ╱45╱E╱ // 0x22ec @0x6
0x22e6…2313 at0007 = ╱4a╱J╱ // 0x22ed @0x7
0x22e6…2313 at0008 = ╱4c╱L╱ // 0x22ee @0x8
0x22e6…2313 at0009 = ╱ed╱(╱ // 0x22ef @0x9
0x22e6…2313 at000a = ╱22╱"╱ // 0x22f0 @0xa
0x22e6…2313 at000b = ╱55╱U╱ // 0x22f1 @0xb
0x22e6…2313 at000c = ╱6c╱l╱ // 0x22f2 @0xc
0x22e6…2313 at000d = ╱6f╱o╱ // 0x22f3 @0xd
0x22e6…2313 at000e = ╱76╱v╱ // 0x22f4 @0xe
0x22e6…2313 at000f = ╱6c╱l╱ // 0x22f5 @0xf
0x22e6…2313 at0010 = ╱69╱i╱ // 0x22f6 @0x10
0x22e6…2313 at0011 = ╱67╱g╱ // 0x22f7 @0x11
0x22e6…2313 at0012 = ╱20╱…╱ // 0x22f8 @0x12
0x22e6…2313 at0013 = ╱6d╱m╱ // 0x22f9 @0x13
0x22e6…2313 at0014 = ╱6f╱o╱ // 0x22fa @0x14
0x22e6…2313 at0015 = ╱6d╱m╱ // 0x22fb @0x15
0x22e6…2313 at0016 = ╱73╱s╱ // 0x22fc @0x16
0x22e6…2313 at0017 = ╱6b╱k╱ // 0x22fd @0x17
0x22e6…2313 at0018 = ╱6f╱o╱ // 0x22fe @0x18
0x22e6…2313 at0019 = ╱64╱d╱ // 0x22ff @0x19
0x22e6…2313 at001a = ╱65╱e╱ // 0x2300 @0x1a
0x22e6…2313 at001b = ╱3a╱:╱ // 0x2301 @0x1b
0x22e6…2313 at001c = ╱20╱…╱ // 0x2302 @0x1c
0x22e6…2313 at001d = ╱27╱'╱ // 0x2303 @0x1d
0x22e6…2313 at001e = ╱22╱"╱ // 0x2304 @0x1e
0x22e6…2313 at001f = ╱eb╱ + ╱ // 0x2305 @0x1f
0x22e6…2313 at0020 = ╱50╱P╱ // 0x2306 @0x20
0x22e6…2313 at0021 = ╱5f╱_╱ // 0x2307 @0x21
0x22e6…2313 at0022 = ╱4d╱M╱ // 0x2308 @0x22
0x22e6…2313 at0023 = ╱4b╱K╱ // 0x2309 @0x23
0x22e6…2313 at0024 = ╱4f╱O╱ // 0x230a @0x24
0x22e6…2313 at0025 = ╱44╱D╱ // 0x230b @0x25
0x22e6…2313 at0026 = ╱ef╱$╱ // 0x230c @0x26
0x22e6…2313 at0027 = ╱eb╱ + ╱ // 0x230d @0x27
0x22e6…2313 at0028 = ╱22╱"╱ // 0x230e @0x28
0x22e6…2313 at0029 = ╱27╱'╱ // 0x230f @0x29
0x22e6…2313 at002a = ╱22╱"╱ // 0x2310 @0x2a
0x22e6…2313 at002b = ╱ee╱)╱ // 0x2311 @0x2b
0x22e6…2313 at002c = EOL // 0x2312 @0x2c
0x22e6…2313 }
0x2313…2319 b907 3600 ENDIF
0x2313…2319 LineComal80 {
0x2313…2319 ptr = 0xb907 // 0x2313 @0x0
0x2313…2319 lno = 0x0e10 // 0x2315 @0x2
0x2313…2319 at0004 = ╱9c╱ ENDIF ╱ // 0x2317 @0x4
0x2313…2319 at0005 = EOL // 0x2318 @0x5
0x2313…2319 }
0x2319…2321 b90f 3610 UNTIL OK
0x2319…2321 LineComal80 {
0x2319…2321 ptr = 0xb90f // 0x2319 @0x0
0x2319…2321 lno = 0x0e1a // 0x231b @0x2
0x2319…2321 at0004 = ╱98╱ UNTIL ╱ // 0x231d @0x4
0x2319…2321 at0005 = ╱4f╱O╱ // 0x231e @0x5
0x2319…2321 at0006 = ╱4b╱K╱ // 0x231f @0x6
0x2319…2321 at0007 = EOL // 0x2320 @0x7
0x2319…2321 }
0x2321…2328 b916 3540 REPEAT
0x2321…2328 LineComal80 {
0x2321…2328 ptr = 0xb916 // 0x2321 @0x0
0x2321…2328 lno = 0x0dd4 // 0x2323 @0x2
0x2321…2328 at0004 = ╱9741╱ REPEAT ╱ // 0x2325 @0x4
0x2321…2328 at0006 = EOL // 0x2327 @0x6
0x2321…2328 }
0x2328…233a b928 3550 CURSOR 39,R_SLIN
0x2328…233a LineComal80 {
0x2328…233a ptr = 0xb928 // 0x2328 @0x0
0x2328…233a lno = 0x0dde // 0x232a @0x2
0x2328…233a at0004 = ╱a1╱ CURSOR ╱ // 0x232c @0x4
0x2328…233a at0005 = ╱33╱3╱ // 0x232d @0x5
0x2328…233a at0006 = ╱39╱9╱ // 0x232e @0x6
0x2328…233a at0007 = ╱f22700╱ // 0x232f @0x7
0x2328…233a at000a = ╱ec╱,╱ // 0x2332 @0xa
0x2328…233a at000b = ╱52╱R╱ // 0x2333 @0xb
0x2328…233a at000c = ╱5f╱_╱ // 0x2334 @0xc
0x2328…233a at000d = ╱53╱S╱ // 0x2335 @0xd
0x2328…233a at000e = ╱4c╱L╱ // 0x2336 @0xe
0x2328…233a at000f = ╱49╱I╱ // 0x2337 @0xf
0x2328…233a at0010 = ╱4e╱N╱ // 0x2338 @0x10
0x2328…233a at0011 = EOL // 0x2339 @0x11
0x2328…233a }
0x233a…234a b938 3560 EDIT "" : P_BKTO$
0x233a…234a LineComal80 {
0x233a…234a ptr = 0xb938 // 0x233a @0x0
0x233a…234a lno = 0x0de8 // 0x233c @0x2
0x233a…234a at0004 = ╱b1╱ EDIT ╱ // 0x233e @0x4
0x233a…234a at0005 = ╱22╱"╱ // 0x233f @0x5
0x233a…234a at0006 = ╱22╱"╱ // 0x2340 @0x6
0x233a…234a at0007 = ╱f1╱ : ╱ // 0x2341 @0x7
0x233a…234a at0008 = ╱50╱P╱ // 0x2342 @0x8
0x233a…234a at0009 = ╱5f╱_╱ // 0x2343 @0x9
0x233a…234a at000a = ╱42╱B╱ // 0x2344 @0xa
0x233a…234a at000b = ╱4b╱K╱ // 0x2345 @0xb
0x233a…234a at000c = ╱54╱T╱ // 0x2346 @0xc
0x233a…234a at000d = ╱4f╱O╱ // 0x2347 @0xd
0x233a…234a at000e = ╱ef╱$╱ // 0x2348 @0xe
0x233a…234a at000f = EOL // 0x2349 @0xf
0x233a…234a }
0x234a…235c b94a 3570 EXEC SL_FEJLLINIE
0x234a…235c LineComal80 {
0x234a…235c ptr = 0xb94a // 0x234a @0x0
0x234a…235c lno = 0x0df2 // 0x234c @0x2
0x234a…235c at0004 = ╱9d╱ EXEC ╱ // 0x234e @0x4
0x234a…235c at0005 = ╱53╱S╱ // 0x234f @0x5
0x234a…235c at0006 = ╱4c╱L╱ // 0x2350 @0x6
0x234a…235c at0007 = ╱5f╱_╱ // 0x2351 @0x7
0x234a…235c at0008 = ╱46╱F╱ // 0x2352 @0x8
0x234a…235c at0009 = ╱45╱E╱ // 0x2353 @0x9
0x234a…235c at000a = ╱4a╱J╱ // 0x2354 @0xa
0x234a…235c at000b = ╱4c╱L╱ // 0x2355 @0xb
0x234a…235c at000c = ╱4c╱L╱ // 0x2356 @0xc
0x234a…235c at000d = ╱49╱I╱ // 0x2357 @0xd
0x234a…235c at000e = ╱4e╱N╱ // 0x2358 @0xe
0x234a…235c at000f = ╱49╱I╱ // 0x2359 @0xf
0x234a…235c at0010 = ╱45╱E╱ // 0x235a @0x10
0x234a…235c at0011 = EOL // 0x235b @0x11
0x234a…235c }
0x235c…237a b968 3580 LET IDXPOS := FIND_KTO(P_BKTO$)
0x235c…237a LineComal80 {
0x235c…237a ptr = 0xb968 // 0x235c @0x0
0x235c…237a lno = 0x0dfc // 0x235e @0x2
0x235c…237a at0004 = ╱86╱ LET ╱ // 0x2360 @0x4
0x235c…237a at0005 = ╱49╱I╱ // 0x2361 @0x5
0x235c…237a at0006 = ╱44╱D╱ // 0x2362 @0x6
0x235c…237a at0007 = ╱58╱X╱ // 0x2363 @0x7
0x235c…237a at0008 = ╱50╱P╱ // 0x2364 @0x8
0x235c…237a at0009 = ╱4f╱O╱ // 0x2365 @0x9
0x235c…237a at000a = ╱53╱S╱ // 0x2366 @0xa
0x235c…237a at000b = ╱f0╱ := ╱ // 0x2367 @0xb
0x235c…237a at000c = ╱46╱F╱ // 0x2368 @0xc
0x235c…237a at000d = ╱49╱I╱ // 0x2369 @0xd
0x235c…237a at000e = ╱4e╱N╱ // 0x236a @0xe
0x235c…237a at000f = ╱44╱D╱ // 0x236b @0xf
0x235c…237a at0010 = ╱5f╱_╱ // 0x236c @0x10
0x235c…237a at0011 = ╱4b╱K╱ // 0x236d @0x11
0x235c…237a at0012 = ╱54╱T╱ // 0x236e @0x12
0x235c…237a at0013 = ╱4f╱O╱ // 0x236f @0x13
0x235c…237a at0014 = ╱ed╱(╱ // 0x2370 @0x14
0x235c…237a at0015 = ╱50╱P╱ // 0x2371 @0x15
0x235c…237a at0016 = ╱5f╱_╱ // 0x2372 @0x16
0x235c…237a at0017 = ╱42╱B╱ // 0x2373 @0x17
0x235c…237a at0018 = ╱4b╱K╱ // 0x2374 @0x18
0x235c…237a at0019 = ╱54╱T╱ // 0x2375 @0x19
0x235c…237a at001a = ╱4f╱O╱ // 0x2376 @0x1a
0x235c…237a at001b = ╱ef╱$╱ // 0x2377 @0x1b
0x235c…237a at001c = ╱ee╱)╱ // 0x2378 @0x1c
0x235c…237a at001d = EOL // 0x2379 @0x1d
0x235c…237a }
0x237a…2384 b972 3590 IF K THEN
0x237a…2384 LineComal80 {
0x237a…2384 ptr = 0xb972 // 0x237a @0x0
0x237a…2384 lno = 0x0e06 // 0x237c @0x2
0x237a…2384 at0004 = ╱9b424f╱ IF ╱ // 0x237e @0x4
0x237a…2384 at0007 = ╱4b╱K╱ // 0x2381 @0x7
0x237a…2384 at0008 = ╱b5╱ THEN ╱ // 0x2382 @0x8
0x237a…2384 at0009 = EOL // 0x2383 @0x9
0x237a…2384 }
0x2384…239a b988 3600 EXEC LÆS_KONTO(RECNR)
0x2384…239a LineComal80 {
0x2384…239a ptr = 0xb988 // 0x2384 @0x0
0x2384…239a lno = 0x0e10 // 0x2386 @0x2
0x2384…239a at0004 = ╱9d╱ EXEC ╱ // 0x2388 @0x4
0x2384…239a at0005 = ╱4c╱L╱ // 0x2389 @0x5
0x2384…239a at0006 = ╱5b╱Æ╱ // 0x238a @0x6
0x2384…239a at0007 = ╱53╱S╱ // 0x238b @0x7
0x2384…239a at0008 = ╱5f╱_╱ // 0x238c @0x8
0x2384…239a at0009 = ╱4b╱K╱ // 0x238d @0x9
0x2384…239a at000a = ╱4f╱O╱ // 0x238e @0xa
0x2384…239a at000b = ╱4e╱N╱ // 0x238f @0xb
0x2384…239a at000c = ╱54╱T╱ // 0x2390 @0xc
0x2384…239a at000d = ╱4f╱O╱ // 0x2391 @0xd
0x2384…239a at000e = ╱ed╱(╱ // 0x2392 @0xe
0x2384…239a at000f = ╱52╱R╱ // 0x2393 @0xf
0x2384…239a at0010 = ╱45╱E╱ // 0x2394 @0x10
0x2384…239a at0011 = ╱43╱C╱ // 0x2395 @0x11
0x2384…239a at0012 = ╱4e╱N╱ // 0x2396 @0x12
0x2384…239a at0013 = ╱52╱R╱ // 0x2397 @0x13
0x2384…239a at0014 = ╱ee╱)╱ // 0x2398 @0x14
0x2384…239a at0015 = EOL // 0x2399 @0x15
0x2384…239a }
0x239a…23af b99d 3610 IF TO_TYPE$ >< "A" THEN
0x239a…23af LineComal80 {
0x239a…23af ptr = 0xb99d // 0x239a @0x0
0x239a…23af lno = 0x0e1a // 0x239c @0x2
0x239a…23af at0004 = ╱9b434b╱ IF ╱ // 0x239e @0x4
0x239a…23af at0007 = ╱54╱T╱ // 0x23a1 @0x7
0x239a…23af at0008 = ╱4f╱O╱ // 0x23a2 @0x8
0x239a…23af at0009 = ╱5f╱_╱ // 0x23a3 @0x9
0x239a…23af at000a = ╱54╱T╱ // 0x23a4 @0xa
0x239a…23af at000b = ╱59╱Y╱ // 0x23a5 @0xb
0x239a…23af at000c = ╱50╱P╱ // 0x23a6 @0xc
0x239a…23af at000d = ╱45╱E╱ // 0x23a7 @0xd
0x239a…23af at000e = ╱ef╱$╱ // 0x23a8 @0xe
0x239a…23af at000f = ╱e4╱ >< ╱ // 0x23a9 @0xf
0x239a…23af at0010 = ╱22╱"╱ // 0x23aa @0x10
0x239a…23af at0011 = ╱41╱A╱ // 0x23ab @0x11
0x239a…23af at0012 = ╱22╱"╱ // 0x23ac @0x12
0x239a…23af at0013 = ╱b5╱ THEN ╱ // 0x23ad @0x13
0x239a…23af at0014 = EOL // 0x23ae @0x14
0x239a…23af }
0x23af…23e0 b9ce 3620 EXEC FEJL("Ulovlig kontonr - kontotype < > 'A'")
0x23af…23e0 LineComal80 {
0x23af…23e0 ptr = 0xb9ce // 0x23af @0x0
0x23af…23e0 lno = 0x0e24 // 0x23b1 @0x2
0x23af…23e0 at0004 = ╱9d╱ EXEC ╱ // 0x23b3 @0x4
0x23af…23e0 at0005 = ╱46╱F╱ // 0x23b4 @0x5
0x23af…23e0 at0006 = ╱45╱E╱ // 0x23b5 @0x6
0x23af…23e0 at0007 = ╱4a╱J╱ // 0x23b6 @0x7
0x23af…23e0 at0008 = ╱4c╱L╱ // 0x23b7 @0x8
0x23af…23e0 at0009 = ╱ed╱(╱ // 0x23b8 @0x9
0x23af…23e0 at000a = ╱22╱"╱ // 0x23b9 @0xa
0x23af…23e0 at000b = ╱55╱U╱ // 0x23ba @0xb
0x23af…23e0 at000c = ╱6c╱l╱ // 0x23bb @0xc
0x23af…23e0 at000d = ╱6f╱o╱ // 0x23bc @0xd
0x23af…23e0 at000e = ╱76╱v╱ // 0x23bd @0xe
0x23af…23e0 at000f = ╱6c╱l╱ // 0x23be @0xf
0x23af…23e0 at0010 = ╱69╱i╱ // 0x23bf @0x10
0x23af…23e0 at0011 = ╱67╱g╱ // 0x23c0 @0x11
0x23af…23e0 at0012 = ╱20╱…╱ // 0x23c1 @0x12
0x23af…23e0 at0013 = ╱6b╱k╱ // 0x23c2 @0x13
0x23af…23e0 at0014 = ╱6f╱o╱ // 0x23c3 @0x14
0x23af…23e0 at0015 = ╱6e╱n╱ // 0x23c4 @0x15
0x23af…23e0 at0016 = ╱74╱t╱ // 0x23c5 @0x16
0x23af…23e0 at0017 = ╱6f╱o╱ // 0x23c6 @0x17
0x23af…23e0 at0018 = ╱6e╱n╱ // 0x23c7 @0x18
0x23af…23e0 at0019 = ╱72╱r╱ // 0x23c8 @0x19
0x23af…23e0 at001a = ╱20╱…╱ // 0x23c9 @0x1a
0x23af…23e0 at001b = ╱2d╱-╱ // 0x23ca @0x1b
0x23af…23e0 at001c = ╱20╱…╱ // 0x23cb @0x1c
0x23af…23e0 at001d = ╱6b╱k╱ // 0x23cc @0x1d
0x23af…23e0 at001e = ╱6f╱o╱ // 0x23cd @0x1e
0x23af…23e0 at001f = ╱6e╱n╱ // 0x23ce @0x1f
0x23af…23e0 at0020 = ╱74╱t╱ // 0x23cf @0x20
0x23af…23e0 at0021 = ╱6f╱o╱ // 0x23d0 @0x21
0x23af…23e0 at0022 = ╱74╱t╱ // 0x23d1 @0x22
0x23af…23e0 at0023 = ╱79╱y╱ // 0x23d2 @0x23
0x23af…23e0 at0024 = ╱70╱p╱ // 0x23d3 @0x24
0x23af…23e0 at0025 = ╱65╱e╱ // 0x23d4 @0x25
0x23af…23e0 at0026 = ╱20╱…╱ // 0x23d5 @0x26
0x23af…23e0 at0027 = ╱3c╱<╱ // 0x23d6 @0x27
0x23af…23e0 at0028 = ╱20╱…╱ // 0x23d7 @0x28
0x23af…23e0 at0029 = ╱3e╱>╱ // 0x23d8 @0x29
0x23af…23e0 at002a = ╱20╱…╱ // 0x23d9 @0x2a
0x23af…23e0 at002b = ╱27╱'╱ // 0x23da @0x2b
0x23af…23e0 at002c = ╱41╱A╱ // 0x23db @0x2c
0x23af…23e0 at002d = ╱27╱'╱ // 0x23dc @0x2d
0x23af…23e0 at002e = ╱22╱"╱ // 0x23dd @0x2e
0x23af…23e0 at002f = ╱ee╱)╱ // 0x23de @0x2f
0x23af…23e0 at0030 = EOL // 0x23df @0x30
0x23af…23e0 }
0x23e0…23e7 ba51 3630 ELSE
0x23e0…23e7 LineComal80 {
0x23e0…23e7 ptr = 0xba51 // 0x23e0 @0x0
0x23e0…23e7 lno = 0x0e2e // 0x23e2 @0x2
0x23e0…23e7 at0004 = ╱9a44╱ ELSE ╱ // 0x23e4 @0x4
0x23e0…23e7 at0006 = EOL // 0x23e6 @0x6
0x23e0…23e7 }
0x23e7…2425 ba13 3720 IF _BKTO$ + "/" IN KASSE_KTO$ + "/" + BANK_KTO$ + "/" + GIRO_KTO$ + "/" THEN
0x23e7…2425 LineComal80 {
0x23e7…2425 ptr = 0xba13 // 0x23e7 @0x0
0x23e7…2425 lno = 0x0e88 // 0x23e9 @0x2
0x23e7…2425 at0004 = ╱9b0050╱ IF ╱ // 0x23eb @0x4
0x23e7…2425 at0007 = ╱5f╱_╱ // 0x23ee @0x7
0x23e7…2425 at0008 = ╱42╱B╱ // 0x23ef @0x8
0x23e7…2425 at0009 = ╱4b╱K╱ // 0x23f0 @0x9
0x23e7…2425 at000a = ╱54╱T╱ // 0x23f1 @0xa
0x23e7…2425 at000b = ╱4f╱O╱ // 0x23f2 @0xb
0x23e7…2425 at000c = ╱ef╱$╱ // 0x23f3 @0xc
0x23e7…2425 at000d = ╱eb╱ + ╱ // 0x23f4 @0xd
0x23e7…2425 at000e = ╱22╱"╱ // 0x23f5 @0xe
0x23e7…2425 at000f = ╱2f╱/╱ // 0x23f6 @0xf
0x23e7…2425 at0010 = ╱22╱"╱ // 0x23f7 @0x10
0x23e7…2425 at0011 = ╱dc╱ IN ╱ // 0x23f8 @0x11
0x23e7…2425 at0012 = ╱4b╱K╱ // 0x23f9 @0x12
0x23e7…2425 at0013 = ╱41╱A╱ // 0x23fa @0x13
0x23e7…2425 at0014 = ╱53╱S╱ // 0x23fb @0x14
0x23e7…2425 at0015 = ╱53╱S╱ // 0x23fc @0x15
0x23e7…2425 at0016 = ╱45╱E╱ // 0x23fd @0x16
0x23e7…2425 at0017 = ╱5f╱_╱ // 0x23fe @0x17
0x23e7…2425 at0018 = ╱4b╱K╱ // 0x23ff @0x18
0x23e7…2425 at0019 = ╱54╱T╱ // 0x2400 @0x19
0x23e7…2425 at001a = ╱4f╱O╱ // 0x2401 @0x1a
0x23e7…2425 at001b = ╱ef╱$╱ // 0x2402 @0x1b
0x23e7…2425 at001c = ╱eb╱ + ╱ // 0x2403 @0x1c
0x23e7…2425 at001d = ╱22╱"╱ // 0x2404 @0x1d
0x23e7…2425 at001e = ╱2f╱/╱ // 0x2405 @0x1e
0x23e7…2425 at001f = ╱22╱"╱ // 0x2406 @0x1f
0x23e7…2425 at0020 = ╱eb╱ + ╱ // 0x2407 @0x20
0x23e7…2425 at0021 = ╱42╱B╱ // 0x2408 @0x21
0x23e7…2425 at0022 = ╱41╱A╱ // 0x2409 @0x22
0x23e7…2425 at0023 = ╱4e╱N╱ // 0x240a @0x23
0x23e7…2425 at0024 = ╱4b╱K╱ // 0x240b @0x24
0x23e7…2425 at0025 = ╱5f╱_╱ // 0x240c @0x25
0x23e7…2425 at0026 = ╱4b╱K╱ // 0x240d @0x26
0x23e7…2425 at0027 = ╱54╱T╱ // 0x240e @0x27
0x23e7…2425 at0028 = ╱4f╱O╱ // 0x240f @0x28
0x23e7…2425 at0029 = ╱ef╱$╱ // 0x2410 @0x29
0x23e7…2425 at002a = ╱eb╱ + ╱ // 0x2411 @0x2a
0x23e7…2425 at002b = ╱22╱"╱ // 0x2412 @0x2b
0x23e7…2425 at002c = ╱2f╱/╱ // 0x2413 @0x2c
0x23e7…2425 at002d = ╱22╱"╱ // 0x2414 @0x2d
0x23e7…2425 at002e = ╱eb╱ + ╱ // 0x2415 @0x2e
0x23e7…2425 at002f = ╱47╱G╱ // 0x2416 @0x2f
0x23e7…2425 at0030 = ╱49╱I╱ // 0x2417 @0x30
0x23e7…2425 at0031 = ╱52╱R╱ // 0x2418 @0x31
0x23e7…2425 at0032 = ╱4f╱O╱ // 0x2419 @0x32
0x23e7…2425 at0033 = ╱5f╱_╱ // 0x241a @0x33
0x23e7…2425 at0034 = ╱4b╱K╱ // 0x241b @0x34
0x23e7…2425 at0035 = ╱54╱T╱ // 0x241c @0x35
0x23e7…2425 at0036 = ╱4f╱O╱ // 0x241d @0x36
0x23e7…2425 at0037 = ╱ef╱$╱ // 0x241e @0x37
0x23e7…2425 at0038 = ╱eb╱ + ╱ // 0x241f @0x38
0x23e7…2425 at0039 = ╱22╱"╱ // 0x2420 @0x39
0x23e7…2425 at003a = ╱2f╱/╱ // 0x2421 @0x3a
0x23e7…2425 at003b = ╱22╱"╱ // 0x2422 @0x3b
0x23e7…2425 at003c = ╱b5╱ THEN ╱ // 0x2423 @0x3c
0x23e7…2425 at003d = EOL // 0x2424 @0x3d
0x23e7…2425 }
0x2425…245c ba4a 3730 EXEC FEJL("Ulovlig kontonr - konto = kasse/bank/giro")
0x2425…245c LineComal80 {
0x2425…245c ptr = 0xba4a // 0x2425 @0x0
0x2425…245c lno = 0x0e92 // 0x2427 @0x2
0x2425…245c at0004 = ╱9d╱ EXEC ╱ // 0x2429 @0x4
0x2425…245c at0005 = ╱46╱F╱ // 0x242a @0x5
0x2425…245c at0006 = ╱45╱E╱ // 0x242b @0x6
0x2425…245c at0007 = ╱4a╱J╱ // 0x242c @0x7
0x2425…245c at0008 = ╱4c╱L╱ // 0x242d @0x8
0x2425…245c at0009 = ╱ed╱(╱ // 0x242e @0x9
0x2425…245c at000a = ╱22╱"╱ // 0x242f @0xa
0x2425…245c at000b = ╱55╱U╱ // 0x2430 @0xb
0x2425…245c at000c = ╱6c╱l╱ // 0x2431 @0xc
0x2425…245c at000d = ╱6f╱o╱ // 0x2432 @0xd
0x2425…245c at000e = ╱76╱v╱ // 0x2433 @0xe
0x2425…245c at000f = ╱6c╱l╱ // 0x2434 @0xf
0x2425…245c at0010 = ╱69╱i╱ // 0x2435 @0x10
0x2425…245c at0011 = ╱67╱g╱ // 0x2436 @0x11
0x2425…245c at0012 = ╱20╱…╱ // 0x2437 @0x12
0x2425…245c at0013 = ╱6b╱k╱ // 0x2438 @0x13
0x2425…245c at0014 = ╱6f╱o╱ // 0x2439 @0x14
0x2425…245c at0015 = ╱6e╱n╱ // 0x243a @0x15
0x2425…245c at0016 = ╱74╱t╱ // 0x243b @0x16
0x2425…245c at0017 = ╱6f╱o╱ // 0x243c @0x17
0x2425…245c at0018 = ╱6e╱n╱ // 0x243d @0x18
0x2425…245c at0019 = ╱72╱r╱ // 0x243e @0x19
0x2425…245c at001a = ╱20╱…╱ // 0x243f @0x1a
0x2425…245c at001b = ╱2d╱-╱ // 0x2440 @0x1b
0x2425…245c at001c = ╱20╱…╱ // 0x2441 @0x1c
0x2425…245c at001d = ╱6b╱k╱ // 0x2442 @0x1d
0x2425…245c at001e = ╱6f╱o╱ // 0x2443 @0x1e
0x2425…245c at001f = ╱6e╱n╱ // 0x2444 @0x1f
0x2425…245c at0020 = ╱74╱t╱ // 0x2445 @0x20
0x2425…245c at0021 = ╱6f╱o╱ // 0x2446 @0x21
0x2425…245c at0022 = ╱20╱…╱ // 0x2447 @0x22
0x2425…245c at0023 = ╱3d╱=╱ // 0x2448 @0x23
0x2425…245c at0024 = ╱20╱…╱ // 0x2449 @0x24
0x2425…245c at0025 = ╱6b╱k╱ // 0x244a @0x25
0x2425…245c at0026 = ╱61╱a╱ // 0x244b @0x26
0x2425…245c at0027 = ╱73╱s╱ // 0x244c @0x27
0x2425…245c at0028 = ╱73╱s╱ // 0x244d @0x28
0x2425…245c at0029 = ╱65╱e╱ // 0x244e @0x29
0x2425…245c at002a = ╱2f╱/╱ // 0x244f @0x2a
0x2425…245c at002b = ╱62╱b╱ // 0x2450 @0x2b
0x2425…245c at002c = ╱61╱a╱ // 0x2451 @0x2c
0x2425…245c at002d = ╱6e╱n╱ // 0x2452 @0x2d
0x2425…245c at002e = ╱6b╱k╱ // 0x2453 @0x2e
0x2425…245c at002f = ╱2f╱/╱ // 0x2454 @0x2f
0x2425…245c at0030 = ╱67╱g╱ // 0x2455 @0x30
0x2425…245c at0031 = ╱69╱i╱ // 0x2456 @0x31
0x2425…245c at0032 = ╱72╱r╱ // 0x2457 @0x32
0x2425…245c at0033 = ╱6f╱o╱ // 0x2458 @0x33
0x2425…245c at0034 = ╱22╱"╱ // 0x2459 @0x34
0x2425…245c at0035 = ╱ee╱)╱ // 0x245a @0x35
0x2425…245c at0036 = EOL // 0x245b @0x36
0x2425…245c }
0x245c…2463 ba51 3740 ELSE
0x245c…2463 LineComal80 {
0x245c…2463 ptr = 0xba51 // 0x245c @0x0
0x245c…2463 lno = 0x0e9c // 0x245e @0x2
0x245c…2463 at0004 = ╱9a00╱ ELSE ╱ // 0x2460 @0x4
0x245c…2463 at0006 = EOL // 0x2462 @0x6
0x245c…2463 }
0x2463…24a1 ba95 3640 PRINT "<C0102>" ; TAB(35 - ╱cb╱ (KTO_NAVN$) / 2) ; "Konto: " ; KTO_NAVN$
0x2463…24a1 LineComal80 {
0x2463…24a1 ptr = 0xba95 // 0x2463 @0x0
0x2463…24a1 lno = 0x0e38 // 0x2465 @0x2
0x2463…24a1 at0004 = ╱92╱ PRINT ╱ // 0x2467 @0x4
0x2463…24a1 at0005 = ╱22╱"╱ // 0x2468 @0x5
0x2463…24a1 at0006 = ╱3c╱<╱ // 0x2469 @0x6
0x2463…24a1 at0007 = ╱43╱C╱ // 0x246a @0x7
0x2463…24a1 at0008 = ╱30╱0╱ // 0x246b @0x8
0x2463…24a1 at0009 = ╱31╱1╱ // 0x246c @0x9
0x2463…24a1 at000a = ╱30╱0╱ // 0x246d @0xa
0x2463…24a1 at000b = ╱32╱2╱ // 0x246e @0xb
0x2463…24a1 at000c = ╱3e╱>╱ // 0x246f @0xc
0x2463…24a1 at000d = ╱22╱"╱ // 0x2470 @0xd
0x2463…24a1 at000e = ╱ea╱ ; ╱ // 0x2471 @0xe
0x2463…24a1 at000f = ╱d2╱TAB╱ // 0x2472 @0xf
0x2463…24a1 at0010 = ╱ed╱(╱ // 0x2473 @0x10
0x2463…24a1 at0011 = ╱33╱3╱ // 0x2474 @0x11
0x2463…24a1 at0012 = ╱35╱5╱ // 0x2475 @0x12
0x2463…24a1 at0013 = ╱f22300╱ // 0x2476 @0x13
0x2463…24a1 at0016 = ╱e6╱ - ╱ // 0x2479 @0x16
0x2463…24a1 at0017 = ╱cb╱ // 0x247a @0x17
0x2463…24a1 at0018 = ╱ed╱(╱ // 0x247b @0x18
0x2463…24a1 at0019 = ╱4b╱K╱ // 0x247c @0x19
0x2463…24a1 at001a = ╱54╱T╱ // 0x247d @0x1a
0x2463…24a1 at001b = ╱4f╱O╱ // 0x247e @0x1b
0x2463…24a1 at001c = ╱5f╱_╱ // 0x247f @0x1c
0x2463…24a1 at001d = ╱4e╱N╱ // 0x2480 @0x1d
0x2463…24a1 at001e = ╱41╱A╱ // 0x2481 @0x1e
0x2463…24a1 at001f = ╱56╱V╱ // 0x2482 @0x1f
0x2463…24a1 at0020 = ╱4e╱N╱ // 0x2483 @0x20
0x2463…24a1 at0021 = ╱ef╱$╱ // 0x2484 @0x21
0x2463…24a1 at0022 = ╱ee╱)╱ // 0x2485 @0x22
0x2463…24a1 at0023 = ╱e8╱ / ╱ // 0x2486 @0x23
0x2463…24a1 at0024 = ╱32╱2╱ // 0x2487 @0x24
0x2463…24a1 at0025 = ╱f20200╱ // 0x2488 @0x25
0x2463…24a1 at0028 = ╱ee╱)╱ // 0x248b @0x28
0x2463…24a1 at0029 = ╱ea╱ ; ╱ // 0x248c @0x29
0x2463…24a1 at002a = ╱22╱"╱ // 0x248d @0x2a
0x2463…24a1 at002b = ╱4b╱K╱ // 0x248e @0x2b
0x2463…24a1 at002c = ╱6f╱o╱ // 0x248f @0x2c
0x2463…24a1 at002d = ╱6e╱n╱ // 0x2490 @0x2d
0x2463…24a1 at002e = ╱74╱t╱ // 0x2491 @0x2e
0x2463…24a1 at002f = ╱6f╱o╱ // 0x2492 @0x2f
0x2463…24a1 at0030 = ╱3a╱:╱ // 0x2493 @0x30
0x2463…24a1 at0031 = ╱20╱…╱ // 0x2494 @0x31
0x2463…24a1 at0032 = ╱22╱"╱ // 0x2495 @0x32
0x2463…24a1 at0033 = ╱ea╱ ; ╱ // 0x2496 @0x33
0x2463…24a1 at0034 = ╱4b╱K╱ // 0x2497 @0x34
0x2463…24a1 at0035 = ╱54╱T╱ // 0x2498 @0x35
0x2463…24a1 at0036 = ╱4f╱O╱ // 0x2499 @0x36
0x2463…24a1 at0037 = ╱5f╱_╱ // 0x249a @0x37
0x2463…24a1 at0038 = ╱4e╱N╱ // 0x249b @0x38
0x2463…24a1 at0039 = ╱41╱A╱ // 0x249c @0x39
0x2463…24a1 at003a = ╱56╱V╱ // 0x249d @0x3a
0x2463…24a1 at003b = ╱4e╱N╱ // 0x249e @0x3b
0x2463…24a1 at003c = ╱ef╱$╱ // 0x249f @0x3c
0x2463…24a1 at003d = EOL // 0x24a0 @0x3d
0x2463…24a1 }
0x24a1…24a7 ba95 3760 ENDIF
0x24a1…24a7 LineComal80 {
0x24a1…24a7 ptr = 0xba95 // 0x24a1 @0x0
0x24a1…24a7 lno = 0x0eb0 // 0x24a3 @0x2
0x24a1…24a7 at0004 = ╱9c╱ ENDIF ╱ // 0x24a5 @0x4
0x24a1…24a7 at0005 = EOL // 0x24a6 @0x5
0x24a1…24a7 }
0x24a7…24ad ba9b 3650 ENDIF
0x24a7…24ad LineComal80 {
0x24a7…24ad ptr = 0xba9b // 0x24a7 @0x0
0x24a7…24ad lno = 0x0e42 // 0x24a9 @0x2
0x24a7…24ad at0004 = ╱9c╱ ENDIF ╱ // 0x24ab @0x4
0x24a7…24ad at0005 = EOL // 0x24ac @0x5
0x24a7…24ad }
0x24ad…24b4 baa2 3660 ELSE
0x24ad…24b4 LineComal80 {
0x24ad…24b4 ptr = 0xbaa2 // 0x24ad @0x0
0x24ad…24b4 lno = 0x0e4c // 0x24af @0x2
0x24ad…24b4 at0004 = ╱9a45╱ ELSE ╱ // 0x24b1 @0x4
0x24ad…24b4 at0006 = EOL // 0x24b3 @0x6
0x24ad…24b4 }
0x24b4…24e5 bad3 3670 EXEC FEJL("Ulovlig kontonr - konto findes ikke")
0x24b4…24e5 LineComal80 {
0x24b4…24e5 ptr = 0xbad3 // 0x24b4 @0x0
0x24b4…24e5 lno = 0x0e56 // 0x24b6 @0x2
0x24b4…24e5 at0004 = ╱9d╱ EXEC ╱ // 0x24b8 @0x4
0x24b4…24e5 at0005 = ╱46╱F╱ // 0x24b9 @0x5
0x24b4…24e5 at0006 = ╱45╱E╱ // 0x24ba @0x6
0x24b4…24e5 at0007 = ╱4a╱J╱ // 0x24bb @0x7
0x24b4…24e5 at0008 = ╱4c╱L╱ // 0x24bc @0x8
0x24b4…24e5 at0009 = ╱ed╱(╱ // 0x24bd @0x9
0x24b4…24e5 at000a = ╱22╱"╱ // 0x24be @0xa
0x24b4…24e5 at000b = ╱55╱U╱ // 0x24bf @0xb
0x24b4…24e5 at000c = ╱6c╱l╱ // 0x24c0 @0xc
0x24b4…24e5 at000d = ╱6f╱o╱ // 0x24c1 @0xd
0x24b4…24e5 at000e = ╱76╱v╱ // 0x24c2 @0xe
0x24b4…24e5 at000f = ╱6c╱l╱ // 0x24c3 @0xf
0x24b4…24e5 at0010 = ╱69╱i╱ // 0x24c4 @0x10
0x24b4…24e5 at0011 = ╱67╱g╱ // 0x24c5 @0x11
0x24b4…24e5 at0012 = ╱20╱…╱ // 0x24c6 @0x12
0x24b4…24e5 at0013 = ╱6b╱k╱ // 0x24c7 @0x13
0x24b4…24e5 at0014 = ╱6f╱o╱ // 0x24c8 @0x14
0x24b4…24e5 at0015 = ╱6e╱n╱ // 0x24c9 @0x15
0x24b4…24e5 at0016 = ╱74╱t╱ // 0x24ca @0x16
0x24b4…24e5 at0017 = ╱6f╱o╱ // 0x24cb @0x17
0x24b4…24e5 at0018 = ╱6e╱n╱ // 0x24cc @0x18
0x24b4…24e5 at0019 = ╱72╱r╱ // 0x24cd @0x19
0x24b4…24e5 at001a = ╱20╱…╱ // 0x24ce @0x1a
0x24b4…24e5 at001b = ╱2d╱-╱ // 0x24cf @0x1b
0x24b4…24e5 at001c = ╱20╱…╱ // 0x24d0 @0x1c
0x24b4…24e5 at001d = ╱6b╱k╱ // 0x24d1 @0x1d
0x24b4…24e5 at001e = ╱6f╱o╱ // 0x24d2 @0x1e
0x24b4…24e5 at001f = ╱6e╱n╱ // 0x24d3 @0x1f
0x24b4…24e5 at0020 = ╱74╱t╱ // 0x24d4 @0x20
0x24b4…24e5 at0021 = ╱6f╱o╱ // 0x24d5 @0x21
0x24b4…24e5 at0022 = ╱20╱…╱ // 0x24d6 @0x22
0x24b4…24e5 at0023 = ╱66╱f╱ // 0x24d7 @0x23
0x24b4…24e5 at0024 = ╱69╱i╱ // 0x24d8 @0x24
0x24b4…24e5 at0025 = ╱6e╱n╱ // 0x24d9 @0x25
0x24b4…24e5 at0026 = ╱64╱d╱ // 0x24da @0x26
0x24b4…24e5 at0027 = ╱65╱e╱ // 0x24db @0x27
0x24b4…24e5 at0028 = ╱73╱s╱ // 0x24dc @0x28
0x24b4…24e5 at0029 = ╱20╱…╱ // 0x24dd @0x29
0x24b4…24e5 at002a = ╱69╱i╱ // 0x24de @0x2a
0x24b4…24e5 at002b = ╱6b╱k╱ // 0x24df @0x2b
0x24b4…24e5 at002c = ╱6b╱k╱ // 0x24e0 @0x2c
0x24b4…24e5 at002d = ╱65╱e╱ // 0x24e1 @0x2d
0x24b4…24e5 at002e = ╱22╱"╱ // 0x24e2 @0x2e
0x24b4…24e5 at002f = ╱ee╱)╱ // 0x24e3 @0x2f
0x24b4…24e5 at0030 = EOL // 0x24e4 @0x30
0x24b4…24e5 }
0x24e5…24eb bad9 3680 ENDIF
0x24e5…24eb LineComal80 {
0x24e5…24eb ptr = 0xbad9 // 0x24e5 @0x0
0x24e5…24eb lno = 0x0e60 // 0x24e7 @0x2
0x24e5…24eb at0004 = ╱9c╱ ENDIF ╱ // 0x24e9 @0x4
0x24e5…24eb at0005 = EOL // 0x24ea @0x5
0x24e5…24eb }
0x24eb…24f3 bae1 3690 UNTIL OK
0x24eb…24f3 LineComal80 {
0x24eb…24f3 ptr = 0xbae1 // 0x24eb @0x0
0x24eb…24f3 lno = 0x0e6a // 0x24ed @0x2
0x24eb…24f3 at0004 = ╱98╱ UNTIL ╱ // 0x24ef @0x4
0x24eb…24f3 at0005 = ╱4f╱O╱ // 0x24f0 @0x5
0x24eb…24f3 at0006 = ╱4b╱K╱ // 0x24f1 @0x6
0x24eb…24f3 at0007 = EOL // 0x24f2 @0x7
0x24eb…24f3 }
0x24f3…24fa bae8 3700 REPEAT
0x24f3…24fa LineComal80 {
0x24f3…24fa ptr = 0xbae8 // 0x24f3 @0x0
0x24f3…24fa lno = 0x0e74 // 0x24f5 @0x2
0x24f3…24fa at0004 = ╱9746╱ REPEAT ╱ // 0x24f7 @0x4
0x24f3…24fa at0006 = EOL // 0x24f9 @0x6
0x24f3…24fa }
0x24fa…2518 d796 3710 LET SVAR$ := CHR$ (P_BKR,7,2)
0x24fa…2518 LineComal80 {
0x24fa…2518 ptr = 0xd796 // 0x24fa @0x0
0x24fa…2518 lno = 0x0e7e // 0x24fc @0x2
0x24fa…2518 at0004 = ╱86╱ LET ╱ // 0x24fe @0x4
0x24fa…2518 at0005 = ╱53╱S╱ // 0x24ff @0x5
0x24fa…2518 at0006 = ╱56╱V╱ // 0x2500 @0x6
0x24fa…2518 at0007 = ╱41╱A╱ // 0x2501 @0x7
0x24fa…2518 at0008 = ╱52╱R╱ // 0x2502 @0x8
0x24fa…2518 at0009 = ╱ef╱$╱ // 0x2503 @0x9
0x24fa…2518 at000a = ╱f0╱ := ╱ // 0x2504 @0xa
0x24fa…2518 at000b = ╱d0╱ CHR$ ╱ // 0x2505 @0xb
0x24fa…2518 at000c = ╱ed╱(╱ // 0x2506 @0xc
0x24fa…2518 at000d = ╱50╱P╱ // 0x2507 @0xd
0x24fa…2518 at000e = ╱5f╱_╱ // 0x2508 @0xe
0x24fa…2518 at000f = ╱42╱B╱ // 0x2509 @0xf
0x24fa…2518 at0010 = ╱4b╱K╱ // 0x250a @0x10
0x24fa…2518 at0011 = ╱52╱R╱ // 0x250b @0x11
0x24fa…2518 at0012 = ╱ec╱,╱ // 0x250c @0x12
0x24fa…2518 at0013 = ╱37╱7╱ // 0x250d @0x13
0x24fa…2518 at0014 = ╱f20700╱ // 0x250e @0x14
0x24fa…2518 at0017 = ╱ec╱,╱ // 0x2511 @0x17
0x24fa…2518 at0018 = ╱32╱2╱ // 0x2512 @0x18
0x24fa…2518 at0019 = ╱f20200╱ // 0x2513 @0x19
0x24fa…2518 at001c = ╱ee╱)╱ // 0x2516 @0x1c
0x24fa…2518 at001d = EOL // 0x2517 @0x1d
0x24fa…2518 }
0x2518…2533 bb21 3720 IF P_BKR = 0 THEN LET SVAR$ := ""
0x2518…2533 LineComal80 {
0x2518…2533 ptr = 0xbb21 // 0x2518 @0x0
0x2518…2533 lno = 0x0e88 // 0x251a @0x2
0x2518…2533 at0004 = ╱8200╱ IF ╱ // 0x251c @0x4
0x2518…2533 at0006 = ╱50╱P╱ // 0x251e @0x6
0x2518…2533 at0007 = ╱5f╱_╱ // 0x251f @0x7
0x2518…2533 at0008 = ╱42╱B╱ // 0x2520 @0x8
0x2518…2533 at0009 = ╱4b╱K╱ // 0x2521 @0x9
0x2518…2533 at000a = ╱52╱R╱ // 0x2522 @0xa
0x2518…2533 at000b = ╱df╱ = ╱ // 0x2523 @0xb
0x2518…2533 at000c = ╱30╱0╱ // 0x2524 @0xc
0x2518…2533 at000d = ╱f20000╱ // 0x2525 @0xd
0x2518…2533 at0010 = ╱b5╱ THEN ╱ // 0x2528 @0x10
0x2518…2533 at0011 = ╱86╱ LET ╱ // 0x2529 @0x11
0x2518…2533 at0012 = ╱53╱S╱ // 0x252a @0x12
0x2518…2533 at0013 = ╱56╱V╱ // 0x252b @0x13
0x2518…2533 at0014 = ╱41╱A╱ // 0x252c @0x14
0x2518…2533 at0015 = ╱52╱R╱ // 0x252d @0x15
0x2518…2533 at0016 = ╱ef╱$╱ // 0x252e @0x16
0x2518…2533 at0017 = ╱f0╱ := ╱ // 0x252f @0x17
0x2518…2533 at0018 = ╱22╱"╱ // 0x2530 @0x18
0x2518…2533 at0019 = ╱22╱"╱ // 0x2531 @0x19
0x2518…2533 at001a = EOL // 0x2532 @0x1a
0x2518…2533 }
0x2533…2546 bb34 3730 IF _DK = KREDIT THEN
0x2533…2546 LineComal80 {
0x2533…2546 ptr = 0xbb34 // 0x2533 @0x0
0x2533…2546 lno = 0x0e92 // 0x2535 @0x2
0x2533…2546 at0004 = ╱9b4750╱ IF ╱ // 0x2537 @0x4
0x2533…2546 at0007 = ╱5f╱_╱ // 0x253a @0x7
0x2533…2546 at0008 = ╱44╱D╱ // 0x253b @0x8
0x2533…2546 at0009 = ╱4b╱K╱ // 0x253c @0x9
0x2533…2546 at000a = ╱df╱ = ╱ // 0x253d @0xa
0x2533…2546 at000b = ╱4b╱K╱ // 0x253e @0xb
0x2533…2546 at000c = ╱52╱R╱ // 0x253f @0xc
0x2533…2546 at000d = ╱45╱E╱ // 0x2540 @0xd
0x2533…2546 at000e = ╱44╱D╱ // 0x2541 @0xe
0x2533…2546 at000f = ╱49╱I╱ // 0x2542 @0xf
0x2533…2546 at0010 = ╱54╱T╱ // 0x2543 @0x10
0x2533…2546 at0011 = ╱b5╱ THEN ╱ // 0x2544 @0x11
0x2533…2546 at0012 = EOL // 0x2545 @0x12
0x2533…2546 }
0x2546…2558 bb46 3740 CURSOR 61,R_SLIN
0x2546…2558 LineComal80 {
0x2546…2558 ptr = 0xbb46 // 0x2546 @0x0
0x2546…2558 lno = 0x0e9c // 0x2548 @0x2
0x2546…2558 at0004 = ╱a1╱ CURSOR ╱ // 0x254a @0x4
0x2546…2558 at0005 = ╱36╱6╱ // 0x254b @0x5
0x2546…2558 at0006 = ╱31╱1╱ // 0x254c @0x6
0x2546…2558 at0007 = ╱f23d00╱ // 0x254d @0x7
0x2546…2558 at000a = ╱ec╱,╱ // 0x2550 @0xa
0x2546…2558 at000b = ╱52╱R╱ // 0x2551 @0xb
0x2546…2558 at000c = ╱5f╱_╱ // 0x2552 @0xc
0x2546…2558 at000d = ╱53╱S╱ // 0x2553 @0xd
0x2546…2558 at000e = ╱4c╱L╱ // 0x2554 @0xe
0x2546…2558 at000f = ╱49╱I╱ // 0x2555 @0xf
0x2546…2558 at0010 = ╱4e╱N╱ // 0x2556 @0x10
0x2546…2558 at0011 = EOL // 0x2557 @0x11
0x2546…2558 }
0x2558…2566 bb54 3750 EDIT "" : SVAR$
0x2558…2566 LineComal80 {
0x2558…2566 ptr = 0xbb54 // 0x2558 @0x0
0x2558…2566 lno = 0x0ea6 // 0x255a @0x2
0x2558…2566 at0004 = ╱b1╱ EDIT ╱ // 0x255c @0x4
0x2558…2566 at0005 = ╱22╱"╱ // 0x255d @0x5
0x2558…2566 at0006 = ╱22╱"╱ // 0x255e @0x6
0x2558…2566 at0007 = ╱f1╱ : ╱ // 0x255f @0x7
0x2558…2566 at0008 = ╱53╱S╱ // 0x2560 @0x8
0x2558…2566 at0009 = ╱56╱V╱ // 0x2561 @0x9
0x2558…2566 at000a = ╱41╱A╱ // 0x2562 @0xa
0x2558…2566 at000b = ╱52╱R╱ // 0x2563 @0xb
0x2558…2566 at000c = ╱ef╱$╱ // 0x2564 @0xc
0x2558…2566 at000d = EOL // 0x2565 @0xd
0x2558…2566 }
0x2566…2578 bb66 3760 EXEC SL_FEJLLINIE
0x2566…2578 LineComal80 {
0x2566…2578 ptr = 0xbb66 // 0x2566 @0x0
0x2566…2578 lno = 0x0eb0 // 0x2568 @0x2
0x2566…2578 at0004 = ╱9d╱ EXEC ╱ // 0x256a @0x4
0x2566…2578 at0005 = ╱53╱S╱ // 0x256b @0x5
0x2566…2578 at0006 = ╱4c╱L╱ // 0x256c @0x6
0x2566…2578 at0007 = ╱5f╱_╱ // 0x256d @0x7
0x2566…2578 at0008 = ╱46╱F╱ // 0x256e @0x8
0x2566…2578 at0009 = ╱45╱E╱ // 0x256f @0x9
0x2566…2578 at000a = ╱4a╱J╱ // 0x2570 @0xa
0x2566…2578 at000b = ╱4c╱L╱ // 0x2571 @0xb
0x2566…2578 at000c = ╱4c╱L╱ // 0x2572 @0xc
0x2566…2578 at000d = ╱49╱I╱ // 0x2573 @0xd
0x2566…2578 at000e = ╱4e╱N╱ // 0x2574 @0xe
0x2566…2578 at000f = ╱49╱I╱ // 0x2575 @0xf
0x2566…2578 at0010 = ╱45╱E╱ // 0x2576 @0x10
0x2566…2578 at0011 = EOL // 0x2577 @0x11
0x2566…2578 }
0x2578…2590 bb7e 3770 EXEC TAL_CONTROL(SVAR$)
0x2578…2590 LineComal80 {
0x2578…2590 ptr = 0xbb7e // 0x2578 @0x0
0x2578…2590 lno = 0x0eba // 0x257a @0x2
0x2578…2590 at0004 = ╱9d╱ EXEC ╱ // 0x257c @0x4
0x2578…2590 at0005 = ╱54╱T╱ // 0x257d @0x5
0x2578…2590 at0006 = ╱41╱A╱ // 0x257e @0x6
0x2578…2590 at0007 = ╱4c╱L╱ // 0x257f @0x7
0x2578…2590 at0008 = ╱5f╱_╱ // 0x2580 @0x8
0x2578…2590 at0009 = ╱43╱C╱ // 0x2581 @0x9
0x2578…2590 at000a = ╱4f╱O╱ // 0x2582 @0xa
0x2578…2590 at000b = ╱4e╱N╱ // 0x2583 @0xb
0x2578…2590 at000c = ╱54╱T╱ // 0x2584 @0xc
0x2578…2590 at000d = ╱52╱R╱ // 0x2585 @0xd
0x2578…2590 at000e = ╱4f╱O╱ // 0x2586 @0xe
0x2578…2590 at000f = ╱4c╱L╱ // 0x2587 @0xf
0x2578…2590 at0010 = ╱ed╱(╱ // 0x2588 @0x10
0x2578…2590 at0011 = ╱53╱S╱ // 0x2589 @0x11
0x2578…2590 at0012 = ╱56╱V╱ // 0x258a @0x12
0x2578…2590 at0013 = ╱41╱A╱ // 0x258b @0x13
0x2578…2590 at0014 = ╱52╱R╱ // 0x258c @0x14
0x2578…2590 at0015 = ╱ef╱$╱ // 0x258d @0x15
0x2578…2590 at0016 = ╱ee╱)╱ // 0x258e @0x16
0x2578…2590 at0017 = EOL // 0x258f @0x17
0x2578…2590 }
0x2590…25b2 bba0 3780 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
0x2590…25b2 LineComal80 {
0x2590…25b2 ptr = 0xbba0 // 0x2590 @0x0
0x2590…25b2 lno = 0x0ec4 // 0x2592 @0x2
0x2590…25b2 at0004 = ╱8200╱ IF ╱ // 0x2594 @0x4
0x2590…25b2 at0006 = ╱d7╱ NOT ╱ // 0x2596 @0x6
0x2590…25b2 at0007 = ╱22╱"╱ // 0x2597 @0x7
0x2590…25b2 at0008 = ╱2e╱.╱ // 0x2598 @0x8
0x2590…25b2 at0009 = ╱22╱"╱ // 0x2599 @0x9
0x2590…25b2 at000a = ╱dc╱ IN ╱ // 0x259a @0xa
0x2590…25b2 at000b = ╱53╱S╱ // 0x259b @0xb
0x2590…25b2 at000c = ╱56╱V╱ // 0x259c @0xc
0x2590…25b2 at000d = ╱41╱A╱ // 0x259d @0xd
0x2590…25b2 at000e = ╱52╱R╱ // 0x259e @0xe
0x2590…25b2 at000f = ╱ef╱$╱ // 0x259f @0xf
0x2590…25b2 at0010 = ╱b5╱ THEN ╱ // 0x25a0 @0x10
0x2590…25b2 at0011 = ╱86╱ LET ╱ // 0x25a1 @0x11
0x2590…25b2 at0012 = ╱53╱S╱ // 0x25a2 @0x12
0x2590…25b2 at0013 = ╱56╱V╱ // 0x25a3 @0x13
0x2590…25b2 at0014 = ╱41╱A╱ // 0x25a4 @0x14
0x2590…25b2 at0015 = ╱52╱R╱ // 0x25a5 @0x15
0x2590…25b2 at0016 = ╱ef╱$╱ // 0x25a6 @0x16
0x2590…25b2 at0017 = ╱f0╱ := ╱ // 0x25a7 @0x17
0x2590…25b2 at0018 = ╱53╱S╱ // 0x25a8 @0x18
0x2590…25b2 at0019 = ╱56╱V╱ // 0x25a9 @0x19
0x2590…25b2 at001a = ╱41╱A╱ // 0x25aa @0x1a
0x2590…25b2 at001b = ╱52╱R╱ // 0x25ab @0x1b
0x2590…25b2 at001c = ╱ef╱$╱ // 0x25ac @0x1c
0x2590…25b2 at001d = ╱eb╱ + ╱ // 0x25ad @0x1d
0x2590…25b2 at001e = ╱22╱"╱ // 0x25ae @0x1e
0x2590…25b2 at001f = ╱2e╱.╱ // 0x25af @0x1f
0x2590…25b2 at0020 = ╱22╱"╱ // 0x25b0 @0x20
0x2590…25b2 at0021 = EOL // 0x25b1 @0x21
0x2590…25b2 }
0x25b2…25e8 bbd6 3790 LET P_BKR := INT(100 * ASC ("0" + SVAR$) + 0.5) / 100
0x25b2…25e8 LineComal80 {
0x25b2…25e8 ptr = 0xbbd6 // 0x25b2 @0x0
0x25b2…25e8 lno = 0x0ece // 0x25b4 @0x2
0x25b2…25e8 at0004 = ╱86╱ LET ╱ // 0x25b6 @0x4
0x25b2…25e8 at0005 = ╱50╱P╱ // 0x25b7 @0x5
0x25b2…25e8 at0006 = ╱5f╱_╱ // 0x25b8 @0x6
0x25b2…25e8 at0007 = ╱42╱B╱ // 0x25b9 @0x7
0x25b2…25e8 at0008 = ╱4b╱K╱ // 0x25ba @0x8
0x25b2…25e8 at0009 = ╱52╱R╱ // 0x25bb @0x9
0x25b2…25e8 at000a = ╱f0╱ := ╱ // 0x25bc @0xa
0x25b2…25e8 at000b = ╱c6╱INT╱ // 0x25bd @0xb
0x25b2…25e8 at000c = ╱ed╱(╱ // 0x25be @0xc
0x25b2…25e8 at000d = ╱31╱1╱ // 0x25bf @0xd
0x25b2…25e8 at000e = ╱30╱0╱ // 0x25c0 @0xe
0x25b2…25e8 at000f = ╱30╱0╱ // 0x25c1 @0xf
0x25b2…25e8 at0010 = ╱f26400╱ // 0x25c2 @0x10
0x25b2…25e8 at0013 = ╱e7╱ * ╱ // 0x25c5 @0x13
0x25b2…25e8 at0014 = ╱cf╱ ASC ╱ // 0x25c6 @0x14
0x25b2…25e8 at0015 = ╱ed╱(╱ // 0x25c7 @0x15
0x25b2…25e8 at0016 = ╱22╱"╱ // 0x25c8 @0x16
0x25b2…25e8 at0017 = ╱30╱0╱ // 0x25c9 @0x17
0x25b2…25e8 at0018 = ╱22╱"╱ // 0x25ca @0x18
0x25b2…25e8 at0019 = ╱eb╱ + ╱ // 0x25cb @0x19
0x25b2…25e8 at001a = ╱53╱S╱ // 0x25cc @0x1a
0x25b2…25e8 at001b = ╱56╱V╱ // 0x25cd @0x1b
0x25b2…25e8 at001c = ╱41╱A╱ // 0x25ce @0x1c
0x25b2…25e8 at001d = ╱52╱R╱ // 0x25cf @0x1d
0x25b2…25e8 at001e = ╱ef╱$╱ // 0x25d0 @0x1e
0x25b2…25e8 at001f = ╱ee╱)╱ // 0x25d1 @0x1f
0x25b2…25e8 at0020 = ╱e5╱ + ╱ // 0x25d2 @0x20
0x25b2…25e8 at0021 = ╱30╱0╱ // 0x25d3 @0x21
0x25b2…25e8 at0022 = ╱2e╱.╱ // 0x25d4 @0x22
0x25b2…25e8 at0023 = ╱35╱5╱ // 0x25d5 @0x23
0x25b2…25e8 at0024 = ╱f88000000000000005╱ // 0x25d6 @0x24
0x25b2…25e8 at002d = ╱ee╱)╱ // 0x25df @0x2d
0x25b2…25e8 at002e = ╱e8╱ / ╱ // 0x25e0 @0x2e
0x25b2…25e8 at002f = ╱31╱1╱ // 0x25e1 @0x2f
0x25b2…25e8 at0030 = ╱30╱0╱ // 0x25e2 @0x30
0x25b2…25e8 at0031 = ╱30╱0╱ // 0x25e3 @0x31
0x25b2…25e8 at0032 = ╱f26400╱ // 0x25e4 @0x32
0x25b2…25e8 at0035 = EOL // 0x25e7 @0x35
0x25b2…25e8 }
0x25e8…25fa bbe8 3800 CURSOR 61,R_SLIN
0x25e8…25fa LineComal80 {
0x25e8…25fa ptr = 0xbbe8 // 0x25e8 @0x0
0x25e8…25fa lno = 0x0ed8 // 0x25ea @0x2
0x25e8…25fa at0004 = ╱a1╱ CURSOR ╱ // 0x25ec @0x4
0x25e8…25fa at0005 = ╱36╱6╱ // 0x25ed @0x5
0x25e8…25fa at0006 = ╱31╱1╱ // 0x25ee @0x6
0x25e8…25fa at0007 = ╱f23d00╱ // 0x25ef @0x7
0x25e8…25fa at000a = ╱ec╱,╱ // 0x25f2 @0xa
0x25e8…25fa at000b = ╱52╱R╱ // 0x25f3 @0xb
0x25e8…25fa at000c = ╱5f╱_╱ // 0x25f4 @0xc
0x25e8…25fa at000d = ╱53╱S╱ // 0x25f5 @0xd
0x25e8…25fa at000e = ╱4c╱L╱ // 0x25f6 @0xe
0x25e8…25fa at000f = ╱49╱I╱ // 0x25f7 @0xf
0x25e8…25fa at0010 = ╱4e╱N╱ // 0x25f8 @0x10
0x25e8…25fa at0011 = EOL // 0x25f9 @0x11
0x25e8…25fa }
0x25fa…260c bbfa 3810 IF _BKR > 0 THEN
0x25fa…260c LineComal80 {
0x25fa…260c ptr = 0xbbfa // 0x25fa @0x0
0x25fa…260c lno = 0x0ee2 // 0x25fc @0x2
0x25fa…260c at0004 = ╱9b4850╱ IF ╱ // 0x25fe @0x4
0x25fa…260c at0007 = ╱5f╱_╱ // 0x2601 @0x7
0x25fa…260c at0008 = ╱42╱B╱ // 0x2602 @0x8
0x25fa…260c at0009 = ╱4b╱K╱ // 0x2603 @0x9
0x25fa…260c at000a = ╱52╱R╱ // 0x2604 @0xa
0x25fa…260c at000b = ╱e1╱ > ╱ // 0x2605 @0xb
0x25fa…260c at000c = ╱30╱0╱ // 0x2606 @0xc
0x25fa…260c at000d = ╱f20000╱ // 0x2607 @0xd
0x25fa…260c at0010 = ╱b5╱ THEN ╱ // 0x260a @0x10
0x25fa…260c at0011 = EOL // 0x260b @0x11
0x25fa…260c }
0x260c…2624 bc12 3820 PRINT CHR$ (P_BKR,7,2)
0x260c…2624 LineComal80 {
0x260c…2624 ptr = 0xbc12 // 0x260c @0x0
0x260c…2624 lno = 0x0eec // 0x260e @0x2
0x260c…2624 at0004 = ╱92╱ PRINT ╱ // 0x2610 @0x4
0x260c…2624 at0005 = ╱d0╱ CHR$ ╱ // 0x2611 @0x5
0x260c…2624 at0006 = ╱ed╱(╱ // 0x2612 @0x6
0x260c…2624 at0007 = ╱50╱P╱ // 0x2613 @0x7
0x260c…2624 at0008 = ╱5f╱_╱ // 0x2614 @0x8
0x260c…2624 at0009 = ╱42╱B╱ // 0x2615 @0x9
0x260c…2624 at000a = ╱4b╱K╱ // 0x2616 @0xa
0x260c…2624 at000b = ╱52╱R╱ // 0x2617 @0xb
0x260c…2624 at000c = ╱ec╱,╱ // 0x2618 @0xc
0x260c…2624 at000d = ╱37╱7╱ // 0x2619 @0xd
0x260c…2624 at000e = ╱f20700╱ // 0x261a @0xe
0x260c…2624 at0011 = ╱ec╱,╱ // 0x261d @0x11
0x260c…2624 at0012 = ╱32╱2╱ // 0x261e @0x12
0x260c…2624 at0013 = ╱f20200╱ // 0x261f @0x13
0x260c…2624 at0016 = ╱ee╱)╱ // 0x2622 @0x16
0x260c…2624 at0017 = EOL // 0x2623 @0x17
0x260c…2624 }
0x2624…262b bc19 3830 ELSE
0x2624…262b LineComal80 {
0x2624…262b ptr = 0xbc19 // 0x2624 @0x0
0x2624…262b lno = 0x0ef6 // 0x2626 @0x2
0x2624…262b at0004 = ╱9a49╱ ELSE ╱ // 0x2628 @0x4
0x2624…262b at0006 = EOL // 0x262a @0x6
0x2624…262b }
0x262b…2641 bc2f 3840 PRINT SPC$(1 : 10)
0x262b…2641 LineComal80 {
0x262b…2641 ptr = 0xbc2f // 0x262b @0x0
0x262b…2641 lno = 0x0f00 // 0x262d @0x2
0x262b…2641 at0004 = ╱92╱ PRINT ╱ // 0x262f @0x4
0x262b…2641 at0005 = ╱53╱S╱ // 0x2630 @0x5
0x262b…2641 at0006 = ╱50╱P╱ // 0x2631 @0x6
0x262b…2641 at0007 = ╱43╱C╱ // 0x2632 @0x7
0x262b…2641 at0008 = ╱ef╱$╱ // 0x2633 @0x8
0x262b…2641 at0009 = ╱ed╱(╱ // 0x2634 @0x9
0x262b…2641 at000a = ╱31╱1╱ // 0x2635 @0xa
0x262b…2641 at000b = ╱f20100╱ // 0x2636 @0xb
0x262b…2641 at000e = ╱f1╱ : ╱ // 0x2639 @0xe
0x262b…2641 at000f = ╱31╱1╱ // 0x263a @0xf
0x262b…2641 at0010 = ╱30╱0╱ // 0x263b @0x10
0x262b…2641 at0011 = ╱f20a00╱ // 0x263c @0x11
0x262b…2641 at0014 = ╱ee╱)╱ // 0x263f @0x14
0x262b…2641 at0015 = EOL // 0x2640 @0x15
0x262b…2641 }
0x2641…2647 bc35 3850 ENDIF
0x2641…2647 LineComal80 {
0x2641…2647 ptr = 0xbc35 // 0x2641 @0x0
0x2641…2647 lno = 0x0f0a // 0x2643 @0x2
0x2641…2647 at0004 = ╱9c╱ ENDIF ╱ // 0x2645 @0x4
0x2641…2647 at0005 = EOL // 0x2646 @0x5
0x2641…2647 }
0x2647…264e bc3c 3860 ELSE
0x2647…264e LineComal80 {
0x2647…264e ptr = 0xbc3c // 0x2647 @0x0
0x2647…264e lno = 0x0f14 // 0x2649 @0x2
0x2647…264e at0004 = ╱9a4a╱ ELSE ╱ // 0x264b @0x4
0x2647…264e at0006 = EOL // 0x264d @0x6
0x2647…264e }
0x264e…265e bc4c 3870 LET P_DK := DEBET
0x264e…265e LineComal80 {
0x264e…265e ptr = 0xbc4c // 0x264e @0x0
0x264e…265e lno = 0x0f1e // 0x2650 @0x2
0x264e…265e at0004 = ╱86╱ LET ╱ // 0x2652 @0x4
0x264e…265e at0005 = ╱50╱P╱ // 0x2653 @0x5
0x264e…265e at0006 = ╱5f╱_╱ // 0x2654 @0x6
0x264e…265e at0007 = ╱44╱D╱ // 0x2655 @0x7
0x264e…265e at0008 = ╱4b╱K╱ // 0x2656 @0x8
0x264e…265e at0009 = ╱f0╱ := ╱ // 0x2657 @0x9
0x264e…265e at000a = ╱44╱D╱ // 0x2658 @0xa
0x264e…265e at000b = ╱45╱E╱ // 0x2659 @0xb
0x264e…265e at000c = ╱42╱B╱ // 0x265a @0xc
0x264e…265e at000d = ╱45╱E╱ // 0x265b @0xd
0x264e…265e at000e = ╱54╱T╱ // 0x265c @0xe
0x264e…265e at000f = EOL // 0x265d @0xf
0x264e…265e }
0x265e…2670 bc5e 3880 CURSOR 49,R_SLIN
0x265e…2670 LineComal80 {
0x265e…2670 ptr = 0xbc5e // 0x265e @0x0
0x265e…2670 lno = 0x0f28 // 0x2660 @0x2
0x265e…2670 at0004 = ╱a1╱ CURSOR ╱ // 0x2662 @0x4
0x265e…2670 at0005 = ╱34╱4╱ // 0x2663 @0x5
0x265e…2670 at0006 = ╱39╱9╱ // 0x2664 @0x6
0x265e…2670 at0007 = ╱f23100╱ // 0x2665 @0x7
0x265e…2670 at000a = ╱ec╱,╱ // 0x2668 @0xa
0x265e…2670 at000b = ╱52╱R╱ // 0x2669 @0xb
0x265e…2670 at000c = ╱5f╱_╱ // 0x266a @0xc
0x265e…2670 at000d = ╱53╱S╱ // 0x266b @0xd
0x265e…2670 at000e = ╱4c╱L╱ // 0x266c @0xe
0x265e…2670 at000f = ╱49╱I╱ // 0x266d @0xf
0x265e…2670 at0010 = ╱4e╱N╱ // 0x266e @0x10
0x265e…2670 at0011 = EOL // 0x266f @0x11
0x265e…2670 }
0x2670…267e bc6c 3890 EDIT "" : SVAR$
0x2670…267e LineComal80 {
0x2670…267e ptr = 0xbc6c // 0x2670 @0x0
0x2670…267e lno = 0x0f32 // 0x2672 @0x2
0x2670…267e at0004 = ╱b1╱ EDIT ╱ // 0x2674 @0x4
0x2670…267e at0005 = ╱22╱"╱ // 0x2675 @0x5
0x2670…267e at0006 = ╱22╱"╱ // 0x2676 @0x6
0x2670…267e at0007 = ╱f1╱ : ╱ // 0x2677 @0x7
0x2670…267e at0008 = ╱53╱S╱ // 0x2678 @0x8
0x2670…267e at0009 = ╱56╱V╱ // 0x2679 @0x9
0x2670…267e at000a = ╱41╱A╱ // 0x267a @0xa
0x2670…267e at000b = ╱52╱R╱ // 0x267b @0xb
0x2670…267e at000c = ╱ef╱$╱ // 0x267c @0xc
0x2670…267e at000d = EOL // 0x267d @0xd
0x2670…267e }
0x267e…2690 bc7e 3900 EXEC SL_FEJLLINIE
0x267e…2690 LineComal80 {
0x267e…2690 ptr = 0xbc7e // 0x267e @0x0
0x267e…2690 lno = 0x0f3c // 0x2680 @0x2
0x267e…2690 at0004 = ╱9d╱ EXEC ╱ // 0x2682 @0x4
0x267e…2690 at0005 = ╱53╱S╱ // 0x2683 @0x5
0x267e…2690 at0006 = ╱4c╱L╱ // 0x2684 @0x6
0x267e…2690 at0007 = ╱5f╱_╱ // 0x2685 @0x7
0x267e…2690 at0008 = ╱46╱F╱ // 0x2686 @0x8
0x267e…2690 at0009 = ╱45╱E╱ // 0x2687 @0x9
0x267e…2690 at000a = ╱4a╱J╱ // 0x2688 @0xa
0x267e…2690 at000b = ╱4c╱L╱ // 0x2689 @0xb
0x267e…2690 at000c = ╱4c╱L╱ // 0x268a @0xc
0x267e…2690 at000d = ╱49╱I╱ // 0x268b @0xd
0x267e…2690 at000e = ╱4e╱N╱ // 0x268c @0xe
0x267e…2690 at000f = ╱49╱I╱ // 0x268d @0xf
0x267e…2690 at0010 = ╱45╱E╱ // 0x268e @0x10
0x267e…2690 at0011 = EOL // 0x268f @0x11
0x267e…2690 }
0x2690…26a8 bc96 3910 EXEC TAL_CONTROL(SVAR$)
0x2690…26a8 LineComal80 {
0x2690…26a8 ptr = 0xbc96 // 0x2690 @0x0
0x2690…26a8 lno = 0x0f46 // 0x2692 @0x2
0x2690…26a8 at0004 = ╱9d╱ EXEC ╱ // 0x2694 @0x4
0x2690…26a8 at0005 = ╱54╱T╱ // 0x2695 @0x5
0x2690…26a8 at0006 = ╱41╱A╱ // 0x2696 @0x6
0x2690…26a8 at0007 = ╱4c╱L╱ // 0x2697 @0x7
0x2690…26a8 at0008 = ╱5f╱_╱ // 0x2698 @0x8
0x2690…26a8 at0009 = ╱43╱C╱ // 0x2699 @0x9
0x2690…26a8 at000a = ╱4f╱O╱ // 0x269a @0xa
0x2690…26a8 at000b = ╱4e╱N╱ // 0x269b @0xb
0x2690…26a8 at000c = ╱54╱T╱ // 0x269c @0xc
0x2690…26a8 at000d = ╱52╱R╱ // 0x269d @0xd
0x2690…26a8 at000e = ╱4f╱O╱ // 0x269e @0xe
0x2690…26a8 at000f = ╱4c╱L╱ // 0x269f @0xf
0x2690…26a8 at0010 = ╱ed╱(╱ // 0x26a0 @0x10
0x2690…26a8 at0011 = ╱53╱S╱ // 0x26a1 @0x11
0x2690…26a8 at0012 = ╱56╱V╱ // 0x26a2 @0x12
0x2690…26a8 at0013 = ╱41╱A╱ // 0x26a3 @0x13
0x2690…26a8 at0014 = ╱52╱R╱ // 0x26a4 @0x14
0x2690…26a8 at0015 = ╱ef╱$╱ // 0x26a5 @0x15
0x2690…26a8 at0016 = ╱ee╱)╱ // 0x26a6 @0x16
0x2690…26a8 at0017 = EOL // 0x26a7 @0x17
0x2690…26a8 }
0x26a8…26ca bcb8 3920 IF NOT "." IN SVAR$ THEN LET SVAR$ := SVAR$ + "."
0x26a8…26ca LineComal80 {
0x26a8…26ca ptr = 0xbcb8 // 0x26a8 @0x0
0x26a8…26ca lno = 0x0f50 // 0x26aa @0x2
0x26a8…26ca at0004 = ╱8200╱ IF ╱ // 0x26ac @0x4
0x26a8…26ca at0006 = ╱d7╱ NOT ╱ // 0x26ae @0x6
0x26a8…26ca at0007 = ╱22╱"╱ // 0x26af @0x7
0x26a8…26ca at0008 = ╱2e╱.╱ // 0x26b0 @0x8
0x26a8…26ca at0009 = ╱22╱"╱ // 0x26b1 @0x9
0x26a8…26ca at000a = ╱dc╱ IN ╱ // 0x26b2 @0xa
0x26a8…26ca at000b = ╱53╱S╱ // 0x26b3 @0xb
0x26a8…26ca at000c = ╱56╱V╱ // 0x26b4 @0xc
0x26a8…26ca at000d = ╱41╱A╱ // 0x26b5 @0xd
0x26a8…26ca at000e = ╱52╱R╱ // 0x26b6 @0xe
0x26a8…26ca at000f = ╱ef╱$╱ // 0x26b7 @0xf
0x26a8…26ca at0010 = ╱b5╱ THEN ╱ // 0x26b8 @0x10
0x26a8…26ca at0011 = ╱86╱ LET ╱ // 0x26b9 @0x11
0x26a8…26ca at0012 = ╱53╱S╱ // 0x26ba @0x12
0x26a8…26ca at0013 = ╱56╱V╱ // 0x26bb @0x13
0x26a8…26ca at0014 = ╱41╱A╱ // 0x26bc @0x14
0x26a8…26ca at0015 = ╱52╱R╱ // 0x26bd @0x15
0x26a8…26ca at0016 = ╱ef╱$╱ // 0x26be @0x16
0x26a8…26ca at0017 = ╱f0╱ := ╱ // 0x26bf @0x17
0x26a8…26ca at0018 = ╱53╱S╱ // 0x26c0 @0x18
0x26a8…26ca at0019 = ╱56╱V╱ // 0x26c1 @0x19
0x26a8…26ca at001a = ╱41╱A╱ // 0x26c2 @0x1a
0x26a8…26ca at001b = ╱52╱R╱ // 0x26c3 @0x1b
0x26a8…26ca at001c = ╱ef╱$╱ // 0x26c4 @0x1c
0x26a8…26ca at001d = ╱eb╱ + ╱ // 0x26c5 @0x1d
0x26a8…26ca at001e = ╱22╱"╱ // 0x26c6 @0x1e
0x26a8…26ca at001f = ╱2e╱.╱ // 0x26c7 @0x1f
0x26a8…26ca at0020 = ╱22╱"╱ // 0x26c8 @0x20
0x26a8…26ca at0021 = EOL // 0x26c9 @0x21
0x26a8…26ca }
0x26ca…26ff bced 3930 LET P_BKR := INT(100 * ASC ("0" + SVAR$) + .5) / 100
0x26ca…26ff LineComal80 {
0x26ca…26ff ptr = 0xbced // 0x26ca @0x0
0x26ca…26ff lno = 0x0f5a // 0x26cc @0x2
0x26ca…26ff at0004 = ╱86╱ LET ╱ // 0x26ce @0x4
0x26ca…26ff at0005 = ╱50╱P╱ // 0x26cf @0x5
0x26ca…26ff at0006 = ╱5f╱_╱ // 0x26d0 @0x6
0x26ca…26ff at0007 = ╱42╱B╱ // 0x26d1 @0x7
0x26ca…26ff at0008 = ╱4b╱K╱ // 0x26d2 @0x8
0x26ca…26ff at0009 = ╱52╱R╱ // 0x26d3 @0x9
0x26ca…26ff at000a = ╱f0╱ := ╱ // 0x26d4 @0xa
0x26ca…26ff at000b = ╱c6╱INT╱ // 0x26d5 @0xb
0x26ca…26ff at000c = ╱ed╱(╱ // 0x26d6 @0xc
0x26ca…26ff at000d = ╱31╱1╱ // 0x26d7 @0xd
0x26ca…26ff at000e = ╱30╱0╱ // 0x26d8 @0xe
0x26ca…26ff at000f = ╱30╱0╱ // 0x26d9 @0xf
0x26ca…26ff at0010 = ╱f26400╱ // 0x26da @0x10
0x26ca…26ff at0013 = ╱e7╱ * ╱ // 0x26dd @0x13
0x26ca…26ff at0014 = ╱cf╱ ASC ╱ // 0x26de @0x14
0x26ca…26ff at0015 = ╱ed╱(╱ // 0x26df @0x15
0x26ca…26ff at0016 = ╱22╱"╱ // 0x26e0 @0x16
0x26ca…26ff at0017 = ╱30╱0╱ // 0x26e1 @0x17
0x26ca…26ff at0018 = ╱22╱"╱ // 0x26e2 @0x18
0x26ca…26ff at0019 = ╱eb╱ + ╱ // 0x26e3 @0x19
0x26ca…26ff at001a = ╱53╱S╱ // 0x26e4 @0x1a
0x26ca…26ff at001b = ╱56╱V╱ // 0x26e5 @0x1b
0x26ca…26ff at001c = ╱41╱A╱ // 0x26e6 @0x1c
0x26ca…26ff at001d = ╱52╱R╱ // 0x26e7 @0x1d
0x26ca…26ff at001e = ╱ef╱$╱ // 0x26e8 @0x1e
0x26ca…26ff at001f = ╱ee╱)╱ // 0x26e9 @0x1f
0x26ca…26ff at0020 = ╱e5╱ + ╱ // 0x26ea @0x20
0x26ca…26ff at0021 = ╱2e╱.╱ // 0x26eb @0x21
0x26ca…26ff at0022 = ╱35╱5╱ // 0x26ec @0x22
0x26ca…26ff at0023 = ╱f88000000000000005╱ // 0x26ed @0x23
0x26ca…26ff at002c = ╱ee╱)╱ // 0x26f6 @0x2c
0x26ca…26ff at002d = ╱e8╱ / ╱ // 0x26f7 @0x2d
0x26ca…26ff at002e = ╱31╱1╱ // 0x26f8 @0x2e
0x26ca…26ff at002f = ╱30╱0╱ // 0x26f9 @0x2f
0x26ca…26ff at0030 = ╱30╱0╱ // 0x26fa @0x30
0x26ca…26ff at0031 = ╱f26400╱ // 0x26fb @0x31
0x26ca…26ff at0034 = EOL // 0x26fe @0x34
0x26ca…26ff }
0x26ff…2711 bcff 3940 CURSOR 49,R_SLIN
0x26ff…2711 LineComal80 {
0x26ff…2711 ptr = 0xbcff // 0x26ff @0x0
0x26ff…2711 lno = 0x0f64 // 0x2701 @0x2
0x26ff…2711 at0004 = ╱a1╱ CURSOR ╱ // 0x2703 @0x4
0x26ff…2711 at0005 = ╱34╱4╱ // 0x2704 @0x5
0x26ff…2711 at0006 = ╱39╱9╱ // 0x2705 @0x6
0x26ff…2711 at0007 = ╱f23100╱ // 0x2706 @0x7
0x26ff…2711 at000a = ╱ec╱,╱ // 0x2709 @0xa
0x26ff…2711 at000b = ╱52╱R╱ // 0x270a @0xb
0x26ff…2711 at000c = ╱5f╱_╱ // 0x270b @0xc
0x26ff…2711 at000d = ╱53╱S╱ // 0x270c @0xd
0x26ff…2711 at000e = ╱4c╱L╱ // 0x270d @0xe
0x26ff…2711 at000f = ╱49╱I╱ // 0x270e @0xf
0x26ff…2711 at0010 = ╱4e╱N╱ // 0x270f @0x10
0x26ff…2711 at0011 = EOL // 0x2710 @0x11
0x26ff…2711 }
0x2711…2723 bd11 3950 IF _BKR > 0 THEN
0x2711…2723 LineComal80 {
0x2711…2723 ptr = 0xbd11 // 0x2711 @0x0
0x2711…2723 lno = 0x0f6e // 0x2713 @0x2
0x2711…2723 at0004 = ╱9b4b50╱ IF ╱ // 0x2715 @0x4
0x2711…2723 at0007 = ╱5f╱_╱ // 0x2718 @0x7
0x2711…2723 at0008 = ╱42╱B╱ // 0x2719 @0x8
0x2711…2723 at0009 = ╱4b╱K╱ // 0x271a @0x9
0x2711…2723 at000a = ╱52╱R╱ // 0x271b @0xa
0x2711…2723 at000b = ╱e1╱ > ╱ // 0x271c @0xb
0x2711…2723 at000c = ╱30╱0╱ // 0x271d @0xc
0x2711…2723 at000d = ╱f20000╱ // 0x271e @0xd
0x2711…2723 at0010 = ╱b5╱ THEN ╱ // 0x2721 @0x10
0x2711…2723 at0011 = EOL // 0x2722 @0x11
0x2711…2723 }
0x2723…273b bd29 3960 PRINT CHR$ (P_BKR,7,2)
0x2723…273b LineComal80 {
0x2723…273b ptr = 0xbd29 // 0x2723 @0x0
0x2723…273b lno = 0x0f78 // 0x2725 @0x2
0x2723…273b at0004 = ╱92╱ PRINT ╱ // 0x2727 @0x4
0x2723…273b at0005 = ╱d0╱ CHR$ ╱ // 0x2728 @0x5
0x2723…273b at0006 = ╱ed╱(╱ // 0x2729 @0x6
0x2723…273b at0007 = ╱50╱P╱ // 0x272a @0x7
0x2723…273b at0008 = ╱5f╱_╱ // 0x272b @0x8
0x2723…273b at0009 = ╱42╱B╱ // 0x272c @0x9
0x2723…273b at000a = ╱4b╱K╱ // 0x272d @0xa
0x2723…273b at000b = ╱52╱R╱ // 0x272e @0xb
0x2723…273b at000c = ╱ec╱,╱ // 0x272f @0xc
0x2723…273b at000d = ╱37╱7╱ // 0x2730 @0xd
0x2723…273b at000e = ╱f20700╱ // 0x2731 @0xe
0x2723…273b at0011 = ╱ec╱,╱ // 0x2734 @0x11
0x2723…273b at0012 = ╱32╱2╱ // 0x2735 @0x12
0x2723…273b at0013 = ╱f20200╱ // 0x2736 @0x13
0x2723…273b at0016 = ╱ee╱)╱ // 0x2739 @0x16
0x2723…273b at0017 = EOL // 0x273a @0x17
0x2723…273b }
0x273b…2742 bd30 3970 ELSE
0x273b…2742 LineComal80 {
0x273b…2742 ptr = 0xbd30 // 0x273b @0x0
0x273b…2742 lno = 0x0f82 // 0x273d @0x2
0x273b…2742 at0004 = ╱9a4c╱ ELSE ╱ // 0x273f @0x4
0x273b…2742 at0006 = EOL // 0x2741 @0x6
0x273b…2742 }
0x2742…2758 bd46 3980 PRINT SPC$(1 : 10)
0x2742…2758 LineComal80 {
0x2742…2758 ptr = 0xbd46 // 0x2742 @0x0
0x2742…2758 lno = 0x0f8c // 0x2744 @0x2
0x2742…2758 at0004 = ╱92╱ PRINT ╱ // 0x2746 @0x4
0x2742…2758 at0005 = ╱53╱S╱ // 0x2747 @0x5
0x2742…2758 at0006 = ╱50╱P╱ // 0x2748 @0x6
0x2742…2758 at0007 = ╱43╱C╱ // 0x2749 @0x7
0x2742…2758 at0008 = ╱ef╱$╱ // 0x274a @0x8
0x2742…2758 at0009 = ╱ed╱(╱ // 0x274b @0x9
0x2742…2758 at000a = ╱31╱1╱ // 0x274c @0xa
0x2742…2758 at000b = ╱f20100╱ // 0x274d @0xb
0x2742…2758 at000e = ╱f1╱ : ╱ // 0x2750 @0xe
0x2742…2758 at000f = ╱31╱1╱ // 0x2751 @0xf
0x2742…2758 at0010 = ╱30╱0╱ // 0x2752 @0x10
0x2742…2758 at0011 = ╱f20a00╱ // 0x2753 @0x11
0x2742…2758 at0014 = ╱ee╱)╱ // 0x2756 @0x14
0x2742…2758 at0015 = EOL // 0x2757 @0x15
0x2742…2758 }
0x2758…275e bd4c 3990 ENDIF
0x2758…275e LineComal80 {
0x2758…275e ptr = 0xbd4c // 0x2758 @0x0
0x2758…275e lno = 0x0f96 // 0x275a @0x2
0x2758…275e at0004 = ╱9c╱ ENDIF ╱ // 0x275c @0x4
0x2758…275e at0005 = EOL // 0x275d @0x5
0x2758…275e }
0x275e…2764 bd52 4000 ENDIF
0x275e…2764 LineComal80 {
0x275e…2764 ptr = 0xbd52 // 0x275e @0x0
0x275e…2764 lno = 0x0fa0 // 0x2760 @0x2
0x275e…2764 at0004 = ╱9c╱ ENDIF ╱ // 0x2762 @0x4
0x275e…2764 at0005 = EOL // 0x2763 @0x5
0x275e…2764 }
0x2764…2788 bd76 4010 IF P_BKR =< 0 THEN LET P_DK := P_DK * ( - 1)
0x2764…2788 LineComal80 {
0x2764…2788 ptr = 0xbd76 // 0x2764 @0x0
0x2764…2788 lno = 0x0faa // 0x2766 @0x2
0x2764…2788 at0004 = ╱8200╱ IF ╱ // 0x2768 @0x4
0x2764…2788 at0006 = ╱50╱P╱ // 0x276a @0x6
0x2764…2788 at0007 = ╱5f╱_╱ // 0x276b @0x7
0x2764…2788 at0008 = ╱42╱B╱ // 0x276c @0x8
0x2764…2788 at0009 = ╱4b╱K╱ // 0x276d @0x9
0x2764…2788 at000a = ╱52╱R╱ // 0x276e @0xa
0x2764…2788 at000b = ╱e2╱ =< ╱ // 0x276f @0xb
0x2764…2788 at000c = ╱30╱0╱ // 0x2770 @0xc
0x2764…2788 at000d = ╱f20000╱ // 0x2771 @0xd
0x2764…2788 at0010 = ╱b5╱ THEN ╱ // 0x2774 @0x10
0x2764…2788 at0011 = ╱86╱ LET ╱ // 0x2775 @0x11
0x2764…2788 at0012 = ╱50╱P╱ // 0x2776 @0x12
0x2764…2788 at0013 = ╱5f╱_╱ // 0x2777 @0x13
0x2764…2788 at0014 = ╱44╱D╱ // 0x2778 @0x14
0x2764…2788 at0015 = ╱4b╱K╱ // 0x2779 @0x15
0x2764…2788 at0016 = ╱f0╱ := ╱ // 0x277a @0x16
0x2764…2788 at0017 = ╱50╱P╱ // 0x277b @0x17
0x2764…2788 at0018 = ╱5f╱_╱ // 0x277c @0x18
0x2764…2788 at0019 = ╱44╱D╱ // 0x277d @0x19
0x2764…2788 at001a = ╱4b╱K╱ // 0x277e @0x1a
0x2764…2788 at001b = ╱e7╱ * ╱ // 0x277f @0x1b
0x2764…2788 at001c = ╱ed╱(╱ // 0x2780 @0x1c
0x2764…2788 at001d = ╱de╱ - ╱ // 0x2781 @0x1d
0x2764…2788 at001e = ╱31╱1╱ // 0x2782 @0x1e
0x2764…2788 at001f = ╱f20100╱ // 0x2783 @0x1f
0x2764…2788 at0022 = ╱ee╱)╱ // 0x2786 @0x22
0x2764…2788 at0023 = EOL // 0x2787 @0x23
0x2764…2788 }
0x2788…2798 bd86 4020 UNTIL P_BKR > 0
0x2788…2798 LineComal80 {
0x2788…2798 ptr = 0xbd86 // 0x2788 @0x0
0x2788…2798 lno = 0x0fb4 // 0x278a @0x2
0x2788…2798 at0004 = ╱98╱ UNTIL ╱ // 0x278c @0x4
0x2788…2798 at0005 = ╱50╱P╱ // 0x278d @0x5
0x2788…2798 at0006 = ╱5f╱_╱ // 0x278e @0x6
0x2788…2798 at0007 = ╱42╱B╱ // 0x278f @0x7
0x2788…2798 at0008 = ╱4b╱K╱ // 0x2790 @0x8
0x2788…2798 at0009 = ╱52╱R╱ // 0x2791 @0x9
0x2788…2798 at000a = ╱e1╱ > ╱ // 0x2792 @0xa
0x2788…2798 at000b = ╱30╱0╱ // 0x2793 @0xb
0x2788…2798 at000c = ╱f20000╱ // 0x2794 @0xc
0x2788…2798 at000f = EOL // 0x2797 @0xf
0x2788…2798 }
0x2798…279f bd8d 4030 REPEAT
0x2798…279f LineComal80 {
0x2798…279f ptr = 0xbd8d // 0x2798 @0x0
0x2798…279f lno = 0x0fbe // 0x279a @0x2
0x2798…279f at0004 = ╱974d╱ REPEAT ╱ // 0x279c @0x4
0x2798…279f at0006 = EOL // 0x279e @0x6
0x2798…279f }
0x279f…27ae bd9c 4040 LET SVAR$ := "f"
0x279f…27ae LineComal80 {
0x279f…27ae ptr = 0xbd9c // 0x279f @0x0
0x279f…27ae lno = 0x0fc8 // 0x27a1 @0x2
0x279f…27ae at0004 = ╱86╱ LET ╱ // 0x27a3 @0x4
0x279f…27ae at0005 = ╱53╱S╱ // 0x27a4 @0x5
0x279f…27ae at0006 = ╱56╱V╱ // 0x27a5 @0x6
0x279f…27ae at0007 = ╱41╱A╱ // 0x27a6 @0x7
0x279f…27ae at0008 = ╱52╱R╱ // 0x27a7 @0x8
0x279f…27ae at0009 = ╱ef╱$╱ // 0x27a8 @0x9
0x279f…27ae at000a = ╱f0╱ := ╱ // 0x27a9 @0xa
0x279f…27ae at000b = ╱22╱"╱ // 0x27aa @0xb
0x279f…27ae at000c = ╱66╱f╱ // 0x27ab @0xc
0x279f…27ae at000d = ╱22╱"╱ // 0x27ac @0xd
0x279f…27ae at000e = EOL // 0x27ad @0xe
0x279f…27ae }
0x27ae…27c0 bdae 4050 CURSOR 77,R_SLIN
0x27ae…27c0 LineComal80 {
0x27ae…27c0 ptr = 0xbdae // 0x27ae @0x0
0x27ae…27c0 lno = 0x0fd2 // 0x27b0 @0x2
0x27ae…27c0 at0004 = ╱a1╱ CURSOR ╱ // 0x27b2 @0x4
0x27ae…27c0 at0005 = ╱37╱7╱ // 0x27b3 @0x5
0x27ae…27c0 at0006 = ╱37╱7╱ // 0x27b4 @0x6
0x27ae…27c0 at0007 = ╱f24d00╱ // 0x27b5 @0x7
0x27ae…27c0 at000a = ╱ec╱,╱ // 0x27b8 @0xa
0x27ae…27c0 at000b = ╱52╱R╱ // 0x27b9 @0xb
0x27ae…27c0 at000c = ╱5f╱_╱ // 0x27ba @0xc
0x27ae…27c0 at000d = ╱53╱S╱ // 0x27bb @0xd
0x27ae…27c0 at000e = ╱4c╱L╱ // 0x27bc @0xe
0x27ae…27c0 at000f = ╱49╱I╱ // 0x27bd @0xf
0x27ae…27c0 at0010 = ╱4e╱N╱ // 0x27be @0x10
0x27ae…27c0 at0011 = EOL // 0x27bf @0x11
0x27ae…27c0 }
0x27c0…27d4 bdc2 4060 EDIT "" : SVAR$(1)
0x27c0…27d4 LineComal80 {
0x27c0…27d4 ptr = 0xbdc2 // 0x27c0 @0x0
0x27c0…27d4 lno = 0x0fdc // 0x27c2 @0x2
0x27c0…27d4 at0004 = ╱b1╱ EDIT ╱ // 0x27c4 @0x4
0x27c0…27d4 at0005 = ╱22╱"╱ // 0x27c5 @0x5
0x27c0…27d4 at0006 = ╱22╱"╱ // 0x27c6 @0x6
0x27c0…27d4 at0007 = ╱f1╱ : ╱ // 0x27c7 @0x7
0x27c0…27d4 at0008 = ╱53╱S╱ // 0x27c8 @0x8
0x27c0…27d4 at0009 = ╱56╱V╱ // 0x27c9 @0x9
0x27c0…27d4 at000a = ╱41╱A╱ // 0x27ca @0xa
0x27c0…27d4 at000b = ╱52╱R╱ // 0x27cb @0xb
0x27c0…27d4 at000c = ╱ef╱$╱ // 0x27cc @0xc
0x27c0…27d4 at000d = ╱ed╱(╱ // 0x27cd @0xd
0x27c0…27d4 at000e = ╱31╱1╱ // 0x27ce @0xe
0x27c0…27d4 at000f = ╱f20100╱ // 0x27cf @0xf
0x27c0…27d4 at0012 = ╱ee╱)╱ // 0x27d2 @0x12
0x27c0…27d4 at0013 = EOL // 0x27d3 @0x13
0x27c0…27d4 }
0x27d4…27e8 bdd6 4070 EXEC ST_BGST(SVAR$)
0x27d4…27e8 LineComal80 {
0x27d4…27e8 ptr = 0xbdd6 // 0x27d4 @0x0
0x27d4…27e8 lno = 0x0fe6 // 0x27d6 @0x2
0x27d4…27e8 at0004 = ╱9d╱ EXEC ╱ // 0x27d8 @0x4
0x27d4…27e8 at0005 = ╱53╱S╱ // 0x27d9 @0x5
0x27d4…27e8 at0006 = ╱54╱T╱ // 0x27da @0x6
0x27d4…27e8 at0007 = ╱5f╱_╱ // 0x27db @0x7
0x27d4…27e8 at0008 = ╱42╱B╱ // 0x27dc @0x8
0x27d4…27e8 at0009 = ╱47╱G╱ // 0x27dd @0x9
0x27d4…27e8 at000a = ╱53╱S╱ // 0x27de @0xa
0x27d4…27e8 at000b = ╱54╱T╱ // 0x27df @0xb
0x27d4…27e8 at000c = ╱ed╱(╱ // 0x27e0 @0xc
0x27d4…27e8 at000d = ╱53╱S╱ // 0x27e1 @0xd
0x27d4…27e8 at000e = ╱56╱V╱ // 0x27e2 @0xe
0x27d4…27e8 at000f = ╱41╱A╱ // 0x27e3 @0xf
0x27d4…27e8 at0010 = ╱52╱R╱ // 0x27e4 @0x10
0x27d4…27e8 at0011 = ╱ef╱$╱ // 0x27e5 @0x11
0x27d4…27e8 at0012 = ╱ee╱)╱ // 0x27e6 @0x12
0x27d4…27e8 at0013 = EOL // 0x27e7 @0x13
0x27d4…27e8 }
0x27e8…2805 bdf3 4080 UNTIL "/" + SVAR$ + "/" IN "/F/S/R/"
0x27e8…2805 LineComal80 {
0x27e8…2805 ptr = 0xbdf3 // 0x27e8 @0x0
0x27e8…2805 lno = 0x0ff0 // 0x27ea @0x2
0x27e8…2805 at0004 = ╱98╱ UNTIL ╱ // 0x27ec @0x4
0x27e8…2805 at0005 = ╱22╱"╱ // 0x27ed @0x5
0x27e8…2805 at0006 = ╱2f╱/╱ // 0x27ee @0x6
0x27e8…2805 at0007 = ╱22╱"╱ // 0x27ef @0x7
0x27e8…2805 at0008 = ╱eb╱ + ╱ // 0x27f0 @0x8
0x27e8…2805 at0009 = ╱53╱S╱ // 0x27f1 @0x9
0x27e8…2805 at000a = ╱56╱V╱ // 0x27f2 @0xa
0x27e8…2805 at000b = ╱41╱A╱ // 0x27f3 @0xb
0x27e8…2805 at000c = ╱52╱R╱ // 0x27f4 @0xc
0x27e8…2805 at000d = ╱ef╱$╱ // 0x27f5 @0xd
0x27e8…2805 at000e = ╱eb╱ + ╱ // 0x27f6 @0xe
0x27e8…2805 at000f = ╱22╱"╱ // 0x27f7 @0xf
0x27e8…2805 at0010 = ╱2f╱/╱ // 0x27f8 @0x10
0x27e8…2805 at0011 = ╱22╱"╱ // 0x27f9 @0x11
0x27e8…2805 at0012 = ╱dc╱ IN ╱ // 0x27fa @0x12
0x27e8…2805 at0013 = ╱22╱"╱ // 0x27fb @0x13
0x27e8…2805 at0014 = ╱2f╱/╱ // 0x27fc @0x14
0x27e8…2805 at0015 = ╱46╱F╱ // 0x27fd @0x15
0x27e8…2805 at0016 = ╱2f╱/╱ // 0x27fe @0x16
0x27e8…2805 at0017 = ╱53╱S╱ // 0x27ff @0x17
0x27e8…2805 at0018 = ╱2f╱/╱ // 0x2800 @0x18
0x27e8…2805 at0019 = ╱52╱R╱ // 0x2801 @0x19
0x27e8…2805 at001a = ╱2f╱/╱ // 0x2802 @0x1a
0x27e8…2805 at001b = ╱22╱"╱ // 0x2803 @0x1b
0x27e8…2805 at001c = EOL // 0x2804 @0x1c
0x27e8…2805 }
0x2805…2815 be03 4090 UNTIL SVAR$ IN "FS"
0x2805…2815 LineComal80 {
0x2805…2815 ptr = 0xbe03 // 0x2805 @0x0
0x2805…2815 lno = 0x0ffa // 0x2807 @0x2
0x2805…2815 at0004 = ╱98╱ UNTIL ╱ // 0x2809 @0x4
0x2805…2815 at0005 = ╱53╱S╱ // 0x280a @0x5
0x2805…2815 at0006 = ╱56╱V╱ // 0x280b @0x6
0x2805…2815 at0007 = ╱41╱A╱ // 0x280c @0x7
0x2805…2815 at0008 = ╱52╱R╱ // 0x280d @0x8
0x2805…2815 at0009 = ╱ef╱$╱ // 0x280e @0x9
0x2805…2815 at000a = ╱dc╱ IN ╱ // 0x280f @0xa
0x2805…2815 at000b = ╱22╱"╱ // 0x2810 @0xb
0x2805…2815 at000c = ╱46╱F╱ // 0x2811 @0xc
0x2805…2815 at000d = ╱53╱S╱ // 0x2812 @0xd
0x2805…2815 at000e = ╱22╱"╱ // 0x2813 @0xe
0x2805…2815 at000f = EOL // 0x2814 @0xf
0x2805…2815 }
0x2815…2827 be15 4100 IF _DK = DEBET THEN
0x2815…2827 LineComal80 {
0x2815…2827 ptr = 0xbe15 // 0x2815 @0x0
0x2815…2827 lno = 0x1004 // 0x2817 @0x2
0x2815…2827 at0004 = ╱9b4e50╱ IF ╱ // 0x2819 @0x4
0x2815…2827 at0007 = ╱5f╱_╱ // 0x281c @0x7
0x2815…2827 at0008 = ╱44╱D╱ // 0x281d @0x8
0x2815…2827 at0009 = ╱4b╱K╱ // 0x281e @0x9
0x2815…2827 at000a = ╱df╱ = ╱ // 0x281f @0xa
0x2815…2827 at000b = ╱44╱D╱ // 0x2820 @0xb
0x2815…2827 at000c = ╱45╱E╱ // 0x2821 @0xc
0x2815…2827 at000d = ╱42╱B╱ // 0x2822 @0xd
0x2815…2827 at000e = ╱45╱E╱ // 0x2823 @0xe
0x2815…2827 at000f = ╱54╱T╱ // 0x2824 @0xf
0x2815…2827 at0010 = ╱b5╱ THEN ╱ // 0x2825 @0x10
0x2815…2827 at0011 = EOL // 0x2826 @0x11
0x2815…2827 }
0x2827…283e be2c 4110 LET P_DEB := P_DEB + P_BKR
0x2827…283e LineComal80 {
0x2827…283e ptr = 0xbe2c // 0x2827 @0x0
0x2827…283e lno = 0x100e // 0x2829 @0x2
0x2827…283e at0004 = ╱86╱ LET ╱ // 0x282b @0x4
0x2827…283e at0005 = ╱50╱P╱ // 0x282c @0x5
0x2827…283e at0006 = ╱5f╱_╱ // 0x282d @0x6
0x2827…283e at0007 = ╱44╱D╱ // 0x282e @0x7
0x2827…283e at0008 = ╱45╱E╱ // 0x282f @0x8
0x2827…283e at0009 = ╱42╱B╱ // 0x2830 @0x9
0x2827…283e at000a = ╱f0╱ := ╱ // 0x2831 @0xa
0x2827…283e at000b = ╱50╱P╱ // 0x2832 @0xb
0x2827…283e at000c = ╱5f╱_╱ // 0x2833 @0xc
0x2827…283e at000d = ╱44╱D╱ // 0x2834 @0xd
0x2827…283e at000e = ╱45╱E╱ // 0x2835 @0xe
0x2827…283e at000f = ╱42╱B╱ // 0x2836 @0xf
0x2827…283e at0010 = ╱e5╱ + ╱ // 0x2837 @0x10
0x2827…283e at0011 = ╱50╱P╱ // 0x2838 @0x11
0x2827…283e at0012 = ╱5f╱_╱ // 0x2839 @0x12
0x2827…283e at0013 = ╱42╱B╱ // 0x283a @0x13
0x2827…283e at0014 = ╱4b╱K╱ // 0x283b @0x14
0x2827…283e at0015 = ╱52╱R╱ // 0x283c @0x15
0x2827…283e at0016 = EOL // 0x283d @0x16
0x2827…283e }
0x283e…2845 be33 4120 ELSE
0x283e…2845 LineComal80 {
0x283e…2845 ptr = 0xbe33 // 0x283e @0x0
0x283e…2845 lno = 0x1018 // 0x2840 @0x2
0x283e…2845 at0004 = ╱9a4f╱ ELSE ╱ // 0x2842 @0x4
0x283e…2845 at0006 = EOL // 0x2844 @0x6
0x283e…2845 }
0x2845…285e be4c 4130 LET P_KRED := P_KRED + P_BKR
0x2845…285e LineComal80 {
0x2845…285e ptr = 0xbe4c // 0x2845 @0x0
0x2845…285e lno = 0x1022 // 0x2847 @0x2
0x2845…285e at0004 = ╱86╱ LET ╱ // 0x2849 @0x4
0x2845…285e at0005 = ╱50╱P╱ // 0x284a @0x5
0x2845…285e at0006 = ╱5f╱_╱ // 0x284b @0x6
0x2845…285e at0007 = ╱4b╱K╱ // 0x284c @0x7
0x2845…285e at0008 = ╱52╱R╱ // 0x284d @0x8
0x2845…285e at0009 = ╱45╱E╱ // 0x284e @0x9
0x2845…285e at000a = ╱44╱D╱ // 0x284f @0xa
0x2845…285e at000b = ╱f0╱ := ╱ // 0x2850 @0xb
0x2845…285e at000c = ╱50╱P╱ // 0x2851 @0xc
0x2845…285e at000d = ╱5f╱_╱ // 0x2852 @0xd
0x2845…285e at000e = ╱4b╱K╱ // 0x2853 @0xe
0x2845…285e at000f = ╱52╱R╱ // 0x2854 @0xf
0x2845…285e at0010 = ╱45╱E╱ // 0x2855 @0x10
0x2845…285e at0011 = ╱44╱D╱ // 0x2856 @0x11
0x2845…285e at0012 = ╱e5╱ + ╱ // 0x2857 @0x12
0x2845…285e at0013 = ╱50╱P╱ // 0x2858 @0x13
0x2845…285e at0014 = ╱5f╱_╱ // 0x2859 @0x14
0x2845…285e at0015 = ╱42╱B╱ // 0x285a @0x15
0x2845…285e at0016 = ╱4b╱K╱ // 0x285b @0x16
0x2845…285e at0017 = ╱52╱R╱ // 0x285c @0x17
0x2845…285e at0018 = EOL // 0x285d @0x18
0x2845…285e }
0x285e…2864 be52 4140 ENDIF
0x285e…2864 LineComal80 {
0x285e…2864 ptr = 0xbe52 // 0x285e @0x0
0x285e…2864 lno = 0x102c // 0x2860 @0x2
0x285e…2864 at0004 = ╱9c╱ ENDIF ╱ // 0x2862 @0x4
0x285e…2864 at0005 = EOL // 0x2863 @0x5
0x285e…2864 }
0x2864…2874 be62 4150 EXEC SKRIV_DIFF
0x2864…2874 LineComal80 {
0x2864…2874 ptr = 0xbe62 // 0x2864 @0x0
0x2864…2874 lno = 0x1036 // 0x2866 @0x2
0x2864…2874 at0004 = ╱9d╱ EXEC ╱ // 0x2868 @0x4
0x2864…2874 at0005 = ╱53╱S╱ // 0x2869 @0x5
0x2864…2874 at0006 = ╱4b╱K╱ // 0x286a @0x6
0x2864…2874 at0007 = ╱52╱R╱ // 0x286b @0x7
0x2864…2874 at0008 = ╱49╱I╱ // 0x286c @0x8
0x2864…2874 at0009 = ╱56╱V╱ // 0x286d @0x9
0x2864…2874 at000a = ╱5f╱_╱ // 0x286e @0xa
0x2864…2874 at000b = ╱44╱D╱ // 0x286f @0xb
0x2864…2874 at000c = ╱49╱I╱ // 0x2870 @0xc
0x2864…2874 at000d = ╱46╱F╱ // 0x2871 @0xd
0x2864…2874 at000e = ╱46╱F╱ // 0x2872 @0xe
0x2864…2874 at000f = EOL // 0x2873 @0xf
0x2864…2874 }
0x2874…28b9 bea7 4160 PUT DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
0x2874…28b9 LineComal80 {
0x2874…28b9 ptr = 0xbea7 // 0x2874 @0x0
0x2874…28b9 lno = 0x1040 // 0x2876 @0x2
0x2874…28b9 at0004 = ╱aa╱ PUT ╱ // 0x2878 @0x4
0x2874…28b9 at0005 = ╱44╱D╱ // 0x2879 @0x5
0x2874…28b9 at0006 = ╱47╱G╱ // 0x287a @0x6
0x2874…28b9 at0007 = ╱5f╱_╱ // 0x287b @0x7
0x2874…28b9 at0008 = ╱50╱P╱ // 0x287c @0x8
0x2874…28b9 at0009 = ╱4f╱O╱ // 0x287d @0x9
0x2874…28b9 at000a = ╱53╱S╱ // 0x287e @0xa
0x2874…28b9 at000b = ╱ef╱$╱ // 0x287f @0xb
0x2874…28b9 at000c = ╱ec╱,╱ // 0x2880 @0xc
0x2874…28b9 at000d = ╱31╱1╱ // 0x2881 @0xd
0x2874…28b9 at000e = ╱f20100╱ // 0x2882 @0xe
0x2874…28b9 at0011 = ╱f1╱ : ╱ // 0x2885 @0x11
0x2874…28b9 at0012 = ╱50╱P╱ // 0x2886 @0x12
0x2874…28b9 at0013 = ╱5f╱_╱ // 0x2887 @0x13
0x2874…28b9 at0014 = ╱48╱H╱ // 0x2888 @0x14
0x2874…28b9 at0015 = ╱5c╱Ø╱ // 0x2889 @0x15
0x2874…28b9 at0016 = ╱4a╱J╱ // 0x288a @0x16
0x2874…28b9 at0017 = ╱52╱R╱ // 0x288b @0x17
0x2874…28b9 at0018 = ╱45╱E╱ // 0x288c @0x18
0x2874…28b9 at0019 = ╱43╱C╱ // 0x288d @0x19
0x2874…28b9 at001a = ╱ec╱,╱ // 0x288e @0x1a
0x2874…28b9 at001b = ╱50╱P╱ // 0x288f @0x1b
0x2874…28b9 at001c = ╱5f╱_╱ // 0x2890 @0x1c
0x2874…28b9 at001d = ╱4d╱M╱ // 0x2891 @0x1d
0x2874…28b9 at001e = ╱41╱A╱ // 0x2892 @0x1e
0x2874…28b9 at001f = ╱58╱X╱ // 0x2893 @0x1f
0x2874…28b9 at0020 = ╱52╱R╱ // 0x2894 @0x20
0x2874…28b9 at0021 = ╱45╱E╱ // 0x2895 @0x21
0x2874…28b9 at0022 = ╱43╱C╱ // 0x2896 @0x22
0x2874…28b9 at0023 = ╱ec╱,╱ // 0x2897 @0x23
0x2874…28b9 at0024 = ╱53╱S╱ // 0x2898 @0x24
0x2874…28b9 at0025 = ╱5f╱_╱ // 0x2899 @0x25
0x2874…28b9 at0026 = ╱4e╱N╱ // 0x289a @0x26
0x2874…28b9 at0027 = ╱52╱R╱ // 0x289b @0x27
0x2874…28b9 at0028 = ╱5f╱_╱ // 0x289c @0x28
0x2874…28b9 at0029 = ╱44╱D╱ // 0x289d @0x29
0x2874…28b9 at002a = ╱47╱G╱ // 0x289e @0x2a
0x2874…28b9 at002b = ╱5f╱_╱ // 0x289f @0x2b
0x2874…28b9 at002c = ╱50╱P╱ // 0x28a0 @0x2c
0x2874…28b9 at002d = ╱4f╱O╱ // 0x28a1 @0x2d
0x2874…28b9 at002e = ╱53╱S╱ // 0x28a2 @0x2e
0x2874…28b9 at002f = ╱ec╱,╱ // 0x28a3 @0x2f
0x2874…28b9 at0030 = ╱50╱P╱ // 0x28a4 @0x30
0x2874…28b9 at0031 = ╱5f╱_╱ // 0x28a5 @0x31
0x2874…28b9 at0032 = ╱44╱D╱ // 0x28a6 @0x32
0x2874…28b9 at0033 = ╱45╱E╱ // 0x28a7 @0x33
0x2874…28b9 at0034 = ╱42╱B╱ // 0x28a8 @0x34
0x2874…28b9 at0035 = ╱ec╱,╱ // 0x28a9 @0x35
0x2874…28b9 at0036 = ╱50╱P╱ // 0x28aa @0x36
0x2874…28b9 at0037 = ╱5f╱_╱ // 0x28ab @0x37
0x2874…28b9 at0038 = ╱4b╱K╱ // 0x28ac @0x38
0x2874…28b9 at0039 = ╱52╱R╱ // 0x28ad @0x39
0x2874…28b9 at003a = ╱45╱E╱ // 0x28ae @0x3a
0x2874…28b9 at003b = ╱44╱D╱ // 0x28af @0x3b
0x2874…28b9 at003c = ╱ec╱,╱ // 0x28b0 @0x3c
0x2874…28b9 at003d = ╱50╱P╱ // 0x28b1 @0x3d
0x2874…28b9 at003e = ╱5f╱_╱ // 0x28b2 @0x3e
0x2874…28b9 at003f = ╱42╱B╱ // 0x28b3 @0x3f
0x2874…28b9 at0040 = ╱44╱D╱ // 0x28b4 @0x40
0x2874…28b9 at0041 = ╱41╱A╱ // 0x28b5 @0x41
0x2874…28b9 at0042 = ╱54╱T╱ // 0x28b6 @0x42
0x2874…28b9 at0043 = ╱ef╱$╱ // 0x28b7 @0x43
0x2874…28b9 at0044 = EOL // 0x28b8 @0x44
0x2874…28b9 }
0x28b9…28d2 bec0 4170 EXEC SKRIV_DG_POS(R_LIN)
0x28b9…28d2 LineComal80 {
0x28b9…28d2 ptr = 0xbec0 // 0x28b9 @0x0
0x28b9…28d2 lno = 0x104a // 0x28bb @0x2
0x28b9…28d2 at0004 = ╱9d╱ EXEC ╱ // 0x28bd @0x4
0x28b9…28d2 at0005 = ╱53╱S╱ // 0x28be @0x5
0x28b9…28d2 at0006 = ╱4b╱K╱ // 0x28bf @0x6
0x28b9…28d2 at0007 = ╱52╱R╱ // 0x28c0 @0x7
0x28b9…28d2 at0008 = ╱49╱I╱ // 0x28c1 @0x8
0x28b9…28d2 at0009 = ╱56╱V╱ // 0x28c2 @0x9
0x28b9…28d2 at000a = ╱5f╱_╱ // 0x28c3 @0xa
0x28b9…28d2 at000b = ╱44╱D╱ // 0x28c4 @0xb
0x28b9…28d2 at000c = ╱47╱G╱ // 0x28c5 @0xc
0x28b9…28d2 at000d = ╱5f╱_╱ // 0x28c6 @0xd
0x28b9…28d2 at000e = ╱50╱P╱ // 0x28c7 @0xe
0x28b9…28d2 at000f = ╱4f╱O╱ // 0x28c8 @0xf
0x28b9…28d2 at0010 = ╱53╱S╱ // 0x28c9 @0x10
0x28b9…28d2 at0011 = ╱ed╱(╱ // 0x28ca @0x11
0x28b9…28d2 at0012 = ╱52╱R╱ // 0x28cb @0x12
0x28b9…28d2 at0013 = ╱5f╱_╱ // 0x28cc @0x13
0x28b9…28d2 at0014 = ╱4c╱L╱ // 0x28cd @0x14
0x28b9…28d2 at0015 = ╱49╱I╱ // 0x28ce @0x15
0x28b9…28d2 at0016 = ╱4e╱N╱ // 0x28cf @0x16
0x28b9…28d2 at0017 = ╱ee╱)╱ // 0x28d0 @0x17
0x28b9…28d2 at0018 = EOL // 0x28d1 @0x18
0x28b9…28d2 }
0x28d2…28e4 bed2 4180 EXEC SL_FEJLLINIE
0x28d2…28e4 LineComal80 {
0x28d2…28e4 ptr = 0xbed2 // 0x28d2 @0x0
0x28d2…28e4 lno = 0x1054 // 0x28d4 @0x2
0x28d2…28e4 at0004 = ╱9d╱ EXEC ╱ // 0x28d6 @0x4
0x28d2…28e4 at0005 = ╱53╱S╱ // 0x28d7 @0x5
0x28d2…28e4 at0006 = ╱4c╱L╱ // 0x28d8 @0x6
0x28d2…28e4 at0007 = ╱5f╱_╱ // 0x28d9 @0x7
0x28d2…28e4 at0008 = ╱46╱F╱ // 0x28da @0x8
0x28d2…28e4 at0009 = ╱45╱E╱ // 0x28db @0x9
0x28d2…28e4 at000a = ╱4a╱J╱ // 0x28dc @0xa
0x28d2…28e4 at000b = ╱4c╱L╱ // 0x28dd @0xb
0x28d2…28e4 at000c = ╱4c╱L╱ // 0x28de @0xc
0x28d2…28e4 at000d = ╱49╱I╱ // 0x28df @0xd
0x28d2…28e4 at000e = ╱4e╱N╱ // 0x28e0 @0xe
0x28d2…28e4 at000f = ╱49╱I╱ // 0x28e1 @0xf
0x28d2…28e4 at0010 = ╱45╱E╱ // 0x28e2 @0x10
0x28d2…28e4 at0011 = EOL // 0x28e3 @0x11
0x28d2…28e4 }
0x28e4…28f2 bee0 4190 ENDPROC EDIT_LIN
0x28e4…28f2 LineComal80 {
0x28e4…28f2 ptr = 0xbee0 // 0x28e4 @0x0
0x28e4…28f2 lno = 0x105e // 0x28e6 @0x2
0x28e4…28f2 at0004 = ╱9f╱ ENDPROC ╱ // 0x28e8 @0x4
0x28e4…28f2 at0005 = ╱45╱E╱ // 0x28e9 @0x5
0x28e4…28f2 at0006 = ╱44╱D╱ // 0x28ea @0x6
0x28e4…28f2 at0007 = ╱49╱I╱ // 0x28eb @0x7
0x28e4…28f2 at0008 = ╱54╱T╱ // 0x28ec @0x8
0x28e4…28f2 at0009 = ╱5f╱_╱ // 0x28ed @0x9
0x28e4…28f2 at000a = ╱4c╱L╱ // 0x28ee @0xa
0x28e4…28f2 at000b = ╱49╱I╱ // 0x28ef @0xb
0x28e4…28f2 at000c = ╱4e╱N╱ // 0x28f0 @0xc
0x28e4…28f2 at000d = EOL // 0x28f1 @0xd
0x28e4…28f2 }
0x28f2…28f7 bee5 4200
0x28f2…28f7 LineComal80 {
0x28f2…28f7 ptr = 0xbee5 // 0x28f2 @0x0
0x28f2…28f7 lno = 0x1068 // 0x28f4 @0x2
0x28f2…28f7 at0004 = EOL // 0x28f6 @0x4
0x28f2…28f7 }
0x28f7…2908 bef6 4210 PROC SKRIV_DIFF
0x28f7…2908 LineComal80 {
0x28f7…2908 ptr = 0xbef6 // 0x28f7 @0x0
0x28f7…2908 lno = 0x1072 // 0x28f9 @0x2
0x28f7…2908 at0004 = ╱9e50╱ PROC ╱ // 0x28fb @0x4
0x28f7…2908 at0006 = ╱53╱S╱ // 0x28fd @0x6
0x28f7…2908 at0007 = ╱4b╱K╱ // 0x28fe @0x7
0x28f7…2908 at0008 = ╱52╱R╱ // 0x28ff @0x8
0x28f7…2908 at0009 = ╱49╱I╱ // 0x2900 @0x9
0x28f7…2908 at000a = ╱56╱V╱ // 0x2901 @0xa
0x28f7…2908 at000b = ╱5f╱_╱ // 0x2902 @0xb
0x28f7…2908 at000c = ╱44╱D╱ // 0x2903 @0xc
0x28f7…2908 at000d = ╱49╱I╱ // 0x2904 @0xd
0x28f7…2908 at000e = ╱46╱F╱ // 0x2905 @0xe
0x28f7…2908 at000f = ╱46╱F╱ // 0x2906 @0xf
0x28f7…2908 at0010 = EOL // 0x2907 @0x10
0x28f7…2908 }
0x2908…291d bf0b 4220 PRINT "<SC0120>" ; SPC$
0x2908…291d LineComal80 {
0x2908…291d ptr = 0xbf0b // 0x2908 @0x0
0x2908…291d lno = 0x107c // 0x290a @0x2
0x2908…291d at0004 = ╱92╱ PRINT ╱ // 0x290c @0x4
0x2908…291d at0005 = ╱22╱"╱ // 0x290d @0x5
0x2908…291d at0006 = ╱3c╱<╱ // 0x290e @0x6
0x2908…291d at0007 = ╱53╱S╱ // 0x290f @0x7
0x2908…291d at0008 = ╱43╱C╱ // 0x2910 @0x8
0x2908…291d at0009 = ╱30╱0╱ // 0x2911 @0x9
0x2908…291d at000a = ╱31╱1╱ // 0x2912 @0xa
0x2908…291d at000b = ╱32╱2╱ // 0x2913 @0xb
0x2908…291d at000c = ╱30╱0╱ // 0x2914 @0xc
0x2908…291d at000d = ╱3e╱>╱ // 0x2915 @0xd
0x2908…291d at000e = ╱22╱"╱ // 0x2916 @0xe
0x2908…291d at000f = ╱ea╱ ; ╱ // 0x2917 @0xf
0x2908…291d at0010 = ╱53╱S╱ // 0x2918 @0x10
0x2908…291d at0011 = ╱50╱P╱ // 0x2919 @0x11
0x2908…291d at0012 = ╱43╱C╱ // 0x291a @0x12
0x2908…291d at0013 = ╱ef╱$╱ // 0x291b @0x13
0x2908…291d at0014 = EOL // 0x291c @0x14
0x2908…291d }
0x291d…2932 bf20 4230 PRINT "<SC0121>" ; SPC$
0x291d…2932 LineComal80 {
0x291d…2932 ptr = 0xbf20 // 0x291d @0x0
0x291d…2932 lno = 0x1086 // 0x291f @0x2
0x291d…2932 at0004 = ╱92╱ PRINT ╱ // 0x2921 @0x4
0x291d…2932 at0005 = ╱22╱"╱ // 0x2922 @0x5
0x291d…2932 at0006 = ╱3c╱<╱ // 0x2923 @0x6
0x291d…2932 at0007 = ╱53╱S╱ // 0x2924 @0x7
0x291d…2932 at0008 = ╱43╱C╱ // 0x2925 @0x8
0x291d…2932 at0009 = ╱30╱0╱ // 0x2926 @0x9
0x291d…2932 at000a = ╱31╱1╱ // 0x2927 @0xa
0x291d…2932 at000b = ╱32╱2╱ // 0x2928 @0xb
0x291d…2932 at000c = ╱31╱1╱ // 0x2929 @0xc
0x291d…2932 at000d = ╱3e╱>╱ // 0x292a @0xd
0x291d…2932 at000e = ╱22╱"╱ // 0x292b @0xe
0x291d…2932 at000f = ╱ea╱ ; ╱ // 0x292c @0xf
0x291d…2932 at0010 = ╱53╱S╱ // 0x292d @0x10
0x291d…2932 at0011 = ╱50╱P╱ // 0x292e @0x11
0x291d…2932 at0012 = ╱43╱C╱ // 0x292f @0x12
0x291d…2932 at0013 = ╱ef╱$╱ // 0x2930 @0x13
0x291d…2932 at0014 = EOL // 0x2931 @0x14
0x291d…2932 }
0x2932…296e bf5c 4240 PRINT "<SC2220>Debet/kredit total " ; CHR$ (P_DEB,9,2)
0x2932…296e LineComal80 {
0x2932…296e ptr = 0xbf5c // 0x2932 @0x0
0x2932…296e lno = 0x1090 // 0x2934 @0x2
0x2932…296e at0004 = ╱92╱ PRINT ╱ // 0x2936 @0x4
0x2932…296e at0005 = ╱22╱"╱ // 0x2937 @0x5
0x2932…296e at0006 = ╱3c╱<╱ // 0x2938 @0x6
0x2932…296e at0007 = ╱53╱S╱ // 0x2939 @0x7
0x2932…296e at0008 = ╱43╱C╱ // 0x293a @0x8
0x2932…296e at0009 = ╱32╱2╱ // 0x293b @0x9
0x2932…296e at000a = ╱32╱2╱ // 0x293c @0xa
0x2932…296e at000b = ╱32╱2╱ // 0x293d @0xb
0x2932…296e at000c = ╱30╱0╱ // 0x293e @0xc
0x2932…296e at000d = ╱3e╱>╱ // 0x293f @0xd
0x2932…296e at000e = ╱44╱D╱ // 0x2940 @0xe
0x2932…296e at000f = ╱65╱e╱ // 0x2941 @0xf
0x2932…296e at0010 = ╱62╱b╱ // 0x2942 @0x10
0x2932…296e at0011 = ╱65╱e╱ // 0x2943 @0x11
0x2932…296e at0012 = ╱74╱t╱ // 0x2944 @0x12
0x2932…296e at0013 = ╱2f╱/╱ // 0x2945 @0x13
0x2932…296e at0014 = ╱6b╱k╱ // 0x2946 @0x14
0x2932…296e at0015 = ╱72╱r╱ // 0x2947 @0x15
0x2932…296e at0016 = ╱65╱e╱ // 0x2948 @0x16
0x2932…296e at0017 = ╱64╱d╱ // 0x2949 @0x17
0x2932…296e at0018 = ╱69╱i╱ // 0x294a @0x18
0x2932…296e at0019 = ╱74╱t╱ // 0x294b @0x19
0x2932…296e at001a = ╱20╱…╱ // 0x294c @0x1a
0x2932…296e at001b = ╱74╱t╱ // 0x294d @0x1b
0x2932…296e at001c = ╱6f╱o╱ // 0x294e @0x1c
0x2932…296e at001d = ╱74╱t╱ // 0x294f @0x1d
0x2932…296e at001e = ╱61╱a╱ // 0x2950 @0x1e
0x2932…296e at001f = ╱6c╱l╱ // 0x2951 @0x1f
0x2932…296e at0020 = ╱20╱…╱ // 0x2952 @0x20
0x2932…296e at0021 = ╱20╱…╱ // 0x2953 @0x21
0x2932…296e at0022 = ╱20╱…╱ // 0x2954 @0x22
0x2932…296e at0023 = ╱20╱…╱ // 0x2955 @0x23
0x2932…296e at0024 = ╱20╱…╱ // 0x2956 @0x24
0x2932…296e at0025 = ╱20╱…╱ // 0x2957 @0x25
0x2932…296e at0026 = ╱20╱…╱ // 0x2958 @0x26
0x2932…296e at0027 = ╱22╱"╱ // 0x2959 @0x27
0x2932…296e at0028 = ╱ea╱ ; ╱ // 0x295a @0x28
0x2932…296e at0029 = ╱d0╱ CHR$ ╱ // 0x295b @0x29
0x2932…296e at002a = ╱ed╱(╱ // 0x295c @0x2a
0x2932…296e at002b = ╱50╱P╱ // 0x295d @0x2b
0x2932…296e at002c = ╱5f╱_╱ // 0x295e @0x2c
0x2932…296e at002d = ╱44╱D╱ // 0x295f @0x2d
0x2932…296e at002e = ╱45╱E╱ // 0x2960 @0x2e
0x2932…296e at002f = ╱42╱B╱ // 0x2961 @0x2f
0x2932…296e at0030 = ╱ec╱,╱ // 0x2962 @0x30
0x2932…296e at0031 = ╱39╱9╱ // 0x2963 @0x31
0x2932…296e at0032 = ╱f20900╱ // 0x2964 @0x32
0x2932…296e at0035 = ╱ec╱,╱ // 0x2967 @0x35
0x2932…296e at0036 = ╱32╱2╱ // 0x2968 @0x36
0x2932…296e at0037 = ╱f20200╱ // 0x2969 @0x37
0x2932…296e at003a = ╱ee╱)╱ // 0x296c @0x3a
0x2932…296e at003b = EOL // 0x296d @0x3b
0x2932…296e }
0x296e…2987 bf75 4250 PRINT CHR$ (P_KRED,9,2)
0x296e…2987 LineComal80 {
0x296e…2987 ptr = 0xbf75 // 0x296e @0x0
0x296e…2987 lno = 0x109a // 0x2970 @0x2
0x296e…2987 at0004 = ╱92╱ PRINT ╱ // 0x2972 @0x4
0x296e…2987 at0005 = ╱d0╱ CHR$ ╱ // 0x2973 @0x5
0x296e…2987 at0006 = ╱ed╱(╱ // 0x2974 @0x6
0x296e…2987 at0007 = ╱50╱P╱ // 0x2975 @0x7
0x296e…2987 at0008 = ╱5f╱_╱ // 0x2976 @0x8
0x296e…2987 at0009 = ╱4b╱K╱ // 0x2977 @0x9
0x296e…2987 at000a = ╱52╱R╱ // 0x2978 @0xa
0x296e…2987 at000b = ╱45╱E╱ // 0x2979 @0xb
0x296e…2987 at000c = ╱44╱D╱ // 0x297a @0xc
0x296e…2987 at000d = ╱ec╱,╱ // 0x297b @0xd
0x296e…2987 at000e = ╱39╱9╱ // 0x297c @0xe
0x296e…2987 at000f = ╱f20900╱ // 0x297d @0xf
0x296e…2987 at0012 = ╱ec╱,╱ // 0x2980 @0x12
0x296e…2987 at0013 = ╱32╱2╱ // 0x2981 @0x13
0x296e…2987 at0014 = ╱f20200╱ // 0x2982 @0x14
0x296e…2987 at0017 = ╱ee╱)╱ // 0x2985 @0x17
0x296e…2987 at0018 = EOL // 0x2986 @0x18
0x296e…2987 }
0x2987…299b bf89 4260 IF _DEB < P_KRED THEN
0x2987…299b LineComal80 {
0x2987…299b ptr = 0xbf89 // 0x2987 @0x0
0x2987…299b lno = 0x10a4 // 0x2989 @0x2
0x2987…299b at0004 = ╱9b5150╱ IF ╱ // 0x298b @0x4
0x2987…299b at0007 = ╱5f╱_╱ // 0x298e @0x7
0x2987…299b at0008 = ╱44╱D╱ // 0x298f @0x8
0x2987…299b at0009 = ╱45╱E╱ // 0x2990 @0x9
0x2987…299b at000a = ╱42╱B╱ // 0x2991 @0xa
0x2987…299b at000b = ╱e0╱ < ╱ // 0x2992 @0xb
0x2987…299b at000c = ╱50╱P╱ // 0x2993 @0xc
0x2987…299b at000d = ╱5f╱_╱ // 0x2994 @0xd
0x2987…299b at000e = ╱4b╱K╱ // 0x2995 @0xe
0x2987…299b at000f = ╱52╱R╱ // 0x2996 @0xf
0x2987…299b at0010 = ╱45╱E╱ // 0x2997 @0x10
0x2987…299b at0011 = ╱44╱D╱ // 0x2998 @0x11
0x2987…299b at0012 = ╱b5╱ THEN ╱ // 0x2999 @0x12
0x2987…299b at0013 = EOL // 0x299a @0x13
0x2987…299b }
0x299b…29de bfcc 4270 PRINT "<SC2221>Difference " ; CHR$ (P_KRED - P_DEB,9,2)
0x299b…29de LineComal80 {
0x299b…29de ptr = 0xbfcc // 0x299b @0x0
0x299b…29de lno = 0x10ae // 0x299d @0x2
0x299b…29de at0004 = ╱92╱ PRINT ╱ // 0x299f @0x4
0x299b…29de at0005 = ╱22╱"╱ // 0x29a0 @0x5
0x299b…29de at0006 = ╱3c╱<╱ // 0x29a1 @0x6
0x299b…29de at0007 = ╱53╱S╱ // 0x29a2 @0x7
0x299b…29de at0008 = ╱43╱C╱ // 0x29a3 @0x8
0x299b…29de at0009 = ╱32╱2╱ // 0x29a4 @0x9
0x299b…29de at000a = ╱32╱2╱ // 0x29a5 @0xa
0x299b…29de at000b = ╱32╱2╱ // 0x29a6 @0xb
0x299b…29de at000c = ╱31╱1╱ // 0x29a7 @0xc
0x299b…29de at000d = ╱3e╱>╱ // 0x29a8 @0xd
0x299b…29de at000e = ╱44╱D╱ // 0x29a9 @0xe
0x299b…29de at000f = ╱69╱i╱ // 0x29aa @0xf
0x299b…29de at0010 = ╱66╱f╱ // 0x29ab @0x10
0x299b…29de at0011 = ╱66╱f╱ // 0x29ac @0x11
0x299b…29de at0012 = ╱65╱e╱ // 0x29ad @0x12
0x299b…29de at0013 = ╱72╱r╱ // 0x29ae @0x13
0x299b…29de at0014 = ╱65╱e╱ // 0x29af @0x14
0x299b…29de at0015 = ╱6e╱n╱ // 0x29b0 @0x15
0x299b…29de at0016 = ╱63╱c╱ // 0x29b1 @0x16
0x299b…29de at0017 = ╱65╱e╱ // 0x29b2 @0x17
0x299b…29de at0018 = ╱20╱…╱ // 0x29b3 @0x18
0x299b…29de at0019 = ╱20╱…╱ // 0x29b4 @0x19
0x299b…29de at001a = ╱20╱…╱ // 0x29b5 @0x1a
0x299b…29de at001b = ╱20╱…╱ // 0x29b6 @0x1b
0x299b…29de at001c = ╱20╱…╱ // 0x29b7 @0x1c
0x299b…29de at001d = ╱20╱…╱ // 0x29b8 @0x1d
0x299b…29de at001e = ╱20╱…╱ // 0x29b9 @0x1e
0x299b…29de at001f = ╱20╱…╱ // 0x29ba @0x1f
0x299b…29de at0020 = ╱20╱…╱ // 0x29bb @0x20
0x299b…29de at0021 = ╱20╱…╱ // 0x29bc @0x21
0x299b…29de at0022 = ╱20╱…╱ // 0x29bd @0x22
0x299b…29de at0023 = ╱20╱…╱ // 0x29be @0x23
0x299b…29de at0024 = ╱20╱…╱ // 0x29bf @0x24
0x299b…29de at0025 = ╱20╱…╱ // 0x29c0 @0x25
0x299b…29de at0026 = ╱20╱…╱ // 0x29c1 @0x26
0x299b…29de at0027 = ╱22╱"╱ // 0x29c2 @0x27
0x299b…29de at0028 = ╱ea╱ ; ╱ // 0x29c3 @0x28
0x299b…29de at0029 = ╱d0╱ CHR$ ╱ // 0x29c4 @0x29
0x299b…29de at002a = ╱ed╱(╱ // 0x29c5 @0x2a
0x299b…29de at002b = ╱50╱P╱ // 0x29c6 @0x2b
0x299b…29de at002c = ╱5f╱_╱ // 0x29c7 @0x2c
0x299b…29de at002d = ╱4b╱K╱ // 0x29c8 @0x2d
0x299b…29de at002e = ╱52╱R╱ // 0x29c9 @0x2e
0x299b…29de at002f = ╱45╱E╱ // 0x29ca @0x2f
0x299b…29de at0030 = ╱44╱D╱ // 0x29cb @0x30
0x299b…29de at0031 = ╱e6╱ - ╱ // 0x29cc @0x31
0x299b…29de at0032 = ╱50╱P╱ // 0x29cd @0x32
0x299b…29de at0033 = ╱5f╱_╱ // 0x29ce @0x33
0x299b…29de at0034 = ╱44╱D╱ // 0x29cf @0x34
0x299b…29de at0035 = ╱45╱E╱ // 0x29d0 @0x35
0x299b…29de at0036 = ╱42╱B╱ // 0x29d1 @0x36
0x299b…29de at0037 = ╱ec╱,╱ // 0x29d2 @0x37
0x299b…29de at0038 = ╱39╱9╱ // 0x29d3 @0x38
0x299b…29de at0039 = ╱f20900╱ // 0x29d4 @0x39
0x299b…29de at003c = ╱ec╱,╱ // 0x29d7 @0x3c
0x299b…29de at003d = ╱32╱2╱ // 0x29d8 @0x3d
0x299b…29de at003e = ╱f20200╱ // 0x29d9 @0x3e
0x299b…29de at0041 = ╱ee╱)╱ // 0x29dc @0x41
0x299b…29de at0042 = EOL // 0x29dd @0x42
0x299b…29de }
0x29de…29e5 bfd3 4280 ELSE
0x29de…29e5 LineComal80 {
0x29de…29e5 ptr = 0xbfd3 // 0x29de @0x0
0x29de…29e5 lno = 0x10b8 // 0x29e0 @0x2
0x29de…29e5 at0004 = ╱9a52╱ ELSE ╱ // 0x29e2 @0x4
0x29de…29e5 at0006 = EOL // 0x29e4 @0x6
0x29de…29e5 }
0x29e5…29f9 bfe7 4290 IF _KRED < P_DEB THEN
0x29e5…29f9 LineComal80 {
0x29e5…29f9 ptr = 0xbfe7 // 0x29e5 @0x0
0x29e5…29f9 lno = 0x10c2 // 0x29e7 @0x2
0x29e5…29f9 at0004 = ╱9b5350╱ IF ╱ // 0x29e9 @0x4
0x29e5…29f9 at0007 = ╱5f╱_╱ // 0x29ec @0x7
0x29e5…29f9 at0008 = ╱4b╱K╱ // 0x29ed @0x8
0x29e5…29f9 at0009 = ╱52╱R╱ // 0x29ee @0x9
0x29e5…29f9 at000a = ╱45╱E╱ // 0x29ef @0xa
0x29e5…29f9 at000b = ╱44╱D╱ // 0x29f0 @0xb
0x29e5…29f9 at000c = ╱e0╱ < ╱ // 0x29f1 @0xc
0x29e5…29f9 at000d = ╱50╱P╱ // 0x29f2 @0xd
0x29e5…29f9 at000e = ╱5f╱_╱ // 0x29f3 @0xe
0x29e5…29f9 at000f = ╱44╱D╱ // 0x29f4 @0xf
0x29e5…29f9 at0010 = ╱45╱E╱ // 0x29f5 @0x10
0x29e5…29f9 at0011 = ╱42╱B╱ // 0x29f6 @0x11
0x29e5…29f9 at0012 = ╱b5╱ THEN ╱ // 0x29f7 @0x12
0x29e5…29f9 at0013 = EOL // 0x29f8 @0x13
0x29e5…29f9 }
0x29f9…2a13 c001 4300 PRINT "<SC2221>Difference"
0x29f9…2a13 LineComal80 {
0x29f9…2a13 ptr = 0xc001 // 0x29f9 @0x0
0x29f9…2a13 lno = 0x10cc // 0x29fb @0x2
0x29f9…2a13 at0004 = ╱92╱ PRINT ╱ // 0x29fd @0x4
0x29f9…2a13 at0005 = ╱22╱"╱ // 0x29fe @0x5
0x29f9…2a13 at0006 = ╱3c╱<╱ // 0x29ff @0x6
0x29f9…2a13 at0007 = ╱53╱S╱ // 0x2a00 @0x7
0x29f9…2a13 at0008 = ╱43╱C╱ // 0x2a01 @0x8
0x29f9…2a13 at0009 = ╱32╱2╱ // 0x2a02 @0x9
0x29f9…2a13 at000a = ╱32╱2╱ // 0x2a03 @0xa
0x29f9…2a13 at000b = ╱32╱2╱ // 0x2a04 @0xb
0x29f9…2a13 at000c = ╱31╱1╱ // 0x2a05 @0xc
0x29f9…2a13 at000d = ╱3e╱>╱ // 0x2a06 @0xd
0x29f9…2a13 at000e = ╱44╱D╱ // 0x2a07 @0xe
0x29f9…2a13 at000f = ╱69╱i╱ // 0x2a08 @0xf
0x29f9…2a13 at0010 = ╱66╱f╱ // 0x2a09 @0x10
0x29f9…2a13 at0011 = ╱66╱f╱ // 0x2a0a @0x11
0x29f9…2a13 at0012 = ╱65╱e╱ // 0x2a0b @0x12
0x29f9…2a13 at0013 = ╱72╱r╱ // 0x2a0c @0x13
0x29f9…2a13 at0014 = ╱65╱e╱ // 0x2a0d @0x14
0x29f9…2a13 at0015 = ╱6e╱n╱ // 0x2a0e @0x15
0x29f9…2a13 at0016 = ╱63╱c╱ // 0x2a0f @0x16
0x29f9…2a13 at0017 = ╱65╱e╱ // 0x2a10 @0x17
0x29f9…2a13 at0018 = ╱22╱"╱ // 0x2a11 @0x18
0x29f9…2a13 at0019 = EOL // 0x2a12 @0x19
0x29f9…2a13 }
0x2a13…2a3d c02b 4310 PRINT "<SC5921>" ; CHR$ (P_DEB - P_KRED,9,2)
0x2a13…2a3d LineComal80 {
0x2a13…2a3d ptr = 0xc02b // 0x2a13 @0x0
0x2a13…2a3d lno = 0x10d6 // 0x2a15 @0x2
0x2a13…2a3d at0004 = ╱92╱ PRINT ╱ // 0x2a17 @0x4
0x2a13…2a3d at0005 = ╱22╱"╱ // 0x2a18 @0x5
0x2a13…2a3d at0006 = ╱3c╱<╱ // 0x2a19 @0x6
0x2a13…2a3d at0007 = ╱53╱S╱ // 0x2a1a @0x7
0x2a13…2a3d at0008 = ╱43╱C╱ // 0x2a1b @0x8
0x2a13…2a3d at0009 = ╱35╱5╱ // 0x2a1c @0x9
0x2a13…2a3d at000a = ╱39╱9╱ // 0x2a1d @0xa
0x2a13…2a3d at000b = ╱32╱2╱ // 0x2a1e @0xb
0x2a13…2a3d at000c = ╱31╱1╱ // 0x2a1f @0xc
0x2a13…2a3d at000d = ╱3e╱>╱ // 0x2a20 @0xd
0x2a13…2a3d at000e = ╱22╱"╱ // 0x2a21 @0xe
0x2a13…2a3d at000f = ╱ea╱ ; ╱ // 0x2a22 @0xf
0x2a13…2a3d at0010 = ╱d0╱ CHR$ ╱ // 0x2a23 @0x10
0x2a13…2a3d at0011 = ╱ed╱(╱ // 0x2a24 @0x11
0x2a13…2a3d at0012 = ╱50╱P╱ // 0x2a25 @0x12
0x2a13…2a3d at0013 = ╱5f╱_╱ // 0x2a26 @0x13
0x2a13…2a3d at0014 = ╱44╱D╱ // 0x2a27 @0x14
0x2a13…2a3d at0015 = ╱45╱E╱ // 0x2a28 @0x15
0x2a13…2a3d at0016 = ╱42╱B╱ // 0x2a29 @0x16
0x2a13…2a3d at0017 = ╱e6╱ - ╱ // 0x2a2a @0x17
0x2a13…2a3d at0018 = ╱50╱P╱ // 0x2a2b @0x18
0x2a13…2a3d at0019 = ╱5f╱_╱ // 0x2a2c @0x19
0x2a13…2a3d at001a = ╱4b╱K╱ // 0x2a2d @0x1a
0x2a13…2a3d at001b = ╱52╱R╱ // 0x2a2e @0x1b
0x2a13…2a3d at001c = ╱45╱E╱ // 0x2a2f @0x1c
0x2a13…2a3d at001d = ╱44╱D╱ // 0x2a30 @0x1d
0x2a13…2a3d at001e = ╱ec╱,╱ // 0x2a31 @0x1e
0x2a13…2a3d at001f = ╱39╱9╱ // 0x2a32 @0x1f
0x2a13…2a3d at0020 = ╱f20900╱ // 0x2a33 @0x20
0x2a13…2a3d at0023 = ╱ec╱,╱ // 0x2a36 @0x23
0x2a13…2a3d at0024 = ╱32╱2╱ // 0x2a37 @0x24
0x2a13…2a3d at0025 = ╱f20200╱ // 0x2a38 @0x25
0x2a13…2a3d at0028 = ╱ee╱)╱ // 0x2a3b @0x28
0x2a13…2a3d at0029 = EOL // 0x2a3c @0x29
0x2a13…2a3d }
0x2a3d…2a43 c031 4320 ENDIF
0x2a3d…2a43 LineComal80 {
0x2a3d…2a43 ptr = 0xc031 // 0x2a3d @0x0
0x2a3d…2a43 lno = 0x10e0 // 0x2a3f @0x2
0x2a3d…2a43 at0004 = ╱9c╱ ENDIF ╱ // 0x2a41 @0x4
0x2a3d…2a43 at0005 = EOL // 0x2a42 @0x5
0x2a3d…2a43 }
0x2a43…2a49 c037 4330 ENDIF
0x2a43…2a49 LineComal80 {
0x2a43…2a49 ptr = 0xc037 // 0x2a43 @0x0
0x2a43…2a49 lno = 0x10ea // 0x2a45 @0x2
0x2a43…2a49 at0004 = ╱9c╱ ENDIF ╱ // 0x2a47 @0x4
0x2a43…2a49 at0005 = EOL // 0x2a48 @0x5
0x2a43…2a49 }
0x2a49…2a59 c047 4340 ENDPROC SKRIV_DIFF
0x2a49…2a59 LineComal80 {
0x2a49…2a59 ptr = 0xc047 // 0x2a49 @0x0
0x2a49…2a59 lno = 0x10f4 // 0x2a4b @0x2
0x2a49…2a59 at0004 = ╱9f╱ ENDPROC ╱ // 0x2a4d @0x4
0x2a49…2a59 at0005 = ╱53╱S╱ // 0x2a4e @0x5
0x2a49…2a59 at0006 = ╱4b╱K╱ // 0x2a4f @0x6
0x2a49…2a59 at0007 = ╱52╱R╱ // 0x2a50 @0x7
0x2a49…2a59 at0008 = ╱49╱I╱ // 0x2a51 @0x8
0x2a49…2a59 at0009 = ╱56╱V╱ // 0x2a52 @0x9
0x2a49…2a59 at000a = ╱5f╱_╱ // 0x2a53 @0xa
0x2a49…2a59 at000b = ╱44╱D╱ // 0x2a54 @0xb
0x2a49…2a59 at000c = ╱49╱I╱ // 0x2a55 @0xc
0x2a49…2a59 at000d = ╱46╱F╱ // 0x2a56 @0xd
0x2a49…2a59 at000e = ╱46╱F╱ // 0x2a57 @0xe
0x2a49…2a59 at000f = EOL // 0x2a58 @0xf
0x2a49…2a59 }
0x2a59…2a5e c04c 4350
0x2a59…2a5e LineComal80 {
0x2a59…2a5e ptr = 0xc04c // 0x2a59 @0x0
0x2a59…2a5e lno = 0x10fe // 0x2a5b @0x2
0x2a59…2a5e at0004 = EOL // 0x2a5d @0x4
0x2a59…2a5e }
0x2a5e…2a6f c05d 4360 PROC RET_POSTER
0x2a5e…2a6f LineComal80 {
0x2a5e…2a6f ptr = 0xc05d // 0x2a5e @0x0
0x2a5e…2a6f lno = 0x1108 // 0x2a60 @0x2
0x2a5e…2a6f at0004 = ╱9e54╱ PROC ╱ // 0x2a62 @0x4
0x2a5e…2a6f at0006 = ╱52╱R╱ // 0x2a64 @0x6
0x2a5e…2a6f at0007 = ╱45╱E╱ // 0x2a65 @0x7
0x2a5e…2a6f at0008 = ╱54╱T╱ // 0x2a66 @0x8
0x2a5e…2a6f at0009 = ╱5f╱_╱ // 0x2a67 @0x9
0x2a5e…2a6f at000a = ╱50╱P╱ // 0x2a68 @0xa
0x2a5e…2a6f at000b = ╱4f╱O╱ // 0x2a69 @0xb
0x2a5e…2a6f at000c = ╱53╱S╱ // 0x2a6a @0xc
0x2a5e…2a6f at000d = ╱54╱T╱ // 0x2a6b @0xd
0x2a5e…2a6f at000e = ╱45╱E╱ // 0x2a6c @0xe
0x2a5e…2a6f at000f = ╱52╱R╱ // 0x2a6d @0xf
0x2a5e…2a6f at0010 = EOL // 0x2a6e @0x10
0x2a5e…2a6f }
0x2a6f…2ab4 c0a2 4370 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
0x2a6f…2ab4 LineComal80 {
0x2a6f…2ab4 ptr = 0xc0a2 // 0x2a6f @0x0
0x2a6f…2ab4 lno = 0x1112 // 0x2a71 @0x2
0x2a6f…2ab4 at0004 = ╱a9╱ GET ╱ // 0x2a73 @0x4
0x2a6f…2ab4 at0005 = ╱44╱D╱ // 0x2a74 @0x5
0x2a6f…2ab4 at0006 = ╱47╱G╱ // 0x2a75 @0x6
0x2a6f…2ab4 at0007 = ╱5f╱_╱ // 0x2a76 @0x7
0x2a6f…2ab4 at0008 = ╱50╱P╱ // 0x2a77 @0x8
0x2a6f…2ab4 at0009 = ╱4f╱O╱ // 0x2a78 @0x9
0x2a6f…2ab4 at000a = ╱53╱S╱ // 0x2a79 @0xa
0x2a6f…2ab4 at000b = ╱ef╱$╱ // 0x2a7a @0xb
0x2a6f…2ab4 at000c = ╱ec╱,╱ // 0x2a7b @0xc
0x2a6f…2ab4 at000d = ╱31╱1╱ // 0x2a7c @0xd
0x2a6f…2ab4 at000e = ╱f20100╱ // 0x2a7d @0xe
0x2a6f…2ab4 at0011 = ╱f1╱ : ╱ // 0x2a80 @0x11
0x2a6f…2ab4 at0012 = ╱50╱P╱ // 0x2a81 @0x12
0x2a6f…2ab4 at0013 = ╱5f╱_╱ // 0x2a82 @0x13
0x2a6f…2ab4 at0014 = ╱48╱H╱ // 0x2a83 @0x14
0x2a6f…2ab4 at0015 = ╱5c╱Ø╱ // 0x2a84 @0x15
0x2a6f…2ab4 at0016 = ╱4a╱J╱ // 0x2a85 @0x16
0x2a6f…2ab4 at0017 = ╱52╱R╱ // 0x2a86 @0x17
0x2a6f…2ab4 at0018 = ╱45╱E╱ // 0x2a87 @0x18
0x2a6f…2ab4 at0019 = ╱43╱C╱ // 0x2a88 @0x19
0x2a6f…2ab4 at001a = ╱ec╱,╱ // 0x2a89 @0x1a
0x2a6f…2ab4 at001b = ╱50╱P╱ // 0x2a8a @0x1b
0x2a6f…2ab4 at001c = ╱5f╱_╱ // 0x2a8b @0x1c
0x2a6f…2ab4 at001d = ╱4d╱M╱ // 0x2a8c @0x1d
0x2a6f…2ab4 at001e = ╱41╱A╱ // 0x2a8d @0x1e
0x2a6f…2ab4 at001f = ╱58╱X╱ // 0x2a8e @0x1f
0x2a6f…2ab4 at0020 = ╱52╱R╱ // 0x2a8f @0x20
0x2a6f…2ab4 at0021 = ╱45╱E╱ // 0x2a90 @0x21
0x2a6f…2ab4 at0022 = ╱43╱C╱ // 0x2a91 @0x22
0x2a6f…2ab4 at0023 = ╱ec╱,╱ // 0x2a92 @0x23
0x2a6f…2ab4 at0024 = ╱53╱S╱ // 0x2a93 @0x24
0x2a6f…2ab4 at0025 = ╱5f╱_╱ // 0x2a94 @0x25
0x2a6f…2ab4 at0026 = ╱4e╱N╱ // 0x2a95 @0x26
0x2a6f…2ab4 at0027 = ╱52╱R╱ // 0x2a96 @0x27
0x2a6f…2ab4 at0028 = ╱5f╱_╱ // 0x2a97 @0x28
0x2a6f…2ab4 at0029 = ╱44╱D╱ // 0x2a98 @0x29
0x2a6f…2ab4 at002a = ╱47╱G╱ // 0x2a99 @0x2a
0x2a6f…2ab4 at002b = ╱5f╱_╱ // 0x2a9a @0x2b
0x2a6f…2ab4 at002c = ╱50╱P╱ // 0x2a9b @0x2c
0x2a6f…2ab4 at002d = ╱4f╱O╱ // 0x2a9c @0x2d
0x2a6f…2ab4 at002e = ╱53╱S╱ // 0x2a9d @0x2e
0x2a6f…2ab4 at002f = ╱ec╱,╱ // 0x2a9e @0x2f
0x2a6f…2ab4 at0030 = ╱50╱P╱ // 0x2a9f @0x30
0x2a6f…2ab4 at0031 = ╱5f╱_╱ // 0x2aa0 @0x31
0x2a6f…2ab4 at0032 = ╱44╱D╱ // 0x2aa1 @0x32
0x2a6f…2ab4 at0033 = ╱45╱E╱ // 0x2aa2 @0x33
0x2a6f…2ab4 at0034 = ╱42╱B╱ // 0x2aa3 @0x34
0x2a6f…2ab4 at0035 = ╱ec╱,╱ // 0x2aa4 @0x35
0x2a6f…2ab4 at0036 = ╱50╱P╱ // 0x2aa5 @0x36
0x2a6f…2ab4 at0037 = ╱5f╱_╱ // 0x2aa6 @0x37
0x2a6f…2ab4 at0038 = ╱4b╱K╱ // 0x2aa7 @0x38
0x2a6f…2ab4 at0039 = ╱52╱R╱ // 0x2aa8 @0x39
0x2a6f…2ab4 at003a = ╱45╱E╱ // 0x2aa9 @0x3a
0x2a6f…2ab4 at003b = ╱44╱D╱ // 0x2aaa @0x3b
0x2a6f…2ab4 at003c = ╱ec╱,╱ // 0x2aab @0x3c
0x2a6f…2ab4 at003d = ╱50╱P╱ // 0x2aac @0x3d
0x2a6f…2ab4 at003e = ╱5f╱_╱ // 0x2aad @0x3e
0x2a6f…2ab4 at003f = ╱42╱B╱ // 0x2aae @0x3f
0x2a6f…2ab4 at0040 = ╱44╱D╱ // 0x2aaf @0x40
0x2a6f…2ab4 at0041 = ╱41╱A╱ // 0x2ab0 @0x41
0x2a6f…2ab4 at0042 = ╱54╱T╱ // 0x2ab1 @0x42
0x2a6f…2ab4 at0043 = ╱ef╱$╱ // 0x2ab2 @0x43
0x2a6f…2ab4 at0044 = EOL // 0x2ab3 @0x44
0x2a6f…2ab4 }
0x2ab4…2ac0 c0ae 4380 LET K := 0
0x2ab4…2ac0 LineComal80 {
0x2ab4…2ac0 ptr = 0xc0ae // 0x2ab4 @0x0
0x2ab4…2ac0 lno = 0x111c // 0x2ab6 @0x2
0x2ab4…2ac0 at0004 = ╱86╱ LET ╱ // 0x2ab8 @0x4
0x2ab4…2ac0 at0005 = ╱4b╱K╱ // 0x2ab9 @0x5
0x2ab4…2ac0 at0006 = ╱f0╱ := ╱ // 0x2aba @0x6
0x2ab4…2ac0 at0007 = ╱30╱0╱ // 0x2abb @0x7
0x2ab4…2ac0 at0008 = ╱f20000╱ // 0x2abc @0x8
0x2ab4…2ac0 at000b = EOL // 0x2abf @0xb
0x2ab4…2ac0 }
0x2ac0…2ad7 c0c5 4390 WHILE K < P_HØJREC - 1 DO
0x2ac0…2ad7 LineComal80 {
0x2ac0…2ad7 ptr = 0xc0c5 // 0x2ac0 @0x0
0x2ac0…2ad7 lno = 0x1126 // 0x2ac2 @0x2
0x2ac0…2ad7 at0004 = ╱9355╱ WHILE ╱ // 0x2ac4 @0x4
0x2ac0…2ad7 at0006 = ╱4b╱K╱ // 0x2ac6 @0x6
0x2ac0…2ad7 at0007 = ╱e0╱ < ╱ // 0x2ac7 @0x7
0x2ac0…2ad7 at0008 = ╱50╱P╱ // 0x2ac8 @0x8
0x2ac0…2ad7 at0009 = ╱5f╱_╱ // 0x2ac9 @0x9
0x2ac0…2ad7 at000a = ╱48╱H╱ // 0x2aca @0xa
0x2ac0…2ad7 at000b = ╱5c╱Ø╱ // 0x2acb @0xb
0x2ac0…2ad7 at000c = ╱4a╱J╱ // 0x2acc @0xc
0x2ac0…2ad7 at000d = ╱52╱R╱ // 0x2acd @0xd
0x2ac0…2ad7 at000e = ╱45╱E╱ // 0x2ace @0xe
0x2ac0…2ad7 at000f = ╱43╱C╱ // 0x2acf @0xf
0x2ac0…2ad7 at0010 = ╱e6╱ - ╱ // 0x2ad0 @0x10
0x2ac0…2ad7 at0011 = ╱31╱1╱ // 0x2ad1 @0x11
0x2ac0…2ad7 at0012 = ╱f20100╱ // 0x2ad2 @0x12
0x2ac0…2ad7 at0015 = ╱bb╱ DO ╱ // 0x2ad5 @0x15
0x2ac0…2ad7 at0016 = EOL // 0x2ad6 @0x16
0x2ac0…2ad7 }
0x2ad7…2b00 c0ee 4400 IF (K + 12) MOD 12 = 0 THEN EXEC DIV_POSHOVED
0x2ad7…2b00 LineComal80 {
0x2ad7…2b00 ptr = 0xc0ee // 0x2ad7 @0x0
0x2ad7…2b00 lno = 0x1130 // 0x2ad9 @0x2
0x2ad7…2b00 at0004 = ╱8200╱ IF ╱ // 0x2adb @0x4
0x2ad7…2b00 at0006 = ╱ed╱(╱ // 0x2add @0x6
0x2ad7…2b00 at0007 = ╱4b╱K╱ // 0x2ade @0x7
0x2ad7…2b00 at0008 = ╱e5╱ + ╱ // 0x2adf @0x8
0x2ad7…2b00 at0009 = ╱31╱1╱ // 0x2ae0 @0x9
0x2ad7…2b00 at000a = ╱32╱2╱ // 0x2ae1 @0xa
0x2ad7…2b00 at000b = ╱f20c00╱ // 0x2ae2 @0xb
0x2ad7…2b00 at000e = ╱ee╱)╱ // 0x2ae5 @0xe
0x2ad7…2b00 at000f = ╱db╱ MOD ╱ // 0x2ae6 @0xf
0x2ad7…2b00 at0010 = ╱31╱1╱ // 0x2ae7 @0x10
0x2ad7…2b00 at0011 = ╱32╱2╱ // 0x2ae8 @0x11
0x2ad7…2b00 at0012 = ╱f20c00╱ // 0x2ae9 @0x12
0x2ad7…2b00 at0015 = ╱df╱ = ╱ // 0x2aec @0x15
0x2ad7…2b00 at0016 = ╱30╱0╱ // 0x2aed @0x16
0x2ad7…2b00 at0017 = ╱f20000╱ // 0x2aee @0x17
0x2ad7…2b00 at001a = ╱b5╱ THEN ╱ // 0x2af1 @0x1a
0x2ad7…2b00 at001b = ╱9d╱ EXEC ╱ // 0x2af2 @0x1b
0x2ad7…2b00 at001c = ╱44╱D╱ // 0x2af3 @0x1c
0x2ad7…2b00 at001d = ╱49╱I╱ // 0x2af4 @0x1d
0x2ad7…2b00 at001e = ╱56╱V╱ // 0x2af5 @0x1e
0x2ad7…2b00 at001f = ╱5f╱_╱ // 0x2af6 @0x1f
0x2ad7…2b00 at0020 = ╱50╱P╱ // 0x2af7 @0x20
0x2ad7…2b00 at0021 = ╱4f╱O╱ // 0x2af8 @0x21
0x2ad7…2b00 at0022 = ╱53╱S╱ // 0x2af9 @0x22
0x2ad7…2b00 at0023 = ╱48╱H╱ // 0x2afa @0x23
0x2ad7…2b00 at0024 = ╱4f╱O╱ // 0x2afb @0x24
0x2ad7…2b00 at0025 = ╱56╱V╱ // 0x2afc @0x25
0x2ad7…2b00 at0026 = ╱45╱E╱ // 0x2afd @0x26
0x2ad7…2b00 at0027 = ╱44╱D╱ // 0x2afe @0x27
0x2ad7…2b00 at0028 = EOL // 0x2aff @0x28
0x2ad7…2b00 }
0x2b00…2b0e c0fc 4410 LET K := K + 1
0x2b00…2b0e LineComal80 {
0x2b00…2b0e ptr = 0xc0fc // 0x2b00 @0x0
0x2b00…2b0e lno = 0x113a // 0x2b02 @0x2
0x2b00…2b0e at0004 = ╱86╱ LET ╱ // 0x2b04 @0x4
0x2b00…2b0e at0005 = ╱4b╱K╱ // 0x2b05 @0x5
0x2b00…2b0e at0006 = ╱f0╱ := ╱ // 0x2b06 @0x6
0x2b00…2b0e at0007 = ╱4b╱K╱ // 0x2b07 @0x7
0x2b00…2b0e at0008 = ╱e5╱ + ╱ // 0x2b08 @0x8
0x2b00…2b0e at0009 = ╱31╱1╱ // 0x2b09 @0x9
0x2b00…2b0e at000a = ╱f20100╱ // 0x2b0a @0xa
0x2b00…2b0e at000d = EOL // 0x2b0d @0xd
0x2b00…2b0e }
0x2b0e…2b21 c10f 4420 EXEC LÆS_DG_POS(K)
0x2b0e…2b21 LineComal80 {
0x2b0e…2b21 ptr = 0xc10f // 0x2b0e @0x0
0x2b0e…2b21 lno = 0x1144 // 0x2b10 @0x2
0x2b0e…2b21 at0004 = ╱9d╱ EXEC ╱ // 0x2b12 @0x4
0x2b0e…2b21 at0005 = ╱4c╱L╱ // 0x2b13 @0x5
0x2b0e…2b21 at0006 = ╱5b╱Æ╱ // 0x2b14 @0x6
0x2b0e…2b21 at0007 = ╱53╱S╱ // 0x2b15 @0x7
0x2b0e…2b21 at0008 = ╱5f╱_╱ // 0x2b16 @0x8
0x2b0e…2b21 at0009 = ╱44╱D╱ // 0x2b17 @0x9
0x2b0e…2b21 at000a = ╱47╱G╱ // 0x2b18 @0xa
0x2b0e…2b21 at000b = ╱5f╱_╱ // 0x2b19 @0xb
0x2b0e…2b21 at000c = ╱50╱P╱ // 0x2b1a @0xc
0x2b0e…2b21 at000d = ╱4f╱O╱ // 0x2b1b @0xd
0x2b0e…2b21 at000e = ╱53╱S╱ // 0x2b1c @0xe
0x2b0e…2b21 at000f = ╱ed╱(╱ // 0x2b1d @0xf
0x2b0e…2b21 at0010 = ╱4b╱K╱ // 0x2b1e @0x10
0x2b0e…2b21 at0011 = ╱ee╱)╱ // 0x2b1f @0x11
0x2b0e…2b21 at0012 = EOL // 0x2b20 @0x12
0x2b0e…2b21 }
0x2b21…2b33 c121 4430 EXEC SKRIV_LIN(K)
0x2b21…2b33 LineComal80 {
0x2b21…2b33 ptr = 0xc121 // 0x2b21 @0x0
0x2b21…2b33 lno = 0x114e // 0x2b23 @0x2
0x2b21…2b33 at0004 = ╱9d╱ EXEC ╱ // 0x2b25 @0x4
0x2b21…2b33 at0005 = ╱53╱S╱ // 0x2b26 @0x5
0x2b21…2b33 at0006 = ╱4b╱K╱ // 0x2b27 @0x6
0x2b21…2b33 at0007 = ╱52╱R╱ // 0x2b28 @0x7
0x2b21…2b33 at0008 = ╱49╱I╱ // 0x2b29 @0x8
0x2b21…2b33 at0009 = ╱56╱V╱ // 0x2b2a @0x9
0x2b21…2b33 at000a = ╱5f╱_╱ // 0x2b2b @0xa
0x2b21…2b33 at000b = ╱4c╱L╱ // 0x2b2c @0xb
0x2b21…2b33 at000c = ╱49╱I╱ // 0x2b2d @0xc
0x2b21…2b33 at000d = ╱4e╱N╱ // 0x2b2e @0xd
0x2b21…2b33 at000e = ╱ed╱(╱ // 0x2b2f @0xe
0x2b21…2b33 at000f = ╱4b╱K╱ // 0x2b30 @0xf
0x2b21…2b33 at0010 = ╱ee╱)╱ // 0x2b31 @0x10
0x2b21…2b33 at0011 = EOL // 0x2b32 @0x11
0x2b21…2b33 }
0x2b33…2b62 c150 4440 IF K MOD 12 = 0 OR K = P_HØJREC - 1 THEN EXEC RET_LINIER
0x2b33…2b62 LineComal80 {
0x2b33…2b62 ptr = 0xc150 // 0x2b33 @0x0
0x2b33…2b62 lno = 0x1158 // 0x2b35 @0x2
0x2b33…2b62 at0004 = ╱8200╱ IF ╱ // 0x2b37 @0x4
0x2b33…2b62 at0006 = ╱4b╱K╱ // 0x2b39 @0x6
0x2b33…2b62 at0007 = ╱db╱ MOD ╱ // 0x2b3a @0x7
0x2b33…2b62 at0008 = ╱31╱1╱ // 0x2b3b @0x8
0x2b33…2b62 at0009 = ╱32╱2╱ // 0x2b3c @0x9
0x2b33…2b62 at000a = ╱f20c00╱ // 0x2b3d @0xa
0x2b33…2b62 at000d = ╱df╱ = ╱ // 0x2b40 @0xd
0x2b33…2b62 at000e = ╱30╱0╱ // 0x2b41 @0xe
0x2b33…2b62 at000f = ╱f20000╱ // 0x2b42 @0xf
0x2b33…2b62 at0012 = ╱d8╱ OR ╱ // 0x2b45 @0x12
0x2b33…2b62 at0013 = ╱4b╱K╱ // 0x2b46 @0x13
0x2b33…2b62 at0014 = ╱df╱ = ╱ // 0x2b47 @0x14
0x2b33…2b62 at0015 = ╱50╱P╱ // 0x2b48 @0x15
0x2b33…2b62 at0016 = ╱5f╱_╱ // 0x2b49 @0x16
0x2b33…2b62 at0017 = ╱48╱H╱ // 0x2b4a @0x17
0x2b33…2b62 at0018 = ╱5c╱Ø╱ // 0x2b4b @0x18
0x2b33…2b62 at0019 = ╱4a╱J╱ // 0x2b4c @0x19
0x2b33…2b62 at001a = ╱52╱R╱ // 0x2b4d @0x1a
0x2b33…2b62 at001b = ╱45╱E╱ // 0x2b4e @0x1b
0x2b33…2b62 at001c = ╱43╱C╱ // 0x2b4f @0x1c
0x2b33…2b62 at001d = ╱e6╱ - ╱ // 0x2b50 @0x1d
0x2b33…2b62 at001e = ╱31╱1╱ // 0x2b51 @0x1e
0x2b33…2b62 at001f = ╱f20100╱ // 0x2b52 @0x1f
0x2b33…2b62 at0022 = ╱b5╱ THEN ╱ // 0x2b55 @0x22
0x2b33…2b62 at0023 = ╱9d╱ EXEC ╱ // 0x2b56 @0x23
0x2b33…2b62 at0024 = ╱52╱R╱ // 0x2b57 @0x24
0x2b33…2b62 at0025 = ╱45╱E╱ // 0x2b58 @0x25
0x2b33…2b62 at0026 = ╱54╱T╱ // 0x2b59 @0x26
0x2b33…2b62 at0027 = ╱5f╱_╱ // 0x2b5a @0x27
0x2b33…2b62 at0028 = ╱4c╱L╱ // 0x2b5b @0x28
0x2b33…2b62 at0029 = ╱49╱I╱ // 0x2b5c @0x29
0x2b33…2b62 at002a = ╱4e╱N╱ // 0x2b5d @0x2a
0x2b33…2b62 at002b = ╱49╱I╱ // 0x2b5e @0x2b
0x2b33…2b62 at002c = ╱45╱E╱ // 0x2b5f @0x2c
0x2b33…2b62 at002d = ╱52╱R╱ // 0x2b60 @0x2d
0x2b33…2b62 at002e = EOL // 0x2b61 @0x2e
0x2b33…2b62 }
0x2b62…2b68 d6b2 4450 ENDWHILE
0x2b62…2b68 LineComal80 {
0x2b62…2b68 ptr = 0xd6b2 // 0x2b62 @0x0
0x2b62…2b68 lno = 0x1162 // 0x2b64 @0x2
0x2b62…2b68 at0004 = ╱94╱ ENDWHILE ╱ // 0x2b66 @0x4
0x2b62…2b68 at0005 = EOL // 0x2b67 @0x5
0x2b62…2b68 }
0x2b68…2b78 c166 4460 ENDPROC RET_POSTER
0x2b68…2b78 LineComal80 {
0x2b68…2b78 ptr = 0xc166 // 0x2b68 @0x0
0x2b68…2b78 lno = 0x116c // 0x2b6a @0x2
0x2b68…2b78 at0004 = ╱9f╱ ENDPROC ╱ // 0x2b6c @0x4
0x2b68…2b78 at0005 = ╱52╱R╱ // 0x2b6d @0x5
0x2b68…2b78 at0006 = ╱45╱E╱ // 0x2b6e @0x6
0x2b68…2b78 at0007 = ╱54╱T╱ // 0x2b6f @0x7
0x2b68…2b78 at0008 = ╱5f╱_╱ // 0x2b70 @0x8
0x2b68…2b78 at0009 = ╱50╱P╱ // 0x2b71 @0x9
0x2b68…2b78 at000a = ╱4f╱O╱ // 0x2b72 @0xa
0x2b68…2b78 at000b = ╱53╱S╱ // 0x2b73 @0xb
0x2b68…2b78 at000c = ╱54╱T╱ // 0x2b74 @0xc
0x2b68…2b78 at000d = ╱45╱E╱ // 0x2b75 @0xd
0x2b68…2b78 at000e = ╱52╱R╱ // 0x2b76 @0xe
0x2b68…2b78 at000f = EOL // 0x2b77 @0xf
0x2b68…2b78 }
0x2b78…2b7d c16b 4470
0x2b78…2b7d LineComal80 {
0x2b78…2b7d ptr = 0xc16b // 0x2b78 @0x0
0x2b78…2b7d lno = 0x1176 // 0x2b7a @0x2
0x2b78…2b7d at0004 = EOL // 0x2b7c @0x4
0x2b78…2b7d }
0x2b7d…2b92 c180 4480 PROC UDSKRIV_POSTER
0x2b7d…2b92 LineComal80 {
0x2b7d…2b92 ptr = 0xc180 // 0x2b7d @0x0
0x2b7d…2b92 lno = 0x1180 // 0x2b7f @0x2
0x2b7d…2b92 at0004 = ╱9e56╱ PROC ╱ // 0x2b81 @0x4
0x2b7d…2b92 at0006 = ╱55╱U╱ // 0x2b83 @0x6
0x2b7d…2b92 at0007 = ╱44╱D╱ // 0x2b84 @0x7
0x2b7d…2b92 at0008 = ╱53╱S╱ // 0x2b85 @0x8
0x2b7d…2b92 at0009 = ╱4b╱K╱ // 0x2b86 @0x9
0x2b7d…2b92 at000a = ╱52╱R╱ // 0x2b87 @0xa
0x2b7d…2b92 at000b = ╱49╱I╱ // 0x2b88 @0xb
0x2b7d…2b92 at000c = ╱56╱V╱ // 0x2b89 @0xc
0x2b7d…2b92 at000d = ╱5f╱_╱ // 0x2b8a @0xd
0x2b7d…2b92 at000e = ╱50╱P╱ // 0x2b8b @0xe
0x2b7d…2b92 at000f = ╱4f╱O╱ // 0x2b8c @0xf
0x2b7d…2b92 at0010 = ╱53╱S╱ // 0x2b8d @0x10
0x2b7d…2b92 at0011 = ╱54╱T╱ // 0x2b8e @0x11
0x2b7d…2b92 at0012 = ╱45╱E╱ // 0x2b8f @0x12
0x2b7d…2b92 at0013 = ╱52╱R╱ // 0x2b90 @0x13
0x2b7d…2b92 at0014 = EOL // 0x2b91 @0x14
0x2b7d…2b92 }
0x2b92…2bca d352 4490 EXEC OVERSKRIFT("Udskrivning af konteringskladde",7)
0x2b92…2bca LineComal80 {
0x2b92…2bca ptr = 0xd352 // 0x2b92 @0x0
0x2b92…2bca lno = 0x118a // 0x2b94 @0x2
0x2b92…2bca at0004 = ╱9d╱ EXEC ╱ // 0x2b96 @0x4
0x2b92…2bca at0005 = ╱4f╱O╱ // 0x2b97 @0x5
0x2b92…2bca at0006 = ╱56╱V╱ // 0x2b98 @0x6
0x2b92…2bca at0007 = ╱45╱E╱ // 0x2b99 @0x7
0x2b92…2bca at0008 = ╱52╱R╱ // 0x2b9a @0x8
0x2b92…2bca at0009 = ╱53╱S╱ // 0x2b9b @0x9
0x2b92…2bca at000a = ╱4b╱K╱ // 0x2b9c @0xa
0x2b92…2bca at000b = ╱52╱R╱ // 0x2b9d @0xb
0x2b92…2bca at000c = ╱49╱I╱ // 0x2b9e @0xc
0x2b92…2bca at000d = ╱46╱F╱ // 0x2b9f @0xd
0x2b92…2bca at000e = ╱54╱T╱ // 0x2ba0 @0xe
0x2b92…2bca at000f = ╱ed╱(╱ // 0x2ba1 @0xf
0x2b92…2bca at0010 = ╱22╱"╱ // 0x2ba2 @0x10
0x2b92…2bca at0011 = ╱55╱U╱ // 0x2ba3 @0x11
0x2b92…2bca at0012 = ╱64╱d╱ // 0x2ba4 @0x12
0x2b92…2bca at0013 = ╱73╱s╱ // 0x2ba5 @0x13
0x2b92…2bca at0014 = ╱6b╱k╱ // 0x2ba6 @0x14
0x2b92…2bca at0015 = ╱72╱r╱ // 0x2ba7 @0x15
0x2b92…2bca at0016 = ╱69╱i╱ // 0x2ba8 @0x16
0x2b92…2bca at0017 = ╱76╱v╱ // 0x2ba9 @0x17
0x2b92…2bca at0018 = ╱6e╱n╱ // 0x2baa @0x18
0x2b92…2bca at0019 = ╱69╱i╱ // 0x2bab @0x19
0x2b92…2bca at001a = ╱6e╱n╱ // 0x2bac @0x1a
0x2b92…2bca at001b = ╱67╱g╱ // 0x2bad @0x1b
0x2b92…2bca at001c = ╱20╱…╱ // 0x2bae @0x1c
0x2b92…2bca at001d = ╱61╱a╱ // 0x2baf @0x1d
0x2b92…2bca at001e = ╱66╱f╱ // 0x2bb0 @0x1e
0x2b92…2bca at001f = ╱20╱…╱ // 0x2bb1 @0x1f
0x2b92…2bca at0020 = ╱6b╱k╱ // 0x2bb2 @0x20
0x2b92…2bca at0021 = ╱6f╱o╱ // 0x2bb3 @0x21
0x2b92…2bca at0022 = ╱6e╱n╱ // 0x2bb4 @0x22
0x2b92…2bca at0023 = ╱74╱t╱ // 0x2bb5 @0x23
0x2b92…2bca at0024 = ╱65╱e╱ // 0x2bb6 @0x24
0x2b92…2bca at0025 = ╱72╱r╱ // 0x2bb7 @0x25
0x2b92…2bca at0026 = ╱69╱i╱ // 0x2bb8 @0x26
0x2b92…2bca at0027 = ╱6e╱n╱ // 0x2bb9 @0x27
0x2b92…2bca at0028 = ╱67╱g╱ // 0x2bba @0x28
0x2b92…2bca at0029 = ╱73╱s╱ // 0x2bbb @0x29
0x2b92…2bca at002a = ╱6b╱k╱ // 0x2bbc @0x2a
0x2b92…2bca at002b = ╱6c╱l╱ // 0x2bbd @0x2b
0x2b92…2bca at002c = ╱61╱a╱ // 0x2bbe @0x2c
0x2b92…2bca at002d = ╱64╱d╱ // 0x2bbf @0x2d
0x2b92…2bca at002e = ╱64╱d╱ // 0x2bc0 @0x2e
0x2b92…2bca at002f = ╱65╱e╱ // 0x2bc1 @0x2f
0x2b92…2bca at0030 = ╱22╱"╱ // 0x2bc2 @0x30
0x2b92…2bca at0031 = ╱ec╱,╱ // 0x2bc3 @0x31
0x2b92…2bca at0032 = ╱37╱7╱ // 0x2bc4 @0x32
0x2b92…2bca at0033 = ╱f20700╱ // 0x2bc5 @0x33
0x2b92…2bca at0036 = ╱ee╱)╱ // 0x2bc8 @0x36
0x2b92…2bca at0037 = EOL // 0x2bc9 @0x37
0x2b92…2bca }
0x2bca…2bf0 c1de 4620 EXEC PRINTRES("smal EDB-liste",12)
0x2bca…2bf0 LineComal80 {
0x2bca…2bf0 ptr = 0xc1de // 0x2bca @0x0
0x2bca…2bf0 lno = 0x120c // 0x2bcc @0x2
0x2bca…2bf0 at0004 = ╱9d╱ EXEC ╱ // 0x2bce @0x4
0x2bca…2bf0 at0005 = ╱50╱P╱ // 0x2bcf @0x5
0x2bca…2bf0 at0006 = ╱52╱R╱ // 0x2bd0 @0x6
0x2bca…2bf0 at0007 = ╱49╱I╱ // 0x2bd1 @0x7
0x2bca…2bf0 at0008 = ╱4e╱N╱ // 0x2bd2 @0x8
0x2bca…2bf0 at0009 = ╱54╱T╱ // 0x2bd3 @0x9
0x2bca…2bf0 at000a = ╱52╱R╱ // 0x2bd4 @0xa
0x2bca…2bf0 at000b = ╱45╱E╱ // 0x2bd5 @0xb
0x2bca…2bf0 at000c = ╱53╱S╱ // 0x2bd6 @0xc
0x2bca…2bf0 at000d = ╱ed╱(╱ // 0x2bd7 @0xd
0x2bca…2bf0 at000e = ╱22╱"╱ // 0x2bd8 @0xe
0x2bca…2bf0 at000f = ╱73╱s╱ // 0x2bd9 @0xf
0x2bca…2bf0 at0010 = ╱6d╱m╱ // 0x2bda @0x10
0x2bca…2bf0 at0011 = ╱61╱a╱ // 0x2bdb @0x11
0x2bca…2bf0 at0012 = ╱6c╱l╱ // 0x2bdc @0x12
0x2bca…2bf0 at0013 = ╱20╱…╱ // 0x2bdd @0x13
0x2bca…2bf0 at0014 = ╱45╱E╱ // 0x2bde @0x14
0x2bca…2bf0 at0015 = ╱44╱D╱ // 0x2bdf @0x15
0x2bca…2bf0 at0016 = ╱42╱B╱ // 0x2be0 @0x16
0x2bca…2bf0 at0017 = ╱2d╱-╱ // 0x2be1 @0x17
0x2bca…2bf0 at0018 = ╱6c╱l╱ // 0x2be2 @0x18
0x2bca…2bf0 at0019 = ╱69╱i╱ // 0x2be3 @0x19
0x2bca…2bf0 at001a = ╱73╱s╱ // 0x2be4 @0x1a
0x2bca…2bf0 at001b = ╱74╱t╱ // 0x2be5 @0x1b
0x2bca…2bf0 at001c = ╱65╱e╱ // 0x2be6 @0x1c
0x2bca…2bf0 at001d = ╱22╱"╱ // 0x2be7 @0x1d
0x2bca…2bf0 at001e = ╱ec╱,╱ // 0x2be8 @0x1e
0x2bca…2bf0 at001f = ╱31╱1╱ // 0x2be9 @0x1f
0x2bca…2bf0 at0020 = ╱32╱2╱ // 0x2bea @0x20
0x2bca…2bf0 at0021 = ╱f20c00╱ // 0x2beb @0x21
0x2bca…2bf0 at0024 = ╱ee╱)╱ // 0x2bee @0x24
0x2bca…2bf0 at0025 = EOL // 0x2bef @0x25
0x2bca…2bf0 }
0x2bf0…2c10 c1fe 4510 LET LIN_T := 100 ; MAX_LIN := 72
0x2bf0…2c10 LineComal80 {
0x2bf0…2c10 ptr = 0xc1fe // 0x2bf0 @0x0
0x2bf0…2c10 lno = 0x119e // 0x2bf2 @0x2
0x2bf0…2c10 at0004 = ╱86╱ LET ╱ // 0x2bf4 @0x4
0x2bf0…2c10 at0005 = ╱4c╱L╱ // 0x2bf5 @0x5
0x2bf0…2c10 at0006 = ╱49╱I╱ // 0x2bf6 @0x6
0x2bf0…2c10 at0007 = ╱4e╱N╱ // 0x2bf7 @0x7
0x2bf0…2c10 at0008 = ╱5f╱_╱ // 0x2bf8 @0x8
0x2bf0…2c10 at0009 = ╱54╱T╱ // 0x2bf9 @0x9
0x2bf0…2c10 at000a = ╱f0╱ := ╱ // 0x2bfa @0xa
0x2bf0…2c10 at000b = ╱31╱1╱ // 0x2bfb @0xb
0x2bf0…2c10 at000c = ╱30╱0╱ // 0x2bfc @0xc
0x2bf0…2c10 at000d = ╱30╱0╱ // 0x2bfd @0xd
0x2bf0…2c10 at000e = ╱f26400╱ // 0x2bfe @0xe
0x2bf0…2c10 at0011 = ╱ea╱ ; ╱ // 0x2c01 @0x11
0x2bf0…2c10 at0012 = ╱4d╱M╱ // 0x2c02 @0x12
0x2bf0…2c10 at0013 = ╱41╱A╱ // 0x2c03 @0x13
0x2bf0…2c10 at0014 = ╱58╱X╱ // 0x2c04 @0x14
0x2bf0…2c10 at0015 = ╱5f╱_╱ // 0x2c05 @0x15
0x2bf0…2c10 at0016 = ╱4c╱L╱ // 0x2c06 @0x16
0x2bf0…2c10 at0017 = ╱49╱I╱ // 0x2c07 @0x17
0x2bf0…2c10 at0018 = ╱4e╱N╱ // 0x2c08 @0x18
0x2bf0…2c10 at0019 = ╱f0╱ := ╱ // 0x2c09 @0x19
0x2bf0…2c10 at001a = ╱37╱7╱ // 0x2c0a @0x1a
0x2bf0…2c10 at001b = ╱32╱2╱ // 0x2c0b @0x1b
0x2bf0…2c10 at001c = ╱f24800╱ // 0x2c0c @0x1c
0x2bf0…2c10 at001f = EOL // 0x2c0f @0x1f
0x2bf0…2c10 }
0x2c10…2c55 c243 4520 GET DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
0x2c10…2c55 LineComal80 {
0x2c10…2c55 ptr = 0xc243 // 0x2c10 @0x0
0x2c10…2c55 lno = 0x11a8 // 0x2c12 @0x2
0x2c10…2c55 at0004 = ╱a9╱ GET ╱ // 0x2c14 @0x4
0x2c10…2c55 at0005 = ╱44╱D╱ // 0x2c15 @0x5
0x2c10…2c55 at0006 = ╱47╱G╱ // 0x2c16 @0x6
0x2c10…2c55 at0007 = ╱5f╱_╱ // 0x2c17 @0x7
0x2c10…2c55 at0008 = ╱50╱P╱ // 0x2c18 @0x8
0x2c10…2c55 at0009 = ╱4f╱O╱ // 0x2c19 @0x9
0x2c10…2c55 at000a = ╱53╱S╱ // 0x2c1a @0xa
0x2c10…2c55 at000b = ╱ef╱$╱ // 0x2c1b @0xb
0x2c10…2c55 at000c = ╱ec╱,╱ // 0x2c1c @0xc
0x2c10…2c55 at000d = ╱31╱1╱ // 0x2c1d @0xd
0x2c10…2c55 at000e = ╱f20100╱ // 0x2c1e @0xe
0x2c10…2c55 at0011 = ╱f1╱ : ╱ // 0x2c21 @0x11
0x2c10…2c55 at0012 = ╱50╱P╱ // 0x2c22 @0x12
0x2c10…2c55 at0013 = ╱5f╱_╱ // 0x2c23 @0x13
0x2c10…2c55 at0014 = ╱48╱H╱ // 0x2c24 @0x14
0x2c10…2c55 at0015 = ╱5c╱Ø╱ // 0x2c25 @0x15
0x2c10…2c55 at0016 = ╱4a╱J╱ // 0x2c26 @0x16
0x2c10…2c55 at0017 = ╱52╱R╱ // 0x2c27 @0x17
0x2c10…2c55 at0018 = ╱45╱E╱ // 0x2c28 @0x18
0x2c10…2c55 at0019 = ╱43╱C╱ // 0x2c29 @0x19
0x2c10…2c55 at001a = ╱ec╱,╱ // 0x2c2a @0x1a
0x2c10…2c55 at001b = ╱50╱P╱ // 0x2c2b @0x1b
0x2c10…2c55 at001c = ╱5f╱_╱ // 0x2c2c @0x1c
0x2c10…2c55 at001d = ╱4d╱M╱ // 0x2c2d @0x1d
0x2c10…2c55 at001e = ╱41╱A╱ // 0x2c2e @0x1e
0x2c10…2c55 at001f = ╱58╱X╱ // 0x2c2f @0x1f
0x2c10…2c55 at0020 = ╱52╱R╱ // 0x2c30 @0x20
0x2c10…2c55 at0021 = ╱45╱E╱ // 0x2c31 @0x21
0x2c10…2c55 at0022 = ╱43╱C╱ // 0x2c32 @0x22
0x2c10…2c55 at0023 = ╱ec╱,╱ // 0x2c33 @0x23
0x2c10…2c55 at0024 = ╱53╱S╱ // 0x2c34 @0x24
0x2c10…2c55 at0025 = ╱5f╱_╱ // 0x2c35 @0x25
0x2c10…2c55 at0026 = ╱4e╱N╱ // 0x2c36 @0x26
0x2c10…2c55 at0027 = ╱52╱R╱ // 0x2c37 @0x27
0x2c10…2c55 at0028 = ╱5f╱_╱ // 0x2c38 @0x28
0x2c10…2c55 at0029 = ╱44╱D╱ // 0x2c39 @0x29
0x2c10…2c55 at002a = ╱47╱G╱ // 0x2c3a @0x2a
0x2c10…2c55 at002b = ╱5f╱_╱ // 0x2c3b @0x2b
0x2c10…2c55 at002c = ╱50╱P╱ // 0x2c3c @0x2c
0x2c10…2c55 at002d = ╱4f╱O╱ // 0x2c3d @0x2d
0x2c10…2c55 at002e = ╱53╱S╱ // 0x2c3e @0x2e
0x2c10…2c55 at002f = ╱ec╱,╱ // 0x2c3f @0x2f
0x2c10…2c55 at0030 = ╱50╱P╱ // 0x2c40 @0x30
0x2c10…2c55 at0031 = ╱5f╱_╱ // 0x2c41 @0x31
0x2c10…2c55 at0032 = ╱44╱D╱ // 0x2c42 @0x32
0x2c10…2c55 at0033 = ╱45╱E╱ // 0x2c43 @0x33
0x2c10…2c55 at0034 = ╱42╱B╱ // 0x2c44 @0x34
0x2c10…2c55 at0035 = ╱ec╱,╱ // 0x2c45 @0x35
0x2c10…2c55 at0036 = ╱50╱P╱ // 0x2c46 @0x36
0x2c10…2c55 at0037 = ╱5f╱_╱ // 0x2c47 @0x37
0x2c10…2c55 at0038 = ╱4b╱K╱ // 0x2c48 @0x38
0x2c10…2c55 at0039 = ╱52╱R╱ // 0x2c49 @0x39
0x2c10…2c55 at003a = ╱45╱E╱ // 0x2c4a @0x3a
0x2c10…2c55 at003b = ╱44╱D╱ // 0x2c4b @0x3b
0x2c10…2c55 at003c = ╱ec╱,╱ // 0x2c4c @0x3c
0x2c10…2c55 at003d = ╱50╱P╱ // 0x2c4d @0x3d
0x2c10…2c55 at003e = ╱5f╱_╱ // 0x2c4e @0x3e
0x2c10…2c55 at003f = ╱42╱B╱ // 0x2c4f @0x3f
0x2c10…2c55 at0040 = ╱44╱D╱ // 0x2c50 @0x40
0x2c10…2c55 at0041 = ╱41╱A╱ // 0x2c51 @0x41
0x2c10…2c55 at0042 = ╱54╱T╱ // 0x2c52 @0x42
0x2c10…2c55 at0043 = ╱ef╱$╱ // 0x2c53 @0x43
0x2c10…2c55 at0044 = EOL // 0x2c54 @0x44
0x2c10…2c55 }
0x2c55…2c6c c25a 4530 LET P_DEB,P_KRED := 0
0x2c55…2c6c LineComal80 {
0x2c55…2c6c ptr = 0xc25a // 0x2c55 @0x0
0x2c55…2c6c lno = 0x11b2 // 0x2c57 @0x2
0x2c55…2c6c at0004 = ╱86╱ LET ╱ // 0x2c59 @0x4
0x2c55…2c6c at0005 = ╱50╱P╱ // 0x2c5a @0x5
0x2c55…2c6c at0006 = ╱5f╱_╱ // 0x2c5b @0x6
0x2c55…2c6c at0007 = ╱44╱D╱ // 0x2c5c @0x7
0x2c55…2c6c at0008 = ╱45╱E╱ // 0x2c5d @0x8
0x2c55…2c6c at0009 = ╱42╱B╱ // 0x2c5e @0x9
0x2c55…2c6c at000a = ╱ec╱,╱ // 0x2c5f @0xa
0x2c55…2c6c at000b = ╱50╱P╱ // 0x2c60 @0xb
0x2c55…2c6c at000c = ╱5f╱_╱ // 0x2c61 @0xc
0x2c55…2c6c at000d = ╱4b╱K╱ // 0x2c62 @0xd
0x2c55…2c6c at000e = ╱52╱R╱ // 0x2c63 @0xe
0x2c55…2c6c at000f = ╱45╱E╱ // 0x2c64 @0xf
0x2c55…2c6c at0010 = ╱44╱D╱ // 0x2c65 @0x10
0x2c55…2c6c at0011 = ╱f0╱ := ╱ // 0x2c66 @0x11
0x2c55…2c6c at0012 = ╱30╱0╱ // 0x2c67 @0x12
0x2c55…2c6c at0013 = ╱f20000╱ // 0x2c68 @0x13
0x2c55…2c6c at0016 = EOL // 0x2c6b @0x16
0x2c55…2c6c }
0x2c6c…2c88 c276 4540 FOR J := 1 TO _HØJREC - 1 DO
0x2c6c…2c88 LineComal80 {
0x2c6c…2c88 ptr = 0xc276 // 0x2c6c @0x0
0x2c6c…2c88 lno = 0x11bc // 0x2c6e @0x2
0x2c6c…2c88 at0004 = ╱8357╱ FOR ╱ // 0x2c70 @0x4
0x2c6c…2c88 at0006 = ╱4a╱J╱ // 0x2c72 @0x6
0x2c6c…2c88 at0007 = ╱f0╱ := ╱ // 0x2c73 @0x7
0x2c6c…2c88 at0008 = ╱31╱1╱ // 0x2c74 @0x8
0x2c6c…2c88 at0009 = ╱f20100╱ // 0x2c75 @0x9
0x2c6c…2c88 at000c = ╱b750╱ TO ╱ // 0x2c78 @0xc
0x2c6c…2c88 at000e = ╱5f╱_╱ // 0x2c7a @0xe
0x2c6c…2c88 at000f = ╱48╱H╱ // 0x2c7b @0xf
0x2c6c…2c88 at0010 = ╱5c╱Ø╱ // 0x2c7c @0x10
0x2c6c…2c88 at0011 = ╱4a╱J╱ // 0x2c7d @0x11
0x2c6c…2c88 at0012 = ╱52╱R╱ // 0x2c7e @0x12
0x2c6c…2c88 at0013 = ╱45╱E╱ // 0x2c7f @0x13
0x2c6c…2c88 at0014 = ╱43╱C╱ // 0x2c80 @0x14
0x2c6c…2c88 at0015 = ╱e6╱ - ╱ // 0x2c81 @0x15
0x2c6c…2c88 at0016 = ╱31╱1╱ // 0x2c82 @0x16
0x2c6c…2c88 at0017 = ╱f20100╱ // 0x2c83 @0x17
0x2c6c…2c88 at001a = ╱bb╱ DO ╱ // 0x2c86 @0x1a
0x2c6c…2c88 at001b = EOL // 0x2c87 @0x1b
0x2c6c…2c88 }
0x2c88…2c9b c289 4550 EXEC LÆS_DG_POS(J)
0x2c88…2c9b LineComal80 {
0x2c88…2c9b ptr = 0xc289 // 0x2c88 @0x0
0x2c88…2c9b lno = 0x11c6 // 0x2c8a @0x2
0x2c88…2c9b at0004 = ╱9d╱ EXEC ╱ // 0x2c8c @0x4
0x2c88…2c9b at0005 = ╱4c╱L╱ // 0x2c8d @0x5
0x2c88…2c9b at0006 = ╱5b╱Æ╱ // 0x2c8e @0x6
0x2c88…2c9b at0007 = ╱53╱S╱ // 0x2c8f @0x7
0x2c88…2c9b at0008 = ╱5f╱_╱ // 0x2c90 @0x8
0x2c88…2c9b at0009 = ╱44╱D╱ // 0x2c91 @0x9
0x2c88…2c9b at000a = ╱47╱G╱ // 0x2c92 @0xa
0x2c88…2c9b at000b = ╱5f╱_╱ // 0x2c93 @0xb
0x2c88…2c9b at000c = ╱50╱P╱ // 0x2c94 @0xc
0x2c88…2c9b at000d = ╱4f╱O╱ // 0x2c95 @0xd
0x2c88…2c9b at000e = ╱53╱S╱ // 0x2c96 @0xe
0x2c88…2c9b at000f = ╱ed╱(╱ // 0x2c97 @0xf
0x2c88…2c9b at0010 = ╱4a╱J╱ // 0x2c98 @0x10
0x2c88…2c9b at0011 = ╱ee╱)╱ // 0x2c99 @0x11
0x2c88…2c9b at0012 = EOL // 0x2c9a @0x12
0x2c88…2c9b }
0x2c9b…2caa c298 4560 EXEC PRINT_LIN
0x2c9b…2caa LineComal80 {
0x2c9b…2caa ptr = 0xc298 // 0x2c9b @0x0
0x2c9b…2caa lno = 0x11d0 // 0x2c9d @0x2
0x2c9b…2caa at0004 = ╱9d╱ EXEC ╱ // 0x2c9f @0x4
0x2c9b…2caa at0005 = ╱50╱P╱ // 0x2ca0 @0x5
0x2c9b…2caa at0006 = ╱52╱R╱ // 0x2ca1 @0x6
0x2c9b…2caa at0007 = ╱49╱I╱ // 0x2ca2 @0x7
0x2c9b…2caa at0008 = ╱4e╱N╱ // 0x2ca3 @0x8
0x2c9b…2caa at0009 = ╱54╱T╱ // 0x2ca4 @0x9
0x2c9b…2caa at000a = ╱5f╱_╱ // 0x2ca5 @0xa
0x2c9b…2caa at000b = ╱4c╱L╱ // 0x2ca6 @0xb
0x2c9b…2caa at000c = ╱49╱I╱ // 0x2ca7 @0xc
0x2c9b…2caa at000d = ╱4e╱N╱ // 0x2ca8 @0xd
0x2c9b…2caa at000e = EOL // 0x2ca9 @0xe
0x2c9b…2caa }
0x2caa…2cb1 c29f 4570 NEXT J
0x2caa…2cb1 LineComal80 {
0x2caa…2cb1 ptr = 0xc29f // 0x2caa @0x0
0x2caa…2cb1 lno = 0x11da // 0x2cac @0x2
0x2caa…2cb1 at0004 = ╱84╱ NEXT ╱ // 0x2cae @0x4
0x2caa…2cb1 at0005 = ╱4a╱J╱ // 0x2caf @0x5
0x2caa…2cb1 at0006 = EOL // 0x2cb0 @0x6
0x2caa…2cb1 }
0x2cb1…2ccc c2ba 4580 IF LIN_T >< 100 THEN EXEC AFSLUT
0x2cb1…2ccc LineComal80 {
0x2cb1…2ccc ptr = 0xc2ba // 0x2cb1 @0x0
0x2cb1…2ccc lno = 0x11e4 // 0x2cb3 @0x2
0x2cb1…2ccc at0004 = ╱8200╱ IF ╱ // 0x2cb5 @0x4
0x2cb1…2ccc at0006 = ╱4c╱L╱ // 0x2cb7 @0x6
0x2cb1…2ccc at0007 = ╱49╱I╱ // 0x2cb8 @0x7
0x2cb1…2ccc at0008 = ╱4e╱N╱ // 0x2cb9 @0x8
0x2cb1…2ccc at0009 = ╱5f╱_╱ // 0x2cba @0x9
0x2cb1…2ccc at000a = ╱54╱T╱ // 0x2cbb @0xa
0x2cb1…2ccc at000b = ╱e4╱ >< ╱ // 0x2cbc @0xb
0x2cb1…2ccc at000c = ╱31╱1╱ // 0x2cbd @0xc
0x2cb1…2ccc at000d = ╱30╱0╱ // 0x2cbe @0xd
0x2cb1…2ccc at000e = ╱30╱0╱ // 0x2cbf @0xe
0x2cb1…2ccc at000f = ╱f26400╱ // 0x2cc0 @0xf
0x2cb1…2ccc at0012 = ╱b5╱ THEN ╱ // 0x2cc3 @0x12
0x2cb1…2ccc at0013 = ╱9d╱ EXEC ╱ // 0x2cc4 @0x13
0x2cb1…2ccc at0014 = ╱41╱A╱ // 0x2cc5 @0x14
0x2cb1…2ccc at0015 = ╱46╱F╱ // 0x2cc6 @0x15
0x2cb1…2ccc at0016 = ╱53╱S╱ // 0x2cc7 @0x16
0x2cb1…2ccc at0017 = ╱4c╱L╱ // 0x2cc8 @0x17
0x2cb1…2ccc at0018 = ╱55╱U╱ // 0x2cc9 @0x18
0x2cb1…2ccc at0019 = ╱54╱T╱ // 0x2cca @0x19
0x2cb1…2ccc at001a = EOL // 0x2ccb @0x1a
0x2cb1…2ccc }
0x2ccc…2cda c2c8 4590 EXEC PRINTREL
0x2ccc…2cda LineComal80 {
0x2ccc…2cda ptr = 0xc2c8 // 0x2ccc @0x0
0x2ccc…2cda lno = 0x11ee // 0x2cce @0x2
0x2ccc…2cda at0004 = ╱9d╱ EXEC ╱ // 0x2cd0 @0x4
0x2ccc…2cda at0005 = ╱50╱P╱ // 0x2cd1 @0x5
0x2ccc…2cda at0006 = ╱52╱R╱ // 0x2cd2 @0x6
0x2ccc…2cda at0007 = ╱49╱I╱ // 0x2cd3 @0x7
0x2ccc…2cda at0008 = ╱4e╱N╱ // 0x2cd4 @0x8
0x2ccc…2cda at0009 = ╱54╱T╱ // 0x2cd5 @0x9
0x2ccc…2cda at000a = ╱52╱R╱ // 0x2cd6 @0xa
0x2ccc…2cda at000b = ╱45╱E╱ // 0x2cd7 @0xb
0x2ccc…2cda at000c = ╱4c╱L╱ // 0x2cd8 @0xc
0x2ccc…2cda at000d = EOL // 0x2cd9 @0xd
0x2ccc…2cda }
0x2cda…2d1f c30d 4600 PUT DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
0x2cda…2d1f LineComal80 {
0x2cda…2d1f ptr = 0xc30d // 0x2cda @0x0
0x2cda…2d1f lno = 0x11f8 // 0x2cdc @0x2
0x2cda…2d1f at0004 = ╱aa╱ PUT ╱ // 0x2cde @0x4
0x2cda…2d1f at0005 = ╱44╱D╱ // 0x2cdf @0x5
0x2cda…2d1f at0006 = ╱47╱G╱ // 0x2ce0 @0x6
0x2cda…2d1f at0007 = ╱5f╱_╱ // 0x2ce1 @0x7
0x2cda…2d1f at0008 = ╱50╱P╱ // 0x2ce2 @0x8
0x2cda…2d1f at0009 = ╱4f╱O╱ // 0x2ce3 @0x9
0x2cda…2d1f at000a = ╱53╱S╱ // 0x2ce4 @0xa
0x2cda…2d1f at000b = ╱ef╱$╱ // 0x2ce5 @0xb
0x2cda…2d1f at000c = ╱ec╱,╱ // 0x2ce6 @0xc
0x2cda…2d1f at000d = ╱31╱1╱ // 0x2ce7 @0xd
0x2cda…2d1f at000e = ╱f20100╱ // 0x2ce8 @0xe
0x2cda…2d1f at0011 = ╱f1╱ : ╱ // 0x2ceb @0x11
0x2cda…2d1f at0012 = ╱50╱P╱ // 0x2cec @0x12
0x2cda…2d1f at0013 = ╱5f╱_╱ // 0x2ced @0x13
0x2cda…2d1f at0014 = ╱48╱H╱ // 0x2cee @0x14
0x2cda…2d1f at0015 = ╱5c╱Ø╱ // 0x2cef @0x15
0x2cda…2d1f at0016 = ╱4a╱J╱ // 0x2cf0 @0x16
0x2cda…2d1f at0017 = ╱52╱R╱ // 0x2cf1 @0x17
0x2cda…2d1f at0018 = ╱45╱E╱ // 0x2cf2 @0x18
0x2cda…2d1f at0019 = ╱43╱C╱ // 0x2cf3 @0x19
0x2cda…2d1f at001a = ╱ec╱,╱ // 0x2cf4 @0x1a
0x2cda…2d1f at001b = ╱50╱P╱ // 0x2cf5 @0x1b
0x2cda…2d1f at001c = ╱5f╱_╱ // 0x2cf6 @0x1c
0x2cda…2d1f at001d = ╱4d╱M╱ // 0x2cf7 @0x1d
0x2cda…2d1f at001e = ╱41╱A╱ // 0x2cf8 @0x1e
0x2cda…2d1f at001f = ╱58╱X╱ // 0x2cf9 @0x1f
0x2cda…2d1f at0020 = ╱52╱R╱ // 0x2cfa @0x20
0x2cda…2d1f at0021 = ╱45╱E╱ // 0x2cfb @0x21
0x2cda…2d1f at0022 = ╱43╱C╱ // 0x2cfc @0x22
0x2cda…2d1f at0023 = ╱ec╱,╱ // 0x2cfd @0x23
0x2cda…2d1f at0024 = ╱53╱S╱ // 0x2cfe @0x24
0x2cda…2d1f at0025 = ╱5f╱_╱ // 0x2cff @0x25
0x2cda…2d1f at0026 = ╱4e╱N╱ // 0x2d00 @0x26
0x2cda…2d1f at0027 = ╱52╱R╱ // 0x2d01 @0x27
0x2cda…2d1f at0028 = ╱5f╱_╱ // 0x2d02 @0x28
0x2cda…2d1f at0029 = ╱44╱D╱ // 0x2d03 @0x29
0x2cda…2d1f at002a = ╱47╱G╱ // 0x2d04 @0x2a
0x2cda…2d1f at002b = ╱5f╱_╱ // 0x2d05 @0x2b
0x2cda…2d1f at002c = ╱50╱P╱ // 0x2d06 @0x2c
0x2cda…2d1f at002d = ╱4f╱O╱ // 0x2d07 @0x2d
0x2cda…2d1f at002e = ╱53╱S╱ // 0x2d08 @0x2e
0x2cda…2d1f at002f = ╱ec╱,╱ // 0x2d09 @0x2f
0x2cda…2d1f at0030 = ╱50╱P╱ // 0x2d0a @0x30
0x2cda…2d1f at0031 = ╱5f╱_╱ // 0x2d0b @0x31
0x2cda…2d1f at0032 = ╱44╱D╱ // 0x2d0c @0x32
0x2cda…2d1f at0033 = ╱45╱E╱ // 0x2d0d @0x33
0x2cda…2d1f at0034 = ╱42╱B╱ // 0x2d0e @0x34
0x2cda…2d1f at0035 = ╱ec╱,╱ // 0x2d0f @0x35
0x2cda…2d1f at0036 = ╱50╱P╱ // 0x2d10 @0x36
0x2cda…2d1f at0037 = ╱5f╱_╱ // 0x2d11 @0x37
0x2cda…2d1f at0038 = ╱4b╱K╱ // 0x2d12 @0x38
0x2cda…2d1f at0039 = ╱52╱R╱ // 0x2d13 @0x39
0x2cda…2d1f at003a = ╱45╱E╱ // 0x2d14 @0x3a
0x2cda…2d1f at003b = ╱44╱D╱ // 0x2d15 @0x3b
0x2cda…2d1f at003c = ╱ec╱,╱ // 0x2d16 @0x3c
0x2cda…2d1f at003d = ╱50╱P╱ // 0x2d17 @0x3d
0x2cda…2d1f at003e = ╱5f╱_╱ // 0x2d18 @0x3e
0x2cda…2d1f at003f = ╱42╱B╱ // 0x2d19 @0x3f
0x2cda…2d1f at0040 = ╱44╱D╱ // 0x2d1a @0x40
0x2cda…2d1f at0041 = ╱41╱A╱ // 0x2d1b @0x41
0x2cda…2d1f at0042 = ╱54╱T╱ // 0x2d1c @0x42
0x2cda…2d1f at0043 = ╱ef╱$╱ // 0x2d1d @0x43
0x2cda…2d1f at0044 = EOL // 0x2d1e @0x44
0x2cda…2d1f }
0x2d1f…2d33 c321 4610 ENDPROC UDSKRIV_POSTER
0x2d1f…2d33 LineComal80 {
0x2d1f…2d33 ptr = 0xc321 // 0x2d1f @0x0
0x2d1f…2d33 lno = 0x1202 // 0x2d21 @0x2
0x2d1f…2d33 at0004 = ╱9f╱ ENDPROC ╱ // 0x2d23 @0x4
0x2d1f…2d33 at0005 = ╱55╱U╱ // 0x2d24 @0x5
0x2d1f…2d33 at0006 = ╱44╱D╱ // 0x2d25 @0x6
0x2d1f…2d33 at0007 = ╱53╱S╱ // 0x2d26 @0x7
0x2d1f…2d33 at0008 = ╱4b╱K╱ // 0x2d27 @0x8
0x2d1f…2d33 at0009 = ╱52╱R╱ // 0x2d28 @0x9
0x2d1f…2d33 at000a = ╱49╱I╱ // 0x2d29 @0xa
0x2d1f…2d33 at000b = ╱56╱V╱ // 0x2d2a @0xb
0x2d1f…2d33 at000c = ╱5f╱_╱ // 0x2d2b @0xc
0x2d1f…2d33 at000d = ╱50╱P╱ // 0x2d2c @0xd
0x2d1f…2d33 at000e = ╱4f╱O╱ // 0x2d2d @0xe
0x2d1f…2d33 at000f = ╱53╱S╱ // 0x2d2e @0xf
0x2d1f…2d33 at0010 = ╱54╱T╱ // 0x2d2f @0x10
0x2d1f…2d33 at0011 = ╱45╱E╱ // 0x2d30 @0x11
0x2d1f…2d33 at0012 = ╱52╱R╱ // 0x2d31 @0x12
0x2d1f…2d33 at0013 = EOL // 0x2d32 @0x13
0x2d1f…2d33 }
0x2d33…2d38 c326 4620
0x2d33…2d38 LineComal80 {
0x2d33…2d38 ptr = 0xc326 // 0x2d33 @0x0
0x2d33…2d38 lno = 0x120c // 0x2d35 @0x2
0x2d33…2d38 at0004 = EOL // 0x2d37 @0x4
0x2d33…2d38 }
0x2d38…2d48 c336 4630 PROC SIDESKIFT
0x2d38…2d48 LineComal80 {
0x2d38…2d48 ptr = 0xc336 // 0x2d38 @0x0
0x2d38…2d48 lno = 0x1216 // 0x2d3a @0x2
0x2d38…2d48 at0004 = ╱9e58╱ PROC ╱ // 0x2d3c @0x4
0x2d38…2d48 at0006 = ╱53╱S╱ // 0x2d3e @0x6
0x2d38…2d48 at0007 = ╱49╱I╱ // 0x2d3f @0x7
0x2d38…2d48 at0008 = ╱44╱D╱ // 0x2d40 @0x8
0x2d38…2d48 at0009 = ╱45╱E╱ // 0x2d41 @0x9
0x2d38…2d48 at000a = ╱53╱S╱ // 0x2d42 @0xa
0x2d38…2d48 at000b = ╱4b╱K╱ // 0x2d43 @0xb
0x2d38…2d48 at000c = ╱49╱I╱ // 0x2d44 @0xc
0x2d38…2d48 at000d = ╱46╱F╱ // 0x2d45 @0xd
0x2d38…2d48 at000e = ╱54╱T╱ // 0x2d46 @0xe
0x2d38…2d48 at000f = EOL // 0x2d47 @0xf
0x2d38…2d48 }
0x2d48…2d60 c34e 4640 FOR I := LIN_T TO AX_LIN DO PRINT
0x2d48…2d60 LineComal80 {
0x2d48…2d60 ptr = 0xc34e // 0x2d48 @0x0
0x2d48…2d60 lno = 0x1220 // 0x2d4a @0x2
0x2d48…2d60 at0004 = ╱b400╱ FOR ╱ // 0x2d4c @0x4
0x2d48…2d60 at0006 = ╱49╱I╱ // 0x2d4e @0x6
0x2d48…2d60 at0007 = ╱f0╱ := ╱ // 0x2d4f @0x7
0x2d48…2d60 at0008 = ╱4c╱L╱ // 0x2d50 @0x8
0x2d48…2d60 at0009 = ╱49╱I╱ // 0x2d51 @0x9
0x2d48…2d60 at000a = ╱4e╱N╱ // 0x2d52 @0xa
0x2d48…2d60 at000b = ╱5f╱_╱ // 0x2d53 @0xb
0x2d48…2d60 at000c = ╱54╱T╱ // 0x2d54 @0xc
0x2d48…2d60 at000d = ╱b74d╱ TO ╱ // 0x2d55 @0xd
0x2d48…2d60 at000f = ╱41╱A╱ // 0x2d57 @0xf
0x2d48…2d60 at0010 = ╱58╱X╱ // 0x2d58 @0x10
0x2d48…2d60 at0011 = ╱5f╱_╱ // 0x2d59 @0x11
0x2d48…2d60 at0012 = ╱4c╱L╱ // 0x2d5a @0x12
0x2d48…2d60 at0013 = ╱49╱I╱ // 0x2d5b @0x13
0x2d48…2d60 at0014 = ╱4e╱N╱ // 0x2d5c @0x14
0x2d48…2d60 at0015 = ╱bb╱ DO ╱ // 0x2d5d @0x15
0x2d48…2d60 at0016 = ╱92╱ PRINT ╱ // 0x2d5e @0x16
0x2d48…2d60 at0017 = EOL // 0x2d5f @0x17
0x2d48…2d60 }
0x2d60…2d70 c35e 4650 LET LIN_T := 9
0x2d60…2d70 LineComal80 {
0x2d60…2d70 ptr = 0xc35e // 0x2d60 @0x0
0x2d60…2d70 lno = 0x122a // 0x2d62 @0x2
0x2d60…2d70 at0004 = ╱86╱ LET ╱ // 0x2d64 @0x4
0x2d60…2d70 at0005 = ╱4c╱L╱ // 0x2d65 @0x5
0x2d60…2d70 at0006 = ╱49╱I╱ // 0x2d66 @0x6
0x2d60…2d70 at0007 = ╱4e╱N╱ // 0x2d67 @0x7
0x2d60…2d70 at0008 = ╱5f╱_╱ // 0x2d68 @0x8
0x2d60…2d70 at0009 = ╱54╱T╱ // 0x2d69 @0x9
0x2d60…2d70 at000a = ╱f0╱ := ╱ // 0x2d6a @0xa
0x2d60…2d70 at000b = ╱39╱9╱ // 0x2d6b @0xb
0x2d60…2d70 at000c = ╱f20900╱ // 0x2d6c @0xc
0x2d60…2d70 at000f = EOL // 0x2d6f @0xf
0x2d60…2d70 }
0x2d70…2d8e c37c 4660 PRINT "*** " ; SYST_NAVN$ ; " ***"
0x2d70…2d8e LineComal80 {
0x2d70…2d8e ptr = 0xc37c // 0x2d70 @0x0
0x2d70…2d8e lno = 0x1234 // 0x2d72 @0x2
0x2d70…2d8e at0004 = ╱92╱ PRINT ╱ // 0x2d74 @0x4
0x2d70…2d8e at0005 = ╱22╱"╱ // 0x2d75 @0x5
0x2d70…2d8e at0006 = ╱2a╱*╱ // 0x2d76 @0x6
0x2d70…2d8e at0007 = ╱2a╱*╱ // 0x2d77 @0x7
0x2d70…2d8e at0008 = ╱2a╱*╱ // 0x2d78 @0x8
0x2d70…2d8e at0009 = ╱20╱…╱ // 0x2d79 @0x9
0x2d70…2d8e at000a = ╱22╱"╱ // 0x2d7a @0xa
0x2d70…2d8e at000b = ╱ea╱ ; ╱ // 0x2d7b @0xb
0x2d70…2d8e at000c = ╱53╱S╱ // 0x2d7c @0xc
0x2d70…2d8e at000d = ╱59╱Y╱ // 0x2d7d @0xd
0x2d70…2d8e at000e = ╱53╱S╱ // 0x2d7e @0xe
0x2d70…2d8e at000f = ╱54╱T╱ // 0x2d7f @0xf
0x2d70…2d8e at0010 = ╱5f╱_╱ // 0x2d80 @0x10
0x2d70…2d8e at0011 = ╱4e╱N╱ // 0x2d81 @0x11
0x2d70…2d8e at0012 = ╱41╱A╱ // 0x2d82 @0x12
0x2d70…2d8e at0013 = ╱56╱V╱ // 0x2d83 @0x13
0x2d70…2d8e at0014 = ╱4e╱N╱ // 0x2d84 @0x14
0x2d70…2d8e at0015 = ╱ef╱$╱ // 0x2d85 @0x15
0x2d70…2d8e at0016 = ╱ea╱ ; ╱ // 0x2d86 @0x16
0x2d70…2d8e at0017 = ╱22╱"╱ // 0x2d87 @0x17
0x2d70…2d8e at0018 = ╱20╱…╱ // 0x2d88 @0x18
0x2d70…2d8e at0019 = ╱2a╱*╱ // 0x2d89 @0x19
0x2d70…2d8e at001a = ╱2a╱*╱ // 0x2d8a @0x1a
0x2d70…2d8e at001b = ╱2a╱*╱ // 0x2d8b @0x1b
0x2d70…2d8e at001c = ╱22╱"╱ // 0x2d8c @0x1c
0x2d70…2d8e at001d = EOL // 0x2d8d @0x1d
0x2d70…2d8e }
0x2d8e…2d94 c382 4670 PRINT
0x2d8e…2d94 LineComal80 {
0x2d8e…2d94 ptr = 0xc382 // 0x2d8e @0x0
0x2d8e…2d94 lno = 0x123e // 0x2d90 @0x2
0x2d8e…2d94 at0004 = ╱92╱ PRINT ╱ // 0x2d92 @0x4
0x2d8e…2d94 at0005 = EOL // 0x2d93 @0x5
0x2d8e…2d94 }
0x2d94…2db2 c3a0 4680 PRINT "Firmanavn: " ; FIRMANAVN$
0x2d94…2db2 LineComal80 {
0x2d94…2db2 ptr = 0xc3a0 // 0x2d94 @0x0
0x2d94…2db2 lno = 0x1248 // 0x2d96 @0x2
0x2d94…2db2 at0004 = ╱92╱ PRINT ╱ // 0x2d98 @0x4
0x2d94…2db2 at0005 = ╱22╱"╱ // 0x2d99 @0x5
0x2d94…2db2 at0006 = ╱46╱F╱ // 0x2d9a @0x6
0x2d94…2db2 at0007 = ╱69╱i╱ // 0x2d9b @0x7
0x2d94…2db2 at0008 = ╱72╱r╱ // 0x2d9c @0x8
0x2d94…2db2 at0009 = ╱6d╱m╱ // 0x2d9d @0x9
0x2d94…2db2 at000a = ╱61╱a╱ // 0x2d9e @0xa
0x2d94…2db2 at000b = ╱6e╱n╱ // 0x2d9f @0xb
0x2d94…2db2 at000c = ╱61╱a╱ // 0x2da0 @0xc
0x2d94…2db2 at000d = ╱76╱v╱ // 0x2da1 @0xd
0x2d94…2db2 at000e = ╱6e╱n╱ // 0x2da2 @0xe
0x2d94…2db2 at000f = ╱3a╱:╱ // 0x2da3 @0xf
0x2d94…2db2 at0010 = ╱20╱…╱ // 0x2da4 @0x10
0x2d94…2db2 at0011 = ╱22╱"╱ // 0x2da5 @0x11
0x2d94…2db2 at0012 = ╱ea╱ ; ╱ // 0x2da6 @0x12
0x2d94…2db2 at0013 = ╱46╱F╱ // 0x2da7 @0x13
0x2d94…2db2 at0014 = ╱49╱I╱ // 0x2da8 @0x14
0x2d94…2db2 at0015 = ╱52╱R╱ // 0x2da9 @0x15
0x2d94…2db2 at0016 = ╱4d╱M╱ // 0x2daa @0x16
0x2d94…2db2 at0017 = ╱41╱A╱ // 0x2dab @0x17
0x2d94…2db2 at0018 = ╱4e╱N╱ // 0x2dac @0x18
0x2d94…2db2 at0019 = ╱41╱A╱ // 0x2dad @0x19
0x2d94…2db2 at001a = ╱56╱V╱ // 0x2dae @0x1a
0x2d94…2db2 at001b = ╱4e╱N╱ // 0x2daf @0x1b
0x2d94…2db2 at001c = ╱ef╱$╱ // 0x2db0 @0x1c
0x2d94…2db2 at001d = EOL // 0x2db1 @0x1d
0x2d94…2db2 }
0x2db2…2db8 c3a6 4690 PRINT
0x2db2…2db8 LineComal80 {
0x2db2…2db8 ptr = 0xc3a6 // 0x2db2 @0x0
0x2db2…2db8 lno = 0x1252 // 0x2db4 @0x2
0x2db2…2db8 at0004 = ╱92╱ PRINT ╱ // 0x2db6 @0x4
0x2db2…2db8 at0005 = EOL // 0x2db7 @0x5
0x2db2…2db8 }
0x2db8…2e0a (152,) c3f8 4700 PRINT "<S>*** KONTERINGSKLADDE PR. " ; P_BDAT$(1 : 2) ; "." ; P_BDAT$(3 : 2) ; "."
0x2db8…2e0a LineComal80 {
0x2db8…2e0a ptr = 0xc3f8 // 0x2db8 @0x0
0x2db8…2e0a lno = 0x125c // 0x2dba @0x2
0x2db8…2e0a at0004 = ╱92╱ PRINT ╱ // 0x2dbc @0x4
0x2db8…2e0a at0005 = ╱22╱"╱ // 0x2dbd @0x5
0x2db8…2e0a at0006 = ╱3c╱<╱ // 0x2dbe @0x6
0x2db8…2e0a at0007 = ╱53╱S╱ // 0x2dbf @0x7
0x2db8…2e0a at0008 = ╱3e╱>╱ // 0x2dc0 @0x8
0x2db8…2e0a at0009 = ╱2a╱*╱ // 0x2dc1 @0x9
0x2db8…2e0a at000a = ╱2a╱*╱ // 0x2dc2 @0xa
0x2db8…2e0a at000b = ╱2a╱*╱ // 0x2dc3 @0xb
0x2db8…2e0a at000c = ╱20╱…╱ // 0x2dc4 @0xc
0x2db8…2e0a at000d = ╱4b╱K╱ // 0x2dc5 @0xd
0x2db8…2e0a at000e = ╱4f╱O╱ // 0x2dc6 @0xe
0x2db8…2e0a at000f = ╱4e╱N╱ // 0x2dc7 @0xf
0x2db8…2e0a at0010 = ╱54╱T╱ // 0x2dc8 @0x10
0x2db8…2e0a at0011 = ╱45╱E╱ // 0x2dc9 @0x11
0x2db8…2e0a at0012 = ╱52╱R╱ // 0x2dca @0x12
0x2db8…2e0a at0013 = ╱49╱I╱ // 0x2dcb @0x13
0x2db8…2e0a at0014 = ╱4e╱N╱ // 0x2dcc @0x14
0x2db8…2e0a at0015 = ╱47╱G╱ // 0x2dcd @0x15
0x2db8…2e0a at0016 = ╱53╱S╱ // 0x2dce @0x16
0x2db8…2e0a at0017 = ╱4b╱K╱ // 0x2dcf @0x17
0x2db8…2e0a at0018 = ╱4c╱L╱ // 0x2dd0 @0x18
0x2db8…2e0a at0019 = ╱41╱A╱ // 0x2dd1 @0x19
0x2db8…2e0a at001a = ╱44╱D╱ // 0x2dd2 @0x1a
0x2db8…2e0a at001b = ╱44╱D╱ // 0x2dd3 @0x1b
0x2db8…2e0a at001c = ╱45╱E╱ // 0x2dd4 @0x1c
0x2db8…2e0a at001d = ╱20╱…╱ // 0x2dd5 @0x1d
0x2db8…2e0a at001e = ╱50╱P╱ // 0x2dd6 @0x1e
0x2db8…2e0a at001f = ╱52╱R╱ // 0x2dd7 @0x1f
0x2db8…2e0a at0020 = ╱2e╱.╱ // 0x2dd8 @0x20
0x2db8…2e0a at0021 = ╱20╱…╱ // 0x2dd9 @0x21
0x2db8…2e0a at0022 = ╱22╱"╱ // 0x2dda @0x22
0x2db8…2e0a at0023 = ╱ea╱ ; ╱ // 0x2ddb @0x23
0x2db8…2e0a at0024 = ╱50╱P╱ // 0x2ddc @0x24
0x2db8…2e0a at0025 = ╱5f╱_╱ // 0x2ddd @0x25
0x2db8…2e0a at0026 = ╱42╱B╱ // 0x2dde @0x26
0x2db8…2e0a at0027 = ╱44╱D╱ // 0x2ddf @0x27
0x2db8…2e0a at0028 = ╱41╱A╱ // 0x2de0 @0x28
0x2db8…2e0a at0029 = ╱54╱T╱ // 0x2de1 @0x29
0x2db8…2e0a at002a = ╱ef╱$╱ // 0x2de2 @0x2a
0x2db8…2e0a at002b = ╱ed╱(╱ // 0x2de3 @0x2b
0x2db8…2e0a at002c = ╱31╱1╱ // 0x2de4 @0x2c
0x2db8…2e0a at002d = ╱f20100╱ // 0x2de5 @0x2d
0x2db8…2e0a at0030 = ╱f1╱ : ╱ // 0x2de8 @0x30
0x2db8…2e0a at0031 = ╱32╱2╱ // 0x2de9 @0x31
0x2db8…2e0a at0032 = ╱f20200╱ // 0x2dea @0x32
0x2db8…2e0a at0035 = ╱ee╱)╱ // 0x2ded @0x35
0x2db8…2e0a at0036 = ╱ea╱ ; ╱ // 0x2dee @0x36
0x2db8…2e0a at0037 = ╱22╱"╱ // 0x2def @0x37
0x2db8…2e0a at0038 = ╱2e╱.╱ // 0x2df0 @0x38
0x2db8…2e0a at0039 = ╱22╱"╱ // 0x2df1 @0x39
0x2db8…2e0a at003a = ╱ea╱ ; ╱ // 0x2df2 @0x3a
0x2db8…2e0a at003b = ╱50╱P╱ // 0x2df3 @0x3b
0x2db8…2e0a at003c = ╱5f╱_╱ // 0x2df4 @0x3c
0x2db8…2e0a at003d = ╱42╱B╱ // 0x2df5 @0x3d
0x2db8…2e0a at003e = ╱44╱D╱ // 0x2df6 @0x3e
0x2db8…2e0a at003f = ╱41╱A╱ // 0x2df7 @0x3f
0x2db8…2e0a at0040 = ╱54╱T╱ // 0x2df8 @0x40
0x2db8…2e0a at0041 = ╱ef╱$╱ // 0x2df9 @0x41
0x2db8…2e0a at0042 = ╱ed╱(╱ // 0x2dfa @0x42
0x2db8…2e0a at0043 = ╱33╱3╱ // 0x2dfb @0x43
0x2db8…2e0a at0044 = ╱f20300╱ // 0x2dfc @0x44
0x2db8…2e0a at0047 = ╱f1╱ : ╱ // 0x2dff @0x47
0x2db8…2e0a at0048 = ╱32╱2╱ // 0x2e00 @0x48
0x2db8…2e0a at0049 = ╱f20200╱ // 0x2e01 @0x49
0x2db8…2e0a at004c = ╱ee╱)╱ // 0x2e04 @0x4c
0x2db8…2e0a at004d = ╱ea╱ ; ╱ // 0x2e05 @0x4d
0x2db8…2e0a at004e = ╱22╱"╱ // 0x2e06 @0x4e
0x2db8…2e0a at004f = ╱2e╱.╱ // 0x2e07 @0x4f
0x2db8…2e0a at0050 = ╱22╱"╱ // 0x2e08 @0x50
0x2db8…2e0a at0051 = EOL // 0x2e09 @0x51
0x2db8…2e0a }
0x2e0a…2e3f c42d 4710 PRINT "<S>" ; P_BDAT$(5 : 2) ; " **** UDSKREVET PR. "
0x2e0a…2e3f LineComal80 {
0x2e0a…2e3f ptr = 0xc42d // 0x2e0a @0x0
0x2e0a…2e3f lno = 0x1266 // 0x2e0c @0x2
0x2e0a…2e3f at0004 = ╱92╱ PRINT ╱ // 0x2e0e @0x4
0x2e0a…2e3f at0005 = ╱22╱"╱ // 0x2e0f @0x5
0x2e0a…2e3f at0006 = ╱3c╱<╱ // 0x2e10 @0x6
0x2e0a…2e3f at0007 = ╱53╱S╱ // 0x2e11 @0x7
0x2e0a…2e3f at0008 = ╱3e╱>╱ // 0x2e12 @0x8
0x2e0a…2e3f at0009 = ╱22╱"╱ // 0x2e13 @0x9
0x2e0a…2e3f at000a = ╱ea╱ ; ╱ // 0x2e14 @0xa
0x2e0a…2e3f at000b = ╱50╱P╱ // 0x2e15 @0xb
0x2e0a…2e3f at000c = ╱5f╱_╱ // 0x2e16 @0xc
0x2e0a…2e3f at000d = ╱42╱B╱ // 0x2e17 @0xd
0x2e0a…2e3f at000e = ╱44╱D╱ // 0x2e18 @0xe
0x2e0a…2e3f at000f = ╱41╱A╱ // 0x2e19 @0xf
0x2e0a…2e3f at0010 = ╱54╱T╱ // 0x2e1a @0x10
0x2e0a…2e3f at0011 = ╱ef╱$╱ // 0x2e1b @0x11
0x2e0a…2e3f at0012 = ╱ed╱(╱ // 0x2e1c @0x12
0x2e0a…2e3f at0013 = ╱35╱5╱ // 0x2e1d @0x13
0x2e0a…2e3f at0014 = ╱f20500╱ // 0x2e1e @0x14
0x2e0a…2e3f at0017 = ╱f1╱ : ╱ // 0x2e21 @0x17
0x2e0a…2e3f at0018 = ╱32╱2╱ // 0x2e22 @0x18
0x2e0a…2e3f at0019 = ╱f20200╱ // 0x2e23 @0x19
0x2e0a…2e3f at001c = ╱ee╱)╱ // 0x2e26 @0x1c
0x2e0a…2e3f at001d = ╱ea╱ ; ╱ // 0x2e27 @0x1d
0x2e0a…2e3f at001e = ╱22╱"╱ // 0x2e28 @0x1e
0x2e0a…2e3f at001f = ╱20╱…╱ // 0x2e29 @0x1f
0x2e0a…2e3f at0020 = ╱2a╱*╱ // 0x2e2a @0x20
0x2e0a…2e3f at0021 = ╱2a╱*╱ // 0x2e2b @0x21
0x2e0a…2e3f at0022 = ╱2a╱*╱ // 0x2e2c @0x22
0x2e0a…2e3f at0023 = ╱2a╱*╱ // 0x2e2d @0x23
0x2e0a…2e3f at0024 = ╱20╱…╱ // 0x2e2e @0x24
0x2e0a…2e3f at0025 = ╱55╱U╱ // 0x2e2f @0x25
0x2e0a…2e3f at0026 = ╱44╱D╱ // 0x2e30 @0x26
0x2e0a…2e3f at0027 = ╱53╱S╱ // 0x2e31 @0x27
0x2e0a…2e3f at0028 = ╱4b╱K╱ // 0x2e32 @0x28
0x2e0a…2e3f at0029 = ╱52╱R╱ // 0x2e33 @0x29
0x2e0a…2e3f at002a = ╱45╱E╱ // 0x2e34 @0x2a
0x2e0a…2e3f at002b = ╱56╱V╱ // 0x2e35 @0x2b
0x2e0a…2e3f at002c = ╱45╱E╱ // 0x2e36 @0x2c
0x2e0a…2e3f at002d = ╱54╱T╱ // 0x2e37 @0x2d
0x2e0a…2e3f at002e = ╱20╱…╱ // 0x2e38 @0x2e
0x2e0a…2e3f at002f = ╱50╱P╱ // 0x2e39 @0x2f
0x2e0a…2e3f at0030 = ╱52╱R╱ // 0x2e3a @0x30
0x2e0a…2e3f at0031 = ╱2e╱.╱ // 0x2e3b @0x31
0x2e0a…2e3f at0032 = ╱20╱…╱ // 0x2e3c @0x32
0x2e0a…2e3f at0033 = ╱22╱"╱ // 0x2e3d @0x33
0x2e0a…2e3f at0034 = EOL // 0x2e3e @0x34
0x2e0a…2e3f }
0x2e3f…2e92 c480 4720 PRINT SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "." ; SYST_DAT$(5 : 2) ; " ***"
0x2e3f…2e92 LineComal80 {
0x2e3f…2e92 ptr = 0xc480 // 0x2e3f @0x0
0x2e3f…2e92 lno = 0x1270 // 0x2e41 @0x2
0x2e3f…2e92 at0004 = ╱92╱ PRINT ╱ // 0x2e43 @0x4
0x2e3f…2e92 at0005 = ╱53╱S╱ // 0x2e44 @0x5
0x2e3f…2e92 at0006 = ╱59╱Y╱ // 0x2e45 @0x6
0x2e3f…2e92 at0007 = ╱53╱S╱ // 0x2e46 @0x7
0x2e3f…2e92 at0008 = ╱54╱T╱ // 0x2e47 @0x8
0x2e3f…2e92 at0009 = ╱5f╱_╱ // 0x2e48 @0x9
0x2e3f…2e92 at000a = ╱44╱D╱ // 0x2e49 @0xa
0x2e3f…2e92 at000b = ╱41╱A╱ // 0x2e4a @0xb
0x2e3f…2e92 at000c = ╱54╱T╱ // 0x2e4b @0xc
0x2e3f…2e92 at000d = ╱ef╱$╱ // 0x2e4c @0xd
0x2e3f…2e92 at000e = ╱ed╱(╱ // 0x2e4d @0xe
0x2e3f…2e92 at000f = ╱31╱1╱ // 0x2e4e @0xf
0x2e3f…2e92 at0010 = ╱f20100╱ // 0x2e4f @0x10
0x2e3f…2e92 at0013 = ╱f1╱ : ╱ // 0x2e52 @0x13
0x2e3f…2e92 at0014 = ╱32╱2╱ // 0x2e53 @0x14
0x2e3f…2e92 at0015 = ╱f20200╱ // 0x2e54 @0x15
0x2e3f…2e92 at0018 = ╱ee╱)╱ // 0x2e57 @0x18
0x2e3f…2e92 at0019 = ╱ea╱ ; ╱ // 0x2e58 @0x19
0x2e3f…2e92 at001a = ╱22╱"╱ // 0x2e59 @0x1a
0x2e3f…2e92 at001b = ╱2e╱.╱ // 0x2e5a @0x1b
0x2e3f…2e92 at001c = ╱22╱"╱ // 0x2e5b @0x1c
0x2e3f…2e92 at001d = ╱ea╱ ; ╱ // 0x2e5c @0x1d
0x2e3f…2e92 at001e = ╱53╱S╱ // 0x2e5d @0x1e
0x2e3f…2e92 at001f = ╱59╱Y╱ // 0x2e5e @0x1f
0x2e3f…2e92 at0020 = ╱53╱S╱ // 0x2e5f @0x20
0x2e3f…2e92 at0021 = ╱54╱T╱ // 0x2e60 @0x21
0x2e3f…2e92 at0022 = ╱5f╱_╱ // 0x2e61 @0x22
0x2e3f…2e92 at0023 = ╱44╱D╱ // 0x2e62 @0x23
0x2e3f…2e92 at0024 = ╱41╱A╱ // 0x2e63 @0x24
0x2e3f…2e92 at0025 = ╱54╱T╱ // 0x2e64 @0x25
0x2e3f…2e92 at0026 = ╱ef╱$╱ // 0x2e65 @0x26
0x2e3f…2e92 at0027 = ╱ed╱(╱ // 0x2e66 @0x27
0x2e3f…2e92 at0028 = ╱33╱3╱ // 0x2e67 @0x28
0x2e3f…2e92 at0029 = ╱f20300╱ // 0x2e68 @0x29
0x2e3f…2e92 at002c = ╱f1╱ : ╱ // 0x2e6b @0x2c
0x2e3f…2e92 at002d = ╱32╱2╱ // 0x2e6c @0x2d
0x2e3f…2e92 at002e = ╱f20200╱ // 0x2e6d @0x2e
0x2e3f…2e92 at0031 = ╱ee╱)╱ // 0x2e70 @0x31
0x2e3f…2e92 at0032 = ╱ea╱ ; ╱ // 0x2e71 @0x32
0x2e3f…2e92 at0033 = ╱22╱"╱ // 0x2e72 @0x33
0x2e3f…2e92 at0034 = ╱2e╱.╱ // 0x2e73 @0x34
0x2e3f…2e92 at0035 = ╱22╱"╱ // 0x2e74 @0x35
0x2e3f…2e92 at0036 = ╱ea╱ ; ╱ // 0x2e75 @0x36
0x2e3f…2e92 at0037 = ╱53╱S╱ // 0x2e76 @0x37
0x2e3f…2e92 at0038 = ╱59╱Y╱ // 0x2e77 @0x38
0x2e3f…2e92 at0039 = ╱53╱S╱ // 0x2e78 @0x39
0x2e3f…2e92 at003a = ╱54╱T╱ // 0x2e79 @0x3a
0x2e3f…2e92 at003b = ╱5f╱_╱ // 0x2e7a @0x3b
0x2e3f…2e92 at003c = ╱44╱D╱ // 0x2e7b @0x3c
0x2e3f…2e92 at003d = ╱41╱A╱ // 0x2e7c @0x3d
0x2e3f…2e92 at003e = ╱54╱T╱ // 0x2e7d @0x3e
0x2e3f…2e92 at003f = ╱ef╱$╱ // 0x2e7e @0x3f
0x2e3f…2e92 at0040 = ╱ed╱(╱ // 0x2e7f @0x40
0x2e3f…2e92 at0041 = ╱35╱5╱ // 0x2e80 @0x41
0x2e3f…2e92 at0042 = ╱f20500╱ // 0x2e81 @0x42
0x2e3f…2e92 at0045 = ╱f1╱ : ╱ // 0x2e84 @0x45
0x2e3f…2e92 at0046 = ╱32╱2╱ // 0x2e85 @0x46
0x2e3f…2e92 at0047 = ╱f20200╱ // 0x2e86 @0x47
0x2e3f…2e92 at004a = ╱ee╱)╱ // 0x2e89 @0x4a
0x2e3f…2e92 at004b = ╱ea╱ ; ╱ // 0x2e8a @0x4b
0x2e3f…2e92 at004c = ╱22╱"╱ // 0x2e8b @0x4c
0x2e3f…2e92 at004d = ╱20╱…╱ // 0x2e8c @0x4d
0x2e3f…2e92 at004e = ╱2a╱*╱ // 0x2e8d @0x4e
0x2e3f…2e92 at004f = ╱2a╱*╱ // 0x2e8e @0x4f
0x2e3f…2e92 at0050 = ╱2a╱*╱ // 0x2e8f @0x50
0x2e3f…2e92 at0051 = ╱22╱"╱ // 0x2e90 @0x51
0x2e3f…2e92 at0052 = EOL // 0x2e91 @0x52
0x2e3f…2e92 }
0x2e92…2e98 d0ee 4730 PRINT
0x2e92…2e98 LineComal80 {
0x2e92…2e98 ptr = 0xd0ee // 0x2e92 @0x0
0x2e92…2e98 lno = 0x127a // 0x2e94 @0x2
0x2e92…2e98 at0004 = ╱92╱ PRINT ╱ // 0x2e96 @0x4
0x2e92…2e98 at0005 = EOL // 0x2e97 @0x5
0x2e92…2e98 }
0x2e98…2ed8 c4c6 4860 PRINT "<S>BILAG TEKST MK KONTONR DEBET "
0x2e98…2ed8 LineComal80 {
0x2e98…2ed8 ptr = 0xc4c6 // 0x2e98 @0x0
0x2e98…2ed8 lno = 0x12fc // 0x2e9a @0x2
0x2e98…2ed8 at0004 = ╱92╱ PRINT ╱ // 0x2e9c @0x4
0x2e98…2ed8 at0005 = ╱22╱"╱ // 0x2e9d @0x5
0x2e98…2ed8 at0006 = ╱3c╱<╱ // 0x2e9e @0x6
0x2e98…2ed8 at0007 = ╱53╱S╱ // 0x2e9f @0x7
0x2e98…2ed8 at0008 = ╱3e╱>╱ // 0x2ea0 @0x8
0x2e98…2ed8 at0009 = ╱42╱B╱ // 0x2ea1 @0x9
0x2e98…2ed8 at000a = ╱49╱I╱ // 0x2ea2 @0xa
0x2e98…2ed8 at000b = ╱4c╱L╱ // 0x2ea3 @0xb
0x2e98…2ed8 at000c = ╱41╱A╱ // 0x2ea4 @0xc
0x2e98…2ed8 at000d = ╱47╱G╱ // 0x2ea5 @0xd
0x2e98…2ed8 at000e = ╱20╱…╱ // 0x2ea6 @0xe
0x2e98…2ed8 at000f = ╱20╱…╱ // 0x2ea7 @0xf
0x2e98…2ed8 at0010 = ╱54╱T╱ // 0x2ea8 @0x10
0x2e98…2ed8 at0011 = ╱45╱E╱ // 0x2ea9 @0x11
0x2e98…2ed8 at0012 = ╱4b╱K╱ // 0x2eaa @0x12
0x2e98…2ed8 at0013 = ╱53╱S╱ // 0x2eab @0x13
0x2e98…2ed8 at0014 = ╱54╱T╱ // 0x2eac @0x14
0x2e98…2ed8 at0015 = ╱20╱…╱ // 0x2ead @0x15
0x2e98…2ed8 at0016 = ╱20╱…╱ // 0x2eae @0x16
0x2e98…2ed8 at0017 = ╱20╱…╱ // 0x2eaf @0x17
0x2e98…2ed8 at0018 = ╱20╱…╱ // 0x2eb0 @0x18
0x2e98…2ed8 at0019 = ╱20╱…╱ // 0x2eb1 @0x19
0x2e98…2ed8 at001a = ╱20╱…╱ // 0x2eb2 @0x1a
0x2e98…2ed8 at001b = ╱20╱…╱ // 0x2eb3 @0x1b
0x2e98…2ed8 at001c = ╱20╱…╱ // 0x2eb4 @0x1c
0x2e98…2ed8 at001d = ╱20╱…╱ // 0x2eb5 @0x1d
0x2e98…2ed8 at001e = ╱20╱…╱ // 0x2eb6 @0x1e
0x2e98…2ed8 at001f = ╱20╱…╱ // 0x2eb7 @0x1f
0x2e98…2ed8 at0020 = ╱20╱…╱ // 0x2eb8 @0x20
0x2e98…2ed8 at0021 = ╱20╱…╱ // 0x2eb9 @0x21
0x2e98…2ed8 at0022 = ╱20╱…╱ // 0x2eba @0x22
0x2e98…2ed8 at0023 = ╱20╱…╱ // 0x2ebb @0x23
0x2e98…2ed8 at0024 = ╱20╱…╱ // 0x2ebc @0x24
0x2e98…2ed8 at0025 = ╱20╱…╱ // 0x2ebd @0x25
0x2e98…2ed8 at0026 = ╱4d╱M╱ // 0x2ebe @0x26
0x2e98…2ed8 at0027 = ╱4b╱K╱ // 0x2ebf @0x27
0x2e98…2ed8 at0028 = ╱20╱…╱ // 0x2ec0 @0x28
0x2e98…2ed8 at0029 = ╱20╱…╱ // 0x2ec1 @0x29
0x2e98…2ed8 at002a = ╱4b╱K╱ // 0x2ec2 @0x2a
0x2e98…2ed8 at002b = ╱4f╱O╱ // 0x2ec3 @0x2b
0x2e98…2ed8 at002c = ╱4e╱N╱ // 0x2ec4 @0x2c
0x2e98…2ed8 at002d = ╱54╱T╱ // 0x2ec5 @0x2d
0x2e98…2ed8 at002e = ╱4f╱O╱ // 0x2ec6 @0x2e
0x2e98…2ed8 at002f = ╱4e╱N╱ // 0x2ec7 @0x2f
0x2e98…2ed8 at0030 = ╱52╱R╱ // 0x2ec8 @0x30
0x2e98…2ed8 at0031 = ╱20╱…╱ // 0x2ec9 @0x31
0x2e98…2ed8 at0032 = ╱20╱…╱ // 0x2eca @0x32
0x2e98…2ed8 at0033 = ╱20╱…╱ // 0x2ecb @0x33
0x2e98…2ed8 at0034 = ╱20╱…╱ // 0x2ecc @0x34
0x2e98…2ed8 at0035 = ╱20╱…╱ // 0x2ecd @0x35
0x2e98…2ed8 at0036 = ╱44╱D╱ // 0x2ece @0x36
0x2e98…2ed8 at0037 = ╱45╱E╱ // 0x2ecf @0x37
0x2e98…2ed8 at0038 = ╱42╱B╱ // 0x2ed0 @0x38
0x2e98…2ed8 at0039 = ╱45╱E╱ // 0x2ed1 @0x39
0x2e98…2ed8 at003a = ╱54╱T╱ // 0x2ed2 @0x3a
0x2e98…2ed8 at003b = ╱20╱…╱ // 0x2ed3 @0x3b
0x2e98…2ed8 at003c = ╱20╱…╱ // 0x2ed4 @0x3c
0x2e98…2ed8 at003d = ╱20╱…╱ // 0x2ed5 @0x3d
0x2e98…2ed8 at003e = ╱22╱"╱ // 0x2ed6 @0x3e
0x2e98…2ed8 at003f = EOL // 0x2ed7 @0x3f
0x2e98…2ed8 }
0x2ed8…2eec c4da 4870 PRINT " KREDIT "
0x2ed8…2eec LineComal80 {
0x2ed8…2eec ptr = 0xc4da // 0x2ed8 @0x0
0x2ed8…2eec lno = 0x1306 // 0x2eda @0x2
0x2ed8…2eec at0004 = ╱92╱ PRINT ╱ // 0x2edc @0x4
0x2ed8…2eec at0005 = ╱22╱"╱ // 0x2edd @0x5
0x2ed8…2eec at0006 = ╱20╱…╱ // 0x2ede @0x6
0x2ed8…2eec at0007 = ╱20╱…╱ // 0x2edf @0x7
0x2ed8…2eec at0008 = ╱20╱…╱ // 0x2ee0 @0x8
0x2ed8…2eec at0009 = ╱20╱…╱ // 0x2ee1 @0x9
0x2ed8…2eec at000a = ╱4b╱K╱ // 0x2ee2 @0xa
0x2ed8…2eec at000b = ╱52╱R╱ // 0x2ee3 @0xb
0x2ed8…2eec at000c = ╱45╱E╱ // 0x2ee4 @0xc
0x2ed8…2eec at000d = ╱44╱D╱ // 0x2ee5 @0xd
0x2ed8…2eec at000e = ╱49╱I╱ // 0x2ee6 @0xe
0x2ed8…2eec at000f = ╱54╱T╱ // 0x2ee7 @0xf
0x2ed8…2eec at0010 = ╱20╱…╱ // 0x2ee8 @0x10
0x2ed8…2eec at0011 = ╱20╱…╱ // 0x2ee9 @0x11
0x2ed8…2eec at0012 = ╱22╱"╱ // 0x2eea @0x12
0x2ed8…2eec at0013 = EOL // 0x2eeb @0x13
0x2ed8…2eec }
0x2eec…2f2c (156,) c51a 4880 PRINT "<S>----- -------------------- -- -------- ----------"
0x2eec…2f2c LineComal80 {
0x2eec…2f2c ptr = 0xc51a // 0x2eec @0x0
0x2eec…2f2c lno = 0x1310 // 0x2eee @0x2
0x2eec…2f2c at0004 = ╱92╱ PRINT ╱ // 0x2ef0 @0x4
0x2eec…2f2c at0005 = ╱22╱"╱ // 0x2ef1 @0x5
0x2eec…2f2c at0006 = ╱3c╱<╱ // 0x2ef2 @0x6
0x2eec…2f2c at0007 = ╱53╱S╱ // 0x2ef3 @0x7
0x2eec…2f2c at0008 = ╱3e╱>╱ // 0x2ef4 @0x8
0x2eec…2f2c at0009 = ╱2d╱-╱ // 0x2ef5 @0x9
0x2eec…2f2c at000a = ╱2d╱-╱ // 0x2ef6 @0xa
0x2eec…2f2c at000b = ╱2d╱-╱ // 0x2ef7 @0xb
0x2eec…2f2c at000c = ╱2d╱-╱ // 0x2ef8 @0xc
0x2eec…2f2c at000d = ╱2d╱-╱ // 0x2ef9 @0xd
0x2eec…2f2c at000e = ╱20╱…╱ // 0x2efa @0xe
0x2eec…2f2c at000f = ╱20╱…╱ // 0x2efb @0xf
0x2eec…2f2c at0010 = ╱2d╱-╱ // 0x2efc @0x10
0x2eec…2f2c at0011 = ╱2d╱-╱ // 0x2efd @0x11
0x2eec…2f2c at0012 = ╱2d╱-╱ // 0x2efe @0x12
0x2eec…2f2c at0013 = ╱2d╱-╱ // 0x2eff @0x13
0x2eec…2f2c at0014 = ╱2d╱-╱ // 0x2f00 @0x14
0x2eec…2f2c at0015 = ╱2d╱-╱ // 0x2f01 @0x15
0x2eec…2f2c at0016 = ╱2d╱-╱ // 0x2f02 @0x16
0x2eec…2f2c at0017 = ╱2d╱-╱ // 0x2f03 @0x17
0x2eec…2f2c at0018 = ╱2d╱-╱ // 0x2f04 @0x18
0x2eec…2f2c at0019 = ╱2d╱-╱ // 0x2f05 @0x19
0x2eec…2f2c at001a = ╱2d╱-╱ // 0x2f06 @0x1a
0x2eec…2f2c at001b = ╱2d╱-╱ // 0x2f07 @0x1b
0x2eec…2f2c at001c = ╱2d╱-╱ // 0x2f08 @0x1c
0x2eec…2f2c at001d = ╱2d╱-╱ // 0x2f09 @0x1d
0x2eec…2f2c at001e = ╱2d╱-╱ // 0x2f0a @0x1e
0x2eec…2f2c at001f = ╱2d╱-╱ // 0x2f0b @0x1f
0x2eec…2f2c at0020 = ╱2d╱-╱ // 0x2f0c @0x20
0x2eec…2f2c at0021 = ╱2d╱-╱ // 0x2f0d @0x21
0x2eec…2f2c at0022 = ╱2d╱-╱ // 0x2f0e @0x22
0x2eec…2f2c at0023 = ╱2d╱-╱ // 0x2f0f @0x23
0x2eec…2f2c at0024 = ╱20╱…╱ // 0x2f10 @0x24
0x2eec…2f2c at0025 = ╱20╱…╱ // 0x2f11 @0x25
0x2eec…2f2c at0026 = ╱2d╱-╱ // 0x2f12 @0x26
0x2eec…2f2c at0027 = ╱2d╱-╱ // 0x2f13 @0x27
0x2eec…2f2c at0028 = ╱20╱…╱ // 0x2f14 @0x28
0x2eec…2f2c at0029 = ╱20╱…╱ // 0x2f15 @0x29
0x2eec…2f2c at002a = ╱2d╱-╱ // 0x2f16 @0x2a
0x2eec…2f2c at002b = ╱2d╱-╱ // 0x2f17 @0x2b
0x2eec…2f2c at002c = ╱2d╱-╱ // 0x2f18 @0x2c
0x2eec…2f2c at002d = ╱2d╱-╱ // 0x2f19 @0x2d
0x2eec…2f2c at002e = ╱2d╱-╱ // 0x2f1a @0x2e
0x2eec…2f2c at002f = ╱2d╱-╱ // 0x2f1b @0x2f
0x2eec…2f2c at0030 = ╱2d╱-╱ // 0x2f1c @0x30
0x2eec…2f2c at0031 = ╱2d╱-╱ // 0x2f1d @0x31
0x2eec…2f2c at0032 = ╱20╱…╱ // 0x2f1e @0x32
0x2eec…2f2c at0033 = ╱20╱…╱ // 0x2f1f @0x33
0x2eec…2f2c at0034 = ╱2d╱-╱ // 0x2f20 @0x34
0x2eec…2f2c at0035 = ╱2d╱-╱ // 0x2f21 @0x35
0x2eec…2f2c at0036 = ╱2d╱-╱ // 0x2f22 @0x36
0x2eec…2f2c at0037 = ╱2d╱-╱ // 0x2f23 @0x37
0x2eec…2f2c at0038 = ╱2d╱-╱ // 0x2f24 @0x38
0x2eec…2f2c at0039 = ╱2d╱-╱ // 0x2f25 @0x39
0x2eec…2f2c at003a = ╱2d╱-╱ // 0x2f26 @0x3a
0x2eec…2f2c at003b = ╱2d╱-╱ // 0x2f27 @0x3b
0x2eec…2f2c at003c = ╱2d╱-╱ // 0x2f28 @0x3c
0x2eec…2f2c at003d = ╱2d╱-╱ // 0x2f29 @0x3d
0x2eec…2f2c at003e = ╱22╱"╱ // 0x2f2a @0x3e
0x2eec…2f2c at003f = EOL // 0x2f2b @0x3f
0x2eec…2f2c }
0x2f2c…2f40 c52e 4890 PRINT " ----------"
0x2f2c…2f40 LineComal80 {
0x2f2c…2f40 ptr = 0xc52e // 0x2f2c @0x0
0x2f2c…2f40 lno = 0x131a // 0x2f2e @0x2
0x2f2c…2f40 at0004 = ╱92╱ PRINT ╱ // 0x2f30 @0x4
0x2f2c…2f40 at0005 = ╱22╱"╱ // 0x2f31 @0x5
0x2f2c…2f40 at0006 = ╱20╱…╱ // 0x2f32 @0x6
0x2f2c…2f40 at0007 = ╱20╱…╱ // 0x2f33 @0x7
0x2f2c…2f40 at0008 = ╱2d╱-╱ // 0x2f34 @0x8
0x2f2c…2f40 at0009 = ╱2d╱-╱ // 0x2f35 @0x9
0x2f2c…2f40 at000a = ╱2d╱-╱ // 0x2f36 @0xa
0x2f2c…2f40 at000b = ╱2d╱-╱ // 0x2f37 @0xb
0x2f2c…2f40 at000c = ╱2d╱-╱ // 0x2f38 @0xc
0x2f2c…2f40 at000d = ╱2d╱-╱ // 0x2f39 @0xd
0x2f2c…2f40 at000e = ╱2d╱-╱ // 0x2f3a @0xe
0x2f2c…2f40 at000f = ╱2d╱-╱ // 0x2f3b @0xf
0x2f2c…2f40 at0010 = ╱2d╱-╱ // 0x2f3c @0x10
0x2f2c…2f40 at0011 = ╱2d╱-╱ // 0x2f3d @0x11
0x2f2c…2f40 at0012 = ╱22╱"╱ // 0x2f3e @0x12
0x2f2c…2f40 at0013 = EOL // 0x2f3f @0x13
0x2f2c…2f40 }
0x2f40…2f5e c54c 4900 IF _DEB > 0 OR P_KRED > 0 THEN
0x2f40…2f5e LineComal80 {
0x2f40…2f5e ptr = 0xc54c // 0x2f40 @0x0
0x2f40…2f5e lno = 0x1324 // 0x2f42 @0x2
0x2f40…2f5e at0004 = ╱9b0050╱ IF ╱ // 0x2f44 @0x4
0x2f40…2f5e at0007 = ╱5f╱_╱ // 0x2f47 @0x7
0x2f40…2f5e at0008 = ╱44╱D╱ // 0x2f48 @0x8
0x2f40…2f5e at0009 = ╱45╱E╱ // 0x2f49 @0x9
0x2f40…2f5e at000a = ╱42╱B╱ // 0x2f4a @0xa
0x2f40…2f5e at000b = ╱e1╱ > ╱ // 0x2f4b @0xb
0x2f40…2f5e at000c = ╱30╱0╱ // 0x2f4c @0xc
0x2f40…2f5e at000d = ╱f20000╱ // 0x2f4d @0xd
0x2f40…2f5e at0010 = ╱d8╱ OR ╱ // 0x2f50 @0x10
0x2f40…2f5e at0011 = ╱50╱P╱ // 0x2f51 @0x11
0x2f40…2f5e at0012 = ╱5f╱_╱ // 0x2f52 @0x12
0x2f40…2f5e at0013 = ╱4b╱K╱ // 0x2f53 @0x13
0x2f40…2f5e at0014 = ╱52╱R╱ // 0x2f54 @0x14
0x2f40…2f5e at0015 = ╱45╱E╱ // 0x2f55 @0x15
0x2f40…2f5e at0016 = ╱44╱D╱ // 0x2f56 @0x16
0x2f40…2f5e at0017 = ╱e1╱ > ╱ // 0x2f57 @0x17
0x2f40…2f5e at0018 = ╱30╱0╱ // 0x2f58 @0x18
0x2f40…2f5e at0019 = ╱f20000╱ // 0x2f59 @0x19
0x2f40…2f5e at001c = ╱b5╱ THEN ╱ // 0x2f5c @0x1c
0x2f40…2f5e at001d = EOL // 0x2f5d @0x1d
0x2f40…2f5e }
0x2f5e…2fa7 c595 4910 PRINT TAB(8) ; "TRANSPORT" ; TAB(41) ; CHR$ (P_DEB,9,2) ; CHR$ (P_KRED,9,2)
0x2f5e…2fa7 LineComal80 {
0x2f5e…2fa7 ptr = 0xc595 // 0x2f5e @0x0
0x2f5e…2fa7 lno = 0x132e // 0x2f60 @0x2
0x2f5e…2fa7 at0004 = ╱92╱ PRINT ╱ // 0x2f62 @0x4
0x2f5e…2fa7 at0005 = ╱d2╱TAB╱ // 0x2f63 @0x5
0x2f5e…2fa7 at0006 = ╱ed╱(╱ // 0x2f64 @0x6
0x2f5e…2fa7 at0007 = ╱38╱8╱ // 0x2f65 @0x7
0x2f5e…2fa7 at0008 = ╱f20800╱ // 0x2f66 @0x8
0x2f5e…2fa7 at000b = ╱ee╱)╱ // 0x2f69 @0xb
0x2f5e…2fa7 at000c = ╱ea╱ ; ╱ // 0x2f6a @0xc
0x2f5e…2fa7 at000d = ╱22╱"╱ // 0x2f6b @0xd
0x2f5e…2fa7 at000e = ╱54╱T╱ // 0x2f6c @0xe
0x2f5e…2fa7 at000f = ╱52╱R╱ // 0x2f6d @0xf
0x2f5e…2fa7 at0010 = ╱41╱A╱ // 0x2f6e @0x10
0x2f5e…2fa7 at0011 = ╱4e╱N╱ // 0x2f6f @0x11
0x2f5e…2fa7 at0012 = ╱53╱S╱ // 0x2f70 @0x12
0x2f5e…2fa7 at0013 = ╱50╱P╱ // 0x2f71 @0x13
0x2f5e…2fa7 at0014 = ╱4f╱O╱ // 0x2f72 @0x14
0x2f5e…2fa7 at0015 = ╱52╱R╱ // 0x2f73 @0x15
0x2f5e…2fa7 at0016 = ╱54╱T╱ // 0x2f74 @0x16
0x2f5e…2fa7 at0017 = ╱22╱"╱ // 0x2f75 @0x17
0x2f5e…2fa7 at0018 = ╱ea╱ ; ╱ // 0x2f76 @0x18
0x2f5e…2fa7 at0019 = ╱d2╱TAB╱ // 0x2f77 @0x19
0x2f5e…2fa7 at001a = ╱ed╱(╱ // 0x2f78 @0x1a
0x2f5e…2fa7 at001b = ╱34╱4╱ // 0x2f79 @0x1b
0x2f5e…2fa7 at001c = ╱31╱1╱ // 0x2f7a @0x1c
0x2f5e…2fa7 at001d = ╱f22900╱ // 0x2f7b @0x1d
0x2f5e…2fa7 at0020 = ╱ee╱)╱ // 0x2f7e @0x20
0x2f5e…2fa7 at0021 = ╱ea╱ ; ╱ // 0x2f7f @0x21
0x2f5e…2fa7 at0022 = ╱d0╱ CHR$ ╱ // 0x2f80 @0x22
0x2f5e…2fa7 at0023 = ╱ed╱(╱ // 0x2f81 @0x23
0x2f5e…2fa7 at0024 = ╱50╱P╱ // 0x2f82 @0x24
0x2f5e…2fa7 at0025 = ╱5f╱_╱ // 0x2f83 @0x25
0x2f5e…2fa7 at0026 = ╱44╱D╱ // 0x2f84 @0x26
0x2f5e…2fa7 at0027 = ╱45╱E╱ // 0x2f85 @0x27
0x2f5e…2fa7 at0028 = ╱42╱B╱ // 0x2f86 @0x28
0x2f5e…2fa7 at0029 = ╱ec╱,╱ // 0x2f87 @0x29
0x2f5e…2fa7 at002a = ╱39╱9╱ // 0x2f88 @0x2a
0x2f5e…2fa7 at002b = ╱f20900╱ // 0x2f89 @0x2b
0x2f5e…2fa7 at002e = ╱ec╱,╱ // 0x2f8c @0x2e
0x2f5e…2fa7 at002f = ╱32╱2╱ // 0x2f8d @0x2f
0x2f5e…2fa7 at0030 = ╱f20200╱ // 0x2f8e @0x30
0x2f5e…2fa7 at0033 = ╱ee╱)╱ // 0x2f91 @0x33
0x2f5e…2fa7 at0034 = ╱ea╱ ; ╱ // 0x2f92 @0x34
0x2f5e…2fa7 at0035 = ╱d0╱ CHR$ ╱ // 0x2f93 @0x35
0x2f5e…2fa7 at0036 = ╱ed╱(╱ // 0x2f94 @0x36
0x2f5e…2fa7 at0037 = ╱50╱P╱ // 0x2f95 @0x37
0x2f5e…2fa7 at0038 = ╱5f╱_╱ // 0x2f96 @0x38
0x2f5e…2fa7 at0039 = ╱4b╱K╱ // 0x2f97 @0x39
0x2f5e…2fa7 at003a = ╱52╱R╱ // 0x2f98 @0x3a
0x2f5e…2fa7 at003b = ╱45╱E╱ // 0x2f99 @0x3b
0x2f5e…2fa7 at003c = ╱44╱D╱ // 0x2f9a @0x3c
0x2f5e…2fa7 at003d = ╱ec╱,╱ // 0x2f9b @0x3d
0x2f5e…2fa7 at003e = ╱39╱9╱ // 0x2f9c @0x3e
0x2f5e…2fa7 at003f = ╱f20900╱ // 0x2f9d @0x3f
0x2f5e…2fa7 at0042 = ╱ec╱,╱ // 0x2fa0 @0x42
0x2f5e…2fa7 at0043 = ╱32╱2╱ // 0x2fa1 @0x43
0x2f5e…2fa7 at0044 = ╱f20200╱ // 0x2fa2 @0x44
0x2f5e…2fa7 at0047 = ╱ee╱)╱ // 0x2fa5 @0x47
0x2f5e…2fa7 at0048 = EOL // 0x2fa6 @0x48
0x2f5e…2fa7 }
0x2fa7…2fbd c5ab 4920 LET LIN_T := LIN_T + 1
0x2fa7…2fbd LineComal80 {
0x2fa7…2fbd ptr = 0xc5ab // 0x2fa7 @0x0
0x2fa7…2fbd lno = 0x1338 // 0x2fa9 @0x2
0x2fa7…2fbd at0004 = ╱86╱ LET ╱ // 0x2fab @0x4
0x2fa7…2fbd at0005 = ╱4c╱L╱ // 0x2fac @0x5
0x2fa7…2fbd at0006 = ╱49╱I╱ // 0x2fad @0x6
0x2fa7…2fbd at0007 = ╱4e╱N╱ // 0x2fae @0x7
0x2fa7…2fbd at0008 = ╱5f╱_╱ // 0x2faf @0x8
0x2fa7…2fbd at0009 = ╱54╱T╱ // 0x2fb0 @0x9
0x2fa7…2fbd at000a = ╱f0╱ := ╱ // 0x2fb1 @0xa
0x2fa7…2fbd at000b = ╱4c╱L╱ // 0x2fb2 @0xb
0x2fa7…2fbd at000c = ╱49╱I╱ // 0x2fb3 @0xc
0x2fa7…2fbd at000d = ╱4e╱N╱ // 0x2fb4 @0xd
0x2fa7…2fbd at000e = ╱5f╱_╱ // 0x2fb5 @0xe
0x2fa7…2fbd at000f = ╱54╱T╱ // 0x2fb6 @0xf
0x2fa7…2fbd at0010 = ╱e5╱ + ╱ // 0x2fb7 @0x10
0x2fa7…2fbd at0011 = ╱31╱1╱ // 0x2fb8 @0x11
0x2fa7…2fbd at0012 = ╱f20100╱ // 0x2fb9 @0x12
0x2fa7…2fbd at0015 = EOL // 0x2fbc @0x15
0x2fa7…2fbd }
0x2fbd…2fc3 c5b1 4930 ENDIF
0x2fbd…2fc3 LineComal80 {
0x2fbd…2fc3 ptr = 0xc5b1 // 0x2fbd @0x0
0x2fbd…2fc3 lno = 0x1342 // 0x2fbf @0x2
0x2fbd…2fc3 at0004 = ╱9c╱ ENDIF ╱ // 0x2fc1 @0x4
0x2fbd…2fc3 at0005 = EOL // 0x2fc2 @0x5
0x2fbd…2fc3 }
0x2fc3…2fd2 c5c0 4940 ENDPROC SIDESKIFT
0x2fc3…2fd2 LineComal80 {
0x2fc3…2fd2 ptr = 0xc5c0 // 0x2fc3 @0x0
0x2fc3…2fd2 lno = 0x134c // 0x2fc5 @0x2
0x2fc3…2fd2 at0004 = ╱9f╱ ENDPROC ╱ // 0x2fc7 @0x4
0x2fc3…2fd2 at0005 = ╱53╱S╱ // 0x2fc8 @0x5
0x2fc3…2fd2 at0006 = ╱49╱I╱ // 0x2fc9 @0x6
0x2fc3…2fd2 at0007 = ╱44╱D╱ // 0x2fca @0x7
0x2fc3…2fd2 at0008 = ╱45╱E╱ // 0x2fcb @0x8
0x2fc3…2fd2 at0009 = ╱53╱S╱ // 0x2fcc @0x9
0x2fc3…2fd2 at000a = ╱4b╱K╱ // 0x2fcd @0xa
0x2fc3…2fd2 at000b = ╱49╱I╱ // 0x2fce @0xb
0x2fc3…2fd2 at000c = ╱46╱F╱ // 0x2fcf @0xc
0x2fc3…2fd2 at000d = ╱54╱T╱ // 0x2fd0 @0xd
0x2fc3…2fd2 at000e = EOL // 0x2fd1 @0xe
0x2fc3…2fd2 }
0x2fd2…2fd7 c5c5 4950
0x2fd2…2fd7 LineComal80 {
0x2fd2…2fd7 ptr = 0xc5c5 // 0x2fd2 @0x0
0x2fd2…2fd7 lno = 0x1356 // 0x2fd4 @0x2
0x2fd2…2fd7 at0004 = EOL // 0x2fd6 @0x4
0x2fd2…2fd7 }
0x2fd7…2fe7 c5d5 4960 PROC PRINT_LIN
0x2fd7…2fe7 LineComal80 {
0x2fd7…2fe7 ptr = 0xc5d5 // 0x2fd7 @0x0
0x2fd7…2fe7 lno = 0x1360 // 0x2fd9 @0x2
0x2fd7…2fe7 at0004 = ╱9e00╱ PROC ╱ // 0x2fdb @0x4
0x2fd7…2fe7 at0006 = ╱50╱P╱ // 0x2fdd @0x6
0x2fd7…2fe7 at0007 = ╱52╱R╱ // 0x2fde @0x7
0x2fd7…2fe7 at0008 = ╱49╱I╱ // 0x2fdf @0x8
0x2fd7…2fe7 at0009 = ╱4e╱N╱ // 0x2fe0 @0x9
0x2fd7…2fe7 at000a = ╱54╱T╱ // 0x2fe1 @0xa
0x2fd7…2fe7 at000b = ╱5f╱_╱ // 0x2fe2 @0xb
0x2fd7…2fe7 at000c = ╱4c╱L╱ // 0x2fe3 @0xc
0x2fd7…2fe7 at000d = ╱49╱I╱ // 0x2fe4 @0xd
0x2fd7…2fe7 at000e = ╱4e╱N╱ // 0x2fe5 @0xe
0x2fd7…2fe7 at000f = EOL // 0x2fe6 @0xf
0x2fd7…2fe7 }
0x2fe7…2ffe c5ec 4970 IF P_BNR$ = "*****" THEN EXIT
0x2fe7…2ffe LineComal80 {
0x2fe7…2ffe ptr = 0xc5ec // 0x2fe7 @0x0
0x2fe7…2ffe lno = 0x136a // 0x2fe9 @0x2
0x2fe7…2ffe at0004 = ╱8200╱ IF ╱ // 0x2feb @0x4
0x2fe7…2ffe at0006 = ╱50╱P╱ // 0x2fed @0x6
0x2fe7…2ffe at0007 = ╱5f╱_╱ // 0x2fee @0x7
0x2fe7…2ffe at0008 = ╱42╱B╱ // 0x2fef @0x8
0x2fe7…2ffe at0009 = ╱4e╱N╱ // 0x2ff0 @0x9
0x2fe7…2ffe at000a = ╱52╱R╱ // 0x2ff1 @0xa
0x2fe7…2ffe at000b = ╱ef╱$╱ // 0x2ff2 @0xb
0x2fe7…2ffe at000c = ╱df╱ = ╱ // 0x2ff3 @0xc
0x2fe7…2ffe at000d = ╱22╱"╱ // 0x2ff4 @0xd
0x2fe7…2ffe at000e = ╱2a╱*╱ // 0x2ff5 @0xe
0x2fe7…2ffe at000f = ╱2a╱*╱ // 0x2ff6 @0xf
0x2fe7…2ffe at0010 = ╱2a╱*╱ // 0x2ff7 @0x10
0x2fe7…2ffe at0011 = ╱2a╱*╱ // 0x2ff8 @0x11
0x2fe7…2ffe at0012 = ╱2a╱*╱ // 0x2ff9 @0x12
0x2fe7…2ffe at0013 = ╱22╱"╱ // 0x2ffa @0x13
0x2fe7…2ffe at0014 = ╱b5╱ THEN ╱ // 0x2ffb @0x14
0x2fe7…2ffe at0015 = ╱99╱ EXIT ╱ // 0x2ffc @0x15
0x2fe7…2ffe at0016 = EOL // 0x2ffd @0x16
0x2fe7…2ffe }
0x2ffe…3018 c606 4980 IF IN_T + 5 > MAX_LIN THEN
0x2ffe…3018 LineComal80 {
0x2ffe…3018 ptr = 0xc606 // 0x2ffe @0x0
0x2ffe…3018 lno = 0x1374 // 0x3000 @0x2
0x2ffe…3018 at0004 = ╱9b004c╱ IF ╱ // 0x3002 @0x4
0x2ffe…3018 at0007 = ╱49╱I╱ // 0x3005 @0x7
0x2ffe…3018 at0008 = ╱4e╱N╱ // 0x3006 @0x8
0x2ffe…3018 at0009 = ╱5f╱_╱ // 0x3007 @0x9
0x2ffe…3018 at000a = ╱54╱T╱ // 0x3008 @0xa
0x2ffe…3018 at000b = ╱e5╱ + ╱ // 0x3009 @0xb
0x2ffe…3018 at000c = ╱35╱5╱ // 0x300a @0xc
0x2ffe…3018 at000d = ╱f20500╱ // 0x300b @0xd
0x2ffe…3018 at0010 = ╱e1╱ > ╱ // 0x300e @0x10
0x2ffe…3018 at0011 = ╱4d╱M╱ // 0x300f @0x11
0x2ffe…3018 at0012 = ╱41╱A╱ // 0x3010 @0x12
0x2ffe…3018 at0013 = ╱58╱X╱ // 0x3011 @0x13
0x2ffe…3018 at0014 = ╱5f╱_╱ // 0x3012 @0x14
0x2ffe…3018 at0015 = ╱4c╱L╱ // 0x3013 @0x15
0x2ffe…3018 at0016 = ╱49╱I╱ // 0x3014 @0x16
0x2ffe…3018 at0017 = ╱4e╱N╱ // 0x3015 @0x17
0x2ffe…3018 at0018 = ╱b5╱ THEN ╱ // 0x3016 @0x18
0x2ffe…3018 at0019 = EOL // 0x3017 @0x19
0x2ffe…3018 }
0x3018…3036 c624 4990 IF _DEB > 0 OR P_KRED > 0 THEN
0x3018…3036 LineComal80 {
0x3018…3036 ptr = 0xc624 // 0x3018 @0x0
0x3018…3036 lno = 0x137e // 0x301a @0x2
0x3018…3036 at0004 = ╱9b0050╱ IF ╱ // 0x301c @0x4
0x3018…3036 at0007 = ╱5f╱_╱ // 0x301f @0x7
0x3018…3036 at0008 = ╱44╱D╱ // 0x3020 @0x8
0x3018…3036 at0009 = ╱45╱E╱ // 0x3021 @0x9
0x3018…3036 at000a = ╱42╱B╱ // 0x3022 @0xa
0x3018…3036 at000b = ╱e1╱ > ╱ // 0x3023 @0xb
0x3018…3036 at000c = ╱30╱0╱ // 0x3024 @0xc
0x3018…3036 at000d = ╱f20000╱ // 0x3025 @0xd
0x3018…3036 at0010 = ╱d8╱ OR ╱ // 0x3028 @0x10
0x3018…3036 at0011 = ╱50╱P╱ // 0x3029 @0x11
0x3018…3036 at0012 = ╱5f╱_╱ // 0x302a @0x12
0x3018…3036 at0013 = ╱4b╱K╱ // 0x302b @0x13
0x3018…3036 at0014 = ╱52╱R╱ // 0x302c @0x14
0x3018…3036 at0015 = ╱45╱E╱ // 0x302d @0x15
0x3018…3036 at0016 = ╱44╱D╱ // 0x302e @0x16
0x3018…3036 at0017 = ╱e1╱ > ╱ // 0x302f @0x17
0x3018…3036 at0018 = ╱30╱0╱ // 0x3030 @0x18
0x3018…3036 at0019 = ╱f20000╱ // 0x3031 @0x19
0x3018…3036 at001c = ╱b5╱ THEN ╱ // 0x3034 @0x1c
0x3018…3036 at001d = EOL // 0x3035 @0x1d
0x3018…3036 }
0x3036…3078 c666 5000 PRINT "<S>----- -------------------- -- -------- ---------- "
0x3036…3078 LineComal80 {
0x3036…3078 ptr = 0xc666 // 0x3036 @0x0
0x3036…3078 lno = 0x1388 // 0x3038 @0x2
0x3036…3078 at0004 = ╱92╱ PRINT ╱ // 0x303a @0x4
0x3036…3078 at0005 = ╱22╱"╱ // 0x303b @0x5
0x3036…3078 at0006 = ╱3c╱<╱ // 0x303c @0x6
0x3036…3078 at0007 = ╱53╱S╱ // 0x303d @0x7
0x3036…3078 at0008 = ╱3e╱>╱ // 0x303e @0x8
0x3036…3078 at0009 = ╱2d╱-╱ // 0x303f @0x9
0x3036…3078 at000a = ╱2d╱-╱ // 0x3040 @0xa
0x3036…3078 at000b = ╱2d╱-╱ // 0x3041 @0xb
0x3036…3078 at000c = ╱2d╱-╱ // 0x3042 @0xc
0x3036…3078 at000d = ╱2d╱-╱ // 0x3043 @0xd
0x3036…3078 at000e = ╱20╱…╱ // 0x3044 @0xe
0x3036…3078 at000f = ╱20╱…╱ // 0x3045 @0xf
0x3036…3078 at0010 = ╱2d╱-╱ // 0x3046 @0x10
0x3036…3078 at0011 = ╱2d╱-╱ // 0x3047 @0x11
0x3036…3078 at0012 = ╱2d╱-╱ // 0x3048 @0x12
0x3036…3078 at0013 = ╱2d╱-╱ // 0x3049 @0x13
0x3036…3078 at0014 = ╱2d╱-╱ // 0x304a @0x14
0x3036…3078 at0015 = ╱2d╱-╱ // 0x304b @0x15
0x3036…3078 at0016 = ╱2d╱-╱ // 0x304c @0x16
0x3036…3078 at0017 = ╱2d╱-╱ // 0x304d @0x17
0x3036…3078 at0018 = ╱2d╱-╱ // 0x304e @0x18
0x3036…3078 at0019 = ╱2d╱-╱ // 0x304f @0x19
0x3036…3078 at001a = ╱2d╱-╱ // 0x3050 @0x1a
0x3036…3078 at001b = ╱2d╱-╱ // 0x3051 @0x1b
0x3036…3078 at001c = ╱2d╱-╱ // 0x3052 @0x1c
0x3036…3078 at001d = ╱2d╱-╱ // 0x3053 @0x1d
0x3036…3078 at001e = ╱2d╱-╱ // 0x3054 @0x1e
0x3036…3078 at001f = ╱2d╱-╱ // 0x3055 @0x1f
0x3036…3078 at0020 = ╱2d╱-╱ // 0x3056 @0x20
0x3036…3078 at0021 = ╱2d╱-╱ // 0x3057 @0x21
0x3036…3078 at0022 = ╱2d╱-╱ // 0x3058 @0x22
0x3036…3078 at0023 = ╱2d╱-╱ // 0x3059 @0x23
0x3036…3078 at0024 = ╱20╱…╱ // 0x305a @0x24
0x3036…3078 at0025 = ╱20╱…╱ // 0x305b @0x25
0x3036…3078 at0026 = ╱2d╱-╱ // 0x305c @0x26
0x3036…3078 at0027 = ╱2d╱-╱ // 0x305d @0x27
0x3036…3078 at0028 = ╱20╱…╱ // 0x305e @0x28
0x3036…3078 at0029 = ╱20╱…╱ // 0x305f @0x29
0x3036…3078 at002a = ╱2d╱-╱ // 0x3060 @0x2a
0x3036…3078 at002b = ╱2d╱-╱ // 0x3061 @0x2b
0x3036…3078 at002c = ╱2d╱-╱ // 0x3062 @0x2c
0x3036…3078 at002d = ╱2d╱-╱ // 0x3063 @0x2d
0x3036…3078 at002e = ╱2d╱-╱ // 0x3064 @0x2e
0x3036…3078 at002f = ╱2d╱-╱ // 0x3065 @0x2f
0x3036…3078 at0030 = ╱2d╱-╱ // 0x3066 @0x30
0x3036…3078 at0031 = ╱2d╱-╱ // 0x3067 @0x31
0x3036…3078 at0032 = ╱20╱…╱ // 0x3068 @0x32
0x3036…3078 at0033 = ╱20╱…╱ // 0x3069 @0x33
0x3036…3078 at0034 = ╱2d╱-╱ // 0x306a @0x34
0x3036…3078 at0035 = ╱2d╱-╱ // 0x306b @0x35
0x3036…3078 at0036 = ╱2d╱-╱ // 0x306c @0x36
0x3036…3078 at0037 = ╱2d╱-╱ // 0x306d @0x37
0x3036…3078 at0038 = ╱2d╱-╱ // 0x306e @0x38
0x3036…3078 at0039 = ╱2d╱-╱ // 0x306f @0x39
0x3036…3078 at003a = ╱2d╱-╱ // 0x3070 @0x3a
0x3036…3078 at003b = ╱2d╱-╱ // 0x3071 @0x3b
0x3036…3078 at003c = ╱2d╱-╱ // 0x3072 @0x3c
0x3036…3078 at003d = ╱2d╱-╱ // 0x3073 @0x3d
0x3036…3078 at003e = ╱20╱…╱ // 0x3074 @0x3e
0x3036…3078 at003f = ╱20╱…╱ // 0x3075 @0x3f
0x3036…3078 at0040 = ╱22╱"╱ // 0x3076 @0x40
0x3036…3078 at0041 = EOL // 0x3077 @0x41
0x3036…3078 }
0x3078…308a c678 4890 PRINT "----------"
0x3078…308a LineComal80 {
0x3078…308a ptr = 0xc678 // 0x3078 @0x0
0x3078…308a lno = 0x131a // 0x307a @0x2
0x3078…308a at0004 = ╱92╱ PRINT ╱ // 0x307c @0x4
0x3078…308a at0005 = ╱22╱"╱ // 0x307d @0x5
0x3078…308a at0006 = ╱2d╱-╱ // 0x307e @0x6
0x3078…308a at0007 = ╱2d╱-╱ // 0x307f @0x7
0x3078…308a at0008 = ╱2d╱-╱ // 0x3080 @0x8
0x3078…308a at0009 = ╱2d╱-╱ // 0x3081 @0x9
0x3078…308a at000a = ╱2d╱-╱ // 0x3082 @0xa
0x3078…308a at000b = ╱2d╱-╱ // 0x3083 @0xb
0x3078…308a at000c = ╱2d╱-╱ // 0x3084 @0xc
0x3078…308a at000d = ╱2d╱-╱ // 0x3085 @0xd
0x3078…308a at000e = ╱2d╱-╱ // 0x3086 @0xe
0x3078…308a at000f = ╱2d╱-╱ // 0x3087 @0xf
0x3078…308a at0010 = ╱22╱"╱ // 0x3088 @0x10
0x3078…308a at0011 = EOL // 0x3089 @0x11
0x3078…308a }
0x308a…30d3 c6c1 4900 PRINT TAB(9) ; "TRANSPORT" ; TAB(41) ; CHR$ (P_DEB,9,2) ; CHR$ (P_KRED,9,2)
0x308a…30d3 LineComal80 {
0x308a…30d3 ptr = 0xc6c1 // 0x308a @0x0
0x308a…30d3 lno = 0x1324 // 0x308c @0x2
0x308a…30d3 at0004 = ╱92╱ PRINT ╱ // 0x308e @0x4
0x308a…30d3 at0005 = ╱d2╱TAB╱ // 0x308f @0x5
0x308a…30d3 at0006 = ╱ed╱(╱ // 0x3090 @0x6
0x308a…30d3 at0007 = ╱39╱9╱ // 0x3091 @0x7
0x308a…30d3 at0008 = ╱f20900╱ // 0x3092 @0x8
0x308a…30d3 at000b = ╱ee╱)╱ // 0x3095 @0xb
0x308a…30d3 at000c = ╱ea╱ ; ╱ // 0x3096 @0xc
0x308a…30d3 at000d = ╱22╱"╱ // 0x3097 @0xd
0x308a…30d3 at000e = ╱54╱T╱ // 0x3098 @0xe
0x308a…30d3 at000f = ╱52╱R╱ // 0x3099 @0xf
0x308a…30d3 at0010 = ╱41╱A╱ // 0x309a @0x10
0x308a…30d3 at0011 = ╱4e╱N╱ // 0x309b @0x11
0x308a…30d3 at0012 = ╱53╱S╱ // 0x309c @0x12
0x308a…30d3 at0013 = ╱50╱P╱ // 0x309d @0x13
0x308a…30d3 at0014 = ╱4f╱O╱ // 0x309e @0x14
0x308a…30d3 at0015 = ╱52╱R╱ // 0x309f @0x15
0x308a…30d3 at0016 = ╱54╱T╱ // 0x30a0 @0x16
0x308a…30d3 at0017 = ╱22╱"╱ // 0x30a1 @0x17
0x308a…30d3 at0018 = ╱ea╱ ; ╱ // 0x30a2 @0x18
0x308a…30d3 at0019 = ╱d2╱TAB╱ // 0x30a3 @0x19
0x308a…30d3 at001a = ╱ed╱(╱ // 0x30a4 @0x1a
0x308a…30d3 at001b = ╱34╱4╱ // 0x30a5 @0x1b
0x308a…30d3 at001c = ╱31╱1╱ // 0x30a6 @0x1c
0x308a…30d3 at001d = ╱f22900╱ // 0x30a7 @0x1d
0x308a…30d3 at0020 = ╱ee╱)╱ // 0x30aa @0x20
0x308a…30d3 at0021 = ╱ea╱ ; ╱ // 0x30ab @0x21
0x308a…30d3 at0022 = ╱d0╱ CHR$ ╱ // 0x30ac @0x22
0x308a…30d3 at0023 = ╱ed╱(╱ // 0x30ad @0x23
0x308a…30d3 at0024 = ╱50╱P╱ // 0x30ae @0x24
0x308a…30d3 at0025 = ╱5f╱_╱ // 0x30af @0x25
0x308a…30d3 at0026 = ╱44╱D╱ // 0x30b0 @0x26
0x308a…30d3 at0027 = ╱45╱E╱ // 0x30b1 @0x27
0x308a…30d3 at0028 = ╱42╱B╱ // 0x30b2 @0x28
0x308a…30d3 at0029 = ╱ec╱,╱ // 0x30b3 @0x29
0x308a…30d3 at002a = ╱39╱9╱ // 0x30b4 @0x2a
0x308a…30d3 at002b = ╱f20900╱ // 0x30b5 @0x2b
0x308a…30d3 at002e = ╱ec╱,╱ // 0x30b8 @0x2e
0x308a…30d3 at002f = ╱32╱2╱ // 0x30b9 @0x2f
0x308a…30d3 at0030 = ╱f20200╱ // 0x30ba @0x30
0x308a…30d3 at0033 = ╱ee╱)╱ // 0x30bd @0x33
0x308a…30d3 at0034 = ╱ea╱ ; ╱ // 0x30be @0x34
0x308a…30d3 at0035 = ╱d0╱ CHR$ ╱ // 0x30bf @0x35
0x308a…30d3 at0036 = ╱ed╱(╱ // 0x30c0 @0x36
0x308a…30d3 at0037 = ╱50╱P╱ // 0x30c1 @0x37
0x308a…30d3 at0038 = ╱5f╱_╱ // 0x30c2 @0x38
0x308a…30d3 at0039 = ╱4b╱K╱ // 0x30c3 @0x39
0x308a…30d3 at003a = ╱52╱R╱ // 0x30c4 @0x3a
0x308a…30d3 at003b = ╱45╱E╱ // 0x30c5 @0x3b
0x308a…30d3 at003c = ╱44╱D╱ // 0x30c6 @0x3c
0x308a…30d3 at003d = ╱ec╱,╱ // 0x30c7 @0x3d
0x308a…30d3 at003e = ╱39╱9╱ // 0x30c8 @0x3e
0x308a…30d3 at003f = ╱f20900╱ // 0x30c9 @0x3f
0x308a…30d3 at0042 = ╱ec╱,╱ // 0x30cc @0x42
0x308a…30d3 at0043 = ╱32╱2╱ // 0x30cd @0x43
0x308a…30d3 at0044 = ╱f20200╱ // 0x30ce @0x44
0x308a…30d3 at0047 = ╱ee╱)╱ // 0x30d1 @0x47
0x308a…30d3 at0048 = EOL // 0x30d2 @0x48
0x308a…30d3 }
0x30d3…30e9 c6d7 4910 LET LIN_T := LIN_T + 2
0x30d3…30e9 LineComal80 {
0x30d3…30e9 ptr = 0xc6d7 // 0x30d3 @0x0
0x30d3…30e9 lno = 0x132e // 0x30d5 @0x2
0x30d3…30e9 at0004 = ╱86╱ LET ╱ // 0x30d7 @0x4
0x30d3…30e9 at0005 = ╱4c╱L╱ // 0x30d8 @0x5
0x30d3…30e9 at0006 = ╱49╱I╱ // 0x30d9 @0x6
0x30d3…30e9 at0007 = ╱4e╱N╱ // 0x30da @0x7
0x30d3…30e9 at0008 = ╱5f╱_╱ // 0x30db @0x8
0x30d3…30e9 at0009 = ╱54╱T╱ // 0x30dc @0x9
0x30d3…30e9 at000a = ╱f0╱ := ╱ // 0x30dd @0xa
0x30d3…30e9 at000b = ╱4c╱L╱ // 0x30de @0xb
0x30d3…30e9 at000c = ╱49╱I╱ // 0x30df @0xc
0x30d3…30e9 at000d = ╱4e╱N╱ // 0x30e0 @0xd
0x30d3…30e9 at000e = ╱5f╱_╱ // 0x30e1 @0xe
0x30d3…30e9 at000f = ╱54╱T╱ // 0x30e2 @0xf
0x30d3…30e9 at0010 = ╱e5╱ + ╱ // 0x30e3 @0x10
0x30d3…30e9 at0011 = ╱32╱2╱ // 0x30e4 @0x11
0x30d3…30e9 at0012 = ╱f20200╱ // 0x30e5 @0x12
0x30d3…30e9 at0015 = EOL // 0x30e8 @0x15
0x30d3…30e9 }
0x30e9…30ef c6dd 4920 ENDIF
0x30e9…30ef LineComal80 {
0x30e9…30ef ptr = 0xc6dd // 0x30e9 @0x0
0x30e9…30ef lno = 0x1338 // 0x30eb @0x2
0x30e9…30ef at0004 = ╱9c╱ ENDIF ╱ // 0x30ed @0x4
0x30e9…30ef at0005 = EOL // 0x30ee @0x5
0x30e9…30ef }
0x30ef…30fe c6ec 4930 EXEC SIDESKIFT
0x30ef…30fe LineComal80 {
0x30ef…30fe ptr = 0xc6ec // 0x30ef @0x0
0x30ef…30fe lno = 0x1342 // 0x30f1 @0x2
0x30ef…30fe at0004 = ╱9d╱ EXEC ╱ // 0x30f3 @0x4
0x30ef…30fe at0005 = ╱53╱S╱ // 0x30f4 @0x5
0x30ef…30fe at0006 = ╱49╱I╱ // 0x30f5 @0x6
0x30ef…30fe at0007 = ╱44╱D╱ // 0x30f6 @0x7
0x30ef…30fe at0008 = ╱45╱E╱ // 0x30f7 @0x8
0x30ef…30fe at0009 = ╱53╱S╱ // 0x30f8 @0x9
0x30ef…30fe at000a = ╱4b╱K╱ // 0x30f9 @0xa
0x30ef…30fe at000b = ╱49╱I╱ // 0x30fa @0xb
0x30ef…30fe at000c = ╱46╱F╱ // 0x30fb @0xc
0x30ef…30fe at000d = ╱54╱T╱ // 0x30fc @0xd
0x30ef…30fe at000e = EOL // 0x30fd @0xe
0x30ef…30fe }
0x30fe…3104 c6f2 4940 ENDIF
0x30fe…3104 LineComal80 {
0x30fe…3104 ptr = 0xc6f2 // 0x30fe @0x0
0x30fe…3104 lno = 0x134c // 0x3100 @0x2
0x30fe…3104 at0004 = ╱9c╱ ENDIF ╱ // 0x3102 @0x4
0x30fe…3104 at0005 = EOL // 0x3103 @0x5
0x30fe…3104 }
0x3104…311a c708 4950 LET LIN_T := LIN_T + 1
0x3104…311a LineComal80 {
0x3104…311a ptr = 0xc708 // 0x3104 @0x0
0x3104…311a lno = 0x1356 // 0x3106 @0x2
0x3104…311a at0004 = ╱86╱ LET ╱ // 0x3108 @0x4
0x3104…311a at0005 = ╱4c╱L╱ // 0x3109 @0x5
0x3104…311a at0006 = ╱49╱I╱ // 0x310a @0x6
0x3104…311a at0007 = ╱4e╱N╱ // 0x310b @0x7
0x3104…311a at0008 = ╱5f╱_╱ // 0x310c @0x8
0x3104…311a at0009 = ╱54╱T╱ // 0x310d @0x9
0x3104…311a at000a = ╱f0╱ := ╱ // 0x310e @0xa
0x3104…311a at000b = ╱4c╱L╱ // 0x310f @0xb
0x3104…311a at000c = ╱49╱I╱ // 0x3110 @0xc
0x3104…311a at000d = ╱4e╱N╱ // 0x3111 @0xd
0x3104…311a at000e = ╱5f╱_╱ // 0x3112 @0xe
0x3104…311a at000f = ╱54╱T╱ // 0x3113 @0xf
0x3104…311a at0010 = ╱e5╱ + ╱ // 0x3114 @0x10
0x3104…311a at0011 = ╱31╱1╱ // 0x3115 @0x11
0x3104…311a at0012 = ╱f20100╱ // 0x3116 @0x12
0x3104…311a at0015 = EOL // 0x3119 @0x15
0x3104…311a }
0x311a…3156 c744 4960 PRINT "<S>" ; P_BNR$ ; TAB(11) ; P_TXT$ ; TAB(33) ; P_MKOD$ ; TAB(37)
0x311a…3156 LineComal80 {
0x311a…3156 ptr = 0xc744 // 0x311a @0x0
0x311a…3156 lno = 0x1360 // 0x311c @0x2
0x311a…3156 at0004 = ╱92╱ PRINT ╱ // 0x311e @0x4
0x311a…3156 at0005 = ╱22╱"╱ // 0x311f @0x5
0x311a…3156 at0006 = ╱3c╱<╱ // 0x3120 @0x6
0x311a…3156 at0007 = ╱53╱S╱ // 0x3121 @0x7
0x311a…3156 at0008 = ╱3e╱>╱ // 0x3122 @0x8
0x311a…3156 at0009 = ╱22╱"╱ // 0x3123 @0x9
0x311a…3156 at000a = ╱ea╱ ; ╱ // 0x3124 @0xa
0x311a…3156 at000b = ╱50╱P╱ // 0x3125 @0xb
0x311a…3156 at000c = ╱5f╱_╱ // 0x3126 @0xc
0x311a…3156 at000d = ╱42╱B╱ // 0x3127 @0xd
0x311a…3156 at000e = ╱4e╱N╱ // 0x3128 @0xe
0x311a…3156 at000f = ╱52╱R╱ // 0x3129 @0xf
0x311a…3156 at0010 = ╱ef╱$╱ // 0x312a @0x10
0x311a…3156 at0011 = ╱ea╱ ; ╱ // 0x312b @0x11
0x311a…3156 at0012 = ╱d2╱TAB╱ // 0x312c @0x12
0x311a…3156 at0013 = ╱ed╱(╱ // 0x312d @0x13
0x311a…3156 at0014 = ╱31╱1╱ // 0x312e @0x14
0x311a…3156 at0015 = ╱31╱1╱ // 0x312f @0x15
0x311a…3156 at0016 = ╱f20b00╱ // 0x3130 @0x16
0x311a…3156 at0019 = ╱ee╱)╱ // 0x3133 @0x19
0x311a…3156 at001a = ╱ea╱ ; ╱ // 0x3134 @0x1a
0x311a…3156 at001b = ╱50╱P╱ // 0x3135 @0x1b
0x311a…3156 at001c = ╱5f╱_╱ // 0x3136 @0x1c
0x311a…3156 at001d = ╱54╱T╱ // 0x3137 @0x1d
0x311a…3156 at001e = ╱58╱X╱ // 0x3138 @0x1e
0x311a…3156 at001f = ╱54╱T╱ // 0x3139 @0x1f
0x311a…3156 at0020 = ╱ef╱$╱ // 0x313a @0x20
0x311a…3156 at0021 = ╱ea╱ ; ╱ // 0x313b @0x21
0x311a…3156 at0022 = ╱d2╱TAB╱ // 0x313c @0x22
0x311a…3156 at0023 = ╱ed╱(╱ // 0x313d @0x23
0x311a…3156 at0024 = ╱33╱3╱ // 0x313e @0x24
0x311a…3156 at0025 = ╱33╱3╱ // 0x313f @0x25
0x311a…3156 at0026 = ╱f22100╱ // 0x3140 @0x26
0x311a…3156 at0029 = ╱ee╱)╱ // 0x3143 @0x29
0x311a…3156 at002a = ╱ea╱ ; ╱ // 0x3144 @0x2a
0x311a…3156 at002b = ╱50╱P╱ // 0x3145 @0x2b
0x311a…3156 at002c = ╱5f╱_╱ // 0x3146 @0x2c
0x311a…3156 at002d = ╱4d╱M╱ // 0x3147 @0x2d
0x311a…3156 at002e = ╱4b╱K╱ // 0x3148 @0x2e
0x311a…3156 at002f = ╱4f╱O╱ // 0x3149 @0x2f
0x311a…3156 at0030 = ╱44╱D╱ // 0x314a @0x30
0x311a…3156 at0031 = ╱ef╱$╱ // 0x314b @0x31
0x311a…3156 at0032 = ╱ea╱ ; ╱ // 0x314c @0x32
0x311a…3156 at0033 = ╱d2╱TAB╱ // 0x314d @0x33
0x311a…3156 at0034 = ╱ed╱(╱ // 0x314e @0x34
0x311a…3156 at0035 = ╱33╱3╱ // 0x314f @0x35
0x311a…3156 at0036 = ╱37╱7╱ // 0x3150 @0x36
0x311a…3156 at0037 = ╱f22500╱ // 0x3151 @0x37
0x311a…3156 at003a = ╱ee╱)╱ // 0x3154 @0x3a
0x311a…3156 at003b = EOL // 0x3155 @0x3b
0x311a…3156 }
0x3156…3172 c760 4970 PRINT "<S>" ; P_BKTO$ ; TAB(14)
0x3156…3172 LineComal80 {
0x3156…3172 ptr = 0xc760 // 0x3156 @0x0
0x3156…3172 lno = 0x136a // 0x3158 @0x2
0x3156…3172 at0004 = ╱92╱ PRINT ╱ // 0x315a @0x4
0x3156…3172 at0005 = ╱22╱"╱ // 0x315b @0x5
0x3156…3172 at0006 = ╱3c╱<╱ // 0x315c @0x6
0x3156…3172 at0007 = ╱53╱S╱ // 0x315d @0x7
0x3156…3172 at0008 = ╱3e╱>╱ // 0x315e @0x8
0x3156…3172 at0009 = ╱22╱"╱ // 0x315f @0x9
0x3156…3172 at000a = ╱ea╱ ; ╱ // 0x3160 @0xa
0x3156…3172 at000b = ╱50╱P╱ // 0x3161 @0xb
0x3156…3172 at000c = ╱5f╱_╱ // 0x3162 @0xc
0x3156…3172 at000d = ╱42╱B╱ // 0x3163 @0xd
0x3156…3172 at000e = ╱4b╱K╱ // 0x3164 @0xe
0x3156…3172 at000f = ╱54╱T╱ // 0x3165 @0xf
0x3156…3172 at0010 = ╱4f╱O╱ // 0x3166 @0x10
0x3156…3172 at0011 = ╱ef╱$╱ // 0x3167 @0x11
0x3156…3172 at0012 = ╱ea╱ ; ╱ // 0x3168 @0x12
0x3156…3172 at0013 = ╱d2╱TAB╱ // 0x3169 @0x13
0x3156…3172 at0014 = ╱ed╱(╱ // 0x316a @0x14
0x3156…3172 at0015 = ╱31╱1╱ // 0x316b @0x15
0x3156…3172 at0016 = ╱34╱4╱ // 0x316c @0x16
0x3156…3172 at0017 = ╱f20e00╱ // 0x316d @0x17
0x3156…3172 at001a = ╱ee╱)╱ // 0x3170 @0x1a
0x3156…3172 at001b = EOL // 0x3171 @0x1b
0x3156…3172 }
0x3172…3184 c772 4980 IF _DK = DEBET THEN
0x3172…3184 LineComal80 {
0x3172…3184 ptr = 0xc772 // 0x3172 @0x0
0x3172…3184 lno = 0x1374 // 0x3174 @0x2
0x3172…3184 at0004 = ╱9b5d50╱ IF ╱ // 0x3176 @0x4
0x3172…3184 at0007 = ╱5f╱_╱ // 0x3179 @0x7
0x3172…3184 at0008 = ╱44╱D╱ // 0x317a @0x8
0x3172…3184 at0009 = ╱4b╱K╱ // 0x317b @0x9
0x3172…3184 at000a = ╱df╱ = ╱ // 0x317c @0xa
0x3172…3184 at000b = ╱44╱D╱ // 0x317d @0xb
0x3172…3184 at000c = ╱45╱E╱ // 0x317e @0xc
0x3172…3184 at000d = ╱42╱B╱ // 0x317f @0xd
0x3172…3184 at000e = ╱45╱E╱ // 0x3180 @0xe
0x3172…3184 at000f = ╱54╱T╱ // 0x3181 @0xf
0x3172…3184 at0010 = ╱b5╱ THEN ╱ // 0x3182 @0x10
0x3172…3184 at0011 = EOL // 0x3183 @0x11
0x3172…3184 }
0x3184…319c c78a 4990 PRINT CHR$ (P_BKR,7,2)
0x3184…319c LineComal80 {
0x3184…319c ptr = 0xc78a // 0x3184 @0x0
0x3184…319c lno = 0x137e // 0x3186 @0x2
0x3184…319c at0004 = ╱92╱ PRINT ╱ // 0x3188 @0x4
0x3184…319c at0005 = ╱d0╱ CHR$ ╱ // 0x3189 @0x5
0x3184…319c at0006 = ╱ed╱(╱ // 0x318a @0x6
0x3184…319c at0007 = ╱50╱P╱ // 0x318b @0x7
0x3184…319c at0008 = ╱5f╱_╱ // 0x318c @0x8
0x3184…319c at0009 = ╱42╱B╱ // 0x318d @0x9
0x3184…319c at000a = ╱4b╱K╱ // 0x318e @0xa
0x3184…319c at000b = ╱52╱R╱ // 0x318f @0xb
0x3184…319c at000c = ╱ec╱,╱ // 0x3190 @0xc
0x3184…319c at000d = ╱37╱7╱ // 0x3191 @0xd
0x3184…319c at000e = ╱f20700╱ // 0x3192 @0xe
0x3184…319c at0011 = ╱ec╱,╱ // 0x3195 @0x11
0x3184…319c at0012 = ╱32╱2╱ // 0x3196 @0x12
0x3184…319c at0013 = ╱f20200╱ // 0x3197 @0x13
0x3184…319c at0016 = ╱ee╱)╱ // 0x319a @0x16
0x3184…319c at0017 = EOL // 0x319b @0x17
0x3184…319c }
0x319c…31b3 c7a1 5000 LET P_DEB := P_DEB + P_BKR
0x319c…31b3 LineComal80 {
0x319c…31b3 ptr = 0xc7a1 // 0x319c @0x0
0x319c…31b3 lno = 0x1388 // 0x319e @0x2
0x319c…31b3 at0004 = ╱86╱ LET ╱ // 0x31a0 @0x4
0x319c…31b3 at0005 = ╱50╱P╱ // 0x31a1 @0x5
0x319c…31b3 at0006 = ╱5f╱_╱ // 0x31a2 @0x6
0x319c…31b3 at0007 = ╱44╱D╱ // 0x31a3 @0x7
0x319c…31b3 at0008 = ╱45╱E╱ // 0x31a4 @0x8
0x319c…31b3 at0009 = ╱42╱B╱ // 0x31a5 @0x9
0x319c…31b3 at000a = ╱f0╱ := ╱ // 0x31a6 @0xa
0x319c…31b3 at000b = ╱50╱P╱ // 0x31a7 @0xb
0x319c…31b3 at000c = ╱5f╱_╱ // 0x31a8 @0xc
0x319c…31b3 at000d = ╱44╱D╱ // 0x31a9 @0xd
0x319c…31b3 at000e = ╱45╱E╱ // 0x31aa @0xe
0x319c…31b3 at000f = ╱42╱B╱ // 0x31ab @0xf
0x319c…31b3 at0010 = ╱e5╱ + ╱ // 0x31ac @0x10
0x319c…31b3 at0011 = ╱50╱P╱ // 0x31ad @0x11
0x319c…31b3 at0012 = ╱5f╱_╱ // 0x31ae @0x12
0x319c…31b3 at0013 = ╱42╱B╱ // 0x31af @0x13
0x319c…31b3 at0014 = ╱4b╱K╱ // 0x31b0 @0x14
0x319c…31b3 at0015 = ╱52╱R╱ // 0x31b1 @0x15
0x319c…31b3 at0016 = EOL // 0x31b2 @0x16
0x319c…31b3 }
0x31b3…31ba c7a8 5010 ELSE
0x31b3…31ba LineComal80 {
0x31b3…31ba ptr = 0xc7a8 // 0x31b3 @0x0
0x31b3…31ba lno = 0x1392 // 0x31b5 @0x2
0x31b3…31ba at0004 = ╱9a5e╱ ELSE ╱ // 0x31b7 @0x4
0x31b3…31ba at0006 = EOL // 0x31b9 @0x6
0x31b3…31ba }
0x31ba…31db c7c9 5020 PRINT TAB(13) ; CHR$ (P_BKR,7,2)
0x31ba…31db LineComal80 {
0x31ba…31db ptr = 0xc7c9 // 0x31ba @0x0
0x31ba…31db lno = 0x139c // 0x31bc @0x2
0x31ba…31db at0004 = ╱92╱ PRINT ╱ // 0x31be @0x4
0x31ba…31db at0005 = ╱d2╱TAB╱ // 0x31bf @0x5
0x31ba…31db at0006 = ╱ed╱(╱ // 0x31c0 @0x6
0x31ba…31db at0007 = ╱31╱1╱ // 0x31c1 @0x7
0x31ba…31db at0008 = ╱33╱3╱ // 0x31c2 @0x8
0x31ba…31db at0009 = ╱f20d00╱ // 0x31c3 @0x9
0x31ba…31db at000c = ╱ee╱)╱ // 0x31c6 @0xc
0x31ba…31db at000d = ╱ea╱ ; ╱ // 0x31c7 @0xd
0x31ba…31db at000e = ╱d0╱ CHR$ ╱ // 0x31c8 @0xe
0x31ba…31db at000f = ╱ed╱(╱ // 0x31c9 @0xf
0x31ba…31db at0010 = ╱50╱P╱ // 0x31ca @0x10
0x31ba…31db at0011 = ╱5f╱_╱ // 0x31cb @0x11
0x31ba…31db at0012 = ╱42╱B╱ // 0x31cc @0x12
0x31ba…31db at0013 = ╱4b╱K╱ // 0x31cd @0x13
0x31ba…31db at0014 = ╱52╱R╱ // 0x31ce @0x14
0x31ba…31db at0015 = ╱ec╱,╱ // 0x31cf @0x15
0x31ba…31db at0016 = ╱37╱7╱ // 0x31d0 @0x16
0x31ba…31db at0017 = ╱f20700╱ // 0x31d1 @0x17
0x31ba…31db at001a = ╱ec╱,╱ // 0x31d4 @0x1a
0x31ba…31db at001b = ╱32╱2╱ // 0x31d5 @0x1b
0x31ba…31db at001c = ╱f20200╱ // 0x31d6 @0x1c
0x31ba…31db at001f = ╱ee╱)╱ // 0x31d9 @0x1f
0x31ba…31db at0020 = EOL // 0x31da @0x20
0x31ba…31db }
0x31db…31f4 c7e2 5030 LET P_KRED := P_KRED + P_BKR
0x31db…31f4 LineComal80 {
0x31db…31f4 ptr = 0xc7e2 // 0x31db @0x0
0x31db…31f4 lno = 0x13a6 // 0x31dd @0x2
0x31db…31f4 at0004 = ╱86╱ LET ╱ // 0x31df @0x4
0x31db…31f4 at0005 = ╱50╱P╱ // 0x31e0 @0x5
0x31db…31f4 at0006 = ╱5f╱_╱ // 0x31e1 @0x6
0x31db…31f4 at0007 = ╱4b╱K╱ // 0x31e2 @0x7
0x31db…31f4 at0008 = ╱52╱R╱ // 0x31e3 @0x8
0x31db…31f4 at0009 = ╱45╱E╱ // 0x31e4 @0x9
0x31db…31f4 at000a = ╱44╱D╱ // 0x31e5 @0xa
0x31db…31f4 at000b = ╱f0╱ := ╱ // 0x31e6 @0xb
0x31db…31f4 at000c = ╱50╱P╱ // 0x31e7 @0xc
0x31db…31f4 at000d = ╱5f╱_╱ // 0x31e8 @0xd
0x31db…31f4 at000e = ╱4b╱K╱ // 0x31e9 @0xe
0x31db…31f4 at000f = ╱52╱R╱ // 0x31ea @0xf
0x31db…31f4 at0010 = ╱45╱E╱ // 0x31eb @0x10
0x31db…31f4 at0011 = ╱44╱D╱ // 0x31ec @0x11
0x31db…31f4 at0012 = ╱e5╱ + ╱ // 0x31ed @0x12
0x31db…31f4 at0013 = ╱50╱P╱ // 0x31ee @0x13
0x31db…31f4 at0014 = ╱5f╱_╱ // 0x31ef @0x14
0x31db…31f4 at0015 = ╱42╱B╱ // 0x31f0 @0x15
0x31db…31f4 at0016 = ╱4b╱K╱ // 0x31f1 @0x16
0x31db…31f4 at0017 = ╱52╱R╱ // 0x31f2 @0x17
0x31db…31f4 at0018 = EOL // 0x31f3 @0x18
0x31db…31f4 }
0x31f4…31fa c7e8 5040 ENDIF
0x31f4…31fa LineComal80 {
0x31f4…31fa ptr = 0xc7e8 // 0x31f4 @0x0
0x31f4…31fa lno = 0x13b0 // 0x31f6 @0x2
0x31f4…31fa at0004 = ╱9c╱ ENDIF ╱ // 0x31f8 @0x4
0x31f4…31fa at0005 = EOL // 0x31f9 @0x5
0x31f4…31fa }
0x31fa…3209 c7f7 5050 ENDPROC PRINT_LIN
0x31fa…3209 LineComal80 {
0x31fa…3209 ptr = 0xc7f7 // 0x31fa @0x0
0x31fa…3209 lno = 0x13ba // 0x31fc @0x2
0x31fa…3209 at0004 = ╱9f╱ ENDPROC ╱ // 0x31fe @0x4
0x31fa…3209 at0005 = ╱50╱P╱ // 0x31ff @0x5
0x31fa…3209 at0006 = ╱52╱R╱ // 0x3200 @0x6
0x31fa…3209 at0007 = ╱49╱I╱ // 0x3201 @0x7
0x31fa…3209 at0008 = ╱4e╱N╱ // 0x3202 @0x8
0x31fa…3209 at0009 = ╱54╱T╱ // 0x3203 @0x9
0x31fa…3209 at000a = ╱5f╱_╱ // 0x3204 @0xa
0x31fa…3209 at000b = ╱4c╱L╱ // 0x3205 @0xb
0x31fa…3209 at000c = ╱49╱I╱ // 0x3206 @0xc
0x31fa…3209 at000d = ╱4e╱N╱ // 0x3207 @0xd
0x31fa…3209 at000e = EOL // 0x3208 @0xe
0x31fa…3209 }
0x3209…320e c7fc 5060
0x3209…320e LineComal80 {
0x3209…320e ptr = 0xc7fc // 0x3209 @0x0
0x3209…320e lno = 0x13c4 // 0x320b @0x2
0x3209…320e at0004 = EOL // 0x320d @0x4
0x3209…320e }
0x320e…321b c809 5070 PROC AFSLUT
0x320e…321b LineComal80 {
0x320e…321b ptr = 0xc809 // 0x320e @0x0
0x320e…321b lno = 0x13ce // 0x3210 @0x2
0x320e…321b at0004 = ╱9e5f╱ PROC ╱ // 0x3212 @0x4
0x320e…321b at0006 = ╱41╱A╱ // 0x3214 @0x6
0x320e…321b at0007 = ╱46╱F╱ // 0x3215 @0x7
0x320e…321b at0008 = ╱53╱S╱ // 0x3216 @0x8
0x320e…321b at0009 = ╱4c╱L╱ // 0x3217 @0x9
0x320e…321b at000a = ╱55╱U╱ // 0x3218 @0xa
0x320e…321b at000b = ╱54╱T╱ // 0x3219 @0xb
0x320e…321b at000c = EOL // 0x321a @0xc
0x320e…321b }
0x321b…3231 d310 5080 LET LIN_T := LIN_T + 2
0x321b…3231 LineComal80 {
0x321b…3231 ptr = 0xd310 // 0x321b @0x0
0x321b…3231 lno = 0x13d8 // 0x321d @0x2
0x321b…3231 at0004 = ╱86╱ LET ╱ // 0x321f @0x4
0x321b…3231 at0005 = ╱4c╱L╱ // 0x3220 @0x5
0x321b…3231 at0006 = ╱49╱I╱ // 0x3221 @0x6
0x321b…3231 at0007 = ╱4e╱N╱ // 0x3222 @0x7
0x321b…3231 at0008 = ╱5f╱_╱ // 0x3223 @0x8
0x321b…3231 at0009 = ╱54╱T╱ // 0x3224 @0x9
0x321b…3231 at000a = ╱f0╱ := ╱ // 0x3225 @0xa
0x321b…3231 at000b = ╱4c╱L╱ // 0x3226 @0xb
0x321b…3231 at000c = ╱49╱I╱ // 0x3227 @0xc
0x321b…3231 at000d = ╱4e╱N╱ // 0x3228 @0xd
0x321b…3231 at000e = ╱5f╱_╱ // 0x3229 @0xe
0x321b…3231 at000f = ╱54╱T╱ // 0x322a @0xf
0x321b…3231 at0010 = ╱e5╱ + ╱ // 0x322b @0x10
0x321b…3231 at0011 = ╱32╱2╱ // 0x322c @0x11
0x321b…3231 at0012 = ╱f20200╱ // 0x322d @0x12
0x321b…3231 at0015 = EOL // 0x3230 @0x15
0x321b…3231 }
0x3231…3273 c861 5210 PRINT "<S>----- -------------------- -- -------- ---------- "
0x3231…3273 LineComal80 {
0x3231…3273 ptr = 0xc861 // 0x3231 @0x0
0x3231…3273 lno = 0x145a // 0x3233 @0x2
0x3231…3273 at0004 = ╱92╱ PRINT ╱ // 0x3235 @0x4
0x3231…3273 at0005 = ╱22╱"╱ // 0x3236 @0x5
0x3231…3273 at0006 = ╱3c╱<╱ // 0x3237 @0x6
0x3231…3273 at0007 = ╱53╱S╱ // 0x3238 @0x7
0x3231…3273 at0008 = ╱3e╱>╱ // 0x3239 @0x8
0x3231…3273 at0009 = ╱2d╱-╱ // 0x323a @0x9
0x3231…3273 at000a = ╱2d╱-╱ // 0x323b @0xa
0x3231…3273 at000b = ╱2d╱-╱ // 0x323c @0xb
0x3231…3273 at000c = ╱2d╱-╱ // 0x323d @0xc
0x3231…3273 at000d = ╱2d╱-╱ // 0x323e @0xd
0x3231…3273 at000e = ╱20╱…╱ // 0x323f @0xe
0x3231…3273 at000f = ╱20╱…╱ // 0x3240 @0xf
0x3231…3273 at0010 = ╱2d╱-╱ // 0x3241 @0x10
0x3231…3273 at0011 = ╱2d╱-╱ // 0x3242 @0x11
0x3231…3273 at0012 = ╱2d╱-╱ // 0x3243 @0x12
0x3231…3273 at0013 = ╱2d╱-╱ // 0x3244 @0x13
0x3231…3273 at0014 = ╱2d╱-╱ // 0x3245 @0x14
0x3231…3273 at0015 = ╱2d╱-╱ // 0x3246 @0x15
0x3231…3273 at0016 = ╱2d╱-╱ // 0x3247 @0x16
0x3231…3273 at0017 = ╱2d╱-╱ // 0x3248 @0x17
0x3231…3273 at0018 = ╱2d╱-╱ // 0x3249 @0x18
0x3231…3273 at0019 = ╱2d╱-╱ // 0x324a @0x19
0x3231…3273 at001a = ╱2d╱-╱ // 0x324b @0x1a
0x3231…3273 at001b = ╱2d╱-╱ // 0x324c @0x1b
0x3231…3273 at001c = ╱2d╱-╱ // 0x324d @0x1c
0x3231…3273 at001d = ╱2d╱-╱ // 0x324e @0x1d
0x3231…3273 at001e = ╱2d╱-╱ // 0x324f @0x1e
0x3231…3273 at001f = ╱2d╱-╱ // 0x3250 @0x1f
0x3231…3273 at0020 = ╱2d╱-╱ // 0x3251 @0x20
0x3231…3273 at0021 = ╱2d╱-╱ // 0x3252 @0x21
0x3231…3273 at0022 = ╱2d╱-╱ // 0x3253 @0x22
0x3231…3273 at0023 = ╱2d╱-╱ // 0x3254 @0x23
0x3231…3273 at0024 = ╱20╱…╱ // 0x3255 @0x24
0x3231…3273 at0025 = ╱20╱…╱ // 0x3256 @0x25
0x3231…3273 at0026 = ╱2d╱-╱ // 0x3257 @0x26
0x3231…3273 at0027 = ╱2d╱-╱ // 0x3258 @0x27
0x3231…3273 at0028 = ╱20╱…╱ // 0x3259 @0x28
0x3231…3273 at0029 = ╱20╱…╱ // 0x325a @0x29
0x3231…3273 at002a = ╱2d╱-╱ // 0x325b @0x2a
0x3231…3273 at002b = ╱2d╱-╱ // 0x325c @0x2b
0x3231…3273 at002c = ╱2d╱-╱ // 0x325d @0x2c
0x3231…3273 at002d = ╱2d╱-╱ // 0x325e @0x2d
0x3231…3273 at002e = ╱2d╱-╱ // 0x325f @0x2e
0x3231…3273 at002f = ╱2d╱-╱ // 0x3260 @0x2f
0x3231…3273 at0030 = ╱2d╱-╱ // 0x3261 @0x30
0x3231…3273 at0031 = ╱2d╱-╱ // 0x3262 @0x31
0x3231…3273 at0032 = ╱20╱…╱ // 0x3263 @0x32
0x3231…3273 at0033 = ╱20╱…╱ // 0x3264 @0x33
0x3231…3273 at0034 = ╱2d╱-╱ // 0x3265 @0x34
0x3231…3273 at0035 = ╱2d╱-╱ // 0x3266 @0x35
0x3231…3273 at0036 = ╱2d╱-╱ // 0x3267 @0x36
0x3231…3273 at0037 = ╱2d╱-╱ // 0x3268 @0x37
0x3231…3273 at0038 = ╱2d╱-╱ // 0x3269 @0x38
0x3231…3273 at0039 = ╱2d╱-╱ // 0x326a @0x39
0x3231…3273 at003a = ╱2d╱-╱ // 0x326b @0x3a
0x3231…3273 at003b = ╱2d╱-╱ // 0x326c @0x3b
0x3231…3273 at003c = ╱2d╱-╱ // 0x326d @0x3c
0x3231…3273 at003d = ╱2d╱-╱ // 0x326e @0x3d
0x3231…3273 at003e = ╱20╱…╱ // 0x326f @0x3e
0x3231…3273 at003f = ╱20╱…╱ // 0x3270 @0x3f
0x3231…3273 at0040 = ╱22╱"╱ // 0x3271 @0x40
0x3231…3273 at0041 = EOL // 0x3272 @0x41
0x3231…3273 }
0x3273…3285 c873 5100 PRINT "----------"
0x3273…3285 LineComal80 {
0x3273…3285 ptr = 0xc873 // 0x3273 @0x0
0x3273…3285 lno = 0x13ec // 0x3275 @0x2
0x3273…3285 at0004 = ╱92╱ PRINT ╱ // 0x3277 @0x4
0x3273…3285 at0005 = ╱22╱"╱ // 0x3278 @0x5
0x3273…3285 at0006 = ╱2d╱-╱ // 0x3279 @0x6
0x3273…3285 at0007 = ╱2d╱-╱ // 0x327a @0x7
0x3273…3285 at0008 = ╱2d╱-╱ // 0x327b @0x8
0x3273…3285 at0009 = ╱2d╱-╱ // 0x327c @0x9
0x3273…3285 at000a = ╱2d╱-╱ // 0x327d @0xa
0x3273…3285 at000b = ╱2d╱-╱ // 0x327e @0xb
0x3273…3285 at000c = ╱2d╱-╱ // 0x327f @0xc
0x3273…3285 at000d = ╱2d╱-╱ // 0x3280 @0xd
0x3273…3285 at000e = ╱2d╱-╱ // 0x3281 @0xe
0x3273…3285 at000f = ╱2d╱-╱ // 0x3282 @0xf
0x3273…3285 at0010 = ╱22╱"╱ // 0x3283 @0x10
0x3273…3285 at0011 = EOL // 0x3284 @0x11
0x3273…3285 }
0x3285…32c4 c8b2 5110 PRINT TAB(8) ; "DEBET/KREDIT TOTAL" ; TAB(42) ; CHR$ (P_DEB,9,2) ;
0x3285…32c4 LineComal80 {
0x3285…32c4 ptr = 0xc8b2 // 0x3285 @0x0
0x3285…32c4 lno = 0x13f6 // 0x3287 @0x2
0x3285…32c4 at0004 = ╱92╱ PRINT ╱ // 0x3289 @0x4
0x3285…32c4 at0005 = ╱d2╱TAB╱ // 0x328a @0x5
0x3285…32c4 at0006 = ╱ed╱(╱ // 0x328b @0x6
0x3285…32c4 at0007 = ╱38╱8╱ // 0x328c @0x7
0x3285…32c4 at0008 = ╱f20800╱ // 0x328d @0x8
0x3285…32c4 at000b = ╱ee╱)╱ // 0x3290 @0xb
0x3285…32c4 at000c = ╱ea╱ ; ╱ // 0x3291 @0xc
0x3285…32c4 at000d = ╱22╱"╱ // 0x3292 @0xd
0x3285…32c4 at000e = ╱44╱D╱ // 0x3293 @0xe
0x3285…32c4 at000f = ╱45╱E╱ // 0x3294 @0xf
0x3285…32c4 at0010 = ╱42╱B╱ // 0x3295 @0x10
0x3285…32c4 at0011 = ╱45╱E╱ // 0x3296 @0x11
0x3285…32c4 at0012 = ╱54╱T╱ // 0x3297 @0x12
0x3285…32c4 at0013 = ╱2f╱/╱ // 0x3298 @0x13
0x3285…32c4 at0014 = ╱4b╱K╱ // 0x3299 @0x14
0x3285…32c4 at0015 = ╱52╱R╱ // 0x329a @0x15
0x3285…32c4 at0016 = ╱45╱E╱ // 0x329b @0x16
0x3285…32c4 at0017 = ╱44╱D╱ // 0x329c @0x17
0x3285…32c4 at0018 = ╱49╱I╱ // 0x329d @0x18
0x3285…32c4 at0019 = ╱54╱T╱ // 0x329e @0x19
0x3285…32c4 at001a = ╱20╱…╱ // 0x329f @0x1a
0x3285…32c4 at001b = ╱54╱T╱ // 0x32a0 @0x1b
0x3285…32c4 at001c = ╱4f╱O╱ // 0x32a1 @0x1c
0x3285…32c4 at001d = ╱54╱T╱ // 0x32a2 @0x1d
0x3285…32c4 at001e = ╱41╱A╱ // 0x32a3 @0x1e
0x3285…32c4 at001f = ╱4c╱L╱ // 0x32a4 @0x1f
0x3285…32c4 at0020 = ╱22╱"╱ // 0x32a5 @0x20
0x3285…32c4 at0021 = ╱ea╱ ; ╱ // 0x32a6 @0x21
0x3285…32c4 at0022 = ╱d2╱TAB╱ // 0x32a7 @0x22
0x3285…32c4 at0023 = ╱ed╱(╱ // 0x32a8 @0x23
0x3285…32c4 at0024 = ╱34╱4╱ // 0x32a9 @0x24
0x3285…32c4 at0025 = ╱32╱2╱ // 0x32aa @0x25
0x3285…32c4 at0026 = ╱f22a00╱ // 0x32ab @0x26
0x3285…32c4 at0029 = ╱ee╱)╱ // 0x32ae @0x29
0x3285…32c4 at002a = ╱ea╱ ; ╱ // 0x32af @0x2a
0x3285…32c4 at002b = ╱d0╱ CHR$ ╱ // 0x32b0 @0x2b
0x3285…32c4 at002c = ╱ed╱(╱ // 0x32b1 @0x2c
0x3285…32c4 at002d = ╱50╱P╱ // 0x32b2 @0x2d
0x3285…32c4 at002e = ╱5f╱_╱ // 0x32b3 @0x2e
0x3285…32c4 at002f = ╱44╱D╱ // 0x32b4 @0x2f
0x3285…32c4 at0030 = ╱45╱E╱ // 0x32b5 @0x30
0x3285…32c4 at0031 = ╱42╱B╱ // 0x32b6 @0x31
0x3285…32c4 at0032 = ╱ec╱,╱ // 0x32b7 @0x32
0x3285…32c4 at0033 = ╱39╱9╱ // 0x32b8 @0x33
0x3285…32c4 at0034 = ╱f20900╱ // 0x32b9 @0x34
0x3285…32c4 at0037 = ╱ec╱,╱ // 0x32bc @0x37
0x3285…32c4 at0038 = ╱32╱2╱ // 0x32bd @0x38
0x3285…32c4 at0039 = ╱f20200╱ // 0x32be @0x39
0x3285…32c4 at003c = ╱ee╱)╱ // 0x32c1 @0x3c
0x3285…32c4 at003d = ╱ea╱ ; ╱ // 0x32c2 @0x3d
0x3285…32c4 at003e = EOL // 0x32c3 @0x3e
0x3285…32c4 }
0x32c4…32dd c8cb 5120 PRINT CHR$ (P_KRED,9,2)
0x32c4…32dd LineComal80 {
0x32c4…32dd ptr = 0xc8cb // 0x32c4 @0x0
0x32c4…32dd lno = 0x1400 // 0x32c6 @0x2
0x32c4…32dd at0004 = ╱92╱ PRINT ╱ // 0x32c8 @0x4
0x32c4…32dd at0005 = ╱d0╱ CHR$ ╱ // 0x32c9 @0x5
0x32c4…32dd at0006 = ╱ed╱(╱ // 0x32ca @0x6
0x32c4…32dd at0007 = ╱50╱P╱ // 0x32cb @0x7
0x32c4…32dd at0008 = ╱5f╱_╱ // 0x32cc @0x8
0x32c4…32dd at0009 = ╱4b╱K╱ // 0x32cd @0x9
0x32c4…32dd at000a = ╱52╱R╱ // 0x32ce @0xa
0x32c4…32dd at000b = ╱45╱E╱ // 0x32cf @0xb
0x32c4…32dd at000c = ╱44╱D╱ // 0x32d0 @0xc
0x32c4…32dd at000d = ╱ec╱,╱ // 0x32d1 @0xd
0x32c4…32dd at000e = ╱39╱9╱ // 0x32d2 @0xe
0x32c4…32dd at000f = ╱f20900╱ // 0x32d3 @0xf
0x32c4…32dd at0012 = ╱ec╱,╱ // 0x32d6 @0x12
0x32c4…32dd at0013 = ╱32╱2╱ // 0x32d7 @0x13
0x32c4…32dd at0014 = ╱f20200╱ // 0x32d8 @0x14
0x32c4…32dd at0017 = ╱ee╱)╱ // 0x32db @0x17
0x32c4…32dd at0018 = EOL // 0x32dc @0x18
0x32c4…32dd }
0x32dd…32f1 c8df 5130 IF _DEB > P_KRED THEN
0x32dd…32f1 LineComal80 {
0x32dd…32f1 ptr = 0xc8df // 0x32dd @0x0
0x32dd…32f1 lno = 0x140a // 0x32df @0x2
0x32dd…32f1 at0004 = ╱9b6050╱ IF ╱ // 0x32e1 @0x4
0x32dd…32f1 at0007 = ╱5f╱_╱ // 0x32e4 @0x7
0x32dd…32f1 at0008 = ╱44╱D╱ // 0x32e5 @0x8
0x32dd…32f1 at0009 = ╱45╱E╱ // 0x32e6 @0x9
0x32dd…32f1 at000a = ╱42╱B╱ // 0x32e7 @0xa
0x32dd…32f1 at000b = ╱e1╱ > ╱ // 0x32e8 @0xb
0x32dd…32f1 at000c = ╱50╱P╱ // 0x32e9 @0xc
0x32dd…32f1 at000d = ╱5f╱_╱ // 0x32ea @0xd
0x32dd…32f1 at000e = ╱4b╱K╱ // 0x32eb @0xe
0x32dd…32f1 at000f = ╱52╱R╱ // 0x32ec @0xf
0x32dd…32f1 at0010 = ╱45╱E╱ // 0x32ed @0x10
0x32dd…32f1 at0011 = ╱44╱D╱ // 0x32ee @0x11
0x32dd…32f1 at0012 = ╱b5╱ THEN ╱ // 0x32ef @0x12
0x32dd…32f1 at0013 = EOL // 0x32f0 @0x13
0x32dd…32f1 }
0x32f1…332f c91d 5140 PRINT TAB(11) ; "DIFFERENCE" ; TAB(42) ; CHR$ (P_DEB - P_KRED,9,2)
0x32f1…332f LineComal80 {
0x32f1…332f ptr = 0xc91d // 0x32f1 @0x0
0x32f1…332f lno = 0x1414 // 0x32f3 @0x2
0x32f1…332f at0004 = ╱92╱ PRINT ╱ // 0x32f5 @0x4
0x32f1…332f at0005 = ╱d2╱TAB╱ // 0x32f6 @0x5
0x32f1…332f at0006 = ╱ed╱(╱ // 0x32f7 @0x6
0x32f1…332f at0007 = ╱31╱1╱ // 0x32f8 @0x7
0x32f1…332f at0008 = ╱31╱1╱ // 0x32f9 @0x8
0x32f1…332f at0009 = ╱f20b00╱ // 0x32fa @0x9
0x32f1…332f at000c = ╱ee╱)╱ // 0x32fd @0xc
0x32f1…332f at000d = ╱ea╱ ; ╱ // 0x32fe @0xd
0x32f1…332f at000e = ╱22╱"╱ // 0x32ff @0xe
0x32f1…332f at000f = ╱44╱D╱ // 0x3300 @0xf
0x32f1…332f at0010 = ╱49╱I╱ // 0x3301 @0x10
0x32f1…332f at0011 = ╱46╱F╱ // 0x3302 @0x11
0x32f1…332f at0012 = ╱46╱F╱ // 0x3303 @0x12
0x32f1…332f at0013 = ╱45╱E╱ // 0x3304 @0x13
0x32f1…332f at0014 = ╱52╱R╱ // 0x3305 @0x14
0x32f1…332f at0015 = ╱45╱E╱ // 0x3306 @0x15
0x32f1…332f at0016 = ╱4e╱N╱ // 0x3307 @0x16
0x32f1…332f at0017 = ╱43╱C╱ // 0x3308 @0x17
0x32f1…332f at0018 = ╱45╱E╱ // 0x3309 @0x18
0x32f1…332f at0019 = ╱22╱"╱ // 0x330a @0x19
0x32f1…332f at001a = ╱ea╱ ; ╱ // 0x330b @0x1a
0x32f1…332f at001b = ╱d2╱TAB╱ // 0x330c @0x1b
0x32f1…332f at001c = ╱ed╱(╱ // 0x330d @0x1c
0x32f1…332f at001d = ╱34╱4╱ // 0x330e @0x1d
0x32f1…332f at001e = ╱32╱2╱ // 0x330f @0x1e
0x32f1…332f at001f = ╱f22a00╱ // 0x3310 @0x1f
0x32f1…332f at0022 = ╱ee╱)╱ // 0x3313 @0x22
0x32f1…332f at0023 = ╱ea╱ ; ╱ // 0x3314 @0x23
0x32f1…332f at0024 = ╱d0╱ CHR$ ╱ // 0x3315 @0x24
0x32f1…332f at0025 = ╱ed╱(╱ // 0x3316 @0x25
0x32f1…332f at0026 = ╱50╱P╱ // 0x3317 @0x26
0x32f1…332f at0027 = ╱5f╱_╱ // 0x3318 @0x27
0x32f1…332f at0028 = ╱44╱D╱ // 0x3319 @0x28
0x32f1…332f at0029 = ╱45╱E╱ // 0x331a @0x29
0x32f1…332f at002a = ╱42╱B╱ // 0x331b @0x2a
0x32f1…332f at002b = ╱e6╱ - ╱ // 0x331c @0x2b
0x32f1…332f at002c = ╱50╱P╱ // 0x331d @0x2c
0x32f1…332f at002d = ╱5f╱_╱ // 0x331e @0x2d
0x32f1…332f at002e = ╱4b╱K╱ // 0x331f @0x2e
0x32f1…332f at002f = ╱52╱R╱ // 0x3320 @0x2f
0x32f1…332f at0030 = ╱45╱E╱ // 0x3321 @0x30
0x32f1…332f at0031 = ╱44╱D╱ // 0x3322 @0x31
0x32f1…332f at0032 = ╱ec╱,╱ // 0x3323 @0x32
0x32f1…332f at0033 = ╱39╱9╱ // 0x3324 @0x33
0x32f1…332f at0034 = ╱f20900╱ // 0x3325 @0x34
0x32f1…332f at0037 = ╱ec╱,╱ // 0x3328 @0x37
0x32f1…332f at0038 = ╱32╱2╱ // 0x3329 @0x38
0x32f1…332f at0039 = ╱f20200╱ // 0x332a @0x39
0x32f1…332f at003c = ╱ee╱)╱ // 0x332d @0x3c
0x32f1…332f at003d = EOL // 0x332e @0x3d
0x32f1…332f }
0x332f…3345 c933 5150 LET LIN_T := LIN_T + 1
0x332f…3345 LineComal80 {
0x332f…3345 ptr = 0xc933 // 0x332f @0x0
0x332f…3345 lno = 0x141e // 0x3331 @0x2
0x332f…3345 at0004 = ╱86╱ LET ╱ // 0x3333 @0x4
0x332f…3345 at0005 = ╱4c╱L╱ // 0x3334 @0x5
0x332f…3345 at0006 = ╱49╱I╱ // 0x3335 @0x6
0x332f…3345 at0007 = ╱4e╱N╱ // 0x3336 @0x7
0x332f…3345 at0008 = ╱5f╱_╱ // 0x3337 @0x8
0x332f…3345 at0009 = ╱54╱T╱ // 0x3338 @0x9
0x332f…3345 at000a = ╱f0╱ := ╱ // 0x3339 @0xa
0x332f…3345 at000b = ╱4c╱L╱ // 0x333a @0xb
0x332f…3345 at000c = ╱49╱I╱ // 0x333b @0xc
0x332f…3345 at000d = ╱4e╱N╱ // 0x333c @0xd
0x332f…3345 at000e = ╱5f╱_╱ // 0x333d @0xe
0x332f…3345 at000f = ╱54╱T╱ // 0x333e @0xf
0x332f…3345 at0010 = ╱e5╱ + ╱ // 0x333f @0x10
0x332f…3345 at0011 = ╱31╱1╱ // 0x3340 @0x11
0x332f…3345 at0012 = ╱f20100╱ // 0x3341 @0x12
0x332f…3345 at0015 = EOL // 0x3344 @0x15
0x332f…3345 }
0x3345…334c c93a 5160 ELSE
0x3345…334c LineComal80 {
0x3345…334c ptr = 0xc93a // 0x3345 @0x0
0x3345…334c lno = 0x1428 // 0x3347 @0x2
0x3345…334c at0004 = ╱9a61╱ ELSE ╱ // 0x3349 @0x4
0x3345…334c at0006 = EOL // 0x334b @0x6
0x3345…334c }
0x334c…3360 c94e 5170 IF _KRED > P_DEB THEN
0x334c…3360 LineComal80 {
0x334c…3360 ptr = 0xc94e // 0x334c @0x0
0x334c…3360 lno = 0x1432 // 0x334e @0x2
0x334c…3360 at0004 = ╱9b6250╱ IF ╱ // 0x3350 @0x4
0x334c…3360 at0007 = ╱5f╱_╱ // 0x3353 @0x7
0x334c…3360 at0008 = ╱4b╱K╱ // 0x3354 @0x8
0x334c…3360 at0009 = ╱52╱R╱ // 0x3355 @0x9
0x334c…3360 at000a = ╱45╱E╱ // 0x3356 @0xa
0x334c…3360 at000b = ╱44╱D╱ // 0x3357 @0xb
0x334c…3360 at000c = ╱e1╱ > ╱ // 0x3358 @0xc
0x334c…3360 at000d = ╱50╱P╱ // 0x3359 @0xd
0x334c…3360 at000e = ╱5f╱_╱ // 0x335a @0xe
0x334c…3360 at000f = ╱44╱D╱ // 0x335b @0xf
0x334c…3360 at0010 = ╱45╱E╱ // 0x335c @0x10
0x334c…3360 at0011 = ╱42╱B╱ // 0x335d @0x11
0x334c…3360 at0012 = ╱b5╱ THEN ╱ // 0x335e @0x12
0x334c…3360 at0013 = EOL // 0x335f @0x13
0x334c…3360 }
0x3360…339e c98c 5180 PRINT TAB(11) ; "DIFFERENCE" ; TAB(54) ; CHR$ (P_KRED - P_DEB,9,2)
0x3360…339e LineComal80 {
0x3360…339e ptr = 0xc98c // 0x3360 @0x0
0x3360…339e lno = 0x143c // 0x3362 @0x2
0x3360…339e at0004 = ╱92╱ PRINT ╱ // 0x3364 @0x4
0x3360…339e at0005 = ╱d2╱TAB╱ // 0x3365 @0x5
0x3360…339e at0006 = ╱ed╱(╱ // 0x3366 @0x6
0x3360…339e at0007 = ╱31╱1╱ // 0x3367 @0x7
0x3360…339e at0008 = ╱31╱1╱ // 0x3368 @0x8
0x3360…339e at0009 = ╱f20b00╱ // 0x3369 @0x9
0x3360…339e at000c = ╱ee╱)╱ // 0x336c @0xc
0x3360…339e at000d = ╱ea╱ ; ╱ // 0x336d @0xd
0x3360…339e at000e = ╱22╱"╱ // 0x336e @0xe
0x3360…339e at000f = ╱44╱D╱ // 0x336f @0xf
0x3360…339e at0010 = ╱49╱I╱ // 0x3370 @0x10
0x3360…339e at0011 = ╱46╱F╱ // 0x3371 @0x11
0x3360…339e at0012 = ╱46╱F╱ // 0x3372 @0x12
0x3360…339e at0013 = ╱45╱E╱ // 0x3373 @0x13
0x3360…339e at0014 = ╱52╱R╱ // 0x3374 @0x14
0x3360…339e at0015 = ╱45╱E╱ // 0x3375 @0x15
0x3360…339e at0016 = ╱4e╱N╱ // 0x3376 @0x16
0x3360…339e at0017 = ╱43╱C╱ // 0x3377 @0x17
0x3360…339e at0018 = ╱45╱E╱ // 0x3378 @0x18
0x3360…339e at0019 = ╱22╱"╱ // 0x3379 @0x19
0x3360…339e at001a = ╱ea╱ ; ╱ // 0x337a @0x1a
0x3360…339e at001b = ╱d2╱TAB╱ // 0x337b @0x1b
0x3360…339e at001c = ╱ed╱(╱ // 0x337c @0x1c
0x3360…339e at001d = ╱35╱5╱ // 0x337d @0x1d
0x3360…339e at001e = ╱34╱4╱ // 0x337e @0x1e
0x3360…339e at001f = ╱f23600╱ // 0x337f @0x1f
0x3360…339e at0022 = ╱ee╱)╱ // 0x3382 @0x22
0x3360…339e at0023 = ╱ea╱ ; ╱ // 0x3383 @0x23
0x3360…339e at0024 = ╱d0╱ CHR$ ╱ // 0x3384 @0x24
0x3360…339e at0025 = ╱ed╱(╱ // 0x3385 @0x25
0x3360…339e at0026 = ╱50╱P╱ // 0x3386 @0x26
0x3360…339e at0027 = ╱5f╱_╱ // 0x3387 @0x27
0x3360…339e at0028 = ╱4b╱K╱ // 0x3388 @0x28
0x3360…339e at0029 = ╱52╱R╱ // 0x3389 @0x29
0x3360…339e at002a = ╱45╱E╱ // 0x338a @0x2a
0x3360…339e at002b = ╱44╱D╱ // 0x338b @0x2b
0x3360…339e at002c = ╱e6╱ - ╱ // 0x338c @0x2c
0x3360…339e at002d = ╱50╱P╱ // 0x338d @0x2d
0x3360…339e at002e = ╱5f╱_╱ // 0x338e @0x2e
0x3360…339e at002f = ╱44╱D╱ // 0x338f @0x2f
0x3360…339e at0030 = ╱45╱E╱ // 0x3390 @0x30
0x3360…339e at0031 = ╱42╱B╱ // 0x3391 @0x31
0x3360…339e at0032 = ╱ec╱,╱ // 0x3392 @0x32
0x3360…339e at0033 = ╱39╱9╱ // 0x3393 @0x33
0x3360…339e at0034 = ╱f20900╱ // 0x3394 @0x34
0x3360…339e at0037 = ╱ec╱,╱ // 0x3397 @0x37
0x3360…339e at0038 = ╱32╱2╱ // 0x3398 @0x38
0x3360…339e at0039 = ╱f20200╱ // 0x3399 @0x39
0x3360…339e at003c = ╱ee╱)╱ // 0x339c @0x3c
0x3360…339e at003d = EOL // 0x339d @0x3d
0x3360…339e }
0x339e…33b4 c9a2 5190 LET LIN_T := LIN_T + 1
0x339e…33b4 LineComal80 {
0x339e…33b4 ptr = 0xc9a2 // 0x339e @0x0
0x339e…33b4 lno = 0x1446 // 0x33a0 @0x2
0x339e…33b4 at0004 = ╱86╱ LET ╱ // 0x33a2 @0x4
0x339e…33b4 at0005 = ╱4c╱L╱ // 0x33a3 @0x5
0x339e…33b4 at0006 = ╱49╱I╱ // 0x33a4 @0x6
0x339e…33b4 at0007 = ╱4e╱N╱ // 0x33a5 @0x7
0x339e…33b4 at0008 = ╱5f╱_╱ // 0x33a6 @0x8
0x339e…33b4 at0009 = ╱54╱T╱ // 0x33a7 @0x9
0x339e…33b4 at000a = ╱f0╱ := ╱ // 0x33a8 @0xa
0x339e…33b4 at000b = ╱4c╱L╱ // 0x33a9 @0xb
0x339e…33b4 at000c = ╱49╱I╱ // 0x33aa @0xc
0x339e…33b4 at000d = ╱4e╱N╱ // 0x33ab @0xd
0x339e…33b4 at000e = ╱5f╱_╱ // 0x33ac @0xe
0x339e…33b4 at000f = ╱54╱T╱ // 0x33ad @0xf
0x339e…33b4 at0010 = ╱e5╱ + ╱ // 0x33ae @0x10
0x339e…33b4 at0011 = ╱31╱1╱ // 0x33af @0x11
0x339e…33b4 at0012 = ╱f20100╱ // 0x33b0 @0x12
0x339e…33b4 at0015 = EOL // 0x33b3 @0x15
0x339e…33b4 }
0x33b4…33ba c9a8 5200 ENDIF
0x33b4…33ba LineComal80 {
0x33b4…33ba ptr = 0xc9a8 // 0x33b4 @0x0
0x33b4…33ba lno = 0x1450 // 0x33b6 @0x2
0x33b4…33ba at0004 = ╱9c╱ ENDIF ╱ // 0x33b8 @0x4
0x33b4…33ba at0005 = EOL // 0x33b9 @0x5
0x33b4…33ba }
0x33ba…33c0 c9ae 5210 ENDIF
0x33ba…33c0 LineComal80 {
0x33ba…33c0 ptr = 0xc9ae // 0x33ba @0x0
0x33ba…33c0 lno = 0x145a // 0x33bc @0x2
0x33ba…33c0 at0004 = ╱9c╱ ENDIF ╱ // 0x33be @0x4
0x33ba…33c0 at0005 = EOL // 0x33bf @0x5
0x33ba…33c0 }
0x33c0…33d8 c9c6 5220 FOR I := LIN_T TO AX_LIN DO PRINT
0x33c0…33d8 LineComal80 {
0x33c0…33d8 ptr = 0xc9c6 // 0x33c0 @0x0
0x33c0…33d8 lno = 0x1464 // 0x33c2 @0x2
0x33c0…33d8 at0004 = ╱b400╱ FOR ╱ // 0x33c4 @0x4
0x33c0…33d8 at0006 = ╱49╱I╱ // 0x33c6 @0x6
0x33c0…33d8 at0007 = ╱f0╱ := ╱ // 0x33c7 @0x7
0x33c0…33d8 at0008 = ╱4c╱L╱ // 0x33c8 @0x8
0x33c0…33d8 at0009 = ╱49╱I╱ // 0x33c9 @0x9
0x33c0…33d8 at000a = ╱4e╱N╱ // 0x33ca @0xa
0x33c0…33d8 at000b = ╱5f╱_╱ // 0x33cb @0xb
0x33c0…33d8 at000c = ╱54╱T╱ // 0x33cc @0xc
0x33c0…33d8 at000d = ╱b74d╱ TO ╱ // 0x33cd @0xd
0x33c0…33d8 at000f = ╱41╱A╱ // 0x33cf @0xf
0x33c0…33d8 at0010 = ╱58╱X╱ // 0x33d0 @0x10
0x33c0…33d8 at0011 = ╱5f╱_╱ // 0x33d1 @0x11
0x33c0…33d8 at0012 = ╱4c╱L╱ // 0x33d2 @0x12
0x33c0…33d8 at0013 = ╱49╱I╱ // 0x33d3 @0x13
0x33c0…33d8 at0014 = ╱4e╱N╱ // 0x33d4 @0x14
0x33c0…33d8 at0015 = ╱bb╱ DO ╱ // 0x33d5 @0x15
0x33c0…33d8 at0016 = ╱92╱ PRINT ╱ // 0x33d6 @0x16
0x33c0…33d8 at0017 = EOL // 0x33d7 @0x17
0x33c0…33d8 }
0x33d8…33e4 c9d2 5230 ENDPROC AFSLUT
0x33d8…33e4 LineComal80 {
0x33d8…33e4 ptr = 0xc9d2 // 0x33d8 @0x0
0x33d8…33e4 lno = 0x146e // 0x33da @0x2
0x33d8…33e4 at0004 = ╱9f╱ ENDPROC ╱ // 0x33dc @0x4
0x33d8…33e4 at0005 = ╱41╱A╱ // 0x33dd @0x5
0x33d8…33e4 at0006 = ╱46╱F╱ // 0x33de @0x6
0x33d8…33e4 at0007 = ╱53╱S╱ // 0x33df @0x7
0x33d8…33e4 at0008 = ╱4c╱L╱ // 0x33e0 @0x8
0x33d8…33e4 at0009 = ╱55╱U╱ // 0x33e1 @0x9
0x33d8…33e4 at000a = ╱54╱T╱ // 0x33e2 @0xa
0x33d8…33e4 at000b = EOL // 0x33e3 @0xb
0x33d8…33e4 }
0x33e4…33e9 c9d7 5240
0x33e4…33e9 LineComal80 {
0x33e4…33e9 ptr = 0xc9d7 // 0x33e4 @0x0
0x33e4…33e9 lno = 0x1478 // 0x33e6 @0x2
0x33e4…33e9 at0004 = EOL // 0x33e8 @0x4
0x33e4…33e9 }
0x33e9…3403 c9f1 5250 PROC FIND_KTO( REF R_KTONR$)
0x33e9…3403 LineComal80 {
0x33e9…3403 ptr = 0xc9f1 // 0x33e9 @0x0
0x33e9…3403 lno = 0x1482 // 0x33eb @0x2
0x33e9…3403 at0004 = ╱9e63╱ PROC ╱ // 0x33ed @0x4
0x33e9…3403 at0006 = ╱46╱F╱ // 0x33ef @0x6
0x33e9…3403 at0007 = ╱49╱I╱ // 0x33f0 @0x7
0x33e9…3403 at0008 = ╱4e╱N╱ // 0x33f1 @0x8
0x33e9…3403 at0009 = ╱44╱D╱ // 0x33f2 @0x9
0x33e9…3403 at000a = ╱5f╱_╱ // 0x33f3 @0xa
0x33e9…3403 at000b = ╱4b╱K╱ // 0x33f4 @0xb
0x33e9…3403 at000c = ╱54╱T╱ // 0x33f5 @0xc
0x33e9…3403 at000d = ╱4f╱O╱ // 0x33f6 @0xd
0x33e9…3403 at000e = ╱ed╱(╱ // 0x33f7 @0xe
0x33e9…3403 at000f = ╱b6╱ REF ╱ // 0x33f8 @0xf
0x33e9…3403 at0010 = ╱52╱R╱ // 0x33f9 @0x10
0x33e9…3403 at0011 = ╱5f╱_╱ // 0x33fa @0x11
0x33e9…3403 at0012 = ╱4b╱K╱ // 0x33fb @0x12
0x33e9…3403 at0013 = ╱54╱T╱ // 0x33fc @0x13
0x33e9…3403 at0014 = ╱4f╱O╱ // 0x33fd @0x14
0x33e9…3403 at0015 = ╱4e╱N╱ // 0x33fe @0x15
0x33e9…3403 at0016 = ╱52╱R╱ // 0x33ff @0x16
0x33e9…3403 at0017 = ╱ef╱$╱ // 0x3400 @0x17
0x33e9…3403 at0018 = ╱ee╱)╱ // 0x3401 @0x18
0x33e9…3403 at0019 = EOL // 0x3402 @0x19
0x33e9…3403 }
0x3403…3411 c9ff 5260 LET OK := FALSE
0x3403…3411 LineComal80 {
0x3403…3411 ptr = 0xc9ff // 0x3403 @0x0
0x3403…3411 lno = 0x148c // 0x3405 @0x2
0x3403…3411 at0004 = ╱86╱ LET ╱ // 0x3407 @0x4
0x3403…3411 at0005 = ╱4f╱O╱ // 0x3408 @0x5
0x3403…3411 at0006 = ╱4b╱K╱ // 0x3409 @0x6
0x3403…3411 at0007 = ╱f0╱ := ╱ // 0x340a @0x7
0x3403…3411 at0008 = ╱46╱F╱ // 0x340b @0x8
0x3403…3411 at0009 = ╱41╱A╱ // 0x340c @0x9
0x3403…3411 at000a = ╱4c╱L╱ // 0x340d @0xa
0x3403…3411 at000b = ╱53╱S╱ // 0x340e @0xb
0x3403…3411 at000c = ╱45╱E╱ // 0x340f @0xc
0x3403…3411 at000d = EOL // 0x3410 @0xd
0x3403…3411 }
0x3411…3435 ca23 5270 GET KTOIDX$,1 : I_HØJREC,I_MAXREC
0x3411…3435 LineComal80 {
0x3411…3435 ptr = 0xca23 // 0x3411 @0x0
0x3411…3435 lno = 0x1496 // 0x3413 @0x2
0x3411…3435 at0004 = ╱a9╱ GET ╱ // 0x3415 @0x4
0x3411…3435 at0005 = ╱4b╱K╱ // 0x3416 @0x5
0x3411…3435 at0006 = ╱54╱T╱ // 0x3417 @0x6
0x3411…3435 at0007 = ╱4f╱O╱ // 0x3418 @0x7
0x3411…3435 at0008 = ╱49╱I╱ // 0x3419 @0x8
0x3411…3435 at0009 = ╱44╱D╱ // 0x341a @0x9
0x3411…3435 at000a = ╱58╱X╱ // 0x341b @0xa
0x3411…3435 at000b = ╱ef╱$╱ // 0x341c @0xb
0x3411…3435 at000c = ╱ec╱,╱ // 0x341d @0xc
0x3411…3435 at000d = ╱31╱1╱ // 0x341e @0xd
0x3411…3435 at000e = ╱f20100╱ // 0x341f @0xe
0x3411…3435 at0011 = ╱f1╱ : ╱ // 0x3422 @0x11
0x3411…3435 at0012 = ╱49╱I╱ // 0x3423 @0x12
0x3411…3435 at0013 = ╱5f╱_╱ // 0x3424 @0x13
0x3411…3435 at0014 = ╱48╱H╱ // 0x3425 @0x14
0x3411…3435 at0015 = ╱5c╱Ø╱ // 0x3426 @0x15
0x3411…3435 at0016 = ╱4a╱J╱ // 0x3427 @0x16
0x3411…3435 at0017 = ╱52╱R╱ // 0x3428 @0x17
0x3411…3435 at0018 = ╱45╱E╱ // 0x3429 @0x18
0x3411…3435 at0019 = ╱43╱C╱ // 0x342a @0x19
0x3411…3435 at001a = ╱ec╱,╱ // 0x342b @0x1a
0x3411…3435 at001b = ╱49╱I╱ // 0x342c @0x1b
0x3411…3435 at001c = ╱5f╱_╱ // 0x342d @0x1c
0x3411…3435 at001d = ╱4d╱M╱ // 0x342e @0x1d
0x3411…3435 at001e = ╱41╱A╱ // 0x342f @0x1e
0x3411…3435 at001f = ╱58╱X╱ // 0x3430 @0x1f
0x3411…3435 at0020 = ╱52╱R╱ // 0x3431 @0x20
0x3411…3435 at0021 = ╱45╱E╱ // 0x3432 @0x21
0x3411…3435 at0022 = ╱43╱C╱ // 0x3433 @0x22
0x3411…3435 at0023 = EOL // 0x3434 @0x23
0x3411…3435 }
0x3435…345a ca48 5280 LET LOW := 1 ; HIGH := I_HØJREC ; POS := 2
0x3435…345a LineComal80 {
0x3435…345a ptr = 0xca48 // 0x3435 @0x0
0x3435…345a lno = 0x14a0 // 0x3437 @0x2
0x3435…345a at0004 = ╱86╱ LET ╱ // 0x3439 @0x4
0x3435…345a at0005 = ╱4c╱L╱ // 0x343a @0x5
0x3435…345a at0006 = ╱4f╱O╱ // 0x343b @0x6
0x3435…345a at0007 = ╱57╱W╱ // 0x343c @0x7
0x3435…345a at0008 = ╱f0╱ := ╱ // 0x343d @0x8
0x3435…345a at0009 = ╱31╱1╱ // 0x343e @0x9
0x3435…345a at000a = ╱f20100╱ // 0x343f @0xa
0x3435…345a at000d = ╱ea╱ ; ╱ // 0x3442 @0xd
0x3435…345a at000e = ╱48╱H╱ // 0x3443 @0xe
0x3435…345a at000f = ╱49╱I╱ // 0x3444 @0xf
0x3435…345a at0010 = ╱47╱G╱ // 0x3445 @0x10
0x3435…345a at0011 = ╱48╱H╱ // 0x3446 @0x11
0x3435…345a at0012 = ╱f0╱ := ╱ // 0x3447 @0x12
0x3435…345a at0013 = ╱49╱I╱ // 0x3448 @0x13
0x3435…345a at0014 = ╱5f╱_╱ // 0x3449 @0x14
0x3435…345a at0015 = ╱48╱H╱ // 0x344a @0x15
0x3435…345a at0016 = ╱5c╱Ø╱ // 0x344b @0x16
0x3435…345a at0017 = ╱4a╱J╱ // 0x344c @0x17
0x3435…345a at0018 = ╱52╱R╱ // 0x344d @0x18
0x3435…345a at0019 = ╱45╱E╱ // 0x344e @0x19
0x3435…345a at001a = ╱43╱C╱ // 0x344f @0x1a
0x3435…345a at001b = ╱ea╱ ; ╱ // 0x3450 @0x1b
0x3435…345a at001c = ╱50╱P╱ // 0x3451 @0x1c
0x3435…345a at001d = ╱4f╱O╱ // 0x3452 @0x1d
0x3435…345a at001e = ╱53╱S╱ // 0x3453 @0x1e
0x3435…345a at001f = ╱f0╱ := ╱ // 0x3454 @0x1f
0x3435…345a at0020 = ╱32╱2╱ // 0x3455 @0x20
0x3435…345a at0021 = ╱f20200╱ // 0x3456 @0x21
0x3435…345a at0024 = EOL // 0x3459 @0x24
0x3435…345a }
0x345a…346b ca59 5290 IF IGH > 1 THEN
0x345a…346b LineComal80 {
0x345a…346b ptr = 0xca59 // 0x345a @0x0
0x345a…346b lno = 0x14aa // 0x345c @0x2
0x345a…346b at0004 = ╱9b6448╱ IF ╱ // 0x345e @0x4
0x345a…346b at0007 = ╱49╱I╱ // 0x3461 @0x7
0x345a…346b at0008 = ╱47╱G╱ // 0x3462 @0x8
0x345a…346b at0009 = ╱48╱H╱ // 0x3463 @0x9
0x345a…346b at000a = ╱e1╱ > ╱ // 0x3464 @0xa
0x345a…346b at000b = ╱31╱1╱ // 0x3465 @0xb
0x345a…346b at000c = ╱f20100╱ // 0x3466 @0xc
0x345a…346b at000f = ╱b5╱ THEN ╱ // 0x3469 @0xf
0x345a…346b at0010 = EOL // 0x346a @0x10
0x345a…346b }
0x346b…3472 ca60 5300 REPEAT
0x346b…3472 LineComal80 {
0x346b…3472 ptr = 0xca60 // 0x346b @0x0
0x346b…3472 lno = 0x14b4 // 0x346d @0x2
0x346b…3472 at0004 = ╱9765╱ REPEAT ╱ // 0x346f @0x4
0x346b…3472 at0006 = EOL // 0x3471 @0x6
0x346b…3472 }
0x3472…349e ca8c 5310 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x3472…349e LineComal80 {
0x3472…349e ptr = 0xca8c // 0x3472 @0x0
0x3472…349e lno = 0x14be // 0x3474 @0x2
0x3472…349e at0004 = ╱86╱ LET ╱ // 0x3476 @0x4
0x3472…349e at0005 = ╱50╱P╱ // 0x3477 @0x5
0x3472…349e at0006 = ╱4f╱O╱ // 0x3478 @0x6
0x3472…349e at0007 = ╱53╱S╱ // 0x3479 @0x7
0x3472…349e at0008 = ╱f0╱ := ╱ // 0x347a @0x8
0x3472…349e at0009 = ╱c6╱INT╱ // 0x347b @0x9
0x3472…349e at000a = ╱ed╱(╱ // 0x347c @0xa
0x3472…349e at000b = ╱ed╱(╱ // 0x347d @0xb
0x3472…349e at000c = ╱48╱H╱ // 0x347e @0xc
0x3472…349e at000d = ╱49╱I╱ // 0x347f @0xd
0x3472…349e at000e = ╱47╱G╱ // 0x3480 @0xe
0x3472…349e at000f = ╱48╱H╱ // 0x3481 @0xf
0x3472…349e at0010 = ╱e6╱ - ╱ // 0x3482 @0x10
0x3472…349e at0011 = ╱4c╱L╱ // 0x3483 @0x11
0x3472…349e at0012 = ╱4f╱O╱ // 0x3484 @0x12
0x3472…349e at0013 = ╱57╱W╱ // 0x3485 @0x13
0x3472…349e at0014 = ╱ee╱)╱ // 0x3486 @0x14
0x3472…349e at0015 = ╱e8╱ / ╱ // 0x3487 @0x15
0x3472…349e at0016 = ╱32╱2╱ // 0x3488 @0x16
0x3472…349e at0017 = ╱f20200╱ // 0x3489 @0x17
0x3472…349e at001a = ╱e5╱ + ╱ // 0x348c @0x1a
0x3472…349e at001b = ╱2e╱.╱ // 0x348d @0x1b
0x3472…349e at001c = ╱35╱5╱ // 0x348e @0x1c
0x3472…349e at001d = ╱f88000000000000005╱ // 0x348f @0x1d
0x3472…349e at0026 = ╱ee╱)╱ // 0x3498 @0x26
0x3472…349e at0027 = ╱e5╱ + ╱ // 0x3499 @0x27
0x3472…349e at0028 = ╱4c╱L╱ // 0x349a @0x28
0x3472…349e at0029 = ╱4f╱O╱ // 0x349b @0x29
0x3472…349e at002a = ╱57╱W╱ // 0x349c @0x2a
0x3472…349e at002b = EOL // 0x349d @0x2b
0x3472…349e }
0x349e…34bc caaa 5320 GET KTOIDX$,POS : KTONR$,RECNR
0x349e…34bc LineComal80 {
0x349e…34bc ptr = 0xcaaa // 0x349e @0x0
0x349e…34bc lno = 0x14c8 // 0x34a0 @0x2
0x349e…34bc at0004 = ╱a9╱ GET ╱ // 0x34a2 @0x4
0x349e…34bc at0005 = ╱4b╱K╱ // 0x34a3 @0x5
0x349e…34bc at0006 = ╱54╱T╱ // 0x34a4 @0x6
0x349e…34bc at0007 = ╱4f╱O╱ // 0x34a5 @0x7
0x349e…34bc at0008 = ╱49╱I╱ // 0x34a6 @0x8
0x349e…34bc at0009 = ╱44╱D╱ // 0x34a7 @0x9
0x349e…34bc at000a = ╱58╱X╱ // 0x34a8 @0xa
0x349e…34bc at000b = ╱ef╱$╱ // 0x34a9 @0xb
0x349e…34bc at000c = ╱ec╱,╱ // 0x34aa @0xc
0x349e…34bc at000d = ╱50╱P╱ // 0x34ab @0xd
0x349e…34bc at000e = ╱4f╱O╱ // 0x34ac @0xe
0x349e…34bc at000f = ╱53╱S╱ // 0x34ad @0xf
0x349e…34bc at0010 = ╱f1╱ : ╱ // 0x34ae @0x10
0x349e…34bc at0011 = ╱4b╱K╱ // 0x34af @0x11
0x349e…34bc at0012 = ╱54╱T╱ // 0x34b0 @0x12
0x349e…34bc at0013 = ╱4f╱O╱ // 0x34b1 @0x13
0x349e…34bc at0014 = ╱4e╱N╱ // 0x34b2 @0x14
0x349e…34bc at0015 = ╱52╱R╱ // 0x34b3 @0x15
0x349e…34bc at0016 = ╱ef╱$╱ // 0x34b4 @0x16
0x349e…34bc at0017 = ╱ec╱,╱ // 0x34b5 @0x17
0x349e…34bc at0018 = ╱52╱R╱ // 0x34b6 @0x18
0x349e…34bc at0019 = ╱45╱E╱ // 0x34b7 @0x19
0x349e…34bc at001a = ╱43╱C╱ // 0x34b8 @0x1a
0x349e…34bc at001b = ╱4e╱N╱ // 0x34b9 @0x1b
0x349e…34bc at001c = ╱52╱R╱ // 0x34ba @0x1c
0x349e…34bc at001d = EOL // 0x34bb @0x1d
0x349e…34bc }
0x34bc…34d3 cac1 5330 IF TONR$ > R_KTONR$ THEN
0x34bc…34d3 LineComal80 {
0x34bc…34d3 ptr = 0xcac1 // 0x34bc @0x0
0x34bc…34d3 lno = 0x14d2 // 0x34be @0x2
0x34bc…34d3 at0004 = ╱9b664b╱ IF ╱ // 0x34c0 @0x4
0x34bc…34d3 at0007 = ╱54╱T╱ // 0x34c3 @0x7
0x34bc…34d3 at0008 = ╱4f╱O╱ // 0x34c4 @0x8
0x34bc…34d3 at0009 = ╱4e╱N╱ // 0x34c5 @0x9
0x34bc…34d3 at000a = ╱52╱R╱ // 0x34c6 @0xa
0x34bc…34d3 at000b = ╱ef╱$╱ // 0x34c7 @0xb
0x34bc…34d3 at000c = ╱e1╱ > ╱ // 0x34c8 @0xc
0x34bc…34d3 at000d = ╱52╱R╱ // 0x34c9 @0xd
0x34bc…34d3 at000e = ╱5f╱_╱ // 0x34ca @0xe
0x34bc…34d3 at000f = ╱4b╱K╱ // 0x34cb @0xf
0x34bc…34d3 at0010 = ╱54╱T╱ // 0x34cc @0x10
0x34bc…34d3 at0011 = ╱4f╱O╱ // 0x34cd @0x11
0x34bc…34d3 at0012 = ╱4e╱N╱ // 0x34ce @0x12
0x34bc…34d3 at0013 = ╱52╱R╱ // 0x34cf @0x13
0x34bc…34d3 at0014 = ╱ef╱$╱ // 0x34d0 @0x14
0x34bc…34d3 at0015 = ╱b5╱ THEN ╱ // 0x34d1 @0x15
0x34bc…34d3 at0016 = EOL // 0x34d2 @0x16
0x34bc…34d3 }
0x34d3…34e1 cacf 5340 LET HIGH := POS
0x34d3…34e1 LineComal80 {
0x34d3…34e1 ptr = 0xcacf // 0x34d3 @0x0
0x34d3…34e1 lno = 0x14dc // 0x34d5 @0x2
0x34d3…34e1 at0004 = ╱86╱ LET ╱ // 0x34d7 @0x4
0x34d3…34e1 at0005 = ╱48╱H╱ // 0x34d8 @0x5
0x34d3…34e1 at0006 = ╱49╱I╱ // 0x34d9 @0x6
0x34d3…34e1 at0007 = ╱47╱G╱ // 0x34da @0x7
0x34d3…34e1 at0008 = ╱48╱H╱ // 0x34db @0x8
0x34d3…34e1 at0009 = ╱f0╱ := ╱ // 0x34dc @0x9
0x34d3…34e1 at000a = ╱50╱P╱ // 0x34dd @0xa
0x34d3…34e1 at000b = ╱4f╱O╱ // 0x34de @0xb
0x34d3…34e1 at000c = ╱53╱S╱ // 0x34df @0xc
0x34d3…34e1 at000d = EOL // 0x34e0 @0xd
0x34d3…34e1 }
0x34e1…34e8 cad6 5350 ELSE
0x34e1…34e8 LineComal80 {
0x34e1…34e8 ptr = 0xcad6 // 0x34e1 @0x0
0x34e1…34e8 lno = 0x14e6 // 0x34e3 @0x2
0x34e1…34e8 at0004 = ╱9a67╱ ELSE ╱ // 0x34e5 @0x4
0x34e1…34e8 at0006 = EOL // 0x34e7 @0x6
0x34e1…34e8 }
0x34e8…34ff caed 5360 IF TONR$ < R_KTONR$ THEN
0x34e8…34ff LineComal80 {
0x34e8…34ff ptr = 0xcaed // 0x34e8 @0x0
0x34e8…34ff lno = 0x14f0 // 0x34ea @0x2
0x34e8…34ff at0004 = ╱9b684b╱ IF ╱ // 0x34ec @0x4
0x34e8…34ff at0007 = ╱54╱T╱ // 0x34ef @0x7
0x34e8…34ff at0008 = ╱4f╱O╱ // 0x34f0 @0x8
0x34e8…34ff at0009 = ╱4e╱N╱ // 0x34f1 @0x9
0x34e8…34ff at000a = ╱52╱R╱ // 0x34f2 @0xa
0x34e8…34ff at000b = ╱ef╱$╱ // 0x34f3 @0xb
0x34e8…34ff at000c = ╱e0╱ < ╱ // 0x34f4 @0xc
0x34e8…34ff at000d = ╱52╱R╱ // 0x34f5 @0xd
0x34e8…34ff at000e = ╱5f╱_╱ // 0x34f6 @0xe
0x34e8…34ff at000f = ╱4b╱K╱ // 0x34f7 @0xf
0x34e8…34ff at0010 = ╱54╱T╱ // 0x34f8 @0x10
0x34e8…34ff at0011 = ╱4f╱O╱ // 0x34f9 @0x11
0x34e8…34ff at0012 = ╱4e╱N╱ // 0x34fa @0x12
0x34e8…34ff at0013 = ╱52╱R╱ // 0x34fb @0x13
0x34e8…34ff at0014 = ╱ef╱$╱ // 0x34fc @0x14
0x34e8…34ff at0015 = ╱b5╱ THEN ╱ // 0x34fd @0x15
0x34e8…34ff at0016 = EOL // 0x34fe @0x16
0x34e8…34ff }
0x34ff…350c cafa 5370 LET LOW := POS
0x34ff…350c LineComal80 {
0x34ff…350c ptr = 0xcafa // 0x34ff @0x0
0x34ff…350c lno = 0x14fa // 0x3501 @0x2
0x34ff…350c at0004 = ╱86╱ LET ╱ // 0x3503 @0x4
0x34ff…350c at0005 = ╱4c╱L╱ // 0x3504 @0x5
0x34ff…350c at0006 = ╱4f╱O╱ // 0x3505 @0x6
0x34ff…350c at0007 = ╱57╱W╱ // 0x3506 @0x7
0x34ff…350c at0008 = ╱f0╱ := ╱ // 0x3507 @0x8
0x34ff…350c at0009 = ╱50╱P╱ // 0x3508 @0x9
0x34ff…350c at000a = ╱4f╱O╱ // 0x3509 @0xa
0x34ff…350c at000b = ╱53╱S╱ // 0x350a @0xb
0x34ff…350c at000c = EOL // 0x350b @0xc
0x34ff…350c }
0x350c…3512 cb00 5380 ENDIF
0x350c…3512 LineComal80 {
0x350c…3512 ptr = 0xcb00 // 0x350c @0x0
0x350c…3512 lno = 0x1504 // 0x350e @0x2
0x350c…3512 at0004 = ╱9c╱ ENDIF ╱ // 0x3510 @0x4
0x350c…3512 at0005 = EOL // 0x3511 @0x5
0x350c…3512 }
0x3512…3518 cb06 5390 ENDIF
0x3512…3518 LineComal80 {
0x3512…3518 ptr = 0xcb06 // 0x3512 @0x0
0x3512…3518 lno = 0x150e // 0x3514 @0x2
0x3512…3518 at0004 = ╱9c╱ ENDIF ╱ // 0x3516 @0x4
0x3512…3518 at0005 = EOL // 0x3517 @0x5
0x3512…3518 }
0x3518…353b cb29 5400 UNTIL HIGH - LOW =< 1 OR R_KTONR$ = KTONR$
0x3518…353b LineComal80 {
0x3518…353b ptr = 0xcb29 // 0x3518 @0x0
0x3518…353b lno = 0x1518 // 0x351a @0x2
0x3518…353b at0004 = ╱98╱ UNTIL ╱ // 0x351c @0x4
0x3518…353b at0005 = ╱48╱H╱ // 0x351d @0x5
0x3518…353b at0006 = ╱49╱I╱ // 0x351e @0x6
0x3518…353b at0007 = ╱47╱G╱ // 0x351f @0x7
0x3518…353b at0008 = ╱48╱H╱ // 0x3520 @0x8
0x3518…353b at0009 = ╱e6╱ - ╱ // 0x3521 @0x9
0x3518…353b at000a = ╱4c╱L╱ // 0x3522 @0xa
0x3518…353b at000b = ╱4f╱O╱ // 0x3523 @0xb
0x3518…353b at000c = ╱57╱W╱ // 0x3524 @0xc
0x3518…353b at000d = ╱e2╱ =< ╱ // 0x3525 @0xd
0x3518…353b at000e = ╱31╱1╱ // 0x3526 @0xe
0x3518…353b at000f = ╱f20100╱ // 0x3527 @0xf
0x3518…353b at0012 = ╱d8╱ OR ╱ // 0x352a @0x12
0x3518…353b at0013 = ╱52╱R╱ // 0x352b @0x13
0x3518…353b at0014 = ╱5f╱_╱ // 0x352c @0x14
0x3518…353b at0015 = ╱4b╱K╱ // 0x352d @0x15
0x3518…353b at0016 = ╱54╱T╱ // 0x352e @0x16
0x3518…353b at0017 = ╱4f╱O╱ // 0x352f @0x17
0x3518…353b at0018 = ╱4e╱N╱ // 0x3530 @0x18
0x3518…353b at0019 = ╱52╱R╱ // 0x3531 @0x19
0x3518…353b at001a = ╱ef╱$╱ // 0x3532 @0x1a
0x3518…353b at001b = ╱df╱ = ╱ // 0x3533 @0x1b
0x3518…353b at001c = ╱4b╱K╱ // 0x3534 @0x1c
0x3518…353b at001d = ╱54╱T╱ // 0x3535 @0x1d
0x3518…353b at001e = ╱4f╱O╱ // 0x3536 @0x1e
0x3518…353b at001f = ╱4e╱N╱ // 0x3537 @0x1f
0x3518…353b at0020 = ╱52╱R╱ // 0x3538 @0x20
0x3518…353b at0021 = ╱ef╱$╱ // 0x3539 @0x21
0x3518…353b at0022 = EOL // 0x353a @0x22
0x3518…353b }
0x353b…3567 cb55 5410 LET POS := INT((HIGH - LOW) / 2 + .5) + LOW
0x353b…3567 LineComal80 {
0x353b…3567 ptr = 0xcb55 // 0x353b @0x0
0x353b…3567 lno = 0x1522 // 0x353d @0x2
0x353b…3567 at0004 = ╱86╱ LET ╱ // 0x353f @0x4
0x353b…3567 at0005 = ╱50╱P╱ // 0x3540 @0x5
0x353b…3567 at0006 = ╱4f╱O╱ // 0x3541 @0x6
0x353b…3567 at0007 = ╱53╱S╱ // 0x3542 @0x7
0x353b…3567 at0008 = ╱f0╱ := ╱ // 0x3543 @0x8
0x353b…3567 at0009 = ╱c6╱INT╱ // 0x3544 @0x9
0x353b…3567 at000a = ╱ed╱(╱ // 0x3545 @0xa
0x353b…3567 at000b = ╱ed╱(╱ // 0x3546 @0xb
0x353b…3567 at000c = ╱48╱H╱ // 0x3547 @0xc
0x353b…3567 at000d = ╱49╱I╱ // 0x3548 @0xd
0x353b…3567 at000e = ╱47╱G╱ // 0x3549 @0xe
0x353b…3567 at000f = ╱48╱H╱ // 0x354a @0xf
0x353b…3567 at0010 = ╱e6╱ - ╱ // 0x354b @0x10
0x353b…3567 at0011 = ╱4c╱L╱ // 0x354c @0x11
0x353b…3567 at0012 = ╱4f╱O╱ // 0x354d @0x12
0x353b…3567 at0013 = ╱57╱W╱ // 0x354e @0x13
0x353b…3567 at0014 = ╱ee╱)╱ // 0x354f @0x14
0x353b…3567 at0015 = ╱e8╱ / ╱ // 0x3550 @0x15
0x353b…3567 at0016 = ╱32╱2╱ // 0x3551 @0x16
0x353b…3567 at0017 = ╱f20200╱ // 0x3552 @0x17
0x353b…3567 at001a = ╱e5╱ + ╱ // 0x3555 @0x1a
0x353b…3567 at001b = ╱2e╱.╱ // 0x3556 @0x1b
0x353b…3567 at001c = ╱35╱5╱ // 0x3557 @0x1c
0x353b…3567 at001d = ╱f88000000000000005╱ // 0x3558 @0x1d
0x353b…3567 at0026 = ╱ee╱)╱ // 0x3561 @0x26
0x353b…3567 at0027 = ╱e5╱ + ╱ // 0x3562 @0x27
0x353b…3567 at0028 = ╱4c╱L╱ // 0x3563 @0x28
0x353b…3567 at0029 = ╱4f╱O╱ // 0x3564 @0x29
0x353b…3567 at002a = ╱57╱W╱ // 0x3565 @0x2a
0x353b…3567 at002b = EOL // 0x3566 @0x2b
0x353b…3567 }
0x3567…3585 cb73 5420 GET KTOIDX$,POS : KTONR$,RECNR
0x3567…3585 LineComal80 {
0x3567…3585 ptr = 0xcb73 // 0x3567 @0x0
0x3567…3585 lno = 0x152c // 0x3569 @0x2
0x3567…3585 at0004 = ╱a9╱ GET ╱ // 0x356b @0x4
0x3567…3585 at0005 = ╱4b╱K╱ // 0x356c @0x5
0x3567…3585 at0006 = ╱54╱T╱ // 0x356d @0x6
0x3567…3585 at0007 = ╱4f╱O╱ // 0x356e @0x7
0x3567…3585 at0008 = ╱49╱I╱ // 0x356f @0x8
0x3567…3585 at0009 = ╱44╱D╱ // 0x3570 @0x9
0x3567…3585 at000a = ╱58╱X╱ // 0x3571 @0xa
0x3567…3585 at000b = ╱ef╱$╱ // 0x3572 @0xb
0x3567…3585 at000c = ╱ec╱,╱ // 0x3573 @0xc
0x3567…3585 at000d = ╱50╱P╱ // 0x3574 @0xd
0x3567…3585 at000e = ╱4f╱O╱ // 0x3575 @0xe
0x3567…3585 at000f = ╱53╱S╱ // 0x3576 @0xf
0x3567…3585 at0010 = ╱f1╱ : ╱ // 0x3577 @0x10
0x3567…3585 at0011 = ╱4b╱K╱ // 0x3578 @0x11
0x3567…3585 at0012 = ╱54╱T╱ // 0x3579 @0x12
0x3567…3585 at0013 = ╱4f╱O╱ // 0x357a @0x13
0x3567…3585 at0014 = ╱4e╱N╱ // 0x357b @0x14
0x3567…3585 at0015 = ╱52╱R╱ // 0x357c @0x15
0x3567…3585 at0016 = ╱ef╱$╱ // 0x357d @0x16
0x3567…3585 at0017 = ╱ec╱,╱ // 0x357e @0x17
0x3567…3585 at0018 = ╱52╱R╱ // 0x357f @0x18
0x3567…3585 at0019 = ╱45╱E╱ // 0x3580 @0x19
0x3567…3585 at001a = ╱43╱C╱ // 0x3581 @0x1a
0x3567…3585 at001b = ╱4e╱N╱ // 0x3582 @0x1b
0x3567…3585 at001c = ╱52╱R╱ // 0x3583 @0x1c
0x3567…3585 at001d = EOL // 0x3584 @0x1d
0x3567…3585 }
0x3585…35a4 cb92 5430 IF KTONR$ = R_KTONR$ THEN LET OK := TRUE
0x3585…35a4 LineComal80 {
0x3585…35a4 ptr = 0xcb92 // 0x3585 @0x0
0x3585…35a4 lno = 0x1536 // 0x3587 @0x2
0x3585…35a4 at0004 = ╱8200╱ IF ╱ // 0x3589 @0x4
0x3585…35a4 at0006 = ╱4b╱K╱ // 0x358b @0x6
0x3585…35a4 at0007 = ╱54╱T╱ // 0x358c @0x7
0x3585…35a4 at0008 = ╱4f╱O╱ // 0x358d @0x8
0x3585…35a4 at0009 = ╱4e╱N╱ // 0x358e @0x9
0x3585…35a4 at000a = ╱52╱R╱ // 0x358f @0xa
0x3585…35a4 at000b = ╱ef╱$╱ // 0x3590 @0xb
0x3585…35a4 at000c = ╱df╱ = ╱ // 0x3591 @0xc
0x3585…35a4 at000d = ╱52╱R╱ // 0x3592 @0xd
0x3585…35a4 at000e = ╱5f╱_╱ // 0x3593 @0xe
0x3585…35a4 at000f = ╱4b╱K╱ // 0x3594 @0xf
0x3585…35a4 at0010 = ╱54╱T╱ // 0x3595 @0x10
0x3585…35a4 at0011 = ╱4f╱O╱ // 0x3596 @0x11
0x3585…35a4 at0012 = ╱4e╱N╱ // 0x3597 @0x12
0x3585…35a4 at0013 = ╱52╱R╱ // 0x3598 @0x13
0x3585…35a4 at0014 = ╱ef╱$╱ // 0x3599 @0x14
0x3585…35a4 at0015 = ╱b5╱ THEN ╱ // 0x359a @0x15
0x3585…35a4 at0016 = ╱86╱ LET ╱ // 0x359b @0x16
0x3585…35a4 at0017 = ╱4f╱O╱ // 0x359c @0x17
0x3585…35a4 at0018 = ╱4b╱K╱ // 0x359d @0x18
0x3585…35a4 at0019 = ╱f0╱ := ╱ // 0x359e @0x19
0x3585…35a4 at001a = ╱54╱T╱ // 0x359f @0x1a
0x3585…35a4 at001b = ╱52╱R╱ // 0x35a0 @0x1b
0x3585…35a4 at001c = ╱55╱U╱ // 0x35a1 @0x1c
0x3585…35a4 at001d = ╱45╱E╱ // 0x35a2 @0x1d
0x3585…35a4 at001e = EOL // 0x35a3 @0x1e
0x3585…35a4 }
0x35a4…35aa cb98 5440 ENDIF
0x35a4…35aa LineComal80 {
0x35a4…35aa ptr = 0xcb98 // 0x35a4 @0x0
0x35a4…35aa lno = 0x1540 // 0x35a6 @0x2
0x35a4…35aa at0004 = ╱9c╱ ENDIF ╱ // 0x35a8 @0x4
0x35a4…35aa at0005 = EOL // 0x35a9 @0x5
0x35a4…35aa }
0x35aa…35bc cbaa 5450 LET FIND_KTO := POS
0x35aa…35bc LineComal80 {
0x35aa…35bc ptr = 0xcbaa // 0x35aa @0x0
0x35aa…35bc lno = 0x154a // 0x35ac @0x2
0x35aa…35bc at0004 = ╱86╱ LET ╱ // 0x35ae @0x4
0x35aa…35bc at0005 = ╱46╱F╱ // 0x35af @0x5
0x35aa…35bc at0006 = ╱49╱I╱ // 0x35b0 @0x6
0x35aa…35bc at0007 = ╱4e╱N╱ // 0x35b1 @0x7
0x35aa…35bc at0008 = ╱44╱D╱ // 0x35b2 @0x8
0x35aa…35bc at0009 = ╱5f╱_╱ // 0x35b3 @0x9
0x35aa…35bc at000a = ╱4b╱K╱ // 0x35b4 @0xa
0x35aa…35bc at000b = ╱54╱T╱ // 0x35b5 @0xb
0x35aa…35bc at000c = ╱4f╱O╱ // 0x35b6 @0xc
0x35aa…35bc at000d = ╱f0╱ := ╱ // 0x35b7 @0xd
0x35aa…35bc at000e = ╱50╱P╱ // 0x35b8 @0xe
0x35aa…35bc at000f = ╱4f╱O╱ // 0x35b9 @0xf
0x35aa…35bc at0010 = ╱53╱S╱ // 0x35ba @0x10
0x35aa…35bc at0011 = EOL // 0x35bb @0x11
0x35aa…35bc }
0x35bc…35ca cbb8 5460 ENDPROC FIND_KTO
0x35bc…35ca LineComal80 {
0x35bc…35ca ptr = 0xcbb8 // 0x35bc @0x0
0x35bc…35ca lno = 0x1554 // 0x35be @0x2
0x35bc…35ca at0004 = ╱9f╱ ENDPROC ╱ // 0x35c0 @0x4
0x35bc…35ca at0005 = ╱46╱F╱ // 0x35c1 @0x5
0x35bc…35ca at0006 = ╱49╱I╱ // 0x35c2 @0x6
0x35bc…35ca at0007 = ╱4e╱N╱ // 0x35c3 @0x7
0x35bc…35ca at0008 = ╱44╱D╱ // 0x35c4 @0x8
0x35bc…35ca at0009 = ╱5f╱_╱ // 0x35c5 @0x9
0x35bc…35ca at000a = ╱4b╱K╱ // 0x35c6 @0xa
0x35bc…35ca at000b = ╱54╱T╱ // 0x35c7 @0xb
0x35bc…35ca at000c = ╱4f╱O╱ // 0x35c8 @0xc
0x35bc…35ca at000d = EOL // 0x35c9 @0xd
0x35bc…35ca }
0x35ca…35d0 cea2 5470 //
0x35ca…35d0 LineComal80 {
0x35ca…35d0 ptr = 0xcea2 // 0x35ca @0x0
0x35ca…35d0 lno = 0x155e // 0x35cc @0x2
0x35ca…35d0 at0004 = ╱89╱ // ╱ // 0x35ce @0x4
0x35ca…35d0 at0005 = EOL // 0x35cf @0x5
0x35ca…35d0 }
0x35d0…3603 cbf1 5600 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
0x35d0…3603 LineComal80 {
0x35d0…3603 ptr = 0xcbf1 // 0x35d0 @0x0
0x35d0…3603 lno = 0x15e0 // 0x35d2 @0x2
0x35d0…3603 at0004 = ╱9e00╱ PROC ╱ // 0x35d4 @0x4
0x35d0…3603 at0006 = ╱50╱P╱ // 0x35d6 @0x6
0x35d0…3603 at0007 = ╱52╱R╱ // 0x35d7 @0x7
0x35d0…3603 at0008 = ╱49╱I╱ // 0x35d8 @0x8
0x35d0…3603 at0009 = ╱4e╱N╱ // 0x35d9 @0x9
0x35d0…3603 at000a = ╱54╱T╱ // 0x35da @0xa
0x35d0…3603 at000b = ╱52╱R╱ // 0x35db @0xb
0x35d0…3603 at000c = ╱45╱E╱ // 0x35dc @0xc
0x35d0…3603 at000d = ╱53╱S╱ // 0x35dd @0xd
0x35d0…3603 at000e = ╱ed╱(╱ // 0x35de @0xe
0x35d0…3603 at000f = ╱50╱P╱ // 0x35df @0xf
0x35d0…3603 at0010 = ╱41╱A╱ // 0x35e0 @0x10
0x35d0…3603 at0011 = ╱47╱G╱ // 0x35e1 @0x11
0x35d0…3603 at0012 = ╱45╱E╱ // 0x35e2 @0x12
0x35d0…3603 at0013 = ╱54╱T╱ // 0x35e3 @0x13
0x35d0…3603 at0014 = ╱59╱Y╱ // 0x35e4 @0x14
0x35d0…3603 at0015 = ╱50╱P╱ // 0x35e5 @0x15
0x35d0…3603 at0016 = ╱45╱E╱ // 0x35e6 @0x16
0x35d0…3603 at0017 = ╱ef╱$╱ // 0x35e7 @0x17
0x35d0…3603 at0018 = ╱ec╱,╱ // 0x35e8 @0x18
0x35d0…3603 at0019 = ╱4c╱L╱ // 0x35e9 @0x19
0x35d0…3603 at001a = ╱49╱I╱ // 0x35ea @0x1a
0x35d0…3603 at001b = ╱4e╱N╱ // 0x35eb @0x1b
0x35d0…3603 at001c = ╱45╱E╱ // 0x35ec @0x1c
0x35d0…3603 at001d = ╱ee╱)╱ // 0x35ed @0x1d
0x35d0…3603 at001e = ╱89╱ // ╱ // 0x35ee @0x1e
0x35d0…3603 at001f = ╱50╱P╱ // 0x35ef @0x1f
0x35d0…3603 at0020 = ╱52╱R╱ // 0x35f0 @0x20
0x35d0…3603 at0021 = ╱49╱I╱ // 0x35f1 @0x21
0x35d0…3603 at0022 = ╱4e╱N╱ // 0x35f2 @0x22
0x35d0…3603 at0023 = ╱54╱T╱ // 0x35f3 @0x23
0x35d0…3603 at0024 = ╱45╱E╱ // 0x35f4 @0x24
0x35d0…3603 at0025 = ╱52╱R╱ // 0x35f5 @0x25
0x35d0…3603 at0026 = ╱20╱…╱ // 0x35f6 @0x26
0x35d0…3603 at0027 = ╱52╱R╱ // 0x35f7 @0x27
0x35d0…3603 at0028 = ╱45╱E╱ // 0x35f8 @0x28
0x35d0…3603 at0029 = ╱53╱S╱ // 0x35f9 @0x29
0x35d0…3603 at002a = ╱45╱E╱ // 0x35fa @0x2a
0x35d0…3603 at002b = ╱52╱R╱ // 0x35fb @0x2b
0x35d0…3603 at002c = ╱56╱V╱ // 0x35fc @0x2c
0x35d0…3603 at002d = ╱41╱A╱ // 0x35fd @0x2d
0x35d0…3603 at002e = ╱54╱T╱ // 0x35fe @0x2e
0x35d0…3603 at002f = ╱49╱I╱ // 0x35ff @0x2f
0x35d0…3603 at0030 = ╱4f╱O╱ // 0x3600 @0x30
0x35d0…3603 at0031 = ╱4e╱N╱ // 0x3601 @0x31
0x35d0…3603 at0032 = EOL // 0x3602 @0x32
0x35d0…3603 }
0x3603…361b cc09 5610 LET PRTNR$ := "1" ; OK := TRUE
0x3603…361b LineComal80 {
0x3603…361b ptr = 0xcc09 // 0x3603 @0x0
0x3603…361b lno = 0x15ea // 0x3605 @0x2
0x3603…361b at0004 = ╱86╱ LET ╱ // 0x3607 @0x4
0x3603…361b at0005 = ╱50╱P╱ // 0x3608 @0x5
0x3603…361b at0006 = ╱52╱R╱ // 0x3609 @0x6
0x3603…361b at0007 = ╱54╱T╱ // 0x360a @0x7
0x3603…361b at0008 = ╱4e╱N╱ // 0x360b @0x8
0x3603…361b at0009 = ╱52╱R╱ // 0x360c @0x9
0x3603…361b at000a = ╱ef╱$╱ // 0x360d @0xa
0x3603…361b at000b = ╱f0╱ := ╱ // 0x360e @0xb
0x3603…361b at000c = ╱22╱"╱ // 0x360f @0xc
0x3603…361b at000d = ╱31╱1╱ // 0x3610 @0xd
0x3603…361b at000e = ╱22╱"╱ // 0x3611 @0xe
0x3603…361b at000f = ╱ea╱ ; ╱ // 0x3612 @0xf
0x3603…361b at0010 = ╱4f╱O╱ // 0x3613 @0x10
0x3603…361b at0011 = ╱4b╱K╱ // 0x3614 @0x11
0x3603…361b at0012 = ╱f0╱ := ╱ // 0x3615 @0x12
0x3603…361b at0013 = ╱54╱T╱ // 0x3616 @0x13
0x3603…361b at0014 = ╱52╱R╱ // 0x3617 @0x14
0x3603…361b at0015 = ╱55╱U╱ // 0x3618 @0x15
0x3603…361b at0016 = ╱45╱E╱ // 0x3619 @0x16
0x3603…361b at0017 = EOL // 0x361a @0x17
0x3603…361b }
0x361b…3622 cc10 5620 REPEAT
0x361b…3622 LineComal80 {
0x361b…3622 ptr = 0xcc10 // 0x361b @0x0
0x361b…3622 lno = 0x15f4 // 0x361d @0x2
0x361b…3622 at0004 = ╱9700╱ REPEAT ╱ // 0x361f @0x4
0x361b…3622 at0006 = EOL // 0x3621 @0x6
0x361b…3622 }
0x3622…3632 cc20 5630 CURSOR 15,LINE
0x3622…3632 LineComal80 {
0x3622…3632 ptr = 0xcc20 // 0x3622 @0x0
0x3622…3632 lno = 0x15fe // 0x3624 @0x2
0x3622…3632 at0004 = ╱a1╱ CURSOR ╱ // 0x3626 @0x4
0x3622…3632 at0005 = ╱31╱1╱ // 0x3627 @0x5
0x3622…3632 at0006 = ╱35╱5╱ // 0x3628 @0x6
0x3622…3632 at0007 = ╱f20f00╱ // 0x3629 @0x7
0x3622…3632 at000a = ╱ec╱,╱ // 0x362c @0xa
0x3622…3632 at000b = ╱4c╱L╱ // 0x362d @0xb
0x3622…3632 at000c = ╱49╱I╱ // 0x362e @0xc
0x3622…3632 at000d = ╱4e╱N╱ // 0x362f @0xd
0x3622…3632 at000e = ╱45╱E╱ // 0x3630 @0xe
0x3622…3632 at000f = EOL // 0x3631 @0xf
0x3622…3632 }
0x3632…366b cc59 5640 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
0x3632…366b LineComal80 {
0x3632…366b ptr = 0xcc59 // 0x3632 @0x0
0x3632…366b lno = 0x1608 // 0x3634 @0x2
0x3632…366b at0004 = ╱b1╱ EDIT ╱ // 0x3636 @0x4
0x3632…366b at0005 = ╱22╱"╱ // 0x3637 @0x5
0x3632…366b at0006 = ╱3c╱<╱ // 0x3638 @0x6
0x3632…366b at0007 = ╱5a╱Z╱ // 0x3639 @0x7
0x3632…366b at0008 = ╱3e╱>╱ // 0x363a @0x8
0x3632…366b at0009 = ╱55╱U╱ // 0x363b @0x9
0x3632…366b at000a = ╱64╱d╱ // 0x363c @0xa
0x3632…366b at000b = ╱73╱s╱ // 0x363d @0xb
0x3632…366b at000c = ╱6b╱k╱ // 0x363e @0xc
0x3632…366b at000d = ╱72╱r╱ // 0x363f @0xd
0x3632…366b at000e = ╱69╱i╱ // 0x3640 @0xe
0x3632…366b at000f = ╱76╱v╱ // 0x3641 @0xf
0x3632…366b at0010 = ╱6e╱n╱ // 0x3642 @0x10
0x3632…366b at0011 = ╱69╱i╱ // 0x3643 @0x11
0x3632…366b at0012 = ╱6e╱n╱ // 0x3644 @0x12
0x3632…366b at0013 = ╱67╱g╱ // 0x3645 @0x13
0x3632…366b at0014 = ╱20╱…╱ // 0x3646 @0x14
0x3632…366b at0015 = ╱70╱p╱ // 0x3647 @0x15
0x3632…366b at0016 = ╱7d╱å╱ // 0x3648 @0x16
0x3632…366b at0017 = ╱20╱…╱ // 0x3649 @0x17
0x3632…366b at0018 = ╱70╱p╱ // 0x364a @0x18
0x3632…366b at0019 = ╱72╱r╱ // 0x364b @0x19
0x3632…366b at001a = ╱69╱i╱ // 0x364c @0x1a
0x3632…366b at001b = ╱6e╱n╱ // 0x364d @0x1b
0x3632…366b at001c = ╱74╱t╱ // 0x364e @0x1c
0x3632…366b at001d = ╱65╱e╱ // 0x364f @0x1d
0x3632…366b at001e = ╱72╱r╱ // 0x3650 @0x1e
0x3632…366b at001f = ╱20╱…╱ // 0x3651 @0x1f
0x3632…366b at0020 = ╱6e╱n╱ // 0x3652 @0x20
0x3632…366b at0021 = ╱72╱r╱ // 0x3653 @0x21
0x3632…366b at0022 = ╱2e╱.╱ // 0x3654 @0x22
0x3632…366b at0023 = ╱20╱…╱ // 0x3655 @0x23
0x3632…366b at0024 = ╱3f╱?╱ // 0x3656 @0x24
0x3632…366b at0025 = ╱20╱…╱ // 0x3657 @0x25
0x3632…366b at0026 = ╱28╱(╱ // 0x3658 @0x26
0x3632…366b at0027 = ╱31╱1╱ // 0x3659 @0x27
0x3632…366b at0028 = ╱2f╱/╱ // 0x365a @0x28
0x3632…366b at0029 = ╱32╱2╱ // 0x365b @0x29
0x3632…366b at002a = ╱2f╱/╱ // 0x365c @0x2a
0x3632…366b at002b = ╱33╱3╱ // 0x365d @0x2b
0x3632…366b at002c = ╱2f╱/╱ // 0x365e @0x2c
0x3632…366b at002d = ╱34╱4╱ // 0x365f @0x2d
0x3632…366b at002e = ╱29╱)╱ // 0x3660 @0x2e
0x3632…366b at002f = ╱20╱…╱ // 0x3661 @0x2f
0x3632…366b at0030 = ╱22╱"╱ // 0x3662 @0x30
0x3632…366b at0031 = ╱f1╱ : ╱ // 0x3663 @0x31
0x3632…366b at0032 = ╱50╱P╱ // 0x3664 @0x32
0x3632…366b at0033 = ╱52╱R╱ // 0x3665 @0x33
0x3632…366b at0034 = ╱54╱T╱ // 0x3666 @0x34
0x3632…366b at0035 = ╱4e╱N╱ // 0x3667 @0x35
0x3632…366b at0036 = ╱52╱R╱ // 0x3668 @0x36
0x3632…366b at0037 = ╱ef╱$╱ // 0x3669 @0x37
0x3632…366b at0038 = EOL // 0x366a @0x38
0x3632…366b }
0x366b…368b cc79 5650 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
0x366b…368b LineComal80 {
0x366b…368b ptr = 0xcc79 // 0x366b @0x0
0x366b…368b lno = 0x1612 // 0x366d @0x2
0x366b…368b at0004 = ╱98╱ UNTIL ╱ // 0x366f @0x4
0x366b…368b at0005 = ╱22╱"╱ // 0x3670 @0x5
0x366b…368b at0006 = ╱2f╱/╱ // 0x3671 @0x6
0x366b…368b at0007 = ╱22╱"╱ // 0x3672 @0x7
0x366b…368b at0008 = ╱eb╱ + ╱ // 0x3673 @0x8
0x366b…368b at0009 = ╱50╱P╱ // 0x3674 @0x9
0x366b…368b at000a = ╱52╱R╱ // 0x3675 @0xa
0x366b…368b at000b = ╱54╱T╱ // 0x3676 @0xb
0x366b…368b at000c = ╱4e╱N╱ // 0x3677 @0xc
0x366b…368b at000d = ╱52╱R╱ // 0x3678 @0xd
0x366b…368b at000e = ╱ef╱$╱ // 0x3679 @0xe
0x366b…368b at000f = ╱eb╱ + ╱ // 0x367a @0xf
0x366b…368b at0010 = ╱22╱"╱ // 0x367b @0x10
0x366b…368b at0011 = ╱2f╱/╱ // 0x367c @0x11
0x366b…368b at0012 = ╱22╱"╱ // 0x367d @0x12
0x366b…368b at0013 = ╱dc╱ IN ╱ // 0x367e @0x13
0x366b…368b at0014 = ╱22╱"╱ // 0x367f @0x14
0x366b…368b at0015 = ╱2f╱/╱ // 0x3680 @0x15
0x366b…368b at0016 = ╱31╱1╱ // 0x3681 @0x16
0x366b…368b at0017 = ╱2f╱/╱ // 0x3682 @0x17
0x366b…368b at0018 = ╱32╱2╱ // 0x3683 @0x18
0x366b…368b at0019 = ╱2f╱/╱ // 0x3684 @0x19
0x366b…368b at001a = ╱33╱3╱ // 0x3685 @0x1a
0x366b…368b at001b = ╱2f╱/╱ // 0x3686 @0x1b
0x366b…368b at001c = ╱34╱4╱ // 0x3687 @0x1c
0x366b…368b at001d = ╱2f╱/╱ // 0x3688 @0x1d
0x366b…368b at001e = ╱22╱"╱ // 0x3689 @0x1e
0x366b…368b at001f = EOL // 0x368a @0x1f
0x366b…368b }
0x368b…36af cc9d 5660 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
0x368b…36af LineComal80 {
0x368b…36af ptr = 0xcc9d // 0x368b @0x0
0x368b…36af lno = 0x161c // 0x368d @0x2
0x368b…36af at0004 = ╱a1╱ CURSOR ╱ // 0x368f @0x4
0x368b…36af at0005 = ╱ed╱(╱ // 0x3690 @0x5
0x368b…36af at0006 = ╱33╱3╱ // 0x3691 @0x6
0x368b…36af at0007 = ╱39╱9╱ // 0x3692 @0x7
0x368b…36af at0008 = ╱f22700╱ // 0x3693 @0x8
0x368b…36af at000b = ╱e6╱ - ╱ // 0x3696 @0xb
0x368b…36af at000c = ╱cb╱ // 0x3697 @0xc
0x368b…36af at000d = ╱ed╱(╱ // 0x3698 @0xd
0x368b…36af at000e = ╱50╱P╱ // 0x3699 @0xe
0x368b…36af at000f = ╱41╱A╱ // 0x369a @0xf
0x368b…36af at0010 = ╱47╱G╱ // 0x369b @0x10
0x368b…36af at0011 = ╱45╱E╱ // 0x369c @0x11
0x368b…36af at0012 = ╱54╱T╱ // 0x369d @0x12
0x368b…36af at0013 = ╱59╱Y╱ // 0x369e @0x13
0x368b…36af at0014 = ╱50╱P╱ // 0x369f @0x14
0x368b…36af at0015 = ╱45╱E╱ // 0x36a0 @0x15
0x368b…36af at0016 = ╱ef╱$╱ // 0x36a1 @0x16
0x368b…36af at0017 = ╱ee╱)╱ // 0x36a2 @0x17
0x368b…36af at0018 = ╱ee╱)╱ // 0x36a3 @0x18
0x368b…36af at0019 = ╱da╱ DIV ╱ // 0x36a4 @0x19
0x368b…36af at001a = ╱32╱2╱ // 0x36a5 @0x1a
0x368b…36af at001b = ╱f20200╱ // 0x36a6 @0x1b
0x368b…36af at001e = ╱ec╱,╱ // 0x36a9 @0x1e
0x368b…36af at001f = ╱4c╱L╱ // 0x36aa @0x1f
0x368b…36af at0020 = ╱49╱I╱ // 0x36ab @0x20
0x368b…36af at0021 = ╱4e╱N╱ // 0x36ac @0x21
0x368b…36af at0022 = ╱45╱E╱ // 0x36ad @0x22
0x368b…36af at0023 = EOL // 0x36ae @0x23
0x368b…36af }
0x36af…36ef ccdd 5670 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
0x36af…36ef LineComal80 {
0x36af…36ef ptr = 0xccdd // 0x36af @0x0
0x36af…36ef lno = 0x1626 // 0x36b1 @0x2
0x36af…36ef at0004 = ╱92╱ PRINT ╱ // 0x36b3 @0x4
0x36af…36ef at0005 = ╱22╱"╱ // 0x36b4 @0x5
0x36af…36ef at0006 = ╱3c╱<╱ // 0x36b5 @0x6
0x36af…36ef at0007 = ╱53╱S╱ // 0x36b6 @0x7
0x36af…36ef at0008 = ╱5a╱Z╱ // 0x36b7 @0x8
0x36af…36ef at0009 = ╱3e╱>╱ // 0x36b8 @0x9
0x36af…36ef at000a = ╱20╱…╱ // 0x36b9 @0xa
0x36af…36ef at000b = ╱20╱…╱ // 0x36ba @0xb
0x36af…36ef at000c = ╱20╱…╱ // 0x36bb @0xc
0x36af…36ef at000d = ╱20╱…╱ // 0x36bc @0xd
0x36af…36ef at000e = ╱20╱…╱ // 0x36bd @0xe
0x36af…36ef at000f = ╱4d╱M╱ // 0x36be @0xf
0x36af…36ef at0010 = ╱6f╱o╱ // 0x36bf @0x10
0x36af…36ef at0011 = ╱6e╱n╱ // 0x36c0 @0x11
0x36af…36ef at0012 = ╱74╱t╱ // 0x36c1 @0x12
0x36af…36ef at0013 = ╱65╱e╱ // 0x36c2 @0x13
0x36af…36ef at0014 = ╱72╱r╱ // 0x36c3 @0x14
0x36af…36ef at0015 = ╱20╱…╱ // 0x36c4 @0x15
0x36af…36ef at0016 = ╱22╱"╱ // 0x36c5 @0x16
0x36af…36ef at0017 = ╱ea╱ ; ╱ // 0x36c6 @0x17
0x36af…36ef at0018 = ╱50╱P╱ // 0x36c7 @0x18
0x36af…36ef at0019 = ╱41╱A╱ // 0x36c8 @0x19
0x36af…36ef at001a = ╱47╱G╱ // 0x36c9 @0x1a
0x36af…36ef at001b = ╱45╱E╱ // 0x36ca @0x1b
0x36af…36ef at001c = ╱54╱T╱ // 0x36cb @0x1c
0x36af…36ef at001d = ╱59╱Y╱ // 0x36cc @0x1d
0x36af…36ef at001e = ╱50╱P╱ // 0x36cd @0x1e
0x36af…36ef at001f = ╱45╱E╱ // 0x36ce @0x1f
0x36af…36ef at0020 = ╱ef╱$╱ // 0x36cf @0x20
0x36af…36ef at0021 = ╱ea╱ ; ╱ // 0x36d0 @0x21
0x36af…36ef at0022 = ╱22╱"╱ // 0x36d1 @0x22
0x36af…36ef at0023 = ╱20╱…╱ // 0x36d2 @0x23
0x36af…36ef at0024 = ╱69╱i╱ // 0x36d3 @0x24
0x36af…36ef at0025 = ╱20╱…╱ // 0x36d4 @0x25
0x36af…36ef at0026 = ╱70╱p╱ // 0x36d5 @0x26
0x36af…36ef at0027 = ╱72╱r╱ // 0x36d6 @0x27
0x36af…36ef at0028 = ╱69╱i╱ // 0x36d7 @0x28
0x36af…36ef at0029 = ╱6e╱n╱ // 0x36d8 @0x29
0x36af…36ef at002a = ╱74╱t╱ // 0x36d9 @0x2a
0x36af…36ef at002b = ╱65╱e╱ // 0x36da @0x2b
0x36af…36ef at002c = ╱72╱r╱ // 0x36db @0x2c
0x36af…36ef at002d = ╱65╱e╱ // 0x36dc @0x2d
0x36af…36ef at002e = ╱6e╱n╱ // 0x36dd @0x2e
0x36af…36ef at002f = ╱20╱…╱ // 0x36de @0x2f
0x36af…36ef at0030 = ╱2d╱-╱ // 0x36df @0x30
0x36af…36ef at0031 = ╱20╱…╱ // 0x36e0 @0x31
0x36af…36ef at0032 = ╱74╱t╱ // 0x36e1 @0x32
0x36af…36ef at0033 = ╱72╱r╱ // 0x36e2 @0x33
0x36af…36ef at0034 = ╱79╱y╱ // 0x36e3 @0x34
0x36af…36ef at0035 = ╱6b╱k╱ // 0x36e4 @0x35
0x36af…36ef at0036 = ╱20╱…╱ // 0x36e5 @0x36
0x36af…36ef at0037 = ╱52╱R╱ // 0x36e6 @0x37
0x36af…36ef at0038 = ╱45╱E╱ // 0x36e7 @0x38
0x36af…36ef at0039 = ╱54╱T╱ // 0x36e8 @0x39
0x36af…36ef at003a = ╱55╱U╱ // 0x36e9 @0x3a
0x36af…36ef at003b = ╱52╱R╱ // 0x36ea @0x3b
0x36af…36ef at003c = ╱4e╱N╱ // 0x36eb @0x3c
0x36af…36ef at003d = ╱20╱…╱ // 0x36ec @0x3d
0x36af…36ef at003e = ╱22╱"╱ // 0x36ed @0x3e
0x36af…36ef at003f = EOL // 0x36ee @0x3f
0x36af…36ef }
0x36ef…36fd cceb 5680 INPUT "" : SVAR$
0x36ef…36fd LineComal80 {
0x36ef…36fd ptr = 0xcceb // 0x36ef @0x0
0x36ef…36fd lno = 0x1630 // 0x36f1 @0x2
0x36ef…36fd at0004 = ╱91╱ INPUT ╱ // 0x36f3 @0x4
0x36ef…36fd at0005 = ╱22╱"╱ // 0x36f4 @0x5
0x36ef…36fd at0006 = ╱22╱"╱ // 0x36f5 @0x6
0x36ef…36fd at0007 = ╱f1╱ : ╱ // 0x36f6 @0x7
0x36ef…36fd at0008 = ╱53╱S╱ // 0x36f7 @0x8
0x36ef…36fd at0009 = ╱56╱V╱ // 0x36f8 @0x9
0x36ef…36fd at000a = ╱41╱A╱ // 0x36f9 @0xa
0x36ef…36fd at000b = ╱52╱R╱ // 0x36fa @0xb
0x36ef…36fd at000c = ╱ef╱$╱ // 0x36fb @0xc
0x36ef…36fd at000d = EOL // 0x36fc @0xd
0x36ef…36fd }
0x36fd…370d ccfb 5690 SELECT OUTPUT "P" + PRTNR$
0x36fd…370d LineComal80 {
0x36fd…370d ptr = 0xccfb // 0x36fd @0x0
0x36fd…370d lno = 0x163a // 0x36ff @0x2
0x36fd…370d at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x3701 @0x4
0x36fd…370d at0005 = ╱22╱"╱ // 0x3702 @0x5
0x36fd…370d at0006 = ╱50╱P╱ // 0x3703 @0x6
0x36fd…370d at0007 = ╱22╱"╱ // 0x3704 @0x7
0x36fd…370d at0008 = ╱eb╱ + ╱ // 0x3705 @0x8
0x36fd…370d at0009 = ╱50╱P╱ // 0x3706 @0x9
0x36fd…370d at000a = ╱52╱R╱ // 0x3707 @0xa
0x36fd…370d at000b = ╱54╱T╱ // 0x3708 @0xb
0x36fd…370d at000c = ╱4e╱N╱ // 0x3709 @0xc
0x36fd…370d at000d = ╱52╱R╱ // 0x370a @0xd
0x36fd…370d at000e = ╱ef╱$╱ // 0x370b @0xe
0x36fd…370d at000f = EOL // 0x370c @0xf
0x36fd…370d }
0x370d…371b cd09 5700 IF ("P") THEN
0x370d…371b LineComal80 {
0x370d…371b ptr = 0xcd09 // 0x370d @0x0
0x370d…371b lno = 0x1644 // 0x370f @0x2
0x370d…371b at0004 = ╱9b00cd╱ IF ╱ // 0x3711 @0x4
0x370d…371b at0007 = ╱ed╱(╱ // 0x3714 @0x7
0x370d…371b at0008 = ╱22╱"╱ // 0x3715 @0x8
0x370d…371b at0009 = ╱50╱P╱ // 0x3716 @0x9
0x370d…371b at000a = ╱22╱"╱ // 0x3717 @0xa
0x370d…371b at000b = ╱ee╱)╱ // 0x3718 @0xb
0x370d…371b at000c = ╱b5╱ THEN ╱ // 0x3719 @0xc
0x370d…371b at000d = EOL // 0x371a @0xd
0x370d…371b }
0x371b…372b cd19 5710 CURSOR 12,LINE
0x371b…372b LineComal80 {
0x371b…372b ptr = 0xcd19 // 0x371b @0x0
0x371b…372b lno = 0x164e // 0x371d @0x2
0x371b…372b at0004 = ╱a1╱ CURSOR ╱ // 0x371f @0x4
0x371b…372b at0005 = ╱31╱1╱ // 0x3720 @0x5
0x371b…372b at0006 = ╱32╱2╱ // 0x3721 @0x6
0x371b…372b at0007 = ╱f20c00╱ // 0x3722 @0x7
0x371b…372b at000a = ╱ec╱,╱ // 0x3725 @0xa
0x371b…372b at000b = ╱4c╱L╱ // 0x3726 @0xb
0x371b…372b at000c = ╱49╱I╱ // 0x3727 @0xc
0x371b…372b at000d = ╱4e╱N╱ // 0x3728 @0xd
0x371b…372b at000e = ╱45╱E╱ // 0x3729 @0xe
0x371b…372b at000f = EOL // 0x372a @0xf
0x371b…372b }
0x372b…3762 cd50 5720 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
0x372b…3762 LineComal80 {
0x372b…3762 ptr = 0xcd50 // 0x372b @0x0
0x372b…3762 lno = 0x1658 // 0x372d @0x2
0x372b…3762 at0004 = ╱92╱ PRINT ╱ // 0x372f @0x4
0x372b…3762 at0005 = ╱22╱"╱ // 0x3730 @0x5
0x372b…3762 at0006 = ╱3c╱<╱ // 0x3731 @0x6
0x372b…3762 at0007 = ╱53╱S╱ // 0x3732 @0x7
0x372b…3762 at0008 = ╱5a╱Z╱ // 0x3733 @0x8
0x372b…3762 at0009 = ╱3e╱>╱ // 0x3734 @0x9
0x372b…3762 at000a = ╱50╱P╱ // 0x3735 @0xa
0x372b…3762 at000b = ╱72╱r╱ // 0x3736 @0xb
0x372b…3762 at000c = ╱69╱i╱ // 0x3737 @0xc
0x372b…3762 at000d = ╱6e╱n╱ // 0x3738 @0xd
0x372b…3762 at000e = ╱74╱t╱ // 0x3739 @0xe
0x372b…3762 at000f = ╱65╱e╱ // 0x373a @0xf
0x372b…3762 at0010 = ╱72╱r╱ // 0x373b @0x10
0x372b…3762 at0011 = ╱65╱e╱ // 0x373c @0x11
0x372b…3762 at0012 = ╱6e╱n╱ // 0x373d @0x12
0x372b…3762 at0013 = ╱20╱…╱ // 0x373e @0x13
0x372b…3762 at0014 = ╱65╱e╱ // 0x373f @0x14
0x372b…3762 at0015 = ╱72╱r╱ // 0x3740 @0x15
0x372b…3762 at0016 = ╱20╱…╱ // 0x3741 @0x16
0x372b…3762 at0017 = ╱72╱r╱ // 0x3742 @0x17
0x372b…3762 at0018 = ╱65╱e╱ // 0x3743 @0x18
0x372b…3762 at0019 = ╱73╱s╱ // 0x3744 @0x19
0x372b…3762 at001a = ╱65╱e╱ // 0x3745 @0x1a
0x372b…3762 at001b = ╱72╱r╱ // 0x3746 @0x1b
0x372b…3762 at001c = ╱76╱v╱ // 0x3747 @0x1c
0x372b…3762 at001d = ╱65╱e╱ // 0x3748 @0x1d
0x372b…3762 at001e = ╱72╱r╱ // 0x3749 @0x1e
0x372b…3762 at001f = ╱65╱e╱ // 0x374a @0x1f
0x372b…3762 at0020 = ╱74╱t╱ // 0x374b @0x20
0x372b…3762 at0021 = ╱20╱…╱ // 0x374c @0x21
0x372b…3762 at0022 = ╱61╱a╱ // 0x374d @0x22
0x372b…3762 at0023 = ╱66╱f╱ // 0x374e @0x23
0x372b…3762 at0024 = ╱20╱…╱ // 0x374f @0x24
0x372b…3762 at0025 = ╱65╱e╱ // 0x3750 @0x25
0x372b…3762 at0026 = ╱6e╱n╱ // 0x3751 @0x26
0x372b…3762 at0027 = ╱20╱…╱ // 0x3752 @0x27
0x372b…3762 at0028 = ╱61╱a╱ // 0x3753 @0x28
0x372b…3762 at0029 = ╱6e╱n╱ // 0x3754 @0x29
0x372b…3762 at002a = ╱64╱d╱ // 0x3755 @0x2a
0x372b…3762 at002b = ╱65╱e╱ // 0x3756 @0x2b
0x372b…3762 at002c = ╱6e╱n╱ // 0x3757 @0x2c
0x372b…3762 at002d = ╱20╱…╱ // 0x3758 @0x2d
0x372b…3762 at002e = ╱62╱b╱ // 0x3759 @0x2e
0x372b…3762 at002f = ╱72╱r╱ // 0x375a @0x2f
0x372b…3762 at0030 = ╱75╱u╱ // 0x375b @0x30
0x372b…3762 at0031 = ╱67╱g╱ // 0x375c @0x31
0x372b…3762 at0032 = ╱65╱e╱ // 0x375d @0x32
0x372b…3762 at0033 = ╱72╱r╱ // 0x375e @0x33
0x372b…3762 at0034 = ╱2c╱,╱ // 0x375f @0x34
0x372b…3762 at0035 = ╱22╱"╱ // 0x3760 @0x35
0x372b…3762 at0036 = EOL // 0x3761 @0x36
0x372b…3762 }
0x3762…3777 cd65 5730 CURSOR 12,LINE + 1
0x3762…3777 LineComal80 {
0x3762…3777 ptr = 0xcd65 // 0x3762 @0x0
0x3762…3777 lno = 0x1662 // 0x3764 @0x2
0x3762…3777 at0004 = ╱a1╱ CURSOR ╱ // 0x3766 @0x4
0x3762…3777 at0005 = ╱31╱1╱ // 0x3767 @0x5
0x3762…3777 at0006 = ╱32╱2╱ // 0x3768 @0x6
0x3762…3777 at0007 = ╱f20c00╱ // 0x3769 @0x7
0x3762…3777 at000a = ╱ec╱,╱ // 0x376c @0xa
0x3762…3777 at000b = ╱4c╱L╱ // 0x376d @0xb
0x3762…3777 at000c = ╱49╱I╱ // 0x376e @0xc
0x3762…3777 at000d = ╱4e╱N╱ // 0x376f @0xd
0x3762…3777 at000e = ╱45╱E╱ // 0x3770 @0xe
0x3762…3777 at000f = ╱e5╱ + ╱ // 0x3771 @0xf
0x3762…3777 at0010 = ╱31╱1╱ // 0x3772 @0x10
0x3762…3777 at0011 = ╱f20100╱ // 0x3773 @0x11
0x3762…3777 at0014 = EOL // 0x3776 @0x14
0x3762…3777 }
0x3777…37b8 cda6 5740 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
0x3777…37b8 LineComal80 {
0x3777…37b8 ptr = 0xcda6 // 0x3777 @0x0
0x3777…37b8 lno = 0x166c // 0x3779 @0x2
0x3777…37b8 at0004 = ╱91╱ INPUT ╱ // 0x377b @0x4
0x3777…37b8 at0005 = ╱22╱"╱ // 0x377c @0x5
0x3777…37b8 at0006 = ╱3c╱<╱ // 0x377d @0x6
0x3777…37b8 at0007 = ╱53╱S╱ // 0x377e @0x7
0x3777…37b8 at0008 = ╱5a╱Z╱ // 0x377f @0x8
0x3777…37b8 at0009 = ╱3e╱>╱ // 0x3780 @0x9
0x3777…37b8 at000a = ╱53╱S╱ // 0x3781 @0xa
0x3777…37b8 at000b = ╱6b╱k╱ // 0x3782 @0xb
0x3777…37b8 at000c = ╱61╱a╱ // 0x3783 @0xc
0x3777…37b8 at000d = ╱6c╱l╱ // 0x3784 @0xd
0x3777…37b8 at000e = ╱20╱…╱ // 0x3785 @0xe
0x3777…37b8 at000f = ╱64╱d╱ // 0x3786 @0xf
0x3777…37b8 at0010 = ╱65╱e╱ // 0x3787 @0x10
0x3777…37b8 at0011 = ╱72╱r╱ // 0x3788 @0x11
0x3777…37b8 at0012 = ╱20╱…╱ // 0x3789 @0x12
0x3777…37b8 at0013 = ╱76╱v╱ // 0x378a @0x13
0x3777…37b8 at0014 = ╱65╱e╱ // 0x378b @0x14
0x3777…37b8 at0015 = ╱6e╱n╱ // 0x378c @0x15
0x3777…37b8 at0016 = ╱74╱t╱ // 0x378d @0x16
0x3777…37b8 at0017 = ╱65╱e╱ // 0x378e @0x17
0x3777…37b8 at0018 = ╱73╱s╱ // 0x378f @0x18
0x3777…37b8 at0019 = ╱20╱…╱ // 0x3790 @0x19
0x3777…37b8 at001a = ╱70╱p╱ // 0x3791 @0x1a
0x3777…37b8 at001b = ╱7d╱å╱ // 0x3792 @0x1b
0x3777…37b8 at001c = ╱20╱…╱ // 0x3793 @0x1c
0x3777…37b8 at001d = ╱61╱a╱ // 0x3794 @0x1d
0x3777…37b8 at001e = ╱74╱t╱ // 0x3795 @0x1e
0x3777…37b8 at001f = ╱20╱…╱ // 0x3796 @0x1f
0x3777…37b8 at0020 = ╱64╱d╱ // 0x3797 @0x20
0x3777…37b8 at0021 = ╱65╱e╱ // 0x3798 @0x21
0x3777…37b8 at0022 = ╱6e╱n╱ // 0x3799 @0x22
0x3777…37b8 at0023 = ╱20╱…╱ // 0x379a @0x23
0x3777…37b8 at0024 = ╱62╱b╱ // 0x379b @0x24
0x3777…37b8 at0025 = ╱6c╱l╱ // 0x379c @0x25
0x3777…37b8 at0026 = ╱69╱i╱ // 0x379d @0x26
0x3777…37b8 at0027 = ╱76╱v╱ // 0x379e @0x27
0x3777…37b8 at0028 = ╱65╱e╱ // 0x379f @0x28
0x3777…37b8 at0029 = ╱72╱r╱ // 0x37a0 @0x29
0x3777…37b8 at002a = ╱20╱…╱ // 0x37a1 @0x2a
0x3777…37b8 at002b = ╱6c╱l╱ // 0x37a2 @0x2b
0x3777…37b8 at002c = ╱65╱e╱ // 0x37a3 @0x2c
0x3777…37b8 at002d = ╱64╱d╱ // 0x37a4 @0x2d
0x3777…37b8 at002e = ╱69╱i╱ // 0x37a5 @0x2e
0x3777…37b8 at002f = ╱67╱g╱ // 0x37a6 @0x2f
0x3777…37b8 at0030 = ╱20╱…╱ // 0x37a7 @0x30
0x3777…37b8 at0031 = ╱3f╱?╱ // 0x37a8 @0x31
0x3777…37b8 at0032 = ╱20╱…╱ // 0x37a9 @0x32
0x3777…37b8 at0033 = ╱28╱(╱ // 0x37aa @0x33
0x3777…37b8 at0034 = ╱6a╱j╱ // 0x37ab @0x34
0x3777…37b8 at0035 = ╱2f╱/╱ // 0x37ac @0x35
0x3777…37b8 at0036 = ╱6e╱n╱ // 0x37ad @0x36
0x3777…37b8 at0037 = ╱29╱)╱ // 0x37ae @0x37
0x3777…37b8 at0038 = ╱20╱…╱ // 0x37af @0x38
0x3777…37b8 at0039 = ╱22╱"╱ // 0x37b0 @0x39
0x3777…37b8 at003a = ╱f1╱ : ╱ // 0x37b1 @0x3a
0x3777…37b8 at003b = ╱53╱S╱ // 0x37b2 @0x3b
0x3777…37b8 at003c = ╱56╱V╱ // 0x37b3 @0x3c
0x3777…37b8 at003d = ╱41╱A╱ // 0x37b4 @0x3d
0x3777…37b8 at003e = ╱52╱R╱ // 0x37b5 @0x3e
0x3777…37b8 at003f = ╱ef╱$╱ // 0x37b6 @0x3f
0x3777…37b8 at0040 = EOL // 0x37b7 @0x40
0x3777…37b8 }
0x37b8…37d3 cdc1 5750 IF VAR$ = "J" OR SVAR$ = "j" THEN
0x37b8…37d3 LineComal80 {
0x37b8…37d3 ptr = 0xcdc1 // 0x37b8 @0x0
0x37b8…37d3 lno = 0x1676 // 0x37ba @0x2
0x37b8…37d3 at0004 = ╱9b0053╱ IF ╱ // 0x37bc @0x4
0x37b8…37d3 at0007 = ╱56╱V╱ // 0x37bf @0x7
0x37b8…37d3 at0008 = ╱41╱A╱ // 0x37c0 @0x8
0x37b8…37d3 at0009 = ╱52╱R╱ // 0x37c1 @0x9
0x37b8…37d3 at000a = ╱ef╱$╱ // 0x37c2 @0xa
0x37b8…37d3 at000b = ╱df╱ = ╱ // 0x37c3 @0xb
0x37b8…37d3 at000c = ╱22╱"╱ // 0x37c4 @0xc
0x37b8…37d3 at000d = ╱4a╱J╱ // 0x37c5 @0xd
0x37b8…37d3 at000e = ╱22╱"╱ // 0x37c6 @0xe
0x37b8…37d3 at000f = ╱d8╱ OR ╱ // 0x37c7 @0xf
0x37b8…37d3 at0010 = ╱53╱S╱ // 0x37c8 @0x10
0x37b8…37d3 at0011 = ╱56╱V╱ // 0x37c9 @0x11
0x37b8…37d3 at0012 = ╱41╱A╱ // 0x37ca @0x12
0x37b8…37d3 at0013 = ╱52╱R╱ // 0x37cb @0x13
0x37b8…37d3 at0014 = ╱ef╱$╱ // 0x37cc @0x14
0x37b8…37d3 at0015 = ╱df╱ = ╱ // 0x37cd @0x15
0x37b8…37d3 at0016 = ╱22╱"╱ // 0x37ce @0x16
0x37b8…37d3 at0017 = ╱6a╱j╱ // 0x37cf @0x17
0x37b8…37d3 at0018 = ╱22╱"╱ // 0x37d0 @0x18
0x37b8…37d3 at0019 = ╱b5╱ THEN ╱ // 0x37d1 @0x19
0x37b8…37d3 at001a = EOL // 0x37d2 @0x1a
0x37b8…37d3 }
0x37d3…37e3 cdd1 5760 CURSOR 12,LINE
0x37d3…37e3 LineComal80 {
0x37d3…37e3 ptr = 0xcdd1 // 0x37d3 @0x0
0x37d3…37e3 lno = 0x1680 // 0x37d5 @0x2
0x37d3…37e3 at0004 = ╱a1╱ CURSOR ╱ // 0x37d7 @0x4
0x37d3…37e3 at0005 = ╱31╱1╱ // 0x37d8 @0x5
0x37d3…37e3 at0006 = ╱32╱2╱ // 0x37d9 @0x6
0x37d3…37e3 at0007 = ╱f20c00╱ // 0x37da @0x7
0x37d3…37e3 at000a = ╱ec╱,╱ // 0x37dd @0xa
0x37d3…37e3 at000b = ╱4c╱L╱ // 0x37de @0xb
0x37d3…37e3 at000c = ╱49╱I╱ // 0x37df @0xc
0x37d3…37e3 at000d = ╱4e╱N╱ // 0x37e0 @0xd
0x37d3…37e3 at000e = ╱45╱E╱ // 0x37e1 @0xe
0x37d3…37e3 at000f = EOL // 0x37e2 @0xf
0x37d3…37e3 }
0x37e3…381e ce0c 5770 PRINT "<Z> Der ventes på at printeren bliver ledig...."
0x37e3…381e LineComal80 {
0x37e3…381e ptr = 0xce0c // 0x37e3 @0x0
0x37e3…381e lno = 0x168a // 0x37e5 @0x2
0x37e3…381e at0004 = ╱92╱ PRINT ╱ // 0x37e7 @0x4
0x37e3…381e at0005 = ╱22╱"╱ // 0x37e8 @0x5
0x37e3…381e at0006 = ╱3c╱<╱ // 0x37e9 @0x6
0x37e3…381e at0007 = ╱5a╱Z╱ // 0x37ea @0x7
0x37e3…381e at0008 = ╱3e╱>╱ // 0x37eb @0x8
0x37e3…381e at0009 = ╱20╱…╱ // 0x37ec @0x9
0x37e3…381e at000a = ╱20╱…╱ // 0x37ed @0xa
0x37e3…381e at000b = ╱20╱…╱ // 0x37ee @0xb
0x37e3…381e at000c = ╱20╱…╱ // 0x37ef @0xc
0x37e3…381e at000d = ╱20╱…╱ // 0x37f0 @0xd
0x37e3…381e at000e = ╱44╱D╱ // 0x37f1 @0xe
0x37e3…381e at000f = ╱65╱e╱ // 0x37f2 @0xf
0x37e3…381e at0010 = ╱72╱r╱ // 0x37f3 @0x10
0x37e3…381e at0011 = ╱20╱…╱ // 0x37f4 @0x11
0x37e3…381e at0012 = ╱76╱v╱ // 0x37f5 @0x12
0x37e3…381e at0013 = ╱65╱e╱ // 0x37f6 @0x13
0x37e3…381e at0014 = ╱6e╱n╱ // 0x37f7 @0x14
0x37e3…381e at0015 = ╱74╱t╱ // 0x37f8 @0x15
0x37e3…381e at0016 = ╱65╱e╱ // 0x37f9 @0x16
0x37e3…381e at0017 = ╱73╱s╱ // 0x37fa @0x17
0x37e3…381e at0018 = ╱20╱…╱ // 0x37fb @0x18
0x37e3…381e at0019 = ╱70╱p╱ // 0x37fc @0x19
0x37e3…381e at001a = ╱7d╱å╱ // 0x37fd @0x1a
0x37e3…381e at001b = ╱20╱…╱ // 0x37fe @0x1b
0x37e3…381e at001c = ╱61╱a╱ // 0x37ff @0x1c
0x37e3…381e at001d = ╱74╱t╱ // 0x3800 @0x1d
0x37e3…381e at001e = ╱20╱…╱ // 0x3801 @0x1e
0x37e3…381e at001f = ╱70╱p╱ // 0x3802 @0x1f
0x37e3…381e at0020 = ╱72╱r╱ // 0x3803 @0x20
0x37e3…381e at0021 = ╱69╱i╱ // 0x3804 @0x21
0x37e3…381e at0022 = ╱6e╱n╱ // 0x3805 @0x22
0x37e3…381e at0023 = ╱74╱t╱ // 0x3806 @0x23
0x37e3…381e at0024 = ╱65╱e╱ // 0x3807 @0x24
0x37e3…381e at0025 = ╱72╱r╱ // 0x3808 @0x25
0x37e3…381e at0026 = ╱65╱e╱ // 0x3809 @0x26
0x37e3…381e at0027 = ╱6e╱n╱ // 0x380a @0x27
0x37e3…381e at0028 = ╱20╱…╱ // 0x380b @0x28
0x37e3…381e at0029 = ╱62╱b╱ // 0x380c @0x29
0x37e3…381e at002a = ╱6c╱l╱ // 0x380d @0x2a
0x37e3…381e at002b = ╱69╱i╱ // 0x380e @0x2b
0x37e3…381e at002c = ╱76╱v╱ // 0x380f @0x2c
0x37e3…381e at002d = ╱65╱e╱ // 0x3810 @0x2d
0x37e3…381e at002e = ╱72╱r╱ // 0x3811 @0x2e
0x37e3…381e at002f = ╱20╱…╱ // 0x3812 @0x2f
0x37e3…381e at0030 = ╱6c╱l╱ // 0x3813 @0x30
0x37e3…381e at0031 = ╱65╱e╱ // 0x3814 @0x31
0x37e3…381e at0032 = ╱64╱d╱ // 0x3815 @0x32
0x37e3…381e at0033 = ╱69╱i╱ // 0x3816 @0x33
0x37e3…381e at0034 = ╱67╱g╱ // 0x3817 @0x34
0x37e3…381e at0035 = ╱2e╱.╱ // 0x3818 @0x35
0x37e3…381e at0036 = ╱2e╱.╱ // 0x3819 @0x36
0x37e3…381e at0037 = ╱2e╱.╱ // 0x381a @0x37
0x37e3…381e at0038 = ╱2e╱.╱ // 0x381b @0x38
0x37e3…381e at0039 = ╱22╱"╱ // 0x381c @0x39
0x37e3…381e at003a = EOL // 0x381d @0x3a
0x37e3…381e }
0x381e…382a ce18 5780 PRINT "<SZ>"
0x381e…382a LineComal80 {
0x381e…382a ptr = 0xce18 // 0x381e @0x0
0x381e…382a lno = 0x1694 // 0x3820 @0x2
0x381e…382a at0004 = ╱92╱ PRINT ╱ // 0x3822 @0x4
0x381e…382a at0005 = ╱22╱"╱ // 0x3823 @0x5
0x381e…382a at0006 = ╱3c╱<╱ // 0x3824 @0x6
0x381e…382a at0007 = ╱53╱S╱ // 0x3825 @0x7
0x381e…382a at0008 = ╱5a╱Z╱ // 0x3826 @0x8
0x381e…382a at0009 = ╱3e╱>╱ // 0x3827 @0x9
0x381e…382a at000a = ╱22╱"╱ // 0x3828 @0xa
0x381e…382a at000b = EOL // 0x3829 @0xb
0x381e…382a }
0x382a…3838 ce26 5790 WHILE ╱cd╱ ("P") DO
0x382a…3838 LineComal80 {
0x382a…3838 ptr = 0xce26 // 0x382a @0x0
0x382a…3838 lno = 0x169e // 0x382c @0x2
0x382a…3838 at0004 = ╱9300╱ WHILE ╱ // 0x382e @0x4
0x382a…3838 at0006 = ╱cd╱ // 0x3830 @0x6
0x382a…3838 at0007 = ╱ed╱(╱ // 0x3831 @0x7
0x382a…3838 at0008 = ╱22╱"╱ // 0x3832 @0x8
0x382a…3838 at0009 = ╱50╱P╱ // 0x3833 @0x9
0x382a…3838 at000a = ╱22╱"╱ // 0x3834 @0xa
0x382a…3838 at000b = ╱ee╱)╱ // 0x3835 @0xb
0x382a…3838 at000c = ╱bb╱ DO ╱ // 0x3836 @0xc
0x382a…3838 at000d = EOL // 0x3837 @0xd
0x382a…3838 }
0x3838…3849 ce37 5800 LET SEK := ╱ca╱ (5)
0x3838…3849 LineComal80 {
0x3838…3849 ptr = 0xce37 // 0x3838 @0x0
0x3838…3849 lno = 0x16a8 // 0x383a @0x2
0x3838…3849 at0004 = ╱86╱ LET ╱ // 0x383c @0x4
0x3838…3849 at0005 = ╱53╱S╱ // 0x383d @0x5
0x3838…3849 at0006 = ╱45╱E╱ // 0x383e @0x6
0x3838…3849 at0007 = ╱4b╱K╱ // 0x383f @0x7
0x3838…3849 at0008 = ╱f0╱ := ╱ // 0x3840 @0x8
0x3838…3849 at0009 = ╱ca╱ // 0x3841 @0x9
0x3838…3849 at000a = ╱ed╱(╱ // 0x3842 @0xa
0x3838…3849 at000b = ╱35╱5╱ // 0x3843 @0xb
0x3838…3849 at000c = ╱f20500╱ // 0x3844 @0xc
0x3838…3849 at000f = ╱ee╱)╱ // 0x3847 @0xf
0x3838…3849 at0010 = EOL // 0x3848 @0x10
0x3838…3849 }
0x3849…3859 ce47 5810 SELECT OUTPUT "P" + PRTNR$
0x3849…3859 LineComal80 {
0x3849…3859 ptr = 0xce47 // 0x3849 @0x0
0x3849…3859 lno = 0x16b2 // 0x384b @0x2
0x3849…3859 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x384d @0x4
0x3849…3859 at0005 = ╱22╱"╱ // 0x384e @0x5
0x3849…3859 at0006 = ╱50╱P╱ // 0x384f @0x6
0x3849…3859 at0007 = ╱22╱"╱ // 0x3850 @0x7
0x3849…3859 at0008 = ╱eb╱ + ╱ // 0x3851 @0x8
0x3849…3859 at0009 = ╱50╱P╱ // 0x3852 @0x9
0x3849…3859 at000a = ╱52╱R╱ // 0x3853 @0xa
0x3849…3859 at000b = ╱54╱T╱ // 0x3854 @0xb
0x3849…3859 at000c = ╱4e╱N╱ // 0x3855 @0xc
0x3849…3859 at000d = ╱52╱R╱ // 0x3856 @0xd
0x3849…3859 at000e = ╱ef╱$╱ // 0x3857 @0xe
0x3849…3859 at000f = EOL // 0x3858 @0xf
0x3849…3859 }
0x3859…385f ce4d 5820 ENDWHILE
0x3859…385f LineComal80 {
0x3859…385f ptr = 0xce4d // 0x3859 @0x0
0x3859…385f lno = 0x16bc // 0x385b @0x2
0x3859…385f at0004 = ╱94╱ ENDWHILE ╱ // 0x385d @0x4
0x3859…385f at0005 = EOL // 0x385e @0x5
0x3859…385f }
0x385f…3866 ce54 5830 ELSE
0x385f…3866 LineComal80 {
0x385f…3866 ptr = 0xce54 // 0x385f @0x0
0x385f…3866 lno = 0x16c6 // 0x3861 @0x2
0x385f…3866 at0004 = ╱9a00╱ ELSE ╱ // 0x3863 @0x4
0x385f…3866 at0006 = EOL // 0x3865 @0x6
0x385f…3866 }
0x3866…3874 ce62 5840 LET OK := FALSE
0x3866…3874 LineComal80 {
0x3866…3874 ptr = 0xce62 // 0x3866 @0x0
0x3866…3874 lno = 0x16d0 // 0x3868 @0x2
0x3866…3874 at0004 = ╱86╱ LET ╱ // 0x386a @0x4
0x3866…3874 at0005 = ╱4f╱O╱ // 0x386b @0x5
0x3866…3874 at0006 = ╱4b╱K╱ // 0x386c @0x6
0x3866…3874 at0007 = ╱f0╱ := ╱ // 0x386d @0x7
0x3866…3874 at0008 = ╱46╱F╱ // 0x386e @0x8
0x3866…3874 at0009 = ╱41╱A╱ // 0x386f @0x9
0x3866…3874 at000a = ╱4c╱L╱ // 0x3870 @0xa
0x3866…3874 at000b = ╱53╱S╱ // 0x3871 @0xb
0x3866…3874 at000c = ╱45╱E╱ // 0x3872 @0xc
0x3866…3874 at000d = EOL // 0x3873 @0xd
0x3866…3874 }
0x3874…387a ce68 5850 ENDIF
0x3874…387a LineComal80 {
0x3874…387a ptr = 0xce68 // 0x3874 @0x0
0x3874…387a lno = 0x16da // 0x3876 @0x2
0x3874…387a at0004 = ╱9c╱ ENDIF ╱ // 0x3878 @0x4
0x3874…387a at0005 = EOL // 0x3879 @0x5
0x3874…387a }
0x387a…3880 ce6e 5860 ENDIF
0x387a…3880 LineComal80 {
0x387a…3880 ptr = 0xce6e // 0x387a @0x0
0x387a…3880 lno = 0x16e4 // 0x387c @0x2
0x387a…3880 at0004 = ╱9c╱ ENDIF ╱ // 0x387e @0x4
0x387a…3880 at0005 = EOL // 0x387f @0x5
0x387a…3880 }
0x3880…388f ce7d 5870 CURSOR 1,LINE
0x3880…388f LineComal80 {
0x3880…388f ptr = 0xce7d // 0x3880 @0x0
0x3880…388f lno = 0x16ee // 0x3882 @0x2
0x3880…388f at0004 = ╱a1╱ CURSOR ╱ // 0x3884 @0x4
0x3880…388f at0005 = ╱31╱1╱ // 0x3885 @0x5
0x3880…388f at0006 = ╱f20100╱ // 0x3886 @0x6
0x3880…388f at0009 = ╱ec╱,╱ // 0x3889 @0x9
0x3880…388f at000a = ╱4c╱L╱ // 0x388a @0xa
0x3880…388f at000b = ╱49╱I╱ // 0x388b @0xb
0x3880…388f at000c = ╱4e╱N╱ // 0x388c @0xc
0x3880…388f at000d = ╱45╱E╱ // 0x388d @0xd
0x3880…388f at000e = EOL // 0x388e @0xe
0x3880…388f }
0x388f…389a ce88 5880 PRINT "<Z>"
0x388f…389a LineComal80 {
0x388f…389a ptr = 0xce88 // 0x388f @0x0
0x388f…389a lno = 0x16f8 // 0x3891 @0x2
0x388f…389a at0004 = ╱92╱ PRINT ╱ // 0x3893 @0x4
0x388f…389a at0005 = ╱22╱"╱ // 0x3894 @0x5
0x388f…389a at0006 = ╱3c╱<╱ // 0x3895 @0x6
0x388f…389a at0007 = ╱5a╱Z╱ // 0x3896 @0x7
0x388f…389a at0008 = ╱3e╱>╱ // 0x3897 @0x8
0x388f…389a at0009 = ╱22╱"╱ // 0x3898 @0x9
0x388f…389a at000a = EOL // 0x3899 @0xa
0x388f…389a }
0x389a…38a6 ce94 5890 PRINT "<SZ>"
0x389a…38a6 LineComal80 {
0x389a…38a6 ptr = 0xce94 // 0x389a @0x0
0x389a…38a6 lno = 0x1702 // 0x389c @0x2
0x389a…38a6 at0004 = ╱92╱ PRINT ╱ // 0x389e @0x4
0x389a…38a6 at0005 = ╱22╱"╱ // 0x389f @0x5
0x389a…38a6 at0006 = ╱3c╱<╱ // 0x38a0 @0x6
0x389a…38a6 at0007 = ╱53╱S╱ // 0x38a1 @0x7
0x389a…38a6 at0008 = ╱5a╱Z╱ // 0x38a2 @0x8
0x389a…38a6 at0009 = ╱3e╱>╱ // 0x38a3 @0x9
0x389a…38a6 at000a = ╱22╱"╱ // 0x38a4 @0xa
0x389a…38a6 at000b = EOL // 0x38a5 @0xb
0x389a…38a6 }
0x38a6…38b4 cea2 5900 ENDPROC PRINTRES
0x38a6…38b4 LineComal80 {
0x38a6…38b4 ptr = 0xcea2 // 0x38a6 @0x0
0x38a6…38b4 lno = 0x170c // 0x38a8 @0x2
0x38a6…38b4 at0004 = ╱9f╱ ENDPROC ╱ // 0x38aa @0x4
0x38a6…38b4 at0005 = ╱50╱P╱ // 0x38ab @0x5
0x38a6…38b4 at0006 = ╱52╱R╱ // 0x38ac @0x6
0x38a6…38b4 at0007 = ╱49╱I╱ // 0x38ad @0x7
0x38a6…38b4 at0008 = ╱4e╱N╱ // 0x38ae @0x8
0x38a6…38b4 at0009 = ╱54╱T╱ // 0x38af @0x9
0x38a6…38b4 at000a = ╱52╱R╱ // 0x38b0 @0xa
0x38a6…38b4 at000b = ╱45╱E╱ // 0x38b1 @0xb
0x38a6…38b4 at000c = ╱53╱S╱ // 0x38b2 @0xc
0x38a6…38b4 at000d = EOL // 0x38b3 @0xd
0x38a6…38b4 }
0x38b4…38ba cea8 5480 //
0x38b4…38ba LineComal80 {
0x38b4…38ba ptr = 0xcea8 // 0x38b4 @0x0
0x38b4…38ba lno = 0x1568 // 0x38b6 @0x2
0x38b4…38ba at0004 = ╱89╱ // ╱ // 0x38b8 @0x4
0x38b4…38ba at0005 = EOL // 0x38b9 @0x5
0x38b4…38ba }
0x38ba…38d9 cec7 5490 PROC PRINTREL // RELEASE PRINTER
0x38ba…38d9 LineComal80 {
0x38ba…38d9 ptr = 0xcec7 // 0x38ba @0x0
0x38ba…38d9 lno = 0x1572 // 0x38bc @0x2
0x38ba…38d9 at0004 = ╱9e69╱ PROC ╱ // 0x38be @0x4
0x38ba…38d9 at0006 = ╱50╱P╱ // 0x38c0 @0x6
0x38ba…38d9 at0007 = ╱52╱R╱ // 0x38c1 @0x7
0x38ba…38d9 at0008 = ╱49╱I╱ // 0x38c2 @0x8
0x38ba…38d9 at0009 = ╱4e╱N╱ // 0x38c3 @0x9
0x38ba…38d9 at000a = ╱54╱T╱ // 0x38c4 @0xa
0x38ba…38d9 at000b = ╱52╱R╱ // 0x38c5 @0xb
0x38ba…38d9 at000c = ╱45╱E╱ // 0x38c6 @0xc
0x38ba…38d9 at000d = ╱4c╱L╱ // 0x38c7 @0xd
0x38ba…38d9 at000e = ╱89╱ // ╱ // 0x38c8 @0xe
0x38ba…38d9 at000f = ╱52╱R╱ // 0x38c9 @0xf
0x38ba…38d9 at0010 = ╱45╱E╱ // 0x38ca @0x10
0x38ba…38d9 at0011 = ╱4c╱L╱ // 0x38cb @0x11
0x38ba…38d9 at0012 = ╱45╱E╱ // 0x38cc @0x12
0x38ba…38d9 at0013 = ╱41╱A╱ // 0x38cd @0x13
0x38ba…38d9 at0014 = ╱53╱S╱ // 0x38ce @0x14
0x38ba…38d9 at0015 = ╱45╱E╱ // 0x38cf @0x15
0x38ba…38d9 at0016 = ╱20╱…╱ // 0x38d0 @0x16
0x38ba…38d9 at0017 = ╱50╱P╱ // 0x38d1 @0x17
0x38ba…38d9 at0018 = ╱52╱R╱ // 0x38d2 @0x18
0x38ba…38d9 at0019 = ╱49╱I╱ // 0x38d3 @0x19
0x38ba…38d9 at001a = ╱4e╱N╱ // 0x38d4 @0x1a
0x38ba…38d9 at001b = ╱54╱T╱ // 0x38d5 @0x1b
0x38ba…38d9 at001c = ╱45╱E╱ // 0x38d6 @0x1c
0x38ba…38d9 at001d = ╱52╱R╱ // 0x38d7 @0x1d
0x38ba…38d9 at001e = EOL // 0x38d8 @0x1e
0x38ba…38d9 }
0x38d9…38e2 (189,) ced0 5500 SELECT OUTPUT "T"
0x38d9…38e2 LineComal80 {
0x38d9…38e2 ptr = 0xced0 // 0x38d9 @0x0
0x38d9…38e2 lno = 0x157c // 0x38db @0x2
0x38d9…38e2 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x38dd @0x4
0x38d9…38e2 at0005 = ╱22╱"╱ // 0x38de @0x5
0x38d9…38e2 at0006 = ╱54╱T╱ // 0x38df @0x6
0x38d9…38e2 at0007 = ╱22╱"╱ // 0x38e0 @0x7
0x38d9…38e2 at0008 = EOL // 0x38e1 @0x8
0x38d9…38e2 }
0x38e2…38f0 d395 5510 ENDPROC PRINTREL
0x38e2…38f0 LineComal80 {
0x38e2…38f0 ptr = 0xd395 // 0x38e2 @0x0
0x38e2…38f0 lno = 0x1586 // 0x38e4 @0x2
0x38e2…38f0 at0004 = ╱9f╱ ENDPROC ╱ // 0x38e6 @0x4
0x38e2…38f0 at0005 = ╱50╱P╱ // 0x38e7 @0x5
0x38e2…38f0 at0006 = ╱52╱R╱ // 0x38e8 @0x6
0x38e2…38f0 at0007 = ╱49╱I╱ // 0x38e9 @0x7
0x38e2…38f0 at0008 = ╱4e╱N╱ // 0x38ea @0x8
0x38e2…38f0 at0009 = ╱54╱T╱ // 0x38eb @0x9
0x38e2…38f0 at000a = ╱52╱R╱ // 0x38ec @0xa
0x38e2…38f0 at000b = ╱45╱E╱ // 0x38ed @0xb
0x38e2…38f0 at000c = ╱4c╱L╱ // 0x38ee @0xc
0x38e2…38f0 at000d = EOL // 0x38ef @0xd
0x38e2…38f0 }
0x38f0…3927 cf15 1940 PRINT "<C0105> BILAG TEKST KO"
0x38f0…3927 LineComal80 {
0x38f0…3927 ptr = 0xcf15 // 0x38f0 @0x0
0x38f0…3927 lno = 0x0794 // 0x38f2 @0x2
0x38f0…3927 at0004 = ╱92╱ PRINT ╱ // 0x38f4 @0x4
0x38f0…3927 at0005 = ╱22╱"╱ // 0x38f5 @0x5
0x38f0…3927 at0006 = ╱3c╱<╱ // 0x38f6 @0x6
0x38f0…3927 at0007 = ╱43╱C╱ // 0x38f7 @0x7
0x38f0…3927 at0008 = ╱30╱0╱ // 0x38f8 @0x8
0x38f0…3927 at0009 = ╱31╱1╱ // 0x38f9 @0x9
0x38f0…3927 at000a = ╱30╱0╱ // 0x38fa @0xa
0x38f0…3927 at000b = ╱35╱5╱ // 0x38fb @0xb
0x38f0…3927 at000c = ╱3e╱>╱ // 0x38fc @0xc
0x38f0…3927 at000d = ╱20╱…╱ // 0x38fd @0xd
0x38f0…3927 at000e = ╱20╱…╱ // 0x38fe @0xe
0x38f0…3927 at000f = ╱20╱…╱ // 0x38ff @0xf
0x38f0…3927 at0010 = ╱42╱B╱ // 0x3900 @0x10
0x38f0…3927 at0011 = ╱49╱I╱ // 0x3901 @0x11
0x38f0…3927 at0012 = ╱4c╱L╱ // 0x3902 @0x12
0x38f0…3927 at0013 = ╱41╱A╱ // 0x3903 @0x13
0x38f0…3927 at0014 = ╱47╱G╱ // 0x3904 @0x14
0x38f0…3927 at0015 = ╱20╱…╱ // 0x3905 @0x15
0x38f0…3927 at0016 = ╱20╱…╱ // 0x3906 @0x16
0x38f0…3927 at0017 = ╱54╱T╱ // 0x3907 @0x17
0x38f0…3927 at0018 = ╱45╱E╱ // 0x3908 @0x18
0x38f0…3927 at0019 = ╱4b╱K╱ // 0x3909 @0x19
0x38f0…3927 at001a = ╱53╱S╱ // 0x390a @0x1a
0x38f0…3927 at001b = ╱54╱T╱ // 0x390b @0x1b
0x38f0…3927 at001c = ╱20╱…╱ // 0x390c @0x1c
0x38f0…3927 at001d = ╱20╱…╱ // 0x390d @0x1d
0x38f0…3927 at001e = ╱20╱…╱ // 0x390e @0x1e
0x38f0…3927 at001f = ╱20╱…╱ // 0x390f @0x1f
0x38f0…3927 at0020 = ╱20╱…╱ // 0x3910 @0x20
0x38f0…3927 at0021 = ╱20╱…╱ // 0x3911 @0x21
0x38f0…3927 at0022 = ╱20╱…╱ // 0x3912 @0x22
0x38f0…3927 at0023 = ╱20╱…╱ // 0x3913 @0x23
0x38f0…3927 at0024 = ╱20╱…╱ // 0x3914 @0x24
0x38f0…3927 at0025 = ╱20╱…╱ // 0x3915 @0x25
0x38f0…3927 at0026 = ╱20╱…╱ // 0x3916 @0x26
0x38f0…3927 at0027 = ╱20╱…╱ // 0x3917 @0x27
0x38f0…3927 at0028 = ╱20╱…╱ // 0x3918 @0x28
0x38f0…3927 at0029 = ╱20╱…╱ // 0x3919 @0x29
0x38f0…3927 at002a = ╱20╱…╱ // 0x391a @0x2a
0x38f0…3927 at002b = ╱20╱…╱ // 0x391b @0x2b
0x38f0…3927 at002c = ╱20╱…╱ // 0x391c @0x2c
0x38f0…3927 at002d = ╱20╱…╱ // 0x391d @0x2d
0x38f0…3927 at002e = ╱20╱…╱ // 0x391e @0x2e
0x38f0…3927 at002f = ╱20╱…╱ // 0x391f @0x2f
0x38f0…3927 at0030 = ╱20╱…╱ // 0x3920 @0x30
0x38f0…3927 at0031 = ╱20╱…╱ // 0x3921 @0x31
0x38f0…3927 at0032 = ╱20╱…╱ // 0x3922 @0x32
0x38f0…3927 at0033 = ╱4b╱K╱ // 0x3923 @0x33
0x38f0…3927 at0034 = ╱4f╱O╱ // 0x3924 @0x34
0x38f0…3927 at0035 = ╱22╱"╱ // 0x3925 @0x35
0x38f0…3927 at0036 = EOL // 0x3926 @0x36
0x38f0…3927 }
0x3927…395e cf4c 1950 PRINT "<C0106> NR NU"
0x3927…395e LineComal80 {
0x3927…395e ptr = 0xcf4c // 0x3927 @0x0
0x3927…395e lno = 0x079e // 0x3929 @0x2
0x3927…395e at0004 = ╱92╱ PRINT ╱ // 0x392b @0x4
0x3927…395e at0005 = ╱22╱"╱ // 0x392c @0x5
0x3927…395e at0006 = ╱3c╱<╱ // 0x392d @0x6
0x3927…395e at0007 = ╱43╱C╱ // 0x392e @0x7
0x3927…395e at0008 = ╱30╱0╱ // 0x392f @0x8
0x3927…395e at0009 = ╱31╱1╱ // 0x3930 @0x9
0x3927…395e at000a = ╱30╱0╱ // 0x3931 @0xa
0x3927…395e at000b = ╱36╱6╱ // 0x3932 @0xb
0x3927…395e at000c = ╱3e╱>╱ // 0x3933 @0xc
0x3927…395e at000d = ╱20╱…╱ // 0x3934 @0xd
0x3927…395e at000e = ╱20╱…╱ // 0x3935 @0xe
0x3927…395e at000f = ╱20╱…╱ // 0x3936 @0xf
0x3927…395e at0010 = ╱20╱…╱ // 0x3937 @0x10
0x3927…395e at0011 = ╱4e╱N╱ // 0x3938 @0x11
0x3927…395e at0012 = ╱52╱R╱ // 0x3939 @0x12
0x3927…395e at0013 = ╱20╱…╱ // 0x393a @0x13
0x3927…395e at0014 = ╱20╱…╱ // 0x393b @0x14
0x3927…395e at0015 = ╱20╱…╱ // 0x393c @0x15
0x3927…395e at0016 = ╱20╱…╱ // 0x393d @0x16
0x3927…395e at0017 = ╱20╱…╱ // 0x393e @0x17
0x3927…395e at0018 = ╱20╱…╱ // 0x393f @0x18
0x3927…395e at0019 = ╱20╱…╱ // 0x3940 @0x19
0x3927…395e at001a = ╱20╱…╱ // 0x3941 @0x1a
0x3927…395e at001b = ╱20╱…╱ // 0x3942 @0x1b
0x3927…395e at001c = ╱20╱…╱ // 0x3943 @0x1c
0x3927…395e at001d = ╱20╱…╱ // 0x3944 @0x1d
0x3927…395e at001e = ╱20╱…╱ // 0x3945 @0x1e
0x3927…395e at001f = ╱20╱…╱ // 0x3946 @0x1f
0x3927…395e at0020 = ╱20╱…╱ // 0x3947 @0x20
0x3927…395e at0021 = ╱20╱…╱ // 0x3948 @0x21
0x3927…395e at0022 = ╱20╱…╱ // 0x3949 @0x22
0x3927…395e at0023 = ╱20╱…╱ // 0x394a @0x23
0x3927…395e at0024 = ╱20╱…╱ // 0x394b @0x24
0x3927…395e at0025 = ╱20╱…╱ // 0x394c @0x25
0x3927…395e at0026 = ╱20╱…╱ // 0x394d @0x26
0x3927…395e at0027 = ╱20╱…╱ // 0x394e @0x27
0x3927…395e at0028 = ╱20╱…╱ // 0x394f @0x28
0x3927…395e at0029 = ╱20╱…╱ // 0x3950 @0x29
0x3927…395e at002a = ╱20╱…╱ // 0x3951 @0x2a
0x3927…395e at002b = ╱20╱…╱ // 0x3952 @0x2b
0x3927…395e at002c = ╱20╱…╱ // 0x3953 @0x2c
0x3927…395e at002d = ╱20╱…╱ // 0x3954 @0x2d
0x3927…395e at002e = ╱20╱…╱ // 0x3955 @0x2e
0x3927…395e at002f = ╱20╱…╱ // 0x3956 @0x2f
0x3927…395e at0030 = ╱20╱…╱ // 0x3957 @0x30
0x3927…395e at0031 = ╱20╱…╱ // 0x3958 @0x31
0x3927…395e at0032 = ╱20╱…╱ // 0x3959 @0x32
0x3927…395e at0033 = ╱4e╱N╱ // 0x395a @0x33
0x3927…395e at0034 = ╱55╱U╱ // 0x395b @0x34
0x3927…395e at0035 = ╱22╱"╱ // 0x395c @0x35
0x3927…395e at0036 = EOL // 0x395d @0x36
0x3927…395e }
0x395e…3995 cf83 1960 PRINT "<C0107>----------------------------------------"
0x395e…3995 LineComal80 {
0x395e…3995 ptr = 0xcf83 // 0x395e @0x0
0x395e…3995 lno = 0x07a8 // 0x3960 @0x2
0x395e…3995 at0004 = ╱92╱ PRINT ╱ // 0x3962 @0x4
0x395e…3995 at0005 = ╱22╱"╱ // 0x3963 @0x5
0x395e…3995 at0006 = ╱3c╱<╱ // 0x3964 @0x6
0x395e…3995 at0007 = ╱43╱C╱ // 0x3965 @0x7
0x395e…3995 at0008 = ╱30╱0╱ // 0x3966 @0x8
0x395e…3995 at0009 = ╱31╱1╱ // 0x3967 @0x9
0x395e…3995 at000a = ╱30╱0╱ // 0x3968 @0xa
0x395e…3995 at000b = ╱37╱7╱ // 0x3969 @0xb
0x395e…3995 at000c = ╱3e╱>╱ // 0x396a @0xc
0x395e…3995 at000d = ╱2d╱-╱ // 0x396b @0xd
0x395e…3995 at000e = ╱2d╱-╱ // 0x396c @0xe
0x395e…3995 at000f = ╱2d╱-╱ // 0x396d @0xf
0x395e…3995 at0010 = ╱2d╱-╱ // 0x396e @0x10
0x395e…3995 at0011 = ╱2d╱-╱ // 0x396f @0x11
0x395e…3995 at0012 = ╱2d╱-╱ // 0x3970 @0x12
0x395e…3995 at0013 = ╱2d╱-╱ // 0x3971 @0x13
0x395e…3995 at0014 = ╱2d╱-╱ // 0x3972 @0x14
0x395e…3995 at0015 = ╱2d╱-╱ // 0x3973 @0x15
0x395e…3995 at0016 = ╱2d╱-╱ // 0x3974 @0x16
0x395e…3995 at0017 = ╱2d╱-╱ // 0x3975 @0x17
0x395e…3995 at0018 = ╱2d╱-╱ // 0x3976 @0x18
0x395e…3995 at0019 = ╱2d╱-╱ // 0x3977 @0x19
0x395e…3995 at001a = ╱2d╱-╱ // 0x3978 @0x1a
0x395e…3995 at001b = ╱2d╱-╱ // 0x3979 @0x1b
0x395e…3995 at001c = ╱2d╱-╱ // 0x397a @0x1c
0x395e…3995 at001d = ╱2d╱-╱ // 0x397b @0x1d
0x395e…3995 at001e = ╱2d╱-╱ // 0x397c @0x1e
0x395e…3995 at001f = ╱2d╱-╱ // 0x397d @0x1f
0x395e…3995 at0020 = ╱2d╱-╱ // 0x397e @0x20
0x395e…3995 at0021 = ╱2d╱-╱ // 0x397f @0x21
0x395e…3995 at0022 = ╱2d╱-╱ // 0x3980 @0x22
0x395e…3995 at0023 = ╱2d╱-╱ // 0x3981 @0x23
0x395e…3995 at0024 = ╱2d╱-╱ // 0x3982 @0x24
0x395e…3995 at0025 = ╱2d╱-╱ // 0x3983 @0x25
0x395e…3995 at0026 = ╱2d╱-╱ // 0x3984 @0x26
0x395e…3995 at0027 = ╱2d╱-╱ // 0x3985 @0x27
0x395e…3995 at0028 = ╱2d╱-╱ // 0x3986 @0x28
0x395e…3995 at0029 = ╱2d╱-╱ // 0x3987 @0x29
0x395e…3995 at002a = ╱2d╱-╱ // 0x3988 @0x2a
0x395e…3995 at002b = ╱2d╱-╱ // 0x3989 @0x2b
0x395e…3995 at002c = ╱2d╱-╱ // 0x398a @0x2c
0x395e…3995 at002d = ╱2d╱-╱ // 0x398b @0x2d
0x395e…3995 at002e = ╱2d╱-╱ // 0x398c @0x2e
0x395e…3995 at002f = ╱2d╱-╱ // 0x398d @0x2f
0x395e…3995 at0030 = ╱2d╱-╱ // 0x398e @0x30
0x395e…3995 at0031 = ╱2d╱-╱ // 0x398f @0x31
0x395e…3995 at0032 = ╱2d╱-╱ // 0x3990 @0x32
0x395e…3995 at0033 = ╱2d╱-╱ // 0x3991 @0x33
0x395e…3995 at0034 = ╱2d╱-╱ // 0x3992 @0x34
0x395e…3995 at0035 = ╱22╱"╱ // 0x3993 @0x35
0x395e…3995 at0036 = EOL // 0x3994 @0x36
0x395e…3995 }
0x3995…39cc cfba 1970 PRINT "<C4105>NTO- DEBET KREDIT F/R/S "
0x3995…39cc LineComal80 {
0x3995…39cc ptr = 0xcfba // 0x3995 @0x0
0x3995…39cc lno = 0x07b2 // 0x3997 @0x2
0x3995…39cc at0004 = ╱92╱ PRINT ╱ // 0x3999 @0x4
0x3995…39cc at0005 = ╱22╱"╱ // 0x399a @0x5
0x3995…39cc at0006 = ╱3c╱<╱ // 0x399b @0x6
0x3995…39cc at0007 = ╱43╱C╱ // 0x399c @0x7
0x3995…39cc at0008 = ╱34╱4╱ // 0x399d @0x8
0x3995…39cc at0009 = ╱31╱1╱ // 0x399e @0x9
0x3995…39cc at000a = ╱30╱0╱ // 0x399f @0xa
0x3995…39cc at000b = ╱35╱5╱ // 0x39a0 @0xb
0x3995…39cc at000c = ╱3e╱>╱ // 0x39a1 @0xc
0x3995…39cc at000d = ╱4e╱N╱ // 0x39a2 @0xd
0x3995…39cc at000e = ╱54╱T╱ // 0x39a3 @0xe
0x3995…39cc at000f = ╱4f╱O╱ // 0x39a4 @0xf
0x3995…39cc at0010 = ╱2d╱-╱ // 0x39a5 @0x10
0x3995…39cc at0011 = ╱20╱…╱ // 0x39a6 @0x11
0x3995…39cc at0012 = ╱20╱…╱ // 0x39a7 @0x12
0x3995…39cc at0013 = ╱20╱…╱ // 0x39a8 @0x13
0x3995…39cc at0014 = ╱20╱…╱ // 0x39a9 @0x14
0x3995…39cc at0015 = ╱20╱…╱ // 0x39aa @0x15
0x3995…39cc at0016 = ╱20╱…╱ // 0x39ab @0x16
0x3995…39cc at0017 = ╱20╱…╱ // 0x39ac @0x17
0x3995…39cc at0018 = ╱44╱D╱ // 0x39ad @0x18
0x3995…39cc at0019 = ╱45╱E╱ // 0x39ae @0x19
0x3995…39cc at001a = ╱42╱B╱ // 0x39af @0x1a
0x3995…39cc at001b = ╱45╱E╱ // 0x39b0 @0x1b
0x3995…39cc at001c = ╱54╱T╱ // 0x39b1 @0x1c
0x3995…39cc at001d = ╱20╱…╱ // 0x39b2 @0x1d
0x3995…39cc at001e = ╱20╱…╱ // 0x39b3 @0x1e
0x3995…39cc at001f = ╱20╱…╱ // 0x39b4 @0x1f
0x3995…39cc at0020 = ╱20╱…╱ // 0x39b5 @0x20
0x3995…39cc at0021 = ╱20╱…╱ // 0x39b6 @0x21
0x3995…39cc at0022 = ╱20╱…╱ // 0x39b7 @0x22
0x3995…39cc at0023 = ╱4b╱K╱ // 0x39b8 @0x23
0x3995…39cc at0024 = ╱52╱R╱ // 0x39b9 @0x24
0x3995…39cc at0025 = ╱45╱E╱ // 0x39ba @0x25
0x3995…39cc at0026 = ╱44╱D╱ // 0x39bb @0x26
0x3995…39cc at0027 = ╱49╱I╱ // 0x39bc @0x27
0x3995…39cc at0028 = ╱54╱T╱ // 0x39bd @0x28
0x3995…39cc at0029 = ╱20╱…╱ // 0x39be @0x29
0x3995…39cc at002a = ╱20╱…╱ // 0x39bf @0x2a
0x3995…39cc at002b = ╱20╱…╱ // 0x39c0 @0x2b
0x3995…39cc at002c = ╱20╱…╱ // 0x39c1 @0x2c
0x3995…39cc at002d = ╱20╱…╱ // 0x39c2 @0x2d
0x3995…39cc at002e = ╱20╱…╱ // 0x39c3 @0x2e
0x3995…39cc at002f = ╱46╱F╱ // 0x39c4 @0x2f
0x3995…39cc at0030 = ╱2f╱/╱ // 0x39c5 @0x30
0x3995…39cc at0031 = ╱52╱R╱ // 0x39c6 @0x31
0x3995…39cc at0032 = ╱2f╱/╱ // 0x39c7 @0x32
0x3995…39cc at0033 = ╱53╱S╱ // 0x39c8 @0x33
0x3995…39cc at0034 = ╱20╱…╱ // 0x39c9 @0x34
0x3995…39cc at0035 = ╱22╱"╱ // 0x39ca @0x35
0x3995…39cc at0036 = EOL // 0x39cb @0x36
0x3995…39cc }
0x39cc…3a02 cff0 1980 PRINT "<C4106>MMER "
0x39cc…3a02 LineComal80 {
0x39cc…3a02 ptr = 0xcff0 // 0x39cc @0x0
0x39cc…3a02 lno = 0x07bc // 0x39ce @0x2
0x39cc…3a02 at0004 = ╱92╱ PRINT ╱ // 0x39d0 @0x4
0x39cc…3a02 at0005 = ╱22╱"╱ // 0x39d1 @0x5
0x39cc…3a02 at0006 = ╱3c╱<╱ // 0x39d2 @0x6
0x39cc…3a02 at0007 = ╱43╱C╱ // 0x39d3 @0x7
0x39cc…3a02 at0008 = ╱34╱4╱ // 0x39d4 @0x8
0x39cc…3a02 at0009 = ╱31╱1╱ // 0x39d5 @0x9
0x39cc…3a02 at000a = ╱30╱0╱ // 0x39d6 @0xa
0x39cc…3a02 at000b = ╱36╱6╱ // 0x39d7 @0xb
0x39cc…3a02 at000c = ╱3e╱>╱ // 0x39d8 @0xc
0x39cc…3a02 at000d = ╱4d╱M╱ // 0x39d9 @0xd
0x39cc…3a02 at000e = ╱4d╱M╱ // 0x39da @0xe
0x39cc…3a02 at000f = ╱45╱E╱ // 0x39db @0xf
0x39cc…3a02 at0010 = ╱52╱R╱ // 0x39dc @0x10
0x39cc…3a02 at0011 = ╱20╱…╱ // 0x39dd @0x11
0x39cc…3a02 at0012 = ╱20╱…╱ // 0x39de @0x12
0x39cc…3a02 at0013 = ╱20╱…╱ // 0x39df @0x13
0x39cc…3a02 at0014 = ╱20╱…╱ // 0x39e0 @0x14
0x39cc…3a02 at0015 = ╱20╱…╱ // 0x39e1 @0x15
0x39cc…3a02 at0016 = ╱20╱…╱ // 0x39e2 @0x16
0x39cc…3a02 at0017 = ╱20╱…╱ // 0x39e3 @0x17
0x39cc…3a02 at0018 = ╱20╱…╱ // 0x39e4 @0x18
0x39cc…3a02 at0019 = ╱20╱…╱ // 0x39e5 @0x19
0x39cc…3a02 at001a = ╱20╱…╱ // 0x39e6 @0x1a
0x39cc…3a02 at001b = ╱20╱…╱ // 0x39e7 @0x1b
0x39cc…3a02 at001c = ╱20╱…╱ // 0x39e8 @0x1c
0x39cc…3a02 at001d = ╱20╱…╱ // 0x39e9 @0x1d
0x39cc…3a02 at001e = ╱20╱…╱ // 0x39ea @0x1e
0x39cc…3a02 at001f = ╱20╱…╱ // 0x39eb @0x1f
0x39cc…3a02 at0020 = ╱20╱…╱ // 0x39ec @0x20
0x39cc…3a02 at0021 = ╱20╱…╱ // 0x39ed @0x21
0x39cc…3a02 at0022 = ╱20╱…╱ // 0x39ee @0x22
0x39cc…3a02 at0023 = ╱20╱…╱ // 0x39ef @0x23
0x39cc…3a02 at0024 = ╱20╱…╱ // 0x39f0 @0x24
0x39cc…3a02 at0025 = ╱20╱…╱ // 0x39f1 @0x25
0x39cc…3a02 at0026 = ╱20╱…╱ // 0x39f2 @0x26
0x39cc…3a02 at0027 = ╱20╱…╱ // 0x39f3 @0x27
0x39cc…3a02 at0028 = ╱20╱…╱ // 0x39f4 @0x28
0x39cc…3a02 at0029 = ╱20╱…╱ // 0x39f5 @0x29
0x39cc…3a02 at002a = ╱20╱…╱ // 0x39f6 @0x2a
0x39cc…3a02 at002b = ╱20╱…╱ // 0x39f7 @0x2b
0x39cc…3a02 at002c = ╱20╱…╱ // 0x39f8 @0x2c
0x39cc…3a02 at002d = ╱20╱…╱ // 0x39f9 @0x2d
0x39cc…3a02 at002e = ╱20╱…╱ // 0x39fa @0x2e
0x39cc…3a02 at002f = ╱20╱…╱ // 0x39fb @0x2f
0x39cc…3a02 at0030 = ╱20╱…╱ // 0x39fc @0x30
0x39cc…3a02 at0031 = ╱20╱…╱ // 0x39fd @0x31
0x39cc…3a02 at0032 = ╱20╱…╱ // 0x39fe @0x32
0x39cc…3a02 at0033 = ╱20╱…╱ // 0x39ff @0x33
0x39cc…3a02 at0034 = ╱22╱"╱ // 0x3a00 @0x34
0x39cc…3a02 at0035 = EOL // 0x3a01 @0x35
0x39cc…3a02 }
0x3a02…3a39 d027 1990 PRINT "<C4107>----------------------------------------"
0x3a02…3a39 LineComal80 {
0x3a02…3a39 ptr = 0xd027 // 0x3a02 @0x0
0x3a02…3a39 lno = 0x07c6 // 0x3a04 @0x2
0x3a02…3a39 at0004 = ╱92╱ PRINT ╱ // 0x3a06 @0x4
0x3a02…3a39 at0005 = ╱22╱"╱ // 0x3a07 @0x5
0x3a02…3a39 at0006 = ╱3c╱<╱ // 0x3a08 @0x6
0x3a02…3a39 at0007 = ╱43╱C╱ // 0x3a09 @0x7
0x3a02…3a39 at0008 = ╱34╱4╱ // 0x3a0a @0x8
0x3a02…3a39 at0009 = ╱31╱1╱ // 0x3a0b @0x9
0x3a02…3a39 at000a = ╱30╱0╱ // 0x3a0c @0xa
0x3a02…3a39 at000b = ╱37╱7╱ // 0x3a0d @0xb
0x3a02…3a39 at000c = ╱3e╱>╱ // 0x3a0e @0xc
0x3a02…3a39 at000d = ╱2d╱-╱ // 0x3a0f @0xd
0x3a02…3a39 at000e = ╱2d╱-╱ // 0x3a10 @0xe
0x3a02…3a39 at000f = ╱2d╱-╱ // 0x3a11 @0xf
0x3a02…3a39 at0010 = ╱2d╱-╱ // 0x3a12 @0x10
0x3a02…3a39 at0011 = ╱2d╱-╱ // 0x3a13 @0x11
0x3a02…3a39 at0012 = ╱2d╱-╱ // 0x3a14 @0x12
0x3a02…3a39 at0013 = ╱2d╱-╱ // 0x3a15 @0x13
0x3a02…3a39 at0014 = ╱2d╱-╱ // 0x3a16 @0x14
0x3a02…3a39 at0015 = ╱2d╱-╱ // 0x3a17 @0x15
0x3a02…3a39 at0016 = ╱2d╱-╱ // 0x3a18 @0x16
0x3a02…3a39 at0017 = ╱2d╱-╱ // 0x3a19 @0x17
0x3a02…3a39 at0018 = ╱2d╱-╱ // 0x3a1a @0x18
0x3a02…3a39 at0019 = ╱2d╱-╱ // 0x3a1b @0x19
0x3a02…3a39 at001a = ╱2d╱-╱ // 0x3a1c @0x1a
0x3a02…3a39 at001b = ╱2d╱-╱ // 0x3a1d @0x1b
0x3a02…3a39 at001c = ╱2d╱-╱ // 0x3a1e @0x1c
0x3a02…3a39 at001d = ╱2d╱-╱ // 0x3a1f @0x1d
0x3a02…3a39 at001e = ╱2d╱-╱ // 0x3a20 @0x1e
0x3a02…3a39 at001f = ╱2d╱-╱ // 0x3a21 @0x1f
0x3a02…3a39 at0020 = ╱2d╱-╱ // 0x3a22 @0x20
0x3a02…3a39 at0021 = ╱2d╱-╱ // 0x3a23 @0x21
0x3a02…3a39 at0022 = ╱2d╱-╱ // 0x3a24 @0x22
0x3a02…3a39 at0023 = ╱2d╱-╱ // 0x3a25 @0x23
0x3a02…3a39 at0024 = ╱2d╱-╱ // 0x3a26 @0x24
0x3a02…3a39 at0025 = ╱2d╱-╱ // 0x3a27 @0x25
0x3a02…3a39 at0026 = ╱2d╱-╱ // 0x3a28 @0x26
0x3a02…3a39 at0027 = ╱2d╱-╱ // 0x3a29 @0x27
0x3a02…3a39 at0028 = ╱2d╱-╱ // 0x3a2a @0x28
0x3a02…3a39 at0029 = ╱2d╱-╱ // 0x3a2b @0x29
0x3a02…3a39 at002a = ╱2d╱-╱ // 0x3a2c @0x2a
0x3a02…3a39 at002b = ╱2d╱-╱ // 0x3a2d @0x2b
0x3a02…3a39 at002c = ╱2d╱-╱ // 0x3a2e @0x2c
0x3a02…3a39 at002d = ╱2d╱-╱ // 0x3a2f @0x2d
0x3a02…3a39 at002e = ╱2d╱-╱ // 0x3a30 @0x2e
0x3a02…3a39 at002f = ╱2d╱-╱ // 0x3a31 @0x2f
0x3a02…3a39 at0030 = ╱2d╱-╱ // 0x3a32 @0x30
0x3a02…3a39 at0031 = ╱2d╱-╱ // 0x3a33 @0x31
0x3a02…3a39 at0032 = ╱2d╱-╱ // 0x3a34 @0x32
0x3a02…3a39 at0033 = ╱2d╱-╱ // 0x3a35 @0x33
0x3a02…3a39 at0034 = ╱2d╱-╱ // 0x3a36 @0x34
0x3a02…3a39 at0035 = ╱22╱"╱ // 0x3a37 @0x35
0x3a02…3a39 at0036 = EOL // 0x3a38 @0x36
0x3a02…3a39 }
0x3a39…3a4b d039 2000 ENDPROC DIV_POSHOVED
0x3a39…3a4b LineComal80 {
0x3a39…3a4b ptr = 0xd039 // 0x3a39 @0x0
0x3a39…3a4b lno = 0x07d0 // 0x3a3b @0x2
0x3a39…3a4b at0004 = ╱9f╱ ENDPROC ╱ // 0x3a3d @0x4
0x3a39…3a4b at0005 = ╱44╱D╱ // 0x3a3e @0x5
0x3a39…3a4b at0006 = ╱49╱I╱ // 0x3a3f @0x6
0x3a39…3a4b at0007 = ╱56╱V╱ // 0x3a40 @0x7
0x3a39…3a4b at0008 = ╱5f╱_╱ // 0x3a41 @0x8
0x3a39…3a4b at0009 = ╱50╱P╱ // 0x3a42 @0x9
0x3a39…3a4b at000a = ╱4f╱O╱ // 0x3a43 @0xa
0x3a39…3a4b at000b = ╱53╱S╱ // 0x3a44 @0xb
0x3a39…3a4b at000c = ╱48╱H╱ // 0x3a45 @0xc
0x3a39…3a4b at000d = ╱4f╱O╱ // 0x3a46 @0xd
0x3a39…3a4b at000e = ╱56╱V╱ // 0x3a47 @0xe
0x3a39…3a4b at000f = ╱45╱E╱ // 0x3a48 @0xf
0x3a39…3a4b at0010 = ╱44╱D╱ // 0x3a49 @0x10
0x3a39…3a4b at0011 = EOL // 0x3a4a @0x11
0x3a39…3a4b }
0x3a4b…3a50 d03e 2010
0x3a4b…3a50 LineComal80 {
0x3a4b…3a50 ptr = 0xd03e // 0x3a4b @0x0
0x3a4b…3a50 lno = 0x07da // 0x3a4d @0x2
0x3a4b…3a50 at0004 = EOL // 0x3a4f @0x4
0x3a4b…3a50 }
0x3a50…3a68 d056 2020 PROC OVERSKRIFT(ST$,L)
0x3a50…3a68 LineComal80 {
0x3a50…3a68 ptr = 0xd056 // 0x3a50 @0x0
0x3a50…3a68 lno = 0x07e4 // 0x3a52 @0x2
0x3a50…3a68 at0004 = ╱9e1f╱ PROC ╱ // 0x3a54 @0x4
0x3a50…3a68 at0006 = ╱4f╱O╱ // 0x3a56 @0x6
0x3a50…3a68 at0007 = ╱56╱V╱ // 0x3a57 @0x7
0x3a50…3a68 at0008 = ╱45╱E╱ // 0x3a58 @0x8
0x3a50…3a68 at0009 = ╱52╱R╱ // 0x3a59 @0x9
0x3a50…3a68 at000a = ╱53╱S╱ // 0x3a5a @0xa
0x3a50…3a68 at000b = ╱4b╱K╱ // 0x3a5b @0xb
0x3a50…3a68 at000c = ╱52╱R╱ // 0x3a5c @0xc
0x3a50…3a68 at000d = ╱49╱I╱ // 0x3a5d @0xd
0x3a50…3a68 at000e = ╱46╱F╱ // 0x3a5e @0xe
0x3a50…3a68 at000f = ╱54╱T╱ // 0x3a5f @0xf
0x3a50…3a68 at0010 = ╱ed╱(╱ // 0x3a60 @0x10
0x3a50…3a68 at0011 = ╱53╱S╱ // 0x3a61 @0x11
0x3a50…3a68 at0012 = ╱54╱T╱ // 0x3a62 @0x12
0x3a50…3a68 at0013 = ╱ef╱$╱ // 0x3a63 @0x13
0x3a50…3a68 at0014 = ╱ec╱,╱ // 0x3a64 @0x14
0x3a50…3a68 at0015 = ╱4c╱L╱ // 0x3a65 @0x15
0x3a50…3a68 at0016 = ╱ee╱)╱ // 0x3a66 @0x16
0x3a50…3a68 at0017 = EOL // 0x3a67 @0x17
0x3a50…3a68 }
0x3a68…3a8e d07c 2030 PRINT "<XC0101>Firmanavn: " ; FIRMANAVN$
0x3a68…3a8e LineComal80 {
0x3a68…3a8e ptr = 0xd07c // 0x3a68 @0x0
0x3a68…3a8e lno = 0x07ee // 0x3a6a @0x2
0x3a68…3a8e at0004 = ╱92╱ PRINT ╱ // 0x3a6c @0x4
0x3a68…3a8e at0005 = ╱22╱"╱ // 0x3a6d @0x5
0x3a68…3a8e at0006 = ╱3c╱<╱ // 0x3a6e @0x6
0x3a68…3a8e at0007 = ╱58╱X╱ // 0x3a6f @0x7
0x3a68…3a8e at0008 = ╱43╱C╱ // 0x3a70 @0x8
0x3a68…3a8e at0009 = ╱30╱0╱ // 0x3a71 @0x9
0x3a68…3a8e at000a = ╱31╱1╱ // 0x3a72 @0xa
0x3a68…3a8e at000b = ╱30╱0╱ // 0x3a73 @0xb
0x3a68…3a8e at000c = ╱31╱1╱ // 0x3a74 @0xc
0x3a68…3a8e at000d = ╱3e╱>╱ // 0x3a75 @0xd
0x3a68…3a8e at000e = ╱46╱F╱ // 0x3a76 @0xe
0x3a68…3a8e at000f = ╱69╱i╱ // 0x3a77 @0xf
0x3a68…3a8e at0010 = ╱72╱r╱ // 0x3a78 @0x10
0x3a68…3a8e at0011 = ╱6d╱m╱ // 0x3a79 @0x11
0x3a68…3a8e at0012 = ╱61╱a╱ // 0x3a7a @0x12
0x3a68…3a8e at0013 = ╱6e╱n╱ // 0x3a7b @0x13
0x3a68…3a8e at0014 = ╱61╱a╱ // 0x3a7c @0x14
0x3a68…3a8e at0015 = ╱76╱v╱ // 0x3a7d @0x15
0x3a68…3a8e at0016 = ╱6e╱n╱ // 0x3a7e @0x16
0x3a68…3a8e at0017 = ╱3a╱:╱ // 0x3a7f @0x17
0x3a68…3a8e at0018 = ╱20╱…╱ // 0x3a80 @0x18
0x3a68…3a8e at0019 = ╱22╱"╱ // 0x3a81 @0x19
0x3a68…3a8e at001a = ╱ea╱ ; ╱ // 0x3a82 @0x1a
0x3a68…3a8e at001b = ╱46╱F╱ // 0x3a83 @0x1b
0x3a68…3a8e at001c = ╱49╱I╱ // 0x3a84 @0x1c
0x3a68…3a8e at001d = ╱52╱R╱ // 0x3a85 @0x1d
0x3a68…3a8e at001e = ╱4d╱M╱ // 0x3a86 @0x1e
0x3a68…3a8e at001f = ╱41╱A╱ // 0x3a87 @0x1f
0x3a68…3a8e at0020 = ╱4e╱N╱ // 0x3a88 @0x20
0x3a68…3a8e at0021 = ╱41╱A╱ // 0x3a89 @0x21
0x3a68…3a8e at0022 = ╱56╱V╱ // 0x3a8a @0x22
0x3a68…3a8e at0023 = ╱4e╱N╱ // 0x3a8b @0x23
0x3a68…3a8e at0024 = ╱ef╱$╱ // 0x3a8c @0x24
0x3a68…3a8e at0025 = EOL // 0x3a8d @0x25
0x3a68…3a8e }
0x3a8e…3ad6 d0c4 2040 PRINT "<SC6501>Dato: " ; SYST_DAT$(1 : 2) ; "." ; SYST_DAT$(3 : 2) ; "."
0x3a8e…3ad6 LineComal80 {
0x3a8e…3ad6 ptr = 0xd0c4 // 0x3a8e @0x0
0x3a8e…3ad6 lno = 0x07f8 // 0x3a90 @0x2
0x3a8e…3ad6 at0004 = ╱92╱ PRINT ╱ // 0x3a92 @0x4
0x3a8e…3ad6 at0005 = ╱22╱"╱ // 0x3a93 @0x5
0x3a8e…3ad6 at0006 = ╱3c╱<╱ // 0x3a94 @0x6
0x3a8e…3ad6 at0007 = ╱53╱S╱ // 0x3a95 @0x7
0x3a8e…3ad6 at0008 = ╱43╱C╱ // 0x3a96 @0x8
0x3a8e…3ad6 at0009 = ╱36╱6╱ // 0x3a97 @0x9
0x3a8e…3ad6 at000a = ╱35╱5╱ // 0x3a98 @0xa
0x3a8e…3ad6 at000b = ╱30╱0╱ // 0x3a99 @0xb
0x3a8e…3ad6 at000c = ╱31╱1╱ // 0x3a9a @0xc
0x3a8e…3ad6 at000d = ╱3e╱>╱ // 0x3a9b @0xd
0x3a8e…3ad6 at000e = ╱44╱D╱ // 0x3a9c @0xe
0x3a8e…3ad6 at000f = ╱61╱a╱ // 0x3a9d @0xf
0x3a8e…3ad6 at0010 = ╱74╱t╱ // 0x3a9e @0x10
0x3a8e…3ad6 at0011 = ╱6f╱o╱ // 0x3a9f @0x11
0x3a8e…3ad6 at0012 = ╱3a╱:╱ // 0x3aa0 @0x12
0x3a8e…3ad6 at0013 = ╱20╱…╱ // 0x3aa1 @0x13
0x3a8e…3ad6 at0014 = ╱22╱"╱ // 0x3aa2 @0x14
0x3a8e…3ad6 at0015 = ╱ea╱ ; ╱ // 0x3aa3 @0x15
0x3a8e…3ad6 at0016 = ╱53╱S╱ // 0x3aa4 @0x16
0x3a8e…3ad6 at0017 = ╱59╱Y╱ // 0x3aa5 @0x17
0x3a8e…3ad6 at0018 = ╱53╱S╱ // 0x3aa6 @0x18
0x3a8e…3ad6 at0019 = ╱54╱T╱ // 0x3aa7 @0x19
0x3a8e…3ad6 at001a = ╱5f╱_╱ // 0x3aa8 @0x1a
0x3a8e…3ad6 at001b = ╱44╱D╱ // 0x3aa9 @0x1b
0x3a8e…3ad6 at001c = ╱41╱A╱ // 0x3aaa @0x1c
0x3a8e…3ad6 at001d = ╱54╱T╱ // 0x3aab @0x1d
0x3a8e…3ad6 at001e = ╱ef╱$╱ // 0x3aac @0x1e
0x3a8e…3ad6 at001f = ╱ed╱(╱ // 0x3aad @0x1f
0x3a8e…3ad6 at0020 = ╱31╱1╱ // 0x3aae @0x20
0x3a8e…3ad6 at0021 = ╱f20100╱ // 0x3aaf @0x21
0x3a8e…3ad6 at0024 = ╱f1╱ : ╱ // 0x3ab2 @0x24
0x3a8e…3ad6 at0025 = ╱32╱2╱ // 0x3ab3 @0x25
0x3a8e…3ad6 at0026 = ╱f20200╱ // 0x3ab4 @0x26
0x3a8e…3ad6 at0029 = ╱ee╱)╱ // 0x3ab7 @0x29
0x3a8e…3ad6 at002a = ╱ea╱ ; ╱ // 0x3ab8 @0x2a
0x3a8e…3ad6 at002b = ╱22╱"╱ // 0x3ab9 @0x2b
0x3a8e…3ad6 at002c = ╱2e╱.╱ // 0x3aba @0x2c
0x3a8e…3ad6 at002d = ╱22╱"╱ // 0x3abb @0x2d
0x3a8e…3ad6 at002e = ╱ea╱ ; ╱ // 0x3abc @0x2e
0x3a8e…3ad6 at002f = ╱53╱S╱ // 0x3abd @0x2f
0x3a8e…3ad6 at0030 = ╱59╱Y╱ // 0x3abe @0x30
0x3a8e…3ad6 at0031 = ╱53╱S╱ // 0x3abf @0x31
0x3a8e…3ad6 at0032 = ╱54╱T╱ // 0x3ac0 @0x32
0x3a8e…3ad6 at0033 = ╱5f╱_╱ // 0x3ac1 @0x33
0x3a8e…3ad6 at0034 = ╱44╱D╱ // 0x3ac2 @0x34
0x3a8e…3ad6 at0035 = ╱41╱A╱ // 0x3ac3 @0x35
0x3a8e…3ad6 at0036 = ╱54╱T╱ // 0x3ac4 @0x36
0x3a8e…3ad6 at0037 = ╱ef╱$╱ // 0x3ac5 @0x37
0x3a8e…3ad6 at0038 = ╱ed╱(╱ // 0x3ac6 @0x38
0x3a8e…3ad6 at0039 = ╱33╱3╱ // 0x3ac7 @0x39
0x3a8e…3ad6 at003a = ╱f20300╱ // 0x3ac8 @0x3a
0x3a8e…3ad6 at003d = ╱f1╱ : ╱ // 0x3acb @0x3d
0x3a8e…3ad6 at003e = ╱32╱2╱ // 0x3acc @0x3e
0x3a8e…3ad6 at003f = ╱f20200╱ // 0x3acd @0x3f
0x3a8e…3ad6 at0042 = ╱ee╱)╱ // 0x3ad0 @0x42
0x3a8e…3ad6 at0043 = ╱ea╱ ; ╱ // 0x3ad1 @0x43
0x3a8e…3ad6 at0044 = ╱22╱"╱ // 0x3ad2 @0x44
0x3a8e…3ad6 at0045 = ╱2e╱.╱ // 0x3ad3 @0x45
0x3a8e…3ad6 at0046 = ╱22╱"╱ // 0x3ad4 @0x46
0x3a8e…3ad6 at0047 = EOL // 0x3ad5 @0x47
0x3a8e…3ad6 }
0x3ad6…3af0 ac3c 2050 PRINT SYST_DAT$(5 : 2)
0x3ad6…3af0 LineComal80 {
0x3ad6…3af0 ptr = 0xac3c // 0x3ad6 @0x0
0x3ad6…3af0 lno = 0x0802 // 0x3ad8 @0x2
0x3ad6…3af0 at0004 = ╱92╱ PRINT ╱ // 0x3ada @0x4
0x3ad6…3af0 at0005 = ╱53╱S╱ // 0x3adb @0x5
0x3ad6…3af0 at0006 = ╱59╱Y╱ // 0x3adc @0x6
0x3ad6…3af0 at0007 = ╱53╱S╱ // 0x3add @0x7
0x3ad6…3af0 at0008 = ╱54╱T╱ // 0x3ade @0x8
0x3ad6…3af0 at0009 = ╱5f╱_╱ // 0x3adf @0x9
0x3ad6…3af0 at000a = ╱44╱D╱ // 0x3ae0 @0xa
0x3ad6…3af0 at000b = ╱41╱A╱ // 0x3ae1 @0xb
0x3ad6…3af0 at000c = ╱54╱T╱ // 0x3ae2 @0xc
0x3ad6…3af0 at000d = ╱ef╱$╱ // 0x3ae3 @0xd
0x3ad6…3af0 at000e = ╱ed╱(╱ // 0x3ae4 @0xe
0x3ad6…3af0 at000f = ╱35╱5╱ // 0x3ae5 @0xf
0x3ad6…3af0 at0010 = ╱f20500╱ // 0x3ae6 @0x10
0x3ad6…3af0 at0013 = ╱f1╱ : ╱ // 0x3ae9 @0x13
0x3ad6…3af0 at0014 = ╱32╱2╱ // 0x3aea @0x14
0x3ad6…3af0 at0015 = ╱f20200╱ // 0x3aeb @0x15
0x3ad6…3af0 at0018 = ╱ee╱)╱ // 0x3aee @0x18
0x3ad6…3af0 at0019 = EOL // 0x3aef @0x19
0x3ad6…3af0 }
0x3af0…3b00 b90f 3530 LET P_MKOD$ := ""
0x3af0…3b00 LineComal80 {
0x3af0…3b00 ptr = 0xb90f // 0x3af0 @0x0
0x3af0…3b00 lno = 0x0dca // 0x3af2 @0x2
0x3af0…3b00 at0004 = ╱86╱ LET ╱ // 0x3af4 @0x4
0x3af0…3b00 at0005 = ╱50╱P╱ // 0x3af5 @0x5
0x3af0…3b00 at0006 = ╱5f╱_╱ // 0x3af6 @0x6
0x3af0…3b00 at0007 = ╱4d╱M╱ // 0x3af7 @0x7
0x3af0…3b00 at0008 = ╱4b╱K╱ // 0x3af8 @0x8
0x3af0…3b00 at0009 = ╱4f╱O╱ // 0x3af9 @0x9
0x3af0…3b00 at000a = ╱44╱D╱ // 0x3afa @0xa
0x3af0…3b00 at000b = ╱ef╱$╱ // 0x3afb @0xb
0x3af0…3b00 at000c = ╱f0╱ := ╱ // 0x3afc @0xc
0x3af0…3b00 at000d = ╱22╱"╱ // 0x3afd @0xd
0x3af0…3b00 at000e = ╱22╱"╱ // 0x3afe @0xe
0x3af0…3b00 at000f = EOL // 0x3aff @0xf
0x3af0…3b00 }
0x3b00…3b40 d12e 4740 PRINT "<S>BILAG TEKST KONTONR DEBET "
0x3b00…3b40 LineComal80 {
0x3b00…3b40 ptr = 0xd12e // 0x3b00 @0x0
0x3b00…3b40 lno = 0x1284 // 0x3b02 @0x2
0x3b00…3b40 at0004 = ╱92╱ PRINT ╱ // 0x3b04 @0x4
0x3b00…3b40 at0005 = ╱22╱"╱ // 0x3b05 @0x5
0x3b00…3b40 at0006 = ╱3c╱<╱ // 0x3b06 @0x6
0x3b00…3b40 at0007 = ╱53╱S╱ // 0x3b07 @0x7
0x3b00…3b40 at0008 = ╱3e╱>╱ // 0x3b08 @0x8
0x3b00…3b40 at0009 = ╱42╱B╱ // 0x3b09 @0x9
0x3b00…3b40 at000a = ╱49╱I╱ // 0x3b0a @0xa
0x3b00…3b40 at000b = ╱4c╱L╱ // 0x3b0b @0xb
0x3b00…3b40 at000c = ╱41╱A╱ // 0x3b0c @0xc
0x3b00…3b40 at000d = ╱47╱G╱ // 0x3b0d @0xd
0x3b00…3b40 at000e = ╱20╱…╱ // 0x3b0e @0xe
0x3b00…3b40 at000f = ╱20╱…╱ // 0x3b0f @0xf
0x3b00…3b40 at0010 = ╱54╱T╱ // 0x3b10 @0x10
0x3b00…3b40 at0011 = ╱45╱E╱ // 0x3b11 @0x11
0x3b00…3b40 at0012 = ╱4b╱K╱ // 0x3b12 @0x12
0x3b00…3b40 at0013 = ╱53╱S╱ // 0x3b13 @0x13
0x3b00…3b40 at0014 = ╱54╱T╱ // 0x3b14 @0x14
0x3b00…3b40 at0015 = ╱20╱…╱ // 0x3b15 @0x15
0x3b00…3b40 at0016 = ╱20╱…╱ // 0x3b16 @0x16
0x3b00…3b40 at0017 = ╱20╱…╱ // 0x3b17 @0x17
0x3b00…3b40 at0018 = ╱20╱…╱ // 0x3b18 @0x18
0x3b00…3b40 at0019 = ╱20╱…╱ // 0x3b19 @0x19
0x3b00…3b40 at001a = ╱20╱…╱ // 0x3b1a @0x1a
0x3b00…3b40 at001b = ╱20╱…╱ // 0x3b1b @0x1b
0x3b00…3b40 at001c = ╱20╱…╱ // 0x3b1c @0x1c
0x3b00…3b40 at001d = ╱20╱…╱ // 0x3b1d @0x1d
0x3b00…3b40 at001e = ╱20╱…╱ // 0x3b1e @0x1e
0x3b00…3b40 at001f = ╱20╱…╱ // 0x3b1f @0x1f
0x3b00…3b40 at0020 = ╱20╱…╱ // 0x3b20 @0x20
0x3b00…3b40 at0021 = ╱20╱…╱ // 0x3b21 @0x21
0x3b00…3b40 at0022 = ╱20╱…╱ // 0x3b22 @0x22
0x3b00…3b40 at0023 = ╱20╱…╱ // 0x3b23 @0x23
0x3b00…3b40 at0024 = ╱20╱…╱ // 0x3b24 @0x24
0x3b00…3b40 at0025 = ╱20╱…╱ // 0x3b25 @0x25
0x3b00…3b40 at0026 = ╱20╱…╱ // 0x3b26 @0x26
0x3b00…3b40 at0027 = ╱20╱…╱ // 0x3b27 @0x27
0x3b00…3b40 at0028 = ╱20╱…╱ // 0x3b28 @0x28
0x3b00…3b40 at0029 = ╱20╱…╱ // 0x3b29 @0x29
0x3b00…3b40 at002a = ╱4b╱K╱ // 0x3b2a @0x2a
0x3b00…3b40 at002b = ╱4f╱O╱ // 0x3b2b @0x2b
0x3b00…3b40 at002c = ╱4e╱N╱ // 0x3b2c @0x2c
0x3b00…3b40 at002d = ╱54╱T╱ // 0x3b2d @0x2d
0x3b00…3b40 at002e = ╱4f╱O╱ // 0x3b2e @0x2e
0x3b00…3b40 at002f = ╱4e╱N╱ // 0x3b2f @0x2f
0x3b00…3b40 at0030 = ╱52╱R╱ // 0x3b30 @0x30
0x3b00…3b40 at0031 = ╱20╱…╱ // 0x3b31 @0x31
0x3b00…3b40 at0032 = ╱20╱…╱ // 0x3b32 @0x32
0x3b00…3b40 at0033 = ╱20╱…╱ // 0x3b33 @0x33
0x3b00…3b40 at0034 = ╱20╱…╱ // 0x3b34 @0x34
0x3b00…3b40 at0035 = ╱20╱…╱ // 0x3b35 @0x35
0x3b00…3b40 at0036 = ╱44╱D╱ // 0x3b36 @0x36
0x3b00…3b40 at0037 = ╱45╱E╱ // 0x3b37 @0x37
0x3b00…3b40 at0038 = ╱42╱B╱ // 0x3b38 @0x38
0x3b00…3b40 at0039 = ╱45╱E╱ // 0x3b39 @0x39
0x3b00…3b40 at003a = ╱54╱T╱ // 0x3b3a @0x3a
0x3b00…3b40 at003b = ╱20╱…╱ // 0x3b3b @0x3b
0x3b00…3b40 at003c = ╱20╱…╱ // 0x3b3c @0x3c
0x3b00…3b40 at003d = ╱20╱…╱ // 0x3b3d @0x3d
0x3b00…3b40 at003e = ╱22╱"╱ // 0x3b3e @0x3e
0x3b00…3b40 at003f = EOL // 0x3b3f @0x3f
0x3b00…3b40 }
0x3b40…3b54 d142 4750 PRINT " KREDIT "
0x3b40…3b54 LineComal80 {
0x3b40…3b54 ptr = 0xd142 // 0x3b40 @0x0
0x3b40…3b54 lno = 0x128e // 0x3b42 @0x2
0x3b40…3b54 at0004 = ╱92╱ PRINT ╱ // 0x3b44 @0x4
0x3b40…3b54 at0005 = ╱22╱"╱ // 0x3b45 @0x5
0x3b40…3b54 at0006 = ╱20╱…╱ // 0x3b46 @0x6
0x3b40…3b54 at0007 = ╱20╱…╱ // 0x3b47 @0x7
0x3b40…3b54 at0008 = ╱20╱…╱ // 0x3b48 @0x8
0x3b40…3b54 at0009 = ╱20╱…╱ // 0x3b49 @0x9
0x3b40…3b54 at000a = ╱4b╱K╱ // 0x3b4a @0xa
0x3b40…3b54 at000b = ╱52╱R╱ // 0x3b4b @0xb
0x3b40…3b54 at000c = ╱45╱E╱ // 0x3b4c @0xc
0x3b40…3b54 at000d = ╱44╱D╱ // 0x3b4d @0xd
0x3b40…3b54 at000e = ╱49╱I╱ // 0x3b4e @0xe
0x3b40…3b54 at000f = ╱54╱T╱ // 0x3b4f @0xf
0x3b40…3b54 at0010 = ╱20╱…╱ // 0x3b50 @0x10
0x3b40…3b54 at0011 = ╱20╱…╱ // 0x3b51 @0x11
0x3b40…3b54 at0012 = ╱22╱"╱ // 0x3b52 @0x12
0x3b40…3b54 at0013 = EOL // 0x3b53 @0x13
0x3b40…3b54 }
0x3b54…3b94 d182 4760 PRINT "<S>----- ------------------------ -------- ----------"
0x3b54…3b94 LineComal80 {
0x3b54…3b94 ptr = 0xd182 // 0x3b54 @0x0
0x3b54…3b94 lno = 0x1298 // 0x3b56 @0x2
0x3b54…3b94 at0004 = ╱92╱ PRINT ╱ // 0x3b58 @0x4
0x3b54…3b94 at0005 = ╱22╱"╱ // 0x3b59 @0x5
0x3b54…3b94 at0006 = ╱3c╱<╱ // 0x3b5a @0x6
0x3b54…3b94 at0007 = ╱53╱S╱ // 0x3b5b @0x7
0x3b54…3b94 at0008 = ╱3e╱>╱ // 0x3b5c @0x8
0x3b54…3b94 at0009 = ╱2d╱-╱ // 0x3b5d @0x9
0x3b54…3b94 at000a = ╱2d╱-╱ // 0x3b5e @0xa
0x3b54…3b94 at000b = ╱2d╱-╱ // 0x3b5f @0xb
0x3b54…3b94 at000c = ╱2d╱-╱ // 0x3b60 @0xc
0x3b54…3b94 at000d = ╱2d╱-╱ // 0x3b61 @0xd
0x3b54…3b94 at000e = ╱20╱…╱ // 0x3b62 @0xe
0x3b54…3b94 at000f = ╱20╱…╱ // 0x3b63 @0xf
0x3b54…3b94 at0010 = ╱2d╱-╱ // 0x3b64 @0x10
0x3b54…3b94 at0011 = ╱2d╱-╱ // 0x3b65 @0x11
0x3b54…3b94 at0012 = ╱2d╱-╱ // 0x3b66 @0x12
0x3b54…3b94 at0013 = ╱2d╱-╱ // 0x3b67 @0x13
0x3b54…3b94 at0014 = ╱2d╱-╱ // 0x3b68 @0x14
0x3b54…3b94 at0015 = ╱2d╱-╱ // 0x3b69 @0x15
0x3b54…3b94 at0016 = ╱2d╱-╱ // 0x3b6a @0x16
0x3b54…3b94 at0017 = ╱2d╱-╱ // 0x3b6b @0x17
0x3b54…3b94 at0018 = ╱2d╱-╱ // 0x3b6c @0x18
0x3b54…3b94 at0019 = ╱2d╱-╱ // 0x3b6d @0x19
0x3b54…3b94 at001a = ╱2d╱-╱ // 0x3b6e @0x1a
0x3b54…3b94 at001b = ╱2d╱-╱ // 0x3b6f @0x1b
0x3b54…3b94 at001c = ╱2d╱-╱ // 0x3b70 @0x1c
0x3b54…3b94 at001d = ╱2d╱-╱ // 0x3b71 @0x1d
0x3b54…3b94 at001e = ╱2d╱-╱ // 0x3b72 @0x1e
0x3b54…3b94 at001f = ╱2d╱-╱ // 0x3b73 @0x1f
0x3b54…3b94 at0020 = ╱2d╱-╱ // 0x3b74 @0x20
0x3b54…3b94 at0021 = ╱2d╱-╱ // 0x3b75 @0x21
0x3b54…3b94 at0022 = ╱2d╱-╱ // 0x3b76 @0x22
0x3b54…3b94 at0023 = ╱2d╱-╱ // 0x3b77 @0x23
0x3b54…3b94 at0024 = ╱2d╱-╱ // 0x3b78 @0x24
0x3b54…3b94 at0025 = ╱2d╱-╱ // 0x3b79 @0x25
0x3b54…3b94 at0026 = ╱2d╱-╱ // 0x3b7a @0x26
0x3b54…3b94 at0027 = ╱2d╱-╱ // 0x3b7b @0x27
0x3b54…3b94 at0028 = ╱20╱…╱ // 0x3b7c @0x28
0x3b54…3b94 at0029 = ╱20╱…╱ // 0x3b7d @0x29
0x3b54…3b94 at002a = ╱2d╱-╱ // 0x3b7e @0x2a
0x3b54…3b94 at002b = ╱2d╱-╱ // 0x3b7f @0x2b
0x3b54…3b94 at002c = ╱2d╱-╱ // 0x3b80 @0x2c
0x3b54…3b94 at002d = ╱2d╱-╱ // 0x3b81 @0x2d
0x3b54…3b94 at002e = ╱2d╱-╱ // 0x3b82 @0x2e
0x3b54…3b94 at002f = ╱2d╱-╱ // 0x3b83 @0x2f
0x3b54…3b94 at0030 = ╱2d╱-╱ // 0x3b84 @0x30
0x3b54…3b94 at0031 = ╱2d╱-╱ // 0x3b85 @0x31
0x3b54…3b94 at0032 = ╱20╱…╱ // 0x3b86 @0x32
0x3b54…3b94 at0033 = ╱20╱…╱ // 0x3b87 @0x33
0x3b54…3b94 at0034 = ╱2d╱-╱ // 0x3b88 @0x34
0x3b54…3b94 at0035 = ╱2d╱-╱ // 0x3b89 @0x35
0x3b54…3b94 at0036 = ╱2d╱-╱ // 0x3b8a @0x36
0x3b54…3b94 at0037 = ╱2d╱-╱ // 0x3b8b @0x37
0x3b54…3b94 at0038 = ╱2d╱-╱ // 0x3b8c @0x38
0x3b54…3b94 at0039 = ╱2d╱-╱ // 0x3b8d @0x39
0x3b54…3b94 at003a = ╱2d╱-╱ // 0x3b8e @0x3a
0x3b54…3b94 at003b = ╱2d╱-╱ // 0x3b8f @0x3b
0x3b54…3b94 at003c = ╱2d╱-╱ // 0x3b90 @0x3c
0x3b54…3b94 at003d = ╱2d╱-╱ // 0x3b91 @0x3d
0x3b54…3b94 at003e = ╱22╱"╱ // 0x3b92 @0x3e
0x3b54…3b94 at003f = EOL // 0x3b93 @0x3f
0x3b54…3b94 }
0x3b94…3ba8 d196 4770 PRINT " ----------"
0x3b94…3ba8 LineComal80 {
0x3b94…3ba8 ptr = 0xd196 // 0x3b94 @0x0
0x3b94…3ba8 lno = 0x12a2 // 0x3b96 @0x2
0x3b94…3ba8 at0004 = ╱92╱ PRINT ╱ // 0x3b98 @0x4
0x3b94…3ba8 at0005 = ╱22╱"╱ // 0x3b99 @0x5
0x3b94…3ba8 at0006 = ╱20╱…╱ // 0x3b9a @0x6
0x3b94…3ba8 at0007 = ╱20╱…╱ // 0x3b9b @0x7
0x3b94…3ba8 at0008 = ╱2d╱-╱ // 0x3b9c @0x8
0x3b94…3ba8 at0009 = ╱2d╱-╱ // 0x3b9d @0x9
0x3b94…3ba8 at000a = ╱2d╱-╱ // 0x3b9e @0xa
0x3b94…3ba8 at000b = ╱2d╱-╱ // 0x3b9f @0xb
0x3b94…3ba8 at000c = ╱2d╱-╱ // 0x3ba0 @0xc
0x3b94…3ba8 at000d = ╱2d╱-╱ // 0x3ba1 @0xd
0x3b94…3ba8 at000e = ╱2d╱-╱ // 0x3ba2 @0xe
0x3b94…3ba8 at000f = ╱2d╱-╱ // 0x3ba3 @0xf
0x3b94…3ba8 at0010 = ╱2d╱-╱ // 0x3ba4 @0x10
0x3b94…3ba8 at0011 = ╱2d╱-╱ // 0x3ba5 @0x11
0x3b94…3ba8 at0012 = ╱22╱"╱ // 0x3ba6 @0x12
0x3b94…3ba8 at0013 = EOL // 0x3ba7 @0x13
0x3b94…3ba8 }
0x3ba8…3bc6 d1b4 4780 IF _DEB > 0 OR P_KRED > 0 THEN
0x3ba8…3bc6 LineComal80 {
0x3ba8…3bc6 ptr = 0xd1b4 // 0x3ba8 @0x0
0x3ba8…3bc6 lno = 0x12ac // 0x3baa @0x2
0x3ba8…3bc6 at0004 = ╱9b5950╱ IF ╱ // 0x3bac @0x4
0x3ba8…3bc6 at0007 = ╱5f╱_╱ // 0x3baf @0x7
0x3ba8…3bc6 at0008 = ╱44╱D╱ // 0x3bb0 @0x8
0x3ba8…3bc6 at0009 = ╱45╱E╱ // 0x3bb1 @0x9
0x3ba8…3bc6 at000a = ╱42╱B╱ // 0x3bb2 @0xa
0x3ba8…3bc6 at000b = ╱e1╱ > ╱ // 0x3bb3 @0xb
0x3ba8…3bc6 at000c = ╱30╱0╱ // 0x3bb4 @0xc
0x3ba8…3bc6 at000d = ╱f20000╱ // 0x3bb5 @0xd
0x3ba8…3bc6 at0010 = ╱d8╱ OR ╱ // 0x3bb8 @0x10
0x3ba8…3bc6 at0011 = ╱50╱P╱ // 0x3bb9 @0x11
0x3ba8…3bc6 at0012 = ╱5f╱_╱ // 0x3bba @0x12
0x3ba8…3bc6 at0013 = ╱4b╱K╱ // 0x3bbb @0x13
0x3ba8…3bc6 at0014 = ╱52╱R╱ // 0x3bbc @0x14
0x3ba8…3bc6 at0015 = ╱45╱E╱ // 0x3bbd @0x15
0x3ba8…3bc6 at0016 = ╱44╱D╱ // 0x3bbe @0x16
0x3ba8…3bc6 at0017 = ╱e1╱ > ╱ // 0x3bbf @0x17
0x3ba8…3bc6 at0018 = ╱30╱0╱ // 0x3bc0 @0x18
0x3ba8…3bc6 at0019 = ╱f20000╱ // 0x3bc1 @0x19
0x3ba8…3bc6 at001c = ╱b5╱ THEN ╱ // 0x3bc4 @0x1c
0x3ba8…3bc6 at001d = EOL // 0x3bc5 @0x1d
0x3ba8…3bc6 }
0x3bc6…3c0f d1fd 4790 PRINT TAB(8) ; "TRANSPORT" ; TAB(41) ; CHR$ (P_DEB,9,2) ; CHR$ (P_KRED,9,2)
0x3bc6…3c0f LineComal80 {
0x3bc6…3c0f ptr = 0xd1fd // 0x3bc6 @0x0
0x3bc6…3c0f lno = 0x12b6 // 0x3bc8 @0x2
0x3bc6…3c0f at0004 = ╱92╱ PRINT ╱ // 0x3bca @0x4
0x3bc6…3c0f at0005 = ╱d2╱TAB╱ // 0x3bcb @0x5
0x3bc6…3c0f at0006 = ╱ed╱(╱ // 0x3bcc @0x6
0x3bc6…3c0f at0007 = ╱38╱8╱ // 0x3bcd @0x7
0x3bc6…3c0f at0008 = ╱f20800╱ // 0x3bce @0x8
0x3bc6…3c0f at000b = ╱ee╱)╱ // 0x3bd1 @0xb
0x3bc6…3c0f at000c = ╱ea╱ ; ╱ // 0x3bd2 @0xc
0x3bc6…3c0f at000d = ╱22╱"╱ // 0x3bd3 @0xd
0x3bc6…3c0f at000e = ╱54╱T╱ // 0x3bd4 @0xe
0x3bc6…3c0f at000f = ╱52╱R╱ // 0x3bd5 @0xf
0x3bc6…3c0f at0010 = ╱41╱A╱ // 0x3bd6 @0x10
0x3bc6…3c0f at0011 = ╱4e╱N╱ // 0x3bd7 @0x11
0x3bc6…3c0f at0012 = ╱53╱S╱ // 0x3bd8 @0x12
0x3bc6…3c0f at0013 = ╱50╱P╱ // 0x3bd9 @0x13
0x3bc6…3c0f at0014 = ╱4f╱O╱ // 0x3bda @0x14
0x3bc6…3c0f at0015 = ╱52╱R╱ // 0x3bdb @0x15
0x3bc6…3c0f at0016 = ╱54╱T╱ // 0x3bdc @0x16
0x3bc6…3c0f at0017 = ╱22╱"╱ // 0x3bdd @0x17
0x3bc6…3c0f at0018 = ╱ea╱ ; ╱ // 0x3bde @0x18
0x3bc6…3c0f at0019 = ╱d2╱TAB╱ // 0x3bdf @0x19
0x3bc6…3c0f at001a = ╱ed╱(╱ // 0x3be0 @0x1a
0x3bc6…3c0f at001b = ╱34╱4╱ // 0x3be1 @0x1b
0x3bc6…3c0f at001c = ╱31╱1╱ // 0x3be2 @0x1c
0x3bc6…3c0f at001d = ╱f22900╱ // 0x3be3 @0x1d
0x3bc6…3c0f at0020 = ╱ee╱)╱ // 0x3be6 @0x20
0x3bc6…3c0f at0021 = ╱ea╱ ; ╱ // 0x3be7 @0x21
0x3bc6…3c0f at0022 = ╱d0╱ CHR$ ╱ // 0x3be8 @0x22
0x3bc6…3c0f at0023 = ╱ed╱(╱ // 0x3be9 @0x23
0x3bc6…3c0f at0024 = ╱50╱P╱ // 0x3bea @0x24
0x3bc6…3c0f at0025 = ╱5f╱_╱ // 0x3beb @0x25
0x3bc6…3c0f at0026 = ╱44╱D╱ // 0x3bec @0x26
0x3bc6…3c0f at0027 = ╱45╱E╱ // 0x3bed @0x27
0x3bc6…3c0f at0028 = ╱42╱B╱ // 0x3bee @0x28
0x3bc6…3c0f at0029 = ╱ec╱,╱ // 0x3bef @0x29
0x3bc6…3c0f at002a = ╱39╱9╱ // 0x3bf0 @0x2a
0x3bc6…3c0f at002b = ╱f20900╱ // 0x3bf1 @0x2b
0x3bc6…3c0f at002e = ╱ec╱,╱ // 0x3bf4 @0x2e
0x3bc6…3c0f at002f = ╱32╱2╱ // 0x3bf5 @0x2f
0x3bc6…3c0f at0030 = ╱f20200╱ // 0x3bf6 @0x30
0x3bc6…3c0f at0033 = ╱ee╱)╱ // 0x3bf9 @0x33
0x3bc6…3c0f at0034 = ╱ea╱ ; ╱ // 0x3bfa @0x34
0x3bc6…3c0f at0035 = ╱d0╱ CHR$ ╱ // 0x3bfb @0x35
0x3bc6…3c0f at0036 = ╱ed╱(╱ // 0x3bfc @0x36
0x3bc6…3c0f at0037 = ╱50╱P╱ // 0x3bfd @0x37
0x3bc6…3c0f at0038 = ╱5f╱_╱ // 0x3bfe @0x38
0x3bc6…3c0f at0039 = ╱4b╱K╱ // 0x3bff @0x39
0x3bc6…3c0f at003a = ╱52╱R╱ // 0x3c00 @0x3a
0x3bc6…3c0f at003b = ╱45╱E╱ // 0x3c01 @0x3b
0x3bc6…3c0f at003c = ╱44╱D╱ // 0x3c02 @0x3c
0x3bc6…3c0f at003d = ╱ec╱,╱ // 0x3c03 @0x3d
0x3bc6…3c0f at003e = ╱39╱9╱ // 0x3c04 @0x3e
0x3bc6…3c0f at003f = ╱f20900╱ // 0x3c05 @0x3f
0x3bc6…3c0f at0042 = ╱ec╱,╱ // 0x3c08 @0x42
0x3bc6…3c0f at0043 = ╱32╱2╱ // 0x3c09 @0x43
0x3bc6…3c0f at0044 = ╱f20200╱ // 0x3c0a @0x44
0x3bc6…3c0f at0047 = ╱ee╱)╱ // 0x3c0d @0x47
0x3bc6…3c0f at0048 = EOL // 0x3c0e @0x48
0x3bc6…3c0f }
0x3c0f…3c25 d213 4800 LET LIN_T := LIN_T + 1
0x3c0f…3c25 LineComal80 {
0x3c0f…3c25 ptr = 0xd213 // 0x3c0f @0x0
0x3c0f…3c25 lno = 0x12c0 // 0x3c11 @0x2
0x3c0f…3c25 at0004 = ╱86╱ LET ╱ // 0x3c13 @0x4
0x3c0f…3c25 at0005 = ╱4c╱L╱ // 0x3c14 @0x5
0x3c0f…3c25 at0006 = ╱49╱I╱ // 0x3c15 @0x6
0x3c0f…3c25 at0007 = ╱4e╱N╱ // 0x3c16 @0x7
0x3c0f…3c25 at0008 = ╱5f╱_╱ // 0x3c17 @0x8
0x3c0f…3c25 at0009 = ╱54╱T╱ // 0x3c18 @0x9
0x3c0f…3c25 at000a = ╱f0╱ := ╱ // 0x3c19 @0xa
0x3c0f…3c25 at000b = ╱4c╱L╱ // 0x3c1a @0xb
0x3c0f…3c25 at000c = ╱49╱I╱ // 0x3c1b @0xc
0x3c0f…3c25 at000d = ╱4e╱N╱ // 0x3c1c @0xd
0x3c0f…3c25 at000e = ╱5f╱_╱ // 0x3c1d @0xe
0x3c0f…3c25 at000f = ╱54╱T╱ // 0x3c1e @0xf
0x3c0f…3c25 at0010 = ╱e5╱ + ╱ // 0x3c1f @0x10
0x3c0f…3c25 at0011 = ╱31╱1╱ // 0x3c20 @0x11
0x3c0f…3c25 at0012 = ╱f20100╱ // 0x3c21 @0x12
0x3c0f…3c25 at0015 = EOL // 0x3c24 @0x15
0x3c0f…3c25 }
0x3c25…3c2b d219 4810 ENDIF
0x3c25…3c2b LineComal80 {
0x3c25…3c2b ptr = 0xd219 // 0x3c25 @0x0
0x3c25…3c2b lno = 0x12ca // 0x3c27 @0x2
0x3c25…3c2b at0004 = ╱9c╱ ENDIF ╱ // 0x3c29 @0x4
0x3c25…3c2b at0005 = EOL // 0x3c2a @0x5
0x3c25…3c2b }
0x3c2b…3c3a d228 4820 ENDPROC SIDESKIFT
0x3c2b…3c3a LineComal80 {
0x3c2b…3c3a ptr = 0xd228 // 0x3c2b @0x0
0x3c2b…3c3a lno = 0x12d4 // 0x3c2d @0x2
0x3c2b…3c3a at0004 = ╱9f╱ ENDPROC ╱ // 0x3c2f @0x4
0x3c2b…3c3a at0005 = ╱53╱S╱ // 0x3c30 @0x5
0x3c2b…3c3a at0006 = ╱49╱I╱ // 0x3c31 @0x6
0x3c2b…3c3a at0007 = ╱44╱D╱ // 0x3c32 @0x7
0x3c2b…3c3a at0008 = ╱45╱E╱ // 0x3c33 @0x8
0x3c2b…3c3a at0009 = ╱53╱S╱ // 0x3c34 @0x9
0x3c2b…3c3a at000a = ╱4b╱K╱ // 0x3c35 @0xa
0x3c2b…3c3a at000b = ╱49╱I╱ // 0x3c36 @0xb
0x3c2b…3c3a at000c = ╱46╱F╱ // 0x3c37 @0xc
0x3c2b…3c3a at000d = ╱54╱T╱ // 0x3c38 @0xd
0x3c2b…3c3a at000e = EOL // 0x3c39 @0xe
0x3c2b…3c3a }
0x3c3a…3c3f d22d 4830
0x3c3a…3c3f LineComal80 {
0x3c3a…3c3f ptr = 0xd22d // 0x3c3a @0x0
0x3c3a…3c3f lno = 0x12de // 0x3c3c @0x2
0x3c3a…3c3f at0004 = EOL // 0x3c3e @0x4
0x3c3a…3c3f }
0x3c3f…3c4f d23d 4840 PROC PRINT_LIN
0x3c3f…3c4f LineComal80 {
0x3c3f…3c4f ptr = 0xd23d // 0x3c3f @0x0
0x3c3f…3c4f lno = 0x12e8 // 0x3c41 @0x2
0x3c3f…3c4f at0004 = ╱9e5a╱ PROC ╱ // 0x3c43 @0x4
0x3c3f…3c4f at0006 = ╱50╱P╱ // 0x3c45 @0x6
0x3c3f…3c4f at0007 = ╱52╱R╱ // 0x3c46 @0x7
0x3c3f…3c4f at0008 = ╱49╱I╱ // 0x3c47 @0x8
0x3c3f…3c4f at0009 = ╱4e╱N╱ // 0x3c48 @0x9
0x3c3f…3c4f at000a = ╱54╱T╱ // 0x3c49 @0xa
0x3c3f…3c4f at000b = ╱5f╱_╱ // 0x3c4a @0xb
0x3c3f…3c4f at000c = ╱4c╱L╱ // 0x3c4b @0xc
0x3c3f…3c4f at000d = ╱49╱I╱ // 0x3c4c @0xd
0x3c3f…3c4f at000e = ╱4e╱N╱ // 0x3c4d @0xe
0x3c3f…3c4f at000f = EOL // 0x3c4e @0xf
0x3c3f…3c4f }
0x3c4f…3c66 d254 4850 IF P_BNR$ = "*****" THEN EXIT
0x3c4f…3c66 LineComal80 {
0x3c4f…3c66 ptr = 0xd254 // 0x3c4f @0x0
0x3c4f…3c66 lno = 0x12f2 // 0x3c51 @0x2
0x3c4f…3c66 at0004 = ╱8200╱ IF ╱ // 0x3c53 @0x4
0x3c4f…3c66 at0006 = ╱50╱P╱ // 0x3c55 @0x6
0x3c4f…3c66 at0007 = ╱5f╱_╱ // 0x3c56 @0x7
0x3c4f…3c66 at0008 = ╱42╱B╱ // 0x3c57 @0x8
0x3c4f…3c66 at0009 = ╱4e╱N╱ // 0x3c58 @0x9
0x3c4f…3c66 at000a = ╱52╱R╱ // 0x3c59 @0xa
0x3c4f…3c66 at000b = ╱ef╱$╱ // 0x3c5a @0xb
0x3c4f…3c66 at000c = ╱df╱ = ╱ // 0x3c5b @0xc
0x3c4f…3c66 at000d = ╱22╱"╱ // 0x3c5c @0xd
0x3c4f…3c66 at000e = ╱2a╱*╱ // 0x3c5d @0xe
0x3c4f…3c66 at000f = ╱2a╱*╱ // 0x3c5e @0xf
0x3c4f…3c66 at0010 = ╱2a╱*╱ // 0x3c5f @0x10
0x3c4f…3c66 at0011 = ╱2a╱*╱ // 0x3c60 @0x11
0x3c4f…3c66 at0012 = ╱2a╱*╱ // 0x3c61 @0x12
0x3c4f…3c66 at0013 = ╱22╱"╱ // 0x3c62 @0x13
0x3c4f…3c66 at0014 = ╱b5╱ THEN ╱ // 0x3c63 @0x14
0x3c4f…3c66 at0015 = ╱99╱ EXIT ╱ // 0x3c64 @0x15
0x3c4f…3c66 at0016 = EOL // 0x3c65 @0x16
0x3c4f…3c66 }
0x3c66…3c80 d26e 4860 IF IN_T + 5 > MAX_LIN THEN
0x3c66…3c80 LineComal80 {
0x3c66…3c80 ptr = 0xd26e // 0x3c66 @0x0
0x3c66…3c80 lno = 0x12fc // 0x3c68 @0x2
0x3c66…3c80 at0004 = ╱9b5b4c╱ IF ╱ // 0x3c6a @0x4
0x3c66…3c80 at0007 = ╱49╱I╱ // 0x3c6d @0x7
0x3c66…3c80 at0008 = ╱4e╱N╱ // 0x3c6e @0x8
0x3c66…3c80 at0009 = ╱5f╱_╱ // 0x3c6f @0x9
0x3c66…3c80 at000a = ╱54╱T╱ // 0x3c70 @0xa
0x3c66…3c80 at000b = ╱e5╱ + ╱ // 0x3c71 @0xb
0x3c66…3c80 at000c = ╱35╱5╱ // 0x3c72 @0xc
0x3c66…3c80 at000d = ╱f20500╱ // 0x3c73 @0xd
0x3c66…3c80 at0010 = ╱e1╱ > ╱ // 0x3c76 @0x10
0x3c66…3c80 at0011 = ╱4d╱M╱ // 0x3c77 @0x11
0x3c66…3c80 at0012 = ╱41╱A╱ // 0x3c78 @0x12
0x3c66…3c80 at0013 = ╱58╱X╱ // 0x3c79 @0x13
0x3c66…3c80 at0014 = ╱5f╱_╱ // 0x3c7a @0x14
0x3c66…3c80 at0015 = ╱4c╱L╱ // 0x3c7b @0x15
0x3c66…3c80 at0016 = ╱49╱I╱ // 0x3c7c @0x16
0x3c66…3c80 at0017 = ╱4e╱N╱ // 0x3c7d @0x17
0x3c66…3c80 at0018 = ╱b5╱ THEN ╱ // 0x3c7e @0x18
0x3c66…3c80 at0019 = EOL // 0x3c7f @0x19
0x3c66…3c80 }
0x3c80…3c9e d2ce 4870 IF _DEB > 0 OR P_KRED > 0 THEN
0x3c80…3c9e LineComal80 {
0x3c80…3c9e ptr = 0xd2ce // 0x3c80 @0x0
0x3c80…3c9e lno = 0x1306 // 0x3c82 @0x2
0x3c80…3c9e at0004 = ╱9b5c50╱ IF ╱ // 0x3c84 @0x4
0x3c80…3c9e at0007 = ╱5f╱_╱ // 0x3c87 @0x7
0x3c80…3c9e at0008 = ╱44╱D╱ // 0x3c88 @0x8
0x3c80…3c9e at0009 = ╱45╱E╱ // 0x3c89 @0x9
0x3c80…3c9e at000a = ╱42╱B╱ // 0x3c8a @0xa
0x3c80…3c9e at000b = ╱e1╱ > ╱ // 0x3c8b @0xb
0x3c80…3c9e at000c = ╱30╱0╱ // 0x3c8c @0xc
0x3c80…3c9e at000d = ╱f20000╱ // 0x3c8d @0xd
0x3c80…3c9e at0010 = ╱d8╱ OR ╱ // 0x3c90 @0x10
0x3c80…3c9e at0011 = ╱50╱P╱ // 0x3c91 @0x11
0x3c80…3c9e at0012 = ╱5f╱_╱ // 0x3c92 @0x12
0x3c80…3c9e at0013 = ╱4b╱K╱ // 0x3c93 @0x13
0x3c80…3c9e at0014 = ╱52╱R╱ // 0x3c94 @0x14
0x3c80…3c9e at0015 = ╱45╱E╱ // 0x3c95 @0x15
0x3c80…3c9e at0016 = ╱44╱D╱ // 0x3c96 @0x16
0x3c80…3c9e at0017 = ╱e1╱ > ╱ // 0x3c97 @0x17
0x3c80…3c9e at0018 = ╱30╱0╱ // 0x3c98 @0x18
0x3c80…3c9e at0019 = ╱f20000╱ // 0x3c99 @0x19
0x3c80…3c9e at001c = ╱b5╱ THEN ╱ // 0x3c9c @0x1c
0x3c80…3c9e at001d = EOL // 0x3c9d @0x1d
0x3c80…3c9e }
0x3c9e…3ce0 c666 5000 PRINT "<S>----- -------------------- -- -------- ---------- "
0x3c9e…3ce0 LineComal80 {
0x3c9e…3ce0 ptr = 0xc666 // 0x3c9e @0x0
0x3c9e…3ce0 lno = 0x1388 // 0x3ca0 @0x2
0x3c9e…3ce0 at0004 = ╱92╱ PRINT ╱ // 0x3ca2 @0x4
0x3c9e…3ce0 at0005 = ╱22╱"╱ // 0x3ca3 @0x5
0x3c9e…3ce0 at0006 = ╱3c╱<╱ // 0x3ca4 @0x6
0x3c9e…3ce0 at0007 = ╱53╱S╱ // 0x3ca5 @0x7
0x3c9e…3ce0 at0008 = ╱3e╱>╱ // 0x3ca6 @0x8
0x3c9e…3ce0 at0009 = ╱2d╱-╱ // 0x3ca7 @0x9
0x3c9e…3ce0 at000a = ╱2d╱-╱ // 0x3ca8 @0xa
0x3c9e…3ce0 at000b = ╱2d╱-╱ // 0x3ca9 @0xb
0x3c9e…3ce0 at000c = ╱2d╱-╱ // 0x3caa @0xc
0x3c9e…3ce0 at000d = ╱2d╱-╱ // 0x3cab @0xd
0x3c9e…3ce0 at000e = ╱20╱…╱ // 0x3cac @0xe
0x3c9e…3ce0 at000f = ╱20╱…╱ // 0x3cad @0xf
0x3c9e…3ce0 at0010 = ╱2d╱-╱ // 0x3cae @0x10
0x3c9e…3ce0 at0011 = ╱2d╱-╱ // 0x3caf @0x11
0x3c9e…3ce0 at0012 = ╱2d╱-╱ // 0x3cb0 @0x12
0x3c9e…3ce0 at0013 = ╱2d╱-╱ // 0x3cb1 @0x13
0x3c9e…3ce0 at0014 = ╱2d╱-╱ // 0x3cb2 @0x14
0x3c9e…3ce0 at0015 = ╱2d╱-╱ // 0x3cb3 @0x15
0x3c9e…3ce0 at0016 = ╱2d╱-╱ // 0x3cb4 @0x16
0x3c9e…3ce0 at0017 = ╱2d╱-╱ // 0x3cb5 @0x17
0x3c9e…3ce0 at0018 = ╱2d╱-╱ // 0x3cb6 @0x18
0x3c9e…3ce0 at0019 = ╱2d╱-╱ // 0x3cb7 @0x19
0x3c9e…3ce0 at001a = ╱2d╱-╱ // 0x3cb8 @0x1a
0x3c9e…3ce0 at001b = ╱2d╱-╱ // 0x3cb9 @0x1b
0x3c9e…3ce0 at001c = ╱2d╱-╱ // 0x3cba @0x1c
0x3c9e…3ce0 at001d = ╱2d╱-╱ // 0x3cbb @0x1d
0x3c9e…3ce0 at001e = ╱2d╱-╱ // 0x3cbc @0x1e
0x3c9e…3ce0 at001f = ╱2d╱-╱ // 0x3cbd @0x1f
0x3c9e…3ce0 at0020 = ╱2d╱-╱ // 0x3cbe @0x20
0x3c9e…3ce0 at0021 = ╱2d╱-╱ // 0x3cbf @0x21
0x3c9e…3ce0 at0022 = ╱2d╱-╱ // 0x3cc0 @0x22
0x3c9e…3ce0 at0023 = ╱2d╱-╱ // 0x3cc1 @0x23
0x3c9e…3ce0 at0024 = ╱20╱…╱ // 0x3cc2 @0x24
0x3c9e…3ce0 at0025 = ╱20╱…╱ // 0x3cc3 @0x25
0x3c9e…3ce0 at0026 = ╱2d╱-╱ // 0x3cc4 @0x26
0x3c9e…3ce0 at0027 = ╱2d╱-╱ // 0x3cc5 @0x27
0x3c9e…3ce0 at0028 = ╱20╱…╱ // 0x3cc6 @0x28
0x3c9e…3ce0 at0029 = ╱20╱…╱ // 0x3cc7 @0x29
0x3c9e…3ce0 at002a = ╱2d╱-╱ // 0x3cc8 @0x2a
0x3c9e…3ce0 at002b = ╱2d╱-╱ // 0x3cc9 @0x2b
0x3c9e…3ce0 at002c = ╱2d╱-╱ // 0x3cca @0x2c
0x3c9e…3ce0 at002d = ╱2d╱-╱ // 0x3ccb @0x2d
0x3c9e…3ce0 at002e = ╱2d╱-╱ // 0x3ccc @0x2e
0x3c9e…3ce0 at002f = ╱2d╱-╱ // 0x3ccd @0x2f
0x3c9e…3ce0 at0030 = ╱2d╱-╱ // 0x3cce @0x30
0x3c9e…3ce0 at0031 = ╱2d╱-╱ // 0x3ccf @0x31
0x3c9e…3ce0 at0032 = ╱20╱…╱ // 0x3cd0 @0x32
0x3c9e…3ce0 at0033 = ╱20╱…╱ // 0x3cd1 @0x33
0x3c9e…3ce0 at0034 = ╱2d╱-╱ // 0x3cd2 @0x34
0x3c9e…3ce0 at0035 = ╱2d╱-╱ // 0x3cd3 @0x35
0x3c9e…3ce0 at0036 = ╱2d╱-╱ // 0x3cd4 @0x36
0x3c9e…3ce0 at0037 = ╱2d╱-╱ // 0x3cd5 @0x37
0x3c9e…3ce0 at0038 = ╱2d╱-╱ // 0x3cd6 @0x38
0x3c9e…3ce0 at0039 = ╱2d╱-╱ // 0x3cd7 @0x39
0x3c9e…3ce0 at003a = ╱2d╱-╱ // 0x3cd8 @0x3a
0x3c9e…3ce0 at003b = ╱2d╱-╱ // 0x3cd9 @0x3b
0x3c9e…3ce0 at003c = ╱2d╱-╱ // 0x3cda @0x3c
0x3c9e…3ce0 at003d = ╱2d╱-╱ // 0x3cdb @0x3d
0x3c9e…3ce0 at003e = ╱20╱…╱ // 0x3cdc @0x3e
0x3c9e…3ce0 at003f = ╱20╱…╱ // 0x3cdd @0x3f
0x3c9e…3ce0 at0040 = ╱22╱"╱ // 0x3cde @0x40
0x3c9e…3ce0 at0041 = EOL // 0x3cdf @0x41
0x3c9e…3ce0 }
0x3ce0…3d22 c666 4880 PRINT "<S>----- ------------------------ -------- ---------- "
0x3ce0…3d22 LineComal80 {
0x3ce0…3d22 ptr = 0xc666 // 0x3ce0 @0x0
0x3ce0…3d22 lno = 0x1310 // 0x3ce2 @0x2
0x3ce0…3d22 at0004 = ╱92╱ PRINT ╱ // 0x3ce4 @0x4
0x3ce0…3d22 at0005 = ╱22╱"╱ // 0x3ce5 @0x5
0x3ce0…3d22 at0006 = ╱3c╱<╱ // 0x3ce6 @0x6
0x3ce0…3d22 at0007 = ╱53╱S╱ // 0x3ce7 @0x7
0x3ce0…3d22 at0008 = ╱3e╱>╱ // 0x3ce8 @0x8
0x3ce0…3d22 at0009 = ╱2d╱-╱ // 0x3ce9 @0x9
0x3ce0…3d22 at000a = ╱2d╱-╱ // 0x3cea @0xa
0x3ce0…3d22 at000b = ╱2d╱-╱ // 0x3ceb @0xb
0x3ce0…3d22 at000c = ╱2d╱-╱ // 0x3cec @0xc
0x3ce0…3d22 at000d = ╱2d╱-╱ // 0x3ced @0xd
0x3ce0…3d22 at000e = ╱20╱…╱ // 0x3cee @0xe
0x3ce0…3d22 at000f = ╱20╱…╱ // 0x3cef @0xf
0x3ce0…3d22 at0010 = ╱2d╱-╱ // 0x3cf0 @0x10
0x3ce0…3d22 at0011 = ╱2d╱-╱ // 0x3cf1 @0x11
0x3ce0…3d22 at0012 = ╱2d╱-╱ // 0x3cf2 @0x12
0x3ce0…3d22 at0013 = ╱2d╱-╱ // 0x3cf3 @0x13
0x3ce0…3d22 at0014 = ╱2d╱-╱ // 0x3cf4 @0x14
0x3ce0…3d22 at0015 = ╱2d╱-╱ // 0x3cf5 @0x15
0x3ce0…3d22 at0016 = ╱2d╱-╱ // 0x3cf6 @0x16
0x3ce0…3d22 at0017 = ╱2d╱-╱ // 0x3cf7 @0x17
0x3ce0…3d22 at0018 = ╱2d╱-╱ // 0x3cf8 @0x18
0x3ce0…3d22 at0019 = ╱2d╱-╱ // 0x3cf9 @0x19
0x3ce0…3d22 at001a = ╱2d╱-╱ // 0x3cfa @0x1a
0x3ce0…3d22 at001b = ╱2d╱-╱ // 0x3cfb @0x1b
0x3ce0…3d22 at001c = ╱2d╱-╱ // 0x3cfc @0x1c
0x3ce0…3d22 at001d = ╱2d╱-╱ // 0x3cfd @0x1d
0x3ce0…3d22 at001e = ╱2d╱-╱ // 0x3cfe @0x1e
0x3ce0…3d22 at001f = ╱2d╱-╱ // 0x3cff @0x1f
0x3ce0…3d22 at0020 = ╱2d╱-╱ // 0x3d00 @0x20
0x3ce0…3d22 at0021 = ╱2d╱-╱ // 0x3d01 @0x21
0x3ce0…3d22 at0022 = ╱2d╱-╱ // 0x3d02 @0x22
0x3ce0…3d22 at0023 = ╱2d╱-╱ // 0x3d03 @0x23
0x3ce0…3d22 at0024 = ╱2d╱-╱ // 0x3d04 @0x24
0x3ce0…3d22 at0025 = ╱2d╱-╱ // 0x3d05 @0x25
0x3ce0…3d22 at0026 = ╱2d╱-╱ // 0x3d06 @0x26
0x3ce0…3d22 at0027 = ╱2d╱-╱ // 0x3d07 @0x27
0x3ce0…3d22 at0028 = ╱20╱…╱ // 0x3d08 @0x28
0x3ce0…3d22 at0029 = ╱20╱…╱ // 0x3d09 @0x29
0x3ce0…3d22 at002a = ╱2d╱-╱ // 0x3d0a @0x2a
0x3ce0…3d22 at002b = ╱2d╱-╱ // 0x3d0b @0x2b
0x3ce0…3d22 at002c = ╱2d╱-╱ // 0x3d0c @0x2c
0x3ce0…3d22 at002d = ╱2d╱-╱ // 0x3d0d @0x2d
0x3ce0…3d22 at002e = ╱2d╱-╱ // 0x3d0e @0x2e
0x3ce0…3d22 at002f = ╱2d╱-╱ // 0x3d0f @0x2f
0x3ce0…3d22 at0030 = ╱2d╱-╱ // 0x3d10 @0x30
0x3ce0…3d22 at0031 = ╱2d╱-╱ // 0x3d11 @0x31
0x3ce0…3d22 at0032 = ╱20╱…╱ // 0x3d12 @0x32
0x3ce0…3d22 at0033 = ╱20╱…╱ // 0x3d13 @0x33
0x3ce0…3d22 at0034 = ╱2d╱-╱ // 0x3d14 @0x34
0x3ce0…3d22 at0035 = ╱2d╱-╱ // 0x3d15 @0x35
0x3ce0…3d22 at0036 = ╱2d╱-╱ // 0x3d16 @0x36
0x3ce0…3d22 at0037 = ╱2d╱-╱ // 0x3d17 @0x37
0x3ce0…3d22 at0038 = ╱2d╱-╱ // 0x3d18 @0x38
0x3ce0…3d22 at0039 = ╱2d╱-╱ // 0x3d19 @0x39
0x3ce0…3d22 at003a = ╱2d╱-╱ // 0x3d1a @0x3a
0x3ce0…3d22 at003b = ╱2d╱-╱ // 0x3d1b @0x3b
0x3ce0…3d22 at003c = ╱2d╱-╱ // 0x3d1c @0x3c
0x3ce0…3d22 at003d = ╱2d╱-╱ // 0x3d1d @0x3d
0x3ce0…3d22 at003e = ╱20╱…╱ // 0x3d1e @0x3e
0x3ce0…3d22 at003f = ╱20╱…╱ // 0x3d1f @0x3f
0x3ce0…3d22 at0040 = ╱22╱"╱ // 0x3d20 @0x40
0x3ce0…3d22 at0041 = EOL // 0x3d21 @0x41
0x3ce0…3d22 }
0x3d22…3d64 c861 5090 PRINT "<S>----- ------------------------ -------- ---------- "
0x3d22…3d64 LineComal80 {
0x3d22…3d64 ptr = 0xc861 // 0x3d22 @0x0
0x3d22…3d64 lno = 0x13e2 // 0x3d24 @0x2
0x3d22…3d64 at0004 = ╱92╱ PRINT ╱ // 0x3d26 @0x4
0x3d22…3d64 at0005 = ╱22╱"╱ // 0x3d27 @0x5
0x3d22…3d64 at0006 = ╱3c╱<╱ // 0x3d28 @0x6
0x3d22…3d64 at0007 = ╱53╱S╱ // 0x3d29 @0x7
0x3d22…3d64 at0008 = ╱3e╱>╱ // 0x3d2a @0x8
0x3d22…3d64 at0009 = ╱2d╱-╱ // 0x3d2b @0x9
0x3d22…3d64 at000a = ╱2d╱-╱ // 0x3d2c @0xa
0x3d22…3d64 at000b = ╱2d╱-╱ // 0x3d2d @0xb
0x3d22…3d64 at000c = ╱2d╱-╱ // 0x3d2e @0xc
0x3d22…3d64 at000d = ╱2d╱-╱ // 0x3d2f @0xd
0x3d22…3d64 at000e = ╱20╱…╱ // 0x3d30 @0xe
0x3d22…3d64 at000f = ╱20╱…╱ // 0x3d31 @0xf
0x3d22…3d64 at0010 = ╱2d╱-╱ // 0x3d32 @0x10
0x3d22…3d64 at0011 = ╱2d╱-╱ // 0x3d33 @0x11
0x3d22…3d64 at0012 = ╱2d╱-╱ // 0x3d34 @0x12
0x3d22…3d64 at0013 = ╱2d╱-╱ // 0x3d35 @0x13
0x3d22…3d64 at0014 = ╱2d╱-╱ // 0x3d36 @0x14
0x3d22…3d64 at0015 = ╱2d╱-╱ // 0x3d37 @0x15
0x3d22…3d64 at0016 = ╱2d╱-╱ // 0x3d38 @0x16
0x3d22…3d64 at0017 = ╱2d╱-╱ // 0x3d39 @0x17
0x3d22…3d64 at0018 = ╱2d╱-╱ // 0x3d3a @0x18
0x3d22…3d64 at0019 = ╱2d╱-╱ // 0x3d3b @0x19
0x3d22…3d64 at001a = ╱2d╱-╱ // 0x3d3c @0x1a
0x3d22…3d64 at001b = ╱2d╱-╱ // 0x3d3d @0x1b
0x3d22…3d64 at001c = ╱2d╱-╱ // 0x3d3e @0x1c
0x3d22…3d64 at001d = ╱2d╱-╱ // 0x3d3f @0x1d
0x3d22…3d64 at001e = ╱2d╱-╱ // 0x3d40 @0x1e
0x3d22…3d64 at001f = ╱2d╱-╱ // 0x3d41 @0x1f
0x3d22…3d64 at0020 = ╱2d╱-╱ // 0x3d42 @0x20
0x3d22…3d64 at0021 = ╱2d╱-╱ // 0x3d43 @0x21
0x3d22…3d64 at0022 = ╱2d╱-╱ // 0x3d44 @0x22
0x3d22…3d64 at0023 = ╱2d╱-╱ // 0x3d45 @0x23
0x3d22…3d64 at0024 = ╱2d╱-╱ // 0x3d46 @0x24
0x3d22…3d64 at0025 = ╱2d╱-╱ // 0x3d47 @0x25
0x3d22…3d64 at0026 = ╱2d╱-╱ // 0x3d48 @0x26
0x3d22…3d64 at0027 = ╱2d╱-╱ // 0x3d49 @0x27
0x3d22…3d64 at0028 = ╱20╱…╱ // 0x3d4a @0x28
0x3d22…3d64 at0029 = ╱20╱…╱ // 0x3d4b @0x29
0x3d22…3d64 at002a = ╱2d╱-╱ // 0x3d4c @0x2a
0x3d22…3d64 at002b = ╱2d╱-╱ // 0x3d4d @0x2b
0x3d22…3d64 at002c = ╱2d╱-╱ // 0x3d4e @0x2c
0x3d22…3d64 at002d = ╱2d╱-╱ // 0x3d4f @0x2d
0x3d22…3d64 at002e = ╱2d╱-╱ // 0x3d50 @0x2e
0x3d22…3d64 at002f = ╱2d╱-╱ // 0x3d51 @0x2f
0x3d22…3d64 at0030 = ╱2d╱-╱ // 0x3d52 @0x30
0x3d22…3d64 at0031 = ╱2d╱-╱ // 0x3d53 @0x31
0x3d22…3d64 at0032 = ╱20╱…╱ // 0x3d54 @0x32
0x3d22…3d64 at0033 = ╱20╱…╱ // 0x3d55 @0x33
0x3d22…3d64 at0034 = ╱2d╱-╱ // 0x3d56 @0x34
0x3d22…3d64 at0035 = ╱2d╱-╱ // 0x3d57 @0x35
0x3d22…3d64 at0036 = ╱2d╱-╱ // 0x3d58 @0x36
0x3d22…3d64 at0037 = ╱2d╱-╱ // 0x3d59 @0x37
0x3d22…3d64 at0038 = ╱2d╱-╱ // 0x3d5a @0x38
0x3d22…3d64 at0039 = ╱2d╱-╱ // 0x3d5b @0x39
0x3d22…3d64 at003a = ╱2d╱-╱ // 0x3d5c @0x3a
0x3d22…3d64 at003b = ╱2d╱-╱ // 0x3d5d @0x3b
0x3d22…3d64 at003c = ╱2d╱-╱ // 0x3d5e @0x3c
0x3d22…3d64 at003d = ╱2d╱-╱ // 0x3d5f @0x3d
0x3d22…3d64 at003e = ╱20╱…╱ // 0x3d60 @0x3e
0x3d22…3d64 at003f = ╱20╱…╱ // 0x3d61 @0x3f
0x3d22…3d64 at0040 = ╱22╱"╱ // 0x3d62 @0x40
0x3d22…3d64 at0041 = EOL // 0x3d63 @0x41
0x3d22…3d64 }
0x3d64…3d81 c1de 4500 EXEC PRINTRES("papir",12)
0x3d64…3d81 LineComal80 {
0x3d64…3d81 ptr = 0xc1de // 0x3d64 @0x0
0x3d64…3d81 lno = 0x1194 // 0x3d66 @0x2
0x3d64…3d81 at0004 = ╱9d╱ EXEC ╱ // 0x3d68 @0x4
0x3d64…3d81 at0005 = ╱50╱P╱ // 0x3d69 @0x5
0x3d64…3d81 at0006 = ╱52╱R╱ // 0x3d6a @0x6
0x3d64…3d81 at0007 = ╱49╱I╱ // 0x3d6b @0x7
0x3d64…3d81 at0008 = ╱4e╱N╱ // 0x3d6c @0x8
0x3d64…3d81 at0009 = ╱54╱T╱ // 0x3d6d @0x9
0x3d64…3d81 at000a = ╱52╱R╱ // 0x3d6e @0xa
0x3d64…3d81 at000b = ╱45╱E╱ // 0x3d6f @0xb
0x3d64…3d81 at000c = ╱53╱S╱ // 0x3d70 @0xc
0x3d64…3d81 at000d = ╱ed╱(╱ // 0x3d71 @0xd
0x3d64…3d81 at000e = ╱22╱"╱ // 0x3d72 @0xe
0x3d64…3d81 at000f = ╱70╱p╱ // 0x3d73 @0xf
0x3d64…3d81 at0010 = ╱61╱a╱ // 0x3d74 @0x10
0x3d64…3d81 at0011 = ╱70╱p╱ // 0x3d75 @0x11
0x3d64…3d81 at0012 = ╱69╱i╱ // 0x3d76 @0x12
0x3d64…3d81 at0013 = ╱72╱r╱ // 0x3d77 @0x13
0x3d64…3d81 at0014 = ╱22╱"╱ // 0x3d78 @0x14
0x3d64…3d81 at0015 = ╱ec╱,╱ // 0x3d79 @0x15
0x3d64…3d81 at0016 = ╱31╱1╱ // 0x3d7a @0x16
0x3d64…3d81 at0017 = ╱32╱2╱ // 0x3d7b @0x17
0x3d64…3d81 at0018 = ╱f20c00╱ // 0x3d7c @0x18
0x3d64…3d81 at001b = ╱ee╱)╱ // 0x3d7f @0x1b
0x3d64…3d81 at001c = EOL // 0x3d80 @0x1c
0x3d64…3d81 }
0x3d81…3da7 a6a5 1430 LET PROGRAM$ := PRGFL$ + ":SYSBP" + S_KODE$
0x3d81…3da7 LineComal80 {
0x3d81…3da7 ptr = 0xa6a5 // 0x3d81 @0x0
0x3d81…3da7 lno = 0x0596 // 0x3d83 @0x2
0x3d81…3da7 at0004 = ╱86╱ LET ╱ // 0x3d85 @0x4
0x3d81…3da7 at0005 = ╱50╱P╱ // 0x3d86 @0x5
0x3d81…3da7 at0006 = ╱52╱R╱ // 0x3d87 @0x6
0x3d81…3da7 at0007 = ╱4f╱O╱ // 0x3d88 @0x7
0x3d81…3da7 at0008 = ╱47╱G╱ // 0x3d89 @0x8
0x3d81…3da7 at0009 = ╱52╱R╱ // 0x3d8a @0x9
0x3d81…3da7 at000a = ╱41╱A╱ // 0x3d8b @0xa
0x3d81…3da7 at000b = ╱4d╱M╱ // 0x3d8c @0xb
0x3d81…3da7 at000c = ╱ef╱$╱ // 0x3d8d @0xc
0x3d81…3da7 at000d = ╱f0╱ := ╱ // 0x3d8e @0xd
0x3d81…3da7 at000e = ╱50╱P╱ // 0x3d8f @0xe
0x3d81…3da7 at000f = ╱52╱R╱ // 0x3d90 @0xf
0x3d81…3da7 at0010 = ╱47╱G╱ // 0x3d91 @0x10
0x3d81…3da7 at0011 = ╱46╱F╱ // 0x3d92 @0x11
0x3d81…3da7 at0012 = ╱4c╱L╱ // 0x3d93 @0x12
0x3d81…3da7 at0013 = ╱ef╱$╱ // 0x3d94 @0x13
0x3d81…3da7 at0014 = ╱eb╱ + ╱ // 0x3d95 @0x14
0x3d81…3da7 at0015 = ╱22╱"╱ // 0x3d96 @0x15
0x3d81…3da7 at0016 = ╱3a╱:╱ // 0x3d97 @0x16
0x3d81…3da7 at0017 = ╱53╱S╱ // 0x3d98 @0x17
0x3d81…3da7 at0018 = ╱59╱Y╱ // 0x3d99 @0x18
0x3d81…3da7 at0019 = ╱53╱S╱ // 0x3d9a @0x19
0x3d81…3da7 at001a = ╱42╱B╱ // 0x3d9b @0x1a
0x3d81…3da7 at001b = ╱50╱P╱ // 0x3d9c @0x1b
0x3d81…3da7 at001c = ╱22╱"╱ // 0x3d9d @0x1c
0x3d81…3da7 at001d = ╱eb╱ + ╱ // 0x3d9e @0x1d
0x3d81…3da7 at001e = ╱53╱S╱ // 0x3d9f @0x1e
0x3d81…3da7 at001f = ╱5f╱_╱ // 0x3da0 @0x1f
0x3d81…3da7 at0020 = ╱4b╱K╱ // 0x3da1 @0x20
0x3d81…3da7 at0021 = ╱4f╱O╱ // 0x3da2 @0x21
0x3d81…3da7 at0022 = ╱44╱D╱ // 0x3da3 @0x22
0x3d81…3da7 at0023 = ╱45╱E╱ // 0x3da4 @0x23
0x3d81…3da7 at0024 = ╱ef╱$╱ // 0x3da5 @0x24
0x3d81…3da7 at0025 = EOL // 0x3da6 @0x25
0x3d81…3da7 }
0x3da7…3dad d39b 5520 //
0x3da7…3dad LineComal80 {
0x3da7…3dad ptr = 0xd39b // 0x3da7 @0x0
0x3da7…3dad lno = 0x1590 // 0x3da9 @0x2
0x3da7…3dad at0004 = ╱89╱ // ╱ // 0x3dab @0x4
0x3da7…3dad at0005 = EOL // 0x3dac @0x5
0x3da7…3dad }
0x3dad…3de0 d3ce 5530 PROC PRINTRES(PAGETYPE$,LINE) // PRINTER RESERVATION
0x3dad…3de0 LineComal80 {
0x3dad…3de0 ptr = 0xd3ce // 0x3dad @0x0
0x3dad…3de0 lno = 0x159a // 0x3daf @0x2
0x3dad…3de0 at0004 = ╱9e6a╱ PROC ╱ // 0x3db1 @0x4
0x3dad…3de0 at0006 = ╱50╱P╱ // 0x3db3 @0x6
0x3dad…3de0 at0007 = ╱52╱R╱ // 0x3db4 @0x7
0x3dad…3de0 at0008 = ╱49╱I╱ // 0x3db5 @0x8
0x3dad…3de0 at0009 = ╱4e╱N╱ // 0x3db6 @0x9
0x3dad…3de0 at000a = ╱54╱T╱ // 0x3db7 @0xa
0x3dad…3de0 at000b = ╱52╱R╱ // 0x3db8 @0xb
0x3dad…3de0 at000c = ╱45╱E╱ // 0x3db9 @0xc
0x3dad…3de0 at000d = ╱53╱S╱ // 0x3dba @0xd
0x3dad…3de0 at000e = ╱ed╱(╱ // 0x3dbb @0xe
0x3dad…3de0 at000f = ╱50╱P╱ // 0x3dbc @0xf
0x3dad…3de0 at0010 = ╱41╱A╱ // 0x3dbd @0x10
0x3dad…3de0 at0011 = ╱47╱G╱ // 0x3dbe @0x11
0x3dad…3de0 at0012 = ╱45╱E╱ // 0x3dbf @0x12
0x3dad…3de0 at0013 = ╱54╱T╱ // 0x3dc0 @0x13
0x3dad…3de0 at0014 = ╱59╱Y╱ // 0x3dc1 @0x14
0x3dad…3de0 at0015 = ╱50╱P╱ // 0x3dc2 @0x15
0x3dad…3de0 at0016 = ╱45╱E╱ // 0x3dc3 @0x16
0x3dad…3de0 at0017 = ╱ef╱$╱ // 0x3dc4 @0x17
0x3dad…3de0 at0018 = ╱ec╱,╱ // 0x3dc5 @0x18
0x3dad…3de0 at0019 = ╱4c╱L╱ // 0x3dc6 @0x19
0x3dad…3de0 at001a = ╱49╱I╱ // 0x3dc7 @0x1a
0x3dad…3de0 at001b = ╱4e╱N╱ // 0x3dc8 @0x1b
0x3dad…3de0 at001c = ╱45╱E╱ // 0x3dc9 @0x1c
0x3dad…3de0 at001d = ╱ee╱)╱ // 0x3dca @0x1d
0x3dad…3de0 at001e = ╱89╱ // ╱ // 0x3dcb @0x1e
0x3dad…3de0 at001f = ╱50╱P╱ // 0x3dcc @0x1f
0x3dad…3de0 at0020 = ╱52╱R╱ // 0x3dcd @0x20
0x3dad…3de0 at0021 = ╱49╱I╱ // 0x3dce @0x21
0x3dad…3de0 at0022 = ╱4e╱N╱ // 0x3dcf @0x22
0x3dad…3de0 at0023 = ╱54╱T╱ // 0x3dd0 @0x23
0x3dad…3de0 at0024 = ╱45╱E╱ // 0x3dd1 @0x24
0x3dad…3de0 at0025 = ╱52╱R╱ // 0x3dd2 @0x25
0x3dad…3de0 at0026 = ╱20╱…╱ // 0x3dd3 @0x26
0x3dad…3de0 at0027 = ╱52╱R╱ // 0x3dd4 @0x27
0x3dad…3de0 at0028 = ╱45╱E╱ // 0x3dd5 @0x28
0x3dad…3de0 at0029 = ╱53╱S╱ // 0x3dd6 @0x29
0x3dad…3de0 at002a = ╱45╱E╱ // 0x3dd7 @0x2a
0x3dad…3de0 at002b = ╱52╱R╱ // 0x3dd8 @0x2b
0x3dad…3de0 at002c = ╱56╱V╱ // 0x3dd9 @0x2c
0x3dad…3de0 at002d = ╱41╱A╱ // 0x3dda @0x2d
0x3dad…3de0 at002e = ╱54╱T╱ // 0x3ddb @0x2e
0x3dad…3de0 at002f = ╱49╱I╱ // 0x3ddc @0x2f
0x3dad…3de0 at0030 = ╱4f╱O╱ // 0x3ddd @0x30
0x3dad…3de0 at0031 = ╱4e╱N╱ // 0x3dde @0x31
0x3dad…3de0 at0032 = EOL // 0x3ddf @0x32
0x3dad…3de0 }
0x3de0…3df8 d3e6 5540 LET PRTNR$ := "1" ; OK := TRUE
0x3de0…3df8 LineComal80 {
0x3de0…3df8 ptr = 0xd3e6 // 0x3de0 @0x0
0x3de0…3df8 lno = 0x15a4 // 0x3de2 @0x2
0x3de0…3df8 at0004 = ╱86╱ LET ╱ // 0x3de4 @0x4
0x3de0…3df8 at0005 = ╱50╱P╱ // 0x3de5 @0x5
0x3de0…3df8 at0006 = ╱52╱R╱ // 0x3de6 @0x6
0x3de0…3df8 at0007 = ╱54╱T╱ // 0x3de7 @0x7
0x3de0…3df8 at0008 = ╱4e╱N╱ // 0x3de8 @0x8
0x3de0…3df8 at0009 = ╱52╱R╱ // 0x3de9 @0x9
0x3de0…3df8 at000a = ╱ef╱$╱ // 0x3dea @0xa
0x3de0…3df8 at000b = ╱f0╱ := ╱ // 0x3deb @0xb
0x3de0…3df8 at000c = ╱22╱"╱ // 0x3dec @0xc
0x3de0…3df8 at000d = ╱31╱1╱ // 0x3ded @0xd
0x3de0…3df8 at000e = ╱22╱"╱ // 0x3dee @0xe
0x3de0…3df8 at000f = ╱ea╱ ; ╱ // 0x3def @0xf
0x3de0…3df8 at0010 = ╱4f╱O╱ // 0x3df0 @0x10
0x3de0…3df8 at0011 = ╱4b╱K╱ // 0x3df1 @0x11
0x3de0…3df8 at0012 = ╱f0╱ := ╱ // 0x3df2 @0x12
0x3de0…3df8 at0013 = ╱54╱T╱ // 0x3df3 @0x13
0x3de0…3df8 at0014 = ╱52╱R╱ // 0x3df4 @0x14
0x3de0…3df8 at0015 = ╱55╱U╱ // 0x3df5 @0x15
0x3de0…3df8 at0016 = ╱45╱E╱ // 0x3df6 @0x16
0x3de0…3df8 at0017 = EOL // 0x3df7 @0x17
0x3de0…3df8 }
0x3df8…3dff d3ed 5550 REPEAT
0x3df8…3dff LineComal80 {
0x3df8…3dff ptr = 0xd3ed // 0x3df8 @0x0
0x3df8…3dff lno = 0x15ae // 0x3dfa @0x2
0x3df8…3dff at0004 = ╱976b╱ REPEAT ╱ // 0x3dfc @0x4
0x3df8…3dff at0006 = EOL // 0x3dfe @0x6
0x3df8…3dff }
0x3dff…3e0f d3fd 5560 CURSOR 15,LINE
0x3dff…3e0f LineComal80 {
0x3dff…3e0f ptr = 0xd3fd // 0x3dff @0x0
0x3dff…3e0f lno = 0x15b8 // 0x3e01 @0x2
0x3dff…3e0f at0004 = ╱a1╱ CURSOR ╱ // 0x3e03 @0x4
0x3dff…3e0f at0005 = ╱31╱1╱ // 0x3e04 @0x5
0x3dff…3e0f at0006 = ╱35╱5╱ // 0x3e05 @0x6
0x3dff…3e0f at0007 = ╱f20f00╱ // 0x3e06 @0x7
0x3dff…3e0f at000a = ╱ec╱,╱ // 0x3e09 @0xa
0x3dff…3e0f at000b = ╱4c╱L╱ // 0x3e0a @0xb
0x3dff…3e0f at000c = ╱49╱I╱ // 0x3e0b @0xc
0x3dff…3e0f at000d = ╱4e╱N╱ // 0x3e0c @0xd
0x3dff…3e0f at000e = ╱45╱E╱ // 0x3e0d @0xe
0x3dff…3e0f at000f = EOL // 0x3e0e @0xf
0x3dff…3e0f }
0x3e0f…3e48 d436 5570 EDIT "<Z>Udskrivning på printer nr. ? (1/2/3/4) " : PRTNR$
0x3e0f…3e48 LineComal80 {
0x3e0f…3e48 ptr = 0xd436 // 0x3e0f @0x0
0x3e0f…3e48 lno = 0x15c2 // 0x3e11 @0x2
0x3e0f…3e48 at0004 = ╱b1╱ EDIT ╱ // 0x3e13 @0x4
0x3e0f…3e48 at0005 = ╱22╱"╱ // 0x3e14 @0x5
0x3e0f…3e48 at0006 = ╱3c╱<╱ // 0x3e15 @0x6
0x3e0f…3e48 at0007 = ╱5a╱Z╱ // 0x3e16 @0x7
0x3e0f…3e48 at0008 = ╱3e╱>╱ // 0x3e17 @0x8
0x3e0f…3e48 at0009 = ╱55╱U╱ // 0x3e18 @0x9
0x3e0f…3e48 at000a = ╱64╱d╱ // 0x3e19 @0xa
0x3e0f…3e48 at000b = ╱73╱s╱ // 0x3e1a @0xb
0x3e0f…3e48 at000c = ╱6b╱k╱ // 0x3e1b @0xc
0x3e0f…3e48 at000d = ╱72╱r╱ // 0x3e1c @0xd
0x3e0f…3e48 at000e = ╱69╱i╱ // 0x3e1d @0xe
0x3e0f…3e48 at000f = ╱76╱v╱ // 0x3e1e @0xf
0x3e0f…3e48 at0010 = ╱6e╱n╱ // 0x3e1f @0x10
0x3e0f…3e48 at0011 = ╱69╱i╱ // 0x3e20 @0x11
0x3e0f…3e48 at0012 = ╱6e╱n╱ // 0x3e21 @0x12
0x3e0f…3e48 at0013 = ╱67╱g╱ // 0x3e22 @0x13
0x3e0f…3e48 at0014 = ╱20╱…╱ // 0x3e23 @0x14
0x3e0f…3e48 at0015 = ╱70╱p╱ // 0x3e24 @0x15
0x3e0f…3e48 at0016 = ╱7d╱å╱ // 0x3e25 @0x16
0x3e0f…3e48 at0017 = ╱20╱…╱ // 0x3e26 @0x17
0x3e0f…3e48 at0018 = ╱70╱p╱ // 0x3e27 @0x18
0x3e0f…3e48 at0019 = ╱72╱r╱ // 0x3e28 @0x19
0x3e0f…3e48 at001a = ╱69╱i╱ // 0x3e29 @0x1a
0x3e0f…3e48 at001b = ╱6e╱n╱ // 0x3e2a @0x1b
0x3e0f…3e48 at001c = ╱74╱t╱ // 0x3e2b @0x1c
0x3e0f…3e48 at001d = ╱65╱e╱ // 0x3e2c @0x1d
0x3e0f…3e48 at001e = ╱72╱r╱ // 0x3e2d @0x1e
0x3e0f…3e48 at001f = ╱20╱…╱ // 0x3e2e @0x1f
0x3e0f…3e48 at0020 = ╱6e╱n╱ // 0x3e2f @0x20
0x3e0f…3e48 at0021 = ╱72╱r╱ // 0x3e30 @0x21
0x3e0f…3e48 at0022 = ╱2e╱.╱ // 0x3e31 @0x22
0x3e0f…3e48 at0023 = ╱20╱…╱ // 0x3e32 @0x23
0x3e0f…3e48 at0024 = ╱3f╱?╱ // 0x3e33 @0x24
0x3e0f…3e48 at0025 = ╱20╱…╱ // 0x3e34 @0x25
0x3e0f…3e48 at0026 = ╱28╱(╱ // 0x3e35 @0x26
0x3e0f…3e48 at0027 = ╱31╱1╱ // 0x3e36 @0x27
0x3e0f…3e48 at0028 = ╱2f╱/╱ // 0x3e37 @0x28
0x3e0f…3e48 at0029 = ╱32╱2╱ // 0x3e38 @0x29
0x3e0f…3e48 at002a = ╱2f╱/╱ // 0x3e39 @0x2a
0x3e0f…3e48 at002b = ╱33╱3╱ // 0x3e3a @0x2b
0x3e0f…3e48 at002c = ╱2f╱/╱ // 0x3e3b @0x2c
0x3e0f…3e48 at002d = ╱34╱4╱ // 0x3e3c @0x2d
0x3e0f…3e48 at002e = ╱29╱)╱ // 0x3e3d @0x2e
0x3e0f…3e48 at002f = ╱20╱…╱ // 0x3e3e @0x2f
0x3e0f…3e48 at0030 = ╱22╱"╱ // 0x3e3f @0x30
0x3e0f…3e48 at0031 = ╱f1╱ : ╱ // 0x3e40 @0x31
0x3e0f…3e48 at0032 = ╱50╱P╱ // 0x3e41 @0x32
0x3e0f…3e48 at0033 = ╱52╱R╱ // 0x3e42 @0x33
0x3e0f…3e48 at0034 = ╱54╱T╱ // 0x3e43 @0x34
0x3e0f…3e48 at0035 = ╱4e╱N╱ // 0x3e44 @0x35
0x3e0f…3e48 at0036 = ╱52╱R╱ // 0x3e45 @0x36
0x3e0f…3e48 at0037 = ╱ef╱$╱ // 0x3e46 @0x37
0x3e0f…3e48 at0038 = EOL // 0x3e47 @0x38
0x3e0f…3e48 }
0x3e48…3e68 d456 5580 UNTIL "/" + PRTNR$ + "/" IN "/1/2/3/4/"
0x3e48…3e68 LineComal80 {
0x3e48…3e68 ptr = 0xd456 // 0x3e48 @0x0
0x3e48…3e68 lno = 0x15cc // 0x3e4a @0x2
0x3e48…3e68 at0004 = ╱98╱ UNTIL ╱ // 0x3e4c @0x4
0x3e48…3e68 at0005 = ╱22╱"╱ // 0x3e4d @0x5
0x3e48…3e68 at0006 = ╱2f╱/╱ // 0x3e4e @0x6
0x3e48…3e68 at0007 = ╱22╱"╱ // 0x3e4f @0x7
0x3e48…3e68 at0008 = ╱eb╱ + ╱ // 0x3e50 @0x8
0x3e48…3e68 at0009 = ╱50╱P╱ // 0x3e51 @0x9
0x3e48…3e68 at000a = ╱52╱R╱ // 0x3e52 @0xa
0x3e48…3e68 at000b = ╱54╱T╱ // 0x3e53 @0xb
0x3e48…3e68 at000c = ╱4e╱N╱ // 0x3e54 @0xc
0x3e48…3e68 at000d = ╱52╱R╱ // 0x3e55 @0xd
0x3e48…3e68 at000e = ╱ef╱$╱ // 0x3e56 @0xe
0x3e48…3e68 at000f = ╱eb╱ + ╱ // 0x3e57 @0xf
0x3e48…3e68 at0010 = ╱22╱"╱ // 0x3e58 @0x10
0x3e48…3e68 at0011 = ╱2f╱/╱ // 0x3e59 @0x11
0x3e48…3e68 at0012 = ╱22╱"╱ // 0x3e5a @0x12
0x3e48…3e68 at0013 = ╱dc╱ IN ╱ // 0x3e5b @0x13
0x3e48…3e68 at0014 = ╱22╱"╱ // 0x3e5c @0x14
0x3e48…3e68 at0015 = ╱2f╱/╱ // 0x3e5d @0x15
0x3e48…3e68 at0016 = ╱31╱1╱ // 0x3e5e @0x16
0x3e48…3e68 at0017 = ╱2f╱/╱ // 0x3e5f @0x17
0x3e48…3e68 at0018 = ╱32╱2╱ // 0x3e60 @0x18
0x3e48…3e68 at0019 = ╱2f╱/╱ // 0x3e61 @0x19
0x3e48…3e68 at001a = ╱33╱3╱ // 0x3e62 @0x1a
0x3e48…3e68 at001b = ╱2f╱/╱ // 0x3e63 @0x1b
0x3e48…3e68 at001c = ╱34╱4╱ // 0x3e64 @0x1c
0x3e48…3e68 at001d = ╱2f╱/╱ // 0x3e65 @0x1d
0x3e48…3e68 at001e = ╱22╱"╱ // 0x3e66 @0x1e
0x3e48…3e68 at001f = EOL // 0x3e67 @0x1f
0x3e48…3e68 }
0x3e68…3e77 d465 5590 CURSOR 1,LINE
0x3e68…3e77 LineComal80 {
0x3e68…3e77 ptr = 0xd465 // 0x3e68 @0x0
0x3e68…3e77 lno = 0x15d6 // 0x3e6a @0x2
0x3e68…3e77 at0004 = ╱a1╱ CURSOR ╱ // 0x3e6c @0x4
0x3e68…3e77 at0005 = ╱31╱1╱ // 0x3e6d @0x5
0x3e68…3e77 at0006 = ╱f20100╱ // 0x3e6e @0x6
0x3e68…3e77 at0009 = ╱ec╱,╱ // 0x3e71 @0x9
0x3e68…3e77 at000a = ╱4c╱L╱ // 0x3e72 @0xa
0x3e68…3e77 at000b = ╱49╱I╱ // 0x3e73 @0xb
0x3e68…3e77 at000c = ╱4e╱N╱ // 0x3e74 @0xc
0x3e68…3e77 at000d = ╱45╱E╱ // 0x3e75 @0xd
0x3e68…3e77 at000e = EOL // 0x3e76 @0xe
0x3e68…3e77 }
0x3e77…3e82 d470 5600 PRINT "<Z>"
0x3e77…3e82 LineComal80 {
0x3e77…3e82 ptr = 0xd470 // 0x3e77 @0x0
0x3e77…3e82 lno = 0x15e0 // 0x3e79 @0x2
0x3e77…3e82 at0004 = ╱92╱ PRINT ╱ // 0x3e7b @0x4
0x3e77…3e82 at0005 = ╱22╱"╱ // 0x3e7c @0x5
0x3e77…3e82 at0006 = ╱3c╱<╱ // 0x3e7d @0x6
0x3e77…3e82 at0007 = ╱5a╱Z╱ // 0x3e7e @0x7
0x3e77…3e82 at0008 = ╱3e╱>╱ // 0x3e7f @0x8
0x3e77…3e82 at0009 = ╱22╱"╱ // 0x3e80 @0x9
0x3e77…3e82 at000a = EOL // 0x3e81 @0xa
0x3e77…3e82 }
0x3e82…3ea6 d494 5610 CURSOR (39 - ╱cb╱ (PAGETYPE$)) DIV 2,LINE
0x3e82…3ea6 LineComal80 {
0x3e82…3ea6 ptr = 0xd494 // 0x3e82 @0x0
0x3e82…3ea6 lno = 0x15ea // 0x3e84 @0x2
0x3e82…3ea6 at0004 = ╱a1╱ CURSOR ╱ // 0x3e86 @0x4
0x3e82…3ea6 at0005 = ╱ed╱(╱ // 0x3e87 @0x5
0x3e82…3ea6 at0006 = ╱33╱3╱ // 0x3e88 @0x6
0x3e82…3ea6 at0007 = ╱39╱9╱ // 0x3e89 @0x7
0x3e82…3ea6 at0008 = ╱f22700╱ // 0x3e8a @0x8
0x3e82…3ea6 at000b = ╱e6╱ - ╱ // 0x3e8d @0xb
0x3e82…3ea6 at000c = ╱cb╱ // 0x3e8e @0xc
0x3e82…3ea6 at000d = ╱ed╱(╱ // 0x3e8f @0xd
0x3e82…3ea6 at000e = ╱50╱P╱ // 0x3e90 @0xe
0x3e82…3ea6 at000f = ╱41╱A╱ // 0x3e91 @0xf
0x3e82…3ea6 at0010 = ╱47╱G╱ // 0x3e92 @0x10
0x3e82…3ea6 at0011 = ╱45╱E╱ // 0x3e93 @0x11
0x3e82…3ea6 at0012 = ╱54╱T╱ // 0x3e94 @0x12
0x3e82…3ea6 at0013 = ╱59╱Y╱ // 0x3e95 @0x13
0x3e82…3ea6 at0014 = ╱50╱P╱ // 0x3e96 @0x14
0x3e82…3ea6 at0015 = ╱45╱E╱ // 0x3e97 @0x15
0x3e82…3ea6 at0016 = ╱ef╱$╱ // 0x3e98 @0x16
0x3e82…3ea6 at0017 = ╱ee╱)╱ // 0x3e99 @0x17
0x3e82…3ea6 at0018 = ╱ee╱)╱ // 0x3e9a @0x18
0x3e82…3ea6 at0019 = ╱da╱ DIV ╱ // 0x3e9b @0x19
0x3e82…3ea6 at001a = ╱32╱2╱ // 0x3e9c @0x1a
0x3e82…3ea6 at001b = ╱f20200╱ // 0x3e9d @0x1b
0x3e82…3ea6 at001e = ╱ec╱,╱ // 0x3ea0 @0x1e
0x3e82…3ea6 at001f = ╱4c╱L╱ // 0x3ea1 @0x1f
0x3e82…3ea6 at0020 = ╱49╱I╱ // 0x3ea2 @0x20
0x3e82…3ea6 at0021 = ╱4e╱N╱ // 0x3ea3 @0x21
0x3e82…3ea6 at0022 = ╱45╱E╱ // 0x3ea4 @0x22
0x3e82…3ea6 at0023 = EOL // 0x3ea5 @0x23
0x3e82…3ea6 }
0x3ea6…3ee6 d4d4 5620 PRINT "<SZ> Monter " ; PAGETYPE$ ; " i printeren - tryk RETURN "
0x3ea6…3ee6 LineComal80 {
0x3ea6…3ee6 ptr = 0xd4d4 // 0x3ea6 @0x0
0x3ea6…3ee6 lno = 0x15f4 // 0x3ea8 @0x2
0x3ea6…3ee6 at0004 = ╱92╱ PRINT ╱ // 0x3eaa @0x4
0x3ea6…3ee6 at0005 = ╱22╱"╱ // 0x3eab @0x5
0x3ea6…3ee6 at0006 = ╱3c╱<╱ // 0x3eac @0x6
0x3ea6…3ee6 at0007 = ╱53╱S╱ // 0x3ead @0x7
0x3ea6…3ee6 at0008 = ╱5a╱Z╱ // 0x3eae @0x8
0x3ea6…3ee6 at0009 = ╱3e╱>╱ // 0x3eaf @0x9
0x3ea6…3ee6 at000a = ╱20╱…╱ // 0x3eb0 @0xa
0x3ea6…3ee6 at000b = ╱20╱…╱ // 0x3eb1 @0xb
0x3ea6…3ee6 at000c = ╱20╱…╱ // 0x3eb2 @0xc
0x3ea6…3ee6 at000d = ╱20╱…╱ // 0x3eb3 @0xd
0x3ea6…3ee6 at000e = ╱20╱…╱ // 0x3eb4 @0xe
0x3ea6…3ee6 at000f = ╱4d╱M╱ // 0x3eb5 @0xf
0x3ea6…3ee6 at0010 = ╱6f╱o╱ // 0x3eb6 @0x10
0x3ea6…3ee6 at0011 = ╱6e╱n╱ // 0x3eb7 @0x11
0x3ea6…3ee6 at0012 = ╱74╱t╱ // 0x3eb8 @0x12
0x3ea6…3ee6 at0013 = ╱65╱e╱ // 0x3eb9 @0x13
0x3ea6…3ee6 at0014 = ╱72╱r╱ // 0x3eba @0x14
0x3ea6…3ee6 at0015 = ╱20╱…╱ // 0x3ebb @0x15
0x3ea6…3ee6 at0016 = ╱22╱"╱ // 0x3ebc @0x16
0x3ea6…3ee6 at0017 = ╱ea╱ ; ╱ // 0x3ebd @0x17
0x3ea6…3ee6 at0018 = ╱50╱P╱ // 0x3ebe @0x18
0x3ea6…3ee6 at0019 = ╱41╱A╱ // 0x3ebf @0x19
0x3ea6…3ee6 at001a = ╱47╱G╱ // 0x3ec0 @0x1a
0x3ea6…3ee6 at001b = ╱45╱E╱ // 0x3ec1 @0x1b
0x3ea6…3ee6 at001c = ╱54╱T╱ // 0x3ec2 @0x1c
0x3ea6…3ee6 at001d = ╱59╱Y╱ // 0x3ec3 @0x1d
0x3ea6…3ee6 at001e = ╱50╱P╱ // 0x3ec4 @0x1e
0x3ea6…3ee6 at001f = ╱45╱E╱ // 0x3ec5 @0x1f
0x3ea6…3ee6 at0020 = ╱ef╱$╱ // 0x3ec6 @0x20
0x3ea6…3ee6 at0021 = ╱ea╱ ; ╱ // 0x3ec7 @0x21
0x3ea6…3ee6 at0022 = ╱22╱"╱ // 0x3ec8 @0x22
0x3ea6…3ee6 at0023 = ╱20╱…╱ // 0x3ec9 @0x23
0x3ea6…3ee6 at0024 = ╱69╱i╱ // 0x3eca @0x24
0x3ea6…3ee6 at0025 = ╱20╱…╱ // 0x3ecb @0x25
0x3ea6…3ee6 at0026 = ╱70╱p╱ // 0x3ecc @0x26
0x3ea6…3ee6 at0027 = ╱72╱r╱ // 0x3ecd @0x27
0x3ea6…3ee6 at0028 = ╱69╱i╱ // 0x3ece @0x28
0x3ea6…3ee6 at0029 = ╱6e╱n╱ // 0x3ecf @0x29
0x3ea6…3ee6 at002a = ╱74╱t╱ // 0x3ed0 @0x2a
0x3ea6…3ee6 at002b = ╱65╱e╱ // 0x3ed1 @0x2b
0x3ea6…3ee6 at002c = ╱72╱r╱ // 0x3ed2 @0x2c
0x3ea6…3ee6 at002d = ╱65╱e╱ // 0x3ed3 @0x2d
0x3ea6…3ee6 at002e = ╱6e╱n╱ // 0x3ed4 @0x2e
0x3ea6…3ee6 at002f = ╱20╱…╱ // 0x3ed5 @0x2f
0x3ea6…3ee6 at0030 = ╱2d╱-╱ // 0x3ed6 @0x30
0x3ea6…3ee6 at0031 = ╱20╱…╱ // 0x3ed7 @0x31
0x3ea6…3ee6 at0032 = ╱74╱t╱ // 0x3ed8 @0x32
0x3ea6…3ee6 at0033 = ╱72╱r╱ // 0x3ed9 @0x33
0x3ea6…3ee6 at0034 = ╱79╱y╱ // 0x3eda @0x34
0x3ea6…3ee6 at0035 = ╱6b╱k╱ // 0x3edb @0x35
0x3ea6…3ee6 at0036 = ╱20╱…╱ // 0x3edc @0x36
0x3ea6…3ee6 at0037 = ╱52╱R╱ // 0x3edd @0x37
0x3ea6…3ee6 at0038 = ╱45╱E╱ // 0x3ede @0x38
0x3ea6…3ee6 at0039 = ╱54╱T╱ // 0x3edf @0x39
0x3ea6…3ee6 at003a = ╱55╱U╱ // 0x3ee0 @0x3a
0x3ea6…3ee6 at003b = ╱52╱R╱ // 0x3ee1 @0x3b
0x3ea6…3ee6 at003c = ╱4e╱N╱ // 0x3ee2 @0x3c
0x3ea6…3ee6 at003d = ╱20╱…╱ // 0x3ee3 @0x3d
0x3ea6…3ee6 at003e = ╱22╱"╱ // 0x3ee4 @0x3e
0x3ea6…3ee6 at003f = EOL // 0x3ee5 @0x3f
0x3ea6…3ee6 }
0x3ee6…3ef4 d4e2 5630 INPUT "" : SVAR$
0x3ee6…3ef4 LineComal80 {
0x3ee6…3ef4 ptr = 0xd4e2 // 0x3ee6 @0x0
0x3ee6…3ef4 lno = 0x15fe // 0x3ee8 @0x2
0x3ee6…3ef4 at0004 = ╱91╱ INPUT ╱ // 0x3eea @0x4
0x3ee6…3ef4 at0005 = ╱22╱"╱ // 0x3eeb @0x5
0x3ee6…3ef4 at0006 = ╱22╱"╱ // 0x3eec @0x6
0x3ee6…3ef4 at0007 = ╱f1╱ : ╱ // 0x3eed @0x7
0x3ee6…3ef4 at0008 = ╱53╱S╱ // 0x3eee @0x8
0x3ee6…3ef4 at0009 = ╱56╱V╱ // 0x3eef @0x9
0x3ee6…3ef4 at000a = ╱41╱A╱ // 0x3ef0 @0xa
0x3ee6…3ef4 at000b = ╱52╱R╱ // 0x3ef1 @0xb
0x3ee6…3ef4 at000c = ╱ef╱$╱ // 0x3ef2 @0xc
0x3ee6…3ef4 at000d = EOL // 0x3ef3 @0xd
0x3ee6…3ef4 }
0x3ef4…3f04 d4f2 5640 SELECT OUTPUT "P" + PRTNR$
0x3ef4…3f04 LineComal80 {
0x3ef4…3f04 ptr = 0xd4f2 // 0x3ef4 @0x0
0x3ef4…3f04 lno = 0x1608 // 0x3ef6 @0x2
0x3ef4…3f04 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x3ef8 @0x4
0x3ef4…3f04 at0005 = ╱22╱"╱ // 0x3ef9 @0x5
0x3ef4…3f04 at0006 = ╱50╱P╱ // 0x3efa @0x6
0x3ef4…3f04 at0007 = ╱22╱"╱ // 0x3efb @0x7
0x3ef4…3f04 at0008 = ╱eb╱ + ╱ // 0x3efc @0x8
0x3ef4…3f04 at0009 = ╱50╱P╱ // 0x3efd @0x9
0x3ef4…3f04 at000a = ╱52╱R╱ // 0x3efe @0xa
0x3ef4…3f04 at000b = ╱54╱T╱ // 0x3eff @0xb
0x3ef4…3f04 at000c = ╱4e╱N╱ // 0x3f00 @0xc
0x3ef4…3f04 at000d = ╱52╱R╱ // 0x3f01 @0xd
0x3ef4…3f04 at000e = ╱ef╱$╱ // 0x3f02 @0xe
0x3ef4…3f04 at000f = EOL // 0x3f03 @0xf
0x3ef4…3f04 }
0x3f04…3f12 d500 5650 IF ("P") THEN
0x3f04…3f12 LineComal80 {
0x3f04…3f12 ptr = 0xd500 // 0x3f04 @0x0
0x3f04…3f12 lno = 0x1612 // 0x3f06 @0x2
0x3f04…3f12 at0004 = ╱9b6ccd╱ IF ╱ // 0x3f08 @0x4
0x3f04…3f12 at0007 = ╱ed╱(╱ // 0x3f0b @0x7
0x3f04…3f12 at0008 = ╱22╱"╱ // 0x3f0c @0x8
0x3f04…3f12 at0009 = ╱50╱P╱ // 0x3f0d @0x9
0x3f04…3f12 at000a = ╱22╱"╱ // 0x3f0e @0xa
0x3f04…3f12 at000b = ╱ee╱)╱ // 0x3f0f @0xb
0x3f04…3f12 at000c = ╱b5╱ THEN ╱ // 0x3f10 @0xc
0x3f04…3f12 at000d = EOL // 0x3f11 @0xd
0x3f04…3f12 }
0x3f12…3f22 d510 5660 CURSOR 12,LINE
0x3f12…3f22 LineComal80 {
0x3f12…3f22 ptr = 0xd510 // 0x3f12 @0x0
0x3f12…3f22 lno = 0x161c // 0x3f14 @0x2
0x3f12…3f22 at0004 = ╱a1╱ CURSOR ╱ // 0x3f16 @0x4
0x3f12…3f22 at0005 = ╱31╱1╱ // 0x3f17 @0x5
0x3f12…3f22 at0006 = ╱32╱2╱ // 0x3f18 @0x6
0x3f12…3f22 at0007 = ╱f20c00╱ // 0x3f19 @0x7
0x3f12…3f22 at000a = ╱ec╱,╱ // 0x3f1c @0xa
0x3f12…3f22 at000b = ╱4c╱L╱ // 0x3f1d @0xb
0x3f12…3f22 at000c = ╱49╱I╱ // 0x3f1e @0xc
0x3f12…3f22 at000d = ╱4e╱N╱ // 0x3f1f @0xd
0x3f12…3f22 at000e = ╱45╱E╱ // 0x3f20 @0xe
0x3f12…3f22 at000f = EOL // 0x3f21 @0xf
0x3f12…3f22 }
0x3f22…3f59 d547 5670 PRINT "<SZ>Printeren er reserveret af en anden bruger,"
0x3f22…3f59 LineComal80 {
0x3f22…3f59 ptr = 0xd547 // 0x3f22 @0x0
0x3f22…3f59 lno = 0x1626 // 0x3f24 @0x2
0x3f22…3f59 at0004 = ╱92╱ PRINT ╱ // 0x3f26 @0x4
0x3f22…3f59 at0005 = ╱22╱"╱ // 0x3f27 @0x5
0x3f22…3f59 at0006 = ╱3c╱<╱ // 0x3f28 @0x6
0x3f22…3f59 at0007 = ╱53╱S╱ // 0x3f29 @0x7
0x3f22…3f59 at0008 = ╱5a╱Z╱ // 0x3f2a @0x8
0x3f22…3f59 at0009 = ╱3e╱>╱ // 0x3f2b @0x9
0x3f22…3f59 at000a = ╱50╱P╱ // 0x3f2c @0xa
0x3f22…3f59 at000b = ╱72╱r╱ // 0x3f2d @0xb
0x3f22…3f59 at000c = ╱69╱i╱ // 0x3f2e @0xc
0x3f22…3f59 at000d = ╱6e╱n╱ // 0x3f2f @0xd
0x3f22…3f59 at000e = ╱74╱t╱ // 0x3f30 @0xe
0x3f22…3f59 at000f = ╱65╱e╱ // 0x3f31 @0xf
0x3f22…3f59 at0010 = ╱72╱r╱ // 0x3f32 @0x10
0x3f22…3f59 at0011 = ╱65╱e╱ // 0x3f33 @0x11
0x3f22…3f59 at0012 = ╱6e╱n╱ // 0x3f34 @0x12
0x3f22…3f59 at0013 = ╱20╱…╱ // 0x3f35 @0x13
0x3f22…3f59 at0014 = ╱65╱e╱ // 0x3f36 @0x14
0x3f22…3f59 at0015 = ╱72╱r╱ // 0x3f37 @0x15
0x3f22…3f59 at0016 = ╱20╱…╱ // 0x3f38 @0x16
0x3f22…3f59 at0017 = ╱72╱r╱ // 0x3f39 @0x17
0x3f22…3f59 at0018 = ╱65╱e╱ // 0x3f3a @0x18
0x3f22…3f59 at0019 = ╱73╱s╱ // 0x3f3b @0x19
0x3f22…3f59 at001a = ╱65╱e╱ // 0x3f3c @0x1a
0x3f22…3f59 at001b = ╱72╱r╱ // 0x3f3d @0x1b
0x3f22…3f59 at001c = ╱76╱v╱ // 0x3f3e @0x1c
0x3f22…3f59 at001d = ╱65╱e╱ // 0x3f3f @0x1d
0x3f22…3f59 at001e = ╱72╱r╱ // 0x3f40 @0x1e
0x3f22…3f59 at001f = ╱65╱e╱ // 0x3f41 @0x1f
0x3f22…3f59 at0020 = ╱74╱t╱ // 0x3f42 @0x20
0x3f22…3f59 at0021 = ╱20╱…╱ // 0x3f43 @0x21
0x3f22…3f59 at0022 = ╱61╱a╱ // 0x3f44 @0x22
0x3f22…3f59 at0023 = ╱66╱f╱ // 0x3f45 @0x23
0x3f22…3f59 at0024 = ╱20╱…╱ // 0x3f46 @0x24
0x3f22…3f59 at0025 = ╱65╱e╱ // 0x3f47 @0x25
0x3f22…3f59 at0026 = ╱6e╱n╱ // 0x3f48 @0x26
0x3f22…3f59 at0027 = ╱20╱…╱ // 0x3f49 @0x27
0x3f22…3f59 at0028 = ╱61╱a╱ // 0x3f4a @0x28
0x3f22…3f59 at0029 = ╱6e╱n╱ // 0x3f4b @0x29
0x3f22…3f59 at002a = ╱64╱d╱ // 0x3f4c @0x2a
0x3f22…3f59 at002b = ╱65╱e╱ // 0x3f4d @0x2b
0x3f22…3f59 at002c = ╱6e╱n╱ // 0x3f4e @0x2c
0x3f22…3f59 at002d = ╱20╱…╱ // 0x3f4f @0x2d
0x3f22…3f59 at002e = ╱62╱b╱ // 0x3f50 @0x2e
0x3f22…3f59 at002f = ╱72╱r╱ // 0x3f51 @0x2f
0x3f22…3f59 at0030 = ╱75╱u╱ // 0x3f52 @0x30
0x3f22…3f59 at0031 = ╱67╱g╱ // 0x3f53 @0x31
0x3f22…3f59 at0032 = ╱65╱e╱ // 0x3f54 @0x32
0x3f22…3f59 at0033 = ╱72╱r╱ // 0x3f55 @0x33
0x3f22…3f59 at0034 = ╱2c╱,╱ // 0x3f56 @0x34
0x3f22…3f59 at0035 = ╱22╱"╱ // 0x3f57 @0x35
0x3f22…3f59 at0036 = EOL // 0x3f58 @0x36
0x3f22…3f59 }
0x3f59…3f6e d55c 5680 CURSOR 12,LINE + 1
0x3f59…3f6e LineComal80 {
0x3f59…3f6e ptr = 0xd55c // 0x3f59 @0x0
0x3f59…3f6e lno = 0x1630 // 0x3f5b @0x2
0x3f59…3f6e at0004 = ╱a1╱ CURSOR ╱ // 0x3f5d @0x4
0x3f59…3f6e at0005 = ╱31╱1╱ // 0x3f5e @0x5
0x3f59…3f6e at0006 = ╱32╱2╱ // 0x3f5f @0x6
0x3f59…3f6e at0007 = ╱f20c00╱ // 0x3f60 @0x7
0x3f59…3f6e at000a = ╱ec╱,╱ // 0x3f63 @0xa
0x3f59…3f6e at000b = ╱4c╱L╱ // 0x3f64 @0xb
0x3f59…3f6e at000c = ╱49╱I╱ // 0x3f65 @0xc
0x3f59…3f6e at000d = ╱4e╱N╱ // 0x3f66 @0xd
0x3f59…3f6e at000e = ╱45╱E╱ // 0x3f67 @0xe
0x3f59…3f6e at000f = ╱e5╱ + ╱ // 0x3f68 @0xf
0x3f59…3f6e at0010 = ╱31╱1╱ // 0x3f69 @0x10
0x3f59…3f6e at0011 = ╱f20100╱ // 0x3f6a @0x11
0x3f59…3f6e at0014 = EOL // 0x3f6d @0x14
0x3f59…3f6e }
0x3f6e…3faf d59d 5690 INPUT "<SZ>Skal der ventes på at den bliver ledig ? (j/n) " : SVAR$
0x3f6e…3faf LineComal80 {
0x3f6e…3faf ptr = 0xd59d // 0x3f6e @0x0
0x3f6e…3faf lno = 0x163a // 0x3f70 @0x2
0x3f6e…3faf at0004 = ╱91╱ INPUT ╱ // 0x3f72 @0x4
0x3f6e…3faf at0005 = ╱22╱"╱ // 0x3f73 @0x5
0x3f6e…3faf at0006 = ╱3c╱<╱ // 0x3f74 @0x6
0x3f6e…3faf at0007 = ╱53╱S╱ // 0x3f75 @0x7
0x3f6e…3faf at0008 = ╱5a╱Z╱ // 0x3f76 @0x8
0x3f6e…3faf at0009 = ╱3e╱>╱ // 0x3f77 @0x9
0x3f6e…3faf at000a = ╱53╱S╱ // 0x3f78 @0xa
0x3f6e…3faf at000b = ╱6b╱k╱ // 0x3f79 @0xb
0x3f6e…3faf at000c = ╱61╱a╱ // 0x3f7a @0xc
0x3f6e…3faf at000d = ╱6c╱l╱ // 0x3f7b @0xd
0x3f6e…3faf at000e = ╱20╱…╱ // 0x3f7c @0xe
0x3f6e…3faf at000f = ╱64╱d╱ // 0x3f7d @0xf
0x3f6e…3faf at0010 = ╱65╱e╱ // 0x3f7e @0x10
0x3f6e…3faf at0011 = ╱72╱r╱ // 0x3f7f @0x11
0x3f6e…3faf at0012 = ╱20╱…╱ // 0x3f80 @0x12
0x3f6e…3faf at0013 = ╱76╱v╱ // 0x3f81 @0x13
0x3f6e…3faf at0014 = ╱65╱e╱ // 0x3f82 @0x14
0x3f6e…3faf at0015 = ╱6e╱n╱ // 0x3f83 @0x15
0x3f6e…3faf at0016 = ╱74╱t╱ // 0x3f84 @0x16
0x3f6e…3faf at0017 = ╱65╱e╱ // 0x3f85 @0x17
0x3f6e…3faf at0018 = ╱73╱s╱ // 0x3f86 @0x18
0x3f6e…3faf at0019 = ╱20╱…╱ // 0x3f87 @0x19
0x3f6e…3faf at001a = ╱70╱p╱ // 0x3f88 @0x1a
0x3f6e…3faf at001b = ╱7d╱å╱ // 0x3f89 @0x1b
0x3f6e…3faf at001c = ╱20╱…╱ // 0x3f8a @0x1c
0x3f6e…3faf at001d = ╱61╱a╱ // 0x3f8b @0x1d
0x3f6e…3faf at001e = ╱74╱t╱ // 0x3f8c @0x1e
0x3f6e…3faf at001f = ╱20╱…╱ // 0x3f8d @0x1f
0x3f6e…3faf at0020 = ╱64╱d╱ // 0x3f8e @0x20
0x3f6e…3faf at0021 = ╱65╱e╱ // 0x3f8f @0x21
0x3f6e…3faf at0022 = ╱6e╱n╱ // 0x3f90 @0x22
0x3f6e…3faf at0023 = ╱20╱…╱ // 0x3f91 @0x23
0x3f6e…3faf at0024 = ╱62╱b╱ // 0x3f92 @0x24
0x3f6e…3faf at0025 = ╱6c╱l╱ // 0x3f93 @0x25
0x3f6e…3faf at0026 = ╱69╱i╱ // 0x3f94 @0x26
0x3f6e…3faf at0027 = ╱76╱v╱ // 0x3f95 @0x27
0x3f6e…3faf at0028 = ╱65╱e╱ // 0x3f96 @0x28
0x3f6e…3faf at0029 = ╱72╱r╱ // 0x3f97 @0x29
0x3f6e…3faf at002a = ╱20╱…╱ // 0x3f98 @0x2a
0x3f6e…3faf at002b = ╱6c╱l╱ // 0x3f99 @0x2b
0x3f6e…3faf at002c = ╱65╱e╱ // 0x3f9a @0x2c
0x3f6e…3faf at002d = ╱64╱d╱ // 0x3f9b @0x2d
0x3f6e…3faf at002e = ╱69╱i╱ // 0x3f9c @0x2e
0x3f6e…3faf at002f = ╱67╱g╱ // 0x3f9d @0x2f
0x3f6e…3faf at0030 = ╱20╱…╱ // 0x3f9e @0x30
0x3f6e…3faf at0031 = ╱3f╱?╱ // 0x3f9f @0x31
0x3f6e…3faf at0032 = ╱20╱…╱ // 0x3fa0 @0x32
0x3f6e…3faf at0033 = ╱28╱(╱ // 0x3fa1 @0x33
0x3f6e…3faf at0034 = ╱6a╱j╱ // 0x3fa2 @0x34
0x3f6e…3faf at0035 = ╱2f╱/╱ // 0x3fa3 @0x35
0x3f6e…3faf at0036 = ╱6e╱n╱ // 0x3fa4 @0x36
0x3f6e…3faf at0037 = ╱29╱)╱ // 0x3fa5 @0x37
0x3f6e…3faf at0038 = ╱20╱…╱ // 0x3fa6 @0x38
0x3f6e…3faf at0039 = ╱22╱"╱ // 0x3fa7 @0x39
0x3f6e…3faf at003a = ╱f1╱ : ╱ // 0x3fa8 @0x3a
0x3f6e…3faf at003b = ╱53╱S╱ // 0x3fa9 @0x3b
0x3f6e…3faf at003c = ╱56╱V╱ // 0x3faa @0x3c
0x3f6e…3faf at003d = ╱41╱A╱ // 0x3fab @0x3d
0x3f6e…3faf at003e = ╱52╱R╱ // 0x3fac @0x3e
0x3f6e…3faf at003f = ╱ef╱$╱ // 0x3fad @0x3f
0x3f6e…3faf at0040 = EOL // 0x3fae @0x40
0x3f6e…3faf }
0x3faf…3fca d5b8 5700 IF VAR$ = "J" OR SVAR$ = "j" THEN
0x3faf…3fca LineComal80 {
0x3faf…3fca ptr = 0xd5b8 // 0x3faf @0x0
0x3faf…3fca lno = 0x1644 // 0x3fb1 @0x2
0x3faf…3fca at0004 = ╱9b6d53╱ IF ╱ // 0x3fb3 @0x4
0x3faf…3fca at0007 = ╱56╱V╱ // 0x3fb6 @0x7
0x3faf…3fca at0008 = ╱41╱A╱ // 0x3fb7 @0x8
0x3faf…3fca at0009 = ╱52╱R╱ // 0x3fb8 @0x9
0x3faf…3fca at000a = ╱ef╱$╱ // 0x3fb9 @0xa
0x3faf…3fca at000b = ╱df╱ = ╱ // 0x3fba @0xb
0x3faf…3fca at000c = ╱22╱"╱ // 0x3fbb @0xc
0x3faf…3fca at000d = ╱4a╱J╱ // 0x3fbc @0xd
0x3faf…3fca at000e = ╱22╱"╱ // 0x3fbd @0xe
0x3faf…3fca at000f = ╱d8╱ OR ╱ // 0x3fbe @0xf
0x3faf…3fca at0010 = ╱53╱S╱ // 0x3fbf @0x10
0x3faf…3fca at0011 = ╱56╱V╱ // 0x3fc0 @0x11
0x3faf…3fca at0012 = ╱41╱A╱ // 0x3fc1 @0x12
0x3faf…3fca at0013 = ╱52╱R╱ // 0x3fc2 @0x13
0x3faf…3fca at0014 = ╱ef╱$╱ // 0x3fc3 @0x14
0x3faf…3fca at0015 = ╱df╱ = ╱ // 0x3fc4 @0x15
0x3faf…3fca at0016 = ╱22╱"╱ // 0x3fc5 @0x16
0x3faf…3fca at0017 = ╱6a╱j╱ // 0x3fc6 @0x17
0x3faf…3fca at0018 = ╱22╱"╱ // 0x3fc7 @0x18
0x3faf…3fca at0019 = ╱b5╱ THEN ╱ // 0x3fc8 @0x19
0x3faf…3fca at001a = EOL // 0x3fc9 @0x1a
0x3faf…3fca }
0x3fca…3fda d5c8 5710 CURSOR 12,LINE
0x3fca…3fda LineComal80 {
0x3fca…3fda ptr = 0xd5c8 // 0x3fca @0x0
0x3fca…3fda lno = 0x164e // 0x3fcc @0x2
0x3fca…3fda at0004 = ╱a1╱ CURSOR ╱ // 0x3fce @0x4
0x3fca…3fda at0005 = ╱31╱1╱ // 0x3fcf @0x5
0x3fca…3fda at0006 = ╱32╱2╱ // 0x3fd0 @0x6
0x3fca…3fda at0007 = ╱f20c00╱ // 0x3fd1 @0x7
0x3fca…3fda at000a = ╱ec╱,╱ // 0x3fd4 @0xa
0x3fca…3fda at000b = ╱4c╱L╱ // 0x3fd5 @0xb
0x3fca…3fda at000c = ╱49╱I╱ // 0x3fd6 @0xc
0x3fca…3fda at000d = ╱4e╱N╱ // 0x3fd7 @0xd
0x3fca…3fda at000e = ╱45╱E╱ // 0x3fd8 @0xe
0x3fca…3fda at000f = EOL // 0x3fd9 @0xf
0x3fca…3fda }
0x3fda…4015 d603 5720 PRINT "<Z> Der ventes på at printeren bliver ledig...."
0x3fda…4015 LineComal80 {
0x3fda…4015 ptr = 0xd603 // 0x3fda @0x0
0x3fda…4015 lno = 0x1658 // 0x3fdc @0x2
0x3fda…4015 at0004 = ╱92╱ PRINT ╱ // 0x3fde @0x4
0x3fda…4015 at0005 = ╱22╱"╱ // 0x3fdf @0x5
0x3fda…4015 at0006 = ╱3c╱<╱ // 0x3fe0 @0x6
0x3fda…4015 at0007 = ╱5a╱Z╱ // 0x3fe1 @0x7
0x3fda…4015 at0008 = ╱3e╱>╱ // 0x3fe2 @0x8
0x3fda…4015 at0009 = ╱20╱…╱ // 0x3fe3 @0x9
0x3fda…4015 at000a = ╱20╱…╱ // 0x3fe4 @0xa
0x3fda…4015 at000b = ╱20╱…╱ // 0x3fe5 @0xb
0x3fda…4015 at000c = ╱20╱…╱ // 0x3fe6 @0xc
0x3fda…4015 at000d = ╱20╱…╱ // 0x3fe7 @0xd
0x3fda…4015 at000e = ╱44╱D╱ // 0x3fe8 @0xe
0x3fda…4015 at000f = ╱65╱e╱ // 0x3fe9 @0xf
0x3fda…4015 at0010 = ╱72╱r╱ // 0x3fea @0x10
0x3fda…4015 at0011 = ╱20╱…╱ // 0x3feb @0x11
0x3fda…4015 at0012 = ╱76╱v╱ // 0x3fec @0x12
0x3fda…4015 at0013 = ╱65╱e╱ // 0x3fed @0x13
0x3fda…4015 at0014 = ╱6e╱n╱ // 0x3fee @0x14
0x3fda…4015 at0015 = ╱74╱t╱ // 0x3fef @0x15
0x3fda…4015 at0016 = ╱65╱e╱ // 0x3ff0 @0x16
0x3fda…4015 at0017 = ╱73╱s╱ // 0x3ff1 @0x17
0x3fda…4015 at0018 = ╱20╱…╱ // 0x3ff2 @0x18
0x3fda…4015 at0019 = ╱70╱p╱ // 0x3ff3 @0x19
0x3fda…4015 at001a = ╱7d╱å╱ // 0x3ff4 @0x1a
0x3fda…4015 at001b = ╱20╱…╱ // 0x3ff5 @0x1b
0x3fda…4015 at001c = ╱61╱a╱ // 0x3ff6 @0x1c
0x3fda…4015 at001d = ╱74╱t╱ // 0x3ff7 @0x1d
0x3fda…4015 at001e = ╱20╱…╱ // 0x3ff8 @0x1e
0x3fda…4015 at001f = ╱70╱p╱ // 0x3ff9 @0x1f
0x3fda…4015 at0020 = ╱72╱r╱ // 0x3ffa @0x20
0x3fda…4015 at0021 = ╱69╱i╱ // 0x3ffb @0x21
0x3fda…4015 at0022 = ╱6e╱n╱ // 0x3ffc @0x22
0x3fda…4015 at0023 = ╱74╱t╱ // 0x3ffd @0x23
0x3fda…4015 at0024 = ╱65╱e╱ // 0x3ffe @0x24
0x3fda…4015 at0025 = ╱72╱r╱ // 0x3fff @0x25
0x3fda…4015 at0026 = ╱65╱e╱ // 0x4000 @0x26
0x3fda…4015 at0027 = ╱6e╱n╱ // 0x4001 @0x27
0x3fda…4015 at0028 = ╱20╱…╱ // 0x4002 @0x28
0x3fda…4015 at0029 = ╱62╱b╱ // 0x4003 @0x29
0x3fda…4015 at002a = ╱6c╱l╱ // 0x4004 @0x2a
0x3fda…4015 at002b = ╱69╱i╱ // 0x4005 @0x2b
0x3fda…4015 at002c = ╱76╱v╱ // 0x4006 @0x2c
0x3fda…4015 at002d = ╱65╱e╱ // 0x4007 @0x2d
0x3fda…4015 at002e = ╱72╱r╱ // 0x4008 @0x2e
0x3fda…4015 at002f = ╱20╱…╱ // 0x4009 @0x2f
0x3fda…4015 at0030 = ╱6c╱l╱ // 0x400a @0x30
0x3fda…4015 at0031 = ╱65╱e╱ // 0x400b @0x31
0x3fda…4015 at0032 = ╱64╱d╱ // 0x400c @0x32
0x3fda…4015 at0033 = ╱69╱i╱ // 0x400d @0x33
0x3fda…4015 at0034 = ╱67╱g╱ // 0x400e @0x34
0x3fda…4015 at0035 = ╱2e╱.╱ // 0x400f @0x35
0x3fda…4015 at0036 = ╱2e╱.╱ // 0x4010 @0x36
0x3fda…4015 at0037 = ╱2e╱.╱ // 0x4011 @0x37
0x3fda…4015 at0038 = ╱2e╱.╱ // 0x4012 @0x38
0x3fda…4015 at0039 = ╱22╱"╱ // 0x4013 @0x39
0x3fda…4015 at003a = EOL // 0x4014 @0x3a
0x3fda…4015 }
0x4015…4021 d60f 5730 PRINT "<SZ>"
0x4015…4021 LineComal80 {
0x4015…4021 ptr = 0xd60f // 0x4015 @0x0
0x4015…4021 lno = 0x1662 // 0x4017 @0x2
0x4015…4021 at0004 = ╱92╱ PRINT ╱ // 0x4019 @0x4
0x4015…4021 at0005 = ╱22╱"╱ // 0x401a @0x5
0x4015…4021 at0006 = ╱3c╱<╱ // 0x401b @0x6
0x4015…4021 at0007 = ╱53╱S╱ // 0x401c @0x7
0x4015…4021 at0008 = ╱5a╱Z╱ // 0x401d @0x8
0x4015…4021 at0009 = ╱3e╱>╱ // 0x401e @0x9
0x4015…4021 at000a = ╱22╱"╱ // 0x401f @0xa
0x4015…4021 at000b = EOL // 0x4020 @0xb
0x4015…4021 }
0x4021…402f d61d 5740 WHILE ╱cd╱ ("P") DO
0x4021…402f LineComal80 {
0x4021…402f ptr = 0xd61d // 0x4021 @0x0
0x4021…402f lno = 0x166c // 0x4023 @0x2
0x4021…402f at0004 = ╱936e╱ WHILE ╱ // 0x4025 @0x4
0x4021…402f at0006 = ╱cd╱ // 0x4027 @0x6
0x4021…402f at0007 = ╱ed╱(╱ // 0x4028 @0x7
0x4021…402f at0008 = ╱22╱"╱ // 0x4029 @0x8
0x4021…402f at0009 = ╱50╱P╱ // 0x402a @0x9
0x4021…402f at000a = ╱22╱"╱ // 0x402b @0xa
0x4021…402f at000b = ╱ee╱)╱ // 0x402c @0xb
0x4021…402f at000c = ╱bb╱ DO ╱ // 0x402d @0xc
0x4021…402f at000d = EOL // 0x402e @0xd
0x4021…402f }
0x402f…4040 d62e 5750 LET SEK := ╱ca╱ (5)
0x402f…4040 LineComal80 {
0x402f…4040 ptr = 0xd62e // 0x402f @0x0
0x402f…4040 lno = 0x1676 // 0x4031 @0x2
0x402f…4040 at0004 = ╱86╱ LET ╱ // 0x4033 @0x4
0x402f…4040 at0005 = ╱53╱S╱ // 0x4034 @0x5
0x402f…4040 at0006 = ╱45╱E╱ // 0x4035 @0x6
0x402f…4040 at0007 = ╱4b╱K╱ // 0x4036 @0x7
0x402f…4040 at0008 = ╱f0╱ := ╱ // 0x4037 @0x8
0x402f…4040 at0009 = ╱ca╱ // 0x4038 @0x9
0x402f…4040 at000a = ╱ed╱(╱ // 0x4039 @0xa
0x402f…4040 at000b = ╱35╱5╱ // 0x403a @0xb
0x402f…4040 at000c = ╱f20500╱ // 0x403b @0xc
0x402f…4040 at000f = ╱ee╱)╱ // 0x403e @0xf
0x402f…4040 at0010 = EOL // 0x403f @0x10
0x402f…4040 }
0x4040…4050 d63e 5760 SELECT OUTPUT "P" + PRTNR$
0x4040…4050 LineComal80 {
0x4040…4050 ptr = 0xd63e // 0x4040 @0x0
0x4040…4050 lno = 0x1680 // 0x4042 @0x2
0x4040…4050 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x4044 @0x4
0x4040…4050 at0005 = ╱22╱"╱ // 0x4045 @0x5
0x4040…4050 at0006 = ╱50╱P╱ // 0x4046 @0x6
0x4040…4050 at0007 = ╱22╱"╱ // 0x4047 @0x7
0x4040…4050 at0008 = ╱eb╱ + ╱ // 0x4048 @0x8
0x4040…4050 at0009 = ╱50╱P╱ // 0x4049 @0x9
0x4040…4050 at000a = ╱52╱R╱ // 0x404a @0xa
0x4040…4050 at000b = ╱54╱T╱ // 0x404b @0xb
0x4040…4050 at000c = ╱4e╱N╱ // 0x404c @0xc
0x4040…4050 at000d = ╱52╱R╱ // 0x404d @0xd
0x4040…4050 at000e = ╱ef╱$╱ // 0x404e @0xe
0x4040…4050 at000f = EOL // 0x404f @0xf
0x4040…4050 }
0x4050…4056 d644 5770 ENDWHILE
0x4050…4056 LineComal80 {
0x4050…4056 ptr = 0xd644 // 0x4050 @0x0
0x4050…4056 lno = 0x168a // 0x4052 @0x2
0x4050…4056 at0004 = ╱94╱ ENDWHILE ╱ // 0x4054 @0x4
0x4050…4056 at0005 = EOL // 0x4055 @0x5
0x4050…4056 }
0x4056…405d d64b 5780 ELSE
0x4056…405d LineComal80 {
0x4056…405d ptr = 0xd64b // 0x4056 @0x0
0x4056…405d lno = 0x1694 // 0x4058 @0x2
0x4056…405d at0004 = ╱9a6f╱ ELSE ╱ // 0x405a @0x4
0x4056…405d at0006 = EOL // 0x405c @0x6
0x4056…405d }
0x405d…406b d659 5790 LET OK := FALSE
0x405d…406b LineComal80 {
0x405d…406b ptr = 0xd659 // 0x405d @0x0
0x405d…406b lno = 0x169e // 0x405f @0x2
0x405d…406b at0004 = ╱86╱ LET ╱ // 0x4061 @0x4
0x405d…406b at0005 = ╱4f╱O╱ // 0x4062 @0x5
0x405d…406b at0006 = ╱4b╱K╱ // 0x4063 @0x6
0x405d…406b at0007 = ╱f0╱ := ╱ // 0x4064 @0x7
0x405d…406b at0008 = ╱46╱F╱ // 0x4065 @0x8
0x405d…406b at0009 = ╱41╱A╱ // 0x4066 @0x9
0x405d…406b at000a = ╱4c╱L╱ // 0x4067 @0xa
0x405d…406b at000b = ╱53╱S╱ // 0x4068 @0xb
0x405d…406b at000c = ╱45╱E╱ // 0x4069 @0xc
0x405d…406b at000d = EOL // 0x406a @0xd
0x405d…406b }
0x406b…4071 d65f 5800 ENDIF
0x406b…4071 LineComal80 {
0x406b…4071 ptr = 0xd65f // 0x406b @0x0
0x406b…4071 lno = 0x16a8 // 0x406d @0x2
0x406b…4071 at0004 = ╱9c╱ ENDIF ╱ // 0x406f @0x4
0x406b…4071 at0005 = EOL // 0x4070 @0x5
0x406b…4071 }
0x4071…4077 d665 5810 ENDIF
0x4071…4077 LineComal80 {
0x4071…4077 ptr = 0xd665 // 0x4071 @0x0
0x4071…4077 lno = 0x16b2 // 0x4073 @0x2
0x4071…4077 at0004 = ╱9c╱ ENDIF ╱ // 0x4075 @0x4
0x4071…4077 at0005 = EOL // 0x4076 @0x5
0x4071…4077 }
0x4077…4086 d674 5820 CURSOR 1,LINE
0x4077…4086 LineComal80 {
0x4077…4086 ptr = 0xd674 // 0x4077 @0x0
0x4077…4086 lno = 0x16bc // 0x4079 @0x2
0x4077…4086 at0004 = ╱a1╱ CURSOR ╱ // 0x407b @0x4
0x4077…4086 at0005 = ╱31╱1╱ // 0x407c @0x5
0x4077…4086 at0006 = ╱f20100╱ // 0x407d @0x6
0x4077…4086 at0009 = ╱ec╱,╱ // 0x4080 @0x9
0x4077…4086 at000a = ╱4c╱L╱ // 0x4081 @0xa
0x4077…4086 at000b = ╱49╱I╱ // 0x4082 @0xb
0x4077…4086 at000c = ╱4e╱N╱ // 0x4083 @0xc
0x4077…4086 at000d = ╱45╱E╱ // 0x4084 @0xd
0x4077…4086 at000e = EOL // 0x4085 @0xe
0x4077…4086 }
0x4086…4091 d67f 5830 PRINT "<Z>"
0x4086…4091 LineComal80 {
0x4086…4091 ptr = 0xd67f // 0x4086 @0x0
0x4086…4091 lno = 0x16c6 // 0x4088 @0x2
0x4086…4091 at0004 = ╱92╱ PRINT ╱ // 0x408a @0x4
0x4086…4091 at0005 = ╱22╱"╱ // 0x408b @0x5
0x4086…4091 at0006 = ╱3c╱<╱ // 0x408c @0x6
0x4086…4091 at0007 = ╱5a╱Z╱ // 0x408d @0x7
0x4086…4091 at0008 = ╱3e╱>╱ // 0x408e @0x8
0x4086…4091 at0009 = ╱22╱"╱ // 0x408f @0x9
0x4086…4091 at000a = EOL // 0x4090 @0xa
0x4086…4091 }
0x4091…409d d68b 5840 PRINT "<SZ>"
0x4091…409d LineComal80 {
0x4091…409d ptr = 0xd68b // 0x4091 @0x0
0x4091…409d lno = 0x16d0 // 0x4093 @0x2
0x4091…409d at0004 = ╱92╱ PRINT ╱ // 0x4095 @0x4
0x4091…409d at0005 = ╱22╱"╱ // 0x4096 @0x5
0x4091…409d at0006 = ╱3c╱<╱ // 0x4097 @0x6
0x4091…409d at0007 = ╱53╱S╱ // 0x4098 @0x7
0x4091…409d at0008 = ╱5a╱Z╱ // 0x4099 @0x8
0x4091…409d at0009 = ╱3e╱>╱ // 0x409a @0x9
0x4091…409d at000a = ╱22╱"╱ // 0x409b @0xa
0x4091…409d at000b = EOL // 0x409c @0xb
0x4091…409d }
0x409d…40ab d707 5850 ENDPROC PRINTRES
0x409d…40ab LineComal80 {
0x409d…40ab ptr = 0xd707 // 0x409d @0x0
0x409d…40ab lno = 0x16da // 0x409f @0x2
0x409d…40ab at0004 = ╱9f╱ ENDPROC ╱ // 0x40a1 @0x4
0x409d…40ab at0005 = ╱50╱P╱ // 0x40a2 @0x5
0x409d…40ab at0006 = ╱52╱R╱ // 0x40a3 @0x6
0x409d…40ab at0007 = ╱49╱I╱ // 0x40a4 @0x7
0x409d…40ab at0008 = ╱4e╱N╱ // 0x40a5 @0x8
0x409d…40ab at0009 = ╱54╱T╱ // 0x40a6 @0x9
0x409d…40ab at000a = ╱52╱R╱ // 0x40a7 @0xa
0x409d…40ab at000b = ╱45╱E╱ // 0x40a8 @0xb
0x409d…40ab at000c = ╱53╱S╱ // 0x40a9 @0xc
0x409d…40ab at000d = EOL // 0x40aa @0xd
0x409d…40ab }
0x40ab…40c4 (215,) b67f 3270 PRINT "<Z>" ; CHR$ (R_LIN,2)
0x40ab…40c4 LineComal80 {
0x40ab…40c4 ptr = 0xb67f // 0x40ab @0x0
0x40ab…40c4 lno = 0x0cc6 // 0x40ad @0x2
0x40ab…40c4 at0004 = ╱92╱ PRINT ╱ // 0x40af @0x4
0x40ab…40c4 at0005 = ╱22╱"╱ // 0x40b0 @0x5
0x40ab…40c4 at0006 = ╱3c╱<╱ // 0x40b1 @0x6
0x40ab…40c4 at0007 = ╱5a╱Z╱ // 0x40b2 @0x7
0x40ab…40c4 at0008 = ╱3e╱>╱ // 0x40b3 @0x8
0x40ab…40c4 at0009 = ╱22╱"╱ // 0x40b4 @0x9
0x40ab…40c4 at000a = ╱ea╱ ; ╱ // 0x40b5 @0xa
0x40ab…40c4 at000b = ╱d0╱ CHR$ ╱ // 0x40b6 @0xb
0x40ab…40c4 at000c = ╱ed╱(╱ // 0x40b7 @0xc
0x40ab…40c4 at000d = ╱52╱R╱ // 0x40b8 @0xd
0x40ab…40c4 at000e = ╱5f╱_╱ // 0x40b9 @0xe
0x40ab…40c4 at000f = ╱4c╱L╱ // 0x40ba @0xf
0x40ab…40c4 at0010 = ╱49╱I╱ // 0x40bb @0x10
0x40ab…40c4 at0011 = ╱4e╱N╱ // 0x40bc @0x11
0x40ab…40c4 at0012 = ╱ec╱,╱ // 0x40bd @0x12
0x40ab…40c4 at0013 = ╱32╱2╱ // 0x40be @0x13
0x40ab…40c4 at0014 = ╱f20200╱ // 0x40bf @0x14
0x40ab…40c4 at0017 = ╱ee╱)╱ // 0x40c2 @0x17
0x40ab…40c4 at0018 = EOL // 0x40c3 @0x18
0x40ab…40c4 }
0x40c4…4109 c156 4455 PUT DG_POS$,1 : P_HØJREC,P_MAXREC,S_NR_DG_POS,P_DEB,P_KRED,P_BDAT$
0x40c4…4109 LineComal80 {
0x40c4…4109 ptr = 0xc156 // 0x40c4 @0x0
0x40c4…4109 lno = 0x1167 // 0x40c6 @0x2
0x40c4…4109 at0004 = ╱aa╱ PUT ╱ // 0x40c8 @0x4
0x40c4…4109 at0005 = ╱44╱D╱ // 0x40c9 @0x5
0x40c4…4109 at0006 = ╱47╱G╱ // 0x40ca @0x6
0x40c4…4109 at0007 = ╱5f╱_╱ // 0x40cb @0x7
0x40c4…4109 at0008 = ╱50╱P╱ // 0x40cc @0x8
0x40c4…4109 at0009 = ╱4f╱O╱ // 0x40cd @0x9
0x40c4…4109 at000a = ╱53╱S╱ // 0x40ce @0xa
0x40c4…4109 at000b = ╱ef╱$╱ // 0x40cf @0xb
0x40c4…4109 at000c = ╱ec╱,╱ // 0x40d0 @0xc
0x40c4…4109 at000d = ╱31╱1╱ // 0x40d1 @0xd
0x40c4…4109 at000e = ╱f20100╱ // 0x40d2 @0xe
0x40c4…4109 at0011 = ╱f1╱ : ╱ // 0x40d5 @0x11
0x40c4…4109 at0012 = ╱50╱P╱ // 0x40d6 @0x12
0x40c4…4109 at0013 = ╱5f╱_╱ // 0x40d7 @0x13
0x40c4…4109 at0014 = ╱48╱H╱ // 0x40d8 @0x14
0x40c4…4109 at0015 = ╱5c╱Ø╱ // 0x40d9 @0x15
0x40c4…4109 at0016 = ╱4a╱J╱ // 0x40da @0x16
0x40c4…4109 at0017 = ╱52╱R╱ // 0x40db @0x17
0x40c4…4109 at0018 = ╱45╱E╱ // 0x40dc @0x18
0x40c4…4109 at0019 = ╱43╱C╱ // 0x40dd @0x19
0x40c4…4109 at001a = ╱ec╱,╱ // 0x40de @0x1a
0x40c4…4109 at001b = ╱50╱P╱ // 0x40df @0x1b
0x40c4…4109 at001c = ╱5f╱_╱ // 0x40e0 @0x1c
0x40c4…4109 at001d = ╱4d╱M╱ // 0x40e1 @0x1d
0x40c4…4109 at001e = ╱41╱A╱ // 0x40e2 @0x1e
0x40c4…4109 at001f = ╱58╱X╱ // 0x40e3 @0x1f
0x40c4…4109 at0020 = ╱52╱R╱ // 0x40e4 @0x20
0x40c4…4109 at0021 = ╱45╱E╱ // 0x40e5 @0x21
0x40c4…4109 at0022 = ╱43╱C╱ // 0x40e6 @0x22
0x40c4…4109 at0023 = ╱ec╱,╱ // 0x40e7 @0x23
0x40c4…4109 at0024 = ╱53╱S╱ // 0x40e8 @0x24
0x40c4…4109 at0025 = ╱5f╱_╱ // 0x40e9 @0x25
0x40c4…4109 at0026 = ╱4e╱N╱ // 0x40ea @0x26
0x40c4…4109 at0027 = ╱52╱R╱ // 0x40eb @0x27
0x40c4…4109 at0028 = ╱5f╱_╱ // 0x40ec @0x28
0x40c4…4109 at0029 = ╱44╱D╱ // 0x40ed @0x29
0x40c4…4109 at002a = ╱47╱G╱ // 0x40ee @0x2a
0x40c4…4109 at002b = ╱5f╱_╱ // 0x40ef @0x2b
0x40c4…4109 at002c = ╱50╱P╱ // 0x40f0 @0x2c
0x40c4…4109 at002d = ╱4f╱O╱ // 0x40f1 @0x2d
0x40c4…4109 at002e = ╱53╱S╱ // 0x40f2 @0x2e
0x40c4…4109 at002f = ╱ec╱,╱ // 0x40f3 @0x2f
0x40c4…4109 at0030 = ╱50╱P╱ // 0x40f4 @0x30
0x40c4…4109 at0031 = ╱5f╱_╱ // 0x40f5 @0x31
0x40c4…4109 at0032 = ╱44╱D╱ // 0x40f6 @0x32
0x40c4…4109 at0033 = ╱45╱E╱ // 0x40f7 @0x33
0x40c4…4109 at0034 = ╱42╱B╱ // 0x40f8 @0x34
0x40c4…4109 at0035 = ╱ec╱,╱ // 0x40f9 @0x35
0x40c4…4109 at0036 = ╱50╱P╱ // 0x40fa @0x36
0x40c4…4109 at0037 = ╱5f╱_╱ // 0x40fb @0x37
0x40c4…4109 at0038 = ╱4b╱K╱ // 0x40fc @0x38
0x40c4…4109 at0039 = ╱52╱R╱ // 0x40fd @0x39
0x40c4…4109 at003a = ╱45╱E╱ // 0x40fe @0x3a
0x40c4…4109 at003b = ╱44╱D╱ // 0x40ff @0x3b
0x40c4…4109 at003c = ╱ec╱,╱ // 0x4100 @0x3c
0x40c4…4109 at003d = ╱50╱P╱ // 0x4101 @0x3d
0x40c4…4109 at003e = ╱5f╱_╱ // 0x4102 @0x3e
0x40c4…4109 at003f = ╱42╱B╱ // 0x4103 @0x3f
0x40c4…4109 at0040 = ╱44╱D╱ // 0x4104 @0x40
0x40c4…4109 at0041 = ╱41╱A╱ // 0x4105 @0x41
0x40c4…4109 at0042 = ╱54╱T╱ // 0x4106 @0x42
0x40c4…4109 at0043 = ╱ef╱$╱ // 0x4107 @0x43
0x40c4…4109 at0044 = EOL // 0x4108 @0x44
0x40c4…4109 }
0x4109…4119 d027 1995 EXEC SKRIV_DIFF
0x4109…4119 LineComal80 {
0x4109…4119 ptr = 0xd027 // 0x4109 @0x0
0x4109…4119 lno = 0x07cb // 0x410b @0x2
0x4109…4119 at0004 = ╱9d╱ EXEC ╱ // 0x410d @0x4
0x4109…4119 at0005 = ╱53╱S╱ // 0x410e @0x5
0x4109…4119 at0006 = ╱4b╱K╱ // 0x410f @0x6
0x4109…4119 at0007 = ╱52╱R╱ // 0x4110 @0x7
0x4109…4119 at0008 = ╱49╱I╱ // 0x4111 @0x8
0x4109…4119 at0009 = ╱56╱V╱ // 0x4112 @0x9
0x4109…4119 at000a = ╱5f╱_╱ // 0x4113 @0xa
0x4109…4119 at000b = ╱44╱D╱ // 0x4114 @0xb
0x4109…4119 at000c = ╱49╱I╱ // 0x4115 @0xc
0x4109…4119 at000d = ╱46╱F╱ // 0x4116 @0xd
0x4109…4119 at000e = ╱46╱F╱ // 0x4117 @0xe
0x4109…4119 at000f = EOL // 0x4118 @0xf
0x4109…4119 }
0x4119…4131 d71f 8000 PROC REMOVEBLANK( REF ÆÆ$)
0x4119…4131 LineComal80 {
0x4119…4131 ptr = 0xd71f // 0x4119 @0x0
0x4119…4131 lno = 0x1f40 // 0x411b @0x2
0x4119…4131 at0004 = ╱9e70╱ PROC ╱ // 0x411d @0x4
0x4119…4131 at0006 = ╱52╱R╱ // 0x411f @0x6
0x4119…4131 at0007 = ╱45╱E╱ // 0x4120 @0x7
0x4119…4131 at0008 = ╱4d╱M╱ // 0x4121 @0x8
0x4119…4131 at0009 = ╱4f╱O╱ // 0x4122 @0x9
0x4119…4131 at000a = ╱56╱V╱ // 0x4123 @0xa
0x4119…4131 at000b = ╱45╱E╱ // 0x4124 @0xb
0x4119…4131 at000c = ╱42╱B╱ // 0x4125 @0xc
0x4119…4131 at000d = ╱4c╱L╱ // 0x4126 @0xd
0x4119…4131 at000e = ╱41╱A╱ // 0x4127 @0xe
0x4119…4131 at000f = ╱4e╱N╱ // 0x4128 @0xf
0x4119…4131 at0010 = ╱4b╱K╱ // 0x4129 @0x10
0x4119…4131 at0011 = ╱ed╱(╱ // 0x412a @0x11
0x4119…4131 at0012 = ╱b6╱ REF ╱ // 0x412b @0x12
0x4119…4131 at0013 = ╱5b╱Æ╱ // 0x412c @0x13
0x4119…4131 at0014 = ╱5b╱Æ╱ // 0x412d @0x14
0x4119…4131 at0015 = ╱ef╱$╱ // 0x412e @0x15
0x4119…4131 at0016 = ╱ee╱)╱ // 0x412f @0x16
0x4119…4131 at0017 = EOL // 0x4130 @0x17
0x4119…4131 }
0x4131…413d d72b 8010 LET J := 0
0x4131…413d LineComal80 {
0x4131…413d ptr = 0xd72b // 0x4131 @0x0
0x4131…413d lno = 0x1f4a // 0x4133 @0x2
0x4131…413d at0004 = ╱86╱ LET ╱ // 0x4135 @0x4
0x4131…413d at0005 = ╱4a╱J╱ // 0x4136 @0x5
0x4131…413d at0006 = ╱f0╱ := ╱ // 0x4137 @0x6
0x4131…413d at0007 = ╱30╱0╱ // 0x4138 @0x7
0x4131…413d at0008 = ╱f20000╱ // 0x4139 @0x8
0x4131…413d at000b = EOL // 0x413c @0xb
0x4131…413d }
0x413d…4152 d740 8020 FOR I := 1 TO (ÆÆ$) DO
0x413d…4152 LineComal80 {
0x413d…4152 ptr = 0xd740 // 0x413d @0x0
0x413d…4152 lno = 0x1f54 // 0x413f @0x2
0x413d…4152 at0004 = ╱8371╱ FOR ╱ // 0x4141 @0x4
0x413d…4152 at0006 = ╱49╱I╱ // 0x4143 @0x6
0x413d…4152 at0007 = ╱f0╱ := ╱ // 0x4144 @0x7
0x413d…4152 at0008 = ╱31╱1╱ // 0x4145 @0x8
0x413d…4152 at0009 = ╱f20100╱ // 0x4146 @0x9
0x413d…4152 at000c = ╱b7cb╱ TO ╱ // 0x4149 @0xc
0x413d…4152 at000e = ╱ed╱(╱ // 0x414b @0xe
0x413d…4152 at000f = ╱5b╱Æ╱ // 0x414c @0xf
0x413d…4152 at0010 = ╱5b╱Æ╱ // 0x414d @0x10
0x413d…4152 at0011 = ╱ef╱$╱ // 0x414e @0x11
0x413d…4152 at0012 = ╱ee╱)╱ // 0x414f @0x12
0x413d…4152 at0013 = ╱bb╱ DO ╱ // 0x4150 @0x13
0x413d…4152 at0014 = EOL // 0x4151 @0x14
0x413d…4152 }
0x4152…417b d769 8030 IF ÆÆ$(I) >< " " THEN LET J := J + 1 ; ÆÆ$(J) := ÆÆ$(I)
0x4152…417b LineComal80 {
0x4152…417b ptr = 0xd769 // 0x4152 @0x0
0x4152…417b lno = 0x1f5e // 0x4154 @0x2
0x4152…417b at0004 = ╱8200╱ IF ╱ // 0x4156 @0x4
0x4152…417b at0006 = ╱5b╱Æ╱ // 0x4158 @0x6
0x4152…417b at0007 = ╱5b╱Æ╱ // 0x4159 @0x7
0x4152…417b at0008 = ╱ef╱$╱ // 0x415a @0x8
0x4152…417b at0009 = ╱ed╱(╱ // 0x415b @0x9
0x4152…417b at000a = ╱49╱I╱ // 0x415c @0xa
0x4152…417b at000b = ╱ee╱)╱ // 0x415d @0xb
0x4152…417b at000c = ╱e4╱ >< ╱ // 0x415e @0xc
0x4152…417b at000d = ╱22╱"╱ // 0x415f @0xd
0x4152…417b at000e = ╱20╱…╱ // 0x4160 @0xe
0x4152…417b at000f = ╱22╱"╱ // 0x4161 @0xf
0x4152…417b at0010 = ╱b5╱ THEN ╱ // 0x4162 @0x10
0x4152…417b at0011 = ╱86╱ LET ╱ // 0x4163 @0x11
0x4152…417b at0012 = ╱4a╱J╱ // 0x4164 @0x12
0x4152…417b at0013 = ╱f0╱ := ╱ // 0x4165 @0x13
0x4152…417b at0014 = ╱4a╱J╱ // 0x4166 @0x14
0x4152…417b at0015 = ╱e5╱ + ╱ // 0x4167 @0x15
0x4152…417b at0016 = ╱31╱1╱ // 0x4168 @0x16
0x4152…417b at0017 = ╱f20100╱ // 0x4169 @0x17
0x4152…417b at001a = ╱ea╱ ; ╱ // 0x416c @0x1a
0x4152…417b at001b = ╱5b╱Æ╱ // 0x416d @0x1b
0x4152…417b at001c = ╱5b╱Æ╱ // 0x416e @0x1c
0x4152…417b at001d = ╱ef╱$╱ // 0x416f @0x1d
0x4152…417b at001e = ╱ed╱(╱ // 0x4170 @0x1e
0x4152…417b at001f = ╱4a╱J╱ // 0x4171 @0x1f
0x4152…417b at0020 = ╱ee╱)╱ // 0x4172 @0x20
0x4152…417b at0021 = ╱f0╱ := ╱ // 0x4173 @0x21
0x4152…417b at0022 = ╱5b╱Æ╱ // 0x4174 @0x22
0x4152…417b at0023 = ╱5b╱Æ╱ // 0x4175 @0x23
0x4152…417b at0024 = ╱ef╱$╱ // 0x4176 @0x24
0x4152…417b at0025 = ╱ed╱(╱ // 0x4177 @0x25
0x4152…417b at0026 = ╱49╱I╱ // 0x4178 @0x26
0x4152…417b at0027 = ╱ee╱)╱ // 0x4179 @0x27
0x4152…417b at0028 = EOL // 0x417a @0x28
0x4152…417b }
0x417b…4182 d770 8040 NEXT I
0x417b…4182 LineComal80 {
0x417b…4182 ptr = 0xd770 // 0x417b @0x0
0x417b…4182 lno = 0x1f68 // 0x417d @0x2
0x417b…4182 at0004 = ╱84╱ NEXT ╱ // 0x417f @0x4
0x417b…4182 at0005 = ╱49╱I╱ // 0x4180 @0x5
0x417b…4182 at0006 = EOL // 0x4181 @0x6
0x417b…4182 }
0x4182…4197 d785 8045 LET ÆÆ$ := ÆÆ$(1 : J)
0x4182…4197 LineComal80 {
0x4182…4197 ptr = 0xd785 // 0x4182 @0x0
0x4182…4197 lno = 0x1f6d // 0x4184 @0x2
0x4182…4197 at0004 = ╱86╱ LET ╱ // 0x4186 @0x4
0x4182…4197 at0005 = ╱5b╱Æ╱ // 0x4187 @0x5
0x4182…4197 at0006 = ╱5b╱Æ╱ // 0x4188 @0x6
0x4182…4197 at0007 = ╱ef╱$╱ // 0x4189 @0x7
0x4182…4197 at0008 = ╱f0╱ := ╱ // 0x418a @0x8
0x4182…4197 at0009 = ╱5b╱Æ╱ // 0x418b @0x9
0x4182…4197 at000a = ╱5b╱Æ╱ // 0x418c @0xa
0x4182…4197 at000b = ╱ef╱$╱ // 0x418d @0xb
0x4182…4197 at000c = ╱ed╱(╱ // 0x418e @0xc
0x4182…4197 at000d = ╱31╱1╱ // 0x418f @0xd
0x4182…4197 at000e = ╱f20100╱ // 0x4190 @0xe
0x4182…4197 at0011 = ╱f1╱ : ╱ // 0x4193 @0x11
0x4182…4197 at0012 = ╱4a╱J╱ // 0x4194 @0x12
0x4182…4197 at0013 = ╱ee╱)╱ // 0x4195 @0x13
0x4182…4197 at0014 = EOL // 0x4196 @0x14
0x4182…4197 }
0x4197…41a8 0000 8050 ENDPROC REMOVEBLANK
0x4197…41a8 LineComal80 {
0x4197…41a8 ptr = 0x0000 // 0x4197 @0x0
0x4197…41a8 lno = 0x1f72 // 0x4199 @0x2
0x4197…41a8 at0004 = ╱9f╱ ENDPROC ╱ // 0x419b @0x4
0x4197…41a8 at0005 = ╱52╱R╱ // 0x419c @0x5
0x4197…41a8 at0006 = ╱45╱E╱ // 0x419d @0x6
0x4197…41a8 at0007 = ╱4d╱M╱ // 0x419e @0x7
0x4197…41a8 at0008 = ╱4f╱O╱ // 0x419f @0x8
0x4197…41a8 at0009 = ╱56╱V╱ // 0x41a0 @0x9
0x4197…41a8 at000a = ╱45╱E╱ // 0x41a1 @0xa
0x4197…41a8 at000b = ╱42╱B╱ // 0x41a2 @0xb
0x4197…41a8 at000c = ╱4c╱L╱ // 0x41a3 @0xc
0x4197…41a8 at000d = ╱41╱A╱ // 0x41a4 @0xd
0x4197…41a8 at000e = ╱4e╱N╱ // 0x41a5 @0xe
0x4197…41a8 at000f = ╱4b╱K╱ // 0x41a6 @0xf
0x4197…41a8 at0010 = EOL // 0x41a7 @0x10
0x4197…41a8 }
0x41a8…41c0 06 bb 83 0e 9d 52 45 4d 4f 56 45 42 4c 41 4e 4b ed 53 56 41 52 ef ee ff ┆ REMOVEBLANK SVAR ┆
0x41c0…41df 48 ad a7 08 9d 53 4b 52 49 56 5f 44 49 46 46 ff 92 af b5 09 82 00 50 5f 48 5c 4a 52 45 43 e1 ┆H SKRIV_DIFF P_HØJREC ┆
0x41df…41f0 (219,) 31 f2 01 00 b5 9d 53 4b 52 49 56 5f 44 49 46 46 ff ┆1 SKRIV_DIFF ┆
0x41f0…41f6 (220,) ee 95 ee 95 00 00 ┆ ┆