|
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: 18875 (0x49bb)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSAKY«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSAKY«
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 // *………………………………………Vestervang…6,…6920…Videb{k…………………*
00200 // *………………………………………………………………………………………………………………………………*
00210 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
00220 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
00230 // *………………………………………7400……Herning……………………………………………………*
00240 // **************************************************
00250 EXEC DIMENSIONER
00260 EXEC INITIER
00270 EXEC OPT[L
00280 EXEC START_MENU
00290 CHAIN PROGRAM $
00300 // ===========…Procedurer…starter…==============
00310 PROC DIMENSIONER
00320 // Standard…variable
00330 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
00340 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
00350 REAL RESRV , PPAR
00360 INTEGER OK , TRUE , FALSE , I , J
00370 // Hj{lpevariable
00380 REAL TOT ( 6 ) , BAL ( 6 ) , KASSE_BEH , K_DIFF , MOMS_KR , NULR
00390 INTEGER IDXPOS , HIGH , LOW , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K , NUL
00400 // Variable…til…filen…SYSPARA
00410 DIM SYSPARA $ OF 17
00420 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00430 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00440 // Variable…til…filen…@@PARAM
00450 DIM PARAM $ OF 17
00460 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00470 REAL MOMS
00480 // Variable…til…filen…@@KASSE
00490 DIM KASSE $ OF 17
00500 DIM K_BDAT $ OF 6
00510 INTEGER K_H\JREC , K_MAXREC , S_NR_KASSE
00520 DIM K_BKTO $ OF 8 , K_LKOD $ OF 1 , K_MKOD $ OF 1
00530 DIM K_BNR $ OF 5 , K_TXT $ OF 20
00540 REAL K_BKR
00550 INTEGER K_DK
00560 // Variable…til…filen…@@KONTO
00570 DIM KONTO $ OF 17
00580 DIM ST_DATO $ OF 6
00590 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
00600 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00610 REAL KTO_PRIMO , KTO_ULTIMO
00620 INTEGER KTO_FP , KTO_SP
00630 // Variable…til…filen…@@KTOIDX
00640 DIM KTOIDX $ OF 17
00650 INTEGER I_H\JREC , I_MAXREC
00660 DIM KTONR $ OF 8
00670 INTEGER RECNR
00680 // Variable…til…filen…@@FKTONR
00690 DIM FKTONR $ OF 17
00700 DIM KASSE_KTO $ OF 8 , BANK_KTO $ OF 8 , GIRO_KTO $ OF 8
00710 DIM K_DIFF_KTO $ OF 8 , INDMOMS_KTO $ OF 8 , UDMOMS_KTO $ OF 8
00720 // Variable…til…filen…@@TRANS
00730 DIM TRANS $ OF 17
00740 INTEGER T_H\JREC , T_MAXREC
00750 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
00760 REAL BMOMS , BBEL\B
00770 INTEGER DK , NTRANS
00780 ENDPROC DIMENSIONER
00790
00800 PROC INITIER
00810 LET PRGFL $ := "DP2"
00820 LET PROGRAM $ := PRGFL $ + ":SYSKR"
00830 LET TAL $ := "0123456789" ; NULR := 0
00840 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00850 LET SPC $ := "………………………………………………………………………………………………………………………"
00860 LET SPC $ := SPC $ + SPC $
00870 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00880 LET KREDIT := - 1 ; DEBET := 1
00890 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00900 EXEC OPENFIL ( SYSPARA $ , "R" )
00910 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00920 EXEC TERMINAL_IDX
00930 CLOSE SYSPARA $
00950 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00960 EXEC OPENFIL ( PARAM $ , "R" )
00970 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00980 CLOSE PARAM $
00990 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
01000 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
01010 LET KASSE $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KASSE"
01020 LET FKTONR $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "FKTONR"
01030 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
01040 EXEC OPENFIL ( KTOIDX $ , "R" )
01050 EXEC OPENFIL ( KONTO $ , "W" )
01060 EXEC OPENFIL ( KASSE $ , "W" )
01070 EXEC OPENFIL ( FKTONR $ , "R" )
01080 EXEC OPENFIL ( TRANS $ , "W" )
01090 GET FKTONR $ , 1 : KASSE_KTO $
01100 GET FKTONR $ , 2 : BANK_KTO $
01110 GET FKTONR $ , 3 : GIRO_KTO $
01120 GET FKTONR $ , 4 : K_DIFF_KTO $
01130 GET FKTONR $ , 5 : INDMOMS_KTO $
01140 GET FKTONR $ , 6 : UDMOMS_KTO $
01150 CLOSE FKTONR $
01160 ENDPROC INITIER
01170
01180 PROC TERMINAL_IDX
01190 LET PPAR := 5 ; RESRV := 0
01200 CALL J"DDE:PRES"
01210 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01220 ENDPROC TERMINAL_IDX
01230
01240 PROC OPENFIL ( FNAVN $ , WAY $ )
01250 REPEAT
01260 IF AY $ = "W" OR WAY $ = "w" THEN
01270 OPEN FNAVN $ , W
01280 ELSE
01290 OPEN FNAVN $ , R
01300 ENDIF
01310 IF ( FNAVN $ ) THEN
01320 PRINT "<SC0123>" ; CHR$ ( 7 )
01330 IF ( FNAVN $ ) = 6 THEN
01340 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
01350 INPUT "" : SVAR $
01360 ELSE
01370 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01380 PRINT "<S>" ; FNAVN $ ; "…***"
01390 INPUT "" : SVAR $
01400 PRINT "<C0102>" ; SPC $
01410 ENDIF
01420 ENDIF
01430 UNTIL NOT ╱cd╱ ( FNAVN $ )
01440 ENDPROC OPENFIL
01450
01460 PROC TAL_CONTROL ( REF RST $ )
01470 LET J := 0 ; OK := TRUE
01480 FOR I := 1 TO ( RST $ ) DO
01490 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
01500 NEXT I
01510 IF = 0 THEN
01520 LET OK := FALSE
01530 ELSE
01540 LET RST $ := RST $ ( 1 : J )
01550 ENDIF
01560 ENDPROC TAL_CONTROL
01570
01580 PROC KASSEHOVED
01590 EXEC OVERSKRIFT ( "BOGF\RING…AF…KASSEBILAG" , 4 )
01590 PRINT "<C0105>………BILAG……TEKST……………………………………MOMS……KASSE"
01600 PRINT "<C0106>…………NR……………………………………………………………KODE……BANK/"
01620 PRINT "<C0107>……………………………………………………………………………………………GIRO"
01630 PRINT "<C0108>----------------------------------------"
01640 PRINT "<C4105>/……INDBETALING……UDBETALING……MODPOST-…F/"
01650 PRINT "<C4106>……………(DEBET)……………(KREDIT)………ERES……………R/"
01660 PRINT "<C4107>…………………………………………………………………………KONTONR……S"
01670 PRINT "<C4108>----------------------------------------"
01680 ENDPROC KASSEHOVED
01690
01700 PROC OVERSKRIFT ( ST $ , L )
01710 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01720 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01730 PRINT SYST_DAT $ ( 5 : 2 )
01740 CURSOR 36 - ╱cb╱ ( ST $ ) DIV 2 , L
01750 PRINT "***…" ; ST $ ; "…***"
01760 ENDPROC OVERSKRIFT
01770
01780 PROC SL_FEJLLINIE
01790 LET OK := TRUE
01800 PRINT "<C0102>" ; SPC $
01810 ENDPROC SL_FEJLLINIE
01820
01830 PROC FEJL ( ST $ )
01840 LET OK := FALSE
01850 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
01860 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
01870 ENDPROC FEJL
01880
01890
01900 PROC SKRIV_LIN ( R_LIN )
01910 IF K_BNR $ = "*****" THEN EXIT
01920 LET R_SLIN := R_LIN MOD 12 + 8
01930 IF R_SLIN = 8 THEN LET R_SLIN := 12 + R_SLIN
01940 CURSOR 1 , R_SLIN
01950 PRINT SPC $ ( 1 : 78 )
01960 CURSOR 1 , R_SLIN
01970 PRINT CHR$ ( R_LIN , 2 )
01980 CURSOR 4 , R_SLIN
01990 PRINT K_BNR $
02000 CURSOR 11 , R_SLIN
02010 PRINT K_TXT $
02020 CURSOR 32 , R_SLIN
02030 PRINT K_MKOD $
02040 CURSOR 38 , R_SLIN
02050 PRINT K_LKOD $
02060 IF _DK = DEBET THEN
02070 CURSOR 42 , R_SLIN
02080 ELSE
02090 CURSOR 55 , R_SLIN
02100 ENDIF
02110 PRINT CHR$ ( K_BKR , 9 , 2 )
02120 CURSOR 69 , R_SLIN
02130 PRINT K_BKTO $
02140 ENDPROC SKRIV_LIN
02150
02160 PROC SKRIV_K_POST ( P )
02170 PUT KASSE $ , P + 1 : K_BKTO $ , K_LKOD $ , K_MKOD $ , K_BNR $ , K_TXT $ , K_BKR , K_DK
02180 ENDPROC SKRIV_K_POST
02190
02200 PROC L[S_K_POST ( P )
02210 GET KASSE $ , P + 1 : K_BKTO $ , K_LKOD $ , K_MKOD $ , K_BNR $ , K_TXT $ , K_BKR , K_DK
02220 ENDPROC L[S_K_POST
02230
02240 PROC L[S_KONTO ( P )
02250 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
02260 ENDPROC L[S_KONTO
02270
02280 PROC SKRIV_KONTO ( P )
02290 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
02300 ENDPROC SKRIV_KONTO
02310
02320 PROC L[S_TRANS ( P )
02330 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
02340 ENDPROC L[S_TRANS
02350
02360 PROC SKRIV_TRANS ( P )
02370 PUT TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
02380 ENDPROC SKRIV_TRANS
02390
02400 PROC ST_BGST ( REF RST $ )
02410 FOR I := 1 TO ( RST $ ) DO
02420 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
02430 NEXT I
02440 ENDPROC ST_BGST
02450
02460 PROC SIDE_SKIFT
02470 FOR I := LIN_T TO AX_LIN DO PRINT
02480 LET LIN_T := 9
02480 PRINT
02500 PRINT "***…" ; SYST_NAVN $ ; "…***"
02510 PRINT
02520 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 42 )
02530 PRINT "**…KASSERAPPORT…PR.…" ; K_BDAT $ ( 1 : 2 ) ; "." ; K_BDAT $ ( 3 : 2 ) ; "." ;
02540 PRINT K_BDAT $ ( 5 : 2 ) ; "…**……………**…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ;
02550 PRINT SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…**………SIDE:…" ; S_NR_KASSE
02560 PRINT
02570 LET SVAR $ := "-----------------"
02580 LET K := ╱cb╱ ( "…" + KASSE_KTO $ + "…KASSE…" ) ; I := K DIV 2 ; K := 22 - K - I
02590 PRINT "<S>" ; TAB ( 37 ) ; SVAR $ ( 1 : I ) ; "…" ; KASSE_KTO $ ; "…KASSE…" ; SVAR $ ( 1 : K ) ; "……"
02600 LET K := ╱cb╱ ( "…" + BANK_KTO $ + "…BANK…" ) ; I := K DIV 2 ; K := 22 - K - I
02600 PRINT "<S>" ; SVAR $ ( 1 : I ) ; "…" ; BANK_KTO $ ; "…BANK…" ; SVAR $ ( 1 : K ) ; "……"
02610 LET K := ╱cb╱ ( "…" + GIRO_KTO $ + "…GIRO…" ) ; I := K DIV 2 ; K := 22 - K - I
02620 PRINT SVAR $ ( 1 : I ) ; "…" ; GIRO_KTO $ ; "…GIRO…" ; SVAR $ ( 1 : K )
02630 PRINT "<S>BILAG……TEKST……………………………………………MK……INDBETALT…………UDBETALT………"
02640 PRINT "……INDSAT………………H[VET…………………INDSAT………………H[VET……………KONTONR"
02650 EXEC SLUT_LINIE
02660 LET S_NR_KASSE := S_NR_KASSE + 1
02670 ENDPROC SIDE_SKIFT
02680
02690 PROC PRINT_LINIE
02700 IF K_BNR $ = "*****" THEN EXIT
02710 IF LIN_T + 12 >= MAX_LIN THEN EXEC TRANSPORT
02720 LET LIN_T := LIN_T + 1
02730 PRINT "<S>" ; K_BNR $ ; TAB ( 11 ) ; K_TXT $ ; TAB ( 33 ) ; K_MKOD $ ; TAB ( 35 )
02750 CASE K_LKOD $ OF
02760 WHILE "K"
02770 // DO…NOTHING
02780 LET T_IDX := 1
02790 WHILE "B"
02800 PRINT TAB ( 25 ) ;
02810 LET T_IDX := 3
02820 WHILE "G"
02830 PRINT TAB ( 49 ) ;
02840 LET T_IDX := 5
02850 ENDCASE
02860 IF _DK = DEBET THEN
02870 PRINT CHR$ ( K_BKR , 9 , 2 ) ;
02880 LET TOT ( T_IDX ) := TOT ( T_IDX ) + K_BKR
02890 ELSE
02900 PRINT "………………………………" ; CHR$ ( K_BKR , 9 , 2 ) ;
02910 LET TOT ( T_IDX + 1 ) := TOT ( T_IDX + 1 ) + K_BKR
02920 ENDIF
02930 IF _BKTO $ + "/" IN KASSE_KTO $ + "/" + BANK_KTO $ + "/" + GIRO_KTO $ + "/" THEN
02940 PRINT "<N>"
02950 PRINT "<S>" ; TAB ( 36 )
02960 CASE K_BKTO $ OF
02970 WHILE KASSE_KTO $
02980 // DO…NOTHING
02990 LET T_IDX := 1
03000 WHILE BANK_KTO $
03010 PRINT "<S>" ; TAB ( 28 )
03020 LET T_IDX := 3
03030 WHILE GIRO_KTO $
03040 PRINT "<S>" ; TAB ( 52 )
03050 LET T_IDX := 5
03060 ENDCASE
03070 IF _DK = DEBET THEN
03080 PRINT USING "………………………………########.##" : K_BKR
03090 LET TOT ( T_IDX + 1 ) := TOT ( T_IDX + 1 ) + K_BKR
03100 ELSE
03110 PRINT USING "########.##" : K_BKR
03120 LET TOT ( T_IDX ) := TOT ( T_IDX ) + K_BKR
03130 ENDIF
03140 ELSE
03150 PRINT "<S>" ; TAB ( 78 )
03160 PRINT K_BKTO $
03170 ENDIF
03180 ENDPROC PRINT_LINIE
03190
03200 PROC SLUT_LINIE
03200 PRINT "<S>-----……--------------------……--……----------……----------……"
03220 PRINT "----------……----------……----------……----------……--------"
03230 ENDPROC SLUT_LINIE
03240
03250 PROC TRANSPORT
03260 IF IN_T = 100 THEN
03270 EXEC SIDE_SKIFT
03280 ELSE
03290 EXEC SLUT_LINIE
03300 LET LIN_T := LIN_T + 2
03310 PRINT "<S>" ; TAB ( 11 ) ; "TRANSPORT" ; TAB ( 36 )
03320 PRINT USING "<S>########.##…########.##…" : TOT ( 1 ) , TOT ( 2 )
03330 PRINT USING "<S>########.##…########.##…" : TOT ( 3 ) , TOT ( 4 )
03340 PRINT USING "########.##…########.##" : TOT ( 5 ) , TOT ( 6 )
03350 EXEC SIDE_SKIFT
03360 LET LIN_T := LIN_T + 1
03370 PRINT "<S>" ; TAB ( 11 ) ; "TRANSPORT" ; TAB ( 36 )
03380 PRINT USING "<S>########.##…########.##…" : TOT ( 1 ) , TOT ( 2 )
03390 PRINT USING "<S>########.##…########.##…" : TOT ( 3 ) , TOT ( 4 )
03400 PRINT USING "########.##…########.##…" : TOT ( 5 ) , TOT ( 6 )
03410 ENDIF
03420 ENDPROC TRANSPORT
03430
03440 PROC UDSKRIV_POSTER
03450 EXEC OVERSKRIFT ( "Udskrivning…af…kasserapport" , 7 )
03450 EXEC PRINTRES ( "bred…EDB-liste" , 12 )
03460 LET TOT ( 1 ) , TOT ( 2 ) , TOT ( 3 ) , TOT ( 4 ) , TOT ( 5 ) , TOT ( 6 ) := 0 ; LIN_T := 100 ; MAX_LIN := 51
03480 GET KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE , K_BDAT $
03490 FOR J := 1 TO _H\JREC - 1 DO
03500 EXEC L[S_K_POST ( J )
03510 EXEC PRINT_LINIE
03520 NEXT J
03530 IF LIN_T >< 100 THEN EXEC AFSLUT
03540 EXEC PRINTREL
03550 ENDPROC UDSKRIV_POSTER
03560
03570 PROC AFSLUT
03580 EXEC SLUT_LINIE
03590 LET LIN_T := LIN_T + 7
03600 PRINT "<S>" ; TAB ( 11 ) ; "DAGENS…BEV[GELSER…" ; TAB ( 35 )
03610 PRINT "<S>" ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
03620 PRINT "<S>" ; CHR$ ( TOT ( 3 ) , 9 , 2 ) ; CHR$ ( TOT ( 4 ) , 9 , 2 )
03630 PRINT CHR$ ( TOT ( 5 ) , 9 , 2 ) ; CHR$ ( TOT ( 6 ) , 9 , 2 )
03640 PRINT
03650 PRINT "<S>" ; TAB ( 11 ) ; "BEHOLDNING…MORGEN" ; TAB ( 35 )
03660 EXEC FIND_KTO ( KASSE_KTO $ )
03670 EXEC L[S_KONTO ( RECNR )
03680 PRINT "<S>" ; CHR$ ( KTO_ULTIMO , 9 , 2 ) ; TAB ( 28 )
03690 LET BAL ( 1 ) := TOT ( 1 ) + KTO_ULTIMO
03700 EXEC FIND_KTO ( BANK_KTO $ )
03710 EXEC L[S_KONTO ( RECNR )
03720 PRINT "<S>" ; CHR$ ( KTO_ULTIMO , 9 , 2 ) ; TAB ( 28 )
03730 LET BAL ( 3 ) := TOT ( 3 ) + KTO_ULTIMO
03740 EXEC FIND_KTO ( GIRO_KTO $ )
03750 EXEC L[S_KONTO ( RECNR )
03760 PRINT CHR$ ( KTO_ULTIMO , 9 , 2 )
03770 LET BAL ( 5 ) := TOT ( 5 ) + KTO_ULTIMO
03780 PRINT "<S>" ; TAB ( 11 ) ; "BEHOLDNING…AFTEN" ; TAB ( 47 )
03790 PRINT "<S>" ; CHR$ ( KASSE_BEH , 9 , 2 ) ; TAB ( 28 )
03800 PRINT "<S>" ; CHR$ ( BAL ( 3 ) - TOT ( 4 ) , 9 , 2 ) ; TAB ( 28 )
03810 PRINT CHR$ ( BAL ( 5 ) - TOT ( 6 ) , 9 , 2 )
03820 PRINT "<S>………………………………………………………………………………………----------……----------……"
03830 PRINT "----------……----------……----------……----------"
03840 PRINT "<S>" ; TAB ( 11 ) ; "BALANCE" ; TAB ( 35 )
03850 LET BAL ( 2 ) := TOT ( 2 ) + KASSE_BEH
03860 PRINT CHR$ ( BAL ( 1 ) , 9 , 2 ) ; CHR$ ( BAL ( 2 ) , 9 , 2 ) ; CHR$ ( BAL ( 3 ) , 9 , 2 ) ;
03870 PRINT CHR$ ( BAL ( 3 ) , 9 , 2 ) ; CHR$ ( BAL ( 5 ) , 9 , 2 ) ; CHR$ ( BAL ( 5 ) , 9 , 2 )
03880 PRINT "<S>" ; TAB ( 11 ) ; "KASSEDIFFERENCE" ; TAB ( 35 )
03890 IF _DIFF > 0 THEN
03900 PRINT CHR$ ( K_DIFF , 9 , 2 )
03910 LET BAL ( 1 ) := BAL ( 1 ) + K_DIFF
03920 ELSE
03930 PRINT TAB ( 13 ) ; CHR$ ( ABS ( K_DIFF ) , 9 , 2 )
03940 LET BAL ( 2 ) := BAL ( 2 ) - K_DIFF
03950 ENDIF
03960 PRINT "<S>" ; TAB ( 11 ) ; "BALANCE" ; TAB ( 35 )
03970 PRINT CHR$ ( BAL ( 1 ) , 9 , 2 ) ; CHR$ ( BAL ( 2 ) , 9 , 2 )
03990 FOR I := LIN_T TO AX_LIN DO PRINT
04000 ENDPROC AFSLUT
04010
04020 PROC OPT[L
04030 LET TOT ( 1 ) , TOT ( 2 ) , TOT ( 3 ) , TOT ( 4 ) , TOT ( 5 ) , TOT ( 6 ) := 0
04040 GET KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE , K_BDAT $
04050 IF _H\JREC < 2 THEN
04060 PRINT "<XC1212>Der…kan…ikke…afstemmes…-…n}r…der…ikke…er…indtastet"
04070 PRINT "<C1213>nogen…kasseposteringer"
04080 INPUT "<C6523>Tryk…RETURN" : SVAR $
04090 CHAIN PROGRAM $
04100 ENDIF
04110 FOR I := 1 TO _H\JREC - 1 DO
04120 EXEC L[S_K_POST ( I )
04130 IF _BNR $ >< "*****" THEN
04140 CASE K_LKOD $ OF
04150 WHILE "K"
04160 LET T_IDX := 1
04170 WHILE "B"
04180 LET T_IDX := 3
04190 WHILE "G"
04200 LET T_IDX := 5
04210 OTHERWISE
04220 EXEC FEJL ( "Ulovlig…likviditetskode…ved…post…" + CHR$ ( I , 2 ) )
04230 ENDCASE
04240 IF _DK = DEBET THEN
04250 LET TOT ( T_IDX ) := TOT ( T_IDX ) + K_BKR
04260 ELSE
04270 LET TOT ( T_IDX + 1 ) := TOT ( T_IDX + 1 ) + K_BKR
04280 ENDIF
04290 CASE K_BKTO $ OF
04300 WHILE KASSE_KTO $
04310 LET T_IDX := 1
04320 WHILE BANK_KTO $
04330 LET T_IDX := 3
04340 WHILE GIRO_KTO $
04350 LET T_IDX := 5
04360 OTHERWISE
04370 LET T_IDX := 0
04380 ENDCASE
04390 IF _IDX > 0 THEN
04400 IF _DK = DEBET THEN
04410 LET TOT ( T_IDX + 1 ) := TOT ( T_IDX + 1 ) + K_BKR
04420 ELSE
04430 LET TOT ( T_IDX ) := TOT ( T_IDX ) + K_BKR
04440 ENDIF
04450 ENDIF
04460 ENDIF
04470 NEXT I
04480 LET IDXPOS := FIND_KTO ( KASSE_KTO $ )
04490 EXEC L[S_KONTO ( RECNR )
04500 LET TOT ( 1 ) := TOT ( 1 ) + KTO_ULTIMO
04510 LET IDXPOS := FIND_KTO ( BANK_KTO $ )
04520 EXEC L[S_KONTO ( RECNR )
04530 LET TOT ( 3 ) := TOT ( 3 ) + KTO_ULTIMO
04540 LET IDXPOS := FIND_KTO ( GIRO_KTO $ )
04550 EXEC L[S_KONTO ( RECNR )
04560 LET TOT ( 5 ) := TOT ( 5 ) + KTO_ULTIMO
04570 ENDPROC OPT[L
04580 PROC START_MENU
04590 EXEC OVERSKRIFT ( "Afstemning…af…kasserapport" , 4 )
04600 CURSOR 42 - ╱cb╱ ( KASSE_KTO $ + "…KASSE" ) / 2 , 6
04610 PRINT KASSE_KTO $ ; "…KASSE"
04620 CURSOR 56 - ╱cb╱ ( BANK_KTO $ + "…BANK" ) / 2 , 6
04630 PRINT BANK_KTO $ ; "…BANK"
04640 CURSOR 70 - ╱cb╱ ( GIRO_KTO $ + "…GIRO" ) / 2 , 6
04650 PRINT GIRO_KTO $ ; "…GIRO"
04660 PRINT "<C0708>Beregnet…beholdning…aften"
04670 PRINT "<SC3708>" ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 ) ; "……" ; CHR$ ( TOT ( 3 ) - TOT ( 4 ) , 9 , 2 )
04680 PRINT "……" ; CHR$ ( TOT ( 5 ) - TOT ( 6 ) , 9 , 2 )
04690 PRINT "<C0711>Indtast…herefter…optalt"
04700 INPUT "<C0712>kassebeholdning…aften………………………" : KASSE_BEH
04710 PRINT "<C3712>" ; CHR$ ( KASSE_BEH , 9 , 2 )
04720 LET K_DIFF := KASSE_BEH - ( TOT ( 1 ) - TOT ( 2 ) )
04730 PRINT "<C0715>Kassedifference…i…forhold"
04740 PRINT "<C0716>til…optalt…beholdning………………………" ; CHR$ ( K_DIFF , 9 , 2 )
04750 REPEAT
04760 LET SVAR $ := "j"
04770 EDIT "<SC2320>Godkend…kassedifference…(j/n)?…" : SVAR $ ( 1 )
04780 UNTIL "/" + SVAR $ + "/" IN "/J/j/N/n/"
04790 IF VAR $ IN "Nn" THEN
04800 PRINT "<XSC1212>G}…tilbage…og…ret…kasseposteringerne…under…funktionskod"
04810 PRINT "e…'RK'"
04820 INPUT "<SC6824>Tryk…RETURN" : SVAR $
04830 CHAIN PROGRAM $
04840 ELSE
04850 EXEC UDSKRIV_POSTER
04860 EXEC BOGF\R_KASSEPOST
04870
04880 ENDIF
04890 ENDPROC START_MENU
04900
04910 PROC BOGF\R_KASSEPOST
04920 EXEC KASSEHOVED
04930 FOR I := 1 TO _H\JREC - 1 DO
04940 EXEC L[S_K_POST ( I )
04950 IF _BNR $ >< "*****" THEN
04960 EXEC SKRIV_LIN ( I )
04970 IF _BKTO $ >< KASSE_KTO $ THEN
04980 IF _BKTO $ >< GIRO_KTO $ THEN
04990 IF _BKTO $ >< BANK_KTO $ THEN
05000 LET K_DK := K_DK * ( - 1 )
05010 IF /" + K_MKOD $ + "/" IN "/I/U/" THEN
05020 LET MOMS_KR := INT ( MOMS * 100 * ( K_BKR / ( MOMS + 100 ) ) + .5 ) / 100 ; K_BKR := K_BKR - MOMS_KR
05030 IF _MKOD $ = "I" THEN
05040 EXEC BOGF\R ( INDMOMS_KTO $ , K_BDAT $ , K_TXT $ , NULR , MOMS_KR , K_DK , K_BNR $ )
05050 ELSE
05060 EXEC BOGF\R ( UDMOMS_KTO $ , K_BDAT $ , K_TXT $ , NULR , MOMS_KR , K_DK , K_BNR $ )
05070 ENDIF
05080 ELSE
05090 LET MOMS_KR := 0
05100 ENDIF
05110 EXEC BOGF\R ( K_BKTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , K_BNR $ )
05120 ENDIF
05130 ENDIF
05140 ENDIF
05150 CURSOR 4 , R_SLIN
05160 PRINT "*…*…*…*…*…*…*…*…*…*…*……B…O…G…F…\…R…T…*…*…*…*…*…*…*…*…*…*…*…*…*" ;
05170 PRINT SPC $ ( 1 : 10 )
05180 LET K_BNR $ := "*****"
05190 EXEC SKRIV_K_POST ( I )
05200 ENDIF
05210 NEXT I
05220 LET K_TXT $ := "INDBETALINGER" ; K_DK := DEBET ; MOMS_KR := 0
05230 LET K_BKR := TOT ( 1 )
05240 EXEC BOGF\R ( KASSE_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "……" )
05250 LET K_BKR := TOT ( 3 ) ; K_TXT $ := "INDSAT"
05260 EXEC BOGF\R ( BANK_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "……" )
05270 LET K_BKR := TOT ( 5 )
05280 EXEC BOGF\R ( GIRO_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "………" )
05290 LET K_DK := KREDIT
05300 LET K_BKR := TOT ( 2 ) ; K_TXT $ := "UDBETALINGER"
05310 EXEC BOGF\R ( KASSE_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "………" )
05320 LET K_BKR := TOT ( 4 ) ; K_TXT $ := "H[VET"
05330 EXEC BOGF\R ( BANK_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "………" )
05340 LET K_BKR := TOT ( 6 )
05350 EXEC BOGF\R ( GIRO_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "………" )
05360 IF _DIFF >< 0 THEN
05370 LET K_DK := SGN ( K_DIFF ) ; K_TXT $ := "KASSEDIFFERENCE" ; K_DIFF := ABS ( K_DIFF )
05380 EXEC BOGF\R ( KASSE_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_DIFF , K_DK , "………" )
05390 LET K_DK := K_DK * ( - 1 )
05400 EXEC BOGF\R ( K_DIFF_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_DIFF , K_DK , "……" )
05410 ENDIF
05420 LET K_H\JREC := 1
05430 PUT KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE , K_BDAT $
05440 ENDPROC BOGF\R_KASSEPOST
05450
05460 PROC BOGF\R ( REF Q_KTO $ , REF Q_DAT $ , REF Q_TXT $ , REF Q_M , REF Q_KR , Q_DK , QN $ )
05470 EXEC FIND_KTO ( Q_KTO $ )
05480 IF OK THEN
05490 EXEC FEJL ( "UKENDT…KONTONR:…" + Q_KTO $ )
05500 EXIT
05510 ELSE
05520 EXEC L[S_KONTO ( RECNR )
05530 IF TO_TYPE $ >< "A" THEN
05540 EXEC FEJL ( "ULOVLIG…KONTONR:…" + Q_KTO $ )
05550 EXIT
05560 ENDIF
05570 ENDIF
05580 GET TRANS $ , 1 : T_H\JREC , T_MAXREC
05590 IF _H\JREC = T_MAXREC THEN
05600 EXEC FEJL ( "TRANSAKTIONSFILEN…ER…FULD" )
05610 EXIT
05620 ENDIF
05630 LET T_H\JREC := T_H\JREC + 1
05640 IF TO_FP > 0 THEN
05650 EXEC L[S_TRANS ( KTO_SP )
05660 LET NTRANS := T_H\JREC
05670 EXEC SKRIV_TRANS ( KTO_SP )
05680 ELSE
05690 LET KTO_FP := T_H\JREC
05700 ENDIF
05710 LET BKTONR $ := Q_KTO $ ; BDATO $ := Q_DAT $ ; BTXT $ := Q_TXT $ ; BMOMS := Q_M ; BBEL\B := Q_KR
05720 LET DK := Q_DK ; NTRANS := NUL ; BLGNR $ := QN $
05730 EXEC SKRIV_TRANS ( T_H\JREC )
05740 LET KTO_SP := T_H\JREC
05750 IF K = DEBET THEN
05760 LET KTO_ULTIMO := KTO_ULTIMO + BBEL\B
05770 ELSE
05780 LET KTO_ULTIMO := KTO_ULTIMO - BBEL\B
05790 ENDIF
05800 EXEC SKRIV_KONTO ( RECNR )
05810 PUT TRANS $ , 1 : T_H\JREC , T_MAXREC
05820 ENDPROC BOGF\R
05830 PROC FIND_KTO ( REF R_KTONR $ )
05840 LET OK := FALSE
05850 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
05860 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
05870 IF IGH > 1 THEN
05880 REPEAT
05890 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
05900 GET KTOIDX $ , POS : KTONR $ , RECNR
05910 IF TONR $ > R_KTONR $ THEN
05920 LET HIGH := POS
05930 ELSE
05940 IF TONR $ < R_KTONR $ THEN
05950 LET LOW := POS
05960 ENDIF
05970 ENDIF
05980 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
05990 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
06000 GET KTOIDX $ , POS : KTONR $ , RECNR
06010 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
06020 ENDIF
06030 LET FIND_KTO := POS
06040 ENDPROC FIND_KTO
06050 //
06040 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
06050 LET PRTNR $ := "1" ; OK := TRUE
06060 REPEAT
06070 CURSOR 15 , LINE
06080 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
06090 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
06100 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
06110 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
06120 INPUT "" : SVAR $
06130 SELECT OUTPUT "P" + PRTNR $
06140 IF ( "P" ) THEN
06150 CURSOR 12 , LINE
06160 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
06170 CURSOR 12 , LINE + 1
06180 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
06190 IF VAR $ = "J" OR SVAR $ = "j" THEN
06200 CURSOR 12 , LINE
06210 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
06220 PRINT "<SZ>"
06230 WHILE ╱cd╱ ( "P" ) DO
06240 LET SEK := ╱ca╱ ( 5 )
06250 SELECT OUTPUT "P" + PRTNR $
06260 ENDWHILE
06270 ELSE
06280 LET OK := FALSE
06290 ENDIF
06300 ENDIF
06310 CURSOR 1 , LINE
06320 PRINT "<Z>"
06330 PRINT "<SZ>"
06340 ENDPROC PRINTRES
06350 //
06060 PROC PRINTREL // RELEASE…PRINTER
06070 SELECT OUTPUT "T"
06080 ENDPROC PRINTREL
02490 PRINT "<K>"
03470 LET TOT ( 1 ) , TOT ( 2 ) , TOT ( 3 ) , TOT ( 4 ) , TOT ( 5 ) , TOT ( 6 ) := 0 ; LIN_T := 100 ; MAX_LIN := 72
03980 PRINT "<LIN>"
00940 LET PROGRAM $ := PROGRAM $ + S_KODE $
01600 PRINT "<C0105>………BILAG……TEKST……………………………………………………KASSE"
01610 PRINT "<C0106>…………NR……………………………………………………………………………BANK/"
02610 PRINT "<S>" ; SVAR $ ( 1 : I ) ; "…" ; BANK_KTO $ ; "…BANK…" ; SVAR $ ( 1 : K ) ; "……"
02620 LET K := ╱cb╱ ( "…" + GIRO_KTO $ + "…GIRO…" ) ; I := K DIV 2 ; K := 22 - K - I
02630 PRINT SVAR $ ( 1 : I ) ; "…" ; GIRO_KTO $ ; "…GIRO…" ; SVAR $ ( 1 : K )
02640 PRINT "<S>BILAG……TEKST………………………………………………………INDBETALT…………UDBETALT………"
02650 PRINT "……INDSAT………………H[VET…………………INDSAT………………H[VET……………KONTONR"
02660 EXEC SLUT_LINIE
02670 LET S_NR_KASSE := S_NR_KASSE + 1
02680 ENDPROC SIDE_SKIFT
02690
02700 PROC PRINT_LINIE
02710 IF K_BNR $ = "*****" THEN EXIT
02720 IF LIN_T + 12 >= MAX_LIN THEN EXEC TRANSPORT
02730 LET LIN_T := LIN_T + 1
02740 PRINT "<S>" ; K_BNR $ ; TAB ( 11 ) ; K_TXT $ ; TAB ( 33 ) ; K_MKOD $ ; TAB ( 35 )
03210 PRINT "<S>-----……------------------------……----------……----------……"
03460 EXEC PRINTRES ( "papir" , 12 )
09900 //
09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
09902 LET PRTNR $ := "1" ; OK := TRUE
09903 REPEAT
09904 CURSOR 15 , LINE
09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
09907 CURSOR 1 , LINE
09908 PRINT "<Z>"
09909 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
09910 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
09911 INPUT "" : SVAR $
09912 SELECT OUTPUT "P" + PRTNR $
09913 IF ( "P" ) THEN
09914 CURSOR 12 , LINE
09915 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
09916 CURSOR 12 , LINE + 1
09917 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
09918 IF VAR $ = "J" OR SVAR $ = "j" THEN
09919 CURSOR 12 , LINE
09920 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
09921 PRINT "<SZ>"
09922 WHILE ╱cd╱ ( "P" ) DO
09923 LET SEK := ╱ca╱ ( 5 )
09924 SELECT OUTPUT "P" + PRTNR $
09925 ENDWHILE
09926 ELSE
09927 LET OK := FALSE
09928 ENDIF
09929 ENDIF
09930 CURSOR 1 , LINE
09931 PRINT "<Z>"
09932 PRINT "<SZ>"
09933 ENDPROC PRINTRES
04961 IF ( I - 1 ) MOD 12 = 0 THEN EXEC KASSEHOVED
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 // *………………………………………Vestervang…6,…6920…Videb{k…………………*
0x01f8…0230 LineComal80 {
0x01f8…0230 ptr = 0x981e // 0x1f8 @0x0
0x01f8…0230 lno = 0x00be // 0x1fa @0x2
0x01f8…0230 at0004 = ╱89╱ // ╱ // 0x1fc @0x4
0x01f8…0230 at0005 = ╱2a╱*╱ // 0x1fd @0x5
0x01f8…0230 at0006 = ╱20╱…╱ // 0x1fe @0x6
0x01f8…0230 at0007 = ╱20╱…╱ // 0x1ff @0x7
0x01f8…0230 at0008 = ╱20╱…╱ // 0x200 @0x8
0x01f8…0230 at0009 = ╱20╱…╱ // 0x201 @0x9
0x01f8…0230 at000a = ╱20╱…╱ // 0x202 @0xa
0x01f8…0230 at000b = ╱20╱…╱ // 0x203 @0xb
0x01f8…0230 at000c = ╱20╱…╱ // 0x204 @0xc
0x01f8…0230 at000d = ╱20╱…╱ // 0x205 @0xd
0x01f8…0230 at000e = ╱20╱…╱ // 0x206 @0xe
0x01f8…0230 at000f = ╱20╱…╱ // 0x207 @0xf
0x01f8…0230 at0010 = ╱20╱…╱ // 0x208 @0x10
0x01f8…0230 at0011 = ╱20╱…╱ // 0x209 @0x11
0x01f8…0230 at0012 = ╱20╱…╱ // 0x20a @0x12
0x01f8…0230 at0013 = ╱20╱…╱ // 0x20b @0x13
0x01f8…0230 at0014 = ╱20╱…╱ // 0x20c @0x14
0x01f8…0230 at0015 = ╱56╱V╱ // 0x20d @0x15
0x01f8…0230 at0016 = ╱65╱e╱ // 0x20e @0x16
0x01f8…0230 at0017 = ╱73╱s╱ // 0x20f @0x17
0x01f8…0230 at0018 = ╱74╱t╱ // 0x210 @0x18
0x01f8…0230 at0019 = ╱65╱e╱ // 0x211 @0x19
0x01f8…0230 at001a = ╱72╱r╱ // 0x212 @0x1a
0x01f8…0230 at001b = ╱76╱v╱ // 0x213 @0x1b
0x01f8…0230 at001c = ╱61╱a╱ // 0x214 @0x1c
0x01f8…0230 at001d = ╱6e╱n╱ // 0x215 @0x1d
0x01f8…0230 at001e = ╱67╱g╱ // 0x216 @0x1e
0x01f8…0230 at001f = ╱20╱…╱ // 0x217 @0x1f
0x01f8…0230 at0020 = ╱36╱6╱ // 0x218 @0x20
0x01f8…0230 at0021 = ╱2c╱,╱ // 0x219 @0x21
0x01f8…0230 at0022 = ╱20╱…╱ // 0x21a @0x22
0x01f8…0230 at0023 = ╱36╱6╱ // 0x21b @0x23
0x01f8…0230 at0024 = ╱39╱9╱ // 0x21c @0x24
0x01f8…0230 at0025 = ╱32╱2╱ // 0x21d @0x25
0x01f8…0230 at0026 = ╱30╱0╱ // 0x21e @0x26
0x01f8…0230 at0027 = ╱20╱…╱ // 0x21f @0x27
0x01f8…0230 at0028 = ╱56╱V╱ // 0x220 @0x28
0x01f8…0230 at0029 = ╱69╱i╱ // 0x221 @0x29
0x01f8…0230 at002a = ╱64╱d╱ // 0x222 @0x2a
0x01f8…0230 at002b = ╱65╱e╱ // 0x223 @0x2b
0x01f8…0230 at002c = ╱62╱b╱ // 0x224 @0x2c
0x01f8…0230 at002d = ╱7b╱{╱ // 0x225 @0x2d
0x01f8…0230 at002e = ╱6b╱k╱ // 0x226 @0x2e
0x01f8…0230 at002f = ╱20╱…╱ // 0x227 @0x2f
0x01f8…0230 at0030 = ╱20╱…╱ // 0x228 @0x30
0x01f8…0230 at0031 = ╱20╱…╱ // 0x229 @0x31
0x01f8…0230 at0032 = ╱20╱…╱ // 0x22a @0x32
0x01f8…0230 at0033 = ╱20╱…╱ // 0x22b @0x33
0x01f8…0230 at0034 = ╱20╱…╱ // 0x22c @0x34
0x01f8…0230 at0035 = ╱20╱…╱ // 0x22d @0x35
0x01f8…0230 at0036 = ╱2a╱*╱ // 0x22e @0x36
0x01f8…0230 at0037 = EOL // 0x22f @0x37
0x01f8…0230 }
0x0230…0268 9856 00200 // *………………………………………………………………………………………………………………………………*
0x0230…0268 LineComal80 {
0x0230…0268 ptr = 0x9856 // 0x230 @0x0
0x0230…0268 lno = 0x00c8 // 0x232 @0x2
0x0230…0268 at0004 = ╱89╱ // ╱ // 0x234 @0x4
0x0230…0268 at0005 = ╱2a╱*╱ // 0x235 @0x5
0x0230…0268 at0006 = ╱20╱…╱ // 0x236 @0x6
0x0230…0268 at0007 = ╱20╱…╱ // 0x237 @0x7
0x0230…0268 at0008 = ╱20╱…╱ // 0x238 @0x8
0x0230…0268 at0009 = ╱20╱…╱ // 0x239 @0x9
0x0230…0268 at000a = ╱20╱…╱ // 0x23a @0xa
0x0230…0268 at000b = ╱20╱…╱ // 0x23b @0xb
0x0230…0268 at000c = ╱20╱…╱ // 0x23c @0xc
0x0230…0268 at000d = ╱20╱…╱ // 0x23d @0xd
0x0230…0268 at000e = ╱20╱…╱ // 0x23e @0xe
0x0230…0268 at000f = ╱20╱…╱ // 0x23f @0xf
0x0230…0268 at0010 = ╱20╱…╱ // 0x240 @0x10
0x0230…0268 at0011 = ╱20╱…╱ // 0x241 @0x11
0x0230…0268 at0012 = ╱20╱…╱ // 0x242 @0x12
0x0230…0268 at0013 = ╱20╱…╱ // 0x243 @0x13
0x0230…0268 at0014 = ╱20╱…╱ // 0x244 @0x14
0x0230…0268 at0015 = ╱20╱…╱ // 0x245 @0x15
0x0230…0268 at0016 = ╱20╱…╱ // 0x246 @0x16
0x0230…0268 at0017 = ╱20╱…╱ // 0x247 @0x17
0x0230…0268 at0018 = ╱20╱…╱ // 0x248 @0x18
0x0230…0268 at0019 = ╱20╱…╱ // 0x249 @0x19
0x0230…0268 at001a = ╱20╱…╱ // 0x24a @0x1a
0x0230…0268 at001b = ╱20╱…╱ // 0x24b @0x1b
0x0230…0268 at001c = ╱20╱…╱ // 0x24c @0x1c
0x0230…0268 at001d = ╱20╱…╱ // 0x24d @0x1d
0x0230…0268 at001e = ╱20╱…╱ // 0x24e @0x1e
0x0230…0268 at001f = ╱20╱…╱ // 0x24f @0x1f
0x0230…0268 at0020 = ╱20╱…╱ // 0x250 @0x20
0x0230…0268 at0021 = ╱20╱…╱ // 0x251 @0x21
0x0230…0268 at0022 = ╱20╱…╱ // 0x252 @0x22
0x0230…0268 at0023 = ╱20╱…╱ // 0x253 @0x23
0x0230…0268 at0024 = ╱20╱…╱ // 0x254 @0x24
0x0230…0268 at0025 = ╱20╱…╱ // 0x255 @0x25
0x0230…0268 at0026 = ╱20╱…╱ // 0x256 @0x26
0x0230…0268 at0027 = ╱20╱…╱ // 0x257 @0x27
0x0230…0268 at0028 = ╱20╱…╱ // 0x258 @0x28
0x0230…0268 at0029 = ╱20╱…╱ // 0x259 @0x29
0x0230…0268 at002a = ╱20╱…╱ // 0x25a @0x2a
0x0230…0268 at002b = ╱20╱…╱ // 0x25b @0x2b
0x0230…0268 at002c = ╱20╱…╱ // 0x25c @0x2c
0x0230…0268 at002d = ╱20╱…╱ // 0x25d @0x2d
0x0230…0268 at002e = ╱20╱…╱ // 0x25e @0x2e
0x0230…0268 at002f = ╱20╱…╱ // 0x25f @0x2f
0x0230…0268 at0030 = ╱20╱…╱ // 0x260 @0x30
0x0230…0268 at0031 = ╱20╱…╱ // 0x261 @0x31
0x0230…0268 at0032 = ╱20╱…╱ // 0x262 @0x32
0x0230…0268 at0033 = ╱20╱…╱ // 0x263 @0x33
0x0230…0268 at0034 = ╱20╱…╱ // 0x264 @0x34
0x0230…0268 at0035 = ╱20╱…╱ // 0x265 @0x35
0x0230…0268 at0036 = ╱2a╱*╱ // 0x266 @0x36
0x0230…0268 at0037 = EOL // 0x267 @0x37
0x0230…0268 }
0x0268…02a0 (8,) 988e 00210 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
0x0268…02a0 LineComal80 {
0x0268…02a0 ptr = 0x988e // 0x268 @0x0
0x0268…02a0 lno = 0x00d2 // 0x26a @0x2
0x0268…02a0 at0004 = ╱89╱ // ╱ // 0x26c @0x4
0x0268…02a0 at0005 = ╱2a╱*╱ // 0x26d @0x5
0x0268…02a0 at0006 = ╱20╱…╱ // 0x26e @0x6
0x0268…02a0 at0007 = ╱20╱…╱ // 0x26f @0x7
0x0268…02a0 at0008 = ╱20╱…╱ // 0x270 @0x8
0x0268…02a0 at0009 = ╱28╱(╱ // 0x271 @0x9
0x0268…02a0 at000a = ╱43╱C╱ // 0x272 @0xa
0x0268…02a0 at000b = ╱29╱)╱ // 0x273 @0xb
0x0268…02a0 at000c = ╱20╱…╱ // 0x274 @0xc
0x0268…02a0 at000d = ╱20╱…╱ // 0x275 @0xd
0x0268…02a0 at000e = ╱20╱…╱ // 0x276 @0xe
0x0268…02a0 at000f = ╱20╱…╱ // 0x277 @0xf
0x0268…02a0 at0010 = ╱20╱…╱ // 0x278 @0x10
0x0268…02a0 at0011 = ╱20╱…╱ // 0x279 @0x11
0x0268…02a0 at0012 = ╱20╱…╱ // 0x27a @0x12
0x0268…02a0 at0013 = ╱3a╱:╱ // 0x27b @0x13
0x0268…02a0 at0014 = ╱20╱…╱ // 0x27c @0x14
0x0268…02a0 at0015 = ╱66╱f╱ // 0x27d @0x15
0x0268…02a0 at0016 = ╱6f╱o╱ // 0x27e @0x16
0x0268…02a0 at0017 = ╱72╱r╱ // 0x27f @0x17
0x0268…02a0 at0018 = ╱6c╱l╱ // 0x280 @0x18
0x0268…02a0 at0019 = ╱61╱a╱ // 0x281 @0x19
0x0268…02a0 at001a = ╱67╱g╱ // 0x282 @0x1a
0x0268…02a0 at001b = ╱65╱e╱ // 0x283 @0x1b
0x0268…02a0 at001c = ╱74╱t╱ // 0x284 @0x1c
0x0268…02a0 at001d = ╱20╱…╱ // 0x285 @0x1d
0x0268…02a0 at001e = ╱73╱s╱ // 0x286 @0x1e
0x0268…02a0 at001f = ╱79╱y╱ // 0x287 @0x1f
0x0268…02a0 at0020 = ╱73╱s╱ // 0x288 @0x20
0x0268…02a0 at0021 = ╱74╱t╱ // 0x289 @0x21
0x0268…02a0 at0022 = ╱69╱i╱ // 0x28a @0x22
0x0268…02a0 at0023 = ╱6d╱m╱ // 0x28b @0x23
0x0268…02a0 at0024 = ╱65╱e╱ // 0x28c @0x24
0x0268…02a0 at0025 = ╱20╱…╱ // 0x28d @0x25
0x0268…02a0 at0026 = ╱61╱a╱ // 0x28e @0x26
0x0268…02a0 at0027 = ╱2f╱/╱ // 0x28f @0x27
0x0268…02a0 at0028 = ╱73╱s╱ // 0x290 @0x28
0x0268…02a0 at0029 = ╱20╱…╱ // 0x291 @0x29
0x0268…02a0 at002a = ╱20╱…╱ // 0x292 @0x2a
0x0268…02a0 at002b = ╱20╱…╱ // 0x293 @0x2b
0x0268…02a0 at002c = ╱20╱…╱ // 0x294 @0x2c
0x0268…02a0 at002d = ╱20╱…╱ // 0x295 @0x2d
0x0268…02a0 at002e = ╱20╱…╱ // 0x296 @0x2e
0x0268…02a0 at002f = ╱20╱…╱ // 0x297 @0x2f
0x0268…02a0 at0030 = ╱20╱…╱ // 0x298 @0x30
0x0268…02a0 at0031 = ╱20╱…╱ // 0x299 @0x31
0x0268…02a0 at0032 = ╱20╱…╱ // 0x29a @0x32
0x0268…02a0 at0033 = ╱20╱…╱ // 0x29b @0x33
0x0268…02a0 at0034 = ╱20╱…╱ // 0x29c @0x34
0x0268…02a0 at0035 = ╱20╱…╱ // 0x29d @0x35
0x0268…02a0 at0036 = ╱2a╱*╱ // 0x29e @0x36
0x0268…02a0 at0037 = EOL // 0x29f @0x37
0x0268…02a0 }
0x02a0…02d8 98c6 00220 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
0x02a0…02d8 LineComal80 {
0x02a0…02d8 ptr = 0x98c6 // 0x2a0 @0x0
0x02a0…02d8 lno = 0x00dc // 0x2a2 @0x2
0x02a0…02d8 at0004 = ╱89╱ // ╱ // 0x2a4 @0x4
0x02a0…02d8 at0005 = ╱2a╱*╱ // 0x2a5 @0x5
0x02a0…02d8 at0006 = ╱20╱…╱ // 0x2a6 @0x6
0x02a0…02d8 at0007 = ╱20╱…╱ // 0x2a7 @0x7
0x02a0…02d8 at0008 = ╱20╱…╱ // 0x2a8 @0x8
0x02a0…02d8 at0009 = ╱20╱…╱ // 0x2a9 @0x9
0x02a0…02d8 at000a = ╱20╱…╱ // 0x2aa @0xa
0x02a0…02d8 at000b = ╱20╱…╱ // 0x2ab @0xb
0x02a0…02d8 at000c = ╱20╱…╱ // 0x2ac @0xc
0x02a0…02d8 at000d = ╱20╱…╱ // 0x2ad @0xd
0x02a0…02d8 at000e = ╱20╱…╱ // 0x2ae @0xe
0x02a0…02d8 at000f = ╱20╱…╱ // 0x2af @0xf
0x02a0…02d8 at0010 = ╱20╱…╱ // 0x2b0 @0x10
0x02a0…02d8 at0011 = ╱20╱…╱ // 0x2b1 @0x11
0x02a0…02d8 at0012 = ╱20╱…╱ // 0x2b2 @0x12
0x02a0…02d8 at0013 = ╱20╱…╱ // 0x2b3 @0x13
0x02a0…02d8 at0014 = ╱20╱…╱ // 0x2b4 @0x14
0x02a0…02d8 at0015 = ╱4b╱K╱ // 0x2b5 @0x15
0x02a0…02d8 at0016 = ╱6c╱l╱ // 0x2b6 @0x16
0x02a0…02d8 at0017 = ╱6f╱o╱ // 0x2b7 @0x17
0x02a0…02d8 at0018 = ╱6b╱k╱ // 0x2b8 @0x18
0x02a0…02d8 at0019 = ╱6b╱k╱ // 0x2b9 @0x19
0x02a0…02d8 at001a = ╱65╱e╱ // 0x2ba @0x1a
0x02a0…02d8 at001b = ╱62╱b╱ // 0x2bb @0x1b
0x02a0…02d8 at001c = ╱61╱a╱ // 0x2bc @0x1c
0x02a0…02d8 at001d = ╱6b╱k╱ // 0x2bd @0x1d
0x02a0…02d8 at001e = ╱6b╱k╱ // 0x2be @0x1e
0x02a0…02d8 at001f = ╱65╱e╱ // 0x2bf @0x1f
0x02a0…02d8 at0020 = ╱6e╱n╱ // 0x2c0 @0x20
0x02a0…02d8 at0021 = ╱20╱…╱ // 0x2c1 @0x21
0x02a0…02d8 at0022 = ╱32╱2╱ // 0x2c2 @0x22
0x02a0…02d8 at0023 = ╱30╱0╱ // 0x2c3 @0x23
0x02a0…02d8 at0024 = ╱2c╱,╱ // 0x2c4 @0x24
0x02a0…02d8 at0025 = ╱20╱…╱ // 0x2c5 @0x25
0x02a0…02d8 at0026 = ╱47╱G╱ // 0x2c6 @0x26
0x02a0…02d8 at0027 = ╱6a╱j╱ // 0x2c7 @0x27
0x02a0…02d8 at0028 = ╱65╱e╱ // 0x2c8 @0x28
0x02a0…02d8 at0029 = ╱6c╱l╱ // 0x2c9 @0x29
0x02a0…02d8 at002a = ╱6c╱l╱ // 0x2ca @0x2a
0x02a0…02d8 at002b = ╱65╱e╱ // 0x2cb @0x2b
0x02a0…02d8 at002c = ╱72╱r╱ // 0x2cc @0x2c
0x02a0…02d8 at002d = ╱75╱u╱ // 0x2cd @0x2d
0x02a0…02d8 at002e = ╱70╱p╱ // 0x2ce @0x2e
0x02a0…02d8 at002f = ╱20╱…╱ // 0x2cf @0x2f
0x02a0…02d8 at0030 = ╱20╱…╱ // 0x2d0 @0x30
0x02a0…02d8 at0031 = ╱20╱…╱ // 0x2d1 @0x31
0x02a0…02d8 at0032 = ╱20╱…╱ // 0x2d2 @0x32
0x02a0…02d8 at0033 = ╱20╱…╱ // 0x2d3 @0x33
0x02a0…02d8 at0034 = ╱20╱…╱ // 0x2d4 @0x34
0x02a0…02d8 at0035 = ╱20╱…╱ // 0x2d5 @0x35
0x02a0…02d8 at0036 = ╱2a╱*╱ // 0x2d6 @0x36
0x02a0…02d8 at0037 = EOL // 0x2d7 @0x37
0x02a0…02d8 }
0x02d8…0310 98fe 00230 // *………………………………………7400……Herning……………………………………………………*
0x02d8…0310 LineComal80 {
0x02d8…0310 ptr = 0x98fe // 0x2d8 @0x0
0x02d8…0310 lno = 0x00e6 // 0x2da @0x2
0x02d8…0310 at0004 = ╱89╱ // ╱ // 0x2dc @0x4
0x02d8…0310 at0005 = ╱2a╱*╱ // 0x2dd @0x5
0x02d8…0310 at0006 = ╱20╱…╱ // 0x2de @0x6
0x02d8…0310 at0007 = ╱20╱…╱ // 0x2df @0x7
0x02d8…0310 at0008 = ╱20╱…╱ // 0x2e0 @0x8
0x02d8…0310 at0009 = ╱20╱…╱ // 0x2e1 @0x9
0x02d8…0310 at000a = ╱20╱…╱ // 0x2e2 @0xa
0x02d8…0310 at000b = ╱20╱…╱ // 0x2e3 @0xb
0x02d8…0310 at000c = ╱20╱…╱ // 0x2e4 @0xc
0x02d8…0310 at000d = ╱20╱…╱ // 0x2e5 @0xd
0x02d8…0310 at000e = ╱20╱…╱ // 0x2e6 @0xe
0x02d8…0310 at000f = ╱20╱…╱ // 0x2e7 @0xf
0x02d8…0310 at0010 = ╱20╱…╱ // 0x2e8 @0x10
0x02d8…0310 at0011 = ╱20╱…╱ // 0x2e9 @0x11
0x02d8…0310 at0012 = ╱20╱…╱ // 0x2ea @0x12
0x02d8…0310 at0013 = ╱20╱…╱ // 0x2eb @0x13
0x02d8…0310 at0014 = ╱20╱…╱ // 0x2ec @0x14
0x02d8…0310 at0015 = ╱37╱7╱ // 0x2ed @0x15
0x02d8…0310 at0016 = ╱34╱4╱ // 0x2ee @0x16
0x02d8…0310 at0017 = ╱30╱0╱ // 0x2ef @0x17
0x02d8…0310 at0018 = ╱30╱0╱ // 0x2f0 @0x18
0x02d8…0310 at0019 = ╱20╱…╱ // 0x2f1 @0x19
0x02d8…0310 at001a = ╱20╱…╱ // 0x2f2 @0x1a
0x02d8…0310 at001b = ╱48╱H╱ // 0x2f3 @0x1b
0x02d8…0310 at001c = ╱65╱e╱ // 0x2f4 @0x1c
0x02d8…0310 at001d = ╱72╱r╱ // 0x2f5 @0x1d
0x02d8…0310 at001e = ╱6e╱n╱ // 0x2f6 @0x1e
0x02d8…0310 at001f = ╱69╱i╱ // 0x2f7 @0x1f
0x02d8…0310 at0020 = ╱6e╱n╱ // 0x2f8 @0x20
0x02d8…0310 at0021 = ╱67╱g╱ // 0x2f9 @0x21
0x02d8…0310 at0022 = ╱20╱…╱ // 0x2fa @0x22
0x02d8…0310 at0023 = ╱20╱…╱ // 0x2fb @0x23
0x02d8…0310 at0024 = ╱20╱…╱ // 0x2fc @0x24
0x02d8…0310 at0025 = ╱20╱…╱ // 0x2fd @0x25
0x02d8…0310 at0026 = ╱20╱…╱ // 0x2fe @0x26
0x02d8…0310 at0027 = ╱20╱…╱ // 0x2ff @0x27
0x02d8…0310 at0028 = ╱20╱…╱ // 0x300 @0x28
0x02d8…0310 at0029 = ╱20╱…╱ // 0x301 @0x29
0x02d8…0310 at002a = ╱20╱…╱ // 0x302 @0x2a
0x02d8…0310 at002b = ╱20╱…╱ // 0x303 @0x2b
0x02d8…0310 at002c = ╱20╱…╱ // 0x304 @0x2c
0x02d8…0310 at002d = ╱20╱…╱ // 0x305 @0x2d
0x02d8…0310 at002e = ╱20╱…╱ // 0x306 @0x2e
0x02d8…0310 at002f = ╱20╱…╱ // 0x307 @0x2f
0x02d8…0310 at0030 = ╱20╱…╱ // 0x308 @0x30
0x02d8…0310 at0031 = ╱20╱…╱ // 0x309 @0x31
0x02d8…0310 at0032 = ╱20╱…╱ // 0x30a @0x32
0x02d8…0310 at0033 = ╱20╱…╱ // 0x30b @0x33
0x02d8…0310 at0034 = ╱20╱…╱ // 0x30c @0x34
0x02d8…0310 at0035 = ╱20╱…╱ // 0x30d @0x35
0x02d8…0310 at0036 = ╱2a╱*╱ // 0x30e @0x36
0x02d8…0310 at0037 = EOL // 0x30f @0x37
0x02d8…0310 }
0x0310…0348 9936 00240 // **************************************************
0x0310…0348 LineComal80 {
0x0310…0348 ptr = 0x9936 // 0x310 @0x0
0x0310…0348 lno = 0x00f0 // 0x312 @0x2
0x0310…0348 at0004 = ╱89╱ // ╱ // 0x314 @0x4
0x0310…0348 at0005 = ╱2a╱*╱ // 0x315 @0x5
0x0310…0348 at0006 = ╱2a╱*╱ // 0x316 @0x6
0x0310…0348 at0007 = ╱2a╱*╱ // 0x317 @0x7
0x0310…0348 at0008 = ╱2a╱*╱ // 0x318 @0x8
0x0310…0348 at0009 = ╱2a╱*╱ // 0x319 @0x9
0x0310…0348 at000a = ╱2a╱*╱ // 0x31a @0xa
0x0310…0348 at000b = ╱2a╱*╱ // 0x31b @0xb
0x0310…0348 at000c = ╱2a╱*╱ // 0x31c @0xc
0x0310…0348 at000d = ╱2a╱*╱ // 0x31d @0xd
0x0310…0348 at000e = ╱2a╱*╱ // 0x31e @0xe
0x0310…0348 at000f = ╱2a╱*╱ // 0x31f @0xf
0x0310…0348 at0010 = ╱2a╱*╱ // 0x320 @0x10
0x0310…0348 at0011 = ╱2a╱*╱ // 0x321 @0x11
0x0310…0348 at0012 = ╱2a╱*╱ // 0x322 @0x12
0x0310…0348 at0013 = ╱2a╱*╱ // 0x323 @0x13
0x0310…0348 at0014 = ╱2a╱*╱ // 0x324 @0x14
0x0310…0348 at0015 = ╱2a╱*╱ // 0x325 @0x15
0x0310…0348 at0016 = ╱2a╱*╱ // 0x326 @0x16
0x0310…0348 at0017 = ╱2a╱*╱ // 0x327 @0x17
0x0310…0348 at0018 = ╱2a╱*╱ // 0x328 @0x18
0x0310…0348 at0019 = ╱2a╱*╱ // 0x329 @0x19
0x0310…0348 at001a = ╱2a╱*╱ // 0x32a @0x1a
0x0310…0348 at001b = ╱2a╱*╱ // 0x32b @0x1b
0x0310…0348 at001c = ╱2a╱*╱ // 0x32c @0x1c
0x0310…0348 at001d = ╱2a╱*╱ // 0x32d @0x1d
0x0310…0348 at001e = ╱2a╱*╱ // 0x32e @0x1e
0x0310…0348 at001f = ╱2a╱*╱ // 0x32f @0x1f
0x0310…0348 at0020 = ╱2a╱*╱ // 0x330 @0x20
0x0310…0348 at0021 = ╱2a╱*╱ // 0x331 @0x21
0x0310…0348 at0022 = ╱2a╱*╱ // 0x332 @0x22
0x0310…0348 at0023 = ╱2a╱*╱ // 0x333 @0x23
0x0310…0348 at0024 = ╱2a╱*╱ // 0x334 @0x24
0x0310…0348 at0025 = ╱2a╱*╱ // 0x335 @0x25
0x0310…0348 at0026 = ╱2a╱*╱ // 0x336 @0x26
0x0310…0348 at0027 = ╱2a╱*╱ // 0x337 @0x27
0x0310…0348 at0028 = ╱2a╱*╱ // 0x338 @0x28
0x0310…0348 at0029 = ╱2a╱*╱ // 0x339 @0x29
0x0310…0348 at002a = ╱2a╱*╱ // 0x33a @0x2a
0x0310…0348 at002b = ╱2a╱*╱ // 0x33b @0x2b
0x0310…0348 at002c = ╱2a╱*╱ // 0x33c @0x2c
0x0310…0348 at002d = ╱2a╱*╱ // 0x33d @0x2d
0x0310…0348 at002e = ╱2a╱*╱ // 0x33e @0x2e
0x0310…0348 at002f = ╱2a╱*╱ // 0x33f @0x2f
0x0310…0348 at0030 = ╱2a╱*╱ // 0x340 @0x30
0x0310…0348 at0031 = ╱2a╱*╱ // 0x341 @0x31
0x0310…0348 at0032 = ╱2a╱*╱ // 0x342 @0x32
0x0310…0348 at0033 = ╱2a╱*╱ // 0x343 @0x33
0x0310…0348 at0034 = ╱2a╱*╱ // 0x344 @0x34
0x0310…0348 at0035 = ╱2a╱*╱ // 0x345 @0x35
0x0310…0348 at0036 = ╱2a╱*╱ // 0x346 @0x36
0x0310…0348 at0037 = EOL // 0x347 @0x37
0x0310…0348 }
0x0348…0359 9947 00250 EXEC DIMENSIONER
0x0348…0359 LineComal80 {
0x0348…0359 ptr = 0x9947 // 0x348 @0x0
0x0348…0359 lno = 0x00fa // 0x34a @0x2
0x0348…0359 at0004 = ╱9d╱ EXEC ╱ // 0x34c @0x4
0x0348…0359 at0005 = ╱44╱D╱ // 0x34d @0x5
0x0348…0359 at0006 = ╱49╱I╱ // 0x34e @0x6
0x0348…0359 at0007 = ╱4d╱M╱ // 0x34f @0x7
0x0348…0359 at0008 = ╱45╱E╱ // 0x350 @0x8
0x0348…0359 at0009 = ╱4e╱N╱ // 0x351 @0x9
0x0348…0359 at000a = ╱53╱S╱ // 0x352 @0xa
0x0348…0359 at000b = ╱49╱I╱ // 0x353 @0xb
0x0348…0359 at000c = ╱4f╱O╱ // 0x354 @0xc
0x0348…0359 at000d = ╱4e╱N╱ // 0x355 @0xd
0x0348…0359 at000e = ╱45╱E╱ // 0x356 @0xe
0x0348…0359 at000f = ╱52╱R╱ // 0x357 @0xf
0x0348…0359 at0010 = EOL // 0x358 @0x10
0x0348…0359 }
0x0359…0366 9954 00260 EXEC INITIER
0x0359…0366 LineComal80 {
0x0359…0366 ptr = 0x9954 // 0x359 @0x0
0x0359…0366 lno = 0x0104 // 0x35b @0x2
0x0359…0366 at0004 = ╱9d╱ EXEC ╱ // 0x35d @0x4
0x0359…0366 at0005 = ╱49╱I╱ // 0x35e @0x5
0x0359…0366 at0006 = ╱4e╱N╱ // 0x35f @0x6
0x0359…0366 at0007 = ╱49╱I╱ // 0x360 @0x7
0x0359…0366 at0008 = ╱54╱T╱ // 0x361 @0x8
0x0359…0366 at0009 = ╱49╱I╱ // 0x362 @0x9
0x0359…0366 at000a = ╱45╱E╱ // 0x363 @0xa
0x0359…0366 at000b = ╱52╱R╱ // 0x364 @0xb
0x0359…0366 at000c = EOL // 0x365 @0xc
0x0359…0366 }
0x0366…0371 995f 00270 EXEC OPT[L
0x0366…0371 LineComal80 {
0x0366…0371 ptr = 0x995f // 0x366 @0x0
0x0366…0371 lno = 0x010e // 0x368 @0x2
0x0366…0371 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0371 at0005 = ╱4f╱O╱ // 0x36b @0x5
0x0366…0371 at0006 = ╱50╱P╱ // 0x36c @0x6
0x0366…0371 at0007 = ╱54╱T╱ // 0x36d @0x7
0x0366…0371 at0008 = ╱5b╱[╱ // 0x36e @0x8
0x0366…0371 at0009 = ╱4c╱L╱ // 0x36f @0x9
0x0366…0371 at000a = EOL // 0x370 @0xa
0x0366…0371 }
0x0371…0381 996f 00280 EXEC START_MENU
0x0371…0381 LineComal80 {
0x0371…0381 ptr = 0x996f // 0x371 @0x0
0x0371…0381 lno = 0x0118 // 0x373 @0x2
0x0371…0381 at0004 = ╱9d╱ EXEC ╱ // 0x375 @0x4
0x0371…0381 at0005 = ╱53╱S╱ // 0x376 @0x5
0x0371…0381 at0006 = ╱54╱T╱ // 0x377 @0x6
0x0371…0381 at0007 = ╱41╱A╱ // 0x378 @0x7
0x0371…0381 at0008 = ╱52╱R╱ // 0x379 @0x8
0x0371…0381 at0009 = ╱54╱T╱ // 0x37a @0x9
0x0371…0381 at000a = ╱5f╱_╱ // 0x37b @0xa
0x0371…0381 at000b = ╱4d╱M╱ // 0x37c @0xb
0x0371…0381 at000c = ╱45╱E╱ // 0x37d @0xc
0x0371…0381 at000d = ╱4e╱N╱ // 0x37e @0xd
0x0371…0381 at000e = ╱55╱U╱ // 0x37f @0xe
0x0371…0381 at000f = EOL // 0x380 @0xf
0x0371…0381 }
0x0381…038f 997d 00290 CHAIN PROGRAM $
0x0381…038f LineComal80 {
0x0381…038f ptr = 0x997d // 0x381 @0x0
0x0381…038f lno = 0x0122 // 0x383 @0x2
0x0381…038f at0004 = ╱ac╱ CHAIN ╱ // 0x385 @0x4
0x0381…038f at0005 = ╱50╱P╱ // 0x386 @0x5
0x0381…038f at0006 = ╱52╱R╱ // 0x387 @0x6
0x0381…038f at0007 = ╱4f╱O╱ // 0x388 @0x7
0x0381…038f at0008 = ╱47╱G╱ // 0x389 @0x8
0x0381…038f at0009 = ╱52╱R╱ // 0x38a @0x9
0x0381…038f at000a = ╱41╱A╱ // 0x38b @0xa
0x0381…038f at000b = ╱4d╱M╱ // 0x38c @0xb
0x0381…038f at000c = ╱ef╱ $ ╱ // 0x38d @0xc
0x0381…038f at000d = EOL // 0x38e @0xd
0x0381…038f }
0x038f…03c2 99b0 00300 // ===========…Procedurer…starter…==============
0x038f…03c2 LineComal80 {
0x038f…03c2 ptr = 0x99b0 // 0x38f @0x0
0x038f…03c2 lno = 0x012c // 0x391 @0x2
0x038f…03c2 at0004 = ╱89╱ // ╱ // 0x393 @0x4
0x038f…03c2 at0005 = ╱3d╱=╱ // 0x394 @0x5
0x038f…03c2 at0006 = ╱3d╱=╱ // 0x395 @0x6
0x038f…03c2 at0007 = ╱3d╱=╱ // 0x396 @0x7
0x038f…03c2 at0008 = ╱3d╱=╱ // 0x397 @0x8
0x038f…03c2 at0009 = ╱3d╱=╱ // 0x398 @0x9
0x038f…03c2 at000a = ╱3d╱=╱ // 0x399 @0xa
0x038f…03c2 at000b = ╱3d╱=╱ // 0x39a @0xb
0x038f…03c2 at000c = ╱3d╱=╱ // 0x39b @0xc
0x038f…03c2 at000d = ╱3d╱=╱ // 0x39c @0xd
0x038f…03c2 at000e = ╱3d╱=╱ // 0x39d @0xe
0x038f…03c2 at000f = ╱3d╱=╱ // 0x39e @0xf
0x038f…03c2 at0010 = ╱20╱…╱ // 0x39f @0x10
0x038f…03c2 at0011 = ╱50╱P╱ // 0x3a0 @0x11
0x038f…03c2 at0012 = ╱72╱r╱ // 0x3a1 @0x12
0x038f…03c2 at0013 = ╱6f╱o╱ // 0x3a2 @0x13
0x038f…03c2 at0014 = ╱63╱c╱ // 0x3a3 @0x14
0x038f…03c2 at0015 = ╱65╱e╱ // 0x3a4 @0x15
0x038f…03c2 at0016 = ╱64╱d╱ // 0x3a5 @0x16
0x038f…03c2 at0017 = ╱75╱u╱ // 0x3a6 @0x17
0x038f…03c2 at0018 = ╱72╱r╱ // 0x3a7 @0x18
0x038f…03c2 at0019 = ╱65╱e╱ // 0x3a8 @0x19
0x038f…03c2 at001a = ╱72╱r╱ // 0x3a9 @0x1a
0x038f…03c2 at001b = ╱20╱…╱ // 0x3aa @0x1b
0x038f…03c2 at001c = ╱73╱s╱ // 0x3ab @0x1c
0x038f…03c2 at001d = ╱74╱t╱ // 0x3ac @0x1d
0x038f…03c2 at001e = ╱61╱a╱ // 0x3ad @0x1e
0x038f…03c2 at001f = ╱72╱r╱ // 0x3ae @0x1f
0x038f…03c2 at0020 = ╱74╱t╱ // 0x3af @0x20
0x038f…03c2 at0021 = ╱65╱e╱ // 0x3b0 @0x21
0x038f…03c2 at0022 = ╱72╱r╱ // 0x3b1 @0x22
0x038f…03c2 at0023 = ╱20╱…╱ // 0x3b2 @0x23
0x038f…03c2 at0024 = ╱3d╱=╱ // 0x3b3 @0x24
0x038f…03c2 at0025 = ╱3d╱=╱ // 0x3b4 @0x25
0x038f…03c2 at0026 = ╱3d╱=╱ // 0x3b5 @0x26
0x038f…03c2 at0027 = ╱3d╱=╱ // 0x3b6 @0x27
0x038f…03c2 at0028 = ╱3d╱=╱ // 0x3b7 @0x28
0x038f…03c2 at0029 = ╱3d╱=╱ // 0x3b8 @0x29
0x038f…03c2 at002a = ╱3d╱=╱ // 0x3b9 @0x2a
0x038f…03c2 at002b = ╱3d╱=╱ // 0x3ba @0x2b
0x038f…03c2 at002c = ╱3d╱=╱ // 0x3bb @0x2c
0x038f…03c2 at002d = ╱3d╱=╱ // 0x3bc @0x2d
0x038f…03c2 at002e = ╱3d╱=╱ // 0x3bd @0x2e
0x038f…03c2 at002f = ╱3d╱=╱ // 0x3be @0x2f
0x038f…03c2 at0030 = ╱3d╱=╱ // 0x3bf @0x30
0x038f…03c2 at0031 = ╱3d╱=╱ // 0x3c0 @0x31
0x038f…03c2 at0032 = EOL // 0x3c1 @0x32
0x038f…03c2 }
0x03c2…03d4 99c2 00310 PROC DIMENSIONER
0x03c2…03d4 LineComal80 {
0x03c2…03d4 ptr = 0x99c2 // 0x3c2 @0x0
0x03c2…03d4 lno = 0x0136 // 0x3c4 @0x2
0x03c2…03d4 at0004 = ╱9e00╱ PROC ╱ // 0x3c6 @0x4
0x03c2…03d4 at0006 = ╱44╱D╱ // 0x3c8 @0x6
0x03c2…03d4 at0007 = ╱49╱I╱ // 0x3c9 @0x7
0x03c2…03d4 at0008 = ╱4d╱M╱ // 0x3ca @0x8
0x03c2…03d4 at0009 = ╱45╱E╱ // 0x3cb @0x9
0x03c2…03d4 at000a = ╱4e╱N╱ // 0x3cc @0xa
0x03c2…03d4 at000b = ╱53╱S╱ // 0x3cd @0xb
0x03c2…03d4 at000c = ╱49╱I╱ // 0x3ce @0xc
0x03c2…03d4 at000d = ╱4f╱O╱ // 0x3cf @0xd
0x03c2…03d4 at000e = ╱4e╱N╱ // 0x3d0 @0xe
0x03c2…03d4 at000f = ╱45╱E╱ // 0x3d1 @0xf
0x03c2…03d4 at0010 = ╱52╱R╱ // 0x3d2 @0x10
0x03c2…03d4 at0011 = EOL // 0x3d3 @0x11
0x03c2…03d4 }
0x03d4…03eb 99d9 00320 // Standard…variable
0x03d4…03eb LineComal80 {
0x03d4…03eb ptr = 0x99d9 // 0x3d4 @0x0
0x03d4…03eb lno = 0x0140 // 0x3d6 @0x2
0x03d4…03eb at0004 = ╱89╱ // ╱ // 0x3d8 @0x4
0x03d4…03eb at0005 = ╱53╱S╱ // 0x3d9 @0x5
0x03d4…03eb at0006 = ╱74╱t╱ // 0x3da @0x6
0x03d4…03eb at0007 = ╱61╱a╱ // 0x3db @0x7
0x03d4…03eb at0008 = ╱6e╱n╱ // 0x3dc @0x8
0x03d4…03eb at0009 = ╱64╱d╱ // 0x3dd @0x9
0x03d4…03eb at000a = ╱61╱a╱ // 0x3de @0xa
0x03d4…03eb at000b = ╱72╱r╱ // 0x3df @0xb
0x03d4…03eb at000c = ╱64╱d╱ // 0x3e0 @0xc
0x03d4…03eb at000d = ╱20╱…╱ // 0x3e1 @0xd
0x03d4…03eb at000e = ╱76╱v╱ // 0x3e2 @0xe
0x03d4…03eb at000f = ╱61╱a╱ // 0x3e3 @0xf
0x03d4…03eb at0010 = ╱72╱r╱ // 0x3e4 @0x10
0x03d4…03eb at0011 = ╱69╱i╱ // 0x3e5 @0x11
0x03d4…03eb at0012 = ╱61╱a╱ // 0x3e6 @0x12
0x03d4…03eb at0013 = ╱62╱b╱ // 0x3e7 @0x13
0x03d4…03eb at0014 = ╱6c╱l╱ // 0x3e8 @0x14
0x03d4…03eb at0015 = ╱65╱e╱ // 0x3e9 @0x15
0x03d4…03eb at0016 = EOL // 0x3ea @0x16
0x03d4…03eb }
0x03eb…042a 9a18 00330 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
0x03eb…042a LineComal80 {
0x03eb…042a ptr = 0x9a18 // 0x3eb @0x0
0x03eb…042a lno = 0x014a // 0x3ed @0x2
0x03eb…042a at0004 = ╱87╱ DIM ╱ // 0x3ef @0x4
0x03eb…042a at0005 = ╱53╱S╱ // 0x3f0 @0x5
0x03eb…042a at0006 = ╱50╱P╱ // 0x3f1 @0x6
0x03eb…042a at0007 = ╱43╱C╱ // 0x3f2 @0x7
0x03eb…042a at0008 = ╱ef╱ $ ╱ // 0x3f3 @0x8
0x03eb…042a at0009 = ╱ba╱ OF ╱ // 0x3f4 @0x9
0x03eb…042a at000a = ╱38╱8╱ // 0x3f5 @0xa
0x03eb…042a at000b = ╱30╱0╱ // 0x3f6 @0xb
0x03eb…042a at000c = ╱f25000╱ // 0x3f7 @0xc
0x03eb…042a at000f = ╱ec╱ , ╱ // 0x3fa @0xf
0x03eb…042a at0010 = ╱53╱S╱ // 0x3fb @0x10
0x03eb…042a at0011 = ╱56╱V╱ // 0x3fc @0x11
0x03eb…042a at0012 = ╱41╱A╱ // 0x3fd @0x12
0x03eb…042a at0013 = ╱52╱R╱ // 0x3fe @0x13
0x03eb…042a at0014 = ╱ef╱ $ ╱ // 0x3ff @0x14
0x03eb…042a at0015 = ╱ba╱ OF ╱ // 0x400 @0x15
0x03eb…042a at0016 = ╱31╱1╱ // 0x401 @0x16
0x03eb…042a at0017 = ╱30╱0╱ // 0x402 @0x17
0x03eb…042a at0018 = ╱f20a00╱ // 0x403 @0x18
0x03eb…042a at001b = ╱ec╱ , ╱ // 0x406 @0x1b
0x03eb…042a at001c = ╱50╱P╱ // 0x407 @0x1c
0x03eb…042a at001d = ╱52╱R╱ // 0x408 @0x1d
0x03eb…042a at001e = ╱47╱G╱ // 0x409 @0x1e
0x03eb…042a at001f = ╱46╱F╱ // 0x40a @0x1f
0x03eb…042a at0020 = ╱4c╱L╱ // 0x40b @0x20
0x03eb…042a at0021 = ╱ef╱ $ ╱ // 0x40c @0x21
0x03eb…042a at0022 = ╱ba╱ OF ╱ // 0x40d @0x22
0x03eb…042a at0023 = ╱38╱8╱ // 0x40e @0x23
0x03eb…042a at0024 = ╱f20800╱ // 0x40f @0x24
0x03eb…042a at0027 = ╱ec╱ , ╱ // 0x412 @0x27
0x03eb…042a at0028 = ╱41╱A╱ // 0x413 @0x28
0x03eb…042a at0029 = ╱4c╱L╱ // 0x414 @0x29
0x03eb…042a at002a = ╱46╱F╱ // 0x415 @0x2a
0x03eb…042a at002b = ╱41╱A╱ // 0x416 @0x2b
0x03eb…042a at002c = ╱ef╱ $ ╱ // 0x417 @0x2c
0x03eb…042a at002d = ╱ba╱ OF ╱ // 0x418 @0x2d
0x03eb…042a at002e = ╱32╱2╱ // 0x419 @0x2e
0x03eb…042a at002f = ╱38╱8╱ // 0x41a @0x2f
0x03eb…042a at0030 = ╱f21c00╱ // 0x41b @0x30
0x03eb…042a at0033 = ╱ec╱ , ╱ // 0x41e @0x33
0x03eb…042a at0034 = ╱54╱T╱ // 0x41f @0x34
0x03eb…042a at0035 = ╱41╱A╱ // 0x420 @0x35
0x03eb…042a at0036 = ╱4c╱L╱ // 0x421 @0x36
0x03eb…042a at0037 = ╱ef╱ $ ╱ // 0x422 @0x37
0x03eb…042a at0038 = ╱ba╱ OF ╱ // 0x423 @0x38
0x03eb…042a at0039 = ╱31╱1╱ // 0x424 @0x39
0x03eb…042a at003a = ╱30╱0╱ // 0x425 @0x3a
0x03eb…042a at003b = ╱f20a00╱ // 0x426 @0x3b
0x03eb…042a at003e = EOL // 0x429 @0x3e
0x03eb…042a }
0x042a…044a 9a38 00340 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
0x042a…044a LineComal80 {
0x042a…044a ptr = 0x9a38 // 0x42a @0x0
0x042a…044a lno = 0x0154 // 0x42c @0x2
0x042a…044a at0004 = ╱87╱ DIM ╱ // 0x42e @0x4
0x042a…044a at0005 = ╱50╱P╱ // 0x42f @0x5
0x042a…044a at0006 = ╱52╱R╱ // 0x430 @0x6
0x042a…044a at0007 = ╱4f╱O╱ // 0x431 @0x7
0x042a…044a at0008 = ╱47╱G╱ // 0x432 @0x8
0x042a…044a at0009 = ╱52╱R╱ // 0x433 @0x9
0x042a…044a at000a = ╱41╱A╱ // 0x434 @0xa
0x042a…044a at000b = ╱4d╱M╱ // 0x435 @0xb
0x042a…044a at000c = ╱ef╱ $ ╱ // 0x436 @0xc
0x042a…044a at000d = ╱ba╱ OF ╱ // 0x437 @0xd
0x042a…044a at000e = ╱31╱1╱ // 0x438 @0xe
0x042a…044a at000f = ╱37╱7╱ // 0x439 @0xf
0x042a…044a at0010 = ╱f21100╱ // 0x43a @0x10
0x042a…044a at0013 = ╱ec╱ , ╱ // 0x43d @0x13
0x042a…044a at0014 = ╱50╱P╱ // 0x43e @0x14
0x042a…044a at0015 = ╱52╱R╱ // 0x43f @0x15
0x042a…044a at0016 = ╱54╱T╱ // 0x440 @0x16
0x042a…044a at0017 = ╱4e╱N╱ // 0x441 @0x17
0x042a…044a at0018 = ╱52╱R╱ // 0x442 @0x18
0x042a…044a at0019 = ╱ef╱ $ ╱ // 0x443 @0x19
0x042a…044a at001a = ╱ba╱ OF ╱ // 0x444 @0x1a
0x042a…044a at001b = ╱31╱1╱ // 0x445 @0x1b
0x042a…044a at001c = ╱f20100╱ // 0x446 @0x1c
0x042a…044a at001f = EOL // 0x449 @0x1f
0x042a…044a }
0x044a…045a 9a48 00350 REAL RESRV , PPAR
0x044a…045a LineComal80 {
0x044a…045a ptr = 0x9a48 // 0x44a @0x0
0x044a…045a lno = 0x015e // 0x44c @0x2
0x044a…045a at0004 = ╱b3╱ REAL ╱ // 0x44e @0x4
0x044a…045a at0005 = ╱52╱R╱ // 0x44f @0x5
0x044a…045a at0006 = ╱45╱E╱ // 0x450 @0x6
0x044a…045a at0007 = ╱53╱S╱ // 0x451 @0x7
0x044a…045a at0008 = ╱52╱R╱ // 0x452 @0x8
0x044a…045a at0009 = ╱56╱V╱ // 0x453 @0x9
0x044a…045a at000a = ╱ec╱ , ╱ // 0x454 @0xa
0x044a…045a at000b = ╱50╱P╱ // 0x455 @0xb
0x044a…045a at000c = ╱50╱P╱ // 0x456 @0xc
0x044a…045a at000d = ╱41╱A╱ // 0x457 @0xd
0x044a…045a at000e = ╱52╱R╱ // 0x458 @0xe
0x044a…045a at000f = EOL // 0x459 @0xf
0x044a…045a }
0x045a…0471 9a5f 00360 INTEGER OK , TRUE , FALSE , I , J
0x045a…0471 LineComal80 {
0x045a…0471 ptr = 0x9a5f // 0x45a @0x0
0x045a…0471 lno = 0x0168 // 0x45c @0x2
0x045a…0471 at0004 = ╱b2╱ INTEGER ╱ // 0x45e @0x4
0x045a…0471 at0005 = ╱4f╱O╱ // 0x45f @0x5
0x045a…0471 at0006 = ╱4b╱K╱ // 0x460 @0x6
0x045a…0471 at0007 = ╱ec╱ , ╱ // 0x461 @0x7
0x045a…0471 at0008 = ╱54╱T╱ // 0x462 @0x8
0x045a…0471 at0009 = ╱52╱R╱ // 0x463 @0x9
0x045a…0471 at000a = ╱55╱U╱ // 0x464 @0xa
0x045a…0471 at000b = ╱45╱E╱ // 0x465 @0xb
0x045a…0471 at000c = ╱ec╱ , ╱ // 0x466 @0xc
0x045a…0471 at000d = ╱46╱F╱ // 0x467 @0xd
0x045a…0471 at000e = ╱41╱A╱ // 0x468 @0xe
0x045a…0471 at000f = ╱4c╱L╱ // 0x469 @0xf
0x045a…0471 at0010 = ╱53╱S╱ // 0x46a @0x10
0x045a…0471 at0011 = ╱45╱E╱ // 0x46b @0x11
0x045a…0471 at0012 = ╱ec╱ , ╱ // 0x46c @0x12
0x045a…0471 at0013 = ╱49╱I╱ // 0x46d @0x13
0x045a…0471 at0014 = ╱ec╱ , ╱ // 0x46e @0x14
0x045a…0471 at0015 = ╱4a╱J╱ // 0x46f @0x15
0x045a…0471 at0016 = EOL // 0x470 @0x16
0x045a…0471 }
0x0471…0485 9a73 00370 // Hj{lpevariable
0x0471…0485 LineComal80 {
0x0471…0485 ptr = 0x9a73 // 0x471 @0x0
0x0471…0485 lno = 0x0172 // 0x473 @0x2
0x0471…0485 at0004 = ╱89╱ // ╱ // 0x475 @0x4
0x0471…0485 at0005 = ╱48╱H╱ // 0x476 @0x5
0x0471…0485 at0006 = ╱6a╱j╱ // 0x477 @0x6
0x0471…0485 at0007 = ╱7b╱{╱ // 0x478 @0x7
0x0471…0485 at0008 = ╱6c╱l╱ // 0x479 @0x8
0x0471…0485 at0009 = ╱70╱p╱ // 0x47a @0x9
0x0471…0485 at000a = ╱65╱e╱ // 0x47b @0xa
0x0471…0485 at000b = ╱76╱v╱ // 0x47c @0xb
0x0471…0485 at000c = ╱61╱a╱ // 0x47d @0xc
0x0471…0485 at000d = ╱72╱r╱ // 0x47e @0xd
0x0471…0485 at000e = ╱69╱i╱ // 0x47f @0xe
0x0471…0485 at000f = ╱61╱a╱ // 0x480 @0xf
0x0471…0485 at0010 = ╱62╱b╱ // 0x481 @0x10
0x0471…0485 at0011 = ╱6c╱l╱ // 0x482 @0x11
0x0471…0485 at0012 = ╱65╱e╱ // 0x483 @0x12
0x0471…0485 at0013 = EOL // 0x484 @0x13
0x0471…0485 }
0x0485…04bc 9aaa 00380 REAL TOT ( 6 ) , BAL ( 6 ) , KASSE_BEH , K_DIFF , MOMS_KR , NULR
0x0485…04bc LineComal80 {
0x0485…04bc ptr = 0x9aaa // 0x485 @0x0
0x0485…04bc lno = 0x017c // 0x487 @0x2
0x0485…04bc at0004 = ╱b3╱ REAL ╱ // 0x489 @0x4
0x0485…04bc at0005 = ╱54╱T╱ // 0x48a @0x5
0x0485…04bc at0006 = ╱4f╱O╱ // 0x48b @0x6
0x0485…04bc at0007 = ╱54╱T╱ // 0x48c @0x7
0x0485…04bc at0008 = ╱ed╱ ( ╱ // 0x48d @0x8
0x0485…04bc at0009 = ╱36╱6╱ // 0x48e @0x9
0x0485…04bc at000a = ╱f20600╱ // 0x48f @0xa
0x0485…04bc at000d = ╱ee╱ ) ╱ // 0x492 @0xd
0x0485…04bc at000e = ╱ec╱ , ╱ // 0x493 @0xe
0x0485…04bc at000f = ╱42╱B╱ // 0x494 @0xf
0x0485…04bc at0010 = ╱41╱A╱ // 0x495 @0x10
0x0485…04bc at0011 = ╱4c╱L╱ // 0x496 @0x11
0x0485…04bc at0012 = ╱ed╱ ( ╱ // 0x497 @0x12
0x0485…04bc at0013 = ╱36╱6╱ // 0x498 @0x13
0x0485…04bc at0014 = ╱f20600╱ // 0x499 @0x14
0x0485…04bc at0017 = ╱ee╱ ) ╱ // 0x49c @0x17
0x0485…04bc at0018 = ╱ec╱ , ╱ // 0x49d @0x18
0x0485…04bc at0019 = ╱4b╱K╱ // 0x49e @0x19
0x0485…04bc at001a = ╱41╱A╱ // 0x49f @0x1a
0x0485…04bc at001b = ╱53╱S╱ // 0x4a0 @0x1b
0x0485…04bc at001c = ╱53╱S╱ // 0x4a1 @0x1c
0x0485…04bc at001d = ╱45╱E╱ // 0x4a2 @0x1d
0x0485…04bc at001e = ╱5f╱_╱ // 0x4a3 @0x1e
0x0485…04bc at001f = ╱42╱B╱ // 0x4a4 @0x1f
0x0485…04bc at0020 = ╱45╱E╱ // 0x4a5 @0x20
0x0485…04bc at0021 = ╱48╱H╱ // 0x4a6 @0x21
0x0485…04bc at0022 = ╱ec╱ , ╱ // 0x4a7 @0x22
0x0485…04bc at0023 = ╱4b╱K╱ // 0x4a8 @0x23
0x0485…04bc at0024 = ╱5f╱_╱ // 0x4a9 @0x24
0x0485…04bc at0025 = ╱44╱D╱ // 0x4aa @0x25
0x0485…04bc at0026 = ╱49╱I╱ // 0x4ab @0x26
0x0485…04bc at0027 = ╱46╱F╱ // 0x4ac @0x27
0x0485…04bc at0028 = ╱46╱F╱ // 0x4ad @0x28
0x0485…04bc at0029 = ╱ec╱ , ╱ // 0x4ae @0x29
0x0485…04bc at002a = ╱4d╱M╱ // 0x4af @0x2a
0x0485…04bc at002b = ╱4f╱O╱ // 0x4b0 @0x2b
0x0485…04bc at002c = ╱4d╱M╱ // 0x4b1 @0x2c
0x0485…04bc at002d = ╱53╱S╱ // 0x4b2 @0x2d
0x0485…04bc at002e = ╱5f╱_╱ // 0x4b3 @0x2e
0x0485…04bc at002f = ╱4b╱K╱ // 0x4b4 @0x2f
0x0485…04bc at0030 = ╱52╱R╱ // 0x4b5 @0x30
0x0485…04bc at0031 = ╱ec╱ , ╱ // 0x4b6 @0x31
0x0485…04bc at0032 = ╱4e╱N╱ // 0x4b7 @0x32
0x0485…04bc at0033 = ╱55╱U╱ // 0x4b8 @0x33
0x0485…04bc at0034 = ╱4c╱L╱ // 0x4b9 @0x34
0x0485…04bc at0035 = ╱52╱R╱ // 0x4ba @0x35
0x0485…04bc at0036 = EOL // 0x4bb @0x36
0x0485…04bc }
0x04bc…04f8 9ae6 00390 INTEGER IDXPOS , HIGH , LOW , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K , NUL
0x04bc…04f8 LineComal80 {
0x04bc…04f8 ptr = 0x9ae6 // 0x4bc @0x0
0x04bc…04f8 lno = 0x0186 // 0x4be @0x2
0x04bc…04f8 at0004 = ╱b2╱ INTEGER ╱ // 0x4c0 @0x4
0x04bc…04f8 at0005 = ╱49╱I╱ // 0x4c1 @0x5
0x04bc…04f8 at0006 = ╱44╱D╱ // 0x4c2 @0x6
0x04bc…04f8 at0007 = ╱58╱X╱ // 0x4c3 @0x7
0x04bc…04f8 at0008 = ╱50╱P╱ // 0x4c4 @0x8
0x04bc…04f8 at0009 = ╱4f╱O╱ // 0x4c5 @0x9
0x04bc…04f8 at000a = ╱53╱S╱ // 0x4c6 @0xa
0x04bc…04f8 at000b = ╱ec╱ , ╱ // 0x4c7 @0xb
0x04bc…04f8 at000c = ╱48╱H╱ // 0x4c8 @0xc
0x04bc…04f8 at000d = ╱49╱I╱ // 0x4c9 @0xd
0x04bc…04f8 at000e = ╱47╱G╱ // 0x4ca @0xe
0x04bc…04f8 at000f = ╱48╱H╱ // 0x4cb @0xf
0x04bc…04f8 at0010 = ╱ec╱ , ╱ // 0x4cc @0x10
0x04bc…04f8 at0011 = ╱4c╱L╱ // 0x4cd @0x11
0x04bc…04f8 at0012 = ╱4f╱O╱ // 0x4ce @0x12
0x04bc…04f8 at0013 = ╱57╱W╱ // 0x4cf @0x13
0x04bc…04f8 at0014 = ╱ec╱ , ╱ // 0x4d0 @0x14
0x04bc…04f8 at0015 = ╱4b╱K╱ // 0x4d1 @0x15
0x04bc…04f8 at0016 = ╱52╱R╱ // 0x4d2 @0x16
0x04bc…04f8 at0017 = ╱45╱E╱ // 0x4d3 @0x17
0x04bc…04f8 at0018 = ╱44╱D╱ // 0x4d4 @0x18
0x04bc…04f8 at0019 = ╱49╱I╱ // 0x4d5 @0x19
0x04bc…04f8 at001a = ╱54╱T╱ // 0x4d6 @0x1a
0x04bc…04f8 at001b = ╱ec╱ , ╱ // 0x4d7 @0x1b
0x04bc…04f8 at001c = ╱44╱D╱ // 0x4d8 @0x1c
0x04bc…04f8 at001d = ╱45╱E╱ // 0x4d9 @0x1d
0x04bc…04f8 at001e = ╱42╱B╱ // 0x4da @0x1e
0x04bc…04f8 at001f = ╱45╱E╱ // 0x4db @0x1f
0x04bc…04f8 at0020 = ╱54╱T╱ // 0x4dc @0x20
0x04bc…04f8 at0021 = ╱ec╱ , ╱ // 0x4dd @0x21
0x04bc…04f8 at0022 = ╱4c╱L╱ // 0x4de @0x22
0x04bc…04f8 at0023 = ╱49╱I╱ // 0x4df @0x23
0x04bc…04f8 at0024 = ╱4e╱N╱ // 0x4e0 @0x24
0x04bc…04f8 at0025 = ╱5f╱_╱ // 0x4e1 @0x25
0x04bc…04f8 at0026 = ╱54╱T╱ // 0x4e2 @0x26
0x04bc…04f8 at0027 = ╱ec╱ , ╱ // 0x4e3 @0x27
0x04bc…04f8 at0028 = ╱4d╱M╱ // 0x4e4 @0x28
0x04bc…04f8 at0029 = ╱41╱A╱ // 0x4e5 @0x29
0x04bc…04f8 at002a = ╱58╱X╱ // 0x4e6 @0x2a
0x04bc…04f8 at002b = ╱5f╱_╱ // 0x4e7 @0x2b
0x04bc…04f8 at002c = ╱4c╱L╱ // 0x4e8 @0x2c
0x04bc…04f8 at002d = ╱49╱I╱ // 0x4e9 @0x2d
0x04bc…04f8 at002e = ╱4e╱N╱ // 0x4ea @0x2e
0x04bc…04f8 at002f = ╱ec╱ , ╱ // 0x4eb @0x2f
0x04bc…04f8 at0030 = ╱54╱T╱ // 0x4ec @0x30
0x04bc…04f8 at0031 = ╱5f╱_╱ // 0x4ed @0x31
0x04bc…04f8 at0032 = ╱49╱I╱ // 0x4ee @0x32
0x04bc…04f8 at0033 = ╱44╱D╱ // 0x4ef @0x33
0x04bc…04f8 at0034 = ╱58╱X╱ // 0x4f0 @0x34
0x04bc…04f8 at0035 = ╱ec╱ , ╱ // 0x4f1 @0x35
0x04bc…04f8 at0036 = ╱4b╱K╱ // 0x4f2 @0x36
0x04bc…04f8 at0037 = ╱ec╱ , ╱ // 0x4f3 @0x37
0x04bc…04f8 at0038 = ╱4e╱N╱ // 0x4f4 @0x38
0x04bc…04f8 at0039 = ╱55╱U╱ // 0x4f5 @0x39
0x04bc…04f8 at003a = ╱4c╱L╱ // 0x4f6 @0x3a
0x04bc…04f8 at003b = EOL // 0x4f7 @0x3b
0x04bc…04f8 }
0x04f8…0518 9b06 00400 // Variable…til…filen…SYSPARA
0x04f8…0518 LineComal80 {
0x04f8…0518 ptr = 0x9b06 // 0x4f8 @0x0
0x04f8…0518 lno = 0x0190 // 0x4fa @0x2
0x04f8…0518 at0004 = ╱89╱ // ╱ // 0x4fc @0x4
0x04f8…0518 at0005 = ╱56╱V╱ // 0x4fd @0x5
0x04f8…0518 at0006 = ╱61╱a╱ // 0x4fe @0x6
0x04f8…0518 at0007 = ╱72╱r╱ // 0x4ff @0x7
0x04f8…0518 at0008 = ╱69╱i╱ // 0x500 @0x8
0x04f8…0518 at0009 = ╱61╱a╱ // 0x501 @0x9
0x04f8…0518 at000a = ╱62╱b╱ // 0x502 @0xa
0x04f8…0518 at000b = ╱6c╱l╱ // 0x503 @0xb
0x04f8…0518 at000c = ╱65╱e╱ // 0x504 @0xc
0x04f8…0518 at000d = ╱20╱…╱ // 0x505 @0xd
0x04f8…0518 at000e = ╱74╱t╱ // 0x506 @0xe
0x04f8…0518 at000f = ╱69╱i╱ // 0x507 @0xf
0x04f8…0518 at0010 = ╱6c╱l╱ // 0x508 @0x10
0x04f8…0518 at0011 = ╱20╱…╱ // 0x509 @0x11
0x04f8…0518 at0012 = ╱66╱f╱ // 0x50a @0x12
0x04f8…0518 at0013 = ╱69╱i╱ // 0x50b @0x13
0x04f8…0518 at0014 = ╱6c╱l╱ // 0x50c @0x14
0x04f8…0518 at0015 = ╱65╱e╱ // 0x50d @0x15
0x04f8…0518 at0016 = ╱6e╱n╱ // 0x50e @0x16
0x04f8…0518 at0017 = ╱20╱…╱ // 0x50f @0x17
0x04f8…0518 at0018 = ╱53╱S╱ // 0x510 @0x18
0x04f8…0518 at0019 = ╱59╱Y╱ // 0x511 @0x19
0x04f8…0518 at001a = ╱53╱S╱ // 0x512 @0x1a
0x04f8…0518 at001b = ╱50╱P╱ // 0x513 @0x1b
0x04f8…0518 at001c = ╱41╱A╱ // 0x514 @0x1c
0x04f8…0518 at001d = ╱52╱R╱ // 0x515 @0x1d
0x04f8…0518 at001e = ╱41╱A╱ // 0x516 @0x1e
0x04f8…0518 at001f = EOL // 0x517 @0x1f
0x04f8…0518 }
0x0518…052c 9b1a 00410 DIM SYSPARA $ OF 17
0x0518…052c LineComal80 {
0x0518…052c ptr = 0x9b1a // 0x518 @0x0
0x0518…052c lno = 0x019a // 0x51a @0x2
0x0518…052c at0004 = ╱87╱ DIM ╱ // 0x51c @0x4
0x0518…052c at0005 = ╱53╱S╱ // 0x51d @0x5
0x0518…052c at0006 = ╱59╱Y╱ // 0x51e @0x6
0x0518…052c at0007 = ╱53╱S╱ // 0x51f @0x7
0x0518…052c at0008 = ╱50╱P╱ // 0x520 @0x8
0x0518…052c at0009 = ╱41╱A╱ // 0x521 @0x9
0x0518…052c at000a = ╱52╱R╱ // 0x522 @0xa
0x0518…052c at000b = ╱41╱A╱ // 0x523 @0xb
0x0518…052c at000c = ╱ef╱ $ ╱ // 0x524 @0xc
0x0518…052c at000d = ╱ba╱ OF ╱ // 0x525 @0xd
0x0518…052c at000e = ╱31╱1╱ // 0x526 @0xe
0x0518…052c at000f = ╱37╱7╱ // 0x527 @0xf
0x0518…052c at0010 = ╱f21100╱ // 0x528 @0x10
0x0518…052c at0013 = EOL // 0x52b @0x13
0x0518…052c }
0x052c…054f 9b3d 00420 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x052c…054f LineComal80 {
0x052c…054f ptr = 0x9b3d // 0x52c @0x0
0x052c…054f lno = 0x01a4 // 0x52e @0x2
0x052c…054f at0004 = ╱87╱ DIM ╱ // 0x530 @0x4
0x052c…054f at0005 = ╱53╱S╱ // 0x531 @0x5
0x052c…054f at0006 = ╱59╱Y╱ // 0x532 @0x6
0x052c…054f at0007 = ╱53╱S╱ // 0x533 @0x7
0x052c…054f at0008 = ╱54╱T╱ // 0x534 @0x8
0x052c…054f at0009 = ╱5f╱_╱ // 0x535 @0x9
0x052c…054f at000a = ╱4e╱N╱ // 0x536 @0xa
0x052c…054f at000b = ╱41╱A╱ // 0x537 @0xb
0x052c…054f at000c = ╱56╱V╱ // 0x538 @0xc
0x052c…054f at000d = ╱4e╱N╱ // 0x539 @0xd
0x052c…054f at000e = ╱ef╱ $ ╱ // 0x53a @0xe
0x052c…054f at000f = ╱ba╱ OF ╱ // 0x53b @0xf
0x052c…054f at0010 = ╱33╱3╱ // 0x53c @0x10
0x052c…054f at0011 = ╱30╱0╱ // 0x53d @0x11
0x052c…054f at0012 = ╱f21e00╱ // 0x53e @0x12
0x052c…054f at0015 = ╱ec╱ , ╱ // 0x541 @0x15
0x052c…054f at0016 = ╱53╱S╱ // 0x542 @0x16
0x052c…054f at0017 = ╱5f╱_╱ // 0x543 @0x17
0x052c…054f at0018 = ╱4b╱K╱ // 0x544 @0x18
0x052c…054f at0019 = ╱4f╱O╱ // 0x545 @0x19
0x052c…054f at001a = ╱44╱D╱ // 0x546 @0x1a
0x052c…054f at001b = ╱45╱E╱ // 0x547 @0x1b
0x052c…054f at001c = ╱ef╱ $ ╱ // 0x548 @0x1c
0x052c…054f at001d = ╱ba╱ OF ╱ // 0x549 @0x1d
0x052c…054f at001e = ╱31╱1╱ // 0x54a @0x1e
0x052c…054f at001f = ╱f20100╱ // 0x54b @0x1f
0x052c…054f at0022 = EOL // 0x54e @0x22
0x052c…054f }
0x054f…056e 9b5c 00430 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x054f…056e LineComal80 {
0x054f…056e ptr = 0x9b5c // 0x54f @0x0
0x054f…056e lno = 0x01ae // 0x551 @0x2
0x054f…056e at0004 = ╱87╱ DIM ╱ // 0x553 @0x4
0x054f…056e at0005 = ╱44╱D╱ // 0x554 @0x5
0x054f…056e at0006 = ╱41╱A╱ // 0x555 @0x6
0x054f…056e at0007 = ╱54╱T╱ // 0x556 @0x7
0x054f…056e at0008 = ╱41╱A╱ // 0x557 @0x8
0x054f…056e at0009 = ╱46╱F╱ // 0x558 @0x9
0x054f…056e at000a = ╱4c╱L╱ // 0x559 @0xa
0x054f…056e at000b = ╱ef╱ $ ╱ // 0x55a @0xb
0x054f…056e at000c = ╱ba╱ OF ╱ // 0x55b @0xc
0x054f…056e at000d = ╱38╱8╱ // 0x55c @0xd
0x054f…056e at000e = ╱f20800╱ // 0x55d @0xe
0x054f…056e at0011 = ╱ec╱ , ╱ // 0x560 @0x11
0x054f…056e at0012 = ╱54╱T╱ // 0x561 @0x12
0x054f…056e at0013 = ╱5f╱_╱ // 0x562 @0x13
0x054f…056e at0014 = ╱4b╱K╱ // 0x563 @0x14
0x054f…056e at0015 = ╱4f╱O╱ // 0x564 @0x15
0x054f…056e at0016 = ╱44╱D╱ // 0x565 @0x16
0x054f…056e at0017 = ╱45╱E╱ // 0x566 @0x17
0x054f…056e at0018 = ╱ef╱ $ ╱ // 0x567 @0x18
0x054f…056e at0019 = ╱ba╱ OF ╱ // 0x568 @0x19
0x054f…056e at001a = ╱31╱1╱ // 0x569 @0x1a
0x054f…056e at001b = ╱f20100╱ // 0x56a @0x1b
0x054f…056e at001e = EOL // 0x56d @0x1e
0x054f…056e }
0x056e…058e 9b7c 00440 // Variable…til…filen…@@PARAM
0x056e…058e LineComal80 {
0x056e…058e ptr = 0x9b7c // 0x56e @0x0
0x056e…058e lno = 0x01b8 // 0x570 @0x2
0x056e…058e at0004 = ╱89╱ // ╱ // 0x572 @0x4
0x056e…058e at0005 = ╱56╱V╱ // 0x573 @0x5
0x056e…058e at0006 = ╱61╱a╱ // 0x574 @0x6
0x056e…058e at0007 = ╱72╱r╱ // 0x575 @0x7
0x056e…058e at0008 = ╱69╱i╱ // 0x576 @0x8
0x056e…058e at0009 = ╱61╱a╱ // 0x577 @0x9
0x056e…058e at000a = ╱62╱b╱ // 0x578 @0xa
0x056e…058e at000b = ╱6c╱l╱ // 0x579 @0xb
0x056e…058e at000c = ╱65╱e╱ // 0x57a @0xc
0x056e…058e at000d = ╱20╱…╱ // 0x57b @0xd
0x056e…058e at000e = ╱74╱t╱ // 0x57c @0xe
0x056e…058e at000f = ╱69╱i╱ // 0x57d @0xf
0x056e…058e at0010 = ╱6c╱l╱ // 0x57e @0x10
0x056e…058e at0011 = ╱20╱…╱ // 0x57f @0x11
0x056e…058e at0012 = ╱66╱f╱ // 0x580 @0x12
0x056e…058e at0013 = ╱69╱i╱ // 0x581 @0x13
0x056e…058e at0014 = ╱6c╱l╱ // 0x582 @0x14
0x056e…058e at0015 = ╱65╱e╱ // 0x583 @0x15
0x056e…058e at0016 = ╱6e╱n╱ // 0x584 @0x16
0x056e…058e at0017 = ╱20╱…╱ // 0x585 @0x17
0x056e…058e at0018 = ╱40╱@╱ // 0x586 @0x18
0x056e…058e at0019 = ╱40╱@╱ // 0x587 @0x19
0x056e…058e at001a = ╱50╱P╱ // 0x588 @0x1a
0x056e…058e at001b = ╱41╱A╱ // 0x589 @0x1b
0x056e…058e at001c = ╱52╱R╱ // 0x58a @0x1c
0x056e…058e at001d = ╱41╱A╱ // 0x58b @0x1d
0x056e…058e at001e = ╱4d╱M╱ // 0x58c @0x1e
0x056e…058e at001f = EOL // 0x58d @0x1f
0x056e…058e }
0x058e…05a0 9b8e 00450 DIM PARAM $ OF 17
0x058e…05a0 LineComal80 {
0x058e…05a0 ptr = 0x9b8e // 0x58e @0x0
0x058e…05a0 lno = 0x01c2 // 0x590 @0x2
0x058e…05a0 at0004 = ╱87╱ DIM ╱ // 0x592 @0x4
0x058e…05a0 at0005 = ╱50╱P╱ // 0x593 @0x5
0x058e…05a0 at0006 = ╱41╱A╱ // 0x594 @0x6
0x058e…05a0 at0007 = ╱52╱R╱ // 0x595 @0x7
0x058e…05a0 at0008 = ╱41╱A╱ // 0x596 @0x8
0x058e…05a0 at0009 = ╱4d╱M╱ // 0x597 @0x9
0x058e…05a0 at000a = ╱ef╱ $ ╱ // 0x598 @0xa
0x058e…05a0 at000b = ╱ba╱ OF ╱ // 0x599 @0xb
0x058e…05a0 at000c = ╱31╱1╱ // 0x59a @0xc
0x058e…05a0 at000d = ╱37╱7╱ // 0x59b @0xd
0x058e…05a0 at000e = ╱f21100╱ // 0x59c @0xe
0x058e…05a0 at0011 = EOL // 0x59f @0x11
0x058e…05a0 }
0x05a0…05c5 9bb3 00460 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
0x05a0…05c5 LineComal80 {
0x05a0…05c5 ptr = 0x9bb3 // 0x5a0 @0x0
0x05a0…05c5 lno = 0x01cc // 0x5a2 @0x2
0x05a0…05c5 at0004 = ╱87╱ DIM ╱ // 0x5a4 @0x4
0x05a0…05c5 at0005 = ╱46╱F╱ // 0x5a5 @0x5
0x05a0…05c5 at0006 = ╱49╱I╱ // 0x5a6 @0x6
0x05a0…05c5 at0007 = ╱52╱R╱ // 0x5a7 @0x7
0x05a0…05c5 at0008 = ╱4d╱M╱ // 0x5a8 @0x8
0x05a0…05c5 at0009 = ╱41╱A╱ // 0x5a9 @0x9
0x05a0…05c5 at000a = ╱4e╱N╱ // 0x5aa @0xa
0x05a0…05c5 at000b = ╱41╱A╱ // 0x5ab @0xb
0x05a0…05c5 at000c = ╱56╱V╱ // 0x5ac @0xc
0x05a0…05c5 at000d = ╱4e╱N╱ // 0x5ad @0xd
0x05a0…05c5 at000e = ╱ef╱ $ ╱ // 0x5ae @0xe
0x05a0…05c5 at000f = ╱ba╱ OF ╱ // 0x5af @0xf
0x05a0…05c5 at0010 = ╱33╱3╱ // 0x5b0 @0x10
0x05a0…05c5 at0011 = ╱30╱0╱ // 0x5b1 @0x11
0x05a0…05c5 at0012 = ╱f21e00╱ // 0x5b2 @0x12
0x05a0…05c5 at0015 = ╱ec╱ , ╱ // 0x5b5 @0x15
0x05a0…05c5 at0016 = ╱53╱S╱ // 0x5b6 @0x16
0x05a0…05c5 at0017 = ╱59╱Y╱ // 0x5b7 @0x17
0x05a0…05c5 at0018 = ╱53╱S╱ // 0x5b8 @0x18
0x05a0…05c5 at0019 = ╱54╱T╱ // 0x5b9 @0x19
0x05a0…05c5 at001a = ╱5f╱_╱ // 0x5ba @0x1a
0x05a0…05c5 at001b = ╱44╱D╱ // 0x5bb @0x1b
0x05a0…05c5 at001c = ╱41╱A╱ // 0x5bc @0x1c
0x05a0…05c5 at001d = ╱54╱T╱ // 0x5bd @0x1d
0x05a0…05c5 at001e = ╱ef╱ $ ╱ // 0x5be @0x1e
0x05a0…05c5 at001f = ╱ba╱ OF ╱ // 0x5bf @0x1f
0x05a0…05c5 at0020 = ╱36╱6╱ // 0x5c0 @0x20
0x05a0…05c5 at0021 = ╱f20600╱ // 0x5c1 @0x21
0x05a0…05c5 at0024 = EOL // 0x5c4 @0x24
0x05a0…05c5 }
0x05c5…05cf 9bbd 00470 REAL MOMS
0x05c5…05cf LineComal80 {
0x05c5…05cf ptr = 0x9bbd // 0x5c5 @0x0
0x05c5…05cf lno = 0x01d6 // 0x5c7 @0x2
0x05c5…05cf at0004 = ╱b3╱ REAL ╱ // 0x5c9 @0x4
0x05c5…05cf at0005 = ╱4d╱M╱ // 0x5ca @0x5
0x05c5…05cf at0006 = ╱4f╱O╱ // 0x5cb @0x6
0x05c5…05cf at0007 = ╱4d╱M╱ // 0x5cc @0x7
0x05c5…05cf at0008 = ╱53╱S╱ // 0x5cd @0x8
0x05c5…05cf at0009 = EOL // 0x5ce @0x9
0x05c5…05cf }
0x05cf…05ef 9bdd 00480 // Variable…til…filen…@@KASSE
0x05cf…05ef LineComal80 {
0x05cf…05ef ptr = 0x9bdd // 0x5cf @0x0
0x05cf…05ef lno = 0x01e0 // 0x5d1 @0x2
0x05cf…05ef at0004 = ╱89╱ // ╱ // 0x5d3 @0x4
0x05cf…05ef at0005 = ╱56╱V╱ // 0x5d4 @0x5
0x05cf…05ef at0006 = ╱61╱a╱ // 0x5d5 @0x6
0x05cf…05ef at0007 = ╱72╱r╱ // 0x5d6 @0x7
0x05cf…05ef at0008 = ╱69╱i╱ // 0x5d7 @0x8
0x05cf…05ef at0009 = ╱61╱a╱ // 0x5d8 @0x9
0x05cf…05ef at000a = ╱62╱b╱ // 0x5d9 @0xa
0x05cf…05ef at000b = ╱6c╱l╱ // 0x5da @0xb
0x05cf…05ef at000c = ╱65╱e╱ // 0x5db @0xc
0x05cf…05ef at000d = ╱20╱…╱ // 0x5dc @0xd
0x05cf…05ef at000e = ╱74╱t╱ // 0x5dd @0xe
0x05cf…05ef at000f = ╱69╱i╱ // 0x5de @0xf
0x05cf…05ef at0010 = ╱6c╱l╱ // 0x5df @0x10
0x05cf…05ef at0011 = ╱20╱…╱ // 0x5e0 @0x11
0x05cf…05ef at0012 = ╱66╱f╱ // 0x5e1 @0x12
0x05cf…05ef at0013 = ╱69╱i╱ // 0x5e2 @0x13
0x05cf…05ef at0014 = ╱6c╱l╱ // 0x5e3 @0x14
0x05cf…05ef at0015 = ╱65╱e╱ // 0x5e4 @0x15
0x05cf…05ef at0016 = ╱6e╱n╱ // 0x5e5 @0x16
0x05cf…05ef at0017 = ╱20╱…╱ // 0x5e6 @0x17
0x05cf…05ef at0018 = ╱40╱@╱ // 0x5e7 @0x18
0x05cf…05ef at0019 = ╱40╱@╱ // 0x5e8 @0x19
0x05cf…05ef at001a = ╱4b╱K╱ // 0x5e9 @0x1a
0x05cf…05ef at001b = ╱41╱A╱ // 0x5ea @0x1b
0x05cf…05ef at001c = ╱53╱S╱ // 0x5eb @0x1c
0x05cf…05ef at001d = ╱53╱S╱ // 0x5ec @0x1d
0x05cf…05ef at001e = ╱45╱E╱ // 0x5ed @0x1e
0x05cf…05ef at001f = EOL // 0x5ee @0x1f
0x05cf…05ef }
0x05ef…0601 9bef 00490 DIM KASSE $ OF 17
0x05ef…0601 LineComal80 {
0x05ef…0601 ptr = 0x9bef // 0x5ef @0x0
0x05ef…0601 lno = 0x01ea // 0x5f1 @0x2
0x05ef…0601 at0004 = ╱87╱ DIM ╱ // 0x5f3 @0x4
0x05ef…0601 at0005 = ╱4b╱K╱ // 0x5f4 @0x5
0x05ef…0601 at0006 = ╱41╱A╱ // 0x5f5 @0x6
0x05ef…0601 at0007 = ╱53╱S╱ // 0x5f6 @0x7
0x05ef…0601 at0008 = ╱53╱S╱ // 0x5f7 @0x8
0x05ef…0601 at0009 = ╱45╱E╱ // 0x5f8 @0x9
0x05ef…0601 at000a = ╱ef╱ $ ╱ // 0x5f9 @0xa
0x05ef…0601 at000b = ╱ba╱ OF ╱ // 0x5fa @0xb
0x05ef…0601 at000c = ╱31╱1╱ // 0x5fb @0xc
0x05ef…0601 at000d = ╱37╱7╱ // 0x5fc @0xd
0x05ef…0601 at000e = ╱f21100╱ // 0x5fd @0xe
0x05ef…0601 at0011 = EOL // 0x600 @0x11
0x05ef…0601 }
0x0601…0613 9c01 00500 DIM K_BDAT $ OF 6
0x0601…0613 LineComal80 {
0x0601…0613 ptr = 0x9c01 // 0x601 @0x0
0x0601…0613 lno = 0x01f4 // 0x603 @0x2
0x0601…0613 at0004 = ╱87╱ DIM ╱ // 0x605 @0x4
0x0601…0613 at0005 = ╱4b╱K╱ // 0x606 @0x5
0x0601…0613 at0006 = ╱5f╱_╱ // 0x607 @0x6
0x0601…0613 at0007 = ╱42╱B╱ // 0x608 @0x7
0x0601…0613 at0008 = ╱44╱D╱ // 0x609 @0x8
0x0601…0613 at0009 = ╱41╱A╱ // 0x60a @0x9
0x0601…0613 at000a = ╱54╱T╱ // 0x60b @0xa
0x0601…0613 at000b = ╱ef╱ $ ╱ // 0x60c @0xb
0x0601…0613 at000c = ╱ba╱ OF ╱ // 0x60d @0xc
0x0601…0613 at000d = ╱36╱6╱ // 0x60e @0xd
0x0601…0613 at000e = ╱f20600╱ // 0x60f @0xe
0x0601…0613 at0011 = EOL // 0x612 @0x11
0x0601…0613 }
0x0613…0635 9c23 00510 INTEGER K_H\JREC , K_MAXREC , S_NR_KASSE
0x0613…0635 LineComal80 {
0x0613…0635 ptr = 0x9c23 // 0x613 @0x0
0x0613…0635 lno = 0x01fe // 0x615 @0x2
0x0613…0635 at0004 = ╱b2╱ INTEGER ╱ // 0x617 @0x4
0x0613…0635 at0005 = ╱4b╱K╱ // 0x618 @0x5
0x0613…0635 at0006 = ╱5f╱_╱ // 0x619 @0x6
0x0613…0635 at0007 = ╱48╱H╱ // 0x61a @0x7
0x0613…0635 at0008 = ╱5c╱\╱ // 0x61b @0x8
0x0613…0635 at0009 = ╱4a╱J╱ // 0x61c @0x9
0x0613…0635 at000a = ╱52╱R╱ // 0x61d @0xa
0x0613…0635 at000b = ╱45╱E╱ // 0x61e @0xb
0x0613…0635 at000c = ╱43╱C╱ // 0x61f @0xc
0x0613…0635 at000d = ╱ec╱ , ╱ // 0x620 @0xd
0x0613…0635 at000e = ╱4b╱K╱ // 0x621 @0xe
0x0613…0635 at000f = ╱5f╱_╱ // 0x622 @0xf
0x0613…0635 at0010 = ╱4d╱M╱ // 0x623 @0x10
0x0613…0635 at0011 = ╱41╱A╱ // 0x624 @0x11
0x0613…0635 at0012 = ╱58╱X╱ // 0x625 @0x12
0x0613…0635 at0013 = ╱52╱R╱ // 0x626 @0x13
0x0613…0635 at0014 = ╱45╱E╱ // 0x627 @0x14
0x0613…0635 at0015 = ╱43╱C╱ // 0x628 @0x15
0x0613…0635 at0016 = ╱ec╱ , ╱ // 0x629 @0x16
0x0613…0635 at0017 = ╱53╱S╱ // 0x62a @0x17
0x0613…0635 at0018 = ╱5f╱_╱ // 0x62b @0x18
0x0613…0635 at0019 = ╱4e╱N╱ // 0x62c @0x19
0x0613…0635 at001a = ╱52╱R╱ // 0x62d @0x1a
0x0613…0635 at001b = ╱5f╱_╱ // 0x62e @0x1b
0x0613…0635 at001c = ╱4b╱K╱ // 0x62f @0x1c
0x0613…0635 at001d = ╱41╱A╱ // 0x630 @0x1d
0x0613…0635 at001e = ╱53╱S╱ // 0x631 @0x1e
0x0613…0635 at001f = ╱53╱S╱ // 0x632 @0x1f
0x0613…0635 at0020 = ╱45╱E╱ // 0x633 @0x20
0x0613…0635 at0021 = EOL // 0x634 @0x21
0x0613…0635 }
0x0635…0661 9c4f 00520 DIM K_BKTO $ OF 8 , K_LKOD $ OF 1 , K_MKOD $ OF 1
0x0635…0661 LineComal80 {
0x0635…0661 ptr = 0x9c4f // 0x635 @0x0
0x0635…0661 lno = 0x0208 // 0x637 @0x2
0x0635…0661 at0004 = ╱87╱ DIM ╱ // 0x639 @0x4
0x0635…0661 at0005 = ╱4b╱K╱ // 0x63a @0x5
0x0635…0661 at0006 = ╱5f╱_╱ // 0x63b @0x6
0x0635…0661 at0007 = ╱42╱B╱ // 0x63c @0x7
0x0635…0661 at0008 = ╱4b╱K╱ // 0x63d @0x8
0x0635…0661 at0009 = ╱54╱T╱ // 0x63e @0x9
0x0635…0661 at000a = ╱4f╱O╱ // 0x63f @0xa
0x0635…0661 at000b = ╱ef╱ $ ╱ // 0x640 @0xb
0x0635…0661 at000c = ╱ba╱ OF ╱ // 0x641 @0xc
0x0635…0661 at000d = ╱38╱8╱ // 0x642 @0xd
0x0635…0661 at000e = ╱f20800╱ // 0x643 @0xe
0x0635…0661 at0011 = ╱ec╱ , ╱ // 0x646 @0x11
0x0635…0661 at0012 = ╱4b╱K╱ // 0x647 @0x12
0x0635…0661 at0013 = ╱5f╱_╱ // 0x648 @0x13
0x0635…0661 at0014 = ╱4c╱L╱ // 0x649 @0x14
0x0635…0661 at0015 = ╱4b╱K╱ // 0x64a @0x15
0x0635…0661 at0016 = ╱4f╱O╱ // 0x64b @0x16
0x0635…0661 at0017 = ╱44╱D╱ // 0x64c @0x17
0x0635…0661 at0018 = ╱ef╱ $ ╱ // 0x64d @0x18
0x0635…0661 at0019 = ╱ba╱ OF ╱ // 0x64e @0x19
0x0635…0661 at001a = ╱31╱1╱ // 0x64f @0x1a
0x0635…0661 at001b = ╱f20100╱ // 0x650 @0x1b
0x0635…0661 at001e = ╱ec╱ , ╱ // 0x653 @0x1e
0x0635…0661 at001f = ╱4b╱K╱ // 0x654 @0x1f
0x0635…0661 at0020 = ╱5f╱_╱ // 0x655 @0x20
0x0635…0661 at0021 = ╱4d╱M╱ // 0x656 @0x21
0x0635…0661 at0022 = ╱4b╱K╱ // 0x657 @0x22
0x0635…0661 at0023 = ╱4f╱O╱ // 0x658 @0x23
0x0635…0661 at0024 = ╱44╱D╱ // 0x659 @0x24
0x0635…0661 at0025 = ╱ef╱ $ ╱ // 0x65a @0x25
0x0635…0661 at0026 = ╱ba╱ OF ╱ // 0x65b @0x26
0x0635…0661 at0027 = ╱31╱1╱ // 0x65c @0x27
0x0635…0661 at0028 = ╱f20100╱ // 0x65d @0x28
0x0635…0661 at002b = EOL // 0x660 @0x2b
0x0635…0661 }
0x0661…067f 9c6d 00530 DIM K_BNR $ OF 5 , K_TXT $ OF 20
0x0661…067f LineComal80 {
0x0661…067f ptr = 0x9c6d // 0x661 @0x0
0x0661…067f lno = 0x0212 // 0x663 @0x2
0x0661…067f at0004 = ╱87╱ DIM ╱ // 0x665 @0x4
0x0661…067f at0005 = ╱4b╱K╱ // 0x666 @0x5
0x0661…067f at0006 = ╱5f╱_╱ // 0x667 @0x6
0x0661…067f at0007 = ╱42╱B╱ // 0x668 @0x7
0x0661…067f at0008 = ╱4e╱N╱ // 0x669 @0x8
0x0661…067f at0009 = ╱52╱R╱ // 0x66a @0x9
0x0661…067f at000a = ╱ef╱ $ ╱ // 0x66b @0xa
0x0661…067f at000b = ╱ba╱ OF ╱ // 0x66c @0xb
0x0661…067f at000c = ╱35╱5╱ // 0x66d @0xc
0x0661…067f at000d = ╱f20500╱ // 0x66e @0xd
0x0661…067f at0010 = ╱ec╱ , ╱ // 0x671 @0x10
0x0661…067f at0011 = ╱4b╱K╱ // 0x672 @0x11
0x0661…067f at0012 = ╱5f╱_╱ // 0x673 @0x12
0x0661…067f at0013 = ╱54╱T╱ // 0x674 @0x13
0x0661…067f at0014 = ╱58╱X╱ // 0x675 @0x14
0x0661…067f at0015 = ╱54╱T╱ // 0x676 @0x15
0x0661…067f at0016 = ╱ef╱ $ ╱ // 0x677 @0x16
0x0661…067f at0017 = ╱ba╱ OF ╱ // 0x678 @0x17
0x0661…067f at0018 = ╱32╱2╱ // 0x679 @0x18
0x0661…067f at0019 = ╱30╱0╱ // 0x67a @0x19
0x0661…067f at001a = ╱f21400╱ // 0x67b @0x1a
0x0661…067f at001d = EOL // 0x67e @0x1d
0x0661…067f }
0x067f…068a 9c78 00540 REAL K_BKR
0x067f…068a LineComal80 {
0x067f…068a ptr = 0x9c78 // 0x67f @0x0
0x067f…068a lno = 0x021c // 0x681 @0x2
0x067f…068a at0004 = ╱b3╱ REAL ╱ // 0x683 @0x4
0x067f…068a at0005 = ╱4b╱K╱ // 0x684 @0x5
0x067f…068a at0006 = ╱5f╱_╱ // 0x685 @0x6
0x067f…068a at0007 = ╱42╱B╱ // 0x686 @0x7
0x067f…068a at0008 = ╱4b╱K╱ // 0x687 @0x8
0x067f…068a at0009 = ╱52╱R╱ // 0x688 @0x9
0x067f…068a at000a = EOL // 0x689 @0xa
0x067f…068a }
0x068a…0694 9c82 00550 INTEGER K_DK
0x068a…0694 LineComal80 {
0x068a…0694 ptr = 0x9c82 // 0x68a @0x0
0x068a…0694 lno = 0x0226 // 0x68c @0x2
0x068a…0694 at0004 = ╱b2╱ INTEGER ╱ // 0x68e @0x4
0x068a…0694 at0005 = ╱4b╱K╱ // 0x68f @0x5
0x068a…0694 at0006 = ╱5f╱_╱ // 0x690 @0x6
0x068a…0694 at0007 = ╱44╱D╱ // 0x691 @0x7
0x068a…0694 at0008 = ╱4b╱K╱ // 0x692 @0x8
0x068a…0694 at0009 = EOL // 0x693 @0x9
0x068a…0694 }
0x0694…06b4 9ca2 00560 // Variable…til…filen…@@KONTO
0x0694…06b4 LineComal80 {
0x0694…06b4 ptr = 0x9ca2 // 0x694 @0x0
0x0694…06b4 lno = 0x0230 // 0x696 @0x2
0x0694…06b4 at0004 = ╱89╱ // ╱ // 0x698 @0x4
0x0694…06b4 at0005 = ╱56╱V╱ // 0x699 @0x5
0x0694…06b4 at0006 = ╱61╱a╱ // 0x69a @0x6
0x0694…06b4 at0007 = ╱72╱r╱ // 0x69b @0x7
0x0694…06b4 at0008 = ╱69╱i╱ // 0x69c @0x8
0x0694…06b4 at0009 = ╱61╱a╱ // 0x69d @0x9
0x0694…06b4 at000a = ╱62╱b╱ // 0x69e @0xa
0x0694…06b4 at000b = ╱6c╱l╱ // 0x69f @0xb
0x0694…06b4 at000c = ╱65╱e╱ // 0x6a0 @0xc
0x0694…06b4 at000d = ╱20╱…╱ // 0x6a1 @0xd
0x0694…06b4 at000e = ╱74╱t╱ // 0x6a2 @0xe
0x0694…06b4 at000f = ╱69╱i╱ // 0x6a3 @0xf
0x0694…06b4 at0010 = ╱6c╱l╱ // 0x6a4 @0x10
0x0694…06b4 at0011 = ╱20╱…╱ // 0x6a5 @0x11
0x0694…06b4 at0012 = ╱66╱f╱ // 0x6a6 @0x12
0x0694…06b4 at0013 = ╱69╱i╱ // 0x6a7 @0x13
0x0694…06b4 at0014 = ╱6c╱l╱ // 0x6a8 @0x14
0x0694…06b4 at0015 = ╱65╱e╱ // 0x6a9 @0x15
0x0694…06b4 at0016 = ╱6e╱n╱ // 0x6aa @0x16
0x0694…06b4 at0017 = ╱20╱…╱ // 0x6ab @0x17
0x0694…06b4 at0018 = ╱40╱@╱ // 0x6ac @0x18
0x0694…06b4 at0019 = ╱40╱@╱ // 0x6ad @0x19
0x0694…06b4 at001a = ╱4b╱K╱ // 0x6ae @0x1a
0x0694…06b4 at001b = ╱4f╱O╱ // 0x6af @0x1b
0x0694…06b4 at001c = ╱4e╱N╱ // 0x6b0 @0x1c
0x0694…06b4 at001d = ╱54╱T╱ // 0x6b1 @0x1d
0x0694…06b4 at001e = ╱4f╱O╱ // 0x6b2 @0x1e
0x0694…06b4 at001f = EOL // 0x6b3 @0x1f
0x0694…06b4 }
0x06b4…06c6 9cb4 00570 DIM KONTO $ OF 17
0x06b4…06c6 LineComal80 {
0x06b4…06c6 ptr = 0x9cb4 // 0x6b4 @0x0
0x06b4…06c6 lno = 0x023a // 0x6b6 @0x2
0x06b4…06c6 at0004 = ╱87╱ DIM ╱ // 0x6b8 @0x4
0x06b4…06c6 at0005 = ╱4b╱K╱ // 0x6b9 @0x5
0x06b4…06c6 at0006 = ╱4f╱O╱ // 0x6ba @0x6
0x06b4…06c6 at0007 = ╱4e╱N╱ // 0x6bb @0x7
0x06b4…06c6 at0008 = ╱54╱T╱ // 0x6bc @0x8
0x06b4…06c6 at0009 = ╱4f╱O╱ // 0x6bd @0x9
0x06b4…06c6 at000a = ╱ef╱ $ ╱ // 0x6be @0xa
0x06b4…06c6 at000b = ╱ba╱ OF ╱ // 0x6bf @0xb
0x06b4…06c6 at000c = ╱31╱1╱ // 0x6c0 @0xc
0x06b4…06c6 at000d = ╱37╱7╱ // 0x6c1 @0xd
0x06b4…06c6 at000e = ╱f21100╱ // 0x6c2 @0xe
0x06b4…06c6 at0011 = EOL // 0x6c5 @0x11
0x06b4…06c6 }
0x06c6…06d9 9cc7 00580 DIM ST_DATO $ OF 6
0x06c6…06d9 LineComal80 {
0x06c6…06d9 ptr = 0x9cc7 // 0x6c6 @0x0
0x06c6…06d9 lno = 0x0244 // 0x6c8 @0x2
0x06c6…06d9 at0004 = ╱87╱ DIM ╱ // 0x6ca @0x4
0x06c6…06d9 at0005 = ╱53╱S╱ // 0x6cb @0x5
0x06c6…06d9 at0006 = ╱54╱T╱ // 0x6cc @0x6
0x06c6…06d9 at0007 = ╱5f╱_╱ // 0x6cd @0x7
0x06c6…06d9 at0008 = ╱44╱D╱ // 0x6ce @0x8
0x06c6…06d9 at0009 = ╱41╱A╱ // 0x6cf @0x9
0x06c6…06d9 at000a = ╱54╱T╱ // 0x6d0 @0xa
0x06c6…06d9 at000b = ╱4f╱O╱ // 0x6d1 @0xb
0x06c6…06d9 at000c = ╱ef╱ $ ╱ // 0x6d2 @0xc
0x06c6…06d9 at000d = ╱ba╱ OF ╱ // 0x6d3 @0xd
0x06c6…06d9 at000e = ╱36╱6╱ // 0x6d4 @0xe
0x06c6…06d9 at000f = ╱f20600╱ // 0x6d5 @0xf
0x06c6…06d9 at0012 = EOL // 0x6d8 @0x12
0x06c6…06d9 }
0x06d9…06ff 9ced 00590 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
0x06d9…06ff LineComal80 {
0x06d9…06ff ptr = 0x9ced // 0x6d9 @0x0
0x06d9…06ff lno = 0x024e // 0x6db @0x2
0x06d9…06ff at0004 = ╱b2╱ INTEGER ╱ // 0x6dd @0x4
0x06d9…06ff at0005 = ╱4e╱N╱ // 0x6de @0x5
0x06d9…06ff at0006 = ╱5f╱_╱ // 0x6df @0x6
0x06d9…06ff at0007 = ╱46╱F╱ // 0x6e0 @0x7
0x06d9…06ff at0008 = ╱52╱R╱ // 0x6e1 @0x8
0x06d9…06ff at0009 = ╱49╱I╱ // 0x6e2 @0x9
0x06d9…06ff at000a = ╱52╱R╱ // 0x6e3 @0xa
0x06d9…06ff at000b = ╱45╱E╱ // 0x6e4 @0xb
0x06d9…06ff at000c = ╱43╱C╱ // 0x6e5 @0xc
0x06d9…06ff at000d = ╱ec╱ , ╱ // 0x6e6 @0xd
0x06d9…06ff at000e = ╱4e╱N╱ // 0x6e7 @0xe
0x06d9…06ff at000f = ╱5f╱_╱ // 0x6e8 @0xf
0x06d9…06ff at0010 = ╱4d╱M╱ // 0x6e9 @0x10
0x06d9…06ff at0011 = ╱41╱A╱ // 0x6ea @0x11
0x06d9…06ff at0012 = ╱58╱X╱ // 0x6eb @0x12
0x06d9…06ff at0013 = ╱52╱R╱ // 0x6ec @0x13
0x06d9…06ff at0014 = ╱45╱E╱ // 0x6ed @0x14
0x06d9…06ff at0015 = ╱43╱C╱ // 0x6ee @0x15
0x06d9…06ff at0016 = ╱ec╱ , ╱ // 0x6ef @0x16
0x06d9…06ff at0017 = ╱41╱A╱ // 0x6f0 @0x17
0x06d9…06ff at0018 = ╱4e╱N╱ // 0x6f1 @0x18
0x06d9…06ff at0019 = ╱54╱T╱ // 0x6f2 @0x19
0x06d9…06ff at001a = ╱5f╱_╱ // 0x6f3 @0x1a
0x06d9…06ff at001b = ╱50╱P╱ // 0x6f4 @0x1b
0x06d9…06ff at001c = ╱45╱E╱ // 0x6f5 @0x1c
0x06d9…06ff at001d = ╱52╱R╱ // 0x6f6 @0x1d
0x06d9…06ff at001e = ╱ec╱ , ╱ // 0x6f7 @0x1e
0x06d9…06ff at001f = ╱50╱P╱ // 0x6f8 @0x1f
0x06d9…06ff at0020 = ╱45╱E╱ // 0x6f9 @0x20
0x06d9…06ff at0021 = ╱52╱R╱ // 0x6fa @0x21
0x06d9…06ff at0022 = ╱5f╱_╱ // 0x6fb @0x22
0x06d9…06ff at0023 = ╱4e╱N╱ // 0x6fc @0x23
0x06d9…06ff at0024 = ╱52╱R╱ // 0x6fd @0x24
0x06d9…06ff at0025 = EOL // 0x6fe @0x25
0x06d9…06ff }
0x06ff…0723 9d11 00600 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
0x06ff…0723 LineComal80 {
0x06ff…0723 ptr = 0x9d11 // 0x6ff @0x0
0x06ff…0723 lno = 0x0258 // 0x701 @0x2
0x06ff…0723 at0004 = ╱87╱ DIM ╱ // 0x703 @0x4
0x06ff…0723 at0005 = ╱4b╱K╱ // 0x704 @0x5
0x06ff…0723 at0006 = ╱54╱T╱ // 0x705 @0x6
0x06ff…0723 at0007 = ╱4f╱O╱ // 0x706 @0x7
0x06ff…0723 at0008 = ╱5f╱_╱ // 0x707 @0x8
0x06ff…0723 at0009 = ╱54╱T╱ // 0x708 @0x9
0x06ff…0723 at000a = ╱59╱Y╱ // 0x709 @0xa
0x06ff…0723 at000b = ╱50╱P╱ // 0x70a @0xb
0x06ff…0723 at000c = ╱45╱E╱ // 0x70b @0xc
0x06ff…0723 at000d = ╱ef╱ $ ╱ // 0x70c @0xd
0x06ff…0723 at000e = ╱ba╱ OF ╱ // 0x70d @0xe
0x06ff…0723 at000f = ╱31╱1╱ // 0x70e @0xf
0x06ff…0723 at0010 = ╱f20100╱ // 0x70f @0x10
0x06ff…0723 at0013 = ╱ec╱ , ╱ // 0x712 @0x13
0x06ff…0723 at0014 = ╱4b╱K╱ // 0x713 @0x14
0x06ff…0723 at0015 = ╱54╱T╱ // 0x714 @0x15
0x06ff…0723 at0016 = ╱4f╱O╱ // 0x715 @0x16
0x06ff…0723 at0017 = ╱5f╱_╱ // 0x716 @0x17
0x06ff…0723 at0018 = ╱4e╱N╱ // 0x717 @0x18
0x06ff…0723 at0019 = ╱41╱A╱ // 0x718 @0x19
0x06ff…0723 at001a = ╱56╱V╱ // 0x719 @0x1a
0x06ff…0723 at001b = ╱4e╱N╱ // 0x71a @0x1b
0x06ff…0723 at001c = ╱ef╱ $ ╱ // 0x71b @0x1c
0x06ff…0723 at001d = ╱ba╱ OF ╱ // 0x71c @0x1d
0x06ff…0723 at001e = ╱34╱4╱ // 0x71d @0x1e
0x06ff…0723 at001f = ╱30╱0╱ // 0x71e @0x1f
0x06ff…0723 at0020 = ╱f22800╱ // 0x71f @0x20
0x06ff…0723 at0023 = EOL // 0x722 @0x23
0x06ff…0723 }
0x0723…073d 9d2b 00610 REAL KTO_PRIMO , KTO_ULTIMO
0x0723…073d LineComal80 {
0x0723…073d ptr = 0x9d2b // 0x723 @0x0
0x0723…073d lno = 0x0262 // 0x725 @0x2
0x0723…073d at0004 = ╱b3╱ REAL ╱ // 0x727 @0x4
0x0723…073d at0005 = ╱4b╱K╱ // 0x728 @0x5
0x0723…073d at0006 = ╱54╱T╱ // 0x729 @0x6
0x0723…073d at0007 = ╱4f╱O╱ // 0x72a @0x7
0x0723…073d at0008 = ╱5f╱_╱ // 0x72b @0x8
0x0723…073d at0009 = ╱50╱P╱ // 0x72c @0x9
0x0723…073d at000a = ╱52╱R╱ // 0x72d @0xa
0x0723…073d at000b = ╱49╱I╱ // 0x72e @0xb
0x0723…073d at000c = ╱4d╱M╱ // 0x72f @0xc
0x0723…073d at000d = ╱4f╱O╱ // 0x730 @0xd
0x0723…073d at000e = ╱ec╱ , ╱ // 0x731 @0xe
0x0723…073d at000f = ╱4b╱K╱ // 0x732 @0xf
0x0723…073d at0010 = ╱54╱T╱ // 0x733 @0x10
0x0723…073d at0011 = ╱4f╱O╱ // 0x734 @0x11
0x0723…073d at0012 = ╱5f╱_╱ // 0x735 @0x12
0x0723…073d at0013 = ╱55╱U╱ // 0x736 @0x13
0x0723…073d at0014 = ╱4c╱L╱ // 0x737 @0x14
0x0723…073d at0015 = ╱54╱T╱ // 0x738 @0x15
0x0723…073d at0016 = ╱49╱I╱ // 0x739 @0x16
0x0723…073d at0017 = ╱4d╱M╱ // 0x73a @0x17
0x0723…073d at0018 = ╱4f╱O╱ // 0x73b @0x18
0x0723…073d at0019 = EOL // 0x73c @0x19
0x0723…073d }
0x073d…0750 9d3e 00620 INTEGER KTO_FP , KTO_SP
0x073d…0750 LineComal80 {
0x073d…0750 ptr = 0x9d3e // 0x73d @0x0
0x073d…0750 lno = 0x026c // 0x73f @0x2
0x073d…0750 at0004 = ╱b2╱ INTEGER ╱ // 0x741 @0x4
0x073d…0750 at0005 = ╱4b╱K╱ // 0x742 @0x5
0x073d…0750 at0006 = ╱54╱T╱ // 0x743 @0x6
0x073d…0750 at0007 = ╱4f╱O╱ // 0x744 @0x7
0x073d…0750 at0008 = ╱5f╱_╱ // 0x745 @0x8
0x073d…0750 at0009 = ╱46╱F╱ // 0x746 @0x9
0x073d…0750 at000a = ╱50╱P╱ // 0x747 @0xa
0x073d…0750 at000b = ╱ec╱ , ╱ // 0x748 @0xb
0x073d…0750 at000c = ╱4b╱K╱ // 0x749 @0xc
0x073d…0750 at000d = ╱54╱T╱ // 0x74a @0xd
0x073d…0750 at000e = ╱4f╱O╱ // 0x74b @0xe
0x073d…0750 at000f = ╱5f╱_╱ // 0x74c @0xf
0x073d…0750 at0010 = ╱53╱S╱ // 0x74d @0x10
0x073d…0750 at0011 = ╱50╱P╱ // 0x74e @0x11
0x073d…0750 at0012 = EOL // 0x74f @0x12
0x073d…0750 }
0x0750…0771 9d5f 00630 // Variable…til…filen…@@KTOIDX
0x0750…0771 LineComal80 {
0x0750…0771 ptr = 0x9d5f // 0x750 @0x0
0x0750…0771 lno = 0x0276 // 0x752 @0x2
0x0750…0771 at0004 = ╱89╱ // ╱ // 0x754 @0x4
0x0750…0771 at0005 = ╱56╱V╱ // 0x755 @0x5
0x0750…0771 at0006 = ╱61╱a╱ // 0x756 @0x6
0x0750…0771 at0007 = ╱72╱r╱ // 0x757 @0x7
0x0750…0771 at0008 = ╱69╱i╱ // 0x758 @0x8
0x0750…0771 at0009 = ╱61╱a╱ // 0x759 @0x9
0x0750…0771 at000a = ╱62╱b╱ // 0x75a @0xa
0x0750…0771 at000b = ╱6c╱l╱ // 0x75b @0xb
0x0750…0771 at000c = ╱65╱e╱ // 0x75c @0xc
0x0750…0771 at000d = ╱20╱…╱ // 0x75d @0xd
0x0750…0771 at000e = ╱74╱t╱ // 0x75e @0xe
0x0750…0771 at000f = ╱69╱i╱ // 0x75f @0xf
0x0750…0771 at0010 = ╱6c╱l╱ // 0x760 @0x10
0x0750…0771 at0011 = ╱20╱…╱ // 0x761 @0x11
0x0750…0771 at0012 = ╱66╱f╱ // 0x762 @0x12
0x0750…0771 at0013 = ╱69╱i╱ // 0x763 @0x13
0x0750…0771 at0014 = ╱6c╱l╱ // 0x764 @0x14
0x0750…0771 at0015 = ╱65╱e╱ // 0x765 @0x15
0x0750…0771 at0016 = ╱6e╱n╱ // 0x766 @0x16
0x0750…0771 at0017 = ╱20╱…╱ // 0x767 @0x17
0x0750…0771 at0018 = ╱40╱@╱ // 0x768 @0x18
0x0750…0771 at0019 = ╱40╱@╱ // 0x769 @0x19
0x0750…0771 at001a = ╱4b╱K╱ // 0x76a @0x1a
0x0750…0771 at001b = ╱54╱T╱ // 0x76b @0x1b
0x0750…0771 at001c = ╱4f╱O╱ // 0x76c @0x1c
0x0750…0771 at001d = ╱49╱I╱ // 0x76d @0x1d
0x0750…0771 at001e = ╱44╱D╱ // 0x76e @0x1e
0x0750…0771 at001f = ╱58╱X╱ // 0x76f @0x1f
0x0750…0771 at0020 = EOL // 0x770 @0x20
0x0750…0771 }
0x0771…0784 9d72 00640 DIM KTOIDX $ OF 17
0x0771…0784 LineComal80 {
0x0771…0784 ptr = 0x9d72 // 0x771 @0x0
0x0771…0784 lno = 0x0280 // 0x773 @0x2
0x0771…0784 at0004 = ╱87╱ DIM ╱ // 0x775 @0x4
0x0771…0784 at0005 = ╱4b╱K╱ // 0x776 @0x5
0x0771…0784 at0006 = ╱54╱T╱ // 0x777 @0x6
0x0771…0784 at0007 = ╱4f╱O╱ // 0x778 @0x7
0x0771…0784 at0008 = ╱49╱I╱ // 0x779 @0x8
0x0771…0784 at0009 = ╱44╱D╱ // 0x77a @0x9
0x0771…0784 at000a = ╱58╱X╱ // 0x77b @0xa
0x0771…0784 at000b = ╱ef╱ $ ╱ // 0x77c @0xb
0x0771…0784 at000c = ╱ba╱ OF ╱ // 0x77d @0xc
0x0771…0784 at000d = ╱31╱1╱ // 0x77e @0xd
0x0771…0784 at000e = ╱37╱7╱ // 0x77f @0xe
0x0771…0784 at000f = ╱f21100╱ // 0x780 @0xf
0x0771…0784 at0012 = EOL // 0x783 @0x12
0x0771…0784 }
0x0784…079b 9d89 00650 INTEGER I_H\JREC , I_MAXREC
0x0784…079b LineComal80 {
0x0784…079b ptr = 0x9d89 // 0x784 @0x0
0x0784…079b lno = 0x028a // 0x786 @0x2
0x0784…079b at0004 = ╱b2╱ INTEGER ╱ // 0x788 @0x4
0x0784…079b at0005 = ╱49╱I╱ // 0x789 @0x5
0x0784…079b at0006 = ╱5f╱_╱ // 0x78a @0x6
0x0784…079b at0007 = ╱48╱H╱ // 0x78b @0x7
0x0784…079b at0008 = ╱5c╱\╱ // 0x78c @0x8
0x0784…079b at0009 = ╱4a╱J╱ // 0x78d @0x9
0x0784…079b at000a = ╱52╱R╱ // 0x78e @0xa
0x0784…079b at000b = ╱45╱E╱ // 0x78f @0xb
0x0784…079b at000c = ╱43╱C╱ // 0x790 @0xc
0x0784…079b at000d = ╱ec╱ , ╱ // 0x791 @0xd
0x0784…079b at000e = ╱49╱I╱ // 0x792 @0xe
0x0784…079b at000f = ╱5f╱_╱ // 0x793 @0xf
0x0784…079b at0010 = ╱4d╱M╱ // 0x794 @0x10
0x0784…079b at0011 = ╱41╱A╱ // 0x795 @0x11
0x0784…079b at0012 = ╱58╱X╱ // 0x796 @0x12
0x0784…079b at0013 = ╱52╱R╱ // 0x797 @0x13
0x0784…079b at0014 = ╱45╱E╱ // 0x798 @0x14
0x0784…079b at0015 = ╱43╱C╱ // 0x799 @0x15
0x0784…079b at0016 = EOL // 0x79a @0x16
0x0784…079b }
0x079b…07ac 9d9a 00660 DIM KTONR $ OF 8
0x079b…07ac LineComal80 {
0x079b…07ac ptr = 0x9d9a // 0x79b @0x0
0x079b…07ac lno = 0x0294 // 0x79d @0x2
0x079b…07ac at0004 = ╱87╱ DIM ╱ // 0x79f @0x4
0x079b…07ac at0005 = ╱4b╱K╱ // 0x7a0 @0x5
0x079b…07ac at0006 = ╱54╱T╱ // 0x7a1 @0x6
0x079b…07ac at0007 = ╱4f╱O╱ // 0x7a2 @0x7
0x079b…07ac at0008 = ╱4e╱N╱ // 0x7a3 @0x8
0x079b…07ac at0009 = ╱52╱R╱ // 0x7a4 @0x9
0x079b…07ac at000a = ╱ef╱ $ ╱ // 0x7a5 @0xa
0x079b…07ac at000b = ╱ba╱ OF ╱ // 0x7a6 @0xb
0x079b…07ac at000c = ╱38╱8╱ // 0x7a7 @0xc
0x079b…07ac at000d = ╱f20800╱ // 0x7a8 @0xd
0x079b…07ac at0010 = EOL // 0x7ab @0x10
0x079b…07ac }
0x07ac…07b7 9da5 00670 INTEGER RECNR
0x07ac…07b7 LineComal80 {
0x07ac…07b7 ptr = 0x9da5 // 0x7ac @0x0
0x07ac…07b7 lno = 0x029e // 0x7ae @0x2
0x07ac…07b7 at0004 = ╱b2╱ INTEGER ╱ // 0x7b0 @0x4
0x07ac…07b7 at0005 = ╱52╱R╱ // 0x7b1 @0x5
0x07ac…07b7 at0006 = ╱45╱E╱ // 0x7b2 @0x6
0x07ac…07b7 at0007 = ╱43╱C╱ // 0x7b3 @0x7
0x07ac…07b7 at0008 = ╱4e╱N╱ // 0x7b4 @0x8
0x07ac…07b7 at0009 = ╱52╱R╱ // 0x7b5 @0x9
0x07ac…07b7 at000a = EOL // 0x7b6 @0xa
0x07ac…07b7 }
0x07b7…07d8 9dc6 00680 // Variable…til…filen…@@FKTONR
0x07b7…07d8 LineComal80 {
0x07b7…07d8 ptr = 0x9dc6 // 0x7b7 @0x0
0x07b7…07d8 lno = 0x02a8 // 0x7b9 @0x2
0x07b7…07d8 at0004 = ╱89╱ // ╱ // 0x7bb @0x4
0x07b7…07d8 at0005 = ╱56╱V╱ // 0x7bc @0x5
0x07b7…07d8 at0006 = ╱61╱a╱ // 0x7bd @0x6
0x07b7…07d8 at0007 = ╱72╱r╱ // 0x7be @0x7
0x07b7…07d8 at0008 = ╱69╱i╱ // 0x7bf @0x8
0x07b7…07d8 at0009 = ╱61╱a╱ // 0x7c0 @0x9
0x07b7…07d8 at000a = ╱62╱b╱ // 0x7c1 @0xa
0x07b7…07d8 at000b = ╱6c╱l╱ // 0x7c2 @0xb
0x07b7…07d8 at000c = ╱65╱e╱ // 0x7c3 @0xc
0x07b7…07d8 at000d = ╱20╱…╱ // 0x7c4 @0xd
0x07b7…07d8 at000e = ╱74╱t╱ // 0x7c5 @0xe
0x07b7…07d8 at000f = ╱69╱i╱ // 0x7c6 @0xf
0x07b7…07d8 at0010 = ╱6c╱l╱ // 0x7c7 @0x10
0x07b7…07d8 at0011 = ╱20╱…╱ // 0x7c8 @0x11
0x07b7…07d8 at0012 = ╱66╱f╱ // 0x7c9 @0x12
0x07b7…07d8 at0013 = ╱69╱i╱ // 0x7ca @0x13
0x07b7…07d8 at0014 = ╱6c╱l╱ // 0x7cb @0x14
0x07b7…07d8 at0015 = ╱65╱e╱ // 0x7cc @0x15
0x07b7…07d8 at0016 = ╱6e╱n╱ // 0x7cd @0x16
0x07b7…07d8 at0017 = ╱20╱…╱ // 0x7ce @0x17
0x07b7…07d8 at0018 = ╱40╱@╱ // 0x7cf @0x18
0x07b7…07d8 at0019 = ╱40╱@╱ // 0x7d0 @0x19
0x07b7…07d8 at001a = ╱46╱F╱ // 0x7d1 @0x1a
0x07b7…07d8 at001b = ╱4b╱K╱ // 0x7d2 @0x1b
0x07b7…07d8 at001c = ╱54╱T╱ // 0x7d3 @0x1c
0x07b7…07d8 at001d = ╱4f╱O╱ // 0x7d4 @0x1d
0x07b7…07d8 at001e = ╱4e╱N╱ // 0x7d5 @0x1e
0x07b7…07d8 at001f = ╱52╱R╱ // 0x7d6 @0x1f
0x07b7…07d8 at0020 = EOL // 0x7d7 @0x20
0x07b7…07d8 }
0x07d8…07eb 9dd9 00690 DIM FKTONR $ OF 17
0x07d8…07eb LineComal80 {
0x07d8…07eb ptr = 0x9dd9 // 0x7d8 @0x0
0x07d8…07eb lno = 0x02b2 // 0x7da @0x2
0x07d8…07eb at0004 = ╱87╱ DIM ╱ // 0x7dc @0x4
0x07d8…07eb at0005 = ╱46╱F╱ // 0x7dd @0x5
0x07d8…07eb at0006 = ╱4b╱K╱ // 0x7de @0x6
0x07d8…07eb at0007 = ╱54╱T╱ // 0x7df @0x7
0x07d8…07eb at0008 = ╱4f╱O╱ // 0x7e0 @0x8
0x07d8…07eb at0009 = ╱4e╱N╱ // 0x7e1 @0x9
0x07d8…07eb at000a = ╱52╱R╱ // 0x7e2 @0xa
0x07d8…07eb at000b = ╱ef╱ $ ╱ // 0x7e3 @0xb
0x07d8…07eb at000c = ╱ba╱ OF ╱ // 0x7e4 @0xc
0x07d8…07eb at000d = ╱31╱1╱ // 0x7e5 @0xd
0x07d8…07eb at000e = ╱37╱7╱ // 0x7e6 @0xe
0x07d8…07eb at000f = ╱f21100╱ // 0x7e7 @0xf
0x07d8…07eb at0012 = EOL // 0x7ea @0x12
0x07d8…07eb }
0x07eb…081e 9e0c 00700 DIM KASSE_KTO $ OF 8 , BANK_KTO $ OF 8 , GIRO_KTO $ OF 8
0x07eb…081e LineComal80 {
0x07eb…081e ptr = 0x9e0c // 0x7eb @0x0
0x07eb…081e lno = 0x02bc // 0x7ed @0x2
0x07eb…081e at0004 = ╱87╱ DIM ╱ // 0x7ef @0x4
0x07eb…081e at0005 = ╱4b╱K╱ // 0x7f0 @0x5
0x07eb…081e at0006 = ╱41╱A╱ // 0x7f1 @0x6
0x07eb…081e at0007 = ╱53╱S╱ // 0x7f2 @0x7
0x07eb…081e at0008 = ╱53╱S╱ // 0x7f3 @0x8
0x07eb…081e at0009 = ╱45╱E╱ // 0x7f4 @0x9
0x07eb…081e at000a = ╱5f╱_╱ // 0x7f5 @0xa
0x07eb…081e at000b = ╱4b╱K╱ // 0x7f6 @0xb
0x07eb…081e at000c = ╱54╱T╱ // 0x7f7 @0xc
0x07eb…081e at000d = ╱4f╱O╱ // 0x7f8 @0xd
0x07eb…081e at000e = ╱ef╱ $ ╱ // 0x7f9 @0xe
0x07eb…081e at000f = ╱ba╱ OF ╱ // 0x7fa @0xf
0x07eb…081e at0010 = ╱38╱8╱ // 0x7fb @0x10
0x07eb…081e at0011 = ╱f20800╱ // 0x7fc @0x11
0x07eb…081e at0014 = ╱ec╱ , ╱ // 0x7ff @0x14
0x07eb…081e at0015 = ╱42╱B╱ // 0x800 @0x15
0x07eb…081e at0016 = ╱41╱A╱ // 0x801 @0x16
0x07eb…081e at0017 = ╱4e╱N╱ // 0x802 @0x17
0x07eb…081e at0018 = ╱4b╱K╱ // 0x803 @0x18
0x07eb…081e at0019 = ╱5f╱_╱ // 0x804 @0x19
0x07eb…081e at001a = ╱4b╱K╱ // 0x805 @0x1a
0x07eb…081e at001b = ╱54╱T╱ // 0x806 @0x1b
0x07eb…081e at001c = ╱4f╱O╱ // 0x807 @0x1c
0x07eb…081e at001d = ╱ef╱ $ ╱ // 0x808 @0x1d
0x07eb…081e at001e = ╱ba╱ OF ╱ // 0x809 @0x1e
0x07eb…081e at001f = ╱38╱8╱ // 0x80a @0x1f
0x07eb…081e at0020 = ╱f20800╱ // 0x80b @0x20
0x07eb…081e at0023 = ╱ec╱ , ╱ // 0x80e @0x23
0x07eb…081e at0024 = ╱47╱G╱ // 0x80f @0x24
0x07eb…081e at0025 = ╱49╱I╱ // 0x810 @0x25
0x07eb…081e at0026 = ╱52╱R╱ // 0x811 @0x26
0x07eb…081e at0027 = ╱4f╱O╱ // 0x812 @0x27
0x07eb…081e at0028 = ╱5f╱_╱ // 0x813 @0x28
0x07eb…081e at0029 = ╱4b╱K╱ // 0x814 @0x29
0x07eb…081e at002a = ╱54╱T╱ // 0x815 @0x2a
0x07eb…081e at002b = ╱4f╱O╱ // 0x816 @0x2b
0x07eb…081e at002c = ╱ef╱ $ ╱ // 0x817 @0x2c
0x07eb…081e at002d = ╱ba╱ OF ╱ // 0x818 @0x2d
0x07eb…081e at002e = ╱38╱8╱ // 0x819 @0x2e
0x07eb…081e at002f = ╱f20800╱ // 0x81a @0x2f
0x07eb…081e at0032 = EOL // 0x81d @0x32
0x07eb…081e }
0x081e…0857 9e45 00710 DIM K_DIFF_KTO $ OF 8 , INDMOMS_KTO $ OF 8 , UDMOMS_KTO $ OF 8
0x081e…0857 LineComal80 {
0x081e…0857 ptr = 0x9e45 // 0x81e @0x0
0x081e…0857 lno = 0x02c6 // 0x820 @0x2
0x081e…0857 at0004 = ╱87╱ DIM ╱ // 0x822 @0x4
0x081e…0857 at0005 = ╱4b╱K╱ // 0x823 @0x5
0x081e…0857 at0006 = ╱5f╱_╱ // 0x824 @0x6
0x081e…0857 at0007 = ╱44╱D╱ // 0x825 @0x7
0x081e…0857 at0008 = ╱49╱I╱ // 0x826 @0x8
0x081e…0857 at0009 = ╱46╱F╱ // 0x827 @0x9
0x081e…0857 at000a = ╱46╱F╱ // 0x828 @0xa
0x081e…0857 at000b = ╱5f╱_╱ // 0x829 @0xb
0x081e…0857 at000c = ╱4b╱K╱ // 0x82a @0xc
0x081e…0857 at000d = ╱54╱T╱ // 0x82b @0xd
0x081e…0857 at000e = ╱4f╱O╱ // 0x82c @0xe
0x081e…0857 at000f = ╱ef╱ $ ╱ // 0x82d @0xf
0x081e…0857 at0010 = ╱ba╱ OF ╱ // 0x82e @0x10
0x081e…0857 at0011 = ╱38╱8╱ // 0x82f @0x11
0x081e…0857 at0012 = ╱f20800╱ // 0x830 @0x12
0x081e…0857 at0015 = ╱ec╱ , ╱ // 0x833 @0x15
0x081e…0857 at0016 = ╱49╱I╱ // 0x834 @0x16
0x081e…0857 at0017 = ╱4e╱N╱ // 0x835 @0x17
0x081e…0857 at0018 = ╱44╱D╱ // 0x836 @0x18
0x081e…0857 at0019 = ╱4d╱M╱ // 0x837 @0x19
0x081e…0857 at001a = ╱4f╱O╱ // 0x838 @0x1a
0x081e…0857 at001b = ╱4d╱M╱ // 0x839 @0x1b
0x081e…0857 at001c = ╱53╱S╱ // 0x83a @0x1c
0x081e…0857 at001d = ╱5f╱_╱ // 0x83b @0x1d
0x081e…0857 at001e = ╱4b╱K╱ // 0x83c @0x1e
0x081e…0857 at001f = ╱54╱T╱ // 0x83d @0x1f
0x081e…0857 at0020 = ╱4f╱O╱ // 0x83e @0x20
0x081e…0857 at0021 = ╱ef╱ $ ╱ // 0x83f @0x21
0x081e…0857 at0022 = ╱ba╱ OF ╱ // 0x840 @0x22
0x081e…0857 at0023 = ╱38╱8╱ // 0x841 @0x23
0x081e…0857 at0024 = ╱f20800╱ // 0x842 @0x24
0x081e…0857 at0027 = ╱ec╱ , ╱ // 0x845 @0x27
0x081e…0857 at0028 = ╱55╱U╱ // 0x846 @0x28
0x081e…0857 at0029 = ╱44╱D╱ // 0x847 @0x29
0x081e…0857 at002a = ╱4d╱M╱ // 0x848 @0x2a
0x081e…0857 at002b = ╱4f╱O╱ // 0x849 @0x2b
0x081e…0857 at002c = ╱4d╱M╱ // 0x84a @0x2c
0x081e…0857 at002d = ╱53╱S╱ // 0x84b @0x2d
0x081e…0857 at002e = ╱5f╱_╱ // 0x84c @0x2e
0x081e…0857 at002f = ╱4b╱K╱ // 0x84d @0x2f
0x081e…0857 at0030 = ╱54╱T╱ // 0x84e @0x30
0x081e…0857 at0031 = ╱4f╱O╱ // 0x84f @0x31
0x081e…0857 at0032 = ╱ef╱ $ ╱ // 0x850 @0x32
0x081e…0857 at0033 = ╱ba╱ OF ╱ // 0x851 @0x33
0x081e…0857 at0034 = ╱38╱8╱ // 0x852 @0x34
0x081e…0857 at0035 = ╱f20800╱ // 0x853 @0x35
0x081e…0857 at0038 = EOL // 0x856 @0x38
0x081e…0857 }
0x0857…0877 9e65 00720 // Variable…til…filen…@@TRANS
0x0857…0877 LineComal80 {
0x0857…0877 ptr = 0x9e65 // 0x857 @0x0
0x0857…0877 lno = 0x02d0 // 0x859 @0x2
0x0857…0877 at0004 = ╱89╱ // ╱ // 0x85b @0x4
0x0857…0877 at0005 = ╱56╱V╱ // 0x85c @0x5
0x0857…0877 at0006 = ╱61╱a╱ // 0x85d @0x6
0x0857…0877 at0007 = ╱72╱r╱ // 0x85e @0x7
0x0857…0877 at0008 = ╱69╱i╱ // 0x85f @0x8
0x0857…0877 at0009 = ╱61╱a╱ // 0x860 @0x9
0x0857…0877 at000a = ╱62╱b╱ // 0x861 @0xa
0x0857…0877 at000b = ╱6c╱l╱ // 0x862 @0xb
0x0857…0877 at000c = ╱65╱e╱ // 0x863 @0xc
0x0857…0877 at000d = ╱20╱…╱ // 0x864 @0xd
0x0857…0877 at000e = ╱74╱t╱ // 0x865 @0xe
0x0857…0877 at000f = ╱69╱i╱ // 0x866 @0xf
0x0857…0877 at0010 = ╱6c╱l╱ // 0x867 @0x10
0x0857…0877 at0011 = ╱20╱…╱ // 0x868 @0x11
0x0857…0877 at0012 = ╱66╱f╱ // 0x869 @0x12
0x0857…0877 at0013 = ╱69╱i╱ // 0x86a @0x13
0x0857…0877 at0014 = ╱6c╱l╱ // 0x86b @0x14
0x0857…0877 at0015 = ╱65╱e╱ // 0x86c @0x15
0x0857…0877 at0016 = ╱6e╱n╱ // 0x86d @0x16
0x0857…0877 at0017 = ╱20╱…╱ // 0x86e @0x17
0x0857…0877 at0018 = ╱40╱@╱ // 0x86f @0x18
0x0857…0877 at0019 = ╱40╱@╱ // 0x870 @0x19
0x0857…0877 at001a = ╱54╱T╱ // 0x871 @0x1a
0x0857…0877 at001b = ╱52╱R╱ // 0x872 @0x1b
0x0857…0877 at001c = ╱41╱A╱ // 0x873 @0x1c
0x0857…0877 at001d = ╱4e╱N╱ // 0x874 @0x1d
0x0857…0877 at001e = ╱53╱S╱ // 0x875 @0x1e
0x0857…0877 at001f = EOL // 0x876 @0x1f
0x0857…0877 }
0x0877…0889 9e77 00730 DIM TRANS $ OF 17
0x0877…0889 LineComal80 {
0x0877…0889 ptr = 0x9e77 // 0x877 @0x0
0x0877…0889 lno = 0x02da // 0x879 @0x2
0x0877…0889 at0004 = ╱87╱ DIM ╱ // 0x87b @0x4
0x0877…0889 at0005 = ╱54╱T╱ // 0x87c @0x5
0x0877…0889 at0006 = ╱52╱R╱ // 0x87d @0x6
0x0877…0889 at0007 = ╱41╱A╱ // 0x87e @0x7
0x0877…0889 at0008 = ╱4e╱N╱ // 0x87f @0x8
0x0877…0889 at0009 = ╱53╱S╱ // 0x880 @0x9
0x0877…0889 at000a = ╱ef╱ $ ╱ // 0x881 @0xa
0x0877…0889 at000b = ╱ba╱ OF ╱ // 0x882 @0xb
0x0877…0889 at000c = ╱31╱1╱ // 0x883 @0xc
0x0877…0889 at000d = ╱37╱7╱ // 0x884 @0xd
0x0877…0889 at000e = ╱f21100╱ // 0x885 @0xe
0x0877…0889 at0011 = EOL // 0x888 @0x11
0x0877…0889 }
0x0889…08a0 9e8e 00740 INTEGER T_H\JREC , T_MAXREC
0x0889…08a0 LineComal80 {
0x0889…08a0 ptr = 0x9e8e // 0x889 @0x0
0x0889…08a0 lno = 0x02e4 // 0x88b @0x2
0x0889…08a0 at0004 = ╱b2╱ INTEGER ╱ // 0x88d @0x4
0x0889…08a0 at0005 = ╱54╱T╱ // 0x88e @0x5
0x0889…08a0 at0006 = ╱5f╱_╱ // 0x88f @0x6
0x0889…08a0 at0007 = ╱48╱H╱ // 0x890 @0x7
0x0889…08a0 at0008 = ╱5c╱\╱ // 0x891 @0x8
0x0889…08a0 at0009 = ╱4a╱J╱ // 0x892 @0x9
0x0889…08a0 at000a = ╱52╱R╱ // 0x893 @0xa
0x0889…08a0 at000b = ╱45╱E╱ // 0x894 @0xb
0x0889…08a0 at000c = ╱43╱C╱ // 0x895 @0xc
0x0889…08a0 at000d = ╱ec╱ , ╱ // 0x896 @0xd
0x0889…08a0 at000e = ╱54╱T╱ // 0x897 @0xe
0x0889…08a0 at000f = ╱5f╱_╱ // 0x898 @0xf
0x0889…08a0 at0010 = ╱4d╱M╱ // 0x899 @0x10
0x0889…08a0 at0011 = ╱41╱A╱ // 0x89a @0x11
0x0889…08a0 at0012 = ╱58╱X╱ // 0x89b @0x12
0x0889…08a0 at0013 = ╱52╱R╱ // 0x89c @0x13
0x0889…08a0 at0014 = ╱45╱E╱ // 0x89d @0x14
0x0889…08a0 at0015 = ╱43╱C╱ // 0x89e @0x15
0x0889…08a0 at0016 = EOL // 0x89f @0x16
0x0889…08a0 }
0x08a0…08d6 9ec4 00750 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
0x08a0…08d6 LineComal80 {
0x08a0…08d6 ptr = 0x9ec4 // 0x8a0 @0x0
0x08a0…08d6 lno = 0x02ee // 0x8a2 @0x2
0x08a0…08d6 at0004 = ╱87╱ DIM ╱ // 0x8a4 @0x4
0x08a0…08d6 at0005 = ╱42╱B╱ // 0x8a5 @0x5
0x08a0…08d6 at0006 = ╱4b╱K╱ // 0x8a6 @0x6
0x08a0…08d6 at0007 = ╱54╱T╱ // 0x8a7 @0x7
0x08a0…08d6 at0008 = ╱4f╱O╱ // 0x8a8 @0x8
0x08a0…08d6 at0009 = ╱4e╱N╱ // 0x8a9 @0x9
0x08a0…08d6 at000a = ╱52╱R╱ // 0x8aa @0xa
0x08a0…08d6 at000b = ╱ef╱ $ ╱ // 0x8ab @0xb
0x08a0…08d6 at000c = ╱ba╱ OF ╱ // 0x8ac @0xc
0x08a0…08d6 at000d = ╱38╱8╱ // 0x8ad @0xd
0x08a0…08d6 at000e = ╱f20800╱ // 0x8ae @0xe
0x08a0…08d6 at0011 = ╱ec╱ , ╱ // 0x8b1 @0x11
0x08a0…08d6 at0012 = ╱42╱B╱ // 0x8b2 @0x12
0x08a0…08d6 at0013 = ╱44╱D╱ // 0x8b3 @0x13
0x08a0…08d6 at0014 = ╱41╱A╱ // 0x8b4 @0x14
0x08a0…08d6 at0015 = ╱54╱T╱ // 0x8b5 @0x15
0x08a0…08d6 at0016 = ╱4f╱O╱ // 0x8b6 @0x16
0x08a0…08d6 at0017 = ╱ef╱ $ ╱ // 0x8b7 @0x17
0x08a0…08d6 at0018 = ╱ba╱ OF ╱ // 0x8b8 @0x18
0x08a0…08d6 at0019 = ╱36╱6╱ // 0x8b9 @0x19
0x08a0…08d6 at001a = ╱f20600╱ // 0x8ba @0x1a
0x08a0…08d6 at001d = ╱ec╱ , ╱ // 0x8bd @0x1d
0x08a0…08d6 at001e = ╱42╱B╱ // 0x8be @0x1e
0x08a0…08d6 at001f = ╱4c╱L╱ // 0x8bf @0x1f
0x08a0…08d6 at0020 = ╱47╱G╱ // 0x8c0 @0x20
0x08a0…08d6 at0021 = ╱4e╱N╱ // 0x8c1 @0x21
0x08a0…08d6 at0022 = ╱52╱R╱ // 0x8c2 @0x22
0x08a0…08d6 at0023 = ╱ef╱ $ ╱ // 0x8c3 @0x23
0x08a0…08d6 at0024 = ╱ba╱ OF ╱ // 0x8c4 @0x24
0x08a0…08d6 at0025 = ╱35╱5╱ // 0x8c5 @0x25
0x08a0…08d6 at0026 = ╱f20500╱ // 0x8c6 @0x26
0x08a0…08d6 at0029 = ╱ec╱ , ╱ // 0x8c9 @0x29
0x08a0…08d6 at002a = ╱42╱B╱ // 0x8ca @0x2a
0x08a0…08d6 at002b = ╱54╱T╱ // 0x8cb @0x2b
0x08a0…08d6 at002c = ╱58╱X╱ // 0x8cc @0x2c
0x08a0…08d6 at002d = ╱54╱T╱ // 0x8cd @0x2d
0x08a0…08d6 at002e = ╱ef╱ $ ╱ // 0x8ce @0x2e
0x08a0…08d6 at002f = ╱ba╱ OF ╱ // 0x8cf @0x2f
0x08a0…08d6 at0030 = ╱32╱2╱ // 0x8d0 @0x30
0x08a0…08d6 at0031 = ╱30╱0╱ // 0x8d1 @0x31
0x08a0…08d6 at0032 = ╱f21400╱ // 0x8d2 @0x32
0x08a0…08d6 at0035 = EOL // 0x8d5 @0x35
0x08a0…08d6 }
0x08d6…08e8 9ed6 00760 REAL BMOMS , BBEL\B
0x08d6…08e8 LineComal80 {
0x08d6…08e8 ptr = 0x9ed6 // 0x8d6 @0x0
0x08d6…08e8 lno = 0x02f8 // 0x8d8 @0x2
0x08d6…08e8 at0004 = ╱b3╱ REAL ╱ // 0x8da @0x4
0x08d6…08e8 at0005 = ╱42╱B╱ // 0x8db @0x5
0x08d6…08e8 at0006 = ╱4d╱M╱ // 0x8dc @0x6
0x08d6…08e8 at0007 = ╱4f╱O╱ // 0x8dd @0x7
0x08d6…08e8 at0008 = ╱4d╱M╱ // 0x8de @0x8
0x08d6…08e8 at0009 = ╱53╱S╱ // 0x8df @0x9
0x08d6…08e8 at000a = ╱ec╱ , ╱ // 0x8e0 @0xa
0x08d6…08e8 at000b = ╱42╱B╱ // 0x8e1 @0xb
0x08d6…08e8 at000c = ╱42╱B╱ // 0x8e2 @0xc
0x08d6…08e8 at000d = ╱45╱E╱ // 0x8e3 @0xd
0x08d6…08e8 at000e = ╱4c╱L╱ // 0x8e4 @0xe
0x08d6…08e8 at000f = ╱5c╱\╱ // 0x8e5 @0xf
0x08d6…08e8 at0010 = ╱42╱B╱ // 0x8e6 @0x10
0x08d6…08e8 at0011 = EOL // 0x8e7 @0x11
0x08d6…08e8 }
0x08e8…08f7 9ee5 00770 INTEGER DK , NTRANS
0x08e8…08f7 LineComal80 {
0x08e8…08f7 ptr = 0x9ee5 // 0x8e8 @0x0
0x08e8…08f7 lno = 0x0302 // 0x8ea @0x2
0x08e8…08f7 at0004 = ╱b2╱ INTEGER ╱ // 0x8ec @0x4
0x08e8…08f7 at0005 = ╱44╱D╱ // 0x8ed @0x5
0x08e8…08f7 at0006 = ╱4b╱K╱ // 0x8ee @0x6
0x08e8…08f7 at0007 = ╱ec╱ , ╱ // 0x8ef @0x7
0x08e8…08f7 at0008 = ╱4e╱N╱ // 0x8f0 @0x8
0x08e8…08f7 at0009 = ╱54╱T╱ // 0x8f1 @0x9
0x08e8…08f7 at000a = ╱52╱R╱ // 0x8f2 @0xa
0x08e8…08f7 at000b = ╱41╱A╱ // 0x8f3 @0xb
0x08e8…08f7 at000c = ╱4e╱N╱ // 0x8f4 @0xc
0x08e8…08f7 at000d = ╱53╱S╱ // 0x8f5 @0xd
0x08e8…08f7 at000e = EOL // 0x8f6 @0xe
0x08e8…08f7 }
0x08f7…0908 9ef6 00780 ENDPROC DIMENSIONER
0x08f7…0908 LineComal80 {
0x08f7…0908 ptr = 0x9ef6 // 0x8f7 @0x0
0x08f7…0908 lno = 0x030c // 0x8f9 @0x2
0x08f7…0908 at0004 = ╱9f╱ ENDPROC ╱ // 0x8fb @0x4
0x08f7…0908 at0005 = ╱44╱D╱ // 0x8fc @0x5
0x08f7…0908 at0006 = ╱49╱I╱ // 0x8fd @0x6
0x08f7…0908 at0007 = ╱4d╱M╱ // 0x8fe @0x7
0x08f7…0908 at0008 = ╱45╱E╱ // 0x8ff @0x8
0x08f7…0908 at0009 = ╱4e╱N╱ // 0x900 @0x9
0x08f7…0908 at000a = ╱53╱S╱ // 0x901 @0xa
0x08f7…0908 at000b = ╱49╱I╱ // 0x902 @0xb
0x08f7…0908 at000c = ╱4f╱O╱ // 0x903 @0xc
0x08f7…0908 at000d = ╱4e╱N╱ // 0x904 @0xd
0x08f7…0908 at000e = ╱45╱E╱ // 0x905 @0xe
0x08f7…0908 at000f = ╱52╱R╱ // 0x906 @0xf
0x08f7…0908 at0010 = EOL // 0x907 @0x10
0x08f7…0908 }
0x0908…090d 9efb 00790
0x0908…090d LineComal80 {
0x0908…090d ptr = 0x9efb // 0x908 @0x0
0x0908…090d lno = 0x0316 // 0x90a @0x2
0x0908…090d at0004 = EOL // 0x90c @0x4
0x0908…090d }
0x090d…091b 9f09 00800 PROC INITIER
0x090d…091b LineComal80 {
0x090d…091b ptr = 0x9f09 // 0x90d @0x0
0x090d…091b lno = 0x0320 // 0x90f @0x2
0x090d…091b at0004 = ╱9e00╱ PROC ╱ // 0x911 @0x4
0x090d…091b at0006 = ╱49╱I╱ // 0x913 @0x6
0x090d…091b at0007 = ╱4e╱N╱ // 0x914 @0x7
0x090d…091b at0008 = ╱49╱I╱ // 0x915 @0x8
0x090d…091b at0009 = ╱54╱T╱ // 0x916 @0x9
0x090d…091b at000a = ╱49╱I╱ // 0x917 @0xa
0x090d…091b at000b = ╱45╱E╱ // 0x918 @0xb
0x090d…091b at000c = ╱52╱R╱ // 0x919 @0xc
0x090d…091b at000d = EOL // 0x91a @0xd
0x090d…091b }
0x091b…092d 9f1b 00810 LET PRGFL $ := "DP2"
0x091b…092d LineComal80 {
0x091b…092d ptr = 0x9f1b // 0x91b @0x0
0x091b…092d lno = 0x032a // 0x91d @0x2
0x091b…092d at0004 = ╱86╱ LET ╱ // 0x91f @0x4
0x091b…092d at0005 = ╱50╱P╱ // 0x920 @0x5
0x091b…092d at0006 = ╱52╱R╱ // 0x921 @0x6
0x091b…092d at0007 = ╱47╱G╱ // 0x922 @0x7
0x091b…092d at0008 = ╱46╱F╱ // 0x923 @0x8
0x091b…092d at0009 = ╱4c╱L╱ // 0x924 @0x9
0x091b…092d at000a = ╱ef╱ $ ╱ // 0x925 @0xa
0x091b…092d at000b = ╱f0╱ := ╱ // 0x926 @0xb
0x091b…092d at000c = ╱22╱"╱ // 0x927 @0xc
0x091b…092d at000d = ╱44╱D╱ // 0x928 @0xd
0x091b…092d at000e = ╱50╱P╱ // 0x929 @0xe
0x091b…092d at000f = ╱32╱2╱ // 0x92a @0xf
0x091b…092d at0010 = ╱22╱"╱ // 0x92b @0x10
0x091b…092d at0011 = EOL // 0x92c @0x11
0x091b…092d }
0x092d…094b 9f39 00820 LET PROGRAM $ := PRGFL $ + ":SYSKR"
0x092d…094b LineComal80 {
0x092d…094b ptr = 0x9f39 // 0x92d @0x0
0x092d…094b lno = 0x0334 // 0x92f @0x2
0x092d…094b at0004 = ╱86╱ LET ╱ // 0x931 @0x4
0x092d…094b at0005 = ╱50╱P╱ // 0x932 @0x5
0x092d…094b at0006 = ╱52╱R╱ // 0x933 @0x6
0x092d…094b at0007 = ╱4f╱O╱ // 0x934 @0x7
0x092d…094b at0008 = ╱47╱G╱ // 0x935 @0x8
0x092d…094b at0009 = ╱52╱R╱ // 0x936 @0x9
0x092d…094b at000a = ╱41╱A╱ // 0x937 @0xa
0x092d…094b at000b = ╱4d╱M╱ // 0x938 @0xb
0x092d…094b at000c = ╱ef╱ $ ╱ // 0x939 @0xc
0x092d…094b at000d = ╱f0╱ := ╱ // 0x93a @0xd
0x092d…094b at000e = ╱50╱P╱ // 0x93b @0xe
0x092d…094b at000f = ╱52╱R╱ // 0x93c @0xf
0x092d…094b at0010 = ╱47╱G╱ // 0x93d @0x10
0x092d…094b at0011 = ╱46╱F╱ // 0x93e @0x11
0x092d…094b at0012 = ╱4c╱L╱ // 0x93f @0x12
0x092d…094b at0013 = ╱ef╱ $ ╱ // 0x940 @0x13
0x092d…094b at0014 = ╱eb╱ + ╱ // 0x941 @0x14
0x092d…094b at0015 = ╱22╱"╱ // 0x942 @0x15
0x092d…094b at0016 = ╱3a╱:╱ // 0x943 @0x16
0x092d…094b at0017 = ╱53╱S╱ // 0x944 @0x17
0x092d…094b at0018 = ╱59╱Y╱ // 0x945 @0x18
0x092d…094b at0019 = ╱53╱S╱ // 0x946 @0x19
0x092d…094b at001a = ╱4b╱K╱ // 0x947 @0x1a
0x092d…094b at001b = ╱52╱R╱ // 0x948 @0x1b
0x092d…094b at001c = ╱22╱"╱ // 0x949 @0x1c
0x092d…094b at001d = EOL // 0x94a @0x1d
0x092d…094b }
0x094b…096c 9f5a 00830 LET TAL $ := "0123456789" ; NULR := 0
0x094b…096c LineComal80 {
0x094b…096c ptr = 0x9f5a // 0x94b @0x0
0x094b…096c lno = 0x033e // 0x94d @0x2
0x094b…096c at0004 = ╱86╱ LET ╱ // 0x94f @0x4
0x094b…096c at0005 = ╱54╱T╱ // 0x950 @0x5
0x094b…096c at0006 = ╱41╱A╱ // 0x951 @0x6
0x094b…096c at0007 = ╱4c╱L╱ // 0x952 @0x7
0x094b…096c at0008 = ╱ef╱ $ ╱ // 0x953 @0x8
0x094b…096c at0009 = ╱f0╱ := ╱ // 0x954 @0x9
0x094b…096c at000a = ╱22╱"╱ // 0x955 @0xa
0x094b…096c at000b = ╱30╱0╱ // 0x956 @0xb
0x094b…096c at000c = ╱31╱1╱ // 0x957 @0xc
0x094b…096c at000d = ╱32╱2╱ // 0x958 @0xd
0x094b…096c at000e = ╱33╱3╱ // 0x959 @0xe
0x094b…096c at000f = ╱34╱4╱ // 0x95a @0xf
0x094b…096c at0010 = ╱35╱5╱ // 0x95b @0x10
0x094b…096c at0011 = ╱36╱6╱ // 0x95c @0x11
0x094b…096c at0012 = ╱37╱7╱ // 0x95d @0x12
0x094b…096c at0013 = ╱38╱8╱ // 0x95e @0x13
0x094b…096c at0014 = ╱39╱9╱ // 0x95f @0x14
0x094b…096c at0015 = ╱22╱"╱ // 0x960 @0x15
0x094b…096c at0016 = ╱ea╱ ; ╱ // 0x961 @0x16
0x094b…096c at0017 = ╱4e╱N╱ // 0x962 @0x17
0x094b…096c at0018 = ╱55╱U╱ // 0x963 @0x18
0x094b…096c at0019 = ╱4c╱L╱ // 0x964 @0x19
0x094b…096c at001a = ╱52╱R╱ // 0x965 @0x1a
0x094b…096c at001b = ╱f0╱ := ╱ // 0x966 @0x1b
0x094b…096c at001c = ╱30╱0╱ // 0x967 @0x1c
0x094b…096c at001d = ╱f20000╱ // 0x968 @0x1d
0x094b…096c at0020 = EOL // 0x96b @0x20
0x094b…096c }
0x096c…0994 9f82 00840 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
0x096c…0994 LineComal80 {
0x096c…0994 ptr = 0x9f82 // 0x96c @0x0
0x096c…0994 lno = 0x0348 // 0x96e @0x2
0x096c…0994 at0004 = ╱b400╱ FOR ╱ // 0x970 @0x4
0x096c…0994 at0006 = ╱49╱I╱ // 0x972 @0x6
0x096c…0994 at0007 = ╱f0╱ := ╱ // 0x973 @0x7
0x096c…0994 at0008 = ╱cc╱ // 0x974 @0x8
0x096c…0994 at0009 = ╱ed╱ ( ╱ // 0x975 @0x9
0x096c…0994 at000a = ╱22╱"╱ // 0x976 @0xa
0x096c…0994 at000b = ╱41╱A╱ // 0x977 @0xb
0x096c…0994 at000c = ╱22╱"╱ // 0x978 @0xc
0x096c…0994 at000d = ╱ee╱ ) ╱ // 0x979 @0xd
0x096c…0994 at000e = ╱b7cc╱ TO ╱ // 0x97a @0xe
0x096c…0994 at0010 = ╱ed╱ ( ╱ // 0x97c @0x10
0x096c…0994 at0011 = ╱22╱"╱ // 0x97d @0x11
0x096c…0994 at0012 = ╱5d╱]╱ // 0x97e @0x12
0x096c…0994 at0013 = ╱22╱"╱ // 0x97f @0x13
0x096c…0994 at0014 = ╱ee╱ ) ╱ // 0x980 @0x14
0x096c…0994 at0015 = ╱bb╱ DO ╱ // 0x981 @0x15
0x096c…0994 at0016 = ╱86╱ LET ╱ // 0x982 @0x16
0x096c…0994 at0017 = ╱41╱A╱ // 0x983 @0x17
0x096c…0994 at0018 = ╱4c╱L╱ // 0x984 @0x18
0x096c…0994 at0019 = ╱46╱F╱ // 0x985 @0x19
0x096c…0994 at001a = ╱41╱A╱ // 0x986 @0x1a
0x096c…0994 at001b = ╱ef╱ $ ╱ // 0x987 @0x1b
0x096c…0994 at001c = ╱f0╱ := ╱ // 0x988 @0x1c
0x096c…0994 at001d = ╱41╱A╱ // 0x989 @0x1d
0x096c…0994 at001e = ╱4c╱L╱ // 0x98a @0x1e
0x096c…0994 at001f = ╱46╱F╱ // 0x98b @0x1f
0x096c…0994 at0020 = ╱41╱A╱ // 0x98c @0x20
0x096c…0994 at0021 = ╱ef╱ $ ╱ // 0x98d @0x21
0x096c…0994 at0022 = ╱eb╱ + ╱ // 0x98e @0x22
0x096c…0994 at0023 = ╱d0╱ CHR$ ╱ // 0x98f @0x23
0x096c…0994 at0024 = ╱ed╱ ( ╱ // 0x990 @0x24
0x096c…0994 at0025 = ╱49╱I╱ // 0x991 @0x25
0x096c…0994 at0026 = ╱ee╱ ) ╱ // 0x992 @0x26
0x096c…0994 at0027 = EOL // 0x993 @0x27
0x096c…0994 }
0x0994…09ce 9fbc 00850 LET SPC $ := "………………………………………………………………………………………………………………………"
0x0994…09ce LineComal80 {
0x0994…09ce ptr = 0x9fbc // 0x994 @0x0
0x0994…09ce lno = 0x0352 // 0x996 @0x2
0x0994…09ce at0004 = ╱86╱ LET ╱ // 0x998 @0x4
0x0994…09ce at0005 = ╱53╱S╱ // 0x999 @0x5
0x0994…09ce at0006 = ╱50╱P╱ // 0x99a @0x6
0x0994…09ce at0007 = ╱43╱C╱ // 0x99b @0x7
0x0994…09ce at0008 = ╱ef╱ $ ╱ // 0x99c @0x8
0x0994…09ce at0009 = ╱f0╱ := ╱ // 0x99d @0x9
0x0994…09ce at000a = ╱22╱"╱ // 0x99e @0xa
0x0994…09ce at000b = ╱20╱…╱ // 0x99f @0xb
0x0994…09ce at000c = ╱20╱…╱ // 0x9a0 @0xc
0x0994…09ce at000d = ╱20╱…╱ // 0x9a1 @0xd
0x0994…09ce at000e = ╱20╱…╱ // 0x9a2 @0xe
0x0994…09ce at000f = ╱20╱…╱ // 0x9a3 @0xf
0x0994…09ce at0010 = ╱20╱…╱ // 0x9a4 @0x10
0x0994…09ce at0011 = ╱20╱…╱ // 0x9a5 @0x11
0x0994…09ce at0012 = ╱20╱…╱ // 0x9a6 @0x12
0x0994…09ce at0013 = ╱20╱…╱ // 0x9a7 @0x13
0x0994…09ce at0014 = ╱20╱…╱ // 0x9a8 @0x14
0x0994…09ce at0015 = ╱20╱…╱ // 0x9a9 @0x15
0x0994…09ce at0016 = ╱20╱…╱ // 0x9aa @0x16
0x0994…09ce at0017 = ╱20╱…╱ // 0x9ab @0x17
0x0994…09ce at0018 = ╱20╱…╱ // 0x9ac @0x18
0x0994…09ce at0019 = ╱20╱…╱ // 0x9ad @0x19
0x0994…09ce at001a = ╱20╱…╱ // 0x9ae @0x1a
0x0994…09ce at001b = ╱20╱…╱ // 0x9af @0x1b
0x0994…09ce at001c = ╱20╱…╱ // 0x9b0 @0x1c
0x0994…09ce at001d = ╱20╱…╱ // 0x9b1 @0x1d
0x0994…09ce at001e = ╱20╱…╱ // 0x9b2 @0x1e
0x0994…09ce at001f = ╱20╱…╱ // 0x9b3 @0x1f
0x0994…09ce at0020 = ╱20╱…╱ // 0x9b4 @0x20
0x0994…09ce at0021 = ╱20╱…╱ // 0x9b5 @0x21
0x0994…09ce at0022 = ╱20╱…╱ // 0x9b6 @0x22
0x0994…09ce at0023 = ╱20╱…╱ // 0x9b7 @0x23
0x0994…09ce at0024 = ╱20╱…╱ // 0x9b8 @0x24
0x0994…09ce at0025 = ╱20╱…╱ // 0x9b9 @0x25
0x0994…09ce at0026 = ╱20╱…╱ // 0x9ba @0x26
0x0994…09ce at0027 = ╱20╱…╱ // 0x9bb @0x27
0x0994…09ce at0028 = ╱20╱…╱ // 0x9bc @0x28
0x0994…09ce at0029 = ╱20╱…╱ // 0x9bd @0x29
0x0994…09ce at002a = ╱20╱…╱ // 0x9be @0x2a
0x0994…09ce at002b = ╱20╱…╱ // 0x9bf @0x2b
0x0994…09ce at002c = ╱20╱…╱ // 0x9c0 @0x2c
0x0994…09ce at002d = ╱20╱…╱ // 0x9c1 @0x2d
0x0994…09ce at002e = ╱20╱…╱ // 0x9c2 @0x2e
0x0994…09ce at002f = ╱20╱…╱ // 0x9c3 @0x2f
0x0994…09ce at0030 = ╱20╱…╱ // 0x9c4 @0x30
0x0994…09ce at0031 = ╱20╱…╱ // 0x9c5 @0x31
0x0994…09ce at0032 = ╱20╱…╱ // 0x9c6 @0x32
0x0994…09ce at0033 = ╱20╱…╱ // 0x9c7 @0x33
0x0994…09ce at0034 = ╱20╱…╱ // 0x9c8 @0x34
0x0994…09ce at0035 = ╱20╱…╱ // 0x9c9 @0x35
0x0994…09ce at0036 = ╱20╱…╱ // 0x9ca @0x36
0x0994…09ce at0037 = ╱20╱…╱ // 0x9cb @0x37
0x0994…09ce at0038 = ╱22╱"╱ // 0x9cc @0x38
0x0994…09ce at0039 = EOL // 0x9cd @0x39
0x0994…09ce }
0x09ce…09e2 9fd0 00860 LET SPC $ := SPC $ + SPC $
0x09ce…09e2 LineComal80 {
0x09ce…09e2 ptr = 0x9fd0 // 0x9ce @0x0
0x09ce…09e2 lno = 0x035c // 0x9d0 @0x2
0x09ce…09e2 at0004 = ╱86╱ LET ╱ // 0x9d2 @0x4
0x09ce…09e2 at0005 = ╱53╱S╱ // 0x9d3 @0x5
0x09ce…09e2 at0006 = ╱50╱P╱ // 0x9d4 @0x6
0x09ce…09e2 at0007 = ╱43╱C╱ // 0x9d5 @0x7
0x09ce…09e2 at0008 = ╱ef╱ $ ╱ // 0x9d6 @0x8
0x09ce…09e2 at0009 = ╱f0╱ := ╱ // 0x9d7 @0x9
0x09ce…09e2 at000a = ╱53╱S╱ // 0x9d8 @0xa
0x09ce…09e2 at000b = ╱50╱P╱ // 0x9d9 @0xb
0x09ce…09e2 at000c = ╱43╱C╱ // 0x9da @0xc
0x09ce…09e2 at000d = ╱ef╱ $ ╱ // 0x9db @0xd
0x09ce…09e2 at000e = ╱eb╱ + ╱ // 0x9dc @0xe
0x09ce…09e2 at000f = ╱53╱S╱ // 0x9dd @0xf
0x09ce…09e2 at0010 = ╱50╱P╱ // 0x9de @0x10
0x09ce…09e2 at0011 = ╱43╱C╱ // 0x9df @0x11
0x09ce…09e2 at0012 = ╱ef╱ $ ╱ // 0x9e0 @0x12
0x09ce…09e2 at0013 = EOL // 0x9e1 @0x13
0x09ce…09e2 }
0x09e2…0a0d 9ffb 00870 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x09e2…0a0d LineComal80 {
0x09e2…0a0d ptr = 0x9ffb // 0x9e2 @0x0
0x09e2…0a0d lno = 0x0366 // 0x9e4 @0x2
0x09e2…0a0d at0004 = ╱86╱ LET ╱ // 0x9e6 @0x4
0x09e2…0a0d at0005 = ╱46╱F╱ // 0x9e7 @0x5
0x09e2…0a0d at0006 = ╱41╱A╱ // 0x9e8 @0x6
0x09e2…0a0d at0007 = ╱4c╱L╱ // 0x9e9 @0x7
0x09e2…0a0d at0008 = ╱53╱S╱ // 0x9ea @0x8
0x09e2…0a0d at0009 = ╱45╱E╱ // 0x9eb @0x9
0x09e2…0a0d at000a = ╱f0╱ := ╱ // 0x9ec @0xa
0x09e2…0a0d at000b = ╱30╱0╱ // 0x9ed @0xb
0x09e2…0a0d at000c = ╱f20000╱ // 0x9ee @0xc
0x09e2…0a0d at000f = ╱ea╱ ; ╱ // 0x9f1 @0xf
0x09e2…0a0d at0010 = ╱54╱T╱ // 0x9f2 @0x10
0x09e2…0a0d at0011 = ╱52╱R╱ // 0x9f3 @0x11
0x09e2…0a0d at0012 = ╱55╱U╱ // 0x9f4 @0x12
0x09e2…0a0d at0013 = ╱45╱E╱ // 0x9f5 @0x13
0x09e2…0a0d at0014 = ╱f0╱ := ╱ // 0x9f6 @0x14
0x09e2…0a0d at0015 = ╱31╱1╱ // 0x9f7 @0x15
0x09e2…0a0d at0016 = ╱f20100╱ // 0x9f8 @0x16
0x09e2…0a0d at0019 = ╱89╱ // ╱ // 0x9fb @0x19
0x09e2…0a0d at001a = ╱62╱b╱ // 0x9fc @0x1a
0x09e2…0a0d at001b = ╱6f╱o╱ // 0x9fd @0x1b
0x09e2…0a0d at001c = ╱6f╱o╱ // 0x9fe @0x1c
0x09e2…0a0d at001d = ╱6c╱l╱ // 0x9ff @0x1d
0x09e2…0a0d at001e = ╱73╱s╱ // 0xa00 @0x1e
0x09e2…0a0d at001f = ╱6b╱k╱ // 0xa01 @0x1f
0x09e2…0a0d at0020 = ╱65╱e╱ // 0xa02 @0x20
0x09e2…0a0d at0021 = ╱20╱…╱ // 0xa03 @0x21
0x09e2…0a0d at0022 = ╱76╱v╱ // 0xa04 @0x22
0x09e2…0a0d at0023 = ╱61╱a╱ // 0xa05 @0x23
0x09e2…0a0d at0024 = ╱72╱r╱ // 0xa06 @0x24
0x09e2…0a0d at0025 = ╱69╱i╱ // 0xa07 @0x25
0x09e2…0a0d at0026 = ╱61╱a╱ // 0xa08 @0x26
0x09e2…0a0d at0027 = ╱62╱b╱ // 0xa09 @0x27
0x09e2…0a0d at0028 = ╱6c╱l╱ // 0xa0a @0x28
0x09e2…0a0d at0029 = ╱65╱e╱ // 0xa0b @0x29
0x09e2…0a0d at002a = EOL // 0xa0c @0x2a
0x09e2…0a0d }
0x0a0d…0a2a a018 00880 LET KREDIT := - 1 ; DEBET := 1
0x0a0d…0a2a LineComal80 {
0x0a0d…0a2a ptr = 0xa018 // 0xa0d @0x0
0x0a0d…0a2a lno = 0x0370 // 0xa0f @0x2
0x0a0d…0a2a at0004 = ╱86╱ LET ╱ // 0xa11 @0x4
0x0a0d…0a2a at0005 = ╱4b╱K╱ // 0xa12 @0x5
0x0a0d…0a2a at0006 = ╱52╱R╱ // 0xa13 @0x6
0x0a0d…0a2a at0007 = ╱45╱E╱ // 0xa14 @0x7
0x0a0d…0a2a at0008 = ╱44╱D╱ // 0xa15 @0x8
0x0a0d…0a2a at0009 = ╱49╱I╱ // 0xa16 @0x9
0x0a0d…0a2a at000a = ╱54╱T╱ // 0xa17 @0xa
0x0a0d…0a2a at000b = ╱f0╱ := ╱ // 0xa18 @0xb
0x0a0d…0a2a at000c = ╱de╱ - ╱ // 0xa19 @0xc
0x0a0d…0a2a at000d = ╱31╱1╱ // 0xa1a @0xd
0x0a0d…0a2a at000e = ╱f20100╱ // 0xa1b @0xe
0x0a0d…0a2a at0011 = ╱ea╱ ; ╱ // 0xa1e @0x11
0x0a0d…0a2a at0012 = ╱44╱D╱ // 0xa1f @0x12
0x0a0d…0a2a at0013 = ╱45╱E╱ // 0xa20 @0x13
0x0a0d…0a2a at0014 = ╱42╱B╱ // 0xa21 @0x14
0x0a0d…0a2a at0015 = ╱45╱E╱ // 0xa22 @0x15
0x0a0d…0a2a at0016 = ╱54╱T╱ // 0xa23 @0x16
0x0a0d…0a2a at0017 = ╱f0╱ := ╱ // 0xa24 @0x17
0x0a0d…0a2a at0018 = ╱31╱1╱ // 0xa25 @0x18
0x0a0d…0a2a at0019 = ╱f20100╱ // 0xa26 @0x19
0x0a0d…0a2a at001c = EOL // 0xa29 @0x1c
0x0a0d…0a2a }
0x0a2a…0a4a a038 00890 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x0a2a…0a4a LineComal80 {
0x0a2a…0a4a ptr = 0xa038 // 0xa2a @0x0
0x0a2a…0a4a lno = 0x037a // 0xa2c @0x2
0x0a2a…0a4a at0004 = ╱86╱ LET ╱ // 0xa2e @0x4
0x0a2a…0a4a at0005 = ╱53╱S╱ // 0xa2f @0x5
0x0a2a…0a4a at0006 = ╱59╱Y╱ // 0xa30 @0x6
0x0a2a…0a4a at0007 = ╱53╱S╱ // 0xa31 @0x7
0x0a2a…0a4a at0008 = ╱50╱P╱ // 0xa32 @0x8
0x0a2a…0a4a at0009 = ╱41╱A╱ // 0xa33 @0x9
0x0a2a…0a4a at000a = ╱52╱R╱ // 0xa34 @0xa
0x0a2a…0a4a at000b = ╱41╱A╱ // 0xa35 @0xb
0x0a2a…0a4a at000c = ╱ef╱ $ ╱ // 0xa36 @0xc
0x0a2a…0a4a at000d = ╱f0╱ := ╱ // 0xa37 @0xd
0x0a2a…0a4a at000e = ╱50╱P╱ // 0xa38 @0xe
0x0a2a…0a4a at000f = ╱52╱R╱ // 0xa39 @0xf
0x0a2a…0a4a at0010 = ╱47╱G╱ // 0xa3a @0x10
0x0a2a…0a4a at0011 = ╱46╱F╱ // 0xa3b @0x11
0x0a2a…0a4a at0012 = ╱4c╱L╱ // 0xa3c @0x12
0x0a2a…0a4a at0013 = ╱ef╱ $ ╱ // 0xa3d @0x13
0x0a2a…0a4a at0014 = ╱eb╱ + ╱ // 0xa3e @0x14
0x0a2a…0a4a at0015 = ╱22╱"╱ // 0xa3f @0x15
0x0a2a…0a4a at0016 = ╱3a╱:╱ // 0xa40 @0x16
0x0a2a…0a4a at0017 = ╱53╱S╱ // 0xa41 @0x17
0x0a2a…0a4a at0018 = ╱59╱Y╱ // 0xa42 @0x18
0x0a2a…0a4a at0019 = ╱53╱S╱ // 0xa43 @0x19
0x0a2a…0a4a at001a = ╱50╱P╱ // 0xa44 @0x1a
0x0a2a…0a4a at001b = ╱41╱A╱ // 0xa45 @0x1b
0x0a2a…0a4a at001c = ╱52╱R╱ // 0xa46 @0x1c
0x0a2a…0a4a at001d = ╱41╱A╱ // 0xa47 @0x1d
0x0a2a…0a4a at001e = ╱22╱"╱ // 0xa48 @0x1e
0x0a2a…0a4a at001f = EOL // 0xa49 @0x1f
0x0a2a…0a4a }
0x0a4a…0a65 a053 00900 EXEC OPENFIL ( SYSPARA $ , "R" )
0x0a4a…0a65 LineComal80 {
0x0a4a…0a65 ptr = 0xa053 // 0xa4a @0x0
0x0a4a…0a65 lno = 0x0384 // 0xa4c @0x2
0x0a4a…0a65 at0004 = ╱9d╱ EXEC ╱ // 0xa4e @0x4
0x0a4a…0a65 at0005 = ╱4f╱O╱ // 0xa4f @0x5
0x0a4a…0a65 at0006 = ╱50╱P╱ // 0xa50 @0x6
0x0a4a…0a65 at0007 = ╱45╱E╱ // 0xa51 @0x7
0x0a4a…0a65 at0008 = ╱4e╱N╱ // 0xa52 @0x8
0x0a4a…0a65 at0009 = ╱46╱F╱ // 0xa53 @0x9
0x0a4a…0a65 at000a = ╱49╱I╱ // 0xa54 @0xa
0x0a4a…0a65 at000b = ╱4c╱L╱ // 0xa55 @0xb
0x0a4a…0a65 at000c = ╱ed╱ ( ╱ // 0xa56 @0xc
0x0a4a…0a65 at000d = ╱53╱S╱ // 0xa57 @0xd
0x0a4a…0a65 at000e = ╱59╱Y╱ // 0xa58 @0xe
0x0a4a…0a65 at000f = ╱53╱S╱ // 0xa59 @0xf
0x0a4a…0a65 at0010 = ╱50╱P╱ // 0xa5a @0x10
0x0a4a…0a65 at0011 = ╱41╱A╱ // 0xa5b @0x11
0x0a4a…0a65 at0012 = ╱52╱R╱ // 0xa5c @0x12
0x0a4a…0a65 at0013 = ╱41╱A╱ // 0xa5d @0x13
0x0a4a…0a65 at0014 = ╱ef╱ $ ╱ // 0xa5e @0x14
0x0a4a…0a65 at0015 = ╱ec╱ , ╱ // 0xa5f @0x15
0x0a4a…0a65 at0016 = ╱22╱"╱ // 0xa60 @0x16
0x0a4a…0a65 at0017 = ╱52╱R╱ // 0xa61 @0x17
0x0a4a…0a65 at0018 = ╱22╱"╱ // 0xa62 @0x18
0x0a4a…0a65 at0019 = ╱ee╱ ) ╱ // 0xa63 @0x19
0x0a4a…0a65 at001a = EOL // 0xa64 @0x1a
0x0a4a…0a65 }
0x0a65…0a8b a079 00910 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x0a65…0a8b LineComal80 {
0x0a65…0a8b ptr = 0xa079 // 0xa65 @0x0
0x0a65…0a8b lno = 0x038e // 0xa67 @0x2
0x0a65…0a8b at0004 = ╱a9╱ GET ╱ // 0xa69 @0x4
0x0a65…0a8b at0005 = ╱53╱S╱ // 0xa6a @0x5
0x0a65…0a8b at0006 = ╱59╱Y╱ // 0xa6b @0x6
0x0a65…0a8b at0007 = ╱53╱S╱ // 0xa6c @0x7
0x0a65…0a8b at0008 = ╱50╱P╱ // 0xa6d @0x8
0x0a65…0a8b at0009 = ╱41╱A╱ // 0xa6e @0x9
0x0a65…0a8b at000a = ╱52╱R╱ // 0xa6f @0xa
0x0a65…0a8b at000b = ╱41╱A╱ // 0xa70 @0xb
0x0a65…0a8b at000c = ╱ef╱ $ ╱ // 0xa71 @0xc
0x0a65…0a8b at000d = ╱ec╱ , ╱ // 0xa72 @0xd
0x0a65…0a8b at000e = ╱31╱1╱ // 0xa73 @0xe
0x0a65…0a8b at000f = ╱f20100╱ // 0xa74 @0xf
0x0a65…0a8b at0012 = ╱f1╱ : ╱ // 0xa77 @0x12
0x0a65…0a8b at0013 = ╱53╱S╱ // 0xa78 @0x13
0x0a65…0a8b at0014 = ╱59╱Y╱ // 0xa79 @0x14
0x0a65…0a8b at0015 = ╱53╱S╱ // 0xa7a @0x15
0x0a65…0a8b at0016 = ╱54╱T╱ // 0xa7b @0x16
0x0a65…0a8b at0017 = ╱5f╱_╱ // 0xa7c @0x17
0x0a65…0a8b at0018 = ╱4e╱N╱ // 0xa7d @0x18
0x0a65…0a8b at0019 = ╱41╱A╱ // 0xa7e @0x19
0x0a65…0a8b at001a = ╱56╱V╱ // 0xa7f @0x1a
0x0a65…0a8b at001b = ╱4e╱N╱ // 0xa80 @0x1b
0x0a65…0a8b at001c = ╱ef╱ $ ╱ // 0xa81 @0x1c
0x0a65…0a8b at001d = ╱ec╱ , ╱ // 0xa82 @0x1d
0x0a65…0a8b at001e = ╱53╱S╱ // 0xa83 @0x1e
0x0a65…0a8b at001f = ╱5f╱_╱ // 0xa84 @0x1f
0x0a65…0a8b at0020 = ╱4b╱K╱ // 0xa85 @0x20
0x0a65…0a8b at0021 = ╱4f╱O╱ // 0xa86 @0x21
0x0a65…0a8b at0022 = ╱44╱D╱ // 0xa87 @0x22
0x0a65…0a8b at0023 = ╱45╱E╱ // 0xa88 @0x23
0x0a65…0a8b at0024 = ╱ef╱ $ ╱ // 0xa89 @0x24
0x0a65…0a8b at0025 = EOL // 0xa8a @0x25
0x0a65…0a8b }
0x0a8b…0a9d a08b 00920 EXEC TERMINAL_IDX
0x0a8b…0a9d LineComal80 {
0x0a8b…0a9d ptr = 0xa08b // 0xa8b @0x0
0x0a8b…0a9d lno = 0x0398 // 0xa8d @0x2
0x0a8b…0a9d at0004 = ╱9d╱ EXEC ╱ // 0xa8f @0x4
0x0a8b…0a9d at0005 = ╱54╱T╱ // 0xa90 @0x5
0x0a8b…0a9d at0006 = ╱45╱E╱ // 0xa91 @0x6
0x0a8b…0a9d at0007 = ╱52╱R╱ // 0xa92 @0x7
0x0a8b…0a9d at0008 = ╱4d╱M╱ // 0xa93 @0x8
0x0a8b…0a9d at0009 = ╱49╱I╱ // 0xa94 @0x9
0x0a8b…0a9d at000a = ╱4e╱N╱ // 0xa95 @0xa
0x0a8b…0a9d at000b = ╱41╱A╱ // 0xa96 @0xb
0x0a8b…0a9d at000c = ╱4c╱L╱ // 0xa97 @0xc
0x0a8b…0a9d at000d = ╱5f╱_╱ // 0xa98 @0xd
0x0a8b…0a9d at000e = ╱49╱I╱ // 0xa99 @0xe
0x0a8b…0a9d at000f = ╱44╱D╱ // 0xa9a @0xf
0x0a8b…0a9d at0010 = ╱58╱X╱ // 0xa9b @0x10
0x0a8b…0a9d at0011 = EOL // 0xa9c @0x11
0x0a8b…0a9d }
0x0a9d…0aab d972 00930 CLOSE SYSPARA $
0x0a9d…0aab LineComal80 {
0x0a9d…0aab ptr = 0xd972 // 0xa9d @0x0
0x0a9d…0aab lno = 0x03a2 // 0xa9f @0x2
0x0a9d…0aab at0004 = ╱a8╱ CLOSE ╱ // 0xaa1 @0x4
0x0a9d…0aab at0005 = ╱53╱S╱ // 0xaa2 @0x5
0x0a9d…0aab at0006 = ╱59╱Y╱ // 0xaa3 @0x6
0x0a9d…0aab at0007 = ╱53╱S╱ // 0xaa4 @0x7
0x0a9d…0aab at0008 = ╱50╱P╱ // 0xaa5 @0x8
0x0a9d…0aab at0009 = ╱41╱A╱ // 0xaa6 @0x9
0x0a9d…0aab at000a = ╱52╱R╱ // 0xaa7 @0xa
0x0a9d…0aab at000b = ╱41╱A╱ // 0xaa8 @0xb
0x0a9d…0aab at000c = ╱ef╱ $ ╱ // 0xaa9 @0xc
0x0a9d…0aab at000d = EOL // 0xaaa @0xd
0x0a9d…0aab }
0x0aab…0adb a0c9 00950 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x0aab…0adb LineComal80 {
0x0aab…0adb ptr = 0xa0c9 // 0xaab @0x0
0x0aab…0adb lno = 0x03b6 // 0xaad @0x2
0x0aab…0adb at0004 = ╱86╱ LET ╱ // 0xaaf @0x4
0x0aab…0adb at0005 = ╱50╱P╱ // 0xab0 @0x5
0x0aab…0adb at0006 = ╱41╱A╱ // 0xab1 @0x6
0x0aab…0adb at0007 = ╱52╱R╱ // 0xab2 @0x7
0x0aab…0adb at0008 = ╱41╱A╱ // 0xab3 @0x8
0x0aab…0adb at0009 = ╱4d╱M╱ // 0xab4 @0x9
0x0aab…0adb at000a = ╱ef╱ $ ╱ // 0xab5 @0xa
0x0aab…0adb at000b = ╱f0╱ := ╱ // 0xab6 @0xb
0x0aab…0adb at000c = ╱44╱D╱ // 0xab7 @0xc
0x0aab…0adb at000d = ╱41╱A╱ // 0xab8 @0xd
0x0aab…0adb at000e = ╱54╱T╱ // 0xab9 @0xe
0x0aab…0adb at000f = ╱41╱A╱ // 0xaba @0xf
0x0aab…0adb at0010 = ╱46╱F╱ // 0xabb @0x10
0x0aab…0adb at0011 = ╱4c╱L╱ // 0xabc @0x11
0x0aab…0adb at0012 = ╱ef╱ $ ╱ // 0xabd @0x12
0x0aab…0adb at0013 = ╱eb╱ + ╱ // 0xabe @0x13
0x0aab…0adb at0014 = ╱22╱"╱ // 0xabf @0x14
0x0aab…0adb at0015 = ╱3a╱:╱ // 0xac0 @0x15
0x0aab…0adb at0016 = ╱22╱"╱ // 0xac1 @0x16
0x0aab…0adb at0017 = ╱eb╱ + ╱ // 0xac2 @0x17
0x0aab…0adb at0018 = ╱53╱S╱ // 0xac3 @0x18
0x0aab…0adb at0019 = ╱5f╱_╱ // 0xac4 @0x19
0x0aab…0adb at001a = ╱4b╱K╱ // 0xac5 @0x1a
0x0aab…0adb at001b = ╱4f╱O╱ // 0xac6 @0x1b
0x0aab…0adb at001c = ╱44╱D╱ // 0xac7 @0x1c
0x0aab…0adb at001d = ╱45╱E╱ // 0xac8 @0x1d
0x0aab…0adb at001e = ╱ef╱ $ ╱ // 0xac9 @0x1e
0x0aab…0adb at001f = ╱eb╱ + ╱ // 0xaca @0x1f
0x0aab…0adb at0020 = ╱54╱T╱ // 0xacb @0x20
0x0aab…0adb at0021 = ╱5f╱_╱ // 0xacc @0x21
0x0aab…0adb at0022 = ╱4b╱K╱ // 0xacd @0x22
0x0aab…0adb at0023 = ╱4f╱O╱ // 0xace @0x23
0x0aab…0adb at0024 = ╱44╱D╱ // 0xacf @0x24
0x0aab…0adb at0025 = ╱45╱E╱ // 0xad0 @0x25
0x0aab…0adb at0026 = ╱ef╱ $ ╱ // 0xad1 @0x26
0x0aab…0adb at0027 = ╱eb╱ + ╱ // 0xad2 @0x27
0x0aab…0adb at0028 = ╱22╱"╱ // 0xad3 @0x28
0x0aab…0adb at0029 = ╱50╱P╱ // 0xad4 @0x29
0x0aab…0adb at002a = ╱41╱A╱ // 0xad5 @0x2a
0x0aab…0adb at002b = ╱52╱R╱ // 0xad6 @0x2b
0x0aab…0adb at002c = ╱41╱A╱ // 0xad7 @0x2c
0x0aab…0adb at002d = ╱4d╱M╱ // 0xad8 @0x2d
0x0aab…0adb at002e = ╱22╱"╱ // 0xad9 @0x2e
0x0aab…0adb at002f = EOL // 0xada @0x2f
0x0aab…0adb }
0x0adb…0af4 a0e2 00960 EXEC OPENFIL ( PARAM $ , "R" )
0x0adb…0af4 LineComal80 {
0x0adb…0af4 ptr = 0xa0e2 // 0xadb @0x0
0x0adb…0af4 lno = 0x03c0 // 0xadd @0x2
0x0adb…0af4 at0004 = ╱9d╱ EXEC ╱ // 0xadf @0x4
0x0adb…0af4 at0005 = ╱4f╱O╱ // 0xae0 @0x5
0x0adb…0af4 at0006 = ╱50╱P╱ // 0xae1 @0x6
0x0adb…0af4 at0007 = ╱45╱E╱ // 0xae2 @0x7
0x0adb…0af4 at0008 = ╱4e╱N╱ // 0xae3 @0x8
0x0adb…0af4 at0009 = ╱46╱F╱ // 0xae4 @0x9
0x0adb…0af4 at000a = ╱49╱I╱ // 0xae5 @0xa
0x0adb…0af4 at000b = ╱4c╱L╱ // 0xae6 @0xb
0x0adb…0af4 at000c = ╱ed╱ ( ╱ // 0xae7 @0xc
0x0adb…0af4 at000d = ╱50╱P╱ // 0xae8 @0xd
0x0adb…0af4 at000e = ╱41╱A╱ // 0xae9 @0xe
0x0adb…0af4 at000f = ╱52╱R╱ // 0xaea @0xf
0x0adb…0af4 at0010 = ╱41╱A╱ // 0xaeb @0x10
0x0adb…0af4 at0011 = ╱4d╱M╱ // 0xaec @0x11
0x0adb…0af4 at0012 = ╱ef╱ $ ╱ // 0xaed @0x12
0x0adb…0af4 at0013 = ╱ec╱ , ╱ // 0xaee @0x13
0x0adb…0af4 at0014 = ╱22╱"╱ // 0xaef @0x14
0x0adb…0af4 at0015 = ╱52╱R╱ // 0xaf0 @0x15
0x0adb…0af4 at0016 = ╱22╱"╱ // 0xaf1 @0x16
0x0adb…0af4 at0017 = ╱ee╱ ) ╱ // 0xaf2 @0x17
0x0adb…0af4 at0018 = EOL // 0xaf3 @0x18
0x0adb…0af4 }
0x0af4…0b1f a10d 00970 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x0af4…0b1f LineComal80 {
0x0af4…0b1f ptr = 0xa10d // 0xaf4 @0x0
0x0af4…0b1f lno = 0x03ca // 0xaf6 @0x2
0x0af4…0b1f at0004 = ╱a9╱ GET ╱ // 0xaf8 @0x4
0x0af4…0b1f at0005 = ╱50╱P╱ // 0xaf9 @0x5
0x0af4…0b1f at0006 = ╱41╱A╱ // 0xafa @0x6
0x0af4…0b1f at0007 = ╱52╱R╱ // 0xafb @0x7
0x0af4…0b1f at0008 = ╱41╱A╱ // 0xafc @0x8
0x0af4…0b1f at0009 = ╱4d╱M╱ // 0xafd @0x9
0x0af4…0b1f at000a = ╱ef╱ $ ╱ // 0xafe @0xa
0x0af4…0b1f at000b = ╱ec╱ , ╱ // 0xaff @0xb
0x0af4…0b1f at000c = ╱31╱1╱ // 0xb00 @0xc
0x0af4…0b1f at000d = ╱f20100╱ // 0xb01 @0xd
0x0af4…0b1f at0010 = ╱f1╱ : ╱ // 0xb04 @0x10
0x0af4…0b1f at0011 = ╱46╱F╱ // 0xb05 @0x11
0x0af4…0b1f at0012 = ╱49╱I╱ // 0xb06 @0x12
0x0af4…0b1f at0013 = ╱52╱R╱ // 0xb07 @0x13
0x0af4…0b1f at0014 = ╱4d╱M╱ // 0xb08 @0x14
0x0af4…0b1f at0015 = ╱41╱A╱ // 0xb09 @0x15
0x0af4…0b1f at0016 = ╱4e╱N╱ // 0xb0a @0x16
0x0af4…0b1f at0017 = ╱41╱A╱ // 0xb0b @0x17
0x0af4…0b1f at0018 = ╱56╱V╱ // 0xb0c @0x18
0x0af4…0b1f at0019 = ╱4e╱N╱ // 0xb0d @0x19
0x0af4…0b1f at001a = ╱ef╱ $ ╱ // 0xb0e @0x1a
0x0af4…0b1f at001b = ╱ec╱ , ╱ // 0xb0f @0x1b
0x0af4…0b1f at001c = ╱53╱S╱ // 0xb10 @0x1c
0x0af4…0b1f at001d = ╱59╱Y╱ // 0xb11 @0x1d
0x0af4…0b1f at001e = ╱53╱S╱ // 0xb12 @0x1e
0x0af4…0b1f at001f = ╱54╱T╱ // 0xb13 @0x1f
0x0af4…0b1f at0020 = ╱5f╱_╱ // 0xb14 @0x20
0x0af4…0b1f at0021 = ╱44╱D╱ // 0xb15 @0x21
0x0af4…0b1f at0022 = ╱41╱A╱ // 0xb16 @0x22
0x0af4…0b1f at0023 = ╱54╱T╱ // 0xb17 @0x23
0x0af4…0b1f at0024 = ╱ef╱ $ ╱ // 0xb18 @0x24
0x0af4…0b1f at0025 = ╱ec╱ , ╱ // 0xb19 @0x25
0x0af4…0b1f at0026 = ╱4d╱M╱ // 0xb1a @0x26
0x0af4…0b1f at0027 = ╱4f╱O╱ // 0xb1b @0x27
0x0af4…0b1f at0028 = ╱4d╱M╱ // 0xb1c @0x28
0x0af4…0b1f at0029 = ╱53╱S╱ // 0xb1d @0x29
0x0af4…0b1f at002a = EOL // 0xb1e @0x2a
0x0af4…0b1f }
0x0b1f…0b2b a119 00980 CLOSE PARAM $
0x0b1f…0b2b LineComal80 {
0x0b1f…0b2b ptr = 0xa119 // 0xb1f @0x0
0x0b1f…0b2b lno = 0x03d4 // 0xb21 @0x2
0x0b1f…0b2b at0004 = ╱a8╱ CLOSE ╱ // 0xb23 @0x4
0x0b1f…0b2b at0005 = ╱50╱P╱ // 0xb24 @0x5
0x0b1f…0b2b at0006 = ╱41╱A╱ // 0xb25 @0x6
0x0b1f…0b2b at0007 = ╱52╱R╱ // 0xb26 @0x7
0x0b1f…0b2b at0008 = ╱41╱A╱ // 0xb27 @0x8
0x0b1f…0b2b at0009 = ╱4d╱M╱ // 0xb28 @0x9
0x0b1f…0b2b at000a = ╱ef╱ $ ╱ // 0xb29 @0xa
0x0b1f…0b2b at000b = EOL // 0xb2a @0xb
0x0b1f…0b2b }
0x0b2b…0b5d a14b 00990 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x0b2b…0b5d LineComal80 {
0x0b2b…0b5d ptr = 0xa14b // 0xb2b @0x0
0x0b2b…0b5d lno = 0x03de // 0xb2d @0x2
0x0b2b…0b5d at0004 = ╱86╱ LET ╱ // 0xb2f @0x4
0x0b2b…0b5d at0005 = ╱4b╱K╱ // 0xb30 @0x5
0x0b2b…0b5d at0006 = ╱54╱T╱ // 0xb31 @0x6
0x0b2b…0b5d at0007 = ╱4f╱O╱ // 0xb32 @0x7
0x0b2b…0b5d at0008 = ╱49╱I╱ // 0xb33 @0x8
0x0b2b…0b5d at0009 = ╱44╱D╱ // 0xb34 @0x9
0x0b2b…0b5d at000a = ╱58╱X╱ // 0xb35 @0xa
0x0b2b…0b5d at000b = ╱ef╱ $ ╱ // 0xb36 @0xb
0x0b2b…0b5d at000c = ╱f0╱ := ╱ // 0xb37 @0xc
0x0b2b…0b5d at000d = ╱44╱D╱ // 0xb38 @0xd
0x0b2b…0b5d at000e = ╱41╱A╱ // 0xb39 @0xe
0x0b2b…0b5d at000f = ╱54╱T╱ // 0xb3a @0xf
0x0b2b…0b5d at0010 = ╱41╱A╱ // 0xb3b @0x10
0x0b2b…0b5d at0011 = ╱46╱F╱ // 0xb3c @0x11
0x0b2b…0b5d at0012 = ╱4c╱L╱ // 0xb3d @0x12
0x0b2b…0b5d at0013 = ╱ef╱ $ ╱ // 0xb3e @0x13
0x0b2b…0b5d at0014 = ╱eb╱ + ╱ // 0xb3f @0x14
0x0b2b…0b5d at0015 = ╱22╱"╱ // 0xb40 @0x15
0x0b2b…0b5d at0016 = ╱3a╱:╱ // 0xb41 @0x16
0x0b2b…0b5d at0017 = ╱22╱"╱ // 0xb42 @0x17
0x0b2b…0b5d at0018 = ╱eb╱ + ╱ // 0xb43 @0x18
0x0b2b…0b5d at0019 = ╱53╱S╱ // 0xb44 @0x19
0x0b2b…0b5d at001a = ╱5f╱_╱ // 0xb45 @0x1a
0x0b2b…0b5d at001b = ╱4b╱K╱ // 0xb46 @0x1b
0x0b2b…0b5d at001c = ╱4f╱O╱ // 0xb47 @0x1c
0x0b2b…0b5d at001d = ╱44╱D╱ // 0xb48 @0x1d
0x0b2b…0b5d at001e = ╱45╱E╱ // 0xb49 @0x1e
0x0b2b…0b5d at001f = ╱ef╱ $ ╱ // 0xb4a @0x1f
0x0b2b…0b5d at0020 = ╱eb╱ + ╱ // 0xb4b @0x20
0x0b2b…0b5d at0021 = ╱54╱T╱ // 0xb4c @0x21
0x0b2b…0b5d at0022 = ╱5f╱_╱ // 0xb4d @0x22
0x0b2b…0b5d at0023 = ╱4b╱K╱ // 0xb4e @0x23
0x0b2b…0b5d at0024 = ╱4f╱O╱ // 0xb4f @0x24
0x0b2b…0b5d at0025 = ╱44╱D╱ // 0xb50 @0x25
0x0b2b…0b5d at0026 = ╱45╱E╱ // 0xb51 @0x26
0x0b2b…0b5d at0027 = ╱ef╱ $ ╱ // 0xb52 @0x27
0x0b2b…0b5d at0028 = ╱eb╱ + ╱ // 0xb53 @0x28
0x0b2b…0b5d at0029 = ╱22╱"╱ // 0xb54 @0x29
0x0b2b…0b5d at002a = ╱4b╱K╱ // 0xb55 @0x2a
0x0b2b…0b5d at002b = ╱54╱T╱ // 0xb56 @0x2b
0x0b2b…0b5d at002c = ╱4f╱O╱ // 0xb57 @0x2c
0x0b2b…0b5d at002d = ╱49╱I╱ // 0xb58 @0x2d
0x0b2b…0b5d at002e = ╱44╱D╱ // 0xb59 @0x2e
0x0b2b…0b5d at002f = ╱58╱X╱ // 0xb5a @0x2f
0x0b2b…0b5d at0030 = ╱22╱"╱ // 0xb5b @0x30
0x0b2b…0b5d at0031 = EOL // 0xb5c @0x31
0x0b2b…0b5d }
0x0b5d…0b8d a17b 01000 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
0x0b5d…0b8d LineComal80 {
0x0b5d…0b8d ptr = 0xa17b // 0xb5d @0x0
0x0b5d…0b8d lno = 0x03e8 // 0xb5f @0x2
0x0b5d…0b8d at0004 = ╱86╱ LET ╱ // 0xb61 @0x4
0x0b5d…0b8d at0005 = ╱4b╱K╱ // 0xb62 @0x5
0x0b5d…0b8d at0006 = ╱4f╱O╱ // 0xb63 @0x6
0x0b5d…0b8d at0007 = ╱4e╱N╱ // 0xb64 @0x7
0x0b5d…0b8d at0008 = ╱54╱T╱ // 0xb65 @0x8
0x0b5d…0b8d at0009 = ╱4f╱O╱ // 0xb66 @0x9
0x0b5d…0b8d at000a = ╱ef╱ $ ╱ // 0xb67 @0xa
0x0b5d…0b8d at000b = ╱f0╱ := ╱ // 0xb68 @0xb
0x0b5d…0b8d at000c = ╱44╱D╱ // 0xb69 @0xc
0x0b5d…0b8d at000d = ╱41╱A╱ // 0xb6a @0xd
0x0b5d…0b8d at000e = ╱54╱T╱ // 0xb6b @0xe
0x0b5d…0b8d at000f = ╱41╱A╱ // 0xb6c @0xf
0x0b5d…0b8d at0010 = ╱46╱F╱ // 0xb6d @0x10
0x0b5d…0b8d at0011 = ╱4c╱L╱ // 0xb6e @0x11
0x0b5d…0b8d at0012 = ╱ef╱ $ ╱ // 0xb6f @0x12
0x0b5d…0b8d at0013 = ╱eb╱ + ╱ // 0xb70 @0x13
0x0b5d…0b8d at0014 = ╱22╱"╱ // 0xb71 @0x14
0x0b5d…0b8d at0015 = ╱3a╱:╱ // 0xb72 @0x15
0x0b5d…0b8d at0016 = ╱22╱"╱ // 0xb73 @0x16
0x0b5d…0b8d at0017 = ╱eb╱ + ╱ // 0xb74 @0x17
0x0b5d…0b8d at0018 = ╱53╱S╱ // 0xb75 @0x18
0x0b5d…0b8d at0019 = ╱5f╱_╱ // 0xb76 @0x19
0x0b5d…0b8d at001a = ╱4b╱K╱ // 0xb77 @0x1a
0x0b5d…0b8d at001b = ╱4f╱O╱ // 0xb78 @0x1b
0x0b5d…0b8d at001c = ╱44╱D╱ // 0xb79 @0x1c
0x0b5d…0b8d at001d = ╱45╱E╱ // 0xb7a @0x1d
0x0b5d…0b8d at001e = ╱ef╱ $ ╱ // 0xb7b @0x1e
0x0b5d…0b8d at001f = ╱eb╱ + ╱ // 0xb7c @0x1f
0x0b5d…0b8d at0020 = ╱54╱T╱ // 0xb7d @0x20
0x0b5d…0b8d at0021 = ╱5f╱_╱ // 0xb7e @0x21
0x0b5d…0b8d at0022 = ╱4b╱K╱ // 0xb7f @0x22
0x0b5d…0b8d at0023 = ╱4f╱O╱ // 0xb80 @0x23
0x0b5d…0b8d at0024 = ╱44╱D╱ // 0xb81 @0x24
0x0b5d…0b8d at0025 = ╱45╱E╱ // 0xb82 @0x25
0x0b5d…0b8d at0026 = ╱ef╱ $ ╱ // 0xb83 @0x26
0x0b5d…0b8d at0027 = ╱eb╱ + ╱ // 0xb84 @0x27
0x0b5d…0b8d at0028 = ╱22╱"╱ // 0xb85 @0x28
0x0b5d…0b8d at0029 = ╱4b╱K╱ // 0xb86 @0x29
0x0b5d…0b8d at002a = ╱4f╱O╱ // 0xb87 @0x2a
0x0b5d…0b8d at002b = ╱4e╱N╱ // 0xb88 @0x2b
0x0b5d…0b8d at002c = ╱54╱T╱ // 0xb89 @0x2c
0x0b5d…0b8d at002d = ╱4f╱O╱ // 0xb8a @0x2d
0x0b5d…0b8d at002e = ╱22╱"╱ // 0xb8b @0x2e
0x0b5d…0b8d at002f = EOL // 0xb8c @0x2f
0x0b5d…0b8d }
0x0b8d…0bbd a1ab 01010 LET KASSE $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KASSE"
0x0b8d…0bbd LineComal80 {
0x0b8d…0bbd ptr = 0xa1ab // 0xb8d @0x0
0x0b8d…0bbd lno = 0x03f2 // 0xb8f @0x2
0x0b8d…0bbd at0004 = ╱86╱ LET ╱ // 0xb91 @0x4
0x0b8d…0bbd at0005 = ╱4b╱K╱ // 0xb92 @0x5
0x0b8d…0bbd at0006 = ╱41╱A╱ // 0xb93 @0x6
0x0b8d…0bbd at0007 = ╱53╱S╱ // 0xb94 @0x7
0x0b8d…0bbd at0008 = ╱53╱S╱ // 0xb95 @0x8
0x0b8d…0bbd at0009 = ╱45╱E╱ // 0xb96 @0x9
0x0b8d…0bbd at000a = ╱ef╱ $ ╱ // 0xb97 @0xa
0x0b8d…0bbd at000b = ╱f0╱ := ╱ // 0xb98 @0xb
0x0b8d…0bbd at000c = ╱44╱D╱ // 0xb99 @0xc
0x0b8d…0bbd at000d = ╱41╱A╱ // 0xb9a @0xd
0x0b8d…0bbd at000e = ╱54╱T╱ // 0xb9b @0xe
0x0b8d…0bbd at000f = ╱41╱A╱ // 0xb9c @0xf
0x0b8d…0bbd at0010 = ╱46╱F╱ // 0xb9d @0x10
0x0b8d…0bbd at0011 = ╱4c╱L╱ // 0xb9e @0x11
0x0b8d…0bbd at0012 = ╱ef╱ $ ╱ // 0xb9f @0x12
0x0b8d…0bbd at0013 = ╱eb╱ + ╱ // 0xba0 @0x13
0x0b8d…0bbd at0014 = ╱22╱"╱ // 0xba1 @0x14
0x0b8d…0bbd at0015 = ╱3a╱:╱ // 0xba2 @0x15
0x0b8d…0bbd at0016 = ╱22╱"╱ // 0xba3 @0x16
0x0b8d…0bbd at0017 = ╱eb╱ + ╱ // 0xba4 @0x17
0x0b8d…0bbd at0018 = ╱53╱S╱ // 0xba5 @0x18
0x0b8d…0bbd at0019 = ╱5f╱_╱ // 0xba6 @0x19
0x0b8d…0bbd at001a = ╱4b╱K╱ // 0xba7 @0x1a
0x0b8d…0bbd at001b = ╱4f╱O╱ // 0xba8 @0x1b
0x0b8d…0bbd at001c = ╱44╱D╱ // 0xba9 @0x1c
0x0b8d…0bbd at001d = ╱45╱E╱ // 0xbaa @0x1d
0x0b8d…0bbd at001e = ╱ef╱ $ ╱ // 0xbab @0x1e
0x0b8d…0bbd at001f = ╱eb╱ + ╱ // 0xbac @0x1f
0x0b8d…0bbd at0020 = ╱54╱T╱ // 0xbad @0x20
0x0b8d…0bbd at0021 = ╱5f╱_╱ // 0xbae @0x21
0x0b8d…0bbd at0022 = ╱4b╱K╱ // 0xbaf @0x22
0x0b8d…0bbd at0023 = ╱4f╱O╱ // 0xbb0 @0x23
0x0b8d…0bbd at0024 = ╱44╱D╱ // 0xbb1 @0x24
0x0b8d…0bbd at0025 = ╱45╱E╱ // 0xbb2 @0x25
0x0b8d…0bbd at0026 = ╱ef╱ $ ╱ // 0xbb3 @0x26
0x0b8d…0bbd at0027 = ╱eb╱ + ╱ // 0xbb4 @0x27
0x0b8d…0bbd at0028 = ╱22╱"╱ // 0xbb5 @0x28
0x0b8d…0bbd at0029 = ╱4b╱K╱ // 0xbb6 @0x29
0x0b8d…0bbd at002a = ╱41╱A╱ // 0xbb7 @0x2a
0x0b8d…0bbd at002b = ╱53╱S╱ // 0xbb8 @0x2b
0x0b8d…0bbd at002c = ╱53╱S╱ // 0xbb9 @0x2c
0x0b8d…0bbd at002d = ╱45╱E╱ // 0xbba @0x2d
0x0b8d…0bbd at002e = ╱22╱"╱ // 0xbbb @0x2e
0x0b8d…0bbd at002f = EOL // 0xbbc @0x2f
0x0b8d…0bbd }
0x0bbd…0bef a1dd 01020 LET FKTONR $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "FKTONR"
0x0bbd…0bef LineComal80 {
0x0bbd…0bef ptr = 0xa1dd // 0xbbd @0x0
0x0bbd…0bef lno = 0x03fc // 0xbbf @0x2
0x0bbd…0bef at0004 = ╱86╱ LET ╱ // 0xbc1 @0x4
0x0bbd…0bef at0005 = ╱46╱F╱ // 0xbc2 @0x5
0x0bbd…0bef at0006 = ╱4b╱K╱ // 0xbc3 @0x6
0x0bbd…0bef at0007 = ╱54╱T╱ // 0xbc4 @0x7
0x0bbd…0bef at0008 = ╱4f╱O╱ // 0xbc5 @0x8
0x0bbd…0bef at0009 = ╱4e╱N╱ // 0xbc6 @0x9
0x0bbd…0bef at000a = ╱52╱R╱ // 0xbc7 @0xa
0x0bbd…0bef at000b = ╱ef╱ $ ╱ // 0xbc8 @0xb
0x0bbd…0bef at000c = ╱f0╱ := ╱ // 0xbc9 @0xc
0x0bbd…0bef at000d = ╱44╱D╱ // 0xbca @0xd
0x0bbd…0bef at000e = ╱41╱A╱ // 0xbcb @0xe
0x0bbd…0bef at000f = ╱54╱T╱ // 0xbcc @0xf
0x0bbd…0bef at0010 = ╱41╱A╱ // 0xbcd @0x10
0x0bbd…0bef at0011 = ╱46╱F╱ // 0xbce @0x11
0x0bbd…0bef at0012 = ╱4c╱L╱ // 0xbcf @0x12
0x0bbd…0bef at0013 = ╱ef╱ $ ╱ // 0xbd0 @0x13
0x0bbd…0bef at0014 = ╱eb╱ + ╱ // 0xbd1 @0x14
0x0bbd…0bef at0015 = ╱22╱"╱ // 0xbd2 @0x15
0x0bbd…0bef at0016 = ╱3a╱:╱ // 0xbd3 @0x16
0x0bbd…0bef at0017 = ╱22╱"╱ // 0xbd4 @0x17
0x0bbd…0bef at0018 = ╱eb╱ + ╱ // 0xbd5 @0x18
0x0bbd…0bef at0019 = ╱53╱S╱ // 0xbd6 @0x19
0x0bbd…0bef at001a = ╱5f╱_╱ // 0xbd7 @0x1a
0x0bbd…0bef at001b = ╱4b╱K╱ // 0xbd8 @0x1b
0x0bbd…0bef at001c = ╱4f╱O╱ // 0xbd9 @0x1c
0x0bbd…0bef at001d = ╱44╱D╱ // 0xbda @0x1d
0x0bbd…0bef at001e = ╱45╱E╱ // 0xbdb @0x1e
0x0bbd…0bef at001f = ╱ef╱ $ ╱ // 0xbdc @0x1f
0x0bbd…0bef at0020 = ╱eb╱ + ╱ // 0xbdd @0x20
0x0bbd…0bef at0021 = ╱54╱T╱ // 0xbde @0x21
0x0bbd…0bef at0022 = ╱5f╱_╱ // 0xbdf @0x22
0x0bbd…0bef at0023 = ╱4b╱K╱ // 0xbe0 @0x23
0x0bbd…0bef at0024 = ╱4f╱O╱ // 0xbe1 @0x24
0x0bbd…0bef at0025 = ╱44╱D╱ // 0xbe2 @0x25
0x0bbd…0bef at0026 = ╱45╱E╱ // 0xbe3 @0x26
0x0bbd…0bef at0027 = ╱ef╱ $ ╱ // 0xbe4 @0x27
0x0bbd…0bef at0028 = ╱eb╱ + ╱ // 0xbe5 @0x28
0x0bbd…0bef at0029 = ╱22╱"╱ // 0xbe6 @0x29
0x0bbd…0bef at002a = ╱46╱F╱ // 0xbe7 @0x2a
0x0bbd…0bef at002b = ╱4b╱K╱ // 0xbe8 @0x2b
0x0bbd…0bef at002c = ╱54╱T╱ // 0xbe9 @0x2c
0x0bbd…0bef at002d = ╱4f╱O╱ // 0xbea @0x2d
0x0bbd…0bef at002e = ╱4e╱N╱ // 0xbeb @0x2e
0x0bbd…0bef at002f = ╱52╱R╱ // 0xbec @0x2f
0x0bbd…0bef at0030 = ╱22╱"╱ // 0xbed @0x30
0x0bbd…0bef at0031 = EOL // 0xbee @0x31
0x0bbd…0bef }
0x0bef…0c1f a20d 01030 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
0x0bef…0c1f LineComal80 {
0x0bef…0c1f ptr = 0xa20d // 0xbef @0x0
0x0bef…0c1f lno = 0x0406 // 0xbf1 @0x2
0x0bef…0c1f at0004 = ╱86╱ LET ╱ // 0xbf3 @0x4
0x0bef…0c1f at0005 = ╱54╱T╱ // 0xbf4 @0x5
0x0bef…0c1f at0006 = ╱52╱R╱ // 0xbf5 @0x6
0x0bef…0c1f at0007 = ╱41╱A╱ // 0xbf6 @0x7
0x0bef…0c1f at0008 = ╱4e╱N╱ // 0xbf7 @0x8
0x0bef…0c1f at0009 = ╱53╱S╱ // 0xbf8 @0x9
0x0bef…0c1f at000a = ╱ef╱ $ ╱ // 0xbf9 @0xa
0x0bef…0c1f at000b = ╱f0╱ := ╱ // 0xbfa @0xb
0x0bef…0c1f at000c = ╱44╱D╱ // 0xbfb @0xc
0x0bef…0c1f at000d = ╱41╱A╱ // 0xbfc @0xd
0x0bef…0c1f at000e = ╱54╱T╱ // 0xbfd @0xe
0x0bef…0c1f at000f = ╱41╱A╱ // 0xbfe @0xf
0x0bef…0c1f at0010 = ╱46╱F╱ // 0xbff @0x10
0x0bef…0c1f at0011 = ╱4c╱L╱ // 0xc00 @0x11
0x0bef…0c1f at0012 = ╱ef╱ $ ╱ // 0xc01 @0x12
0x0bef…0c1f at0013 = ╱eb╱ + ╱ // 0xc02 @0x13
0x0bef…0c1f at0014 = ╱22╱"╱ // 0xc03 @0x14
0x0bef…0c1f at0015 = ╱3a╱:╱ // 0xc04 @0x15
0x0bef…0c1f at0016 = ╱22╱"╱ // 0xc05 @0x16
0x0bef…0c1f at0017 = ╱eb╱ + ╱ // 0xc06 @0x17
0x0bef…0c1f at0018 = ╱53╱S╱ // 0xc07 @0x18
0x0bef…0c1f at0019 = ╱5f╱_╱ // 0xc08 @0x19
0x0bef…0c1f at001a = ╱4b╱K╱ // 0xc09 @0x1a
0x0bef…0c1f at001b = ╱4f╱O╱ // 0xc0a @0x1b
0x0bef…0c1f at001c = ╱44╱D╱ // 0xc0b @0x1c
0x0bef…0c1f at001d = ╱45╱E╱ // 0xc0c @0x1d
0x0bef…0c1f at001e = ╱ef╱ $ ╱ // 0xc0d @0x1e
0x0bef…0c1f at001f = ╱eb╱ + ╱ // 0xc0e @0x1f
0x0bef…0c1f at0020 = ╱54╱T╱ // 0xc0f @0x20
0x0bef…0c1f at0021 = ╱5f╱_╱ // 0xc10 @0x21
0x0bef…0c1f at0022 = ╱4b╱K╱ // 0xc11 @0x22
0x0bef…0c1f at0023 = ╱4f╱O╱ // 0xc12 @0x23
0x0bef…0c1f at0024 = ╱44╱D╱ // 0xc13 @0x24
0x0bef…0c1f at0025 = ╱45╱E╱ // 0xc14 @0x25
0x0bef…0c1f at0026 = ╱ef╱ $ ╱ // 0xc15 @0x26
0x0bef…0c1f at0027 = ╱eb╱ + ╱ // 0xc16 @0x27
0x0bef…0c1f at0028 = ╱22╱"╱ // 0xc17 @0x28
0x0bef…0c1f at0029 = ╱54╱T╱ // 0xc18 @0x29
0x0bef…0c1f at002a = ╱52╱R╱ // 0xc19 @0x2a
0x0bef…0c1f at002b = ╱41╱A╱ // 0xc1a @0x2b
0x0bef…0c1f at002c = ╱4e╱N╱ // 0xc1b @0x2c
0x0bef…0c1f at002d = ╱53╱S╱ // 0xc1c @0x2d
0x0bef…0c1f at002e = ╱22╱"╱ // 0xc1d @0x2e
0x0bef…0c1f at002f = EOL // 0xc1e @0x2f
0x0bef…0c1f }
0x0c1f…0c39 a227 01040 EXEC OPENFIL ( KTOIDX $ , "R" )
0x0c1f…0c39 LineComal80 {
0x0c1f…0c39 ptr = 0xa227 // 0xc1f @0x0
0x0c1f…0c39 lno = 0x0410 // 0xc21 @0x2
0x0c1f…0c39 at0004 = ╱9d╱ EXEC ╱ // 0xc23 @0x4
0x0c1f…0c39 at0005 = ╱4f╱O╱ // 0xc24 @0x5
0x0c1f…0c39 at0006 = ╱50╱P╱ // 0xc25 @0x6
0x0c1f…0c39 at0007 = ╱45╱E╱ // 0xc26 @0x7
0x0c1f…0c39 at0008 = ╱4e╱N╱ // 0xc27 @0x8
0x0c1f…0c39 at0009 = ╱46╱F╱ // 0xc28 @0x9
0x0c1f…0c39 at000a = ╱49╱I╱ // 0xc29 @0xa
0x0c1f…0c39 at000b = ╱4c╱L╱ // 0xc2a @0xb
0x0c1f…0c39 at000c = ╱ed╱ ( ╱ // 0xc2b @0xc
0x0c1f…0c39 at000d = ╱4b╱K╱ // 0xc2c @0xd
0x0c1f…0c39 at000e = ╱54╱T╱ // 0xc2d @0xe
0x0c1f…0c39 at000f = ╱4f╱O╱ // 0xc2e @0xf
0x0c1f…0c39 at0010 = ╱49╱I╱ // 0xc2f @0x10
0x0c1f…0c39 at0011 = ╱44╱D╱ // 0xc30 @0x11
0x0c1f…0c39 at0012 = ╱58╱X╱ // 0xc31 @0x12
0x0c1f…0c39 at0013 = ╱ef╱ $ ╱ // 0xc32 @0x13
0x0c1f…0c39 at0014 = ╱ec╱ , ╱ // 0xc33 @0x14
0x0c1f…0c39 at0015 = ╱22╱"╱ // 0xc34 @0x15
0x0c1f…0c39 at0016 = ╱52╱R╱ // 0xc35 @0x16
0x0c1f…0c39 at0017 = ╱22╱"╱ // 0xc36 @0x17
0x0c1f…0c39 at0018 = ╱ee╱ ) ╱ // 0xc37 @0x18
0x0c1f…0c39 at0019 = EOL // 0xc38 @0x19
0x0c1f…0c39 }
0x0c39…0c52 a240 01050 EXEC OPENFIL ( KONTO $ , "W" )
0x0c39…0c52 LineComal80 {
0x0c39…0c52 ptr = 0xa240 // 0xc39 @0x0
0x0c39…0c52 lno = 0x041a // 0xc3b @0x2
0x0c39…0c52 at0004 = ╱9d╱ EXEC ╱ // 0xc3d @0x4
0x0c39…0c52 at0005 = ╱4f╱O╱ // 0xc3e @0x5
0x0c39…0c52 at0006 = ╱50╱P╱ // 0xc3f @0x6
0x0c39…0c52 at0007 = ╱45╱E╱ // 0xc40 @0x7
0x0c39…0c52 at0008 = ╱4e╱N╱ // 0xc41 @0x8
0x0c39…0c52 at0009 = ╱46╱F╱ // 0xc42 @0x9
0x0c39…0c52 at000a = ╱49╱I╱ // 0xc43 @0xa
0x0c39…0c52 at000b = ╱4c╱L╱ // 0xc44 @0xb
0x0c39…0c52 at000c = ╱ed╱ ( ╱ // 0xc45 @0xc
0x0c39…0c52 at000d = ╱4b╱K╱ // 0xc46 @0xd
0x0c39…0c52 at000e = ╱4f╱O╱ // 0xc47 @0xe
0x0c39…0c52 at000f = ╱4e╱N╱ // 0xc48 @0xf
0x0c39…0c52 at0010 = ╱54╱T╱ // 0xc49 @0x10
0x0c39…0c52 at0011 = ╱4f╱O╱ // 0xc4a @0x11
0x0c39…0c52 at0012 = ╱ef╱ $ ╱ // 0xc4b @0x12
0x0c39…0c52 at0013 = ╱ec╱ , ╱ // 0xc4c @0x13
0x0c39…0c52 at0014 = ╱22╱"╱ // 0xc4d @0x14
0x0c39…0c52 at0015 = ╱57╱W╱ // 0xc4e @0x15
0x0c39…0c52 at0016 = ╱22╱"╱ // 0xc4f @0x16
0x0c39…0c52 at0017 = ╱ee╱ ) ╱ // 0xc50 @0x17
0x0c39…0c52 at0018 = EOL // 0xc51 @0x18
0x0c39…0c52 }
0x0c52…0c6b a259 01060 EXEC OPENFIL ( KASSE $ , "W" )
0x0c52…0c6b LineComal80 {
0x0c52…0c6b ptr = 0xa259 // 0xc52 @0x0
0x0c52…0c6b lno = 0x0424 // 0xc54 @0x2
0x0c52…0c6b at0004 = ╱9d╱ EXEC ╱ // 0xc56 @0x4
0x0c52…0c6b at0005 = ╱4f╱O╱ // 0xc57 @0x5
0x0c52…0c6b at0006 = ╱50╱P╱ // 0xc58 @0x6
0x0c52…0c6b at0007 = ╱45╱E╱ // 0xc59 @0x7
0x0c52…0c6b at0008 = ╱4e╱N╱ // 0xc5a @0x8
0x0c52…0c6b at0009 = ╱46╱F╱ // 0xc5b @0x9
0x0c52…0c6b at000a = ╱49╱I╱ // 0xc5c @0xa
0x0c52…0c6b at000b = ╱4c╱L╱ // 0xc5d @0xb
0x0c52…0c6b at000c = ╱ed╱ ( ╱ // 0xc5e @0xc
0x0c52…0c6b at000d = ╱4b╱K╱ // 0xc5f @0xd
0x0c52…0c6b at000e = ╱41╱A╱ // 0xc60 @0xe
0x0c52…0c6b at000f = ╱53╱S╱ // 0xc61 @0xf
0x0c52…0c6b at0010 = ╱53╱S╱ // 0xc62 @0x10
0x0c52…0c6b at0011 = ╱45╱E╱ // 0xc63 @0x11
0x0c52…0c6b at0012 = ╱ef╱ $ ╱ // 0xc64 @0x12
0x0c52…0c6b at0013 = ╱ec╱ , ╱ // 0xc65 @0x13
0x0c52…0c6b at0014 = ╱22╱"╱ // 0xc66 @0x14
0x0c52…0c6b at0015 = ╱57╱W╱ // 0xc67 @0x15
0x0c52…0c6b at0016 = ╱22╱"╱ // 0xc68 @0x16
0x0c52…0c6b at0017 = ╱ee╱ ) ╱ // 0xc69 @0x17
0x0c52…0c6b at0018 = EOL // 0xc6a @0x18
0x0c52…0c6b }
0x0c6b…0c85 a273 01070 EXEC OPENFIL ( FKTONR $ , "R" )
0x0c6b…0c85 LineComal80 {
0x0c6b…0c85 ptr = 0xa273 // 0xc6b @0x0
0x0c6b…0c85 lno = 0x042e // 0xc6d @0x2
0x0c6b…0c85 at0004 = ╱9d╱ EXEC ╱ // 0xc6f @0x4
0x0c6b…0c85 at0005 = ╱4f╱O╱ // 0xc70 @0x5
0x0c6b…0c85 at0006 = ╱50╱P╱ // 0xc71 @0x6
0x0c6b…0c85 at0007 = ╱45╱E╱ // 0xc72 @0x7
0x0c6b…0c85 at0008 = ╱4e╱N╱ // 0xc73 @0x8
0x0c6b…0c85 at0009 = ╱46╱F╱ // 0xc74 @0x9
0x0c6b…0c85 at000a = ╱49╱I╱ // 0xc75 @0xa
0x0c6b…0c85 at000b = ╱4c╱L╱ // 0xc76 @0xb
0x0c6b…0c85 at000c = ╱ed╱ ( ╱ // 0xc77 @0xc
0x0c6b…0c85 at000d = ╱46╱F╱ // 0xc78 @0xd
0x0c6b…0c85 at000e = ╱4b╱K╱ // 0xc79 @0xe
0x0c6b…0c85 at000f = ╱54╱T╱ // 0xc7a @0xf
0x0c6b…0c85 at0010 = ╱4f╱O╱ // 0xc7b @0x10
0x0c6b…0c85 at0011 = ╱4e╱N╱ // 0xc7c @0x11
0x0c6b…0c85 at0012 = ╱52╱R╱ // 0xc7d @0x12
0x0c6b…0c85 at0013 = ╱ef╱ $ ╱ // 0xc7e @0x13
0x0c6b…0c85 at0014 = ╱ec╱ , ╱ // 0xc7f @0x14
0x0c6b…0c85 at0015 = ╱22╱"╱ // 0xc80 @0x15
0x0c6b…0c85 at0016 = ╱52╱R╱ // 0xc81 @0x16
0x0c6b…0c85 at0017 = ╱22╱"╱ // 0xc82 @0x17
0x0c6b…0c85 at0018 = ╱ee╱ ) ╱ // 0xc83 @0x18
0x0c6b…0c85 at0019 = EOL // 0xc84 @0x19
0x0c6b…0c85 }
0x0c85…0c9e a28c 01080 EXEC OPENFIL ( TRANS $ , "W" )
0x0c85…0c9e LineComal80 {
0x0c85…0c9e ptr = 0xa28c // 0xc85 @0x0
0x0c85…0c9e lno = 0x0438 // 0xc87 @0x2
0x0c85…0c9e at0004 = ╱9d╱ EXEC ╱ // 0xc89 @0x4
0x0c85…0c9e at0005 = ╱4f╱O╱ // 0xc8a @0x5
0x0c85…0c9e at0006 = ╱50╱P╱ // 0xc8b @0x6
0x0c85…0c9e at0007 = ╱45╱E╱ // 0xc8c @0x7
0x0c85…0c9e at0008 = ╱4e╱N╱ // 0xc8d @0x8
0x0c85…0c9e at0009 = ╱46╱F╱ // 0xc8e @0x9
0x0c85…0c9e at000a = ╱49╱I╱ // 0xc8f @0xa
0x0c85…0c9e at000b = ╱4c╱L╱ // 0xc90 @0xb
0x0c85…0c9e at000c = ╱ed╱ ( ╱ // 0xc91 @0xc
0x0c85…0c9e at000d = ╱54╱T╱ // 0xc92 @0xd
0x0c85…0c9e at000e = ╱52╱R╱ // 0xc93 @0xe
0x0c85…0c9e at000f = ╱41╱A╱ // 0xc94 @0xf
0x0c85…0c9e at0010 = ╱4e╱N╱ // 0xc95 @0x10
0x0c85…0c9e at0011 = ╱53╱S╱ // 0xc96 @0x11
0x0c85…0c9e at0012 = ╱ef╱ $ ╱ // 0xc97 @0x12
0x0c85…0c9e at0013 = ╱ec╱ , ╱ // 0xc98 @0x13
0x0c85…0c9e at0014 = ╱22╱"╱ // 0xc99 @0x14
0x0c85…0c9e at0015 = ╱57╱W╱ // 0xc9a @0x15
0x0c85…0c9e at0016 = ╱22╱"╱ // 0xc9b @0x16
0x0c85…0c9e at0017 = ╱ee╱ ) ╱ // 0xc9c @0x17
0x0c85…0c9e at0018 = EOL // 0xc9d @0x18
0x0c85…0c9e }
0x0c9e…0cbb a2a9 01090 GET FKTONR $ , 1 : KASSE_KTO $
0x0c9e…0cbb LineComal80 {
0x0c9e…0cbb ptr = 0xa2a9 // 0xc9e @0x0
0x0c9e…0cbb lno = 0x0442 // 0xca0 @0x2
0x0c9e…0cbb at0004 = ╱a9╱ GET ╱ // 0xca2 @0x4
0x0c9e…0cbb at0005 = ╱46╱F╱ // 0xca3 @0x5
0x0c9e…0cbb at0006 = ╱4b╱K╱ // 0xca4 @0x6
0x0c9e…0cbb at0007 = ╱54╱T╱ // 0xca5 @0x7
0x0c9e…0cbb at0008 = ╱4f╱O╱ // 0xca6 @0x8
0x0c9e…0cbb at0009 = ╱4e╱N╱ // 0xca7 @0x9
0x0c9e…0cbb at000a = ╱52╱R╱ // 0xca8 @0xa
0x0c9e…0cbb at000b = ╱ef╱ $ ╱ // 0xca9 @0xb
0x0c9e…0cbb at000c = ╱ec╱ , ╱ // 0xcaa @0xc
0x0c9e…0cbb at000d = ╱31╱1╱ // 0xcab @0xd
0x0c9e…0cbb at000e = ╱f20100╱ // 0xcac @0xe
0x0c9e…0cbb at0011 = ╱f1╱ : ╱ // 0xcaf @0x11
0x0c9e…0cbb at0012 = ╱4b╱K╱ // 0xcb0 @0x12
0x0c9e…0cbb at0013 = ╱41╱A╱ // 0xcb1 @0x13
0x0c9e…0cbb at0014 = ╱53╱S╱ // 0xcb2 @0x14
0x0c9e…0cbb at0015 = ╱53╱S╱ // 0xcb3 @0x15
0x0c9e…0cbb at0016 = ╱45╱E╱ // 0xcb4 @0x16
0x0c9e…0cbb at0017 = ╱5f╱_╱ // 0xcb5 @0x17
0x0c9e…0cbb at0018 = ╱4b╱K╱ // 0xcb6 @0x18
0x0c9e…0cbb at0019 = ╱54╱T╱ // 0xcb7 @0x19
0x0c9e…0cbb at001a = ╱4f╱O╱ // 0xcb8 @0x1a
0x0c9e…0cbb at001b = ╱ef╱ $ ╱ // 0xcb9 @0x1b
0x0c9e…0cbb at001c = EOL // 0xcba @0x1c
0x0c9e…0cbb }
0x0cbb…0cd7 a2c5 01100 GET FKTONR $ , 2 : BANK_KTO $
0x0cbb…0cd7 LineComal80 {
0x0cbb…0cd7 ptr = 0xa2c5 // 0xcbb @0x0
0x0cbb…0cd7 lno = 0x044c // 0xcbd @0x2
0x0cbb…0cd7 at0004 = ╱a9╱ GET ╱ // 0xcbf @0x4
0x0cbb…0cd7 at0005 = ╱46╱F╱ // 0xcc0 @0x5
0x0cbb…0cd7 at0006 = ╱4b╱K╱ // 0xcc1 @0x6
0x0cbb…0cd7 at0007 = ╱54╱T╱ // 0xcc2 @0x7
0x0cbb…0cd7 at0008 = ╱4f╱O╱ // 0xcc3 @0x8
0x0cbb…0cd7 at0009 = ╱4e╱N╱ // 0xcc4 @0x9
0x0cbb…0cd7 at000a = ╱52╱R╱ // 0xcc5 @0xa
0x0cbb…0cd7 at000b = ╱ef╱ $ ╱ // 0xcc6 @0xb
0x0cbb…0cd7 at000c = ╱ec╱ , ╱ // 0xcc7 @0xc
0x0cbb…0cd7 at000d = ╱32╱2╱ // 0xcc8 @0xd
0x0cbb…0cd7 at000e = ╱f20200╱ // 0xcc9 @0xe
0x0cbb…0cd7 at0011 = ╱f1╱ : ╱ // 0xccc @0x11
0x0cbb…0cd7 at0012 = ╱42╱B╱ // 0xccd @0x12
0x0cbb…0cd7 at0013 = ╱41╱A╱ // 0xcce @0x13
0x0cbb…0cd7 at0014 = ╱4e╱N╱ // 0xccf @0x14
0x0cbb…0cd7 at0015 = ╱4b╱K╱ // 0xcd0 @0x15
0x0cbb…0cd7 at0016 = ╱5f╱_╱ // 0xcd1 @0x16
0x0cbb…0cd7 at0017 = ╱4b╱K╱ // 0xcd2 @0x17
0x0cbb…0cd7 at0018 = ╱54╱T╱ // 0xcd3 @0x18
0x0cbb…0cd7 at0019 = ╱4f╱O╱ // 0xcd4 @0x19
0x0cbb…0cd7 at001a = ╱ef╱ $ ╱ // 0xcd5 @0x1a
0x0cbb…0cd7 at001b = EOL // 0xcd6 @0x1b
0x0cbb…0cd7 }
0x0cd7…0cf3 a2e1 01110 GET FKTONR $ , 3 : GIRO_KTO $
0x0cd7…0cf3 LineComal80 {
0x0cd7…0cf3 ptr = 0xa2e1 // 0xcd7 @0x0
0x0cd7…0cf3 lno = 0x0456 // 0xcd9 @0x2
0x0cd7…0cf3 at0004 = ╱a9╱ GET ╱ // 0xcdb @0x4
0x0cd7…0cf3 at0005 = ╱46╱F╱ // 0xcdc @0x5
0x0cd7…0cf3 at0006 = ╱4b╱K╱ // 0xcdd @0x6
0x0cd7…0cf3 at0007 = ╱54╱T╱ // 0xcde @0x7
0x0cd7…0cf3 at0008 = ╱4f╱O╱ // 0xcdf @0x8
0x0cd7…0cf3 at0009 = ╱4e╱N╱ // 0xce0 @0x9
0x0cd7…0cf3 at000a = ╱52╱R╱ // 0xce1 @0xa
0x0cd7…0cf3 at000b = ╱ef╱ $ ╱ // 0xce2 @0xb
0x0cd7…0cf3 at000c = ╱ec╱ , ╱ // 0xce3 @0xc
0x0cd7…0cf3 at000d = ╱33╱3╱ // 0xce4 @0xd
0x0cd7…0cf3 at000e = ╱f20300╱ // 0xce5 @0xe
0x0cd7…0cf3 at0011 = ╱f1╱ : ╱ // 0xce8 @0x11
0x0cd7…0cf3 at0012 = ╱47╱G╱ // 0xce9 @0x12
0x0cd7…0cf3 at0013 = ╱49╱I╱ // 0xcea @0x13
0x0cd7…0cf3 at0014 = ╱52╱R╱ // 0xceb @0x14
0x0cd7…0cf3 at0015 = ╱4f╱O╱ // 0xcec @0x15
0x0cd7…0cf3 at0016 = ╱5f╱_╱ // 0xced @0x16
0x0cd7…0cf3 at0017 = ╱4b╱K╱ // 0xcee @0x17
0x0cd7…0cf3 at0018 = ╱54╱T╱ // 0xcef @0x18
0x0cd7…0cf3 at0019 = ╱4f╱O╱ // 0xcf0 @0x19
0x0cd7…0cf3 at001a = ╱ef╱ $ ╱ // 0xcf1 @0x1a
0x0cd7…0cf3 at001b = EOL // 0xcf2 @0x1b
0x0cd7…0cf3 }
0x0cf3…0d11 a2ff 01120 GET FKTONR $ , 4 : K_DIFF_KTO $
0x0cf3…0d11 LineComal80 {
0x0cf3…0d11 ptr = 0xa2ff // 0xcf3 @0x0
0x0cf3…0d11 lno = 0x0460 // 0xcf5 @0x2
0x0cf3…0d11 at0004 = ╱a9╱ GET ╱ // 0xcf7 @0x4
0x0cf3…0d11 at0005 = ╱46╱F╱ // 0xcf8 @0x5
0x0cf3…0d11 at0006 = ╱4b╱K╱ // 0xcf9 @0x6
0x0cf3…0d11 at0007 = ╱54╱T╱ // 0xcfa @0x7
0x0cf3…0d11 at0008 = ╱4f╱O╱ // 0xcfb @0x8
0x0cf3…0d11 at0009 = ╱4e╱N╱ // 0xcfc @0x9
0x0cf3…0d11 at000a = ╱52╱R╱ // 0xcfd @0xa
0x0cf3…0d11 at000b = ╱ef╱ $ ╱ // 0xcfe @0xb
0x0cf3…0d11 at000c = ╱ec╱ , ╱ // 0xcff @0xc
0x0cf3…0d11 at000d = ╱34╱4╱ // 0xd00 @0xd
0x0cf3…0d11 at000e = ╱f20400╱ // 0xd01 @0xe
0x0cf3…0d11 at0011 = ╱f1╱ : ╱ // 0xd04 @0x11
0x0cf3…0d11 at0012 = ╱4b╱K╱ // 0xd05 @0x12
0x0cf3…0d11 at0013 = ╱5f╱_╱ // 0xd06 @0x13
0x0cf3…0d11 at0014 = ╱44╱D╱ // 0xd07 @0x14
0x0cf3…0d11 at0015 = ╱49╱I╱ // 0xd08 @0x15
0x0cf3…0d11 at0016 = ╱46╱F╱ // 0xd09 @0x16
0x0cf3…0d11 at0017 = ╱46╱F╱ // 0xd0a @0x17
0x0cf3…0d11 at0018 = ╱5f╱_╱ // 0xd0b @0x18
0x0cf3…0d11 at0019 = ╱4b╱K╱ // 0xd0c @0x19
0x0cf3…0d11 at001a = ╱54╱T╱ // 0xd0d @0x1a
0x0cf3…0d11 at001b = ╱4f╱O╱ // 0xd0e @0x1b
0x0cf3…0d11 at001c = ╱ef╱ $ ╱ // 0xd0f @0x1c
0x0cf3…0d11 at001d = EOL // 0xd10 @0x1d
0x0cf3…0d11 }
0x0d11…0d30 a31e 01130 GET FKTONR $ , 5 : INDMOMS_KTO $
0x0d11…0d30 LineComal80 {
0x0d11…0d30 ptr = 0xa31e // 0xd11 @0x0
0x0d11…0d30 lno = 0x046a // 0xd13 @0x2
0x0d11…0d30 at0004 = ╱a9╱ GET ╱ // 0xd15 @0x4
0x0d11…0d30 at0005 = ╱46╱F╱ // 0xd16 @0x5
0x0d11…0d30 at0006 = ╱4b╱K╱ // 0xd17 @0x6
0x0d11…0d30 at0007 = ╱54╱T╱ // 0xd18 @0x7
0x0d11…0d30 at0008 = ╱4f╱O╱ // 0xd19 @0x8
0x0d11…0d30 at0009 = ╱4e╱N╱ // 0xd1a @0x9
0x0d11…0d30 at000a = ╱52╱R╱ // 0xd1b @0xa
0x0d11…0d30 at000b = ╱ef╱ $ ╱ // 0xd1c @0xb
0x0d11…0d30 at000c = ╱ec╱ , ╱ // 0xd1d @0xc
0x0d11…0d30 at000d = ╱35╱5╱ // 0xd1e @0xd
0x0d11…0d30 at000e = ╱f20500╱ // 0xd1f @0xe
0x0d11…0d30 at0011 = ╱f1╱ : ╱ // 0xd22 @0x11
0x0d11…0d30 at0012 = ╱49╱I╱ // 0xd23 @0x12
0x0d11…0d30 at0013 = ╱4e╱N╱ // 0xd24 @0x13
0x0d11…0d30 at0014 = ╱44╱D╱ // 0xd25 @0x14
0x0d11…0d30 at0015 = ╱4d╱M╱ // 0xd26 @0x15
0x0d11…0d30 at0016 = ╱4f╱O╱ // 0xd27 @0x16
0x0d11…0d30 at0017 = ╱4d╱M╱ // 0xd28 @0x17
0x0d11…0d30 at0018 = ╱53╱S╱ // 0xd29 @0x18
0x0d11…0d30 at0019 = ╱5f╱_╱ // 0xd2a @0x19
0x0d11…0d30 at001a = ╱4b╱K╱ // 0xd2b @0x1a
0x0d11…0d30 at001b = ╱54╱T╱ // 0xd2c @0x1b
0x0d11…0d30 at001c = ╱4f╱O╱ // 0xd2d @0x1c
0x0d11…0d30 at001d = ╱ef╱ $ ╱ // 0xd2e @0x1d
0x0d11…0d30 at001e = EOL // 0xd2f @0x1e
0x0d11…0d30 }
0x0d30…0d4e a33c 01140 GET FKTONR $ , 6 : UDMOMS_KTO $
0x0d30…0d4e LineComal80 {
0x0d30…0d4e ptr = 0xa33c // 0xd30 @0x0
0x0d30…0d4e lno = 0x0474 // 0xd32 @0x2
0x0d30…0d4e at0004 = ╱a9╱ GET ╱ // 0xd34 @0x4
0x0d30…0d4e at0005 = ╱46╱F╱ // 0xd35 @0x5
0x0d30…0d4e at0006 = ╱4b╱K╱ // 0xd36 @0x6
0x0d30…0d4e at0007 = ╱54╱T╱ // 0xd37 @0x7
0x0d30…0d4e at0008 = ╱4f╱O╱ // 0xd38 @0x8
0x0d30…0d4e at0009 = ╱4e╱N╱ // 0xd39 @0x9
0x0d30…0d4e at000a = ╱52╱R╱ // 0xd3a @0xa
0x0d30…0d4e at000b = ╱ef╱ $ ╱ // 0xd3b @0xb
0x0d30…0d4e at000c = ╱ec╱ , ╱ // 0xd3c @0xc
0x0d30…0d4e at000d = ╱36╱6╱ // 0xd3d @0xd
0x0d30…0d4e at000e = ╱f20600╱ // 0xd3e @0xe
0x0d30…0d4e at0011 = ╱f1╱ : ╱ // 0xd41 @0x11
0x0d30…0d4e at0012 = ╱55╱U╱ // 0xd42 @0x12
0x0d30…0d4e at0013 = ╱44╱D╱ // 0xd43 @0x13
0x0d30…0d4e at0014 = ╱4d╱M╱ // 0xd44 @0x14
0x0d30…0d4e at0015 = ╱4f╱O╱ // 0xd45 @0x15
0x0d30…0d4e at0016 = ╱4d╱M╱ // 0xd46 @0x16
0x0d30…0d4e at0017 = ╱53╱S╱ // 0xd47 @0x17
0x0d30…0d4e at0018 = ╱5f╱_╱ // 0xd48 @0x18
0x0d30…0d4e at0019 = ╱4b╱K╱ // 0xd49 @0x19
0x0d30…0d4e at001a = ╱54╱T╱ // 0xd4a @0x1a
0x0d30…0d4e at001b = ╱4f╱O╱ // 0xd4b @0x1b
0x0d30…0d4e at001c = ╱ef╱ $ ╱ // 0xd4c @0x1c
0x0d30…0d4e at001d = EOL // 0xd4d @0x1d
0x0d30…0d4e }
0x0d4e…0d5b a349 01150 CLOSE FKTONR $
0x0d4e…0d5b LineComal80 {
0x0d4e…0d5b ptr = 0xa349 // 0xd4e @0x0
0x0d4e…0d5b lno = 0x047e // 0xd50 @0x2
0x0d4e…0d5b at0004 = ╱a8╱ CLOSE ╱ // 0xd52 @0x4
0x0d4e…0d5b at0005 = ╱46╱F╱ // 0xd53 @0x5
0x0d4e…0d5b at0006 = ╱4b╱K╱ // 0xd54 @0x6
0x0d4e…0d5b at0007 = ╱54╱T╱ // 0xd55 @0x7
0x0d4e…0d5b at0008 = ╱4f╱O╱ // 0xd56 @0x8
0x0d4e…0d5b at0009 = ╱4e╱N╱ // 0xd57 @0x9
0x0d4e…0d5b at000a = ╱52╱R╱ // 0xd58 @0xa
0x0d4e…0d5b at000b = ╱ef╱ $ ╱ // 0xd59 @0xb
0x0d4e…0d5b at000c = EOL // 0xd5a @0xc
0x0d4e…0d5b }
0x0d5b…0d68 a356 01160 ENDPROC INITIER
0x0d5b…0d68 LineComal80 {
0x0d5b…0d68 ptr = 0xa356 // 0xd5b @0x0
0x0d5b…0d68 lno = 0x0488 // 0xd5d @0x2
0x0d5b…0d68 at0004 = ╱9f╱ ENDPROC ╱ // 0xd5f @0x4
0x0d5b…0d68 at0005 = ╱49╱I╱ // 0xd60 @0x5
0x0d5b…0d68 at0006 = ╱4e╱N╱ // 0xd61 @0x6
0x0d5b…0d68 at0007 = ╱49╱I╱ // 0xd62 @0x7
0x0d5b…0d68 at0008 = ╱54╱T╱ // 0xd63 @0x8
0x0d5b…0d68 at0009 = ╱49╱I╱ // 0xd64 @0x9
0x0d5b…0d68 at000a = ╱45╱E╱ // 0xd65 @0xa
0x0d5b…0d68 at000b = ╱52╱R╱ // 0xd66 @0xb
0x0d5b…0d68 at000c = EOL // 0xd67 @0xc
0x0d5b…0d68 }
0x0d68…0d6d a35b 01170
0x0d68…0d6d LineComal80 {
0x0d68…0d6d ptr = 0xa35b // 0xd68 @0x0
0x0d68…0d6d lno = 0x0492 // 0xd6a @0x2
0x0d68…0d6d at0004 = EOL // 0xd6c @0x4
0x0d68…0d6d }
0x0d6d…0d80 a36e 01180 PROC TERMINAL_IDX
0x0d6d…0d80 LineComal80 {
0x0d6d…0d80 ptr = 0xa36e // 0xd6d @0x0
0x0d6d…0d80 lno = 0x049c // 0xd6f @0x2
0x0d6d…0d80 at0004 = ╱9e00╱ PROC ╱ // 0xd71 @0x4
0x0d6d…0d80 at0006 = ╱54╱T╱ // 0xd73 @0x6
0x0d6d…0d80 at0007 = ╱45╱E╱ // 0xd74 @0x7
0x0d6d…0d80 at0008 = ╱52╱R╱ // 0xd75 @0x8
0x0d6d…0d80 at0009 = ╱4d╱M╱ // 0xd76 @0x9
0x0d6d…0d80 at000a = ╱49╱I╱ // 0xd77 @0xa
0x0d6d…0d80 at000b = ╱4e╱N╱ // 0xd78 @0xb
0x0d6d…0d80 at000c = ╱41╱A╱ // 0xd79 @0xc
0x0d6d…0d80 at000d = ╱4c╱L╱ // 0xd7a @0xd
0x0d6d…0d80 at000e = ╱5f╱_╱ // 0xd7b @0xe
0x0d6d…0d80 at000f = ╱49╱I╱ // 0xd7c @0xf
0x0d6d…0d80 at0010 = ╱44╱D╱ // 0xd7d @0x10
0x0d6d…0d80 at0011 = ╱58╱X╱ // 0xd7e @0x11
0x0d6d…0d80 at0012 = EOL // 0xd7f @0x12
0x0d6d…0d80 }
0x0d80…0d9a a388 01190 LET PPAR := 5 ; RESRV := 0
0x0d80…0d9a LineComal80 {
0x0d80…0d9a ptr = 0xa388 // 0xd80 @0x0
0x0d80…0d9a lno = 0x04a6 // 0xd82 @0x2
0x0d80…0d9a at0004 = ╱86╱ LET ╱ // 0xd84 @0x4
0x0d80…0d9a at0005 = ╱50╱P╱ // 0xd85 @0x5
0x0d80…0d9a at0006 = ╱50╱P╱ // 0xd86 @0x6
0x0d80…0d9a at0007 = ╱41╱A╱ // 0xd87 @0x7
0x0d80…0d9a at0008 = ╱52╱R╱ // 0xd88 @0x8
0x0d80…0d9a at0009 = ╱f0╱ := ╱ // 0xd89 @0x9
0x0d80…0d9a at000a = ╱35╱5╱ // 0xd8a @0xa
0x0d80…0d9a at000b = ╱f20500╱ // 0xd8b @0xb
0x0d80…0d9a at000e = ╱ea╱ ; ╱ // 0xd8e @0xe
0x0d80…0d9a at000f = ╱52╱R╱ // 0xd8f @0xf
0x0d80…0d9a at0010 = ╱45╱E╱ // 0xd90 @0x10
0x0d80…0d9a at0011 = ╱53╱S╱ // 0xd91 @0x11
0x0d80…0d9a at0012 = ╱52╱R╱ // 0xd92 @0x12
0x0d80…0d9a at0013 = ╱56╱V╱ // 0xd93 @0x13
0x0d80…0d9a at0014 = ╱f0╱ := ╱ // 0xd94 @0x14
0x0d80…0d9a at0015 = ╱30╱0╱ // 0xd95 @0x15
0x0d80…0d9a at0016 = ╱f20000╱ // 0xd96 @0x16
0x0d80…0d9a at0019 = EOL // 0xd99 @0x19
0x0d80…0d9a }
0x0d9a…0dac a39a 01200 CALL J"DDE:PRES"
0x0d9a…0dac LineComal80 {
0x0d9a…0dac ptr = 0xa39a // 0xd9a @0x0
0x0d9a…0dac lno = 0x04b0 // 0xd9c @0x2
0x0d9a…0dac at0004 = ╱ad86╱ CALL ╱ // 0xd9e @0x4
0x0d9a…0dac at0006 = ╱4a╱J╱ // 0xda0 @0x6
0x0d9a…0dac at0007 = ╱22╱"╱ // 0xda1 @0x7
0x0d9a…0dac at0008 = ╱44╱D╱ // 0xda2 @0x8
0x0d9a…0dac at0009 = ╱44╱D╱ // 0xda3 @0x9
0x0d9a…0dac at000a = ╱45╱E╱ // 0xda4 @0xa
0x0d9a…0dac at000b = ╱3a╱:╱ // 0xda5 @0xb
0x0d9a…0dac at000c = ╱50╱P╱ // 0xda6 @0xc
0x0d9a…0dac at000d = ╱52╱R╱ // 0xda7 @0xd
0x0d9a…0dac at000e = ╱45╱E╱ // 0xda8 @0xe
0x0d9a…0dac at000f = ╱53╱S╱ // 0xda9 @0xf
0x0d9a…0dac at0010 = ╱22╱"╱ // 0xdaa @0x10
0x0d9a…0dac at0011 = EOL // 0xdab @0x11
0x0d9a…0dac }
0x0dac…0dd5 a3c3 01210 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x0dac…0dd5 LineComal80 {
0x0dac…0dd5 ptr = 0xa3c3 // 0xdac @0x0
0x0dac…0dd5 lno = 0x04ba // 0xdae @0x2
0x0dac…0dd5 at0004 = ╱a9╱ GET ╱ // 0xdb0 @0x4
0x0dac…0dd5 at0005 = ╱53╱S╱ // 0xdb1 @0x5
0x0dac…0dd5 at0006 = ╱59╱Y╱ // 0xdb2 @0x6
0x0dac…0dd5 at0007 = ╱53╱S╱ // 0xdb3 @0x7
0x0dac…0dd5 at0008 = ╱50╱P╱ // 0xdb4 @0x8
0x0dac…0dd5 at0009 = ╱41╱A╱ // 0xdb5 @0x9
0x0dac…0dd5 at000a = ╱52╱R╱ // 0xdb6 @0xa
0x0dac…0dd5 at000b = ╱41╱A╱ // 0xdb7 @0xb
0x0dac…0dd5 at000c = ╱ef╱ $ ╱ // 0xdb8 @0xc
0x0dac…0dd5 at000d = ╱ec╱ , ╱ // 0xdb9 @0xd
0x0dac…0dd5 at000e = ╱31╱1╱ // 0xdba @0xe
0x0dac…0dd5 at000f = ╱f20100╱ // 0xdbb @0xf
0x0dac…0dd5 at0012 = ╱e5╱ + ╱ // 0xdbe @0x12
0x0dac…0dd5 at0013 = ╱52╱R╱ // 0xdbf @0x13
0x0dac…0dd5 at0014 = ╱45╱E╱ // 0xdc0 @0x14
0x0dac…0dd5 at0015 = ╱53╱S╱ // 0xdc1 @0x15
0x0dac…0dd5 at0016 = ╱52╱R╱ // 0xdc2 @0x16
0x0dac…0dd5 at0017 = ╱56╱V╱ // 0xdc3 @0x17
0x0dac…0dd5 at0018 = ╱f1╱ : ╱ // 0xdc4 @0x18
0x0dac…0dd5 at0019 = ╱44╱D╱ // 0xdc5 @0x19
0x0dac…0dd5 at001a = ╱41╱A╱ // 0xdc6 @0x1a
0x0dac…0dd5 at001b = ╱54╱T╱ // 0xdc7 @0x1b
0x0dac…0dd5 at001c = ╱41╱A╱ // 0xdc8 @0x1c
0x0dac…0dd5 at001d = ╱46╱F╱ // 0xdc9 @0x1d
0x0dac…0dd5 at001e = ╱4c╱L╱ // 0xdca @0x1e
0x0dac…0dd5 at001f = ╱ef╱ $ ╱ // 0xdcb @0x1f
0x0dac…0dd5 at0020 = ╱ec╱ , ╱ // 0xdcc @0x20
0x0dac…0dd5 at0021 = ╱54╱T╱ // 0xdcd @0x21
0x0dac…0dd5 at0022 = ╱5f╱_╱ // 0xdce @0x22
0x0dac…0dd5 at0023 = ╱4b╱K╱ // 0xdcf @0x23
0x0dac…0dd5 at0024 = ╱4f╱O╱ // 0xdd0 @0x24
0x0dac…0dd5 at0025 = ╱44╱D╱ // 0xdd1 @0x25
0x0dac…0dd5 at0026 = ╱45╱E╱ // 0xdd2 @0x26
0x0dac…0dd5 at0027 = ╱ef╱ $ ╱ // 0xdd3 @0x27
0x0dac…0dd5 at0028 = EOL // 0xdd4 @0x28
0x0dac…0dd5 }
0x0dd5…0de7 a3d5 01220 ENDPROC TERMINAL_IDX
0x0dd5…0de7 LineComal80 {
0x0dd5…0de7 ptr = 0xa3d5 // 0xdd5 @0x0
0x0dd5…0de7 lno = 0x04c4 // 0xdd7 @0x2
0x0dd5…0de7 at0004 = ╱9f╱ ENDPROC ╱ // 0xdd9 @0x4
0x0dd5…0de7 at0005 = ╱54╱T╱ // 0xdda @0x5
0x0dd5…0de7 at0006 = ╱45╱E╱ // 0xddb @0x6
0x0dd5…0de7 at0007 = ╱52╱R╱ // 0xddc @0x7
0x0dd5…0de7 at0008 = ╱4d╱M╱ // 0xddd @0x8
0x0dd5…0de7 at0009 = ╱49╱I╱ // 0xdde @0x9
0x0dd5…0de7 at000a = ╱4e╱N╱ // 0xddf @0xa
0x0dd5…0de7 at000b = ╱41╱A╱ // 0xde0 @0xb
0x0dd5…0de7 at000c = ╱4c╱L╱ // 0xde1 @0xc
0x0dd5…0de7 at000d = ╱5f╱_╱ // 0xde2 @0xd
0x0dd5…0de7 at000e = ╱49╱I╱ // 0xde3 @0xe
0x0dd5…0de7 at000f = ╱44╱D╱ // 0xde4 @0xf
0x0dd5…0de7 at0010 = ╱58╱X╱ // 0xde5 @0x10
0x0dd5…0de7 at0011 = EOL // 0xde6 @0x11
0x0dd5…0de7 }
0x0de7…0dec a3da 01230
0x0de7…0dec LineComal80 {
0x0de7…0dec ptr = 0xa3da // 0xde7 @0x0
0x0de7…0dec lno = 0x04ce // 0xde9 @0x2
0x0de7…0dec at0004 = EOL // 0xdeb @0x4
0x0de7…0dec }
0x0dec…0e07 a3f5 01240 PROC OPENFIL ( FNAVN $ , WAY $ )
0x0dec…0e07 LineComal80 {
0x0dec…0e07 ptr = 0xa3f5 // 0xdec @0x0
0x0dec…0e07 lno = 0x04d8 // 0xdee @0x2
0x0dec…0e07 at0004 = ╱9e00╱ PROC ╱ // 0xdf0 @0x4
0x0dec…0e07 at0006 = ╱4f╱O╱ // 0xdf2 @0x6
0x0dec…0e07 at0007 = ╱50╱P╱ // 0xdf3 @0x7
0x0dec…0e07 at0008 = ╱45╱E╱ // 0xdf4 @0x8
0x0dec…0e07 at0009 = ╱4e╱N╱ // 0xdf5 @0x9
0x0dec…0e07 at000a = ╱46╱F╱ // 0xdf6 @0xa
0x0dec…0e07 at000b = ╱49╱I╱ // 0xdf7 @0xb
0x0dec…0e07 at000c = ╱4c╱L╱ // 0xdf8 @0xc
0x0dec…0e07 at000d = ╱ed╱ ( ╱ // 0xdf9 @0xd
0x0dec…0e07 at000e = ╱46╱F╱ // 0xdfa @0xe
0x0dec…0e07 at000f = ╱4e╱N╱ // 0xdfb @0xf
0x0dec…0e07 at0010 = ╱41╱A╱ // 0xdfc @0x10
0x0dec…0e07 at0011 = ╱56╱V╱ // 0xdfd @0x11
0x0dec…0e07 at0012 = ╱4e╱N╱ // 0xdfe @0x12
0x0dec…0e07 at0013 = ╱ef╱ $ ╱ // 0xdff @0x13
0x0dec…0e07 at0014 = ╱ec╱ , ╱ // 0xe00 @0x14
0x0dec…0e07 at0015 = ╱57╱W╱ // 0xe01 @0x15
0x0dec…0e07 at0016 = ╱41╱A╱ // 0xe02 @0x16
0x0dec…0e07 at0017 = ╱59╱Y╱ // 0xe03 @0x17
0x0dec…0e07 at0018 = ╱ef╱ $ ╱ // 0xe04 @0x18
0x0dec…0e07 at0019 = ╱ee╱ ) ╱ // 0xe05 @0x19
0x0dec…0e07 at001a = EOL // 0xe06 @0x1a
0x0dec…0e07 }
0x0e07…0e0e a3fc 01250 REPEAT
0x0e07…0e0e LineComal80 {
0x0e07…0e0e ptr = 0xa3fc // 0xe07 @0x0
0x0e07…0e0e lno = 0x04e2 // 0xe09 @0x2
0x0e07…0e0e at0004 = ╱9700╱ REPEAT ╱ // 0xe0b @0x4
0x0e07…0e0e at0006 = EOL // 0xe0d @0x6
0x0e07…0e0e }
0x0e0e…0e27 a415 01260 IF AY $ = "W" OR WAY $ = "w" THEN
0x0e0e…0e27 LineComal80 {
0x0e0e…0e27 ptr = 0xa415 // 0xe0e @0x0
0x0e0e…0e27 lno = 0x04ec // 0xe10 @0x2
0x0e0e…0e27 at0004 = ╱9b0057╱ IF ╱ // 0xe12 @0x4
0x0e0e…0e27 at0007 = ╱41╱A╱ // 0xe15 @0x7
0x0e0e…0e27 at0008 = ╱59╱Y╱ // 0xe16 @0x8
0x0e0e…0e27 at0009 = ╱ef╱ $ ╱ // 0xe17 @0x9
0x0e0e…0e27 at000a = ╱df╱ = ╱ // 0xe18 @0xa
0x0e0e…0e27 at000b = ╱22╱"╱ // 0xe19 @0xb
0x0e0e…0e27 at000c = ╱57╱W╱ // 0xe1a @0xc
0x0e0e…0e27 at000d = ╱22╱"╱ // 0xe1b @0xd
0x0e0e…0e27 at000e = ╱d8╱ OR ╱ // 0xe1c @0xe
0x0e0e…0e27 at000f = ╱57╱W╱ // 0xe1d @0xf
0x0e0e…0e27 at0010 = ╱41╱A╱ // 0xe1e @0x10
0x0e0e…0e27 at0011 = ╱59╱Y╱ // 0xe1f @0x11
0x0e0e…0e27 at0012 = ╱ef╱ $ ╱ // 0xe20 @0x12
0x0e0e…0e27 at0013 = ╱df╱ = ╱ // 0xe21 @0x13
0x0e0e…0e27 at0014 = ╱22╱"╱ // 0xe22 @0x14
0x0e0e…0e27 at0015 = ╱77╱w╱ // 0xe23 @0x15
0x0e0e…0e27 at0016 = ╱22╱"╱ // 0xe24 @0x16
0x0e0e…0e27 at0017 = ╱b5╱ THEN ╱ // 0xe25 @0x17
0x0e0e…0e27 at0018 = EOL // 0xe26 @0x18
0x0e0e…0e27 }
0x0e27…0e35 a423 01270 OPEN FNAVN $ , W
0x0e27…0e35 LineComal80 {
0x0e27…0e35 ptr = 0xa423 // 0xe27 @0x0
0x0e27…0e35 lno = 0x04f6 // 0xe29 @0x2
0x0e27…0e35 at0004 = ╱a7╱ OPEN ╱ // 0xe2b @0x4
0x0e27…0e35 at0005 = ╱46╱F╱ // 0xe2c @0x5
0x0e27…0e35 at0006 = ╱4e╱N╱ // 0xe2d @0x6
0x0e27…0e35 at0007 = ╱41╱A╱ // 0xe2e @0x7
0x0e27…0e35 at0008 = ╱56╱V╱ // 0xe2f @0x8
0x0e27…0e35 at0009 = ╱4e╱N╱ // 0xe30 @0x9
0x0e27…0e35 at000a = ╱ef╱ $ ╱ // 0xe31 @0xa
0x0e27…0e35 at000b = ╱ec╱ , ╱ // 0xe32 @0xb
0x0e27…0e35 at000c = ╱57╱W╱ // 0xe33 @0xc
0x0e27…0e35 at000d = EOL // 0xe34 @0xd
0x0e27…0e35 }
0x0e35…0e3c a42a 01280 ELSE
0x0e35…0e3c LineComal80 {
0x0e35…0e3c ptr = 0xa42a // 0xe35 @0x0
0x0e35…0e3c lno = 0x0500 // 0xe37 @0x2
0x0e35…0e3c at0004 = ╱9a00╱ ELSE ╱ // 0xe39 @0x4
0x0e35…0e3c at0006 = EOL // 0xe3b @0x6
0x0e35…0e3c }
0x0e3c…0e4a a438 01290 OPEN FNAVN $ , R
0x0e3c…0e4a LineComal80 {
0x0e3c…0e4a ptr = 0xa438 // 0xe3c @0x0
0x0e3c…0e4a lno = 0x050a // 0xe3e @0x2
0x0e3c…0e4a at0004 = ╱a7╱ OPEN ╱ // 0xe40 @0x4
0x0e3c…0e4a at0005 = ╱46╱F╱ // 0xe41 @0x5
0x0e3c…0e4a at0006 = ╱4e╱N╱ // 0xe42 @0x6
0x0e3c…0e4a at0007 = ╱41╱A╱ // 0xe43 @0x7
0x0e3c…0e4a at0008 = ╱56╱V╱ // 0xe44 @0x8
0x0e3c…0e4a at0009 = ╱4e╱N╱ // 0xe45 @0x9
0x0e3c…0e4a at000a = ╱ef╱ $ ╱ // 0xe46 @0xa
0x0e3c…0e4a at000b = ╱ec╱ , ╱ // 0xe47 @0xb
0x0e3c…0e4a at000c = ╱52╱R╱ // 0xe48 @0xc
0x0e3c…0e4a at000d = EOL // 0xe49 @0xd
0x0e3c…0e4a }
0x0e4a…0e50 a43e 01300 ENDIF
0x0e4a…0e50 LineComal80 {
0x0e4a…0e50 ptr = 0xa43e // 0xe4a @0x0
0x0e4a…0e50 lno = 0x0514 // 0xe4c @0x2
0x0e4a…0e50 at0004 = ╱9c╱ ENDIF ╱ // 0xe4e @0x4
0x0e4a…0e50 at0005 = EOL // 0xe4f @0x5
0x0e4a…0e50 }
0x0e50…0e61 a44f 01310 IF ( FNAVN $ ) THEN
0x0e50…0e61 LineComal80 {
0x0e50…0e61 ptr = 0xa44f // 0xe50 @0x0
0x0e50…0e61 lno = 0x051e // 0xe52 @0x2
0x0e50…0e61 at0004 = ╱9b00cd╱ IF ╱ // 0xe54 @0x4
0x0e50…0e61 at0007 = ╱ed╱ ( ╱ // 0xe57 @0x7
0x0e50…0e61 at0008 = ╱46╱F╱ // 0xe58 @0x8
0x0e50…0e61 at0009 = ╱4e╱N╱ // 0xe59 @0x9
0x0e50…0e61 at000a = ╱41╱A╱ // 0xe5a @0xa
0x0e50…0e61 at000b = ╱56╱V╱ // 0xe5b @0xb
0x0e50…0e61 at000c = ╱4e╱N╱ // 0xe5c @0xc
0x0e50…0e61 at000d = ╱ef╱ $ ╱ // 0xe5d @0xd
0x0e50…0e61 at000e = ╱ee╱ ) ╱ // 0xe5e @0xe
0x0e50…0e61 at000f = ╱b5╱ THEN ╱ // 0xe5f @0xf
0x0e50…0e61 at0010 = EOL // 0xe60 @0x10
0x0e50…0e61 }
0x0e61…0e79 a467 01320 PRINT "<SC0123>" ; CHR$ ( 7 )
0x0e61…0e79 LineComal80 {
0x0e61…0e79 ptr = 0xa467 // 0xe61 @0x0
0x0e61…0e79 lno = 0x0528 // 0xe63 @0x2
0x0e61…0e79 at0004 = ╱92╱ PRINT ╱ // 0xe65 @0x4
0x0e61…0e79 at0005 = ╱22╱"╱ // 0xe66 @0x5
0x0e61…0e79 at0006 = ╱3c╱<╱ // 0xe67 @0x6
0x0e61…0e79 at0007 = ╱53╱S╱ // 0xe68 @0x7
0x0e61…0e79 at0008 = ╱43╱C╱ // 0xe69 @0x8
0x0e61…0e79 at0009 = ╱30╱0╱ // 0xe6a @0x9
0x0e61…0e79 at000a = ╱31╱1╱ // 0xe6b @0xa
0x0e61…0e79 at000b = ╱32╱2╱ // 0xe6c @0xb
0x0e61…0e79 at000c = ╱33╱3╱ // 0xe6d @0xc
0x0e61…0e79 at000d = ╱3e╱>╱ // 0xe6e @0xd
0x0e61…0e79 at000e = ╱22╱"╱ // 0xe6f @0xe
0x0e61…0e79 at000f = ╱ea╱ ; ╱ // 0xe70 @0xf
0x0e61…0e79 at0010 = ╱d0╱ CHR$ ╱ // 0xe71 @0x10
0x0e61…0e79 at0011 = ╱ed╱ ( ╱ // 0xe72 @0x11
0x0e61…0e79 at0012 = ╱37╱7╱ // 0xe73 @0x12
0x0e61…0e79 at0013 = ╱f20700╱ // 0xe74 @0x13
0x0e61…0e79 at0016 = ╱ee╱ ) ╱ // 0xe77 @0x16
0x0e61…0e79 at0017 = EOL // 0xe78 @0x17
0x0e61…0e79 }
0x0e79…0e8f a47d 01330 IF ( FNAVN $ ) = 6 THEN
0x0e79…0e8f LineComal80 {
0x0e79…0e8f ptr = 0xa47d // 0xe79 @0x0
0x0e79…0e8f lno = 0x0532 // 0xe7b @0x2
0x0e79…0e8f at0004 = ╱9b00cd╱ IF ╱ // 0xe7d @0x4
0x0e79…0e8f at0007 = ╱ed╱ ( ╱ // 0xe80 @0x7
0x0e79…0e8f at0008 = ╱46╱F╱ // 0xe81 @0x8
0x0e79…0e8f at0009 = ╱4e╱N╱ // 0xe82 @0x9
0x0e79…0e8f at000a = ╱41╱A╱ // 0xe83 @0xa
0x0e79…0e8f at000b = ╱56╱V╱ // 0xe84 @0xb
0x0e79…0e8f at000c = ╱4e╱N╱ // 0xe85 @0xc
0x0e79…0e8f at000d = ╱ef╱ $ ╱ // 0xe86 @0xd
0x0e79…0e8f at000e = ╱ee╱ ) ╱ // 0xe87 @0xe
0x0e79…0e8f at000f = ╱df╱ = ╱ // 0xe88 @0xf
0x0e79…0e8f at0010 = ╱36╱6╱ // 0xe89 @0x10
0x0e79…0e8f at0011 = ╱f20600╱ // 0xe8a @0x11
0x0e79…0e8f at0014 = ╱b5╱ THEN ╱ // 0xe8d @0x14
0x0e79…0e8f at0015 = EOL // 0xe8e @0x15
0x0e79…0e8f }
0x0e8f…0ed4 a4c2 01340 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x0e8f…0ed4 LineComal80 {
0x0e8f…0ed4 ptr = 0xa4c2 // 0xe8f @0x0
0x0e8f…0ed4 lno = 0x053c // 0xe91 @0x2
0x0e8f…0ed4 at0004 = ╱92╱ PRINT ╱ // 0xe93 @0x4
0x0e8f…0ed4 at0005 = ╱22╱"╱ // 0xe94 @0x5
0x0e8f…0ed4 at0006 = ╱3c╱<╱ // 0xe95 @0x6
0x0e8f…0ed4 at0007 = ╱53╱S╱ // 0xe96 @0x7
0x0e8f…0ed4 at0008 = ╱43╱C╱ // 0xe97 @0x8
0x0e8f…0ed4 at0009 = ╱31╱1╱ // 0xe98 @0x9
0x0e8f…0ed4 at000a = ╱36╱6╱ // 0xe99 @0xa
0x0e8f…0ed4 at000b = ╱30╱0╱ // 0xe9a @0xb
0x0e8f…0ed4 at000c = ╱32╱2╱ // 0xe9b @0xc
0x0e8f…0ed4 at000d = ╱3e╱>╱ // 0xe9c @0xd
0x0e8f…0ed4 at000e = ╱2a╱*╱ // 0xe9d @0xe
0x0e8f…0ed4 at000f = ╱2a╱*╱ // 0xe9e @0xf
0x0e8f…0ed4 at0010 = ╱2a╱*╱ // 0xe9f @0x10
0x0e8f…0ed4 at0011 = ╱20╱…╱ // 0xea0 @0x11
0x0e8f…0ed4 at0012 = ╱46╱F╱ // 0xea1 @0x12
0x0e8f…0ed4 at0013 = ╱65╱e╱ // 0xea2 @0x13
0x0e8f…0ed4 at0014 = ╱6a╱j╱ // 0xea3 @0x14
0x0e8f…0ed4 at0015 = ╱6c╱l╱ // 0xea4 @0x15
0x0e8f…0ed4 at0016 = ╱20╱…╱ // 0xea5 @0x16
0x0e8f…0ed4 at0017 = ╱6e╱n╱ // 0xea6 @0x17
0x0e8f…0ed4 at0018 = ╱72╱r╱ // 0xea7 @0x18
0x0e8f…0ed4 at0019 = ╱2e╱.╱ // 0xea8 @0x19
0x0e8f…0ed4 at001a = ╱20╱…╱ // 0xea9 @0x1a
0x0e8f…0ed4 at001b = ╱36╱6╱ // 0xeaa @0x1b
0x0e8f…0ed4 at001c = ╱20╱…╱ // 0xeab @0x1c
0x0e8f…0ed4 at001d = ╱2d╱-╱ // 0xeac @0x1d
0x0e8f…0ed4 at001e = ╱20╱…╱ // 0xead @0x1e
0x0e8f…0ed4 at001f = ╱69╱i╱ // 0xeae @0x1f
0x0e8f…0ed4 at0020 = ╱6e╱n╱ // 0xeaf @0x20
0x0e8f…0ed4 at0021 = ╱64╱d╱ // 0xeb0 @0x21
0x0e8f…0ed4 at0022 = ╱73╱s╱ // 0xeb1 @0x22
0x0e8f…0ed4 at0023 = ╱7b╱{╱ // 0xeb2 @0x23
0x0e8f…0ed4 at0024 = ╱74╱t╱ // 0xeb3 @0x24
0x0e8f…0ed4 at0025 = ╱20╱…╱ // 0xeb4 @0x25
0x0e8f…0ed4 at0026 = ╱64╱d╱ // 0xeb5 @0x26
0x0e8f…0ed4 at0027 = ╱69╱i╱ // 0xeb6 @0x27
0x0e8f…0ed4 at0028 = ╱73╱s╱ // 0xeb7 @0x28
0x0e8f…0ed4 at0029 = ╱6b╱k╱ // 0xeb8 @0x29
0x0e8f…0ed4 at002a = ╱65╱e╱ // 0xeb9 @0x2a
0x0e8f…0ed4 at002b = ╱74╱t╱ // 0xeba @0x2b
0x0e8f…0ed4 at002c = ╱74╱t╱ // 0xebb @0x2c
0x0e8f…0ed4 at002d = ╱65╱e╱ // 0xebc @0x2d
0x0e8f…0ed4 at002e = ╱20╱…╱ // 0xebd @0x2e
0x0e8f…0ed4 at002f = ╱6f╱o╱ // 0xebe @0x2f
0x0e8f…0ed4 at0030 = ╱67╱g╱ // 0xebf @0x30
0x0e8f…0ed4 at0031 = ╱20╱…╱ // 0xec0 @0x31
0x0e8f…0ed4 at0032 = ╱74╱t╱ // 0xec1 @0x32
0x0e8f…0ed4 at0033 = ╱72╱r╱ // 0xec2 @0x33
0x0e8f…0ed4 at0034 = ╱79╱y╱ // 0xec3 @0x34
0x0e8f…0ed4 at0035 = ╱6b╱k╱ // 0xec4 @0x35
0x0e8f…0ed4 at0036 = ╱20╱…╱ // 0xec5 @0x36
0x0e8f…0ed4 at0037 = ╱3c╱<╱ // 0xec6 @0x37
0x0e8f…0ed4 at0038 = ╱52╱R╱ // 0xec7 @0x38
0x0e8f…0ed4 at0039 = ╱45╱E╱ // 0xec8 @0x39
0x0e8f…0ed4 at003a = ╱54╱T╱ // 0xec9 @0x3a
0x0e8f…0ed4 at003b = ╱55╱U╱ // 0xeca @0x3b
0x0e8f…0ed4 at003c = ╱52╱R╱ // 0xecb @0x3c
0x0e8f…0ed4 at003d = ╱4e╱N╱ // 0xecc @0x3d
0x0e8f…0ed4 at003e = ╱3e╱>╱ // 0xecd @0x3e
0x0e8f…0ed4 at003f = ╱20╱…╱ // 0xece @0x3f
0x0e8f…0ed4 at0040 = ╱2a╱*╱ // 0xecf @0x40
0x0e8f…0ed4 at0041 = ╱2a╱*╱ // 0xed0 @0x41
0x0e8f…0ed4 at0042 = ╱2a╱*╱ // 0xed1 @0x42
0x0e8f…0ed4 at0043 = ╱22╱"╱ // 0xed2 @0x43
0x0e8f…0ed4 at0044 = EOL // 0xed3 @0x44
0x0e8f…0ed4 }
0x0ed4…0ee2 a4d0 01350 INPUT "" : SVAR $
0x0ed4…0ee2 LineComal80 {
0x0ed4…0ee2 ptr = 0xa4d0 // 0xed4 @0x0
0x0ed4…0ee2 lno = 0x0546 // 0xed6 @0x2
0x0ed4…0ee2 at0004 = ╱91╱ INPUT ╱ // 0xed8 @0x4
0x0ed4…0ee2 at0005 = ╱22╱"╱ // 0xed9 @0x5
0x0ed4…0ee2 at0006 = ╱22╱"╱ // 0xeda @0x6
0x0ed4…0ee2 at0007 = ╱f1╱ : ╱ // 0xedb @0x7
0x0ed4…0ee2 at0008 = ╱53╱S╱ // 0xedc @0x8
0x0ed4…0ee2 at0009 = ╱56╱V╱ // 0xedd @0x9
0x0ed4…0ee2 at000a = ╱41╱A╱ // 0xede @0xa
0x0ed4…0ee2 at000b = ╱52╱R╱ // 0xedf @0xb
0x0ed4…0ee2 at000c = ╱ef╱ $ ╱ // 0xee0 @0xc
0x0ed4…0ee2 at000d = EOL // 0xee1 @0xd
0x0ed4…0ee2 }
0x0ee2…0ee9 a4d7 01360 ELSE
0x0ee2…0ee9 LineComal80 {
0x0ee2…0ee9 ptr = 0xa4d7 // 0xee2 @0x0
0x0ee2…0ee9 lno = 0x0550 // 0xee4 @0x2
0x0ee2…0ee9 at0004 = ╱9a00╱ ELSE ╱ // 0xee6 @0x4
0x0ee2…0ee9 at0006 = EOL // 0xee8 @0x6
0x0ee2…0ee9 }
0x0ee9…0f2a a518 01370 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x0ee9…0f2a LineComal80 {
0x0ee9…0f2a ptr = 0xa518 // 0xee9 @0x0
0x0ee9…0f2a lno = 0x055a // 0xeeb @0x2
0x0ee9…0f2a at0004 = ╱92╱ PRINT ╱ // 0xeed @0x4
0x0ee9…0f2a at0005 = ╱22╱"╱ // 0xeee @0x5
0x0ee9…0f2a at0006 = ╱3c╱<╱ // 0xeef @0x6
0x0ee9…0f2a at0007 = ╱53╱S╱ // 0xef0 @0x7
0x0ee9…0f2a at0008 = ╱43╱C╱ // 0xef1 @0x8
0x0ee9…0f2a at0009 = ╱31╱1╱ // 0xef2 @0x9
0x0ee9…0f2a at000a = ╱38╱8╱ // 0xef3 @0xa
0x0ee9…0f2a at000b = ╱30╱0╱ // 0xef4 @0xb
0x0ee9…0f2a at000c = ╱32╱2╱ // 0xef5 @0xc
0x0ee9…0f2a at000d = ╱3e╱>╱ // 0xef6 @0xd
0x0ee9…0f2a at000e = ╱2a╱*╱ // 0xef7 @0xe
0x0ee9…0f2a at000f = ╱2a╱*╱ // 0xef8 @0xf
0x0ee9…0f2a at0010 = ╱2a╱*╱ // 0xef9 @0x10
0x0ee9…0f2a at0011 = ╱20╱…╱ // 0xefa @0x11
0x0ee9…0f2a at0012 = ╱46╱F╱ // 0xefb @0x12
0x0ee9…0f2a at0013 = ╱65╱e╱ // 0xefc @0x13
0x0ee9…0f2a at0014 = ╱6a╱j╱ // 0xefd @0x14
0x0ee9…0f2a at0015 = ╱6c╱l╱ // 0xefe @0x15
0x0ee9…0f2a at0016 = ╱20╱…╱ // 0xeff @0x16
0x0ee9…0f2a at0017 = ╱6e╱n╱ // 0xf00 @0x17
0x0ee9…0f2a at0018 = ╱72╱r╱ // 0xf01 @0x18
0x0ee9…0f2a at0019 = ╱2e╱.╱ // 0xf02 @0x19
0x0ee9…0f2a at001a = ╱20╱…╱ // 0xf03 @0x1a
0x0ee9…0f2a at001b = ╱22╱"╱ // 0xf04 @0x1b
0x0ee9…0f2a at001c = ╱ea╱ ; ╱ // 0xf05 @0x1c
0x0ee9…0f2a at001d = ╱d0╱ CHR$ ╱ // 0xf06 @0x1d
0x0ee9…0f2a at001e = ╱ed╱ ( ╱ // 0xf07 @0x1e
0x0ee9…0f2a at001f = ╱cd╱ // 0xf08 @0x1f
0x0ee9…0f2a at0020 = ╱ed╱ ( ╱ // 0xf09 @0x20
0x0ee9…0f2a at0021 = ╱46╱F╱ // 0xf0a @0x21
0x0ee9…0f2a at0022 = ╱4e╱N╱ // 0xf0b @0x22
0x0ee9…0f2a at0023 = ╱41╱A╱ // 0xf0c @0x23
0x0ee9…0f2a at0024 = ╱56╱V╱ // 0xf0d @0x24
0x0ee9…0f2a at0025 = ╱4e╱N╱ // 0xf0e @0x25
0x0ee9…0f2a at0026 = ╱ef╱ $ ╱ // 0xf0f @0x26
0x0ee9…0f2a at0027 = ╱ee╱ ) ╱ // 0xf10 @0x27
0x0ee9…0f2a at0028 = ╱ec╱ , ╱ // 0xf11 @0x28
0x0ee9…0f2a at0029 = ╱32╱2╱ // 0xf12 @0x29
0x0ee9…0f2a at002a = ╱f20200╱ // 0xf13 @0x2a
0x0ee9…0f2a at002d = ╱ee╱ ) ╱ // 0xf16 @0x2d
0x0ee9…0f2a at002e = ╱ea╱ ; ╱ // 0xf17 @0x2e
0x0ee9…0f2a at002f = ╱22╱"╱ // 0xf18 @0x2f
0x0ee9…0f2a at0030 = ╱20╱…╱ // 0xf19 @0x30
0x0ee9…0f2a at0031 = ╱76╱v╱ // 0xf1a @0x31
0x0ee9…0f2a at0032 = ╱65╱e╱ // 0xf1b @0x32
0x0ee9…0f2a at0033 = ╱64╱d╱ // 0xf1c @0x33
0x0ee9…0f2a at0034 = ╱20╱…╱ // 0xf1d @0x34
0x0ee9…0f2a at0035 = ╱7d╱}╱ // 0xf1e @0x35
0x0ee9…0f2a at0036 = ╱62╱b╱ // 0xf1f @0x36
0x0ee9…0f2a at0037 = ╱6e╱n╱ // 0xf20 @0x37
0x0ee9…0f2a at0038 = ╱69╱i╱ // 0xf21 @0x38
0x0ee9…0f2a at0039 = ╱6e╱n╱ // 0xf22 @0x39
0x0ee9…0f2a at003a = ╱67╱g╱ // 0xf23 @0x3a
0x0ee9…0f2a at003b = ╱20╱…╱ // 0xf24 @0x3b
0x0ee9…0f2a at003c = ╱61╱a╱ // 0xf25 @0x3c
0x0ee9…0f2a at003d = ╱66╱f╱ // 0xf26 @0x3d
0x0ee9…0f2a at003e = ╱20╱…╱ // 0xf27 @0x3e
0x0ee9…0f2a at003f = ╱22╱"╱ // 0xf28 @0x3f
0x0ee9…0f2a at0040 = EOL // 0xf29 @0x40
0x0ee9…0f2a }
0x0f2a…0f43 a531 01380 PRINT "<S>" ; FNAVN $ ; "…***"
0x0f2a…0f43 LineComal80 {
0x0f2a…0f43 ptr = 0xa531 // 0xf2a @0x0
0x0f2a…0f43 lno = 0x0564 // 0xf2c @0x2
0x0f2a…0f43 at0004 = ╱92╱ PRINT ╱ // 0xf2e @0x4
0x0f2a…0f43 at0005 = ╱22╱"╱ // 0xf2f @0x5
0x0f2a…0f43 at0006 = ╱3c╱<╱ // 0xf30 @0x6
0x0f2a…0f43 at0007 = ╱53╱S╱ // 0xf31 @0x7
0x0f2a…0f43 at0008 = ╱3e╱>╱ // 0xf32 @0x8
0x0f2a…0f43 at0009 = ╱22╱"╱ // 0xf33 @0x9
0x0f2a…0f43 at000a = ╱ea╱ ; ╱ // 0xf34 @0xa
0x0f2a…0f43 at000b = ╱46╱F╱ // 0xf35 @0xb
0x0f2a…0f43 at000c = ╱4e╱N╱ // 0xf36 @0xc
0x0f2a…0f43 at000d = ╱41╱A╱ // 0xf37 @0xd
0x0f2a…0f43 at000e = ╱56╱V╱ // 0xf38 @0xe
0x0f2a…0f43 at000f = ╱4e╱N╱ // 0xf39 @0xf
0x0f2a…0f43 at0010 = ╱ef╱ $ ╱ // 0xf3a @0x10
0x0f2a…0f43 at0011 = ╱ea╱ ; ╱ // 0xf3b @0x11
0x0f2a…0f43 at0012 = ╱22╱"╱ // 0xf3c @0x12
0x0f2a…0f43 at0013 = ╱20╱…╱ // 0xf3d @0x13
0x0f2a…0f43 at0014 = ╱2a╱*╱ // 0xf3e @0x14
0x0f2a…0f43 at0015 = ╱2a╱*╱ // 0xf3f @0x15
0x0f2a…0f43 at0016 = ╱2a╱*╱ // 0xf40 @0x16
0x0f2a…0f43 at0017 = ╱22╱"╱ // 0xf41 @0x17
0x0f2a…0f43 at0018 = EOL // 0xf42 @0x18
0x0f2a…0f43 }
0x0f43…0f51 a53f 01390 INPUT "" : SVAR $
0x0f43…0f51 LineComal80 {
0x0f43…0f51 ptr = 0xa53f // 0xf43 @0x0
0x0f43…0f51 lno = 0x056e // 0xf45 @0x2
0x0f43…0f51 at0004 = ╱91╱ INPUT ╱ // 0xf47 @0x4
0x0f43…0f51 at0005 = ╱22╱"╱ // 0xf48 @0x5
0x0f43…0f51 at0006 = ╱22╱"╱ // 0xf49 @0x6
0x0f43…0f51 at0007 = ╱f1╱ : ╱ // 0xf4a @0x7
0x0f43…0f51 at0008 = ╱53╱S╱ // 0xf4b @0x8
0x0f43…0f51 at0009 = ╱56╱V╱ // 0xf4c @0x9
0x0f43…0f51 at000a = ╱41╱A╱ // 0xf4d @0xa
0x0f43…0f51 at000b = ╱52╱R╱ // 0xf4e @0xb
0x0f43…0f51 at000c = ╱ef╱ $ ╱ // 0xf4f @0xc
0x0f43…0f51 at000d = EOL // 0xf50 @0xd
0x0f43…0f51 }
0x0f51…0f65 a553 01400 PRINT "<C0102>" ; SPC $
0x0f51…0f65 LineComal80 {
0x0f51…0f65 ptr = 0xa553 // 0xf51 @0x0
0x0f51…0f65 lno = 0x0578 // 0xf53 @0x2
0x0f51…0f65 at0004 = ╱92╱ PRINT ╱ // 0xf55 @0x4
0x0f51…0f65 at0005 = ╱22╱"╱ // 0xf56 @0x5
0x0f51…0f65 at0006 = ╱3c╱<╱ // 0xf57 @0x6
0x0f51…0f65 at0007 = ╱43╱C╱ // 0xf58 @0x7
0x0f51…0f65 at0008 = ╱30╱0╱ // 0xf59 @0x8
0x0f51…0f65 at0009 = ╱31╱1╱ // 0xf5a @0x9
0x0f51…0f65 at000a = ╱30╱0╱ // 0xf5b @0xa
0x0f51…0f65 at000b = ╱32╱2╱ // 0xf5c @0xb
0x0f51…0f65 at000c = ╱3e╱>╱ // 0xf5d @0xc
0x0f51…0f65 at000d = ╱22╱"╱ // 0xf5e @0xd
0x0f51…0f65 at000e = ╱ea╱ ; ╱ // 0xf5f @0xe
0x0f51…0f65 at000f = ╱53╱S╱ // 0xf60 @0xf
0x0f51…0f65 at0010 = ╱50╱P╱ // 0xf61 @0x10
0x0f51…0f65 at0011 = ╱43╱C╱ // 0xf62 @0x11
0x0f51…0f65 at0012 = ╱ef╱ $ ╱ // 0xf63 @0x12
0x0f51…0f65 at0013 = EOL // 0xf64 @0x13
0x0f51…0f65 }
0x0f65…0f6b a559 01410 ENDIF
0x0f65…0f6b LineComal80 {
0x0f65…0f6b ptr = 0xa559 // 0xf65 @0x0
0x0f65…0f6b lno = 0x0582 // 0xf67 @0x2
0x0f65…0f6b at0004 = ╱9c╱ ENDIF ╱ // 0xf69 @0x4
0x0f65…0f6b at0005 = EOL // 0xf6a @0x5
0x0f65…0f6b }
0x0f6b…0f71 a55f 01420 ENDIF
0x0f6b…0f71 LineComal80 {
0x0f6b…0f71 ptr = 0xa55f // 0xf6b @0x0
0x0f6b…0f71 lno = 0x058c // 0xf6d @0x2
0x0f6b…0f71 at0004 = ╱9c╱ ENDIF ╱ // 0xf6f @0x4
0x0f6b…0f71 at0005 = EOL // 0xf70 @0x5
0x0f6b…0f71 }
0x0f71…0f81 a56f 01430 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x0f71…0f81 LineComal80 {
0x0f71…0f81 ptr = 0xa56f // 0xf71 @0x0
0x0f71…0f81 lno = 0x0596 // 0xf73 @0x2
0x0f71…0f81 at0004 = ╱98╱ UNTIL ╱ // 0xf75 @0x4
0x0f71…0f81 at0005 = ╱d7╱ NOT ╱ // 0xf76 @0x5
0x0f71…0f81 at0006 = ╱cd╱ // 0xf77 @0x6
0x0f71…0f81 at0007 = ╱ed╱ ( ╱ // 0xf78 @0x7
0x0f71…0f81 at0008 = ╱46╱F╱ // 0xf79 @0x8
0x0f71…0f81 at0009 = ╱4e╱N╱ // 0xf7a @0x9
0x0f71…0f81 at000a = ╱41╱A╱ // 0xf7b @0xa
0x0f71…0f81 at000b = ╱56╱V╱ // 0xf7c @0xb
0x0f71…0f81 at000c = ╱4e╱N╱ // 0xf7d @0xc
0x0f71…0f81 at000d = ╱ef╱ $ ╱ // 0xf7e @0xd
0x0f71…0f81 at000e = ╱ee╱ ) ╱ // 0xf7f @0xe
0x0f71…0f81 at000f = EOL // 0xf80 @0xf
0x0f71…0f81 }
0x0f81…0f8e a57c 01440 ENDPROC OPENFIL
0x0f81…0f8e LineComal80 {
0x0f81…0f8e ptr = 0xa57c // 0xf81 @0x0
0x0f81…0f8e lno = 0x05a0 // 0xf83 @0x2
0x0f81…0f8e at0004 = ╱9f╱ ENDPROC ╱ // 0xf85 @0x4
0x0f81…0f8e at0005 = ╱4f╱O╱ // 0xf86 @0x5
0x0f81…0f8e at0006 = ╱50╱P╱ // 0xf87 @0x6
0x0f81…0f8e at0007 = ╱45╱E╱ // 0xf88 @0x7
0x0f81…0f8e at0008 = ╱4e╱N╱ // 0xf89 @0x8
0x0f81…0f8e at0009 = ╱46╱F╱ // 0xf8a @0x9
0x0f81…0f8e at000a = ╱49╱I╱ // 0xf8b @0xa
0x0f81…0f8e at000b = ╱4c╱L╱ // 0xf8c @0xb
0x0f81…0f8e at000c = EOL // 0xf8d @0xc
0x0f81…0f8e }
0x0f8e…0f93 a581 01450
0x0f8e…0f93 LineComal80 {
0x0f8e…0f93 ptr = 0xa581 // 0xf8e @0x0
0x0f8e…0f93 lno = 0x05aa // 0xf90 @0x2
0x0f8e…0f93 at0004 = EOL // 0xf92 @0x4
0x0f8e…0f93 }
0x0f93…0fac a59a 01460 PROC TAL_CONTROL ( REF RST $ )
0x0f93…0fac LineComal80 {
0x0f93…0fac ptr = 0xa59a // 0xf93 @0x0
0x0f93…0fac lno = 0x05b4 // 0xf95 @0x2
0x0f93…0fac at0004 = ╱9e00╱ PROC ╱ // 0xf97 @0x4
0x0f93…0fac at0006 = ╱54╱T╱ // 0xf99 @0x6
0x0f93…0fac at0007 = ╱41╱A╱ // 0xf9a @0x7
0x0f93…0fac at0008 = ╱4c╱L╱ // 0xf9b @0x8
0x0f93…0fac at0009 = ╱5f╱_╱ // 0xf9c @0x9
0x0f93…0fac at000a = ╱43╱C╱ // 0xf9d @0xa
0x0f93…0fac at000b = ╱4f╱O╱ // 0xf9e @0xb
0x0f93…0fac at000c = ╱4e╱N╱ // 0xf9f @0xc
0x0f93…0fac at000d = ╱54╱T╱ // 0xfa0 @0xd
0x0f93…0fac at000e = ╱52╱R╱ // 0xfa1 @0xe
0x0f93…0fac at000f = ╱4f╱O╱ // 0xfa2 @0xf
0x0f93…0fac at0010 = ╱4c╱L╱ // 0xfa3 @0x10
0x0f93…0fac at0011 = ╱ed╱ ( ╱ // 0xfa4 @0x11
0x0f93…0fac at0012 = ╱b6╱ REF ╱ // 0xfa5 @0x12
0x0f93…0fac at0013 = ╱52╱R╱ // 0xfa6 @0x13
0x0f93…0fac at0014 = ╱53╱S╱ // 0xfa7 @0x14
0x0f93…0fac at0015 = ╱54╱T╱ // 0xfa8 @0x15
0x0f93…0fac at0016 = ╱ef╱ $ ╱ // 0xfa9 @0x16
0x0f93…0fac at0017 = ╱ee╱ ) ╱ // 0xfaa @0x17
0x0f93…0fac at0018 = EOL // 0xfab @0x18
0x0f93…0fac }
0x0fac…0fc0 a5ae 01470 LET J := 0 ; OK := TRUE
0x0fac…0fc0 LineComal80 {
0x0fac…0fc0 ptr = 0xa5ae // 0xfac @0x0
0x0fac…0fc0 lno = 0x05be // 0xfae @0x2
0x0fac…0fc0 at0004 = ╱86╱ LET ╱ // 0xfb0 @0x4
0x0fac…0fc0 at0005 = ╱4a╱J╱ // 0xfb1 @0x5
0x0fac…0fc0 at0006 = ╱f0╱ := ╱ // 0xfb2 @0x6
0x0fac…0fc0 at0007 = ╱30╱0╱ // 0xfb3 @0x7
0x0fac…0fc0 at0008 = ╱f20000╱ // 0xfb4 @0x8
0x0fac…0fc0 at000b = ╱ea╱ ; ╱ // 0xfb7 @0xb
0x0fac…0fc0 at000c = ╱4f╱O╱ // 0xfb8 @0xc
0x0fac…0fc0 at000d = ╱4b╱K╱ // 0xfb9 @0xd
0x0fac…0fc0 at000e = ╱f0╱ := ╱ // 0xfba @0xe
0x0fac…0fc0 at000f = ╱54╱T╱ // 0xfbb @0xf
0x0fac…0fc0 at0010 = ╱52╱R╱ // 0xfbc @0x10
0x0fac…0fc0 at0011 = ╱55╱U╱ // 0xfbd @0x11
0x0fac…0fc0 at0012 = ╱45╱E╱ // 0xfbe @0x12
0x0fac…0fc0 at0013 = EOL // 0xfbf @0x13
0x0fac…0fc0 }
0x0fc0…0fd6 a5c4 01480 FOR I := 1 TO ( RST $ ) DO
0x0fc0…0fd6 LineComal80 {
0x0fc0…0fd6 ptr = 0xa5c4 // 0xfc0 @0x0
0x0fc0…0fd6 lno = 0x05c8 // 0xfc2 @0x2
0x0fc0…0fd6 at0004 = ╱8300╱ FOR ╱ // 0xfc4 @0x4
0x0fc0…0fd6 at0006 = ╱49╱I╱ // 0xfc6 @0x6
0x0fc0…0fd6 at0007 = ╱f0╱ := ╱ // 0xfc7 @0x7
0x0fc0…0fd6 at0008 = ╱31╱1╱ // 0xfc8 @0x8
0x0fc0…0fd6 at0009 = ╱f20100╱ // 0xfc9 @0x9
0x0fc0…0fd6 at000c = ╱b7cb╱ TO ╱ // 0xfcc @0xc
0x0fc0…0fd6 at000e = ╱ed╱ ( ╱ // 0xfce @0xe
0x0fc0…0fd6 at000f = ╱52╱R╱ // 0xfcf @0xf
0x0fc0…0fd6 at0010 = ╱53╱S╱ // 0xfd0 @0x10
0x0fc0…0fd6 at0011 = ╱54╱T╱ // 0xfd1 @0x11
0x0fc0…0fd6 at0012 = ╱ef╱ $ ╱ // 0xfd2 @0x12
0x0fc0…0fd6 at0013 = ╱ee╱ ) ╱ // 0xfd3 @0x13
0x0fc0…0fd6 at0014 = ╱bb╱ DO ╱ // 0xfd4 @0x14
0x0fc0…0fd6 at0015 = EOL // 0xfd5 @0x15
0x0fc0…0fd6 }
0x0fd6…1007 a5f5 01490 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
0x0fd6…1007 LineComal80 {
0x0fd6…1007 ptr = 0xa5f5 // 0xfd6 @0x0
0x0fd6…1007 lno = 0x05d2 // 0xfd8 @0x2
0x0fd6…1007 at0004 = ╱8200╱ IF ╱ // 0xfda @0x4
0x0fd6…1007 at0006 = ╱52╱R╱ // 0xfdc @0x6
0x0fd6…1007 at0007 = ╱53╱S╱ // 0xfdd @0x7
0x0fd6…1007 at0008 = ╱54╱T╱ // 0xfde @0x8
0x0fd6…1007 at0009 = ╱ef╱ $ ╱ // 0xfdf @0x9
0x0fd6…1007 at000a = ╱ed╱ ( ╱ // 0xfe0 @0xa
0x0fd6…1007 at000b = ╱49╱I╱ // 0xfe1 @0xb
0x0fd6…1007 at000c = ╱ee╱ ) ╱ // 0xfe2 @0xc
0x0fd6…1007 at000d = ╱dc╱ IN ╱ // 0xfe3 @0xd
0x0fd6…1007 at000e = ╱54╱T╱ // 0xfe4 @0xe
0x0fd6…1007 at000f = ╱41╱A╱ // 0xfe5 @0xf
0x0fd6…1007 at0010 = ╱4c╱L╱ // 0xfe6 @0x10
0x0fd6…1007 at0011 = ╱ef╱ $ ╱ // 0xfe7 @0x11
0x0fd6…1007 at0012 = ╱eb╱ + ╱ // 0xfe8 @0x12
0x0fd6…1007 at0013 = ╱22╱"╱ // 0xfe9 @0x13
0x0fd6…1007 at0014 = ╱2e╱.╱ // 0xfea @0x14
0x0fd6…1007 at0015 = ╱22╱"╱ // 0xfeb @0x15
0x0fd6…1007 at0016 = ╱b5╱ THEN ╱ // 0xfec @0x16
0x0fd6…1007 at0017 = ╱86╱ LET ╱ // 0xfed @0x17
0x0fd6…1007 at0018 = ╱4a╱J╱ // 0xfee @0x18
0x0fd6…1007 at0019 = ╱f0╱ := ╱ // 0xfef @0x19
0x0fd6…1007 at001a = ╱4a╱J╱ // 0xff0 @0x1a
0x0fd6…1007 at001b = ╱e5╱ + ╱ // 0xff1 @0x1b
0x0fd6…1007 at001c = ╱31╱1╱ // 0xff2 @0x1c
0x0fd6…1007 at001d = ╱f20100╱ // 0xff3 @0x1d
0x0fd6…1007 at0020 = ╱ea╱ ; ╱ // 0xff6 @0x20
0x0fd6…1007 at0021 = ╱52╱R╱ // 0xff7 @0x21
0x0fd6…1007 at0022 = ╱53╱S╱ // 0xff8 @0x22
0x0fd6…1007 at0023 = ╱54╱T╱ // 0xff9 @0x23
0x0fd6…1007 at0024 = ╱ef╱ $ ╱ // 0xffa @0x24
0x0fd6…1007 at0025 = ╱ed╱ ( ╱ // 0xffb @0x25
0x0fd6…1007 at0026 = ╱4a╱J╱ // 0xffc @0x26
0x0fd6…1007 at0027 = ╱ee╱ ) ╱ // 0xffd @0x27
0x0fd6…1007 at0028 = ╱f0╱ := ╱ // 0xffe @0x28
0x0fd6…1007 at0029 = ╱52╱R╱ // 0xfff @0x29
0x0fd6…1007 at002a = ╱53╱S╱ // 0x1000 @0x2a
0x0fd6…1007 at002b = ╱54╱T╱ // 0x1001 @0x2b
0x0fd6…1007 at002c = ╱ef╱ $ ╱ // 0x1002 @0x2c
0x0fd6…1007 at002d = ╱ed╱ ( ╱ // 0x1003 @0x2d
0x0fd6…1007 at002e = ╱49╱I╱ // 0x1004 @0x2e
0x0fd6…1007 at002f = ╱ee╱ ) ╱ // 0x1005 @0x2f
0x0fd6…1007 at0030 = EOL // 0x1006 @0x30
0x0fd6…1007 }
0x1007…100e a5fc 01500 NEXT I
0x1007…100e LineComal80 {
0x1007…100e ptr = 0xa5fc // 0x1007 @0x0
0x1007…100e lno = 0x05dc // 0x1009 @0x2
0x1007…100e at0004 = ╱84╱ NEXT ╱ // 0x100b @0x4
0x1007…100e at0005 = ╱49╱I╱ // 0x100c @0x5
0x1007…100e at0006 = EOL // 0x100d @0x6
0x1007…100e }
0x100e…101c a60a 01510 IF = 0 THEN
0x100e…101c LineComal80 {
0x100e…101c ptr = 0xa60a // 0x100e @0x0
0x100e…101c lno = 0x05e6 // 0x1010 @0x2
0x100e…101c at0004 = ╱9b004a╱ IF ╱ // 0x1012 @0x4
0x100e…101c at0007 = ╱df╱ = ╱ // 0x1015 @0x7
0x100e…101c at0008 = ╱30╱0╱ // 0x1016 @0x8
0x100e…101c at0009 = ╱f20000╱ // 0x1017 @0x9
0x100e…101c at000c = ╱b5╱ THEN ╱ // 0x101a @0xc
0x100e…101c at000d = EOL // 0x101b @0xd
0x100e…101c }
0x101c…102a a618 01520 LET OK := FALSE
0x101c…102a LineComal80 {
0x101c…102a ptr = 0xa618 // 0x101c @0x0
0x101c…102a lno = 0x05f0 // 0x101e @0x2
0x101c…102a at0004 = ╱86╱ LET ╱ // 0x1020 @0x4
0x101c…102a at0005 = ╱4f╱O╱ // 0x1021 @0x5
0x101c…102a at0006 = ╱4b╱K╱ // 0x1022 @0x6
0x101c…102a at0007 = ╱f0╱ := ╱ // 0x1023 @0x7
0x101c…102a at0008 = ╱46╱F╱ // 0x1024 @0x8
0x101c…102a at0009 = ╱41╱A╱ // 0x1025 @0x9
0x101c…102a at000a = ╱4c╱L╱ // 0x1026 @0xa
0x101c…102a at000b = ╱53╱S╱ // 0x1027 @0xb
0x101c…102a at000c = ╱45╱E╱ // 0x1028 @0xc
0x101c…102a at000d = EOL // 0x1029 @0xd
0x101c…102a }
0x102a…1031 a61f 01530 ELSE
0x102a…1031 LineComal80 {
0x102a…1031 ptr = 0xa61f // 0x102a @0x0
0x102a…1031 lno = 0x05fa // 0x102c @0x2
0x102a…1031 at0004 = ╱9a00╱ ELSE ╱ // 0x102e @0x4
0x102a…1031 at0006 = EOL // 0x1030 @0x6
0x102a…1031 }
0x1031…1048 a636 01540 LET RST $ := RST $ ( 1 : J )
0x1031…1048 LineComal80 {
0x1031…1048 ptr = 0xa636 // 0x1031 @0x0
0x1031…1048 lno = 0x0604 // 0x1033 @0x2
0x1031…1048 at0004 = ╱86╱ LET ╱ // 0x1035 @0x4
0x1031…1048 at0005 = ╱52╱R╱ // 0x1036 @0x5
0x1031…1048 at0006 = ╱53╱S╱ // 0x1037 @0x6
0x1031…1048 at0007 = ╱54╱T╱ // 0x1038 @0x7
0x1031…1048 at0008 = ╱ef╱ $ ╱ // 0x1039 @0x8
0x1031…1048 at0009 = ╱f0╱ := ╱ // 0x103a @0x9
0x1031…1048 at000a = ╱52╱R╱ // 0x103b @0xa
0x1031…1048 at000b = ╱53╱S╱ // 0x103c @0xb
0x1031…1048 at000c = ╱54╱T╱ // 0x103d @0xc
0x1031…1048 at000d = ╱ef╱ $ ╱ // 0x103e @0xd
0x1031…1048 at000e = ╱ed╱ ( ╱ // 0x103f @0xe
0x1031…1048 at000f = ╱31╱1╱ // 0x1040 @0xf
0x1031…1048 at0010 = ╱f20100╱ // 0x1041 @0x10
0x1031…1048 at0013 = ╱f1╱ : ╱ // 0x1044 @0x13
0x1031…1048 at0014 = ╱4a╱J╱ // 0x1045 @0x14
0x1031…1048 at0015 = ╱ee╱ ) ╱ // 0x1046 @0x15
0x1031…1048 at0016 = EOL // 0x1047 @0x16
0x1031…1048 }
0x1048…104e a63c 01550 ENDIF
0x1048…104e LineComal80 {
0x1048…104e ptr = 0xa63c // 0x1048 @0x0
0x1048…104e lno = 0x060e // 0x104a @0x2
0x1048…104e at0004 = ╱9c╱ ENDIF ╱ // 0x104c @0x4
0x1048…104e at0005 = EOL // 0x104d @0x5
0x1048…104e }
0x104e…105f a64d 01560 ENDPROC TAL_CONTROL
0x104e…105f LineComal80 {
0x104e…105f ptr = 0xa64d // 0x104e @0x0
0x104e…105f lno = 0x0618 // 0x1050 @0x2
0x104e…105f at0004 = ╱9f╱ ENDPROC ╱ // 0x1052 @0x4
0x104e…105f at0005 = ╱54╱T╱ // 0x1053 @0x5
0x104e…105f at0006 = ╱41╱A╱ // 0x1054 @0x6
0x104e…105f at0007 = ╱4c╱L╱ // 0x1055 @0x7
0x104e…105f at0008 = ╱5f╱_╱ // 0x1056 @0x8
0x104e…105f at0009 = ╱43╱C╱ // 0x1057 @0x9
0x104e…105f at000a = ╱4f╱O╱ // 0x1058 @0xa
0x104e…105f at000b = ╱4e╱N╱ // 0x1059 @0xb
0x104e…105f at000c = ╱54╱T╱ // 0x105a @0xc
0x104e…105f at000d = ╱52╱R╱ // 0x105b @0xd
0x104e…105f at000e = ╱4f╱O╱ // 0x105c @0xe
0x104e…105f at000f = ╱4c╱L╱ // 0x105d @0xf
0x104e…105f at0010 = EOL // 0x105e @0x10
0x104e…105f }
0x105f…1064 a652 01570
0x105f…1064 LineComal80 {
0x105f…1064 ptr = 0xa652 // 0x105f @0x0
0x105f…1064 lno = 0x0622 // 0x1061 @0x2
0x105f…1064 at0004 = EOL // 0x1063 @0x4
0x105f…1064 }
0x1064…1075 a663 01580 PROC KASSEHOVED
0x1064…1075 LineComal80 {
0x1064…1075 ptr = 0xa663 // 0x1064 @0x0
0x1064…1075 lno = 0x062c // 0x1066 @0x2
0x1064…1075 at0004 = ╱9e00╱ PROC ╱ // 0x1068 @0x4
0x1064…1075 at0006 = ╱4b╱K╱ // 0x106a @0x6
0x1064…1075 at0007 = ╱41╱A╱ // 0x106b @0x7
0x1064…1075 at0008 = ╱53╱S╱ // 0x106c @0x8
0x1064…1075 at0009 = ╱53╱S╱ // 0x106d @0x9
0x1064…1075 at000a = ╱45╱E╱ // 0x106e @0xa
0x1064…1075 at000b = ╱48╱H╱ // 0x106f @0xb
0x1064…1075 at000c = ╱4f╱O╱ // 0x1070 @0xc
0x1064…1075 at000d = ╱56╱V╱ // 0x1071 @0xd
0x1064…1075 at000e = ╱45╱E╱ // 0x1072 @0xe
0x1064…1075 at000f = ╱44╱D╱ // 0x1073 @0xf
0x1064…1075 at0010 = EOL // 0x1074 @0x10
0x1064…1075 }
0x1075…10a5 d991 01590 EXEC OVERSKRIFT ( "BOGF\RING…AF…KASSEBILAG" , 4 )
0x1075…10a5 LineComal80 {
0x1075…10a5 ptr = 0xd991 // 0x1075 @0x0
0x1075…10a5 lno = 0x0636 // 0x1077 @0x2
0x1075…10a5 at0004 = ╱9d╱ EXEC ╱ // 0x1079 @0x4
0x1075…10a5 at0005 = ╱4f╱O╱ // 0x107a @0x5
0x1075…10a5 at0006 = ╱56╱V╱ // 0x107b @0x6
0x1075…10a5 at0007 = ╱45╱E╱ // 0x107c @0x7
0x1075…10a5 at0008 = ╱52╱R╱ // 0x107d @0x8
0x1075…10a5 at0009 = ╱53╱S╱ // 0x107e @0x9
0x1075…10a5 at000a = ╱4b╱K╱ // 0x107f @0xa
0x1075…10a5 at000b = ╱52╱R╱ // 0x1080 @0xb
0x1075…10a5 at000c = ╱49╱I╱ // 0x1081 @0xc
0x1075…10a5 at000d = ╱46╱F╱ // 0x1082 @0xd
0x1075…10a5 at000e = ╱54╱T╱ // 0x1083 @0xe
0x1075…10a5 at000f = ╱ed╱ ( ╱ // 0x1084 @0xf
0x1075…10a5 at0010 = ╱22╱"╱ // 0x1085 @0x10
0x1075…10a5 at0011 = ╱42╱B╱ // 0x1086 @0x11
0x1075…10a5 at0012 = ╱4f╱O╱ // 0x1087 @0x12
0x1075…10a5 at0013 = ╱47╱G╱ // 0x1088 @0x13
0x1075…10a5 at0014 = ╱46╱F╱ // 0x1089 @0x14
0x1075…10a5 at0015 = ╱5c╱\╱ // 0x108a @0x15
0x1075…10a5 at0016 = ╱52╱R╱ // 0x108b @0x16
0x1075…10a5 at0017 = ╱49╱I╱ // 0x108c @0x17
0x1075…10a5 at0018 = ╱4e╱N╱ // 0x108d @0x18
0x1075…10a5 at0019 = ╱47╱G╱ // 0x108e @0x19
0x1075…10a5 at001a = ╱20╱…╱ // 0x108f @0x1a
0x1075…10a5 at001b = ╱41╱A╱ // 0x1090 @0x1b
0x1075…10a5 at001c = ╱46╱F╱ // 0x1091 @0x1c
0x1075…10a5 at001d = ╱20╱…╱ // 0x1092 @0x1d
0x1075…10a5 at001e = ╱4b╱K╱ // 0x1093 @0x1e
0x1075…10a5 at001f = ╱41╱A╱ // 0x1094 @0x1f
0x1075…10a5 at0020 = ╱53╱S╱ // 0x1095 @0x20
0x1075…10a5 at0021 = ╱53╱S╱ // 0x1096 @0x21
0x1075…10a5 at0022 = ╱45╱E╱ // 0x1097 @0x22
0x1075…10a5 at0023 = ╱42╱B╱ // 0x1098 @0x23
0x1075…10a5 at0024 = ╱49╱I╱ // 0x1099 @0x24
0x1075…10a5 at0025 = ╱4c╱L╱ // 0x109a @0x25
0x1075…10a5 at0026 = ╱41╱A╱ // 0x109b @0x26
0x1075…10a5 at0027 = ╱47╱G╱ // 0x109c @0x27
0x1075…10a5 at0028 = ╱22╱"╱ // 0x109d @0x28
0x1075…10a5 at0029 = ╱ec╱ , ╱ // 0x109e @0x29
0x1075…10a5 at002a = ╱34╱4╱ // 0x109f @0x2a
0x1075…10a5 at002b = ╱f20400╱ // 0x10a0 @0x2b
0x1075…10a5 at002e = ╱ee╱ ) ╱ // 0x10a3 @0x2e
0x1075…10a5 at002f = EOL // 0x10a4 @0x2f
0x1075…10a5 }
0x10a5…10dc a6ca 01590 PRINT "<C0105>………BILAG……TEKST……………………………………MOMS……KASSE"
0x10a5…10dc LineComal80 {
0x10a5…10dc ptr = 0xa6ca // 0x10a5 @0x0
0x10a5…10dc lno = 0x0636 // 0x10a7 @0x2
0x10a5…10dc at0004 = ╱92╱ PRINT ╱ // 0x10a9 @0x4
0x10a5…10dc at0005 = ╱22╱"╱ // 0x10aa @0x5
0x10a5…10dc at0006 = ╱3c╱<╱ // 0x10ab @0x6
0x10a5…10dc at0007 = ╱43╱C╱ // 0x10ac @0x7
0x10a5…10dc at0008 = ╱30╱0╱ // 0x10ad @0x8
0x10a5…10dc at0009 = ╱31╱1╱ // 0x10ae @0x9
0x10a5…10dc at000a = ╱30╱0╱ // 0x10af @0xa
0x10a5…10dc at000b = ╱35╱5╱ // 0x10b0 @0xb
0x10a5…10dc at000c = ╱3e╱>╱ // 0x10b1 @0xc
0x10a5…10dc at000d = ╱20╱…╱ // 0x10b2 @0xd
0x10a5…10dc at000e = ╱20╱…╱ // 0x10b3 @0xe
0x10a5…10dc at000f = ╱20╱…╱ // 0x10b4 @0xf
0x10a5…10dc at0010 = ╱42╱B╱ // 0x10b5 @0x10
0x10a5…10dc at0011 = ╱49╱I╱ // 0x10b6 @0x11
0x10a5…10dc at0012 = ╱4c╱L╱ // 0x10b7 @0x12
0x10a5…10dc at0013 = ╱41╱A╱ // 0x10b8 @0x13
0x10a5…10dc at0014 = ╱47╱G╱ // 0x10b9 @0x14
0x10a5…10dc at0015 = ╱20╱…╱ // 0x10ba @0x15
0x10a5…10dc at0016 = ╱20╱…╱ // 0x10bb @0x16
0x10a5…10dc at0017 = ╱54╱T╱ // 0x10bc @0x17
0x10a5…10dc at0018 = ╱45╱E╱ // 0x10bd @0x18
0x10a5…10dc at0019 = ╱4b╱K╱ // 0x10be @0x19
0x10a5…10dc at001a = ╱53╱S╱ // 0x10bf @0x1a
0x10a5…10dc at001b = ╱54╱T╱ // 0x10c0 @0x1b
0x10a5…10dc at001c = ╱20╱…╱ // 0x10c1 @0x1c
0x10a5…10dc at001d = ╱20╱…╱ // 0x10c2 @0x1d
0x10a5…10dc at001e = ╱20╱…╱ // 0x10c3 @0x1e
0x10a5…10dc at001f = ╱20╱…╱ // 0x10c4 @0x1f
0x10a5…10dc at0020 = ╱20╱…╱ // 0x10c5 @0x20
0x10a5…10dc at0021 = ╱20╱…╱ // 0x10c6 @0x21
0x10a5…10dc at0022 = ╱20╱…╱ // 0x10c7 @0x22
0x10a5…10dc at0023 = ╱20╱…╱ // 0x10c8 @0x23
0x10a5…10dc at0024 = ╱20╱…╱ // 0x10c9 @0x24
0x10a5…10dc at0025 = ╱20╱…╱ // 0x10ca @0x25
0x10a5…10dc at0026 = ╱20╱…╱ // 0x10cb @0x26
0x10a5…10dc at0027 = ╱20╱…╱ // 0x10cc @0x27
0x10a5…10dc at0028 = ╱20╱…╱ // 0x10cd @0x28
0x10a5…10dc at0029 = ╱20╱…╱ // 0x10ce @0x29
0x10a5…10dc at002a = ╱4d╱M╱ // 0x10cf @0x2a
0x10a5…10dc at002b = ╱4f╱O╱ // 0x10d0 @0x2b
0x10a5…10dc at002c = ╱4d╱M╱ // 0x10d1 @0x2c
0x10a5…10dc at002d = ╱53╱S╱ // 0x10d2 @0x2d
0x10a5…10dc at002e = ╱20╱…╱ // 0x10d3 @0x2e
0x10a5…10dc at002f = ╱20╱…╱ // 0x10d4 @0x2f
0x10a5…10dc at0030 = ╱4b╱K╱ // 0x10d5 @0x30
0x10a5…10dc at0031 = ╱41╱A╱ // 0x10d6 @0x31
0x10a5…10dc at0032 = ╱53╱S╱ // 0x10d7 @0x32
0x10a5…10dc at0033 = ╱53╱S╱ // 0x10d8 @0x33
0x10a5…10dc at0034 = ╱45╱E╱ // 0x10d9 @0x34
0x10a5…10dc at0035 = ╱22╱"╱ // 0x10da @0x35
0x10a5…10dc at0036 = EOL // 0x10db @0x36
0x10a5…10dc }
0x10dc…1113 a701 01600 PRINT "<C0106>…………NR……………………………………………………………KODE……BANK/"
0x10dc…1113 LineComal80 {
0x10dc…1113 ptr = 0xa701 // 0x10dc @0x0
0x10dc…1113 lno = 0x0640 // 0x10de @0x2
0x10dc…1113 at0004 = ╱92╱ PRINT ╱ // 0x10e0 @0x4
0x10dc…1113 at0005 = ╱22╱"╱ // 0x10e1 @0x5
0x10dc…1113 at0006 = ╱3c╱<╱ // 0x10e2 @0x6
0x10dc…1113 at0007 = ╱43╱C╱ // 0x10e3 @0x7
0x10dc…1113 at0008 = ╱30╱0╱ // 0x10e4 @0x8
0x10dc…1113 at0009 = ╱31╱1╱ // 0x10e5 @0x9
0x10dc…1113 at000a = ╱30╱0╱ // 0x10e6 @0xa
0x10dc…1113 at000b = ╱36╱6╱ // 0x10e7 @0xb
0x10dc…1113 at000c = ╱3e╱>╱ // 0x10e8 @0xc
0x10dc…1113 at000d = ╱20╱…╱ // 0x10e9 @0xd
0x10dc…1113 at000e = ╱20╱…╱ // 0x10ea @0xe
0x10dc…1113 at000f = ╱20╱…╱ // 0x10eb @0xf
0x10dc…1113 at0010 = ╱20╱…╱ // 0x10ec @0x10
0x10dc…1113 at0011 = ╱4e╱N╱ // 0x10ed @0x11
0x10dc…1113 at0012 = ╱52╱R╱ // 0x10ee @0x12
0x10dc…1113 at0013 = ╱20╱…╱ // 0x10ef @0x13
0x10dc…1113 at0014 = ╱20╱…╱ // 0x10f0 @0x14
0x10dc…1113 at0015 = ╱20╱…╱ // 0x10f1 @0x15
0x10dc…1113 at0016 = ╱20╱…╱ // 0x10f2 @0x16
0x10dc…1113 at0017 = ╱20╱…╱ // 0x10f3 @0x17
0x10dc…1113 at0018 = ╱20╱…╱ // 0x10f4 @0x18
0x10dc…1113 at0019 = ╱20╱…╱ // 0x10f5 @0x19
0x10dc…1113 at001a = ╱20╱…╱ // 0x10f6 @0x1a
0x10dc…1113 at001b = ╱20╱…╱ // 0x10f7 @0x1b
0x10dc…1113 at001c = ╱20╱…╱ // 0x10f8 @0x1c
0x10dc…1113 at001d = ╱20╱…╱ // 0x10f9 @0x1d
0x10dc…1113 at001e = ╱20╱…╱ // 0x10fa @0x1e
0x10dc…1113 at001f = ╱20╱…╱ // 0x10fb @0x1f
0x10dc…1113 at0020 = ╱20╱…╱ // 0x10fc @0x20
0x10dc…1113 at0021 = ╱20╱…╱ // 0x10fd @0x21
0x10dc…1113 at0022 = ╱20╱…╱ // 0x10fe @0x22
0x10dc…1113 at0023 = ╱20╱…╱ // 0x10ff @0x23
0x10dc…1113 at0024 = ╱20╱…╱ // 0x1100 @0x24
0x10dc…1113 at0025 = ╱20╱…╱ // 0x1101 @0x25
0x10dc…1113 at0026 = ╱20╱…╱ // 0x1102 @0x26
0x10dc…1113 at0027 = ╱20╱…╱ // 0x1103 @0x27
0x10dc…1113 at0028 = ╱20╱…╱ // 0x1104 @0x28
0x10dc…1113 at0029 = ╱20╱…╱ // 0x1105 @0x29
0x10dc…1113 at002a = ╱4b╱K╱ // 0x1106 @0x2a
0x10dc…1113 at002b = ╱4f╱O╱ // 0x1107 @0x2b
0x10dc…1113 at002c = ╱44╱D╱ // 0x1108 @0x2c
0x10dc…1113 at002d = ╱45╱E╱ // 0x1109 @0x2d
0x10dc…1113 at002e = ╱20╱…╱ // 0x110a @0x2e
0x10dc…1113 at002f = ╱20╱…╱ // 0x110b @0x2f
0x10dc…1113 at0030 = ╱42╱B╱ // 0x110c @0x30
0x10dc…1113 at0031 = ╱41╱A╱ // 0x110d @0x31
0x10dc…1113 at0032 = ╱4e╱N╱ // 0x110e @0x32
0x10dc…1113 at0033 = ╱4b╱K╱ // 0x110f @0x33
0x10dc…1113 at0034 = ╱2f╱/╱ // 0x1110 @0x34
0x10dc…1113 at0035 = ╱22╱"╱ // 0x1111 @0x35
0x10dc…1113 at0036 = EOL // 0x1112 @0x36
0x10dc…1113 }
0x1113…1149 a737 01620 PRINT "<C0107>……………………………………………………………………………………………GIRO"
0x1113…1149 LineComal80 {
0x1113…1149 ptr = 0xa737 // 0x1113 @0x0
0x1113…1149 lno = 0x0654 // 0x1115 @0x2
0x1113…1149 at0004 = ╱92╱ PRINT ╱ // 0x1117 @0x4
0x1113…1149 at0005 = ╱22╱"╱ // 0x1118 @0x5
0x1113…1149 at0006 = ╱3c╱<╱ // 0x1119 @0x6
0x1113…1149 at0007 = ╱43╱C╱ // 0x111a @0x7
0x1113…1149 at0008 = ╱30╱0╱ // 0x111b @0x8
0x1113…1149 at0009 = ╱31╱1╱ // 0x111c @0x9
0x1113…1149 at000a = ╱30╱0╱ // 0x111d @0xa
0x1113…1149 at000b = ╱37╱7╱ // 0x111e @0xb
0x1113…1149 at000c = ╱3e╱>╱ // 0x111f @0xc
0x1113…1149 at000d = ╱20╱…╱ // 0x1120 @0xd
0x1113…1149 at000e = ╱20╱…╱ // 0x1121 @0xe
0x1113…1149 at000f = ╱20╱…╱ // 0x1122 @0xf
0x1113…1149 at0010 = ╱20╱…╱ // 0x1123 @0x10
0x1113…1149 at0011 = ╱20╱…╱ // 0x1124 @0x11
0x1113…1149 at0012 = ╱20╱…╱ // 0x1125 @0x12
0x1113…1149 at0013 = ╱20╱…╱ // 0x1126 @0x13
0x1113…1149 at0014 = ╱20╱…╱ // 0x1127 @0x14
0x1113…1149 at0015 = ╱20╱…╱ // 0x1128 @0x15
0x1113…1149 at0016 = ╱20╱…╱ // 0x1129 @0x16
0x1113…1149 at0017 = ╱20╱…╱ // 0x112a @0x17
0x1113…1149 at0018 = ╱20╱…╱ // 0x112b @0x18
0x1113…1149 at0019 = ╱20╱…╱ // 0x112c @0x19
0x1113…1149 at001a = ╱20╱…╱ // 0x112d @0x1a
0x1113…1149 at001b = ╱20╱…╱ // 0x112e @0x1b
0x1113…1149 at001c = ╱20╱…╱ // 0x112f @0x1c
0x1113…1149 at001d = ╱20╱…╱ // 0x1130 @0x1d
0x1113…1149 at001e = ╱20╱…╱ // 0x1131 @0x1e
0x1113…1149 at001f = ╱20╱…╱ // 0x1132 @0x1f
0x1113…1149 at0020 = ╱20╱…╱ // 0x1133 @0x20
0x1113…1149 at0021 = ╱20╱…╱ // 0x1134 @0x21
0x1113…1149 at0022 = ╱20╱…╱ // 0x1135 @0x22
0x1113…1149 at0023 = ╱20╱…╱ // 0x1136 @0x23
0x1113…1149 at0024 = ╱20╱…╱ // 0x1137 @0x24
0x1113…1149 at0025 = ╱20╱…╱ // 0x1138 @0x25
0x1113…1149 at0026 = ╱20╱…╱ // 0x1139 @0x26
0x1113…1149 at0027 = ╱20╱…╱ // 0x113a @0x27
0x1113…1149 at0028 = ╱20╱…╱ // 0x113b @0x28
0x1113…1149 at0029 = ╱20╱…╱ // 0x113c @0x29
0x1113…1149 at002a = ╱20╱…╱ // 0x113d @0x2a
0x1113…1149 at002b = ╱20╱…╱ // 0x113e @0x2b
0x1113…1149 at002c = ╱20╱…╱ // 0x113f @0x2c
0x1113…1149 at002d = ╱20╱…╱ // 0x1140 @0x2d
0x1113…1149 at002e = ╱20╱…╱ // 0x1141 @0x2e
0x1113…1149 at002f = ╱20╱…╱ // 0x1142 @0x2f
0x1113…1149 at0030 = ╱47╱G╱ // 0x1143 @0x30
0x1113…1149 at0031 = ╱49╱I╱ // 0x1144 @0x31
0x1113…1149 at0032 = ╱52╱R╱ // 0x1145 @0x32
0x1113…1149 at0033 = ╱4f╱O╱ // 0x1146 @0x33
0x1113…1149 at0034 = ╱22╱"╱ // 0x1147 @0x34
0x1113…1149 at0035 = EOL // 0x1148 @0x35
0x1113…1149 }
0x1149…1180 a76e 01630 PRINT "<C0108>----------------------------------------"
0x1149…1180 LineComal80 {
0x1149…1180 ptr = 0xa76e // 0x1149 @0x0
0x1149…1180 lno = 0x065e // 0x114b @0x2
0x1149…1180 at0004 = ╱92╱ PRINT ╱ // 0x114d @0x4
0x1149…1180 at0005 = ╱22╱"╱ // 0x114e @0x5
0x1149…1180 at0006 = ╱3c╱<╱ // 0x114f @0x6
0x1149…1180 at0007 = ╱43╱C╱ // 0x1150 @0x7
0x1149…1180 at0008 = ╱30╱0╱ // 0x1151 @0x8
0x1149…1180 at0009 = ╱31╱1╱ // 0x1152 @0x9
0x1149…1180 at000a = ╱30╱0╱ // 0x1153 @0xa
0x1149…1180 at000b = ╱38╱8╱ // 0x1154 @0xb
0x1149…1180 at000c = ╱3e╱>╱ // 0x1155 @0xc
0x1149…1180 at000d = ╱2d╱-╱ // 0x1156 @0xd
0x1149…1180 at000e = ╱2d╱-╱ // 0x1157 @0xe
0x1149…1180 at000f = ╱2d╱-╱ // 0x1158 @0xf
0x1149…1180 at0010 = ╱2d╱-╱ // 0x1159 @0x10
0x1149…1180 at0011 = ╱2d╱-╱ // 0x115a @0x11
0x1149…1180 at0012 = ╱2d╱-╱ // 0x115b @0x12
0x1149…1180 at0013 = ╱2d╱-╱ // 0x115c @0x13
0x1149…1180 at0014 = ╱2d╱-╱ // 0x115d @0x14
0x1149…1180 at0015 = ╱2d╱-╱ // 0x115e @0x15
0x1149…1180 at0016 = ╱2d╱-╱ // 0x115f @0x16
0x1149…1180 at0017 = ╱2d╱-╱ // 0x1160 @0x17
0x1149…1180 at0018 = ╱2d╱-╱ // 0x1161 @0x18
0x1149…1180 at0019 = ╱2d╱-╱ // 0x1162 @0x19
0x1149…1180 at001a = ╱2d╱-╱ // 0x1163 @0x1a
0x1149…1180 at001b = ╱2d╱-╱ // 0x1164 @0x1b
0x1149…1180 at001c = ╱2d╱-╱ // 0x1165 @0x1c
0x1149…1180 at001d = ╱2d╱-╱ // 0x1166 @0x1d
0x1149…1180 at001e = ╱2d╱-╱ // 0x1167 @0x1e
0x1149…1180 at001f = ╱2d╱-╱ // 0x1168 @0x1f
0x1149…1180 at0020 = ╱2d╱-╱ // 0x1169 @0x20
0x1149…1180 at0021 = ╱2d╱-╱ // 0x116a @0x21
0x1149…1180 at0022 = ╱2d╱-╱ // 0x116b @0x22
0x1149…1180 at0023 = ╱2d╱-╱ // 0x116c @0x23
0x1149…1180 at0024 = ╱2d╱-╱ // 0x116d @0x24
0x1149…1180 at0025 = ╱2d╱-╱ // 0x116e @0x25
0x1149…1180 at0026 = ╱2d╱-╱ // 0x116f @0x26
0x1149…1180 at0027 = ╱2d╱-╱ // 0x1170 @0x27
0x1149…1180 at0028 = ╱2d╱-╱ // 0x1171 @0x28
0x1149…1180 at0029 = ╱2d╱-╱ // 0x1172 @0x29
0x1149…1180 at002a = ╱2d╱-╱ // 0x1173 @0x2a
0x1149…1180 at002b = ╱2d╱-╱ // 0x1174 @0x2b
0x1149…1180 at002c = ╱2d╱-╱ // 0x1175 @0x2c
0x1149…1180 at002d = ╱2d╱-╱ // 0x1176 @0x2d
0x1149…1180 at002e = ╱2d╱-╱ // 0x1177 @0x2e
0x1149…1180 at002f = ╱2d╱-╱ // 0x1178 @0x2f
0x1149…1180 at0030 = ╱2d╱-╱ // 0x1179 @0x30
0x1149…1180 at0031 = ╱2d╱-╱ // 0x117a @0x31
0x1149…1180 at0032 = ╱2d╱-╱ // 0x117b @0x32
0x1149…1180 at0033 = ╱2d╱-╱ // 0x117c @0x33
0x1149…1180 at0034 = ╱2d╱-╱ // 0x117d @0x34
0x1149…1180 at0035 = ╱22╱"╱ // 0x117e @0x35
0x1149…1180 at0036 = EOL // 0x117f @0x36
0x1149…1180 }
0x1180…11b6 a7a4 01640 PRINT "<C4105>/……INDBETALING……UDBETALING……MODPOST-…F/"
0x1180…11b6 LineComal80 {
0x1180…11b6 ptr = 0xa7a4 // 0x1180 @0x0
0x1180…11b6 lno = 0x0668 // 0x1182 @0x2
0x1180…11b6 at0004 = ╱92╱ PRINT ╱ // 0x1184 @0x4
0x1180…11b6 at0005 = ╱22╱"╱ // 0x1185 @0x5
0x1180…11b6 at0006 = ╱3c╱<╱ // 0x1186 @0x6
0x1180…11b6 at0007 = ╱43╱C╱ // 0x1187 @0x7
0x1180…11b6 at0008 = ╱34╱4╱ // 0x1188 @0x8
0x1180…11b6 at0009 = ╱31╱1╱ // 0x1189 @0x9
0x1180…11b6 at000a = ╱30╱0╱ // 0x118a @0xa
0x1180…11b6 at000b = ╱35╱5╱ // 0x118b @0xb
0x1180…11b6 at000c = ╱3e╱>╱ // 0x118c @0xc
0x1180…11b6 at000d = ╱2f╱/╱ // 0x118d @0xd
0x1180…11b6 at000e = ╱20╱…╱ // 0x118e @0xe
0x1180…11b6 at000f = ╱20╱…╱ // 0x118f @0xf
0x1180…11b6 at0010 = ╱49╱I╱ // 0x1190 @0x10
0x1180…11b6 at0011 = ╱4e╱N╱ // 0x1191 @0x11
0x1180…11b6 at0012 = ╱44╱D╱ // 0x1192 @0x12
0x1180…11b6 at0013 = ╱42╱B╱ // 0x1193 @0x13
0x1180…11b6 at0014 = ╱45╱E╱ // 0x1194 @0x14
0x1180…11b6 at0015 = ╱54╱T╱ // 0x1195 @0x15
0x1180…11b6 at0016 = ╱41╱A╱ // 0x1196 @0x16
0x1180…11b6 at0017 = ╱4c╱L╱ // 0x1197 @0x17
0x1180…11b6 at0018 = ╱49╱I╱ // 0x1198 @0x18
0x1180…11b6 at0019 = ╱4e╱N╱ // 0x1199 @0x19
0x1180…11b6 at001a = ╱47╱G╱ // 0x119a @0x1a
0x1180…11b6 at001b = ╱20╱…╱ // 0x119b @0x1b
0x1180…11b6 at001c = ╱20╱…╱ // 0x119c @0x1c
0x1180…11b6 at001d = ╱55╱U╱ // 0x119d @0x1d
0x1180…11b6 at001e = ╱44╱D╱ // 0x119e @0x1e
0x1180…11b6 at001f = ╱42╱B╱ // 0x119f @0x1f
0x1180…11b6 at0020 = ╱45╱E╱ // 0x11a0 @0x20
0x1180…11b6 at0021 = ╱54╱T╱ // 0x11a1 @0x21
0x1180…11b6 at0022 = ╱41╱A╱ // 0x11a2 @0x22
0x1180…11b6 at0023 = ╱4c╱L╱ // 0x11a3 @0x23
0x1180…11b6 at0024 = ╱49╱I╱ // 0x11a4 @0x24
0x1180…11b6 at0025 = ╱4e╱N╱ // 0x11a5 @0x25
0x1180…11b6 at0026 = ╱47╱G╱ // 0x11a6 @0x26
0x1180…11b6 at0027 = ╱20╱…╱ // 0x11a7 @0x27
0x1180…11b6 at0028 = ╱20╱…╱ // 0x11a8 @0x28
0x1180…11b6 at0029 = ╱4d╱M╱ // 0x11a9 @0x29
0x1180…11b6 at002a = ╱4f╱O╱ // 0x11aa @0x2a
0x1180…11b6 at002b = ╱44╱D╱ // 0x11ab @0x2b
0x1180…11b6 at002c = ╱50╱P╱ // 0x11ac @0x2c
0x1180…11b6 at002d = ╱4f╱O╱ // 0x11ad @0x2d
0x1180…11b6 at002e = ╱53╱S╱ // 0x11ae @0x2e
0x1180…11b6 at002f = ╱54╱T╱ // 0x11af @0x2f
0x1180…11b6 at0030 = ╱2d╱-╱ // 0x11b0 @0x30
0x1180…11b6 at0031 = ╱20╱…╱ // 0x11b1 @0x31
0x1180…11b6 at0032 = ╱46╱F╱ // 0x11b2 @0x32
0x1180…11b6 at0033 = ╱2f╱/╱ // 0x11b3 @0x33
0x1180…11b6 at0034 = ╱22╱"╱ // 0x11b4 @0x34
0x1180…11b6 at0035 = EOL // 0x11b5 @0x35
0x1180…11b6 }
0x11b6…11ec a7da 01650 PRINT "<C4106>……………(DEBET)……………(KREDIT)………ERES……………R/"
0x11b6…11ec LineComal80 {
0x11b6…11ec ptr = 0xa7da // 0x11b6 @0x0
0x11b6…11ec lno = 0x0672 // 0x11b8 @0x2
0x11b6…11ec at0004 = ╱92╱ PRINT ╱ // 0x11ba @0x4
0x11b6…11ec at0005 = ╱22╱"╱ // 0x11bb @0x5
0x11b6…11ec at0006 = ╱3c╱<╱ // 0x11bc @0x6
0x11b6…11ec at0007 = ╱43╱C╱ // 0x11bd @0x7
0x11b6…11ec at0008 = ╱34╱4╱ // 0x11be @0x8
0x11b6…11ec at0009 = ╱31╱1╱ // 0x11bf @0x9
0x11b6…11ec at000a = ╱30╱0╱ // 0x11c0 @0xa
0x11b6…11ec at000b = ╱36╱6╱ // 0x11c1 @0xb
0x11b6…11ec at000c = ╱3e╱>╱ // 0x11c2 @0xc
0x11b6…11ec at000d = ╱20╱…╱ // 0x11c3 @0xd
0x11b6…11ec at000e = ╱20╱…╱ // 0x11c4 @0xe
0x11b6…11ec at000f = ╱20╱…╱ // 0x11c5 @0xf
0x11b6…11ec at0010 = ╱20╱…╱ // 0x11c6 @0x10
0x11b6…11ec at0011 = ╱20╱…╱ // 0x11c7 @0x11
0x11b6…11ec at0012 = ╱28╱(╱ // 0x11c8 @0x12
0x11b6…11ec at0013 = ╱44╱D╱ // 0x11c9 @0x13
0x11b6…11ec at0014 = ╱45╱E╱ // 0x11ca @0x14
0x11b6…11ec at0015 = ╱42╱B╱ // 0x11cb @0x15
0x11b6…11ec at0016 = ╱45╱E╱ // 0x11cc @0x16
0x11b6…11ec at0017 = ╱54╱T╱ // 0x11cd @0x17
0x11b6…11ec at0018 = ╱29╱)╱ // 0x11ce @0x18
0x11b6…11ec at0019 = ╱20╱…╱ // 0x11cf @0x19
0x11b6…11ec at001a = ╱20╱…╱ // 0x11d0 @0x1a
0x11b6…11ec at001b = ╱20╱…╱ // 0x11d1 @0x1b
0x11b6…11ec at001c = ╱20╱…╱ // 0x11d2 @0x1c
0x11b6…11ec at001d = ╱20╱…╱ // 0x11d3 @0x1d
0x11b6…11ec at001e = ╱28╱(╱ // 0x11d4 @0x1e
0x11b6…11ec at001f = ╱4b╱K╱ // 0x11d5 @0x1f
0x11b6…11ec at0020 = ╱52╱R╱ // 0x11d6 @0x20
0x11b6…11ec at0021 = ╱45╱E╱ // 0x11d7 @0x21
0x11b6…11ec at0022 = ╱44╱D╱ // 0x11d8 @0x22
0x11b6…11ec at0023 = ╱49╱I╱ // 0x11d9 @0x23
0x11b6…11ec at0024 = ╱54╱T╱ // 0x11da @0x24
0x11b6…11ec at0025 = ╱29╱)╱ // 0x11db @0x25
0x11b6…11ec at0026 = ╱20╱…╱ // 0x11dc @0x26
0x11b6…11ec at0027 = ╱20╱…╱ // 0x11dd @0x27
0x11b6…11ec at0028 = ╱20╱…╱ // 0x11de @0x28
0x11b6…11ec at0029 = ╱45╱E╱ // 0x11df @0x29
0x11b6…11ec at002a = ╱52╱R╱ // 0x11e0 @0x2a
0x11b6…11ec at002b = ╱45╱E╱ // 0x11e1 @0x2b
0x11b6…11ec at002c = ╱53╱S╱ // 0x11e2 @0x2c
0x11b6…11ec at002d = ╱20╱…╱ // 0x11e3 @0x2d
0x11b6…11ec at002e = ╱20╱…╱ // 0x11e4 @0x2e
0x11b6…11ec at002f = ╱20╱…╱ // 0x11e5 @0x2f
0x11b6…11ec at0030 = ╱20╱…╱ // 0x11e6 @0x30
0x11b6…11ec at0031 = ╱20╱…╱ // 0x11e7 @0x31
0x11b6…11ec at0032 = ╱52╱R╱ // 0x11e8 @0x32
0x11b6…11ec at0033 = ╱2f╱/╱ // 0x11e9 @0x33
0x11b6…11ec at0034 = ╱22╱"╱ // 0x11ea @0x34
0x11b6…11ec at0035 = EOL // 0x11eb @0x35
0x11b6…11ec }
0x11ec…1221 a80f 01660 PRINT "<C4107>…………………………………………………………………………KONTONR……S"
0x11ec…1221 LineComal80 {
0x11ec…1221 ptr = 0xa80f // 0x11ec @0x0
0x11ec…1221 lno = 0x067c // 0x11ee @0x2
0x11ec…1221 at0004 = ╱92╱ PRINT ╱ // 0x11f0 @0x4
0x11ec…1221 at0005 = ╱22╱"╱ // 0x11f1 @0x5
0x11ec…1221 at0006 = ╱3c╱<╱ // 0x11f2 @0x6
0x11ec…1221 at0007 = ╱43╱C╱ // 0x11f3 @0x7
0x11ec…1221 at0008 = ╱34╱4╱ // 0x11f4 @0x8
0x11ec…1221 at0009 = ╱31╱1╱ // 0x11f5 @0x9
0x11ec…1221 at000a = ╱30╱0╱ // 0x11f6 @0xa
0x11ec…1221 at000b = ╱37╱7╱ // 0x11f7 @0xb
0x11ec…1221 at000c = ╱3e╱>╱ // 0x11f8 @0xc
0x11ec…1221 at000d = ╱20╱…╱ // 0x11f9 @0xd
0x11ec…1221 at000e = ╱20╱…╱ // 0x11fa @0xe
0x11ec…1221 at000f = ╱20╱…╱ // 0x11fb @0xf
0x11ec…1221 at0010 = ╱20╱…╱ // 0x11fc @0x10
0x11ec…1221 at0011 = ╱20╱…╱ // 0x11fd @0x11
0x11ec…1221 at0012 = ╱20╱…╱ // 0x11fe @0x12
0x11ec…1221 at0013 = ╱20╱…╱ // 0x11ff @0x13
0x11ec…1221 at0014 = ╱20╱…╱ // 0x1200 @0x14
0x11ec…1221 at0015 = ╱20╱…╱ // 0x1201 @0x15
0x11ec…1221 at0016 = ╱20╱…╱ // 0x1202 @0x16
0x11ec…1221 at0017 = ╱20╱…╱ // 0x1203 @0x17
0x11ec…1221 at0018 = ╱20╱…╱ // 0x1204 @0x18
0x11ec…1221 at0019 = ╱20╱…╱ // 0x1205 @0x19
0x11ec…1221 at001a = ╱20╱…╱ // 0x1206 @0x1a
0x11ec…1221 at001b = ╱20╱…╱ // 0x1207 @0x1b
0x11ec…1221 at001c = ╱20╱…╱ // 0x1208 @0x1c
0x11ec…1221 at001d = ╱20╱…╱ // 0x1209 @0x1d
0x11ec…1221 at001e = ╱20╱…╱ // 0x120a @0x1e
0x11ec…1221 at001f = ╱20╱…╱ // 0x120b @0x1f
0x11ec…1221 at0020 = ╱20╱…╱ // 0x120c @0x20
0x11ec…1221 at0021 = ╱20╱…╱ // 0x120d @0x21
0x11ec…1221 at0022 = ╱20╱…╱ // 0x120e @0x22
0x11ec…1221 at0023 = ╱20╱…╱ // 0x120f @0x23
0x11ec…1221 at0024 = ╱20╱…╱ // 0x1210 @0x24
0x11ec…1221 at0025 = ╱20╱…╱ // 0x1211 @0x25
0x11ec…1221 at0026 = ╱20╱…╱ // 0x1212 @0x26
0x11ec…1221 at0027 = ╱20╱…╱ // 0x1213 @0x27
0x11ec…1221 at0028 = ╱20╱…╱ // 0x1214 @0x28
0x11ec…1221 at0029 = ╱4b╱K╱ // 0x1215 @0x29
0x11ec…1221 at002a = ╱4f╱O╱ // 0x1216 @0x2a
0x11ec…1221 at002b = ╱4e╱N╱ // 0x1217 @0x2b
0x11ec…1221 at002c = ╱54╱T╱ // 0x1218 @0x2c
0x11ec…1221 at002d = ╱4f╱O╱ // 0x1219 @0x2d
0x11ec…1221 at002e = ╱4e╱N╱ // 0x121a @0x2e
0x11ec…1221 at002f = ╱52╱R╱ // 0x121b @0x2f
0x11ec…1221 at0030 = ╱20╱…╱ // 0x121c @0x30
0x11ec…1221 at0031 = ╱20╱…╱ // 0x121d @0x31
0x11ec…1221 at0032 = ╱53╱S╱ // 0x121e @0x32
0x11ec…1221 at0033 = ╱22╱"╱ // 0x121f @0x33
0x11ec…1221 at0034 = EOL // 0x1220 @0x34
0x11ec…1221 }
0x1221…1258 a846 01670 PRINT "<C4108>----------------------------------------"
0x1221…1258 LineComal80 {
0x1221…1258 ptr = 0xa846 // 0x1221 @0x0
0x1221…1258 lno = 0x0686 // 0x1223 @0x2
0x1221…1258 at0004 = ╱92╱ PRINT ╱ // 0x1225 @0x4
0x1221…1258 at0005 = ╱22╱"╱ // 0x1226 @0x5
0x1221…1258 at0006 = ╱3c╱<╱ // 0x1227 @0x6
0x1221…1258 at0007 = ╱43╱C╱ // 0x1228 @0x7
0x1221…1258 at0008 = ╱34╱4╱ // 0x1229 @0x8
0x1221…1258 at0009 = ╱31╱1╱ // 0x122a @0x9
0x1221…1258 at000a = ╱30╱0╱ // 0x122b @0xa
0x1221…1258 at000b = ╱38╱8╱ // 0x122c @0xb
0x1221…1258 at000c = ╱3e╱>╱ // 0x122d @0xc
0x1221…1258 at000d = ╱2d╱-╱ // 0x122e @0xd
0x1221…1258 at000e = ╱2d╱-╱ // 0x122f @0xe
0x1221…1258 at000f = ╱2d╱-╱ // 0x1230 @0xf
0x1221…1258 at0010 = ╱2d╱-╱ // 0x1231 @0x10
0x1221…1258 at0011 = ╱2d╱-╱ // 0x1232 @0x11
0x1221…1258 at0012 = ╱2d╱-╱ // 0x1233 @0x12
0x1221…1258 at0013 = ╱2d╱-╱ // 0x1234 @0x13
0x1221…1258 at0014 = ╱2d╱-╱ // 0x1235 @0x14
0x1221…1258 at0015 = ╱2d╱-╱ // 0x1236 @0x15
0x1221…1258 at0016 = ╱2d╱-╱ // 0x1237 @0x16
0x1221…1258 at0017 = ╱2d╱-╱ // 0x1238 @0x17
0x1221…1258 at0018 = ╱2d╱-╱ // 0x1239 @0x18
0x1221…1258 at0019 = ╱2d╱-╱ // 0x123a @0x19
0x1221…1258 at001a = ╱2d╱-╱ // 0x123b @0x1a
0x1221…1258 at001b = ╱2d╱-╱ // 0x123c @0x1b
0x1221…1258 at001c = ╱2d╱-╱ // 0x123d @0x1c
0x1221…1258 at001d = ╱2d╱-╱ // 0x123e @0x1d
0x1221…1258 at001e = ╱2d╱-╱ // 0x123f @0x1e
0x1221…1258 at001f = ╱2d╱-╱ // 0x1240 @0x1f
0x1221…1258 at0020 = ╱2d╱-╱ // 0x1241 @0x20
0x1221…1258 at0021 = ╱2d╱-╱ // 0x1242 @0x21
0x1221…1258 at0022 = ╱2d╱-╱ // 0x1243 @0x22
0x1221…1258 at0023 = ╱2d╱-╱ // 0x1244 @0x23
0x1221…1258 at0024 = ╱2d╱-╱ // 0x1245 @0x24
0x1221…1258 at0025 = ╱2d╱-╱ // 0x1246 @0x25
0x1221…1258 at0026 = ╱2d╱-╱ // 0x1247 @0x26
0x1221…1258 at0027 = ╱2d╱-╱ // 0x1248 @0x27
0x1221…1258 at0028 = ╱2d╱-╱ // 0x1249 @0x28
0x1221…1258 at0029 = ╱2d╱-╱ // 0x124a @0x29
0x1221…1258 at002a = ╱2d╱-╱ // 0x124b @0x2a
0x1221…1258 at002b = ╱2d╱-╱ // 0x124c @0x2b
0x1221…1258 at002c = ╱2d╱-╱ // 0x124d @0x2c
0x1221…1258 at002d = ╱2d╱-╱ // 0x124e @0x2d
0x1221…1258 at002e = ╱2d╱-╱ // 0x124f @0x2e
0x1221…1258 at002f = ╱2d╱-╱ // 0x1250 @0x2f
0x1221…1258 at0030 = ╱2d╱-╱ // 0x1251 @0x30
0x1221…1258 at0031 = ╱2d╱-╱ // 0x1252 @0x31
0x1221…1258 at0032 = ╱2d╱-╱ // 0x1253 @0x32
0x1221…1258 at0033 = ╱2d╱-╱ // 0x1254 @0x33
0x1221…1258 at0034 = ╱2d╱-╱ // 0x1255 @0x34
0x1221…1258 at0035 = ╱22╱"╱ // 0x1256 @0x35
0x1221…1258 at0036 = EOL // 0x1257 @0x36
0x1221…1258 }
0x1258…1268 a856 01680 ENDPROC KASSEHOVED
0x1258…1268 LineComal80 {
0x1258…1268 ptr = 0xa856 // 0x1258 @0x0
0x1258…1268 lno = 0x0690 // 0x125a @0x2
0x1258…1268 at0004 = ╱9f╱ ENDPROC ╱ // 0x125c @0x4
0x1258…1268 at0005 = ╱4b╱K╱ // 0x125d @0x5
0x1258…1268 at0006 = ╱41╱A╱ // 0x125e @0x6
0x1258…1268 at0007 = ╱53╱S╱ // 0x125f @0x7
0x1258…1268 at0008 = ╱53╱S╱ // 0x1260 @0x8
0x1258…1268 at0009 = ╱45╱E╱ // 0x1261 @0x9
0x1258…1268 at000a = ╱48╱H╱ // 0x1262 @0xa
0x1258…1268 at000b = ╱4f╱O╱ // 0x1263 @0xb
0x1258…1268 at000c = ╱56╱V╱ // 0x1264 @0xc
0x1258…1268 at000d = ╱45╱E╱ // 0x1265 @0xd
0x1258…1268 at000e = ╱44╱D╱ // 0x1266 @0xe
0x1258…1268 at000f = EOL // 0x1267 @0xf
0x1258…1268 }
0x1268…126d a85b 01690
0x1268…126d LineComal80 {
0x1268…126d ptr = 0xa85b // 0x1268 @0x0
0x1268…126d lno = 0x069a // 0x126a @0x2
0x1268…126d at0004 = EOL // 0x126c @0x4
0x1268…126d }
0x126d…1285 a873 01700 PROC OVERSKRIFT ( ST $ , L )
0x126d…1285 LineComal80 {
0x126d…1285 ptr = 0xa873 // 0x126d @0x0
0x126d…1285 lno = 0x06a4 // 0x126f @0x2
0x126d…1285 at0004 = ╱9e00╱ PROC ╱ // 0x1271 @0x4
0x126d…1285 at0006 = ╱4f╱O╱ // 0x1273 @0x6
0x126d…1285 at0007 = ╱56╱V╱ // 0x1274 @0x7
0x126d…1285 at0008 = ╱45╱E╱ // 0x1275 @0x8
0x126d…1285 at0009 = ╱52╱R╱ // 0x1276 @0x9
0x126d…1285 at000a = ╱53╱S╱ // 0x1277 @0xa
0x126d…1285 at000b = ╱4b╱K╱ // 0x1278 @0xb
0x126d…1285 at000c = ╱52╱R╱ // 0x1279 @0xc
0x126d…1285 at000d = ╱49╱I╱ // 0x127a @0xd
0x126d…1285 at000e = ╱46╱F╱ // 0x127b @0xe
0x126d…1285 at000f = ╱54╱T╱ // 0x127c @0xf
0x126d…1285 at0010 = ╱ed╱ ( ╱ // 0x127d @0x10
0x126d…1285 at0011 = ╱53╱S╱ // 0x127e @0x11
0x126d…1285 at0012 = ╱54╱T╱ // 0x127f @0x12
0x126d…1285 at0013 = ╱ef╱ $ ╱ // 0x1280 @0x13
0x126d…1285 at0014 = ╱ec╱ , ╱ // 0x1281 @0x14
0x126d…1285 at0015 = ╱4c╱L╱ // 0x1282 @0x15
0x126d…1285 at0016 = ╱ee╱ ) ╱ // 0x1283 @0x16
0x126d…1285 at0017 = EOL // 0x1284 @0x17
0x126d…1285 }
0x1285…12ab a899 01710 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x1285…12ab LineComal80 {
0x1285…12ab ptr = 0xa899 // 0x1285 @0x0
0x1285…12ab lno = 0x06ae // 0x1287 @0x2
0x1285…12ab at0004 = ╱92╱ PRINT ╱ // 0x1289 @0x4
0x1285…12ab at0005 = ╱22╱"╱ // 0x128a @0x5
0x1285…12ab at0006 = ╱3c╱<╱ // 0x128b @0x6
0x1285…12ab at0007 = ╱58╱X╱ // 0x128c @0x7
0x1285…12ab at0008 = ╱43╱C╱ // 0x128d @0x8
0x1285…12ab at0009 = ╱30╱0╱ // 0x128e @0x9
0x1285…12ab at000a = ╱31╱1╱ // 0x128f @0xa
0x1285…12ab at000b = ╱30╱0╱ // 0x1290 @0xb
0x1285…12ab at000c = ╱31╱1╱ // 0x1291 @0xc
0x1285…12ab at000d = ╱3e╱>╱ // 0x1292 @0xd
0x1285…12ab at000e = ╱46╱F╱ // 0x1293 @0xe
0x1285…12ab at000f = ╱69╱i╱ // 0x1294 @0xf
0x1285…12ab at0010 = ╱72╱r╱ // 0x1295 @0x10
0x1285…12ab at0011 = ╱6d╱m╱ // 0x1296 @0x11
0x1285…12ab at0012 = ╱61╱a╱ // 0x1297 @0x12
0x1285…12ab at0013 = ╱6e╱n╱ // 0x1298 @0x13
0x1285…12ab at0014 = ╱61╱a╱ // 0x1299 @0x14
0x1285…12ab at0015 = ╱76╱v╱ // 0x129a @0x15
0x1285…12ab at0016 = ╱6e╱n╱ // 0x129b @0x16
0x1285…12ab at0017 = ╱3a╱:╱ // 0x129c @0x17
0x1285…12ab at0018 = ╱20╱…╱ // 0x129d @0x18
0x1285…12ab at0019 = ╱22╱"╱ // 0x129e @0x19
0x1285…12ab at001a = ╱ea╱ ; ╱ // 0x129f @0x1a
0x1285…12ab at001b = ╱46╱F╱ // 0x12a0 @0x1b
0x1285…12ab at001c = ╱49╱I╱ // 0x12a1 @0x1c
0x1285…12ab at001d = ╱52╱R╱ // 0x12a2 @0x1d
0x1285…12ab at001e = ╱4d╱M╱ // 0x12a3 @0x1e
0x1285…12ab at001f = ╱41╱A╱ // 0x12a4 @0x1f
0x1285…12ab at0020 = ╱4e╱N╱ // 0x12a5 @0x20
0x1285…12ab at0021 = ╱41╱A╱ // 0x12a6 @0x21
0x1285…12ab at0022 = ╱56╱V╱ // 0x12a7 @0x22
0x1285…12ab at0023 = ╱4e╱N╱ // 0x12a8 @0x23
0x1285…12ab at0024 = ╱ef╱ $ ╱ // 0x12a9 @0x24
0x1285…12ab at0025 = EOL // 0x12aa @0x25
0x1285…12ab }
0x12ab…12f3 a8e1 01720 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x12ab…12f3 LineComal80 {
0x12ab…12f3 ptr = 0xa8e1 // 0x12ab @0x0
0x12ab…12f3 lno = 0x06b8 // 0x12ad @0x2
0x12ab…12f3 at0004 = ╱92╱ PRINT ╱ // 0x12af @0x4
0x12ab…12f3 at0005 = ╱22╱"╱ // 0x12b0 @0x5
0x12ab…12f3 at0006 = ╱3c╱<╱ // 0x12b1 @0x6
0x12ab…12f3 at0007 = ╱53╱S╱ // 0x12b2 @0x7
0x12ab…12f3 at0008 = ╱43╱C╱ // 0x12b3 @0x8
0x12ab…12f3 at0009 = ╱36╱6╱ // 0x12b4 @0x9
0x12ab…12f3 at000a = ╱35╱5╱ // 0x12b5 @0xa
0x12ab…12f3 at000b = ╱30╱0╱ // 0x12b6 @0xb
0x12ab…12f3 at000c = ╱31╱1╱ // 0x12b7 @0xc
0x12ab…12f3 at000d = ╱3e╱>╱ // 0x12b8 @0xd
0x12ab…12f3 at000e = ╱44╱D╱ // 0x12b9 @0xe
0x12ab…12f3 at000f = ╱61╱a╱ // 0x12ba @0xf
0x12ab…12f3 at0010 = ╱74╱t╱ // 0x12bb @0x10
0x12ab…12f3 at0011 = ╱6f╱o╱ // 0x12bc @0x11
0x12ab…12f3 at0012 = ╱3a╱:╱ // 0x12bd @0x12
0x12ab…12f3 at0013 = ╱20╱…╱ // 0x12be @0x13
0x12ab…12f3 at0014 = ╱22╱"╱ // 0x12bf @0x14
0x12ab…12f3 at0015 = ╱ea╱ ; ╱ // 0x12c0 @0x15
0x12ab…12f3 at0016 = ╱53╱S╱ // 0x12c1 @0x16
0x12ab…12f3 at0017 = ╱59╱Y╱ // 0x12c2 @0x17
0x12ab…12f3 at0018 = ╱53╱S╱ // 0x12c3 @0x18
0x12ab…12f3 at0019 = ╱54╱T╱ // 0x12c4 @0x19
0x12ab…12f3 at001a = ╱5f╱_╱ // 0x12c5 @0x1a
0x12ab…12f3 at001b = ╱44╱D╱ // 0x12c6 @0x1b
0x12ab…12f3 at001c = ╱41╱A╱ // 0x12c7 @0x1c
0x12ab…12f3 at001d = ╱54╱T╱ // 0x12c8 @0x1d
0x12ab…12f3 at001e = ╱ef╱ $ ╱ // 0x12c9 @0x1e
0x12ab…12f3 at001f = ╱ed╱ ( ╱ // 0x12ca @0x1f
0x12ab…12f3 at0020 = ╱31╱1╱ // 0x12cb @0x20
0x12ab…12f3 at0021 = ╱f20100╱ // 0x12cc @0x21
0x12ab…12f3 at0024 = ╱f1╱ : ╱ // 0x12cf @0x24
0x12ab…12f3 at0025 = ╱32╱2╱ // 0x12d0 @0x25
0x12ab…12f3 at0026 = ╱f20200╱ // 0x12d1 @0x26
0x12ab…12f3 at0029 = ╱ee╱ ) ╱ // 0x12d4 @0x29
0x12ab…12f3 at002a = ╱ea╱ ; ╱ // 0x12d5 @0x2a
0x12ab…12f3 at002b = ╱22╱"╱ // 0x12d6 @0x2b
0x12ab…12f3 at002c = ╱2e╱.╱ // 0x12d7 @0x2c
0x12ab…12f3 at002d = ╱22╱"╱ // 0x12d8 @0x2d
0x12ab…12f3 at002e = ╱ea╱ ; ╱ // 0x12d9 @0x2e
0x12ab…12f3 at002f = ╱53╱S╱ // 0x12da @0x2f
0x12ab…12f3 at0030 = ╱59╱Y╱ // 0x12db @0x30
0x12ab…12f3 at0031 = ╱53╱S╱ // 0x12dc @0x31
0x12ab…12f3 at0032 = ╱54╱T╱ // 0x12dd @0x32
0x12ab…12f3 at0033 = ╱5f╱_╱ // 0x12de @0x33
0x12ab…12f3 at0034 = ╱44╱D╱ // 0x12df @0x34
0x12ab…12f3 at0035 = ╱41╱A╱ // 0x12e0 @0x35
0x12ab…12f3 at0036 = ╱54╱T╱ // 0x12e1 @0x36
0x12ab…12f3 at0037 = ╱ef╱ $ ╱ // 0x12e2 @0x37
0x12ab…12f3 at0038 = ╱ed╱ ( ╱ // 0x12e3 @0x38
0x12ab…12f3 at0039 = ╱33╱3╱ // 0x12e4 @0x39
0x12ab…12f3 at003a = ╱f20300╱ // 0x12e5 @0x3a
0x12ab…12f3 at003d = ╱f1╱ : ╱ // 0x12e8 @0x3d
0x12ab…12f3 at003e = ╱32╱2╱ // 0x12e9 @0x3e
0x12ab…12f3 at003f = ╱f20200╱ // 0x12ea @0x3f
0x12ab…12f3 at0042 = ╱ee╱ ) ╱ // 0x12ed @0x42
0x12ab…12f3 at0043 = ╱ea╱ ; ╱ // 0x12ee @0x43
0x12ab…12f3 at0044 = ╱22╱"╱ // 0x12ef @0x44
0x12ab…12f3 at0045 = ╱2e╱.╱ // 0x12f0 @0x45
0x12ab…12f3 at0046 = ╱22╱"╱ // 0x12f1 @0x46
0x12ab…12f3 at0047 = EOL // 0x12f2 @0x47
0x12ab…12f3 }
0x12f3…130d (63,) a8fb 01730 PRINT SYST_DAT $ ( 5 : 2 )
0x12f3…130d LineComal80 {
0x12f3…130d ptr = 0xa8fb // 0x12f3 @0x0
0x12f3…130d lno = 0x06c2 // 0x12f5 @0x2
0x12f3…130d at0004 = ╱92╱ PRINT ╱ // 0x12f7 @0x4
0x12f3…130d at0005 = ╱53╱S╱ // 0x12f8 @0x5
0x12f3…130d at0006 = ╱59╱Y╱ // 0x12f9 @0x6
0x12f3…130d at0007 = ╱53╱S╱ // 0x12fa @0x7
0x12f3…130d at0008 = ╱54╱T╱ // 0x12fb @0x8
0x12f3…130d at0009 = ╱5f╱_╱ // 0x12fc @0x9
0x12f3…130d at000a = ╱44╱D╱ // 0x12fd @0xa
0x12f3…130d at000b = ╱41╱A╱ // 0x12fe @0xb
0x12f3…130d at000c = ╱54╱T╱ // 0x12ff @0xc
0x12f3…130d at000d = ╱ef╱ $ ╱ // 0x1300 @0xd
0x12f3…130d at000e = ╱ed╱ ( ╱ // 0x1301 @0xe
0x12f3…130d at000f = ╱35╱5╱ // 0x1302 @0xf
0x12f3…130d at0010 = ╱f20500╱ // 0x1303 @0x10
0x12f3…130d at0013 = ╱f1╱ : ╱ // 0x1306 @0x13
0x12f3…130d at0014 = ╱32╱2╱ // 0x1307 @0x14
0x12f3…130d at0015 = ╱f20200╱ // 0x1308 @0x15
0x12f3…130d at0018 = ╱ee╱ ) ╱ // 0x130b @0x18
0x12f3…130d at0019 = EOL // 0x130c @0x19
0x12f3…130d }
0x130d…1326 a914 01740 CURSOR 36 - ╱cb╱ ( ST $ ) DIV 2 , L
0x130d…1326 LineComal80 {
0x130d…1326 ptr = 0xa914 // 0x130d @0x0
0x130d…1326 lno = 0x06cc // 0x130f @0x2
0x130d…1326 at0004 = ╱a1╱ CURSOR ╱ // 0x1311 @0x4
0x130d…1326 at0005 = ╱33╱3╱ // 0x1312 @0x5
0x130d…1326 at0006 = ╱36╱6╱ // 0x1313 @0x6
0x130d…1326 at0007 = ╱f22400╱ // 0x1314 @0x7
0x130d…1326 at000a = ╱e6╱ - ╱ // 0x1317 @0xa
0x130d…1326 at000b = ╱cb╱ // 0x1318 @0xb
0x130d…1326 at000c = ╱ed╱ ( ╱ // 0x1319 @0xc
0x130d…1326 at000d = ╱53╱S╱ // 0x131a @0xd
0x130d…1326 at000e = ╱54╱T╱ // 0x131b @0xe
0x130d…1326 at000f = ╱ef╱ $ ╱ // 0x131c @0xf
0x130d…1326 at0010 = ╱ee╱ ) ╱ // 0x131d @0x10
0x130d…1326 at0011 = ╱da╱ DIV ╱ // 0x131e @0x11
0x130d…1326 at0012 = ╱32╱2╱ // 0x131f @0x12
0x130d…1326 at0013 = ╱f20200╱ // 0x1320 @0x13
0x130d…1326 at0016 = ╱ec╱ , ╱ // 0x1323 @0x16
0x130d…1326 at0017 = ╱4c╱L╱ // 0x1324 @0x17
0x130d…1326 at0018 = EOL // 0x1325 @0x18
0x130d…1326 }
0x1326…133d a92b 01750 PRINT "***…" ; ST $ ; "…***"
0x1326…133d LineComal80 {
0x1326…133d ptr = 0xa92b // 0x1326 @0x0
0x1326…133d lno = 0x06d6 // 0x1328 @0x2
0x1326…133d at0004 = ╱92╱ PRINT ╱ // 0x132a @0x4
0x1326…133d at0005 = ╱22╱"╱ // 0x132b @0x5
0x1326…133d at0006 = ╱2a╱*╱ // 0x132c @0x6
0x1326…133d at0007 = ╱2a╱*╱ // 0x132d @0x7
0x1326…133d at0008 = ╱2a╱*╱ // 0x132e @0x8
0x1326…133d at0009 = ╱20╱…╱ // 0x132f @0x9
0x1326…133d at000a = ╱22╱"╱ // 0x1330 @0xa
0x1326…133d at000b = ╱ea╱ ; ╱ // 0x1331 @0xb
0x1326…133d at000c = ╱53╱S╱ // 0x1332 @0xc
0x1326…133d at000d = ╱54╱T╱ // 0x1333 @0xd
0x1326…133d at000e = ╱ef╱ $ ╱ // 0x1334 @0xe
0x1326…133d at000f = ╱ea╱ ; ╱ // 0x1335 @0xf
0x1326…133d at0010 = ╱22╱"╱ // 0x1336 @0x10
0x1326…133d at0011 = ╱20╱…╱ // 0x1337 @0x11
0x1326…133d at0012 = ╱2a╱*╱ // 0x1338 @0x12
0x1326…133d at0013 = ╱2a╱*╱ // 0x1339 @0x13
0x1326…133d at0014 = ╱2a╱*╱ // 0x133a @0x14
0x1326…133d at0015 = ╱22╱"╱ // 0x133b @0x15
0x1326…133d at0016 = EOL // 0x133c @0x16
0x1326…133d }
0x133d…134d a93b 01760 ENDPROC OVERSKRIFT
0x133d…134d LineComal80 {
0x133d…134d ptr = 0xa93b // 0x133d @0x0
0x133d…134d lno = 0x06e0 // 0x133f @0x2
0x133d…134d at0004 = ╱9f╱ ENDPROC ╱ // 0x1341 @0x4
0x133d…134d at0005 = ╱4f╱O╱ // 0x1342 @0x5
0x133d…134d at0006 = ╱56╱V╱ // 0x1343 @0x6
0x133d…134d at0007 = ╱45╱E╱ // 0x1344 @0x7
0x133d…134d at0008 = ╱52╱R╱ // 0x1345 @0x8
0x133d…134d at0009 = ╱53╱S╱ // 0x1346 @0x9
0x133d…134d at000a = ╱4b╱K╱ // 0x1347 @0xa
0x133d…134d at000b = ╱52╱R╱ // 0x1348 @0xb
0x133d…134d at000c = ╱49╱I╱ // 0x1349 @0xc
0x133d…134d at000d = ╱46╱F╱ // 0x134a @0xd
0x133d…134d at000e = ╱54╱T╱ // 0x134b @0xe
0x133d…134d at000f = EOL // 0x134c @0xf
0x133d…134d }
0x134d…1352 a940 01770
0x134d…1352 LineComal80 {
0x134d…1352 ptr = 0xa940 // 0x134d @0x0
0x134d…1352 lno = 0x06ea // 0x134f @0x2
0x134d…1352 at0004 = EOL // 0x1351 @0x4
0x134d…1352 }
0x1352…1365 a953 01780 PROC SL_FEJLLINIE
0x1352…1365 LineComal80 {
0x1352…1365 ptr = 0xa953 // 0x1352 @0x0
0x1352…1365 lno = 0x06f4 // 0x1354 @0x2
0x1352…1365 at0004 = ╱9e00╱ PROC ╱ // 0x1356 @0x4
0x1352…1365 at0006 = ╱53╱S╱ // 0x1358 @0x6
0x1352…1365 at0007 = ╱4c╱L╱ // 0x1359 @0x7
0x1352…1365 at0008 = ╱5f╱_╱ // 0x135a @0x8
0x1352…1365 at0009 = ╱46╱F╱ // 0x135b @0x9
0x1352…1365 at000a = ╱45╱E╱ // 0x135c @0xa
0x1352…1365 at000b = ╱4a╱J╱ // 0x135d @0xb
0x1352…1365 at000c = ╱4c╱L╱ // 0x135e @0xc
0x1352…1365 at000d = ╱4c╱L╱ // 0x135f @0xd
0x1352…1365 at000e = ╱49╱I╱ // 0x1360 @0xe
0x1352…1365 at000f = ╱4e╱N╱ // 0x1361 @0xf
0x1352…1365 at0010 = ╱49╱I╱ // 0x1362 @0x10
0x1352…1365 at0011 = ╱45╱E╱ // 0x1363 @0x11
0x1352…1365 at0012 = EOL // 0x1364 @0x12
0x1352…1365 }
0x1365…1372 a960 01790 LET OK := TRUE
0x1365…1372 LineComal80 {
0x1365…1372 ptr = 0xa960 // 0x1365 @0x0
0x1365…1372 lno = 0x06fe // 0x1367 @0x2
0x1365…1372 at0004 = ╱86╱ LET ╱ // 0x1369 @0x4
0x1365…1372 at0005 = ╱4f╱O╱ // 0x136a @0x5
0x1365…1372 at0006 = ╱4b╱K╱ // 0x136b @0x6
0x1365…1372 at0007 = ╱f0╱ := ╱ // 0x136c @0x7
0x1365…1372 at0008 = ╱54╱T╱ // 0x136d @0x8
0x1365…1372 at0009 = ╱52╱R╱ // 0x136e @0x9
0x1365…1372 at000a = ╱55╱U╱ // 0x136f @0xa
0x1365…1372 at000b = ╱45╱E╱ // 0x1370 @0xb
0x1365…1372 at000c = EOL // 0x1371 @0xc
0x1365…1372 }
0x1372…1386 a974 01800 PRINT "<C0102>" ; SPC $
0x1372…1386 LineComal80 {
0x1372…1386 ptr = 0xa974 // 0x1372 @0x0
0x1372…1386 lno = 0x0708 // 0x1374 @0x2
0x1372…1386 at0004 = ╱92╱ PRINT ╱ // 0x1376 @0x4
0x1372…1386 at0005 = ╱22╱"╱ // 0x1377 @0x5
0x1372…1386 at0006 = ╱3c╱<╱ // 0x1378 @0x6
0x1372…1386 at0007 = ╱43╱C╱ // 0x1379 @0x7
0x1372…1386 at0008 = ╱30╱0╱ // 0x137a @0x8
0x1372…1386 at0009 = ╱31╱1╱ // 0x137b @0x9
0x1372…1386 at000a = ╱30╱0╱ // 0x137c @0xa
0x1372…1386 at000b = ╱32╱2╱ // 0x137d @0xb
0x1372…1386 at000c = ╱3e╱>╱ // 0x137e @0xc
0x1372…1386 at000d = ╱22╱"╱ // 0x137f @0xd
0x1372…1386 at000e = ╱ea╱ ; ╱ // 0x1380 @0xe
0x1372…1386 at000f = ╱53╱S╱ // 0x1381 @0xf
0x1372…1386 at0010 = ╱50╱P╱ // 0x1382 @0x10
0x1372…1386 at0011 = ╱43╱C╱ // 0x1383 @0x11
0x1372…1386 at0012 = ╱ef╱ $ ╱ // 0x1384 @0x12
0x1372…1386 at0013 = EOL // 0x1385 @0x13
0x1372…1386 }
0x1386…1398 a986 01810 ENDPROC SL_FEJLLINIE
0x1386…1398 LineComal80 {
0x1386…1398 ptr = 0xa986 // 0x1386 @0x0
0x1386…1398 lno = 0x0712 // 0x1388 @0x2
0x1386…1398 at0004 = ╱9f╱ ENDPROC ╱ // 0x138a @0x4
0x1386…1398 at0005 = ╱53╱S╱ // 0x138b @0x5
0x1386…1398 at0006 = ╱4c╱L╱ // 0x138c @0x6
0x1386…1398 at0007 = ╱5f╱_╱ // 0x138d @0x7
0x1386…1398 at0008 = ╱46╱F╱ // 0x138e @0x8
0x1386…1398 at0009 = ╱45╱E╱ // 0x138f @0x9
0x1386…1398 at000a = ╱4a╱J╱ // 0x1390 @0xa
0x1386…1398 at000b = ╱4c╱L╱ // 0x1391 @0xb
0x1386…1398 at000c = ╱4c╱L╱ // 0x1392 @0xc
0x1386…1398 at000d = ╱49╱I╱ // 0x1393 @0xd
0x1386…1398 at000e = ╱4e╱N╱ // 0x1394 @0xe
0x1386…1398 at000f = ╱49╱I╱ // 0x1395 @0xf
0x1386…1398 at0010 = ╱45╱E╱ // 0x1396 @0x10
0x1386…1398 at0011 = EOL // 0x1397 @0x11
0x1386…1398 }
0x1398…139d a98b 01820
0x1398…139d LineComal80 {
0x1398…139d ptr = 0xa98b // 0x1398 @0x0
0x1398…139d lno = 0x071c // 0x139a @0x2
0x1398…139d at0004 = EOL // 0x139c @0x4
0x1398…139d }
0x139d…13ad a99b 01830 PROC FEJL ( ST $ )
0x139d…13ad LineComal80 {
0x139d…13ad ptr = 0xa99b // 0x139d @0x0
0x139d…13ad lno = 0x0726 // 0x139f @0x2
0x139d…13ad at0004 = ╱9e00╱ PROC ╱ // 0x13a1 @0x4
0x139d…13ad at0006 = ╱46╱F╱ // 0x13a3 @0x6
0x139d…13ad at0007 = ╱45╱E╱ // 0x13a4 @0x7
0x139d…13ad at0008 = ╱4a╱J╱ // 0x13a5 @0x8
0x139d…13ad at0009 = ╱4c╱L╱ // 0x13a6 @0x9
0x139d…13ad at000a = ╱ed╱ ( ╱ // 0x13a7 @0xa
0x139d…13ad at000b = ╱53╱S╱ // 0x13a8 @0xb
0x139d…13ad at000c = ╱54╱T╱ // 0x13a9 @0xc
0x139d…13ad at000d = ╱ef╱ $ ╱ // 0x13aa @0xd
0x139d…13ad at000e = ╱ee╱ ) ╱ // 0x13ab @0xe
0x139d…13ad at000f = EOL // 0x13ac @0xf
0x139d…13ad }
0x13ad…13bb a9a9 01840 LET OK := FALSE
0x13ad…13bb LineComal80 {
0x13ad…13bb ptr = 0xa9a9 // 0x13ad @0x0
0x13ad…13bb lno = 0x0730 // 0x13af @0x2
0x13ad…13bb at0004 = ╱86╱ LET ╱ // 0x13b1 @0x4
0x13ad…13bb at0005 = ╱4f╱O╱ // 0x13b2 @0x5
0x13ad…13bb at0006 = ╱4b╱K╱ // 0x13b3 @0x6
0x13ad…13bb at0007 = ╱f0╱ := ╱ // 0x13b4 @0x7
0x13ad…13bb at0008 = ╱46╱F╱ // 0x13b5 @0x8
0x13ad…13bb at0009 = ╱41╱A╱ // 0x13b6 @0x9
0x13ad…13bb at000a = ╱4c╱L╱ // 0x13b7 @0xa
0x13ad…13bb at000b = ╱53╱S╱ // 0x13b8 @0xb
0x13ad…13bb at000c = ╱45╱E╱ // 0x13b9 @0xc
0x13ad…13bb at000d = EOL // 0x13ba @0xd
0x13ad…13bb }
0x13bb…13d7 a9c5 01850 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
0x13bb…13d7 LineComal80 {
0x13bb…13d7 ptr = 0xa9c5 // 0x13bb @0x0
0x13bb…13d7 lno = 0x073a // 0x13bd @0x2
0x13bb…13d7 at0004 = ╱a1╱ CURSOR ╱ // 0x13bf @0x4
0x13bb…13d7 at0005 = ╱33╱3╱ // 0x13c0 @0x5
0x13bb…13d7 at0006 = ╱36╱6╱ // 0x13c1 @0x6
0x13bb…13d7 at0007 = ╱f22400╱ // 0x13c2 @0x7
0x13bb…13d7 at000a = ╱e6╱ - ╱ // 0x13c5 @0xa
0x13bb…13d7 at000b = ╱cb╱ // 0x13c6 @0xb
0x13bb…13d7 at000c = ╱ed╱ ( ╱ // 0x13c7 @0xc
0x13bb…13d7 at000d = ╱53╱S╱ // 0x13c8 @0xd
0x13bb…13d7 at000e = ╱54╱T╱ // 0x13c9 @0xe
0x13bb…13d7 at000f = ╱ef╱ $ ╱ // 0x13ca @0xf
0x13bb…13d7 at0010 = ╱ee╱ ) ╱ // 0x13cb @0x10
0x13bb…13d7 at0011 = ╱e8╱ / ╱ // 0x13cc @0x11
0x13bb…13d7 at0012 = ╱32╱2╱ // 0x13cd @0x12
0x13bb…13d7 at0013 = ╱f20200╱ // 0x13ce @0x13
0x13bb…13d7 at0016 = ╱ec╱ , ╱ // 0x13d1 @0x16
0x13bb…13d7 at0017 = ╱32╱2╱ // 0x13d2 @0x17
0x13bb…13d7 at0018 = ╱f20200╱ // 0x13d3 @0x18
0x13bb…13d7 at001b = EOL // 0x13d6 @0x1b
0x13bb…13d7 }
0x13d7…13f6 a9e4 01860 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
0x13d7…13f6 LineComal80 {
0x13d7…13f6 ptr = 0xa9e4 // 0x13d7 @0x0
0x13d7…13f6 lno = 0x0744 // 0x13d9 @0x2
0x13d7…13f6 at0004 = ╱92╱ PRINT ╱ // 0x13db @0x4
0x13d7…13f6 at0005 = ╱22╱"╱ // 0x13dc @0x5
0x13d7…13f6 at0006 = ╱2a╱*╱ // 0x13dd @0x6
0x13d7…13f6 at0007 = ╱2a╱*╱ // 0x13de @0x7
0x13d7…13f6 at0008 = ╱2a╱*╱ // 0x13df @0x8
0x13d7…13f6 at0009 = ╱20╱…╱ // 0x13e0 @0x9
0x13d7…13f6 at000a = ╱22╱"╱ // 0x13e1 @0xa
0x13d7…13f6 at000b = ╱eb╱ + ╱ // 0x13e2 @0xb
0x13d7…13f6 at000c = ╱53╱S╱ // 0x13e3 @0xc
0x13d7…13f6 at000d = ╱54╱T╱ // 0x13e4 @0xd
0x13d7…13f6 at000e = ╱ef╱ $ ╱ // 0x13e5 @0xe
0x13d7…13f6 at000f = ╱eb╱ + ╱ // 0x13e6 @0xf
0x13d7…13f6 at0010 = ╱22╱"╱ // 0x13e7 @0x10
0x13d7…13f6 at0011 = ╱20╱…╱ // 0x13e8 @0x11
0x13d7…13f6 at0012 = ╱2a╱*╱ // 0x13e9 @0x12
0x13d7…13f6 at0013 = ╱2a╱*╱ // 0x13ea @0x13
0x13d7…13f6 at0014 = ╱2a╱*╱ // 0x13eb @0x14
0x13d7…13f6 at0015 = ╱22╱"╱ // 0x13ec @0x15
0x13d7…13f6 at0016 = ╱ea╱ ; ╱ // 0x13ed @0x16
0x13d7…13f6 at0017 = ╱d0╱ CHR$ ╱ // 0x13ee @0x17
0x13d7…13f6 at0018 = ╱ed╱ ( ╱ // 0x13ef @0x18
0x13d7…13f6 at0019 = ╱37╱7╱ // 0x13f0 @0x19
0x13d7…13f6 at001a = ╱f20700╱ // 0x13f1 @0x1a
0x13d7…13f6 at001d = ╱ee╱ ) ╱ // 0x13f4 @0x1d
0x13d7…13f6 at001e = EOL // 0x13f5 @0x1e
0x13d7…13f6 }
0x13f6…1400 a9ee 01870 ENDPROC FEJL
0x13f6…1400 LineComal80 {
0x13f6…1400 ptr = 0xa9ee // 0x13f6 @0x0
0x13f6…1400 lno = 0x074e // 0x13f8 @0x2
0x13f6…1400 at0004 = ╱9f╱ ENDPROC ╱ // 0x13fa @0x4
0x13f6…1400 at0005 = ╱46╱F╱ // 0x13fb @0x5
0x13f6…1400 at0006 = ╱45╱E╱ // 0x13fc @0x6
0x13f6…1400 at0007 = ╱4a╱J╱ // 0x13fd @0x7
0x13f6…1400 at0008 = ╱4c╱L╱ // 0x13fe @0x8
0x13f6…1400 at0009 = EOL // 0x13ff @0x9
0x13f6…1400 }
0x1400…1405 a9f3 01880
0x1400…1405 LineComal80 {
0x1400…1405 ptr = 0xa9f3 // 0x1400 @0x0
0x1400…1405 lno = 0x0758 // 0x1402 @0x2
0x1400…1405 at0004 = EOL // 0x1404 @0x4
0x1400…1405 }
0x1405…140a a9f8 01890
0x1405…140a LineComal80 {
0x1405…140a ptr = 0xa9f8 // 0x1405 @0x0
0x1405…140a lno = 0x0762 // 0x1407 @0x2
0x1405…140a at0004 = EOL // 0x1409 @0x4
0x1405…140a }
0x140a…1421 aa0f 01900 PROC SKRIV_LIN ( R_LIN )
0x140a…1421 LineComal80 {
0x140a…1421 ptr = 0xaa0f // 0x140a @0x0
0x140a…1421 lno = 0x076c // 0x140c @0x2
0x140a…1421 at0004 = ╱9e00╱ PROC ╱ // 0x140e @0x4
0x140a…1421 at0006 = ╱53╱S╱ // 0x1410 @0x6
0x140a…1421 at0007 = ╱4b╱K╱ // 0x1411 @0x7
0x140a…1421 at0008 = ╱52╱R╱ // 0x1412 @0x8
0x140a…1421 at0009 = ╱49╱I╱ // 0x1413 @0x9
0x140a…1421 at000a = ╱56╱V╱ // 0x1414 @0xa
0x140a…1421 at000b = ╱5f╱_╱ // 0x1415 @0xb
0x140a…1421 at000c = ╱4c╱L╱ // 0x1416 @0xc
0x140a…1421 at000d = ╱49╱I╱ // 0x1417 @0xd
0x140a…1421 at000e = ╱4e╱N╱ // 0x1418 @0xe
0x140a…1421 at000f = ╱ed╱ ( ╱ // 0x1419 @0xf
0x140a…1421 at0010 = ╱52╱R╱ // 0x141a @0x10
0x140a…1421 at0011 = ╱5f╱_╱ // 0x141b @0x11
0x140a…1421 at0012 = ╱4c╱L╱ // 0x141c @0x12
0x140a…1421 at0013 = ╱49╱I╱ // 0x141d @0x13
0x140a…1421 at0014 = ╱4e╱N╱ // 0x141e @0x14
0x140a…1421 at0015 = ╱ee╱ ) ╱ // 0x141f @0x15
0x140a…1421 at0016 = EOL // 0x1420 @0x16
0x140a…1421 }
0x1421…1438 aa26 01910 IF K_BNR $ = "*****" THEN EXIT
0x1421…1438 LineComal80 {
0x1421…1438 ptr = 0xaa26 // 0x1421 @0x0
0x1421…1438 lno = 0x0776 // 0x1423 @0x2
0x1421…1438 at0004 = ╱8200╱ IF ╱ // 0x1425 @0x4
0x1421…1438 at0006 = ╱4b╱K╱ // 0x1427 @0x6
0x1421…1438 at0007 = ╱5f╱_╱ // 0x1428 @0x7
0x1421…1438 at0008 = ╱42╱B╱ // 0x1429 @0x8
0x1421…1438 at0009 = ╱4e╱N╱ // 0x142a @0x9
0x1421…1438 at000a = ╱52╱R╱ // 0x142b @0xa
0x1421…1438 at000b = ╱ef╱ $ ╱ // 0x142c @0xb
0x1421…1438 at000c = ╱df╱ = ╱ // 0x142d @0xc
0x1421…1438 at000d = ╱22╱"╱ // 0x142e @0xd
0x1421…1438 at000e = ╱2a╱*╱ // 0x142f @0xe
0x1421…1438 at000f = ╱2a╱*╱ // 0x1430 @0xf
0x1421…1438 at0010 = ╱2a╱*╱ // 0x1431 @0x10
0x1421…1438 at0011 = ╱2a╱*╱ // 0x1432 @0x11
0x1421…1438 at0012 = ╱2a╱*╱ // 0x1433 @0x12
0x1421…1438 at0013 = ╱22╱"╱ // 0x1434 @0x13
0x1421…1438 at0014 = ╱b5╱ THEN ╱ // 0x1435 @0x14
0x1421…1438 at0015 = ╱99╱ EXIT ╱ // 0x1436 @0x15
0x1421…1438 at0016 = EOL // 0x1437 @0x16
0x1421…1438 }
0x1438…1455 aa43 01920 LET R_SLIN := R_LIN MOD 12 + 8
0x1438…1455 LineComal80 {
0x1438…1455 ptr = 0xaa43 // 0x1438 @0x0
0x1438…1455 lno = 0x0780 // 0x143a @0x2
0x1438…1455 at0004 = ╱86╱ LET ╱ // 0x143c @0x4
0x1438…1455 at0005 = ╱52╱R╱ // 0x143d @0x5
0x1438…1455 at0006 = ╱5f╱_╱ // 0x143e @0x6
0x1438…1455 at0007 = ╱53╱S╱ // 0x143f @0x7
0x1438…1455 at0008 = ╱4c╱L╱ // 0x1440 @0x8
0x1438…1455 at0009 = ╱49╱I╱ // 0x1441 @0x9
0x1438…1455 at000a = ╱4e╱N╱ // 0x1442 @0xa
0x1438…1455 at000b = ╱f0╱ := ╱ // 0x1443 @0xb
0x1438…1455 at000c = ╱52╱R╱ // 0x1444 @0xc
0x1438…1455 at000d = ╱5f╱_╱ // 0x1445 @0xd
0x1438…1455 at000e = ╱4c╱L╱ // 0x1446 @0xe
0x1438…1455 at000f = ╱49╱I╱ // 0x1447 @0xf
0x1438…1455 at0010 = ╱4e╱N╱ // 0x1448 @0x10
0x1438…1455 at0011 = ╱db╱ MOD ╱ // 0x1449 @0x11
0x1438…1455 at0012 = ╱31╱1╱ // 0x144a @0x12
0x1438…1455 at0013 = ╱32╱2╱ // 0x144b @0x13
0x1438…1455 at0014 = ╱f20c00╱ // 0x144c @0x14
0x1438…1455 at0017 = ╱e5╱ + ╱ // 0x144f @0x17
0x1438…1455 at0018 = ╱38╱8╱ // 0x1450 @0x18
0x1438…1455 at0019 = ╱f20800╱ // 0x1451 @0x19
0x1438…1455 at001c = EOL // 0x1454 @0x1c
0x1438…1455 }
0x1455…147c aa6a 01930 IF R_SLIN = 8 THEN LET R_SLIN := 12 + R_SLIN
0x1455…147c LineComal80 {
0x1455…147c ptr = 0xaa6a // 0x1455 @0x0
0x1455…147c lno = 0x078a // 0x1457 @0x2
0x1455…147c at0004 = ╱8200╱ IF ╱ // 0x1459 @0x4
0x1455…147c at0006 = ╱52╱R╱ // 0x145b @0x6
0x1455…147c at0007 = ╱5f╱_╱ // 0x145c @0x7
0x1455…147c at0008 = ╱53╱S╱ // 0x145d @0x8
0x1455…147c at0009 = ╱4c╱L╱ // 0x145e @0x9
0x1455…147c at000a = ╱49╱I╱ // 0x145f @0xa
0x1455…147c at000b = ╱4e╱N╱ // 0x1460 @0xb
0x1455…147c at000c = ╱df╱ = ╱ // 0x1461 @0xc
0x1455…147c at000d = ╱38╱8╱ // 0x1462 @0xd
0x1455…147c at000e = ╱f20800╱ // 0x1463 @0xe
0x1455…147c at0011 = ╱b5╱ THEN ╱ // 0x1466 @0x11
0x1455…147c at0012 = ╱86╱ LET ╱ // 0x1467 @0x12
0x1455…147c at0013 = ╱52╱R╱ // 0x1468 @0x13
0x1455…147c at0014 = ╱5f╱_╱ // 0x1469 @0x14
0x1455…147c at0015 = ╱53╱S╱ // 0x146a @0x15
0x1455…147c at0016 = ╱4c╱L╱ // 0x146b @0x16
0x1455…147c at0017 = ╱49╱I╱ // 0x146c @0x17
0x1455…147c at0018 = ╱4e╱N╱ // 0x146d @0x18
0x1455…147c at0019 = ╱f0╱ := ╱ // 0x146e @0x19
0x1455…147c at001a = ╱31╱1╱ // 0x146f @0x1a
0x1455…147c at001b = ╱32╱2╱ // 0x1470 @0x1b
0x1455…147c at001c = ╱f20c00╱ // 0x1471 @0x1c
0x1455…147c at001f = ╱e5╱ + ╱ // 0x1474 @0x1f
0x1455…147c at0020 = ╱52╱R╱ // 0x1475 @0x20
0x1455…147c at0021 = ╱5f╱_╱ // 0x1476 @0x21
0x1455…147c at0022 = ╱53╱S╱ // 0x1477 @0x22
0x1455…147c at0023 = ╱4c╱L╱ // 0x1478 @0x23
0x1455…147c at0024 = ╱49╱I╱ // 0x1479 @0x24
0x1455…147c at0025 = ╱4e╱N╱ // 0x147a @0x25
0x1455…147c at0026 = EOL // 0x147b @0x26
0x1455…147c }
0x147c…148d aa7b 01940 CURSOR 1 , R_SLIN
0x147c…148d LineComal80 {
0x147c…148d ptr = 0xaa7b // 0x147c @0x0
0x147c…148d lno = 0x0794 // 0x147e @0x2
0x147c…148d at0004 = ╱a1╱ CURSOR ╱ // 0x1480 @0x4
0x147c…148d at0005 = ╱31╱1╱ // 0x1481 @0x5
0x147c…148d at0006 = ╱f20100╱ // 0x1482 @0x6
0x147c…148d at0009 = ╱ec╱ , ╱ // 0x1485 @0x9
0x147c…148d at000a = ╱52╱R╱ // 0x1486 @0xa
0x147c…148d at000b = ╱5f╱_╱ // 0x1487 @0xb
0x147c…148d at000c = ╱53╱S╱ // 0x1488 @0xc
0x147c…148d at000d = ╱4c╱L╱ // 0x1489 @0xd
0x147c…148d at000e = ╱49╱I╱ // 0x148a @0xe
0x147c…148d at000f = ╱4e╱N╱ // 0x148b @0xf
0x147c…148d at0010 = EOL // 0x148c @0x10
0x147c…148d }
0x148d…14a3 aa91 01950 PRINT SPC $ ( 1 : 78 )
0x148d…14a3 LineComal80 {
0x148d…14a3 ptr = 0xaa91 // 0x148d @0x0
0x148d…14a3 lno = 0x079e // 0x148f @0x2
0x148d…14a3 at0004 = ╱92╱ PRINT ╱ // 0x1491 @0x4
0x148d…14a3 at0005 = ╱53╱S╱ // 0x1492 @0x5
0x148d…14a3 at0006 = ╱50╱P╱ // 0x1493 @0x6
0x148d…14a3 at0007 = ╱43╱C╱ // 0x1494 @0x7
0x148d…14a3 at0008 = ╱ef╱ $ ╱ // 0x1495 @0x8
0x148d…14a3 at0009 = ╱ed╱ ( ╱ // 0x1496 @0x9
0x148d…14a3 at000a = ╱31╱1╱ // 0x1497 @0xa
0x148d…14a3 at000b = ╱f20100╱ // 0x1498 @0xb
0x148d…14a3 at000e = ╱f1╱ : ╱ // 0x149b @0xe
0x148d…14a3 at000f = ╱37╱7╱ // 0x149c @0xf
0x148d…14a3 at0010 = ╱38╱8╱ // 0x149d @0x10
0x148d…14a3 at0011 = ╱f24e00╱ // 0x149e @0x11
0x148d…14a3 at0014 = ╱ee╱ ) ╱ // 0x14a1 @0x14
0x148d…14a3 at0015 = EOL // 0x14a2 @0x15
0x148d…14a3 }
0x14a3…14b4 aaa2 01960 CURSOR 1 , R_SLIN
0x14a3…14b4 LineComal80 {
0x14a3…14b4 ptr = 0xaaa2 // 0x14a3 @0x0
0x14a3…14b4 lno = 0x07a8 // 0x14a5 @0x2
0x14a3…14b4 at0004 = ╱a1╱ CURSOR ╱ // 0x14a7 @0x4
0x14a3…14b4 at0005 = ╱31╱1╱ // 0x14a8 @0x5
0x14a3…14b4 at0006 = ╱f20100╱ // 0x14a9 @0x6
0x14a3…14b4 at0009 = ╱ec╱ , ╱ // 0x14ac @0x9
0x14a3…14b4 at000a = ╱52╱R╱ // 0x14ad @0xa
0x14a3…14b4 at000b = ╱5f╱_╱ // 0x14ae @0xb
0x14a3…14b4 at000c = ╱53╱S╱ // 0x14af @0xc
0x14a3…14b4 at000d = ╱4c╱L╱ // 0x14b0 @0xd
0x14a3…14b4 at000e = ╱49╱I╱ // 0x14b1 @0xe
0x14a3…14b4 at000f = ╱4e╱N╱ // 0x14b2 @0xf
0x14a3…14b4 at0010 = EOL // 0x14b3 @0x10
0x14a3…14b4 }
0x14b4…14c7 aab5 01970 PRINT CHR$ ( R_LIN , 2 )
0x14b4…14c7 LineComal80 {
0x14b4…14c7 ptr = 0xaab5 // 0x14b4 @0x0
0x14b4…14c7 lno = 0x07b2 // 0x14b6 @0x2
0x14b4…14c7 at0004 = ╱92╱ PRINT ╱ // 0x14b8 @0x4
0x14b4…14c7 at0005 = ╱d0╱ CHR$ ╱ // 0x14b9 @0x5
0x14b4…14c7 at0006 = ╱ed╱ ( ╱ // 0x14ba @0x6
0x14b4…14c7 at0007 = ╱52╱R╱ // 0x14bb @0x7
0x14b4…14c7 at0008 = ╱5f╱_╱ // 0x14bc @0x8
0x14b4…14c7 at0009 = ╱4c╱L╱ // 0x14bd @0x9
0x14b4…14c7 at000a = ╱49╱I╱ // 0x14be @0xa
0x14b4…14c7 at000b = ╱4e╱N╱ // 0x14bf @0xb
0x14b4…14c7 at000c = ╱ec╱ , ╱ // 0x14c0 @0xc
0x14b4…14c7 at000d = ╱32╱2╱ // 0x14c1 @0xd
0x14b4…14c7 at000e = ╱f20200╱ // 0x14c2 @0xe
0x14b4…14c7 at0011 = ╱ee╱ ) ╱ // 0x14c5 @0x11
0x14b4…14c7 at0012 = EOL // 0x14c6 @0x12
0x14b4…14c7 }
0x14c7…14d8 aac6 01980 CURSOR 4 , R_SLIN
0x14c7…14d8 LineComal80 {
0x14c7…14d8 ptr = 0xaac6 // 0x14c7 @0x0
0x14c7…14d8 lno = 0x07bc // 0x14c9 @0x2
0x14c7…14d8 at0004 = ╱a1╱ CURSOR ╱ // 0x14cb @0x4
0x14c7…14d8 at0005 = ╱34╱4╱ // 0x14cc @0x5
0x14c7…14d8 at0006 = ╱f20400╱ // 0x14cd @0x6
0x14c7…14d8 at0009 = ╱ec╱ , ╱ // 0x14d0 @0x9
0x14c7…14d8 at000a = ╱52╱R╱ // 0x14d1 @0xa
0x14c7…14d8 at000b = ╱5f╱_╱ // 0x14d2 @0xb
0x14c7…14d8 at000c = ╱53╱S╱ // 0x14d3 @0xc
0x14c7…14d8 at000d = ╱4c╱L╱ // 0x14d4 @0xd
0x14c7…14d8 at000e = ╱49╱I╱ // 0x14d5 @0xe
0x14c7…14d8 at000f = ╱4e╱N╱ // 0x14d6 @0xf
0x14c7…14d8 at0010 = EOL // 0x14d7 @0x10
0x14c7…14d8 }
0x14d8…14e4 aad2 01990 PRINT K_BNR $
0x14d8…14e4 LineComal80 {
0x14d8…14e4 ptr = 0xaad2 // 0x14d8 @0x0
0x14d8…14e4 lno = 0x07c6 // 0x14da @0x2
0x14d8…14e4 at0004 = ╱92╱ PRINT ╱ // 0x14dc @0x4
0x14d8…14e4 at0005 = ╱4b╱K╱ // 0x14dd @0x5
0x14d8…14e4 at0006 = ╱5f╱_╱ // 0x14de @0x6
0x14d8…14e4 at0007 = ╱42╱B╱ // 0x14df @0x7
0x14d8…14e4 at0008 = ╱4e╱N╱ // 0x14e0 @0x8
0x14d8…14e4 at0009 = ╱52╱R╱ // 0x14e1 @0x9
0x14d8…14e4 at000a = ╱ef╱ $ ╱ // 0x14e2 @0xa
0x14d8…14e4 at000b = EOL // 0x14e3 @0xb
0x14d8…14e4 }
0x14e4…14f6 aae4 02000 CURSOR 11 , R_SLIN
0x14e4…14f6 LineComal80 {
0x14e4…14f6 ptr = 0xaae4 // 0x14e4 @0x0
0x14e4…14f6 lno = 0x07d0 // 0x14e6 @0x2
0x14e4…14f6 at0004 = ╱a1╱ CURSOR ╱ // 0x14e8 @0x4
0x14e4…14f6 at0005 = ╱31╱1╱ // 0x14e9 @0x5
0x14e4…14f6 at0006 = ╱31╱1╱ // 0x14ea @0x6
0x14e4…14f6 at0007 = ╱f20b00╱ // 0x14eb @0x7
0x14e4…14f6 at000a = ╱ec╱ , ╱ // 0x14ee @0xa
0x14e4…14f6 at000b = ╱52╱R╱ // 0x14ef @0xb
0x14e4…14f6 at000c = ╱5f╱_╱ // 0x14f0 @0xc
0x14e4…14f6 at000d = ╱53╱S╱ // 0x14f1 @0xd
0x14e4…14f6 at000e = ╱4c╱L╱ // 0x14f2 @0xe
0x14e4…14f6 at000f = ╱49╱I╱ // 0x14f3 @0xf
0x14e4…14f6 at0010 = ╱4e╱N╱ // 0x14f4 @0x10
0x14e4…14f6 at0011 = EOL // 0x14f5 @0x11
0x14e4…14f6 }
0x14f6…1502 aaf0 02010 PRINT K_TXT $
0x14f6…1502 LineComal80 {
0x14f6…1502 ptr = 0xaaf0 // 0x14f6 @0x0
0x14f6…1502 lno = 0x07da // 0x14f8 @0x2
0x14f6…1502 at0004 = ╱92╱ PRINT ╱ // 0x14fa @0x4
0x14f6…1502 at0005 = ╱4b╱K╱ // 0x14fb @0x5
0x14f6…1502 at0006 = ╱5f╱_╱ // 0x14fc @0x6
0x14f6…1502 at0007 = ╱54╱T╱ // 0x14fd @0x7
0x14f6…1502 at0008 = ╱58╱X╱ // 0x14fe @0x8
0x14f6…1502 at0009 = ╱54╱T╱ // 0x14ff @0x9
0x14f6…1502 at000a = ╱ef╱ $ ╱ // 0x1500 @0xa
0x14f6…1502 at000b = EOL // 0x1501 @0xb
0x14f6…1502 }
0x1502…1514 ab02 02020 CURSOR 32 , R_SLIN
0x1502…1514 LineComal80 {
0x1502…1514 ptr = 0xab02 // 0x1502 @0x0
0x1502…1514 lno = 0x07e4 // 0x1504 @0x2
0x1502…1514 at0004 = ╱a1╱ CURSOR ╱ // 0x1506 @0x4
0x1502…1514 at0005 = ╱33╱3╱ // 0x1507 @0x5
0x1502…1514 at0006 = ╱32╱2╱ // 0x1508 @0x6
0x1502…1514 at0007 = ╱f22000╱ // 0x1509 @0x7
0x1502…1514 at000a = ╱ec╱ , ╱ // 0x150c @0xa
0x1502…1514 at000b = ╱52╱R╱ // 0x150d @0xb
0x1502…1514 at000c = ╱5f╱_╱ // 0x150e @0xc
0x1502…1514 at000d = ╱53╱S╱ // 0x150f @0xd
0x1502…1514 at000e = ╱4c╱L╱ // 0x1510 @0xe
0x1502…1514 at000f = ╱49╱I╱ // 0x1511 @0xf
0x1502…1514 at0010 = ╱4e╱N╱ // 0x1512 @0x10
0x1502…1514 at0011 = EOL // 0x1513 @0x11
0x1502…1514 }
0x1514…1521 ab0f 02030 PRINT K_MKOD $
0x1514…1521 LineComal80 {
0x1514…1521 ptr = 0xab0f // 0x1514 @0x0
0x1514…1521 lno = 0x07ee // 0x1516 @0x2
0x1514…1521 at0004 = ╱92╱ PRINT ╱ // 0x1518 @0x4
0x1514…1521 at0005 = ╱4b╱K╱ // 0x1519 @0x5
0x1514…1521 at0006 = ╱5f╱_╱ // 0x151a @0x6
0x1514…1521 at0007 = ╱4d╱M╱ // 0x151b @0x7
0x1514…1521 at0008 = ╱4b╱K╱ // 0x151c @0x8
0x1514…1521 at0009 = ╱4f╱O╱ // 0x151d @0x9
0x1514…1521 at000a = ╱44╱D╱ // 0x151e @0xa
0x1514…1521 at000b = ╱ef╱ $ ╱ // 0x151f @0xb
0x1514…1521 at000c = EOL // 0x1520 @0xc
0x1514…1521 }
0x1521…1533 ab21 02040 CURSOR 38 , R_SLIN
0x1521…1533 LineComal80 {
0x1521…1533 ptr = 0xab21 // 0x1521 @0x0
0x1521…1533 lno = 0x07f8 // 0x1523 @0x2
0x1521…1533 at0004 = ╱a1╱ CURSOR ╱ // 0x1525 @0x4
0x1521…1533 at0005 = ╱33╱3╱ // 0x1526 @0x5
0x1521…1533 at0006 = ╱38╱8╱ // 0x1527 @0x6
0x1521…1533 at0007 = ╱f22600╱ // 0x1528 @0x7
0x1521…1533 at000a = ╱ec╱ , ╱ // 0x152b @0xa
0x1521…1533 at000b = ╱52╱R╱ // 0x152c @0xb
0x1521…1533 at000c = ╱5f╱_╱ // 0x152d @0xc
0x1521…1533 at000d = ╱53╱S╱ // 0x152e @0xd
0x1521…1533 at000e = ╱4c╱L╱ // 0x152f @0xe
0x1521…1533 at000f = ╱49╱I╱ // 0x1530 @0xf
0x1521…1533 at0010 = ╱4e╱N╱ // 0x1531 @0x10
0x1521…1533 at0011 = EOL // 0x1532 @0x11
0x1521…1533 }
0x1533…1540 ab2e 02050 PRINT K_LKOD $
0x1533…1540 LineComal80 {
0x1533…1540 ptr = 0xab2e // 0x1533 @0x0
0x1533…1540 lno = 0x0802 // 0x1535 @0x2
0x1533…1540 at0004 = ╱92╱ PRINT ╱ // 0x1537 @0x4
0x1533…1540 at0005 = ╱4b╱K╱ // 0x1538 @0x5
0x1533…1540 at0006 = ╱5f╱_╱ // 0x1539 @0x6
0x1533…1540 at0007 = ╱4c╱L╱ // 0x153a @0x7
0x1533…1540 at0008 = ╱4b╱K╱ // 0x153b @0x8
0x1533…1540 at0009 = ╱4f╱O╱ // 0x153c @0x9
0x1533…1540 at000a = ╱44╱D╱ // 0x153d @0xa
0x1533…1540 at000b = ╱ef╱ $ ╱ // 0x153e @0xb
0x1533…1540 at000c = EOL // 0x153f @0xc
0x1533…1540 }
0x1540…1552 ab40 02060 IF _DK = DEBET THEN
0x1540…1552 LineComal80 {
0x1540…1552 ptr = 0xab40 // 0x1540 @0x0
0x1540…1552 lno = 0x080c // 0x1542 @0x2
0x1540…1552 at0004 = ╱9b004b╱ IF ╱ // 0x1544 @0x4
0x1540…1552 at0007 = ╱5f╱_╱ // 0x1547 @0x7
0x1540…1552 at0008 = ╱44╱D╱ // 0x1548 @0x8
0x1540…1552 at0009 = ╱4b╱K╱ // 0x1549 @0x9
0x1540…1552 at000a = ╱df╱ = ╱ // 0x154a @0xa
0x1540…1552 at000b = ╱44╱D╱ // 0x154b @0xb
0x1540…1552 at000c = ╱45╱E╱ // 0x154c @0xc
0x1540…1552 at000d = ╱42╱B╱ // 0x154d @0xd
0x1540…1552 at000e = ╱45╱E╱ // 0x154e @0xe
0x1540…1552 at000f = ╱54╱T╱ // 0x154f @0xf
0x1540…1552 at0010 = ╱b5╱ THEN ╱ // 0x1550 @0x10
0x1540…1552 at0011 = EOL // 0x1551 @0x11
0x1540…1552 }
0x1552…1564 ab52 02070 CURSOR 42 , R_SLIN
0x1552…1564 LineComal80 {
0x1552…1564 ptr = 0xab52 // 0x1552 @0x0
0x1552…1564 lno = 0x0816 // 0x1554 @0x2
0x1552…1564 at0004 = ╱a1╱ CURSOR ╱ // 0x1556 @0x4
0x1552…1564 at0005 = ╱34╱4╱ // 0x1557 @0x5
0x1552…1564 at0006 = ╱32╱2╱ // 0x1558 @0x6
0x1552…1564 at0007 = ╱f22a00╱ // 0x1559 @0x7
0x1552…1564 at000a = ╱ec╱ , ╱ // 0x155c @0xa
0x1552…1564 at000b = ╱52╱R╱ // 0x155d @0xb
0x1552…1564 at000c = ╱5f╱_╱ // 0x155e @0xc
0x1552…1564 at000d = ╱53╱S╱ // 0x155f @0xd
0x1552…1564 at000e = ╱4c╱L╱ // 0x1560 @0xe
0x1552…1564 at000f = ╱49╱I╱ // 0x1561 @0xf
0x1552…1564 at0010 = ╱4e╱N╱ // 0x1562 @0x10
0x1552…1564 at0011 = EOL // 0x1563 @0x11
0x1552…1564 }
0x1564…156b ab59 02080 ELSE
0x1564…156b LineComal80 {
0x1564…156b ptr = 0xab59 // 0x1564 @0x0
0x1564…156b lno = 0x0820 // 0x1566 @0x2
0x1564…156b at0004 = ╱9a00╱ ELSE ╱ // 0x1568 @0x4
0x1564…156b at0006 = EOL // 0x156a @0x6
0x1564…156b }
0x156b…157d ab6b 02090 CURSOR 55 , R_SLIN
0x156b…157d LineComal80 {
0x156b…157d ptr = 0xab6b // 0x156b @0x0
0x156b…157d lno = 0x082a // 0x156d @0x2
0x156b…157d at0004 = ╱a1╱ CURSOR ╱ // 0x156f @0x4
0x156b…157d at0005 = ╱35╱5╱ // 0x1570 @0x5
0x156b…157d at0006 = ╱35╱5╱ // 0x1571 @0x6
0x156b…157d at0007 = ╱f23700╱ // 0x1572 @0x7
0x156b…157d at000a = ╱ec╱ , ╱ // 0x1575 @0xa
0x156b…157d at000b = ╱52╱R╱ // 0x1576 @0xb
0x156b…157d at000c = ╱5f╱_╱ // 0x1577 @0xc
0x156b…157d at000d = ╱53╱S╱ // 0x1578 @0xd
0x156b…157d at000e = ╱4c╱L╱ // 0x1579 @0xe
0x156b…157d at000f = ╱49╱I╱ // 0x157a @0xf
0x156b…157d at0010 = ╱4e╱N╱ // 0x157b @0x10
0x156b…157d at0011 = EOL // 0x157c @0x11
0x156b…157d }
0x157d…1583 ab71 02100 ENDIF
0x157d…1583 LineComal80 {
0x157d…1583 ptr = 0xab71 // 0x157d @0x0
0x157d…1583 lno = 0x0834 // 0x157f @0x2
0x157d…1583 at0004 = ╱9c╱ ENDIF ╱ // 0x1581 @0x4
0x157d…1583 at0005 = EOL // 0x1582 @0x5
0x157d…1583 }
0x1583…159b ab89 02110 PRINT CHR$ ( K_BKR , 9 , 2 )
0x1583…159b LineComal80 {
0x1583…159b ptr = 0xab89 // 0x1583 @0x0
0x1583…159b lno = 0x083e // 0x1585 @0x2
0x1583…159b at0004 = ╱92╱ PRINT ╱ // 0x1587 @0x4
0x1583…159b at0005 = ╱d0╱ CHR$ ╱ // 0x1588 @0x5
0x1583…159b at0006 = ╱ed╱ ( ╱ // 0x1589 @0x6
0x1583…159b at0007 = ╱4b╱K╱ // 0x158a @0x7
0x1583…159b at0008 = ╱5f╱_╱ // 0x158b @0x8
0x1583…159b at0009 = ╱42╱B╱ // 0x158c @0x9
0x1583…159b at000a = ╱4b╱K╱ // 0x158d @0xa
0x1583…159b at000b = ╱52╱R╱ // 0x158e @0xb
0x1583…159b at000c = ╱ec╱ , ╱ // 0x158f @0xc
0x1583…159b at000d = ╱39╱9╱ // 0x1590 @0xd
0x1583…159b at000e = ╱f20900╱ // 0x1591 @0xe
0x1583…159b at0011 = ╱ec╱ , ╱ // 0x1594 @0x11
0x1583…159b at0012 = ╱32╱2╱ // 0x1595 @0x12
0x1583…159b at0013 = ╱f20200╱ // 0x1596 @0x13
0x1583…159b at0016 = ╱ee╱ ) ╱ // 0x1599 @0x16
0x1583…159b at0017 = EOL // 0x159a @0x17
0x1583…159b }
0x159b…15ad ab9b 02120 CURSOR 69 , R_SLIN
0x159b…15ad LineComal80 {
0x159b…15ad ptr = 0xab9b // 0x159b @0x0
0x159b…15ad lno = 0x0848 // 0x159d @0x2
0x159b…15ad at0004 = ╱a1╱ CURSOR ╱ // 0x159f @0x4
0x159b…15ad at0005 = ╱36╱6╱ // 0x15a0 @0x5
0x159b…15ad at0006 = ╱39╱9╱ // 0x15a1 @0x6
0x159b…15ad at0007 = ╱f24500╱ // 0x15a2 @0x7
0x159b…15ad at000a = ╱ec╱ , ╱ // 0x15a5 @0xa
0x159b…15ad at000b = ╱52╱R╱ // 0x15a6 @0xb
0x159b…15ad at000c = ╱5f╱_╱ // 0x15a7 @0xc
0x159b…15ad at000d = ╱53╱S╱ // 0x15a8 @0xd
0x159b…15ad at000e = ╱4c╱L╱ // 0x15a9 @0xe
0x159b…15ad at000f = ╱49╱I╱ // 0x15aa @0xf
0x159b…15ad at0010 = ╱4e╱N╱ // 0x15ab @0x10
0x159b…15ad at0011 = EOL // 0x15ac @0x11
0x159b…15ad }
0x15ad…15ba aba8 02130 PRINT K_BKTO $
0x15ad…15ba LineComal80 {
0x15ad…15ba ptr = 0xaba8 // 0x15ad @0x0
0x15ad…15ba lno = 0x0852 // 0x15af @0x2
0x15ad…15ba at0004 = ╱92╱ PRINT ╱ // 0x15b1 @0x4
0x15ad…15ba at0005 = ╱4b╱K╱ // 0x15b2 @0x5
0x15ad…15ba at0006 = ╱5f╱_╱ // 0x15b3 @0x6
0x15ad…15ba at0007 = ╱42╱B╱ // 0x15b4 @0x7
0x15ad…15ba at0008 = ╱4b╱K╱ // 0x15b5 @0x8
0x15ad…15ba at0009 = ╱54╱T╱ // 0x15b6 @0x9
0x15ad…15ba at000a = ╱4f╱O╱ // 0x15b7 @0xa
0x15ad…15ba at000b = ╱ef╱ $ ╱ // 0x15b8 @0xb
0x15ad…15ba at000c = EOL // 0x15b9 @0xc
0x15ad…15ba }
0x15ba…15c9 abb7 02140 ENDPROC SKRIV_LIN
0x15ba…15c9 LineComal80 {
0x15ba…15c9 ptr = 0xabb7 // 0x15ba @0x0
0x15ba…15c9 lno = 0x085c // 0x15bc @0x2
0x15ba…15c9 at0004 = ╱9f╱ ENDPROC ╱ // 0x15be @0x4
0x15ba…15c9 at0005 = ╱53╱S╱ // 0x15bf @0x5
0x15ba…15c9 at0006 = ╱4b╱K╱ // 0x15c0 @0x6
0x15ba…15c9 at0007 = ╱52╱R╱ // 0x15c1 @0x7
0x15ba…15c9 at0008 = ╱49╱I╱ // 0x15c2 @0x8
0x15ba…15c9 at0009 = ╱56╱V╱ // 0x15c3 @0x9
0x15ba…15c9 at000a = ╱5f╱_╱ // 0x15c4 @0xa
0x15ba…15c9 at000b = ╱4c╱L╱ // 0x15c5 @0xb
0x15ba…15c9 at000c = ╱49╱I╱ // 0x15c6 @0xc
0x15ba…15c9 at000d = ╱4e╱N╱ // 0x15c7 @0xd
0x15ba…15c9 at000e = EOL // 0x15c8 @0xe
0x15ba…15c9 }
0x15c9…15ce abbc 02150
0x15c9…15ce LineComal80 {
0x15c9…15ce ptr = 0xabbc // 0x15c9 @0x0
0x15c9…15ce lno = 0x0866 // 0x15cb @0x2
0x15c9…15ce at0004 = EOL // 0x15cd @0x4
0x15c9…15ce }
0x15ce…15e4 abd2 02160 PROC SKRIV_K_POST ( P )
0x15ce…15e4 LineComal80 {
0x15ce…15e4 ptr = 0xabd2 // 0x15ce @0x0
0x15ce…15e4 lno = 0x0870 // 0x15d0 @0x2
0x15ce…15e4 at0004 = ╱9e00╱ PROC ╱ // 0x15d2 @0x4
0x15ce…15e4 at0006 = ╱53╱S╱ // 0x15d4 @0x6
0x15ce…15e4 at0007 = ╱4b╱K╱ // 0x15d5 @0x7
0x15ce…15e4 at0008 = ╱52╱R╱ // 0x15d6 @0x8
0x15ce…15e4 at0009 = ╱49╱I╱ // 0x15d7 @0x9
0x15ce…15e4 at000a = ╱56╱V╱ // 0x15d8 @0xa
0x15ce…15e4 at000b = ╱5f╱_╱ // 0x15d9 @0xb
0x15ce…15e4 at000c = ╱4b╱K╱ // 0x15da @0xc
0x15ce…15e4 at000d = ╱5f╱_╱ // 0x15db @0xd
0x15ce…15e4 at000e = ╱50╱P╱ // 0x15dc @0xe
0x15ce…15e4 at000f = ╱4f╱O╱ // 0x15dd @0xf
0x15ce…15e4 at0010 = ╱53╱S╱ // 0x15de @0x10
0x15ce…15e4 at0011 = ╱54╱T╱ // 0x15df @0x11
0x15ce…15e4 at0012 = ╱ed╱ ( ╱ // 0x15e0 @0x12
0x15ce…15e4 at0013 = ╱50╱P╱ // 0x15e1 @0x13
0x15ce…15e4 at0014 = ╱ee╱ ) ╱ // 0x15e2 @0x14
0x15ce…15e4 at0015 = EOL // 0x15e3 @0x15
0x15ce…15e4 }
0x15e4…1628 ac16 02170 PUT KASSE $ , P + 1 : K_BKTO $ , K_LKOD $ , K_MKOD $ , K_BNR $ , K_TXT $ , K_BKR , K_DK
0x15e4…1628 LineComal80 {
0x15e4…1628 ptr = 0xac16 // 0x15e4 @0x0
0x15e4…1628 lno = 0x087a // 0x15e6 @0x2
0x15e4…1628 at0004 = ╱aa╱ PUT ╱ // 0x15e8 @0x4
0x15e4…1628 at0005 = ╱4b╱K╱ // 0x15e9 @0x5
0x15e4…1628 at0006 = ╱41╱A╱ // 0x15ea @0x6
0x15e4…1628 at0007 = ╱53╱S╱ // 0x15eb @0x7
0x15e4…1628 at0008 = ╱53╱S╱ // 0x15ec @0x8
0x15e4…1628 at0009 = ╱45╱E╱ // 0x15ed @0x9
0x15e4…1628 at000a = ╱ef╱ $ ╱ // 0x15ee @0xa
0x15e4…1628 at000b = ╱ec╱ , ╱ // 0x15ef @0xb
0x15e4…1628 at000c = ╱50╱P╱ // 0x15f0 @0xc
0x15e4…1628 at000d = ╱e5╱ + ╱ // 0x15f1 @0xd
0x15e4…1628 at000e = ╱31╱1╱ // 0x15f2 @0xe
0x15e4…1628 at000f = ╱f20100╱ // 0x15f3 @0xf
0x15e4…1628 at0012 = ╱f1╱ : ╱ // 0x15f6 @0x12
0x15e4…1628 at0013 = ╱4b╱K╱ // 0x15f7 @0x13
0x15e4…1628 at0014 = ╱5f╱_╱ // 0x15f8 @0x14
0x15e4…1628 at0015 = ╱42╱B╱ // 0x15f9 @0x15
0x15e4…1628 at0016 = ╱4b╱K╱ // 0x15fa @0x16
0x15e4…1628 at0017 = ╱54╱T╱ // 0x15fb @0x17
0x15e4…1628 at0018 = ╱4f╱O╱ // 0x15fc @0x18
0x15e4…1628 at0019 = ╱ef╱ $ ╱ // 0x15fd @0x19
0x15e4…1628 at001a = ╱ec╱ , ╱ // 0x15fe @0x1a
0x15e4…1628 at001b = ╱4b╱K╱ // 0x15ff @0x1b
0x15e4…1628 at001c = ╱5f╱_╱ // 0x1600 @0x1c
0x15e4…1628 at001d = ╱4c╱L╱ // 0x1601 @0x1d
0x15e4…1628 at001e = ╱4b╱K╱ // 0x1602 @0x1e
0x15e4…1628 at001f = ╱4f╱O╱ // 0x1603 @0x1f
0x15e4…1628 at0020 = ╱44╱D╱ // 0x1604 @0x20
0x15e4…1628 at0021 = ╱ef╱ $ ╱ // 0x1605 @0x21
0x15e4…1628 at0022 = ╱ec╱ , ╱ // 0x1606 @0x22
0x15e4…1628 at0023 = ╱4b╱K╱ // 0x1607 @0x23
0x15e4…1628 at0024 = ╱5f╱_╱ // 0x1608 @0x24
0x15e4…1628 at0025 = ╱4d╱M╱ // 0x1609 @0x25
0x15e4…1628 at0026 = ╱4b╱K╱ // 0x160a @0x26
0x15e4…1628 at0027 = ╱4f╱O╱ // 0x160b @0x27
0x15e4…1628 at0028 = ╱44╱D╱ // 0x160c @0x28
0x15e4…1628 at0029 = ╱ef╱ $ ╱ // 0x160d @0x29
0x15e4…1628 at002a = ╱ec╱ , ╱ // 0x160e @0x2a
0x15e4…1628 at002b = ╱4b╱K╱ // 0x160f @0x2b
0x15e4…1628 at002c = ╱5f╱_╱ // 0x1610 @0x2c
0x15e4…1628 at002d = ╱42╱B╱ // 0x1611 @0x2d
0x15e4…1628 at002e = ╱4e╱N╱ // 0x1612 @0x2e
0x15e4…1628 at002f = ╱52╱R╱ // 0x1613 @0x2f
0x15e4…1628 at0030 = ╱ef╱ $ ╱ // 0x1614 @0x30
0x15e4…1628 at0031 = ╱ec╱ , ╱ // 0x1615 @0x31
0x15e4…1628 at0032 = ╱4b╱K╱ // 0x1616 @0x32
0x15e4…1628 at0033 = ╱5f╱_╱ // 0x1617 @0x33
0x15e4…1628 at0034 = ╱54╱T╱ // 0x1618 @0x34
0x15e4…1628 at0035 = ╱58╱X╱ // 0x1619 @0x35
0x15e4…1628 at0036 = ╱54╱T╱ // 0x161a @0x36
0x15e4…1628 at0037 = ╱ef╱ $ ╱ // 0x161b @0x37
0x15e4…1628 at0038 = ╱ec╱ , ╱ // 0x161c @0x38
0x15e4…1628 at0039 = ╱4b╱K╱ // 0x161d @0x39
0x15e4…1628 at003a = ╱5f╱_╱ // 0x161e @0x3a
0x15e4…1628 at003b = ╱42╱B╱ // 0x161f @0x3b
0x15e4…1628 at003c = ╱4b╱K╱ // 0x1620 @0x3c
0x15e4…1628 at003d = ╱52╱R╱ // 0x1621 @0x3d
0x15e4…1628 at003e = ╱ec╱ , ╱ // 0x1622 @0x3e
0x15e4…1628 at003f = ╱4b╱K╱ // 0x1623 @0x3f
0x15e4…1628 at0040 = ╱5f╱_╱ // 0x1624 @0x40
0x15e4…1628 at0041 = ╱44╱D╱ // 0x1625 @0x41
0x15e4…1628 at0042 = ╱4b╱K╱ // 0x1626 @0x42
0x15e4…1628 at0043 = EOL // 0x1627 @0x43
0x15e4…1628 }
0x1628…163a ac28 02180 ENDPROC SKRIV_K_POST
0x1628…163a LineComal80 {
0x1628…163a ptr = 0xac28 // 0x1628 @0x0
0x1628…163a lno = 0x0884 // 0x162a @0x2
0x1628…163a at0004 = ╱9f╱ ENDPROC ╱ // 0x162c @0x4
0x1628…163a at0005 = ╱53╱S╱ // 0x162d @0x5
0x1628…163a at0006 = ╱4b╱K╱ // 0x162e @0x6
0x1628…163a at0007 = ╱52╱R╱ // 0x162f @0x7
0x1628…163a at0008 = ╱49╱I╱ // 0x1630 @0x8
0x1628…163a at0009 = ╱56╱V╱ // 0x1631 @0x9
0x1628…163a at000a = ╱5f╱_╱ // 0x1632 @0xa
0x1628…163a at000b = ╱4b╱K╱ // 0x1633 @0xb
0x1628…163a at000c = ╱5f╱_╱ // 0x1634 @0xc
0x1628…163a at000d = ╱50╱P╱ // 0x1635 @0xd
0x1628…163a at000e = ╱4f╱O╱ // 0x1636 @0xe
0x1628…163a at000f = ╱53╱S╱ // 0x1637 @0xf
0x1628…163a at0010 = ╱54╱T╱ // 0x1638 @0x10
0x1628…163a at0011 = EOL // 0x1639 @0x11
0x1628…163a }
0x163a…163f ac2d 02190
0x163a…163f LineComal80 {
0x163a…163f ptr = 0xac2d // 0x163a @0x0
0x163a…163f lno = 0x088e // 0x163c @0x2
0x163a…163f at0004 = EOL // 0x163e @0x4
0x163a…163f }
0x163f…1653 ac41 02200 PROC L[S_K_POST ( P )
0x163f…1653 LineComal80 {
0x163f…1653 ptr = 0xac41 // 0x163f @0x0
0x163f…1653 lno = 0x0898 // 0x1641 @0x2
0x163f…1653 at0004 = ╱9e00╱ PROC ╱ // 0x1643 @0x4
0x163f…1653 at0006 = ╱4c╱L╱ // 0x1645 @0x6
0x163f…1653 at0007 = ╱5b╱[╱ // 0x1646 @0x7
0x163f…1653 at0008 = ╱53╱S╱ // 0x1647 @0x8
0x163f…1653 at0009 = ╱5f╱_╱ // 0x1648 @0x9
0x163f…1653 at000a = ╱4b╱K╱ // 0x1649 @0xa
0x163f…1653 at000b = ╱5f╱_╱ // 0x164a @0xb
0x163f…1653 at000c = ╱50╱P╱ // 0x164b @0xc
0x163f…1653 at000d = ╱4f╱O╱ // 0x164c @0xd
0x163f…1653 at000e = ╱53╱S╱ // 0x164d @0xe
0x163f…1653 at000f = ╱54╱T╱ // 0x164e @0xf
0x163f…1653 at0010 = ╱ed╱ ( ╱ // 0x164f @0x10
0x163f…1653 at0011 = ╱50╱P╱ // 0x1650 @0x11
0x163f…1653 at0012 = ╱ee╱ ) ╱ // 0x1651 @0x12
0x163f…1653 at0013 = EOL // 0x1652 @0x13
0x163f…1653 }
0x1653…1697 ac85 02210 GET KASSE $ , P + 1 : K_BKTO $ , K_LKOD $ , K_MKOD $ , K_BNR $ , K_TXT $ , K_BKR , K_DK
0x1653…1697 LineComal80 {
0x1653…1697 ptr = 0xac85 // 0x1653 @0x0
0x1653…1697 lno = 0x08a2 // 0x1655 @0x2
0x1653…1697 at0004 = ╱a9╱ GET ╱ // 0x1657 @0x4
0x1653…1697 at0005 = ╱4b╱K╱ // 0x1658 @0x5
0x1653…1697 at0006 = ╱41╱A╱ // 0x1659 @0x6
0x1653…1697 at0007 = ╱53╱S╱ // 0x165a @0x7
0x1653…1697 at0008 = ╱53╱S╱ // 0x165b @0x8
0x1653…1697 at0009 = ╱45╱E╱ // 0x165c @0x9
0x1653…1697 at000a = ╱ef╱ $ ╱ // 0x165d @0xa
0x1653…1697 at000b = ╱ec╱ , ╱ // 0x165e @0xb
0x1653…1697 at000c = ╱50╱P╱ // 0x165f @0xc
0x1653…1697 at000d = ╱e5╱ + ╱ // 0x1660 @0xd
0x1653…1697 at000e = ╱31╱1╱ // 0x1661 @0xe
0x1653…1697 at000f = ╱f20100╱ // 0x1662 @0xf
0x1653…1697 at0012 = ╱f1╱ : ╱ // 0x1665 @0x12
0x1653…1697 at0013 = ╱4b╱K╱ // 0x1666 @0x13
0x1653…1697 at0014 = ╱5f╱_╱ // 0x1667 @0x14
0x1653…1697 at0015 = ╱42╱B╱ // 0x1668 @0x15
0x1653…1697 at0016 = ╱4b╱K╱ // 0x1669 @0x16
0x1653…1697 at0017 = ╱54╱T╱ // 0x166a @0x17
0x1653…1697 at0018 = ╱4f╱O╱ // 0x166b @0x18
0x1653…1697 at0019 = ╱ef╱ $ ╱ // 0x166c @0x19
0x1653…1697 at001a = ╱ec╱ , ╱ // 0x166d @0x1a
0x1653…1697 at001b = ╱4b╱K╱ // 0x166e @0x1b
0x1653…1697 at001c = ╱5f╱_╱ // 0x166f @0x1c
0x1653…1697 at001d = ╱4c╱L╱ // 0x1670 @0x1d
0x1653…1697 at001e = ╱4b╱K╱ // 0x1671 @0x1e
0x1653…1697 at001f = ╱4f╱O╱ // 0x1672 @0x1f
0x1653…1697 at0020 = ╱44╱D╱ // 0x1673 @0x20
0x1653…1697 at0021 = ╱ef╱ $ ╱ // 0x1674 @0x21
0x1653…1697 at0022 = ╱ec╱ , ╱ // 0x1675 @0x22
0x1653…1697 at0023 = ╱4b╱K╱ // 0x1676 @0x23
0x1653…1697 at0024 = ╱5f╱_╱ // 0x1677 @0x24
0x1653…1697 at0025 = ╱4d╱M╱ // 0x1678 @0x25
0x1653…1697 at0026 = ╱4b╱K╱ // 0x1679 @0x26
0x1653…1697 at0027 = ╱4f╱O╱ // 0x167a @0x27
0x1653…1697 at0028 = ╱44╱D╱ // 0x167b @0x28
0x1653…1697 at0029 = ╱ef╱ $ ╱ // 0x167c @0x29
0x1653…1697 at002a = ╱ec╱ , ╱ // 0x167d @0x2a
0x1653…1697 at002b = ╱4b╱K╱ // 0x167e @0x2b
0x1653…1697 at002c = ╱5f╱_╱ // 0x167f @0x2c
0x1653…1697 at002d = ╱42╱B╱ // 0x1680 @0x2d
0x1653…1697 at002e = ╱4e╱N╱ // 0x1681 @0x2e
0x1653…1697 at002f = ╱52╱R╱ // 0x1682 @0x2f
0x1653…1697 at0030 = ╱ef╱ $ ╱ // 0x1683 @0x30
0x1653…1697 at0031 = ╱ec╱ , ╱ // 0x1684 @0x31
0x1653…1697 at0032 = ╱4b╱K╱ // 0x1685 @0x32
0x1653…1697 at0033 = ╱5f╱_╱ // 0x1686 @0x33
0x1653…1697 at0034 = ╱54╱T╱ // 0x1687 @0x34
0x1653…1697 at0035 = ╱58╱X╱ // 0x1688 @0x35
0x1653…1697 at0036 = ╱54╱T╱ // 0x1689 @0x36
0x1653…1697 at0037 = ╱ef╱ $ ╱ // 0x168a @0x37
0x1653…1697 at0038 = ╱ec╱ , ╱ // 0x168b @0x38
0x1653…1697 at0039 = ╱4b╱K╱ // 0x168c @0x39
0x1653…1697 at003a = ╱5f╱_╱ // 0x168d @0x3a
0x1653…1697 at003b = ╱42╱B╱ // 0x168e @0x3b
0x1653…1697 at003c = ╱4b╱K╱ // 0x168f @0x3c
0x1653…1697 at003d = ╱52╱R╱ // 0x1690 @0x3d
0x1653…1697 at003e = ╱ec╱ , ╱ // 0x1691 @0x3e
0x1653…1697 at003f = ╱4b╱K╱ // 0x1692 @0x3f
0x1653…1697 at0040 = ╱5f╱_╱ // 0x1693 @0x40
0x1653…1697 at0041 = ╱44╱D╱ // 0x1694 @0x41
0x1653…1697 at0042 = ╱4b╱K╱ // 0x1695 @0x42
0x1653…1697 at0043 = EOL // 0x1696 @0x43
0x1653…1697 }
0x1697…16a7 ac95 02220 ENDPROC L[S_K_POST
0x1697…16a7 LineComal80 {
0x1697…16a7 ptr = 0xac95 // 0x1697 @0x0
0x1697…16a7 lno = 0x08ac // 0x1699 @0x2
0x1697…16a7 at0004 = ╱9f╱ ENDPROC ╱ // 0x169b @0x4
0x1697…16a7 at0005 = ╱4c╱L╱ // 0x169c @0x5
0x1697…16a7 at0006 = ╱5b╱[╱ // 0x169d @0x6
0x1697…16a7 at0007 = ╱53╱S╱ // 0x169e @0x7
0x1697…16a7 at0008 = ╱5f╱_╱ // 0x169f @0x8
0x1697…16a7 at0009 = ╱4b╱K╱ // 0x16a0 @0x9
0x1697…16a7 at000a = ╱5f╱_╱ // 0x16a1 @0xa
0x1697…16a7 at000b = ╱50╱P╱ // 0x16a2 @0xb
0x1697…16a7 at000c = ╱4f╱O╱ // 0x16a3 @0xc
0x1697…16a7 at000d = ╱53╱S╱ // 0x16a4 @0xd
0x1697…16a7 at000e = ╱54╱T╱ // 0x16a5 @0xe
0x1697…16a7 at000f = EOL // 0x16a6 @0xf
0x1697…16a7 }
0x16a7…16ac ac9a 02230
0x16a7…16ac LineComal80 {
0x16a7…16ac ptr = 0xac9a // 0x16a7 @0x0
0x16a7…16ac lno = 0x08b6 // 0x16a9 @0x2
0x16a7…16ac at0004 = EOL // 0x16ab @0x4
0x16a7…16ac }
0x16ac…16bf acad 02240 PROC L[S_KONTO ( P )
0x16ac…16bf LineComal80 {
0x16ac…16bf ptr = 0xacad // 0x16ac @0x0
0x16ac…16bf lno = 0x08c0 // 0x16ae @0x2
0x16ac…16bf at0004 = ╱9e00╱ PROC ╱ // 0x16b0 @0x4
0x16ac…16bf at0006 = ╱4c╱L╱ // 0x16b2 @0x6
0x16ac…16bf at0007 = ╱5b╱[╱ // 0x16b3 @0x7
0x16ac…16bf at0008 = ╱53╱S╱ // 0x16b4 @0x8
0x16ac…16bf at0009 = ╱5f╱_╱ // 0x16b5 @0x9
0x16ac…16bf at000a = ╱4b╱K╱ // 0x16b6 @0xa
0x16ac…16bf at000b = ╱4f╱O╱ // 0x16b7 @0xb
0x16ac…16bf at000c = ╱4e╱N╱ // 0x16b8 @0xc
0x16ac…16bf at000d = ╱54╱T╱ // 0x16b9 @0xd
0x16ac…16bf at000e = ╱4f╱O╱ // 0x16ba @0xe
0x16ac…16bf at000f = ╱ed╱ ( ╱ // 0x16bb @0xf
0x16ac…16bf at0010 = ╱50╱P╱ // 0x16bc @0x10
0x16ac…16bf at0011 = ╱ee╱ ) ╱ // 0x16bd @0x11
0x16ac…16bf at0012 = EOL // 0x16be @0x12
0x16ac…16bf }
0x16bf…1704 acf2 02250 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x16bf…1704 LineComal80 {
0x16bf…1704 ptr = 0xacf2 // 0x16bf @0x0
0x16bf…1704 lno = 0x08ca // 0x16c1 @0x2
0x16bf…1704 at0004 = ╱a9╱ GET ╱ // 0x16c3 @0x4
0x16bf…1704 at0005 = ╱4b╱K╱ // 0x16c4 @0x5
0x16bf…1704 at0006 = ╱4f╱O╱ // 0x16c5 @0x6
0x16bf…1704 at0007 = ╱4e╱N╱ // 0x16c6 @0x7
0x16bf…1704 at0008 = ╱54╱T╱ // 0x16c7 @0x8
0x16bf…1704 at0009 = ╱4f╱O╱ // 0x16c8 @0x9
0x16bf…1704 at000a = ╱ef╱ $ ╱ // 0x16c9 @0xa
0x16bf…1704 at000b = ╱ec╱ , ╱ // 0x16ca @0xb
0x16bf…1704 at000c = ╱50╱P╱ // 0x16cb @0xc
0x16bf…1704 at000d = ╱f1╱ : ╱ // 0x16cc @0xd
0x16bf…1704 at000e = ╱4b╱K╱ // 0x16cd @0xe
0x16bf…1704 at000f = ╱54╱T╱ // 0x16ce @0xf
0x16bf…1704 at0010 = ╱4f╱O╱ // 0x16cf @0x10
0x16bf…1704 at0011 = ╱5f╱_╱ // 0x16d0 @0x11
0x16bf…1704 at0012 = ╱54╱T╱ // 0x16d1 @0x12
0x16bf…1704 at0013 = ╱59╱Y╱ // 0x16d2 @0x13
0x16bf…1704 at0014 = ╱50╱P╱ // 0x16d3 @0x14
0x16bf…1704 at0015 = ╱45╱E╱ // 0x16d4 @0x15
0x16bf…1704 at0016 = ╱ef╱ $ ╱ // 0x16d5 @0x16
0x16bf…1704 at0017 = ╱ec╱ , ╱ // 0x16d6 @0x17
0x16bf…1704 at0018 = ╱4b╱K╱ // 0x16d7 @0x18
0x16bf…1704 at0019 = ╱54╱T╱ // 0x16d8 @0x19
0x16bf…1704 at001a = ╱4f╱O╱ // 0x16d9 @0x1a
0x16bf…1704 at001b = ╱5f╱_╱ // 0x16da @0x1b
0x16bf…1704 at001c = ╱4e╱N╱ // 0x16db @0x1c
0x16bf…1704 at001d = ╱41╱A╱ // 0x16dc @0x1d
0x16bf…1704 at001e = ╱56╱V╱ // 0x16dd @0x1e
0x16bf…1704 at001f = ╱4e╱N╱ // 0x16de @0x1f
0x16bf…1704 at0020 = ╱ef╱ $ ╱ // 0x16df @0x20
0x16bf…1704 at0021 = ╱ec╱ , ╱ // 0x16e0 @0x21
0x16bf…1704 at0022 = ╱4b╱K╱ // 0x16e1 @0x22
0x16bf…1704 at0023 = ╱54╱T╱ // 0x16e2 @0x23
0x16bf…1704 at0024 = ╱4f╱O╱ // 0x16e3 @0x24
0x16bf…1704 at0025 = ╱5f╱_╱ // 0x16e4 @0x25
0x16bf…1704 at0026 = ╱50╱P╱ // 0x16e5 @0x26
0x16bf…1704 at0027 = ╱52╱R╱ // 0x16e6 @0x27
0x16bf…1704 at0028 = ╱49╱I╱ // 0x16e7 @0x28
0x16bf…1704 at0029 = ╱4d╱M╱ // 0x16e8 @0x29
0x16bf…1704 at002a = ╱4f╱O╱ // 0x16e9 @0x2a
0x16bf…1704 at002b = ╱ec╱ , ╱ // 0x16ea @0x2b
0x16bf…1704 at002c = ╱4b╱K╱ // 0x16eb @0x2c
0x16bf…1704 at002d = ╱54╱T╱ // 0x16ec @0x2d
0x16bf…1704 at002e = ╱4f╱O╱ // 0x16ed @0x2e
0x16bf…1704 at002f = ╱5f╱_╱ // 0x16ee @0x2f
0x16bf…1704 at0030 = ╱55╱U╱ // 0x16ef @0x30
0x16bf…1704 at0031 = ╱4c╱L╱ // 0x16f0 @0x31
0x16bf…1704 at0032 = ╱54╱T╱ // 0x16f1 @0x32
0x16bf…1704 at0033 = ╱49╱I╱ // 0x16f2 @0x33
0x16bf…1704 at0034 = ╱4d╱M╱ // 0x16f3 @0x34
0x16bf…1704 at0035 = ╱4f╱O╱ // 0x16f4 @0x35
0x16bf…1704 at0036 = ╱ec╱ , ╱ // 0x16f5 @0x36
0x16bf…1704 at0037 = ╱4b╱K╱ // 0x16f6 @0x37
0x16bf…1704 at0038 = ╱54╱T╱ // 0x16f7 @0x38
0x16bf…1704 at0039 = ╱4f╱O╱ // 0x16f8 @0x39
0x16bf…1704 at003a = ╱5f╱_╱ // 0x16f9 @0x3a
0x16bf…1704 at003b = ╱46╱F╱ // 0x16fa @0x3b
0x16bf…1704 at003c = ╱50╱P╱ // 0x16fb @0x3c
0x16bf…1704 at003d = ╱ec╱ , ╱ // 0x16fc @0x3d
0x16bf…1704 at003e = ╱4b╱K╱ // 0x16fd @0x3e
0x16bf…1704 at003f = ╱54╱T╱ // 0x16fe @0x3f
0x16bf…1704 at0040 = ╱4f╱O╱ // 0x16ff @0x40
0x16bf…1704 at0041 = ╱5f╱_╱ // 0x1700 @0x41
0x16bf…1704 at0042 = ╱53╱S╱ // 0x1701 @0x42
0x16bf…1704 at0043 = ╱50╱P╱ // 0x1702 @0x43
0x16bf…1704 at0044 = EOL // 0x1703 @0x44
0x16bf…1704 }
0x1704…1713 ad01 02260 ENDPROC L[S_KONTO
0x1704…1713 LineComal80 {
0x1704…1713 ptr = 0xad01 // 0x1704 @0x0
0x1704…1713 lno = 0x08d4 // 0x1706 @0x2
0x1704…1713 at0004 = ╱9f╱ ENDPROC ╱ // 0x1708 @0x4
0x1704…1713 at0005 = ╱4c╱L╱ // 0x1709 @0x5
0x1704…1713 at0006 = ╱5b╱[╱ // 0x170a @0x6
0x1704…1713 at0007 = ╱53╱S╱ // 0x170b @0x7
0x1704…1713 at0008 = ╱5f╱_╱ // 0x170c @0x8
0x1704…1713 at0009 = ╱4b╱K╱ // 0x170d @0x9
0x1704…1713 at000a = ╱4f╱O╱ // 0x170e @0xa
0x1704…1713 at000b = ╱4e╱N╱ // 0x170f @0xb
0x1704…1713 at000c = ╱54╱T╱ // 0x1710 @0xc
0x1704…1713 at000d = ╱4f╱O╱ // 0x1711 @0xd
0x1704…1713 at000e = EOL // 0x1712 @0xe
0x1704…1713 }
0x1713…1718 ad06 02270
0x1713…1718 LineComal80 {
0x1713…1718 ptr = 0xad06 // 0x1713 @0x0
0x1713…1718 lno = 0x08de // 0x1715 @0x2
0x1713…1718 at0004 = EOL // 0x1717 @0x4
0x1713…1718 }
0x1718…172d ad1b 02280 PROC SKRIV_KONTO ( P )
0x1718…172d LineComal80 {
0x1718…172d ptr = 0xad1b // 0x1718 @0x0
0x1718…172d lno = 0x08e8 // 0x171a @0x2
0x1718…172d at0004 = ╱9e00╱ PROC ╱ // 0x171c @0x4
0x1718…172d at0006 = ╱53╱S╱ // 0x171e @0x6
0x1718…172d at0007 = ╱4b╱K╱ // 0x171f @0x7
0x1718…172d at0008 = ╱52╱R╱ // 0x1720 @0x8
0x1718…172d at0009 = ╱49╱I╱ // 0x1721 @0x9
0x1718…172d at000a = ╱56╱V╱ // 0x1722 @0xa
0x1718…172d at000b = ╱5f╱_╱ // 0x1723 @0xb
0x1718…172d at000c = ╱4b╱K╱ // 0x1724 @0xc
0x1718…172d at000d = ╱4f╱O╱ // 0x1725 @0xd
0x1718…172d at000e = ╱4e╱N╱ // 0x1726 @0xe
0x1718…172d at000f = ╱54╱T╱ // 0x1727 @0xf
0x1718…172d at0010 = ╱4f╱O╱ // 0x1728 @0x10
0x1718…172d at0011 = ╱ed╱ ( ╱ // 0x1729 @0x11
0x1718…172d at0012 = ╱50╱P╱ // 0x172a @0x12
0x1718…172d at0013 = ╱ee╱ ) ╱ // 0x172b @0x13
0x1718…172d at0014 = EOL // 0x172c @0x14
0x1718…172d }
0x172d…1772 ad60 02290 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x172d…1772 LineComal80 {
0x172d…1772 ptr = 0xad60 // 0x172d @0x0
0x172d…1772 lno = 0x08f2 // 0x172f @0x2
0x172d…1772 at0004 = ╱aa╱ PUT ╱ // 0x1731 @0x4
0x172d…1772 at0005 = ╱4b╱K╱ // 0x1732 @0x5
0x172d…1772 at0006 = ╱4f╱O╱ // 0x1733 @0x6
0x172d…1772 at0007 = ╱4e╱N╱ // 0x1734 @0x7
0x172d…1772 at0008 = ╱54╱T╱ // 0x1735 @0x8
0x172d…1772 at0009 = ╱4f╱O╱ // 0x1736 @0x9
0x172d…1772 at000a = ╱ef╱ $ ╱ // 0x1737 @0xa
0x172d…1772 at000b = ╱ec╱ , ╱ // 0x1738 @0xb
0x172d…1772 at000c = ╱50╱P╱ // 0x1739 @0xc
0x172d…1772 at000d = ╱f1╱ : ╱ // 0x173a @0xd
0x172d…1772 at000e = ╱4b╱K╱ // 0x173b @0xe
0x172d…1772 at000f = ╱54╱T╱ // 0x173c @0xf
0x172d…1772 at0010 = ╱4f╱O╱ // 0x173d @0x10
0x172d…1772 at0011 = ╱5f╱_╱ // 0x173e @0x11
0x172d…1772 at0012 = ╱54╱T╱ // 0x173f @0x12
0x172d…1772 at0013 = ╱59╱Y╱ // 0x1740 @0x13
0x172d…1772 at0014 = ╱50╱P╱ // 0x1741 @0x14
0x172d…1772 at0015 = ╱45╱E╱ // 0x1742 @0x15
0x172d…1772 at0016 = ╱ef╱ $ ╱ // 0x1743 @0x16
0x172d…1772 at0017 = ╱ec╱ , ╱ // 0x1744 @0x17
0x172d…1772 at0018 = ╱4b╱K╱ // 0x1745 @0x18
0x172d…1772 at0019 = ╱54╱T╱ // 0x1746 @0x19
0x172d…1772 at001a = ╱4f╱O╱ // 0x1747 @0x1a
0x172d…1772 at001b = ╱5f╱_╱ // 0x1748 @0x1b
0x172d…1772 at001c = ╱4e╱N╱ // 0x1749 @0x1c
0x172d…1772 at001d = ╱41╱A╱ // 0x174a @0x1d
0x172d…1772 at001e = ╱56╱V╱ // 0x174b @0x1e
0x172d…1772 at001f = ╱4e╱N╱ // 0x174c @0x1f
0x172d…1772 at0020 = ╱ef╱ $ ╱ // 0x174d @0x20
0x172d…1772 at0021 = ╱ec╱ , ╱ // 0x174e @0x21
0x172d…1772 at0022 = ╱4b╱K╱ // 0x174f @0x22
0x172d…1772 at0023 = ╱54╱T╱ // 0x1750 @0x23
0x172d…1772 at0024 = ╱4f╱O╱ // 0x1751 @0x24
0x172d…1772 at0025 = ╱5f╱_╱ // 0x1752 @0x25
0x172d…1772 at0026 = ╱50╱P╱ // 0x1753 @0x26
0x172d…1772 at0027 = ╱52╱R╱ // 0x1754 @0x27
0x172d…1772 at0028 = ╱49╱I╱ // 0x1755 @0x28
0x172d…1772 at0029 = ╱4d╱M╱ // 0x1756 @0x29
0x172d…1772 at002a = ╱4f╱O╱ // 0x1757 @0x2a
0x172d…1772 at002b = ╱ec╱ , ╱ // 0x1758 @0x2b
0x172d…1772 at002c = ╱4b╱K╱ // 0x1759 @0x2c
0x172d…1772 at002d = ╱54╱T╱ // 0x175a @0x2d
0x172d…1772 at002e = ╱4f╱O╱ // 0x175b @0x2e
0x172d…1772 at002f = ╱5f╱_╱ // 0x175c @0x2f
0x172d…1772 at0030 = ╱55╱U╱ // 0x175d @0x30
0x172d…1772 at0031 = ╱4c╱L╱ // 0x175e @0x31
0x172d…1772 at0032 = ╱54╱T╱ // 0x175f @0x32
0x172d…1772 at0033 = ╱49╱I╱ // 0x1760 @0x33
0x172d…1772 at0034 = ╱4d╱M╱ // 0x1761 @0x34
0x172d…1772 at0035 = ╱4f╱O╱ // 0x1762 @0x35
0x172d…1772 at0036 = ╱ec╱ , ╱ // 0x1763 @0x36
0x172d…1772 at0037 = ╱4b╱K╱ // 0x1764 @0x37
0x172d…1772 at0038 = ╱54╱T╱ // 0x1765 @0x38
0x172d…1772 at0039 = ╱4f╱O╱ // 0x1766 @0x39
0x172d…1772 at003a = ╱5f╱_╱ // 0x1767 @0x3a
0x172d…1772 at003b = ╱46╱F╱ // 0x1768 @0x3b
0x172d…1772 at003c = ╱50╱P╱ // 0x1769 @0x3c
0x172d…1772 at003d = ╱ec╱ , ╱ // 0x176a @0x3d
0x172d…1772 at003e = ╱4b╱K╱ // 0x176b @0x3e
0x172d…1772 at003f = ╱54╱T╱ // 0x176c @0x3f
0x172d…1772 at0040 = ╱4f╱O╱ // 0x176d @0x40
0x172d…1772 at0041 = ╱5f╱_╱ // 0x176e @0x41
0x172d…1772 at0042 = ╱53╱S╱ // 0x176f @0x42
0x172d…1772 at0043 = ╱50╱P╱ // 0x1770 @0x43
0x172d…1772 at0044 = EOL // 0x1771 @0x44
0x172d…1772 }
0x1772…1783 ad71 02300 ENDPROC SKRIV_KONTO
0x1772…1783 LineComal80 {
0x1772…1783 ptr = 0xad71 // 0x1772 @0x0
0x1772…1783 lno = 0x08fc // 0x1774 @0x2
0x1772…1783 at0004 = ╱9f╱ ENDPROC ╱ // 0x1776 @0x4
0x1772…1783 at0005 = ╱53╱S╱ // 0x1777 @0x5
0x1772…1783 at0006 = ╱4b╱K╱ // 0x1778 @0x6
0x1772…1783 at0007 = ╱52╱R╱ // 0x1779 @0x7
0x1772…1783 at0008 = ╱49╱I╱ // 0x177a @0x8
0x1772…1783 at0009 = ╱56╱V╱ // 0x177b @0x9
0x1772…1783 at000a = ╱5f╱_╱ // 0x177c @0xa
0x1772…1783 at000b = ╱4b╱K╱ // 0x177d @0xb
0x1772…1783 at000c = ╱4f╱O╱ // 0x177e @0xc
0x1772…1783 at000d = ╱4e╱N╱ // 0x177f @0xd
0x1772…1783 at000e = ╱54╱T╱ // 0x1780 @0xe
0x1772…1783 at000f = ╱4f╱O╱ // 0x1781 @0xf
0x1772…1783 at0010 = EOL // 0x1782 @0x10
0x1772…1783 }
0x1783…1788 ad76 02310
0x1783…1788 LineComal80 {
0x1783…1788 ptr = 0xad76 // 0x1783 @0x0
0x1783…1788 lno = 0x0906 // 0x1785 @0x2
0x1783…1788 at0004 = EOL // 0x1787 @0x4
0x1783…1788 }
0x1788…179b ad89 02320 PROC L[S_TRANS ( P )
0x1788…179b LineComal80 {
0x1788…179b ptr = 0xad89 // 0x1788 @0x0
0x1788…179b lno = 0x0910 // 0x178a @0x2
0x1788…179b at0004 = ╱9e00╱ PROC ╱ // 0x178c @0x4
0x1788…179b at0006 = ╱4c╱L╱ // 0x178e @0x6
0x1788…179b at0007 = ╱5b╱[╱ // 0x178f @0x7
0x1788…179b at0008 = ╱53╱S╱ // 0x1790 @0x8
0x1788…179b at0009 = ╱5f╱_╱ // 0x1791 @0x9
0x1788…179b at000a = ╱54╱T╱ // 0x1792 @0xa
0x1788…179b at000b = ╱52╱R╱ // 0x1793 @0xb
0x1788…179b at000c = ╱41╱A╱ // 0x1794 @0xc
0x1788…179b at000d = ╱4e╱N╱ // 0x1795 @0xd
0x1788…179b at000e = ╱53╱S╱ // 0x1796 @0xe
0x1788…179b at000f = ╱ed╱ ( ╱ // 0x1797 @0xf
0x1788…179b at0010 = ╱50╱P╱ // 0x1798 @0x10
0x1788…179b at0011 = ╱ee╱ ) ╱ // 0x1799 @0x11
0x1788…179b at0012 = EOL // 0x179a @0x12
0x1788…179b }
0x179b…17dc adca 02330 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
0x179b…17dc LineComal80 {
0x179b…17dc ptr = 0xadca // 0x179b @0x0
0x179b…17dc lno = 0x091a // 0x179d @0x2
0x179b…17dc at0004 = ╱a9╱ GET ╱ // 0x179f @0x4
0x179b…17dc at0005 = ╱54╱T╱ // 0x17a0 @0x5
0x179b…17dc at0006 = ╱52╱R╱ // 0x17a1 @0x6
0x179b…17dc at0007 = ╱41╱A╱ // 0x17a2 @0x7
0x179b…17dc at0008 = ╱4e╱N╱ // 0x17a3 @0x8
0x179b…17dc at0009 = ╱53╱S╱ // 0x17a4 @0x9
0x179b…17dc at000a = ╱ef╱ $ ╱ // 0x17a5 @0xa
0x179b…17dc at000b = ╱ec╱ , ╱ // 0x17a6 @0xb
0x179b…17dc at000c = ╱50╱P╱ // 0x17a7 @0xc
0x179b…17dc at000d = ╱f1╱ : ╱ // 0x17a8 @0xd
0x179b…17dc at000e = ╱42╱B╱ // 0x17a9 @0xe
0x179b…17dc at000f = ╱4b╱K╱ // 0x17aa @0xf
0x179b…17dc at0010 = ╱54╱T╱ // 0x17ab @0x10
0x179b…17dc at0011 = ╱4f╱O╱ // 0x17ac @0x11
0x179b…17dc at0012 = ╱4e╱N╱ // 0x17ad @0x12
0x179b…17dc at0013 = ╱52╱R╱ // 0x17ae @0x13
0x179b…17dc at0014 = ╱ef╱ $ ╱ // 0x17af @0x14
0x179b…17dc at0015 = ╱ec╱ , ╱ // 0x17b0 @0x15
0x179b…17dc at0016 = ╱42╱B╱ // 0x17b1 @0x16
0x179b…17dc at0017 = ╱44╱D╱ // 0x17b2 @0x17
0x179b…17dc at0018 = ╱41╱A╱ // 0x17b3 @0x18
0x179b…17dc at0019 = ╱54╱T╱ // 0x17b4 @0x19
0x179b…17dc at001a = ╱4f╱O╱ // 0x17b5 @0x1a
0x179b…17dc at001b = ╱ef╱ $ ╱ // 0x17b6 @0x1b
0x179b…17dc at001c = ╱ec╱ , ╱ // 0x17b7 @0x1c
0x179b…17dc at001d = ╱42╱B╱ // 0x17b8 @0x1d
0x179b…17dc at001e = ╱4c╱L╱ // 0x17b9 @0x1e
0x179b…17dc at001f = ╱47╱G╱ // 0x17ba @0x1f
0x179b…17dc at0020 = ╱4e╱N╱ // 0x17bb @0x20
0x179b…17dc at0021 = ╱52╱R╱ // 0x17bc @0x21
0x179b…17dc at0022 = ╱ef╱ $ ╱ // 0x17bd @0x22
0x179b…17dc at0023 = ╱ec╱ , ╱ // 0x17be @0x23
0x179b…17dc at0024 = ╱42╱B╱ // 0x17bf @0x24
0x179b…17dc at0025 = ╱54╱T╱ // 0x17c0 @0x25
0x179b…17dc at0026 = ╱58╱X╱ // 0x17c1 @0x26
0x179b…17dc at0027 = ╱54╱T╱ // 0x17c2 @0x27
0x179b…17dc at0028 = ╱ef╱ $ ╱ // 0x17c3 @0x28
0x179b…17dc at0029 = ╱ec╱ , ╱ // 0x17c4 @0x29
0x179b…17dc at002a = ╱42╱B╱ // 0x17c5 @0x2a
0x179b…17dc at002b = ╱4d╱M╱ // 0x17c6 @0x2b
0x179b…17dc at002c = ╱4f╱O╱ // 0x17c7 @0x2c
0x179b…17dc at002d = ╱4d╱M╱ // 0x17c8 @0x2d
0x179b…17dc at002e = ╱53╱S╱ // 0x17c9 @0x2e
0x179b…17dc at002f = ╱ec╱ , ╱ // 0x17ca @0x2f
0x179b…17dc at0030 = ╱42╱B╱ // 0x17cb @0x30
0x179b…17dc at0031 = ╱42╱B╱ // 0x17cc @0x31
0x179b…17dc at0032 = ╱45╱E╱ // 0x17cd @0x32
0x179b…17dc at0033 = ╱4c╱L╱ // 0x17ce @0x33
0x179b…17dc at0034 = ╱5c╱\╱ // 0x17cf @0x34
0x179b…17dc at0035 = ╱42╱B╱ // 0x17d0 @0x35
0x179b…17dc at0036 = ╱ec╱ , ╱ // 0x17d1 @0x36
0x179b…17dc at0037 = ╱44╱D╱ // 0x17d2 @0x37
0x179b…17dc at0038 = ╱4b╱K╱ // 0x17d3 @0x38
0x179b…17dc at0039 = ╱ec╱ , ╱ // 0x17d4 @0x39
0x179b…17dc at003a = ╱4e╱N╱ // 0x17d5 @0x3a
0x179b…17dc at003b = ╱54╱T╱ // 0x17d6 @0x3b
0x179b…17dc at003c = ╱52╱R╱ // 0x17d7 @0x3c
0x179b…17dc at003d = ╱41╱A╱ // 0x17d8 @0x3d
0x179b…17dc at003e = ╱4e╱N╱ // 0x17d9 @0x3e
0x179b…17dc at003f = ╱53╱S╱ // 0x17da @0x3f
0x179b…17dc at0040 = EOL // 0x17db @0x40
0x179b…17dc }
0x17dc…17eb add9 02340 ENDPROC L[S_TRANS
0x17dc…17eb LineComal80 {
0x17dc…17eb ptr = 0xadd9 // 0x17dc @0x0
0x17dc…17eb lno = 0x0924 // 0x17de @0x2
0x17dc…17eb at0004 = ╱9f╱ ENDPROC ╱ // 0x17e0 @0x4
0x17dc…17eb at0005 = ╱4c╱L╱ // 0x17e1 @0x5
0x17dc…17eb at0006 = ╱5b╱[╱ // 0x17e2 @0x6
0x17dc…17eb at0007 = ╱53╱S╱ // 0x17e3 @0x7
0x17dc…17eb at0008 = ╱5f╱_╱ // 0x17e4 @0x8
0x17dc…17eb at0009 = ╱54╱T╱ // 0x17e5 @0x9
0x17dc…17eb at000a = ╱52╱R╱ // 0x17e6 @0xa
0x17dc…17eb at000b = ╱41╱A╱ // 0x17e7 @0xb
0x17dc…17eb at000c = ╱4e╱N╱ // 0x17e8 @0xc
0x17dc…17eb at000d = ╱53╱S╱ // 0x17e9 @0xd
0x17dc…17eb at000e = EOL // 0x17ea @0xe
0x17dc…17eb }
0x17eb…17f0 adde 02350
0x17eb…17f0 LineComal80 {
0x17eb…17f0 ptr = 0xadde // 0x17eb @0x0
0x17eb…17f0 lno = 0x092e // 0x17ed @0x2
0x17eb…17f0 at0004 = EOL // 0x17ef @0x4
0x17eb…17f0 }
0x17f0…1805 adf3 02360 PROC SKRIV_TRANS ( P )
0x17f0…1805 LineComal80 {
0x17f0…1805 ptr = 0xadf3 // 0x17f0 @0x0
0x17f0…1805 lno = 0x0938 // 0x17f2 @0x2
0x17f0…1805 at0004 = ╱9e00╱ PROC ╱ // 0x17f4 @0x4
0x17f0…1805 at0006 = ╱53╱S╱ // 0x17f6 @0x6
0x17f0…1805 at0007 = ╱4b╱K╱ // 0x17f7 @0x7
0x17f0…1805 at0008 = ╱52╱R╱ // 0x17f8 @0x8
0x17f0…1805 at0009 = ╱49╱I╱ // 0x17f9 @0x9
0x17f0…1805 at000a = ╱56╱V╱ // 0x17fa @0xa
0x17f0…1805 at000b = ╱5f╱_╱ // 0x17fb @0xb
0x17f0…1805 at000c = ╱54╱T╱ // 0x17fc @0xc
0x17f0…1805 at000d = ╱52╱R╱ // 0x17fd @0xd
0x17f0…1805 at000e = ╱41╱A╱ // 0x17fe @0xe
0x17f0…1805 at000f = ╱4e╱N╱ // 0x17ff @0xf
0x17f0…1805 at0010 = ╱53╱S╱ // 0x1800 @0x10
0x17f0…1805 at0011 = ╱ed╱ ( ╱ // 0x1801 @0x11
0x17f0…1805 at0012 = ╱50╱P╱ // 0x1802 @0x12
0x17f0…1805 at0013 = ╱ee╱ ) ╱ // 0x1803 @0x13
0x17f0…1805 at0014 = EOL // 0x1804 @0x14
0x17f0…1805 }
0x1805…1846 ae34 02370 PUT TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
0x1805…1846 LineComal80 {
0x1805…1846 ptr = 0xae34 // 0x1805 @0x0
0x1805…1846 lno = 0x0942 // 0x1807 @0x2
0x1805…1846 at0004 = ╱aa╱ PUT ╱ // 0x1809 @0x4
0x1805…1846 at0005 = ╱54╱T╱ // 0x180a @0x5
0x1805…1846 at0006 = ╱52╱R╱ // 0x180b @0x6
0x1805…1846 at0007 = ╱41╱A╱ // 0x180c @0x7
0x1805…1846 at0008 = ╱4e╱N╱ // 0x180d @0x8
0x1805…1846 at0009 = ╱53╱S╱ // 0x180e @0x9
0x1805…1846 at000a = ╱ef╱ $ ╱ // 0x180f @0xa
0x1805…1846 at000b = ╱ec╱ , ╱ // 0x1810 @0xb
0x1805…1846 at000c = ╱50╱P╱ // 0x1811 @0xc
0x1805…1846 at000d = ╱f1╱ : ╱ // 0x1812 @0xd
0x1805…1846 at000e = ╱42╱B╱ // 0x1813 @0xe
0x1805…1846 at000f = ╱4b╱K╱ // 0x1814 @0xf
0x1805…1846 at0010 = ╱54╱T╱ // 0x1815 @0x10
0x1805…1846 at0011 = ╱4f╱O╱ // 0x1816 @0x11
0x1805…1846 at0012 = ╱4e╱N╱ // 0x1817 @0x12
0x1805…1846 at0013 = ╱52╱R╱ // 0x1818 @0x13
0x1805…1846 at0014 = ╱ef╱ $ ╱ // 0x1819 @0x14
0x1805…1846 at0015 = ╱ec╱ , ╱ // 0x181a @0x15
0x1805…1846 at0016 = ╱42╱B╱ // 0x181b @0x16
0x1805…1846 at0017 = ╱44╱D╱ // 0x181c @0x17
0x1805…1846 at0018 = ╱41╱A╱ // 0x181d @0x18
0x1805…1846 at0019 = ╱54╱T╱ // 0x181e @0x19
0x1805…1846 at001a = ╱4f╱O╱ // 0x181f @0x1a
0x1805…1846 at001b = ╱ef╱ $ ╱ // 0x1820 @0x1b
0x1805…1846 at001c = ╱ec╱ , ╱ // 0x1821 @0x1c
0x1805…1846 at001d = ╱42╱B╱ // 0x1822 @0x1d
0x1805…1846 at001e = ╱4c╱L╱ // 0x1823 @0x1e
0x1805…1846 at001f = ╱47╱G╱ // 0x1824 @0x1f
0x1805…1846 at0020 = ╱4e╱N╱ // 0x1825 @0x20
0x1805…1846 at0021 = ╱52╱R╱ // 0x1826 @0x21
0x1805…1846 at0022 = ╱ef╱ $ ╱ // 0x1827 @0x22
0x1805…1846 at0023 = ╱ec╱ , ╱ // 0x1828 @0x23
0x1805…1846 at0024 = ╱42╱B╱ // 0x1829 @0x24
0x1805…1846 at0025 = ╱54╱T╱ // 0x182a @0x25
0x1805…1846 at0026 = ╱58╱X╱ // 0x182b @0x26
0x1805…1846 at0027 = ╱54╱T╱ // 0x182c @0x27
0x1805…1846 at0028 = ╱ef╱ $ ╱ // 0x182d @0x28
0x1805…1846 at0029 = ╱ec╱ , ╱ // 0x182e @0x29
0x1805…1846 at002a = ╱42╱B╱ // 0x182f @0x2a
0x1805…1846 at002b = ╱4d╱M╱ // 0x1830 @0x2b
0x1805…1846 at002c = ╱4f╱O╱ // 0x1831 @0x2c
0x1805…1846 at002d = ╱4d╱M╱ // 0x1832 @0x2d
0x1805…1846 at002e = ╱53╱S╱ // 0x1833 @0x2e
0x1805…1846 at002f = ╱ec╱ , ╱ // 0x1834 @0x2f
0x1805…1846 at0030 = ╱42╱B╱ // 0x1835 @0x30
0x1805…1846 at0031 = ╱42╱B╱ // 0x1836 @0x31
0x1805…1846 at0032 = ╱45╱E╱ // 0x1837 @0x32
0x1805…1846 at0033 = ╱4c╱L╱ // 0x1838 @0x33
0x1805…1846 at0034 = ╱5c╱\╱ // 0x1839 @0x34
0x1805…1846 at0035 = ╱42╱B╱ // 0x183a @0x35
0x1805…1846 at0036 = ╱ec╱ , ╱ // 0x183b @0x36
0x1805…1846 at0037 = ╱44╱D╱ // 0x183c @0x37
0x1805…1846 at0038 = ╱4b╱K╱ // 0x183d @0x38
0x1805…1846 at0039 = ╱ec╱ , ╱ // 0x183e @0x39
0x1805…1846 at003a = ╱4e╱N╱ // 0x183f @0x3a
0x1805…1846 at003b = ╱54╱T╱ // 0x1840 @0x3b
0x1805…1846 at003c = ╱52╱R╱ // 0x1841 @0x3c
0x1805…1846 at003d = ╱41╱A╱ // 0x1842 @0x3d
0x1805…1846 at003e = ╱4e╱N╱ // 0x1843 @0x3e
0x1805…1846 at003f = ╱53╱S╱ // 0x1844 @0x3f
0x1805…1846 at0040 = EOL // 0x1845 @0x40
0x1805…1846 }
0x1846…1857 ae45 02380 ENDPROC SKRIV_TRANS
0x1846…1857 LineComal80 {
0x1846…1857 ptr = 0xae45 // 0x1846 @0x0
0x1846…1857 lno = 0x094c // 0x1848 @0x2
0x1846…1857 at0004 = ╱9f╱ ENDPROC ╱ // 0x184a @0x4
0x1846…1857 at0005 = ╱53╱S╱ // 0x184b @0x5
0x1846…1857 at0006 = ╱4b╱K╱ // 0x184c @0x6
0x1846…1857 at0007 = ╱52╱R╱ // 0x184d @0x7
0x1846…1857 at0008 = ╱49╱I╱ // 0x184e @0x8
0x1846…1857 at0009 = ╱56╱V╱ // 0x184f @0x9
0x1846…1857 at000a = ╱5f╱_╱ // 0x1850 @0xa
0x1846…1857 at000b = ╱54╱T╱ // 0x1851 @0xb
0x1846…1857 at000c = ╱52╱R╱ // 0x1852 @0xc
0x1846…1857 at000d = ╱41╱A╱ // 0x1853 @0xd
0x1846…1857 at000e = ╱4e╱N╱ // 0x1854 @0xe
0x1846…1857 at000f = ╱53╱S╱ // 0x1855 @0xf
0x1846…1857 at0010 = EOL // 0x1856 @0x10
0x1846…1857 }
0x1857…185c ae4a 02390
0x1857…185c LineComal80 {
0x1857…185c ptr = 0xae4a // 0x1857 @0x0
0x1857…185c lno = 0x0956 // 0x1859 @0x2
0x1857…185c at0004 = EOL // 0x185b @0x4
0x1857…185c }
0x185c…1871 ae5f 02400 PROC ST_BGST ( REF RST $ )
0x185c…1871 LineComal80 {
0x185c…1871 ptr = 0xae5f // 0x185c @0x0
0x185c…1871 lno = 0x0960 // 0x185e @0x2
0x185c…1871 at0004 = ╱9e00╱ PROC ╱ // 0x1860 @0x4
0x185c…1871 at0006 = ╱53╱S╱ // 0x1862 @0x6
0x185c…1871 at0007 = ╱54╱T╱ // 0x1863 @0x7
0x185c…1871 at0008 = ╱5f╱_╱ // 0x1864 @0x8
0x185c…1871 at0009 = ╱42╱B╱ // 0x1865 @0x9
0x185c…1871 at000a = ╱47╱G╱ // 0x1866 @0xa
0x185c…1871 at000b = ╱53╱S╱ // 0x1867 @0xb
0x185c…1871 at000c = ╱54╱T╱ // 0x1868 @0xc
0x185c…1871 at000d = ╱ed╱ ( ╱ // 0x1869 @0xd
0x185c…1871 at000e = ╱b6╱ REF ╱ // 0x186a @0xe
0x185c…1871 at000f = ╱52╱R╱ // 0x186b @0xf
0x185c…1871 at0010 = ╱53╱S╱ // 0x186c @0x10
0x185c…1871 at0011 = ╱54╱T╱ // 0x186d @0x11
0x185c…1871 at0012 = ╱ef╱ $ ╱ // 0x186e @0x12
0x185c…1871 at0013 = ╱ee╱ ) ╱ // 0x186f @0x13
0x185c…1871 at0014 = EOL // 0x1870 @0x14
0x185c…1871 }
0x1871…1887 ae75 02410 FOR I := 1 TO ( RST $ ) DO
0x1871…1887 LineComal80 {
0x1871…1887 ptr = 0xae75 // 0x1871 @0x0
0x1871…1887 lno = 0x096a // 0x1873 @0x2
0x1871…1887 at0004 = ╱8300╱ FOR ╱ // 0x1875 @0x4
0x1871…1887 at0006 = ╱49╱I╱ // 0x1877 @0x6
0x1871…1887 at0007 = ╱f0╱ := ╱ // 0x1878 @0x7
0x1871…1887 at0008 = ╱31╱1╱ // 0x1879 @0x8
0x1871…1887 at0009 = ╱f20100╱ // 0x187a @0x9
0x1871…1887 at000c = ╱b7cb╱ TO ╱ // 0x187d @0xc
0x1871…1887 at000e = ╱ed╱ ( ╱ // 0x187f @0xe
0x1871…1887 at000f = ╱52╱R╱ // 0x1880 @0xf
0x1871…1887 at0010 = ╱53╱S╱ // 0x1881 @0x10
0x1871…1887 at0011 = ╱54╱T╱ // 0x1882 @0x11
0x1871…1887 at0012 = ╱ef╱ $ ╱ // 0x1883 @0x12
0x1871…1887 at0013 = ╱ee╱ ) ╱ // 0x1884 @0x13
0x1871…1887 at0014 = ╱bb╱ DO ╱ // 0x1885 @0x14
0x1871…1887 at0015 = EOL // 0x1886 @0x15
0x1871…1887 }
0x1887…18c2 aeb0 02420 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
0x1887…18c2 LineComal80 {
0x1887…18c2 ptr = 0xaeb0 // 0x1887 @0x0
0x1887…18c2 lno = 0x0974 // 0x1889 @0x2
0x1887…18c2 at0004 = ╱8200╱ IF ╱ // 0x188b @0x4
0x1887…18c2 at0006 = ╱52╱R╱ // 0x188d @0x6
0x1887…18c2 at0007 = ╱53╱S╱ // 0x188e @0x7
0x1887…18c2 at0008 = ╱54╱T╱ // 0x188f @0x8
0x1887…18c2 at0009 = ╱ef╱ $ ╱ // 0x1890 @0x9
0x1887…18c2 at000a = ╱ed╱ ( ╱ // 0x1891 @0xa
0x1887…18c2 at000b = ╱49╱I╱ // 0x1892 @0xb
0x1887…18c2 at000c = ╱ee╱ ) ╱ // 0x1893 @0xc
0x1887…18c2 at000d = ╱e2╱ =< ╱ // 0x1894 @0xd
0x1887…18c2 at000e = ╱22╱"╱ // 0x1895 @0xe
0x1887…18c2 at000f = ╱7d╱}╱ // 0x1896 @0xf
0x1887…18c2 at0010 = ╱22╱"╱ // 0x1897 @0x10
0x1887…18c2 at0011 = ╱d9╱ AND ╱ // 0x1898 @0x11
0x1887…18c2 at0012 = ╱52╱R╱ // 0x1899 @0x12
0x1887…18c2 at0013 = ╱53╱S╱ // 0x189a @0x13
0x1887…18c2 at0014 = ╱54╱T╱ // 0x189b @0x14
0x1887…18c2 at0015 = ╱ef╱ $ ╱ // 0x189c @0x15
0x1887…18c2 at0016 = ╱ed╱ ( ╱ // 0x189d @0x16
0x1887…18c2 at0017 = ╱49╱I╱ // 0x189e @0x17
0x1887…18c2 at0018 = ╱ee╱ ) ╱ // 0x189f @0x18
0x1887…18c2 at0019 = ╱e3╱ >= ╱ // 0x18a0 @0x19
0x1887…18c2 at001a = ╱22╱"╱ // 0x18a1 @0x1a
0x1887…18c2 at001b = ╱61╱a╱ // 0x18a2 @0x1b
0x1887…18c2 at001c = ╱22╱"╱ // 0x18a3 @0x1c
0x1887…18c2 at001d = ╱b5╱ THEN ╱ // 0x18a4 @0x1d
0x1887…18c2 at001e = ╱86╱ LET ╱ // 0x18a5 @0x1e
0x1887…18c2 at001f = ╱52╱R╱ // 0x18a6 @0x1f
0x1887…18c2 at0020 = ╱53╱S╱ // 0x18a7 @0x20
0x1887…18c2 at0021 = ╱54╱T╱ // 0x18a8 @0x21
0x1887…18c2 at0022 = ╱ef╱ $ ╱ // 0x18a9 @0x22
0x1887…18c2 at0023 = ╱ed╱ ( ╱ // 0x18aa @0x23
0x1887…18c2 at0024 = ╱49╱I╱ // 0x18ab @0x24
0x1887…18c2 at0025 = ╱ee╱ ) ╱ // 0x18ac @0x25
0x1887…18c2 at0026 = ╱f0╱ := ╱ // 0x18ad @0x26
0x1887…18c2 at0027 = ╱d0╱ CHR$ ╱ // 0x18ae @0x27
0x1887…18c2 at0028 = ╱ed╱ ( ╱ // 0x18af @0x28
0x1887…18c2 at0029 = ╱cc╱ // 0x18b0 @0x29
0x1887…18c2 at002a = ╱ed╱ ( ╱ // 0x18b1 @0x2a
0x1887…18c2 at002b = ╱52╱R╱ // 0x18b2 @0x2b
0x1887…18c2 at002c = ╱53╱S╱ // 0x18b3 @0x2c
0x1887…18c2 at002d = ╱54╱T╱ // 0x18b4 @0x2d
0x1887…18c2 at002e = ╱ef╱ $ ╱ // 0x18b5 @0x2e
0x1887…18c2 at002f = ╱ed╱ ( ╱ // 0x18b6 @0x2f
0x1887…18c2 at0030 = ╱49╱I╱ // 0x18b7 @0x30
0x1887…18c2 at0031 = ╱ee╱ ) ╱ // 0x18b8 @0x31
0x1887…18c2 at0032 = ╱ee╱ ) ╱ // 0x18b9 @0x32
0x1887…18c2 at0033 = ╱e6╱ - ╱ // 0x18ba @0x33
0x1887…18c2 at0034 = ╱33╱3╱ // 0x18bb @0x34
0x1887…18c2 at0035 = ╱32╱2╱ // 0x18bc @0x35
0x1887…18c2 at0036 = ╱f22000╱ // 0x18bd @0x36
0x1887…18c2 at0039 = ╱ee╱ ) ╱ // 0x18c0 @0x39
0x1887…18c2 at003a = EOL // 0x18c1 @0x3a
0x1887…18c2 }
0x18c2…18c9 aeb7 02430 NEXT I
0x18c2…18c9 LineComal80 {
0x18c2…18c9 ptr = 0xaeb7 // 0x18c2 @0x0
0x18c2…18c9 lno = 0x097e // 0x18c4 @0x2
0x18c2…18c9 at0004 = ╱84╱ NEXT ╱ // 0x18c6 @0x4
0x18c2…18c9 at0005 = ╱49╱I╱ // 0x18c7 @0x5
0x18c2…18c9 at0006 = EOL // 0x18c8 @0x6
0x18c2…18c9 }
0x18c9…18d6 aec4 02440 ENDPROC ST_BGST
0x18c9…18d6 LineComal80 {
0x18c9…18d6 ptr = 0xaec4 // 0x18c9 @0x0
0x18c9…18d6 lno = 0x0988 // 0x18cb @0x2
0x18c9…18d6 at0004 = ╱9f╱ ENDPROC ╱ // 0x18cd @0x4
0x18c9…18d6 at0005 = ╱53╱S╱ // 0x18ce @0x5
0x18c9…18d6 at0006 = ╱54╱T╱ // 0x18cf @0x6
0x18c9…18d6 at0007 = ╱5f╱_╱ // 0x18d0 @0x7
0x18c9…18d6 at0008 = ╱42╱B╱ // 0x18d1 @0x8
0x18c9…18d6 at0009 = ╱47╱G╱ // 0x18d2 @0x9
0x18c9…18d6 at000a = ╱53╱S╱ // 0x18d3 @0xa
0x18c9…18d6 at000b = ╱54╱T╱ // 0x18d4 @0xb
0x18c9…18d6 at000c = EOL // 0x18d5 @0xc
0x18c9…18d6 }
0x18d6…18db aec9 02450
0x18d6…18db LineComal80 {
0x18d6…18db ptr = 0xaec9 // 0x18d6 @0x0
0x18d6…18db lno = 0x0992 // 0x18d8 @0x2
0x18d6…18db at0004 = EOL // 0x18da @0x4
0x18d6…18db }
0x18db…18ec aeda 02460 PROC SIDE_SKIFT
0x18db…18ec LineComal80 {
0x18db…18ec ptr = 0xaeda // 0x18db @0x0
0x18db…18ec lno = 0x099c // 0x18dd @0x2
0x18db…18ec at0004 = ╱9e00╱ PROC ╱ // 0x18df @0x4
0x18db…18ec at0006 = ╱53╱S╱ // 0x18e1 @0x6
0x18db…18ec at0007 = ╱49╱I╱ // 0x18e2 @0x7
0x18db…18ec at0008 = ╱44╱D╱ // 0x18e3 @0x8
0x18db…18ec at0009 = ╱45╱E╱ // 0x18e4 @0x9
0x18db…18ec at000a = ╱5f╱_╱ // 0x18e5 @0xa
0x18db…18ec at000b = ╱53╱S╱ // 0x18e6 @0xb
0x18db…18ec at000c = ╱4b╱K╱ // 0x18e7 @0xc
0x18db…18ec at000d = ╱49╱I╱ // 0x18e8 @0xd
0x18db…18ec at000e = ╱46╱F╱ // 0x18e9 @0xe
0x18db…18ec at000f = ╱54╱T╱ // 0x18ea @0xf
0x18db…18ec at0010 = EOL // 0x18eb @0x10
0x18db…18ec }
0x18ec…1904 aef2 02470 FOR I := LIN_T TO AX_LIN DO PRINT
0x18ec…1904 LineComal80 {
0x18ec…1904 ptr = 0xaef2 // 0x18ec @0x0
0x18ec…1904 lno = 0x09a6 // 0x18ee @0x2
0x18ec…1904 at0004 = ╱b400╱ FOR ╱ // 0x18f0 @0x4
0x18ec…1904 at0006 = ╱49╱I╱ // 0x18f2 @0x6
0x18ec…1904 at0007 = ╱f0╱ := ╱ // 0x18f3 @0x7
0x18ec…1904 at0008 = ╱4c╱L╱ // 0x18f4 @0x8
0x18ec…1904 at0009 = ╱49╱I╱ // 0x18f5 @0x9
0x18ec…1904 at000a = ╱4e╱N╱ // 0x18f6 @0xa
0x18ec…1904 at000b = ╱5f╱_╱ // 0x18f7 @0xb
0x18ec…1904 at000c = ╱54╱T╱ // 0x18f8 @0xc
0x18ec…1904 at000d = ╱b74d╱ TO ╱ // 0x18f9 @0xd
0x18ec…1904 at000f = ╱41╱A╱ // 0x18fb @0xf
0x18ec…1904 at0010 = ╱58╱X╱ // 0x18fc @0x10
0x18ec…1904 at0011 = ╱5f╱_╱ // 0x18fd @0x11
0x18ec…1904 at0012 = ╱4c╱L╱ // 0x18fe @0x12
0x18ec…1904 at0013 = ╱49╱I╱ // 0x18ff @0x13
0x18ec…1904 at0014 = ╱4e╱N╱ // 0x1900 @0x14
0x18ec…1904 at0015 = ╱bb╱ DO ╱ // 0x1901 @0x15
0x18ec…1904 at0016 = ╱92╱ PRINT ╱ // 0x1902 @0x16
0x18ec…1904 at0017 = EOL // 0x1903 @0x17
0x18ec…1904 }
0x1904…1914 d8f9 02480 LET LIN_T := 9
0x1904…1914 LineComal80 {
0x1904…1914 ptr = 0xd8f9 // 0x1904 @0x0
0x1904…1914 lno = 0x09b0 // 0x1906 @0x2
0x1904…1914 at0004 = ╱86╱ LET ╱ // 0x1908 @0x4
0x1904…1914 at0005 = ╱4c╱L╱ // 0x1909 @0x5
0x1904…1914 at0006 = ╱49╱I╱ // 0x190a @0x6
0x1904…1914 at0007 = ╱4e╱N╱ // 0x190b @0x7
0x1904…1914 at0008 = ╱5f╱_╱ // 0x190c @0x8
0x1904…1914 at0009 = ╱54╱T╱ // 0x190d @0x9
0x1904…1914 at000a = ╱f0╱ := ╱ // 0x190e @0xa
0x1904…1914 at000b = ╱39╱9╱ // 0x190f @0xb
0x1904…1914 at000c = ╱f20900╱ // 0x1910 @0xc
0x1904…1914 at000f = EOL // 0x1913 @0xf
0x1904…1914 }
0x1914…191a af08 02480 PRINT
0x1914…191a LineComal80 {
0x1914…191a ptr = 0xaf08 // 0x1914 @0x0
0x1914…191a lno = 0x09b0 // 0x1916 @0x2
0x1914…191a at0004 = ╱92╱ PRINT ╱ // 0x1918 @0x4
0x1914…191a at0005 = EOL // 0x1919 @0x5
0x1914…191a }
0x191a…1938 af26 02500 PRINT "***…" ; SYST_NAVN $ ; "…***"
0x191a…1938 LineComal80 {
0x191a…1938 ptr = 0xaf26 // 0x191a @0x0
0x191a…1938 lno = 0x09c4 // 0x191c @0x2
0x191a…1938 at0004 = ╱92╱ PRINT ╱ // 0x191e @0x4
0x191a…1938 at0005 = ╱22╱"╱ // 0x191f @0x5
0x191a…1938 at0006 = ╱2a╱*╱ // 0x1920 @0x6
0x191a…1938 at0007 = ╱2a╱*╱ // 0x1921 @0x7
0x191a…1938 at0008 = ╱2a╱*╱ // 0x1922 @0x8
0x191a…1938 at0009 = ╱20╱…╱ // 0x1923 @0x9
0x191a…1938 at000a = ╱22╱"╱ // 0x1924 @0xa
0x191a…1938 at000b = ╱ea╱ ; ╱ // 0x1925 @0xb
0x191a…1938 at000c = ╱53╱S╱ // 0x1926 @0xc
0x191a…1938 at000d = ╱59╱Y╱ // 0x1927 @0xd
0x191a…1938 at000e = ╱53╱S╱ // 0x1928 @0xe
0x191a…1938 at000f = ╱54╱T╱ // 0x1929 @0xf
0x191a…1938 at0010 = ╱5f╱_╱ // 0x192a @0x10
0x191a…1938 at0011 = ╱4e╱N╱ // 0x192b @0x11
0x191a…1938 at0012 = ╱41╱A╱ // 0x192c @0x12
0x191a…1938 at0013 = ╱56╱V╱ // 0x192d @0x13
0x191a…1938 at0014 = ╱4e╱N╱ // 0x192e @0x14
0x191a…1938 at0015 = ╱ef╱ $ ╱ // 0x192f @0x15
0x191a…1938 at0016 = ╱ea╱ ; ╱ // 0x1930 @0x16
0x191a…1938 at0017 = ╱22╱"╱ // 0x1931 @0x17
0x191a…1938 at0018 = ╱20╱…╱ // 0x1932 @0x18
0x191a…1938 at0019 = ╱2a╱*╱ // 0x1933 @0x19
0x191a…1938 at001a = ╱2a╱*╱ // 0x1934 @0x1a
0x191a…1938 at001b = ╱2a╱*╱ // 0x1935 @0x1b
0x191a…1938 at001c = ╱22╱"╱ // 0x1936 @0x1c
0x191a…1938 at001d = EOL // 0x1937 @0x1d
0x191a…1938 }
0x1938…193e af2c 02510 PRINT
0x1938…193e LineComal80 {
0x1938…193e ptr = 0xaf2c // 0x1938 @0x0
0x1938…193e lno = 0x09ce // 0x193a @0x2
0x1938…193e at0004 = ╱92╱ PRINT ╱ // 0x193c @0x4
0x1938…193e at0005 = EOL // 0x193d @0x5
0x1938…193e }
0x193e…1968 af56 02520 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 42 )
0x193e…1968 LineComal80 {
0x193e…1968 ptr = 0xaf56 // 0x193e @0x0
0x193e…1968 lno = 0x09d8 // 0x1940 @0x2
0x193e…1968 at0004 = ╱92╱ PRINT ╱ // 0x1942 @0x4
0x193e…1968 at0005 = ╱22╱"╱ // 0x1943 @0x5
0x193e…1968 at0006 = ╱3c╱<╱ // 0x1944 @0x6
0x193e…1968 at0007 = ╱53╱S╱ // 0x1945 @0x7
0x193e…1968 at0008 = ╱3e╱>╱ // 0x1946 @0x8
0x193e…1968 at0009 = ╱46╱F╱ // 0x1947 @0x9
0x193e…1968 at000a = ╱69╱i╱ // 0x1948 @0xa
0x193e…1968 at000b = ╱72╱r╱ // 0x1949 @0xb
0x193e…1968 at000c = ╱6d╱m╱ // 0x194a @0xc
0x193e…1968 at000d = ╱61╱a╱ // 0x194b @0xd
0x193e…1968 at000e = ╱6e╱n╱ // 0x194c @0xe
0x193e…1968 at000f = ╱61╱a╱ // 0x194d @0xf
0x193e…1968 at0010 = ╱76╱v╱ // 0x194e @0x10
0x193e…1968 at0011 = ╱6e╱n╱ // 0x194f @0x11
0x193e…1968 at0012 = ╱3a╱:╱ // 0x1950 @0x12
0x193e…1968 at0013 = ╱20╱…╱ // 0x1951 @0x13
0x193e…1968 at0014 = ╱22╱"╱ // 0x1952 @0x14
0x193e…1968 at0015 = ╱ea╱ ; ╱ // 0x1953 @0x15
0x193e…1968 at0016 = ╱46╱F╱ // 0x1954 @0x16
0x193e…1968 at0017 = ╱49╱I╱ // 0x1955 @0x17
0x193e…1968 at0018 = ╱52╱R╱ // 0x1956 @0x18
0x193e…1968 at0019 = ╱4d╱M╱ // 0x1957 @0x19
0x193e…1968 at001a = ╱41╱A╱ // 0x1958 @0x1a
0x193e…1968 at001b = ╱4e╱N╱ // 0x1959 @0x1b
0x193e…1968 at001c = ╱41╱A╱ // 0x195a @0x1c
0x193e…1968 at001d = ╱56╱V╱ // 0x195b @0x1d
0x193e…1968 at001e = ╱4e╱N╱ // 0x195c @0x1e
0x193e…1968 at001f = ╱ef╱ $ ╱ // 0x195d @0x1f
0x193e…1968 at0020 = ╱ea╱ ; ╱ // 0x195e @0x20
0x193e…1968 at0021 = ╱d2╱ TAB ╱ // 0x195f @0x21
0x193e…1968 at0022 = ╱ed╱ ( ╱ // 0x1960 @0x22
0x193e…1968 at0023 = ╱34╱4╱ // 0x1961 @0x23
0x193e…1968 at0024 = ╱32╱2╱ // 0x1962 @0x24
0x193e…1968 at0025 = ╱f22a00╱ // 0x1963 @0x25
0x193e…1968 at0028 = ╱ee╱ ) ╱ // 0x1966 @0x28
0x193e…1968 at0029 = EOL // 0x1967 @0x29
0x193e…1968 }
0x1968…19b3 afa1 02530 PRINT "**…KASSERAPPORT…PR.…" ; K_BDAT $ ( 1 : 2 ) ; "." ; K_BDAT $ ( 3 : 2 ) ; "." ;
0x1968…19b3 LineComal80 {
0x1968…19b3 ptr = 0xafa1 // 0x1968 @0x0
0x1968…19b3 lno = 0x09e2 // 0x196a @0x2
0x1968…19b3 at0004 = ╱92╱ PRINT ╱ // 0x196c @0x4
0x1968…19b3 at0005 = ╱22╱"╱ // 0x196d @0x5
0x1968…19b3 at0006 = ╱2a╱*╱ // 0x196e @0x6
0x1968…19b3 at0007 = ╱2a╱*╱ // 0x196f @0x7
0x1968…19b3 at0008 = ╱20╱…╱ // 0x1970 @0x8
0x1968…19b3 at0009 = ╱4b╱K╱ // 0x1971 @0x9
0x1968…19b3 at000a = ╱41╱A╱ // 0x1972 @0xa
0x1968…19b3 at000b = ╱53╱S╱ // 0x1973 @0xb
0x1968…19b3 at000c = ╱53╱S╱ // 0x1974 @0xc
0x1968…19b3 at000d = ╱45╱E╱ // 0x1975 @0xd
0x1968…19b3 at000e = ╱52╱R╱ // 0x1976 @0xe
0x1968…19b3 at000f = ╱41╱A╱ // 0x1977 @0xf
0x1968…19b3 at0010 = ╱50╱P╱ // 0x1978 @0x10
0x1968…19b3 at0011 = ╱50╱P╱ // 0x1979 @0x11
0x1968…19b3 at0012 = ╱4f╱O╱ // 0x197a @0x12
0x1968…19b3 at0013 = ╱52╱R╱ // 0x197b @0x13
0x1968…19b3 at0014 = ╱54╱T╱ // 0x197c @0x14
0x1968…19b3 at0015 = ╱20╱…╱ // 0x197d @0x15
0x1968…19b3 at0016 = ╱50╱P╱ // 0x197e @0x16
0x1968…19b3 at0017 = ╱52╱R╱ // 0x197f @0x17
0x1968…19b3 at0018 = ╱2e╱.╱ // 0x1980 @0x18
0x1968…19b3 at0019 = ╱20╱…╱ // 0x1981 @0x19
0x1968…19b3 at001a = ╱22╱"╱ // 0x1982 @0x1a
0x1968…19b3 at001b = ╱ea╱ ; ╱ // 0x1983 @0x1b
0x1968…19b3 at001c = ╱4b╱K╱ // 0x1984 @0x1c
0x1968…19b3 at001d = ╱5f╱_╱ // 0x1985 @0x1d
0x1968…19b3 at001e = ╱42╱B╱ // 0x1986 @0x1e
0x1968…19b3 at001f = ╱44╱D╱ // 0x1987 @0x1f
0x1968…19b3 at0020 = ╱41╱A╱ // 0x1988 @0x20
0x1968…19b3 at0021 = ╱54╱T╱ // 0x1989 @0x21
0x1968…19b3 at0022 = ╱ef╱ $ ╱ // 0x198a @0x22
0x1968…19b3 at0023 = ╱ed╱ ( ╱ // 0x198b @0x23
0x1968…19b3 at0024 = ╱31╱1╱ // 0x198c @0x24
0x1968…19b3 at0025 = ╱f20100╱ // 0x198d @0x25
0x1968…19b3 at0028 = ╱f1╱ : ╱ // 0x1990 @0x28
0x1968…19b3 at0029 = ╱32╱2╱ // 0x1991 @0x29
0x1968…19b3 at002a = ╱f20200╱ // 0x1992 @0x2a
0x1968…19b3 at002d = ╱ee╱ ) ╱ // 0x1995 @0x2d
0x1968…19b3 at002e = ╱ea╱ ; ╱ // 0x1996 @0x2e
0x1968…19b3 at002f = ╱22╱"╱ // 0x1997 @0x2f
0x1968…19b3 at0030 = ╱2e╱.╱ // 0x1998 @0x30
0x1968…19b3 at0031 = ╱22╱"╱ // 0x1999 @0x31
0x1968…19b3 at0032 = ╱ea╱ ; ╱ // 0x199a @0x32
0x1968…19b3 at0033 = ╱4b╱K╱ // 0x199b @0x33
0x1968…19b3 at0034 = ╱5f╱_╱ // 0x199c @0x34
0x1968…19b3 at0035 = ╱42╱B╱ // 0x199d @0x35
0x1968…19b3 at0036 = ╱44╱D╱ // 0x199e @0x36
0x1968…19b3 at0037 = ╱41╱A╱ // 0x199f @0x37
0x1968…19b3 at0038 = ╱54╱T╱ // 0x19a0 @0x38
0x1968…19b3 at0039 = ╱ef╱ $ ╱ // 0x19a1 @0x39
0x1968…19b3 at003a = ╱ed╱ ( ╱ // 0x19a2 @0x3a
0x1968…19b3 at003b = ╱33╱3╱ // 0x19a3 @0x3b
0x1968…19b3 at003c = ╱f20300╱ // 0x19a4 @0x3c
0x1968…19b3 at003f = ╱f1╱ : ╱ // 0x19a7 @0x3f
0x1968…19b3 at0040 = ╱32╱2╱ // 0x19a8 @0x40
0x1968…19b3 at0041 = ╱f20200╱ // 0x19a9 @0x41
0x1968…19b3 at0044 = ╱ee╱ ) ╱ // 0x19ac @0x44
0x1968…19b3 at0045 = ╱ea╱ ; ╱ // 0x19ad @0x45
0x1968…19b3 at0046 = ╱22╱"╱ // 0x19ae @0x46
0x1968…19b3 at0047 = ╱2e╱.╱ // 0x19af @0x47
0x1968…19b3 at0048 = ╱22╱"╱ // 0x19b0 @0x48
0x1968…19b3 at0049 = ╱ea╱ ; ╱ // 0x19b1 @0x49
0x1968…19b3 at004a = EOL // 0x19b2 @0x4a
0x1968…19b3 }
0x19b3…1a01 afef 02540 PRINT K_BDAT $ ( 5 : 2 ) ; "…**……………**…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ;
0x19b3…1a01 LineComal80 {
0x19b3…1a01 ptr = 0xafef // 0x19b3 @0x0
0x19b3…1a01 lno = 0x09ec // 0x19b5 @0x2
0x19b3…1a01 at0004 = ╱92╱ PRINT ╱ // 0x19b7 @0x4
0x19b3…1a01 at0005 = ╱4b╱K╱ // 0x19b8 @0x5
0x19b3…1a01 at0006 = ╱5f╱_╱ // 0x19b9 @0x6
0x19b3…1a01 at0007 = ╱42╱B╱ // 0x19ba @0x7
0x19b3…1a01 at0008 = ╱44╱D╱ // 0x19bb @0x8
0x19b3…1a01 at0009 = ╱41╱A╱ // 0x19bc @0x9
0x19b3…1a01 at000a = ╱54╱T╱ // 0x19bd @0xa
0x19b3…1a01 at000b = ╱ef╱ $ ╱ // 0x19be @0xb
0x19b3…1a01 at000c = ╱ed╱ ( ╱ // 0x19bf @0xc
0x19b3…1a01 at000d = ╱35╱5╱ // 0x19c0 @0xd
0x19b3…1a01 at000e = ╱f20500╱ // 0x19c1 @0xe
0x19b3…1a01 at0011 = ╱f1╱ : ╱ // 0x19c4 @0x11
0x19b3…1a01 at0012 = ╱32╱2╱ // 0x19c5 @0x12
0x19b3…1a01 at0013 = ╱f20200╱ // 0x19c6 @0x13
0x19b3…1a01 at0016 = ╱ee╱ ) ╱ // 0x19c9 @0x16
0x19b3…1a01 at0017 = ╱ea╱ ; ╱ // 0x19ca @0x17
0x19b3…1a01 at0018 = ╱22╱"╱ // 0x19cb @0x18
0x19b3…1a01 at0019 = ╱20╱…╱ // 0x19cc @0x19
0x19b3…1a01 at001a = ╱2a╱*╱ // 0x19cd @0x1a
0x19b3…1a01 at001b = ╱2a╱*╱ // 0x19ce @0x1b
0x19b3…1a01 at001c = ╱20╱…╱ // 0x19cf @0x1c
0x19b3…1a01 at001d = ╱20╱…╱ // 0x19d0 @0x1d
0x19b3…1a01 at001e = ╱20╱…╱ // 0x19d1 @0x1e
0x19b3…1a01 at001f = ╱20╱…╱ // 0x19d2 @0x1f
0x19b3…1a01 at0020 = ╱20╱…╱ // 0x19d3 @0x20
0x19b3…1a01 at0021 = ╱2a╱*╱ // 0x19d4 @0x21
0x19b3…1a01 at0022 = ╱2a╱*╱ // 0x19d5 @0x22
0x19b3…1a01 at0023 = ╱20╱…╱ // 0x19d6 @0x23
0x19b3…1a01 at0024 = ╱55╱U╱ // 0x19d7 @0x24
0x19b3…1a01 at0025 = ╱44╱D╱ // 0x19d8 @0x25
0x19b3…1a01 at0026 = ╱53╱S╱ // 0x19d9 @0x26
0x19b3…1a01 at0027 = ╱4b╱K╱ // 0x19da @0x27
0x19b3…1a01 at0028 = ╱52╱R╱ // 0x19db @0x28
0x19b3…1a01 at0029 = ╱45╱E╱ // 0x19dc @0x29
0x19b3…1a01 at002a = ╱56╱V╱ // 0x19dd @0x2a
0x19b3…1a01 at002b = ╱45╱E╱ // 0x19de @0x2b
0x19b3…1a01 at002c = ╱54╱T╱ // 0x19df @0x2c
0x19b3…1a01 at002d = ╱20╱…╱ // 0x19e0 @0x2d
0x19b3…1a01 at002e = ╱50╱P╱ // 0x19e1 @0x2e
0x19b3…1a01 at002f = ╱52╱R╱ // 0x19e2 @0x2f
0x19b3…1a01 at0030 = ╱2e╱.╱ // 0x19e3 @0x30
0x19b3…1a01 at0031 = ╱20╱…╱ // 0x19e4 @0x31
0x19b3…1a01 at0032 = ╱22╱"╱ // 0x19e5 @0x32
0x19b3…1a01 at0033 = ╱ea╱ ; ╱ // 0x19e6 @0x33
0x19b3…1a01 at0034 = ╱53╱S╱ // 0x19e7 @0x34
0x19b3…1a01 at0035 = ╱59╱Y╱ // 0x19e8 @0x35
0x19b3…1a01 at0036 = ╱53╱S╱ // 0x19e9 @0x36
0x19b3…1a01 at0037 = ╱54╱T╱ // 0x19ea @0x37
0x19b3…1a01 at0038 = ╱5f╱_╱ // 0x19eb @0x38
0x19b3…1a01 at0039 = ╱44╱D╱ // 0x19ec @0x39
0x19b3…1a01 at003a = ╱41╱A╱ // 0x19ed @0x3a
0x19b3…1a01 at003b = ╱54╱T╱ // 0x19ee @0x3b
0x19b3…1a01 at003c = ╱ef╱ $ ╱ // 0x19ef @0x3c
0x19b3…1a01 at003d = ╱ed╱ ( ╱ // 0x19f0 @0x3d
0x19b3…1a01 at003e = ╱31╱1╱ // 0x19f1 @0x3e
0x19b3…1a01 at003f = ╱f20100╱ // 0x19f2 @0x3f
0x19b3…1a01 at0042 = ╱f1╱ : ╱ // 0x19f5 @0x42
0x19b3…1a01 at0043 = ╱32╱2╱ // 0x19f6 @0x43
0x19b3…1a01 at0044 = ╱f20200╱ // 0x19f7 @0x44
0x19b3…1a01 at0047 = ╱ee╱ ) ╱ // 0x19fa @0x47
0x19b3…1a01 at0048 = ╱ea╱ ; ╱ // 0x19fb @0x48
0x19b3…1a01 at0049 = ╱22╱"╱ // 0x19fc @0x49
0x19b3…1a01 at004a = ╱2e╱.╱ // 0x19fd @0x4a
0x19b3…1a01 at004b = ╱22╱"╱ // 0x19fe @0x4b
0x19b3…1a01 at004c = ╱ea╱ ; ╱ // 0x19ff @0x4c
0x19b3…1a01 at004d = EOL // 0x1a00 @0x4d
0x19b3…1a01 }
0x1a01…1a4e b03c 02550 PRINT SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…**………SIDE:…" ; S_NR_KASSE
0x1a01…1a4e LineComal80 {
0x1a01…1a4e ptr = 0xb03c // 0x1a01 @0x0
0x1a01…1a4e lno = 0x09f6 // 0x1a03 @0x2
0x1a01…1a4e at0004 = ╱92╱ PRINT ╱ // 0x1a05 @0x4
0x1a01…1a4e at0005 = ╱53╱S╱ // 0x1a06 @0x5
0x1a01…1a4e at0006 = ╱59╱Y╱ // 0x1a07 @0x6
0x1a01…1a4e at0007 = ╱53╱S╱ // 0x1a08 @0x7
0x1a01…1a4e at0008 = ╱54╱T╱ // 0x1a09 @0x8
0x1a01…1a4e at0009 = ╱5f╱_╱ // 0x1a0a @0x9
0x1a01…1a4e at000a = ╱44╱D╱ // 0x1a0b @0xa
0x1a01…1a4e at000b = ╱41╱A╱ // 0x1a0c @0xb
0x1a01…1a4e at000c = ╱54╱T╱ // 0x1a0d @0xc
0x1a01…1a4e at000d = ╱ef╱ $ ╱ // 0x1a0e @0xd
0x1a01…1a4e at000e = ╱ed╱ ( ╱ // 0x1a0f @0xe
0x1a01…1a4e at000f = ╱33╱3╱ // 0x1a10 @0xf
0x1a01…1a4e at0010 = ╱f20300╱ // 0x1a11 @0x10
0x1a01…1a4e at0013 = ╱f1╱ : ╱ // 0x1a14 @0x13
0x1a01…1a4e at0014 = ╱32╱2╱ // 0x1a15 @0x14
0x1a01…1a4e at0015 = ╱f20200╱ // 0x1a16 @0x15
0x1a01…1a4e at0018 = ╱ee╱ ) ╱ // 0x1a19 @0x18
0x1a01…1a4e at0019 = ╱ea╱ ; ╱ // 0x1a1a @0x19
0x1a01…1a4e at001a = ╱22╱"╱ // 0x1a1b @0x1a
0x1a01…1a4e at001b = ╱2e╱.╱ // 0x1a1c @0x1b
0x1a01…1a4e at001c = ╱22╱"╱ // 0x1a1d @0x1c
0x1a01…1a4e at001d = ╱ea╱ ; ╱ // 0x1a1e @0x1d
0x1a01…1a4e at001e = ╱53╱S╱ // 0x1a1f @0x1e
0x1a01…1a4e at001f = ╱59╱Y╱ // 0x1a20 @0x1f
0x1a01…1a4e at0020 = ╱53╱S╱ // 0x1a21 @0x20
0x1a01…1a4e at0021 = ╱54╱T╱ // 0x1a22 @0x21
0x1a01…1a4e at0022 = ╱5f╱_╱ // 0x1a23 @0x22
0x1a01…1a4e at0023 = ╱44╱D╱ // 0x1a24 @0x23
0x1a01…1a4e at0024 = ╱41╱A╱ // 0x1a25 @0x24
0x1a01…1a4e at0025 = ╱54╱T╱ // 0x1a26 @0x25
0x1a01…1a4e at0026 = ╱ef╱ $ ╱ // 0x1a27 @0x26
0x1a01…1a4e at0027 = ╱ed╱ ( ╱ // 0x1a28 @0x27
0x1a01…1a4e at0028 = ╱35╱5╱ // 0x1a29 @0x28
0x1a01…1a4e at0029 = ╱f20500╱ // 0x1a2a @0x29
0x1a01…1a4e at002c = ╱f1╱ : ╱ // 0x1a2d @0x2c
0x1a01…1a4e at002d = ╱32╱2╱ // 0x1a2e @0x2d
0x1a01…1a4e at002e = ╱f20200╱ // 0x1a2f @0x2e
0x1a01…1a4e at0031 = ╱ee╱ ) ╱ // 0x1a32 @0x31
0x1a01…1a4e at0032 = ╱ea╱ ; ╱ // 0x1a33 @0x32
0x1a01…1a4e at0033 = ╱22╱"╱ // 0x1a34 @0x33
0x1a01…1a4e at0034 = ╱20╱…╱ // 0x1a35 @0x34
0x1a01…1a4e at0035 = ╱2a╱*╱ // 0x1a36 @0x35
0x1a01…1a4e at0036 = ╱2a╱*╱ // 0x1a37 @0x36
0x1a01…1a4e at0037 = ╱20╱…╱ // 0x1a38 @0x37
0x1a01…1a4e at0038 = ╱20╱…╱ // 0x1a39 @0x38
0x1a01…1a4e at0039 = ╱20╱…╱ // 0x1a3a @0x39
0x1a01…1a4e at003a = ╱53╱S╱ // 0x1a3b @0x3a
0x1a01…1a4e at003b = ╱49╱I╱ // 0x1a3c @0x3b
0x1a01…1a4e at003c = ╱44╱D╱ // 0x1a3d @0x3c
0x1a01…1a4e at003d = ╱45╱E╱ // 0x1a3e @0x3d
0x1a01…1a4e at003e = ╱3a╱:╱ // 0x1a3f @0x3e
0x1a01…1a4e at003f = ╱20╱…╱ // 0x1a40 @0x3f
0x1a01…1a4e at0040 = ╱22╱"╱ // 0x1a41 @0x40
0x1a01…1a4e at0041 = ╱ea╱ ; ╱ // 0x1a42 @0x41
0x1a01…1a4e at0042 = ╱53╱S╱ // 0x1a43 @0x42
0x1a01…1a4e at0043 = ╱5f╱_╱ // 0x1a44 @0x43
0x1a01…1a4e at0044 = ╱4e╱N╱ // 0x1a45 @0x44
0x1a01…1a4e at0045 = ╱52╱R╱ // 0x1a46 @0x45
0x1a01…1a4e at0046 = ╱5f╱_╱ // 0x1a47 @0x46
0x1a01…1a4e at0047 = ╱4b╱K╱ // 0x1a48 @0x47
0x1a01…1a4e at0048 = ╱41╱A╱ // 0x1a49 @0x48
0x1a01…1a4e at0049 = ╱53╱S╱ // 0x1a4a @0x49
0x1a01…1a4e at004a = ╱53╱S╱ // 0x1a4b @0x4a
0x1a01…1a4e at004b = ╱45╱E╱ // 0x1a4c @0x4b
0x1a01…1a4e at004c = EOL // 0x1a4d @0x4c
0x1a01…1a4e }
0x1a4e…1a54 b042 02560 PRINT
0x1a4e…1a54 LineComal80 {
0x1a4e…1a54 ptr = 0xb042 // 0x1a4e @0x0
0x1a4e…1a54 lno = 0x0a00 // 0x1a50 @0x2
0x1a4e…1a54 at0004 = ╱92╱ PRINT ╱ // 0x1a52 @0x4
0x1a4e…1a54 at0005 = EOL // 0x1a53 @0x5
0x1a4e…1a54 }
0x1a54…1a73 b061 02570 LET SVAR $ := "-----------------"
0x1a54…1a73 LineComal80 {
0x1a54…1a73 ptr = 0xb061 // 0x1a54 @0x0
0x1a54…1a73 lno = 0x0a0a // 0x1a56 @0x2
0x1a54…1a73 at0004 = ╱86╱ LET ╱ // 0x1a58 @0x4
0x1a54…1a73 at0005 = ╱53╱S╱ // 0x1a59 @0x5
0x1a54…1a73 at0006 = ╱56╱V╱ // 0x1a5a @0x6
0x1a54…1a73 at0007 = ╱41╱A╱ // 0x1a5b @0x7
0x1a54…1a73 at0008 = ╱52╱R╱ // 0x1a5c @0x8
0x1a54…1a73 at0009 = ╱ef╱ $ ╱ // 0x1a5d @0x9
0x1a54…1a73 at000a = ╱f0╱ := ╱ // 0x1a5e @0xa
0x1a54…1a73 at000b = ╱22╱"╱ // 0x1a5f @0xb
0x1a54…1a73 at000c = ╱2d╱-╱ // 0x1a60 @0xc
0x1a54…1a73 at000d = ╱2d╱-╱ // 0x1a61 @0xd
0x1a54…1a73 at000e = ╱2d╱-╱ // 0x1a62 @0xe
0x1a54…1a73 at000f = ╱2d╱-╱ // 0x1a63 @0xf
0x1a54…1a73 at0010 = ╱2d╱-╱ // 0x1a64 @0x10
0x1a54…1a73 at0011 = ╱2d╱-╱ // 0x1a65 @0x11
0x1a54…1a73 at0012 = ╱2d╱-╱ // 0x1a66 @0x12
0x1a54…1a73 at0013 = ╱2d╱-╱ // 0x1a67 @0x13
0x1a54…1a73 at0014 = ╱2d╱-╱ // 0x1a68 @0x14
0x1a54…1a73 at0015 = ╱2d╱-╱ // 0x1a69 @0x15
0x1a54…1a73 at0016 = ╱2d╱-╱ // 0x1a6a @0x16
0x1a54…1a73 at0017 = ╱2d╱-╱ // 0x1a6b @0x17
0x1a54…1a73 at0018 = ╱2d╱-╱ // 0x1a6c @0x18
0x1a54…1a73 at0019 = ╱2d╱-╱ // 0x1a6d @0x19
0x1a54…1a73 at001a = ╱2d╱-╱ // 0x1a6e @0x1a
0x1a54…1a73 at001b = ╱2d╱-╱ // 0x1a6f @0x1b
0x1a54…1a73 at001c = ╱2d╱-╱ // 0x1a70 @0x1c
0x1a54…1a73 at001d = ╱22╱"╱ // 0x1a71 @0x1d
0x1a54…1a73 at001e = EOL // 0x1a72 @0x1e
0x1a54…1a73 }
0x1a73…1aab b099 02580 LET K := ╱cb╱ ( "…" + KASSE_KTO $ + "…KASSE…" ) ; I := K DIV 2 ; K := 22 - K - I
0x1a73…1aab LineComal80 {
0x1a73…1aab ptr = 0xb099 // 0x1a73 @0x0
0x1a73…1aab lno = 0x0a14 // 0x1a75 @0x2
0x1a73…1aab at0004 = ╱86╱ LET ╱ // 0x1a77 @0x4
0x1a73…1aab at0005 = ╱4b╱K╱ // 0x1a78 @0x5
0x1a73…1aab at0006 = ╱f0╱ := ╱ // 0x1a79 @0x6
0x1a73…1aab at0007 = ╱cb╱ // 0x1a7a @0x7
0x1a73…1aab at0008 = ╱ed╱ ( ╱ // 0x1a7b @0x8
0x1a73…1aab at0009 = ╱22╱"╱ // 0x1a7c @0x9
0x1a73…1aab at000a = ╱20╱…╱ // 0x1a7d @0xa
0x1a73…1aab at000b = ╱22╱"╱ // 0x1a7e @0xb
0x1a73…1aab at000c = ╱eb╱ + ╱ // 0x1a7f @0xc
0x1a73…1aab at000d = ╱4b╱K╱ // 0x1a80 @0xd
0x1a73…1aab at000e = ╱41╱A╱ // 0x1a81 @0xe
0x1a73…1aab at000f = ╱53╱S╱ // 0x1a82 @0xf
0x1a73…1aab at0010 = ╱53╱S╱ // 0x1a83 @0x10
0x1a73…1aab at0011 = ╱45╱E╱ // 0x1a84 @0x11
0x1a73…1aab at0012 = ╱5f╱_╱ // 0x1a85 @0x12
0x1a73…1aab at0013 = ╱4b╱K╱ // 0x1a86 @0x13
0x1a73…1aab at0014 = ╱54╱T╱ // 0x1a87 @0x14
0x1a73…1aab at0015 = ╱4f╱O╱ // 0x1a88 @0x15
0x1a73…1aab at0016 = ╱ef╱ $ ╱ // 0x1a89 @0x16
0x1a73…1aab at0017 = ╱eb╱ + ╱ // 0x1a8a @0x17
0x1a73…1aab at0018 = ╱22╱"╱ // 0x1a8b @0x18
0x1a73…1aab at0019 = ╱20╱…╱ // 0x1a8c @0x19
0x1a73…1aab at001a = ╱4b╱K╱ // 0x1a8d @0x1a
0x1a73…1aab at001b = ╱41╱A╱ // 0x1a8e @0x1b
0x1a73…1aab at001c = ╱53╱S╱ // 0x1a8f @0x1c
0x1a73…1aab at001d = ╱53╱S╱ // 0x1a90 @0x1d
0x1a73…1aab at001e = ╱45╱E╱ // 0x1a91 @0x1e
0x1a73…1aab at001f = ╱20╱…╱ // 0x1a92 @0x1f
0x1a73…1aab at0020 = ╱22╱"╱ // 0x1a93 @0x20
0x1a73…1aab at0021 = ╱ee╱ ) ╱ // 0x1a94 @0x21
0x1a73…1aab at0022 = ╱ea╱ ; ╱ // 0x1a95 @0x22
0x1a73…1aab at0023 = ╱49╱I╱ // 0x1a96 @0x23
0x1a73…1aab at0024 = ╱f0╱ := ╱ // 0x1a97 @0x24
0x1a73…1aab at0025 = ╱4b╱K╱ // 0x1a98 @0x25
0x1a73…1aab at0026 = ╱da╱ DIV ╱ // 0x1a99 @0x26
0x1a73…1aab at0027 = ╱32╱2╱ // 0x1a9a @0x27
0x1a73…1aab at0028 = ╱f20200╱ // 0x1a9b @0x28
0x1a73…1aab at002b = ╱ea╱ ; ╱ // 0x1a9e @0x2b
0x1a73…1aab at002c = ╱4b╱K╱ // 0x1a9f @0x2c
0x1a73…1aab at002d = ╱f0╱ := ╱ // 0x1aa0 @0x2d
0x1a73…1aab at002e = ╱32╱2╱ // 0x1aa1 @0x2e
0x1a73…1aab at002f = ╱32╱2╱ // 0x1aa2 @0x2f
0x1a73…1aab at0030 = ╱f21600╱ // 0x1aa3 @0x30
0x1a73…1aab at0033 = ╱e6╱ - ╱ // 0x1aa6 @0x33
0x1a73…1aab at0034 = ╱4b╱K╱ // 0x1aa7 @0x34
0x1a73…1aab at0035 = ╱e6╱ - ╱ // 0x1aa8 @0x35
0x1a73…1aab at0036 = ╱49╱I╱ // 0x1aa9 @0x36
0x1a73…1aab at0037 = EOL // 0x1aaa @0x37
0x1a73…1aab }
0x1aab…1af9 b0e7 02590 PRINT "<S>" ; TAB ( 37 ) ; SVAR $ ( 1 : I ) ; "…" ; KASSE_KTO $ ; "…KASSE…" ; SVAR $ ( 1 : K ) ; "……"
0x1aab…1af9 LineComal80 {
0x1aab…1af9 ptr = 0xb0e7 // 0x1aab @0x0
0x1aab…1af9 lno = 0x0a1e // 0x1aad @0x2
0x1aab…1af9 at0004 = ╱92╱ PRINT ╱ // 0x1aaf @0x4
0x1aab…1af9 at0005 = ╱22╱"╱ // 0x1ab0 @0x5
0x1aab…1af9 at0006 = ╱3c╱<╱ // 0x1ab1 @0x6
0x1aab…1af9 at0007 = ╱53╱S╱ // 0x1ab2 @0x7
0x1aab…1af9 at0008 = ╱3e╱>╱ // 0x1ab3 @0x8
0x1aab…1af9 at0009 = ╱22╱"╱ // 0x1ab4 @0x9
0x1aab…1af9 at000a = ╱ea╱ ; ╱ // 0x1ab5 @0xa
0x1aab…1af9 at000b = ╱d2╱ TAB ╱ // 0x1ab6 @0xb
0x1aab…1af9 at000c = ╱ed╱ ( ╱ // 0x1ab7 @0xc
0x1aab…1af9 at000d = ╱33╱3╱ // 0x1ab8 @0xd
0x1aab…1af9 at000e = ╱37╱7╱ // 0x1ab9 @0xe
0x1aab…1af9 at000f = ╱f22500╱ // 0x1aba @0xf
0x1aab…1af9 at0012 = ╱ee╱ ) ╱ // 0x1abd @0x12
0x1aab…1af9 at0013 = ╱ea╱ ; ╱ // 0x1abe @0x13
0x1aab…1af9 at0014 = ╱53╱S╱ // 0x1abf @0x14
0x1aab…1af9 at0015 = ╱56╱V╱ // 0x1ac0 @0x15
0x1aab…1af9 at0016 = ╱41╱A╱ // 0x1ac1 @0x16
0x1aab…1af9 at0017 = ╱52╱R╱ // 0x1ac2 @0x17
0x1aab…1af9 at0018 = ╱ef╱ $ ╱ // 0x1ac3 @0x18
0x1aab…1af9 at0019 = ╱ed╱ ( ╱ // 0x1ac4 @0x19
0x1aab…1af9 at001a = ╱31╱1╱ // 0x1ac5 @0x1a
0x1aab…1af9 at001b = ╱f20100╱ // 0x1ac6 @0x1b
0x1aab…1af9 at001e = ╱f1╱ : ╱ // 0x1ac9 @0x1e
0x1aab…1af9 at001f = ╱49╱I╱ // 0x1aca @0x1f
0x1aab…1af9 at0020 = ╱ee╱ ) ╱ // 0x1acb @0x20
0x1aab…1af9 at0021 = ╱ea╱ ; ╱ // 0x1acc @0x21
0x1aab…1af9 at0022 = ╱22╱"╱ // 0x1acd @0x22
0x1aab…1af9 at0023 = ╱20╱…╱ // 0x1ace @0x23
0x1aab…1af9 at0024 = ╱22╱"╱ // 0x1acf @0x24
0x1aab…1af9 at0025 = ╱ea╱ ; ╱ // 0x1ad0 @0x25
0x1aab…1af9 at0026 = ╱4b╱K╱ // 0x1ad1 @0x26
0x1aab…1af9 at0027 = ╱41╱A╱ // 0x1ad2 @0x27
0x1aab…1af9 at0028 = ╱53╱S╱ // 0x1ad3 @0x28
0x1aab…1af9 at0029 = ╱53╱S╱ // 0x1ad4 @0x29
0x1aab…1af9 at002a = ╱45╱E╱ // 0x1ad5 @0x2a
0x1aab…1af9 at002b = ╱5f╱_╱ // 0x1ad6 @0x2b
0x1aab…1af9 at002c = ╱4b╱K╱ // 0x1ad7 @0x2c
0x1aab…1af9 at002d = ╱54╱T╱ // 0x1ad8 @0x2d
0x1aab…1af9 at002e = ╱4f╱O╱ // 0x1ad9 @0x2e
0x1aab…1af9 at002f = ╱ef╱ $ ╱ // 0x1ada @0x2f
0x1aab…1af9 at0030 = ╱ea╱ ; ╱ // 0x1adb @0x30
0x1aab…1af9 at0031 = ╱22╱"╱ // 0x1adc @0x31
0x1aab…1af9 at0032 = ╱20╱…╱ // 0x1add @0x32
0x1aab…1af9 at0033 = ╱4b╱K╱ // 0x1ade @0x33
0x1aab…1af9 at0034 = ╱41╱A╱ // 0x1adf @0x34
0x1aab…1af9 at0035 = ╱53╱S╱ // 0x1ae0 @0x35
0x1aab…1af9 at0036 = ╱53╱S╱ // 0x1ae1 @0x36
0x1aab…1af9 at0037 = ╱45╱E╱ // 0x1ae2 @0x37
0x1aab…1af9 at0038 = ╱20╱…╱ // 0x1ae3 @0x38
0x1aab…1af9 at0039 = ╱22╱"╱ // 0x1ae4 @0x39
0x1aab…1af9 at003a = ╱ea╱ ; ╱ // 0x1ae5 @0x3a
0x1aab…1af9 at003b = ╱53╱S╱ // 0x1ae6 @0x3b
0x1aab…1af9 at003c = ╱56╱V╱ // 0x1ae7 @0x3c
0x1aab…1af9 at003d = ╱41╱A╱ // 0x1ae8 @0x3d
0x1aab…1af9 at003e = ╱52╱R╱ // 0x1ae9 @0x3e
0x1aab…1af9 at003f = ╱ef╱ $ ╱ // 0x1aea @0x3f
0x1aab…1af9 at0040 = ╱ed╱ ( ╱ // 0x1aeb @0x40
0x1aab…1af9 at0041 = ╱31╱1╱ // 0x1aec @0x41
0x1aab…1af9 at0042 = ╱f20100╱ // 0x1aed @0x42
0x1aab…1af9 at0045 = ╱f1╱ : ╱ // 0x1af0 @0x45
0x1aab…1af9 at0046 = ╱4b╱K╱ // 0x1af1 @0x46
0x1aab…1af9 at0047 = ╱ee╱ ) ╱ // 0x1af2 @0x47
0x1aab…1af9 at0048 = ╱ea╱ ; ╱ // 0x1af3 @0x48
0x1aab…1af9 at0049 = ╱22╱"╱ // 0x1af4 @0x49
0x1aab…1af9 at004a = ╱20╱…╱ // 0x1af5 @0x4a
0x1aab…1af9 at004b = ╱20╱…╱ // 0x1af6 @0x4b
0x1aab…1af9 at004c = ╱22╱"╱ // 0x1af7 @0x4c
0x1aab…1af9 at004d = EOL // 0x1af8 @0x4d
0x1aab…1af9 }
0x1af9…1b2f d9ff 02600 LET K := ╱cb╱ ( "…" + BANK_KTO $ + "…BANK…" ) ; I := K DIV 2 ; K := 22 - K - I
0x1af9…1b2f LineComal80 {
0x1af9…1b2f ptr = 0xd9ff // 0x1af9 @0x0
0x1af9…1b2f lno = 0x0a28 // 0x1afb @0x2
0x1af9…1b2f at0004 = ╱86╱ LET ╱ // 0x1afd @0x4
0x1af9…1b2f at0005 = ╱4b╱K╱ // 0x1afe @0x5
0x1af9…1b2f at0006 = ╱f0╱ := ╱ // 0x1aff @0x6
0x1af9…1b2f at0007 = ╱cb╱ // 0x1b00 @0x7
0x1af9…1b2f at0008 = ╱ed╱ ( ╱ // 0x1b01 @0x8
0x1af9…1b2f at0009 = ╱22╱"╱ // 0x1b02 @0x9
0x1af9…1b2f at000a = ╱20╱…╱ // 0x1b03 @0xa
0x1af9…1b2f at000b = ╱22╱"╱ // 0x1b04 @0xb
0x1af9…1b2f at000c = ╱eb╱ + ╱ // 0x1b05 @0xc
0x1af9…1b2f at000d = ╱42╱B╱ // 0x1b06 @0xd
0x1af9…1b2f at000e = ╱41╱A╱ // 0x1b07 @0xe
0x1af9…1b2f at000f = ╱4e╱N╱ // 0x1b08 @0xf
0x1af9…1b2f at0010 = ╱4b╱K╱ // 0x1b09 @0x10
0x1af9…1b2f at0011 = ╱5f╱_╱ // 0x1b0a @0x11
0x1af9…1b2f at0012 = ╱4b╱K╱ // 0x1b0b @0x12
0x1af9…1b2f at0013 = ╱54╱T╱ // 0x1b0c @0x13
0x1af9…1b2f at0014 = ╱4f╱O╱ // 0x1b0d @0x14
0x1af9…1b2f at0015 = ╱ef╱ $ ╱ // 0x1b0e @0x15
0x1af9…1b2f at0016 = ╱eb╱ + ╱ // 0x1b0f @0x16
0x1af9…1b2f at0017 = ╱22╱"╱ // 0x1b10 @0x17
0x1af9…1b2f at0018 = ╱20╱…╱ // 0x1b11 @0x18
0x1af9…1b2f at0019 = ╱42╱B╱ // 0x1b12 @0x19
0x1af9…1b2f at001a = ╱41╱A╱ // 0x1b13 @0x1a
0x1af9…1b2f at001b = ╱4e╱N╱ // 0x1b14 @0x1b
0x1af9…1b2f at001c = ╱4b╱K╱ // 0x1b15 @0x1c
0x1af9…1b2f at001d = ╱20╱…╱ // 0x1b16 @0x1d
0x1af9…1b2f at001e = ╱22╱"╱ // 0x1b17 @0x1e
0x1af9…1b2f at001f = ╱ee╱ ) ╱ // 0x1b18 @0x1f
0x1af9…1b2f at0020 = ╱ea╱ ; ╱ // 0x1b19 @0x20
0x1af9…1b2f at0021 = ╱49╱I╱ // 0x1b1a @0x21
0x1af9…1b2f at0022 = ╱f0╱ := ╱ // 0x1b1b @0x22
0x1af9…1b2f at0023 = ╱4b╱K╱ // 0x1b1c @0x23
0x1af9…1b2f at0024 = ╱da╱ DIV ╱ // 0x1b1d @0x24
0x1af9…1b2f at0025 = ╱32╱2╱ // 0x1b1e @0x25
0x1af9…1b2f at0026 = ╱f20200╱ // 0x1b1f @0x26
0x1af9…1b2f at0029 = ╱ea╱ ; ╱ // 0x1b22 @0x29
0x1af9…1b2f at002a = ╱4b╱K╱ // 0x1b23 @0x2a
0x1af9…1b2f at002b = ╱f0╱ := ╱ // 0x1b24 @0x2b
0x1af9…1b2f at002c = ╱32╱2╱ // 0x1b25 @0x2c
0x1af9…1b2f at002d = ╱32╱2╱ // 0x1b26 @0x2d
0x1af9…1b2f at002e = ╱f21600╱ // 0x1b27 @0x2e
0x1af9…1b2f at0031 = ╱e6╱ - ╱ // 0x1b2a @0x31
0x1af9…1b2f at0032 = ╱4b╱K╱ // 0x1b2b @0x32
0x1af9…1b2f at0033 = ╱e6╱ - ╱ // 0x1b2c @0x33
0x1af9…1b2f at0034 = ╱49╱I╱ // 0x1b2d @0x34
0x1af9…1b2f at0035 = EOL // 0x1b2e @0x35
0x1af9…1b2f }
0x1b2f…1b72 b160 02600 PRINT "<S>" ; SVAR $ ( 1 : I ) ; "…" ; BANK_KTO $ ; "…BANK…" ; SVAR $ ( 1 : K ) ; "……"
0x1b2f…1b72 LineComal80 {
0x1b2f…1b72 ptr = 0xb160 // 0x1b2f @0x0
0x1b2f…1b72 lno = 0x0a28 // 0x1b31 @0x2
0x1b2f…1b72 at0004 = ╱92╱ PRINT ╱ // 0x1b33 @0x4
0x1b2f…1b72 at0005 = ╱22╱"╱ // 0x1b34 @0x5
0x1b2f…1b72 at0006 = ╱3c╱<╱ // 0x1b35 @0x6
0x1b2f…1b72 at0007 = ╱53╱S╱ // 0x1b36 @0x7
0x1b2f…1b72 at0008 = ╱3e╱>╱ // 0x1b37 @0x8
0x1b2f…1b72 at0009 = ╱22╱"╱ // 0x1b38 @0x9
0x1b2f…1b72 at000a = ╱ea╱ ; ╱ // 0x1b39 @0xa
0x1b2f…1b72 at000b = ╱53╱S╱ // 0x1b3a @0xb
0x1b2f…1b72 at000c = ╱56╱V╱ // 0x1b3b @0xc
0x1b2f…1b72 at000d = ╱41╱A╱ // 0x1b3c @0xd
0x1b2f…1b72 at000e = ╱52╱R╱ // 0x1b3d @0xe
0x1b2f…1b72 at000f = ╱ef╱ $ ╱ // 0x1b3e @0xf
0x1b2f…1b72 at0010 = ╱ed╱ ( ╱ // 0x1b3f @0x10
0x1b2f…1b72 at0011 = ╱31╱1╱ // 0x1b40 @0x11
0x1b2f…1b72 at0012 = ╱f20100╱ // 0x1b41 @0x12
0x1b2f…1b72 at0015 = ╱f1╱ : ╱ // 0x1b44 @0x15
0x1b2f…1b72 at0016 = ╱49╱I╱ // 0x1b45 @0x16
0x1b2f…1b72 at0017 = ╱ee╱ ) ╱ // 0x1b46 @0x17
0x1b2f…1b72 at0018 = ╱ea╱ ; ╱ // 0x1b47 @0x18
0x1b2f…1b72 at0019 = ╱22╱"╱ // 0x1b48 @0x19
0x1b2f…1b72 at001a = ╱20╱…╱ // 0x1b49 @0x1a
0x1b2f…1b72 at001b = ╱22╱"╱ // 0x1b4a @0x1b
0x1b2f…1b72 at001c = ╱ea╱ ; ╱ // 0x1b4b @0x1c
0x1b2f…1b72 at001d = ╱42╱B╱ // 0x1b4c @0x1d
0x1b2f…1b72 at001e = ╱41╱A╱ // 0x1b4d @0x1e
0x1b2f…1b72 at001f = ╱4e╱N╱ // 0x1b4e @0x1f
0x1b2f…1b72 at0020 = ╱4b╱K╱ // 0x1b4f @0x20
0x1b2f…1b72 at0021 = ╱5f╱_╱ // 0x1b50 @0x21
0x1b2f…1b72 at0022 = ╱4b╱K╱ // 0x1b51 @0x22
0x1b2f…1b72 at0023 = ╱54╱T╱ // 0x1b52 @0x23
0x1b2f…1b72 at0024 = ╱4f╱O╱ // 0x1b53 @0x24
0x1b2f…1b72 at0025 = ╱ef╱ $ ╱ // 0x1b54 @0x25
0x1b2f…1b72 at0026 = ╱ea╱ ; ╱ // 0x1b55 @0x26
0x1b2f…1b72 at0027 = ╱22╱"╱ // 0x1b56 @0x27
0x1b2f…1b72 at0028 = ╱20╱…╱ // 0x1b57 @0x28
0x1b2f…1b72 at0029 = ╱42╱B╱ // 0x1b58 @0x29
0x1b2f…1b72 at002a = ╱41╱A╱ // 0x1b59 @0x2a
0x1b2f…1b72 at002b = ╱4e╱N╱ // 0x1b5a @0x2b
0x1b2f…1b72 at002c = ╱4b╱K╱ // 0x1b5b @0x2c
0x1b2f…1b72 at002d = ╱20╱…╱ // 0x1b5c @0x2d
0x1b2f…1b72 at002e = ╱22╱"╱ // 0x1b5d @0x2e
0x1b2f…1b72 at002f = ╱ea╱ ; ╱ // 0x1b5e @0x2f
0x1b2f…1b72 at0030 = ╱53╱S╱ // 0x1b5f @0x30
0x1b2f…1b72 at0031 = ╱56╱V╱ // 0x1b60 @0x31
0x1b2f…1b72 at0032 = ╱41╱A╱ // 0x1b61 @0x32
0x1b2f…1b72 at0033 = ╱52╱R╱ // 0x1b62 @0x33
0x1b2f…1b72 at0034 = ╱ef╱ $ ╱ // 0x1b63 @0x34
0x1b2f…1b72 at0035 = ╱ed╱ ( ╱ // 0x1b64 @0x35
0x1b2f…1b72 at0036 = ╱31╱1╱ // 0x1b65 @0x36
0x1b2f…1b72 at0037 = ╱f20100╱ // 0x1b66 @0x37
0x1b2f…1b72 at003a = ╱f1╱ : ╱ // 0x1b69 @0x3a
0x1b2f…1b72 at003b = ╱4b╱K╱ // 0x1b6a @0x3b
0x1b2f…1b72 at003c = ╱ee╱ ) ╱ // 0x1b6b @0x3c
0x1b2f…1b72 at003d = ╱ea╱ ; ╱ // 0x1b6c @0x3d
0x1b2f…1b72 at003e = ╱22╱"╱ // 0x1b6d @0x3e
0x1b2f…1b72 at003f = ╱20╱…╱ // 0x1b6e @0x3f
0x1b2f…1b72 at0040 = ╱20╱…╱ // 0x1b6f @0x40
0x1b2f…1b72 at0041 = ╱22╱"╱ // 0x1b70 @0x41
0x1b2f…1b72 at0042 = EOL // 0x1b71 @0x42
0x1b2f…1b72 }
0x1b72…1ba8 b196 02610 LET K := ╱cb╱ ( "…" + GIRO_KTO $ + "…GIRO…" ) ; I := K DIV 2 ; K := 22 - K - I
0x1b72…1ba8 LineComal80 {
0x1b72…1ba8 ptr = 0xb196 // 0x1b72 @0x0
0x1b72…1ba8 lno = 0x0a32 // 0x1b74 @0x2
0x1b72…1ba8 at0004 = ╱86╱ LET ╱ // 0x1b76 @0x4
0x1b72…1ba8 at0005 = ╱4b╱K╱ // 0x1b77 @0x5
0x1b72…1ba8 at0006 = ╱f0╱ := ╱ // 0x1b78 @0x6
0x1b72…1ba8 at0007 = ╱cb╱ // 0x1b79 @0x7
0x1b72…1ba8 at0008 = ╱ed╱ ( ╱ // 0x1b7a @0x8
0x1b72…1ba8 at0009 = ╱22╱"╱ // 0x1b7b @0x9
0x1b72…1ba8 at000a = ╱20╱…╱ // 0x1b7c @0xa
0x1b72…1ba8 at000b = ╱22╱"╱ // 0x1b7d @0xb
0x1b72…1ba8 at000c = ╱eb╱ + ╱ // 0x1b7e @0xc
0x1b72…1ba8 at000d = ╱47╱G╱ // 0x1b7f @0xd
0x1b72…1ba8 at000e = ╱49╱I╱ // 0x1b80 @0xe
0x1b72…1ba8 at000f = ╱52╱R╱ // 0x1b81 @0xf
0x1b72…1ba8 at0010 = ╱4f╱O╱ // 0x1b82 @0x10
0x1b72…1ba8 at0011 = ╱5f╱_╱ // 0x1b83 @0x11
0x1b72…1ba8 at0012 = ╱4b╱K╱ // 0x1b84 @0x12
0x1b72…1ba8 at0013 = ╱54╱T╱ // 0x1b85 @0x13
0x1b72…1ba8 at0014 = ╱4f╱O╱ // 0x1b86 @0x14
0x1b72…1ba8 at0015 = ╱ef╱ $ ╱ // 0x1b87 @0x15
0x1b72…1ba8 at0016 = ╱eb╱ + ╱ // 0x1b88 @0x16
0x1b72…1ba8 at0017 = ╱22╱"╱ // 0x1b89 @0x17
0x1b72…1ba8 at0018 = ╱20╱…╱ // 0x1b8a @0x18
0x1b72…1ba8 at0019 = ╱47╱G╱ // 0x1b8b @0x19
0x1b72…1ba8 at001a = ╱49╱I╱ // 0x1b8c @0x1a
0x1b72…1ba8 at001b = ╱52╱R╱ // 0x1b8d @0x1b
0x1b72…1ba8 at001c = ╱4f╱O╱ // 0x1b8e @0x1c
0x1b72…1ba8 at001d = ╱20╱…╱ // 0x1b8f @0x1d
0x1b72…1ba8 at001e = ╱22╱"╱ // 0x1b90 @0x1e
0x1b72…1ba8 at001f = ╱ee╱ ) ╱ // 0x1b91 @0x1f
0x1b72…1ba8 at0020 = ╱ea╱ ; ╱ // 0x1b92 @0x20
0x1b72…1ba8 at0021 = ╱49╱I╱ // 0x1b93 @0x21
0x1b72…1ba8 at0022 = ╱f0╱ := ╱ // 0x1b94 @0x22
0x1b72…1ba8 at0023 = ╱4b╱K╱ // 0x1b95 @0x23
0x1b72…1ba8 at0024 = ╱da╱ DIV ╱ // 0x1b96 @0x24
0x1b72…1ba8 at0025 = ╱32╱2╱ // 0x1b97 @0x25
0x1b72…1ba8 at0026 = ╱f20200╱ // 0x1b98 @0x26
0x1b72…1ba8 at0029 = ╱ea╱ ; ╱ // 0x1b9b @0x29
0x1b72…1ba8 at002a = ╱4b╱K╱ // 0x1b9c @0x2a
0x1b72…1ba8 at002b = ╱f0╱ := ╱ // 0x1b9d @0x2b
0x1b72…1ba8 at002c = ╱32╱2╱ // 0x1b9e @0x2c
0x1b72…1ba8 at002d = ╱32╱2╱ // 0x1b9f @0x2d
0x1b72…1ba8 at002e = ╱f21600╱ // 0x1ba0 @0x2e
0x1b72…1ba8 at0031 = ╱e6╱ - ╱ // 0x1ba3 @0x31
0x1b72…1ba8 at0032 = ╱4b╱K╱ // 0x1ba4 @0x32
0x1b72…1ba8 at0033 = ╱e6╱ - ╱ // 0x1ba5 @0x33
0x1b72…1ba8 at0034 = ╱49╱I╱ // 0x1ba6 @0x34
0x1b72…1ba8 at0035 = EOL // 0x1ba7 @0x35
0x1b72…1ba8 }
0x1ba8…1be0 b1ce 02620 PRINT SVAR $ ( 1 : I ) ; "…" ; GIRO_KTO $ ; "…GIRO…" ; SVAR $ ( 1 : K )
0x1ba8…1be0 LineComal80 {
0x1ba8…1be0 ptr = 0xb1ce // 0x1ba8 @0x0
0x1ba8…1be0 lno = 0x0a3c // 0x1baa @0x2
0x1ba8…1be0 at0004 = ╱92╱ PRINT ╱ // 0x1bac @0x4
0x1ba8…1be0 at0005 = ╱53╱S╱ // 0x1bad @0x5
0x1ba8…1be0 at0006 = ╱56╱V╱ // 0x1bae @0x6
0x1ba8…1be0 at0007 = ╱41╱A╱ // 0x1baf @0x7
0x1ba8…1be0 at0008 = ╱52╱R╱ // 0x1bb0 @0x8
0x1ba8…1be0 at0009 = ╱ef╱ $ ╱ // 0x1bb1 @0x9
0x1ba8…1be0 at000a = ╱ed╱ ( ╱ // 0x1bb2 @0xa
0x1ba8…1be0 at000b = ╱31╱1╱ // 0x1bb3 @0xb
0x1ba8…1be0 at000c = ╱f20100╱ // 0x1bb4 @0xc
0x1ba8…1be0 at000f = ╱f1╱ : ╱ // 0x1bb7 @0xf
0x1ba8…1be0 at0010 = ╱49╱I╱ // 0x1bb8 @0x10
0x1ba8…1be0 at0011 = ╱ee╱ ) ╱ // 0x1bb9 @0x11
0x1ba8…1be0 at0012 = ╱ea╱ ; ╱ // 0x1bba @0x12
0x1ba8…1be0 at0013 = ╱22╱"╱ // 0x1bbb @0x13
0x1ba8…1be0 at0014 = ╱20╱…╱ // 0x1bbc @0x14
0x1ba8…1be0 at0015 = ╱22╱"╱ // 0x1bbd @0x15
0x1ba8…1be0 at0016 = ╱ea╱ ; ╱ // 0x1bbe @0x16
0x1ba8…1be0 at0017 = ╱47╱G╱ // 0x1bbf @0x17
0x1ba8…1be0 at0018 = ╱49╱I╱ // 0x1bc0 @0x18
0x1ba8…1be0 at0019 = ╱52╱R╱ // 0x1bc1 @0x19
0x1ba8…1be0 at001a = ╱4f╱O╱ // 0x1bc2 @0x1a
0x1ba8…1be0 at001b = ╱5f╱_╱ // 0x1bc3 @0x1b
0x1ba8…1be0 at001c = ╱4b╱K╱ // 0x1bc4 @0x1c
0x1ba8…1be0 at001d = ╱54╱T╱ // 0x1bc5 @0x1d
0x1ba8…1be0 at001e = ╱4f╱O╱ // 0x1bc6 @0x1e
0x1ba8…1be0 at001f = ╱ef╱ $ ╱ // 0x1bc7 @0x1f
0x1ba8…1be0 at0020 = ╱ea╱ ; ╱ // 0x1bc8 @0x20
0x1ba8…1be0 at0021 = ╱22╱"╱ // 0x1bc9 @0x21
0x1ba8…1be0 at0022 = ╱20╱…╱ // 0x1bca @0x22
0x1ba8…1be0 at0023 = ╱47╱G╱ // 0x1bcb @0x23
0x1ba8…1be0 at0024 = ╱49╱I╱ // 0x1bcc @0x24
0x1ba8…1be0 at0025 = ╱52╱R╱ // 0x1bcd @0x25
0x1ba8…1be0 at0026 = ╱4f╱O╱ // 0x1bce @0x26
0x1ba8…1be0 at0027 = ╱20╱…╱ // 0x1bcf @0x27
0x1ba8…1be0 at0028 = ╱22╱"╱ // 0x1bd0 @0x28
0x1ba8…1be0 at0029 = ╱ea╱ ; ╱ // 0x1bd1 @0x29
0x1ba8…1be0 at002a = ╱53╱S╱ // 0x1bd2 @0x2a
0x1ba8…1be0 at002b = ╱56╱V╱ // 0x1bd3 @0x2b
0x1ba8…1be0 at002c = ╱41╱A╱ // 0x1bd4 @0x2c
0x1ba8…1be0 at002d = ╱52╱R╱ // 0x1bd5 @0x2d
0x1ba8…1be0 at002e = ╱ef╱ $ ╱ // 0x1bd6 @0x2e
0x1ba8…1be0 at002f = ╱ed╱ ( ╱ // 0x1bd7 @0x2f
0x1ba8…1be0 at0030 = ╱31╱1╱ // 0x1bd8 @0x30
0x1ba8…1be0 at0031 = ╱f20100╱ // 0x1bd9 @0x31
0x1ba8…1be0 at0034 = ╱f1╱ : ╱ // 0x1bdc @0x34
0x1ba8…1be0 at0035 = ╱4b╱K╱ // 0x1bdd @0x35
0x1ba8…1be0 at0036 = ╱ee╱ ) ╱ // 0x1bde @0x36
0x1ba8…1be0 at0037 = EOL // 0x1bdf @0x37
0x1ba8…1be0 }
0x1be0…1c24 b212 02630 PRINT "<S>BILAG……TEKST……………………………………………MK……INDBETALT…………UDBETALT………"
0x1be0…1c24 LineComal80 {
0x1be0…1c24 ptr = 0xb212 // 0x1be0 @0x0
0x1be0…1c24 lno = 0x0a46 // 0x1be2 @0x2
0x1be0…1c24 at0004 = ╱92╱ PRINT ╱ // 0x1be4 @0x4
0x1be0…1c24 at0005 = ╱22╱"╱ // 0x1be5 @0x5
0x1be0…1c24 at0006 = ╱3c╱<╱ // 0x1be6 @0x6
0x1be0…1c24 at0007 = ╱53╱S╱ // 0x1be7 @0x7
0x1be0…1c24 at0008 = ╱3e╱>╱ // 0x1be8 @0x8
0x1be0…1c24 at0009 = ╱42╱B╱ // 0x1be9 @0x9
0x1be0…1c24 at000a = ╱49╱I╱ // 0x1bea @0xa
0x1be0…1c24 at000b = ╱4c╱L╱ // 0x1beb @0xb
0x1be0…1c24 at000c = ╱41╱A╱ // 0x1bec @0xc
0x1be0…1c24 at000d = ╱47╱G╱ // 0x1bed @0xd
0x1be0…1c24 at000e = ╱20╱…╱ // 0x1bee @0xe
0x1be0…1c24 at000f = ╱20╱…╱ // 0x1bef @0xf
0x1be0…1c24 at0010 = ╱54╱T╱ // 0x1bf0 @0x10
0x1be0…1c24 at0011 = ╱45╱E╱ // 0x1bf1 @0x11
0x1be0…1c24 at0012 = ╱4b╱K╱ // 0x1bf2 @0x12
0x1be0…1c24 at0013 = ╱53╱S╱ // 0x1bf3 @0x13
0x1be0…1c24 at0014 = ╱54╱T╱ // 0x1bf4 @0x14
0x1be0…1c24 at0015 = ╱20╱…╱ // 0x1bf5 @0x15
0x1be0…1c24 at0016 = ╱20╱…╱ // 0x1bf6 @0x16
0x1be0…1c24 at0017 = ╱20╱…╱ // 0x1bf7 @0x17
0x1be0…1c24 at0018 = ╱20╱…╱ // 0x1bf8 @0x18
0x1be0…1c24 at0019 = ╱20╱…╱ // 0x1bf9 @0x19
0x1be0…1c24 at001a = ╱20╱…╱ // 0x1bfa @0x1a
0x1be0…1c24 at001b = ╱20╱…╱ // 0x1bfb @0x1b
0x1be0…1c24 at001c = ╱20╱…╱ // 0x1bfc @0x1c
0x1be0…1c24 at001d = ╱20╱…╱ // 0x1bfd @0x1d
0x1be0…1c24 at001e = ╱20╱…╱ // 0x1bfe @0x1e
0x1be0…1c24 at001f = ╱20╱…╱ // 0x1bff @0x1f
0x1be0…1c24 at0020 = ╱20╱…╱ // 0x1c00 @0x20
0x1be0…1c24 at0021 = ╱20╱…╱ // 0x1c01 @0x21
0x1be0…1c24 at0022 = ╱20╱…╱ // 0x1c02 @0x22
0x1be0…1c24 at0023 = ╱20╱…╱ // 0x1c03 @0x23
0x1be0…1c24 at0024 = ╱20╱…╱ // 0x1c04 @0x24
0x1be0…1c24 at0025 = ╱20╱…╱ // 0x1c05 @0x25
0x1be0…1c24 at0026 = ╱4d╱M╱ // 0x1c06 @0x26
0x1be0…1c24 at0027 = ╱4b╱K╱ // 0x1c07 @0x27
0x1be0…1c24 at0028 = ╱20╱…╱ // 0x1c08 @0x28
0x1be0…1c24 at0029 = ╱20╱…╱ // 0x1c09 @0x29
0x1be0…1c24 at002a = ╱49╱I╱ // 0x1c0a @0x2a
0x1be0…1c24 at002b = ╱4e╱N╱ // 0x1c0b @0x2b
0x1be0…1c24 at002c = ╱44╱D╱ // 0x1c0c @0x2c
0x1be0…1c24 at002d = ╱42╱B╱ // 0x1c0d @0x2d
0x1be0…1c24 at002e = ╱45╱E╱ // 0x1c0e @0x2e
0x1be0…1c24 at002f = ╱54╱T╱ // 0x1c0f @0x2f
0x1be0…1c24 at0030 = ╱41╱A╱ // 0x1c10 @0x30
0x1be0…1c24 at0031 = ╱4c╱L╱ // 0x1c11 @0x31
0x1be0…1c24 at0032 = ╱54╱T╱ // 0x1c12 @0x32
0x1be0…1c24 at0033 = ╱20╱…╱ // 0x1c13 @0x33
0x1be0…1c24 at0034 = ╱20╱…╱ // 0x1c14 @0x34
0x1be0…1c24 at0035 = ╱20╱…╱ // 0x1c15 @0x35
0x1be0…1c24 at0036 = ╱20╱…╱ // 0x1c16 @0x36
0x1be0…1c24 at0037 = ╱55╱U╱ // 0x1c17 @0x37
0x1be0…1c24 at0038 = ╱44╱D╱ // 0x1c18 @0x38
0x1be0…1c24 at0039 = ╱42╱B╱ // 0x1c19 @0x39
0x1be0…1c24 at003a = ╱45╱E╱ // 0x1c1a @0x3a
0x1be0…1c24 at003b = ╱54╱T╱ // 0x1c1b @0x3b
0x1be0…1c24 at003c = ╱41╱A╱ // 0x1c1c @0x3c
0x1be0…1c24 at003d = ╱4c╱L╱ // 0x1c1d @0x3d
0x1be0…1c24 at003e = ╱54╱T╱ // 0x1c1e @0x3e
0x1be0…1c24 at003f = ╱20╱…╱ // 0x1c1f @0x3f
0x1be0…1c24 at0040 = ╱20╱…╱ // 0x1c20 @0x40
0x1be0…1c24 at0041 = ╱20╱…╱ // 0x1c21 @0x41
0x1be0…1c24 at0042 = ╱22╱"╱ // 0x1c22 @0x42
0x1be0…1c24 at0043 = EOL // 0x1c23 @0x43
0x1be0…1c24 }
0x1c24…1c63 b251 02640 PRINT "……INDSAT………………H[VET…………………INDSAT………………H[VET……………KONTONR"
0x1c24…1c63 LineComal80 {
0x1c24…1c63 ptr = 0xb251 // 0x1c24 @0x0
0x1c24…1c63 lno = 0x0a50 // 0x1c26 @0x2
0x1c24…1c63 at0004 = ╱92╱ PRINT ╱ // 0x1c28 @0x4
0x1c24…1c63 at0005 = ╱22╱"╱ // 0x1c29 @0x5
0x1c24…1c63 at0006 = ╱20╱…╱ // 0x1c2a @0x6
0x1c24…1c63 at0007 = ╱20╱…╱ // 0x1c2b @0x7
0x1c24…1c63 at0008 = ╱49╱I╱ // 0x1c2c @0x8
0x1c24…1c63 at0009 = ╱4e╱N╱ // 0x1c2d @0x9
0x1c24…1c63 at000a = ╱44╱D╱ // 0x1c2e @0xa
0x1c24…1c63 at000b = ╱53╱S╱ // 0x1c2f @0xb
0x1c24…1c63 at000c = ╱41╱A╱ // 0x1c30 @0xc
0x1c24…1c63 at000d = ╱54╱T╱ // 0x1c31 @0xd
0x1c24…1c63 at000e = ╱20╱…╱ // 0x1c32 @0xe
0x1c24…1c63 at000f = ╱20╱…╱ // 0x1c33 @0xf
0x1c24…1c63 at0010 = ╱20╱…╱ // 0x1c34 @0x10
0x1c24…1c63 at0011 = ╱20╱…╱ // 0x1c35 @0x11
0x1c24…1c63 at0012 = ╱20╱…╱ // 0x1c36 @0x12
0x1c24…1c63 at0013 = ╱20╱…╱ // 0x1c37 @0x13
0x1c24…1c63 at0014 = ╱48╱H╱ // 0x1c38 @0x14
0x1c24…1c63 at0015 = ╱5b╱[╱ // 0x1c39 @0x15
0x1c24…1c63 at0016 = ╱56╱V╱ // 0x1c3a @0x16
0x1c24…1c63 at0017 = ╱45╱E╱ // 0x1c3b @0x17
0x1c24…1c63 at0018 = ╱54╱T╱ // 0x1c3c @0x18
0x1c24…1c63 at0019 = ╱20╱…╱ // 0x1c3d @0x19
0x1c24…1c63 at001a = ╱20╱…╱ // 0x1c3e @0x1a
0x1c24…1c63 at001b = ╱20╱…╱ // 0x1c3f @0x1b
0x1c24…1c63 at001c = ╱20╱…╱ // 0x1c40 @0x1c
0x1c24…1c63 at001d = ╱20╱…╱ // 0x1c41 @0x1d
0x1c24…1c63 at001e = ╱20╱…╱ // 0x1c42 @0x1e
0x1c24…1c63 at001f = ╱20╱…╱ // 0x1c43 @0x1f
0x1c24…1c63 at0020 = ╱49╱I╱ // 0x1c44 @0x20
0x1c24…1c63 at0021 = ╱4e╱N╱ // 0x1c45 @0x21
0x1c24…1c63 at0022 = ╱44╱D╱ // 0x1c46 @0x22
0x1c24…1c63 at0023 = ╱53╱S╱ // 0x1c47 @0x23
0x1c24…1c63 at0024 = ╱41╱A╱ // 0x1c48 @0x24
0x1c24…1c63 at0025 = ╱54╱T╱ // 0x1c49 @0x25
0x1c24…1c63 at0026 = ╱20╱…╱ // 0x1c4a @0x26
0x1c24…1c63 at0027 = ╱20╱…╱ // 0x1c4b @0x27
0x1c24…1c63 at0028 = ╱20╱…╱ // 0x1c4c @0x28
0x1c24…1c63 at0029 = ╱20╱…╱ // 0x1c4d @0x29
0x1c24…1c63 at002a = ╱20╱…╱ // 0x1c4e @0x2a
0x1c24…1c63 at002b = ╱20╱…╱ // 0x1c4f @0x2b
0x1c24…1c63 at002c = ╱48╱H╱ // 0x1c50 @0x2c
0x1c24…1c63 at002d = ╱5b╱[╱ // 0x1c51 @0x2d
0x1c24…1c63 at002e = ╱56╱V╱ // 0x1c52 @0x2e
0x1c24…1c63 at002f = ╱45╱E╱ // 0x1c53 @0x2f
0x1c24…1c63 at0030 = ╱54╱T╱ // 0x1c54 @0x30
0x1c24…1c63 at0031 = ╱20╱…╱ // 0x1c55 @0x31
0x1c24…1c63 at0032 = ╱20╱…╱ // 0x1c56 @0x32
0x1c24…1c63 at0033 = ╱20╱…╱ // 0x1c57 @0x33
0x1c24…1c63 at0034 = ╱20╱…╱ // 0x1c58 @0x34
0x1c24…1c63 at0035 = ╱20╱…╱ // 0x1c59 @0x35
0x1c24…1c63 at0036 = ╱4b╱K╱ // 0x1c5a @0x36
0x1c24…1c63 at0037 = ╱4f╱O╱ // 0x1c5b @0x37
0x1c24…1c63 at0038 = ╱4e╱N╱ // 0x1c5c @0x38
0x1c24…1c63 at0039 = ╱54╱T╱ // 0x1c5d @0x39
0x1c24…1c63 at003a = ╱4f╱O╱ // 0x1c5e @0x3a
0x1c24…1c63 at003b = ╱4e╱N╱ // 0x1c5f @0x3b
0x1c24…1c63 at003c = ╱52╱R╱ // 0x1c60 @0x3c
0x1c24…1c63 at003d = ╱22╱"╱ // 0x1c61 @0x3d
0x1c24…1c63 at003e = EOL // 0x1c62 @0x3e
0x1c24…1c63 }
0x1c63…1c73 b261 02650 EXEC SLUT_LINIE
0x1c63…1c73 LineComal80 {
0x1c63…1c73 ptr = 0xb261 // 0x1c63 @0x0
0x1c63…1c73 lno = 0x0a5a // 0x1c65 @0x2
0x1c63…1c73 at0004 = ╱9d╱ EXEC ╱ // 0x1c67 @0x4
0x1c63…1c73 at0005 = ╱53╱S╱ // 0x1c68 @0x5
0x1c63…1c73 at0006 = ╱4c╱L╱ // 0x1c69 @0x6
0x1c63…1c73 at0007 = ╱55╱U╱ // 0x1c6a @0x7
0x1c63…1c73 at0008 = ╱54╱T╱ // 0x1c6b @0x8
0x1c63…1c73 at0009 = ╱5f╱_╱ // 0x1c6c @0x9
0x1c63…1c73 at000a = ╱4c╱L╱ // 0x1c6d @0xa
0x1c63…1c73 at000b = ╱49╱I╱ // 0x1c6e @0xb
0x1c63…1c73 at000c = ╱4e╱N╱ // 0x1c6f @0xc
0x1c63…1c73 at000d = ╱49╱I╱ // 0x1c70 @0xd
0x1c63…1c73 at000e = ╱45╱E╱ // 0x1c71 @0xe
0x1c63…1c73 at000f = EOL // 0x1c72 @0xf
0x1c63…1c73 }
0x1c73…1c93 b281 02660 LET S_NR_KASSE := S_NR_KASSE + 1
0x1c73…1c93 LineComal80 {
0x1c73…1c93 ptr = 0xb281 // 0x1c73 @0x0
0x1c73…1c93 lno = 0x0a64 // 0x1c75 @0x2
0x1c73…1c93 at0004 = ╱86╱ LET ╱ // 0x1c77 @0x4
0x1c73…1c93 at0005 = ╱53╱S╱ // 0x1c78 @0x5
0x1c73…1c93 at0006 = ╱5f╱_╱ // 0x1c79 @0x6
0x1c73…1c93 at0007 = ╱4e╱N╱ // 0x1c7a @0x7
0x1c73…1c93 at0008 = ╱52╱R╱ // 0x1c7b @0x8
0x1c73…1c93 at0009 = ╱5f╱_╱ // 0x1c7c @0x9
0x1c73…1c93 at000a = ╱4b╱K╱ // 0x1c7d @0xa
0x1c73…1c93 at000b = ╱41╱A╱ // 0x1c7e @0xb
0x1c73…1c93 at000c = ╱53╱S╱ // 0x1c7f @0xc
0x1c73…1c93 at000d = ╱53╱S╱ // 0x1c80 @0xd
0x1c73…1c93 at000e = ╱45╱E╱ // 0x1c81 @0xe
0x1c73…1c93 at000f = ╱f0╱ := ╱ // 0x1c82 @0xf
0x1c73…1c93 at0010 = ╱53╱S╱ // 0x1c83 @0x10
0x1c73…1c93 at0011 = ╱5f╱_╱ // 0x1c84 @0x11
0x1c73…1c93 at0012 = ╱4e╱N╱ // 0x1c85 @0x12
0x1c73…1c93 at0013 = ╱52╱R╱ // 0x1c86 @0x13
0x1c73…1c93 at0014 = ╱5f╱_╱ // 0x1c87 @0x14
0x1c73…1c93 at0015 = ╱4b╱K╱ // 0x1c88 @0x15
0x1c73…1c93 at0016 = ╱41╱A╱ // 0x1c89 @0x16
0x1c73…1c93 at0017 = ╱53╱S╱ // 0x1c8a @0x17
0x1c73…1c93 at0018 = ╱53╱S╱ // 0x1c8b @0x18
0x1c73…1c93 at0019 = ╱45╱E╱ // 0x1c8c @0x19
0x1c73…1c93 at001a = ╱e5╱ + ╱ // 0x1c8d @0x1a
0x1c73…1c93 at001b = ╱31╱1╱ // 0x1c8e @0x1b
0x1c73…1c93 at001c = ╱f20100╱ // 0x1c8f @0x1c
0x1c73…1c93 at001f = EOL // 0x1c92 @0x1f
0x1c73…1c93 }
0x1c93…1ca3 (95,) b291 02670 ENDPROC SIDE_SKIFT
0x1c93…1ca3 LineComal80 {
0x1c93…1ca3 ptr = 0xb291 // 0x1c93 @0x0
0x1c93…1ca3 lno = 0x0a6e // 0x1c95 @0x2
0x1c93…1ca3 at0004 = ╱9f╱ ENDPROC ╱ // 0x1c97 @0x4
0x1c93…1ca3 at0005 = ╱53╱S╱ // 0x1c98 @0x5
0x1c93…1ca3 at0006 = ╱49╱I╱ // 0x1c99 @0x6
0x1c93…1ca3 at0007 = ╱44╱D╱ // 0x1c9a @0x7
0x1c93…1ca3 at0008 = ╱45╱E╱ // 0x1c9b @0x8
0x1c93…1ca3 at0009 = ╱5f╱_╱ // 0x1c9c @0x9
0x1c93…1ca3 at000a = ╱53╱S╱ // 0x1c9d @0xa
0x1c93…1ca3 at000b = ╱4b╱K╱ // 0x1c9e @0xb
0x1c93…1ca3 at000c = ╱49╱I╱ // 0x1c9f @0xc
0x1c93…1ca3 at000d = ╱46╱F╱ // 0x1ca0 @0xd
0x1c93…1ca3 at000e = ╱54╱T╱ // 0x1ca1 @0xe
0x1c93…1ca3 at000f = EOL // 0x1ca2 @0xf
0x1c93…1ca3 }
0x1ca3…1ca8 b296 02680
0x1ca3…1ca8 LineComal80 {
0x1ca3…1ca8 ptr = 0xb296 // 0x1ca3 @0x0
0x1ca3…1ca8 lno = 0x0a78 // 0x1ca5 @0x2
0x1ca3…1ca8 at0004 = EOL // 0x1ca7 @0x4
0x1ca3…1ca8 }
0x1ca8…1cba b2a8 02690 PROC PRINT_LINIE
0x1ca8…1cba LineComal80 {
0x1ca8…1cba ptr = 0xb2a8 // 0x1ca8 @0x0
0x1ca8…1cba lno = 0x0a82 // 0x1caa @0x2
0x1ca8…1cba at0004 = ╱9e00╱ PROC ╱ // 0x1cac @0x4
0x1ca8…1cba at0006 = ╱50╱P╱ // 0x1cae @0x6
0x1ca8…1cba at0007 = ╱52╱R╱ // 0x1caf @0x7
0x1ca8…1cba at0008 = ╱49╱I╱ // 0x1cb0 @0x8
0x1ca8…1cba at0009 = ╱4e╱N╱ // 0x1cb1 @0x9
0x1ca8…1cba at000a = ╱54╱T╱ // 0x1cb2 @0xa
0x1ca8…1cba at000b = ╱5f╱_╱ // 0x1cb3 @0xb
0x1ca8…1cba at000c = ╱4c╱L╱ // 0x1cb4 @0xc
0x1ca8…1cba at000d = ╱49╱I╱ // 0x1cb5 @0xd
0x1ca8…1cba at000e = ╱4e╱N╱ // 0x1cb6 @0xe
0x1ca8…1cba at000f = ╱49╱I╱ // 0x1cb7 @0xf
0x1ca8…1cba at0010 = ╱45╱E╱ // 0x1cb8 @0x10
0x1ca8…1cba at0011 = EOL // 0x1cb9 @0x11
0x1ca8…1cba }
0x1cba…1cd1 b2bf 02700 IF K_BNR $ = "*****" THEN EXIT
0x1cba…1cd1 LineComal80 {
0x1cba…1cd1 ptr = 0xb2bf // 0x1cba @0x0
0x1cba…1cd1 lno = 0x0a8c // 0x1cbc @0x2
0x1cba…1cd1 at0004 = ╱8200╱ IF ╱ // 0x1cbe @0x4
0x1cba…1cd1 at0006 = ╱4b╱K╱ // 0x1cc0 @0x6
0x1cba…1cd1 at0007 = ╱5f╱_╱ // 0x1cc1 @0x7
0x1cba…1cd1 at0008 = ╱42╱B╱ // 0x1cc2 @0x8
0x1cba…1cd1 at0009 = ╱4e╱N╱ // 0x1cc3 @0x9
0x1cba…1cd1 at000a = ╱52╱R╱ // 0x1cc4 @0xa
0x1cba…1cd1 at000b = ╱ef╱ $ ╱ // 0x1cc5 @0xb
0x1cba…1cd1 at000c = ╱df╱ = ╱ // 0x1cc6 @0xc
0x1cba…1cd1 at000d = ╱22╱"╱ // 0x1cc7 @0xd
0x1cba…1cd1 at000e = ╱2a╱*╱ // 0x1cc8 @0xe
0x1cba…1cd1 at000f = ╱2a╱*╱ // 0x1cc9 @0xf
0x1cba…1cd1 at0010 = ╱2a╱*╱ // 0x1cca @0x10
0x1cba…1cd1 at0011 = ╱2a╱*╱ // 0x1ccb @0x11
0x1cba…1cd1 at0012 = ╱2a╱*╱ // 0x1ccc @0x12
0x1cba…1cd1 at0013 = ╱22╱"╱ // 0x1ccd @0x13
0x1cba…1cd1 at0014 = ╱b5╱ THEN ╱ // 0x1cce @0x14
0x1cba…1cd1 at0015 = ╱99╱ EXIT ╱ // 0x1ccf @0x15
0x1cba…1cd1 at0016 = EOL // 0x1cd0 @0x16
0x1cba…1cd1 }
0x1cd1…1cf6 b2e4 02710 IF LIN_T + 12 >= MAX_LIN THEN EXEC TRANSPORT
0x1cd1…1cf6 LineComal80 {
0x1cd1…1cf6 ptr = 0xb2e4 // 0x1cd1 @0x0
0x1cd1…1cf6 lno = 0x0a96 // 0x1cd3 @0x2
0x1cd1…1cf6 at0004 = ╱8200╱ IF ╱ // 0x1cd5 @0x4
0x1cd1…1cf6 at0006 = ╱4c╱L╱ // 0x1cd7 @0x6
0x1cd1…1cf6 at0007 = ╱49╱I╱ // 0x1cd8 @0x7
0x1cd1…1cf6 at0008 = ╱4e╱N╱ // 0x1cd9 @0x8
0x1cd1…1cf6 at0009 = ╱5f╱_╱ // 0x1cda @0x9
0x1cd1…1cf6 at000a = ╱54╱T╱ // 0x1cdb @0xa
0x1cd1…1cf6 at000b = ╱e5╱ + ╱ // 0x1cdc @0xb
0x1cd1…1cf6 at000c = ╱31╱1╱ // 0x1cdd @0xc
0x1cd1…1cf6 at000d = ╱32╱2╱ // 0x1cde @0xd
0x1cd1…1cf6 at000e = ╱f20c00╱ // 0x1cdf @0xe
0x1cd1…1cf6 at0011 = ╱e3╱ >= ╱ // 0x1ce2 @0x11
0x1cd1…1cf6 at0012 = ╱4d╱M╱ // 0x1ce3 @0x12
0x1cd1…1cf6 at0013 = ╱41╱A╱ // 0x1ce4 @0x13
0x1cd1…1cf6 at0014 = ╱58╱X╱ // 0x1ce5 @0x14
0x1cd1…1cf6 at0015 = ╱5f╱_╱ // 0x1ce6 @0x15
0x1cd1…1cf6 at0016 = ╱4c╱L╱ // 0x1ce7 @0x16
0x1cd1…1cf6 at0017 = ╱49╱I╱ // 0x1ce8 @0x17
0x1cd1…1cf6 at0018 = ╱4e╱N╱ // 0x1ce9 @0x18
0x1cd1…1cf6 at0019 = ╱b5╱ THEN ╱ // 0x1cea @0x19
0x1cd1…1cf6 at001a = ╱9d╱ EXEC ╱ // 0x1ceb @0x1a
0x1cd1…1cf6 at001b = ╱54╱T╱ // 0x1cec @0x1b
0x1cd1…1cf6 at001c = ╱52╱R╱ // 0x1ced @0x1c
0x1cd1…1cf6 at001d = ╱41╱A╱ // 0x1cee @0x1d
0x1cd1…1cf6 at001e = ╱4e╱N╱ // 0x1cef @0x1e
0x1cd1…1cf6 at001f = ╱53╱S╱ // 0x1cf0 @0x1f
0x1cd1…1cf6 at0020 = ╱50╱P╱ // 0x1cf1 @0x20
0x1cd1…1cf6 at0021 = ╱4f╱O╱ // 0x1cf2 @0x21
0x1cd1…1cf6 at0022 = ╱52╱R╱ // 0x1cf3 @0x22
0x1cd1…1cf6 at0023 = ╱54╱T╱ // 0x1cf4 @0x23
0x1cd1…1cf6 at0024 = EOL // 0x1cf5 @0x24
0x1cd1…1cf6 }
0x1cf6…1d0c b2fa 02720 LET LIN_T := LIN_T + 1
0x1cf6…1d0c LineComal80 {
0x1cf6…1d0c ptr = 0xb2fa // 0x1cf6 @0x0
0x1cf6…1d0c lno = 0x0aa0 // 0x1cf8 @0x2
0x1cf6…1d0c at0004 = ╱86╱ LET ╱ // 0x1cfa @0x4
0x1cf6…1d0c at0005 = ╱4c╱L╱ // 0x1cfb @0x5
0x1cf6…1d0c at0006 = ╱49╱I╱ // 0x1cfc @0x6
0x1cf6…1d0c at0007 = ╱4e╱N╱ // 0x1cfd @0x7
0x1cf6…1d0c at0008 = ╱5f╱_╱ // 0x1cfe @0x8
0x1cf6…1d0c at0009 = ╱54╱T╱ // 0x1cff @0x9
0x1cf6…1d0c at000a = ╱f0╱ := ╱ // 0x1d00 @0xa
0x1cf6…1d0c at000b = ╱4c╱L╱ // 0x1d01 @0xb
0x1cf6…1d0c at000c = ╱49╱I╱ // 0x1d02 @0xc
0x1cf6…1d0c at000d = ╱4e╱N╱ // 0x1d03 @0xd
0x1cf6…1d0c at000e = ╱5f╱_╱ // 0x1d04 @0xe
0x1cf6…1d0c at000f = ╱54╱T╱ // 0x1d05 @0xf
0x1cf6…1d0c at0010 = ╱e5╱ + ╱ // 0x1d06 @0x10
0x1cf6…1d0c at0011 = ╱31╱1╱ // 0x1d07 @0x11
0x1cf6…1d0c at0012 = ╱f20100╱ // 0x1d08 @0x12
0x1cf6…1d0c at0015 = EOL // 0x1d0b @0x15
0x1cf6…1d0c }
0x1d0c…1d48 b336 02730 PRINT "<S>" ; K_BNR $ ; TAB ( 11 ) ; K_TXT $ ; TAB ( 33 ) ; K_MKOD $ ; TAB ( 35 )
0x1d0c…1d48 LineComal80 {
0x1d0c…1d48 ptr = 0xb336 // 0x1d0c @0x0
0x1d0c…1d48 lno = 0x0aaa // 0x1d0e @0x2
0x1d0c…1d48 at0004 = ╱92╱ PRINT ╱ // 0x1d10 @0x4
0x1d0c…1d48 at0005 = ╱22╱"╱ // 0x1d11 @0x5
0x1d0c…1d48 at0006 = ╱3c╱<╱ // 0x1d12 @0x6
0x1d0c…1d48 at0007 = ╱53╱S╱ // 0x1d13 @0x7
0x1d0c…1d48 at0008 = ╱3e╱>╱ // 0x1d14 @0x8
0x1d0c…1d48 at0009 = ╱22╱"╱ // 0x1d15 @0x9
0x1d0c…1d48 at000a = ╱ea╱ ; ╱ // 0x1d16 @0xa
0x1d0c…1d48 at000b = ╱4b╱K╱ // 0x1d17 @0xb
0x1d0c…1d48 at000c = ╱5f╱_╱ // 0x1d18 @0xc
0x1d0c…1d48 at000d = ╱42╱B╱ // 0x1d19 @0xd
0x1d0c…1d48 at000e = ╱4e╱N╱ // 0x1d1a @0xe
0x1d0c…1d48 at000f = ╱52╱R╱ // 0x1d1b @0xf
0x1d0c…1d48 at0010 = ╱ef╱ $ ╱ // 0x1d1c @0x10
0x1d0c…1d48 at0011 = ╱ea╱ ; ╱ // 0x1d1d @0x11
0x1d0c…1d48 at0012 = ╱d2╱ TAB ╱ // 0x1d1e @0x12
0x1d0c…1d48 at0013 = ╱ed╱ ( ╱ // 0x1d1f @0x13
0x1d0c…1d48 at0014 = ╱31╱1╱ // 0x1d20 @0x14
0x1d0c…1d48 at0015 = ╱31╱1╱ // 0x1d21 @0x15
0x1d0c…1d48 at0016 = ╱f20b00╱ // 0x1d22 @0x16
0x1d0c…1d48 at0019 = ╱ee╱ ) ╱ // 0x1d25 @0x19
0x1d0c…1d48 at001a = ╱ea╱ ; ╱ // 0x1d26 @0x1a
0x1d0c…1d48 at001b = ╱4b╱K╱ // 0x1d27 @0x1b
0x1d0c…1d48 at001c = ╱5f╱_╱ // 0x1d28 @0x1c
0x1d0c…1d48 at001d = ╱54╱T╱ // 0x1d29 @0x1d
0x1d0c…1d48 at001e = ╱58╱X╱ // 0x1d2a @0x1e
0x1d0c…1d48 at001f = ╱54╱T╱ // 0x1d2b @0x1f
0x1d0c…1d48 at0020 = ╱ef╱ $ ╱ // 0x1d2c @0x20
0x1d0c…1d48 at0021 = ╱ea╱ ; ╱ // 0x1d2d @0x21
0x1d0c…1d48 at0022 = ╱d2╱ TAB ╱ // 0x1d2e @0x22
0x1d0c…1d48 at0023 = ╱ed╱ ( ╱ // 0x1d2f @0x23
0x1d0c…1d48 at0024 = ╱33╱3╱ // 0x1d30 @0x24
0x1d0c…1d48 at0025 = ╱33╱3╱ // 0x1d31 @0x25
0x1d0c…1d48 at0026 = ╱f22100╱ // 0x1d32 @0x26
0x1d0c…1d48 at0029 = ╱ee╱ ) ╱ // 0x1d35 @0x29
0x1d0c…1d48 at002a = ╱ea╱ ; ╱ // 0x1d36 @0x2a
0x1d0c…1d48 at002b = ╱4b╱K╱ // 0x1d37 @0x2b
0x1d0c…1d48 at002c = ╱5f╱_╱ // 0x1d38 @0x2c
0x1d0c…1d48 at002d = ╱4d╱M╱ // 0x1d39 @0x2d
0x1d0c…1d48 at002e = ╱4b╱K╱ // 0x1d3a @0x2e
0x1d0c…1d48 at002f = ╱4f╱O╱ // 0x1d3b @0x2f
0x1d0c…1d48 at0030 = ╱44╱D╱ // 0x1d3c @0x30
0x1d0c…1d48 at0031 = ╱ef╱ $ ╱ // 0x1d3d @0x31
0x1d0c…1d48 at0032 = ╱ea╱ ; ╱ // 0x1d3e @0x32
0x1d0c…1d48 at0033 = ╱d2╱ TAB ╱ // 0x1d3f @0x33
0x1d0c…1d48 at0034 = ╱ed╱ ( ╱ // 0x1d40 @0x34
0x1d0c…1d48 at0035 = ╱33╱3╱ // 0x1d41 @0x35
0x1d0c…1d48 at0036 = ╱35╱5╱ // 0x1d42 @0x36
0x1d0c…1d48 at0037 = ╱f22300╱ // 0x1d43 @0x37
0x1d0c…1d48 at003a = ╱ee╱ ) ╱ // 0x1d46 @0x3a
0x1d0c…1d48 at003b = EOL // 0x1d47 @0x3b
0x1d0c…1d48 }
0x1d48…1d58 b346 02750 CASE K_LKOD $ OF
0x1d48…1d58 LineComal80 {
0x1d48…1d58 ptr = 0xb346 // 0x1d48 @0x0
0x1d48…1d58 lno = 0x0abe // 0x1d4a @0x2
0x1d48…1d58 at0004 = ╱a20000╱ CASE ╱ // 0x1d4c @0x4
0x1d48…1d58 at0007 = ╱4b╱K╱ // 0x1d4f @0x7
0x1d48…1d58 at0008 = ╱5f╱_╱ // 0x1d50 @0x8
0x1d48…1d58 at0009 = ╱4c╱L╱ // 0x1d51 @0x9
0x1d48…1d58 at000a = ╱4b╱K╱ // 0x1d52 @0xa
0x1d48…1d58 at000b = ╱4f╱O╱ // 0x1d53 @0xb
0x1d48…1d58 at000c = ╱44╱D╱ // 0x1d54 @0xc
0x1d48…1d58 at000d = ╱ef╱ $ ╱ // 0x1d55 @0xd
0x1d48…1d58 at000e = ╱ba╱ OF ╱ // 0x1d56 @0xe
0x1d48…1d58 at000f = EOL // 0x1d57 @0xf
0x1d48…1d58 }
0x1d58…1d63 b351 02760 WHILE "K"
0x1d58…1d63 LineComal80 {
0x1d58…1d63 ptr = 0xb351 // 0x1d58 @0x0
0x1d58…1d63 lno = 0x0ac8 // 0x1d5a @0x2
0x1d58…1d63 at0004 = ╱a40000╱ WHILE ╱ // 0x1d5c @0x4
0x1d58…1d63 at0007 = ╱22╱"╱ // 0x1d5f @0x7
0x1d58…1d63 at0008 = ╱4b╱K╱ // 0x1d60 @0x8
0x1d58…1d63 at0009 = ╱22╱"╱ // 0x1d61 @0x9
0x1d58…1d63 at000a = EOL // 0x1d62 @0xa
0x1d58…1d63 }
0x1d63…1d73 b361 02770 // DO…NOTHING
0x1d63…1d73 LineComal80 {
0x1d63…1d73 ptr = 0xb361 // 0x1d63 @0x0
0x1d63…1d73 lno = 0x0ad2 // 0x1d65 @0x2
0x1d63…1d73 at0004 = ╱89╱ // ╱ // 0x1d67 @0x4
0x1d63…1d73 at0005 = ╱44╱D╱ // 0x1d68 @0x5
0x1d63…1d73 at0006 = ╱4f╱O╱ // 0x1d69 @0x6
0x1d63…1d73 at0007 = ╱20╱…╱ // 0x1d6a @0x7
0x1d63…1d73 at0008 = ╱4e╱N╱ // 0x1d6b @0x8
0x1d63…1d73 at0009 = ╱4f╱O╱ // 0x1d6c @0x9
0x1d63…1d73 at000a = ╱54╱T╱ // 0x1d6d @0xa
0x1d63…1d73 at000b = ╱48╱H╱ // 0x1d6e @0xb
0x1d63…1d73 at000c = ╱49╱I╱ // 0x1d6f @0xc
0x1d63…1d73 at000d = ╱4e╱N╱ // 0x1d70 @0xd
0x1d63…1d73 at000e = ╱47╱G╱ // 0x1d71 @0xe
0x1d63…1d73 at000f = EOL // 0x1d72 @0xf
0x1d63…1d73 }
0x1d73…1d83 b371 02780 LET T_IDX := 1
0x1d73…1d83 LineComal80 {
0x1d73…1d83 ptr = 0xb371 // 0x1d73 @0x0
0x1d73…1d83 lno = 0x0adc // 0x1d75 @0x2
0x1d73…1d83 at0004 = ╱86╱ LET ╱ // 0x1d77 @0x4
0x1d73…1d83 at0005 = ╱54╱T╱ // 0x1d78 @0x5
0x1d73…1d83 at0006 = ╱5f╱_╱ // 0x1d79 @0x6
0x1d73…1d83 at0007 = ╱49╱I╱ // 0x1d7a @0x7
0x1d73…1d83 at0008 = ╱44╱D╱ // 0x1d7b @0x8
0x1d73…1d83 at0009 = ╱58╱X╱ // 0x1d7c @0x9
0x1d73…1d83 at000a = ╱f0╱ := ╱ // 0x1d7d @0xa
0x1d73…1d83 at000b = ╱31╱1╱ // 0x1d7e @0xb
0x1d73…1d83 at000c = ╱f20100╱ // 0x1d7f @0xc
0x1d73…1d83 at000f = EOL // 0x1d82 @0xf
0x1d73…1d83 }
0x1d83…1d8e b37c 02790 WHILE "B"
0x1d83…1d8e LineComal80 {
0x1d83…1d8e ptr = 0xb37c // 0x1d83 @0x0
0x1d83…1d8e lno = 0x0ae6 // 0x1d85 @0x2
0x1d83…1d8e at0004 = ╱a40000╱ WHILE ╱ // 0x1d87 @0x4
0x1d83…1d8e at0007 = ╱22╱"╱ // 0x1d8a @0x7
0x1d83…1d8e at0008 = ╱42╱B╱ // 0x1d8b @0x8
0x1d83…1d8e at0009 = ╱22╱"╱ // 0x1d8c @0x9
0x1d83…1d8e at000a = EOL // 0x1d8d @0xa
0x1d83…1d8e }
0x1d8e…1d9d b38b 02800 PRINT TAB ( 25 ) ;
0x1d8e…1d9d LineComal80 {
0x1d8e…1d9d ptr = 0xb38b // 0x1d8e @0x0
0x1d8e…1d9d lno = 0x0af0 // 0x1d90 @0x2
0x1d8e…1d9d at0004 = ╱92╱ PRINT ╱ // 0x1d92 @0x4
0x1d8e…1d9d at0005 = ╱d2╱ TAB ╱ // 0x1d93 @0x5
0x1d8e…1d9d at0006 = ╱ed╱ ( ╱ // 0x1d94 @0x6
0x1d8e…1d9d at0007 = ╱32╱2╱ // 0x1d95 @0x7
0x1d8e…1d9d at0008 = ╱35╱5╱ // 0x1d96 @0x8
0x1d8e…1d9d at0009 = ╱f21900╱ // 0x1d97 @0x9
0x1d8e…1d9d at000c = ╱ee╱ ) ╱ // 0x1d9a @0xc
0x1d8e…1d9d at000d = ╱ea╱ ; ╱ // 0x1d9b @0xd
0x1d8e…1d9d at000e = EOL // 0x1d9c @0xe
0x1d8e…1d9d }
0x1d9d…1dad b39b 02810 LET T_IDX := 3
0x1d9d…1dad LineComal80 {
0x1d9d…1dad ptr = 0xb39b // 0x1d9d @0x0
0x1d9d…1dad lno = 0x0afa // 0x1d9f @0x2
0x1d9d…1dad at0004 = ╱86╱ LET ╱ // 0x1da1 @0x4
0x1d9d…1dad at0005 = ╱54╱T╱ // 0x1da2 @0x5
0x1d9d…1dad at0006 = ╱5f╱_╱ // 0x1da3 @0x6
0x1d9d…1dad at0007 = ╱49╱I╱ // 0x1da4 @0x7
0x1d9d…1dad at0008 = ╱44╱D╱ // 0x1da5 @0x8
0x1d9d…1dad at0009 = ╱58╱X╱ // 0x1da6 @0x9
0x1d9d…1dad at000a = ╱f0╱ := ╱ // 0x1da7 @0xa
0x1d9d…1dad at000b = ╱33╱3╱ // 0x1da8 @0xb
0x1d9d…1dad at000c = ╱f20300╱ // 0x1da9 @0xc
0x1d9d…1dad at000f = EOL // 0x1dac @0xf
0x1d9d…1dad }
0x1dad…1db8 b3a6 02820 WHILE "G"
0x1dad…1db8 LineComal80 {
0x1dad…1db8 ptr = 0xb3a6 // 0x1dad @0x0
0x1dad…1db8 lno = 0x0b04 // 0x1daf @0x2
0x1dad…1db8 at0004 = ╱a40000╱ WHILE ╱ // 0x1db1 @0x4
0x1dad…1db8 at0007 = ╱22╱"╱ // 0x1db4 @0x7
0x1dad…1db8 at0008 = ╱47╱G╱ // 0x1db5 @0x8
0x1dad…1db8 at0009 = ╱22╱"╱ // 0x1db6 @0x9
0x1dad…1db8 at000a = EOL // 0x1db7 @0xa
0x1dad…1db8 }
0x1db8…1dc7 b3b5 02830 PRINT TAB ( 49 ) ;
0x1db8…1dc7 LineComal80 {
0x1db8…1dc7 ptr = 0xb3b5 // 0x1db8 @0x0
0x1db8…1dc7 lno = 0x0b0e // 0x1dba @0x2
0x1db8…1dc7 at0004 = ╱92╱ PRINT ╱ // 0x1dbc @0x4
0x1db8…1dc7 at0005 = ╱d2╱ TAB ╱ // 0x1dbd @0x5
0x1db8…1dc7 at0006 = ╱ed╱ ( ╱ // 0x1dbe @0x6
0x1db8…1dc7 at0007 = ╱34╱4╱ // 0x1dbf @0x7
0x1db8…1dc7 at0008 = ╱39╱9╱ // 0x1dc0 @0x8
0x1db8…1dc7 at0009 = ╱f23100╱ // 0x1dc1 @0x9
0x1db8…1dc7 at000c = ╱ee╱ ) ╱ // 0x1dc4 @0xc
0x1db8…1dc7 at000d = ╱ea╱ ; ╱ // 0x1dc5 @0xd
0x1db8…1dc7 at000e = EOL // 0x1dc6 @0xe
0x1db8…1dc7 }
0x1dc7…1dd7 (99,) b3c5 02840 LET T_IDX := 5
0x1dc7…1dd7 LineComal80 {
0x1dc7…1dd7 ptr = 0xb3c5 // 0x1dc7 @0x0
0x1dc7…1dd7 lno = 0x0b18 // 0x1dc9 @0x2
0x1dc7…1dd7 at0004 = ╱86╱ LET ╱ // 0x1dcb @0x4
0x1dc7…1dd7 at0005 = ╱54╱T╱ // 0x1dcc @0x5
0x1dc7…1dd7 at0006 = ╱5f╱_╱ // 0x1dcd @0x6
0x1dc7…1dd7 at0007 = ╱49╱I╱ // 0x1dce @0x7
0x1dc7…1dd7 at0008 = ╱44╱D╱ // 0x1dcf @0x8
0x1dc7…1dd7 at0009 = ╱58╱X╱ // 0x1dd0 @0x9
0x1dc7…1dd7 at000a = ╱f0╱ := ╱ // 0x1dd1 @0xa
0x1dc7…1dd7 at000b = ╱35╱5╱ // 0x1dd2 @0xb
0x1dc7…1dd7 at000c = ╱f20500╱ // 0x1dd3 @0xc
0x1dc7…1dd7 at000f = EOL // 0x1dd6 @0xf
0x1dc7…1dd7 }
0x1dd7…1ddd b3cb 02850 ENDCASE
0x1dd7…1ddd LineComal80 {
0x1dd7…1ddd ptr = 0xb3cb // 0x1dd7 @0x0
0x1dd7…1ddd lno = 0x0b22 // 0x1dd9 @0x2
0x1dd7…1ddd at0004 = ╱a3╱ ENDCASE ╱ // 0x1ddb @0x4
0x1dd7…1ddd at0005 = EOL // 0x1ddc @0x5
0x1dd7…1ddd }
0x1ddd…1def b3dd 02860 IF _DK = DEBET THEN
0x1ddd…1def LineComal80 {
0x1ddd…1def ptr = 0xb3dd // 0x1ddd @0x0
0x1ddd…1def lno = 0x0b2c // 0x1ddf @0x2
0x1ddd…1def at0004 = ╱9b004b╱ IF ╱ // 0x1de1 @0x4
0x1ddd…1def at0007 = ╱5f╱_╱ // 0x1de4 @0x7
0x1ddd…1def at0008 = ╱44╱D╱ // 0x1de5 @0x8
0x1ddd…1def at0009 = ╱4b╱K╱ // 0x1de6 @0x9
0x1ddd…1def at000a = ╱df╱ = ╱ // 0x1de7 @0xa
0x1ddd…1def at000b = ╱44╱D╱ // 0x1de8 @0xb
0x1ddd…1def at000c = ╱45╱E╱ // 0x1de9 @0xc
0x1ddd…1def at000d = ╱42╱B╱ // 0x1dea @0xd
0x1ddd…1def at000e = ╱45╱E╱ // 0x1deb @0xe
0x1ddd…1def at000f = ╱54╱T╱ // 0x1dec @0xf
0x1ddd…1def at0010 = ╱b5╱ THEN ╱ // 0x1ded @0x10
0x1ddd…1def at0011 = EOL // 0x1dee @0x11
0x1ddd…1def }
0x1def…1e08 b3f6 02870 PRINT CHR$ ( K_BKR , 9 , 2 ) ;
0x1def…1e08 LineComal80 {
0x1def…1e08 ptr = 0xb3f6 // 0x1def @0x0
0x1def…1e08 lno = 0x0b36 // 0x1df1 @0x2
0x1def…1e08 at0004 = ╱92╱ PRINT ╱ // 0x1df3 @0x4
0x1def…1e08 at0005 = ╱d0╱ CHR$ ╱ // 0x1df4 @0x5
0x1def…1e08 at0006 = ╱ed╱ ( ╱ // 0x1df5 @0x6
0x1def…1e08 at0007 = ╱4b╱K╱ // 0x1df6 @0x7
0x1def…1e08 at0008 = ╱5f╱_╱ // 0x1df7 @0x8
0x1def…1e08 at0009 = ╱42╱B╱ // 0x1df8 @0x9
0x1def…1e08 at000a = ╱4b╱K╱ // 0x1df9 @0xa
0x1def…1e08 at000b = ╱52╱R╱ // 0x1dfa @0xb
0x1def…1e08 at000c = ╱ec╱ , ╱ // 0x1dfb @0xc
0x1def…1e08 at000d = ╱39╱9╱ // 0x1dfc @0xd
0x1def…1e08 at000e = ╱f20900╱ // 0x1dfd @0xe
0x1def…1e08 at0011 = ╱ec╱ , ╱ // 0x1e00 @0x11
0x1def…1e08 at0012 = ╱32╱2╱ // 0x1e01 @0x12
0x1def…1e08 at0013 = ╱f20200╱ // 0x1e02 @0x13
0x1def…1e08 at0016 = ╱ee╱ ) ╱ // 0x1e05 @0x16
0x1def…1e08 at0017 = ╱ea╱ ; ╱ // 0x1e06 @0x17
0x1def…1e08 at0018 = EOL // 0x1e07 @0x18
0x1def…1e08 }
0x1e08…1e29 b417 02880 LET TOT ( T_IDX ) := TOT ( T_IDX ) + K_BKR
0x1e08…1e29 LineComal80 {
0x1e08…1e29 ptr = 0xb417 // 0x1e08 @0x0
0x1e08…1e29 lno = 0x0b40 // 0x1e0a @0x2
0x1e08…1e29 at0004 = ╱86╱ LET ╱ // 0x1e0c @0x4
0x1e08…1e29 at0005 = ╱54╱T╱ // 0x1e0d @0x5
0x1e08…1e29 at0006 = ╱4f╱O╱ // 0x1e0e @0x6
0x1e08…1e29 at0007 = ╱54╱T╱ // 0x1e0f @0x7
0x1e08…1e29 at0008 = ╱ed╱ ( ╱ // 0x1e10 @0x8
0x1e08…1e29 at0009 = ╱54╱T╱ // 0x1e11 @0x9
0x1e08…1e29 at000a = ╱5f╱_╱ // 0x1e12 @0xa
0x1e08…1e29 at000b = ╱49╱I╱ // 0x1e13 @0xb
0x1e08…1e29 at000c = ╱44╱D╱ // 0x1e14 @0xc
0x1e08…1e29 at000d = ╱58╱X╱ // 0x1e15 @0xd
0x1e08…1e29 at000e = ╱ee╱ ) ╱ // 0x1e16 @0xe
0x1e08…1e29 at000f = ╱f0╱ := ╱ // 0x1e17 @0xf
0x1e08…1e29 at0010 = ╱54╱T╱ // 0x1e18 @0x10
0x1e08…1e29 at0011 = ╱4f╱O╱ // 0x1e19 @0x11
0x1e08…1e29 at0012 = ╱54╱T╱ // 0x1e1a @0x12
0x1e08…1e29 at0013 = ╱ed╱ ( ╱ // 0x1e1b @0x13
0x1e08…1e29 at0014 = ╱54╱T╱ // 0x1e1c @0x14
0x1e08…1e29 at0015 = ╱5f╱_╱ // 0x1e1d @0x15
0x1e08…1e29 at0016 = ╱49╱I╱ // 0x1e1e @0x16
0x1e08…1e29 at0017 = ╱44╱D╱ // 0x1e1f @0x17
0x1e08…1e29 at0018 = ╱58╱X╱ // 0x1e20 @0x18
0x1e08…1e29 at0019 = ╱ee╱ ) ╱ // 0x1e21 @0x19
0x1e08…1e29 at001a = ╱e5╱ + ╱ // 0x1e22 @0x1a
0x1e08…1e29 at001b = ╱4b╱K╱ // 0x1e23 @0x1b
0x1e08…1e29 at001c = ╱5f╱_╱ // 0x1e24 @0x1c
0x1e08…1e29 at001d = ╱42╱B╱ // 0x1e25 @0x1d
0x1e08…1e29 at001e = ╱4b╱K╱ // 0x1e26 @0x1e
0x1e08…1e29 at001f = ╱52╱R╱ // 0x1e27 @0x1f
0x1e08…1e29 at0020 = EOL // 0x1e28 @0x20
0x1e08…1e29 }
0x1e29…1e30 b41e 02890 ELSE
0x1e29…1e30 LineComal80 {
0x1e29…1e30 ptr = 0xb41e // 0x1e29 @0x0
0x1e29…1e30 lno = 0x0b4a // 0x1e2b @0x2
0x1e29…1e30 at0004 = ╱9a00╱ ELSE ╱ // 0x1e2d @0x4
0x1e29…1e30 at0006 = EOL // 0x1e2f @0x6
0x1e29…1e30 }
0x1e30…1e58 b446 02900 PRINT "………………………………" ; CHR$ ( K_BKR , 9 , 2 ) ;
0x1e30…1e58 LineComal80 {
0x1e30…1e58 ptr = 0xb446 // 0x1e30 @0x0
0x1e30…1e58 lno = 0x0b54 // 0x1e32 @0x2
0x1e30…1e58 at0004 = ╱92╱ PRINT ╱ // 0x1e34 @0x4
0x1e30…1e58 at0005 = ╱22╱"╱ // 0x1e35 @0x5
0x1e30…1e58 at0006 = ╱20╱…╱ // 0x1e36 @0x6
0x1e30…1e58 at0007 = ╱20╱…╱ // 0x1e37 @0x7
0x1e30…1e58 at0008 = ╱20╱…╱ // 0x1e38 @0x8
0x1e30…1e58 at0009 = ╱20╱…╱ // 0x1e39 @0x9
0x1e30…1e58 at000a = ╱20╱…╱ // 0x1e3a @0xa
0x1e30…1e58 at000b = ╱20╱…╱ // 0x1e3b @0xb
0x1e30…1e58 at000c = ╱20╱…╱ // 0x1e3c @0xc
0x1e30…1e58 at000d = ╱20╱…╱ // 0x1e3d @0xd
0x1e30…1e58 at000e = ╱20╱…╱ // 0x1e3e @0xe
0x1e30…1e58 at000f = ╱20╱…╱ // 0x1e3f @0xf
0x1e30…1e58 at0010 = ╱20╱…╱ // 0x1e40 @0x10
0x1e30…1e58 at0011 = ╱20╱…╱ // 0x1e41 @0x11
0x1e30…1e58 at0012 = ╱22╱"╱ // 0x1e42 @0x12
0x1e30…1e58 at0013 = ╱ea╱ ; ╱ // 0x1e43 @0x13
0x1e30…1e58 at0014 = ╱d0╱ CHR$ ╱ // 0x1e44 @0x14
0x1e30…1e58 at0015 = ╱ed╱ ( ╱ // 0x1e45 @0x15
0x1e30…1e58 at0016 = ╱4b╱K╱ // 0x1e46 @0x16
0x1e30…1e58 at0017 = ╱5f╱_╱ // 0x1e47 @0x17
0x1e30…1e58 at0018 = ╱42╱B╱ // 0x1e48 @0x18
0x1e30…1e58 at0019 = ╱4b╱K╱ // 0x1e49 @0x19
0x1e30…1e58 at001a = ╱52╱R╱ // 0x1e4a @0x1a
0x1e30…1e58 at001b = ╱ec╱ , ╱ // 0x1e4b @0x1b
0x1e30…1e58 at001c = ╱39╱9╱ // 0x1e4c @0x1c
0x1e30…1e58 at001d = ╱f20900╱ // 0x1e4d @0x1d
0x1e30…1e58 at0020 = ╱ec╱ , ╱ // 0x1e50 @0x20
0x1e30…1e58 at0021 = ╱32╱2╱ // 0x1e51 @0x21
0x1e30…1e58 at0022 = ╱f20200╱ // 0x1e52 @0x22
0x1e30…1e58 at0025 = ╱ee╱ ) ╱ // 0x1e55 @0x25
0x1e30…1e58 at0026 = ╱ea╱ ; ╱ // 0x1e56 @0x26
0x1e30…1e58 at0027 = EOL // 0x1e57 @0x27
0x1e30…1e58 }
0x1e58…1e83 b471 02910 LET TOT ( T_IDX + 1 ) := TOT ( T_IDX + 1 ) + K_BKR
0x1e58…1e83 LineComal80 {
0x1e58…1e83 ptr = 0xb471 // 0x1e58 @0x0
0x1e58…1e83 lno = 0x0b5e // 0x1e5a @0x2
0x1e58…1e83 at0004 = ╱86╱ LET ╱ // 0x1e5c @0x4
0x1e58…1e83 at0005 = ╱54╱T╱ // 0x1e5d @0x5
0x1e58…1e83 at0006 = ╱4f╱O╱ // 0x1e5e @0x6
0x1e58…1e83 at0007 = ╱54╱T╱ // 0x1e5f @0x7
0x1e58…1e83 at0008 = ╱ed╱ ( ╱ // 0x1e60 @0x8
0x1e58…1e83 at0009 = ╱54╱T╱ // 0x1e61 @0x9
0x1e58…1e83 at000a = ╱5f╱_╱ // 0x1e62 @0xa
0x1e58…1e83 at000b = ╱49╱I╱ // 0x1e63 @0xb
0x1e58…1e83 at000c = ╱44╱D╱ // 0x1e64 @0xc
0x1e58…1e83 at000d = ╱58╱X╱ // 0x1e65 @0xd
0x1e58…1e83 at000e = ╱e5╱ + ╱ // 0x1e66 @0xe
0x1e58…1e83 at000f = ╱31╱1╱ // 0x1e67 @0xf
0x1e58…1e83 at0010 = ╱f20100╱ // 0x1e68 @0x10
0x1e58…1e83 at0013 = ╱ee╱ ) ╱ // 0x1e6b @0x13
0x1e58…1e83 at0014 = ╱f0╱ := ╱ // 0x1e6c @0x14
0x1e58…1e83 at0015 = ╱54╱T╱ // 0x1e6d @0x15
0x1e58…1e83 at0016 = ╱4f╱O╱ // 0x1e6e @0x16
0x1e58…1e83 at0017 = ╱54╱T╱ // 0x1e6f @0x17
0x1e58…1e83 at0018 = ╱ed╱ ( ╱ // 0x1e70 @0x18
0x1e58…1e83 at0019 = ╱54╱T╱ // 0x1e71 @0x19
0x1e58…1e83 at001a = ╱5f╱_╱ // 0x1e72 @0x1a
0x1e58…1e83 at001b = ╱49╱I╱ // 0x1e73 @0x1b
0x1e58…1e83 at001c = ╱44╱D╱ // 0x1e74 @0x1c
0x1e58…1e83 at001d = ╱58╱X╱ // 0x1e75 @0x1d
0x1e58…1e83 at001e = ╱e5╱ + ╱ // 0x1e76 @0x1e
0x1e58…1e83 at001f = ╱31╱1╱ // 0x1e77 @0x1f
0x1e58…1e83 at0020 = ╱f20100╱ // 0x1e78 @0x20
0x1e58…1e83 at0023 = ╱ee╱ ) ╱ // 0x1e7b @0x23
0x1e58…1e83 at0024 = ╱e5╱ + ╱ // 0x1e7c @0x24
0x1e58…1e83 at0025 = ╱4b╱K╱ // 0x1e7d @0x25
0x1e58…1e83 at0026 = ╱5f╱_╱ // 0x1e7e @0x26
0x1e58…1e83 at0027 = ╱42╱B╱ // 0x1e7f @0x27
0x1e58…1e83 at0028 = ╱4b╱K╱ // 0x1e80 @0x28
0x1e58…1e83 at0029 = ╱52╱R╱ // 0x1e81 @0x29
0x1e58…1e83 at002a = EOL // 0x1e82 @0x2a
0x1e58…1e83 }
0x1e83…1e89 b477 02920 ENDIF
0x1e83…1e89 LineComal80 {
0x1e83…1e89 ptr = 0xb477 // 0x1e83 @0x0
0x1e83…1e89 lno = 0x0b68 // 0x1e85 @0x2
0x1e83…1e89 at0004 = ╱9c╱ ENDIF ╱ // 0x1e87 @0x4
0x1e83…1e89 at0005 = EOL // 0x1e88 @0x5
0x1e83…1e89 }
0x1e89…1ec7 b4b5 02930 IF _BKTO $ + "/" IN KASSE_KTO $ + "/" + BANK_KTO $ + "/" + GIRO_KTO $ + "/" THEN
0x1e89…1ec7 LineComal80 {
0x1e89…1ec7 ptr = 0xb4b5 // 0x1e89 @0x0
0x1e89…1ec7 lno = 0x0b72 // 0x1e8b @0x2
0x1e89…1ec7 at0004 = ╱9b004b╱ IF ╱ // 0x1e8d @0x4
0x1e89…1ec7 at0007 = ╱5f╱_╱ // 0x1e90 @0x7
0x1e89…1ec7 at0008 = ╱42╱B╱ // 0x1e91 @0x8
0x1e89…1ec7 at0009 = ╱4b╱K╱ // 0x1e92 @0x9
0x1e89…1ec7 at000a = ╱54╱T╱ // 0x1e93 @0xa
0x1e89…1ec7 at000b = ╱4f╱O╱ // 0x1e94 @0xb
0x1e89…1ec7 at000c = ╱ef╱ $ ╱ // 0x1e95 @0xc
0x1e89…1ec7 at000d = ╱eb╱ + ╱ // 0x1e96 @0xd
0x1e89…1ec7 at000e = ╱22╱"╱ // 0x1e97 @0xe
0x1e89…1ec7 at000f = ╱2f╱/╱ // 0x1e98 @0xf
0x1e89…1ec7 at0010 = ╱22╱"╱ // 0x1e99 @0x10
0x1e89…1ec7 at0011 = ╱dc╱ IN ╱ // 0x1e9a @0x11
0x1e89…1ec7 at0012 = ╱4b╱K╱ // 0x1e9b @0x12
0x1e89…1ec7 at0013 = ╱41╱A╱ // 0x1e9c @0x13
0x1e89…1ec7 at0014 = ╱53╱S╱ // 0x1e9d @0x14
0x1e89…1ec7 at0015 = ╱53╱S╱ // 0x1e9e @0x15
0x1e89…1ec7 at0016 = ╱45╱E╱ // 0x1e9f @0x16
0x1e89…1ec7 at0017 = ╱5f╱_╱ // 0x1ea0 @0x17
0x1e89…1ec7 at0018 = ╱4b╱K╱ // 0x1ea1 @0x18
0x1e89…1ec7 at0019 = ╱54╱T╱ // 0x1ea2 @0x19
0x1e89…1ec7 at001a = ╱4f╱O╱ // 0x1ea3 @0x1a
0x1e89…1ec7 at001b = ╱ef╱ $ ╱ // 0x1ea4 @0x1b
0x1e89…1ec7 at001c = ╱eb╱ + ╱ // 0x1ea5 @0x1c
0x1e89…1ec7 at001d = ╱22╱"╱ // 0x1ea6 @0x1d
0x1e89…1ec7 at001e = ╱2f╱/╱ // 0x1ea7 @0x1e
0x1e89…1ec7 at001f = ╱22╱"╱ // 0x1ea8 @0x1f
0x1e89…1ec7 at0020 = ╱eb╱ + ╱ // 0x1ea9 @0x20
0x1e89…1ec7 at0021 = ╱42╱B╱ // 0x1eaa @0x21
0x1e89…1ec7 at0022 = ╱41╱A╱ // 0x1eab @0x22
0x1e89…1ec7 at0023 = ╱4e╱N╱ // 0x1eac @0x23
0x1e89…1ec7 at0024 = ╱4b╱K╱ // 0x1ead @0x24
0x1e89…1ec7 at0025 = ╱5f╱_╱ // 0x1eae @0x25
0x1e89…1ec7 at0026 = ╱4b╱K╱ // 0x1eaf @0x26
0x1e89…1ec7 at0027 = ╱54╱T╱ // 0x1eb0 @0x27
0x1e89…1ec7 at0028 = ╱4f╱O╱ // 0x1eb1 @0x28
0x1e89…1ec7 at0029 = ╱ef╱ $ ╱ // 0x1eb2 @0x29
0x1e89…1ec7 at002a = ╱eb╱ + ╱ // 0x1eb3 @0x2a
0x1e89…1ec7 at002b = ╱22╱"╱ // 0x1eb4 @0x2b
0x1e89…1ec7 at002c = ╱2f╱/╱ // 0x1eb5 @0x2c
0x1e89…1ec7 at002d = ╱22╱"╱ // 0x1eb6 @0x2d
0x1e89…1ec7 at002e = ╱eb╱ + ╱ // 0x1eb7 @0x2e
0x1e89…1ec7 at002f = ╱47╱G╱ // 0x1eb8 @0x2f
0x1e89…1ec7 at0030 = ╱49╱I╱ // 0x1eb9 @0x30
0x1e89…1ec7 at0031 = ╱52╱R╱ // 0x1eba @0x31
0x1e89…1ec7 at0032 = ╱4f╱O╱ // 0x1ebb @0x32
0x1e89…1ec7 at0033 = ╱5f╱_╱ // 0x1ebc @0x33
0x1e89…1ec7 at0034 = ╱4b╱K╱ // 0x1ebd @0x34
0x1e89…1ec7 at0035 = ╱54╱T╱ // 0x1ebe @0x35
0x1e89…1ec7 at0036 = ╱4f╱O╱ // 0x1ebf @0x36
0x1e89…1ec7 at0037 = ╱ef╱ $ ╱ // 0x1ec0 @0x37
0x1e89…1ec7 at0038 = ╱eb╱ + ╱ // 0x1ec1 @0x38
0x1e89…1ec7 at0039 = ╱22╱"╱ // 0x1ec2 @0x39
0x1e89…1ec7 at003a = ╱2f╱/╱ // 0x1ec3 @0x3a
0x1e89…1ec7 at003b = ╱22╱"╱ // 0x1ec4 @0x3b
0x1e89…1ec7 at003c = ╱b5╱ THEN ╱ // 0x1ec5 @0x3c
0x1e89…1ec7 at003d = EOL // 0x1ec6 @0x3d
0x1e89…1ec7 }
0x1ec7…1ed2 b4c0 02940 PRINT "<N>"
0x1ec7…1ed2 LineComal80 {
0x1ec7…1ed2 ptr = 0xb4c0 // 0x1ec7 @0x0
0x1ec7…1ed2 lno = 0x0b7c // 0x1ec9 @0x2
0x1ec7…1ed2 at0004 = ╱92╱ PRINT ╱ // 0x1ecb @0x4
0x1ec7…1ed2 at0005 = ╱22╱"╱ // 0x1ecc @0x5
0x1ec7…1ed2 at0006 = ╱3c╱<╱ // 0x1ecd @0x6
0x1ec7…1ed2 at0007 = ╱4e╱N╱ // 0x1ece @0x7
0x1ec7…1ed2 at0008 = ╱3e╱>╱ // 0x1ecf @0x8
0x1ec7…1ed2 at0009 = ╱22╱"╱ // 0x1ed0 @0x9
0x1ec7…1ed2 at000a = EOL // 0x1ed1 @0xa
0x1ec7…1ed2 }
0x1ed2…1ee6 b4d4 02950 PRINT "<S>" ; TAB ( 36 )
0x1ed2…1ee6 LineComal80 {
0x1ed2…1ee6 ptr = 0xb4d4 // 0x1ed2 @0x0
0x1ed2…1ee6 lno = 0x0b86 // 0x1ed4 @0x2
0x1ed2…1ee6 at0004 = ╱92╱ PRINT ╱ // 0x1ed6 @0x4
0x1ed2…1ee6 at0005 = ╱22╱"╱ // 0x1ed7 @0x5
0x1ed2…1ee6 at0006 = ╱3c╱<╱ // 0x1ed8 @0x6
0x1ed2…1ee6 at0007 = ╱53╱S╱ // 0x1ed9 @0x7
0x1ed2…1ee6 at0008 = ╱3e╱>╱ // 0x1eda @0x8
0x1ed2…1ee6 at0009 = ╱22╱"╱ // 0x1edb @0x9
0x1ed2…1ee6 at000a = ╱ea╱ ; ╱ // 0x1edc @0xa
0x1ed2…1ee6 at000b = ╱d2╱ TAB ╱ // 0x1edd @0xb
0x1ed2…1ee6 at000c = ╱ed╱ ( ╱ // 0x1ede @0xc
0x1ed2…1ee6 at000d = ╱33╱3╱ // 0x1edf @0xd
0x1ed2…1ee6 at000e = ╱36╱6╱ // 0x1ee0 @0xe
0x1ed2…1ee6 at000f = ╱f22400╱ // 0x1ee1 @0xf
0x1ed2…1ee6 at0012 = ╱ee╱ ) ╱ // 0x1ee4 @0x12
0x1ed2…1ee6 at0013 = EOL // 0x1ee5 @0x13
0x1ed2…1ee6 }
0x1ee6…1ef6 b4e4 02960 CASE K_BKTO $ OF
0x1ee6…1ef6 LineComal80 {
0x1ee6…1ef6 ptr = 0xb4e4 // 0x1ee6 @0x0
0x1ee6…1ef6 lno = 0x0b90 // 0x1ee8 @0x2
0x1ee6…1ef6 at0004 = ╱a20000╱ CASE ╱ // 0x1eea @0x4
0x1ee6…1ef6 at0007 = ╱4b╱K╱ // 0x1eed @0x7
0x1ee6…1ef6 at0008 = ╱5f╱_╱ // 0x1eee @0x8
0x1ee6…1ef6 at0009 = ╱42╱B╱ // 0x1eef @0x9
0x1ee6…1ef6 at000a = ╱4b╱K╱ // 0x1ef0 @0xa
0x1ee6…1ef6 at000b = ╱54╱T╱ // 0x1ef1 @0xb
0x1ee6…1ef6 at000c = ╱4f╱O╱ // 0x1ef2 @0xc
0x1ee6…1ef6 at000d = ╱ef╱ $ ╱ // 0x1ef3 @0xd
0x1ee6…1ef6 at000e = ╱ba╱ OF ╱ // 0x1ef4 @0xe
0x1ee6…1ef6 at000f = EOL // 0x1ef5 @0xf
0x1ee6…1ef6 }
0x1ef6…1f08 b4f6 02970 WHILE KASSE_KTO $
0x1ef6…1f08 LineComal80 {
0x1ef6…1f08 ptr = 0xb4f6 // 0x1ef6 @0x0
0x1ef6…1f08 lno = 0x0b9a // 0x1ef8 @0x2
0x1ef6…1f08 at0004 = ╱a40000╱ WHILE ╱ // 0x1efa @0x4
0x1ef6…1f08 at0007 = ╱4b╱K╱ // 0x1efd @0x7
0x1ef6…1f08 at0008 = ╱41╱A╱ // 0x1efe @0x8
0x1ef6…1f08 at0009 = ╱53╱S╱ // 0x1eff @0x9
0x1ef6…1f08 at000a = ╱53╱S╱ // 0x1f00 @0xa
0x1ef6…1f08 at000b = ╱45╱E╱ // 0x1f01 @0xb
0x1ef6…1f08 at000c = ╱5f╱_╱ // 0x1f02 @0xc
0x1ef6…1f08 at000d = ╱4b╱K╱ // 0x1f03 @0xd
0x1ef6…1f08 at000e = ╱54╱T╱ // 0x1f04 @0xe
0x1ef6…1f08 at000f = ╱4f╱O╱ // 0x1f05 @0xf
0x1ef6…1f08 at0010 = ╱ef╱ $ ╱ // 0x1f06 @0x10
0x1ef6…1f08 at0011 = EOL // 0x1f07 @0x11
0x1ef6…1f08 }
0x1f08…1f18 b506 02980 // DO…NOTHING
0x1f08…1f18 LineComal80 {
0x1f08…1f18 ptr = 0xb506 // 0x1f08 @0x0
0x1f08…1f18 lno = 0x0ba4 // 0x1f0a @0x2
0x1f08…1f18 at0004 = ╱89╱ // ╱ // 0x1f0c @0x4
0x1f08…1f18 at0005 = ╱44╱D╱ // 0x1f0d @0x5
0x1f08…1f18 at0006 = ╱4f╱O╱ // 0x1f0e @0x6
0x1f08…1f18 at0007 = ╱20╱…╱ // 0x1f0f @0x7
0x1f08…1f18 at0008 = ╱4e╱N╱ // 0x1f10 @0x8
0x1f08…1f18 at0009 = ╱4f╱O╱ // 0x1f11 @0x9
0x1f08…1f18 at000a = ╱54╱T╱ // 0x1f12 @0xa
0x1f08…1f18 at000b = ╱48╱H╱ // 0x1f13 @0xb
0x1f08…1f18 at000c = ╱49╱I╱ // 0x1f14 @0xc
0x1f08…1f18 at000d = ╱4e╱N╱ // 0x1f15 @0xd
0x1f08…1f18 at000e = ╱47╱G╱ // 0x1f16 @0xe
0x1f08…1f18 at000f = EOL // 0x1f17 @0xf
0x1f08…1f18 }
0x1f18…1f28 b516 02990 LET T_IDX := 1
0x1f18…1f28 LineComal80 {
0x1f18…1f28 ptr = 0xb516 // 0x1f18 @0x0
0x1f18…1f28 lno = 0x0bae // 0x1f1a @0x2
0x1f18…1f28 at0004 = ╱86╱ LET ╱ // 0x1f1c @0x4
0x1f18…1f28 at0005 = ╱54╱T╱ // 0x1f1d @0x5
0x1f18…1f28 at0006 = ╱5f╱_╱ // 0x1f1e @0x6
0x1f18…1f28 at0007 = ╱49╱I╱ // 0x1f1f @0x7
0x1f18…1f28 at0008 = ╱44╱D╱ // 0x1f20 @0x8
0x1f18…1f28 at0009 = ╱58╱X╱ // 0x1f21 @0x9
0x1f18…1f28 at000a = ╱f0╱ := ╱ // 0x1f22 @0xa
0x1f18…1f28 at000b = ╱31╱1╱ // 0x1f23 @0xb
0x1f18…1f28 at000c = ╱f20100╱ // 0x1f24 @0xc
0x1f18…1f28 at000f = EOL // 0x1f27 @0xf
0x1f18…1f28 }
0x1f28…1f39 b527 03000 WHILE BANK_KTO $
0x1f28…1f39 LineComal80 {
0x1f28…1f39 ptr = 0xb527 // 0x1f28 @0x0
0x1f28…1f39 lno = 0x0bb8 // 0x1f2a @0x2
0x1f28…1f39 at0004 = ╱a40000╱ WHILE ╱ // 0x1f2c @0x4
0x1f28…1f39 at0007 = ╱42╱B╱ // 0x1f2f @0x7
0x1f28…1f39 at0008 = ╱41╱A╱ // 0x1f30 @0x8
0x1f28…1f39 at0009 = ╱4e╱N╱ // 0x1f31 @0x9
0x1f28…1f39 at000a = ╱4b╱K╱ // 0x1f32 @0xa
0x1f28…1f39 at000b = ╱5f╱_╱ // 0x1f33 @0xb
0x1f28…1f39 at000c = ╱4b╱K╱ // 0x1f34 @0xc
0x1f28…1f39 at000d = ╱54╱T╱ // 0x1f35 @0xd
0x1f28…1f39 at000e = ╱4f╱O╱ // 0x1f36 @0xe
0x1f28…1f39 at000f = ╱ef╱ $ ╱ // 0x1f37 @0xf
0x1f28…1f39 at0010 = EOL // 0x1f38 @0x10
0x1f28…1f39 }
0x1f39…1f4d b53b 03010 PRINT "<S>" ; TAB ( 28 )
0x1f39…1f4d LineComal80 {
0x1f39…1f4d ptr = 0xb53b // 0x1f39 @0x0
0x1f39…1f4d lno = 0x0bc2 // 0x1f3b @0x2
0x1f39…1f4d at0004 = ╱92╱ PRINT ╱ // 0x1f3d @0x4
0x1f39…1f4d at0005 = ╱22╱"╱ // 0x1f3e @0x5
0x1f39…1f4d at0006 = ╱3c╱<╱ // 0x1f3f @0x6
0x1f39…1f4d at0007 = ╱53╱S╱ // 0x1f40 @0x7
0x1f39…1f4d at0008 = ╱3e╱>╱ // 0x1f41 @0x8
0x1f39…1f4d at0009 = ╱22╱"╱ // 0x1f42 @0x9
0x1f39…1f4d at000a = ╱ea╱ ; ╱ // 0x1f43 @0xa
0x1f39…1f4d at000b = ╱d2╱ TAB ╱ // 0x1f44 @0xb
0x1f39…1f4d at000c = ╱ed╱ ( ╱ // 0x1f45 @0xc
0x1f39…1f4d at000d = ╱32╱2╱ // 0x1f46 @0xd
0x1f39…1f4d at000e = ╱38╱8╱ // 0x1f47 @0xe
0x1f39…1f4d at000f = ╱f21c00╱ // 0x1f48 @0xf
0x1f39…1f4d at0012 = ╱ee╱ ) ╱ // 0x1f4b @0x12
0x1f39…1f4d at0013 = EOL // 0x1f4c @0x13
0x1f39…1f4d }
0x1f4d…1f5d b54b 03020 LET T_IDX := 3
0x1f4d…1f5d LineComal80 {
0x1f4d…1f5d ptr = 0xb54b // 0x1f4d @0x0
0x1f4d…1f5d lno = 0x0bcc // 0x1f4f @0x2
0x1f4d…1f5d at0004 = ╱86╱ LET ╱ // 0x1f51 @0x4
0x1f4d…1f5d at0005 = ╱54╱T╱ // 0x1f52 @0x5
0x1f4d…1f5d at0006 = ╱5f╱_╱ // 0x1f53 @0x6
0x1f4d…1f5d at0007 = ╱49╱I╱ // 0x1f54 @0x7
0x1f4d…1f5d at0008 = ╱44╱D╱ // 0x1f55 @0x8
0x1f4d…1f5d at0009 = ╱58╱X╱ // 0x1f56 @0x9
0x1f4d…1f5d at000a = ╱f0╱ := ╱ // 0x1f57 @0xa
0x1f4d…1f5d at000b = ╱33╱3╱ // 0x1f58 @0xb
0x1f4d…1f5d at000c = ╱f20300╱ // 0x1f59 @0xc
0x1f4d…1f5d at000f = EOL // 0x1f5c @0xf
0x1f4d…1f5d }
0x1f5d…1f6e b55c 03030 WHILE GIRO_KTO $
0x1f5d…1f6e LineComal80 {
0x1f5d…1f6e ptr = 0xb55c // 0x1f5d @0x0
0x1f5d…1f6e lno = 0x0bd6 // 0x1f5f @0x2
0x1f5d…1f6e at0004 = ╱a40000╱ WHILE ╱ // 0x1f61 @0x4
0x1f5d…1f6e at0007 = ╱47╱G╱ // 0x1f64 @0x7
0x1f5d…1f6e at0008 = ╱49╱I╱ // 0x1f65 @0x8
0x1f5d…1f6e at0009 = ╱52╱R╱ // 0x1f66 @0x9
0x1f5d…1f6e at000a = ╱4f╱O╱ // 0x1f67 @0xa
0x1f5d…1f6e at000b = ╱5f╱_╱ // 0x1f68 @0xb
0x1f5d…1f6e at000c = ╱4b╱K╱ // 0x1f69 @0xc
0x1f5d…1f6e at000d = ╱54╱T╱ // 0x1f6a @0xd
0x1f5d…1f6e at000e = ╱4f╱O╱ // 0x1f6b @0xe
0x1f5d…1f6e at000f = ╱ef╱ $ ╱ // 0x1f6c @0xf
0x1f5d…1f6e at0010 = EOL // 0x1f6d @0x10
0x1f5d…1f6e }
0x1f6e…1f82 b570 03040 PRINT "<S>" ; TAB ( 52 )
0x1f6e…1f82 LineComal80 {
0x1f6e…1f82 ptr = 0xb570 // 0x1f6e @0x0
0x1f6e…1f82 lno = 0x0be0 // 0x1f70 @0x2
0x1f6e…1f82 at0004 = ╱92╱ PRINT ╱ // 0x1f72 @0x4
0x1f6e…1f82 at0005 = ╱22╱"╱ // 0x1f73 @0x5
0x1f6e…1f82 at0006 = ╱3c╱<╱ // 0x1f74 @0x6
0x1f6e…1f82 at0007 = ╱53╱S╱ // 0x1f75 @0x7
0x1f6e…1f82 at0008 = ╱3e╱>╱ // 0x1f76 @0x8
0x1f6e…1f82 at0009 = ╱22╱"╱ // 0x1f77 @0x9
0x1f6e…1f82 at000a = ╱ea╱ ; ╱ // 0x1f78 @0xa
0x1f6e…1f82 at000b = ╱d2╱ TAB ╱ // 0x1f79 @0xb
0x1f6e…1f82 at000c = ╱ed╱ ( ╱ // 0x1f7a @0xc
0x1f6e…1f82 at000d = ╱35╱5╱ // 0x1f7b @0xd
0x1f6e…1f82 at000e = ╱32╱2╱ // 0x1f7c @0xe
0x1f6e…1f82 at000f = ╱f23400╱ // 0x1f7d @0xf
0x1f6e…1f82 at0012 = ╱ee╱ ) ╱ // 0x1f80 @0x12
0x1f6e…1f82 at0013 = EOL // 0x1f81 @0x13
0x1f6e…1f82 }
0x1f82…1f92 b580 03050 LET T_IDX := 5
0x1f82…1f92 LineComal80 {
0x1f82…1f92 ptr = 0xb580 // 0x1f82 @0x0
0x1f82…1f92 lno = 0x0bea // 0x1f84 @0x2
0x1f82…1f92 at0004 = ╱86╱ LET ╱ // 0x1f86 @0x4
0x1f82…1f92 at0005 = ╱54╱T╱ // 0x1f87 @0x5
0x1f82…1f92 at0006 = ╱5f╱_╱ // 0x1f88 @0x6
0x1f82…1f92 at0007 = ╱49╱I╱ // 0x1f89 @0x7
0x1f82…1f92 at0008 = ╱44╱D╱ // 0x1f8a @0x8
0x1f82…1f92 at0009 = ╱58╱X╱ // 0x1f8b @0x9
0x1f82…1f92 at000a = ╱f0╱ := ╱ // 0x1f8c @0xa
0x1f82…1f92 at000b = ╱35╱5╱ // 0x1f8d @0xb
0x1f82…1f92 at000c = ╱f20500╱ // 0x1f8e @0xc
0x1f82…1f92 at000f = EOL // 0x1f91 @0xf
0x1f82…1f92 }
0x1f92…1f98 b586 03060 ENDCASE
0x1f92…1f98 LineComal80 {
0x1f92…1f98 ptr = 0xb586 // 0x1f92 @0x0
0x1f92…1f98 lno = 0x0bf4 // 0x1f94 @0x2
0x1f92…1f98 at0004 = ╱a3╱ ENDCASE ╱ // 0x1f96 @0x4
0x1f92…1f98 at0005 = EOL // 0x1f97 @0x5
0x1f92…1f98 }
0x1f98…1faa b598 03070 IF _DK = DEBET THEN
0x1f98…1faa LineComal80 {
0x1f98…1faa ptr = 0xb598 // 0x1f98 @0x0
0x1f98…1faa lno = 0x0bfe // 0x1f9a @0x2
0x1f98…1faa at0004 = ╱9b004b╱ IF ╱ // 0x1f9c @0x4
0x1f98…1faa at0007 = ╱5f╱_╱ // 0x1f9f @0x7
0x1f98…1faa at0008 = ╱44╱D╱ // 0x1fa0 @0x8
0x1f98…1faa at0009 = ╱4b╱K╱ // 0x1fa1 @0x9
0x1f98…1faa at000a = ╱df╱ = ╱ // 0x1fa2 @0xa
0x1f98…1faa at000b = ╱44╱D╱ // 0x1fa3 @0xb
0x1f98…1faa at000c = ╱45╱E╱ // 0x1fa4 @0xc
0x1f98…1faa at000d = ╱42╱B╱ // 0x1fa5 @0xd
0x1f98…1faa at000e = ╱45╱E╱ // 0x1fa6 @0xe
0x1f98…1faa at000f = ╱54╱T╱ // 0x1fa7 @0xf
0x1f98…1faa at0010 = ╱b5╱ THEN ╱ // 0x1fa8 @0x10
0x1f98…1faa at0011 = EOL // 0x1fa9 @0x11
0x1f98…1faa }
0x1faa…1fd0 b5be 03080 PRINT USING "………………………………########.##" : K_BKR
0x1faa…1fd0 LineComal80 {
0x1faa…1fd0 ptr = 0xb5be // 0x1faa @0x0
0x1faa…1fd0 lno = 0x0c08 // 0x1fac @0x2
0x1faa…1fd0 at0004 = ╱92╱ PRINT ╱ // 0x1fae @0x4
0x1faa…1fd0 at0005 = ╱b9╱ USING ╱ // 0x1faf @0x5
0x1faa…1fd0 at0006 = ╱22╱"╱ // 0x1fb0 @0x6
0x1faa…1fd0 at0007 = ╱20╱…╱ // 0x1fb1 @0x7
0x1faa…1fd0 at0008 = ╱20╱…╱ // 0x1fb2 @0x8
0x1faa…1fd0 at0009 = ╱20╱…╱ // 0x1fb3 @0x9
0x1faa…1fd0 at000a = ╱20╱…╱ // 0x1fb4 @0xa
0x1faa…1fd0 at000b = ╱20╱…╱ // 0x1fb5 @0xb
0x1faa…1fd0 at000c = ╱20╱…╱ // 0x1fb6 @0xc
0x1faa…1fd0 at000d = ╱20╱…╱ // 0x1fb7 @0xd
0x1faa…1fd0 at000e = ╱20╱…╱ // 0x1fb8 @0xe
0x1faa…1fd0 at000f = ╱20╱…╱ // 0x1fb9 @0xf
0x1faa…1fd0 at0010 = ╱20╱…╱ // 0x1fba @0x10
0x1faa…1fd0 at0011 = ╱20╱…╱ // 0x1fbb @0x11
0x1faa…1fd0 at0012 = ╱20╱…╱ // 0x1fbc @0x12
0x1faa…1fd0 at0013 = ╱23╱#╱ // 0x1fbd @0x13
0x1faa…1fd0 at0014 = ╱23╱#╱ // 0x1fbe @0x14
0x1faa…1fd0 at0015 = ╱23╱#╱ // 0x1fbf @0x15
0x1faa…1fd0 at0016 = ╱23╱#╱ // 0x1fc0 @0x16
0x1faa…1fd0 at0017 = ╱23╱#╱ // 0x1fc1 @0x17
0x1faa…1fd0 at0018 = ╱23╱#╱ // 0x1fc2 @0x18
0x1faa…1fd0 at0019 = ╱23╱#╱ // 0x1fc3 @0x19
0x1faa…1fd0 at001a = ╱23╱#╱ // 0x1fc4 @0x1a
0x1faa…1fd0 at001b = ╱2e╱.╱ // 0x1fc5 @0x1b
0x1faa…1fd0 at001c = ╱23╱#╱ // 0x1fc6 @0x1c
0x1faa…1fd0 at001d = ╱23╱#╱ // 0x1fc7 @0x1d
0x1faa…1fd0 at001e = ╱22╱"╱ // 0x1fc8 @0x1e
0x1faa…1fd0 at001f = ╱f1╱ : ╱ // 0x1fc9 @0x1f
0x1faa…1fd0 at0020 = ╱4b╱K╱ // 0x1fca @0x20
0x1faa…1fd0 at0021 = ╱5f╱_╱ // 0x1fcb @0x21
0x1faa…1fd0 at0022 = ╱42╱B╱ // 0x1fcc @0x22
0x1faa…1fd0 at0023 = ╱4b╱K╱ // 0x1fcd @0x23
0x1faa…1fd0 at0024 = ╱52╱R╱ // 0x1fce @0x24
0x1faa…1fd0 at0025 = EOL // 0x1fcf @0x25
0x1faa…1fd0 }
0x1fd0…1ffb b5e9 03090 LET TOT ( T_IDX + 1 ) := TOT ( T_IDX + 1 ) + K_BKR
0x1fd0…1ffb LineComal80 {
0x1fd0…1ffb ptr = 0xb5e9 // 0x1fd0 @0x0
0x1fd0…1ffb lno = 0x0c12 // 0x1fd2 @0x2
0x1fd0…1ffb at0004 = ╱86╱ LET ╱ // 0x1fd4 @0x4
0x1fd0…1ffb at0005 = ╱54╱T╱ // 0x1fd5 @0x5
0x1fd0…1ffb at0006 = ╱4f╱O╱ // 0x1fd6 @0x6
0x1fd0…1ffb at0007 = ╱54╱T╱ // 0x1fd7 @0x7
0x1fd0…1ffb at0008 = ╱ed╱ ( ╱ // 0x1fd8 @0x8
0x1fd0…1ffb at0009 = ╱54╱T╱ // 0x1fd9 @0x9
0x1fd0…1ffb at000a = ╱5f╱_╱ // 0x1fda @0xa
0x1fd0…1ffb at000b = ╱49╱I╱ // 0x1fdb @0xb
0x1fd0…1ffb at000c = ╱44╱D╱ // 0x1fdc @0xc
0x1fd0…1ffb at000d = ╱58╱X╱ // 0x1fdd @0xd
0x1fd0…1ffb at000e = ╱e5╱ + ╱ // 0x1fde @0xe
0x1fd0…1ffb at000f = ╱31╱1╱ // 0x1fdf @0xf
0x1fd0…1ffb at0010 = ╱f20100╱ // 0x1fe0 @0x10
0x1fd0…1ffb at0013 = ╱ee╱ ) ╱ // 0x1fe3 @0x13
0x1fd0…1ffb at0014 = ╱f0╱ := ╱ // 0x1fe4 @0x14
0x1fd0…1ffb at0015 = ╱54╱T╱ // 0x1fe5 @0x15
0x1fd0…1ffb at0016 = ╱4f╱O╱ // 0x1fe6 @0x16
0x1fd0…1ffb at0017 = ╱54╱T╱ // 0x1fe7 @0x17
0x1fd0…1ffb at0018 = ╱ed╱ ( ╱ // 0x1fe8 @0x18
0x1fd0…1ffb at0019 = ╱54╱T╱ // 0x1fe9 @0x19
0x1fd0…1ffb at001a = ╱5f╱_╱ // 0x1fea @0x1a
0x1fd0…1ffb at001b = ╱49╱I╱ // 0x1feb @0x1b
0x1fd0…1ffb at001c = ╱44╱D╱ // 0x1fec @0x1c
0x1fd0…1ffb at001d = ╱58╱X╱ // 0x1fed @0x1d
0x1fd0…1ffb at001e = ╱e5╱ + ╱ // 0x1fee @0x1e
0x1fd0…1ffb at001f = ╱31╱1╱ // 0x1fef @0x1f
0x1fd0…1ffb at0020 = ╱f20100╱ // 0x1ff0 @0x20
0x1fd0…1ffb at0023 = ╱ee╱ ) ╱ // 0x1ff3 @0x23
0x1fd0…1ffb at0024 = ╱e5╱ + ╱ // 0x1ff4 @0x24
0x1fd0…1ffb at0025 = ╱4b╱K╱ // 0x1ff5 @0x25
0x1fd0…1ffb at0026 = ╱5f╱_╱ // 0x1ff6 @0x26
0x1fd0…1ffb at0027 = ╱42╱B╱ // 0x1ff7 @0x27
0x1fd0…1ffb at0028 = ╱4b╱K╱ // 0x1ff8 @0x28
0x1fd0…1ffb at0029 = ╱52╱R╱ // 0x1ff9 @0x29
0x1fd0…1ffb at002a = EOL // 0x1ffa @0x2a
0x1fd0…1ffb }
0x1ffb…2002 b5f0 03100 ELSE
0x1ffb…2002 LineComal80 {
0x1ffb…2002 ptr = 0xb5f0 // 0x1ffb @0x0
0x1ffb…2002 lno = 0x0c1c // 0x1ffd @0x2
0x1ffb…2002 at0004 = ╱9a00╱ ELSE ╱ // 0x1fff @0x4
0x1ffb…2002 at0006 = EOL // 0x2001 @0x6
0x1ffb…2002 }
0x2002…201c b60a 03110 PRINT USING "########.##" : K_BKR
0x2002…201c LineComal80 {
0x2002…201c ptr = 0xb60a // 0x2002 @0x0
0x2002…201c lno = 0x0c26 // 0x2004 @0x2
0x2002…201c at0004 = ╱92╱ PRINT ╱ // 0x2006 @0x4
0x2002…201c at0005 = ╱b9╱ USING ╱ // 0x2007 @0x5
0x2002…201c at0006 = ╱22╱"╱ // 0x2008 @0x6
0x2002…201c at0007 = ╱23╱#╱ // 0x2009 @0x7
0x2002…201c at0008 = ╱23╱#╱ // 0x200a @0x8
0x2002…201c at0009 = ╱23╱#╱ // 0x200b @0x9
0x2002…201c at000a = ╱23╱#╱ // 0x200c @0xa
0x2002…201c at000b = ╱23╱#╱ // 0x200d @0xb
0x2002…201c at000c = ╱23╱#╱ // 0x200e @0xc
0x2002…201c at000d = ╱23╱#╱ // 0x200f @0xd
0x2002…201c at000e = ╱23╱#╱ // 0x2010 @0xe
0x2002…201c at000f = ╱2e╱.╱ // 0x2011 @0xf
0x2002…201c at0010 = ╱23╱#╱ // 0x2012 @0x10
0x2002…201c at0011 = ╱23╱#╱ // 0x2013 @0x11
0x2002…201c at0012 = ╱22╱"╱ // 0x2014 @0x12
0x2002…201c at0013 = ╱f1╱ : ╱ // 0x2015 @0x13
0x2002…201c at0014 = ╱4b╱K╱ // 0x2016 @0x14
0x2002…201c at0015 = ╱5f╱_╱ // 0x2017 @0x15
0x2002…201c at0016 = ╱42╱B╱ // 0x2018 @0x16
0x2002…201c at0017 = ╱4b╱K╱ // 0x2019 @0x17
0x2002…201c at0018 = ╱52╱R╱ // 0x201a @0x18
0x2002…201c at0019 = EOL // 0x201b @0x19
0x2002…201c }
0x201c…203d b62b 03120 LET TOT ( T_IDX ) := TOT ( T_IDX ) + K_BKR
0x201c…203d LineComal80 {
0x201c…203d ptr = 0xb62b // 0x201c @0x0
0x201c…203d lno = 0x0c30 // 0x201e @0x2
0x201c…203d at0004 = ╱86╱ LET ╱ // 0x2020 @0x4
0x201c…203d at0005 = ╱54╱T╱ // 0x2021 @0x5
0x201c…203d at0006 = ╱4f╱O╱ // 0x2022 @0x6
0x201c…203d at0007 = ╱54╱T╱ // 0x2023 @0x7
0x201c…203d at0008 = ╱ed╱ ( ╱ // 0x2024 @0x8
0x201c…203d at0009 = ╱54╱T╱ // 0x2025 @0x9
0x201c…203d at000a = ╱5f╱_╱ // 0x2026 @0xa
0x201c…203d at000b = ╱49╱I╱ // 0x2027 @0xb
0x201c…203d at000c = ╱44╱D╱ // 0x2028 @0xc
0x201c…203d at000d = ╱58╱X╱ // 0x2029 @0xd
0x201c…203d at000e = ╱ee╱ ) ╱ // 0x202a @0xe
0x201c…203d at000f = ╱f0╱ := ╱ // 0x202b @0xf
0x201c…203d at0010 = ╱54╱T╱ // 0x202c @0x10
0x201c…203d at0011 = ╱4f╱O╱ // 0x202d @0x11
0x201c…203d at0012 = ╱54╱T╱ // 0x202e @0x12
0x201c…203d at0013 = ╱ed╱ ( ╱ // 0x202f @0x13
0x201c…203d at0014 = ╱54╱T╱ // 0x2030 @0x14
0x201c…203d at0015 = ╱5f╱_╱ // 0x2031 @0x15
0x201c…203d at0016 = ╱49╱I╱ // 0x2032 @0x16
0x201c…203d at0017 = ╱44╱D╱ // 0x2033 @0x17
0x201c…203d at0018 = ╱58╱X╱ // 0x2034 @0x18
0x201c…203d at0019 = ╱ee╱ ) ╱ // 0x2035 @0x19
0x201c…203d at001a = ╱e5╱ + ╱ // 0x2036 @0x1a
0x201c…203d at001b = ╱4b╱K╱ // 0x2037 @0x1b
0x201c…203d at001c = ╱5f╱_╱ // 0x2038 @0x1c
0x201c…203d at001d = ╱42╱B╱ // 0x2039 @0x1d
0x201c…203d at001e = ╱4b╱K╱ // 0x203a @0x1e
0x201c…203d at001f = ╱52╱R╱ // 0x203b @0x1f
0x201c…203d at0020 = EOL // 0x203c @0x20
0x201c…203d }
0x203d…2043 b631 03130 ENDIF
0x203d…2043 LineComal80 {
0x203d…2043 ptr = 0xb631 // 0x203d @0x0
0x203d…2043 lno = 0x0c3a // 0x203f @0x2
0x203d…2043 at0004 = ╱9c╱ ENDIF ╱ // 0x2041 @0x4
0x203d…2043 at0005 = EOL // 0x2042 @0x5
0x203d…2043 }
0x2043…204a b638 03140 ELSE
0x2043…204a LineComal80 {
0x2043…204a ptr = 0xb638 // 0x2043 @0x0
0x2043…204a lno = 0x0c44 // 0x2045 @0x2
0x2043…204a at0004 = ╱9a00╱ ELSE ╱ // 0x2047 @0x4
0x2043…204a at0006 = EOL // 0x2049 @0x6
0x2043…204a }
0x204a…205e b64c 03150 PRINT "<S>" ; TAB ( 78 )
0x204a…205e LineComal80 {
0x204a…205e ptr = 0xb64c // 0x204a @0x0
0x204a…205e lno = 0x0c4e // 0x204c @0x2
0x204a…205e at0004 = ╱92╱ PRINT ╱ // 0x204e @0x4
0x204a…205e at0005 = ╱22╱"╱ // 0x204f @0x5
0x204a…205e at0006 = ╱3c╱<╱ // 0x2050 @0x6
0x204a…205e at0007 = ╱53╱S╱ // 0x2051 @0x7
0x204a…205e at0008 = ╱3e╱>╱ // 0x2052 @0x8
0x204a…205e at0009 = ╱22╱"╱ // 0x2053 @0x9
0x204a…205e at000a = ╱ea╱ ; ╱ // 0x2054 @0xa
0x204a…205e at000b = ╱d2╱ TAB ╱ // 0x2055 @0xb
0x204a…205e at000c = ╱ed╱ ( ╱ // 0x2056 @0xc
0x204a…205e at000d = ╱37╱7╱ // 0x2057 @0xd
0x204a…205e at000e = ╱38╱8╱ // 0x2058 @0xe
0x204a…205e at000f = ╱f24e00╱ // 0x2059 @0xf
0x204a…205e at0012 = ╱ee╱ ) ╱ // 0x205c @0x12
0x204a…205e at0013 = EOL // 0x205d @0x13
0x204a…205e }
0x205e…206b b659 03160 PRINT K_BKTO $
0x205e…206b LineComal80 {
0x205e…206b ptr = 0xb659 // 0x205e @0x0
0x205e…206b lno = 0x0c58 // 0x2060 @0x2
0x205e…206b at0004 = ╱92╱ PRINT ╱ // 0x2062 @0x4
0x205e…206b at0005 = ╱4b╱K╱ // 0x2063 @0x5
0x205e…206b at0006 = ╱5f╱_╱ // 0x2064 @0x6
0x205e…206b at0007 = ╱42╱B╱ // 0x2065 @0x7
0x205e…206b at0008 = ╱4b╱K╱ // 0x2066 @0x8
0x205e…206b at0009 = ╱54╱T╱ // 0x2067 @0x9
0x205e…206b at000a = ╱4f╱O╱ // 0x2068 @0xa
0x205e…206b at000b = ╱ef╱ $ ╱ // 0x2069 @0xb
0x205e…206b at000c = EOL // 0x206a @0xc
0x205e…206b }
0x206b…2071 b65f 03170 ENDIF
0x206b…2071 LineComal80 {
0x206b…2071 ptr = 0xb65f // 0x206b @0x0
0x206b…2071 lno = 0x0c62 // 0x206d @0x2
0x206b…2071 at0004 = ╱9c╱ ENDIF ╱ // 0x206f @0x4
0x206b…2071 at0005 = EOL // 0x2070 @0x5
0x206b…2071 }
0x2071…2082 b670 03180 ENDPROC PRINT_LINIE
0x2071…2082 LineComal80 {
0x2071…2082 ptr = 0xb670 // 0x2071 @0x0
0x2071…2082 lno = 0x0c6c // 0x2073 @0x2
0x2071…2082 at0004 = ╱9f╱ ENDPROC ╱ // 0x2075 @0x4
0x2071…2082 at0005 = ╱50╱P╱ // 0x2076 @0x5
0x2071…2082 at0006 = ╱52╱R╱ // 0x2077 @0x6
0x2071…2082 at0007 = ╱49╱I╱ // 0x2078 @0x7
0x2071…2082 at0008 = ╱4e╱N╱ // 0x2079 @0x8
0x2071…2082 at0009 = ╱54╱T╱ // 0x207a @0x9
0x2071…2082 at000a = ╱5f╱_╱ // 0x207b @0xa
0x2071…2082 at000b = ╱4c╱L╱ // 0x207c @0xb
0x2071…2082 at000c = ╱49╱I╱ // 0x207d @0xc
0x2071…2082 at000d = ╱4e╱N╱ // 0x207e @0xd
0x2071…2082 at000e = ╱49╱I╱ // 0x207f @0xe
0x2071…2082 at000f = ╱45╱E╱ // 0x2080 @0xf
0x2071…2082 at0010 = EOL // 0x2081 @0x10
0x2071…2082 }
0x2082…2087 b675 03190
0x2082…2087 LineComal80 {
0x2082…2087 ptr = 0xb675 // 0x2082 @0x0
0x2082…2087 lno = 0x0c76 // 0x2084 @0x2
0x2082…2087 at0004 = EOL // 0x2086 @0x4
0x2082…2087 }
0x2087…2098 dc18 03200 PROC SLUT_LINIE
0x2087…2098 LineComal80 {
0x2087…2098 ptr = 0xdc18 // 0x2087 @0x0
0x2087…2098 lno = 0x0c80 // 0x2089 @0x2
0x2087…2098 at0004 = ╱9e00╱ PROC ╱ // 0x208b @0x4
0x2087…2098 at0006 = ╱53╱S╱ // 0x208d @0x6
0x2087…2098 at0007 = ╱4c╱L╱ // 0x208e @0x7
0x2087…2098 at0008 = ╱55╱U╱ // 0x208f @0x8
0x2087…2098 at0009 = ╱54╱T╱ // 0x2090 @0x9
0x2087…2098 at000a = ╱5f╱_╱ // 0x2091 @0xa
0x2087…2098 at000b = ╱4c╱L╱ // 0x2092 @0xb
0x2087…2098 at000c = ╱49╱I╱ // 0x2093 @0xc
0x2087…2098 at000d = ╱4e╱N╱ // 0x2094 @0xd
0x2087…2098 at000e = ╱49╱I╱ // 0x2095 @0xe
0x2087…2098 at000f = ╱45╱E╱ // 0x2096 @0xf
0x2087…2098 at0010 = EOL // 0x2097 @0x10
0x2087…2098 }
0x2098…20dc b6ca 03200 PRINT "<S>-----……--------------------……--……----------……----------……"
0x2098…20dc LineComal80 {
0x2098…20dc ptr = 0xb6ca // 0x2098 @0x0
0x2098…20dc lno = 0x0c80 // 0x209a @0x2
0x2098…20dc at0004 = ╱92╱ PRINT ╱ // 0x209c @0x4
0x2098…20dc at0005 = ╱22╱"╱ // 0x209d @0x5
0x2098…20dc at0006 = ╱3c╱<╱ // 0x209e @0x6
0x2098…20dc at0007 = ╱53╱S╱ // 0x209f @0x7
0x2098…20dc at0008 = ╱3e╱>╱ // 0x20a0 @0x8
0x2098…20dc at0009 = ╱2d╱-╱ // 0x20a1 @0x9
0x2098…20dc at000a = ╱2d╱-╱ // 0x20a2 @0xa
0x2098…20dc at000b = ╱2d╱-╱ // 0x20a3 @0xb
0x2098…20dc at000c = ╱2d╱-╱ // 0x20a4 @0xc
0x2098…20dc at000d = ╱2d╱-╱ // 0x20a5 @0xd
0x2098…20dc at000e = ╱20╱…╱ // 0x20a6 @0xe
0x2098…20dc at000f = ╱20╱…╱ // 0x20a7 @0xf
0x2098…20dc at0010 = ╱2d╱-╱ // 0x20a8 @0x10
0x2098…20dc at0011 = ╱2d╱-╱ // 0x20a9 @0x11
0x2098…20dc at0012 = ╱2d╱-╱ // 0x20aa @0x12
0x2098…20dc at0013 = ╱2d╱-╱ // 0x20ab @0x13
0x2098…20dc at0014 = ╱2d╱-╱ // 0x20ac @0x14
0x2098…20dc at0015 = ╱2d╱-╱ // 0x20ad @0x15
0x2098…20dc at0016 = ╱2d╱-╱ // 0x20ae @0x16
0x2098…20dc at0017 = ╱2d╱-╱ // 0x20af @0x17
0x2098…20dc at0018 = ╱2d╱-╱ // 0x20b0 @0x18
0x2098…20dc at0019 = ╱2d╱-╱ // 0x20b1 @0x19
0x2098…20dc at001a = ╱2d╱-╱ // 0x20b2 @0x1a
0x2098…20dc at001b = ╱2d╱-╱ // 0x20b3 @0x1b
0x2098…20dc at001c = ╱2d╱-╱ // 0x20b4 @0x1c
0x2098…20dc at001d = ╱2d╱-╱ // 0x20b5 @0x1d
0x2098…20dc at001e = ╱2d╱-╱ // 0x20b6 @0x1e
0x2098…20dc at001f = ╱2d╱-╱ // 0x20b7 @0x1f
0x2098…20dc at0020 = ╱2d╱-╱ // 0x20b8 @0x20
0x2098…20dc at0021 = ╱2d╱-╱ // 0x20b9 @0x21
0x2098…20dc at0022 = ╱2d╱-╱ // 0x20ba @0x22
0x2098…20dc at0023 = ╱2d╱-╱ // 0x20bb @0x23
0x2098…20dc at0024 = ╱20╱…╱ // 0x20bc @0x24
0x2098…20dc at0025 = ╱20╱…╱ // 0x20bd @0x25
0x2098…20dc at0026 = ╱2d╱-╱ // 0x20be @0x26
0x2098…20dc at0027 = ╱2d╱-╱ // 0x20bf @0x27
0x2098…20dc at0028 = ╱20╱…╱ // 0x20c0 @0x28
0x2098…20dc at0029 = ╱20╱…╱ // 0x20c1 @0x29
0x2098…20dc at002a = ╱2d╱-╱ // 0x20c2 @0x2a
0x2098…20dc at002b = ╱2d╱-╱ // 0x20c3 @0x2b
0x2098…20dc at002c = ╱2d╱-╱ // 0x20c4 @0x2c
0x2098…20dc at002d = ╱2d╱-╱ // 0x20c5 @0x2d
0x2098…20dc at002e = ╱2d╱-╱ // 0x20c6 @0x2e
0x2098…20dc at002f = ╱2d╱-╱ // 0x20c7 @0x2f
0x2098…20dc at0030 = ╱2d╱-╱ // 0x20c8 @0x30
0x2098…20dc at0031 = ╱2d╱-╱ // 0x20c9 @0x31
0x2098…20dc at0032 = ╱2d╱-╱ // 0x20ca @0x32
0x2098…20dc at0033 = ╱2d╱-╱ // 0x20cb @0x33
0x2098…20dc at0034 = ╱20╱…╱ // 0x20cc @0x34
0x2098…20dc at0035 = ╱20╱…╱ // 0x20cd @0x35
0x2098…20dc at0036 = ╱2d╱-╱ // 0x20ce @0x36
0x2098…20dc at0037 = ╱2d╱-╱ // 0x20cf @0x37
0x2098…20dc at0038 = ╱2d╱-╱ // 0x20d0 @0x38
0x2098…20dc at0039 = ╱2d╱-╱ // 0x20d1 @0x39
0x2098…20dc at003a = ╱2d╱-╱ // 0x20d2 @0x3a
0x2098…20dc at003b = ╱2d╱-╱ // 0x20d3 @0x3b
0x2098…20dc at003c = ╱2d╱-╱ // 0x20d4 @0x3c
0x2098…20dc at003d = ╱2d╱-╱ // 0x20d5 @0x3d
0x2098…20dc at003e = ╱2d╱-╱ // 0x20d6 @0x3e
0x2098…20dc at003f = ╱2d╱-╱ // 0x20d7 @0x3f
0x2098…20dc at0040 = ╱20╱…╱ // 0x20d8 @0x40
0x2098…20dc at0041 = ╱20╱…╱ // 0x20d9 @0x41
0x2098…20dc at0042 = ╱22╱"╱ // 0x20da @0x42
0x2098…20dc at0043 = EOL // 0x20db @0x43
0x2098…20dc }
0x20dc…211c b70a 03220 PRINT "----------……----------……----------……----------……--------"
0x20dc…211c LineComal80 {
0x20dc…211c ptr = 0xb70a // 0x20dc @0x0
0x20dc…211c lno = 0x0c94 // 0x20de @0x2
0x20dc…211c at0004 = ╱92╱ PRINT ╱ // 0x20e0 @0x4
0x20dc…211c at0005 = ╱22╱"╱ // 0x20e1 @0x5
0x20dc…211c at0006 = ╱2d╱-╱ // 0x20e2 @0x6
0x20dc…211c at0007 = ╱2d╱-╱ // 0x20e3 @0x7
0x20dc…211c at0008 = ╱2d╱-╱ // 0x20e4 @0x8
0x20dc…211c at0009 = ╱2d╱-╱ // 0x20e5 @0x9
0x20dc…211c at000a = ╱2d╱-╱ // 0x20e6 @0xa
0x20dc…211c at000b = ╱2d╱-╱ // 0x20e7 @0xb
0x20dc…211c at000c = ╱2d╱-╱ // 0x20e8 @0xc
0x20dc…211c at000d = ╱2d╱-╱ // 0x20e9 @0xd
0x20dc…211c at000e = ╱2d╱-╱ // 0x20ea @0xe
0x20dc…211c at000f = ╱2d╱-╱ // 0x20eb @0xf
0x20dc…211c at0010 = ╱20╱…╱ // 0x20ec @0x10
0x20dc…211c at0011 = ╱20╱…╱ // 0x20ed @0x11
0x20dc…211c at0012 = ╱2d╱-╱ // 0x20ee @0x12
0x20dc…211c at0013 = ╱2d╱-╱ // 0x20ef @0x13
0x20dc…211c at0014 = ╱2d╱-╱ // 0x20f0 @0x14
0x20dc…211c at0015 = ╱2d╱-╱ // 0x20f1 @0x15
0x20dc…211c at0016 = ╱2d╱-╱ // 0x20f2 @0x16
0x20dc…211c at0017 = ╱2d╱-╱ // 0x20f3 @0x17
0x20dc…211c at0018 = ╱2d╱-╱ // 0x20f4 @0x18
0x20dc…211c at0019 = ╱2d╱-╱ // 0x20f5 @0x19
0x20dc…211c at001a = ╱2d╱-╱ // 0x20f6 @0x1a
0x20dc…211c at001b = ╱2d╱-╱ // 0x20f7 @0x1b
0x20dc…211c at001c = ╱20╱…╱ // 0x20f8 @0x1c
0x20dc…211c at001d = ╱20╱…╱ // 0x20f9 @0x1d
0x20dc…211c at001e = ╱2d╱-╱ // 0x20fa @0x1e
0x20dc…211c at001f = ╱2d╱-╱ // 0x20fb @0x1f
0x20dc…211c at0020 = ╱2d╱-╱ // 0x20fc @0x20
0x20dc…211c at0021 = ╱2d╱-╱ // 0x20fd @0x21
0x20dc…211c at0022 = ╱2d╱-╱ // 0x20fe @0x22
0x20dc…211c at0023 = ╱2d╱-╱ // 0x20ff @0x23
0x20dc…211c at0024 = ╱2d╱-╱ // 0x2100 @0x24
0x20dc…211c at0025 = ╱2d╱-╱ // 0x2101 @0x25
0x20dc…211c at0026 = ╱2d╱-╱ // 0x2102 @0x26
0x20dc…211c at0027 = ╱2d╱-╱ // 0x2103 @0x27
0x20dc…211c at0028 = ╱20╱…╱ // 0x2104 @0x28
0x20dc…211c at0029 = ╱20╱…╱ // 0x2105 @0x29
0x20dc…211c at002a = ╱2d╱-╱ // 0x2106 @0x2a
0x20dc…211c at002b = ╱2d╱-╱ // 0x2107 @0x2b
0x20dc…211c at002c = ╱2d╱-╱ // 0x2108 @0x2c
0x20dc…211c at002d = ╱2d╱-╱ // 0x2109 @0x2d
0x20dc…211c at002e = ╱2d╱-╱ // 0x210a @0x2e
0x20dc…211c at002f = ╱2d╱-╱ // 0x210b @0x2f
0x20dc…211c at0030 = ╱2d╱-╱ // 0x210c @0x30
0x20dc…211c at0031 = ╱2d╱-╱ // 0x210d @0x31
0x20dc…211c at0032 = ╱2d╱-╱ // 0x210e @0x32
0x20dc…211c at0033 = ╱2d╱-╱ // 0x210f @0x33
0x20dc…211c at0034 = ╱20╱…╱ // 0x2110 @0x34
0x20dc…211c at0035 = ╱20╱…╱ // 0x2111 @0x35
0x20dc…211c at0036 = ╱2d╱-╱ // 0x2112 @0x36
0x20dc…211c at0037 = ╱2d╱-╱ // 0x2113 @0x37
0x20dc…211c at0038 = ╱2d╱-╱ // 0x2114 @0x38
0x20dc…211c at0039 = ╱2d╱-╱ // 0x2115 @0x39
0x20dc…211c at003a = ╱2d╱-╱ // 0x2116 @0x3a
0x20dc…211c at003b = ╱2d╱-╱ // 0x2117 @0x3b
0x20dc…211c at003c = ╱2d╱-╱ // 0x2118 @0x3c
0x20dc…211c at003d = ╱2d╱-╱ // 0x2119 @0x3d
0x20dc…211c at003e = ╱22╱"╱ // 0x211a @0x3e
0x20dc…211c at003f = EOL // 0x211b @0x3f
0x20dc…211c }
0x211c…212c b71a 03230 ENDPROC SLUT_LINIE
0x211c…212c LineComal80 {
0x211c…212c ptr = 0xb71a // 0x211c @0x0
0x211c…212c lno = 0x0c9e // 0x211e @0x2
0x211c…212c at0004 = ╱9f╱ ENDPROC ╱ // 0x2120 @0x4
0x211c…212c at0005 = ╱53╱S╱ // 0x2121 @0x5
0x211c…212c at0006 = ╱4c╱L╱ // 0x2122 @0x6
0x211c…212c at0007 = ╱55╱U╱ // 0x2123 @0x7
0x211c…212c at0008 = ╱54╱T╱ // 0x2124 @0x8
0x211c…212c at0009 = ╱5f╱_╱ // 0x2125 @0x9
0x211c…212c at000a = ╱4c╱L╱ // 0x2126 @0xa
0x211c…212c at000b = ╱49╱I╱ // 0x2127 @0xb
0x211c…212c at000c = ╱4e╱N╱ // 0x2128 @0xc
0x211c…212c at000d = ╱49╱I╱ // 0x2129 @0xd
0x211c…212c at000e = ╱45╱E╱ // 0x212a @0xe
0x211c…212c at000f = EOL // 0x212b @0xf
0x211c…212c }
0x212c…2131 b71f 03240
0x212c…2131 LineComal80 {
0x212c…2131 ptr = 0xb71f // 0x212c @0x0
0x212c…2131 lno = 0x0ca8 // 0x212e @0x2
0x212c…2131 at0004 = EOL // 0x2130 @0x4
0x212c…2131 }
0x2131…2141 b72f 03250 PROC TRANSPORT
0x2131…2141 LineComal80 {
0x2131…2141 ptr = 0xb72f // 0x2131 @0x0
0x2131…2141 lno = 0x0cb2 // 0x2133 @0x2
0x2131…2141 at0004 = ╱9e00╱ PROC ╱ // 0x2135 @0x4
0x2131…2141 at0006 = ╱54╱T╱ // 0x2137 @0x6
0x2131…2141 at0007 = ╱52╱R╱ // 0x2138 @0x7
0x2131…2141 at0008 = ╱41╱A╱ // 0x2139 @0x8
0x2131…2141 at0009 = ╱4e╱N╱ // 0x213a @0x9
0x2131…2141 at000a = ╱53╱S╱ // 0x213b @0xa
0x2131…2141 at000b = ╱50╱P╱ // 0x213c @0xb
0x2131…2141 at000c = ╱4f╱O╱ // 0x213d @0xc
0x2131…2141 at000d = ╱52╱R╱ // 0x213e @0xd
0x2131…2141 at000e = ╱54╱T╱ // 0x213f @0xe
0x2131…2141 at000f = EOL // 0x2140 @0xf
0x2131…2141 }
0x2141…2155 b743 03260 IF IN_T = 100 THEN
0x2141…2155 LineComal80 {
0x2141…2155 ptr = 0xb743 // 0x2141 @0x0
0x2141…2155 lno = 0x0cbc // 0x2143 @0x2
0x2141…2155 at0004 = ╱9b004c╱ IF ╱ // 0x2145 @0x4
0x2141…2155 at0007 = ╱49╱I╱ // 0x2148 @0x7
0x2141…2155 at0008 = ╱4e╱N╱ // 0x2149 @0x8
0x2141…2155 at0009 = ╱5f╱_╱ // 0x214a @0x9
0x2141…2155 at000a = ╱54╱T╱ // 0x214b @0xa
0x2141…2155 at000b = ╱df╱ = ╱ // 0x214c @0xb
0x2141…2155 at000c = ╱31╱1╱ // 0x214d @0xc
0x2141…2155 at000d = ╱30╱0╱ // 0x214e @0xd
0x2141…2155 at000e = ╱30╱0╱ // 0x214f @0xe
0x2141…2155 at000f = ╱f26400╱ // 0x2150 @0xf
0x2141…2155 at0012 = ╱b5╱ THEN ╱ // 0x2153 @0x12
0x2141…2155 at0013 = EOL // 0x2154 @0x13
0x2141…2155 }
0x2155…2165 b753 03270 EXEC SIDE_SKIFT
0x2155…2165 LineComal80 {
0x2155…2165 ptr = 0xb753 // 0x2155 @0x0
0x2155…2165 lno = 0x0cc6 // 0x2157 @0x2
0x2155…2165 at0004 = ╱9d╱ EXEC ╱ // 0x2159 @0x4
0x2155…2165 at0005 = ╱53╱S╱ // 0x215a @0x5
0x2155…2165 at0006 = ╱49╱I╱ // 0x215b @0x6
0x2155…2165 at0007 = ╱44╱D╱ // 0x215c @0x7
0x2155…2165 at0008 = ╱45╱E╱ // 0x215d @0x8
0x2155…2165 at0009 = ╱5f╱_╱ // 0x215e @0x9
0x2155…2165 at000a = ╱53╱S╱ // 0x215f @0xa
0x2155…2165 at000b = ╱4b╱K╱ // 0x2160 @0xb
0x2155…2165 at000c = ╱49╱I╱ // 0x2161 @0xc
0x2155…2165 at000d = ╱46╱F╱ // 0x2162 @0xd
0x2155…2165 at000e = ╱54╱T╱ // 0x2163 @0xe
0x2155…2165 at000f = EOL // 0x2164 @0xf
0x2155…2165 }
0x2165…216c b75a 03280 ELSE
0x2165…216c LineComal80 {
0x2165…216c ptr = 0xb75a // 0x2165 @0x0
0x2165…216c lno = 0x0cd0 // 0x2167 @0x2
0x2165…216c at0004 = ╱9a00╱ ELSE ╱ // 0x2169 @0x4
0x2165…216c at0006 = EOL // 0x216b @0x6
0x2165…216c }
0x216c…217c b76a 03290 EXEC SLUT_LINIE
0x216c…217c LineComal80 {
0x216c…217c ptr = 0xb76a // 0x216c @0x0
0x216c…217c lno = 0x0cda // 0x216e @0x2
0x216c…217c at0004 = ╱9d╱ EXEC ╱ // 0x2170 @0x4
0x216c…217c at0005 = ╱53╱S╱ // 0x2171 @0x5
0x216c…217c at0006 = ╱4c╱L╱ // 0x2172 @0x6
0x216c…217c at0007 = ╱55╱U╱ // 0x2173 @0x7
0x216c…217c at0008 = ╱54╱T╱ // 0x2174 @0x8
0x216c…217c at0009 = ╱5f╱_╱ // 0x2175 @0x9
0x216c…217c at000a = ╱4c╱L╱ // 0x2176 @0xa
0x216c…217c at000b = ╱49╱I╱ // 0x2177 @0xb
0x216c…217c at000c = ╱4e╱N╱ // 0x2178 @0xc
0x216c…217c at000d = ╱49╱I╱ // 0x2179 @0xd
0x216c…217c at000e = ╱45╱E╱ // 0x217a @0xe
0x216c…217c at000f = EOL // 0x217b @0xf
0x216c…217c }
0x217c…2192 b780 03300 LET LIN_T := LIN_T + 2
0x217c…2192 LineComal80 {
0x217c…2192 ptr = 0xb780 // 0x217c @0x0
0x217c…2192 lno = 0x0ce4 // 0x217e @0x2
0x217c…2192 at0004 = ╱86╱ LET ╱ // 0x2180 @0x4
0x217c…2192 at0005 = ╱4c╱L╱ // 0x2181 @0x5
0x217c…2192 at0006 = ╱49╱I╱ // 0x2182 @0x6
0x217c…2192 at0007 = ╱4e╱N╱ // 0x2183 @0x7
0x217c…2192 at0008 = ╱5f╱_╱ // 0x2184 @0x8
0x217c…2192 at0009 = ╱54╱T╱ // 0x2185 @0x9
0x217c…2192 at000a = ╱f0╱ := ╱ // 0x2186 @0xa
0x217c…2192 at000b = ╱4c╱L╱ // 0x2187 @0xb
0x217c…2192 at000c = ╱49╱I╱ // 0x2188 @0xc
0x217c…2192 at000d = ╱4e╱N╱ // 0x2189 @0xd
0x217c…2192 at000e = ╱5f╱_╱ // 0x218a @0xe
0x217c…2192 at000f = ╱54╱T╱ // 0x218b @0xf
0x217c…2192 at0010 = ╱e5╱ + ╱ // 0x218c @0x10
0x217c…2192 at0011 = ╱32╱2╱ // 0x218d @0x11
0x217c…2192 at0012 = ╱f20200╱ // 0x218e @0x12
0x217c…2192 at0015 = EOL // 0x2191 @0x15
0x217c…2192 }
0x2192…21bb b7a9 03310 PRINT "<S>" ; TAB ( 11 ) ; "TRANSPORT" ; TAB ( 36 )
0x2192…21bb LineComal80 {
0x2192…21bb ptr = 0xb7a9 // 0x2192 @0x0
0x2192…21bb lno = 0x0cee // 0x2194 @0x2
0x2192…21bb at0004 = ╱92╱ PRINT ╱ // 0x2196 @0x4
0x2192…21bb at0005 = ╱22╱"╱ // 0x2197 @0x5
0x2192…21bb at0006 = ╱3c╱<╱ // 0x2198 @0x6
0x2192…21bb at0007 = ╱53╱S╱ // 0x2199 @0x7
0x2192…21bb at0008 = ╱3e╱>╱ // 0x219a @0x8
0x2192…21bb at0009 = ╱22╱"╱ // 0x219b @0x9
0x2192…21bb at000a = ╱ea╱ ; ╱ // 0x219c @0xa
0x2192…21bb at000b = ╱d2╱ TAB ╱ // 0x219d @0xb
0x2192…21bb at000c = ╱ed╱ ( ╱ // 0x219e @0xc
0x2192…21bb at000d = ╱31╱1╱ // 0x219f @0xd
0x2192…21bb at000e = ╱31╱1╱ // 0x21a0 @0xe
0x2192…21bb at000f = ╱f20b00╱ // 0x21a1 @0xf
0x2192…21bb at0012 = ╱ee╱ ) ╱ // 0x21a4 @0x12
0x2192…21bb at0013 = ╱ea╱ ; ╱ // 0x21a5 @0x13
0x2192…21bb at0014 = ╱22╱"╱ // 0x21a6 @0x14
0x2192…21bb at0015 = ╱54╱T╱ // 0x21a7 @0x15
0x2192…21bb at0016 = ╱52╱R╱ // 0x21a8 @0x16
0x2192…21bb at0017 = ╱41╱A╱ // 0x21a9 @0x17
0x2192…21bb at0018 = ╱4e╱N╱ // 0x21aa @0x18
0x2192…21bb at0019 = ╱53╱S╱ // 0x21ab @0x19
0x2192…21bb at001a = ╱50╱P╱ // 0x21ac @0x1a
0x2192…21bb at001b = ╱4f╱O╱ // 0x21ad @0x1b
0x2192…21bb at001c = ╱52╱R╱ // 0x21ae @0x1c
0x2192…21bb at001d = ╱54╱T╱ // 0x21af @0x1d
0x2192…21bb at001e = ╱22╱"╱ // 0x21b0 @0x1e
0x2192…21bb at001f = ╱ea╱ ; ╱ // 0x21b1 @0x1f
0x2192…21bb at0020 = ╱d2╱ TAB ╱ // 0x21b2 @0x20
0x2192…21bb at0021 = ╱ed╱ ( ╱ // 0x21b3 @0x21
0x2192…21bb at0022 = ╱33╱3╱ // 0x21b4 @0x22
0x2192…21bb at0023 = ╱36╱6╱ // 0x21b5 @0x23
0x2192…21bb at0024 = ╱f22400╱ // 0x21b6 @0x24
0x2192…21bb at0027 = ╱ee╱ ) ╱ // 0x21b9 @0x27
0x2192…21bb at0028 = EOL // 0x21ba @0x28
0x2192…21bb }
0x21bb…21f3 b7e1 03320 PRINT USING "<S>########.##…########.##…" : TOT ( 1 ) , TOT ( 2 )
0x21bb…21f3 LineComal80 {
0x21bb…21f3 ptr = 0xb7e1 // 0x21bb @0x0
0x21bb…21f3 lno = 0x0cf8 // 0x21bd @0x2
0x21bb…21f3 at0004 = ╱92╱ PRINT ╱ // 0x21bf @0x4
0x21bb…21f3 at0005 = ╱b9╱ USING ╱ // 0x21c0 @0x5
0x21bb…21f3 at0006 = ╱22╱"╱ // 0x21c1 @0x6
0x21bb…21f3 at0007 = ╱3c╱<╱ // 0x21c2 @0x7
0x21bb…21f3 at0008 = ╱53╱S╱ // 0x21c3 @0x8
0x21bb…21f3 at0009 = ╱3e╱>╱ // 0x21c4 @0x9
0x21bb…21f3 at000a = ╱23╱#╱ // 0x21c5 @0xa
0x21bb…21f3 at000b = ╱23╱#╱ // 0x21c6 @0xb
0x21bb…21f3 at000c = ╱23╱#╱ // 0x21c7 @0xc
0x21bb…21f3 at000d = ╱23╱#╱ // 0x21c8 @0xd
0x21bb…21f3 at000e = ╱23╱#╱ // 0x21c9 @0xe
0x21bb…21f3 at000f = ╱23╱#╱ // 0x21ca @0xf
0x21bb…21f3 at0010 = ╱23╱#╱ // 0x21cb @0x10
0x21bb…21f3 at0011 = ╱23╱#╱ // 0x21cc @0x11
0x21bb…21f3 at0012 = ╱2e╱.╱ // 0x21cd @0x12
0x21bb…21f3 at0013 = ╱23╱#╱ // 0x21ce @0x13
0x21bb…21f3 at0014 = ╱23╱#╱ // 0x21cf @0x14
0x21bb…21f3 at0015 = ╱20╱…╱ // 0x21d0 @0x15
0x21bb…21f3 at0016 = ╱23╱#╱ // 0x21d1 @0x16
0x21bb…21f3 at0017 = ╱23╱#╱ // 0x21d2 @0x17
0x21bb…21f3 at0018 = ╱23╱#╱ // 0x21d3 @0x18
0x21bb…21f3 at0019 = ╱23╱#╱ // 0x21d4 @0x19
0x21bb…21f3 at001a = ╱23╱#╱ // 0x21d5 @0x1a
0x21bb…21f3 at001b = ╱23╱#╱ // 0x21d6 @0x1b
0x21bb…21f3 at001c = ╱23╱#╱ // 0x21d7 @0x1c
0x21bb…21f3 at001d = ╱23╱#╱ // 0x21d8 @0x1d
0x21bb…21f3 at001e = ╱2e╱.╱ // 0x21d9 @0x1e
0x21bb…21f3 at001f = ╱23╱#╱ // 0x21da @0x1f
0x21bb…21f3 at0020 = ╱23╱#╱ // 0x21db @0x20
0x21bb…21f3 at0021 = ╱20╱…╱ // 0x21dc @0x21
0x21bb…21f3 at0022 = ╱22╱"╱ // 0x21dd @0x22
0x21bb…21f3 at0023 = ╱f1╱ : ╱ // 0x21de @0x23
0x21bb…21f3 at0024 = ╱54╱T╱ // 0x21df @0x24
0x21bb…21f3 at0025 = ╱4f╱O╱ // 0x21e0 @0x25
0x21bb…21f3 at0026 = ╱54╱T╱ // 0x21e1 @0x26
0x21bb…21f3 at0027 = ╱ed╱ ( ╱ // 0x21e2 @0x27
0x21bb…21f3 at0028 = ╱31╱1╱ // 0x21e3 @0x28
0x21bb…21f3 at0029 = ╱f20100╱ // 0x21e4 @0x29
0x21bb…21f3 at002c = ╱ee╱ ) ╱ // 0x21e7 @0x2c
0x21bb…21f3 at002d = ╱ec╱ , ╱ // 0x21e8 @0x2d
0x21bb…21f3 at002e = ╱54╱T╱ // 0x21e9 @0x2e
0x21bb…21f3 at002f = ╱4f╱O╱ // 0x21ea @0x2f
0x21bb…21f3 at0030 = ╱54╱T╱ // 0x21eb @0x30
0x21bb…21f3 at0031 = ╱ed╱ ( ╱ // 0x21ec @0x31
0x21bb…21f3 at0032 = ╱32╱2╱ // 0x21ed @0x32
0x21bb…21f3 at0033 = ╱f20200╱ // 0x21ee @0x33
0x21bb…21f3 at0036 = ╱ee╱ ) ╱ // 0x21f1 @0x36
0x21bb…21f3 at0037 = EOL // 0x21f2 @0x37
0x21bb…21f3 }
0x21f3…222b b819 03330 PRINT USING "<S>########.##…########.##…" : TOT ( 3 ) , TOT ( 4 )
0x21f3…222b LineComal80 {
0x21f3…222b ptr = 0xb819 // 0x21f3 @0x0
0x21f3…222b lno = 0x0d02 // 0x21f5 @0x2
0x21f3…222b at0004 = ╱92╱ PRINT ╱ // 0x21f7 @0x4
0x21f3…222b at0005 = ╱b9╱ USING ╱ // 0x21f8 @0x5
0x21f3…222b at0006 = ╱22╱"╱ // 0x21f9 @0x6
0x21f3…222b at0007 = ╱3c╱<╱ // 0x21fa @0x7
0x21f3…222b at0008 = ╱53╱S╱ // 0x21fb @0x8
0x21f3…222b at0009 = ╱3e╱>╱ // 0x21fc @0x9
0x21f3…222b at000a = ╱23╱#╱ // 0x21fd @0xa
0x21f3…222b at000b = ╱23╱#╱ // 0x21fe @0xb
0x21f3…222b at000c = ╱23╱#╱ // 0x21ff @0xc
0x21f3…222b at000d = ╱23╱#╱ // 0x2200 @0xd
0x21f3…222b at000e = ╱23╱#╱ // 0x2201 @0xe
0x21f3…222b at000f = ╱23╱#╱ // 0x2202 @0xf
0x21f3…222b at0010 = ╱23╱#╱ // 0x2203 @0x10
0x21f3…222b at0011 = ╱23╱#╱ // 0x2204 @0x11
0x21f3…222b at0012 = ╱2e╱.╱ // 0x2205 @0x12
0x21f3…222b at0013 = ╱23╱#╱ // 0x2206 @0x13
0x21f3…222b at0014 = ╱23╱#╱ // 0x2207 @0x14
0x21f3…222b at0015 = ╱20╱…╱ // 0x2208 @0x15
0x21f3…222b at0016 = ╱23╱#╱ // 0x2209 @0x16
0x21f3…222b at0017 = ╱23╱#╱ // 0x220a @0x17
0x21f3…222b at0018 = ╱23╱#╱ // 0x220b @0x18
0x21f3…222b at0019 = ╱23╱#╱ // 0x220c @0x19
0x21f3…222b at001a = ╱23╱#╱ // 0x220d @0x1a
0x21f3…222b at001b = ╱23╱#╱ // 0x220e @0x1b
0x21f3…222b at001c = ╱23╱#╱ // 0x220f @0x1c
0x21f3…222b at001d = ╱23╱#╱ // 0x2210 @0x1d
0x21f3…222b at001e = ╱2e╱.╱ // 0x2211 @0x1e
0x21f3…222b at001f = ╱23╱#╱ // 0x2212 @0x1f
0x21f3…222b at0020 = ╱23╱#╱ // 0x2213 @0x20
0x21f3…222b at0021 = ╱20╱…╱ // 0x2214 @0x21
0x21f3…222b at0022 = ╱22╱"╱ // 0x2215 @0x22
0x21f3…222b at0023 = ╱f1╱ : ╱ // 0x2216 @0x23
0x21f3…222b at0024 = ╱54╱T╱ // 0x2217 @0x24
0x21f3…222b at0025 = ╱4f╱O╱ // 0x2218 @0x25
0x21f3…222b at0026 = ╱54╱T╱ // 0x2219 @0x26
0x21f3…222b at0027 = ╱ed╱ ( ╱ // 0x221a @0x27
0x21f3…222b at0028 = ╱33╱3╱ // 0x221b @0x28
0x21f3…222b at0029 = ╱f20300╱ // 0x221c @0x29
0x21f3…222b at002c = ╱ee╱ ) ╱ // 0x221f @0x2c
0x21f3…222b at002d = ╱ec╱ , ╱ // 0x2220 @0x2d
0x21f3…222b at002e = ╱54╱T╱ // 0x2221 @0x2e
0x21f3…222b at002f = ╱4f╱O╱ // 0x2222 @0x2f
0x21f3…222b at0030 = ╱54╱T╱ // 0x2223 @0x30
0x21f3…222b at0031 = ╱ed╱ ( ╱ // 0x2224 @0x31
0x21f3…222b at0032 = ╱34╱4╱ // 0x2225 @0x32
0x21f3…222b at0033 = ╱f20400╱ // 0x2226 @0x33
0x21f3…222b at0036 = ╱ee╱ ) ╱ // 0x2229 @0x36
0x21f3…222b at0037 = EOL // 0x222a @0x37
0x21f3…222b }
0x222b…225f b84d 03340 PRINT USING "########.##…########.##" : TOT ( 5 ) , TOT ( 6 )
0x222b…225f LineComal80 {
0x222b…225f ptr = 0xb84d // 0x222b @0x0
0x222b…225f lno = 0x0d0c // 0x222d @0x2
0x222b…225f at0004 = ╱92╱ PRINT ╱ // 0x222f @0x4
0x222b…225f at0005 = ╱b9╱ USING ╱ // 0x2230 @0x5
0x222b…225f at0006 = ╱22╱"╱ // 0x2231 @0x6
0x222b…225f at0007 = ╱23╱#╱ // 0x2232 @0x7
0x222b…225f at0008 = ╱23╱#╱ // 0x2233 @0x8
0x222b…225f at0009 = ╱23╱#╱ // 0x2234 @0x9
0x222b…225f at000a = ╱23╱#╱ // 0x2235 @0xa
0x222b…225f at000b = ╱23╱#╱ // 0x2236 @0xb
0x222b…225f at000c = ╱23╱#╱ // 0x2237 @0xc
0x222b…225f at000d = ╱23╱#╱ // 0x2238 @0xd
0x222b…225f at000e = ╱23╱#╱ // 0x2239 @0xe
0x222b…225f at000f = ╱2e╱.╱ // 0x223a @0xf
0x222b…225f at0010 = ╱23╱#╱ // 0x223b @0x10
0x222b…225f at0011 = ╱23╱#╱ // 0x223c @0x11
0x222b…225f at0012 = ╱20╱…╱ // 0x223d @0x12
0x222b…225f at0013 = ╱23╱#╱ // 0x223e @0x13
0x222b…225f at0014 = ╱23╱#╱ // 0x223f @0x14
0x222b…225f at0015 = ╱23╱#╱ // 0x2240 @0x15
0x222b…225f at0016 = ╱23╱#╱ // 0x2241 @0x16
0x222b…225f at0017 = ╱23╱#╱ // 0x2242 @0x17
0x222b…225f at0018 = ╱23╱#╱ // 0x2243 @0x18
0x222b…225f at0019 = ╱23╱#╱ // 0x2244 @0x19
0x222b…225f at001a = ╱23╱#╱ // 0x2245 @0x1a
0x222b…225f at001b = ╱2e╱.╱ // 0x2246 @0x1b
0x222b…225f at001c = ╱23╱#╱ // 0x2247 @0x1c
0x222b…225f at001d = ╱23╱#╱ // 0x2248 @0x1d
0x222b…225f at001e = ╱22╱"╱ // 0x2249 @0x1e
0x222b…225f at001f = ╱f1╱ : ╱ // 0x224a @0x1f
0x222b…225f at0020 = ╱54╱T╱ // 0x224b @0x20
0x222b…225f at0021 = ╱4f╱O╱ // 0x224c @0x21
0x222b…225f at0022 = ╱54╱T╱ // 0x224d @0x22
0x222b…225f at0023 = ╱ed╱ ( ╱ // 0x224e @0x23
0x222b…225f at0024 = ╱35╱5╱ // 0x224f @0x24
0x222b…225f at0025 = ╱f20500╱ // 0x2250 @0x25
0x222b…225f at0028 = ╱ee╱ ) ╱ // 0x2253 @0x28
0x222b…225f at0029 = ╱ec╱ , ╱ // 0x2254 @0x29
0x222b…225f at002a = ╱54╱T╱ // 0x2255 @0x2a
0x222b…225f at002b = ╱4f╱O╱ // 0x2256 @0x2b
0x222b…225f at002c = ╱54╱T╱ // 0x2257 @0x2c
0x222b…225f at002d = ╱ed╱ ( ╱ // 0x2258 @0x2d
0x222b…225f at002e = ╱36╱6╱ // 0x2259 @0x2e
0x222b…225f at002f = ╱f20600╱ // 0x225a @0x2f
0x222b…225f at0032 = ╱ee╱ ) ╱ // 0x225d @0x32
0x222b…225f at0033 = EOL // 0x225e @0x33
0x222b…225f }
0x225f…226f b85d 03350 EXEC SIDE_SKIFT
0x225f…226f LineComal80 {
0x225f…226f ptr = 0xb85d // 0x225f @0x0
0x225f…226f lno = 0x0d16 // 0x2261 @0x2
0x225f…226f at0004 = ╱9d╱ EXEC ╱ // 0x2263 @0x4
0x225f…226f at0005 = ╱53╱S╱ // 0x2264 @0x5
0x225f…226f at0006 = ╱49╱I╱ // 0x2265 @0x6
0x225f…226f at0007 = ╱44╱D╱ // 0x2266 @0x7
0x225f…226f at0008 = ╱45╱E╱ // 0x2267 @0x8
0x225f…226f at0009 = ╱5f╱_╱ // 0x2268 @0x9
0x225f…226f at000a = ╱53╱S╱ // 0x2269 @0xa
0x225f…226f at000b = ╱4b╱K╱ // 0x226a @0xb
0x225f…226f at000c = ╱49╱I╱ // 0x226b @0xc
0x225f…226f at000d = ╱46╱F╱ // 0x226c @0xd
0x225f…226f at000e = ╱54╱T╱ // 0x226d @0xe
0x225f…226f at000f = EOL // 0x226e @0xf
0x225f…226f }
0x226f…2285 b873 03360 LET LIN_T := LIN_T + 1
0x226f…2285 LineComal80 {
0x226f…2285 ptr = 0xb873 // 0x226f @0x0
0x226f…2285 lno = 0x0d20 // 0x2271 @0x2
0x226f…2285 at0004 = ╱86╱ LET ╱ // 0x2273 @0x4
0x226f…2285 at0005 = ╱4c╱L╱ // 0x2274 @0x5
0x226f…2285 at0006 = ╱49╱I╱ // 0x2275 @0x6
0x226f…2285 at0007 = ╱4e╱N╱ // 0x2276 @0x7
0x226f…2285 at0008 = ╱5f╱_╱ // 0x2277 @0x8
0x226f…2285 at0009 = ╱54╱T╱ // 0x2278 @0x9
0x226f…2285 at000a = ╱f0╱ := ╱ // 0x2279 @0xa
0x226f…2285 at000b = ╱4c╱L╱ // 0x227a @0xb
0x226f…2285 at000c = ╱49╱I╱ // 0x227b @0xc
0x226f…2285 at000d = ╱4e╱N╱ // 0x227c @0xd
0x226f…2285 at000e = ╱5f╱_╱ // 0x227d @0xe
0x226f…2285 at000f = ╱54╱T╱ // 0x227e @0xf
0x226f…2285 at0010 = ╱e5╱ + ╱ // 0x227f @0x10
0x226f…2285 at0011 = ╱31╱1╱ // 0x2280 @0x11
0x226f…2285 at0012 = ╱f20100╱ // 0x2281 @0x12
0x226f…2285 at0015 = EOL // 0x2284 @0x15
0x226f…2285 }
0x2285…22ae b89c 03370 PRINT "<S>" ; TAB ( 11 ) ; "TRANSPORT" ; TAB ( 36 )
0x2285…22ae LineComal80 {
0x2285…22ae ptr = 0xb89c // 0x2285 @0x0
0x2285…22ae lno = 0x0d2a // 0x2287 @0x2
0x2285…22ae at0004 = ╱92╱ PRINT ╱ // 0x2289 @0x4
0x2285…22ae at0005 = ╱22╱"╱ // 0x228a @0x5
0x2285…22ae at0006 = ╱3c╱<╱ // 0x228b @0x6
0x2285…22ae at0007 = ╱53╱S╱ // 0x228c @0x7
0x2285…22ae at0008 = ╱3e╱>╱ // 0x228d @0x8
0x2285…22ae at0009 = ╱22╱"╱ // 0x228e @0x9
0x2285…22ae at000a = ╱ea╱ ; ╱ // 0x228f @0xa
0x2285…22ae at000b = ╱d2╱ TAB ╱ // 0x2290 @0xb
0x2285…22ae at000c = ╱ed╱ ( ╱ // 0x2291 @0xc
0x2285…22ae at000d = ╱31╱1╱ // 0x2292 @0xd
0x2285…22ae at000e = ╱31╱1╱ // 0x2293 @0xe
0x2285…22ae at000f = ╱f20b00╱ // 0x2294 @0xf
0x2285…22ae at0012 = ╱ee╱ ) ╱ // 0x2297 @0x12
0x2285…22ae at0013 = ╱ea╱ ; ╱ // 0x2298 @0x13
0x2285…22ae at0014 = ╱22╱"╱ // 0x2299 @0x14
0x2285…22ae at0015 = ╱54╱T╱ // 0x229a @0x15
0x2285…22ae at0016 = ╱52╱R╱ // 0x229b @0x16
0x2285…22ae at0017 = ╱41╱A╱ // 0x229c @0x17
0x2285…22ae at0018 = ╱4e╱N╱ // 0x229d @0x18
0x2285…22ae at0019 = ╱53╱S╱ // 0x229e @0x19
0x2285…22ae at001a = ╱50╱P╱ // 0x229f @0x1a
0x2285…22ae at001b = ╱4f╱O╱ // 0x22a0 @0x1b
0x2285…22ae at001c = ╱52╱R╱ // 0x22a1 @0x1c
0x2285…22ae at001d = ╱54╱T╱ // 0x22a2 @0x1d
0x2285…22ae at001e = ╱22╱"╱ // 0x22a3 @0x1e
0x2285…22ae at001f = ╱ea╱ ; ╱ // 0x22a4 @0x1f
0x2285…22ae at0020 = ╱d2╱ TAB ╱ // 0x22a5 @0x20
0x2285…22ae at0021 = ╱ed╱ ( ╱ // 0x22a6 @0x21
0x2285…22ae at0022 = ╱33╱3╱ // 0x22a7 @0x22
0x2285…22ae at0023 = ╱36╱6╱ // 0x22a8 @0x23
0x2285…22ae at0024 = ╱f22400╱ // 0x22a9 @0x24
0x2285…22ae at0027 = ╱ee╱ ) ╱ // 0x22ac @0x27
0x2285…22ae at0028 = EOL // 0x22ad @0x28
0x2285…22ae }
0x22ae…22e6 b8d4 03380 PRINT USING "<S>########.##…########.##…" : TOT ( 1 ) , TOT ( 2 )
0x22ae…22e6 LineComal80 {
0x22ae…22e6 ptr = 0xb8d4 // 0x22ae @0x0
0x22ae…22e6 lno = 0x0d34 // 0x22b0 @0x2
0x22ae…22e6 at0004 = ╱92╱ PRINT ╱ // 0x22b2 @0x4
0x22ae…22e6 at0005 = ╱b9╱ USING ╱ // 0x22b3 @0x5
0x22ae…22e6 at0006 = ╱22╱"╱ // 0x22b4 @0x6
0x22ae…22e6 at0007 = ╱3c╱<╱ // 0x22b5 @0x7
0x22ae…22e6 at0008 = ╱53╱S╱ // 0x22b6 @0x8
0x22ae…22e6 at0009 = ╱3e╱>╱ // 0x22b7 @0x9
0x22ae…22e6 at000a = ╱23╱#╱ // 0x22b8 @0xa
0x22ae…22e6 at000b = ╱23╱#╱ // 0x22b9 @0xb
0x22ae…22e6 at000c = ╱23╱#╱ // 0x22ba @0xc
0x22ae…22e6 at000d = ╱23╱#╱ // 0x22bb @0xd
0x22ae…22e6 at000e = ╱23╱#╱ // 0x22bc @0xe
0x22ae…22e6 at000f = ╱23╱#╱ // 0x22bd @0xf
0x22ae…22e6 at0010 = ╱23╱#╱ // 0x22be @0x10
0x22ae…22e6 at0011 = ╱23╱#╱ // 0x22bf @0x11
0x22ae…22e6 at0012 = ╱2e╱.╱ // 0x22c0 @0x12
0x22ae…22e6 at0013 = ╱23╱#╱ // 0x22c1 @0x13
0x22ae…22e6 at0014 = ╱23╱#╱ // 0x22c2 @0x14
0x22ae…22e6 at0015 = ╱20╱…╱ // 0x22c3 @0x15
0x22ae…22e6 at0016 = ╱23╱#╱ // 0x22c4 @0x16
0x22ae…22e6 at0017 = ╱23╱#╱ // 0x22c5 @0x17
0x22ae…22e6 at0018 = ╱23╱#╱ // 0x22c6 @0x18
0x22ae…22e6 at0019 = ╱23╱#╱ // 0x22c7 @0x19
0x22ae…22e6 at001a = ╱23╱#╱ // 0x22c8 @0x1a
0x22ae…22e6 at001b = ╱23╱#╱ // 0x22c9 @0x1b
0x22ae…22e6 at001c = ╱23╱#╱ // 0x22ca @0x1c
0x22ae…22e6 at001d = ╱23╱#╱ // 0x22cb @0x1d
0x22ae…22e6 at001e = ╱2e╱.╱ // 0x22cc @0x1e
0x22ae…22e6 at001f = ╱23╱#╱ // 0x22cd @0x1f
0x22ae…22e6 at0020 = ╱23╱#╱ // 0x22ce @0x20
0x22ae…22e6 at0021 = ╱20╱…╱ // 0x22cf @0x21
0x22ae…22e6 at0022 = ╱22╱"╱ // 0x22d0 @0x22
0x22ae…22e6 at0023 = ╱f1╱ : ╱ // 0x22d1 @0x23
0x22ae…22e6 at0024 = ╱54╱T╱ // 0x22d2 @0x24
0x22ae…22e6 at0025 = ╱4f╱O╱ // 0x22d3 @0x25
0x22ae…22e6 at0026 = ╱54╱T╱ // 0x22d4 @0x26
0x22ae…22e6 at0027 = ╱ed╱ ( ╱ // 0x22d5 @0x27
0x22ae…22e6 at0028 = ╱31╱1╱ // 0x22d6 @0x28
0x22ae…22e6 at0029 = ╱f20100╱ // 0x22d7 @0x29
0x22ae…22e6 at002c = ╱ee╱ ) ╱ // 0x22da @0x2c
0x22ae…22e6 at002d = ╱ec╱ , ╱ // 0x22db @0x2d
0x22ae…22e6 at002e = ╱54╱T╱ // 0x22dc @0x2e
0x22ae…22e6 at002f = ╱4f╱O╱ // 0x22dd @0x2f
0x22ae…22e6 at0030 = ╱54╱T╱ // 0x22de @0x30
0x22ae…22e6 at0031 = ╱ed╱ ( ╱ // 0x22df @0x31
0x22ae…22e6 at0032 = ╱32╱2╱ // 0x22e0 @0x32
0x22ae…22e6 at0033 = ╱f20200╱ // 0x22e1 @0x33
0x22ae…22e6 at0036 = ╱ee╱ ) ╱ // 0x22e4 @0x36
0x22ae…22e6 at0037 = EOL // 0x22e5 @0x37
0x22ae…22e6 }
0x22e6…231e b90c 03390 PRINT USING "<S>########.##…########.##…" : TOT ( 3 ) , TOT ( 4 )
0x22e6…231e LineComal80 {
0x22e6…231e ptr = 0xb90c // 0x22e6 @0x0
0x22e6…231e lno = 0x0d3e // 0x22e8 @0x2
0x22e6…231e at0004 = ╱92╱ PRINT ╱ // 0x22ea @0x4
0x22e6…231e at0005 = ╱b9╱ USING ╱ // 0x22eb @0x5
0x22e6…231e at0006 = ╱22╱"╱ // 0x22ec @0x6
0x22e6…231e at0007 = ╱3c╱<╱ // 0x22ed @0x7
0x22e6…231e at0008 = ╱53╱S╱ // 0x22ee @0x8
0x22e6…231e at0009 = ╱3e╱>╱ // 0x22ef @0x9
0x22e6…231e at000a = ╱23╱#╱ // 0x22f0 @0xa
0x22e6…231e at000b = ╱23╱#╱ // 0x22f1 @0xb
0x22e6…231e at000c = ╱23╱#╱ // 0x22f2 @0xc
0x22e6…231e at000d = ╱23╱#╱ // 0x22f3 @0xd
0x22e6…231e at000e = ╱23╱#╱ // 0x22f4 @0xe
0x22e6…231e at000f = ╱23╱#╱ // 0x22f5 @0xf
0x22e6…231e at0010 = ╱23╱#╱ // 0x22f6 @0x10
0x22e6…231e at0011 = ╱23╱#╱ // 0x22f7 @0x11
0x22e6…231e at0012 = ╱2e╱.╱ // 0x22f8 @0x12
0x22e6…231e at0013 = ╱23╱#╱ // 0x22f9 @0x13
0x22e6…231e at0014 = ╱23╱#╱ // 0x22fa @0x14
0x22e6…231e at0015 = ╱20╱…╱ // 0x22fb @0x15
0x22e6…231e at0016 = ╱23╱#╱ // 0x22fc @0x16
0x22e6…231e at0017 = ╱23╱#╱ // 0x22fd @0x17
0x22e6…231e at0018 = ╱23╱#╱ // 0x22fe @0x18
0x22e6…231e at0019 = ╱23╱#╱ // 0x22ff @0x19
0x22e6…231e at001a = ╱23╱#╱ // 0x2300 @0x1a
0x22e6…231e at001b = ╱23╱#╱ // 0x2301 @0x1b
0x22e6…231e at001c = ╱23╱#╱ // 0x2302 @0x1c
0x22e6…231e at001d = ╱23╱#╱ // 0x2303 @0x1d
0x22e6…231e at001e = ╱2e╱.╱ // 0x2304 @0x1e
0x22e6…231e at001f = ╱23╱#╱ // 0x2305 @0x1f
0x22e6…231e at0020 = ╱23╱#╱ // 0x2306 @0x20
0x22e6…231e at0021 = ╱20╱…╱ // 0x2307 @0x21
0x22e6…231e at0022 = ╱22╱"╱ // 0x2308 @0x22
0x22e6…231e at0023 = ╱f1╱ : ╱ // 0x2309 @0x23
0x22e6…231e at0024 = ╱54╱T╱ // 0x230a @0x24
0x22e6…231e at0025 = ╱4f╱O╱ // 0x230b @0x25
0x22e6…231e at0026 = ╱54╱T╱ // 0x230c @0x26
0x22e6…231e at0027 = ╱ed╱ ( ╱ // 0x230d @0x27
0x22e6…231e at0028 = ╱33╱3╱ // 0x230e @0x28
0x22e6…231e at0029 = ╱f20300╱ // 0x230f @0x29
0x22e6…231e at002c = ╱ee╱ ) ╱ // 0x2312 @0x2c
0x22e6…231e at002d = ╱ec╱ , ╱ // 0x2313 @0x2d
0x22e6…231e at002e = ╱54╱T╱ // 0x2314 @0x2e
0x22e6…231e at002f = ╱4f╱O╱ // 0x2315 @0x2f
0x22e6…231e at0030 = ╱54╱T╱ // 0x2316 @0x30
0x22e6…231e at0031 = ╱ed╱ ( ╱ // 0x2317 @0x31
0x22e6…231e at0032 = ╱34╱4╱ // 0x2318 @0x32
0x22e6…231e at0033 = ╱f20400╱ // 0x2319 @0x33
0x22e6…231e at0036 = ╱ee╱ ) ╱ // 0x231c @0x36
0x22e6…231e at0037 = EOL // 0x231d @0x37
0x22e6…231e }
0x231e…2353 b941 03400 PRINT USING "########.##…########.##…" : TOT ( 5 ) , TOT ( 6 )
0x231e…2353 LineComal80 {
0x231e…2353 ptr = 0xb941 // 0x231e @0x0
0x231e…2353 lno = 0x0d48 // 0x2320 @0x2
0x231e…2353 at0004 = ╱92╱ PRINT ╱ // 0x2322 @0x4
0x231e…2353 at0005 = ╱b9╱ USING ╱ // 0x2323 @0x5
0x231e…2353 at0006 = ╱22╱"╱ // 0x2324 @0x6
0x231e…2353 at0007 = ╱23╱#╱ // 0x2325 @0x7
0x231e…2353 at0008 = ╱23╱#╱ // 0x2326 @0x8
0x231e…2353 at0009 = ╱23╱#╱ // 0x2327 @0x9
0x231e…2353 at000a = ╱23╱#╱ // 0x2328 @0xa
0x231e…2353 at000b = ╱23╱#╱ // 0x2329 @0xb
0x231e…2353 at000c = ╱23╱#╱ // 0x232a @0xc
0x231e…2353 at000d = ╱23╱#╱ // 0x232b @0xd
0x231e…2353 at000e = ╱23╱#╱ // 0x232c @0xe
0x231e…2353 at000f = ╱2e╱.╱ // 0x232d @0xf
0x231e…2353 at0010 = ╱23╱#╱ // 0x232e @0x10
0x231e…2353 at0011 = ╱23╱#╱ // 0x232f @0x11
0x231e…2353 at0012 = ╱20╱…╱ // 0x2330 @0x12
0x231e…2353 at0013 = ╱23╱#╱ // 0x2331 @0x13
0x231e…2353 at0014 = ╱23╱#╱ // 0x2332 @0x14
0x231e…2353 at0015 = ╱23╱#╱ // 0x2333 @0x15
0x231e…2353 at0016 = ╱23╱#╱ // 0x2334 @0x16
0x231e…2353 at0017 = ╱23╱#╱ // 0x2335 @0x17
0x231e…2353 at0018 = ╱23╱#╱ // 0x2336 @0x18
0x231e…2353 at0019 = ╱23╱#╱ // 0x2337 @0x19
0x231e…2353 at001a = ╱23╱#╱ // 0x2338 @0x1a
0x231e…2353 at001b = ╱2e╱.╱ // 0x2339 @0x1b
0x231e…2353 at001c = ╱23╱#╱ // 0x233a @0x1c
0x231e…2353 at001d = ╱23╱#╱ // 0x233b @0x1d
0x231e…2353 at001e = ╱20╱…╱ // 0x233c @0x1e
0x231e…2353 at001f = ╱22╱"╱ // 0x233d @0x1f
0x231e…2353 at0020 = ╱f1╱ : ╱ // 0x233e @0x20
0x231e…2353 at0021 = ╱54╱T╱ // 0x233f @0x21
0x231e…2353 at0022 = ╱4f╱O╱ // 0x2340 @0x22
0x231e…2353 at0023 = ╱54╱T╱ // 0x2341 @0x23
0x231e…2353 at0024 = ╱ed╱ ( ╱ // 0x2342 @0x24
0x231e…2353 at0025 = ╱35╱5╱ // 0x2343 @0x25
0x231e…2353 at0026 = ╱f20500╱ // 0x2344 @0x26
0x231e…2353 at0029 = ╱ee╱ ) ╱ // 0x2347 @0x29
0x231e…2353 at002a = ╱ec╱ , ╱ // 0x2348 @0x2a
0x231e…2353 at002b = ╱54╱T╱ // 0x2349 @0x2b
0x231e…2353 at002c = ╱4f╱O╱ // 0x234a @0x2c
0x231e…2353 at002d = ╱54╱T╱ // 0x234b @0x2d
0x231e…2353 at002e = ╱ed╱ ( ╱ // 0x234c @0x2e
0x231e…2353 at002f = ╱36╱6╱ // 0x234d @0x2f
0x231e…2353 at0030 = ╱f20600╱ // 0x234e @0x30
0x231e…2353 at0033 = ╱ee╱ ) ╱ // 0x2351 @0x33
0x231e…2353 at0034 = EOL // 0x2352 @0x34
0x231e…2353 }
0x2353…2359 b947 03410 ENDIF
0x2353…2359 LineComal80 {
0x2353…2359 ptr = 0xb947 // 0x2353 @0x0
0x2353…2359 lno = 0x0d52 // 0x2355 @0x2
0x2353…2359 at0004 = ╱9c╱ ENDIF ╱ // 0x2357 @0x4
0x2353…2359 at0005 = EOL // 0x2358 @0x5
0x2353…2359 }
0x2359…2368 b956 03420 ENDPROC TRANSPORT
0x2359…2368 LineComal80 {
0x2359…2368 ptr = 0xb956 // 0x2359 @0x0
0x2359…2368 lno = 0x0d5c // 0x235b @0x2
0x2359…2368 at0004 = ╱9f╱ ENDPROC ╱ // 0x235d @0x4
0x2359…2368 at0005 = ╱54╱T╱ // 0x235e @0x5
0x2359…2368 at0006 = ╱52╱R╱ // 0x235f @0x6
0x2359…2368 at0007 = ╱41╱A╱ // 0x2360 @0x7
0x2359…2368 at0008 = ╱4e╱N╱ // 0x2361 @0x8
0x2359…2368 at0009 = ╱53╱S╱ // 0x2362 @0x9
0x2359…2368 at000a = ╱50╱P╱ // 0x2363 @0xa
0x2359…2368 at000b = ╱4f╱O╱ // 0x2364 @0xb
0x2359…2368 at000c = ╱52╱R╱ // 0x2365 @0xc
0x2359…2368 at000d = ╱54╱T╱ // 0x2366 @0xd
0x2359…2368 at000e = EOL // 0x2367 @0xe
0x2359…2368 }
0x2368…236d b95b 03430
0x2368…236d LineComal80 {
0x2368…236d ptr = 0xb95b // 0x2368 @0x0
0x2368…236d lno = 0x0d66 // 0x236a @0x2
0x2368…236d at0004 = EOL // 0x236c @0x4
0x2368…236d }
0x236d…2382 b970 03440 PROC UDSKRIV_POSTER
0x236d…2382 LineComal80 {
0x236d…2382 ptr = 0xb970 // 0x236d @0x0
0x236d…2382 lno = 0x0d70 // 0x236f @0x2
0x236d…2382 at0004 = ╱9e00╱ PROC ╱ // 0x2371 @0x4
0x236d…2382 at0006 = ╱55╱U╱ // 0x2373 @0x6
0x236d…2382 at0007 = ╱44╱D╱ // 0x2374 @0x7
0x236d…2382 at0008 = ╱53╱S╱ // 0x2375 @0x8
0x236d…2382 at0009 = ╱4b╱K╱ // 0x2376 @0x9
0x236d…2382 at000a = ╱52╱R╱ // 0x2377 @0xa
0x236d…2382 at000b = ╱49╱I╱ // 0x2378 @0xb
0x236d…2382 at000c = ╱56╱V╱ // 0x2379 @0xc
0x236d…2382 at000d = ╱5f╱_╱ // 0x237a @0xd
0x236d…2382 at000e = ╱50╱P╱ // 0x237b @0xe
0x236d…2382 at000f = ╱4f╱O╱ // 0x237c @0xf
0x236d…2382 at0010 = ╱53╱S╱ // 0x237d @0x10
0x236d…2382 at0011 = ╱54╱T╱ // 0x237e @0x11
0x236d…2382 at0012 = ╱45╱E╱ // 0x237f @0x12
0x236d…2382 at0013 = ╱52╱R╱ // 0x2380 @0x13
0x236d…2382 at0014 = EOL // 0x2381 @0x14
0x236d…2382 }
0x2382…23b6 dc5c 03450 EXEC OVERSKRIFT ( "Udskrivning…af…kasserapport" , 7 )
0x2382…23b6 LineComal80 {
0x2382…23b6 ptr = 0xdc5c // 0x2382 @0x0
0x2382…23b6 lno = 0x0d7a // 0x2384 @0x2
0x2382…23b6 at0004 = ╱9d╱ EXEC ╱ // 0x2386 @0x4
0x2382…23b6 at0005 = ╱4f╱O╱ // 0x2387 @0x5
0x2382…23b6 at0006 = ╱56╱V╱ // 0x2388 @0x6
0x2382…23b6 at0007 = ╱45╱E╱ // 0x2389 @0x7
0x2382…23b6 at0008 = ╱52╱R╱ // 0x238a @0x8
0x2382…23b6 at0009 = ╱53╱S╱ // 0x238b @0x9
0x2382…23b6 at000a = ╱4b╱K╱ // 0x238c @0xa
0x2382…23b6 at000b = ╱52╱R╱ // 0x238d @0xb
0x2382…23b6 at000c = ╱49╱I╱ // 0x238e @0xc
0x2382…23b6 at000d = ╱46╱F╱ // 0x238f @0xd
0x2382…23b6 at000e = ╱54╱T╱ // 0x2390 @0xe
0x2382…23b6 at000f = ╱ed╱ ( ╱ // 0x2391 @0xf
0x2382…23b6 at0010 = ╱22╱"╱ // 0x2392 @0x10
0x2382…23b6 at0011 = ╱55╱U╱ // 0x2393 @0x11
0x2382…23b6 at0012 = ╱64╱d╱ // 0x2394 @0x12
0x2382…23b6 at0013 = ╱73╱s╱ // 0x2395 @0x13
0x2382…23b6 at0014 = ╱6b╱k╱ // 0x2396 @0x14
0x2382…23b6 at0015 = ╱72╱r╱ // 0x2397 @0x15
0x2382…23b6 at0016 = ╱69╱i╱ // 0x2398 @0x16
0x2382…23b6 at0017 = ╱76╱v╱ // 0x2399 @0x17
0x2382…23b6 at0018 = ╱6e╱n╱ // 0x239a @0x18
0x2382…23b6 at0019 = ╱69╱i╱ // 0x239b @0x19
0x2382…23b6 at001a = ╱6e╱n╱ // 0x239c @0x1a
0x2382…23b6 at001b = ╱67╱g╱ // 0x239d @0x1b
0x2382…23b6 at001c = ╱20╱…╱ // 0x239e @0x1c
0x2382…23b6 at001d = ╱61╱a╱ // 0x239f @0x1d
0x2382…23b6 at001e = ╱66╱f╱ // 0x23a0 @0x1e
0x2382…23b6 at001f = ╱20╱…╱ // 0x23a1 @0x1f
0x2382…23b6 at0020 = ╱6b╱k╱ // 0x23a2 @0x20
0x2382…23b6 at0021 = ╱61╱a╱ // 0x23a3 @0x21
0x2382…23b6 at0022 = ╱73╱s╱ // 0x23a4 @0x22
0x2382…23b6 at0023 = ╱73╱s╱ // 0x23a5 @0x23
0x2382…23b6 at0024 = ╱65╱e╱ // 0x23a6 @0x24
0x2382…23b6 at0025 = ╱72╱r╱ // 0x23a7 @0x25
0x2382…23b6 at0026 = ╱61╱a╱ // 0x23a8 @0x26
0x2382…23b6 at0027 = ╱70╱p╱ // 0x23a9 @0x27
0x2382…23b6 at0028 = ╱70╱p╱ // 0x23aa @0x28
0x2382…23b6 at0029 = ╱6f╱o╱ // 0x23ab @0x29
0x2382…23b6 at002a = ╱72╱r╱ // 0x23ac @0x2a
0x2382…23b6 at002b = ╱74╱t╱ // 0x23ad @0x2b
0x2382…23b6 at002c = ╱22╱"╱ // 0x23ae @0x2c
0x2382…23b6 at002d = ╱ec╱ , ╱ // 0x23af @0x2d
0x2382…23b6 at002e = ╱37╱7╱ // 0x23b0 @0x2e
0x2382…23b6 at002f = ╱f20700╱ // 0x23b1 @0x2f
0x2382…23b6 at0032 = ╱ee╱ ) ╱ // 0x23b4 @0x32
0x2382…23b6 at0033 = EOL // 0x23b5 @0x33
0x2382…23b6 }
0x23b6…23dc d904 03450 EXEC PRINTRES ( "bred…EDB-liste" , 12 )
0x23b6…23dc LineComal80 {
0x23b6…23dc ptr = 0xd904 // 0x23b6 @0x0
0x23b6…23dc lno = 0x0d7a // 0x23b8 @0x2
0x23b6…23dc at0004 = ╱9d╱ EXEC ╱ // 0x23ba @0x4
0x23b6…23dc at0005 = ╱50╱P╱ // 0x23bb @0x5
0x23b6…23dc at0006 = ╱52╱R╱ // 0x23bc @0x6
0x23b6…23dc at0007 = ╱49╱I╱ // 0x23bd @0x7
0x23b6…23dc at0008 = ╱4e╱N╱ // 0x23be @0x8
0x23b6…23dc at0009 = ╱54╱T╱ // 0x23bf @0x9
0x23b6…23dc at000a = ╱52╱R╱ // 0x23c0 @0xa
0x23b6…23dc at000b = ╱45╱E╱ // 0x23c1 @0xb
0x23b6…23dc at000c = ╱53╱S╱ // 0x23c2 @0xc
0x23b6…23dc at000d = ╱ed╱ ( ╱ // 0x23c3 @0xd
0x23b6…23dc at000e = ╱22╱"╱ // 0x23c4 @0xe
0x23b6…23dc at000f = ╱62╱b╱ // 0x23c5 @0xf
0x23b6…23dc at0010 = ╱72╱r╱ // 0x23c6 @0x10
0x23b6…23dc at0011 = ╱65╱e╱ // 0x23c7 @0x11
0x23b6…23dc at0012 = ╱64╱d╱ // 0x23c8 @0x12
0x23b6…23dc at0013 = ╱20╱…╱ // 0x23c9 @0x13
0x23b6…23dc at0014 = ╱45╱E╱ // 0x23ca @0x14
0x23b6…23dc at0015 = ╱44╱D╱ // 0x23cb @0x15
0x23b6…23dc at0016 = ╱42╱B╱ // 0x23cc @0x16
0x23b6…23dc at0017 = ╱2d╱-╱ // 0x23cd @0x17
0x23b6…23dc at0018 = ╱6c╱l╱ // 0x23ce @0x18
0x23b6…23dc at0019 = ╱69╱i╱ // 0x23cf @0x19
0x23b6…23dc at001a = ╱73╱s╱ // 0x23d0 @0x1a
0x23b6…23dc at001b = ╱74╱t╱ // 0x23d1 @0x1b
0x23b6…23dc at001c = ╱65╱e╱ // 0x23d2 @0x1c
0x23b6…23dc at001d = ╱22╱"╱ // 0x23d3 @0x1d
0x23b6…23dc at001e = ╱ec╱ , ╱ // 0x23d4 @0x1e
0x23b6…23dc at001f = ╱31╱1╱ // 0x23d5 @0x1f
0x23b6…23dc at0020 = ╱32╱2╱ // 0x23d6 @0x20
0x23b6…23dc at0021 = ╱f20c00╱ // 0x23d7 @0x21
0x23b6…23dc at0024 = ╱ee╱ ) ╱ // 0x23da @0x24
0x23b6…23dc at0025 = EOL // 0x23db @0x25
0x23b6…23dc }
0x23dc…243d ba2b 03460 LET TOT ( 1 ) , TOT ( 2 ) , TOT ( 3 ) , TOT ( 4 ) , TOT ( 5 ) , TOT ( 6 ) := 0 ; LIN_T := 100 ; MAX_LIN := 51
0x23dc…243d LineComal80 {
0x23dc…243d ptr = 0xba2b // 0x23dc @0x0
0x23dc…243d lno = 0x0d84 // 0x23de @0x2
0x23dc…243d at0004 = ╱86╱ LET ╱ // 0x23e0 @0x4
0x23dc…243d at0005 = ╱54╱T╱ // 0x23e1 @0x5
0x23dc…243d at0006 = ╱4f╱O╱ // 0x23e2 @0x6
0x23dc…243d at0007 = ╱54╱T╱ // 0x23e3 @0x7
0x23dc…243d at0008 = ╱ed╱ ( ╱ // 0x23e4 @0x8
0x23dc…243d at0009 = ╱31╱1╱ // 0x23e5 @0x9
0x23dc…243d at000a = ╱f20100╱ // 0x23e6 @0xa
0x23dc…243d at000d = ╱ee╱ ) ╱ // 0x23e9 @0xd
0x23dc…243d at000e = ╱ec╱ , ╱ // 0x23ea @0xe
0x23dc…243d at000f = ╱54╱T╱ // 0x23eb @0xf
0x23dc…243d at0010 = ╱4f╱O╱ // 0x23ec @0x10
0x23dc…243d at0011 = ╱54╱T╱ // 0x23ed @0x11
0x23dc…243d at0012 = ╱ed╱ ( ╱ // 0x23ee @0x12
0x23dc…243d at0013 = ╱32╱2╱ // 0x23ef @0x13
0x23dc…243d at0014 = ╱f20200╱ // 0x23f0 @0x14
0x23dc…243d at0017 = ╱ee╱ ) ╱ // 0x23f3 @0x17
0x23dc…243d at0018 = ╱ec╱ , ╱ // 0x23f4 @0x18
0x23dc…243d at0019 = ╱54╱T╱ // 0x23f5 @0x19
0x23dc…243d at001a = ╱4f╱O╱ // 0x23f6 @0x1a
0x23dc…243d at001b = ╱54╱T╱ // 0x23f7 @0x1b
0x23dc…243d at001c = ╱ed╱ ( ╱ // 0x23f8 @0x1c
0x23dc…243d at001d = ╱33╱3╱ // 0x23f9 @0x1d
0x23dc…243d at001e = ╱f20300╱ // 0x23fa @0x1e
0x23dc…243d at0021 = ╱ee╱ ) ╱ // 0x23fd @0x21
0x23dc…243d at0022 = ╱ec╱ , ╱ // 0x23fe @0x22
0x23dc…243d at0023 = ╱54╱T╱ // 0x23ff @0x23
0x23dc…243d at0024 = ╱4f╱O╱ // 0x2400 @0x24
0x23dc…243d at0025 = ╱54╱T╱ // 0x2401 @0x25
0x23dc…243d at0026 = ╱ed╱ ( ╱ // 0x2402 @0x26
0x23dc…243d at0027 = ╱34╱4╱ // 0x2403 @0x27
0x23dc…243d at0028 = ╱f20400╱ // 0x2404 @0x28
0x23dc…243d at002b = ╱ee╱ ) ╱ // 0x2407 @0x2b
0x23dc…243d at002c = ╱ec╱ , ╱ // 0x2408 @0x2c
0x23dc…243d at002d = ╱54╱T╱ // 0x2409 @0x2d
0x23dc…243d at002e = ╱4f╱O╱ // 0x240a @0x2e
0x23dc…243d at002f = ╱54╱T╱ // 0x240b @0x2f
0x23dc…243d at0030 = ╱ed╱ ( ╱ // 0x240c @0x30
0x23dc…243d at0031 = ╱35╱5╱ // 0x240d @0x31
0x23dc…243d at0032 = ╱f20500╱ // 0x240e @0x32
0x23dc…243d at0035 = ╱ee╱ ) ╱ // 0x2411 @0x35
0x23dc…243d at0036 = ╱ec╱ , ╱ // 0x2412 @0x36
0x23dc…243d at0037 = ╱54╱T╱ // 0x2413 @0x37
0x23dc…243d at0038 = ╱4f╱O╱ // 0x2414 @0x38
0x23dc…243d at0039 = ╱54╱T╱ // 0x2415 @0x39
0x23dc…243d at003a = ╱ed╱ ( ╱ // 0x2416 @0x3a
0x23dc…243d at003b = ╱36╱6╱ // 0x2417 @0x3b
0x23dc…243d at003c = ╱f20600╱ // 0x2418 @0x3c
0x23dc…243d at003f = ╱ee╱ ) ╱ // 0x241b @0x3f
0x23dc…243d at0040 = ╱f0╱ := ╱ // 0x241c @0x40
0x23dc…243d at0041 = ╱30╱0╱ // 0x241d @0x41
0x23dc…243d at0042 = ╱f20000╱ // 0x241e @0x42
0x23dc…243d at0045 = ╱ea╱ ; ╱ // 0x2421 @0x45
0x23dc…243d at0046 = ╱4c╱L╱ // 0x2422 @0x46
0x23dc…243d at0047 = ╱49╱I╱ // 0x2423 @0x47
0x23dc…243d at0048 = ╱4e╱N╱ // 0x2424 @0x48
0x23dc…243d at0049 = ╱5f╱_╱ // 0x2425 @0x49
0x23dc…243d at004a = ╱54╱T╱ // 0x2426 @0x4a
0x23dc…243d at004b = ╱f0╱ := ╱ // 0x2427 @0x4b
0x23dc…243d at004c = ╱31╱1╱ // 0x2428 @0x4c
0x23dc…243d at004d = ╱30╱0╱ // 0x2429 @0x4d
0x23dc…243d at004e = ╱30╱0╱ // 0x242a @0x4e
0x23dc…243d at004f = ╱f26400╱ // 0x242b @0x4f
0x23dc…243d at0052 = ╱ea╱ ; ╱ // 0x242e @0x52
0x23dc…243d at0053 = ╱4d╱M╱ // 0x242f @0x53
0x23dc…243d at0054 = ╱41╱A╱ // 0x2430 @0x54
0x23dc…243d at0055 = ╱58╱X╱ // 0x2431 @0x55
0x23dc…243d at0056 = ╱5f╱_╱ // 0x2432 @0x56
0x23dc…243d at0057 = ╱4c╱L╱ // 0x2433 @0x57
0x23dc…243d at0058 = ╱49╱I╱ // 0x2434 @0x58
0x23dc…243d at0059 = ╱4e╱N╱ // 0x2435 @0x59
0x23dc…243d at005a = ╱f0╱ := ╱ // 0x2436 @0x5a
0x23dc…243d at005b = ╱35╱5╱ // 0x2437 @0x5b
0x23dc…243d at005c = ╱31╱1╱ // 0x2438 @0x5c
0x23dc…243d at005d = ╱f23300╱ // 0x2439 @0x5d
0x23dc…243d at0060 = EOL // 0x243c @0x60
0x23dc…243d }
0x243d…2473 ba61 03480 GET KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE , K_BDAT $
0x243d…2473 LineComal80 {
0x243d…2473 ptr = 0xba61 // 0x243d @0x0
0x243d…2473 lno = 0x0d98 // 0x243f @0x2
0x243d…2473 at0004 = ╱a9╱ GET ╱ // 0x2441 @0x4
0x243d…2473 at0005 = ╱4b╱K╱ // 0x2442 @0x5
0x243d…2473 at0006 = ╱41╱A╱ // 0x2443 @0x6
0x243d…2473 at0007 = ╱53╱S╱ // 0x2444 @0x7
0x243d…2473 at0008 = ╱53╱S╱ // 0x2445 @0x8
0x243d…2473 at0009 = ╱45╱E╱ // 0x2446 @0x9
0x243d…2473 at000a = ╱ef╱ $ ╱ // 0x2447 @0xa
0x243d…2473 at000b = ╱ec╱ , ╱ // 0x2448 @0xb
0x243d…2473 at000c = ╱31╱1╱ // 0x2449 @0xc
0x243d…2473 at000d = ╱f20100╱ // 0x244a @0xd
0x243d…2473 at0010 = ╱f1╱ : ╱ // 0x244d @0x10
0x243d…2473 at0011 = ╱4b╱K╱ // 0x244e @0x11
0x243d…2473 at0012 = ╱5f╱_╱ // 0x244f @0x12
0x243d…2473 at0013 = ╱48╱H╱ // 0x2450 @0x13
0x243d…2473 at0014 = ╱5c╱\╱ // 0x2451 @0x14
0x243d…2473 at0015 = ╱4a╱J╱ // 0x2452 @0x15
0x243d…2473 at0016 = ╱52╱R╱ // 0x2453 @0x16
0x243d…2473 at0017 = ╱45╱E╱ // 0x2454 @0x17
0x243d…2473 at0018 = ╱43╱C╱ // 0x2455 @0x18
0x243d…2473 at0019 = ╱ec╱ , ╱ // 0x2456 @0x19
0x243d…2473 at001a = ╱4b╱K╱ // 0x2457 @0x1a
0x243d…2473 at001b = ╱5f╱_╱ // 0x2458 @0x1b
0x243d…2473 at001c = ╱4d╱M╱ // 0x2459 @0x1c
0x243d…2473 at001d = ╱41╱A╱ // 0x245a @0x1d
0x243d…2473 at001e = ╱58╱X╱ // 0x245b @0x1e
0x243d…2473 at001f = ╱52╱R╱ // 0x245c @0x1f
0x243d…2473 at0020 = ╱45╱E╱ // 0x245d @0x20
0x243d…2473 at0021 = ╱43╱C╱ // 0x245e @0x21
0x243d…2473 at0022 = ╱ec╱ , ╱ // 0x245f @0x22
0x243d…2473 at0023 = ╱53╱S╱ // 0x2460 @0x23
0x243d…2473 at0024 = ╱5f╱_╱ // 0x2461 @0x24
0x243d…2473 at0025 = ╱4e╱N╱ // 0x2462 @0x25
0x243d…2473 at0026 = ╱52╱R╱ // 0x2463 @0x26
0x243d…2473 at0027 = ╱5f╱_╱ // 0x2464 @0x27
0x243d…2473 at0028 = ╱4b╱K╱ // 0x2465 @0x28
0x243d…2473 at0029 = ╱41╱A╱ // 0x2466 @0x29
0x243d…2473 at002a = ╱53╱S╱ // 0x2467 @0x2a
0x243d…2473 at002b = ╱53╱S╱ // 0x2468 @0x2b
0x243d…2473 at002c = ╱45╱E╱ // 0x2469 @0x2c
0x243d…2473 at002d = ╱ec╱ , ╱ // 0x246a @0x2d
0x243d…2473 at002e = ╱4b╱K╱ // 0x246b @0x2e
0x243d…2473 at002f = ╱5f╱_╱ // 0x246c @0x2f
0x243d…2473 at0030 = ╱42╱B╱ // 0x246d @0x30
0x243d…2473 at0031 = ╱44╱D╱ // 0x246e @0x31
0x243d…2473 at0032 = ╱41╱A╱ // 0x246f @0x32
0x243d…2473 at0033 = ╱54╱T╱ // 0x2470 @0x33
0x243d…2473 at0034 = ╱ef╱ $ ╱ // 0x2471 @0x34
0x243d…2473 at0035 = EOL // 0x2472 @0x35
0x243d…2473 }
0x2473…248f ba7d 03490 FOR J := 1 TO _H\JREC - 1 DO
0x2473…248f LineComal80 {
0x2473…248f ptr = 0xba7d // 0x2473 @0x0
0x2473…248f lno = 0x0da2 // 0x2475 @0x2
0x2473…248f at0004 = ╱8300╱ FOR ╱ // 0x2477 @0x4
0x2473…248f at0006 = ╱4a╱J╱ // 0x2479 @0x6
0x2473…248f at0007 = ╱f0╱ := ╱ // 0x247a @0x7
0x2473…248f at0008 = ╱31╱1╱ // 0x247b @0x8
0x2473…248f at0009 = ╱f20100╱ // 0x247c @0x9
0x2473…248f at000c = ╱b74b╱ TO ╱ // 0x247f @0xc
0x2473…248f at000e = ╱5f╱_╱ // 0x2481 @0xe
0x2473…248f at000f = ╱48╱H╱ // 0x2482 @0xf
0x2473…248f at0010 = ╱5c╱\╱ // 0x2483 @0x10
0x2473…248f at0011 = ╱4a╱J╱ // 0x2484 @0x11
0x2473…248f at0012 = ╱52╱R╱ // 0x2485 @0x12
0x2473…248f at0013 = ╱45╱E╱ // 0x2486 @0x13
0x2473…248f at0014 = ╱43╱C╱ // 0x2487 @0x14
0x2473…248f at0015 = ╱e6╱ - ╱ // 0x2488 @0x15
0x2473…248f at0016 = ╱31╱1╱ // 0x2489 @0x16
0x2473…248f at0017 = ╱f20100╱ // 0x248a @0x17
0x2473…248f at001a = ╱bb╱ DO ╱ // 0x248d @0x1a
0x2473…248f at001b = EOL // 0x248e @0x1b
0x2473…248f }
0x248f…24a2 ba90 03500 EXEC L[S_K_POST ( J )
0x248f…24a2 LineComal80 {
0x248f…24a2 ptr = 0xba90 // 0x248f @0x0
0x248f…24a2 lno = 0x0dac // 0x2491 @0x2
0x248f…24a2 at0004 = ╱9d╱ EXEC ╱ // 0x2493 @0x4
0x248f…24a2 at0005 = ╱4c╱L╱ // 0x2494 @0x5
0x248f…24a2 at0006 = ╱5b╱[╱ // 0x2495 @0x6
0x248f…24a2 at0007 = ╱53╱S╱ // 0x2496 @0x7
0x248f…24a2 at0008 = ╱5f╱_╱ // 0x2497 @0x8
0x248f…24a2 at0009 = ╱4b╱K╱ // 0x2498 @0x9
0x248f…24a2 at000a = ╱5f╱_╱ // 0x2499 @0xa
0x248f…24a2 at000b = ╱50╱P╱ // 0x249a @0xb
0x248f…24a2 at000c = ╱4f╱O╱ // 0x249b @0xc
0x248f…24a2 at000d = ╱53╱S╱ // 0x249c @0xd
0x248f…24a2 at000e = ╱54╱T╱ // 0x249d @0xe
0x248f…24a2 at000f = ╱ed╱ ( ╱ // 0x249e @0xf
0x248f…24a2 at0010 = ╱4a╱J╱ // 0x249f @0x10
0x248f…24a2 at0011 = ╱ee╱ ) ╱ // 0x24a0 @0x11
0x248f…24a2 at0012 = EOL // 0x24a1 @0x12
0x248f…24a2 }
0x24a2…24b3 baa1 03510 EXEC PRINT_LINIE
0x24a2…24b3 LineComal80 {
0x24a2…24b3 ptr = 0xbaa1 // 0x24a2 @0x0
0x24a2…24b3 lno = 0x0db6 // 0x24a4 @0x2
0x24a2…24b3 at0004 = ╱9d╱ EXEC ╱ // 0x24a6 @0x4
0x24a2…24b3 at0005 = ╱50╱P╱ // 0x24a7 @0x5
0x24a2…24b3 at0006 = ╱52╱R╱ // 0x24a8 @0x6
0x24a2…24b3 at0007 = ╱49╱I╱ // 0x24a9 @0x7
0x24a2…24b3 at0008 = ╱4e╱N╱ // 0x24aa @0x8
0x24a2…24b3 at0009 = ╱54╱T╱ // 0x24ab @0x9
0x24a2…24b3 at000a = ╱5f╱_╱ // 0x24ac @0xa
0x24a2…24b3 at000b = ╱4c╱L╱ // 0x24ad @0xb
0x24a2…24b3 at000c = ╱49╱I╱ // 0x24ae @0xc
0x24a2…24b3 at000d = ╱4e╱N╱ // 0x24af @0xd
0x24a2…24b3 at000e = ╱49╱I╱ // 0x24b0 @0xe
0x24a2…24b3 at000f = ╱45╱E╱ // 0x24b1 @0xf
0x24a2…24b3 at0010 = EOL // 0x24b2 @0x10
0x24a2…24b3 }
0x24b3…24ba baa8 03520 NEXT J
0x24b3…24ba LineComal80 {
0x24b3…24ba ptr = 0xbaa8 // 0x24b3 @0x0
0x24b3…24ba lno = 0x0dc0 // 0x24b5 @0x2
0x24b3…24ba at0004 = ╱84╱ NEXT ╱ // 0x24b7 @0x4
0x24b3…24ba at0005 = ╱4a╱J╱ // 0x24b8 @0x5
0x24b3…24ba at0006 = EOL // 0x24b9 @0x6
0x24b3…24ba }
0x24ba…24d5 bac3 03530 IF LIN_T >< 100 THEN EXEC AFSLUT
0x24ba…24d5 LineComal80 {
0x24ba…24d5 ptr = 0xbac3 // 0x24ba @0x0
0x24ba…24d5 lno = 0x0dca // 0x24bc @0x2
0x24ba…24d5 at0004 = ╱8200╱ IF ╱ // 0x24be @0x4
0x24ba…24d5 at0006 = ╱4c╱L╱ // 0x24c0 @0x6
0x24ba…24d5 at0007 = ╱49╱I╱ // 0x24c1 @0x7
0x24ba…24d5 at0008 = ╱4e╱N╱ // 0x24c2 @0x8
0x24ba…24d5 at0009 = ╱5f╱_╱ // 0x24c3 @0x9
0x24ba…24d5 at000a = ╱54╱T╱ // 0x24c4 @0xa
0x24ba…24d5 at000b = ╱e4╱ >< ╱ // 0x24c5 @0xb
0x24ba…24d5 at000c = ╱31╱1╱ // 0x24c6 @0xc
0x24ba…24d5 at000d = ╱30╱0╱ // 0x24c7 @0xd
0x24ba…24d5 at000e = ╱30╱0╱ // 0x24c8 @0xe
0x24ba…24d5 at000f = ╱f26400╱ // 0x24c9 @0xf
0x24ba…24d5 at0012 = ╱b5╱ THEN ╱ // 0x24cc @0x12
0x24ba…24d5 at0013 = ╱9d╱ EXEC ╱ // 0x24cd @0x13
0x24ba…24d5 at0014 = ╱41╱A╱ // 0x24ce @0x14
0x24ba…24d5 at0015 = ╱46╱F╱ // 0x24cf @0x15
0x24ba…24d5 at0016 = ╱53╱S╱ // 0x24d0 @0x16
0x24ba…24d5 at0017 = ╱4c╱L╱ // 0x24d1 @0x17
0x24ba…24d5 at0018 = ╱55╱U╱ // 0x24d2 @0x18
0x24ba…24d5 at0019 = ╱54╱T╱ // 0x24d3 @0x19
0x24ba…24d5 at001a = EOL // 0x24d4 @0x1a
0x24ba…24d5 }
0x24d5…24e3 bad1 03540 EXEC PRINTREL
0x24d5…24e3 LineComal80 {
0x24d5…24e3 ptr = 0xbad1 // 0x24d5 @0x0
0x24d5…24e3 lno = 0x0dd4 // 0x24d7 @0x2
0x24d5…24e3 at0004 = ╱9d╱ EXEC ╱ // 0x24d9 @0x4
0x24d5…24e3 at0005 = ╱50╱P╱ // 0x24da @0x5
0x24d5…24e3 at0006 = ╱52╱R╱ // 0x24db @0x6
0x24d5…24e3 at0007 = ╱49╱I╱ // 0x24dc @0x7
0x24d5…24e3 at0008 = ╱4e╱N╱ // 0x24dd @0x8
0x24d5…24e3 at0009 = ╱54╱T╱ // 0x24de @0x9
0x24d5…24e3 at000a = ╱52╱R╱ // 0x24df @0xa
0x24d5…24e3 at000b = ╱45╱E╱ // 0x24e0 @0xb
0x24d5…24e3 at000c = ╱4c╱L╱ // 0x24e1 @0xc
0x24d5…24e3 at000d = EOL // 0x24e2 @0xd
0x24d5…24e3 }
0x24e3…24f7 bae5 03550 ENDPROC UDSKRIV_POSTER
0x24e3…24f7 LineComal80 {
0x24e3…24f7 ptr = 0xbae5 // 0x24e3 @0x0
0x24e3…24f7 lno = 0x0dde // 0x24e5 @0x2
0x24e3…24f7 at0004 = ╱9f╱ ENDPROC ╱ // 0x24e7 @0x4
0x24e3…24f7 at0005 = ╱55╱U╱ // 0x24e8 @0x5
0x24e3…24f7 at0006 = ╱44╱D╱ // 0x24e9 @0x6
0x24e3…24f7 at0007 = ╱53╱S╱ // 0x24ea @0x7
0x24e3…24f7 at0008 = ╱4b╱K╱ // 0x24eb @0x8
0x24e3…24f7 at0009 = ╱52╱R╱ // 0x24ec @0x9
0x24e3…24f7 at000a = ╱49╱I╱ // 0x24ed @0xa
0x24e3…24f7 at000b = ╱56╱V╱ // 0x24ee @0xb
0x24e3…24f7 at000c = ╱5f╱_╱ // 0x24ef @0xc
0x24e3…24f7 at000d = ╱50╱P╱ // 0x24f0 @0xd
0x24e3…24f7 at000e = ╱4f╱O╱ // 0x24f1 @0xe
0x24e3…24f7 at000f = ╱53╱S╱ // 0x24f2 @0xf
0x24e3…24f7 at0010 = ╱54╱T╱ // 0x24f3 @0x10
0x24e3…24f7 at0011 = ╱45╱E╱ // 0x24f4 @0x11
0x24e3…24f7 at0012 = ╱52╱R╱ // 0x24f5 @0x12
0x24e3…24f7 at0013 = EOL // 0x24f6 @0x13
0x24e3…24f7 }
0x24f7…24fc baea 03560
0x24f7…24fc LineComal80 {
0x24f7…24fc ptr = 0xbaea // 0x24f7 @0x0
0x24f7…24fc lno = 0x0de8 // 0x24f9 @0x2
0x24f7…24fc at0004 = EOL // 0x24fb @0x4
0x24f7…24fc }
0x24fc…2509 baf7 03570 PROC AFSLUT
0x24fc…2509 LineComal80 {
0x24fc…2509 ptr = 0xbaf7 // 0x24fc @0x0
0x24fc…2509 lno = 0x0df2 // 0x24fe @0x2
0x24fc…2509 at0004 = ╱9e00╱ PROC ╱ // 0x2500 @0x4
0x24fc…2509 at0006 = ╱41╱A╱ // 0x2502 @0x6
0x24fc…2509 at0007 = ╱46╱F╱ // 0x2503 @0x7
0x24fc…2509 at0008 = ╱53╱S╱ // 0x2504 @0x8
0x24fc…2509 at0009 = ╱4c╱L╱ // 0x2505 @0x9
0x24fc…2509 at000a = ╱55╱U╱ // 0x2506 @0xa
0x24fc…2509 at000b = ╱54╱T╱ // 0x2507 @0xb
0x24fc…2509 at000c = EOL // 0x2508 @0xc
0x24fc…2509 }
0x2509…2519 bb07 03580 EXEC SLUT_LINIE
0x2509…2519 LineComal80 {
0x2509…2519 ptr = 0xbb07 // 0x2509 @0x0
0x2509…2519 lno = 0x0dfc // 0x250b @0x2
0x2509…2519 at0004 = ╱9d╱ EXEC ╱ // 0x250d @0x4
0x2509…2519 at0005 = ╱53╱S╱ // 0x250e @0x5
0x2509…2519 at0006 = ╱4c╱L╱ // 0x250f @0x6
0x2509…2519 at0007 = ╱55╱U╱ // 0x2510 @0x7
0x2509…2519 at0008 = ╱54╱T╱ // 0x2511 @0x8
0x2509…2519 at0009 = ╱5f╱_╱ // 0x2512 @0x9
0x2509…2519 at000a = ╱4c╱L╱ // 0x2513 @0xa
0x2509…2519 at000b = ╱49╱I╱ // 0x2514 @0xb
0x2509…2519 at000c = ╱4e╱N╱ // 0x2515 @0xc
0x2509…2519 at000d = ╱49╱I╱ // 0x2516 @0xd
0x2509…2519 at000e = ╱45╱E╱ // 0x2517 @0xe
0x2509…2519 at000f = EOL // 0x2518 @0xf
0x2509…2519 }
0x2519…252f bb1d 03590 LET LIN_T := LIN_T + 7
0x2519…252f LineComal80 {
0x2519…252f ptr = 0xbb1d // 0x2519 @0x0
0x2519…252f lno = 0x0e06 // 0x251b @0x2
0x2519…252f at0004 = ╱86╱ LET ╱ // 0x251d @0x4
0x2519…252f at0005 = ╱4c╱L╱ // 0x251e @0x5
0x2519…252f at0006 = ╱49╱I╱ // 0x251f @0x6
0x2519…252f at0007 = ╱4e╱N╱ // 0x2520 @0x7
0x2519…252f at0008 = ╱5f╱_╱ // 0x2521 @0x8
0x2519…252f at0009 = ╱54╱T╱ // 0x2522 @0x9
0x2519…252f at000a = ╱f0╱ := ╱ // 0x2523 @0xa
0x2519…252f at000b = ╱4c╱L╱ // 0x2524 @0xb
0x2519…252f at000c = ╱49╱I╱ // 0x2525 @0xc
0x2519…252f at000d = ╱4e╱N╱ // 0x2526 @0xd
0x2519…252f at000e = ╱5f╱_╱ // 0x2527 @0xe
0x2519…252f at000f = ╱54╱T╱ // 0x2528 @0xf
0x2519…252f at0010 = ╱e5╱ + ╱ // 0x2529 @0x10
0x2519…252f at0011 = ╱37╱7╱ // 0x252a @0x11
0x2519…252f at0012 = ╱f20700╱ // 0x252b @0x12
0x2519…252f at0015 = EOL // 0x252e @0x15
0x2519…252f }
0x252f…2561 bb4f 03600 PRINT "<S>" ; TAB ( 11 ) ; "DAGENS…BEV[GELSER…" ; TAB ( 35 )
0x252f…2561 LineComal80 {
0x252f…2561 ptr = 0xbb4f // 0x252f @0x0
0x252f…2561 lno = 0x0e10 // 0x2531 @0x2
0x252f…2561 at0004 = ╱92╱ PRINT ╱ // 0x2533 @0x4
0x252f…2561 at0005 = ╱22╱"╱ // 0x2534 @0x5
0x252f…2561 at0006 = ╱3c╱<╱ // 0x2535 @0x6
0x252f…2561 at0007 = ╱53╱S╱ // 0x2536 @0x7
0x252f…2561 at0008 = ╱3e╱>╱ // 0x2537 @0x8
0x252f…2561 at0009 = ╱22╱"╱ // 0x2538 @0x9
0x252f…2561 at000a = ╱ea╱ ; ╱ // 0x2539 @0xa
0x252f…2561 at000b = ╱d2╱ TAB ╱ // 0x253a @0xb
0x252f…2561 at000c = ╱ed╱ ( ╱ // 0x253b @0xc
0x252f…2561 at000d = ╱31╱1╱ // 0x253c @0xd
0x252f…2561 at000e = ╱31╱1╱ // 0x253d @0xe
0x252f…2561 at000f = ╱f20b00╱ // 0x253e @0xf
0x252f…2561 at0012 = ╱ee╱ ) ╱ // 0x2541 @0x12
0x252f…2561 at0013 = ╱ea╱ ; ╱ // 0x2542 @0x13
0x252f…2561 at0014 = ╱22╱"╱ // 0x2543 @0x14
0x252f…2561 at0015 = ╱44╱D╱ // 0x2544 @0x15
0x252f…2561 at0016 = ╱41╱A╱ // 0x2545 @0x16
0x252f…2561 at0017 = ╱47╱G╱ // 0x2546 @0x17
0x252f…2561 at0018 = ╱45╱E╱ // 0x2547 @0x18
0x252f…2561 at0019 = ╱4e╱N╱ // 0x2548 @0x19
0x252f…2561 at001a = ╱53╱S╱ // 0x2549 @0x1a
0x252f…2561 at001b = ╱20╱…╱ // 0x254a @0x1b
0x252f…2561 at001c = ╱42╱B╱ // 0x254b @0x1c
0x252f…2561 at001d = ╱45╱E╱ // 0x254c @0x1d
0x252f…2561 at001e = ╱56╱V╱ // 0x254d @0x1e
0x252f…2561 at001f = ╱5b╱[╱ // 0x254e @0x1f
0x252f…2561 at0020 = ╱47╱G╱ // 0x254f @0x20
0x252f…2561 at0021 = ╱45╱E╱ // 0x2550 @0x21
0x252f…2561 at0022 = ╱4c╱L╱ // 0x2551 @0x22
0x252f…2561 at0023 = ╱53╱S╱ // 0x2552 @0x23
0x252f…2561 at0024 = ╱45╱E╱ // 0x2553 @0x24
0x252f…2561 at0025 = ╱52╱R╱ // 0x2554 @0x25
0x252f…2561 at0026 = ╱20╱…╱ // 0x2555 @0x26
0x252f…2561 at0027 = ╱22╱"╱ // 0x2556 @0x27
0x252f…2561 at0028 = ╱ea╱ ; ╱ // 0x2557 @0x28
0x252f…2561 at0029 = ╱d2╱ TAB ╱ // 0x2558 @0x29
0x252f…2561 at002a = ╱ed╱ ( ╱ // 0x2559 @0x2a
0x252f…2561 at002b = ╱33╱3╱ // 0x255a @0x2b
0x252f…2561 at002c = ╱35╱5╱ // 0x255b @0x2c
0x252f…2561 at002d = ╱f22300╱ // 0x255c @0x2d
0x252f…2561 at0030 = ╱ee╱ ) ╱ // 0x255f @0x30
0x252f…2561 at0031 = EOL // 0x2560 @0x31
0x252f…2561 }
0x2561…259a bb88 03610 PRINT "<S>" ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
0x2561…259a LineComal80 {
0x2561…259a ptr = 0xbb88 // 0x2561 @0x0
0x2561…259a lno = 0x0e1a // 0x2563 @0x2
0x2561…259a at0004 = ╱92╱ PRINT ╱ // 0x2565 @0x4
0x2561…259a at0005 = ╱22╱"╱ // 0x2566 @0x5
0x2561…259a at0006 = ╱3c╱<╱ // 0x2567 @0x6
0x2561…259a at0007 = ╱53╱S╱ // 0x2568 @0x7
0x2561…259a at0008 = ╱3e╱>╱ // 0x2569 @0x8
0x2561…259a at0009 = ╱22╱"╱ // 0x256a @0x9
0x2561…259a at000a = ╱ea╱ ; ╱ // 0x256b @0xa
0x2561…259a at000b = ╱d0╱ CHR$ ╱ // 0x256c @0xb
0x2561…259a at000c = ╱ed╱ ( ╱ // 0x256d @0xc
0x2561…259a at000d = ╱54╱T╱ // 0x256e @0xd
0x2561…259a at000e = ╱4f╱O╱ // 0x256f @0xe
0x2561…259a at000f = ╱54╱T╱ // 0x2570 @0xf
0x2561…259a at0010 = ╱ed╱ ( ╱ // 0x2571 @0x10
0x2561…259a at0011 = ╱31╱1╱ // 0x2572 @0x11
0x2561…259a at0012 = ╱f20100╱ // 0x2573 @0x12
0x2561…259a at0015 = ╱ee╱ ) ╱ // 0x2576 @0x15
0x2561…259a at0016 = ╱ec╱ , ╱ // 0x2577 @0x16
0x2561…259a at0017 = ╱39╱9╱ // 0x2578 @0x17
0x2561…259a at0018 = ╱f20900╱ // 0x2579 @0x18
0x2561…259a at001b = ╱ec╱ , ╱ // 0x257c @0x1b
0x2561…259a at001c = ╱32╱2╱ // 0x257d @0x1c
0x2561…259a at001d = ╱f20200╱ // 0x257e @0x1d
0x2561…259a at0020 = ╱ee╱ ) ╱ // 0x2581 @0x20
0x2561…259a at0021 = ╱ea╱ ; ╱ // 0x2582 @0x21
0x2561…259a at0022 = ╱d0╱ CHR$ ╱ // 0x2583 @0x22
0x2561…259a at0023 = ╱ed╱ ( ╱ // 0x2584 @0x23
0x2561…259a at0024 = ╱54╱T╱ // 0x2585 @0x24
0x2561…259a at0025 = ╱4f╱O╱ // 0x2586 @0x25
0x2561…259a at0026 = ╱54╱T╱ // 0x2587 @0x26
0x2561…259a at0027 = ╱ed╱ ( ╱ // 0x2588 @0x27
0x2561…259a at0028 = ╱32╱2╱ // 0x2589 @0x28
0x2561…259a at0029 = ╱f20200╱ // 0x258a @0x29
0x2561…259a at002c = ╱ee╱ ) ╱ // 0x258d @0x2c
0x2561…259a at002d = ╱ec╱ , ╱ // 0x258e @0x2d
0x2561…259a at002e = ╱39╱9╱ // 0x258f @0x2e
0x2561…259a at002f = ╱f20900╱ // 0x2590 @0x2f
0x2561…259a at0032 = ╱ec╱ , ╱ // 0x2593 @0x32
0x2561…259a at0033 = ╱32╱2╱ // 0x2594 @0x33
0x2561…259a at0034 = ╱f20200╱ // 0x2595 @0x34
0x2561…259a at0037 = ╱ee╱ ) ╱ // 0x2598 @0x37
0x2561…259a at0038 = EOL // 0x2599 @0x38
0x2561…259a }
0x259a…25d3 bbc1 03620 PRINT "<S>" ; CHR$ ( TOT ( 3 ) , 9 , 2 ) ; CHR$ ( TOT ( 4 ) , 9 , 2 )
0x259a…25d3 LineComal80 {
0x259a…25d3 ptr = 0xbbc1 // 0x259a @0x0
0x259a…25d3 lno = 0x0e24 // 0x259c @0x2
0x259a…25d3 at0004 = ╱92╱ PRINT ╱ // 0x259e @0x4
0x259a…25d3 at0005 = ╱22╱"╱ // 0x259f @0x5
0x259a…25d3 at0006 = ╱3c╱<╱ // 0x25a0 @0x6
0x259a…25d3 at0007 = ╱53╱S╱ // 0x25a1 @0x7
0x259a…25d3 at0008 = ╱3e╱>╱ // 0x25a2 @0x8
0x259a…25d3 at0009 = ╱22╱"╱ // 0x25a3 @0x9
0x259a…25d3 at000a = ╱ea╱ ; ╱ // 0x25a4 @0xa
0x259a…25d3 at000b = ╱d0╱ CHR$ ╱ // 0x25a5 @0xb
0x259a…25d3 at000c = ╱ed╱ ( ╱ // 0x25a6 @0xc
0x259a…25d3 at000d = ╱54╱T╱ // 0x25a7 @0xd
0x259a…25d3 at000e = ╱4f╱O╱ // 0x25a8 @0xe
0x259a…25d3 at000f = ╱54╱T╱ // 0x25a9 @0xf
0x259a…25d3 at0010 = ╱ed╱ ( ╱ // 0x25aa @0x10
0x259a…25d3 at0011 = ╱33╱3╱ // 0x25ab @0x11
0x259a…25d3 at0012 = ╱f20300╱ // 0x25ac @0x12
0x259a…25d3 at0015 = ╱ee╱ ) ╱ // 0x25af @0x15
0x259a…25d3 at0016 = ╱ec╱ , ╱ // 0x25b0 @0x16
0x259a…25d3 at0017 = ╱39╱9╱ // 0x25b1 @0x17
0x259a…25d3 at0018 = ╱f20900╱ // 0x25b2 @0x18
0x259a…25d3 at001b = ╱ec╱ , ╱ // 0x25b5 @0x1b
0x259a…25d3 at001c = ╱32╱2╱ // 0x25b6 @0x1c
0x259a…25d3 at001d = ╱f20200╱ // 0x25b7 @0x1d
0x259a…25d3 at0020 = ╱ee╱ ) ╱ // 0x25ba @0x20
0x259a…25d3 at0021 = ╱ea╱ ; ╱ // 0x25bb @0x21
0x259a…25d3 at0022 = ╱d0╱ CHR$ ╱ // 0x25bc @0x22
0x259a…25d3 at0023 = ╱ed╱ ( ╱ // 0x25bd @0x23
0x259a…25d3 at0024 = ╱54╱T╱ // 0x25be @0x24
0x259a…25d3 at0025 = ╱4f╱O╱ // 0x25bf @0x25
0x259a…25d3 at0026 = ╱54╱T╱ // 0x25c0 @0x26
0x259a…25d3 at0027 = ╱ed╱ ( ╱ // 0x25c1 @0x27
0x259a…25d3 at0028 = ╱34╱4╱ // 0x25c2 @0x28
0x259a…25d3 at0029 = ╱f20400╱ // 0x25c3 @0x29
0x259a…25d3 at002c = ╱ee╱ ) ╱ // 0x25c6 @0x2c
0x259a…25d3 at002d = ╱ec╱ , ╱ // 0x25c7 @0x2d
0x259a…25d3 at002e = ╱39╱9╱ // 0x25c8 @0x2e
0x259a…25d3 at002f = ╱f20900╱ // 0x25c9 @0x2f
0x259a…25d3 at0032 = ╱ec╱ , ╱ // 0x25cc @0x32
0x259a…25d3 at0033 = ╱32╱2╱ // 0x25cd @0x33
0x259a…25d3 at0034 = ╱f20200╱ // 0x25ce @0x34
0x259a…25d3 at0037 = ╱ee╱ ) ╱ // 0x25d1 @0x37
0x259a…25d3 at0038 = EOL // 0x25d2 @0x38
0x259a…25d3 }
0x25d3…2606 bbf4 03630 PRINT CHR$ ( TOT ( 5 ) , 9 , 2 ) ; CHR$ ( TOT ( 6 ) , 9 , 2 )
0x25d3…2606 LineComal80 {
0x25d3…2606 ptr = 0xbbf4 // 0x25d3 @0x0
0x25d3…2606 lno = 0x0e2e // 0x25d5 @0x2
0x25d3…2606 at0004 = ╱92╱ PRINT ╱ // 0x25d7 @0x4
0x25d3…2606 at0005 = ╱d0╱ CHR$ ╱ // 0x25d8 @0x5
0x25d3…2606 at0006 = ╱ed╱ ( ╱ // 0x25d9 @0x6
0x25d3…2606 at0007 = ╱54╱T╱ // 0x25da @0x7
0x25d3…2606 at0008 = ╱4f╱O╱ // 0x25db @0x8
0x25d3…2606 at0009 = ╱54╱T╱ // 0x25dc @0x9
0x25d3…2606 at000a = ╱ed╱ ( ╱ // 0x25dd @0xa
0x25d3…2606 at000b = ╱35╱5╱ // 0x25de @0xb
0x25d3…2606 at000c = ╱f20500╱ // 0x25df @0xc
0x25d3…2606 at000f = ╱ee╱ ) ╱ // 0x25e2 @0xf
0x25d3…2606 at0010 = ╱ec╱ , ╱ // 0x25e3 @0x10
0x25d3…2606 at0011 = ╱39╱9╱ // 0x25e4 @0x11
0x25d3…2606 at0012 = ╱f20900╱ // 0x25e5 @0x12
0x25d3…2606 at0015 = ╱ec╱ , ╱ // 0x25e8 @0x15
0x25d3…2606 at0016 = ╱32╱2╱ // 0x25e9 @0x16
0x25d3…2606 at0017 = ╱f20200╱ // 0x25ea @0x17
0x25d3…2606 at001a = ╱ee╱ ) ╱ // 0x25ed @0x1a
0x25d3…2606 at001b = ╱ea╱ ; ╱ // 0x25ee @0x1b
0x25d3…2606 at001c = ╱d0╱ CHR$ ╱ // 0x25ef @0x1c
0x25d3…2606 at001d = ╱ed╱ ( ╱ // 0x25f0 @0x1d
0x25d3…2606 at001e = ╱54╱T╱ // 0x25f1 @0x1e
0x25d3…2606 at001f = ╱4f╱O╱ // 0x25f2 @0x1f
0x25d3…2606 at0020 = ╱54╱T╱ // 0x25f3 @0x20
0x25d3…2606 at0021 = ╱ed╱ ( ╱ // 0x25f4 @0x21
0x25d3…2606 at0022 = ╱36╱6╱ // 0x25f5 @0x22
0x25d3…2606 at0023 = ╱f20600╱ // 0x25f6 @0x23
0x25d3…2606 at0026 = ╱ee╱ ) ╱ // 0x25f9 @0x26
0x25d3…2606 at0027 = ╱ec╱ , ╱ // 0x25fa @0x27
0x25d3…2606 at0028 = ╱39╱9╱ // 0x25fb @0x28
0x25d3…2606 at0029 = ╱f20900╱ // 0x25fc @0x29
0x25d3…2606 at002c = ╱ec╱ , ╱ // 0x25ff @0x2c
0x25d3…2606 at002d = ╱32╱2╱ // 0x2600 @0x2d
0x25d3…2606 at002e = ╱f20200╱ // 0x2601 @0x2e
0x25d3…2606 at0031 = ╱ee╱ ) ╱ // 0x2604 @0x31
0x25d3…2606 at0032 = EOL // 0x2605 @0x32
0x25d3…2606 }
0x2606…260c bbfa 03640 PRINT
0x2606…260c LineComal80 {
0x2606…260c ptr = 0xbbfa // 0x2606 @0x0
0x2606…260c lno = 0x0e38 // 0x2608 @0x2
0x2606…260c at0004 = ╱92╱ PRINT ╱ // 0x260a @0x4
0x2606…260c at0005 = EOL // 0x260b @0x5
0x2606…260c }
0x260c…263d bc2b 03650 PRINT "<S>" ; TAB ( 11 ) ; "BEHOLDNING…MORGEN" ; TAB ( 35 )
0x260c…263d LineComal80 {
0x260c…263d ptr = 0xbc2b // 0x260c @0x0
0x260c…263d lno = 0x0e42 // 0x260e @0x2
0x260c…263d at0004 = ╱92╱ PRINT ╱ // 0x2610 @0x4
0x260c…263d at0005 = ╱22╱"╱ // 0x2611 @0x5
0x260c…263d at0006 = ╱3c╱<╱ // 0x2612 @0x6
0x260c…263d at0007 = ╱53╱S╱ // 0x2613 @0x7
0x260c…263d at0008 = ╱3e╱>╱ // 0x2614 @0x8
0x260c…263d at0009 = ╱22╱"╱ // 0x2615 @0x9
0x260c…263d at000a = ╱ea╱ ; ╱ // 0x2616 @0xa
0x260c…263d at000b = ╱d2╱ TAB ╱ // 0x2617 @0xb
0x260c…263d at000c = ╱ed╱ ( ╱ // 0x2618 @0xc
0x260c…263d at000d = ╱31╱1╱ // 0x2619 @0xd
0x260c…263d at000e = ╱31╱1╱ // 0x261a @0xe
0x260c…263d at000f = ╱f20b00╱ // 0x261b @0xf
0x260c…263d at0012 = ╱ee╱ ) ╱ // 0x261e @0x12
0x260c…263d at0013 = ╱ea╱ ; ╱ // 0x261f @0x13
0x260c…263d at0014 = ╱22╱"╱ // 0x2620 @0x14
0x260c…263d at0015 = ╱42╱B╱ // 0x2621 @0x15
0x260c…263d at0016 = ╱45╱E╱ // 0x2622 @0x16
0x260c…263d at0017 = ╱48╱H╱ // 0x2623 @0x17
0x260c…263d at0018 = ╱4f╱O╱ // 0x2624 @0x18
0x260c…263d at0019 = ╱4c╱L╱ // 0x2625 @0x19
0x260c…263d at001a = ╱44╱D╱ // 0x2626 @0x1a
0x260c…263d at001b = ╱4e╱N╱ // 0x2627 @0x1b
0x260c…263d at001c = ╱49╱I╱ // 0x2628 @0x1c
0x260c…263d at001d = ╱4e╱N╱ // 0x2629 @0x1d
0x260c…263d at001e = ╱47╱G╱ // 0x262a @0x1e
0x260c…263d at001f = ╱20╱…╱ // 0x262b @0x1f
0x260c…263d at0020 = ╱4d╱M╱ // 0x262c @0x20
0x260c…263d at0021 = ╱4f╱O╱ // 0x262d @0x21
0x260c…263d at0022 = ╱52╱R╱ // 0x262e @0x22
0x260c…263d at0023 = ╱47╱G╱ // 0x262f @0x23
0x260c…263d at0024 = ╱45╱E╱ // 0x2630 @0x24
0x260c…263d at0025 = ╱4e╱N╱ // 0x2631 @0x25
0x260c…263d at0026 = ╱22╱"╱ // 0x2632 @0x26
0x260c…263d at0027 = ╱ea╱ ; ╱ // 0x2633 @0x27
0x260c…263d at0028 = ╱d2╱ TAB ╱ // 0x2634 @0x28
0x260c…263d at0029 = ╱ed╱ ( ╱ // 0x2635 @0x29
0x260c…263d at002a = ╱33╱3╱ // 0x2636 @0x2a
0x260c…263d at002b = ╱35╱5╱ // 0x2637 @0x2b
0x260c…263d at002c = ╱f22300╱ // 0x2638 @0x2c
0x260c…263d at002f = ╱ee╱ ) ╱ // 0x263b @0x2f
0x260c…263d at0030 = EOL // 0x263c @0x30
0x260c…263d }
0x263d…2657 bc45 03660 EXEC FIND_KTO ( KASSE_KTO $ )
0x263d…2657 LineComal80 {
0x263d…2657 ptr = 0xbc45 // 0x263d @0x0
0x263d…2657 lno = 0x0e4c // 0x263f @0x2
0x263d…2657 at0004 = ╱9d╱ EXEC ╱ // 0x2641 @0x4
0x263d…2657 at0005 = ╱46╱F╱ // 0x2642 @0x5
0x263d…2657 at0006 = ╱49╱I╱ // 0x2643 @0x6
0x263d…2657 at0007 = ╱4e╱N╱ // 0x2644 @0x7
0x263d…2657 at0008 = ╱44╱D╱ // 0x2645 @0x8
0x263d…2657 at0009 = ╱5f╱_╱ // 0x2646 @0x9
0x263d…2657 at000a = ╱4b╱K╱ // 0x2647 @0xa
0x263d…2657 at000b = ╱54╱T╱ // 0x2648 @0xb
0x263d…2657 at000c = ╱4f╱O╱ // 0x2649 @0xc
0x263d…2657 at000d = ╱ed╱ ( ╱ // 0x264a @0xd
0x263d…2657 at000e = ╱4b╱K╱ // 0x264b @0xe
0x263d…2657 at000f = ╱41╱A╱ // 0x264c @0xf
0x263d…2657 at0010 = ╱53╱S╱ // 0x264d @0x10
0x263d…2657 at0011 = ╱53╱S╱ // 0x264e @0x11
0x263d…2657 at0012 = ╱45╱E╱ // 0x264f @0x12
0x263d…2657 at0013 = ╱5f╱_╱ // 0x2650 @0x13
0x263d…2657 at0014 = ╱4b╱K╱ // 0x2651 @0x14
0x263d…2657 at0015 = ╱54╱T╱ // 0x2652 @0x15
0x263d…2657 at0016 = ╱4f╱O╱ // 0x2653 @0x16
0x263d…2657 at0017 = ╱ef╱ $ ╱ // 0x2654 @0x17
0x263d…2657 at0018 = ╱ee╱ ) ╱ // 0x2655 @0x18
0x263d…2657 at0019 = EOL // 0x2656 @0x19
0x263d…2657 }
0x2657…266d bc5b 03670 EXEC L[S_KONTO ( RECNR )
0x2657…266d LineComal80 {
0x2657…266d ptr = 0xbc5b // 0x2657 @0x0
0x2657…266d lno = 0x0e56 // 0x2659 @0x2
0x2657…266d at0004 = ╱9d╱ EXEC ╱ // 0x265b @0x4
0x2657…266d at0005 = ╱4c╱L╱ // 0x265c @0x5
0x2657…266d at0006 = ╱5b╱[╱ // 0x265d @0x6
0x2657…266d at0007 = ╱53╱S╱ // 0x265e @0x7
0x2657…266d at0008 = ╱5f╱_╱ // 0x265f @0x8
0x2657…266d at0009 = ╱4b╱K╱ // 0x2660 @0x9
0x2657…266d at000a = ╱4f╱O╱ // 0x2661 @0xa
0x2657…266d at000b = ╱4e╱N╱ // 0x2662 @0xb
0x2657…266d at000c = ╱54╱T╱ // 0x2663 @0xc
0x2657…266d at000d = ╱4f╱O╱ // 0x2664 @0xd
0x2657…266d at000e = ╱ed╱ ( ╱ // 0x2665 @0xe
0x2657…266d at000f = ╱52╱R╱ // 0x2666 @0xf
0x2657…266d at0010 = ╱45╱E╱ // 0x2667 @0x10
0x2657…266d at0011 = ╱43╱C╱ // 0x2668 @0x11
0x2657…266d at0012 = ╱4e╱N╱ // 0x2669 @0x12
0x2657…266d at0013 = ╱52╱R╱ // 0x266a @0x13
0x2657…266d at0014 = ╱ee╱ ) ╱ // 0x266b @0x14
0x2657…266d at0015 = EOL // 0x266c @0x15
0x2657…266d }
0x266d…2699 bc87 03680 PRINT "<S>" ; CHR$ ( KTO_ULTIMO , 9 , 2 ) ; TAB ( 28 )
0x266d…2699 LineComal80 {
0x266d…2699 ptr = 0xbc87 // 0x266d @0x0
0x266d…2699 lno = 0x0e60 // 0x266f @0x2
0x266d…2699 at0004 = ╱92╱ PRINT ╱ // 0x2671 @0x4
0x266d…2699 at0005 = ╱22╱"╱ // 0x2672 @0x5
0x266d…2699 at0006 = ╱3c╱<╱ // 0x2673 @0x6
0x266d…2699 at0007 = ╱53╱S╱ // 0x2674 @0x7
0x266d…2699 at0008 = ╱3e╱>╱ // 0x2675 @0x8
0x266d…2699 at0009 = ╱22╱"╱ // 0x2676 @0x9
0x266d…2699 at000a = ╱ea╱ ; ╱ // 0x2677 @0xa
0x266d…2699 at000b = ╱d0╱ CHR$ ╱ // 0x2678 @0xb
0x266d…2699 at000c = ╱ed╱ ( ╱ // 0x2679 @0xc
0x266d…2699 at000d = ╱4b╱K╱ // 0x267a @0xd
0x266d…2699 at000e = ╱54╱T╱ // 0x267b @0xe
0x266d…2699 at000f = ╱4f╱O╱ // 0x267c @0xf
0x266d…2699 at0010 = ╱5f╱_╱ // 0x267d @0x10
0x266d…2699 at0011 = ╱55╱U╱ // 0x267e @0x11
0x266d…2699 at0012 = ╱4c╱L╱ // 0x267f @0x12
0x266d…2699 at0013 = ╱54╱T╱ // 0x2680 @0x13
0x266d…2699 at0014 = ╱49╱I╱ // 0x2681 @0x14
0x266d…2699 at0015 = ╱4d╱M╱ // 0x2682 @0x15
0x266d…2699 at0016 = ╱4f╱O╱ // 0x2683 @0x16
0x266d…2699 at0017 = ╱ec╱ , ╱ // 0x2684 @0x17
0x266d…2699 at0018 = ╱39╱9╱ // 0x2685 @0x18
0x266d…2699 at0019 = ╱f20900╱ // 0x2686 @0x19
0x266d…2699 at001c = ╱ec╱ , ╱ // 0x2689 @0x1c
0x266d…2699 at001d = ╱32╱2╱ // 0x268a @0x1d
0x266d…2699 at001e = ╱f20200╱ // 0x268b @0x1e
0x266d…2699 at0021 = ╱ee╱ ) ╱ // 0x268e @0x21
0x266d…2699 at0022 = ╱ea╱ ; ╱ // 0x268f @0x22
0x266d…2699 at0023 = ╱d2╱ TAB ╱ // 0x2690 @0x23
0x266d…2699 at0024 = ╱ed╱ ( ╱ // 0x2691 @0x24
0x266d…2699 at0025 = ╱32╱2╱ // 0x2692 @0x25
0x266d…2699 at0026 = ╱38╱8╱ // 0x2693 @0x26
0x266d…2699 at0027 = ╱f21c00╱ // 0x2694 @0x27
0x266d…2699 at002a = ╱ee╱ ) ╱ // 0x2697 @0x2a
0x266d…2699 at002b = EOL // 0x2698 @0x2b
0x266d…2699 }
0x2699…26bd bcab 03690 LET BAL ( 1 ) := TOT ( 1 ) + KTO_ULTIMO
0x2699…26bd LineComal80 {
0x2699…26bd ptr = 0xbcab // 0x2699 @0x0
0x2699…26bd lno = 0x0e6a // 0x269b @0x2
0x2699…26bd at0004 = ╱86╱ LET ╱ // 0x269d @0x4
0x2699…26bd at0005 = ╱42╱B╱ // 0x269e @0x5
0x2699…26bd at0006 = ╱41╱A╱ // 0x269f @0x6
0x2699…26bd at0007 = ╱4c╱L╱ // 0x26a0 @0x7
0x2699…26bd at0008 = ╱ed╱ ( ╱ // 0x26a1 @0x8
0x2699…26bd at0009 = ╱31╱1╱ // 0x26a2 @0x9
0x2699…26bd at000a = ╱f20100╱ // 0x26a3 @0xa
0x2699…26bd at000d = ╱ee╱ ) ╱ // 0x26a6 @0xd
0x2699…26bd at000e = ╱f0╱ := ╱ // 0x26a7 @0xe
0x2699…26bd at000f = ╱54╱T╱ // 0x26a8 @0xf
0x2699…26bd at0010 = ╱4f╱O╱ // 0x26a9 @0x10
0x2699…26bd at0011 = ╱54╱T╱ // 0x26aa @0x11
0x2699…26bd at0012 = ╱ed╱ ( ╱ // 0x26ab @0x12
0x2699…26bd at0013 = ╱31╱1╱ // 0x26ac @0x13
0x2699…26bd at0014 = ╱f20100╱ // 0x26ad @0x14
0x2699…26bd at0017 = ╱ee╱ ) ╱ // 0x26b0 @0x17
0x2699…26bd at0018 = ╱e5╱ + ╱ // 0x26b1 @0x18
0x2699…26bd at0019 = ╱4b╱K╱ // 0x26b2 @0x19
0x2699…26bd at001a = ╱54╱T╱ // 0x26b3 @0x1a
0x2699…26bd at001b = ╱4f╱O╱ // 0x26b4 @0x1b
0x2699…26bd at001c = ╱5f╱_╱ // 0x26b5 @0x1c
0x2699…26bd at001d = ╱55╱U╱ // 0x26b6 @0x1d
0x2699…26bd at001e = ╱4c╱L╱ // 0x26b7 @0x1e
0x2699…26bd at001f = ╱54╱T╱ // 0x26b8 @0x1f
0x2699…26bd at0020 = ╱49╱I╱ // 0x26b9 @0x20
0x2699…26bd at0021 = ╱4d╱M╱ // 0x26ba @0x21
0x2699…26bd at0022 = ╱4f╱O╱ // 0x26bb @0x22
0x2699…26bd at0023 = EOL // 0x26bc @0x23
0x2699…26bd }
0x26bd…26d6 bcc4 03700 EXEC FIND_KTO ( BANK_KTO $ )
0x26bd…26d6 LineComal80 {
0x26bd…26d6 ptr = 0xbcc4 // 0x26bd @0x0
0x26bd…26d6 lno = 0x0e74 // 0x26bf @0x2
0x26bd…26d6 at0004 = ╱9d╱ EXEC ╱ // 0x26c1 @0x4
0x26bd…26d6 at0005 = ╱46╱F╱ // 0x26c2 @0x5
0x26bd…26d6 at0006 = ╱49╱I╱ // 0x26c3 @0x6
0x26bd…26d6 at0007 = ╱4e╱N╱ // 0x26c4 @0x7
0x26bd…26d6 at0008 = ╱44╱D╱ // 0x26c5 @0x8
0x26bd…26d6 at0009 = ╱5f╱_╱ // 0x26c6 @0x9
0x26bd…26d6 at000a = ╱4b╱K╱ // 0x26c7 @0xa
0x26bd…26d6 at000b = ╱54╱T╱ // 0x26c8 @0xb
0x26bd…26d6 at000c = ╱4f╱O╱ // 0x26c9 @0xc
0x26bd…26d6 at000d = ╱ed╱ ( ╱ // 0x26ca @0xd
0x26bd…26d6 at000e = ╱42╱B╱ // 0x26cb @0xe
0x26bd…26d6 at000f = ╱41╱A╱ // 0x26cc @0xf
0x26bd…26d6 at0010 = ╱4e╱N╱ // 0x26cd @0x10
0x26bd…26d6 at0011 = ╱4b╱K╱ // 0x26ce @0x11
0x26bd…26d6 at0012 = ╱5f╱_╱ // 0x26cf @0x12
0x26bd…26d6 at0013 = ╱4b╱K╱ // 0x26d0 @0x13
0x26bd…26d6 at0014 = ╱54╱T╱ // 0x26d1 @0x14
0x26bd…26d6 at0015 = ╱4f╱O╱ // 0x26d2 @0x15
0x26bd…26d6 at0016 = ╱ef╱ $ ╱ // 0x26d3 @0x16
0x26bd…26d6 at0017 = ╱ee╱ ) ╱ // 0x26d4 @0x17
0x26bd…26d6 at0018 = EOL // 0x26d5 @0x18
0x26bd…26d6 }
0x26d6…26ec bcda 03710 EXEC L[S_KONTO ( RECNR )
0x26d6…26ec LineComal80 {
0x26d6…26ec ptr = 0xbcda // 0x26d6 @0x0
0x26d6…26ec lno = 0x0e7e // 0x26d8 @0x2
0x26d6…26ec at0004 = ╱9d╱ EXEC ╱ // 0x26da @0x4
0x26d6…26ec at0005 = ╱4c╱L╱ // 0x26db @0x5
0x26d6…26ec at0006 = ╱5b╱[╱ // 0x26dc @0x6
0x26d6…26ec at0007 = ╱53╱S╱ // 0x26dd @0x7
0x26d6…26ec at0008 = ╱5f╱_╱ // 0x26de @0x8
0x26d6…26ec at0009 = ╱4b╱K╱ // 0x26df @0x9
0x26d6…26ec at000a = ╱4f╱O╱ // 0x26e0 @0xa
0x26d6…26ec at000b = ╱4e╱N╱ // 0x26e1 @0xb
0x26d6…26ec at000c = ╱54╱T╱ // 0x26e2 @0xc
0x26d6…26ec at000d = ╱4f╱O╱ // 0x26e3 @0xd
0x26d6…26ec at000e = ╱ed╱ ( ╱ // 0x26e4 @0xe
0x26d6…26ec at000f = ╱52╱R╱ // 0x26e5 @0xf
0x26d6…26ec at0010 = ╱45╱E╱ // 0x26e6 @0x10
0x26d6…26ec at0011 = ╱43╱C╱ // 0x26e7 @0x11
0x26d6…26ec at0012 = ╱4e╱N╱ // 0x26e8 @0x12
0x26d6…26ec at0013 = ╱52╱R╱ // 0x26e9 @0x13
0x26d6…26ec at0014 = ╱ee╱ ) ╱ // 0x26ea @0x14
0x26d6…26ec at0015 = EOL // 0x26eb @0x15
0x26d6…26ec }
0x26ec…2718 bd06 03720 PRINT "<S>" ; CHR$ ( KTO_ULTIMO , 9 , 2 ) ; TAB ( 28 )
0x26ec…2718 LineComal80 {
0x26ec…2718 ptr = 0xbd06 // 0x26ec @0x0
0x26ec…2718 lno = 0x0e88 // 0x26ee @0x2
0x26ec…2718 at0004 = ╱92╱ PRINT ╱ // 0x26f0 @0x4
0x26ec…2718 at0005 = ╱22╱"╱ // 0x26f1 @0x5
0x26ec…2718 at0006 = ╱3c╱<╱ // 0x26f2 @0x6
0x26ec…2718 at0007 = ╱53╱S╱ // 0x26f3 @0x7
0x26ec…2718 at0008 = ╱3e╱>╱ // 0x26f4 @0x8
0x26ec…2718 at0009 = ╱22╱"╱ // 0x26f5 @0x9
0x26ec…2718 at000a = ╱ea╱ ; ╱ // 0x26f6 @0xa
0x26ec…2718 at000b = ╱d0╱ CHR$ ╱ // 0x26f7 @0xb
0x26ec…2718 at000c = ╱ed╱ ( ╱ // 0x26f8 @0xc
0x26ec…2718 at000d = ╱4b╱K╱ // 0x26f9 @0xd
0x26ec…2718 at000e = ╱54╱T╱ // 0x26fa @0xe
0x26ec…2718 at000f = ╱4f╱O╱ // 0x26fb @0xf
0x26ec…2718 at0010 = ╱5f╱_╱ // 0x26fc @0x10
0x26ec…2718 at0011 = ╱55╱U╱ // 0x26fd @0x11
0x26ec…2718 at0012 = ╱4c╱L╱ // 0x26fe @0x12
0x26ec…2718 at0013 = ╱54╱T╱ // 0x26ff @0x13
0x26ec…2718 at0014 = ╱49╱I╱ // 0x2700 @0x14
0x26ec…2718 at0015 = ╱4d╱M╱ // 0x2701 @0x15
0x26ec…2718 at0016 = ╱4f╱O╱ // 0x2702 @0x16
0x26ec…2718 at0017 = ╱ec╱ , ╱ // 0x2703 @0x17
0x26ec…2718 at0018 = ╱39╱9╱ // 0x2704 @0x18
0x26ec…2718 at0019 = ╱f20900╱ // 0x2705 @0x19
0x26ec…2718 at001c = ╱ec╱ , ╱ // 0x2708 @0x1c
0x26ec…2718 at001d = ╱32╱2╱ // 0x2709 @0x1d
0x26ec…2718 at001e = ╱f20200╱ // 0x270a @0x1e
0x26ec…2718 at0021 = ╱ee╱ ) ╱ // 0x270d @0x21
0x26ec…2718 at0022 = ╱ea╱ ; ╱ // 0x270e @0x22
0x26ec…2718 at0023 = ╱d2╱ TAB ╱ // 0x270f @0x23
0x26ec…2718 at0024 = ╱ed╱ ( ╱ // 0x2710 @0x24
0x26ec…2718 at0025 = ╱32╱2╱ // 0x2711 @0x25
0x26ec…2718 at0026 = ╱38╱8╱ // 0x2712 @0x26
0x26ec…2718 at0027 = ╱f21c00╱ // 0x2713 @0x27
0x26ec…2718 at002a = ╱ee╱ ) ╱ // 0x2716 @0x2a
0x26ec…2718 at002b = EOL // 0x2717 @0x2b
0x26ec…2718 }
0x2718…273c bd2a 03730 LET BAL ( 3 ) := TOT ( 3 ) + KTO_ULTIMO
0x2718…273c LineComal80 {
0x2718…273c ptr = 0xbd2a // 0x2718 @0x0
0x2718…273c lno = 0x0e92 // 0x271a @0x2
0x2718…273c at0004 = ╱86╱ LET ╱ // 0x271c @0x4
0x2718…273c at0005 = ╱42╱B╱ // 0x271d @0x5
0x2718…273c at0006 = ╱41╱A╱ // 0x271e @0x6
0x2718…273c at0007 = ╱4c╱L╱ // 0x271f @0x7
0x2718…273c at0008 = ╱ed╱ ( ╱ // 0x2720 @0x8
0x2718…273c at0009 = ╱33╱3╱ // 0x2721 @0x9
0x2718…273c at000a = ╱f20300╱ // 0x2722 @0xa
0x2718…273c at000d = ╱ee╱ ) ╱ // 0x2725 @0xd
0x2718…273c at000e = ╱f0╱ := ╱ // 0x2726 @0xe
0x2718…273c at000f = ╱54╱T╱ // 0x2727 @0xf
0x2718…273c at0010 = ╱4f╱O╱ // 0x2728 @0x10
0x2718…273c at0011 = ╱54╱T╱ // 0x2729 @0x11
0x2718…273c at0012 = ╱ed╱ ( ╱ // 0x272a @0x12
0x2718…273c at0013 = ╱33╱3╱ // 0x272b @0x13
0x2718…273c at0014 = ╱f20300╱ // 0x272c @0x14
0x2718…273c at0017 = ╱ee╱ ) ╱ // 0x272f @0x17
0x2718…273c at0018 = ╱e5╱ + ╱ // 0x2730 @0x18
0x2718…273c at0019 = ╱4b╱K╱ // 0x2731 @0x19
0x2718…273c at001a = ╱54╱T╱ // 0x2732 @0x1a
0x2718…273c at001b = ╱4f╱O╱ // 0x2733 @0x1b
0x2718…273c at001c = ╱5f╱_╱ // 0x2734 @0x1c
0x2718…273c at001d = ╱55╱U╱ // 0x2735 @0x1d
0x2718…273c at001e = ╱4c╱L╱ // 0x2736 @0x1e
0x2718…273c at001f = ╱54╱T╱ // 0x2737 @0x1f
0x2718…273c at0020 = ╱49╱I╱ // 0x2738 @0x20
0x2718…273c at0021 = ╱4d╱M╱ // 0x2739 @0x21
0x2718…273c at0022 = ╱4f╱O╱ // 0x273a @0x22
0x2718…273c at0023 = EOL // 0x273b @0x23
0x2718…273c }
0x273c…2755 bd43 03740 EXEC FIND_KTO ( GIRO_KTO $ )
0x273c…2755 LineComal80 {
0x273c…2755 ptr = 0xbd43 // 0x273c @0x0
0x273c…2755 lno = 0x0e9c // 0x273e @0x2
0x273c…2755 at0004 = ╱9d╱ EXEC ╱ // 0x2740 @0x4
0x273c…2755 at0005 = ╱46╱F╱ // 0x2741 @0x5
0x273c…2755 at0006 = ╱49╱I╱ // 0x2742 @0x6
0x273c…2755 at0007 = ╱4e╱N╱ // 0x2743 @0x7
0x273c…2755 at0008 = ╱44╱D╱ // 0x2744 @0x8
0x273c…2755 at0009 = ╱5f╱_╱ // 0x2745 @0x9
0x273c…2755 at000a = ╱4b╱K╱ // 0x2746 @0xa
0x273c…2755 at000b = ╱54╱T╱ // 0x2747 @0xb
0x273c…2755 at000c = ╱4f╱O╱ // 0x2748 @0xc
0x273c…2755 at000d = ╱ed╱ ( ╱ // 0x2749 @0xd
0x273c…2755 at000e = ╱47╱G╱ // 0x274a @0xe
0x273c…2755 at000f = ╱49╱I╱ // 0x274b @0xf
0x273c…2755 at0010 = ╱52╱R╱ // 0x274c @0x10
0x273c…2755 at0011 = ╱4f╱O╱ // 0x274d @0x11
0x273c…2755 at0012 = ╱5f╱_╱ // 0x274e @0x12
0x273c…2755 at0013 = ╱4b╱K╱ // 0x274f @0x13
0x273c…2755 at0014 = ╱54╱T╱ // 0x2750 @0x14
0x273c…2755 at0015 = ╱4f╱O╱ // 0x2751 @0x15
0x273c…2755 at0016 = ╱ef╱ $ ╱ // 0x2752 @0x16
0x273c…2755 at0017 = ╱ee╱ ) ╱ // 0x2753 @0x17
0x273c…2755 at0018 = EOL // 0x2754 @0x18
0x273c…2755 }
0x2755…276b bd59 03750 EXEC L[S_KONTO ( RECNR )
0x2755…276b LineComal80 {
0x2755…276b ptr = 0xbd59 // 0x2755 @0x0
0x2755…276b lno = 0x0ea6 // 0x2757 @0x2
0x2755…276b at0004 = ╱9d╱ EXEC ╱ // 0x2759 @0x4
0x2755…276b at0005 = ╱4c╱L╱ // 0x275a @0x5
0x2755…276b at0006 = ╱5b╱[╱ // 0x275b @0x6
0x2755…276b at0007 = ╱53╱S╱ // 0x275c @0x7
0x2755…276b at0008 = ╱5f╱_╱ // 0x275d @0x8
0x2755…276b at0009 = ╱4b╱K╱ // 0x275e @0x9
0x2755…276b at000a = ╱4f╱O╱ // 0x275f @0xa
0x2755…276b at000b = ╱4e╱N╱ // 0x2760 @0xb
0x2755…276b at000c = ╱54╱T╱ // 0x2761 @0xc
0x2755…276b at000d = ╱4f╱O╱ // 0x2762 @0xd
0x2755…276b at000e = ╱ed╱ ( ╱ // 0x2763 @0xe
0x2755…276b at000f = ╱52╱R╱ // 0x2764 @0xf
0x2755…276b at0010 = ╱45╱E╱ // 0x2765 @0x10
0x2755…276b at0011 = ╱43╱C╱ // 0x2766 @0x11
0x2755…276b at0012 = ╱4e╱N╱ // 0x2767 @0x12
0x2755…276b at0013 = ╱52╱R╱ // 0x2768 @0x13
0x2755…276b at0014 = ╱ee╱ ) ╱ // 0x2769 @0x14
0x2755…276b at0015 = EOL // 0x276a @0x15
0x2755…276b }
0x276b…2788 bd76 03760 PRINT CHR$ ( KTO_ULTIMO , 9 , 2 )
0x276b…2788 LineComal80 {
0x276b…2788 ptr = 0xbd76 // 0x276b @0x0
0x276b…2788 lno = 0x0eb0 // 0x276d @0x2
0x276b…2788 at0004 = ╱92╱ PRINT ╱ // 0x276f @0x4
0x276b…2788 at0005 = ╱d0╱ CHR$ ╱ // 0x2770 @0x5
0x276b…2788 at0006 = ╱ed╱ ( ╱ // 0x2771 @0x6
0x276b…2788 at0007 = ╱4b╱K╱ // 0x2772 @0x7
0x276b…2788 at0008 = ╱54╱T╱ // 0x2773 @0x8
0x276b…2788 at0009 = ╱4f╱O╱ // 0x2774 @0x9
0x276b…2788 at000a = ╱5f╱_╱ // 0x2775 @0xa
0x276b…2788 at000b = ╱55╱U╱ // 0x2776 @0xb
0x276b…2788 at000c = ╱4c╱L╱ // 0x2777 @0xc
0x276b…2788 at000d = ╱54╱T╱ // 0x2778 @0xd
0x276b…2788 at000e = ╱49╱I╱ // 0x2779 @0xe
0x276b…2788 at000f = ╱4d╱M╱ // 0x277a @0xf
0x276b…2788 at0010 = ╱4f╱O╱ // 0x277b @0x10
0x276b…2788 at0011 = ╱ec╱ , ╱ // 0x277c @0x11
0x276b…2788 at0012 = ╱39╱9╱ // 0x277d @0x12
0x276b…2788 at0013 = ╱f20900╱ // 0x277e @0x13
0x276b…2788 at0016 = ╱ec╱ , ╱ // 0x2781 @0x16
0x276b…2788 at0017 = ╱32╱2╱ // 0x2782 @0x17
0x276b…2788 at0018 = ╱f20200╱ // 0x2783 @0x18
0x276b…2788 at001b = ╱ee╱ ) ╱ // 0x2786 @0x1b
0x276b…2788 at001c = EOL // 0x2787 @0x1c
0x276b…2788 }
0x2788…27ac bd9a 03770 LET BAL ( 5 ) := TOT ( 5 ) + KTO_ULTIMO
0x2788…27ac LineComal80 {
0x2788…27ac ptr = 0xbd9a // 0x2788 @0x0
0x2788…27ac lno = 0x0eba // 0x278a @0x2
0x2788…27ac at0004 = ╱86╱ LET ╱ // 0x278c @0x4
0x2788…27ac at0005 = ╱42╱B╱ // 0x278d @0x5
0x2788…27ac at0006 = ╱41╱A╱ // 0x278e @0x6
0x2788…27ac at0007 = ╱4c╱L╱ // 0x278f @0x7
0x2788…27ac at0008 = ╱ed╱ ( ╱ // 0x2790 @0x8
0x2788…27ac at0009 = ╱35╱5╱ // 0x2791 @0x9
0x2788…27ac at000a = ╱f20500╱ // 0x2792 @0xa
0x2788…27ac at000d = ╱ee╱ ) ╱ // 0x2795 @0xd
0x2788…27ac at000e = ╱f0╱ := ╱ // 0x2796 @0xe
0x2788…27ac at000f = ╱54╱T╱ // 0x2797 @0xf
0x2788…27ac at0010 = ╱4f╱O╱ // 0x2798 @0x10
0x2788…27ac at0011 = ╱54╱T╱ // 0x2799 @0x11
0x2788…27ac at0012 = ╱ed╱ ( ╱ // 0x279a @0x12
0x2788…27ac at0013 = ╱35╱5╱ // 0x279b @0x13
0x2788…27ac at0014 = ╱f20500╱ // 0x279c @0x14
0x2788…27ac at0017 = ╱ee╱ ) ╱ // 0x279f @0x17
0x2788…27ac at0018 = ╱e5╱ + ╱ // 0x27a0 @0x18
0x2788…27ac at0019 = ╱4b╱K╱ // 0x27a1 @0x19
0x2788…27ac at001a = ╱54╱T╱ // 0x27a2 @0x1a
0x2788…27ac at001b = ╱4f╱O╱ // 0x27a3 @0x1b
0x2788…27ac at001c = ╱5f╱_╱ // 0x27a4 @0x1c
0x2788…27ac at001d = ╱55╱U╱ // 0x27a5 @0x1d
0x2788…27ac at001e = ╱4c╱L╱ // 0x27a6 @0x1e
0x2788…27ac at001f = ╱54╱T╱ // 0x27a7 @0x1f
0x2788…27ac at0020 = ╱49╱I╱ // 0x27a8 @0x20
0x2788…27ac at0021 = ╱4d╱M╱ // 0x27a9 @0x21
0x2788…27ac at0022 = ╱4f╱O╱ // 0x27aa @0x22
0x2788…27ac at0023 = EOL // 0x27ab @0x23
0x2788…27ac }
0x27ac…27dc bdca 03780 PRINT "<S>" ; TAB ( 11 ) ; "BEHOLDNING…AFTEN" ; TAB ( 47 )
0x27ac…27dc LineComal80 {
0x27ac…27dc ptr = 0xbdca // 0x27ac @0x0
0x27ac…27dc lno = 0x0ec4 // 0x27ae @0x2
0x27ac…27dc at0004 = ╱92╱ PRINT ╱ // 0x27b0 @0x4
0x27ac…27dc at0005 = ╱22╱"╱ // 0x27b1 @0x5
0x27ac…27dc at0006 = ╱3c╱<╱ // 0x27b2 @0x6
0x27ac…27dc at0007 = ╱53╱S╱ // 0x27b3 @0x7
0x27ac…27dc at0008 = ╱3e╱>╱ // 0x27b4 @0x8
0x27ac…27dc at0009 = ╱22╱"╱ // 0x27b5 @0x9
0x27ac…27dc at000a = ╱ea╱ ; ╱ // 0x27b6 @0xa
0x27ac…27dc at000b = ╱d2╱ TAB ╱ // 0x27b7 @0xb
0x27ac…27dc at000c = ╱ed╱ ( ╱ // 0x27b8 @0xc
0x27ac…27dc at000d = ╱31╱1╱ // 0x27b9 @0xd
0x27ac…27dc at000e = ╱31╱1╱ // 0x27ba @0xe
0x27ac…27dc at000f = ╱f20b00╱ // 0x27bb @0xf
0x27ac…27dc at0012 = ╱ee╱ ) ╱ // 0x27be @0x12
0x27ac…27dc at0013 = ╱ea╱ ; ╱ // 0x27bf @0x13
0x27ac…27dc at0014 = ╱22╱"╱ // 0x27c0 @0x14
0x27ac…27dc at0015 = ╱42╱B╱ // 0x27c1 @0x15
0x27ac…27dc at0016 = ╱45╱E╱ // 0x27c2 @0x16
0x27ac…27dc at0017 = ╱48╱H╱ // 0x27c3 @0x17
0x27ac…27dc at0018 = ╱4f╱O╱ // 0x27c4 @0x18
0x27ac…27dc at0019 = ╱4c╱L╱ // 0x27c5 @0x19
0x27ac…27dc at001a = ╱44╱D╱ // 0x27c6 @0x1a
0x27ac…27dc at001b = ╱4e╱N╱ // 0x27c7 @0x1b
0x27ac…27dc at001c = ╱49╱I╱ // 0x27c8 @0x1c
0x27ac…27dc at001d = ╱4e╱N╱ // 0x27c9 @0x1d
0x27ac…27dc at001e = ╱47╱G╱ // 0x27ca @0x1e
0x27ac…27dc at001f = ╱20╱…╱ // 0x27cb @0x1f
0x27ac…27dc at0020 = ╱41╱A╱ // 0x27cc @0x20
0x27ac…27dc at0021 = ╱46╱F╱ // 0x27cd @0x21
0x27ac…27dc at0022 = ╱54╱T╱ // 0x27ce @0x22
0x27ac…27dc at0023 = ╱45╱E╱ // 0x27cf @0x23
0x27ac…27dc at0024 = ╱4e╱N╱ // 0x27d0 @0x24
0x27ac…27dc at0025 = ╱22╱"╱ // 0x27d1 @0x25
0x27ac…27dc at0026 = ╱ea╱ ; ╱ // 0x27d2 @0x26
0x27ac…27dc at0027 = ╱d2╱ TAB ╱ // 0x27d3 @0x27
0x27ac…27dc at0028 = ╱ed╱ ( ╱ // 0x27d4 @0x28
0x27ac…27dc at0029 = ╱34╱4╱ // 0x27d5 @0x29
0x27ac…27dc at002a = ╱37╱7╱ // 0x27d6 @0x2a
0x27ac…27dc at002b = ╱f22f00╱ // 0x27d7 @0x2b
0x27ac…27dc at002e = ╱ee╱ ) ╱ // 0x27da @0x2e
0x27ac…27dc at002f = EOL // 0x27db @0x2f
0x27ac…27dc }
0x27dc…2807 bdf5 03790 PRINT "<S>" ; CHR$ ( KASSE_BEH , 9 , 2 ) ; TAB ( 28 )
0x27dc…2807 LineComal80 {
0x27dc…2807 ptr = 0xbdf5 // 0x27dc @0x0
0x27dc…2807 lno = 0x0ece // 0x27de @0x2
0x27dc…2807 at0004 = ╱92╱ PRINT ╱ // 0x27e0 @0x4
0x27dc…2807 at0005 = ╱22╱"╱ // 0x27e1 @0x5
0x27dc…2807 at0006 = ╱3c╱<╱ // 0x27e2 @0x6
0x27dc…2807 at0007 = ╱53╱S╱ // 0x27e3 @0x7
0x27dc…2807 at0008 = ╱3e╱>╱ // 0x27e4 @0x8
0x27dc…2807 at0009 = ╱22╱"╱ // 0x27e5 @0x9
0x27dc…2807 at000a = ╱ea╱ ; ╱ // 0x27e6 @0xa
0x27dc…2807 at000b = ╱d0╱ CHR$ ╱ // 0x27e7 @0xb
0x27dc…2807 at000c = ╱ed╱ ( ╱ // 0x27e8 @0xc
0x27dc…2807 at000d = ╱4b╱K╱ // 0x27e9 @0xd
0x27dc…2807 at000e = ╱41╱A╱ // 0x27ea @0xe
0x27dc…2807 at000f = ╱53╱S╱ // 0x27eb @0xf
0x27dc…2807 at0010 = ╱53╱S╱ // 0x27ec @0x10
0x27dc…2807 at0011 = ╱45╱E╱ // 0x27ed @0x11
0x27dc…2807 at0012 = ╱5f╱_╱ // 0x27ee @0x12
0x27dc…2807 at0013 = ╱42╱B╱ // 0x27ef @0x13
0x27dc…2807 at0014 = ╱45╱E╱ // 0x27f0 @0x14
0x27dc…2807 at0015 = ╱48╱H╱ // 0x27f1 @0x15
0x27dc…2807 at0016 = ╱ec╱ , ╱ // 0x27f2 @0x16
0x27dc…2807 at0017 = ╱39╱9╱ // 0x27f3 @0x17
0x27dc…2807 at0018 = ╱f20900╱ // 0x27f4 @0x18
0x27dc…2807 at001b = ╱ec╱ , ╱ // 0x27f7 @0x1b
0x27dc…2807 at001c = ╱32╱2╱ // 0x27f8 @0x1c
0x27dc…2807 at001d = ╱f20200╱ // 0x27f9 @0x1d
0x27dc…2807 at0020 = ╱ee╱ ) ╱ // 0x27fc @0x20
0x27dc…2807 at0021 = ╱ea╱ ; ╱ // 0x27fd @0x21
0x27dc…2807 at0022 = ╱d2╱ TAB ╱ // 0x27fe @0x22
0x27dc…2807 at0023 = ╱ed╱ ( ╱ // 0x27ff @0x23
0x27dc…2807 at0024 = ╱32╱2╱ // 0x2800 @0x24
0x27dc…2807 at0025 = ╱38╱8╱ // 0x2801 @0x25
0x27dc…2807 at0026 = ╱f21c00╱ // 0x2802 @0x26
0x27dc…2807 at0029 = ╱ee╱ ) ╱ // 0x2805 @0x29
0x27dc…2807 at002a = EOL // 0x2806 @0x2a
0x27dc…2807 }
0x2807…283c be2a 03800 PRINT "<S>" ; CHR$ ( BAL ( 3 ) - TOT ( 4 ) , 9 , 2 ) ; TAB ( 28 )
0x2807…283c LineComal80 {
0x2807…283c ptr = 0xbe2a // 0x2807 @0x0
0x2807…283c lno = 0x0ed8 // 0x2809 @0x2
0x2807…283c at0004 = ╱92╱ PRINT ╱ // 0x280b @0x4
0x2807…283c at0005 = ╱22╱"╱ // 0x280c @0x5
0x2807…283c at0006 = ╱3c╱<╱ // 0x280d @0x6
0x2807…283c at0007 = ╱53╱S╱ // 0x280e @0x7
0x2807…283c at0008 = ╱3e╱>╱ // 0x280f @0x8
0x2807…283c at0009 = ╱22╱"╱ // 0x2810 @0x9
0x2807…283c at000a = ╱ea╱ ; ╱ // 0x2811 @0xa
0x2807…283c at000b = ╱d0╱ CHR$ ╱ // 0x2812 @0xb
0x2807…283c at000c = ╱ed╱ ( ╱ // 0x2813 @0xc
0x2807…283c at000d = ╱42╱B╱ // 0x2814 @0xd
0x2807…283c at000e = ╱41╱A╱ // 0x2815 @0xe
0x2807…283c at000f = ╱4c╱L╱ // 0x2816 @0xf
0x2807…283c at0010 = ╱ed╱ ( ╱ // 0x2817 @0x10
0x2807…283c at0011 = ╱33╱3╱ // 0x2818 @0x11
0x2807…283c at0012 = ╱f20300╱ // 0x2819 @0x12
0x2807…283c at0015 = ╱ee╱ ) ╱ // 0x281c @0x15
0x2807…283c at0016 = ╱e6╱ - ╱ // 0x281d @0x16
0x2807…283c at0017 = ╱54╱T╱ // 0x281e @0x17
0x2807…283c at0018 = ╱4f╱O╱ // 0x281f @0x18
0x2807…283c at0019 = ╱54╱T╱ // 0x2820 @0x19
0x2807…283c at001a = ╱ed╱ ( ╱ // 0x2821 @0x1a
0x2807…283c at001b = ╱34╱4╱ // 0x2822 @0x1b
0x2807…283c at001c = ╱f20400╱ // 0x2823 @0x1c
0x2807…283c at001f = ╱ee╱ ) ╱ // 0x2826 @0x1f
0x2807…283c at0020 = ╱ec╱ , ╱ // 0x2827 @0x20
0x2807…283c at0021 = ╱39╱9╱ // 0x2828 @0x21
0x2807…283c at0022 = ╱f20900╱ // 0x2829 @0x22
0x2807…283c at0025 = ╱ec╱ , ╱ // 0x282c @0x25
0x2807…283c at0026 = ╱32╱2╱ // 0x282d @0x26
0x2807…283c at0027 = ╱f20200╱ // 0x282e @0x27
0x2807…283c at002a = ╱ee╱ ) ╱ // 0x2831 @0x2a
0x2807…283c at002b = ╱ea╱ ; ╱ // 0x2832 @0x2b
0x2807…283c at002c = ╱d2╱ TAB ╱ // 0x2833 @0x2c
0x2807…283c at002d = ╱ed╱ ( ╱ // 0x2834 @0x2d
0x2807…283c at002e = ╱32╱2╱ // 0x2835 @0x2e
0x2807…283c at002f = ╱38╱8╱ // 0x2836 @0x2f
0x2807…283c at0030 = ╱f21c00╱ // 0x2837 @0x30
0x2807…283c at0033 = ╱ee╱ ) ╱ // 0x283a @0x33
0x2807…283c at0034 = EOL // 0x283b @0x34
0x2807…283c }
0x283c…2862 be50 03810 PRINT CHR$ ( BAL ( 5 ) - TOT ( 6 ) , 9 , 2 )
0x283c…2862 LineComal80 {
0x283c…2862 ptr = 0xbe50 // 0x283c @0x0
0x283c…2862 lno = 0x0ee2 // 0x283e @0x2
0x283c…2862 at0004 = ╱92╱ PRINT ╱ // 0x2840 @0x4
0x283c…2862 at0005 = ╱d0╱ CHR$ ╱ // 0x2841 @0x5
0x283c…2862 at0006 = ╱ed╱ ( ╱ // 0x2842 @0x6
0x283c…2862 at0007 = ╱42╱B╱ // 0x2843 @0x7
0x283c…2862 at0008 = ╱41╱A╱ // 0x2844 @0x8
0x283c…2862 at0009 = ╱4c╱L╱ // 0x2845 @0x9
0x283c…2862 at000a = ╱ed╱ ( ╱ // 0x2846 @0xa
0x283c…2862 at000b = ╱35╱5╱ // 0x2847 @0xb
0x283c…2862 at000c = ╱f20500╱ // 0x2848 @0xc
0x283c…2862 at000f = ╱ee╱ ) ╱ // 0x284b @0xf
0x283c…2862 at0010 = ╱e6╱ - ╱ // 0x284c @0x10
0x283c…2862 at0011 = ╱54╱T╱ // 0x284d @0x11
0x283c…2862 at0012 = ╱4f╱O╱ // 0x284e @0x12
0x283c…2862 at0013 = ╱54╱T╱ // 0x284f @0x13
0x283c…2862 at0014 = ╱ed╱ ( ╱ // 0x2850 @0x14
0x283c…2862 at0015 = ╱36╱6╱ // 0x2851 @0x15
0x283c…2862 at0016 = ╱f20600╱ // 0x2852 @0x16
0x283c…2862 at0019 = ╱ee╱ ) ╱ // 0x2855 @0x19
0x283c…2862 at001a = ╱ec╱ , ╱ // 0x2856 @0x1a
0x283c…2862 at001b = ╱39╱9╱ // 0x2857 @0x1b
0x283c…2862 at001c = ╱f20900╱ // 0x2858 @0x1c
0x283c…2862 at001f = ╱ec╱ , ╱ // 0x285b @0x1f
0x283c…2862 at0020 = ╱32╱2╱ // 0x285c @0x20
0x283c…2862 at0021 = ╱f20200╱ // 0x285d @0x21
0x283c…2862 at0024 = ╱ee╱ ) ╱ // 0x2860 @0x24
0x283c…2862 at0025 = EOL // 0x2861 @0x25
0x283c…2862 }
0x2862…28a6 be94 03820 PRINT "<S>………………………………………………………………………………………----------……----------……"
0x2862…28a6 LineComal80 {
0x2862…28a6 ptr = 0xbe94 // 0x2862 @0x0
0x2862…28a6 lno = 0x0eec // 0x2864 @0x2
0x2862…28a6 at0004 = ╱92╱ PRINT ╱ // 0x2866 @0x4
0x2862…28a6 at0005 = ╱22╱"╱ // 0x2867 @0x5
0x2862…28a6 at0006 = ╱3c╱<╱ // 0x2868 @0x6
0x2862…28a6 at0007 = ╱53╱S╱ // 0x2869 @0x7
0x2862…28a6 at0008 = ╱3e╱>╱ // 0x286a @0x8
0x2862…28a6 at0009 = ╱20╱…╱ // 0x286b @0x9
0x2862…28a6 at000a = ╱20╱…╱ // 0x286c @0xa
0x2862…28a6 at000b = ╱20╱…╱ // 0x286d @0xb
0x2862…28a6 at000c = ╱20╱…╱ // 0x286e @0xc
0x2862…28a6 at000d = ╱20╱…╱ // 0x286f @0xd
0x2862…28a6 at000e = ╱20╱…╱ // 0x2870 @0xe
0x2862…28a6 at000f = ╱20╱…╱ // 0x2871 @0xf
0x2862…28a6 at0010 = ╱20╱…╱ // 0x2872 @0x10
0x2862…28a6 at0011 = ╱20╱…╱ // 0x2873 @0x11
0x2862…28a6 at0012 = ╱20╱…╱ // 0x2874 @0x12
0x2862…28a6 at0013 = ╱20╱…╱ // 0x2875 @0x13
0x2862…28a6 at0014 = ╱20╱…╱ // 0x2876 @0x14
0x2862…28a6 at0015 = ╱20╱…╱ // 0x2877 @0x15
0x2862…28a6 at0016 = ╱20╱…╱ // 0x2878 @0x16
0x2862…28a6 at0017 = ╱20╱…╱ // 0x2879 @0x17
0x2862…28a6 at0018 = ╱20╱…╱ // 0x287a @0x18
0x2862…28a6 at0019 = ╱20╱…╱ // 0x287b @0x19
0x2862…28a6 at001a = ╱20╱…╱ // 0x287c @0x1a
0x2862…28a6 at001b = ╱20╱…╱ // 0x287d @0x1b
0x2862…28a6 at001c = ╱20╱…╱ // 0x287e @0x1c
0x2862…28a6 at001d = ╱20╱…╱ // 0x287f @0x1d
0x2862…28a6 at001e = ╱20╱…╱ // 0x2880 @0x1e
0x2862…28a6 at001f = ╱20╱…╱ // 0x2881 @0x1f
0x2862…28a6 at0020 = ╱20╱…╱ // 0x2882 @0x20
0x2862…28a6 at0021 = ╱20╱…╱ // 0x2883 @0x21
0x2862…28a6 at0022 = ╱20╱…╱ // 0x2884 @0x22
0x2862…28a6 at0023 = ╱20╱…╱ // 0x2885 @0x23
0x2862…28a6 at0024 = ╱20╱…╱ // 0x2886 @0x24
0x2862…28a6 at0025 = ╱20╱…╱ // 0x2887 @0x25
0x2862…28a6 at0026 = ╱20╱…╱ // 0x2888 @0x26
0x2862…28a6 at0027 = ╱20╱…╱ // 0x2889 @0x27
0x2862…28a6 at0028 = ╱20╱…╱ // 0x288a @0x28
0x2862…28a6 at0029 = ╱20╱…╱ // 0x288b @0x29
0x2862…28a6 at002a = ╱2d╱-╱ // 0x288c @0x2a
0x2862…28a6 at002b = ╱2d╱-╱ // 0x288d @0x2b
0x2862…28a6 at002c = ╱2d╱-╱ // 0x288e @0x2c
0x2862…28a6 at002d = ╱2d╱-╱ // 0x288f @0x2d
0x2862…28a6 at002e = ╱2d╱-╱ // 0x2890 @0x2e
0x2862…28a6 at002f = ╱2d╱-╱ // 0x2891 @0x2f
0x2862…28a6 at0030 = ╱2d╱-╱ // 0x2892 @0x30
0x2862…28a6 at0031 = ╱2d╱-╱ // 0x2893 @0x31
0x2862…28a6 at0032 = ╱2d╱-╱ // 0x2894 @0x32
0x2862…28a6 at0033 = ╱2d╱-╱ // 0x2895 @0x33
0x2862…28a6 at0034 = ╱20╱…╱ // 0x2896 @0x34
0x2862…28a6 at0035 = ╱20╱…╱ // 0x2897 @0x35
0x2862…28a6 at0036 = ╱2d╱-╱ // 0x2898 @0x36
0x2862…28a6 at0037 = ╱2d╱-╱ // 0x2899 @0x37
0x2862…28a6 at0038 = ╱2d╱-╱ // 0x289a @0x38
0x2862…28a6 at0039 = ╱2d╱-╱ // 0x289b @0x39
0x2862…28a6 at003a = ╱2d╱-╱ // 0x289c @0x3a
0x2862…28a6 at003b = ╱2d╱-╱ // 0x289d @0x3b
0x2862…28a6 at003c = ╱2d╱-╱ // 0x289e @0x3c
0x2862…28a6 at003d = ╱2d╱-╱ // 0x289f @0x3d
0x2862…28a6 at003e = ╱2d╱-╱ // 0x28a0 @0x3e
0x2862…28a6 at003f = ╱2d╱-╱ // 0x28a1 @0x3f
0x2862…28a6 at0040 = ╱20╱…╱ // 0x28a2 @0x40
0x2862…28a6 at0041 = ╱20╱…╱ // 0x28a3 @0x41
0x2862…28a6 at0042 = ╱22╱"╱ // 0x28a4 @0x42
0x2862…28a6 at0043 = EOL // 0x28a5 @0x43
0x2862…28a6 }
0x28a6…28dc beca 03830 PRINT "----------……----------……----------……----------"
0x28a6…28dc LineComal80 {
0x28a6…28dc ptr = 0xbeca // 0x28a6 @0x0
0x28a6…28dc lno = 0x0ef6 // 0x28a8 @0x2
0x28a6…28dc at0004 = ╱92╱ PRINT ╱ // 0x28aa @0x4
0x28a6…28dc at0005 = ╱22╱"╱ // 0x28ab @0x5
0x28a6…28dc at0006 = ╱2d╱-╱ // 0x28ac @0x6
0x28a6…28dc at0007 = ╱2d╱-╱ // 0x28ad @0x7
0x28a6…28dc at0008 = ╱2d╱-╱ // 0x28ae @0x8
0x28a6…28dc at0009 = ╱2d╱-╱ // 0x28af @0x9
0x28a6…28dc at000a = ╱2d╱-╱ // 0x28b0 @0xa
0x28a6…28dc at000b = ╱2d╱-╱ // 0x28b1 @0xb
0x28a6…28dc at000c = ╱2d╱-╱ // 0x28b2 @0xc
0x28a6…28dc at000d = ╱2d╱-╱ // 0x28b3 @0xd
0x28a6…28dc at000e = ╱2d╱-╱ // 0x28b4 @0xe
0x28a6…28dc at000f = ╱2d╱-╱ // 0x28b5 @0xf
0x28a6…28dc at0010 = ╱20╱…╱ // 0x28b6 @0x10
0x28a6…28dc at0011 = ╱20╱…╱ // 0x28b7 @0x11
0x28a6…28dc at0012 = ╱2d╱-╱ // 0x28b8 @0x12
0x28a6…28dc at0013 = ╱2d╱-╱ // 0x28b9 @0x13
0x28a6…28dc at0014 = ╱2d╱-╱ // 0x28ba @0x14
0x28a6…28dc at0015 = ╱2d╱-╱ // 0x28bb @0x15
0x28a6…28dc at0016 = ╱2d╱-╱ // 0x28bc @0x16
0x28a6…28dc at0017 = ╱2d╱-╱ // 0x28bd @0x17
0x28a6…28dc at0018 = ╱2d╱-╱ // 0x28be @0x18
0x28a6…28dc at0019 = ╱2d╱-╱ // 0x28bf @0x19
0x28a6…28dc at001a = ╱2d╱-╱ // 0x28c0 @0x1a
0x28a6…28dc at001b = ╱2d╱-╱ // 0x28c1 @0x1b
0x28a6…28dc at001c = ╱20╱…╱ // 0x28c2 @0x1c
0x28a6…28dc at001d = ╱20╱…╱ // 0x28c3 @0x1d
0x28a6…28dc at001e = ╱2d╱-╱ // 0x28c4 @0x1e
0x28a6…28dc at001f = ╱2d╱-╱ // 0x28c5 @0x1f
0x28a6…28dc at0020 = ╱2d╱-╱ // 0x28c6 @0x20
0x28a6…28dc at0021 = ╱2d╱-╱ // 0x28c7 @0x21
0x28a6…28dc at0022 = ╱2d╱-╱ // 0x28c8 @0x22
0x28a6…28dc at0023 = ╱2d╱-╱ // 0x28c9 @0x23
0x28a6…28dc at0024 = ╱2d╱-╱ // 0x28ca @0x24
0x28a6…28dc at0025 = ╱2d╱-╱ // 0x28cb @0x25
0x28a6…28dc at0026 = ╱2d╱-╱ // 0x28cc @0x26
0x28a6…28dc at0027 = ╱2d╱-╱ // 0x28cd @0x27
0x28a6…28dc at0028 = ╱20╱…╱ // 0x28ce @0x28
0x28a6…28dc at0029 = ╱20╱…╱ // 0x28cf @0x29
0x28a6…28dc at002a = ╱2d╱-╱ // 0x28d0 @0x2a
0x28a6…28dc at002b = ╱2d╱-╱ // 0x28d1 @0x2b
0x28a6…28dc at002c = ╱2d╱-╱ // 0x28d2 @0x2c
0x28a6…28dc at002d = ╱2d╱-╱ // 0x28d3 @0x2d
0x28a6…28dc at002e = ╱2d╱-╱ // 0x28d4 @0x2e
0x28a6…28dc at002f = ╱2d╱-╱ // 0x28d5 @0x2f
0x28a6…28dc at0030 = ╱2d╱-╱ // 0x28d6 @0x30
0x28a6…28dc at0031 = ╱2d╱-╱ // 0x28d7 @0x31
0x28a6…28dc at0032 = ╱2d╱-╱ // 0x28d8 @0x32
0x28a6…28dc at0033 = ╱2d╱-╱ // 0x28d9 @0x33
0x28a6…28dc at0034 = ╱22╱"╱ // 0x28da @0x34
0x28a6…28dc at0035 = EOL // 0x28db @0x35
0x28a6…28dc }
0x28dc…2903 bef1 03840 PRINT "<S>" ; TAB ( 11 ) ; "BALANCE" ; TAB ( 35 )
0x28dc…2903 LineComal80 {
0x28dc…2903 ptr = 0xbef1 // 0x28dc @0x0
0x28dc…2903 lno = 0x0f00 // 0x28de @0x2
0x28dc…2903 at0004 = ╱92╱ PRINT ╱ // 0x28e0 @0x4
0x28dc…2903 at0005 = ╱22╱"╱ // 0x28e1 @0x5
0x28dc…2903 at0006 = ╱3c╱<╱ // 0x28e2 @0x6
0x28dc…2903 at0007 = ╱53╱S╱ // 0x28e3 @0x7
0x28dc…2903 at0008 = ╱3e╱>╱ // 0x28e4 @0x8
0x28dc…2903 at0009 = ╱22╱"╱ // 0x28e5 @0x9
0x28dc…2903 at000a = ╱ea╱ ; ╱ // 0x28e6 @0xa
0x28dc…2903 at000b = ╱d2╱ TAB ╱ // 0x28e7 @0xb
0x28dc…2903 at000c = ╱ed╱ ( ╱ // 0x28e8 @0xc
0x28dc…2903 at000d = ╱31╱1╱ // 0x28e9 @0xd
0x28dc…2903 at000e = ╱31╱1╱ // 0x28ea @0xe
0x28dc…2903 at000f = ╱f20b00╱ // 0x28eb @0xf
0x28dc…2903 at0012 = ╱ee╱ ) ╱ // 0x28ee @0x12
0x28dc…2903 at0013 = ╱ea╱ ; ╱ // 0x28ef @0x13
0x28dc…2903 at0014 = ╱22╱"╱ // 0x28f0 @0x14
0x28dc…2903 at0015 = ╱42╱B╱ // 0x28f1 @0x15
0x28dc…2903 at0016 = ╱41╱A╱ // 0x28f2 @0x16
0x28dc…2903 at0017 = ╱4c╱L╱ // 0x28f3 @0x17
0x28dc…2903 at0018 = ╱41╱A╱ // 0x28f4 @0x18
0x28dc…2903 at0019 = ╱4e╱N╱ // 0x28f5 @0x19
0x28dc…2903 at001a = ╱43╱C╱ // 0x28f6 @0x1a
0x28dc…2903 at001b = ╱45╱E╱ // 0x28f7 @0x1b
0x28dc…2903 at001c = ╱22╱"╱ // 0x28f8 @0x1c
0x28dc…2903 at001d = ╱ea╱ ; ╱ // 0x28f9 @0x1d
0x28dc…2903 at001e = ╱d2╱ TAB ╱ // 0x28fa @0x1e
0x28dc…2903 at001f = ╱ed╱ ( ╱ // 0x28fb @0x1f
0x28dc…2903 at0020 = ╱33╱3╱ // 0x28fc @0x20
0x28dc…2903 at0021 = ╱35╱5╱ // 0x28fd @0x21
0x28dc…2903 at0022 = ╱f22300╱ // 0x28fe @0x22
0x28dc…2903 at0025 = ╱ee╱ ) ╱ // 0x2901 @0x25
0x28dc…2903 at0026 = EOL // 0x2902 @0x26
0x28dc…2903 }
0x2903…2926 bf14 03850 LET BAL ( 2 ) := TOT ( 2 ) + KASSE_BEH
0x2903…2926 LineComal80 {
0x2903…2926 ptr = 0xbf14 // 0x2903 @0x0
0x2903…2926 lno = 0x0f0a // 0x2905 @0x2
0x2903…2926 at0004 = ╱86╱ LET ╱ // 0x2907 @0x4
0x2903…2926 at0005 = ╱42╱B╱ // 0x2908 @0x5
0x2903…2926 at0006 = ╱41╱A╱ // 0x2909 @0x6
0x2903…2926 at0007 = ╱4c╱L╱ // 0x290a @0x7
0x2903…2926 at0008 = ╱ed╱ ( ╱ // 0x290b @0x8
0x2903…2926 at0009 = ╱32╱2╱ // 0x290c @0x9
0x2903…2926 at000a = ╱f20200╱ // 0x290d @0xa
0x2903…2926 at000d = ╱ee╱ ) ╱ // 0x2910 @0xd
0x2903…2926 at000e = ╱f0╱ := ╱ // 0x2911 @0xe
0x2903…2926 at000f = ╱54╱T╱ // 0x2912 @0xf
0x2903…2926 at0010 = ╱4f╱O╱ // 0x2913 @0x10
0x2903…2926 at0011 = ╱54╱T╱ // 0x2914 @0x11
0x2903…2926 at0012 = ╱ed╱ ( ╱ // 0x2915 @0x12
0x2903…2926 at0013 = ╱32╱2╱ // 0x2916 @0x13
0x2903…2926 at0014 = ╱f20200╱ // 0x2917 @0x14
0x2903…2926 at0017 = ╱ee╱ ) ╱ // 0x291a @0x17
0x2903…2926 at0018 = ╱e5╱ + ╱ // 0x291b @0x18
0x2903…2926 at0019 = ╱4b╱K╱ // 0x291c @0x19
0x2903…2926 at001a = ╱41╱A╱ // 0x291d @0x1a
0x2903…2926 at001b = ╱53╱S╱ // 0x291e @0x1b
0x2903…2926 at001c = ╱53╱S╱ // 0x291f @0x1c
0x2903…2926 at001d = ╱45╱E╱ // 0x2920 @0x1d
0x2903…2926 at001e = ╱5f╱_╱ // 0x2921 @0x1e
0x2903…2926 at001f = ╱42╱B╱ // 0x2922 @0x1f
0x2903…2926 at0020 = ╱45╱E╱ // 0x2923 @0x20
0x2903…2926 at0021 = ╱48╱H╱ // 0x2924 @0x21
0x2903…2926 at0022 = EOL // 0x2925 @0x22
0x2903…2926 }
0x2926…2971 bf5f 03860 PRINT CHR$ ( BAL ( 1 ) , 9 , 2 ) ; CHR$ ( BAL ( 2 ) , 9 , 2 ) ; CHR$ ( BAL ( 3 ) , 9 , 2 ) ;
0x2926…2971 LineComal80 {
0x2926…2971 ptr = 0xbf5f // 0x2926 @0x0
0x2926…2971 lno = 0x0f14 // 0x2928 @0x2
0x2926…2971 at0004 = ╱92╱ PRINT ╱ // 0x292a @0x4
0x2926…2971 at0005 = ╱d0╱ CHR$ ╱ // 0x292b @0x5
0x2926…2971 at0006 = ╱ed╱ ( ╱ // 0x292c @0x6
0x2926…2971 at0007 = ╱42╱B╱ // 0x292d @0x7
0x2926…2971 at0008 = ╱41╱A╱ // 0x292e @0x8
0x2926…2971 at0009 = ╱4c╱L╱ // 0x292f @0x9
0x2926…2971 at000a = ╱ed╱ ( ╱ // 0x2930 @0xa
0x2926…2971 at000b = ╱31╱1╱ // 0x2931 @0xb
0x2926…2971 at000c = ╱f20100╱ // 0x2932 @0xc
0x2926…2971 at000f = ╱ee╱ ) ╱ // 0x2935 @0xf
0x2926…2971 at0010 = ╱ec╱ , ╱ // 0x2936 @0x10
0x2926…2971 at0011 = ╱39╱9╱ // 0x2937 @0x11
0x2926…2971 at0012 = ╱f20900╱ // 0x2938 @0x12
0x2926…2971 at0015 = ╱ec╱ , ╱ // 0x293b @0x15
0x2926…2971 at0016 = ╱32╱2╱ // 0x293c @0x16
0x2926…2971 at0017 = ╱f20200╱ // 0x293d @0x17
0x2926…2971 at001a = ╱ee╱ ) ╱ // 0x2940 @0x1a
0x2926…2971 at001b = ╱ea╱ ; ╱ // 0x2941 @0x1b
0x2926…2971 at001c = ╱d0╱ CHR$ ╱ // 0x2942 @0x1c
0x2926…2971 at001d = ╱ed╱ ( ╱ // 0x2943 @0x1d
0x2926…2971 at001e = ╱42╱B╱ // 0x2944 @0x1e
0x2926…2971 at001f = ╱41╱A╱ // 0x2945 @0x1f
0x2926…2971 at0020 = ╱4c╱L╱ // 0x2946 @0x20
0x2926…2971 at0021 = ╱ed╱ ( ╱ // 0x2947 @0x21
0x2926…2971 at0022 = ╱32╱2╱ // 0x2948 @0x22
0x2926…2971 at0023 = ╱f20200╱ // 0x2949 @0x23
0x2926…2971 at0026 = ╱ee╱ ) ╱ // 0x294c @0x26
0x2926…2971 at0027 = ╱ec╱ , ╱ // 0x294d @0x27
0x2926…2971 at0028 = ╱39╱9╱ // 0x294e @0x28
0x2926…2971 at0029 = ╱f20900╱ // 0x294f @0x29
0x2926…2971 at002c = ╱ec╱ , ╱ // 0x2952 @0x2c
0x2926…2971 at002d = ╱32╱2╱ // 0x2953 @0x2d
0x2926…2971 at002e = ╱f20200╱ // 0x2954 @0x2e
0x2926…2971 at0031 = ╱ee╱ ) ╱ // 0x2957 @0x31
0x2926…2971 at0032 = ╱ea╱ ; ╱ // 0x2958 @0x32
0x2926…2971 at0033 = ╱d0╱ CHR$ ╱ // 0x2959 @0x33
0x2926…2971 at0034 = ╱ed╱ ( ╱ // 0x295a @0x34
0x2926…2971 at0035 = ╱42╱B╱ // 0x295b @0x35
0x2926…2971 at0036 = ╱41╱A╱ // 0x295c @0x36
0x2926…2971 at0037 = ╱4c╱L╱ // 0x295d @0x37
0x2926…2971 at0038 = ╱ed╱ ( ╱ // 0x295e @0x38
0x2926…2971 at0039 = ╱33╱3╱ // 0x295f @0x39
0x2926…2971 at003a = ╱f20300╱ // 0x2960 @0x3a
0x2926…2971 at003d = ╱ee╱ ) ╱ // 0x2963 @0x3d
0x2926…2971 at003e = ╱ec╱ , ╱ // 0x2964 @0x3e
0x2926…2971 at003f = ╱39╱9╱ // 0x2965 @0x3f
0x2926…2971 at0040 = ╱f20900╱ // 0x2966 @0x40
0x2926…2971 at0043 = ╱ec╱ , ╱ // 0x2969 @0x43
0x2926…2971 at0044 = ╱32╱2╱ // 0x296a @0x44
0x2926…2971 at0045 = ╱f20200╱ // 0x296b @0x45
0x2926…2971 at0048 = ╱ee╱ ) ╱ // 0x296e @0x48
0x2926…2971 at0049 = ╱ea╱ ; ╱ // 0x296f @0x49
0x2926…2971 at004a = EOL // 0x2970 @0x4a
0x2926…2971 }
0x2971…29bb bfa9 03870 PRINT CHR$ ( BAL ( 3 ) , 9 , 2 ) ; CHR$ ( BAL ( 5 ) , 9 , 2 ) ; CHR$ ( BAL ( 5 ) , 9 , 2 )
0x2971…29bb LineComal80 {
0x2971…29bb ptr = 0xbfa9 // 0x2971 @0x0
0x2971…29bb lno = 0x0f1e // 0x2973 @0x2
0x2971…29bb at0004 = ╱92╱ PRINT ╱ // 0x2975 @0x4
0x2971…29bb at0005 = ╱d0╱ CHR$ ╱ // 0x2976 @0x5
0x2971…29bb at0006 = ╱ed╱ ( ╱ // 0x2977 @0x6
0x2971…29bb at0007 = ╱42╱B╱ // 0x2978 @0x7
0x2971…29bb at0008 = ╱41╱A╱ // 0x2979 @0x8
0x2971…29bb at0009 = ╱4c╱L╱ // 0x297a @0x9
0x2971…29bb at000a = ╱ed╱ ( ╱ // 0x297b @0xa
0x2971…29bb at000b = ╱33╱3╱ // 0x297c @0xb
0x2971…29bb at000c = ╱f20300╱ // 0x297d @0xc
0x2971…29bb at000f = ╱ee╱ ) ╱ // 0x2980 @0xf
0x2971…29bb at0010 = ╱ec╱ , ╱ // 0x2981 @0x10
0x2971…29bb at0011 = ╱39╱9╱ // 0x2982 @0x11
0x2971…29bb at0012 = ╱f20900╱ // 0x2983 @0x12
0x2971…29bb at0015 = ╱ec╱ , ╱ // 0x2986 @0x15
0x2971…29bb at0016 = ╱32╱2╱ // 0x2987 @0x16
0x2971…29bb at0017 = ╱f20200╱ // 0x2988 @0x17
0x2971…29bb at001a = ╱ee╱ ) ╱ // 0x298b @0x1a
0x2971…29bb at001b = ╱ea╱ ; ╱ // 0x298c @0x1b
0x2971…29bb at001c = ╱d0╱ CHR$ ╱ // 0x298d @0x1c
0x2971…29bb at001d = ╱ed╱ ( ╱ // 0x298e @0x1d
0x2971…29bb at001e = ╱42╱B╱ // 0x298f @0x1e
0x2971…29bb at001f = ╱41╱A╱ // 0x2990 @0x1f
0x2971…29bb at0020 = ╱4c╱L╱ // 0x2991 @0x20
0x2971…29bb at0021 = ╱ed╱ ( ╱ // 0x2992 @0x21
0x2971…29bb at0022 = ╱35╱5╱ // 0x2993 @0x22
0x2971…29bb at0023 = ╱f20500╱ // 0x2994 @0x23
0x2971…29bb at0026 = ╱ee╱ ) ╱ // 0x2997 @0x26
0x2971…29bb at0027 = ╱ec╱ , ╱ // 0x2998 @0x27
0x2971…29bb at0028 = ╱39╱9╱ // 0x2999 @0x28
0x2971…29bb at0029 = ╱f20900╱ // 0x299a @0x29
0x2971…29bb at002c = ╱ec╱ , ╱ // 0x299d @0x2c
0x2971…29bb at002d = ╱32╱2╱ // 0x299e @0x2d
0x2971…29bb at002e = ╱f20200╱ // 0x299f @0x2e
0x2971…29bb at0031 = ╱ee╱ ) ╱ // 0x29a2 @0x31
0x2971…29bb at0032 = ╱ea╱ ; ╱ // 0x29a3 @0x32
0x2971…29bb at0033 = ╱d0╱ CHR$ ╱ // 0x29a4 @0x33
0x2971…29bb at0034 = ╱ed╱ ( ╱ // 0x29a5 @0x34
0x2971…29bb at0035 = ╱42╱B╱ // 0x29a6 @0x35
0x2971…29bb at0036 = ╱41╱A╱ // 0x29a7 @0x36
0x2971…29bb at0037 = ╱4c╱L╱ // 0x29a8 @0x37
0x2971…29bb at0038 = ╱ed╱ ( ╱ // 0x29a9 @0x38
0x2971…29bb at0039 = ╱35╱5╱ // 0x29aa @0x39
0x2971…29bb at003a = ╱f20500╱ // 0x29ab @0x3a
0x2971…29bb at003d = ╱ee╱ ) ╱ // 0x29ae @0x3d
0x2971…29bb at003e = ╱ec╱ , ╱ // 0x29af @0x3e
0x2971…29bb at003f = ╱39╱9╱ // 0x29b0 @0x3f
0x2971…29bb at0040 = ╱f20900╱ // 0x29b1 @0x40
0x2971…29bb at0043 = ╱ec╱ , ╱ // 0x29b4 @0x43
0x2971…29bb at0044 = ╱32╱2╱ // 0x29b5 @0x44
0x2971…29bb at0045 = ╱f20200╱ // 0x29b6 @0x45
0x2971…29bb at0048 = ╱ee╱ ) ╱ // 0x29b9 @0x48
0x2971…29bb at0049 = EOL // 0x29ba @0x49
0x2971…29bb }
0x29bb…29ea bfd8 03880 PRINT "<S>" ; TAB ( 11 ) ; "KASSEDIFFERENCE" ; TAB ( 35 )
0x29bb…29ea LineComal80 {
0x29bb…29ea ptr = 0xbfd8 // 0x29bb @0x0
0x29bb…29ea lno = 0x0f28 // 0x29bd @0x2
0x29bb…29ea at0004 = ╱92╱ PRINT ╱ // 0x29bf @0x4
0x29bb…29ea at0005 = ╱22╱"╱ // 0x29c0 @0x5
0x29bb…29ea at0006 = ╱3c╱<╱ // 0x29c1 @0x6
0x29bb…29ea at0007 = ╱53╱S╱ // 0x29c2 @0x7
0x29bb…29ea at0008 = ╱3e╱>╱ // 0x29c3 @0x8
0x29bb…29ea at0009 = ╱22╱"╱ // 0x29c4 @0x9
0x29bb…29ea at000a = ╱ea╱ ; ╱ // 0x29c5 @0xa
0x29bb…29ea at000b = ╱d2╱ TAB ╱ // 0x29c6 @0xb
0x29bb…29ea at000c = ╱ed╱ ( ╱ // 0x29c7 @0xc
0x29bb…29ea at000d = ╱31╱1╱ // 0x29c8 @0xd
0x29bb…29ea at000e = ╱31╱1╱ // 0x29c9 @0xe
0x29bb…29ea at000f = ╱f20b00╱ // 0x29ca @0xf
0x29bb…29ea at0012 = ╱ee╱ ) ╱ // 0x29cd @0x12
0x29bb…29ea at0013 = ╱ea╱ ; ╱ // 0x29ce @0x13
0x29bb…29ea at0014 = ╱22╱"╱ // 0x29cf @0x14
0x29bb…29ea at0015 = ╱4b╱K╱ // 0x29d0 @0x15
0x29bb…29ea at0016 = ╱41╱A╱ // 0x29d1 @0x16
0x29bb…29ea at0017 = ╱53╱S╱ // 0x29d2 @0x17
0x29bb…29ea at0018 = ╱53╱S╱ // 0x29d3 @0x18
0x29bb…29ea at0019 = ╱45╱E╱ // 0x29d4 @0x19
0x29bb…29ea at001a = ╱44╱D╱ // 0x29d5 @0x1a
0x29bb…29ea at001b = ╱49╱I╱ // 0x29d6 @0x1b
0x29bb…29ea at001c = ╱46╱F╱ // 0x29d7 @0x1c
0x29bb…29ea at001d = ╱46╱F╱ // 0x29d8 @0x1d
0x29bb…29ea at001e = ╱45╱E╱ // 0x29d9 @0x1e
0x29bb…29ea at001f = ╱52╱R╱ // 0x29da @0x1f
0x29bb…29ea at0020 = ╱45╱E╱ // 0x29db @0x20
0x29bb…29ea at0021 = ╱4e╱N╱ // 0x29dc @0x21
0x29bb…29ea at0022 = ╱43╱C╱ // 0x29dd @0x22
0x29bb…29ea at0023 = ╱45╱E╱ // 0x29de @0x23
0x29bb…29ea at0024 = ╱22╱"╱ // 0x29df @0x24
0x29bb…29ea at0025 = ╱ea╱ ; ╱ // 0x29e0 @0x25
0x29bb…29ea at0026 = ╱d2╱ TAB ╱ // 0x29e1 @0x26
0x29bb…29ea at0027 = ╱ed╱ ( ╱ // 0x29e2 @0x27
0x29bb…29ea at0028 = ╱33╱3╱ // 0x29e3 @0x28
0x29bb…29ea at0029 = ╱35╱5╱ // 0x29e4 @0x29
0x29bb…29ea at002a = ╱f22300╱ // 0x29e5 @0x2a
0x29bb…29ea at002d = ╱ee╱ ) ╱ // 0x29e8 @0x2d
0x29bb…29ea at002e = EOL // 0x29e9 @0x2e
0x29bb…29ea }
0x29ea…29fd bfeb 03890 IF _DIFF > 0 THEN
0x29ea…29fd LineComal80 {
0x29ea…29fd ptr = 0xbfeb // 0x29ea @0x0
0x29ea…29fd lno = 0x0f32 // 0x29ec @0x2
0x29ea…29fd at0004 = ╱9b004b╱ IF ╱ // 0x29ee @0x4
0x29ea…29fd at0007 = ╱5f╱_╱ // 0x29f1 @0x7
0x29ea…29fd at0008 = ╱44╱D╱ // 0x29f2 @0x8
0x29ea…29fd at0009 = ╱49╱I╱ // 0x29f3 @0x9
0x29ea…29fd at000a = ╱46╱F╱ // 0x29f4 @0xa
0x29ea…29fd at000b = ╱46╱F╱ // 0x29f5 @0xb
0x29ea…29fd at000c = ╱e1╱ > ╱ // 0x29f6 @0xc
0x29ea…29fd at000d = ╱30╱0╱ // 0x29f7 @0xd
0x29ea…29fd at000e = ╱f20000╱ // 0x29f8 @0xe
0x29ea…29fd at0011 = ╱b5╱ THEN ╱ // 0x29fb @0x11
0x29ea…29fd at0012 = EOL // 0x29fc @0x12
0x29ea…29fd }
0x29fd…2a16 c004 03900 PRINT CHR$ ( K_DIFF , 9 , 2 )
0x29fd…2a16 LineComal80 {
0x29fd…2a16 ptr = 0xc004 // 0x29fd @0x0
0x29fd…2a16 lno = 0x0f3c // 0x29ff @0x2
0x29fd…2a16 at0004 = ╱92╱ PRINT ╱ // 0x2a01 @0x4
0x29fd…2a16 at0005 = ╱d0╱ CHR$ ╱ // 0x2a02 @0x5
0x29fd…2a16 at0006 = ╱ed╱ ( ╱ // 0x2a03 @0x6
0x29fd…2a16 at0007 = ╱4b╱K╱ // 0x2a04 @0x7
0x29fd…2a16 at0008 = ╱5f╱_╱ // 0x2a05 @0x8
0x29fd…2a16 at0009 = ╱44╱D╱ // 0x2a06 @0x9
0x29fd…2a16 at000a = ╱49╱I╱ // 0x2a07 @0xa
0x29fd…2a16 at000b = ╱46╱F╱ // 0x2a08 @0xb
0x29fd…2a16 at000c = ╱46╱F╱ // 0x2a09 @0xc
0x29fd…2a16 at000d = ╱ec╱ , ╱ // 0x2a0a @0xd
0x29fd…2a16 at000e = ╱39╱9╱ // 0x2a0b @0xe
0x29fd…2a16 at000f = ╱f20900╱ // 0x2a0c @0xf
0x29fd…2a16 at0012 = ╱ec╱ , ╱ // 0x2a0f @0x12
0x29fd…2a16 at0013 = ╱32╱2╱ // 0x2a10 @0x13
0x29fd…2a16 at0014 = ╱f20200╱ // 0x2a11 @0x14
0x29fd…2a16 at0017 = ╱ee╱ ) ╱ // 0x2a14 @0x17
0x29fd…2a16 at0018 = EOL // 0x2a15 @0x18
0x29fd…2a16 }
0x2a16…2a36 c024 03910 LET BAL ( 1 ) := BAL ( 1 ) + K_DIFF
0x2a16…2a36 LineComal80 {
0x2a16…2a36 ptr = 0xc024 // 0x2a16 @0x0
0x2a16…2a36 lno = 0x0f46 // 0x2a18 @0x2
0x2a16…2a36 at0004 = ╱86╱ LET ╱ // 0x2a1a @0x4
0x2a16…2a36 at0005 = ╱42╱B╱ // 0x2a1b @0x5
0x2a16…2a36 at0006 = ╱41╱A╱ // 0x2a1c @0x6
0x2a16…2a36 at0007 = ╱4c╱L╱ // 0x2a1d @0x7
0x2a16…2a36 at0008 = ╱ed╱ ( ╱ // 0x2a1e @0x8
0x2a16…2a36 at0009 = ╱31╱1╱ // 0x2a1f @0x9
0x2a16…2a36 at000a = ╱f20100╱ // 0x2a20 @0xa
0x2a16…2a36 at000d = ╱ee╱ ) ╱ // 0x2a23 @0xd
0x2a16…2a36 at000e = ╱f0╱ := ╱ // 0x2a24 @0xe
0x2a16…2a36 at000f = ╱42╱B╱ // 0x2a25 @0xf
0x2a16…2a36 at0010 = ╱41╱A╱ // 0x2a26 @0x10
0x2a16…2a36 at0011 = ╱4c╱L╱ // 0x2a27 @0x11
0x2a16…2a36 at0012 = ╱ed╱ ( ╱ // 0x2a28 @0x12
0x2a16…2a36 at0013 = ╱31╱1╱ // 0x2a29 @0x13
0x2a16…2a36 at0014 = ╱f20100╱ // 0x2a2a @0x14
0x2a16…2a36 at0017 = ╱ee╱ ) ╱ // 0x2a2d @0x17
0x2a16…2a36 at0018 = ╱e5╱ + ╱ // 0x2a2e @0x18
0x2a16…2a36 at0019 = ╱4b╱K╱ // 0x2a2f @0x19
0x2a16…2a36 at001a = ╱5f╱_╱ // 0x2a30 @0x1a
0x2a16…2a36 at001b = ╱44╱D╱ // 0x2a31 @0x1b
0x2a16…2a36 at001c = ╱49╱I╱ // 0x2a32 @0x1c
0x2a16…2a36 at001d = ╱46╱F╱ // 0x2a33 @0x1d
0x2a16…2a36 at001e = ╱46╱F╱ // 0x2a34 @0x1e
0x2a16…2a36 at001f = EOL // 0x2a35 @0x1f
0x2a16…2a36 }
0x2a36…2a3d c02b 03920 ELSE
0x2a36…2a3d LineComal80 {
0x2a36…2a3d ptr = 0xc02b // 0x2a36 @0x0
0x2a36…2a3d lno = 0x0f50 // 0x2a38 @0x2
0x2a36…2a3d at0004 = ╱9a00╱ ELSE ╱ // 0x2a3a @0x4
0x2a36…2a3d at0006 = EOL // 0x2a3c @0x6
0x2a36…2a3d }
0x2a3d…2a62 c050 03930 PRINT TAB ( 13 ) ; CHR$ ( ABS ( K_DIFF ) , 9 , 2 )
0x2a3d…2a62 LineComal80 {
0x2a3d…2a62 ptr = 0xc050 // 0x2a3d @0x0
0x2a3d…2a62 lno = 0x0f5a // 0x2a3f @0x2
0x2a3d…2a62 at0004 = ╱92╱ PRINT ╱ // 0x2a41 @0x4
0x2a3d…2a62 at0005 = ╱d2╱ TAB ╱ // 0x2a42 @0x5
0x2a3d…2a62 at0006 = ╱ed╱ ( ╱ // 0x2a43 @0x6
0x2a3d…2a62 at0007 = ╱31╱1╱ // 0x2a44 @0x7
0x2a3d…2a62 at0008 = ╱33╱3╱ // 0x2a45 @0x8
0x2a3d…2a62 at0009 = ╱f20d00╱ // 0x2a46 @0x9
0x2a3d…2a62 at000c = ╱ee╱ ) ╱ // 0x2a49 @0xc
0x2a3d…2a62 at000d = ╱ea╱ ; ╱ // 0x2a4a @0xd
0x2a3d…2a62 at000e = ╱d0╱ CHR$ ╱ // 0x2a4b @0xe
0x2a3d…2a62 at000f = ╱ed╱ ( ╱ // 0x2a4c @0xf
0x2a3d…2a62 at0010 = ╱c4╱ ABS ╱ // 0x2a4d @0x10
0x2a3d…2a62 at0011 = ╱ed╱ ( ╱ // 0x2a4e @0x11
0x2a3d…2a62 at0012 = ╱4b╱K╱ // 0x2a4f @0x12
0x2a3d…2a62 at0013 = ╱5f╱_╱ // 0x2a50 @0x13
0x2a3d…2a62 at0014 = ╱44╱D╱ // 0x2a51 @0x14
0x2a3d…2a62 at0015 = ╱49╱I╱ // 0x2a52 @0x15
0x2a3d…2a62 at0016 = ╱46╱F╱ // 0x2a53 @0x16
0x2a3d…2a62 at0017 = ╱46╱F╱ // 0x2a54 @0x17
0x2a3d…2a62 at0018 = ╱ee╱ ) ╱ // 0x2a55 @0x18
0x2a3d…2a62 at0019 = ╱ec╱ , ╱ // 0x2a56 @0x19
0x2a3d…2a62 at001a = ╱39╱9╱ // 0x2a57 @0x1a
0x2a3d…2a62 at001b = ╱f20900╱ // 0x2a58 @0x1b
0x2a3d…2a62 at001e = ╱ec╱ , ╱ // 0x2a5b @0x1e
0x2a3d…2a62 at001f = ╱32╱2╱ // 0x2a5c @0x1f
0x2a3d…2a62 at0020 = ╱f20200╱ // 0x2a5d @0x20
0x2a3d…2a62 at0023 = ╱ee╱ ) ╱ // 0x2a60 @0x23
0x2a3d…2a62 at0024 = EOL // 0x2a61 @0x24
0x2a3d…2a62 }
0x2a62…2a82 c070 03940 LET BAL ( 2 ) := BAL ( 2 ) - K_DIFF
0x2a62…2a82 LineComal80 {
0x2a62…2a82 ptr = 0xc070 // 0x2a62 @0x0
0x2a62…2a82 lno = 0x0f64 // 0x2a64 @0x2
0x2a62…2a82 at0004 = ╱86╱ LET ╱ // 0x2a66 @0x4
0x2a62…2a82 at0005 = ╱42╱B╱ // 0x2a67 @0x5
0x2a62…2a82 at0006 = ╱41╱A╱ // 0x2a68 @0x6
0x2a62…2a82 at0007 = ╱4c╱L╱ // 0x2a69 @0x7
0x2a62…2a82 at0008 = ╱ed╱ ( ╱ // 0x2a6a @0x8
0x2a62…2a82 at0009 = ╱32╱2╱ // 0x2a6b @0x9
0x2a62…2a82 at000a = ╱f20200╱ // 0x2a6c @0xa
0x2a62…2a82 at000d = ╱ee╱ ) ╱ // 0x2a6f @0xd
0x2a62…2a82 at000e = ╱f0╱ := ╱ // 0x2a70 @0xe
0x2a62…2a82 at000f = ╱42╱B╱ // 0x2a71 @0xf
0x2a62…2a82 at0010 = ╱41╱A╱ // 0x2a72 @0x10
0x2a62…2a82 at0011 = ╱4c╱L╱ // 0x2a73 @0x11
0x2a62…2a82 at0012 = ╱ed╱ ( ╱ // 0x2a74 @0x12
0x2a62…2a82 at0013 = ╱32╱2╱ // 0x2a75 @0x13
0x2a62…2a82 at0014 = ╱f20200╱ // 0x2a76 @0x14
0x2a62…2a82 at0017 = ╱ee╱ ) ╱ // 0x2a79 @0x17
0x2a62…2a82 at0018 = ╱e6╱ - ╱ // 0x2a7a @0x18
0x2a62…2a82 at0019 = ╱4b╱K╱ // 0x2a7b @0x19
0x2a62…2a82 at001a = ╱5f╱_╱ // 0x2a7c @0x1a
0x2a62…2a82 at001b = ╱44╱D╱ // 0x2a7d @0x1b
0x2a62…2a82 at001c = ╱49╱I╱ // 0x2a7e @0x1c
0x2a62…2a82 at001d = ╱46╱F╱ // 0x2a7f @0x1d
0x2a62…2a82 at001e = ╱46╱F╱ // 0x2a80 @0x1e
0x2a62…2a82 at001f = EOL // 0x2a81 @0x1f
0x2a62…2a82 }
0x2a82…2a88 c076 03950 ENDIF
0x2a82…2a88 LineComal80 {
0x2a82…2a88 ptr = 0xc076 // 0x2a82 @0x0
0x2a82…2a88 lno = 0x0f6e // 0x2a84 @0x2
0x2a82…2a88 at0004 = ╱9c╱ ENDIF ╱ // 0x2a86 @0x4
0x2a82…2a88 at0005 = EOL // 0x2a87 @0x5
0x2a82…2a88 }
0x2a88…2aaf c09d 03960 PRINT "<S>" ; TAB ( 11 ) ; "BALANCE" ; TAB ( 35 )
0x2a88…2aaf LineComal80 {
0x2a88…2aaf ptr = 0xc09d // 0x2a88 @0x0
0x2a88…2aaf lno = 0x0f78 // 0x2a8a @0x2
0x2a88…2aaf at0004 = ╱92╱ PRINT ╱ // 0x2a8c @0x4
0x2a88…2aaf at0005 = ╱22╱"╱ // 0x2a8d @0x5
0x2a88…2aaf at0006 = ╱3c╱<╱ // 0x2a8e @0x6
0x2a88…2aaf at0007 = ╱53╱S╱ // 0x2a8f @0x7
0x2a88…2aaf at0008 = ╱3e╱>╱ // 0x2a90 @0x8
0x2a88…2aaf at0009 = ╱22╱"╱ // 0x2a91 @0x9
0x2a88…2aaf at000a = ╱ea╱ ; ╱ // 0x2a92 @0xa
0x2a88…2aaf at000b = ╱d2╱ TAB ╱ // 0x2a93 @0xb
0x2a88…2aaf at000c = ╱ed╱ ( ╱ // 0x2a94 @0xc
0x2a88…2aaf at000d = ╱31╱1╱ // 0x2a95 @0xd
0x2a88…2aaf at000e = ╱31╱1╱ // 0x2a96 @0xe
0x2a88…2aaf at000f = ╱f20b00╱ // 0x2a97 @0xf
0x2a88…2aaf at0012 = ╱ee╱ ) ╱ // 0x2a9a @0x12
0x2a88…2aaf at0013 = ╱ea╱ ; ╱ // 0x2a9b @0x13
0x2a88…2aaf at0014 = ╱22╱"╱ // 0x2a9c @0x14
0x2a88…2aaf at0015 = ╱42╱B╱ // 0x2a9d @0x15
0x2a88…2aaf at0016 = ╱41╱A╱ // 0x2a9e @0x16
0x2a88…2aaf at0017 = ╱4c╱L╱ // 0x2a9f @0x17
0x2a88…2aaf at0018 = ╱41╱A╱ // 0x2aa0 @0x18
0x2a88…2aaf at0019 = ╱4e╱N╱ // 0x2aa1 @0x19
0x2a88…2aaf at001a = ╱43╱C╱ // 0x2aa2 @0x1a
0x2a88…2aaf at001b = ╱45╱E╱ // 0x2aa3 @0x1b
0x2a88…2aaf at001c = ╱22╱"╱ // 0x2aa4 @0x1c
0x2a88…2aaf at001d = ╱ea╱ ; ╱ // 0x2aa5 @0x1d
0x2a88…2aaf at001e = ╱d2╱ TAB ╱ // 0x2aa6 @0x1e
0x2a88…2aaf at001f = ╱ed╱ ( ╱ // 0x2aa7 @0x1f
0x2a88…2aaf at0020 = ╱33╱3╱ // 0x2aa8 @0x20
0x2a88…2aaf at0021 = ╱35╱5╱ // 0x2aa9 @0x21
0x2a88…2aaf at0022 = ╱f22300╱ // 0x2aaa @0x22
0x2a88…2aaf at0025 = ╱ee╱ ) ╱ // 0x2aad @0x25
0x2a88…2aaf at0026 = EOL // 0x2aae @0x26
0x2a88…2aaf }
0x2aaf…2ae2 d965 03970 PRINT CHR$ ( BAL ( 1 ) , 9 , 2 ) ; CHR$ ( BAL ( 2 ) , 9 , 2 )
0x2aaf…2ae2 LineComal80 {
0x2aaf…2ae2 ptr = 0xd965 // 0x2aaf @0x0
0x2aaf…2ae2 lno = 0x0f82 // 0x2ab1 @0x2
0x2aaf…2ae2 at0004 = ╱92╱ PRINT ╱ // 0x2ab3 @0x4
0x2aaf…2ae2 at0005 = ╱d0╱ CHR$ ╱ // 0x2ab4 @0x5
0x2aaf…2ae2 at0006 = ╱ed╱ ( ╱ // 0x2ab5 @0x6
0x2aaf…2ae2 at0007 = ╱42╱B╱ // 0x2ab6 @0x7
0x2aaf…2ae2 at0008 = ╱41╱A╱ // 0x2ab7 @0x8
0x2aaf…2ae2 at0009 = ╱4c╱L╱ // 0x2ab8 @0x9
0x2aaf…2ae2 at000a = ╱ed╱ ( ╱ // 0x2ab9 @0xa
0x2aaf…2ae2 at000b = ╱31╱1╱ // 0x2aba @0xb
0x2aaf…2ae2 at000c = ╱f20100╱ // 0x2abb @0xc
0x2aaf…2ae2 at000f = ╱ee╱ ) ╱ // 0x2abe @0xf
0x2aaf…2ae2 at0010 = ╱ec╱ , ╱ // 0x2abf @0x10
0x2aaf…2ae2 at0011 = ╱39╱9╱ // 0x2ac0 @0x11
0x2aaf…2ae2 at0012 = ╱f20900╱ // 0x2ac1 @0x12
0x2aaf…2ae2 at0015 = ╱ec╱ , ╱ // 0x2ac4 @0x15
0x2aaf…2ae2 at0016 = ╱32╱2╱ // 0x2ac5 @0x16
0x2aaf…2ae2 at0017 = ╱f20200╱ // 0x2ac6 @0x17
0x2aaf…2ae2 at001a = ╱ee╱ ) ╱ // 0x2ac9 @0x1a
0x2aaf…2ae2 at001b = ╱ea╱ ; ╱ // 0x2aca @0x1b
0x2aaf…2ae2 at001c = ╱d0╱ CHR$ ╱ // 0x2acb @0x1c
0x2aaf…2ae2 at001d = ╱ed╱ ( ╱ // 0x2acc @0x1d
0x2aaf…2ae2 at001e = ╱42╱B╱ // 0x2acd @0x1e
0x2aaf…2ae2 at001f = ╱41╱A╱ // 0x2ace @0x1f
0x2aaf…2ae2 at0020 = ╱4c╱L╱ // 0x2acf @0x20
0x2aaf…2ae2 at0021 = ╱ed╱ ( ╱ // 0x2ad0 @0x21
0x2aaf…2ae2 at0022 = ╱32╱2╱ // 0x2ad1 @0x22
0x2aaf…2ae2 at0023 = ╱f20200╱ // 0x2ad2 @0x23
0x2aaf…2ae2 at0026 = ╱ee╱ ) ╱ // 0x2ad5 @0x26
0x2aaf…2ae2 at0027 = ╱ec╱ , ╱ // 0x2ad6 @0x27
0x2aaf…2ae2 at0028 = ╱39╱9╱ // 0x2ad7 @0x28
0x2aaf…2ae2 at0029 = ╱f20900╱ // 0x2ad8 @0x29
0x2aaf…2ae2 at002c = ╱ec╱ , ╱ // 0x2adb @0x2c
0x2aaf…2ae2 at002d = ╱32╱2╱ // 0x2adc @0x2d
0x2aaf…2ae2 at002e = ╱f20200╱ // 0x2add @0x2e
0x2aaf…2ae2 at0031 = ╱ee╱ ) ╱ // 0x2ae0 @0x31
0x2aaf…2ae2 at0032 = EOL // 0x2ae1 @0x32
0x2aaf…2ae2 }
0x2ae2…2afa c0e8 03990 FOR I := LIN_T TO AX_LIN DO PRINT
0x2ae2…2afa LineComal80 {
0x2ae2…2afa ptr = 0xc0e8 // 0x2ae2 @0x0
0x2ae2…2afa lno = 0x0f96 // 0x2ae4 @0x2
0x2ae2…2afa at0004 = ╱b400╱ FOR ╱ // 0x2ae6 @0x4
0x2ae2…2afa at0006 = ╱49╱I╱ // 0x2ae8 @0x6
0x2ae2…2afa at0007 = ╱f0╱ := ╱ // 0x2ae9 @0x7
0x2ae2…2afa at0008 = ╱4c╱L╱ // 0x2aea @0x8
0x2ae2…2afa at0009 = ╱49╱I╱ // 0x2aeb @0x9
0x2ae2…2afa at000a = ╱4e╱N╱ // 0x2aec @0xa
0x2ae2…2afa at000b = ╱5f╱_╱ // 0x2aed @0xb
0x2ae2…2afa at000c = ╱54╱T╱ // 0x2aee @0xc
0x2ae2…2afa at000d = ╱b74d╱ TO ╱ // 0x2aef @0xd
0x2ae2…2afa at000f = ╱41╱A╱ // 0x2af1 @0xf
0x2ae2…2afa at0010 = ╱58╱X╱ // 0x2af2 @0x10
0x2ae2…2afa at0011 = ╱5f╱_╱ // 0x2af3 @0x11
0x2ae2…2afa at0012 = ╱4c╱L╱ // 0x2af4 @0x12
0x2ae2…2afa at0013 = ╱49╱I╱ // 0x2af5 @0x13
0x2ae2…2afa at0014 = ╱4e╱N╱ // 0x2af6 @0x14
0x2ae2…2afa at0015 = ╱bb╱ DO ╱ // 0x2af7 @0x15
0x2ae2…2afa at0016 = ╱92╱ PRINT ╱ // 0x2af8 @0x16
0x2ae2…2afa at0017 = EOL // 0x2af9 @0x17
0x2ae2…2afa }
0x2afa…2b06 c0f4 04000 ENDPROC AFSLUT
0x2afa…2b06 LineComal80 {
0x2afa…2b06 ptr = 0xc0f4 // 0x2afa @0x0
0x2afa…2b06 lno = 0x0fa0 // 0x2afc @0x2
0x2afa…2b06 at0004 = ╱9f╱ ENDPROC ╱ // 0x2afe @0x4
0x2afa…2b06 at0005 = ╱41╱A╱ // 0x2aff @0x5
0x2afa…2b06 at0006 = ╱46╱F╱ // 0x2b00 @0x6
0x2afa…2b06 at0007 = ╱53╱S╱ // 0x2b01 @0x7
0x2afa…2b06 at0008 = ╱4c╱L╱ // 0x2b02 @0x8
0x2afa…2b06 at0009 = ╱55╱U╱ // 0x2b03 @0x9
0x2afa…2b06 at000a = ╱54╱T╱ // 0x2b04 @0xa
0x2afa…2b06 at000b = EOL // 0x2b05 @0xb
0x2afa…2b06 }
0x2b06…2b0b c0f9 04010
0x2b06…2b0b LineComal80 {
0x2b06…2b0b ptr = 0xc0f9 // 0x2b06 @0x0
0x2b06…2b0b lno = 0x0faa // 0x2b08 @0x2
0x2b06…2b0b at0004 = EOL // 0x2b0a @0x4
0x2b06…2b0b }
0x2b0b…2b17 c105 04020 PROC OPT[L
0x2b0b…2b17 LineComal80 {
0x2b0b…2b17 ptr = 0xc105 // 0x2b0b @0x0
0x2b0b…2b17 lno = 0x0fb4 // 0x2b0d @0x2
0x2b0b…2b17 at0004 = ╱9e00╱ PROC ╱ // 0x2b0f @0x4
0x2b0b…2b17 at0006 = ╱4f╱O╱ // 0x2b11 @0x6
0x2b0b…2b17 at0007 = ╱50╱P╱ // 0x2b12 @0x7
0x2b0b…2b17 at0008 = ╱54╱T╱ // 0x2b13 @0x8
0x2b0b…2b17 at0009 = ╱5b╱[╱ // 0x2b14 @0x9
0x2b0b…2b17 at000a = ╱4c╱L╱ // 0x2b15 @0xa
0x2b0b…2b17 at000b = EOL // 0x2b16 @0xb
0x2b0b…2b17 }
0x2b17…2b5d c14b 04030 LET TOT ( 1 ) , TOT ( 2 ) , TOT ( 3 ) , TOT ( 4 ) , TOT ( 5 ) , TOT ( 6 ) := 0
0x2b17…2b5d LineComal80 {
0x2b17…2b5d ptr = 0xc14b // 0x2b17 @0x0
0x2b17…2b5d lno = 0x0fbe // 0x2b19 @0x2
0x2b17…2b5d at0004 = ╱86╱ LET ╱ // 0x2b1b @0x4
0x2b17…2b5d at0005 = ╱54╱T╱ // 0x2b1c @0x5
0x2b17…2b5d at0006 = ╱4f╱O╱ // 0x2b1d @0x6
0x2b17…2b5d at0007 = ╱54╱T╱ // 0x2b1e @0x7
0x2b17…2b5d at0008 = ╱ed╱ ( ╱ // 0x2b1f @0x8
0x2b17…2b5d at0009 = ╱31╱1╱ // 0x2b20 @0x9
0x2b17…2b5d at000a = ╱f20100╱ // 0x2b21 @0xa
0x2b17…2b5d at000d = ╱ee╱ ) ╱ // 0x2b24 @0xd
0x2b17…2b5d at000e = ╱ec╱ , ╱ // 0x2b25 @0xe
0x2b17…2b5d at000f = ╱54╱T╱ // 0x2b26 @0xf
0x2b17…2b5d at0010 = ╱4f╱O╱ // 0x2b27 @0x10
0x2b17…2b5d at0011 = ╱54╱T╱ // 0x2b28 @0x11
0x2b17…2b5d at0012 = ╱ed╱ ( ╱ // 0x2b29 @0x12
0x2b17…2b5d at0013 = ╱32╱2╱ // 0x2b2a @0x13
0x2b17…2b5d at0014 = ╱f20200╱ // 0x2b2b @0x14
0x2b17…2b5d at0017 = ╱ee╱ ) ╱ // 0x2b2e @0x17
0x2b17…2b5d at0018 = ╱ec╱ , ╱ // 0x2b2f @0x18
0x2b17…2b5d at0019 = ╱54╱T╱ // 0x2b30 @0x19
0x2b17…2b5d at001a = ╱4f╱O╱ // 0x2b31 @0x1a
0x2b17…2b5d at001b = ╱54╱T╱ // 0x2b32 @0x1b
0x2b17…2b5d at001c = ╱ed╱ ( ╱ // 0x2b33 @0x1c
0x2b17…2b5d at001d = ╱33╱3╱ // 0x2b34 @0x1d
0x2b17…2b5d at001e = ╱f20300╱ // 0x2b35 @0x1e
0x2b17…2b5d at0021 = ╱ee╱ ) ╱ // 0x2b38 @0x21
0x2b17…2b5d at0022 = ╱ec╱ , ╱ // 0x2b39 @0x22
0x2b17…2b5d at0023 = ╱54╱T╱ // 0x2b3a @0x23
0x2b17…2b5d at0024 = ╱4f╱O╱ // 0x2b3b @0x24
0x2b17…2b5d at0025 = ╱54╱T╱ // 0x2b3c @0x25
0x2b17…2b5d at0026 = ╱ed╱ ( ╱ // 0x2b3d @0x26
0x2b17…2b5d at0027 = ╱34╱4╱ // 0x2b3e @0x27
0x2b17…2b5d at0028 = ╱f20400╱ // 0x2b3f @0x28
0x2b17…2b5d at002b = ╱ee╱ ) ╱ // 0x2b42 @0x2b
0x2b17…2b5d at002c = ╱ec╱ , ╱ // 0x2b43 @0x2c
0x2b17…2b5d at002d = ╱54╱T╱ // 0x2b44 @0x2d
0x2b17…2b5d at002e = ╱4f╱O╱ // 0x2b45 @0x2e
0x2b17…2b5d at002f = ╱54╱T╱ // 0x2b46 @0x2f
0x2b17…2b5d at0030 = ╱ed╱ ( ╱ // 0x2b47 @0x30
0x2b17…2b5d at0031 = ╱35╱5╱ // 0x2b48 @0x31
0x2b17…2b5d at0032 = ╱f20500╱ // 0x2b49 @0x32
0x2b17…2b5d at0035 = ╱ee╱ ) ╱ // 0x2b4c @0x35
0x2b17…2b5d at0036 = ╱ec╱ , ╱ // 0x2b4d @0x36
0x2b17…2b5d at0037 = ╱54╱T╱ // 0x2b4e @0x37
0x2b17…2b5d at0038 = ╱4f╱O╱ // 0x2b4f @0x38
0x2b17…2b5d at0039 = ╱54╱T╱ // 0x2b50 @0x39
0x2b17…2b5d at003a = ╱ed╱ ( ╱ // 0x2b51 @0x3a
0x2b17…2b5d at003b = ╱36╱6╱ // 0x2b52 @0x3b
0x2b17…2b5d at003c = ╱f20600╱ // 0x2b53 @0x3c
0x2b17…2b5d at003f = ╱ee╱ ) ╱ // 0x2b56 @0x3f
0x2b17…2b5d at0040 = ╱f0╱ := ╱ // 0x2b57 @0x40
0x2b17…2b5d at0041 = ╱30╱0╱ // 0x2b58 @0x41
0x2b17…2b5d at0042 = ╱f20000╱ // 0x2b59 @0x42
0x2b17…2b5d at0045 = EOL // 0x2b5c @0x45
0x2b17…2b5d }
0x2b5d…2b93 c181 04040 GET KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE , K_BDAT $
0x2b5d…2b93 LineComal80 {
0x2b5d…2b93 ptr = 0xc181 // 0x2b5d @0x0
0x2b5d…2b93 lno = 0x0fc8 // 0x2b5f @0x2
0x2b5d…2b93 at0004 = ╱a9╱ GET ╱ // 0x2b61 @0x4
0x2b5d…2b93 at0005 = ╱4b╱K╱ // 0x2b62 @0x5
0x2b5d…2b93 at0006 = ╱41╱A╱ // 0x2b63 @0x6
0x2b5d…2b93 at0007 = ╱53╱S╱ // 0x2b64 @0x7
0x2b5d…2b93 at0008 = ╱53╱S╱ // 0x2b65 @0x8
0x2b5d…2b93 at0009 = ╱45╱E╱ // 0x2b66 @0x9
0x2b5d…2b93 at000a = ╱ef╱ $ ╱ // 0x2b67 @0xa
0x2b5d…2b93 at000b = ╱ec╱ , ╱ // 0x2b68 @0xb
0x2b5d…2b93 at000c = ╱31╱1╱ // 0x2b69 @0xc
0x2b5d…2b93 at000d = ╱f20100╱ // 0x2b6a @0xd
0x2b5d…2b93 at0010 = ╱f1╱ : ╱ // 0x2b6d @0x10
0x2b5d…2b93 at0011 = ╱4b╱K╱ // 0x2b6e @0x11
0x2b5d…2b93 at0012 = ╱5f╱_╱ // 0x2b6f @0x12
0x2b5d…2b93 at0013 = ╱48╱H╱ // 0x2b70 @0x13
0x2b5d…2b93 at0014 = ╱5c╱\╱ // 0x2b71 @0x14
0x2b5d…2b93 at0015 = ╱4a╱J╱ // 0x2b72 @0x15
0x2b5d…2b93 at0016 = ╱52╱R╱ // 0x2b73 @0x16
0x2b5d…2b93 at0017 = ╱45╱E╱ // 0x2b74 @0x17
0x2b5d…2b93 at0018 = ╱43╱C╱ // 0x2b75 @0x18
0x2b5d…2b93 at0019 = ╱ec╱ , ╱ // 0x2b76 @0x19
0x2b5d…2b93 at001a = ╱4b╱K╱ // 0x2b77 @0x1a
0x2b5d…2b93 at001b = ╱5f╱_╱ // 0x2b78 @0x1b
0x2b5d…2b93 at001c = ╱4d╱M╱ // 0x2b79 @0x1c
0x2b5d…2b93 at001d = ╱41╱A╱ // 0x2b7a @0x1d
0x2b5d…2b93 at001e = ╱58╱X╱ // 0x2b7b @0x1e
0x2b5d…2b93 at001f = ╱52╱R╱ // 0x2b7c @0x1f
0x2b5d…2b93 at0020 = ╱45╱E╱ // 0x2b7d @0x20
0x2b5d…2b93 at0021 = ╱43╱C╱ // 0x2b7e @0x21
0x2b5d…2b93 at0022 = ╱ec╱ , ╱ // 0x2b7f @0x22
0x2b5d…2b93 at0023 = ╱53╱S╱ // 0x2b80 @0x23
0x2b5d…2b93 at0024 = ╱5f╱_╱ // 0x2b81 @0x24
0x2b5d…2b93 at0025 = ╱4e╱N╱ // 0x2b82 @0x25
0x2b5d…2b93 at0026 = ╱52╱R╱ // 0x2b83 @0x26
0x2b5d…2b93 at0027 = ╱5f╱_╱ // 0x2b84 @0x27
0x2b5d…2b93 at0028 = ╱4b╱K╱ // 0x2b85 @0x28
0x2b5d…2b93 at0029 = ╱41╱A╱ // 0x2b86 @0x29
0x2b5d…2b93 at002a = ╱53╱S╱ // 0x2b87 @0x2a
0x2b5d…2b93 at002b = ╱53╱S╱ // 0x2b88 @0x2b
0x2b5d…2b93 at002c = ╱45╱E╱ // 0x2b89 @0x2c
0x2b5d…2b93 at002d = ╱ec╱ , ╱ // 0x2b8a @0x2d
0x2b5d…2b93 at002e = ╱4b╱K╱ // 0x2b8b @0x2e
0x2b5d…2b93 at002f = ╱5f╱_╱ // 0x2b8c @0x2f
0x2b5d…2b93 at0030 = ╱42╱B╱ // 0x2b8d @0x30
0x2b5d…2b93 at0031 = ╱44╱D╱ // 0x2b8e @0x31
0x2b5d…2b93 at0032 = ╱41╱A╱ // 0x2b8f @0x32
0x2b5d…2b93 at0033 = ╱54╱T╱ // 0x2b90 @0x33
0x2b5d…2b93 at0034 = ╱ef╱ $ ╱ // 0x2b91 @0x34
0x2b5d…2b93 at0035 = EOL // 0x2b92 @0x35
0x2b5d…2b93 }
0x2b93…2ba8 c196 04050 IF _H\JREC < 2 THEN
0x2b93…2ba8 LineComal80 {
0x2b93…2ba8 ptr = 0xc196 // 0x2b93 @0x0
0x2b93…2ba8 lno = 0x0fd2 // 0x2b95 @0x2
0x2b93…2ba8 at0004 = ╱9b004b╱ IF ╱ // 0x2b97 @0x4
0x2b93…2ba8 at0007 = ╱5f╱_╱ // 0x2b9a @0x7
0x2b93…2ba8 at0008 = ╱48╱H╱ // 0x2b9b @0x8
0x2b93…2ba8 at0009 = ╱5c╱\╱ // 0x2b9c @0x9
0x2b93…2ba8 at000a = ╱4a╱J╱ // 0x2b9d @0xa
0x2b93…2ba8 at000b = ╱52╱R╱ // 0x2b9e @0xb
0x2b93…2ba8 at000c = ╱45╱E╱ // 0x2b9f @0xc
0x2b93…2ba8 at000d = ╱43╱C╱ // 0x2ba0 @0xd
0x2b93…2ba8 at000e = ╱e0╱ < ╱ // 0x2ba1 @0xe
0x2b93…2ba8 at000f = ╱32╱2╱ // 0x2ba2 @0xf
0x2b93…2ba8 at0010 = ╱f20200╱ // 0x2ba3 @0x10
0x2b93…2ba8 at0013 = ╱b5╱ THEN ╱ // 0x2ba6 @0x13
0x2b93…2ba8 at0014 = EOL // 0x2ba7 @0x14
0x2b93…2ba8 }
0x2ba8…2bea c1d8 04060 PRINT "<XC1212>Der…kan…ikke…afstemmes…-…n}r…der…ikke…er…indtastet"
0x2ba8…2bea LineComal80 {
0x2ba8…2bea ptr = 0xc1d8 // 0x2ba8 @0x0
0x2ba8…2bea lno = 0x0fdc // 0x2baa @0x2
0x2ba8…2bea at0004 = ╱92╱ PRINT ╱ // 0x2bac @0x4
0x2ba8…2bea at0005 = ╱22╱"╱ // 0x2bad @0x5
0x2ba8…2bea at0006 = ╱3c╱<╱ // 0x2bae @0x6
0x2ba8…2bea at0007 = ╱58╱X╱ // 0x2baf @0x7
0x2ba8…2bea at0008 = ╱43╱C╱ // 0x2bb0 @0x8
0x2ba8…2bea at0009 = ╱31╱1╱ // 0x2bb1 @0x9
0x2ba8…2bea at000a = ╱32╱2╱ // 0x2bb2 @0xa
0x2ba8…2bea at000b = ╱31╱1╱ // 0x2bb3 @0xb
0x2ba8…2bea at000c = ╱32╱2╱ // 0x2bb4 @0xc
0x2ba8…2bea at000d = ╱3e╱>╱ // 0x2bb5 @0xd
0x2ba8…2bea at000e = ╱44╱D╱ // 0x2bb6 @0xe
0x2ba8…2bea at000f = ╱65╱e╱ // 0x2bb7 @0xf
0x2ba8…2bea at0010 = ╱72╱r╱ // 0x2bb8 @0x10
0x2ba8…2bea at0011 = ╱20╱…╱ // 0x2bb9 @0x11
0x2ba8…2bea at0012 = ╱6b╱k╱ // 0x2bba @0x12
0x2ba8…2bea at0013 = ╱61╱a╱ // 0x2bbb @0x13
0x2ba8…2bea at0014 = ╱6e╱n╱ // 0x2bbc @0x14
0x2ba8…2bea at0015 = ╱20╱…╱ // 0x2bbd @0x15
0x2ba8…2bea at0016 = ╱69╱i╱ // 0x2bbe @0x16
0x2ba8…2bea at0017 = ╱6b╱k╱ // 0x2bbf @0x17
0x2ba8…2bea at0018 = ╱6b╱k╱ // 0x2bc0 @0x18
0x2ba8…2bea at0019 = ╱65╱e╱ // 0x2bc1 @0x19
0x2ba8…2bea at001a = ╱20╱…╱ // 0x2bc2 @0x1a
0x2ba8…2bea at001b = ╱61╱a╱ // 0x2bc3 @0x1b
0x2ba8…2bea at001c = ╱66╱f╱ // 0x2bc4 @0x1c
0x2ba8…2bea at001d = ╱73╱s╱ // 0x2bc5 @0x1d
0x2ba8…2bea at001e = ╱74╱t╱ // 0x2bc6 @0x1e
0x2ba8…2bea at001f = ╱65╱e╱ // 0x2bc7 @0x1f
0x2ba8…2bea at0020 = ╱6d╱m╱ // 0x2bc8 @0x20
0x2ba8…2bea at0021 = ╱6d╱m╱ // 0x2bc9 @0x21
0x2ba8…2bea at0022 = ╱65╱e╱ // 0x2bca @0x22
0x2ba8…2bea at0023 = ╱73╱s╱ // 0x2bcb @0x23
0x2ba8…2bea at0024 = ╱20╱…╱ // 0x2bcc @0x24
0x2ba8…2bea at0025 = ╱2d╱-╱ // 0x2bcd @0x25
0x2ba8…2bea at0026 = ╱20╱…╱ // 0x2bce @0x26
0x2ba8…2bea at0027 = ╱6e╱n╱ // 0x2bcf @0x27
0x2ba8…2bea at0028 = ╱7d╱}╱ // 0x2bd0 @0x28
0x2ba8…2bea at0029 = ╱72╱r╱ // 0x2bd1 @0x29
0x2ba8…2bea at002a = ╱20╱…╱ // 0x2bd2 @0x2a
0x2ba8…2bea at002b = ╱64╱d╱ // 0x2bd3 @0x2b
0x2ba8…2bea at002c = ╱65╱e╱ // 0x2bd4 @0x2c
0x2ba8…2bea at002d = ╱72╱r╱ // 0x2bd5 @0x2d
0x2ba8…2bea at002e = ╱20╱…╱ // 0x2bd6 @0x2e
0x2ba8…2bea at002f = ╱69╱i╱ // 0x2bd7 @0x2f
0x2ba8…2bea at0030 = ╱6b╱k╱ // 0x2bd8 @0x30
0x2ba8…2bea at0031 = ╱6b╱k╱ // 0x2bd9 @0x31
0x2ba8…2bea at0032 = ╱65╱e╱ // 0x2bda @0x32
0x2ba8…2bea at0033 = ╱20╱…╱ // 0x2bdb @0x33
0x2ba8…2bea at0034 = ╱65╱e╱ // 0x2bdc @0x34
0x2ba8…2bea at0035 = ╱72╱r╱ // 0x2bdd @0x35
0x2ba8…2bea at0036 = ╱20╱…╱ // 0x2bde @0x36
0x2ba8…2bea at0037 = ╱69╱i╱ // 0x2bdf @0x37
0x2ba8…2bea at0038 = ╱6e╱n╱ // 0x2be0 @0x38
0x2ba8…2bea at0039 = ╱64╱d╱ // 0x2be1 @0x39
0x2ba8…2bea at003a = ╱74╱t╱ // 0x2be2 @0x3a
0x2ba8…2bea at003b = ╱61╱a╱ // 0x2be3 @0x3b
0x2ba8…2bea at003c = ╱73╱s╱ // 0x2be4 @0x3c
0x2ba8…2bea at003d = ╱74╱t╱ // 0x2be5 @0x3d
0x2ba8…2bea at003e = ╱65╱e╱ // 0x2be6 @0x3e
0x2ba8…2bea at003f = ╱74╱t╱ // 0x2be7 @0x3f
0x2ba8…2bea at0040 = ╱22╱"╱ // 0x2be8 @0x40
0x2ba8…2bea at0041 = EOL // 0x2be9 @0x41
0x2ba8…2bea }
0x2bea…2c0f (146,) c1fd 04070 PRINT "<C1213>nogen…kasseposteringer"
0x2bea…2c0f LineComal80 {
0x2bea…2c0f ptr = 0xc1fd // 0x2bea @0x0
0x2bea…2c0f lno = 0x0fe6 // 0x2bec @0x2
0x2bea…2c0f at0004 = ╱92╱ PRINT ╱ // 0x2bee @0x4
0x2bea…2c0f at0005 = ╱22╱"╱ // 0x2bef @0x5
0x2bea…2c0f at0006 = ╱3c╱<╱ // 0x2bf0 @0x6
0x2bea…2c0f at0007 = ╱43╱C╱ // 0x2bf1 @0x7
0x2bea…2c0f at0008 = ╱31╱1╱ // 0x2bf2 @0x8
0x2bea…2c0f at0009 = ╱32╱2╱ // 0x2bf3 @0x9
0x2bea…2c0f at000a = ╱31╱1╱ // 0x2bf4 @0xa
0x2bea…2c0f at000b = ╱33╱3╱ // 0x2bf5 @0xb
0x2bea…2c0f at000c = ╱3e╱>╱ // 0x2bf6 @0xc
0x2bea…2c0f at000d = ╱6e╱n╱ // 0x2bf7 @0xd
0x2bea…2c0f at000e = ╱6f╱o╱ // 0x2bf8 @0xe
0x2bea…2c0f at000f = ╱67╱g╱ // 0x2bf9 @0xf
0x2bea…2c0f at0010 = ╱65╱e╱ // 0x2bfa @0x10
0x2bea…2c0f at0011 = ╱6e╱n╱ // 0x2bfb @0x11
0x2bea…2c0f at0012 = ╱20╱…╱ // 0x2bfc @0x12
0x2bea…2c0f at0013 = ╱6b╱k╱ // 0x2bfd @0x13
0x2bea…2c0f at0014 = ╱61╱a╱ // 0x2bfe @0x14
0x2bea…2c0f at0015 = ╱73╱s╱ // 0x2bff @0x15
0x2bea…2c0f at0016 = ╱73╱s╱ // 0x2c00 @0x16
0x2bea…2c0f at0017 = ╱65╱e╱ // 0x2c01 @0x17
0x2bea…2c0f at0018 = ╱70╱p╱ // 0x2c02 @0x18
0x2bea…2c0f at0019 = ╱6f╱o╱ // 0x2c03 @0x19
0x2bea…2c0f at001a = ╱73╱s╱ // 0x2c04 @0x1a
0x2bea…2c0f at001b = ╱74╱t╱ // 0x2c05 @0x1b
0x2bea…2c0f at001c = ╱65╱e╱ // 0x2c06 @0x1c
0x2bea…2c0f at001d = ╱72╱r╱ // 0x2c07 @0x1d
0x2bea…2c0f at001e = ╱69╱i╱ // 0x2c08 @0x1e
0x2bea…2c0f at001f = ╱6e╱n╱ // 0x2c09 @0x1f
0x2bea…2c0f at0020 = ╱67╱g╱ // 0x2c0a @0x20
0x2bea…2c0f at0021 = ╱65╱e╱ // 0x2c0b @0x21
0x2bea…2c0f at0022 = ╱72╱r╱ // 0x2c0c @0x22
0x2bea…2c0f at0023 = ╱22╱"╱ // 0x2c0d @0x23
0x2bea…2c0f at0024 = EOL // 0x2c0e @0x24
0x2bea…2c0f }
0x2c0f…2c2f c21d 04080 INPUT "<C6523>Tryk…RETURN" : SVAR $
0x2c0f…2c2f LineComal80 {
0x2c0f…2c2f ptr = 0xc21d // 0x2c0f @0x0
0x2c0f…2c2f lno = 0x0ff0 // 0x2c11 @0x2
0x2c0f…2c2f at0004 = ╱91╱ INPUT ╱ // 0x2c13 @0x4
0x2c0f…2c2f at0005 = ╱22╱"╱ // 0x2c14 @0x5
0x2c0f…2c2f at0006 = ╱3c╱<╱ // 0x2c15 @0x6
0x2c0f…2c2f at0007 = ╱43╱C╱ // 0x2c16 @0x7
0x2c0f…2c2f at0008 = ╱36╱6╱ // 0x2c17 @0x8
0x2c0f…2c2f at0009 = ╱35╱5╱ // 0x2c18 @0x9
0x2c0f…2c2f at000a = ╱32╱2╱ // 0x2c19 @0xa
0x2c0f…2c2f at000b = ╱33╱3╱ // 0x2c1a @0xb
0x2c0f…2c2f at000c = ╱3e╱>╱ // 0x2c1b @0xc
0x2c0f…2c2f at000d = ╱54╱T╱ // 0x2c1c @0xd
0x2c0f…2c2f at000e = ╱72╱r╱ // 0x2c1d @0xe
0x2c0f…2c2f at000f = ╱79╱y╱ // 0x2c1e @0xf
0x2c0f…2c2f at0010 = ╱6b╱k╱ // 0x2c1f @0x10
0x2c0f…2c2f at0011 = ╱20╱…╱ // 0x2c20 @0x11
0x2c0f…2c2f at0012 = ╱52╱R╱ // 0x2c21 @0x12
0x2c0f…2c2f at0013 = ╱45╱E╱ // 0x2c22 @0x13
0x2c0f…2c2f at0014 = ╱54╱T╱ // 0x2c23 @0x14
0x2c0f…2c2f at0015 = ╱55╱U╱ // 0x2c24 @0x15
0x2c0f…2c2f at0016 = ╱52╱R╱ // 0x2c25 @0x16
0x2c0f…2c2f at0017 = ╱4e╱N╱ // 0x2c26 @0x17
0x2c0f…2c2f at0018 = ╱22╱"╱ // 0x2c27 @0x18
0x2c0f…2c2f at0019 = ╱f1╱ : ╱ // 0x2c28 @0x19
0x2c0f…2c2f at001a = ╱53╱S╱ // 0x2c29 @0x1a
0x2c0f…2c2f at001b = ╱56╱V╱ // 0x2c2a @0x1b
0x2c0f…2c2f at001c = ╱41╱A╱ // 0x2c2b @0x1c
0x2c0f…2c2f at001d = ╱52╱R╱ // 0x2c2c @0x1d
0x2c0f…2c2f at001e = ╱ef╱ $ ╱ // 0x2c2d @0x1e
0x2c0f…2c2f at001f = EOL // 0x2c2e @0x1f
0x2c0f…2c2f }
0x2c2f…2c3d c22b 04090 CHAIN PROGRAM $
0x2c2f…2c3d LineComal80 {
0x2c2f…2c3d ptr = 0xc22b // 0x2c2f @0x0
0x2c2f…2c3d lno = 0x0ffa // 0x2c31 @0x2
0x2c2f…2c3d at0004 = ╱ac╱ CHAIN ╱ // 0x2c33 @0x4
0x2c2f…2c3d at0005 = ╱50╱P╱ // 0x2c34 @0x5
0x2c2f…2c3d at0006 = ╱52╱R╱ // 0x2c35 @0x6
0x2c2f…2c3d at0007 = ╱4f╱O╱ // 0x2c36 @0x7
0x2c2f…2c3d at0008 = ╱47╱G╱ // 0x2c37 @0x8
0x2c2f…2c3d at0009 = ╱52╱R╱ // 0x2c38 @0x9
0x2c2f…2c3d at000a = ╱41╱A╱ // 0x2c39 @0xa
0x2c2f…2c3d at000b = ╱4d╱M╱ // 0x2c3a @0xb
0x2c2f…2c3d at000c = ╱ef╱ $ ╱ // 0x2c3b @0xc
0x2c2f…2c3d at000d = EOL // 0x2c3c @0xd
0x2c2f…2c3d }
0x2c3d…2c43 c231 04100 ENDIF
0x2c3d…2c43 LineComal80 {
0x2c3d…2c43 ptr = 0xc231 // 0x2c3d @0x0
0x2c3d…2c43 lno = 0x1004 // 0x2c3f @0x2
0x2c3d…2c43 at0004 = ╱9c╱ ENDIF ╱ // 0x2c41 @0x4
0x2c3d…2c43 at0005 = EOL // 0x2c42 @0x5
0x2c3d…2c43 }
0x2c43…2c5f c24d 04110 FOR I := 1 TO _H\JREC - 1 DO
0x2c43…2c5f LineComal80 {
0x2c43…2c5f ptr = 0xc24d // 0x2c43 @0x0
0x2c43…2c5f lno = 0x100e // 0x2c45 @0x2
0x2c43…2c5f at0004 = ╱8300╱ FOR ╱ // 0x2c47 @0x4
0x2c43…2c5f at0006 = ╱49╱I╱ // 0x2c49 @0x6
0x2c43…2c5f at0007 = ╱f0╱ := ╱ // 0x2c4a @0x7
0x2c43…2c5f at0008 = ╱31╱1╱ // 0x2c4b @0x8
0x2c43…2c5f at0009 = ╱f20100╱ // 0x2c4c @0x9
0x2c43…2c5f at000c = ╱b74b╱ TO ╱ // 0x2c4f @0xc
0x2c43…2c5f at000e = ╱5f╱_╱ // 0x2c51 @0xe
0x2c43…2c5f at000f = ╱48╱H╱ // 0x2c52 @0xf
0x2c43…2c5f at0010 = ╱5c╱\╱ // 0x2c53 @0x10
0x2c43…2c5f at0011 = ╱4a╱J╱ // 0x2c54 @0x11
0x2c43…2c5f at0012 = ╱52╱R╱ // 0x2c55 @0x12
0x2c43…2c5f at0013 = ╱45╱E╱ // 0x2c56 @0x13
0x2c43…2c5f at0014 = ╱43╱C╱ // 0x2c57 @0x14
0x2c43…2c5f at0015 = ╱e6╱ - ╱ // 0x2c58 @0x15
0x2c43…2c5f at0016 = ╱31╱1╱ // 0x2c59 @0x16
0x2c43…2c5f at0017 = ╱f20100╱ // 0x2c5a @0x17
0x2c43…2c5f at001a = ╱bb╱ DO ╱ // 0x2c5d @0x1a
0x2c43…2c5f at001b = EOL // 0x2c5e @0x1b
0x2c43…2c5f }
0x2c5f…2c72 c260 04120 EXEC L[S_K_POST ( I )
0x2c5f…2c72 LineComal80 {
0x2c5f…2c72 ptr = 0xc260 // 0x2c5f @0x0
0x2c5f…2c72 lno = 0x1018 // 0x2c61 @0x2
0x2c5f…2c72 at0004 = ╱9d╱ EXEC ╱ // 0x2c63 @0x4
0x2c5f…2c72 at0005 = ╱4c╱L╱ // 0x2c64 @0x5
0x2c5f…2c72 at0006 = ╱5b╱[╱ // 0x2c65 @0x6
0x2c5f…2c72 at0007 = ╱53╱S╱ // 0x2c66 @0x7
0x2c5f…2c72 at0008 = ╱5f╱_╱ // 0x2c67 @0x8
0x2c5f…2c72 at0009 = ╱4b╱K╱ // 0x2c68 @0x9
0x2c5f…2c72 at000a = ╱5f╱_╱ // 0x2c69 @0xa
0x2c5f…2c72 at000b = ╱50╱P╱ // 0x2c6a @0xb
0x2c5f…2c72 at000c = ╱4f╱O╱ // 0x2c6b @0xc
0x2c5f…2c72 at000d = ╱53╱S╱ // 0x2c6c @0xd
0x2c5f…2c72 at000e = ╱54╱T╱ // 0x2c6d @0xe
0x2c5f…2c72 at000f = ╱ed╱ ( ╱ // 0x2c6e @0xf
0x2c5f…2c72 at0010 = ╱49╱I╱ // 0x2c6f @0x10
0x2c5f…2c72 at0011 = ╱ee╱ ) ╱ // 0x2c70 @0x11
0x2c5f…2c72 at0012 = EOL // 0x2c71 @0x12
0x2c5f…2c72 }
0x2c72…2c88 c276 04130 IF _BNR $ >< "*****" THEN
0x2c72…2c88 LineComal80 {
0x2c72…2c88 ptr = 0xc276 // 0x2c72 @0x0
0x2c72…2c88 lno = 0x1022 // 0x2c74 @0x2
0x2c72…2c88 at0004 = ╱9b004b╱ IF ╱ // 0x2c76 @0x4
0x2c72…2c88 at0007 = ╱5f╱_╱ // 0x2c79 @0x7
0x2c72…2c88 at0008 = ╱42╱B╱ // 0x2c7a @0x8
0x2c72…2c88 at0009 = ╱4e╱N╱ // 0x2c7b @0x9
0x2c72…2c88 at000a = ╱52╱R╱ // 0x2c7c @0xa
0x2c72…2c88 at000b = ╱ef╱ $ ╱ // 0x2c7d @0xb
0x2c72…2c88 at000c = ╱e4╱ >< ╱ // 0x2c7e @0xc
0x2c72…2c88 at000d = ╱22╱"╱ // 0x2c7f @0xd
0x2c72…2c88 at000e = ╱2a╱*╱ // 0x2c80 @0xe
0x2c72…2c88 at000f = ╱2a╱*╱ // 0x2c81 @0xf
0x2c72…2c88 at0010 = ╱2a╱*╱ // 0x2c82 @0x10
0x2c72…2c88 at0011 = ╱2a╱*╱ // 0x2c83 @0x11
0x2c72…2c88 at0012 = ╱2a╱*╱ // 0x2c84 @0x12
0x2c72…2c88 at0013 = ╱22╱"╱ // 0x2c85 @0x13
0x2c72…2c88 at0014 = ╱b5╱ THEN ╱ // 0x2c86 @0x14
0x2c72…2c88 at0015 = EOL // 0x2c87 @0x15
0x2c72…2c88 }
0x2c88…2c98 c286 04140 CASE K_LKOD $ OF
0x2c88…2c98 LineComal80 {
0x2c88…2c98 ptr = 0xc286 // 0x2c88 @0x0
0x2c88…2c98 lno = 0x102c // 0x2c8a @0x2
0x2c88…2c98 at0004 = ╱a20000╱ CASE ╱ // 0x2c8c @0x4
0x2c88…2c98 at0007 = ╱4b╱K╱ // 0x2c8f @0x7
0x2c88…2c98 at0008 = ╱5f╱_╱ // 0x2c90 @0x8
0x2c88…2c98 at0009 = ╱4c╱L╱ // 0x2c91 @0x9
0x2c88…2c98 at000a = ╱4b╱K╱ // 0x2c92 @0xa
0x2c88…2c98 at000b = ╱4f╱O╱ // 0x2c93 @0xb
0x2c88…2c98 at000c = ╱44╱D╱ // 0x2c94 @0xc
0x2c88…2c98 at000d = ╱ef╱ $ ╱ // 0x2c95 @0xd
0x2c88…2c98 at000e = ╱ba╱ OF ╱ // 0x2c96 @0xe
0x2c88…2c98 at000f = EOL // 0x2c97 @0xf
0x2c88…2c98 }
0x2c98…2ca3 c291 04150 WHILE "K"
0x2c98…2ca3 LineComal80 {
0x2c98…2ca3 ptr = 0xc291 // 0x2c98 @0x0
0x2c98…2ca3 lno = 0x1036 // 0x2c9a @0x2
0x2c98…2ca3 at0004 = ╱a40000╱ WHILE ╱ // 0x2c9c @0x4
0x2c98…2ca3 at0007 = ╱22╱"╱ // 0x2c9f @0x7
0x2c98…2ca3 at0008 = ╱4b╱K╱ // 0x2ca0 @0x8
0x2c98…2ca3 at0009 = ╱22╱"╱ // 0x2ca1 @0x9
0x2c98…2ca3 at000a = EOL // 0x2ca2 @0xa
0x2c98…2ca3 }
0x2ca3…2cb3 c2a1 04160 LET T_IDX := 1
0x2ca3…2cb3 LineComal80 {
0x2ca3…2cb3 ptr = 0xc2a1 // 0x2ca3 @0x0
0x2ca3…2cb3 lno = 0x1040 // 0x2ca5 @0x2
0x2ca3…2cb3 at0004 = ╱86╱ LET ╱ // 0x2ca7 @0x4
0x2ca3…2cb3 at0005 = ╱54╱T╱ // 0x2ca8 @0x5
0x2ca3…2cb3 at0006 = ╱5f╱_╱ // 0x2ca9 @0x6
0x2ca3…2cb3 at0007 = ╱49╱I╱ // 0x2caa @0x7
0x2ca3…2cb3 at0008 = ╱44╱D╱ // 0x2cab @0x8
0x2ca3…2cb3 at0009 = ╱58╱X╱ // 0x2cac @0x9
0x2ca3…2cb3 at000a = ╱f0╱ := ╱ // 0x2cad @0xa
0x2ca3…2cb3 at000b = ╱31╱1╱ // 0x2cae @0xb
0x2ca3…2cb3 at000c = ╱f20100╱ // 0x2caf @0xc
0x2ca3…2cb3 at000f = EOL // 0x2cb2 @0xf
0x2ca3…2cb3 }
0x2cb3…2cbe c2ac 04170 WHILE "B"
0x2cb3…2cbe LineComal80 {
0x2cb3…2cbe ptr = 0xc2ac // 0x2cb3 @0x0
0x2cb3…2cbe lno = 0x104a // 0x2cb5 @0x2
0x2cb3…2cbe at0004 = ╱a40000╱ WHILE ╱ // 0x2cb7 @0x4
0x2cb3…2cbe at0007 = ╱22╱"╱ // 0x2cba @0x7
0x2cb3…2cbe at0008 = ╱42╱B╱ // 0x2cbb @0x8
0x2cb3…2cbe at0009 = ╱22╱"╱ // 0x2cbc @0x9
0x2cb3…2cbe at000a = EOL // 0x2cbd @0xa
0x2cb3…2cbe }
0x2cbe…2cce c2bc 04180 LET T_IDX := 3
0x2cbe…2cce LineComal80 {
0x2cbe…2cce ptr = 0xc2bc // 0x2cbe @0x0
0x2cbe…2cce lno = 0x1054 // 0x2cc0 @0x2
0x2cbe…2cce at0004 = ╱86╱ LET ╱ // 0x2cc2 @0x4
0x2cbe…2cce at0005 = ╱54╱T╱ // 0x2cc3 @0x5
0x2cbe…2cce at0006 = ╱5f╱_╱ // 0x2cc4 @0x6
0x2cbe…2cce at0007 = ╱49╱I╱ // 0x2cc5 @0x7
0x2cbe…2cce at0008 = ╱44╱D╱ // 0x2cc6 @0x8
0x2cbe…2cce at0009 = ╱58╱X╱ // 0x2cc7 @0x9
0x2cbe…2cce at000a = ╱f0╱ := ╱ // 0x2cc8 @0xa
0x2cbe…2cce at000b = ╱33╱3╱ // 0x2cc9 @0xb
0x2cbe…2cce at000c = ╱f20300╱ // 0x2cca @0xc
0x2cbe…2cce at000f = EOL // 0x2ccd @0xf
0x2cbe…2cce }
0x2cce…2cd9 c2c7 04190 WHILE "G"
0x2cce…2cd9 LineComal80 {
0x2cce…2cd9 ptr = 0xc2c7 // 0x2cce @0x0
0x2cce…2cd9 lno = 0x105e // 0x2cd0 @0x2
0x2cce…2cd9 at0004 = ╱a40000╱ WHILE ╱ // 0x2cd2 @0x4
0x2cce…2cd9 at0007 = ╱22╱"╱ // 0x2cd5 @0x7
0x2cce…2cd9 at0008 = ╱47╱G╱ // 0x2cd6 @0x8
0x2cce…2cd9 at0009 = ╱22╱"╱ // 0x2cd7 @0x9
0x2cce…2cd9 at000a = EOL // 0x2cd8 @0xa
0x2cce…2cd9 }
0x2cd9…2ce9 c2d7 04200 LET T_IDX := 5
0x2cd9…2ce9 LineComal80 {
0x2cd9…2ce9 ptr = 0xc2d7 // 0x2cd9 @0x0
0x2cd9…2ce9 lno = 0x1068 // 0x2cdb @0x2
0x2cd9…2ce9 at0004 = ╱86╱ LET ╱ // 0x2cdd @0x4
0x2cd9…2ce9 at0005 = ╱54╱T╱ // 0x2cde @0x5
0x2cd9…2ce9 at0006 = ╱5f╱_╱ // 0x2cdf @0x6
0x2cd9…2ce9 at0007 = ╱49╱I╱ // 0x2ce0 @0x7
0x2cd9…2ce9 at0008 = ╱44╱D╱ // 0x2ce1 @0x8
0x2cd9…2ce9 at0009 = ╱58╱X╱ // 0x2ce2 @0x9
0x2cd9…2ce9 at000a = ╱f0╱ := ╱ // 0x2ce3 @0xa
0x2cd9…2ce9 at000b = ╱35╱5╱ // 0x2ce4 @0xb
0x2cd9…2ce9 at000c = ╱f20500╱ // 0x2ce5 @0xc
0x2cd9…2ce9 at000f = EOL // 0x2ce8 @0xf
0x2cd9…2ce9 }
0x2ce9…2cf0 c2de 04210 OTHERWISE
0x2ce9…2cf0 LineComal80 {
0x2ce9…2cf0 ptr = 0xc2de // 0x2ce9 @0x0
0x2ce9…2cf0 lno = 0x1072 // 0x2ceb @0x2
0x2ce9…2cf0 at0004 = ╱9500╱ OTHERWISE ╱ // 0x2ced @0x4
0x2ce9…2cf0 at0006 = EOL // 0x2cef @0x6
0x2ce9…2cf0 }
0x2cf0…2d29 c317 04220 EXEC FEJL ( "Ulovlig…likviditetskode…ved…post…" + CHR$ ( I , 2 ) )
0x2cf0…2d29 LineComal80 {
0x2cf0…2d29 ptr = 0xc317 // 0x2cf0 @0x0
0x2cf0…2d29 lno = 0x107c // 0x2cf2 @0x2
0x2cf0…2d29 at0004 = ╱9d╱ EXEC ╱ // 0x2cf4 @0x4
0x2cf0…2d29 at0005 = ╱46╱F╱ // 0x2cf5 @0x5
0x2cf0…2d29 at0006 = ╱45╱E╱ // 0x2cf6 @0x6
0x2cf0…2d29 at0007 = ╱4a╱J╱ // 0x2cf7 @0x7
0x2cf0…2d29 at0008 = ╱4c╱L╱ // 0x2cf8 @0x8
0x2cf0…2d29 at0009 = ╱ed╱ ( ╱ // 0x2cf9 @0x9
0x2cf0…2d29 at000a = ╱22╱"╱ // 0x2cfa @0xa
0x2cf0…2d29 at000b = ╱55╱U╱ // 0x2cfb @0xb
0x2cf0…2d29 at000c = ╱6c╱l╱ // 0x2cfc @0xc
0x2cf0…2d29 at000d = ╱6f╱o╱ // 0x2cfd @0xd
0x2cf0…2d29 at000e = ╱76╱v╱ // 0x2cfe @0xe
0x2cf0…2d29 at000f = ╱6c╱l╱ // 0x2cff @0xf
0x2cf0…2d29 at0010 = ╱69╱i╱ // 0x2d00 @0x10
0x2cf0…2d29 at0011 = ╱67╱g╱ // 0x2d01 @0x11
0x2cf0…2d29 at0012 = ╱20╱…╱ // 0x2d02 @0x12
0x2cf0…2d29 at0013 = ╱6c╱l╱ // 0x2d03 @0x13
0x2cf0…2d29 at0014 = ╱69╱i╱ // 0x2d04 @0x14
0x2cf0…2d29 at0015 = ╱6b╱k╱ // 0x2d05 @0x15
0x2cf0…2d29 at0016 = ╱76╱v╱ // 0x2d06 @0x16
0x2cf0…2d29 at0017 = ╱69╱i╱ // 0x2d07 @0x17
0x2cf0…2d29 at0018 = ╱64╱d╱ // 0x2d08 @0x18
0x2cf0…2d29 at0019 = ╱69╱i╱ // 0x2d09 @0x19
0x2cf0…2d29 at001a = ╱74╱t╱ // 0x2d0a @0x1a
0x2cf0…2d29 at001b = ╱65╱e╱ // 0x2d0b @0x1b
0x2cf0…2d29 at001c = ╱74╱t╱ // 0x2d0c @0x1c
0x2cf0…2d29 at001d = ╱73╱s╱ // 0x2d0d @0x1d
0x2cf0…2d29 at001e = ╱6b╱k╱ // 0x2d0e @0x1e
0x2cf0…2d29 at001f = ╱6f╱o╱ // 0x2d0f @0x1f
0x2cf0…2d29 at0020 = ╱64╱d╱ // 0x2d10 @0x20
0x2cf0…2d29 at0021 = ╱65╱e╱ // 0x2d11 @0x21
0x2cf0…2d29 at0022 = ╱20╱…╱ // 0x2d12 @0x22
0x2cf0…2d29 at0023 = ╱76╱v╱ // 0x2d13 @0x23
0x2cf0…2d29 at0024 = ╱65╱e╱ // 0x2d14 @0x24
0x2cf0…2d29 at0025 = ╱64╱d╱ // 0x2d15 @0x25
0x2cf0…2d29 at0026 = ╱20╱…╱ // 0x2d16 @0x26
0x2cf0…2d29 at0027 = ╱70╱p╱ // 0x2d17 @0x27
0x2cf0…2d29 at0028 = ╱6f╱o╱ // 0x2d18 @0x28
0x2cf0…2d29 at0029 = ╱73╱s╱ // 0x2d19 @0x29
0x2cf0…2d29 at002a = ╱74╱t╱ // 0x2d1a @0x2a
0x2cf0…2d29 at002b = ╱20╱…╱ // 0x2d1b @0x2b
0x2cf0…2d29 at002c = ╱22╱"╱ // 0x2d1c @0x2c
0x2cf0…2d29 at002d = ╱eb╱ + ╱ // 0x2d1d @0x2d
0x2cf0…2d29 at002e = ╱d0╱ CHR$ ╱ // 0x2d1e @0x2e
0x2cf0…2d29 at002f = ╱ed╱ ( ╱ // 0x2d1f @0x2f
0x2cf0…2d29 at0030 = ╱49╱I╱ // 0x2d20 @0x30
0x2cf0…2d29 at0031 = ╱ec╱ , ╱ // 0x2d21 @0x31
0x2cf0…2d29 at0032 = ╱32╱2╱ // 0x2d22 @0x32
0x2cf0…2d29 at0033 = ╱f20200╱ // 0x2d23 @0x33
0x2cf0…2d29 at0036 = ╱ee╱ ) ╱ // 0x2d26 @0x36
0x2cf0…2d29 at0037 = ╱ee╱ ) ╱ // 0x2d27 @0x37
0x2cf0…2d29 at0038 = EOL // 0x2d28 @0x38
0x2cf0…2d29 }
0x2d29…2d2f c31d 04230 ENDCASE
0x2d29…2d2f LineComal80 {
0x2d29…2d2f ptr = 0xc31d // 0x2d29 @0x0
0x2d29…2d2f lno = 0x1086 // 0x2d2b @0x2
0x2d29…2d2f at0004 = ╱a3╱ ENDCASE ╱ // 0x2d2d @0x4
0x2d29…2d2f at0005 = EOL // 0x2d2e @0x5
0x2d29…2d2f }
0x2d2f…2d41 c32f 04240 IF _DK = DEBET THEN
0x2d2f…2d41 LineComal80 {
0x2d2f…2d41 ptr = 0xc32f // 0x2d2f @0x0
0x2d2f…2d41 lno = 0x1090 // 0x2d31 @0x2
0x2d2f…2d41 at0004 = ╱9b004b╱ IF ╱ // 0x2d33 @0x4
0x2d2f…2d41 at0007 = ╱5f╱_╱ // 0x2d36 @0x7
0x2d2f…2d41 at0008 = ╱44╱D╱ // 0x2d37 @0x8
0x2d2f…2d41 at0009 = ╱4b╱K╱ // 0x2d38 @0x9
0x2d2f…2d41 at000a = ╱df╱ = ╱ // 0x2d39 @0xa
0x2d2f…2d41 at000b = ╱44╱D╱ // 0x2d3a @0xb
0x2d2f…2d41 at000c = ╱45╱E╱ // 0x2d3b @0xc
0x2d2f…2d41 at000d = ╱42╱B╱ // 0x2d3c @0xd
0x2d2f…2d41 at000e = ╱45╱E╱ // 0x2d3d @0xe
0x2d2f…2d41 at000f = ╱54╱T╱ // 0x2d3e @0xf
0x2d2f…2d41 at0010 = ╱b5╱ THEN ╱ // 0x2d3f @0x10
0x2d2f…2d41 at0011 = EOL // 0x2d40 @0x11
0x2d2f…2d41 }
0x2d41…2d62 c350 04250 LET TOT ( T_IDX ) := TOT ( T_IDX ) + K_BKR
0x2d41…2d62 LineComal80 {
0x2d41…2d62 ptr = 0xc350 // 0x2d41 @0x0
0x2d41…2d62 lno = 0x109a // 0x2d43 @0x2
0x2d41…2d62 at0004 = ╱86╱ LET ╱ // 0x2d45 @0x4
0x2d41…2d62 at0005 = ╱54╱T╱ // 0x2d46 @0x5
0x2d41…2d62 at0006 = ╱4f╱O╱ // 0x2d47 @0x6
0x2d41…2d62 at0007 = ╱54╱T╱ // 0x2d48 @0x7
0x2d41…2d62 at0008 = ╱ed╱ ( ╱ // 0x2d49 @0x8
0x2d41…2d62 at0009 = ╱54╱T╱ // 0x2d4a @0x9
0x2d41…2d62 at000a = ╱5f╱_╱ // 0x2d4b @0xa
0x2d41…2d62 at000b = ╱49╱I╱ // 0x2d4c @0xb
0x2d41…2d62 at000c = ╱44╱D╱ // 0x2d4d @0xc
0x2d41…2d62 at000d = ╱58╱X╱ // 0x2d4e @0xd
0x2d41…2d62 at000e = ╱ee╱ ) ╱ // 0x2d4f @0xe
0x2d41…2d62 at000f = ╱f0╱ := ╱ // 0x2d50 @0xf
0x2d41…2d62 at0010 = ╱54╱T╱ // 0x2d51 @0x10
0x2d41…2d62 at0011 = ╱4f╱O╱ // 0x2d52 @0x11
0x2d41…2d62 at0012 = ╱54╱T╱ // 0x2d53 @0x12
0x2d41…2d62 at0013 = ╱ed╱ ( ╱ // 0x2d54 @0x13
0x2d41…2d62 at0014 = ╱54╱T╱ // 0x2d55 @0x14
0x2d41…2d62 at0015 = ╱5f╱_╱ // 0x2d56 @0x15
0x2d41…2d62 at0016 = ╱49╱I╱ // 0x2d57 @0x16
0x2d41…2d62 at0017 = ╱44╱D╱ // 0x2d58 @0x17
0x2d41…2d62 at0018 = ╱58╱X╱ // 0x2d59 @0x18
0x2d41…2d62 at0019 = ╱ee╱ ) ╱ // 0x2d5a @0x19
0x2d41…2d62 at001a = ╱e5╱ + ╱ // 0x2d5b @0x1a
0x2d41…2d62 at001b = ╱4b╱K╱ // 0x2d5c @0x1b
0x2d41…2d62 at001c = ╱5f╱_╱ // 0x2d5d @0x1c
0x2d41…2d62 at001d = ╱42╱B╱ // 0x2d5e @0x1d
0x2d41…2d62 at001e = ╱4b╱K╱ // 0x2d5f @0x1e
0x2d41…2d62 at001f = ╱52╱R╱ // 0x2d60 @0x1f
0x2d41…2d62 at0020 = EOL // 0x2d61 @0x20
0x2d41…2d62 }
0x2d62…2d69 c357 04260 ELSE
0x2d62…2d69 LineComal80 {
0x2d62…2d69 ptr = 0xc357 // 0x2d62 @0x0
0x2d62…2d69 lno = 0x10a4 // 0x2d64 @0x2
0x2d62…2d69 at0004 = ╱9a00╱ ELSE ╱ // 0x2d66 @0x4
0x2d62…2d69 at0006 = EOL // 0x2d68 @0x6
0x2d62…2d69 }
0x2d69…2d94 c382 04270 LET TOT ( T_IDX + 1 ) := TOT ( T_IDX + 1 ) + K_BKR
0x2d69…2d94 LineComal80 {
0x2d69…2d94 ptr = 0xc382 // 0x2d69 @0x0
0x2d69…2d94 lno = 0x10ae // 0x2d6b @0x2
0x2d69…2d94 at0004 = ╱86╱ LET ╱ // 0x2d6d @0x4
0x2d69…2d94 at0005 = ╱54╱T╱ // 0x2d6e @0x5
0x2d69…2d94 at0006 = ╱4f╱O╱ // 0x2d6f @0x6
0x2d69…2d94 at0007 = ╱54╱T╱ // 0x2d70 @0x7
0x2d69…2d94 at0008 = ╱ed╱ ( ╱ // 0x2d71 @0x8
0x2d69…2d94 at0009 = ╱54╱T╱ // 0x2d72 @0x9
0x2d69…2d94 at000a = ╱5f╱_╱ // 0x2d73 @0xa
0x2d69…2d94 at000b = ╱49╱I╱ // 0x2d74 @0xb
0x2d69…2d94 at000c = ╱44╱D╱ // 0x2d75 @0xc
0x2d69…2d94 at000d = ╱58╱X╱ // 0x2d76 @0xd
0x2d69…2d94 at000e = ╱e5╱ + ╱ // 0x2d77 @0xe
0x2d69…2d94 at000f = ╱31╱1╱ // 0x2d78 @0xf
0x2d69…2d94 at0010 = ╱f20100╱ // 0x2d79 @0x10
0x2d69…2d94 at0013 = ╱ee╱ ) ╱ // 0x2d7c @0x13
0x2d69…2d94 at0014 = ╱f0╱ := ╱ // 0x2d7d @0x14
0x2d69…2d94 at0015 = ╱54╱T╱ // 0x2d7e @0x15
0x2d69…2d94 at0016 = ╱4f╱O╱ // 0x2d7f @0x16
0x2d69…2d94 at0017 = ╱54╱T╱ // 0x2d80 @0x17
0x2d69…2d94 at0018 = ╱ed╱ ( ╱ // 0x2d81 @0x18
0x2d69…2d94 at0019 = ╱54╱T╱ // 0x2d82 @0x19
0x2d69…2d94 at001a = ╱5f╱_╱ // 0x2d83 @0x1a
0x2d69…2d94 at001b = ╱49╱I╱ // 0x2d84 @0x1b
0x2d69…2d94 at001c = ╱44╱D╱ // 0x2d85 @0x1c
0x2d69…2d94 at001d = ╱58╱X╱ // 0x2d86 @0x1d
0x2d69…2d94 at001e = ╱e5╱ + ╱ // 0x2d87 @0x1e
0x2d69…2d94 at001f = ╱31╱1╱ // 0x2d88 @0x1f
0x2d69…2d94 at0020 = ╱f20100╱ // 0x2d89 @0x20
0x2d69…2d94 at0023 = ╱ee╱ ) ╱ // 0x2d8c @0x23
0x2d69…2d94 at0024 = ╱e5╱ + ╱ // 0x2d8d @0x24
0x2d69…2d94 at0025 = ╱4b╱K╱ // 0x2d8e @0x25
0x2d69…2d94 at0026 = ╱5f╱_╱ // 0x2d8f @0x26
0x2d69…2d94 at0027 = ╱42╱B╱ // 0x2d90 @0x27
0x2d69…2d94 at0028 = ╱4b╱K╱ // 0x2d91 @0x28
0x2d69…2d94 at0029 = ╱52╱R╱ // 0x2d92 @0x29
0x2d69…2d94 at002a = EOL // 0x2d93 @0x2a
0x2d69…2d94 }
0x2d94…2d9a c388 04280 ENDIF
0x2d94…2d9a LineComal80 {
0x2d94…2d9a ptr = 0xc388 // 0x2d94 @0x0
0x2d94…2d9a lno = 0x10b8 // 0x2d96 @0x2
0x2d94…2d9a at0004 = ╱9c╱ ENDIF ╱ // 0x2d98 @0x4
0x2d94…2d9a at0005 = EOL // 0x2d99 @0x5
0x2d94…2d9a }
0x2d9a…2daa c398 04290 CASE K_BKTO $ OF
0x2d9a…2daa LineComal80 {
0x2d9a…2daa ptr = 0xc398 // 0x2d9a @0x0
0x2d9a…2daa lno = 0x10c2 // 0x2d9c @0x2
0x2d9a…2daa at0004 = ╱a20000╱ CASE ╱ // 0x2d9e @0x4
0x2d9a…2daa at0007 = ╱4b╱K╱ // 0x2da1 @0x7
0x2d9a…2daa at0008 = ╱5f╱_╱ // 0x2da2 @0x8
0x2d9a…2daa at0009 = ╱42╱B╱ // 0x2da3 @0x9
0x2d9a…2daa at000a = ╱4b╱K╱ // 0x2da4 @0xa
0x2d9a…2daa at000b = ╱54╱T╱ // 0x2da5 @0xb
0x2d9a…2daa at000c = ╱4f╱O╱ // 0x2da6 @0xc
0x2d9a…2daa at000d = ╱ef╱ $ ╱ // 0x2da7 @0xd
0x2d9a…2daa at000e = ╱ba╱ OF ╱ // 0x2da8 @0xe
0x2d9a…2daa at000f = EOL // 0x2da9 @0xf
0x2d9a…2daa }
0x2daa…2dbc c3aa 04300 WHILE KASSE_KTO $
0x2daa…2dbc LineComal80 {
0x2daa…2dbc ptr = 0xc3aa // 0x2daa @0x0
0x2daa…2dbc lno = 0x10cc // 0x2dac @0x2
0x2daa…2dbc at0004 = ╱a40000╱ WHILE ╱ // 0x2dae @0x4
0x2daa…2dbc at0007 = ╱4b╱K╱ // 0x2db1 @0x7
0x2daa…2dbc at0008 = ╱41╱A╱ // 0x2db2 @0x8
0x2daa…2dbc at0009 = ╱53╱S╱ // 0x2db3 @0x9
0x2daa…2dbc at000a = ╱53╱S╱ // 0x2db4 @0xa
0x2daa…2dbc at000b = ╱45╱E╱ // 0x2db5 @0xb
0x2daa…2dbc at000c = ╱5f╱_╱ // 0x2db6 @0xc
0x2daa…2dbc at000d = ╱4b╱K╱ // 0x2db7 @0xd
0x2daa…2dbc at000e = ╱54╱T╱ // 0x2db8 @0xe
0x2daa…2dbc at000f = ╱4f╱O╱ // 0x2db9 @0xf
0x2daa…2dbc at0010 = ╱ef╱ $ ╱ // 0x2dba @0x10
0x2daa…2dbc at0011 = EOL // 0x2dbb @0x11
0x2daa…2dbc }
0x2dbc…2dcc c3ba 04310 LET T_IDX := 1
0x2dbc…2dcc LineComal80 {
0x2dbc…2dcc ptr = 0xc3ba // 0x2dbc @0x0
0x2dbc…2dcc lno = 0x10d6 // 0x2dbe @0x2
0x2dbc…2dcc at0004 = ╱86╱ LET ╱ // 0x2dc0 @0x4
0x2dbc…2dcc at0005 = ╱54╱T╱ // 0x2dc1 @0x5
0x2dbc…2dcc at0006 = ╱5f╱_╱ // 0x2dc2 @0x6
0x2dbc…2dcc at0007 = ╱49╱I╱ // 0x2dc3 @0x7
0x2dbc…2dcc at0008 = ╱44╱D╱ // 0x2dc4 @0x8
0x2dbc…2dcc at0009 = ╱58╱X╱ // 0x2dc5 @0x9
0x2dbc…2dcc at000a = ╱f0╱ := ╱ // 0x2dc6 @0xa
0x2dbc…2dcc at000b = ╱31╱1╱ // 0x2dc7 @0xb
0x2dbc…2dcc at000c = ╱f20100╱ // 0x2dc8 @0xc
0x2dbc…2dcc at000f = EOL // 0x2dcb @0xf
0x2dbc…2dcc }
0x2dcc…2ddd c3cb 04320 WHILE BANK_KTO $
0x2dcc…2ddd LineComal80 {
0x2dcc…2ddd ptr = 0xc3cb // 0x2dcc @0x0
0x2dcc…2ddd lno = 0x10e0 // 0x2dce @0x2
0x2dcc…2ddd at0004 = ╱a40000╱ WHILE ╱ // 0x2dd0 @0x4
0x2dcc…2ddd at0007 = ╱42╱B╱ // 0x2dd3 @0x7
0x2dcc…2ddd at0008 = ╱41╱A╱ // 0x2dd4 @0x8
0x2dcc…2ddd at0009 = ╱4e╱N╱ // 0x2dd5 @0x9
0x2dcc…2ddd at000a = ╱4b╱K╱ // 0x2dd6 @0xa
0x2dcc…2ddd at000b = ╱5f╱_╱ // 0x2dd7 @0xb
0x2dcc…2ddd at000c = ╱4b╱K╱ // 0x2dd8 @0xc
0x2dcc…2ddd at000d = ╱54╱T╱ // 0x2dd9 @0xd
0x2dcc…2ddd at000e = ╱4f╱O╱ // 0x2dda @0xe
0x2dcc…2ddd at000f = ╱ef╱ $ ╱ // 0x2ddb @0xf
0x2dcc…2ddd at0010 = EOL // 0x2ddc @0x10
0x2dcc…2ddd }
0x2ddd…2ded c3db 04330 LET T_IDX := 3
0x2ddd…2ded LineComal80 {
0x2ddd…2ded ptr = 0xc3db // 0x2ddd @0x0
0x2ddd…2ded lno = 0x10ea // 0x2ddf @0x2
0x2ddd…2ded at0004 = ╱86╱ LET ╱ // 0x2de1 @0x4
0x2ddd…2ded at0005 = ╱54╱T╱ // 0x2de2 @0x5
0x2ddd…2ded at0006 = ╱5f╱_╱ // 0x2de3 @0x6
0x2ddd…2ded at0007 = ╱49╱I╱ // 0x2de4 @0x7
0x2ddd…2ded at0008 = ╱44╱D╱ // 0x2de5 @0x8
0x2ddd…2ded at0009 = ╱58╱X╱ // 0x2de6 @0x9
0x2ddd…2ded at000a = ╱f0╱ := ╱ // 0x2de7 @0xa
0x2ddd…2ded at000b = ╱33╱3╱ // 0x2de8 @0xb
0x2ddd…2ded at000c = ╱f20300╱ // 0x2de9 @0xc
0x2ddd…2ded at000f = EOL // 0x2dec @0xf
0x2ddd…2ded }
0x2ded…2dfe c3ec 04340 WHILE GIRO_KTO $
0x2ded…2dfe LineComal80 {
0x2ded…2dfe ptr = 0xc3ec // 0x2ded @0x0
0x2ded…2dfe lno = 0x10f4 // 0x2def @0x2
0x2ded…2dfe at0004 = ╱a40000╱ WHILE ╱ // 0x2df1 @0x4
0x2ded…2dfe at0007 = ╱47╱G╱ // 0x2df4 @0x7
0x2ded…2dfe at0008 = ╱49╱I╱ // 0x2df5 @0x8
0x2ded…2dfe at0009 = ╱52╱R╱ // 0x2df6 @0x9
0x2ded…2dfe at000a = ╱4f╱O╱ // 0x2df7 @0xa
0x2ded…2dfe at000b = ╱5f╱_╱ // 0x2df8 @0xb
0x2ded…2dfe at000c = ╱4b╱K╱ // 0x2df9 @0xc
0x2ded…2dfe at000d = ╱54╱T╱ // 0x2dfa @0xd
0x2ded…2dfe at000e = ╱4f╱O╱ // 0x2dfb @0xe
0x2ded…2dfe at000f = ╱ef╱ $ ╱ // 0x2dfc @0xf
0x2ded…2dfe at0010 = EOL // 0x2dfd @0x10
0x2ded…2dfe }
0x2dfe…2e0e c3fc 04350 LET T_IDX := 5
0x2dfe…2e0e LineComal80 {
0x2dfe…2e0e ptr = 0xc3fc // 0x2dfe @0x0
0x2dfe…2e0e lno = 0x10fe // 0x2e00 @0x2
0x2dfe…2e0e at0004 = ╱86╱ LET ╱ // 0x2e02 @0x4
0x2dfe…2e0e at0005 = ╱54╱T╱ // 0x2e03 @0x5
0x2dfe…2e0e at0006 = ╱5f╱_╱ // 0x2e04 @0x6
0x2dfe…2e0e at0007 = ╱49╱I╱ // 0x2e05 @0x7
0x2dfe…2e0e at0008 = ╱44╱D╱ // 0x2e06 @0x8
0x2dfe…2e0e at0009 = ╱58╱X╱ // 0x2e07 @0x9
0x2dfe…2e0e at000a = ╱f0╱ := ╱ // 0x2e08 @0xa
0x2dfe…2e0e at000b = ╱35╱5╱ // 0x2e09 @0xb
0x2dfe…2e0e at000c = ╱f20500╱ // 0x2e0a @0xc
0x2dfe…2e0e at000f = EOL // 0x2e0d @0xf
0x2dfe…2e0e }
0x2e0e…2e15 c403 04360 OTHERWISE
0x2e0e…2e15 LineComal80 {
0x2e0e…2e15 ptr = 0xc403 // 0x2e0e @0x0
0x2e0e…2e15 lno = 0x1108 // 0x2e10 @0x2
0x2e0e…2e15 at0004 = ╱9500╱ OTHERWISE ╱ // 0x2e12 @0x4
0x2e0e…2e15 at0006 = EOL // 0x2e14 @0x6
0x2e0e…2e15 }
0x2e15…2e25 c413 04370 LET T_IDX := 0
0x2e15…2e25 LineComal80 {
0x2e15…2e25 ptr = 0xc413 // 0x2e15 @0x0
0x2e15…2e25 lno = 0x1112 // 0x2e17 @0x2
0x2e15…2e25 at0004 = ╱86╱ LET ╱ // 0x2e19 @0x4
0x2e15…2e25 at0005 = ╱54╱T╱ // 0x2e1a @0x5
0x2e15…2e25 at0006 = ╱5f╱_╱ // 0x2e1b @0x6
0x2e15…2e25 at0007 = ╱49╱I╱ // 0x2e1c @0x7
0x2e15…2e25 at0008 = ╱44╱D╱ // 0x2e1d @0x8
0x2e15…2e25 at0009 = ╱58╱X╱ // 0x2e1e @0x9
0x2e15…2e25 at000a = ╱f0╱ := ╱ // 0x2e1f @0xa
0x2e15…2e25 at000b = ╱30╱0╱ // 0x2e20 @0xb
0x2e15…2e25 at000c = ╱f20000╱ // 0x2e21 @0xc
0x2e15…2e25 at000f = EOL // 0x2e24 @0xf
0x2e15…2e25 }
0x2e25…2e2b c419 04380 ENDCASE
0x2e25…2e2b LineComal80 {
0x2e25…2e2b ptr = 0xc419 // 0x2e25 @0x0
0x2e25…2e2b lno = 0x111c // 0x2e27 @0x2
0x2e25…2e2b at0004 = ╱a3╱ ENDCASE ╱ // 0x2e29 @0x4
0x2e25…2e2b at0005 = EOL // 0x2e2a @0x5
0x2e25…2e2b }
0x2e2b…2e3d c42b 04390 IF _IDX > 0 THEN
0x2e2b…2e3d LineComal80 {
0x2e2b…2e3d ptr = 0xc42b // 0x2e2b @0x0
0x2e2b…2e3d lno = 0x1126 // 0x2e2d @0x2
0x2e2b…2e3d at0004 = ╱9b0054╱ IF ╱ // 0x2e2f @0x4
0x2e2b…2e3d at0007 = ╱5f╱_╱ // 0x2e32 @0x7
0x2e2b…2e3d at0008 = ╱49╱I╱ // 0x2e33 @0x8
0x2e2b…2e3d at0009 = ╱44╱D╱ // 0x2e34 @0x9
0x2e2b…2e3d at000a = ╱58╱X╱ // 0x2e35 @0xa
0x2e2b…2e3d at000b = ╱e1╱ > ╱ // 0x2e36 @0xb
0x2e2b…2e3d at000c = ╱30╱0╱ // 0x2e37 @0xc
0x2e2b…2e3d at000d = ╱f20000╱ // 0x2e38 @0xd
0x2e2b…2e3d at0010 = ╱b5╱ THEN ╱ // 0x2e3b @0x10
0x2e2b…2e3d at0011 = EOL // 0x2e3c @0x11
0x2e2b…2e3d }
0x2e3d…2e4f c43d 04400 IF _DK = DEBET THEN
0x2e3d…2e4f LineComal80 {
0x2e3d…2e4f ptr = 0xc43d // 0x2e3d @0x0
0x2e3d…2e4f lno = 0x1130 // 0x2e3f @0x2
0x2e3d…2e4f at0004 = ╱9b004b╱ IF ╱ // 0x2e41 @0x4
0x2e3d…2e4f at0007 = ╱5f╱_╱ // 0x2e44 @0x7
0x2e3d…2e4f at0008 = ╱44╱D╱ // 0x2e45 @0x8
0x2e3d…2e4f at0009 = ╱4b╱K╱ // 0x2e46 @0x9
0x2e3d…2e4f at000a = ╱df╱ = ╱ // 0x2e47 @0xa
0x2e3d…2e4f at000b = ╱44╱D╱ // 0x2e48 @0xb
0x2e3d…2e4f at000c = ╱45╱E╱ // 0x2e49 @0xc
0x2e3d…2e4f at000d = ╱42╱B╱ // 0x2e4a @0xd
0x2e3d…2e4f at000e = ╱45╱E╱ // 0x2e4b @0xe
0x2e3d…2e4f at000f = ╱54╱T╱ // 0x2e4c @0xf
0x2e3d…2e4f at0010 = ╱b5╱ THEN ╱ // 0x2e4d @0x10
0x2e3d…2e4f at0011 = EOL // 0x2e4e @0x11
0x2e3d…2e4f }
0x2e4f…2e7a c468 04410 LET TOT ( T_IDX + 1 ) := TOT ( T_IDX + 1 ) + K_BKR
0x2e4f…2e7a LineComal80 {
0x2e4f…2e7a ptr = 0xc468 // 0x2e4f @0x0
0x2e4f…2e7a lno = 0x113a // 0x2e51 @0x2
0x2e4f…2e7a at0004 = ╱86╱ LET ╱ // 0x2e53 @0x4
0x2e4f…2e7a at0005 = ╱54╱T╱ // 0x2e54 @0x5
0x2e4f…2e7a at0006 = ╱4f╱O╱ // 0x2e55 @0x6
0x2e4f…2e7a at0007 = ╱54╱T╱ // 0x2e56 @0x7
0x2e4f…2e7a at0008 = ╱ed╱ ( ╱ // 0x2e57 @0x8
0x2e4f…2e7a at0009 = ╱54╱T╱ // 0x2e58 @0x9
0x2e4f…2e7a at000a = ╱5f╱_╱ // 0x2e59 @0xa
0x2e4f…2e7a at000b = ╱49╱I╱ // 0x2e5a @0xb
0x2e4f…2e7a at000c = ╱44╱D╱ // 0x2e5b @0xc
0x2e4f…2e7a at000d = ╱58╱X╱ // 0x2e5c @0xd
0x2e4f…2e7a at000e = ╱e5╱ + ╱ // 0x2e5d @0xe
0x2e4f…2e7a at000f = ╱31╱1╱ // 0x2e5e @0xf
0x2e4f…2e7a at0010 = ╱f20100╱ // 0x2e5f @0x10
0x2e4f…2e7a at0013 = ╱ee╱ ) ╱ // 0x2e62 @0x13
0x2e4f…2e7a at0014 = ╱f0╱ := ╱ // 0x2e63 @0x14
0x2e4f…2e7a at0015 = ╱54╱T╱ // 0x2e64 @0x15
0x2e4f…2e7a at0016 = ╱4f╱O╱ // 0x2e65 @0x16
0x2e4f…2e7a at0017 = ╱54╱T╱ // 0x2e66 @0x17
0x2e4f…2e7a at0018 = ╱ed╱ ( ╱ // 0x2e67 @0x18
0x2e4f…2e7a at0019 = ╱54╱T╱ // 0x2e68 @0x19
0x2e4f…2e7a at001a = ╱5f╱_╱ // 0x2e69 @0x1a
0x2e4f…2e7a at001b = ╱49╱I╱ // 0x2e6a @0x1b
0x2e4f…2e7a at001c = ╱44╱D╱ // 0x2e6b @0x1c
0x2e4f…2e7a at001d = ╱58╱X╱ // 0x2e6c @0x1d
0x2e4f…2e7a at001e = ╱e5╱ + ╱ // 0x2e6d @0x1e
0x2e4f…2e7a at001f = ╱31╱1╱ // 0x2e6e @0x1f
0x2e4f…2e7a at0020 = ╱f20100╱ // 0x2e6f @0x20
0x2e4f…2e7a at0023 = ╱ee╱ ) ╱ // 0x2e72 @0x23
0x2e4f…2e7a at0024 = ╱e5╱ + ╱ // 0x2e73 @0x24
0x2e4f…2e7a at0025 = ╱4b╱K╱ // 0x2e74 @0x25
0x2e4f…2e7a at0026 = ╱5f╱_╱ // 0x2e75 @0x26
0x2e4f…2e7a at0027 = ╱42╱B╱ // 0x2e76 @0x27
0x2e4f…2e7a at0028 = ╱4b╱K╱ // 0x2e77 @0x28
0x2e4f…2e7a at0029 = ╱52╱R╱ // 0x2e78 @0x29
0x2e4f…2e7a at002a = EOL // 0x2e79 @0x2a
0x2e4f…2e7a }
0x2e7a…2e81 c46f 04420 ELSE
0x2e7a…2e81 LineComal80 {
0x2e7a…2e81 ptr = 0xc46f // 0x2e7a @0x0
0x2e7a…2e81 lno = 0x1144 // 0x2e7c @0x2
0x2e7a…2e81 at0004 = ╱9a00╱ ELSE ╱ // 0x2e7e @0x4
0x2e7a…2e81 at0006 = EOL // 0x2e80 @0x6
0x2e7a…2e81 }
0x2e81…2ea2 c490 04430 LET TOT ( T_IDX ) := TOT ( T_IDX ) + K_BKR
0x2e81…2ea2 LineComal80 {
0x2e81…2ea2 ptr = 0xc490 // 0x2e81 @0x0
0x2e81…2ea2 lno = 0x114e // 0x2e83 @0x2
0x2e81…2ea2 at0004 = ╱86╱ LET ╱ // 0x2e85 @0x4
0x2e81…2ea2 at0005 = ╱54╱T╱ // 0x2e86 @0x5
0x2e81…2ea2 at0006 = ╱4f╱O╱ // 0x2e87 @0x6
0x2e81…2ea2 at0007 = ╱54╱T╱ // 0x2e88 @0x7
0x2e81…2ea2 at0008 = ╱ed╱ ( ╱ // 0x2e89 @0x8
0x2e81…2ea2 at0009 = ╱54╱T╱ // 0x2e8a @0x9
0x2e81…2ea2 at000a = ╱5f╱_╱ // 0x2e8b @0xa
0x2e81…2ea2 at000b = ╱49╱I╱ // 0x2e8c @0xb
0x2e81…2ea2 at000c = ╱44╱D╱ // 0x2e8d @0xc
0x2e81…2ea2 at000d = ╱58╱X╱ // 0x2e8e @0xd
0x2e81…2ea2 at000e = ╱ee╱ ) ╱ // 0x2e8f @0xe
0x2e81…2ea2 at000f = ╱f0╱ := ╱ // 0x2e90 @0xf
0x2e81…2ea2 at0010 = ╱54╱T╱ // 0x2e91 @0x10
0x2e81…2ea2 at0011 = ╱4f╱O╱ // 0x2e92 @0x11
0x2e81…2ea2 at0012 = ╱54╱T╱ // 0x2e93 @0x12
0x2e81…2ea2 at0013 = ╱ed╱ ( ╱ // 0x2e94 @0x13
0x2e81…2ea2 at0014 = ╱54╱T╱ // 0x2e95 @0x14
0x2e81…2ea2 at0015 = ╱5f╱_╱ // 0x2e96 @0x15
0x2e81…2ea2 at0016 = ╱49╱I╱ // 0x2e97 @0x16
0x2e81…2ea2 at0017 = ╱44╱D╱ // 0x2e98 @0x17
0x2e81…2ea2 at0018 = ╱58╱X╱ // 0x2e99 @0x18
0x2e81…2ea2 at0019 = ╱ee╱ ) ╱ // 0x2e9a @0x19
0x2e81…2ea2 at001a = ╱e5╱ + ╱ // 0x2e9b @0x1a
0x2e81…2ea2 at001b = ╱4b╱K╱ // 0x2e9c @0x1b
0x2e81…2ea2 at001c = ╱5f╱_╱ // 0x2e9d @0x1c
0x2e81…2ea2 at001d = ╱42╱B╱ // 0x2e9e @0x1d
0x2e81…2ea2 at001e = ╱4b╱K╱ // 0x2e9f @0x1e
0x2e81…2ea2 at001f = ╱52╱R╱ // 0x2ea0 @0x1f
0x2e81…2ea2 at0020 = EOL // 0x2ea1 @0x20
0x2e81…2ea2 }
0x2ea2…2ea8 c496 04440 ENDIF
0x2ea2…2ea8 LineComal80 {
0x2ea2…2ea8 ptr = 0xc496 // 0x2ea2 @0x0
0x2ea2…2ea8 lno = 0x1158 // 0x2ea4 @0x2
0x2ea2…2ea8 at0004 = ╱9c╱ ENDIF ╱ // 0x2ea6 @0x4
0x2ea2…2ea8 at0005 = EOL // 0x2ea7 @0x5
0x2ea2…2ea8 }
0x2ea8…2eae c49c 04450 ENDIF
0x2ea8…2eae LineComal80 {
0x2ea8…2eae ptr = 0xc49c // 0x2ea8 @0x0
0x2ea8…2eae lno = 0x1162 // 0x2eaa @0x2
0x2ea8…2eae at0004 = ╱9c╱ ENDIF ╱ // 0x2eac @0x4
0x2ea8…2eae at0005 = EOL // 0x2ead @0x5
0x2ea8…2eae }
0x2eae…2eb4 c4a2 04460 ENDIF
0x2eae…2eb4 LineComal80 {
0x2eae…2eb4 ptr = 0xc4a2 // 0x2eae @0x0
0x2eae…2eb4 lno = 0x116c // 0x2eb0 @0x2
0x2eae…2eb4 at0004 = ╱9c╱ ENDIF ╱ // 0x2eb2 @0x4
0x2eae…2eb4 at0005 = EOL // 0x2eb3 @0x5
0x2eae…2eb4 }
0x2eb4…2ebb c4a9 04470 NEXT I
0x2eb4…2ebb LineComal80 {
0x2eb4…2ebb ptr = 0xc4a9 // 0x2eb4 @0x0
0x2eb4…2ebb lno = 0x1176 // 0x2eb6 @0x2
0x2eb4…2ebb at0004 = ╱84╱ NEXT ╱ // 0x2eb8 @0x4
0x2eb4…2ebb at0005 = ╱49╱I╱ // 0x2eb9 @0x5
0x2eb4…2ebb at0006 = EOL // 0x2eba @0x6
0x2eb4…2ebb }
0x2ebb…2edc c4ca 04480 LET IDXPOS := FIND_KTO ( KASSE_KTO $ )
0x2ebb…2edc LineComal80 {
0x2ebb…2edc ptr = 0xc4ca // 0x2ebb @0x0
0x2ebb…2edc lno = 0x1180 // 0x2ebd @0x2
0x2ebb…2edc at0004 = ╱86╱ LET ╱ // 0x2ebf @0x4
0x2ebb…2edc at0005 = ╱49╱I╱ // 0x2ec0 @0x5
0x2ebb…2edc at0006 = ╱44╱D╱ // 0x2ec1 @0x6
0x2ebb…2edc at0007 = ╱58╱X╱ // 0x2ec2 @0x7
0x2ebb…2edc at0008 = ╱50╱P╱ // 0x2ec3 @0x8
0x2ebb…2edc at0009 = ╱4f╱O╱ // 0x2ec4 @0x9
0x2ebb…2edc at000a = ╱53╱S╱ // 0x2ec5 @0xa
0x2ebb…2edc at000b = ╱f0╱ := ╱ // 0x2ec6 @0xb
0x2ebb…2edc at000c = ╱46╱F╱ // 0x2ec7 @0xc
0x2ebb…2edc at000d = ╱49╱I╱ // 0x2ec8 @0xd
0x2ebb…2edc at000e = ╱4e╱N╱ // 0x2ec9 @0xe
0x2ebb…2edc at000f = ╱44╱D╱ // 0x2eca @0xf
0x2ebb…2edc at0010 = ╱5f╱_╱ // 0x2ecb @0x10
0x2ebb…2edc at0011 = ╱4b╱K╱ // 0x2ecc @0x11
0x2ebb…2edc at0012 = ╱54╱T╱ // 0x2ecd @0x12
0x2ebb…2edc at0013 = ╱4f╱O╱ // 0x2ece @0x13
0x2ebb…2edc at0014 = ╱ed╱ ( ╱ // 0x2ecf @0x14
0x2ebb…2edc at0015 = ╱4b╱K╱ // 0x2ed0 @0x15
0x2ebb…2edc at0016 = ╱41╱A╱ // 0x2ed1 @0x16
0x2ebb…2edc at0017 = ╱53╱S╱ // 0x2ed2 @0x17
0x2ebb…2edc at0018 = ╱53╱S╱ // 0x2ed3 @0x18
0x2ebb…2edc at0019 = ╱45╱E╱ // 0x2ed4 @0x19
0x2ebb…2edc at001a = ╱5f╱_╱ // 0x2ed5 @0x1a
0x2ebb…2edc at001b = ╱4b╱K╱ // 0x2ed6 @0x1b
0x2ebb…2edc at001c = ╱54╱T╱ // 0x2ed7 @0x1c
0x2ebb…2edc at001d = ╱4f╱O╱ // 0x2ed8 @0x1d
0x2ebb…2edc at001e = ╱ef╱ $ ╱ // 0x2ed9 @0x1e
0x2ebb…2edc at001f = ╱ee╱ ) ╱ // 0x2eda @0x1f
0x2ebb…2edc at0020 = EOL // 0x2edb @0x20
0x2ebb…2edc }
0x2edc…2ef2 c4e0 04490 EXEC L[S_KONTO ( RECNR )
0x2edc…2ef2 LineComal80 {
0x2edc…2ef2 ptr = 0xc4e0 // 0x2edc @0x0
0x2edc…2ef2 lno = 0x118a // 0x2ede @0x2
0x2edc…2ef2 at0004 = ╱9d╱ EXEC ╱ // 0x2ee0 @0x4
0x2edc…2ef2 at0005 = ╱4c╱L╱ // 0x2ee1 @0x5
0x2edc…2ef2 at0006 = ╱5b╱[╱ // 0x2ee2 @0x6
0x2edc…2ef2 at0007 = ╱53╱S╱ // 0x2ee3 @0x7
0x2edc…2ef2 at0008 = ╱5f╱_╱ // 0x2ee4 @0x8
0x2edc…2ef2 at0009 = ╱4b╱K╱ // 0x2ee5 @0x9
0x2edc…2ef2 at000a = ╱4f╱O╱ // 0x2ee6 @0xa
0x2edc…2ef2 at000b = ╱4e╱N╱ // 0x2ee7 @0xb
0x2edc…2ef2 at000c = ╱54╱T╱ // 0x2ee8 @0xc
0x2edc…2ef2 at000d = ╱4f╱O╱ // 0x2ee9 @0xd
0x2edc…2ef2 at000e = ╱ed╱ ( ╱ // 0x2eea @0xe
0x2edc…2ef2 at000f = ╱52╱R╱ // 0x2eeb @0xf
0x2edc…2ef2 at0010 = ╱45╱E╱ // 0x2eec @0x10
0x2edc…2ef2 at0011 = ╱43╱C╱ // 0x2eed @0x11
0x2edc…2ef2 at0012 = ╱4e╱N╱ // 0x2eee @0x12
0x2edc…2ef2 at0013 = ╱52╱R╱ // 0x2eef @0x13
0x2edc…2ef2 at0014 = ╱ee╱ ) ╱ // 0x2ef0 @0x14
0x2edc…2ef2 at0015 = EOL // 0x2ef1 @0x15
0x2edc…2ef2 }
0x2ef2…2f16 c504 04500 LET TOT ( 1 ) := TOT ( 1 ) + KTO_ULTIMO
0x2ef2…2f16 LineComal80 {
0x2ef2…2f16 ptr = 0xc504 // 0x2ef2 @0x0
0x2ef2…2f16 lno = 0x1194 // 0x2ef4 @0x2
0x2ef2…2f16 at0004 = ╱86╱ LET ╱ // 0x2ef6 @0x4
0x2ef2…2f16 at0005 = ╱54╱T╱ // 0x2ef7 @0x5
0x2ef2…2f16 at0006 = ╱4f╱O╱ // 0x2ef8 @0x6
0x2ef2…2f16 at0007 = ╱54╱T╱ // 0x2ef9 @0x7
0x2ef2…2f16 at0008 = ╱ed╱ ( ╱ // 0x2efa @0x8
0x2ef2…2f16 at0009 = ╱31╱1╱ // 0x2efb @0x9
0x2ef2…2f16 at000a = ╱f20100╱ // 0x2efc @0xa
0x2ef2…2f16 at000d = ╱ee╱ ) ╱ // 0x2eff @0xd
0x2ef2…2f16 at000e = ╱f0╱ := ╱ // 0x2f00 @0xe
0x2ef2…2f16 at000f = ╱54╱T╱ // 0x2f01 @0xf
0x2ef2…2f16 at0010 = ╱4f╱O╱ // 0x2f02 @0x10
0x2ef2…2f16 at0011 = ╱54╱T╱ // 0x2f03 @0x11
0x2ef2…2f16 at0012 = ╱ed╱ ( ╱ // 0x2f04 @0x12
0x2ef2…2f16 at0013 = ╱31╱1╱ // 0x2f05 @0x13
0x2ef2…2f16 at0014 = ╱f20100╱ // 0x2f06 @0x14
0x2ef2…2f16 at0017 = ╱ee╱ ) ╱ // 0x2f09 @0x17
0x2ef2…2f16 at0018 = ╱e5╱ + ╱ // 0x2f0a @0x18
0x2ef2…2f16 at0019 = ╱4b╱K╱ // 0x2f0b @0x19
0x2ef2…2f16 at001a = ╱54╱T╱ // 0x2f0c @0x1a
0x2ef2…2f16 at001b = ╱4f╱O╱ // 0x2f0d @0x1b
0x2ef2…2f16 at001c = ╱5f╱_╱ // 0x2f0e @0x1c
0x2ef2…2f16 at001d = ╱55╱U╱ // 0x2f0f @0x1d
0x2ef2…2f16 at001e = ╱4c╱L╱ // 0x2f10 @0x1e
0x2ef2…2f16 at001f = ╱54╱T╱ // 0x2f11 @0x1f
0x2ef2…2f16 at0020 = ╱49╱I╱ // 0x2f12 @0x20
0x2ef2…2f16 at0021 = ╱4d╱M╱ // 0x2f13 @0x21
0x2ef2…2f16 at0022 = ╱4f╱O╱ // 0x2f14 @0x22
0x2ef2…2f16 at0023 = EOL // 0x2f15 @0x23
0x2ef2…2f16 }
0x2f16…2f36 c524 04510 LET IDXPOS := FIND_KTO ( BANK_KTO $ )
0x2f16…2f36 LineComal80 {
0x2f16…2f36 ptr = 0xc524 // 0x2f16 @0x0
0x2f16…2f36 lno = 0x119e // 0x2f18 @0x2
0x2f16…2f36 at0004 = ╱86╱ LET ╱ // 0x2f1a @0x4
0x2f16…2f36 at0005 = ╱49╱I╱ // 0x2f1b @0x5
0x2f16…2f36 at0006 = ╱44╱D╱ // 0x2f1c @0x6
0x2f16…2f36 at0007 = ╱58╱X╱ // 0x2f1d @0x7
0x2f16…2f36 at0008 = ╱50╱P╱ // 0x2f1e @0x8
0x2f16…2f36 at0009 = ╱4f╱O╱ // 0x2f1f @0x9
0x2f16…2f36 at000a = ╱53╱S╱ // 0x2f20 @0xa
0x2f16…2f36 at000b = ╱f0╱ := ╱ // 0x2f21 @0xb
0x2f16…2f36 at000c = ╱46╱F╱ // 0x2f22 @0xc
0x2f16…2f36 at000d = ╱49╱I╱ // 0x2f23 @0xd
0x2f16…2f36 at000e = ╱4e╱N╱ // 0x2f24 @0xe
0x2f16…2f36 at000f = ╱44╱D╱ // 0x2f25 @0xf
0x2f16…2f36 at0010 = ╱5f╱_╱ // 0x2f26 @0x10
0x2f16…2f36 at0011 = ╱4b╱K╱ // 0x2f27 @0x11
0x2f16…2f36 at0012 = ╱54╱T╱ // 0x2f28 @0x12
0x2f16…2f36 at0013 = ╱4f╱O╱ // 0x2f29 @0x13
0x2f16…2f36 at0014 = ╱ed╱ ( ╱ // 0x2f2a @0x14
0x2f16…2f36 at0015 = ╱42╱B╱ // 0x2f2b @0x15
0x2f16…2f36 at0016 = ╱41╱A╱ // 0x2f2c @0x16
0x2f16…2f36 at0017 = ╱4e╱N╱ // 0x2f2d @0x17
0x2f16…2f36 at0018 = ╱4b╱K╱ // 0x2f2e @0x18
0x2f16…2f36 at0019 = ╱5f╱_╱ // 0x2f2f @0x19
0x2f16…2f36 at001a = ╱4b╱K╱ // 0x2f30 @0x1a
0x2f16…2f36 at001b = ╱54╱T╱ // 0x2f31 @0x1b
0x2f16…2f36 at001c = ╱4f╱O╱ // 0x2f32 @0x1c
0x2f16…2f36 at001d = ╱ef╱ $ ╱ // 0x2f33 @0x1d
0x2f16…2f36 at001e = ╱ee╱ ) ╱ // 0x2f34 @0x1e
0x2f16…2f36 at001f = EOL // 0x2f35 @0x1f
0x2f16…2f36 }
0x2f36…2f4c c53a 04520 EXEC L[S_KONTO ( RECNR )
0x2f36…2f4c LineComal80 {
0x2f36…2f4c ptr = 0xc53a // 0x2f36 @0x0
0x2f36…2f4c lno = 0x11a8 // 0x2f38 @0x2
0x2f36…2f4c at0004 = ╱9d╱ EXEC ╱ // 0x2f3a @0x4
0x2f36…2f4c at0005 = ╱4c╱L╱ // 0x2f3b @0x5
0x2f36…2f4c at0006 = ╱5b╱[╱ // 0x2f3c @0x6
0x2f36…2f4c at0007 = ╱53╱S╱ // 0x2f3d @0x7
0x2f36…2f4c at0008 = ╱5f╱_╱ // 0x2f3e @0x8
0x2f36…2f4c at0009 = ╱4b╱K╱ // 0x2f3f @0x9
0x2f36…2f4c at000a = ╱4f╱O╱ // 0x2f40 @0xa
0x2f36…2f4c at000b = ╱4e╱N╱ // 0x2f41 @0xb
0x2f36…2f4c at000c = ╱54╱T╱ // 0x2f42 @0xc
0x2f36…2f4c at000d = ╱4f╱O╱ // 0x2f43 @0xd
0x2f36…2f4c at000e = ╱ed╱ ( ╱ // 0x2f44 @0xe
0x2f36…2f4c at000f = ╱52╱R╱ // 0x2f45 @0xf
0x2f36…2f4c at0010 = ╱45╱E╱ // 0x2f46 @0x10
0x2f36…2f4c at0011 = ╱43╱C╱ // 0x2f47 @0x11
0x2f36…2f4c at0012 = ╱4e╱N╱ // 0x2f48 @0x12
0x2f36…2f4c at0013 = ╱52╱R╱ // 0x2f49 @0x13
0x2f36…2f4c at0014 = ╱ee╱ ) ╱ // 0x2f4a @0x14
0x2f36…2f4c at0015 = EOL // 0x2f4b @0x15
0x2f36…2f4c }
0x2f4c…2f70 c55e 04530 LET TOT ( 3 ) := TOT ( 3 ) + KTO_ULTIMO
0x2f4c…2f70 LineComal80 {
0x2f4c…2f70 ptr = 0xc55e // 0x2f4c @0x0
0x2f4c…2f70 lno = 0x11b2 // 0x2f4e @0x2
0x2f4c…2f70 at0004 = ╱86╱ LET ╱ // 0x2f50 @0x4
0x2f4c…2f70 at0005 = ╱54╱T╱ // 0x2f51 @0x5
0x2f4c…2f70 at0006 = ╱4f╱O╱ // 0x2f52 @0x6
0x2f4c…2f70 at0007 = ╱54╱T╱ // 0x2f53 @0x7
0x2f4c…2f70 at0008 = ╱ed╱ ( ╱ // 0x2f54 @0x8
0x2f4c…2f70 at0009 = ╱33╱3╱ // 0x2f55 @0x9
0x2f4c…2f70 at000a = ╱f20300╱ // 0x2f56 @0xa
0x2f4c…2f70 at000d = ╱ee╱ ) ╱ // 0x2f59 @0xd
0x2f4c…2f70 at000e = ╱f0╱ := ╱ // 0x2f5a @0xe
0x2f4c…2f70 at000f = ╱54╱T╱ // 0x2f5b @0xf
0x2f4c…2f70 at0010 = ╱4f╱O╱ // 0x2f5c @0x10
0x2f4c…2f70 at0011 = ╱54╱T╱ // 0x2f5d @0x11
0x2f4c…2f70 at0012 = ╱ed╱ ( ╱ // 0x2f5e @0x12
0x2f4c…2f70 at0013 = ╱33╱3╱ // 0x2f5f @0x13
0x2f4c…2f70 at0014 = ╱f20300╱ // 0x2f60 @0x14
0x2f4c…2f70 at0017 = ╱ee╱ ) ╱ // 0x2f63 @0x17
0x2f4c…2f70 at0018 = ╱e5╱ + ╱ // 0x2f64 @0x18
0x2f4c…2f70 at0019 = ╱4b╱K╱ // 0x2f65 @0x19
0x2f4c…2f70 at001a = ╱54╱T╱ // 0x2f66 @0x1a
0x2f4c…2f70 at001b = ╱4f╱O╱ // 0x2f67 @0x1b
0x2f4c…2f70 at001c = ╱5f╱_╱ // 0x2f68 @0x1c
0x2f4c…2f70 at001d = ╱55╱U╱ // 0x2f69 @0x1d
0x2f4c…2f70 at001e = ╱4c╱L╱ // 0x2f6a @0x1e
0x2f4c…2f70 at001f = ╱54╱T╱ // 0x2f6b @0x1f
0x2f4c…2f70 at0020 = ╱49╱I╱ // 0x2f6c @0x20
0x2f4c…2f70 at0021 = ╱4d╱M╱ // 0x2f6d @0x21
0x2f4c…2f70 at0022 = ╱4f╱O╱ // 0x2f6e @0x22
0x2f4c…2f70 at0023 = EOL // 0x2f6f @0x23
0x2f4c…2f70 }
0x2f70…2f90 c57e 04540 LET IDXPOS := FIND_KTO ( GIRO_KTO $ )
0x2f70…2f90 LineComal80 {
0x2f70…2f90 ptr = 0xc57e // 0x2f70 @0x0
0x2f70…2f90 lno = 0x11bc // 0x2f72 @0x2
0x2f70…2f90 at0004 = ╱86╱ LET ╱ // 0x2f74 @0x4
0x2f70…2f90 at0005 = ╱49╱I╱ // 0x2f75 @0x5
0x2f70…2f90 at0006 = ╱44╱D╱ // 0x2f76 @0x6
0x2f70…2f90 at0007 = ╱58╱X╱ // 0x2f77 @0x7
0x2f70…2f90 at0008 = ╱50╱P╱ // 0x2f78 @0x8
0x2f70…2f90 at0009 = ╱4f╱O╱ // 0x2f79 @0x9
0x2f70…2f90 at000a = ╱53╱S╱ // 0x2f7a @0xa
0x2f70…2f90 at000b = ╱f0╱ := ╱ // 0x2f7b @0xb
0x2f70…2f90 at000c = ╱46╱F╱ // 0x2f7c @0xc
0x2f70…2f90 at000d = ╱49╱I╱ // 0x2f7d @0xd
0x2f70…2f90 at000e = ╱4e╱N╱ // 0x2f7e @0xe
0x2f70…2f90 at000f = ╱44╱D╱ // 0x2f7f @0xf
0x2f70…2f90 at0010 = ╱5f╱_╱ // 0x2f80 @0x10
0x2f70…2f90 at0011 = ╱4b╱K╱ // 0x2f81 @0x11
0x2f70…2f90 at0012 = ╱54╱T╱ // 0x2f82 @0x12
0x2f70…2f90 at0013 = ╱4f╱O╱ // 0x2f83 @0x13
0x2f70…2f90 at0014 = ╱ed╱ ( ╱ // 0x2f84 @0x14
0x2f70…2f90 at0015 = ╱47╱G╱ // 0x2f85 @0x15
0x2f70…2f90 at0016 = ╱49╱I╱ // 0x2f86 @0x16
0x2f70…2f90 at0017 = ╱52╱R╱ // 0x2f87 @0x17
0x2f70…2f90 at0018 = ╱4f╱O╱ // 0x2f88 @0x18
0x2f70…2f90 at0019 = ╱5f╱_╱ // 0x2f89 @0x19
0x2f70…2f90 at001a = ╱4b╱K╱ // 0x2f8a @0x1a
0x2f70…2f90 at001b = ╱54╱T╱ // 0x2f8b @0x1b
0x2f70…2f90 at001c = ╱4f╱O╱ // 0x2f8c @0x1c
0x2f70…2f90 at001d = ╱ef╱ $ ╱ // 0x2f8d @0x1d
0x2f70…2f90 at001e = ╱ee╱ ) ╱ // 0x2f8e @0x1e
0x2f70…2f90 at001f = EOL // 0x2f8f @0x1f
0x2f70…2f90 }
0x2f90…2fa6 c594 04550 EXEC L[S_KONTO ( RECNR )
0x2f90…2fa6 LineComal80 {
0x2f90…2fa6 ptr = 0xc594 // 0x2f90 @0x0
0x2f90…2fa6 lno = 0x11c6 // 0x2f92 @0x2
0x2f90…2fa6 at0004 = ╱9d╱ EXEC ╱ // 0x2f94 @0x4
0x2f90…2fa6 at0005 = ╱4c╱L╱ // 0x2f95 @0x5
0x2f90…2fa6 at0006 = ╱5b╱[╱ // 0x2f96 @0x6
0x2f90…2fa6 at0007 = ╱53╱S╱ // 0x2f97 @0x7
0x2f90…2fa6 at0008 = ╱5f╱_╱ // 0x2f98 @0x8
0x2f90…2fa6 at0009 = ╱4b╱K╱ // 0x2f99 @0x9
0x2f90…2fa6 at000a = ╱4f╱O╱ // 0x2f9a @0xa
0x2f90…2fa6 at000b = ╱4e╱N╱ // 0x2f9b @0xb
0x2f90…2fa6 at000c = ╱54╱T╱ // 0x2f9c @0xc
0x2f90…2fa6 at000d = ╱4f╱O╱ // 0x2f9d @0xd
0x2f90…2fa6 at000e = ╱ed╱ ( ╱ // 0x2f9e @0xe
0x2f90…2fa6 at000f = ╱52╱R╱ // 0x2f9f @0xf
0x2f90…2fa6 at0010 = ╱45╱E╱ // 0x2fa0 @0x10
0x2f90…2fa6 at0011 = ╱43╱C╱ // 0x2fa1 @0x11
0x2f90…2fa6 at0012 = ╱4e╱N╱ // 0x2fa2 @0x12
0x2f90…2fa6 at0013 = ╱52╱R╱ // 0x2fa3 @0x13
0x2f90…2fa6 at0014 = ╱ee╱ ) ╱ // 0x2fa4 @0x14
0x2f90…2fa6 at0015 = EOL // 0x2fa5 @0x15
0x2f90…2fa6 }
0x2fa6…2fca c5b8 04560 LET TOT ( 5 ) := TOT ( 5 ) + KTO_ULTIMO
0x2fa6…2fca LineComal80 {
0x2fa6…2fca ptr = 0xc5b8 // 0x2fa6 @0x0
0x2fa6…2fca lno = 0x11d0 // 0x2fa8 @0x2
0x2fa6…2fca at0004 = ╱86╱ LET ╱ // 0x2faa @0x4
0x2fa6…2fca at0005 = ╱54╱T╱ // 0x2fab @0x5
0x2fa6…2fca at0006 = ╱4f╱O╱ // 0x2fac @0x6
0x2fa6…2fca at0007 = ╱54╱T╱ // 0x2fad @0x7
0x2fa6…2fca at0008 = ╱ed╱ ( ╱ // 0x2fae @0x8
0x2fa6…2fca at0009 = ╱35╱5╱ // 0x2faf @0x9
0x2fa6…2fca at000a = ╱f20500╱ // 0x2fb0 @0xa
0x2fa6…2fca at000d = ╱ee╱ ) ╱ // 0x2fb3 @0xd
0x2fa6…2fca at000e = ╱f0╱ := ╱ // 0x2fb4 @0xe
0x2fa6…2fca at000f = ╱54╱T╱ // 0x2fb5 @0xf
0x2fa6…2fca at0010 = ╱4f╱O╱ // 0x2fb6 @0x10
0x2fa6…2fca at0011 = ╱54╱T╱ // 0x2fb7 @0x11
0x2fa6…2fca at0012 = ╱ed╱ ( ╱ // 0x2fb8 @0x12
0x2fa6…2fca at0013 = ╱35╱5╱ // 0x2fb9 @0x13
0x2fa6…2fca at0014 = ╱f20500╱ // 0x2fba @0x14
0x2fa6…2fca at0017 = ╱ee╱ ) ╱ // 0x2fbd @0x17
0x2fa6…2fca at0018 = ╱e5╱ + ╱ // 0x2fbe @0x18
0x2fa6…2fca at0019 = ╱4b╱K╱ // 0x2fbf @0x19
0x2fa6…2fca at001a = ╱54╱T╱ // 0x2fc0 @0x1a
0x2fa6…2fca at001b = ╱4f╱O╱ // 0x2fc1 @0x1b
0x2fa6…2fca at001c = ╱5f╱_╱ // 0x2fc2 @0x1c
0x2fa6…2fca at001d = ╱55╱U╱ // 0x2fc3 @0x1d
0x2fa6…2fca at001e = ╱4c╱L╱ // 0x2fc4 @0x1e
0x2fa6…2fca at001f = ╱54╱T╱ // 0x2fc5 @0x1f
0x2fa6…2fca at0020 = ╱49╱I╱ // 0x2fc6 @0x20
0x2fa6…2fca at0021 = ╱4d╱M╱ // 0x2fc7 @0x21
0x2fa6…2fca at0022 = ╱4f╱O╱ // 0x2fc8 @0x22
0x2fa6…2fca at0023 = EOL // 0x2fc9 @0x23
0x2fa6…2fca }
0x2fca…2fd5 c5c3 04570 ENDPROC OPT[L
0x2fca…2fd5 LineComal80 {
0x2fca…2fd5 ptr = 0xc5c3 // 0x2fca @0x0
0x2fca…2fd5 lno = 0x11da // 0x2fcc @0x2
0x2fca…2fd5 at0004 = ╱9f╱ ENDPROC ╱ // 0x2fce @0x4
0x2fca…2fd5 at0005 = ╱4f╱O╱ // 0x2fcf @0x5
0x2fca…2fd5 at0006 = ╱50╱P╱ // 0x2fd0 @0x6
0x2fca…2fd5 at0007 = ╱54╱T╱ // 0x2fd1 @0x7
0x2fca…2fd5 at0008 = ╱5b╱[╱ // 0x2fd2 @0x8
0x2fca…2fd5 at0009 = ╱4c╱L╱ // 0x2fd3 @0x9
0x2fca…2fd5 at000a = EOL // 0x2fd4 @0xa
0x2fca…2fd5 }
0x2fd5…2fe6 c5d4 04580 PROC START_MENU
0x2fd5…2fe6 LineComal80 {
0x2fd5…2fe6 ptr = 0xc5d4 // 0x2fd5 @0x0
0x2fd5…2fe6 lno = 0x11e4 // 0x2fd7 @0x2
0x2fd5…2fe6 at0004 = ╱9e00╱ PROC ╱ // 0x2fd9 @0x4
0x2fd5…2fe6 at0006 = ╱53╱S╱ // 0x2fdb @0x6
0x2fd5…2fe6 at0007 = ╱54╱T╱ // 0x2fdc @0x7
0x2fd5…2fe6 at0008 = ╱41╱A╱ // 0x2fdd @0x8
0x2fd5…2fe6 at0009 = ╱52╱R╱ // 0x2fde @0x9
0x2fd5…2fe6 at000a = ╱54╱T╱ // 0x2fdf @0xa
0x2fd5…2fe6 at000b = ╱5f╱_╱ // 0x2fe0 @0xb
0x2fd5…2fe6 at000c = ╱4d╱M╱ // 0x2fe1 @0xc
0x2fd5…2fe6 at000d = ╱45╱E╱ // 0x2fe2 @0xd
0x2fd5…2fe6 at000e = ╱4e╱N╱ // 0x2fe3 @0xe
0x2fd5…2fe6 at000f = ╱55╱U╱ // 0x2fe4 @0xf
0x2fd5…2fe6 at0010 = EOL // 0x2fe5 @0x10
0x2fd5…2fe6 }
0x2fe6…3019 c607 04590 EXEC OVERSKRIFT ( "Afstemning…af…kasserapport" , 4 )
0x2fe6…3019 LineComal80 {
0x2fe6…3019 ptr = 0xc607 // 0x2fe6 @0x0
0x2fe6…3019 lno = 0x11ee // 0x2fe8 @0x2
0x2fe6…3019 at0004 = ╱9d╱ EXEC ╱ // 0x2fea @0x4
0x2fe6…3019 at0005 = ╱4f╱O╱ // 0x2feb @0x5
0x2fe6…3019 at0006 = ╱56╱V╱ // 0x2fec @0x6
0x2fe6…3019 at0007 = ╱45╱E╱ // 0x2fed @0x7
0x2fe6…3019 at0008 = ╱52╱R╱ // 0x2fee @0x8
0x2fe6…3019 at0009 = ╱53╱S╱ // 0x2fef @0x9
0x2fe6…3019 at000a = ╱4b╱K╱ // 0x2ff0 @0xa
0x2fe6…3019 at000b = ╱52╱R╱ // 0x2ff1 @0xb
0x2fe6…3019 at000c = ╱49╱I╱ // 0x2ff2 @0xc
0x2fe6…3019 at000d = ╱46╱F╱ // 0x2ff3 @0xd
0x2fe6…3019 at000e = ╱54╱T╱ // 0x2ff4 @0xe
0x2fe6…3019 at000f = ╱ed╱ ( ╱ // 0x2ff5 @0xf
0x2fe6…3019 at0010 = ╱22╱"╱ // 0x2ff6 @0x10
0x2fe6…3019 at0011 = ╱41╱A╱ // 0x2ff7 @0x11
0x2fe6…3019 at0012 = ╱66╱f╱ // 0x2ff8 @0x12
0x2fe6…3019 at0013 = ╱73╱s╱ // 0x2ff9 @0x13
0x2fe6…3019 at0014 = ╱74╱t╱ // 0x2ffa @0x14
0x2fe6…3019 at0015 = ╱65╱e╱ // 0x2ffb @0x15
0x2fe6…3019 at0016 = ╱6d╱m╱ // 0x2ffc @0x16
0x2fe6…3019 at0017 = ╱6e╱n╱ // 0x2ffd @0x17
0x2fe6…3019 at0018 = ╱69╱i╱ // 0x2ffe @0x18
0x2fe6…3019 at0019 = ╱6e╱n╱ // 0x2fff @0x19
0x2fe6…3019 at001a = ╱67╱g╱ // 0x3000 @0x1a
0x2fe6…3019 at001b = ╱20╱…╱ // 0x3001 @0x1b
0x2fe6…3019 at001c = ╱61╱a╱ // 0x3002 @0x1c
0x2fe6…3019 at001d = ╱66╱f╱ // 0x3003 @0x1d
0x2fe6…3019 at001e = ╱20╱…╱ // 0x3004 @0x1e
0x2fe6…3019 at001f = ╱6b╱k╱ // 0x3005 @0x1f
0x2fe6…3019 at0020 = ╱61╱a╱ // 0x3006 @0x20
0x2fe6…3019 at0021 = ╱73╱s╱ // 0x3007 @0x21
0x2fe6…3019 at0022 = ╱73╱s╱ // 0x3008 @0x22
0x2fe6…3019 at0023 = ╱65╱e╱ // 0x3009 @0x23
0x2fe6…3019 at0024 = ╱72╱r╱ // 0x300a @0x24
0x2fe6…3019 at0025 = ╱61╱a╱ // 0x300b @0x25
0x2fe6…3019 at0026 = ╱70╱p╱ // 0x300c @0x26
0x2fe6…3019 at0027 = ╱70╱p╱ // 0x300d @0x27
0x2fe6…3019 at0028 = ╱6f╱o╱ // 0x300e @0x28
0x2fe6…3019 at0029 = ╱72╱r╱ // 0x300f @0x29
0x2fe6…3019 at002a = ╱74╱t╱ // 0x3010 @0x2a
0x2fe6…3019 at002b = ╱22╱"╱ // 0x3011 @0x2b
0x2fe6…3019 at002c = ╱ec╱ , ╱ // 0x3012 @0x2c
0x2fe6…3019 at002d = ╱34╱4╱ // 0x3013 @0x2d
0x2fe6…3019 at002e = ╱f20400╱ // 0x3014 @0x2e
0x2fe6…3019 at0031 = ╱ee╱ ) ╱ // 0x3017 @0x31
0x2fe6…3019 at0032 = EOL // 0x3018 @0x32
0x2fe6…3019 }
0x3019…3045 c633 04600 CURSOR 42 - ╱cb╱ ( KASSE_KTO $ + "…KASSE" ) / 2 , 6
0x3019…3045 LineComal80 {
0x3019…3045 ptr = 0xc633 // 0x3019 @0x0
0x3019…3045 lno = 0x11f8 // 0x301b @0x2
0x3019…3045 at0004 = ╱a1╱ CURSOR ╱ // 0x301d @0x4
0x3019…3045 at0005 = ╱34╱4╱ // 0x301e @0x5
0x3019…3045 at0006 = ╱32╱2╱ // 0x301f @0x6
0x3019…3045 at0007 = ╱f22a00╱ // 0x3020 @0x7
0x3019…3045 at000a = ╱e6╱ - ╱ // 0x3023 @0xa
0x3019…3045 at000b = ╱cb╱ // 0x3024 @0xb
0x3019…3045 at000c = ╱ed╱ ( ╱ // 0x3025 @0xc
0x3019…3045 at000d = ╱4b╱K╱ // 0x3026 @0xd
0x3019…3045 at000e = ╱41╱A╱ // 0x3027 @0xe
0x3019…3045 at000f = ╱53╱S╱ // 0x3028 @0xf
0x3019…3045 at0010 = ╱53╱S╱ // 0x3029 @0x10
0x3019…3045 at0011 = ╱45╱E╱ // 0x302a @0x11
0x3019…3045 at0012 = ╱5f╱_╱ // 0x302b @0x12
0x3019…3045 at0013 = ╱4b╱K╱ // 0x302c @0x13
0x3019…3045 at0014 = ╱54╱T╱ // 0x302d @0x14
0x3019…3045 at0015 = ╱4f╱O╱ // 0x302e @0x15
0x3019…3045 at0016 = ╱ef╱ $ ╱ // 0x302f @0x16
0x3019…3045 at0017 = ╱eb╱ + ╱ // 0x3030 @0x17
0x3019…3045 at0018 = ╱22╱"╱ // 0x3031 @0x18
0x3019…3045 at0019 = ╱20╱…╱ // 0x3032 @0x19
0x3019…3045 at001a = ╱4b╱K╱ // 0x3033 @0x1a
0x3019…3045 at001b = ╱41╱A╱ // 0x3034 @0x1b
0x3019…3045 at001c = ╱53╱S╱ // 0x3035 @0x1c
0x3019…3045 at001d = ╱53╱S╱ // 0x3036 @0x1d
0x3019…3045 at001e = ╱45╱E╱ // 0x3037 @0x1e
0x3019…3045 at001f = ╱22╱"╱ // 0x3038 @0x1f
0x3019…3045 at0020 = ╱ee╱ ) ╱ // 0x3039 @0x20
0x3019…3045 at0021 = ╱e8╱ / ╱ // 0x303a @0x21
0x3019…3045 at0022 = ╱32╱2╱ // 0x303b @0x22
0x3019…3045 at0023 = ╱f20200╱ // 0x303c @0x23
0x3019…3045 at0026 = ╱ec╱ , ╱ // 0x303f @0x26
0x3019…3045 at0027 = ╱36╱6╱ // 0x3040 @0x27
0x3019…3045 at0028 = ╱f20600╱ // 0x3041 @0x28
0x3019…3045 at002b = EOL // 0x3044 @0x2b
0x3019…3045 }
0x3045…305e c64c 04610 PRINT KASSE_KTO $ ; "…KASSE"
0x3045…305e LineComal80 {
0x3045…305e ptr = 0xc64c // 0x3045 @0x0
0x3045…305e lno = 0x1202 // 0x3047 @0x2
0x3045…305e at0004 = ╱92╱ PRINT ╱ // 0x3049 @0x4
0x3045…305e at0005 = ╱4b╱K╱ // 0x304a @0x5
0x3045…305e at0006 = ╱41╱A╱ // 0x304b @0x6
0x3045…305e at0007 = ╱53╱S╱ // 0x304c @0x7
0x3045…305e at0008 = ╱53╱S╱ // 0x304d @0x8
0x3045…305e at0009 = ╱45╱E╱ // 0x304e @0x9
0x3045…305e at000a = ╱5f╱_╱ // 0x304f @0xa
0x3045…305e at000b = ╱4b╱K╱ // 0x3050 @0xb
0x3045…305e at000c = ╱54╱T╱ // 0x3051 @0xc
0x3045…305e at000d = ╱4f╱O╱ // 0x3052 @0xd
0x3045…305e at000e = ╱ef╱ $ ╱ // 0x3053 @0xe
0x3045…305e at000f = ╱ea╱ ; ╱ // 0x3054 @0xf
0x3045…305e at0010 = ╱22╱"╱ // 0x3055 @0x10
0x3045…305e at0011 = ╱20╱…╱ // 0x3056 @0x11
0x3045…305e at0012 = ╱4b╱K╱ // 0x3057 @0x12
0x3045…305e at0013 = ╱41╱A╱ // 0x3058 @0x13
0x3045…305e at0014 = ╱53╱S╱ // 0x3059 @0x14
0x3045…305e at0015 = ╱53╱S╱ // 0x305a @0x15
0x3045…305e at0016 = ╱45╱E╱ // 0x305b @0x16
0x3045…305e at0017 = ╱22╱"╱ // 0x305c @0x17
0x3045…305e at0018 = EOL // 0x305d @0x18
0x3045…305e }
0x305e…3088 c676 04620 CURSOR 56 - ╱cb╱ ( BANK_KTO $ + "…BANK" ) / 2 , 6
0x305e…3088 LineComal80 {
0x305e…3088 ptr = 0xc676 // 0x305e @0x0
0x305e…3088 lno = 0x120c // 0x3060 @0x2
0x305e…3088 at0004 = ╱a1╱ CURSOR ╱ // 0x3062 @0x4
0x305e…3088 at0005 = ╱35╱5╱ // 0x3063 @0x5
0x305e…3088 at0006 = ╱36╱6╱ // 0x3064 @0x6
0x305e…3088 at0007 = ╱f23800╱ // 0x3065 @0x7
0x305e…3088 at000a = ╱e6╱ - ╱ // 0x3068 @0xa
0x305e…3088 at000b = ╱cb╱ // 0x3069 @0xb
0x305e…3088 at000c = ╱ed╱ ( ╱ // 0x306a @0xc
0x305e…3088 at000d = ╱42╱B╱ // 0x306b @0xd
0x305e…3088 at000e = ╱41╱A╱ // 0x306c @0xe
0x305e…3088 at000f = ╱4e╱N╱ // 0x306d @0xf
0x305e…3088 at0010 = ╱4b╱K╱ // 0x306e @0x10
0x305e…3088 at0011 = ╱5f╱_╱ // 0x306f @0x11
0x305e…3088 at0012 = ╱4b╱K╱ // 0x3070 @0x12
0x305e…3088 at0013 = ╱54╱T╱ // 0x3071 @0x13
0x305e…3088 at0014 = ╱4f╱O╱ // 0x3072 @0x14
0x305e…3088 at0015 = ╱ef╱ $ ╱ // 0x3073 @0x15
0x305e…3088 at0016 = ╱eb╱ + ╱ // 0x3074 @0x16
0x305e…3088 at0017 = ╱22╱"╱ // 0x3075 @0x17
0x305e…3088 at0018 = ╱20╱…╱ // 0x3076 @0x18
0x305e…3088 at0019 = ╱42╱B╱ // 0x3077 @0x19
0x305e…3088 at001a = ╱41╱A╱ // 0x3078 @0x1a
0x305e…3088 at001b = ╱4e╱N╱ // 0x3079 @0x1b
0x305e…3088 at001c = ╱4b╱K╱ // 0x307a @0x1c
0x305e…3088 at001d = ╱22╱"╱ // 0x307b @0x1d
0x305e…3088 at001e = ╱ee╱ ) ╱ // 0x307c @0x1e
0x305e…3088 at001f = ╱e8╱ / ╱ // 0x307d @0x1f
0x305e…3088 at0020 = ╱32╱2╱ // 0x307e @0x20
0x305e…3088 at0021 = ╱f20200╱ // 0x307f @0x21
0x305e…3088 at0024 = ╱ec╱ , ╱ // 0x3082 @0x24
0x305e…3088 at0025 = ╱36╱6╱ // 0x3083 @0x25
0x305e…3088 at0026 = ╱f20600╱ // 0x3084 @0x26
0x305e…3088 at0029 = EOL // 0x3087 @0x29
0x305e…3088 }
0x3088…309f c68d 04630 PRINT BANK_KTO $ ; "…BANK"
0x3088…309f LineComal80 {
0x3088…309f ptr = 0xc68d // 0x3088 @0x0
0x3088…309f lno = 0x1216 // 0x308a @0x2
0x3088…309f at0004 = ╱92╱ PRINT ╱ // 0x308c @0x4
0x3088…309f at0005 = ╱42╱B╱ // 0x308d @0x5
0x3088…309f at0006 = ╱41╱A╱ // 0x308e @0x6
0x3088…309f at0007 = ╱4e╱N╱ // 0x308f @0x7
0x3088…309f at0008 = ╱4b╱K╱ // 0x3090 @0x8
0x3088…309f at0009 = ╱5f╱_╱ // 0x3091 @0x9
0x3088…309f at000a = ╱4b╱K╱ // 0x3092 @0xa
0x3088…309f at000b = ╱54╱T╱ // 0x3093 @0xb
0x3088…309f at000c = ╱4f╱O╱ // 0x3094 @0xc
0x3088…309f at000d = ╱ef╱ $ ╱ // 0x3095 @0xd
0x3088…309f at000e = ╱ea╱ ; ╱ // 0x3096 @0xe
0x3088…309f at000f = ╱22╱"╱ // 0x3097 @0xf
0x3088…309f at0010 = ╱20╱…╱ // 0x3098 @0x10
0x3088…309f at0011 = ╱42╱B╱ // 0x3099 @0x11
0x3088…309f at0012 = ╱41╱A╱ // 0x309a @0x12
0x3088…309f at0013 = ╱4e╱N╱ // 0x309b @0x13
0x3088…309f at0014 = ╱4b╱K╱ // 0x309c @0x14
0x3088…309f at0015 = ╱22╱"╱ // 0x309d @0x15
0x3088…309f at0016 = EOL // 0x309e @0x16
0x3088…309f }
0x309f…30c9 c6b7 04640 CURSOR 70 - ╱cb╱ ( GIRO_KTO $ + "…GIRO" ) / 2 , 6
0x309f…30c9 LineComal80 {
0x309f…30c9 ptr = 0xc6b7 // 0x309f @0x0
0x309f…30c9 lno = 0x1220 // 0x30a1 @0x2
0x309f…30c9 at0004 = ╱a1╱ CURSOR ╱ // 0x30a3 @0x4
0x309f…30c9 at0005 = ╱37╱7╱ // 0x30a4 @0x5
0x309f…30c9 at0006 = ╱30╱0╱ // 0x30a5 @0x6
0x309f…30c9 at0007 = ╱f24600╱ // 0x30a6 @0x7
0x309f…30c9 at000a = ╱e6╱ - ╱ // 0x30a9 @0xa
0x309f…30c9 at000b = ╱cb╱ // 0x30aa @0xb
0x309f…30c9 at000c = ╱ed╱ ( ╱ // 0x30ab @0xc
0x309f…30c9 at000d = ╱47╱G╱ // 0x30ac @0xd
0x309f…30c9 at000e = ╱49╱I╱ // 0x30ad @0xe
0x309f…30c9 at000f = ╱52╱R╱ // 0x30ae @0xf
0x309f…30c9 at0010 = ╱4f╱O╱ // 0x30af @0x10
0x309f…30c9 at0011 = ╱5f╱_╱ // 0x30b0 @0x11
0x309f…30c9 at0012 = ╱4b╱K╱ // 0x30b1 @0x12
0x309f…30c9 at0013 = ╱54╱T╱ // 0x30b2 @0x13
0x309f…30c9 at0014 = ╱4f╱O╱ // 0x30b3 @0x14
0x309f…30c9 at0015 = ╱ef╱ $ ╱ // 0x30b4 @0x15
0x309f…30c9 at0016 = ╱eb╱ + ╱ // 0x30b5 @0x16
0x309f…30c9 at0017 = ╱22╱"╱ // 0x30b6 @0x17
0x309f…30c9 at0018 = ╱20╱…╱ // 0x30b7 @0x18
0x309f…30c9 at0019 = ╱47╱G╱ // 0x30b8 @0x19
0x309f…30c9 at001a = ╱49╱I╱ // 0x30b9 @0x1a
0x309f…30c9 at001b = ╱52╱R╱ // 0x30ba @0x1b
0x309f…30c9 at001c = ╱4f╱O╱ // 0x30bb @0x1c
0x309f…30c9 at001d = ╱22╱"╱ // 0x30bc @0x1d
0x309f…30c9 at001e = ╱ee╱ ) ╱ // 0x30bd @0x1e
0x309f…30c9 at001f = ╱e8╱ / ╱ // 0x30be @0x1f
0x309f…30c9 at0020 = ╱32╱2╱ // 0x30bf @0x20
0x309f…30c9 at0021 = ╱f20200╱ // 0x30c0 @0x21
0x309f…30c9 at0024 = ╱ec╱ , ╱ // 0x30c3 @0x24
0x309f…30c9 at0025 = ╱36╱6╱ // 0x30c4 @0x25
0x309f…30c9 at0026 = ╱f20600╱ // 0x30c5 @0x26
0x309f…30c9 at0029 = EOL // 0x30c8 @0x29
0x309f…30c9 }
0x30c9…30e0 c6ce 04650 PRINT GIRO_KTO $ ; "…GIRO"
0x30c9…30e0 LineComal80 {
0x30c9…30e0 ptr = 0xc6ce // 0x30c9 @0x0
0x30c9…30e0 lno = 0x122a // 0x30cb @0x2
0x30c9…30e0 at0004 = ╱92╱ PRINT ╱ // 0x30cd @0x4
0x30c9…30e0 at0005 = ╱47╱G╱ // 0x30ce @0x5
0x30c9…30e0 at0006 = ╱49╱I╱ // 0x30cf @0x6
0x30c9…30e0 at0007 = ╱52╱R╱ // 0x30d0 @0x7
0x30c9…30e0 at0008 = ╱4f╱O╱ // 0x30d1 @0x8
0x30c9…30e0 at0009 = ╱5f╱_╱ // 0x30d2 @0x9
0x30c9…30e0 at000a = ╱4b╱K╱ // 0x30d3 @0xa
0x30c9…30e0 at000b = ╱54╱T╱ // 0x30d4 @0xb
0x30c9…30e0 at000c = ╱4f╱O╱ // 0x30d5 @0xc
0x30c9…30e0 at000d = ╱ef╱ $ ╱ // 0x30d6 @0xd
0x30c9…30e0 at000e = ╱ea╱ ; ╱ // 0x30d7 @0xe
0x30c9…30e0 at000f = ╱22╱"╱ // 0x30d8 @0xf
0x30c9…30e0 at0010 = ╱20╱…╱ // 0x30d9 @0x10
0x30c9…30e0 at0011 = ╱47╱G╱ // 0x30da @0x11
0x30c9…30e0 at0012 = ╱49╱I╱ // 0x30db @0x12
0x30c9…30e0 at0013 = ╱52╱R╱ // 0x30dc @0x13
0x30c9…30e0 at0014 = ╱4f╱O╱ // 0x30dd @0x14
0x30c9…30e0 at0015 = ╱22╱"╱ // 0x30de @0x15
0x30c9…30e0 at0016 = EOL // 0x30df @0x16
0x30c9…30e0 }
0x30e0…3108 c6f6 04660 PRINT "<C0708>Beregnet…beholdning…aften"
0x30e0…3108 LineComal80 {
0x30e0…3108 ptr = 0xc6f6 // 0x30e0 @0x0
0x30e0…3108 lno = 0x1234 // 0x30e2 @0x2
0x30e0…3108 at0004 = ╱92╱ PRINT ╱ // 0x30e4 @0x4
0x30e0…3108 at0005 = ╱22╱"╱ // 0x30e5 @0x5
0x30e0…3108 at0006 = ╱3c╱<╱ // 0x30e6 @0x6
0x30e0…3108 at0007 = ╱43╱C╱ // 0x30e7 @0x7
0x30e0…3108 at0008 = ╱30╱0╱ // 0x30e8 @0x8
0x30e0…3108 at0009 = ╱37╱7╱ // 0x30e9 @0x9
0x30e0…3108 at000a = ╱30╱0╱ // 0x30ea @0xa
0x30e0…3108 at000b = ╱38╱8╱ // 0x30eb @0xb
0x30e0…3108 at000c = ╱3e╱>╱ // 0x30ec @0xc
0x30e0…3108 at000d = ╱42╱B╱ // 0x30ed @0xd
0x30e0…3108 at000e = ╱65╱e╱ // 0x30ee @0xe
0x30e0…3108 at000f = ╱72╱r╱ // 0x30ef @0xf
0x30e0…3108 at0010 = ╱65╱e╱ // 0x30f0 @0x10
0x30e0…3108 at0011 = ╱67╱g╱ // 0x30f1 @0x11
0x30e0…3108 at0012 = ╱6e╱n╱ // 0x30f2 @0x12
0x30e0…3108 at0013 = ╱65╱e╱ // 0x30f3 @0x13
0x30e0…3108 at0014 = ╱74╱t╱ // 0x30f4 @0x14
0x30e0…3108 at0015 = ╱20╱…╱ // 0x30f5 @0x15
0x30e0…3108 at0016 = ╱62╱b╱ // 0x30f6 @0x16
0x30e0…3108 at0017 = ╱65╱e╱ // 0x30f7 @0x17
0x30e0…3108 at0018 = ╱68╱h╱ // 0x30f8 @0x18
0x30e0…3108 at0019 = ╱6f╱o╱ // 0x30f9 @0x19
0x30e0…3108 at001a = ╱6c╱l╱ // 0x30fa @0x1a
0x30e0…3108 at001b = ╱64╱d╱ // 0x30fb @0x1b
0x30e0…3108 at001c = ╱6e╱n╱ // 0x30fc @0x1c
0x30e0…3108 at001d = ╱69╱i╱ // 0x30fd @0x1d
0x30e0…3108 at001e = ╱6e╱n╱ // 0x30fe @0x1e
0x30e0…3108 at001f = ╱67╱g╱ // 0x30ff @0x1f
0x30e0…3108 at0020 = ╱20╱…╱ // 0x3100 @0x20
0x30e0…3108 at0021 = ╱61╱a╱ // 0x3101 @0x21
0x30e0…3108 at0022 = ╱66╱f╱ // 0x3102 @0x22
0x30e0…3108 at0023 = ╱74╱t╱ // 0x3103 @0x23
0x30e0…3108 at0024 = ╱65╱e╱ // 0x3104 @0x24
0x30e0…3108 at0025 = ╱6e╱n╱ // 0x3105 @0x25
0x30e0…3108 at0026 = ╱22╱"╱ // 0x3106 @0x26
0x30e0…3108 at0027 = EOL // 0x3107 @0x27
0x30e0…3108 }
0x3108…315f c74d 04670 PRINT "<SC3708>" ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 ) ; "……" ; CHR$ ( TOT ( 3 ) - TOT ( 4 ) , 9 , 2 )
0x3108…315f LineComal80 {
0x3108…315f ptr = 0xc74d // 0x3108 @0x0
0x3108…315f lno = 0x123e // 0x310a @0x2
0x3108…315f at0004 = ╱92╱ PRINT ╱ // 0x310c @0x4
0x3108…315f at0005 = ╱22╱"╱ // 0x310d @0x5
0x3108…315f at0006 = ╱3c╱<╱ // 0x310e @0x6
0x3108…315f at0007 = ╱53╱S╱ // 0x310f @0x7
0x3108…315f at0008 = ╱43╱C╱ // 0x3110 @0x8
0x3108…315f at0009 = ╱33╱3╱ // 0x3111 @0x9
0x3108…315f at000a = ╱37╱7╱ // 0x3112 @0xa
0x3108…315f at000b = ╱30╱0╱ // 0x3113 @0xb
0x3108…315f at000c = ╱38╱8╱ // 0x3114 @0xc
0x3108…315f at000d = ╱3e╱>╱ // 0x3115 @0xd
0x3108…315f at000e = ╱22╱"╱ // 0x3116 @0xe
0x3108…315f at000f = ╱ea╱ ; ╱ // 0x3117 @0xf
0x3108…315f at0010 = ╱d0╱ CHR$ ╱ // 0x3118 @0x10
0x3108…315f at0011 = ╱ed╱ ( ╱ // 0x3119 @0x11
0x3108…315f at0012 = ╱54╱T╱ // 0x311a @0x12
0x3108…315f at0013 = ╱4f╱O╱ // 0x311b @0x13
0x3108…315f at0014 = ╱54╱T╱ // 0x311c @0x14
0x3108…315f at0015 = ╱ed╱ ( ╱ // 0x311d @0x15
0x3108…315f at0016 = ╱31╱1╱ // 0x311e @0x16
0x3108…315f at0017 = ╱f20100╱ // 0x311f @0x17
0x3108…315f at001a = ╱ee╱ ) ╱ // 0x3122 @0x1a
0x3108…315f at001b = ╱e6╱ - ╱ // 0x3123 @0x1b
0x3108…315f at001c = ╱54╱T╱ // 0x3124 @0x1c
0x3108…315f at001d = ╱4f╱O╱ // 0x3125 @0x1d
0x3108…315f at001e = ╱54╱T╱ // 0x3126 @0x1e
0x3108…315f at001f = ╱ed╱ ( ╱ // 0x3127 @0x1f
0x3108…315f at0020 = ╱32╱2╱ // 0x3128 @0x20
0x3108…315f at0021 = ╱f20200╱ // 0x3129 @0x21
0x3108…315f at0024 = ╱ee╱ ) ╱ // 0x312c @0x24
0x3108…315f at0025 = ╱ec╱ , ╱ // 0x312d @0x25
0x3108…315f at0026 = ╱39╱9╱ // 0x312e @0x26
0x3108…315f at0027 = ╱f20900╱ // 0x312f @0x27
0x3108…315f at002a = ╱ec╱ , ╱ // 0x3132 @0x2a
0x3108…315f at002b = ╱32╱2╱ // 0x3133 @0x2b
0x3108…315f at002c = ╱f20200╱ // 0x3134 @0x2c
0x3108…315f at002f = ╱ee╱ ) ╱ // 0x3137 @0x2f
0x3108…315f at0030 = ╱ea╱ ; ╱ // 0x3138 @0x30
0x3108…315f at0031 = ╱22╱"╱ // 0x3139 @0x31
0x3108…315f at0032 = ╱20╱…╱ // 0x313a @0x32
0x3108…315f at0033 = ╱20╱…╱ // 0x313b @0x33
0x3108…315f at0034 = ╱22╱"╱ // 0x313c @0x34
0x3108…315f at0035 = ╱ea╱ ; ╱ // 0x313d @0x35
0x3108…315f at0036 = ╱d0╱ CHR$ ╱ // 0x313e @0x36
0x3108…315f at0037 = ╱ed╱ ( ╱ // 0x313f @0x37
0x3108…315f at0038 = ╱54╱T╱ // 0x3140 @0x38
0x3108…315f at0039 = ╱4f╱O╱ // 0x3141 @0x39
0x3108…315f at003a = ╱54╱T╱ // 0x3142 @0x3a
0x3108…315f at003b = ╱ed╱ ( ╱ // 0x3143 @0x3b
0x3108…315f at003c = ╱33╱3╱ // 0x3144 @0x3c
0x3108…315f at003d = ╱f20300╱ // 0x3145 @0x3d
0x3108…315f at0040 = ╱ee╱ ) ╱ // 0x3148 @0x40
0x3108…315f at0041 = ╱e6╱ - ╱ // 0x3149 @0x41
0x3108…315f at0042 = ╱54╱T╱ // 0x314a @0x42
0x3108…315f at0043 = ╱4f╱O╱ // 0x314b @0x43
0x3108…315f at0044 = ╱54╱T╱ // 0x314c @0x44
0x3108…315f at0045 = ╱ed╱ ( ╱ // 0x314d @0x45
0x3108…315f at0046 = ╱34╱4╱ // 0x314e @0x46
0x3108…315f at0047 = ╱f20400╱ // 0x314f @0x47
0x3108…315f at004a = ╱ee╱ ) ╱ // 0x3152 @0x4a
0x3108…315f at004b = ╱ec╱ , ╱ // 0x3153 @0x4b
0x3108…315f at004c = ╱39╱9╱ // 0x3154 @0x4c
0x3108…315f at004d = ╱f20900╱ // 0x3155 @0x4d
0x3108…315f at0050 = ╱ec╱ , ╱ // 0x3158 @0x50
0x3108…315f at0051 = ╱32╱2╱ // 0x3159 @0x51
0x3108…315f at0052 = ╱f20200╱ // 0x315a @0x52
0x3108…315f at0055 = ╱ee╱ ) ╱ // 0x315d @0x55
0x3108…315f at0056 = EOL // 0x315e @0x56
0x3108…315f }
0x315f…318a c778 04680 PRINT "……" ; CHR$ ( TOT ( 5 ) - TOT ( 6 ) , 9 , 2 )
0x315f…318a LineComal80 {
0x315f…318a ptr = 0xc778 // 0x315f @0x0
0x315f…318a lno = 0x1248 // 0x3161 @0x2
0x315f…318a at0004 = ╱92╱ PRINT ╱ // 0x3163 @0x4
0x315f…318a at0005 = ╱22╱"╱ // 0x3164 @0x5
0x315f…318a at0006 = ╱20╱…╱ // 0x3165 @0x6
0x315f…318a at0007 = ╱20╱…╱ // 0x3166 @0x7
0x315f…318a at0008 = ╱22╱"╱ // 0x3167 @0x8
0x315f…318a at0009 = ╱ea╱ ; ╱ // 0x3168 @0x9
0x315f…318a at000a = ╱d0╱ CHR$ ╱ // 0x3169 @0xa
0x315f…318a at000b = ╱ed╱ ( ╱ // 0x316a @0xb
0x315f…318a at000c = ╱54╱T╱ // 0x316b @0xc
0x315f…318a at000d = ╱4f╱O╱ // 0x316c @0xd
0x315f…318a at000e = ╱54╱T╱ // 0x316d @0xe
0x315f…318a at000f = ╱ed╱ ( ╱ // 0x316e @0xf
0x315f…318a at0010 = ╱35╱5╱ // 0x316f @0x10
0x315f…318a at0011 = ╱f20500╱ // 0x3170 @0x11
0x315f…318a at0014 = ╱ee╱ ) ╱ // 0x3173 @0x14
0x315f…318a at0015 = ╱e6╱ - ╱ // 0x3174 @0x15
0x315f…318a at0016 = ╱54╱T╱ // 0x3175 @0x16
0x315f…318a at0017 = ╱4f╱O╱ // 0x3176 @0x17
0x315f…318a at0018 = ╱54╱T╱ // 0x3177 @0x18
0x315f…318a at0019 = ╱ed╱ ( ╱ // 0x3178 @0x19
0x315f…318a at001a = ╱36╱6╱ // 0x3179 @0x1a
0x315f…318a at001b = ╱f20600╱ // 0x317a @0x1b
0x315f…318a at001e = ╱ee╱ ) ╱ // 0x317d @0x1e
0x315f…318a at001f = ╱ec╱ , ╱ // 0x317e @0x1f
0x315f…318a at0020 = ╱39╱9╱ // 0x317f @0x20
0x315f…318a at0021 = ╱f20900╱ // 0x3180 @0x21
0x315f…318a at0024 = ╱ec╱ , ╱ // 0x3183 @0x24
0x315f…318a at0025 = ╱32╱2╱ // 0x3184 @0x25
0x315f…318a at0026 = ╱f20200╱ // 0x3185 @0x26
0x315f…318a at0029 = ╱ee╱ ) ╱ // 0x3188 @0x29
0x315f…318a at002a = EOL // 0x3189 @0x2a
0x315f…318a }
0x318a…31b0 c79e 04690 PRINT "<C0711>Indtast…herefter…optalt"
0x318a…31b0 LineComal80 {
0x318a…31b0 ptr = 0xc79e // 0x318a @0x0
0x318a…31b0 lno = 0x1252 // 0x318c @0x2
0x318a…31b0 at0004 = ╱92╱ PRINT ╱ // 0x318e @0x4
0x318a…31b0 at0005 = ╱22╱"╱ // 0x318f @0x5
0x318a…31b0 at0006 = ╱3c╱<╱ // 0x3190 @0x6
0x318a…31b0 at0007 = ╱43╱C╱ // 0x3191 @0x7
0x318a…31b0 at0008 = ╱30╱0╱ // 0x3192 @0x8
0x318a…31b0 at0009 = ╱37╱7╱ // 0x3193 @0x9
0x318a…31b0 at000a = ╱31╱1╱ // 0x3194 @0xa
0x318a…31b0 at000b = ╱31╱1╱ // 0x3195 @0xb
0x318a…31b0 at000c = ╱3e╱>╱ // 0x3196 @0xc
0x318a…31b0 at000d = ╱49╱I╱ // 0x3197 @0xd
0x318a…31b0 at000e = ╱6e╱n╱ // 0x3198 @0xe
0x318a…31b0 at000f = ╱64╱d╱ // 0x3199 @0xf
0x318a…31b0 at0010 = ╱74╱t╱ // 0x319a @0x10
0x318a…31b0 at0011 = ╱61╱a╱ // 0x319b @0x11
0x318a…31b0 at0012 = ╱73╱s╱ // 0x319c @0x12
0x318a…31b0 at0013 = ╱74╱t╱ // 0x319d @0x13
0x318a…31b0 at0014 = ╱20╱…╱ // 0x319e @0x14
0x318a…31b0 at0015 = ╱68╱h╱ // 0x319f @0x15
0x318a…31b0 at0016 = ╱65╱e╱ // 0x31a0 @0x16
0x318a…31b0 at0017 = ╱72╱r╱ // 0x31a1 @0x17
0x318a…31b0 at0018 = ╱65╱e╱ // 0x31a2 @0x18
0x318a…31b0 at0019 = ╱66╱f╱ // 0x31a3 @0x19
0x318a…31b0 at001a = ╱74╱t╱ // 0x31a4 @0x1a
0x318a…31b0 at001b = ╱65╱e╱ // 0x31a5 @0x1b
0x318a…31b0 at001c = ╱72╱r╱ // 0x31a6 @0x1c
0x318a…31b0 at001d = ╱20╱…╱ // 0x31a7 @0x1d
0x318a…31b0 at001e = ╱6f╱o╱ // 0x31a8 @0x1e
0x318a…31b0 at001f = ╱70╱p╱ // 0x31a9 @0x1f
0x318a…31b0 at0020 = ╱74╱t╱ // 0x31aa @0x20
0x318a…31b0 at0021 = ╱61╱a╱ // 0x31ab @0x21
0x318a…31b0 at0022 = ╱6c╱l╱ // 0x31ac @0x22
0x318a…31b0 at0023 = ╱74╱t╱ // 0x31ad @0x23
0x318a…31b0 at0024 = ╱22╱"╱ // 0x31ae @0x24
0x318a…31b0 at0025 = EOL // 0x31af @0x25
0x318a…31b0 }
0x31b0…31e7 c7d5 04700 INPUT "<C0712>kassebeholdning…aften………………………" : KASSE_BEH
0x31b0…31e7 LineComal80 {
0x31b0…31e7 ptr = 0xc7d5 // 0x31b0 @0x0
0x31b0…31e7 lno = 0x125c // 0x31b2 @0x2
0x31b0…31e7 at0004 = ╱91╱ INPUT ╱ // 0x31b4 @0x4
0x31b0…31e7 at0005 = ╱22╱"╱ // 0x31b5 @0x5
0x31b0…31e7 at0006 = ╱3c╱<╱ // 0x31b6 @0x6
0x31b0…31e7 at0007 = ╱43╱C╱ // 0x31b7 @0x7
0x31b0…31e7 at0008 = ╱30╱0╱ // 0x31b8 @0x8
0x31b0…31e7 at0009 = ╱37╱7╱ // 0x31b9 @0x9
0x31b0…31e7 at000a = ╱31╱1╱ // 0x31ba @0xa
0x31b0…31e7 at000b = ╱32╱2╱ // 0x31bb @0xb
0x31b0…31e7 at000c = ╱3e╱>╱ // 0x31bc @0xc
0x31b0…31e7 at000d = ╱6b╱k╱ // 0x31bd @0xd
0x31b0…31e7 at000e = ╱61╱a╱ // 0x31be @0xe
0x31b0…31e7 at000f = ╱73╱s╱ // 0x31bf @0xf
0x31b0…31e7 at0010 = ╱73╱s╱ // 0x31c0 @0x10
0x31b0…31e7 at0011 = ╱65╱e╱ // 0x31c1 @0x11
0x31b0…31e7 at0012 = ╱62╱b╱ // 0x31c2 @0x12
0x31b0…31e7 at0013 = ╱65╱e╱ // 0x31c3 @0x13
0x31b0…31e7 at0014 = ╱68╱h╱ // 0x31c4 @0x14
0x31b0…31e7 at0015 = ╱6f╱o╱ // 0x31c5 @0x15
0x31b0…31e7 at0016 = ╱6c╱l╱ // 0x31c6 @0x16
0x31b0…31e7 at0017 = ╱64╱d╱ // 0x31c7 @0x17
0x31b0…31e7 at0018 = ╱6e╱n╱ // 0x31c8 @0x18
0x31b0…31e7 at0019 = ╱69╱i╱ // 0x31c9 @0x19
0x31b0…31e7 at001a = ╱6e╱n╱ // 0x31ca @0x1a
0x31b0…31e7 at001b = ╱67╱g╱ // 0x31cb @0x1b
0x31b0…31e7 at001c = ╱20╱…╱ // 0x31cc @0x1c
0x31b0…31e7 at001d = ╱61╱a╱ // 0x31cd @0x1d
0x31b0…31e7 at001e = ╱66╱f╱ // 0x31ce @0x1e
0x31b0…31e7 at001f = ╱74╱t╱ // 0x31cf @0x1f
0x31b0…31e7 at0020 = ╱65╱e╱ // 0x31d0 @0x20
0x31b0…31e7 at0021 = ╱6e╱n╱ // 0x31d1 @0x21
0x31b0…31e7 at0022 = ╱20╱…╱ // 0x31d2 @0x22
0x31b0…31e7 at0023 = ╱20╱…╱ // 0x31d3 @0x23
0x31b0…31e7 at0024 = ╱20╱…╱ // 0x31d4 @0x24
0x31b0…31e7 at0025 = ╱20╱…╱ // 0x31d5 @0x25
0x31b0…31e7 at0026 = ╱20╱…╱ // 0x31d6 @0x26
0x31b0…31e7 at0027 = ╱20╱…╱ // 0x31d7 @0x27
0x31b0…31e7 at0028 = ╱20╱…╱ // 0x31d8 @0x28
0x31b0…31e7 at0029 = ╱20╱…╱ // 0x31d9 @0x29
0x31b0…31e7 at002a = ╱20╱…╱ // 0x31da @0x2a
0x31b0…31e7 at002b = ╱22╱"╱ // 0x31db @0x2b
0x31b0…31e7 at002c = ╱f1╱ : ╱ // 0x31dc @0x2c
0x31b0…31e7 at002d = ╱4b╱K╱ // 0x31dd @0x2d
0x31b0…31e7 at002e = ╱41╱A╱ // 0x31de @0x2e
0x31b0…31e7 at002f = ╱53╱S╱ // 0x31df @0x2f
0x31b0…31e7 at0030 = ╱53╱S╱ // 0x31e0 @0x30
0x31b0…31e7 at0031 = ╱45╱E╱ // 0x31e1 @0x31
0x31b0…31e7 at0032 = ╱5f╱_╱ // 0x31e2 @0x32
0x31b0…31e7 at0033 = ╱42╱B╱ // 0x31e3 @0x33
0x31b0…31e7 at0034 = ╱45╱E╱ // 0x31e4 @0x34
0x31b0…31e7 at0035 = ╱48╱H╱ // 0x31e5 @0x35
0x31b0…31e7 at0036 = EOL // 0x31e6 @0x36
0x31b0…31e7 }
0x31e7…320d c7fb 04710 PRINT "<C3712>" ; CHR$ ( KASSE_BEH , 9 , 2 )
0x31e7…320d LineComal80 {
0x31e7…320d ptr = 0xc7fb // 0x31e7 @0x0
0x31e7…320d lno = 0x1266 // 0x31e9 @0x2
0x31e7…320d at0004 = ╱92╱ PRINT ╱ // 0x31eb @0x4
0x31e7…320d at0005 = ╱22╱"╱ // 0x31ec @0x5
0x31e7…320d at0006 = ╱3c╱<╱ // 0x31ed @0x6
0x31e7…320d at0007 = ╱43╱C╱ // 0x31ee @0x7
0x31e7…320d at0008 = ╱33╱3╱ // 0x31ef @0x8
0x31e7…320d at0009 = ╱37╱7╱ // 0x31f0 @0x9
0x31e7…320d at000a = ╱31╱1╱ // 0x31f1 @0xa
0x31e7…320d at000b = ╱32╱2╱ // 0x31f2 @0xb
0x31e7…320d at000c = ╱3e╱>╱ // 0x31f3 @0xc
0x31e7…320d at000d = ╱22╱"╱ // 0x31f4 @0xd
0x31e7…320d at000e = ╱ea╱ ; ╱ // 0x31f5 @0xe
0x31e7…320d at000f = ╱d0╱ CHR$ ╱ // 0x31f6 @0xf
0x31e7…320d at0010 = ╱ed╱ ( ╱ // 0x31f7 @0x10
0x31e7…320d at0011 = ╱4b╱K╱ // 0x31f8 @0x11
0x31e7…320d at0012 = ╱41╱A╱ // 0x31f9 @0x12
0x31e7…320d at0013 = ╱53╱S╱ // 0x31fa @0x13
0x31e7…320d at0014 = ╱53╱S╱ // 0x31fb @0x14
0x31e7…320d at0015 = ╱45╱E╱ // 0x31fc @0x15
0x31e7…320d at0016 = ╱5f╱_╱ // 0x31fd @0x16
0x31e7…320d at0017 = ╱42╱B╱ // 0x31fe @0x17
0x31e7…320d at0018 = ╱45╱E╱ // 0x31ff @0x18
0x31e7…320d at0019 = ╱48╱H╱ // 0x3200 @0x19
0x31e7…320d at001a = ╱ec╱ , ╱ // 0x3201 @0x1a
0x31e7…320d at001b = ╱39╱9╱ // 0x3202 @0x1b
0x31e7…320d at001c = ╱f20900╱ // 0x3203 @0x1c
0x31e7…320d at001f = ╱ec╱ , ╱ // 0x3206 @0x1f
0x31e7…320d at0020 = ╱32╱2╱ // 0x3207 @0x20
0x31e7…320d at0021 = ╱f20200╱ // 0x3208 @0x21
0x31e7…320d at0024 = ╱ee╱ ) ╱ // 0x320b @0x24
0x31e7…320d at0025 = EOL // 0x320c @0x25
0x31e7…320d }
0x320d…3239 c827 04720 LET K_DIFF := KASSE_BEH - ( TOT ( 1 ) - TOT ( 2 ) )
0x320d…3239 LineComal80 {
0x320d…3239 ptr = 0xc827 // 0x320d @0x0
0x320d…3239 lno = 0x1270 // 0x320f @0x2
0x320d…3239 at0004 = ╱86╱ LET ╱ // 0x3211 @0x4
0x320d…3239 at0005 = ╱4b╱K╱ // 0x3212 @0x5
0x320d…3239 at0006 = ╱5f╱_╱ // 0x3213 @0x6
0x320d…3239 at0007 = ╱44╱D╱ // 0x3214 @0x7
0x320d…3239 at0008 = ╱49╱I╱ // 0x3215 @0x8
0x320d…3239 at0009 = ╱46╱F╱ // 0x3216 @0x9
0x320d…3239 at000a = ╱46╱F╱ // 0x3217 @0xa
0x320d…3239 at000b = ╱f0╱ := ╱ // 0x3218 @0xb
0x320d…3239 at000c = ╱4b╱K╱ // 0x3219 @0xc
0x320d…3239 at000d = ╱41╱A╱ // 0x321a @0xd
0x320d…3239 at000e = ╱53╱S╱ // 0x321b @0xe
0x320d…3239 at000f = ╱53╱S╱ // 0x321c @0xf
0x320d…3239 at0010 = ╱45╱E╱ // 0x321d @0x10
0x320d…3239 at0011 = ╱5f╱_╱ // 0x321e @0x11
0x320d…3239 at0012 = ╱42╱B╱ // 0x321f @0x12
0x320d…3239 at0013 = ╱45╱E╱ // 0x3220 @0x13
0x320d…3239 at0014 = ╱48╱H╱ // 0x3221 @0x14
0x320d…3239 at0015 = ╱e6╱ - ╱ // 0x3222 @0x15
0x320d…3239 at0016 = ╱ed╱ ( ╱ // 0x3223 @0x16
0x320d…3239 at0017 = ╱54╱T╱ // 0x3224 @0x17
0x320d…3239 at0018 = ╱4f╱O╱ // 0x3225 @0x18
0x320d…3239 at0019 = ╱54╱T╱ // 0x3226 @0x19
0x320d…3239 at001a = ╱ed╱ ( ╱ // 0x3227 @0x1a
0x320d…3239 at001b = ╱31╱1╱ // 0x3228 @0x1b
0x320d…3239 at001c = ╱f20100╱ // 0x3229 @0x1c
0x320d…3239 at001f = ╱ee╱ ) ╱ // 0x322c @0x1f
0x320d…3239 at0020 = ╱e6╱ - ╱ // 0x322d @0x20
0x320d…3239 at0021 = ╱54╱T╱ // 0x322e @0x21
0x320d…3239 at0022 = ╱4f╱O╱ // 0x322f @0x22
0x320d…3239 at0023 = ╱54╱T╱ // 0x3230 @0x23
0x320d…3239 at0024 = ╱ed╱ ( ╱ // 0x3231 @0x24
0x320d…3239 at0025 = ╱32╱2╱ // 0x3232 @0x25
0x320d…3239 at0026 = ╱f20200╱ // 0x3233 @0x26
0x320d…3239 at0029 = ╱ee╱ ) ╱ // 0x3236 @0x29
0x320d…3239 at002a = ╱ee╱ ) ╱ // 0x3237 @0x2a
0x320d…3239 at002b = EOL // 0x3238 @0x2b
0x320d…3239 }
0x3239…3261 c84f 04730 PRINT "<C0715>Kassedifference…i…forhold"
0x3239…3261 LineComal80 {
0x3239…3261 ptr = 0xc84f // 0x3239 @0x0
0x3239…3261 lno = 0x127a // 0x323b @0x2
0x3239…3261 at0004 = ╱92╱ PRINT ╱ // 0x323d @0x4
0x3239…3261 at0005 = ╱22╱"╱ // 0x323e @0x5
0x3239…3261 at0006 = ╱3c╱<╱ // 0x323f @0x6
0x3239…3261 at0007 = ╱43╱C╱ // 0x3240 @0x7
0x3239…3261 at0008 = ╱30╱0╱ // 0x3241 @0x8
0x3239…3261 at0009 = ╱37╱7╱ // 0x3242 @0x9
0x3239…3261 at000a = ╱31╱1╱ // 0x3243 @0xa
0x3239…3261 at000b = ╱35╱5╱ // 0x3244 @0xb
0x3239…3261 at000c = ╱3e╱>╱ // 0x3245 @0xc
0x3239…3261 at000d = ╱4b╱K╱ // 0x3246 @0xd
0x3239…3261 at000e = ╱61╱a╱ // 0x3247 @0xe
0x3239…3261 at000f = ╱73╱s╱ // 0x3248 @0xf
0x3239…3261 at0010 = ╱73╱s╱ // 0x3249 @0x10
0x3239…3261 at0011 = ╱65╱e╱ // 0x324a @0x11
0x3239…3261 at0012 = ╱64╱d╱ // 0x324b @0x12
0x3239…3261 at0013 = ╱69╱i╱ // 0x324c @0x13
0x3239…3261 at0014 = ╱66╱f╱ // 0x324d @0x14
0x3239…3261 at0015 = ╱66╱f╱ // 0x324e @0x15
0x3239…3261 at0016 = ╱65╱e╱ // 0x324f @0x16
0x3239…3261 at0017 = ╱72╱r╱ // 0x3250 @0x17
0x3239…3261 at0018 = ╱65╱e╱ // 0x3251 @0x18
0x3239…3261 at0019 = ╱6e╱n╱ // 0x3252 @0x19
0x3239…3261 at001a = ╱63╱c╱ // 0x3253 @0x1a
0x3239…3261 at001b = ╱65╱e╱ // 0x3254 @0x1b
0x3239…3261 at001c = ╱20╱…╱ // 0x3255 @0x1c
0x3239…3261 at001d = ╱69╱i╱ // 0x3256 @0x1d
0x3239…3261 at001e = ╱20╱…╱ // 0x3257 @0x1e
0x3239…3261 at001f = ╱66╱f╱ // 0x3258 @0x1f
0x3239…3261 at0020 = ╱6f╱o╱ // 0x3259 @0x20
0x3239…3261 at0021 = ╱72╱r╱ // 0x325a @0x21
0x3239…3261 at0022 = ╱68╱h╱ // 0x325b @0x22
0x3239…3261 at0023 = ╱6f╱o╱ // 0x325c @0x23
0x3239…3261 at0024 = ╱6c╱l╱ // 0x325d @0x24
0x3239…3261 at0025 = ╱64╱d╱ // 0x325e @0x25
0x3239…3261 at0026 = ╱22╱"╱ // 0x325f @0x26
0x3239…3261 at0027 = EOL // 0x3260 @0x27
0x3239…3261 }
0x3261…32a2 c890 04740 PRINT "<C0716>til…optalt…beholdning………………………" ; CHR$ ( K_DIFF , 9 , 2 )
0x3261…32a2 LineComal80 {
0x3261…32a2 ptr = 0xc890 // 0x3261 @0x0
0x3261…32a2 lno = 0x1284 // 0x3263 @0x2
0x3261…32a2 at0004 = ╱92╱ PRINT ╱ // 0x3265 @0x4
0x3261…32a2 at0005 = ╱22╱"╱ // 0x3266 @0x5
0x3261…32a2 at0006 = ╱3c╱<╱ // 0x3267 @0x6
0x3261…32a2 at0007 = ╱43╱C╱ // 0x3268 @0x7
0x3261…32a2 at0008 = ╱30╱0╱ // 0x3269 @0x8
0x3261…32a2 at0009 = ╱37╱7╱ // 0x326a @0x9
0x3261…32a2 at000a = ╱31╱1╱ // 0x326b @0xa
0x3261…32a2 at000b = ╱36╱6╱ // 0x326c @0xb
0x3261…32a2 at000c = ╱3e╱>╱ // 0x326d @0xc
0x3261…32a2 at000d = ╱74╱t╱ // 0x326e @0xd
0x3261…32a2 at000e = ╱69╱i╱ // 0x326f @0xe
0x3261…32a2 at000f = ╱6c╱l╱ // 0x3270 @0xf
0x3261…32a2 at0010 = ╱20╱…╱ // 0x3271 @0x10
0x3261…32a2 at0011 = ╱6f╱o╱ // 0x3272 @0x11
0x3261…32a2 at0012 = ╱70╱p╱ // 0x3273 @0x12
0x3261…32a2 at0013 = ╱74╱t╱ // 0x3274 @0x13
0x3261…32a2 at0014 = ╱61╱a╱ // 0x3275 @0x14
0x3261…32a2 at0015 = ╱6c╱l╱ // 0x3276 @0x15
0x3261…32a2 at0016 = ╱74╱t╱ // 0x3277 @0x16
0x3261…32a2 at0017 = ╱20╱…╱ // 0x3278 @0x17
0x3261…32a2 at0018 = ╱62╱b╱ // 0x3279 @0x18
0x3261…32a2 at0019 = ╱65╱e╱ // 0x327a @0x19
0x3261…32a2 at001a = ╱68╱h╱ // 0x327b @0x1a
0x3261…32a2 at001b = ╱6f╱o╱ // 0x327c @0x1b
0x3261…32a2 at001c = ╱6c╱l╱ // 0x327d @0x1c
0x3261…32a2 at001d = ╱64╱d╱ // 0x327e @0x1d
0x3261…32a2 at001e = ╱6e╱n╱ // 0x327f @0x1e
0x3261…32a2 at001f = ╱69╱i╱ // 0x3280 @0x1f
0x3261…32a2 at0020 = ╱6e╱n╱ // 0x3281 @0x20
0x3261…32a2 at0021 = ╱67╱g╱ // 0x3282 @0x21
0x3261…32a2 at0022 = ╱20╱…╱ // 0x3283 @0x22
0x3261…32a2 at0023 = ╱20╱…╱ // 0x3284 @0x23
0x3261…32a2 at0024 = ╱20╱…╱ // 0x3285 @0x24
0x3261…32a2 at0025 = ╱20╱…╱ // 0x3286 @0x25
0x3261…32a2 at0026 = ╱20╱…╱ // 0x3287 @0x26
0x3261…32a2 at0027 = ╱20╱…╱ // 0x3288 @0x27
0x3261…32a2 at0028 = ╱20╱…╱ // 0x3289 @0x28
0x3261…32a2 at0029 = ╱20╱…╱ // 0x328a @0x29
0x3261…32a2 at002a = ╱20╱…╱ // 0x328b @0x2a
0x3261…32a2 at002b = ╱22╱"╱ // 0x328c @0x2b
0x3261…32a2 at002c = ╱ea╱ ; ╱ // 0x328d @0x2c
0x3261…32a2 at002d = ╱d0╱ CHR$ ╱ // 0x328e @0x2d
0x3261…32a2 at002e = ╱ed╱ ( ╱ // 0x328f @0x2e
0x3261…32a2 at002f = ╱4b╱K╱ // 0x3290 @0x2f
0x3261…32a2 at0030 = ╱5f╱_╱ // 0x3291 @0x30
0x3261…32a2 at0031 = ╱44╱D╱ // 0x3292 @0x31
0x3261…32a2 at0032 = ╱49╱I╱ // 0x3293 @0x32
0x3261…32a2 at0033 = ╱46╱F╱ // 0x3294 @0x33
0x3261…32a2 at0034 = ╱46╱F╱ // 0x3295 @0x34
0x3261…32a2 at0035 = ╱ec╱ , ╱ // 0x3296 @0x35
0x3261…32a2 at0036 = ╱39╱9╱ // 0x3297 @0x36
0x3261…32a2 at0037 = ╱f20900╱ // 0x3298 @0x37
0x3261…32a2 at003a = ╱ec╱ , ╱ // 0x329b @0x3a
0x3261…32a2 at003b = ╱32╱2╱ // 0x329c @0x3b
0x3261…32a2 at003c = ╱f20200╱ // 0x329d @0x3c
0x3261…32a2 at003f = ╱ee╱ ) ╱ // 0x32a0 @0x3f
0x3261…32a2 at0040 = EOL // 0x32a1 @0x40
0x3261…32a2 }
0x32a2…32a9 c897 04750 REPEAT
0x32a2…32a9 LineComal80 {
0x32a2…32a9 ptr = 0xc897 // 0x32a2 @0x0
0x32a2…32a9 lno = 0x128e // 0x32a4 @0x2
0x32a2…32a9 at0004 = ╱9700╱ REPEAT ╱ // 0x32a6 @0x4
0x32a2…32a9 at0006 = EOL // 0x32a8 @0x6
0x32a2…32a9 }
0x32a9…32b8 c8a6 04760 LET SVAR $ := "j"
0x32a9…32b8 LineComal80 {
0x32a9…32b8 ptr = 0xc8a6 // 0x32a9 @0x0
0x32a9…32b8 lno = 0x1298 // 0x32ab @0x2
0x32a9…32b8 at0004 = ╱86╱ LET ╱ // 0x32ad @0x4
0x32a9…32b8 at0005 = ╱53╱S╱ // 0x32ae @0x5
0x32a9…32b8 at0006 = ╱56╱V╱ // 0x32af @0x6
0x32a9…32b8 at0007 = ╱41╱A╱ // 0x32b0 @0x7
0x32a9…32b8 at0008 = ╱52╱R╱ // 0x32b1 @0x8
0x32a9…32b8 at0009 = ╱ef╱ $ ╱ // 0x32b2 @0x9
0x32a9…32b8 at000a = ╱f0╱ := ╱ // 0x32b3 @0xa
0x32a9…32b8 at000b = ╱22╱"╱ // 0x32b4 @0xb
0x32a9…32b8 at000c = ╱6a╱j╱ // 0x32b5 @0xc
0x32a9…32b8 at000d = ╱22╱"╱ // 0x32b6 @0xd
0x32a9…32b8 at000e = EOL // 0x32b7 @0xe
0x32a9…32b8 }
0x32b8…32f3 c8e1 04770 EDIT "<SC2320>Godkend…kassedifference…(j/n)?…" : SVAR $ ( 1 )
0x32b8…32f3 LineComal80 {
0x32b8…32f3 ptr = 0xc8e1 // 0x32b8 @0x0
0x32b8…32f3 lno = 0x12a2 // 0x32ba @0x2
0x32b8…32f3 at0004 = ╱b1╱ EDIT ╱ // 0x32bc @0x4
0x32b8…32f3 at0005 = ╱22╱"╱ // 0x32bd @0x5
0x32b8…32f3 at0006 = ╱3c╱<╱ // 0x32be @0x6
0x32b8…32f3 at0007 = ╱53╱S╱ // 0x32bf @0x7
0x32b8…32f3 at0008 = ╱43╱C╱ // 0x32c0 @0x8
0x32b8…32f3 at0009 = ╱32╱2╱ // 0x32c1 @0x9
0x32b8…32f3 at000a = ╱33╱3╱ // 0x32c2 @0xa
0x32b8…32f3 at000b = ╱32╱2╱ // 0x32c3 @0xb
0x32b8…32f3 at000c = ╱30╱0╱ // 0x32c4 @0xc
0x32b8…32f3 at000d = ╱3e╱>╱ // 0x32c5 @0xd
0x32b8…32f3 at000e = ╱47╱G╱ // 0x32c6 @0xe
0x32b8…32f3 at000f = ╱6f╱o╱ // 0x32c7 @0xf
0x32b8…32f3 at0010 = ╱64╱d╱ // 0x32c8 @0x10
0x32b8…32f3 at0011 = ╱6b╱k╱ // 0x32c9 @0x11
0x32b8…32f3 at0012 = ╱65╱e╱ // 0x32ca @0x12
0x32b8…32f3 at0013 = ╱6e╱n╱ // 0x32cb @0x13
0x32b8…32f3 at0014 = ╱64╱d╱ // 0x32cc @0x14
0x32b8…32f3 at0015 = ╱20╱…╱ // 0x32cd @0x15
0x32b8…32f3 at0016 = ╱6b╱k╱ // 0x32ce @0x16
0x32b8…32f3 at0017 = ╱61╱a╱ // 0x32cf @0x17
0x32b8…32f3 at0018 = ╱73╱s╱ // 0x32d0 @0x18
0x32b8…32f3 at0019 = ╱73╱s╱ // 0x32d1 @0x19
0x32b8…32f3 at001a = ╱65╱e╱ // 0x32d2 @0x1a
0x32b8…32f3 at001b = ╱64╱d╱ // 0x32d3 @0x1b
0x32b8…32f3 at001c = ╱69╱i╱ // 0x32d4 @0x1c
0x32b8…32f3 at001d = ╱66╱f╱ // 0x32d5 @0x1d
0x32b8…32f3 at001e = ╱66╱f╱ // 0x32d6 @0x1e
0x32b8…32f3 at001f = ╱65╱e╱ // 0x32d7 @0x1f
0x32b8…32f3 at0020 = ╱72╱r╱ // 0x32d8 @0x20
0x32b8…32f3 at0021 = ╱65╱e╱ // 0x32d9 @0x21
0x32b8…32f3 at0022 = ╱6e╱n╱ // 0x32da @0x22
0x32b8…32f3 at0023 = ╱63╱c╱ // 0x32db @0x23
0x32b8…32f3 at0024 = ╱65╱e╱ // 0x32dc @0x24
0x32b8…32f3 at0025 = ╱20╱…╱ // 0x32dd @0x25
0x32b8…32f3 at0026 = ╱28╱(╱ // 0x32de @0x26
0x32b8…32f3 at0027 = ╱6a╱j╱ // 0x32df @0x27
0x32b8…32f3 at0028 = ╱2f╱/╱ // 0x32e0 @0x28
0x32b8…32f3 at0029 = ╱6e╱n╱ // 0x32e1 @0x29
0x32b8…32f3 at002a = ╱29╱)╱ // 0x32e2 @0x2a
0x32b8…32f3 at002b = ╱3f╱?╱ // 0x32e3 @0x2b
0x32b8…32f3 at002c = ╱20╱…╱ // 0x32e4 @0x2c
0x32b8…32f3 at002d = ╱22╱"╱ // 0x32e5 @0x2d
0x32b8…32f3 at002e = ╱f1╱ : ╱ // 0x32e6 @0x2e
0x32b8…32f3 at002f = ╱53╱S╱ // 0x32e7 @0x2f
0x32b8…32f3 at0030 = ╱56╱V╱ // 0x32e8 @0x30
0x32b8…32f3 at0031 = ╱41╱A╱ // 0x32e9 @0x31
0x32b8…32f3 at0032 = ╱52╱R╱ // 0x32ea @0x32
0x32b8…32f3 at0033 = ╱ef╱ $ ╱ // 0x32eb @0x33
0x32b8…32f3 at0034 = ╱ed╱ ( ╱ // 0x32ec @0x34
0x32b8…32f3 at0035 = ╱31╱1╱ // 0x32ed @0x35
0x32b8…32f3 at0036 = ╱f20100╱ // 0x32ee @0x36
0x32b8…32f3 at0039 = ╱ee╱ ) ╱ // 0x32f1 @0x39
0x32b8…32f3 at003a = EOL // 0x32f2 @0x3a
0x32b8…32f3 }
0x32f3…3312 c900 04780 UNTIL "/" + SVAR $ + "/" IN "/J/j/N/n/"
0x32f3…3312 LineComal80 {
0x32f3…3312 ptr = 0xc900 // 0x32f3 @0x0
0x32f3…3312 lno = 0x12ac // 0x32f5 @0x2
0x32f3…3312 at0004 = ╱98╱ UNTIL ╱ // 0x32f7 @0x4
0x32f3…3312 at0005 = ╱22╱"╱ // 0x32f8 @0x5
0x32f3…3312 at0006 = ╱2f╱/╱ // 0x32f9 @0x6
0x32f3…3312 at0007 = ╱22╱"╱ // 0x32fa @0x7
0x32f3…3312 at0008 = ╱eb╱ + ╱ // 0x32fb @0x8
0x32f3…3312 at0009 = ╱53╱S╱ // 0x32fc @0x9
0x32f3…3312 at000a = ╱56╱V╱ // 0x32fd @0xa
0x32f3…3312 at000b = ╱41╱A╱ // 0x32fe @0xb
0x32f3…3312 at000c = ╱52╱R╱ // 0x32ff @0xc
0x32f3…3312 at000d = ╱ef╱ $ ╱ // 0x3300 @0xd
0x32f3…3312 at000e = ╱eb╱ + ╱ // 0x3301 @0xe
0x32f3…3312 at000f = ╱22╱"╱ // 0x3302 @0xf
0x32f3…3312 at0010 = ╱2f╱/╱ // 0x3303 @0x10
0x32f3…3312 at0011 = ╱22╱"╱ // 0x3304 @0x11
0x32f3…3312 at0012 = ╱dc╱ IN ╱ // 0x3305 @0x12
0x32f3…3312 at0013 = ╱22╱"╱ // 0x3306 @0x13
0x32f3…3312 at0014 = ╱2f╱/╱ // 0x3307 @0x14
0x32f3…3312 at0015 = ╱4a╱J╱ // 0x3308 @0x15
0x32f3…3312 at0016 = ╱2f╱/╱ // 0x3309 @0x16
0x32f3…3312 at0017 = ╱6a╱j╱ // 0x330a @0x17
0x32f3…3312 at0018 = ╱2f╱/╱ // 0x330b @0x18
0x32f3…3312 at0019 = ╱4e╱N╱ // 0x330c @0x19
0x32f3…3312 at001a = ╱2f╱/╱ // 0x330d @0x1a
0x32f3…3312 at001b = ╱6e╱n╱ // 0x330e @0x1b
0x32f3…3312 at001c = ╱2f╱/╱ // 0x330f @0x1c
0x32f3…3312 at001d = ╱22╱"╱ // 0x3310 @0x1d
0x32f3…3312 at001e = EOL // 0x3311 @0x1e
0x32f3…3312 }
0x3312…3324 c912 04790 IF VAR $ IN "Nn" THEN
0x3312…3324 LineComal80 {
0x3312…3324 ptr = 0xc912 // 0x3312 @0x0
0x3312…3324 lno = 0x12b6 // 0x3314 @0x2
0x3312…3324 at0004 = ╱9b0053╱ IF ╱ // 0x3316 @0x4
0x3312…3324 at0007 = ╱56╱V╱ // 0x3319 @0x7
0x3312…3324 at0008 = ╱41╱A╱ // 0x331a @0x8
0x3312…3324 at0009 = ╱52╱R╱ // 0x331b @0x9
0x3312…3324 at000a = ╱ef╱ $ ╱ // 0x331c @0xa
0x3312…3324 at000b = ╱dc╱ IN ╱ // 0x331d @0xb
0x3312…3324 at000c = ╱22╱"╱ // 0x331e @0xc
0x3312…3324 at000d = ╱4e╱N╱ // 0x331f @0xd
0x3312…3324 at000e = ╱6e╱n╱ // 0x3320 @0xe
0x3312…3324 at000f = ╱22╱"╱ // 0x3321 @0xf
0x3312…3324 at0010 = ╱b5╱ THEN ╱ // 0x3322 @0x10
0x3312…3324 at0011 = EOL // 0x3323 @0x11
0x3312…3324 }
0x3324…336c c95a 04800 PRINT "<XSC1212>G}…tilbage…og…ret…kasseposteringerne…under…funktionskod"
0x3324…336c LineComal80 {
0x3324…336c ptr = 0xc95a // 0x3324 @0x0
0x3324…336c lno = 0x12c0 // 0x3326 @0x2
0x3324…336c at0004 = ╱92╱ PRINT ╱ // 0x3328 @0x4
0x3324…336c at0005 = ╱22╱"╱ // 0x3329 @0x5
0x3324…336c at0006 = ╱3c╱<╱ // 0x332a @0x6
0x3324…336c at0007 = ╱58╱X╱ // 0x332b @0x7
0x3324…336c at0008 = ╱53╱S╱ // 0x332c @0x8
0x3324…336c at0009 = ╱43╱C╱ // 0x332d @0x9
0x3324…336c at000a = ╱31╱1╱ // 0x332e @0xa
0x3324…336c at000b = ╱32╱2╱ // 0x332f @0xb
0x3324…336c at000c = ╱31╱1╱ // 0x3330 @0xc
0x3324…336c at000d = ╱32╱2╱ // 0x3331 @0xd
0x3324…336c at000e = ╱3e╱>╱ // 0x3332 @0xe
0x3324…336c at000f = ╱47╱G╱ // 0x3333 @0xf
0x3324…336c at0010 = ╱7d╱}╱ // 0x3334 @0x10
0x3324…336c at0011 = ╱20╱…╱ // 0x3335 @0x11
0x3324…336c at0012 = ╱74╱t╱ // 0x3336 @0x12
0x3324…336c at0013 = ╱69╱i╱ // 0x3337 @0x13
0x3324…336c at0014 = ╱6c╱l╱ // 0x3338 @0x14
0x3324…336c at0015 = ╱62╱b╱ // 0x3339 @0x15
0x3324…336c at0016 = ╱61╱a╱ // 0x333a @0x16
0x3324…336c at0017 = ╱67╱g╱ // 0x333b @0x17
0x3324…336c at0018 = ╱65╱e╱ // 0x333c @0x18
0x3324…336c at0019 = ╱20╱…╱ // 0x333d @0x19
0x3324…336c at001a = ╱6f╱o╱ // 0x333e @0x1a
0x3324…336c at001b = ╱67╱g╱ // 0x333f @0x1b
0x3324…336c at001c = ╱20╱…╱ // 0x3340 @0x1c
0x3324…336c at001d = ╱72╱r╱ // 0x3341 @0x1d
0x3324…336c at001e = ╱65╱e╱ // 0x3342 @0x1e
0x3324…336c at001f = ╱74╱t╱ // 0x3343 @0x1f
0x3324…336c at0020 = ╱20╱…╱ // 0x3344 @0x20
0x3324…336c at0021 = ╱6b╱k╱ // 0x3345 @0x21
0x3324…336c at0022 = ╱61╱a╱ // 0x3346 @0x22
0x3324…336c at0023 = ╱73╱s╱ // 0x3347 @0x23
0x3324…336c at0024 = ╱73╱s╱ // 0x3348 @0x24
0x3324…336c at0025 = ╱65╱e╱ // 0x3349 @0x25
0x3324…336c at0026 = ╱70╱p╱ // 0x334a @0x26
0x3324…336c at0027 = ╱6f╱o╱ // 0x334b @0x27
0x3324…336c at0028 = ╱73╱s╱ // 0x334c @0x28
0x3324…336c at0029 = ╱74╱t╱ // 0x334d @0x29
0x3324…336c at002a = ╱65╱e╱ // 0x334e @0x2a
0x3324…336c at002b = ╱72╱r╱ // 0x334f @0x2b
0x3324…336c at002c = ╱69╱i╱ // 0x3350 @0x2c
0x3324…336c at002d = ╱6e╱n╱ // 0x3351 @0x2d
0x3324…336c at002e = ╱67╱g╱ // 0x3352 @0x2e
0x3324…336c at002f = ╱65╱e╱ // 0x3353 @0x2f
0x3324…336c at0030 = ╱72╱r╱ // 0x3354 @0x30
0x3324…336c at0031 = ╱6e╱n╱ // 0x3355 @0x31
0x3324…336c at0032 = ╱65╱e╱ // 0x3356 @0x32
0x3324…336c at0033 = ╱20╱…╱ // 0x3357 @0x33
0x3324…336c at0034 = ╱75╱u╱ // 0x3358 @0x34
0x3324…336c at0035 = ╱6e╱n╱ // 0x3359 @0x35
0x3324…336c at0036 = ╱64╱d╱ // 0x335a @0x36
0x3324…336c at0037 = ╱65╱e╱ // 0x335b @0x37
0x3324…336c at0038 = ╱72╱r╱ // 0x335c @0x38
0x3324…336c at0039 = ╱20╱…╱ // 0x335d @0x39
0x3324…336c at003a = ╱66╱f╱ // 0x335e @0x3a
0x3324…336c at003b = ╱75╱u╱ // 0x335f @0x3b
0x3324…336c at003c = ╱6e╱n╱ // 0x3360 @0x3c
0x3324…336c at003d = ╱6b╱k╱ // 0x3361 @0x3d
0x3324…336c at003e = ╱74╱t╱ // 0x3362 @0x3e
0x3324…336c at003f = ╱69╱i╱ // 0x3363 @0x3f
0x3324…336c at0040 = ╱6f╱o╱ // 0x3364 @0x40
0x3324…336c at0041 = ╱6e╱n╱ // 0x3365 @0x41
0x3324…336c at0042 = ╱73╱s╱ // 0x3366 @0x42
0x3324…336c at0043 = ╱6b╱k╱ // 0x3367 @0x43
0x3324…336c at0044 = ╱6f╱o╱ // 0x3368 @0x44
0x3324…336c at0045 = ╱64╱d╱ // 0x3369 @0x45
0x3324…336c at0046 = ╱22╱"╱ // 0x336a @0x46
0x3324…336c at0047 = EOL // 0x336b @0x47
0x3324…336c }
0x336c…337a c968 04810 PRINT "e…'RK'"
0x336c…337a LineComal80 {
0x336c…337a ptr = 0xc968 // 0x336c @0x0
0x336c…337a lno = 0x12ca // 0x336e @0x2
0x336c…337a at0004 = ╱92╱ PRINT ╱ // 0x3370 @0x4
0x336c…337a at0005 = ╱22╱"╱ // 0x3371 @0x5
0x336c…337a at0006 = ╱65╱e╱ // 0x3372 @0x6
0x336c…337a at0007 = ╱20╱…╱ // 0x3373 @0x7
0x336c…337a at0008 = ╱27╱'╱ // 0x3374 @0x8
0x336c…337a at0009 = ╱52╱R╱ // 0x3375 @0x9
0x336c…337a at000a = ╱4b╱K╱ // 0x3376 @0xa
0x336c…337a at000b = ╱27╱'╱ // 0x3377 @0xb
0x336c…337a at000c = ╱22╱"╱ // 0x3378 @0xc
0x336c…337a at000d = EOL // 0x3379 @0xd
0x336c…337a }
0x337a…339b c989 04820 INPUT "<SC6824>Tryk…RETURN" : SVAR $
0x337a…339b LineComal80 {
0x337a…339b ptr = 0xc989 // 0x337a @0x0
0x337a…339b lno = 0x12d4 // 0x337c @0x2
0x337a…339b at0004 = ╱91╱ INPUT ╱ // 0x337e @0x4
0x337a…339b at0005 = ╱22╱"╱ // 0x337f @0x5
0x337a…339b at0006 = ╱3c╱<╱ // 0x3380 @0x6
0x337a…339b at0007 = ╱53╱S╱ // 0x3381 @0x7
0x337a…339b at0008 = ╱43╱C╱ // 0x3382 @0x8
0x337a…339b at0009 = ╱36╱6╱ // 0x3383 @0x9
0x337a…339b at000a = ╱38╱8╱ // 0x3384 @0xa
0x337a…339b at000b = ╱32╱2╱ // 0x3385 @0xb
0x337a…339b at000c = ╱34╱4╱ // 0x3386 @0xc
0x337a…339b at000d = ╱3e╱>╱ // 0x3387 @0xd
0x337a…339b at000e = ╱54╱T╱ // 0x3388 @0xe
0x337a…339b at000f = ╱72╱r╱ // 0x3389 @0xf
0x337a…339b at0010 = ╱79╱y╱ // 0x338a @0x10
0x337a…339b at0011 = ╱6b╱k╱ // 0x338b @0x11
0x337a…339b at0012 = ╱20╱…╱ // 0x338c @0x12
0x337a…339b at0013 = ╱52╱R╱ // 0x338d @0x13
0x337a…339b at0014 = ╱45╱E╱ // 0x338e @0x14
0x337a…339b at0015 = ╱54╱T╱ // 0x338f @0x15
0x337a…339b at0016 = ╱55╱U╱ // 0x3390 @0x16
0x337a…339b at0017 = ╱52╱R╱ // 0x3391 @0x17
0x337a…339b at0018 = ╱4e╱N╱ // 0x3392 @0x18
0x337a…339b at0019 = ╱22╱"╱ // 0x3393 @0x19
0x337a…339b at001a = ╱f1╱ : ╱ // 0x3394 @0x1a
0x337a…339b at001b = ╱53╱S╱ // 0x3395 @0x1b
0x337a…339b at001c = ╱56╱V╱ // 0x3396 @0x1c
0x337a…339b at001d = ╱41╱A╱ // 0x3397 @0x1d
0x337a…339b at001e = ╱52╱R╱ // 0x3398 @0x1e
0x337a…339b at001f = ╱ef╱ $ ╱ // 0x3399 @0x1f
0x337a…339b at0020 = EOL // 0x339a @0x20
0x337a…339b }
0x339b…33a9 c997 04830 CHAIN PROGRAM $
0x339b…33a9 LineComal80 {
0x339b…33a9 ptr = 0xc997 // 0x339b @0x0
0x339b…33a9 lno = 0x12de // 0x339d @0x2
0x339b…33a9 at0004 = ╱ac╱ CHAIN ╱ // 0x339f @0x4
0x339b…33a9 at0005 = ╱50╱P╱ // 0x33a0 @0x5
0x339b…33a9 at0006 = ╱52╱R╱ // 0x33a1 @0x6
0x339b…33a9 at0007 = ╱4f╱O╱ // 0x33a2 @0x7
0x339b…33a9 at0008 = ╱47╱G╱ // 0x33a3 @0x8
0x339b…33a9 at0009 = ╱52╱R╱ // 0x33a4 @0x9
0x339b…33a9 at000a = ╱41╱A╱ // 0x33a5 @0xa
0x339b…33a9 at000b = ╱4d╱M╱ // 0x33a6 @0xb
0x339b…33a9 at000c = ╱ef╱ $ ╱ // 0x33a7 @0xc
0x339b…33a9 at000d = EOL // 0x33a8 @0xd
0x339b…33a9 }
0x33a9…33b0 c99e 04840 ELSE
0x33a9…33b0 LineComal80 {
0x33a9…33b0 ptr = 0xc99e // 0x33a9 @0x0
0x33a9…33b0 lno = 0x12e8 // 0x33ab @0x2
0x33a9…33b0 at0004 = ╱9a00╱ ELSE ╱ // 0x33ad @0x4
0x33a9…33b0 at0006 = EOL // 0x33af @0x6
0x33a9…33b0 }
0x33b0…33c4 c9b2 04850 EXEC UDSKRIV_POSTER
0x33b0…33c4 LineComal80 {
0x33b0…33c4 ptr = 0xc9b2 // 0x33b0 @0x0
0x33b0…33c4 lno = 0x12f2 // 0x33b2 @0x2
0x33b0…33c4 at0004 = ╱9d╱ EXEC ╱ // 0x33b4 @0x4
0x33b0…33c4 at0005 = ╱55╱U╱ // 0x33b5 @0x5
0x33b0…33c4 at0006 = ╱44╱D╱ // 0x33b6 @0x6
0x33b0…33c4 at0007 = ╱53╱S╱ // 0x33b7 @0x7
0x33b0…33c4 at0008 = ╱4b╱K╱ // 0x33b8 @0x8
0x33b0…33c4 at0009 = ╱52╱R╱ // 0x33b9 @0x9
0x33b0…33c4 at000a = ╱49╱I╱ // 0x33ba @0xa
0x33b0…33c4 at000b = ╱56╱V╱ // 0x33bb @0xb
0x33b0…33c4 at000c = ╱5f╱_╱ // 0x33bc @0xc
0x33b0…33c4 at000d = ╱50╱P╱ // 0x33bd @0xd
0x33b0…33c4 at000e = ╱4f╱O╱ // 0x33be @0xe
0x33b0…33c4 at000f = ╱53╱S╱ // 0x33bf @0xf
0x33b0…33c4 at0010 = ╱54╱T╱ // 0x33c0 @0x10
0x33b0…33c4 at0011 = ╱45╱E╱ // 0x33c1 @0x11
0x33b0…33c4 at0012 = ╱52╱R╱ // 0x33c2 @0x12
0x33b0…33c4 at0013 = EOL // 0x33c3 @0x13
0x33b0…33c4 }
0x33c4…33da c9c8 04860 EXEC BOGF\R_KASSEPOST
0x33c4…33da LineComal80 {
0x33c4…33da ptr = 0xc9c8 // 0x33c4 @0x0
0x33c4…33da lno = 0x12fc // 0x33c6 @0x2
0x33c4…33da at0004 = ╱9d╱ EXEC ╱ // 0x33c8 @0x4
0x33c4…33da at0005 = ╱42╱B╱ // 0x33c9 @0x5
0x33c4…33da at0006 = ╱4f╱O╱ // 0x33ca @0x6
0x33c4…33da at0007 = ╱47╱G╱ // 0x33cb @0x7
0x33c4…33da at0008 = ╱46╱F╱ // 0x33cc @0x8
0x33c4…33da at0009 = ╱5c╱\╱ // 0x33cd @0x9
0x33c4…33da at000a = ╱52╱R╱ // 0x33ce @0xa
0x33c4…33da at000b = ╱5f╱_╱ // 0x33cf @0xb
0x33c4…33da at000c = ╱4b╱K╱ // 0x33d0 @0xc
0x33c4…33da at000d = ╱41╱A╱ // 0x33d1 @0xd
0x33c4…33da at000e = ╱53╱S╱ // 0x33d2 @0xe
0x33c4…33da at000f = ╱53╱S╱ // 0x33d3 @0xf
0x33c4…33da at0010 = ╱45╱E╱ // 0x33d4 @0x10
0x33c4…33da at0011 = ╱50╱P╱ // 0x33d5 @0x11
0x33c4…33da at0012 = ╱4f╱O╱ // 0x33d6 @0x12
0x33c4…33da at0013 = ╱53╱S╱ // 0x33d7 @0x13
0x33c4…33da at0014 = ╱54╱T╱ // 0x33d8 @0x14
0x33c4…33da at0015 = EOL // 0x33d9 @0x15
0x33c4…33da }
0x33da…33df c9cd 04870
0x33da…33df LineComal80 {
0x33da…33df ptr = 0xc9cd // 0x33da @0x0
0x33da…33df lno = 0x1306 // 0x33dc @0x2
0x33da…33df at0004 = EOL // 0x33de @0x4
0x33da…33df }
0x33df…33e5 c9d3 04880 ENDIF
0x33df…33e5 LineComal80 {
0x33df…33e5 ptr = 0xc9d3 // 0x33df @0x0
0x33df…33e5 lno = 0x1310 // 0x33e1 @0x2
0x33df…33e5 at0004 = ╱9c╱ ENDIF ╱ // 0x33e3 @0x4
0x33df…33e5 at0005 = EOL // 0x33e4 @0x5
0x33df…33e5 }
0x33e5…33f5 c9e3 04890 ENDPROC START_MENU
0x33e5…33f5 LineComal80 {
0x33e5…33f5 ptr = 0xc9e3 // 0x33e5 @0x0
0x33e5…33f5 lno = 0x131a // 0x33e7 @0x2
0x33e5…33f5 at0004 = ╱9f╱ ENDPROC ╱ // 0x33e9 @0x4
0x33e5…33f5 at0005 = ╱53╱S╱ // 0x33ea @0x5
0x33e5…33f5 at0006 = ╱54╱T╱ // 0x33eb @0x6
0x33e5…33f5 at0007 = ╱41╱A╱ // 0x33ec @0x7
0x33e5…33f5 at0008 = ╱52╱R╱ // 0x33ed @0x8
0x33e5…33f5 at0009 = ╱54╱T╱ // 0x33ee @0x9
0x33e5…33f5 at000a = ╱5f╱_╱ // 0x33ef @0xa
0x33e5…33f5 at000b = ╱4d╱M╱ // 0x33f0 @0xb
0x33e5…33f5 at000c = ╱45╱E╱ // 0x33f1 @0xc
0x33e5…33f5 at000d = ╱4e╱N╱ // 0x33f2 @0xd
0x33e5…33f5 at000e = ╱55╱U╱ // 0x33f3 @0xe
0x33e5…33f5 at000f = EOL // 0x33f4 @0xf
0x33e5…33f5 }
0x33f5…33fa c9e8 04900
0x33f5…33fa LineComal80 {
0x33f5…33fa ptr = 0xc9e8 // 0x33f5 @0x0
0x33f5…33fa lno = 0x1324 // 0x33f7 @0x2
0x33f5…33fa at0004 = EOL // 0x33f9 @0x4
0x33f5…33fa }
0x33fa…3411 c9ff 04910 PROC BOGF\R_KASSEPOST
0x33fa…3411 LineComal80 {
0x33fa…3411 ptr = 0xc9ff // 0x33fa @0x0
0x33fa…3411 lno = 0x132e // 0x33fc @0x2
0x33fa…3411 at0004 = ╱9e00╱ PROC ╱ // 0x33fe @0x4
0x33fa…3411 at0006 = ╱42╱B╱ // 0x3400 @0x6
0x33fa…3411 at0007 = ╱4f╱O╱ // 0x3401 @0x7
0x33fa…3411 at0008 = ╱47╱G╱ // 0x3402 @0x8
0x33fa…3411 at0009 = ╱46╱F╱ // 0x3403 @0x9
0x33fa…3411 at000a = ╱5c╱\╱ // 0x3404 @0xa
0x33fa…3411 at000b = ╱52╱R╱ // 0x3405 @0xb
0x33fa…3411 at000c = ╱5f╱_╱ // 0x3406 @0xc
0x33fa…3411 at000d = ╱4b╱K╱ // 0x3407 @0xd
0x33fa…3411 at000e = ╱41╱A╱ // 0x3408 @0xe
0x33fa…3411 at000f = ╱53╱S╱ // 0x3409 @0xf
0x33fa…3411 at0010 = ╱53╱S╱ // 0x340a @0x10
0x33fa…3411 at0011 = ╱45╱E╱ // 0x340b @0x11
0x33fa…3411 at0012 = ╱50╱P╱ // 0x340c @0x12
0x33fa…3411 at0013 = ╱4f╱O╱ // 0x340d @0x13
0x33fa…3411 at0014 = ╱53╱S╱ // 0x340e @0x14
0x33fa…3411 at0015 = ╱54╱T╱ // 0x340f @0x15
0x33fa…3411 at0016 = EOL // 0x3410 @0x16
0x33fa…3411 }
0x3411…3421 ca0f 04920 EXEC KASSEHOVED
0x3411…3421 LineComal80 {
0x3411…3421 ptr = 0xca0f // 0x3411 @0x0
0x3411…3421 lno = 0x1338 // 0x3413 @0x2
0x3411…3421 at0004 = ╱9d╱ EXEC ╱ // 0x3415 @0x4
0x3411…3421 at0005 = ╱4b╱K╱ // 0x3416 @0x5
0x3411…3421 at0006 = ╱41╱A╱ // 0x3417 @0x6
0x3411…3421 at0007 = ╱53╱S╱ // 0x3418 @0x7
0x3411…3421 at0008 = ╱53╱S╱ // 0x3419 @0x8
0x3411…3421 at0009 = ╱45╱E╱ // 0x341a @0x9
0x3411…3421 at000a = ╱48╱H╱ // 0x341b @0xa
0x3411…3421 at000b = ╱4f╱O╱ // 0x341c @0xb
0x3411…3421 at000c = ╱56╱V╱ // 0x341d @0xc
0x3411…3421 at000d = ╱45╱E╱ // 0x341e @0xd
0x3411…3421 at000e = ╱44╱D╱ // 0x341f @0xe
0x3411…3421 at000f = EOL // 0x3420 @0xf
0x3411…3421 }
0x3421…343d ca2b 04930 FOR I := 1 TO _H\JREC - 1 DO
0x3421…343d LineComal80 {
0x3421…343d ptr = 0xca2b // 0x3421 @0x0
0x3421…343d lno = 0x1342 // 0x3423 @0x2
0x3421…343d at0004 = ╱8300╱ FOR ╱ // 0x3425 @0x4
0x3421…343d at0006 = ╱49╱I╱ // 0x3427 @0x6
0x3421…343d at0007 = ╱f0╱ := ╱ // 0x3428 @0x7
0x3421…343d at0008 = ╱31╱1╱ // 0x3429 @0x8
0x3421…343d at0009 = ╱f20100╱ // 0x342a @0x9
0x3421…343d at000c = ╱b74b╱ TO ╱ // 0x342d @0xc
0x3421…343d at000e = ╱5f╱_╱ // 0x342f @0xe
0x3421…343d at000f = ╱48╱H╱ // 0x3430 @0xf
0x3421…343d at0010 = ╱5c╱\╱ // 0x3431 @0x10
0x3421…343d at0011 = ╱4a╱J╱ // 0x3432 @0x11
0x3421…343d at0012 = ╱52╱R╱ // 0x3433 @0x12
0x3421…343d at0013 = ╱45╱E╱ // 0x3434 @0x13
0x3421…343d at0014 = ╱43╱C╱ // 0x3435 @0x14
0x3421…343d at0015 = ╱e6╱ - ╱ // 0x3436 @0x15
0x3421…343d at0016 = ╱31╱1╱ // 0x3437 @0x16
0x3421…343d at0017 = ╱f20100╱ // 0x3438 @0x17
0x3421…343d at001a = ╱bb╱ DO ╱ // 0x343b @0x1a
0x3421…343d at001b = EOL // 0x343c @0x1b
0x3421…343d }
0x343d…3450 ca3e 04940 EXEC L[S_K_POST ( I )
0x343d…3450 LineComal80 {
0x343d…3450 ptr = 0xca3e // 0x343d @0x0
0x343d…3450 lno = 0x134c // 0x343f @0x2
0x343d…3450 at0004 = ╱9d╱ EXEC ╱ // 0x3441 @0x4
0x343d…3450 at0005 = ╱4c╱L╱ // 0x3442 @0x5
0x343d…3450 at0006 = ╱5b╱[╱ // 0x3443 @0x6
0x343d…3450 at0007 = ╱53╱S╱ // 0x3444 @0x7
0x343d…3450 at0008 = ╱5f╱_╱ // 0x3445 @0x8
0x343d…3450 at0009 = ╱4b╱K╱ // 0x3446 @0x9
0x343d…3450 at000a = ╱5f╱_╱ // 0x3447 @0xa
0x343d…3450 at000b = ╱50╱P╱ // 0x3448 @0xb
0x343d…3450 at000c = ╱4f╱O╱ // 0x3449 @0xc
0x343d…3450 at000d = ╱53╱S╱ // 0x344a @0xd
0x343d…3450 at000e = ╱54╱T╱ // 0x344b @0xe
0x343d…3450 at000f = ╱ed╱ ( ╱ // 0x344c @0xf
0x343d…3450 at0010 = ╱49╱I╱ // 0x344d @0x10
0x343d…3450 at0011 = ╱ee╱ ) ╱ // 0x344e @0x11
0x343d…3450 at0012 = EOL // 0x344f @0x12
0x343d…3450 }
0x3450…3466 ca54 04950 IF _BNR $ >< "*****" THEN
0x3450…3466 LineComal80 {
0x3450…3466 ptr = 0xca54 // 0x3450 @0x0
0x3450…3466 lno = 0x1356 // 0x3452 @0x2
0x3450…3466 at0004 = ╱9b004b╱ IF ╱ // 0x3454 @0x4
0x3450…3466 at0007 = ╱5f╱_╱ // 0x3457 @0x7
0x3450…3466 at0008 = ╱42╱B╱ // 0x3458 @0x8
0x3450…3466 at0009 = ╱4e╱N╱ // 0x3459 @0x9
0x3450…3466 at000a = ╱52╱R╱ // 0x345a @0xa
0x3450…3466 at000b = ╱ef╱ $ ╱ // 0x345b @0xb
0x3450…3466 at000c = ╱e4╱ >< ╱ // 0x345c @0xc
0x3450…3466 at000d = ╱22╱"╱ // 0x345d @0xd
0x3450…3466 at000e = ╱2a╱*╱ // 0x345e @0xe
0x3450…3466 at000f = ╱2a╱*╱ // 0x345f @0xf
0x3450…3466 at0010 = ╱2a╱*╱ // 0x3460 @0x10
0x3450…3466 at0011 = ╱2a╱*╱ // 0x3461 @0x11
0x3450…3466 at0012 = ╱2a╱*╱ // 0x3462 @0x12
0x3450…3466 at0013 = ╱22╱"╱ // 0x3463 @0x13
0x3450…3466 at0014 = ╱b5╱ THEN ╱ // 0x3464 @0x14
0x3450…3466 at0015 = EOL // 0x3465 @0x15
0x3450…3466 }
0x3466…3478 df7d 04960 EXEC SKRIV_LIN ( I )
0x3466…3478 LineComal80 {
0x3466…3478 ptr = 0xdf7d // 0x3466 @0x0
0x3466…3478 lno = 0x1360 // 0x3468 @0x2
0x3466…3478 at0004 = ╱9d╱ EXEC ╱ // 0x346a @0x4
0x3466…3478 at0005 = ╱53╱S╱ // 0x346b @0x5
0x3466…3478 at0006 = ╱4b╱K╱ // 0x346c @0x6
0x3466…3478 at0007 = ╱52╱R╱ // 0x346d @0x7
0x3466…3478 at0008 = ╱49╱I╱ // 0x346e @0x8
0x3466…3478 at0009 = ╱56╱V╱ // 0x346f @0x9
0x3466…3478 at000a = ╱5f╱_╱ // 0x3470 @0xa
0x3466…3478 at000b = ╱4c╱L╱ // 0x3471 @0xb
0x3466…3478 at000c = ╱49╱I╱ // 0x3472 @0xc
0x3466…3478 at000d = ╱4e╱N╱ // 0x3473 @0xd
0x3466…3478 at000e = ╱ed╱ ( ╱ // 0x3474 @0xe
0x3466…3478 at000f = ╱49╱I╱ // 0x3475 @0xf
0x3466…3478 at0010 = ╱ee╱ ) ╱ // 0x3476 @0x10
0x3466…3478 at0011 = EOL // 0x3477 @0x11
0x3466…3478 }
0x3478…3492 ca80 04970 IF _BKTO $ >< KASSE_KTO $ THEN
0x3478…3492 LineComal80 {
0x3478…3492 ptr = 0xca80 // 0x3478 @0x0
0x3478…3492 lno = 0x136a // 0x347a @0x2
0x3478…3492 at0004 = ╱9b004b╱ IF ╱ // 0x347c @0x4
0x3478…3492 at0007 = ╱5f╱_╱ // 0x347f @0x7
0x3478…3492 at0008 = ╱42╱B╱ // 0x3480 @0x8
0x3478…3492 at0009 = ╱4b╱K╱ // 0x3481 @0x9
0x3478…3492 at000a = ╱54╱T╱ // 0x3482 @0xa
0x3478…3492 at000b = ╱4f╱O╱ // 0x3483 @0xb
0x3478…3492 at000c = ╱ef╱ $ ╱ // 0x3484 @0xc
0x3478…3492 at000d = ╱e4╱ >< ╱ // 0x3485 @0xd
0x3478…3492 at000e = ╱4b╱K╱ // 0x3486 @0xe
0x3478…3492 at000f = ╱41╱A╱ // 0x3487 @0xf
0x3478…3492 at0010 = ╱53╱S╱ // 0x3488 @0x10
0x3478…3492 at0011 = ╱53╱S╱ // 0x3489 @0x11
0x3478…3492 at0012 = ╱45╱E╱ // 0x348a @0x12
0x3478…3492 at0013 = ╱5f╱_╱ // 0x348b @0x13
0x3478…3492 at0014 = ╱4b╱K╱ // 0x348c @0x14
0x3478…3492 at0015 = ╱54╱T╱ // 0x348d @0x15
0x3478…3492 at0016 = ╱4f╱O╱ // 0x348e @0x16
0x3478…3492 at0017 = ╱ef╱ $ ╱ // 0x348f @0x17
0x3478…3492 at0018 = ╱b5╱ THEN ╱ // 0x3490 @0x18
0x3478…3492 at0019 = EOL // 0x3491 @0x19
0x3478…3492 }
0x3492…34ab ca99 04980 IF _BKTO $ >< GIRO_KTO $ THEN
0x3492…34ab LineComal80 {
0x3492…34ab ptr = 0xca99 // 0x3492 @0x0
0x3492…34ab lno = 0x1374 // 0x3494 @0x2
0x3492…34ab at0004 = ╱9b004b╱ IF ╱ // 0x3496 @0x4
0x3492…34ab at0007 = ╱5f╱_╱ // 0x3499 @0x7
0x3492…34ab at0008 = ╱42╱B╱ // 0x349a @0x8
0x3492…34ab at0009 = ╱4b╱K╱ // 0x349b @0x9
0x3492…34ab at000a = ╱54╱T╱ // 0x349c @0xa
0x3492…34ab at000b = ╱4f╱O╱ // 0x349d @0xb
0x3492…34ab at000c = ╱ef╱ $ ╱ // 0x349e @0xc
0x3492…34ab at000d = ╱e4╱ >< ╱ // 0x349f @0xd
0x3492…34ab at000e = ╱47╱G╱ // 0x34a0 @0xe
0x3492…34ab at000f = ╱49╱I╱ // 0x34a1 @0xf
0x3492…34ab at0010 = ╱52╱R╱ // 0x34a2 @0x10
0x3492…34ab at0011 = ╱4f╱O╱ // 0x34a3 @0x11
0x3492…34ab at0012 = ╱5f╱_╱ // 0x34a4 @0x12
0x3492…34ab at0013 = ╱4b╱K╱ // 0x34a5 @0x13
0x3492…34ab at0014 = ╱54╱T╱ // 0x34a6 @0x14
0x3492…34ab at0015 = ╱4f╱O╱ // 0x34a7 @0x15
0x3492…34ab at0016 = ╱ef╱ $ ╱ // 0x34a8 @0x16
0x3492…34ab at0017 = ╱b5╱ THEN ╱ // 0x34a9 @0x17
0x3492…34ab at0018 = EOL // 0x34aa @0x18
0x3492…34ab }
0x34ab…34c4 cab2 04990 IF _BKTO $ >< BANK_KTO $ THEN
0x34ab…34c4 LineComal80 {
0x34ab…34c4 ptr = 0xcab2 // 0x34ab @0x0
0x34ab…34c4 lno = 0x137e // 0x34ad @0x2
0x34ab…34c4 at0004 = ╱9b004b╱ IF ╱ // 0x34af @0x4
0x34ab…34c4 at0007 = ╱5f╱_╱ // 0x34b2 @0x7
0x34ab…34c4 at0008 = ╱42╱B╱ // 0x34b3 @0x8
0x34ab…34c4 at0009 = ╱4b╱K╱ // 0x34b4 @0x9
0x34ab…34c4 at000a = ╱54╱T╱ // 0x34b5 @0xa
0x34ab…34c4 at000b = ╱4f╱O╱ // 0x34b6 @0xb
0x34ab…34c4 at000c = ╱ef╱ $ ╱ // 0x34b7 @0xc
0x34ab…34c4 at000d = ╱e4╱ >< ╱ // 0x34b8 @0xd
0x34ab…34c4 at000e = ╱42╱B╱ // 0x34b9 @0xe
0x34ab…34c4 at000f = ╱41╱A╱ // 0x34ba @0xf
0x34ab…34c4 at0010 = ╱4e╱N╱ // 0x34bb @0x10
0x34ab…34c4 at0011 = ╱4b╱K╱ // 0x34bc @0x11
0x34ab…34c4 at0012 = ╱5f╱_╱ // 0x34bd @0x12
0x34ab…34c4 at0013 = ╱4b╱K╱ // 0x34be @0x13
0x34ab…34c4 at0014 = ╱54╱T╱ // 0x34bf @0x14
0x34ab…34c4 at0015 = ╱4f╱O╱ // 0x34c0 @0x15
0x34ab…34c4 at0016 = ╱ef╱ $ ╱ // 0x34c1 @0x16
0x34ab…34c4 at0017 = ╱b5╱ THEN ╱ // 0x34c2 @0x17
0x34ab…34c4 at0018 = EOL // 0x34c3 @0x18
0x34ab…34c4 }
0x34c4…34db cac9 05000 LET K_DK := K_DK * ( - 1 )
0x34c4…34db LineComal80 {
0x34c4…34db ptr = 0xcac9 // 0x34c4 @0x0
0x34c4…34db lno = 0x1388 // 0x34c6 @0x2
0x34c4…34db at0004 = ╱86╱ LET ╱ // 0x34c8 @0x4
0x34c4…34db at0005 = ╱4b╱K╱ // 0x34c9 @0x5
0x34c4…34db at0006 = ╱5f╱_╱ // 0x34ca @0x6
0x34c4…34db at0007 = ╱44╱D╱ // 0x34cb @0x7
0x34c4…34db at0008 = ╱4b╱K╱ // 0x34cc @0x8
0x34c4…34db at0009 = ╱f0╱ := ╱ // 0x34cd @0x9
0x34c4…34db at000a = ╱4b╱K╱ // 0x34ce @0xa
0x34c4…34db at000b = ╱5f╱_╱ // 0x34cf @0xb
0x34c4…34db at000c = ╱44╱D╱ // 0x34d0 @0xc
0x34c4…34db at000d = ╱4b╱K╱ // 0x34d1 @0xd
0x34c4…34db at000e = ╱e7╱ * ╱ // 0x34d2 @0xe
0x34c4…34db at000f = ╱ed╱ ( ╱ // 0x34d3 @0xf
0x34c4…34db at0010 = ╱de╱ - ╱ // 0x34d4 @0x10
0x34c4…34db at0011 = ╱31╱1╱ // 0x34d5 @0x11
0x34c4…34db at0012 = ╱f20100╱ // 0x34d6 @0x12
0x34c4…34db at0015 = ╱ee╱ ) ╱ // 0x34d9 @0x15
0x34c4…34db at0016 = EOL // 0x34da @0x16
0x34c4…34db }
0x34db…34fa cae8 05010 IF /" + K_MKOD $ + "/" IN "/I/U/" THEN
0x34db…34fa LineComal80 {
0x34db…34fa ptr = 0xcae8 // 0x34db @0x0
0x34db…34fa lno = 0x1392 // 0x34dd @0x2
0x34db…34fa at0004 = ╱9b0022╱ IF ╱ // 0x34df @0x4
0x34db…34fa at0007 = ╱2f╱/╱ // 0x34e2 @0x7
0x34db…34fa at0008 = ╱22╱"╱ // 0x34e3 @0x8
0x34db…34fa at0009 = ╱eb╱ + ╱ // 0x34e4 @0x9
0x34db…34fa at000a = ╱4b╱K╱ // 0x34e5 @0xa
0x34db…34fa at000b = ╱5f╱_╱ // 0x34e6 @0xb
0x34db…34fa at000c = ╱4d╱M╱ // 0x34e7 @0xc
0x34db…34fa at000d = ╱4b╱K╱ // 0x34e8 @0xd
0x34db…34fa at000e = ╱4f╱O╱ // 0x34e9 @0xe
0x34db…34fa at000f = ╱44╱D╱ // 0x34ea @0xf
0x34db…34fa at0010 = ╱ef╱ $ ╱ // 0x34eb @0x10
0x34db…34fa at0011 = ╱eb╱ + ╱ // 0x34ec @0x11
0x34db…34fa at0012 = ╱22╱"╱ // 0x34ed @0x12
0x34db…34fa at0013 = ╱2f╱/╱ // 0x34ee @0x13
0x34db…34fa at0014 = ╱22╱"╱ // 0x34ef @0x14
0x34db…34fa at0015 = ╱dc╱ IN ╱ // 0x34f0 @0x15
0x34db…34fa at0016 = ╱22╱"╱ // 0x34f1 @0x16
0x34db…34fa at0017 = ╱2f╱/╱ // 0x34f2 @0x17
0x34db…34fa at0018 = ╱49╱I╱ // 0x34f3 @0x18
0x34db…34fa at0019 = ╱2f╱/╱ // 0x34f4 @0x19
0x34db…34fa at001a = ╱55╱U╱ // 0x34f5 @0x1a
0x34db…34fa at001b = ╱2f╱/╱ // 0x34f6 @0x1b
0x34db…34fa at001c = ╱22╱"╱ // 0x34f7 @0x1c
0x34db…34fa at001d = ╱b5╱ THEN ╱ // 0x34f8 @0x1d
0x34db…34fa at001e = EOL // 0x34f9 @0x1e
0x34db…34fa }
0x34fa…3553 cb41 05020 LET MOMS_KR := INT ( MOMS * 100 * ( K_BKR / ( MOMS + 100 ) ) + .5 ) / 100 ; K_BKR := K_BKR - MOMS_KR
0x34fa…3553 LineComal80 {
0x34fa…3553 ptr = 0xcb41 // 0x34fa @0x0
0x34fa…3553 lno = 0x139c // 0x34fc @0x2
0x34fa…3553 at0004 = ╱86╱ LET ╱ // 0x34fe @0x4
0x34fa…3553 at0005 = ╱4d╱M╱ // 0x34ff @0x5
0x34fa…3553 at0006 = ╱4f╱O╱ // 0x3500 @0x6
0x34fa…3553 at0007 = ╱4d╱M╱ // 0x3501 @0x7
0x34fa…3553 at0008 = ╱53╱S╱ // 0x3502 @0x8
0x34fa…3553 at0009 = ╱5f╱_╱ // 0x3503 @0x9
0x34fa…3553 at000a = ╱4b╱K╱ // 0x3504 @0xa
0x34fa…3553 at000b = ╱52╱R╱ // 0x3505 @0xb
0x34fa…3553 at000c = ╱f0╱ := ╱ // 0x3506 @0xc
0x34fa…3553 at000d = ╱c6╱ INT ╱ // 0x3507 @0xd
0x34fa…3553 at000e = ╱ed╱ ( ╱ // 0x3508 @0xe
0x34fa…3553 at000f = ╱4d╱M╱ // 0x3509 @0xf
0x34fa…3553 at0010 = ╱4f╱O╱ // 0x350a @0x10
0x34fa…3553 at0011 = ╱4d╱M╱ // 0x350b @0x11
0x34fa…3553 at0012 = ╱53╱S╱ // 0x350c @0x12
0x34fa…3553 at0013 = ╱e7╱ * ╱ // 0x350d @0x13
0x34fa…3553 at0014 = ╱31╱1╱ // 0x350e @0x14
0x34fa…3553 at0015 = ╱30╱0╱ // 0x350f @0x15
0x34fa…3553 at0016 = ╱30╱0╱ // 0x3510 @0x16
0x34fa…3553 at0017 = ╱f26400╱ // 0x3511 @0x17
0x34fa…3553 at001a = ╱e7╱ * ╱ // 0x3514 @0x1a
0x34fa…3553 at001b = ╱ed╱ ( ╱ // 0x3515 @0x1b
0x34fa…3553 at001c = ╱4b╱K╱ // 0x3516 @0x1c
0x34fa…3553 at001d = ╱5f╱_╱ // 0x3517 @0x1d
0x34fa…3553 at001e = ╱42╱B╱ // 0x3518 @0x1e
0x34fa…3553 at001f = ╱4b╱K╱ // 0x3519 @0x1f
0x34fa…3553 at0020 = ╱52╱R╱ // 0x351a @0x20
0x34fa…3553 at0021 = ╱e8╱ / ╱ // 0x351b @0x21
0x34fa…3553 at0022 = ╱ed╱ ( ╱ // 0x351c @0x22
0x34fa…3553 at0023 = ╱4d╱M╱ // 0x351d @0x23
0x34fa…3553 at0024 = ╱4f╱O╱ // 0x351e @0x24
0x34fa…3553 at0025 = ╱4d╱M╱ // 0x351f @0x25
0x34fa…3553 at0026 = ╱53╱S╱ // 0x3520 @0x26
0x34fa…3553 at0027 = ╱e5╱ + ╱ // 0x3521 @0x27
0x34fa…3553 at0028 = ╱31╱1╱ // 0x3522 @0x28
0x34fa…3553 at0029 = ╱30╱0╱ // 0x3523 @0x29
0x34fa…3553 at002a = ╱30╱0╱ // 0x3524 @0x2a
0x34fa…3553 at002b = ╱f26400╱ // 0x3525 @0x2b
0x34fa…3553 at002e = ╱ee╱ ) ╱ // 0x3528 @0x2e
0x34fa…3553 at002f = ╱ee╱ ) ╱ // 0x3529 @0x2f
0x34fa…3553 at0030 = ╱e5╱ + ╱ // 0x352a @0x30
0x34fa…3553 at0031 = ╱2e╱.╱ // 0x352b @0x31
0x34fa…3553 at0032 = ╱35╱5╱ // 0x352c @0x32
0x34fa…3553 at0033 = ╱f88000000000000005╱ // 0x352d @0x33
0x34fa…3553 at003c = ╱ee╱ ) ╱ // 0x3536 @0x3c
0x34fa…3553 at003d = ╱e8╱ / ╱ // 0x3537 @0x3d
0x34fa…3553 at003e = ╱31╱1╱ // 0x3538 @0x3e
0x34fa…3553 at003f = ╱30╱0╱ // 0x3539 @0x3f
0x34fa…3553 at0040 = ╱30╱0╱ // 0x353a @0x40
0x34fa…3553 at0041 = ╱f26400╱ // 0x353b @0x41
0x34fa…3553 at0044 = ╱ea╱ ; ╱ // 0x353e @0x44
0x34fa…3553 at0045 = ╱4b╱K╱ // 0x353f @0x45
0x34fa…3553 at0046 = ╱5f╱_╱ // 0x3540 @0x46
0x34fa…3553 at0047 = ╱42╱B╱ // 0x3541 @0x47
0x34fa…3553 at0048 = ╱4b╱K╱ // 0x3542 @0x48
0x34fa…3553 at0049 = ╱52╱R╱ // 0x3543 @0x49
0x34fa…3553 at004a = ╱f0╱ := ╱ // 0x3544 @0x4a
0x34fa…3553 at004b = ╱4b╱K╱ // 0x3545 @0x4b
0x34fa…3553 at004c = ╱5f╱_╱ // 0x3546 @0x4c
0x34fa…3553 at004d = ╱42╱B╱ // 0x3547 @0x4d
0x34fa…3553 at004e = ╱4b╱K╱ // 0x3548 @0x4e
0x34fa…3553 at004f = ╱52╱R╱ // 0x3549 @0x4f
0x34fa…3553 at0050 = ╱e6╱ - ╱ // 0x354a @0x50
0x34fa…3553 at0051 = ╱4d╱M╱ // 0x354b @0x51
0x34fa…3553 at0052 = ╱4f╱O╱ // 0x354c @0x52
0x34fa…3553 at0053 = ╱4d╱M╱ // 0x354d @0x53
0x34fa…3553 at0054 = ╱53╱S╱ // 0x354e @0x54
0x34fa…3553 at0055 = ╱5f╱_╱ // 0x354f @0x55
0x34fa…3553 at0056 = ╱4b╱K╱ // 0x3550 @0x56
0x34fa…3553 at0057 = ╱52╱R╱ // 0x3551 @0x57
0x34fa…3553 at0058 = EOL // 0x3552 @0x58
0x34fa…3553 }
0x3553…3566 cb54 05030 IF _MKOD $ = "I" THEN
0x3553…3566 LineComal80 {
0x3553…3566 ptr = 0xcb54 // 0x3553 @0x0
0x3553…3566 lno = 0x13a6 // 0x3555 @0x2
0x3553…3566 at0004 = ╱9b004b╱ IF ╱ // 0x3557 @0x4
0x3553…3566 at0007 = ╱5f╱_╱ // 0x355a @0x7
0x3553…3566 at0008 = ╱4d╱M╱ // 0x355b @0x8
0x3553…3566 at0009 = ╱4b╱K╱ // 0x355c @0x9
0x3553…3566 at000a = ╱4f╱O╱ // 0x355d @0xa
0x3553…3566 at000b = ╱44╱D╱ // 0x355e @0xb
0x3553…3566 at000c = ╱ef╱ $ ╱ // 0x355f @0xc
0x3553…3566 at000d = ╱df╱ = ╱ // 0x3560 @0xd
0x3553…3566 at000e = ╱22╱"╱ // 0x3561 @0xe
0x3553…3566 at000f = ╱49╱I╱ // 0x3562 @0xf
0x3553…3566 at0010 = ╱22╱"╱ // 0x3563 @0x10
0x3553…3566 at0011 = ╱b5╱ THEN ╱ // 0x3564 @0x11
0x3553…3566 at0012 = EOL // 0x3565 @0x12
0x3553…3566 }
0x3566…35a8 cb96 05040 EXEC BOGF\R ( INDMOMS_KTO $ , K_BDAT $ , K_TXT $ , NULR , MOMS_KR , K_DK , K_BNR $ )
0x3566…35a8 LineComal80 {
0x3566…35a8 ptr = 0xcb96 // 0x3566 @0x0
0x3566…35a8 lno = 0x13b0 // 0x3568 @0x2
0x3566…35a8 at0004 = ╱9d╱ EXEC ╱ // 0x356a @0x4
0x3566…35a8 at0005 = ╱42╱B╱ // 0x356b @0x5
0x3566…35a8 at0006 = ╱4f╱O╱ // 0x356c @0x6
0x3566…35a8 at0007 = ╱47╱G╱ // 0x356d @0x7
0x3566…35a8 at0008 = ╱46╱F╱ // 0x356e @0x8
0x3566…35a8 at0009 = ╱5c╱\╱ // 0x356f @0x9
0x3566…35a8 at000a = ╱52╱R╱ // 0x3570 @0xa
0x3566…35a8 at000b = ╱ed╱ ( ╱ // 0x3571 @0xb
0x3566…35a8 at000c = ╱49╱I╱ // 0x3572 @0xc
0x3566…35a8 at000d = ╱4e╱N╱ // 0x3573 @0xd
0x3566…35a8 at000e = ╱44╱D╱ // 0x3574 @0xe
0x3566…35a8 at000f = ╱4d╱M╱ // 0x3575 @0xf
0x3566…35a8 at0010 = ╱4f╱O╱ // 0x3576 @0x10
0x3566…35a8 at0011 = ╱4d╱M╱ // 0x3577 @0x11
0x3566…35a8 at0012 = ╱53╱S╱ // 0x3578 @0x12
0x3566…35a8 at0013 = ╱5f╱_╱ // 0x3579 @0x13
0x3566…35a8 at0014 = ╱4b╱K╱ // 0x357a @0x14
0x3566…35a8 at0015 = ╱54╱T╱ // 0x357b @0x15
0x3566…35a8 at0016 = ╱4f╱O╱ // 0x357c @0x16
0x3566…35a8 at0017 = ╱ef╱ $ ╱ // 0x357d @0x17
0x3566…35a8 at0018 = ╱ec╱ , ╱ // 0x357e @0x18
0x3566…35a8 at0019 = ╱4b╱K╱ // 0x357f @0x19
0x3566…35a8 at001a = ╱5f╱_╱ // 0x3580 @0x1a
0x3566…35a8 at001b = ╱42╱B╱ // 0x3581 @0x1b
0x3566…35a8 at001c = ╱44╱D╱ // 0x3582 @0x1c
0x3566…35a8 at001d = ╱41╱A╱ // 0x3583 @0x1d
0x3566…35a8 at001e = ╱54╱T╱ // 0x3584 @0x1e
0x3566…35a8 at001f = ╱ef╱ $ ╱ // 0x3585 @0x1f
0x3566…35a8 at0020 = ╱ec╱ , ╱ // 0x3586 @0x20
0x3566…35a8 at0021 = ╱4b╱K╱ // 0x3587 @0x21
0x3566…35a8 at0022 = ╱5f╱_╱ // 0x3588 @0x22
0x3566…35a8 at0023 = ╱54╱T╱ // 0x3589 @0x23
0x3566…35a8 at0024 = ╱58╱X╱ // 0x358a @0x24
0x3566…35a8 at0025 = ╱54╱T╱ // 0x358b @0x25
0x3566…35a8 at0026 = ╱ef╱ $ ╱ // 0x358c @0x26
0x3566…35a8 at0027 = ╱ec╱ , ╱ // 0x358d @0x27
0x3566…35a8 at0028 = ╱4e╱N╱ // 0x358e @0x28
0x3566…35a8 at0029 = ╱55╱U╱ // 0x358f @0x29
0x3566…35a8 at002a = ╱4c╱L╱ // 0x3590 @0x2a
0x3566…35a8 at002b = ╱52╱R╱ // 0x3591 @0x2b
0x3566…35a8 at002c = ╱ec╱ , ╱ // 0x3592 @0x2c
0x3566…35a8 at002d = ╱4d╱M╱ // 0x3593 @0x2d
0x3566…35a8 at002e = ╱4f╱O╱ // 0x3594 @0x2e
0x3566…35a8 at002f = ╱4d╱M╱ // 0x3595 @0x2f
0x3566…35a8 at0030 = ╱53╱S╱ // 0x3596 @0x30
0x3566…35a8 at0031 = ╱5f╱_╱ // 0x3597 @0x31
0x3566…35a8 at0032 = ╱4b╱K╱ // 0x3598 @0x32
0x3566…35a8 at0033 = ╱52╱R╱ // 0x3599 @0x33
0x3566…35a8 at0034 = ╱ec╱ , ╱ // 0x359a @0x34
0x3566…35a8 at0035 = ╱4b╱K╱ // 0x359b @0x35
0x3566…35a8 at0036 = ╱5f╱_╱ // 0x359c @0x36
0x3566…35a8 at0037 = ╱44╱D╱ // 0x359d @0x37
0x3566…35a8 at0038 = ╱4b╱K╱ // 0x359e @0x38
0x3566…35a8 at0039 = ╱ec╱ , ╱ // 0x359f @0x39
0x3566…35a8 at003a = ╱4b╱K╱ // 0x35a0 @0x3a
0x3566…35a8 at003b = ╱5f╱_╱ // 0x35a1 @0x3b
0x3566…35a8 at003c = ╱42╱B╱ // 0x35a2 @0x3c
0x3566…35a8 at003d = ╱4e╱N╱ // 0x35a3 @0x3d
0x3566…35a8 at003e = ╱52╱R╱ // 0x35a4 @0x3e
0x3566…35a8 at003f = ╱ef╱ $ ╱ // 0x35a5 @0x3f
0x3566…35a8 at0040 = ╱ee╱ ) ╱ // 0x35a6 @0x40
0x3566…35a8 at0041 = EOL // 0x35a7 @0x41
0x3566…35a8 }
0x35a8…35af cb9d 05050 ELSE
0x35a8…35af LineComal80 {
0x35a8…35af ptr = 0xcb9d // 0x35a8 @0x0
0x35a8…35af lno = 0x13ba // 0x35aa @0x2
0x35a8…35af at0004 = ╱9a00╱ ELSE ╱ // 0x35ac @0x4
0x35a8…35af at0006 = EOL // 0x35ae @0x6
0x35a8…35af }
0x35af…35f0 cbde 05060 EXEC BOGF\R ( UDMOMS_KTO $ , K_BDAT $ , K_TXT $ , NULR , MOMS_KR , K_DK , K_BNR $ )
0x35af…35f0 LineComal80 {
0x35af…35f0 ptr = 0xcbde // 0x35af @0x0
0x35af…35f0 lno = 0x13c4 // 0x35b1 @0x2
0x35af…35f0 at0004 = ╱9d╱ EXEC ╱ // 0x35b3 @0x4
0x35af…35f0 at0005 = ╱42╱B╱ // 0x35b4 @0x5
0x35af…35f0 at0006 = ╱4f╱O╱ // 0x35b5 @0x6
0x35af…35f0 at0007 = ╱47╱G╱ // 0x35b6 @0x7
0x35af…35f0 at0008 = ╱46╱F╱ // 0x35b7 @0x8
0x35af…35f0 at0009 = ╱5c╱\╱ // 0x35b8 @0x9
0x35af…35f0 at000a = ╱52╱R╱ // 0x35b9 @0xa
0x35af…35f0 at000b = ╱ed╱ ( ╱ // 0x35ba @0xb
0x35af…35f0 at000c = ╱55╱U╱ // 0x35bb @0xc
0x35af…35f0 at000d = ╱44╱D╱ // 0x35bc @0xd
0x35af…35f0 at000e = ╱4d╱M╱ // 0x35bd @0xe
0x35af…35f0 at000f = ╱4f╱O╱ // 0x35be @0xf
0x35af…35f0 at0010 = ╱4d╱M╱ // 0x35bf @0x10
0x35af…35f0 at0011 = ╱53╱S╱ // 0x35c0 @0x11
0x35af…35f0 at0012 = ╱5f╱_╱ // 0x35c1 @0x12
0x35af…35f0 at0013 = ╱4b╱K╱ // 0x35c2 @0x13
0x35af…35f0 at0014 = ╱54╱T╱ // 0x35c3 @0x14
0x35af…35f0 at0015 = ╱4f╱O╱ // 0x35c4 @0x15
0x35af…35f0 at0016 = ╱ef╱ $ ╱ // 0x35c5 @0x16
0x35af…35f0 at0017 = ╱ec╱ , ╱ // 0x35c6 @0x17
0x35af…35f0 at0018 = ╱4b╱K╱ // 0x35c7 @0x18
0x35af…35f0 at0019 = ╱5f╱_╱ // 0x35c8 @0x19
0x35af…35f0 at001a = ╱42╱B╱ // 0x35c9 @0x1a
0x35af…35f0 at001b = ╱44╱D╱ // 0x35ca @0x1b
0x35af…35f0 at001c = ╱41╱A╱ // 0x35cb @0x1c
0x35af…35f0 at001d = ╱54╱T╱ // 0x35cc @0x1d
0x35af…35f0 at001e = ╱ef╱ $ ╱ // 0x35cd @0x1e
0x35af…35f0 at001f = ╱ec╱ , ╱ // 0x35ce @0x1f
0x35af…35f0 at0020 = ╱4b╱K╱ // 0x35cf @0x20
0x35af…35f0 at0021 = ╱5f╱_╱ // 0x35d0 @0x21
0x35af…35f0 at0022 = ╱54╱T╱ // 0x35d1 @0x22
0x35af…35f0 at0023 = ╱58╱X╱ // 0x35d2 @0x23
0x35af…35f0 at0024 = ╱54╱T╱ // 0x35d3 @0x24
0x35af…35f0 at0025 = ╱ef╱ $ ╱ // 0x35d4 @0x25
0x35af…35f0 at0026 = ╱ec╱ , ╱ // 0x35d5 @0x26
0x35af…35f0 at0027 = ╱4e╱N╱ // 0x35d6 @0x27
0x35af…35f0 at0028 = ╱55╱U╱ // 0x35d7 @0x28
0x35af…35f0 at0029 = ╱4c╱L╱ // 0x35d8 @0x29
0x35af…35f0 at002a = ╱52╱R╱ // 0x35d9 @0x2a
0x35af…35f0 at002b = ╱ec╱ , ╱ // 0x35da @0x2b
0x35af…35f0 at002c = ╱4d╱M╱ // 0x35db @0x2c
0x35af…35f0 at002d = ╱4f╱O╱ // 0x35dc @0x2d
0x35af…35f0 at002e = ╱4d╱M╱ // 0x35dd @0x2e
0x35af…35f0 at002f = ╱53╱S╱ // 0x35de @0x2f
0x35af…35f0 at0030 = ╱5f╱_╱ // 0x35df @0x30
0x35af…35f0 at0031 = ╱4b╱K╱ // 0x35e0 @0x31
0x35af…35f0 at0032 = ╱52╱R╱ // 0x35e1 @0x32
0x35af…35f0 at0033 = ╱ec╱ , ╱ // 0x35e2 @0x33
0x35af…35f0 at0034 = ╱4b╱K╱ // 0x35e3 @0x34
0x35af…35f0 at0035 = ╱5f╱_╱ // 0x35e4 @0x35
0x35af…35f0 at0036 = ╱44╱D╱ // 0x35e5 @0x36
0x35af…35f0 at0037 = ╱4b╱K╱ // 0x35e6 @0x37
0x35af…35f0 at0038 = ╱ec╱ , ╱ // 0x35e7 @0x38
0x35af…35f0 at0039 = ╱4b╱K╱ // 0x35e8 @0x39
0x35af…35f0 at003a = ╱5f╱_╱ // 0x35e9 @0x3a
0x35af…35f0 at003b = ╱42╱B╱ // 0x35ea @0x3b
0x35af…35f0 at003c = ╱4e╱N╱ // 0x35eb @0x3c
0x35af…35f0 at003d = ╱52╱R╱ // 0x35ec @0x3d
0x35af…35f0 at003e = ╱ef╱ $ ╱ // 0x35ed @0x3e
0x35af…35f0 at003f = ╱ee╱ ) ╱ // 0x35ee @0x3f
0x35af…35f0 at0040 = EOL // 0x35ef @0x40
0x35af…35f0 }
0x35f0…35f6 cbe4 05070 ENDIF
0x35f0…35f6 LineComal80 {
0x35f0…35f6 ptr = 0xcbe4 // 0x35f0 @0x0
0x35f0…35f6 lno = 0x13ce // 0x35f2 @0x2
0x35f0…35f6 at0004 = ╱9c╱ ENDIF ╱ // 0x35f4 @0x4
0x35f0…35f6 at0005 = EOL // 0x35f5 @0x5
0x35f0…35f6 }
0x35f6…35fd cbeb 05080 ELSE
0x35f6…35fd LineComal80 {
0x35f6…35fd ptr = 0xcbeb // 0x35f6 @0x0
0x35f6…35fd lno = 0x13d8 // 0x35f8 @0x2
0x35f6…35fd at0004 = ╱9a00╱ ELSE ╱ // 0x35fa @0x4
0x35f6…35fd at0006 = EOL // 0x35fc @0x6
0x35f6…35fd }
0x35fd…360f cbfd 05090 LET MOMS_KR := 0
0x35fd…360f LineComal80 {
0x35fd…360f ptr = 0xcbfd // 0x35fd @0x0
0x35fd…360f lno = 0x13e2 // 0x35ff @0x2
0x35fd…360f at0004 = ╱86╱ LET ╱ // 0x3601 @0x4
0x35fd…360f at0005 = ╱4d╱M╱ // 0x3602 @0x5
0x35fd…360f at0006 = ╱4f╱O╱ // 0x3603 @0x6
0x35fd…360f at0007 = ╱4d╱M╱ // 0x3604 @0x7
0x35fd…360f at0008 = ╱53╱S╱ // 0x3605 @0x8
0x35fd…360f at0009 = ╱5f╱_╱ // 0x3606 @0x9
0x35fd…360f at000a = ╱4b╱K╱ // 0x3607 @0xa
0x35fd…360f at000b = ╱52╱R╱ // 0x3608 @0xb
0x35fd…360f at000c = ╱f0╱ := ╱ // 0x3609 @0xc
0x35fd…360f at000d = ╱30╱0╱ // 0x360a @0xd
0x35fd…360f at000e = ╱f20000╱ // 0x360b @0xe
0x35fd…360f at0011 = EOL // 0x360e @0x11
0x35fd…360f }
0x360f…3615 cc03 05100 ENDIF
0x360f…3615 LineComal80 {
0x360f…3615 ptr = 0xcc03 // 0x360f @0x0
0x360f…3615 lno = 0x13ec // 0x3611 @0x2
0x360f…3615 at0004 = ╱9c╱ ENDIF ╱ // 0x3613 @0x4
0x360f…3615 at0005 = EOL // 0x3614 @0x5
0x360f…3615 }
0x3615…3653 cc41 05110 EXEC BOGF\R ( K_BKTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , K_BNR $ )
0x3615…3653 LineComal80 {
0x3615…3653 ptr = 0xcc41 // 0x3615 @0x0
0x3615…3653 lno = 0x13f6 // 0x3617 @0x2
0x3615…3653 at0004 = ╱9d╱ EXEC ╱ // 0x3619 @0x4
0x3615…3653 at0005 = ╱42╱B╱ // 0x361a @0x5
0x3615…3653 at0006 = ╱4f╱O╱ // 0x361b @0x6
0x3615…3653 at0007 = ╱47╱G╱ // 0x361c @0x7
0x3615…3653 at0008 = ╱46╱F╱ // 0x361d @0x8
0x3615…3653 at0009 = ╱5c╱\╱ // 0x361e @0x9
0x3615…3653 at000a = ╱52╱R╱ // 0x361f @0xa
0x3615…3653 at000b = ╱ed╱ ( ╱ // 0x3620 @0xb
0x3615…3653 at000c = ╱4b╱K╱ // 0x3621 @0xc
0x3615…3653 at000d = ╱5f╱_╱ // 0x3622 @0xd
0x3615…3653 at000e = ╱42╱B╱ // 0x3623 @0xe
0x3615…3653 at000f = ╱4b╱K╱ // 0x3624 @0xf
0x3615…3653 at0010 = ╱54╱T╱ // 0x3625 @0x10
0x3615…3653 at0011 = ╱4f╱O╱ // 0x3626 @0x11
0x3615…3653 at0012 = ╱ef╱ $ ╱ // 0x3627 @0x12
0x3615…3653 at0013 = ╱ec╱ , ╱ // 0x3628 @0x13
0x3615…3653 at0014 = ╱4b╱K╱ // 0x3629 @0x14
0x3615…3653 at0015 = ╱5f╱_╱ // 0x362a @0x15
0x3615…3653 at0016 = ╱42╱B╱ // 0x362b @0x16
0x3615…3653 at0017 = ╱44╱D╱ // 0x362c @0x17
0x3615…3653 at0018 = ╱41╱A╱ // 0x362d @0x18
0x3615…3653 at0019 = ╱54╱T╱ // 0x362e @0x19
0x3615…3653 at001a = ╱ef╱ $ ╱ // 0x362f @0x1a
0x3615…3653 at001b = ╱ec╱ , ╱ // 0x3630 @0x1b
0x3615…3653 at001c = ╱4b╱K╱ // 0x3631 @0x1c
0x3615…3653 at001d = ╱5f╱_╱ // 0x3632 @0x1d
0x3615…3653 at001e = ╱54╱T╱ // 0x3633 @0x1e
0x3615…3653 at001f = ╱58╱X╱ // 0x3634 @0x1f
0x3615…3653 at0020 = ╱54╱T╱ // 0x3635 @0x20
0x3615…3653 at0021 = ╱ef╱ $ ╱ // 0x3636 @0x21
0x3615…3653 at0022 = ╱ec╱ , ╱ // 0x3637 @0x22
0x3615…3653 at0023 = ╱4d╱M╱ // 0x3638 @0x23
0x3615…3653 at0024 = ╱4f╱O╱ // 0x3639 @0x24
0x3615…3653 at0025 = ╱4d╱M╱ // 0x363a @0x25
0x3615…3653 at0026 = ╱53╱S╱ // 0x363b @0x26
0x3615…3653 at0027 = ╱5f╱_╱ // 0x363c @0x27
0x3615…3653 at0028 = ╱4b╱K╱ // 0x363d @0x28
0x3615…3653 at0029 = ╱52╱R╱ // 0x363e @0x29
0x3615…3653 at002a = ╱ec╱ , ╱ // 0x363f @0x2a
0x3615…3653 at002b = ╱4b╱K╱ // 0x3640 @0x2b
0x3615…3653 at002c = ╱5f╱_╱ // 0x3641 @0x2c
0x3615…3653 at002d = ╱42╱B╱ // 0x3642 @0x2d
0x3615…3653 at002e = ╱4b╱K╱ // 0x3643 @0x2e
0x3615…3653 at002f = ╱52╱R╱ // 0x3644 @0x2f
0x3615…3653 at0030 = ╱ec╱ , ╱ // 0x3645 @0x30
0x3615…3653 at0031 = ╱4b╱K╱ // 0x3646 @0x31
0x3615…3653 at0032 = ╱5f╱_╱ // 0x3647 @0x32
0x3615…3653 at0033 = ╱44╱D╱ // 0x3648 @0x33
0x3615…3653 at0034 = ╱4b╱K╱ // 0x3649 @0x34
0x3615…3653 at0035 = ╱ec╱ , ╱ // 0x364a @0x35
0x3615…3653 at0036 = ╱4b╱K╱ // 0x364b @0x36
0x3615…3653 at0037 = ╱5f╱_╱ // 0x364c @0x37
0x3615…3653 at0038 = ╱42╱B╱ // 0x364d @0x38
0x3615…3653 at0039 = ╱4e╱N╱ // 0x364e @0x39
0x3615…3653 at003a = ╱52╱R╱ // 0x364f @0x3a
0x3615…3653 at003b = ╱ef╱ $ ╱ // 0x3650 @0x3b
0x3615…3653 at003c = ╱ee╱ ) ╱ // 0x3651 @0x3c
0x3615…3653 at003d = EOL // 0x3652 @0x3d
0x3615…3653 }
0x3653…3659 cc47 05120 ENDIF
0x3653…3659 LineComal80 {
0x3653…3659 ptr = 0xcc47 // 0x3653 @0x0
0x3653…3659 lno = 0x1400 // 0x3655 @0x2
0x3653…3659 at0004 = ╱9c╱ ENDIF ╱ // 0x3657 @0x4
0x3653…3659 at0005 = EOL // 0x3658 @0x5
0x3653…3659 }
0x3659…365f cc4d 05130 ENDIF
0x3659…365f LineComal80 {
0x3659…365f ptr = 0xcc4d // 0x3659 @0x0
0x3659…365f lno = 0x140a // 0x365b @0x2
0x3659…365f at0004 = ╱9c╱ ENDIF ╱ // 0x365d @0x4
0x3659…365f at0005 = EOL // 0x365e @0x5
0x3659…365f }
0x365f…3665 cc53 05140 ENDIF
0x365f…3665 LineComal80 {
0x365f…3665 ptr = 0xcc53 // 0x365f @0x0
0x365f…3665 lno = 0x1414 // 0x3661 @0x2
0x365f…3665 at0004 = ╱9c╱ ENDIF ╱ // 0x3663 @0x4
0x365f…3665 at0005 = EOL // 0x3664 @0x5
0x365f…3665 }
0x3665…3676 cc64 05150 CURSOR 4 , R_SLIN
0x3665…3676 LineComal80 {
0x3665…3676 ptr = 0xcc64 // 0x3665 @0x0
0x3665…3676 lno = 0x141e // 0x3667 @0x2
0x3665…3676 at0004 = ╱a1╱ CURSOR ╱ // 0x3669 @0x4
0x3665…3676 at0005 = ╱34╱4╱ // 0x366a @0x5
0x3665…3676 at0006 = ╱f20400╱ // 0x366b @0x6
0x3665…3676 at0009 = ╱ec╱ , ╱ // 0x366e @0x9
0x3665…3676 at000a = ╱52╱R╱ // 0x366f @0xa
0x3665…3676 at000b = ╱5f╱_╱ // 0x3670 @0xb
0x3665…3676 at000c = ╱53╱S╱ // 0x3671 @0xc
0x3665…3676 at000d = ╱4c╱L╱ // 0x3672 @0xd
0x3665…3676 at000e = ╱49╱I╱ // 0x3673 @0xe
0x3665…3676 at000f = ╱4e╱N╱ // 0x3674 @0xf
0x3665…3676 at0010 = EOL // 0x3675 @0x10
0x3665…3676 }
0x3676…36bd ccab 05160 PRINT "*…*…*…*…*…*…*…*…*…*…*……B…O…G…F…\…R…T…*…*…*…*…*…*…*…*…*…*…*…*…*" ;
0x3676…36bd LineComal80 {
0x3676…36bd ptr = 0xccab // 0x3676 @0x0
0x3676…36bd lno = 0x1428 // 0x3678 @0x2
0x3676…36bd at0004 = ╱92╱ PRINT ╱ // 0x367a @0x4
0x3676…36bd at0005 = ╱22╱"╱ // 0x367b @0x5
0x3676…36bd at0006 = ╱2a╱*╱ // 0x367c @0x6
0x3676…36bd at0007 = ╱20╱…╱ // 0x367d @0x7
0x3676…36bd at0008 = ╱2a╱*╱ // 0x367e @0x8
0x3676…36bd at0009 = ╱20╱…╱ // 0x367f @0x9
0x3676…36bd at000a = ╱2a╱*╱ // 0x3680 @0xa
0x3676…36bd at000b = ╱20╱…╱ // 0x3681 @0xb
0x3676…36bd at000c = ╱2a╱*╱ // 0x3682 @0xc
0x3676…36bd at000d = ╱20╱…╱ // 0x3683 @0xd
0x3676…36bd at000e = ╱2a╱*╱ // 0x3684 @0xe
0x3676…36bd at000f = ╱20╱…╱ // 0x3685 @0xf
0x3676…36bd at0010 = ╱2a╱*╱ // 0x3686 @0x10
0x3676…36bd at0011 = ╱20╱…╱ // 0x3687 @0x11
0x3676…36bd at0012 = ╱2a╱*╱ // 0x3688 @0x12
0x3676…36bd at0013 = ╱20╱…╱ // 0x3689 @0x13
0x3676…36bd at0014 = ╱2a╱*╱ // 0x368a @0x14
0x3676…36bd at0015 = ╱20╱…╱ // 0x368b @0x15
0x3676…36bd at0016 = ╱2a╱*╱ // 0x368c @0x16
0x3676…36bd at0017 = ╱20╱…╱ // 0x368d @0x17
0x3676…36bd at0018 = ╱2a╱*╱ // 0x368e @0x18
0x3676…36bd at0019 = ╱20╱…╱ // 0x368f @0x19
0x3676…36bd at001a = ╱2a╱*╱ // 0x3690 @0x1a
0x3676…36bd at001b = ╱20╱…╱ // 0x3691 @0x1b
0x3676…36bd at001c = ╱20╱…╱ // 0x3692 @0x1c
0x3676…36bd at001d = ╱42╱B╱ // 0x3693 @0x1d
0x3676…36bd at001e = ╱20╱…╱ // 0x3694 @0x1e
0x3676…36bd at001f = ╱4f╱O╱ // 0x3695 @0x1f
0x3676…36bd at0020 = ╱20╱…╱ // 0x3696 @0x20
0x3676…36bd at0021 = ╱47╱G╱ // 0x3697 @0x21
0x3676…36bd at0022 = ╱20╱…╱ // 0x3698 @0x22
0x3676…36bd at0023 = ╱46╱F╱ // 0x3699 @0x23
0x3676…36bd at0024 = ╱20╱…╱ // 0x369a @0x24
0x3676…36bd at0025 = ╱5c╱\╱ // 0x369b @0x25
0x3676…36bd at0026 = ╱20╱…╱ // 0x369c @0x26
0x3676…36bd at0027 = ╱52╱R╱ // 0x369d @0x27
0x3676…36bd at0028 = ╱20╱…╱ // 0x369e @0x28
0x3676…36bd at0029 = ╱54╱T╱ // 0x369f @0x29
0x3676…36bd at002a = ╱20╱…╱ // 0x36a0 @0x2a
0x3676…36bd at002b = ╱2a╱*╱ // 0x36a1 @0x2b
0x3676…36bd at002c = ╱20╱…╱ // 0x36a2 @0x2c
0x3676…36bd at002d = ╱2a╱*╱ // 0x36a3 @0x2d
0x3676…36bd at002e = ╱20╱…╱ // 0x36a4 @0x2e
0x3676…36bd at002f = ╱2a╱*╱ // 0x36a5 @0x2f
0x3676…36bd at0030 = ╱20╱…╱ // 0x36a6 @0x30
0x3676…36bd at0031 = ╱2a╱*╱ // 0x36a7 @0x31
0x3676…36bd at0032 = ╱20╱…╱ // 0x36a8 @0x32
0x3676…36bd at0033 = ╱2a╱*╱ // 0x36a9 @0x33
0x3676…36bd at0034 = ╱20╱…╱ // 0x36aa @0x34
0x3676…36bd at0035 = ╱2a╱*╱ // 0x36ab @0x35
0x3676…36bd at0036 = ╱20╱…╱ // 0x36ac @0x36
0x3676…36bd at0037 = ╱2a╱*╱ // 0x36ad @0x37
0x3676…36bd at0038 = ╱20╱…╱ // 0x36ae @0x38
0x3676…36bd at0039 = ╱2a╱*╱ // 0x36af @0x39
0x3676…36bd at003a = ╱20╱…╱ // 0x36b0 @0x3a
0x3676…36bd at003b = ╱2a╱*╱ // 0x36b1 @0x3b
0x3676…36bd at003c = ╱20╱…╱ // 0x36b2 @0x3c
0x3676…36bd at003d = ╱2a╱*╱ // 0x36b3 @0x3d
0x3676…36bd at003e = ╱20╱…╱ // 0x36b4 @0x3e
0x3676…36bd at003f = ╱2a╱*╱ // 0x36b5 @0x3f
0x3676…36bd at0040 = ╱20╱…╱ // 0x36b6 @0x40
0x3676…36bd at0041 = ╱2a╱*╱ // 0x36b7 @0x41
0x3676…36bd at0042 = ╱20╱…╱ // 0x36b8 @0x42
0x3676…36bd at0043 = ╱2a╱*╱ // 0x36b9 @0x43
0x3676…36bd at0044 = ╱22╱"╱ // 0x36ba @0x44
0x3676…36bd at0045 = ╱ea╱ ; ╱ // 0x36bb @0x45
0x3676…36bd at0046 = EOL // 0x36bc @0x46
0x3676…36bd }
0x36bd…36d3 ccc1 05170 PRINT SPC $ ( 1 : 10 )
0x36bd…36d3 LineComal80 {
0x36bd…36d3 ptr = 0xccc1 // 0x36bd @0x0
0x36bd…36d3 lno = 0x1432 // 0x36bf @0x2
0x36bd…36d3 at0004 = ╱92╱ PRINT ╱ // 0x36c1 @0x4
0x36bd…36d3 at0005 = ╱53╱S╱ // 0x36c2 @0x5
0x36bd…36d3 at0006 = ╱50╱P╱ // 0x36c3 @0x6
0x36bd…36d3 at0007 = ╱43╱C╱ // 0x36c4 @0x7
0x36bd…36d3 at0008 = ╱ef╱ $ ╱ // 0x36c5 @0x8
0x36bd…36d3 at0009 = ╱ed╱ ( ╱ // 0x36c6 @0x9
0x36bd…36d3 at000a = ╱31╱1╱ // 0x36c7 @0xa
0x36bd…36d3 at000b = ╱f20100╱ // 0x36c8 @0xb
0x36bd…36d3 at000e = ╱f1╱ : ╱ // 0x36cb @0xe
0x36bd…36d3 at000f = ╱31╱1╱ // 0x36cc @0xf
0x36bd…36d3 at0010 = ╱30╱0╱ // 0x36cd @0x10
0x36bd…36d3 at0011 = ╱f20a00╱ // 0x36ce @0x11
0x36bd…36d3 at0014 = ╱ee╱ ) ╱ // 0x36d1 @0x14
0x36bd…36d3 at0015 = EOL // 0x36d2 @0x15
0x36bd…36d3 }
0x36d3…36e7 ccd5 05180 LET K_BNR $ := "*****"
0x36d3…36e7 LineComal80 {
0x36d3…36e7 ptr = 0xccd5 // 0x36d3 @0x0
0x36d3…36e7 lno = 0x143c // 0x36d5 @0x2
0x36d3…36e7 at0004 = ╱86╱ LET ╱ // 0x36d7 @0x4
0x36d3…36e7 at0005 = ╱4b╱K╱ // 0x36d8 @0x5
0x36d3…36e7 at0006 = ╱5f╱_╱ // 0x36d9 @0x6
0x36d3…36e7 at0007 = ╱42╱B╱ // 0x36da @0x7
0x36d3…36e7 at0008 = ╱4e╱N╱ // 0x36db @0x8
0x36d3…36e7 at0009 = ╱52╱R╱ // 0x36dc @0x9
0x36d3…36e7 at000a = ╱ef╱ $ ╱ // 0x36dd @0xa
0x36d3…36e7 at000b = ╱f0╱ := ╱ // 0x36de @0xb
0x36d3…36e7 at000c = ╱22╱"╱ // 0x36df @0xc
0x36d3…36e7 at000d = ╱2a╱*╱ // 0x36e0 @0xd
0x36d3…36e7 at000e = ╱2a╱*╱ // 0x36e1 @0xe
0x36d3…36e7 at000f = ╱2a╱*╱ // 0x36e2 @0xf
0x36d3…36e7 at0010 = ╱2a╱*╱ // 0x36e3 @0x10
0x36d3…36e7 at0011 = ╱2a╱*╱ // 0x36e4 @0x11
0x36d3…36e7 at0012 = ╱22╱"╱ // 0x36e5 @0x12
0x36d3…36e7 at0013 = EOL // 0x36e6 @0x13
0x36d3…36e7 }
0x36e7…36fc ccea 05190 EXEC SKRIV_K_POST ( I )
0x36e7…36fc LineComal80 {
0x36e7…36fc ptr = 0xccea // 0x36e7 @0x0
0x36e7…36fc lno = 0x1446 // 0x36e9 @0x2
0x36e7…36fc at0004 = ╱9d╱ EXEC ╱ // 0x36eb @0x4
0x36e7…36fc at0005 = ╱53╱S╱ // 0x36ec @0x5
0x36e7…36fc at0006 = ╱4b╱K╱ // 0x36ed @0x6
0x36e7…36fc at0007 = ╱52╱R╱ // 0x36ee @0x7
0x36e7…36fc at0008 = ╱49╱I╱ // 0x36ef @0x8
0x36e7…36fc at0009 = ╱56╱V╱ // 0x36f0 @0x9
0x36e7…36fc at000a = ╱5f╱_╱ // 0x36f1 @0xa
0x36e7…36fc at000b = ╱4b╱K╱ // 0x36f2 @0xb
0x36e7…36fc at000c = ╱5f╱_╱ // 0x36f3 @0xc
0x36e7…36fc at000d = ╱50╱P╱ // 0x36f4 @0xd
0x36e7…36fc at000e = ╱4f╱O╱ // 0x36f5 @0xe
0x36e7…36fc at000f = ╱53╱S╱ // 0x36f6 @0xf
0x36e7…36fc at0010 = ╱54╱T╱ // 0x36f7 @0x10
0x36e7…36fc at0011 = ╱ed╱ ( ╱ // 0x36f8 @0x11
0x36e7…36fc at0012 = ╱49╱I╱ // 0x36f9 @0x12
0x36e7…36fc at0013 = ╱ee╱ ) ╱ // 0x36fa @0x13
0x36e7…36fc at0014 = EOL // 0x36fb @0x14
0x36e7…36fc }
0x36fc…3702 ccf0 05200 ENDIF
0x36fc…3702 LineComal80 {
0x36fc…3702 ptr = 0xccf0 // 0x36fc @0x0
0x36fc…3702 lno = 0x1450 // 0x36fe @0x2
0x36fc…3702 at0004 = ╱9c╱ ENDIF ╱ // 0x3700 @0x4
0x36fc…3702 at0005 = EOL // 0x3701 @0x5
0x36fc…3702 }
0x3702…3709 ccf7 05210 NEXT I
0x3702…3709 LineComal80 {
0x3702…3709 ptr = 0xccf7 // 0x3702 @0x0
0x3702…3709 lno = 0x145a // 0x3704 @0x2
0x3702…3709 at0004 = ╱84╱ NEXT ╱ // 0x3706 @0x4
0x3702…3709 at0005 = ╱49╱I╱ // 0x3707 @0x5
0x3702…3709 at0006 = EOL // 0x3708 @0x6
0x3702…3709 }
0x3709…373d cd2b 05220 LET K_TXT $ := "INDBETALINGER" ; K_DK := DEBET ; MOMS_KR := 0
0x3709…373d LineComal80 {
0x3709…373d ptr = 0xcd2b // 0x3709 @0x0
0x3709…373d lno = 0x1464 // 0x370b @0x2
0x3709…373d at0004 = ╱86╱ LET ╱ // 0x370d @0x4
0x3709…373d at0005 = ╱4b╱K╱ // 0x370e @0x5
0x3709…373d at0006 = ╱5f╱_╱ // 0x370f @0x6
0x3709…373d at0007 = ╱54╱T╱ // 0x3710 @0x7
0x3709…373d at0008 = ╱58╱X╱ // 0x3711 @0x8
0x3709…373d at0009 = ╱54╱T╱ // 0x3712 @0x9
0x3709…373d at000a = ╱ef╱ $ ╱ // 0x3713 @0xa
0x3709…373d at000b = ╱f0╱ := ╱ // 0x3714 @0xb
0x3709…373d at000c = ╱22╱"╱ // 0x3715 @0xc
0x3709…373d at000d = ╱49╱I╱ // 0x3716 @0xd
0x3709…373d at000e = ╱4e╱N╱ // 0x3717 @0xe
0x3709…373d at000f = ╱44╱D╱ // 0x3718 @0xf
0x3709…373d at0010 = ╱42╱B╱ // 0x3719 @0x10
0x3709…373d at0011 = ╱45╱E╱ // 0x371a @0x11
0x3709…373d at0012 = ╱54╱T╱ // 0x371b @0x12
0x3709…373d at0013 = ╱41╱A╱ // 0x371c @0x13
0x3709…373d at0014 = ╱4c╱L╱ // 0x371d @0x14
0x3709…373d at0015 = ╱49╱I╱ // 0x371e @0x15
0x3709…373d at0016 = ╱4e╱N╱ // 0x371f @0x16
0x3709…373d at0017 = ╱47╱G╱ // 0x3720 @0x17
0x3709…373d at0018 = ╱45╱E╱ // 0x3721 @0x18
0x3709…373d at0019 = ╱52╱R╱ // 0x3722 @0x19
0x3709…373d at001a = ╱22╱"╱ // 0x3723 @0x1a
0x3709…373d at001b = ╱ea╱ ; ╱ // 0x3724 @0x1b
0x3709…373d at001c = ╱4b╱K╱ // 0x3725 @0x1c
0x3709…373d at001d = ╱5f╱_╱ // 0x3726 @0x1d
0x3709…373d at001e = ╱44╱D╱ // 0x3727 @0x1e
0x3709…373d at001f = ╱4b╱K╱ // 0x3728 @0x1f
0x3709…373d at0020 = ╱f0╱ := ╱ // 0x3729 @0x20
0x3709…373d at0021 = ╱44╱D╱ // 0x372a @0x21
0x3709…373d at0022 = ╱45╱E╱ // 0x372b @0x22
0x3709…373d at0023 = ╱42╱B╱ // 0x372c @0x23
0x3709…373d at0024 = ╱45╱E╱ // 0x372d @0x24
0x3709…373d at0025 = ╱54╱T╱ // 0x372e @0x25
0x3709…373d at0026 = ╱ea╱ ; ╱ // 0x372f @0x26
0x3709…373d at0027 = ╱4d╱M╱ // 0x3730 @0x27
0x3709…373d at0028 = ╱4f╱O╱ // 0x3731 @0x28
0x3709…373d at0029 = ╱4d╱M╱ // 0x3732 @0x29
0x3709…373d at002a = ╱53╱S╱ // 0x3733 @0x2a
0x3709…373d at002b = ╱5f╱_╱ // 0x3734 @0x2b
0x3709…373d at002c = ╱4b╱K╱ // 0x3735 @0x2c
0x3709…373d at002d = ╱52╱R╱ // 0x3736 @0x2d
0x3709…373d at002e = ╱f0╱ := ╱ // 0x3737 @0x2e
0x3709…373d at002f = ╱30╱0╱ // 0x3738 @0x2f
0x3709…373d at0030 = ╱f20000╱ // 0x3739 @0x30
0x3709…373d at0033 = EOL // 0x373c @0x33
0x3709…373d }
0x373d…3752 cd40 05230 LET K_BKR := TOT ( 1 )
0x373d…3752 LineComal80 {
0x373d…3752 ptr = 0xcd40 // 0x373d @0x0
0x373d…3752 lno = 0x146e // 0x373f @0x2
0x373d…3752 at0004 = ╱86╱ LET ╱ // 0x3741 @0x4
0x373d…3752 at0005 = ╱4b╱K╱ // 0x3742 @0x5
0x373d…3752 at0006 = ╱5f╱_╱ // 0x3743 @0x6
0x373d…3752 at0007 = ╱42╱B╱ // 0x3744 @0x7
0x373d…3752 at0008 = ╱4b╱K╱ // 0x3745 @0x8
0x373d…3752 at0009 = ╱52╱R╱ // 0x3746 @0x9
0x373d…3752 at000a = ╱f0╱ := ╱ // 0x3747 @0xa
0x373d…3752 at000b = ╱54╱T╱ // 0x3748 @0xb
0x373d…3752 at000c = ╱4f╱O╱ // 0x3749 @0xc
0x373d…3752 at000d = ╱54╱T╱ // 0x374a @0xd
0x373d…3752 at000e = ╱ed╱ ( ╱ // 0x374b @0xe
0x373d…3752 at000f = ╱31╱1╱ // 0x374c @0xf
0x373d…3752 at0010 = ╱f20100╱ // 0x374d @0x10
0x373d…3752 at0013 = ╱ee╱ ) ╱ // 0x3750 @0x13
0x373d…3752 at0014 = EOL // 0x3751 @0x14
0x373d…3752 }
0x3752…3791 cd7f 05240 EXEC BOGF\R ( KASSE_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "……" )
0x3752…3791 LineComal80 {
0x3752…3791 ptr = 0xcd7f // 0x3752 @0x0
0x3752…3791 lno = 0x1478 // 0x3754 @0x2
0x3752…3791 at0004 = ╱9d╱ EXEC ╱ // 0x3756 @0x4
0x3752…3791 at0005 = ╱42╱B╱ // 0x3757 @0x5
0x3752…3791 at0006 = ╱4f╱O╱ // 0x3758 @0x6
0x3752…3791 at0007 = ╱47╱G╱ // 0x3759 @0x7
0x3752…3791 at0008 = ╱46╱F╱ // 0x375a @0x8
0x3752…3791 at0009 = ╱5c╱\╱ // 0x375b @0x9
0x3752…3791 at000a = ╱52╱R╱ // 0x375c @0xa
0x3752…3791 at000b = ╱ed╱ ( ╱ // 0x375d @0xb
0x3752…3791 at000c = ╱4b╱K╱ // 0x375e @0xc
0x3752…3791 at000d = ╱41╱A╱ // 0x375f @0xd
0x3752…3791 at000e = ╱53╱S╱ // 0x3760 @0xe
0x3752…3791 at000f = ╱53╱S╱ // 0x3761 @0xf
0x3752…3791 at0010 = ╱45╱E╱ // 0x3762 @0x10
0x3752…3791 at0011 = ╱5f╱_╱ // 0x3763 @0x11
0x3752…3791 at0012 = ╱4b╱K╱ // 0x3764 @0x12
0x3752…3791 at0013 = ╱54╱T╱ // 0x3765 @0x13
0x3752…3791 at0014 = ╱4f╱O╱ // 0x3766 @0x14
0x3752…3791 at0015 = ╱ef╱ $ ╱ // 0x3767 @0x15
0x3752…3791 at0016 = ╱ec╱ , ╱ // 0x3768 @0x16
0x3752…3791 at0017 = ╱4b╱K╱ // 0x3769 @0x17
0x3752…3791 at0018 = ╱5f╱_╱ // 0x376a @0x18
0x3752…3791 at0019 = ╱42╱B╱ // 0x376b @0x19
0x3752…3791 at001a = ╱44╱D╱ // 0x376c @0x1a
0x3752…3791 at001b = ╱41╱A╱ // 0x376d @0x1b
0x3752…3791 at001c = ╱54╱T╱ // 0x376e @0x1c
0x3752…3791 at001d = ╱ef╱ $ ╱ // 0x376f @0x1d
0x3752…3791 at001e = ╱ec╱ , ╱ // 0x3770 @0x1e
0x3752…3791 at001f = ╱4b╱K╱ // 0x3771 @0x1f
0x3752…3791 at0020 = ╱5f╱_╱ // 0x3772 @0x20
0x3752…3791 at0021 = ╱54╱T╱ // 0x3773 @0x21
0x3752…3791 at0022 = ╱58╱X╱ // 0x3774 @0x22
0x3752…3791 at0023 = ╱54╱T╱ // 0x3775 @0x23
0x3752…3791 at0024 = ╱ef╱ $ ╱ // 0x3776 @0x24
0x3752…3791 at0025 = ╱ec╱ , ╱ // 0x3777 @0x25
0x3752…3791 at0026 = ╱4d╱M╱ // 0x3778 @0x26
0x3752…3791 at0027 = ╱4f╱O╱ // 0x3779 @0x27
0x3752…3791 at0028 = ╱4d╱M╱ // 0x377a @0x28
0x3752…3791 at0029 = ╱53╱S╱ // 0x377b @0x29
0x3752…3791 at002a = ╱5f╱_╱ // 0x377c @0x2a
0x3752…3791 at002b = ╱4b╱K╱ // 0x377d @0x2b
0x3752…3791 at002c = ╱52╱R╱ // 0x377e @0x2c
0x3752…3791 at002d = ╱ec╱ , ╱ // 0x377f @0x2d
0x3752…3791 at002e = ╱4b╱K╱ // 0x3780 @0x2e
0x3752…3791 at002f = ╱5f╱_╱ // 0x3781 @0x2f
0x3752…3791 at0030 = ╱42╱B╱ // 0x3782 @0x30
0x3752…3791 at0031 = ╱4b╱K╱ // 0x3783 @0x31
0x3752…3791 at0032 = ╱52╱R╱ // 0x3784 @0x32
0x3752…3791 at0033 = ╱ec╱ , ╱ // 0x3785 @0x33
0x3752…3791 at0034 = ╱4b╱K╱ // 0x3786 @0x34
0x3752…3791 at0035 = ╱5f╱_╱ // 0x3787 @0x35
0x3752…3791 at0036 = ╱44╱D╱ // 0x3788 @0x36
0x3752…3791 at0037 = ╱4b╱K╱ // 0x3789 @0x37
0x3752…3791 at0038 = ╱ec╱ , ╱ // 0x378a @0x38
0x3752…3791 at0039 = ╱22╱"╱ // 0x378b @0x39
0x3752…3791 at003a = ╱20╱…╱ // 0x378c @0x3a
0x3752…3791 at003b = ╱20╱…╱ // 0x378d @0x3b
0x3752…3791 at003c = ╱22╱"╱ // 0x378e @0x3c
0x3752…3791 at003d = ╱ee╱ ) ╱ // 0x378f @0x3d
0x3752…3791 at003e = EOL // 0x3790 @0x3e
0x3752…3791 }
0x3791…37b6 cda4 05250 LET K_BKR := TOT ( 3 ) ; K_TXT $ := "INDSAT"
0x3791…37b6 LineComal80 {
0x3791…37b6 ptr = 0xcda4 // 0x3791 @0x0
0x3791…37b6 lno = 0x1482 // 0x3793 @0x2
0x3791…37b6 at0004 = ╱86╱ LET ╱ // 0x3795 @0x4
0x3791…37b6 at0005 = ╱4b╱K╱ // 0x3796 @0x5
0x3791…37b6 at0006 = ╱5f╱_╱ // 0x3797 @0x6
0x3791…37b6 at0007 = ╱42╱B╱ // 0x3798 @0x7
0x3791…37b6 at0008 = ╱4b╱K╱ // 0x3799 @0x8
0x3791…37b6 at0009 = ╱52╱R╱ // 0x379a @0x9
0x3791…37b6 at000a = ╱f0╱ := ╱ // 0x379b @0xa
0x3791…37b6 at000b = ╱54╱T╱ // 0x379c @0xb
0x3791…37b6 at000c = ╱4f╱O╱ // 0x379d @0xc
0x3791…37b6 at000d = ╱54╱T╱ // 0x379e @0xd
0x3791…37b6 at000e = ╱ed╱ ( ╱ // 0x379f @0xe
0x3791…37b6 at000f = ╱33╱3╱ // 0x37a0 @0xf
0x3791…37b6 at0010 = ╱f20300╱ // 0x37a1 @0x10
0x3791…37b6 at0013 = ╱ee╱ ) ╱ // 0x37a4 @0x13
0x3791…37b6 at0014 = ╱ea╱ ; ╱ // 0x37a5 @0x14
0x3791…37b6 at0015 = ╱4b╱K╱ // 0x37a6 @0x15
0x3791…37b6 at0016 = ╱5f╱_╱ // 0x37a7 @0x16
0x3791…37b6 at0017 = ╱54╱T╱ // 0x37a8 @0x17
0x3791…37b6 at0018 = ╱58╱X╱ // 0x37a9 @0x18
0x3791…37b6 at0019 = ╱54╱T╱ // 0x37aa @0x19
0x3791…37b6 at001a = ╱ef╱ $ ╱ // 0x37ab @0x1a
0x3791…37b6 at001b = ╱f0╱ := ╱ // 0x37ac @0x1b
0x3791…37b6 at001c = ╱22╱"╱ // 0x37ad @0x1c
0x3791…37b6 at001d = ╱49╱I╱ // 0x37ae @0x1d
0x3791…37b6 at001e = ╱4e╱N╱ // 0x37af @0x1e
0x3791…37b6 at001f = ╱44╱D╱ // 0x37b0 @0x1f
0x3791…37b6 at0020 = ╱53╱S╱ // 0x37b1 @0x20
0x3791…37b6 at0021 = ╱41╱A╱ // 0x37b2 @0x21
0x3791…37b6 at0022 = ╱54╱T╱ // 0x37b3 @0x22
0x3791…37b6 at0023 = ╱22╱"╱ // 0x37b4 @0x23
0x3791…37b6 at0024 = EOL // 0x37b5 @0x24
0x3791…37b6 }
0x37b6…37f4 cde2 05260 EXEC BOGF\R ( BANK_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "……" )
0x37b6…37f4 LineComal80 {
0x37b6…37f4 ptr = 0xcde2 // 0x37b6 @0x0
0x37b6…37f4 lno = 0x148c // 0x37b8 @0x2
0x37b6…37f4 at0004 = ╱9d╱ EXEC ╱ // 0x37ba @0x4
0x37b6…37f4 at0005 = ╱42╱B╱ // 0x37bb @0x5
0x37b6…37f4 at0006 = ╱4f╱O╱ // 0x37bc @0x6
0x37b6…37f4 at0007 = ╱47╱G╱ // 0x37bd @0x7
0x37b6…37f4 at0008 = ╱46╱F╱ // 0x37be @0x8
0x37b6…37f4 at0009 = ╱5c╱\╱ // 0x37bf @0x9
0x37b6…37f4 at000a = ╱52╱R╱ // 0x37c0 @0xa
0x37b6…37f4 at000b = ╱ed╱ ( ╱ // 0x37c1 @0xb
0x37b6…37f4 at000c = ╱42╱B╱ // 0x37c2 @0xc
0x37b6…37f4 at000d = ╱41╱A╱ // 0x37c3 @0xd
0x37b6…37f4 at000e = ╱4e╱N╱ // 0x37c4 @0xe
0x37b6…37f4 at000f = ╱4b╱K╱ // 0x37c5 @0xf
0x37b6…37f4 at0010 = ╱5f╱_╱ // 0x37c6 @0x10
0x37b6…37f4 at0011 = ╱4b╱K╱ // 0x37c7 @0x11
0x37b6…37f4 at0012 = ╱54╱T╱ // 0x37c8 @0x12
0x37b6…37f4 at0013 = ╱4f╱O╱ // 0x37c9 @0x13
0x37b6…37f4 at0014 = ╱ef╱ $ ╱ // 0x37ca @0x14
0x37b6…37f4 at0015 = ╱ec╱ , ╱ // 0x37cb @0x15
0x37b6…37f4 at0016 = ╱4b╱K╱ // 0x37cc @0x16
0x37b6…37f4 at0017 = ╱5f╱_╱ // 0x37cd @0x17
0x37b6…37f4 at0018 = ╱42╱B╱ // 0x37ce @0x18
0x37b6…37f4 at0019 = ╱44╱D╱ // 0x37cf @0x19
0x37b6…37f4 at001a = ╱41╱A╱ // 0x37d0 @0x1a
0x37b6…37f4 at001b = ╱54╱T╱ // 0x37d1 @0x1b
0x37b6…37f4 at001c = ╱ef╱ $ ╱ // 0x37d2 @0x1c
0x37b6…37f4 at001d = ╱ec╱ , ╱ // 0x37d3 @0x1d
0x37b6…37f4 at001e = ╱4b╱K╱ // 0x37d4 @0x1e
0x37b6…37f4 at001f = ╱5f╱_╱ // 0x37d5 @0x1f
0x37b6…37f4 at0020 = ╱54╱T╱ // 0x37d6 @0x20
0x37b6…37f4 at0021 = ╱58╱X╱ // 0x37d7 @0x21
0x37b6…37f4 at0022 = ╱54╱T╱ // 0x37d8 @0x22
0x37b6…37f4 at0023 = ╱ef╱ $ ╱ // 0x37d9 @0x23
0x37b6…37f4 at0024 = ╱ec╱ , ╱ // 0x37da @0x24
0x37b6…37f4 at0025 = ╱4d╱M╱ // 0x37db @0x25
0x37b6…37f4 at0026 = ╱4f╱O╱ // 0x37dc @0x26
0x37b6…37f4 at0027 = ╱4d╱M╱ // 0x37dd @0x27
0x37b6…37f4 at0028 = ╱53╱S╱ // 0x37de @0x28
0x37b6…37f4 at0029 = ╱5f╱_╱ // 0x37df @0x29
0x37b6…37f4 at002a = ╱4b╱K╱ // 0x37e0 @0x2a
0x37b6…37f4 at002b = ╱52╱R╱ // 0x37e1 @0x2b
0x37b6…37f4 at002c = ╱ec╱ , ╱ // 0x37e2 @0x2c
0x37b6…37f4 at002d = ╱4b╱K╱ // 0x37e3 @0x2d
0x37b6…37f4 at002e = ╱5f╱_╱ // 0x37e4 @0x2e
0x37b6…37f4 at002f = ╱42╱B╱ // 0x37e5 @0x2f
0x37b6…37f4 at0030 = ╱4b╱K╱ // 0x37e6 @0x30
0x37b6…37f4 at0031 = ╱52╱R╱ // 0x37e7 @0x31
0x37b6…37f4 at0032 = ╱ec╱ , ╱ // 0x37e8 @0x32
0x37b6…37f4 at0033 = ╱4b╱K╱ // 0x37e9 @0x33
0x37b6…37f4 at0034 = ╱5f╱_╱ // 0x37ea @0x34
0x37b6…37f4 at0035 = ╱44╱D╱ // 0x37eb @0x35
0x37b6…37f4 at0036 = ╱4b╱K╱ // 0x37ec @0x36
0x37b6…37f4 at0037 = ╱ec╱ , ╱ // 0x37ed @0x37
0x37b6…37f4 at0038 = ╱22╱"╱ // 0x37ee @0x38
0x37b6…37f4 at0039 = ╱20╱…╱ // 0x37ef @0x39
0x37b6…37f4 at003a = ╱20╱…╱ // 0x37f0 @0x3a
0x37b6…37f4 at003b = ╱22╱"╱ // 0x37f1 @0x3b
0x37b6…37f4 at003c = ╱ee╱ ) ╱ // 0x37f2 @0x3c
0x37b6…37f4 at003d = EOL // 0x37f3 @0x3d
0x37b6…37f4 }
0x37f4…3809 cdf7 05270 LET K_BKR := TOT ( 5 )
0x37f4…3809 LineComal80 {
0x37f4…3809 ptr = 0xcdf7 // 0x37f4 @0x0
0x37f4…3809 lno = 0x1496 // 0x37f6 @0x2
0x37f4…3809 at0004 = ╱86╱ LET ╱ // 0x37f8 @0x4
0x37f4…3809 at0005 = ╱4b╱K╱ // 0x37f9 @0x5
0x37f4…3809 at0006 = ╱5f╱_╱ // 0x37fa @0x6
0x37f4…3809 at0007 = ╱42╱B╱ // 0x37fb @0x7
0x37f4…3809 at0008 = ╱4b╱K╱ // 0x37fc @0x8
0x37f4…3809 at0009 = ╱52╱R╱ // 0x37fd @0x9
0x37f4…3809 at000a = ╱f0╱ := ╱ // 0x37fe @0xa
0x37f4…3809 at000b = ╱54╱T╱ // 0x37ff @0xb
0x37f4…3809 at000c = ╱4f╱O╱ // 0x3800 @0xc
0x37f4…3809 at000d = ╱54╱T╱ // 0x3801 @0xd
0x37f4…3809 at000e = ╱ed╱ ( ╱ // 0x3802 @0xe
0x37f4…3809 at000f = ╱35╱5╱ // 0x3803 @0xf
0x37f4…3809 at0010 = ╱f20500╱ // 0x3804 @0x10
0x37f4…3809 at0013 = ╱ee╱ ) ╱ // 0x3807 @0x13
0x37f4…3809 at0014 = EOL // 0x3808 @0x14
0x37f4…3809 }
0x3809…3848 ce36 05280 EXEC BOGF\R ( GIRO_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "………" )
0x3809…3848 LineComal80 {
0x3809…3848 ptr = 0xce36 // 0x3809 @0x0
0x3809…3848 lno = 0x14a0 // 0x380b @0x2
0x3809…3848 at0004 = ╱9d╱ EXEC ╱ // 0x380d @0x4
0x3809…3848 at0005 = ╱42╱B╱ // 0x380e @0x5
0x3809…3848 at0006 = ╱4f╱O╱ // 0x380f @0x6
0x3809…3848 at0007 = ╱47╱G╱ // 0x3810 @0x7
0x3809…3848 at0008 = ╱46╱F╱ // 0x3811 @0x8
0x3809…3848 at0009 = ╱5c╱\╱ // 0x3812 @0x9
0x3809…3848 at000a = ╱52╱R╱ // 0x3813 @0xa
0x3809…3848 at000b = ╱ed╱ ( ╱ // 0x3814 @0xb
0x3809…3848 at000c = ╱47╱G╱ // 0x3815 @0xc
0x3809…3848 at000d = ╱49╱I╱ // 0x3816 @0xd
0x3809…3848 at000e = ╱52╱R╱ // 0x3817 @0xe
0x3809…3848 at000f = ╱4f╱O╱ // 0x3818 @0xf
0x3809…3848 at0010 = ╱5f╱_╱ // 0x3819 @0x10
0x3809…3848 at0011 = ╱4b╱K╱ // 0x381a @0x11
0x3809…3848 at0012 = ╱54╱T╱ // 0x381b @0x12
0x3809…3848 at0013 = ╱4f╱O╱ // 0x381c @0x13
0x3809…3848 at0014 = ╱ef╱ $ ╱ // 0x381d @0x14
0x3809…3848 at0015 = ╱ec╱ , ╱ // 0x381e @0x15
0x3809…3848 at0016 = ╱4b╱K╱ // 0x381f @0x16
0x3809…3848 at0017 = ╱5f╱_╱ // 0x3820 @0x17
0x3809…3848 at0018 = ╱42╱B╱ // 0x3821 @0x18
0x3809…3848 at0019 = ╱44╱D╱ // 0x3822 @0x19
0x3809…3848 at001a = ╱41╱A╱ // 0x3823 @0x1a
0x3809…3848 at001b = ╱54╱T╱ // 0x3824 @0x1b
0x3809…3848 at001c = ╱ef╱ $ ╱ // 0x3825 @0x1c
0x3809…3848 at001d = ╱ec╱ , ╱ // 0x3826 @0x1d
0x3809…3848 at001e = ╱4b╱K╱ // 0x3827 @0x1e
0x3809…3848 at001f = ╱5f╱_╱ // 0x3828 @0x1f
0x3809…3848 at0020 = ╱54╱T╱ // 0x3829 @0x20
0x3809…3848 at0021 = ╱58╱X╱ // 0x382a @0x21
0x3809…3848 at0022 = ╱54╱T╱ // 0x382b @0x22
0x3809…3848 at0023 = ╱ef╱ $ ╱ // 0x382c @0x23
0x3809…3848 at0024 = ╱ec╱ , ╱ // 0x382d @0x24
0x3809…3848 at0025 = ╱4d╱M╱ // 0x382e @0x25
0x3809…3848 at0026 = ╱4f╱O╱ // 0x382f @0x26
0x3809…3848 at0027 = ╱4d╱M╱ // 0x3830 @0x27
0x3809…3848 at0028 = ╱53╱S╱ // 0x3831 @0x28
0x3809…3848 at0029 = ╱5f╱_╱ // 0x3832 @0x29
0x3809…3848 at002a = ╱4b╱K╱ // 0x3833 @0x2a
0x3809…3848 at002b = ╱52╱R╱ // 0x3834 @0x2b
0x3809…3848 at002c = ╱ec╱ , ╱ // 0x3835 @0x2c
0x3809…3848 at002d = ╱4b╱K╱ // 0x3836 @0x2d
0x3809…3848 at002e = ╱5f╱_╱ // 0x3837 @0x2e
0x3809…3848 at002f = ╱42╱B╱ // 0x3838 @0x2f
0x3809…3848 at0030 = ╱4b╱K╱ // 0x3839 @0x30
0x3809…3848 at0031 = ╱52╱R╱ // 0x383a @0x31
0x3809…3848 at0032 = ╱ec╱ , ╱ // 0x383b @0x32
0x3809…3848 at0033 = ╱4b╱K╱ // 0x383c @0x33
0x3809…3848 at0034 = ╱5f╱_╱ // 0x383d @0x34
0x3809…3848 at0035 = ╱44╱D╱ // 0x383e @0x35
0x3809…3848 at0036 = ╱4b╱K╱ // 0x383f @0x36
0x3809…3848 at0037 = ╱ec╱ , ╱ // 0x3840 @0x37
0x3809…3848 at0038 = ╱22╱"╱ // 0x3841 @0x38
0x3809…3848 at0039 = ╱20╱…╱ // 0x3842 @0x39
0x3809…3848 at003a = ╱20╱…╱ // 0x3843 @0x3a
0x3809…3848 at003b = ╱20╱…╱ // 0x3844 @0x3b
0x3809…3848 at003c = ╱22╱"╱ // 0x3845 @0x3c
0x3809…3848 at003d = ╱ee╱ ) ╱ // 0x3846 @0x3d
0x3809…3848 at003e = EOL // 0x3847 @0x3e
0x3809…3848 }
0x3848…3859 ce47 05290 LET K_DK := KREDIT
0x3848…3859 LineComal80 {
0x3848…3859 ptr = 0xce47 // 0x3848 @0x0
0x3848…3859 lno = 0x14aa // 0x384a @0x2
0x3848…3859 at0004 = ╱86╱ LET ╱ // 0x384c @0x4
0x3848…3859 at0005 = ╱4b╱K╱ // 0x384d @0x5
0x3848…3859 at0006 = ╱5f╱_╱ // 0x384e @0x6
0x3848…3859 at0007 = ╱44╱D╱ // 0x384f @0x7
0x3848…3859 at0008 = ╱4b╱K╱ // 0x3850 @0x8
0x3848…3859 at0009 = ╱f0╱ := ╱ // 0x3851 @0x9
0x3848…3859 at000a = ╱4b╱K╱ // 0x3852 @0xa
0x3848…3859 at000b = ╱52╱R╱ // 0x3853 @0xb
0x3848…3859 at000c = ╱45╱E╱ // 0x3854 @0xc
0x3848…3859 at000d = ╱44╱D╱ // 0x3855 @0xd
0x3848…3859 at000e = ╱49╱I╱ // 0x3856 @0xe
0x3848…3859 at000f = ╱54╱T╱ // 0x3857 @0xf
0x3848…3859 at0010 = EOL // 0x3858 @0x10
0x3848…3859 }
0x3859…3884 ce72 05300 LET K_BKR := TOT ( 2 ) ; K_TXT $ := "UDBETALINGER"
0x3859…3884 LineComal80 {
0x3859…3884 ptr = 0xce72 // 0x3859 @0x0
0x3859…3884 lno = 0x14b4 // 0x385b @0x2
0x3859…3884 at0004 = ╱86╱ LET ╱ // 0x385d @0x4
0x3859…3884 at0005 = ╱4b╱K╱ // 0x385e @0x5
0x3859…3884 at0006 = ╱5f╱_╱ // 0x385f @0x6
0x3859…3884 at0007 = ╱42╱B╱ // 0x3860 @0x7
0x3859…3884 at0008 = ╱4b╱K╱ // 0x3861 @0x8
0x3859…3884 at0009 = ╱52╱R╱ // 0x3862 @0x9
0x3859…3884 at000a = ╱f0╱ := ╱ // 0x3863 @0xa
0x3859…3884 at000b = ╱54╱T╱ // 0x3864 @0xb
0x3859…3884 at000c = ╱4f╱O╱ // 0x3865 @0xc
0x3859…3884 at000d = ╱54╱T╱ // 0x3866 @0xd
0x3859…3884 at000e = ╱ed╱ ( ╱ // 0x3867 @0xe
0x3859…3884 at000f = ╱32╱2╱ // 0x3868 @0xf
0x3859…3884 at0010 = ╱f20200╱ // 0x3869 @0x10
0x3859…3884 at0013 = ╱ee╱ ) ╱ // 0x386c @0x13
0x3859…3884 at0014 = ╱ea╱ ; ╱ // 0x386d @0x14
0x3859…3884 at0015 = ╱4b╱K╱ // 0x386e @0x15
0x3859…3884 at0016 = ╱5f╱_╱ // 0x386f @0x16
0x3859…3884 at0017 = ╱54╱T╱ // 0x3870 @0x17
0x3859…3884 at0018 = ╱58╱X╱ // 0x3871 @0x18
0x3859…3884 at0019 = ╱54╱T╱ // 0x3872 @0x19
0x3859…3884 at001a = ╱ef╱ $ ╱ // 0x3873 @0x1a
0x3859…3884 at001b = ╱f0╱ := ╱ // 0x3874 @0x1b
0x3859…3884 at001c = ╱22╱"╱ // 0x3875 @0x1c
0x3859…3884 at001d = ╱55╱U╱ // 0x3876 @0x1d
0x3859…3884 at001e = ╱44╱D╱ // 0x3877 @0x1e
0x3859…3884 at001f = ╱42╱B╱ // 0x3878 @0x1f
0x3859…3884 at0020 = ╱45╱E╱ // 0x3879 @0x20
0x3859…3884 at0021 = ╱54╱T╱ // 0x387a @0x21
0x3859…3884 at0022 = ╱41╱A╱ // 0x387b @0x22
0x3859…3884 at0023 = ╱4c╱L╱ // 0x387c @0x23
0x3859…3884 at0024 = ╱49╱I╱ // 0x387d @0x24
0x3859…3884 at0025 = ╱4e╱N╱ // 0x387e @0x25
0x3859…3884 at0026 = ╱47╱G╱ // 0x387f @0x26
0x3859…3884 at0027 = ╱45╱E╱ // 0x3880 @0x27
0x3859…3884 at0028 = ╱52╱R╱ // 0x3881 @0x28
0x3859…3884 at0029 = ╱22╱"╱ // 0x3882 @0x29
0x3859…3884 at002a = EOL // 0x3883 @0x2a
0x3859…3884 }
0x3884…38c4 ceb2 05310 EXEC BOGF\R ( KASSE_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "………" )
0x3884…38c4 LineComal80 {
0x3884…38c4 ptr = 0xceb2 // 0x3884 @0x0
0x3884…38c4 lno = 0x14be // 0x3886 @0x2
0x3884…38c4 at0004 = ╱9d╱ EXEC ╱ // 0x3888 @0x4
0x3884…38c4 at0005 = ╱42╱B╱ // 0x3889 @0x5
0x3884…38c4 at0006 = ╱4f╱O╱ // 0x388a @0x6
0x3884…38c4 at0007 = ╱47╱G╱ // 0x388b @0x7
0x3884…38c4 at0008 = ╱46╱F╱ // 0x388c @0x8
0x3884…38c4 at0009 = ╱5c╱\╱ // 0x388d @0x9
0x3884…38c4 at000a = ╱52╱R╱ // 0x388e @0xa
0x3884…38c4 at000b = ╱ed╱ ( ╱ // 0x388f @0xb
0x3884…38c4 at000c = ╱4b╱K╱ // 0x3890 @0xc
0x3884…38c4 at000d = ╱41╱A╱ // 0x3891 @0xd
0x3884…38c4 at000e = ╱53╱S╱ // 0x3892 @0xe
0x3884…38c4 at000f = ╱53╱S╱ // 0x3893 @0xf
0x3884…38c4 at0010 = ╱45╱E╱ // 0x3894 @0x10
0x3884…38c4 at0011 = ╱5f╱_╱ // 0x3895 @0x11
0x3884…38c4 at0012 = ╱4b╱K╱ // 0x3896 @0x12
0x3884…38c4 at0013 = ╱54╱T╱ // 0x3897 @0x13
0x3884…38c4 at0014 = ╱4f╱O╱ // 0x3898 @0x14
0x3884…38c4 at0015 = ╱ef╱ $ ╱ // 0x3899 @0x15
0x3884…38c4 at0016 = ╱ec╱ , ╱ // 0x389a @0x16
0x3884…38c4 at0017 = ╱4b╱K╱ // 0x389b @0x17
0x3884…38c4 at0018 = ╱5f╱_╱ // 0x389c @0x18
0x3884…38c4 at0019 = ╱42╱B╱ // 0x389d @0x19
0x3884…38c4 at001a = ╱44╱D╱ // 0x389e @0x1a
0x3884…38c4 at001b = ╱41╱A╱ // 0x389f @0x1b
0x3884…38c4 at001c = ╱54╱T╱ // 0x38a0 @0x1c
0x3884…38c4 at001d = ╱ef╱ $ ╱ // 0x38a1 @0x1d
0x3884…38c4 at001e = ╱ec╱ , ╱ // 0x38a2 @0x1e
0x3884…38c4 at001f = ╱4b╱K╱ // 0x38a3 @0x1f
0x3884…38c4 at0020 = ╱5f╱_╱ // 0x38a4 @0x20
0x3884…38c4 at0021 = ╱54╱T╱ // 0x38a5 @0x21
0x3884…38c4 at0022 = ╱58╱X╱ // 0x38a6 @0x22
0x3884…38c4 at0023 = ╱54╱T╱ // 0x38a7 @0x23
0x3884…38c4 at0024 = ╱ef╱ $ ╱ // 0x38a8 @0x24
0x3884…38c4 at0025 = ╱ec╱ , ╱ // 0x38a9 @0x25
0x3884…38c4 at0026 = ╱4d╱M╱ // 0x38aa @0x26
0x3884…38c4 at0027 = ╱4f╱O╱ // 0x38ab @0x27
0x3884…38c4 at0028 = ╱4d╱M╱ // 0x38ac @0x28
0x3884…38c4 at0029 = ╱53╱S╱ // 0x38ad @0x29
0x3884…38c4 at002a = ╱5f╱_╱ // 0x38ae @0x2a
0x3884…38c4 at002b = ╱4b╱K╱ // 0x38af @0x2b
0x3884…38c4 at002c = ╱52╱R╱ // 0x38b0 @0x2c
0x3884…38c4 at002d = ╱ec╱ , ╱ // 0x38b1 @0x2d
0x3884…38c4 at002e = ╱4b╱K╱ // 0x38b2 @0x2e
0x3884…38c4 at002f = ╱5f╱_╱ // 0x38b3 @0x2f
0x3884…38c4 at0030 = ╱42╱B╱ // 0x38b4 @0x30
0x3884…38c4 at0031 = ╱4b╱K╱ // 0x38b5 @0x31
0x3884…38c4 at0032 = ╱52╱R╱ // 0x38b6 @0x32
0x3884…38c4 at0033 = ╱ec╱ , ╱ // 0x38b7 @0x33
0x3884…38c4 at0034 = ╱4b╱K╱ // 0x38b8 @0x34
0x3884…38c4 at0035 = ╱5f╱_╱ // 0x38b9 @0x35
0x3884…38c4 at0036 = ╱44╱D╱ // 0x38ba @0x36
0x3884…38c4 at0037 = ╱4b╱K╱ // 0x38bb @0x37
0x3884…38c4 at0038 = ╱ec╱ , ╱ // 0x38bc @0x38
0x3884…38c4 at0039 = ╱22╱"╱ // 0x38bd @0x39
0x3884…38c4 at003a = ╱20╱…╱ // 0x38be @0x3a
0x3884…38c4 at003b = ╱20╱…╱ // 0x38bf @0x3b
0x3884…38c4 at003c = ╱20╱…╱ // 0x38c0 @0x3c
0x3884…38c4 at003d = ╱22╱"╱ // 0x38c1 @0x3d
0x3884…38c4 at003e = ╱ee╱ ) ╱ // 0x38c2 @0x3e
0x3884…38c4 at003f = EOL // 0x38c3 @0x3f
0x3884…38c4 }
0x38c4…38e8 ced6 05320 LET K_BKR := TOT ( 4 ) ; K_TXT $ := "H[VET"
0x38c4…38e8 LineComal80 {
0x38c4…38e8 ptr = 0xced6 // 0x38c4 @0x0
0x38c4…38e8 lno = 0x14c8 // 0x38c6 @0x2
0x38c4…38e8 at0004 = ╱86╱ LET ╱ // 0x38c8 @0x4
0x38c4…38e8 at0005 = ╱4b╱K╱ // 0x38c9 @0x5
0x38c4…38e8 at0006 = ╱5f╱_╱ // 0x38ca @0x6
0x38c4…38e8 at0007 = ╱42╱B╱ // 0x38cb @0x7
0x38c4…38e8 at0008 = ╱4b╱K╱ // 0x38cc @0x8
0x38c4…38e8 at0009 = ╱52╱R╱ // 0x38cd @0x9
0x38c4…38e8 at000a = ╱f0╱ := ╱ // 0x38ce @0xa
0x38c4…38e8 at000b = ╱54╱T╱ // 0x38cf @0xb
0x38c4…38e8 at000c = ╱4f╱O╱ // 0x38d0 @0xc
0x38c4…38e8 at000d = ╱54╱T╱ // 0x38d1 @0xd
0x38c4…38e8 at000e = ╱ed╱ ( ╱ // 0x38d2 @0xe
0x38c4…38e8 at000f = ╱34╱4╱ // 0x38d3 @0xf
0x38c4…38e8 at0010 = ╱f20400╱ // 0x38d4 @0x10
0x38c4…38e8 at0013 = ╱ee╱ ) ╱ // 0x38d7 @0x13
0x38c4…38e8 at0014 = ╱ea╱ ; ╱ // 0x38d8 @0x14
0x38c4…38e8 at0015 = ╱4b╱K╱ // 0x38d9 @0x15
0x38c4…38e8 at0016 = ╱5f╱_╱ // 0x38da @0x16
0x38c4…38e8 at0017 = ╱54╱T╱ // 0x38db @0x17
0x38c4…38e8 at0018 = ╱58╱X╱ // 0x38dc @0x18
0x38c4…38e8 at0019 = ╱54╱T╱ // 0x38dd @0x19
0x38c4…38e8 at001a = ╱ef╱ $ ╱ // 0x38de @0x1a
0x38c4…38e8 at001b = ╱f0╱ := ╱ // 0x38df @0x1b
0x38c4…38e8 at001c = ╱22╱"╱ // 0x38e0 @0x1c
0x38c4…38e8 at001d = ╱48╱H╱ // 0x38e1 @0x1d
0x38c4…38e8 at001e = ╱5b╱[╱ // 0x38e2 @0x1e
0x38c4…38e8 at001f = ╱56╱V╱ // 0x38e3 @0x1f
0x38c4…38e8 at0020 = ╱45╱E╱ // 0x38e4 @0x20
0x38c4…38e8 at0021 = ╱54╱T╱ // 0x38e5 @0x21
0x38c4…38e8 at0022 = ╱22╱"╱ // 0x38e6 @0x22
0x38c4…38e8 at0023 = EOL // 0x38e7 @0x23
0x38c4…38e8 }
0x38e8…3927 cf15 05330 EXEC BOGF\R ( BANK_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "………" )
0x38e8…3927 LineComal80 {
0x38e8…3927 ptr = 0xcf15 // 0x38e8 @0x0
0x38e8…3927 lno = 0x14d2 // 0x38ea @0x2
0x38e8…3927 at0004 = ╱9d╱ EXEC ╱ // 0x38ec @0x4
0x38e8…3927 at0005 = ╱42╱B╱ // 0x38ed @0x5
0x38e8…3927 at0006 = ╱4f╱O╱ // 0x38ee @0x6
0x38e8…3927 at0007 = ╱47╱G╱ // 0x38ef @0x7
0x38e8…3927 at0008 = ╱46╱F╱ // 0x38f0 @0x8
0x38e8…3927 at0009 = ╱5c╱\╱ // 0x38f1 @0x9
0x38e8…3927 at000a = ╱52╱R╱ // 0x38f2 @0xa
0x38e8…3927 at000b = ╱ed╱ ( ╱ // 0x38f3 @0xb
0x38e8…3927 at000c = ╱42╱B╱ // 0x38f4 @0xc
0x38e8…3927 at000d = ╱41╱A╱ // 0x38f5 @0xd
0x38e8…3927 at000e = ╱4e╱N╱ // 0x38f6 @0xe
0x38e8…3927 at000f = ╱4b╱K╱ // 0x38f7 @0xf
0x38e8…3927 at0010 = ╱5f╱_╱ // 0x38f8 @0x10
0x38e8…3927 at0011 = ╱4b╱K╱ // 0x38f9 @0x11
0x38e8…3927 at0012 = ╱54╱T╱ // 0x38fa @0x12
0x38e8…3927 at0013 = ╱4f╱O╱ // 0x38fb @0x13
0x38e8…3927 at0014 = ╱ef╱ $ ╱ // 0x38fc @0x14
0x38e8…3927 at0015 = ╱ec╱ , ╱ // 0x38fd @0x15
0x38e8…3927 at0016 = ╱4b╱K╱ // 0x38fe @0x16
0x38e8…3927 at0017 = ╱5f╱_╱ // 0x38ff @0x17
0x38e8…3927 at0018 = ╱42╱B╱ // 0x3900 @0x18
0x38e8…3927 at0019 = ╱44╱D╱ // 0x3901 @0x19
0x38e8…3927 at001a = ╱41╱A╱ // 0x3902 @0x1a
0x38e8…3927 at001b = ╱54╱T╱ // 0x3903 @0x1b
0x38e8…3927 at001c = ╱ef╱ $ ╱ // 0x3904 @0x1c
0x38e8…3927 at001d = ╱ec╱ , ╱ // 0x3905 @0x1d
0x38e8…3927 at001e = ╱4b╱K╱ // 0x3906 @0x1e
0x38e8…3927 at001f = ╱5f╱_╱ // 0x3907 @0x1f
0x38e8…3927 at0020 = ╱54╱T╱ // 0x3908 @0x20
0x38e8…3927 at0021 = ╱58╱X╱ // 0x3909 @0x21
0x38e8…3927 at0022 = ╱54╱T╱ // 0x390a @0x22
0x38e8…3927 at0023 = ╱ef╱ $ ╱ // 0x390b @0x23
0x38e8…3927 at0024 = ╱ec╱ , ╱ // 0x390c @0x24
0x38e8…3927 at0025 = ╱4d╱M╱ // 0x390d @0x25
0x38e8…3927 at0026 = ╱4f╱O╱ // 0x390e @0x26
0x38e8…3927 at0027 = ╱4d╱M╱ // 0x390f @0x27
0x38e8…3927 at0028 = ╱53╱S╱ // 0x3910 @0x28
0x38e8…3927 at0029 = ╱5f╱_╱ // 0x3911 @0x29
0x38e8…3927 at002a = ╱4b╱K╱ // 0x3912 @0x2a
0x38e8…3927 at002b = ╱52╱R╱ // 0x3913 @0x2b
0x38e8…3927 at002c = ╱ec╱ , ╱ // 0x3914 @0x2c
0x38e8…3927 at002d = ╱4b╱K╱ // 0x3915 @0x2d
0x38e8…3927 at002e = ╱5f╱_╱ // 0x3916 @0x2e
0x38e8…3927 at002f = ╱42╱B╱ // 0x3917 @0x2f
0x38e8…3927 at0030 = ╱4b╱K╱ // 0x3918 @0x30
0x38e8…3927 at0031 = ╱52╱R╱ // 0x3919 @0x31
0x38e8…3927 at0032 = ╱ec╱ , ╱ // 0x391a @0x32
0x38e8…3927 at0033 = ╱4b╱K╱ // 0x391b @0x33
0x38e8…3927 at0034 = ╱5f╱_╱ // 0x391c @0x34
0x38e8…3927 at0035 = ╱44╱D╱ // 0x391d @0x35
0x38e8…3927 at0036 = ╱4b╱K╱ // 0x391e @0x36
0x38e8…3927 at0037 = ╱ec╱ , ╱ // 0x391f @0x37
0x38e8…3927 at0038 = ╱22╱"╱ // 0x3920 @0x38
0x38e8…3927 at0039 = ╱20╱…╱ // 0x3921 @0x39
0x38e8…3927 at003a = ╱20╱…╱ // 0x3922 @0x3a
0x38e8…3927 at003b = ╱20╱…╱ // 0x3923 @0x3b
0x38e8…3927 at003c = ╱22╱"╱ // 0x3924 @0x3c
0x38e8…3927 at003d = ╱ee╱ ) ╱ // 0x3925 @0x3d
0x38e8…3927 at003e = EOL // 0x3926 @0x3e
0x38e8…3927 }
0x3927…393c cf2a 05340 LET K_BKR := TOT ( 6 )
0x3927…393c LineComal80 {
0x3927…393c ptr = 0xcf2a // 0x3927 @0x0
0x3927…393c lno = 0x14dc // 0x3929 @0x2
0x3927…393c at0004 = ╱86╱ LET ╱ // 0x392b @0x4
0x3927…393c at0005 = ╱4b╱K╱ // 0x392c @0x5
0x3927…393c at0006 = ╱5f╱_╱ // 0x392d @0x6
0x3927…393c at0007 = ╱42╱B╱ // 0x392e @0x7
0x3927…393c at0008 = ╱4b╱K╱ // 0x392f @0x8
0x3927…393c at0009 = ╱52╱R╱ // 0x3930 @0x9
0x3927…393c at000a = ╱f0╱ := ╱ // 0x3931 @0xa
0x3927…393c at000b = ╱54╱T╱ // 0x3932 @0xb
0x3927…393c at000c = ╱4f╱O╱ // 0x3933 @0xc
0x3927…393c at000d = ╱54╱T╱ // 0x3934 @0xd
0x3927…393c at000e = ╱ed╱ ( ╱ // 0x3935 @0xe
0x3927…393c at000f = ╱36╱6╱ // 0x3936 @0xf
0x3927…393c at0010 = ╱f20600╱ // 0x3937 @0x10
0x3927…393c at0013 = ╱ee╱ ) ╱ // 0x393a @0x13
0x3927…393c at0014 = EOL // 0x393b @0x14
0x3927…393c }
0x393c…397b cf69 05350 EXEC BOGF\R ( GIRO_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_BKR , K_DK , "………" )
0x393c…397b LineComal80 {
0x393c…397b ptr = 0xcf69 // 0x393c @0x0
0x393c…397b lno = 0x14e6 // 0x393e @0x2
0x393c…397b at0004 = ╱9d╱ EXEC ╱ // 0x3940 @0x4
0x393c…397b at0005 = ╱42╱B╱ // 0x3941 @0x5
0x393c…397b at0006 = ╱4f╱O╱ // 0x3942 @0x6
0x393c…397b at0007 = ╱47╱G╱ // 0x3943 @0x7
0x393c…397b at0008 = ╱46╱F╱ // 0x3944 @0x8
0x393c…397b at0009 = ╱5c╱\╱ // 0x3945 @0x9
0x393c…397b at000a = ╱52╱R╱ // 0x3946 @0xa
0x393c…397b at000b = ╱ed╱ ( ╱ // 0x3947 @0xb
0x393c…397b at000c = ╱47╱G╱ // 0x3948 @0xc
0x393c…397b at000d = ╱49╱I╱ // 0x3949 @0xd
0x393c…397b at000e = ╱52╱R╱ // 0x394a @0xe
0x393c…397b at000f = ╱4f╱O╱ // 0x394b @0xf
0x393c…397b at0010 = ╱5f╱_╱ // 0x394c @0x10
0x393c…397b at0011 = ╱4b╱K╱ // 0x394d @0x11
0x393c…397b at0012 = ╱54╱T╱ // 0x394e @0x12
0x393c…397b at0013 = ╱4f╱O╱ // 0x394f @0x13
0x393c…397b at0014 = ╱ef╱ $ ╱ // 0x3950 @0x14
0x393c…397b at0015 = ╱ec╱ , ╱ // 0x3951 @0x15
0x393c…397b at0016 = ╱4b╱K╱ // 0x3952 @0x16
0x393c…397b at0017 = ╱5f╱_╱ // 0x3953 @0x17
0x393c…397b at0018 = ╱42╱B╱ // 0x3954 @0x18
0x393c…397b at0019 = ╱44╱D╱ // 0x3955 @0x19
0x393c…397b at001a = ╱41╱A╱ // 0x3956 @0x1a
0x393c…397b at001b = ╱54╱T╱ // 0x3957 @0x1b
0x393c…397b at001c = ╱ef╱ $ ╱ // 0x3958 @0x1c
0x393c…397b at001d = ╱ec╱ , ╱ // 0x3959 @0x1d
0x393c…397b at001e = ╱4b╱K╱ // 0x395a @0x1e
0x393c…397b at001f = ╱5f╱_╱ // 0x395b @0x1f
0x393c…397b at0020 = ╱54╱T╱ // 0x395c @0x20
0x393c…397b at0021 = ╱58╱X╱ // 0x395d @0x21
0x393c…397b at0022 = ╱54╱T╱ // 0x395e @0x22
0x393c…397b at0023 = ╱ef╱ $ ╱ // 0x395f @0x23
0x393c…397b at0024 = ╱ec╱ , ╱ // 0x3960 @0x24
0x393c…397b at0025 = ╱4d╱M╱ // 0x3961 @0x25
0x393c…397b at0026 = ╱4f╱O╱ // 0x3962 @0x26
0x393c…397b at0027 = ╱4d╱M╱ // 0x3963 @0x27
0x393c…397b at0028 = ╱53╱S╱ // 0x3964 @0x28
0x393c…397b at0029 = ╱5f╱_╱ // 0x3965 @0x29
0x393c…397b at002a = ╱4b╱K╱ // 0x3966 @0x2a
0x393c…397b at002b = ╱52╱R╱ // 0x3967 @0x2b
0x393c…397b at002c = ╱ec╱ , ╱ // 0x3968 @0x2c
0x393c…397b at002d = ╱4b╱K╱ // 0x3969 @0x2d
0x393c…397b at002e = ╱5f╱_╱ // 0x396a @0x2e
0x393c…397b at002f = ╱42╱B╱ // 0x396b @0x2f
0x393c…397b at0030 = ╱4b╱K╱ // 0x396c @0x30
0x393c…397b at0031 = ╱52╱R╱ // 0x396d @0x31
0x393c…397b at0032 = ╱ec╱ , ╱ // 0x396e @0x32
0x393c…397b at0033 = ╱4b╱K╱ // 0x396f @0x33
0x393c…397b at0034 = ╱5f╱_╱ // 0x3970 @0x34
0x393c…397b at0035 = ╱44╱D╱ // 0x3971 @0x35
0x393c…397b at0036 = ╱4b╱K╱ // 0x3972 @0x36
0x393c…397b at0037 = ╱ec╱ , ╱ // 0x3973 @0x37
0x393c…397b at0038 = ╱22╱"╱ // 0x3974 @0x38
0x393c…397b at0039 = ╱20╱…╱ // 0x3975 @0x39
0x393c…397b at003a = ╱20╱…╱ // 0x3976 @0x3a
0x393c…397b at003b = ╱20╱…╱ // 0x3977 @0x3b
0x393c…397b at003c = ╱22╱"╱ // 0x3978 @0x3c
0x393c…397b at003d = ╱ee╱ ) ╱ // 0x3979 @0x3d
0x393c…397b at003e = EOL // 0x397a @0x3e
0x393c…397b }
0x397b…398e cf7c 05360 IF _DIFF >< 0 THEN
0x397b…398e LineComal80 {
0x397b…398e ptr = 0xcf7c // 0x397b @0x0
0x397b…398e lno = 0x14f0 // 0x397d @0x2
0x397b…398e at0004 = ╱9b004b╱ IF ╱ // 0x397f @0x4
0x397b…398e at0007 = ╱5f╱_╱ // 0x3982 @0x7
0x397b…398e at0008 = ╱44╱D╱ // 0x3983 @0x8
0x397b…398e at0009 = ╱49╱I╱ // 0x3984 @0x9
0x397b…398e at000a = ╱46╱F╱ // 0x3985 @0xa
0x397b…398e at000b = ╱46╱F╱ // 0x3986 @0xb
0x397b…398e at000c = ╱e4╱ >< ╱ // 0x3987 @0xc
0x397b…398e at000d = ╱30╱0╱ // 0x3988 @0xd
0x397b…398e at000e = ╱f20000╱ // 0x3989 @0xe
0x397b…398e at0011 = ╱b5╱ THEN ╱ // 0x398c @0x11
0x397b…398e at0012 = EOL // 0x398d @0x12
0x397b…398e }
0x398e…39cc cfba 05370 LET K_DK := SGN ( K_DIFF ) ; K_TXT $ := "KASSEDIFFERENCE" ; K_DIFF := ABS ( K_DIFF )
0x398e…39cc LineComal80 {
0x398e…39cc ptr = 0xcfba // 0x398e @0x0
0x398e…39cc lno = 0x14fa // 0x3990 @0x2
0x398e…39cc at0004 = ╱86╱ LET ╱ // 0x3992 @0x4
0x398e…39cc at0005 = ╱4b╱K╱ // 0x3993 @0x5
0x398e…39cc at0006 = ╱5f╱_╱ // 0x3994 @0x6
0x398e…39cc at0007 = ╱44╱D╱ // 0x3995 @0x7
0x398e…39cc at0008 = ╱4b╱K╱ // 0x3996 @0x8
0x398e…39cc at0009 = ╱f0╱ := ╱ // 0x3997 @0x9
0x398e…39cc at000a = ╱c8╱ SGN ╱ // 0x3998 @0xa
0x398e…39cc at000b = ╱ed╱ ( ╱ // 0x3999 @0xb
0x398e…39cc at000c = ╱4b╱K╱ // 0x399a @0xc
0x398e…39cc at000d = ╱5f╱_╱ // 0x399b @0xd
0x398e…39cc at000e = ╱44╱D╱ // 0x399c @0xe
0x398e…39cc at000f = ╱49╱I╱ // 0x399d @0xf
0x398e…39cc at0010 = ╱46╱F╱ // 0x399e @0x10
0x398e…39cc at0011 = ╱46╱F╱ // 0x399f @0x11
0x398e…39cc at0012 = ╱ee╱ ) ╱ // 0x39a0 @0x12
0x398e…39cc at0013 = ╱ea╱ ; ╱ // 0x39a1 @0x13
0x398e…39cc at0014 = ╱4b╱K╱ // 0x39a2 @0x14
0x398e…39cc at0015 = ╱5f╱_╱ // 0x39a3 @0x15
0x398e…39cc at0016 = ╱54╱T╱ // 0x39a4 @0x16
0x398e…39cc at0017 = ╱58╱X╱ // 0x39a5 @0x17
0x398e…39cc at0018 = ╱54╱T╱ // 0x39a6 @0x18
0x398e…39cc at0019 = ╱ef╱ $ ╱ // 0x39a7 @0x19
0x398e…39cc at001a = ╱f0╱ := ╱ // 0x39a8 @0x1a
0x398e…39cc at001b = ╱22╱"╱ // 0x39a9 @0x1b
0x398e…39cc at001c = ╱4b╱K╱ // 0x39aa @0x1c
0x398e…39cc at001d = ╱41╱A╱ // 0x39ab @0x1d
0x398e…39cc at001e = ╱53╱S╱ // 0x39ac @0x1e
0x398e…39cc at001f = ╱53╱S╱ // 0x39ad @0x1f
0x398e…39cc at0020 = ╱45╱E╱ // 0x39ae @0x20
0x398e…39cc at0021 = ╱44╱D╱ // 0x39af @0x21
0x398e…39cc at0022 = ╱49╱I╱ // 0x39b0 @0x22
0x398e…39cc at0023 = ╱46╱F╱ // 0x39b1 @0x23
0x398e…39cc at0024 = ╱46╱F╱ // 0x39b2 @0x24
0x398e…39cc at0025 = ╱45╱E╱ // 0x39b3 @0x25
0x398e…39cc at0026 = ╱52╱R╱ // 0x39b4 @0x26
0x398e…39cc at0027 = ╱45╱E╱ // 0x39b5 @0x27
0x398e…39cc at0028 = ╱4e╱N╱ // 0x39b6 @0x28
0x398e…39cc at0029 = ╱43╱C╱ // 0x39b7 @0x29
0x398e…39cc at002a = ╱45╱E╱ // 0x39b8 @0x2a
0x398e…39cc at002b = ╱22╱"╱ // 0x39b9 @0x2b
0x398e…39cc at002c = ╱ea╱ ; ╱ // 0x39ba @0x2c
0x398e…39cc at002d = ╱4b╱K╱ // 0x39bb @0x2d
0x398e…39cc at002e = ╱5f╱_╱ // 0x39bc @0x2e
0x398e…39cc at002f = ╱44╱D╱ // 0x39bd @0x2f
0x398e…39cc at0030 = ╱49╱I╱ // 0x39be @0x30
0x398e…39cc at0031 = ╱46╱F╱ // 0x39bf @0x31
0x398e…39cc at0032 = ╱46╱F╱ // 0x39c0 @0x32
0x398e…39cc at0033 = ╱f0╱ := ╱ // 0x39c1 @0x33
0x398e…39cc at0034 = ╱c4╱ ABS ╱ // 0x39c2 @0x34
0x398e…39cc at0035 = ╱ed╱ ( ╱ // 0x39c3 @0x35
0x398e…39cc at0036 = ╱4b╱K╱ // 0x39c4 @0x36
0x398e…39cc at0037 = ╱5f╱_╱ // 0x39c5 @0x37
0x398e…39cc at0038 = ╱44╱D╱ // 0x39c6 @0x38
0x398e…39cc at0039 = ╱49╱I╱ // 0x39c7 @0x39
0x398e…39cc at003a = ╱46╱F╱ // 0x39c8 @0x3a
0x398e…39cc at003b = ╱46╱F╱ // 0x39c9 @0x3b
0x398e…39cc at003c = ╱ee╱ ) ╱ // 0x39ca @0x3c
0x398e…39cc at003d = EOL // 0x39cb @0x3d
0x398e…39cc }
0x39cc…3a0d cffb 05380 EXEC BOGF\R ( KASSE_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_DIFF , K_DK , "………" )
0x39cc…3a0d LineComal80 {
0x39cc…3a0d ptr = 0xcffb // 0x39cc @0x0
0x39cc…3a0d lno = 0x1504 // 0x39ce @0x2
0x39cc…3a0d at0004 = ╱9d╱ EXEC ╱ // 0x39d0 @0x4
0x39cc…3a0d at0005 = ╱42╱B╱ // 0x39d1 @0x5
0x39cc…3a0d at0006 = ╱4f╱O╱ // 0x39d2 @0x6
0x39cc…3a0d at0007 = ╱47╱G╱ // 0x39d3 @0x7
0x39cc…3a0d at0008 = ╱46╱F╱ // 0x39d4 @0x8
0x39cc…3a0d at0009 = ╱5c╱\╱ // 0x39d5 @0x9
0x39cc…3a0d at000a = ╱52╱R╱ // 0x39d6 @0xa
0x39cc…3a0d at000b = ╱ed╱ ( ╱ // 0x39d7 @0xb
0x39cc…3a0d at000c = ╱4b╱K╱ // 0x39d8 @0xc
0x39cc…3a0d at000d = ╱41╱A╱ // 0x39d9 @0xd
0x39cc…3a0d at000e = ╱53╱S╱ // 0x39da @0xe
0x39cc…3a0d at000f = ╱53╱S╱ // 0x39db @0xf
0x39cc…3a0d at0010 = ╱45╱E╱ // 0x39dc @0x10
0x39cc…3a0d at0011 = ╱5f╱_╱ // 0x39dd @0x11
0x39cc…3a0d at0012 = ╱4b╱K╱ // 0x39de @0x12
0x39cc…3a0d at0013 = ╱54╱T╱ // 0x39df @0x13
0x39cc…3a0d at0014 = ╱4f╱O╱ // 0x39e0 @0x14
0x39cc…3a0d at0015 = ╱ef╱ $ ╱ // 0x39e1 @0x15
0x39cc…3a0d at0016 = ╱ec╱ , ╱ // 0x39e2 @0x16
0x39cc…3a0d at0017 = ╱4b╱K╱ // 0x39e3 @0x17
0x39cc…3a0d at0018 = ╱5f╱_╱ // 0x39e4 @0x18
0x39cc…3a0d at0019 = ╱42╱B╱ // 0x39e5 @0x19
0x39cc…3a0d at001a = ╱44╱D╱ // 0x39e6 @0x1a
0x39cc…3a0d at001b = ╱41╱A╱ // 0x39e7 @0x1b
0x39cc…3a0d at001c = ╱54╱T╱ // 0x39e8 @0x1c
0x39cc…3a0d at001d = ╱ef╱ $ ╱ // 0x39e9 @0x1d
0x39cc…3a0d at001e = ╱ec╱ , ╱ // 0x39ea @0x1e
0x39cc…3a0d at001f = ╱4b╱K╱ // 0x39eb @0x1f
0x39cc…3a0d at0020 = ╱5f╱_╱ // 0x39ec @0x20
0x39cc…3a0d at0021 = ╱54╱T╱ // 0x39ed @0x21
0x39cc…3a0d at0022 = ╱58╱X╱ // 0x39ee @0x22
0x39cc…3a0d at0023 = ╱54╱T╱ // 0x39ef @0x23
0x39cc…3a0d at0024 = ╱ef╱ $ ╱ // 0x39f0 @0x24
0x39cc…3a0d at0025 = ╱ec╱ , ╱ // 0x39f1 @0x25
0x39cc…3a0d at0026 = ╱4d╱M╱ // 0x39f2 @0x26
0x39cc…3a0d at0027 = ╱4f╱O╱ // 0x39f3 @0x27
0x39cc…3a0d at0028 = ╱4d╱M╱ // 0x39f4 @0x28
0x39cc…3a0d at0029 = ╱53╱S╱ // 0x39f5 @0x29
0x39cc…3a0d at002a = ╱5f╱_╱ // 0x39f6 @0x2a
0x39cc…3a0d at002b = ╱4b╱K╱ // 0x39f7 @0x2b
0x39cc…3a0d at002c = ╱52╱R╱ // 0x39f8 @0x2c
0x39cc…3a0d at002d = ╱ec╱ , ╱ // 0x39f9 @0x2d
0x39cc…3a0d at002e = ╱4b╱K╱ // 0x39fa @0x2e
0x39cc…3a0d at002f = ╱5f╱_╱ // 0x39fb @0x2f
0x39cc…3a0d at0030 = ╱44╱D╱ // 0x39fc @0x30
0x39cc…3a0d at0031 = ╱49╱I╱ // 0x39fd @0x31
0x39cc…3a0d at0032 = ╱46╱F╱ // 0x39fe @0x32
0x39cc…3a0d at0033 = ╱46╱F╱ // 0x39ff @0x33
0x39cc…3a0d at0034 = ╱ec╱ , ╱ // 0x3a00 @0x34
0x39cc…3a0d at0035 = ╱4b╱K╱ // 0x3a01 @0x35
0x39cc…3a0d at0036 = ╱5f╱_╱ // 0x3a02 @0x36
0x39cc…3a0d at0037 = ╱44╱D╱ // 0x3a03 @0x37
0x39cc…3a0d at0038 = ╱4b╱K╱ // 0x3a04 @0x38
0x39cc…3a0d at0039 = ╱ec╱ , ╱ // 0x3a05 @0x39
0x39cc…3a0d at003a = ╱22╱"╱ // 0x3a06 @0x3a
0x39cc…3a0d at003b = ╱20╱…╱ // 0x3a07 @0x3b
0x39cc…3a0d at003c = ╱20╱…╱ // 0x3a08 @0x3c
0x39cc…3a0d at003d = ╱20╱…╱ // 0x3a09 @0x3d
0x39cc…3a0d at003e = ╱22╱"╱ // 0x3a0a @0x3e
0x39cc…3a0d at003f = ╱ee╱ ) ╱ // 0x3a0b @0x3f
0x39cc…3a0d at0040 = EOL // 0x3a0c @0x40
0x39cc…3a0d }
0x3a0d…3a24 (193,) d012 05390 LET K_DK := K_DK * ( - 1 )
0x3a0d…3a24 LineComal80 {
0x3a0d…3a24 ptr = 0xd012 // 0x3a0d @0x0
0x3a0d…3a24 lno = 0x150e // 0x3a0f @0x2
0x3a0d…3a24 at0004 = ╱86╱ LET ╱ // 0x3a11 @0x4
0x3a0d…3a24 at0005 = ╱4b╱K╱ // 0x3a12 @0x5
0x3a0d…3a24 at0006 = ╱5f╱_╱ // 0x3a13 @0x6
0x3a0d…3a24 at0007 = ╱44╱D╱ // 0x3a14 @0x7
0x3a0d…3a24 at0008 = ╱4b╱K╱ // 0x3a15 @0x8
0x3a0d…3a24 at0009 = ╱f0╱ := ╱ // 0x3a16 @0x9
0x3a0d…3a24 at000a = ╱4b╱K╱ // 0x3a17 @0xa
0x3a0d…3a24 at000b = ╱5f╱_╱ // 0x3a18 @0xb
0x3a0d…3a24 at000c = ╱44╱D╱ // 0x3a19 @0xc
0x3a0d…3a24 at000d = ╱4b╱K╱ // 0x3a1a @0xd
0x3a0d…3a24 at000e = ╱e7╱ * ╱ // 0x3a1b @0xe
0x3a0d…3a24 at000f = ╱ed╱ ( ╱ // 0x3a1c @0xf
0x3a0d…3a24 at0010 = ╱de╱ - ╱ // 0x3a1d @0x10
0x3a0d…3a24 at0011 = ╱31╱1╱ // 0x3a1e @0x11
0x3a0d…3a24 at0012 = ╱f20100╱ // 0x3a1f @0x12
0x3a0d…3a24 at0015 = ╱ee╱ ) ╱ // 0x3a22 @0x15
0x3a0d…3a24 at0016 = EOL // 0x3a23 @0x16
0x3a0d…3a24 }
0x3a24…3a65 d053 05400 EXEC BOGF\R ( K_DIFF_KTO $ , K_BDAT $ , K_TXT $ , MOMS_KR , K_DIFF , K_DK , "……" )
0x3a24…3a65 LineComal80 {
0x3a24…3a65 ptr = 0xd053 // 0x3a24 @0x0
0x3a24…3a65 lno = 0x1518 // 0x3a26 @0x2
0x3a24…3a65 at0004 = ╱9d╱ EXEC ╱ // 0x3a28 @0x4
0x3a24…3a65 at0005 = ╱42╱B╱ // 0x3a29 @0x5
0x3a24…3a65 at0006 = ╱4f╱O╱ // 0x3a2a @0x6
0x3a24…3a65 at0007 = ╱47╱G╱ // 0x3a2b @0x7
0x3a24…3a65 at0008 = ╱46╱F╱ // 0x3a2c @0x8
0x3a24…3a65 at0009 = ╱5c╱\╱ // 0x3a2d @0x9
0x3a24…3a65 at000a = ╱52╱R╱ // 0x3a2e @0xa
0x3a24…3a65 at000b = ╱ed╱ ( ╱ // 0x3a2f @0xb
0x3a24…3a65 at000c = ╱4b╱K╱ // 0x3a30 @0xc
0x3a24…3a65 at000d = ╱5f╱_╱ // 0x3a31 @0xd
0x3a24…3a65 at000e = ╱44╱D╱ // 0x3a32 @0xe
0x3a24…3a65 at000f = ╱49╱I╱ // 0x3a33 @0xf
0x3a24…3a65 at0010 = ╱46╱F╱ // 0x3a34 @0x10
0x3a24…3a65 at0011 = ╱46╱F╱ // 0x3a35 @0x11
0x3a24…3a65 at0012 = ╱5f╱_╱ // 0x3a36 @0x12
0x3a24…3a65 at0013 = ╱4b╱K╱ // 0x3a37 @0x13
0x3a24…3a65 at0014 = ╱54╱T╱ // 0x3a38 @0x14
0x3a24…3a65 at0015 = ╱4f╱O╱ // 0x3a39 @0x15
0x3a24…3a65 at0016 = ╱ef╱ $ ╱ // 0x3a3a @0x16
0x3a24…3a65 at0017 = ╱ec╱ , ╱ // 0x3a3b @0x17
0x3a24…3a65 at0018 = ╱4b╱K╱ // 0x3a3c @0x18
0x3a24…3a65 at0019 = ╱5f╱_╱ // 0x3a3d @0x19
0x3a24…3a65 at001a = ╱42╱B╱ // 0x3a3e @0x1a
0x3a24…3a65 at001b = ╱44╱D╱ // 0x3a3f @0x1b
0x3a24…3a65 at001c = ╱41╱A╱ // 0x3a40 @0x1c
0x3a24…3a65 at001d = ╱54╱T╱ // 0x3a41 @0x1d
0x3a24…3a65 at001e = ╱ef╱ $ ╱ // 0x3a42 @0x1e
0x3a24…3a65 at001f = ╱ec╱ , ╱ // 0x3a43 @0x1f
0x3a24…3a65 at0020 = ╱4b╱K╱ // 0x3a44 @0x20
0x3a24…3a65 at0021 = ╱5f╱_╱ // 0x3a45 @0x21
0x3a24…3a65 at0022 = ╱54╱T╱ // 0x3a46 @0x22
0x3a24…3a65 at0023 = ╱58╱X╱ // 0x3a47 @0x23
0x3a24…3a65 at0024 = ╱54╱T╱ // 0x3a48 @0x24
0x3a24…3a65 at0025 = ╱ef╱ $ ╱ // 0x3a49 @0x25
0x3a24…3a65 at0026 = ╱ec╱ , ╱ // 0x3a4a @0x26
0x3a24…3a65 at0027 = ╱4d╱M╱ // 0x3a4b @0x27
0x3a24…3a65 at0028 = ╱4f╱O╱ // 0x3a4c @0x28
0x3a24…3a65 at0029 = ╱4d╱M╱ // 0x3a4d @0x29
0x3a24…3a65 at002a = ╱53╱S╱ // 0x3a4e @0x2a
0x3a24…3a65 at002b = ╱5f╱_╱ // 0x3a4f @0x2b
0x3a24…3a65 at002c = ╱4b╱K╱ // 0x3a50 @0x2c
0x3a24…3a65 at002d = ╱52╱R╱ // 0x3a51 @0x2d
0x3a24…3a65 at002e = ╱ec╱ , ╱ // 0x3a52 @0x2e
0x3a24…3a65 at002f = ╱4b╱K╱ // 0x3a53 @0x2f
0x3a24…3a65 at0030 = ╱5f╱_╱ // 0x3a54 @0x30
0x3a24…3a65 at0031 = ╱44╱D╱ // 0x3a55 @0x31
0x3a24…3a65 at0032 = ╱49╱I╱ // 0x3a56 @0x32
0x3a24…3a65 at0033 = ╱46╱F╱ // 0x3a57 @0x33
0x3a24…3a65 at0034 = ╱46╱F╱ // 0x3a58 @0x34
0x3a24…3a65 at0035 = ╱ec╱ , ╱ // 0x3a59 @0x35
0x3a24…3a65 at0036 = ╱4b╱K╱ // 0x3a5a @0x36
0x3a24…3a65 at0037 = ╱5f╱_╱ // 0x3a5b @0x37
0x3a24…3a65 at0038 = ╱44╱D╱ // 0x3a5c @0x38
0x3a24…3a65 at0039 = ╱4b╱K╱ // 0x3a5d @0x39
0x3a24…3a65 at003a = ╱ec╱ , ╱ // 0x3a5e @0x3a
0x3a24…3a65 at003b = ╱22╱"╱ // 0x3a5f @0x3b
0x3a24…3a65 at003c = ╱20╱…╱ // 0x3a60 @0x3c
0x3a24…3a65 at003d = ╱20╱…╱ // 0x3a61 @0x3d
0x3a24…3a65 at003e = ╱22╱"╱ // 0x3a62 @0x3e
0x3a24…3a65 at003f = ╱ee╱ ) ╱ // 0x3a63 @0x3f
0x3a24…3a65 at0040 = EOL // 0x3a64 @0x40
0x3a24…3a65 }
0x3a65…3a6b d059 05410 ENDIF
0x3a65…3a6b LineComal80 {
0x3a65…3a6b ptr = 0xd059 // 0x3a65 @0x0
0x3a65…3a6b lno = 0x1522 // 0x3a67 @0x2
0x3a65…3a6b at0004 = ╱9c╱ ENDIF ╱ // 0x3a69 @0x4
0x3a65…3a6b at0005 = EOL // 0x3a6a @0x5
0x3a65…3a6b }
0x3a6b…3a7e d06c 05420 LET K_H\JREC := 1
0x3a6b…3a7e LineComal80 {
0x3a6b…3a7e ptr = 0xd06c // 0x3a6b @0x0
0x3a6b…3a7e lno = 0x152c // 0x3a6d @0x2
0x3a6b…3a7e at0004 = ╱86╱ LET ╱ // 0x3a6f @0x4
0x3a6b…3a7e at0005 = ╱4b╱K╱ // 0x3a70 @0x5
0x3a6b…3a7e at0006 = ╱5f╱_╱ // 0x3a71 @0x6
0x3a6b…3a7e at0007 = ╱48╱H╱ // 0x3a72 @0x7
0x3a6b…3a7e at0008 = ╱5c╱\╱ // 0x3a73 @0x8
0x3a6b…3a7e at0009 = ╱4a╱J╱ // 0x3a74 @0x9
0x3a6b…3a7e at000a = ╱52╱R╱ // 0x3a75 @0xa
0x3a6b…3a7e at000b = ╱45╱E╱ // 0x3a76 @0xb
0x3a6b…3a7e at000c = ╱43╱C╱ // 0x3a77 @0xc
0x3a6b…3a7e at000d = ╱f0╱ := ╱ // 0x3a78 @0xd
0x3a6b…3a7e at000e = ╱31╱1╱ // 0x3a79 @0xe
0x3a6b…3a7e at000f = ╱f20100╱ // 0x3a7a @0xf
0x3a6b…3a7e at0012 = EOL // 0x3a7d @0x12
0x3a6b…3a7e }
0x3a7e…3ab4 d0a2 05430 PUT KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE , K_BDAT $
0x3a7e…3ab4 LineComal80 {
0x3a7e…3ab4 ptr = 0xd0a2 // 0x3a7e @0x0
0x3a7e…3ab4 lno = 0x1536 // 0x3a80 @0x2
0x3a7e…3ab4 at0004 = ╱aa╱ PUT ╱ // 0x3a82 @0x4
0x3a7e…3ab4 at0005 = ╱4b╱K╱ // 0x3a83 @0x5
0x3a7e…3ab4 at0006 = ╱41╱A╱ // 0x3a84 @0x6
0x3a7e…3ab4 at0007 = ╱53╱S╱ // 0x3a85 @0x7
0x3a7e…3ab4 at0008 = ╱53╱S╱ // 0x3a86 @0x8
0x3a7e…3ab4 at0009 = ╱45╱E╱ // 0x3a87 @0x9
0x3a7e…3ab4 at000a = ╱ef╱ $ ╱ // 0x3a88 @0xa
0x3a7e…3ab4 at000b = ╱ec╱ , ╱ // 0x3a89 @0xb
0x3a7e…3ab4 at000c = ╱31╱1╱ // 0x3a8a @0xc
0x3a7e…3ab4 at000d = ╱f20100╱ // 0x3a8b @0xd
0x3a7e…3ab4 at0010 = ╱f1╱ : ╱ // 0x3a8e @0x10
0x3a7e…3ab4 at0011 = ╱4b╱K╱ // 0x3a8f @0x11
0x3a7e…3ab4 at0012 = ╱5f╱_╱ // 0x3a90 @0x12
0x3a7e…3ab4 at0013 = ╱48╱H╱ // 0x3a91 @0x13
0x3a7e…3ab4 at0014 = ╱5c╱\╱ // 0x3a92 @0x14
0x3a7e…3ab4 at0015 = ╱4a╱J╱ // 0x3a93 @0x15
0x3a7e…3ab4 at0016 = ╱52╱R╱ // 0x3a94 @0x16
0x3a7e…3ab4 at0017 = ╱45╱E╱ // 0x3a95 @0x17
0x3a7e…3ab4 at0018 = ╱43╱C╱ // 0x3a96 @0x18
0x3a7e…3ab4 at0019 = ╱ec╱ , ╱ // 0x3a97 @0x19
0x3a7e…3ab4 at001a = ╱4b╱K╱ // 0x3a98 @0x1a
0x3a7e…3ab4 at001b = ╱5f╱_╱ // 0x3a99 @0x1b
0x3a7e…3ab4 at001c = ╱4d╱M╱ // 0x3a9a @0x1c
0x3a7e…3ab4 at001d = ╱41╱A╱ // 0x3a9b @0x1d
0x3a7e…3ab4 at001e = ╱58╱X╱ // 0x3a9c @0x1e
0x3a7e…3ab4 at001f = ╱52╱R╱ // 0x3a9d @0x1f
0x3a7e…3ab4 at0020 = ╱45╱E╱ // 0x3a9e @0x20
0x3a7e…3ab4 at0021 = ╱43╱C╱ // 0x3a9f @0x21
0x3a7e…3ab4 at0022 = ╱ec╱ , ╱ // 0x3aa0 @0x22
0x3a7e…3ab4 at0023 = ╱53╱S╱ // 0x3aa1 @0x23
0x3a7e…3ab4 at0024 = ╱5f╱_╱ // 0x3aa2 @0x24
0x3a7e…3ab4 at0025 = ╱4e╱N╱ // 0x3aa3 @0x25
0x3a7e…3ab4 at0026 = ╱52╱R╱ // 0x3aa4 @0x26
0x3a7e…3ab4 at0027 = ╱5f╱_╱ // 0x3aa5 @0x27
0x3a7e…3ab4 at0028 = ╱4b╱K╱ // 0x3aa6 @0x28
0x3a7e…3ab4 at0029 = ╱41╱A╱ // 0x3aa7 @0x29
0x3a7e…3ab4 at002a = ╱53╱S╱ // 0x3aa8 @0x2a
0x3a7e…3ab4 at002b = ╱53╱S╱ // 0x3aa9 @0x2b
0x3a7e…3ab4 at002c = ╱45╱E╱ // 0x3aaa @0x2c
0x3a7e…3ab4 at002d = ╱ec╱ , ╱ // 0x3aab @0x2d
0x3a7e…3ab4 at002e = ╱4b╱K╱ // 0x3aac @0x2e
0x3a7e…3ab4 at002f = ╱5f╱_╱ // 0x3aad @0x2f
0x3a7e…3ab4 at0030 = ╱42╱B╱ // 0x3aae @0x30
0x3a7e…3ab4 at0031 = ╱44╱D╱ // 0x3aaf @0x31
0x3a7e…3ab4 at0032 = ╱41╱A╱ // 0x3ab0 @0x32
0x3a7e…3ab4 at0033 = ╱54╱T╱ // 0x3ab1 @0x33
0x3a7e…3ab4 at0034 = ╱ef╱ $ ╱ // 0x3ab2 @0x34
0x3a7e…3ab4 at0035 = EOL // 0x3ab3 @0x35
0x3a7e…3ab4 }
0x3ab4…3aca d0b8 05440 ENDPROC BOGF\R_KASSEPOST
0x3ab4…3aca LineComal80 {
0x3ab4…3aca ptr = 0xd0b8 // 0x3ab4 @0x0
0x3ab4…3aca lno = 0x1540 // 0x3ab6 @0x2
0x3ab4…3aca at0004 = ╱9f╱ ENDPROC ╱ // 0x3ab8 @0x4
0x3ab4…3aca at0005 = ╱42╱B╱ // 0x3ab9 @0x5
0x3ab4…3aca at0006 = ╱4f╱O╱ // 0x3aba @0x6
0x3ab4…3aca at0007 = ╱47╱G╱ // 0x3abb @0x7
0x3ab4…3aca at0008 = ╱46╱F╱ // 0x3abc @0x8
0x3ab4…3aca at0009 = ╱5c╱\╱ // 0x3abd @0x9
0x3ab4…3aca at000a = ╱52╱R╱ // 0x3abe @0xa
0x3ab4…3aca at000b = ╱5f╱_╱ // 0x3abf @0xb
0x3ab4…3aca at000c = ╱4b╱K╱ // 0x3ac0 @0xc
0x3ab4…3aca at000d = ╱41╱A╱ // 0x3ac1 @0xd
0x3ab4…3aca at000e = ╱53╱S╱ // 0x3ac2 @0xe
0x3ab4…3aca at000f = ╱53╱S╱ // 0x3ac3 @0xf
0x3ab4…3aca at0010 = ╱45╱E╱ // 0x3ac4 @0x10
0x3ab4…3aca at0011 = ╱50╱P╱ // 0x3ac5 @0x11
0x3ab4…3aca at0012 = ╱4f╱O╱ // 0x3ac6 @0x12
0x3ab4…3aca at0013 = ╱53╱S╱ // 0x3ac7 @0x13
0x3ab4…3aca at0014 = ╱54╱T╱ // 0x3ac8 @0x14
0x3ab4…3aca at0015 = EOL // 0x3ac9 @0x15
0x3ab4…3aca }
0x3aca…3acf d0bd 05450
0x3aca…3acf LineComal80 {
0x3aca…3acf ptr = 0xd0bd // 0x3aca @0x0
0x3aca…3acf lno = 0x154a // 0x3acc @0x2
0x3aca…3acf at0004 = EOL // 0x3ace @0x4
0x3aca…3acf }
0x3acf…3b09 d0f7 05460 PROC BOGF\R ( REF Q_KTO $ , REF Q_DAT $ , REF Q_TXT $ , REF Q_M , REF Q_KR , Q_DK , QN $ )
0x3acf…3b09 LineComal80 {
0x3acf…3b09 ptr = 0xd0f7 // 0x3acf @0x0
0x3acf…3b09 lno = 0x1554 // 0x3ad1 @0x2
0x3acf…3b09 at0004 = ╱9e00╱ PROC ╱ // 0x3ad3 @0x4
0x3acf…3b09 at0006 = ╱42╱B╱ // 0x3ad5 @0x6
0x3acf…3b09 at0007 = ╱4f╱O╱ // 0x3ad6 @0x7
0x3acf…3b09 at0008 = ╱47╱G╱ // 0x3ad7 @0x8
0x3acf…3b09 at0009 = ╱46╱F╱ // 0x3ad8 @0x9
0x3acf…3b09 at000a = ╱5c╱\╱ // 0x3ad9 @0xa
0x3acf…3b09 at000b = ╱52╱R╱ // 0x3ada @0xb
0x3acf…3b09 at000c = ╱ed╱ ( ╱ // 0x3adb @0xc
0x3acf…3b09 at000d = ╱b6╱ REF ╱ // 0x3adc @0xd
0x3acf…3b09 at000e = ╱51╱Q╱ // 0x3add @0xe
0x3acf…3b09 at000f = ╱5f╱_╱ // 0x3ade @0xf
0x3acf…3b09 at0010 = ╱4b╱K╱ // 0x3adf @0x10
0x3acf…3b09 at0011 = ╱54╱T╱ // 0x3ae0 @0x11
0x3acf…3b09 at0012 = ╱4f╱O╱ // 0x3ae1 @0x12
0x3acf…3b09 at0013 = ╱ef╱ $ ╱ // 0x3ae2 @0x13
0x3acf…3b09 at0014 = ╱ec╱ , ╱ // 0x3ae3 @0x14
0x3acf…3b09 at0015 = ╱b6╱ REF ╱ // 0x3ae4 @0x15
0x3acf…3b09 at0016 = ╱51╱Q╱ // 0x3ae5 @0x16
0x3acf…3b09 at0017 = ╱5f╱_╱ // 0x3ae6 @0x17
0x3acf…3b09 at0018 = ╱44╱D╱ // 0x3ae7 @0x18
0x3acf…3b09 at0019 = ╱41╱A╱ // 0x3ae8 @0x19
0x3acf…3b09 at001a = ╱54╱T╱ // 0x3ae9 @0x1a
0x3acf…3b09 at001b = ╱ef╱ $ ╱ // 0x3aea @0x1b
0x3acf…3b09 at001c = ╱ec╱ , ╱ // 0x3aeb @0x1c
0x3acf…3b09 at001d = ╱b6╱ REF ╱ // 0x3aec @0x1d
0x3acf…3b09 at001e = ╱51╱Q╱ // 0x3aed @0x1e
0x3acf…3b09 at001f = ╱5f╱_╱ // 0x3aee @0x1f
0x3acf…3b09 at0020 = ╱54╱T╱ // 0x3aef @0x20
0x3acf…3b09 at0021 = ╱58╱X╱ // 0x3af0 @0x21
0x3acf…3b09 at0022 = ╱54╱T╱ // 0x3af1 @0x22
0x3acf…3b09 at0023 = ╱ef╱ $ ╱ // 0x3af2 @0x23
0x3acf…3b09 at0024 = ╱ec╱ , ╱ // 0x3af3 @0x24
0x3acf…3b09 at0025 = ╱b6╱ REF ╱ // 0x3af4 @0x25
0x3acf…3b09 at0026 = ╱51╱Q╱ // 0x3af5 @0x26
0x3acf…3b09 at0027 = ╱5f╱_╱ // 0x3af6 @0x27
0x3acf…3b09 at0028 = ╱4d╱M╱ // 0x3af7 @0x28
0x3acf…3b09 at0029 = ╱ec╱ , ╱ // 0x3af8 @0x29
0x3acf…3b09 at002a = ╱b6╱ REF ╱ // 0x3af9 @0x2a
0x3acf…3b09 at002b = ╱51╱Q╱ // 0x3afa @0x2b
0x3acf…3b09 at002c = ╱5f╱_╱ // 0x3afb @0x2c
0x3acf…3b09 at002d = ╱4b╱K╱ // 0x3afc @0x2d
0x3acf…3b09 at002e = ╱52╱R╱ // 0x3afd @0x2e
0x3acf…3b09 at002f = ╱ec╱ , ╱ // 0x3afe @0x2f
0x3acf…3b09 at0030 = ╱51╱Q╱ // 0x3aff @0x30
0x3acf…3b09 at0031 = ╱5f╱_╱ // 0x3b00 @0x31
0x3acf…3b09 at0032 = ╱44╱D╱ // 0x3b01 @0x32
0x3acf…3b09 at0033 = ╱4b╱K╱ // 0x3b02 @0x33
0x3acf…3b09 at0034 = ╱ec╱ , ╱ // 0x3b03 @0x34
0x3acf…3b09 at0035 = ╱51╱Q╱ // 0x3b04 @0x35
0x3acf…3b09 at0036 = ╱4e╱N╱ // 0x3b05 @0x36
0x3acf…3b09 at0037 = ╱ef╱ $ ╱ // 0x3b06 @0x37
0x3acf…3b09 at0038 = ╱ee╱ ) ╱ // 0x3b07 @0x38
0x3acf…3b09 at0039 = EOL // 0x3b08 @0x39
0x3acf…3b09 }
0x3b09…3b1f d10d 05470 EXEC FIND_KTO ( Q_KTO $ )
0x3b09…3b1f LineComal80 {
0x3b09…3b1f ptr = 0xd10d // 0x3b09 @0x0
0x3b09…3b1f lno = 0x155e // 0x3b0b @0x2
0x3b09…3b1f at0004 = ╱9d╱ EXEC ╱ // 0x3b0d @0x4
0x3b09…3b1f at0005 = ╱46╱F╱ // 0x3b0e @0x5
0x3b09…3b1f at0006 = ╱49╱I╱ // 0x3b0f @0x6
0x3b09…3b1f at0007 = ╱4e╱N╱ // 0x3b10 @0x7
0x3b09…3b1f at0008 = ╱44╱D╱ // 0x3b11 @0x8
0x3b09…3b1f at0009 = ╱5f╱_╱ // 0x3b12 @0x9
0x3b09…3b1f at000a = ╱4b╱K╱ // 0x3b13 @0xa
0x3b09…3b1f at000b = ╱54╱T╱ // 0x3b14 @0xb
0x3b09…3b1f at000c = ╱4f╱O╱ // 0x3b15 @0xc
0x3b09…3b1f at000d = ╱ed╱ ( ╱ // 0x3b16 @0xd
0x3b09…3b1f at000e = ╱51╱Q╱ // 0x3b17 @0xe
0x3b09…3b1f at000f = ╱5f╱_╱ // 0x3b18 @0xf
0x3b09…3b1f at0010 = ╱4b╱K╱ // 0x3b19 @0x10
0x3b09…3b1f at0011 = ╱54╱T╱ // 0x3b1a @0x11
0x3b09…3b1f at0012 = ╱4f╱O╱ // 0x3b1b @0x12
0x3b09…3b1f at0013 = ╱ef╱ $ ╱ // 0x3b1c @0x13
0x3b09…3b1f at0014 = ╱ee╱ ) ╱ // 0x3b1d @0x14
0x3b09…3b1f at0015 = EOL // 0x3b1e @0x15
0x3b09…3b1f }
0x3b1f…3b2a d118 05480 IF OK THEN
0x3b1f…3b2a LineComal80 {
0x3b1f…3b2a ptr = 0xd118 // 0x3b1f @0x0
0x3b1f…3b2a lno = 0x1568 // 0x3b21 @0x2
0x3b1f…3b2a at0004 = ╱9b00d7╱ IF ╱ // 0x3b23 @0x4
0x3b1f…3b2a at0007 = ╱4f╱O╱ // 0x3b26 @0x7
0x3b1f…3b2a at0008 = ╱4b╱K╱ // 0x3b27 @0x8
0x3b1f…3b2a at0009 = ╱b5╱ THEN ╱ // 0x3b28 @0x9
0x3b1f…3b2a at000a = EOL // 0x3b29 @0xa
0x3b1f…3b2a }
0x3b2a…3b4f d13d 05490 EXEC FEJL ( "UKENDT…KONTONR:…" + Q_KTO $ )
0x3b2a…3b4f LineComal80 {
0x3b2a…3b4f ptr = 0xd13d // 0x3b2a @0x0
0x3b2a…3b4f lno = 0x1572 // 0x3b2c @0x2
0x3b2a…3b4f at0004 = ╱9d╱ EXEC ╱ // 0x3b2e @0x4
0x3b2a…3b4f at0005 = ╱46╱F╱ // 0x3b2f @0x5
0x3b2a…3b4f at0006 = ╱45╱E╱ // 0x3b30 @0x6
0x3b2a…3b4f at0007 = ╱4a╱J╱ // 0x3b31 @0x7
0x3b2a…3b4f at0008 = ╱4c╱L╱ // 0x3b32 @0x8
0x3b2a…3b4f at0009 = ╱ed╱ ( ╱ // 0x3b33 @0x9
0x3b2a…3b4f at000a = ╱22╱"╱ // 0x3b34 @0xa
0x3b2a…3b4f at000b = ╱55╱U╱ // 0x3b35 @0xb
0x3b2a…3b4f at000c = ╱4b╱K╱ // 0x3b36 @0xc
0x3b2a…3b4f at000d = ╱45╱E╱ // 0x3b37 @0xd
0x3b2a…3b4f at000e = ╱4e╱N╱ // 0x3b38 @0xe
0x3b2a…3b4f at000f = ╱44╱D╱ // 0x3b39 @0xf
0x3b2a…3b4f at0010 = ╱54╱T╱ // 0x3b3a @0x10
0x3b2a…3b4f at0011 = ╱20╱…╱ // 0x3b3b @0x11
0x3b2a…3b4f at0012 = ╱4b╱K╱ // 0x3b3c @0x12
0x3b2a…3b4f at0013 = ╱4f╱O╱ // 0x3b3d @0x13
0x3b2a…3b4f at0014 = ╱4e╱N╱ // 0x3b3e @0x14
0x3b2a…3b4f at0015 = ╱54╱T╱ // 0x3b3f @0x15
0x3b2a…3b4f at0016 = ╱4f╱O╱ // 0x3b40 @0x16
0x3b2a…3b4f at0017 = ╱4e╱N╱ // 0x3b41 @0x17
0x3b2a…3b4f at0018 = ╱52╱R╱ // 0x3b42 @0x18
0x3b2a…3b4f at0019 = ╱3a╱:╱ // 0x3b43 @0x19
0x3b2a…3b4f at001a = ╱20╱…╱ // 0x3b44 @0x1a
0x3b2a…3b4f at001b = ╱22╱"╱ // 0x3b45 @0x1b
0x3b2a…3b4f at001c = ╱eb╱ + ╱ // 0x3b46 @0x1c
0x3b2a…3b4f at001d = ╱51╱Q╱ // 0x3b47 @0x1d
0x3b2a…3b4f at001e = ╱5f╱_╱ // 0x3b48 @0x1e
0x3b2a…3b4f at001f = ╱4b╱K╱ // 0x3b49 @0x1f
0x3b2a…3b4f at0020 = ╱54╱T╱ // 0x3b4a @0x20
0x3b2a…3b4f at0021 = ╱4f╱O╱ // 0x3b4b @0x21
0x3b2a…3b4f at0022 = ╱ef╱ $ ╱ // 0x3b4c @0x22
0x3b2a…3b4f at0023 = ╱ee╱ ) ╱ // 0x3b4d @0x23
0x3b2a…3b4f at0024 = EOL // 0x3b4e @0x24
0x3b2a…3b4f }
0x3b4f…3b55 d143 05500 EXIT
0x3b4f…3b55 LineComal80 {
0x3b4f…3b55 ptr = 0xd143 // 0x3b4f @0x0
0x3b4f…3b55 lno = 0x157c // 0x3b51 @0x2
0x3b4f…3b55 at0004 = ╱99╱ EXIT ╱ // 0x3b53 @0x4
0x3b4f…3b55 at0005 = EOL // 0x3b54 @0x5
0x3b4f…3b55 }
0x3b55…3b5c d14a 05510 ELSE
0x3b55…3b5c LineComal80 {
0x3b55…3b5c ptr = 0xd14a // 0x3b55 @0x0
0x3b55…3b5c lno = 0x1586 // 0x3b57 @0x2
0x3b55…3b5c at0004 = ╱9a00╱ ELSE ╱ // 0x3b59 @0x4
0x3b55…3b5c at0006 = EOL // 0x3b5b @0x6
0x3b55…3b5c }
0x3b5c…3b72 d160 05520 EXEC L[S_KONTO ( RECNR )
0x3b5c…3b72 LineComal80 {
0x3b5c…3b72 ptr = 0xd160 // 0x3b5c @0x0
0x3b5c…3b72 lno = 0x1590 // 0x3b5e @0x2
0x3b5c…3b72 at0004 = ╱9d╱ EXEC ╱ // 0x3b60 @0x4
0x3b5c…3b72 at0005 = ╱4c╱L╱ // 0x3b61 @0x5
0x3b5c…3b72 at0006 = ╱5b╱[╱ // 0x3b62 @0x6
0x3b5c…3b72 at0007 = ╱53╱S╱ // 0x3b63 @0x7
0x3b5c…3b72 at0008 = ╱5f╱_╱ // 0x3b64 @0x8
0x3b5c…3b72 at0009 = ╱4b╱K╱ // 0x3b65 @0x9
0x3b5c…3b72 at000a = ╱4f╱O╱ // 0x3b66 @0xa
0x3b5c…3b72 at000b = ╱4e╱N╱ // 0x3b67 @0xb
0x3b5c…3b72 at000c = ╱54╱T╱ // 0x3b68 @0xc
0x3b5c…3b72 at000d = ╱4f╱O╱ // 0x3b69 @0xd
0x3b5c…3b72 at000e = ╱ed╱ ( ╱ // 0x3b6a @0xe
0x3b5c…3b72 at000f = ╱52╱R╱ // 0x3b6b @0xf
0x3b5c…3b72 at0010 = ╱45╱E╱ // 0x3b6c @0x10
0x3b5c…3b72 at0011 = ╱43╱C╱ // 0x3b6d @0x11
0x3b5c…3b72 at0012 = ╱4e╱N╱ // 0x3b6e @0x12
0x3b5c…3b72 at0013 = ╱52╱R╱ // 0x3b6f @0x13
0x3b5c…3b72 at0014 = ╱ee╱ ) ╱ // 0x3b70 @0x14
0x3b5c…3b72 at0015 = EOL // 0x3b71 @0x15
0x3b5c…3b72 }
0x3b72…3b87 d175 05530 IF TO_TYPE $ >< "A" THEN
0x3b72…3b87 LineComal80 {
0x3b72…3b87 ptr = 0xd175 // 0x3b72 @0x0
0x3b72…3b87 lno = 0x159a // 0x3b74 @0x2
0x3b72…3b87 at0004 = ╱9b004b╱ IF ╱ // 0x3b76 @0x4
0x3b72…3b87 at0007 = ╱54╱T╱ // 0x3b79 @0x7
0x3b72…3b87 at0008 = ╱4f╱O╱ // 0x3b7a @0x8
0x3b72…3b87 at0009 = ╱5f╱_╱ // 0x3b7b @0x9
0x3b72…3b87 at000a = ╱54╱T╱ // 0x3b7c @0xa
0x3b72…3b87 at000b = ╱59╱Y╱ // 0x3b7d @0xb
0x3b72…3b87 at000c = ╱50╱P╱ // 0x3b7e @0xc
0x3b72…3b87 at000d = ╱45╱E╱ // 0x3b7f @0xd
0x3b72…3b87 at000e = ╱ef╱ $ ╱ // 0x3b80 @0xe
0x3b72…3b87 at000f = ╱e4╱ >< ╱ // 0x3b81 @0xf
0x3b72…3b87 at0010 = ╱22╱"╱ // 0x3b82 @0x10
0x3b72…3b87 at0011 = ╱41╱A╱ // 0x3b83 @0x11
0x3b72…3b87 at0012 = ╱22╱"╱ // 0x3b84 @0x12
0x3b72…3b87 at0013 = ╱b5╱ THEN ╱ // 0x3b85 @0x13
0x3b72…3b87 at0014 = EOL // 0x3b86 @0x14
0x3b72…3b87 }
0x3b87…3bad d19b 05540 EXEC FEJL ( "ULOVLIG…KONTONR:…" + Q_KTO $ )
0x3b87…3bad LineComal80 {
0x3b87…3bad ptr = 0xd19b // 0x3b87 @0x0
0x3b87…3bad lno = 0x15a4 // 0x3b89 @0x2
0x3b87…3bad at0004 = ╱9d╱ EXEC ╱ // 0x3b8b @0x4
0x3b87…3bad at0005 = ╱46╱F╱ // 0x3b8c @0x5
0x3b87…3bad at0006 = ╱45╱E╱ // 0x3b8d @0x6
0x3b87…3bad at0007 = ╱4a╱J╱ // 0x3b8e @0x7
0x3b87…3bad at0008 = ╱4c╱L╱ // 0x3b8f @0x8
0x3b87…3bad at0009 = ╱ed╱ ( ╱ // 0x3b90 @0x9
0x3b87…3bad at000a = ╱22╱"╱ // 0x3b91 @0xa
0x3b87…3bad at000b = ╱55╱U╱ // 0x3b92 @0xb
0x3b87…3bad at000c = ╱4c╱L╱ // 0x3b93 @0xc
0x3b87…3bad at000d = ╱4f╱O╱ // 0x3b94 @0xd
0x3b87…3bad at000e = ╱56╱V╱ // 0x3b95 @0xe
0x3b87…3bad at000f = ╱4c╱L╱ // 0x3b96 @0xf
0x3b87…3bad at0010 = ╱49╱I╱ // 0x3b97 @0x10
0x3b87…3bad at0011 = ╱47╱G╱ // 0x3b98 @0x11
0x3b87…3bad at0012 = ╱20╱…╱ // 0x3b99 @0x12
0x3b87…3bad at0013 = ╱4b╱K╱ // 0x3b9a @0x13
0x3b87…3bad at0014 = ╱4f╱O╱ // 0x3b9b @0x14
0x3b87…3bad at0015 = ╱4e╱N╱ // 0x3b9c @0x15
0x3b87…3bad at0016 = ╱54╱T╱ // 0x3b9d @0x16
0x3b87…3bad at0017 = ╱4f╱O╱ // 0x3b9e @0x17
0x3b87…3bad at0018 = ╱4e╱N╱ // 0x3b9f @0x18
0x3b87…3bad at0019 = ╱52╱R╱ // 0x3ba0 @0x19
0x3b87…3bad at001a = ╱3a╱:╱ // 0x3ba1 @0x1a
0x3b87…3bad at001b = ╱20╱…╱ // 0x3ba2 @0x1b
0x3b87…3bad at001c = ╱22╱"╱ // 0x3ba3 @0x1c
0x3b87…3bad at001d = ╱eb╱ + ╱ // 0x3ba4 @0x1d
0x3b87…3bad at001e = ╱51╱Q╱ // 0x3ba5 @0x1e
0x3b87…3bad at001f = ╱5f╱_╱ // 0x3ba6 @0x1f
0x3b87…3bad at0020 = ╱4b╱K╱ // 0x3ba7 @0x20
0x3b87…3bad at0021 = ╱54╱T╱ // 0x3ba8 @0x21
0x3b87…3bad at0022 = ╱4f╱O╱ // 0x3ba9 @0x22
0x3b87…3bad at0023 = ╱ef╱ $ ╱ // 0x3baa @0x23
0x3b87…3bad at0024 = ╱ee╱ ) ╱ // 0x3bab @0x24
0x3b87…3bad at0025 = EOL // 0x3bac @0x25
0x3b87…3bad }
0x3bad…3bb3 d1a1 05550 EXIT
0x3bad…3bb3 LineComal80 {
0x3bad…3bb3 ptr = 0xd1a1 // 0x3bad @0x0
0x3bad…3bb3 lno = 0x15ae // 0x3baf @0x2
0x3bad…3bb3 at0004 = ╱99╱ EXIT ╱ // 0x3bb1 @0x4
0x3bad…3bb3 at0005 = EOL // 0x3bb2 @0x5
0x3bad…3bb3 }
0x3bb3…3bb9 d1a7 05560 ENDIF
0x3bb3…3bb9 LineComal80 {
0x3bb3…3bb9 ptr = 0xd1a7 // 0x3bb3 @0x0
0x3bb3…3bb9 lno = 0x15b8 // 0x3bb5 @0x2
0x3bb3…3bb9 at0004 = ╱9c╱ ENDIF ╱ // 0x3bb7 @0x4
0x3bb3…3bb9 at0005 = EOL // 0x3bb8 @0x5
0x3bb3…3bb9 }
0x3bb9…3bbf d1ad 05570 ENDIF
0x3bb9…3bbf LineComal80 {
0x3bb9…3bbf ptr = 0xd1ad // 0x3bb9 @0x0
0x3bb9…3bbf lno = 0x15c2 // 0x3bbb @0x2
0x3bb9…3bbf at0004 = ╱9c╱ ENDIF ╱ // 0x3bbd @0x4
0x3bb9…3bbf at0005 = EOL // 0x3bbe @0x5
0x3bb9…3bbf }
0x3bbf…3be2 d1d0 05580 GET TRANS $ , 1 : T_H\JREC , T_MAXREC
0x3bbf…3be2 LineComal80 {
0x3bbf…3be2 ptr = 0xd1d0 // 0x3bbf @0x0
0x3bbf…3be2 lno = 0x15cc // 0x3bc1 @0x2
0x3bbf…3be2 at0004 = ╱a9╱ GET ╱ // 0x3bc3 @0x4
0x3bbf…3be2 at0005 = ╱54╱T╱ // 0x3bc4 @0x5
0x3bbf…3be2 at0006 = ╱52╱R╱ // 0x3bc5 @0x6
0x3bbf…3be2 at0007 = ╱41╱A╱ // 0x3bc6 @0x7
0x3bbf…3be2 at0008 = ╱4e╱N╱ // 0x3bc7 @0x8
0x3bbf…3be2 at0009 = ╱53╱S╱ // 0x3bc8 @0x9
0x3bbf…3be2 at000a = ╱ef╱ $ ╱ // 0x3bc9 @0xa
0x3bbf…3be2 at000b = ╱ec╱ , ╱ // 0x3bca @0xb
0x3bbf…3be2 at000c = ╱31╱1╱ // 0x3bcb @0xc
0x3bbf…3be2 at000d = ╱f20100╱ // 0x3bcc @0xd
0x3bbf…3be2 at0010 = ╱f1╱ : ╱ // 0x3bcf @0x10
0x3bbf…3be2 at0011 = ╱54╱T╱ // 0x3bd0 @0x11
0x3bbf…3be2 at0012 = ╱5f╱_╱ // 0x3bd1 @0x12
0x3bbf…3be2 at0013 = ╱48╱H╱ // 0x3bd2 @0x13
0x3bbf…3be2 at0014 = ╱5c╱\╱ // 0x3bd3 @0x14
0x3bbf…3be2 at0015 = ╱4a╱J╱ // 0x3bd4 @0x15
0x3bbf…3be2 at0016 = ╱52╱R╱ // 0x3bd5 @0x16
0x3bbf…3be2 at0017 = ╱45╱E╱ // 0x3bd6 @0x17
0x3bbf…3be2 at0018 = ╱43╱C╱ // 0x3bd7 @0x18
0x3bbf…3be2 at0019 = ╱ec╱ , ╱ // 0x3bd8 @0x19
0x3bbf…3be2 at001a = ╱54╱T╱ // 0x3bd9 @0x1a
0x3bbf…3be2 at001b = ╱5f╱_╱ // 0x3bda @0x1b
0x3bbf…3be2 at001c = ╱4d╱M╱ // 0x3bdb @0x1c
0x3bbf…3be2 at001d = ╱41╱A╱ // 0x3bdc @0x1d
0x3bbf…3be2 at001e = ╱58╱X╱ // 0x3bdd @0x1e
0x3bbf…3be2 at001f = ╱52╱R╱ // 0x3bde @0x1f
0x3bbf…3be2 at0020 = ╱45╱E╱ // 0x3bdf @0x20
0x3bbf…3be2 at0021 = ╱43╱C╱ // 0x3be0 @0x21
0x3bbf…3be2 at0022 = EOL // 0x3be1 @0x22
0x3bbf…3be2 }
0x3be2…3bfb d1e9 05590 IF _H\JREC = T_MAXREC THEN
0x3be2…3bfb LineComal80 {
0x3be2…3bfb ptr = 0xd1e9 // 0x3be2 @0x0
0x3be2…3bfb lno = 0x15d6 // 0x3be4 @0x2
0x3be2…3bfb at0004 = ╱9b0054╱ IF ╱ // 0x3be6 @0x4
0x3be2…3bfb at0007 = ╱5f╱_╱ // 0x3be9 @0x7
0x3be2…3bfb at0008 = ╱48╱H╱ // 0x3bea @0x8
0x3be2…3bfb at0009 = ╱5c╱\╱ // 0x3beb @0x9
0x3be2…3bfb at000a = ╱4a╱J╱ // 0x3bec @0xa
0x3be2…3bfb at000b = ╱52╱R╱ // 0x3bed @0xb
0x3be2…3bfb at000c = ╱45╱E╱ // 0x3bee @0xc
0x3be2…3bfb at000d = ╱43╱C╱ // 0x3bef @0xd
0x3be2…3bfb at000e = ╱df╱ = ╱ // 0x3bf0 @0xe
0x3be2…3bfb at000f = ╱54╱T╱ // 0x3bf1 @0xf
0x3be2…3bfb at0010 = ╱5f╱_╱ // 0x3bf2 @0x10
0x3be2…3bfb at0011 = ╱4d╱M╱ // 0x3bf3 @0x11
0x3be2…3bfb at0012 = ╱41╱A╱ // 0x3bf4 @0x12
0x3be2…3bfb at0013 = ╱58╱X╱ // 0x3bf5 @0x13
0x3be2…3bfb at0014 = ╱52╱R╱ // 0x3bf6 @0x14
0x3be2…3bfb at0015 = ╱45╱E╱ // 0x3bf7 @0x15
0x3be2…3bfb at0016 = ╱43╱C╱ // 0x3bf8 @0x16
0x3be2…3bfb at0017 = ╱b5╱ THEN ╱ // 0x3bf9 @0x17
0x3be2…3bfb at0018 = EOL // 0x3bfa @0x18
0x3be2…3bfb }
0x3bfb…3c22 d210 05600 EXEC FEJL ( "TRANSAKTIONSFILEN…ER…FULD" )
0x3bfb…3c22 LineComal80 {
0x3bfb…3c22 ptr = 0xd210 // 0x3bfb @0x0
0x3bfb…3c22 lno = 0x15e0 // 0x3bfd @0x2
0x3bfb…3c22 at0004 = ╱9d╱ EXEC ╱ // 0x3bff @0x4
0x3bfb…3c22 at0005 = ╱46╱F╱ // 0x3c00 @0x5
0x3bfb…3c22 at0006 = ╱45╱E╱ // 0x3c01 @0x6
0x3bfb…3c22 at0007 = ╱4a╱J╱ // 0x3c02 @0x7
0x3bfb…3c22 at0008 = ╱4c╱L╱ // 0x3c03 @0x8
0x3bfb…3c22 at0009 = ╱ed╱ ( ╱ // 0x3c04 @0x9
0x3bfb…3c22 at000a = ╱22╱"╱ // 0x3c05 @0xa
0x3bfb…3c22 at000b = ╱54╱T╱ // 0x3c06 @0xb
0x3bfb…3c22 at000c = ╱52╱R╱ // 0x3c07 @0xc
0x3bfb…3c22 at000d = ╱41╱A╱ // 0x3c08 @0xd
0x3bfb…3c22 at000e = ╱4e╱N╱ // 0x3c09 @0xe
0x3bfb…3c22 at000f = ╱53╱S╱ // 0x3c0a @0xf
0x3bfb…3c22 at0010 = ╱41╱A╱ // 0x3c0b @0x10
0x3bfb…3c22 at0011 = ╱4b╱K╱ // 0x3c0c @0x11
0x3bfb…3c22 at0012 = ╱54╱T╱ // 0x3c0d @0x12
0x3bfb…3c22 at0013 = ╱49╱I╱ // 0x3c0e @0x13
0x3bfb…3c22 at0014 = ╱4f╱O╱ // 0x3c0f @0x14
0x3bfb…3c22 at0015 = ╱4e╱N╱ // 0x3c10 @0x15
0x3bfb…3c22 at0016 = ╱53╱S╱ // 0x3c11 @0x16
0x3bfb…3c22 at0017 = ╱46╱F╱ // 0x3c12 @0x17
0x3bfb…3c22 at0018 = ╱49╱I╱ // 0x3c13 @0x18
0x3bfb…3c22 at0019 = ╱4c╱L╱ // 0x3c14 @0x19
0x3bfb…3c22 at001a = ╱45╱E╱ // 0x3c15 @0x1a
0x3bfb…3c22 at001b = ╱4e╱N╱ // 0x3c16 @0x1b
0x3bfb…3c22 at001c = ╱20╱…╱ // 0x3c17 @0x1c
0x3bfb…3c22 at001d = ╱45╱E╱ // 0x3c18 @0x1d
0x3bfb…3c22 at001e = ╱52╱R╱ // 0x3c19 @0x1e
0x3bfb…3c22 at001f = ╱20╱…╱ // 0x3c1a @0x1f
0x3bfb…3c22 at0020 = ╱46╱F╱ // 0x3c1b @0x20
0x3bfb…3c22 at0021 = ╱55╱U╱ // 0x3c1c @0x21
0x3bfb…3c22 at0022 = ╱4c╱L╱ // 0x3c1d @0x22
0x3bfb…3c22 at0023 = ╱44╱D╱ // 0x3c1e @0x23
0x3bfb…3c22 at0024 = ╱22╱"╱ // 0x3c1f @0x24
0x3bfb…3c22 at0025 = ╱ee╱ ) ╱ // 0x3c20 @0x25
0x3bfb…3c22 at0026 = EOL // 0x3c21 @0x26
0x3bfb…3c22 }
0x3c22…3c28 d216 05610 EXIT
0x3c22…3c28 LineComal80 {
0x3c22…3c28 ptr = 0xd216 // 0x3c22 @0x0
0x3c22…3c28 lno = 0x15ea // 0x3c24 @0x2
0x3c22…3c28 at0004 = ╱99╱ EXIT ╱ // 0x3c26 @0x4
0x3c22…3c28 at0005 = EOL // 0x3c27 @0x5
0x3c22…3c28 }
0x3c28…3c2e (200,) d21c 05620 ENDIF
0x3c28…3c2e LineComal80 {
0x3c28…3c2e ptr = 0xd21c // 0x3c28 @0x0
0x3c28…3c2e lno = 0x15f4 // 0x3c2a @0x2
0x3c28…3c2e at0004 = ╱9c╱ ENDIF ╱ // 0x3c2c @0x4
0x3c28…3c2e at0005 = EOL // 0x3c2d @0x5
0x3c28…3c2e }
0x3c2e…3c4a d238 05630 LET T_H\JREC := T_H\JREC + 1
0x3c2e…3c4a LineComal80 {
0x3c2e…3c4a ptr = 0xd238 // 0x3c2e @0x0
0x3c2e…3c4a lno = 0x15fe // 0x3c30 @0x2
0x3c2e…3c4a at0004 = ╱86╱ LET ╱ // 0x3c32 @0x4
0x3c2e…3c4a at0005 = ╱54╱T╱ // 0x3c33 @0x5
0x3c2e…3c4a at0006 = ╱5f╱_╱ // 0x3c34 @0x6
0x3c2e…3c4a at0007 = ╱48╱H╱ // 0x3c35 @0x7
0x3c2e…3c4a at0008 = ╱5c╱\╱ // 0x3c36 @0x8
0x3c2e…3c4a at0009 = ╱4a╱J╱ // 0x3c37 @0x9
0x3c2e…3c4a at000a = ╱52╱R╱ // 0x3c38 @0xa
0x3c2e…3c4a at000b = ╱45╱E╱ // 0x3c39 @0xb
0x3c2e…3c4a at000c = ╱43╱C╱ // 0x3c3a @0xc
0x3c2e…3c4a at000d = ╱f0╱ := ╱ // 0x3c3b @0xd
0x3c2e…3c4a at000e = ╱54╱T╱ // 0x3c3c @0xe
0x3c2e…3c4a at000f = ╱5f╱_╱ // 0x3c3d @0xf
0x3c2e…3c4a at0010 = ╱48╱H╱ // 0x3c3e @0x10
0x3c2e…3c4a at0011 = ╱5c╱\╱ // 0x3c3f @0x11
0x3c2e…3c4a at0012 = ╱4a╱J╱ // 0x3c40 @0x12
0x3c2e…3c4a at0013 = ╱52╱R╱ // 0x3c41 @0x13
0x3c2e…3c4a at0014 = ╱45╱E╱ // 0x3c42 @0x14
0x3c2e…3c4a at0015 = ╱43╱C╱ // 0x3c43 @0x15
0x3c2e…3c4a at0016 = ╱e5╱ + ╱ // 0x3c44 @0x16
0x3c2e…3c4a at0017 = ╱31╱1╱ // 0x3c45 @0x17
0x3c2e…3c4a at0018 = ╱f20100╱ // 0x3c46 @0x18
0x3c2e…3c4a at001b = EOL // 0x3c49 @0x1b
0x3c2e…3c4a }
0x3c4a…3c5d d24b 05640 IF TO_FP > 0 THEN
0x3c4a…3c5d LineComal80 {
0x3c4a…3c5d ptr = 0xd24b // 0x3c4a @0x0
0x3c4a…3c5d lno = 0x1608 // 0x3c4c @0x2
0x3c4a…3c5d at0004 = ╱9b004b╱ IF ╱ // 0x3c4e @0x4
0x3c4a…3c5d at0007 = ╱54╱T╱ // 0x3c51 @0x7
0x3c4a…3c5d at0008 = ╱4f╱O╱ // 0x3c52 @0x8
0x3c4a…3c5d at0009 = ╱5f╱_╱ // 0x3c53 @0x9
0x3c4a…3c5d at000a = ╱46╱F╱ // 0x3c54 @0xa
0x3c4a…3c5d at000b = ╱50╱P╱ // 0x3c55 @0xb
0x3c4a…3c5d at000c = ╱e1╱ > ╱ // 0x3c56 @0xc
0x3c4a…3c5d at000d = ╱30╱0╱ // 0x3c57 @0xd
0x3c4a…3c5d at000e = ╱f20000╱ // 0x3c58 @0xe
0x3c4a…3c5d at0011 = ╱b5╱ THEN ╱ // 0x3c5b @0x11
0x3c4a…3c5d at0012 = EOL // 0x3c5c @0x12
0x3c4a…3c5d }
0x3c5d…3c74 d262 05650 EXEC L[S_TRANS ( KTO_SP )
0x3c5d…3c74 LineComal80 {
0x3c5d…3c74 ptr = 0xd262 // 0x3c5d @0x0
0x3c5d…3c74 lno = 0x1612 // 0x3c5f @0x2
0x3c5d…3c74 at0004 = ╱9d╱ EXEC ╱ // 0x3c61 @0x4
0x3c5d…3c74 at0005 = ╱4c╱L╱ // 0x3c62 @0x5
0x3c5d…3c74 at0006 = ╱5b╱[╱ // 0x3c63 @0x6
0x3c5d…3c74 at0007 = ╱53╱S╱ // 0x3c64 @0x7
0x3c5d…3c74 at0008 = ╱5f╱_╱ // 0x3c65 @0x8
0x3c5d…3c74 at0009 = ╱54╱T╱ // 0x3c66 @0x9
0x3c5d…3c74 at000a = ╱52╱R╱ // 0x3c67 @0xa
0x3c5d…3c74 at000b = ╱41╱A╱ // 0x3c68 @0xb
0x3c5d…3c74 at000c = ╱4e╱N╱ // 0x3c69 @0xc
0x3c5d…3c74 at000d = ╱53╱S╱ // 0x3c6a @0xd
0x3c5d…3c74 at000e = ╱ed╱ ( ╱ // 0x3c6b @0xe
0x3c5d…3c74 at000f = ╱4b╱K╱ // 0x3c6c @0xf
0x3c5d…3c74 at0010 = ╱54╱T╱ // 0x3c6d @0x10
0x3c5d…3c74 at0011 = ╱4f╱O╱ // 0x3c6e @0x11
0x3c5d…3c74 at0012 = ╱5f╱_╱ // 0x3c6f @0x12
0x3c5d…3c74 at0013 = ╱53╱S╱ // 0x3c70 @0x13
0x3c5d…3c74 at0014 = ╱50╱P╱ // 0x3c71 @0x14
0x3c5d…3c74 at0015 = ╱ee╱ ) ╱ // 0x3c72 @0x15
0x3c5d…3c74 at0016 = EOL // 0x3c73 @0x16
0x3c5d…3c74 }
0x3c74…3c89 d277 05660 LET NTRANS := T_H\JREC
0x3c74…3c89 LineComal80 {
0x3c74…3c89 ptr = 0xd277 // 0x3c74 @0x0
0x3c74…3c89 lno = 0x161c // 0x3c76 @0x2
0x3c74…3c89 at0004 = ╱86╱ LET ╱ // 0x3c78 @0x4
0x3c74…3c89 at0005 = ╱4e╱N╱ // 0x3c79 @0x5
0x3c74…3c89 at0006 = ╱54╱T╱ // 0x3c7a @0x6
0x3c74…3c89 at0007 = ╱52╱R╱ // 0x3c7b @0x7
0x3c74…3c89 at0008 = ╱41╱A╱ // 0x3c7c @0x8
0x3c74…3c89 at0009 = ╱4e╱N╱ // 0x3c7d @0x9
0x3c74…3c89 at000a = ╱53╱S╱ // 0x3c7e @0xa
0x3c74…3c89 at000b = ╱f0╱ := ╱ // 0x3c7f @0xb
0x3c74…3c89 at000c = ╱54╱T╱ // 0x3c80 @0xc
0x3c74…3c89 at000d = ╱5f╱_╱ // 0x3c81 @0xd
0x3c74…3c89 at000e = ╱48╱H╱ // 0x3c82 @0xe
0x3c74…3c89 at000f = ╱5c╱\╱ // 0x3c83 @0xf
0x3c74…3c89 at0010 = ╱4a╱J╱ // 0x3c84 @0x10
0x3c74…3c89 at0011 = ╱52╱R╱ // 0x3c85 @0x11
0x3c74…3c89 at0012 = ╱45╱E╱ // 0x3c86 @0x12
0x3c74…3c89 at0013 = ╱43╱C╱ // 0x3c87 @0x13
0x3c74…3c89 at0014 = EOL // 0x3c88 @0x14
0x3c74…3c89 }
0x3c89…3ca2 d290 05670 EXEC SKRIV_TRANS ( KTO_SP )
0x3c89…3ca2 LineComal80 {
0x3c89…3ca2 ptr = 0xd290 // 0x3c89 @0x0
0x3c89…3ca2 lno = 0x1626 // 0x3c8b @0x2
0x3c89…3ca2 at0004 = ╱9d╱ EXEC ╱ // 0x3c8d @0x4
0x3c89…3ca2 at0005 = ╱53╱S╱ // 0x3c8e @0x5
0x3c89…3ca2 at0006 = ╱4b╱K╱ // 0x3c8f @0x6
0x3c89…3ca2 at0007 = ╱52╱R╱ // 0x3c90 @0x7
0x3c89…3ca2 at0008 = ╱49╱I╱ // 0x3c91 @0x8
0x3c89…3ca2 at0009 = ╱56╱V╱ // 0x3c92 @0x9
0x3c89…3ca2 at000a = ╱5f╱_╱ // 0x3c93 @0xa
0x3c89…3ca2 at000b = ╱54╱T╱ // 0x3c94 @0xb
0x3c89…3ca2 at000c = ╱52╱R╱ // 0x3c95 @0xc
0x3c89…3ca2 at000d = ╱41╱A╱ // 0x3c96 @0xd
0x3c89…3ca2 at000e = ╱4e╱N╱ // 0x3c97 @0xe
0x3c89…3ca2 at000f = ╱53╱S╱ // 0x3c98 @0xf
0x3c89…3ca2 at0010 = ╱ed╱ ( ╱ // 0x3c99 @0x10
0x3c89…3ca2 at0011 = ╱4b╱K╱ // 0x3c9a @0x11
0x3c89…3ca2 at0012 = ╱54╱T╱ // 0x3c9b @0x12
0x3c89…3ca2 at0013 = ╱4f╱O╱ // 0x3c9c @0x13
0x3c89…3ca2 at0014 = ╱5f╱_╱ // 0x3c9d @0x14
0x3c89…3ca2 at0015 = ╱53╱S╱ // 0x3c9e @0x15
0x3c89…3ca2 at0016 = ╱50╱P╱ // 0x3c9f @0x16
0x3c89…3ca2 at0017 = ╱ee╱ ) ╱ // 0x3ca0 @0x17
0x3c89…3ca2 at0018 = EOL // 0x3ca1 @0x18
0x3c89…3ca2 }
0x3ca2…3ca9 d297 05680 ELSE
0x3ca2…3ca9 LineComal80 {
0x3ca2…3ca9 ptr = 0xd297 // 0x3ca2 @0x0
0x3ca2…3ca9 lno = 0x1630 // 0x3ca4 @0x2
0x3ca2…3ca9 at0004 = ╱9a00╱ ELSE ╱ // 0x3ca6 @0x4
0x3ca2…3ca9 at0006 = EOL // 0x3ca8 @0x6
0x3ca2…3ca9 }
0x3ca9…3cbe d2ac 05690 LET KTO_FP := T_H\JREC
0x3ca9…3cbe LineComal80 {
0x3ca9…3cbe ptr = 0xd2ac // 0x3ca9 @0x0
0x3ca9…3cbe lno = 0x163a // 0x3cab @0x2
0x3ca9…3cbe at0004 = ╱86╱ LET ╱ // 0x3cad @0x4
0x3ca9…3cbe at0005 = ╱4b╱K╱ // 0x3cae @0x5
0x3ca9…3cbe at0006 = ╱54╱T╱ // 0x3caf @0x6
0x3ca9…3cbe at0007 = ╱4f╱O╱ // 0x3cb0 @0x7
0x3ca9…3cbe at0008 = ╱5f╱_╱ // 0x3cb1 @0x8
0x3ca9…3cbe at0009 = ╱46╱F╱ // 0x3cb2 @0x9
0x3ca9…3cbe at000a = ╱50╱P╱ // 0x3cb3 @0xa
0x3ca9…3cbe at000b = ╱f0╱ := ╱ // 0x3cb4 @0xb
0x3ca9…3cbe at000c = ╱54╱T╱ // 0x3cb5 @0xc
0x3ca9…3cbe at000d = ╱5f╱_╱ // 0x3cb6 @0xd
0x3ca9…3cbe at000e = ╱48╱H╱ // 0x3cb7 @0xe
0x3ca9…3cbe at000f = ╱5c╱\╱ // 0x3cb8 @0xf
0x3ca9…3cbe at0010 = ╱4a╱J╱ // 0x3cb9 @0x10
0x3ca9…3cbe at0011 = ╱52╱R╱ // 0x3cba @0x11
0x3ca9…3cbe at0012 = ╱45╱E╱ // 0x3cbb @0x12
0x3ca9…3cbe at0013 = ╱43╱C╱ // 0x3cbc @0x13
0x3ca9…3cbe at0014 = EOL // 0x3cbd @0x14
0x3ca9…3cbe }
0x3cbe…3cc4 d2b2 05700 ENDIF
0x3cbe…3cc4 LineComal80 {
0x3cbe…3cc4 ptr = 0xd2b2 // 0x3cbe @0x0
0x3cbe…3cc4 lno = 0x1644 // 0x3cc0 @0x2
0x3cbe…3cc4 at0004 = ╱9c╱ ENDIF ╱ // 0x3cc2 @0x4
0x3cbe…3cc4 at0005 = EOL // 0x3cc3 @0x5
0x3cbe…3cc4 }
0x3cc4…3d09 d2f7 05710 LET BKTONR $ := Q_KTO $ ; BDATO $ := Q_DAT $ ; BTXT $ := Q_TXT $ ; BMOMS := Q_M ; BBEL\B := Q_KR
0x3cc4…3d09 LineComal80 {
0x3cc4…3d09 ptr = 0xd2f7 // 0x3cc4 @0x0
0x3cc4…3d09 lno = 0x164e // 0x3cc6 @0x2
0x3cc4…3d09 at0004 = ╱86╱ LET ╱ // 0x3cc8 @0x4
0x3cc4…3d09 at0005 = ╱42╱B╱ // 0x3cc9 @0x5
0x3cc4…3d09 at0006 = ╱4b╱K╱ // 0x3cca @0x6
0x3cc4…3d09 at0007 = ╱54╱T╱ // 0x3ccb @0x7
0x3cc4…3d09 at0008 = ╱4f╱O╱ // 0x3ccc @0x8
0x3cc4…3d09 at0009 = ╱4e╱N╱ // 0x3ccd @0x9
0x3cc4…3d09 at000a = ╱52╱R╱ // 0x3cce @0xa
0x3cc4…3d09 at000b = ╱ef╱ $ ╱ // 0x3ccf @0xb
0x3cc4…3d09 at000c = ╱f0╱ := ╱ // 0x3cd0 @0xc
0x3cc4…3d09 at000d = ╱51╱Q╱ // 0x3cd1 @0xd
0x3cc4…3d09 at000e = ╱5f╱_╱ // 0x3cd2 @0xe
0x3cc4…3d09 at000f = ╱4b╱K╱ // 0x3cd3 @0xf
0x3cc4…3d09 at0010 = ╱54╱T╱ // 0x3cd4 @0x10
0x3cc4…3d09 at0011 = ╱4f╱O╱ // 0x3cd5 @0x11
0x3cc4…3d09 at0012 = ╱ef╱ $ ╱ // 0x3cd6 @0x12
0x3cc4…3d09 at0013 = ╱ea╱ ; ╱ // 0x3cd7 @0x13
0x3cc4…3d09 at0014 = ╱42╱B╱ // 0x3cd8 @0x14
0x3cc4…3d09 at0015 = ╱44╱D╱ // 0x3cd9 @0x15
0x3cc4…3d09 at0016 = ╱41╱A╱ // 0x3cda @0x16
0x3cc4…3d09 at0017 = ╱54╱T╱ // 0x3cdb @0x17
0x3cc4…3d09 at0018 = ╱4f╱O╱ // 0x3cdc @0x18
0x3cc4…3d09 at0019 = ╱ef╱ $ ╱ // 0x3cdd @0x19
0x3cc4…3d09 at001a = ╱f0╱ := ╱ // 0x3cde @0x1a
0x3cc4…3d09 at001b = ╱51╱Q╱ // 0x3cdf @0x1b
0x3cc4…3d09 at001c = ╱5f╱_╱ // 0x3ce0 @0x1c
0x3cc4…3d09 at001d = ╱44╱D╱ // 0x3ce1 @0x1d
0x3cc4…3d09 at001e = ╱41╱A╱ // 0x3ce2 @0x1e
0x3cc4…3d09 at001f = ╱54╱T╱ // 0x3ce3 @0x1f
0x3cc4…3d09 at0020 = ╱ef╱ $ ╱ // 0x3ce4 @0x20
0x3cc4…3d09 at0021 = ╱ea╱ ; ╱ // 0x3ce5 @0x21
0x3cc4…3d09 at0022 = ╱42╱B╱ // 0x3ce6 @0x22
0x3cc4…3d09 at0023 = ╱54╱T╱ // 0x3ce7 @0x23
0x3cc4…3d09 at0024 = ╱58╱X╱ // 0x3ce8 @0x24
0x3cc4…3d09 at0025 = ╱54╱T╱ // 0x3ce9 @0x25
0x3cc4…3d09 at0026 = ╱ef╱ $ ╱ // 0x3cea @0x26
0x3cc4…3d09 at0027 = ╱f0╱ := ╱ // 0x3ceb @0x27
0x3cc4…3d09 at0028 = ╱51╱Q╱ // 0x3cec @0x28
0x3cc4…3d09 at0029 = ╱5f╱_╱ // 0x3ced @0x29
0x3cc4…3d09 at002a = ╱54╱T╱ // 0x3cee @0x2a
0x3cc4…3d09 at002b = ╱58╱X╱ // 0x3cef @0x2b
0x3cc4…3d09 at002c = ╱54╱T╱ // 0x3cf0 @0x2c
0x3cc4…3d09 at002d = ╱ef╱ $ ╱ // 0x3cf1 @0x2d
0x3cc4…3d09 at002e = ╱ea╱ ; ╱ // 0x3cf2 @0x2e
0x3cc4…3d09 at002f = ╱42╱B╱ // 0x3cf3 @0x2f
0x3cc4…3d09 at0030 = ╱4d╱M╱ // 0x3cf4 @0x30
0x3cc4…3d09 at0031 = ╱4f╱O╱ // 0x3cf5 @0x31
0x3cc4…3d09 at0032 = ╱4d╱M╱ // 0x3cf6 @0x32
0x3cc4…3d09 at0033 = ╱53╱S╱ // 0x3cf7 @0x33
0x3cc4…3d09 at0034 = ╱f0╱ := ╱ // 0x3cf8 @0x34
0x3cc4…3d09 at0035 = ╱51╱Q╱ // 0x3cf9 @0x35
0x3cc4…3d09 at0036 = ╱5f╱_╱ // 0x3cfa @0x36
0x3cc4…3d09 at0037 = ╱4d╱M╱ // 0x3cfb @0x37
0x3cc4…3d09 at0038 = ╱ea╱ ; ╱ // 0x3cfc @0x38
0x3cc4…3d09 at0039 = ╱42╱B╱ // 0x3cfd @0x39
0x3cc4…3d09 at003a = ╱42╱B╱ // 0x3cfe @0x3a
0x3cc4…3d09 at003b = ╱45╱E╱ // 0x3cff @0x3b
0x3cc4…3d09 at003c = ╱4c╱L╱ // 0x3d00 @0x3c
0x3cc4…3d09 at003d = ╱5c╱\╱ // 0x3d01 @0x3d
0x3cc4…3d09 at003e = ╱42╱B╱ // 0x3d02 @0x3e
0x3cc4…3d09 at003f = ╱f0╱ := ╱ // 0x3d03 @0x3f
0x3cc4…3d09 at0040 = ╱51╱Q╱ // 0x3d04 @0x40
0x3cc4…3d09 at0041 = ╱5f╱_╱ // 0x3d05 @0x41
0x3cc4…3d09 at0042 = ╱4b╱K╱ // 0x3d06 @0x42
0x3cc4…3d09 at0043 = ╱52╱R╱ // 0x3d07 @0x43
0x3cc4…3d09 at0044 = EOL // 0x3d08 @0x44
0x3cc4…3d09 }
0x3d09…3d2c d31a 05720 LET DK := Q_DK ; NTRANS := NUL ; BLGNR $ := QN $
0x3d09…3d2c LineComal80 {
0x3d09…3d2c ptr = 0xd31a // 0x3d09 @0x0
0x3d09…3d2c lno = 0x1658 // 0x3d0b @0x2
0x3d09…3d2c at0004 = ╱86╱ LET ╱ // 0x3d0d @0x4
0x3d09…3d2c at0005 = ╱44╱D╱ // 0x3d0e @0x5
0x3d09…3d2c at0006 = ╱4b╱K╱ // 0x3d0f @0x6
0x3d09…3d2c at0007 = ╱f0╱ := ╱ // 0x3d10 @0x7
0x3d09…3d2c at0008 = ╱51╱Q╱ // 0x3d11 @0x8
0x3d09…3d2c at0009 = ╱5f╱_╱ // 0x3d12 @0x9
0x3d09…3d2c at000a = ╱44╱D╱ // 0x3d13 @0xa
0x3d09…3d2c at000b = ╱4b╱K╱ // 0x3d14 @0xb
0x3d09…3d2c at000c = ╱ea╱ ; ╱ // 0x3d15 @0xc
0x3d09…3d2c at000d = ╱4e╱N╱ // 0x3d16 @0xd
0x3d09…3d2c at000e = ╱54╱T╱ // 0x3d17 @0xe
0x3d09…3d2c at000f = ╱52╱R╱ // 0x3d18 @0xf
0x3d09…3d2c at0010 = ╱41╱A╱ // 0x3d19 @0x10
0x3d09…3d2c at0011 = ╱4e╱N╱ // 0x3d1a @0x11
0x3d09…3d2c at0012 = ╱53╱S╱ // 0x3d1b @0x12
0x3d09…3d2c at0013 = ╱f0╱ := ╱ // 0x3d1c @0x13
0x3d09…3d2c at0014 = ╱4e╱N╱ // 0x3d1d @0x14
0x3d09…3d2c at0015 = ╱55╱U╱ // 0x3d1e @0x15
0x3d09…3d2c at0016 = ╱4c╱L╱ // 0x3d1f @0x16
0x3d09…3d2c at0017 = ╱ea╱ ; ╱ // 0x3d20 @0x17
0x3d09…3d2c at0018 = ╱42╱B╱ // 0x3d21 @0x18
0x3d09…3d2c at0019 = ╱4c╱L╱ // 0x3d22 @0x19
0x3d09…3d2c at001a = ╱47╱G╱ // 0x3d23 @0x1a
0x3d09…3d2c at001b = ╱4e╱N╱ // 0x3d24 @0x1b
0x3d09…3d2c at001c = ╱52╱R╱ // 0x3d25 @0x1c
0x3d09…3d2c at001d = ╱ef╱ $ ╱ // 0x3d26 @0x1d
0x3d09…3d2c at001e = ╱f0╱ := ╱ // 0x3d27 @0x1e
0x3d09…3d2c at001f = ╱51╱Q╱ // 0x3d28 @0x1f
0x3d09…3d2c at0020 = ╱4e╱N╱ // 0x3d29 @0x20
0x3d09…3d2c at0021 = ╱ef╱ $ ╱ // 0x3d2a @0x21
0x3d09…3d2c at0022 = EOL // 0x3d2b @0x22
0x3d09…3d2c }
0x3d2c…3d47 d335 05730 EXEC SKRIV_TRANS ( T_H\JREC )
0x3d2c…3d47 LineComal80 {
0x3d2c…3d47 ptr = 0xd335 // 0x3d2c @0x0
0x3d2c…3d47 lno = 0x1662 // 0x3d2e @0x2
0x3d2c…3d47 at0004 = ╱9d╱ EXEC ╱ // 0x3d30 @0x4
0x3d2c…3d47 at0005 = ╱53╱S╱ // 0x3d31 @0x5
0x3d2c…3d47 at0006 = ╱4b╱K╱ // 0x3d32 @0x6
0x3d2c…3d47 at0007 = ╱52╱R╱ // 0x3d33 @0x7
0x3d2c…3d47 at0008 = ╱49╱I╱ // 0x3d34 @0x8
0x3d2c…3d47 at0009 = ╱56╱V╱ // 0x3d35 @0x9
0x3d2c…3d47 at000a = ╱5f╱_╱ // 0x3d36 @0xa
0x3d2c…3d47 at000b = ╱54╱T╱ // 0x3d37 @0xb
0x3d2c…3d47 at000c = ╱52╱R╱ // 0x3d38 @0xc
0x3d2c…3d47 at000d = ╱41╱A╱ // 0x3d39 @0xd
0x3d2c…3d47 at000e = ╱4e╱N╱ // 0x3d3a @0xe
0x3d2c…3d47 at000f = ╱53╱S╱ // 0x3d3b @0xf
0x3d2c…3d47 at0010 = ╱ed╱ ( ╱ // 0x3d3c @0x10
0x3d2c…3d47 at0011 = ╱54╱T╱ // 0x3d3d @0x11
0x3d2c…3d47 at0012 = ╱5f╱_╱ // 0x3d3e @0x12
0x3d2c…3d47 at0013 = ╱48╱H╱ // 0x3d3f @0x13
0x3d2c…3d47 at0014 = ╱5c╱\╱ // 0x3d40 @0x14
0x3d2c…3d47 at0015 = ╱4a╱J╱ // 0x3d41 @0x15
0x3d2c…3d47 at0016 = ╱52╱R╱ // 0x3d42 @0x16
0x3d2c…3d47 at0017 = ╱45╱E╱ // 0x3d43 @0x17
0x3d2c…3d47 at0018 = ╱43╱C╱ // 0x3d44 @0x18
0x3d2c…3d47 at0019 = ╱ee╱ ) ╱ // 0x3d45 @0x19
0x3d2c…3d47 at001a = EOL // 0x3d46 @0x1a
0x3d2c…3d47 }
0x3d47…3d5c d34a 05740 LET KTO_SP := T_H\JREC
0x3d47…3d5c LineComal80 {
0x3d47…3d5c ptr = 0xd34a // 0x3d47 @0x0
0x3d47…3d5c lno = 0x166c // 0x3d49 @0x2
0x3d47…3d5c at0004 = ╱86╱ LET ╱ // 0x3d4b @0x4
0x3d47…3d5c at0005 = ╱4b╱K╱ // 0x3d4c @0x5
0x3d47…3d5c at0006 = ╱54╱T╱ // 0x3d4d @0x6
0x3d47…3d5c at0007 = ╱4f╱O╱ // 0x3d4e @0x7
0x3d47…3d5c at0008 = ╱5f╱_╱ // 0x3d4f @0x8
0x3d47…3d5c at0009 = ╱53╱S╱ // 0x3d50 @0x9
0x3d47…3d5c at000a = ╱50╱P╱ // 0x3d51 @0xa
0x3d47…3d5c at000b = ╱f0╱ := ╱ // 0x3d52 @0xb
0x3d47…3d5c at000c = ╱54╱T╱ // 0x3d53 @0xc
0x3d47…3d5c at000d = ╱5f╱_╱ // 0x3d54 @0xd
0x3d47…3d5c at000e = ╱48╱H╱ // 0x3d55 @0xe
0x3d47…3d5c at000f = ╱5c╱\╱ // 0x3d56 @0xf
0x3d47…3d5c at0010 = ╱4a╱J╱ // 0x3d57 @0x10
0x3d47…3d5c at0011 = ╱52╱R╱ // 0x3d58 @0x11
0x3d47…3d5c at0012 = ╱45╱E╱ // 0x3d59 @0x12
0x3d47…3d5c at0013 = ╱43╱C╱ // 0x3d5a @0x13
0x3d47…3d5c at0014 = EOL // 0x3d5b @0x14
0x3d47…3d5c }
0x3d5c…3d6c (204,) d35a 05750 IF K = DEBET THEN
0x3d5c…3d6c LineComal80 {
0x3d5c…3d6c ptr = 0xd35a // 0x3d5c @0x0
0x3d5c…3d6c lno = 0x1676 // 0x3d5e @0x2
0x3d5c…3d6c at0004 = ╱9b0044╱ IF ╱ // 0x3d60 @0x4
0x3d5c…3d6c at0007 = ╱4b╱K╱ // 0x3d63 @0x7
0x3d5c…3d6c at0008 = ╱df╱ = ╱ // 0x3d64 @0x8
0x3d5c…3d6c at0009 = ╱44╱D╱ // 0x3d65 @0x9
0x3d5c…3d6c at000a = ╱45╱E╱ // 0x3d66 @0xa
0x3d5c…3d6c at000b = ╱42╱B╱ // 0x3d67 @0xb
0x3d5c…3d6c at000c = ╱45╱E╱ // 0x3d68 @0xc
0x3d5c…3d6c at000d = ╱54╱T╱ // 0x3d69 @0xd
0x3d5c…3d6c at000e = ╱b5╱ THEN ╱ // 0x3d6a @0xe
0x3d5c…3d6c at000f = EOL // 0x3d6b @0xf
0x3d5c…3d6c }
0x3d6c…3d8e d37c 05760 LET KTO_ULTIMO := KTO_ULTIMO + BBEL\B
0x3d6c…3d8e LineComal80 {
0x3d6c…3d8e ptr = 0xd37c // 0x3d6c @0x0
0x3d6c…3d8e lno = 0x1680 // 0x3d6e @0x2
0x3d6c…3d8e at0004 = ╱86╱ LET ╱ // 0x3d70 @0x4
0x3d6c…3d8e at0005 = ╱4b╱K╱ // 0x3d71 @0x5
0x3d6c…3d8e at0006 = ╱54╱T╱ // 0x3d72 @0x6
0x3d6c…3d8e at0007 = ╱4f╱O╱ // 0x3d73 @0x7
0x3d6c…3d8e at0008 = ╱5f╱_╱ // 0x3d74 @0x8
0x3d6c…3d8e at0009 = ╱55╱U╱ // 0x3d75 @0x9
0x3d6c…3d8e at000a = ╱4c╱L╱ // 0x3d76 @0xa
0x3d6c…3d8e at000b = ╱54╱T╱ // 0x3d77 @0xb
0x3d6c…3d8e at000c = ╱49╱I╱ // 0x3d78 @0xc
0x3d6c…3d8e at000d = ╱4d╱M╱ // 0x3d79 @0xd
0x3d6c…3d8e at000e = ╱4f╱O╱ // 0x3d7a @0xe
0x3d6c…3d8e at000f = ╱f0╱ := ╱ // 0x3d7b @0xf
0x3d6c…3d8e at0010 = ╱4b╱K╱ // 0x3d7c @0x10
0x3d6c…3d8e at0011 = ╱54╱T╱ // 0x3d7d @0x11
0x3d6c…3d8e at0012 = ╱4f╱O╱ // 0x3d7e @0x12
0x3d6c…3d8e at0013 = ╱5f╱_╱ // 0x3d7f @0x13
0x3d6c…3d8e at0014 = ╱55╱U╱ // 0x3d80 @0x14
0x3d6c…3d8e at0015 = ╱4c╱L╱ // 0x3d81 @0x15
0x3d6c…3d8e at0016 = ╱54╱T╱ // 0x3d82 @0x16
0x3d6c…3d8e at0017 = ╱49╱I╱ // 0x3d83 @0x17
0x3d6c…3d8e at0018 = ╱4d╱M╱ // 0x3d84 @0x18
0x3d6c…3d8e at0019 = ╱4f╱O╱ // 0x3d85 @0x19
0x3d6c…3d8e at001a = ╱e5╱ + ╱ // 0x3d86 @0x1a
0x3d6c…3d8e at001b = ╱42╱B╱ // 0x3d87 @0x1b
0x3d6c…3d8e at001c = ╱42╱B╱ // 0x3d88 @0x1c
0x3d6c…3d8e at001d = ╱45╱E╱ // 0x3d89 @0x1d
0x3d6c…3d8e at001e = ╱4c╱L╱ // 0x3d8a @0x1e
0x3d6c…3d8e at001f = ╱5c╱\╱ // 0x3d8b @0x1f
0x3d6c…3d8e at0020 = ╱42╱B╱ // 0x3d8c @0x20
0x3d6c…3d8e at0021 = EOL // 0x3d8d @0x21
0x3d6c…3d8e }
0x3d8e…3d95 d383 05770 ELSE
0x3d8e…3d95 LineComal80 {
0x3d8e…3d95 ptr = 0xd383 // 0x3d8e @0x0
0x3d8e…3d95 lno = 0x168a // 0x3d90 @0x2
0x3d8e…3d95 at0004 = ╱9a00╱ ELSE ╱ // 0x3d92 @0x4
0x3d8e…3d95 at0006 = EOL // 0x3d94 @0x6
0x3d8e…3d95 }
0x3d95…3db7 d3a5 05780 LET KTO_ULTIMO := KTO_ULTIMO - BBEL\B
0x3d95…3db7 LineComal80 {
0x3d95…3db7 ptr = 0xd3a5 // 0x3d95 @0x0
0x3d95…3db7 lno = 0x1694 // 0x3d97 @0x2
0x3d95…3db7 at0004 = ╱86╱ LET ╱ // 0x3d99 @0x4
0x3d95…3db7 at0005 = ╱4b╱K╱ // 0x3d9a @0x5
0x3d95…3db7 at0006 = ╱54╱T╱ // 0x3d9b @0x6
0x3d95…3db7 at0007 = ╱4f╱O╱ // 0x3d9c @0x7
0x3d95…3db7 at0008 = ╱5f╱_╱ // 0x3d9d @0x8
0x3d95…3db7 at0009 = ╱55╱U╱ // 0x3d9e @0x9
0x3d95…3db7 at000a = ╱4c╱L╱ // 0x3d9f @0xa
0x3d95…3db7 at000b = ╱54╱T╱ // 0x3da0 @0xb
0x3d95…3db7 at000c = ╱49╱I╱ // 0x3da1 @0xc
0x3d95…3db7 at000d = ╱4d╱M╱ // 0x3da2 @0xd
0x3d95…3db7 at000e = ╱4f╱O╱ // 0x3da3 @0xe
0x3d95…3db7 at000f = ╱f0╱ := ╱ // 0x3da4 @0xf
0x3d95…3db7 at0010 = ╱4b╱K╱ // 0x3da5 @0x10
0x3d95…3db7 at0011 = ╱54╱T╱ // 0x3da6 @0x11
0x3d95…3db7 at0012 = ╱4f╱O╱ // 0x3da7 @0x12
0x3d95…3db7 at0013 = ╱5f╱_╱ // 0x3da8 @0x13
0x3d95…3db7 at0014 = ╱55╱U╱ // 0x3da9 @0x14
0x3d95…3db7 at0015 = ╱4c╱L╱ // 0x3daa @0x15
0x3d95…3db7 at0016 = ╱54╱T╱ // 0x3dab @0x16
0x3d95…3db7 at0017 = ╱49╱I╱ // 0x3dac @0x17
0x3d95…3db7 at0018 = ╱4d╱M╱ // 0x3dad @0x18
0x3d95…3db7 at0019 = ╱4f╱O╱ // 0x3dae @0x19
0x3d95…3db7 at001a = ╱e6╱ - ╱ // 0x3daf @0x1a
0x3d95…3db7 at001b = ╱42╱B╱ // 0x3db0 @0x1b
0x3d95…3db7 at001c = ╱42╱B╱ // 0x3db1 @0x1c
0x3d95…3db7 at001d = ╱45╱E╱ // 0x3db2 @0x1d
0x3d95…3db7 at001e = ╱4c╱L╱ // 0x3db3 @0x1e
0x3d95…3db7 at001f = ╱5c╱\╱ // 0x3db4 @0x1f
0x3d95…3db7 at0020 = ╱42╱B╱ // 0x3db5 @0x20
0x3d95…3db7 at0021 = EOL // 0x3db6 @0x21
0x3d95…3db7 }
0x3db7…3dbd d3ab 05790 ENDIF
0x3db7…3dbd LineComal80 {
0x3db7…3dbd ptr = 0xd3ab // 0x3db7 @0x0
0x3db7…3dbd lno = 0x169e // 0x3db9 @0x2
0x3db7…3dbd at0004 = ╱9c╱ ENDIF ╱ // 0x3dbb @0x4
0x3db7…3dbd at0005 = EOL // 0x3dbc @0x5
0x3db7…3dbd }
0x3dbd…3dd5 d3c3 05800 EXEC SKRIV_KONTO ( RECNR )
0x3dbd…3dd5 LineComal80 {
0x3dbd…3dd5 ptr = 0xd3c3 // 0x3dbd @0x0
0x3dbd…3dd5 lno = 0x16a8 // 0x3dbf @0x2
0x3dbd…3dd5 at0004 = ╱9d╱ EXEC ╱ // 0x3dc1 @0x4
0x3dbd…3dd5 at0005 = ╱53╱S╱ // 0x3dc2 @0x5
0x3dbd…3dd5 at0006 = ╱4b╱K╱ // 0x3dc3 @0x6
0x3dbd…3dd5 at0007 = ╱52╱R╱ // 0x3dc4 @0x7
0x3dbd…3dd5 at0008 = ╱49╱I╱ // 0x3dc5 @0x8
0x3dbd…3dd5 at0009 = ╱56╱V╱ // 0x3dc6 @0x9
0x3dbd…3dd5 at000a = ╱5f╱_╱ // 0x3dc7 @0xa
0x3dbd…3dd5 at000b = ╱4b╱K╱ // 0x3dc8 @0xb
0x3dbd…3dd5 at000c = ╱4f╱O╱ // 0x3dc9 @0xc
0x3dbd…3dd5 at000d = ╱4e╱N╱ // 0x3dca @0xd
0x3dbd…3dd5 at000e = ╱54╱T╱ // 0x3dcb @0xe
0x3dbd…3dd5 at000f = ╱4f╱O╱ // 0x3dcc @0xf
0x3dbd…3dd5 at0010 = ╱ed╱ ( ╱ // 0x3dcd @0x10
0x3dbd…3dd5 at0011 = ╱52╱R╱ // 0x3dce @0x11
0x3dbd…3dd5 at0012 = ╱45╱E╱ // 0x3dcf @0x12
0x3dbd…3dd5 at0013 = ╱43╱C╱ // 0x3dd0 @0x13
0x3dbd…3dd5 at0014 = ╱4e╱N╱ // 0x3dd1 @0x14
0x3dbd…3dd5 at0015 = ╱52╱R╱ // 0x3dd2 @0x15
0x3dbd…3dd5 at0016 = ╱ee╱ ) ╱ // 0x3dd3 @0x16
0x3dbd…3dd5 at0017 = EOL // 0x3dd4 @0x17
0x3dbd…3dd5 }
0x3dd5…3df8 d3e6 05810 PUT TRANS $ , 1 : T_H\JREC , T_MAXREC
0x3dd5…3df8 LineComal80 {
0x3dd5…3df8 ptr = 0xd3e6 // 0x3dd5 @0x0
0x3dd5…3df8 lno = 0x16b2 // 0x3dd7 @0x2
0x3dd5…3df8 at0004 = ╱aa╱ PUT ╱ // 0x3dd9 @0x4
0x3dd5…3df8 at0005 = ╱54╱T╱ // 0x3dda @0x5
0x3dd5…3df8 at0006 = ╱52╱R╱ // 0x3ddb @0x6
0x3dd5…3df8 at0007 = ╱41╱A╱ // 0x3ddc @0x7
0x3dd5…3df8 at0008 = ╱4e╱N╱ // 0x3ddd @0x8
0x3dd5…3df8 at0009 = ╱53╱S╱ // 0x3dde @0x9
0x3dd5…3df8 at000a = ╱ef╱ $ ╱ // 0x3ddf @0xa
0x3dd5…3df8 at000b = ╱ec╱ , ╱ // 0x3de0 @0xb
0x3dd5…3df8 at000c = ╱31╱1╱ // 0x3de1 @0xc
0x3dd5…3df8 at000d = ╱f20100╱ // 0x3de2 @0xd
0x3dd5…3df8 at0010 = ╱f1╱ : ╱ // 0x3de5 @0x10
0x3dd5…3df8 at0011 = ╱54╱T╱ // 0x3de6 @0x11
0x3dd5…3df8 at0012 = ╱5f╱_╱ // 0x3de7 @0x12
0x3dd5…3df8 at0013 = ╱48╱H╱ // 0x3de8 @0x13
0x3dd5…3df8 at0014 = ╱5c╱\╱ // 0x3de9 @0x14
0x3dd5…3df8 at0015 = ╱4a╱J╱ // 0x3dea @0x15
0x3dd5…3df8 at0016 = ╱52╱R╱ // 0x3deb @0x16
0x3dd5…3df8 at0017 = ╱45╱E╱ // 0x3dec @0x17
0x3dd5…3df8 at0018 = ╱43╱C╱ // 0x3ded @0x18
0x3dd5…3df8 at0019 = ╱ec╱ , ╱ // 0x3dee @0x19
0x3dd5…3df8 at001a = ╱54╱T╱ // 0x3def @0x1a
0x3dd5…3df8 at001b = ╱5f╱_╱ // 0x3df0 @0x1b
0x3dd5…3df8 at001c = ╱4d╱M╱ // 0x3df1 @0x1c
0x3dd5…3df8 at001d = ╱41╱A╱ // 0x3df2 @0x1d
0x3dd5…3df8 at001e = ╱58╱X╱ // 0x3df3 @0x1e
0x3dd5…3df8 at001f = ╱52╱R╱ // 0x3df4 @0x1f
0x3dd5…3df8 at0020 = ╱45╱E╱ // 0x3df5 @0x20
0x3dd5…3df8 at0021 = ╱43╱C╱ // 0x3df6 @0x21
0x3dd5…3df8 at0022 = EOL // 0x3df7 @0x22
0x3dd5…3df8 }
0x3df8…3e04 d3f2 05820 ENDPROC BOGF\R
0x3df8…3e04 LineComal80 {
0x3df8…3e04 ptr = 0xd3f2 // 0x3df8 @0x0
0x3df8…3e04 lno = 0x16bc // 0x3dfa @0x2
0x3df8…3e04 at0004 = ╱9f╱ ENDPROC ╱ // 0x3dfc @0x4
0x3df8…3e04 at0005 = ╱42╱B╱ // 0x3dfd @0x5
0x3df8…3e04 at0006 = ╱4f╱O╱ // 0x3dfe @0x6
0x3df8…3e04 at0007 = ╱47╱G╱ // 0x3dff @0x7
0x3df8…3e04 at0008 = ╱46╱F╱ // 0x3e00 @0x8
0x3df8…3e04 at0009 = ╱5c╱\╱ // 0x3e01 @0x9
0x3df8…3e04 at000a = ╱52╱R╱ // 0x3e02 @0xa
0x3df8…3e04 at000b = EOL // 0x3e03 @0xb
0x3df8…3e04 }
0x3e04…3e1e d40c 05830 PROC FIND_KTO ( REF R_KTONR $ )
0x3e04…3e1e LineComal80 {
0x3e04…3e1e ptr = 0xd40c // 0x3e04 @0x0
0x3e04…3e1e lno = 0x16c6 // 0x3e06 @0x2
0x3e04…3e1e at0004 = ╱9e00╱ PROC ╱ // 0x3e08 @0x4
0x3e04…3e1e at0006 = ╱46╱F╱ // 0x3e0a @0x6
0x3e04…3e1e at0007 = ╱49╱I╱ // 0x3e0b @0x7
0x3e04…3e1e at0008 = ╱4e╱N╱ // 0x3e0c @0x8
0x3e04…3e1e at0009 = ╱44╱D╱ // 0x3e0d @0x9
0x3e04…3e1e at000a = ╱5f╱_╱ // 0x3e0e @0xa
0x3e04…3e1e at000b = ╱4b╱K╱ // 0x3e0f @0xb
0x3e04…3e1e at000c = ╱54╱T╱ // 0x3e10 @0xc
0x3e04…3e1e at000d = ╱4f╱O╱ // 0x3e11 @0xd
0x3e04…3e1e at000e = ╱ed╱ ( ╱ // 0x3e12 @0xe
0x3e04…3e1e at000f = ╱b6╱ REF ╱ // 0x3e13 @0xf
0x3e04…3e1e at0010 = ╱52╱R╱ // 0x3e14 @0x10
0x3e04…3e1e at0011 = ╱5f╱_╱ // 0x3e15 @0x11
0x3e04…3e1e at0012 = ╱4b╱K╱ // 0x3e16 @0x12
0x3e04…3e1e at0013 = ╱54╱T╱ // 0x3e17 @0x13
0x3e04…3e1e at0014 = ╱4f╱O╱ // 0x3e18 @0x14
0x3e04…3e1e at0015 = ╱4e╱N╱ // 0x3e19 @0x15
0x3e04…3e1e at0016 = ╱52╱R╱ // 0x3e1a @0x16
0x3e04…3e1e at0017 = ╱ef╱ $ ╱ // 0x3e1b @0x17
0x3e04…3e1e at0018 = ╱ee╱ ) ╱ // 0x3e1c @0x18
0x3e04…3e1e at0019 = EOL // 0x3e1d @0x19
0x3e04…3e1e }
0x3e1e…3e2c d41a 05840 LET OK := FALSE
0x3e1e…3e2c LineComal80 {
0x3e1e…3e2c ptr = 0xd41a // 0x3e1e @0x0
0x3e1e…3e2c lno = 0x16d0 // 0x3e20 @0x2
0x3e1e…3e2c at0004 = ╱86╱ LET ╱ // 0x3e22 @0x4
0x3e1e…3e2c at0005 = ╱4f╱O╱ // 0x3e23 @0x5
0x3e1e…3e2c at0006 = ╱4b╱K╱ // 0x3e24 @0x6
0x3e1e…3e2c at0007 = ╱f0╱ := ╱ // 0x3e25 @0x7
0x3e1e…3e2c at0008 = ╱46╱F╱ // 0x3e26 @0x8
0x3e1e…3e2c at0009 = ╱41╱A╱ // 0x3e27 @0x9
0x3e1e…3e2c at000a = ╱4c╱L╱ // 0x3e28 @0xa
0x3e1e…3e2c at000b = ╱53╱S╱ // 0x3e29 @0xb
0x3e1e…3e2c at000c = ╱45╱E╱ // 0x3e2a @0xc
0x3e1e…3e2c at000d = EOL // 0x3e2b @0xd
0x3e1e…3e2c }
0x3e2c…3e50 d43e 05850 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x3e2c…3e50 LineComal80 {
0x3e2c…3e50 ptr = 0xd43e // 0x3e2c @0x0
0x3e2c…3e50 lno = 0x16da // 0x3e2e @0x2
0x3e2c…3e50 at0004 = ╱a9╱ GET ╱ // 0x3e30 @0x4
0x3e2c…3e50 at0005 = ╱4b╱K╱ // 0x3e31 @0x5
0x3e2c…3e50 at0006 = ╱54╱T╱ // 0x3e32 @0x6
0x3e2c…3e50 at0007 = ╱4f╱O╱ // 0x3e33 @0x7
0x3e2c…3e50 at0008 = ╱49╱I╱ // 0x3e34 @0x8
0x3e2c…3e50 at0009 = ╱44╱D╱ // 0x3e35 @0x9
0x3e2c…3e50 at000a = ╱58╱X╱ // 0x3e36 @0xa
0x3e2c…3e50 at000b = ╱ef╱ $ ╱ // 0x3e37 @0xb
0x3e2c…3e50 at000c = ╱ec╱ , ╱ // 0x3e38 @0xc
0x3e2c…3e50 at000d = ╱31╱1╱ // 0x3e39 @0xd
0x3e2c…3e50 at000e = ╱f20100╱ // 0x3e3a @0xe
0x3e2c…3e50 at0011 = ╱f1╱ : ╱ // 0x3e3d @0x11
0x3e2c…3e50 at0012 = ╱49╱I╱ // 0x3e3e @0x12
0x3e2c…3e50 at0013 = ╱5f╱_╱ // 0x3e3f @0x13
0x3e2c…3e50 at0014 = ╱48╱H╱ // 0x3e40 @0x14
0x3e2c…3e50 at0015 = ╱5c╱\╱ // 0x3e41 @0x15
0x3e2c…3e50 at0016 = ╱4a╱J╱ // 0x3e42 @0x16
0x3e2c…3e50 at0017 = ╱52╱R╱ // 0x3e43 @0x17
0x3e2c…3e50 at0018 = ╱45╱E╱ // 0x3e44 @0x18
0x3e2c…3e50 at0019 = ╱43╱C╱ // 0x3e45 @0x19
0x3e2c…3e50 at001a = ╱ec╱ , ╱ // 0x3e46 @0x1a
0x3e2c…3e50 at001b = ╱49╱I╱ // 0x3e47 @0x1b
0x3e2c…3e50 at001c = ╱5f╱_╱ // 0x3e48 @0x1c
0x3e2c…3e50 at001d = ╱4d╱M╱ // 0x3e49 @0x1d
0x3e2c…3e50 at001e = ╱41╱A╱ // 0x3e4a @0x1e
0x3e2c…3e50 at001f = ╱58╱X╱ // 0x3e4b @0x1f
0x3e2c…3e50 at0020 = ╱52╱R╱ // 0x3e4c @0x20
0x3e2c…3e50 at0021 = ╱45╱E╱ // 0x3e4d @0x21
0x3e2c…3e50 at0022 = ╱43╱C╱ // 0x3e4e @0x22
0x3e2c…3e50 at0023 = EOL // 0x3e4f @0x23
0x3e2c…3e50 }
0x3e50…3e75 d463 05860 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
0x3e50…3e75 LineComal80 {
0x3e50…3e75 ptr = 0xd463 // 0x3e50 @0x0
0x3e50…3e75 lno = 0x16e4 // 0x3e52 @0x2
0x3e50…3e75 at0004 = ╱86╱ LET ╱ // 0x3e54 @0x4
0x3e50…3e75 at0005 = ╱4c╱L╱ // 0x3e55 @0x5
0x3e50…3e75 at0006 = ╱4f╱O╱ // 0x3e56 @0x6
0x3e50…3e75 at0007 = ╱57╱W╱ // 0x3e57 @0x7
0x3e50…3e75 at0008 = ╱f0╱ := ╱ // 0x3e58 @0x8
0x3e50…3e75 at0009 = ╱31╱1╱ // 0x3e59 @0x9
0x3e50…3e75 at000a = ╱f20100╱ // 0x3e5a @0xa
0x3e50…3e75 at000d = ╱ea╱ ; ╱ // 0x3e5d @0xd
0x3e50…3e75 at000e = ╱48╱H╱ // 0x3e5e @0xe
0x3e50…3e75 at000f = ╱49╱I╱ // 0x3e5f @0xf
0x3e50…3e75 at0010 = ╱47╱G╱ // 0x3e60 @0x10
0x3e50…3e75 at0011 = ╱48╱H╱ // 0x3e61 @0x11
0x3e50…3e75 at0012 = ╱f0╱ := ╱ // 0x3e62 @0x12
0x3e50…3e75 at0013 = ╱49╱I╱ // 0x3e63 @0x13
0x3e50…3e75 at0014 = ╱5f╱_╱ // 0x3e64 @0x14
0x3e50…3e75 at0015 = ╱48╱H╱ // 0x3e65 @0x15
0x3e50…3e75 at0016 = ╱5c╱\╱ // 0x3e66 @0x16
0x3e50…3e75 at0017 = ╱4a╱J╱ // 0x3e67 @0x17
0x3e50…3e75 at0018 = ╱52╱R╱ // 0x3e68 @0x18
0x3e50…3e75 at0019 = ╱45╱E╱ // 0x3e69 @0x19
0x3e50…3e75 at001a = ╱43╱C╱ // 0x3e6a @0x1a
0x3e50…3e75 at001b = ╱ea╱ ; ╱ // 0x3e6b @0x1b
0x3e50…3e75 at001c = ╱50╱P╱ // 0x3e6c @0x1c
0x3e50…3e75 at001d = ╱4f╱O╱ // 0x3e6d @0x1d
0x3e50…3e75 at001e = ╱53╱S╱ // 0x3e6e @0x1e
0x3e50…3e75 at001f = ╱f0╱ := ╱ // 0x3e6f @0x1f
0x3e50…3e75 at0020 = ╱32╱2╱ // 0x3e70 @0x20
0x3e50…3e75 at0021 = ╱f20200╱ // 0x3e71 @0x21
0x3e50…3e75 at0024 = EOL // 0x3e74 @0x24
0x3e50…3e75 }
0x3e75…3e86 d474 05870 IF IGH > 1 THEN
0x3e75…3e86 LineComal80 {
0x3e75…3e86 ptr = 0xd474 // 0x3e75 @0x0
0x3e75…3e86 lno = 0x16ee // 0x3e77 @0x2
0x3e75…3e86 at0004 = ╱9b0048╱ IF ╱ // 0x3e79 @0x4
0x3e75…3e86 at0007 = ╱49╱I╱ // 0x3e7c @0x7
0x3e75…3e86 at0008 = ╱47╱G╱ // 0x3e7d @0x8
0x3e75…3e86 at0009 = ╱48╱H╱ // 0x3e7e @0x9
0x3e75…3e86 at000a = ╱e1╱ > ╱ // 0x3e7f @0xa
0x3e75…3e86 at000b = ╱31╱1╱ // 0x3e80 @0xb
0x3e75…3e86 at000c = ╱f20100╱ // 0x3e81 @0xc
0x3e75…3e86 at000f = ╱b5╱ THEN ╱ // 0x3e84 @0xf
0x3e75…3e86 at0010 = EOL // 0x3e85 @0x10
0x3e75…3e86 }
0x3e86…3e8d d47b 05880 REPEAT
0x3e86…3e8d LineComal80 {
0x3e86…3e8d ptr = 0xd47b // 0x3e86 @0x0
0x3e86…3e8d lno = 0x16f8 // 0x3e88 @0x2
0x3e86…3e8d at0004 = ╱9700╱ REPEAT ╱ // 0x3e8a @0x4
0x3e86…3e8d at0006 = EOL // 0x3e8c @0x6
0x3e86…3e8d }
0x3e8d…3eb9 d4a7 05890 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x3e8d…3eb9 LineComal80 {
0x3e8d…3eb9 ptr = 0xd4a7 // 0x3e8d @0x0
0x3e8d…3eb9 lno = 0x1702 // 0x3e8f @0x2
0x3e8d…3eb9 at0004 = ╱86╱ LET ╱ // 0x3e91 @0x4
0x3e8d…3eb9 at0005 = ╱50╱P╱ // 0x3e92 @0x5
0x3e8d…3eb9 at0006 = ╱4f╱O╱ // 0x3e93 @0x6
0x3e8d…3eb9 at0007 = ╱53╱S╱ // 0x3e94 @0x7
0x3e8d…3eb9 at0008 = ╱f0╱ := ╱ // 0x3e95 @0x8
0x3e8d…3eb9 at0009 = ╱c6╱ INT ╱ // 0x3e96 @0x9
0x3e8d…3eb9 at000a = ╱ed╱ ( ╱ // 0x3e97 @0xa
0x3e8d…3eb9 at000b = ╱ed╱ ( ╱ // 0x3e98 @0xb
0x3e8d…3eb9 at000c = ╱48╱H╱ // 0x3e99 @0xc
0x3e8d…3eb9 at000d = ╱49╱I╱ // 0x3e9a @0xd
0x3e8d…3eb9 at000e = ╱47╱G╱ // 0x3e9b @0xe
0x3e8d…3eb9 at000f = ╱48╱H╱ // 0x3e9c @0xf
0x3e8d…3eb9 at0010 = ╱e6╱ - ╱ // 0x3e9d @0x10
0x3e8d…3eb9 at0011 = ╱4c╱L╱ // 0x3e9e @0x11
0x3e8d…3eb9 at0012 = ╱4f╱O╱ // 0x3e9f @0x12
0x3e8d…3eb9 at0013 = ╱57╱W╱ // 0x3ea0 @0x13
0x3e8d…3eb9 at0014 = ╱ee╱ ) ╱ // 0x3ea1 @0x14
0x3e8d…3eb9 at0015 = ╱e8╱ / ╱ // 0x3ea2 @0x15
0x3e8d…3eb9 at0016 = ╱32╱2╱ // 0x3ea3 @0x16
0x3e8d…3eb9 at0017 = ╱f20200╱ // 0x3ea4 @0x17
0x3e8d…3eb9 at001a = ╱e5╱ + ╱ // 0x3ea7 @0x1a
0x3e8d…3eb9 at001b = ╱2e╱.╱ // 0x3ea8 @0x1b
0x3e8d…3eb9 at001c = ╱35╱5╱ // 0x3ea9 @0x1c
0x3e8d…3eb9 at001d = ╱f88000000000000005╱ // 0x3eaa @0x1d
0x3e8d…3eb9 at0026 = ╱ee╱ ) ╱ // 0x3eb3 @0x26
0x3e8d…3eb9 at0027 = ╱e5╱ + ╱ // 0x3eb4 @0x27
0x3e8d…3eb9 at0028 = ╱4c╱L╱ // 0x3eb5 @0x28
0x3e8d…3eb9 at0029 = ╱4f╱O╱ // 0x3eb6 @0x29
0x3e8d…3eb9 at002a = ╱57╱W╱ // 0x3eb7 @0x2a
0x3e8d…3eb9 at002b = EOL // 0x3eb8 @0x2b
0x3e8d…3eb9 }
0x3eb9…3ed7 d4c5 05900 GET KTOIDX $ , POS : KTONR $ , RECNR
0x3eb9…3ed7 LineComal80 {
0x3eb9…3ed7 ptr = 0xd4c5 // 0x3eb9 @0x0
0x3eb9…3ed7 lno = 0x170c // 0x3ebb @0x2
0x3eb9…3ed7 at0004 = ╱a9╱ GET ╱ // 0x3ebd @0x4
0x3eb9…3ed7 at0005 = ╱4b╱K╱ // 0x3ebe @0x5
0x3eb9…3ed7 at0006 = ╱54╱T╱ // 0x3ebf @0x6
0x3eb9…3ed7 at0007 = ╱4f╱O╱ // 0x3ec0 @0x7
0x3eb9…3ed7 at0008 = ╱49╱I╱ // 0x3ec1 @0x8
0x3eb9…3ed7 at0009 = ╱44╱D╱ // 0x3ec2 @0x9
0x3eb9…3ed7 at000a = ╱58╱X╱ // 0x3ec3 @0xa
0x3eb9…3ed7 at000b = ╱ef╱ $ ╱ // 0x3ec4 @0xb
0x3eb9…3ed7 at000c = ╱ec╱ , ╱ // 0x3ec5 @0xc
0x3eb9…3ed7 at000d = ╱50╱P╱ // 0x3ec6 @0xd
0x3eb9…3ed7 at000e = ╱4f╱O╱ // 0x3ec7 @0xe
0x3eb9…3ed7 at000f = ╱53╱S╱ // 0x3ec8 @0xf
0x3eb9…3ed7 at0010 = ╱f1╱ : ╱ // 0x3ec9 @0x10
0x3eb9…3ed7 at0011 = ╱4b╱K╱ // 0x3eca @0x11
0x3eb9…3ed7 at0012 = ╱54╱T╱ // 0x3ecb @0x12
0x3eb9…3ed7 at0013 = ╱4f╱O╱ // 0x3ecc @0x13
0x3eb9…3ed7 at0014 = ╱4e╱N╱ // 0x3ecd @0x14
0x3eb9…3ed7 at0015 = ╱52╱R╱ // 0x3ece @0x15
0x3eb9…3ed7 at0016 = ╱ef╱ $ ╱ // 0x3ecf @0x16
0x3eb9…3ed7 at0017 = ╱ec╱ , ╱ // 0x3ed0 @0x17
0x3eb9…3ed7 at0018 = ╱52╱R╱ // 0x3ed1 @0x18
0x3eb9…3ed7 at0019 = ╱45╱E╱ // 0x3ed2 @0x19
0x3eb9…3ed7 at001a = ╱43╱C╱ // 0x3ed3 @0x1a
0x3eb9…3ed7 at001b = ╱4e╱N╱ // 0x3ed4 @0x1b
0x3eb9…3ed7 at001c = ╱52╱R╱ // 0x3ed5 @0x1c
0x3eb9…3ed7 at001d = EOL // 0x3ed6 @0x1d
0x3eb9…3ed7 }
0x3ed7…3eee d4dc 05910 IF TONR $ > R_KTONR $ THEN
0x3ed7…3eee LineComal80 {
0x3ed7…3eee ptr = 0xd4dc // 0x3ed7 @0x0
0x3ed7…3eee lno = 0x1716 // 0x3ed9 @0x2
0x3ed7…3eee at0004 = ╱9b004b╱ IF ╱ // 0x3edb @0x4
0x3ed7…3eee at0007 = ╱54╱T╱ // 0x3ede @0x7
0x3ed7…3eee at0008 = ╱4f╱O╱ // 0x3edf @0x8
0x3ed7…3eee at0009 = ╱4e╱N╱ // 0x3ee0 @0x9
0x3ed7…3eee at000a = ╱52╱R╱ // 0x3ee1 @0xa
0x3ed7…3eee at000b = ╱ef╱ $ ╱ // 0x3ee2 @0xb
0x3ed7…3eee at000c = ╱e1╱ > ╱ // 0x3ee3 @0xc
0x3ed7…3eee at000d = ╱52╱R╱ // 0x3ee4 @0xd
0x3ed7…3eee at000e = ╱5f╱_╱ // 0x3ee5 @0xe
0x3ed7…3eee at000f = ╱4b╱K╱ // 0x3ee6 @0xf
0x3ed7…3eee at0010 = ╱54╱T╱ // 0x3ee7 @0x10
0x3ed7…3eee at0011 = ╱4f╱O╱ // 0x3ee8 @0x11
0x3ed7…3eee at0012 = ╱4e╱N╱ // 0x3ee9 @0x12
0x3ed7…3eee at0013 = ╱52╱R╱ // 0x3eea @0x13
0x3ed7…3eee at0014 = ╱ef╱ $ ╱ // 0x3eeb @0x14
0x3ed7…3eee at0015 = ╱b5╱ THEN ╱ // 0x3eec @0x15
0x3ed7…3eee at0016 = EOL // 0x3eed @0x16
0x3ed7…3eee }
0x3eee…3efc d4ea 05920 LET HIGH := POS
0x3eee…3efc LineComal80 {
0x3eee…3efc ptr = 0xd4ea // 0x3eee @0x0
0x3eee…3efc lno = 0x1720 // 0x3ef0 @0x2
0x3eee…3efc at0004 = ╱86╱ LET ╱ // 0x3ef2 @0x4
0x3eee…3efc at0005 = ╱48╱H╱ // 0x3ef3 @0x5
0x3eee…3efc at0006 = ╱49╱I╱ // 0x3ef4 @0x6
0x3eee…3efc at0007 = ╱47╱G╱ // 0x3ef5 @0x7
0x3eee…3efc at0008 = ╱48╱H╱ // 0x3ef6 @0x8
0x3eee…3efc at0009 = ╱f0╱ := ╱ // 0x3ef7 @0x9
0x3eee…3efc at000a = ╱50╱P╱ // 0x3ef8 @0xa
0x3eee…3efc at000b = ╱4f╱O╱ // 0x3ef9 @0xb
0x3eee…3efc at000c = ╱53╱S╱ // 0x3efa @0xc
0x3eee…3efc at000d = EOL // 0x3efb @0xd
0x3eee…3efc }
0x3efc…3f03 d4f1 05930 ELSE
0x3efc…3f03 LineComal80 {
0x3efc…3f03 ptr = 0xd4f1 // 0x3efc @0x0
0x3efc…3f03 lno = 0x172a // 0x3efe @0x2
0x3efc…3f03 at0004 = ╱9a00╱ ELSE ╱ // 0x3f00 @0x4
0x3efc…3f03 at0006 = EOL // 0x3f02 @0x6
0x3efc…3f03 }
0x3f03…3f1a d508 05940 IF TONR $ < R_KTONR $ THEN
0x3f03…3f1a LineComal80 {
0x3f03…3f1a ptr = 0xd508 // 0x3f03 @0x0
0x3f03…3f1a lno = 0x1734 // 0x3f05 @0x2
0x3f03…3f1a at0004 = ╱9b004b╱ IF ╱ // 0x3f07 @0x4
0x3f03…3f1a at0007 = ╱54╱T╱ // 0x3f0a @0x7
0x3f03…3f1a at0008 = ╱4f╱O╱ // 0x3f0b @0x8
0x3f03…3f1a at0009 = ╱4e╱N╱ // 0x3f0c @0x9
0x3f03…3f1a at000a = ╱52╱R╱ // 0x3f0d @0xa
0x3f03…3f1a at000b = ╱ef╱ $ ╱ // 0x3f0e @0xb
0x3f03…3f1a at000c = ╱e0╱ < ╱ // 0x3f0f @0xc
0x3f03…3f1a at000d = ╱52╱R╱ // 0x3f10 @0xd
0x3f03…3f1a at000e = ╱5f╱_╱ // 0x3f11 @0xe
0x3f03…3f1a at000f = ╱4b╱K╱ // 0x3f12 @0xf
0x3f03…3f1a at0010 = ╱54╱T╱ // 0x3f13 @0x10
0x3f03…3f1a at0011 = ╱4f╱O╱ // 0x3f14 @0x11
0x3f03…3f1a at0012 = ╱4e╱N╱ // 0x3f15 @0x12
0x3f03…3f1a at0013 = ╱52╱R╱ // 0x3f16 @0x13
0x3f03…3f1a at0014 = ╱ef╱ $ ╱ // 0x3f17 @0x14
0x3f03…3f1a at0015 = ╱b5╱ THEN ╱ // 0x3f18 @0x15
0x3f03…3f1a at0016 = EOL // 0x3f19 @0x16
0x3f03…3f1a }
0x3f1a…3f27 d515 05950 LET LOW := POS
0x3f1a…3f27 LineComal80 {
0x3f1a…3f27 ptr = 0xd515 // 0x3f1a @0x0
0x3f1a…3f27 lno = 0x173e // 0x3f1c @0x2
0x3f1a…3f27 at0004 = ╱86╱ LET ╱ // 0x3f1e @0x4
0x3f1a…3f27 at0005 = ╱4c╱L╱ // 0x3f1f @0x5
0x3f1a…3f27 at0006 = ╱4f╱O╱ // 0x3f20 @0x6
0x3f1a…3f27 at0007 = ╱57╱W╱ // 0x3f21 @0x7
0x3f1a…3f27 at0008 = ╱f0╱ := ╱ // 0x3f22 @0x8
0x3f1a…3f27 at0009 = ╱50╱P╱ // 0x3f23 @0x9
0x3f1a…3f27 at000a = ╱4f╱O╱ // 0x3f24 @0xa
0x3f1a…3f27 at000b = ╱53╱S╱ // 0x3f25 @0xb
0x3f1a…3f27 at000c = EOL // 0x3f26 @0xc
0x3f1a…3f27 }
0x3f27…3f2d d51b 05960 ENDIF
0x3f27…3f2d LineComal80 {
0x3f27…3f2d ptr = 0xd51b // 0x3f27 @0x0
0x3f27…3f2d lno = 0x1748 // 0x3f29 @0x2
0x3f27…3f2d at0004 = ╱9c╱ ENDIF ╱ // 0x3f2b @0x4
0x3f27…3f2d at0005 = EOL // 0x3f2c @0x5
0x3f27…3f2d }
0x3f2d…3f33 d521 05970 ENDIF
0x3f2d…3f33 LineComal80 {
0x3f2d…3f33 ptr = 0xd521 // 0x3f2d @0x0
0x3f2d…3f33 lno = 0x1752 // 0x3f2f @0x2
0x3f2d…3f33 at0004 = ╱9c╱ ENDIF ╱ // 0x3f31 @0x4
0x3f2d…3f33 at0005 = EOL // 0x3f32 @0x5
0x3f2d…3f33 }
0x3f33…3f56 d544 05980 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
0x3f33…3f56 LineComal80 {
0x3f33…3f56 ptr = 0xd544 // 0x3f33 @0x0
0x3f33…3f56 lno = 0x175c // 0x3f35 @0x2
0x3f33…3f56 at0004 = ╱98╱ UNTIL ╱ // 0x3f37 @0x4
0x3f33…3f56 at0005 = ╱48╱H╱ // 0x3f38 @0x5
0x3f33…3f56 at0006 = ╱49╱I╱ // 0x3f39 @0x6
0x3f33…3f56 at0007 = ╱47╱G╱ // 0x3f3a @0x7
0x3f33…3f56 at0008 = ╱48╱H╱ // 0x3f3b @0x8
0x3f33…3f56 at0009 = ╱e6╱ - ╱ // 0x3f3c @0x9
0x3f33…3f56 at000a = ╱4c╱L╱ // 0x3f3d @0xa
0x3f33…3f56 at000b = ╱4f╱O╱ // 0x3f3e @0xb
0x3f33…3f56 at000c = ╱57╱W╱ // 0x3f3f @0xc
0x3f33…3f56 at000d = ╱e2╱ =< ╱ // 0x3f40 @0xd
0x3f33…3f56 at000e = ╱31╱1╱ // 0x3f41 @0xe
0x3f33…3f56 at000f = ╱f20100╱ // 0x3f42 @0xf
0x3f33…3f56 at0012 = ╱d8╱ OR ╱ // 0x3f45 @0x12
0x3f33…3f56 at0013 = ╱52╱R╱ // 0x3f46 @0x13
0x3f33…3f56 at0014 = ╱5f╱_╱ // 0x3f47 @0x14
0x3f33…3f56 at0015 = ╱4b╱K╱ // 0x3f48 @0x15
0x3f33…3f56 at0016 = ╱54╱T╱ // 0x3f49 @0x16
0x3f33…3f56 at0017 = ╱4f╱O╱ // 0x3f4a @0x17
0x3f33…3f56 at0018 = ╱4e╱N╱ // 0x3f4b @0x18
0x3f33…3f56 at0019 = ╱52╱R╱ // 0x3f4c @0x19
0x3f33…3f56 at001a = ╱ef╱ $ ╱ // 0x3f4d @0x1a
0x3f33…3f56 at001b = ╱df╱ = ╱ // 0x3f4e @0x1b
0x3f33…3f56 at001c = ╱4b╱K╱ // 0x3f4f @0x1c
0x3f33…3f56 at001d = ╱54╱T╱ // 0x3f50 @0x1d
0x3f33…3f56 at001e = ╱4f╱O╱ // 0x3f51 @0x1e
0x3f33…3f56 at001f = ╱4e╱N╱ // 0x3f52 @0x1f
0x3f33…3f56 at0020 = ╱52╱R╱ // 0x3f53 @0x20
0x3f33…3f56 at0021 = ╱ef╱ $ ╱ // 0x3f54 @0x21
0x3f33…3f56 at0022 = EOL // 0x3f55 @0x22
0x3f33…3f56 }
0x3f56…3f82 d570 05990 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x3f56…3f82 LineComal80 {
0x3f56…3f82 ptr = 0xd570 // 0x3f56 @0x0
0x3f56…3f82 lno = 0x1766 // 0x3f58 @0x2
0x3f56…3f82 at0004 = ╱86╱ LET ╱ // 0x3f5a @0x4
0x3f56…3f82 at0005 = ╱50╱P╱ // 0x3f5b @0x5
0x3f56…3f82 at0006 = ╱4f╱O╱ // 0x3f5c @0x6
0x3f56…3f82 at0007 = ╱53╱S╱ // 0x3f5d @0x7
0x3f56…3f82 at0008 = ╱f0╱ := ╱ // 0x3f5e @0x8
0x3f56…3f82 at0009 = ╱c6╱ INT ╱ // 0x3f5f @0x9
0x3f56…3f82 at000a = ╱ed╱ ( ╱ // 0x3f60 @0xa
0x3f56…3f82 at000b = ╱ed╱ ( ╱ // 0x3f61 @0xb
0x3f56…3f82 at000c = ╱48╱H╱ // 0x3f62 @0xc
0x3f56…3f82 at000d = ╱49╱I╱ // 0x3f63 @0xd
0x3f56…3f82 at000e = ╱47╱G╱ // 0x3f64 @0xe
0x3f56…3f82 at000f = ╱48╱H╱ // 0x3f65 @0xf
0x3f56…3f82 at0010 = ╱e6╱ - ╱ // 0x3f66 @0x10
0x3f56…3f82 at0011 = ╱4c╱L╱ // 0x3f67 @0x11
0x3f56…3f82 at0012 = ╱4f╱O╱ // 0x3f68 @0x12
0x3f56…3f82 at0013 = ╱57╱W╱ // 0x3f69 @0x13
0x3f56…3f82 at0014 = ╱ee╱ ) ╱ // 0x3f6a @0x14
0x3f56…3f82 at0015 = ╱e8╱ / ╱ // 0x3f6b @0x15
0x3f56…3f82 at0016 = ╱32╱2╱ // 0x3f6c @0x16
0x3f56…3f82 at0017 = ╱f20200╱ // 0x3f6d @0x17
0x3f56…3f82 at001a = ╱e5╱ + ╱ // 0x3f70 @0x1a
0x3f56…3f82 at001b = ╱2e╱.╱ // 0x3f71 @0x1b
0x3f56…3f82 at001c = ╱35╱5╱ // 0x3f72 @0x1c
0x3f56…3f82 at001d = ╱f88000000000000005╱ // 0x3f73 @0x1d
0x3f56…3f82 at0026 = ╱ee╱ ) ╱ // 0x3f7c @0x26
0x3f56…3f82 at0027 = ╱e5╱ + ╱ // 0x3f7d @0x27
0x3f56…3f82 at0028 = ╱4c╱L╱ // 0x3f7e @0x28
0x3f56…3f82 at0029 = ╱4f╱O╱ // 0x3f7f @0x29
0x3f56…3f82 at002a = ╱57╱W╱ // 0x3f80 @0x2a
0x3f56…3f82 at002b = EOL // 0x3f81 @0x2b
0x3f56…3f82 }
0x3f82…3fa0 d58e 06000 GET KTOIDX $ , POS : KTONR $ , RECNR
0x3f82…3fa0 LineComal80 {
0x3f82…3fa0 ptr = 0xd58e // 0x3f82 @0x0
0x3f82…3fa0 lno = 0x1770 // 0x3f84 @0x2
0x3f82…3fa0 at0004 = ╱a9╱ GET ╱ // 0x3f86 @0x4
0x3f82…3fa0 at0005 = ╱4b╱K╱ // 0x3f87 @0x5
0x3f82…3fa0 at0006 = ╱54╱T╱ // 0x3f88 @0x6
0x3f82…3fa0 at0007 = ╱4f╱O╱ // 0x3f89 @0x7
0x3f82…3fa0 at0008 = ╱49╱I╱ // 0x3f8a @0x8
0x3f82…3fa0 at0009 = ╱44╱D╱ // 0x3f8b @0x9
0x3f82…3fa0 at000a = ╱58╱X╱ // 0x3f8c @0xa
0x3f82…3fa0 at000b = ╱ef╱ $ ╱ // 0x3f8d @0xb
0x3f82…3fa0 at000c = ╱ec╱ , ╱ // 0x3f8e @0xc
0x3f82…3fa0 at000d = ╱50╱P╱ // 0x3f8f @0xd
0x3f82…3fa0 at000e = ╱4f╱O╱ // 0x3f90 @0xe
0x3f82…3fa0 at000f = ╱53╱S╱ // 0x3f91 @0xf
0x3f82…3fa0 at0010 = ╱f1╱ : ╱ // 0x3f92 @0x10
0x3f82…3fa0 at0011 = ╱4b╱K╱ // 0x3f93 @0x11
0x3f82…3fa0 at0012 = ╱54╱T╱ // 0x3f94 @0x12
0x3f82…3fa0 at0013 = ╱4f╱O╱ // 0x3f95 @0x13
0x3f82…3fa0 at0014 = ╱4e╱N╱ // 0x3f96 @0x14
0x3f82…3fa0 at0015 = ╱52╱R╱ // 0x3f97 @0x15
0x3f82…3fa0 at0016 = ╱ef╱ $ ╱ // 0x3f98 @0x16
0x3f82…3fa0 at0017 = ╱ec╱ , ╱ // 0x3f99 @0x17
0x3f82…3fa0 at0018 = ╱52╱R╱ // 0x3f9a @0x18
0x3f82…3fa0 at0019 = ╱45╱E╱ // 0x3f9b @0x19
0x3f82…3fa0 at001a = ╱43╱C╱ // 0x3f9c @0x1a
0x3f82…3fa0 at001b = ╱4e╱N╱ // 0x3f9d @0x1b
0x3f82…3fa0 at001c = ╱52╱R╱ // 0x3f9e @0x1c
0x3f82…3fa0 at001d = EOL // 0x3f9f @0x1d
0x3f82…3fa0 }
0x3fa0…3fbf d5ad 06010 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
0x3fa0…3fbf LineComal80 {
0x3fa0…3fbf ptr = 0xd5ad // 0x3fa0 @0x0
0x3fa0…3fbf lno = 0x177a // 0x3fa2 @0x2
0x3fa0…3fbf at0004 = ╱8200╱ IF ╱ // 0x3fa4 @0x4
0x3fa0…3fbf at0006 = ╱4b╱K╱ // 0x3fa6 @0x6
0x3fa0…3fbf at0007 = ╱54╱T╱ // 0x3fa7 @0x7
0x3fa0…3fbf at0008 = ╱4f╱O╱ // 0x3fa8 @0x8
0x3fa0…3fbf at0009 = ╱4e╱N╱ // 0x3fa9 @0x9
0x3fa0…3fbf at000a = ╱52╱R╱ // 0x3faa @0xa
0x3fa0…3fbf at000b = ╱ef╱ $ ╱ // 0x3fab @0xb
0x3fa0…3fbf at000c = ╱df╱ = ╱ // 0x3fac @0xc
0x3fa0…3fbf at000d = ╱52╱R╱ // 0x3fad @0xd
0x3fa0…3fbf at000e = ╱5f╱_╱ // 0x3fae @0xe
0x3fa0…3fbf at000f = ╱4b╱K╱ // 0x3faf @0xf
0x3fa0…3fbf at0010 = ╱54╱T╱ // 0x3fb0 @0x10
0x3fa0…3fbf at0011 = ╱4f╱O╱ // 0x3fb1 @0x11
0x3fa0…3fbf at0012 = ╱4e╱N╱ // 0x3fb2 @0x12
0x3fa0…3fbf at0013 = ╱52╱R╱ // 0x3fb3 @0x13
0x3fa0…3fbf at0014 = ╱ef╱ $ ╱ // 0x3fb4 @0x14
0x3fa0…3fbf at0015 = ╱b5╱ THEN ╱ // 0x3fb5 @0x15
0x3fa0…3fbf at0016 = ╱86╱ LET ╱ // 0x3fb6 @0x16
0x3fa0…3fbf at0017 = ╱4f╱O╱ // 0x3fb7 @0x17
0x3fa0…3fbf at0018 = ╱4b╱K╱ // 0x3fb8 @0x18
0x3fa0…3fbf at0019 = ╱f0╱ := ╱ // 0x3fb9 @0x19
0x3fa0…3fbf at001a = ╱54╱T╱ // 0x3fba @0x1a
0x3fa0…3fbf at001b = ╱52╱R╱ // 0x3fbb @0x1b
0x3fa0…3fbf at001c = ╱55╱U╱ // 0x3fbc @0x1c
0x3fa0…3fbf at001d = ╱45╱E╱ // 0x3fbd @0x1d
0x3fa0…3fbf at001e = EOL // 0x3fbe @0x1e
0x3fa0…3fbf }
0x3fbf…3fc5 d5b3 06020 ENDIF
0x3fbf…3fc5 LineComal80 {
0x3fbf…3fc5 ptr = 0xd5b3 // 0x3fbf @0x0
0x3fbf…3fc5 lno = 0x1784 // 0x3fc1 @0x2
0x3fbf…3fc5 at0004 = ╱9c╱ ENDIF ╱ // 0x3fc3 @0x4
0x3fbf…3fc5 at0005 = EOL // 0x3fc4 @0x5
0x3fbf…3fc5 }
0x3fc5…3fd7 d5c5 06030 LET FIND_KTO := POS
0x3fc5…3fd7 LineComal80 {
0x3fc5…3fd7 ptr = 0xd5c5 // 0x3fc5 @0x0
0x3fc5…3fd7 lno = 0x178e // 0x3fc7 @0x2
0x3fc5…3fd7 at0004 = ╱86╱ LET ╱ // 0x3fc9 @0x4
0x3fc5…3fd7 at0005 = ╱46╱F╱ // 0x3fca @0x5
0x3fc5…3fd7 at0006 = ╱49╱I╱ // 0x3fcb @0x6
0x3fc5…3fd7 at0007 = ╱4e╱N╱ // 0x3fcc @0x7
0x3fc5…3fd7 at0008 = ╱44╱D╱ // 0x3fcd @0x8
0x3fc5…3fd7 at0009 = ╱5f╱_╱ // 0x3fce @0x9
0x3fc5…3fd7 at000a = ╱4b╱K╱ // 0x3fcf @0xa
0x3fc5…3fd7 at000b = ╱54╱T╱ // 0x3fd0 @0xb
0x3fc5…3fd7 at000c = ╱4f╱O╱ // 0x3fd1 @0xc
0x3fc5…3fd7 at000d = ╱f0╱ := ╱ // 0x3fd2 @0xd
0x3fc5…3fd7 at000e = ╱50╱P╱ // 0x3fd3 @0xe
0x3fc5…3fd7 at000f = ╱4f╱O╱ // 0x3fd4 @0xf
0x3fc5…3fd7 at0010 = ╱53╱S╱ // 0x3fd5 @0x10
0x3fc5…3fd7 at0011 = EOL // 0x3fd6 @0x11
0x3fc5…3fd7 }
0x3fd7…3fe5 d5d3 06040 ENDPROC FIND_KTO
0x3fd7…3fe5 LineComal80 {
0x3fd7…3fe5 ptr = 0xd5d3 // 0x3fd7 @0x0
0x3fd7…3fe5 lno = 0x1798 // 0x3fd9 @0x2
0x3fd7…3fe5 at0004 = ╱9f╱ ENDPROC ╱ // 0x3fdb @0x4
0x3fd7…3fe5 at0005 = ╱46╱F╱ // 0x3fdc @0x5
0x3fd7…3fe5 at0006 = ╱49╱I╱ // 0x3fdd @0x6
0x3fd7…3fe5 at0007 = ╱4e╱N╱ // 0x3fde @0x7
0x3fd7…3fe5 at0008 = ╱44╱D╱ // 0x3fdf @0x8
0x3fd7…3fe5 at0009 = ╱5f╱_╱ // 0x3fe0 @0x9
0x3fd7…3fe5 at000a = ╱4b╱K╱ // 0x3fe1 @0xa
0x3fd7…3fe5 at000b = ╱54╱T╱ // 0x3fe2 @0xb
0x3fd7…3fe5 at000c = ╱4f╱O╱ // 0x3fe3 @0xc
0x3fd7…3fe5 at000d = EOL // 0x3fe4 @0xd
0x3fd7…3fe5 }
0x3fe5…3feb d8c3 06050 //
0x3fe5…3feb LineComal80 {
0x3fe5…3feb ptr = 0xd8c3 // 0x3fe5 @0x0
0x3fe5…3feb lno = 0x17a2 // 0x3fe7 @0x2
0x3fe5…3feb at0004 = ╱89╱ // ╱ // 0x3fe9 @0x4
0x3fe5…3feb at0005 = EOL // 0x3fea @0x5
0x3fe5…3feb }
0x3feb…401e d60c 06040 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x3feb…401e LineComal80 {
0x3feb…401e ptr = 0xd60c // 0x3feb @0x0
0x3feb…401e lno = 0x1798 // 0x3fed @0x2
0x3feb…401e at0004 = ╱9e00╱ PROC ╱ // 0x3fef @0x4
0x3feb…401e at0006 = ╱50╱P╱ // 0x3ff1 @0x6
0x3feb…401e at0007 = ╱52╱R╱ // 0x3ff2 @0x7
0x3feb…401e at0008 = ╱49╱I╱ // 0x3ff3 @0x8
0x3feb…401e at0009 = ╱4e╱N╱ // 0x3ff4 @0x9
0x3feb…401e at000a = ╱54╱T╱ // 0x3ff5 @0xa
0x3feb…401e at000b = ╱52╱R╱ // 0x3ff6 @0xb
0x3feb…401e at000c = ╱45╱E╱ // 0x3ff7 @0xc
0x3feb…401e at000d = ╱53╱S╱ // 0x3ff8 @0xd
0x3feb…401e at000e = ╱ed╱ ( ╱ // 0x3ff9 @0xe
0x3feb…401e at000f = ╱50╱P╱ // 0x3ffa @0xf
0x3feb…401e at0010 = ╱41╱A╱ // 0x3ffb @0x10
0x3feb…401e at0011 = ╱47╱G╱ // 0x3ffc @0x11
0x3feb…401e at0012 = ╱45╱E╱ // 0x3ffd @0x12
0x3feb…401e at0013 = ╱54╱T╱ // 0x3ffe @0x13
0x3feb…401e at0014 = ╱59╱Y╱ // 0x3fff @0x14
0x3feb…401e at0015 = ╱50╱P╱ // 0x4000 @0x15
0x3feb…401e at0016 = ╱45╱E╱ // 0x4001 @0x16
0x3feb…401e at0017 = ╱ef╱ $ ╱ // 0x4002 @0x17
0x3feb…401e at0018 = ╱ec╱ , ╱ // 0x4003 @0x18
0x3feb…401e at0019 = ╱4c╱L╱ // 0x4004 @0x19
0x3feb…401e at001a = ╱49╱I╱ // 0x4005 @0x1a
0x3feb…401e at001b = ╱4e╱N╱ // 0x4006 @0x1b
0x3feb…401e at001c = ╱45╱E╱ // 0x4007 @0x1c
0x3feb…401e at001d = ╱ee╱ ) ╱ // 0x4008 @0x1d
0x3feb…401e at001e = ╱89╱ // ╱ // 0x4009 @0x1e
0x3feb…401e at001f = ╱50╱P╱ // 0x400a @0x1f
0x3feb…401e at0020 = ╱52╱R╱ // 0x400b @0x20
0x3feb…401e at0021 = ╱49╱I╱ // 0x400c @0x21
0x3feb…401e at0022 = ╱4e╱N╱ // 0x400d @0x22
0x3feb…401e at0023 = ╱54╱T╱ // 0x400e @0x23
0x3feb…401e at0024 = ╱45╱E╱ // 0x400f @0x24
0x3feb…401e at0025 = ╱52╱R╱ // 0x4010 @0x25
0x3feb…401e at0026 = ╱20╱…╱ // 0x4011 @0x26
0x3feb…401e at0027 = ╱52╱R╱ // 0x4012 @0x27
0x3feb…401e at0028 = ╱45╱E╱ // 0x4013 @0x28
0x3feb…401e at0029 = ╱53╱S╱ // 0x4014 @0x29
0x3feb…401e at002a = ╱45╱E╱ // 0x4015 @0x2a
0x3feb…401e at002b = ╱52╱R╱ // 0x4016 @0x2b
0x3feb…401e at002c = ╱56╱V╱ // 0x4017 @0x2c
0x3feb…401e at002d = ╱41╱A╱ // 0x4018 @0x2d
0x3feb…401e at002e = ╱54╱T╱ // 0x4019 @0x2e
0x3feb…401e at002f = ╱49╱I╱ // 0x401a @0x2f
0x3feb…401e at0030 = ╱4f╱O╱ // 0x401b @0x30
0x3feb…401e at0031 = ╱4e╱N╱ // 0x401c @0x31
0x3feb…401e at0032 = EOL // 0x401d @0x32
0x3feb…401e }
0x401e…4036 d624 06050 LET PRTNR $ := "1" ; OK := TRUE
0x401e…4036 LineComal80 {
0x401e…4036 ptr = 0xd624 // 0x401e @0x0
0x401e…4036 lno = 0x17a2 // 0x4020 @0x2
0x401e…4036 at0004 = ╱86╱ LET ╱ // 0x4022 @0x4
0x401e…4036 at0005 = ╱50╱P╱ // 0x4023 @0x5
0x401e…4036 at0006 = ╱52╱R╱ // 0x4024 @0x6
0x401e…4036 at0007 = ╱54╱T╱ // 0x4025 @0x7
0x401e…4036 at0008 = ╱4e╱N╱ // 0x4026 @0x8
0x401e…4036 at0009 = ╱52╱R╱ // 0x4027 @0x9
0x401e…4036 at000a = ╱ef╱ $ ╱ // 0x4028 @0xa
0x401e…4036 at000b = ╱f0╱ := ╱ // 0x4029 @0xb
0x401e…4036 at000c = ╱22╱"╱ // 0x402a @0xc
0x401e…4036 at000d = ╱31╱1╱ // 0x402b @0xd
0x401e…4036 at000e = ╱22╱"╱ // 0x402c @0xe
0x401e…4036 at000f = ╱ea╱ ; ╱ // 0x402d @0xf
0x401e…4036 at0010 = ╱4f╱O╱ // 0x402e @0x10
0x401e…4036 at0011 = ╱4b╱K╱ // 0x402f @0x11
0x401e…4036 at0012 = ╱f0╱ := ╱ // 0x4030 @0x12
0x401e…4036 at0013 = ╱54╱T╱ // 0x4031 @0x13
0x401e…4036 at0014 = ╱52╱R╱ // 0x4032 @0x14
0x401e…4036 at0015 = ╱55╱U╱ // 0x4033 @0x15
0x401e…4036 at0016 = ╱45╱E╱ // 0x4034 @0x16
0x401e…4036 at0017 = EOL // 0x4035 @0x17
0x401e…4036 }
0x4036…403d d62b 06060 REPEAT
0x4036…403d LineComal80 {
0x4036…403d ptr = 0xd62b // 0x4036 @0x0
0x4036…403d lno = 0x17ac // 0x4038 @0x2
0x4036…403d at0004 = ╱9700╱ REPEAT ╱ // 0x403a @0x4
0x4036…403d at0006 = EOL // 0x403c @0x6
0x4036…403d }
0x403d…404d d63b 06070 CURSOR 15 , LINE
0x403d…404d LineComal80 {
0x403d…404d ptr = 0xd63b // 0x403d @0x0
0x403d…404d lno = 0x17b6 // 0x403f @0x2
0x403d…404d at0004 = ╱a1╱ CURSOR ╱ // 0x4041 @0x4
0x403d…404d at0005 = ╱31╱1╱ // 0x4042 @0x5
0x403d…404d at0006 = ╱35╱5╱ // 0x4043 @0x6
0x403d…404d at0007 = ╱f20f00╱ // 0x4044 @0x7
0x403d…404d at000a = ╱ec╱ , ╱ // 0x4047 @0xa
0x403d…404d at000b = ╱4c╱L╱ // 0x4048 @0xb
0x403d…404d at000c = ╱49╱I╱ // 0x4049 @0xc
0x403d…404d at000d = ╱4e╱N╱ // 0x404a @0xd
0x403d…404d at000e = ╱45╱E╱ // 0x404b @0xe
0x403d…404d at000f = EOL // 0x404c @0xf
0x403d…404d }
0x404d…4086 d674 06080 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x404d…4086 LineComal80 {
0x404d…4086 ptr = 0xd674 // 0x404d @0x0
0x404d…4086 lno = 0x17c0 // 0x404f @0x2
0x404d…4086 at0004 = ╱b1╱ EDIT ╱ // 0x4051 @0x4
0x404d…4086 at0005 = ╱22╱"╱ // 0x4052 @0x5
0x404d…4086 at0006 = ╱3c╱<╱ // 0x4053 @0x6
0x404d…4086 at0007 = ╱5a╱Z╱ // 0x4054 @0x7
0x404d…4086 at0008 = ╱3e╱>╱ // 0x4055 @0x8
0x404d…4086 at0009 = ╱55╱U╱ // 0x4056 @0x9
0x404d…4086 at000a = ╱64╱d╱ // 0x4057 @0xa
0x404d…4086 at000b = ╱73╱s╱ // 0x4058 @0xb
0x404d…4086 at000c = ╱6b╱k╱ // 0x4059 @0xc
0x404d…4086 at000d = ╱72╱r╱ // 0x405a @0xd
0x404d…4086 at000e = ╱69╱i╱ // 0x405b @0xe
0x404d…4086 at000f = ╱76╱v╱ // 0x405c @0xf
0x404d…4086 at0010 = ╱6e╱n╱ // 0x405d @0x10
0x404d…4086 at0011 = ╱69╱i╱ // 0x405e @0x11
0x404d…4086 at0012 = ╱6e╱n╱ // 0x405f @0x12
0x404d…4086 at0013 = ╱67╱g╱ // 0x4060 @0x13
0x404d…4086 at0014 = ╱20╱…╱ // 0x4061 @0x14
0x404d…4086 at0015 = ╱70╱p╱ // 0x4062 @0x15
0x404d…4086 at0016 = ╱7d╱}╱ // 0x4063 @0x16
0x404d…4086 at0017 = ╱20╱…╱ // 0x4064 @0x17
0x404d…4086 at0018 = ╱70╱p╱ // 0x4065 @0x18
0x404d…4086 at0019 = ╱72╱r╱ // 0x4066 @0x19
0x404d…4086 at001a = ╱69╱i╱ // 0x4067 @0x1a
0x404d…4086 at001b = ╱6e╱n╱ // 0x4068 @0x1b
0x404d…4086 at001c = ╱74╱t╱ // 0x4069 @0x1c
0x404d…4086 at001d = ╱65╱e╱ // 0x406a @0x1d
0x404d…4086 at001e = ╱72╱r╱ // 0x406b @0x1e
0x404d…4086 at001f = ╱20╱…╱ // 0x406c @0x1f
0x404d…4086 at0020 = ╱6e╱n╱ // 0x406d @0x20
0x404d…4086 at0021 = ╱72╱r╱ // 0x406e @0x21
0x404d…4086 at0022 = ╱2e╱.╱ // 0x406f @0x22
0x404d…4086 at0023 = ╱20╱…╱ // 0x4070 @0x23
0x404d…4086 at0024 = ╱3f╱?╱ // 0x4071 @0x24
0x404d…4086 at0025 = ╱20╱…╱ // 0x4072 @0x25
0x404d…4086 at0026 = ╱28╱(╱ // 0x4073 @0x26
0x404d…4086 at0027 = ╱31╱1╱ // 0x4074 @0x27
0x404d…4086 at0028 = ╱2f╱/╱ // 0x4075 @0x28
0x404d…4086 at0029 = ╱32╱2╱ // 0x4076 @0x29
0x404d…4086 at002a = ╱2f╱/╱ // 0x4077 @0x2a
0x404d…4086 at002b = ╱33╱3╱ // 0x4078 @0x2b
0x404d…4086 at002c = ╱2f╱/╱ // 0x4079 @0x2c
0x404d…4086 at002d = ╱34╱4╱ // 0x407a @0x2d
0x404d…4086 at002e = ╱29╱)╱ // 0x407b @0x2e
0x404d…4086 at002f = ╱20╱…╱ // 0x407c @0x2f
0x404d…4086 at0030 = ╱22╱"╱ // 0x407d @0x30
0x404d…4086 at0031 = ╱f1╱ : ╱ // 0x407e @0x31
0x404d…4086 at0032 = ╱50╱P╱ // 0x407f @0x32
0x404d…4086 at0033 = ╱52╱R╱ // 0x4080 @0x33
0x404d…4086 at0034 = ╱54╱T╱ // 0x4081 @0x34
0x404d…4086 at0035 = ╱4e╱N╱ // 0x4082 @0x35
0x404d…4086 at0036 = ╱52╱R╱ // 0x4083 @0x36
0x404d…4086 at0037 = ╱ef╱ $ ╱ // 0x4084 @0x37
0x404d…4086 at0038 = EOL // 0x4085 @0x38
0x404d…4086 }
0x4086…40a6 d694 06090 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x4086…40a6 LineComal80 {
0x4086…40a6 ptr = 0xd694 // 0x4086 @0x0
0x4086…40a6 lno = 0x17ca // 0x4088 @0x2
0x4086…40a6 at0004 = ╱98╱ UNTIL ╱ // 0x408a @0x4
0x4086…40a6 at0005 = ╱22╱"╱ // 0x408b @0x5
0x4086…40a6 at0006 = ╱2f╱/╱ // 0x408c @0x6
0x4086…40a6 at0007 = ╱22╱"╱ // 0x408d @0x7
0x4086…40a6 at0008 = ╱eb╱ + ╱ // 0x408e @0x8
0x4086…40a6 at0009 = ╱50╱P╱ // 0x408f @0x9
0x4086…40a6 at000a = ╱52╱R╱ // 0x4090 @0xa
0x4086…40a6 at000b = ╱54╱T╱ // 0x4091 @0xb
0x4086…40a6 at000c = ╱4e╱N╱ // 0x4092 @0xc
0x4086…40a6 at000d = ╱52╱R╱ // 0x4093 @0xd
0x4086…40a6 at000e = ╱ef╱ $ ╱ // 0x4094 @0xe
0x4086…40a6 at000f = ╱eb╱ + ╱ // 0x4095 @0xf
0x4086…40a6 at0010 = ╱22╱"╱ // 0x4096 @0x10
0x4086…40a6 at0011 = ╱2f╱/╱ // 0x4097 @0x11
0x4086…40a6 at0012 = ╱22╱"╱ // 0x4098 @0x12
0x4086…40a6 at0013 = ╱dc╱ IN ╱ // 0x4099 @0x13
0x4086…40a6 at0014 = ╱22╱"╱ // 0x409a @0x14
0x4086…40a6 at0015 = ╱2f╱/╱ // 0x409b @0x15
0x4086…40a6 at0016 = ╱31╱1╱ // 0x409c @0x16
0x4086…40a6 at0017 = ╱2f╱/╱ // 0x409d @0x17
0x4086…40a6 at0018 = ╱32╱2╱ // 0x409e @0x18
0x4086…40a6 at0019 = ╱2f╱/╱ // 0x409f @0x19
0x4086…40a6 at001a = ╱33╱3╱ // 0x40a0 @0x1a
0x4086…40a6 at001b = ╱2f╱/╱ // 0x40a1 @0x1b
0x4086…40a6 at001c = ╱34╱4╱ // 0x40a2 @0x1c
0x4086…40a6 at001d = ╱2f╱/╱ // 0x40a3 @0x1d
0x4086…40a6 at001e = ╱22╱"╱ // 0x40a4 @0x1e
0x4086…40a6 at001f = EOL // 0x40a5 @0x1f
0x4086…40a6 }
0x40a6…40ca d6b8 06100 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x40a6…40ca LineComal80 {
0x40a6…40ca ptr = 0xd6b8 // 0x40a6 @0x0
0x40a6…40ca lno = 0x17d4 // 0x40a8 @0x2
0x40a6…40ca at0004 = ╱a1╱ CURSOR ╱ // 0x40aa @0x4
0x40a6…40ca at0005 = ╱ed╱ ( ╱ // 0x40ab @0x5
0x40a6…40ca at0006 = ╱33╱3╱ // 0x40ac @0x6
0x40a6…40ca at0007 = ╱39╱9╱ // 0x40ad @0x7
0x40a6…40ca at0008 = ╱f22700╱ // 0x40ae @0x8
0x40a6…40ca at000b = ╱e6╱ - ╱ // 0x40b1 @0xb
0x40a6…40ca at000c = ╱cb╱ // 0x40b2 @0xc
0x40a6…40ca at000d = ╱ed╱ ( ╱ // 0x40b3 @0xd
0x40a6…40ca at000e = ╱50╱P╱ // 0x40b4 @0xe
0x40a6…40ca at000f = ╱41╱A╱ // 0x40b5 @0xf
0x40a6…40ca at0010 = ╱47╱G╱ // 0x40b6 @0x10
0x40a6…40ca at0011 = ╱45╱E╱ // 0x40b7 @0x11
0x40a6…40ca at0012 = ╱54╱T╱ // 0x40b8 @0x12
0x40a6…40ca at0013 = ╱59╱Y╱ // 0x40b9 @0x13
0x40a6…40ca at0014 = ╱50╱P╱ // 0x40ba @0x14
0x40a6…40ca at0015 = ╱45╱E╱ // 0x40bb @0x15
0x40a6…40ca at0016 = ╱ef╱ $ ╱ // 0x40bc @0x16
0x40a6…40ca at0017 = ╱ee╱ ) ╱ // 0x40bd @0x17
0x40a6…40ca at0018 = ╱ee╱ ) ╱ // 0x40be @0x18
0x40a6…40ca at0019 = ╱da╱ DIV ╱ // 0x40bf @0x19
0x40a6…40ca at001a = ╱32╱2╱ // 0x40c0 @0x1a
0x40a6…40ca at001b = ╱f20200╱ // 0x40c1 @0x1b
0x40a6…40ca at001e = ╱ec╱ , ╱ // 0x40c4 @0x1e
0x40a6…40ca at001f = ╱4c╱L╱ // 0x40c5 @0x1f
0x40a6…40ca at0020 = ╱49╱I╱ // 0x40c6 @0x20
0x40a6…40ca at0021 = ╱4e╱N╱ // 0x40c7 @0x21
0x40a6…40ca at0022 = ╱45╱E╱ // 0x40c8 @0x22
0x40a6…40ca at0023 = EOL // 0x40c9 @0x23
0x40a6…40ca }
0x40ca…410a d6f8 06110 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x40ca…410a LineComal80 {
0x40ca…410a ptr = 0xd6f8 // 0x40ca @0x0
0x40ca…410a lno = 0x17de // 0x40cc @0x2
0x40ca…410a at0004 = ╱92╱ PRINT ╱ // 0x40ce @0x4
0x40ca…410a at0005 = ╱22╱"╱ // 0x40cf @0x5
0x40ca…410a at0006 = ╱3c╱<╱ // 0x40d0 @0x6
0x40ca…410a at0007 = ╱53╱S╱ // 0x40d1 @0x7
0x40ca…410a at0008 = ╱5a╱Z╱ // 0x40d2 @0x8
0x40ca…410a at0009 = ╱3e╱>╱ // 0x40d3 @0x9
0x40ca…410a at000a = ╱20╱…╱ // 0x40d4 @0xa
0x40ca…410a at000b = ╱20╱…╱ // 0x40d5 @0xb
0x40ca…410a at000c = ╱20╱…╱ // 0x40d6 @0xc
0x40ca…410a at000d = ╱20╱…╱ // 0x40d7 @0xd
0x40ca…410a at000e = ╱20╱…╱ // 0x40d8 @0xe
0x40ca…410a at000f = ╱4d╱M╱ // 0x40d9 @0xf
0x40ca…410a at0010 = ╱6f╱o╱ // 0x40da @0x10
0x40ca…410a at0011 = ╱6e╱n╱ // 0x40db @0x11
0x40ca…410a at0012 = ╱74╱t╱ // 0x40dc @0x12
0x40ca…410a at0013 = ╱65╱e╱ // 0x40dd @0x13
0x40ca…410a at0014 = ╱72╱r╱ // 0x40de @0x14
0x40ca…410a at0015 = ╱20╱…╱ // 0x40df @0x15
0x40ca…410a at0016 = ╱22╱"╱ // 0x40e0 @0x16
0x40ca…410a at0017 = ╱ea╱ ; ╱ // 0x40e1 @0x17
0x40ca…410a at0018 = ╱50╱P╱ // 0x40e2 @0x18
0x40ca…410a at0019 = ╱41╱A╱ // 0x40e3 @0x19
0x40ca…410a at001a = ╱47╱G╱ // 0x40e4 @0x1a
0x40ca…410a at001b = ╱45╱E╱ // 0x40e5 @0x1b
0x40ca…410a at001c = ╱54╱T╱ // 0x40e6 @0x1c
0x40ca…410a at001d = ╱59╱Y╱ // 0x40e7 @0x1d
0x40ca…410a at001e = ╱50╱P╱ // 0x40e8 @0x1e
0x40ca…410a at001f = ╱45╱E╱ // 0x40e9 @0x1f
0x40ca…410a at0020 = ╱ef╱ $ ╱ // 0x40ea @0x20
0x40ca…410a at0021 = ╱ea╱ ; ╱ // 0x40eb @0x21
0x40ca…410a at0022 = ╱22╱"╱ // 0x40ec @0x22
0x40ca…410a at0023 = ╱20╱…╱ // 0x40ed @0x23
0x40ca…410a at0024 = ╱69╱i╱ // 0x40ee @0x24
0x40ca…410a at0025 = ╱20╱…╱ // 0x40ef @0x25
0x40ca…410a at0026 = ╱70╱p╱ // 0x40f0 @0x26
0x40ca…410a at0027 = ╱72╱r╱ // 0x40f1 @0x27
0x40ca…410a at0028 = ╱69╱i╱ // 0x40f2 @0x28
0x40ca…410a at0029 = ╱6e╱n╱ // 0x40f3 @0x29
0x40ca…410a at002a = ╱74╱t╱ // 0x40f4 @0x2a
0x40ca…410a at002b = ╱65╱e╱ // 0x40f5 @0x2b
0x40ca…410a at002c = ╱72╱r╱ // 0x40f6 @0x2c
0x40ca…410a at002d = ╱65╱e╱ // 0x40f7 @0x2d
0x40ca…410a at002e = ╱6e╱n╱ // 0x40f8 @0x2e
0x40ca…410a at002f = ╱20╱…╱ // 0x40f9 @0x2f
0x40ca…410a at0030 = ╱2d╱-╱ // 0x40fa @0x30
0x40ca…410a at0031 = ╱20╱…╱ // 0x40fb @0x31
0x40ca…410a at0032 = ╱74╱t╱ // 0x40fc @0x32
0x40ca…410a at0033 = ╱72╱r╱ // 0x40fd @0x33
0x40ca…410a at0034 = ╱79╱y╱ // 0x40fe @0x34
0x40ca…410a at0035 = ╱6b╱k╱ // 0x40ff @0x35
0x40ca…410a at0036 = ╱20╱…╱ // 0x4100 @0x36
0x40ca…410a at0037 = ╱52╱R╱ // 0x4101 @0x37
0x40ca…410a at0038 = ╱45╱E╱ // 0x4102 @0x38
0x40ca…410a at0039 = ╱54╱T╱ // 0x4103 @0x39
0x40ca…410a at003a = ╱55╱U╱ // 0x4104 @0x3a
0x40ca…410a at003b = ╱52╱R╱ // 0x4105 @0x3b
0x40ca…410a at003c = ╱4e╱N╱ // 0x4106 @0x3c
0x40ca…410a at003d = ╱20╱…╱ // 0x4107 @0x3d
0x40ca…410a at003e = ╱22╱"╱ // 0x4108 @0x3e
0x40ca…410a at003f = EOL // 0x4109 @0x3f
0x40ca…410a }
0x410a…4118 d706 06120 INPUT "" : SVAR $
0x410a…4118 LineComal80 {
0x410a…4118 ptr = 0xd706 // 0x410a @0x0
0x410a…4118 lno = 0x17e8 // 0x410c @0x2
0x410a…4118 at0004 = ╱91╱ INPUT ╱ // 0x410e @0x4
0x410a…4118 at0005 = ╱22╱"╱ // 0x410f @0x5
0x410a…4118 at0006 = ╱22╱"╱ // 0x4110 @0x6
0x410a…4118 at0007 = ╱f1╱ : ╱ // 0x4111 @0x7
0x410a…4118 at0008 = ╱53╱S╱ // 0x4112 @0x8
0x410a…4118 at0009 = ╱56╱V╱ // 0x4113 @0x9
0x410a…4118 at000a = ╱41╱A╱ // 0x4114 @0xa
0x410a…4118 at000b = ╱52╱R╱ // 0x4115 @0xb
0x410a…4118 at000c = ╱ef╱ $ ╱ // 0x4116 @0xc
0x410a…4118 at000d = EOL // 0x4117 @0xd
0x410a…4118 }
0x4118…4128 d716 06130 SELECT OUTPUT "P" + PRTNR $
0x4118…4128 LineComal80 {
0x4118…4128 ptr = 0xd716 // 0x4118 @0x0
0x4118…4128 lno = 0x17f2 // 0x411a @0x2
0x4118…4128 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x411c @0x4
0x4118…4128 at0005 = ╱22╱"╱ // 0x411d @0x5
0x4118…4128 at0006 = ╱50╱P╱ // 0x411e @0x6
0x4118…4128 at0007 = ╱22╱"╱ // 0x411f @0x7
0x4118…4128 at0008 = ╱eb╱ + ╱ // 0x4120 @0x8
0x4118…4128 at0009 = ╱50╱P╱ // 0x4121 @0x9
0x4118…4128 at000a = ╱52╱R╱ // 0x4122 @0xa
0x4118…4128 at000b = ╱54╱T╱ // 0x4123 @0xb
0x4118…4128 at000c = ╱4e╱N╱ // 0x4124 @0xc
0x4118…4128 at000d = ╱52╱R╱ // 0x4125 @0xd
0x4118…4128 at000e = ╱ef╱ $ ╱ // 0x4126 @0xe
0x4118…4128 at000f = EOL // 0x4127 @0xf
0x4118…4128 }
0x4128…4136 d724 06140 IF ( "P" ) THEN
0x4128…4136 LineComal80 {
0x4128…4136 ptr = 0xd724 // 0x4128 @0x0
0x4128…4136 lno = 0x17fc // 0x412a @0x2
0x4128…4136 at0004 = ╱9b00cd╱ IF ╱ // 0x412c @0x4
0x4128…4136 at0007 = ╱ed╱ ( ╱ // 0x412f @0x7
0x4128…4136 at0008 = ╱22╱"╱ // 0x4130 @0x8
0x4128…4136 at0009 = ╱50╱P╱ // 0x4131 @0x9
0x4128…4136 at000a = ╱22╱"╱ // 0x4132 @0xa
0x4128…4136 at000b = ╱ee╱ ) ╱ // 0x4133 @0xb
0x4128…4136 at000c = ╱b5╱ THEN ╱ // 0x4134 @0xc
0x4128…4136 at000d = EOL // 0x4135 @0xd
0x4128…4136 }
0x4136…4146 d734 06150 CURSOR 12 , LINE
0x4136…4146 LineComal80 {
0x4136…4146 ptr = 0xd734 // 0x4136 @0x0
0x4136…4146 lno = 0x1806 // 0x4138 @0x2
0x4136…4146 at0004 = ╱a1╱ CURSOR ╱ // 0x413a @0x4
0x4136…4146 at0005 = ╱31╱1╱ // 0x413b @0x5
0x4136…4146 at0006 = ╱32╱2╱ // 0x413c @0x6
0x4136…4146 at0007 = ╱f20c00╱ // 0x413d @0x7
0x4136…4146 at000a = ╱ec╱ , ╱ // 0x4140 @0xa
0x4136…4146 at000b = ╱4c╱L╱ // 0x4141 @0xb
0x4136…4146 at000c = ╱49╱I╱ // 0x4142 @0xc
0x4136…4146 at000d = ╱4e╱N╱ // 0x4143 @0xd
0x4136…4146 at000e = ╱45╱E╱ // 0x4144 @0xe
0x4136…4146 at000f = EOL // 0x4145 @0xf
0x4136…4146 }
0x4146…417d d76b 06160 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x4146…417d LineComal80 {
0x4146…417d ptr = 0xd76b // 0x4146 @0x0
0x4146…417d lno = 0x1810 // 0x4148 @0x2
0x4146…417d at0004 = ╱92╱ PRINT ╱ // 0x414a @0x4
0x4146…417d at0005 = ╱22╱"╱ // 0x414b @0x5
0x4146…417d at0006 = ╱3c╱<╱ // 0x414c @0x6
0x4146…417d at0007 = ╱53╱S╱ // 0x414d @0x7
0x4146…417d at0008 = ╱5a╱Z╱ // 0x414e @0x8
0x4146…417d at0009 = ╱3e╱>╱ // 0x414f @0x9
0x4146…417d at000a = ╱50╱P╱ // 0x4150 @0xa
0x4146…417d at000b = ╱72╱r╱ // 0x4151 @0xb
0x4146…417d at000c = ╱69╱i╱ // 0x4152 @0xc
0x4146…417d at000d = ╱6e╱n╱ // 0x4153 @0xd
0x4146…417d at000e = ╱74╱t╱ // 0x4154 @0xe
0x4146…417d at000f = ╱65╱e╱ // 0x4155 @0xf
0x4146…417d at0010 = ╱72╱r╱ // 0x4156 @0x10
0x4146…417d at0011 = ╱65╱e╱ // 0x4157 @0x11
0x4146…417d at0012 = ╱6e╱n╱ // 0x4158 @0x12
0x4146…417d at0013 = ╱20╱…╱ // 0x4159 @0x13
0x4146…417d at0014 = ╱65╱e╱ // 0x415a @0x14
0x4146…417d at0015 = ╱72╱r╱ // 0x415b @0x15
0x4146…417d at0016 = ╱20╱…╱ // 0x415c @0x16
0x4146…417d at0017 = ╱72╱r╱ // 0x415d @0x17
0x4146…417d at0018 = ╱65╱e╱ // 0x415e @0x18
0x4146…417d at0019 = ╱73╱s╱ // 0x415f @0x19
0x4146…417d at001a = ╱65╱e╱ // 0x4160 @0x1a
0x4146…417d at001b = ╱72╱r╱ // 0x4161 @0x1b
0x4146…417d at001c = ╱76╱v╱ // 0x4162 @0x1c
0x4146…417d at001d = ╱65╱e╱ // 0x4163 @0x1d
0x4146…417d at001e = ╱72╱r╱ // 0x4164 @0x1e
0x4146…417d at001f = ╱65╱e╱ // 0x4165 @0x1f
0x4146…417d at0020 = ╱74╱t╱ // 0x4166 @0x20
0x4146…417d at0021 = ╱20╱…╱ // 0x4167 @0x21
0x4146…417d at0022 = ╱61╱a╱ // 0x4168 @0x22
0x4146…417d at0023 = ╱66╱f╱ // 0x4169 @0x23
0x4146…417d at0024 = ╱20╱…╱ // 0x416a @0x24
0x4146…417d at0025 = ╱65╱e╱ // 0x416b @0x25
0x4146…417d at0026 = ╱6e╱n╱ // 0x416c @0x26
0x4146…417d at0027 = ╱20╱…╱ // 0x416d @0x27
0x4146…417d at0028 = ╱61╱a╱ // 0x416e @0x28
0x4146…417d at0029 = ╱6e╱n╱ // 0x416f @0x29
0x4146…417d at002a = ╱64╱d╱ // 0x4170 @0x2a
0x4146…417d at002b = ╱65╱e╱ // 0x4171 @0x2b
0x4146…417d at002c = ╱6e╱n╱ // 0x4172 @0x2c
0x4146…417d at002d = ╱20╱…╱ // 0x4173 @0x2d
0x4146…417d at002e = ╱62╱b╱ // 0x4174 @0x2e
0x4146…417d at002f = ╱72╱r╱ // 0x4175 @0x2f
0x4146…417d at0030 = ╱75╱u╱ // 0x4176 @0x30
0x4146…417d at0031 = ╱67╱g╱ // 0x4177 @0x31
0x4146…417d at0032 = ╱65╱e╱ // 0x4178 @0x32
0x4146…417d at0033 = ╱72╱r╱ // 0x4179 @0x33
0x4146…417d at0034 = ╱2c╱,╱ // 0x417a @0x34
0x4146…417d at0035 = ╱22╱"╱ // 0x417b @0x35
0x4146…417d at0036 = EOL // 0x417c @0x36
0x4146…417d }
0x417d…4192 d780 06170 CURSOR 12 , LINE + 1
0x417d…4192 LineComal80 {
0x417d…4192 ptr = 0xd780 // 0x417d @0x0
0x417d…4192 lno = 0x181a // 0x417f @0x2
0x417d…4192 at0004 = ╱a1╱ CURSOR ╱ // 0x4181 @0x4
0x417d…4192 at0005 = ╱31╱1╱ // 0x4182 @0x5
0x417d…4192 at0006 = ╱32╱2╱ // 0x4183 @0x6
0x417d…4192 at0007 = ╱f20c00╱ // 0x4184 @0x7
0x417d…4192 at000a = ╱ec╱ , ╱ // 0x4187 @0xa
0x417d…4192 at000b = ╱4c╱L╱ // 0x4188 @0xb
0x417d…4192 at000c = ╱49╱I╱ // 0x4189 @0xc
0x417d…4192 at000d = ╱4e╱N╱ // 0x418a @0xd
0x417d…4192 at000e = ╱45╱E╱ // 0x418b @0xe
0x417d…4192 at000f = ╱e5╱ + ╱ // 0x418c @0xf
0x417d…4192 at0010 = ╱31╱1╱ // 0x418d @0x10
0x417d…4192 at0011 = ╱f20100╱ // 0x418e @0x11
0x417d…4192 at0014 = EOL // 0x4191 @0x14
0x417d…4192 }
0x4192…41d3 (218,) d7c1 06180 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x4192…41d3 LineComal80 {
0x4192…41d3 ptr = 0xd7c1 // 0x4192 @0x0
0x4192…41d3 lno = 0x1824 // 0x4194 @0x2
0x4192…41d3 at0004 = ╱91╱ INPUT ╱ // 0x4196 @0x4
0x4192…41d3 at0005 = ╱22╱"╱ // 0x4197 @0x5
0x4192…41d3 at0006 = ╱3c╱<╱ // 0x4198 @0x6
0x4192…41d3 at0007 = ╱53╱S╱ // 0x4199 @0x7
0x4192…41d3 at0008 = ╱5a╱Z╱ // 0x419a @0x8
0x4192…41d3 at0009 = ╱3e╱>╱ // 0x419b @0x9
0x4192…41d3 at000a = ╱53╱S╱ // 0x419c @0xa
0x4192…41d3 at000b = ╱6b╱k╱ // 0x419d @0xb
0x4192…41d3 at000c = ╱61╱a╱ // 0x419e @0xc
0x4192…41d3 at000d = ╱6c╱l╱ // 0x419f @0xd
0x4192…41d3 at000e = ╱20╱…╱ // 0x41a0 @0xe
0x4192…41d3 at000f = ╱64╱d╱ // 0x41a1 @0xf
0x4192…41d3 at0010 = ╱65╱e╱ // 0x41a2 @0x10
0x4192…41d3 at0011 = ╱72╱r╱ // 0x41a3 @0x11
0x4192…41d3 at0012 = ╱20╱…╱ // 0x41a4 @0x12
0x4192…41d3 at0013 = ╱76╱v╱ // 0x41a5 @0x13
0x4192…41d3 at0014 = ╱65╱e╱ // 0x41a6 @0x14
0x4192…41d3 at0015 = ╱6e╱n╱ // 0x41a7 @0x15
0x4192…41d3 at0016 = ╱74╱t╱ // 0x41a8 @0x16
0x4192…41d3 at0017 = ╱65╱e╱ // 0x41a9 @0x17
0x4192…41d3 at0018 = ╱73╱s╱ // 0x41aa @0x18
0x4192…41d3 at0019 = ╱20╱…╱ // 0x41ab @0x19
0x4192…41d3 at001a = ╱70╱p╱ // 0x41ac @0x1a
0x4192…41d3 at001b = ╱7d╱}╱ // 0x41ad @0x1b
0x4192…41d3 at001c = ╱20╱…╱ // 0x41ae @0x1c
0x4192…41d3 at001d = ╱61╱a╱ // 0x41af @0x1d
0x4192…41d3 at001e = ╱74╱t╱ // 0x41b0 @0x1e
0x4192…41d3 at001f = ╱20╱…╱ // 0x41b1 @0x1f
0x4192…41d3 at0020 = ╱64╱d╱ // 0x41b2 @0x20
0x4192…41d3 at0021 = ╱65╱e╱ // 0x41b3 @0x21
0x4192…41d3 at0022 = ╱6e╱n╱ // 0x41b4 @0x22
0x4192…41d3 at0023 = ╱20╱…╱ // 0x41b5 @0x23
0x4192…41d3 at0024 = ╱62╱b╱ // 0x41b6 @0x24
0x4192…41d3 at0025 = ╱6c╱l╱ // 0x41b7 @0x25
0x4192…41d3 at0026 = ╱69╱i╱ // 0x41b8 @0x26
0x4192…41d3 at0027 = ╱76╱v╱ // 0x41b9 @0x27
0x4192…41d3 at0028 = ╱65╱e╱ // 0x41ba @0x28
0x4192…41d3 at0029 = ╱72╱r╱ // 0x41bb @0x29
0x4192…41d3 at002a = ╱20╱…╱ // 0x41bc @0x2a
0x4192…41d3 at002b = ╱6c╱l╱ // 0x41bd @0x2b
0x4192…41d3 at002c = ╱65╱e╱ // 0x41be @0x2c
0x4192…41d3 at002d = ╱64╱d╱ // 0x41bf @0x2d
0x4192…41d3 at002e = ╱69╱i╱ // 0x41c0 @0x2e
0x4192…41d3 at002f = ╱67╱g╱ // 0x41c1 @0x2f
0x4192…41d3 at0030 = ╱20╱…╱ // 0x41c2 @0x30
0x4192…41d3 at0031 = ╱3f╱?╱ // 0x41c3 @0x31
0x4192…41d3 at0032 = ╱20╱…╱ // 0x41c4 @0x32
0x4192…41d3 at0033 = ╱28╱(╱ // 0x41c5 @0x33
0x4192…41d3 at0034 = ╱6a╱j╱ // 0x41c6 @0x34
0x4192…41d3 at0035 = ╱2f╱/╱ // 0x41c7 @0x35
0x4192…41d3 at0036 = ╱6e╱n╱ // 0x41c8 @0x36
0x4192…41d3 at0037 = ╱29╱)╱ // 0x41c9 @0x37
0x4192…41d3 at0038 = ╱20╱…╱ // 0x41ca @0x38
0x4192…41d3 at0039 = ╱22╱"╱ // 0x41cb @0x39
0x4192…41d3 at003a = ╱f1╱ : ╱ // 0x41cc @0x3a
0x4192…41d3 at003b = ╱53╱S╱ // 0x41cd @0x3b
0x4192…41d3 at003c = ╱56╱V╱ // 0x41ce @0x3c
0x4192…41d3 at003d = ╱41╱A╱ // 0x41cf @0x3d
0x4192…41d3 at003e = ╱52╱R╱ // 0x41d0 @0x3e
0x4192…41d3 at003f = ╱ef╱ $ ╱ // 0x41d1 @0x3f
0x4192…41d3 at0040 = EOL // 0x41d2 @0x40
0x4192…41d3 }
0x41d3…41ee d7dc 06190 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x41d3…41ee LineComal80 {
0x41d3…41ee ptr = 0xd7dc // 0x41d3 @0x0
0x41d3…41ee lno = 0x182e // 0x41d5 @0x2
0x41d3…41ee at0004 = ╱9b0053╱ IF ╱ // 0x41d7 @0x4
0x41d3…41ee at0007 = ╱56╱V╱ // 0x41da @0x7
0x41d3…41ee at0008 = ╱41╱A╱ // 0x41db @0x8
0x41d3…41ee at0009 = ╱52╱R╱ // 0x41dc @0x9
0x41d3…41ee at000a = ╱ef╱ $ ╱ // 0x41dd @0xa
0x41d3…41ee at000b = ╱df╱ = ╱ // 0x41de @0xb
0x41d3…41ee at000c = ╱22╱"╱ // 0x41df @0xc
0x41d3…41ee at000d = ╱4a╱J╱ // 0x41e0 @0xd
0x41d3…41ee at000e = ╱22╱"╱ // 0x41e1 @0xe
0x41d3…41ee at000f = ╱d8╱ OR ╱ // 0x41e2 @0xf
0x41d3…41ee at0010 = ╱53╱S╱ // 0x41e3 @0x10
0x41d3…41ee at0011 = ╱56╱V╱ // 0x41e4 @0x11
0x41d3…41ee at0012 = ╱41╱A╱ // 0x41e5 @0x12
0x41d3…41ee at0013 = ╱52╱R╱ // 0x41e6 @0x13
0x41d3…41ee at0014 = ╱ef╱ $ ╱ // 0x41e7 @0x14
0x41d3…41ee at0015 = ╱df╱ = ╱ // 0x41e8 @0x15
0x41d3…41ee at0016 = ╱22╱"╱ // 0x41e9 @0x16
0x41d3…41ee at0017 = ╱6a╱j╱ // 0x41ea @0x17
0x41d3…41ee at0018 = ╱22╱"╱ // 0x41eb @0x18
0x41d3…41ee at0019 = ╱b5╱ THEN ╱ // 0x41ec @0x19
0x41d3…41ee at001a = EOL // 0x41ed @0x1a
0x41d3…41ee }
0x41ee…41fe d7ec 06200 CURSOR 12 , LINE
0x41ee…41fe LineComal80 {
0x41ee…41fe ptr = 0xd7ec // 0x41ee @0x0
0x41ee…41fe lno = 0x1838 // 0x41f0 @0x2
0x41ee…41fe at0004 = ╱a1╱ CURSOR ╱ // 0x41f2 @0x4
0x41ee…41fe at0005 = ╱31╱1╱ // 0x41f3 @0x5
0x41ee…41fe at0006 = ╱32╱2╱ // 0x41f4 @0x6
0x41ee…41fe at0007 = ╱f20c00╱ // 0x41f5 @0x7
0x41ee…41fe at000a = ╱ec╱ , ╱ // 0x41f8 @0xa
0x41ee…41fe at000b = ╱4c╱L╱ // 0x41f9 @0xb
0x41ee…41fe at000c = ╱49╱I╱ // 0x41fa @0xc
0x41ee…41fe at000d = ╱4e╱N╱ // 0x41fb @0xd
0x41ee…41fe at000e = ╱45╱E╱ // 0x41fc @0xe
0x41ee…41fe at000f = EOL // 0x41fd @0xf
0x41ee…41fe }
0x41fe…4239 d827 06210 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x41fe…4239 LineComal80 {
0x41fe…4239 ptr = 0xd827 // 0x41fe @0x0
0x41fe…4239 lno = 0x1842 // 0x4200 @0x2
0x41fe…4239 at0004 = ╱92╱ PRINT ╱ // 0x4202 @0x4
0x41fe…4239 at0005 = ╱22╱"╱ // 0x4203 @0x5
0x41fe…4239 at0006 = ╱3c╱<╱ // 0x4204 @0x6
0x41fe…4239 at0007 = ╱5a╱Z╱ // 0x4205 @0x7
0x41fe…4239 at0008 = ╱3e╱>╱ // 0x4206 @0x8
0x41fe…4239 at0009 = ╱20╱…╱ // 0x4207 @0x9
0x41fe…4239 at000a = ╱20╱…╱ // 0x4208 @0xa
0x41fe…4239 at000b = ╱20╱…╱ // 0x4209 @0xb
0x41fe…4239 at000c = ╱20╱…╱ // 0x420a @0xc
0x41fe…4239 at000d = ╱20╱…╱ // 0x420b @0xd
0x41fe…4239 at000e = ╱44╱D╱ // 0x420c @0xe
0x41fe…4239 at000f = ╱65╱e╱ // 0x420d @0xf
0x41fe…4239 at0010 = ╱72╱r╱ // 0x420e @0x10
0x41fe…4239 at0011 = ╱20╱…╱ // 0x420f @0x11
0x41fe…4239 at0012 = ╱76╱v╱ // 0x4210 @0x12
0x41fe…4239 at0013 = ╱65╱e╱ // 0x4211 @0x13
0x41fe…4239 at0014 = ╱6e╱n╱ // 0x4212 @0x14
0x41fe…4239 at0015 = ╱74╱t╱ // 0x4213 @0x15
0x41fe…4239 at0016 = ╱65╱e╱ // 0x4214 @0x16
0x41fe…4239 at0017 = ╱73╱s╱ // 0x4215 @0x17
0x41fe…4239 at0018 = ╱20╱…╱ // 0x4216 @0x18
0x41fe…4239 at0019 = ╱70╱p╱ // 0x4217 @0x19
0x41fe…4239 at001a = ╱7d╱}╱ // 0x4218 @0x1a
0x41fe…4239 at001b = ╱20╱…╱ // 0x4219 @0x1b
0x41fe…4239 at001c = ╱61╱a╱ // 0x421a @0x1c
0x41fe…4239 at001d = ╱74╱t╱ // 0x421b @0x1d
0x41fe…4239 at001e = ╱20╱…╱ // 0x421c @0x1e
0x41fe…4239 at001f = ╱70╱p╱ // 0x421d @0x1f
0x41fe…4239 at0020 = ╱72╱r╱ // 0x421e @0x20
0x41fe…4239 at0021 = ╱69╱i╱ // 0x421f @0x21
0x41fe…4239 at0022 = ╱6e╱n╱ // 0x4220 @0x22
0x41fe…4239 at0023 = ╱74╱t╱ // 0x4221 @0x23
0x41fe…4239 at0024 = ╱65╱e╱ // 0x4222 @0x24
0x41fe…4239 at0025 = ╱72╱r╱ // 0x4223 @0x25
0x41fe…4239 at0026 = ╱65╱e╱ // 0x4224 @0x26
0x41fe…4239 at0027 = ╱6e╱n╱ // 0x4225 @0x27
0x41fe…4239 at0028 = ╱20╱…╱ // 0x4226 @0x28
0x41fe…4239 at0029 = ╱62╱b╱ // 0x4227 @0x29
0x41fe…4239 at002a = ╱6c╱l╱ // 0x4228 @0x2a
0x41fe…4239 at002b = ╱69╱i╱ // 0x4229 @0x2b
0x41fe…4239 at002c = ╱76╱v╱ // 0x422a @0x2c
0x41fe…4239 at002d = ╱65╱e╱ // 0x422b @0x2d
0x41fe…4239 at002e = ╱72╱r╱ // 0x422c @0x2e
0x41fe…4239 at002f = ╱20╱…╱ // 0x422d @0x2f
0x41fe…4239 at0030 = ╱6c╱l╱ // 0x422e @0x30
0x41fe…4239 at0031 = ╱65╱e╱ // 0x422f @0x31
0x41fe…4239 at0032 = ╱64╱d╱ // 0x4230 @0x32
0x41fe…4239 at0033 = ╱69╱i╱ // 0x4231 @0x33
0x41fe…4239 at0034 = ╱67╱g╱ // 0x4232 @0x34
0x41fe…4239 at0035 = ╱2e╱.╱ // 0x4233 @0x35
0x41fe…4239 at0036 = ╱2e╱.╱ // 0x4234 @0x36
0x41fe…4239 at0037 = ╱2e╱.╱ // 0x4235 @0x37
0x41fe…4239 at0038 = ╱2e╱.╱ // 0x4236 @0x38
0x41fe…4239 at0039 = ╱22╱"╱ // 0x4237 @0x39
0x41fe…4239 at003a = EOL // 0x4238 @0x3a
0x41fe…4239 }
0x4239…4245 d833 06220 PRINT "<SZ>"
0x4239…4245 LineComal80 {
0x4239…4245 ptr = 0xd833 // 0x4239 @0x0
0x4239…4245 lno = 0x184c // 0x423b @0x2
0x4239…4245 at0004 = ╱92╱ PRINT ╱ // 0x423d @0x4
0x4239…4245 at0005 = ╱22╱"╱ // 0x423e @0x5
0x4239…4245 at0006 = ╱3c╱<╱ // 0x423f @0x6
0x4239…4245 at0007 = ╱53╱S╱ // 0x4240 @0x7
0x4239…4245 at0008 = ╱5a╱Z╱ // 0x4241 @0x8
0x4239…4245 at0009 = ╱3e╱>╱ // 0x4242 @0x9
0x4239…4245 at000a = ╱22╱"╱ // 0x4243 @0xa
0x4239…4245 at000b = EOL // 0x4244 @0xb
0x4239…4245 }
0x4245…4253 d841 06230 WHILE ╱cd╱ ( "P" ) DO
0x4245…4253 LineComal80 {
0x4245…4253 ptr = 0xd841 // 0x4245 @0x0
0x4245…4253 lno = 0x1856 // 0x4247 @0x2
0x4245…4253 at0004 = ╱9300╱ WHILE ╱ // 0x4249 @0x4
0x4245…4253 at0006 = ╱cd╱ // 0x424b @0x6
0x4245…4253 at0007 = ╱ed╱ ( ╱ // 0x424c @0x7
0x4245…4253 at0008 = ╱22╱"╱ // 0x424d @0x8
0x4245…4253 at0009 = ╱50╱P╱ // 0x424e @0x9
0x4245…4253 at000a = ╱22╱"╱ // 0x424f @0xa
0x4245…4253 at000b = ╱ee╱ ) ╱ // 0x4250 @0xb
0x4245…4253 at000c = ╱bb╱ DO ╱ // 0x4251 @0xc
0x4245…4253 at000d = EOL // 0x4252 @0xd
0x4245…4253 }
0x4253…4264 d852 06240 LET SEK := ╱ca╱ ( 5 )
0x4253…4264 LineComal80 {
0x4253…4264 ptr = 0xd852 // 0x4253 @0x0
0x4253…4264 lno = 0x1860 // 0x4255 @0x2
0x4253…4264 at0004 = ╱86╱ LET ╱ // 0x4257 @0x4
0x4253…4264 at0005 = ╱53╱S╱ // 0x4258 @0x5
0x4253…4264 at0006 = ╱45╱E╱ // 0x4259 @0x6
0x4253…4264 at0007 = ╱4b╱K╱ // 0x425a @0x7
0x4253…4264 at0008 = ╱f0╱ := ╱ // 0x425b @0x8
0x4253…4264 at0009 = ╱ca╱ // 0x425c @0x9
0x4253…4264 at000a = ╱ed╱ ( ╱ // 0x425d @0xa
0x4253…4264 at000b = ╱35╱5╱ // 0x425e @0xb
0x4253…4264 at000c = ╱f20500╱ // 0x425f @0xc
0x4253…4264 at000f = ╱ee╱ ) ╱ // 0x4262 @0xf
0x4253…4264 at0010 = EOL // 0x4263 @0x10
0x4253…4264 }
0x4264…4274 d862 06250 SELECT OUTPUT "P" + PRTNR $
0x4264…4274 LineComal80 {
0x4264…4274 ptr = 0xd862 // 0x4264 @0x0
0x4264…4274 lno = 0x186a // 0x4266 @0x2
0x4264…4274 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x4268 @0x4
0x4264…4274 at0005 = ╱22╱"╱ // 0x4269 @0x5
0x4264…4274 at0006 = ╱50╱P╱ // 0x426a @0x6
0x4264…4274 at0007 = ╱22╱"╱ // 0x426b @0x7
0x4264…4274 at0008 = ╱eb╱ + ╱ // 0x426c @0x8
0x4264…4274 at0009 = ╱50╱P╱ // 0x426d @0x9
0x4264…4274 at000a = ╱52╱R╱ // 0x426e @0xa
0x4264…4274 at000b = ╱54╱T╱ // 0x426f @0xb
0x4264…4274 at000c = ╱4e╱N╱ // 0x4270 @0xc
0x4264…4274 at000d = ╱52╱R╱ // 0x4271 @0xd
0x4264…4274 at000e = ╱ef╱ $ ╱ // 0x4272 @0xe
0x4264…4274 at000f = EOL // 0x4273 @0xf
0x4264…4274 }
0x4274…427a d868 06260 ENDWHILE
0x4274…427a LineComal80 {
0x4274…427a ptr = 0xd868 // 0x4274 @0x0
0x4274…427a lno = 0x1874 // 0x4276 @0x2
0x4274…427a at0004 = ╱94╱ ENDWHILE ╱ // 0x4278 @0x4
0x4274…427a at0005 = EOL // 0x4279 @0x5
0x4274…427a }
0x427a…4281 d86f 06270 ELSE
0x427a…4281 LineComal80 {
0x427a…4281 ptr = 0xd86f // 0x427a @0x0
0x427a…4281 lno = 0x187e // 0x427c @0x2
0x427a…4281 at0004 = ╱9a00╱ ELSE ╱ // 0x427e @0x4
0x427a…4281 at0006 = EOL // 0x4280 @0x6
0x427a…4281 }
0x4281…428f d87d 06280 LET OK := FALSE
0x4281…428f LineComal80 {
0x4281…428f ptr = 0xd87d // 0x4281 @0x0
0x4281…428f lno = 0x1888 // 0x4283 @0x2
0x4281…428f at0004 = ╱86╱ LET ╱ // 0x4285 @0x4
0x4281…428f at0005 = ╱4f╱O╱ // 0x4286 @0x5
0x4281…428f at0006 = ╱4b╱K╱ // 0x4287 @0x6
0x4281…428f at0007 = ╱f0╱ := ╱ // 0x4288 @0x7
0x4281…428f at0008 = ╱46╱F╱ // 0x4289 @0x8
0x4281…428f at0009 = ╱41╱A╱ // 0x428a @0x9
0x4281…428f at000a = ╱4c╱L╱ // 0x428b @0xa
0x4281…428f at000b = ╱53╱S╱ // 0x428c @0xb
0x4281…428f at000c = ╱45╱E╱ // 0x428d @0xc
0x4281…428f at000d = EOL // 0x428e @0xd
0x4281…428f }
0x428f…4295 d883 06290 ENDIF
0x428f…4295 LineComal80 {
0x428f…4295 ptr = 0xd883 // 0x428f @0x0
0x428f…4295 lno = 0x1892 // 0x4291 @0x2
0x428f…4295 at0004 = ╱9c╱ ENDIF ╱ // 0x4293 @0x4
0x428f…4295 at0005 = EOL // 0x4294 @0x5
0x428f…4295 }
0x4295…429b d889 06300 ENDIF
0x4295…429b LineComal80 {
0x4295…429b ptr = 0xd889 // 0x4295 @0x0
0x4295…429b lno = 0x189c // 0x4297 @0x2
0x4295…429b at0004 = ╱9c╱ ENDIF ╱ // 0x4299 @0x4
0x4295…429b at0005 = EOL // 0x429a @0x5
0x4295…429b }
0x429b…42aa d898 06310 CURSOR 1 , LINE
0x429b…42aa LineComal80 {
0x429b…42aa ptr = 0xd898 // 0x429b @0x0
0x429b…42aa lno = 0x18a6 // 0x429d @0x2
0x429b…42aa at0004 = ╱a1╱ CURSOR ╱ // 0x429f @0x4
0x429b…42aa at0005 = ╱31╱1╱ // 0x42a0 @0x5
0x429b…42aa at0006 = ╱f20100╱ // 0x42a1 @0x6
0x429b…42aa at0009 = ╱ec╱ , ╱ // 0x42a4 @0x9
0x429b…42aa at000a = ╱4c╱L╱ // 0x42a5 @0xa
0x429b…42aa at000b = ╱49╱I╱ // 0x42a6 @0xb
0x429b…42aa at000c = ╱4e╱N╱ // 0x42a7 @0xc
0x429b…42aa at000d = ╱45╱E╱ // 0x42a8 @0xd
0x429b…42aa at000e = EOL // 0x42a9 @0xe
0x429b…42aa }
0x42aa…42b5 d8a3 06320 PRINT "<Z>"
0x42aa…42b5 LineComal80 {
0x42aa…42b5 ptr = 0xd8a3 // 0x42aa @0x0
0x42aa…42b5 lno = 0x18b0 // 0x42ac @0x2
0x42aa…42b5 at0004 = ╱92╱ PRINT ╱ // 0x42ae @0x4
0x42aa…42b5 at0005 = ╱22╱"╱ // 0x42af @0x5
0x42aa…42b5 at0006 = ╱3c╱<╱ // 0x42b0 @0x6
0x42aa…42b5 at0007 = ╱5a╱Z╱ // 0x42b1 @0x7
0x42aa…42b5 at0008 = ╱3e╱>╱ // 0x42b2 @0x8
0x42aa…42b5 at0009 = ╱22╱"╱ // 0x42b3 @0x9
0x42aa…42b5 at000a = EOL // 0x42b4 @0xa
0x42aa…42b5 }
0x42b5…42c1 d8af 06330 PRINT "<SZ>"
0x42b5…42c1 LineComal80 {
0x42b5…42c1 ptr = 0xd8af // 0x42b5 @0x0
0x42b5…42c1 lno = 0x18ba // 0x42b7 @0x2
0x42b5…42c1 at0004 = ╱92╱ PRINT ╱ // 0x42b9 @0x4
0x42b5…42c1 at0005 = ╱22╱"╱ // 0x42ba @0x5
0x42b5…42c1 at0006 = ╱3c╱<╱ // 0x42bb @0x6
0x42b5…42c1 at0007 = ╱53╱S╱ // 0x42bc @0x7
0x42b5…42c1 at0008 = ╱5a╱Z╱ // 0x42bd @0x8
0x42b5…42c1 at0009 = ╱3e╱>╱ // 0x42be @0x9
0x42b5…42c1 at000a = ╱22╱"╱ // 0x42bf @0xa
0x42b5…42c1 at000b = EOL // 0x42c0 @0xb
0x42b5…42c1 }
0x42c1…42cf d8bd 06340 ENDPROC PRINTRES
0x42c1…42cf LineComal80 {
0x42c1…42cf ptr = 0xd8bd // 0x42c1 @0x0
0x42c1…42cf lno = 0x18c4 // 0x42c3 @0x2
0x42c1…42cf at0004 = ╱9f╱ ENDPROC ╱ // 0x42c5 @0x4
0x42c1…42cf at0005 = ╱50╱P╱ // 0x42c6 @0x5
0x42c1…42cf at0006 = ╱52╱R╱ // 0x42c7 @0x6
0x42c1…42cf at0007 = ╱49╱I╱ // 0x42c8 @0x7
0x42c1…42cf at0008 = ╱4e╱N╱ // 0x42c9 @0x8
0x42c1…42cf at0009 = ╱54╱T╱ // 0x42ca @0x9
0x42c1…42cf at000a = ╱52╱R╱ // 0x42cb @0xa
0x42c1…42cf at000b = ╱45╱E╱ // 0x42cc @0xb
0x42c1…42cf at000c = ╱53╱S╱ // 0x42cd @0xc
0x42c1…42cf at000d = EOL // 0x42ce @0xd
0x42c1…42cf }
0x42cf…42d5 d8c3 06350 //
0x42cf…42d5 LineComal80 {
0x42cf…42d5 ptr = 0xd8c3 // 0x42cf @0x0
0x42cf…42d5 lno = 0x18ce // 0x42d1 @0x2
0x42cf…42d5 at0004 = ╱89╱ // ╱ // 0x42d3 @0x4
0x42cf…42d5 at0005 = EOL // 0x42d4 @0x5
0x42cf…42d5 }
0x42d5…42f4 d8e2 06060 PROC PRINTREL // RELEASE…PRINTER
0x42d5…42f4 LineComal80 {
0x42d5…42f4 ptr = 0xd8e2 // 0x42d5 @0x0
0x42d5…42f4 lno = 0x17ac // 0x42d7 @0x2
0x42d5…42f4 at0004 = ╱9e00╱ PROC ╱ // 0x42d9 @0x4
0x42d5…42f4 at0006 = ╱50╱P╱ // 0x42db @0x6
0x42d5…42f4 at0007 = ╱52╱R╱ // 0x42dc @0x7
0x42d5…42f4 at0008 = ╱49╱I╱ // 0x42dd @0x8
0x42d5…42f4 at0009 = ╱4e╱N╱ // 0x42de @0x9
0x42d5…42f4 at000a = ╱54╱T╱ // 0x42df @0xa
0x42d5…42f4 at000b = ╱52╱R╱ // 0x42e0 @0xb
0x42d5…42f4 at000c = ╱45╱E╱ // 0x42e1 @0xc
0x42d5…42f4 at000d = ╱4c╱L╱ // 0x42e2 @0xd
0x42d5…42f4 at000e = ╱89╱ // ╱ // 0x42e3 @0xe
0x42d5…42f4 at000f = ╱52╱R╱ // 0x42e4 @0xf
0x42d5…42f4 at0010 = ╱45╱E╱ // 0x42e5 @0x10
0x42d5…42f4 at0011 = ╱4c╱L╱ // 0x42e6 @0x11
0x42d5…42f4 at0012 = ╱45╱E╱ // 0x42e7 @0x12
0x42d5…42f4 at0013 = ╱41╱A╱ // 0x42e8 @0x13
0x42d5…42f4 at0014 = ╱53╱S╱ // 0x42e9 @0x14
0x42d5…42f4 at0015 = ╱45╱E╱ // 0x42ea @0x15
0x42d5…42f4 at0016 = ╱20╱…╱ // 0x42eb @0x16
0x42d5…42f4 at0017 = ╱50╱P╱ // 0x42ec @0x17
0x42d5…42f4 at0018 = ╱52╱R╱ // 0x42ed @0x18
0x42d5…42f4 at0019 = ╱49╱I╱ // 0x42ee @0x19
0x42d5…42f4 at001a = ╱4e╱N╱ // 0x42ef @0x1a
0x42d5…42f4 at001b = ╱54╱T╱ // 0x42f0 @0x1b
0x42d5…42f4 at001c = ╱45╱E╱ // 0x42f1 @0x1c
0x42d5…42f4 at001d = ╱52╱R╱ // 0x42f2 @0x1d
0x42d5…42f4 at001e = EOL // 0x42f3 @0x1e
0x42d5…42f4 }
0x42f4…42fd d8eb 06070 SELECT OUTPUT "T"
0x42f4…42fd LineComal80 {
0x42f4…42fd ptr = 0xd8eb // 0x42f4 @0x0
0x42f4…42fd lno = 0x17b6 // 0x42f6 @0x2
0x42f4…42fd at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x42f8 @0x4
0x42f4…42fd at0005 = ╱22╱"╱ // 0x42f9 @0x5
0x42f4…42fd at0006 = ╱54╱T╱ // 0x42fa @0x6
0x42f4…42fd at0007 = ╱22╱"╱ // 0x42fb @0x7
0x42f4…42fd at0008 = EOL // 0x42fc @0x8
0x42f4…42fd }
0x42fd…430b dc79 06080 ENDPROC PRINTREL
0x42fd…430b LineComal80 {
0x42fd…430b ptr = 0xdc79 // 0x42fd @0x0
0x42fd…430b lno = 0x17c0 // 0x42ff @0x2
0x42fd…430b at0004 = ╱9f╱ ENDPROC ╱ // 0x4301 @0x4
0x42fd…430b at0005 = ╱50╱P╱ // 0x4302 @0x5
0x42fd…430b at0006 = ╱52╱R╱ // 0x4303 @0x6
0x42fd…430b at0007 = ╱49╱I╱ // 0x4304 @0x7
0x42fd…430b at0008 = ╱4e╱N╱ // 0x4305 @0x8
0x42fd…430b at0009 = ╱54╱T╱ // 0x4306 @0x9
0x42fd…430b at000a = ╱52╱R╱ // 0x4307 @0xa
0x42fd…430b at000b = ╱45╱E╱ // 0x4308 @0xb
0x42fd…430b at000c = ╱4c╱L╱ // 0x4309 @0xc
0x42fd…430b at000d = EOL // 0x430a @0xd
0x42fd…430b }
0x430b…4316 af08 02490 PRINT "<K>"
0x430b…4316 LineComal80 {
0x430b…4316 ptr = 0xaf08 // 0x430b @0x0
0x430b…4316 lno = 0x09ba // 0x430d @0x2
0x430b…4316 at0004 = ╱92╱ PRINT ╱ // 0x430f @0x4
0x430b…4316 at0005 = ╱22╱"╱ // 0x4310 @0x5
0x430b…4316 at0006 = ╱3c╱<╱ // 0x4311 @0x6
0x430b…4316 at0007 = ╱4b╱K╱ // 0x4312 @0x7
0x430b…4316 at0008 = ╱3e╱>╱ // 0x4313 @0x8
0x430b…4316 at0009 = ╱22╱"╱ // 0x4314 @0x9
0x430b…4316 at000a = EOL // 0x4315 @0xa
0x430b…4316 }
0x4316…4377 ba2b 03470 LET TOT ( 1 ) , TOT ( 2 ) , TOT ( 3 ) , TOT ( 4 ) , TOT ( 5 ) , TOT ( 6 ) := 0 ; LIN_T := 100 ; MAX_LIN := 72
0x4316…4377 LineComal80 {
0x4316…4377 ptr = 0xba2b // 0x4316 @0x0
0x4316…4377 lno = 0x0d8e // 0x4318 @0x2
0x4316…4377 at0004 = ╱86╱ LET ╱ // 0x431a @0x4
0x4316…4377 at0005 = ╱54╱T╱ // 0x431b @0x5
0x4316…4377 at0006 = ╱4f╱O╱ // 0x431c @0x6
0x4316…4377 at0007 = ╱54╱T╱ // 0x431d @0x7
0x4316…4377 at0008 = ╱ed╱ ( ╱ // 0x431e @0x8
0x4316…4377 at0009 = ╱31╱1╱ // 0x431f @0x9
0x4316…4377 at000a = ╱f20100╱ // 0x4320 @0xa
0x4316…4377 at000d = ╱ee╱ ) ╱ // 0x4323 @0xd
0x4316…4377 at000e = ╱ec╱ , ╱ // 0x4324 @0xe
0x4316…4377 at000f = ╱54╱T╱ // 0x4325 @0xf
0x4316…4377 at0010 = ╱4f╱O╱ // 0x4326 @0x10
0x4316…4377 at0011 = ╱54╱T╱ // 0x4327 @0x11
0x4316…4377 at0012 = ╱ed╱ ( ╱ // 0x4328 @0x12
0x4316…4377 at0013 = ╱32╱2╱ // 0x4329 @0x13
0x4316…4377 at0014 = ╱f20200╱ // 0x432a @0x14
0x4316…4377 at0017 = ╱ee╱ ) ╱ // 0x432d @0x17
0x4316…4377 at0018 = ╱ec╱ , ╱ // 0x432e @0x18
0x4316…4377 at0019 = ╱54╱T╱ // 0x432f @0x19
0x4316…4377 at001a = ╱4f╱O╱ // 0x4330 @0x1a
0x4316…4377 at001b = ╱54╱T╱ // 0x4331 @0x1b
0x4316…4377 at001c = ╱ed╱ ( ╱ // 0x4332 @0x1c
0x4316…4377 at001d = ╱33╱3╱ // 0x4333 @0x1d
0x4316…4377 at001e = ╱f20300╱ // 0x4334 @0x1e
0x4316…4377 at0021 = ╱ee╱ ) ╱ // 0x4337 @0x21
0x4316…4377 at0022 = ╱ec╱ , ╱ // 0x4338 @0x22
0x4316…4377 at0023 = ╱54╱T╱ // 0x4339 @0x23
0x4316…4377 at0024 = ╱4f╱O╱ // 0x433a @0x24
0x4316…4377 at0025 = ╱54╱T╱ // 0x433b @0x25
0x4316…4377 at0026 = ╱ed╱ ( ╱ // 0x433c @0x26
0x4316…4377 at0027 = ╱34╱4╱ // 0x433d @0x27
0x4316…4377 at0028 = ╱f20400╱ // 0x433e @0x28
0x4316…4377 at002b = ╱ee╱ ) ╱ // 0x4341 @0x2b
0x4316…4377 at002c = ╱ec╱ , ╱ // 0x4342 @0x2c
0x4316…4377 at002d = ╱54╱T╱ // 0x4343 @0x2d
0x4316…4377 at002e = ╱4f╱O╱ // 0x4344 @0x2e
0x4316…4377 at002f = ╱54╱T╱ // 0x4345 @0x2f
0x4316…4377 at0030 = ╱ed╱ ( ╱ // 0x4346 @0x30
0x4316…4377 at0031 = ╱35╱5╱ // 0x4347 @0x31
0x4316…4377 at0032 = ╱f20500╱ // 0x4348 @0x32
0x4316…4377 at0035 = ╱ee╱ ) ╱ // 0x434b @0x35
0x4316…4377 at0036 = ╱ec╱ , ╱ // 0x434c @0x36
0x4316…4377 at0037 = ╱54╱T╱ // 0x434d @0x37
0x4316…4377 at0038 = ╱4f╱O╱ // 0x434e @0x38
0x4316…4377 at0039 = ╱54╱T╱ // 0x434f @0x39
0x4316…4377 at003a = ╱ed╱ ( ╱ // 0x4350 @0x3a
0x4316…4377 at003b = ╱36╱6╱ // 0x4351 @0x3b
0x4316…4377 at003c = ╱f20600╱ // 0x4352 @0x3c
0x4316…4377 at003f = ╱ee╱ ) ╱ // 0x4355 @0x3f
0x4316…4377 at0040 = ╱f0╱ := ╱ // 0x4356 @0x40
0x4316…4377 at0041 = ╱30╱0╱ // 0x4357 @0x41
0x4316…4377 at0042 = ╱f20000╱ // 0x4358 @0x42
0x4316…4377 at0045 = ╱ea╱ ; ╱ // 0x435b @0x45
0x4316…4377 at0046 = ╱4c╱L╱ // 0x435c @0x46
0x4316…4377 at0047 = ╱49╱I╱ // 0x435d @0x47
0x4316…4377 at0048 = ╱4e╱N╱ // 0x435e @0x48
0x4316…4377 at0049 = ╱5f╱_╱ // 0x435f @0x49
0x4316…4377 at004a = ╱54╱T╱ // 0x4360 @0x4a
0x4316…4377 at004b = ╱f0╱ := ╱ // 0x4361 @0x4b
0x4316…4377 at004c = ╱31╱1╱ // 0x4362 @0x4c
0x4316…4377 at004d = ╱30╱0╱ // 0x4363 @0x4d
0x4316…4377 at004e = ╱30╱0╱ // 0x4364 @0x4e
0x4316…4377 at004f = ╱f26400╱ // 0x4365 @0x4f
0x4316…4377 at0052 = ╱ea╱ ; ╱ // 0x4368 @0x52
0x4316…4377 at0053 = ╱4d╱M╱ // 0x4369 @0x53
0x4316…4377 at0054 = ╱41╱A╱ // 0x436a @0x54
0x4316…4377 at0055 = ╱58╱X╱ // 0x436b @0x55
0x4316…4377 at0056 = ╱5f╱_╱ // 0x436c @0x56
0x4316…4377 at0057 = ╱4c╱L╱ // 0x436d @0x57
0x4316…4377 at0058 = ╱49╱I╱ // 0x436e @0x58
0x4316…4377 at0059 = ╱4e╱N╱ // 0x436f @0x59
0x4316…4377 at005a = ╱f0╱ := ╱ // 0x4370 @0x5a
0x4316…4377 at005b = ╱37╱7╱ // 0x4371 @0x5b
0x4316…4377 at005c = ╱32╱2╱ // 0x4372 @0x5c
0x4316…4377 at005d = ╱f24800╱ // 0x4373 @0x5d
0x4316…4377 at0060 = EOL // 0x4376 @0x60
0x4316…4377 }
0x4377…4384 c0d0 03980 PRINT "<LIN>"
0x4377…4384 LineComal80 {
0x4377…4384 ptr = 0xc0d0 // 0x4377 @0x0
0x4377…4384 lno = 0x0f8c // 0x4379 @0x2
0x4377…4384 at0004 = ╱92╱ PRINT ╱ // 0x437b @0x4
0x4377…4384 at0005 = ╱22╱"╱ // 0x437c @0x5
0x4377…4384 at0006 = ╱3c╱<╱ // 0x437d @0x6
0x4377…4384 at0007 = ╱4c╱L╱ // 0x437e @0x7
0x4377…4384 at0008 = ╱49╱I╱ // 0x437f @0x8
0x4377…4384 at0009 = ╱4e╱N╱ // 0x4380 @0x9
0x4377…4384 at000a = ╱3e╱>╱ // 0x4381 @0xa
0x4377…4384 at000b = ╱22╱"╱ // 0x4382 @0xb
0x4377…4384 at000c = EOL // 0x4383 @0xc
0x4377…4384 }
0x4384…43a3 a099 00940 LET PROGRAM $ := PROGRAM $ + S_KODE $
0x4384…43a3 LineComal80 {
0x4384…43a3 ptr = 0xa099 // 0x4384 @0x0
0x4384…43a3 lno = 0x03ac // 0x4386 @0x2
0x4384…43a3 at0004 = ╱86╱ LET ╱ // 0x4388 @0x4
0x4384…43a3 at0005 = ╱50╱P╱ // 0x4389 @0x5
0x4384…43a3 at0006 = ╱52╱R╱ // 0x438a @0x6
0x4384…43a3 at0007 = ╱4f╱O╱ // 0x438b @0x7
0x4384…43a3 at0008 = ╱47╱G╱ // 0x438c @0x8
0x4384…43a3 at0009 = ╱52╱R╱ // 0x438d @0x9
0x4384…43a3 at000a = ╱41╱A╱ // 0x438e @0xa
0x4384…43a3 at000b = ╱4d╱M╱ // 0x438f @0xb
0x4384…43a3 at000c = ╱ef╱ $ ╱ // 0x4390 @0xc
0x4384…43a3 at000d = ╱f0╱ := ╱ // 0x4391 @0xd
0x4384…43a3 at000e = ╱50╱P╱ // 0x4392 @0xe
0x4384…43a3 at000f = ╱52╱R╱ // 0x4393 @0xf
0x4384…43a3 at0010 = ╱4f╱O╱ // 0x4394 @0x10
0x4384…43a3 at0011 = ╱47╱G╱ // 0x4395 @0x11
0x4384…43a3 at0012 = ╱52╱R╱ // 0x4396 @0x12
0x4384…43a3 at0013 = ╱41╱A╱ // 0x4397 @0x13
0x4384…43a3 at0014 = ╱4d╱M╱ // 0x4398 @0x14
0x4384…43a3 at0015 = ╱ef╱ $ ╱ // 0x4399 @0x15
0x4384…43a3 at0016 = ╱eb╱ + ╱ // 0x439a @0x16
0x4384…43a3 at0017 = ╱53╱S╱ // 0x439b @0x17
0x4384…43a3 at0018 = ╱5f╱_╱ // 0x439c @0x18
0x4384…43a3 at0019 = ╱4b╱K╱ // 0x439d @0x19
0x4384…43a3 at001a = ╱4f╱O╱ // 0x439e @0x1a
0x4384…43a3 at001b = ╱44╱D╱ // 0x439f @0x1b
0x4384…43a3 at001c = ╱45╱E╱ // 0x43a0 @0x1c
0x4384…43a3 at001d = ╱ef╱ $ ╱ // 0x43a1 @0x1d
0x4384…43a3 at001e = EOL // 0x43a2 @0x1e
0x4384…43a3 }
0x43a3…43da d9c8 01600 PRINT "<C0105>………BILAG……TEKST……………………………………………………KASSE"
0x43a3…43da LineComal80 {
0x43a3…43da ptr = 0xd9c8 // 0x43a3 @0x0
0x43a3…43da lno = 0x0640 // 0x43a5 @0x2
0x43a3…43da at0004 = ╱92╱ PRINT ╱ // 0x43a7 @0x4
0x43a3…43da at0005 = ╱22╱"╱ // 0x43a8 @0x5
0x43a3…43da at0006 = ╱3c╱<╱ // 0x43a9 @0x6
0x43a3…43da at0007 = ╱43╱C╱ // 0x43aa @0x7
0x43a3…43da at0008 = ╱30╱0╱ // 0x43ab @0x8
0x43a3…43da at0009 = ╱31╱1╱ // 0x43ac @0x9
0x43a3…43da at000a = ╱30╱0╱ // 0x43ad @0xa
0x43a3…43da at000b = ╱35╱5╱ // 0x43ae @0xb
0x43a3…43da at000c = ╱3e╱>╱ // 0x43af @0xc
0x43a3…43da at000d = ╱20╱…╱ // 0x43b0 @0xd
0x43a3…43da at000e = ╱20╱…╱ // 0x43b1 @0xe
0x43a3…43da at000f = ╱20╱…╱ // 0x43b2 @0xf
0x43a3…43da at0010 = ╱42╱B╱ // 0x43b3 @0x10
0x43a3…43da at0011 = ╱49╱I╱ // 0x43b4 @0x11
0x43a3…43da at0012 = ╱4c╱L╱ // 0x43b5 @0x12
0x43a3…43da at0013 = ╱41╱A╱ // 0x43b6 @0x13
0x43a3…43da at0014 = ╱47╱G╱ // 0x43b7 @0x14
0x43a3…43da at0015 = ╱20╱…╱ // 0x43b8 @0x15
0x43a3…43da at0016 = ╱20╱…╱ // 0x43b9 @0x16
0x43a3…43da at0017 = ╱54╱T╱ // 0x43ba @0x17
0x43a3…43da at0018 = ╱45╱E╱ // 0x43bb @0x18
0x43a3…43da at0019 = ╱4b╱K╱ // 0x43bc @0x19
0x43a3…43da at001a = ╱53╱S╱ // 0x43bd @0x1a
0x43a3…43da at001b = ╱54╱T╱ // 0x43be @0x1b
0x43a3…43da at001c = ╱20╱…╱ // 0x43bf @0x1c
0x43a3…43da at001d = ╱20╱…╱ // 0x43c0 @0x1d
0x43a3…43da at001e = ╱20╱…╱ // 0x43c1 @0x1e
0x43a3…43da at001f = ╱20╱…╱ // 0x43c2 @0x1f
0x43a3…43da at0020 = ╱20╱…╱ // 0x43c3 @0x20
0x43a3…43da at0021 = ╱20╱…╱ // 0x43c4 @0x21
0x43a3…43da at0022 = ╱20╱…╱ // 0x43c5 @0x22
0x43a3…43da at0023 = ╱20╱…╱ // 0x43c6 @0x23
0x43a3…43da at0024 = ╱20╱…╱ // 0x43c7 @0x24
0x43a3…43da at0025 = ╱20╱…╱ // 0x43c8 @0x25
0x43a3…43da at0026 = ╱20╱…╱ // 0x43c9 @0x26
0x43a3…43da at0027 = ╱20╱…╱ // 0x43ca @0x27
0x43a3…43da at0028 = ╱20╱…╱ // 0x43cb @0x28
0x43a3…43da at0029 = ╱20╱…╱ // 0x43cc @0x29
0x43a3…43da at002a = ╱20╱…╱ // 0x43cd @0x2a
0x43a3…43da at002b = ╱20╱…╱ // 0x43ce @0x2b
0x43a3…43da at002c = ╱20╱…╱ // 0x43cf @0x2c
0x43a3…43da at002d = ╱20╱…╱ // 0x43d0 @0x2d
0x43a3…43da at002e = ╱20╱…╱ // 0x43d1 @0x2e
0x43a3…43da at002f = ╱20╱…╱ // 0x43d2 @0x2f
0x43a3…43da at0030 = ╱4b╱K╱ // 0x43d3 @0x30
0x43a3…43da at0031 = ╱41╱A╱ // 0x43d4 @0x31
0x43a3…43da at0032 = ╱53╱S╱ // 0x43d5 @0x32
0x43a3…43da at0033 = ╱53╱S╱ // 0x43d6 @0x33
0x43a3…43da at0034 = ╱45╱E╱ // 0x43d7 @0x34
0x43a3…43da at0035 = ╱22╱"╱ // 0x43d8 @0x35
0x43a3…43da at0036 = EOL // 0x43d9 @0x36
0x43a3…43da }
0x43da…4411 a701 01610 PRINT "<C0106>…………NR……………………………………………………………………………BANK/"
0x43da…4411 LineComal80 {
0x43da…4411 ptr = 0xa701 // 0x43da @0x0
0x43da…4411 lno = 0x064a // 0x43dc @0x2
0x43da…4411 at0004 = ╱92╱ PRINT ╱ // 0x43de @0x4
0x43da…4411 at0005 = ╱22╱"╱ // 0x43df @0x5
0x43da…4411 at0006 = ╱3c╱<╱ // 0x43e0 @0x6
0x43da…4411 at0007 = ╱43╱C╱ // 0x43e1 @0x7
0x43da…4411 at0008 = ╱30╱0╱ // 0x43e2 @0x8
0x43da…4411 at0009 = ╱31╱1╱ // 0x43e3 @0x9
0x43da…4411 at000a = ╱30╱0╱ // 0x43e4 @0xa
0x43da…4411 at000b = ╱36╱6╱ // 0x43e5 @0xb
0x43da…4411 at000c = ╱3e╱>╱ // 0x43e6 @0xc
0x43da…4411 at000d = ╱20╱…╱ // 0x43e7 @0xd
0x43da…4411 at000e = ╱20╱…╱ // 0x43e8 @0xe
0x43da…4411 at000f = ╱20╱…╱ // 0x43e9 @0xf
0x43da…4411 at0010 = ╱20╱…╱ // 0x43ea @0x10
0x43da…4411 at0011 = ╱4e╱N╱ // 0x43eb @0x11
0x43da…4411 at0012 = ╱52╱R╱ // 0x43ec @0x12
0x43da…4411 at0013 = ╱20╱…╱ // 0x43ed @0x13
0x43da…4411 at0014 = ╱20╱…╱ // 0x43ee @0x14
0x43da…4411 at0015 = ╱20╱…╱ // 0x43ef @0x15
0x43da…4411 at0016 = ╱20╱…╱ // 0x43f0 @0x16
0x43da…4411 at0017 = ╱20╱…╱ // 0x43f1 @0x17
0x43da…4411 at0018 = ╱20╱…╱ // 0x43f2 @0x18
0x43da…4411 at0019 = ╱20╱…╱ // 0x43f3 @0x19
0x43da…4411 at001a = ╱20╱…╱ // 0x43f4 @0x1a
0x43da…4411 at001b = ╱20╱…╱ // 0x43f5 @0x1b
0x43da…4411 at001c = ╱20╱…╱ // 0x43f6 @0x1c
0x43da…4411 at001d = ╱20╱…╱ // 0x43f7 @0x1d
0x43da…4411 at001e = ╱20╱…╱ // 0x43f8 @0x1e
0x43da…4411 at001f = ╱20╱…╱ // 0x43f9 @0x1f
0x43da…4411 at0020 = ╱20╱…╱ // 0x43fa @0x20
0x43da…4411 at0021 = ╱20╱…╱ // 0x43fb @0x21
0x43da…4411 at0022 = ╱20╱…╱ // 0x43fc @0x22
0x43da…4411 at0023 = ╱20╱…╱ // 0x43fd @0x23
0x43da…4411 at0024 = ╱20╱…╱ // 0x43fe @0x24
0x43da…4411 at0025 = ╱20╱…╱ // 0x43ff @0x25
0x43da…4411 at0026 = ╱20╱…╱ // 0x4400 @0x26
0x43da…4411 at0027 = ╱20╱…╱ // 0x4401 @0x27
0x43da…4411 at0028 = ╱20╱…╱ // 0x4402 @0x28
0x43da…4411 at0029 = ╱20╱…╱ // 0x4403 @0x29
0x43da…4411 at002a = ╱20╱…╱ // 0x4404 @0x2a
0x43da…4411 at002b = ╱20╱…╱ // 0x4405 @0x2b
0x43da…4411 at002c = ╱20╱…╱ // 0x4406 @0x2c
0x43da…4411 at002d = ╱20╱…╱ // 0x4407 @0x2d
0x43da…4411 at002e = ╱20╱…╱ // 0x4408 @0x2e
0x43da…4411 at002f = ╱20╱…╱ // 0x4409 @0x2f
0x43da…4411 at0030 = ╱42╱B╱ // 0x440a @0x30
0x43da…4411 at0031 = ╱41╱A╱ // 0x440b @0x31
0x43da…4411 at0032 = ╱4e╱N╱ // 0x440c @0x32
0x43da…4411 at0033 = ╱4b╱K╱ // 0x440d @0x33
0x43da…4411 at0034 = ╱2f╱/╱ // 0x440e @0x34
0x43da…4411 at0035 = ╱22╱"╱ // 0x440f @0x35
0x43da…4411 at0036 = EOL // 0x4410 @0x36
0x43da…4411 }
0x4411…4454 da42 02610 PRINT "<S>" ; SVAR $ ( 1 : I ) ; "…" ; BANK_KTO $ ; "…BANK…" ; SVAR $ ( 1 : K ) ; "……"
0x4411…4454 LineComal80 {
0x4411…4454 ptr = 0xda42 // 0x4411 @0x0
0x4411…4454 lno = 0x0a32 // 0x4413 @0x2
0x4411…4454 at0004 = ╱92╱ PRINT ╱ // 0x4415 @0x4
0x4411…4454 at0005 = ╱22╱"╱ // 0x4416 @0x5
0x4411…4454 at0006 = ╱3c╱<╱ // 0x4417 @0x6
0x4411…4454 at0007 = ╱53╱S╱ // 0x4418 @0x7
0x4411…4454 at0008 = ╱3e╱>╱ // 0x4419 @0x8
0x4411…4454 at0009 = ╱22╱"╱ // 0x441a @0x9
0x4411…4454 at000a = ╱ea╱ ; ╱ // 0x441b @0xa
0x4411…4454 at000b = ╱53╱S╱ // 0x441c @0xb
0x4411…4454 at000c = ╱56╱V╱ // 0x441d @0xc
0x4411…4454 at000d = ╱41╱A╱ // 0x441e @0xd
0x4411…4454 at000e = ╱52╱R╱ // 0x441f @0xe
0x4411…4454 at000f = ╱ef╱ $ ╱ // 0x4420 @0xf
0x4411…4454 at0010 = ╱ed╱ ( ╱ // 0x4421 @0x10
0x4411…4454 at0011 = ╱31╱1╱ // 0x4422 @0x11
0x4411…4454 at0012 = ╱f20100╱ // 0x4423 @0x12
0x4411…4454 at0015 = ╱f1╱ : ╱ // 0x4426 @0x15
0x4411…4454 at0016 = ╱49╱I╱ // 0x4427 @0x16
0x4411…4454 at0017 = ╱ee╱ ) ╱ // 0x4428 @0x17
0x4411…4454 at0018 = ╱ea╱ ; ╱ // 0x4429 @0x18
0x4411…4454 at0019 = ╱22╱"╱ // 0x442a @0x19
0x4411…4454 at001a = ╱20╱…╱ // 0x442b @0x1a
0x4411…4454 at001b = ╱22╱"╱ // 0x442c @0x1b
0x4411…4454 at001c = ╱ea╱ ; ╱ // 0x442d @0x1c
0x4411…4454 at001d = ╱42╱B╱ // 0x442e @0x1d
0x4411…4454 at001e = ╱41╱A╱ // 0x442f @0x1e
0x4411…4454 at001f = ╱4e╱N╱ // 0x4430 @0x1f
0x4411…4454 at0020 = ╱4b╱K╱ // 0x4431 @0x20
0x4411…4454 at0021 = ╱5f╱_╱ // 0x4432 @0x21
0x4411…4454 at0022 = ╱4b╱K╱ // 0x4433 @0x22
0x4411…4454 at0023 = ╱54╱T╱ // 0x4434 @0x23
0x4411…4454 at0024 = ╱4f╱O╱ // 0x4435 @0x24
0x4411…4454 at0025 = ╱ef╱ $ ╱ // 0x4436 @0x25
0x4411…4454 at0026 = ╱ea╱ ; ╱ // 0x4437 @0x26
0x4411…4454 at0027 = ╱22╱"╱ // 0x4438 @0x27
0x4411…4454 at0028 = ╱20╱…╱ // 0x4439 @0x28
0x4411…4454 at0029 = ╱42╱B╱ // 0x443a @0x29
0x4411…4454 at002a = ╱41╱A╱ // 0x443b @0x2a
0x4411…4454 at002b = ╱4e╱N╱ // 0x443c @0x2b
0x4411…4454 at002c = ╱4b╱K╱ // 0x443d @0x2c
0x4411…4454 at002d = ╱20╱…╱ // 0x443e @0x2d
0x4411…4454 at002e = ╱22╱"╱ // 0x443f @0x2e
0x4411…4454 at002f = ╱ea╱ ; ╱ // 0x4440 @0x2f
0x4411…4454 at0030 = ╱53╱S╱ // 0x4441 @0x30
0x4411…4454 at0031 = ╱56╱V╱ // 0x4442 @0x31
0x4411…4454 at0032 = ╱41╱A╱ // 0x4443 @0x32
0x4411…4454 at0033 = ╱52╱R╱ // 0x4444 @0x33
0x4411…4454 at0034 = ╱ef╱ $ ╱ // 0x4445 @0x34
0x4411…4454 at0035 = ╱ed╱ ( ╱ // 0x4446 @0x35
0x4411…4454 at0036 = ╱31╱1╱ // 0x4447 @0x36
0x4411…4454 at0037 = ╱f20100╱ // 0x4448 @0x37
0x4411…4454 at003a = ╱f1╱ : ╱ // 0x444b @0x3a
0x4411…4454 at003b = ╱4b╱K╱ // 0x444c @0x3b
0x4411…4454 at003c = ╱ee╱ ) ╱ // 0x444d @0x3c
0x4411…4454 at003d = ╱ea╱ ; ╱ // 0x444e @0x3d
0x4411…4454 at003e = ╱22╱"╱ // 0x444f @0x3e
0x4411…4454 at003f = ╱20╱…╱ // 0x4450 @0x3f
0x4411…4454 at0040 = ╱20╱…╱ // 0x4451 @0x40
0x4411…4454 at0041 = ╱22╱"╱ // 0x4452 @0x41
0x4411…4454 at0042 = EOL // 0x4453 @0x42
0x4411…4454 }
0x4454…448a da78 02620 LET K := ╱cb╱ ( "…" + GIRO_KTO $ + "…GIRO…" ) ; I := K DIV 2 ; K := 22 - K - I
0x4454…448a LineComal80 {
0x4454…448a ptr = 0xda78 // 0x4454 @0x0
0x4454…448a lno = 0x0a3c // 0x4456 @0x2
0x4454…448a at0004 = ╱86╱ LET ╱ // 0x4458 @0x4
0x4454…448a at0005 = ╱4b╱K╱ // 0x4459 @0x5
0x4454…448a at0006 = ╱f0╱ := ╱ // 0x445a @0x6
0x4454…448a at0007 = ╱cb╱ // 0x445b @0x7
0x4454…448a at0008 = ╱ed╱ ( ╱ // 0x445c @0x8
0x4454…448a at0009 = ╱22╱"╱ // 0x445d @0x9
0x4454…448a at000a = ╱20╱…╱ // 0x445e @0xa
0x4454…448a at000b = ╱22╱"╱ // 0x445f @0xb
0x4454…448a at000c = ╱eb╱ + ╱ // 0x4460 @0xc
0x4454…448a at000d = ╱47╱G╱ // 0x4461 @0xd
0x4454…448a at000e = ╱49╱I╱ // 0x4462 @0xe
0x4454…448a at000f = ╱52╱R╱ // 0x4463 @0xf
0x4454…448a at0010 = ╱4f╱O╱ // 0x4464 @0x10
0x4454…448a at0011 = ╱5f╱_╱ // 0x4465 @0x11
0x4454…448a at0012 = ╱4b╱K╱ // 0x4466 @0x12
0x4454…448a at0013 = ╱54╱T╱ // 0x4467 @0x13
0x4454…448a at0014 = ╱4f╱O╱ // 0x4468 @0x14
0x4454…448a at0015 = ╱ef╱ $ ╱ // 0x4469 @0x15
0x4454…448a at0016 = ╱eb╱ + ╱ // 0x446a @0x16
0x4454…448a at0017 = ╱22╱"╱ // 0x446b @0x17
0x4454…448a at0018 = ╱20╱…╱ // 0x446c @0x18
0x4454…448a at0019 = ╱47╱G╱ // 0x446d @0x19
0x4454…448a at001a = ╱49╱I╱ // 0x446e @0x1a
0x4454…448a at001b = ╱52╱R╱ // 0x446f @0x1b
0x4454…448a at001c = ╱4f╱O╱ // 0x4470 @0x1c
0x4454…448a at001d = ╱20╱…╱ // 0x4471 @0x1d
0x4454…448a at001e = ╱22╱"╱ // 0x4472 @0x1e
0x4454…448a at001f = ╱ee╱ ) ╱ // 0x4473 @0x1f
0x4454…448a at0020 = ╱ea╱ ; ╱ // 0x4474 @0x20
0x4454…448a at0021 = ╱49╱I╱ // 0x4475 @0x21
0x4454…448a at0022 = ╱f0╱ := ╱ // 0x4476 @0x22
0x4454…448a at0023 = ╱4b╱K╱ // 0x4477 @0x23
0x4454…448a at0024 = ╱da╱ DIV ╱ // 0x4478 @0x24
0x4454…448a at0025 = ╱32╱2╱ // 0x4479 @0x25
0x4454…448a at0026 = ╱f20200╱ // 0x447a @0x26
0x4454…448a at0029 = ╱ea╱ ; ╱ // 0x447d @0x29
0x4454…448a at002a = ╱4b╱K╱ // 0x447e @0x2a
0x4454…448a at002b = ╱f0╱ := ╱ // 0x447f @0x2b
0x4454…448a at002c = ╱32╱2╱ // 0x4480 @0x2c
0x4454…448a at002d = ╱32╱2╱ // 0x4481 @0x2d
0x4454…448a at002e = ╱f21600╱ // 0x4482 @0x2e
0x4454…448a at0031 = ╱e6╱ - ╱ // 0x4485 @0x31
0x4454…448a at0032 = ╱4b╱K╱ // 0x4486 @0x32
0x4454…448a at0033 = ╱e6╱ - ╱ // 0x4487 @0x33
0x4454…448a at0034 = ╱49╱I╱ // 0x4488 @0x34
0x4454…448a at0035 = EOL // 0x4489 @0x35
0x4454…448a }
0x448a…44c2 dab0 02630 PRINT SVAR $ ( 1 : I ) ; "…" ; GIRO_KTO $ ; "…GIRO…" ; SVAR $ ( 1 : K )
0x448a…44c2 LineComal80 {
0x448a…44c2 ptr = 0xdab0 // 0x448a @0x0
0x448a…44c2 lno = 0x0a46 // 0x448c @0x2
0x448a…44c2 at0004 = ╱92╱ PRINT ╱ // 0x448e @0x4
0x448a…44c2 at0005 = ╱53╱S╱ // 0x448f @0x5
0x448a…44c2 at0006 = ╱56╱V╱ // 0x4490 @0x6
0x448a…44c2 at0007 = ╱41╱A╱ // 0x4491 @0x7
0x448a…44c2 at0008 = ╱52╱R╱ // 0x4492 @0x8
0x448a…44c2 at0009 = ╱ef╱ $ ╱ // 0x4493 @0x9
0x448a…44c2 at000a = ╱ed╱ ( ╱ // 0x4494 @0xa
0x448a…44c2 at000b = ╱31╱1╱ // 0x4495 @0xb
0x448a…44c2 at000c = ╱f20100╱ // 0x4496 @0xc
0x448a…44c2 at000f = ╱f1╱ : ╱ // 0x4499 @0xf
0x448a…44c2 at0010 = ╱49╱I╱ // 0x449a @0x10
0x448a…44c2 at0011 = ╱ee╱ ) ╱ // 0x449b @0x11
0x448a…44c2 at0012 = ╱ea╱ ; ╱ // 0x449c @0x12
0x448a…44c2 at0013 = ╱22╱"╱ // 0x449d @0x13
0x448a…44c2 at0014 = ╱20╱…╱ // 0x449e @0x14
0x448a…44c2 at0015 = ╱22╱"╱ // 0x449f @0x15
0x448a…44c2 at0016 = ╱ea╱ ; ╱ // 0x44a0 @0x16
0x448a…44c2 at0017 = ╱47╱G╱ // 0x44a1 @0x17
0x448a…44c2 at0018 = ╱49╱I╱ // 0x44a2 @0x18
0x448a…44c2 at0019 = ╱52╱R╱ // 0x44a3 @0x19
0x448a…44c2 at001a = ╱4f╱O╱ // 0x44a4 @0x1a
0x448a…44c2 at001b = ╱5f╱_╱ // 0x44a5 @0x1b
0x448a…44c2 at001c = ╱4b╱K╱ // 0x44a6 @0x1c
0x448a…44c2 at001d = ╱54╱T╱ // 0x44a7 @0x1d
0x448a…44c2 at001e = ╱4f╱O╱ // 0x44a8 @0x1e
0x448a…44c2 at001f = ╱ef╱ $ ╱ // 0x44a9 @0x1f
0x448a…44c2 at0020 = ╱ea╱ ; ╱ // 0x44aa @0x20
0x448a…44c2 at0021 = ╱22╱"╱ // 0x44ab @0x21
0x448a…44c2 at0022 = ╱20╱…╱ // 0x44ac @0x22
0x448a…44c2 at0023 = ╱47╱G╱ // 0x44ad @0x23
0x448a…44c2 at0024 = ╱49╱I╱ // 0x44ae @0x24
0x448a…44c2 at0025 = ╱52╱R╱ // 0x44af @0x25
0x448a…44c2 at0026 = ╱4f╱O╱ // 0x44b0 @0x26
0x448a…44c2 at0027 = ╱20╱…╱ // 0x44b1 @0x27
0x448a…44c2 at0028 = ╱22╱"╱ // 0x44b2 @0x28
0x448a…44c2 at0029 = ╱ea╱ ; ╱ // 0x44b3 @0x29
0x448a…44c2 at002a = ╱53╱S╱ // 0x44b4 @0x2a
0x448a…44c2 at002b = ╱56╱V╱ // 0x44b5 @0x2b
0x448a…44c2 at002c = ╱41╱A╱ // 0x44b6 @0x2c
0x448a…44c2 at002d = ╱52╱R╱ // 0x44b7 @0x2d
0x448a…44c2 at002e = ╱ef╱ $ ╱ // 0x44b8 @0x2e
0x448a…44c2 at002f = ╱ed╱ ( ╱ // 0x44b9 @0x2f
0x448a…44c2 at0030 = ╱31╱1╱ // 0x44ba @0x30
0x448a…44c2 at0031 = ╱f20100╱ // 0x44bb @0x31
0x448a…44c2 at0034 = ╱f1╱ : ╱ // 0x44be @0x34
0x448a…44c2 at0035 = ╱4b╱K╱ // 0x44bf @0x35
0x448a…44c2 at0036 = ╱ee╱ ) ╱ // 0x44c0 @0x36
0x448a…44c2 at0037 = EOL // 0x44c1 @0x37
0x448a…44c2 }
0x44c2…4506 daf4 02640 PRINT "<S>BILAG……TEKST………………………………………………………INDBETALT…………UDBETALT………"
0x44c2…4506 LineComal80 {
0x44c2…4506 ptr = 0xdaf4 // 0x44c2 @0x0
0x44c2…4506 lno = 0x0a50 // 0x44c4 @0x2
0x44c2…4506 at0004 = ╱92╱ PRINT ╱ // 0x44c6 @0x4
0x44c2…4506 at0005 = ╱22╱"╱ // 0x44c7 @0x5
0x44c2…4506 at0006 = ╱3c╱<╱ // 0x44c8 @0x6
0x44c2…4506 at0007 = ╱53╱S╱ // 0x44c9 @0x7
0x44c2…4506 at0008 = ╱3e╱>╱ // 0x44ca @0x8
0x44c2…4506 at0009 = ╱42╱B╱ // 0x44cb @0x9
0x44c2…4506 at000a = ╱49╱I╱ // 0x44cc @0xa
0x44c2…4506 at000b = ╱4c╱L╱ // 0x44cd @0xb
0x44c2…4506 at000c = ╱41╱A╱ // 0x44ce @0xc
0x44c2…4506 at000d = ╱47╱G╱ // 0x44cf @0xd
0x44c2…4506 at000e = ╱20╱…╱ // 0x44d0 @0xe
0x44c2…4506 at000f = ╱20╱…╱ // 0x44d1 @0xf
0x44c2…4506 at0010 = ╱54╱T╱ // 0x44d2 @0x10
0x44c2…4506 at0011 = ╱45╱E╱ // 0x44d3 @0x11
0x44c2…4506 at0012 = ╱4b╱K╱ // 0x44d4 @0x12
0x44c2…4506 at0013 = ╱53╱S╱ // 0x44d5 @0x13
0x44c2…4506 at0014 = ╱54╱T╱ // 0x44d6 @0x14
0x44c2…4506 at0015 = ╱20╱…╱ // 0x44d7 @0x15
0x44c2…4506 at0016 = ╱20╱…╱ // 0x44d8 @0x16
0x44c2…4506 at0017 = ╱20╱…╱ // 0x44d9 @0x17
0x44c2…4506 at0018 = ╱20╱…╱ // 0x44da @0x18
0x44c2…4506 at0019 = ╱20╱…╱ // 0x44db @0x19
0x44c2…4506 at001a = ╱20╱…╱ // 0x44dc @0x1a
0x44c2…4506 at001b = ╱20╱…╱ // 0x44dd @0x1b
0x44c2…4506 at001c = ╱20╱…╱ // 0x44de @0x1c
0x44c2…4506 at001d = ╱20╱…╱ // 0x44df @0x1d
0x44c2…4506 at001e = ╱20╱…╱ // 0x44e0 @0x1e
0x44c2…4506 at001f = ╱20╱…╱ // 0x44e1 @0x1f
0x44c2…4506 at0020 = ╱20╱…╱ // 0x44e2 @0x20
0x44c2…4506 at0021 = ╱20╱…╱ // 0x44e3 @0x21
0x44c2…4506 at0022 = ╱20╱…╱ // 0x44e4 @0x22
0x44c2…4506 at0023 = ╱20╱…╱ // 0x44e5 @0x23
0x44c2…4506 at0024 = ╱20╱…╱ // 0x44e6 @0x24
0x44c2…4506 at0025 = ╱20╱…╱ // 0x44e7 @0x25
0x44c2…4506 at0026 = ╱20╱…╱ // 0x44e8 @0x26
0x44c2…4506 at0027 = ╱20╱…╱ // 0x44e9 @0x27
0x44c2…4506 at0028 = ╱20╱…╱ // 0x44ea @0x28
0x44c2…4506 at0029 = ╱20╱…╱ // 0x44eb @0x29
0x44c2…4506 at002a = ╱49╱I╱ // 0x44ec @0x2a
0x44c2…4506 at002b = ╱4e╱N╱ // 0x44ed @0x2b
0x44c2…4506 at002c = ╱44╱D╱ // 0x44ee @0x2c
0x44c2…4506 at002d = ╱42╱B╱ // 0x44ef @0x2d
0x44c2…4506 at002e = ╱45╱E╱ // 0x44f0 @0x2e
0x44c2…4506 at002f = ╱54╱T╱ // 0x44f1 @0x2f
0x44c2…4506 at0030 = ╱41╱A╱ // 0x44f2 @0x30
0x44c2…4506 at0031 = ╱4c╱L╱ // 0x44f3 @0x31
0x44c2…4506 at0032 = ╱54╱T╱ // 0x44f4 @0x32
0x44c2…4506 at0033 = ╱20╱…╱ // 0x44f5 @0x33
0x44c2…4506 at0034 = ╱20╱…╱ // 0x44f6 @0x34
0x44c2…4506 at0035 = ╱20╱…╱ // 0x44f7 @0x35
0x44c2…4506 at0036 = ╱20╱…╱ // 0x44f8 @0x36
0x44c2…4506 at0037 = ╱55╱U╱ // 0x44f9 @0x37
0x44c2…4506 at0038 = ╱44╱D╱ // 0x44fa @0x38
0x44c2…4506 at0039 = ╱42╱B╱ // 0x44fb @0x39
0x44c2…4506 at003a = ╱45╱E╱ // 0x44fc @0x3a
0x44c2…4506 at003b = ╱54╱T╱ // 0x44fd @0x3b
0x44c2…4506 at003c = ╱41╱A╱ // 0x44fe @0x3c
0x44c2…4506 at003d = ╱4c╱L╱ // 0x44ff @0x3d
0x44c2…4506 at003e = ╱54╱T╱ // 0x4500 @0x3e
0x44c2…4506 at003f = ╱20╱…╱ // 0x4501 @0x3f
0x44c2…4506 at0040 = ╱20╱…╱ // 0x4502 @0x40
0x44c2…4506 at0041 = ╱20╱…╱ // 0x4503 @0x41
0x44c2…4506 at0042 = ╱22╱"╱ // 0x4504 @0x42
0x44c2…4506 at0043 = EOL // 0x4505 @0x43
0x44c2…4506 }
0x4506…4545 db33 02650 PRINT "……INDSAT………………H[VET…………………INDSAT………………H[VET……………KONTONR"
0x4506…4545 LineComal80 {
0x4506…4545 ptr = 0xdb33 // 0x4506 @0x0
0x4506…4545 lno = 0x0a5a // 0x4508 @0x2
0x4506…4545 at0004 = ╱92╱ PRINT ╱ // 0x450a @0x4
0x4506…4545 at0005 = ╱22╱"╱ // 0x450b @0x5
0x4506…4545 at0006 = ╱20╱…╱ // 0x450c @0x6
0x4506…4545 at0007 = ╱20╱…╱ // 0x450d @0x7
0x4506…4545 at0008 = ╱49╱I╱ // 0x450e @0x8
0x4506…4545 at0009 = ╱4e╱N╱ // 0x450f @0x9
0x4506…4545 at000a = ╱44╱D╱ // 0x4510 @0xa
0x4506…4545 at000b = ╱53╱S╱ // 0x4511 @0xb
0x4506…4545 at000c = ╱41╱A╱ // 0x4512 @0xc
0x4506…4545 at000d = ╱54╱T╱ // 0x4513 @0xd
0x4506…4545 at000e = ╱20╱…╱ // 0x4514 @0xe
0x4506…4545 at000f = ╱20╱…╱ // 0x4515 @0xf
0x4506…4545 at0010 = ╱20╱…╱ // 0x4516 @0x10
0x4506…4545 at0011 = ╱20╱…╱ // 0x4517 @0x11
0x4506…4545 at0012 = ╱20╱…╱ // 0x4518 @0x12
0x4506…4545 at0013 = ╱20╱…╱ // 0x4519 @0x13
0x4506…4545 at0014 = ╱48╱H╱ // 0x451a @0x14
0x4506…4545 at0015 = ╱5b╱[╱ // 0x451b @0x15
0x4506…4545 at0016 = ╱56╱V╱ // 0x451c @0x16
0x4506…4545 at0017 = ╱45╱E╱ // 0x451d @0x17
0x4506…4545 at0018 = ╱54╱T╱ // 0x451e @0x18
0x4506…4545 at0019 = ╱20╱…╱ // 0x451f @0x19
0x4506…4545 at001a = ╱20╱…╱ // 0x4520 @0x1a
0x4506…4545 at001b = ╱20╱…╱ // 0x4521 @0x1b
0x4506…4545 at001c = ╱20╱…╱ // 0x4522 @0x1c
0x4506…4545 at001d = ╱20╱…╱ // 0x4523 @0x1d
0x4506…4545 at001e = ╱20╱…╱ // 0x4524 @0x1e
0x4506…4545 at001f = ╱20╱…╱ // 0x4525 @0x1f
0x4506…4545 at0020 = ╱49╱I╱ // 0x4526 @0x20
0x4506…4545 at0021 = ╱4e╱N╱ // 0x4527 @0x21
0x4506…4545 at0022 = ╱44╱D╱ // 0x4528 @0x22
0x4506…4545 at0023 = ╱53╱S╱ // 0x4529 @0x23
0x4506…4545 at0024 = ╱41╱A╱ // 0x452a @0x24
0x4506…4545 at0025 = ╱54╱T╱ // 0x452b @0x25
0x4506…4545 at0026 = ╱20╱…╱ // 0x452c @0x26
0x4506…4545 at0027 = ╱20╱…╱ // 0x452d @0x27
0x4506…4545 at0028 = ╱20╱…╱ // 0x452e @0x28
0x4506…4545 at0029 = ╱20╱…╱ // 0x452f @0x29
0x4506…4545 at002a = ╱20╱…╱ // 0x4530 @0x2a
0x4506…4545 at002b = ╱20╱…╱ // 0x4531 @0x2b
0x4506…4545 at002c = ╱48╱H╱ // 0x4532 @0x2c
0x4506…4545 at002d = ╱5b╱[╱ // 0x4533 @0x2d
0x4506…4545 at002e = ╱56╱V╱ // 0x4534 @0x2e
0x4506…4545 at002f = ╱45╱E╱ // 0x4535 @0x2f
0x4506…4545 at0030 = ╱54╱T╱ // 0x4536 @0x30
0x4506…4545 at0031 = ╱20╱…╱ // 0x4537 @0x31
0x4506…4545 at0032 = ╱20╱…╱ // 0x4538 @0x32
0x4506…4545 at0033 = ╱20╱…╱ // 0x4539 @0x33
0x4506…4545 at0034 = ╱20╱…╱ // 0x453a @0x34
0x4506…4545 at0035 = ╱20╱…╱ // 0x453b @0x35
0x4506…4545 at0036 = ╱4b╱K╱ // 0x453c @0x36
0x4506…4545 at0037 = ╱4f╱O╱ // 0x453d @0x37
0x4506…4545 at0038 = ╱4e╱N╱ // 0x453e @0x38
0x4506…4545 at0039 = ╱54╱T╱ // 0x453f @0x39
0x4506…4545 at003a = ╱4f╱O╱ // 0x4540 @0x3a
0x4506…4545 at003b = ╱4e╱N╱ // 0x4541 @0x3b
0x4506…4545 at003c = ╱52╱R╱ // 0x4542 @0x3c
0x4506…4545 at003d = ╱22╱"╱ // 0x4543 @0x3d
0x4506…4545 at003e = EOL // 0x4544 @0x3e
0x4506…4545 }
0x4545…4555 db43 02660 EXEC SLUT_LINIE
0x4545…4555 LineComal80 {
0x4545…4555 ptr = 0xdb43 // 0x4545 @0x0
0x4545…4555 lno = 0x0a64 // 0x4547 @0x2
0x4545…4555 at0004 = ╱9d╱ EXEC ╱ // 0x4549 @0x4
0x4545…4555 at0005 = ╱53╱S╱ // 0x454a @0x5
0x4545…4555 at0006 = ╱4c╱L╱ // 0x454b @0x6
0x4545…4555 at0007 = ╱55╱U╱ // 0x454c @0x7
0x4545…4555 at0008 = ╱54╱T╱ // 0x454d @0x8
0x4545…4555 at0009 = ╱5f╱_╱ // 0x454e @0x9
0x4545…4555 at000a = ╱4c╱L╱ // 0x454f @0xa
0x4545…4555 at000b = ╱49╱I╱ // 0x4550 @0xb
0x4545…4555 at000c = ╱4e╱N╱ // 0x4551 @0xc
0x4545…4555 at000d = ╱49╱I╱ // 0x4552 @0xd
0x4545…4555 at000e = ╱45╱E╱ // 0x4553 @0xe
0x4545…4555 at000f = EOL // 0x4554 @0xf
0x4545…4555 }
0x4555…4575 db63 02670 LET S_NR_KASSE := S_NR_KASSE + 1
0x4555…4575 LineComal80 {
0x4555…4575 ptr = 0xdb63 // 0x4555 @0x0
0x4555…4575 lno = 0x0a6e // 0x4557 @0x2
0x4555…4575 at0004 = ╱86╱ LET ╱ // 0x4559 @0x4
0x4555…4575 at0005 = ╱53╱S╱ // 0x455a @0x5
0x4555…4575 at0006 = ╱5f╱_╱ // 0x455b @0x6
0x4555…4575 at0007 = ╱4e╱N╱ // 0x455c @0x7
0x4555…4575 at0008 = ╱52╱R╱ // 0x455d @0x8
0x4555…4575 at0009 = ╱5f╱_╱ // 0x455e @0x9
0x4555…4575 at000a = ╱4b╱K╱ // 0x455f @0xa
0x4555…4575 at000b = ╱41╱A╱ // 0x4560 @0xb
0x4555…4575 at000c = ╱53╱S╱ // 0x4561 @0xc
0x4555…4575 at000d = ╱53╱S╱ // 0x4562 @0xd
0x4555…4575 at000e = ╱45╱E╱ // 0x4563 @0xe
0x4555…4575 at000f = ╱f0╱ := ╱ // 0x4564 @0xf
0x4555…4575 at0010 = ╱53╱S╱ // 0x4565 @0x10
0x4555…4575 at0011 = ╱5f╱_╱ // 0x4566 @0x11
0x4555…4575 at0012 = ╱4e╱N╱ // 0x4567 @0x12
0x4555…4575 at0013 = ╱52╱R╱ // 0x4568 @0x13
0x4555…4575 at0014 = ╱5f╱_╱ // 0x4569 @0x14
0x4555…4575 at0015 = ╱4b╱K╱ // 0x456a @0x15
0x4555…4575 at0016 = ╱41╱A╱ // 0x456b @0x16
0x4555…4575 at0017 = ╱53╱S╱ // 0x456c @0x17
0x4555…4575 at0018 = ╱53╱S╱ // 0x456d @0x18
0x4555…4575 at0019 = ╱45╱E╱ // 0x456e @0x19
0x4555…4575 at001a = ╱e5╱ + ╱ // 0x456f @0x1a
0x4555…4575 at001b = ╱31╱1╱ // 0x4570 @0x1b
0x4555…4575 at001c = ╱f20100╱ // 0x4571 @0x1c
0x4555…4575 at001f = EOL // 0x4574 @0x1f
0x4555…4575 }
0x4575…4585 db73 02680 ENDPROC SIDE_SKIFT
0x4575…4585 LineComal80 {
0x4575…4585 ptr = 0xdb73 // 0x4575 @0x0
0x4575…4585 lno = 0x0a78 // 0x4577 @0x2
0x4575…4585 at0004 = ╱9f╱ ENDPROC ╱ // 0x4579 @0x4
0x4575…4585 at0005 = ╱53╱S╱ // 0x457a @0x5
0x4575…4585 at0006 = ╱49╱I╱ // 0x457b @0x6
0x4575…4585 at0007 = ╱44╱D╱ // 0x457c @0x7
0x4575…4585 at0008 = ╱45╱E╱ // 0x457d @0x8
0x4575…4585 at0009 = ╱5f╱_╱ // 0x457e @0x9
0x4575…4585 at000a = ╱53╱S╱ // 0x457f @0xa
0x4575…4585 at000b = ╱4b╱K╱ // 0x4580 @0xb
0x4575…4585 at000c = ╱49╱I╱ // 0x4581 @0xc
0x4575…4585 at000d = ╱46╱F╱ // 0x4582 @0xd
0x4575…4585 at000e = ╱54╱T╱ // 0x4583 @0xe
0x4575…4585 at000f = EOL // 0x4584 @0xf
0x4575…4585 }
0x4585…458a db78 02690
0x4585…458a LineComal80 {
0x4585…458a ptr = 0xdb78 // 0x4585 @0x0
0x4585…458a lno = 0x0a82 // 0x4587 @0x2
0x4585…458a at0004 = EOL // 0x4589 @0x4
0x4585…458a }
0x458a…459c db8a 02700 PROC PRINT_LINIE
0x458a…459c LineComal80 {
0x458a…459c ptr = 0xdb8a // 0x458a @0x0
0x458a…459c lno = 0x0a8c // 0x458c @0x2
0x458a…459c at0004 = ╱9e00╱ PROC ╱ // 0x458e @0x4
0x458a…459c at0006 = ╱50╱P╱ // 0x4590 @0x6
0x458a…459c at0007 = ╱52╱R╱ // 0x4591 @0x7
0x458a…459c at0008 = ╱49╱I╱ // 0x4592 @0x8
0x458a…459c at0009 = ╱4e╱N╱ // 0x4593 @0x9
0x458a…459c at000a = ╱54╱T╱ // 0x4594 @0xa
0x458a…459c at000b = ╱5f╱_╱ // 0x4595 @0xb
0x458a…459c at000c = ╱4c╱L╱ // 0x4596 @0xc
0x458a…459c at000d = ╱49╱I╱ // 0x4597 @0xd
0x458a…459c at000e = ╱4e╱N╱ // 0x4598 @0xe
0x458a…459c at000f = ╱49╱I╱ // 0x4599 @0xf
0x458a…459c at0010 = ╱45╱E╱ // 0x459a @0x10
0x458a…459c at0011 = EOL // 0x459b @0x11
0x458a…459c }
0x459c…45b3 dba1 02710 IF K_BNR $ = "*****" THEN EXIT
0x459c…45b3 LineComal80 {
0x459c…45b3 ptr = 0xdba1 // 0x459c @0x0
0x459c…45b3 lno = 0x0a96 // 0x459e @0x2
0x459c…45b3 at0004 = ╱8200╱ IF ╱ // 0x45a0 @0x4
0x459c…45b3 at0006 = ╱4b╱K╱ // 0x45a2 @0x6
0x459c…45b3 at0007 = ╱5f╱_╱ // 0x45a3 @0x7
0x459c…45b3 at0008 = ╱42╱B╱ // 0x45a4 @0x8
0x459c…45b3 at0009 = ╱4e╱N╱ // 0x45a5 @0x9
0x459c…45b3 at000a = ╱52╱R╱ // 0x45a6 @0xa
0x459c…45b3 at000b = ╱ef╱ $ ╱ // 0x45a7 @0xb
0x459c…45b3 at000c = ╱df╱ = ╱ // 0x45a8 @0xc
0x459c…45b3 at000d = ╱22╱"╱ // 0x45a9 @0xd
0x459c…45b3 at000e = ╱2a╱*╱ // 0x45aa @0xe
0x459c…45b3 at000f = ╱2a╱*╱ // 0x45ab @0xf
0x459c…45b3 at0010 = ╱2a╱*╱ // 0x45ac @0x10
0x459c…45b3 at0011 = ╱2a╱*╱ // 0x45ad @0x11
0x459c…45b3 at0012 = ╱2a╱*╱ // 0x45ae @0x12
0x459c…45b3 at0013 = ╱22╱"╱ // 0x45af @0x13
0x459c…45b3 at0014 = ╱b5╱ THEN ╱ // 0x45b0 @0x14
0x459c…45b3 at0015 = ╱99╱ EXIT ╱ // 0x45b1 @0x15
0x459c…45b3 at0016 = EOL // 0x45b2 @0x16
0x459c…45b3 }
0x45b3…45d8 dbc6 02720 IF LIN_T + 12 >= MAX_LIN THEN EXEC TRANSPORT
0x45b3…45d8 LineComal80 {
0x45b3…45d8 ptr = 0xdbc6 // 0x45b3 @0x0
0x45b3…45d8 lno = 0x0aa0 // 0x45b5 @0x2
0x45b3…45d8 at0004 = ╱8200╱ IF ╱ // 0x45b7 @0x4
0x45b3…45d8 at0006 = ╱4c╱L╱ // 0x45b9 @0x6
0x45b3…45d8 at0007 = ╱49╱I╱ // 0x45ba @0x7
0x45b3…45d8 at0008 = ╱4e╱N╱ // 0x45bb @0x8
0x45b3…45d8 at0009 = ╱5f╱_╱ // 0x45bc @0x9
0x45b3…45d8 at000a = ╱54╱T╱ // 0x45bd @0xa
0x45b3…45d8 at000b = ╱e5╱ + ╱ // 0x45be @0xb
0x45b3…45d8 at000c = ╱31╱1╱ // 0x45bf @0xc
0x45b3…45d8 at000d = ╱32╱2╱ // 0x45c0 @0xd
0x45b3…45d8 at000e = ╱f20c00╱ // 0x45c1 @0xe
0x45b3…45d8 at0011 = ╱e3╱ >= ╱ // 0x45c4 @0x11
0x45b3…45d8 at0012 = ╱4d╱M╱ // 0x45c5 @0x12
0x45b3…45d8 at0013 = ╱41╱A╱ // 0x45c6 @0x13
0x45b3…45d8 at0014 = ╱58╱X╱ // 0x45c7 @0x14
0x45b3…45d8 at0015 = ╱5f╱_╱ // 0x45c8 @0x15
0x45b3…45d8 at0016 = ╱4c╱L╱ // 0x45c9 @0x16
0x45b3…45d8 at0017 = ╱49╱I╱ // 0x45ca @0x17
0x45b3…45d8 at0018 = ╱4e╱N╱ // 0x45cb @0x18
0x45b3…45d8 at0019 = ╱b5╱ THEN ╱ // 0x45cc @0x19
0x45b3…45d8 at001a = ╱9d╱ EXEC ╱ // 0x45cd @0x1a
0x45b3…45d8 at001b = ╱54╱T╱ // 0x45ce @0x1b
0x45b3…45d8 at001c = ╱52╱R╱ // 0x45cf @0x1c
0x45b3…45d8 at001d = ╱41╱A╱ // 0x45d0 @0x1d
0x45b3…45d8 at001e = ╱4e╱N╱ // 0x45d1 @0x1e
0x45b3…45d8 at001f = ╱53╱S╱ // 0x45d2 @0x1f
0x45b3…45d8 at0020 = ╱50╱P╱ // 0x45d3 @0x20
0x45b3…45d8 at0021 = ╱4f╱O╱ // 0x45d4 @0x21
0x45b3…45d8 at0022 = ╱52╱R╱ // 0x45d5 @0x22
0x45b3…45d8 at0023 = ╱54╱T╱ // 0x45d6 @0x23
0x45b3…45d8 at0024 = EOL // 0x45d7 @0x24
0x45b3…45d8 }
0x45d8…45ee dbdc 02730 LET LIN_T := LIN_T + 1
0x45d8…45ee LineComal80 {
0x45d8…45ee ptr = 0xdbdc // 0x45d8 @0x0
0x45d8…45ee lno = 0x0aaa // 0x45da @0x2
0x45d8…45ee at0004 = ╱86╱ LET ╱ // 0x45dc @0x4
0x45d8…45ee at0005 = ╱4c╱L╱ // 0x45dd @0x5
0x45d8…45ee at0006 = ╱49╱I╱ // 0x45de @0x6
0x45d8…45ee at0007 = ╱4e╱N╱ // 0x45df @0x7
0x45d8…45ee at0008 = ╱5f╱_╱ // 0x45e0 @0x8
0x45d8…45ee at0009 = ╱54╱T╱ // 0x45e1 @0x9
0x45d8…45ee at000a = ╱f0╱ := ╱ // 0x45e2 @0xa
0x45d8…45ee at000b = ╱4c╱L╱ // 0x45e3 @0xb
0x45d8…45ee at000c = ╱49╱I╱ // 0x45e4 @0xc
0x45d8…45ee at000d = ╱4e╱N╱ // 0x45e5 @0xd
0x45d8…45ee at000e = ╱5f╱_╱ // 0x45e6 @0xe
0x45d8…45ee at000f = ╱54╱T╱ // 0x45e7 @0xf
0x45d8…45ee at0010 = ╱e5╱ + ╱ // 0x45e8 @0x10
0x45d8…45ee at0011 = ╱31╱1╱ // 0x45e9 @0x11
0x45d8…45ee at0012 = ╱f20100╱ // 0x45ea @0x12
0x45d8…45ee at0015 = EOL // 0x45ed @0x15
0x45d8…45ee }
0x45ee…462a b336 02740 PRINT "<S>" ; K_BNR $ ; TAB ( 11 ) ; K_TXT $ ; TAB ( 33 ) ; K_MKOD $ ; TAB ( 35 )
0x45ee…462a LineComal80 {
0x45ee…462a ptr = 0xb336 // 0x45ee @0x0
0x45ee…462a lno = 0x0ab4 // 0x45f0 @0x2
0x45ee…462a at0004 = ╱92╱ PRINT ╱ // 0x45f2 @0x4
0x45ee…462a at0005 = ╱22╱"╱ // 0x45f3 @0x5
0x45ee…462a at0006 = ╱3c╱<╱ // 0x45f4 @0x6
0x45ee…462a at0007 = ╱53╱S╱ // 0x45f5 @0x7
0x45ee…462a at0008 = ╱3e╱>╱ // 0x45f6 @0x8
0x45ee…462a at0009 = ╱22╱"╱ // 0x45f7 @0x9
0x45ee…462a at000a = ╱ea╱ ; ╱ // 0x45f8 @0xa
0x45ee…462a at000b = ╱4b╱K╱ // 0x45f9 @0xb
0x45ee…462a at000c = ╱5f╱_╱ // 0x45fa @0xc
0x45ee…462a at000d = ╱42╱B╱ // 0x45fb @0xd
0x45ee…462a at000e = ╱4e╱N╱ // 0x45fc @0xe
0x45ee…462a at000f = ╱52╱R╱ // 0x45fd @0xf
0x45ee…462a at0010 = ╱ef╱ $ ╱ // 0x45fe @0x10
0x45ee…462a at0011 = ╱ea╱ ; ╱ // 0x45ff @0x11
0x45ee…462a at0012 = ╱d2╱ TAB ╱ // 0x4600 @0x12
0x45ee…462a at0013 = ╱ed╱ ( ╱ // 0x4601 @0x13
0x45ee…462a at0014 = ╱31╱1╱ // 0x4602 @0x14
0x45ee…462a at0015 = ╱31╱1╱ // 0x4603 @0x15
0x45ee…462a at0016 = ╱f20b00╱ // 0x4604 @0x16
0x45ee…462a at0019 = ╱ee╱ ) ╱ // 0x4607 @0x19
0x45ee…462a at001a = ╱ea╱ ; ╱ // 0x4608 @0x1a
0x45ee…462a at001b = ╱4b╱K╱ // 0x4609 @0x1b
0x45ee…462a at001c = ╱5f╱_╱ // 0x460a @0x1c
0x45ee…462a at001d = ╱54╱T╱ // 0x460b @0x1d
0x45ee…462a at001e = ╱58╱X╱ // 0x460c @0x1e
0x45ee…462a at001f = ╱54╱T╱ // 0x460d @0x1f
0x45ee…462a at0020 = ╱ef╱ $ ╱ // 0x460e @0x20
0x45ee…462a at0021 = ╱ea╱ ; ╱ // 0x460f @0x21
0x45ee…462a at0022 = ╱d2╱ TAB ╱ // 0x4610 @0x22
0x45ee…462a at0023 = ╱ed╱ ( ╱ // 0x4611 @0x23
0x45ee…462a at0024 = ╱33╱3╱ // 0x4612 @0x24
0x45ee…462a at0025 = ╱33╱3╱ // 0x4613 @0x25
0x45ee…462a at0026 = ╱f22100╱ // 0x4614 @0x26
0x45ee…462a at0029 = ╱ee╱ ) ╱ // 0x4617 @0x29
0x45ee…462a at002a = ╱ea╱ ; ╱ // 0x4618 @0x2a
0x45ee…462a at002b = ╱4b╱K╱ // 0x4619 @0x2b
0x45ee…462a at002c = ╱5f╱_╱ // 0x461a @0x2c
0x45ee…462a at002d = ╱4d╱M╱ // 0x461b @0x2d
0x45ee…462a at002e = ╱4b╱K╱ // 0x461c @0x2e
0x45ee…462a at002f = ╱4f╱O╱ // 0x461d @0x2f
0x45ee…462a at0030 = ╱44╱D╱ // 0x461e @0x30
0x45ee…462a at0031 = ╱ef╱ $ ╱ // 0x461f @0x31
0x45ee…462a at0032 = ╱ea╱ ; ╱ // 0x4620 @0x32
0x45ee…462a at0033 = ╱d2╱ TAB ╱ // 0x4621 @0x33
0x45ee…462a at0034 = ╱ed╱ ( ╱ // 0x4622 @0x34
0x45ee…462a at0035 = ╱33╱3╱ // 0x4623 @0x35
0x45ee…462a at0036 = ╱35╱5╱ // 0x4624 @0x36
0x45ee…462a at0037 = ╱f22300╱ // 0x4625 @0x37
0x45ee…462a at003a = ╱ee╱ ) ╱ // 0x4628 @0x3a
0x45ee…462a at003b = EOL // 0x4629 @0x3b
0x45ee…462a }
0x462a…466e b6ca 03210 PRINT "<S>-----……------------------------……----------……----------……"
0x462a…466e LineComal80 {
0x462a…466e ptr = 0xb6ca // 0x462a @0x0
0x462a…466e lno = 0x0c8a // 0x462c @0x2
0x462a…466e at0004 = ╱92╱ PRINT ╱ // 0x462e @0x4
0x462a…466e at0005 = ╱22╱"╱ // 0x462f @0x5
0x462a…466e at0006 = ╱3c╱<╱ // 0x4630 @0x6
0x462a…466e at0007 = ╱53╱S╱ // 0x4631 @0x7
0x462a…466e at0008 = ╱3e╱>╱ // 0x4632 @0x8
0x462a…466e at0009 = ╱2d╱-╱ // 0x4633 @0x9
0x462a…466e at000a = ╱2d╱-╱ // 0x4634 @0xa
0x462a…466e at000b = ╱2d╱-╱ // 0x4635 @0xb
0x462a…466e at000c = ╱2d╱-╱ // 0x4636 @0xc
0x462a…466e at000d = ╱2d╱-╱ // 0x4637 @0xd
0x462a…466e at000e = ╱20╱…╱ // 0x4638 @0xe
0x462a…466e at000f = ╱20╱…╱ // 0x4639 @0xf
0x462a…466e at0010 = ╱2d╱-╱ // 0x463a @0x10
0x462a…466e at0011 = ╱2d╱-╱ // 0x463b @0x11
0x462a…466e at0012 = ╱2d╱-╱ // 0x463c @0x12
0x462a…466e at0013 = ╱2d╱-╱ // 0x463d @0x13
0x462a…466e at0014 = ╱2d╱-╱ // 0x463e @0x14
0x462a…466e at0015 = ╱2d╱-╱ // 0x463f @0x15
0x462a…466e at0016 = ╱2d╱-╱ // 0x4640 @0x16
0x462a…466e at0017 = ╱2d╱-╱ // 0x4641 @0x17
0x462a…466e at0018 = ╱2d╱-╱ // 0x4642 @0x18
0x462a…466e at0019 = ╱2d╱-╱ // 0x4643 @0x19
0x462a…466e at001a = ╱2d╱-╱ // 0x4644 @0x1a
0x462a…466e at001b = ╱2d╱-╱ // 0x4645 @0x1b
0x462a…466e at001c = ╱2d╱-╱ // 0x4646 @0x1c
0x462a…466e at001d = ╱2d╱-╱ // 0x4647 @0x1d
0x462a…466e at001e = ╱2d╱-╱ // 0x4648 @0x1e
0x462a…466e at001f = ╱2d╱-╱ // 0x4649 @0x1f
0x462a…466e at0020 = ╱2d╱-╱ // 0x464a @0x20
0x462a…466e at0021 = ╱2d╱-╱ // 0x464b @0x21
0x462a…466e at0022 = ╱2d╱-╱ // 0x464c @0x22
0x462a…466e at0023 = ╱2d╱-╱ // 0x464d @0x23
0x462a…466e at0024 = ╱2d╱-╱ // 0x464e @0x24
0x462a…466e at0025 = ╱2d╱-╱ // 0x464f @0x25
0x462a…466e at0026 = ╱2d╱-╱ // 0x4650 @0x26
0x462a…466e at0027 = ╱2d╱-╱ // 0x4651 @0x27
0x462a…466e at0028 = ╱20╱…╱ // 0x4652 @0x28
0x462a…466e at0029 = ╱20╱…╱ // 0x4653 @0x29
0x462a…466e at002a = ╱2d╱-╱ // 0x4654 @0x2a
0x462a…466e at002b = ╱2d╱-╱ // 0x4655 @0x2b
0x462a…466e at002c = ╱2d╱-╱ // 0x4656 @0x2c
0x462a…466e at002d = ╱2d╱-╱ // 0x4657 @0x2d
0x462a…466e at002e = ╱2d╱-╱ // 0x4658 @0x2e
0x462a…466e at002f = ╱2d╱-╱ // 0x4659 @0x2f
0x462a…466e at0030 = ╱2d╱-╱ // 0x465a @0x30
0x462a…466e at0031 = ╱2d╱-╱ // 0x465b @0x31
0x462a…466e at0032 = ╱2d╱-╱ // 0x465c @0x32
0x462a…466e at0033 = ╱2d╱-╱ // 0x465d @0x33
0x462a…466e at0034 = ╱20╱…╱ // 0x465e @0x34
0x462a…466e at0035 = ╱20╱…╱ // 0x465f @0x35
0x462a…466e at0036 = ╱2d╱-╱ // 0x4660 @0x36
0x462a…466e at0037 = ╱2d╱-╱ // 0x4661 @0x37
0x462a…466e at0038 = ╱2d╱-╱ // 0x4662 @0x38
0x462a…466e at0039 = ╱2d╱-╱ // 0x4663 @0x39
0x462a…466e at003a = ╱2d╱-╱ // 0x4664 @0x3a
0x462a…466e at003b = ╱2d╱-╱ // 0x4665 @0x3b
0x462a…466e at003c = ╱2d╱-╱ // 0x4666 @0x3c
0x462a…466e at003d = ╱2d╱-╱ // 0x4667 @0x3d
0x462a…466e at003e = ╱2d╱-╱ // 0x4668 @0x3e
0x462a…466e at003f = ╱2d╱-╱ // 0x4669 @0x3f
0x462a…466e at0040 = ╱20╱…╱ // 0x466a @0x40
0x462a…466e at0041 = ╱20╱…╱ // 0x466b @0x41
0x462a…466e at0042 = ╱22╱"╱ // 0x466c @0x42
0x462a…466e at0043 = EOL // 0x466d @0x43
0x462a…466e }
0x466e…468b d904 03460 EXEC PRINTRES ( "papir" , 12 )
0x466e…468b LineComal80 {
0x466e…468b ptr = 0xd904 // 0x466e @0x0
0x466e…468b lno = 0x0d84 // 0x4670 @0x2
0x466e…468b at0004 = ╱9d╱ EXEC ╱ // 0x4672 @0x4
0x466e…468b at0005 = ╱50╱P╱ // 0x4673 @0x5
0x466e…468b at0006 = ╱52╱R╱ // 0x4674 @0x6
0x466e…468b at0007 = ╱49╱I╱ // 0x4675 @0x7
0x466e…468b at0008 = ╱4e╱N╱ // 0x4676 @0x8
0x466e…468b at0009 = ╱54╱T╱ // 0x4677 @0x9
0x466e…468b at000a = ╱52╱R╱ // 0x4678 @0xa
0x466e…468b at000b = ╱45╱E╱ // 0x4679 @0xb
0x466e…468b at000c = ╱53╱S╱ // 0x467a @0xc
0x466e…468b at000d = ╱ed╱ ( ╱ // 0x467b @0xd
0x466e…468b at000e = ╱22╱"╱ // 0x467c @0xe
0x466e…468b at000f = ╱70╱p╱ // 0x467d @0xf
0x466e…468b at0010 = ╱61╱a╱ // 0x467e @0x10
0x466e…468b at0011 = ╱70╱p╱ // 0x467f @0x11
0x466e…468b at0012 = ╱69╱i╱ // 0x4680 @0x12
0x466e…468b at0013 = ╱72╱r╱ // 0x4681 @0x13
0x466e…468b at0014 = ╱22╱"╱ // 0x4682 @0x14
0x466e…468b at0015 = ╱ec╱ , ╱ // 0x4683 @0x15
0x466e…468b at0016 = ╱31╱1╱ // 0x4684 @0x16
0x466e…468b at0017 = ╱32╱2╱ // 0x4685 @0x17
0x466e…468b at0018 = ╱f20c00╱ // 0x4686 @0x18
0x466e…468b at001b = ╱ee╱ ) ╱ // 0x4689 @0x1b
0x466e…468b at001c = EOL // 0x468a @0x1c
0x466e…468b }
0x468b…4691 dc7f 09900 //
0x468b…4691 LineComal80 {
0x468b…4691 ptr = 0xdc7f // 0x468b @0x0
0x468b…4691 lno = 0x26ac // 0x468d @0x2
0x468b…4691 at0004 = ╱89╱ // ╱ // 0x468f @0x4
0x468b…4691 at0005 = EOL // 0x4690 @0x5
0x468b…4691 }
0x4691…46c4 dcb2 09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x4691…46c4 LineComal80 {
0x4691…46c4 ptr = 0xdcb2 // 0x4691 @0x0
0x4691…46c4 lno = 0x26ad // 0x4693 @0x2
0x4691…46c4 at0004 = ╱9e00╱ PROC ╱ // 0x4695 @0x4
0x4691…46c4 at0006 = ╱50╱P╱ // 0x4697 @0x6
0x4691…46c4 at0007 = ╱52╱R╱ // 0x4698 @0x7
0x4691…46c4 at0008 = ╱49╱I╱ // 0x4699 @0x8
0x4691…46c4 at0009 = ╱4e╱N╱ // 0x469a @0x9
0x4691…46c4 at000a = ╱54╱T╱ // 0x469b @0xa
0x4691…46c4 at000b = ╱52╱R╱ // 0x469c @0xb
0x4691…46c4 at000c = ╱45╱E╱ // 0x469d @0xc
0x4691…46c4 at000d = ╱53╱S╱ // 0x469e @0xd
0x4691…46c4 at000e = ╱ed╱ ( ╱ // 0x469f @0xe
0x4691…46c4 at000f = ╱50╱P╱ // 0x46a0 @0xf
0x4691…46c4 at0010 = ╱41╱A╱ // 0x46a1 @0x10
0x4691…46c4 at0011 = ╱47╱G╱ // 0x46a2 @0x11
0x4691…46c4 at0012 = ╱45╱E╱ // 0x46a3 @0x12
0x4691…46c4 at0013 = ╱54╱T╱ // 0x46a4 @0x13
0x4691…46c4 at0014 = ╱59╱Y╱ // 0x46a5 @0x14
0x4691…46c4 at0015 = ╱50╱P╱ // 0x46a6 @0x15
0x4691…46c4 at0016 = ╱45╱E╱ // 0x46a7 @0x16
0x4691…46c4 at0017 = ╱ef╱ $ ╱ // 0x46a8 @0x17
0x4691…46c4 at0018 = ╱ec╱ , ╱ // 0x46a9 @0x18
0x4691…46c4 at0019 = ╱4c╱L╱ // 0x46aa @0x19
0x4691…46c4 at001a = ╱49╱I╱ // 0x46ab @0x1a
0x4691…46c4 at001b = ╱4e╱N╱ // 0x46ac @0x1b
0x4691…46c4 at001c = ╱45╱E╱ // 0x46ad @0x1c
0x4691…46c4 at001d = ╱ee╱ ) ╱ // 0x46ae @0x1d
0x4691…46c4 at001e = ╱89╱ // ╱ // 0x46af @0x1e
0x4691…46c4 at001f = ╱50╱P╱ // 0x46b0 @0x1f
0x4691…46c4 at0020 = ╱52╱R╱ // 0x46b1 @0x20
0x4691…46c4 at0021 = ╱49╱I╱ // 0x46b2 @0x21
0x4691…46c4 at0022 = ╱4e╱N╱ // 0x46b3 @0x22
0x4691…46c4 at0023 = ╱54╱T╱ // 0x46b4 @0x23
0x4691…46c4 at0024 = ╱45╱E╱ // 0x46b5 @0x24
0x4691…46c4 at0025 = ╱52╱R╱ // 0x46b6 @0x25
0x4691…46c4 at0026 = ╱20╱…╱ // 0x46b7 @0x26
0x4691…46c4 at0027 = ╱52╱R╱ // 0x46b8 @0x27
0x4691…46c4 at0028 = ╱45╱E╱ // 0x46b9 @0x28
0x4691…46c4 at0029 = ╱53╱S╱ // 0x46ba @0x29
0x4691…46c4 at002a = ╱45╱E╱ // 0x46bb @0x2a
0x4691…46c4 at002b = ╱52╱R╱ // 0x46bc @0x2b
0x4691…46c4 at002c = ╱56╱V╱ // 0x46bd @0x2c
0x4691…46c4 at002d = ╱41╱A╱ // 0x46be @0x2d
0x4691…46c4 at002e = ╱54╱T╱ // 0x46bf @0x2e
0x4691…46c4 at002f = ╱49╱I╱ // 0x46c0 @0x2f
0x4691…46c4 at0030 = ╱4f╱O╱ // 0x46c1 @0x30
0x4691…46c4 at0031 = ╱4e╱N╱ // 0x46c2 @0x31
0x4691…46c4 at0032 = EOL // 0x46c3 @0x32
0x4691…46c4 }
0x46c4…46dc dcca 09902 LET PRTNR $ := "1" ; OK := TRUE
0x46c4…46dc LineComal80 {
0x46c4…46dc ptr = 0xdcca // 0x46c4 @0x0
0x46c4…46dc lno = 0x26ae // 0x46c6 @0x2
0x46c4…46dc at0004 = ╱86╱ LET ╱ // 0x46c8 @0x4
0x46c4…46dc at0005 = ╱50╱P╱ // 0x46c9 @0x5
0x46c4…46dc at0006 = ╱52╱R╱ // 0x46ca @0x6
0x46c4…46dc at0007 = ╱54╱T╱ // 0x46cb @0x7
0x46c4…46dc at0008 = ╱4e╱N╱ // 0x46cc @0x8
0x46c4…46dc at0009 = ╱52╱R╱ // 0x46cd @0x9
0x46c4…46dc at000a = ╱ef╱ $ ╱ // 0x46ce @0xa
0x46c4…46dc at000b = ╱f0╱ := ╱ // 0x46cf @0xb
0x46c4…46dc at000c = ╱22╱"╱ // 0x46d0 @0xc
0x46c4…46dc at000d = ╱31╱1╱ // 0x46d1 @0xd
0x46c4…46dc at000e = ╱22╱"╱ // 0x46d2 @0xe
0x46c4…46dc at000f = ╱ea╱ ; ╱ // 0x46d3 @0xf
0x46c4…46dc at0010 = ╱4f╱O╱ // 0x46d4 @0x10
0x46c4…46dc at0011 = ╱4b╱K╱ // 0x46d5 @0x11
0x46c4…46dc at0012 = ╱f0╱ := ╱ // 0x46d6 @0x12
0x46c4…46dc at0013 = ╱54╱T╱ // 0x46d7 @0x13
0x46c4…46dc at0014 = ╱52╱R╱ // 0x46d8 @0x14
0x46c4…46dc at0015 = ╱55╱U╱ // 0x46d9 @0x15
0x46c4…46dc at0016 = ╱45╱E╱ // 0x46da @0x16
0x46c4…46dc at0017 = EOL // 0x46db @0x17
0x46c4…46dc }
0x46dc…46e3 dcd1 09903 REPEAT
0x46dc…46e3 LineComal80 {
0x46dc…46e3 ptr = 0xdcd1 // 0x46dc @0x0
0x46dc…46e3 lno = 0x26af // 0x46de @0x2
0x46dc…46e3 at0004 = ╱9700╱ REPEAT ╱ // 0x46e0 @0x4
0x46dc…46e3 at0006 = EOL // 0x46e2 @0x6
0x46dc…46e3 }
0x46e3…46f3 dce1 09904 CURSOR 15 , LINE
0x46e3…46f3 LineComal80 {
0x46e3…46f3 ptr = 0xdce1 // 0x46e3 @0x0
0x46e3…46f3 lno = 0x26b0 // 0x46e5 @0x2
0x46e3…46f3 at0004 = ╱a1╱ CURSOR ╱ // 0x46e7 @0x4
0x46e3…46f3 at0005 = ╱31╱1╱ // 0x46e8 @0x5
0x46e3…46f3 at0006 = ╱35╱5╱ // 0x46e9 @0x6
0x46e3…46f3 at0007 = ╱f20f00╱ // 0x46ea @0x7
0x46e3…46f3 at000a = ╱ec╱ , ╱ // 0x46ed @0xa
0x46e3…46f3 at000b = ╱4c╱L╱ // 0x46ee @0xb
0x46e3…46f3 at000c = ╱49╱I╱ // 0x46ef @0xc
0x46e3…46f3 at000d = ╱4e╱N╱ // 0x46f0 @0xd
0x46e3…46f3 at000e = ╱45╱E╱ // 0x46f1 @0xe
0x46e3…46f3 at000f = EOL // 0x46f2 @0xf
0x46e3…46f3 }
0x46f3…472c dd1a 09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x46f3…472c LineComal80 {
0x46f3…472c ptr = 0xdd1a // 0x46f3 @0x0
0x46f3…472c lno = 0x26b1 // 0x46f5 @0x2
0x46f3…472c at0004 = ╱b1╱ EDIT ╱ // 0x46f7 @0x4
0x46f3…472c at0005 = ╱22╱"╱ // 0x46f8 @0x5
0x46f3…472c at0006 = ╱3c╱<╱ // 0x46f9 @0x6
0x46f3…472c at0007 = ╱5a╱Z╱ // 0x46fa @0x7
0x46f3…472c at0008 = ╱3e╱>╱ // 0x46fb @0x8
0x46f3…472c at0009 = ╱55╱U╱ // 0x46fc @0x9
0x46f3…472c at000a = ╱64╱d╱ // 0x46fd @0xa
0x46f3…472c at000b = ╱73╱s╱ // 0x46fe @0xb
0x46f3…472c at000c = ╱6b╱k╱ // 0x46ff @0xc
0x46f3…472c at000d = ╱72╱r╱ // 0x4700 @0xd
0x46f3…472c at000e = ╱69╱i╱ // 0x4701 @0xe
0x46f3…472c at000f = ╱76╱v╱ // 0x4702 @0xf
0x46f3…472c at0010 = ╱6e╱n╱ // 0x4703 @0x10
0x46f3…472c at0011 = ╱69╱i╱ // 0x4704 @0x11
0x46f3…472c at0012 = ╱6e╱n╱ // 0x4705 @0x12
0x46f3…472c at0013 = ╱67╱g╱ // 0x4706 @0x13
0x46f3…472c at0014 = ╱20╱…╱ // 0x4707 @0x14
0x46f3…472c at0015 = ╱70╱p╱ // 0x4708 @0x15
0x46f3…472c at0016 = ╱7d╱}╱ // 0x4709 @0x16
0x46f3…472c at0017 = ╱20╱…╱ // 0x470a @0x17
0x46f3…472c at0018 = ╱70╱p╱ // 0x470b @0x18
0x46f3…472c at0019 = ╱72╱r╱ // 0x470c @0x19
0x46f3…472c at001a = ╱69╱i╱ // 0x470d @0x1a
0x46f3…472c at001b = ╱6e╱n╱ // 0x470e @0x1b
0x46f3…472c at001c = ╱74╱t╱ // 0x470f @0x1c
0x46f3…472c at001d = ╱65╱e╱ // 0x4710 @0x1d
0x46f3…472c at001e = ╱72╱r╱ // 0x4711 @0x1e
0x46f3…472c at001f = ╱20╱…╱ // 0x4712 @0x1f
0x46f3…472c at0020 = ╱6e╱n╱ // 0x4713 @0x20
0x46f3…472c at0021 = ╱72╱r╱ // 0x4714 @0x21
0x46f3…472c at0022 = ╱2e╱.╱ // 0x4715 @0x22
0x46f3…472c at0023 = ╱20╱…╱ // 0x4716 @0x23
0x46f3…472c at0024 = ╱3f╱?╱ // 0x4717 @0x24
0x46f3…472c at0025 = ╱20╱…╱ // 0x4718 @0x25
0x46f3…472c at0026 = ╱28╱(╱ // 0x4719 @0x26
0x46f3…472c at0027 = ╱31╱1╱ // 0x471a @0x27
0x46f3…472c at0028 = ╱2f╱/╱ // 0x471b @0x28
0x46f3…472c at0029 = ╱32╱2╱ // 0x471c @0x29
0x46f3…472c at002a = ╱2f╱/╱ // 0x471d @0x2a
0x46f3…472c at002b = ╱33╱3╱ // 0x471e @0x2b
0x46f3…472c at002c = ╱2f╱/╱ // 0x471f @0x2c
0x46f3…472c at002d = ╱34╱4╱ // 0x4720 @0x2d
0x46f3…472c at002e = ╱29╱)╱ // 0x4721 @0x2e
0x46f3…472c at002f = ╱20╱…╱ // 0x4722 @0x2f
0x46f3…472c at0030 = ╱22╱"╱ // 0x4723 @0x30
0x46f3…472c at0031 = ╱f1╱ : ╱ // 0x4724 @0x31
0x46f3…472c at0032 = ╱50╱P╱ // 0x4725 @0x32
0x46f3…472c at0033 = ╱52╱R╱ // 0x4726 @0x33
0x46f3…472c at0034 = ╱54╱T╱ // 0x4727 @0x34
0x46f3…472c at0035 = ╱4e╱N╱ // 0x4728 @0x35
0x46f3…472c at0036 = ╱52╱R╱ // 0x4729 @0x36
0x46f3…472c at0037 = ╱ef╱ $ ╱ // 0x472a @0x37
0x46f3…472c at0038 = EOL // 0x472b @0x38
0x46f3…472c }
0x472c…474c dd3a 09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x472c…474c LineComal80 {
0x472c…474c ptr = 0xdd3a // 0x472c @0x0
0x472c…474c lno = 0x26b2 // 0x472e @0x2
0x472c…474c at0004 = ╱98╱ UNTIL ╱ // 0x4730 @0x4
0x472c…474c at0005 = ╱22╱"╱ // 0x4731 @0x5
0x472c…474c at0006 = ╱2f╱/╱ // 0x4732 @0x6
0x472c…474c at0007 = ╱22╱"╱ // 0x4733 @0x7
0x472c…474c at0008 = ╱eb╱ + ╱ // 0x4734 @0x8
0x472c…474c at0009 = ╱50╱P╱ // 0x4735 @0x9
0x472c…474c at000a = ╱52╱R╱ // 0x4736 @0xa
0x472c…474c at000b = ╱54╱T╱ // 0x4737 @0xb
0x472c…474c at000c = ╱4e╱N╱ // 0x4738 @0xc
0x472c…474c at000d = ╱52╱R╱ // 0x4739 @0xd
0x472c…474c at000e = ╱ef╱ $ ╱ // 0x473a @0xe
0x472c…474c at000f = ╱eb╱ + ╱ // 0x473b @0xf
0x472c…474c at0010 = ╱22╱"╱ // 0x473c @0x10
0x472c…474c at0011 = ╱2f╱/╱ // 0x473d @0x11
0x472c…474c at0012 = ╱22╱"╱ // 0x473e @0x12
0x472c…474c at0013 = ╱dc╱ IN ╱ // 0x473f @0x13
0x472c…474c at0014 = ╱22╱"╱ // 0x4740 @0x14
0x472c…474c at0015 = ╱2f╱/╱ // 0x4741 @0x15
0x472c…474c at0016 = ╱31╱1╱ // 0x4742 @0x16
0x472c…474c at0017 = ╱2f╱/╱ // 0x4743 @0x17
0x472c…474c at0018 = ╱32╱2╱ // 0x4744 @0x18
0x472c…474c at0019 = ╱2f╱/╱ // 0x4745 @0x19
0x472c…474c at001a = ╱33╱3╱ // 0x4746 @0x1a
0x472c…474c at001b = ╱2f╱/╱ // 0x4747 @0x1b
0x472c…474c at001c = ╱34╱4╱ // 0x4748 @0x1c
0x472c…474c at001d = ╱2f╱/╱ // 0x4749 @0x1d
0x472c…474c at001e = ╱22╱"╱ // 0x474a @0x1e
0x472c…474c at001f = EOL // 0x474b @0x1f
0x472c…474c }
0x474c…475b dd49 09907 CURSOR 1 , LINE
0x474c…475b LineComal80 {
0x474c…475b ptr = 0xdd49 // 0x474c @0x0
0x474c…475b lno = 0x26b3 // 0x474e @0x2
0x474c…475b at0004 = ╱a1╱ CURSOR ╱ // 0x4750 @0x4
0x474c…475b at0005 = ╱31╱1╱ // 0x4751 @0x5
0x474c…475b at0006 = ╱f20100╱ // 0x4752 @0x6
0x474c…475b at0009 = ╱ec╱ , ╱ // 0x4755 @0x9
0x474c…475b at000a = ╱4c╱L╱ // 0x4756 @0xa
0x474c…475b at000b = ╱49╱I╱ // 0x4757 @0xb
0x474c…475b at000c = ╱4e╱N╱ // 0x4758 @0xc
0x474c…475b at000d = ╱45╱E╱ // 0x4759 @0xd
0x474c…475b at000e = EOL // 0x475a @0xe
0x474c…475b }
0x475b…4766 dd54 09908 PRINT "<Z>"
0x475b…4766 LineComal80 {
0x475b…4766 ptr = 0xdd54 // 0x475b @0x0
0x475b…4766 lno = 0x26b4 // 0x475d @0x2
0x475b…4766 at0004 = ╱92╱ PRINT ╱ // 0x475f @0x4
0x475b…4766 at0005 = ╱22╱"╱ // 0x4760 @0x5
0x475b…4766 at0006 = ╱3c╱<╱ // 0x4761 @0x6
0x475b…4766 at0007 = ╱5a╱Z╱ // 0x4762 @0x7
0x475b…4766 at0008 = ╱3e╱>╱ // 0x4763 @0x8
0x475b…4766 at0009 = ╱22╱"╱ // 0x4764 @0x9
0x475b…4766 at000a = EOL // 0x4765 @0xa
0x475b…4766 }
0x4766…478a dd78 09909 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x4766…478a LineComal80 {
0x4766…478a ptr = 0xdd78 // 0x4766 @0x0
0x4766…478a lno = 0x26b5 // 0x4768 @0x2
0x4766…478a at0004 = ╱a1╱ CURSOR ╱ // 0x476a @0x4
0x4766…478a at0005 = ╱ed╱ ( ╱ // 0x476b @0x5
0x4766…478a at0006 = ╱33╱3╱ // 0x476c @0x6
0x4766…478a at0007 = ╱39╱9╱ // 0x476d @0x7
0x4766…478a at0008 = ╱f22700╱ // 0x476e @0x8
0x4766…478a at000b = ╱e6╱ - ╱ // 0x4771 @0xb
0x4766…478a at000c = ╱cb╱ // 0x4772 @0xc
0x4766…478a at000d = ╱ed╱ ( ╱ // 0x4773 @0xd
0x4766…478a at000e = ╱50╱P╱ // 0x4774 @0xe
0x4766…478a at000f = ╱41╱A╱ // 0x4775 @0xf
0x4766…478a at0010 = ╱47╱G╱ // 0x4776 @0x10
0x4766…478a at0011 = ╱45╱E╱ // 0x4777 @0x11
0x4766…478a at0012 = ╱54╱T╱ // 0x4778 @0x12
0x4766…478a at0013 = ╱59╱Y╱ // 0x4779 @0x13
0x4766…478a at0014 = ╱50╱P╱ // 0x477a @0x14
0x4766…478a at0015 = ╱45╱E╱ // 0x477b @0x15
0x4766…478a at0016 = ╱ef╱ $ ╱ // 0x477c @0x16
0x4766…478a at0017 = ╱ee╱ ) ╱ // 0x477d @0x17
0x4766…478a at0018 = ╱ee╱ ) ╱ // 0x477e @0x18
0x4766…478a at0019 = ╱da╱ DIV ╱ // 0x477f @0x19
0x4766…478a at001a = ╱32╱2╱ // 0x4780 @0x1a
0x4766…478a at001b = ╱f20200╱ // 0x4781 @0x1b
0x4766…478a at001e = ╱ec╱ , ╱ // 0x4784 @0x1e
0x4766…478a at001f = ╱4c╱L╱ // 0x4785 @0x1f
0x4766…478a at0020 = ╱49╱I╱ // 0x4786 @0x20
0x4766…478a at0021 = ╱4e╱N╱ // 0x4787 @0x21
0x4766…478a at0022 = ╱45╱E╱ // 0x4788 @0x22
0x4766…478a at0023 = EOL // 0x4789 @0x23
0x4766…478a }
0x478a…47ca ddb8 09910 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x478a…47ca LineComal80 {
0x478a…47ca ptr = 0xddb8 // 0x478a @0x0
0x478a…47ca lno = 0x26b6 // 0x478c @0x2
0x478a…47ca at0004 = ╱92╱ PRINT ╱ // 0x478e @0x4
0x478a…47ca at0005 = ╱22╱"╱ // 0x478f @0x5
0x478a…47ca at0006 = ╱3c╱<╱ // 0x4790 @0x6
0x478a…47ca at0007 = ╱53╱S╱ // 0x4791 @0x7
0x478a…47ca at0008 = ╱5a╱Z╱ // 0x4792 @0x8
0x478a…47ca at0009 = ╱3e╱>╱ // 0x4793 @0x9
0x478a…47ca at000a = ╱20╱…╱ // 0x4794 @0xa
0x478a…47ca at000b = ╱20╱…╱ // 0x4795 @0xb
0x478a…47ca at000c = ╱20╱…╱ // 0x4796 @0xc
0x478a…47ca at000d = ╱20╱…╱ // 0x4797 @0xd
0x478a…47ca at000e = ╱20╱…╱ // 0x4798 @0xe
0x478a…47ca at000f = ╱4d╱M╱ // 0x4799 @0xf
0x478a…47ca at0010 = ╱6f╱o╱ // 0x479a @0x10
0x478a…47ca at0011 = ╱6e╱n╱ // 0x479b @0x11
0x478a…47ca at0012 = ╱74╱t╱ // 0x479c @0x12
0x478a…47ca at0013 = ╱65╱e╱ // 0x479d @0x13
0x478a…47ca at0014 = ╱72╱r╱ // 0x479e @0x14
0x478a…47ca at0015 = ╱20╱…╱ // 0x479f @0x15
0x478a…47ca at0016 = ╱22╱"╱ // 0x47a0 @0x16
0x478a…47ca at0017 = ╱ea╱ ; ╱ // 0x47a1 @0x17
0x478a…47ca at0018 = ╱50╱P╱ // 0x47a2 @0x18
0x478a…47ca at0019 = ╱41╱A╱ // 0x47a3 @0x19
0x478a…47ca at001a = ╱47╱G╱ // 0x47a4 @0x1a
0x478a…47ca at001b = ╱45╱E╱ // 0x47a5 @0x1b
0x478a…47ca at001c = ╱54╱T╱ // 0x47a6 @0x1c
0x478a…47ca at001d = ╱59╱Y╱ // 0x47a7 @0x1d
0x478a…47ca at001e = ╱50╱P╱ // 0x47a8 @0x1e
0x478a…47ca at001f = ╱45╱E╱ // 0x47a9 @0x1f
0x478a…47ca at0020 = ╱ef╱ $ ╱ // 0x47aa @0x20
0x478a…47ca at0021 = ╱ea╱ ; ╱ // 0x47ab @0x21
0x478a…47ca at0022 = ╱22╱"╱ // 0x47ac @0x22
0x478a…47ca at0023 = ╱20╱…╱ // 0x47ad @0x23
0x478a…47ca at0024 = ╱69╱i╱ // 0x47ae @0x24
0x478a…47ca at0025 = ╱20╱…╱ // 0x47af @0x25
0x478a…47ca at0026 = ╱70╱p╱ // 0x47b0 @0x26
0x478a…47ca at0027 = ╱72╱r╱ // 0x47b1 @0x27
0x478a…47ca at0028 = ╱69╱i╱ // 0x47b2 @0x28
0x478a…47ca at0029 = ╱6e╱n╱ // 0x47b3 @0x29
0x478a…47ca at002a = ╱74╱t╱ // 0x47b4 @0x2a
0x478a…47ca at002b = ╱65╱e╱ // 0x47b5 @0x2b
0x478a…47ca at002c = ╱72╱r╱ // 0x47b6 @0x2c
0x478a…47ca at002d = ╱65╱e╱ // 0x47b7 @0x2d
0x478a…47ca at002e = ╱6e╱n╱ // 0x47b8 @0x2e
0x478a…47ca at002f = ╱20╱…╱ // 0x47b9 @0x2f
0x478a…47ca at0030 = ╱2d╱-╱ // 0x47ba @0x30
0x478a…47ca at0031 = ╱20╱…╱ // 0x47bb @0x31
0x478a…47ca at0032 = ╱74╱t╱ // 0x47bc @0x32
0x478a…47ca at0033 = ╱72╱r╱ // 0x47bd @0x33
0x478a…47ca at0034 = ╱79╱y╱ // 0x47be @0x34
0x478a…47ca at0035 = ╱6b╱k╱ // 0x47bf @0x35
0x478a…47ca at0036 = ╱20╱…╱ // 0x47c0 @0x36
0x478a…47ca at0037 = ╱52╱R╱ // 0x47c1 @0x37
0x478a…47ca at0038 = ╱45╱E╱ // 0x47c2 @0x38
0x478a…47ca at0039 = ╱54╱T╱ // 0x47c3 @0x39
0x478a…47ca at003a = ╱55╱U╱ // 0x47c4 @0x3a
0x478a…47ca at003b = ╱52╱R╱ // 0x47c5 @0x3b
0x478a…47ca at003c = ╱4e╱N╱ // 0x47c6 @0x3c
0x478a…47ca at003d = ╱20╱…╱ // 0x47c7 @0x3d
0x478a…47ca at003e = ╱22╱"╱ // 0x47c8 @0x3e
0x478a…47ca at003f = EOL // 0x47c9 @0x3f
0x478a…47ca }
0x47ca…47d8 ddc6 09911 INPUT "" : SVAR $
0x47ca…47d8 LineComal80 {
0x47ca…47d8 ptr = 0xddc6 // 0x47ca @0x0
0x47ca…47d8 lno = 0x26b7 // 0x47cc @0x2
0x47ca…47d8 at0004 = ╱91╱ INPUT ╱ // 0x47ce @0x4
0x47ca…47d8 at0005 = ╱22╱"╱ // 0x47cf @0x5
0x47ca…47d8 at0006 = ╱22╱"╱ // 0x47d0 @0x6
0x47ca…47d8 at0007 = ╱f1╱ : ╱ // 0x47d1 @0x7
0x47ca…47d8 at0008 = ╱53╱S╱ // 0x47d2 @0x8
0x47ca…47d8 at0009 = ╱56╱V╱ // 0x47d3 @0x9
0x47ca…47d8 at000a = ╱41╱A╱ // 0x47d4 @0xa
0x47ca…47d8 at000b = ╱52╱R╱ // 0x47d5 @0xb
0x47ca…47d8 at000c = ╱ef╱ $ ╱ // 0x47d6 @0xc
0x47ca…47d8 at000d = EOL // 0x47d7 @0xd
0x47ca…47d8 }
0x47d8…47e8 ddd6 09912 SELECT OUTPUT "P" + PRTNR $
0x47d8…47e8 LineComal80 {
0x47d8…47e8 ptr = 0xddd6 // 0x47d8 @0x0
0x47d8…47e8 lno = 0x26b8 // 0x47da @0x2
0x47d8…47e8 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x47dc @0x4
0x47d8…47e8 at0005 = ╱22╱"╱ // 0x47dd @0x5
0x47d8…47e8 at0006 = ╱50╱P╱ // 0x47de @0x6
0x47d8…47e8 at0007 = ╱22╱"╱ // 0x47df @0x7
0x47d8…47e8 at0008 = ╱eb╱ + ╱ // 0x47e0 @0x8
0x47d8…47e8 at0009 = ╱50╱P╱ // 0x47e1 @0x9
0x47d8…47e8 at000a = ╱52╱R╱ // 0x47e2 @0xa
0x47d8…47e8 at000b = ╱54╱T╱ // 0x47e3 @0xb
0x47d8…47e8 at000c = ╱4e╱N╱ // 0x47e4 @0xc
0x47d8…47e8 at000d = ╱52╱R╱ // 0x47e5 @0xd
0x47d8…47e8 at000e = ╱ef╱ $ ╱ // 0x47e6 @0xe
0x47d8…47e8 at000f = EOL // 0x47e7 @0xf
0x47d8…47e8 }
0x47e8…47f6 dde4 09913 IF ( "P" ) THEN
0x47e8…47f6 LineComal80 {
0x47e8…47f6 ptr = 0xdde4 // 0x47e8 @0x0
0x47e8…47f6 lno = 0x26b9 // 0x47ea @0x2
0x47e8…47f6 at0004 = ╱9b00cd╱ IF ╱ // 0x47ec @0x4
0x47e8…47f6 at0007 = ╱ed╱ ( ╱ // 0x47ef @0x7
0x47e8…47f6 at0008 = ╱22╱"╱ // 0x47f0 @0x8
0x47e8…47f6 at0009 = ╱50╱P╱ // 0x47f1 @0x9
0x47e8…47f6 at000a = ╱22╱"╱ // 0x47f2 @0xa
0x47e8…47f6 at000b = ╱ee╱ ) ╱ // 0x47f3 @0xb
0x47e8…47f6 at000c = ╱b5╱ THEN ╱ // 0x47f4 @0xc
0x47e8…47f6 at000d = EOL // 0x47f5 @0xd
0x47e8…47f6 }
0x47f6…4806 ddf4 09914 CURSOR 12 , LINE
0x47f6…4806 LineComal80 {
0x47f6…4806 ptr = 0xddf4 // 0x47f6 @0x0
0x47f6…4806 lno = 0x26ba // 0x47f8 @0x2
0x47f6…4806 at0004 = ╱a1╱ CURSOR ╱ // 0x47fa @0x4
0x47f6…4806 at0005 = ╱31╱1╱ // 0x47fb @0x5
0x47f6…4806 at0006 = ╱32╱2╱ // 0x47fc @0x6
0x47f6…4806 at0007 = ╱f20c00╱ // 0x47fd @0x7
0x47f6…4806 at000a = ╱ec╱ , ╱ // 0x4800 @0xa
0x47f6…4806 at000b = ╱4c╱L╱ // 0x4801 @0xb
0x47f6…4806 at000c = ╱49╱I╱ // 0x4802 @0xc
0x47f6…4806 at000d = ╱4e╱N╱ // 0x4803 @0xd
0x47f6…4806 at000e = ╱45╱E╱ // 0x4804 @0xe
0x47f6…4806 at000f = EOL // 0x4805 @0xf
0x47f6…4806 }
0x4806…483d de2b 09915 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x4806…483d LineComal80 {
0x4806…483d ptr = 0xde2b // 0x4806 @0x0
0x4806…483d lno = 0x26bb // 0x4808 @0x2
0x4806…483d at0004 = ╱92╱ PRINT ╱ // 0x480a @0x4
0x4806…483d at0005 = ╱22╱"╱ // 0x480b @0x5
0x4806…483d at0006 = ╱3c╱<╱ // 0x480c @0x6
0x4806…483d at0007 = ╱53╱S╱ // 0x480d @0x7
0x4806…483d at0008 = ╱5a╱Z╱ // 0x480e @0x8
0x4806…483d at0009 = ╱3e╱>╱ // 0x480f @0x9
0x4806…483d at000a = ╱50╱P╱ // 0x4810 @0xa
0x4806…483d at000b = ╱72╱r╱ // 0x4811 @0xb
0x4806…483d at000c = ╱69╱i╱ // 0x4812 @0xc
0x4806…483d at000d = ╱6e╱n╱ // 0x4813 @0xd
0x4806…483d at000e = ╱74╱t╱ // 0x4814 @0xe
0x4806…483d at000f = ╱65╱e╱ // 0x4815 @0xf
0x4806…483d at0010 = ╱72╱r╱ // 0x4816 @0x10
0x4806…483d at0011 = ╱65╱e╱ // 0x4817 @0x11
0x4806…483d at0012 = ╱6e╱n╱ // 0x4818 @0x12
0x4806…483d at0013 = ╱20╱…╱ // 0x4819 @0x13
0x4806…483d at0014 = ╱65╱e╱ // 0x481a @0x14
0x4806…483d at0015 = ╱72╱r╱ // 0x481b @0x15
0x4806…483d at0016 = ╱20╱…╱ // 0x481c @0x16
0x4806…483d at0017 = ╱72╱r╱ // 0x481d @0x17
0x4806…483d at0018 = ╱65╱e╱ // 0x481e @0x18
0x4806…483d at0019 = ╱73╱s╱ // 0x481f @0x19
0x4806…483d at001a = ╱65╱e╱ // 0x4820 @0x1a
0x4806…483d at001b = ╱72╱r╱ // 0x4821 @0x1b
0x4806…483d at001c = ╱76╱v╱ // 0x4822 @0x1c
0x4806…483d at001d = ╱65╱e╱ // 0x4823 @0x1d
0x4806…483d at001e = ╱72╱r╱ // 0x4824 @0x1e
0x4806…483d at001f = ╱65╱e╱ // 0x4825 @0x1f
0x4806…483d at0020 = ╱74╱t╱ // 0x4826 @0x20
0x4806…483d at0021 = ╱20╱…╱ // 0x4827 @0x21
0x4806…483d at0022 = ╱61╱a╱ // 0x4828 @0x22
0x4806…483d at0023 = ╱66╱f╱ // 0x4829 @0x23
0x4806…483d at0024 = ╱20╱…╱ // 0x482a @0x24
0x4806…483d at0025 = ╱65╱e╱ // 0x482b @0x25
0x4806…483d at0026 = ╱6e╱n╱ // 0x482c @0x26
0x4806…483d at0027 = ╱20╱…╱ // 0x482d @0x27
0x4806…483d at0028 = ╱61╱a╱ // 0x482e @0x28
0x4806…483d at0029 = ╱6e╱n╱ // 0x482f @0x29
0x4806…483d at002a = ╱64╱d╱ // 0x4830 @0x2a
0x4806…483d at002b = ╱65╱e╱ // 0x4831 @0x2b
0x4806…483d at002c = ╱6e╱n╱ // 0x4832 @0x2c
0x4806…483d at002d = ╱20╱…╱ // 0x4833 @0x2d
0x4806…483d at002e = ╱62╱b╱ // 0x4834 @0x2e
0x4806…483d at002f = ╱72╱r╱ // 0x4835 @0x2f
0x4806…483d at0030 = ╱75╱u╱ // 0x4836 @0x30
0x4806…483d at0031 = ╱67╱g╱ // 0x4837 @0x31
0x4806…483d at0032 = ╱65╱e╱ // 0x4838 @0x32
0x4806…483d at0033 = ╱72╱r╱ // 0x4839 @0x33
0x4806…483d at0034 = ╱2c╱,╱ // 0x483a @0x34
0x4806…483d at0035 = ╱22╱"╱ // 0x483b @0x35
0x4806…483d at0036 = EOL // 0x483c @0x36
0x4806…483d }
0x483d…4852 de40 09916 CURSOR 12 , LINE + 1
0x483d…4852 LineComal80 {
0x483d…4852 ptr = 0xde40 // 0x483d @0x0
0x483d…4852 lno = 0x26bc // 0x483f @0x2
0x483d…4852 at0004 = ╱a1╱ CURSOR ╱ // 0x4841 @0x4
0x483d…4852 at0005 = ╱31╱1╱ // 0x4842 @0x5
0x483d…4852 at0006 = ╱32╱2╱ // 0x4843 @0x6
0x483d…4852 at0007 = ╱f20c00╱ // 0x4844 @0x7
0x483d…4852 at000a = ╱ec╱ , ╱ // 0x4847 @0xa
0x483d…4852 at000b = ╱4c╱L╱ // 0x4848 @0xb
0x483d…4852 at000c = ╱49╱I╱ // 0x4849 @0xc
0x483d…4852 at000d = ╱4e╱N╱ // 0x484a @0xd
0x483d…4852 at000e = ╱45╱E╱ // 0x484b @0xe
0x483d…4852 at000f = ╱e5╱ + ╱ // 0x484c @0xf
0x483d…4852 at0010 = ╱31╱1╱ // 0x484d @0x10
0x483d…4852 at0011 = ╱f20100╱ // 0x484e @0x11
0x483d…4852 at0014 = EOL // 0x4851 @0x14
0x483d…4852 }
0x4852…4893 de81 09917 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x4852…4893 LineComal80 {
0x4852…4893 ptr = 0xde81 // 0x4852 @0x0
0x4852…4893 lno = 0x26bd // 0x4854 @0x2
0x4852…4893 at0004 = ╱91╱ INPUT ╱ // 0x4856 @0x4
0x4852…4893 at0005 = ╱22╱"╱ // 0x4857 @0x5
0x4852…4893 at0006 = ╱3c╱<╱ // 0x4858 @0x6
0x4852…4893 at0007 = ╱53╱S╱ // 0x4859 @0x7
0x4852…4893 at0008 = ╱5a╱Z╱ // 0x485a @0x8
0x4852…4893 at0009 = ╱3e╱>╱ // 0x485b @0x9
0x4852…4893 at000a = ╱53╱S╱ // 0x485c @0xa
0x4852…4893 at000b = ╱6b╱k╱ // 0x485d @0xb
0x4852…4893 at000c = ╱61╱a╱ // 0x485e @0xc
0x4852…4893 at000d = ╱6c╱l╱ // 0x485f @0xd
0x4852…4893 at000e = ╱20╱…╱ // 0x4860 @0xe
0x4852…4893 at000f = ╱64╱d╱ // 0x4861 @0xf
0x4852…4893 at0010 = ╱65╱e╱ // 0x4862 @0x10
0x4852…4893 at0011 = ╱72╱r╱ // 0x4863 @0x11
0x4852…4893 at0012 = ╱20╱…╱ // 0x4864 @0x12
0x4852…4893 at0013 = ╱76╱v╱ // 0x4865 @0x13
0x4852…4893 at0014 = ╱65╱e╱ // 0x4866 @0x14
0x4852…4893 at0015 = ╱6e╱n╱ // 0x4867 @0x15
0x4852…4893 at0016 = ╱74╱t╱ // 0x4868 @0x16
0x4852…4893 at0017 = ╱65╱e╱ // 0x4869 @0x17
0x4852…4893 at0018 = ╱73╱s╱ // 0x486a @0x18
0x4852…4893 at0019 = ╱20╱…╱ // 0x486b @0x19
0x4852…4893 at001a = ╱70╱p╱ // 0x486c @0x1a
0x4852…4893 at001b = ╱7d╱}╱ // 0x486d @0x1b
0x4852…4893 at001c = ╱20╱…╱ // 0x486e @0x1c
0x4852…4893 at001d = ╱61╱a╱ // 0x486f @0x1d
0x4852…4893 at001e = ╱74╱t╱ // 0x4870 @0x1e
0x4852…4893 at001f = ╱20╱…╱ // 0x4871 @0x1f
0x4852…4893 at0020 = ╱64╱d╱ // 0x4872 @0x20
0x4852…4893 at0021 = ╱65╱e╱ // 0x4873 @0x21
0x4852…4893 at0022 = ╱6e╱n╱ // 0x4874 @0x22
0x4852…4893 at0023 = ╱20╱…╱ // 0x4875 @0x23
0x4852…4893 at0024 = ╱62╱b╱ // 0x4876 @0x24
0x4852…4893 at0025 = ╱6c╱l╱ // 0x4877 @0x25
0x4852…4893 at0026 = ╱69╱i╱ // 0x4878 @0x26
0x4852…4893 at0027 = ╱76╱v╱ // 0x4879 @0x27
0x4852…4893 at0028 = ╱65╱e╱ // 0x487a @0x28
0x4852…4893 at0029 = ╱72╱r╱ // 0x487b @0x29
0x4852…4893 at002a = ╱20╱…╱ // 0x487c @0x2a
0x4852…4893 at002b = ╱6c╱l╱ // 0x487d @0x2b
0x4852…4893 at002c = ╱65╱e╱ // 0x487e @0x2c
0x4852…4893 at002d = ╱64╱d╱ // 0x487f @0x2d
0x4852…4893 at002e = ╱69╱i╱ // 0x4880 @0x2e
0x4852…4893 at002f = ╱67╱g╱ // 0x4881 @0x2f
0x4852…4893 at0030 = ╱20╱…╱ // 0x4882 @0x30
0x4852…4893 at0031 = ╱3f╱?╱ // 0x4883 @0x31
0x4852…4893 at0032 = ╱20╱…╱ // 0x4884 @0x32
0x4852…4893 at0033 = ╱28╱(╱ // 0x4885 @0x33
0x4852…4893 at0034 = ╱6a╱j╱ // 0x4886 @0x34
0x4852…4893 at0035 = ╱2f╱/╱ // 0x4887 @0x35
0x4852…4893 at0036 = ╱6e╱n╱ // 0x4888 @0x36
0x4852…4893 at0037 = ╱29╱)╱ // 0x4889 @0x37
0x4852…4893 at0038 = ╱20╱…╱ // 0x488a @0x38
0x4852…4893 at0039 = ╱22╱"╱ // 0x488b @0x39
0x4852…4893 at003a = ╱f1╱ : ╱ // 0x488c @0x3a
0x4852…4893 at003b = ╱53╱S╱ // 0x488d @0x3b
0x4852…4893 at003c = ╱56╱V╱ // 0x488e @0x3c
0x4852…4893 at003d = ╱41╱A╱ // 0x488f @0x3d
0x4852…4893 at003e = ╱52╱R╱ // 0x4890 @0x3e
0x4852…4893 at003f = ╱ef╱ $ ╱ // 0x4891 @0x3f
0x4852…4893 at0040 = EOL // 0x4892 @0x40
0x4852…4893 }
0x4893…48ae de9c 09918 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x4893…48ae LineComal80 {
0x4893…48ae ptr = 0xde9c // 0x4893 @0x0
0x4893…48ae lno = 0x26be // 0x4895 @0x2
0x4893…48ae at0004 = ╱9b0053╱ IF ╱ // 0x4897 @0x4
0x4893…48ae at0007 = ╱56╱V╱ // 0x489a @0x7
0x4893…48ae at0008 = ╱41╱A╱ // 0x489b @0x8
0x4893…48ae at0009 = ╱52╱R╱ // 0x489c @0x9
0x4893…48ae at000a = ╱ef╱ $ ╱ // 0x489d @0xa
0x4893…48ae at000b = ╱df╱ = ╱ // 0x489e @0xb
0x4893…48ae at000c = ╱22╱"╱ // 0x489f @0xc
0x4893…48ae at000d = ╱4a╱J╱ // 0x48a0 @0xd
0x4893…48ae at000e = ╱22╱"╱ // 0x48a1 @0xe
0x4893…48ae at000f = ╱d8╱ OR ╱ // 0x48a2 @0xf
0x4893…48ae at0010 = ╱53╱S╱ // 0x48a3 @0x10
0x4893…48ae at0011 = ╱56╱V╱ // 0x48a4 @0x11
0x4893…48ae at0012 = ╱41╱A╱ // 0x48a5 @0x12
0x4893…48ae at0013 = ╱52╱R╱ // 0x48a6 @0x13
0x4893…48ae at0014 = ╱ef╱ $ ╱ // 0x48a7 @0x14
0x4893…48ae at0015 = ╱df╱ = ╱ // 0x48a8 @0x15
0x4893…48ae at0016 = ╱22╱"╱ // 0x48a9 @0x16
0x4893…48ae at0017 = ╱6a╱j╱ // 0x48aa @0x17
0x4893…48ae at0018 = ╱22╱"╱ // 0x48ab @0x18
0x4893…48ae at0019 = ╱b5╱ THEN ╱ // 0x48ac @0x19
0x4893…48ae at001a = EOL // 0x48ad @0x1a
0x4893…48ae }
0x48ae…48be deac 09919 CURSOR 12 , LINE
0x48ae…48be LineComal80 {
0x48ae…48be ptr = 0xdeac // 0x48ae @0x0
0x48ae…48be lno = 0x26bf // 0x48b0 @0x2
0x48ae…48be at0004 = ╱a1╱ CURSOR ╱ // 0x48b2 @0x4
0x48ae…48be at0005 = ╱31╱1╱ // 0x48b3 @0x5
0x48ae…48be at0006 = ╱32╱2╱ // 0x48b4 @0x6
0x48ae…48be at0007 = ╱f20c00╱ // 0x48b5 @0x7
0x48ae…48be at000a = ╱ec╱ , ╱ // 0x48b8 @0xa
0x48ae…48be at000b = ╱4c╱L╱ // 0x48b9 @0xb
0x48ae…48be at000c = ╱49╱I╱ // 0x48ba @0xc
0x48ae…48be at000d = ╱4e╱N╱ // 0x48bb @0xd
0x48ae…48be at000e = ╱45╱E╱ // 0x48bc @0xe
0x48ae…48be at000f = EOL // 0x48bd @0xf
0x48ae…48be }
0x48be…48f9 dee7 09920 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x48be…48f9 LineComal80 {
0x48be…48f9 ptr = 0xdee7 // 0x48be @0x0
0x48be…48f9 lno = 0x26c0 // 0x48c0 @0x2
0x48be…48f9 at0004 = ╱92╱ PRINT ╱ // 0x48c2 @0x4
0x48be…48f9 at0005 = ╱22╱"╱ // 0x48c3 @0x5
0x48be…48f9 at0006 = ╱3c╱<╱ // 0x48c4 @0x6
0x48be…48f9 at0007 = ╱5a╱Z╱ // 0x48c5 @0x7
0x48be…48f9 at0008 = ╱3e╱>╱ // 0x48c6 @0x8
0x48be…48f9 at0009 = ╱20╱…╱ // 0x48c7 @0x9
0x48be…48f9 at000a = ╱20╱…╱ // 0x48c8 @0xa
0x48be…48f9 at000b = ╱20╱…╱ // 0x48c9 @0xb
0x48be…48f9 at000c = ╱20╱…╱ // 0x48ca @0xc
0x48be…48f9 at000d = ╱20╱…╱ // 0x48cb @0xd
0x48be…48f9 at000e = ╱44╱D╱ // 0x48cc @0xe
0x48be…48f9 at000f = ╱65╱e╱ // 0x48cd @0xf
0x48be…48f9 at0010 = ╱72╱r╱ // 0x48ce @0x10
0x48be…48f9 at0011 = ╱20╱…╱ // 0x48cf @0x11
0x48be…48f9 at0012 = ╱76╱v╱ // 0x48d0 @0x12
0x48be…48f9 at0013 = ╱65╱e╱ // 0x48d1 @0x13
0x48be…48f9 at0014 = ╱6e╱n╱ // 0x48d2 @0x14
0x48be…48f9 at0015 = ╱74╱t╱ // 0x48d3 @0x15
0x48be…48f9 at0016 = ╱65╱e╱ // 0x48d4 @0x16
0x48be…48f9 at0017 = ╱73╱s╱ // 0x48d5 @0x17
0x48be…48f9 at0018 = ╱20╱…╱ // 0x48d6 @0x18
0x48be…48f9 at0019 = ╱70╱p╱ // 0x48d7 @0x19
0x48be…48f9 at001a = ╱7d╱}╱ // 0x48d8 @0x1a
0x48be…48f9 at001b = ╱20╱…╱ // 0x48d9 @0x1b
0x48be…48f9 at001c = ╱61╱a╱ // 0x48da @0x1c
0x48be…48f9 at001d = ╱74╱t╱ // 0x48db @0x1d
0x48be…48f9 at001e = ╱20╱…╱ // 0x48dc @0x1e
0x48be…48f9 at001f = ╱70╱p╱ // 0x48dd @0x1f
0x48be…48f9 at0020 = ╱72╱r╱ // 0x48de @0x20
0x48be…48f9 at0021 = ╱69╱i╱ // 0x48df @0x21
0x48be…48f9 at0022 = ╱6e╱n╱ // 0x48e0 @0x22
0x48be…48f9 at0023 = ╱74╱t╱ // 0x48e1 @0x23
0x48be…48f9 at0024 = ╱65╱e╱ // 0x48e2 @0x24
0x48be…48f9 at0025 = ╱72╱r╱ // 0x48e3 @0x25
0x48be…48f9 at0026 = ╱65╱e╱ // 0x48e4 @0x26
0x48be…48f9 at0027 = ╱6e╱n╱ // 0x48e5 @0x27
0x48be…48f9 at0028 = ╱20╱…╱ // 0x48e6 @0x28
0x48be…48f9 at0029 = ╱62╱b╱ // 0x48e7 @0x29
0x48be…48f9 at002a = ╱6c╱l╱ // 0x48e8 @0x2a
0x48be…48f9 at002b = ╱69╱i╱ // 0x48e9 @0x2b
0x48be…48f9 at002c = ╱76╱v╱ // 0x48ea @0x2c
0x48be…48f9 at002d = ╱65╱e╱ // 0x48eb @0x2d
0x48be…48f9 at002e = ╱72╱r╱ // 0x48ec @0x2e
0x48be…48f9 at002f = ╱20╱…╱ // 0x48ed @0x2f
0x48be…48f9 at0030 = ╱6c╱l╱ // 0x48ee @0x30
0x48be…48f9 at0031 = ╱65╱e╱ // 0x48ef @0x31
0x48be…48f9 at0032 = ╱64╱d╱ // 0x48f0 @0x32
0x48be…48f9 at0033 = ╱69╱i╱ // 0x48f1 @0x33
0x48be…48f9 at0034 = ╱67╱g╱ // 0x48f2 @0x34
0x48be…48f9 at0035 = ╱2e╱.╱ // 0x48f3 @0x35
0x48be…48f9 at0036 = ╱2e╱.╱ // 0x48f4 @0x36
0x48be…48f9 at0037 = ╱2e╱.╱ // 0x48f5 @0x37
0x48be…48f9 at0038 = ╱2e╱.╱ // 0x48f6 @0x38
0x48be…48f9 at0039 = ╱22╱"╱ // 0x48f7 @0x39
0x48be…48f9 at003a = EOL // 0x48f8 @0x3a
0x48be…48f9 }
0x48f9…4905 def3 09921 PRINT "<SZ>"
0x48f9…4905 LineComal80 {
0x48f9…4905 ptr = 0xdef3 // 0x48f9 @0x0
0x48f9…4905 lno = 0x26c1 // 0x48fb @0x2
0x48f9…4905 at0004 = ╱92╱ PRINT ╱ // 0x48fd @0x4
0x48f9…4905 at0005 = ╱22╱"╱ // 0x48fe @0x5
0x48f9…4905 at0006 = ╱3c╱<╱ // 0x48ff @0x6
0x48f9…4905 at0007 = ╱53╱S╱ // 0x4900 @0x7
0x48f9…4905 at0008 = ╱5a╱Z╱ // 0x4901 @0x8
0x48f9…4905 at0009 = ╱3e╱>╱ // 0x4902 @0x9
0x48f9…4905 at000a = ╱22╱"╱ // 0x4903 @0xa
0x48f9…4905 at000b = EOL // 0x4904 @0xb
0x48f9…4905 }
0x4905…4913 df01 09922 WHILE ╱cd╱ ( "P" ) DO
0x4905…4913 LineComal80 {
0x4905…4913 ptr = 0xdf01 // 0x4905 @0x0
0x4905…4913 lno = 0x26c2 // 0x4907 @0x2
0x4905…4913 at0004 = ╱9300╱ WHILE ╱ // 0x4909 @0x4
0x4905…4913 at0006 = ╱cd╱ // 0x490b @0x6
0x4905…4913 at0007 = ╱ed╱ ( ╱ // 0x490c @0x7
0x4905…4913 at0008 = ╱22╱"╱ // 0x490d @0x8
0x4905…4913 at0009 = ╱50╱P╱ // 0x490e @0x9
0x4905…4913 at000a = ╱22╱"╱ // 0x490f @0xa
0x4905…4913 at000b = ╱ee╱ ) ╱ // 0x4910 @0xb
0x4905…4913 at000c = ╱bb╱ DO ╱ // 0x4911 @0xc
0x4905…4913 at000d = EOL // 0x4912 @0xd
0x4905…4913 }
0x4913…4924 df12 09923 LET SEK := ╱ca╱ ( 5 )
0x4913…4924 LineComal80 {
0x4913…4924 ptr = 0xdf12 // 0x4913 @0x0
0x4913…4924 lno = 0x26c3 // 0x4915 @0x2
0x4913…4924 at0004 = ╱86╱ LET ╱ // 0x4917 @0x4
0x4913…4924 at0005 = ╱53╱S╱ // 0x4918 @0x5
0x4913…4924 at0006 = ╱45╱E╱ // 0x4919 @0x6
0x4913…4924 at0007 = ╱4b╱K╱ // 0x491a @0x7
0x4913…4924 at0008 = ╱f0╱ := ╱ // 0x491b @0x8
0x4913…4924 at0009 = ╱ca╱ // 0x491c @0x9
0x4913…4924 at000a = ╱ed╱ ( ╱ // 0x491d @0xa
0x4913…4924 at000b = ╱35╱5╱ // 0x491e @0xb
0x4913…4924 at000c = ╱f20500╱ // 0x491f @0xc
0x4913…4924 at000f = ╱ee╱ ) ╱ // 0x4922 @0xf
0x4913…4924 at0010 = EOL // 0x4923 @0x10
0x4913…4924 }
0x4924…4934 df22 09924 SELECT OUTPUT "P" + PRTNR $
0x4924…4934 LineComal80 {
0x4924…4934 ptr = 0xdf22 // 0x4924 @0x0
0x4924…4934 lno = 0x26c4 // 0x4926 @0x2
0x4924…4934 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x4928 @0x4
0x4924…4934 at0005 = ╱22╱"╱ // 0x4929 @0x5
0x4924…4934 at0006 = ╱50╱P╱ // 0x492a @0x6
0x4924…4934 at0007 = ╱22╱"╱ // 0x492b @0x7
0x4924…4934 at0008 = ╱eb╱ + ╱ // 0x492c @0x8
0x4924…4934 at0009 = ╱50╱P╱ // 0x492d @0x9
0x4924…4934 at000a = ╱52╱R╱ // 0x492e @0xa
0x4924…4934 at000b = ╱54╱T╱ // 0x492f @0xb
0x4924…4934 at000c = ╱4e╱N╱ // 0x4930 @0xc
0x4924…4934 at000d = ╱52╱R╱ // 0x4931 @0xd
0x4924…4934 at000e = ╱ef╱ $ ╱ // 0x4932 @0xe
0x4924…4934 at000f = EOL // 0x4933 @0xf
0x4924…4934 }
0x4934…493a df28 09925 ENDWHILE
0x4934…493a LineComal80 {
0x4934…493a ptr = 0xdf28 // 0x4934 @0x0
0x4934…493a lno = 0x26c5 // 0x4936 @0x2
0x4934…493a at0004 = ╱94╱ ENDWHILE ╱ // 0x4938 @0x4
0x4934…493a at0005 = EOL // 0x4939 @0x5
0x4934…493a }
0x493a…4941 df2f 09926 ELSE
0x493a…4941 LineComal80 {
0x493a…4941 ptr = 0xdf2f // 0x493a @0x0
0x493a…4941 lno = 0x26c6 // 0x493c @0x2
0x493a…4941 at0004 = ╱9a00╱ ELSE ╱ // 0x493e @0x4
0x493a…4941 at0006 = EOL // 0x4940 @0x6
0x493a…4941 }
0x4941…494f df3d 09927 LET OK := FALSE
0x4941…494f LineComal80 {
0x4941…494f ptr = 0xdf3d // 0x4941 @0x0
0x4941…494f lno = 0x26c7 // 0x4943 @0x2
0x4941…494f at0004 = ╱86╱ LET ╱ // 0x4945 @0x4
0x4941…494f at0005 = ╱4f╱O╱ // 0x4946 @0x5
0x4941…494f at0006 = ╱4b╱K╱ // 0x4947 @0x6
0x4941…494f at0007 = ╱f0╱ := ╱ // 0x4948 @0x7
0x4941…494f at0008 = ╱46╱F╱ // 0x4949 @0x8
0x4941…494f at0009 = ╱41╱A╱ // 0x494a @0x9
0x4941…494f at000a = ╱4c╱L╱ // 0x494b @0xa
0x4941…494f at000b = ╱53╱S╱ // 0x494c @0xb
0x4941…494f at000c = ╱45╱E╱ // 0x494d @0xc
0x4941…494f at000d = EOL // 0x494e @0xd
0x4941…494f }
0x494f…4955 df43 09928 ENDIF
0x494f…4955 LineComal80 {
0x494f…4955 ptr = 0xdf43 // 0x494f @0x0
0x494f…4955 lno = 0x26c8 // 0x4951 @0x2
0x494f…4955 at0004 = ╱9c╱ ENDIF ╱ // 0x4953 @0x4
0x494f…4955 at0005 = EOL // 0x4954 @0x5
0x494f…4955 }
0x4955…495b df49 09929 ENDIF
0x4955…495b LineComal80 {
0x4955…495b ptr = 0xdf49 // 0x4955 @0x0
0x4955…495b lno = 0x26c9 // 0x4957 @0x2
0x4955…495b at0004 = ╱9c╱ ENDIF ╱ // 0x4959 @0x4
0x4955…495b at0005 = EOL // 0x495a @0x5
0x4955…495b }
0x495b…496a df58 09930 CURSOR 1 , LINE
0x495b…496a LineComal80 {
0x495b…496a ptr = 0xdf58 // 0x495b @0x0
0x495b…496a lno = 0x26ca // 0x495d @0x2
0x495b…496a at0004 = ╱a1╱ CURSOR ╱ // 0x495f @0x4
0x495b…496a at0005 = ╱31╱1╱ // 0x4960 @0x5
0x495b…496a at0006 = ╱f20100╱ // 0x4961 @0x6
0x495b…496a at0009 = ╱ec╱ , ╱ // 0x4964 @0x9
0x495b…496a at000a = ╱4c╱L╱ // 0x4965 @0xa
0x495b…496a at000b = ╱49╱I╱ // 0x4966 @0xb
0x495b…496a at000c = ╱4e╱N╱ // 0x4967 @0xc
0x495b…496a at000d = ╱45╱E╱ // 0x4968 @0xd
0x495b…496a at000e = EOL // 0x4969 @0xe
0x495b…496a }
0x496a…4975 df63 09931 PRINT "<Z>"
0x496a…4975 LineComal80 {
0x496a…4975 ptr = 0xdf63 // 0x496a @0x0
0x496a…4975 lno = 0x26cb // 0x496c @0x2
0x496a…4975 at0004 = ╱92╱ PRINT ╱ // 0x496e @0x4
0x496a…4975 at0005 = ╱22╱"╱ // 0x496f @0x5
0x496a…4975 at0006 = ╱3c╱<╱ // 0x4970 @0x6
0x496a…4975 at0007 = ╱5a╱Z╱ // 0x4971 @0x7
0x496a…4975 at0008 = ╱3e╱>╱ // 0x4972 @0x8
0x496a…4975 at0009 = ╱22╱"╱ // 0x4973 @0x9
0x496a…4975 at000a = EOL // 0x4974 @0xa
0x496a…4975 }
0x4975…4981 df6f 09932 PRINT "<SZ>"
0x4975…4981 LineComal80 {
0x4975…4981 ptr = 0xdf6f // 0x4975 @0x0
0x4975…4981 lno = 0x26cc // 0x4977 @0x2
0x4975…4981 at0004 = ╱92╱ PRINT ╱ // 0x4979 @0x4
0x4975…4981 at0005 = ╱22╱"╱ // 0x497a @0x5
0x4975…4981 at0006 = ╱3c╱<╱ // 0x497b @0x6
0x4975…4981 at0007 = ╱53╱S╱ // 0x497c @0x7
0x4975…4981 at0008 = ╱5a╱Z╱ // 0x497d @0x8
0x4975…4981 at0009 = ╱3e╱>╱ // 0x497e @0x9
0x4975…4981 at000a = ╱22╱"╱ // 0x497f @0xa
0x4975…4981 at000b = EOL // 0x4980 @0xb
0x4975…4981 }
0x4981…498f 0000 09933 ENDPROC PRINTRES
0x4981…498f LineComal80 {
0x4981…498f ptr = 0x0000 // 0x4981 @0x0
0x4981…498f lno = 0x26cd // 0x4983 @0x2
0x4981…498f at0004 = ╱9f╱ ENDPROC ╱ // 0x4985 @0x4
0x4981…498f at0005 = ╱50╱P╱ // 0x4986 @0x5
0x4981…498f at0006 = ╱52╱R╱ // 0x4987 @0x6
0x4981…498f at0007 = ╱49╱I╱ // 0x4988 @0x7
0x4981…498f at0008 = ╱4e╱N╱ // 0x4989 @0x8
0x4981…498f at0009 = ╱54╱T╱ // 0x498a @0x9
0x4981…498f at000a = ╱52╱R╱ // 0x498b @0xa
0x4981…498f at000b = ╱45╱E╱ // 0x498c @0xb
0x4981…498f at000c = ╱53╱S╱ // 0x498d @0xc
0x4981…498f at000d = EOL // 0x498e @0xd
0x4981…498f }
0x498f…49b5 ca66 04961 IF ( I - 1 ) MOD 12 = 0 THEN EXEC KASSEHOVED
0x498f…49b5 LineComal80 {
0x498f…49b5 ptr = 0xca66 // 0x498f @0x0
0x498f…49b5 lno = 0x1361 // 0x4991 @0x2
0x498f…49b5 at0004 = ╱8200╱ IF ╱ // 0x4993 @0x4
0x498f…49b5 at0006 = ╱ed╱ ( ╱ // 0x4995 @0x6
0x498f…49b5 at0007 = ╱49╱I╱ // 0x4996 @0x7
0x498f…49b5 at0008 = ╱e6╱ - ╱ // 0x4997 @0x8
0x498f…49b5 at0009 = ╱31╱1╱ // 0x4998 @0x9
0x498f…49b5 at000a = ╱f20100╱ // 0x4999 @0xa
0x498f…49b5 at000d = ╱ee╱ ) ╱ // 0x499c @0xd
0x498f…49b5 at000e = ╱db╱ MOD ╱ // 0x499d @0xe
0x498f…49b5 at000f = ╱31╱1╱ // 0x499e @0xf
0x498f…49b5 at0010 = ╱32╱2╱ // 0x499f @0x10
0x498f…49b5 at0011 = ╱f20c00╱ // 0x49a0 @0x11
0x498f…49b5 at0014 = ╱df╱ = ╱ // 0x49a3 @0x14
0x498f…49b5 at0015 = ╱30╱0╱ // 0x49a4 @0x15
0x498f…49b5 at0016 = ╱f20000╱ // 0x49a5 @0x16
0x498f…49b5 at0019 = ╱b5╱ THEN ╱ // 0x49a8 @0x19
0x498f…49b5 at001a = ╱9d╱ EXEC ╱ // 0x49a9 @0x1a
0x498f…49b5 at001b = ╱4b╱K╱ // 0x49aa @0x1b
0x498f…49b5 at001c = ╱41╱A╱ // 0x49ab @0x1c
0x498f…49b5 at001d = ╱53╱S╱ // 0x49ac @0x1d
0x498f…49b5 at001e = ╱53╱S╱ // 0x49ad @0x1e
0x498f…49b5 at001f = ╱45╱E╱ // 0x49ae @0x1f
0x498f…49b5 at0020 = ╱48╱H╱ // 0x49af @0x20
0x498f…49b5 at0021 = ╱4f╱O╱ // 0x49b0 @0x21
0x498f…49b5 at0022 = ╱56╱V╱ // 0x49b1 @0x22
0x498f…49b5 at0023 = ╱45╱E╱ // 0x49b2 @0x23
0x498f…49b5 at0024 = ╱44╱D╱ // 0x49b3 @0x24
0x498f…49b5 at0025 = EOL // 0x49b4 @0x25
0x498f…49b5 }
0x49b5…49bb (246,) 95ee 38382 ╱00╱ ╱00╱
0x49b5…49bb LineComal80 {
0x49b5…49bb ptr = 0x95ee // 0x49b5 @0x0
0x49b5…49bb lno = 0x95ee // 0x49b7 @0x2
0x49b5…49bb at0004 = ╱00╱ // 0x49b9 @0x4
0x49b5…49bb at0005 = ╱00╱ // 0x49ba @0x5
0x49b5…49bb }