|
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 - metrics - download
Length: 11219 (0x2bd3)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSP«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSP«
00100 // **************************************************
00110 // *………………………………………………………………………………………………………………………………*
00120 // *…………………………Bogf|ringssystemet…'SYS-KAS'…………………………*
00130 // *………………………………………………vers.…1.0………………………………………………………*
00140 // *………………………………………………………………………………………………………………………………*
00150 // *…Udviklet…marts…1983…p}…en…'SPC/1'…mikrodatamat…*
00160 // *…Programsystemet…er…skrevet…i…COMAL80…vers.…1.2…*
00170 // *………………………………………………………………………………………………………………………………*
00180 // *…Udviklet…af…:…Peter…Kristensen……………………………………………*
00190 // *………………………………………………………………………………………………………………………………*
00200 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
00210 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
00220 // *………………………………………7400……Herning……………………………………………………*
00230 // **************************************************
00240 EXEC DIMENSIONER
00250 EXEC INITIER
00260 EXEC MENU
00270 CHAIN PROGRAM $
00280 PROC DIMENSIONER
00290 // Standard…variable
00300 DIM SPC $ OF 80 , TAL $ OF 10 , ALFA $ OF 28 , SVAR $ OF 8 , PRGFL $ OF 8
00310 DIM PROGRAM $ OF 17
00320 REAL RESRV , PPAR
00330 INTEGER OK , TRUE , FALSE , I , J
00340 // Hj{lpevariable
00350 DIM A_KTONR $ OF 8
00360 INTEGER HIGH , LOW , POS , IDXPOS
00370 // Variable…til…filen…SYSPARA
00380 DIM SYSPARA $ OF 17
00390 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00400 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00410 // Variable…til…filen…@@PARAM
00420 DIM PARAM $ OF 17
00430 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 8
00440 REAL MOMS
00450 DIM ST_DATO $ OF 8
00460 INTEGER ANT_PER , PER_NR
00470 // Variable…til…filen…@@KTOIDX
00480 DIM KTOIDX $ OF 17
00490 INTEGER I_H\JREC , I_MAXREC
00500 DIM KTONR $ OF 8
00510 INTEGER RECNR
00520 // Variable…til…filen…@@FKTONR
00530 DIM FKTONR $ OF 17
00540 // Variable…til…filen…@@KTOGRP
00550 DIM KTOGRP $ OF 17
00560 DIM A_KTOGRP $ OF 8
00570 // Variable…til…filen…@@KASSE
00580 DIM KASSE $ OF 17
00590 INTEGER K_H\JREC , K_MAXREC , S_NR_KASSE
00600 // Variable…til…filen…@@DG_POS
00610 DIM DG_POS $ OF 17
00620 INTEGER P_H\JREC , P_MAXREC , S_NR_DG_POS
00630 // Variable…til…filen…@@DRIFT\
00640 DIM DRIFT\ $ OF 17
00650 DIM PRIMODAT $ OF 6
00660 ENDPROC DIMENSIONER
00670
00680 PROC INITIER
00690 LET PRGFL $ := "DP2"
00700 LET PROGRAM $ := PRGFL $ + ":SYS"
00710 LET TAL $ := "1234567890"
00720 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00730 LET SPC $ := "……………………………………………………………………………………………………………………"
00740 LET SPC $ := SPC $ + SPC $
00750 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00760 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00770 EXEC OPENFIL ( SYSPARA $ , "R" )
00780 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00790 EXEC TERMINAL_IDX
00800 CLOSE SYSPARA $
00810 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00820 EXEC OPENFIL ( PARAM $ , "W" )
00830 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00840 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00850 LET FKTONR $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "FKTONR"
00860 LET KTOGRP $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOGRP"
00870 LET KASSE $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KASSE"
00880 LET DG_POS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DG_POS"
00890 LET DRIFT\ $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DRIFT\"
00900 EXEC OPENFIL ( DRIFT\ $ , "W" )
00910 EXEC OPENFIL ( KTOIDX $ , "R" )
00920 EXEC OPENFIL ( FKTONR $ , "W" )
00930 EXEC OPENFIL ( KTOGRP $ , "W" )
00940 EXEC OPENFIL ( KASSE $ , "W" )
00950 EXEC OPENFIL ( DG_POS $ , "W" )
00960 ENDPROC INITIER
00970
00980 PROC MENU
00990 EXEC OVERSKRIFT ( "[ndring…af…parameteroplysninger" , 4 )
01000 PRINT "<C0808>1.……Firmanavn"
01010 PRINT "<C0809>2.……Momsprocent"
01020 PRINT "<C0810>3.……N{ste…nummer…p}…kasserapport"
01030 PRINT "<C0811>4.……N{ste…nummer…p}…konteringsliste"
01040 PRINT "<C0812>5.……Startdato…for…regnskabs}ret"
01050 PRINT "<C0813>6.……Antal…perioder…i…regnskabs}ret"
01060 PRINT "<C0814>7.……Nr.…p}…nuv{rende…regnskabsperiode"
01070 PRINT "<C0815>8.……[ndring…af…terminalkoder…m.m."
01080 PRINT "<SC0817>RETURN…=…Programfordeler"
01090 IF ALSE THEN
01100 PRINT "<SC0211>Kontonumre:"
01110 PRINT "<C0212>9.……kasse"
01120 PRINT "<C0213>10.…bank"
01130 PRINT "<C0214>11.…giro"
01140 PRINT "<C0215>12.…kassedifferencer"
01150 PRINT "<C0216>13.…indg.…moms"
01160 PRINT "<C0217>14.…udg.…moms"
01170 PRINT "<SC0218>15.…resultatopg|relse"
01180 PRINT "<SC0219>16.…balance"
01190 PRINT "<SC0220>17.…f|rste…balancekonto"
01200 PRINT "<C0221>18.…]rets…resultat"
01210 PRINT "<C2711>Kontonumre:"
01220 PRINT "<C2712>19.…Privatforbrug"
01230 PRINT "<SC2714>Kontogrupper:"
01240 PRINT "<SC2715>20.…Oms{tning"
01250 PRINT "<SC2716>21.…Variable…omkostninger"
01260 PRINT "<SC2717>22.…Andre…omkostninger"
01270 PRINT "<SC2718>23.…Personale…omkostninger"
01280 PRINT "<SC2719>24.…Afskrivninger"
01290 PRINT "<SC2720>25.…Finansieringsindt{gter"
01300 PRINT "<SC2721>26.…Finansieringsomk."
01310 PRINT "<SC5412>27.…Ekstraordin{re…poster"
01320 PRINT "<SC5411>Kontogrupper:"
01330 PRINT "<SC5413>28.…Anl{gsaktiver"
01340 PRINT "<SC5414>29.…Varebeholdninger"
01350 PRINT "<SC5415>30.…Tilgodehavender"
01360 PRINT "<SC5416>31.…Debitorer"
01370 PRINT "<SC5417>32.…Likvide…beh.…m.v."
01380 PRINT "<SC5418>33.…Egenkapital"
01390 PRINT "<SC5419>34.…Hens{ttelser"
01400 PRINT "<SC5420>35.…G{ld"
01410 PRINT "<C5421>36.…Kreditorer"
01420 ENDIF
01430 REPEAT
01440 EDIT "<SC0223>Indtast…linienummer…" : SVAR $ ( 1 : 2 )
01450 EXEC SL_FEJLLINIE
01460 IF SVAR $ IN "……" THEN EXIT
01470 IF SVAR $ ( 1 ) IN TAL $ THEN
01480 EXEC FEJL ( "Ulovligt…tegn:…'" + SVAR $ ( 1 ) + "'" )
01490 ELSE
01500 IF SVAR $ ( 2 ) IN TAL $ + "…" THEN
01510 EXEC FEJL ( "Ulovligt…tegn:…'" + SVAR $ ( 2 ) + "'" )
01520 ENDIF
01530 ENDIF
01540 IF K THEN
01550 EXEC TAL_CONTROL ( SVAR $ )
01560 IF ASC ( SVAR $ ) =< 8 THEN EXEC RET_LINIE ( ASC ( SVAR $ ) )
01570 LET SVAR $ := ""
01580 ENDIF
01590 UNTIL FALSE
01600 ENDPROC MENU
01610
01620 PROC RET_LINIE ( R_LIN )
01630 PRINT "<SC0123>" ; SPC $ ( 1 : 78 )
01640 CASE R_LIN OF
01650 WHILE 1
01660 LET FIRMANAVN $ := ""
01670 PRINT "<SC1623>.............................."
01680 EDIT "<SC0223>1.……Firmanavn:…" : FIRMANAVN $
01690 PUT PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
01700 PRINT "<SC0101>" ; SPC $ ( 1 : 50 )
01710 PRINT "<SC0101>Firmanavn:…" ; FIRMANAVN $
01720 WHILE 2
01730 LET SVAR $ := CHR$ ( MOMS , 2 , 2 )
01740 REPEAT
01750 PRINT "<SC0223>" ; SPC $ ( 1 : 20 )
01760 EDIT "<SC0223>2.……Momsprocent:…" : SVAR $
01770 EXEC SL_FEJLLINIE
01780 EXEC TAL_CONTROL ( SVAR $ )
01790 UNTIL OK
01800 LET MOMS := ASC ( SVAR $ )
01810 PUT PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
01820 WHILE 3
01830 GET KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE
01840 REPEAT
01850 LET SVAR $ := CHR$ ( S_NR_KASSE , 4 )
01860 PRINT "<SC0223>" ; SPC $ ( 1 : 40 )
01870 EDIT "<SC0223>3.……N{ste…nummer…p}…kasserapport:…" : SVAR $ ( 1 : 4 )
01880 EXEC SL_FEJLLINIE
01890 EXEC TAL_CONTROL ( SVAR $ )
01900 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
01910 UNTIL OK
01920 LET S_NR_KASSE := ASC ( SVAR $ )
01930 PUT KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE
01940 WHILE 4
01950 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS
01960 REPEAT
01970 LET SVAR $ := CHR$ ( S_NR_DG_POS , 4 )
01980 PRINT "<SC0223>" ; SPC $ ( 1 : 40 )
01990 EDIT "<SC0223>3.……N{ste…nummer…p}…konteringsliste:…" : SVAR $ ( 1 : 4 )
02000 EXEC SL_FEJLLINIE
02010 EXEC TAL_CONTROL ( SVAR $ )
02020 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
02030 UNTIL OK
02040 LET S_NR_DG_POS := ASC ( SVAR $ )
02050 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS
02060 WHILE 5
02070 GET DRIFT\ $ , 1 : PRIMODAT $
02080 REPEAT
02090 EDIT "<SC0223>16.…Startdato…for…regnskabs}ret…(}}mmdd):…" : PRIMODAT $
02100 EXEC SL_FEJLLINIE
02110 EXEC DATO_CONTROL ( PRIMODAT $ )
02120 UNTIL OK
02130 PUT DRIFT\ $ , 1 : PRIMODAT $
02140 WHILE 6 , 7
02150 GET PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
02160 CASE R_LIN OF
02170 WHILE 6
02180 REPEAT
02190 LET SVAR $ := CHR$ ( ANT_PER , 2 )
02200 EDIT "<SC0223>6.……Antal…perioder…i…regnskabs}ret:…" : SVAR $ ( 1 : 2 )
02210 EXEC TAL_CONTROL ( SVAR $ )
02220 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
02230 UNTIL OK
02240 LET ANT_PER := ASC ( SVAR $ )
02250 WHILE 7
02260 REPEAT
02270 LET SVAR $ := CHR$ ( PER_NR , 2 )
02280 EDIT "<SC0223>7.……Nr.…p}…nuv{rende…regnskabsperiode:…" : SVAR $ ( 1 : 2 )
02290 EXEC TAL_CONTROL ( SVAR $ )
02300 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
02310 UNTIL OK
02320 LET PER_NR := ASC ( SVAR $ )
02330 ENDCASE
02340 PUT PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
02350 WHILE 8
02360 LET PROGRAM $ := PRGFL $ + ":SYSPTK"
02370 CHAIN PROGRAM $
02380 WHILE 9
02390 EXEC [NDRE_KTONR ( "9.……Kontonummer…for…kasse:…" , 1 )
02400 WHILE 10
02410 EXEC [NDRE_KTONR ( "10.…Kontonummer…for…bank:…" , 2 )
02420 WHILE 11
02430 EXEC [NDRE_KTONR ( "11.…Kontonummer…for…giro:…" , 3 )
02440 WHILE 12
02450 EXEC [NDRE_KTONR ( "12.…Kontonummer…for…kassedifferencer:…" , 4 )
02460 WHILE 13
02470 EXEC [NDRE_KTONR ( "13.…Kontonummer…for…indg.…moms:…" , 5 )
02480 WHILE 14
02490 EXEC [NDRE_KTONR ( "14.…Kontonummer…for…udg.…moms:…" , 6 )
02500 WHILE 15
02510 EXEC [NDRE_KTONR ( "15.…Kontonummer…for…resultatopg|relse:…" , 7 )
02520 WHILE 16
02530 EXEC [NDRE_KTONR ( "16.…Kontonummer…for…balance:…" , 8 )
02540 WHILE 17
02550 EXEC [NDRE_KTONR ( "17.…Kontonummer…for…f|rste…balancekonto:…" , 9 )
02560 WHILE 18
02570 EXEC [NDRE_KTONR ( "18.…Kontonummer…for…}rets…resultat:…" , 10 )
02580 WHILE 19
02590 EXEC [NDRE_KTONR ( "19.…Kontonummer…for…privatforbrug:…" , 11 )
02600 WHILE 20
02610 EXEC [NDRE_KTOGRP ( "20.…Kontogruppe…for…oms{tning:…" , 1 )
02620 WHILE 21
02630 EXEC [NDRE_KTOGRP ( "21.…Kontogruppe…for…variable…omkostninger:…" , 2 )
02640 WHILE 22
02650 EXEC [NDRE_KTOGRP ( "22.…Kontogruppe…for…andre…omkostninger:…" , 3 )
02660 WHILE 23
02670 EXEC [NDRE_KTOGRP ( "23.…Kontogruppe…for…personale…omkostninger:…" , 4 )
02680 WHILE 24
02690 EXEC [NDRE_KTOGRP ( "24.…Kontogruppe…for…afskrivninger:…" , 5 )
02700 WHILE 25
02710 EXEC [NDRE_KTOGRP ( "25.…Kontogruppe…for…finansieringsindt{gter:…" , 6 )
02720 WHILE 26
02730 EXEC [NDRE_KTOGRP ( "26.…Kontogruppe…for…finansieringsomk.:…" , 7 )
02740 WHILE 27
02750 EXEC [NDRE_KTOGRP ( "27.…Kontogruppe…for…ekstraordin{re…poster:…" , 8 )
02760 WHILE 28
02770 EXEC [NDRE_KTOGRP ( "28.…Kontogruppe…for…anl{gsaktiver:…" , 9 )
02780 WHILE 29
02790 EXEC [NDRE_KTOGRP ( "29.…Kontogruppe…for…varebeholdninger:…" , 10 )
02800 WHILE 30
02810 EXEC [NDRE_KTOGRP ( "30.…Kontogruppe…for…tilgodehavender:…" , 11 )
02820 WHILE 31
02830 EXEC [NDRE_KTOGRP ( "31.…Kontogruppe…for…debitorer:…" , 12 )
02840 WHILE 32
02850 EXEC [NDRE_KTOGRP ( "32.…Kontogruppe…for…likvide…beholdninger…m.v.:…" , 13 )
02860 WHILE 33
02870 EXEC [NDRE_KTOGRP ( "33.…Kontogruppe…for…egenkapital:…" , 14 )
02880 WHILE 34
02890 EXEC [NDRE_KTOGRP ( "34.…Kontogruppe…for…hens{ttelser:…" , 15 )
02900 WHILE 35
02910 EXEC [NDRE_KTOGRP ( "35.…Kontogruppe…for…g{ld:…" , 16 )
02920 WHILE 36
02930 EXEC [NDRE_KTOGRP ( "36.…Kontogruppe…for…kreditorer:…" , 17 )
02940 ENDCASE
02950 PRINT "<SC0123>" ; SPC $ ( 1 : 78 )
02960 ENDPROC RET_LINIE
02970
02980 PROC OPENFIL ( FNAVN $ , WAY $ )
02990 REPEAT
03000 IF AY $ = "W" OR WAY $ = "w" THEN
03010 OPEN FNAVN $ , W
03020 ELSE
03030 OPEN FNAVN $ , R
03040 ENDIF
03050 IF ( FNAVN $ ) THEN
03060 PRINT "<SC2301>" ; CHR$ ( 7 )
03070 IF ( FNAVN $ ) = 6 THEN
03080 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
03090 INPUT "" : SVAR $
03100 ELSE
03110 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
03120 PRINT "<S>" ; FNAVN $ ; "…***"
03130 INPUT "" : SVAR $
03140 PRINT "<C0102>" ; SPC $
03150 ENDIF
03160 ENDIF
03170 UNTIL NOT ╱cd╱ ( FNAVN $ )
03180 ENDPROC OPENFIL
03190 PROC TERMINAL_IDX
03200 LET PPAR := 5 ; RESRV := 0
03210 CALL E"DDE:PRES"
03220 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
03230 ENDPROC TERMINAL_IDX
03240 PROC SL_FEJLLINIE
03250 LET OK := TRUE
03260 PRINT "<C0102>" ; SPC $
03270 ENDPROC SL_FEJLLINIE
03280
03290 PROC FEJL ( ST $ )
03300 LET OK := FALSE
03310 CURSOR 36 - ( ╱cb╱ ( ST $ ) / 2 ) , 2
03320 PRINT "<S>***…" + ST $ + "…***" ; CHR$ ( 7 )
03330 ENDPROC FEJL
03340 PROC OVERSKRIFT ( ST $ , L )
03350 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
03360 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
03370 PRINT SYST_DAT $ ( 5 : 2 )
03380 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
03390 PRINT "***…" ; ST $ ; "…***"
03400 ENDPROC OVERSKRIFT
03410 PROC TAL_CONTROL ( REF RST $ )
03420 LET J := 0 ; OK := TRUE
03430 FOR I := 1 TO ( RST $ ) DO
03440 IF RST $ ( I ) IN "0123456789." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
03450 NEXT I
03460 IF = 0 THEN
03470 LET OK := FALSE
03480 ELSE
03490 LET RST $ := RST $ ( 1 : J )
03500 ENDIF
03510 ENDPROC TAL_CONTROL
03520
03530 PROC FIND_KTO ( REF R_KTONR $ )
03540 LET OK := FALSE
03550 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
03560 LET LOW := 1 ; HIGH := I_H\JREC + 1 ; POS := 2
03570 IF IGH > 1 THEN
03580 REPEAT
03590 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
03600 GET KTOIDX $ , POS : KTONR $ , RECNR
03610 IF TONR $ > R_KTONR $ THEN
03620 LET HIGH := POS
03630 ELSE
03640 IF TONR $ < R_KTONR $ THEN
03650 LET LOW := POS
03660 ENDIF
03670 ENDIF
03680 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
03690 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
03700 ENDIF
03710 LET FIND_KTO := POS
03720 ENDPROC FIND_KTO
03730 PROC DATO_CONTROL ( REF RST $ )
03740 LET OK := TRUE
03750 IF RST $ ( 1 : 2 ) < "00" OR RST $ ( 1 : 2 ) > "99" THEN LET OK := FALSE
03760 IF RST $ ( 3 : 2 ) < "01" OR RST $ ( 3 : 2 ) > "12" THEN LET OK := FALSE
03770 IF RST $ ( 5 : 2 ) < "01" OR RST $ ( 5 : 2 ) > "31" THEN LET OK := FALSE
03780 IF NOT OK THEN EXEC FEJL ( "Ulovlig…dato:…'" + RST $ + "'" )
03790 ENDPROC DATO_CONTROL
03800
03810 PROC [NDRE_KTONR ( ST2 $ , PNR )
03820 LET A_KTONR $ := ""
03830 GET FKTONR $ , PNR : A_KTONR $
03840 REPEAT
03850 PRINT "<SC0223>" ; ST2 $
03860 CURSOR 2 + ╱cb╱ ( ST2 $ ) , 23
03870 EDIT "" : A_KTONR $
03880 EXEC SL_FEJLLINIE
03890 LET IDXPOS := FIND_KTO ( A_KTONR $ )
03900 IF NOT OK THEN EXEC FEJL ( "Konto…er…ikke…oprettet" )
03910 UNTIL OK
03920 PUT FKTONR $ , PNR : A_KTONR $
03930 ENDPROC [NDRE_KTONR
03940
03950 PROC [NDRE_KTOGRP ( ST2 $ , PNR )
03960 LET A_KTOGRP $ := ""
03970 GET KTOGRP $ , PNR : A_KTOGRP $
03980 PRINT "<SC0223>" ; ST2 $
03990 CURSOR 2 + ╱cb╱ ( ST2 $ ) , 23
04000 EDIT "" : A_KTOGRP $
04010 PUT KTOGRP $ , PNR : A_KTOGRP $
04020 ENDPROC [NDRE_KTOGRP
38382 ╱00╱ ╱00╱
0x0000…0038 (0,) 9626 00100 // **************************************************
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 00110 // *………………………………………………………………………………………………………………………………*
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 00120 // *…………………………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 00130 // *………………………………………………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 00140 // *………………………………………………………………………………………………………………………………*
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 00150 // *…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 00160 // *…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 00170 // *………………………………………………………………………………………………………………………………*
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 00180 // *…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 00190 // *………………………………………………………………………………………………………………………………*
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 = ╱20╱…╱ // 0x20d @0x15
0x01f8…0230 at0016 = ╱20╱…╱ // 0x20e @0x16
0x01f8…0230 at0017 = ╱20╱…╱ // 0x20f @0x17
0x01f8…0230 at0018 = ╱20╱…╱ // 0x210 @0x18
0x01f8…0230 at0019 = ╱20╱…╱ // 0x211 @0x19
0x01f8…0230 at001a = ╱20╱…╱ // 0x212 @0x1a
0x01f8…0230 at001b = ╱20╱…╱ // 0x213 @0x1b
0x01f8…0230 at001c = ╱20╱…╱ // 0x214 @0x1c
0x01f8…0230 at001d = ╱20╱…╱ // 0x215 @0x1d
0x01f8…0230 at001e = ╱20╱…╱ // 0x216 @0x1e
0x01f8…0230 at001f = ╱20╱…╱ // 0x217 @0x1f
0x01f8…0230 at0020 = ╱20╱…╱ // 0x218 @0x20
0x01f8…0230 at0021 = ╱20╱…╱ // 0x219 @0x21
0x01f8…0230 at0022 = ╱20╱…╱ // 0x21a @0x22
0x01f8…0230 at0023 = ╱20╱…╱ // 0x21b @0x23
0x01f8…0230 at0024 = ╱20╱…╱ // 0x21c @0x24
0x01f8…0230 at0025 = ╱20╱…╱ // 0x21d @0x25
0x01f8…0230 at0026 = ╱20╱…╱ // 0x21e @0x26
0x01f8…0230 at0027 = ╱20╱…╱ // 0x21f @0x27
0x01f8…0230 at0028 = ╱20╱…╱ // 0x220 @0x28
0x01f8…0230 at0029 = ╱20╱…╱ // 0x221 @0x29
0x01f8…0230 at002a = ╱20╱…╱ // 0x222 @0x2a
0x01f8…0230 at002b = ╱20╱…╱ // 0x223 @0x2b
0x01f8…0230 at002c = ╱20╱…╱ // 0x224 @0x2c
0x01f8…0230 at002d = ╱20╱…╱ // 0x225 @0x2d
0x01f8…0230 at002e = ╱20╱…╱ // 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 00200 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
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 = ╱28╱(╱ // 0x239 @0x9
0x0230…0268 at000a = ╱43╱C╱ // 0x23a @0xa
0x0230…0268 at000b = ╱29╱)╱ // 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 = ╱3a╱:╱ // 0x243 @0x13
0x0230…0268 at0014 = ╱20╱…╱ // 0x244 @0x14
0x0230…0268 at0015 = ╱66╱f╱ // 0x245 @0x15
0x0230…0268 at0016 = ╱6f╱o╱ // 0x246 @0x16
0x0230…0268 at0017 = ╱72╱r╱ // 0x247 @0x17
0x0230…0268 at0018 = ╱6c╱l╱ // 0x248 @0x18
0x0230…0268 at0019 = ╱61╱a╱ // 0x249 @0x19
0x0230…0268 at001a = ╱67╱g╱ // 0x24a @0x1a
0x0230…0268 at001b = ╱65╱e╱ // 0x24b @0x1b
0x0230…0268 at001c = ╱74╱t╱ // 0x24c @0x1c
0x0230…0268 at001d = ╱20╱…╱ // 0x24d @0x1d
0x0230…0268 at001e = ╱73╱s╱ // 0x24e @0x1e
0x0230…0268 at001f = ╱79╱y╱ // 0x24f @0x1f
0x0230…0268 at0020 = ╱73╱s╱ // 0x250 @0x20
0x0230…0268 at0021 = ╱74╱t╱ // 0x251 @0x21
0x0230…0268 at0022 = ╱69╱i╱ // 0x252 @0x22
0x0230…0268 at0023 = ╱6d╱m╱ // 0x253 @0x23
0x0230…0268 at0024 = ╱65╱e╱ // 0x254 @0x24
0x0230…0268 at0025 = ╱20╱…╱ // 0x255 @0x25
0x0230…0268 at0026 = ╱61╱a╱ // 0x256 @0x26
0x0230…0268 at0027 = ╱2f╱/╱ // 0x257 @0x27
0x0230…0268 at0028 = ╱73╱s╱ // 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 00210 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
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 = ╱20╱…╱ // 0x271 @0x9
0x0268…02a0 at000a = ╱20╱…╱ // 0x272 @0xa
0x0268…02a0 at000b = ╱20╱…╱ // 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 = ╱20╱…╱ // 0x27b @0x13
0x0268…02a0 at0014 = ╱20╱…╱ // 0x27c @0x14
0x0268…02a0 at0015 = ╱4b╱K╱ // 0x27d @0x15
0x0268…02a0 at0016 = ╱6c╱l╱ // 0x27e @0x16
0x0268…02a0 at0017 = ╱6f╱o╱ // 0x27f @0x17
0x0268…02a0 at0018 = ╱6b╱k╱ // 0x280 @0x18
0x0268…02a0 at0019 = ╱6b╱k╱ // 0x281 @0x19
0x0268…02a0 at001a = ╱65╱e╱ // 0x282 @0x1a
0x0268…02a0 at001b = ╱62╱b╱ // 0x283 @0x1b
0x0268…02a0 at001c = ╱61╱a╱ // 0x284 @0x1c
0x0268…02a0 at001d = ╱6b╱k╱ // 0x285 @0x1d
0x0268…02a0 at001e = ╱6b╱k╱ // 0x286 @0x1e
0x0268…02a0 at001f = ╱65╱e╱ // 0x287 @0x1f
0x0268…02a0 at0020 = ╱6e╱n╱ // 0x288 @0x20
0x0268…02a0 at0021 = ╱20╱…╱ // 0x289 @0x21
0x0268…02a0 at0022 = ╱32╱2╱ // 0x28a @0x22
0x0268…02a0 at0023 = ╱30╱0╱ // 0x28b @0x23
0x0268…02a0 at0024 = ╱2c╱,╱ // 0x28c @0x24
0x0268…02a0 at0025 = ╱20╱…╱ // 0x28d @0x25
0x0268…02a0 at0026 = ╱47╱G╱ // 0x28e @0x26
0x0268…02a0 at0027 = ╱6a╱j╱ // 0x28f @0x27
0x0268…02a0 at0028 = ╱65╱e╱ // 0x290 @0x28
0x0268…02a0 at0029 = ╱6c╱l╱ // 0x291 @0x29
0x0268…02a0 at002a = ╱6c╱l╱ // 0x292 @0x2a
0x0268…02a0 at002b = ╱65╱e╱ // 0x293 @0x2b
0x0268…02a0 at002c = ╱72╱r╱ // 0x294 @0x2c
0x0268…02a0 at002d = ╱75╱u╱ // 0x295 @0x2d
0x0268…02a0 at002e = ╱70╱p╱ // 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 00220 // *………………………………………7400……Herning……………………………………………………*
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 = ╱37╱7╱ // 0x2b5 @0x15
0x02a0…02d8 at0016 = ╱34╱4╱ // 0x2b6 @0x16
0x02a0…02d8 at0017 = ╱30╱0╱ // 0x2b7 @0x17
0x02a0…02d8 at0018 = ╱30╱0╱ // 0x2b8 @0x18
0x02a0…02d8 at0019 = ╱20╱…╱ // 0x2b9 @0x19
0x02a0…02d8 at001a = ╱20╱…╱ // 0x2ba @0x1a
0x02a0…02d8 at001b = ╱48╱H╱ // 0x2bb @0x1b
0x02a0…02d8 at001c = ╱65╱e╱ // 0x2bc @0x1c
0x02a0…02d8 at001d = ╱72╱r╱ // 0x2bd @0x1d
0x02a0…02d8 at001e = ╱6e╱n╱ // 0x2be @0x1e
0x02a0…02d8 at001f = ╱69╱i╱ // 0x2bf @0x1f
0x02a0…02d8 at0020 = ╱6e╱n╱ // 0x2c0 @0x20
0x02a0…02d8 at0021 = ╱67╱g╱ // 0x2c1 @0x21
0x02a0…02d8 at0022 = ╱20╱…╱ // 0x2c2 @0x22
0x02a0…02d8 at0023 = ╱20╱…╱ // 0x2c3 @0x23
0x02a0…02d8 at0024 = ╱20╱…╱ // 0x2c4 @0x24
0x02a0…02d8 at0025 = ╱20╱…╱ // 0x2c5 @0x25
0x02a0…02d8 at0026 = ╱20╱…╱ // 0x2c6 @0x26
0x02a0…02d8 at0027 = ╱20╱…╱ // 0x2c7 @0x27
0x02a0…02d8 at0028 = ╱20╱…╱ // 0x2c8 @0x28
0x02a0…02d8 at0029 = ╱20╱…╱ // 0x2c9 @0x29
0x02a0…02d8 at002a = ╱20╱…╱ // 0x2ca @0x2a
0x02a0…02d8 at002b = ╱20╱…╱ // 0x2cb @0x2b
0x02a0…02d8 at002c = ╱20╱…╱ // 0x2cc @0x2c
0x02a0…02d8 at002d = ╱20╱…╱ // 0x2cd @0x2d
0x02a0…02d8 at002e = ╱20╱…╱ // 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 00230 // **************************************************
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 = ╱2a╱*╱ // 0x2de @0x6
0x02d8…0310 at0007 = ╱2a╱*╱ // 0x2df @0x7
0x02d8…0310 at0008 = ╱2a╱*╱ // 0x2e0 @0x8
0x02d8…0310 at0009 = ╱2a╱*╱ // 0x2e1 @0x9
0x02d8…0310 at000a = ╱2a╱*╱ // 0x2e2 @0xa
0x02d8…0310 at000b = ╱2a╱*╱ // 0x2e3 @0xb
0x02d8…0310 at000c = ╱2a╱*╱ // 0x2e4 @0xc
0x02d8…0310 at000d = ╱2a╱*╱ // 0x2e5 @0xd
0x02d8…0310 at000e = ╱2a╱*╱ // 0x2e6 @0xe
0x02d8…0310 at000f = ╱2a╱*╱ // 0x2e7 @0xf
0x02d8…0310 at0010 = ╱2a╱*╱ // 0x2e8 @0x10
0x02d8…0310 at0011 = ╱2a╱*╱ // 0x2e9 @0x11
0x02d8…0310 at0012 = ╱2a╱*╱ // 0x2ea @0x12
0x02d8…0310 at0013 = ╱2a╱*╱ // 0x2eb @0x13
0x02d8…0310 at0014 = ╱2a╱*╱ // 0x2ec @0x14
0x02d8…0310 at0015 = ╱2a╱*╱ // 0x2ed @0x15
0x02d8…0310 at0016 = ╱2a╱*╱ // 0x2ee @0x16
0x02d8…0310 at0017 = ╱2a╱*╱ // 0x2ef @0x17
0x02d8…0310 at0018 = ╱2a╱*╱ // 0x2f0 @0x18
0x02d8…0310 at0019 = ╱2a╱*╱ // 0x2f1 @0x19
0x02d8…0310 at001a = ╱2a╱*╱ // 0x2f2 @0x1a
0x02d8…0310 at001b = ╱2a╱*╱ // 0x2f3 @0x1b
0x02d8…0310 at001c = ╱2a╱*╱ // 0x2f4 @0x1c
0x02d8…0310 at001d = ╱2a╱*╱ // 0x2f5 @0x1d
0x02d8…0310 at001e = ╱2a╱*╱ // 0x2f6 @0x1e
0x02d8…0310 at001f = ╱2a╱*╱ // 0x2f7 @0x1f
0x02d8…0310 at0020 = ╱2a╱*╱ // 0x2f8 @0x20
0x02d8…0310 at0021 = ╱2a╱*╱ // 0x2f9 @0x21
0x02d8…0310 at0022 = ╱2a╱*╱ // 0x2fa @0x22
0x02d8…0310 at0023 = ╱2a╱*╱ // 0x2fb @0x23
0x02d8…0310 at0024 = ╱2a╱*╱ // 0x2fc @0x24
0x02d8…0310 at0025 = ╱2a╱*╱ // 0x2fd @0x25
0x02d8…0310 at0026 = ╱2a╱*╱ // 0x2fe @0x26
0x02d8…0310 at0027 = ╱2a╱*╱ // 0x2ff @0x27
0x02d8…0310 at0028 = ╱2a╱*╱ // 0x300 @0x28
0x02d8…0310 at0029 = ╱2a╱*╱ // 0x301 @0x29
0x02d8…0310 at002a = ╱2a╱*╱ // 0x302 @0x2a
0x02d8…0310 at002b = ╱2a╱*╱ // 0x303 @0x2b
0x02d8…0310 at002c = ╱2a╱*╱ // 0x304 @0x2c
0x02d8…0310 at002d = ╱2a╱*╱ // 0x305 @0x2d
0x02d8…0310 at002e = ╱2a╱*╱ // 0x306 @0x2e
0x02d8…0310 at002f = ╱2a╱*╱ // 0x307 @0x2f
0x02d8…0310 at0030 = ╱2a╱*╱ // 0x308 @0x30
0x02d8…0310 at0031 = ╱2a╱*╱ // 0x309 @0x31
0x02d8…0310 at0032 = ╱2a╱*╱ // 0x30a @0x32
0x02d8…0310 at0033 = ╱2a╱*╱ // 0x30b @0x33
0x02d8…0310 at0034 = ╱2a╱*╱ // 0x30c @0x34
0x02d8…0310 at0035 = ╱2a╱*╱ // 0x30d @0x35
0x02d8…0310 at0036 = ╱2a╱*╱ // 0x30e @0x36
0x02d8…0310 at0037 = EOL // 0x30f @0x37
0x02d8…0310 }
0x0310…0321 990f 00240 EXEC DIMENSIONER
0x0310…0321 LineComal80 {
0x0310…0321 ptr = 0x990f // 0x310 @0x0
0x0310…0321 lno = 0x00f0 // 0x312 @0x2
0x0310…0321 at0004 = ╱9d╱ EXEC ╱ // 0x314 @0x4
0x0310…0321 at0005 = ╱44╱D╱ // 0x315 @0x5
0x0310…0321 at0006 = ╱49╱I╱ // 0x316 @0x6
0x0310…0321 at0007 = ╱4d╱M╱ // 0x317 @0x7
0x0310…0321 at0008 = ╱45╱E╱ // 0x318 @0x8
0x0310…0321 at0009 = ╱4e╱N╱ // 0x319 @0x9
0x0310…0321 at000a = ╱53╱S╱ // 0x31a @0xa
0x0310…0321 at000b = ╱49╱I╱ // 0x31b @0xb
0x0310…0321 at000c = ╱4f╱O╱ // 0x31c @0xc
0x0310…0321 at000d = ╱4e╱N╱ // 0x31d @0xd
0x0310…0321 at000e = ╱45╱E╱ // 0x31e @0xe
0x0310…0321 at000f = ╱52╱R╱ // 0x31f @0xf
0x0310…0321 at0010 = EOL // 0x320 @0x10
0x0310…0321 }
0x0321…032e 991c 00250 EXEC INITIER
0x0321…032e LineComal80 {
0x0321…032e ptr = 0x991c // 0x321 @0x0
0x0321…032e lno = 0x00fa // 0x323 @0x2
0x0321…032e at0004 = ╱9d╱ EXEC ╱ // 0x325 @0x4
0x0321…032e at0005 = ╱49╱I╱ // 0x326 @0x5
0x0321…032e at0006 = ╱4e╱N╱ // 0x327 @0x6
0x0321…032e at0007 = ╱49╱I╱ // 0x328 @0x7
0x0321…032e at0008 = ╱54╱T╱ // 0x329 @0x8
0x0321…032e at0009 = ╱49╱I╱ // 0x32a @0x9
0x0321…032e at000a = ╱45╱E╱ // 0x32b @0xa
0x0321…032e at000b = ╱52╱R╱ // 0x32c @0xb
0x0321…032e at000c = EOL // 0x32d @0xc
0x0321…032e }
0x032e…0338 9926 00260 EXEC MENU
0x032e…0338 LineComal80 {
0x032e…0338 ptr = 0x9926 // 0x32e @0x0
0x032e…0338 lno = 0x0104 // 0x330 @0x2
0x032e…0338 at0004 = ╱9d╱ EXEC ╱ // 0x332 @0x4
0x032e…0338 at0005 = ╱4d╱M╱ // 0x333 @0x5
0x032e…0338 at0006 = ╱45╱E╱ // 0x334 @0x6
0x032e…0338 at0007 = ╱4e╱N╱ // 0x335 @0x7
0x032e…0338 at0008 = ╱55╱U╱ // 0x336 @0x8
0x032e…0338 at0009 = EOL // 0x337 @0x9
0x032e…0338 }
0x0338…0346 9934 00270 CHAIN PROGRAM $
0x0338…0346 LineComal80 {
0x0338…0346 ptr = 0x9934 // 0x338 @0x0
0x0338…0346 lno = 0x010e // 0x33a @0x2
0x0338…0346 at0004 = ╱ac╱ CHAIN ╱ // 0x33c @0x4
0x0338…0346 at0005 = ╱50╱P╱ // 0x33d @0x5
0x0338…0346 at0006 = ╱52╱R╱ // 0x33e @0x6
0x0338…0346 at0007 = ╱4f╱O╱ // 0x33f @0x7
0x0338…0346 at0008 = ╱47╱G╱ // 0x340 @0x8
0x0338…0346 at0009 = ╱52╱R╱ // 0x341 @0x9
0x0338…0346 at000a = ╱41╱A╱ // 0x342 @0xa
0x0338…0346 at000b = ╱4d╱M╱ // 0x343 @0xb
0x0338…0346 at000c = ╱ef╱ $ ╱ // 0x344 @0xc
0x0338…0346 at000d = EOL // 0x345 @0xd
0x0338…0346 }
0x0346…0358 9946 00280 PROC DIMENSIONER
0x0346…0358 LineComal80 {
0x0346…0358 ptr = 0x9946 // 0x346 @0x0
0x0346…0358 lno = 0x0118 // 0x348 @0x2
0x0346…0358 at0004 = ╱9e00╱ PROC ╱ // 0x34a @0x4
0x0346…0358 at0006 = ╱44╱D╱ // 0x34c @0x6
0x0346…0358 at0007 = ╱49╱I╱ // 0x34d @0x7
0x0346…0358 at0008 = ╱4d╱M╱ // 0x34e @0x8
0x0346…0358 at0009 = ╱45╱E╱ // 0x34f @0x9
0x0346…0358 at000a = ╱4e╱N╱ // 0x350 @0xa
0x0346…0358 at000b = ╱53╱S╱ // 0x351 @0xb
0x0346…0358 at000c = ╱49╱I╱ // 0x352 @0xc
0x0346…0358 at000d = ╱4f╱O╱ // 0x353 @0xd
0x0346…0358 at000e = ╱4e╱N╱ // 0x354 @0xe
0x0346…0358 at000f = ╱45╱E╱ // 0x355 @0xf
0x0346…0358 at0010 = ╱52╱R╱ // 0x356 @0x10
0x0346…0358 at0011 = EOL // 0x357 @0x11
0x0346…0358 }
0x0358…036f 995d 00290 // Standard…variable
0x0358…036f LineComal80 {
0x0358…036f ptr = 0x995d // 0x358 @0x0
0x0358…036f lno = 0x0122 // 0x35a @0x2
0x0358…036f at0004 = ╱89╱ // ╱ // 0x35c @0x4
0x0358…036f at0005 = ╱53╱S╱ // 0x35d @0x5
0x0358…036f at0006 = ╱74╱t╱ // 0x35e @0x6
0x0358…036f at0007 = ╱61╱a╱ // 0x35f @0x7
0x0358…036f at0008 = ╱6e╱n╱ // 0x360 @0x8
0x0358…036f at0009 = ╱64╱d╱ // 0x361 @0x9
0x0358…036f at000a = ╱61╱a╱ // 0x362 @0xa
0x0358…036f at000b = ╱72╱r╱ // 0x363 @0xb
0x0358…036f at000c = ╱64╱d╱ // 0x364 @0xc
0x0358…036f at000d = ╱20╱…╱ // 0x365 @0xd
0x0358…036f at000e = ╱76╱v╱ // 0x366 @0xe
0x0358…036f at000f = ╱61╱a╱ // 0x367 @0xf
0x0358…036f at0010 = ╱72╱r╱ // 0x368 @0x10
0x0358…036f at0011 = ╱69╱i╱ // 0x369 @0x11
0x0358…036f at0012 = ╱61╱a╱ // 0x36a @0x12
0x0358…036f at0013 = ╱62╱b╱ // 0x36b @0x13
0x0358…036f at0014 = ╱6c╱l╱ // 0x36c @0x14
0x0358…036f at0015 = ╱65╱e╱ // 0x36d @0x15
0x0358…036f at0016 = EOL // 0x36e @0x16
0x0358…036f }
0x036f…03ad 999b 00300 DIM SPC $ OF 80 , TAL $ OF 10 , ALFA $ OF 28 , SVAR $ OF 8 , PRGFL $ OF 8
0x036f…03ad LineComal80 {
0x036f…03ad ptr = 0x999b // 0x36f @0x0
0x036f…03ad lno = 0x012c // 0x371 @0x2
0x036f…03ad at0004 = ╱87╱ DIM ╱ // 0x373 @0x4
0x036f…03ad at0005 = ╱53╱S╱ // 0x374 @0x5
0x036f…03ad at0006 = ╱50╱P╱ // 0x375 @0x6
0x036f…03ad at0007 = ╱43╱C╱ // 0x376 @0x7
0x036f…03ad at0008 = ╱ef╱ $ ╱ // 0x377 @0x8
0x036f…03ad at0009 = ╱ba╱ OF ╱ // 0x378 @0x9
0x036f…03ad at000a = ╱38╱8╱ // 0x379 @0xa
0x036f…03ad at000b = ╱30╱0╱ // 0x37a @0xb
0x036f…03ad at000c = ╱f25000╱ // 0x37b @0xc
0x036f…03ad at000f = ╱ec╱ , ╱ // 0x37e @0xf
0x036f…03ad at0010 = ╱54╱T╱ // 0x37f @0x10
0x036f…03ad at0011 = ╱41╱A╱ // 0x380 @0x11
0x036f…03ad at0012 = ╱4c╱L╱ // 0x381 @0x12
0x036f…03ad at0013 = ╱ef╱ $ ╱ // 0x382 @0x13
0x036f…03ad at0014 = ╱ba╱ OF ╱ // 0x383 @0x14
0x036f…03ad at0015 = ╱31╱1╱ // 0x384 @0x15
0x036f…03ad at0016 = ╱30╱0╱ // 0x385 @0x16
0x036f…03ad at0017 = ╱f20a00╱ // 0x386 @0x17
0x036f…03ad at001a = ╱ec╱ , ╱ // 0x389 @0x1a
0x036f…03ad at001b = ╱41╱A╱ // 0x38a @0x1b
0x036f…03ad at001c = ╱4c╱L╱ // 0x38b @0x1c
0x036f…03ad at001d = ╱46╱F╱ // 0x38c @0x1d
0x036f…03ad at001e = ╱41╱A╱ // 0x38d @0x1e
0x036f…03ad at001f = ╱ef╱ $ ╱ // 0x38e @0x1f
0x036f…03ad at0020 = ╱ba╱ OF ╱ // 0x38f @0x20
0x036f…03ad at0021 = ╱32╱2╱ // 0x390 @0x21
0x036f…03ad at0022 = ╱38╱8╱ // 0x391 @0x22
0x036f…03ad at0023 = ╱f21c00╱ // 0x392 @0x23
0x036f…03ad at0026 = ╱ec╱ , ╱ // 0x395 @0x26
0x036f…03ad at0027 = ╱53╱S╱ // 0x396 @0x27
0x036f…03ad at0028 = ╱56╱V╱ // 0x397 @0x28
0x036f…03ad at0029 = ╱41╱A╱ // 0x398 @0x29
0x036f…03ad at002a = ╱52╱R╱ // 0x399 @0x2a
0x036f…03ad at002b = ╱ef╱ $ ╱ // 0x39a @0x2b
0x036f…03ad at002c = ╱ba╱ OF ╱ // 0x39b @0x2c
0x036f…03ad at002d = ╱38╱8╱ // 0x39c @0x2d
0x036f…03ad at002e = ╱f20800╱ // 0x39d @0x2e
0x036f…03ad at0031 = ╱ec╱ , ╱ // 0x3a0 @0x31
0x036f…03ad at0032 = ╱50╱P╱ // 0x3a1 @0x32
0x036f…03ad at0033 = ╱52╱R╱ // 0x3a2 @0x33
0x036f…03ad at0034 = ╱47╱G╱ // 0x3a3 @0x34
0x036f…03ad at0035 = ╱46╱F╱ // 0x3a4 @0x35
0x036f…03ad at0036 = ╱4c╱L╱ // 0x3a5 @0x36
0x036f…03ad at0037 = ╱ef╱ $ ╱ // 0x3a6 @0x37
0x036f…03ad at0038 = ╱ba╱ OF ╱ // 0x3a7 @0x38
0x036f…03ad at0039 = ╱38╱8╱ // 0x3a8 @0x39
0x036f…03ad at003a = ╱f20800╱ // 0x3a9 @0x3a
0x036f…03ad at003d = EOL // 0x3ac @0x3d
0x036f…03ad }
0x03ad…03c1 99af 00310 DIM PROGRAM $ OF 17
0x03ad…03c1 LineComal80 {
0x03ad…03c1 ptr = 0x99af // 0x3ad @0x0
0x03ad…03c1 lno = 0x0136 // 0x3af @0x2
0x03ad…03c1 at0004 = ╱87╱ DIM ╱ // 0x3b1 @0x4
0x03ad…03c1 at0005 = ╱50╱P╱ // 0x3b2 @0x5
0x03ad…03c1 at0006 = ╱52╱R╱ // 0x3b3 @0x6
0x03ad…03c1 at0007 = ╱4f╱O╱ // 0x3b4 @0x7
0x03ad…03c1 at0008 = ╱47╱G╱ // 0x3b5 @0x8
0x03ad…03c1 at0009 = ╱52╱R╱ // 0x3b6 @0x9
0x03ad…03c1 at000a = ╱41╱A╱ // 0x3b7 @0xa
0x03ad…03c1 at000b = ╱4d╱M╱ // 0x3b8 @0xb
0x03ad…03c1 at000c = ╱ef╱ $ ╱ // 0x3b9 @0xc
0x03ad…03c1 at000d = ╱ba╱ OF ╱ // 0x3ba @0xd
0x03ad…03c1 at000e = ╱31╱1╱ // 0x3bb @0xe
0x03ad…03c1 at000f = ╱37╱7╱ // 0x3bc @0xf
0x03ad…03c1 at0010 = ╱f21100╱ // 0x3bd @0x10
0x03ad…03c1 at0013 = EOL // 0x3c0 @0x13
0x03ad…03c1 }
0x03c1…03d1 99bf 00320 REAL RESRV , PPAR
0x03c1…03d1 LineComal80 {
0x03c1…03d1 ptr = 0x99bf // 0x3c1 @0x0
0x03c1…03d1 lno = 0x0140 // 0x3c3 @0x2
0x03c1…03d1 at0004 = ╱b3╱ REAL ╱ // 0x3c5 @0x4
0x03c1…03d1 at0005 = ╱52╱R╱ // 0x3c6 @0x5
0x03c1…03d1 at0006 = ╱45╱E╱ // 0x3c7 @0x6
0x03c1…03d1 at0007 = ╱53╱S╱ // 0x3c8 @0x7
0x03c1…03d1 at0008 = ╱52╱R╱ // 0x3c9 @0x8
0x03c1…03d1 at0009 = ╱56╱V╱ // 0x3ca @0x9
0x03c1…03d1 at000a = ╱ec╱ , ╱ // 0x3cb @0xa
0x03c1…03d1 at000b = ╱50╱P╱ // 0x3cc @0xb
0x03c1…03d1 at000c = ╱50╱P╱ // 0x3cd @0xc
0x03c1…03d1 at000d = ╱41╱A╱ // 0x3ce @0xd
0x03c1…03d1 at000e = ╱52╱R╱ // 0x3cf @0xe
0x03c1…03d1 at000f = EOL // 0x3d0 @0xf
0x03c1…03d1 }
0x03d1…03e8 99d6 00330 INTEGER OK , TRUE , FALSE , I , J
0x03d1…03e8 LineComal80 {
0x03d1…03e8 ptr = 0x99d6 // 0x3d1 @0x0
0x03d1…03e8 lno = 0x014a // 0x3d3 @0x2
0x03d1…03e8 at0004 = ╱b2╱ INTEGER ╱ // 0x3d5 @0x4
0x03d1…03e8 at0005 = ╱4f╱O╱ // 0x3d6 @0x5
0x03d1…03e8 at0006 = ╱4b╱K╱ // 0x3d7 @0x6
0x03d1…03e8 at0007 = ╱ec╱ , ╱ // 0x3d8 @0x7
0x03d1…03e8 at0008 = ╱54╱T╱ // 0x3d9 @0x8
0x03d1…03e8 at0009 = ╱52╱R╱ // 0x3da @0x9
0x03d1…03e8 at000a = ╱55╱U╱ // 0x3db @0xa
0x03d1…03e8 at000b = ╱45╱E╱ // 0x3dc @0xb
0x03d1…03e8 at000c = ╱ec╱ , ╱ // 0x3dd @0xc
0x03d1…03e8 at000d = ╱46╱F╱ // 0x3de @0xd
0x03d1…03e8 at000e = ╱41╱A╱ // 0x3df @0xe
0x03d1…03e8 at000f = ╱4c╱L╱ // 0x3e0 @0xf
0x03d1…03e8 at0010 = ╱53╱S╱ // 0x3e1 @0x10
0x03d1…03e8 at0011 = ╱45╱E╱ // 0x3e2 @0x11
0x03d1…03e8 at0012 = ╱ec╱ , ╱ // 0x3e3 @0x12
0x03d1…03e8 at0013 = ╱49╱I╱ // 0x3e4 @0x13
0x03d1…03e8 at0014 = ╱ec╱ , ╱ // 0x3e5 @0x14
0x03d1…03e8 at0015 = ╱4a╱J╱ // 0x3e6 @0x15
0x03d1…03e8 at0016 = EOL // 0x3e7 @0x16
0x03d1…03e8 }
0x03e8…03fc 99ea 00340 // Hj{lpevariable
0x03e8…03fc LineComal80 {
0x03e8…03fc ptr = 0x99ea // 0x3e8 @0x0
0x03e8…03fc lno = 0x0154 // 0x3ea @0x2
0x03e8…03fc at0004 = ╱89╱ // ╱ // 0x3ec @0x4
0x03e8…03fc at0005 = ╱48╱H╱ // 0x3ed @0x5
0x03e8…03fc at0006 = ╱6a╱j╱ // 0x3ee @0x6
0x03e8…03fc at0007 = ╱7b╱{╱ // 0x3ef @0x7
0x03e8…03fc at0008 = ╱6c╱l╱ // 0x3f0 @0x8
0x03e8…03fc at0009 = ╱70╱p╱ // 0x3f1 @0x9
0x03e8…03fc at000a = ╱65╱e╱ // 0x3f2 @0xa
0x03e8…03fc at000b = ╱76╱v╱ // 0x3f3 @0xb
0x03e8…03fc at000c = ╱61╱a╱ // 0x3f4 @0xc
0x03e8…03fc at000d = ╱72╱r╱ // 0x3f5 @0xd
0x03e8…03fc at000e = ╱69╱i╱ // 0x3f6 @0xe
0x03e8…03fc at000f = ╱61╱a╱ // 0x3f7 @0xf
0x03e8…03fc at0010 = ╱62╱b╱ // 0x3f8 @0x10
0x03e8…03fc at0011 = ╱6c╱l╱ // 0x3f9 @0x11
0x03e8…03fc at0012 = ╱65╱e╱ // 0x3fa @0x12
0x03e8…03fc at0013 = EOL // 0x3fb @0x13
0x03e8…03fc }
0x03fc…040f 99fd 00350 DIM A_KTONR $ OF 8
0x03fc…040f LineComal80 {
0x03fc…040f ptr = 0x99fd // 0x3fc @0x0
0x03fc…040f lno = 0x015e // 0x3fe @0x2
0x03fc…040f at0004 = ╱87╱ DIM ╱ // 0x400 @0x4
0x03fc…040f at0005 = ╱41╱A╱ // 0x401 @0x5
0x03fc…040f at0006 = ╱5f╱_╱ // 0x402 @0x6
0x03fc…040f at0007 = ╱4b╱K╱ // 0x403 @0x7
0x03fc…040f at0008 = ╱54╱T╱ // 0x404 @0x8
0x03fc…040f at0009 = ╱4f╱O╱ // 0x405 @0x9
0x03fc…040f at000a = ╱4e╱N╱ // 0x406 @0xa
0x03fc…040f at000b = ╱52╱R╱ // 0x407 @0xb
0x03fc…040f at000c = ╱ef╱ $ ╱ // 0x408 @0xc
0x03fc…040f at000d = ╱ba╱ OF ╱ // 0x409 @0xd
0x03fc…040f at000e = ╱38╱8╱ // 0x40a @0xe
0x03fc…040f at000f = ╱f20800╱ // 0x40b @0xf
0x03fc…040f at0012 = EOL // 0x40e @0x12
0x03fc…040f }
0x040f…0428 9a16 00360 INTEGER HIGH , LOW , POS , IDXPOS
0x040f…0428 LineComal80 {
0x040f…0428 ptr = 0x9a16 // 0x40f @0x0
0x040f…0428 lno = 0x0168 // 0x411 @0x2
0x040f…0428 at0004 = ╱b2╱ INTEGER ╱ // 0x413 @0x4
0x040f…0428 at0005 = ╱48╱H╱ // 0x414 @0x5
0x040f…0428 at0006 = ╱49╱I╱ // 0x415 @0x6
0x040f…0428 at0007 = ╱47╱G╱ // 0x416 @0x7
0x040f…0428 at0008 = ╱48╱H╱ // 0x417 @0x8
0x040f…0428 at0009 = ╱ec╱ , ╱ // 0x418 @0x9
0x040f…0428 at000a = ╱4c╱L╱ // 0x419 @0xa
0x040f…0428 at000b = ╱4f╱O╱ // 0x41a @0xb
0x040f…0428 at000c = ╱57╱W╱ // 0x41b @0xc
0x040f…0428 at000d = ╱ec╱ , ╱ // 0x41c @0xd
0x040f…0428 at000e = ╱50╱P╱ // 0x41d @0xe
0x040f…0428 at000f = ╱4f╱O╱ // 0x41e @0xf
0x040f…0428 at0010 = ╱53╱S╱ // 0x41f @0x10
0x040f…0428 at0011 = ╱ec╱ , ╱ // 0x420 @0x11
0x040f…0428 at0012 = ╱49╱I╱ // 0x421 @0x12
0x040f…0428 at0013 = ╱44╱D╱ // 0x422 @0x13
0x040f…0428 at0014 = ╱58╱X╱ // 0x423 @0x14
0x040f…0428 at0015 = ╱50╱P╱ // 0x424 @0x15
0x040f…0428 at0016 = ╱4f╱O╱ // 0x425 @0x16
0x040f…0428 at0017 = ╱53╱S╱ // 0x426 @0x17
0x040f…0428 at0018 = EOL // 0x427 @0x18
0x040f…0428 }
0x0428…0448 9a36 00370 // Variable…til…filen…SYSPARA
0x0428…0448 LineComal80 {
0x0428…0448 ptr = 0x9a36 // 0x428 @0x0
0x0428…0448 lno = 0x0172 // 0x42a @0x2
0x0428…0448 at0004 = ╱89╱ // ╱ // 0x42c @0x4
0x0428…0448 at0005 = ╱56╱V╱ // 0x42d @0x5
0x0428…0448 at0006 = ╱61╱a╱ // 0x42e @0x6
0x0428…0448 at0007 = ╱72╱r╱ // 0x42f @0x7
0x0428…0448 at0008 = ╱69╱i╱ // 0x430 @0x8
0x0428…0448 at0009 = ╱61╱a╱ // 0x431 @0x9
0x0428…0448 at000a = ╱62╱b╱ // 0x432 @0xa
0x0428…0448 at000b = ╱6c╱l╱ // 0x433 @0xb
0x0428…0448 at000c = ╱65╱e╱ // 0x434 @0xc
0x0428…0448 at000d = ╱20╱…╱ // 0x435 @0xd
0x0428…0448 at000e = ╱74╱t╱ // 0x436 @0xe
0x0428…0448 at000f = ╱69╱i╱ // 0x437 @0xf
0x0428…0448 at0010 = ╱6c╱l╱ // 0x438 @0x10
0x0428…0448 at0011 = ╱20╱…╱ // 0x439 @0x11
0x0428…0448 at0012 = ╱66╱f╱ // 0x43a @0x12
0x0428…0448 at0013 = ╱69╱i╱ // 0x43b @0x13
0x0428…0448 at0014 = ╱6c╱l╱ // 0x43c @0x14
0x0428…0448 at0015 = ╱65╱e╱ // 0x43d @0x15
0x0428…0448 at0016 = ╱6e╱n╱ // 0x43e @0x16
0x0428…0448 at0017 = ╱20╱…╱ // 0x43f @0x17
0x0428…0448 at0018 = ╱53╱S╱ // 0x440 @0x18
0x0428…0448 at0019 = ╱59╱Y╱ // 0x441 @0x19
0x0428…0448 at001a = ╱53╱S╱ // 0x442 @0x1a
0x0428…0448 at001b = ╱50╱P╱ // 0x443 @0x1b
0x0428…0448 at001c = ╱41╱A╱ // 0x444 @0x1c
0x0428…0448 at001d = ╱52╱R╱ // 0x445 @0x1d
0x0428…0448 at001e = ╱41╱A╱ // 0x446 @0x1e
0x0428…0448 at001f = EOL // 0x447 @0x1f
0x0428…0448 }
0x0448…045c 9a4a 00380 DIM SYSPARA $ OF 17
0x0448…045c LineComal80 {
0x0448…045c ptr = 0x9a4a // 0x448 @0x0
0x0448…045c lno = 0x017c // 0x44a @0x2
0x0448…045c at0004 = ╱87╱ DIM ╱ // 0x44c @0x4
0x0448…045c at0005 = ╱53╱S╱ // 0x44d @0x5
0x0448…045c at0006 = ╱59╱Y╱ // 0x44e @0x6
0x0448…045c at0007 = ╱53╱S╱ // 0x44f @0x7
0x0448…045c at0008 = ╱50╱P╱ // 0x450 @0x8
0x0448…045c at0009 = ╱41╱A╱ // 0x451 @0x9
0x0448…045c at000a = ╱52╱R╱ // 0x452 @0xa
0x0448…045c at000b = ╱41╱A╱ // 0x453 @0xb
0x0448…045c at000c = ╱ef╱ $ ╱ // 0x454 @0xc
0x0448…045c at000d = ╱ba╱ OF ╱ // 0x455 @0xd
0x0448…045c at000e = ╱31╱1╱ // 0x456 @0xe
0x0448…045c at000f = ╱37╱7╱ // 0x457 @0xf
0x0448…045c at0010 = ╱f21100╱ // 0x458 @0x10
0x0448…045c at0013 = EOL // 0x45b @0x13
0x0448…045c }
0x045c…047f 9a6d 00390 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x045c…047f LineComal80 {
0x045c…047f ptr = 0x9a6d // 0x45c @0x0
0x045c…047f lno = 0x0186 // 0x45e @0x2
0x045c…047f at0004 = ╱87╱ DIM ╱ // 0x460 @0x4
0x045c…047f at0005 = ╱53╱S╱ // 0x461 @0x5
0x045c…047f at0006 = ╱59╱Y╱ // 0x462 @0x6
0x045c…047f at0007 = ╱53╱S╱ // 0x463 @0x7
0x045c…047f at0008 = ╱54╱T╱ // 0x464 @0x8
0x045c…047f at0009 = ╱5f╱_╱ // 0x465 @0x9
0x045c…047f at000a = ╱4e╱N╱ // 0x466 @0xa
0x045c…047f at000b = ╱41╱A╱ // 0x467 @0xb
0x045c…047f at000c = ╱56╱V╱ // 0x468 @0xc
0x045c…047f at000d = ╱4e╱N╱ // 0x469 @0xd
0x045c…047f at000e = ╱ef╱ $ ╱ // 0x46a @0xe
0x045c…047f at000f = ╱ba╱ OF ╱ // 0x46b @0xf
0x045c…047f at0010 = ╱33╱3╱ // 0x46c @0x10
0x045c…047f at0011 = ╱30╱0╱ // 0x46d @0x11
0x045c…047f at0012 = ╱f21e00╱ // 0x46e @0x12
0x045c…047f at0015 = ╱ec╱ , ╱ // 0x471 @0x15
0x045c…047f at0016 = ╱53╱S╱ // 0x472 @0x16
0x045c…047f at0017 = ╱5f╱_╱ // 0x473 @0x17
0x045c…047f at0018 = ╱4b╱K╱ // 0x474 @0x18
0x045c…047f at0019 = ╱4f╱O╱ // 0x475 @0x19
0x045c…047f at001a = ╱44╱D╱ // 0x476 @0x1a
0x045c…047f at001b = ╱45╱E╱ // 0x477 @0x1b
0x045c…047f at001c = ╱ef╱ $ ╱ // 0x478 @0x1c
0x045c…047f at001d = ╱ba╱ OF ╱ // 0x479 @0x1d
0x045c…047f at001e = ╱31╱1╱ // 0x47a @0x1e
0x045c…047f at001f = ╱f20100╱ // 0x47b @0x1f
0x045c…047f at0022 = EOL // 0x47e @0x22
0x045c…047f }
0x047f…049e 9a8c 00400 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x047f…049e LineComal80 {
0x047f…049e ptr = 0x9a8c // 0x47f @0x0
0x047f…049e lno = 0x0190 // 0x481 @0x2
0x047f…049e at0004 = ╱87╱ DIM ╱ // 0x483 @0x4
0x047f…049e at0005 = ╱44╱D╱ // 0x484 @0x5
0x047f…049e at0006 = ╱41╱A╱ // 0x485 @0x6
0x047f…049e at0007 = ╱54╱T╱ // 0x486 @0x7
0x047f…049e at0008 = ╱41╱A╱ // 0x487 @0x8
0x047f…049e at0009 = ╱46╱F╱ // 0x488 @0x9
0x047f…049e at000a = ╱4c╱L╱ // 0x489 @0xa
0x047f…049e at000b = ╱ef╱ $ ╱ // 0x48a @0xb
0x047f…049e at000c = ╱ba╱ OF ╱ // 0x48b @0xc
0x047f…049e at000d = ╱38╱8╱ // 0x48c @0xd
0x047f…049e at000e = ╱f20800╱ // 0x48d @0xe
0x047f…049e at0011 = ╱ec╱ , ╱ // 0x490 @0x11
0x047f…049e at0012 = ╱54╱T╱ // 0x491 @0x12
0x047f…049e at0013 = ╱5f╱_╱ // 0x492 @0x13
0x047f…049e at0014 = ╱4b╱K╱ // 0x493 @0x14
0x047f…049e at0015 = ╱4f╱O╱ // 0x494 @0x15
0x047f…049e at0016 = ╱44╱D╱ // 0x495 @0x16
0x047f…049e at0017 = ╱45╱E╱ // 0x496 @0x17
0x047f…049e at0018 = ╱ef╱ $ ╱ // 0x497 @0x18
0x047f…049e at0019 = ╱ba╱ OF ╱ // 0x498 @0x19
0x047f…049e at001a = ╱31╱1╱ // 0x499 @0x1a
0x047f…049e at001b = ╱f20100╱ // 0x49a @0x1b
0x047f…049e at001e = EOL // 0x49d @0x1e
0x047f…049e }
0x049e…04be 9aac 00410 // Variable…til…filen…@@PARAM
0x049e…04be LineComal80 {
0x049e…04be ptr = 0x9aac // 0x49e @0x0
0x049e…04be lno = 0x019a // 0x4a0 @0x2
0x049e…04be at0004 = ╱89╱ // ╱ // 0x4a2 @0x4
0x049e…04be at0005 = ╱56╱V╱ // 0x4a3 @0x5
0x049e…04be at0006 = ╱61╱a╱ // 0x4a4 @0x6
0x049e…04be at0007 = ╱72╱r╱ // 0x4a5 @0x7
0x049e…04be at0008 = ╱69╱i╱ // 0x4a6 @0x8
0x049e…04be at0009 = ╱61╱a╱ // 0x4a7 @0x9
0x049e…04be at000a = ╱62╱b╱ // 0x4a8 @0xa
0x049e…04be at000b = ╱6c╱l╱ // 0x4a9 @0xb
0x049e…04be at000c = ╱65╱e╱ // 0x4aa @0xc
0x049e…04be at000d = ╱20╱…╱ // 0x4ab @0xd
0x049e…04be at000e = ╱74╱t╱ // 0x4ac @0xe
0x049e…04be at000f = ╱69╱i╱ // 0x4ad @0xf
0x049e…04be at0010 = ╱6c╱l╱ // 0x4ae @0x10
0x049e…04be at0011 = ╱20╱…╱ // 0x4af @0x11
0x049e…04be at0012 = ╱66╱f╱ // 0x4b0 @0x12
0x049e…04be at0013 = ╱69╱i╱ // 0x4b1 @0x13
0x049e…04be at0014 = ╱6c╱l╱ // 0x4b2 @0x14
0x049e…04be at0015 = ╱65╱e╱ // 0x4b3 @0x15
0x049e…04be at0016 = ╱6e╱n╱ // 0x4b4 @0x16
0x049e…04be at0017 = ╱20╱…╱ // 0x4b5 @0x17
0x049e…04be at0018 = ╱40╱@╱ // 0x4b6 @0x18
0x049e…04be at0019 = ╱40╱@╱ // 0x4b7 @0x19
0x049e…04be at001a = ╱50╱P╱ // 0x4b8 @0x1a
0x049e…04be at001b = ╱41╱A╱ // 0x4b9 @0x1b
0x049e…04be at001c = ╱52╱R╱ // 0x4ba @0x1c
0x049e…04be at001d = ╱41╱A╱ // 0x4bb @0x1d
0x049e…04be at001e = ╱4d╱M╱ // 0x4bc @0x1e
0x049e…04be at001f = EOL // 0x4bd @0x1f
0x049e…04be }
0x04be…04d0 9abe 00420 DIM PARAM $ OF 17
0x04be…04d0 LineComal80 {
0x04be…04d0 ptr = 0x9abe // 0x4be @0x0
0x04be…04d0 lno = 0x01a4 // 0x4c0 @0x2
0x04be…04d0 at0004 = ╱87╱ DIM ╱ // 0x4c2 @0x4
0x04be…04d0 at0005 = ╱50╱P╱ // 0x4c3 @0x5
0x04be…04d0 at0006 = ╱41╱A╱ // 0x4c4 @0x6
0x04be…04d0 at0007 = ╱52╱R╱ // 0x4c5 @0x7
0x04be…04d0 at0008 = ╱41╱A╱ // 0x4c6 @0x8
0x04be…04d0 at0009 = ╱4d╱M╱ // 0x4c7 @0x9
0x04be…04d0 at000a = ╱ef╱ $ ╱ // 0x4c8 @0xa
0x04be…04d0 at000b = ╱ba╱ OF ╱ // 0x4c9 @0xb
0x04be…04d0 at000c = ╱31╱1╱ // 0x4ca @0xc
0x04be…04d0 at000d = ╱37╱7╱ // 0x4cb @0xd
0x04be…04d0 at000e = ╱f21100╱ // 0x4cc @0xe
0x04be…04d0 at0011 = EOL // 0x4cf @0x11
0x04be…04d0 }
0x04d0…04f5 (16,) 9ae3 00430 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 8
0x04d0…04f5 LineComal80 {
0x04d0…04f5 ptr = 0x9ae3 // 0x4d0 @0x0
0x04d0…04f5 lno = 0x01ae // 0x4d2 @0x2
0x04d0…04f5 at0004 = ╱87╱ DIM ╱ // 0x4d4 @0x4
0x04d0…04f5 at0005 = ╱46╱F╱ // 0x4d5 @0x5
0x04d0…04f5 at0006 = ╱49╱I╱ // 0x4d6 @0x6
0x04d0…04f5 at0007 = ╱52╱R╱ // 0x4d7 @0x7
0x04d0…04f5 at0008 = ╱4d╱M╱ // 0x4d8 @0x8
0x04d0…04f5 at0009 = ╱41╱A╱ // 0x4d9 @0x9
0x04d0…04f5 at000a = ╱4e╱N╱ // 0x4da @0xa
0x04d0…04f5 at000b = ╱41╱A╱ // 0x4db @0xb
0x04d0…04f5 at000c = ╱56╱V╱ // 0x4dc @0xc
0x04d0…04f5 at000d = ╱4e╱N╱ // 0x4dd @0xd
0x04d0…04f5 at000e = ╱ef╱ $ ╱ // 0x4de @0xe
0x04d0…04f5 at000f = ╱ba╱ OF ╱ // 0x4df @0xf
0x04d0…04f5 at0010 = ╱33╱3╱ // 0x4e0 @0x10
0x04d0…04f5 at0011 = ╱30╱0╱ // 0x4e1 @0x11
0x04d0…04f5 at0012 = ╱f21e00╱ // 0x4e2 @0x12
0x04d0…04f5 at0015 = ╱ec╱ , ╱ // 0x4e5 @0x15
0x04d0…04f5 at0016 = ╱53╱S╱ // 0x4e6 @0x16
0x04d0…04f5 at0017 = ╱59╱Y╱ // 0x4e7 @0x17
0x04d0…04f5 at0018 = ╱53╱S╱ // 0x4e8 @0x18
0x04d0…04f5 at0019 = ╱54╱T╱ // 0x4e9 @0x19
0x04d0…04f5 at001a = ╱5f╱_╱ // 0x4ea @0x1a
0x04d0…04f5 at001b = ╱44╱D╱ // 0x4eb @0x1b
0x04d0…04f5 at001c = ╱41╱A╱ // 0x4ec @0x1c
0x04d0…04f5 at001d = ╱54╱T╱ // 0x4ed @0x1d
0x04d0…04f5 at001e = ╱ef╱ $ ╱ // 0x4ee @0x1e
0x04d0…04f5 at001f = ╱ba╱ OF ╱ // 0x4ef @0x1f
0x04d0…04f5 at0020 = ╱38╱8╱ // 0x4f0 @0x20
0x04d0…04f5 at0021 = ╱f20800╱ // 0x4f1 @0x21
0x04d0…04f5 at0024 = EOL // 0x4f4 @0x24
0x04d0…04f5 }
0x04f5…04ff 9aed 00440 REAL MOMS
0x04f5…04ff LineComal80 {
0x04f5…04ff ptr = 0x9aed // 0x4f5 @0x0
0x04f5…04ff lno = 0x01b8 // 0x4f7 @0x2
0x04f5…04ff at0004 = ╱b3╱ REAL ╱ // 0x4f9 @0x4
0x04f5…04ff at0005 = ╱4d╱M╱ // 0x4fa @0x5
0x04f5…04ff at0006 = ╱4f╱O╱ // 0x4fb @0x6
0x04f5…04ff at0007 = ╱4d╱M╱ // 0x4fc @0x7
0x04f5…04ff at0008 = ╱53╱S╱ // 0x4fd @0x8
0x04f5…04ff at0009 = EOL // 0x4fe @0x9
0x04f5…04ff }
0x04ff…0512 9b00 00450 DIM ST_DATO $ OF 8
0x04ff…0512 LineComal80 {
0x04ff…0512 ptr = 0x9b00 // 0x4ff @0x0
0x04ff…0512 lno = 0x01c2 // 0x501 @0x2
0x04ff…0512 at0004 = ╱87╱ DIM ╱ // 0x503 @0x4
0x04ff…0512 at0005 = ╱53╱S╱ // 0x504 @0x5
0x04ff…0512 at0006 = ╱54╱T╱ // 0x505 @0x6
0x04ff…0512 at0007 = ╱5f╱_╱ // 0x506 @0x7
0x04ff…0512 at0008 = ╱44╱D╱ // 0x507 @0x8
0x04ff…0512 at0009 = ╱41╱A╱ // 0x508 @0x9
0x04ff…0512 at000a = ╱54╱T╱ // 0x509 @0xa
0x04ff…0512 at000b = ╱4f╱O╱ // 0x50a @0xb
0x04ff…0512 at000c = ╱ef╱ $ ╱ // 0x50b @0xc
0x04ff…0512 at000d = ╱ba╱ OF ╱ // 0x50c @0xd
0x04ff…0512 at000e = ╱38╱8╱ // 0x50d @0xe
0x04ff…0512 at000f = ╱f20800╱ // 0x50e @0xf
0x04ff…0512 at0012 = EOL // 0x511 @0x12
0x04ff…0512 }
0x0512…0526 9b14 00460 INTEGER ANT_PER , PER_NR
0x0512…0526 LineComal80 {
0x0512…0526 ptr = 0x9b14 // 0x512 @0x0
0x0512…0526 lno = 0x01cc // 0x514 @0x2
0x0512…0526 at0004 = ╱b2╱ INTEGER ╱ // 0x516 @0x4
0x0512…0526 at0005 = ╱41╱A╱ // 0x517 @0x5
0x0512…0526 at0006 = ╱4e╱N╱ // 0x518 @0x6
0x0512…0526 at0007 = ╱54╱T╱ // 0x519 @0x7
0x0512…0526 at0008 = ╱5f╱_╱ // 0x51a @0x8
0x0512…0526 at0009 = ╱50╱P╱ // 0x51b @0x9
0x0512…0526 at000a = ╱45╱E╱ // 0x51c @0xa
0x0512…0526 at000b = ╱52╱R╱ // 0x51d @0xb
0x0512…0526 at000c = ╱ec╱ , ╱ // 0x51e @0xc
0x0512…0526 at000d = ╱50╱P╱ // 0x51f @0xd
0x0512…0526 at000e = ╱45╱E╱ // 0x520 @0xe
0x0512…0526 at000f = ╱52╱R╱ // 0x521 @0xf
0x0512…0526 at0010 = ╱5f╱_╱ // 0x522 @0x10
0x0512…0526 at0011 = ╱4e╱N╱ // 0x523 @0x11
0x0512…0526 at0012 = ╱52╱R╱ // 0x524 @0x12
0x0512…0526 at0013 = EOL // 0x525 @0x13
0x0512…0526 }
0x0526…0547 9b35 00470 // Variable…til…filen…@@KTOIDX
0x0526…0547 LineComal80 {
0x0526…0547 ptr = 0x9b35 // 0x526 @0x0
0x0526…0547 lno = 0x01d6 // 0x528 @0x2
0x0526…0547 at0004 = ╱89╱ // ╱ // 0x52a @0x4
0x0526…0547 at0005 = ╱56╱V╱ // 0x52b @0x5
0x0526…0547 at0006 = ╱61╱a╱ // 0x52c @0x6
0x0526…0547 at0007 = ╱72╱r╱ // 0x52d @0x7
0x0526…0547 at0008 = ╱69╱i╱ // 0x52e @0x8
0x0526…0547 at0009 = ╱61╱a╱ // 0x52f @0x9
0x0526…0547 at000a = ╱62╱b╱ // 0x530 @0xa
0x0526…0547 at000b = ╱6c╱l╱ // 0x531 @0xb
0x0526…0547 at000c = ╱65╱e╱ // 0x532 @0xc
0x0526…0547 at000d = ╱20╱…╱ // 0x533 @0xd
0x0526…0547 at000e = ╱74╱t╱ // 0x534 @0xe
0x0526…0547 at000f = ╱69╱i╱ // 0x535 @0xf
0x0526…0547 at0010 = ╱6c╱l╱ // 0x536 @0x10
0x0526…0547 at0011 = ╱20╱…╱ // 0x537 @0x11
0x0526…0547 at0012 = ╱66╱f╱ // 0x538 @0x12
0x0526…0547 at0013 = ╱69╱i╱ // 0x539 @0x13
0x0526…0547 at0014 = ╱6c╱l╱ // 0x53a @0x14
0x0526…0547 at0015 = ╱65╱e╱ // 0x53b @0x15
0x0526…0547 at0016 = ╱6e╱n╱ // 0x53c @0x16
0x0526…0547 at0017 = ╱20╱…╱ // 0x53d @0x17
0x0526…0547 at0018 = ╱40╱@╱ // 0x53e @0x18
0x0526…0547 at0019 = ╱40╱@╱ // 0x53f @0x19
0x0526…0547 at001a = ╱4b╱K╱ // 0x540 @0x1a
0x0526…0547 at001b = ╱54╱T╱ // 0x541 @0x1b
0x0526…0547 at001c = ╱4f╱O╱ // 0x542 @0x1c
0x0526…0547 at001d = ╱49╱I╱ // 0x543 @0x1d
0x0526…0547 at001e = ╱44╱D╱ // 0x544 @0x1e
0x0526…0547 at001f = ╱58╱X╱ // 0x545 @0x1f
0x0526…0547 at0020 = EOL // 0x546 @0x20
0x0526…0547 }
0x0547…055a 9b48 00480 DIM KTOIDX $ OF 17
0x0547…055a LineComal80 {
0x0547…055a ptr = 0x9b48 // 0x547 @0x0
0x0547…055a lno = 0x01e0 // 0x549 @0x2
0x0547…055a at0004 = ╱87╱ DIM ╱ // 0x54b @0x4
0x0547…055a at0005 = ╱4b╱K╱ // 0x54c @0x5
0x0547…055a at0006 = ╱54╱T╱ // 0x54d @0x6
0x0547…055a at0007 = ╱4f╱O╱ // 0x54e @0x7
0x0547…055a at0008 = ╱49╱I╱ // 0x54f @0x8
0x0547…055a at0009 = ╱44╱D╱ // 0x550 @0x9
0x0547…055a at000a = ╱58╱X╱ // 0x551 @0xa
0x0547…055a at000b = ╱ef╱ $ ╱ // 0x552 @0xb
0x0547…055a at000c = ╱ba╱ OF ╱ // 0x553 @0xc
0x0547…055a at000d = ╱31╱1╱ // 0x554 @0xd
0x0547…055a at000e = ╱37╱7╱ // 0x555 @0xe
0x0547…055a at000f = ╱f21100╱ // 0x556 @0xf
0x0547…055a at0012 = EOL // 0x559 @0x12
0x0547…055a }
0x055a…0571 9b5f 00490 INTEGER I_H\JREC , I_MAXREC
0x055a…0571 LineComal80 {
0x055a…0571 ptr = 0x9b5f // 0x55a @0x0
0x055a…0571 lno = 0x01ea // 0x55c @0x2
0x055a…0571 at0004 = ╱b2╱ INTEGER ╱ // 0x55e @0x4
0x055a…0571 at0005 = ╱49╱I╱ // 0x55f @0x5
0x055a…0571 at0006 = ╱5f╱_╱ // 0x560 @0x6
0x055a…0571 at0007 = ╱48╱H╱ // 0x561 @0x7
0x055a…0571 at0008 = ╱5c╱\╱ // 0x562 @0x8
0x055a…0571 at0009 = ╱4a╱J╱ // 0x563 @0x9
0x055a…0571 at000a = ╱52╱R╱ // 0x564 @0xa
0x055a…0571 at000b = ╱45╱E╱ // 0x565 @0xb
0x055a…0571 at000c = ╱43╱C╱ // 0x566 @0xc
0x055a…0571 at000d = ╱ec╱ , ╱ // 0x567 @0xd
0x055a…0571 at000e = ╱49╱I╱ // 0x568 @0xe
0x055a…0571 at000f = ╱5f╱_╱ // 0x569 @0xf
0x055a…0571 at0010 = ╱4d╱M╱ // 0x56a @0x10
0x055a…0571 at0011 = ╱41╱A╱ // 0x56b @0x11
0x055a…0571 at0012 = ╱58╱X╱ // 0x56c @0x12
0x055a…0571 at0013 = ╱52╱R╱ // 0x56d @0x13
0x055a…0571 at0014 = ╱45╱E╱ // 0x56e @0x14
0x055a…0571 at0015 = ╱43╱C╱ // 0x56f @0x15
0x055a…0571 at0016 = EOL // 0x570 @0x16
0x055a…0571 }
0x0571…0582 9b70 00500 DIM KTONR $ OF 8
0x0571…0582 LineComal80 {
0x0571…0582 ptr = 0x9b70 // 0x571 @0x0
0x0571…0582 lno = 0x01f4 // 0x573 @0x2
0x0571…0582 at0004 = ╱87╱ DIM ╱ // 0x575 @0x4
0x0571…0582 at0005 = ╱4b╱K╱ // 0x576 @0x5
0x0571…0582 at0006 = ╱54╱T╱ // 0x577 @0x6
0x0571…0582 at0007 = ╱4f╱O╱ // 0x578 @0x7
0x0571…0582 at0008 = ╱4e╱N╱ // 0x579 @0x8
0x0571…0582 at0009 = ╱52╱R╱ // 0x57a @0x9
0x0571…0582 at000a = ╱ef╱ $ ╱ // 0x57b @0xa
0x0571…0582 at000b = ╱ba╱ OF ╱ // 0x57c @0xb
0x0571…0582 at000c = ╱38╱8╱ // 0x57d @0xc
0x0571…0582 at000d = ╱f20800╱ // 0x57e @0xd
0x0571…0582 at0010 = EOL // 0x581 @0x10
0x0571…0582 }
0x0582…058d 9b7b 00510 INTEGER RECNR
0x0582…058d LineComal80 {
0x0582…058d ptr = 0x9b7b // 0x582 @0x0
0x0582…058d lno = 0x01fe // 0x584 @0x2
0x0582…058d at0004 = ╱b2╱ INTEGER ╱ // 0x586 @0x4
0x0582…058d at0005 = ╱52╱R╱ // 0x587 @0x5
0x0582…058d at0006 = ╱45╱E╱ // 0x588 @0x6
0x0582…058d at0007 = ╱43╱C╱ // 0x589 @0x7
0x0582…058d at0008 = ╱4e╱N╱ // 0x58a @0x8
0x0582…058d at0009 = ╱52╱R╱ // 0x58b @0x9
0x0582…058d at000a = EOL // 0x58c @0xa
0x0582…058d }
0x058d…05ae 9b9c 00520 // Variable…til…filen…@@FKTONR
0x058d…05ae LineComal80 {
0x058d…05ae ptr = 0x9b9c // 0x58d @0x0
0x058d…05ae lno = 0x0208 // 0x58f @0x2
0x058d…05ae at0004 = ╱89╱ // ╱ // 0x591 @0x4
0x058d…05ae at0005 = ╱56╱V╱ // 0x592 @0x5
0x058d…05ae at0006 = ╱61╱a╱ // 0x593 @0x6
0x058d…05ae at0007 = ╱72╱r╱ // 0x594 @0x7
0x058d…05ae at0008 = ╱69╱i╱ // 0x595 @0x8
0x058d…05ae at0009 = ╱61╱a╱ // 0x596 @0x9
0x058d…05ae at000a = ╱62╱b╱ // 0x597 @0xa
0x058d…05ae at000b = ╱6c╱l╱ // 0x598 @0xb
0x058d…05ae at000c = ╱65╱e╱ // 0x599 @0xc
0x058d…05ae at000d = ╱20╱…╱ // 0x59a @0xd
0x058d…05ae at000e = ╱74╱t╱ // 0x59b @0xe
0x058d…05ae at000f = ╱69╱i╱ // 0x59c @0xf
0x058d…05ae at0010 = ╱6c╱l╱ // 0x59d @0x10
0x058d…05ae at0011 = ╱20╱…╱ // 0x59e @0x11
0x058d…05ae at0012 = ╱66╱f╱ // 0x59f @0x12
0x058d…05ae at0013 = ╱69╱i╱ // 0x5a0 @0x13
0x058d…05ae at0014 = ╱6c╱l╱ // 0x5a1 @0x14
0x058d…05ae at0015 = ╱65╱e╱ // 0x5a2 @0x15
0x058d…05ae at0016 = ╱6e╱n╱ // 0x5a3 @0x16
0x058d…05ae at0017 = ╱20╱…╱ // 0x5a4 @0x17
0x058d…05ae at0018 = ╱40╱@╱ // 0x5a5 @0x18
0x058d…05ae at0019 = ╱40╱@╱ // 0x5a6 @0x19
0x058d…05ae at001a = ╱46╱F╱ // 0x5a7 @0x1a
0x058d…05ae at001b = ╱4b╱K╱ // 0x5a8 @0x1b
0x058d…05ae at001c = ╱54╱T╱ // 0x5a9 @0x1c
0x058d…05ae at001d = ╱4f╱O╱ // 0x5aa @0x1d
0x058d…05ae at001e = ╱4e╱N╱ // 0x5ab @0x1e
0x058d…05ae at001f = ╱52╱R╱ // 0x5ac @0x1f
0x058d…05ae at0020 = EOL // 0x5ad @0x20
0x058d…05ae }
0x05ae…05c1 9baf 00530 DIM FKTONR $ OF 17
0x05ae…05c1 LineComal80 {
0x05ae…05c1 ptr = 0x9baf // 0x5ae @0x0
0x05ae…05c1 lno = 0x0212 // 0x5b0 @0x2
0x05ae…05c1 at0004 = ╱87╱ DIM ╱ // 0x5b2 @0x4
0x05ae…05c1 at0005 = ╱46╱F╱ // 0x5b3 @0x5
0x05ae…05c1 at0006 = ╱4b╱K╱ // 0x5b4 @0x6
0x05ae…05c1 at0007 = ╱54╱T╱ // 0x5b5 @0x7
0x05ae…05c1 at0008 = ╱4f╱O╱ // 0x5b6 @0x8
0x05ae…05c1 at0009 = ╱4e╱N╱ // 0x5b7 @0x9
0x05ae…05c1 at000a = ╱52╱R╱ // 0x5b8 @0xa
0x05ae…05c1 at000b = ╱ef╱ $ ╱ // 0x5b9 @0xb
0x05ae…05c1 at000c = ╱ba╱ OF ╱ // 0x5ba @0xc
0x05ae…05c1 at000d = ╱31╱1╱ // 0x5bb @0xd
0x05ae…05c1 at000e = ╱37╱7╱ // 0x5bc @0xe
0x05ae…05c1 at000f = ╱f21100╱ // 0x5bd @0xf
0x05ae…05c1 at0012 = EOL // 0x5c0 @0x12
0x05ae…05c1 }
0x05c1…05e2 9bd0 00540 // Variable…til…filen…@@KTOGRP
0x05c1…05e2 LineComal80 {
0x05c1…05e2 ptr = 0x9bd0 // 0x5c1 @0x0
0x05c1…05e2 lno = 0x021c // 0x5c3 @0x2
0x05c1…05e2 at0004 = ╱89╱ // ╱ // 0x5c5 @0x4
0x05c1…05e2 at0005 = ╱56╱V╱ // 0x5c6 @0x5
0x05c1…05e2 at0006 = ╱61╱a╱ // 0x5c7 @0x6
0x05c1…05e2 at0007 = ╱72╱r╱ // 0x5c8 @0x7
0x05c1…05e2 at0008 = ╱69╱i╱ // 0x5c9 @0x8
0x05c1…05e2 at0009 = ╱61╱a╱ // 0x5ca @0x9
0x05c1…05e2 at000a = ╱62╱b╱ // 0x5cb @0xa
0x05c1…05e2 at000b = ╱6c╱l╱ // 0x5cc @0xb
0x05c1…05e2 at000c = ╱65╱e╱ // 0x5cd @0xc
0x05c1…05e2 at000d = ╱20╱…╱ // 0x5ce @0xd
0x05c1…05e2 at000e = ╱74╱t╱ // 0x5cf @0xe
0x05c1…05e2 at000f = ╱69╱i╱ // 0x5d0 @0xf
0x05c1…05e2 at0010 = ╱6c╱l╱ // 0x5d1 @0x10
0x05c1…05e2 at0011 = ╱20╱…╱ // 0x5d2 @0x11
0x05c1…05e2 at0012 = ╱66╱f╱ // 0x5d3 @0x12
0x05c1…05e2 at0013 = ╱69╱i╱ // 0x5d4 @0x13
0x05c1…05e2 at0014 = ╱6c╱l╱ // 0x5d5 @0x14
0x05c1…05e2 at0015 = ╱65╱e╱ // 0x5d6 @0x15
0x05c1…05e2 at0016 = ╱6e╱n╱ // 0x5d7 @0x16
0x05c1…05e2 at0017 = ╱20╱…╱ // 0x5d8 @0x17
0x05c1…05e2 at0018 = ╱40╱@╱ // 0x5d9 @0x18
0x05c1…05e2 at0019 = ╱40╱@╱ // 0x5da @0x19
0x05c1…05e2 at001a = ╱4b╱K╱ // 0x5db @0x1a
0x05c1…05e2 at001b = ╱54╱T╱ // 0x5dc @0x1b
0x05c1…05e2 at001c = ╱4f╱O╱ // 0x5dd @0x1c
0x05c1…05e2 at001d = ╱47╱G╱ // 0x5de @0x1d
0x05c1…05e2 at001e = ╱52╱R╱ // 0x5df @0x1e
0x05c1…05e2 at001f = ╱50╱P╱ // 0x5e0 @0x1f
0x05c1…05e2 at0020 = EOL // 0x5e1 @0x20
0x05c1…05e2 }
0x05e2…05f5 9be3 00550 DIM KTOGRP $ OF 17
0x05e2…05f5 LineComal80 {
0x05e2…05f5 ptr = 0x9be3 // 0x5e2 @0x0
0x05e2…05f5 lno = 0x0226 // 0x5e4 @0x2
0x05e2…05f5 at0004 = ╱87╱ DIM ╱ // 0x5e6 @0x4
0x05e2…05f5 at0005 = ╱4b╱K╱ // 0x5e7 @0x5
0x05e2…05f5 at0006 = ╱54╱T╱ // 0x5e8 @0x6
0x05e2…05f5 at0007 = ╱4f╱O╱ // 0x5e9 @0x7
0x05e2…05f5 at0008 = ╱47╱G╱ // 0x5ea @0x8
0x05e2…05f5 at0009 = ╱52╱R╱ // 0x5eb @0x9
0x05e2…05f5 at000a = ╱50╱P╱ // 0x5ec @0xa
0x05e2…05f5 at000b = ╱ef╱ $ ╱ // 0x5ed @0xb
0x05e2…05f5 at000c = ╱ba╱ OF ╱ // 0x5ee @0xc
0x05e2…05f5 at000d = ╱31╱1╱ // 0x5ef @0xd
0x05e2…05f5 at000e = ╱37╱7╱ // 0x5f0 @0xe
0x05e2…05f5 at000f = ╱f21100╱ // 0x5f1 @0xf
0x05e2…05f5 at0012 = EOL // 0x5f4 @0x12
0x05e2…05f5 }
0x05f5…0609 9bf7 00560 DIM A_KTOGRP $ OF 8
0x05f5…0609 LineComal80 {
0x05f5…0609 ptr = 0x9bf7 // 0x5f5 @0x0
0x05f5…0609 lno = 0x0230 // 0x5f7 @0x2
0x05f5…0609 at0004 = ╱87╱ DIM ╱ // 0x5f9 @0x4
0x05f5…0609 at0005 = ╱41╱A╱ // 0x5fa @0x5
0x05f5…0609 at0006 = ╱5f╱_╱ // 0x5fb @0x6
0x05f5…0609 at0007 = ╱4b╱K╱ // 0x5fc @0x7
0x05f5…0609 at0008 = ╱54╱T╱ // 0x5fd @0x8
0x05f5…0609 at0009 = ╱4f╱O╱ // 0x5fe @0x9
0x05f5…0609 at000a = ╱47╱G╱ // 0x5ff @0xa
0x05f5…0609 at000b = ╱52╱R╱ // 0x600 @0xb
0x05f5…0609 at000c = ╱50╱P╱ // 0x601 @0xc
0x05f5…0609 at000d = ╱ef╱ $ ╱ // 0x602 @0xd
0x05f5…0609 at000e = ╱ba╱ OF ╱ // 0x603 @0xe
0x05f5…0609 at000f = ╱38╱8╱ // 0x604 @0xf
0x05f5…0609 at0010 = ╱f20800╱ // 0x605 @0x10
0x05f5…0609 at0013 = EOL // 0x608 @0x13
0x05f5…0609 }
0x0609…0629 9c17 00570 // Variable…til…filen…@@KASSE
0x0609…0629 LineComal80 {
0x0609…0629 ptr = 0x9c17 // 0x609 @0x0
0x0609…0629 lno = 0x023a // 0x60b @0x2
0x0609…0629 at0004 = ╱89╱ // ╱ // 0x60d @0x4
0x0609…0629 at0005 = ╱56╱V╱ // 0x60e @0x5
0x0609…0629 at0006 = ╱61╱a╱ // 0x60f @0x6
0x0609…0629 at0007 = ╱72╱r╱ // 0x610 @0x7
0x0609…0629 at0008 = ╱69╱i╱ // 0x611 @0x8
0x0609…0629 at0009 = ╱61╱a╱ // 0x612 @0x9
0x0609…0629 at000a = ╱62╱b╱ // 0x613 @0xa
0x0609…0629 at000b = ╱6c╱l╱ // 0x614 @0xb
0x0609…0629 at000c = ╱65╱e╱ // 0x615 @0xc
0x0609…0629 at000d = ╱20╱…╱ // 0x616 @0xd
0x0609…0629 at000e = ╱74╱t╱ // 0x617 @0xe
0x0609…0629 at000f = ╱69╱i╱ // 0x618 @0xf
0x0609…0629 at0010 = ╱6c╱l╱ // 0x619 @0x10
0x0609…0629 at0011 = ╱20╱…╱ // 0x61a @0x11
0x0609…0629 at0012 = ╱66╱f╱ // 0x61b @0x12
0x0609…0629 at0013 = ╱69╱i╱ // 0x61c @0x13
0x0609…0629 at0014 = ╱6c╱l╱ // 0x61d @0x14
0x0609…0629 at0015 = ╱65╱e╱ // 0x61e @0x15
0x0609…0629 at0016 = ╱6e╱n╱ // 0x61f @0x16
0x0609…0629 at0017 = ╱20╱…╱ // 0x620 @0x17
0x0609…0629 at0018 = ╱40╱@╱ // 0x621 @0x18
0x0609…0629 at0019 = ╱40╱@╱ // 0x622 @0x19
0x0609…0629 at001a = ╱4b╱K╱ // 0x623 @0x1a
0x0609…0629 at001b = ╱41╱A╱ // 0x624 @0x1b
0x0609…0629 at001c = ╱53╱S╱ // 0x625 @0x1c
0x0609…0629 at001d = ╱53╱S╱ // 0x626 @0x1d
0x0609…0629 at001e = ╱45╱E╱ // 0x627 @0x1e
0x0609…0629 at001f = EOL // 0x628 @0x1f
0x0609…0629 }
0x0629…063b 9c29 00580 DIM KASSE $ OF 17
0x0629…063b LineComal80 {
0x0629…063b ptr = 0x9c29 // 0x629 @0x0
0x0629…063b lno = 0x0244 // 0x62b @0x2
0x0629…063b at0004 = ╱87╱ DIM ╱ // 0x62d @0x4
0x0629…063b at0005 = ╱4b╱K╱ // 0x62e @0x5
0x0629…063b at0006 = ╱41╱A╱ // 0x62f @0x6
0x0629…063b at0007 = ╱53╱S╱ // 0x630 @0x7
0x0629…063b at0008 = ╱53╱S╱ // 0x631 @0x8
0x0629…063b at0009 = ╱45╱E╱ // 0x632 @0x9
0x0629…063b at000a = ╱ef╱ $ ╱ // 0x633 @0xa
0x0629…063b at000b = ╱ba╱ OF ╱ // 0x634 @0xb
0x0629…063b at000c = ╱31╱1╱ // 0x635 @0xc
0x0629…063b at000d = ╱37╱7╱ // 0x636 @0xd
0x0629…063b at000e = ╱f21100╱ // 0x637 @0xe
0x0629…063b at0011 = EOL // 0x63a @0x11
0x0629…063b }
0x063b…065d 9c4b 00590 INTEGER K_H\JREC , K_MAXREC , S_NR_KASSE
0x063b…065d LineComal80 {
0x063b…065d ptr = 0x9c4b // 0x63b @0x0
0x063b…065d lno = 0x024e // 0x63d @0x2
0x063b…065d at0004 = ╱b2╱ INTEGER ╱ // 0x63f @0x4
0x063b…065d at0005 = ╱4b╱K╱ // 0x640 @0x5
0x063b…065d at0006 = ╱5f╱_╱ // 0x641 @0x6
0x063b…065d at0007 = ╱48╱H╱ // 0x642 @0x7
0x063b…065d at0008 = ╱5c╱\╱ // 0x643 @0x8
0x063b…065d at0009 = ╱4a╱J╱ // 0x644 @0x9
0x063b…065d at000a = ╱52╱R╱ // 0x645 @0xa
0x063b…065d at000b = ╱45╱E╱ // 0x646 @0xb
0x063b…065d at000c = ╱43╱C╱ // 0x647 @0xc
0x063b…065d at000d = ╱ec╱ , ╱ // 0x648 @0xd
0x063b…065d at000e = ╱4b╱K╱ // 0x649 @0xe
0x063b…065d at000f = ╱5f╱_╱ // 0x64a @0xf
0x063b…065d at0010 = ╱4d╱M╱ // 0x64b @0x10
0x063b…065d at0011 = ╱41╱A╱ // 0x64c @0x11
0x063b…065d at0012 = ╱58╱X╱ // 0x64d @0x12
0x063b…065d at0013 = ╱52╱R╱ // 0x64e @0x13
0x063b…065d at0014 = ╱45╱E╱ // 0x64f @0x14
0x063b…065d at0015 = ╱43╱C╱ // 0x650 @0x15
0x063b…065d at0016 = ╱ec╱ , ╱ // 0x651 @0x16
0x063b…065d at0017 = ╱53╱S╱ // 0x652 @0x17
0x063b…065d at0018 = ╱5f╱_╱ // 0x653 @0x18
0x063b…065d at0019 = ╱4e╱N╱ // 0x654 @0x19
0x063b…065d at001a = ╱52╱R╱ // 0x655 @0x1a
0x063b…065d at001b = ╱5f╱_╱ // 0x656 @0x1b
0x063b…065d at001c = ╱4b╱K╱ // 0x657 @0x1c
0x063b…065d at001d = ╱41╱A╱ // 0x658 @0x1d
0x063b…065d at001e = ╱53╱S╱ // 0x659 @0x1e
0x063b…065d at001f = ╱53╱S╱ // 0x65a @0x1f
0x063b…065d at0020 = ╱45╱E╱ // 0x65b @0x20
0x063b…065d at0021 = EOL // 0x65c @0x21
0x063b…065d }
0x065d…067e 9c6c 00600 // Variable…til…filen…@@DG_POS
0x065d…067e LineComal80 {
0x065d…067e ptr = 0x9c6c // 0x65d @0x0
0x065d…067e lno = 0x0258 // 0x65f @0x2
0x065d…067e at0004 = ╱89╱ // ╱ // 0x661 @0x4
0x065d…067e at0005 = ╱56╱V╱ // 0x662 @0x5
0x065d…067e at0006 = ╱61╱a╱ // 0x663 @0x6
0x065d…067e at0007 = ╱72╱r╱ // 0x664 @0x7
0x065d…067e at0008 = ╱69╱i╱ // 0x665 @0x8
0x065d…067e at0009 = ╱61╱a╱ // 0x666 @0x9
0x065d…067e at000a = ╱62╱b╱ // 0x667 @0xa
0x065d…067e at000b = ╱6c╱l╱ // 0x668 @0xb
0x065d…067e at000c = ╱65╱e╱ // 0x669 @0xc
0x065d…067e at000d = ╱20╱…╱ // 0x66a @0xd
0x065d…067e at000e = ╱74╱t╱ // 0x66b @0xe
0x065d…067e at000f = ╱69╱i╱ // 0x66c @0xf
0x065d…067e at0010 = ╱6c╱l╱ // 0x66d @0x10
0x065d…067e at0011 = ╱20╱…╱ // 0x66e @0x11
0x065d…067e at0012 = ╱66╱f╱ // 0x66f @0x12
0x065d…067e at0013 = ╱69╱i╱ // 0x670 @0x13
0x065d…067e at0014 = ╱6c╱l╱ // 0x671 @0x14
0x065d…067e at0015 = ╱65╱e╱ // 0x672 @0x15
0x065d…067e at0016 = ╱6e╱n╱ // 0x673 @0x16
0x065d…067e at0017 = ╱20╱…╱ // 0x674 @0x17
0x065d…067e at0018 = ╱40╱@╱ // 0x675 @0x18
0x065d…067e at0019 = ╱40╱@╱ // 0x676 @0x19
0x065d…067e at001a = ╱44╱D╱ // 0x677 @0x1a
0x065d…067e at001b = ╱47╱G╱ // 0x678 @0x1b
0x065d…067e at001c = ╱5f╱_╱ // 0x679 @0x1c
0x065d…067e at001d = ╱50╱P╱ // 0x67a @0x1d
0x065d…067e at001e = ╱4f╱O╱ // 0x67b @0x1e
0x065d…067e at001f = ╱53╱S╱ // 0x67c @0x1f
0x065d…067e at0020 = EOL // 0x67d @0x20
0x065d…067e }
0x067e…0691 9c7f 00610 DIM DG_POS $ OF 17
0x067e…0691 LineComal80 {
0x067e…0691 ptr = 0x9c7f // 0x67e @0x0
0x067e…0691 lno = 0x0262 // 0x680 @0x2
0x067e…0691 at0004 = ╱87╱ DIM ╱ // 0x682 @0x4
0x067e…0691 at0005 = ╱44╱D╱ // 0x683 @0x5
0x067e…0691 at0006 = ╱47╱G╱ // 0x684 @0x6
0x067e…0691 at0007 = ╱5f╱_╱ // 0x685 @0x7
0x067e…0691 at0008 = ╱50╱P╱ // 0x686 @0x8
0x067e…0691 at0009 = ╱4f╱O╱ // 0x687 @0x9
0x067e…0691 at000a = ╱53╱S╱ // 0x688 @0xa
0x067e…0691 at000b = ╱ef╱ $ ╱ // 0x689 @0xb
0x067e…0691 at000c = ╱ba╱ OF ╱ // 0x68a @0xc
0x067e…0691 at000d = ╱31╱1╱ // 0x68b @0xd
0x067e…0691 at000e = ╱37╱7╱ // 0x68c @0xe
0x067e…0691 at000f = ╱f21100╱ // 0x68d @0xf
0x067e…0691 at0012 = EOL // 0x690 @0x12
0x067e…0691 }
0x0691…06b4 9ca2 00620 INTEGER P_H\JREC , P_MAXREC , S_NR_DG_POS
0x0691…06b4 LineComal80 {
0x0691…06b4 ptr = 0x9ca2 // 0x691 @0x0
0x0691…06b4 lno = 0x026c // 0x693 @0x2
0x0691…06b4 at0004 = ╱b2╱ INTEGER ╱ // 0x695 @0x4
0x0691…06b4 at0005 = ╱50╱P╱ // 0x696 @0x5
0x0691…06b4 at0006 = ╱5f╱_╱ // 0x697 @0x6
0x0691…06b4 at0007 = ╱48╱H╱ // 0x698 @0x7
0x0691…06b4 at0008 = ╱5c╱\╱ // 0x699 @0x8
0x0691…06b4 at0009 = ╱4a╱J╱ // 0x69a @0x9
0x0691…06b4 at000a = ╱52╱R╱ // 0x69b @0xa
0x0691…06b4 at000b = ╱45╱E╱ // 0x69c @0xb
0x0691…06b4 at000c = ╱43╱C╱ // 0x69d @0xc
0x0691…06b4 at000d = ╱ec╱ , ╱ // 0x69e @0xd
0x0691…06b4 at000e = ╱50╱P╱ // 0x69f @0xe
0x0691…06b4 at000f = ╱5f╱_╱ // 0x6a0 @0xf
0x0691…06b4 at0010 = ╱4d╱M╱ // 0x6a1 @0x10
0x0691…06b4 at0011 = ╱41╱A╱ // 0x6a2 @0x11
0x0691…06b4 at0012 = ╱58╱X╱ // 0x6a3 @0x12
0x0691…06b4 at0013 = ╱52╱R╱ // 0x6a4 @0x13
0x0691…06b4 at0014 = ╱45╱E╱ // 0x6a5 @0x14
0x0691…06b4 at0015 = ╱43╱C╱ // 0x6a6 @0x15
0x0691…06b4 at0016 = ╱ec╱ , ╱ // 0x6a7 @0x16
0x0691…06b4 at0017 = ╱53╱S╱ // 0x6a8 @0x17
0x0691…06b4 at0018 = ╱5f╱_╱ // 0x6a9 @0x18
0x0691…06b4 at0019 = ╱4e╱N╱ // 0x6aa @0x19
0x0691…06b4 at001a = ╱52╱R╱ // 0x6ab @0x1a
0x0691…06b4 at001b = ╱5f╱_╱ // 0x6ac @0x1b
0x0691…06b4 at001c = ╱44╱D╱ // 0x6ad @0x1c
0x0691…06b4 at001d = ╱47╱G╱ // 0x6ae @0x1d
0x0691…06b4 at001e = ╱5f╱_╱ // 0x6af @0x1e
0x0691…06b4 at001f = ╱50╱P╱ // 0x6b0 @0x1f
0x0691…06b4 at0020 = ╱4f╱O╱ // 0x6b1 @0x20
0x0691…06b4 at0021 = ╱53╱S╱ // 0x6b2 @0x21
0x0691…06b4 at0022 = EOL // 0x6b3 @0x22
0x0691…06b4 }
0x06b4…06d5 9cc3 00630 // Variable…til…filen…@@DRIFT\
0x06b4…06d5 LineComal80 {
0x06b4…06d5 ptr = 0x9cc3 // 0x6b4 @0x0
0x06b4…06d5 lno = 0x0276 // 0x6b6 @0x2
0x06b4…06d5 at0004 = ╱89╱ // ╱ // 0x6b8 @0x4
0x06b4…06d5 at0005 = ╱56╱V╱ // 0x6b9 @0x5
0x06b4…06d5 at0006 = ╱61╱a╱ // 0x6ba @0x6
0x06b4…06d5 at0007 = ╱72╱r╱ // 0x6bb @0x7
0x06b4…06d5 at0008 = ╱69╱i╱ // 0x6bc @0x8
0x06b4…06d5 at0009 = ╱61╱a╱ // 0x6bd @0x9
0x06b4…06d5 at000a = ╱62╱b╱ // 0x6be @0xa
0x06b4…06d5 at000b = ╱6c╱l╱ // 0x6bf @0xb
0x06b4…06d5 at000c = ╱65╱e╱ // 0x6c0 @0xc
0x06b4…06d5 at000d = ╱20╱…╱ // 0x6c1 @0xd
0x06b4…06d5 at000e = ╱74╱t╱ // 0x6c2 @0xe
0x06b4…06d5 at000f = ╱69╱i╱ // 0x6c3 @0xf
0x06b4…06d5 at0010 = ╱6c╱l╱ // 0x6c4 @0x10
0x06b4…06d5 at0011 = ╱20╱…╱ // 0x6c5 @0x11
0x06b4…06d5 at0012 = ╱66╱f╱ // 0x6c6 @0x12
0x06b4…06d5 at0013 = ╱69╱i╱ // 0x6c7 @0x13
0x06b4…06d5 at0014 = ╱6c╱l╱ // 0x6c8 @0x14
0x06b4…06d5 at0015 = ╱65╱e╱ // 0x6c9 @0x15
0x06b4…06d5 at0016 = ╱6e╱n╱ // 0x6ca @0x16
0x06b4…06d5 at0017 = ╱20╱…╱ // 0x6cb @0x17
0x06b4…06d5 at0018 = ╱40╱@╱ // 0x6cc @0x18
0x06b4…06d5 at0019 = ╱40╱@╱ // 0x6cd @0x19
0x06b4…06d5 at001a = ╱44╱D╱ // 0x6ce @0x1a
0x06b4…06d5 at001b = ╱52╱R╱ // 0x6cf @0x1b
0x06b4…06d5 at001c = ╱49╱I╱ // 0x6d0 @0x1c
0x06b4…06d5 at001d = ╱46╱F╱ // 0x6d1 @0x1d
0x06b4…06d5 at001e = ╱54╱T╱ // 0x6d2 @0x1e
0x06b4…06d5 at001f = ╱5c╱\╱ // 0x6d3 @0x1f
0x06b4…06d5 at0020 = EOL // 0x6d4 @0x20
0x06b4…06d5 }
0x06d5…06e8 9cd6 00640 DIM DRIFT\ $ OF 17
0x06d5…06e8 LineComal80 {
0x06d5…06e8 ptr = 0x9cd6 // 0x6d5 @0x0
0x06d5…06e8 lno = 0x0280 // 0x6d7 @0x2
0x06d5…06e8 at0004 = ╱87╱ DIM ╱ // 0x6d9 @0x4
0x06d5…06e8 at0005 = ╱44╱D╱ // 0x6da @0x5
0x06d5…06e8 at0006 = ╱52╱R╱ // 0x6db @0x6
0x06d5…06e8 at0007 = ╱49╱I╱ // 0x6dc @0x7
0x06d5…06e8 at0008 = ╱46╱F╱ // 0x6dd @0x8
0x06d5…06e8 at0009 = ╱54╱T╱ // 0x6de @0x9
0x06d5…06e8 at000a = ╱5c╱\╱ // 0x6df @0xa
0x06d5…06e8 at000b = ╱ef╱ $ ╱ // 0x6e0 @0xb
0x06d5…06e8 at000c = ╱ba╱ OF ╱ // 0x6e1 @0xc
0x06d5…06e8 at000d = ╱31╱1╱ // 0x6e2 @0xd
0x06d5…06e8 at000e = ╱37╱7╱ // 0x6e3 @0xe
0x06d5…06e8 at000f = ╱f21100╱ // 0x6e4 @0xf
0x06d5…06e8 at0012 = EOL // 0x6e7 @0x12
0x06d5…06e8 }
0x06e8…06fc 9cea 00650 DIM PRIMODAT $ OF 6
0x06e8…06fc LineComal80 {
0x06e8…06fc ptr = 0x9cea // 0x6e8 @0x0
0x06e8…06fc lno = 0x028a // 0x6ea @0x2
0x06e8…06fc at0004 = ╱87╱ DIM ╱ // 0x6ec @0x4
0x06e8…06fc at0005 = ╱50╱P╱ // 0x6ed @0x5
0x06e8…06fc at0006 = ╱52╱R╱ // 0x6ee @0x6
0x06e8…06fc at0007 = ╱49╱I╱ // 0x6ef @0x7
0x06e8…06fc at0008 = ╱4d╱M╱ // 0x6f0 @0x8
0x06e8…06fc at0009 = ╱4f╱O╱ // 0x6f1 @0x9
0x06e8…06fc at000a = ╱44╱D╱ // 0x6f2 @0xa
0x06e8…06fc at000b = ╱41╱A╱ // 0x6f3 @0xb
0x06e8…06fc at000c = ╱54╱T╱ // 0x6f4 @0xc
0x06e8…06fc at000d = ╱ef╱ $ ╱ // 0x6f5 @0xd
0x06e8…06fc at000e = ╱ba╱ OF ╱ // 0x6f6 @0xe
0x06e8…06fc at000f = ╱36╱6╱ // 0x6f7 @0xf
0x06e8…06fc at0010 = ╱f20600╱ // 0x6f8 @0x10
0x06e8…06fc at0013 = EOL // 0x6fb @0x13
0x06e8…06fc }
0x06fc…070d 9cfb 00660 ENDPROC DIMENSIONER
0x06fc…070d LineComal80 {
0x06fc…070d ptr = 0x9cfb // 0x6fc @0x0
0x06fc…070d lno = 0x0294 // 0x6fe @0x2
0x06fc…070d at0004 = ╱9f╱ ENDPROC ╱ // 0x700 @0x4
0x06fc…070d at0005 = ╱44╱D╱ // 0x701 @0x5
0x06fc…070d at0006 = ╱49╱I╱ // 0x702 @0x6
0x06fc…070d at0007 = ╱4d╱M╱ // 0x703 @0x7
0x06fc…070d at0008 = ╱45╱E╱ // 0x704 @0x8
0x06fc…070d at0009 = ╱4e╱N╱ // 0x705 @0x9
0x06fc…070d at000a = ╱53╱S╱ // 0x706 @0xa
0x06fc…070d at000b = ╱49╱I╱ // 0x707 @0xb
0x06fc…070d at000c = ╱4f╱O╱ // 0x708 @0xc
0x06fc…070d at000d = ╱4e╱N╱ // 0x709 @0xd
0x06fc…070d at000e = ╱45╱E╱ // 0x70a @0xe
0x06fc…070d at000f = ╱52╱R╱ // 0x70b @0xf
0x06fc…070d at0010 = EOL // 0x70c @0x10
0x06fc…070d }
0x070d…0712 9d00 00670
0x070d…0712 LineComal80 {
0x070d…0712 ptr = 0x9d00 // 0x70d @0x0
0x070d…0712 lno = 0x029e // 0x70f @0x2
0x070d…0712 at0004 = EOL // 0x711 @0x4
0x070d…0712 }
0x0712…0720 9d0e 00680 PROC INITIER
0x0712…0720 LineComal80 {
0x0712…0720 ptr = 0x9d0e // 0x712 @0x0
0x0712…0720 lno = 0x02a8 // 0x714 @0x2
0x0712…0720 at0004 = ╱9e00╱ PROC ╱ // 0x716 @0x4
0x0712…0720 at0006 = ╱49╱I╱ // 0x718 @0x6
0x0712…0720 at0007 = ╱4e╱N╱ // 0x719 @0x7
0x0712…0720 at0008 = ╱49╱I╱ // 0x71a @0x8
0x0712…0720 at0009 = ╱54╱T╱ // 0x71b @0x9
0x0712…0720 at000a = ╱49╱I╱ // 0x71c @0xa
0x0712…0720 at000b = ╱45╱E╱ // 0x71d @0xb
0x0712…0720 at000c = ╱52╱R╱ // 0x71e @0xc
0x0712…0720 at000d = EOL // 0x71f @0xd
0x0712…0720 }
0x0720…0732 9d20 00690 LET PRGFL $ := "DP2"
0x0720…0732 LineComal80 {
0x0720…0732 ptr = 0x9d20 // 0x720 @0x0
0x0720…0732 lno = 0x02b2 // 0x722 @0x2
0x0720…0732 at0004 = ╱86╱ LET ╱ // 0x724 @0x4
0x0720…0732 at0005 = ╱50╱P╱ // 0x725 @0x5
0x0720…0732 at0006 = ╱52╱R╱ // 0x726 @0x6
0x0720…0732 at0007 = ╱47╱G╱ // 0x727 @0x7
0x0720…0732 at0008 = ╱46╱F╱ // 0x728 @0x8
0x0720…0732 at0009 = ╱4c╱L╱ // 0x729 @0x9
0x0720…0732 at000a = ╱ef╱ $ ╱ // 0x72a @0xa
0x0720…0732 at000b = ╱f0╱ := ╱ // 0x72b @0xb
0x0720…0732 at000c = ╱22╱"╱ // 0x72c @0xc
0x0720…0732 at000d = ╱44╱D╱ // 0x72d @0xd
0x0720…0732 at000e = ╱50╱P╱ // 0x72e @0xe
0x0720…0732 at000f = ╱32╱2╱ // 0x72f @0xf
0x0720…0732 at0010 = ╱22╱"╱ // 0x730 @0x10
0x0720…0732 at0011 = EOL // 0x731 @0x11
0x0720…0732 }
0x0732…074e 9d3c 00700 LET PROGRAM $ := PRGFL $ + ":SYS"
0x0732…074e LineComal80 {
0x0732…074e ptr = 0x9d3c // 0x732 @0x0
0x0732…074e lno = 0x02bc // 0x734 @0x2
0x0732…074e at0004 = ╱86╱ LET ╱ // 0x736 @0x4
0x0732…074e at0005 = ╱50╱P╱ // 0x737 @0x5
0x0732…074e at0006 = ╱52╱R╱ // 0x738 @0x6
0x0732…074e at0007 = ╱4f╱O╱ // 0x739 @0x7
0x0732…074e at0008 = ╱47╱G╱ // 0x73a @0x8
0x0732…074e at0009 = ╱52╱R╱ // 0x73b @0x9
0x0732…074e at000a = ╱41╱A╱ // 0x73c @0xa
0x0732…074e at000b = ╱4d╱M╱ // 0x73d @0xb
0x0732…074e at000c = ╱ef╱ $ ╱ // 0x73e @0xc
0x0732…074e at000d = ╱f0╱ := ╱ // 0x73f @0xd
0x0732…074e at000e = ╱50╱P╱ // 0x740 @0xe
0x0732…074e at000f = ╱52╱R╱ // 0x741 @0xf
0x0732…074e at0010 = ╱47╱G╱ // 0x742 @0x10
0x0732…074e at0011 = ╱46╱F╱ // 0x743 @0x11
0x0732…074e at0012 = ╱4c╱L╱ // 0x744 @0x12
0x0732…074e at0013 = ╱ef╱ $ ╱ // 0x745 @0x13
0x0732…074e at0014 = ╱eb╱ + ╱ // 0x746 @0x14
0x0732…074e at0015 = ╱22╱"╱ // 0x747 @0x15
0x0732…074e at0016 = ╱3a╱:╱ // 0x748 @0x16
0x0732…074e at0017 = ╱53╱S╱ // 0x749 @0x17
0x0732…074e at0018 = ╱59╱Y╱ // 0x74a @0x18
0x0732…074e at0019 = ╱53╱S╱ // 0x74b @0x19
0x0732…074e at001a = ╱22╱"╱ // 0x74c @0x1a
0x0732…074e at001b = EOL // 0x74d @0x1b
0x0732…074e }
0x074e…0765 9d53 00710 LET TAL $ := "1234567890"
0x074e…0765 LineComal80 {
0x074e…0765 ptr = 0x9d53 // 0x74e @0x0
0x074e…0765 lno = 0x02c6 // 0x750 @0x2
0x074e…0765 at0004 = ╱86╱ LET ╱ // 0x752 @0x4
0x074e…0765 at0005 = ╱54╱T╱ // 0x753 @0x5
0x074e…0765 at0006 = ╱41╱A╱ // 0x754 @0x6
0x074e…0765 at0007 = ╱4c╱L╱ // 0x755 @0x7
0x074e…0765 at0008 = ╱ef╱ $ ╱ // 0x756 @0x8
0x074e…0765 at0009 = ╱f0╱ := ╱ // 0x757 @0x9
0x074e…0765 at000a = ╱22╱"╱ // 0x758 @0xa
0x074e…0765 at000b = ╱31╱1╱ // 0x759 @0xb
0x074e…0765 at000c = ╱32╱2╱ // 0x75a @0xc
0x074e…0765 at000d = ╱33╱3╱ // 0x75b @0xd
0x074e…0765 at000e = ╱34╱4╱ // 0x75c @0xe
0x074e…0765 at000f = ╱35╱5╱ // 0x75d @0xf
0x074e…0765 at0010 = ╱36╱6╱ // 0x75e @0x10
0x074e…0765 at0011 = ╱37╱7╱ // 0x75f @0x11
0x074e…0765 at0012 = ╱38╱8╱ // 0x760 @0x12
0x074e…0765 at0013 = ╱39╱9╱ // 0x761 @0x13
0x074e…0765 at0014 = ╱30╱0╱ // 0x762 @0x14
0x074e…0765 at0015 = ╱22╱"╱ // 0x763 @0x15
0x074e…0765 at0016 = EOL // 0x764 @0x16
0x074e…0765 }
0x0765…078d 9d7b 00720 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
0x0765…078d LineComal80 {
0x0765…078d ptr = 0x9d7b // 0x765 @0x0
0x0765…078d lno = 0x02d0 // 0x767 @0x2
0x0765…078d at0004 = ╱b400╱ FOR ╱ // 0x769 @0x4
0x0765…078d at0006 = ╱49╱I╱ // 0x76b @0x6
0x0765…078d at0007 = ╱f0╱ := ╱ // 0x76c @0x7
0x0765…078d at0008 = ╱cc╱ // 0x76d @0x8
0x0765…078d at0009 = ╱ed╱ ( ╱ // 0x76e @0x9
0x0765…078d at000a = ╱22╱"╱ // 0x76f @0xa
0x0765…078d at000b = ╱41╱A╱ // 0x770 @0xb
0x0765…078d at000c = ╱22╱"╱ // 0x771 @0xc
0x0765…078d at000d = ╱ee╱ ) ╱ // 0x772 @0xd
0x0765…078d at000e = ╱b7cc╱ TO ╱ // 0x773 @0xe
0x0765…078d at0010 = ╱ed╱ ( ╱ // 0x775 @0x10
0x0765…078d at0011 = ╱22╱"╱ // 0x776 @0x11
0x0765…078d at0012 = ╱5d╱]╱ // 0x777 @0x12
0x0765…078d at0013 = ╱22╱"╱ // 0x778 @0x13
0x0765…078d at0014 = ╱ee╱ ) ╱ // 0x779 @0x14
0x0765…078d at0015 = ╱bb╱ DO ╱ // 0x77a @0x15
0x0765…078d at0016 = ╱86╱ LET ╱ // 0x77b @0x16
0x0765…078d at0017 = ╱41╱A╱ // 0x77c @0x17
0x0765…078d at0018 = ╱4c╱L╱ // 0x77d @0x18
0x0765…078d at0019 = ╱46╱F╱ // 0x77e @0x19
0x0765…078d at001a = ╱41╱A╱ // 0x77f @0x1a
0x0765…078d at001b = ╱ef╱ $ ╱ // 0x780 @0x1b
0x0765…078d at001c = ╱f0╱ := ╱ // 0x781 @0x1c
0x0765…078d at001d = ╱41╱A╱ // 0x782 @0x1d
0x0765…078d at001e = ╱4c╱L╱ // 0x783 @0x1e
0x0765…078d at001f = ╱46╱F╱ // 0x784 @0x1f
0x0765…078d at0020 = ╱41╱A╱ // 0x785 @0x20
0x0765…078d at0021 = ╱ef╱ $ ╱ // 0x786 @0x21
0x0765…078d at0022 = ╱eb╱ + ╱ // 0x787 @0x22
0x0765…078d at0023 = ╱d0╱ CHR$ ╱ // 0x788 @0x23
0x0765…078d at0024 = ╱ed╱ ( ╱ // 0x789 @0x24
0x0765…078d at0025 = ╱49╱I╱ // 0x78a @0x25
0x0765…078d at0026 = ╱ee╱ ) ╱ // 0x78b @0x26
0x0765…078d at0027 = EOL // 0x78c @0x27
0x0765…078d }
0x078d…07c6 9db4 00730 LET SPC $ := "……………………………………………………………………………………………………………………"
0x078d…07c6 LineComal80 {
0x078d…07c6 ptr = 0x9db4 // 0x78d @0x0
0x078d…07c6 lno = 0x02da // 0x78f @0x2
0x078d…07c6 at0004 = ╱86╱ LET ╱ // 0x791 @0x4
0x078d…07c6 at0005 = ╱53╱S╱ // 0x792 @0x5
0x078d…07c6 at0006 = ╱50╱P╱ // 0x793 @0x6
0x078d…07c6 at0007 = ╱43╱C╱ // 0x794 @0x7
0x078d…07c6 at0008 = ╱ef╱ $ ╱ // 0x795 @0x8
0x078d…07c6 at0009 = ╱f0╱ := ╱ // 0x796 @0x9
0x078d…07c6 at000a = ╱22╱"╱ // 0x797 @0xa
0x078d…07c6 at000b = ╱20╱…╱ // 0x798 @0xb
0x078d…07c6 at000c = ╱20╱…╱ // 0x799 @0xc
0x078d…07c6 at000d = ╱20╱…╱ // 0x79a @0xd
0x078d…07c6 at000e = ╱20╱…╱ // 0x79b @0xe
0x078d…07c6 at000f = ╱20╱…╱ // 0x79c @0xf
0x078d…07c6 at0010 = ╱20╱…╱ // 0x79d @0x10
0x078d…07c6 at0011 = ╱20╱…╱ // 0x79e @0x11
0x078d…07c6 at0012 = ╱20╱…╱ // 0x79f @0x12
0x078d…07c6 at0013 = ╱20╱…╱ // 0x7a0 @0x13
0x078d…07c6 at0014 = ╱20╱…╱ // 0x7a1 @0x14
0x078d…07c6 at0015 = ╱20╱…╱ // 0x7a2 @0x15
0x078d…07c6 at0016 = ╱20╱…╱ // 0x7a3 @0x16
0x078d…07c6 at0017 = ╱20╱…╱ // 0x7a4 @0x17
0x078d…07c6 at0018 = ╱20╱…╱ // 0x7a5 @0x18
0x078d…07c6 at0019 = ╱20╱…╱ // 0x7a6 @0x19
0x078d…07c6 at001a = ╱20╱…╱ // 0x7a7 @0x1a
0x078d…07c6 at001b = ╱20╱…╱ // 0x7a8 @0x1b
0x078d…07c6 at001c = ╱20╱…╱ // 0x7a9 @0x1c
0x078d…07c6 at001d = ╱20╱…╱ // 0x7aa @0x1d
0x078d…07c6 at001e = ╱20╱…╱ // 0x7ab @0x1e
0x078d…07c6 at001f = ╱20╱…╱ // 0x7ac @0x1f
0x078d…07c6 at0020 = ╱20╱…╱ // 0x7ad @0x20
0x078d…07c6 at0021 = ╱20╱…╱ // 0x7ae @0x21
0x078d…07c6 at0022 = ╱20╱…╱ // 0x7af @0x22
0x078d…07c6 at0023 = ╱20╱…╱ // 0x7b0 @0x23
0x078d…07c6 at0024 = ╱20╱…╱ // 0x7b1 @0x24
0x078d…07c6 at0025 = ╱20╱…╱ // 0x7b2 @0x25
0x078d…07c6 at0026 = ╱20╱…╱ // 0x7b3 @0x26
0x078d…07c6 at0027 = ╱20╱…╱ // 0x7b4 @0x27
0x078d…07c6 at0028 = ╱20╱…╱ // 0x7b5 @0x28
0x078d…07c6 at0029 = ╱20╱…╱ // 0x7b6 @0x29
0x078d…07c6 at002a = ╱20╱…╱ // 0x7b7 @0x2a
0x078d…07c6 at002b = ╱20╱…╱ // 0x7b8 @0x2b
0x078d…07c6 at002c = ╱20╱…╱ // 0x7b9 @0x2c
0x078d…07c6 at002d = ╱20╱…╱ // 0x7ba @0x2d
0x078d…07c6 at002e = ╱20╱…╱ // 0x7bb @0x2e
0x078d…07c6 at002f = ╱20╱…╱ // 0x7bc @0x2f
0x078d…07c6 at0030 = ╱20╱…╱ // 0x7bd @0x30
0x078d…07c6 at0031 = ╱20╱…╱ // 0x7be @0x31
0x078d…07c6 at0032 = ╱20╱…╱ // 0x7bf @0x32
0x078d…07c6 at0033 = ╱20╱…╱ // 0x7c0 @0x33
0x078d…07c6 at0034 = ╱20╱…╱ // 0x7c1 @0x34
0x078d…07c6 at0035 = ╱20╱…╱ // 0x7c2 @0x35
0x078d…07c6 at0036 = ╱20╱…╱ // 0x7c3 @0x36
0x078d…07c6 at0037 = ╱22╱"╱ // 0x7c4 @0x37
0x078d…07c6 at0038 = EOL // 0x7c5 @0x38
0x078d…07c6 }
0x07c6…07da 9dc8 00740 LET SPC $ := SPC $ + SPC $
0x07c6…07da LineComal80 {
0x07c6…07da ptr = 0x9dc8 // 0x7c6 @0x0
0x07c6…07da lno = 0x02e4 // 0x7c8 @0x2
0x07c6…07da at0004 = ╱86╱ LET ╱ // 0x7ca @0x4
0x07c6…07da at0005 = ╱53╱S╱ // 0x7cb @0x5
0x07c6…07da at0006 = ╱50╱P╱ // 0x7cc @0x6
0x07c6…07da at0007 = ╱43╱C╱ // 0x7cd @0x7
0x07c6…07da at0008 = ╱ef╱ $ ╱ // 0x7ce @0x8
0x07c6…07da at0009 = ╱f0╱ := ╱ // 0x7cf @0x9
0x07c6…07da at000a = ╱53╱S╱ // 0x7d0 @0xa
0x07c6…07da at000b = ╱50╱P╱ // 0x7d1 @0xb
0x07c6…07da at000c = ╱43╱C╱ // 0x7d2 @0xc
0x07c6…07da at000d = ╱ef╱ $ ╱ // 0x7d3 @0xd
0x07c6…07da at000e = ╱eb╱ + ╱ // 0x7d4 @0xe
0x07c6…07da at000f = ╱53╱S╱ // 0x7d5 @0xf
0x07c6…07da at0010 = ╱50╱P╱ // 0x7d6 @0x10
0x07c6…07da at0011 = ╱43╱C╱ // 0x7d7 @0x11
0x07c6…07da at0012 = ╱ef╱ $ ╱ // 0x7d8 @0x12
0x07c6…07da at0013 = EOL // 0x7d9 @0x13
0x07c6…07da }
0x07da…0805 9df3 00750 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x07da…0805 LineComal80 {
0x07da…0805 ptr = 0x9df3 // 0x7da @0x0
0x07da…0805 lno = 0x02ee // 0x7dc @0x2
0x07da…0805 at0004 = ╱86╱ LET ╱ // 0x7de @0x4
0x07da…0805 at0005 = ╱46╱F╱ // 0x7df @0x5
0x07da…0805 at0006 = ╱41╱A╱ // 0x7e0 @0x6
0x07da…0805 at0007 = ╱4c╱L╱ // 0x7e1 @0x7
0x07da…0805 at0008 = ╱53╱S╱ // 0x7e2 @0x8
0x07da…0805 at0009 = ╱45╱E╱ // 0x7e3 @0x9
0x07da…0805 at000a = ╱f0╱ := ╱ // 0x7e4 @0xa
0x07da…0805 at000b = ╱30╱0╱ // 0x7e5 @0xb
0x07da…0805 at000c = ╱f20000╱ // 0x7e6 @0xc
0x07da…0805 at000f = ╱ea╱ ; ╱ // 0x7e9 @0xf
0x07da…0805 at0010 = ╱54╱T╱ // 0x7ea @0x10
0x07da…0805 at0011 = ╱52╱R╱ // 0x7eb @0x11
0x07da…0805 at0012 = ╱55╱U╱ // 0x7ec @0x12
0x07da…0805 at0013 = ╱45╱E╱ // 0x7ed @0x13
0x07da…0805 at0014 = ╱f0╱ := ╱ // 0x7ee @0x14
0x07da…0805 at0015 = ╱31╱1╱ // 0x7ef @0x15
0x07da…0805 at0016 = ╱f20100╱ // 0x7f0 @0x16
0x07da…0805 at0019 = ╱89╱ // ╱ // 0x7f3 @0x19
0x07da…0805 at001a = ╱62╱b╱ // 0x7f4 @0x1a
0x07da…0805 at001b = ╱6f╱o╱ // 0x7f5 @0x1b
0x07da…0805 at001c = ╱6f╱o╱ // 0x7f6 @0x1c
0x07da…0805 at001d = ╱6c╱l╱ // 0x7f7 @0x1d
0x07da…0805 at001e = ╱73╱s╱ // 0x7f8 @0x1e
0x07da…0805 at001f = ╱6b╱k╱ // 0x7f9 @0x1f
0x07da…0805 at0020 = ╱65╱e╱ // 0x7fa @0x20
0x07da…0805 at0021 = ╱20╱…╱ // 0x7fb @0x21
0x07da…0805 at0022 = ╱76╱v╱ // 0x7fc @0x22
0x07da…0805 at0023 = ╱61╱a╱ // 0x7fd @0x23
0x07da…0805 at0024 = ╱72╱r╱ // 0x7fe @0x24
0x07da…0805 at0025 = ╱69╱i╱ // 0x7ff @0x25
0x07da…0805 at0026 = ╱61╱a╱ // 0x800 @0x26
0x07da…0805 at0027 = ╱62╱b╱ // 0x801 @0x27
0x07da…0805 at0028 = ╱6c╱l╱ // 0x802 @0x28
0x07da…0805 at0029 = ╱65╱e╱ // 0x803 @0x29
0x07da…0805 at002a = EOL // 0x804 @0x2a
0x07da…0805 }
0x0805…0825 9e13 00760 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x0805…0825 LineComal80 {
0x0805…0825 ptr = 0x9e13 // 0x805 @0x0
0x0805…0825 lno = 0x02f8 // 0x807 @0x2
0x0805…0825 at0004 = ╱86╱ LET ╱ // 0x809 @0x4
0x0805…0825 at0005 = ╱53╱S╱ // 0x80a @0x5
0x0805…0825 at0006 = ╱59╱Y╱ // 0x80b @0x6
0x0805…0825 at0007 = ╱53╱S╱ // 0x80c @0x7
0x0805…0825 at0008 = ╱50╱P╱ // 0x80d @0x8
0x0805…0825 at0009 = ╱41╱A╱ // 0x80e @0x9
0x0805…0825 at000a = ╱52╱R╱ // 0x80f @0xa
0x0805…0825 at000b = ╱41╱A╱ // 0x810 @0xb
0x0805…0825 at000c = ╱ef╱ $ ╱ // 0x811 @0xc
0x0805…0825 at000d = ╱f0╱ := ╱ // 0x812 @0xd
0x0805…0825 at000e = ╱50╱P╱ // 0x813 @0xe
0x0805…0825 at000f = ╱52╱R╱ // 0x814 @0xf
0x0805…0825 at0010 = ╱47╱G╱ // 0x815 @0x10
0x0805…0825 at0011 = ╱46╱F╱ // 0x816 @0x11
0x0805…0825 at0012 = ╱4c╱L╱ // 0x817 @0x12
0x0805…0825 at0013 = ╱ef╱ $ ╱ // 0x818 @0x13
0x0805…0825 at0014 = ╱eb╱ + ╱ // 0x819 @0x14
0x0805…0825 at0015 = ╱22╱"╱ // 0x81a @0x15
0x0805…0825 at0016 = ╱3a╱:╱ // 0x81b @0x16
0x0805…0825 at0017 = ╱53╱S╱ // 0x81c @0x17
0x0805…0825 at0018 = ╱59╱Y╱ // 0x81d @0x18
0x0805…0825 at0019 = ╱53╱S╱ // 0x81e @0x19
0x0805…0825 at001a = ╱50╱P╱ // 0x81f @0x1a
0x0805…0825 at001b = ╱41╱A╱ // 0x820 @0x1b
0x0805…0825 at001c = ╱52╱R╱ // 0x821 @0x1c
0x0805…0825 at001d = ╱41╱A╱ // 0x822 @0x1d
0x0805…0825 at001e = ╱22╱"╱ // 0x823 @0x1e
0x0805…0825 at001f = EOL // 0x824 @0x1f
0x0805…0825 }
0x0825…0840 9e2e 00770 EXEC OPENFIL ( SYSPARA $ , "R" )
0x0825…0840 LineComal80 {
0x0825…0840 ptr = 0x9e2e // 0x825 @0x0
0x0825…0840 lno = 0x0302 // 0x827 @0x2
0x0825…0840 at0004 = ╱9d╱ EXEC ╱ // 0x829 @0x4
0x0825…0840 at0005 = ╱4f╱O╱ // 0x82a @0x5
0x0825…0840 at0006 = ╱50╱P╱ // 0x82b @0x6
0x0825…0840 at0007 = ╱45╱E╱ // 0x82c @0x7
0x0825…0840 at0008 = ╱4e╱N╱ // 0x82d @0x8
0x0825…0840 at0009 = ╱46╱F╱ // 0x82e @0x9
0x0825…0840 at000a = ╱49╱I╱ // 0x82f @0xa
0x0825…0840 at000b = ╱4c╱L╱ // 0x830 @0xb
0x0825…0840 at000c = ╱ed╱ ( ╱ // 0x831 @0xc
0x0825…0840 at000d = ╱53╱S╱ // 0x832 @0xd
0x0825…0840 at000e = ╱59╱Y╱ // 0x833 @0xe
0x0825…0840 at000f = ╱53╱S╱ // 0x834 @0xf
0x0825…0840 at0010 = ╱50╱P╱ // 0x835 @0x10
0x0825…0840 at0011 = ╱41╱A╱ // 0x836 @0x11
0x0825…0840 at0012 = ╱52╱R╱ // 0x837 @0x12
0x0825…0840 at0013 = ╱41╱A╱ // 0x838 @0x13
0x0825…0840 at0014 = ╱ef╱ $ ╱ // 0x839 @0x14
0x0825…0840 at0015 = ╱ec╱ , ╱ // 0x83a @0x15
0x0825…0840 at0016 = ╱22╱"╱ // 0x83b @0x16
0x0825…0840 at0017 = ╱52╱R╱ // 0x83c @0x17
0x0825…0840 at0018 = ╱22╱"╱ // 0x83d @0x18
0x0825…0840 at0019 = ╱ee╱ ) ╱ // 0x83e @0x19
0x0825…0840 at001a = EOL // 0x83f @0x1a
0x0825…0840 }
0x0840…0866 9e54 00780 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x0840…0866 LineComal80 {
0x0840…0866 ptr = 0x9e54 // 0x840 @0x0
0x0840…0866 lno = 0x030c // 0x842 @0x2
0x0840…0866 at0004 = ╱a9╱ GET ╱ // 0x844 @0x4
0x0840…0866 at0005 = ╱53╱S╱ // 0x845 @0x5
0x0840…0866 at0006 = ╱59╱Y╱ // 0x846 @0x6
0x0840…0866 at0007 = ╱53╱S╱ // 0x847 @0x7
0x0840…0866 at0008 = ╱50╱P╱ // 0x848 @0x8
0x0840…0866 at0009 = ╱41╱A╱ // 0x849 @0x9
0x0840…0866 at000a = ╱52╱R╱ // 0x84a @0xa
0x0840…0866 at000b = ╱41╱A╱ // 0x84b @0xb
0x0840…0866 at000c = ╱ef╱ $ ╱ // 0x84c @0xc
0x0840…0866 at000d = ╱ec╱ , ╱ // 0x84d @0xd
0x0840…0866 at000e = ╱31╱1╱ // 0x84e @0xe
0x0840…0866 at000f = ╱f20100╱ // 0x84f @0xf
0x0840…0866 at0012 = ╱f1╱ : ╱ // 0x852 @0x12
0x0840…0866 at0013 = ╱53╱S╱ // 0x853 @0x13
0x0840…0866 at0014 = ╱59╱Y╱ // 0x854 @0x14
0x0840…0866 at0015 = ╱53╱S╱ // 0x855 @0x15
0x0840…0866 at0016 = ╱54╱T╱ // 0x856 @0x16
0x0840…0866 at0017 = ╱5f╱_╱ // 0x857 @0x17
0x0840…0866 at0018 = ╱4e╱N╱ // 0x858 @0x18
0x0840…0866 at0019 = ╱41╱A╱ // 0x859 @0x19
0x0840…0866 at001a = ╱56╱V╱ // 0x85a @0x1a
0x0840…0866 at001b = ╱4e╱N╱ // 0x85b @0x1b
0x0840…0866 at001c = ╱ef╱ $ ╱ // 0x85c @0x1c
0x0840…0866 at001d = ╱ec╱ , ╱ // 0x85d @0x1d
0x0840…0866 at001e = ╱53╱S╱ // 0x85e @0x1e
0x0840…0866 at001f = ╱5f╱_╱ // 0x85f @0x1f
0x0840…0866 at0020 = ╱4b╱K╱ // 0x860 @0x20
0x0840…0866 at0021 = ╱4f╱O╱ // 0x861 @0x21
0x0840…0866 at0022 = ╱44╱D╱ // 0x862 @0x22
0x0840…0866 at0023 = ╱45╱E╱ // 0x863 @0x23
0x0840…0866 at0024 = ╱ef╱ $ ╱ // 0x864 @0x24
0x0840…0866 at0025 = EOL // 0x865 @0x25
0x0840…0866 }
0x0866…0878 9e66 00790 EXEC TERMINAL_IDX
0x0866…0878 LineComal80 {
0x0866…0878 ptr = 0x9e66 // 0x866 @0x0
0x0866…0878 lno = 0x0316 // 0x868 @0x2
0x0866…0878 at0004 = ╱9d╱ EXEC ╱ // 0x86a @0x4
0x0866…0878 at0005 = ╱54╱T╱ // 0x86b @0x5
0x0866…0878 at0006 = ╱45╱E╱ // 0x86c @0x6
0x0866…0878 at0007 = ╱52╱R╱ // 0x86d @0x7
0x0866…0878 at0008 = ╱4d╱M╱ // 0x86e @0x8
0x0866…0878 at0009 = ╱49╱I╱ // 0x86f @0x9
0x0866…0878 at000a = ╱4e╱N╱ // 0x870 @0xa
0x0866…0878 at000b = ╱41╱A╱ // 0x871 @0xb
0x0866…0878 at000c = ╱4c╱L╱ // 0x872 @0xc
0x0866…0878 at000d = ╱5f╱_╱ // 0x873 @0xd
0x0866…0878 at000e = ╱49╱I╱ // 0x874 @0xe
0x0866…0878 at000f = ╱44╱D╱ // 0x875 @0xf
0x0866…0878 at0010 = ╱58╱X╱ // 0x876 @0x10
0x0866…0878 at0011 = EOL // 0x877 @0x11
0x0866…0878 }
0x0878…0886 9e74 00800 CLOSE SYSPARA $
0x0878…0886 LineComal80 {
0x0878…0886 ptr = 0x9e74 // 0x878 @0x0
0x0878…0886 lno = 0x0320 // 0x87a @0x2
0x0878…0886 at0004 = ╱a8╱ CLOSE ╱ // 0x87c @0x4
0x0878…0886 at0005 = ╱53╱S╱ // 0x87d @0x5
0x0878…0886 at0006 = ╱59╱Y╱ // 0x87e @0x6
0x0878…0886 at0007 = ╱53╱S╱ // 0x87f @0x7
0x0878…0886 at0008 = ╱50╱P╱ // 0x880 @0x8
0x0878…0886 at0009 = ╱41╱A╱ // 0x881 @0x9
0x0878…0886 at000a = ╱52╱R╱ // 0x882 @0xa
0x0878…0886 at000b = ╱41╱A╱ // 0x883 @0xb
0x0878…0886 at000c = ╱ef╱ $ ╱ // 0x884 @0xc
0x0878…0886 at000d = EOL // 0x885 @0xd
0x0878…0886 }
0x0886…08b6 9ea4 00810 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x0886…08b6 LineComal80 {
0x0886…08b6 ptr = 0x9ea4 // 0x886 @0x0
0x0886…08b6 lno = 0x032a // 0x888 @0x2
0x0886…08b6 at0004 = ╱86╱ LET ╱ // 0x88a @0x4
0x0886…08b6 at0005 = ╱50╱P╱ // 0x88b @0x5
0x0886…08b6 at0006 = ╱41╱A╱ // 0x88c @0x6
0x0886…08b6 at0007 = ╱52╱R╱ // 0x88d @0x7
0x0886…08b6 at0008 = ╱41╱A╱ // 0x88e @0x8
0x0886…08b6 at0009 = ╱4d╱M╱ // 0x88f @0x9
0x0886…08b6 at000a = ╱ef╱ $ ╱ // 0x890 @0xa
0x0886…08b6 at000b = ╱f0╱ := ╱ // 0x891 @0xb
0x0886…08b6 at000c = ╱44╱D╱ // 0x892 @0xc
0x0886…08b6 at000d = ╱41╱A╱ // 0x893 @0xd
0x0886…08b6 at000e = ╱54╱T╱ // 0x894 @0xe
0x0886…08b6 at000f = ╱41╱A╱ // 0x895 @0xf
0x0886…08b6 at0010 = ╱46╱F╱ // 0x896 @0x10
0x0886…08b6 at0011 = ╱4c╱L╱ // 0x897 @0x11
0x0886…08b6 at0012 = ╱ef╱ $ ╱ // 0x898 @0x12
0x0886…08b6 at0013 = ╱eb╱ + ╱ // 0x899 @0x13
0x0886…08b6 at0014 = ╱22╱"╱ // 0x89a @0x14
0x0886…08b6 at0015 = ╱3a╱:╱ // 0x89b @0x15
0x0886…08b6 at0016 = ╱22╱"╱ // 0x89c @0x16
0x0886…08b6 at0017 = ╱eb╱ + ╱ // 0x89d @0x17
0x0886…08b6 at0018 = ╱53╱S╱ // 0x89e @0x18
0x0886…08b6 at0019 = ╱5f╱_╱ // 0x89f @0x19
0x0886…08b6 at001a = ╱4b╱K╱ // 0x8a0 @0x1a
0x0886…08b6 at001b = ╱4f╱O╱ // 0x8a1 @0x1b
0x0886…08b6 at001c = ╱44╱D╱ // 0x8a2 @0x1c
0x0886…08b6 at001d = ╱45╱E╱ // 0x8a3 @0x1d
0x0886…08b6 at001e = ╱ef╱ $ ╱ // 0x8a4 @0x1e
0x0886…08b6 at001f = ╱eb╱ + ╱ // 0x8a5 @0x1f
0x0886…08b6 at0020 = ╱54╱T╱ // 0x8a6 @0x20
0x0886…08b6 at0021 = ╱5f╱_╱ // 0x8a7 @0x21
0x0886…08b6 at0022 = ╱4b╱K╱ // 0x8a8 @0x22
0x0886…08b6 at0023 = ╱4f╱O╱ // 0x8a9 @0x23
0x0886…08b6 at0024 = ╱44╱D╱ // 0x8aa @0x24
0x0886…08b6 at0025 = ╱45╱E╱ // 0x8ab @0x25
0x0886…08b6 at0026 = ╱ef╱ $ ╱ // 0x8ac @0x26
0x0886…08b6 at0027 = ╱eb╱ + ╱ // 0x8ad @0x27
0x0886…08b6 at0028 = ╱22╱"╱ // 0x8ae @0x28
0x0886…08b6 at0029 = ╱50╱P╱ // 0x8af @0x29
0x0886…08b6 at002a = ╱41╱A╱ // 0x8b0 @0x2a
0x0886…08b6 at002b = ╱52╱R╱ // 0x8b1 @0x2b
0x0886…08b6 at002c = ╱41╱A╱ // 0x8b2 @0x2c
0x0886…08b6 at002d = ╱4d╱M╱ // 0x8b3 @0x2d
0x0886…08b6 at002e = ╱22╱"╱ // 0x8b4 @0x2e
0x0886…08b6 at002f = EOL // 0x8b5 @0x2f
0x0886…08b6 }
0x08b6…08cf 9ebd 00820 EXEC OPENFIL ( PARAM $ , "W" )
0x08b6…08cf LineComal80 {
0x08b6…08cf ptr = 0x9ebd // 0x8b6 @0x0
0x08b6…08cf lno = 0x0334 // 0x8b8 @0x2
0x08b6…08cf at0004 = ╱9d╱ EXEC ╱ // 0x8ba @0x4
0x08b6…08cf at0005 = ╱4f╱O╱ // 0x8bb @0x5
0x08b6…08cf at0006 = ╱50╱P╱ // 0x8bc @0x6
0x08b6…08cf at0007 = ╱45╱E╱ // 0x8bd @0x7
0x08b6…08cf at0008 = ╱4e╱N╱ // 0x8be @0x8
0x08b6…08cf at0009 = ╱46╱F╱ // 0x8bf @0x9
0x08b6…08cf at000a = ╱49╱I╱ // 0x8c0 @0xa
0x08b6…08cf at000b = ╱4c╱L╱ // 0x8c1 @0xb
0x08b6…08cf at000c = ╱ed╱ ( ╱ // 0x8c2 @0xc
0x08b6…08cf at000d = ╱50╱P╱ // 0x8c3 @0xd
0x08b6…08cf at000e = ╱41╱A╱ // 0x8c4 @0xe
0x08b6…08cf at000f = ╱52╱R╱ // 0x8c5 @0xf
0x08b6…08cf at0010 = ╱41╱A╱ // 0x8c6 @0x10
0x08b6…08cf at0011 = ╱4d╱M╱ // 0x8c7 @0x11
0x08b6…08cf at0012 = ╱ef╱ $ ╱ // 0x8c8 @0x12
0x08b6…08cf at0013 = ╱ec╱ , ╱ // 0x8c9 @0x13
0x08b6…08cf at0014 = ╱22╱"╱ // 0x8ca @0x14
0x08b6…08cf at0015 = ╱57╱W╱ // 0x8cb @0x15
0x08b6…08cf at0016 = ╱22╱"╱ // 0x8cc @0x16
0x08b6…08cf at0017 = ╱ee╱ ) ╱ // 0x8cd @0x17
0x08b6…08cf at0018 = EOL // 0x8ce @0x18
0x08b6…08cf }
0x08cf…08fa 9ee8 00830 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x08cf…08fa LineComal80 {
0x08cf…08fa ptr = 0x9ee8 // 0x8cf @0x0
0x08cf…08fa lno = 0x033e // 0x8d1 @0x2
0x08cf…08fa at0004 = ╱a9╱ GET ╱ // 0x8d3 @0x4
0x08cf…08fa at0005 = ╱50╱P╱ // 0x8d4 @0x5
0x08cf…08fa at0006 = ╱41╱A╱ // 0x8d5 @0x6
0x08cf…08fa at0007 = ╱52╱R╱ // 0x8d6 @0x7
0x08cf…08fa at0008 = ╱41╱A╱ // 0x8d7 @0x8
0x08cf…08fa at0009 = ╱4d╱M╱ // 0x8d8 @0x9
0x08cf…08fa at000a = ╱ef╱ $ ╱ // 0x8d9 @0xa
0x08cf…08fa at000b = ╱ec╱ , ╱ // 0x8da @0xb
0x08cf…08fa at000c = ╱31╱1╱ // 0x8db @0xc
0x08cf…08fa at000d = ╱f20100╱ // 0x8dc @0xd
0x08cf…08fa at0010 = ╱f1╱ : ╱ // 0x8df @0x10
0x08cf…08fa at0011 = ╱46╱F╱ // 0x8e0 @0x11
0x08cf…08fa at0012 = ╱49╱I╱ // 0x8e1 @0x12
0x08cf…08fa at0013 = ╱52╱R╱ // 0x8e2 @0x13
0x08cf…08fa at0014 = ╱4d╱M╱ // 0x8e3 @0x14
0x08cf…08fa at0015 = ╱41╱A╱ // 0x8e4 @0x15
0x08cf…08fa at0016 = ╱4e╱N╱ // 0x8e5 @0x16
0x08cf…08fa at0017 = ╱41╱A╱ // 0x8e6 @0x17
0x08cf…08fa at0018 = ╱56╱V╱ // 0x8e7 @0x18
0x08cf…08fa at0019 = ╱4e╱N╱ // 0x8e8 @0x19
0x08cf…08fa at001a = ╱ef╱ $ ╱ // 0x8e9 @0x1a
0x08cf…08fa at001b = ╱ec╱ , ╱ // 0x8ea @0x1b
0x08cf…08fa at001c = ╱53╱S╱ // 0x8eb @0x1c
0x08cf…08fa at001d = ╱59╱Y╱ // 0x8ec @0x1d
0x08cf…08fa at001e = ╱53╱S╱ // 0x8ed @0x1e
0x08cf…08fa at001f = ╱54╱T╱ // 0x8ee @0x1f
0x08cf…08fa at0020 = ╱5f╱_╱ // 0x8ef @0x20
0x08cf…08fa at0021 = ╱44╱D╱ // 0x8f0 @0x21
0x08cf…08fa at0022 = ╱41╱A╱ // 0x8f1 @0x22
0x08cf…08fa at0023 = ╱54╱T╱ // 0x8f2 @0x23
0x08cf…08fa at0024 = ╱ef╱ $ ╱ // 0x8f3 @0x24
0x08cf…08fa at0025 = ╱ec╱ , ╱ // 0x8f4 @0x25
0x08cf…08fa at0026 = ╱4d╱M╱ // 0x8f5 @0x26
0x08cf…08fa at0027 = ╱4f╱O╱ // 0x8f6 @0x27
0x08cf…08fa at0028 = ╱4d╱M╱ // 0x8f7 @0x28
0x08cf…08fa at0029 = ╱53╱S╱ // 0x8f8 @0x29
0x08cf…08fa at002a = EOL // 0x8f9 @0x2a
0x08cf…08fa }
0x08fa…092c 9f1a 00840 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x08fa…092c LineComal80 {
0x08fa…092c ptr = 0x9f1a // 0x8fa @0x0
0x08fa…092c lno = 0x0348 // 0x8fc @0x2
0x08fa…092c at0004 = ╱86╱ LET ╱ // 0x8fe @0x4
0x08fa…092c at0005 = ╱4b╱K╱ // 0x8ff @0x5
0x08fa…092c at0006 = ╱54╱T╱ // 0x900 @0x6
0x08fa…092c at0007 = ╱4f╱O╱ // 0x901 @0x7
0x08fa…092c at0008 = ╱49╱I╱ // 0x902 @0x8
0x08fa…092c at0009 = ╱44╱D╱ // 0x903 @0x9
0x08fa…092c at000a = ╱58╱X╱ // 0x904 @0xa
0x08fa…092c at000b = ╱ef╱ $ ╱ // 0x905 @0xb
0x08fa…092c at000c = ╱f0╱ := ╱ // 0x906 @0xc
0x08fa…092c at000d = ╱44╱D╱ // 0x907 @0xd
0x08fa…092c at000e = ╱41╱A╱ // 0x908 @0xe
0x08fa…092c at000f = ╱54╱T╱ // 0x909 @0xf
0x08fa…092c at0010 = ╱41╱A╱ // 0x90a @0x10
0x08fa…092c at0011 = ╱46╱F╱ // 0x90b @0x11
0x08fa…092c at0012 = ╱4c╱L╱ // 0x90c @0x12
0x08fa…092c at0013 = ╱ef╱ $ ╱ // 0x90d @0x13
0x08fa…092c at0014 = ╱eb╱ + ╱ // 0x90e @0x14
0x08fa…092c at0015 = ╱22╱"╱ // 0x90f @0x15
0x08fa…092c at0016 = ╱3a╱:╱ // 0x910 @0x16
0x08fa…092c at0017 = ╱22╱"╱ // 0x911 @0x17
0x08fa…092c at0018 = ╱eb╱ + ╱ // 0x912 @0x18
0x08fa…092c at0019 = ╱53╱S╱ // 0x913 @0x19
0x08fa…092c at001a = ╱5f╱_╱ // 0x914 @0x1a
0x08fa…092c at001b = ╱4b╱K╱ // 0x915 @0x1b
0x08fa…092c at001c = ╱4f╱O╱ // 0x916 @0x1c
0x08fa…092c at001d = ╱44╱D╱ // 0x917 @0x1d
0x08fa…092c at001e = ╱45╱E╱ // 0x918 @0x1e
0x08fa…092c at001f = ╱ef╱ $ ╱ // 0x919 @0x1f
0x08fa…092c at0020 = ╱eb╱ + ╱ // 0x91a @0x20
0x08fa…092c at0021 = ╱54╱T╱ // 0x91b @0x21
0x08fa…092c at0022 = ╱5f╱_╱ // 0x91c @0x22
0x08fa…092c at0023 = ╱4b╱K╱ // 0x91d @0x23
0x08fa…092c at0024 = ╱4f╱O╱ // 0x91e @0x24
0x08fa…092c at0025 = ╱44╱D╱ // 0x91f @0x25
0x08fa…092c at0026 = ╱45╱E╱ // 0x920 @0x26
0x08fa…092c at0027 = ╱ef╱ $ ╱ // 0x921 @0x27
0x08fa…092c at0028 = ╱eb╱ + ╱ // 0x922 @0x28
0x08fa…092c at0029 = ╱22╱"╱ // 0x923 @0x29
0x08fa…092c at002a = ╱4b╱K╱ // 0x924 @0x2a
0x08fa…092c at002b = ╱54╱T╱ // 0x925 @0x2b
0x08fa…092c at002c = ╱4f╱O╱ // 0x926 @0x2c
0x08fa…092c at002d = ╱49╱I╱ // 0x927 @0x2d
0x08fa…092c at002e = ╱44╱D╱ // 0x928 @0x2e
0x08fa…092c at002f = ╱58╱X╱ // 0x929 @0x2f
0x08fa…092c at0030 = ╱22╱"╱ // 0x92a @0x30
0x08fa…092c at0031 = EOL // 0x92b @0x31
0x08fa…092c }
0x092c…095e 9f4c 00850 LET FKTONR $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "FKTONR"
0x092c…095e LineComal80 {
0x092c…095e ptr = 0x9f4c // 0x92c @0x0
0x092c…095e lno = 0x0352 // 0x92e @0x2
0x092c…095e at0004 = ╱86╱ LET ╱ // 0x930 @0x4
0x092c…095e at0005 = ╱46╱F╱ // 0x931 @0x5
0x092c…095e at0006 = ╱4b╱K╱ // 0x932 @0x6
0x092c…095e at0007 = ╱54╱T╱ // 0x933 @0x7
0x092c…095e at0008 = ╱4f╱O╱ // 0x934 @0x8
0x092c…095e at0009 = ╱4e╱N╱ // 0x935 @0x9
0x092c…095e at000a = ╱52╱R╱ // 0x936 @0xa
0x092c…095e at000b = ╱ef╱ $ ╱ // 0x937 @0xb
0x092c…095e at000c = ╱f0╱ := ╱ // 0x938 @0xc
0x092c…095e at000d = ╱44╱D╱ // 0x939 @0xd
0x092c…095e at000e = ╱41╱A╱ // 0x93a @0xe
0x092c…095e at000f = ╱54╱T╱ // 0x93b @0xf
0x092c…095e at0010 = ╱41╱A╱ // 0x93c @0x10
0x092c…095e at0011 = ╱46╱F╱ // 0x93d @0x11
0x092c…095e at0012 = ╱4c╱L╱ // 0x93e @0x12
0x092c…095e at0013 = ╱ef╱ $ ╱ // 0x93f @0x13
0x092c…095e at0014 = ╱eb╱ + ╱ // 0x940 @0x14
0x092c…095e at0015 = ╱22╱"╱ // 0x941 @0x15
0x092c…095e at0016 = ╱3a╱:╱ // 0x942 @0x16
0x092c…095e at0017 = ╱22╱"╱ // 0x943 @0x17
0x092c…095e at0018 = ╱eb╱ + ╱ // 0x944 @0x18
0x092c…095e at0019 = ╱53╱S╱ // 0x945 @0x19
0x092c…095e at001a = ╱5f╱_╱ // 0x946 @0x1a
0x092c…095e at001b = ╱4b╱K╱ // 0x947 @0x1b
0x092c…095e at001c = ╱4f╱O╱ // 0x948 @0x1c
0x092c…095e at001d = ╱44╱D╱ // 0x949 @0x1d
0x092c…095e at001e = ╱45╱E╱ // 0x94a @0x1e
0x092c…095e at001f = ╱ef╱ $ ╱ // 0x94b @0x1f
0x092c…095e at0020 = ╱eb╱ + ╱ // 0x94c @0x20
0x092c…095e at0021 = ╱54╱T╱ // 0x94d @0x21
0x092c…095e at0022 = ╱5f╱_╱ // 0x94e @0x22
0x092c…095e at0023 = ╱4b╱K╱ // 0x94f @0x23
0x092c…095e at0024 = ╱4f╱O╱ // 0x950 @0x24
0x092c…095e at0025 = ╱44╱D╱ // 0x951 @0x25
0x092c…095e at0026 = ╱45╱E╱ // 0x952 @0x26
0x092c…095e at0027 = ╱ef╱ $ ╱ // 0x953 @0x27
0x092c…095e at0028 = ╱eb╱ + ╱ // 0x954 @0x28
0x092c…095e at0029 = ╱22╱"╱ // 0x955 @0x29
0x092c…095e at002a = ╱46╱F╱ // 0x956 @0x2a
0x092c…095e at002b = ╱4b╱K╱ // 0x957 @0x2b
0x092c…095e at002c = ╱54╱T╱ // 0x958 @0x2c
0x092c…095e at002d = ╱4f╱O╱ // 0x959 @0x2d
0x092c…095e at002e = ╱4e╱N╱ // 0x95a @0x2e
0x092c…095e at002f = ╱52╱R╱ // 0x95b @0x2f
0x092c…095e at0030 = ╱22╱"╱ // 0x95c @0x30
0x092c…095e at0031 = EOL // 0x95d @0x31
0x092c…095e }
0x095e…0990 9f7e 00860 LET KTOGRP $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOGRP"
0x095e…0990 LineComal80 {
0x095e…0990 ptr = 0x9f7e // 0x95e @0x0
0x095e…0990 lno = 0x035c // 0x960 @0x2
0x095e…0990 at0004 = ╱86╱ LET ╱ // 0x962 @0x4
0x095e…0990 at0005 = ╱4b╱K╱ // 0x963 @0x5
0x095e…0990 at0006 = ╱54╱T╱ // 0x964 @0x6
0x095e…0990 at0007 = ╱4f╱O╱ // 0x965 @0x7
0x095e…0990 at0008 = ╱47╱G╱ // 0x966 @0x8
0x095e…0990 at0009 = ╱52╱R╱ // 0x967 @0x9
0x095e…0990 at000a = ╱50╱P╱ // 0x968 @0xa
0x095e…0990 at000b = ╱ef╱ $ ╱ // 0x969 @0xb
0x095e…0990 at000c = ╱f0╱ := ╱ // 0x96a @0xc
0x095e…0990 at000d = ╱44╱D╱ // 0x96b @0xd
0x095e…0990 at000e = ╱41╱A╱ // 0x96c @0xe
0x095e…0990 at000f = ╱54╱T╱ // 0x96d @0xf
0x095e…0990 at0010 = ╱41╱A╱ // 0x96e @0x10
0x095e…0990 at0011 = ╱46╱F╱ // 0x96f @0x11
0x095e…0990 at0012 = ╱4c╱L╱ // 0x970 @0x12
0x095e…0990 at0013 = ╱ef╱ $ ╱ // 0x971 @0x13
0x095e…0990 at0014 = ╱eb╱ + ╱ // 0x972 @0x14
0x095e…0990 at0015 = ╱22╱"╱ // 0x973 @0x15
0x095e…0990 at0016 = ╱3a╱:╱ // 0x974 @0x16
0x095e…0990 at0017 = ╱22╱"╱ // 0x975 @0x17
0x095e…0990 at0018 = ╱eb╱ + ╱ // 0x976 @0x18
0x095e…0990 at0019 = ╱53╱S╱ // 0x977 @0x19
0x095e…0990 at001a = ╱5f╱_╱ // 0x978 @0x1a
0x095e…0990 at001b = ╱4b╱K╱ // 0x979 @0x1b
0x095e…0990 at001c = ╱4f╱O╱ // 0x97a @0x1c
0x095e…0990 at001d = ╱44╱D╱ // 0x97b @0x1d
0x095e…0990 at001e = ╱45╱E╱ // 0x97c @0x1e
0x095e…0990 at001f = ╱ef╱ $ ╱ // 0x97d @0x1f
0x095e…0990 at0020 = ╱eb╱ + ╱ // 0x97e @0x20
0x095e…0990 at0021 = ╱54╱T╱ // 0x97f @0x21
0x095e…0990 at0022 = ╱5f╱_╱ // 0x980 @0x22
0x095e…0990 at0023 = ╱4b╱K╱ // 0x981 @0x23
0x095e…0990 at0024 = ╱4f╱O╱ // 0x982 @0x24
0x095e…0990 at0025 = ╱44╱D╱ // 0x983 @0x25
0x095e…0990 at0026 = ╱45╱E╱ // 0x984 @0x26
0x095e…0990 at0027 = ╱ef╱ $ ╱ // 0x985 @0x27
0x095e…0990 at0028 = ╱eb╱ + ╱ // 0x986 @0x28
0x095e…0990 at0029 = ╱22╱"╱ // 0x987 @0x29
0x095e…0990 at002a = ╱4b╱K╱ // 0x988 @0x2a
0x095e…0990 at002b = ╱54╱T╱ // 0x989 @0x2b
0x095e…0990 at002c = ╱4f╱O╱ // 0x98a @0x2c
0x095e…0990 at002d = ╱47╱G╱ // 0x98b @0x2d
0x095e…0990 at002e = ╱52╱R╱ // 0x98c @0x2e
0x095e…0990 at002f = ╱50╱P╱ // 0x98d @0x2f
0x095e…0990 at0030 = ╱22╱"╱ // 0x98e @0x30
0x095e…0990 at0031 = EOL // 0x98f @0x31
0x095e…0990 }
0x0990…09c0 9fae 00870 LET KASSE $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KASSE"
0x0990…09c0 LineComal80 {
0x0990…09c0 ptr = 0x9fae // 0x990 @0x0
0x0990…09c0 lno = 0x0366 // 0x992 @0x2
0x0990…09c0 at0004 = ╱86╱ LET ╱ // 0x994 @0x4
0x0990…09c0 at0005 = ╱4b╱K╱ // 0x995 @0x5
0x0990…09c0 at0006 = ╱41╱A╱ // 0x996 @0x6
0x0990…09c0 at0007 = ╱53╱S╱ // 0x997 @0x7
0x0990…09c0 at0008 = ╱53╱S╱ // 0x998 @0x8
0x0990…09c0 at0009 = ╱45╱E╱ // 0x999 @0x9
0x0990…09c0 at000a = ╱ef╱ $ ╱ // 0x99a @0xa
0x0990…09c0 at000b = ╱f0╱ := ╱ // 0x99b @0xb
0x0990…09c0 at000c = ╱44╱D╱ // 0x99c @0xc
0x0990…09c0 at000d = ╱41╱A╱ // 0x99d @0xd
0x0990…09c0 at000e = ╱54╱T╱ // 0x99e @0xe
0x0990…09c0 at000f = ╱41╱A╱ // 0x99f @0xf
0x0990…09c0 at0010 = ╱46╱F╱ // 0x9a0 @0x10
0x0990…09c0 at0011 = ╱4c╱L╱ // 0x9a1 @0x11
0x0990…09c0 at0012 = ╱ef╱ $ ╱ // 0x9a2 @0x12
0x0990…09c0 at0013 = ╱eb╱ + ╱ // 0x9a3 @0x13
0x0990…09c0 at0014 = ╱22╱"╱ // 0x9a4 @0x14
0x0990…09c0 at0015 = ╱3a╱:╱ // 0x9a5 @0x15
0x0990…09c0 at0016 = ╱22╱"╱ // 0x9a6 @0x16
0x0990…09c0 at0017 = ╱eb╱ + ╱ // 0x9a7 @0x17
0x0990…09c0 at0018 = ╱53╱S╱ // 0x9a8 @0x18
0x0990…09c0 at0019 = ╱5f╱_╱ // 0x9a9 @0x19
0x0990…09c0 at001a = ╱4b╱K╱ // 0x9aa @0x1a
0x0990…09c0 at001b = ╱4f╱O╱ // 0x9ab @0x1b
0x0990…09c0 at001c = ╱44╱D╱ // 0x9ac @0x1c
0x0990…09c0 at001d = ╱45╱E╱ // 0x9ad @0x1d
0x0990…09c0 at001e = ╱ef╱ $ ╱ // 0x9ae @0x1e
0x0990…09c0 at001f = ╱eb╱ + ╱ // 0x9af @0x1f
0x0990…09c0 at0020 = ╱54╱T╱ // 0x9b0 @0x20
0x0990…09c0 at0021 = ╱5f╱_╱ // 0x9b1 @0x21
0x0990…09c0 at0022 = ╱4b╱K╱ // 0x9b2 @0x22
0x0990…09c0 at0023 = ╱4f╱O╱ // 0x9b3 @0x23
0x0990…09c0 at0024 = ╱44╱D╱ // 0x9b4 @0x24
0x0990…09c0 at0025 = ╱45╱E╱ // 0x9b5 @0x25
0x0990…09c0 at0026 = ╱ef╱ $ ╱ // 0x9b6 @0x26
0x0990…09c0 at0027 = ╱eb╱ + ╱ // 0x9b7 @0x27
0x0990…09c0 at0028 = ╱22╱"╱ // 0x9b8 @0x28
0x0990…09c0 at0029 = ╱4b╱K╱ // 0x9b9 @0x29
0x0990…09c0 at002a = ╱41╱A╱ // 0x9ba @0x2a
0x0990…09c0 at002b = ╱53╱S╱ // 0x9bb @0x2b
0x0990…09c0 at002c = ╱53╱S╱ // 0x9bc @0x2c
0x0990…09c0 at002d = ╱45╱E╱ // 0x9bd @0x2d
0x0990…09c0 at002e = ╱22╱"╱ // 0x9be @0x2e
0x0990…09c0 at002f = EOL // 0x9bf @0x2f
0x0990…09c0 }
0x09c0…09f2 9fe0 00880 LET DG_POS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DG_POS"
0x09c0…09f2 LineComal80 {
0x09c0…09f2 ptr = 0x9fe0 // 0x9c0 @0x0
0x09c0…09f2 lno = 0x0370 // 0x9c2 @0x2
0x09c0…09f2 at0004 = ╱86╱ LET ╱ // 0x9c4 @0x4
0x09c0…09f2 at0005 = ╱44╱D╱ // 0x9c5 @0x5
0x09c0…09f2 at0006 = ╱47╱G╱ // 0x9c6 @0x6
0x09c0…09f2 at0007 = ╱5f╱_╱ // 0x9c7 @0x7
0x09c0…09f2 at0008 = ╱50╱P╱ // 0x9c8 @0x8
0x09c0…09f2 at0009 = ╱4f╱O╱ // 0x9c9 @0x9
0x09c0…09f2 at000a = ╱53╱S╱ // 0x9ca @0xa
0x09c0…09f2 at000b = ╱ef╱ $ ╱ // 0x9cb @0xb
0x09c0…09f2 at000c = ╱f0╱ := ╱ // 0x9cc @0xc
0x09c0…09f2 at000d = ╱44╱D╱ // 0x9cd @0xd
0x09c0…09f2 at000e = ╱41╱A╱ // 0x9ce @0xe
0x09c0…09f2 at000f = ╱54╱T╱ // 0x9cf @0xf
0x09c0…09f2 at0010 = ╱41╱A╱ // 0x9d0 @0x10
0x09c0…09f2 at0011 = ╱46╱F╱ // 0x9d1 @0x11
0x09c0…09f2 at0012 = ╱4c╱L╱ // 0x9d2 @0x12
0x09c0…09f2 at0013 = ╱ef╱ $ ╱ // 0x9d3 @0x13
0x09c0…09f2 at0014 = ╱eb╱ + ╱ // 0x9d4 @0x14
0x09c0…09f2 at0015 = ╱22╱"╱ // 0x9d5 @0x15
0x09c0…09f2 at0016 = ╱3a╱:╱ // 0x9d6 @0x16
0x09c0…09f2 at0017 = ╱22╱"╱ // 0x9d7 @0x17
0x09c0…09f2 at0018 = ╱eb╱ + ╱ // 0x9d8 @0x18
0x09c0…09f2 at0019 = ╱53╱S╱ // 0x9d9 @0x19
0x09c0…09f2 at001a = ╱5f╱_╱ // 0x9da @0x1a
0x09c0…09f2 at001b = ╱4b╱K╱ // 0x9db @0x1b
0x09c0…09f2 at001c = ╱4f╱O╱ // 0x9dc @0x1c
0x09c0…09f2 at001d = ╱44╱D╱ // 0x9dd @0x1d
0x09c0…09f2 at001e = ╱45╱E╱ // 0x9de @0x1e
0x09c0…09f2 at001f = ╱ef╱ $ ╱ // 0x9df @0x1f
0x09c0…09f2 at0020 = ╱eb╱ + ╱ // 0x9e0 @0x20
0x09c0…09f2 at0021 = ╱54╱T╱ // 0x9e1 @0x21
0x09c0…09f2 at0022 = ╱5f╱_╱ // 0x9e2 @0x22
0x09c0…09f2 at0023 = ╱4b╱K╱ // 0x9e3 @0x23
0x09c0…09f2 at0024 = ╱4f╱O╱ // 0x9e4 @0x24
0x09c0…09f2 at0025 = ╱44╱D╱ // 0x9e5 @0x25
0x09c0…09f2 at0026 = ╱45╱E╱ // 0x9e6 @0x26
0x09c0…09f2 at0027 = ╱ef╱ $ ╱ // 0x9e7 @0x27
0x09c0…09f2 at0028 = ╱eb╱ + ╱ // 0x9e8 @0x28
0x09c0…09f2 at0029 = ╱22╱"╱ // 0x9e9 @0x29
0x09c0…09f2 at002a = ╱44╱D╱ // 0x9ea @0x2a
0x09c0…09f2 at002b = ╱47╱G╱ // 0x9eb @0x2b
0x09c0…09f2 at002c = ╱5f╱_╱ // 0x9ec @0x2c
0x09c0…09f2 at002d = ╱50╱P╱ // 0x9ed @0x2d
0x09c0…09f2 at002e = ╱4f╱O╱ // 0x9ee @0x2e
0x09c0…09f2 at002f = ╱53╱S╱ // 0x9ef @0x2f
0x09c0…09f2 at0030 = ╱22╱"╱ // 0x9f0 @0x30
0x09c0…09f2 at0031 = EOL // 0x9f1 @0x31
0x09c0…09f2 }
0x09f2…0a24 a012 00890 LET DRIFT\ $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DRIFT\"
0x09f2…0a24 LineComal80 {
0x09f2…0a24 ptr = 0xa012 // 0x9f2 @0x0
0x09f2…0a24 lno = 0x037a // 0x9f4 @0x2
0x09f2…0a24 at0004 = ╱86╱ LET ╱ // 0x9f6 @0x4
0x09f2…0a24 at0005 = ╱44╱D╱ // 0x9f7 @0x5
0x09f2…0a24 at0006 = ╱52╱R╱ // 0x9f8 @0x6
0x09f2…0a24 at0007 = ╱49╱I╱ // 0x9f9 @0x7
0x09f2…0a24 at0008 = ╱46╱F╱ // 0x9fa @0x8
0x09f2…0a24 at0009 = ╱54╱T╱ // 0x9fb @0x9
0x09f2…0a24 at000a = ╱5c╱\╱ // 0x9fc @0xa
0x09f2…0a24 at000b = ╱ef╱ $ ╱ // 0x9fd @0xb
0x09f2…0a24 at000c = ╱f0╱ := ╱ // 0x9fe @0xc
0x09f2…0a24 at000d = ╱44╱D╱ // 0x9ff @0xd
0x09f2…0a24 at000e = ╱41╱A╱ // 0xa00 @0xe
0x09f2…0a24 at000f = ╱54╱T╱ // 0xa01 @0xf
0x09f2…0a24 at0010 = ╱41╱A╱ // 0xa02 @0x10
0x09f2…0a24 at0011 = ╱46╱F╱ // 0xa03 @0x11
0x09f2…0a24 at0012 = ╱4c╱L╱ // 0xa04 @0x12
0x09f2…0a24 at0013 = ╱ef╱ $ ╱ // 0xa05 @0x13
0x09f2…0a24 at0014 = ╱eb╱ + ╱ // 0xa06 @0x14
0x09f2…0a24 at0015 = ╱22╱"╱ // 0xa07 @0x15
0x09f2…0a24 at0016 = ╱3a╱:╱ // 0xa08 @0x16
0x09f2…0a24 at0017 = ╱22╱"╱ // 0xa09 @0x17
0x09f2…0a24 at0018 = ╱eb╱ + ╱ // 0xa0a @0x18
0x09f2…0a24 at0019 = ╱53╱S╱ // 0xa0b @0x19
0x09f2…0a24 at001a = ╱5f╱_╱ // 0xa0c @0x1a
0x09f2…0a24 at001b = ╱4b╱K╱ // 0xa0d @0x1b
0x09f2…0a24 at001c = ╱4f╱O╱ // 0xa0e @0x1c
0x09f2…0a24 at001d = ╱44╱D╱ // 0xa0f @0x1d
0x09f2…0a24 at001e = ╱45╱E╱ // 0xa10 @0x1e
0x09f2…0a24 at001f = ╱ef╱ $ ╱ // 0xa11 @0x1f
0x09f2…0a24 at0020 = ╱eb╱ + ╱ // 0xa12 @0x20
0x09f2…0a24 at0021 = ╱54╱T╱ // 0xa13 @0x21
0x09f2…0a24 at0022 = ╱5f╱_╱ // 0xa14 @0x22
0x09f2…0a24 at0023 = ╱4b╱K╱ // 0xa15 @0x23
0x09f2…0a24 at0024 = ╱4f╱O╱ // 0xa16 @0x24
0x09f2…0a24 at0025 = ╱44╱D╱ // 0xa17 @0x25
0x09f2…0a24 at0026 = ╱45╱E╱ // 0xa18 @0x26
0x09f2…0a24 at0027 = ╱ef╱ $ ╱ // 0xa19 @0x27
0x09f2…0a24 at0028 = ╱eb╱ + ╱ // 0xa1a @0x28
0x09f2…0a24 at0029 = ╱22╱"╱ // 0xa1b @0x29
0x09f2…0a24 at002a = ╱44╱D╱ // 0xa1c @0x2a
0x09f2…0a24 at002b = ╱52╱R╱ // 0xa1d @0x2b
0x09f2…0a24 at002c = ╱49╱I╱ // 0xa1e @0x2c
0x09f2…0a24 at002d = ╱46╱F╱ // 0xa1f @0x2d
0x09f2…0a24 at002e = ╱54╱T╱ // 0xa20 @0x2e
0x09f2…0a24 at002f = ╱5c╱\╱ // 0xa21 @0x2f
0x09f2…0a24 at0030 = ╱22╱"╱ // 0xa22 @0x30
0x09f2…0a24 at0031 = EOL // 0xa23 @0x31
0x09f2…0a24 }
0x0a24…0a3e a02c 00900 EXEC OPENFIL ( DRIFT\ $ , "W" )
0x0a24…0a3e LineComal80 {
0x0a24…0a3e ptr = 0xa02c // 0xa24 @0x0
0x0a24…0a3e lno = 0x0384 // 0xa26 @0x2
0x0a24…0a3e at0004 = ╱9d╱ EXEC ╱ // 0xa28 @0x4
0x0a24…0a3e at0005 = ╱4f╱O╱ // 0xa29 @0x5
0x0a24…0a3e at0006 = ╱50╱P╱ // 0xa2a @0x6
0x0a24…0a3e at0007 = ╱45╱E╱ // 0xa2b @0x7
0x0a24…0a3e at0008 = ╱4e╱N╱ // 0xa2c @0x8
0x0a24…0a3e at0009 = ╱46╱F╱ // 0xa2d @0x9
0x0a24…0a3e at000a = ╱49╱I╱ // 0xa2e @0xa
0x0a24…0a3e at000b = ╱4c╱L╱ // 0xa2f @0xb
0x0a24…0a3e at000c = ╱ed╱ ( ╱ // 0xa30 @0xc
0x0a24…0a3e at000d = ╱44╱D╱ // 0xa31 @0xd
0x0a24…0a3e at000e = ╱52╱R╱ // 0xa32 @0xe
0x0a24…0a3e at000f = ╱49╱I╱ // 0xa33 @0xf
0x0a24…0a3e at0010 = ╱46╱F╱ // 0xa34 @0x10
0x0a24…0a3e at0011 = ╱54╱T╱ // 0xa35 @0x11
0x0a24…0a3e at0012 = ╱5c╱\╱ // 0xa36 @0x12
0x0a24…0a3e at0013 = ╱ef╱ $ ╱ // 0xa37 @0x13
0x0a24…0a3e at0014 = ╱ec╱ , ╱ // 0xa38 @0x14
0x0a24…0a3e at0015 = ╱22╱"╱ // 0xa39 @0x15
0x0a24…0a3e at0016 = ╱57╱W╱ // 0xa3a @0x16
0x0a24…0a3e at0017 = ╱22╱"╱ // 0xa3b @0x17
0x0a24…0a3e at0018 = ╱ee╱ ) ╱ // 0xa3c @0x18
0x0a24…0a3e at0019 = EOL // 0xa3d @0x19
0x0a24…0a3e }
0x0a3e…0a58 a046 00910 EXEC OPENFIL ( KTOIDX $ , "R" )
0x0a3e…0a58 LineComal80 {
0x0a3e…0a58 ptr = 0xa046 // 0xa3e @0x0
0x0a3e…0a58 lno = 0x038e // 0xa40 @0x2
0x0a3e…0a58 at0004 = ╱9d╱ EXEC ╱ // 0xa42 @0x4
0x0a3e…0a58 at0005 = ╱4f╱O╱ // 0xa43 @0x5
0x0a3e…0a58 at0006 = ╱50╱P╱ // 0xa44 @0x6
0x0a3e…0a58 at0007 = ╱45╱E╱ // 0xa45 @0x7
0x0a3e…0a58 at0008 = ╱4e╱N╱ // 0xa46 @0x8
0x0a3e…0a58 at0009 = ╱46╱F╱ // 0xa47 @0x9
0x0a3e…0a58 at000a = ╱49╱I╱ // 0xa48 @0xa
0x0a3e…0a58 at000b = ╱4c╱L╱ // 0xa49 @0xb
0x0a3e…0a58 at000c = ╱ed╱ ( ╱ // 0xa4a @0xc
0x0a3e…0a58 at000d = ╱4b╱K╱ // 0xa4b @0xd
0x0a3e…0a58 at000e = ╱54╱T╱ // 0xa4c @0xe
0x0a3e…0a58 at000f = ╱4f╱O╱ // 0xa4d @0xf
0x0a3e…0a58 at0010 = ╱49╱I╱ // 0xa4e @0x10
0x0a3e…0a58 at0011 = ╱44╱D╱ // 0xa4f @0x11
0x0a3e…0a58 at0012 = ╱58╱X╱ // 0xa50 @0x12
0x0a3e…0a58 at0013 = ╱ef╱ $ ╱ // 0xa51 @0x13
0x0a3e…0a58 at0014 = ╱ec╱ , ╱ // 0xa52 @0x14
0x0a3e…0a58 at0015 = ╱22╱"╱ // 0xa53 @0x15
0x0a3e…0a58 at0016 = ╱52╱R╱ // 0xa54 @0x16
0x0a3e…0a58 at0017 = ╱22╱"╱ // 0xa55 @0x17
0x0a3e…0a58 at0018 = ╱ee╱ ) ╱ // 0xa56 @0x18
0x0a3e…0a58 at0019 = EOL // 0xa57 @0x19
0x0a3e…0a58 }
0x0a58…0a72 a060 00920 EXEC OPENFIL ( FKTONR $ , "W" )
0x0a58…0a72 LineComal80 {
0x0a58…0a72 ptr = 0xa060 // 0xa58 @0x0
0x0a58…0a72 lno = 0x0398 // 0xa5a @0x2
0x0a58…0a72 at0004 = ╱9d╱ EXEC ╱ // 0xa5c @0x4
0x0a58…0a72 at0005 = ╱4f╱O╱ // 0xa5d @0x5
0x0a58…0a72 at0006 = ╱50╱P╱ // 0xa5e @0x6
0x0a58…0a72 at0007 = ╱45╱E╱ // 0xa5f @0x7
0x0a58…0a72 at0008 = ╱4e╱N╱ // 0xa60 @0x8
0x0a58…0a72 at0009 = ╱46╱F╱ // 0xa61 @0x9
0x0a58…0a72 at000a = ╱49╱I╱ // 0xa62 @0xa
0x0a58…0a72 at000b = ╱4c╱L╱ // 0xa63 @0xb
0x0a58…0a72 at000c = ╱ed╱ ( ╱ // 0xa64 @0xc
0x0a58…0a72 at000d = ╱46╱F╱ // 0xa65 @0xd
0x0a58…0a72 at000e = ╱4b╱K╱ // 0xa66 @0xe
0x0a58…0a72 at000f = ╱54╱T╱ // 0xa67 @0xf
0x0a58…0a72 at0010 = ╱4f╱O╱ // 0xa68 @0x10
0x0a58…0a72 at0011 = ╱4e╱N╱ // 0xa69 @0x11
0x0a58…0a72 at0012 = ╱52╱R╱ // 0xa6a @0x12
0x0a58…0a72 at0013 = ╱ef╱ $ ╱ // 0xa6b @0x13
0x0a58…0a72 at0014 = ╱ec╱ , ╱ // 0xa6c @0x14
0x0a58…0a72 at0015 = ╱22╱"╱ // 0xa6d @0x15
0x0a58…0a72 at0016 = ╱57╱W╱ // 0xa6e @0x16
0x0a58…0a72 at0017 = ╱22╱"╱ // 0xa6f @0x17
0x0a58…0a72 at0018 = ╱ee╱ ) ╱ // 0xa70 @0x18
0x0a58…0a72 at0019 = EOL // 0xa71 @0x19
0x0a58…0a72 }
0x0a72…0a8c a07a 00930 EXEC OPENFIL ( KTOGRP $ , "W" )
0x0a72…0a8c LineComal80 {
0x0a72…0a8c ptr = 0xa07a // 0xa72 @0x0
0x0a72…0a8c lno = 0x03a2 // 0xa74 @0x2
0x0a72…0a8c at0004 = ╱9d╱ EXEC ╱ // 0xa76 @0x4
0x0a72…0a8c at0005 = ╱4f╱O╱ // 0xa77 @0x5
0x0a72…0a8c at0006 = ╱50╱P╱ // 0xa78 @0x6
0x0a72…0a8c at0007 = ╱45╱E╱ // 0xa79 @0x7
0x0a72…0a8c at0008 = ╱4e╱N╱ // 0xa7a @0x8
0x0a72…0a8c at0009 = ╱46╱F╱ // 0xa7b @0x9
0x0a72…0a8c at000a = ╱49╱I╱ // 0xa7c @0xa
0x0a72…0a8c at000b = ╱4c╱L╱ // 0xa7d @0xb
0x0a72…0a8c at000c = ╱ed╱ ( ╱ // 0xa7e @0xc
0x0a72…0a8c at000d = ╱4b╱K╱ // 0xa7f @0xd
0x0a72…0a8c at000e = ╱54╱T╱ // 0xa80 @0xe
0x0a72…0a8c at000f = ╱4f╱O╱ // 0xa81 @0xf
0x0a72…0a8c at0010 = ╱47╱G╱ // 0xa82 @0x10
0x0a72…0a8c at0011 = ╱52╱R╱ // 0xa83 @0x11
0x0a72…0a8c at0012 = ╱50╱P╱ // 0xa84 @0x12
0x0a72…0a8c at0013 = ╱ef╱ $ ╱ // 0xa85 @0x13
0x0a72…0a8c at0014 = ╱ec╱ , ╱ // 0xa86 @0x14
0x0a72…0a8c at0015 = ╱22╱"╱ // 0xa87 @0x15
0x0a72…0a8c at0016 = ╱57╱W╱ // 0xa88 @0x16
0x0a72…0a8c at0017 = ╱22╱"╱ // 0xa89 @0x17
0x0a72…0a8c at0018 = ╱ee╱ ) ╱ // 0xa8a @0x18
0x0a72…0a8c at0019 = EOL // 0xa8b @0x19
0x0a72…0a8c }
0x0a8c…0aa5 a093 00940 EXEC OPENFIL ( KASSE $ , "W" )
0x0a8c…0aa5 LineComal80 {
0x0a8c…0aa5 ptr = 0xa093 // 0xa8c @0x0
0x0a8c…0aa5 lno = 0x03ac // 0xa8e @0x2
0x0a8c…0aa5 at0004 = ╱9d╱ EXEC ╱ // 0xa90 @0x4
0x0a8c…0aa5 at0005 = ╱4f╱O╱ // 0xa91 @0x5
0x0a8c…0aa5 at0006 = ╱50╱P╱ // 0xa92 @0x6
0x0a8c…0aa5 at0007 = ╱45╱E╱ // 0xa93 @0x7
0x0a8c…0aa5 at0008 = ╱4e╱N╱ // 0xa94 @0x8
0x0a8c…0aa5 at0009 = ╱46╱F╱ // 0xa95 @0x9
0x0a8c…0aa5 at000a = ╱49╱I╱ // 0xa96 @0xa
0x0a8c…0aa5 at000b = ╱4c╱L╱ // 0xa97 @0xb
0x0a8c…0aa5 at000c = ╱ed╱ ( ╱ // 0xa98 @0xc
0x0a8c…0aa5 at000d = ╱4b╱K╱ // 0xa99 @0xd
0x0a8c…0aa5 at000e = ╱41╱A╱ // 0xa9a @0xe
0x0a8c…0aa5 at000f = ╱53╱S╱ // 0xa9b @0xf
0x0a8c…0aa5 at0010 = ╱53╱S╱ // 0xa9c @0x10
0x0a8c…0aa5 at0011 = ╱45╱E╱ // 0xa9d @0x11
0x0a8c…0aa5 at0012 = ╱ef╱ $ ╱ // 0xa9e @0x12
0x0a8c…0aa5 at0013 = ╱ec╱ , ╱ // 0xa9f @0x13
0x0a8c…0aa5 at0014 = ╱22╱"╱ // 0xaa0 @0x14
0x0a8c…0aa5 at0015 = ╱57╱W╱ // 0xaa1 @0x15
0x0a8c…0aa5 at0016 = ╱22╱"╱ // 0xaa2 @0x16
0x0a8c…0aa5 at0017 = ╱ee╱ ) ╱ // 0xaa3 @0x17
0x0a8c…0aa5 at0018 = EOL // 0xaa4 @0x18
0x0a8c…0aa5 }
0x0aa5…0abf a0ad 00950 EXEC OPENFIL ( DG_POS $ , "W" )
0x0aa5…0abf LineComal80 {
0x0aa5…0abf ptr = 0xa0ad // 0xaa5 @0x0
0x0aa5…0abf lno = 0x03b6 // 0xaa7 @0x2
0x0aa5…0abf at0004 = ╱9d╱ EXEC ╱ // 0xaa9 @0x4
0x0aa5…0abf at0005 = ╱4f╱O╱ // 0xaaa @0x5
0x0aa5…0abf at0006 = ╱50╱P╱ // 0xaab @0x6
0x0aa5…0abf at0007 = ╱45╱E╱ // 0xaac @0x7
0x0aa5…0abf at0008 = ╱4e╱N╱ // 0xaad @0x8
0x0aa5…0abf at0009 = ╱46╱F╱ // 0xaae @0x9
0x0aa5…0abf at000a = ╱49╱I╱ // 0xaaf @0xa
0x0aa5…0abf at000b = ╱4c╱L╱ // 0xab0 @0xb
0x0aa5…0abf at000c = ╱ed╱ ( ╱ // 0xab1 @0xc
0x0aa5…0abf at000d = ╱44╱D╱ // 0xab2 @0xd
0x0aa5…0abf at000e = ╱47╱G╱ // 0xab3 @0xe
0x0aa5…0abf at000f = ╱5f╱_╱ // 0xab4 @0xf
0x0aa5…0abf at0010 = ╱50╱P╱ // 0xab5 @0x10
0x0aa5…0abf at0011 = ╱4f╱O╱ // 0xab6 @0x11
0x0aa5…0abf at0012 = ╱53╱S╱ // 0xab7 @0x12
0x0aa5…0abf at0013 = ╱ef╱ $ ╱ // 0xab8 @0x13
0x0aa5…0abf at0014 = ╱ec╱ , ╱ // 0xab9 @0x14
0x0aa5…0abf at0015 = ╱22╱"╱ // 0xaba @0x15
0x0aa5…0abf at0016 = ╱57╱W╱ // 0xabb @0x16
0x0aa5…0abf at0017 = ╱22╱"╱ // 0xabc @0x17
0x0aa5…0abf at0018 = ╱ee╱ ) ╱ // 0xabd @0x18
0x0aa5…0abf at0019 = EOL // 0xabe @0x19
0x0aa5…0abf }
0x0abf…0acc a0ba 00960 ENDPROC INITIER
0x0abf…0acc LineComal80 {
0x0abf…0acc ptr = 0xa0ba // 0xabf @0x0
0x0abf…0acc lno = 0x03c0 // 0xac1 @0x2
0x0abf…0acc at0004 = ╱9f╱ ENDPROC ╱ // 0xac3 @0x4
0x0abf…0acc at0005 = ╱49╱I╱ // 0xac4 @0x5
0x0abf…0acc at0006 = ╱4e╱N╱ // 0xac5 @0x6
0x0abf…0acc at0007 = ╱49╱I╱ // 0xac6 @0x7
0x0abf…0acc at0008 = ╱54╱T╱ // 0xac7 @0x8
0x0abf…0acc at0009 = ╱49╱I╱ // 0xac8 @0x9
0x0abf…0acc at000a = ╱45╱E╱ // 0xac9 @0xa
0x0abf…0acc at000b = ╱52╱R╱ // 0xaca @0xb
0x0abf…0acc at000c = EOL // 0xacb @0xc
0x0abf…0acc }
0x0acc…0ad1 a0bf 00970
0x0acc…0ad1 LineComal80 {
0x0acc…0ad1 ptr = 0xa0bf // 0xacc @0x0
0x0acc…0ad1 lno = 0x03ca // 0xace @0x2
0x0acc…0ad1 at0004 = EOL // 0xad0 @0x4
0x0acc…0ad1 }
0x0ad1…0adc a0ca 00980 PROC MENU
0x0ad1…0adc LineComal80 {
0x0ad1…0adc ptr = 0xa0ca // 0xad1 @0x0
0x0ad1…0adc lno = 0x03d4 // 0xad3 @0x2
0x0ad1…0adc at0004 = ╱9e00╱ PROC ╱ // 0xad5 @0x4
0x0ad1…0adc at0006 = ╱4d╱M╱ // 0xad7 @0x6
0x0ad1…0adc at0007 = ╱45╱E╱ // 0xad8 @0x7
0x0ad1…0adc at0008 = ╱4e╱N╱ // 0xad9 @0x8
0x0ad1…0adc at0009 = ╱55╱U╱ // 0xada @0x9
0x0ad1…0adc at000a = EOL // 0xadb @0xa
0x0ad1…0adc }
0x0adc…0b14 a102 00990 EXEC OVERSKRIFT ( "[ndring…af…parameteroplysninger" , 4 )
0x0adc…0b14 LineComal80 {
0x0adc…0b14 ptr = 0xa102 // 0xadc @0x0
0x0adc…0b14 lno = 0x03de // 0xade @0x2
0x0adc…0b14 at0004 = ╱9d╱ EXEC ╱ // 0xae0 @0x4
0x0adc…0b14 at0005 = ╱4f╱O╱ // 0xae1 @0x5
0x0adc…0b14 at0006 = ╱56╱V╱ // 0xae2 @0x6
0x0adc…0b14 at0007 = ╱45╱E╱ // 0xae3 @0x7
0x0adc…0b14 at0008 = ╱52╱R╱ // 0xae4 @0x8
0x0adc…0b14 at0009 = ╱53╱S╱ // 0xae5 @0x9
0x0adc…0b14 at000a = ╱4b╱K╱ // 0xae6 @0xa
0x0adc…0b14 at000b = ╱52╱R╱ // 0xae7 @0xb
0x0adc…0b14 at000c = ╱49╱I╱ // 0xae8 @0xc
0x0adc…0b14 at000d = ╱46╱F╱ // 0xae9 @0xd
0x0adc…0b14 at000e = ╱54╱T╱ // 0xaea @0xe
0x0adc…0b14 at000f = ╱ed╱ ( ╱ // 0xaeb @0xf
0x0adc…0b14 at0010 = ╱22╱"╱ // 0xaec @0x10
0x0adc…0b14 at0011 = ╱5b╱[╱ // 0xaed @0x11
0x0adc…0b14 at0012 = ╱6e╱n╱ // 0xaee @0x12
0x0adc…0b14 at0013 = ╱64╱d╱ // 0xaef @0x13
0x0adc…0b14 at0014 = ╱72╱r╱ // 0xaf0 @0x14
0x0adc…0b14 at0015 = ╱69╱i╱ // 0xaf1 @0x15
0x0adc…0b14 at0016 = ╱6e╱n╱ // 0xaf2 @0x16
0x0adc…0b14 at0017 = ╱67╱g╱ // 0xaf3 @0x17
0x0adc…0b14 at0018 = ╱20╱…╱ // 0xaf4 @0x18
0x0adc…0b14 at0019 = ╱61╱a╱ // 0xaf5 @0x19
0x0adc…0b14 at001a = ╱66╱f╱ // 0xaf6 @0x1a
0x0adc…0b14 at001b = ╱20╱…╱ // 0xaf7 @0x1b
0x0adc…0b14 at001c = ╱70╱p╱ // 0xaf8 @0x1c
0x0adc…0b14 at001d = ╱61╱a╱ // 0xaf9 @0x1d
0x0adc…0b14 at001e = ╱72╱r╱ // 0xafa @0x1e
0x0adc…0b14 at001f = ╱61╱a╱ // 0xafb @0x1f
0x0adc…0b14 at0020 = ╱6d╱m╱ // 0xafc @0x20
0x0adc…0b14 at0021 = ╱65╱e╱ // 0xafd @0x21
0x0adc…0b14 at0022 = ╱74╱t╱ // 0xafe @0x22
0x0adc…0b14 at0023 = ╱65╱e╱ // 0xaff @0x23
0x0adc…0b14 at0024 = ╱72╱r╱ // 0xb00 @0x24
0x0adc…0b14 at0025 = ╱6f╱o╱ // 0xb01 @0x25
0x0adc…0b14 at0026 = ╱70╱p╱ // 0xb02 @0x26
0x0adc…0b14 at0027 = ╱6c╱l╱ // 0xb03 @0x27
0x0adc…0b14 at0028 = ╱79╱y╱ // 0xb04 @0x28
0x0adc…0b14 at0029 = ╱73╱s╱ // 0xb05 @0x29
0x0adc…0b14 at002a = ╱6e╱n╱ // 0xb06 @0x2a
0x0adc…0b14 at002b = ╱69╱i╱ // 0xb07 @0x2b
0x0adc…0b14 at002c = ╱6e╱n╱ // 0xb08 @0x2c
0x0adc…0b14 at002d = ╱67╱g╱ // 0xb09 @0x2d
0x0adc…0b14 at002e = ╱65╱e╱ // 0xb0a @0x2e
0x0adc…0b14 at002f = ╱72╱r╱ // 0xb0b @0x2f
0x0adc…0b14 at0030 = ╱22╱"╱ // 0xb0c @0x30
0x0adc…0b14 at0031 = ╱ec╱ , ╱ // 0xb0d @0x31
0x0adc…0b14 at0032 = ╱34╱4╱ // 0xb0e @0x32
0x0adc…0b14 at0033 = ╱f20400╱ // 0xb0f @0x33
0x0adc…0b14 at0036 = ╱ee╱ ) ╱ // 0xb12 @0x36
0x0adc…0b14 at0037 = EOL // 0xb13 @0x37
0x0adc…0b14 }
0x0b14…0b30 a11e 01000 PRINT "<C0808>1.……Firmanavn"
0x0b14…0b30 LineComal80 {
0x0b14…0b30 ptr = 0xa11e // 0xb14 @0x0
0x0b14…0b30 lno = 0x03e8 // 0xb16 @0x2
0x0b14…0b30 at0004 = ╱92╱ PRINT ╱ // 0xb18 @0x4
0x0b14…0b30 at0005 = ╱22╱"╱ // 0xb19 @0x5
0x0b14…0b30 at0006 = ╱3c╱<╱ // 0xb1a @0x6
0x0b14…0b30 at0007 = ╱43╱C╱ // 0xb1b @0x7
0x0b14…0b30 at0008 = ╱30╱0╱ // 0xb1c @0x8
0x0b14…0b30 at0009 = ╱38╱8╱ // 0xb1d @0x9
0x0b14…0b30 at000a = ╱30╱0╱ // 0xb1e @0xa
0x0b14…0b30 at000b = ╱38╱8╱ // 0xb1f @0xb
0x0b14…0b30 at000c = ╱3e╱>╱ // 0xb20 @0xc
0x0b14…0b30 at000d = ╱31╱1╱ // 0xb21 @0xd
0x0b14…0b30 at000e = ╱2e╱.╱ // 0xb22 @0xe
0x0b14…0b30 at000f = ╱20╱…╱ // 0xb23 @0xf
0x0b14…0b30 at0010 = ╱20╱…╱ // 0xb24 @0x10
0x0b14…0b30 at0011 = ╱46╱F╱ // 0xb25 @0x11
0x0b14…0b30 at0012 = ╱69╱i╱ // 0xb26 @0x12
0x0b14…0b30 at0013 = ╱72╱r╱ // 0xb27 @0x13
0x0b14…0b30 at0014 = ╱6d╱m╱ // 0xb28 @0x14
0x0b14…0b30 at0015 = ╱61╱a╱ // 0xb29 @0x15
0x0b14…0b30 at0016 = ╱6e╱n╱ // 0xb2a @0x16
0x0b14…0b30 at0017 = ╱61╱a╱ // 0xb2b @0x17
0x0b14…0b30 at0018 = ╱76╱v╱ // 0xb2c @0x18
0x0b14…0b30 at0019 = ╱6e╱n╱ // 0xb2d @0x19
0x0b14…0b30 at001a = ╱22╱"╱ // 0xb2e @0x1a
0x0b14…0b30 at001b = EOL // 0xb2f @0x1b
0x0b14…0b30 }
0x0b30…0b4e a13c 01010 PRINT "<C0809>2.……Momsprocent"
0x0b30…0b4e LineComal80 {
0x0b30…0b4e ptr = 0xa13c // 0xb30 @0x0
0x0b30…0b4e lno = 0x03f2 // 0xb32 @0x2
0x0b30…0b4e at0004 = ╱92╱ PRINT ╱ // 0xb34 @0x4
0x0b30…0b4e at0005 = ╱22╱"╱ // 0xb35 @0x5
0x0b30…0b4e at0006 = ╱3c╱<╱ // 0xb36 @0x6
0x0b30…0b4e at0007 = ╱43╱C╱ // 0xb37 @0x7
0x0b30…0b4e at0008 = ╱30╱0╱ // 0xb38 @0x8
0x0b30…0b4e at0009 = ╱38╱8╱ // 0xb39 @0x9
0x0b30…0b4e at000a = ╱30╱0╱ // 0xb3a @0xa
0x0b30…0b4e at000b = ╱39╱9╱ // 0xb3b @0xb
0x0b30…0b4e at000c = ╱3e╱>╱ // 0xb3c @0xc
0x0b30…0b4e at000d = ╱32╱2╱ // 0xb3d @0xd
0x0b30…0b4e at000e = ╱2e╱.╱ // 0xb3e @0xe
0x0b30…0b4e at000f = ╱20╱…╱ // 0xb3f @0xf
0x0b30…0b4e at0010 = ╱20╱…╱ // 0xb40 @0x10
0x0b30…0b4e at0011 = ╱4d╱M╱ // 0xb41 @0x11
0x0b30…0b4e at0012 = ╱6f╱o╱ // 0xb42 @0x12
0x0b30…0b4e at0013 = ╱6d╱m╱ // 0xb43 @0x13
0x0b30…0b4e at0014 = ╱73╱s╱ // 0xb44 @0x14
0x0b30…0b4e at0015 = ╱70╱p╱ // 0xb45 @0x15
0x0b30…0b4e at0016 = ╱72╱r╱ // 0xb46 @0x16
0x0b30…0b4e at0017 = ╱6f╱o╱ // 0xb47 @0x17
0x0b30…0b4e at0018 = ╱63╱c╱ // 0xb48 @0x18
0x0b30…0b4e at0019 = ╱65╱e╱ // 0xb49 @0x19
0x0b30…0b4e at001a = ╱6e╱n╱ // 0xb4a @0x1a
0x0b30…0b4e at001b = ╱74╱t╱ // 0xb4b @0x1b
0x0b30…0b4e at001c = ╱22╱"╱ // 0xb4c @0x1c
0x0b30…0b4e at001d = EOL // 0xb4d @0x1d
0x0b30…0b4e }
0x0b4e…0b7d a16b 01020 PRINT "<C0810>3.……N{ste…nummer…p}…kasserapport"
0x0b4e…0b7d LineComal80 {
0x0b4e…0b7d ptr = 0xa16b // 0xb4e @0x0
0x0b4e…0b7d lno = 0x03fc // 0xb50 @0x2
0x0b4e…0b7d at0004 = ╱92╱ PRINT ╱ // 0xb52 @0x4
0x0b4e…0b7d at0005 = ╱22╱"╱ // 0xb53 @0x5
0x0b4e…0b7d at0006 = ╱3c╱<╱ // 0xb54 @0x6
0x0b4e…0b7d at0007 = ╱43╱C╱ // 0xb55 @0x7
0x0b4e…0b7d at0008 = ╱30╱0╱ // 0xb56 @0x8
0x0b4e…0b7d at0009 = ╱38╱8╱ // 0xb57 @0x9
0x0b4e…0b7d at000a = ╱31╱1╱ // 0xb58 @0xa
0x0b4e…0b7d at000b = ╱30╱0╱ // 0xb59 @0xb
0x0b4e…0b7d at000c = ╱3e╱>╱ // 0xb5a @0xc
0x0b4e…0b7d at000d = ╱33╱3╱ // 0xb5b @0xd
0x0b4e…0b7d at000e = ╱2e╱.╱ // 0xb5c @0xe
0x0b4e…0b7d at000f = ╱20╱…╱ // 0xb5d @0xf
0x0b4e…0b7d at0010 = ╱20╱…╱ // 0xb5e @0x10
0x0b4e…0b7d at0011 = ╱4e╱N╱ // 0xb5f @0x11
0x0b4e…0b7d at0012 = ╱7b╱{╱ // 0xb60 @0x12
0x0b4e…0b7d at0013 = ╱73╱s╱ // 0xb61 @0x13
0x0b4e…0b7d at0014 = ╱74╱t╱ // 0xb62 @0x14
0x0b4e…0b7d at0015 = ╱65╱e╱ // 0xb63 @0x15
0x0b4e…0b7d at0016 = ╱20╱…╱ // 0xb64 @0x16
0x0b4e…0b7d at0017 = ╱6e╱n╱ // 0xb65 @0x17
0x0b4e…0b7d at0018 = ╱75╱u╱ // 0xb66 @0x18
0x0b4e…0b7d at0019 = ╱6d╱m╱ // 0xb67 @0x19
0x0b4e…0b7d at001a = ╱6d╱m╱ // 0xb68 @0x1a
0x0b4e…0b7d at001b = ╱65╱e╱ // 0xb69 @0x1b
0x0b4e…0b7d at001c = ╱72╱r╱ // 0xb6a @0x1c
0x0b4e…0b7d at001d = ╱20╱…╱ // 0xb6b @0x1d
0x0b4e…0b7d at001e = ╱70╱p╱ // 0xb6c @0x1e
0x0b4e…0b7d at001f = ╱7d╱}╱ // 0xb6d @0x1f
0x0b4e…0b7d at0020 = ╱20╱…╱ // 0xb6e @0x20
0x0b4e…0b7d at0021 = ╱6b╱k╱ // 0xb6f @0x21
0x0b4e…0b7d at0022 = ╱61╱a╱ // 0xb70 @0x22
0x0b4e…0b7d at0023 = ╱73╱s╱ // 0xb71 @0x23
0x0b4e…0b7d at0024 = ╱73╱s╱ // 0xb72 @0x24
0x0b4e…0b7d at0025 = ╱65╱e╱ // 0xb73 @0x25
0x0b4e…0b7d at0026 = ╱72╱r╱ // 0xb74 @0x26
0x0b4e…0b7d at0027 = ╱61╱a╱ // 0xb75 @0x27
0x0b4e…0b7d at0028 = ╱70╱p╱ // 0xb76 @0x28
0x0b4e…0b7d at0029 = ╱70╱p╱ // 0xb77 @0x29
0x0b4e…0b7d at002a = ╱6f╱o╱ // 0xb78 @0x2a
0x0b4e…0b7d at002b = ╱72╱r╱ // 0xb79 @0x2b
0x0b4e…0b7d at002c = ╱74╱t╱ // 0xb7a @0x2c
0x0b4e…0b7d at002d = ╱22╱"╱ // 0xb7b @0x2d
0x0b4e…0b7d at002e = EOL // 0xb7c @0x2e
0x0b4e…0b7d }
0x0b7d…0baf a19d 01030 PRINT "<C0811>4.……N{ste…nummer…p}…konteringsliste"
0x0b7d…0baf LineComal80 {
0x0b7d…0baf ptr = 0xa19d // 0xb7d @0x0
0x0b7d…0baf lno = 0x0406 // 0xb7f @0x2
0x0b7d…0baf at0004 = ╱92╱ PRINT ╱ // 0xb81 @0x4
0x0b7d…0baf at0005 = ╱22╱"╱ // 0xb82 @0x5
0x0b7d…0baf at0006 = ╱3c╱<╱ // 0xb83 @0x6
0x0b7d…0baf at0007 = ╱43╱C╱ // 0xb84 @0x7
0x0b7d…0baf at0008 = ╱30╱0╱ // 0xb85 @0x8
0x0b7d…0baf at0009 = ╱38╱8╱ // 0xb86 @0x9
0x0b7d…0baf at000a = ╱31╱1╱ // 0xb87 @0xa
0x0b7d…0baf at000b = ╱31╱1╱ // 0xb88 @0xb
0x0b7d…0baf at000c = ╱3e╱>╱ // 0xb89 @0xc
0x0b7d…0baf at000d = ╱34╱4╱ // 0xb8a @0xd
0x0b7d…0baf at000e = ╱2e╱.╱ // 0xb8b @0xe
0x0b7d…0baf at000f = ╱20╱…╱ // 0xb8c @0xf
0x0b7d…0baf at0010 = ╱20╱…╱ // 0xb8d @0x10
0x0b7d…0baf at0011 = ╱4e╱N╱ // 0xb8e @0x11
0x0b7d…0baf at0012 = ╱7b╱{╱ // 0xb8f @0x12
0x0b7d…0baf at0013 = ╱73╱s╱ // 0xb90 @0x13
0x0b7d…0baf at0014 = ╱74╱t╱ // 0xb91 @0x14
0x0b7d…0baf at0015 = ╱65╱e╱ // 0xb92 @0x15
0x0b7d…0baf at0016 = ╱20╱…╱ // 0xb93 @0x16
0x0b7d…0baf at0017 = ╱6e╱n╱ // 0xb94 @0x17
0x0b7d…0baf at0018 = ╱75╱u╱ // 0xb95 @0x18
0x0b7d…0baf at0019 = ╱6d╱m╱ // 0xb96 @0x19
0x0b7d…0baf at001a = ╱6d╱m╱ // 0xb97 @0x1a
0x0b7d…0baf at001b = ╱65╱e╱ // 0xb98 @0x1b
0x0b7d…0baf at001c = ╱72╱r╱ // 0xb99 @0x1c
0x0b7d…0baf at001d = ╱20╱…╱ // 0xb9a @0x1d
0x0b7d…0baf at001e = ╱70╱p╱ // 0xb9b @0x1e
0x0b7d…0baf at001f = ╱7d╱}╱ // 0xb9c @0x1f
0x0b7d…0baf at0020 = ╱20╱…╱ // 0xb9d @0x20
0x0b7d…0baf at0021 = ╱6b╱k╱ // 0xb9e @0x21
0x0b7d…0baf at0022 = ╱6f╱o╱ // 0xb9f @0x22
0x0b7d…0baf at0023 = ╱6e╱n╱ // 0xba0 @0x23
0x0b7d…0baf at0024 = ╱74╱t╱ // 0xba1 @0x24
0x0b7d…0baf at0025 = ╱65╱e╱ // 0xba2 @0x25
0x0b7d…0baf at0026 = ╱72╱r╱ // 0xba3 @0x26
0x0b7d…0baf at0027 = ╱69╱i╱ // 0xba4 @0x27
0x0b7d…0baf at0028 = ╱6e╱n╱ // 0xba5 @0x28
0x0b7d…0baf at0029 = ╱67╱g╱ // 0xba6 @0x29
0x0b7d…0baf at002a = ╱73╱s╱ // 0xba7 @0x2a
0x0b7d…0baf at002b = ╱6c╱l╱ // 0xba8 @0x2b
0x0b7d…0baf at002c = ╱69╱i╱ // 0xba9 @0x2c
0x0b7d…0baf at002d = ╱73╱s╱ // 0xbaa @0x2d
0x0b7d…0baf at002e = ╱74╱t╱ // 0xbab @0x2e
0x0b7d…0baf at002f = ╱65╱e╱ // 0xbac @0x2f
0x0b7d…0baf at0030 = ╱22╱"╱ // 0xbad @0x30
0x0b7d…0baf at0031 = EOL // 0xbae @0x31
0x0b7d…0baf }
0x0baf…0bdd a1cb 01040 PRINT "<C0812>5.……Startdato…for…regnskabs}ret"
0x0baf…0bdd LineComal80 {
0x0baf…0bdd ptr = 0xa1cb // 0xbaf @0x0
0x0baf…0bdd lno = 0x0410 // 0xbb1 @0x2
0x0baf…0bdd at0004 = ╱92╱ PRINT ╱ // 0xbb3 @0x4
0x0baf…0bdd at0005 = ╱22╱"╱ // 0xbb4 @0x5
0x0baf…0bdd at0006 = ╱3c╱<╱ // 0xbb5 @0x6
0x0baf…0bdd at0007 = ╱43╱C╱ // 0xbb6 @0x7
0x0baf…0bdd at0008 = ╱30╱0╱ // 0xbb7 @0x8
0x0baf…0bdd at0009 = ╱38╱8╱ // 0xbb8 @0x9
0x0baf…0bdd at000a = ╱31╱1╱ // 0xbb9 @0xa
0x0baf…0bdd at000b = ╱32╱2╱ // 0xbba @0xb
0x0baf…0bdd at000c = ╱3e╱>╱ // 0xbbb @0xc
0x0baf…0bdd at000d = ╱35╱5╱ // 0xbbc @0xd
0x0baf…0bdd at000e = ╱2e╱.╱ // 0xbbd @0xe
0x0baf…0bdd at000f = ╱20╱…╱ // 0xbbe @0xf
0x0baf…0bdd at0010 = ╱20╱…╱ // 0xbbf @0x10
0x0baf…0bdd at0011 = ╱53╱S╱ // 0xbc0 @0x11
0x0baf…0bdd at0012 = ╱74╱t╱ // 0xbc1 @0x12
0x0baf…0bdd at0013 = ╱61╱a╱ // 0xbc2 @0x13
0x0baf…0bdd at0014 = ╱72╱r╱ // 0xbc3 @0x14
0x0baf…0bdd at0015 = ╱74╱t╱ // 0xbc4 @0x15
0x0baf…0bdd at0016 = ╱64╱d╱ // 0xbc5 @0x16
0x0baf…0bdd at0017 = ╱61╱a╱ // 0xbc6 @0x17
0x0baf…0bdd at0018 = ╱74╱t╱ // 0xbc7 @0x18
0x0baf…0bdd at0019 = ╱6f╱o╱ // 0xbc8 @0x19
0x0baf…0bdd at001a = ╱20╱…╱ // 0xbc9 @0x1a
0x0baf…0bdd at001b = ╱66╱f╱ // 0xbca @0x1b
0x0baf…0bdd at001c = ╱6f╱o╱ // 0xbcb @0x1c
0x0baf…0bdd at001d = ╱72╱r╱ // 0xbcc @0x1d
0x0baf…0bdd at001e = ╱20╱…╱ // 0xbcd @0x1e
0x0baf…0bdd at001f = ╱72╱r╱ // 0xbce @0x1f
0x0baf…0bdd at0020 = ╱65╱e╱ // 0xbcf @0x20
0x0baf…0bdd at0021 = ╱67╱g╱ // 0xbd0 @0x21
0x0baf…0bdd at0022 = ╱6e╱n╱ // 0xbd1 @0x22
0x0baf…0bdd at0023 = ╱73╱s╱ // 0xbd2 @0x23
0x0baf…0bdd at0024 = ╱6b╱k╱ // 0xbd3 @0x24
0x0baf…0bdd at0025 = ╱61╱a╱ // 0xbd4 @0x25
0x0baf…0bdd at0026 = ╱62╱b╱ // 0xbd5 @0x26
0x0baf…0bdd at0027 = ╱73╱s╱ // 0xbd6 @0x27
0x0baf…0bdd at0028 = ╱7d╱}╱ // 0xbd7 @0x28
0x0baf…0bdd at0029 = ╱72╱r╱ // 0xbd8 @0x29
0x0baf…0bdd at002a = ╱65╱e╱ // 0xbd9 @0x2a
0x0baf…0bdd at002b = ╱74╱t╱ // 0xbda @0x2b
0x0baf…0bdd at002c = ╱22╱"╱ // 0xbdb @0x2c
0x0baf…0bdd at002d = EOL // 0xbdc @0x2d
0x0baf…0bdd }
0x0bdd…0c0e a1fc 01050 PRINT "<C0813>6.……Antal…perioder…i…regnskabs}ret"
0x0bdd…0c0e LineComal80 {
0x0bdd…0c0e ptr = 0xa1fc // 0xbdd @0x0
0x0bdd…0c0e lno = 0x041a // 0xbdf @0x2
0x0bdd…0c0e at0004 = ╱92╱ PRINT ╱ // 0xbe1 @0x4
0x0bdd…0c0e at0005 = ╱22╱"╱ // 0xbe2 @0x5
0x0bdd…0c0e at0006 = ╱3c╱<╱ // 0xbe3 @0x6
0x0bdd…0c0e at0007 = ╱43╱C╱ // 0xbe4 @0x7
0x0bdd…0c0e at0008 = ╱30╱0╱ // 0xbe5 @0x8
0x0bdd…0c0e at0009 = ╱38╱8╱ // 0xbe6 @0x9
0x0bdd…0c0e at000a = ╱31╱1╱ // 0xbe7 @0xa
0x0bdd…0c0e at000b = ╱33╱3╱ // 0xbe8 @0xb
0x0bdd…0c0e at000c = ╱3e╱>╱ // 0xbe9 @0xc
0x0bdd…0c0e at000d = ╱36╱6╱ // 0xbea @0xd
0x0bdd…0c0e at000e = ╱2e╱.╱ // 0xbeb @0xe
0x0bdd…0c0e at000f = ╱20╱…╱ // 0xbec @0xf
0x0bdd…0c0e at0010 = ╱20╱…╱ // 0xbed @0x10
0x0bdd…0c0e at0011 = ╱41╱A╱ // 0xbee @0x11
0x0bdd…0c0e at0012 = ╱6e╱n╱ // 0xbef @0x12
0x0bdd…0c0e at0013 = ╱74╱t╱ // 0xbf0 @0x13
0x0bdd…0c0e at0014 = ╱61╱a╱ // 0xbf1 @0x14
0x0bdd…0c0e at0015 = ╱6c╱l╱ // 0xbf2 @0x15
0x0bdd…0c0e at0016 = ╱20╱…╱ // 0xbf3 @0x16
0x0bdd…0c0e at0017 = ╱70╱p╱ // 0xbf4 @0x17
0x0bdd…0c0e at0018 = ╱65╱e╱ // 0xbf5 @0x18
0x0bdd…0c0e at0019 = ╱72╱r╱ // 0xbf6 @0x19
0x0bdd…0c0e at001a = ╱69╱i╱ // 0xbf7 @0x1a
0x0bdd…0c0e at001b = ╱6f╱o╱ // 0xbf8 @0x1b
0x0bdd…0c0e at001c = ╱64╱d╱ // 0xbf9 @0x1c
0x0bdd…0c0e at001d = ╱65╱e╱ // 0xbfa @0x1d
0x0bdd…0c0e at001e = ╱72╱r╱ // 0xbfb @0x1e
0x0bdd…0c0e at001f = ╱20╱…╱ // 0xbfc @0x1f
0x0bdd…0c0e at0020 = ╱69╱i╱ // 0xbfd @0x20
0x0bdd…0c0e at0021 = ╱20╱…╱ // 0xbfe @0x21
0x0bdd…0c0e at0022 = ╱72╱r╱ // 0xbff @0x22
0x0bdd…0c0e at0023 = ╱65╱e╱ // 0xc00 @0x23
0x0bdd…0c0e at0024 = ╱67╱g╱ // 0xc01 @0x24
0x0bdd…0c0e at0025 = ╱6e╱n╱ // 0xc02 @0x25
0x0bdd…0c0e at0026 = ╱73╱s╱ // 0xc03 @0x26
0x0bdd…0c0e at0027 = ╱6b╱k╱ // 0xc04 @0x27
0x0bdd…0c0e at0028 = ╱61╱a╱ // 0xc05 @0x28
0x0bdd…0c0e at0029 = ╱62╱b╱ // 0xc06 @0x29
0x0bdd…0c0e at002a = ╱73╱s╱ // 0xc07 @0x2a
0x0bdd…0c0e at002b = ╱7d╱}╱ // 0xc08 @0x2b
0x0bdd…0c0e at002c = ╱72╱r╱ // 0xc09 @0x2c
0x0bdd…0c0e at002d = ╱65╱e╱ // 0xc0a @0x2d
0x0bdd…0c0e at002e = ╱74╱t╱ // 0xc0b @0x2e
0x0bdd…0c0e at002f = ╱22╱"╱ // 0xc0c @0x2f
0x0bdd…0c0e at0030 = EOL // 0xc0d @0x30
0x0bdd…0c0e }
0x0c0e…0c42 a230 01060 PRINT "<C0814>7.……Nr.…p}…nuv{rende…regnskabsperiode"
0x0c0e…0c42 LineComal80 {
0x0c0e…0c42 ptr = 0xa230 // 0xc0e @0x0
0x0c0e…0c42 lno = 0x0424 // 0xc10 @0x2
0x0c0e…0c42 at0004 = ╱92╱ PRINT ╱ // 0xc12 @0x4
0x0c0e…0c42 at0005 = ╱22╱"╱ // 0xc13 @0x5
0x0c0e…0c42 at0006 = ╱3c╱<╱ // 0xc14 @0x6
0x0c0e…0c42 at0007 = ╱43╱C╱ // 0xc15 @0x7
0x0c0e…0c42 at0008 = ╱30╱0╱ // 0xc16 @0x8
0x0c0e…0c42 at0009 = ╱38╱8╱ // 0xc17 @0x9
0x0c0e…0c42 at000a = ╱31╱1╱ // 0xc18 @0xa
0x0c0e…0c42 at000b = ╱34╱4╱ // 0xc19 @0xb
0x0c0e…0c42 at000c = ╱3e╱>╱ // 0xc1a @0xc
0x0c0e…0c42 at000d = ╱37╱7╱ // 0xc1b @0xd
0x0c0e…0c42 at000e = ╱2e╱.╱ // 0xc1c @0xe
0x0c0e…0c42 at000f = ╱20╱…╱ // 0xc1d @0xf
0x0c0e…0c42 at0010 = ╱20╱…╱ // 0xc1e @0x10
0x0c0e…0c42 at0011 = ╱4e╱N╱ // 0xc1f @0x11
0x0c0e…0c42 at0012 = ╱72╱r╱ // 0xc20 @0x12
0x0c0e…0c42 at0013 = ╱2e╱.╱ // 0xc21 @0x13
0x0c0e…0c42 at0014 = ╱20╱…╱ // 0xc22 @0x14
0x0c0e…0c42 at0015 = ╱70╱p╱ // 0xc23 @0x15
0x0c0e…0c42 at0016 = ╱7d╱}╱ // 0xc24 @0x16
0x0c0e…0c42 at0017 = ╱20╱…╱ // 0xc25 @0x17
0x0c0e…0c42 at0018 = ╱6e╱n╱ // 0xc26 @0x18
0x0c0e…0c42 at0019 = ╱75╱u╱ // 0xc27 @0x19
0x0c0e…0c42 at001a = ╱76╱v╱ // 0xc28 @0x1a
0x0c0e…0c42 at001b = ╱7b╱{╱ // 0xc29 @0x1b
0x0c0e…0c42 at001c = ╱72╱r╱ // 0xc2a @0x1c
0x0c0e…0c42 at001d = ╱65╱e╱ // 0xc2b @0x1d
0x0c0e…0c42 at001e = ╱6e╱n╱ // 0xc2c @0x1e
0x0c0e…0c42 at001f = ╱64╱d╱ // 0xc2d @0x1f
0x0c0e…0c42 at0020 = ╱65╱e╱ // 0xc2e @0x20
0x0c0e…0c42 at0021 = ╱20╱…╱ // 0xc2f @0x21
0x0c0e…0c42 at0022 = ╱72╱r╱ // 0xc30 @0x22
0x0c0e…0c42 at0023 = ╱65╱e╱ // 0xc31 @0x23
0x0c0e…0c42 at0024 = ╱67╱g╱ // 0xc32 @0x24
0x0c0e…0c42 at0025 = ╱6e╱n╱ // 0xc33 @0x25
0x0c0e…0c42 at0026 = ╱73╱s╱ // 0xc34 @0x26
0x0c0e…0c42 at0027 = ╱6b╱k╱ // 0xc35 @0x27
0x0c0e…0c42 at0028 = ╱61╱a╱ // 0xc36 @0x28
0x0c0e…0c42 at0029 = ╱62╱b╱ // 0xc37 @0x29
0x0c0e…0c42 at002a = ╱73╱s╱ // 0xc38 @0x2a
0x0c0e…0c42 at002b = ╱70╱p╱ // 0xc39 @0x2b
0x0c0e…0c42 at002c = ╱65╱e╱ // 0xc3a @0x2c
0x0c0e…0c42 at002d = ╱72╱r╱ // 0xc3b @0x2d
0x0c0e…0c42 at002e = ╱69╱i╱ // 0xc3c @0x2e
0x0c0e…0c42 at002f = ╱6f╱o╱ // 0xc3d @0x2f
0x0c0e…0c42 at0030 = ╱64╱d╱ // 0xc3e @0x30
0x0c0e…0c42 at0031 = ╱65╱e╱ // 0xc3f @0x31
0x0c0e…0c42 at0032 = ╱22╱"╱ // 0xc40 @0x32
0x0c0e…0c42 at0033 = EOL // 0xc41 @0x33
0x0c0e…0c42 }
0x0c42…0c72 a260 01070 PRINT "<C0815>8.……[ndring…af…terminalkoder…m.m."
0x0c42…0c72 LineComal80 {
0x0c42…0c72 ptr = 0xa260 // 0xc42 @0x0
0x0c42…0c72 lno = 0x042e // 0xc44 @0x2
0x0c42…0c72 at0004 = ╱92╱ PRINT ╱ // 0xc46 @0x4
0x0c42…0c72 at0005 = ╱22╱"╱ // 0xc47 @0x5
0x0c42…0c72 at0006 = ╱3c╱<╱ // 0xc48 @0x6
0x0c42…0c72 at0007 = ╱43╱C╱ // 0xc49 @0x7
0x0c42…0c72 at0008 = ╱30╱0╱ // 0xc4a @0x8
0x0c42…0c72 at0009 = ╱38╱8╱ // 0xc4b @0x9
0x0c42…0c72 at000a = ╱31╱1╱ // 0xc4c @0xa
0x0c42…0c72 at000b = ╱35╱5╱ // 0xc4d @0xb
0x0c42…0c72 at000c = ╱3e╱>╱ // 0xc4e @0xc
0x0c42…0c72 at000d = ╱38╱8╱ // 0xc4f @0xd
0x0c42…0c72 at000e = ╱2e╱.╱ // 0xc50 @0xe
0x0c42…0c72 at000f = ╱20╱…╱ // 0xc51 @0xf
0x0c42…0c72 at0010 = ╱20╱…╱ // 0xc52 @0x10
0x0c42…0c72 at0011 = ╱5b╱[╱ // 0xc53 @0x11
0x0c42…0c72 at0012 = ╱6e╱n╱ // 0xc54 @0x12
0x0c42…0c72 at0013 = ╱64╱d╱ // 0xc55 @0x13
0x0c42…0c72 at0014 = ╱72╱r╱ // 0xc56 @0x14
0x0c42…0c72 at0015 = ╱69╱i╱ // 0xc57 @0x15
0x0c42…0c72 at0016 = ╱6e╱n╱ // 0xc58 @0x16
0x0c42…0c72 at0017 = ╱67╱g╱ // 0xc59 @0x17
0x0c42…0c72 at0018 = ╱20╱…╱ // 0xc5a @0x18
0x0c42…0c72 at0019 = ╱61╱a╱ // 0xc5b @0x19
0x0c42…0c72 at001a = ╱66╱f╱ // 0xc5c @0x1a
0x0c42…0c72 at001b = ╱20╱…╱ // 0xc5d @0x1b
0x0c42…0c72 at001c = ╱74╱t╱ // 0xc5e @0x1c
0x0c42…0c72 at001d = ╱65╱e╱ // 0xc5f @0x1d
0x0c42…0c72 at001e = ╱72╱r╱ // 0xc60 @0x1e
0x0c42…0c72 at001f = ╱6d╱m╱ // 0xc61 @0x1f
0x0c42…0c72 at0020 = ╱69╱i╱ // 0xc62 @0x20
0x0c42…0c72 at0021 = ╱6e╱n╱ // 0xc63 @0x21
0x0c42…0c72 at0022 = ╱61╱a╱ // 0xc64 @0x22
0x0c42…0c72 at0023 = ╱6c╱l╱ // 0xc65 @0x23
0x0c42…0c72 at0024 = ╱6b╱k╱ // 0xc66 @0x24
0x0c42…0c72 at0025 = ╱6f╱o╱ // 0xc67 @0x25
0x0c42…0c72 at0026 = ╱64╱d╱ // 0xc68 @0x26
0x0c42…0c72 at0027 = ╱65╱e╱ // 0xc69 @0x27
0x0c42…0c72 at0028 = ╱72╱r╱ // 0xc6a @0x28
0x0c42…0c72 at0029 = ╱20╱…╱ // 0xc6b @0x29
0x0c42…0c72 at002a = ╱6d╱m╱ // 0xc6c @0x2a
0x0c42…0c72 at002b = ╱2e╱.╱ // 0xc6d @0x2b
0x0c42…0c72 at002c = ╱6d╱m╱ // 0xc6e @0x2c
0x0c42…0c72 at002d = ╱2e╱.╱ // 0xc6f @0x2d
0x0c42…0c72 at002e = ╱22╱"╱ // 0xc70 @0x2e
0x0c42…0c72 at002f = EOL // 0xc71 @0x2f
0x0c42…0c72 }
0x0c72…0c9a a288 01080 PRINT "<SC0817>RETURN…=…Programfordeler"
0x0c72…0c9a LineComal80 {
0x0c72…0c9a ptr = 0xa288 // 0xc72 @0x0
0x0c72…0c9a lno = 0x0438 // 0xc74 @0x2
0x0c72…0c9a at0004 = ╱92╱ PRINT ╱ // 0xc76 @0x4
0x0c72…0c9a at0005 = ╱22╱"╱ // 0xc77 @0x5
0x0c72…0c9a at0006 = ╱3c╱<╱ // 0xc78 @0x6
0x0c72…0c9a at0007 = ╱53╱S╱ // 0xc79 @0x7
0x0c72…0c9a at0008 = ╱43╱C╱ // 0xc7a @0x8
0x0c72…0c9a at0009 = ╱30╱0╱ // 0xc7b @0x9
0x0c72…0c9a at000a = ╱38╱8╱ // 0xc7c @0xa
0x0c72…0c9a at000b = ╱31╱1╱ // 0xc7d @0xb
0x0c72…0c9a at000c = ╱37╱7╱ // 0xc7e @0xc
0x0c72…0c9a at000d = ╱3e╱>╱ // 0xc7f @0xd
0x0c72…0c9a at000e = ╱52╱R╱ // 0xc80 @0xe
0x0c72…0c9a at000f = ╱45╱E╱ // 0xc81 @0xf
0x0c72…0c9a at0010 = ╱54╱T╱ // 0xc82 @0x10
0x0c72…0c9a at0011 = ╱55╱U╱ // 0xc83 @0x11
0x0c72…0c9a at0012 = ╱52╱R╱ // 0xc84 @0x12
0x0c72…0c9a at0013 = ╱4e╱N╱ // 0xc85 @0x13
0x0c72…0c9a at0014 = ╱20╱…╱ // 0xc86 @0x14
0x0c72…0c9a at0015 = ╱3d╱=╱ // 0xc87 @0x15
0x0c72…0c9a at0016 = ╱20╱…╱ // 0xc88 @0x16
0x0c72…0c9a at0017 = ╱50╱P╱ // 0xc89 @0x17
0x0c72…0c9a at0018 = ╱72╱r╱ // 0xc8a @0x18
0x0c72…0c9a at0019 = ╱6f╱o╱ // 0xc8b @0x19
0x0c72…0c9a at001a = ╱67╱g╱ // 0xc8c @0x1a
0x0c72…0c9a at001b = ╱72╱r╱ // 0xc8d @0x1b
0x0c72…0c9a at001c = ╱61╱a╱ // 0xc8e @0x1c
0x0c72…0c9a at001d = ╱6d╱m╱ // 0xc8f @0x1d
0x0c72…0c9a at001e = ╱66╱f╱ // 0xc90 @0x1e
0x0c72…0c9a at001f = ╱6f╱o╱ // 0xc91 @0x1f
0x0c72…0c9a at0020 = ╱72╱r╱ // 0xc92 @0x20
0x0c72…0c9a at0021 = ╱64╱d╱ // 0xc93 @0x21
0x0c72…0c9a at0022 = ╱65╱e╱ // 0xc94 @0x22
0x0c72…0c9a at0023 = ╱6c╱l╱ // 0xc95 @0x23
0x0c72…0c9a at0024 = ╱65╱e╱ // 0xc96 @0x24
0x0c72…0c9a at0025 = ╱72╱r╱ // 0xc97 @0x25
0x0c72…0c9a at0026 = ╱22╱"╱ // 0xc98 @0x26
0x0c72…0c9a at0027 = EOL // 0xc99 @0x27
0x0c72…0c9a }
0x0c9a…0ca7 a295 01090 IF ALSE THEN
0x0c9a…0ca7 LineComal80 {
0x0c9a…0ca7 ptr = 0xa295 // 0xc9a @0x0
0x0c9a…0ca7 lno = 0x0442 // 0xc9c @0x2
0x0c9a…0ca7 at0004 = ╱9b0046╱ IF ╱ // 0xc9e @0x4
0x0c9a…0ca7 at0007 = ╱41╱A╱ // 0xca1 @0x7
0x0c9a…0ca7 at0008 = ╱4c╱L╱ // 0xca2 @0x8
0x0c9a…0ca7 at0009 = ╱53╱S╱ // 0xca3 @0x9
0x0c9a…0ca7 at000a = ╱45╱E╱ // 0xca4 @0xa
0x0c9a…0ca7 at000b = ╱b5╱ THEN ╱ // 0xca5 @0xb
0x0c9a…0ca7 at000c = EOL // 0xca6 @0xc
0x0c9a…0ca7 }
0x0ca7…0cc2 a2b0 01100 PRINT "<SC0211>Kontonumre:"
0x0ca7…0cc2 LineComal80 {
0x0ca7…0cc2 ptr = 0xa2b0 // 0xca7 @0x0
0x0ca7…0cc2 lno = 0x044c // 0xca9 @0x2
0x0ca7…0cc2 at0004 = ╱92╱ PRINT ╱ // 0xcab @0x4
0x0ca7…0cc2 at0005 = ╱22╱"╱ // 0xcac @0x5
0x0ca7…0cc2 at0006 = ╱3c╱<╱ // 0xcad @0x6
0x0ca7…0cc2 at0007 = ╱53╱S╱ // 0xcae @0x7
0x0ca7…0cc2 at0008 = ╱43╱C╱ // 0xcaf @0x8
0x0ca7…0cc2 at0009 = ╱30╱0╱ // 0xcb0 @0x9
0x0ca7…0cc2 at000a = ╱32╱2╱ // 0xcb1 @0xa
0x0ca7…0cc2 at000b = ╱31╱1╱ // 0xcb2 @0xb
0x0ca7…0cc2 at000c = ╱31╱1╱ // 0xcb3 @0xc
0x0ca7…0cc2 at000d = ╱3e╱>╱ // 0xcb4 @0xd
0x0ca7…0cc2 at000e = ╱4b╱K╱ // 0xcb5 @0xe
0x0ca7…0cc2 at000f = ╱6f╱o╱ // 0xcb6 @0xf
0x0ca7…0cc2 at0010 = ╱6e╱n╱ // 0xcb7 @0x10
0x0ca7…0cc2 at0011 = ╱74╱t╱ // 0xcb8 @0x11
0x0ca7…0cc2 at0012 = ╱6f╱o╱ // 0xcb9 @0x12
0x0ca7…0cc2 at0013 = ╱6e╱n╱ // 0xcba @0x13
0x0ca7…0cc2 at0014 = ╱75╱u╱ // 0xcbb @0x14
0x0ca7…0cc2 at0015 = ╱6d╱m╱ // 0xcbc @0x15
0x0ca7…0cc2 at0016 = ╱72╱r╱ // 0xcbd @0x16
0x0ca7…0cc2 at0017 = ╱65╱e╱ // 0xcbe @0x17
0x0ca7…0cc2 at0018 = ╱3a╱:╱ // 0xcbf @0x18
0x0ca7…0cc2 at0019 = ╱22╱"╱ // 0xcc0 @0x19
0x0ca7…0cc2 at001a = EOL // 0xcc1 @0x1a
0x0ca7…0cc2 }
0x0cc2…0cda a2c8 01110 PRINT "<C0212>9.……kasse"
0x0cc2…0cda LineComal80 {
0x0cc2…0cda ptr = 0xa2c8 // 0xcc2 @0x0
0x0cc2…0cda lno = 0x0456 // 0xcc4 @0x2
0x0cc2…0cda at0004 = ╱92╱ PRINT ╱ // 0xcc6 @0x4
0x0cc2…0cda at0005 = ╱22╱"╱ // 0xcc7 @0x5
0x0cc2…0cda at0006 = ╱3c╱<╱ // 0xcc8 @0x6
0x0cc2…0cda at0007 = ╱43╱C╱ // 0xcc9 @0x7
0x0cc2…0cda at0008 = ╱30╱0╱ // 0xcca @0x8
0x0cc2…0cda at0009 = ╱32╱2╱ // 0xccb @0x9
0x0cc2…0cda at000a = ╱31╱1╱ // 0xccc @0xa
0x0cc2…0cda at000b = ╱32╱2╱ // 0xccd @0xb
0x0cc2…0cda at000c = ╱3e╱>╱ // 0xcce @0xc
0x0cc2…0cda at000d = ╱39╱9╱ // 0xccf @0xd
0x0cc2…0cda at000e = ╱2e╱.╱ // 0xcd0 @0xe
0x0cc2…0cda at000f = ╱20╱…╱ // 0xcd1 @0xf
0x0cc2…0cda at0010 = ╱20╱…╱ // 0xcd2 @0x10
0x0cc2…0cda at0011 = ╱6b╱k╱ // 0xcd3 @0x11
0x0cc2…0cda at0012 = ╱61╱a╱ // 0xcd4 @0x12
0x0cc2…0cda at0013 = ╱73╱s╱ // 0xcd5 @0x13
0x0cc2…0cda at0014 = ╱73╱s╱ // 0xcd6 @0x14
0x0cc2…0cda at0015 = ╱65╱e╱ // 0xcd7 @0x15
0x0cc2…0cda at0016 = ╱22╱"╱ // 0xcd8 @0x16
0x0cc2…0cda at0017 = EOL // 0xcd9 @0x17
0x0cc2…0cda }
0x0cda…0cf1 a2df 01120 PRINT "<C0213>10.…bank"
0x0cda…0cf1 LineComal80 {
0x0cda…0cf1 ptr = 0xa2df // 0xcda @0x0
0x0cda…0cf1 lno = 0x0460 // 0xcdc @0x2
0x0cda…0cf1 at0004 = ╱92╱ PRINT ╱ // 0xcde @0x4
0x0cda…0cf1 at0005 = ╱22╱"╱ // 0xcdf @0x5
0x0cda…0cf1 at0006 = ╱3c╱<╱ // 0xce0 @0x6
0x0cda…0cf1 at0007 = ╱43╱C╱ // 0xce1 @0x7
0x0cda…0cf1 at0008 = ╱30╱0╱ // 0xce2 @0x8
0x0cda…0cf1 at0009 = ╱32╱2╱ // 0xce3 @0x9
0x0cda…0cf1 at000a = ╱31╱1╱ // 0xce4 @0xa
0x0cda…0cf1 at000b = ╱33╱3╱ // 0xce5 @0xb
0x0cda…0cf1 at000c = ╱3e╱>╱ // 0xce6 @0xc
0x0cda…0cf1 at000d = ╱31╱1╱ // 0xce7 @0xd
0x0cda…0cf1 at000e = ╱30╱0╱ // 0xce8 @0xe
0x0cda…0cf1 at000f = ╱2e╱.╱ // 0xce9 @0xf
0x0cda…0cf1 at0010 = ╱20╱…╱ // 0xcea @0x10
0x0cda…0cf1 at0011 = ╱62╱b╱ // 0xceb @0x11
0x0cda…0cf1 at0012 = ╱61╱a╱ // 0xcec @0x12
0x0cda…0cf1 at0013 = ╱6e╱n╱ // 0xced @0x13
0x0cda…0cf1 at0014 = ╱6b╱k╱ // 0xcee @0x14
0x0cda…0cf1 at0015 = ╱22╱"╱ // 0xcef @0x15
0x0cda…0cf1 at0016 = EOL // 0xcf0 @0x16
0x0cda…0cf1 }
0x0cf1…0d08 a2f6 01130 PRINT "<C0214>11.…giro"
0x0cf1…0d08 LineComal80 {
0x0cf1…0d08 ptr = 0xa2f6 // 0xcf1 @0x0
0x0cf1…0d08 lno = 0x046a // 0xcf3 @0x2
0x0cf1…0d08 at0004 = ╱92╱ PRINT ╱ // 0xcf5 @0x4
0x0cf1…0d08 at0005 = ╱22╱"╱ // 0xcf6 @0x5
0x0cf1…0d08 at0006 = ╱3c╱<╱ // 0xcf7 @0x6
0x0cf1…0d08 at0007 = ╱43╱C╱ // 0xcf8 @0x7
0x0cf1…0d08 at0008 = ╱30╱0╱ // 0xcf9 @0x8
0x0cf1…0d08 at0009 = ╱32╱2╱ // 0xcfa @0x9
0x0cf1…0d08 at000a = ╱31╱1╱ // 0xcfb @0xa
0x0cf1…0d08 at000b = ╱34╱4╱ // 0xcfc @0xb
0x0cf1…0d08 at000c = ╱3e╱>╱ // 0xcfd @0xc
0x0cf1…0d08 at000d = ╱31╱1╱ // 0xcfe @0xd
0x0cf1…0d08 at000e = ╱31╱1╱ // 0xcff @0xe
0x0cf1…0d08 at000f = ╱2e╱.╱ // 0xd00 @0xf
0x0cf1…0d08 at0010 = ╱20╱…╱ // 0xd01 @0x10
0x0cf1…0d08 at0011 = ╱67╱g╱ // 0xd02 @0x11
0x0cf1…0d08 at0012 = ╱69╱i╱ // 0xd03 @0x12
0x0cf1…0d08 at0013 = ╱72╱r╱ // 0xd04 @0x13
0x0cf1…0d08 at0014 = ╱6f╱o╱ // 0xd05 @0x14
0x0cf1…0d08 at0015 = ╱22╱"╱ // 0xd06 @0x15
0x0cf1…0d08 at0016 = EOL // 0xd07 @0x16
0x0cf1…0d08 }
0x0d08…0d2b a319 01140 PRINT "<C0215>12.…kassedifferencer"
0x0d08…0d2b LineComal80 {
0x0d08…0d2b ptr = 0xa319 // 0xd08 @0x0
0x0d08…0d2b lno = 0x0474 // 0xd0a @0x2
0x0d08…0d2b at0004 = ╱92╱ PRINT ╱ // 0xd0c @0x4
0x0d08…0d2b at0005 = ╱22╱"╱ // 0xd0d @0x5
0x0d08…0d2b at0006 = ╱3c╱<╱ // 0xd0e @0x6
0x0d08…0d2b at0007 = ╱43╱C╱ // 0xd0f @0x7
0x0d08…0d2b at0008 = ╱30╱0╱ // 0xd10 @0x8
0x0d08…0d2b at0009 = ╱32╱2╱ // 0xd11 @0x9
0x0d08…0d2b at000a = ╱31╱1╱ // 0xd12 @0xa
0x0d08…0d2b at000b = ╱35╱5╱ // 0xd13 @0xb
0x0d08…0d2b at000c = ╱3e╱>╱ // 0xd14 @0xc
0x0d08…0d2b at000d = ╱31╱1╱ // 0xd15 @0xd
0x0d08…0d2b at000e = ╱32╱2╱ // 0xd16 @0xe
0x0d08…0d2b at000f = ╱2e╱.╱ // 0xd17 @0xf
0x0d08…0d2b at0010 = ╱20╱…╱ // 0xd18 @0x10
0x0d08…0d2b at0011 = ╱6b╱k╱ // 0xd19 @0x11
0x0d08…0d2b at0012 = ╱61╱a╱ // 0xd1a @0x12
0x0d08…0d2b at0013 = ╱73╱s╱ // 0xd1b @0x13
0x0d08…0d2b at0014 = ╱73╱s╱ // 0xd1c @0x14
0x0d08…0d2b at0015 = ╱65╱e╱ // 0xd1d @0x15
0x0d08…0d2b at0016 = ╱64╱d╱ // 0xd1e @0x16
0x0d08…0d2b at0017 = ╱69╱i╱ // 0xd1f @0x17
0x0d08…0d2b at0018 = ╱66╱f╱ // 0xd20 @0x18
0x0d08…0d2b at0019 = ╱66╱f╱ // 0xd21 @0x19
0x0d08…0d2b at001a = ╱65╱e╱ // 0xd22 @0x1a
0x0d08…0d2b at001b = ╱72╱r╱ // 0xd23 @0x1b
0x0d08…0d2b at001c = ╱65╱e╱ // 0xd24 @0x1c
0x0d08…0d2b at001d = ╱6e╱n╱ // 0xd25 @0x1d
0x0d08…0d2b at001e = ╱63╱c╱ // 0xd26 @0x1e
0x0d08…0d2b at001f = ╱65╱e╱ // 0xd27 @0x1f
0x0d08…0d2b at0020 = ╱72╱r╱ // 0xd28 @0x20
0x0d08…0d2b at0021 = ╱22╱"╱ // 0xd29 @0x21
0x0d08…0d2b at0022 = EOL // 0xd2a @0x22
0x0d08…0d2b }
0x0d2b…0d48 a336 01150 PRINT "<C0216>13.…indg.…moms"
0x0d2b…0d48 LineComal80 {
0x0d2b…0d48 ptr = 0xa336 // 0xd2b @0x0
0x0d2b…0d48 lno = 0x047e // 0xd2d @0x2
0x0d2b…0d48 at0004 = ╱92╱ PRINT ╱ // 0xd2f @0x4
0x0d2b…0d48 at0005 = ╱22╱"╱ // 0xd30 @0x5
0x0d2b…0d48 at0006 = ╱3c╱<╱ // 0xd31 @0x6
0x0d2b…0d48 at0007 = ╱43╱C╱ // 0xd32 @0x7
0x0d2b…0d48 at0008 = ╱30╱0╱ // 0xd33 @0x8
0x0d2b…0d48 at0009 = ╱32╱2╱ // 0xd34 @0x9
0x0d2b…0d48 at000a = ╱31╱1╱ // 0xd35 @0xa
0x0d2b…0d48 at000b = ╱36╱6╱ // 0xd36 @0xb
0x0d2b…0d48 at000c = ╱3e╱>╱ // 0xd37 @0xc
0x0d2b…0d48 at000d = ╱31╱1╱ // 0xd38 @0xd
0x0d2b…0d48 at000e = ╱33╱3╱ // 0xd39 @0xe
0x0d2b…0d48 at000f = ╱2e╱.╱ // 0xd3a @0xf
0x0d2b…0d48 at0010 = ╱20╱…╱ // 0xd3b @0x10
0x0d2b…0d48 at0011 = ╱69╱i╱ // 0xd3c @0x11
0x0d2b…0d48 at0012 = ╱6e╱n╱ // 0xd3d @0x12
0x0d2b…0d48 at0013 = ╱64╱d╱ // 0xd3e @0x13
0x0d2b…0d48 at0014 = ╱67╱g╱ // 0xd3f @0x14
0x0d2b…0d48 at0015 = ╱2e╱.╱ // 0xd40 @0x15
0x0d2b…0d48 at0016 = ╱20╱…╱ // 0xd41 @0x16
0x0d2b…0d48 at0017 = ╱6d╱m╱ // 0xd42 @0x17
0x0d2b…0d48 at0018 = ╱6f╱o╱ // 0xd43 @0x18
0x0d2b…0d48 at0019 = ╱6d╱m╱ // 0xd44 @0x19
0x0d2b…0d48 at001a = ╱73╱s╱ // 0xd45 @0x1a
0x0d2b…0d48 at001b = ╱22╱"╱ // 0xd46 @0x1b
0x0d2b…0d48 at001c = EOL // 0xd47 @0x1c
0x0d2b…0d48 }
0x0d48…0d64 a352 01160 PRINT "<C0217>14.…udg.…moms"
0x0d48…0d64 LineComal80 {
0x0d48…0d64 ptr = 0xa352 // 0xd48 @0x0
0x0d48…0d64 lno = 0x0488 // 0xd4a @0x2
0x0d48…0d64 at0004 = ╱92╱ PRINT ╱ // 0xd4c @0x4
0x0d48…0d64 at0005 = ╱22╱"╱ // 0xd4d @0x5
0x0d48…0d64 at0006 = ╱3c╱<╱ // 0xd4e @0x6
0x0d48…0d64 at0007 = ╱43╱C╱ // 0xd4f @0x7
0x0d48…0d64 at0008 = ╱30╱0╱ // 0xd50 @0x8
0x0d48…0d64 at0009 = ╱32╱2╱ // 0xd51 @0x9
0x0d48…0d64 at000a = ╱31╱1╱ // 0xd52 @0xa
0x0d48…0d64 at000b = ╱37╱7╱ // 0xd53 @0xb
0x0d48…0d64 at000c = ╱3e╱>╱ // 0xd54 @0xc
0x0d48…0d64 at000d = ╱31╱1╱ // 0xd55 @0xd
0x0d48…0d64 at000e = ╱34╱4╱ // 0xd56 @0xe
0x0d48…0d64 at000f = ╱2e╱.╱ // 0xd57 @0xf
0x0d48…0d64 at0010 = ╱20╱…╱ // 0xd58 @0x10
0x0d48…0d64 at0011 = ╱75╱u╱ // 0xd59 @0x11
0x0d48…0d64 at0012 = ╱64╱d╱ // 0xd5a @0x12
0x0d48…0d64 at0013 = ╱67╱g╱ // 0xd5b @0x13
0x0d48…0d64 at0014 = ╱2e╱.╱ // 0xd5c @0x14
0x0d48…0d64 at0015 = ╱20╱…╱ // 0xd5d @0x15
0x0d48…0d64 at0016 = ╱6d╱m╱ // 0xd5e @0x16
0x0d48…0d64 at0017 = ╱6f╱o╱ // 0xd5f @0x17
0x0d48…0d64 at0018 = ╱6d╱m╱ // 0xd60 @0x18
0x0d48…0d64 at0019 = ╱73╱s╱ // 0xd61 @0x19
0x0d48…0d64 at001a = ╱22╱"╱ // 0xd62 @0x1a
0x0d48…0d64 at001b = EOL // 0xd63 @0x1b
0x0d48…0d64 }
0x0d64…0d89 a377 01170 PRINT "<SC0218>15.…resultatopg|relse"
0x0d64…0d89 LineComal80 {
0x0d64…0d89 ptr = 0xa377 // 0xd64 @0x0
0x0d64…0d89 lno = 0x0492 // 0xd66 @0x2
0x0d64…0d89 at0004 = ╱92╱ PRINT ╱ // 0xd68 @0x4
0x0d64…0d89 at0005 = ╱22╱"╱ // 0xd69 @0x5
0x0d64…0d89 at0006 = ╱3c╱<╱ // 0xd6a @0x6
0x0d64…0d89 at0007 = ╱53╱S╱ // 0xd6b @0x7
0x0d64…0d89 at0008 = ╱43╱C╱ // 0xd6c @0x8
0x0d64…0d89 at0009 = ╱30╱0╱ // 0xd6d @0x9
0x0d64…0d89 at000a = ╱32╱2╱ // 0xd6e @0xa
0x0d64…0d89 at000b = ╱31╱1╱ // 0xd6f @0xb
0x0d64…0d89 at000c = ╱38╱8╱ // 0xd70 @0xc
0x0d64…0d89 at000d = ╱3e╱>╱ // 0xd71 @0xd
0x0d64…0d89 at000e = ╱31╱1╱ // 0xd72 @0xe
0x0d64…0d89 at000f = ╱35╱5╱ // 0xd73 @0xf
0x0d64…0d89 at0010 = ╱2e╱.╱ // 0xd74 @0x10
0x0d64…0d89 at0011 = ╱20╱…╱ // 0xd75 @0x11
0x0d64…0d89 at0012 = ╱72╱r╱ // 0xd76 @0x12
0x0d64…0d89 at0013 = ╱65╱e╱ // 0xd77 @0x13
0x0d64…0d89 at0014 = ╱73╱s╱ // 0xd78 @0x14
0x0d64…0d89 at0015 = ╱75╱u╱ // 0xd79 @0x15
0x0d64…0d89 at0016 = ╱6c╱l╱ // 0xd7a @0x16
0x0d64…0d89 at0017 = ╱74╱t╱ // 0xd7b @0x17
0x0d64…0d89 at0018 = ╱61╱a╱ // 0xd7c @0x18
0x0d64…0d89 at0019 = ╱74╱t╱ // 0xd7d @0x19
0x0d64…0d89 at001a = ╱6f╱o╱ // 0xd7e @0x1a
0x0d64…0d89 at001b = ╱70╱p╱ // 0xd7f @0x1b
0x0d64…0d89 at001c = ╱67╱g╱ // 0xd80 @0x1c
0x0d64…0d89 at001d = ╱7c╱|╱ // 0xd81 @0x1d
0x0d64…0d89 at001e = ╱72╱r╱ // 0xd82 @0x1e
0x0d64…0d89 at001f = ╱65╱e╱ // 0xd83 @0x1f
0x0d64…0d89 at0020 = ╱6c╱l╱ // 0xd84 @0x20
0x0d64…0d89 at0021 = ╱73╱s╱ // 0xd85 @0x21
0x0d64…0d89 at0022 = ╱65╱e╱ // 0xd86 @0x22
0x0d64…0d89 at0023 = ╱22╱"╱ // 0xd87 @0x23
0x0d64…0d89 at0024 = EOL // 0xd88 @0x24
0x0d64…0d89 }
0x0d89…0da4 (45,) a392 01180 PRINT "<SC0219>16.…balance"
0x0d89…0da4 LineComal80 {
0x0d89…0da4 ptr = 0xa392 // 0xd89 @0x0
0x0d89…0da4 lno = 0x049c // 0xd8b @0x2
0x0d89…0da4 at0004 = ╱92╱ PRINT ╱ // 0xd8d @0x4
0x0d89…0da4 at0005 = ╱22╱"╱ // 0xd8e @0x5
0x0d89…0da4 at0006 = ╱3c╱<╱ // 0xd8f @0x6
0x0d89…0da4 at0007 = ╱53╱S╱ // 0xd90 @0x7
0x0d89…0da4 at0008 = ╱43╱C╱ // 0xd91 @0x8
0x0d89…0da4 at0009 = ╱30╱0╱ // 0xd92 @0x9
0x0d89…0da4 at000a = ╱32╱2╱ // 0xd93 @0xa
0x0d89…0da4 at000b = ╱31╱1╱ // 0xd94 @0xb
0x0d89…0da4 at000c = ╱39╱9╱ // 0xd95 @0xc
0x0d89…0da4 at000d = ╱3e╱>╱ // 0xd96 @0xd
0x0d89…0da4 at000e = ╱31╱1╱ // 0xd97 @0xe
0x0d89…0da4 at000f = ╱36╱6╱ // 0xd98 @0xf
0x0d89…0da4 at0010 = ╱2e╱.╱ // 0xd99 @0x10
0x0d89…0da4 at0011 = ╱20╱…╱ // 0xd9a @0x11
0x0d89…0da4 at0012 = ╱62╱b╱ // 0xd9b @0x12
0x0d89…0da4 at0013 = ╱61╱a╱ // 0xd9c @0x13
0x0d89…0da4 at0014 = ╱6c╱l╱ // 0xd9d @0x14
0x0d89…0da4 at0015 = ╱61╱a╱ // 0xd9e @0x15
0x0d89…0da4 at0016 = ╱6e╱n╱ // 0xd9f @0x16
0x0d89…0da4 at0017 = ╱63╱c╱ // 0xda0 @0x17
0x0d89…0da4 at0018 = ╱65╱e╱ // 0xda1 @0x18
0x0d89…0da4 at0019 = ╱22╱"╱ // 0xda2 @0x19
0x0d89…0da4 at001a = EOL // 0xda3 @0x1a
0x0d89…0da4 }
0x0da4…0dcb a3b9 01190 PRINT "<SC0220>17.…f|rste…balancekonto"
0x0da4…0dcb LineComal80 {
0x0da4…0dcb ptr = 0xa3b9 // 0xda4 @0x0
0x0da4…0dcb lno = 0x04a6 // 0xda6 @0x2
0x0da4…0dcb at0004 = ╱92╱ PRINT ╱ // 0xda8 @0x4
0x0da4…0dcb at0005 = ╱22╱"╱ // 0xda9 @0x5
0x0da4…0dcb at0006 = ╱3c╱<╱ // 0xdaa @0x6
0x0da4…0dcb at0007 = ╱53╱S╱ // 0xdab @0x7
0x0da4…0dcb at0008 = ╱43╱C╱ // 0xdac @0x8
0x0da4…0dcb at0009 = ╱30╱0╱ // 0xdad @0x9
0x0da4…0dcb at000a = ╱32╱2╱ // 0xdae @0xa
0x0da4…0dcb at000b = ╱32╱2╱ // 0xdaf @0xb
0x0da4…0dcb at000c = ╱30╱0╱ // 0xdb0 @0xc
0x0da4…0dcb at000d = ╱3e╱>╱ // 0xdb1 @0xd
0x0da4…0dcb at000e = ╱31╱1╱ // 0xdb2 @0xe
0x0da4…0dcb at000f = ╱37╱7╱ // 0xdb3 @0xf
0x0da4…0dcb at0010 = ╱2e╱.╱ // 0xdb4 @0x10
0x0da4…0dcb at0011 = ╱20╱…╱ // 0xdb5 @0x11
0x0da4…0dcb at0012 = ╱66╱f╱ // 0xdb6 @0x12
0x0da4…0dcb at0013 = ╱7c╱|╱ // 0xdb7 @0x13
0x0da4…0dcb at0014 = ╱72╱r╱ // 0xdb8 @0x14
0x0da4…0dcb at0015 = ╱73╱s╱ // 0xdb9 @0x15
0x0da4…0dcb at0016 = ╱74╱t╱ // 0xdba @0x16
0x0da4…0dcb at0017 = ╱65╱e╱ // 0xdbb @0x17
0x0da4…0dcb at0018 = ╱20╱…╱ // 0xdbc @0x18
0x0da4…0dcb at0019 = ╱62╱b╱ // 0xdbd @0x19
0x0da4…0dcb at001a = ╱61╱a╱ // 0xdbe @0x1a
0x0da4…0dcb at001b = ╱6c╱l╱ // 0xdbf @0x1b
0x0da4…0dcb at001c = ╱61╱a╱ // 0xdc0 @0x1c
0x0da4…0dcb at001d = ╱6e╱n╱ // 0xdc1 @0x1d
0x0da4…0dcb at001e = ╱63╱c╱ // 0xdc2 @0x1e
0x0da4…0dcb at001f = ╱65╱e╱ // 0xdc3 @0x1f
0x0da4…0dcb at0020 = ╱6b╱k╱ // 0xdc4 @0x20
0x0da4…0dcb at0021 = ╱6f╱o╱ // 0xdc5 @0x21
0x0da4…0dcb at0022 = ╱6e╱n╱ // 0xdc6 @0x22
0x0da4…0dcb at0023 = ╱74╱t╱ // 0xdc7 @0x23
0x0da4…0dcb at0024 = ╱6f╱o╱ // 0xdc8 @0x24
0x0da4…0dcb at0025 = ╱22╱"╱ // 0xdc9 @0x25
0x0da4…0dcb at0026 = EOL // 0xdca @0x26
0x0da4…0dcb }
0x0dcb…0dec a3da 01200 PRINT "<C0221>18.…]rets…resultat"
0x0dcb…0dec LineComal80 {
0x0dcb…0dec ptr = 0xa3da // 0xdcb @0x0
0x0dcb…0dec lno = 0x04b0 // 0xdcd @0x2
0x0dcb…0dec at0004 = ╱92╱ PRINT ╱ // 0xdcf @0x4
0x0dcb…0dec at0005 = ╱22╱"╱ // 0xdd0 @0x5
0x0dcb…0dec at0006 = ╱3c╱<╱ // 0xdd1 @0x6
0x0dcb…0dec at0007 = ╱43╱C╱ // 0xdd2 @0x7
0x0dcb…0dec at0008 = ╱30╱0╱ // 0xdd3 @0x8
0x0dcb…0dec at0009 = ╱32╱2╱ // 0xdd4 @0x9
0x0dcb…0dec at000a = ╱32╱2╱ // 0xdd5 @0xa
0x0dcb…0dec at000b = ╱31╱1╱ // 0xdd6 @0xb
0x0dcb…0dec at000c = ╱3e╱>╱ // 0xdd7 @0xc
0x0dcb…0dec at000d = ╱31╱1╱ // 0xdd8 @0xd
0x0dcb…0dec at000e = ╱38╱8╱ // 0xdd9 @0xe
0x0dcb…0dec at000f = ╱2e╱.╱ // 0xdda @0xf
0x0dcb…0dec at0010 = ╱20╱…╱ // 0xddb @0x10
0x0dcb…0dec at0011 = ╱5d╱]╱ // 0xddc @0x11
0x0dcb…0dec at0012 = ╱72╱r╱ // 0xddd @0x12
0x0dcb…0dec at0013 = ╱65╱e╱ // 0xdde @0x13
0x0dcb…0dec at0014 = ╱74╱t╱ // 0xddf @0x14
0x0dcb…0dec at0015 = ╱73╱s╱ // 0xde0 @0x15
0x0dcb…0dec at0016 = ╱20╱…╱ // 0xde1 @0x16
0x0dcb…0dec at0017 = ╱72╱r╱ // 0xde2 @0x17
0x0dcb…0dec at0018 = ╱65╱e╱ // 0xde3 @0x18
0x0dcb…0dec at0019 = ╱73╱s╱ // 0xde4 @0x19
0x0dcb…0dec at001a = ╱75╱u╱ // 0xde5 @0x1a
0x0dcb…0dec at001b = ╱6c╱l╱ // 0xde6 @0x1b
0x0dcb…0dec at001c = ╱74╱t╱ // 0xde7 @0x1c
0x0dcb…0dec at001d = ╱61╱a╱ // 0xde8 @0x1d
0x0dcb…0dec at001e = ╱74╱t╱ // 0xde9 @0x1e
0x0dcb…0dec at001f = ╱22╱"╱ // 0xdea @0x1f
0x0dcb…0dec at0020 = EOL // 0xdeb @0x20
0x0dcb…0dec }
0x0dec…0e06 a3f4 01210 PRINT "<C2711>Kontonumre:"
0x0dec…0e06 LineComal80 {
0x0dec…0e06 ptr = 0xa3f4 // 0xdec @0x0
0x0dec…0e06 lno = 0x04ba // 0xdee @0x2
0x0dec…0e06 at0004 = ╱92╱ PRINT ╱ // 0xdf0 @0x4
0x0dec…0e06 at0005 = ╱22╱"╱ // 0xdf1 @0x5
0x0dec…0e06 at0006 = ╱3c╱<╱ // 0xdf2 @0x6
0x0dec…0e06 at0007 = ╱43╱C╱ // 0xdf3 @0x7
0x0dec…0e06 at0008 = ╱32╱2╱ // 0xdf4 @0x8
0x0dec…0e06 at0009 = ╱37╱7╱ // 0xdf5 @0x9
0x0dec…0e06 at000a = ╱31╱1╱ // 0xdf6 @0xa
0x0dec…0e06 at000b = ╱31╱1╱ // 0xdf7 @0xb
0x0dec…0e06 at000c = ╱3e╱>╱ // 0xdf8 @0xc
0x0dec…0e06 at000d = ╱4b╱K╱ // 0xdf9 @0xd
0x0dec…0e06 at000e = ╱6f╱o╱ // 0xdfa @0xe
0x0dec…0e06 at000f = ╱6e╱n╱ // 0xdfb @0xf
0x0dec…0e06 at0010 = ╱74╱t╱ // 0xdfc @0x10
0x0dec…0e06 at0011 = ╱6f╱o╱ // 0xdfd @0x11
0x0dec…0e06 at0012 = ╱6e╱n╱ // 0xdfe @0x12
0x0dec…0e06 at0013 = ╱75╱u╱ // 0xdff @0x13
0x0dec…0e06 at0014 = ╱6d╱m╱ // 0xe00 @0x14
0x0dec…0e06 at0015 = ╱72╱r╱ // 0xe01 @0x15
0x0dec…0e06 at0016 = ╱65╱e╱ // 0xe02 @0x16
0x0dec…0e06 at0017 = ╱3a╱:╱ // 0xe03 @0x17
0x0dec…0e06 at0018 = ╱22╱"╱ // 0xe04 @0x18
0x0dec…0e06 at0019 = EOL // 0xe05 @0x19
0x0dec…0e06 }
0x0e06…0e26 a414 01220 PRINT "<C2712>19.…Privatforbrug"
0x0e06…0e26 LineComal80 {
0x0e06…0e26 ptr = 0xa414 // 0xe06 @0x0
0x0e06…0e26 lno = 0x04c4 // 0xe08 @0x2
0x0e06…0e26 at0004 = ╱92╱ PRINT ╱ // 0xe0a @0x4
0x0e06…0e26 at0005 = ╱22╱"╱ // 0xe0b @0x5
0x0e06…0e26 at0006 = ╱3c╱<╱ // 0xe0c @0x6
0x0e06…0e26 at0007 = ╱43╱C╱ // 0xe0d @0x7
0x0e06…0e26 at0008 = ╱32╱2╱ // 0xe0e @0x8
0x0e06…0e26 at0009 = ╱37╱7╱ // 0xe0f @0x9
0x0e06…0e26 at000a = ╱31╱1╱ // 0xe10 @0xa
0x0e06…0e26 at000b = ╱32╱2╱ // 0xe11 @0xb
0x0e06…0e26 at000c = ╱3e╱>╱ // 0xe12 @0xc
0x0e06…0e26 at000d = ╱31╱1╱ // 0xe13 @0xd
0x0e06…0e26 at000e = ╱39╱9╱ // 0xe14 @0xe
0x0e06…0e26 at000f = ╱2e╱.╱ // 0xe15 @0xf
0x0e06…0e26 at0010 = ╱20╱…╱ // 0xe16 @0x10
0x0e06…0e26 at0011 = ╱50╱P╱ // 0xe17 @0x11
0x0e06…0e26 at0012 = ╱72╱r╱ // 0xe18 @0x12
0x0e06…0e26 at0013 = ╱69╱i╱ // 0xe19 @0x13
0x0e06…0e26 at0014 = ╱76╱v╱ // 0xe1a @0x14
0x0e06…0e26 at0015 = ╱61╱a╱ // 0xe1b @0x15
0x0e06…0e26 at0016 = ╱74╱t╱ // 0xe1c @0x16
0x0e06…0e26 at0017 = ╱66╱f╱ // 0xe1d @0x17
0x0e06…0e26 at0018 = ╱6f╱o╱ // 0xe1e @0x18
0x0e06…0e26 at0019 = ╱72╱r╱ // 0xe1f @0x19
0x0e06…0e26 at001a = ╱62╱b╱ // 0xe20 @0x1a
0x0e06…0e26 at001b = ╱72╱r╱ // 0xe21 @0x1b
0x0e06…0e26 at001c = ╱75╱u╱ // 0xe22 @0x1c
0x0e06…0e26 at001d = ╱67╱g╱ // 0xe23 @0x1d
0x0e06…0e26 at001e = ╱22╱"╱ // 0xe24 @0x1e
0x0e06…0e26 at001f = EOL // 0xe25 @0x1f
0x0e06…0e26 }
0x0e26…0e43 a431 01230 PRINT "<SC2714>Kontogrupper:"
0x0e26…0e43 LineComal80 {
0x0e26…0e43 ptr = 0xa431 // 0xe26 @0x0
0x0e26…0e43 lno = 0x04ce // 0xe28 @0x2
0x0e26…0e43 at0004 = ╱92╱ PRINT ╱ // 0xe2a @0x4
0x0e26…0e43 at0005 = ╱22╱"╱ // 0xe2b @0x5
0x0e26…0e43 at0006 = ╱3c╱<╱ // 0xe2c @0x6
0x0e26…0e43 at0007 = ╱53╱S╱ // 0xe2d @0x7
0x0e26…0e43 at0008 = ╱43╱C╱ // 0xe2e @0x8
0x0e26…0e43 at0009 = ╱32╱2╱ // 0xe2f @0x9
0x0e26…0e43 at000a = ╱37╱7╱ // 0xe30 @0xa
0x0e26…0e43 at000b = ╱31╱1╱ // 0xe31 @0xb
0x0e26…0e43 at000c = ╱34╱4╱ // 0xe32 @0xc
0x0e26…0e43 at000d = ╱3e╱>╱ // 0xe33 @0xd
0x0e26…0e43 at000e = ╱4b╱K╱ // 0xe34 @0xe
0x0e26…0e43 at000f = ╱6f╱o╱ // 0xe35 @0xf
0x0e26…0e43 at0010 = ╱6e╱n╱ // 0xe36 @0x10
0x0e26…0e43 at0011 = ╱74╱t╱ // 0xe37 @0x11
0x0e26…0e43 at0012 = ╱6f╱o╱ // 0xe38 @0x12
0x0e26…0e43 at0013 = ╱67╱g╱ // 0xe39 @0x13
0x0e26…0e43 at0014 = ╱72╱r╱ // 0xe3a @0x14
0x0e26…0e43 at0015 = ╱75╱u╱ // 0xe3b @0x15
0x0e26…0e43 at0016 = ╱70╱p╱ // 0xe3c @0x16
0x0e26…0e43 at0017 = ╱70╱p╱ // 0xe3d @0x17
0x0e26…0e43 at0018 = ╱65╱e╱ // 0xe3e @0x18
0x0e26…0e43 at0019 = ╱72╱r╱ // 0xe3f @0x19
0x0e26…0e43 at001a = ╱3a╱:╱ // 0xe40 @0x1a
0x0e26…0e43 at001b = ╱22╱"╱ // 0xe41 @0x1b
0x0e26…0e43 at001c = EOL // 0xe42 @0x1c
0x0e26…0e43 }
0x0e43…0e60 a44e 01240 PRINT "<SC2715>20.…Oms{tning"
0x0e43…0e60 LineComal80 {
0x0e43…0e60 ptr = 0xa44e // 0xe43 @0x0
0x0e43…0e60 lno = 0x04d8 // 0xe45 @0x2
0x0e43…0e60 at0004 = ╱92╱ PRINT ╱ // 0xe47 @0x4
0x0e43…0e60 at0005 = ╱22╱"╱ // 0xe48 @0x5
0x0e43…0e60 at0006 = ╱3c╱<╱ // 0xe49 @0x6
0x0e43…0e60 at0007 = ╱53╱S╱ // 0xe4a @0x7
0x0e43…0e60 at0008 = ╱43╱C╱ // 0xe4b @0x8
0x0e43…0e60 at0009 = ╱32╱2╱ // 0xe4c @0x9
0x0e43…0e60 at000a = ╱37╱7╱ // 0xe4d @0xa
0x0e43…0e60 at000b = ╱31╱1╱ // 0xe4e @0xb
0x0e43…0e60 at000c = ╱35╱5╱ // 0xe4f @0xc
0x0e43…0e60 at000d = ╱3e╱>╱ // 0xe50 @0xd
0x0e43…0e60 at000e = ╱32╱2╱ // 0xe51 @0xe
0x0e43…0e60 at000f = ╱30╱0╱ // 0xe52 @0xf
0x0e43…0e60 at0010 = ╱2e╱.╱ // 0xe53 @0x10
0x0e43…0e60 at0011 = ╱20╱…╱ // 0xe54 @0x11
0x0e43…0e60 at0012 = ╱4f╱O╱ // 0xe55 @0x12
0x0e43…0e60 at0013 = ╱6d╱m╱ // 0xe56 @0x13
0x0e43…0e60 at0014 = ╱73╱s╱ // 0xe57 @0x14
0x0e43…0e60 at0015 = ╱7b╱{╱ // 0xe58 @0x15
0x0e43…0e60 at0016 = ╱74╱t╱ // 0xe59 @0x16
0x0e43…0e60 at0017 = ╱6e╱n╱ // 0xe5a @0x17
0x0e43…0e60 at0018 = ╱69╱i╱ // 0xe5b @0x18
0x0e43…0e60 at0019 = ╱6e╱n╱ // 0xe5c @0x19
0x0e43…0e60 at001a = ╱67╱g╱ // 0xe5d @0x1a
0x0e43…0e60 at001b = ╱22╱"╱ // 0xe5e @0x1b
0x0e43…0e60 at001c = EOL // 0xe5f @0x1c
0x0e43…0e60 }
0x0e60…0e89 a477 01250 PRINT "<SC2716>21.…Variable…omkostninger"
0x0e60…0e89 LineComal80 {
0x0e60…0e89 ptr = 0xa477 // 0xe60 @0x0
0x0e60…0e89 lno = 0x04e2 // 0xe62 @0x2
0x0e60…0e89 at0004 = ╱92╱ PRINT ╱ // 0xe64 @0x4
0x0e60…0e89 at0005 = ╱22╱"╱ // 0xe65 @0x5
0x0e60…0e89 at0006 = ╱3c╱<╱ // 0xe66 @0x6
0x0e60…0e89 at0007 = ╱53╱S╱ // 0xe67 @0x7
0x0e60…0e89 at0008 = ╱43╱C╱ // 0xe68 @0x8
0x0e60…0e89 at0009 = ╱32╱2╱ // 0xe69 @0x9
0x0e60…0e89 at000a = ╱37╱7╱ // 0xe6a @0xa
0x0e60…0e89 at000b = ╱31╱1╱ // 0xe6b @0xb
0x0e60…0e89 at000c = ╱36╱6╱ // 0xe6c @0xc
0x0e60…0e89 at000d = ╱3e╱>╱ // 0xe6d @0xd
0x0e60…0e89 at000e = ╱32╱2╱ // 0xe6e @0xe
0x0e60…0e89 at000f = ╱31╱1╱ // 0xe6f @0xf
0x0e60…0e89 at0010 = ╱2e╱.╱ // 0xe70 @0x10
0x0e60…0e89 at0011 = ╱20╱…╱ // 0xe71 @0x11
0x0e60…0e89 at0012 = ╱56╱V╱ // 0xe72 @0x12
0x0e60…0e89 at0013 = ╱61╱a╱ // 0xe73 @0x13
0x0e60…0e89 at0014 = ╱72╱r╱ // 0xe74 @0x14
0x0e60…0e89 at0015 = ╱69╱i╱ // 0xe75 @0x15
0x0e60…0e89 at0016 = ╱61╱a╱ // 0xe76 @0x16
0x0e60…0e89 at0017 = ╱62╱b╱ // 0xe77 @0x17
0x0e60…0e89 at0018 = ╱6c╱l╱ // 0xe78 @0x18
0x0e60…0e89 at0019 = ╱65╱e╱ // 0xe79 @0x19
0x0e60…0e89 at001a = ╱20╱…╱ // 0xe7a @0x1a
0x0e60…0e89 at001b = ╱6f╱o╱ // 0xe7b @0x1b
0x0e60…0e89 at001c = ╱6d╱m╱ // 0xe7c @0x1c
0x0e60…0e89 at001d = ╱6b╱k╱ // 0xe7d @0x1d
0x0e60…0e89 at001e = ╱6f╱o╱ // 0xe7e @0x1e
0x0e60…0e89 at001f = ╱73╱s╱ // 0xe7f @0x1f
0x0e60…0e89 at0020 = ╱74╱t╱ // 0xe80 @0x20
0x0e60…0e89 at0021 = ╱6e╱n╱ // 0xe81 @0x21
0x0e60…0e89 at0022 = ╱69╱i╱ // 0xe82 @0x22
0x0e60…0e89 at0023 = ╱6e╱n╱ // 0xe83 @0x23
0x0e60…0e89 at0024 = ╱67╱g╱ // 0xe84 @0x24
0x0e60…0e89 at0025 = ╱65╱e╱ // 0xe85 @0x25
0x0e60…0e89 at0026 = ╱72╱r╱ // 0xe86 @0x26
0x0e60…0e89 at0027 = ╱22╱"╱ // 0xe87 @0x27
0x0e60…0e89 at0028 = EOL // 0xe88 @0x28
0x0e60…0e89 }
0x0e89…0eaf a49d 01260 PRINT "<SC2717>22.…Andre…omkostninger"
0x0e89…0eaf LineComal80 {
0x0e89…0eaf ptr = 0xa49d // 0xe89 @0x0
0x0e89…0eaf lno = 0x04ec // 0xe8b @0x2
0x0e89…0eaf at0004 = ╱92╱ PRINT ╱ // 0xe8d @0x4
0x0e89…0eaf at0005 = ╱22╱"╱ // 0xe8e @0x5
0x0e89…0eaf at0006 = ╱3c╱<╱ // 0xe8f @0x6
0x0e89…0eaf at0007 = ╱53╱S╱ // 0xe90 @0x7
0x0e89…0eaf at0008 = ╱43╱C╱ // 0xe91 @0x8
0x0e89…0eaf at0009 = ╱32╱2╱ // 0xe92 @0x9
0x0e89…0eaf at000a = ╱37╱7╱ // 0xe93 @0xa
0x0e89…0eaf at000b = ╱31╱1╱ // 0xe94 @0xb
0x0e89…0eaf at000c = ╱37╱7╱ // 0xe95 @0xc
0x0e89…0eaf at000d = ╱3e╱>╱ // 0xe96 @0xd
0x0e89…0eaf at000e = ╱32╱2╱ // 0xe97 @0xe
0x0e89…0eaf at000f = ╱32╱2╱ // 0xe98 @0xf
0x0e89…0eaf at0010 = ╱2e╱.╱ // 0xe99 @0x10
0x0e89…0eaf at0011 = ╱20╱…╱ // 0xe9a @0x11
0x0e89…0eaf at0012 = ╱41╱A╱ // 0xe9b @0x12
0x0e89…0eaf at0013 = ╱6e╱n╱ // 0xe9c @0x13
0x0e89…0eaf at0014 = ╱64╱d╱ // 0xe9d @0x14
0x0e89…0eaf at0015 = ╱72╱r╱ // 0xe9e @0x15
0x0e89…0eaf at0016 = ╱65╱e╱ // 0xe9f @0x16
0x0e89…0eaf at0017 = ╱20╱…╱ // 0xea0 @0x17
0x0e89…0eaf at0018 = ╱6f╱o╱ // 0xea1 @0x18
0x0e89…0eaf at0019 = ╱6d╱m╱ // 0xea2 @0x19
0x0e89…0eaf at001a = ╱6b╱k╱ // 0xea3 @0x1a
0x0e89…0eaf at001b = ╱6f╱o╱ // 0xea4 @0x1b
0x0e89…0eaf at001c = ╱73╱s╱ // 0xea5 @0x1c
0x0e89…0eaf at001d = ╱74╱t╱ // 0xea6 @0x1d
0x0e89…0eaf at001e = ╱6e╱n╱ // 0xea7 @0x1e
0x0e89…0eaf at001f = ╱69╱i╱ // 0xea8 @0x1f
0x0e89…0eaf at0020 = ╱6e╱n╱ // 0xea9 @0x20
0x0e89…0eaf at0021 = ╱67╱g╱ // 0xeaa @0x21
0x0e89…0eaf at0022 = ╱65╱e╱ // 0xeab @0x22
0x0e89…0eaf at0023 = ╱72╱r╱ // 0xeac @0x23
0x0e89…0eaf at0024 = ╱22╱"╱ // 0xead @0x24
0x0e89…0eaf at0025 = EOL // 0xeae @0x25
0x0e89…0eaf }
0x0eaf…0ed9 a4c7 01270 PRINT "<SC2718>23.…Personale…omkostninger"
0x0eaf…0ed9 LineComal80 {
0x0eaf…0ed9 ptr = 0xa4c7 // 0xeaf @0x0
0x0eaf…0ed9 lno = 0x04f6 // 0xeb1 @0x2
0x0eaf…0ed9 at0004 = ╱92╱ PRINT ╱ // 0xeb3 @0x4
0x0eaf…0ed9 at0005 = ╱22╱"╱ // 0xeb4 @0x5
0x0eaf…0ed9 at0006 = ╱3c╱<╱ // 0xeb5 @0x6
0x0eaf…0ed9 at0007 = ╱53╱S╱ // 0xeb6 @0x7
0x0eaf…0ed9 at0008 = ╱43╱C╱ // 0xeb7 @0x8
0x0eaf…0ed9 at0009 = ╱32╱2╱ // 0xeb8 @0x9
0x0eaf…0ed9 at000a = ╱37╱7╱ // 0xeb9 @0xa
0x0eaf…0ed9 at000b = ╱31╱1╱ // 0xeba @0xb
0x0eaf…0ed9 at000c = ╱38╱8╱ // 0xebb @0xc
0x0eaf…0ed9 at000d = ╱3e╱>╱ // 0xebc @0xd
0x0eaf…0ed9 at000e = ╱32╱2╱ // 0xebd @0xe
0x0eaf…0ed9 at000f = ╱33╱3╱ // 0xebe @0xf
0x0eaf…0ed9 at0010 = ╱2e╱.╱ // 0xebf @0x10
0x0eaf…0ed9 at0011 = ╱20╱…╱ // 0xec0 @0x11
0x0eaf…0ed9 at0012 = ╱50╱P╱ // 0xec1 @0x12
0x0eaf…0ed9 at0013 = ╱65╱e╱ // 0xec2 @0x13
0x0eaf…0ed9 at0014 = ╱72╱r╱ // 0xec3 @0x14
0x0eaf…0ed9 at0015 = ╱73╱s╱ // 0xec4 @0x15
0x0eaf…0ed9 at0016 = ╱6f╱o╱ // 0xec5 @0x16
0x0eaf…0ed9 at0017 = ╱6e╱n╱ // 0xec6 @0x17
0x0eaf…0ed9 at0018 = ╱61╱a╱ // 0xec7 @0x18
0x0eaf…0ed9 at0019 = ╱6c╱l╱ // 0xec8 @0x19
0x0eaf…0ed9 at001a = ╱65╱e╱ // 0xec9 @0x1a
0x0eaf…0ed9 at001b = ╱20╱…╱ // 0xeca @0x1b
0x0eaf…0ed9 at001c = ╱6f╱o╱ // 0xecb @0x1c
0x0eaf…0ed9 at001d = ╱6d╱m╱ // 0xecc @0x1d
0x0eaf…0ed9 at001e = ╱6b╱k╱ // 0xecd @0x1e
0x0eaf…0ed9 at001f = ╱6f╱o╱ // 0xece @0x1f
0x0eaf…0ed9 at0020 = ╱73╱s╱ // 0xecf @0x20
0x0eaf…0ed9 at0021 = ╱74╱t╱ // 0xed0 @0x21
0x0eaf…0ed9 at0022 = ╱6e╱n╱ // 0xed1 @0x22
0x0eaf…0ed9 at0023 = ╱69╱i╱ // 0xed2 @0x23
0x0eaf…0ed9 at0024 = ╱6e╱n╱ // 0xed3 @0x24
0x0eaf…0ed9 at0025 = ╱67╱g╱ // 0xed4 @0x25
0x0eaf…0ed9 at0026 = ╱65╱e╱ // 0xed5 @0x26
0x0eaf…0ed9 at0027 = ╱72╱r╱ // 0xed6 @0x27
0x0eaf…0ed9 at0028 = ╱22╱"╱ // 0xed7 @0x28
0x0eaf…0ed9 at0029 = EOL // 0xed8 @0x29
0x0eaf…0ed9 }
0x0ed9…0efa a4e8 01280 PRINT "<SC2719>24.…Afskrivninger"
0x0ed9…0efa LineComal80 {
0x0ed9…0efa ptr = 0xa4e8 // 0xed9 @0x0
0x0ed9…0efa lno = 0x0500 // 0xedb @0x2
0x0ed9…0efa at0004 = ╱92╱ PRINT ╱ // 0xedd @0x4
0x0ed9…0efa at0005 = ╱22╱"╱ // 0xede @0x5
0x0ed9…0efa at0006 = ╱3c╱<╱ // 0xedf @0x6
0x0ed9…0efa at0007 = ╱53╱S╱ // 0xee0 @0x7
0x0ed9…0efa at0008 = ╱43╱C╱ // 0xee1 @0x8
0x0ed9…0efa at0009 = ╱32╱2╱ // 0xee2 @0x9
0x0ed9…0efa at000a = ╱37╱7╱ // 0xee3 @0xa
0x0ed9…0efa at000b = ╱31╱1╱ // 0xee4 @0xb
0x0ed9…0efa at000c = ╱39╱9╱ // 0xee5 @0xc
0x0ed9…0efa at000d = ╱3e╱>╱ // 0xee6 @0xd
0x0ed9…0efa at000e = ╱32╱2╱ // 0xee7 @0xe
0x0ed9…0efa at000f = ╱34╱4╱ // 0xee8 @0xf
0x0ed9…0efa at0010 = ╱2e╱.╱ // 0xee9 @0x10
0x0ed9…0efa at0011 = ╱20╱…╱ // 0xeea @0x11
0x0ed9…0efa at0012 = ╱41╱A╱ // 0xeeb @0x12
0x0ed9…0efa at0013 = ╱66╱f╱ // 0xeec @0x13
0x0ed9…0efa at0014 = ╱73╱s╱ // 0xeed @0x14
0x0ed9…0efa at0015 = ╱6b╱k╱ // 0xeee @0x15
0x0ed9…0efa at0016 = ╱72╱r╱ // 0xeef @0x16
0x0ed9…0efa at0017 = ╱69╱i╱ // 0xef0 @0x17
0x0ed9…0efa at0018 = ╱76╱v╱ // 0xef1 @0x18
0x0ed9…0efa at0019 = ╱6e╱n╱ // 0xef2 @0x19
0x0ed9…0efa at001a = ╱69╱i╱ // 0xef3 @0x1a
0x0ed9…0efa at001b = ╱6e╱n╱ // 0xef4 @0x1b
0x0ed9…0efa at001c = ╱67╱g╱ // 0xef5 @0x1c
0x0ed9…0efa at001d = ╱65╱e╱ // 0xef6 @0x1d
0x0ed9…0efa at001e = ╱72╱r╱ // 0xef7 @0x1e
0x0ed9…0efa at001f = ╱22╱"╱ // 0xef8 @0x1f
0x0ed9…0efa at0020 = EOL // 0xef9 @0x20
0x0ed9…0efa }
0x0efa…0f24 a512 01290 PRINT "<SC2720>25.…Finansieringsindt{gter"
0x0efa…0f24 LineComal80 {
0x0efa…0f24 ptr = 0xa512 // 0xefa @0x0
0x0efa…0f24 lno = 0x050a // 0xefc @0x2
0x0efa…0f24 at0004 = ╱92╱ PRINT ╱ // 0xefe @0x4
0x0efa…0f24 at0005 = ╱22╱"╱ // 0xeff @0x5
0x0efa…0f24 at0006 = ╱3c╱<╱ // 0xf00 @0x6
0x0efa…0f24 at0007 = ╱53╱S╱ // 0xf01 @0x7
0x0efa…0f24 at0008 = ╱43╱C╱ // 0xf02 @0x8
0x0efa…0f24 at0009 = ╱32╱2╱ // 0xf03 @0x9
0x0efa…0f24 at000a = ╱37╱7╱ // 0xf04 @0xa
0x0efa…0f24 at000b = ╱32╱2╱ // 0xf05 @0xb
0x0efa…0f24 at000c = ╱30╱0╱ // 0xf06 @0xc
0x0efa…0f24 at000d = ╱3e╱>╱ // 0xf07 @0xd
0x0efa…0f24 at000e = ╱32╱2╱ // 0xf08 @0xe
0x0efa…0f24 at000f = ╱35╱5╱ // 0xf09 @0xf
0x0efa…0f24 at0010 = ╱2e╱.╱ // 0xf0a @0x10
0x0efa…0f24 at0011 = ╱20╱…╱ // 0xf0b @0x11
0x0efa…0f24 at0012 = ╱46╱F╱ // 0xf0c @0x12
0x0efa…0f24 at0013 = ╱69╱i╱ // 0xf0d @0x13
0x0efa…0f24 at0014 = ╱6e╱n╱ // 0xf0e @0x14
0x0efa…0f24 at0015 = ╱61╱a╱ // 0xf0f @0x15
0x0efa…0f24 at0016 = ╱6e╱n╱ // 0xf10 @0x16
0x0efa…0f24 at0017 = ╱73╱s╱ // 0xf11 @0x17
0x0efa…0f24 at0018 = ╱69╱i╱ // 0xf12 @0x18
0x0efa…0f24 at0019 = ╱65╱e╱ // 0xf13 @0x19
0x0efa…0f24 at001a = ╱72╱r╱ // 0xf14 @0x1a
0x0efa…0f24 at001b = ╱69╱i╱ // 0xf15 @0x1b
0x0efa…0f24 at001c = ╱6e╱n╱ // 0xf16 @0x1c
0x0efa…0f24 at001d = ╱67╱g╱ // 0xf17 @0x1d
0x0efa…0f24 at001e = ╱73╱s╱ // 0xf18 @0x1e
0x0efa…0f24 at001f = ╱69╱i╱ // 0xf19 @0x1f
0x0efa…0f24 at0020 = ╱6e╱n╱ // 0xf1a @0x20
0x0efa…0f24 at0021 = ╱64╱d╱ // 0xf1b @0x21
0x0efa…0f24 at0022 = ╱74╱t╱ // 0xf1c @0x22
0x0efa…0f24 at0023 = ╱7b╱{╱ // 0xf1d @0x23
0x0efa…0f24 at0024 = ╱67╱g╱ // 0xf1e @0x24
0x0efa…0f24 at0025 = ╱74╱t╱ // 0xf1f @0x25
0x0efa…0f24 at0026 = ╱65╱e╱ // 0xf20 @0x26
0x0efa…0f24 at0027 = ╱72╱r╱ // 0xf21 @0x27
0x0efa…0f24 at0028 = ╱22╱"╱ // 0xf22 @0x28
0x0efa…0f24 at0029 = EOL // 0xf23 @0x29
0x0efa…0f24 }
0x0f24…0f49 a537 01300 PRINT "<SC2721>26.…Finansieringsomk."
0x0f24…0f49 LineComal80 {
0x0f24…0f49 ptr = 0xa537 // 0xf24 @0x0
0x0f24…0f49 lno = 0x0514 // 0xf26 @0x2
0x0f24…0f49 at0004 = ╱92╱ PRINT ╱ // 0xf28 @0x4
0x0f24…0f49 at0005 = ╱22╱"╱ // 0xf29 @0x5
0x0f24…0f49 at0006 = ╱3c╱<╱ // 0xf2a @0x6
0x0f24…0f49 at0007 = ╱53╱S╱ // 0xf2b @0x7
0x0f24…0f49 at0008 = ╱43╱C╱ // 0xf2c @0x8
0x0f24…0f49 at0009 = ╱32╱2╱ // 0xf2d @0x9
0x0f24…0f49 at000a = ╱37╱7╱ // 0xf2e @0xa
0x0f24…0f49 at000b = ╱32╱2╱ // 0xf2f @0xb
0x0f24…0f49 at000c = ╱31╱1╱ // 0xf30 @0xc
0x0f24…0f49 at000d = ╱3e╱>╱ // 0xf31 @0xd
0x0f24…0f49 at000e = ╱32╱2╱ // 0xf32 @0xe
0x0f24…0f49 at000f = ╱36╱6╱ // 0xf33 @0xf
0x0f24…0f49 at0010 = ╱2e╱.╱ // 0xf34 @0x10
0x0f24…0f49 at0011 = ╱20╱…╱ // 0xf35 @0x11
0x0f24…0f49 at0012 = ╱46╱F╱ // 0xf36 @0x12
0x0f24…0f49 at0013 = ╱69╱i╱ // 0xf37 @0x13
0x0f24…0f49 at0014 = ╱6e╱n╱ // 0xf38 @0x14
0x0f24…0f49 at0015 = ╱61╱a╱ // 0xf39 @0x15
0x0f24…0f49 at0016 = ╱6e╱n╱ // 0xf3a @0x16
0x0f24…0f49 at0017 = ╱73╱s╱ // 0xf3b @0x17
0x0f24…0f49 at0018 = ╱69╱i╱ // 0xf3c @0x18
0x0f24…0f49 at0019 = ╱65╱e╱ // 0xf3d @0x19
0x0f24…0f49 at001a = ╱72╱r╱ // 0xf3e @0x1a
0x0f24…0f49 at001b = ╱69╱i╱ // 0xf3f @0x1b
0x0f24…0f49 at001c = ╱6e╱n╱ // 0xf40 @0x1c
0x0f24…0f49 at001d = ╱67╱g╱ // 0xf41 @0x1d
0x0f24…0f49 at001e = ╱73╱s╱ // 0xf42 @0x1e
0x0f24…0f49 at001f = ╱6f╱o╱ // 0xf43 @0x1f
0x0f24…0f49 at0020 = ╱6d╱m╱ // 0xf44 @0x20
0x0f24…0f49 at0021 = ╱6b╱k╱ // 0xf45 @0x21
0x0f24…0f49 at0022 = ╱2e╱.╱ // 0xf46 @0x22
0x0f24…0f49 at0023 = ╱22╱"╱ // 0xf47 @0x23
0x0f24…0f49 at0024 = EOL // 0xf48 @0x24
0x0f24…0f49 }
0x0f49…0f72 a560 01310 PRINT "<SC5412>27.…Ekstraordin{re…poster"
0x0f49…0f72 LineComal80 {
0x0f49…0f72 ptr = 0xa560 // 0xf49 @0x0
0x0f49…0f72 lno = 0x051e // 0xf4b @0x2
0x0f49…0f72 at0004 = ╱92╱ PRINT ╱ // 0xf4d @0x4
0x0f49…0f72 at0005 = ╱22╱"╱ // 0xf4e @0x5
0x0f49…0f72 at0006 = ╱3c╱<╱ // 0xf4f @0x6
0x0f49…0f72 at0007 = ╱53╱S╱ // 0xf50 @0x7
0x0f49…0f72 at0008 = ╱43╱C╱ // 0xf51 @0x8
0x0f49…0f72 at0009 = ╱35╱5╱ // 0xf52 @0x9
0x0f49…0f72 at000a = ╱34╱4╱ // 0xf53 @0xa
0x0f49…0f72 at000b = ╱31╱1╱ // 0xf54 @0xb
0x0f49…0f72 at000c = ╱32╱2╱ // 0xf55 @0xc
0x0f49…0f72 at000d = ╱3e╱>╱ // 0xf56 @0xd
0x0f49…0f72 at000e = ╱32╱2╱ // 0xf57 @0xe
0x0f49…0f72 at000f = ╱37╱7╱ // 0xf58 @0xf
0x0f49…0f72 at0010 = ╱2e╱.╱ // 0xf59 @0x10
0x0f49…0f72 at0011 = ╱20╱…╱ // 0xf5a @0x11
0x0f49…0f72 at0012 = ╱45╱E╱ // 0xf5b @0x12
0x0f49…0f72 at0013 = ╱6b╱k╱ // 0xf5c @0x13
0x0f49…0f72 at0014 = ╱73╱s╱ // 0xf5d @0x14
0x0f49…0f72 at0015 = ╱74╱t╱ // 0xf5e @0x15
0x0f49…0f72 at0016 = ╱72╱r╱ // 0xf5f @0x16
0x0f49…0f72 at0017 = ╱61╱a╱ // 0xf60 @0x17
0x0f49…0f72 at0018 = ╱6f╱o╱ // 0xf61 @0x18
0x0f49…0f72 at0019 = ╱72╱r╱ // 0xf62 @0x19
0x0f49…0f72 at001a = ╱64╱d╱ // 0xf63 @0x1a
0x0f49…0f72 at001b = ╱69╱i╱ // 0xf64 @0x1b
0x0f49…0f72 at001c = ╱6e╱n╱ // 0xf65 @0x1c
0x0f49…0f72 at001d = ╱7b╱{╱ // 0xf66 @0x1d
0x0f49…0f72 at001e = ╱72╱r╱ // 0xf67 @0x1e
0x0f49…0f72 at001f = ╱65╱e╱ // 0xf68 @0x1f
0x0f49…0f72 at0020 = ╱20╱…╱ // 0xf69 @0x20
0x0f49…0f72 at0021 = ╱70╱p╱ // 0xf6a @0x21
0x0f49…0f72 at0022 = ╱6f╱o╱ // 0xf6b @0x22
0x0f49…0f72 at0023 = ╱73╱s╱ // 0xf6c @0x23
0x0f49…0f72 at0024 = ╱74╱t╱ // 0xf6d @0x24
0x0f49…0f72 at0025 = ╱65╱e╱ // 0xf6e @0x25
0x0f49…0f72 at0026 = ╱72╱r╱ // 0xf6f @0x26
0x0f49…0f72 at0027 = ╱22╱"╱ // 0xf70 @0x27
0x0f49…0f72 at0028 = EOL // 0xf71 @0x28
0x0f49…0f72 }
0x0f72…0f8f a57d 01320 PRINT "<SC5411>Kontogrupper:"
0x0f72…0f8f LineComal80 {
0x0f72…0f8f ptr = 0xa57d // 0xf72 @0x0
0x0f72…0f8f lno = 0x0528 // 0xf74 @0x2
0x0f72…0f8f at0004 = ╱92╱ PRINT ╱ // 0xf76 @0x4
0x0f72…0f8f at0005 = ╱22╱"╱ // 0xf77 @0x5
0x0f72…0f8f at0006 = ╱3c╱<╱ // 0xf78 @0x6
0x0f72…0f8f at0007 = ╱53╱S╱ // 0xf79 @0x7
0x0f72…0f8f at0008 = ╱43╱C╱ // 0xf7a @0x8
0x0f72…0f8f at0009 = ╱35╱5╱ // 0xf7b @0x9
0x0f72…0f8f at000a = ╱34╱4╱ // 0xf7c @0xa
0x0f72…0f8f at000b = ╱31╱1╱ // 0xf7d @0xb
0x0f72…0f8f at000c = ╱31╱1╱ // 0xf7e @0xc
0x0f72…0f8f at000d = ╱3e╱>╱ // 0xf7f @0xd
0x0f72…0f8f at000e = ╱4b╱K╱ // 0xf80 @0xe
0x0f72…0f8f at000f = ╱6f╱o╱ // 0xf81 @0xf
0x0f72…0f8f at0010 = ╱6e╱n╱ // 0xf82 @0x10
0x0f72…0f8f at0011 = ╱74╱t╱ // 0xf83 @0x11
0x0f72…0f8f at0012 = ╱6f╱o╱ // 0xf84 @0x12
0x0f72…0f8f at0013 = ╱67╱g╱ // 0xf85 @0x13
0x0f72…0f8f at0014 = ╱72╱r╱ // 0xf86 @0x14
0x0f72…0f8f at0015 = ╱75╱u╱ // 0xf87 @0x15
0x0f72…0f8f at0016 = ╱70╱p╱ // 0xf88 @0x16
0x0f72…0f8f at0017 = ╱70╱p╱ // 0xf89 @0x17
0x0f72…0f8f at0018 = ╱65╱e╱ // 0xf8a @0x18
0x0f72…0f8f at0019 = ╱72╱r╱ // 0xf8b @0x19
0x0f72…0f8f at001a = ╱3a╱:╱ // 0xf8c @0x1a
0x0f72…0f8f at001b = ╱22╱"╱ // 0xf8d @0x1b
0x0f72…0f8f at001c = EOL // 0xf8e @0x1c
0x0f72…0f8f }
0x0f8f…0fb0 a59e 01330 PRINT "<SC5413>28.…Anl{gsaktiver"
0x0f8f…0fb0 LineComal80 {
0x0f8f…0fb0 ptr = 0xa59e // 0xf8f @0x0
0x0f8f…0fb0 lno = 0x0532 // 0xf91 @0x2
0x0f8f…0fb0 at0004 = ╱92╱ PRINT ╱ // 0xf93 @0x4
0x0f8f…0fb0 at0005 = ╱22╱"╱ // 0xf94 @0x5
0x0f8f…0fb0 at0006 = ╱3c╱<╱ // 0xf95 @0x6
0x0f8f…0fb0 at0007 = ╱53╱S╱ // 0xf96 @0x7
0x0f8f…0fb0 at0008 = ╱43╱C╱ // 0xf97 @0x8
0x0f8f…0fb0 at0009 = ╱35╱5╱ // 0xf98 @0x9
0x0f8f…0fb0 at000a = ╱34╱4╱ // 0xf99 @0xa
0x0f8f…0fb0 at000b = ╱31╱1╱ // 0xf9a @0xb
0x0f8f…0fb0 at000c = ╱33╱3╱ // 0xf9b @0xc
0x0f8f…0fb0 at000d = ╱3e╱>╱ // 0xf9c @0xd
0x0f8f…0fb0 at000e = ╱32╱2╱ // 0xf9d @0xe
0x0f8f…0fb0 at000f = ╱38╱8╱ // 0xf9e @0xf
0x0f8f…0fb0 at0010 = ╱2e╱.╱ // 0xf9f @0x10
0x0f8f…0fb0 at0011 = ╱20╱…╱ // 0xfa0 @0x11
0x0f8f…0fb0 at0012 = ╱41╱A╱ // 0xfa1 @0x12
0x0f8f…0fb0 at0013 = ╱6e╱n╱ // 0xfa2 @0x13
0x0f8f…0fb0 at0014 = ╱6c╱l╱ // 0xfa3 @0x14
0x0f8f…0fb0 at0015 = ╱7b╱{╱ // 0xfa4 @0x15
0x0f8f…0fb0 at0016 = ╱67╱g╱ // 0xfa5 @0x16
0x0f8f…0fb0 at0017 = ╱73╱s╱ // 0xfa6 @0x17
0x0f8f…0fb0 at0018 = ╱61╱a╱ // 0xfa7 @0x18
0x0f8f…0fb0 at0019 = ╱6b╱k╱ // 0xfa8 @0x19
0x0f8f…0fb0 at001a = ╱74╱t╱ // 0xfa9 @0x1a
0x0f8f…0fb0 at001b = ╱69╱i╱ // 0xfaa @0x1b
0x0f8f…0fb0 at001c = ╱76╱v╱ // 0xfab @0x1c
0x0f8f…0fb0 at001d = ╱65╱e╱ // 0xfac @0x1d
0x0f8f…0fb0 at001e = ╱72╱r╱ // 0xfad @0x1e
0x0f8f…0fb0 at001f = ╱22╱"╱ // 0xfae @0x1f
0x0f8f…0fb0 at0020 = EOL // 0xfaf @0x20
0x0f8f…0fb0 }
0x0fb0…0fd4 a5c2 01340 PRINT "<SC5414>29.…Varebeholdninger"
0x0fb0…0fd4 LineComal80 {
0x0fb0…0fd4 ptr = 0xa5c2 // 0xfb0 @0x0
0x0fb0…0fd4 lno = 0x053c // 0xfb2 @0x2
0x0fb0…0fd4 at0004 = ╱92╱ PRINT ╱ // 0xfb4 @0x4
0x0fb0…0fd4 at0005 = ╱22╱"╱ // 0xfb5 @0x5
0x0fb0…0fd4 at0006 = ╱3c╱<╱ // 0xfb6 @0x6
0x0fb0…0fd4 at0007 = ╱53╱S╱ // 0xfb7 @0x7
0x0fb0…0fd4 at0008 = ╱43╱C╱ // 0xfb8 @0x8
0x0fb0…0fd4 at0009 = ╱35╱5╱ // 0xfb9 @0x9
0x0fb0…0fd4 at000a = ╱34╱4╱ // 0xfba @0xa
0x0fb0…0fd4 at000b = ╱31╱1╱ // 0xfbb @0xb
0x0fb0…0fd4 at000c = ╱34╱4╱ // 0xfbc @0xc
0x0fb0…0fd4 at000d = ╱3e╱>╱ // 0xfbd @0xd
0x0fb0…0fd4 at000e = ╱32╱2╱ // 0xfbe @0xe
0x0fb0…0fd4 at000f = ╱39╱9╱ // 0xfbf @0xf
0x0fb0…0fd4 at0010 = ╱2e╱.╱ // 0xfc0 @0x10
0x0fb0…0fd4 at0011 = ╱20╱…╱ // 0xfc1 @0x11
0x0fb0…0fd4 at0012 = ╱56╱V╱ // 0xfc2 @0x12
0x0fb0…0fd4 at0013 = ╱61╱a╱ // 0xfc3 @0x13
0x0fb0…0fd4 at0014 = ╱72╱r╱ // 0xfc4 @0x14
0x0fb0…0fd4 at0015 = ╱65╱e╱ // 0xfc5 @0x15
0x0fb0…0fd4 at0016 = ╱62╱b╱ // 0xfc6 @0x16
0x0fb0…0fd4 at0017 = ╱65╱e╱ // 0xfc7 @0x17
0x0fb0…0fd4 at0018 = ╱68╱h╱ // 0xfc8 @0x18
0x0fb0…0fd4 at0019 = ╱6f╱o╱ // 0xfc9 @0x19
0x0fb0…0fd4 at001a = ╱6c╱l╱ // 0xfca @0x1a
0x0fb0…0fd4 at001b = ╱64╱d╱ // 0xfcb @0x1b
0x0fb0…0fd4 at001c = ╱6e╱n╱ // 0xfcc @0x1c
0x0fb0…0fd4 at001d = ╱69╱i╱ // 0xfcd @0x1d
0x0fb0…0fd4 at001e = ╱6e╱n╱ // 0xfce @0x1e
0x0fb0…0fd4 at001f = ╱67╱g╱ // 0xfcf @0x1f
0x0fb0…0fd4 at0020 = ╱65╱e╱ // 0xfd0 @0x20
0x0fb0…0fd4 at0021 = ╱72╱r╱ // 0xfd1 @0x21
0x0fb0…0fd4 at0022 = ╱22╱"╱ // 0xfd2 @0x22
0x0fb0…0fd4 at0023 = EOL // 0xfd3 @0x23
0x0fb0…0fd4 }
0x0fd4…0ff7 a5e5 01350 PRINT "<SC5415>30.…Tilgodehavender"
0x0fd4…0ff7 LineComal80 {
0x0fd4…0ff7 ptr = 0xa5e5 // 0xfd4 @0x0
0x0fd4…0ff7 lno = 0x0546 // 0xfd6 @0x2
0x0fd4…0ff7 at0004 = ╱92╱ PRINT ╱ // 0xfd8 @0x4
0x0fd4…0ff7 at0005 = ╱22╱"╱ // 0xfd9 @0x5
0x0fd4…0ff7 at0006 = ╱3c╱<╱ // 0xfda @0x6
0x0fd4…0ff7 at0007 = ╱53╱S╱ // 0xfdb @0x7
0x0fd4…0ff7 at0008 = ╱43╱C╱ // 0xfdc @0x8
0x0fd4…0ff7 at0009 = ╱35╱5╱ // 0xfdd @0x9
0x0fd4…0ff7 at000a = ╱34╱4╱ // 0xfde @0xa
0x0fd4…0ff7 at000b = ╱31╱1╱ // 0xfdf @0xb
0x0fd4…0ff7 at000c = ╱35╱5╱ // 0xfe0 @0xc
0x0fd4…0ff7 at000d = ╱3e╱>╱ // 0xfe1 @0xd
0x0fd4…0ff7 at000e = ╱33╱3╱ // 0xfe2 @0xe
0x0fd4…0ff7 at000f = ╱30╱0╱ // 0xfe3 @0xf
0x0fd4…0ff7 at0010 = ╱2e╱.╱ // 0xfe4 @0x10
0x0fd4…0ff7 at0011 = ╱20╱…╱ // 0xfe5 @0x11
0x0fd4…0ff7 at0012 = ╱54╱T╱ // 0xfe6 @0x12
0x0fd4…0ff7 at0013 = ╱69╱i╱ // 0xfe7 @0x13
0x0fd4…0ff7 at0014 = ╱6c╱l╱ // 0xfe8 @0x14
0x0fd4…0ff7 at0015 = ╱67╱g╱ // 0xfe9 @0x15
0x0fd4…0ff7 at0016 = ╱6f╱o╱ // 0xfea @0x16
0x0fd4…0ff7 at0017 = ╱64╱d╱ // 0xfeb @0x17
0x0fd4…0ff7 at0018 = ╱65╱e╱ // 0xfec @0x18
0x0fd4…0ff7 at0019 = ╱68╱h╱ // 0xfed @0x19
0x0fd4…0ff7 at001a = ╱61╱a╱ // 0xfee @0x1a
0x0fd4…0ff7 at001b = ╱76╱v╱ // 0xfef @0x1b
0x0fd4…0ff7 at001c = ╱65╱e╱ // 0xff0 @0x1c
0x0fd4…0ff7 at001d = ╱6e╱n╱ // 0xff1 @0x1d
0x0fd4…0ff7 at001e = ╱64╱d╱ // 0xff2 @0x1e
0x0fd4…0ff7 at001f = ╱65╱e╱ // 0xff3 @0x1f
0x0fd4…0ff7 at0020 = ╱72╱r╱ // 0xff4 @0x20
0x0fd4…0ff7 at0021 = ╱22╱"╱ // 0xff5 @0x21
0x0fd4…0ff7 at0022 = EOL // 0xff6 @0x22
0x0fd4…0ff7 }
0x0ff7…1014 a602 01360 PRINT "<SC5416>31.…Debitorer"
0x0ff7…1014 LineComal80 {
0x0ff7…1014 ptr = 0xa602 // 0xff7 @0x0
0x0ff7…1014 lno = 0x0550 // 0xff9 @0x2
0x0ff7…1014 at0004 = ╱92╱ PRINT ╱ // 0xffb @0x4
0x0ff7…1014 at0005 = ╱22╱"╱ // 0xffc @0x5
0x0ff7…1014 at0006 = ╱3c╱<╱ // 0xffd @0x6
0x0ff7…1014 at0007 = ╱53╱S╱ // 0xffe @0x7
0x0ff7…1014 at0008 = ╱43╱C╱ // 0xfff @0x8
0x0ff7…1014 at0009 = ╱35╱5╱ // 0x1000 @0x9
0x0ff7…1014 at000a = ╱34╱4╱ // 0x1001 @0xa
0x0ff7…1014 at000b = ╱31╱1╱ // 0x1002 @0xb
0x0ff7…1014 at000c = ╱36╱6╱ // 0x1003 @0xc
0x0ff7…1014 at000d = ╱3e╱>╱ // 0x1004 @0xd
0x0ff7…1014 at000e = ╱33╱3╱ // 0x1005 @0xe
0x0ff7…1014 at000f = ╱31╱1╱ // 0x1006 @0xf
0x0ff7…1014 at0010 = ╱2e╱.╱ // 0x1007 @0x10
0x0ff7…1014 at0011 = ╱20╱…╱ // 0x1008 @0x11
0x0ff7…1014 at0012 = ╱44╱D╱ // 0x1009 @0x12
0x0ff7…1014 at0013 = ╱65╱e╱ // 0x100a @0x13
0x0ff7…1014 at0014 = ╱62╱b╱ // 0x100b @0x14
0x0ff7…1014 at0015 = ╱69╱i╱ // 0x100c @0x15
0x0ff7…1014 at0016 = ╱74╱t╱ // 0x100d @0x16
0x0ff7…1014 at0017 = ╱6f╱o╱ // 0x100e @0x17
0x0ff7…1014 at0018 = ╱72╱r╱ // 0x100f @0x18
0x0ff7…1014 at0019 = ╱65╱e╱ // 0x1010 @0x19
0x0ff7…1014 at001a = ╱72╱r╱ // 0x1011 @0x1a
0x0ff7…1014 at001b = ╱22╱"╱ // 0x1012 @0x1b
0x0ff7…1014 at001c = EOL // 0x1013 @0x1c
0x0ff7…1014 }
0x1014…1039 a627 01370 PRINT "<SC5417>32.…Likvide…beh.…m.v."
0x1014…1039 LineComal80 {
0x1014…1039 ptr = 0xa627 // 0x1014 @0x0
0x1014…1039 lno = 0x055a // 0x1016 @0x2
0x1014…1039 at0004 = ╱92╱ PRINT ╱ // 0x1018 @0x4
0x1014…1039 at0005 = ╱22╱"╱ // 0x1019 @0x5
0x1014…1039 at0006 = ╱3c╱<╱ // 0x101a @0x6
0x1014…1039 at0007 = ╱53╱S╱ // 0x101b @0x7
0x1014…1039 at0008 = ╱43╱C╱ // 0x101c @0x8
0x1014…1039 at0009 = ╱35╱5╱ // 0x101d @0x9
0x1014…1039 at000a = ╱34╱4╱ // 0x101e @0xa
0x1014…1039 at000b = ╱31╱1╱ // 0x101f @0xb
0x1014…1039 at000c = ╱37╱7╱ // 0x1020 @0xc
0x1014…1039 at000d = ╱3e╱>╱ // 0x1021 @0xd
0x1014…1039 at000e = ╱33╱3╱ // 0x1022 @0xe
0x1014…1039 at000f = ╱32╱2╱ // 0x1023 @0xf
0x1014…1039 at0010 = ╱2e╱.╱ // 0x1024 @0x10
0x1014…1039 at0011 = ╱20╱…╱ // 0x1025 @0x11
0x1014…1039 at0012 = ╱4c╱L╱ // 0x1026 @0x12
0x1014…1039 at0013 = ╱69╱i╱ // 0x1027 @0x13
0x1014…1039 at0014 = ╱6b╱k╱ // 0x1028 @0x14
0x1014…1039 at0015 = ╱76╱v╱ // 0x1029 @0x15
0x1014…1039 at0016 = ╱69╱i╱ // 0x102a @0x16
0x1014…1039 at0017 = ╱64╱d╱ // 0x102b @0x17
0x1014…1039 at0018 = ╱65╱e╱ // 0x102c @0x18
0x1014…1039 at0019 = ╱20╱…╱ // 0x102d @0x19
0x1014…1039 at001a = ╱62╱b╱ // 0x102e @0x1a
0x1014…1039 at001b = ╱65╱e╱ // 0x102f @0x1b
0x1014…1039 at001c = ╱68╱h╱ // 0x1030 @0x1c
0x1014…1039 at001d = ╱2e╱.╱ // 0x1031 @0x1d
0x1014…1039 at001e = ╱20╱…╱ // 0x1032 @0x1e
0x1014…1039 at001f = ╱6d╱m╱ // 0x1033 @0x1f
0x1014…1039 at0020 = ╱2e╱.╱ // 0x1034 @0x20
0x1014…1039 at0021 = ╱76╱v╱ // 0x1035 @0x21
0x1014…1039 at0022 = ╱2e╱.╱ // 0x1036 @0x22
0x1014…1039 at0023 = ╱22╱"╱ // 0x1037 @0x23
0x1014…1039 at0024 = EOL // 0x1038 @0x24
0x1014…1039 }
0x1039…1058 a646 01380 PRINT "<SC5418>33.…Egenkapital"
0x1039…1058 LineComal80 {
0x1039…1058 ptr = 0xa646 // 0x1039 @0x0
0x1039…1058 lno = 0x0564 // 0x103b @0x2
0x1039…1058 at0004 = ╱92╱ PRINT ╱ // 0x103d @0x4
0x1039…1058 at0005 = ╱22╱"╱ // 0x103e @0x5
0x1039…1058 at0006 = ╱3c╱<╱ // 0x103f @0x6
0x1039…1058 at0007 = ╱53╱S╱ // 0x1040 @0x7
0x1039…1058 at0008 = ╱43╱C╱ // 0x1041 @0x8
0x1039…1058 at0009 = ╱35╱5╱ // 0x1042 @0x9
0x1039…1058 at000a = ╱34╱4╱ // 0x1043 @0xa
0x1039…1058 at000b = ╱31╱1╱ // 0x1044 @0xb
0x1039…1058 at000c = ╱38╱8╱ // 0x1045 @0xc
0x1039…1058 at000d = ╱3e╱>╱ // 0x1046 @0xd
0x1039…1058 at000e = ╱33╱3╱ // 0x1047 @0xe
0x1039…1058 at000f = ╱33╱3╱ // 0x1048 @0xf
0x1039…1058 at0010 = ╱2e╱.╱ // 0x1049 @0x10
0x1039…1058 at0011 = ╱20╱…╱ // 0x104a @0x11
0x1039…1058 at0012 = ╱45╱E╱ // 0x104b @0x12
0x1039…1058 at0013 = ╱67╱g╱ // 0x104c @0x13
0x1039…1058 at0014 = ╱65╱e╱ // 0x104d @0x14
0x1039…1058 at0015 = ╱6e╱n╱ // 0x104e @0x15
0x1039…1058 at0016 = ╱6b╱k╱ // 0x104f @0x16
0x1039…1058 at0017 = ╱61╱a╱ // 0x1050 @0x17
0x1039…1058 at0018 = ╱70╱p╱ // 0x1051 @0x18
0x1039…1058 at0019 = ╱69╱i╱ // 0x1052 @0x19
0x1039…1058 at001a = ╱74╱t╱ // 0x1053 @0x1a
0x1039…1058 at001b = ╱61╱a╱ // 0x1054 @0x1b
0x1039…1058 at001c = ╱6c╱l╱ // 0x1055 @0x1c
0x1039…1058 at001d = ╱22╱"╱ // 0x1056 @0x1d
0x1039…1058 at001e = EOL // 0x1057 @0x1e
0x1039…1058 }
0x1058…1078 a666 01390 PRINT "<SC5419>34.…Hens{ttelser"
0x1058…1078 LineComal80 {
0x1058…1078 ptr = 0xa666 // 0x1058 @0x0
0x1058…1078 lno = 0x056e // 0x105a @0x2
0x1058…1078 at0004 = ╱92╱ PRINT ╱ // 0x105c @0x4
0x1058…1078 at0005 = ╱22╱"╱ // 0x105d @0x5
0x1058…1078 at0006 = ╱3c╱<╱ // 0x105e @0x6
0x1058…1078 at0007 = ╱53╱S╱ // 0x105f @0x7
0x1058…1078 at0008 = ╱43╱C╱ // 0x1060 @0x8
0x1058…1078 at0009 = ╱35╱5╱ // 0x1061 @0x9
0x1058…1078 at000a = ╱34╱4╱ // 0x1062 @0xa
0x1058…1078 at000b = ╱31╱1╱ // 0x1063 @0xb
0x1058…1078 at000c = ╱39╱9╱ // 0x1064 @0xc
0x1058…1078 at000d = ╱3e╱>╱ // 0x1065 @0xd
0x1058…1078 at000e = ╱33╱3╱ // 0x1066 @0xe
0x1058…1078 at000f = ╱34╱4╱ // 0x1067 @0xf
0x1058…1078 at0010 = ╱2e╱.╱ // 0x1068 @0x10
0x1058…1078 at0011 = ╱20╱…╱ // 0x1069 @0x11
0x1058…1078 at0012 = ╱48╱H╱ // 0x106a @0x12
0x1058…1078 at0013 = ╱65╱e╱ // 0x106b @0x13
0x1058…1078 at0014 = ╱6e╱n╱ // 0x106c @0x14
0x1058…1078 at0015 = ╱73╱s╱ // 0x106d @0x15
0x1058…1078 at0016 = ╱7b╱{╱ // 0x106e @0x16
0x1058…1078 at0017 = ╱74╱t╱ // 0x106f @0x17
0x1058…1078 at0018 = ╱74╱t╱ // 0x1070 @0x18
0x1058…1078 at0019 = ╱65╱e╱ // 0x1071 @0x19
0x1058…1078 at001a = ╱6c╱l╱ // 0x1072 @0x1a
0x1058…1078 at001b = ╱73╱s╱ // 0x1073 @0x1b
0x1058…1078 at001c = ╱65╱e╱ // 0x1074 @0x1c
0x1058…1078 at001d = ╱72╱r╱ // 0x1075 @0x1d
0x1058…1078 at001e = ╱22╱"╱ // 0x1076 @0x1e
0x1058…1078 at001f = EOL // 0x1077 @0x1f
0x1058…1078 }
0x1078…1090 a67e 01400 PRINT "<SC5420>35.…G{ld"
0x1078…1090 LineComal80 {
0x1078…1090 ptr = 0xa67e // 0x1078 @0x0
0x1078…1090 lno = 0x0578 // 0x107a @0x2
0x1078…1090 at0004 = ╱92╱ PRINT ╱ // 0x107c @0x4
0x1078…1090 at0005 = ╱22╱"╱ // 0x107d @0x5
0x1078…1090 at0006 = ╱3c╱<╱ // 0x107e @0x6
0x1078…1090 at0007 = ╱53╱S╱ // 0x107f @0x7
0x1078…1090 at0008 = ╱43╱C╱ // 0x1080 @0x8
0x1078…1090 at0009 = ╱35╱5╱ // 0x1081 @0x9
0x1078…1090 at000a = ╱34╱4╱ // 0x1082 @0xa
0x1078…1090 at000b = ╱32╱2╱ // 0x1083 @0xb
0x1078…1090 at000c = ╱30╱0╱ // 0x1084 @0xc
0x1078…1090 at000d = ╱3e╱>╱ // 0x1085 @0xd
0x1078…1090 at000e = ╱33╱3╱ // 0x1086 @0xe
0x1078…1090 at000f = ╱35╱5╱ // 0x1087 @0xf
0x1078…1090 at0010 = ╱2e╱.╱ // 0x1088 @0x10
0x1078…1090 at0011 = ╱20╱…╱ // 0x1089 @0x11
0x1078…1090 at0012 = ╱47╱G╱ // 0x108a @0x12
0x1078…1090 at0013 = ╱7b╱{╱ // 0x108b @0x13
0x1078…1090 at0014 = ╱6c╱l╱ // 0x108c @0x14
0x1078…1090 at0015 = ╱64╱d╱ // 0x108d @0x15
0x1078…1090 at0016 = ╱22╱"╱ // 0x108e @0x16
0x1078…1090 at0017 = EOL // 0x108f @0x17
0x1078…1090 }
0x1090…10ad a69b 01410 PRINT "<C5421>36.…Kreditorer"
0x1090…10ad LineComal80 {
0x1090…10ad ptr = 0xa69b // 0x1090 @0x0
0x1090…10ad lno = 0x0582 // 0x1092 @0x2
0x1090…10ad at0004 = ╱92╱ PRINT ╱ // 0x1094 @0x4
0x1090…10ad at0005 = ╱22╱"╱ // 0x1095 @0x5
0x1090…10ad at0006 = ╱3c╱<╱ // 0x1096 @0x6
0x1090…10ad at0007 = ╱43╱C╱ // 0x1097 @0x7
0x1090…10ad at0008 = ╱35╱5╱ // 0x1098 @0x8
0x1090…10ad at0009 = ╱34╱4╱ // 0x1099 @0x9
0x1090…10ad at000a = ╱32╱2╱ // 0x109a @0xa
0x1090…10ad at000b = ╱31╱1╱ // 0x109b @0xb
0x1090…10ad at000c = ╱3e╱>╱ // 0x109c @0xc
0x1090…10ad at000d = ╱33╱3╱ // 0x109d @0xd
0x1090…10ad at000e = ╱36╱6╱ // 0x109e @0xe
0x1090…10ad at000f = ╱2e╱.╱ // 0x109f @0xf
0x1090…10ad at0010 = ╱20╱…╱ // 0x10a0 @0x10
0x1090…10ad at0011 = ╱4b╱K╱ // 0x10a1 @0x11
0x1090…10ad at0012 = ╱72╱r╱ // 0x10a2 @0x12
0x1090…10ad at0013 = ╱65╱e╱ // 0x10a3 @0x13
0x1090…10ad at0014 = ╱64╱d╱ // 0x10a4 @0x14
0x1090…10ad at0015 = ╱69╱i╱ // 0x10a5 @0x15
0x1090…10ad at0016 = ╱74╱t╱ // 0x10a6 @0x16
0x1090…10ad at0017 = ╱6f╱o╱ // 0x10a7 @0x17
0x1090…10ad at0018 = ╱72╱r╱ // 0x10a8 @0x18
0x1090…10ad at0019 = ╱65╱e╱ // 0x10a9 @0x19
0x1090…10ad at001a = ╱72╱r╱ // 0x10aa @0x1a
0x1090…10ad at001b = ╱22╱"╱ // 0x10ab @0x1b
0x1090…10ad at001c = EOL // 0x10ac @0x1c
0x1090…10ad }
0x10ad…10b3 a6a1 01420 ENDIF
0x10ad…10b3 LineComal80 {
0x10ad…10b3 ptr = 0xa6a1 // 0x10ad @0x0
0x10ad…10b3 lno = 0x058c // 0x10af @0x2
0x10ad…10b3 at0004 = ╱9c╱ ENDIF ╱ // 0x10b1 @0x4
0x10ad…10b3 at0005 = EOL // 0x10b2 @0x5
0x10ad…10b3 }
0x10b3…10ba a6a8 01430 REPEAT
0x10b3…10ba LineComal80 {
0x10b3…10ba ptr = 0xa6a8 // 0x10b3 @0x0
0x10b3…10ba lno = 0x0596 // 0x10b5 @0x2
0x10b3…10ba at0004 = ╱9700╱ REPEAT ╱ // 0x10b7 @0x4
0x10b3…10ba at0006 = EOL // 0x10b9 @0x6
0x10b3…10ba }
0x10ba…10ef a6dd 01440 EDIT "<SC0223>Indtast…linienummer…" : SVAR $ ( 1 : 2 )
0x10ba…10ef LineComal80 {
0x10ba…10ef ptr = 0xa6dd // 0x10ba @0x0
0x10ba…10ef lno = 0x05a0 // 0x10bc @0x2
0x10ba…10ef at0004 = ╱b1╱ EDIT ╱ // 0x10be @0x4
0x10ba…10ef at0005 = ╱22╱"╱ // 0x10bf @0x5
0x10ba…10ef at0006 = ╱3c╱<╱ // 0x10c0 @0x6
0x10ba…10ef at0007 = ╱53╱S╱ // 0x10c1 @0x7
0x10ba…10ef at0008 = ╱43╱C╱ // 0x10c2 @0x8
0x10ba…10ef at0009 = ╱30╱0╱ // 0x10c3 @0x9
0x10ba…10ef at000a = ╱32╱2╱ // 0x10c4 @0xa
0x10ba…10ef at000b = ╱32╱2╱ // 0x10c5 @0xb
0x10ba…10ef at000c = ╱33╱3╱ // 0x10c6 @0xc
0x10ba…10ef at000d = ╱3e╱>╱ // 0x10c7 @0xd
0x10ba…10ef at000e = ╱49╱I╱ // 0x10c8 @0xe
0x10ba…10ef at000f = ╱6e╱n╱ // 0x10c9 @0xf
0x10ba…10ef at0010 = ╱64╱d╱ // 0x10ca @0x10
0x10ba…10ef at0011 = ╱74╱t╱ // 0x10cb @0x11
0x10ba…10ef at0012 = ╱61╱a╱ // 0x10cc @0x12
0x10ba…10ef at0013 = ╱73╱s╱ // 0x10cd @0x13
0x10ba…10ef at0014 = ╱74╱t╱ // 0x10ce @0x14
0x10ba…10ef at0015 = ╱20╱…╱ // 0x10cf @0x15
0x10ba…10ef at0016 = ╱6c╱l╱ // 0x10d0 @0x16
0x10ba…10ef at0017 = ╱69╱i╱ // 0x10d1 @0x17
0x10ba…10ef at0018 = ╱6e╱n╱ // 0x10d2 @0x18
0x10ba…10ef at0019 = ╱69╱i╱ // 0x10d3 @0x19
0x10ba…10ef at001a = ╱65╱e╱ // 0x10d4 @0x1a
0x10ba…10ef at001b = ╱6e╱n╱ // 0x10d5 @0x1b
0x10ba…10ef at001c = ╱75╱u╱ // 0x10d6 @0x1c
0x10ba…10ef at001d = ╱6d╱m╱ // 0x10d7 @0x1d
0x10ba…10ef at001e = ╱6d╱m╱ // 0x10d8 @0x1e
0x10ba…10ef at001f = ╱65╱e╱ // 0x10d9 @0x1f
0x10ba…10ef at0020 = ╱72╱r╱ // 0x10da @0x20
0x10ba…10ef at0021 = ╱20╱…╱ // 0x10db @0x21
0x10ba…10ef at0022 = ╱22╱"╱ // 0x10dc @0x22
0x10ba…10ef at0023 = ╱f1╱ : ╱ // 0x10dd @0x23
0x10ba…10ef at0024 = ╱53╱S╱ // 0x10de @0x24
0x10ba…10ef at0025 = ╱56╱V╱ // 0x10df @0x25
0x10ba…10ef at0026 = ╱41╱A╱ // 0x10e0 @0x26
0x10ba…10ef at0027 = ╱52╱R╱ // 0x10e1 @0x27
0x10ba…10ef at0028 = ╱ef╱ $ ╱ // 0x10e2 @0x28
0x10ba…10ef at0029 = ╱ed╱ ( ╱ // 0x10e3 @0x29
0x10ba…10ef at002a = ╱31╱1╱ // 0x10e4 @0x2a
0x10ba…10ef at002b = ╱f20100╱ // 0x10e5 @0x2b
0x10ba…10ef at002e = ╱f1╱ : ╱ // 0x10e8 @0x2e
0x10ba…10ef at002f = ╱32╱2╱ // 0x10e9 @0x2f
0x10ba…10ef at0030 = ╱f20200╱ // 0x10ea @0x30
0x10ba…10ef at0033 = ╱ee╱ ) ╱ // 0x10ed @0x33
0x10ba…10ef at0034 = EOL // 0x10ee @0x34
0x10ba…10ef }
0x10ef…1101 a6ef 01450 EXEC SL_FEJLLINIE
0x10ef…1101 LineComal80 {
0x10ef…1101 ptr = 0xa6ef // 0x10ef @0x0
0x10ef…1101 lno = 0x05aa // 0x10f1 @0x2
0x10ef…1101 at0004 = ╱9d╱ EXEC ╱ // 0x10f3 @0x4
0x10ef…1101 at0005 = ╱53╱S╱ // 0x10f4 @0x5
0x10ef…1101 at0006 = ╱4c╱L╱ // 0x10f5 @0x6
0x10ef…1101 at0007 = ╱5f╱_╱ // 0x10f6 @0x7
0x10ef…1101 at0008 = ╱46╱F╱ // 0x10f7 @0x8
0x10ef…1101 at0009 = ╱45╱E╱ // 0x10f8 @0x9
0x10ef…1101 at000a = ╱4a╱J╱ // 0x10f9 @0xa
0x10ef…1101 at000b = ╱4c╱L╱ // 0x10fa @0xb
0x10ef…1101 at000c = ╱4c╱L╱ // 0x10fb @0xc
0x10ef…1101 at000d = ╱49╱I╱ // 0x10fc @0xd
0x10ef…1101 at000e = ╱4e╱N╱ // 0x10fd @0xe
0x10ef…1101 at000f = ╱49╱I╱ // 0x10fe @0xf
0x10ef…1101 at0010 = ╱45╱E╱ // 0x10ff @0x10
0x10ef…1101 at0011 = EOL // 0x1100 @0x11
0x10ef…1101 }
0x1101…1114 a702 01460 IF SVAR $ IN "……" THEN EXIT
0x1101…1114 LineComal80 {
0x1101…1114 ptr = 0xa702 // 0x1101 @0x0
0x1101…1114 lno = 0x05b4 // 0x1103 @0x2
0x1101…1114 at0004 = ╱8200╱ IF ╱ // 0x1105 @0x4
0x1101…1114 at0006 = ╱53╱S╱ // 0x1107 @0x6
0x1101…1114 at0007 = ╱56╱V╱ // 0x1108 @0x7
0x1101…1114 at0008 = ╱41╱A╱ // 0x1109 @0x8
0x1101…1114 at0009 = ╱52╱R╱ // 0x110a @0x9
0x1101…1114 at000a = ╱ef╱ $ ╱ // 0x110b @0xa
0x1101…1114 at000b = ╱dc╱ IN ╱ // 0x110c @0xb
0x1101…1114 at000c = ╱22╱"╱ // 0x110d @0xc
0x1101…1114 at000d = ╱20╱…╱ // 0x110e @0xd
0x1101…1114 at000e = ╱20╱…╱ // 0x110f @0xe
0x1101…1114 at000f = ╱22╱"╱ // 0x1110 @0xf
0x1101…1114 at0010 = ╱b5╱ THEN ╱ // 0x1111 @0x10
0x1101…1114 at0011 = ╱99╱ EXIT ╱ // 0x1112 @0x11
0x1101…1114 at0012 = EOL // 0x1113 @0x12
0x1101…1114 }
0x1114…112d a71b 01470 IF SVAR $ ( 1 ) IN TAL $ THEN
0x1114…112d LineComal80 {
0x1114…112d ptr = 0xa71b // 0x1114 @0x0
0x1114…112d lno = 0x05be // 0x1116 @0x2
0x1114…112d at0004 = ╱9b00d7╱ IF ╱ // 0x1118 @0x4
0x1114…112d at0007 = ╱53╱S╱ // 0x111b @0x7
0x1114…112d at0008 = ╱56╱V╱ // 0x111c @0x8
0x1114…112d at0009 = ╱41╱A╱ // 0x111d @0x9
0x1114…112d at000a = ╱52╱R╱ // 0x111e @0xa
0x1114…112d at000b = ╱ef╱ $ ╱ // 0x111f @0xb
0x1114…112d at000c = ╱ed╱ ( ╱ // 0x1120 @0xc
0x1114…112d at000d = ╱31╱1╱ // 0x1121 @0xd
0x1114…112d at000e = ╱f20100╱ // 0x1122 @0xe
0x1114…112d at0011 = ╱ee╱ ) ╱ // 0x1125 @0x11
0x1114…112d at0012 = ╱dc╱ IN ╱ // 0x1126 @0x12
0x1114…112d at0013 = ╱54╱T╱ // 0x1127 @0x13
0x1114…112d at0014 = ╱41╱A╱ // 0x1128 @0x14
0x1114…112d at0015 = ╱4c╱L╱ // 0x1129 @0x15
0x1114…112d at0016 = ╱ef╱ $ ╱ // 0x112a @0x16
0x1114…112d at0017 = ╱b5╱ THEN ╱ // 0x112b @0x17
0x1114…112d at0018 = EOL // 0x112c @0x18
0x1114…112d }
0x112d…115b a749 01480 EXEC FEJL ( "Ulovligt…tegn:…'" + SVAR $ ( 1 ) + "'" )
0x112d…115b LineComal80 {
0x112d…115b ptr = 0xa749 // 0x112d @0x0
0x112d…115b lno = 0x05c8 // 0x112f @0x2
0x112d…115b at0004 = ╱9d╱ EXEC ╱ // 0x1131 @0x4
0x112d…115b at0005 = ╱46╱F╱ // 0x1132 @0x5
0x112d…115b at0006 = ╱45╱E╱ // 0x1133 @0x6
0x112d…115b at0007 = ╱4a╱J╱ // 0x1134 @0x7
0x112d…115b at0008 = ╱4c╱L╱ // 0x1135 @0x8
0x112d…115b at0009 = ╱ed╱ ( ╱ // 0x1136 @0x9
0x112d…115b at000a = ╱22╱"╱ // 0x1137 @0xa
0x112d…115b at000b = ╱55╱U╱ // 0x1138 @0xb
0x112d…115b at000c = ╱6c╱l╱ // 0x1139 @0xc
0x112d…115b at000d = ╱6f╱o╱ // 0x113a @0xd
0x112d…115b at000e = ╱76╱v╱ // 0x113b @0xe
0x112d…115b at000f = ╱6c╱l╱ // 0x113c @0xf
0x112d…115b at0010 = ╱69╱i╱ // 0x113d @0x10
0x112d…115b at0011 = ╱67╱g╱ // 0x113e @0x11
0x112d…115b at0012 = ╱74╱t╱ // 0x113f @0x12
0x112d…115b at0013 = ╱20╱…╱ // 0x1140 @0x13
0x112d…115b at0014 = ╱74╱t╱ // 0x1141 @0x14
0x112d…115b at0015 = ╱65╱e╱ // 0x1142 @0x15
0x112d…115b at0016 = ╱67╱g╱ // 0x1143 @0x16
0x112d…115b at0017 = ╱6e╱n╱ // 0x1144 @0x17
0x112d…115b at0018 = ╱3a╱:╱ // 0x1145 @0x18
0x112d…115b at0019 = ╱20╱…╱ // 0x1146 @0x19
0x112d…115b at001a = ╱27╱'╱ // 0x1147 @0x1a
0x112d…115b at001b = ╱22╱"╱ // 0x1148 @0x1b
0x112d…115b at001c = ╱eb╱ + ╱ // 0x1149 @0x1c
0x112d…115b at001d = ╱53╱S╱ // 0x114a @0x1d
0x112d…115b at001e = ╱56╱V╱ // 0x114b @0x1e
0x112d…115b at001f = ╱41╱A╱ // 0x114c @0x1f
0x112d…115b at0020 = ╱52╱R╱ // 0x114d @0x20
0x112d…115b at0021 = ╱ef╱ $ ╱ // 0x114e @0x21
0x112d…115b at0022 = ╱ed╱ ( ╱ // 0x114f @0x22
0x112d…115b at0023 = ╱31╱1╱ // 0x1150 @0x23
0x112d…115b at0024 = ╱f20100╱ // 0x1151 @0x24
0x112d…115b at0027 = ╱ee╱ ) ╱ // 0x1154 @0x27
0x112d…115b at0028 = ╱eb╱ + ╱ // 0x1155 @0x28
0x112d…115b at0029 = ╱22╱"╱ // 0x1156 @0x29
0x112d…115b at002a = ╱27╱'╱ // 0x1157 @0x2a
0x112d…115b at002b = ╱22╱"╱ // 0x1158 @0x2b
0x112d…115b at002c = ╱ee╱ ) ╱ // 0x1159 @0x2c
0x112d…115b at002d = EOL // 0x115a @0x2d
0x112d…115b }
0x115b…1162 a750 01490 ELSE
0x115b…1162 LineComal80 {
0x115b…1162 ptr = 0xa750 // 0x115b @0x0
0x115b…1162 lno = 0x05d2 // 0x115d @0x2
0x115b…1162 at0004 = ╱9a00╱ ELSE ╱ // 0x115f @0x4
0x115b…1162 at0006 = EOL // 0x1161 @0x6
0x115b…1162 }
0x1162…117f a76d 01500 IF SVAR $ ( 2 ) IN TAL $ + "…" THEN
0x1162…117f LineComal80 {
0x1162…117f ptr = 0xa76d // 0x1162 @0x0
0x1162…117f lno = 0x05dc // 0x1164 @0x2
0x1162…117f at0004 = ╱9b00d7╱ IF ╱ // 0x1166 @0x4
0x1162…117f at0007 = ╱53╱S╱ // 0x1169 @0x7
0x1162…117f at0008 = ╱56╱V╱ // 0x116a @0x8
0x1162…117f at0009 = ╱41╱A╱ // 0x116b @0x9
0x1162…117f at000a = ╱52╱R╱ // 0x116c @0xa
0x1162…117f at000b = ╱ef╱ $ ╱ // 0x116d @0xb
0x1162…117f at000c = ╱ed╱ ( ╱ // 0x116e @0xc
0x1162…117f at000d = ╱32╱2╱ // 0x116f @0xd
0x1162…117f at000e = ╱f20200╱ // 0x1170 @0xe
0x1162…117f at0011 = ╱ee╱ ) ╱ // 0x1173 @0x11
0x1162…117f at0012 = ╱dc╱ IN ╱ // 0x1174 @0x12
0x1162…117f at0013 = ╱54╱T╱ // 0x1175 @0x13
0x1162…117f at0014 = ╱41╱A╱ // 0x1176 @0x14
0x1162…117f at0015 = ╱4c╱L╱ // 0x1177 @0x15
0x1162…117f at0016 = ╱ef╱ $ ╱ // 0x1178 @0x16
0x1162…117f at0017 = ╱eb╱ + ╱ // 0x1179 @0x17
0x1162…117f at0018 = ╱22╱"╱ // 0x117a @0x18
0x1162…117f at0019 = ╱20╱…╱ // 0x117b @0x19
0x1162…117f at001a = ╱22╱"╱ // 0x117c @0x1a
0x1162…117f at001b = ╱b5╱ THEN ╱ // 0x117d @0x1b
0x1162…117f at001c = EOL // 0x117e @0x1c
0x1162…117f }
0x117f…11ad a79b 01510 EXEC FEJL ( "Ulovligt…tegn:…'" + SVAR $ ( 2 ) + "'" )
0x117f…11ad LineComal80 {
0x117f…11ad ptr = 0xa79b // 0x117f @0x0
0x117f…11ad lno = 0x05e6 // 0x1181 @0x2
0x117f…11ad at0004 = ╱9d╱ EXEC ╱ // 0x1183 @0x4
0x117f…11ad at0005 = ╱46╱F╱ // 0x1184 @0x5
0x117f…11ad at0006 = ╱45╱E╱ // 0x1185 @0x6
0x117f…11ad at0007 = ╱4a╱J╱ // 0x1186 @0x7
0x117f…11ad at0008 = ╱4c╱L╱ // 0x1187 @0x8
0x117f…11ad at0009 = ╱ed╱ ( ╱ // 0x1188 @0x9
0x117f…11ad at000a = ╱22╱"╱ // 0x1189 @0xa
0x117f…11ad at000b = ╱55╱U╱ // 0x118a @0xb
0x117f…11ad at000c = ╱6c╱l╱ // 0x118b @0xc
0x117f…11ad at000d = ╱6f╱o╱ // 0x118c @0xd
0x117f…11ad at000e = ╱76╱v╱ // 0x118d @0xe
0x117f…11ad at000f = ╱6c╱l╱ // 0x118e @0xf
0x117f…11ad at0010 = ╱69╱i╱ // 0x118f @0x10
0x117f…11ad at0011 = ╱67╱g╱ // 0x1190 @0x11
0x117f…11ad at0012 = ╱74╱t╱ // 0x1191 @0x12
0x117f…11ad at0013 = ╱20╱…╱ // 0x1192 @0x13
0x117f…11ad at0014 = ╱74╱t╱ // 0x1193 @0x14
0x117f…11ad at0015 = ╱65╱e╱ // 0x1194 @0x15
0x117f…11ad at0016 = ╱67╱g╱ // 0x1195 @0x16
0x117f…11ad at0017 = ╱6e╱n╱ // 0x1196 @0x17
0x117f…11ad at0018 = ╱3a╱:╱ // 0x1197 @0x18
0x117f…11ad at0019 = ╱20╱…╱ // 0x1198 @0x19
0x117f…11ad at001a = ╱27╱'╱ // 0x1199 @0x1a
0x117f…11ad at001b = ╱22╱"╱ // 0x119a @0x1b
0x117f…11ad at001c = ╱eb╱ + ╱ // 0x119b @0x1c
0x117f…11ad at001d = ╱53╱S╱ // 0x119c @0x1d
0x117f…11ad at001e = ╱56╱V╱ // 0x119d @0x1e
0x117f…11ad at001f = ╱41╱A╱ // 0x119e @0x1f
0x117f…11ad at0020 = ╱52╱R╱ // 0x119f @0x20
0x117f…11ad at0021 = ╱ef╱ $ ╱ // 0x11a0 @0x21
0x117f…11ad at0022 = ╱ed╱ ( ╱ // 0x11a1 @0x22
0x117f…11ad at0023 = ╱32╱2╱ // 0x11a2 @0x23
0x117f…11ad at0024 = ╱f20200╱ // 0x11a3 @0x24
0x117f…11ad at0027 = ╱ee╱ ) ╱ // 0x11a6 @0x27
0x117f…11ad at0028 = ╱eb╱ + ╱ // 0x11a7 @0x28
0x117f…11ad at0029 = ╱22╱"╱ // 0x11a8 @0x29
0x117f…11ad at002a = ╱27╱'╱ // 0x11a9 @0x2a
0x117f…11ad at002b = ╱22╱"╱ // 0x11aa @0x2b
0x117f…11ad at002c = ╱ee╱ ) ╱ // 0x11ab @0x2c
0x117f…11ad at002d = EOL // 0x11ac @0x2d
0x117f…11ad }
0x11ad…11b3 a7a1 01520 ENDIF
0x11ad…11b3 LineComal80 {
0x11ad…11b3 ptr = 0xa7a1 // 0x11ad @0x0
0x11ad…11b3 lno = 0x05f0 // 0x11af @0x2
0x11ad…11b3 at0004 = ╱9c╱ ENDIF ╱ // 0x11b1 @0x4
0x11ad…11b3 at0005 = EOL // 0x11b2 @0x5
0x11ad…11b3 }
0x11b3…11b9 a7a7 01530 ENDIF
0x11b3…11b9 LineComal80 {
0x11b3…11b9 ptr = 0xa7a7 // 0x11b3 @0x0
0x11b3…11b9 lno = 0x05fa // 0x11b5 @0x2
0x11b3…11b9 at0004 = ╱9c╱ ENDIF ╱ // 0x11b7 @0x4
0x11b3…11b9 at0005 = EOL // 0x11b8 @0x5
0x11b3…11b9 }
0x11b9…11c3 a7b1 01540 IF K THEN
0x11b9…11c3 LineComal80 {
0x11b9…11c3 ptr = 0xa7b1 // 0x11b9 @0x0
0x11b9…11c3 lno = 0x0604 // 0x11bb @0x2
0x11b9…11c3 at0004 = ╱9b004f╱ IF ╱ // 0x11bd @0x4
0x11b9…11c3 at0007 = ╱4b╱K╱ // 0x11c0 @0x7
0x11b9…11c3 at0008 = ╱b5╱ THEN ╱ // 0x11c1 @0x8
0x11b9…11c3 at0009 = EOL // 0x11c2 @0x9
0x11b9…11c3 }
0x11c3…11db a7c9 01550 EXEC TAL_CONTROL ( SVAR $ )
0x11c3…11db LineComal80 {
0x11c3…11db ptr = 0xa7c9 // 0x11c3 @0x0
0x11c3…11db lno = 0x060e // 0x11c5 @0x2
0x11c3…11db at0004 = ╱9d╱ EXEC ╱ // 0x11c7 @0x4
0x11c3…11db at0005 = ╱54╱T╱ // 0x11c8 @0x5
0x11c3…11db at0006 = ╱41╱A╱ // 0x11c9 @0x6
0x11c3…11db at0007 = ╱4c╱L╱ // 0x11ca @0x7
0x11c3…11db at0008 = ╱5f╱_╱ // 0x11cb @0x8
0x11c3…11db at0009 = ╱43╱C╱ // 0x11cc @0x9
0x11c3…11db at000a = ╱4f╱O╱ // 0x11cd @0xa
0x11c3…11db at000b = ╱4e╱N╱ // 0x11ce @0xb
0x11c3…11db at000c = ╱54╱T╱ // 0x11cf @0xc
0x11c3…11db at000d = ╱52╱R╱ // 0x11d0 @0xd
0x11c3…11db at000e = ╱4f╱O╱ // 0x11d1 @0xe
0x11c3…11db at000f = ╱4c╱L╱ // 0x11d2 @0xf
0x11c3…11db at0010 = ╱ed╱ ( ╱ // 0x11d3 @0x10
0x11c3…11db at0011 = ╱53╱S╱ // 0x11d4 @0x11
0x11c3…11db at0012 = ╱56╱V╱ // 0x11d5 @0x12
0x11c3…11db at0013 = ╱41╱A╱ // 0x11d6 @0x13
0x11c3…11db at0014 = ╱52╱R╱ // 0x11d7 @0x14
0x11c3…11db at0015 = ╱ef╱ $ ╱ // 0x11d8 @0x15
0x11c3…11db at0016 = ╱ee╱ ) ╱ // 0x11d9 @0x16
0x11c3…11db at0017 = EOL // 0x11da @0x17
0x11c3…11db }
0x11db…1204 a7f2 01560 IF ASC ( SVAR $ ) =< 8 THEN EXEC RET_LINIE ( ASC ( SVAR $ ) )
0x11db…1204 LineComal80 {
0x11db…1204 ptr = 0xa7f2 // 0x11db @0x0
0x11db…1204 lno = 0x0618 // 0x11dd @0x2
0x11db…1204 at0004 = ╱8200╱ IF ╱ // 0x11df @0x4
0x11db…1204 at0006 = ╱cf╱ ASC ╱ // 0x11e1 @0x6
0x11db…1204 at0007 = ╱ed╱ ( ╱ // 0x11e2 @0x7
0x11db…1204 at0008 = ╱53╱S╱ // 0x11e3 @0x8
0x11db…1204 at0009 = ╱56╱V╱ // 0x11e4 @0x9
0x11db…1204 at000a = ╱41╱A╱ // 0x11e5 @0xa
0x11db…1204 at000b = ╱52╱R╱ // 0x11e6 @0xb
0x11db…1204 at000c = ╱ef╱ $ ╱ // 0x11e7 @0xc
0x11db…1204 at000d = ╱ee╱ ) ╱ // 0x11e8 @0xd
0x11db…1204 at000e = ╱e2╱ =< ╱ // 0x11e9 @0xe
0x11db…1204 at000f = ╱38╱8╱ // 0x11ea @0xf
0x11db…1204 at0010 = ╱f20800╱ // 0x11eb @0x10
0x11db…1204 at0013 = ╱b5╱ THEN ╱ // 0x11ee @0x13
0x11db…1204 at0014 = ╱9d╱ EXEC ╱ // 0x11ef @0x14
0x11db…1204 at0015 = ╱52╱R╱ // 0x11f0 @0x15
0x11db…1204 at0016 = ╱45╱E╱ // 0x11f1 @0x16
0x11db…1204 at0017 = ╱54╱T╱ // 0x11f2 @0x17
0x11db…1204 at0018 = ╱5f╱_╱ // 0x11f3 @0x18
0x11db…1204 at0019 = ╱4c╱L╱ // 0x11f4 @0x19
0x11db…1204 at001a = ╱49╱I╱ // 0x11f5 @0x1a
0x11db…1204 at001b = ╱4e╱N╱ // 0x11f6 @0x1b
0x11db…1204 at001c = ╱49╱I╱ // 0x11f7 @0x1c
0x11db…1204 at001d = ╱45╱E╱ // 0x11f8 @0x1d
0x11db…1204 at001e = ╱ed╱ ( ╱ // 0x11f9 @0x1e
0x11db…1204 at001f = ╱cf╱ ASC ╱ // 0x11fa @0x1f
0x11db…1204 at0020 = ╱ed╱ ( ╱ // 0x11fb @0x20
0x11db…1204 at0021 = ╱53╱S╱ // 0x11fc @0x21
0x11db…1204 at0022 = ╱56╱V╱ // 0x11fd @0x22
0x11db…1204 at0023 = ╱41╱A╱ // 0x11fe @0x23
0x11db…1204 at0024 = ╱52╱R╱ // 0x11ff @0x24
0x11db…1204 at0025 = ╱ef╱ $ ╱ // 0x1200 @0x25
0x11db…1204 at0026 = ╱ee╱ ) ╱ // 0x1201 @0x26
0x11db…1204 at0027 = ╱ee╱ ) ╱ // 0x1202 @0x27
0x11db…1204 at0028 = EOL // 0x1203 @0x28
0x11db…1204 }
0x1204…1212 a800 01570 LET SVAR $ := ""
0x1204…1212 LineComal80 {
0x1204…1212 ptr = 0xa800 // 0x1204 @0x0
0x1204…1212 lno = 0x0622 // 0x1206 @0x2
0x1204…1212 at0004 = ╱86╱ LET ╱ // 0x1208 @0x4
0x1204…1212 at0005 = ╱53╱S╱ // 0x1209 @0x5
0x1204…1212 at0006 = ╱56╱V╱ // 0x120a @0x6
0x1204…1212 at0007 = ╱41╱A╱ // 0x120b @0x7
0x1204…1212 at0008 = ╱52╱R╱ // 0x120c @0x8
0x1204…1212 at0009 = ╱ef╱ $ ╱ // 0x120d @0x9
0x1204…1212 at000a = ╱f0╱ := ╱ // 0x120e @0xa
0x1204…1212 at000b = ╱22╱"╱ // 0x120f @0xb
0x1204…1212 at000c = ╱22╱"╱ // 0x1210 @0xc
0x1204…1212 at000d = EOL // 0x1211 @0xd
0x1204…1212 }
0x1212…1218 a806 01580 ENDIF
0x1212…1218 LineComal80 {
0x1212…1218 ptr = 0xa806 // 0x1212 @0x0
0x1212…1218 lno = 0x062c // 0x1214 @0x2
0x1212…1218 at0004 = ╱9c╱ ENDIF ╱ // 0x1216 @0x4
0x1212…1218 at0005 = EOL // 0x1217 @0x5
0x1212…1218 }
0x1218…1223 a811 01590 UNTIL FALSE
0x1218…1223 LineComal80 {
0x1218…1223 ptr = 0xa811 // 0x1218 @0x0
0x1218…1223 lno = 0x0636 // 0x121a @0x2
0x1218…1223 at0004 = ╱98╱ UNTIL ╱ // 0x121c @0x4
0x1218…1223 at0005 = ╱46╱F╱ // 0x121d @0x5
0x1218…1223 at0006 = ╱41╱A╱ // 0x121e @0x6
0x1218…1223 at0007 = ╱4c╱L╱ // 0x121f @0x7
0x1218…1223 at0008 = ╱53╱S╱ // 0x1220 @0x8
0x1218…1223 at0009 = ╱45╱E╱ // 0x1221 @0x9
0x1218…1223 at000a = EOL // 0x1222 @0xa
0x1218…1223 }
0x1223…122d a81b 01600 ENDPROC MENU
0x1223…122d LineComal80 {
0x1223…122d ptr = 0xa81b // 0x1223 @0x0
0x1223…122d lno = 0x0640 // 0x1225 @0x2
0x1223…122d at0004 = ╱9f╱ ENDPROC ╱ // 0x1227 @0x4
0x1223…122d at0005 = ╱4d╱M╱ // 0x1228 @0x5
0x1223…122d at0006 = ╱45╱E╱ // 0x1229 @0x6
0x1223…122d at0007 = ╱4e╱N╱ // 0x122a @0x7
0x1223…122d at0008 = ╱55╱U╱ // 0x122b @0x8
0x1223…122d at0009 = EOL // 0x122c @0x9
0x1223…122d }
0x122d…1232 a820 01610
0x122d…1232 LineComal80 {
0x122d…1232 ptr = 0xa820 // 0x122d @0x0
0x122d…1232 lno = 0x064a // 0x122f @0x2
0x122d…1232 at0004 = EOL // 0x1231 @0x4
0x122d…1232 }
0x1232…1249 a837 01620 PROC RET_LINIE ( R_LIN )
0x1232…1249 LineComal80 {
0x1232…1249 ptr = 0xa837 // 0x1232 @0x0
0x1232…1249 lno = 0x0654 // 0x1234 @0x2
0x1232…1249 at0004 = ╱9e00╱ PROC ╱ // 0x1236 @0x4
0x1232…1249 at0006 = ╱52╱R╱ // 0x1238 @0x6
0x1232…1249 at0007 = ╱45╱E╱ // 0x1239 @0x7
0x1232…1249 at0008 = ╱54╱T╱ // 0x123a @0x8
0x1232…1249 at0009 = ╱5f╱_╱ // 0x123b @0x9
0x1232…1249 at000a = ╱4c╱L╱ // 0x123c @0xa
0x1232…1249 at000b = ╱49╱I╱ // 0x123d @0xb
0x1232…1249 at000c = ╱4e╱N╱ // 0x123e @0xc
0x1232…1249 at000d = ╱49╱I╱ // 0x123f @0xd
0x1232…1249 at000e = ╱45╱E╱ // 0x1240 @0xe
0x1232…1249 at000f = ╱ed╱ ( ╱ // 0x1241 @0xf
0x1232…1249 at0010 = ╱52╱R╱ // 0x1242 @0x10
0x1232…1249 at0011 = ╱5f╱_╱ // 0x1243 @0x11
0x1232…1249 at0012 = ╱4c╱L╱ // 0x1244 @0x12
0x1232…1249 at0013 = ╱49╱I╱ // 0x1245 @0x13
0x1232…1249 at0014 = ╱4e╱N╱ // 0x1246 @0x14
0x1232…1249 at0015 = ╱ee╱ ) ╱ // 0x1247 @0x15
0x1232…1249 at0016 = EOL // 0x1248 @0x16
0x1232…1249 }
0x1249…126a a858 01630 PRINT "<SC0123>" ; SPC $ ( 1 : 78 )
0x1249…126a LineComal80 {
0x1249…126a ptr = 0xa858 // 0x1249 @0x0
0x1249…126a lno = 0x065e // 0x124b @0x2
0x1249…126a at0004 = ╱92╱ PRINT ╱ // 0x124d @0x4
0x1249…126a at0005 = ╱22╱"╱ // 0x124e @0x5
0x1249…126a at0006 = ╱3c╱<╱ // 0x124f @0x6
0x1249…126a at0007 = ╱53╱S╱ // 0x1250 @0x7
0x1249…126a at0008 = ╱43╱C╱ // 0x1251 @0x8
0x1249…126a at0009 = ╱30╱0╱ // 0x1252 @0x9
0x1249…126a at000a = ╱31╱1╱ // 0x1253 @0xa
0x1249…126a at000b = ╱32╱2╱ // 0x1254 @0xb
0x1249…126a at000c = ╱33╱3╱ // 0x1255 @0xc
0x1249…126a at000d = ╱3e╱>╱ // 0x1256 @0xd
0x1249…126a at000e = ╱22╱"╱ // 0x1257 @0xe
0x1249…126a at000f = ╱ea╱ ; ╱ // 0x1258 @0xf
0x1249…126a at0010 = ╱53╱S╱ // 0x1259 @0x10
0x1249…126a at0011 = ╱50╱P╱ // 0x125a @0x11
0x1249…126a at0012 = ╱43╱C╱ // 0x125b @0x12
0x1249…126a at0013 = ╱ef╱ $ ╱ // 0x125c @0x13
0x1249…126a at0014 = ╱ed╱ ( ╱ // 0x125d @0x14
0x1249…126a at0015 = ╱31╱1╱ // 0x125e @0x15
0x1249…126a at0016 = ╱f20100╱ // 0x125f @0x16
0x1249…126a at0019 = ╱f1╱ : ╱ // 0x1262 @0x19
0x1249…126a at001a = ╱37╱7╱ // 0x1263 @0x1a
0x1249…126a at001b = ╱38╱8╱ // 0x1264 @0x1b
0x1249…126a at001c = ╱f24e00╱ // 0x1265 @0x1c
0x1249…126a at001f = ╱ee╱ ) ╱ // 0x1268 @0x1f
0x1249…126a at0020 = EOL // 0x1269 @0x20
0x1249…126a }
0x126a…1278 a866 01640 CASE R_LIN OF
0x126a…1278 LineComal80 {
0x126a…1278 ptr = 0xa866 // 0x126a @0x0
0x126a…1278 lno = 0x0668 // 0x126c @0x2
0x126a…1278 at0004 = ╱a20001╱ CASE ╱ // 0x126e @0x4
0x126a…1278 at0007 = ╱52╱R╱ // 0x1271 @0x7
0x126a…1278 at0008 = ╱5f╱_╱ // 0x1272 @0x8
0x126a…1278 at0009 = ╱4c╱L╱ // 0x1273 @0x9
0x126a…1278 at000a = ╱49╱I╱ // 0x1274 @0xa
0x126a…1278 at000b = ╱4e╱N╱ // 0x1275 @0xb
0x126a…1278 at000c = ╱ba╱ OF ╱ // 0x1276 @0xc
0x126a…1278 at000d = EOL // 0x1277 @0xd
0x126a…1278 }
0x1278…1284 a872 01650 WHILE 1
0x1278…1284 LineComal80 {
0x1278…1284 ptr = 0xa872 // 0x1278 @0x0
0x1278…1284 lno = 0x0672 // 0x127a @0x2
0x1278…1284 at0004 = ╱a40001╱ WHILE ╱ // 0x127c @0x4
0x1278…1284 at0007 = ╱31╱1╱ // 0x127f @0x7
0x1278…1284 at0008 = ╱f20100╱ // 0x1280 @0x8
0x1278…1284 at000b = EOL // 0x1283 @0xb
0x1278…1284 }
0x1284…1297 a885 01660 LET FIRMANAVN $ := ""
0x1284…1297 LineComal80 {
0x1284…1297 ptr = 0xa885 // 0x1284 @0x0
0x1284…1297 lno = 0x067c // 0x1286 @0x2
0x1284…1297 at0004 = ╱86╱ LET ╱ // 0x1288 @0x4
0x1284…1297 at0005 = ╱46╱F╱ // 0x1289 @0x5
0x1284…1297 at0006 = ╱49╱I╱ // 0x128a @0x6
0x1284…1297 at0007 = ╱52╱R╱ // 0x128b @0x7
0x1284…1297 at0008 = ╱4d╱M╱ // 0x128c @0x8
0x1284…1297 at0009 = ╱41╱A╱ // 0x128d @0x9
0x1284…1297 at000a = ╱4e╱N╱ // 0x128e @0xa
0x1284…1297 at000b = ╱41╱A╱ // 0x128f @0xb
0x1284…1297 at000c = ╱56╱V╱ // 0x1290 @0xc
0x1284…1297 at000d = ╱4e╱N╱ // 0x1291 @0xd
0x1284…1297 at000e = ╱ef╱ $ ╱ // 0x1292 @0xe
0x1284…1297 at000f = ╱f0╱ := ╱ // 0x1293 @0xf
0x1284…1297 at0010 = ╱22╱"╱ // 0x1294 @0x10
0x1284…1297 at0011 = ╱22╱"╱ // 0x1295 @0x11
0x1284…1297 at0012 = EOL // 0x1296 @0x12
0x1284…1297 }
0x1297…12c5 a8b3 01670 PRINT "<SC1623>.............................."
0x1297…12c5 LineComal80 {
0x1297…12c5 ptr = 0xa8b3 // 0x1297 @0x0
0x1297…12c5 lno = 0x0686 // 0x1299 @0x2
0x1297…12c5 at0004 = ╱92╱ PRINT ╱ // 0x129b @0x4
0x1297…12c5 at0005 = ╱22╱"╱ // 0x129c @0x5
0x1297…12c5 at0006 = ╱3c╱<╱ // 0x129d @0x6
0x1297…12c5 at0007 = ╱53╱S╱ // 0x129e @0x7
0x1297…12c5 at0008 = ╱43╱C╱ // 0x129f @0x8
0x1297…12c5 at0009 = ╱31╱1╱ // 0x12a0 @0x9
0x1297…12c5 at000a = ╱36╱6╱ // 0x12a1 @0xa
0x1297…12c5 at000b = ╱32╱2╱ // 0x12a2 @0xb
0x1297…12c5 at000c = ╱33╱3╱ // 0x12a3 @0xc
0x1297…12c5 at000d = ╱3e╱>╱ // 0x12a4 @0xd
0x1297…12c5 at000e = ╱2e╱.╱ // 0x12a5 @0xe
0x1297…12c5 at000f = ╱2e╱.╱ // 0x12a6 @0xf
0x1297…12c5 at0010 = ╱2e╱.╱ // 0x12a7 @0x10
0x1297…12c5 at0011 = ╱2e╱.╱ // 0x12a8 @0x11
0x1297…12c5 at0012 = ╱2e╱.╱ // 0x12a9 @0x12
0x1297…12c5 at0013 = ╱2e╱.╱ // 0x12aa @0x13
0x1297…12c5 at0014 = ╱2e╱.╱ // 0x12ab @0x14
0x1297…12c5 at0015 = ╱2e╱.╱ // 0x12ac @0x15
0x1297…12c5 at0016 = ╱2e╱.╱ // 0x12ad @0x16
0x1297…12c5 at0017 = ╱2e╱.╱ // 0x12ae @0x17
0x1297…12c5 at0018 = ╱2e╱.╱ // 0x12af @0x18
0x1297…12c5 at0019 = ╱2e╱.╱ // 0x12b0 @0x19
0x1297…12c5 at001a = ╱2e╱.╱ // 0x12b1 @0x1a
0x1297…12c5 at001b = ╱2e╱.╱ // 0x12b2 @0x1b
0x1297…12c5 at001c = ╱2e╱.╱ // 0x12b3 @0x1c
0x1297…12c5 at001d = ╱2e╱.╱ // 0x12b4 @0x1d
0x1297…12c5 at001e = ╱2e╱.╱ // 0x12b5 @0x1e
0x1297…12c5 at001f = ╱2e╱.╱ // 0x12b6 @0x1f
0x1297…12c5 at0020 = ╱2e╱.╱ // 0x12b7 @0x20
0x1297…12c5 at0021 = ╱2e╱.╱ // 0x12b8 @0x21
0x1297…12c5 at0022 = ╱2e╱.╱ // 0x12b9 @0x22
0x1297…12c5 at0023 = ╱2e╱.╱ // 0x12ba @0x23
0x1297…12c5 at0024 = ╱2e╱.╱ // 0x12bb @0x24
0x1297…12c5 at0025 = ╱2e╱.╱ // 0x12bc @0x25
0x1297…12c5 at0026 = ╱2e╱.╱ // 0x12bd @0x26
0x1297…12c5 at0027 = ╱2e╱.╱ // 0x12be @0x27
0x1297…12c5 at0028 = ╱2e╱.╱ // 0x12bf @0x28
0x1297…12c5 at0029 = ╱2e╱.╱ // 0x12c0 @0x29
0x1297…12c5 at002a = ╱2e╱.╱ // 0x12c1 @0x2a
0x1297…12c5 at002b = ╱2e╱.╱ // 0x12c2 @0x2b
0x1297…12c5 at002c = ╱22╱"╱ // 0x12c3 @0x2c
0x1297…12c5 at002d = EOL // 0x12c4 @0x2d
0x1297…12c5 }
0x12c5…12ef a8dd 01680 EDIT "<SC0223>1.……Firmanavn:…" : FIRMANAVN $
0x12c5…12ef LineComal80 {
0x12c5…12ef ptr = 0xa8dd // 0x12c5 @0x0
0x12c5…12ef lno = 0x0690 // 0x12c7 @0x2
0x12c5…12ef at0004 = ╱b1╱ EDIT ╱ // 0x12c9 @0x4
0x12c5…12ef at0005 = ╱22╱"╱ // 0x12ca @0x5
0x12c5…12ef at0006 = ╱3c╱<╱ // 0x12cb @0x6
0x12c5…12ef at0007 = ╱53╱S╱ // 0x12cc @0x7
0x12c5…12ef at0008 = ╱43╱C╱ // 0x12cd @0x8
0x12c5…12ef at0009 = ╱30╱0╱ // 0x12ce @0x9
0x12c5…12ef at000a = ╱32╱2╱ // 0x12cf @0xa
0x12c5…12ef at000b = ╱32╱2╱ // 0x12d0 @0xb
0x12c5…12ef at000c = ╱33╱3╱ // 0x12d1 @0xc
0x12c5…12ef at000d = ╱3e╱>╱ // 0x12d2 @0xd
0x12c5…12ef at000e = ╱31╱1╱ // 0x12d3 @0xe
0x12c5…12ef at000f = ╱2e╱.╱ // 0x12d4 @0xf
0x12c5…12ef at0010 = ╱20╱…╱ // 0x12d5 @0x10
0x12c5…12ef at0011 = ╱20╱…╱ // 0x12d6 @0x11
0x12c5…12ef at0012 = ╱46╱F╱ // 0x12d7 @0x12
0x12c5…12ef at0013 = ╱69╱i╱ // 0x12d8 @0x13
0x12c5…12ef at0014 = ╱72╱r╱ // 0x12d9 @0x14
0x12c5…12ef at0015 = ╱6d╱m╱ // 0x12da @0x15
0x12c5…12ef at0016 = ╱61╱a╱ // 0x12db @0x16
0x12c5…12ef at0017 = ╱6e╱n╱ // 0x12dc @0x17
0x12c5…12ef at0018 = ╱61╱a╱ // 0x12dd @0x18
0x12c5…12ef at0019 = ╱76╱v╱ // 0x12de @0x19
0x12c5…12ef at001a = ╱6e╱n╱ // 0x12df @0x1a
0x12c5…12ef at001b = ╱3a╱:╱ // 0x12e0 @0x1b
0x12c5…12ef at001c = ╱20╱…╱ // 0x12e1 @0x1c
0x12c5…12ef at001d = ╱22╱"╱ // 0x12e2 @0x1d
0x12c5…12ef at001e = ╱f1╱ : ╱ // 0x12e3 @0x1e
0x12c5…12ef at001f = ╱46╱F╱ // 0x12e4 @0x1f
0x12c5…12ef at0020 = ╱49╱I╱ // 0x12e5 @0x20
0x12c5…12ef at0021 = ╱52╱R╱ // 0x12e6 @0x21
0x12c5…12ef at0022 = ╱4d╱M╱ // 0x12e7 @0x22
0x12c5…12ef at0023 = ╱41╱A╱ // 0x12e8 @0x23
0x12c5…12ef at0024 = ╱4e╱N╱ // 0x12e9 @0x24
0x12c5…12ef at0025 = ╱41╱A╱ // 0x12ea @0x25
0x12c5…12ef at0026 = ╱56╱V╱ // 0x12eb @0x26
0x12c5…12ef at0027 = ╱4e╱N╱ // 0x12ec @0x27
0x12c5…12ef at0028 = ╱ef╱ $ ╱ // 0x12ed @0x28
0x12c5…12ef at0029 = EOL // 0x12ee @0x29
0x12c5…12ef }
0x12ef…131a a908 01690 PUT PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x12ef…131a LineComal80 {
0x12ef…131a ptr = 0xa908 // 0x12ef @0x0
0x12ef…131a lno = 0x069a // 0x12f1 @0x2
0x12ef…131a at0004 = ╱aa╱ PUT ╱ // 0x12f3 @0x4
0x12ef…131a at0005 = ╱50╱P╱ // 0x12f4 @0x5
0x12ef…131a at0006 = ╱41╱A╱ // 0x12f5 @0x6
0x12ef…131a at0007 = ╱52╱R╱ // 0x12f6 @0x7
0x12ef…131a at0008 = ╱41╱A╱ // 0x12f7 @0x8
0x12ef…131a at0009 = ╱4d╱M╱ // 0x12f8 @0x9
0x12ef…131a at000a = ╱ef╱ $ ╱ // 0x12f9 @0xa
0x12ef…131a at000b = ╱ec╱ , ╱ // 0x12fa @0xb
0x12ef…131a at000c = ╱31╱1╱ // 0x12fb @0xc
0x12ef…131a at000d = ╱f20100╱ // 0x12fc @0xd
0x12ef…131a at0010 = ╱f1╱ : ╱ // 0x12ff @0x10
0x12ef…131a at0011 = ╱46╱F╱ // 0x1300 @0x11
0x12ef…131a at0012 = ╱49╱I╱ // 0x1301 @0x12
0x12ef…131a at0013 = ╱52╱R╱ // 0x1302 @0x13
0x12ef…131a at0014 = ╱4d╱M╱ // 0x1303 @0x14
0x12ef…131a at0015 = ╱41╱A╱ // 0x1304 @0x15
0x12ef…131a at0016 = ╱4e╱N╱ // 0x1305 @0x16
0x12ef…131a at0017 = ╱41╱A╱ // 0x1306 @0x17
0x12ef…131a at0018 = ╱56╱V╱ // 0x1307 @0x18
0x12ef…131a at0019 = ╱4e╱N╱ // 0x1308 @0x19
0x12ef…131a at001a = ╱ef╱ $ ╱ // 0x1309 @0x1a
0x12ef…131a at001b = ╱ec╱ , ╱ // 0x130a @0x1b
0x12ef…131a at001c = ╱53╱S╱ // 0x130b @0x1c
0x12ef…131a at001d = ╱59╱Y╱ // 0x130c @0x1d
0x12ef…131a at001e = ╱53╱S╱ // 0x130d @0x1e
0x12ef…131a at001f = ╱54╱T╱ // 0x130e @0x1f
0x12ef…131a at0020 = ╱5f╱_╱ // 0x130f @0x20
0x12ef…131a at0021 = ╱44╱D╱ // 0x1310 @0x21
0x12ef…131a at0022 = ╱41╱A╱ // 0x1311 @0x22
0x12ef…131a at0023 = ╱54╱T╱ // 0x1312 @0x23
0x12ef…131a at0024 = ╱ef╱ $ ╱ // 0x1313 @0x24
0x12ef…131a at0025 = ╱ec╱ , ╱ // 0x1314 @0x25
0x12ef…131a at0026 = ╱4d╱M╱ // 0x1315 @0x26
0x12ef…131a at0027 = ╱4f╱O╱ // 0x1316 @0x27
0x12ef…131a at0028 = ╱4d╱M╱ // 0x1317 @0x28
0x12ef…131a at0029 = ╱53╱S╱ // 0x1318 @0x29
0x12ef…131a at002a = EOL // 0x1319 @0x2a
0x12ef…131a }
0x131a…133b a929 01700 PRINT "<SC0101>" ; SPC $ ( 1 : 50 )
0x131a…133b LineComal80 {
0x131a…133b ptr = 0xa929 // 0x131a @0x0
0x131a…133b lno = 0x06a4 // 0x131c @0x2
0x131a…133b at0004 = ╱92╱ PRINT ╱ // 0x131e @0x4
0x131a…133b at0005 = ╱22╱"╱ // 0x131f @0x5
0x131a…133b at0006 = ╱3c╱<╱ // 0x1320 @0x6
0x131a…133b at0007 = ╱53╱S╱ // 0x1321 @0x7
0x131a…133b at0008 = ╱43╱C╱ // 0x1322 @0x8
0x131a…133b at0009 = ╱30╱0╱ // 0x1323 @0x9
0x131a…133b at000a = ╱31╱1╱ // 0x1324 @0xa
0x131a…133b at000b = ╱30╱0╱ // 0x1325 @0xb
0x131a…133b at000c = ╱31╱1╱ // 0x1326 @0xc
0x131a…133b at000d = ╱3e╱>╱ // 0x1327 @0xd
0x131a…133b at000e = ╱22╱"╱ // 0x1328 @0xe
0x131a…133b at000f = ╱ea╱ ; ╱ // 0x1329 @0xf
0x131a…133b at0010 = ╱53╱S╱ // 0x132a @0x10
0x131a…133b at0011 = ╱50╱P╱ // 0x132b @0x11
0x131a…133b at0012 = ╱43╱C╱ // 0x132c @0x12
0x131a…133b at0013 = ╱ef╱ $ ╱ // 0x132d @0x13
0x131a…133b at0014 = ╱ed╱ ( ╱ // 0x132e @0x14
0x131a…133b at0015 = ╱31╱1╱ // 0x132f @0x15
0x131a…133b at0016 = ╱f20100╱ // 0x1330 @0x16
0x131a…133b at0019 = ╱f1╱ : ╱ // 0x1333 @0x19
0x131a…133b at001a = ╱35╱5╱ // 0x1334 @0x1a
0x131a…133b at001b = ╱30╱0╱ // 0x1335 @0x1b
0x131a…133b at001c = ╱f23200╱ // 0x1336 @0x1c
0x131a…133b at001f = ╱ee╱ ) ╱ // 0x1339 @0x1f
0x131a…133b at0020 = EOL // 0x133a @0x20
0x131a…133b }
0x133b…1361 a94f 01710 PRINT "<SC0101>Firmanavn:…" ; FIRMANAVN $
0x133b…1361 LineComal80 {
0x133b…1361 ptr = 0xa94f // 0x133b @0x0
0x133b…1361 lno = 0x06ae // 0x133d @0x2
0x133b…1361 at0004 = ╱92╱ PRINT ╱ // 0x133f @0x4
0x133b…1361 at0005 = ╱22╱"╱ // 0x1340 @0x5
0x133b…1361 at0006 = ╱3c╱<╱ // 0x1341 @0x6
0x133b…1361 at0007 = ╱53╱S╱ // 0x1342 @0x7
0x133b…1361 at0008 = ╱43╱C╱ // 0x1343 @0x8
0x133b…1361 at0009 = ╱30╱0╱ // 0x1344 @0x9
0x133b…1361 at000a = ╱31╱1╱ // 0x1345 @0xa
0x133b…1361 at000b = ╱30╱0╱ // 0x1346 @0xb
0x133b…1361 at000c = ╱31╱1╱ // 0x1347 @0xc
0x133b…1361 at000d = ╱3e╱>╱ // 0x1348 @0xd
0x133b…1361 at000e = ╱46╱F╱ // 0x1349 @0xe
0x133b…1361 at000f = ╱69╱i╱ // 0x134a @0xf
0x133b…1361 at0010 = ╱72╱r╱ // 0x134b @0x10
0x133b…1361 at0011 = ╱6d╱m╱ // 0x134c @0x11
0x133b…1361 at0012 = ╱61╱a╱ // 0x134d @0x12
0x133b…1361 at0013 = ╱6e╱n╱ // 0x134e @0x13
0x133b…1361 at0014 = ╱61╱a╱ // 0x134f @0x14
0x133b…1361 at0015 = ╱76╱v╱ // 0x1350 @0x15
0x133b…1361 at0016 = ╱6e╱n╱ // 0x1351 @0x16
0x133b…1361 at0017 = ╱3a╱:╱ // 0x1352 @0x17
0x133b…1361 at0018 = ╱20╱…╱ // 0x1353 @0x18
0x133b…1361 at0019 = ╱22╱"╱ // 0x1354 @0x19
0x133b…1361 at001a = ╱ea╱ ; ╱ // 0x1355 @0x1a
0x133b…1361 at001b = ╱46╱F╱ // 0x1356 @0x1b
0x133b…1361 at001c = ╱49╱I╱ // 0x1357 @0x1c
0x133b…1361 at001d = ╱52╱R╱ // 0x1358 @0x1d
0x133b…1361 at001e = ╱4d╱M╱ // 0x1359 @0x1e
0x133b…1361 at001f = ╱41╱A╱ // 0x135a @0x1f
0x133b…1361 at0020 = ╱4e╱N╱ // 0x135b @0x20
0x133b…1361 at0021 = ╱41╱A╱ // 0x135c @0x21
0x133b…1361 at0022 = ╱56╱V╱ // 0x135d @0x22
0x133b…1361 at0023 = ╱4e╱N╱ // 0x135e @0x23
0x133b…1361 at0024 = ╱ef╱ $ ╱ // 0x135f @0x24
0x133b…1361 at0025 = EOL // 0x1360 @0x25
0x133b…1361 }
0x1361…136d a95b 01720 WHILE 2
0x1361…136d LineComal80 {
0x1361…136d ptr = 0xa95b // 0x1361 @0x0
0x1361…136d lno = 0x06b8 // 0x1363 @0x2
0x1361…136d at0004 = ╱a40001╱ WHILE ╱ // 0x1365 @0x4
0x1361…136d at0007 = ╱32╱2╱ // 0x1368 @0x7
0x1361…136d at0008 = ╱f20200╱ // 0x1369 @0x8
0x1361…136d at000b = EOL // 0x136c @0xb
0x1361…136d }
0x136d…138a a978 01730 LET SVAR $ := CHR$ ( MOMS , 2 , 2 )
0x136d…138a LineComal80 {
0x136d…138a ptr = 0xa978 // 0x136d @0x0
0x136d…138a lno = 0x06c2 // 0x136f @0x2
0x136d…138a at0004 = ╱86╱ LET ╱ // 0x1371 @0x4
0x136d…138a at0005 = ╱53╱S╱ // 0x1372 @0x5
0x136d…138a at0006 = ╱56╱V╱ // 0x1373 @0x6
0x136d…138a at0007 = ╱41╱A╱ // 0x1374 @0x7
0x136d…138a at0008 = ╱52╱R╱ // 0x1375 @0x8
0x136d…138a at0009 = ╱ef╱ $ ╱ // 0x1376 @0x9
0x136d…138a at000a = ╱f0╱ := ╱ // 0x1377 @0xa
0x136d…138a at000b = ╱d0╱ CHR$ ╱ // 0x1378 @0xb
0x136d…138a at000c = ╱ed╱ ( ╱ // 0x1379 @0xc
0x136d…138a at000d = ╱4d╱M╱ // 0x137a @0xd
0x136d…138a at000e = ╱4f╱O╱ // 0x137b @0xe
0x136d…138a at000f = ╱4d╱M╱ // 0x137c @0xf
0x136d…138a at0010 = ╱53╱S╱ // 0x137d @0x10
0x136d…138a at0011 = ╱ec╱ , ╱ // 0x137e @0x11
0x136d…138a at0012 = ╱32╱2╱ // 0x137f @0x12
0x136d…138a at0013 = ╱f20200╱ // 0x1380 @0x13
0x136d…138a at0016 = ╱ec╱ , ╱ // 0x1383 @0x16
0x136d…138a at0017 = ╱32╱2╱ // 0x1384 @0x17
0x136d…138a at0018 = ╱f20200╱ // 0x1385 @0x18
0x136d…138a at001b = ╱ee╱ ) ╱ // 0x1388 @0x1b
0x136d…138a at001c = EOL // 0x1389 @0x1c
0x136d…138a }
0x138a…1391 a97f 01740 REPEAT
0x138a…1391 LineComal80 {
0x138a…1391 ptr = 0xa97f // 0x138a @0x0
0x138a…1391 lno = 0x06cc // 0x138c @0x2
0x138a…1391 at0004 = ╱9700╱ REPEAT ╱ // 0x138e @0x4
0x138a…1391 at0006 = EOL // 0x1390 @0x6
0x138a…1391 }
0x1391…13b2 a9a0 01750 PRINT "<SC0223>" ; SPC $ ( 1 : 20 )
0x1391…13b2 LineComal80 {
0x1391…13b2 ptr = 0xa9a0 // 0x1391 @0x0
0x1391…13b2 lno = 0x06d6 // 0x1393 @0x2
0x1391…13b2 at0004 = ╱92╱ PRINT ╱ // 0x1395 @0x4
0x1391…13b2 at0005 = ╱22╱"╱ // 0x1396 @0x5
0x1391…13b2 at0006 = ╱3c╱<╱ // 0x1397 @0x6
0x1391…13b2 at0007 = ╱53╱S╱ // 0x1398 @0x7
0x1391…13b2 at0008 = ╱43╱C╱ // 0x1399 @0x8
0x1391…13b2 at0009 = ╱30╱0╱ // 0x139a @0x9
0x1391…13b2 at000a = ╱32╱2╱ // 0x139b @0xa
0x1391…13b2 at000b = ╱32╱2╱ // 0x139c @0xb
0x1391…13b2 at000c = ╱33╱3╱ // 0x139d @0xc
0x1391…13b2 at000d = ╱3e╱>╱ // 0x139e @0xd
0x1391…13b2 at000e = ╱22╱"╱ // 0x139f @0xe
0x1391…13b2 at000f = ╱ea╱ ; ╱ // 0x13a0 @0xf
0x1391…13b2 at0010 = ╱53╱S╱ // 0x13a1 @0x10
0x1391…13b2 at0011 = ╱50╱P╱ // 0x13a2 @0x11
0x1391…13b2 at0012 = ╱43╱C╱ // 0x13a3 @0x12
0x1391…13b2 at0013 = ╱ef╱ $ ╱ // 0x13a4 @0x13
0x1391…13b2 at0014 = ╱ed╱ ( ╱ // 0x13a5 @0x14
0x1391…13b2 at0015 = ╱31╱1╱ // 0x13a6 @0x15
0x1391…13b2 at0016 = ╱f20100╱ // 0x13a7 @0x16
0x1391…13b2 at0019 = ╱f1╱ : ╱ // 0x13aa @0x19
0x1391…13b2 at001a = ╱32╱2╱ // 0x13ab @0x1a
0x1391…13b2 at001b = ╱30╱0╱ // 0x13ac @0x1b
0x1391…13b2 at001c = ╱f21400╱ // 0x13ad @0x1c
0x1391…13b2 at001f = ╱ee╱ ) ╱ // 0x13b0 @0x1f
0x1391…13b2 at0020 = EOL // 0x13b1 @0x20
0x1391…13b2 }
0x13b2…13d9 a9c7 01760 EDIT "<SC0223>2.……Momsprocent:…" : SVAR $
0x13b2…13d9 LineComal80 {
0x13b2…13d9 ptr = 0xa9c7 // 0x13b2 @0x0
0x13b2…13d9 lno = 0x06e0 // 0x13b4 @0x2
0x13b2…13d9 at0004 = ╱b1╱ EDIT ╱ // 0x13b6 @0x4
0x13b2…13d9 at0005 = ╱22╱"╱ // 0x13b7 @0x5
0x13b2…13d9 at0006 = ╱3c╱<╱ // 0x13b8 @0x6
0x13b2…13d9 at0007 = ╱53╱S╱ // 0x13b9 @0x7
0x13b2…13d9 at0008 = ╱43╱C╱ // 0x13ba @0x8
0x13b2…13d9 at0009 = ╱30╱0╱ // 0x13bb @0x9
0x13b2…13d9 at000a = ╱32╱2╱ // 0x13bc @0xa
0x13b2…13d9 at000b = ╱32╱2╱ // 0x13bd @0xb
0x13b2…13d9 at000c = ╱33╱3╱ // 0x13be @0xc
0x13b2…13d9 at000d = ╱3e╱>╱ // 0x13bf @0xd
0x13b2…13d9 at000e = ╱32╱2╱ // 0x13c0 @0xe
0x13b2…13d9 at000f = ╱2e╱.╱ // 0x13c1 @0xf
0x13b2…13d9 at0010 = ╱20╱…╱ // 0x13c2 @0x10
0x13b2…13d9 at0011 = ╱20╱…╱ // 0x13c3 @0x11
0x13b2…13d9 at0012 = ╱4d╱M╱ // 0x13c4 @0x12
0x13b2…13d9 at0013 = ╱6f╱o╱ // 0x13c5 @0x13
0x13b2…13d9 at0014 = ╱6d╱m╱ // 0x13c6 @0x14
0x13b2…13d9 at0015 = ╱73╱s╱ // 0x13c7 @0x15
0x13b2…13d9 at0016 = ╱70╱p╱ // 0x13c8 @0x16
0x13b2…13d9 at0017 = ╱72╱r╱ // 0x13c9 @0x17
0x13b2…13d9 at0018 = ╱6f╱o╱ // 0x13ca @0x18
0x13b2…13d9 at0019 = ╱63╱c╱ // 0x13cb @0x19
0x13b2…13d9 at001a = ╱65╱e╱ // 0x13cc @0x1a
0x13b2…13d9 at001b = ╱6e╱n╱ // 0x13cd @0x1b
0x13b2…13d9 at001c = ╱74╱t╱ // 0x13ce @0x1c
0x13b2…13d9 at001d = ╱3a╱:╱ // 0x13cf @0x1d
0x13b2…13d9 at001e = ╱20╱…╱ // 0x13d0 @0x1e
0x13b2…13d9 at001f = ╱22╱"╱ // 0x13d1 @0x1f
0x13b2…13d9 at0020 = ╱f1╱ : ╱ // 0x13d2 @0x20
0x13b2…13d9 at0021 = ╱53╱S╱ // 0x13d3 @0x21
0x13b2…13d9 at0022 = ╱56╱V╱ // 0x13d4 @0x22
0x13b2…13d9 at0023 = ╱41╱A╱ // 0x13d5 @0x23
0x13b2…13d9 at0024 = ╱52╱R╱ // 0x13d6 @0x24
0x13b2…13d9 at0025 = ╱ef╱ $ ╱ // 0x13d7 @0x25
0x13b2…13d9 at0026 = EOL // 0x13d8 @0x26
0x13b2…13d9 }
0x13d9…13eb a9d9 01770 EXEC SL_FEJLLINIE
0x13d9…13eb LineComal80 {
0x13d9…13eb ptr = 0xa9d9 // 0x13d9 @0x0
0x13d9…13eb lno = 0x06ea // 0x13db @0x2
0x13d9…13eb at0004 = ╱9d╱ EXEC ╱ // 0x13dd @0x4
0x13d9…13eb at0005 = ╱53╱S╱ // 0x13de @0x5
0x13d9…13eb at0006 = ╱4c╱L╱ // 0x13df @0x6
0x13d9…13eb at0007 = ╱5f╱_╱ // 0x13e0 @0x7
0x13d9…13eb at0008 = ╱46╱F╱ // 0x13e1 @0x8
0x13d9…13eb at0009 = ╱45╱E╱ // 0x13e2 @0x9
0x13d9…13eb at000a = ╱4a╱J╱ // 0x13e3 @0xa
0x13d9…13eb at000b = ╱4c╱L╱ // 0x13e4 @0xb
0x13d9…13eb at000c = ╱4c╱L╱ // 0x13e5 @0xc
0x13d9…13eb at000d = ╱49╱I╱ // 0x13e6 @0xd
0x13d9…13eb at000e = ╱4e╱N╱ // 0x13e7 @0xe
0x13d9…13eb at000f = ╱49╱I╱ // 0x13e8 @0xf
0x13d9…13eb at0010 = ╱45╱E╱ // 0x13e9 @0x10
0x13d9…13eb at0011 = EOL // 0x13ea @0x11
0x13d9…13eb }
0x13eb…1403 a9f1 01780 EXEC TAL_CONTROL ( SVAR $ )
0x13eb…1403 LineComal80 {
0x13eb…1403 ptr = 0xa9f1 // 0x13eb @0x0
0x13eb…1403 lno = 0x06f4 // 0x13ed @0x2
0x13eb…1403 at0004 = ╱9d╱ EXEC ╱ // 0x13ef @0x4
0x13eb…1403 at0005 = ╱54╱T╱ // 0x13f0 @0x5
0x13eb…1403 at0006 = ╱41╱A╱ // 0x13f1 @0x6
0x13eb…1403 at0007 = ╱4c╱L╱ // 0x13f2 @0x7
0x13eb…1403 at0008 = ╱5f╱_╱ // 0x13f3 @0x8
0x13eb…1403 at0009 = ╱43╱C╱ // 0x13f4 @0x9
0x13eb…1403 at000a = ╱4f╱O╱ // 0x13f5 @0xa
0x13eb…1403 at000b = ╱4e╱N╱ // 0x13f6 @0xb
0x13eb…1403 at000c = ╱54╱T╱ // 0x13f7 @0xc
0x13eb…1403 at000d = ╱52╱R╱ // 0x13f8 @0xd
0x13eb…1403 at000e = ╱4f╱O╱ // 0x13f9 @0xe
0x13eb…1403 at000f = ╱4c╱L╱ // 0x13fa @0xf
0x13eb…1403 at0010 = ╱ed╱ ( ╱ // 0x13fb @0x10
0x13eb…1403 at0011 = ╱53╱S╱ // 0x13fc @0x11
0x13eb…1403 at0012 = ╱56╱V╱ // 0x13fd @0x12
0x13eb…1403 at0013 = ╱41╱A╱ // 0x13fe @0x13
0x13eb…1403 at0014 = ╱52╱R╱ // 0x13ff @0x14
0x13eb…1403 at0015 = ╱ef╱ $ ╱ // 0x1400 @0x15
0x13eb…1403 at0016 = ╱ee╱ ) ╱ // 0x1401 @0x16
0x13eb…1403 at0017 = EOL // 0x1402 @0x17
0x13eb…1403 }
0x1403…140b a9f9 01790 UNTIL OK
0x1403…140b LineComal80 {
0x1403…140b ptr = 0xa9f9 // 0x1403 @0x0
0x1403…140b lno = 0x06fe // 0x1405 @0x2
0x1403…140b at0004 = ╱98╱ UNTIL ╱ // 0x1407 @0x4
0x1403…140b at0005 = ╱4f╱O╱ // 0x1408 @0x5
0x1403…140b at0006 = ╱4b╱K╱ // 0x1409 @0x6
0x1403…140b at0007 = EOL // 0x140a @0x7
0x1403…140b }
0x140b…141e aa0c 01800 LET MOMS := ASC ( SVAR $ )
0x140b…141e LineComal80 {
0x140b…141e ptr = 0xaa0c // 0x140b @0x0
0x140b…141e lno = 0x0708 // 0x140d @0x2
0x140b…141e at0004 = ╱86╱ LET ╱ // 0x140f @0x4
0x140b…141e at0005 = ╱4d╱M╱ // 0x1410 @0x5
0x140b…141e at0006 = ╱4f╱O╱ // 0x1411 @0x6
0x140b…141e at0007 = ╱4d╱M╱ // 0x1412 @0x7
0x140b…141e at0008 = ╱53╱S╱ // 0x1413 @0x8
0x140b…141e at0009 = ╱f0╱ := ╱ // 0x1414 @0x9
0x140b…141e at000a = ╱cf╱ ASC ╱ // 0x1415 @0xa
0x140b…141e at000b = ╱ed╱ ( ╱ // 0x1416 @0xb
0x140b…141e at000c = ╱53╱S╱ // 0x1417 @0xc
0x140b…141e at000d = ╱56╱V╱ // 0x1418 @0xd
0x140b…141e at000e = ╱41╱A╱ // 0x1419 @0xe
0x140b…141e at000f = ╱52╱R╱ // 0x141a @0xf
0x140b…141e at0010 = ╱ef╱ $ ╱ // 0x141b @0x10
0x140b…141e at0011 = ╱ee╱ ) ╱ // 0x141c @0x11
0x140b…141e at0012 = EOL // 0x141d @0x12
0x140b…141e }
0x141e…1449 aa37 01810 PUT PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x141e…1449 LineComal80 {
0x141e…1449 ptr = 0xaa37 // 0x141e @0x0
0x141e…1449 lno = 0x0712 // 0x1420 @0x2
0x141e…1449 at0004 = ╱aa╱ PUT ╱ // 0x1422 @0x4
0x141e…1449 at0005 = ╱50╱P╱ // 0x1423 @0x5
0x141e…1449 at0006 = ╱41╱A╱ // 0x1424 @0x6
0x141e…1449 at0007 = ╱52╱R╱ // 0x1425 @0x7
0x141e…1449 at0008 = ╱41╱A╱ // 0x1426 @0x8
0x141e…1449 at0009 = ╱4d╱M╱ // 0x1427 @0x9
0x141e…1449 at000a = ╱ef╱ $ ╱ // 0x1428 @0xa
0x141e…1449 at000b = ╱ec╱ , ╱ // 0x1429 @0xb
0x141e…1449 at000c = ╱31╱1╱ // 0x142a @0xc
0x141e…1449 at000d = ╱f20100╱ // 0x142b @0xd
0x141e…1449 at0010 = ╱f1╱ : ╱ // 0x142e @0x10
0x141e…1449 at0011 = ╱46╱F╱ // 0x142f @0x11
0x141e…1449 at0012 = ╱49╱I╱ // 0x1430 @0x12
0x141e…1449 at0013 = ╱52╱R╱ // 0x1431 @0x13
0x141e…1449 at0014 = ╱4d╱M╱ // 0x1432 @0x14
0x141e…1449 at0015 = ╱41╱A╱ // 0x1433 @0x15
0x141e…1449 at0016 = ╱4e╱N╱ // 0x1434 @0x16
0x141e…1449 at0017 = ╱41╱A╱ // 0x1435 @0x17
0x141e…1449 at0018 = ╱56╱V╱ // 0x1436 @0x18
0x141e…1449 at0019 = ╱4e╱N╱ // 0x1437 @0x19
0x141e…1449 at001a = ╱ef╱ $ ╱ // 0x1438 @0x1a
0x141e…1449 at001b = ╱ec╱ , ╱ // 0x1439 @0x1b
0x141e…1449 at001c = ╱53╱S╱ // 0x143a @0x1c
0x141e…1449 at001d = ╱59╱Y╱ // 0x143b @0x1d
0x141e…1449 at001e = ╱53╱S╱ // 0x143c @0x1e
0x141e…1449 at001f = ╱54╱T╱ // 0x143d @0x1f
0x141e…1449 at0020 = ╱5f╱_╱ // 0x143e @0x20
0x141e…1449 at0021 = ╱44╱D╱ // 0x143f @0x21
0x141e…1449 at0022 = ╱41╱A╱ // 0x1440 @0x22
0x141e…1449 at0023 = ╱54╱T╱ // 0x1441 @0x23
0x141e…1449 at0024 = ╱ef╱ $ ╱ // 0x1442 @0x24
0x141e…1449 at0025 = ╱ec╱ , ╱ // 0x1443 @0x25
0x141e…1449 at0026 = ╱4d╱M╱ // 0x1444 @0x26
0x141e…1449 at0027 = ╱4f╱O╱ // 0x1445 @0x27
0x141e…1449 at0028 = ╱4d╱M╱ // 0x1446 @0x28
0x141e…1449 at0029 = ╱53╱S╱ // 0x1447 @0x29
0x141e…1449 at002a = EOL // 0x1448 @0x2a
0x141e…1449 }
0x1449…1455 aa43 01820 WHILE 3
0x1449…1455 LineComal80 {
0x1449…1455 ptr = 0xaa43 // 0x1449 @0x0
0x1449…1455 lno = 0x071c // 0x144b @0x2
0x1449…1455 at0004 = ╱a40001╱ WHILE ╱ // 0x144d @0x4
0x1449…1455 at0007 = ╱33╱3╱ // 0x1450 @0x7
0x1449…1455 at0008 = ╱f20300╱ // 0x1451 @0x8
0x1449…1455 at000b = EOL // 0x1454 @0xb
0x1449…1455 }
0x1455…1483 aa71 01830 GET KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE
0x1455…1483 LineComal80 {
0x1455…1483 ptr = 0xaa71 // 0x1455 @0x0
0x1455…1483 lno = 0x0726 // 0x1457 @0x2
0x1455…1483 at0004 = ╱a9╱ GET ╱ // 0x1459 @0x4
0x1455…1483 at0005 = ╱4b╱K╱ // 0x145a @0x5
0x1455…1483 at0006 = ╱41╱A╱ // 0x145b @0x6
0x1455…1483 at0007 = ╱53╱S╱ // 0x145c @0x7
0x1455…1483 at0008 = ╱53╱S╱ // 0x145d @0x8
0x1455…1483 at0009 = ╱45╱E╱ // 0x145e @0x9
0x1455…1483 at000a = ╱ef╱ $ ╱ // 0x145f @0xa
0x1455…1483 at000b = ╱ec╱ , ╱ // 0x1460 @0xb
0x1455…1483 at000c = ╱31╱1╱ // 0x1461 @0xc
0x1455…1483 at000d = ╱f20100╱ // 0x1462 @0xd
0x1455…1483 at0010 = ╱f1╱ : ╱ // 0x1465 @0x10
0x1455…1483 at0011 = ╱4b╱K╱ // 0x1466 @0x11
0x1455…1483 at0012 = ╱5f╱_╱ // 0x1467 @0x12
0x1455…1483 at0013 = ╱48╱H╱ // 0x1468 @0x13
0x1455…1483 at0014 = ╱5c╱\╱ // 0x1469 @0x14
0x1455…1483 at0015 = ╱4a╱J╱ // 0x146a @0x15
0x1455…1483 at0016 = ╱52╱R╱ // 0x146b @0x16
0x1455…1483 at0017 = ╱45╱E╱ // 0x146c @0x17
0x1455…1483 at0018 = ╱43╱C╱ // 0x146d @0x18
0x1455…1483 at0019 = ╱ec╱ , ╱ // 0x146e @0x19
0x1455…1483 at001a = ╱4b╱K╱ // 0x146f @0x1a
0x1455…1483 at001b = ╱5f╱_╱ // 0x1470 @0x1b
0x1455…1483 at001c = ╱4d╱M╱ // 0x1471 @0x1c
0x1455…1483 at001d = ╱41╱A╱ // 0x1472 @0x1d
0x1455…1483 at001e = ╱58╱X╱ // 0x1473 @0x1e
0x1455…1483 at001f = ╱52╱R╱ // 0x1474 @0x1f
0x1455…1483 at0020 = ╱45╱E╱ // 0x1475 @0x20
0x1455…1483 at0021 = ╱43╱C╱ // 0x1476 @0x21
0x1455…1483 at0022 = ╱ec╱ , ╱ // 0x1477 @0x22
0x1455…1483 at0023 = ╱53╱S╱ // 0x1478 @0x23
0x1455…1483 at0024 = ╱5f╱_╱ // 0x1479 @0x24
0x1455…1483 at0025 = ╱4e╱N╱ // 0x147a @0x25
0x1455…1483 at0026 = ╱52╱R╱ // 0x147b @0x26
0x1455…1483 at0027 = ╱5f╱_╱ // 0x147c @0x27
0x1455…1483 at0028 = ╱4b╱K╱ // 0x147d @0x28
0x1455…1483 at0029 = ╱41╱A╱ // 0x147e @0x29
0x1455…1483 at002a = ╱53╱S╱ // 0x147f @0x2a
0x1455…1483 at002b = ╱53╱S╱ // 0x1480 @0x2b
0x1455…1483 at002c = ╱45╱E╱ // 0x1481 @0x2c
0x1455…1483 at002d = EOL // 0x1482 @0x2d
0x1455…1483 }
0x1483…148a aa78 01840 REPEAT
0x1483…148a LineComal80 {
0x1483…148a ptr = 0xaa78 // 0x1483 @0x0
0x1483…148a lno = 0x0730 // 0x1485 @0x2
0x1483…148a at0004 = ╱9700╱ REPEAT ╱ // 0x1487 @0x4
0x1483…148a at0006 = EOL // 0x1489 @0x6
0x1483…148a }
0x148a…14a8 aa96 01850 LET SVAR $ := CHR$ ( S_NR_KASSE , 4 )
0x148a…14a8 LineComal80 {
0x148a…14a8 ptr = 0xaa96 // 0x148a @0x0
0x148a…14a8 lno = 0x073a // 0x148c @0x2
0x148a…14a8 at0004 = ╱86╱ LET ╱ // 0x148e @0x4
0x148a…14a8 at0005 = ╱53╱S╱ // 0x148f @0x5
0x148a…14a8 at0006 = ╱56╱V╱ // 0x1490 @0x6
0x148a…14a8 at0007 = ╱41╱A╱ // 0x1491 @0x7
0x148a…14a8 at0008 = ╱52╱R╱ // 0x1492 @0x8
0x148a…14a8 at0009 = ╱ef╱ $ ╱ // 0x1493 @0x9
0x148a…14a8 at000a = ╱f0╱ := ╱ // 0x1494 @0xa
0x148a…14a8 at000b = ╱d0╱ CHR$ ╱ // 0x1495 @0xb
0x148a…14a8 at000c = ╱ed╱ ( ╱ // 0x1496 @0xc
0x148a…14a8 at000d = ╱53╱S╱ // 0x1497 @0xd
0x148a…14a8 at000e = ╱5f╱_╱ // 0x1498 @0xe
0x148a…14a8 at000f = ╱4e╱N╱ // 0x1499 @0xf
0x148a…14a8 at0010 = ╱52╱R╱ // 0x149a @0x10
0x148a…14a8 at0011 = ╱5f╱_╱ // 0x149b @0x11
0x148a…14a8 at0012 = ╱4b╱K╱ // 0x149c @0x12
0x148a…14a8 at0013 = ╱41╱A╱ // 0x149d @0x13
0x148a…14a8 at0014 = ╱53╱S╱ // 0x149e @0x14
0x148a…14a8 at0015 = ╱53╱S╱ // 0x149f @0x15
0x148a…14a8 at0016 = ╱45╱E╱ // 0x14a0 @0x16
0x148a…14a8 at0017 = ╱ec╱ , ╱ // 0x14a1 @0x17
0x148a…14a8 at0018 = ╱34╱4╱ // 0x14a2 @0x18
0x148a…14a8 at0019 = ╱f20400╱ // 0x14a3 @0x19
0x148a…14a8 at001c = ╱ee╱ ) ╱ // 0x14a6 @0x1c
0x148a…14a8 at001d = EOL // 0x14a7 @0x1d
0x148a…14a8 }
0x14a8…14c9 aab7 01860 PRINT "<SC0223>" ; SPC $ ( 1 : 40 )
0x14a8…14c9 LineComal80 {
0x14a8…14c9 ptr = 0xaab7 // 0x14a8 @0x0
0x14a8…14c9 lno = 0x0744 // 0x14aa @0x2
0x14a8…14c9 at0004 = ╱92╱ PRINT ╱ // 0x14ac @0x4
0x14a8…14c9 at0005 = ╱22╱"╱ // 0x14ad @0x5
0x14a8…14c9 at0006 = ╱3c╱<╱ // 0x14ae @0x6
0x14a8…14c9 at0007 = ╱53╱S╱ // 0x14af @0x7
0x14a8…14c9 at0008 = ╱43╱C╱ // 0x14b0 @0x8
0x14a8…14c9 at0009 = ╱30╱0╱ // 0x14b1 @0x9
0x14a8…14c9 at000a = ╱32╱2╱ // 0x14b2 @0xa
0x14a8…14c9 at000b = ╱32╱2╱ // 0x14b3 @0xb
0x14a8…14c9 at000c = ╱33╱3╱ // 0x14b4 @0xc
0x14a8…14c9 at000d = ╱3e╱>╱ // 0x14b5 @0xd
0x14a8…14c9 at000e = ╱22╱"╱ // 0x14b6 @0xe
0x14a8…14c9 at000f = ╱ea╱ ; ╱ // 0x14b7 @0xf
0x14a8…14c9 at0010 = ╱53╱S╱ // 0x14b8 @0x10
0x14a8…14c9 at0011 = ╱50╱P╱ // 0x14b9 @0x11
0x14a8…14c9 at0012 = ╱43╱C╱ // 0x14ba @0x12
0x14a8…14c9 at0013 = ╱ef╱ $ ╱ // 0x14bb @0x13
0x14a8…14c9 at0014 = ╱ed╱ ( ╱ // 0x14bc @0x14
0x14a8…14c9 at0015 = ╱31╱1╱ // 0x14bd @0x15
0x14a8…14c9 at0016 = ╱f20100╱ // 0x14be @0x16
0x14a8…14c9 at0019 = ╱f1╱ : ╱ // 0x14c1 @0x19
0x14a8…14c9 at001a = ╱34╱4╱ // 0x14c2 @0x1a
0x14a8…14c9 at001b = ╱30╱0╱ // 0x14c3 @0x1b
0x14a8…14c9 at001c = ╱f22800╱ // 0x14c4 @0x1c
0x14a8…14c9 at001f = ╱ee╱ ) ╱ // 0x14c7 @0x1f
0x14a8…14c9 at0020 = EOL // 0x14c8 @0x20
0x14a8…14c9 }
0x14c9…150c aafa 01870 EDIT "<SC0223>3.……N{ste…nummer…p}…kasserapport:…" : SVAR $ ( 1 : 4 )
0x14c9…150c LineComal80 {
0x14c9…150c ptr = 0xaafa // 0x14c9 @0x0
0x14c9…150c lno = 0x074e // 0x14cb @0x2
0x14c9…150c at0004 = ╱b1╱ EDIT ╱ // 0x14cd @0x4
0x14c9…150c at0005 = ╱22╱"╱ // 0x14ce @0x5
0x14c9…150c at0006 = ╱3c╱<╱ // 0x14cf @0x6
0x14c9…150c at0007 = ╱53╱S╱ // 0x14d0 @0x7
0x14c9…150c at0008 = ╱43╱C╱ // 0x14d1 @0x8
0x14c9…150c at0009 = ╱30╱0╱ // 0x14d2 @0x9
0x14c9…150c at000a = ╱32╱2╱ // 0x14d3 @0xa
0x14c9…150c at000b = ╱32╱2╱ // 0x14d4 @0xb
0x14c9…150c at000c = ╱33╱3╱ // 0x14d5 @0xc
0x14c9…150c at000d = ╱3e╱>╱ // 0x14d6 @0xd
0x14c9…150c at000e = ╱33╱3╱ // 0x14d7 @0xe
0x14c9…150c at000f = ╱2e╱.╱ // 0x14d8 @0xf
0x14c9…150c at0010 = ╱20╱…╱ // 0x14d9 @0x10
0x14c9…150c at0011 = ╱20╱…╱ // 0x14da @0x11
0x14c9…150c at0012 = ╱4e╱N╱ // 0x14db @0x12
0x14c9…150c at0013 = ╱7b╱{╱ // 0x14dc @0x13
0x14c9…150c at0014 = ╱73╱s╱ // 0x14dd @0x14
0x14c9…150c at0015 = ╱74╱t╱ // 0x14de @0x15
0x14c9…150c at0016 = ╱65╱e╱ // 0x14df @0x16
0x14c9…150c at0017 = ╱20╱…╱ // 0x14e0 @0x17
0x14c9…150c at0018 = ╱6e╱n╱ // 0x14e1 @0x18
0x14c9…150c at0019 = ╱75╱u╱ // 0x14e2 @0x19
0x14c9…150c at001a = ╱6d╱m╱ // 0x14e3 @0x1a
0x14c9…150c at001b = ╱6d╱m╱ // 0x14e4 @0x1b
0x14c9…150c at001c = ╱65╱e╱ // 0x14e5 @0x1c
0x14c9…150c at001d = ╱72╱r╱ // 0x14e6 @0x1d
0x14c9…150c at001e = ╱20╱…╱ // 0x14e7 @0x1e
0x14c9…150c at001f = ╱70╱p╱ // 0x14e8 @0x1f
0x14c9…150c at0020 = ╱7d╱}╱ // 0x14e9 @0x20
0x14c9…150c at0021 = ╱20╱…╱ // 0x14ea @0x21
0x14c9…150c at0022 = ╱6b╱k╱ // 0x14eb @0x22
0x14c9…150c at0023 = ╱61╱a╱ // 0x14ec @0x23
0x14c9…150c at0024 = ╱73╱s╱ // 0x14ed @0x24
0x14c9…150c at0025 = ╱73╱s╱ // 0x14ee @0x25
0x14c9…150c at0026 = ╱65╱e╱ // 0x14ef @0x26
0x14c9…150c at0027 = ╱72╱r╱ // 0x14f0 @0x27
0x14c9…150c at0028 = ╱61╱a╱ // 0x14f1 @0x28
0x14c9…150c at0029 = ╱70╱p╱ // 0x14f2 @0x29
0x14c9…150c at002a = ╱70╱p╱ // 0x14f3 @0x2a
0x14c9…150c at002b = ╱6f╱o╱ // 0x14f4 @0x2b
0x14c9…150c at002c = ╱72╱r╱ // 0x14f5 @0x2c
0x14c9…150c at002d = ╱74╱t╱ // 0x14f6 @0x2d
0x14c9…150c at002e = ╱3a╱:╱ // 0x14f7 @0x2e
0x14c9…150c at002f = ╱20╱…╱ // 0x14f8 @0x2f
0x14c9…150c at0030 = ╱22╱"╱ // 0x14f9 @0x30
0x14c9…150c at0031 = ╱f1╱ : ╱ // 0x14fa @0x31
0x14c9…150c at0032 = ╱53╱S╱ // 0x14fb @0x32
0x14c9…150c at0033 = ╱56╱V╱ // 0x14fc @0x33
0x14c9…150c at0034 = ╱41╱A╱ // 0x14fd @0x34
0x14c9…150c at0035 = ╱52╱R╱ // 0x14fe @0x35
0x14c9…150c at0036 = ╱ef╱ $ ╱ // 0x14ff @0x36
0x14c9…150c at0037 = ╱ed╱ ( ╱ // 0x1500 @0x37
0x14c9…150c at0038 = ╱31╱1╱ // 0x1501 @0x38
0x14c9…150c at0039 = ╱f20100╱ // 0x1502 @0x39
0x14c9…150c at003c = ╱f1╱ : ╱ // 0x1505 @0x3c
0x14c9…150c at003d = ╱34╱4╱ // 0x1506 @0x3d
0x14c9…150c at003e = ╱f20400╱ // 0x1507 @0x3e
0x14c9…150c at0041 = ╱ee╱ ) ╱ // 0x150a @0x41
0x14c9…150c at0042 = EOL // 0x150b @0x42
0x14c9…150c }
0x150c…151e ab0c 01880 EXEC SL_FEJLLINIE
0x150c…151e LineComal80 {
0x150c…151e ptr = 0xab0c // 0x150c @0x0
0x150c…151e lno = 0x0758 // 0x150e @0x2
0x150c…151e at0004 = ╱9d╱ EXEC ╱ // 0x1510 @0x4
0x150c…151e at0005 = ╱53╱S╱ // 0x1511 @0x5
0x150c…151e at0006 = ╱4c╱L╱ // 0x1512 @0x6
0x150c…151e at0007 = ╱5f╱_╱ // 0x1513 @0x7
0x150c…151e at0008 = ╱46╱F╱ // 0x1514 @0x8
0x150c…151e at0009 = ╱45╱E╱ // 0x1515 @0x9
0x150c…151e at000a = ╱4a╱J╱ // 0x1516 @0xa
0x150c…151e at000b = ╱4c╱L╱ // 0x1517 @0xb
0x150c…151e at000c = ╱4c╱L╱ // 0x1518 @0xc
0x150c…151e at000d = ╱49╱I╱ // 0x1519 @0xd
0x150c…151e at000e = ╱4e╱N╱ // 0x151a @0xe
0x150c…151e at000f = ╱49╱I╱ // 0x151b @0xf
0x150c…151e at0010 = ╱45╱E╱ // 0x151c @0x10
0x150c…151e at0011 = EOL // 0x151d @0x11
0x150c…151e }
0x151e…1536 ab24 01890 EXEC TAL_CONTROL ( SVAR $ )
0x151e…1536 LineComal80 {
0x151e…1536 ptr = 0xab24 // 0x151e @0x0
0x151e…1536 lno = 0x0762 // 0x1520 @0x2
0x151e…1536 at0004 = ╱9d╱ EXEC ╱ // 0x1522 @0x4
0x151e…1536 at0005 = ╱54╱T╱ // 0x1523 @0x5
0x151e…1536 at0006 = ╱41╱A╱ // 0x1524 @0x6
0x151e…1536 at0007 = ╱4c╱L╱ // 0x1525 @0x7
0x151e…1536 at0008 = ╱5f╱_╱ // 0x1526 @0x8
0x151e…1536 at0009 = ╱43╱C╱ // 0x1527 @0x9
0x151e…1536 at000a = ╱4f╱O╱ // 0x1528 @0xa
0x151e…1536 at000b = ╱4e╱N╱ // 0x1529 @0xb
0x151e…1536 at000c = ╱54╱T╱ // 0x152a @0xc
0x151e…1536 at000d = ╱52╱R╱ // 0x152b @0xd
0x151e…1536 at000e = ╱4f╱O╱ // 0x152c @0xe
0x151e…1536 at000f = ╱4c╱L╱ // 0x152d @0xf
0x151e…1536 at0010 = ╱ed╱ ( ╱ // 0x152e @0x10
0x151e…1536 at0011 = ╱53╱S╱ // 0x152f @0x11
0x151e…1536 at0012 = ╱56╱V╱ // 0x1530 @0x12
0x151e…1536 at0013 = ╱41╱A╱ // 0x1531 @0x13
0x151e…1536 at0014 = ╱52╱R╱ // 0x1532 @0x14
0x151e…1536 at0015 = ╱ef╱ $ ╱ // 0x1533 @0x15
0x151e…1536 at0016 = ╱ee╱ ) ╱ // 0x1534 @0x16
0x151e…1536 at0017 = EOL // 0x1535 @0x17
0x151e…1536 }
0x1536…1562 ab50 01900 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
0x1536…1562 LineComal80 {
0x1536…1562 ptr = 0xab50 // 0x1536 @0x0
0x1536…1562 lno = 0x076c // 0x1538 @0x2
0x1536…1562 at0004 = ╱8200╱ IF ╱ // 0x153a @0x4
0x1536…1562 at0006 = ╱22╱"╱ // 0x153c @0x6
0x1536…1562 at0007 = ╱2e╱.╱ // 0x153d @0x7
0x1536…1562 at0008 = ╱22╱"╱ // 0x153e @0x8
0x1536…1562 at0009 = ╱dc╱ IN ╱ // 0x153f @0x9
0x1536…1562 at000a = ╱53╱S╱ // 0x1540 @0xa
0x1536…1562 at000b = ╱56╱V╱ // 0x1541 @0xb
0x1536…1562 at000c = ╱41╱A╱ // 0x1542 @0xc
0x1536…1562 at000d = ╱52╱R╱ // 0x1543 @0xd
0x1536…1562 at000e = ╱ef╱ $ ╱ // 0x1544 @0xe
0x1536…1562 at000f = ╱b5╱ THEN ╱ // 0x1545 @0xf
0x1536…1562 at0010 = ╱9d╱ EXEC ╱ // 0x1546 @0x10
0x1536…1562 at0011 = ╱46╱F╱ // 0x1547 @0x11
0x1536…1562 at0012 = ╱45╱E╱ // 0x1548 @0x12
0x1536…1562 at0013 = ╱4a╱J╱ // 0x1549 @0x13
0x1536…1562 at0014 = ╱4c╱L╱ // 0x154a @0x14
0x1536…1562 at0015 = ╱ed╱ ( ╱ // 0x154b @0x15
0x1536…1562 at0016 = ╱22╱"╱ // 0x154c @0x16
0x1536…1562 at0017 = ╱55╱U╱ // 0x154d @0x17
0x1536…1562 at0018 = ╱6c╱l╱ // 0x154e @0x18
0x1536…1562 at0019 = ╱6f╱o╱ // 0x154f @0x19
0x1536…1562 at001a = ╱76╱v╱ // 0x1550 @0x1a
0x1536…1562 at001b = ╱6c╱l╱ // 0x1551 @0x1b
0x1536…1562 at001c = ╱69╱i╱ // 0x1552 @0x1c
0x1536…1562 at001d = ╱67╱g╱ // 0x1553 @0x1d
0x1536…1562 at001e = ╱74╱t╱ // 0x1554 @0x1e
0x1536…1562 at001f = ╱20╱…╱ // 0x1555 @0x1f
0x1536…1562 at0020 = ╱74╱t╱ // 0x1556 @0x20
0x1536…1562 at0021 = ╱65╱e╱ // 0x1557 @0x21
0x1536…1562 at0022 = ╱67╱g╱ // 0x1558 @0x22
0x1536…1562 at0023 = ╱6e╱n╱ // 0x1559 @0x23
0x1536…1562 at0024 = ╱3a╱:╱ // 0x155a @0x24
0x1536…1562 at0025 = ╱20╱…╱ // 0x155b @0x25
0x1536…1562 at0026 = ╱27╱'╱ // 0x155c @0x26
0x1536…1562 at0027 = ╱2e╱.╱ // 0x155d @0x27
0x1536…1562 at0028 = ╱27╱'╱ // 0x155e @0x28
0x1536…1562 at0029 = ╱22╱"╱ // 0x155f @0x29
0x1536…1562 at002a = ╱ee╱ ) ╱ // 0x1560 @0x2a
0x1536…1562 at002b = EOL // 0x1561 @0x2b
0x1536…1562 }
0x1562…156a ab58 01910 UNTIL OK
0x1562…156a LineComal80 {
0x1562…156a ptr = 0xab58 // 0x1562 @0x0
0x1562…156a lno = 0x0776 // 0x1564 @0x2
0x1562…156a at0004 = ╱98╱ UNTIL ╱ // 0x1566 @0x4
0x1562…156a at0005 = ╱4f╱O╱ // 0x1567 @0x5
0x1562…156a at0006 = ╱4b╱K╱ // 0x1568 @0x6
0x1562…156a at0007 = EOL // 0x1569 @0x7
0x1562…156a }
0x156a…1583 ab71 01920 LET S_NR_KASSE := ASC ( SVAR $ )
0x156a…1583 LineComal80 {
0x156a…1583 ptr = 0xab71 // 0x156a @0x0
0x156a…1583 lno = 0x0780 // 0x156c @0x2
0x156a…1583 at0004 = ╱86╱ LET ╱ // 0x156e @0x4
0x156a…1583 at0005 = ╱53╱S╱ // 0x156f @0x5
0x156a…1583 at0006 = ╱5f╱_╱ // 0x1570 @0x6
0x156a…1583 at0007 = ╱4e╱N╱ // 0x1571 @0x7
0x156a…1583 at0008 = ╱52╱R╱ // 0x1572 @0x8
0x156a…1583 at0009 = ╱5f╱_╱ // 0x1573 @0x9
0x156a…1583 at000a = ╱4b╱K╱ // 0x1574 @0xa
0x156a…1583 at000b = ╱41╱A╱ // 0x1575 @0xb
0x156a…1583 at000c = ╱53╱S╱ // 0x1576 @0xc
0x156a…1583 at000d = ╱53╱S╱ // 0x1577 @0xd
0x156a…1583 at000e = ╱45╱E╱ // 0x1578 @0xe
0x156a…1583 at000f = ╱f0╱ := ╱ // 0x1579 @0xf
0x156a…1583 at0010 = ╱cf╱ ASC ╱ // 0x157a @0x10
0x156a…1583 at0011 = ╱ed╱ ( ╱ // 0x157b @0x11
0x156a…1583 at0012 = ╱53╱S╱ // 0x157c @0x12
0x156a…1583 at0013 = ╱56╱V╱ // 0x157d @0x13
0x156a…1583 at0014 = ╱41╱A╱ // 0x157e @0x14
0x156a…1583 at0015 = ╱52╱R╱ // 0x157f @0x15
0x156a…1583 at0016 = ╱ef╱ $ ╱ // 0x1580 @0x16
0x156a…1583 at0017 = ╱ee╱ ) ╱ // 0x1581 @0x17
0x156a…1583 at0018 = EOL // 0x1582 @0x18
0x156a…1583 }
0x1583…15b1 ab9f 01930 PUT KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE
0x1583…15b1 LineComal80 {
0x1583…15b1 ptr = 0xab9f // 0x1583 @0x0
0x1583…15b1 lno = 0x078a // 0x1585 @0x2
0x1583…15b1 at0004 = ╱aa╱ PUT ╱ // 0x1587 @0x4
0x1583…15b1 at0005 = ╱4b╱K╱ // 0x1588 @0x5
0x1583…15b1 at0006 = ╱41╱A╱ // 0x1589 @0x6
0x1583…15b1 at0007 = ╱53╱S╱ // 0x158a @0x7
0x1583…15b1 at0008 = ╱53╱S╱ // 0x158b @0x8
0x1583…15b1 at0009 = ╱45╱E╱ // 0x158c @0x9
0x1583…15b1 at000a = ╱ef╱ $ ╱ // 0x158d @0xa
0x1583…15b1 at000b = ╱ec╱ , ╱ // 0x158e @0xb
0x1583…15b1 at000c = ╱31╱1╱ // 0x158f @0xc
0x1583…15b1 at000d = ╱f20100╱ // 0x1590 @0xd
0x1583…15b1 at0010 = ╱f1╱ : ╱ // 0x1593 @0x10
0x1583…15b1 at0011 = ╱4b╱K╱ // 0x1594 @0x11
0x1583…15b1 at0012 = ╱5f╱_╱ // 0x1595 @0x12
0x1583…15b1 at0013 = ╱48╱H╱ // 0x1596 @0x13
0x1583…15b1 at0014 = ╱5c╱\╱ // 0x1597 @0x14
0x1583…15b1 at0015 = ╱4a╱J╱ // 0x1598 @0x15
0x1583…15b1 at0016 = ╱52╱R╱ // 0x1599 @0x16
0x1583…15b1 at0017 = ╱45╱E╱ // 0x159a @0x17
0x1583…15b1 at0018 = ╱43╱C╱ // 0x159b @0x18
0x1583…15b1 at0019 = ╱ec╱ , ╱ // 0x159c @0x19
0x1583…15b1 at001a = ╱4b╱K╱ // 0x159d @0x1a
0x1583…15b1 at001b = ╱5f╱_╱ // 0x159e @0x1b
0x1583…15b1 at001c = ╱4d╱M╱ // 0x159f @0x1c
0x1583…15b1 at001d = ╱41╱A╱ // 0x15a0 @0x1d
0x1583…15b1 at001e = ╱58╱X╱ // 0x15a1 @0x1e
0x1583…15b1 at001f = ╱52╱R╱ // 0x15a2 @0x1f
0x1583…15b1 at0020 = ╱45╱E╱ // 0x15a3 @0x20
0x1583…15b1 at0021 = ╱43╱C╱ // 0x15a4 @0x21
0x1583…15b1 at0022 = ╱ec╱ , ╱ // 0x15a5 @0x22
0x1583…15b1 at0023 = ╱53╱S╱ // 0x15a6 @0x23
0x1583…15b1 at0024 = ╱5f╱_╱ // 0x15a7 @0x24
0x1583…15b1 at0025 = ╱4e╱N╱ // 0x15a8 @0x25
0x1583…15b1 at0026 = ╱52╱R╱ // 0x15a9 @0x26
0x1583…15b1 at0027 = ╱5f╱_╱ // 0x15aa @0x27
0x1583…15b1 at0028 = ╱4b╱K╱ // 0x15ab @0x28
0x1583…15b1 at0029 = ╱41╱A╱ // 0x15ac @0x29
0x1583…15b1 at002a = ╱53╱S╱ // 0x15ad @0x2a
0x1583…15b1 at002b = ╱53╱S╱ // 0x15ae @0x2b
0x1583…15b1 at002c = ╱45╱E╱ // 0x15af @0x2c
0x1583…15b1 at002d = EOL // 0x15b0 @0x2d
0x1583…15b1 }
0x15b1…15bd abab 01940 WHILE 4
0x15b1…15bd LineComal80 {
0x15b1…15bd ptr = 0xabab // 0x15b1 @0x0
0x15b1…15bd lno = 0x0794 // 0x15b3 @0x2
0x15b1…15bd at0004 = ╱a40001╱ WHILE ╱ // 0x15b5 @0x4
0x15b1…15bd at0007 = ╱34╱4╱ // 0x15b8 @0x7
0x15b1…15bd at0008 = ╱f20400╱ // 0x15b9 @0x8
0x15b1…15bd at000b = EOL // 0x15bc @0xb
0x15b1…15bd }
0x15bd…15ed abdb 01950 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS
0x15bd…15ed LineComal80 {
0x15bd…15ed ptr = 0xabdb // 0x15bd @0x0
0x15bd…15ed lno = 0x079e // 0x15bf @0x2
0x15bd…15ed at0004 = ╱a9╱ GET ╱ // 0x15c1 @0x4
0x15bd…15ed at0005 = ╱44╱D╱ // 0x15c2 @0x5
0x15bd…15ed at0006 = ╱47╱G╱ // 0x15c3 @0x6
0x15bd…15ed at0007 = ╱5f╱_╱ // 0x15c4 @0x7
0x15bd…15ed at0008 = ╱50╱P╱ // 0x15c5 @0x8
0x15bd…15ed at0009 = ╱4f╱O╱ // 0x15c6 @0x9
0x15bd…15ed at000a = ╱53╱S╱ // 0x15c7 @0xa
0x15bd…15ed at000b = ╱ef╱ $ ╱ // 0x15c8 @0xb
0x15bd…15ed at000c = ╱ec╱ , ╱ // 0x15c9 @0xc
0x15bd…15ed at000d = ╱31╱1╱ // 0x15ca @0xd
0x15bd…15ed at000e = ╱f20100╱ // 0x15cb @0xe
0x15bd…15ed at0011 = ╱f1╱ : ╱ // 0x15ce @0x11
0x15bd…15ed at0012 = ╱50╱P╱ // 0x15cf @0x12
0x15bd…15ed at0013 = ╱5f╱_╱ // 0x15d0 @0x13
0x15bd…15ed at0014 = ╱48╱H╱ // 0x15d1 @0x14
0x15bd…15ed at0015 = ╱5c╱\╱ // 0x15d2 @0x15
0x15bd…15ed at0016 = ╱4a╱J╱ // 0x15d3 @0x16
0x15bd…15ed at0017 = ╱52╱R╱ // 0x15d4 @0x17
0x15bd…15ed at0018 = ╱45╱E╱ // 0x15d5 @0x18
0x15bd…15ed at0019 = ╱43╱C╱ // 0x15d6 @0x19
0x15bd…15ed at001a = ╱ec╱ , ╱ // 0x15d7 @0x1a
0x15bd…15ed at001b = ╱50╱P╱ // 0x15d8 @0x1b
0x15bd…15ed at001c = ╱5f╱_╱ // 0x15d9 @0x1c
0x15bd…15ed at001d = ╱4d╱M╱ // 0x15da @0x1d
0x15bd…15ed at001e = ╱41╱A╱ // 0x15db @0x1e
0x15bd…15ed at001f = ╱58╱X╱ // 0x15dc @0x1f
0x15bd…15ed at0020 = ╱52╱R╱ // 0x15dd @0x20
0x15bd…15ed at0021 = ╱45╱E╱ // 0x15de @0x21
0x15bd…15ed at0022 = ╱43╱C╱ // 0x15df @0x22
0x15bd…15ed at0023 = ╱ec╱ , ╱ // 0x15e0 @0x23
0x15bd…15ed at0024 = ╱53╱S╱ // 0x15e1 @0x24
0x15bd…15ed at0025 = ╱5f╱_╱ // 0x15e2 @0x25
0x15bd…15ed at0026 = ╱4e╱N╱ // 0x15e3 @0x26
0x15bd…15ed at0027 = ╱52╱R╱ // 0x15e4 @0x27
0x15bd…15ed at0028 = ╱5f╱_╱ // 0x15e5 @0x28
0x15bd…15ed at0029 = ╱44╱D╱ // 0x15e6 @0x29
0x15bd…15ed at002a = ╱47╱G╱ // 0x15e7 @0x2a
0x15bd…15ed at002b = ╱5f╱_╱ // 0x15e8 @0x2b
0x15bd…15ed at002c = ╱50╱P╱ // 0x15e9 @0x2c
0x15bd…15ed at002d = ╱4f╱O╱ // 0x15ea @0x2d
0x15bd…15ed at002e = ╱53╱S╱ // 0x15eb @0x2e
0x15bd…15ed at002f = EOL // 0x15ec @0x2f
0x15bd…15ed }
0x15ed…15f4 abe2 01960 REPEAT
0x15ed…15f4 LineComal80 {
0x15ed…15f4 ptr = 0xabe2 // 0x15ed @0x0
0x15ed…15f4 lno = 0x07a8 // 0x15ef @0x2
0x15ed…15f4 at0004 = ╱9700╱ REPEAT ╱ // 0x15f1 @0x4
0x15ed…15f4 at0006 = EOL // 0x15f3 @0x6
0x15ed…15f4 }
0x15f4…1613 ac01 01970 LET SVAR $ := CHR$ ( S_NR_DG_POS , 4 )
0x15f4…1613 LineComal80 {
0x15f4…1613 ptr = 0xac01 // 0x15f4 @0x0
0x15f4…1613 lno = 0x07b2 // 0x15f6 @0x2
0x15f4…1613 at0004 = ╱86╱ LET ╱ // 0x15f8 @0x4
0x15f4…1613 at0005 = ╱53╱S╱ // 0x15f9 @0x5
0x15f4…1613 at0006 = ╱56╱V╱ // 0x15fa @0x6
0x15f4…1613 at0007 = ╱41╱A╱ // 0x15fb @0x7
0x15f4…1613 at0008 = ╱52╱R╱ // 0x15fc @0x8
0x15f4…1613 at0009 = ╱ef╱ $ ╱ // 0x15fd @0x9
0x15f4…1613 at000a = ╱f0╱ := ╱ // 0x15fe @0xa
0x15f4…1613 at000b = ╱d0╱ CHR$ ╱ // 0x15ff @0xb
0x15f4…1613 at000c = ╱ed╱ ( ╱ // 0x1600 @0xc
0x15f4…1613 at000d = ╱53╱S╱ // 0x1601 @0xd
0x15f4…1613 at000e = ╱5f╱_╱ // 0x1602 @0xe
0x15f4…1613 at000f = ╱4e╱N╱ // 0x1603 @0xf
0x15f4…1613 at0010 = ╱52╱R╱ // 0x1604 @0x10
0x15f4…1613 at0011 = ╱5f╱_╱ // 0x1605 @0x11
0x15f4…1613 at0012 = ╱44╱D╱ // 0x1606 @0x12
0x15f4…1613 at0013 = ╱47╱G╱ // 0x1607 @0x13
0x15f4…1613 at0014 = ╱5f╱_╱ // 0x1608 @0x14
0x15f4…1613 at0015 = ╱50╱P╱ // 0x1609 @0x15
0x15f4…1613 at0016 = ╱4f╱O╱ // 0x160a @0x16
0x15f4…1613 at0017 = ╱53╱S╱ // 0x160b @0x17
0x15f4…1613 at0018 = ╱ec╱ , ╱ // 0x160c @0x18
0x15f4…1613 at0019 = ╱34╱4╱ // 0x160d @0x19
0x15f4…1613 at001a = ╱f20400╱ // 0x160e @0x1a
0x15f4…1613 at001d = ╱ee╱ ) ╱ // 0x1611 @0x1d
0x15f4…1613 at001e = EOL // 0x1612 @0x1e
0x15f4…1613 }
0x1613…1634 ac22 01980 PRINT "<SC0223>" ; SPC $ ( 1 : 40 )
0x1613…1634 LineComal80 {
0x1613…1634 ptr = 0xac22 // 0x1613 @0x0
0x1613…1634 lno = 0x07bc // 0x1615 @0x2
0x1613…1634 at0004 = ╱92╱ PRINT ╱ // 0x1617 @0x4
0x1613…1634 at0005 = ╱22╱"╱ // 0x1618 @0x5
0x1613…1634 at0006 = ╱3c╱<╱ // 0x1619 @0x6
0x1613…1634 at0007 = ╱53╱S╱ // 0x161a @0x7
0x1613…1634 at0008 = ╱43╱C╱ // 0x161b @0x8
0x1613…1634 at0009 = ╱30╱0╱ // 0x161c @0x9
0x1613…1634 at000a = ╱32╱2╱ // 0x161d @0xa
0x1613…1634 at000b = ╱32╱2╱ // 0x161e @0xb
0x1613…1634 at000c = ╱33╱3╱ // 0x161f @0xc
0x1613…1634 at000d = ╱3e╱>╱ // 0x1620 @0xd
0x1613…1634 at000e = ╱22╱"╱ // 0x1621 @0xe
0x1613…1634 at000f = ╱ea╱ ; ╱ // 0x1622 @0xf
0x1613…1634 at0010 = ╱53╱S╱ // 0x1623 @0x10
0x1613…1634 at0011 = ╱50╱P╱ // 0x1624 @0x11
0x1613…1634 at0012 = ╱43╱C╱ // 0x1625 @0x12
0x1613…1634 at0013 = ╱ef╱ $ ╱ // 0x1626 @0x13
0x1613…1634 at0014 = ╱ed╱ ( ╱ // 0x1627 @0x14
0x1613…1634 at0015 = ╱31╱1╱ // 0x1628 @0x15
0x1613…1634 at0016 = ╱f20100╱ // 0x1629 @0x16
0x1613…1634 at0019 = ╱f1╱ : ╱ // 0x162c @0x19
0x1613…1634 at001a = ╱34╱4╱ // 0x162d @0x1a
0x1613…1634 at001b = ╱30╱0╱ // 0x162e @0x1b
0x1613…1634 at001c = ╱f22800╱ // 0x162f @0x1c
0x1613…1634 at001f = ╱ee╱ ) ╱ // 0x1632 @0x1f
0x1613…1634 at0020 = EOL // 0x1633 @0x20
0x1613…1634 }
0x1634…167a ac68 01990 EDIT "<SC0223>3.……N{ste…nummer…p}…konteringsliste:…" : SVAR $ ( 1 : 4 )
0x1634…167a LineComal80 {
0x1634…167a ptr = 0xac68 // 0x1634 @0x0
0x1634…167a lno = 0x07c6 // 0x1636 @0x2
0x1634…167a at0004 = ╱b1╱ EDIT ╱ // 0x1638 @0x4
0x1634…167a at0005 = ╱22╱"╱ // 0x1639 @0x5
0x1634…167a at0006 = ╱3c╱<╱ // 0x163a @0x6
0x1634…167a at0007 = ╱53╱S╱ // 0x163b @0x7
0x1634…167a at0008 = ╱43╱C╱ // 0x163c @0x8
0x1634…167a at0009 = ╱30╱0╱ // 0x163d @0x9
0x1634…167a at000a = ╱32╱2╱ // 0x163e @0xa
0x1634…167a at000b = ╱32╱2╱ // 0x163f @0xb
0x1634…167a at000c = ╱33╱3╱ // 0x1640 @0xc
0x1634…167a at000d = ╱3e╱>╱ // 0x1641 @0xd
0x1634…167a at000e = ╱33╱3╱ // 0x1642 @0xe
0x1634…167a at000f = ╱2e╱.╱ // 0x1643 @0xf
0x1634…167a at0010 = ╱20╱…╱ // 0x1644 @0x10
0x1634…167a at0011 = ╱20╱…╱ // 0x1645 @0x11
0x1634…167a at0012 = ╱4e╱N╱ // 0x1646 @0x12
0x1634…167a at0013 = ╱7b╱{╱ // 0x1647 @0x13
0x1634…167a at0014 = ╱73╱s╱ // 0x1648 @0x14
0x1634…167a at0015 = ╱74╱t╱ // 0x1649 @0x15
0x1634…167a at0016 = ╱65╱e╱ // 0x164a @0x16
0x1634…167a at0017 = ╱20╱…╱ // 0x164b @0x17
0x1634…167a at0018 = ╱6e╱n╱ // 0x164c @0x18
0x1634…167a at0019 = ╱75╱u╱ // 0x164d @0x19
0x1634…167a at001a = ╱6d╱m╱ // 0x164e @0x1a
0x1634…167a at001b = ╱6d╱m╱ // 0x164f @0x1b
0x1634…167a at001c = ╱65╱e╱ // 0x1650 @0x1c
0x1634…167a at001d = ╱72╱r╱ // 0x1651 @0x1d
0x1634…167a at001e = ╱20╱…╱ // 0x1652 @0x1e
0x1634…167a at001f = ╱70╱p╱ // 0x1653 @0x1f
0x1634…167a at0020 = ╱7d╱}╱ // 0x1654 @0x20
0x1634…167a at0021 = ╱20╱…╱ // 0x1655 @0x21
0x1634…167a at0022 = ╱6b╱k╱ // 0x1656 @0x22
0x1634…167a at0023 = ╱6f╱o╱ // 0x1657 @0x23
0x1634…167a at0024 = ╱6e╱n╱ // 0x1658 @0x24
0x1634…167a at0025 = ╱74╱t╱ // 0x1659 @0x25
0x1634…167a at0026 = ╱65╱e╱ // 0x165a @0x26
0x1634…167a at0027 = ╱72╱r╱ // 0x165b @0x27
0x1634…167a at0028 = ╱69╱i╱ // 0x165c @0x28
0x1634…167a at0029 = ╱6e╱n╱ // 0x165d @0x29
0x1634…167a at002a = ╱67╱g╱ // 0x165e @0x2a
0x1634…167a at002b = ╱73╱s╱ // 0x165f @0x2b
0x1634…167a at002c = ╱6c╱l╱ // 0x1660 @0x2c
0x1634…167a at002d = ╱69╱i╱ // 0x1661 @0x2d
0x1634…167a at002e = ╱73╱s╱ // 0x1662 @0x2e
0x1634…167a at002f = ╱74╱t╱ // 0x1663 @0x2f
0x1634…167a at0030 = ╱65╱e╱ // 0x1664 @0x30
0x1634…167a at0031 = ╱3a╱:╱ // 0x1665 @0x31
0x1634…167a at0032 = ╱20╱…╱ // 0x1666 @0x32
0x1634…167a at0033 = ╱22╱"╱ // 0x1667 @0x33
0x1634…167a at0034 = ╱f1╱ : ╱ // 0x1668 @0x34
0x1634…167a at0035 = ╱53╱S╱ // 0x1669 @0x35
0x1634…167a at0036 = ╱56╱V╱ // 0x166a @0x36
0x1634…167a at0037 = ╱41╱A╱ // 0x166b @0x37
0x1634…167a at0038 = ╱52╱R╱ // 0x166c @0x38
0x1634…167a at0039 = ╱ef╱ $ ╱ // 0x166d @0x39
0x1634…167a at003a = ╱ed╱ ( ╱ // 0x166e @0x3a
0x1634…167a at003b = ╱31╱1╱ // 0x166f @0x3b
0x1634…167a at003c = ╱f20100╱ // 0x1670 @0x3c
0x1634…167a at003f = ╱f1╱ : ╱ // 0x1673 @0x3f
0x1634…167a at0040 = ╱34╱4╱ // 0x1674 @0x40
0x1634…167a at0041 = ╱f20400╱ // 0x1675 @0x41
0x1634…167a at0044 = ╱ee╱ ) ╱ // 0x1678 @0x44
0x1634…167a at0045 = EOL // 0x1679 @0x45
0x1634…167a }
0x167a…168c ac7a 02000 EXEC SL_FEJLLINIE
0x167a…168c LineComal80 {
0x167a…168c ptr = 0xac7a // 0x167a @0x0
0x167a…168c lno = 0x07d0 // 0x167c @0x2
0x167a…168c at0004 = ╱9d╱ EXEC ╱ // 0x167e @0x4
0x167a…168c at0005 = ╱53╱S╱ // 0x167f @0x5
0x167a…168c at0006 = ╱4c╱L╱ // 0x1680 @0x6
0x167a…168c at0007 = ╱5f╱_╱ // 0x1681 @0x7
0x167a…168c at0008 = ╱46╱F╱ // 0x1682 @0x8
0x167a…168c at0009 = ╱45╱E╱ // 0x1683 @0x9
0x167a…168c at000a = ╱4a╱J╱ // 0x1684 @0xa
0x167a…168c at000b = ╱4c╱L╱ // 0x1685 @0xb
0x167a…168c at000c = ╱4c╱L╱ // 0x1686 @0xc
0x167a…168c at000d = ╱49╱I╱ // 0x1687 @0xd
0x167a…168c at000e = ╱4e╱N╱ // 0x1688 @0xe
0x167a…168c at000f = ╱49╱I╱ // 0x1689 @0xf
0x167a…168c at0010 = ╱45╱E╱ // 0x168a @0x10
0x167a…168c at0011 = EOL // 0x168b @0x11
0x167a…168c }
0x168c…16a4 ac92 02010 EXEC TAL_CONTROL ( SVAR $ )
0x168c…16a4 LineComal80 {
0x168c…16a4 ptr = 0xac92 // 0x168c @0x0
0x168c…16a4 lno = 0x07da // 0x168e @0x2
0x168c…16a4 at0004 = ╱9d╱ EXEC ╱ // 0x1690 @0x4
0x168c…16a4 at0005 = ╱54╱T╱ // 0x1691 @0x5
0x168c…16a4 at0006 = ╱41╱A╱ // 0x1692 @0x6
0x168c…16a4 at0007 = ╱4c╱L╱ // 0x1693 @0x7
0x168c…16a4 at0008 = ╱5f╱_╱ // 0x1694 @0x8
0x168c…16a4 at0009 = ╱43╱C╱ // 0x1695 @0x9
0x168c…16a4 at000a = ╱4f╱O╱ // 0x1696 @0xa
0x168c…16a4 at000b = ╱4e╱N╱ // 0x1697 @0xb
0x168c…16a4 at000c = ╱54╱T╱ // 0x1698 @0xc
0x168c…16a4 at000d = ╱52╱R╱ // 0x1699 @0xd
0x168c…16a4 at000e = ╱4f╱O╱ // 0x169a @0xe
0x168c…16a4 at000f = ╱4c╱L╱ // 0x169b @0xf
0x168c…16a4 at0010 = ╱ed╱ ( ╱ // 0x169c @0x10
0x168c…16a4 at0011 = ╱53╱S╱ // 0x169d @0x11
0x168c…16a4 at0012 = ╱56╱V╱ // 0x169e @0x12
0x168c…16a4 at0013 = ╱41╱A╱ // 0x169f @0x13
0x168c…16a4 at0014 = ╱52╱R╱ // 0x16a0 @0x14
0x168c…16a4 at0015 = ╱ef╱ $ ╱ // 0x16a1 @0x15
0x168c…16a4 at0016 = ╱ee╱ ) ╱ // 0x16a2 @0x16
0x168c…16a4 at0017 = EOL // 0x16a3 @0x17
0x168c…16a4 }
0x16a4…16d0 acbe 02020 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
0x16a4…16d0 LineComal80 {
0x16a4…16d0 ptr = 0xacbe // 0x16a4 @0x0
0x16a4…16d0 lno = 0x07e4 // 0x16a6 @0x2
0x16a4…16d0 at0004 = ╱8200╱ IF ╱ // 0x16a8 @0x4
0x16a4…16d0 at0006 = ╱22╱"╱ // 0x16aa @0x6
0x16a4…16d0 at0007 = ╱2e╱.╱ // 0x16ab @0x7
0x16a4…16d0 at0008 = ╱22╱"╱ // 0x16ac @0x8
0x16a4…16d0 at0009 = ╱dc╱ IN ╱ // 0x16ad @0x9
0x16a4…16d0 at000a = ╱53╱S╱ // 0x16ae @0xa
0x16a4…16d0 at000b = ╱56╱V╱ // 0x16af @0xb
0x16a4…16d0 at000c = ╱41╱A╱ // 0x16b0 @0xc
0x16a4…16d0 at000d = ╱52╱R╱ // 0x16b1 @0xd
0x16a4…16d0 at000e = ╱ef╱ $ ╱ // 0x16b2 @0xe
0x16a4…16d0 at000f = ╱b5╱ THEN ╱ // 0x16b3 @0xf
0x16a4…16d0 at0010 = ╱9d╱ EXEC ╱ // 0x16b4 @0x10
0x16a4…16d0 at0011 = ╱46╱F╱ // 0x16b5 @0x11
0x16a4…16d0 at0012 = ╱45╱E╱ // 0x16b6 @0x12
0x16a4…16d0 at0013 = ╱4a╱J╱ // 0x16b7 @0x13
0x16a4…16d0 at0014 = ╱4c╱L╱ // 0x16b8 @0x14
0x16a4…16d0 at0015 = ╱ed╱ ( ╱ // 0x16b9 @0x15
0x16a4…16d0 at0016 = ╱22╱"╱ // 0x16ba @0x16
0x16a4…16d0 at0017 = ╱55╱U╱ // 0x16bb @0x17
0x16a4…16d0 at0018 = ╱6c╱l╱ // 0x16bc @0x18
0x16a4…16d0 at0019 = ╱6f╱o╱ // 0x16bd @0x19
0x16a4…16d0 at001a = ╱76╱v╱ // 0x16be @0x1a
0x16a4…16d0 at001b = ╱6c╱l╱ // 0x16bf @0x1b
0x16a4…16d0 at001c = ╱69╱i╱ // 0x16c0 @0x1c
0x16a4…16d0 at001d = ╱67╱g╱ // 0x16c1 @0x1d
0x16a4…16d0 at001e = ╱74╱t╱ // 0x16c2 @0x1e
0x16a4…16d0 at001f = ╱20╱…╱ // 0x16c3 @0x1f
0x16a4…16d0 at0020 = ╱74╱t╱ // 0x16c4 @0x20
0x16a4…16d0 at0021 = ╱65╱e╱ // 0x16c5 @0x21
0x16a4…16d0 at0022 = ╱67╱g╱ // 0x16c6 @0x22
0x16a4…16d0 at0023 = ╱6e╱n╱ // 0x16c7 @0x23
0x16a4…16d0 at0024 = ╱3a╱:╱ // 0x16c8 @0x24
0x16a4…16d0 at0025 = ╱20╱…╱ // 0x16c9 @0x25
0x16a4…16d0 at0026 = ╱27╱'╱ // 0x16ca @0x26
0x16a4…16d0 at0027 = ╱2e╱.╱ // 0x16cb @0x27
0x16a4…16d0 at0028 = ╱27╱'╱ // 0x16cc @0x28
0x16a4…16d0 at0029 = ╱22╱"╱ // 0x16cd @0x29
0x16a4…16d0 at002a = ╱ee╱ ) ╱ // 0x16ce @0x2a
0x16a4…16d0 at002b = EOL // 0x16cf @0x2b
0x16a4…16d0 }
0x16d0…16d8 acc6 02030 UNTIL OK
0x16d0…16d8 LineComal80 {
0x16d0…16d8 ptr = 0xacc6 // 0x16d0 @0x0
0x16d0…16d8 lno = 0x07ee // 0x16d2 @0x2
0x16d0…16d8 at0004 = ╱98╱ UNTIL ╱ // 0x16d4 @0x4
0x16d0…16d8 at0005 = ╱4f╱O╱ // 0x16d5 @0x5
0x16d0…16d8 at0006 = ╱4b╱K╱ // 0x16d6 @0x6
0x16d0…16d8 at0007 = EOL // 0x16d7 @0x7
0x16d0…16d8 }
0x16d8…16f2 ace0 02040 LET S_NR_DG_POS := ASC ( SVAR $ )
0x16d8…16f2 LineComal80 {
0x16d8…16f2 ptr = 0xace0 // 0x16d8 @0x0
0x16d8…16f2 lno = 0x07f8 // 0x16da @0x2
0x16d8…16f2 at0004 = ╱86╱ LET ╱ // 0x16dc @0x4
0x16d8…16f2 at0005 = ╱53╱S╱ // 0x16dd @0x5
0x16d8…16f2 at0006 = ╱5f╱_╱ // 0x16de @0x6
0x16d8…16f2 at0007 = ╱4e╱N╱ // 0x16df @0x7
0x16d8…16f2 at0008 = ╱52╱R╱ // 0x16e0 @0x8
0x16d8…16f2 at0009 = ╱5f╱_╱ // 0x16e1 @0x9
0x16d8…16f2 at000a = ╱44╱D╱ // 0x16e2 @0xa
0x16d8…16f2 at000b = ╱47╱G╱ // 0x16e3 @0xb
0x16d8…16f2 at000c = ╱5f╱_╱ // 0x16e4 @0xc
0x16d8…16f2 at000d = ╱50╱P╱ // 0x16e5 @0xd
0x16d8…16f2 at000e = ╱4f╱O╱ // 0x16e6 @0xe
0x16d8…16f2 at000f = ╱53╱S╱ // 0x16e7 @0xf
0x16d8…16f2 at0010 = ╱f0╱ := ╱ // 0x16e8 @0x10
0x16d8…16f2 at0011 = ╱cf╱ ASC ╱ // 0x16e9 @0x11
0x16d8…16f2 at0012 = ╱ed╱ ( ╱ // 0x16ea @0x12
0x16d8…16f2 at0013 = ╱53╱S╱ // 0x16eb @0x13
0x16d8…16f2 at0014 = ╱56╱V╱ // 0x16ec @0x14
0x16d8…16f2 at0015 = ╱41╱A╱ // 0x16ed @0x15
0x16d8…16f2 at0016 = ╱52╱R╱ // 0x16ee @0x16
0x16d8…16f2 at0017 = ╱ef╱ $ ╱ // 0x16ef @0x17
0x16d8…16f2 at0018 = ╱ee╱ ) ╱ // 0x16f0 @0x18
0x16d8…16f2 at0019 = EOL // 0x16f1 @0x19
0x16d8…16f2 }
0x16f2…1722 ad10 02050 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS
0x16f2…1722 LineComal80 {
0x16f2…1722 ptr = 0xad10 // 0x16f2 @0x0
0x16f2…1722 lno = 0x0802 // 0x16f4 @0x2
0x16f2…1722 at0004 = ╱aa╱ PUT ╱ // 0x16f6 @0x4
0x16f2…1722 at0005 = ╱44╱D╱ // 0x16f7 @0x5
0x16f2…1722 at0006 = ╱47╱G╱ // 0x16f8 @0x6
0x16f2…1722 at0007 = ╱5f╱_╱ // 0x16f9 @0x7
0x16f2…1722 at0008 = ╱50╱P╱ // 0x16fa @0x8
0x16f2…1722 at0009 = ╱4f╱O╱ // 0x16fb @0x9
0x16f2…1722 at000a = ╱53╱S╱ // 0x16fc @0xa
0x16f2…1722 at000b = ╱ef╱ $ ╱ // 0x16fd @0xb
0x16f2…1722 at000c = ╱ec╱ , ╱ // 0x16fe @0xc
0x16f2…1722 at000d = ╱31╱1╱ // 0x16ff @0xd
0x16f2…1722 at000e = ╱f20100╱ // 0x1700 @0xe
0x16f2…1722 at0011 = ╱f1╱ : ╱ // 0x1703 @0x11
0x16f2…1722 at0012 = ╱50╱P╱ // 0x1704 @0x12
0x16f2…1722 at0013 = ╱5f╱_╱ // 0x1705 @0x13
0x16f2…1722 at0014 = ╱48╱H╱ // 0x1706 @0x14
0x16f2…1722 at0015 = ╱5c╱\╱ // 0x1707 @0x15
0x16f2…1722 at0016 = ╱4a╱J╱ // 0x1708 @0x16
0x16f2…1722 at0017 = ╱52╱R╱ // 0x1709 @0x17
0x16f2…1722 at0018 = ╱45╱E╱ // 0x170a @0x18
0x16f2…1722 at0019 = ╱43╱C╱ // 0x170b @0x19
0x16f2…1722 at001a = ╱ec╱ , ╱ // 0x170c @0x1a
0x16f2…1722 at001b = ╱50╱P╱ // 0x170d @0x1b
0x16f2…1722 at001c = ╱5f╱_╱ // 0x170e @0x1c
0x16f2…1722 at001d = ╱4d╱M╱ // 0x170f @0x1d
0x16f2…1722 at001e = ╱41╱A╱ // 0x1710 @0x1e
0x16f2…1722 at001f = ╱58╱X╱ // 0x1711 @0x1f
0x16f2…1722 at0020 = ╱52╱R╱ // 0x1712 @0x20
0x16f2…1722 at0021 = ╱45╱E╱ // 0x1713 @0x21
0x16f2…1722 at0022 = ╱43╱C╱ // 0x1714 @0x22
0x16f2…1722 at0023 = ╱ec╱ , ╱ // 0x1715 @0x23
0x16f2…1722 at0024 = ╱53╱S╱ // 0x1716 @0x24
0x16f2…1722 at0025 = ╱5f╱_╱ // 0x1717 @0x25
0x16f2…1722 at0026 = ╱4e╱N╱ // 0x1718 @0x26
0x16f2…1722 at0027 = ╱52╱R╱ // 0x1719 @0x27
0x16f2…1722 at0028 = ╱5f╱_╱ // 0x171a @0x28
0x16f2…1722 at0029 = ╱44╱D╱ // 0x171b @0x29
0x16f2…1722 at002a = ╱47╱G╱ // 0x171c @0x2a
0x16f2…1722 at002b = ╱5f╱_╱ // 0x171d @0x2b
0x16f2…1722 at002c = ╱50╱P╱ // 0x171e @0x2c
0x16f2…1722 at002d = ╱4f╱O╱ // 0x171f @0x2d
0x16f2…1722 at002e = ╱53╱S╱ // 0x1720 @0x2e
0x16f2…1722 at002f = EOL // 0x1721 @0x2f
0x16f2…1722 }
0x1722…172e ad1c 02060 WHILE 5
0x1722…172e LineComal80 {
0x1722…172e ptr = 0xad1c // 0x1722 @0x0
0x1722…172e lno = 0x080c // 0x1724 @0x2
0x1722…172e at0004 = ╱a40001╱ WHILE ╱ // 0x1726 @0x4
0x1722…172e at0007 = ╱35╱5╱ // 0x1729 @0x7
0x1722…172e at0008 = ╱f20500╱ // 0x172a @0x8
0x1722…172e at000b = EOL // 0x172d @0xb
0x1722…172e }
0x172e…174a ad38 02070 GET DRIFT\ $ , 1 : PRIMODAT $
0x172e…174a LineComal80 {
0x172e…174a ptr = 0xad38 // 0x172e @0x0
0x172e…174a lno = 0x0816 // 0x1730 @0x2
0x172e…174a at0004 = ╱a9╱ GET ╱ // 0x1732 @0x4
0x172e…174a at0005 = ╱44╱D╱ // 0x1733 @0x5
0x172e…174a at0006 = ╱52╱R╱ // 0x1734 @0x6
0x172e…174a at0007 = ╱49╱I╱ // 0x1735 @0x7
0x172e…174a at0008 = ╱46╱F╱ // 0x1736 @0x8
0x172e…174a at0009 = ╱54╱T╱ // 0x1737 @0x9
0x172e…174a at000a = ╱5c╱\╱ // 0x1738 @0xa
0x172e…174a at000b = ╱ef╱ $ ╱ // 0x1739 @0xb
0x172e…174a at000c = ╱ec╱ , ╱ // 0x173a @0xc
0x172e…174a at000d = ╱31╱1╱ // 0x173b @0xd
0x172e…174a at000e = ╱f20100╱ // 0x173c @0xe
0x172e…174a at0011 = ╱f1╱ : ╱ // 0x173f @0x11
0x172e…174a at0012 = ╱50╱P╱ // 0x1740 @0x12
0x172e…174a at0013 = ╱52╱R╱ // 0x1741 @0x13
0x172e…174a at0014 = ╱49╱I╱ // 0x1742 @0x14
0x172e…174a at0015 = ╱4d╱M╱ // 0x1743 @0x15
0x172e…174a at0016 = ╱4f╱O╱ // 0x1744 @0x16
0x172e…174a at0017 = ╱44╱D╱ // 0x1745 @0x17
0x172e…174a at0018 = ╱41╱A╱ // 0x1746 @0x18
0x172e…174a at0019 = ╱54╱T╱ // 0x1747 @0x19
0x172e…174a at001a = ╱ef╱ $ ╱ // 0x1748 @0x1a
0x172e…174a at001b = EOL // 0x1749 @0x1b
0x172e…174a }
0x174a…1751 ad3f 02080 REPEAT
0x174a…1751 LineComal80 {
0x174a…1751 ptr = 0xad3f // 0x174a @0x0
0x174a…1751 lno = 0x0820 // 0x174c @0x2
0x174a…1751 at0004 = ╱9700╱ REPEAT ╱ // 0x174e @0x4
0x174a…1751 at0006 = EOL // 0x1750 @0x6
0x174a…1751 }
0x1751…1795 ad83 02090 EDIT "<SC0223>16.…Startdato…for…regnskabs}ret…(}}mmdd):…" : PRIMODAT $
0x1751…1795 LineComal80 {
0x1751…1795 ptr = 0xad83 // 0x1751 @0x0
0x1751…1795 lno = 0x082a // 0x1753 @0x2
0x1751…1795 at0004 = ╱b1╱ EDIT ╱ // 0x1755 @0x4
0x1751…1795 at0005 = ╱22╱"╱ // 0x1756 @0x5
0x1751…1795 at0006 = ╱3c╱<╱ // 0x1757 @0x6
0x1751…1795 at0007 = ╱53╱S╱ // 0x1758 @0x7
0x1751…1795 at0008 = ╱43╱C╱ // 0x1759 @0x8
0x1751…1795 at0009 = ╱30╱0╱ // 0x175a @0x9
0x1751…1795 at000a = ╱32╱2╱ // 0x175b @0xa
0x1751…1795 at000b = ╱32╱2╱ // 0x175c @0xb
0x1751…1795 at000c = ╱33╱3╱ // 0x175d @0xc
0x1751…1795 at000d = ╱3e╱>╱ // 0x175e @0xd
0x1751…1795 at000e = ╱31╱1╱ // 0x175f @0xe
0x1751…1795 at000f = ╱36╱6╱ // 0x1760 @0xf
0x1751…1795 at0010 = ╱2e╱.╱ // 0x1761 @0x10
0x1751…1795 at0011 = ╱20╱…╱ // 0x1762 @0x11
0x1751…1795 at0012 = ╱53╱S╱ // 0x1763 @0x12
0x1751…1795 at0013 = ╱74╱t╱ // 0x1764 @0x13
0x1751…1795 at0014 = ╱61╱a╱ // 0x1765 @0x14
0x1751…1795 at0015 = ╱72╱r╱ // 0x1766 @0x15
0x1751…1795 at0016 = ╱74╱t╱ // 0x1767 @0x16
0x1751…1795 at0017 = ╱64╱d╱ // 0x1768 @0x17
0x1751…1795 at0018 = ╱61╱a╱ // 0x1769 @0x18
0x1751…1795 at0019 = ╱74╱t╱ // 0x176a @0x19
0x1751…1795 at001a = ╱6f╱o╱ // 0x176b @0x1a
0x1751…1795 at001b = ╱20╱…╱ // 0x176c @0x1b
0x1751…1795 at001c = ╱66╱f╱ // 0x176d @0x1c
0x1751…1795 at001d = ╱6f╱o╱ // 0x176e @0x1d
0x1751…1795 at001e = ╱72╱r╱ // 0x176f @0x1e
0x1751…1795 at001f = ╱20╱…╱ // 0x1770 @0x1f
0x1751…1795 at0020 = ╱72╱r╱ // 0x1771 @0x20
0x1751…1795 at0021 = ╱65╱e╱ // 0x1772 @0x21
0x1751…1795 at0022 = ╱67╱g╱ // 0x1773 @0x22
0x1751…1795 at0023 = ╱6e╱n╱ // 0x1774 @0x23
0x1751…1795 at0024 = ╱73╱s╱ // 0x1775 @0x24
0x1751…1795 at0025 = ╱6b╱k╱ // 0x1776 @0x25
0x1751…1795 at0026 = ╱61╱a╱ // 0x1777 @0x26
0x1751…1795 at0027 = ╱62╱b╱ // 0x1778 @0x27
0x1751…1795 at0028 = ╱73╱s╱ // 0x1779 @0x28
0x1751…1795 at0029 = ╱7d╱}╱ // 0x177a @0x29
0x1751…1795 at002a = ╱72╱r╱ // 0x177b @0x2a
0x1751…1795 at002b = ╱65╱e╱ // 0x177c @0x2b
0x1751…1795 at002c = ╱74╱t╱ // 0x177d @0x2c
0x1751…1795 at002d = ╱20╱…╱ // 0x177e @0x2d
0x1751…1795 at002e = ╱28╱(╱ // 0x177f @0x2e
0x1751…1795 at002f = ╱7d╱}╱ // 0x1780 @0x2f
0x1751…1795 at0030 = ╱7d╱}╱ // 0x1781 @0x30
0x1751…1795 at0031 = ╱6d╱m╱ // 0x1782 @0x31
0x1751…1795 at0032 = ╱6d╱m╱ // 0x1783 @0x32
0x1751…1795 at0033 = ╱64╱d╱ // 0x1784 @0x33
0x1751…1795 at0034 = ╱64╱d╱ // 0x1785 @0x34
0x1751…1795 at0035 = ╱29╱)╱ // 0x1786 @0x35
0x1751…1795 at0036 = ╱3a╱:╱ // 0x1787 @0x36
0x1751…1795 at0037 = ╱20╱…╱ // 0x1788 @0x37
0x1751…1795 at0038 = ╱22╱"╱ // 0x1789 @0x38
0x1751…1795 at0039 = ╱f1╱ : ╱ // 0x178a @0x39
0x1751…1795 at003a = ╱50╱P╱ // 0x178b @0x3a
0x1751…1795 at003b = ╱52╱R╱ // 0x178c @0x3b
0x1751…1795 at003c = ╱49╱I╱ // 0x178d @0x3c
0x1751…1795 at003d = ╱4d╱M╱ // 0x178e @0x3d
0x1751…1795 at003e = ╱4f╱O╱ // 0x178f @0x3e
0x1751…1795 at003f = ╱44╱D╱ // 0x1790 @0x3f
0x1751…1795 at0040 = ╱41╱A╱ // 0x1791 @0x40
0x1751…1795 at0041 = ╱54╱T╱ // 0x1792 @0x41
0x1751…1795 at0042 = ╱ef╱ $ ╱ // 0x1793 @0x42
0x1751…1795 at0043 = EOL // 0x1794 @0x43
0x1751…1795 }
0x1795…17a7 ad95 02100 EXEC SL_FEJLLINIE
0x1795…17a7 LineComal80 {
0x1795…17a7 ptr = 0xad95 // 0x1795 @0x0
0x1795…17a7 lno = 0x0834 // 0x1797 @0x2
0x1795…17a7 at0004 = ╱9d╱ EXEC ╱ // 0x1799 @0x4
0x1795…17a7 at0005 = ╱53╱S╱ // 0x179a @0x5
0x1795…17a7 at0006 = ╱4c╱L╱ // 0x179b @0x6
0x1795…17a7 at0007 = ╱5f╱_╱ // 0x179c @0x7
0x1795…17a7 at0008 = ╱46╱F╱ // 0x179d @0x8
0x1795…17a7 at0009 = ╱45╱E╱ // 0x179e @0x9
0x1795…17a7 at000a = ╱4a╱J╱ // 0x179f @0xa
0x1795…17a7 at000b = ╱4c╱L╱ // 0x17a0 @0xb
0x1795…17a7 at000c = ╱4c╱L╱ // 0x17a1 @0xc
0x1795…17a7 at000d = ╱49╱I╱ // 0x17a2 @0xd
0x1795…17a7 at000e = ╱4e╱N╱ // 0x17a3 @0xe
0x1795…17a7 at000f = ╱49╱I╱ // 0x17a4 @0xf
0x1795…17a7 at0010 = ╱45╱E╱ // 0x17a5 @0x10
0x1795…17a7 at0011 = EOL // 0x17a6 @0x11
0x1795…17a7 }
0x17a7…17c4 adb2 02110 EXEC DATO_CONTROL ( PRIMODAT $ )
0x17a7…17c4 LineComal80 {
0x17a7…17c4 ptr = 0xadb2 // 0x17a7 @0x0
0x17a7…17c4 lno = 0x083e // 0x17a9 @0x2
0x17a7…17c4 at0004 = ╱9d╱ EXEC ╱ // 0x17ab @0x4
0x17a7…17c4 at0005 = ╱44╱D╱ // 0x17ac @0x5
0x17a7…17c4 at0006 = ╱41╱A╱ // 0x17ad @0x6
0x17a7…17c4 at0007 = ╱54╱T╱ // 0x17ae @0x7
0x17a7…17c4 at0008 = ╱4f╱O╱ // 0x17af @0x8
0x17a7…17c4 at0009 = ╱5f╱_╱ // 0x17b0 @0x9
0x17a7…17c4 at000a = ╱43╱C╱ // 0x17b1 @0xa
0x17a7…17c4 at000b = ╱4f╱O╱ // 0x17b2 @0xb
0x17a7…17c4 at000c = ╱4e╱N╱ // 0x17b3 @0xc
0x17a7…17c4 at000d = ╱54╱T╱ // 0x17b4 @0xd
0x17a7…17c4 at000e = ╱52╱R╱ // 0x17b5 @0xe
0x17a7…17c4 at000f = ╱4f╱O╱ // 0x17b6 @0xf
0x17a7…17c4 at0010 = ╱4c╱L╱ // 0x17b7 @0x10
0x17a7…17c4 at0011 = ╱ed╱ ( ╱ // 0x17b8 @0x11
0x17a7…17c4 at0012 = ╱50╱P╱ // 0x17b9 @0x12
0x17a7…17c4 at0013 = ╱52╱R╱ // 0x17ba @0x13
0x17a7…17c4 at0014 = ╱49╱I╱ // 0x17bb @0x14
0x17a7…17c4 at0015 = ╱4d╱M╱ // 0x17bc @0x15
0x17a7…17c4 at0016 = ╱4f╱O╱ // 0x17bd @0x16
0x17a7…17c4 at0017 = ╱44╱D╱ // 0x17be @0x17
0x17a7…17c4 at0018 = ╱41╱A╱ // 0x17bf @0x18
0x17a7…17c4 at0019 = ╱54╱T╱ // 0x17c0 @0x19
0x17a7…17c4 at001a = ╱ef╱ $ ╱ // 0x17c1 @0x1a
0x17a7…17c4 at001b = ╱ee╱ ) ╱ // 0x17c2 @0x1b
0x17a7…17c4 at001c = EOL // 0x17c3 @0x1c
0x17a7…17c4 }
0x17c4…17cc adba 02120 UNTIL OK
0x17c4…17cc LineComal80 {
0x17c4…17cc ptr = 0xadba // 0x17c4 @0x0
0x17c4…17cc lno = 0x0848 // 0x17c6 @0x2
0x17c4…17cc at0004 = ╱98╱ UNTIL ╱ // 0x17c8 @0x4
0x17c4…17cc at0005 = ╱4f╱O╱ // 0x17c9 @0x5
0x17c4…17cc at0006 = ╱4b╱K╱ // 0x17ca @0x6
0x17c4…17cc at0007 = EOL // 0x17cb @0x7
0x17c4…17cc }
0x17cc…17e8 add6 02130 PUT DRIFT\ $ , 1 : PRIMODAT $
0x17cc…17e8 LineComal80 {
0x17cc…17e8 ptr = 0xadd6 // 0x17cc @0x0
0x17cc…17e8 lno = 0x0852 // 0x17ce @0x2
0x17cc…17e8 at0004 = ╱aa╱ PUT ╱ // 0x17d0 @0x4
0x17cc…17e8 at0005 = ╱44╱D╱ // 0x17d1 @0x5
0x17cc…17e8 at0006 = ╱52╱R╱ // 0x17d2 @0x6
0x17cc…17e8 at0007 = ╱49╱I╱ // 0x17d3 @0x7
0x17cc…17e8 at0008 = ╱46╱F╱ // 0x17d4 @0x8
0x17cc…17e8 at0009 = ╱54╱T╱ // 0x17d5 @0x9
0x17cc…17e8 at000a = ╱5c╱\╱ // 0x17d6 @0xa
0x17cc…17e8 at000b = ╱ef╱ $ ╱ // 0x17d7 @0xb
0x17cc…17e8 at000c = ╱ec╱ , ╱ // 0x17d8 @0xc
0x17cc…17e8 at000d = ╱31╱1╱ // 0x17d9 @0xd
0x17cc…17e8 at000e = ╱f20100╱ // 0x17da @0xe
0x17cc…17e8 at0011 = ╱f1╱ : ╱ // 0x17dd @0x11
0x17cc…17e8 at0012 = ╱50╱P╱ // 0x17de @0x12
0x17cc…17e8 at0013 = ╱52╱R╱ // 0x17df @0x13
0x17cc…17e8 at0014 = ╱49╱I╱ // 0x17e0 @0x14
0x17cc…17e8 at0015 = ╱4d╱M╱ // 0x17e1 @0x15
0x17cc…17e8 at0016 = ╱4f╱O╱ // 0x17e2 @0x16
0x17cc…17e8 at0017 = ╱44╱D╱ // 0x17e3 @0x17
0x17cc…17e8 at0018 = ╱41╱A╱ // 0x17e4 @0x18
0x17cc…17e8 at0019 = ╱54╱T╱ // 0x17e5 @0x19
0x17cc…17e8 at001a = ╱ef╱ $ ╱ // 0x17e6 @0x1a
0x17cc…17e8 at001b = EOL // 0x17e7 @0x1b
0x17cc…17e8 }
0x17e8…17f9 ade7 02140 WHILE 6 , 7
0x17e8…17f9 LineComal80 {
0x17e8…17f9 ptr = 0xade7 // 0x17e8 @0x0
0x17e8…17f9 lno = 0x085c // 0x17ea @0x2
0x17e8…17f9 at0004 = ╱a40001╱ WHILE ╱ // 0x17ec @0x4
0x17e8…17f9 at0007 = ╱36╱6╱ // 0x17ef @0x7
0x17e8…17f9 at0008 = ╱f20600╱ // 0x17f0 @0x8
0x17e8…17f9 at000b = ╱ec╱ , ╱ // 0x17f3 @0xb
0x17e8…17f9 at000c = ╱37╱7╱ // 0x17f4 @0xc
0x17e8…17f9 at000d = ╱f20700╱ // 0x17f5 @0xd
0x17e8…17f9 at0010 = EOL // 0x17f8 @0x10
0x17e8…17f9 }
0x17f9…1822 ae10 02150 GET PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
0x17f9…1822 LineComal80 {
0x17f9…1822 ptr = 0xae10 // 0x17f9 @0x0
0x17f9…1822 lno = 0x0866 // 0x17fb @0x2
0x17f9…1822 at0004 = ╱a9╱ GET ╱ // 0x17fd @0x4
0x17f9…1822 at0005 = ╱50╱P╱ // 0x17fe @0x5
0x17f9…1822 at0006 = ╱41╱A╱ // 0x17ff @0x6
0x17f9…1822 at0007 = ╱52╱R╱ // 0x1800 @0x7
0x17f9…1822 at0008 = ╱41╱A╱ // 0x1801 @0x8
0x17f9…1822 at0009 = ╱4d╱M╱ // 0x1802 @0x9
0x17f9…1822 at000a = ╱ef╱ $ ╱ // 0x1803 @0xa
0x17f9…1822 at000b = ╱ec╱ , ╱ // 0x1804 @0xb
0x17f9…1822 at000c = ╱32╱2╱ // 0x1805 @0xc
0x17f9…1822 at000d = ╱f20200╱ // 0x1806 @0xd
0x17f9…1822 at0010 = ╱f1╱ : ╱ // 0x1809 @0x10
0x17f9…1822 at0011 = ╱53╱S╱ // 0x180a @0x11
0x17f9…1822 at0012 = ╱54╱T╱ // 0x180b @0x12
0x17f9…1822 at0013 = ╱5f╱_╱ // 0x180c @0x13
0x17f9…1822 at0014 = ╱44╱D╱ // 0x180d @0x14
0x17f9…1822 at0015 = ╱41╱A╱ // 0x180e @0x15
0x17f9…1822 at0016 = ╱54╱T╱ // 0x180f @0x16
0x17f9…1822 at0017 = ╱4f╱O╱ // 0x1810 @0x17
0x17f9…1822 at0018 = ╱ef╱ $ ╱ // 0x1811 @0x18
0x17f9…1822 at0019 = ╱ec╱ , ╱ // 0x1812 @0x19
0x17f9…1822 at001a = ╱41╱A╱ // 0x1813 @0x1a
0x17f9…1822 at001b = ╱4e╱N╱ // 0x1814 @0x1b
0x17f9…1822 at001c = ╱54╱T╱ // 0x1815 @0x1c
0x17f9…1822 at001d = ╱5f╱_╱ // 0x1816 @0x1d
0x17f9…1822 at001e = ╱50╱P╱ // 0x1817 @0x1e
0x17f9…1822 at001f = ╱45╱E╱ // 0x1818 @0x1f
0x17f9…1822 at0020 = ╱52╱R╱ // 0x1819 @0x20
0x17f9…1822 at0021 = ╱ec╱ , ╱ // 0x181a @0x21
0x17f9…1822 at0022 = ╱50╱P╱ // 0x181b @0x22
0x17f9…1822 at0023 = ╱45╱E╱ // 0x181c @0x23
0x17f9…1822 at0024 = ╱52╱R╱ // 0x181d @0x24
0x17f9…1822 at0025 = ╱5f╱_╱ // 0x181e @0x25
0x17f9…1822 at0026 = ╱4e╱N╱ // 0x181f @0x26
0x17f9…1822 at0027 = ╱52╱R╱ // 0x1820 @0x27
0x17f9…1822 at0028 = EOL // 0x1821 @0x28
0x17f9…1822 }
0x1822…1830 ae1e 02160 CASE R_LIN OF
0x1822…1830 LineComal80 {
0x1822…1830 ptr = 0xae1e // 0x1822 @0x0
0x1822…1830 lno = 0x0870 // 0x1824 @0x2
0x1822…1830 at0004 = ╱a20001╱ CASE ╱ // 0x1826 @0x4
0x1822…1830 at0007 = ╱52╱R╱ // 0x1829 @0x7
0x1822…1830 at0008 = ╱5f╱_╱ // 0x182a @0x8
0x1822…1830 at0009 = ╱4c╱L╱ // 0x182b @0x9
0x1822…1830 at000a = ╱49╱I╱ // 0x182c @0xa
0x1822…1830 at000b = ╱4e╱N╱ // 0x182d @0xb
0x1822…1830 at000c = ╱ba╱ OF ╱ // 0x182e @0xc
0x1822…1830 at000d = EOL // 0x182f @0xd
0x1822…1830 }
0x1830…183c ae2a 02170 WHILE 6
0x1830…183c LineComal80 {
0x1830…183c ptr = 0xae2a // 0x1830 @0x0
0x1830…183c lno = 0x087a // 0x1832 @0x2
0x1830…183c at0004 = ╱a40001╱ WHILE ╱ // 0x1834 @0x4
0x1830…183c at0007 = ╱36╱6╱ // 0x1837 @0x7
0x1830…183c at0008 = ╱f20600╱ // 0x1838 @0x8
0x1830…183c at000b = EOL // 0x183b @0xb
0x1830…183c }
0x183c…1843 ae31 02180 REPEAT
0x183c…1843 LineComal80 {
0x183c…1843 ptr = 0xae31 // 0x183c @0x0
0x183c…1843 lno = 0x0884 // 0x183e @0x2
0x183c…1843 at0004 = ╱9700╱ REPEAT ╱ // 0x1840 @0x4
0x183c…1843 at0006 = EOL // 0x1842 @0x6
0x183c…1843 }
0x1843…185e ae4c 02190 LET SVAR $ := CHR$ ( ANT_PER , 2 )
0x1843…185e LineComal80 {
0x1843…185e ptr = 0xae4c // 0x1843 @0x0
0x1843…185e lno = 0x088e // 0x1845 @0x2
0x1843…185e at0004 = ╱86╱ LET ╱ // 0x1847 @0x4
0x1843…185e at0005 = ╱53╱S╱ // 0x1848 @0x5
0x1843…185e at0006 = ╱56╱V╱ // 0x1849 @0x6
0x1843…185e at0007 = ╱41╱A╱ // 0x184a @0x7
0x1843…185e at0008 = ╱52╱R╱ // 0x184b @0x8
0x1843…185e at0009 = ╱ef╱ $ ╱ // 0x184c @0x9
0x1843…185e at000a = ╱f0╱ := ╱ // 0x184d @0xa
0x1843…185e at000b = ╱d0╱ CHR$ ╱ // 0x184e @0xb
0x1843…185e at000c = ╱ed╱ ( ╱ // 0x184f @0xc
0x1843…185e at000d = ╱41╱A╱ // 0x1850 @0xd
0x1843…185e at000e = ╱4e╱N╱ // 0x1851 @0xe
0x1843…185e at000f = ╱54╱T╱ // 0x1852 @0xf
0x1843…185e at0010 = ╱5f╱_╱ // 0x1853 @0x10
0x1843…185e at0011 = ╱50╱P╱ // 0x1854 @0x11
0x1843…185e at0012 = ╱45╱E╱ // 0x1855 @0x12
0x1843…185e at0013 = ╱52╱R╱ // 0x1856 @0x13
0x1843…185e at0014 = ╱ec╱ , ╱ // 0x1857 @0x14
0x1843…185e at0015 = ╱32╱2╱ // 0x1858 @0x15
0x1843…185e at0016 = ╱f20200╱ // 0x1859 @0x16
0x1843…185e at0019 = ╱ee╱ ) ╱ // 0x185c @0x19
0x1843…185e at001a = EOL // 0x185d @0x1a
0x1843…185e }
0x185e…18a3 ae91 02200 EDIT "<SC0223>6.……Antal…perioder…i…regnskabs}ret:…" : SVAR $ ( 1 : 2 )
0x185e…18a3 LineComal80 {
0x185e…18a3 ptr = 0xae91 // 0x185e @0x0
0x185e…18a3 lno = 0x0898 // 0x1860 @0x2
0x185e…18a3 at0004 = ╱b1╱ EDIT ╱ // 0x1862 @0x4
0x185e…18a3 at0005 = ╱22╱"╱ // 0x1863 @0x5
0x185e…18a3 at0006 = ╱3c╱<╱ // 0x1864 @0x6
0x185e…18a3 at0007 = ╱53╱S╱ // 0x1865 @0x7
0x185e…18a3 at0008 = ╱43╱C╱ // 0x1866 @0x8
0x185e…18a3 at0009 = ╱30╱0╱ // 0x1867 @0x9
0x185e…18a3 at000a = ╱32╱2╱ // 0x1868 @0xa
0x185e…18a3 at000b = ╱32╱2╱ // 0x1869 @0xb
0x185e…18a3 at000c = ╱33╱3╱ // 0x186a @0xc
0x185e…18a3 at000d = ╱3e╱>╱ // 0x186b @0xd
0x185e…18a3 at000e = ╱36╱6╱ // 0x186c @0xe
0x185e…18a3 at000f = ╱2e╱.╱ // 0x186d @0xf
0x185e…18a3 at0010 = ╱20╱…╱ // 0x186e @0x10
0x185e…18a3 at0011 = ╱20╱…╱ // 0x186f @0x11
0x185e…18a3 at0012 = ╱41╱A╱ // 0x1870 @0x12
0x185e…18a3 at0013 = ╱6e╱n╱ // 0x1871 @0x13
0x185e…18a3 at0014 = ╱74╱t╱ // 0x1872 @0x14
0x185e…18a3 at0015 = ╱61╱a╱ // 0x1873 @0x15
0x185e…18a3 at0016 = ╱6c╱l╱ // 0x1874 @0x16
0x185e…18a3 at0017 = ╱20╱…╱ // 0x1875 @0x17
0x185e…18a3 at0018 = ╱70╱p╱ // 0x1876 @0x18
0x185e…18a3 at0019 = ╱65╱e╱ // 0x1877 @0x19
0x185e…18a3 at001a = ╱72╱r╱ // 0x1878 @0x1a
0x185e…18a3 at001b = ╱69╱i╱ // 0x1879 @0x1b
0x185e…18a3 at001c = ╱6f╱o╱ // 0x187a @0x1c
0x185e…18a3 at001d = ╱64╱d╱ // 0x187b @0x1d
0x185e…18a3 at001e = ╱65╱e╱ // 0x187c @0x1e
0x185e…18a3 at001f = ╱72╱r╱ // 0x187d @0x1f
0x185e…18a3 at0020 = ╱20╱…╱ // 0x187e @0x20
0x185e…18a3 at0021 = ╱69╱i╱ // 0x187f @0x21
0x185e…18a3 at0022 = ╱20╱…╱ // 0x1880 @0x22
0x185e…18a3 at0023 = ╱72╱r╱ // 0x1881 @0x23
0x185e…18a3 at0024 = ╱65╱e╱ // 0x1882 @0x24
0x185e…18a3 at0025 = ╱67╱g╱ // 0x1883 @0x25
0x185e…18a3 at0026 = ╱6e╱n╱ // 0x1884 @0x26
0x185e…18a3 at0027 = ╱73╱s╱ // 0x1885 @0x27
0x185e…18a3 at0028 = ╱6b╱k╱ // 0x1886 @0x28
0x185e…18a3 at0029 = ╱61╱a╱ // 0x1887 @0x29
0x185e…18a3 at002a = ╱62╱b╱ // 0x1888 @0x2a
0x185e…18a3 at002b = ╱73╱s╱ // 0x1889 @0x2b
0x185e…18a3 at002c = ╱7d╱}╱ // 0x188a @0x2c
0x185e…18a3 at002d = ╱72╱r╱ // 0x188b @0x2d
0x185e…18a3 at002e = ╱65╱e╱ // 0x188c @0x2e
0x185e…18a3 at002f = ╱74╱t╱ // 0x188d @0x2f
0x185e…18a3 at0030 = ╱3a╱:╱ // 0x188e @0x30
0x185e…18a3 at0031 = ╱20╱…╱ // 0x188f @0x31
0x185e…18a3 at0032 = ╱22╱"╱ // 0x1890 @0x32
0x185e…18a3 at0033 = ╱f1╱ : ╱ // 0x1891 @0x33
0x185e…18a3 at0034 = ╱53╱S╱ // 0x1892 @0x34
0x185e…18a3 at0035 = ╱56╱V╱ // 0x1893 @0x35
0x185e…18a3 at0036 = ╱41╱A╱ // 0x1894 @0x36
0x185e…18a3 at0037 = ╱52╱R╱ // 0x1895 @0x37
0x185e…18a3 at0038 = ╱ef╱ $ ╱ // 0x1896 @0x38
0x185e…18a3 at0039 = ╱ed╱ ( ╱ // 0x1897 @0x39
0x185e…18a3 at003a = ╱31╱1╱ // 0x1898 @0x3a
0x185e…18a3 at003b = ╱f20100╱ // 0x1899 @0x3b
0x185e…18a3 at003e = ╱f1╱ : ╱ // 0x189c @0x3e
0x185e…18a3 at003f = ╱32╱2╱ // 0x189d @0x3f
0x185e…18a3 at0040 = ╱f20200╱ // 0x189e @0x40
0x185e…18a3 at0043 = ╱ee╱ ) ╱ // 0x18a1 @0x43
0x185e…18a3 at0044 = EOL // 0x18a2 @0x44
0x185e…18a3 }
0x18a3…18bb aea9 02210 EXEC TAL_CONTROL ( SVAR $ )
0x18a3…18bb LineComal80 {
0x18a3…18bb ptr = 0xaea9 // 0x18a3 @0x0
0x18a3…18bb lno = 0x08a2 // 0x18a5 @0x2
0x18a3…18bb at0004 = ╱9d╱ EXEC ╱ // 0x18a7 @0x4
0x18a3…18bb at0005 = ╱54╱T╱ // 0x18a8 @0x5
0x18a3…18bb at0006 = ╱41╱A╱ // 0x18a9 @0x6
0x18a3…18bb at0007 = ╱4c╱L╱ // 0x18aa @0x7
0x18a3…18bb at0008 = ╱5f╱_╱ // 0x18ab @0x8
0x18a3…18bb at0009 = ╱43╱C╱ // 0x18ac @0x9
0x18a3…18bb at000a = ╱4f╱O╱ // 0x18ad @0xa
0x18a3…18bb at000b = ╱4e╱N╱ // 0x18ae @0xb
0x18a3…18bb at000c = ╱54╱T╱ // 0x18af @0xc
0x18a3…18bb at000d = ╱52╱R╱ // 0x18b0 @0xd
0x18a3…18bb at000e = ╱4f╱O╱ // 0x18b1 @0xe
0x18a3…18bb at000f = ╱4c╱L╱ // 0x18b2 @0xf
0x18a3…18bb at0010 = ╱ed╱ ( ╱ // 0x18b3 @0x10
0x18a3…18bb at0011 = ╱53╱S╱ // 0x18b4 @0x11
0x18a3…18bb at0012 = ╱56╱V╱ // 0x18b5 @0x12
0x18a3…18bb at0013 = ╱41╱A╱ // 0x18b6 @0x13
0x18a3…18bb at0014 = ╱52╱R╱ // 0x18b7 @0x14
0x18a3…18bb at0015 = ╱ef╱ $ ╱ // 0x18b8 @0x15
0x18a3…18bb at0016 = ╱ee╱ ) ╱ // 0x18b9 @0x16
0x18a3…18bb at0017 = EOL // 0x18ba @0x17
0x18a3…18bb }
0x18bb…18e7 aed5 02220 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
0x18bb…18e7 LineComal80 {
0x18bb…18e7 ptr = 0xaed5 // 0x18bb @0x0
0x18bb…18e7 lno = 0x08ac // 0x18bd @0x2
0x18bb…18e7 at0004 = ╱8200╱ IF ╱ // 0x18bf @0x4
0x18bb…18e7 at0006 = ╱22╱"╱ // 0x18c1 @0x6
0x18bb…18e7 at0007 = ╱2e╱.╱ // 0x18c2 @0x7
0x18bb…18e7 at0008 = ╱22╱"╱ // 0x18c3 @0x8
0x18bb…18e7 at0009 = ╱dc╱ IN ╱ // 0x18c4 @0x9
0x18bb…18e7 at000a = ╱53╱S╱ // 0x18c5 @0xa
0x18bb…18e7 at000b = ╱56╱V╱ // 0x18c6 @0xb
0x18bb…18e7 at000c = ╱41╱A╱ // 0x18c7 @0xc
0x18bb…18e7 at000d = ╱52╱R╱ // 0x18c8 @0xd
0x18bb…18e7 at000e = ╱ef╱ $ ╱ // 0x18c9 @0xe
0x18bb…18e7 at000f = ╱b5╱ THEN ╱ // 0x18ca @0xf
0x18bb…18e7 at0010 = ╱9d╱ EXEC ╱ // 0x18cb @0x10
0x18bb…18e7 at0011 = ╱46╱F╱ // 0x18cc @0x11
0x18bb…18e7 at0012 = ╱45╱E╱ // 0x18cd @0x12
0x18bb…18e7 at0013 = ╱4a╱J╱ // 0x18ce @0x13
0x18bb…18e7 at0014 = ╱4c╱L╱ // 0x18cf @0x14
0x18bb…18e7 at0015 = ╱ed╱ ( ╱ // 0x18d0 @0x15
0x18bb…18e7 at0016 = ╱22╱"╱ // 0x18d1 @0x16
0x18bb…18e7 at0017 = ╱55╱U╱ // 0x18d2 @0x17
0x18bb…18e7 at0018 = ╱6c╱l╱ // 0x18d3 @0x18
0x18bb…18e7 at0019 = ╱6f╱o╱ // 0x18d4 @0x19
0x18bb…18e7 at001a = ╱76╱v╱ // 0x18d5 @0x1a
0x18bb…18e7 at001b = ╱6c╱l╱ // 0x18d6 @0x1b
0x18bb…18e7 at001c = ╱69╱i╱ // 0x18d7 @0x1c
0x18bb…18e7 at001d = ╱67╱g╱ // 0x18d8 @0x1d
0x18bb…18e7 at001e = ╱74╱t╱ // 0x18d9 @0x1e
0x18bb…18e7 at001f = ╱20╱…╱ // 0x18da @0x1f
0x18bb…18e7 at0020 = ╱74╱t╱ // 0x18db @0x20
0x18bb…18e7 at0021 = ╱65╱e╱ // 0x18dc @0x21
0x18bb…18e7 at0022 = ╱67╱g╱ // 0x18dd @0x22
0x18bb…18e7 at0023 = ╱6e╱n╱ // 0x18de @0x23
0x18bb…18e7 at0024 = ╱3a╱:╱ // 0x18df @0x24
0x18bb…18e7 at0025 = ╱20╱…╱ // 0x18e0 @0x25
0x18bb…18e7 at0026 = ╱27╱'╱ // 0x18e1 @0x26
0x18bb…18e7 at0027 = ╱2e╱.╱ // 0x18e2 @0x27
0x18bb…18e7 at0028 = ╱27╱'╱ // 0x18e3 @0x28
0x18bb…18e7 at0029 = ╱22╱"╱ // 0x18e4 @0x29
0x18bb…18e7 at002a = ╱ee╱ ) ╱ // 0x18e5 @0x2a
0x18bb…18e7 at002b = EOL // 0x18e6 @0x2b
0x18bb…18e7 }
0x18e7…18ef aedd 02230 UNTIL OK
0x18e7…18ef LineComal80 {
0x18e7…18ef ptr = 0xaedd // 0x18e7 @0x0
0x18e7…18ef lno = 0x08b6 // 0x18e9 @0x2
0x18e7…18ef at0004 = ╱98╱ UNTIL ╱ // 0x18eb @0x4
0x18e7…18ef at0005 = ╱4f╱O╱ // 0x18ec @0x5
0x18e7…18ef at0006 = ╱4b╱K╱ // 0x18ed @0x6
0x18e7…18ef at0007 = EOL // 0x18ee @0x7
0x18e7…18ef }
0x18ef…1905 aef3 02240 LET ANT_PER := ASC ( SVAR $ )
0x18ef…1905 LineComal80 {
0x18ef…1905 ptr = 0xaef3 // 0x18ef @0x0
0x18ef…1905 lno = 0x08c0 // 0x18f1 @0x2
0x18ef…1905 at0004 = ╱86╱ LET ╱ // 0x18f3 @0x4
0x18ef…1905 at0005 = ╱41╱A╱ // 0x18f4 @0x5
0x18ef…1905 at0006 = ╱4e╱N╱ // 0x18f5 @0x6
0x18ef…1905 at0007 = ╱54╱T╱ // 0x18f6 @0x7
0x18ef…1905 at0008 = ╱5f╱_╱ // 0x18f7 @0x8
0x18ef…1905 at0009 = ╱50╱P╱ // 0x18f8 @0x9
0x18ef…1905 at000a = ╱45╱E╱ // 0x18f9 @0xa
0x18ef…1905 at000b = ╱52╱R╱ // 0x18fa @0xb
0x18ef…1905 at000c = ╱f0╱ := ╱ // 0x18fb @0xc
0x18ef…1905 at000d = ╱cf╱ ASC ╱ // 0x18fc @0xd
0x18ef…1905 at000e = ╱ed╱ ( ╱ // 0x18fd @0xe
0x18ef…1905 at000f = ╱53╱S╱ // 0x18fe @0xf
0x18ef…1905 at0010 = ╱56╱V╱ // 0x18ff @0x10
0x18ef…1905 at0011 = ╱41╱A╱ // 0x1900 @0x11
0x18ef…1905 at0012 = ╱52╱R╱ // 0x1901 @0x12
0x18ef…1905 at0013 = ╱ef╱ $ ╱ // 0x1902 @0x13
0x18ef…1905 at0014 = ╱ee╱ ) ╱ // 0x1903 @0x14
0x18ef…1905 at0015 = EOL // 0x1904 @0x15
0x18ef…1905 }
0x1905…1911 aeff 02250 WHILE 7
0x1905…1911 LineComal80 {
0x1905…1911 ptr = 0xaeff // 0x1905 @0x0
0x1905…1911 lno = 0x08ca // 0x1907 @0x2
0x1905…1911 at0004 = ╱a40001╱ WHILE ╱ // 0x1909 @0x4
0x1905…1911 at0007 = ╱37╱7╱ // 0x190c @0x7
0x1905…1911 at0008 = ╱f20700╱ // 0x190d @0x8
0x1905…1911 at000b = EOL // 0x1910 @0xb
0x1905…1911 }
0x1911…1918 af06 02260 REPEAT
0x1911…1918 LineComal80 {
0x1911…1918 ptr = 0xaf06 // 0x1911 @0x0
0x1911…1918 lno = 0x08d4 // 0x1913 @0x2
0x1911…1918 at0004 = ╱9700╱ REPEAT ╱ // 0x1915 @0x4
0x1911…1918 at0006 = EOL // 0x1917 @0x6
0x1911…1918 }
0x1918…1932 af20 02270 LET SVAR $ := CHR$ ( PER_NR , 2 )
0x1918…1932 LineComal80 {
0x1918…1932 ptr = 0xaf20 // 0x1918 @0x0
0x1918…1932 lno = 0x08de // 0x191a @0x2
0x1918…1932 at0004 = ╱86╱ LET ╱ // 0x191c @0x4
0x1918…1932 at0005 = ╱53╱S╱ // 0x191d @0x5
0x1918…1932 at0006 = ╱56╱V╱ // 0x191e @0x6
0x1918…1932 at0007 = ╱41╱A╱ // 0x191f @0x7
0x1918…1932 at0008 = ╱52╱R╱ // 0x1920 @0x8
0x1918…1932 at0009 = ╱ef╱ $ ╱ // 0x1921 @0x9
0x1918…1932 at000a = ╱f0╱ := ╱ // 0x1922 @0xa
0x1918…1932 at000b = ╱d0╱ CHR$ ╱ // 0x1923 @0xb
0x1918…1932 at000c = ╱ed╱ ( ╱ // 0x1924 @0xc
0x1918…1932 at000d = ╱50╱P╱ // 0x1925 @0xd
0x1918…1932 at000e = ╱45╱E╱ // 0x1926 @0xe
0x1918…1932 at000f = ╱52╱R╱ // 0x1927 @0xf
0x1918…1932 at0010 = ╱5f╱_╱ // 0x1928 @0x10
0x1918…1932 at0011 = ╱4e╱N╱ // 0x1929 @0x11
0x1918…1932 at0012 = ╱52╱R╱ // 0x192a @0x12
0x1918…1932 at0013 = ╱ec╱ , ╱ // 0x192b @0x13
0x1918…1932 at0014 = ╱32╱2╱ // 0x192c @0x14
0x1918…1932 at0015 = ╱f20200╱ // 0x192d @0x15
0x1918…1932 at0018 = ╱ee╱ ) ╱ // 0x1930 @0x18
0x1918…1932 at0019 = EOL // 0x1931 @0x19
0x1918…1932 }
0x1932…197a af68 02280 EDIT "<SC0223>7.……Nr.…p}…nuv{rende…regnskabsperiode:…" : SVAR $ ( 1 : 2 )
0x1932…197a LineComal80 {
0x1932…197a ptr = 0xaf68 // 0x1932 @0x0
0x1932…197a lno = 0x08e8 // 0x1934 @0x2
0x1932…197a at0004 = ╱b1╱ EDIT ╱ // 0x1936 @0x4
0x1932…197a at0005 = ╱22╱"╱ // 0x1937 @0x5
0x1932…197a at0006 = ╱3c╱<╱ // 0x1938 @0x6
0x1932…197a at0007 = ╱53╱S╱ // 0x1939 @0x7
0x1932…197a at0008 = ╱43╱C╱ // 0x193a @0x8
0x1932…197a at0009 = ╱30╱0╱ // 0x193b @0x9
0x1932…197a at000a = ╱32╱2╱ // 0x193c @0xa
0x1932…197a at000b = ╱32╱2╱ // 0x193d @0xb
0x1932…197a at000c = ╱33╱3╱ // 0x193e @0xc
0x1932…197a at000d = ╱3e╱>╱ // 0x193f @0xd
0x1932…197a at000e = ╱37╱7╱ // 0x1940 @0xe
0x1932…197a at000f = ╱2e╱.╱ // 0x1941 @0xf
0x1932…197a at0010 = ╱20╱…╱ // 0x1942 @0x10
0x1932…197a at0011 = ╱20╱…╱ // 0x1943 @0x11
0x1932…197a at0012 = ╱4e╱N╱ // 0x1944 @0x12
0x1932…197a at0013 = ╱72╱r╱ // 0x1945 @0x13
0x1932…197a at0014 = ╱2e╱.╱ // 0x1946 @0x14
0x1932…197a at0015 = ╱20╱…╱ // 0x1947 @0x15
0x1932…197a at0016 = ╱70╱p╱ // 0x1948 @0x16
0x1932…197a at0017 = ╱7d╱}╱ // 0x1949 @0x17
0x1932…197a at0018 = ╱20╱…╱ // 0x194a @0x18
0x1932…197a at0019 = ╱6e╱n╱ // 0x194b @0x19
0x1932…197a at001a = ╱75╱u╱ // 0x194c @0x1a
0x1932…197a at001b = ╱76╱v╱ // 0x194d @0x1b
0x1932…197a at001c = ╱7b╱{╱ // 0x194e @0x1c
0x1932…197a at001d = ╱72╱r╱ // 0x194f @0x1d
0x1932…197a at001e = ╱65╱e╱ // 0x1950 @0x1e
0x1932…197a at001f = ╱6e╱n╱ // 0x1951 @0x1f
0x1932…197a at0020 = ╱64╱d╱ // 0x1952 @0x20
0x1932…197a at0021 = ╱65╱e╱ // 0x1953 @0x21
0x1932…197a at0022 = ╱20╱…╱ // 0x1954 @0x22
0x1932…197a at0023 = ╱72╱r╱ // 0x1955 @0x23
0x1932…197a at0024 = ╱65╱e╱ // 0x1956 @0x24
0x1932…197a at0025 = ╱67╱g╱ // 0x1957 @0x25
0x1932…197a at0026 = ╱6e╱n╱ // 0x1958 @0x26
0x1932…197a at0027 = ╱73╱s╱ // 0x1959 @0x27
0x1932…197a at0028 = ╱6b╱k╱ // 0x195a @0x28
0x1932…197a at0029 = ╱61╱a╱ // 0x195b @0x29
0x1932…197a at002a = ╱62╱b╱ // 0x195c @0x2a
0x1932…197a at002b = ╱73╱s╱ // 0x195d @0x2b
0x1932…197a at002c = ╱70╱p╱ // 0x195e @0x2c
0x1932…197a at002d = ╱65╱e╱ // 0x195f @0x2d
0x1932…197a at002e = ╱72╱r╱ // 0x1960 @0x2e
0x1932…197a at002f = ╱69╱i╱ // 0x1961 @0x2f
0x1932…197a at0030 = ╱6f╱o╱ // 0x1962 @0x30
0x1932…197a at0031 = ╱64╱d╱ // 0x1963 @0x31
0x1932…197a at0032 = ╱65╱e╱ // 0x1964 @0x32
0x1932…197a at0033 = ╱3a╱:╱ // 0x1965 @0x33
0x1932…197a at0034 = ╱20╱…╱ // 0x1966 @0x34
0x1932…197a at0035 = ╱22╱"╱ // 0x1967 @0x35
0x1932…197a at0036 = ╱f1╱ : ╱ // 0x1968 @0x36
0x1932…197a at0037 = ╱53╱S╱ // 0x1969 @0x37
0x1932…197a at0038 = ╱56╱V╱ // 0x196a @0x38
0x1932…197a at0039 = ╱41╱A╱ // 0x196b @0x39
0x1932…197a at003a = ╱52╱R╱ // 0x196c @0x3a
0x1932…197a at003b = ╱ef╱ $ ╱ // 0x196d @0x3b
0x1932…197a at003c = ╱ed╱ ( ╱ // 0x196e @0x3c
0x1932…197a at003d = ╱31╱1╱ // 0x196f @0x3d
0x1932…197a at003e = ╱f20100╱ // 0x1970 @0x3e
0x1932…197a at0041 = ╱f1╱ : ╱ // 0x1973 @0x41
0x1932…197a at0042 = ╱32╱2╱ // 0x1974 @0x42
0x1932…197a at0043 = ╱f20200╱ // 0x1975 @0x43
0x1932…197a at0046 = ╱ee╱ ) ╱ // 0x1978 @0x46
0x1932…197a at0047 = EOL // 0x1979 @0x47
0x1932…197a }
0x197a…1992 af80 02290 EXEC TAL_CONTROL ( SVAR $ )
0x197a…1992 LineComal80 {
0x197a…1992 ptr = 0xaf80 // 0x197a @0x0
0x197a…1992 lno = 0x08f2 // 0x197c @0x2
0x197a…1992 at0004 = ╱9d╱ EXEC ╱ // 0x197e @0x4
0x197a…1992 at0005 = ╱54╱T╱ // 0x197f @0x5
0x197a…1992 at0006 = ╱41╱A╱ // 0x1980 @0x6
0x197a…1992 at0007 = ╱4c╱L╱ // 0x1981 @0x7
0x197a…1992 at0008 = ╱5f╱_╱ // 0x1982 @0x8
0x197a…1992 at0009 = ╱43╱C╱ // 0x1983 @0x9
0x197a…1992 at000a = ╱4f╱O╱ // 0x1984 @0xa
0x197a…1992 at000b = ╱4e╱N╱ // 0x1985 @0xb
0x197a…1992 at000c = ╱54╱T╱ // 0x1986 @0xc
0x197a…1992 at000d = ╱52╱R╱ // 0x1987 @0xd
0x197a…1992 at000e = ╱4f╱O╱ // 0x1988 @0xe
0x197a…1992 at000f = ╱4c╱L╱ // 0x1989 @0xf
0x197a…1992 at0010 = ╱ed╱ ( ╱ // 0x198a @0x10
0x197a…1992 at0011 = ╱53╱S╱ // 0x198b @0x11
0x197a…1992 at0012 = ╱56╱V╱ // 0x198c @0x12
0x197a…1992 at0013 = ╱41╱A╱ // 0x198d @0x13
0x197a…1992 at0014 = ╱52╱R╱ // 0x198e @0x14
0x197a…1992 at0015 = ╱ef╱ $ ╱ // 0x198f @0x15
0x197a…1992 at0016 = ╱ee╱ ) ╱ // 0x1990 @0x16
0x197a…1992 at0017 = EOL // 0x1991 @0x17
0x197a…1992 }
0x1992…19be afac 02300 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
0x1992…19be LineComal80 {
0x1992…19be ptr = 0xafac // 0x1992 @0x0
0x1992…19be lno = 0x08fc // 0x1994 @0x2
0x1992…19be at0004 = ╱8200╱ IF ╱ // 0x1996 @0x4
0x1992…19be at0006 = ╱22╱"╱ // 0x1998 @0x6
0x1992…19be at0007 = ╱2e╱.╱ // 0x1999 @0x7
0x1992…19be at0008 = ╱22╱"╱ // 0x199a @0x8
0x1992…19be at0009 = ╱dc╱ IN ╱ // 0x199b @0x9
0x1992…19be at000a = ╱53╱S╱ // 0x199c @0xa
0x1992…19be at000b = ╱56╱V╱ // 0x199d @0xb
0x1992…19be at000c = ╱41╱A╱ // 0x199e @0xc
0x1992…19be at000d = ╱52╱R╱ // 0x199f @0xd
0x1992…19be at000e = ╱ef╱ $ ╱ // 0x19a0 @0xe
0x1992…19be at000f = ╱b5╱ THEN ╱ // 0x19a1 @0xf
0x1992…19be at0010 = ╱9d╱ EXEC ╱ // 0x19a2 @0x10
0x1992…19be at0011 = ╱46╱F╱ // 0x19a3 @0x11
0x1992…19be at0012 = ╱45╱E╱ // 0x19a4 @0x12
0x1992…19be at0013 = ╱4a╱J╱ // 0x19a5 @0x13
0x1992…19be at0014 = ╱4c╱L╱ // 0x19a6 @0x14
0x1992…19be at0015 = ╱ed╱ ( ╱ // 0x19a7 @0x15
0x1992…19be at0016 = ╱22╱"╱ // 0x19a8 @0x16
0x1992…19be at0017 = ╱55╱U╱ // 0x19a9 @0x17
0x1992…19be at0018 = ╱6c╱l╱ // 0x19aa @0x18
0x1992…19be at0019 = ╱6f╱o╱ // 0x19ab @0x19
0x1992…19be at001a = ╱76╱v╱ // 0x19ac @0x1a
0x1992…19be at001b = ╱6c╱l╱ // 0x19ad @0x1b
0x1992…19be at001c = ╱69╱i╱ // 0x19ae @0x1c
0x1992…19be at001d = ╱67╱g╱ // 0x19af @0x1d
0x1992…19be at001e = ╱74╱t╱ // 0x19b0 @0x1e
0x1992…19be at001f = ╱20╱…╱ // 0x19b1 @0x1f
0x1992…19be at0020 = ╱74╱t╱ // 0x19b2 @0x20
0x1992…19be at0021 = ╱65╱e╱ // 0x19b3 @0x21
0x1992…19be at0022 = ╱67╱g╱ // 0x19b4 @0x22
0x1992…19be at0023 = ╱6e╱n╱ // 0x19b5 @0x23
0x1992…19be at0024 = ╱3a╱:╱ // 0x19b6 @0x24
0x1992…19be at0025 = ╱20╱…╱ // 0x19b7 @0x25
0x1992…19be at0026 = ╱27╱'╱ // 0x19b8 @0x26
0x1992…19be at0027 = ╱2e╱.╱ // 0x19b9 @0x27
0x1992…19be at0028 = ╱27╱'╱ // 0x19ba @0x28
0x1992…19be at0029 = ╱22╱"╱ // 0x19bb @0x29
0x1992…19be at002a = ╱ee╱ ) ╱ // 0x19bc @0x2a
0x1992…19be at002b = EOL // 0x19bd @0x2b
0x1992…19be }
0x19be…19c6 afb4 02310 UNTIL OK
0x19be…19c6 LineComal80 {
0x19be…19c6 ptr = 0xafb4 // 0x19be @0x0
0x19be…19c6 lno = 0x0906 // 0x19c0 @0x2
0x19be…19c6 at0004 = ╱98╱ UNTIL ╱ // 0x19c2 @0x4
0x19be…19c6 at0005 = ╱4f╱O╱ // 0x19c3 @0x5
0x19be…19c6 at0006 = ╱4b╱K╱ // 0x19c4 @0x6
0x19be…19c6 at0007 = EOL // 0x19c5 @0x7
0x19be…19c6 }
0x19c6…19db afc9 02320 LET PER_NR := ASC ( SVAR $ )
0x19c6…19db LineComal80 {
0x19c6…19db ptr = 0xafc9 // 0x19c6 @0x0
0x19c6…19db lno = 0x0910 // 0x19c8 @0x2
0x19c6…19db at0004 = ╱86╱ LET ╱ // 0x19ca @0x4
0x19c6…19db at0005 = ╱50╱P╱ // 0x19cb @0x5
0x19c6…19db at0006 = ╱45╱E╱ // 0x19cc @0x6
0x19c6…19db at0007 = ╱52╱R╱ // 0x19cd @0x7
0x19c6…19db at0008 = ╱5f╱_╱ // 0x19ce @0x8
0x19c6…19db at0009 = ╱4e╱N╱ // 0x19cf @0x9
0x19c6…19db at000a = ╱52╱R╱ // 0x19d0 @0xa
0x19c6…19db at000b = ╱f0╱ := ╱ // 0x19d1 @0xb
0x19c6…19db at000c = ╱cf╱ ASC ╱ // 0x19d2 @0xc
0x19c6…19db at000d = ╱ed╱ ( ╱ // 0x19d3 @0xd
0x19c6…19db at000e = ╱53╱S╱ // 0x19d4 @0xe
0x19c6…19db at000f = ╱56╱V╱ // 0x19d5 @0xf
0x19c6…19db at0010 = ╱41╱A╱ // 0x19d6 @0x10
0x19c6…19db at0011 = ╱52╱R╱ // 0x19d7 @0x11
0x19c6…19db at0012 = ╱ef╱ $ ╱ // 0x19d8 @0x12
0x19c6…19db at0013 = ╱ee╱ ) ╱ // 0x19d9 @0x13
0x19c6…19db at0014 = EOL // 0x19da @0x14
0x19c6…19db }
0x19db…19e1 afcf 02330 ENDCASE
0x19db…19e1 LineComal80 {
0x19db…19e1 ptr = 0xafcf // 0x19db @0x0
0x19db…19e1 lno = 0x091a // 0x19dd @0x2
0x19db…19e1 at0004 = ╱a3╱ ENDCASE ╱ // 0x19df @0x4
0x19db…19e1 at0005 = EOL // 0x19e0 @0x5
0x19db…19e1 }
0x19e1…1a0a aff8 02340 PUT PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
0x19e1…1a0a LineComal80 {
0x19e1…1a0a ptr = 0xaff8 // 0x19e1 @0x0
0x19e1…1a0a lno = 0x0924 // 0x19e3 @0x2
0x19e1…1a0a at0004 = ╱aa╱ PUT ╱ // 0x19e5 @0x4
0x19e1…1a0a at0005 = ╱50╱P╱ // 0x19e6 @0x5
0x19e1…1a0a at0006 = ╱41╱A╱ // 0x19e7 @0x6
0x19e1…1a0a at0007 = ╱52╱R╱ // 0x19e8 @0x7
0x19e1…1a0a at0008 = ╱41╱A╱ // 0x19e9 @0x8
0x19e1…1a0a at0009 = ╱4d╱M╱ // 0x19ea @0x9
0x19e1…1a0a at000a = ╱ef╱ $ ╱ // 0x19eb @0xa
0x19e1…1a0a at000b = ╱ec╱ , ╱ // 0x19ec @0xb
0x19e1…1a0a at000c = ╱32╱2╱ // 0x19ed @0xc
0x19e1…1a0a at000d = ╱f20200╱ // 0x19ee @0xd
0x19e1…1a0a at0010 = ╱f1╱ : ╱ // 0x19f1 @0x10
0x19e1…1a0a at0011 = ╱53╱S╱ // 0x19f2 @0x11
0x19e1…1a0a at0012 = ╱54╱T╱ // 0x19f3 @0x12
0x19e1…1a0a at0013 = ╱5f╱_╱ // 0x19f4 @0x13
0x19e1…1a0a at0014 = ╱44╱D╱ // 0x19f5 @0x14
0x19e1…1a0a at0015 = ╱41╱A╱ // 0x19f6 @0x15
0x19e1…1a0a at0016 = ╱54╱T╱ // 0x19f7 @0x16
0x19e1…1a0a at0017 = ╱4f╱O╱ // 0x19f8 @0x17
0x19e1…1a0a at0018 = ╱ef╱ $ ╱ // 0x19f9 @0x18
0x19e1…1a0a at0019 = ╱ec╱ , ╱ // 0x19fa @0x19
0x19e1…1a0a at001a = ╱41╱A╱ // 0x19fb @0x1a
0x19e1…1a0a at001b = ╱4e╱N╱ // 0x19fc @0x1b
0x19e1…1a0a at001c = ╱54╱T╱ // 0x19fd @0x1c
0x19e1…1a0a at001d = ╱5f╱_╱ // 0x19fe @0x1d
0x19e1…1a0a at001e = ╱50╱P╱ // 0x19ff @0x1e
0x19e1…1a0a at001f = ╱45╱E╱ // 0x1a00 @0x1f
0x19e1…1a0a at0020 = ╱52╱R╱ // 0x1a01 @0x20
0x19e1…1a0a at0021 = ╱ec╱ , ╱ // 0x1a02 @0x21
0x19e1…1a0a at0022 = ╱50╱P╱ // 0x1a03 @0x22
0x19e1…1a0a at0023 = ╱45╱E╱ // 0x1a04 @0x23
0x19e1…1a0a at0024 = ╱52╱R╱ // 0x1a05 @0x24
0x19e1…1a0a at0025 = ╱5f╱_╱ // 0x1a06 @0x25
0x19e1…1a0a at0026 = ╱4e╱N╱ // 0x1a07 @0x26
0x19e1…1a0a at0027 = ╱52╱R╱ // 0x1a08 @0x27
0x19e1…1a0a at0028 = EOL // 0x1a09 @0x28
0x19e1…1a0a }
0x1a0a…1a16 b004 02350 WHILE 8
0x1a0a…1a16 LineComal80 {
0x1a0a…1a16 ptr = 0xb004 // 0x1a0a @0x0
0x1a0a…1a16 lno = 0x092e // 0x1a0c @0x2
0x1a0a…1a16 at0004 = ╱a40001╱ WHILE ╱ // 0x1a0e @0x4
0x1a0a…1a16 at0007 = ╱38╱8╱ // 0x1a11 @0x7
0x1a0a…1a16 at0008 = ╱f20800╱ // 0x1a12 @0x8
0x1a0a…1a16 at000b = EOL // 0x1a15 @0xb
0x1a0a…1a16 }
0x1a16…1a35 b023 02360 LET PROGRAM $ := PRGFL $ + ":SYSPTK"
0x1a16…1a35 LineComal80 {
0x1a16…1a35 ptr = 0xb023 // 0x1a16 @0x0
0x1a16…1a35 lno = 0x0938 // 0x1a18 @0x2
0x1a16…1a35 at0004 = ╱86╱ LET ╱ // 0x1a1a @0x4
0x1a16…1a35 at0005 = ╱50╱P╱ // 0x1a1b @0x5
0x1a16…1a35 at0006 = ╱52╱R╱ // 0x1a1c @0x6
0x1a16…1a35 at0007 = ╱4f╱O╱ // 0x1a1d @0x7
0x1a16…1a35 at0008 = ╱47╱G╱ // 0x1a1e @0x8
0x1a16…1a35 at0009 = ╱52╱R╱ // 0x1a1f @0x9
0x1a16…1a35 at000a = ╱41╱A╱ // 0x1a20 @0xa
0x1a16…1a35 at000b = ╱4d╱M╱ // 0x1a21 @0xb
0x1a16…1a35 at000c = ╱ef╱ $ ╱ // 0x1a22 @0xc
0x1a16…1a35 at000d = ╱f0╱ := ╱ // 0x1a23 @0xd
0x1a16…1a35 at000e = ╱50╱P╱ // 0x1a24 @0xe
0x1a16…1a35 at000f = ╱52╱R╱ // 0x1a25 @0xf
0x1a16…1a35 at0010 = ╱47╱G╱ // 0x1a26 @0x10
0x1a16…1a35 at0011 = ╱46╱F╱ // 0x1a27 @0x11
0x1a16…1a35 at0012 = ╱4c╱L╱ // 0x1a28 @0x12
0x1a16…1a35 at0013 = ╱ef╱ $ ╱ // 0x1a29 @0x13
0x1a16…1a35 at0014 = ╱eb╱ + ╱ // 0x1a2a @0x14
0x1a16…1a35 at0015 = ╱22╱"╱ // 0x1a2b @0x15
0x1a16…1a35 at0016 = ╱3a╱:╱ // 0x1a2c @0x16
0x1a16…1a35 at0017 = ╱53╱S╱ // 0x1a2d @0x17
0x1a16…1a35 at0018 = ╱59╱Y╱ // 0x1a2e @0x18
0x1a16…1a35 at0019 = ╱53╱S╱ // 0x1a2f @0x19
0x1a16…1a35 at001a = ╱50╱P╱ // 0x1a30 @0x1a
0x1a16…1a35 at001b = ╱54╱T╱ // 0x1a31 @0x1b
0x1a16…1a35 at001c = ╱4b╱K╱ // 0x1a32 @0x1c
0x1a16…1a35 at001d = ╱22╱"╱ // 0x1a33 @0x1d
0x1a16…1a35 at001e = EOL // 0x1a34 @0x1e
0x1a16…1a35 }
0x1a35…1a43 b031 02370 CHAIN PROGRAM $
0x1a35…1a43 LineComal80 {
0x1a35…1a43 ptr = 0xb031 // 0x1a35 @0x0
0x1a35…1a43 lno = 0x0942 // 0x1a37 @0x2
0x1a35…1a43 at0004 = ╱ac╱ CHAIN ╱ // 0x1a39 @0x4
0x1a35…1a43 at0005 = ╱50╱P╱ // 0x1a3a @0x5
0x1a35…1a43 at0006 = ╱52╱R╱ // 0x1a3b @0x6
0x1a35…1a43 at0007 = ╱4f╱O╱ // 0x1a3c @0x7
0x1a35…1a43 at0008 = ╱47╱G╱ // 0x1a3d @0x8
0x1a35…1a43 at0009 = ╱52╱R╱ // 0x1a3e @0x9
0x1a35…1a43 at000a = ╱41╱A╱ // 0x1a3f @0xa
0x1a35…1a43 at000b = ╱4d╱M╱ // 0x1a40 @0xb
0x1a35…1a43 at000c = ╱ef╱ $ ╱ // 0x1a41 @0xc
0x1a35…1a43 at000d = EOL // 0x1a42 @0xd
0x1a35…1a43 }
0x1a43…1a4f b03d 02380 WHILE 9
0x1a43…1a4f LineComal80 {
0x1a43…1a4f ptr = 0xb03d // 0x1a43 @0x0
0x1a43…1a4f lno = 0x094c // 0x1a45 @0x2
0x1a43…1a4f at0004 = ╱a40001╱ WHILE ╱ // 0x1a47 @0x4
0x1a43…1a4f at0007 = ╱39╱9╱ // 0x1a4a @0x7
0x1a43…1a4f at0008 = ╱f20900╱ // 0x1a4b @0x8
0x1a43…1a4f at000b = EOL // 0x1a4e @0xb
0x1a43…1a4f }
0x1a4f…1a84 b072 02390 EXEC [NDRE_KTONR ( "9.……Kontonummer…for…kasse:…" , 1 )
0x1a4f…1a84 LineComal80 {
0x1a4f…1a84 ptr = 0xb072 // 0x1a4f @0x0
0x1a4f…1a84 lno = 0x0956 // 0x1a51 @0x2
0x1a4f…1a84 at0004 = ╱9d╱ EXEC ╱ // 0x1a53 @0x4
0x1a4f…1a84 at0005 = ╱5b╱[╱ // 0x1a54 @0x5
0x1a4f…1a84 at0006 = ╱4e╱N╱ // 0x1a55 @0x6
0x1a4f…1a84 at0007 = ╱44╱D╱ // 0x1a56 @0x7
0x1a4f…1a84 at0008 = ╱52╱R╱ // 0x1a57 @0x8
0x1a4f…1a84 at0009 = ╱45╱E╱ // 0x1a58 @0x9
0x1a4f…1a84 at000a = ╱5f╱_╱ // 0x1a59 @0xa
0x1a4f…1a84 at000b = ╱4b╱K╱ // 0x1a5a @0xb
0x1a4f…1a84 at000c = ╱54╱T╱ // 0x1a5b @0xc
0x1a4f…1a84 at000d = ╱4f╱O╱ // 0x1a5c @0xd
0x1a4f…1a84 at000e = ╱4e╱N╱ // 0x1a5d @0xe
0x1a4f…1a84 at000f = ╱52╱R╱ // 0x1a5e @0xf
0x1a4f…1a84 at0010 = ╱ed╱ ( ╱ // 0x1a5f @0x10
0x1a4f…1a84 at0011 = ╱22╱"╱ // 0x1a60 @0x11
0x1a4f…1a84 at0012 = ╱39╱9╱ // 0x1a61 @0x12
0x1a4f…1a84 at0013 = ╱2e╱.╱ // 0x1a62 @0x13
0x1a4f…1a84 at0014 = ╱20╱…╱ // 0x1a63 @0x14
0x1a4f…1a84 at0015 = ╱20╱…╱ // 0x1a64 @0x15
0x1a4f…1a84 at0016 = ╱4b╱K╱ // 0x1a65 @0x16
0x1a4f…1a84 at0017 = ╱6f╱o╱ // 0x1a66 @0x17
0x1a4f…1a84 at0018 = ╱6e╱n╱ // 0x1a67 @0x18
0x1a4f…1a84 at0019 = ╱74╱t╱ // 0x1a68 @0x19
0x1a4f…1a84 at001a = ╱6f╱o╱ // 0x1a69 @0x1a
0x1a4f…1a84 at001b = ╱6e╱n╱ // 0x1a6a @0x1b
0x1a4f…1a84 at001c = ╱75╱u╱ // 0x1a6b @0x1c
0x1a4f…1a84 at001d = ╱6d╱m╱ // 0x1a6c @0x1d
0x1a4f…1a84 at001e = ╱6d╱m╱ // 0x1a6d @0x1e
0x1a4f…1a84 at001f = ╱65╱e╱ // 0x1a6e @0x1f
0x1a4f…1a84 at0020 = ╱72╱r╱ // 0x1a6f @0x20
0x1a4f…1a84 at0021 = ╱20╱…╱ // 0x1a70 @0x21
0x1a4f…1a84 at0022 = ╱66╱f╱ // 0x1a71 @0x22
0x1a4f…1a84 at0023 = ╱6f╱o╱ // 0x1a72 @0x23
0x1a4f…1a84 at0024 = ╱72╱r╱ // 0x1a73 @0x24
0x1a4f…1a84 at0025 = ╱20╱…╱ // 0x1a74 @0x25
0x1a4f…1a84 at0026 = ╱6b╱k╱ // 0x1a75 @0x26
0x1a4f…1a84 at0027 = ╱61╱a╱ // 0x1a76 @0x27
0x1a4f…1a84 at0028 = ╱73╱s╱ // 0x1a77 @0x28
0x1a4f…1a84 at0029 = ╱73╱s╱ // 0x1a78 @0x29
0x1a4f…1a84 at002a = ╱65╱e╱ // 0x1a79 @0x2a
0x1a4f…1a84 at002b = ╱3a╱:╱ // 0x1a7a @0x2b
0x1a4f…1a84 at002c = ╱20╱…╱ // 0x1a7b @0x2c
0x1a4f…1a84 at002d = ╱22╱"╱ // 0x1a7c @0x2d
0x1a4f…1a84 at002e = ╱ec╱ , ╱ // 0x1a7d @0x2e
0x1a4f…1a84 at002f = ╱31╱1╱ // 0x1a7e @0x2f
0x1a4f…1a84 at0030 = ╱f20100╱ // 0x1a7f @0x30
0x1a4f…1a84 at0033 = ╱ee╱ ) ╱ // 0x1a82 @0x33
0x1a4f…1a84 at0034 = EOL // 0x1a83 @0x34
0x1a4f…1a84 }
0x1a84…1a91 b07f 02400 WHILE 10
0x1a84…1a91 LineComal80 {
0x1a84…1a91 ptr = 0xb07f // 0x1a84 @0x0
0x1a84…1a91 lno = 0x0960 // 0x1a86 @0x2
0x1a84…1a91 at0004 = ╱a40001╱ WHILE ╱ // 0x1a88 @0x4
0x1a84…1a91 at0007 = ╱31╱1╱ // 0x1a8b @0x7
0x1a84…1a91 at0008 = ╱30╱0╱ // 0x1a8c @0x8
0x1a84…1a91 at0009 = ╱f20a00╱ // 0x1a8d @0x9
0x1a84…1a91 at000c = EOL // 0x1a90 @0xc
0x1a84…1a91 }
0x1a91…1ac5 b0b3 02410 EXEC [NDRE_KTONR ( "10.…Kontonummer…for…bank:…" , 2 )
0x1a91…1ac5 LineComal80 {
0x1a91…1ac5 ptr = 0xb0b3 // 0x1a91 @0x0
0x1a91…1ac5 lno = 0x096a // 0x1a93 @0x2
0x1a91…1ac5 at0004 = ╱9d╱ EXEC ╱ // 0x1a95 @0x4
0x1a91…1ac5 at0005 = ╱5b╱[╱ // 0x1a96 @0x5
0x1a91…1ac5 at0006 = ╱4e╱N╱ // 0x1a97 @0x6
0x1a91…1ac5 at0007 = ╱44╱D╱ // 0x1a98 @0x7
0x1a91…1ac5 at0008 = ╱52╱R╱ // 0x1a99 @0x8
0x1a91…1ac5 at0009 = ╱45╱E╱ // 0x1a9a @0x9
0x1a91…1ac5 at000a = ╱5f╱_╱ // 0x1a9b @0xa
0x1a91…1ac5 at000b = ╱4b╱K╱ // 0x1a9c @0xb
0x1a91…1ac5 at000c = ╱54╱T╱ // 0x1a9d @0xc
0x1a91…1ac5 at000d = ╱4f╱O╱ // 0x1a9e @0xd
0x1a91…1ac5 at000e = ╱4e╱N╱ // 0x1a9f @0xe
0x1a91…1ac5 at000f = ╱52╱R╱ // 0x1aa0 @0xf
0x1a91…1ac5 at0010 = ╱ed╱ ( ╱ // 0x1aa1 @0x10
0x1a91…1ac5 at0011 = ╱22╱"╱ // 0x1aa2 @0x11
0x1a91…1ac5 at0012 = ╱31╱1╱ // 0x1aa3 @0x12
0x1a91…1ac5 at0013 = ╱30╱0╱ // 0x1aa4 @0x13
0x1a91…1ac5 at0014 = ╱2e╱.╱ // 0x1aa5 @0x14
0x1a91…1ac5 at0015 = ╱20╱…╱ // 0x1aa6 @0x15
0x1a91…1ac5 at0016 = ╱4b╱K╱ // 0x1aa7 @0x16
0x1a91…1ac5 at0017 = ╱6f╱o╱ // 0x1aa8 @0x17
0x1a91…1ac5 at0018 = ╱6e╱n╱ // 0x1aa9 @0x18
0x1a91…1ac5 at0019 = ╱74╱t╱ // 0x1aaa @0x19
0x1a91…1ac5 at001a = ╱6f╱o╱ // 0x1aab @0x1a
0x1a91…1ac5 at001b = ╱6e╱n╱ // 0x1aac @0x1b
0x1a91…1ac5 at001c = ╱75╱u╱ // 0x1aad @0x1c
0x1a91…1ac5 at001d = ╱6d╱m╱ // 0x1aae @0x1d
0x1a91…1ac5 at001e = ╱6d╱m╱ // 0x1aaf @0x1e
0x1a91…1ac5 at001f = ╱65╱e╱ // 0x1ab0 @0x1f
0x1a91…1ac5 at0020 = ╱72╱r╱ // 0x1ab1 @0x20
0x1a91…1ac5 at0021 = ╱20╱…╱ // 0x1ab2 @0x21
0x1a91…1ac5 at0022 = ╱66╱f╱ // 0x1ab3 @0x22
0x1a91…1ac5 at0023 = ╱6f╱o╱ // 0x1ab4 @0x23
0x1a91…1ac5 at0024 = ╱72╱r╱ // 0x1ab5 @0x24
0x1a91…1ac5 at0025 = ╱20╱…╱ // 0x1ab6 @0x25
0x1a91…1ac5 at0026 = ╱62╱b╱ // 0x1ab7 @0x26
0x1a91…1ac5 at0027 = ╱61╱a╱ // 0x1ab8 @0x27
0x1a91…1ac5 at0028 = ╱6e╱n╱ // 0x1ab9 @0x28
0x1a91…1ac5 at0029 = ╱6b╱k╱ // 0x1aba @0x29
0x1a91…1ac5 at002a = ╱3a╱:╱ // 0x1abb @0x2a
0x1a91…1ac5 at002b = ╱20╱…╱ // 0x1abc @0x2b
0x1a91…1ac5 at002c = ╱22╱"╱ // 0x1abd @0x2c
0x1a91…1ac5 at002d = ╱ec╱ , ╱ // 0x1abe @0x2d
0x1a91…1ac5 at002e = ╱32╱2╱ // 0x1abf @0x2e
0x1a91…1ac5 at002f = ╱f20200╱ // 0x1ac0 @0x2f
0x1a91…1ac5 at0032 = ╱ee╱ ) ╱ // 0x1ac3 @0x32
0x1a91…1ac5 at0033 = EOL // 0x1ac4 @0x33
0x1a91…1ac5 }
0x1ac5…1ad2 (89,) b0c0 02420 WHILE 11
0x1ac5…1ad2 LineComal80 {
0x1ac5…1ad2 ptr = 0xb0c0 // 0x1ac5 @0x0
0x1ac5…1ad2 lno = 0x0974 // 0x1ac7 @0x2
0x1ac5…1ad2 at0004 = ╱a40001╱ WHILE ╱ // 0x1ac9 @0x4
0x1ac5…1ad2 at0007 = ╱31╱1╱ // 0x1acc @0x7
0x1ac5…1ad2 at0008 = ╱31╱1╱ // 0x1acd @0x8
0x1ac5…1ad2 at0009 = ╱f20b00╱ // 0x1ace @0x9
0x1ac5…1ad2 at000c = EOL // 0x1ad1 @0xc
0x1ac5…1ad2 }
0x1ad2…1b06 b0f4 02430 EXEC [NDRE_KTONR ( "11.…Kontonummer…for…giro:…" , 3 )
0x1ad2…1b06 LineComal80 {
0x1ad2…1b06 ptr = 0xb0f4 // 0x1ad2 @0x0
0x1ad2…1b06 lno = 0x097e // 0x1ad4 @0x2
0x1ad2…1b06 at0004 = ╱9d╱ EXEC ╱ // 0x1ad6 @0x4
0x1ad2…1b06 at0005 = ╱5b╱[╱ // 0x1ad7 @0x5
0x1ad2…1b06 at0006 = ╱4e╱N╱ // 0x1ad8 @0x6
0x1ad2…1b06 at0007 = ╱44╱D╱ // 0x1ad9 @0x7
0x1ad2…1b06 at0008 = ╱52╱R╱ // 0x1ada @0x8
0x1ad2…1b06 at0009 = ╱45╱E╱ // 0x1adb @0x9
0x1ad2…1b06 at000a = ╱5f╱_╱ // 0x1adc @0xa
0x1ad2…1b06 at000b = ╱4b╱K╱ // 0x1add @0xb
0x1ad2…1b06 at000c = ╱54╱T╱ // 0x1ade @0xc
0x1ad2…1b06 at000d = ╱4f╱O╱ // 0x1adf @0xd
0x1ad2…1b06 at000e = ╱4e╱N╱ // 0x1ae0 @0xe
0x1ad2…1b06 at000f = ╱52╱R╱ // 0x1ae1 @0xf
0x1ad2…1b06 at0010 = ╱ed╱ ( ╱ // 0x1ae2 @0x10
0x1ad2…1b06 at0011 = ╱22╱"╱ // 0x1ae3 @0x11
0x1ad2…1b06 at0012 = ╱31╱1╱ // 0x1ae4 @0x12
0x1ad2…1b06 at0013 = ╱31╱1╱ // 0x1ae5 @0x13
0x1ad2…1b06 at0014 = ╱2e╱.╱ // 0x1ae6 @0x14
0x1ad2…1b06 at0015 = ╱20╱…╱ // 0x1ae7 @0x15
0x1ad2…1b06 at0016 = ╱4b╱K╱ // 0x1ae8 @0x16
0x1ad2…1b06 at0017 = ╱6f╱o╱ // 0x1ae9 @0x17
0x1ad2…1b06 at0018 = ╱6e╱n╱ // 0x1aea @0x18
0x1ad2…1b06 at0019 = ╱74╱t╱ // 0x1aeb @0x19
0x1ad2…1b06 at001a = ╱6f╱o╱ // 0x1aec @0x1a
0x1ad2…1b06 at001b = ╱6e╱n╱ // 0x1aed @0x1b
0x1ad2…1b06 at001c = ╱75╱u╱ // 0x1aee @0x1c
0x1ad2…1b06 at001d = ╱6d╱m╱ // 0x1aef @0x1d
0x1ad2…1b06 at001e = ╱6d╱m╱ // 0x1af0 @0x1e
0x1ad2…1b06 at001f = ╱65╱e╱ // 0x1af1 @0x1f
0x1ad2…1b06 at0020 = ╱72╱r╱ // 0x1af2 @0x20
0x1ad2…1b06 at0021 = ╱20╱…╱ // 0x1af3 @0x21
0x1ad2…1b06 at0022 = ╱66╱f╱ // 0x1af4 @0x22
0x1ad2…1b06 at0023 = ╱6f╱o╱ // 0x1af5 @0x23
0x1ad2…1b06 at0024 = ╱72╱r╱ // 0x1af6 @0x24
0x1ad2…1b06 at0025 = ╱20╱…╱ // 0x1af7 @0x25
0x1ad2…1b06 at0026 = ╱67╱g╱ // 0x1af8 @0x26
0x1ad2…1b06 at0027 = ╱69╱i╱ // 0x1af9 @0x27
0x1ad2…1b06 at0028 = ╱72╱r╱ // 0x1afa @0x28
0x1ad2…1b06 at0029 = ╱6f╱o╱ // 0x1afb @0x29
0x1ad2…1b06 at002a = ╱3a╱:╱ // 0x1afc @0x2a
0x1ad2…1b06 at002b = ╱20╱…╱ // 0x1afd @0x2b
0x1ad2…1b06 at002c = ╱22╱"╱ // 0x1afe @0x2c
0x1ad2…1b06 at002d = ╱ec╱ , ╱ // 0x1aff @0x2d
0x1ad2…1b06 at002e = ╱33╱3╱ // 0x1b00 @0x2e
0x1ad2…1b06 at002f = ╱f20300╱ // 0x1b01 @0x2f
0x1ad2…1b06 at0032 = ╱ee╱ ) ╱ // 0x1b04 @0x32
0x1ad2…1b06 at0033 = EOL // 0x1b05 @0x33
0x1ad2…1b06 }
0x1b06…1b13 b101 02440 WHILE 12
0x1b06…1b13 LineComal80 {
0x1b06…1b13 ptr = 0xb101 // 0x1b06 @0x0
0x1b06…1b13 lno = 0x0988 // 0x1b08 @0x2
0x1b06…1b13 at0004 = ╱a40001╱ WHILE ╱ // 0x1b0a @0x4
0x1b06…1b13 at0007 = ╱31╱1╱ // 0x1b0d @0x7
0x1b06…1b13 at0008 = ╱32╱2╱ // 0x1b0e @0x8
0x1b06…1b13 at0009 = ╱f20c00╱ // 0x1b0f @0x9
0x1b06…1b13 at000c = EOL // 0x1b12 @0xc
0x1b06…1b13 }
0x1b13…1b53 b141 02450 EXEC [NDRE_KTONR ( "12.…Kontonummer…for…kassedifferencer:…" , 4 )
0x1b13…1b53 LineComal80 {
0x1b13…1b53 ptr = 0xb141 // 0x1b13 @0x0
0x1b13…1b53 lno = 0x0992 // 0x1b15 @0x2
0x1b13…1b53 at0004 = ╱9d╱ EXEC ╱ // 0x1b17 @0x4
0x1b13…1b53 at0005 = ╱5b╱[╱ // 0x1b18 @0x5
0x1b13…1b53 at0006 = ╱4e╱N╱ // 0x1b19 @0x6
0x1b13…1b53 at0007 = ╱44╱D╱ // 0x1b1a @0x7
0x1b13…1b53 at0008 = ╱52╱R╱ // 0x1b1b @0x8
0x1b13…1b53 at0009 = ╱45╱E╱ // 0x1b1c @0x9
0x1b13…1b53 at000a = ╱5f╱_╱ // 0x1b1d @0xa
0x1b13…1b53 at000b = ╱4b╱K╱ // 0x1b1e @0xb
0x1b13…1b53 at000c = ╱54╱T╱ // 0x1b1f @0xc
0x1b13…1b53 at000d = ╱4f╱O╱ // 0x1b20 @0xd
0x1b13…1b53 at000e = ╱4e╱N╱ // 0x1b21 @0xe
0x1b13…1b53 at000f = ╱52╱R╱ // 0x1b22 @0xf
0x1b13…1b53 at0010 = ╱ed╱ ( ╱ // 0x1b23 @0x10
0x1b13…1b53 at0011 = ╱22╱"╱ // 0x1b24 @0x11
0x1b13…1b53 at0012 = ╱31╱1╱ // 0x1b25 @0x12
0x1b13…1b53 at0013 = ╱32╱2╱ // 0x1b26 @0x13
0x1b13…1b53 at0014 = ╱2e╱.╱ // 0x1b27 @0x14
0x1b13…1b53 at0015 = ╱20╱…╱ // 0x1b28 @0x15
0x1b13…1b53 at0016 = ╱4b╱K╱ // 0x1b29 @0x16
0x1b13…1b53 at0017 = ╱6f╱o╱ // 0x1b2a @0x17
0x1b13…1b53 at0018 = ╱6e╱n╱ // 0x1b2b @0x18
0x1b13…1b53 at0019 = ╱74╱t╱ // 0x1b2c @0x19
0x1b13…1b53 at001a = ╱6f╱o╱ // 0x1b2d @0x1a
0x1b13…1b53 at001b = ╱6e╱n╱ // 0x1b2e @0x1b
0x1b13…1b53 at001c = ╱75╱u╱ // 0x1b2f @0x1c
0x1b13…1b53 at001d = ╱6d╱m╱ // 0x1b30 @0x1d
0x1b13…1b53 at001e = ╱6d╱m╱ // 0x1b31 @0x1e
0x1b13…1b53 at001f = ╱65╱e╱ // 0x1b32 @0x1f
0x1b13…1b53 at0020 = ╱72╱r╱ // 0x1b33 @0x20
0x1b13…1b53 at0021 = ╱20╱…╱ // 0x1b34 @0x21
0x1b13…1b53 at0022 = ╱66╱f╱ // 0x1b35 @0x22
0x1b13…1b53 at0023 = ╱6f╱o╱ // 0x1b36 @0x23
0x1b13…1b53 at0024 = ╱72╱r╱ // 0x1b37 @0x24
0x1b13…1b53 at0025 = ╱20╱…╱ // 0x1b38 @0x25
0x1b13…1b53 at0026 = ╱6b╱k╱ // 0x1b39 @0x26
0x1b13…1b53 at0027 = ╱61╱a╱ // 0x1b3a @0x27
0x1b13…1b53 at0028 = ╱73╱s╱ // 0x1b3b @0x28
0x1b13…1b53 at0029 = ╱73╱s╱ // 0x1b3c @0x29
0x1b13…1b53 at002a = ╱65╱e╱ // 0x1b3d @0x2a
0x1b13…1b53 at002b = ╱64╱d╱ // 0x1b3e @0x2b
0x1b13…1b53 at002c = ╱69╱i╱ // 0x1b3f @0x2c
0x1b13…1b53 at002d = ╱66╱f╱ // 0x1b40 @0x2d
0x1b13…1b53 at002e = ╱66╱f╱ // 0x1b41 @0x2e
0x1b13…1b53 at002f = ╱65╱e╱ // 0x1b42 @0x2f
0x1b13…1b53 at0030 = ╱72╱r╱ // 0x1b43 @0x30
0x1b13…1b53 at0031 = ╱65╱e╱ // 0x1b44 @0x31
0x1b13…1b53 at0032 = ╱6e╱n╱ // 0x1b45 @0x32
0x1b13…1b53 at0033 = ╱63╱c╱ // 0x1b46 @0x33
0x1b13…1b53 at0034 = ╱65╱e╱ // 0x1b47 @0x34
0x1b13…1b53 at0035 = ╱72╱r╱ // 0x1b48 @0x35
0x1b13…1b53 at0036 = ╱3a╱:╱ // 0x1b49 @0x36
0x1b13…1b53 at0037 = ╱20╱…╱ // 0x1b4a @0x37
0x1b13…1b53 at0038 = ╱22╱"╱ // 0x1b4b @0x38
0x1b13…1b53 at0039 = ╱ec╱ , ╱ // 0x1b4c @0x39
0x1b13…1b53 at003a = ╱34╱4╱ // 0x1b4d @0x3a
0x1b13…1b53 at003b = ╱f20400╱ // 0x1b4e @0x3b
0x1b13…1b53 at003e = ╱ee╱ ) ╱ // 0x1b51 @0x3e
0x1b13…1b53 at003f = EOL // 0x1b52 @0x3f
0x1b13…1b53 }
0x1b53…1b60 b14e 02460 WHILE 13
0x1b53…1b60 LineComal80 {
0x1b53…1b60 ptr = 0xb14e // 0x1b53 @0x0
0x1b53…1b60 lno = 0x099c // 0x1b55 @0x2
0x1b53…1b60 at0004 = ╱a40001╱ WHILE ╱ // 0x1b57 @0x4
0x1b53…1b60 at0007 = ╱31╱1╱ // 0x1b5a @0x7
0x1b53…1b60 at0008 = ╱33╱3╱ // 0x1b5b @0x8
0x1b53…1b60 at0009 = ╱f20d00╱ // 0x1b5c @0x9
0x1b53…1b60 at000c = EOL // 0x1b5f @0xc
0x1b53…1b60 }
0x1b60…1b9a b188 02470 EXEC [NDRE_KTONR ( "13.…Kontonummer…for…indg.…moms:…" , 5 )
0x1b60…1b9a LineComal80 {
0x1b60…1b9a ptr = 0xb188 // 0x1b60 @0x0
0x1b60…1b9a lno = 0x09a6 // 0x1b62 @0x2
0x1b60…1b9a at0004 = ╱9d╱ EXEC ╱ // 0x1b64 @0x4
0x1b60…1b9a at0005 = ╱5b╱[╱ // 0x1b65 @0x5
0x1b60…1b9a at0006 = ╱4e╱N╱ // 0x1b66 @0x6
0x1b60…1b9a at0007 = ╱44╱D╱ // 0x1b67 @0x7
0x1b60…1b9a at0008 = ╱52╱R╱ // 0x1b68 @0x8
0x1b60…1b9a at0009 = ╱45╱E╱ // 0x1b69 @0x9
0x1b60…1b9a at000a = ╱5f╱_╱ // 0x1b6a @0xa
0x1b60…1b9a at000b = ╱4b╱K╱ // 0x1b6b @0xb
0x1b60…1b9a at000c = ╱54╱T╱ // 0x1b6c @0xc
0x1b60…1b9a at000d = ╱4f╱O╱ // 0x1b6d @0xd
0x1b60…1b9a at000e = ╱4e╱N╱ // 0x1b6e @0xe
0x1b60…1b9a at000f = ╱52╱R╱ // 0x1b6f @0xf
0x1b60…1b9a at0010 = ╱ed╱ ( ╱ // 0x1b70 @0x10
0x1b60…1b9a at0011 = ╱22╱"╱ // 0x1b71 @0x11
0x1b60…1b9a at0012 = ╱31╱1╱ // 0x1b72 @0x12
0x1b60…1b9a at0013 = ╱33╱3╱ // 0x1b73 @0x13
0x1b60…1b9a at0014 = ╱2e╱.╱ // 0x1b74 @0x14
0x1b60…1b9a at0015 = ╱20╱…╱ // 0x1b75 @0x15
0x1b60…1b9a at0016 = ╱4b╱K╱ // 0x1b76 @0x16
0x1b60…1b9a at0017 = ╱6f╱o╱ // 0x1b77 @0x17
0x1b60…1b9a at0018 = ╱6e╱n╱ // 0x1b78 @0x18
0x1b60…1b9a at0019 = ╱74╱t╱ // 0x1b79 @0x19
0x1b60…1b9a at001a = ╱6f╱o╱ // 0x1b7a @0x1a
0x1b60…1b9a at001b = ╱6e╱n╱ // 0x1b7b @0x1b
0x1b60…1b9a at001c = ╱75╱u╱ // 0x1b7c @0x1c
0x1b60…1b9a at001d = ╱6d╱m╱ // 0x1b7d @0x1d
0x1b60…1b9a at001e = ╱6d╱m╱ // 0x1b7e @0x1e
0x1b60…1b9a at001f = ╱65╱e╱ // 0x1b7f @0x1f
0x1b60…1b9a at0020 = ╱72╱r╱ // 0x1b80 @0x20
0x1b60…1b9a at0021 = ╱20╱…╱ // 0x1b81 @0x21
0x1b60…1b9a at0022 = ╱66╱f╱ // 0x1b82 @0x22
0x1b60…1b9a at0023 = ╱6f╱o╱ // 0x1b83 @0x23
0x1b60…1b9a at0024 = ╱72╱r╱ // 0x1b84 @0x24
0x1b60…1b9a at0025 = ╱20╱…╱ // 0x1b85 @0x25
0x1b60…1b9a at0026 = ╱69╱i╱ // 0x1b86 @0x26
0x1b60…1b9a at0027 = ╱6e╱n╱ // 0x1b87 @0x27
0x1b60…1b9a at0028 = ╱64╱d╱ // 0x1b88 @0x28
0x1b60…1b9a at0029 = ╱67╱g╱ // 0x1b89 @0x29
0x1b60…1b9a at002a = ╱2e╱.╱ // 0x1b8a @0x2a
0x1b60…1b9a at002b = ╱20╱…╱ // 0x1b8b @0x2b
0x1b60…1b9a at002c = ╱6d╱m╱ // 0x1b8c @0x2c
0x1b60…1b9a at002d = ╱6f╱o╱ // 0x1b8d @0x2d
0x1b60…1b9a at002e = ╱6d╱m╱ // 0x1b8e @0x2e
0x1b60…1b9a at002f = ╱73╱s╱ // 0x1b8f @0x2f
0x1b60…1b9a at0030 = ╱3a╱:╱ // 0x1b90 @0x30
0x1b60…1b9a at0031 = ╱20╱…╱ // 0x1b91 @0x31
0x1b60…1b9a at0032 = ╱22╱"╱ // 0x1b92 @0x32
0x1b60…1b9a at0033 = ╱ec╱ , ╱ // 0x1b93 @0x33
0x1b60…1b9a at0034 = ╱35╱5╱ // 0x1b94 @0x34
0x1b60…1b9a at0035 = ╱f20500╱ // 0x1b95 @0x35
0x1b60…1b9a at0038 = ╱ee╱ ) ╱ // 0x1b98 @0x38
0x1b60…1b9a at0039 = EOL // 0x1b99 @0x39
0x1b60…1b9a }
0x1b9a…1ba7 b195 02480 WHILE 14
0x1b9a…1ba7 LineComal80 {
0x1b9a…1ba7 ptr = 0xb195 // 0x1b9a @0x0
0x1b9a…1ba7 lno = 0x09b0 // 0x1b9c @0x2
0x1b9a…1ba7 at0004 = ╱a40001╱ WHILE ╱ // 0x1b9e @0x4
0x1b9a…1ba7 at0007 = ╱31╱1╱ // 0x1ba1 @0x7
0x1b9a…1ba7 at0008 = ╱34╱4╱ // 0x1ba2 @0x8
0x1b9a…1ba7 at0009 = ╱f20e00╱ // 0x1ba3 @0x9
0x1b9a…1ba7 at000c = EOL // 0x1ba6 @0xc
0x1b9a…1ba7 }
0x1ba7…1be0 b1ce 02490 EXEC [NDRE_KTONR ( "14.…Kontonummer…for…udg.…moms:…" , 6 )
0x1ba7…1be0 LineComal80 {
0x1ba7…1be0 ptr = 0xb1ce // 0x1ba7 @0x0
0x1ba7…1be0 lno = 0x09ba // 0x1ba9 @0x2
0x1ba7…1be0 at0004 = ╱9d╱ EXEC ╱ // 0x1bab @0x4
0x1ba7…1be0 at0005 = ╱5b╱[╱ // 0x1bac @0x5
0x1ba7…1be0 at0006 = ╱4e╱N╱ // 0x1bad @0x6
0x1ba7…1be0 at0007 = ╱44╱D╱ // 0x1bae @0x7
0x1ba7…1be0 at0008 = ╱52╱R╱ // 0x1baf @0x8
0x1ba7…1be0 at0009 = ╱45╱E╱ // 0x1bb0 @0x9
0x1ba7…1be0 at000a = ╱5f╱_╱ // 0x1bb1 @0xa
0x1ba7…1be0 at000b = ╱4b╱K╱ // 0x1bb2 @0xb
0x1ba7…1be0 at000c = ╱54╱T╱ // 0x1bb3 @0xc
0x1ba7…1be0 at000d = ╱4f╱O╱ // 0x1bb4 @0xd
0x1ba7…1be0 at000e = ╱4e╱N╱ // 0x1bb5 @0xe
0x1ba7…1be0 at000f = ╱52╱R╱ // 0x1bb6 @0xf
0x1ba7…1be0 at0010 = ╱ed╱ ( ╱ // 0x1bb7 @0x10
0x1ba7…1be0 at0011 = ╱22╱"╱ // 0x1bb8 @0x11
0x1ba7…1be0 at0012 = ╱31╱1╱ // 0x1bb9 @0x12
0x1ba7…1be0 at0013 = ╱34╱4╱ // 0x1bba @0x13
0x1ba7…1be0 at0014 = ╱2e╱.╱ // 0x1bbb @0x14
0x1ba7…1be0 at0015 = ╱20╱…╱ // 0x1bbc @0x15
0x1ba7…1be0 at0016 = ╱4b╱K╱ // 0x1bbd @0x16
0x1ba7…1be0 at0017 = ╱6f╱o╱ // 0x1bbe @0x17
0x1ba7…1be0 at0018 = ╱6e╱n╱ // 0x1bbf @0x18
0x1ba7…1be0 at0019 = ╱74╱t╱ // 0x1bc0 @0x19
0x1ba7…1be0 at001a = ╱6f╱o╱ // 0x1bc1 @0x1a
0x1ba7…1be0 at001b = ╱6e╱n╱ // 0x1bc2 @0x1b
0x1ba7…1be0 at001c = ╱75╱u╱ // 0x1bc3 @0x1c
0x1ba7…1be0 at001d = ╱6d╱m╱ // 0x1bc4 @0x1d
0x1ba7…1be0 at001e = ╱6d╱m╱ // 0x1bc5 @0x1e
0x1ba7…1be0 at001f = ╱65╱e╱ // 0x1bc6 @0x1f
0x1ba7…1be0 at0020 = ╱72╱r╱ // 0x1bc7 @0x20
0x1ba7…1be0 at0021 = ╱20╱…╱ // 0x1bc8 @0x21
0x1ba7…1be0 at0022 = ╱66╱f╱ // 0x1bc9 @0x22
0x1ba7…1be0 at0023 = ╱6f╱o╱ // 0x1bca @0x23
0x1ba7…1be0 at0024 = ╱72╱r╱ // 0x1bcb @0x24
0x1ba7…1be0 at0025 = ╱20╱…╱ // 0x1bcc @0x25
0x1ba7…1be0 at0026 = ╱75╱u╱ // 0x1bcd @0x26
0x1ba7…1be0 at0027 = ╱64╱d╱ // 0x1bce @0x27
0x1ba7…1be0 at0028 = ╱67╱g╱ // 0x1bcf @0x28
0x1ba7…1be0 at0029 = ╱2e╱.╱ // 0x1bd0 @0x29
0x1ba7…1be0 at002a = ╱20╱…╱ // 0x1bd1 @0x2a
0x1ba7…1be0 at002b = ╱6d╱m╱ // 0x1bd2 @0x2b
0x1ba7…1be0 at002c = ╱6f╱o╱ // 0x1bd3 @0x2c
0x1ba7…1be0 at002d = ╱6d╱m╱ // 0x1bd4 @0x2d
0x1ba7…1be0 at002e = ╱73╱s╱ // 0x1bd5 @0x2e
0x1ba7…1be0 at002f = ╱3a╱:╱ // 0x1bd6 @0x2f
0x1ba7…1be0 at0030 = ╱20╱…╱ // 0x1bd7 @0x30
0x1ba7…1be0 at0031 = ╱22╱"╱ // 0x1bd8 @0x31
0x1ba7…1be0 at0032 = ╱ec╱ , ╱ // 0x1bd9 @0x32
0x1ba7…1be0 at0033 = ╱36╱6╱ // 0x1bda @0x33
0x1ba7…1be0 at0034 = ╱f20600╱ // 0x1bdb @0x34
0x1ba7…1be0 at0037 = ╱ee╱ ) ╱ // 0x1bde @0x37
0x1ba7…1be0 at0038 = EOL // 0x1bdf @0x38
0x1ba7…1be0 }
0x1be0…1bed b1db 02500 WHILE 15
0x1be0…1bed LineComal80 {
0x1be0…1bed ptr = 0xb1db // 0x1be0 @0x0
0x1be0…1bed lno = 0x09c4 // 0x1be2 @0x2
0x1be0…1bed at0004 = ╱a40001╱ WHILE ╱ // 0x1be4 @0x4
0x1be0…1bed at0007 = ╱31╱1╱ // 0x1be7 @0x7
0x1be0…1bed at0008 = ╱35╱5╱ // 0x1be8 @0x8
0x1be0…1bed at0009 = ╱f20f00╱ // 0x1be9 @0x9
0x1be0…1bed at000c = EOL // 0x1bec @0xc
0x1be0…1bed }
0x1bed…1c2e b21c 02510 EXEC [NDRE_KTONR ( "15.…Kontonummer…for…resultatopg|relse:…" , 7 )
0x1bed…1c2e LineComal80 {
0x1bed…1c2e ptr = 0xb21c // 0x1bed @0x0
0x1bed…1c2e lno = 0x09ce // 0x1bef @0x2
0x1bed…1c2e at0004 = ╱9d╱ EXEC ╱ // 0x1bf1 @0x4
0x1bed…1c2e at0005 = ╱5b╱[╱ // 0x1bf2 @0x5
0x1bed…1c2e at0006 = ╱4e╱N╱ // 0x1bf3 @0x6
0x1bed…1c2e at0007 = ╱44╱D╱ // 0x1bf4 @0x7
0x1bed…1c2e at0008 = ╱52╱R╱ // 0x1bf5 @0x8
0x1bed…1c2e at0009 = ╱45╱E╱ // 0x1bf6 @0x9
0x1bed…1c2e at000a = ╱5f╱_╱ // 0x1bf7 @0xa
0x1bed…1c2e at000b = ╱4b╱K╱ // 0x1bf8 @0xb
0x1bed…1c2e at000c = ╱54╱T╱ // 0x1bf9 @0xc
0x1bed…1c2e at000d = ╱4f╱O╱ // 0x1bfa @0xd
0x1bed…1c2e at000e = ╱4e╱N╱ // 0x1bfb @0xe
0x1bed…1c2e at000f = ╱52╱R╱ // 0x1bfc @0xf
0x1bed…1c2e at0010 = ╱ed╱ ( ╱ // 0x1bfd @0x10
0x1bed…1c2e at0011 = ╱22╱"╱ // 0x1bfe @0x11
0x1bed…1c2e at0012 = ╱31╱1╱ // 0x1bff @0x12
0x1bed…1c2e at0013 = ╱35╱5╱ // 0x1c00 @0x13
0x1bed…1c2e at0014 = ╱2e╱.╱ // 0x1c01 @0x14
0x1bed…1c2e at0015 = ╱20╱…╱ // 0x1c02 @0x15
0x1bed…1c2e at0016 = ╱4b╱K╱ // 0x1c03 @0x16
0x1bed…1c2e at0017 = ╱6f╱o╱ // 0x1c04 @0x17
0x1bed…1c2e at0018 = ╱6e╱n╱ // 0x1c05 @0x18
0x1bed…1c2e at0019 = ╱74╱t╱ // 0x1c06 @0x19
0x1bed…1c2e at001a = ╱6f╱o╱ // 0x1c07 @0x1a
0x1bed…1c2e at001b = ╱6e╱n╱ // 0x1c08 @0x1b
0x1bed…1c2e at001c = ╱75╱u╱ // 0x1c09 @0x1c
0x1bed…1c2e at001d = ╱6d╱m╱ // 0x1c0a @0x1d
0x1bed…1c2e at001e = ╱6d╱m╱ // 0x1c0b @0x1e
0x1bed…1c2e at001f = ╱65╱e╱ // 0x1c0c @0x1f
0x1bed…1c2e at0020 = ╱72╱r╱ // 0x1c0d @0x20
0x1bed…1c2e at0021 = ╱20╱…╱ // 0x1c0e @0x21
0x1bed…1c2e at0022 = ╱66╱f╱ // 0x1c0f @0x22
0x1bed…1c2e at0023 = ╱6f╱o╱ // 0x1c10 @0x23
0x1bed…1c2e at0024 = ╱72╱r╱ // 0x1c11 @0x24
0x1bed…1c2e at0025 = ╱20╱…╱ // 0x1c12 @0x25
0x1bed…1c2e at0026 = ╱72╱r╱ // 0x1c13 @0x26
0x1bed…1c2e at0027 = ╱65╱e╱ // 0x1c14 @0x27
0x1bed…1c2e at0028 = ╱73╱s╱ // 0x1c15 @0x28
0x1bed…1c2e at0029 = ╱75╱u╱ // 0x1c16 @0x29
0x1bed…1c2e at002a = ╱6c╱l╱ // 0x1c17 @0x2a
0x1bed…1c2e at002b = ╱74╱t╱ // 0x1c18 @0x2b
0x1bed…1c2e at002c = ╱61╱a╱ // 0x1c19 @0x2c
0x1bed…1c2e at002d = ╱74╱t╱ // 0x1c1a @0x2d
0x1bed…1c2e at002e = ╱6f╱o╱ // 0x1c1b @0x2e
0x1bed…1c2e at002f = ╱70╱p╱ // 0x1c1c @0x2f
0x1bed…1c2e at0030 = ╱67╱g╱ // 0x1c1d @0x30
0x1bed…1c2e at0031 = ╱7c╱|╱ // 0x1c1e @0x31
0x1bed…1c2e at0032 = ╱72╱r╱ // 0x1c1f @0x32
0x1bed…1c2e at0033 = ╱65╱e╱ // 0x1c20 @0x33
0x1bed…1c2e at0034 = ╱6c╱l╱ // 0x1c21 @0x34
0x1bed…1c2e at0035 = ╱73╱s╱ // 0x1c22 @0x35
0x1bed…1c2e at0036 = ╱65╱e╱ // 0x1c23 @0x36
0x1bed…1c2e at0037 = ╱3a╱:╱ // 0x1c24 @0x37
0x1bed…1c2e at0038 = ╱20╱…╱ // 0x1c25 @0x38
0x1bed…1c2e at0039 = ╱22╱"╱ // 0x1c26 @0x39
0x1bed…1c2e at003a = ╱ec╱ , ╱ // 0x1c27 @0x3a
0x1bed…1c2e at003b = ╱37╱7╱ // 0x1c28 @0x3b
0x1bed…1c2e at003c = ╱f20700╱ // 0x1c29 @0x3c
0x1bed…1c2e at003f = ╱ee╱ ) ╱ // 0x1c2c @0x3f
0x1bed…1c2e at0040 = EOL // 0x1c2d @0x40
0x1bed…1c2e }
0x1c2e…1c3b b229 02520 WHILE 16
0x1c2e…1c3b LineComal80 {
0x1c2e…1c3b ptr = 0xb229 // 0x1c2e @0x0
0x1c2e…1c3b lno = 0x09d8 // 0x1c30 @0x2
0x1c2e…1c3b at0004 = ╱a40001╱ WHILE ╱ // 0x1c32 @0x4
0x1c2e…1c3b at0007 = ╱31╱1╱ // 0x1c35 @0x7
0x1c2e…1c3b at0008 = ╱36╱6╱ // 0x1c36 @0x8
0x1c2e…1c3b at0009 = ╱f21000╱ // 0x1c37 @0x9
0x1c2e…1c3b at000c = EOL // 0x1c3a @0xc
0x1c2e…1c3b }
0x1c3b…1c72 b260 02530 EXEC [NDRE_KTONR ( "16.…Kontonummer…for…balance:…" , 8 )
0x1c3b…1c72 LineComal80 {
0x1c3b…1c72 ptr = 0xb260 // 0x1c3b @0x0
0x1c3b…1c72 lno = 0x09e2 // 0x1c3d @0x2
0x1c3b…1c72 at0004 = ╱9d╱ EXEC ╱ // 0x1c3f @0x4
0x1c3b…1c72 at0005 = ╱5b╱[╱ // 0x1c40 @0x5
0x1c3b…1c72 at0006 = ╱4e╱N╱ // 0x1c41 @0x6
0x1c3b…1c72 at0007 = ╱44╱D╱ // 0x1c42 @0x7
0x1c3b…1c72 at0008 = ╱52╱R╱ // 0x1c43 @0x8
0x1c3b…1c72 at0009 = ╱45╱E╱ // 0x1c44 @0x9
0x1c3b…1c72 at000a = ╱5f╱_╱ // 0x1c45 @0xa
0x1c3b…1c72 at000b = ╱4b╱K╱ // 0x1c46 @0xb
0x1c3b…1c72 at000c = ╱54╱T╱ // 0x1c47 @0xc
0x1c3b…1c72 at000d = ╱4f╱O╱ // 0x1c48 @0xd
0x1c3b…1c72 at000e = ╱4e╱N╱ // 0x1c49 @0xe
0x1c3b…1c72 at000f = ╱52╱R╱ // 0x1c4a @0xf
0x1c3b…1c72 at0010 = ╱ed╱ ( ╱ // 0x1c4b @0x10
0x1c3b…1c72 at0011 = ╱22╱"╱ // 0x1c4c @0x11
0x1c3b…1c72 at0012 = ╱31╱1╱ // 0x1c4d @0x12
0x1c3b…1c72 at0013 = ╱36╱6╱ // 0x1c4e @0x13
0x1c3b…1c72 at0014 = ╱2e╱.╱ // 0x1c4f @0x14
0x1c3b…1c72 at0015 = ╱20╱…╱ // 0x1c50 @0x15
0x1c3b…1c72 at0016 = ╱4b╱K╱ // 0x1c51 @0x16
0x1c3b…1c72 at0017 = ╱6f╱o╱ // 0x1c52 @0x17
0x1c3b…1c72 at0018 = ╱6e╱n╱ // 0x1c53 @0x18
0x1c3b…1c72 at0019 = ╱74╱t╱ // 0x1c54 @0x19
0x1c3b…1c72 at001a = ╱6f╱o╱ // 0x1c55 @0x1a
0x1c3b…1c72 at001b = ╱6e╱n╱ // 0x1c56 @0x1b
0x1c3b…1c72 at001c = ╱75╱u╱ // 0x1c57 @0x1c
0x1c3b…1c72 at001d = ╱6d╱m╱ // 0x1c58 @0x1d
0x1c3b…1c72 at001e = ╱6d╱m╱ // 0x1c59 @0x1e
0x1c3b…1c72 at001f = ╱65╱e╱ // 0x1c5a @0x1f
0x1c3b…1c72 at0020 = ╱72╱r╱ // 0x1c5b @0x20
0x1c3b…1c72 at0021 = ╱20╱…╱ // 0x1c5c @0x21
0x1c3b…1c72 at0022 = ╱66╱f╱ // 0x1c5d @0x22
0x1c3b…1c72 at0023 = ╱6f╱o╱ // 0x1c5e @0x23
0x1c3b…1c72 at0024 = ╱72╱r╱ // 0x1c5f @0x24
0x1c3b…1c72 at0025 = ╱20╱…╱ // 0x1c60 @0x25
0x1c3b…1c72 at0026 = ╱62╱b╱ // 0x1c61 @0x26
0x1c3b…1c72 at0027 = ╱61╱a╱ // 0x1c62 @0x27
0x1c3b…1c72 at0028 = ╱6c╱l╱ // 0x1c63 @0x28
0x1c3b…1c72 at0029 = ╱61╱a╱ // 0x1c64 @0x29
0x1c3b…1c72 at002a = ╱6e╱n╱ // 0x1c65 @0x2a
0x1c3b…1c72 at002b = ╱63╱c╱ // 0x1c66 @0x2b
0x1c3b…1c72 at002c = ╱65╱e╱ // 0x1c67 @0x2c
0x1c3b…1c72 at002d = ╱3a╱:╱ // 0x1c68 @0x2d
0x1c3b…1c72 at002e = ╱20╱…╱ // 0x1c69 @0x2e
0x1c3b…1c72 at002f = ╱22╱"╱ // 0x1c6a @0x2f
0x1c3b…1c72 at0030 = ╱ec╱ , ╱ // 0x1c6b @0x30
0x1c3b…1c72 at0031 = ╱38╱8╱ // 0x1c6c @0x31
0x1c3b…1c72 at0032 = ╱f20800╱ // 0x1c6d @0x32
0x1c3b…1c72 at0035 = ╱ee╱ ) ╱ // 0x1c70 @0x35
0x1c3b…1c72 at0036 = EOL // 0x1c71 @0x36
0x1c3b…1c72 }
0x1c72…1c7f b26d 02540 WHILE 17
0x1c72…1c7f LineComal80 {
0x1c72…1c7f ptr = 0xb26d // 0x1c72 @0x0
0x1c72…1c7f lno = 0x09ec // 0x1c74 @0x2
0x1c72…1c7f at0004 = ╱a40001╱ WHILE ╱ // 0x1c76 @0x4
0x1c72…1c7f at0007 = ╱31╱1╱ // 0x1c79 @0x7
0x1c72…1c7f at0008 = ╱37╱7╱ // 0x1c7a @0x8
0x1c72…1c7f at0009 = ╱f21100╱ // 0x1c7b @0x9
0x1c72…1c7f at000c = EOL // 0x1c7e @0xc
0x1c72…1c7f }
0x1c7f…1cc2 b2b0 02550 EXEC [NDRE_KTONR ( "17.…Kontonummer…for…f|rste…balancekonto:…" , 9 )
0x1c7f…1cc2 LineComal80 {
0x1c7f…1cc2 ptr = 0xb2b0 // 0x1c7f @0x0
0x1c7f…1cc2 lno = 0x09f6 // 0x1c81 @0x2
0x1c7f…1cc2 at0004 = ╱9d╱ EXEC ╱ // 0x1c83 @0x4
0x1c7f…1cc2 at0005 = ╱5b╱[╱ // 0x1c84 @0x5
0x1c7f…1cc2 at0006 = ╱4e╱N╱ // 0x1c85 @0x6
0x1c7f…1cc2 at0007 = ╱44╱D╱ // 0x1c86 @0x7
0x1c7f…1cc2 at0008 = ╱52╱R╱ // 0x1c87 @0x8
0x1c7f…1cc2 at0009 = ╱45╱E╱ // 0x1c88 @0x9
0x1c7f…1cc2 at000a = ╱5f╱_╱ // 0x1c89 @0xa
0x1c7f…1cc2 at000b = ╱4b╱K╱ // 0x1c8a @0xb
0x1c7f…1cc2 at000c = ╱54╱T╱ // 0x1c8b @0xc
0x1c7f…1cc2 at000d = ╱4f╱O╱ // 0x1c8c @0xd
0x1c7f…1cc2 at000e = ╱4e╱N╱ // 0x1c8d @0xe
0x1c7f…1cc2 at000f = ╱52╱R╱ // 0x1c8e @0xf
0x1c7f…1cc2 at0010 = ╱ed╱ ( ╱ // 0x1c8f @0x10
0x1c7f…1cc2 at0011 = ╱22╱"╱ // 0x1c90 @0x11
0x1c7f…1cc2 at0012 = ╱31╱1╱ // 0x1c91 @0x12
0x1c7f…1cc2 at0013 = ╱37╱7╱ // 0x1c92 @0x13
0x1c7f…1cc2 at0014 = ╱2e╱.╱ // 0x1c93 @0x14
0x1c7f…1cc2 at0015 = ╱20╱…╱ // 0x1c94 @0x15
0x1c7f…1cc2 at0016 = ╱4b╱K╱ // 0x1c95 @0x16
0x1c7f…1cc2 at0017 = ╱6f╱o╱ // 0x1c96 @0x17
0x1c7f…1cc2 at0018 = ╱6e╱n╱ // 0x1c97 @0x18
0x1c7f…1cc2 at0019 = ╱74╱t╱ // 0x1c98 @0x19
0x1c7f…1cc2 at001a = ╱6f╱o╱ // 0x1c99 @0x1a
0x1c7f…1cc2 at001b = ╱6e╱n╱ // 0x1c9a @0x1b
0x1c7f…1cc2 at001c = ╱75╱u╱ // 0x1c9b @0x1c
0x1c7f…1cc2 at001d = ╱6d╱m╱ // 0x1c9c @0x1d
0x1c7f…1cc2 at001e = ╱6d╱m╱ // 0x1c9d @0x1e
0x1c7f…1cc2 at001f = ╱65╱e╱ // 0x1c9e @0x1f
0x1c7f…1cc2 at0020 = ╱72╱r╱ // 0x1c9f @0x20
0x1c7f…1cc2 at0021 = ╱20╱…╱ // 0x1ca0 @0x21
0x1c7f…1cc2 at0022 = ╱66╱f╱ // 0x1ca1 @0x22
0x1c7f…1cc2 at0023 = ╱6f╱o╱ // 0x1ca2 @0x23
0x1c7f…1cc2 at0024 = ╱72╱r╱ // 0x1ca3 @0x24
0x1c7f…1cc2 at0025 = ╱20╱…╱ // 0x1ca4 @0x25
0x1c7f…1cc2 at0026 = ╱66╱f╱ // 0x1ca5 @0x26
0x1c7f…1cc2 at0027 = ╱7c╱|╱ // 0x1ca6 @0x27
0x1c7f…1cc2 at0028 = ╱72╱r╱ // 0x1ca7 @0x28
0x1c7f…1cc2 at0029 = ╱73╱s╱ // 0x1ca8 @0x29
0x1c7f…1cc2 at002a = ╱74╱t╱ // 0x1ca9 @0x2a
0x1c7f…1cc2 at002b = ╱65╱e╱ // 0x1caa @0x2b
0x1c7f…1cc2 at002c = ╱20╱…╱ // 0x1cab @0x2c
0x1c7f…1cc2 at002d = ╱62╱b╱ // 0x1cac @0x2d
0x1c7f…1cc2 at002e = ╱61╱a╱ // 0x1cad @0x2e
0x1c7f…1cc2 at002f = ╱6c╱l╱ // 0x1cae @0x2f
0x1c7f…1cc2 at0030 = ╱61╱a╱ // 0x1caf @0x30
0x1c7f…1cc2 at0031 = ╱6e╱n╱ // 0x1cb0 @0x31
0x1c7f…1cc2 at0032 = ╱63╱c╱ // 0x1cb1 @0x32
0x1c7f…1cc2 at0033 = ╱65╱e╱ // 0x1cb2 @0x33
0x1c7f…1cc2 at0034 = ╱6b╱k╱ // 0x1cb3 @0x34
0x1c7f…1cc2 at0035 = ╱6f╱o╱ // 0x1cb4 @0x35
0x1c7f…1cc2 at0036 = ╱6e╱n╱ // 0x1cb5 @0x36
0x1c7f…1cc2 at0037 = ╱74╱t╱ // 0x1cb6 @0x37
0x1c7f…1cc2 at0038 = ╱6f╱o╱ // 0x1cb7 @0x38
0x1c7f…1cc2 at0039 = ╱3a╱:╱ // 0x1cb8 @0x39
0x1c7f…1cc2 at003a = ╱20╱…╱ // 0x1cb9 @0x3a
0x1c7f…1cc2 at003b = ╱22╱"╱ // 0x1cba @0x3b
0x1c7f…1cc2 at003c = ╱ec╱ , ╱ // 0x1cbb @0x3c
0x1c7f…1cc2 at003d = ╱39╱9╱ // 0x1cbc @0x3d
0x1c7f…1cc2 at003e = ╱f20900╱ // 0x1cbd @0x3e
0x1c7f…1cc2 at0041 = ╱ee╱ ) ╱ // 0x1cc0 @0x41
0x1c7f…1cc2 at0042 = EOL // 0x1cc1 @0x42
0x1c7f…1cc2 }
0x1cc2…1ccf b2bd 02560 WHILE 18
0x1cc2…1ccf LineComal80 {
0x1cc2…1ccf ptr = 0xb2bd // 0x1cc2 @0x0
0x1cc2…1ccf lno = 0x0a00 // 0x1cc4 @0x2
0x1cc2…1ccf at0004 = ╱a40001╱ WHILE ╱ // 0x1cc6 @0x4
0x1cc2…1ccf at0007 = ╱31╱1╱ // 0x1cc9 @0x7
0x1cc2…1ccf at0008 = ╱38╱8╱ // 0x1cca @0x8
0x1cc2…1ccf at0009 = ╱f21200╱ // 0x1ccb @0x9
0x1cc2…1ccf at000c = EOL // 0x1cce @0xc
0x1cc2…1ccf }
0x1ccf…1d0e b2fc 02570 EXEC [NDRE_KTONR ( "18.…Kontonummer…for…}rets…resultat:…" , 10 )
0x1ccf…1d0e LineComal80 {
0x1ccf…1d0e ptr = 0xb2fc // 0x1ccf @0x0
0x1ccf…1d0e lno = 0x0a0a // 0x1cd1 @0x2
0x1ccf…1d0e at0004 = ╱9d╱ EXEC ╱ // 0x1cd3 @0x4
0x1ccf…1d0e at0005 = ╱5b╱[╱ // 0x1cd4 @0x5
0x1ccf…1d0e at0006 = ╱4e╱N╱ // 0x1cd5 @0x6
0x1ccf…1d0e at0007 = ╱44╱D╱ // 0x1cd6 @0x7
0x1ccf…1d0e at0008 = ╱52╱R╱ // 0x1cd7 @0x8
0x1ccf…1d0e at0009 = ╱45╱E╱ // 0x1cd8 @0x9
0x1ccf…1d0e at000a = ╱5f╱_╱ // 0x1cd9 @0xa
0x1ccf…1d0e at000b = ╱4b╱K╱ // 0x1cda @0xb
0x1ccf…1d0e at000c = ╱54╱T╱ // 0x1cdb @0xc
0x1ccf…1d0e at000d = ╱4f╱O╱ // 0x1cdc @0xd
0x1ccf…1d0e at000e = ╱4e╱N╱ // 0x1cdd @0xe
0x1ccf…1d0e at000f = ╱52╱R╱ // 0x1cde @0xf
0x1ccf…1d0e at0010 = ╱ed╱ ( ╱ // 0x1cdf @0x10
0x1ccf…1d0e at0011 = ╱22╱"╱ // 0x1ce0 @0x11
0x1ccf…1d0e at0012 = ╱31╱1╱ // 0x1ce1 @0x12
0x1ccf…1d0e at0013 = ╱38╱8╱ // 0x1ce2 @0x13
0x1ccf…1d0e at0014 = ╱2e╱.╱ // 0x1ce3 @0x14
0x1ccf…1d0e at0015 = ╱20╱…╱ // 0x1ce4 @0x15
0x1ccf…1d0e at0016 = ╱4b╱K╱ // 0x1ce5 @0x16
0x1ccf…1d0e at0017 = ╱6f╱o╱ // 0x1ce6 @0x17
0x1ccf…1d0e at0018 = ╱6e╱n╱ // 0x1ce7 @0x18
0x1ccf…1d0e at0019 = ╱74╱t╱ // 0x1ce8 @0x19
0x1ccf…1d0e at001a = ╱6f╱o╱ // 0x1ce9 @0x1a
0x1ccf…1d0e at001b = ╱6e╱n╱ // 0x1cea @0x1b
0x1ccf…1d0e at001c = ╱75╱u╱ // 0x1ceb @0x1c
0x1ccf…1d0e at001d = ╱6d╱m╱ // 0x1cec @0x1d
0x1ccf…1d0e at001e = ╱6d╱m╱ // 0x1ced @0x1e
0x1ccf…1d0e at001f = ╱65╱e╱ // 0x1cee @0x1f
0x1ccf…1d0e at0020 = ╱72╱r╱ // 0x1cef @0x20
0x1ccf…1d0e at0021 = ╱20╱…╱ // 0x1cf0 @0x21
0x1ccf…1d0e at0022 = ╱66╱f╱ // 0x1cf1 @0x22
0x1ccf…1d0e at0023 = ╱6f╱o╱ // 0x1cf2 @0x23
0x1ccf…1d0e at0024 = ╱72╱r╱ // 0x1cf3 @0x24
0x1ccf…1d0e at0025 = ╱20╱…╱ // 0x1cf4 @0x25
0x1ccf…1d0e at0026 = ╱7d╱}╱ // 0x1cf5 @0x26
0x1ccf…1d0e at0027 = ╱72╱r╱ // 0x1cf6 @0x27
0x1ccf…1d0e at0028 = ╱65╱e╱ // 0x1cf7 @0x28
0x1ccf…1d0e at0029 = ╱74╱t╱ // 0x1cf8 @0x29
0x1ccf…1d0e at002a = ╱73╱s╱ // 0x1cf9 @0x2a
0x1ccf…1d0e at002b = ╱20╱…╱ // 0x1cfa @0x2b
0x1ccf…1d0e at002c = ╱72╱r╱ // 0x1cfb @0x2c
0x1ccf…1d0e at002d = ╱65╱e╱ // 0x1cfc @0x2d
0x1ccf…1d0e at002e = ╱73╱s╱ // 0x1cfd @0x2e
0x1ccf…1d0e at002f = ╱75╱u╱ // 0x1cfe @0x2f
0x1ccf…1d0e at0030 = ╱6c╱l╱ // 0x1cff @0x30
0x1ccf…1d0e at0031 = ╱74╱t╱ // 0x1d00 @0x31
0x1ccf…1d0e at0032 = ╱61╱a╱ // 0x1d01 @0x32
0x1ccf…1d0e at0033 = ╱74╱t╱ // 0x1d02 @0x33
0x1ccf…1d0e at0034 = ╱3a╱:╱ // 0x1d03 @0x34
0x1ccf…1d0e at0035 = ╱20╱…╱ // 0x1d04 @0x35
0x1ccf…1d0e at0036 = ╱22╱"╱ // 0x1d05 @0x36
0x1ccf…1d0e at0037 = ╱ec╱ , ╱ // 0x1d06 @0x37
0x1ccf…1d0e at0038 = ╱31╱1╱ // 0x1d07 @0x38
0x1ccf…1d0e at0039 = ╱30╱0╱ // 0x1d08 @0x39
0x1ccf…1d0e at003a = ╱f20a00╱ // 0x1d09 @0x3a
0x1ccf…1d0e at003d = ╱ee╱ ) ╱ // 0x1d0c @0x3d
0x1ccf…1d0e at003e = EOL // 0x1d0d @0x3e
0x1ccf…1d0e }
0x1d0e…1d1b b309 02580 WHILE 19
0x1d0e…1d1b LineComal80 {
0x1d0e…1d1b ptr = 0xb309 // 0x1d0e @0x0
0x1d0e…1d1b lno = 0x0a14 // 0x1d10 @0x2
0x1d0e…1d1b at0004 = ╱a40001╱ WHILE ╱ // 0x1d12 @0x4
0x1d0e…1d1b at0007 = ╱31╱1╱ // 0x1d15 @0x7
0x1d0e…1d1b at0008 = ╱39╱9╱ // 0x1d16 @0x8
0x1d0e…1d1b at0009 = ╱f21300╱ // 0x1d17 @0x9
0x1d0e…1d1b at000c = EOL // 0x1d1a @0xc
0x1d0e…1d1b }
0x1d1b…1d59 b347 02590 EXEC [NDRE_KTONR ( "19.…Kontonummer…for…privatforbrug:…" , 11 )
0x1d1b…1d59 LineComal80 {
0x1d1b…1d59 ptr = 0xb347 // 0x1d1b @0x0
0x1d1b…1d59 lno = 0x0a1e // 0x1d1d @0x2
0x1d1b…1d59 at0004 = ╱9d╱ EXEC ╱ // 0x1d1f @0x4
0x1d1b…1d59 at0005 = ╱5b╱[╱ // 0x1d20 @0x5
0x1d1b…1d59 at0006 = ╱4e╱N╱ // 0x1d21 @0x6
0x1d1b…1d59 at0007 = ╱44╱D╱ // 0x1d22 @0x7
0x1d1b…1d59 at0008 = ╱52╱R╱ // 0x1d23 @0x8
0x1d1b…1d59 at0009 = ╱45╱E╱ // 0x1d24 @0x9
0x1d1b…1d59 at000a = ╱5f╱_╱ // 0x1d25 @0xa
0x1d1b…1d59 at000b = ╱4b╱K╱ // 0x1d26 @0xb
0x1d1b…1d59 at000c = ╱54╱T╱ // 0x1d27 @0xc
0x1d1b…1d59 at000d = ╱4f╱O╱ // 0x1d28 @0xd
0x1d1b…1d59 at000e = ╱4e╱N╱ // 0x1d29 @0xe
0x1d1b…1d59 at000f = ╱52╱R╱ // 0x1d2a @0xf
0x1d1b…1d59 at0010 = ╱ed╱ ( ╱ // 0x1d2b @0x10
0x1d1b…1d59 at0011 = ╱22╱"╱ // 0x1d2c @0x11
0x1d1b…1d59 at0012 = ╱31╱1╱ // 0x1d2d @0x12
0x1d1b…1d59 at0013 = ╱39╱9╱ // 0x1d2e @0x13
0x1d1b…1d59 at0014 = ╱2e╱.╱ // 0x1d2f @0x14
0x1d1b…1d59 at0015 = ╱20╱…╱ // 0x1d30 @0x15
0x1d1b…1d59 at0016 = ╱4b╱K╱ // 0x1d31 @0x16
0x1d1b…1d59 at0017 = ╱6f╱o╱ // 0x1d32 @0x17
0x1d1b…1d59 at0018 = ╱6e╱n╱ // 0x1d33 @0x18
0x1d1b…1d59 at0019 = ╱74╱t╱ // 0x1d34 @0x19
0x1d1b…1d59 at001a = ╱6f╱o╱ // 0x1d35 @0x1a
0x1d1b…1d59 at001b = ╱6e╱n╱ // 0x1d36 @0x1b
0x1d1b…1d59 at001c = ╱75╱u╱ // 0x1d37 @0x1c
0x1d1b…1d59 at001d = ╱6d╱m╱ // 0x1d38 @0x1d
0x1d1b…1d59 at001e = ╱6d╱m╱ // 0x1d39 @0x1e
0x1d1b…1d59 at001f = ╱65╱e╱ // 0x1d3a @0x1f
0x1d1b…1d59 at0020 = ╱72╱r╱ // 0x1d3b @0x20
0x1d1b…1d59 at0021 = ╱20╱…╱ // 0x1d3c @0x21
0x1d1b…1d59 at0022 = ╱66╱f╱ // 0x1d3d @0x22
0x1d1b…1d59 at0023 = ╱6f╱o╱ // 0x1d3e @0x23
0x1d1b…1d59 at0024 = ╱72╱r╱ // 0x1d3f @0x24
0x1d1b…1d59 at0025 = ╱20╱…╱ // 0x1d40 @0x25
0x1d1b…1d59 at0026 = ╱70╱p╱ // 0x1d41 @0x26
0x1d1b…1d59 at0027 = ╱72╱r╱ // 0x1d42 @0x27
0x1d1b…1d59 at0028 = ╱69╱i╱ // 0x1d43 @0x28
0x1d1b…1d59 at0029 = ╱76╱v╱ // 0x1d44 @0x29
0x1d1b…1d59 at002a = ╱61╱a╱ // 0x1d45 @0x2a
0x1d1b…1d59 at002b = ╱74╱t╱ // 0x1d46 @0x2b
0x1d1b…1d59 at002c = ╱66╱f╱ // 0x1d47 @0x2c
0x1d1b…1d59 at002d = ╱6f╱o╱ // 0x1d48 @0x2d
0x1d1b…1d59 at002e = ╱72╱r╱ // 0x1d49 @0x2e
0x1d1b…1d59 at002f = ╱62╱b╱ // 0x1d4a @0x2f
0x1d1b…1d59 at0030 = ╱72╱r╱ // 0x1d4b @0x30
0x1d1b…1d59 at0031 = ╱75╱u╱ // 0x1d4c @0x31
0x1d1b…1d59 at0032 = ╱67╱g╱ // 0x1d4d @0x32
0x1d1b…1d59 at0033 = ╱3a╱:╱ // 0x1d4e @0x33
0x1d1b…1d59 at0034 = ╱20╱…╱ // 0x1d4f @0x34
0x1d1b…1d59 at0035 = ╱22╱"╱ // 0x1d50 @0x35
0x1d1b…1d59 at0036 = ╱ec╱ , ╱ // 0x1d51 @0x36
0x1d1b…1d59 at0037 = ╱31╱1╱ // 0x1d52 @0x37
0x1d1b…1d59 at0038 = ╱31╱1╱ // 0x1d53 @0x38
0x1d1b…1d59 at0039 = ╱f20b00╱ // 0x1d54 @0x39
0x1d1b…1d59 at003c = ╱ee╱ ) ╱ // 0x1d57 @0x3c
0x1d1b…1d59 at003d = EOL // 0x1d58 @0x3d
0x1d1b…1d59 }
0x1d59…1d66 b354 02600 WHILE 20
0x1d59…1d66 LineComal80 {
0x1d59…1d66 ptr = 0xb354 // 0x1d59 @0x0
0x1d59…1d66 lno = 0x0a28 // 0x1d5b @0x2
0x1d59…1d66 at0004 = ╱a40001╱ WHILE ╱ // 0x1d5d @0x4
0x1d59…1d66 at0007 = ╱32╱2╱ // 0x1d60 @0x7
0x1d59…1d66 at0008 = ╱30╱0╱ // 0x1d61 @0x8
0x1d59…1d66 at0009 = ╱f21400╱ // 0x1d62 @0x9
0x1d59…1d66 at000c = EOL // 0x1d65 @0xc
0x1d59…1d66 }
0x1d66…1da0 b38e 02610 EXEC [NDRE_KTOGRP ( "20.…Kontogruppe…for…oms{tning:…" , 1 )
0x1d66…1da0 LineComal80 {
0x1d66…1da0 ptr = 0xb38e // 0x1d66 @0x0
0x1d66…1da0 lno = 0x0a32 // 0x1d68 @0x2
0x1d66…1da0 at0004 = ╱9d╱ EXEC ╱ // 0x1d6a @0x4
0x1d66…1da0 at0005 = ╱5b╱[╱ // 0x1d6b @0x5
0x1d66…1da0 at0006 = ╱4e╱N╱ // 0x1d6c @0x6
0x1d66…1da0 at0007 = ╱44╱D╱ // 0x1d6d @0x7
0x1d66…1da0 at0008 = ╱52╱R╱ // 0x1d6e @0x8
0x1d66…1da0 at0009 = ╱45╱E╱ // 0x1d6f @0x9
0x1d66…1da0 at000a = ╱5f╱_╱ // 0x1d70 @0xa
0x1d66…1da0 at000b = ╱4b╱K╱ // 0x1d71 @0xb
0x1d66…1da0 at000c = ╱54╱T╱ // 0x1d72 @0xc
0x1d66…1da0 at000d = ╱4f╱O╱ // 0x1d73 @0xd
0x1d66…1da0 at000e = ╱47╱G╱ // 0x1d74 @0xe
0x1d66…1da0 at000f = ╱52╱R╱ // 0x1d75 @0xf
0x1d66…1da0 at0010 = ╱50╱P╱ // 0x1d76 @0x10
0x1d66…1da0 at0011 = ╱ed╱ ( ╱ // 0x1d77 @0x11
0x1d66…1da0 at0012 = ╱22╱"╱ // 0x1d78 @0x12
0x1d66…1da0 at0013 = ╱32╱2╱ // 0x1d79 @0x13
0x1d66…1da0 at0014 = ╱30╱0╱ // 0x1d7a @0x14
0x1d66…1da0 at0015 = ╱2e╱.╱ // 0x1d7b @0x15
0x1d66…1da0 at0016 = ╱20╱…╱ // 0x1d7c @0x16
0x1d66…1da0 at0017 = ╱4b╱K╱ // 0x1d7d @0x17
0x1d66…1da0 at0018 = ╱6f╱o╱ // 0x1d7e @0x18
0x1d66…1da0 at0019 = ╱6e╱n╱ // 0x1d7f @0x19
0x1d66…1da0 at001a = ╱74╱t╱ // 0x1d80 @0x1a
0x1d66…1da0 at001b = ╱6f╱o╱ // 0x1d81 @0x1b
0x1d66…1da0 at001c = ╱67╱g╱ // 0x1d82 @0x1c
0x1d66…1da0 at001d = ╱72╱r╱ // 0x1d83 @0x1d
0x1d66…1da0 at001e = ╱75╱u╱ // 0x1d84 @0x1e
0x1d66…1da0 at001f = ╱70╱p╱ // 0x1d85 @0x1f
0x1d66…1da0 at0020 = ╱70╱p╱ // 0x1d86 @0x20
0x1d66…1da0 at0021 = ╱65╱e╱ // 0x1d87 @0x21
0x1d66…1da0 at0022 = ╱20╱…╱ // 0x1d88 @0x22
0x1d66…1da0 at0023 = ╱66╱f╱ // 0x1d89 @0x23
0x1d66…1da0 at0024 = ╱6f╱o╱ // 0x1d8a @0x24
0x1d66…1da0 at0025 = ╱72╱r╱ // 0x1d8b @0x25
0x1d66…1da0 at0026 = ╱20╱…╱ // 0x1d8c @0x26
0x1d66…1da0 at0027 = ╱6f╱o╱ // 0x1d8d @0x27
0x1d66…1da0 at0028 = ╱6d╱m╱ // 0x1d8e @0x28
0x1d66…1da0 at0029 = ╱73╱s╱ // 0x1d8f @0x29
0x1d66…1da0 at002a = ╱7b╱{╱ // 0x1d90 @0x2a
0x1d66…1da0 at002b = ╱74╱t╱ // 0x1d91 @0x2b
0x1d66…1da0 at002c = ╱6e╱n╱ // 0x1d92 @0x2c
0x1d66…1da0 at002d = ╱69╱i╱ // 0x1d93 @0x2d
0x1d66…1da0 at002e = ╱6e╱n╱ // 0x1d94 @0x2e
0x1d66…1da0 at002f = ╱67╱g╱ // 0x1d95 @0x2f
0x1d66…1da0 at0030 = ╱3a╱:╱ // 0x1d96 @0x30
0x1d66…1da0 at0031 = ╱20╱…╱ // 0x1d97 @0x31
0x1d66…1da0 at0032 = ╱22╱"╱ // 0x1d98 @0x32
0x1d66…1da0 at0033 = ╱ec╱ , ╱ // 0x1d99 @0x33
0x1d66…1da0 at0034 = ╱31╱1╱ // 0x1d9a @0x34
0x1d66…1da0 at0035 = ╱f20100╱ // 0x1d9b @0x35
0x1d66…1da0 at0038 = ╱ee╱ ) ╱ // 0x1d9e @0x38
0x1d66…1da0 at0039 = EOL // 0x1d9f @0x39
0x1d66…1da0 }
0x1da0…1dad b39b 02620 WHILE 21
0x1da0…1dad LineComal80 {
0x1da0…1dad ptr = 0xb39b // 0x1da0 @0x0
0x1da0…1dad lno = 0x0a3c // 0x1da2 @0x2
0x1da0…1dad at0004 = ╱a40001╱ WHILE ╱ // 0x1da4 @0x4
0x1da0…1dad at0007 = ╱32╱2╱ // 0x1da7 @0x7
0x1da0…1dad at0008 = ╱31╱1╱ // 0x1da8 @0x8
0x1da0…1dad at0009 = ╱f21500╱ // 0x1da9 @0x9
0x1da0…1dad at000c = EOL // 0x1dac @0xc
0x1da0…1dad }
0x1dad…1df3 b3e1 02630 EXEC [NDRE_KTOGRP ( "21.…Kontogruppe…for…variable…omkostninger:…" , 2 )
0x1dad…1df3 LineComal80 {
0x1dad…1df3 ptr = 0xb3e1 // 0x1dad @0x0
0x1dad…1df3 lno = 0x0a46 // 0x1daf @0x2
0x1dad…1df3 at0004 = ╱9d╱ EXEC ╱ // 0x1db1 @0x4
0x1dad…1df3 at0005 = ╱5b╱[╱ // 0x1db2 @0x5
0x1dad…1df3 at0006 = ╱4e╱N╱ // 0x1db3 @0x6
0x1dad…1df3 at0007 = ╱44╱D╱ // 0x1db4 @0x7
0x1dad…1df3 at0008 = ╱52╱R╱ // 0x1db5 @0x8
0x1dad…1df3 at0009 = ╱45╱E╱ // 0x1db6 @0x9
0x1dad…1df3 at000a = ╱5f╱_╱ // 0x1db7 @0xa
0x1dad…1df3 at000b = ╱4b╱K╱ // 0x1db8 @0xb
0x1dad…1df3 at000c = ╱54╱T╱ // 0x1db9 @0xc
0x1dad…1df3 at000d = ╱4f╱O╱ // 0x1dba @0xd
0x1dad…1df3 at000e = ╱47╱G╱ // 0x1dbb @0xe
0x1dad…1df3 at000f = ╱52╱R╱ // 0x1dbc @0xf
0x1dad…1df3 at0010 = ╱50╱P╱ // 0x1dbd @0x10
0x1dad…1df3 at0011 = ╱ed╱ ( ╱ // 0x1dbe @0x11
0x1dad…1df3 at0012 = ╱22╱"╱ // 0x1dbf @0x12
0x1dad…1df3 at0013 = ╱32╱2╱ // 0x1dc0 @0x13
0x1dad…1df3 at0014 = ╱31╱1╱ // 0x1dc1 @0x14
0x1dad…1df3 at0015 = ╱2e╱.╱ // 0x1dc2 @0x15
0x1dad…1df3 at0016 = ╱20╱…╱ // 0x1dc3 @0x16
0x1dad…1df3 at0017 = ╱4b╱K╱ // 0x1dc4 @0x17
0x1dad…1df3 at0018 = ╱6f╱o╱ // 0x1dc5 @0x18
0x1dad…1df3 at0019 = ╱6e╱n╱ // 0x1dc6 @0x19
0x1dad…1df3 at001a = ╱74╱t╱ // 0x1dc7 @0x1a
0x1dad…1df3 at001b = ╱6f╱o╱ // 0x1dc8 @0x1b
0x1dad…1df3 at001c = ╱67╱g╱ // 0x1dc9 @0x1c
0x1dad…1df3 at001d = ╱72╱r╱ // 0x1dca @0x1d
0x1dad…1df3 at001e = ╱75╱u╱ // 0x1dcb @0x1e
0x1dad…1df3 at001f = ╱70╱p╱ // 0x1dcc @0x1f
0x1dad…1df3 at0020 = ╱70╱p╱ // 0x1dcd @0x20
0x1dad…1df3 at0021 = ╱65╱e╱ // 0x1dce @0x21
0x1dad…1df3 at0022 = ╱20╱…╱ // 0x1dcf @0x22
0x1dad…1df3 at0023 = ╱66╱f╱ // 0x1dd0 @0x23
0x1dad…1df3 at0024 = ╱6f╱o╱ // 0x1dd1 @0x24
0x1dad…1df3 at0025 = ╱72╱r╱ // 0x1dd2 @0x25
0x1dad…1df3 at0026 = ╱20╱…╱ // 0x1dd3 @0x26
0x1dad…1df3 at0027 = ╱76╱v╱ // 0x1dd4 @0x27
0x1dad…1df3 at0028 = ╱61╱a╱ // 0x1dd5 @0x28
0x1dad…1df3 at0029 = ╱72╱r╱ // 0x1dd6 @0x29
0x1dad…1df3 at002a = ╱69╱i╱ // 0x1dd7 @0x2a
0x1dad…1df3 at002b = ╱61╱a╱ // 0x1dd8 @0x2b
0x1dad…1df3 at002c = ╱62╱b╱ // 0x1dd9 @0x2c
0x1dad…1df3 at002d = ╱6c╱l╱ // 0x1dda @0x2d
0x1dad…1df3 at002e = ╱65╱e╱ // 0x1ddb @0x2e
0x1dad…1df3 at002f = ╱20╱…╱ // 0x1ddc @0x2f
0x1dad…1df3 at0030 = ╱6f╱o╱ // 0x1ddd @0x30
0x1dad…1df3 at0031 = ╱6d╱m╱ // 0x1dde @0x31
0x1dad…1df3 at0032 = ╱6b╱k╱ // 0x1ddf @0x32
0x1dad…1df3 at0033 = ╱6f╱o╱ // 0x1de0 @0x33
0x1dad…1df3 at0034 = ╱73╱s╱ // 0x1de1 @0x34
0x1dad…1df3 at0035 = ╱74╱t╱ // 0x1de2 @0x35
0x1dad…1df3 at0036 = ╱6e╱n╱ // 0x1de3 @0x36
0x1dad…1df3 at0037 = ╱69╱i╱ // 0x1de4 @0x37
0x1dad…1df3 at0038 = ╱6e╱n╱ // 0x1de5 @0x38
0x1dad…1df3 at0039 = ╱67╱g╱ // 0x1de6 @0x39
0x1dad…1df3 at003a = ╱65╱e╱ // 0x1de7 @0x3a
0x1dad…1df3 at003b = ╱72╱r╱ // 0x1de8 @0x3b
0x1dad…1df3 at003c = ╱3a╱:╱ // 0x1de9 @0x3c
0x1dad…1df3 at003d = ╱20╱…╱ // 0x1dea @0x3d
0x1dad…1df3 at003e = ╱22╱"╱ // 0x1deb @0x3e
0x1dad…1df3 at003f = ╱ec╱ , ╱ // 0x1dec @0x3f
0x1dad…1df3 at0040 = ╱32╱2╱ // 0x1ded @0x40
0x1dad…1df3 at0041 = ╱f20200╱ // 0x1dee @0x41
0x1dad…1df3 at0044 = ╱ee╱ ) ╱ // 0x1df1 @0x44
0x1dad…1df3 at0045 = EOL // 0x1df2 @0x45
0x1dad…1df3 }
0x1df3…1e00 b3ee 02640 WHILE 22
0x1df3…1e00 LineComal80 {
0x1df3…1e00 ptr = 0xb3ee // 0x1df3 @0x0
0x1df3…1e00 lno = 0x0a50 // 0x1df5 @0x2
0x1df3…1e00 at0004 = ╱a40001╱ WHILE ╱ // 0x1df7 @0x4
0x1df3…1e00 at0007 = ╱32╱2╱ // 0x1dfa @0x7
0x1df3…1e00 at0008 = ╱32╱2╱ // 0x1dfb @0x8
0x1df3…1e00 at0009 = ╱f21600╱ // 0x1dfc @0x9
0x1df3…1e00 at000c = EOL // 0x1dff @0xc
0x1df3…1e00 }
0x1e00…1e43 b431 02650 EXEC [NDRE_KTOGRP ( "22.…Kontogruppe…for…andre…omkostninger:…" , 3 )
0x1e00…1e43 LineComal80 {
0x1e00…1e43 ptr = 0xb431 // 0x1e00 @0x0
0x1e00…1e43 lno = 0x0a5a // 0x1e02 @0x2
0x1e00…1e43 at0004 = ╱9d╱ EXEC ╱ // 0x1e04 @0x4
0x1e00…1e43 at0005 = ╱5b╱[╱ // 0x1e05 @0x5
0x1e00…1e43 at0006 = ╱4e╱N╱ // 0x1e06 @0x6
0x1e00…1e43 at0007 = ╱44╱D╱ // 0x1e07 @0x7
0x1e00…1e43 at0008 = ╱52╱R╱ // 0x1e08 @0x8
0x1e00…1e43 at0009 = ╱45╱E╱ // 0x1e09 @0x9
0x1e00…1e43 at000a = ╱5f╱_╱ // 0x1e0a @0xa
0x1e00…1e43 at000b = ╱4b╱K╱ // 0x1e0b @0xb
0x1e00…1e43 at000c = ╱54╱T╱ // 0x1e0c @0xc
0x1e00…1e43 at000d = ╱4f╱O╱ // 0x1e0d @0xd
0x1e00…1e43 at000e = ╱47╱G╱ // 0x1e0e @0xe
0x1e00…1e43 at000f = ╱52╱R╱ // 0x1e0f @0xf
0x1e00…1e43 at0010 = ╱50╱P╱ // 0x1e10 @0x10
0x1e00…1e43 at0011 = ╱ed╱ ( ╱ // 0x1e11 @0x11
0x1e00…1e43 at0012 = ╱22╱"╱ // 0x1e12 @0x12
0x1e00…1e43 at0013 = ╱32╱2╱ // 0x1e13 @0x13
0x1e00…1e43 at0014 = ╱32╱2╱ // 0x1e14 @0x14
0x1e00…1e43 at0015 = ╱2e╱.╱ // 0x1e15 @0x15
0x1e00…1e43 at0016 = ╱20╱…╱ // 0x1e16 @0x16
0x1e00…1e43 at0017 = ╱4b╱K╱ // 0x1e17 @0x17
0x1e00…1e43 at0018 = ╱6f╱o╱ // 0x1e18 @0x18
0x1e00…1e43 at0019 = ╱6e╱n╱ // 0x1e19 @0x19
0x1e00…1e43 at001a = ╱74╱t╱ // 0x1e1a @0x1a
0x1e00…1e43 at001b = ╱6f╱o╱ // 0x1e1b @0x1b
0x1e00…1e43 at001c = ╱67╱g╱ // 0x1e1c @0x1c
0x1e00…1e43 at001d = ╱72╱r╱ // 0x1e1d @0x1d
0x1e00…1e43 at001e = ╱75╱u╱ // 0x1e1e @0x1e
0x1e00…1e43 at001f = ╱70╱p╱ // 0x1e1f @0x1f
0x1e00…1e43 at0020 = ╱70╱p╱ // 0x1e20 @0x20
0x1e00…1e43 at0021 = ╱65╱e╱ // 0x1e21 @0x21
0x1e00…1e43 at0022 = ╱20╱…╱ // 0x1e22 @0x22
0x1e00…1e43 at0023 = ╱66╱f╱ // 0x1e23 @0x23
0x1e00…1e43 at0024 = ╱6f╱o╱ // 0x1e24 @0x24
0x1e00…1e43 at0025 = ╱72╱r╱ // 0x1e25 @0x25
0x1e00…1e43 at0026 = ╱20╱…╱ // 0x1e26 @0x26
0x1e00…1e43 at0027 = ╱61╱a╱ // 0x1e27 @0x27
0x1e00…1e43 at0028 = ╱6e╱n╱ // 0x1e28 @0x28
0x1e00…1e43 at0029 = ╱64╱d╱ // 0x1e29 @0x29
0x1e00…1e43 at002a = ╱72╱r╱ // 0x1e2a @0x2a
0x1e00…1e43 at002b = ╱65╱e╱ // 0x1e2b @0x2b
0x1e00…1e43 at002c = ╱20╱…╱ // 0x1e2c @0x2c
0x1e00…1e43 at002d = ╱6f╱o╱ // 0x1e2d @0x2d
0x1e00…1e43 at002e = ╱6d╱m╱ // 0x1e2e @0x2e
0x1e00…1e43 at002f = ╱6b╱k╱ // 0x1e2f @0x2f
0x1e00…1e43 at0030 = ╱6f╱o╱ // 0x1e30 @0x30
0x1e00…1e43 at0031 = ╱73╱s╱ // 0x1e31 @0x31
0x1e00…1e43 at0032 = ╱74╱t╱ // 0x1e32 @0x32
0x1e00…1e43 at0033 = ╱6e╱n╱ // 0x1e33 @0x33
0x1e00…1e43 at0034 = ╱69╱i╱ // 0x1e34 @0x34
0x1e00…1e43 at0035 = ╱6e╱n╱ // 0x1e35 @0x35
0x1e00…1e43 at0036 = ╱67╱g╱ // 0x1e36 @0x36
0x1e00…1e43 at0037 = ╱65╱e╱ // 0x1e37 @0x37
0x1e00…1e43 at0038 = ╱72╱r╱ // 0x1e38 @0x38
0x1e00…1e43 at0039 = ╱3a╱:╱ // 0x1e39 @0x39
0x1e00…1e43 at003a = ╱20╱…╱ // 0x1e3a @0x3a
0x1e00…1e43 at003b = ╱22╱"╱ // 0x1e3b @0x3b
0x1e00…1e43 at003c = ╱ec╱ , ╱ // 0x1e3c @0x3c
0x1e00…1e43 at003d = ╱33╱3╱ // 0x1e3d @0x3d
0x1e00…1e43 at003e = ╱f20300╱ // 0x1e3e @0x3e
0x1e00…1e43 at0041 = ╱ee╱ ) ╱ // 0x1e41 @0x41
0x1e00…1e43 at0042 = EOL // 0x1e42 @0x42
0x1e00…1e43 }
0x1e43…1e50 b43e 02660 WHILE 23
0x1e43…1e50 LineComal80 {
0x1e43…1e50 ptr = 0xb43e // 0x1e43 @0x0
0x1e43…1e50 lno = 0x0a64 // 0x1e45 @0x2
0x1e43…1e50 at0004 = ╱a40001╱ WHILE ╱ // 0x1e47 @0x4
0x1e43…1e50 at0007 = ╱32╱2╱ // 0x1e4a @0x7
0x1e43…1e50 at0008 = ╱33╱3╱ // 0x1e4b @0x8
0x1e43…1e50 at0009 = ╱f21700╱ // 0x1e4c @0x9
0x1e43…1e50 at000c = EOL // 0x1e4f @0xc
0x1e43…1e50 }
0x1e50…1e97 b485 02670 EXEC [NDRE_KTOGRP ( "23.…Kontogruppe…for…personale…omkostninger:…" , 4 )
0x1e50…1e97 LineComal80 {
0x1e50…1e97 ptr = 0xb485 // 0x1e50 @0x0
0x1e50…1e97 lno = 0x0a6e // 0x1e52 @0x2
0x1e50…1e97 at0004 = ╱9d╱ EXEC ╱ // 0x1e54 @0x4
0x1e50…1e97 at0005 = ╱5b╱[╱ // 0x1e55 @0x5
0x1e50…1e97 at0006 = ╱4e╱N╱ // 0x1e56 @0x6
0x1e50…1e97 at0007 = ╱44╱D╱ // 0x1e57 @0x7
0x1e50…1e97 at0008 = ╱52╱R╱ // 0x1e58 @0x8
0x1e50…1e97 at0009 = ╱45╱E╱ // 0x1e59 @0x9
0x1e50…1e97 at000a = ╱5f╱_╱ // 0x1e5a @0xa
0x1e50…1e97 at000b = ╱4b╱K╱ // 0x1e5b @0xb
0x1e50…1e97 at000c = ╱54╱T╱ // 0x1e5c @0xc
0x1e50…1e97 at000d = ╱4f╱O╱ // 0x1e5d @0xd
0x1e50…1e97 at000e = ╱47╱G╱ // 0x1e5e @0xe
0x1e50…1e97 at000f = ╱52╱R╱ // 0x1e5f @0xf
0x1e50…1e97 at0010 = ╱50╱P╱ // 0x1e60 @0x10
0x1e50…1e97 at0011 = ╱ed╱ ( ╱ // 0x1e61 @0x11
0x1e50…1e97 at0012 = ╱22╱"╱ // 0x1e62 @0x12
0x1e50…1e97 at0013 = ╱32╱2╱ // 0x1e63 @0x13
0x1e50…1e97 at0014 = ╱33╱3╱ // 0x1e64 @0x14
0x1e50…1e97 at0015 = ╱2e╱.╱ // 0x1e65 @0x15
0x1e50…1e97 at0016 = ╱20╱…╱ // 0x1e66 @0x16
0x1e50…1e97 at0017 = ╱4b╱K╱ // 0x1e67 @0x17
0x1e50…1e97 at0018 = ╱6f╱o╱ // 0x1e68 @0x18
0x1e50…1e97 at0019 = ╱6e╱n╱ // 0x1e69 @0x19
0x1e50…1e97 at001a = ╱74╱t╱ // 0x1e6a @0x1a
0x1e50…1e97 at001b = ╱6f╱o╱ // 0x1e6b @0x1b
0x1e50…1e97 at001c = ╱67╱g╱ // 0x1e6c @0x1c
0x1e50…1e97 at001d = ╱72╱r╱ // 0x1e6d @0x1d
0x1e50…1e97 at001e = ╱75╱u╱ // 0x1e6e @0x1e
0x1e50…1e97 at001f = ╱70╱p╱ // 0x1e6f @0x1f
0x1e50…1e97 at0020 = ╱70╱p╱ // 0x1e70 @0x20
0x1e50…1e97 at0021 = ╱65╱e╱ // 0x1e71 @0x21
0x1e50…1e97 at0022 = ╱20╱…╱ // 0x1e72 @0x22
0x1e50…1e97 at0023 = ╱66╱f╱ // 0x1e73 @0x23
0x1e50…1e97 at0024 = ╱6f╱o╱ // 0x1e74 @0x24
0x1e50…1e97 at0025 = ╱72╱r╱ // 0x1e75 @0x25
0x1e50…1e97 at0026 = ╱20╱…╱ // 0x1e76 @0x26
0x1e50…1e97 at0027 = ╱70╱p╱ // 0x1e77 @0x27
0x1e50…1e97 at0028 = ╱65╱e╱ // 0x1e78 @0x28
0x1e50…1e97 at0029 = ╱72╱r╱ // 0x1e79 @0x29
0x1e50…1e97 at002a = ╱73╱s╱ // 0x1e7a @0x2a
0x1e50…1e97 at002b = ╱6f╱o╱ // 0x1e7b @0x2b
0x1e50…1e97 at002c = ╱6e╱n╱ // 0x1e7c @0x2c
0x1e50…1e97 at002d = ╱61╱a╱ // 0x1e7d @0x2d
0x1e50…1e97 at002e = ╱6c╱l╱ // 0x1e7e @0x2e
0x1e50…1e97 at002f = ╱65╱e╱ // 0x1e7f @0x2f
0x1e50…1e97 at0030 = ╱20╱…╱ // 0x1e80 @0x30
0x1e50…1e97 at0031 = ╱6f╱o╱ // 0x1e81 @0x31
0x1e50…1e97 at0032 = ╱6d╱m╱ // 0x1e82 @0x32
0x1e50…1e97 at0033 = ╱6b╱k╱ // 0x1e83 @0x33
0x1e50…1e97 at0034 = ╱6f╱o╱ // 0x1e84 @0x34
0x1e50…1e97 at0035 = ╱73╱s╱ // 0x1e85 @0x35
0x1e50…1e97 at0036 = ╱74╱t╱ // 0x1e86 @0x36
0x1e50…1e97 at0037 = ╱6e╱n╱ // 0x1e87 @0x37
0x1e50…1e97 at0038 = ╱69╱i╱ // 0x1e88 @0x38
0x1e50…1e97 at0039 = ╱6e╱n╱ // 0x1e89 @0x39
0x1e50…1e97 at003a = ╱67╱g╱ // 0x1e8a @0x3a
0x1e50…1e97 at003b = ╱65╱e╱ // 0x1e8b @0x3b
0x1e50…1e97 at003c = ╱72╱r╱ // 0x1e8c @0x3c
0x1e50…1e97 at003d = ╱3a╱:╱ // 0x1e8d @0x3d
0x1e50…1e97 at003e = ╱20╱…╱ // 0x1e8e @0x3e
0x1e50…1e97 at003f = ╱22╱"╱ // 0x1e8f @0x3f
0x1e50…1e97 at0040 = ╱ec╱ , ╱ // 0x1e90 @0x40
0x1e50…1e97 at0041 = ╱34╱4╱ // 0x1e91 @0x41
0x1e50…1e97 at0042 = ╱f20400╱ // 0x1e92 @0x42
0x1e50…1e97 at0045 = ╱ee╱ ) ╱ // 0x1e95 @0x45
0x1e50…1e97 at0046 = EOL // 0x1e96 @0x46
0x1e50…1e97 }
0x1e97…1ea4 b492 02680 WHILE 24
0x1e97…1ea4 LineComal80 {
0x1e97…1ea4 ptr = 0xb492 // 0x1e97 @0x0
0x1e97…1ea4 lno = 0x0a78 // 0x1e99 @0x2
0x1e97…1ea4 at0004 = ╱a40001╱ WHILE ╱ // 0x1e9b @0x4
0x1e97…1ea4 at0007 = ╱32╱2╱ // 0x1e9e @0x7
0x1e97…1ea4 at0008 = ╱34╱4╱ // 0x1e9f @0x8
0x1e97…1ea4 at0009 = ╱f21800╱ // 0x1ea0 @0x9
0x1e97…1ea4 at000c = EOL // 0x1ea3 @0xc
0x1e97…1ea4 }
0x1ea4…1ee2 b4d0 02690 EXEC [NDRE_KTOGRP ( "24.…Kontogruppe…for…afskrivninger:…" , 5 )
0x1ea4…1ee2 LineComal80 {
0x1ea4…1ee2 ptr = 0xb4d0 // 0x1ea4 @0x0
0x1ea4…1ee2 lno = 0x0a82 // 0x1ea6 @0x2
0x1ea4…1ee2 at0004 = ╱9d╱ EXEC ╱ // 0x1ea8 @0x4
0x1ea4…1ee2 at0005 = ╱5b╱[╱ // 0x1ea9 @0x5
0x1ea4…1ee2 at0006 = ╱4e╱N╱ // 0x1eaa @0x6
0x1ea4…1ee2 at0007 = ╱44╱D╱ // 0x1eab @0x7
0x1ea4…1ee2 at0008 = ╱52╱R╱ // 0x1eac @0x8
0x1ea4…1ee2 at0009 = ╱45╱E╱ // 0x1ead @0x9
0x1ea4…1ee2 at000a = ╱5f╱_╱ // 0x1eae @0xa
0x1ea4…1ee2 at000b = ╱4b╱K╱ // 0x1eaf @0xb
0x1ea4…1ee2 at000c = ╱54╱T╱ // 0x1eb0 @0xc
0x1ea4…1ee2 at000d = ╱4f╱O╱ // 0x1eb1 @0xd
0x1ea4…1ee2 at000e = ╱47╱G╱ // 0x1eb2 @0xe
0x1ea4…1ee2 at000f = ╱52╱R╱ // 0x1eb3 @0xf
0x1ea4…1ee2 at0010 = ╱50╱P╱ // 0x1eb4 @0x10
0x1ea4…1ee2 at0011 = ╱ed╱ ( ╱ // 0x1eb5 @0x11
0x1ea4…1ee2 at0012 = ╱22╱"╱ // 0x1eb6 @0x12
0x1ea4…1ee2 at0013 = ╱32╱2╱ // 0x1eb7 @0x13
0x1ea4…1ee2 at0014 = ╱34╱4╱ // 0x1eb8 @0x14
0x1ea4…1ee2 at0015 = ╱2e╱.╱ // 0x1eb9 @0x15
0x1ea4…1ee2 at0016 = ╱20╱…╱ // 0x1eba @0x16
0x1ea4…1ee2 at0017 = ╱4b╱K╱ // 0x1ebb @0x17
0x1ea4…1ee2 at0018 = ╱6f╱o╱ // 0x1ebc @0x18
0x1ea4…1ee2 at0019 = ╱6e╱n╱ // 0x1ebd @0x19
0x1ea4…1ee2 at001a = ╱74╱t╱ // 0x1ebe @0x1a
0x1ea4…1ee2 at001b = ╱6f╱o╱ // 0x1ebf @0x1b
0x1ea4…1ee2 at001c = ╱67╱g╱ // 0x1ec0 @0x1c
0x1ea4…1ee2 at001d = ╱72╱r╱ // 0x1ec1 @0x1d
0x1ea4…1ee2 at001e = ╱75╱u╱ // 0x1ec2 @0x1e
0x1ea4…1ee2 at001f = ╱70╱p╱ // 0x1ec3 @0x1f
0x1ea4…1ee2 at0020 = ╱70╱p╱ // 0x1ec4 @0x20
0x1ea4…1ee2 at0021 = ╱65╱e╱ // 0x1ec5 @0x21
0x1ea4…1ee2 at0022 = ╱20╱…╱ // 0x1ec6 @0x22
0x1ea4…1ee2 at0023 = ╱66╱f╱ // 0x1ec7 @0x23
0x1ea4…1ee2 at0024 = ╱6f╱o╱ // 0x1ec8 @0x24
0x1ea4…1ee2 at0025 = ╱72╱r╱ // 0x1ec9 @0x25
0x1ea4…1ee2 at0026 = ╱20╱…╱ // 0x1eca @0x26
0x1ea4…1ee2 at0027 = ╱61╱a╱ // 0x1ecb @0x27
0x1ea4…1ee2 at0028 = ╱66╱f╱ // 0x1ecc @0x28
0x1ea4…1ee2 at0029 = ╱73╱s╱ // 0x1ecd @0x29
0x1ea4…1ee2 at002a = ╱6b╱k╱ // 0x1ece @0x2a
0x1ea4…1ee2 at002b = ╱72╱r╱ // 0x1ecf @0x2b
0x1ea4…1ee2 at002c = ╱69╱i╱ // 0x1ed0 @0x2c
0x1ea4…1ee2 at002d = ╱76╱v╱ // 0x1ed1 @0x2d
0x1ea4…1ee2 at002e = ╱6e╱n╱ // 0x1ed2 @0x2e
0x1ea4…1ee2 at002f = ╱69╱i╱ // 0x1ed3 @0x2f
0x1ea4…1ee2 at0030 = ╱6e╱n╱ // 0x1ed4 @0x30
0x1ea4…1ee2 at0031 = ╱67╱g╱ // 0x1ed5 @0x31
0x1ea4…1ee2 at0032 = ╱65╱e╱ // 0x1ed6 @0x32
0x1ea4…1ee2 at0033 = ╱72╱r╱ // 0x1ed7 @0x33
0x1ea4…1ee2 at0034 = ╱3a╱:╱ // 0x1ed8 @0x34
0x1ea4…1ee2 at0035 = ╱20╱…╱ // 0x1ed9 @0x35
0x1ea4…1ee2 at0036 = ╱22╱"╱ // 0x1eda @0x36
0x1ea4…1ee2 at0037 = ╱ec╱ , ╱ // 0x1edb @0x37
0x1ea4…1ee2 at0038 = ╱35╱5╱ // 0x1edc @0x38
0x1ea4…1ee2 at0039 = ╱f20500╱ // 0x1edd @0x39
0x1ea4…1ee2 at003c = ╱ee╱ ) ╱ // 0x1ee0 @0x3c
0x1ea4…1ee2 at003d = EOL // 0x1ee1 @0x3d
0x1ea4…1ee2 }
0x1ee2…1eef b4dd 02700 WHILE 25
0x1ee2…1eef LineComal80 {
0x1ee2…1eef ptr = 0xb4dd // 0x1ee2 @0x0
0x1ee2…1eef lno = 0x0a8c // 0x1ee4 @0x2
0x1ee2…1eef at0004 = ╱a40001╱ WHILE ╱ // 0x1ee6 @0x4
0x1ee2…1eef at0007 = ╱32╱2╱ // 0x1ee9 @0x7
0x1ee2…1eef at0008 = ╱35╱5╱ // 0x1eea @0x8
0x1ee2…1eef at0009 = ╱f21900╱ // 0x1eeb @0x9
0x1ee2…1eef at000c = EOL // 0x1eee @0xc
0x1ee2…1eef }
0x1eef…1f36 b524 02710 EXEC [NDRE_KTOGRP ( "25.…Kontogruppe…for…finansieringsindt{gter:…" , 6 )
0x1eef…1f36 LineComal80 {
0x1eef…1f36 ptr = 0xb524 // 0x1eef @0x0
0x1eef…1f36 lno = 0x0a96 // 0x1ef1 @0x2
0x1eef…1f36 at0004 = ╱9d╱ EXEC ╱ // 0x1ef3 @0x4
0x1eef…1f36 at0005 = ╱5b╱[╱ // 0x1ef4 @0x5
0x1eef…1f36 at0006 = ╱4e╱N╱ // 0x1ef5 @0x6
0x1eef…1f36 at0007 = ╱44╱D╱ // 0x1ef6 @0x7
0x1eef…1f36 at0008 = ╱52╱R╱ // 0x1ef7 @0x8
0x1eef…1f36 at0009 = ╱45╱E╱ // 0x1ef8 @0x9
0x1eef…1f36 at000a = ╱5f╱_╱ // 0x1ef9 @0xa
0x1eef…1f36 at000b = ╱4b╱K╱ // 0x1efa @0xb
0x1eef…1f36 at000c = ╱54╱T╱ // 0x1efb @0xc
0x1eef…1f36 at000d = ╱4f╱O╱ // 0x1efc @0xd
0x1eef…1f36 at000e = ╱47╱G╱ // 0x1efd @0xe
0x1eef…1f36 at000f = ╱52╱R╱ // 0x1efe @0xf
0x1eef…1f36 at0010 = ╱50╱P╱ // 0x1eff @0x10
0x1eef…1f36 at0011 = ╱ed╱ ( ╱ // 0x1f00 @0x11
0x1eef…1f36 at0012 = ╱22╱"╱ // 0x1f01 @0x12
0x1eef…1f36 at0013 = ╱32╱2╱ // 0x1f02 @0x13
0x1eef…1f36 at0014 = ╱35╱5╱ // 0x1f03 @0x14
0x1eef…1f36 at0015 = ╱2e╱.╱ // 0x1f04 @0x15
0x1eef…1f36 at0016 = ╱20╱…╱ // 0x1f05 @0x16
0x1eef…1f36 at0017 = ╱4b╱K╱ // 0x1f06 @0x17
0x1eef…1f36 at0018 = ╱6f╱o╱ // 0x1f07 @0x18
0x1eef…1f36 at0019 = ╱6e╱n╱ // 0x1f08 @0x19
0x1eef…1f36 at001a = ╱74╱t╱ // 0x1f09 @0x1a
0x1eef…1f36 at001b = ╱6f╱o╱ // 0x1f0a @0x1b
0x1eef…1f36 at001c = ╱67╱g╱ // 0x1f0b @0x1c
0x1eef…1f36 at001d = ╱72╱r╱ // 0x1f0c @0x1d
0x1eef…1f36 at001e = ╱75╱u╱ // 0x1f0d @0x1e
0x1eef…1f36 at001f = ╱70╱p╱ // 0x1f0e @0x1f
0x1eef…1f36 at0020 = ╱70╱p╱ // 0x1f0f @0x20
0x1eef…1f36 at0021 = ╱65╱e╱ // 0x1f10 @0x21
0x1eef…1f36 at0022 = ╱20╱…╱ // 0x1f11 @0x22
0x1eef…1f36 at0023 = ╱66╱f╱ // 0x1f12 @0x23
0x1eef…1f36 at0024 = ╱6f╱o╱ // 0x1f13 @0x24
0x1eef…1f36 at0025 = ╱72╱r╱ // 0x1f14 @0x25
0x1eef…1f36 at0026 = ╱20╱…╱ // 0x1f15 @0x26
0x1eef…1f36 at0027 = ╱66╱f╱ // 0x1f16 @0x27
0x1eef…1f36 at0028 = ╱69╱i╱ // 0x1f17 @0x28
0x1eef…1f36 at0029 = ╱6e╱n╱ // 0x1f18 @0x29
0x1eef…1f36 at002a = ╱61╱a╱ // 0x1f19 @0x2a
0x1eef…1f36 at002b = ╱6e╱n╱ // 0x1f1a @0x2b
0x1eef…1f36 at002c = ╱73╱s╱ // 0x1f1b @0x2c
0x1eef…1f36 at002d = ╱69╱i╱ // 0x1f1c @0x2d
0x1eef…1f36 at002e = ╱65╱e╱ // 0x1f1d @0x2e
0x1eef…1f36 at002f = ╱72╱r╱ // 0x1f1e @0x2f
0x1eef…1f36 at0030 = ╱69╱i╱ // 0x1f1f @0x30
0x1eef…1f36 at0031 = ╱6e╱n╱ // 0x1f20 @0x31
0x1eef…1f36 at0032 = ╱67╱g╱ // 0x1f21 @0x32
0x1eef…1f36 at0033 = ╱73╱s╱ // 0x1f22 @0x33
0x1eef…1f36 at0034 = ╱69╱i╱ // 0x1f23 @0x34
0x1eef…1f36 at0035 = ╱6e╱n╱ // 0x1f24 @0x35
0x1eef…1f36 at0036 = ╱64╱d╱ // 0x1f25 @0x36
0x1eef…1f36 at0037 = ╱74╱t╱ // 0x1f26 @0x37
0x1eef…1f36 at0038 = ╱7b╱{╱ // 0x1f27 @0x38
0x1eef…1f36 at0039 = ╱67╱g╱ // 0x1f28 @0x39
0x1eef…1f36 at003a = ╱74╱t╱ // 0x1f29 @0x3a
0x1eef…1f36 at003b = ╱65╱e╱ // 0x1f2a @0x3b
0x1eef…1f36 at003c = ╱72╱r╱ // 0x1f2b @0x3c
0x1eef…1f36 at003d = ╱3a╱:╱ // 0x1f2c @0x3d
0x1eef…1f36 at003e = ╱20╱…╱ // 0x1f2d @0x3e
0x1eef…1f36 at003f = ╱22╱"╱ // 0x1f2e @0x3f
0x1eef…1f36 at0040 = ╱ec╱ , ╱ // 0x1f2f @0x40
0x1eef…1f36 at0041 = ╱36╱6╱ // 0x1f30 @0x41
0x1eef…1f36 at0042 = ╱f20600╱ // 0x1f31 @0x42
0x1eef…1f36 at0045 = ╱ee╱ ) ╱ // 0x1f34 @0x45
0x1eef…1f36 at0046 = EOL // 0x1f35 @0x46
0x1eef…1f36 }
0x1f36…1f43 b531 02720 WHILE 26
0x1f36…1f43 LineComal80 {
0x1f36…1f43 ptr = 0xb531 // 0x1f36 @0x0
0x1f36…1f43 lno = 0x0aa0 // 0x1f38 @0x2
0x1f36…1f43 at0004 = ╱a40001╱ WHILE ╱ // 0x1f3a @0x4
0x1f36…1f43 at0007 = ╱32╱2╱ // 0x1f3d @0x7
0x1f36…1f43 at0008 = ╱36╱6╱ // 0x1f3e @0x8
0x1f36…1f43 at0009 = ╱f21a00╱ // 0x1f3f @0x9
0x1f36…1f43 at000c = EOL // 0x1f42 @0xc
0x1f36…1f43 }
0x1f43…1f85 b573 02730 EXEC [NDRE_KTOGRP ( "26.…Kontogruppe…for…finansieringsomk.:…" , 7 )
0x1f43…1f85 LineComal80 {
0x1f43…1f85 ptr = 0xb573 // 0x1f43 @0x0
0x1f43…1f85 lno = 0x0aaa // 0x1f45 @0x2
0x1f43…1f85 at0004 = ╱9d╱ EXEC ╱ // 0x1f47 @0x4
0x1f43…1f85 at0005 = ╱5b╱[╱ // 0x1f48 @0x5
0x1f43…1f85 at0006 = ╱4e╱N╱ // 0x1f49 @0x6
0x1f43…1f85 at0007 = ╱44╱D╱ // 0x1f4a @0x7
0x1f43…1f85 at0008 = ╱52╱R╱ // 0x1f4b @0x8
0x1f43…1f85 at0009 = ╱45╱E╱ // 0x1f4c @0x9
0x1f43…1f85 at000a = ╱5f╱_╱ // 0x1f4d @0xa
0x1f43…1f85 at000b = ╱4b╱K╱ // 0x1f4e @0xb
0x1f43…1f85 at000c = ╱54╱T╱ // 0x1f4f @0xc
0x1f43…1f85 at000d = ╱4f╱O╱ // 0x1f50 @0xd
0x1f43…1f85 at000e = ╱47╱G╱ // 0x1f51 @0xe
0x1f43…1f85 at000f = ╱52╱R╱ // 0x1f52 @0xf
0x1f43…1f85 at0010 = ╱50╱P╱ // 0x1f53 @0x10
0x1f43…1f85 at0011 = ╱ed╱ ( ╱ // 0x1f54 @0x11
0x1f43…1f85 at0012 = ╱22╱"╱ // 0x1f55 @0x12
0x1f43…1f85 at0013 = ╱32╱2╱ // 0x1f56 @0x13
0x1f43…1f85 at0014 = ╱36╱6╱ // 0x1f57 @0x14
0x1f43…1f85 at0015 = ╱2e╱.╱ // 0x1f58 @0x15
0x1f43…1f85 at0016 = ╱20╱…╱ // 0x1f59 @0x16
0x1f43…1f85 at0017 = ╱4b╱K╱ // 0x1f5a @0x17
0x1f43…1f85 at0018 = ╱6f╱o╱ // 0x1f5b @0x18
0x1f43…1f85 at0019 = ╱6e╱n╱ // 0x1f5c @0x19
0x1f43…1f85 at001a = ╱74╱t╱ // 0x1f5d @0x1a
0x1f43…1f85 at001b = ╱6f╱o╱ // 0x1f5e @0x1b
0x1f43…1f85 at001c = ╱67╱g╱ // 0x1f5f @0x1c
0x1f43…1f85 at001d = ╱72╱r╱ // 0x1f60 @0x1d
0x1f43…1f85 at001e = ╱75╱u╱ // 0x1f61 @0x1e
0x1f43…1f85 at001f = ╱70╱p╱ // 0x1f62 @0x1f
0x1f43…1f85 at0020 = ╱70╱p╱ // 0x1f63 @0x20
0x1f43…1f85 at0021 = ╱65╱e╱ // 0x1f64 @0x21
0x1f43…1f85 at0022 = ╱20╱…╱ // 0x1f65 @0x22
0x1f43…1f85 at0023 = ╱66╱f╱ // 0x1f66 @0x23
0x1f43…1f85 at0024 = ╱6f╱o╱ // 0x1f67 @0x24
0x1f43…1f85 at0025 = ╱72╱r╱ // 0x1f68 @0x25
0x1f43…1f85 at0026 = ╱20╱…╱ // 0x1f69 @0x26
0x1f43…1f85 at0027 = ╱66╱f╱ // 0x1f6a @0x27
0x1f43…1f85 at0028 = ╱69╱i╱ // 0x1f6b @0x28
0x1f43…1f85 at0029 = ╱6e╱n╱ // 0x1f6c @0x29
0x1f43…1f85 at002a = ╱61╱a╱ // 0x1f6d @0x2a
0x1f43…1f85 at002b = ╱6e╱n╱ // 0x1f6e @0x2b
0x1f43…1f85 at002c = ╱73╱s╱ // 0x1f6f @0x2c
0x1f43…1f85 at002d = ╱69╱i╱ // 0x1f70 @0x2d
0x1f43…1f85 at002e = ╱65╱e╱ // 0x1f71 @0x2e
0x1f43…1f85 at002f = ╱72╱r╱ // 0x1f72 @0x2f
0x1f43…1f85 at0030 = ╱69╱i╱ // 0x1f73 @0x30
0x1f43…1f85 at0031 = ╱6e╱n╱ // 0x1f74 @0x31
0x1f43…1f85 at0032 = ╱67╱g╱ // 0x1f75 @0x32
0x1f43…1f85 at0033 = ╱73╱s╱ // 0x1f76 @0x33
0x1f43…1f85 at0034 = ╱6f╱o╱ // 0x1f77 @0x34
0x1f43…1f85 at0035 = ╱6d╱m╱ // 0x1f78 @0x35
0x1f43…1f85 at0036 = ╱6b╱k╱ // 0x1f79 @0x36
0x1f43…1f85 at0037 = ╱2e╱.╱ // 0x1f7a @0x37
0x1f43…1f85 at0038 = ╱3a╱:╱ // 0x1f7b @0x38
0x1f43…1f85 at0039 = ╱20╱…╱ // 0x1f7c @0x39
0x1f43…1f85 at003a = ╱22╱"╱ // 0x1f7d @0x3a
0x1f43…1f85 at003b = ╱ec╱ , ╱ // 0x1f7e @0x3b
0x1f43…1f85 at003c = ╱37╱7╱ // 0x1f7f @0x3c
0x1f43…1f85 at003d = ╱f20700╱ // 0x1f80 @0x3d
0x1f43…1f85 at0040 = ╱ee╱ ) ╱ // 0x1f83 @0x40
0x1f43…1f85 at0041 = EOL // 0x1f84 @0x41
0x1f43…1f85 }
0x1f85…1f92 b580 02740 WHILE 27
0x1f85…1f92 LineComal80 {
0x1f85…1f92 ptr = 0xb580 // 0x1f85 @0x0
0x1f85…1f92 lno = 0x0ab4 // 0x1f87 @0x2
0x1f85…1f92 at0004 = ╱a40001╱ WHILE ╱ // 0x1f89 @0x4
0x1f85…1f92 at0007 = ╱32╱2╱ // 0x1f8c @0x7
0x1f85…1f92 at0008 = ╱37╱7╱ // 0x1f8d @0x8
0x1f85…1f92 at0009 = ╱f21b00╱ // 0x1f8e @0x9
0x1f85…1f92 at000c = EOL // 0x1f91 @0xc
0x1f85…1f92 }
0x1f92…1fd8 b5c6 02750 EXEC [NDRE_KTOGRP ( "27.…Kontogruppe…for…ekstraordin{re…poster:…" , 8 )
0x1f92…1fd8 LineComal80 {
0x1f92…1fd8 ptr = 0xb5c6 // 0x1f92 @0x0
0x1f92…1fd8 lno = 0x0abe // 0x1f94 @0x2
0x1f92…1fd8 at0004 = ╱9d╱ EXEC ╱ // 0x1f96 @0x4
0x1f92…1fd8 at0005 = ╱5b╱[╱ // 0x1f97 @0x5
0x1f92…1fd8 at0006 = ╱4e╱N╱ // 0x1f98 @0x6
0x1f92…1fd8 at0007 = ╱44╱D╱ // 0x1f99 @0x7
0x1f92…1fd8 at0008 = ╱52╱R╱ // 0x1f9a @0x8
0x1f92…1fd8 at0009 = ╱45╱E╱ // 0x1f9b @0x9
0x1f92…1fd8 at000a = ╱5f╱_╱ // 0x1f9c @0xa
0x1f92…1fd8 at000b = ╱4b╱K╱ // 0x1f9d @0xb
0x1f92…1fd8 at000c = ╱54╱T╱ // 0x1f9e @0xc
0x1f92…1fd8 at000d = ╱4f╱O╱ // 0x1f9f @0xd
0x1f92…1fd8 at000e = ╱47╱G╱ // 0x1fa0 @0xe
0x1f92…1fd8 at000f = ╱52╱R╱ // 0x1fa1 @0xf
0x1f92…1fd8 at0010 = ╱50╱P╱ // 0x1fa2 @0x10
0x1f92…1fd8 at0011 = ╱ed╱ ( ╱ // 0x1fa3 @0x11
0x1f92…1fd8 at0012 = ╱22╱"╱ // 0x1fa4 @0x12
0x1f92…1fd8 at0013 = ╱32╱2╱ // 0x1fa5 @0x13
0x1f92…1fd8 at0014 = ╱37╱7╱ // 0x1fa6 @0x14
0x1f92…1fd8 at0015 = ╱2e╱.╱ // 0x1fa7 @0x15
0x1f92…1fd8 at0016 = ╱20╱…╱ // 0x1fa8 @0x16
0x1f92…1fd8 at0017 = ╱4b╱K╱ // 0x1fa9 @0x17
0x1f92…1fd8 at0018 = ╱6f╱o╱ // 0x1faa @0x18
0x1f92…1fd8 at0019 = ╱6e╱n╱ // 0x1fab @0x19
0x1f92…1fd8 at001a = ╱74╱t╱ // 0x1fac @0x1a
0x1f92…1fd8 at001b = ╱6f╱o╱ // 0x1fad @0x1b
0x1f92…1fd8 at001c = ╱67╱g╱ // 0x1fae @0x1c
0x1f92…1fd8 at001d = ╱72╱r╱ // 0x1faf @0x1d
0x1f92…1fd8 at001e = ╱75╱u╱ // 0x1fb0 @0x1e
0x1f92…1fd8 at001f = ╱70╱p╱ // 0x1fb1 @0x1f
0x1f92…1fd8 at0020 = ╱70╱p╱ // 0x1fb2 @0x20
0x1f92…1fd8 at0021 = ╱65╱e╱ // 0x1fb3 @0x21
0x1f92…1fd8 at0022 = ╱20╱…╱ // 0x1fb4 @0x22
0x1f92…1fd8 at0023 = ╱66╱f╱ // 0x1fb5 @0x23
0x1f92…1fd8 at0024 = ╱6f╱o╱ // 0x1fb6 @0x24
0x1f92…1fd8 at0025 = ╱72╱r╱ // 0x1fb7 @0x25
0x1f92…1fd8 at0026 = ╱20╱…╱ // 0x1fb8 @0x26
0x1f92…1fd8 at0027 = ╱65╱e╱ // 0x1fb9 @0x27
0x1f92…1fd8 at0028 = ╱6b╱k╱ // 0x1fba @0x28
0x1f92…1fd8 at0029 = ╱73╱s╱ // 0x1fbb @0x29
0x1f92…1fd8 at002a = ╱74╱t╱ // 0x1fbc @0x2a
0x1f92…1fd8 at002b = ╱72╱r╱ // 0x1fbd @0x2b
0x1f92…1fd8 at002c = ╱61╱a╱ // 0x1fbe @0x2c
0x1f92…1fd8 at002d = ╱6f╱o╱ // 0x1fbf @0x2d
0x1f92…1fd8 at002e = ╱72╱r╱ // 0x1fc0 @0x2e
0x1f92…1fd8 at002f = ╱64╱d╱ // 0x1fc1 @0x2f
0x1f92…1fd8 at0030 = ╱69╱i╱ // 0x1fc2 @0x30
0x1f92…1fd8 at0031 = ╱6e╱n╱ // 0x1fc3 @0x31
0x1f92…1fd8 at0032 = ╱7b╱{╱ // 0x1fc4 @0x32
0x1f92…1fd8 at0033 = ╱72╱r╱ // 0x1fc5 @0x33
0x1f92…1fd8 at0034 = ╱65╱e╱ // 0x1fc6 @0x34
0x1f92…1fd8 at0035 = ╱20╱…╱ // 0x1fc7 @0x35
0x1f92…1fd8 at0036 = ╱70╱p╱ // 0x1fc8 @0x36
0x1f92…1fd8 at0037 = ╱6f╱o╱ // 0x1fc9 @0x37
0x1f92…1fd8 at0038 = ╱73╱s╱ // 0x1fca @0x38
0x1f92…1fd8 at0039 = ╱74╱t╱ // 0x1fcb @0x39
0x1f92…1fd8 at003a = ╱65╱e╱ // 0x1fcc @0x3a
0x1f92…1fd8 at003b = ╱72╱r╱ // 0x1fcd @0x3b
0x1f92…1fd8 at003c = ╱3a╱:╱ // 0x1fce @0x3c
0x1f92…1fd8 at003d = ╱20╱…╱ // 0x1fcf @0x3d
0x1f92…1fd8 at003e = ╱22╱"╱ // 0x1fd0 @0x3e
0x1f92…1fd8 at003f = ╱ec╱ , ╱ // 0x1fd1 @0x3f
0x1f92…1fd8 at0040 = ╱38╱8╱ // 0x1fd2 @0x40
0x1f92…1fd8 at0041 = ╱f20800╱ // 0x1fd3 @0x41
0x1f92…1fd8 at0044 = ╱ee╱ ) ╱ // 0x1fd6 @0x44
0x1f92…1fd8 at0045 = EOL // 0x1fd7 @0x45
0x1f92…1fd8 }
0x1fd8…1fe5 b5d3 02760 WHILE 28
0x1fd8…1fe5 LineComal80 {
0x1fd8…1fe5 ptr = 0xb5d3 // 0x1fd8 @0x0
0x1fd8…1fe5 lno = 0x0ac8 // 0x1fda @0x2
0x1fd8…1fe5 at0004 = ╱a40001╱ WHILE ╱ // 0x1fdc @0x4
0x1fd8…1fe5 at0007 = ╱32╱2╱ // 0x1fdf @0x7
0x1fd8…1fe5 at0008 = ╱38╱8╱ // 0x1fe0 @0x8
0x1fd8…1fe5 at0009 = ╱f21c00╱ // 0x1fe1 @0x9
0x1fd8…1fe5 at000c = EOL // 0x1fe4 @0xc
0x1fd8…1fe5 }
0x1fe5…2023 b611 02770 EXEC [NDRE_KTOGRP ( "28.…Kontogruppe…for…anl{gsaktiver:…" , 9 )
0x1fe5…2023 LineComal80 {
0x1fe5…2023 ptr = 0xb611 // 0x1fe5 @0x0
0x1fe5…2023 lno = 0x0ad2 // 0x1fe7 @0x2
0x1fe5…2023 at0004 = ╱9d╱ EXEC ╱ // 0x1fe9 @0x4
0x1fe5…2023 at0005 = ╱5b╱[╱ // 0x1fea @0x5
0x1fe5…2023 at0006 = ╱4e╱N╱ // 0x1feb @0x6
0x1fe5…2023 at0007 = ╱44╱D╱ // 0x1fec @0x7
0x1fe5…2023 at0008 = ╱52╱R╱ // 0x1fed @0x8
0x1fe5…2023 at0009 = ╱45╱E╱ // 0x1fee @0x9
0x1fe5…2023 at000a = ╱5f╱_╱ // 0x1fef @0xa
0x1fe5…2023 at000b = ╱4b╱K╱ // 0x1ff0 @0xb
0x1fe5…2023 at000c = ╱54╱T╱ // 0x1ff1 @0xc
0x1fe5…2023 at000d = ╱4f╱O╱ // 0x1ff2 @0xd
0x1fe5…2023 at000e = ╱47╱G╱ // 0x1ff3 @0xe
0x1fe5…2023 at000f = ╱52╱R╱ // 0x1ff4 @0xf
0x1fe5…2023 at0010 = ╱50╱P╱ // 0x1ff5 @0x10
0x1fe5…2023 at0011 = ╱ed╱ ( ╱ // 0x1ff6 @0x11
0x1fe5…2023 at0012 = ╱22╱"╱ // 0x1ff7 @0x12
0x1fe5…2023 at0013 = ╱32╱2╱ // 0x1ff8 @0x13
0x1fe5…2023 at0014 = ╱38╱8╱ // 0x1ff9 @0x14
0x1fe5…2023 at0015 = ╱2e╱.╱ // 0x1ffa @0x15
0x1fe5…2023 at0016 = ╱20╱…╱ // 0x1ffb @0x16
0x1fe5…2023 at0017 = ╱4b╱K╱ // 0x1ffc @0x17
0x1fe5…2023 at0018 = ╱6f╱o╱ // 0x1ffd @0x18
0x1fe5…2023 at0019 = ╱6e╱n╱ // 0x1ffe @0x19
0x1fe5…2023 at001a = ╱74╱t╱ // 0x1fff @0x1a
0x1fe5…2023 at001b = ╱6f╱o╱ // 0x2000 @0x1b
0x1fe5…2023 at001c = ╱67╱g╱ // 0x2001 @0x1c
0x1fe5…2023 at001d = ╱72╱r╱ // 0x2002 @0x1d
0x1fe5…2023 at001e = ╱75╱u╱ // 0x2003 @0x1e
0x1fe5…2023 at001f = ╱70╱p╱ // 0x2004 @0x1f
0x1fe5…2023 at0020 = ╱70╱p╱ // 0x2005 @0x20
0x1fe5…2023 at0021 = ╱65╱e╱ // 0x2006 @0x21
0x1fe5…2023 at0022 = ╱20╱…╱ // 0x2007 @0x22
0x1fe5…2023 at0023 = ╱66╱f╱ // 0x2008 @0x23
0x1fe5…2023 at0024 = ╱6f╱o╱ // 0x2009 @0x24
0x1fe5…2023 at0025 = ╱72╱r╱ // 0x200a @0x25
0x1fe5…2023 at0026 = ╱20╱…╱ // 0x200b @0x26
0x1fe5…2023 at0027 = ╱61╱a╱ // 0x200c @0x27
0x1fe5…2023 at0028 = ╱6e╱n╱ // 0x200d @0x28
0x1fe5…2023 at0029 = ╱6c╱l╱ // 0x200e @0x29
0x1fe5…2023 at002a = ╱7b╱{╱ // 0x200f @0x2a
0x1fe5…2023 at002b = ╱67╱g╱ // 0x2010 @0x2b
0x1fe5…2023 at002c = ╱73╱s╱ // 0x2011 @0x2c
0x1fe5…2023 at002d = ╱61╱a╱ // 0x2012 @0x2d
0x1fe5…2023 at002e = ╱6b╱k╱ // 0x2013 @0x2e
0x1fe5…2023 at002f = ╱74╱t╱ // 0x2014 @0x2f
0x1fe5…2023 at0030 = ╱69╱i╱ // 0x2015 @0x30
0x1fe5…2023 at0031 = ╱76╱v╱ // 0x2016 @0x31
0x1fe5…2023 at0032 = ╱65╱e╱ // 0x2017 @0x32
0x1fe5…2023 at0033 = ╱72╱r╱ // 0x2018 @0x33
0x1fe5…2023 at0034 = ╱3a╱:╱ // 0x2019 @0x34
0x1fe5…2023 at0035 = ╱20╱…╱ // 0x201a @0x35
0x1fe5…2023 at0036 = ╱22╱"╱ // 0x201b @0x36
0x1fe5…2023 at0037 = ╱ec╱ , ╱ // 0x201c @0x37
0x1fe5…2023 at0038 = ╱39╱9╱ // 0x201d @0x38
0x1fe5…2023 at0039 = ╱f20900╱ // 0x201e @0x39
0x1fe5…2023 at003c = ╱ee╱ ) ╱ // 0x2021 @0x3c
0x1fe5…2023 at003d = EOL // 0x2022 @0x3d
0x1fe5…2023 }
0x2023…2030 b61e 02780 WHILE 29
0x2023…2030 LineComal80 {
0x2023…2030 ptr = 0xb61e // 0x2023 @0x0
0x2023…2030 lno = 0x0adc // 0x2025 @0x2
0x2023…2030 at0004 = ╱a40001╱ WHILE ╱ // 0x2027 @0x4
0x2023…2030 at0007 = ╱32╱2╱ // 0x202a @0x7
0x2023…2030 at0008 = ╱39╱9╱ // 0x202b @0x8
0x2023…2030 at0009 = ╱f21d00╱ // 0x202c @0x9
0x2023…2030 at000c = EOL // 0x202f @0xc
0x2023…2030 }
0x2030…2072 b660 02790 EXEC [NDRE_KTOGRP ( "29.…Kontogruppe…for…varebeholdninger:…" , 10 )
0x2030…2072 LineComal80 {
0x2030…2072 ptr = 0xb660 // 0x2030 @0x0
0x2030…2072 lno = 0x0ae6 // 0x2032 @0x2
0x2030…2072 at0004 = ╱9d╱ EXEC ╱ // 0x2034 @0x4
0x2030…2072 at0005 = ╱5b╱[╱ // 0x2035 @0x5
0x2030…2072 at0006 = ╱4e╱N╱ // 0x2036 @0x6
0x2030…2072 at0007 = ╱44╱D╱ // 0x2037 @0x7
0x2030…2072 at0008 = ╱52╱R╱ // 0x2038 @0x8
0x2030…2072 at0009 = ╱45╱E╱ // 0x2039 @0x9
0x2030…2072 at000a = ╱5f╱_╱ // 0x203a @0xa
0x2030…2072 at000b = ╱4b╱K╱ // 0x203b @0xb
0x2030…2072 at000c = ╱54╱T╱ // 0x203c @0xc
0x2030…2072 at000d = ╱4f╱O╱ // 0x203d @0xd
0x2030…2072 at000e = ╱47╱G╱ // 0x203e @0xe
0x2030…2072 at000f = ╱52╱R╱ // 0x203f @0xf
0x2030…2072 at0010 = ╱50╱P╱ // 0x2040 @0x10
0x2030…2072 at0011 = ╱ed╱ ( ╱ // 0x2041 @0x11
0x2030…2072 at0012 = ╱22╱"╱ // 0x2042 @0x12
0x2030…2072 at0013 = ╱32╱2╱ // 0x2043 @0x13
0x2030…2072 at0014 = ╱39╱9╱ // 0x2044 @0x14
0x2030…2072 at0015 = ╱2e╱.╱ // 0x2045 @0x15
0x2030…2072 at0016 = ╱20╱…╱ // 0x2046 @0x16
0x2030…2072 at0017 = ╱4b╱K╱ // 0x2047 @0x17
0x2030…2072 at0018 = ╱6f╱o╱ // 0x2048 @0x18
0x2030…2072 at0019 = ╱6e╱n╱ // 0x2049 @0x19
0x2030…2072 at001a = ╱74╱t╱ // 0x204a @0x1a
0x2030…2072 at001b = ╱6f╱o╱ // 0x204b @0x1b
0x2030…2072 at001c = ╱67╱g╱ // 0x204c @0x1c
0x2030…2072 at001d = ╱72╱r╱ // 0x204d @0x1d
0x2030…2072 at001e = ╱75╱u╱ // 0x204e @0x1e
0x2030…2072 at001f = ╱70╱p╱ // 0x204f @0x1f
0x2030…2072 at0020 = ╱70╱p╱ // 0x2050 @0x20
0x2030…2072 at0021 = ╱65╱e╱ // 0x2051 @0x21
0x2030…2072 at0022 = ╱20╱…╱ // 0x2052 @0x22
0x2030…2072 at0023 = ╱66╱f╱ // 0x2053 @0x23
0x2030…2072 at0024 = ╱6f╱o╱ // 0x2054 @0x24
0x2030…2072 at0025 = ╱72╱r╱ // 0x2055 @0x25
0x2030…2072 at0026 = ╱20╱…╱ // 0x2056 @0x26
0x2030…2072 at0027 = ╱76╱v╱ // 0x2057 @0x27
0x2030…2072 at0028 = ╱61╱a╱ // 0x2058 @0x28
0x2030…2072 at0029 = ╱72╱r╱ // 0x2059 @0x29
0x2030…2072 at002a = ╱65╱e╱ // 0x205a @0x2a
0x2030…2072 at002b = ╱62╱b╱ // 0x205b @0x2b
0x2030…2072 at002c = ╱65╱e╱ // 0x205c @0x2c
0x2030…2072 at002d = ╱68╱h╱ // 0x205d @0x2d
0x2030…2072 at002e = ╱6f╱o╱ // 0x205e @0x2e
0x2030…2072 at002f = ╱6c╱l╱ // 0x205f @0x2f
0x2030…2072 at0030 = ╱64╱d╱ // 0x2060 @0x30
0x2030…2072 at0031 = ╱6e╱n╱ // 0x2061 @0x31
0x2030…2072 at0032 = ╱69╱i╱ // 0x2062 @0x32
0x2030…2072 at0033 = ╱6e╱n╱ // 0x2063 @0x33
0x2030…2072 at0034 = ╱67╱g╱ // 0x2064 @0x34
0x2030…2072 at0035 = ╱65╱e╱ // 0x2065 @0x35
0x2030…2072 at0036 = ╱72╱r╱ // 0x2066 @0x36
0x2030…2072 at0037 = ╱3a╱:╱ // 0x2067 @0x37
0x2030…2072 at0038 = ╱20╱…╱ // 0x2068 @0x38
0x2030…2072 at0039 = ╱22╱"╱ // 0x2069 @0x39
0x2030…2072 at003a = ╱ec╱ , ╱ // 0x206a @0x3a
0x2030…2072 at003b = ╱31╱1╱ // 0x206b @0x3b
0x2030…2072 at003c = ╱30╱0╱ // 0x206c @0x3c
0x2030…2072 at003d = ╱f20a00╱ // 0x206d @0x3d
0x2030…2072 at0040 = ╱ee╱ ) ╱ // 0x2070 @0x40
0x2030…2072 at0041 = EOL // 0x2071 @0x41
0x2030…2072 }
0x2072…207f b66d 02800 WHILE 30
0x2072…207f LineComal80 {
0x2072…207f ptr = 0xb66d // 0x2072 @0x0
0x2072…207f lno = 0x0af0 // 0x2074 @0x2
0x2072…207f at0004 = ╱a40001╱ WHILE ╱ // 0x2076 @0x4
0x2072…207f at0007 = ╱33╱3╱ // 0x2079 @0x7
0x2072…207f at0008 = ╱30╱0╱ // 0x207a @0x8
0x2072…207f at0009 = ╱f21e00╱ // 0x207b @0x9
0x2072…207f at000c = EOL // 0x207e @0xc
0x2072…207f }
0x207f…20c0 b6ae 02810 EXEC [NDRE_KTOGRP ( "30.…Kontogruppe…for…tilgodehavender:…" , 11 )
0x207f…20c0 LineComal80 {
0x207f…20c0 ptr = 0xb6ae // 0x207f @0x0
0x207f…20c0 lno = 0x0afa // 0x2081 @0x2
0x207f…20c0 at0004 = ╱9d╱ EXEC ╱ // 0x2083 @0x4
0x207f…20c0 at0005 = ╱5b╱[╱ // 0x2084 @0x5
0x207f…20c0 at0006 = ╱4e╱N╱ // 0x2085 @0x6
0x207f…20c0 at0007 = ╱44╱D╱ // 0x2086 @0x7
0x207f…20c0 at0008 = ╱52╱R╱ // 0x2087 @0x8
0x207f…20c0 at0009 = ╱45╱E╱ // 0x2088 @0x9
0x207f…20c0 at000a = ╱5f╱_╱ // 0x2089 @0xa
0x207f…20c0 at000b = ╱4b╱K╱ // 0x208a @0xb
0x207f…20c0 at000c = ╱54╱T╱ // 0x208b @0xc
0x207f…20c0 at000d = ╱4f╱O╱ // 0x208c @0xd
0x207f…20c0 at000e = ╱47╱G╱ // 0x208d @0xe
0x207f…20c0 at000f = ╱52╱R╱ // 0x208e @0xf
0x207f…20c0 at0010 = ╱50╱P╱ // 0x208f @0x10
0x207f…20c0 at0011 = ╱ed╱ ( ╱ // 0x2090 @0x11
0x207f…20c0 at0012 = ╱22╱"╱ // 0x2091 @0x12
0x207f…20c0 at0013 = ╱33╱3╱ // 0x2092 @0x13
0x207f…20c0 at0014 = ╱30╱0╱ // 0x2093 @0x14
0x207f…20c0 at0015 = ╱2e╱.╱ // 0x2094 @0x15
0x207f…20c0 at0016 = ╱20╱…╱ // 0x2095 @0x16
0x207f…20c0 at0017 = ╱4b╱K╱ // 0x2096 @0x17
0x207f…20c0 at0018 = ╱6f╱o╱ // 0x2097 @0x18
0x207f…20c0 at0019 = ╱6e╱n╱ // 0x2098 @0x19
0x207f…20c0 at001a = ╱74╱t╱ // 0x2099 @0x1a
0x207f…20c0 at001b = ╱6f╱o╱ // 0x209a @0x1b
0x207f…20c0 at001c = ╱67╱g╱ // 0x209b @0x1c
0x207f…20c0 at001d = ╱72╱r╱ // 0x209c @0x1d
0x207f…20c0 at001e = ╱75╱u╱ // 0x209d @0x1e
0x207f…20c0 at001f = ╱70╱p╱ // 0x209e @0x1f
0x207f…20c0 at0020 = ╱70╱p╱ // 0x209f @0x20
0x207f…20c0 at0021 = ╱65╱e╱ // 0x20a0 @0x21
0x207f…20c0 at0022 = ╱20╱…╱ // 0x20a1 @0x22
0x207f…20c0 at0023 = ╱66╱f╱ // 0x20a2 @0x23
0x207f…20c0 at0024 = ╱6f╱o╱ // 0x20a3 @0x24
0x207f…20c0 at0025 = ╱72╱r╱ // 0x20a4 @0x25
0x207f…20c0 at0026 = ╱20╱…╱ // 0x20a5 @0x26
0x207f…20c0 at0027 = ╱74╱t╱ // 0x20a6 @0x27
0x207f…20c0 at0028 = ╱69╱i╱ // 0x20a7 @0x28
0x207f…20c0 at0029 = ╱6c╱l╱ // 0x20a8 @0x29
0x207f…20c0 at002a = ╱67╱g╱ // 0x20a9 @0x2a
0x207f…20c0 at002b = ╱6f╱o╱ // 0x20aa @0x2b
0x207f…20c0 at002c = ╱64╱d╱ // 0x20ab @0x2c
0x207f…20c0 at002d = ╱65╱e╱ // 0x20ac @0x2d
0x207f…20c0 at002e = ╱68╱h╱ // 0x20ad @0x2e
0x207f…20c0 at002f = ╱61╱a╱ // 0x20ae @0x2f
0x207f…20c0 at0030 = ╱76╱v╱ // 0x20af @0x30
0x207f…20c0 at0031 = ╱65╱e╱ // 0x20b0 @0x31
0x207f…20c0 at0032 = ╱6e╱n╱ // 0x20b1 @0x32
0x207f…20c0 at0033 = ╱64╱d╱ // 0x20b2 @0x33
0x207f…20c0 at0034 = ╱65╱e╱ // 0x20b3 @0x34
0x207f…20c0 at0035 = ╱72╱r╱ // 0x20b4 @0x35
0x207f…20c0 at0036 = ╱3a╱:╱ // 0x20b5 @0x36
0x207f…20c0 at0037 = ╱20╱…╱ // 0x20b6 @0x37
0x207f…20c0 at0038 = ╱22╱"╱ // 0x20b7 @0x38
0x207f…20c0 at0039 = ╱ec╱ , ╱ // 0x20b8 @0x39
0x207f…20c0 at003a = ╱31╱1╱ // 0x20b9 @0x3a
0x207f…20c0 at003b = ╱31╱1╱ // 0x20ba @0x3b
0x207f…20c0 at003c = ╱f20b00╱ // 0x20bb @0x3c
0x207f…20c0 at003f = ╱ee╱ ) ╱ // 0x20be @0x3f
0x207f…20c0 at0040 = EOL // 0x20bf @0x40
0x207f…20c0 }
0x20c0…20cd b6bb 02820 WHILE 31
0x20c0…20cd LineComal80 {
0x20c0…20cd ptr = 0xb6bb // 0x20c0 @0x0
0x20c0…20cd lno = 0x0b04 // 0x20c2 @0x2
0x20c0…20cd at0004 = ╱a40001╱ WHILE ╱ // 0x20c4 @0x4
0x20c0…20cd at0007 = ╱33╱3╱ // 0x20c7 @0x7
0x20c0…20cd at0008 = ╱31╱1╱ // 0x20c8 @0x8
0x20c0…20cd at0009 = ╱f21f00╱ // 0x20c9 @0x9
0x20c0…20cd at000c = EOL // 0x20cc @0xc
0x20c0…20cd }
0x20cd…2108 b6f6 02830 EXEC [NDRE_KTOGRP ( "31.…Kontogruppe…for…debitorer:…" , 12 )
0x20cd…2108 LineComal80 {
0x20cd…2108 ptr = 0xb6f6 // 0x20cd @0x0
0x20cd…2108 lno = 0x0b0e // 0x20cf @0x2
0x20cd…2108 at0004 = ╱9d╱ EXEC ╱ // 0x20d1 @0x4
0x20cd…2108 at0005 = ╱5b╱[╱ // 0x20d2 @0x5
0x20cd…2108 at0006 = ╱4e╱N╱ // 0x20d3 @0x6
0x20cd…2108 at0007 = ╱44╱D╱ // 0x20d4 @0x7
0x20cd…2108 at0008 = ╱52╱R╱ // 0x20d5 @0x8
0x20cd…2108 at0009 = ╱45╱E╱ // 0x20d6 @0x9
0x20cd…2108 at000a = ╱5f╱_╱ // 0x20d7 @0xa
0x20cd…2108 at000b = ╱4b╱K╱ // 0x20d8 @0xb
0x20cd…2108 at000c = ╱54╱T╱ // 0x20d9 @0xc
0x20cd…2108 at000d = ╱4f╱O╱ // 0x20da @0xd
0x20cd…2108 at000e = ╱47╱G╱ // 0x20db @0xe
0x20cd…2108 at000f = ╱52╱R╱ // 0x20dc @0xf
0x20cd…2108 at0010 = ╱50╱P╱ // 0x20dd @0x10
0x20cd…2108 at0011 = ╱ed╱ ( ╱ // 0x20de @0x11
0x20cd…2108 at0012 = ╱22╱"╱ // 0x20df @0x12
0x20cd…2108 at0013 = ╱33╱3╱ // 0x20e0 @0x13
0x20cd…2108 at0014 = ╱31╱1╱ // 0x20e1 @0x14
0x20cd…2108 at0015 = ╱2e╱.╱ // 0x20e2 @0x15
0x20cd…2108 at0016 = ╱20╱…╱ // 0x20e3 @0x16
0x20cd…2108 at0017 = ╱4b╱K╱ // 0x20e4 @0x17
0x20cd…2108 at0018 = ╱6f╱o╱ // 0x20e5 @0x18
0x20cd…2108 at0019 = ╱6e╱n╱ // 0x20e6 @0x19
0x20cd…2108 at001a = ╱74╱t╱ // 0x20e7 @0x1a
0x20cd…2108 at001b = ╱6f╱o╱ // 0x20e8 @0x1b
0x20cd…2108 at001c = ╱67╱g╱ // 0x20e9 @0x1c
0x20cd…2108 at001d = ╱72╱r╱ // 0x20ea @0x1d
0x20cd…2108 at001e = ╱75╱u╱ // 0x20eb @0x1e
0x20cd…2108 at001f = ╱70╱p╱ // 0x20ec @0x1f
0x20cd…2108 at0020 = ╱70╱p╱ // 0x20ed @0x20
0x20cd…2108 at0021 = ╱65╱e╱ // 0x20ee @0x21
0x20cd…2108 at0022 = ╱20╱…╱ // 0x20ef @0x22
0x20cd…2108 at0023 = ╱66╱f╱ // 0x20f0 @0x23
0x20cd…2108 at0024 = ╱6f╱o╱ // 0x20f1 @0x24
0x20cd…2108 at0025 = ╱72╱r╱ // 0x20f2 @0x25
0x20cd…2108 at0026 = ╱20╱…╱ // 0x20f3 @0x26
0x20cd…2108 at0027 = ╱64╱d╱ // 0x20f4 @0x27
0x20cd…2108 at0028 = ╱65╱e╱ // 0x20f5 @0x28
0x20cd…2108 at0029 = ╱62╱b╱ // 0x20f6 @0x29
0x20cd…2108 at002a = ╱69╱i╱ // 0x20f7 @0x2a
0x20cd…2108 at002b = ╱74╱t╱ // 0x20f8 @0x2b
0x20cd…2108 at002c = ╱6f╱o╱ // 0x20f9 @0x2c
0x20cd…2108 at002d = ╱72╱r╱ // 0x20fa @0x2d
0x20cd…2108 at002e = ╱65╱e╱ // 0x20fb @0x2e
0x20cd…2108 at002f = ╱72╱r╱ // 0x20fc @0x2f
0x20cd…2108 at0030 = ╱3a╱:╱ // 0x20fd @0x30
0x20cd…2108 at0031 = ╱20╱…╱ // 0x20fe @0x31
0x20cd…2108 at0032 = ╱22╱"╱ // 0x20ff @0x32
0x20cd…2108 at0033 = ╱ec╱ , ╱ // 0x2100 @0x33
0x20cd…2108 at0034 = ╱31╱1╱ // 0x2101 @0x34
0x20cd…2108 at0035 = ╱32╱2╱ // 0x2102 @0x35
0x20cd…2108 at0036 = ╱f20c00╱ // 0x2103 @0x36
0x20cd…2108 at0039 = ╱ee╱ ) ╱ // 0x2106 @0x39
0x20cd…2108 at003a = EOL // 0x2107 @0x3a
0x20cd…2108 }
0x2108…2115 b703 02840 WHILE 32
0x2108…2115 LineComal80 {
0x2108…2115 ptr = 0xb703 // 0x2108 @0x0
0x2108…2115 lno = 0x0b18 // 0x210a @0x2
0x2108…2115 at0004 = ╱a40001╱ WHILE ╱ // 0x210c @0x4
0x2108…2115 at0007 = ╱33╱3╱ // 0x210f @0x7
0x2108…2115 at0008 = ╱32╱2╱ // 0x2110 @0x8
0x2108…2115 at0009 = ╱f22000╱ // 0x2111 @0x9
0x2108…2115 at000c = EOL // 0x2114 @0xc
0x2108…2115 }
0x2115…2160 b74e 02850 EXEC [NDRE_KTOGRP ( "32.…Kontogruppe…for…likvide…beholdninger…m.v.:…" , 13 )
0x2115…2160 LineComal80 {
0x2115…2160 ptr = 0xb74e // 0x2115 @0x0
0x2115…2160 lno = 0x0b22 // 0x2117 @0x2
0x2115…2160 at0004 = ╱9d╱ EXEC ╱ // 0x2119 @0x4
0x2115…2160 at0005 = ╱5b╱[╱ // 0x211a @0x5
0x2115…2160 at0006 = ╱4e╱N╱ // 0x211b @0x6
0x2115…2160 at0007 = ╱44╱D╱ // 0x211c @0x7
0x2115…2160 at0008 = ╱52╱R╱ // 0x211d @0x8
0x2115…2160 at0009 = ╱45╱E╱ // 0x211e @0x9
0x2115…2160 at000a = ╱5f╱_╱ // 0x211f @0xa
0x2115…2160 at000b = ╱4b╱K╱ // 0x2120 @0xb
0x2115…2160 at000c = ╱54╱T╱ // 0x2121 @0xc
0x2115…2160 at000d = ╱4f╱O╱ // 0x2122 @0xd
0x2115…2160 at000e = ╱47╱G╱ // 0x2123 @0xe
0x2115…2160 at000f = ╱52╱R╱ // 0x2124 @0xf
0x2115…2160 at0010 = ╱50╱P╱ // 0x2125 @0x10
0x2115…2160 at0011 = ╱ed╱ ( ╱ // 0x2126 @0x11
0x2115…2160 at0012 = ╱22╱"╱ // 0x2127 @0x12
0x2115…2160 at0013 = ╱33╱3╱ // 0x2128 @0x13
0x2115…2160 at0014 = ╱32╱2╱ // 0x2129 @0x14
0x2115…2160 at0015 = ╱2e╱.╱ // 0x212a @0x15
0x2115…2160 at0016 = ╱20╱…╱ // 0x212b @0x16
0x2115…2160 at0017 = ╱4b╱K╱ // 0x212c @0x17
0x2115…2160 at0018 = ╱6f╱o╱ // 0x212d @0x18
0x2115…2160 at0019 = ╱6e╱n╱ // 0x212e @0x19
0x2115…2160 at001a = ╱74╱t╱ // 0x212f @0x1a
0x2115…2160 at001b = ╱6f╱o╱ // 0x2130 @0x1b
0x2115…2160 at001c = ╱67╱g╱ // 0x2131 @0x1c
0x2115…2160 at001d = ╱72╱r╱ // 0x2132 @0x1d
0x2115…2160 at001e = ╱75╱u╱ // 0x2133 @0x1e
0x2115…2160 at001f = ╱70╱p╱ // 0x2134 @0x1f
0x2115…2160 at0020 = ╱70╱p╱ // 0x2135 @0x20
0x2115…2160 at0021 = ╱65╱e╱ // 0x2136 @0x21
0x2115…2160 at0022 = ╱20╱…╱ // 0x2137 @0x22
0x2115…2160 at0023 = ╱66╱f╱ // 0x2138 @0x23
0x2115…2160 at0024 = ╱6f╱o╱ // 0x2139 @0x24
0x2115…2160 at0025 = ╱72╱r╱ // 0x213a @0x25
0x2115…2160 at0026 = ╱20╱…╱ // 0x213b @0x26
0x2115…2160 at0027 = ╱6c╱l╱ // 0x213c @0x27
0x2115…2160 at0028 = ╱69╱i╱ // 0x213d @0x28
0x2115…2160 at0029 = ╱6b╱k╱ // 0x213e @0x29
0x2115…2160 at002a = ╱76╱v╱ // 0x213f @0x2a
0x2115…2160 at002b = ╱69╱i╱ // 0x2140 @0x2b
0x2115…2160 at002c = ╱64╱d╱ // 0x2141 @0x2c
0x2115…2160 at002d = ╱65╱e╱ // 0x2142 @0x2d
0x2115…2160 at002e = ╱20╱…╱ // 0x2143 @0x2e
0x2115…2160 at002f = ╱62╱b╱ // 0x2144 @0x2f
0x2115…2160 at0030 = ╱65╱e╱ // 0x2145 @0x30
0x2115…2160 at0031 = ╱68╱h╱ // 0x2146 @0x31
0x2115…2160 at0032 = ╱6f╱o╱ // 0x2147 @0x32
0x2115…2160 at0033 = ╱6c╱l╱ // 0x2148 @0x33
0x2115…2160 at0034 = ╱64╱d╱ // 0x2149 @0x34
0x2115…2160 at0035 = ╱6e╱n╱ // 0x214a @0x35
0x2115…2160 at0036 = ╱69╱i╱ // 0x214b @0x36
0x2115…2160 at0037 = ╱6e╱n╱ // 0x214c @0x37
0x2115…2160 at0038 = ╱67╱g╱ // 0x214d @0x38
0x2115…2160 at0039 = ╱65╱e╱ // 0x214e @0x39
0x2115…2160 at003a = ╱72╱r╱ // 0x214f @0x3a
0x2115…2160 at003b = ╱20╱…╱ // 0x2150 @0x3b
0x2115…2160 at003c = ╱6d╱m╱ // 0x2151 @0x3c
0x2115…2160 at003d = ╱2e╱.╱ // 0x2152 @0x3d
0x2115…2160 at003e = ╱76╱v╱ // 0x2153 @0x3e
0x2115…2160 at003f = ╱2e╱.╱ // 0x2154 @0x3f
0x2115…2160 at0040 = ╱3a╱:╱ // 0x2155 @0x40
0x2115…2160 at0041 = ╱20╱…╱ // 0x2156 @0x41
0x2115…2160 at0042 = ╱22╱"╱ // 0x2157 @0x42
0x2115…2160 at0043 = ╱ec╱ , ╱ // 0x2158 @0x43
0x2115…2160 at0044 = ╱31╱1╱ // 0x2159 @0x44
0x2115…2160 at0045 = ╱33╱3╱ // 0x215a @0x45
0x2115…2160 at0046 = ╱f20d00╱ // 0x215b @0x46
0x2115…2160 at0049 = ╱ee╱ ) ╱ // 0x215e @0x49
0x2115…2160 at004a = EOL // 0x215f @0x4a
0x2115…2160 }
0x2160…216d b75b 02860 WHILE 33
0x2160…216d LineComal80 {
0x2160…216d ptr = 0xb75b // 0x2160 @0x0
0x2160…216d lno = 0x0b2c // 0x2162 @0x2
0x2160…216d at0004 = ╱a40001╱ WHILE ╱ // 0x2164 @0x4
0x2160…216d at0007 = ╱33╱3╱ // 0x2167 @0x7
0x2160…216d at0008 = ╱33╱3╱ // 0x2168 @0x8
0x2160…216d at0009 = ╱f22100╱ // 0x2169 @0x9
0x2160…216d at000c = EOL // 0x216c @0xc
0x2160…216d }
0x216d…21aa b798 02870 EXEC [NDRE_KTOGRP ( "33.…Kontogruppe…for…egenkapital:…" , 14 )
0x216d…21aa LineComal80 {
0x216d…21aa ptr = 0xb798 // 0x216d @0x0
0x216d…21aa lno = 0x0b36 // 0x216f @0x2
0x216d…21aa at0004 = ╱9d╱ EXEC ╱ // 0x2171 @0x4
0x216d…21aa at0005 = ╱5b╱[╱ // 0x2172 @0x5
0x216d…21aa at0006 = ╱4e╱N╱ // 0x2173 @0x6
0x216d…21aa at0007 = ╱44╱D╱ // 0x2174 @0x7
0x216d…21aa at0008 = ╱52╱R╱ // 0x2175 @0x8
0x216d…21aa at0009 = ╱45╱E╱ // 0x2176 @0x9
0x216d…21aa at000a = ╱5f╱_╱ // 0x2177 @0xa
0x216d…21aa at000b = ╱4b╱K╱ // 0x2178 @0xb
0x216d…21aa at000c = ╱54╱T╱ // 0x2179 @0xc
0x216d…21aa at000d = ╱4f╱O╱ // 0x217a @0xd
0x216d…21aa at000e = ╱47╱G╱ // 0x217b @0xe
0x216d…21aa at000f = ╱52╱R╱ // 0x217c @0xf
0x216d…21aa at0010 = ╱50╱P╱ // 0x217d @0x10
0x216d…21aa at0011 = ╱ed╱ ( ╱ // 0x217e @0x11
0x216d…21aa at0012 = ╱22╱"╱ // 0x217f @0x12
0x216d…21aa at0013 = ╱33╱3╱ // 0x2180 @0x13
0x216d…21aa at0014 = ╱33╱3╱ // 0x2181 @0x14
0x216d…21aa at0015 = ╱2e╱.╱ // 0x2182 @0x15
0x216d…21aa at0016 = ╱20╱…╱ // 0x2183 @0x16
0x216d…21aa at0017 = ╱4b╱K╱ // 0x2184 @0x17
0x216d…21aa at0018 = ╱6f╱o╱ // 0x2185 @0x18
0x216d…21aa at0019 = ╱6e╱n╱ // 0x2186 @0x19
0x216d…21aa at001a = ╱74╱t╱ // 0x2187 @0x1a
0x216d…21aa at001b = ╱6f╱o╱ // 0x2188 @0x1b
0x216d…21aa at001c = ╱67╱g╱ // 0x2189 @0x1c
0x216d…21aa at001d = ╱72╱r╱ // 0x218a @0x1d
0x216d…21aa at001e = ╱75╱u╱ // 0x218b @0x1e
0x216d…21aa at001f = ╱70╱p╱ // 0x218c @0x1f
0x216d…21aa at0020 = ╱70╱p╱ // 0x218d @0x20
0x216d…21aa at0021 = ╱65╱e╱ // 0x218e @0x21
0x216d…21aa at0022 = ╱20╱…╱ // 0x218f @0x22
0x216d…21aa at0023 = ╱66╱f╱ // 0x2190 @0x23
0x216d…21aa at0024 = ╱6f╱o╱ // 0x2191 @0x24
0x216d…21aa at0025 = ╱72╱r╱ // 0x2192 @0x25
0x216d…21aa at0026 = ╱20╱…╱ // 0x2193 @0x26
0x216d…21aa at0027 = ╱65╱e╱ // 0x2194 @0x27
0x216d…21aa at0028 = ╱67╱g╱ // 0x2195 @0x28
0x216d…21aa at0029 = ╱65╱e╱ // 0x2196 @0x29
0x216d…21aa at002a = ╱6e╱n╱ // 0x2197 @0x2a
0x216d…21aa at002b = ╱6b╱k╱ // 0x2198 @0x2b
0x216d…21aa at002c = ╱61╱a╱ // 0x2199 @0x2c
0x216d…21aa at002d = ╱70╱p╱ // 0x219a @0x2d
0x216d…21aa at002e = ╱69╱i╱ // 0x219b @0x2e
0x216d…21aa at002f = ╱74╱t╱ // 0x219c @0x2f
0x216d…21aa at0030 = ╱61╱a╱ // 0x219d @0x30
0x216d…21aa at0031 = ╱6c╱l╱ // 0x219e @0x31
0x216d…21aa at0032 = ╱3a╱:╱ // 0x219f @0x32
0x216d…21aa at0033 = ╱20╱…╱ // 0x21a0 @0x33
0x216d…21aa at0034 = ╱22╱"╱ // 0x21a1 @0x34
0x216d…21aa at0035 = ╱ec╱ , ╱ // 0x21a2 @0x35
0x216d…21aa at0036 = ╱31╱1╱ // 0x21a3 @0x36
0x216d…21aa at0037 = ╱34╱4╱ // 0x21a4 @0x37
0x216d…21aa at0038 = ╱f20e00╱ // 0x21a5 @0x38
0x216d…21aa at003b = ╱ee╱ ) ╱ // 0x21a8 @0x3b
0x216d…21aa at003c = EOL // 0x21a9 @0x3c
0x216d…21aa }
0x21aa…21b7 b7a5 02880 WHILE 34
0x21aa…21b7 LineComal80 {
0x21aa…21b7 ptr = 0xb7a5 // 0x21aa @0x0
0x21aa…21b7 lno = 0x0b40 // 0x21ac @0x2
0x21aa…21b7 at0004 = ╱a40001╱ WHILE ╱ // 0x21ae @0x4
0x21aa…21b7 at0007 = ╱33╱3╱ // 0x21b1 @0x7
0x21aa…21b7 at0008 = ╱34╱4╱ // 0x21b2 @0x8
0x21aa…21b7 at0009 = ╱f22200╱ // 0x21b3 @0x9
0x21aa…21b7 at000c = EOL // 0x21b6 @0xc
0x21aa…21b7 }
0x21b7…21f5 b7e3 02890 EXEC [NDRE_KTOGRP ( "34.…Kontogruppe…for…hens{ttelser:…" , 15 )
0x21b7…21f5 LineComal80 {
0x21b7…21f5 ptr = 0xb7e3 // 0x21b7 @0x0
0x21b7…21f5 lno = 0x0b4a // 0x21b9 @0x2
0x21b7…21f5 at0004 = ╱9d╱ EXEC ╱ // 0x21bb @0x4
0x21b7…21f5 at0005 = ╱5b╱[╱ // 0x21bc @0x5
0x21b7…21f5 at0006 = ╱4e╱N╱ // 0x21bd @0x6
0x21b7…21f5 at0007 = ╱44╱D╱ // 0x21be @0x7
0x21b7…21f5 at0008 = ╱52╱R╱ // 0x21bf @0x8
0x21b7…21f5 at0009 = ╱45╱E╱ // 0x21c0 @0x9
0x21b7…21f5 at000a = ╱5f╱_╱ // 0x21c1 @0xa
0x21b7…21f5 at000b = ╱4b╱K╱ // 0x21c2 @0xb
0x21b7…21f5 at000c = ╱54╱T╱ // 0x21c3 @0xc
0x21b7…21f5 at000d = ╱4f╱O╱ // 0x21c4 @0xd
0x21b7…21f5 at000e = ╱47╱G╱ // 0x21c5 @0xe
0x21b7…21f5 at000f = ╱52╱R╱ // 0x21c6 @0xf
0x21b7…21f5 at0010 = ╱50╱P╱ // 0x21c7 @0x10
0x21b7…21f5 at0011 = ╱ed╱ ( ╱ // 0x21c8 @0x11
0x21b7…21f5 at0012 = ╱22╱"╱ // 0x21c9 @0x12
0x21b7…21f5 at0013 = ╱33╱3╱ // 0x21ca @0x13
0x21b7…21f5 at0014 = ╱34╱4╱ // 0x21cb @0x14
0x21b7…21f5 at0015 = ╱2e╱.╱ // 0x21cc @0x15
0x21b7…21f5 at0016 = ╱20╱…╱ // 0x21cd @0x16
0x21b7…21f5 at0017 = ╱4b╱K╱ // 0x21ce @0x17
0x21b7…21f5 at0018 = ╱6f╱o╱ // 0x21cf @0x18
0x21b7…21f5 at0019 = ╱6e╱n╱ // 0x21d0 @0x19
0x21b7…21f5 at001a = ╱74╱t╱ // 0x21d1 @0x1a
0x21b7…21f5 at001b = ╱6f╱o╱ // 0x21d2 @0x1b
0x21b7…21f5 at001c = ╱67╱g╱ // 0x21d3 @0x1c
0x21b7…21f5 at001d = ╱72╱r╱ // 0x21d4 @0x1d
0x21b7…21f5 at001e = ╱75╱u╱ // 0x21d5 @0x1e
0x21b7…21f5 at001f = ╱70╱p╱ // 0x21d6 @0x1f
0x21b7…21f5 at0020 = ╱70╱p╱ // 0x21d7 @0x20
0x21b7…21f5 at0021 = ╱65╱e╱ // 0x21d8 @0x21
0x21b7…21f5 at0022 = ╱20╱…╱ // 0x21d9 @0x22
0x21b7…21f5 at0023 = ╱66╱f╱ // 0x21da @0x23
0x21b7…21f5 at0024 = ╱6f╱o╱ // 0x21db @0x24
0x21b7…21f5 at0025 = ╱72╱r╱ // 0x21dc @0x25
0x21b7…21f5 at0026 = ╱20╱…╱ // 0x21dd @0x26
0x21b7…21f5 at0027 = ╱68╱h╱ // 0x21de @0x27
0x21b7…21f5 at0028 = ╱65╱e╱ // 0x21df @0x28
0x21b7…21f5 at0029 = ╱6e╱n╱ // 0x21e0 @0x29
0x21b7…21f5 at002a = ╱73╱s╱ // 0x21e1 @0x2a
0x21b7…21f5 at002b = ╱7b╱{╱ // 0x21e2 @0x2b
0x21b7…21f5 at002c = ╱74╱t╱ // 0x21e3 @0x2c
0x21b7…21f5 at002d = ╱74╱t╱ // 0x21e4 @0x2d
0x21b7…21f5 at002e = ╱65╱e╱ // 0x21e5 @0x2e
0x21b7…21f5 at002f = ╱6c╱l╱ // 0x21e6 @0x2f
0x21b7…21f5 at0030 = ╱73╱s╱ // 0x21e7 @0x30
0x21b7…21f5 at0031 = ╱65╱e╱ // 0x21e8 @0x31
0x21b7…21f5 at0032 = ╱72╱r╱ // 0x21e9 @0x32
0x21b7…21f5 at0033 = ╱3a╱:╱ // 0x21ea @0x33
0x21b7…21f5 at0034 = ╱20╱…╱ // 0x21eb @0x34
0x21b7…21f5 at0035 = ╱22╱"╱ // 0x21ec @0x35
0x21b7…21f5 at0036 = ╱ec╱ , ╱ // 0x21ed @0x36
0x21b7…21f5 at0037 = ╱31╱1╱ // 0x21ee @0x37
0x21b7…21f5 at0038 = ╱35╱5╱ // 0x21ef @0x38
0x21b7…21f5 at0039 = ╱f20f00╱ // 0x21f0 @0x39
0x21b7…21f5 at003c = ╱ee╱ ) ╱ // 0x21f3 @0x3c
0x21b7…21f5 at003d = EOL // 0x21f4 @0x3d
0x21b7…21f5 }
0x21f5…2202 b7f0 02900 WHILE 35
0x21f5…2202 LineComal80 {
0x21f5…2202 ptr = 0xb7f0 // 0x21f5 @0x0
0x21f5…2202 lno = 0x0b54 // 0x21f7 @0x2
0x21f5…2202 at0004 = ╱a40001╱ WHILE ╱ // 0x21f9 @0x4
0x21f5…2202 at0007 = ╱33╱3╱ // 0x21fc @0x7
0x21f5…2202 at0008 = ╱35╱5╱ // 0x21fd @0x8
0x21f5…2202 at0009 = ╱f22300╱ // 0x21fe @0x9
0x21f5…2202 at000c = EOL // 0x2201 @0xc
0x21f5…2202 }
0x2202…2238 b826 02910 EXEC [NDRE_KTOGRP ( "35.…Kontogruppe…for…g{ld:…" , 16 )
0x2202…2238 LineComal80 {
0x2202…2238 ptr = 0xb826 // 0x2202 @0x0
0x2202…2238 lno = 0x0b5e // 0x2204 @0x2
0x2202…2238 at0004 = ╱9d╱ EXEC ╱ // 0x2206 @0x4
0x2202…2238 at0005 = ╱5b╱[╱ // 0x2207 @0x5
0x2202…2238 at0006 = ╱4e╱N╱ // 0x2208 @0x6
0x2202…2238 at0007 = ╱44╱D╱ // 0x2209 @0x7
0x2202…2238 at0008 = ╱52╱R╱ // 0x220a @0x8
0x2202…2238 at0009 = ╱45╱E╱ // 0x220b @0x9
0x2202…2238 at000a = ╱5f╱_╱ // 0x220c @0xa
0x2202…2238 at000b = ╱4b╱K╱ // 0x220d @0xb
0x2202…2238 at000c = ╱54╱T╱ // 0x220e @0xc
0x2202…2238 at000d = ╱4f╱O╱ // 0x220f @0xd
0x2202…2238 at000e = ╱47╱G╱ // 0x2210 @0xe
0x2202…2238 at000f = ╱52╱R╱ // 0x2211 @0xf
0x2202…2238 at0010 = ╱50╱P╱ // 0x2212 @0x10
0x2202…2238 at0011 = ╱ed╱ ( ╱ // 0x2213 @0x11
0x2202…2238 at0012 = ╱22╱"╱ // 0x2214 @0x12
0x2202…2238 at0013 = ╱33╱3╱ // 0x2215 @0x13
0x2202…2238 at0014 = ╱35╱5╱ // 0x2216 @0x14
0x2202…2238 at0015 = ╱2e╱.╱ // 0x2217 @0x15
0x2202…2238 at0016 = ╱20╱…╱ // 0x2218 @0x16
0x2202…2238 at0017 = ╱4b╱K╱ // 0x2219 @0x17
0x2202…2238 at0018 = ╱6f╱o╱ // 0x221a @0x18
0x2202…2238 at0019 = ╱6e╱n╱ // 0x221b @0x19
0x2202…2238 at001a = ╱74╱t╱ // 0x221c @0x1a
0x2202…2238 at001b = ╱6f╱o╱ // 0x221d @0x1b
0x2202…2238 at001c = ╱67╱g╱ // 0x221e @0x1c
0x2202…2238 at001d = ╱72╱r╱ // 0x221f @0x1d
0x2202…2238 at001e = ╱75╱u╱ // 0x2220 @0x1e
0x2202…2238 at001f = ╱70╱p╱ // 0x2221 @0x1f
0x2202…2238 at0020 = ╱70╱p╱ // 0x2222 @0x20
0x2202…2238 at0021 = ╱65╱e╱ // 0x2223 @0x21
0x2202…2238 at0022 = ╱20╱…╱ // 0x2224 @0x22
0x2202…2238 at0023 = ╱66╱f╱ // 0x2225 @0x23
0x2202…2238 at0024 = ╱6f╱o╱ // 0x2226 @0x24
0x2202…2238 at0025 = ╱72╱r╱ // 0x2227 @0x25
0x2202…2238 at0026 = ╱20╱…╱ // 0x2228 @0x26
0x2202…2238 at0027 = ╱67╱g╱ // 0x2229 @0x27
0x2202…2238 at0028 = ╱7b╱{╱ // 0x222a @0x28
0x2202…2238 at0029 = ╱6c╱l╱ // 0x222b @0x29
0x2202…2238 at002a = ╱64╱d╱ // 0x222c @0x2a
0x2202…2238 at002b = ╱3a╱:╱ // 0x222d @0x2b
0x2202…2238 at002c = ╱20╱…╱ // 0x222e @0x2c
0x2202…2238 at002d = ╱22╱"╱ // 0x222f @0x2d
0x2202…2238 at002e = ╱ec╱ , ╱ // 0x2230 @0x2e
0x2202…2238 at002f = ╱31╱1╱ // 0x2231 @0x2f
0x2202…2238 at0030 = ╱36╱6╱ // 0x2232 @0x30
0x2202…2238 at0031 = ╱f21000╱ // 0x2233 @0x31
0x2202…2238 at0034 = ╱ee╱ ) ╱ // 0x2236 @0x34
0x2202…2238 at0035 = EOL // 0x2237 @0x35
0x2202…2238 }
0x2238…2245 b833 02920 WHILE 36
0x2238…2245 LineComal80 {
0x2238…2245 ptr = 0xb833 // 0x2238 @0x0
0x2238…2245 lno = 0x0b68 // 0x223a @0x2
0x2238…2245 at0004 = ╱a40001╱ WHILE ╱ // 0x223c @0x4
0x2238…2245 at0007 = ╱33╱3╱ // 0x223f @0x7
0x2238…2245 at0008 = ╱36╱6╱ // 0x2240 @0x8
0x2238…2245 at0009 = ╱f22400╱ // 0x2241 @0x9
0x2238…2245 at000c = EOL // 0x2244 @0xc
0x2238…2245 }
0x2245…2281 b86f 02930 EXEC [NDRE_KTOGRP ( "36.…Kontogruppe…for…kreditorer:…" , 17 )
0x2245…2281 LineComal80 {
0x2245…2281 ptr = 0xb86f // 0x2245 @0x0
0x2245…2281 lno = 0x0b72 // 0x2247 @0x2
0x2245…2281 at0004 = ╱9d╱ EXEC ╱ // 0x2249 @0x4
0x2245…2281 at0005 = ╱5b╱[╱ // 0x224a @0x5
0x2245…2281 at0006 = ╱4e╱N╱ // 0x224b @0x6
0x2245…2281 at0007 = ╱44╱D╱ // 0x224c @0x7
0x2245…2281 at0008 = ╱52╱R╱ // 0x224d @0x8
0x2245…2281 at0009 = ╱45╱E╱ // 0x224e @0x9
0x2245…2281 at000a = ╱5f╱_╱ // 0x224f @0xa
0x2245…2281 at000b = ╱4b╱K╱ // 0x2250 @0xb
0x2245…2281 at000c = ╱54╱T╱ // 0x2251 @0xc
0x2245…2281 at000d = ╱4f╱O╱ // 0x2252 @0xd
0x2245…2281 at000e = ╱47╱G╱ // 0x2253 @0xe
0x2245…2281 at000f = ╱52╱R╱ // 0x2254 @0xf
0x2245…2281 at0010 = ╱50╱P╱ // 0x2255 @0x10
0x2245…2281 at0011 = ╱ed╱ ( ╱ // 0x2256 @0x11
0x2245…2281 at0012 = ╱22╱"╱ // 0x2257 @0x12
0x2245…2281 at0013 = ╱33╱3╱ // 0x2258 @0x13
0x2245…2281 at0014 = ╱36╱6╱ // 0x2259 @0x14
0x2245…2281 at0015 = ╱2e╱.╱ // 0x225a @0x15
0x2245…2281 at0016 = ╱20╱…╱ // 0x225b @0x16
0x2245…2281 at0017 = ╱4b╱K╱ // 0x225c @0x17
0x2245…2281 at0018 = ╱6f╱o╱ // 0x225d @0x18
0x2245…2281 at0019 = ╱6e╱n╱ // 0x225e @0x19
0x2245…2281 at001a = ╱74╱t╱ // 0x225f @0x1a
0x2245…2281 at001b = ╱6f╱o╱ // 0x2260 @0x1b
0x2245…2281 at001c = ╱67╱g╱ // 0x2261 @0x1c
0x2245…2281 at001d = ╱72╱r╱ // 0x2262 @0x1d
0x2245…2281 at001e = ╱75╱u╱ // 0x2263 @0x1e
0x2245…2281 at001f = ╱70╱p╱ // 0x2264 @0x1f
0x2245…2281 at0020 = ╱70╱p╱ // 0x2265 @0x20
0x2245…2281 at0021 = ╱65╱e╱ // 0x2266 @0x21
0x2245…2281 at0022 = ╱20╱…╱ // 0x2267 @0x22
0x2245…2281 at0023 = ╱66╱f╱ // 0x2268 @0x23
0x2245…2281 at0024 = ╱6f╱o╱ // 0x2269 @0x24
0x2245…2281 at0025 = ╱72╱r╱ // 0x226a @0x25
0x2245…2281 at0026 = ╱20╱…╱ // 0x226b @0x26
0x2245…2281 at0027 = ╱6b╱k╱ // 0x226c @0x27
0x2245…2281 at0028 = ╱72╱r╱ // 0x226d @0x28
0x2245…2281 at0029 = ╱65╱e╱ // 0x226e @0x29
0x2245…2281 at002a = ╱64╱d╱ // 0x226f @0x2a
0x2245…2281 at002b = ╱69╱i╱ // 0x2270 @0x2b
0x2245…2281 at002c = ╱74╱t╱ // 0x2271 @0x2c
0x2245…2281 at002d = ╱6f╱o╱ // 0x2272 @0x2d
0x2245…2281 at002e = ╱72╱r╱ // 0x2273 @0x2e
0x2245…2281 at002f = ╱65╱e╱ // 0x2274 @0x2f
0x2245…2281 at0030 = ╱72╱r╱ // 0x2275 @0x30
0x2245…2281 at0031 = ╱3a╱:╱ // 0x2276 @0x31
0x2245…2281 at0032 = ╱20╱…╱ // 0x2277 @0x32
0x2245…2281 at0033 = ╱22╱"╱ // 0x2278 @0x33
0x2245…2281 at0034 = ╱ec╱ , ╱ // 0x2279 @0x34
0x2245…2281 at0035 = ╱31╱1╱ // 0x227a @0x35
0x2245…2281 at0036 = ╱37╱7╱ // 0x227b @0x36
0x2245…2281 at0037 = ╱f21100╱ // 0x227c @0x37
0x2245…2281 at003a = ╱ee╱ ) ╱ // 0x227f @0x3a
0x2245…2281 at003b = EOL // 0x2280 @0x3b
0x2245…2281 }
0x2281…2287 b875 02940 ENDCASE
0x2281…2287 LineComal80 {
0x2281…2287 ptr = 0xb875 // 0x2281 @0x0
0x2281…2287 lno = 0x0b7c // 0x2283 @0x2
0x2281…2287 at0004 = ╱a3╱ ENDCASE ╱ // 0x2285 @0x4
0x2281…2287 at0005 = EOL // 0x2286 @0x5
0x2281…2287 }
0x2287…22a8 b896 02950 PRINT "<SC0123>" ; SPC $ ( 1 : 78 )
0x2287…22a8 LineComal80 {
0x2287…22a8 ptr = 0xb896 // 0x2287 @0x0
0x2287…22a8 lno = 0x0b86 // 0x2289 @0x2
0x2287…22a8 at0004 = ╱92╱ PRINT ╱ // 0x228b @0x4
0x2287…22a8 at0005 = ╱22╱"╱ // 0x228c @0x5
0x2287…22a8 at0006 = ╱3c╱<╱ // 0x228d @0x6
0x2287…22a8 at0007 = ╱53╱S╱ // 0x228e @0x7
0x2287…22a8 at0008 = ╱43╱C╱ // 0x228f @0x8
0x2287…22a8 at0009 = ╱30╱0╱ // 0x2290 @0x9
0x2287…22a8 at000a = ╱31╱1╱ // 0x2291 @0xa
0x2287…22a8 at000b = ╱32╱2╱ // 0x2292 @0xb
0x2287…22a8 at000c = ╱33╱3╱ // 0x2293 @0xc
0x2287…22a8 at000d = ╱3e╱>╱ // 0x2294 @0xd
0x2287…22a8 at000e = ╱22╱"╱ // 0x2295 @0xe
0x2287…22a8 at000f = ╱ea╱ ; ╱ // 0x2296 @0xf
0x2287…22a8 at0010 = ╱53╱S╱ // 0x2297 @0x10
0x2287…22a8 at0011 = ╱50╱P╱ // 0x2298 @0x11
0x2287…22a8 at0012 = ╱43╱C╱ // 0x2299 @0x12
0x2287…22a8 at0013 = ╱ef╱ $ ╱ // 0x229a @0x13
0x2287…22a8 at0014 = ╱ed╱ ( ╱ // 0x229b @0x14
0x2287…22a8 at0015 = ╱31╱1╱ // 0x229c @0x15
0x2287…22a8 at0016 = ╱f20100╱ // 0x229d @0x16
0x2287…22a8 at0019 = ╱f1╱ : ╱ // 0x22a0 @0x19
0x2287…22a8 at001a = ╱37╱7╱ // 0x22a1 @0x1a
0x2287…22a8 at001b = ╱38╱8╱ // 0x22a2 @0x1b
0x2287…22a8 at001c = ╱f24e00╱ // 0x22a3 @0x1c
0x2287…22a8 at001f = ╱ee╱ ) ╱ // 0x22a6 @0x1f
0x2287…22a8 at0020 = EOL // 0x22a7 @0x20
0x2287…22a8 }
0x22a8…22b7 b8a5 02960 ENDPROC RET_LINIE
0x22a8…22b7 LineComal80 {
0x22a8…22b7 ptr = 0xb8a5 // 0x22a8 @0x0
0x22a8…22b7 lno = 0x0b90 // 0x22aa @0x2
0x22a8…22b7 at0004 = ╱9f╱ ENDPROC ╱ // 0x22ac @0x4
0x22a8…22b7 at0005 = ╱52╱R╱ // 0x22ad @0x5
0x22a8…22b7 at0006 = ╱45╱E╱ // 0x22ae @0x6
0x22a8…22b7 at0007 = ╱54╱T╱ // 0x22af @0x7
0x22a8…22b7 at0008 = ╱5f╱_╱ // 0x22b0 @0x8
0x22a8…22b7 at0009 = ╱4c╱L╱ // 0x22b1 @0x9
0x22a8…22b7 at000a = ╱49╱I╱ // 0x22b2 @0xa
0x22a8…22b7 at000b = ╱4e╱N╱ // 0x22b3 @0xb
0x22a8…22b7 at000c = ╱49╱I╱ // 0x22b4 @0xc
0x22a8…22b7 at000d = ╱45╱E╱ // 0x22b5 @0xd
0x22a8…22b7 at000e = EOL // 0x22b6 @0xe
0x22a8…22b7 }
0x22b7…22bc b8aa 02970
0x22b7…22bc LineComal80 {
0x22b7…22bc ptr = 0xb8aa // 0x22b7 @0x0
0x22b7…22bc lno = 0x0b9a // 0x22b9 @0x2
0x22b7…22bc at0004 = EOL // 0x22bb @0x4
0x22b7…22bc }
0x22bc…22d7 b8c5 02980 PROC OPENFIL ( FNAVN $ , WAY $ )
0x22bc…22d7 LineComal80 {
0x22bc…22d7 ptr = 0xb8c5 // 0x22bc @0x0
0x22bc…22d7 lno = 0x0ba4 // 0x22be @0x2
0x22bc…22d7 at0004 = ╱9e00╱ PROC ╱ // 0x22c0 @0x4
0x22bc…22d7 at0006 = ╱4f╱O╱ // 0x22c2 @0x6
0x22bc…22d7 at0007 = ╱50╱P╱ // 0x22c3 @0x7
0x22bc…22d7 at0008 = ╱45╱E╱ // 0x22c4 @0x8
0x22bc…22d7 at0009 = ╱4e╱N╱ // 0x22c5 @0x9
0x22bc…22d7 at000a = ╱46╱F╱ // 0x22c6 @0xa
0x22bc…22d7 at000b = ╱49╱I╱ // 0x22c7 @0xb
0x22bc…22d7 at000c = ╱4c╱L╱ // 0x22c8 @0xc
0x22bc…22d7 at000d = ╱ed╱ ( ╱ // 0x22c9 @0xd
0x22bc…22d7 at000e = ╱46╱F╱ // 0x22ca @0xe
0x22bc…22d7 at000f = ╱4e╱N╱ // 0x22cb @0xf
0x22bc…22d7 at0010 = ╱41╱A╱ // 0x22cc @0x10
0x22bc…22d7 at0011 = ╱56╱V╱ // 0x22cd @0x11
0x22bc…22d7 at0012 = ╱4e╱N╱ // 0x22ce @0x12
0x22bc…22d7 at0013 = ╱ef╱ $ ╱ // 0x22cf @0x13
0x22bc…22d7 at0014 = ╱ec╱ , ╱ // 0x22d0 @0x14
0x22bc…22d7 at0015 = ╱57╱W╱ // 0x22d1 @0x15
0x22bc…22d7 at0016 = ╱41╱A╱ // 0x22d2 @0x16
0x22bc…22d7 at0017 = ╱59╱Y╱ // 0x22d3 @0x17
0x22bc…22d7 at0018 = ╱ef╱ $ ╱ // 0x22d4 @0x18
0x22bc…22d7 at0019 = ╱ee╱ ) ╱ // 0x22d5 @0x19
0x22bc…22d7 at001a = EOL // 0x22d6 @0x1a
0x22bc…22d7 }
0x22d7…22de b8cc 02990 REPEAT
0x22d7…22de LineComal80 {
0x22d7…22de ptr = 0xb8cc // 0x22d7 @0x0
0x22d7…22de lno = 0x0bae // 0x22d9 @0x2
0x22d7…22de at0004 = ╱9700╱ REPEAT ╱ // 0x22db @0x4
0x22d7…22de at0006 = EOL // 0x22dd @0x6
0x22d7…22de }
0x22de…22f7 b8e5 03000 IF AY $ = "W" OR WAY $ = "w" THEN
0x22de…22f7 LineComal80 {
0x22de…22f7 ptr = 0xb8e5 // 0x22de @0x0
0x22de…22f7 lno = 0x0bb8 // 0x22e0 @0x2
0x22de…22f7 at0004 = ╱9b0057╱ IF ╱ // 0x22e2 @0x4
0x22de…22f7 at0007 = ╱41╱A╱ // 0x22e5 @0x7
0x22de…22f7 at0008 = ╱59╱Y╱ // 0x22e6 @0x8
0x22de…22f7 at0009 = ╱ef╱ $ ╱ // 0x22e7 @0x9
0x22de…22f7 at000a = ╱df╱ = ╱ // 0x22e8 @0xa
0x22de…22f7 at000b = ╱22╱"╱ // 0x22e9 @0xb
0x22de…22f7 at000c = ╱57╱W╱ // 0x22ea @0xc
0x22de…22f7 at000d = ╱22╱"╱ // 0x22eb @0xd
0x22de…22f7 at000e = ╱d8╱ OR ╱ // 0x22ec @0xe
0x22de…22f7 at000f = ╱57╱W╱ // 0x22ed @0xf
0x22de…22f7 at0010 = ╱41╱A╱ // 0x22ee @0x10
0x22de…22f7 at0011 = ╱59╱Y╱ // 0x22ef @0x11
0x22de…22f7 at0012 = ╱ef╱ $ ╱ // 0x22f0 @0x12
0x22de…22f7 at0013 = ╱df╱ = ╱ // 0x22f1 @0x13
0x22de…22f7 at0014 = ╱22╱"╱ // 0x22f2 @0x14
0x22de…22f7 at0015 = ╱77╱w╱ // 0x22f3 @0x15
0x22de…22f7 at0016 = ╱22╱"╱ // 0x22f4 @0x16
0x22de…22f7 at0017 = ╱b5╱ THEN ╱ // 0x22f5 @0x17
0x22de…22f7 at0018 = EOL // 0x22f6 @0x18
0x22de…22f7 }
0x22f7…2305 b8f3 03010 OPEN FNAVN $ , W
0x22f7…2305 LineComal80 {
0x22f7…2305 ptr = 0xb8f3 // 0x22f7 @0x0
0x22f7…2305 lno = 0x0bc2 // 0x22f9 @0x2
0x22f7…2305 at0004 = ╱a7╱ OPEN ╱ // 0x22fb @0x4
0x22f7…2305 at0005 = ╱46╱F╱ // 0x22fc @0x5
0x22f7…2305 at0006 = ╱4e╱N╱ // 0x22fd @0x6
0x22f7…2305 at0007 = ╱41╱A╱ // 0x22fe @0x7
0x22f7…2305 at0008 = ╱56╱V╱ // 0x22ff @0x8
0x22f7…2305 at0009 = ╱4e╱N╱ // 0x2300 @0x9
0x22f7…2305 at000a = ╱ef╱ $ ╱ // 0x2301 @0xa
0x22f7…2305 at000b = ╱ec╱ , ╱ // 0x2302 @0xb
0x22f7…2305 at000c = ╱57╱W╱ // 0x2303 @0xc
0x22f7…2305 at000d = EOL // 0x2304 @0xd
0x22f7…2305 }
0x2305…230c b8fa 03020 ELSE
0x2305…230c LineComal80 {
0x2305…230c ptr = 0xb8fa // 0x2305 @0x0
0x2305…230c lno = 0x0bcc // 0x2307 @0x2
0x2305…230c at0004 = ╱9a00╱ ELSE ╱ // 0x2309 @0x4
0x2305…230c at0006 = EOL // 0x230b @0x6
0x2305…230c }
0x230c…231a b908 03030 OPEN FNAVN $ , R
0x230c…231a LineComal80 {
0x230c…231a ptr = 0xb908 // 0x230c @0x0
0x230c…231a lno = 0x0bd6 // 0x230e @0x2
0x230c…231a at0004 = ╱a7╱ OPEN ╱ // 0x2310 @0x4
0x230c…231a at0005 = ╱46╱F╱ // 0x2311 @0x5
0x230c…231a at0006 = ╱4e╱N╱ // 0x2312 @0x6
0x230c…231a at0007 = ╱41╱A╱ // 0x2313 @0x7
0x230c…231a at0008 = ╱56╱V╱ // 0x2314 @0x8
0x230c…231a at0009 = ╱4e╱N╱ // 0x2315 @0x9
0x230c…231a at000a = ╱ef╱ $ ╱ // 0x2316 @0xa
0x230c…231a at000b = ╱ec╱ , ╱ // 0x2317 @0xb
0x230c…231a at000c = ╱52╱R╱ // 0x2318 @0xc
0x230c…231a at000d = EOL // 0x2319 @0xd
0x230c…231a }
0x231a…2320 b90e 03040 ENDIF
0x231a…2320 LineComal80 {
0x231a…2320 ptr = 0xb90e // 0x231a @0x0
0x231a…2320 lno = 0x0be0 // 0x231c @0x2
0x231a…2320 at0004 = ╱9c╱ ENDIF ╱ // 0x231e @0x4
0x231a…2320 at0005 = EOL // 0x231f @0x5
0x231a…2320 }
0x2320…2331 b91f 03050 IF ( FNAVN $ ) THEN
0x2320…2331 LineComal80 {
0x2320…2331 ptr = 0xb91f // 0x2320 @0x0
0x2320…2331 lno = 0x0bea // 0x2322 @0x2
0x2320…2331 at0004 = ╱9b00cd╱ IF ╱ // 0x2324 @0x4
0x2320…2331 at0007 = ╱ed╱ ( ╱ // 0x2327 @0x7
0x2320…2331 at0008 = ╱46╱F╱ // 0x2328 @0x8
0x2320…2331 at0009 = ╱4e╱N╱ // 0x2329 @0x9
0x2320…2331 at000a = ╱41╱A╱ // 0x232a @0xa
0x2320…2331 at000b = ╱56╱V╱ // 0x232b @0xb
0x2320…2331 at000c = ╱4e╱N╱ // 0x232c @0xc
0x2320…2331 at000d = ╱ef╱ $ ╱ // 0x232d @0xd
0x2320…2331 at000e = ╱ee╱ ) ╱ // 0x232e @0xe
0x2320…2331 at000f = ╱b5╱ THEN ╱ // 0x232f @0xf
0x2320…2331 at0010 = EOL // 0x2330 @0x10
0x2320…2331 }
0x2331…2349 (117,) b937 03060 PRINT "<SC2301>" ; CHR$ ( 7 )
0x2331…2349 LineComal80 {
0x2331…2349 ptr = 0xb937 // 0x2331 @0x0
0x2331…2349 lno = 0x0bf4 // 0x2333 @0x2
0x2331…2349 at0004 = ╱92╱ PRINT ╱ // 0x2335 @0x4
0x2331…2349 at0005 = ╱22╱"╱ // 0x2336 @0x5
0x2331…2349 at0006 = ╱3c╱<╱ // 0x2337 @0x6
0x2331…2349 at0007 = ╱53╱S╱ // 0x2338 @0x7
0x2331…2349 at0008 = ╱43╱C╱ // 0x2339 @0x8
0x2331…2349 at0009 = ╱32╱2╱ // 0x233a @0x9
0x2331…2349 at000a = ╱33╱3╱ // 0x233b @0xa
0x2331…2349 at000b = ╱30╱0╱ // 0x233c @0xb
0x2331…2349 at000c = ╱31╱1╱ // 0x233d @0xc
0x2331…2349 at000d = ╱3e╱>╱ // 0x233e @0xd
0x2331…2349 at000e = ╱22╱"╱ // 0x233f @0xe
0x2331…2349 at000f = ╱ea╱ ; ╱ // 0x2340 @0xf
0x2331…2349 at0010 = ╱d0╱ CHR$ ╱ // 0x2341 @0x10
0x2331…2349 at0011 = ╱ed╱ ( ╱ // 0x2342 @0x11
0x2331…2349 at0012 = ╱37╱7╱ // 0x2343 @0x12
0x2331…2349 at0013 = ╱f20700╱ // 0x2344 @0x13
0x2331…2349 at0016 = ╱ee╱ ) ╱ // 0x2347 @0x16
0x2331…2349 at0017 = EOL // 0x2348 @0x17
0x2331…2349 }
0x2349…235f b94d 03070 IF ( FNAVN $ ) = 6 THEN
0x2349…235f LineComal80 {
0x2349…235f ptr = 0xb94d // 0x2349 @0x0
0x2349…235f lno = 0x0bfe // 0x234b @0x2
0x2349…235f at0004 = ╱9b00cd╱ IF ╱ // 0x234d @0x4
0x2349…235f at0007 = ╱ed╱ ( ╱ // 0x2350 @0x7
0x2349…235f at0008 = ╱46╱F╱ // 0x2351 @0x8
0x2349…235f at0009 = ╱4e╱N╱ // 0x2352 @0x9
0x2349…235f at000a = ╱41╱A╱ // 0x2353 @0xa
0x2349…235f at000b = ╱56╱V╱ // 0x2354 @0xb
0x2349…235f at000c = ╱4e╱N╱ // 0x2355 @0xc
0x2349…235f at000d = ╱ef╱ $ ╱ // 0x2356 @0xd
0x2349…235f at000e = ╱ee╱ ) ╱ // 0x2357 @0xe
0x2349…235f at000f = ╱df╱ = ╱ // 0x2358 @0xf
0x2349…235f at0010 = ╱36╱6╱ // 0x2359 @0x10
0x2349…235f at0011 = ╱f20600╱ // 0x235a @0x11
0x2349…235f at0014 = ╱b5╱ THEN ╱ // 0x235d @0x14
0x2349…235f at0015 = EOL // 0x235e @0x15
0x2349…235f }
0x235f…23a4 b992 03080 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x235f…23a4 LineComal80 {
0x235f…23a4 ptr = 0xb992 // 0x235f @0x0
0x235f…23a4 lno = 0x0c08 // 0x2361 @0x2
0x235f…23a4 at0004 = ╱92╱ PRINT ╱ // 0x2363 @0x4
0x235f…23a4 at0005 = ╱22╱"╱ // 0x2364 @0x5
0x235f…23a4 at0006 = ╱3c╱<╱ // 0x2365 @0x6
0x235f…23a4 at0007 = ╱53╱S╱ // 0x2366 @0x7
0x235f…23a4 at0008 = ╱43╱C╱ // 0x2367 @0x8
0x235f…23a4 at0009 = ╱31╱1╱ // 0x2368 @0x9
0x235f…23a4 at000a = ╱36╱6╱ // 0x2369 @0xa
0x235f…23a4 at000b = ╱30╱0╱ // 0x236a @0xb
0x235f…23a4 at000c = ╱32╱2╱ // 0x236b @0xc
0x235f…23a4 at000d = ╱3e╱>╱ // 0x236c @0xd
0x235f…23a4 at000e = ╱2a╱*╱ // 0x236d @0xe
0x235f…23a4 at000f = ╱2a╱*╱ // 0x236e @0xf
0x235f…23a4 at0010 = ╱2a╱*╱ // 0x236f @0x10
0x235f…23a4 at0011 = ╱20╱…╱ // 0x2370 @0x11
0x235f…23a4 at0012 = ╱46╱F╱ // 0x2371 @0x12
0x235f…23a4 at0013 = ╱65╱e╱ // 0x2372 @0x13
0x235f…23a4 at0014 = ╱6a╱j╱ // 0x2373 @0x14
0x235f…23a4 at0015 = ╱6c╱l╱ // 0x2374 @0x15
0x235f…23a4 at0016 = ╱20╱…╱ // 0x2375 @0x16
0x235f…23a4 at0017 = ╱6e╱n╱ // 0x2376 @0x17
0x235f…23a4 at0018 = ╱72╱r╱ // 0x2377 @0x18
0x235f…23a4 at0019 = ╱2e╱.╱ // 0x2378 @0x19
0x235f…23a4 at001a = ╱20╱…╱ // 0x2379 @0x1a
0x235f…23a4 at001b = ╱36╱6╱ // 0x237a @0x1b
0x235f…23a4 at001c = ╱20╱…╱ // 0x237b @0x1c
0x235f…23a4 at001d = ╱2d╱-╱ // 0x237c @0x1d
0x235f…23a4 at001e = ╱20╱…╱ // 0x237d @0x1e
0x235f…23a4 at001f = ╱69╱i╱ // 0x237e @0x1f
0x235f…23a4 at0020 = ╱6e╱n╱ // 0x237f @0x20
0x235f…23a4 at0021 = ╱64╱d╱ // 0x2380 @0x21
0x235f…23a4 at0022 = ╱73╱s╱ // 0x2381 @0x22
0x235f…23a4 at0023 = ╱7b╱{╱ // 0x2382 @0x23
0x235f…23a4 at0024 = ╱74╱t╱ // 0x2383 @0x24
0x235f…23a4 at0025 = ╱20╱…╱ // 0x2384 @0x25
0x235f…23a4 at0026 = ╱64╱d╱ // 0x2385 @0x26
0x235f…23a4 at0027 = ╱69╱i╱ // 0x2386 @0x27
0x235f…23a4 at0028 = ╱73╱s╱ // 0x2387 @0x28
0x235f…23a4 at0029 = ╱6b╱k╱ // 0x2388 @0x29
0x235f…23a4 at002a = ╱65╱e╱ // 0x2389 @0x2a
0x235f…23a4 at002b = ╱74╱t╱ // 0x238a @0x2b
0x235f…23a4 at002c = ╱74╱t╱ // 0x238b @0x2c
0x235f…23a4 at002d = ╱65╱e╱ // 0x238c @0x2d
0x235f…23a4 at002e = ╱20╱…╱ // 0x238d @0x2e
0x235f…23a4 at002f = ╱6f╱o╱ // 0x238e @0x2f
0x235f…23a4 at0030 = ╱67╱g╱ // 0x238f @0x30
0x235f…23a4 at0031 = ╱20╱…╱ // 0x2390 @0x31
0x235f…23a4 at0032 = ╱74╱t╱ // 0x2391 @0x32
0x235f…23a4 at0033 = ╱72╱r╱ // 0x2392 @0x33
0x235f…23a4 at0034 = ╱79╱y╱ // 0x2393 @0x34
0x235f…23a4 at0035 = ╱6b╱k╱ // 0x2394 @0x35
0x235f…23a4 at0036 = ╱20╱…╱ // 0x2395 @0x36
0x235f…23a4 at0037 = ╱3c╱<╱ // 0x2396 @0x37
0x235f…23a4 at0038 = ╱52╱R╱ // 0x2397 @0x38
0x235f…23a4 at0039 = ╱45╱E╱ // 0x2398 @0x39
0x235f…23a4 at003a = ╱54╱T╱ // 0x2399 @0x3a
0x235f…23a4 at003b = ╱55╱U╱ // 0x239a @0x3b
0x235f…23a4 at003c = ╱52╱R╱ // 0x239b @0x3c
0x235f…23a4 at003d = ╱4e╱N╱ // 0x239c @0x3d
0x235f…23a4 at003e = ╱3e╱>╱ // 0x239d @0x3e
0x235f…23a4 at003f = ╱20╱…╱ // 0x239e @0x3f
0x235f…23a4 at0040 = ╱2a╱*╱ // 0x239f @0x40
0x235f…23a4 at0041 = ╱2a╱*╱ // 0x23a0 @0x41
0x235f…23a4 at0042 = ╱2a╱*╱ // 0x23a1 @0x42
0x235f…23a4 at0043 = ╱22╱"╱ // 0x23a2 @0x43
0x235f…23a4 at0044 = EOL // 0x23a3 @0x44
0x235f…23a4 }
0x23a4…23b2 b9a0 03090 INPUT "" : SVAR $
0x23a4…23b2 LineComal80 {
0x23a4…23b2 ptr = 0xb9a0 // 0x23a4 @0x0
0x23a4…23b2 lno = 0x0c12 // 0x23a6 @0x2
0x23a4…23b2 at0004 = ╱91╱ INPUT ╱ // 0x23a8 @0x4
0x23a4…23b2 at0005 = ╱22╱"╱ // 0x23a9 @0x5
0x23a4…23b2 at0006 = ╱22╱"╱ // 0x23aa @0x6
0x23a4…23b2 at0007 = ╱f1╱ : ╱ // 0x23ab @0x7
0x23a4…23b2 at0008 = ╱53╱S╱ // 0x23ac @0x8
0x23a4…23b2 at0009 = ╱56╱V╱ // 0x23ad @0x9
0x23a4…23b2 at000a = ╱41╱A╱ // 0x23ae @0xa
0x23a4…23b2 at000b = ╱52╱R╱ // 0x23af @0xb
0x23a4…23b2 at000c = ╱ef╱ $ ╱ // 0x23b0 @0xc
0x23a4…23b2 at000d = EOL // 0x23b1 @0xd
0x23a4…23b2 }
0x23b2…23b9 b9a7 03100 ELSE
0x23b2…23b9 LineComal80 {
0x23b2…23b9 ptr = 0xb9a7 // 0x23b2 @0x0
0x23b2…23b9 lno = 0x0c1c // 0x23b4 @0x2
0x23b2…23b9 at0004 = ╱9a00╱ ELSE ╱ // 0x23b6 @0x4
0x23b2…23b9 at0006 = EOL // 0x23b8 @0x6
0x23b2…23b9 }
0x23b9…23fa b9e8 03110 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x23b9…23fa LineComal80 {
0x23b9…23fa ptr = 0xb9e8 // 0x23b9 @0x0
0x23b9…23fa lno = 0x0c26 // 0x23bb @0x2
0x23b9…23fa at0004 = ╱92╱ PRINT ╱ // 0x23bd @0x4
0x23b9…23fa at0005 = ╱22╱"╱ // 0x23be @0x5
0x23b9…23fa at0006 = ╱3c╱<╱ // 0x23bf @0x6
0x23b9…23fa at0007 = ╱53╱S╱ // 0x23c0 @0x7
0x23b9…23fa at0008 = ╱43╱C╱ // 0x23c1 @0x8
0x23b9…23fa at0009 = ╱31╱1╱ // 0x23c2 @0x9
0x23b9…23fa at000a = ╱38╱8╱ // 0x23c3 @0xa
0x23b9…23fa at000b = ╱30╱0╱ // 0x23c4 @0xb
0x23b9…23fa at000c = ╱32╱2╱ // 0x23c5 @0xc
0x23b9…23fa at000d = ╱3e╱>╱ // 0x23c6 @0xd
0x23b9…23fa at000e = ╱2a╱*╱ // 0x23c7 @0xe
0x23b9…23fa at000f = ╱2a╱*╱ // 0x23c8 @0xf
0x23b9…23fa at0010 = ╱2a╱*╱ // 0x23c9 @0x10
0x23b9…23fa at0011 = ╱20╱…╱ // 0x23ca @0x11
0x23b9…23fa at0012 = ╱46╱F╱ // 0x23cb @0x12
0x23b9…23fa at0013 = ╱65╱e╱ // 0x23cc @0x13
0x23b9…23fa at0014 = ╱6a╱j╱ // 0x23cd @0x14
0x23b9…23fa at0015 = ╱6c╱l╱ // 0x23ce @0x15
0x23b9…23fa at0016 = ╱20╱…╱ // 0x23cf @0x16
0x23b9…23fa at0017 = ╱6e╱n╱ // 0x23d0 @0x17
0x23b9…23fa at0018 = ╱72╱r╱ // 0x23d1 @0x18
0x23b9…23fa at0019 = ╱2e╱.╱ // 0x23d2 @0x19
0x23b9…23fa at001a = ╱20╱…╱ // 0x23d3 @0x1a
0x23b9…23fa at001b = ╱22╱"╱ // 0x23d4 @0x1b
0x23b9…23fa at001c = ╱ea╱ ; ╱ // 0x23d5 @0x1c
0x23b9…23fa at001d = ╱d0╱ CHR$ ╱ // 0x23d6 @0x1d
0x23b9…23fa at001e = ╱ed╱ ( ╱ // 0x23d7 @0x1e
0x23b9…23fa at001f = ╱cd╱ // 0x23d8 @0x1f
0x23b9…23fa at0020 = ╱ed╱ ( ╱ // 0x23d9 @0x20
0x23b9…23fa at0021 = ╱46╱F╱ // 0x23da @0x21
0x23b9…23fa at0022 = ╱4e╱N╱ // 0x23db @0x22
0x23b9…23fa at0023 = ╱41╱A╱ // 0x23dc @0x23
0x23b9…23fa at0024 = ╱56╱V╱ // 0x23dd @0x24
0x23b9…23fa at0025 = ╱4e╱N╱ // 0x23de @0x25
0x23b9…23fa at0026 = ╱ef╱ $ ╱ // 0x23df @0x26
0x23b9…23fa at0027 = ╱ee╱ ) ╱ // 0x23e0 @0x27
0x23b9…23fa at0028 = ╱ec╱ , ╱ // 0x23e1 @0x28
0x23b9…23fa at0029 = ╱32╱2╱ // 0x23e2 @0x29
0x23b9…23fa at002a = ╱f20200╱ // 0x23e3 @0x2a
0x23b9…23fa at002d = ╱ee╱ ) ╱ // 0x23e6 @0x2d
0x23b9…23fa at002e = ╱ea╱ ; ╱ // 0x23e7 @0x2e
0x23b9…23fa at002f = ╱22╱"╱ // 0x23e8 @0x2f
0x23b9…23fa at0030 = ╱20╱…╱ // 0x23e9 @0x30
0x23b9…23fa at0031 = ╱76╱v╱ // 0x23ea @0x31
0x23b9…23fa at0032 = ╱65╱e╱ // 0x23eb @0x32
0x23b9…23fa at0033 = ╱64╱d╱ // 0x23ec @0x33
0x23b9…23fa at0034 = ╱20╱…╱ // 0x23ed @0x34
0x23b9…23fa at0035 = ╱7d╱}╱ // 0x23ee @0x35
0x23b9…23fa at0036 = ╱62╱b╱ // 0x23ef @0x36
0x23b9…23fa at0037 = ╱6e╱n╱ // 0x23f0 @0x37
0x23b9…23fa at0038 = ╱69╱i╱ // 0x23f1 @0x38
0x23b9…23fa at0039 = ╱6e╱n╱ // 0x23f2 @0x39
0x23b9…23fa at003a = ╱67╱g╱ // 0x23f3 @0x3a
0x23b9…23fa at003b = ╱20╱…╱ // 0x23f4 @0x3b
0x23b9…23fa at003c = ╱61╱a╱ // 0x23f5 @0x3c
0x23b9…23fa at003d = ╱66╱f╱ // 0x23f6 @0x3d
0x23b9…23fa at003e = ╱20╱…╱ // 0x23f7 @0x3e
0x23b9…23fa at003f = ╱22╱"╱ // 0x23f8 @0x3f
0x23b9…23fa at0040 = EOL // 0x23f9 @0x40
0x23b9…23fa }
0x23fa…2413 ba01 03120 PRINT "<S>" ; FNAVN $ ; "…***"
0x23fa…2413 LineComal80 {
0x23fa…2413 ptr = 0xba01 // 0x23fa @0x0
0x23fa…2413 lno = 0x0c30 // 0x23fc @0x2
0x23fa…2413 at0004 = ╱92╱ PRINT ╱ // 0x23fe @0x4
0x23fa…2413 at0005 = ╱22╱"╱ // 0x23ff @0x5
0x23fa…2413 at0006 = ╱3c╱<╱ // 0x2400 @0x6
0x23fa…2413 at0007 = ╱53╱S╱ // 0x2401 @0x7
0x23fa…2413 at0008 = ╱3e╱>╱ // 0x2402 @0x8
0x23fa…2413 at0009 = ╱22╱"╱ // 0x2403 @0x9
0x23fa…2413 at000a = ╱ea╱ ; ╱ // 0x2404 @0xa
0x23fa…2413 at000b = ╱46╱F╱ // 0x2405 @0xb
0x23fa…2413 at000c = ╱4e╱N╱ // 0x2406 @0xc
0x23fa…2413 at000d = ╱41╱A╱ // 0x2407 @0xd
0x23fa…2413 at000e = ╱56╱V╱ // 0x2408 @0xe
0x23fa…2413 at000f = ╱4e╱N╱ // 0x2409 @0xf
0x23fa…2413 at0010 = ╱ef╱ $ ╱ // 0x240a @0x10
0x23fa…2413 at0011 = ╱ea╱ ; ╱ // 0x240b @0x11
0x23fa…2413 at0012 = ╱22╱"╱ // 0x240c @0x12
0x23fa…2413 at0013 = ╱20╱…╱ // 0x240d @0x13
0x23fa…2413 at0014 = ╱2a╱*╱ // 0x240e @0x14
0x23fa…2413 at0015 = ╱2a╱*╱ // 0x240f @0x15
0x23fa…2413 at0016 = ╱2a╱*╱ // 0x2410 @0x16
0x23fa…2413 at0017 = ╱22╱"╱ // 0x2411 @0x17
0x23fa…2413 at0018 = EOL // 0x2412 @0x18
0x23fa…2413 }
0x2413…2421 ba0f 03130 INPUT "" : SVAR $
0x2413…2421 LineComal80 {
0x2413…2421 ptr = 0xba0f // 0x2413 @0x0
0x2413…2421 lno = 0x0c3a // 0x2415 @0x2
0x2413…2421 at0004 = ╱91╱ INPUT ╱ // 0x2417 @0x4
0x2413…2421 at0005 = ╱22╱"╱ // 0x2418 @0x5
0x2413…2421 at0006 = ╱22╱"╱ // 0x2419 @0x6
0x2413…2421 at0007 = ╱f1╱ : ╱ // 0x241a @0x7
0x2413…2421 at0008 = ╱53╱S╱ // 0x241b @0x8
0x2413…2421 at0009 = ╱56╱V╱ // 0x241c @0x9
0x2413…2421 at000a = ╱41╱A╱ // 0x241d @0xa
0x2413…2421 at000b = ╱52╱R╱ // 0x241e @0xb
0x2413…2421 at000c = ╱ef╱ $ ╱ // 0x241f @0xc
0x2413…2421 at000d = EOL // 0x2420 @0xd
0x2413…2421 }
0x2421…2435 ba23 03140 PRINT "<C0102>" ; SPC $
0x2421…2435 LineComal80 {
0x2421…2435 ptr = 0xba23 // 0x2421 @0x0
0x2421…2435 lno = 0x0c44 // 0x2423 @0x2
0x2421…2435 at0004 = ╱92╱ PRINT ╱ // 0x2425 @0x4
0x2421…2435 at0005 = ╱22╱"╱ // 0x2426 @0x5
0x2421…2435 at0006 = ╱3c╱<╱ // 0x2427 @0x6
0x2421…2435 at0007 = ╱43╱C╱ // 0x2428 @0x7
0x2421…2435 at0008 = ╱30╱0╱ // 0x2429 @0x8
0x2421…2435 at0009 = ╱31╱1╱ // 0x242a @0x9
0x2421…2435 at000a = ╱30╱0╱ // 0x242b @0xa
0x2421…2435 at000b = ╱32╱2╱ // 0x242c @0xb
0x2421…2435 at000c = ╱3e╱>╱ // 0x242d @0xc
0x2421…2435 at000d = ╱22╱"╱ // 0x242e @0xd
0x2421…2435 at000e = ╱ea╱ ; ╱ // 0x242f @0xe
0x2421…2435 at000f = ╱53╱S╱ // 0x2430 @0xf
0x2421…2435 at0010 = ╱50╱P╱ // 0x2431 @0x10
0x2421…2435 at0011 = ╱43╱C╱ // 0x2432 @0x11
0x2421…2435 at0012 = ╱ef╱ $ ╱ // 0x2433 @0x12
0x2421…2435 at0013 = EOL // 0x2434 @0x13
0x2421…2435 }
0x2435…243b ba29 03150 ENDIF
0x2435…243b LineComal80 {
0x2435…243b ptr = 0xba29 // 0x2435 @0x0
0x2435…243b lno = 0x0c4e // 0x2437 @0x2
0x2435…243b at0004 = ╱9c╱ ENDIF ╱ // 0x2439 @0x4
0x2435…243b at0005 = EOL // 0x243a @0x5
0x2435…243b }
0x243b…2441 ba2f 03160 ENDIF
0x243b…2441 LineComal80 {
0x243b…2441 ptr = 0xba2f // 0x243b @0x0
0x243b…2441 lno = 0x0c58 // 0x243d @0x2
0x243b…2441 at0004 = ╱9c╱ ENDIF ╱ // 0x243f @0x4
0x243b…2441 at0005 = EOL // 0x2440 @0x5
0x243b…2441 }
0x2441…2451 ba3f 03170 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x2441…2451 LineComal80 {
0x2441…2451 ptr = 0xba3f // 0x2441 @0x0
0x2441…2451 lno = 0x0c62 // 0x2443 @0x2
0x2441…2451 at0004 = ╱98╱ UNTIL ╱ // 0x2445 @0x4
0x2441…2451 at0005 = ╱d7╱ NOT ╱ // 0x2446 @0x5
0x2441…2451 at0006 = ╱cd╱ // 0x2447 @0x6
0x2441…2451 at0007 = ╱ed╱ ( ╱ // 0x2448 @0x7
0x2441…2451 at0008 = ╱46╱F╱ // 0x2449 @0x8
0x2441…2451 at0009 = ╱4e╱N╱ // 0x244a @0x9
0x2441…2451 at000a = ╱41╱A╱ // 0x244b @0xa
0x2441…2451 at000b = ╱56╱V╱ // 0x244c @0xb
0x2441…2451 at000c = ╱4e╱N╱ // 0x244d @0xc
0x2441…2451 at000d = ╱ef╱ $ ╱ // 0x244e @0xd
0x2441…2451 at000e = ╱ee╱ ) ╱ // 0x244f @0xe
0x2441…2451 at000f = EOL // 0x2450 @0xf
0x2441…2451 }
0x2451…245e ba4c 03180 ENDPROC OPENFIL
0x2451…245e LineComal80 {
0x2451…245e ptr = 0xba4c // 0x2451 @0x0
0x2451…245e lno = 0x0c6c // 0x2453 @0x2
0x2451…245e at0004 = ╱9f╱ ENDPROC ╱ // 0x2455 @0x4
0x2451…245e at0005 = ╱4f╱O╱ // 0x2456 @0x5
0x2451…245e at0006 = ╱50╱P╱ // 0x2457 @0x6
0x2451…245e at0007 = ╱45╱E╱ // 0x2458 @0x7
0x2451…245e at0008 = ╱4e╱N╱ // 0x2459 @0x8
0x2451…245e at0009 = ╱46╱F╱ // 0x245a @0x9
0x2451…245e at000a = ╱49╱I╱ // 0x245b @0xa
0x2451…245e at000b = ╱4c╱L╱ // 0x245c @0xb
0x2451…245e at000c = EOL // 0x245d @0xc
0x2451…245e }
0x245e…2471 ba5f 03190 PROC TERMINAL_IDX
0x245e…2471 LineComal80 {
0x245e…2471 ptr = 0xba5f // 0x245e @0x0
0x245e…2471 lno = 0x0c76 // 0x2460 @0x2
0x245e…2471 at0004 = ╱9e00╱ PROC ╱ // 0x2462 @0x4
0x245e…2471 at0006 = ╱54╱T╱ // 0x2464 @0x6
0x245e…2471 at0007 = ╱45╱E╱ // 0x2465 @0x7
0x245e…2471 at0008 = ╱52╱R╱ // 0x2466 @0x8
0x245e…2471 at0009 = ╱4d╱M╱ // 0x2467 @0x9
0x245e…2471 at000a = ╱49╱I╱ // 0x2468 @0xa
0x245e…2471 at000b = ╱4e╱N╱ // 0x2469 @0xb
0x245e…2471 at000c = ╱41╱A╱ // 0x246a @0xc
0x245e…2471 at000d = ╱4c╱L╱ // 0x246b @0xd
0x245e…2471 at000e = ╱5f╱_╱ // 0x246c @0xe
0x245e…2471 at000f = ╱49╱I╱ // 0x246d @0xf
0x245e…2471 at0010 = ╱44╱D╱ // 0x246e @0x10
0x245e…2471 at0011 = ╱58╱X╱ // 0x246f @0x11
0x245e…2471 at0012 = EOL // 0x2470 @0x12
0x245e…2471 }
0x2471…248b ba79 03200 LET PPAR := 5 ; RESRV := 0
0x2471…248b LineComal80 {
0x2471…248b ptr = 0xba79 // 0x2471 @0x0
0x2471…248b lno = 0x0c80 // 0x2473 @0x2
0x2471…248b at0004 = ╱86╱ LET ╱ // 0x2475 @0x4
0x2471…248b at0005 = ╱50╱P╱ // 0x2476 @0x5
0x2471…248b at0006 = ╱50╱P╱ // 0x2477 @0x6
0x2471…248b at0007 = ╱41╱A╱ // 0x2478 @0x7
0x2471…248b at0008 = ╱52╱R╱ // 0x2479 @0x8
0x2471…248b at0009 = ╱f0╱ := ╱ // 0x247a @0x9
0x2471…248b at000a = ╱35╱5╱ // 0x247b @0xa
0x2471…248b at000b = ╱f20500╱ // 0x247c @0xb
0x2471…248b at000e = ╱ea╱ ; ╱ // 0x247f @0xe
0x2471…248b at000f = ╱52╱R╱ // 0x2480 @0xf
0x2471…248b at0010 = ╱45╱E╱ // 0x2481 @0x10
0x2471…248b at0011 = ╱53╱S╱ // 0x2482 @0x11
0x2471…248b at0012 = ╱52╱R╱ // 0x2483 @0x12
0x2471…248b at0013 = ╱56╱V╱ // 0x2484 @0x13
0x2471…248b at0014 = ╱f0╱ := ╱ // 0x2485 @0x14
0x2471…248b at0015 = ╱30╱0╱ // 0x2486 @0x15
0x2471…248b at0016 = ╱f20000╱ // 0x2487 @0x16
0x2471…248b at0019 = EOL // 0x248a @0x19
0x2471…248b }
0x248b…249d ba8b 03210 CALL E"DDE:PRES"
0x248b…249d LineComal80 {
0x248b…249d ptr = 0xba8b // 0x248b @0x0
0x248b…249d lno = 0x0c8a // 0x248d @0x2
0x248b…249d at0004 = ╱ad52╱ CALL ╱ // 0x248f @0x4
0x248b…249d at0006 = ╱45╱E╱ // 0x2491 @0x6
0x248b…249d at0007 = ╱22╱"╱ // 0x2492 @0x7
0x248b…249d at0008 = ╱44╱D╱ // 0x2493 @0x8
0x248b…249d at0009 = ╱44╱D╱ // 0x2494 @0x9
0x248b…249d at000a = ╱45╱E╱ // 0x2495 @0xa
0x248b…249d at000b = ╱3a╱:╱ // 0x2496 @0xb
0x248b…249d at000c = ╱50╱P╱ // 0x2497 @0xc
0x248b…249d at000d = ╱52╱R╱ // 0x2498 @0xd
0x248b…249d at000e = ╱45╱E╱ // 0x2499 @0xe
0x248b…249d at000f = ╱53╱S╱ // 0x249a @0xf
0x248b…249d at0010 = ╱22╱"╱ // 0x249b @0x10
0x248b…249d at0011 = EOL // 0x249c @0x11
0x248b…249d }
0x249d…24c6 bab4 03220 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x249d…24c6 LineComal80 {
0x249d…24c6 ptr = 0xbab4 // 0x249d @0x0
0x249d…24c6 lno = 0x0c94 // 0x249f @0x2
0x249d…24c6 at0004 = ╱a9╱ GET ╱ // 0x24a1 @0x4
0x249d…24c6 at0005 = ╱53╱S╱ // 0x24a2 @0x5
0x249d…24c6 at0006 = ╱59╱Y╱ // 0x24a3 @0x6
0x249d…24c6 at0007 = ╱53╱S╱ // 0x24a4 @0x7
0x249d…24c6 at0008 = ╱50╱P╱ // 0x24a5 @0x8
0x249d…24c6 at0009 = ╱41╱A╱ // 0x24a6 @0x9
0x249d…24c6 at000a = ╱52╱R╱ // 0x24a7 @0xa
0x249d…24c6 at000b = ╱41╱A╱ // 0x24a8 @0xb
0x249d…24c6 at000c = ╱ef╱ $ ╱ // 0x24a9 @0xc
0x249d…24c6 at000d = ╱ec╱ , ╱ // 0x24aa @0xd
0x249d…24c6 at000e = ╱31╱1╱ // 0x24ab @0xe
0x249d…24c6 at000f = ╱f20100╱ // 0x24ac @0xf
0x249d…24c6 at0012 = ╱e5╱ + ╱ // 0x24af @0x12
0x249d…24c6 at0013 = ╱52╱R╱ // 0x24b0 @0x13
0x249d…24c6 at0014 = ╱45╱E╱ // 0x24b1 @0x14
0x249d…24c6 at0015 = ╱53╱S╱ // 0x24b2 @0x15
0x249d…24c6 at0016 = ╱52╱R╱ // 0x24b3 @0x16
0x249d…24c6 at0017 = ╱56╱V╱ // 0x24b4 @0x17
0x249d…24c6 at0018 = ╱f1╱ : ╱ // 0x24b5 @0x18
0x249d…24c6 at0019 = ╱44╱D╱ // 0x24b6 @0x19
0x249d…24c6 at001a = ╱41╱A╱ // 0x24b7 @0x1a
0x249d…24c6 at001b = ╱54╱T╱ // 0x24b8 @0x1b
0x249d…24c6 at001c = ╱41╱A╱ // 0x24b9 @0x1c
0x249d…24c6 at001d = ╱46╱F╱ // 0x24ba @0x1d
0x249d…24c6 at001e = ╱4c╱L╱ // 0x24bb @0x1e
0x249d…24c6 at001f = ╱ef╱ $ ╱ // 0x24bc @0x1f
0x249d…24c6 at0020 = ╱ec╱ , ╱ // 0x24bd @0x20
0x249d…24c6 at0021 = ╱54╱T╱ // 0x24be @0x21
0x249d…24c6 at0022 = ╱5f╱_╱ // 0x24bf @0x22
0x249d…24c6 at0023 = ╱4b╱K╱ // 0x24c0 @0x23
0x249d…24c6 at0024 = ╱4f╱O╱ // 0x24c1 @0x24
0x249d…24c6 at0025 = ╱44╱D╱ // 0x24c2 @0x25
0x249d…24c6 at0026 = ╱45╱E╱ // 0x24c3 @0x26
0x249d…24c6 at0027 = ╱ef╱ $ ╱ // 0x24c4 @0x27
0x249d…24c6 at0028 = EOL // 0x24c5 @0x28
0x249d…24c6 }
0x24c6…24d8 bac6 03230 ENDPROC TERMINAL_IDX
0x24c6…24d8 LineComal80 {
0x24c6…24d8 ptr = 0xbac6 // 0x24c6 @0x0
0x24c6…24d8 lno = 0x0c9e // 0x24c8 @0x2
0x24c6…24d8 at0004 = ╱9f╱ ENDPROC ╱ // 0x24ca @0x4
0x24c6…24d8 at0005 = ╱54╱T╱ // 0x24cb @0x5
0x24c6…24d8 at0006 = ╱45╱E╱ // 0x24cc @0x6
0x24c6…24d8 at0007 = ╱52╱R╱ // 0x24cd @0x7
0x24c6…24d8 at0008 = ╱4d╱M╱ // 0x24ce @0x8
0x24c6…24d8 at0009 = ╱49╱I╱ // 0x24cf @0x9
0x24c6…24d8 at000a = ╱4e╱N╱ // 0x24d0 @0xa
0x24c6…24d8 at000b = ╱41╱A╱ // 0x24d1 @0xb
0x24c6…24d8 at000c = ╱4c╱L╱ // 0x24d2 @0xc
0x24c6…24d8 at000d = ╱5f╱_╱ // 0x24d3 @0xd
0x24c6…24d8 at000e = ╱49╱I╱ // 0x24d4 @0xe
0x24c6…24d8 at000f = ╱44╱D╱ // 0x24d5 @0xf
0x24c6…24d8 at0010 = ╱58╱X╱ // 0x24d6 @0x10
0x24c6…24d8 at0011 = EOL // 0x24d7 @0x11
0x24c6…24d8 }
0x24d8…24eb bad9 03240 PROC SL_FEJLLINIE
0x24d8…24eb LineComal80 {
0x24d8…24eb ptr = 0xbad9 // 0x24d8 @0x0
0x24d8…24eb lno = 0x0ca8 // 0x24da @0x2
0x24d8…24eb at0004 = ╱9e00╱ PROC ╱ // 0x24dc @0x4
0x24d8…24eb at0006 = ╱53╱S╱ // 0x24de @0x6
0x24d8…24eb at0007 = ╱4c╱L╱ // 0x24df @0x7
0x24d8…24eb at0008 = ╱5f╱_╱ // 0x24e0 @0x8
0x24d8…24eb at0009 = ╱46╱F╱ // 0x24e1 @0x9
0x24d8…24eb at000a = ╱45╱E╱ // 0x24e2 @0xa
0x24d8…24eb at000b = ╱4a╱J╱ // 0x24e3 @0xb
0x24d8…24eb at000c = ╱4c╱L╱ // 0x24e4 @0xc
0x24d8…24eb at000d = ╱4c╱L╱ // 0x24e5 @0xd
0x24d8…24eb at000e = ╱49╱I╱ // 0x24e6 @0xe
0x24d8…24eb at000f = ╱4e╱N╱ // 0x24e7 @0xf
0x24d8…24eb at0010 = ╱49╱I╱ // 0x24e8 @0x10
0x24d8…24eb at0011 = ╱45╱E╱ // 0x24e9 @0x11
0x24d8…24eb at0012 = EOL // 0x24ea @0x12
0x24d8…24eb }
0x24eb…24f8 bae6 03250 LET OK := TRUE
0x24eb…24f8 LineComal80 {
0x24eb…24f8 ptr = 0xbae6 // 0x24eb @0x0
0x24eb…24f8 lno = 0x0cb2 // 0x24ed @0x2
0x24eb…24f8 at0004 = ╱86╱ LET ╱ // 0x24ef @0x4
0x24eb…24f8 at0005 = ╱4f╱O╱ // 0x24f0 @0x5
0x24eb…24f8 at0006 = ╱4b╱K╱ // 0x24f1 @0x6
0x24eb…24f8 at0007 = ╱f0╱ := ╱ // 0x24f2 @0x7
0x24eb…24f8 at0008 = ╱54╱T╱ // 0x24f3 @0x8
0x24eb…24f8 at0009 = ╱52╱R╱ // 0x24f4 @0x9
0x24eb…24f8 at000a = ╱55╱U╱ // 0x24f5 @0xa
0x24eb…24f8 at000b = ╱45╱E╱ // 0x24f6 @0xb
0x24eb…24f8 at000c = EOL // 0x24f7 @0xc
0x24eb…24f8 }
0x24f8…250c bafa 03260 PRINT "<C0102>" ; SPC $
0x24f8…250c LineComal80 {
0x24f8…250c ptr = 0xbafa // 0x24f8 @0x0
0x24f8…250c lno = 0x0cbc // 0x24fa @0x2
0x24f8…250c at0004 = ╱92╱ PRINT ╱ // 0x24fc @0x4
0x24f8…250c at0005 = ╱22╱"╱ // 0x24fd @0x5
0x24f8…250c at0006 = ╱3c╱<╱ // 0x24fe @0x6
0x24f8…250c at0007 = ╱43╱C╱ // 0x24ff @0x7
0x24f8…250c at0008 = ╱30╱0╱ // 0x2500 @0x8
0x24f8…250c at0009 = ╱31╱1╱ // 0x2501 @0x9
0x24f8…250c at000a = ╱30╱0╱ // 0x2502 @0xa
0x24f8…250c at000b = ╱32╱2╱ // 0x2503 @0xb
0x24f8…250c at000c = ╱3e╱>╱ // 0x2504 @0xc
0x24f8…250c at000d = ╱22╱"╱ // 0x2505 @0xd
0x24f8…250c at000e = ╱ea╱ ; ╱ // 0x2506 @0xe
0x24f8…250c at000f = ╱53╱S╱ // 0x2507 @0xf
0x24f8…250c at0010 = ╱50╱P╱ // 0x2508 @0x10
0x24f8…250c at0011 = ╱43╱C╱ // 0x2509 @0x11
0x24f8…250c at0012 = ╱ef╱ $ ╱ // 0x250a @0x12
0x24f8…250c at0013 = EOL // 0x250b @0x13
0x24f8…250c }
0x250c…251e bb0c 03270 ENDPROC SL_FEJLLINIE
0x250c…251e LineComal80 {
0x250c…251e ptr = 0xbb0c // 0x250c @0x0
0x250c…251e lno = 0x0cc6 // 0x250e @0x2
0x250c…251e at0004 = ╱9f╱ ENDPROC ╱ // 0x2510 @0x4
0x250c…251e at0005 = ╱53╱S╱ // 0x2511 @0x5
0x250c…251e at0006 = ╱4c╱L╱ // 0x2512 @0x6
0x250c…251e at0007 = ╱5f╱_╱ // 0x2513 @0x7
0x250c…251e at0008 = ╱46╱F╱ // 0x2514 @0x8
0x250c…251e at0009 = ╱45╱E╱ // 0x2515 @0x9
0x250c…251e at000a = ╱4a╱J╱ // 0x2516 @0xa
0x250c…251e at000b = ╱4c╱L╱ // 0x2517 @0xb
0x250c…251e at000c = ╱4c╱L╱ // 0x2518 @0xc
0x250c…251e at000d = ╱49╱I╱ // 0x2519 @0xd
0x250c…251e at000e = ╱4e╱N╱ // 0x251a @0xe
0x250c…251e at000f = ╱49╱I╱ // 0x251b @0xf
0x250c…251e at0010 = ╱45╱E╱ // 0x251c @0x10
0x250c…251e at0011 = EOL // 0x251d @0x11
0x250c…251e }
0x251e…2523 bb11 03280
0x251e…2523 LineComal80 {
0x251e…2523 ptr = 0xbb11 // 0x251e @0x0
0x251e…2523 lno = 0x0cd0 // 0x2520 @0x2
0x251e…2523 at0004 = EOL // 0x2522 @0x4
0x251e…2523 }
0x2523…2533 bb21 03290 PROC FEJL ( ST $ )
0x2523…2533 LineComal80 {
0x2523…2533 ptr = 0xbb21 // 0x2523 @0x0
0x2523…2533 lno = 0x0cda // 0x2525 @0x2
0x2523…2533 at0004 = ╱9e00╱ PROC ╱ // 0x2527 @0x4
0x2523…2533 at0006 = ╱46╱F╱ // 0x2529 @0x6
0x2523…2533 at0007 = ╱45╱E╱ // 0x252a @0x7
0x2523…2533 at0008 = ╱4a╱J╱ // 0x252b @0x8
0x2523…2533 at0009 = ╱4c╱L╱ // 0x252c @0x9
0x2523…2533 at000a = ╱ed╱ ( ╱ // 0x252d @0xa
0x2523…2533 at000b = ╱53╱S╱ // 0x252e @0xb
0x2523…2533 at000c = ╱54╱T╱ // 0x252f @0xc
0x2523…2533 at000d = ╱ef╱ $ ╱ // 0x2530 @0xd
0x2523…2533 at000e = ╱ee╱ ) ╱ // 0x2531 @0xe
0x2523…2533 at000f = EOL // 0x2532 @0xf
0x2523…2533 }
0x2533…2541 bb2f 03300 LET OK := FALSE
0x2533…2541 LineComal80 {
0x2533…2541 ptr = 0xbb2f // 0x2533 @0x0
0x2533…2541 lno = 0x0ce4 // 0x2535 @0x2
0x2533…2541 at0004 = ╱86╱ LET ╱ // 0x2537 @0x4
0x2533…2541 at0005 = ╱4f╱O╱ // 0x2538 @0x5
0x2533…2541 at0006 = ╱4b╱K╱ // 0x2539 @0x6
0x2533…2541 at0007 = ╱f0╱ := ╱ // 0x253a @0x7
0x2533…2541 at0008 = ╱46╱F╱ // 0x253b @0x8
0x2533…2541 at0009 = ╱41╱A╱ // 0x253c @0x9
0x2533…2541 at000a = ╱4c╱L╱ // 0x253d @0xa
0x2533…2541 at000b = ╱53╱S╱ // 0x253e @0xb
0x2533…2541 at000c = ╱45╱E╱ // 0x253f @0xc
0x2533…2541 at000d = EOL // 0x2540 @0xd
0x2533…2541 }
0x2541…255f bb4d 03310 CURSOR 36 - ( ╱cb╱ ( ST $ ) / 2 ) , 2
0x2541…255f LineComal80 {
0x2541…255f ptr = 0xbb4d // 0x2541 @0x0
0x2541…255f lno = 0x0cee // 0x2543 @0x2
0x2541…255f at0004 = ╱a1╱ CURSOR ╱ // 0x2545 @0x4
0x2541…255f at0005 = ╱33╱3╱ // 0x2546 @0x5
0x2541…255f at0006 = ╱36╱6╱ // 0x2547 @0x6
0x2541…255f at0007 = ╱f22400╱ // 0x2548 @0x7
0x2541…255f at000a = ╱e6╱ - ╱ // 0x254b @0xa
0x2541…255f at000b = ╱ed╱ ( ╱ // 0x254c @0xb
0x2541…255f at000c = ╱cb╱ // 0x254d @0xc
0x2541…255f at000d = ╱ed╱ ( ╱ // 0x254e @0xd
0x2541…255f at000e = ╱53╱S╱ // 0x254f @0xe
0x2541…255f at000f = ╱54╱T╱ // 0x2550 @0xf
0x2541…255f at0010 = ╱ef╱ $ ╱ // 0x2551 @0x10
0x2541…255f at0011 = ╱ee╱ ) ╱ // 0x2552 @0x11
0x2541…255f at0012 = ╱e8╱ / ╱ // 0x2553 @0x12
0x2541…255f at0013 = ╱32╱2╱ // 0x2554 @0x13
0x2541…255f at0014 = ╱f20200╱ // 0x2555 @0x14
0x2541…255f at0017 = ╱ee╱ ) ╱ // 0x2558 @0x17
0x2541…255f at0018 = ╱ec╱ , ╱ // 0x2559 @0x18
0x2541…255f at0019 = ╱32╱2╱ // 0x255a @0x19
0x2541…255f at001a = ╱f20200╱ // 0x255b @0x1a
0x2541…255f at001d = EOL // 0x255e @0x1d
0x2541…255f }
0x255f…2581 bb6f 03320 PRINT "<S>***…" + ST $ + "…***" ; CHR$ ( 7 )
0x255f…2581 LineComal80 {
0x255f…2581 ptr = 0xbb6f // 0x255f @0x0
0x255f…2581 lno = 0x0cf8 // 0x2561 @0x2
0x255f…2581 at0004 = ╱92╱ PRINT ╱ // 0x2563 @0x4
0x255f…2581 at0005 = ╱22╱"╱ // 0x2564 @0x5
0x255f…2581 at0006 = ╱3c╱<╱ // 0x2565 @0x6
0x255f…2581 at0007 = ╱53╱S╱ // 0x2566 @0x7
0x255f…2581 at0008 = ╱3e╱>╱ // 0x2567 @0x8
0x255f…2581 at0009 = ╱2a╱*╱ // 0x2568 @0x9
0x255f…2581 at000a = ╱2a╱*╱ // 0x2569 @0xa
0x255f…2581 at000b = ╱2a╱*╱ // 0x256a @0xb
0x255f…2581 at000c = ╱20╱…╱ // 0x256b @0xc
0x255f…2581 at000d = ╱22╱"╱ // 0x256c @0xd
0x255f…2581 at000e = ╱eb╱ + ╱ // 0x256d @0xe
0x255f…2581 at000f = ╱53╱S╱ // 0x256e @0xf
0x255f…2581 at0010 = ╱54╱T╱ // 0x256f @0x10
0x255f…2581 at0011 = ╱ef╱ $ ╱ // 0x2570 @0x11
0x255f…2581 at0012 = ╱eb╱ + ╱ // 0x2571 @0x12
0x255f…2581 at0013 = ╱22╱"╱ // 0x2572 @0x13
0x255f…2581 at0014 = ╱20╱…╱ // 0x2573 @0x14
0x255f…2581 at0015 = ╱2a╱*╱ // 0x2574 @0x15
0x255f…2581 at0016 = ╱2a╱*╱ // 0x2575 @0x16
0x255f…2581 at0017 = ╱2a╱*╱ // 0x2576 @0x17
0x255f…2581 at0018 = ╱22╱"╱ // 0x2577 @0x18
0x255f…2581 at0019 = ╱ea╱ ; ╱ // 0x2578 @0x19
0x255f…2581 at001a = ╱d0╱ CHR$ ╱ // 0x2579 @0x1a
0x255f…2581 at001b = ╱ed╱ ( ╱ // 0x257a @0x1b
0x255f…2581 at001c = ╱37╱7╱ // 0x257b @0x1c
0x255f…2581 at001d = ╱f20700╱ // 0x257c @0x1d
0x255f…2581 at0020 = ╱ee╱ ) ╱ // 0x257f @0x20
0x255f…2581 at0021 = EOL // 0x2580 @0x21
0x255f…2581 }
0x2581…258b bb79 03330 ENDPROC FEJL
0x2581…258b LineComal80 {
0x2581…258b ptr = 0xbb79 // 0x2581 @0x0
0x2581…258b lno = 0x0d02 // 0x2583 @0x2
0x2581…258b at0004 = ╱9f╱ ENDPROC ╱ // 0x2585 @0x4
0x2581…258b at0005 = ╱46╱F╱ // 0x2586 @0x5
0x2581…258b at0006 = ╱45╱E╱ // 0x2587 @0x6
0x2581…258b at0007 = ╱4a╱J╱ // 0x2588 @0x7
0x2581…258b at0008 = ╱4c╱L╱ // 0x2589 @0x8
0x2581…258b at0009 = EOL // 0x258a @0x9
0x2581…258b }
0x258b…25a3 bb91 03340 PROC OVERSKRIFT ( ST $ , L )
0x258b…25a3 LineComal80 {
0x258b…25a3 ptr = 0xbb91 // 0x258b @0x0
0x258b…25a3 lno = 0x0d0c // 0x258d @0x2
0x258b…25a3 at0004 = ╱9e00╱ PROC ╱ // 0x258f @0x4
0x258b…25a3 at0006 = ╱4f╱O╱ // 0x2591 @0x6
0x258b…25a3 at0007 = ╱56╱V╱ // 0x2592 @0x7
0x258b…25a3 at0008 = ╱45╱E╱ // 0x2593 @0x8
0x258b…25a3 at0009 = ╱52╱R╱ // 0x2594 @0x9
0x258b…25a3 at000a = ╱53╱S╱ // 0x2595 @0xa
0x258b…25a3 at000b = ╱4b╱K╱ // 0x2596 @0xb
0x258b…25a3 at000c = ╱52╱R╱ // 0x2597 @0xc
0x258b…25a3 at000d = ╱49╱I╱ // 0x2598 @0xd
0x258b…25a3 at000e = ╱46╱F╱ // 0x2599 @0xe
0x258b…25a3 at000f = ╱54╱T╱ // 0x259a @0xf
0x258b…25a3 at0010 = ╱ed╱ ( ╱ // 0x259b @0x10
0x258b…25a3 at0011 = ╱53╱S╱ // 0x259c @0x11
0x258b…25a3 at0012 = ╱54╱T╱ // 0x259d @0x12
0x258b…25a3 at0013 = ╱ef╱ $ ╱ // 0x259e @0x13
0x258b…25a3 at0014 = ╱ec╱ , ╱ // 0x259f @0x14
0x258b…25a3 at0015 = ╱4c╱L╱ // 0x25a0 @0x15
0x258b…25a3 at0016 = ╱ee╱ ) ╱ // 0x25a1 @0x16
0x258b…25a3 at0017 = EOL // 0x25a2 @0x17
0x258b…25a3 }
0x25a3…25c9 bbb7 03350 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x25a3…25c9 LineComal80 {
0x25a3…25c9 ptr = 0xbbb7 // 0x25a3 @0x0
0x25a3…25c9 lno = 0x0d16 // 0x25a5 @0x2
0x25a3…25c9 at0004 = ╱92╱ PRINT ╱ // 0x25a7 @0x4
0x25a3…25c9 at0005 = ╱22╱"╱ // 0x25a8 @0x5
0x25a3…25c9 at0006 = ╱3c╱<╱ // 0x25a9 @0x6
0x25a3…25c9 at0007 = ╱58╱X╱ // 0x25aa @0x7
0x25a3…25c9 at0008 = ╱43╱C╱ // 0x25ab @0x8
0x25a3…25c9 at0009 = ╱30╱0╱ // 0x25ac @0x9
0x25a3…25c9 at000a = ╱31╱1╱ // 0x25ad @0xa
0x25a3…25c9 at000b = ╱30╱0╱ // 0x25ae @0xb
0x25a3…25c9 at000c = ╱31╱1╱ // 0x25af @0xc
0x25a3…25c9 at000d = ╱3e╱>╱ // 0x25b0 @0xd
0x25a3…25c9 at000e = ╱46╱F╱ // 0x25b1 @0xe
0x25a3…25c9 at000f = ╱69╱i╱ // 0x25b2 @0xf
0x25a3…25c9 at0010 = ╱72╱r╱ // 0x25b3 @0x10
0x25a3…25c9 at0011 = ╱6d╱m╱ // 0x25b4 @0x11
0x25a3…25c9 at0012 = ╱61╱a╱ // 0x25b5 @0x12
0x25a3…25c9 at0013 = ╱6e╱n╱ // 0x25b6 @0x13
0x25a3…25c9 at0014 = ╱61╱a╱ // 0x25b7 @0x14
0x25a3…25c9 at0015 = ╱76╱v╱ // 0x25b8 @0x15
0x25a3…25c9 at0016 = ╱6e╱n╱ // 0x25b9 @0x16
0x25a3…25c9 at0017 = ╱3a╱:╱ // 0x25ba @0x17
0x25a3…25c9 at0018 = ╱20╱…╱ // 0x25bb @0x18
0x25a3…25c9 at0019 = ╱22╱"╱ // 0x25bc @0x19
0x25a3…25c9 at001a = ╱ea╱ ; ╱ // 0x25bd @0x1a
0x25a3…25c9 at001b = ╱46╱F╱ // 0x25be @0x1b
0x25a3…25c9 at001c = ╱49╱I╱ // 0x25bf @0x1c
0x25a3…25c9 at001d = ╱52╱R╱ // 0x25c0 @0x1d
0x25a3…25c9 at001e = ╱4d╱M╱ // 0x25c1 @0x1e
0x25a3…25c9 at001f = ╱41╱A╱ // 0x25c2 @0x1f
0x25a3…25c9 at0020 = ╱4e╱N╱ // 0x25c3 @0x20
0x25a3…25c9 at0021 = ╱41╱A╱ // 0x25c4 @0x21
0x25a3…25c9 at0022 = ╱56╱V╱ // 0x25c5 @0x22
0x25a3…25c9 at0023 = ╱4e╱N╱ // 0x25c6 @0x23
0x25a3…25c9 at0024 = ╱ef╱ $ ╱ // 0x25c7 @0x24
0x25a3…25c9 at0025 = EOL // 0x25c8 @0x25
0x25a3…25c9 }
0x25c9…2611 bbff 03360 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x25c9…2611 LineComal80 {
0x25c9…2611 ptr = 0xbbff // 0x25c9 @0x0
0x25c9…2611 lno = 0x0d20 // 0x25cb @0x2
0x25c9…2611 at0004 = ╱92╱ PRINT ╱ // 0x25cd @0x4
0x25c9…2611 at0005 = ╱22╱"╱ // 0x25ce @0x5
0x25c9…2611 at0006 = ╱3c╱<╱ // 0x25cf @0x6
0x25c9…2611 at0007 = ╱53╱S╱ // 0x25d0 @0x7
0x25c9…2611 at0008 = ╱43╱C╱ // 0x25d1 @0x8
0x25c9…2611 at0009 = ╱36╱6╱ // 0x25d2 @0x9
0x25c9…2611 at000a = ╱35╱5╱ // 0x25d3 @0xa
0x25c9…2611 at000b = ╱30╱0╱ // 0x25d4 @0xb
0x25c9…2611 at000c = ╱31╱1╱ // 0x25d5 @0xc
0x25c9…2611 at000d = ╱3e╱>╱ // 0x25d6 @0xd
0x25c9…2611 at000e = ╱44╱D╱ // 0x25d7 @0xe
0x25c9…2611 at000f = ╱61╱a╱ // 0x25d8 @0xf
0x25c9…2611 at0010 = ╱74╱t╱ // 0x25d9 @0x10
0x25c9…2611 at0011 = ╱6f╱o╱ // 0x25da @0x11
0x25c9…2611 at0012 = ╱3a╱:╱ // 0x25db @0x12
0x25c9…2611 at0013 = ╱20╱…╱ // 0x25dc @0x13
0x25c9…2611 at0014 = ╱22╱"╱ // 0x25dd @0x14
0x25c9…2611 at0015 = ╱ea╱ ; ╱ // 0x25de @0x15
0x25c9…2611 at0016 = ╱53╱S╱ // 0x25df @0x16
0x25c9…2611 at0017 = ╱59╱Y╱ // 0x25e0 @0x17
0x25c9…2611 at0018 = ╱53╱S╱ // 0x25e1 @0x18
0x25c9…2611 at0019 = ╱54╱T╱ // 0x25e2 @0x19
0x25c9…2611 at001a = ╱5f╱_╱ // 0x25e3 @0x1a
0x25c9…2611 at001b = ╱44╱D╱ // 0x25e4 @0x1b
0x25c9…2611 at001c = ╱41╱A╱ // 0x25e5 @0x1c
0x25c9…2611 at001d = ╱54╱T╱ // 0x25e6 @0x1d
0x25c9…2611 at001e = ╱ef╱ $ ╱ // 0x25e7 @0x1e
0x25c9…2611 at001f = ╱ed╱ ( ╱ // 0x25e8 @0x1f
0x25c9…2611 at0020 = ╱31╱1╱ // 0x25e9 @0x20
0x25c9…2611 at0021 = ╱f20100╱ // 0x25ea @0x21
0x25c9…2611 at0024 = ╱f1╱ : ╱ // 0x25ed @0x24
0x25c9…2611 at0025 = ╱32╱2╱ // 0x25ee @0x25
0x25c9…2611 at0026 = ╱f20200╱ // 0x25ef @0x26
0x25c9…2611 at0029 = ╱ee╱ ) ╱ // 0x25f2 @0x29
0x25c9…2611 at002a = ╱ea╱ ; ╱ // 0x25f3 @0x2a
0x25c9…2611 at002b = ╱22╱"╱ // 0x25f4 @0x2b
0x25c9…2611 at002c = ╱2e╱.╱ // 0x25f5 @0x2c
0x25c9…2611 at002d = ╱22╱"╱ // 0x25f6 @0x2d
0x25c9…2611 at002e = ╱ea╱ ; ╱ // 0x25f7 @0x2e
0x25c9…2611 at002f = ╱53╱S╱ // 0x25f8 @0x2f
0x25c9…2611 at0030 = ╱59╱Y╱ // 0x25f9 @0x30
0x25c9…2611 at0031 = ╱53╱S╱ // 0x25fa @0x31
0x25c9…2611 at0032 = ╱54╱T╱ // 0x25fb @0x32
0x25c9…2611 at0033 = ╱5f╱_╱ // 0x25fc @0x33
0x25c9…2611 at0034 = ╱44╱D╱ // 0x25fd @0x34
0x25c9…2611 at0035 = ╱41╱A╱ // 0x25fe @0x35
0x25c9…2611 at0036 = ╱54╱T╱ // 0x25ff @0x36
0x25c9…2611 at0037 = ╱ef╱ $ ╱ // 0x2600 @0x37
0x25c9…2611 at0038 = ╱ed╱ ( ╱ // 0x2601 @0x38
0x25c9…2611 at0039 = ╱33╱3╱ // 0x2602 @0x39
0x25c9…2611 at003a = ╱f20300╱ // 0x2603 @0x3a
0x25c9…2611 at003d = ╱f1╱ : ╱ // 0x2606 @0x3d
0x25c9…2611 at003e = ╱32╱2╱ // 0x2607 @0x3e
0x25c9…2611 at003f = ╱f20200╱ // 0x2608 @0x3f
0x25c9…2611 at0042 = ╱ee╱ ) ╱ // 0x260b @0x42
0x25c9…2611 at0043 = ╱ea╱ ; ╱ // 0x260c @0x43
0x25c9…2611 at0044 = ╱22╱"╱ // 0x260d @0x44
0x25c9…2611 at0045 = ╱2e╱.╱ // 0x260e @0x45
0x25c9…2611 at0046 = ╱22╱"╱ // 0x260f @0x46
0x25c9…2611 at0047 = EOL // 0x2610 @0x47
0x25c9…2611 }
0x2611…262b bc19 03370 PRINT SYST_DAT $ ( 5 : 2 )
0x2611…262b LineComal80 {
0x2611…262b ptr = 0xbc19 // 0x2611 @0x0
0x2611…262b lno = 0x0d2a // 0x2613 @0x2
0x2611…262b at0004 = ╱92╱ PRINT ╱ // 0x2615 @0x4
0x2611…262b at0005 = ╱53╱S╱ // 0x2616 @0x5
0x2611…262b at0006 = ╱59╱Y╱ // 0x2617 @0x6
0x2611…262b at0007 = ╱53╱S╱ // 0x2618 @0x7
0x2611…262b at0008 = ╱54╱T╱ // 0x2619 @0x8
0x2611…262b at0009 = ╱5f╱_╱ // 0x261a @0x9
0x2611…262b at000a = ╱44╱D╱ // 0x261b @0xa
0x2611…262b at000b = ╱41╱A╱ // 0x261c @0xb
0x2611…262b at000c = ╱54╱T╱ // 0x261d @0xc
0x2611…262b at000d = ╱ef╱ $ ╱ // 0x261e @0xd
0x2611…262b at000e = ╱ed╱ ( ╱ // 0x261f @0xe
0x2611…262b at000f = ╱35╱5╱ // 0x2620 @0xf
0x2611…262b at0010 = ╱f20500╱ // 0x2621 @0x10
0x2611…262b at0013 = ╱f1╱ : ╱ // 0x2624 @0x13
0x2611…262b at0014 = ╱32╱2╱ // 0x2625 @0x14
0x2611…262b at0015 = ╱f20200╱ // 0x2626 @0x15
0x2611…262b at0018 = ╱ee╱ ) ╱ // 0x2629 @0x18
0x2611…262b at0019 = EOL // 0x262a @0x19
0x2611…262b }
0x262b…2647 bc35 03380 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
0x262b…2647 LineComal80 {
0x262b…2647 ptr = 0xbc35 // 0x262b @0x0
0x262b…2647 lno = 0x0d34 // 0x262d @0x2
0x262b…2647 at0004 = ╱a1╱ CURSOR ╱ // 0x262f @0x4
0x262b…2647 at0005 = ╱33╱3╱ // 0x2630 @0x5
0x262b…2647 at0006 = ╱34╱4╱ // 0x2631 @0x6
0x262b…2647 at0007 = ╱f22200╱ // 0x2632 @0x7
0x262b…2647 at000a = ╱e6╱ - ╱ // 0x2635 @0xa
0x262b…2647 at000b = ╱c6╱ INT ╱ // 0x2636 @0xb
0x262b…2647 at000c = ╱ed╱ ( ╱ // 0x2637 @0xc
0x262b…2647 at000d = ╱cb╱ // 0x2638 @0xd
0x262b…2647 at000e = ╱ed╱ ( ╱ // 0x2639 @0xe
0x262b…2647 at000f = ╱53╱S╱ // 0x263a @0xf
0x262b…2647 at0010 = ╱54╱T╱ // 0x263b @0x10
0x262b…2647 at0011 = ╱ef╱ $ ╱ // 0x263c @0x11
0x262b…2647 at0012 = ╱ee╱ ) ╱ // 0x263d @0x12
0x262b…2647 at0013 = ╱e8╱ / ╱ // 0x263e @0x13
0x262b…2647 at0014 = ╱32╱2╱ // 0x263f @0x14
0x262b…2647 at0015 = ╱f20200╱ // 0x2640 @0x15
0x262b…2647 at0018 = ╱ee╱ ) ╱ // 0x2643 @0x18
0x262b…2647 at0019 = ╱ec╱ , ╱ // 0x2644 @0x19
0x262b…2647 at001a = ╱4c╱L╱ // 0x2645 @0x1a
0x262b…2647 at001b = EOL // 0x2646 @0x1b
0x262b…2647 }
0x2647…265e bc4c 03390 PRINT "***…" ; ST $ ; "…***"
0x2647…265e LineComal80 {
0x2647…265e ptr = 0xbc4c // 0x2647 @0x0
0x2647…265e lno = 0x0d3e // 0x2649 @0x2
0x2647…265e at0004 = ╱92╱ PRINT ╱ // 0x264b @0x4
0x2647…265e at0005 = ╱22╱"╱ // 0x264c @0x5
0x2647…265e at0006 = ╱2a╱*╱ // 0x264d @0x6
0x2647…265e at0007 = ╱2a╱*╱ // 0x264e @0x7
0x2647…265e at0008 = ╱2a╱*╱ // 0x264f @0x8
0x2647…265e at0009 = ╱20╱…╱ // 0x2650 @0x9
0x2647…265e at000a = ╱22╱"╱ // 0x2651 @0xa
0x2647…265e at000b = ╱ea╱ ; ╱ // 0x2652 @0xb
0x2647…265e at000c = ╱53╱S╱ // 0x2653 @0xc
0x2647…265e at000d = ╱54╱T╱ // 0x2654 @0xd
0x2647…265e at000e = ╱ef╱ $ ╱ // 0x2655 @0xe
0x2647…265e at000f = ╱ea╱ ; ╱ // 0x2656 @0xf
0x2647…265e at0010 = ╱22╱"╱ // 0x2657 @0x10
0x2647…265e at0011 = ╱20╱…╱ // 0x2658 @0x11
0x2647…265e at0012 = ╱2a╱*╱ // 0x2659 @0x12
0x2647…265e at0013 = ╱2a╱*╱ // 0x265a @0x13
0x2647…265e at0014 = ╱2a╱*╱ // 0x265b @0x14
0x2647…265e at0015 = ╱22╱"╱ // 0x265c @0x15
0x2647…265e at0016 = EOL // 0x265d @0x16
0x2647…265e }
0x265e…266e bc5c 03400 ENDPROC OVERSKRIFT
0x265e…266e LineComal80 {
0x265e…266e ptr = 0xbc5c // 0x265e @0x0
0x265e…266e lno = 0x0d48 // 0x2660 @0x2
0x265e…266e at0004 = ╱9f╱ ENDPROC ╱ // 0x2662 @0x4
0x265e…266e at0005 = ╱4f╱O╱ // 0x2663 @0x5
0x265e…266e at0006 = ╱56╱V╱ // 0x2664 @0x6
0x265e…266e at0007 = ╱45╱E╱ // 0x2665 @0x7
0x265e…266e at0008 = ╱52╱R╱ // 0x2666 @0x8
0x265e…266e at0009 = ╱53╱S╱ // 0x2667 @0x9
0x265e…266e at000a = ╱4b╱K╱ // 0x2668 @0xa
0x265e…266e at000b = ╱52╱R╱ // 0x2669 @0xb
0x265e…266e at000c = ╱49╱I╱ // 0x266a @0xc
0x265e…266e at000d = ╱46╱F╱ // 0x266b @0xd
0x265e…266e at000e = ╱54╱T╱ // 0x266c @0xe
0x265e…266e at000f = EOL // 0x266d @0xf
0x265e…266e }
0x266e…2687 bc75 03410 PROC TAL_CONTROL ( REF RST $ )
0x266e…2687 LineComal80 {
0x266e…2687 ptr = 0xbc75 // 0x266e @0x0
0x266e…2687 lno = 0x0d52 // 0x2670 @0x2
0x266e…2687 at0004 = ╱9e00╱ PROC ╱ // 0x2672 @0x4
0x266e…2687 at0006 = ╱54╱T╱ // 0x2674 @0x6
0x266e…2687 at0007 = ╱41╱A╱ // 0x2675 @0x7
0x266e…2687 at0008 = ╱4c╱L╱ // 0x2676 @0x8
0x266e…2687 at0009 = ╱5f╱_╱ // 0x2677 @0x9
0x266e…2687 at000a = ╱43╱C╱ // 0x2678 @0xa
0x266e…2687 at000b = ╱4f╱O╱ // 0x2679 @0xb
0x266e…2687 at000c = ╱4e╱N╱ // 0x267a @0xc
0x266e…2687 at000d = ╱54╱T╱ // 0x267b @0xd
0x266e…2687 at000e = ╱52╱R╱ // 0x267c @0xe
0x266e…2687 at000f = ╱4f╱O╱ // 0x267d @0xf
0x266e…2687 at0010 = ╱4c╱L╱ // 0x267e @0x10
0x266e…2687 at0011 = ╱ed╱ ( ╱ // 0x267f @0x11
0x266e…2687 at0012 = ╱b6╱ REF ╱ // 0x2680 @0x12
0x266e…2687 at0013 = ╱52╱R╱ // 0x2681 @0x13
0x266e…2687 at0014 = ╱53╱S╱ // 0x2682 @0x14
0x266e…2687 at0015 = ╱54╱T╱ // 0x2683 @0x15
0x266e…2687 at0016 = ╱ef╱ $ ╱ // 0x2684 @0x16
0x266e…2687 at0017 = ╱ee╱ ) ╱ // 0x2685 @0x17
0x266e…2687 at0018 = EOL // 0x2686 @0x18
0x266e…2687 }
0x2687…269b bc89 03420 LET J := 0 ; OK := TRUE
0x2687…269b LineComal80 {
0x2687…269b ptr = 0xbc89 // 0x2687 @0x0
0x2687…269b lno = 0x0d5c // 0x2689 @0x2
0x2687…269b at0004 = ╱86╱ LET ╱ // 0x268b @0x4
0x2687…269b at0005 = ╱4a╱J╱ // 0x268c @0x5
0x2687…269b at0006 = ╱f0╱ := ╱ // 0x268d @0x6
0x2687…269b at0007 = ╱30╱0╱ // 0x268e @0x7
0x2687…269b at0008 = ╱f20000╱ // 0x268f @0x8
0x2687…269b at000b = ╱ea╱ ; ╱ // 0x2692 @0xb
0x2687…269b at000c = ╱4f╱O╱ // 0x2693 @0xc
0x2687…269b at000d = ╱4b╱K╱ // 0x2694 @0xd
0x2687…269b at000e = ╱f0╱ := ╱ // 0x2695 @0xe
0x2687…269b at000f = ╱54╱T╱ // 0x2696 @0xf
0x2687…269b at0010 = ╱52╱R╱ // 0x2697 @0x10
0x2687…269b at0011 = ╱55╱U╱ // 0x2698 @0x11
0x2687…269b at0012 = ╱45╱E╱ // 0x2699 @0x12
0x2687…269b at0013 = EOL // 0x269a @0x13
0x2687…269b }
0x269b…26b1 bc9f 03430 FOR I := 1 TO ( RST $ ) DO
0x269b…26b1 LineComal80 {
0x269b…26b1 ptr = 0xbc9f // 0x269b @0x0
0x269b…26b1 lno = 0x0d66 // 0x269d @0x2
0x269b…26b1 at0004 = ╱8300╱ FOR ╱ // 0x269f @0x4
0x269b…26b1 at0006 = ╱49╱I╱ // 0x26a1 @0x6
0x269b…26b1 at0007 = ╱f0╱ := ╱ // 0x26a2 @0x7
0x269b…26b1 at0008 = ╱31╱1╱ // 0x26a3 @0x8
0x269b…26b1 at0009 = ╱f20100╱ // 0x26a4 @0x9
0x269b…26b1 at000c = ╱b7cb╱ TO ╱ // 0x26a7 @0xc
0x269b…26b1 at000e = ╱ed╱ ( ╱ // 0x26a9 @0xe
0x269b…26b1 at000f = ╱52╱R╱ // 0x26aa @0xf
0x269b…26b1 at0010 = ╱53╱S╱ // 0x26ab @0x10
0x269b…26b1 at0011 = ╱54╱T╱ // 0x26ac @0x11
0x269b…26b1 at0012 = ╱ef╱ $ ╱ // 0x26ad @0x12
0x269b…26b1 at0013 = ╱ee╱ ) ╱ // 0x26ae @0x13
0x269b…26b1 at0014 = ╱bb╱ DO ╱ // 0x26af @0x14
0x269b…26b1 at0015 = EOL // 0x26b0 @0x15
0x269b…26b1 }
0x26b1…26e7 bcd5 03440 IF RST $ ( I ) IN "0123456789." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
0x26b1…26e7 LineComal80 {
0x26b1…26e7 ptr = 0xbcd5 // 0x26b1 @0x0
0x26b1…26e7 lno = 0x0d70 // 0x26b3 @0x2
0x26b1…26e7 at0004 = ╱8200╱ IF ╱ // 0x26b5 @0x4
0x26b1…26e7 at0006 = ╱52╱R╱ // 0x26b7 @0x6
0x26b1…26e7 at0007 = ╱53╱S╱ // 0x26b8 @0x7
0x26b1…26e7 at0008 = ╱54╱T╱ // 0x26b9 @0x8
0x26b1…26e7 at0009 = ╱ef╱ $ ╱ // 0x26ba @0x9
0x26b1…26e7 at000a = ╱ed╱ ( ╱ // 0x26bb @0xa
0x26b1…26e7 at000b = ╱49╱I╱ // 0x26bc @0xb
0x26b1…26e7 at000c = ╱ee╱ ) ╱ // 0x26bd @0xc
0x26b1…26e7 at000d = ╱dc╱ IN ╱ // 0x26be @0xd
0x26b1…26e7 at000e = ╱22╱"╱ // 0x26bf @0xe
0x26b1…26e7 at000f = ╱30╱0╱ // 0x26c0 @0xf
0x26b1…26e7 at0010 = ╱31╱1╱ // 0x26c1 @0x10
0x26b1…26e7 at0011 = ╱32╱2╱ // 0x26c2 @0x11
0x26b1…26e7 at0012 = ╱33╱3╱ // 0x26c3 @0x12
0x26b1…26e7 at0013 = ╱34╱4╱ // 0x26c4 @0x13
0x26b1…26e7 at0014 = ╱35╱5╱ // 0x26c5 @0x14
0x26b1…26e7 at0015 = ╱36╱6╱ // 0x26c6 @0x15
0x26b1…26e7 at0016 = ╱37╱7╱ // 0x26c7 @0x16
0x26b1…26e7 at0017 = ╱38╱8╱ // 0x26c8 @0x17
0x26b1…26e7 at0018 = ╱39╱9╱ // 0x26c9 @0x18
0x26b1…26e7 at0019 = ╱2e╱.╱ // 0x26ca @0x19
0x26b1…26e7 at001a = ╱22╱"╱ // 0x26cb @0x1a
0x26b1…26e7 at001b = ╱b5╱ THEN ╱ // 0x26cc @0x1b
0x26b1…26e7 at001c = ╱86╱ LET ╱ // 0x26cd @0x1c
0x26b1…26e7 at001d = ╱4a╱J╱ // 0x26ce @0x1d
0x26b1…26e7 at001e = ╱f0╱ := ╱ // 0x26cf @0x1e
0x26b1…26e7 at001f = ╱4a╱J╱ // 0x26d0 @0x1f
0x26b1…26e7 at0020 = ╱e5╱ + ╱ // 0x26d1 @0x20
0x26b1…26e7 at0021 = ╱31╱1╱ // 0x26d2 @0x21
0x26b1…26e7 at0022 = ╱f20100╱ // 0x26d3 @0x22
0x26b1…26e7 at0025 = ╱ea╱ ; ╱ // 0x26d6 @0x25
0x26b1…26e7 at0026 = ╱52╱R╱ // 0x26d7 @0x26
0x26b1…26e7 at0027 = ╱53╱S╱ // 0x26d8 @0x27
0x26b1…26e7 at0028 = ╱54╱T╱ // 0x26d9 @0x28
0x26b1…26e7 at0029 = ╱ef╱ $ ╱ // 0x26da @0x29
0x26b1…26e7 at002a = ╱ed╱ ( ╱ // 0x26db @0x2a
0x26b1…26e7 at002b = ╱4a╱J╱ // 0x26dc @0x2b
0x26b1…26e7 at002c = ╱ee╱ ) ╱ // 0x26dd @0x2c
0x26b1…26e7 at002d = ╱f0╱ := ╱ // 0x26de @0x2d
0x26b1…26e7 at002e = ╱52╱R╱ // 0x26df @0x2e
0x26b1…26e7 at002f = ╱53╱S╱ // 0x26e0 @0x2f
0x26b1…26e7 at0030 = ╱54╱T╱ // 0x26e1 @0x30
0x26b1…26e7 at0031 = ╱ef╱ $ ╱ // 0x26e2 @0x31
0x26b1…26e7 at0032 = ╱ed╱ ( ╱ // 0x26e3 @0x32
0x26b1…26e7 at0033 = ╱49╱I╱ // 0x26e4 @0x33
0x26b1…26e7 at0034 = ╱ee╱ ) ╱ // 0x26e5 @0x34
0x26b1…26e7 at0035 = EOL // 0x26e6 @0x35
0x26b1…26e7 }
0x26e7…26ee bcdc 03450 NEXT I
0x26e7…26ee LineComal80 {
0x26e7…26ee ptr = 0xbcdc // 0x26e7 @0x0
0x26e7…26ee lno = 0x0d7a // 0x26e9 @0x2
0x26e7…26ee at0004 = ╱84╱ NEXT ╱ // 0x26eb @0x4
0x26e7…26ee at0005 = ╱49╱I╱ // 0x26ec @0x5
0x26e7…26ee at0006 = EOL // 0x26ed @0x6
0x26e7…26ee }
0x26ee…26fc bcea 03460 IF = 0 THEN
0x26ee…26fc LineComal80 {
0x26ee…26fc ptr = 0xbcea // 0x26ee @0x0
0x26ee…26fc lno = 0x0d84 // 0x26f0 @0x2
0x26ee…26fc at0004 = ╱9b004a╱ IF ╱ // 0x26f2 @0x4
0x26ee…26fc at0007 = ╱df╱ = ╱ // 0x26f5 @0x7
0x26ee…26fc at0008 = ╱30╱0╱ // 0x26f6 @0x8
0x26ee…26fc at0009 = ╱f20000╱ // 0x26f7 @0x9
0x26ee…26fc at000c = ╱b5╱ THEN ╱ // 0x26fa @0xc
0x26ee…26fc at000d = EOL // 0x26fb @0xd
0x26ee…26fc }
0x26fc…270a bcf8 03470 LET OK := FALSE
0x26fc…270a LineComal80 {
0x26fc…270a ptr = 0xbcf8 // 0x26fc @0x0
0x26fc…270a lno = 0x0d8e // 0x26fe @0x2
0x26fc…270a at0004 = ╱86╱ LET ╱ // 0x2700 @0x4
0x26fc…270a at0005 = ╱4f╱O╱ // 0x2701 @0x5
0x26fc…270a at0006 = ╱4b╱K╱ // 0x2702 @0x6
0x26fc…270a at0007 = ╱f0╱ := ╱ // 0x2703 @0x7
0x26fc…270a at0008 = ╱46╱F╱ // 0x2704 @0x8
0x26fc…270a at0009 = ╱41╱A╱ // 0x2705 @0x9
0x26fc…270a at000a = ╱4c╱L╱ // 0x2706 @0xa
0x26fc…270a at000b = ╱53╱S╱ // 0x2707 @0xb
0x26fc…270a at000c = ╱45╱E╱ // 0x2708 @0xc
0x26fc…270a at000d = EOL // 0x2709 @0xd
0x26fc…270a }
0x270a…2711 bcff 03480 ELSE
0x270a…2711 LineComal80 {
0x270a…2711 ptr = 0xbcff // 0x270a @0x0
0x270a…2711 lno = 0x0d98 // 0x270c @0x2
0x270a…2711 at0004 = ╱9a00╱ ELSE ╱ // 0x270e @0x4
0x270a…2711 at0006 = EOL // 0x2710 @0x6
0x270a…2711 }
0x2711…2728 bd16 03490 LET RST $ := RST $ ( 1 : J )
0x2711…2728 LineComal80 {
0x2711…2728 ptr = 0xbd16 // 0x2711 @0x0
0x2711…2728 lno = 0x0da2 // 0x2713 @0x2
0x2711…2728 at0004 = ╱86╱ LET ╱ // 0x2715 @0x4
0x2711…2728 at0005 = ╱52╱R╱ // 0x2716 @0x5
0x2711…2728 at0006 = ╱53╱S╱ // 0x2717 @0x6
0x2711…2728 at0007 = ╱54╱T╱ // 0x2718 @0x7
0x2711…2728 at0008 = ╱ef╱ $ ╱ // 0x2719 @0x8
0x2711…2728 at0009 = ╱f0╱ := ╱ // 0x271a @0x9
0x2711…2728 at000a = ╱52╱R╱ // 0x271b @0xa
0x2711…2728 at000b = ╱53╱S╱ // 0x271c @0xb
0x2711…2728 at000c = ╱54╱T╱ // 0x271d @0xc
0x2711…2728 at000d = ╱ef╱ $ ╱ // 0x271e @0xd
0x2711…2728 at000e = ╱ed╱ ( ╱ // 0x271f @0xe
0x2711…2728 at000f = ╱31╱1╱ // 0x2720 @0xf
0x2711…2728 at0010 = ╱f20100╱ // 0x2721 @0x10
0x2711…2728 at0013 = ╱f1╱ : ╱ // 0x2724 @0x13
0x2711…2728 at0014 = ╱4a╱J╱ // 0x2725 @0x14
0x2711…2728 at0015 = ╱ee╱ ) ╱ // 0x2726 @0x15
0x2711…2728 at0016 = EOL // 0x2727 @0x16
0x2711…2728 }
0x2728…272e bd1c 03500 ENDIF
0x2728…272e LineComal80 {
0x2728…272e ptr = 0xbd1c // 0x2728 @0x0
0x2728…272e lno = 0x0dac // 0x272a @0x2
0x2728…272e at0004 = ╱9c╱ ENDIF ╱ // 0x272c @0x4
0x2728…272e at0005 = EOL // 0x272d @0x5
0x2728…272e }
0x272e…273f bd2d 03510 ENDPROC TAL_CONTROL
0x272e…273f LineComal80 {
0x272e…273f ptr = 0xbd2d // 0x272e @0x0
0x272e…273f lno = 0x0db6 // 0x2730 @0x2
0x272e…273f at0004 = ╱9f╱ ENDPROC ╱ // 0x2732 @0x4
0x272e…273f at0005 = ╱54╱T╱ // 0x2733 @0x5
0x272e…273f at0006 = ╱41╱A╱ // 0x2734 @0x6
0x272e…273f at0007 = ╱4c╱L╱ // 0x2735 @0x7
0x272e…273f at0008 = ╱5f╱_╱ // 0x2736 @0x8
0x272e…273f at0009 = ╱43╱C╱ // 0x2737 @0x9
0x272e…273f at000a = ╱4f╱O╱ // 0x2738 @0xa
0x272e…273f at000b = ╱4e╱N╱ // 0x2739 @0xb
0x272e…273f at000c = ╱54╱T╱ // 0x273a @0xc
0x272e…273f at000d = ╱52╱R╱ // 0x273b @0xd
0x272e…273f at000e = ╱4f╱O╱ // 0x273c @0xe
0x272e…273f at000f = ╱4c╱L╱ // 0x273d @0xf
0x272e…273f at0010 = EOL // 0x273e @0x10
0x272e…273f }
0x273f…2744 bd32 03520
0x273f…2744 LineComal80 {
0x273f…2744 ptr = 0xbd32 // 0x273f @0x0
0x273f…2744 lno = 0x0dc0 // 0x2741 @0x2
0x273f…2744 at0004 = EOL // 0x2743 @0x4
0x273f…2744 }
0x2744…275e bd4c 03530 PROC FIND_KTO ( REF R_KTONR $ )
0x2744…275e LineComal80 {
0x2744…275e ptr = 0xbd4c // 0x2744 @0x0
0x2744…275e lno = 0x0dca // 0x2746 @0x2
0x2744…275e at0004 = ╱9e00╱ PROC ╱ // 0x2748 @0x4
0x2744…275e at0006 = ╱46╱F╱ // 0x274a @0x6
0x2744…275e at0007 = ╱49╱I╱ // 0x274b @0x7
0x2744…275e at0008 = ╱4e╱N╱ // 0x274c @0x8
0x2744…275e at0009 = ╱44╱D╱ // 0x274d @0x9
0x2744…275e at000a = ╱5f╱_╱ // 0x274e @0xa
0x2744…275e at000b = ╱4b╱K╱ // 0x274f @0xb
0x2744…275e at000c = ╱54╱T╱ // 0x2750 @0xc
0x2744…275e at000d = ╱4f╱O╱ // 0x2751 @0xd
0x2744…275e at000e = ╱ed╱ ( ╱ // 0x2752 @0xe
0x2744…275e at000f = ╱b6╱ REF ╱ // 0x2753 @0xf
0x2744…275e at0010 = ╱52╱R╱ // 0x2754 @0x10
0x2744…275e at0011 = ╱5f╱_╱ // 0x2755 @0x11
0x2744…275e at0012 = ╱4b╱K╱ // 0x2756 @0x12
0x2744…275e at0013 = ╱54╱T╱ // 0x2757 @0x13
0x2744…275e at0014 = ╱4f╱O╱ // 0x2758 @0x14
0x2744…275e at0015 = ╱4e╱N╱ // 0x2759 @0x15
0x2744…275e at0016 = ╱52╱R╱ // 0x275a @0x16
0x2744…275e at0017 = ╱ef╱ $ ╱ // 0x275b @0x17
0x2744…275e at0018 = ╱ee╱ ) ╱ // 0x275c @0x18
0x2744…275e at0019 = EOL // 0x275d @0x19
0x2744…275e }
0x275e…276c bd5a 03540 LET OK := FALSE
0x275e…276c LineComal80 {
0x275e…276c ptr = 0xbd5a // 0x275e @0x0
0x275e…276c lno = 0x0dd4 // 0x2760 @0x2
0x275e…276c at0004 = ╱86╱ LET ╱ // 0x2762 @0x4
0x275e…276c at0005 = ╱4f╱O╱ // 0x2763 @0x5
0x275e…276c at0006 = ╱4b╱K╱ // 0x2764 @0x6
0x275e…276c at0007 = ╱f0╱ := ╱ // 0x2765 @0x7
0x275e…276c at0008 = ╱46╱F╱ // 0x2766 @0x8
0x275e…276c at0009 = ╱41╱A╱ // 0x2767 @0x9
0x275e…276c at000a = ╱4c╱L╱ // 0x2768 @0xa
0x275e…276c at000b = ╱53╱S╱ // 0x2769 @0xb
0x275e…276c at000c = ╱45╱E╱ // 0x276a @0xc
0x275e…276c at000d = EOL // 0x276b @0xd
0x275e…276c }
0x276c…2790 bd7e 03550 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x276c…2790 LineComal80 {
0x276c…2790 ptr = 0xbd7e // 0x276c @0x0
0x276c…2790 lno = 0x0dde // 0x276e @0x2
0x276c…2790 at0004 = ╱a9╱ GET ╱ // 0x2770 @0x4
0x276c…2790 at0005 = ╱4b╱K╱ // 0x2771 @0x5
0x276c…2790 at0006 = ╱54╱T╱ // 0x2772 @0x6
0x276c…2790 at0007 = ╱4f╱O╱ // 0x2773 @0x7
0x276c…2790 at0008 = ╱49╱I╱ // 0x2774 @0x8
0x276c…2790 at0009 = ╱44╱D╱ // 0x2775 @0x9
0x276c…2790 at000a = ╱58╱X╱ // 0x2776 @0xa
0x276c…2790 at000b = ╱ef╱ $ ╱ // 0x2777 @0xb
0x276c…2790 at000c = ╱ec╱ , ╱ // 0x2778 @0xc
0x276c…2790 at000d = ╱31╱1╱ // 0x2779 @0xd
0x276c…2790 at000e = ╱f20100╱ // 0x277a @0xe
0x276c…2790 at0011 = ╱f1╱ : ╱ // 0x277d @0x11
0x276c…2790 at0012 = ╱49╱I╱ // 0x277e @0x12
0x276c…2790 at0013 = ╱5f╱_╱ // 0x277f @0x13
0x276c…2790 at0014 = ╱48╱H╱ // 0x2780 @0x14
0x276c…2790 at0015 = ╱5c╱\╱ // 0x2781 @0x15
0x276c…2790 at0016 = ╱4a╱J╱ // 0x2782 @0x16
0x276c…2790 at0017 = ╱52╱R╱ // 0x2783 @0x17
0x276c…2790 at0018 = ╱45╱E╱ // 0x2784 @0x18
0x276c…2790 at0019 = ╱43╱C╱ // 0x2785 @0x19
0x276c…2790 at001a = ╱ec╱ , ╱ // 0x2786 @0x1a
0x276c…2790 at001b = ╱49╱I╱ // 0x2787 @0x1b
0x276c…2790 at001c = ╱5f╱_╱ // 0x2788 @0x1c
0x276c…2790 at001d = ╱4d╱M╱ // 0x2789 @0x1d
0x276c…2790 at001e = ╱41╱A╱ // 0x278a @0x1e
0x276c…2790 at001f = ╱58╱X╱ // 0x278b @0x1f
0x276c…2790 at0020 = ╱52╱R╱ // 0x278c @0x20
0x276c…2790 at0021 = ╱45╱E╱ // 0x278d @0x21
0x276c…2790 at0022 = ╱43╱C╱ // 0x278e @0x22
0x276c…2790 at0023 = EOL // 0x278f @0x23
0x276c…2790 }
0x2790…27ba bda8 03560 LET LOW := 1 ; HIGH := I_H\JREC + 1 ; POS := 2
0x2790…27ba LineComal80 {
0x2790…27ba ptr = 0xbda8 // 0x2790 @0x0
0x2790…27ba lno = 0x0de8 // 0x2792 @0x2
0x2790…27ba at0004 = ╱86╱ LET ╱ // 0x2794 @0x4
0x2790…27ba at0005 = ╱4c╱L╱ // 0x2795 @0x5
0x2790…27ba at0006 = ╱4f╱O╱ // 0x2796 @0x6
0x2790…27ba at0007 = ╱57╱W╱ // 0x2797 @0x7
0x2790…27ba at0008 = ╱f0╱ := ╱ // 0x2798 @0x8
0x2790…27ba at0009 = ╱31╱1╱ // 0x2799 @0x9
0x2790…27ba at000a = ╱f20100╱ // 0x279a @0xa
0x2790…27ba at000d = ╱ea╱ ; ╱ // 0x279d @0xd
0x2790…27ba at000e = ╱48╱H╱ // 0x279e @0xe
0x2790…27ba at000f = ╱49╱I╱ // 0x279f @0xf
0x2790…27ba at0010 = ╱47╱G╱ // 0x27a0 @0x10
0x2790…27ba at0011 = ╱48╱H╱ // 0x27a1 @0x11
0x2790…27ba at0012 = ╱f0╱ := ╱ // 0x27a2 @0x12
0x2790…27ba at0013 = ╱49╱I╱ // 0x27a3 @0x13
0x2790…27ba at0014 = ╱5f╱_╱ // 0x27a4 @0x14
0x2790…27ba at0015 = ╱48╱H╱ // 0x27a5 @0x15
0x2790…27ba at0016 = ╱5c╱\╱ // 0x27a6 @0x16
0x2790…27ba at0017 = ╱4a╱J╱ // 0x27a7 @0x17
0x2790…27ba at0018 = ╱52╱R╱ // 0x27a8 @0x18
0x2790…27ba at0019 = ╱45╱E╱ // 0x27a9 @0x19
0x2790…27ba at001a = ╱43╱C╱ // 0x27aa @0x1a
0x2790…27ba at001b = ╱e5╱ + ╱ // 0x27ab @0x1b
0x2790…27ba at001c = ╱31╱1╱ // 0x27ac @0x1c
0x2790…27ba at001d = ╱f20100╱ // 0x27ad @0x1d
0x2790…27ba at0020 = ╱ea╱ ; ╱ // 0x27b0 @0x20
0x2790…27ba at0021 = ╱50╱P╱ // 0x27b1 @0x21
0x2790…27ba at0022 = ╱4f╱O╱ // 0x27b2 @0x22
0x2790…27ba at0023 = ╱53╱S╱ // 0x27b3 @0x23
0x2790…27ba at0024 = ╱f0╱ := ╱ // 0x27b4 @0x24
0x2790…27ba at0025 = ╱32╱2╱ // 0x27b5 @0x25
0x2790…27ba at0026 = ╱f20200╱ // 0x27b6 @0x26
0x2790…27ba at0029 = EOL // 0x27b9 @0x29
0x2790…27ba }
0x27ba…27cb bdb9 03570 IF IGH > 1 THEN
0x27ba…27cb LineComal80 {
0x27ba…27cb ptr = 0xbdb9 // 0x27ba @0x0
0x27ba…27cb lno = 0x0df2 // 0x27bc @0x2
0x27ba…27cb at0004 = ╱9b0048╱ IF ╱ // 0x27be @0x4
0x27ba…27cb at0007 = ╱49╱I╱ // 0x27c1 @0x7
0x27ba…27cb at0008 = ╱47╱G╱ // 0x27c2 @0x8
0x27ba…27cb at0009 = ╱48╱H╱ // 0x27c3 @0x9
0x27ba…27cb at000a = ╱e1╱ > ╱ // 0x27c4 @0xa
0x27ba…27cb at000b = ╱31╱1╱ // 0x27c5 @0xb
0x27ba…27cb at000c = ╱f20100╱ // 0x27c6 @0xc
0x27ba…27cb at000f = ╱b5╱ THEN ╱ // 0x27c9 @0xf
0x27ba…27cb at0010 = EOL // 0x27ca @0x10
0x27ba…27cb }
0x27cb…27d2 bdc0 03580 REPEAT
0x27cb…27d2 LineComal80 {
0x27cb…27d2 ptr = 0xbdc0 // 0x27cb @0x0
0x27cb…27d2 lno = 0x0dfc // 0x27cd @0x2
0x27cb…27d2 at0004 = ╱9700╱ REPEAT ╱ // 0x27cf @0x4
0x27cb…27d2 at0006 = EOL // 0x27d1 @0x6
0x27cb…27d2 }
0x27d2…27fe bdec 03590 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x27d2…27fe LineComal80 {
0x27d2…27fe ptr = 0xbdec // 0x27d2 @0x0
0x27d2…27fe lno = 0x0e06 // 0x27d4 @0x2
0x27d2…27fe at0004 = ╱86╱ LET ╱ // 0x27d6 @0x4
0x27d2…27fe at0005 = ╱50╱P╱ // 0x27d7 @0x5
0x27d2…27fe at0006 = ╱4f╱O╱ // 0x27d8 @0x6
0x27d2…27fe at0007 = ╱53╱S╱ // 0x27d9 @0x7
0x27d2…27fe at0008 = ╱f0╱ := ╱ // 0x27da @0x8
0x27d2…27fe at0009 = ╱c6╱ INT ╱ // 0x27db @0x9
0x27d2…27fe at000a = ╱ed╱ ( ╱ // 0x27dc @0xa
0x27d2…27fe at000b = ╱ed╱ ( ╱ // 0x27dd @0xb
0x27d2…27fe at000c = ╱48╱H╱ // 0x27de @0xc
0x27d2…27fe at000d = ╱49╱I╱ // 0x27df @0xd
0x27d2…27fe at000e = ╱47╱G╱ // 0x27e0 @0xe
0x27d2…27fe at000f = ╱48╱H╱ // 0x27e1 @0xf
0x27d2…27fe at0010 = ╱e6╱ - ╱ // 0x27e2 @0x10
0x27d2…27fe at0011 = ╱4c╱L╱ // 0x27e3 @0x11
0x27d2…27fe at0012 = ╱4f╱O╱ // 0x27e4 @0x12
0x27d2…27fe at0013 = ╱57╱W╱ // 0x27e5 @0x13
0x27d2…27fe at0014 = ╱ee╱ ) ╱ // 0x27e6 @0x14
0x27d2…27fe at0015 = ╱e8╱ / ╱ // 0x27e7 @0x15
0x27d2…27fe at0016 = ╱32╱2╱ // 0x27e8 @0x16
0x27d2…27fe at0017 = ╱f20200╱ // 0x27e9 @0x17
0x27d2…27fe at001a = ╱e5╱ + ╱ // 0x27ec @0x1a
0x27d2…27fe at001b = ╱2e╱.╱ // 0x27ed @0x1b
0x27d2…27fe at001c = ╱35╱5╱ // 0x27ee @0x1c
0x27d2…27fe at001d = ╱f88000000000000005╱ // 0x27ef @0x1d
0x27d2…27fe at0026 = ╱ee╱ ) ╱ // 0x27f8 @0x26
0x27d2…27fe at0027 = ╱e5╱ + ╱ // 0x27f9 @0x27
0x27d2…27fe at0028 = ╱4c╱L╱ // 0x27fa @0x28
0x27d2…27fe at0029 = ╱4f╱O╱ // 0x27fb @0x29
0x27d2…27fe at002a = ╱57╱W╱ // 0x27fc @0x2a
0x27d2…27fe at002b = EOL // 0x27fd @0x2b
0x27d2…27fe }
0x27fe…281c be0a 03600 GET KTOIDX $ , POS : KTONR $ , RECNR
0x27fe…281c LineComal80 {
0x27fe…281c ptr = 0xbe0a // 0x27fe @0x0
0x27fe…281c lno = 0x0e10 // 0x2800 @0x2
0x27fe…281c at0004 = ╱a9╱ GET ╱ // 0x2802 @0x4
0x27fe…281c at0005 = ╱4b╱K╱ // 0x2803 @0x5
0x27fe…281c at0006 = ╱54╱T╱ // 0x2804 @0x6
0x27fe…281c at0007 = ╱4f╱O╱ // 0x2805 @0x7
0x27fe…281c at0008 = ╱49╱I╱ // 0x2806 @0x8
0x27fe…281c at0009 = ╱44╱D╱ // 0x2807 @0x9
0x27fe…281c at000a = ╱58╱X╱ // 0x2808 @0xa
0x27fe…281c at000b = ╱ef╱ $ ╱ // 0x2809 @0xb
0x27fe…281c at000c = ╱ec╱ , ╱ // 0x280a @0xc
0x27fe…281c at000d = ╱50╱P╱ // 0x280b @0xd
0x27fe…281c at000e = ╱4f╱O╱ // 0x280c @0xe
0x27fe…281c at000f = ╱53╱S╱ // 0x280d @0xf
0x27fe…281c at0010 = ╱f1╱ : ╱ // 0x280e @0x10
0x27fe…281c at0011 = ╱4b╱K╱ // 0x280f @0x11
0x27fe…281c at0012 = ╱54╱T╱ // 0x2810 @0x12
0x27fe…281c at0013 = ╱4f╱O╱ // 0x2811 @0x13
0x27fe…281c at0014 = ╱4e╱N╱ // 0x2812 @0x14
0x27fe…281c at0015 = ╱52╱R╱ // 0x2813 @0x15
0x27fe…281c at0016 = ╱ef╱ $ ╱ // 0x2814 @0x16
0x27fe…281c at0017 = ╱ec╱ , ╱ // 0x2815 @0x17
0x27fe…281c at0018 = ╱52╱R╱ // 0x2816 @0x18
0x27fe…281c at0019 = ╱45╱E╱ // 0x2817 @0x19
0x27fe…281c at001a = ╱43╱C╱ // 0x2818 @0x1a
0x27fe…281c at001b = ╱4e╱N╱ // 0x2819 @0x1b
0x27fe…281c at001c = ╱52╱R╱ // 0x281a @0x1c
0x27fe…281c at001d = EOL // 0x281b @0x1d
0x27fe…281c }
0x281c…2833 be21 03610 IF TONR $ > R_KTONR $ THEN
0x281c…2833 LineComal80 {
0x281c…2833 ptr = 0xbe21 // 0x281c @0x0
0x281c…2833 lno = 0x0e1a // 0x281e @0x2
0x281c…2833 at0004 = ╱9b004b╱ IF ╱ // 0x2820 @0x4
0x281c…2833 at0007 = ╱54╱T╱ // 0x2823 @0x7
0x281c…2833 at0008 = ╱4f╱O╱ // 0x2824 @0x8
0x281c…2833 at0009 = ╱4e╱N╱ // 0x2825 @0x9
0x281c…2833 at000a = ╱52╱R╱ // 0x2826 @0xa
0x281c…2833 at000b = ╱ef╱ $ ╱ // 0x2827 @0xb
0x281c…2833 at000c = ╱e1╱ > ╱ // 0x2828 @0xc
0x281c…2833 at000d = ╱52╱R╱ // 0x2829 @0xd
0x281c…2833 at000e = ╱5f╱_╱ // 0x282a @0xe
0x281c…2833 at000f = ╱4b╱K╱ // 0x282b @0xf
0x281c…2833 at0010 = ╱54╱T╱ // 0x282c @0x10
0x281c…2833 at0011 = ╱4f╱O╱ // 0x282d @0x11
0x281c…2833 at0012 = ╱4e╱N╱ // 0x282e @0x12
0x281c…2833 at0013 = ╱52╱R╱ // 0x282f @0x13
0x281c…2833 at0014 = ╱ef╱ $ ╱ // 0x2830 @0x14
0x281c…2833 at0015 = ╱b5╱ THEN ╱ // 0x2831 @0x15
0x281c…2833 at0016 = EOL // 0x2832 @0x16
0x281c…2833 }
0x2833…2841 be2f 03620 LET HIGH := POS
0x2833…2841 LineComal80 {
0x2833…2841 ptr = 0xbe2f // 0x2833 @0x0
0x2833…2841 lno = 0x0e24 // 0x2835 @0x2
0x2833…2841 at0004 = ╱86╱ LET ╱ // 0x2837 @0x4
0x2833…2841 at0005 = ╱48╱H╱ // 0x2838 @0x5
0x2833…2841 at0006 = ╱49╱I╱ // 0x2839 @0x6
0x2833…2841 at0007 = ╱47╱G╱ // 0x283a @0x7
0x2833…2841 at0008 = ╱48╱H╱ // 0x283b @0x8
0x2833…2841 at0009 = ╱f0╱ := ╱ // 0x283c @0x9
0x2833…2841 at000a = ╱50╱P╱ // 0x283d @0xa
0x2833…2841 at000b = ╱4f╱O╱ // 0x283e @0xb
0x2833…2841 at000c = ╱53╱S╱ // 0x283f @0xc
0x2833…2841 at000d = EOL // 0x2840 @0xd
0x2833…2841 }
0x2841…2848 be36 03630 ELSE
0x2841…2848 LineComal80 {
0x2841…2848 ptr = 0xbe36 // 0x2841 @0x0
0x2841…2848 lno = 0x0e2e // 0x2843 @0x2
0x2841…2848 at0004 = ╱9a00╱ ELSE ╱ // 0x2845 @0x4
0x2841…2848 at0006 = EOL // 0x2847 @0x6
0x2841…2848 }
0x2848…285f be4d 03640 IF TONR $ < R_KTONR $ THEN
0x2848…285f LineComal80 {
0x2848…285f ptr = 0xbe4d // 0x2848 @0x0
0x2848…285f lno = 0x0e38 // 0x284a @0x2
0x2848…285f at0004 = ╱9b004b╱ IF ╱ // 0x284c @0x4
0x2848…285f at0007 = ╱54╱T╱ // 0x284f @0x7
0x2848…285f at0008 = ╱4f╱O╱ // 0x2850 @0x8
0x2848…285f at0009 = ╱4e╱N╱ // 0x2851 @0x9
0x2848…285f at000a = ╱52╱R╱ // 0x2852 @0xa
0x2848…285f at000b = ╱ef╱ $ ╱ // 0x2853 @0xb
0x2848…285f at000c = ╱e0╱ < ╱ // 0x2854 @0xc
0x2848…285f at000d = ╱52╱R╱ // 0x2855 @0xd
0x2848…285f at000e = ╱5f╱_╱ // 0x2856 @0xe
0x2848…285f at000f = ╱4b╱K╱ // 0x2857 @0xf
0x2848…285f at0010 = ╱54╱T╱ // 0x2858 @0x10
0x2848…285f at0011 = ╱4f╱O╱ // 0x2859 @0x11
0x2848…285f at0012 = ╱4e╱N╱ // 0x285a @0x12
0x2848…285f at0013 = ╱52╱R╱ // 0x285b @0x13
0x2848…285f at0014 = ╱ef╱ $ ╱ // 0x285c @0x14
0x2848…285f at0015 = ╱b5╱ THEN ╱ // 0x285d @0x15
0x2848…285f at0016 = EOL // 0x285e @0x16
0x2848…285f }
0x285f…286c be5a 03650 LET LOW := POS
0x285f…286c LineComal80 {
0x285f…286c ptr = 0xbe5a // 0x285f @0x0
0x285f…286c lno = 0x0e42 // 0x2861 @0x2
0x285f…286c at0004 = ╱86╱ LET ╱ // 0x2863 @0x4
0x285f…286c at0005 = ╱4c╱L╱ // 0x2864 @0x5
0x285f…286c at0006 = ╱4f╱O╱ // 0x2865 @0x6
0x285f…286c at0007 = ╱57╱W╱ // 0x2866 @0x7
0x285f…286c at0008 = ╱f0╱ := ╱ // 0x2867 @0x8
0x285f…286c at0009 = ╱50╱P╱ // 0x2868 @0x9
0x285f…286c at000a = ╱4f╱O╱ // 0x2869 @0xa
0x285f…286c at000b = ╱53╱S╱ // 0x286a @0xb
0x285f…286c at000c = EOL // 0x286b @0xc
0x285f…286c }
0x286c…2872 be60 03660 ENDIF
0x286c…2872 LineComal80 {
0x286c…2872 ptr = 0xbe60 // 0x286c @0x0
0x286c…2872 lno = 0x0e4c // 0x286e @0x2
0x286c…2872 at0004 = ╱9c╱ ENDIF ╱ // 0x2870 @0x4
0x286c…2872 at0005 = EOL // 0x2871 @0x5
0x286c…2872 }
0x2872…2878 be66 03670 ENDIF
0x2872…2878 LineComal80 {
0x2872…2878 ptr = 0xbe66 // 0x2872 @0x0
0x2872…2878 lno = 0x0e56 // 0x2874 @0x2
0x2872…2878 at0004 = ╱9c╱ ENDIF ╱ // 0x2876 @0x4
0x2872…2878 at0005 = EOL // 0x2877 @0x5
0x2872…2878 }
0x2878…289b be89 03680 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
0x2878…289b LineComal80 {
0x2878…289b ptr = 0xbe89 // 0x2878 @0x0
0x2878…289b lno = 0x0e60 // 0x287a @0x2
0x2878…289b at0004 = ╱98╱ UNTIL ╱ // 0x287c @0x4
0x2878…289b at0005 = ╱48╱H╱ // 0x287d @0x5
0x2878…289b at0006 = ╱49╱I╱ // 0x287e @0x6
0x2878…289b at0007 = ╱47╱G╱ // 0x287f @0x7
0x2878…289b at0008 = ╱48╱H╱ // 0x2880 @0x8
0x2878…289b at0009 = ╱e6╱ - ╱ // 0x2881 @0x9
0x2878…289b at000a = ╱4c╱L╱ // 0x2882 @0xa
0x2878…289b at000b = ╱4f╱O╱ // 0x2883 @0xb
0x2878…289b at000c = ╱57╱W╱ // 0x2884 @0xc
0x2878…289b at000d = ╱e2╱ =< ╱ // 0x2885 @0xd
0x2878…289b at000e = ╱31╱1╱ // 0x2886 @0xe
0x2878…289b at000f = ╱f20100╱ // 0x2887 @0xf
0x2878…289b at0012 = ╱d8╱ OR ╱ // 0x288a @0x12
0x2878…289b at0013 = ╱52╱R╱ // 0x288b @0x13
0x2878…289b at0014 = ╱5f╱_╱ // 0x288c @0x14
0x2878…289b at0015 = ╱4b╱K╱ // 0x288d @0x15
0x2878…289b at0016 = ╱54╱T╱ // 0x288e @0x16
0x2878…289b at0017 = ╱4f╱O╱ // 0x288f @0x17
0x2878…289b at0018 = ╱4e╱N╱ // 0x2890 @0x18
0x2878…289b at0019 = ╱52╱R╱ // 0x2891 @0x19
0x2878…289b at001a = ╱ef╱ $ ╱ // 0x2892 @0x1a
0x2878…289b at001b = ╱df╱ = ╱ // 0x2893 @0x1b
0x2878…289b at001c = ╱4b╱K╱ // 0x2894 @0x1c
0x2878…289b at001d = ╱54╱T╱ // 0x2895 @0x1d
0x2878…289b at001e = ╱4f╱O╱ // 0x2896 @0x1e
0x2878…289b at001f = ╱4e╱N╱ // 0x2897 @0x1f
0x2878…289b at0020 = ╱52╱R╱ // 0x2898 @0x20
0x2878…289b at0021 = ╱ef╱ $ ╱ // 0x2899 @0x21
0x2878…289b at0022 = EOL // 0x289a @0x22
0x2878…289b }
0x289b…28ba (135,) bea8 03690 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
0x289b…28ba LineComal80 {
0x289b…28ba ptr = 0xbea8 // 0x289b @0x0
0x289b…28ba lno = 0x0e6a // 0x289d @0x2
0x289b…28ba at0004 = ╱8200╱ IF ╱ // 0x289f @0x4
0x289b…28ba at0006 = ╱4b╱K╱ // 0x28a1 @0x6
0x289b…28ba at0007 = ╱54╱T╱ // 0x28a2 @0x7
0x289b…28ba at0008 = ╱4f╱O╱ // 0x28a3 @0x8
0x289b…28ba at0009 = ╱4e╱N╱ // 0x28a4 @0x9
0x289b…28ba at000a = ╱52╱R╱ // 0x28a5 @0xa
0x289b…28ba at000b = ╱ef╱ $ ╱ // 0x28a6 @0xb
0x289b…28ba at000c = ╱df╱ = ╱ // 0x28a7 @0xc
0x289b…28ba at000d = ╱52╱R╱ // 0x28a8 @0xd
0x289b…28ba at000e = ╱5f╱_╱ // 0x28a9 @0xe
0x289b…28ba at000f = ╱4b╱K╱ // 0x28aa @0xf
0x289b…28ba at0010 = ╱54╱T╱ // 0x28ab @0x10
0x289b…28ba at0011 = ╱4f╱O╱ // 0x28ac @0x11
0x289b…28ba at0012 = ╱4e╱N╱ // 0x28ad @0x12
0x289b…28ba at0013 = ╱52╱R╱ // 0x28ae @0x13
0x289b…28ba at0014 = ╱ef╱ $ ╱ // 0x28af @0x14
0x289b…28ba at0015 = ╱b5╱ THEN ╱ // 0x28b0 @0x15
0x289b…28ba at0016 = ╱86╱ LET ╱ // 0x28b1 @0x16
0x289b…28ba at0017 = ╱4f╱O╱ // 0x28b2 @0x17
0x289b…28ba at0018 = ╱4b╱K╱ // 0x28b3 @0x18
0x289b…28ba at0019 = ╱f0╱ := ╱ // 0x28b4 @0x19
0x289b…28ba at001a = ╱54╱T╱ // 0x28b5 @0x1a
0x289b…28ba at001b = ╱52╱R╱ // 0x28b6 @0x1b
0x289b…28ba at001c = ╱55╱U╱ // 0x28b7 @0x1c
0x289b…28ba at001d = ╱45╱E╱ // 0x28b8 @0x1d
0x289b…28ba at001e = EOL // 0x28b9 @0x1e
0x289b…28ba }
0x28ba…28c0 beae 03700 ENDIF
0x28ba…28c0 LineComal80 {
0x28ba…28c0 ptr = 0xbeae // 0x28ba @0x0
0x28ba…28c0 lno = 0x0e74 // 0x28bc @0x2
0x28ba…28c0 at0004 = ╱9c╱ ENDIF ╱ // 0x28be @0x4
0x28ba…28c0 at0005 = EOL // 0x28bf @0x5
0x28ba…28c0 }
0x28c0…28d2 bec0 03710 LET FIND_KTO := POS
0x28c0…28d2 LineComal80 {
0x28c0…28d2 ptr = 0xbec0 // 0x28c0 @0x0
0x28c0…28d2 lno = 0x0e7e // 0x28c2 @0x2
0x28c0…28d2 at0004 = ╱86╱ LET ╱ // 0x28c4 @0x4
0x28c0…28d2 at0005 = ╱46╱F╱ // 0x28c5 @0x5
0x28c0…28d2 at0006 = ╱49╱I╱ // 0x28c6 @0x6
0x28c0…28d2 at0007 = ╱4e╱N╱ // 0x28c7 @0x7
0x28c0…28d2 at0008 = ╱44╱D╱ // 0x28c8 @0x8
0x28c0…28d2 at0009 = ╱5f╱_╱ // 0x28c9 @0x9
0x28c0…28d2 at000a = ╱4b╱K╱ // 0x28ca @0xa
0x28c0…28d2 at000b = ╱54╱T╱ // 0x28cb @0xb
0x28c0…28d2 at000c = ╱4f╱O╱ // 0x28cc @0xc
0x28c0…28d2 at000d = ╱f0╱ := ╱ // 0x28cd @0xd
0x28c0…28d2 at000e = ╱50╱P╱ // 0x28ce @0xe
0x28c0…28d2 at000f = ╱4f╱O╱ // 0x28cf @0xf
0x28c0…28d2 at0010 = ╱53╱S╱ // 0x28d0 @0x10
0x28c0…28d2 at0011 = EOL // 0x28d1 @0x11
0x28c0…28d2 }
0x28d2…28e0 bece 03720 ENDPROC FIND_KTO
0x28d2…28e0 LineComal80 {
0x28d2…28e0 ptr = 0xbece // 0x28d2 @0x0
0x28d2…28e0 lno = 0x0e88 // 0x28d4 @0x2
0x28d2…28e0 at0004 = ╱9f╱ ENDPROC ╱ // 0x28d6 @0x4
0x28d2…28e0 at0005 = ╱46╱F╱ // 0x28d7 @0x5
0x28d2…28e0 at0006 = ╱49╱I╱ // 0x28d8 @0x6
0x28d2…28e0 at0007 = ╱4e╱N╱ // 0x28d9 @0x7
0x28d2…28e0 at0008 = ╱44╱D╱ // 0x28da @0x8
0x28d2…28e0 at0009 = ╱5f╱_╱ // 0x28db @0x9
0x28d2…28e0 at000a = ╱4b╱K╱ // 0x28dc @0xa
0x28d2…28e0 at000b = ╱54╱T╱ // 0x28dd @0xb
0x28d2…28e0 at000c = ╱4f╱O╱ // 0x28de @0xc
0x28d2…28e0 at000d = EOL // 0x28df @0xd
0x28d2…28e0 }
0x28e0…28fa bee8 03730 PROC DATO_CONTROL ( REF RST $ )
0x28e0…28fa LineComal80 {
0x28e0…28fa ptr = 0xbee8 // 0x28e0 @0x0
0x28e0…28fa lno = 0x0e92 // 0x28e2 @0x2
0x28e0…28fa at0004 = ╱9e00╱ PROC ╱ // 0x28e4 @0x4
0x28e0…28fa at0006 = ╱44╱D╱ // 0x28e6 @0x6
0x28e0…28fa at0007 = ╱41╱A╱ // 0x28e7 @0x7
0x28e0…28fa at0008 = ╱54╱T╱ // 0x28e8 @0x8
0x28e0…28fa at0009 = ╱4f╱O╱ // 0x28e9 @0x9
0x28e0…28fa at000a = ╱5f╱_╱ // 0x28ea @0xa
0x28e0…28fa at000b = ╱43╱C╱ // 0x28eb @0xb
0x28e0…28fa at000c = ╱4f╱O╱ // 0x28ec @0xc
0x28e0…28fa at000d = ╱4e╱N╱ // 0x28ed @0xd
0x28e0…28fa at000e = ╱54╱T╱ // 0x28ee @0xe
0x28e0…28fa at000f = ╱52╱R╱ // 0x28ef @0xf
0x28e0…28fa at0010 = ╱4f╱O╱ // 0x28f0 @0x10
0x28e0…28fa at0011 = ╱4c╱L╱ // 0x28f1 @0x11
0x28e0…28fa at0012 = ╱ed╱ ( ╱ // 0x28f2 @0x12
0x28e0…28fa at0013 = ╱b6╱ REF ╱ // 0x28f3 @0x13
0x28e0…28fa at0014 = ╱52╱R╱ // 0x28f4 @0x14
0x28e0…28fa at0015 = ╱53╱S╱ // 0x28f5 @0x15
0x28e0…28fa at0016 = ╱54╱T╱ // 0x28f6 @0x16
0x28e0…28fa at0017 = ╱ef╱ $ ╱ // 0x28f7 @0x17
0x28e0…28fa at0018 = ╱ee╱ ) ╱ // 0x28f8 @0x18
0x28e0…28fa at0019 = EOL // 0x28f9 @0x19
0x28e0…28fa }
0x28fa…2907 bef5 03740 LET OK := TRUE
0x28fa…2907 LineComal80 {
0x28fa…2907 ptr = 0xbef5 // 0x28fa @0x0
0x28fa…2907 lno = 0x0e9c // 0x28fc @0x2
0x28fa…2907 at0004 = ╱86╱ LET ╱ // 0x28fe @0x4
0x28fa…2907 at0005 = ╱4f╱O╱ // 0x28ff @0x5
0x28fa…2907 at0006 = ╱4b╱K╱ // 0x2900 @0x6
0x28fa…2907 at0007 = ╱f0╱ := ╱ // 0x2901 @0x7
0x28fa…2907 at0008 = ╱54╱T╱ // 0x2902 @0x8
0x28fa…2907 at0009 = ╱52╱R╱ // 0x2903 @0x9
0x28fa…2907 at000a = ╱55╱U╱ // 0x2904 @0xa
0x28fa…2907 at000b = ╱45╱E╱ // 0x2905 @0xb
0x28fa…2907 at000c = EOL // 0x2906 @0xc
0x28fa…2907 }
0x2907…2941 bf2f 03750 IF RST $ ( 1 : 2 ) < "00" OR RST $ ( 1 : 2 ) > "99" THEN LET OK := FALSE
0x2907…2941 LineComal80 {
0x2907…2941 ptr = 0xbf2f // 0x2907 @0x0
0x2907…2941 lno = 0x0ea6 // 0x2909 @0x2
0x2907…2941 at0004 = ╱8200╱ IF ╱ // 0x290b @0x4
0x2907…2941 at0006 = ╱52╱R╱ // 0x290d @0x6
0x2907…2941 at0007 = ╱53╱S╱ // 0x290e @0x7
0x2907…2941 at0008 = ╱54╱T╱ // 0x290f @0x8
0x2907…2941 at0009 = ╱ef╱ $ ╱ // 0x2910 @0x9
0x2907…2941 at000a = ╱ed╱ ( ╱ // 0x2911 @0xa
0x2907…2941 at000b = ╱31╱1╱ // 0x2912 @0xb
0x2907…2941 at000c = ╱f20100╱ // 0x2913 @0xc
0x2907…2941 at000f = ╱f1╱ : ╱ // 0x2916 @0xf
0x2907…2941 at0010 = ╱32╱2╱ // 0x2917 @0x10
0x2907…2941 at0011 = ╱f20200╱ // 0x2918 @0x11
0x2907…2941 at0014 = ╱ee╱ ) ╱ // 0x291b @0x14
0x2907…2941 at0015 = ╱e0╱ < ╱ // 0x291c @0x15
0x2907…2941 at0016 = ╱22╱"╱ // 0x291d @0x16
0x2907…2941 at0017 = ╱30╱0╱ // 0x291e @0x17
0x2907…2941 at0018 = ╱30╱0╱ // 0x291f @0x18
0x2907…2941 at0019 = ╱22╱"╱ // 0x2920 @0x19
0x2907…2941 at001a = ╱d8╱ OR ╱ // 0x2921 @0x1a
0x2907…2941 at001b = ╱52╱R╱ // 0x2922 @0x1b
0x2907…2941 at001c = ╱53╱S╱ // 0x2923 @0x1c
0x2907…2941 at001d = ╱54╱T╱ // 0x2924 @0x1d
0x2907…2941 at001e = ╱ef╱ $ ╱ // 0x2925 @0x1e
0x2907…2941 at001f = ╱ed╱ ( ╱ // 0x2926 @0x1f
0x2907…2941 at0020 = ╱31╱1╱ // 0x2927 @0x20
0x2907…2941 at0021 = ╱f20100╱ // 0x2928 @0x21
0x2907…2941 at0024 = ╱f1╱ : ╱ // 0x292b @0x24
0x2907…2941 at0025 = ╱32╱2╱ // 0x292c @0x25
0x2907…2941 at0026 = ╱f20200╱ // 0x292d @0x26
0x2907…2941 at0029 = ╱ee╱ ) ╱ // 0x2930 @0x29
0x2907…2941 at002a = ╱e1╱ > ╱ // 0x2931 @0x2a
0x2907…2941 at002b = ╱22╱"╱ // 0x2932 @0x2b
0x2907…2941 at002c = ╱39╱9╱ // 0x2933 @0x2c
0x2907…2941 at002d = ╱39╱9╱ // 0x2934 @0x2d
0x2907…2941 at002e = ╱22╱"╱ // 0x2935 @0x2e
0x2907…2941 at002f = ╱b5╱ THEN ╱ // 0x2936 @0x2f
0x2907…2941 at0030 = ╱86╱ LET ╱ // 0x2937 @0x30
0x2907…2941 at0031 = ╱4f╱O╱ // 0x2938 @0x31
0x2907…2941 at0032 = ╱4b╱K╱ // 0x2939 @0x32
0x2907…2941 at0033 = ╱f0╱ := ╱ // 0x293a @0x33
0x2907…2941 at0034 = ╱46╱F╱ // 0x293b @0x34
0x2907…2941 at0035 = ╱41╱A╱ // 0x293c @0x35
0x2907…2941 at0036 = ╱4c╱L╱ // 0x293d @0x36
0x2907…2941 at0037 = ╱53╱S╱ // 0x293e @0x37
0x2907…2941 at0038 = ╱45╱E╱ // 0x293f @0x38
0x2907…2941 at0039 = EOL // 0x2940 @0x39
0x2907…2941 }
0x2941…297b bf69 03760 IF RST $ ( 3 : 2 ) < "01" OR RST $ ( 3 : 2 ) > "12" THEN LET OK := FALSE
0x2941…297b LineComal80 {
0x2941…297b ptr = 0xbf69 // 0x2941 @0x0
0x2941…297b lno = 0x0eb0 // 0x2943 @0x2
0x2941…297b at0004 = ╱8200╱ IF ╱ // 0x2945 @0x4
0x2941…297b at0006 = ╱52╱R╱ // 0x2947 @0x6
0x2941…297b at0007 = ╱53╱S╱ // 0x2948 @0x7
0x2941…297b at0008 = ╱54╱T╱ // 0x2949 @0x8
0x2941…297b at0009 = ╱ef╱ $ ╱ // 0x294a @0x9
0x2941…297b at000a = ╱ed╱ ( ╱ // 0x294b @0xa
0x2941…297b at000b = ╱33╱3╱ // 0x294c @0xb
0x2941…297b at000c = ╱f20300╱ // 0x294d @0xc
0x2941…297b at000f = ╱f1╱ : ╱ // 0x2950 @0xf
0x2941…297b at0010 = ╱32╱2╱ // 0x2951 @0x10
0x2941…297b at0011 = ╱f20200╱ // 0x2952 @0x11
0x2941…297b at0014 = ╱ee╱ ) ╱ // 0x2955 @0x14
0x2941…297b at0015 = ╱e0╱ < ╱ // 0x2956 @0x15
0x2941…297b at0016 = ╱22╱"╱ // 0x2957 @0x16
0x2941…297b at0017 = ╱30╱0╱ // 0x2958 @0x17
0x2941…297b at0018 = ╱31╱1╱ // 0x2959 @0x18
0x2941…297b at0019 = ╱22╱"╱ // 0x295a @0x19
0x2941…297b at001a = ╱d8╱ OR ╱ // 0x295b @0x1a
0x2941…297b at001b = ╱52╱R╱ // 0x295c @0x1b
0x2941…297b at001c = ╱53╱S╱ // 0x295d @0x1c
0x2941…297b at001d = ╱54╱T╱ // 0x295e @0x1d
0x2941…297b at001e = ╱ef╱ $ ╱ // 0x295f @0x1e
0x2941…297b at001f = ╱ed╱ ( ╱ // 0x2960 @0x1f
0x2941…297b at0020 = ╱33╱3╱ // 0x2961 @0x20
0x2941…297b at0021 = ╱f20300╱ // 0x2962 @0x21
0x2941…297b at0024 = ╱f1╱ : ╱ // 0x2965 @0x24
0x2941…297b at0025 = ╱32╱2╱ // 0x2966 @0x25
0x2941…297b at0026 = ╱f20200╱ // 0x2967 @0x26
0x2941…297b at0029 = ╱ee╱ ) ╱ // 0x296a @0x29
0x2941…297b at002a = ╱e1╱ > ╱ // 0x296b @0x2a
0x2941…297b at002b = ╱22╱"╱ // 0x296c @0x2b
0x2941…297b at002c = ╱31╱1╱ // 0x296d @0x2c
0x2941…297b at002d = ╱32╱2╱ // 0x296e @0x2d
0x2941…297b at002e = ╱22╱"╱ // 0x296f @0x2e
0x2941…297b at002f = ╱b5╱ THEN ╱ // 0x2970 @0x2f
0x2941…297b at0030 = ╱86╱ LET ╱ // 0x2971 @0x30
0x2941…297b at0031 = ╱4f╱O╱ // 0x2972 @0x31
0x2941…297b at0032 = ╱4b╱K╱ // 0x2973 @0x32
0x2941…297b at0033 = ╱f0╱ := ╱ // 0x2974 @0x33
0x2941…297b at0034 = ╱46╱F╱ // 0x2975 @0x34
0x2941…297b at0035 = ╱41╱A╱ // 0x2976 @0x35
0x2941…297b at0036 = ╱4c╱L╱ // 0x2977 @0x36
0x2941…297b at0037 = ╱53╱S╱ // 0x2978 @0x37
0x2941…297b at0038 = ╱45╱E╱ // 0x2979 @0x38
0x2941…297b at0039 = EOL // 0x297a @0x39
0x2941…297b }
0x297b…29b5 bfa3 03770 IF RST $ ( 5 : 2 ) < "01" OR RST $ ( 5 : 2 ) > "31" THEN LET OK := FALSE
0x297b…29b5 LineComal80 {
0x297b…29b5 ptr = 0xbfa3 // 0x297b @0x0
0x297b…29b5 lno = 0x0eba // 0x297d @0x2
0x297b…29b5 at0004 = ╱8200╱ IF ╱ // 0x297f @0x4
0x297b…29b5 at0006 = ╱52╱R╱ // 0x2981 @0x6
0x297b…29b5 at0007 = ╱53╱S╱ // 0x2982 @0x7
0x297b…29b5 at0008 = ╱54╱T╱ // 0x2983 @0x8
0x297b…29b5 at0009 = ╱ef╱ $ ╱ // 0x2984 @0x9
0x297b…29b5 at000a = ╱ed╱ ( ╱ // 0x2985 @0xa
0x297b…29b5 at000b = ╱35╱5╱ // 0x2986 @0xb
0x297b…29b5 at000c = ╱f20500╱ // 0x2987 @0xc
0x297b…29b5 at000f = ╱f1╱ : ╱ // 0x298a @0xf
0x297b…29b5 at0010 = ╱32╱2╱ // 0x298b @0x10
0x297b…29b5 at0011 = ╱f20200╱ // 0x298c @0x11
0x297b…29b5 at0014 = ╱ee╱ ) ╱ // 0x298f @0x14
0x297b…29b5 at0015 = ╱e0╱ < ╱ // 0x2990 @0x15
0x297b…29b5 at0016 = ╱22╱"╱ // 0x2991 @0x16
0x297b…29b5 at0017 = ╱30╱0╱ // 0x2992 @0x17
0x297b…29b5 at0018 = ╱31╱1╱ // 0x2993 @0x18
0x297b…29b5 at0019 = ╱22╱"╱ // 0x2994 @0x19
0x297b…29b5 at001a = ╱d8╱ OR ╱ // 0x2995 @0x1a
0x297b…29b5 at001b = ╱52╱R╱ // 0x2996 @0x1b
0x297b…29b5 at001c = ╱53╱S╱ // 0x2997 @0x1c
0x297b…29b5 at001d = ╱54╱T╱ // 0x2998 @0x1d
0x297b…29b5 at001e = ╱ef╱ $ ╱ // 0x2999 @0x1e
0x297b…29b5 at001f = ╱ed╱ ( ╱ // 0x299a @0x1f
0x297b…29b5 at0020 = ╱35╱5╱ // 0x299b @0x20
0x297b…29b5 at0021 = ╱f20500╱ // 0x299c @0x21
0x297b…29b5 at0024 = ╱f1╱ : ╱ // 0x299f @0x24
0x297b…29b5 at0025 = ╱32╱2╱ // 0x29a0 @0x25
0x297b…29b5 at0026 = ╱f20200╱ // 0x29a1 @0x26
0x297b…29b5 at0029 = ╱ee╱ ) ╱ // 0x29a4 @0x29
0x297b…29b5 at002a = ╱e1╱ > ╱ // 0x29a5 @0x2a
0x297b…29b5 at002b = ╱22╱"╱ // 0x29a6 @0x2b
0x297b…29b5 at002c = ╱33╱3╱ // 0x29a7 @0x2c
0x297b…29b5 at002d = ╱31╱1╱ // 0x29a8 @0x2d
0x297b…29b5 at002e = ╱22╱"╱ // 0x29a9 @0x2e
0x297b…29b5 at002f = ╱b5╱ THEN ╱ // 0x29aa @0x2f
0x297b…29b5 at0030 = ╱86╱ LET ╱ // 0x29ab @0x30
0x297b…29b5 at0031 = ╱4f╱O╱ // 0x29ac @0x31
0x297b…29b5 at0032 = ╱4b╱K╱ // 0x29ad @0x32
0x297b…29b5 at0033 = ╱f0╱ := ╱ // 0x29ae @0x33
0x297b…29b5 at0034 = ╱46╱F╱ // 0x29af @0x34
0x297b…29b5 at0035 = ╱41╱A╱ // 0x29b0 @0x35
0x297b…29b5 at0036 = ╱4c╱L╱ // 0x29b1 @0x36
0x297b…29b5 at0037 = ╱53╱S╱ // 0x29b2 @0x37
0x297b…29b5 at0038 = ╱45╱E╱ // 0x29b3 @0x38
0x297b…29b5 at0039 = EOL // 0x29b4 @0x39
0x297b…29b5 }
0x29b5…29e1 bfcf 03780 IF NOT OK THEN EXEC FEJL ( "Ulovlig…dato:…'" + RST $ + "'" )
0x29b5…29e1 LineComal80 {
0x29b5…29e1 ptr = 0xbfcf // 0x29b5 @0x0
0x29b5…29e1 lno = 0x0ec4 // 0x29b7 @0x2
0x29b5…29e1 at0004 = ╱8200╱ IF ╱ // 0x29b9 @0x4
0x29b5…29e1 at0006 = ╱d7╱ NOT ╱ // 0x29bb @0x6
0x29b5…29e1 at0007 = ╱4f╱O╱ // 0x29bc @0x7
0x29b5…29e1 at0008 = ╱4b╱K╱ // 0x29bd @0x8
0x29b5…29e1 at0009 = ╱b5╱ THEN ╱ // 0x29be @0x9
0x29b5…29e1 at000a = ╱9d╱ EXEC ╱ // 0x29bf @0xa
0x29b5…29e1 at000b = ╱46╱F╱ // 0x29c0 @0xb
0x29b5…29e1 at000c = ╱45╱E╱ // 0x29c1 @0xc
0x29b5…29e1 at000d = ╱4a╱J╱ // 0x29c2 @0xd
0x29b5…29e1 at000e = ╱4c╱L╱ // 0x29c3 @0xe
0x29b5…29e1 at000f = ╱ed╱ ( ╱ // 0x29c4 @0xf
0x29b5…29e1 at0010 = ╱22╱"╱ // 0x29c5 @0x10
0x29b5…29e1 at0011 = ╱55╱U╱ // 0x29c6 @0x11
0x29b5…29e1 at0012 = ╱6c╱l╱ // 0x29c7 @0x12
0x29b5…29e1 at0013 = ╱6f╱o╱ // 0x29c8 @0x13
0x29b5…29e1 at0014 = ╱76╱v╱ // 0x29c9 @0x14
0x29b5…29e1 at0015 = ╱6c╱l╱ // 0x29ca @0x15
0x29b5…29e1 at0016 = ╱69╱i╱ // 0x29cb @0x16
0x29b5…29e1 at0017 = ╱67╱g╱ // 0x29cc @0x17
0x29b5…29e1 at0018 = ╱20╱…╱ // 0x29cd @0x18
0x29b5…29e1 at0019 = ╱64╱d╱ // 0x29ce @0x19
0x29b5…29e1 at001a = ╱61╱a╱ // 0x29cf @0x1a
0x29b5…29e1 at001b = ╱74╱t╱ // 0x29d0 @0x1b
0x29b5…29e1 at001c = ╱6f╱o╱ // 0x29d1 @0x1c
0x29b5…29e1 at001d = ╱3a╱:╱ // 0x29d2 @0x1d
0x29b5…29e1 at001e = ╱20╱…╱ // 0x29d3 @0x1e
0x29b5…29e1 at001f = ╱27╱'╱ // 0x29d4 @0x1f
0x29b5…29e1 at0020 = ╱22╱"╱ // 0x29d5 @0x20
0x29b5…29e1 at0021 = ╱eb╱ + ╱ // 0x29d6 @0x21
0x29b5…29e1 at0022 = ╱52╱R╱ // 0x29d7 @0x22
0x29b5…29e1 at0023 = ╱53╱S╱ // 0x29d8 @0x23
0x29b5…29e1 at0024 = ╱54╱T╱ // 0x29d9 @0x24
0x29b5…29e1 at0025 = ╱ef╱ $ ╱ // 0x29da @0x25
0x29b5…29e1 at0026 = ╱eb╱ + ╱ // 0x29db @0x26
0x29b5…29e1 at0027 = ╱22╱"╱ // 0x29dc @0x27
0x29b5…29e1 at0028 = ╱27╱'╱ // 0x29dd @0x28
0x29b5…29e1 at0029 = ╱22╱"╱ // 0x29de @0x29
0x29b5…29e1 at002a = ╱ee╱ ) ╱ // 0x29df @0x2a
0x29b5…29e1 at002b = EOL // 0x29e0 @0x2b
0x29b5…29e1 }
0x29e1…29f3 bfe1 03790 ENDPROC DATO_CONTROL
0x29e1…29f3 LineComal80 {
0x29e1…29f3 ptr = 0xbfe1 // 0x29e1 @0x0
0x29e1…29f3 lno = 0x0ece // 0x29e3 @0x2
0x29e1…29f3 at0004 = ╱9f╱ ENDPROC ╱ // 0x29e5 @0x4
0x29e1…29f3 at0005 = ╱44╱D╱ // 0x29e6 @0x5
0x29e1…29f3 at0006 = ╱41╱A╱ // 0x29e7 @0x6
0x29e1…29f3 at0007 = ╱54╱T╱ // 0x29e8 @0x7
0x29e1…29f3 at0008 = ╱4f╱O╱ // 0x29e9 @0x8
0x29e1…29f3 at0009 = ╱5f╱_╱ // 0x29ea @0x9
0x29e1…29f3 at000a = ╱43╱C╱ // 0x29eb @0xa
0x29e1…29f3 at000b = ╱4f╱O╱ // 0x29ec @0xb
0x29e1…29f3 at000c = ╱4e╱N╱ // 0x29ed @0xc
0x29e1…29f3 at000d = ╱54╱T╱ // 0x29ee @0xd
0x29e1…29f3 at000e = ╱52╱R╱ // 0x29ef @0xe
0x29e1…29f3 at000f = ╱4f╱O╱ // 0x29f0 @0xf
0x29e1…29f3 at0010 = ╱4c╱L╱ // 0x29f1 @0x10
0x29e1…29f3 at0011 = EOL // 0x29f2 @0x11
0x29e1…29f3 }
0x29f3…29f8 bfe6 03800
0x29f3…29f8 LineComal80 {
0x29f3…29f8 ptr = 0xbfe6 // 0x29f3 @0x0
0x29f3…29f8 lno = 0x0ed8 // 0x29f5 @0x2
0x29f3…29f8 at0004 = EOL // 0x29f7 @0x4
0x29f3…29f8 }
0x29f8…2a14 c002 03810 PROC [NDRE_KTONR ( ST2 $ , PNR )
0x29f8…2a14 LineComal80 {
0x29f8…2a14 ptr = 0xc002 // 0x29f8 @0x0
0x29f8…2a14 lno = 0x0ee2 // 0x29fa @0x2
0x29f8…2a14 at0004 = ╱9e00╱ PROC ╱ // 0x29fc @0x4
0x29f8…2a14 at0006 = ╱5b╱[╱ // 0x29fe @0x6
0x29f8…2a14 at0007 = ╱4e╱N╱ // 0x29ff @0x7
0x29f8…2a14 at0008 = ╱44╱D╱ // 0x2a00 @0x8
0x29f8…2a14 at0009 = ╱52╱R╱ // 0x2a01 @0x9
0x29f8…2a14 at000a = ╱45╱E╱ // 0x2a02 @0xa
0x29f8…2a14 at000b = ╱5f╱_╱ // 0x2a03 @0xb
0x29f8…2a14 at000c = ╱4b╱K╱ // 0x2a04 @0xc
0x29f8…2a14 at000d = ╱54╱T╱ // 0x2a05 @0xd
0x29f8…2a14 at000e = ╱4f╱O╱ // 0x2a06 @0xe
0x29f8…2a14 at000f = ╱4e╱N╱ // 0x2a07 @0xf
0x29f8…2a14 at0010 = ╱52╱R╱ // 0x2a08 @0x10
0x29f8…2a14 at0011 = ╱ed╱ ( ╱ // 0x2a09 @0x11
0x29f8…2a14 at0012 = ╱53╱S╱ // 0x2a0a @0x12
0x29f8…2a14 at0013 = ╱54╱T╱ // 0x2a0b @0x13
0x29f8…2a14 at0014 = ╱32╱2╱ // 0x2a0c @0x14
0x29f8…2a14 at0015 = ╱ef╱ $ ╱ // 0x2a0d @0x15
0x29f8…2a14 at0016 = ╱ec╱ , ╱ // 0x2a0e @0x16
0x29f8…2a14 at0017 = ╱50╱P╱ // 0x2a0f @0x17
0x29f8…2a14 at0018 = ╱4e╱N╱ // 0x2a10 @0x18
0x29f8…2a14 at0019 = ╱52╱R╱ // 0x2a11 @0x19
0x29f8…2a14 at001a = ╱ee╱ ) ╱ // 0x2a12 @0x1a
0x29f8…2a14 at001b = EOL // 0x2a13 @0x1b
0x29f8…2a14 }
0x2a14…2a25 c013 03820 LET A_KTONR $ := ""
0x2a14…2a25 LineComal80 {
0x2a14…2a25 ptr = 0xc013 // 0x2a14 @0x0
0x2a14…2a25 lno = 0x0eec // 0x2a16 @0x2
0x2a14…2a25 at0004 = ╱86╱ LET ╱ // 0x2a18 @0x4
0x2a14…2a25 at0005 = ╱41╱A╱ // 0x2a19 @0x5
0x2a14…2a25 at0006 = ╱5f╱_╱ // 0x2a1a @0x6
0x2a14…2a25 at0007 = ╱4b╱K╱ // 0x2a1b @0x7
0x2a14…2a25 at0008 = ╱54╱T╱ // 0x2a1c @0x8
0x2a14…2a25 at0009 = ╱4f╱O╱ // 0x2a1d @0x9
0x2a14…2a25 at000a = ╱4e╱N╱ // 0x2a1e @0xa
0x2a14…2a25 at000b = ╱52╱R╱ // 0x2a1f @0xb
0x2a14…2a25 at000c = ╱ef╱ $ ╱ // 0x2a20 @0xc
0x2a14…2a25 at000d = ╱f0╱ := ╱ // 0x2a21 @0xd
0x2a14…2a25 at000e = ╱22╱"╱ // 0x2a22 @0xe
0x2a14…2a25 at000f = ╱22╱"╱ // 0x2a23 @0xf
0x2a14…2a25 at0010 = EOL // 0x2a24 @0x10
0x2a14…2a25 }
0x2a25…2a3f c02d 03830 GET FKTONR $ , PNR : A_KTONR $
0x2a25…2a3f LineComal80 {
0x2a25…2a3f ptr = 0xc02d // 0x2a25 @0x0
0x2a25…2a3f lno = 0x0ef6 // 0x2a27 @0x2
0x2a25…2a3f at0004 = ╱a9╱ GET ╱ // 0x2a29 @0x4
0x2a25…2a3f at0005 = ╱46╱F╱ // 0x2a2a @0x5
0x2a25…2a3f at0006 = ╱4b╱K╱ // 0x2a2b @0x6
0x2a25…2a3f at0007 = ╱54╱T╱ // 0x2a2c @0x7
0x2a25…2a3f at0008 = ╱4f╱O╱ // 0x2a2d @0x8
0x2a25…2a3f at0009 = ╱4e╱N╱ // 0x2a2e @0x9
0x2a25…2a3f at000a = ╱52╱R╱ // 0x2a2f @0xa
0x2a25…2a3f at000b = ╱ef╱ $ ╱ // 0x2a30 @0xb
0x2a25…2a3f at000c = ╱ec╱ , ╱ // 0x2a31 @0xc
0x2a25…2a3f at000d = ╱50╱P╱ // 0x2a32 @0xd
0x2a25…2a3f at000e = ╱4e╱N╱ // 0x2a33 @0xe
0x2a25…2a3f at000f = ╱52╱R╱ // 0x2a34 @0xf
0x2a25…2a3f at0010 = ╱f1╱ : ╱ // 0x2a35 @0x10
0x2a25…2a3f at0011 = ╱41╱A╱ // 0x2a36 @0x11
0x2a25…2a3f at0012 = ╱5f╱_╱ // 0x2a37 @0x12
0x2a25…2a3f at0013 = ╱4b╱K╱ // 0x2a38 @0x13
0x2a25…2a3f at0014 = ╱54╱T╱ // 0x2a39 @0x14
0x2a25…2a3f at0015 = ╱4f╱O╱ // 0x2a3a @0x15
0x2a25…2a3f at0016 = ╱4e╱N╱ // 0x2a3b @0x16
0x2a25…2a3f at0017 = ╱52╱R╱ // 0x2a3c @0x17
0x2a25…2a3f at0018 = ╱ef╱ $ ╱ // 0x2a3d @0x18
0x2a25…2a3f at0019 = EOL // 0x2a3e @0x19
0x2a25…2a3f }
0x2a3f…2a46 c034 03840 REPEAT
0x2a3f…2a46 LineComal80 {
0x2a3f…2a46 ptr = 0xc034 // 0x2a3f @0x0
0x2a3f…2a46 lno = 0x0f00 // 0x2a41 @0x2
0x2a3f…2a46 at0004 = ╱9700╱ REPEAT ╱ // 0x2a43 @0x4
0x2a3f…2a46 at0006 = EOL // 0x2a45 @0x6
0x2a3f…2a46 }
0x2a46…2a5b c049 03850 PRINT "<SC0223>" ; ST2 $
0x2a46…2a5b LineComal80 {
0x2a46…2a5b ptr = 0xc049 // 0x2a46 @0x0
0x2a46…2a5b lno = 0x0f0a // 0x2a48 @0x2
0x2a46…2a5b at0004 = ╱92╱ PRINT ╱ // 0x2a4a @0x4
0x2a46…2a5b at0005 = ╱22╱"╱ // 0x2a4b @0x5
0x2a46…2a5b at0006 = ╱3c╱<╱ // 0x2a4c @0x6
0x2a46…2a5b at0007 = ╱53╱S╱ // 0x2a4d @0x7
0x2a46…2a5b at0008 = ╱43╱C╱ // 0x2a4e @0x8
0x2a46…2a5b at0009 = ╱30╱0╱ // 0x2a4f @0x9
0x2a46…2a5b at000a = ╱32╱2╱ // 0x2a50 @0xa
0x2a46…2a5b at000b = ╱32╱2╱ // 0x2a51 @0xb
0x2a46…2a5b at000c = ╱33╱3╱ // 0x2a52 @0xc
0x2a46…2a5b at000d = ╱3e╱>╱ // 0x2a53 @0xd
0x2a46…2a5b at000e = ╱22╱"╱ // 0x2a54 @0xe
0x2a46…2a5b at000f = ╱ea╱ ; ╱ // 0x2a55 @0xf
0x2a46…2a5b at0010 = ╱53╱S╱ // 0x2a56 @0x10
0x2a46…2a5b at0011 = ╱54╱T╱ // 0x2a57 @0x11
0x2a46…2a5b at0012 = ╱32╱2╱ // 0x2a58 @0x12
0x2a46…2a5b at0013 = ╱ef╱ $ ╱ // 0x2a59 @0x13
0x2a46…2a5b at0014 = EOL // 0x2a5a @0x14
0x2a46…2a5b }
0x2a5b…2a73 c061 03860 CURSOR 2 + ╱cb╱ ( ST2 $ ) , 23
0x2a5b…2a73 LineComal80 {
0x2a5b…2a73 ptr = 0xc061 // 0x2a5b @0x0
0x2a5b…2a73 lno = 0x0f14 // 0x2a5d @0x2
0x2a5b…2a73 at0004 = ╱a1╱ CURSOR ╱ // 0x2a5f @0x4
0x2a5b…2a73 at0005 = ╱32╱2╱ // 0x2a60 @0x5
0x2a5b…2a73 at0006 = ╱f20200╱ // 0x2a61 @0x6
0x2a5b…2a73 at0009 = ╱e5╱ + ╱ // 0x2a64 @0x9
0x2a5b…2a73 at000a = ╱cb╱ // 0x2a65 @0xa
0x2a5b…2a73 at000b = ╱ed╱ ( ╱ // 0x2a66 @0xb
0x2a5b…2a73 at000c = ╱53╱S╱ // 0x2a67 @0xc
0x2a5b…2a73 at000d = ╱54╱T╱ // 0x2a68 @0xd
0x2a5b…2a73 at000e = ╱32╱2╱ // 0x2a69 @0xe
0x2a5b…2a73 at000f = ╱ef╱ $ ╱ // 0x2a6a @0xf
0x2a5b…2a73 at0010 = ╱ee╱ ) ╱ // 0x2a6b @0x10
0x2a5b…2a73 at0011 = ╱ec╱ , ╱ // 0x2a6c @0x11
0x2a5b…2a73 at0012 = ╱32╱2╱ // 0x2a6d @0x12
0x2a5b…2a73 at0013 = ╱33╱3╱ // 0x2a6e @0x13
0x2a5b…2a73 at0014 = ╱f21700╱ // 0x2a6f @0x14
0x2a5b…2a73 at0017 = EOL // 0x2a72 @0x17
0x2a5b…2a73 }
0x2a73…2a84 c072 03870 EDIT "" : A_KTONR $
0x2a73…2a84 LineComal80 {
0x2a73…2a84 ptr = 0xc072 // 0x2a73 @0x0
0x2a73…2a84 lno = 0x0f1e // 0x2a75 @0x2
0x2a73…2a84 at0004 = ╱b1╱ EDIT ╱ // 0x2a77 @0x4
0x2a73…2a84 at0005 = ╱22╱"╱ // 0x2a78 @0x5
0x2a73…2a84 at0006 = ╱22╱"╱ // 0x2a79 @0x6
0x2a73…2a84 at0007 = ╱f1╱ : ╱ // 0x2a7a @0x7
0x2a73…2a84 at0008 = ╱41╱A╱ // 0x2a7b @0x8
0x2a73…2a84 at0009 = ╱5f╱_╱ // 0x2a7c @0x9
0x2a73…2a84 at000a = ╱4b╱K╱ // 0x2a7d @0xa
0x2a73…2a84 at000b = ╱54╱T╱ // 0x2a7e @0xb
0x2a73…2a84 at000c = ╱4f╱O╱ // 0x2a7f @0xc
0x2a73…2a84 at000d = ╱4e╱N╱ // 0x2a80 @0xd
0x2a73…2a84 at000e = ╱52╱R╱ // 0x2a81 @0xe
0x2a73…2a84 at000f = ╱ef╱ $ ╱ // 0x2a82 @0xf
0x2a73…2a84 at0010 = EOL // 0x2a83 @0x10
0x2a73…2a84 }
0x2a84…2a96 c084 03880 EXEC SL_FEJLLINIE
0x2a84…2a96 LineComal80 {
0x2a84…2a96 ptr = 0xc084 // 0x2a84 @0x0
0x2a84…2a96 lno = 0x0f28 // 0x2a86 @0x2
0x2a84…2a96 at0004 = ╱9d╱ EXEC ╱ // 0x2a88 @0x4
0x2a84…2a96 at0005 = ╱53╱S╱ // 0x2a89 @0x5
0x2a84…2a96 at0006 = ╱4c╱L╱ // 0x2a8a @0x6
0x2a84…2a96 at0007 = ╱5f╱_╱ // 0x2a8b @0x7
0x2a84…2a96 at0008 = ╱46╱F╱ // 0x2a8c @0x8
0x2a84…2a96 at0009 = ╱45╱E╱ // 0x2a8d @0x9
0x2a84…2a96 at000a = ╱4a╱J╱ // 0x2a8e @0xa
0x2a84…2a96 at000b = ╱4c╱L╱ // 0x2a8f @0xb
0x2a84…2a96 at000c = ╱4c╱L╱ // 0x2a90 @0xc
0x2a84…2a96 at000d = ╱49╱I╱ // 0x2a91 @0xd
0x2a84…2a96 at000e = ╱4e╱N╱ // 0x2a92 @0xe
0x2a84…2a96 at000f = ╱49╱I╱ // 0x2a93 @0xf
0x2a84…2a96 at0010 = ╱45╱E╱ // 0x2a94 @0x10
0x2a84…2a96 at0011 = EOL // 0x2a95 @0x11
0x2a84…2a96 }
0x2a96…2ab5 c0a3 03890 LET IDXPOS := FIND_KTO ( A_KTONR $ )
0x2a96…2ab5 LineComal80 {
0x2a96…2ab5 ptr = 0xc0a3 // 0x2a96 @0x0
0x2a96…2ab5 lno = 0x0f32 // 0x2a98 @0x2
0x2a96…2ab5 at0004 = ╱86╱ LET ╱ // 0x2a9a @0x4
0x2a96…2ab5 at0005 = ╱49╱I╱ // 0x2a9b @0x5
0x2a96…2ab5 at0006 = ╱44╱D╱ // 0x2a9c @0x6
0x2a96…2ab5 at0007 = ╱58╱X╱ // 0x2a9d @0x7
0x2a96…2ab5 at0008 = ╱50╱P╱ // 0x2a9e @0x8
0x2a96…2ab5 at0009 = ╱4f╱O╱ // 0x2a9f @0x9
0x2a96…2ab5 at000a = ╱53╱S╱ // 0x2aa0 @0xa
0x2a96…2ab5 at000b = ╱f0╱ := ╱ // 0x2aa1 @0xb
0x2a96…2ab5 at000c = ╱46╱F╱ // 0x2aa2 @0xc
0x2a96…2ab5 at000d = ╱49╱I╱ // 0x2aa3 @0xd
0x2a96…2ab5 at000e = ╱4e╱N╱ // 0x2aa4 @0xe
0x2a96…2ab5 at000f = ╱44╱D╱ // 0x2aa5 @0xf
0x2a96…2ab5 at0010 = ╱5f╱_╱ // 0x2aa6 @0x10
0x2a96…2ab5 at0011 = ╱4b╱K╱ // 0x2aa7 @0x11
0x2a96…2ab5 at0012 = ╱54╱T╱ // 0x2aa8 @0x12
0x2a96…2ab5 at0013 = ╱4f╱O╱ // 0x2aa9 @0x13
0x2a96…2ab5 at0014 = ╱ed╱ ( ╱ // 0x2aaa @0x14
0x2a96…2ab5 at0015 = ╱41╱A╱ // 0x2aab @0x15
0x2a96…2ab5 at0016 = ╱5f╱_╱ // 0x2aac @0x16
0x2a96…2ab5 at0017 = ╱4b╱K╱ // 0x2aad @0x17
0x2a96…2ab5 at0018 = ╱54╱T╱ // 0x2aae @0x18
0x2a96…2ab5 at0019 = ╱4f╱O╱ // 0x2aaf @0x19
0x2a96…2ab5 at001a = ╱4e╱N╱ // 0x2ab0 @0x1a
0x2a96…2ab5 at001b = ╱52╱R╱ // 0x2ab1 @0x1b
0x2a96…2ab5 at001c = ╱ef╱ $ ╱ // 0x2ab2 @0x1c
0x2a96…2ab5 at001d = ╱ee╱ ) ╱ // 0x2ab3 @0x1d
0x2a96…2ab5 at001e = EOL // 0x2ab4 @0x1e
0x2a96…2ab5 }
0x2ab5…2adf c0cd 03900 IF NOT OK THEN EXEC FEJL ( "Konto…er…ikke…oprettet" )
0x2ab5…2adf LineComal80 {
0x2ab5…2adf ptr = 0xc0cd // 0x2ab5 @0x0
0x2ab5…2adf lno = 0x0f3c // 0x2ab7 @0x2
0x2ab5…2adf at0004 = ╱8200╱ IF ╱ // 0x2ab9 @0x4
0x2ab5…2adf at0006 = ╱d7╱ NOT ╱ // 0x2abb @0x6
0x2ab5…2adf at0007 = ╱4f╱O╱ // 0x2abc @0x7
0x2ab5…2adf at0008 = ╱4b╱K╱ // 0x2abd @0x8
0x2ab5…2adf at0009 = ╱b5╱ THEN ╱ // 0x2abe @0x9
0x2ab5…2adf at000a = ╱9d╱ EXEC ╱ // 0x2abf @0xa
0x2ab5…2adf at000b = ╱46╱F╱ // 0x2ac0 @0xb
0x2ab5…2adf at000c = ╱45╱E╱ // 0x2ac1 @0xc
0x2ab5…2adf at000d = ╱4a╱J╱ // 0x2ac2 @0xd
0x2ab5…2adf at000e = ╱4c╱L╱ // 0x2ac3 @0xe
0x2ab5…2adf at000f = ╱ed╱ ( ╱ // 0x2ac4 @0xf
0x2ab5…2adf at0010 = ╱22╱"╱ // 0x2ac5 @0x10
0x2ab5…2adf at0011 = ╱4b╱K╱ // 0x2ac6 @0x11
0x2ab5…2adf at0012 = ╱6f╱o╱ // 0x2ac7 @0x12
0x2ab5…2adf at0013 = ╱6e╱n╱ // 0x2ac8 @0x13
0x2ab5…2adf at0014 = ╱74╱t╱ // 0x2ac9 @0x14
0x2ab5…2adf at0015 = ╱6f╱o╱ // 0x2aca @0x15
0x2ab5…2adf at0016 = ╱20╱…╱ // 0x2acb @0x16
0x2ab5…2adf at0017 = ╱65╱e╱ // 0x2acc @0x17
0x2ab5…2adf at0018 = ╱72╱r╱ // 0x2acd @0x18
0x2ab5…2adf at0019 = ╱20╱…╱ // 0x2ace @0x19
0x2ab5…2adf at001a = ╱69╱i╱ // 0x2acf @0x1a
0x2ab5…2adf at001b = ╱6b╱k╱ // 0x2ad0 @0x1b
0x2ab5…2adf at001c = ╱6b╱k╱ // 0x2ad1 @0x1c
0x2ab5…2adf at001d = ╱65╱e╱ // 0x2ad2 @0x1d
0x2ab5…2adf at001e = ╱20╱…╱ // 0x2ad3 @0x1e
0x2ab5…2adf at001f = ╱6f╱o╱ // 0x2ad4 @0x1f
0x2ab5…2adf at0020 = ╱70╱p╱ // 0x2ad5 @0x20
0x2ab5…2adf at0021 = ╱72╱r╱ // 0x2ad6 @0x21
0x2ab5…2adf at0022 = ╱65╱e╱ // 0x2ad7 @0x22
0x2ab5…2adf at0023 = ╱74╱t╱ // 0x2ad8 @0x23
0x2ab5…2adf at0024 = ╱74╱t╱ // 0x2ad9 @0x24
0x2ab5…2adf at0025 = ╱65╱e╱ // 0x2ada @0x25
0x2ab5…2adf at0026 = ╱74╱t╱ // 0x2adb @0x26
0x2ab5…2adf at0027 = ╱22╱"╱ // 0x2adc @0x27
0x2ab5…2adf at0028 = ╱ee╱ ) ╱ // 0x2add @0x28
0x2ab5…2adf at0029 = EOL // 0x2ade @0x29
0x2ab5…2adf }
0x2adf…2ae7 c0d5 03910 UNTIL OK
0x2adf…2ae7 LineComal80 {
0x2adf…2ae7 ptr = 0xc0d5 // 0x2adf @0x0
0x2adf…2ae7 lno = 0x0f46 // 0x2ae1 @0x2
0x2adf…2ae7 at0004 = ╱98╱ UNTIL ╱ // 0x2ae3 @0x4
0x2adf…2ae7 at0005 = ╱4f╱O╱ // 0x2ae4 @0x5
0x2adf…2ae7 at0006 = ╱4b╱K╱ // 0x2ae5 @0x6
0x2adf…2ae7 at0007 = EOL // 0x2ae6 @0x7
0x2adf…2ae7 }
0x2ae7…2b01 c0ef 03920 PUT FKTONR $ , PNR : A_KTONR $
0x2ae7…2b01 LineComal80 {
0x2ae7…2b01 ptr = 0xc0ef // 0x2ae7 @0x0
0x2ae7…2b01 lno = 0x0f50 // 0x2ae9 @0x2
0x2ae7…2b01 at0004 = ╱aa╱ PUT ╱ // 0x2aeb @0x4
0x2ae7…2b01 at0005 = ╱46╱F╱ // 0x2aec @0x5
0x2ae7…2b01 at0006 = ╱4b╱K╱ // 0x2aed @0x6
0x2ae7…2b01 at0007 = ╱54╱T╱ // 0x2aee @0x7
0x2ae7…2b01 at0008 = ╱4f╱O╱ // 0x2aef @0x8
0x2ae7…2b01 at0009 = ╱4e╱N╱ // 0x2af0 @0x9
0x2ae7…2b01 at000a = ╱52╱R╱ // 0x2af1 @0xa
0x2ae7…2b01 at000b = ╱ef╱ $ ╱ // 0x2af2 @0xb
0x2ae7…2b01 at000c = ╱ec╱ , ╱ // 0x2af3 @0xc
0x2ae7…2b01 at000d = ╱50╱P╱ // 0x2af4 @0xd
0x2ae7…2b01 at000e = ╱4e╱N╱ // 0x2af5 @0xe
0x2ae7…2b01 at000f = ╱52╱R╱ // 0x2af6 @0xf
0x2ae7…2b01 at0010 = ╱f1╱ : ╱ // 0x2af7 @0x10
0x2ae7…2b01 at0011 = ╱41╱A╱ // 0x2af8 @0x11
0x2ae7…2b01 at0012 = ╱5f╱_╱ // 0x2af9 @0x12
0x2ae7…2b01 at0013 = ╱4b╱K╱ // 0x2afa @0x13
0x2ae7…2b01 at0014 = ╱54╱T╱ // 0x2afb @0x14
0x2ae7…2b01 at0015 = ╱4f╱O╱ // 0x2afc @0x15
0x2ae7…2b01 at0016 = ╱4e╱N╱ // 0x2afd @0x16
0x2ae7…2b01 at0017 = ╱52╱R╱ // 0x2afe @0x17
0x2ae7…2b01 at0018 = ╱ef╱ $ ╱ // 0x2aff @0x18
0x2ae7…2b01 at0019 = EOL // 0x2b00 @0x19
0x2ae7…2b01 }
0x2b01…2b12 c100 03930 ENDPROC [NDRE_KTONR
0x2b01…2b12 LineComal80 {
0x2b01…2b12 ptr = 0xc100 // 0x2b01 @0x0
0x2b01…2b12 lno = 0x0f5a // 0x2b03 @0x2
0x2b01…2b12 at0004 = ╱9f╱ ENDPROC ╱ // 0x2b05 @0x4
0x2b01…2b12 at0005 = ╱5b╱[╱ // 0x2b06 @0x5
0x2b01…2b12 at0006 = ╱4e╱N╱ // 0x2b07 @0x6
0x2b01…2b12 at0007 = ╱44╱D╱ // 0x2b08 @0x7
0x2b01…2b12 at0008 = ╱52╱R╱ // 0x2b09 @0x8
0x2b01…2b12 at0009 = ╱45╱E╱ // 0x2b0a @0x9
0x2b01…2b12 at000a = ╱5f╱_╱ // 0x2b0b @0xa
0x2b01…2b12 at000b = ╱4b╱K╱ // 0x2b0c @0xb
0x2b01…2b12 at000c = ╱54╱T╱ // 0x2b0d @0xc
0x2b01…2b12 at000d = ╱4f╱O╱ // 0x2b0e @0xd
0x2b01…2b12 at000e = ╱4e╱N╱ // 0x2b0f @0xe
0x2b01…2b12 at000f = ╱52╱R╱ // 0x2b10 @0xf
0x2b01…2b12 at0010 = EOL // 0x2b11 @0x10
0x2b01…2b12 }
0x2b12…2b17 c105 03940
0x2b12…2b17 LineComal80 {
0x2b12…2b17 ptr = 0xc105 // 0x2b12 @0x0
0x2b12…2b17 lno = 0x0f64 // 0x2b14 @0x2
0x2b12…2b17 at0004 = EOL // 0x2b16 @0x4
0x2b12…2b17 }
0x2b17…2b34 c122 03950 PROC [NDRE_KTOGRP ( ST2 $ , PNR )
0x2b17…2b34 LineComal80 {
0x2b17…2b34 ptr = 0xc122 // 0x2b17 @0x0
0x2b17…2b34 lno = 0x0f6e // 0x2b19 @0x2
0x2b17…2b34 at0004 = ╱9e00╱ PROC ╱ // 0x2b1b @0x4
0x2b17…2b34 at0006 = ╱5b╱[╱ // 0x2b1d @0x6
0x2b17…2b34 at0007 = ╱4e╱N╱ // 0x2b1e @0x7
0x2b17…2b34 at0008 = ╱44╱D╱ // 0x2b1f @0x8
0x2b17…2b34 at0009 = ╱52╱R╱ // 0x2b20 @0x9
0x2b17…2b34 at000a = ╱45╱E╱ // 0x2b21 @0xa
0x2b17…2b34 at000b = ╱5f╱_╱ // 0x2b22 @0xb
0x2b17…2b34 at000c = ╱4b╱K╱ // 0x2b23 @0xc
0x2b17…2b34 at000d = ╱54╱T╱ // 0x2b24 @0xd
0x2b17…2b34 at000e = ╱4f╱O╱ // 0x2b25 @0xe
0x2b17…2b34 at000f = ╱47╱G╱ // 0x2b26 @0xf
0x2b17…2b34 at0010 = ╱52╱R╱ // 0x2b27 @0x10
0x2b17…2b34 at0011 = ╱50╱P╱ // 0x2b28 @0x11
0x2b17…2b34 at0012 = ╱ed╱ ( ╱ // 0x2b29 @0x12
0x2b17…2b34 at0013 = ╱53╱S╱ // 0x2b2a @0x13
0x2b17…2b34 at0014 = ╱54╱T╱ // 0x2b2b @0x14
0x2b17…2b34 at0015 = ╱32╱2╱ // 0x2b2c @0x15
0x2b17…2b34 at0016 = ╱ef╱ $ ╱ // 0x2b2d @0x16
0x2b17…2b34 at0017 = ╱ec╱ , ╱ // 0x2b2e @0x17
0x2b17…2b34 at0018 = ╱50╱P╱ // 0x2b2f @0x18
0x2b17…2b34 at0019 = ╱4e╱N╱ // 0x2b30 @0x19
0x2b17…2b34 at001a = ╱52╱R╱ // 0x2b31 @0x1a
0x2b17…2b34 at001b = ╱ee╱ ) ╱ // 0x2b32 @0x1b
0x2b17…2b34 at001c = EOL // 0x2b33 @0x1c
0x2b17…2b34 }
0x2b34…2b46 c134 03960 LET A_KTOGRP $ := ""
0x2b34…2b46 LineComal80 {
0x2b34…2b46 ptr = 0xc134 // 0x2b34 @0x0
0x2b34…2b46 lno = 0x0f78 // 0x2b36 @0x2
0x2b34…2b46 at0004 = ╱86╱ LET ╱ // 0x2b38 @0x4
0x2b34…2b46 at0005 = ╱41╱A╱ // 0x2b39 @0x5
0x2b34…2b46 at0006 = ╱5f╱_╱ // 0x2b3a @0x6
0x2b34…2b46 at0007 = ╱4b╱K╱ // 0x2b3b @0x7
0x2b34…2b46 at0008 = ╱54╱T╱ // 0x2b3c @0x8
0x2b34…2b46 at0009 = ╱4f╱O╱ // 0x2b3d @0x9
0x2b34…2b46 at000a = ╱47╱G╱ // 0x2b3e @0xa
0x2b34…2b46 at000b = ╱52╱R╱ // 0x2b3f @0xb
0x2b34…2b46 at000c = ╱50╱P╱ // 0x2b40 @0xc
0x2b34…2b46 at000d = ╱ef╱ $ ╱ // 0x2b41 @0xd
0x2b34…2b46 at000e = ╱f0╱ := ╱ // 0x2b42 @0xe
0x2b34…2b46 at000f = ╱22╱"╱ // 0x2b43 @0xf
0x2b34…2b46 at0010 = ╱22╱"╱ // 0x2b44 @0x10
0x2b34…2b46 at0011 = EOL // 0x2b45 @0x11
0x2b34…2b46 }
0x2b46…2b61 c14f 03970 GET KTOGRP $ , PNR : A_KTOGRP $
0x2b46…2b61 LineComal80 {
0x2b46…2b61 ptr = 0xc14f // 0x2b46 @0x0
0x2b46…2b61 lno = 0x0f82 // 0x2b48 @0x2
0x2b46…2b61 at0004 = ╱a9╱ GET ╱ // 0x2b4a @0x4
0x2b46…2b61 at0005 = ╱4b╱K╱ // 0x2b4b @0x5
0x2b46…2b61 at0006 = ╱54╱T╱ // 0x2b4c @0x6
0x2b46…2b61 at0007 = ╱4f╱O╱ // 0x2b4d @0x7
0x2b46…2b61 at0008 = ╱47╱G╱ // 0x2b4e @0x8
0x2b46…2b61 at0009 = ╱52╱R╱ // 0x2b4f @0x9
0x2b46…2b61 at000a = ╱50╱P╱ // 0x2b50 @0xa
0x2b46…2b61 at000b = ╱ef╱ $ ╱ // 0x2b51 @0xb
0x2b46…2b61 at000c = ╱ec╱ , ╱ // 0x2b52 @0xc
0x2b46…2b61 at000d = ╱50╱P╱ // 0x2b53 @0xd
0x2b46…2b61 at000e = ╱4e╱N╱ // 0x2b54 @0xe
0x2b46…2b61 at000f = ╱52╱R╱ // 0x2b55 @0xf
0x2b46…2b61 at0010 = ╱f1╱ : ╱ // 0x2b56 @0x10
0x2b46…2b61 at0011 = ╱41╱A╱ // 0x2b57 @0x11
0x2b46…2b61 at0012 = ╱5f╱_╱ // 0x2b58 @0x12
0x2b46…2b61 at0013 = ╱4b╱K╱ // 0x2b59 @0x13
0x2b46…2b61 at0014 = ╱54╱T╱ // 0x2b5a @0x14
0x2b46…2b61 at0015 = ╱4f╱O╱ // 0x2b5b @0x15
0x2b46…2b61 at0016 = ╱47╱G╱ // 0x2b5c @0x16
0x2b46…2b61 at0017 = ╱52╱R╱ // 0x2b5d @0x17
0x2b46…2b61 at0018 = ╱50╱P╱ // 0x2b5e @0x18
0x2b46…2b61 at0019 = ╱ef╱ $ ╱ // 0x2b5f @0x19
0x2b46…2b61 at001a = EOL // 0x2b60 @0x1a
0x2b46…2b61 }
0x2b61…2b76 c164 03980 PRINT "<SC0223>" ; ST2 $
0x2b61…2b76 LineComal80 {
0x2b61…2b76 ptr = 0xc164 // 0x2b61 @0x0
0x2b61…2b76 lno = 0x0f8c // 0x2b63 @0x2
0x2b61…2b76 at0004 = ╱92╱ PRINT ╱ // 0x2b65 @0x4
0x2b61…2b76 at0005 = ╱22╱"╱ // 0x2b66 @0x5
0x2b61…2b76 at0006 = ╱3c╱<╱ // 0x2b67 @0x6
0x2b61…2b76 at0007 = ╱53╱S╱ // 0x2b68 @0x7
0x2b61…2b76 at0008 = ╱43╱C╱ // 0x2b69 @0x8
0x2b61…2b76 at0009 = ╱30╱0╱ // 0x2b6a @0x9
0x2b61…2b76 at000a = ╱32╱2╱ // 0x2b6b @0xa
0x2b61…2b76 at000b = ╱32╱2╱ // 0x2b6c @0xb
0x2b61…2b76 at000c = ╱33╱3╱ // 0x2b6d @0xc
0x2b61…2b76 at000d = ╱3e╱>╱ // 0x2b6e @0xd
0x2b61…2b76 at000e = ╱22╱"╱ // 0x2b6f @0xe
0x2b61…2b76 at000f = ╱ea╱ ; ╱ // 0x2b70 @0xf
0x2b61…2b76 at0010 = ╱53╱S╱ // 0x2b71 @0x10
0x2b61…2b76 at0011 = ╱54╱T╱ // 0x2b72 @0x11
0x2b61…2b76 at0012 = ╱32╱2╱ // 0x2b73 @0x12
0x2b61…2b76 at0013 = ╱ef╱ $ ╱ // 0x2b74 @0x13
0x2b61…2b76 at0014 = EOL // 0x2b75 @0x14
0x2b61…2b76 }
0x2b76…2b8e c17c 03990 CURSOR 2 + ╱cb╱ ( ST2 $ ) , 23
0x2b76…2b8e LineComal80 {
0x2b76…2b8e ptr = 0xc17c // 0x2b76 @0x0
0x2b76…2b8e lno = 0x0f96 // 0x2b78 @0x2
0x2b76…2b8e at0004 = ╱a1╱ CURSOR ╱ // 0x2b7a @0x4
0x2b76…2b8e at0005 = ╱32╱2╱ // 0x2b7b @0x5
0x2b76…2b8e at0006 = ╱f20200╱ // 0x2b7c @0x6
0x2b76…2b8e at0009 = ╱e5╱ + ╱ // 0x2b7f @0x9
0x2b76…2b8e at000a = ╱cb╱ // 0x2b80 @0xa
0x2b76…2b8e at000b = ╱ed╱ ( ╱ // 0x2b81 @0xb
0x2b76…2b8e at000c = ╱53╱S╱ // 0x2b82 @0xc
0x2b76…2b8e at000d = ╱54╱T╱ // 0x2b83 @0xd
0x2b76…2b8e at000e = ╱32╱2╱ // 0x2b84 @0xe
0x2b76…2b8e at000f = ╱ef╱ $ ╱ // 0x2b85 @0xf
0x2b76…2b8e at0010 = ╱ee╱ ) ╱ // 0x2b86 @0x10
0x2b76…2b8e at0011 = ╱ec╱ , ╱ // 0x2b87 @0x11
0x2b76…2b8e at0012 = ╱32╱2╱ // 0x2b88 @0x12
0x2b76…2b8e at0013 = ╱33╱3╱ // 0x2b89 @0x13
0x2b76…2b8e at0014 = ╱f21700╱ // 0x2b8a @0x14
0x2b76…2b8e at0017 = EOL // 0x2b8d @0x17
0x2b76…2b8e }
0x2b8e…2ba0 c18e 04000 EDIT "" : A_KTOGRP $
0x2b8e…2ba0 LineComal80 {
0x2b8e…2ba0 ptr = 0xc18e // 0x2b8e @0x0
0x2b8e…2ba0 lno = 0x0fa0 // 0x2b90 @0x2
0x2b8e…2ba0 at0004 = ╱b1╱ EDIT ╱ // 0x2b92 @0x4
0x2b8e…2ba0 at0005 = ╱22╱"╱ // 0x2b93 @0x5
0x2b8e…2ba0 at0006 = ╱22╱"╱ // 0x2b94 @0x6
0x2b8e…2ba0 at0007 = ╱f1╱ : ╱ // 0x2b95 @0x7
0x2b8e…2ba0 at0008 = ╱41╱A╱ // 0x2b96 @0x8
0x2b8e…2ba0 at0009 = ╱5f╱_╱ // 0x2b97 @0x9
0x2b8e…2ba0 at000a = ╱4b╱K╱ // 0x2b98 @0xa
0x2b8e…2ba0 at000b = ╱54╱T╱ // 0x2b99 @0xb
0x2b8e…2ba0 at000c = ╱4f╱O╱ // 0x2b9a @0xc
0x2b8e…2ba0 at000d = ╱47╱G╱ // 0x2b9b @0xd
0x2b8e…2ba0 at000e = ╱52╱R╱ // 0x2b9c @0xe
0x2b8e…2ba0 at000f = ╱50╱P╱ // 0x2b9d @0xf
0x2b8e…2ba0 at0010 = ╱ef╱ $ ╱ // 0x2b9e @0x10
0x2b8e…2ba0 at0011 = EOL // 0x2b9f @0x11
0x2b8e…2ba0 }
0x2ba0…2bbb c1a9 04010 PUT KTOGRP $ , PNR : A_KTOGRP $
0x2ba0…2bbb LineComal80 {
0x2ba0…2bbb ptr = 0xc1a9 // 0x2ba0 @0x0
0x2ba0…2bbb lno = 0x0faa // 0x2ba2 @0x2
0x2ba0…2bbb at0004 = ╱aa╱ PUT ╱ // 0x2ba4 @0x4
0x2ba0…2bbb at0005 = ╱4b╱K╱ // 0x2ba5 @0x5
0x2ba0…2bbb at0006 = ╱54╱T╱ // 0x2ba6 @0x6
0x2ba0…2bbb at0007 = ╱4f╱O╱ // 0x2ba7 @0x7
0x2ba0…2bbb at0008 = ╱47╱G╱ // 0x2ba8 @0x8
0x2ba0…2bbb at0009 = ╱52╱R╱ // 0x2ba9 @0x9
0x2ba0…2bbb at000a = ╱50╱P╱ // 0x2baa @0xa
0x2ba0…2bbb at000b = ╱ef╱ $ ╱ // 0x2bab @0xb
0x2ba0…2bbb at000c = ╱ec╱ , ╱ // 0x2bac @0xc
0x2ba0…2bbb at000d = ╱50╱P╱ // 0x2bad @0xd
0x2ba0…2bbb at000e = ╱4e╱N╱ // 0x2bae @0xe
0x2ba0…2bbb at000f = ╱52╱R╱ // 0x2baf @0xf
0x2ba0…2bbb at0010 = ╱f1╱ : ╱ // 0x2bb0 @0x10
0x2ba0…2bbb at0011 = ╱41╱A╱ // 0x2bb1 @0x11
0x2ba0…2bbb at0012 = ╱5f╱_╱ // 0x2bb2 @0x12
0x2ba0…2bbb at0013 = ╱4b╱K╱ // 0x2bb3 @0x13
0x2ba0…2bbb at0014 = ╱54╱T╱ // 0x2bb4 @0x14
0x2ba0…2bbb at0015 = ╱4f╱O╱ // 0x2bb5 @0x15
0x2ba0…2bbb at0016 = ╱47╱G╱ // 0x2bb6 @0x16
0x2ba0…2bbb at0017 = ╱52╱R╱ // 0x2bb7 @0x17
0x2ba0…2bbb at0018 = ╱50╱P╱ // 0x2bb8 @0x18
0x2ba0…2bbb at0019 = ╱ef╱ $ ╱ // 0x2bb9 @0x19
0x2ba0…2bbb at001a = EOL // 0x2bba @0x1a
0x2ba0…2bbb }
0x2bbb…2bcd 0000 04020 ENDPROC [NDRE_KTOGRP
0x2bbb…2bcd LineComal80 {
0x2bbb…2bcd ptr = 0x0000 // 0x2bbb @0x0
0x2bbb…2bcd lno = 0x0fb4 // 0x2bbd @0x2
0x2bbb…2bcd at0004 = ╱9f╱ ENDPROC ╱ // 0x2bbf @0x4
0x2bbb…2bcd at0005 = ╱5b╱[╱ // 0x2bc0 @0x5
0x2bbb…2bcd at0006 = ╱4e╱N╱ // 0x2bc1 @0x6
0x2bbb…2bcd at0007 = ╱44╱D╱ // 0x2bc2 @0x7
0x2bbb…2bcd at0008 = ╱52╱R╱ // 0x2bc3 @0x8
0x2bbb…2bcd at0009 = ╱45╱E╱ // 0x2bc4 @0x9
0x2bbb…2bcd at000a = ╱5f╱_╱ // 0x2bc5 @0xa
0x2bbb…2bcd at000b = ╱4b╱K╱ // 0x2bc6 @0xb
0x2bbb…2bcd at000c = ╱54╱T╱ // 0x2bc7 @0xc
0x2bbb…2bcd at000d = ╱4f╱O╱ // 0x2bc8 @0xd
0x2bbb…2bcd at000e = ╱47╱G╱ // 0x2bc9 @0xe
0x2bbb…2bcd at000f = ╱52╱R╱ // 0x2bca @0xf
0x2bbb…2bcd at0010 = ╱50╱P╱ // 0x2bcb @0x10
0x2bbb…2bcd at0011 = EOL // 0x2bcc @0x11
0x2bbb…2bcd }
0x2bcd…2bd3 (146,) 95ee 38382 ╱00╱ ╱00╱
0x2bcd…2bd3 LineComal80 {
0x2bcd…2bd3 ptr = 0x95ee // 0x2bcd @0x0
0x2bcd…2bd3 lno = 0x95ee // 0x2bcf @0x2
0x2bcd…2bd3 at0004 = ╱00╱ // 0x2bd1 @0x4
0x2bcd…2bd3 at0005 = ╱00╱ // 0x2bd2 @0x5
0x2bcd…2bd3 }