|
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: 12726 (0x31b6)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSBPY«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSBPY«
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 FKT_MENU
00280 CHAIN PROGRAM $
00290 // ===========…Procedurer…starter…==============
00300 PROC DIMENSIONER
00310 // Standard…variable
00320 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
00330 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
00340 REAL RESRV , PPAR
00350 INTEGER OK , TRUE , FALSE , I , J
00360 // Hj{lpevariable
00370 REAL MOMS_KR , NULR
00380 INTEGER HIGH , LOW , POS , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K , NUL
00390 // Variable…til…filen…SYSPARA
00400 DIM SYSPARA $ OF 17
00410 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00420 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00430 // Variable…til…filen…@@PARAM
00440 DIM PARAM $ OF 17
00450 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00460 REAL MOMS
00470 // Variable…til…filen…@@KONTO
00480 DIM KONTO $ OF 17
00490 DIM ST_DATO $ OF 6
00500 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
00510 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00520 REAL KTO_PRIMO , KTO_ULTIMO
00530 INTEGER KTO_FP , KTO_SP
00540 // Variable…til…filen…@@KTOIDX
00550 DIM KTOIDX $ OF 17
00560 INTEGER I_H\JREC , I_MAXREC
00570 DIM KTONR $ OF 8
00580 INTEGER RECNR
00590 // Variable…til…filen…@@DG_POS
00600 DIM DG_POS $ OF 17
00610 DIM P_BDAT $ OF 6
00620 REAL P_DEB , P_KRED
00630 INTEGER P_H\JREC , P_MAXREC , S_NR_DG_POS
00640 DIM P_BKTO $ OF 8 , P_MKOD $ OF 1 , P_BNR $ OF 5 , P_TXT $ OF 20
00650 REAL P_BKR
00660 INTEGER P_DK
00670 // Variable…til…filen…@@ST_KTO
00680 DIM ST_KTO $ OF 17
00690 DIM UDMOMS_KTO $ OF 8 , INDMOMS_KTO $ OF 8
00700 // Variable…til…file…@@TRANS
00710 DIM TRANS $ OF 17
00720 INTEGER T_H\JREC , T_MAXREC
00730 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
00740 REAL BMOMS , BBEL\B
00750 INTEGER DK , NTRANS
00760 ENDPROC DIMENSIONER
00770
00780 PROC INITIER
00790 LET PRGFL $ := "DP2"
00800 LET PROGRAM $ := PRGFL $ + ":SYSKA"
00810 LET TAL $ := "0123456789"
00820 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00830 LET SPC $ := "………………………………………………………………………………………………………………………"
00840 LET SPC $ := SPC $ + SPC $ ; NUL := 0 ; NULR := 0
00850 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00860 LET KREDIT := - 1 ; DEBET := 1
00870 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00880 EXEC OPENFIL ( SYSPARA $ , "R" )
00890 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00900 EXEC TERMINAL_IDX
00910 CLOSE SYSPARA $
00930 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00940 EXEC OPENFIL ( PARAM $ , "R" )
00950 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00960 CLOSE PARAM $
00970 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00980 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
00990 LET DG_POS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DG_POS"
01000 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
01010 LET ST_KTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "ST_KTO"
01020 EXEC OPENFIL ( KTOIDX $ , "R" )
01030 EXEC OPENFIL ( KONTO $ , "W" )
01040 EXEC OPENFIL ( DG_POS $ , "W" )
01050 EXEC OPENFIL ( TRANS $ , "W" )
01060 EXEC OPENFIL ( ST_KTO $ , "R" )
01070 GET ST_KTO $ , 5 : INDMOMS_KTO $
01080 GET ST_KTO $ , 6 : UDMOMS_KTO $
01090 CLOSE ST_KTO $
01100 ENDPROC INITIER
01110
01120 PROC TERMINAL_IDX
01130 LET PPAR := 5 ; RESRV := 0
01140 CALL T"DDE:PRES"
01150 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01160 ENDPROC TERMINAL_IDX
01170
01180 PROC OPENFIL ( FNAVN $ , WAY $ )
01190 REPEAT
01200 IF AY $ = "W" OR WAY $ = "w" THEN
01210 OPEN FNAVN $ , W
01220 ELSE
01230 OPEN FNAVN $ , R
01240 ENDIF
01250 IF ( FNAVN $ ) THEN
01260 PRINT "<SC0123>" ; CHR$ ( 7 )
01270 IF ( FNAVN $ ) = 6 THEN
01280 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
01290 INPUT "" : SVAR $
01300 ELSE
01310 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01320 PRINT "<S>" ; FNAVN $ ; "…***"
01330 INPUT "" : SVAR $
01340 PRINT "<C0102>" ; SPC $
01350 ENDIF
01360 ENDIF
01370 UNTIL NOT ╱cd╱ ( FNAVN $ )
01380 ENDPROC OPENFIL
01390
01400 PROC TAL_CONTROL ( REF RST $ )
01410 LET J := 0 ; OK := TRUE
01420 FOR I := 1 TO ( RST $ ) DO
01430 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
01440 NEXT I
01450 IF = 0 THEN
01460 LET OK := FALSE
01470 ELSE
01480 LET RST $ := RST $ ( 1 : J )
01490 ENDIF
01500 ENDPROC TAL_CONTROL
01510
01520 PROC DIV_POSHOVED
01530 EXEC OVERSKRIFT ( "BOGF\RING…AF…DIVERSE…POSTERINGER" , 4 )
01530 PRINT "<C0105>………BILAG……TEKST……………………………………………MOMS……KO"
01540 PRINT "<C0106>…………NR……………………………………………………………………KODE……NU"
01550 PRINT "<C0107>----------------------------------------"
01560 PRINT "<C4105>NTO-…………………DEBET………………KREDIT………………F/R/S…"
01570 PRINT "<C4106>MMER……………………………………………………………………………………………"
01580 PRINT "<C4107>----------------------------------------"
01590 ENDPROC DIV_POSHOVED
01600
01610 PROC OVERSKRIFT ( ST $ , L )
01620 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01630 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01640 PRINT SYST_DAT $ ( 5 : 2 )
01660 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
01670 PRINT "***…" ; ST $ ; "…***"
01680 ENDPROC OVERSKRIFT
01690
01700 PROC SL_FEJLLINIE
01710 LET OK := TRUE
01720 PRINT "<C0102>" ; SPC $
01730 ENDPROC SL_FEJLLINIE
01740
01750 PROC FEJL ( ST $ )
01760 LET OK := FALSE
01770 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
01780 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
01790 ENDPROC FEJL
01800
01810 PROC L[S_KONTO ( P )
01820 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01830 ENDPROC L[S_KONTO
01840
01850 PROC ST_BGST ( REF RST $ )
01860 FOR I := 1 TO ( RST $ ) DO
01870 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
01880 NEXT I
01890 ENDPROC ST_BGST
01900 PROC FIND_KTO ( REF R_KTONR $ )
01910 LET OK := FALSE
01920 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
01930 LET LOW := 1 ; HIGH := I_H\JREC + 1 ; POS := 2
01940 IF IGH > 1 THEN
01950 REPEAT
01960 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
01970 GET KTOIDX $ , POS : KTONR $ , RECNR
01980 IF TONR $ > R_KTONR $ THEN
01990 LET HIGH := POS
02000 ELSE
02010 IF TONR $ < R_KTONR $ THEN
02020 LET LOW := POS
02030 ENDIF
02040 ENDIF
02050 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
02060 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
02070 ENDIF
02080 LET FIND_KTO := POS
02090 ENDPROC FIND_KTO
02100
02110 PROC SKRIV_DG_POS ( P )
02120 PUT DG_POS $ , P + 1 : P_BKTO $ , P_MKOD $ , P_BNR $ , P_TXT $ , P_BKR , P_DK
02130 ENDPROC SKRIV_DG_POS
02140
02150 PROC L[S_DG_POS ( P )
02160 GET DG_POS $ , P + 1 : P_BKTO $ , P_MKOD $ , P_BNR $ , P_TXT $ , P_BKR , P_DK
02170 ENDPROC L[S_DG_POS
02180
02190 PROC SKRIV_LIN ( R_LIN )
02200 IF P_BNR $ = "*****" THEN EXIT
02210 LET R_SLIN := R_LIN MOD 12 + 7
02220 IF R_SLIN = 7 THEN LET R_SLIN := 12 + R_SLIN
02230 CURSOR 1 , R_SLIN
02240 PRINT CHR$ ( R_LIN , 2 )
02250 CURSOR 4 , R_SLIN
02260 PRINT P_BNR $
02270 CURSOR 11 , R_SLIN
02280 PRINT P_TXT $
02290 CURSOR 34 , R_SLIN
02300 PRINT P_MKOD $
02310 CURSOR 39 , R_SLIN
02320 PRINT P_BKTO $
02330 IF _DK = DEBET THEN
02340 CURSOR 49 , R_SLIN
02350 ELSE
02360 CURSOR 61 , R_SLIN
02370 ENDIF
02380 PRINT CHR$ ( P_BKR , 7 , 2 )
02390 ENDPROC SKRIV_LIN
02400
02410 PROC UDSKRIV_POSTER
02420 EXEC OVERSKRIFT ( "Udskrivning…af…konteringsliste" , 7 )
02420 EXEC PRINTRES ( "smal…EDB-liste" , 12 )
02440 LET LIN_T := 100 ; MAX_LIN := 72
02450 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
02460 LET P_DEB , P_KRED := 0
02470 FOR J := 1 TO _H\JREC - 1 DO
02480 EXEC L[S_DG_POS ( J )
02490 EXEC PRINT_LIN
02500 NEXT J
02510 IF LIN_T >< 100 THEN EXEC AFSLUT
02520 EXEC PRINTREL
02530 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
02540 ENDPROC UDSKRIV_POSTER
02550
02560 PROC SIDESKIFT
02570 FOR I := LIN_T TO AX_LIN DO PRINT
02580 LET LIN_T := 9
02590 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 58 ) ; "SIDE:…" ; S_NR_DG_POS
02600 PRINT
02610 PRINT "Firmanavn:…" ; FIRMANAVN $
02620 PRINT
02630 PRINT "<S>***…KONTERINGSLISTE…PR.…" ; P_BDAT $ ( 1 : 2 ) ; "." ; P_BDAT $ ( 3 : 2 ) ; "."
02640 PRINT "<S>" ; P_BDAT $ ( 5 : 2 ) ; "…**…**…UDSKREVET…PR.…"
02650 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
02660 PRINT
02660 PRINT "<S>BILAG……TEKST……………………………………………MK……KONTONR……………DEBET………"
02680 PRINT "…………KREDIT……"
02680 PRINT "<S>-----……--------------------……--……--------……----------"
02700 PRINT "……----------"
02710 IF _DEB > 0 OR P_KRED > 0 THEN
02720 PRINT TAB ( 8 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
02730 LET LIN_T := LIN_T + 1
02740 ENDIF
02750 LET S_NR_DG_POS := S_NR_DG_POS + 1
02760 ENDPROC SIDESKIFT
02770
02780 PROC PRINT_LIN
02790 IF P_BNR $ = "*****" THEN EXIT
02800 IF IN_T + 5 > MAX_LIN THEN
02810 IF _DEB > 0 OR P_KRED > 0 THEN
02810 PRINT "<S>-----……--------------------……--……--------……----------……"
02830 PRINT "----------"
02840 PRINT TAB ( 9 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
02850 LET LIN_T := LIN_T + 2
02860 ENDIF
02870 EXEC SIDESKIFT
02880 ENDIF
02890 LET LIN_T := LIN_T + 1
02900 PRINT "<S>" ; P_BNR $ ; TAB ( 11 ) ; P_TXT $ ; TAB ( 33 ) ; P_MKOD $ ; TAB ( 37 )
02910 PRINT "<S>" ; P_BKTO $ ; TAB ( 14 )
02920 IF _DK = DEBET THEN
02930 PRINT CHR$ ( P_BKR , 7 , 2 )
02940 LET P_DEB := P_DEB + P_BKR
02950 ELSE
02960 PRINT TAB ( 13 ) ; CHR$ ( P_BKR , 7 , 2 )
02970 LET P_KRED := P_KRED + P_BKR
02980 ENDIF
02990 ENDPROC PRINT_LIN
03000
03010 PROC AFSLUT
03020 LET LIN_T := LIN_T + 2
03020 PRINT "<S>-----……--------------------……--……--------……----------……"
03040 PRINT "----------"
03050 PRINT TAB ( 8 ) ; "DEBET/KREDIT…TOTAL" ; TAB ( 42 ) ; CHR$ ( P_DEB , 9 , 2 ) ;
03060 PRINT CHR$ ( P_KRED , 9 , 2 )
03070 IF _DEB > P_KRED THEN
03080 PRINT TAB ( 11 ) ; "DIFFERENCE" ; TAB ( 42 ) ; CHR$ ( P_DEB - P_KRED , 9 , 2 )
03090 LET LIN_T := LIN_T + 1
03100 ELSE
03110 IF _KRED > P_DEB THEN
03120 PRINT TAB ( 11 ) ; "DIFFERENCE" ; TAB ( 54 ) ; CHR$ ( P_KRED - P_DEB , 9 , 2 )
03130 LET LIN_T := LIN_T + 1
03140 ENDIF
03150 ENDIF
03160 FOR I := LIN_T TO AX_LIN DO PRINT
03170 ENDPROC AFSLUT
03180
03190 PROC L[S_TRANS ( P )
03200 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
03210 ENDPROC L[S_TRANS
03220
03230 PROC SKRIV_TRANS ( P )
03240 PUT TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
03250 ENDPROC SKRIV_TRANS
03260
03270 PROC SKRIV_KONTO ( P )
03280 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
03290 ENDPROC SKRIV_KONTO
03300
03310 PROC BOGF\R ( REF Q_KTO $ , REF Q_DAT $ , REF Q_TXT $ , REF Q_M , REF Q_KR , Q_DK , QN $ )
03320 EXEC FIND_KTO ( Q_KTO $ )
03330 IF OK THEN
03340 EXEC FEJL ( "UKENDT…KONTONR:…" + Q_KTO $ )
03350 EXIT
03360 ELSE
03370 EXEC L[S_KONTO ( RECNR )
03380 IF TO_TYPE $ >< "A" THEN
03390 EXEC FEJL ( "ULOVLIG…KONTONR:…" + Q_KTO $ )
03400 EXIT
03410 ENDIF
03420 ENDIF
03430 GET TRANS $ , 1 : T_H\JREC , T_MAXREC
03440 IF _H\JREC = T_MAXREC THEN
03450 EXEC FEJL ( "TRANSAKTIONSFILEN…ER…FULD" )
03460 EXIT
03470 ENDIF
03480 LET T_H\JREC := T_H\JREC + 1
03490 IF TO_FP > 0 THEN
03500 EXEC L[S_TRANS ( KTO_SP )
03510 LET NTRANS := T_H\JREC
03520 EXEC SKRIV_TRANS ( KTO_SP )
03530 ELSE
03540 LET KTO_FP := T_H\JREC
03550 ENDIF
03560 LET BKTONR $ := Q_KTO $ ; BDATO $ := Q_DAT $ ; BTXT $ := Q_TXT $ ; BMOMS := Q_M ; BBEL\B := Q_KR
03570 LET DK := Q_DK ; NTRANS := NUL ; BLGNR $ := QN $
03580 EXEC SKRIV_TRANS ( T_H\JREC )
03590 LET KTO_SP := T_H\JREC
03600 IF K = DEBET THEN
03610 LET KTO_ULTIMO := KTO_ULTIMO + BBEL\B
03620 ELSE
03630 LET KTO_ULTIMO := KTO_ULTIMO - BBEL\B
03640 ENDIF
03650 EXEC SKRIV_KONTO ( RECNR )
03660 PUT TRANS $ , 1 : T_H\JREC , T_MAXREC
03670 ENDPROC BOGF\R
03680
03690 PROC BOGF\R_POSTER
03700 FOR K := 1 TO _H\JREC - 1 DO
03710 EXEC L[S_DG_POS ( K )
03720 IF _BNR $ >< "*****" THEN
03730 IF ( K + 11 ) MOD 12 = 0 THEN EXEC DIV_POSHOVED
03740 EXEC SKRIV_LIN ( K )
03750 IF /" + P_MKOD $ + "/" IN "/I/U/" THEN
03760 LET MOMS_KR := INT ( MOMS * 100 * ( P_BKR / ( MOMS + 100 ) ) + .5 ) / 100 ; P_BKR := P_BKR - MOMS_KR
03770 IF _MKOD $ = "I" THEN
03780 EXEC BOGF\R ( INDMOMS_KTO $ , P_BDAT $ , P_TXT $ , NULR , MOMS_KR , P_DK , P_BNR $ )
03790 ELSE
03800 EXEC BOGF\R ( UDMOMS_KTO $ , P_BDAT $ , P_TXT $ , NULR , MOMS_KR , P_DK , P_BNR $ )
03810 ENDIF
03820 ELSE
03830 LET MOMS_KR := 0
03840 ENDIF
03850 EXEC BOGF\R ( P_BKTO $ , P_BDAT $ , P_TXT $ , MOMS_KR , P_BKR , P_DK , P_BNR $ )
03860 LET P_BKR := 0 ; P_BNR $ := "*****"
03870 CURSOR 4 , R_SLIN
03880 PRINT "*…*…*…*…*…*…*…*…*…*…*……B…O…G…F…\…R…T……*…*…*…*…*…*…*…*…*…*…*…*" ;
03890 PRINT SPC $ ( 1 : 10 )
03900 EXEC SKRIV_DG_POS ( K )
03910 ENDIF
03920 NEXT K
03930 LET P_H\JREC := 1 ; P_DEB , P_KRED := 0
03940 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
03950 ENDPROC BOGF\R_POSTER
03960 PROC FKT_MENU
03970 EXEC UDSKRIV_POSTER
03980 EXEC BOGF\R_POSTER
03990 ENDPROC FKT_MENU
04000 //
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 ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
09908 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
09909 INPUT "" : SVAR $
09910 SELECT OUTPUT "P" + PRTNR $
09911 IF ( "P" ) THEN
09912 CURSOR 12 , LINE
09913 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
09914 CURSOR 12 , LINE + 1
09915 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
09916 IF VAR $ = "J" OR SVAR $ = "j" THEN
09917 CURSOR 12 , LINE
09918 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
09919 PRINT "<SZ>"
09920 WHILE ╱cd╱ ( "P" ) DO
09921 LET SEK := ╱ca╱ ( 5 )
09922 SELECT OUTPUT "P" + PRTNR $
09923 ENDWHILE
09924 ELSE
09925 LET OK := FALSE
09926 ENDIF
09927 ENDIF
09928 CURSOR 1 , LINE
09929 PRINT "<Z>"
09930 PRINT "<SZ>"
09931 ENDPROC PRINTRES
04010 //
04020 PROC PRINTREL // RELEASE…PRINTER
04030 SELECT OUTPUT "T"
04040 ENDPROC PRINTREL
00920 LET PROGRAM $ := PROGRAM $ + S_KODE $
01540 PRINT "<C0105>………BILAG……TEKST……………………………………………………………KO"
01550 PRINT "<C0106>…………NR……………………………………………………………………………………NU"
01560 PRINT "<C0107>----------------------------------------"
01570 PRINT "<C4105>NTO-…………………DEBET………………KREDIT………………F/R/S…"
01580 PRINT "<C4106>MMER……………………………………………………………………………………………"
01590 PRINT "<C4107>----------------------------------------"
01600 ENDPROC DIV_POSHOVED
01610
01620 PROC OVERSKRIFT ( ST $ , L )
01630 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01640 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01650 PRINT SYST_DAT $ ( 5 : 2 )
02430 EXEC PRINTRES ( "papir" , 12 )
02670 PRINT "<S>BILAG……TEKST………………………………………………………KONTONR……………DEBET………"
02690 PRINT "<S>-----……------------------------……--------……----------"
02820 PRINT "<S>-----……------------------------……--------……----------……"
03030 PRINT "<S>-----……------------------------……--------……----------……"
04050 //
04060 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
04070 LET PRTNR $ := "1" ; OK := TRUE
04080 REPEAT
04090 CURSOR 15 , LINE
04100 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
04110 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
04120 CURSOR 1 , LINE
04130 PRINT "<Z>"
04140 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
04150 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
04160 INPUT "" : SVAR $
04170 SELECT OUTPUT "P" + PRTNR $
04180 IF ( "P" ) THEN
04190 CURSOR 12 , LINE
04200 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
04210 CURSOR 12 , LINE + 1
04220 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
04230 IF VAR $ = "J" OR SVAR $ = "j" THEN
04240 CURSOR 12 , LINE
04250 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
04260 PRINT "<SZ>"
04270 WHILE ╱cd╱ ( "P" ) DO
04280 LET SEK := ╱ca╱ ( 5 )
04290 SELECT OUTPUT "P" + PRTNR $
04300 ENDWHILE
04310 ELSE
04320 LET OK := FALSE
04330 ENDIF
04340 ENDIF
04350 CURSOR 1 , LINE
04360 PRINT "<Z>"
04370 PRINT "<SZ>"
04380 ENDPROC PRINTRES
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…0374 9962 00270 EXEC FKT_MENU
0x0366…0374 LineComal80 {
0x0366…0374 ptr = 0x9962 // 0x366 @0x0
0x0366…0374 lno = 0x010e // 0x368 @0x2
0x0366…0374 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0374 at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…0374 at0006 = ╱4b╱K╱ // 0x36c @0x6
0x0366…0374 at0007 = ╱54╱T╱ // 0x36d @0x7
0x0366…0374 at0008 = ╱5f╱_╱ // 0x36e @0x8
0x0366…0374 at0009 = ╱4d╱M╱ // 0x36f @0x9
0x0366…0374 at000a = ╱45╱E╱ // 0x370 @0xa
0x0366…0374 at000b = ╱4e╱N╱ // 0x371 @0xb
0x0366…0374 at000c = ╱55╱U╱ // 0x372 @0xc
0x0366…0374 at000d = EOL // 0x373 @0xd
0x0366…0374 }
0x0374…0382 9970 00280 CHAIN PROGRAM $
0x0374…0382 LineComal80 {
0x0374…0382 ptr = 0x9970 // 0x374 @0x0
0x0374…0382 lno = 0x0118 // 0x376 @0x2
0x0374…0382 at0004 = ╱ac╱ CHAIN ╱ // 0x378 @0x4
0x0374…0382 at0005 = ╱50╱P╱ // 0x379 @0x5
0x0374…0382 at0006 = ╱52╱R╱ // 0x37a @0x6
0x0374…0382 at0007 = ╱4f╱O╱ // 0x37b @0x7
0x0374…0382 at0008 = ╱47╱G╱ // 0x37c @0x8
0x0374…0382 at0009 = ╱52╱R╱ // 0x37d @0x9
0x0374…0382 at000a = ╱41╱A╱ // 0x37e @0xa
0x0374…0382 at000b = ╱4d╱M╱ // 0x37f @0xb
0x0374…0382 at000c = ╱ef╱ $ ╱ // 0x380 @0xc
0x0374…0382 at000d = EOL // 0x381 @0xd
0x0374…0382 }
0x0382…03b5 99a3 00290 // ===========…Procedurer…starter…==============
0x0382…03b5 LineComal80 {
0x0382…03b5 ptr = 0x99a3 // 0x382 @0x0
0x0382…03b5 lno = 0x0122 // 0x384 @0x2
0x0382…03b5 at0004 = ╱89╱ // ╱ // 0x386 @0x4
0x0382…03b5 at0005 = ╱3d╱=╱ // 0x387 @0x5
0x0382…03b5 at0006 = ╱3d╱=╱ // 0x388 @0x6
0x0382…03b5 at0007 = ╱3d╱=╱ // 0x389 @0x7
0x0382…03b5 at0008 = ╱3d╱=╱ // 0x38a @0x8
0x0382…03b5 at0009 = ╱3d╱=╱ // 0x38b @0x9
0x0382…03b5 at000a = ╱3d╱=╱ // 0x38c @0xa
0x0382…03b5 at000b = ╱3d╱=╱ // 0x38d @0xb
0x0382…03b5 at000c = ╱3d╱=╱ // 0x38e @0xc
0x0382…03b5 at000d = ╱3d╱=╱ // 0x38f @0xd
0x0382…03b5 at000e = ╱3d╱=╱ // 0x390 @0xe
0x0382…03b5 at000f = ╱3d╱=╱ // 0x391 @0xf
0x0382…03b5 at0010 = ╱20╱…╱ // 0x392 @0x10
0x0382…03b5 at0011 = ╱50╱P╱ // 0x393 @0x11
0x0382…03b5 at0012 = ╱72╱r╱ // 0x394 @0x12
0x0382…03b5 at0013 = ╱6f╱o╱ // 0x395 @0x13
0x0382…03b5 at0014 = ╱63╱c╱ // 0x396 @0x14
0x0382…03b5 at0015 = ╱65╱e╱ // 0x397 @0x15
0x0382…03b5 at0016 = ╱64╱d╱ // 0x398 @0x16
0x0382…03b5 at0017 = ╱75╱u╱ // 0x399 @0x17
0x0382…03b5 at0018 = ╱72╱r╱ // 0x39a @0x18
0x0382…03b5 at0019 = ╱65╱e╱ // 0x39b @0x19
0x0382…03b5 at001a = ╱72╱r╱ // 0x39c @0x1a
0x0382…03b5 at001b = ╱20╱…╱ // 0x39d @0x1b
0x0382…03b5 at001c = ╱73╱s╱ // 0x39e @0x1c
0x0382…03b5 at001d = ╱74╱t╱ // 0x39f @0x1d
0x0382…03b5 at001e = ╱61╱a╱ // 0x3a0 @0x1e
0x0382…03b5 at001f = ╱72╱r╱ // 0x3a1 @0x1f
0x0382…03b5 at0020 = ╱74╱t╱ // 0x3a2 @0x20
0x0382…03b5 at0021 = ╱65╱e╱ // 0x3a3 @0x21
0x0382…03b5 at0022 = ╱72╱r╱ // 0x3a4 @0x22
0x0382…03b5 at0023 = ╱20╱…╱ // 0x3a5 @0x23
0x0382…03b5 at0024 = ╱3d╱=╱ // 0x3a6 @0x24
0x0382…03b5 at0025 = ╱3d╱=╱ // 0x3a7 @0x25
0x0382…03b5 at0026 = ╱3d╱=╱ // 0x3a8 @0x26
0x0382…03b5 at0027 = ╱3d╱=╱ // 0x3a9 @0x27
0x0382…03b5 at0028 = ╱3d╱=╱ // 0x3aa @0x28
0x0382…03b5 at0029 = ╱3d╱=╱ // 0x3ab @0x29
0x0382…03b5 at002a = ╱3d╱=╱ // 0x3ac @0x2a
0x0382…03b5 at002b = ╱3d╱=╱ // 0x3ad @0x2b
0x0382…03b5 at002c = ╱3d╱=╱ // 0x3ae @0x2c
0x0382…03b5 at002d = ╱3d╱=╱ // 0x3af @0x2d
0x0382…03b5 at002e = ╱3d╱=╱ // 0x3b0 @0x2e
0x0382…03b5 at002f = ╱3d╱=╱ // 0x3b1 @0x2f
0x0382…03b5 at0030 = ╱3d╱=╱ // 0x3b2 @0x30
0x0382…03b5 at0031 = ╱3d╱=╱ // 0x3b3 @0x31
0x0382…03b5 at0032 = EOL // 0x3b4 @0x32
0x0382…03b5 }
0x03b5…03c7 99b5 00300 PROC DIMENSIONER
0x03b5…03c7 LineComal80 {
0x03b5…03c7 ptr = 0x99b5 // 0x3b5 @0x0
0x03b5…03c7 lno = 0x012c // 0x3b7 @0x2
0x03b5…03c7 at0004 = ╱9e00╱ PROC ╱ // 0x3b9 @0x4
0x03b5…03c7 at0006 = ╱44╱D╱ // 0x3bb @0x6
0x03b5…03c7 at0007 = ╱49╱I╱ // 0x3bc @0x7
0x03b5…03c7 at0008 = ╱4d╱M╱ // 0x3bd @0x8
0x03b5…03c7 at0009 = ╱45╱E╱ // 0x3be @0x9
0x03b5…03c7 at000a = ╱4e╱N╱ // 0x3bf @0xa
0x03b5…03c7 at000b = ╱53╱S╱ // 0x3c0 @0xb
0x03b5…03c7 at000c = ╱49╱I╱ // 0x3c1 @0xc
0x03b5…03c7 at000d = ╱4f╱O╱ // 0x3c2 @0xd
0x03b5…03c7 at000e = ╱4e╱N╱ // 0x3c3 @0xe
0x03b5…03c7 at000f = ╱45╱E╱ // 0x3c4 @0xf
0x03b5…03c7 at0010 = ╱52╱R╱ // 0x3c5 @0x10
0x03b5…03c7 at0011 = EOL // 0x3c6 @0x11
0x03b5…03c7 }
0x03c7…03de 99cc 00310 // Standard…variable
0x03c7…03de LineComal80 {
0x03c7…03de ptr = 0x99cc // 0x3c7 @0x0
0x03c7…03de lno = 0x0136 // 0x3c9 @0x2
0x03c7…03de at0004 = ╱89╱ // ╱ // 0x3cb @0x4
0x03c7…03de at0005 = ╱53╱S╱ // 0x3cc @0x5
0x03c7…03de at0006 = ╱74╱t╱ // 0x3cd @0x6
0x03c7…03de at0007 = ╱61╱a╱ // 0x3ce @0x7
0x03c7…03de at0008 = ╱6e╱n╱ // 0x3cf @0x8
0x03c7…03de at0009 = ╱64╱d╱ // 0x3d0 @0x9
0x03c7…03de at000a = ╱61╱a╱ // 0x3d1 @0xa
0x03c7…03de at000b = ╱72╱r╱ // 0x3d2 @0xb
0x03c7…03de at000c = ╱64╱d╱ // 0x3d3 @0xc
0x03c7…03de at000d = ╱20╱…╱ // 0x3d4 @0xd
0x03c7…03de at000e = ╱76╱v╱ // 0x3d5 @0xe
0x03c7…03de at000f = ╱61╱a╱ // 0x3d6 @0xf
0x03c7…03de at0010 = ╱72╱r╱ // 0x3d7 @0x10
0x03c7…03de at0011 = ╱69╱i╱ // 0x3d8 @0x11
0x03c7…03de at0012 = ╱61╱a╱ // 0x3d9 @0x12
0x03c7…03de at0013 = ╱62╱b╱ // 0x3da @0x13
0x03c7…03de at0014 = ╱6c╱l╱ // 0x3db @0x14
0x03c7…03de at0015 = ╱65╱e╱ // 0x3dc @0x15
0x03c7…03de at0016 = EOL // 0x3dd @0x16
0x03c7…03de }
0x03de…041d 9a0b 00320 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
0x03de…041d LineComal80 {
0x03de…041d ptr = 0x9a0b // 0x3de @0x0
0x03de…041d lno = 0x0140 // 0x3e0 @0x2
0x03de…041d at0004 = ╱87╱ DIM ╱ // 0x3e2 @0x4
0x03de…041d at0005 = ╱53╱S╱ // 0x3e3 @0x5
0x03de…041d at0006 = ╱50╱P╱ // 0x3e4 @0x6
0x03de…041d at0007 = ╱43╱C╱ // 0x3e5 @0x7
0x03de…041d at0008 = ╱ef╱ $ ╱ // 0x3e6 @0x8
0x03de…041d at0009 = ╱ba╱ OF ╱ // 0x3e7 @0x9
0x03de…041d at000a = ╱38╱8╱ // 0x3e8 @0xa
0x03de…041d at000b = ╱30╱0╱ // 0x3e9 @0xb
0x03de…041d at000c = ╱f25000╱ // 0x3ea @0xc
0x03de…041d at000f = ╱ec╱ , ╱ // 0x3ed @0xf
0x03de…041d at0010 = ╱53╱S╱ // 0x3ee @0x10
0x03de…041d at0011 = ╱56╱V╱ // 0x3ef @0x11
0x03de…041d at0012 = ╱41╱A╱ // 0x3f0 @0x12
0x03de…041d at0013 = ╱52╱R╱ // 0x3f1 @0x13
0x03de…041d at0014 = ╱ef╱ $ ╱ // 0x3f2 @0x14
0x03de…041d at0015 = ╱ba╱ OF ╱ // 0x3f3 @0x15
0x03de…041d at0016 = ╱31╱1╱ // 0x3f4 @0x16
0x03de…041d at0017 = ╱30╱0╱ // 0x3f5 @0x17
0x03de…041d at0018 = ╱f20a00╱ // 0x3f6 @0x18
0x03de…041d at001b = ╱ec╱ , ╱ // 0x3f9 @0x1b
0x03de…041d at001c = ╱50╱P╱ // 0x3fa @0x1c
0x03de…041d at001d = ╱52╱R╱ // 0x3fb @0x1d
0x03de…041d at001e = ╱47╱G╱ // 0x3fc @0x1e
0x03de…041d at001f = ╱46╱F╱ // 0x3fd @0x1f
0x03de…041d at0020 = ╱4c╱L╱ // 0x3fe @0x20
0x03de…041d at0021 = ╱ef╱ $ ╱ // 0x3ff @0x21
0x03de…041d at0022 = ╱ba╱ OF ╱ // 0x400 @0x22
0x03de…041d at0023 = ╱38╱8╱ // 0x401 @0x23
0x03de…041d at0024 = ╱f20800╱ // 0x402 @0x24
0x03de…041d at0027 = ╱ec╱ , ╱ // 0x405 @0x27
0x03de…041d at0028 = ╱41╱A╱ // 0x406 @0x28
0x03de…041d at0029 = ╱4c╱L╱ // 0x407 @0x29
0x03de…041d at002a = ╱46╱F╱ // 0x408 @0x2a
0x03de…041d at002b = ╱41╱A╱ // 0x409 @0x2b
0x03de…041d at002c = ╱ef╱ $ ╱ // 0x40a @0x2c
0x03de…041d at002d = ╱ba╱ OF ╱ // 0x40b @0x2d
0x03de…041d at002e = ╱32╱2╱ // 0x40c @0x2e
0x03de…041d at002f = ╱38╱8╱ // 0x40d @0x2f
0x03de…041d at0030 = ╱f21c00╱ // 0x40e @0x30
0x03de…041d at0033 = ╱ec╱ , ╱ // 0x411 @0x33
0x03de…041d at0034 = ╱54╱T╱ // 0x412 @0x34
0x03de…041d at0035 = ╱41╱A╱ // 0x413 @0x35
0x03de…041d at0036 = ╱4c╱L╱ // 0x414 @0x36
0x03de…041d at0037 = ╱ef╱ $ ╱ // 0x415 @0x37
0x03de…041d at0038 = ╱ba╱ OF ╱ // 0x416 @0x38
0x03de…041d at0039 = ╱31╱1╱ // 0x417 @0x39
0x03de…041d at003a = ╱30╱0╱ // 0x418 @0x3a
0x03de…041d at003b = ╱f20a00╱ // 0x419 @0x3b
0x03de…041d at003e = EOL // 0x41c @0x3e
0x03de…041d }
0x041d…043d 9a2b 00330 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
0x041d…043d LineComal80 {
0x041d…043d ptr = 0x9a2b // 0x41d @0x0
0x041d…043d lno = 0x014a // 0x41f @0x2
0x041d…043d at0004 = ╱87╱ DIM ╱ // 0x421 @0x4
0x041d…043d at0005 = ╱50╱P╱ // 0x422 @0x5
0x041d…043d at0006 = ╱52╱R╱ // 0x423 @0x6
0x041d…043d at0007 = ╱4f╱O╱ // 0x424 @0x7
0x041d…043d at0008 = ╱47╱G╱ // 0x425 @0x8
0x041d…043d at0009 = ╱52╱R╱ // 0x426 @0x9
0x041d…043d at000a = ╱41╱A╱ // 0x427 @0xa
0x041d…043d at000b = ╱4d╱M╱ // 0x428 @0xb
0x041d…043d at000c = ╱ef╱ $ ╱ // 0x429 @0xc
0x041d…043d at000d = ╱ba╱ OF ╱ // 0x42a @0xd
0x041d…043d at000e = ╱31╱1╱ // 0x42b @0xe
0x041d…043d at000f = ╱37╱7╱ // 0x42c @0xf
0x041d…043d at0010 = ╱f21100╱ // 0x42d @0x10
0x041d…043d at0013 = ╱ec╱ , ╱ // 0x430 @0x13
0x041d…043d at0014 = ╱50╱P╱ // 0x431 @0x14
0x041d…043d at0015 = ╱52╱R╱ // 0x432 @0x15
0x041d…043d at0016 = ╱54╱T╱ // 0x433 @0x16
0x041d…043d at0017 = ╱4e╱N╱ // 0x434 @0x17
0x041d…043d at0018 = ╱52╱R╱ // 0x435 @0x18
0x041d…043d at0019 = ╱ef╱ $ ╱ // 0x436 @0x19
0x041d…043d at001a = ╱ba╱ OF ╱ // 0x437 @0x1a
0x041d…043d at001b = ╱31╱1╱ // 0x438 @0x1b
0x041d…043d at001c = ╱f20100╱ // 0x439 @0x1c
0x041d…043d at001f = EOL // 0x43c @0x1f
0x041d…043d }
0x043d…044d 9a3b 00340 REAL RESRV , PPAR
0x043d…044d LineComal80 {
0x043d…044d ptr = 0x9a3b // 0x43d @0x0
0x043d…044d lno = 0x0154 // 0x43f @0x2
0x043d…044d at0004 = ╱b3╱ REAL ╱ // 0x441 @0x4
0x043d…044d at0005 = ╱52╱R╱ // 0x442 @0x5
0x043d…044d at0006 = ╱45╱E╱ // 0x443 @0x6
0x043d…044d at0007 = ╱53╱S╱ // 0x444 @0x7
0x043d…044d at0008 = ╱52╱R╱ // 0x445 @0x8
0x043d…044d at0009 = ╱56╱V╱ // 0x446 @0x9
0x043d…044d at000a = ╱ec╱ , ╱ // 0x447 @0xa
0x043d…044d at000b = ╱50╱P╱ // 0x448 @0xb
0x043d…044d at000c = ╱50╱P╱ // 0x449 @0xc
0x043d…044d at000d = ╱41╱A╱ // 0x44a @0xd
0x043d…044d at000e = ╱52╱R╱ // 0x44b @0xe
0x043d…044d at000f = EOL // 0x44c @0xf
0x043d…044d }
0x044d…0464 9a52 00350 INTEGER OK , TRUE , FALSE , I , J
0x044d…0464 LineComal80 {
0x044d…0464 ptr = 0x9a52 // 0x44d @0x0
0x044d…0464 lno = 0x015e // 0x44f @0x2
0x044d…0464 at0004 = ╱b2╱ INTEGER ╱ // 0x451 @0x4
0x044d…0464 at0005 = ╱4f╱O╱ // 0x452 @0x5
0x044d…0464 at0006 = ╱4b╱K╱ // 0x453 @0x6
0x044d…0464 at0007 = ╱ec╱ , ╱ // 0x454 @0x7
0x044d…0464 at0008 = ╱54╱T╱ // 0x455 @0x8
0x044d…0464 at0009 = ╱52╱R╱ // 0x456 @0x9
0x044d…0464 at000a = ╱55╱U╱ // 0x457 @0xa
0x044d…0464 at000b = ╱45╱E╱ // 0x458 @0xb
0x044d…0464 at000c = ╱ec╱ , ╱ // 0x459 @0xc
0x044d…0464 at000d = ╱46╱F╱ // 0x45a @0xd
0x044d…0464 at000e = ╱41╱A╱ // 0x45b @0xe
0x044d…0464 at000f = ╱4c╱L╱ // 0x45c @0xf
0x044d…0464 at0010 = ╱53╱S╱ // 0x45d @0x10
0x044d…0464 at0011 = ╱45╱E╱ // 0x45e @0x11
0x044d…0464 at0012 = ╱ec╱ , ╱ // 0x45f @0x12
0x044d…0464 at0013 = ╱49╱I╱ // 0x460 @0x13
0x044d…0464 at0014 = ╱ec╱ , ╱ // 0x461 @0x14
0x044d…0464 at0015 = ╱4a╱J╱ // 0x462 @0x15
0x044d…0464 at0016 = EOL // 0x463 @0x16
0x044d…0464 }
0x0464…0478 9a66 00360 // Hj{lpevariable
0x0464…0478 LineComal80 {
0x0464…0478 ptr = 0x9a66 // 0x464 @0x0
0x0464…0478 lno = 0x0168 // 0x466 @0x2
0x0464…0478 at0004 = ╱89╱ // ╱ // 0x468 @0x4
0x0464…0478 at0005 = ╱48╱H╱ // 0x469 @0x5
0x0464…0478 at0006 = ╱6a╱j╱ // 0x46a @0x6
0x0464…0478 at0007 = ╱7b╱{╱ // 0x46b @0x7
0x0464…0478 at0008 = ╱6c╱l╱ // 0x46c @0x8
0x0464…0478 at0009 = ╱70╱p╱ // 0x46d @0x9
0x0464…0478 at000a = ╱65╱e╱ // 0x46e @0xa
0x0464…0478 at000b = ╱76╱v╱ // 0x46f @0xb
0x0464…0478 at000c = ╱61╱a╱ // 0x470 @0xc
0x0464…0478 at000d = ╱72╱r╱ // 0x471 @0xd
0x0464…0478 at000e = ╱69╱i╱ // 0x472 @0xe
0x0464…0478 at000f = ╱61╱a╱ // 0x473 @0xf
0x0464…0478 at0010 = ╱62╱b╱ // 0x474 @0x10
0x0464…0478 at0011 = ╱6c╱l╱ // 0x475 @0x11
0x0464…0478 at0012 = ╱65╱e╱ // 0x476 @0x12
0x0464…0478 at0013 = EOL // 0x477 @0x13
0x0464…0478 }
0x0478…048a 9a78 00370 REAL MOMS_KR , NULR
0x0478…048a LineComal80 {
0x0478…048a ptr = 0x9a78 // 0x478 @0x0
0x0478…048a lno = 0x0172 // 0x47a @0x2
0x0478…048a at0004 = ╱b3╱ REAL ╱ // 0x47c @0x4
0x0478…048a at0005 = ╱4d╱M╱ // 0x47d @0x5
0x0478…048a at0006 = ╱4f╱O╱ // 0x47e @0x6
0x0478…048a at0007 = ╱4d╱M╱ // 0x47f @0x7
0x0478…048a at0008 = ╱53╱S╱ // 0x480 @0x8
0x0478…048a at0009 = ╱5f╱_╱ // 0x481 @0x9
0x0478…048a at000a = ╱4b╱K╱ // 0x482 @0xa
0x0478…048a at000b = ╱52╱R╱ // 0x483 @0xb
0x0478…048a at000c = ╱ec╱ , ╱ // 0x484 @0xc
0x0478…048a at000d = ╱4e╱N╱ // 0x485 @0xd
0x0478…048a at000e = ╱55╱U╱ // 0x486 @0xe
0x0478…048a at000f = ╱4c╱L╱ // 0x487 @0xf
0x0478…048a at0010 = ╱52╱R╱ // 0x488 @0x10
0x0478…048a at0011 = EOL // 0x489 @0x11
0x0478…048a }
0x048a…04c3 9ab1 00380 INTEGER HIGH , LOW , POS , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K , NUL
0x048a…04c3 LineComal80 {
0x048a…04c3 ptr = 0x9ab1 // 0x48a @0x0
0x048a…04c3 lno = 0x017c // 0x48c @0x2
0x048a…04c3 at0004 = ╱b2╱ INTEGER ╱ // 0x48e @0x4
0x048a…04c3 at0005 = ╱48╱H╱ // 0x48f @0x5
0x048a…04c3 at0006 = ╱49╱I╱ // 0x490 @0x6
0x048a…04c3 at0007 = ╱47╱G╱ // 0x491 @0x7
0x048a…04c3 at0008 = ╱48╱H╱ // 0x492 @0x8
0x048a…04c3 at0009 = ╱ec╱ , ╱ // 0x493 @0x9
0x048a…04c3 at000a = ╱4c╱L╱ // 0x494 @0xa
0x048a…04c3 at000b = ╱4f╱O╱ // 0x495 @0xb
0x048a…04c3 at000c = ╱57╱W╱ // 0x496 @0xc
0x048a…04c3 at000d = ╱ec╱ , ╱ // 0x497 @0xd
0x048a…04c3 at000e = ╱50╱P╱ // 0x498 @0xe
0x048a…04c3 at000f = ╱4f╱O╱ // 0x499 @0xf
0x048a…04c3 at0010 = ╱53╱S╱ // 0x49a @0x10
0x048a…04c3 at0011 = ╱ec╱ , ╱ // 0x49b @0x11
0x048a…04c3 at0012 = ╱4b╱K╱ // 0x49c @0x12
0x048a…04c3 at0013 = ╱52╱R╱ // 0x49d @0x13
0x048a…04c3 at0014 = ╱45╱E╱ // 0x49e @0x14
0x048a…04c3 at0015 = ╱44╱D╱ // 0x49f @0x15
0x048a…04c3 at0016 = ╱49╱I╱ // 0x4a0 @0x16
0x048a…04c3 at0017 = ╱54╱T╱ // 0x4a1 @0x17
0x048a…04c3 at0018 = ╱ec╱ , ╱ // 0x4a2 @0x18
0x048a…04c3 at0019 = ╱44╱D╱ // 0x4a3 @0x19
0x048a…04c3 at001a = ╱45╱E╱ // 0x4a4 @0x1a
0x048a…04c3 at001b = ╱42╱B╱ // 0x4a5 @0x1b
0x048a…04c3 at001c = ╱45╱E╱ // 0x4a6 @0x1c
0x048a…04c3 at001d = ╱54╱T╱ // 0x4a7 @0x1d
0x048a…04c3 at001e = ╱ec╱ , ╱ // 0x4a8 @0x1e
0x048a…04c3 at001f = ╱4c╱L╱ // 0x4a9 @0x1f
0x048a…04c3 at0020 = ╱49╱I╱ // 0x4aa @0x20
0x048a…04c3 at0021 = ╱4e╱N╱ // 0x4ab @0x21
0x048a…04c3 at0022 = ╱5f╱_╱ // 0x4ac @0x22
0x048a…04c3 at0023 = ╱54╱T╱ // 0x4ad @0x23
0x048a…04c3 at0024 = ╱ec╱ , ╱ // 0x4ae @0x24
0x048a…04c3 at0025 = ╱4d╱M╱ // 0x4af @0x25
0x048a…04c3 at0026 = ╱41╱A╱ // 0x4b0 @0x26
0x048a…04c3 at0027 = ╱58╱X╱ // 0x4b1 @0x27
0x048a…04c3 at0028 = ╱5f╱_╱ // 0x4b2 @0x28
0x048a…04c3 at0029 = ╱4c╱L╱ // 0x4b3 @0x29
0x048a…04c3 at002a = ╱49╱I╱ // 0x4b4 @0x2a
0x048a…04c3 at002b = ╱4e╱N╱ // 0x4b5 @0x2b
0x048a…04c3 at002c = ╱ec╱ , ╱ // 0x4b6 @0x2c
0x048a…04c3 at002d = ╱54╱T╱ // 0x4b7 @0x2d
0x048a…04c3 at002e = ╱5f╱_╱ // 0x4b8 @0x2e
0x048a…04c3 at002f = ╱49╱I╱ // 0x4b9 @0x2f
0x048a…04c3 at0030 = ╱44╱D╱ // 0x4ba @0x30
0x048a…04c3 at0031 = ╱58╱X╱ // 0x4bb @0x31
0x048a…04c3 at0032 = ╱ec╱ , ╱ // 0x4bc @0x32
0x048a…04c3 at0033 = ╱4b╱K╱ // 0x4bd @0x33
0x048a…04c3 at0034 = ╱ec╱ , ╱ // 0x4be @0x34
0x048a…04c3 at0035 = ╱4e╱N╱ // 0x4bf @0x35
0x048a…04c3 at0036 = ╱55╱U╱ // 0x4c0 @0x36
0x048a…04c3 at0037 = ╱4c╱L╱ // 0x4c1 @0x37
0x048a…04c3 at0038 = EOL // 0x4c2 @0x38
0x048a…04c3 }
0x04c3…04e3 9ad1 00390 // Variable…til…filen…SYSPARA
0x04c3…04e3 LineComal80 {
0x04c3…04e3 ptr = 0x9ad1 // 0x4c3 @0x0
0x04c3…04e3 lno = 0x0186 // 0x4c5 @0x2
0x04c3…04e3 at0004 = ╱89╱ // ╱ // 0x4c7 @0x4
0x04c3…04e3 at0005 = ╱56╱V╱ // 0x4c8 @0x5
0x04c3…04e3 at0006 = ╱61╱a╱ // 0x4c9 @0x6
0x04c3…04e3 at0007 = ╱72╱r╱ // 0x4ca @0x7
0x04c3…04e3 at0008 = ╱69╱i╱ // 0x4cb @0x8
0x04c3…04e3 at0009 = ╱61╱a╱ // 0x4cc @0x9
0x04c3…04e3 at000a = ╱62╱b╱ // 0x4cd @0xa
0x04c3…04e3 at000b = ╱6c╱l╱ // 0x4ce @0xb
0x04c3…04e3 at000c = ╱65╱e╱ // 0x4cf @0xc
0x04c3…04e3 at000d = ╱20╱…╱ // 0x4d0 @0xd
0x04c3…04e3 at000e = ╱74╱t╱ // 0x4d1 @0xe
0x04c3…04e3 at000f = ╱69╱i╱ // 0x4d2 @0xf
0x04c3…04e3 at0010 = ╱6c╱l╱ // 0x4d3 @0x10
0x04c3…04e3 at0011 = ╱20╱…╱ // 0x4d4 @0x11
0x04c3…04e3 at0012 = ╱66╱f╱ // 0x4d5 @0x12
0x04c3…04e3 at0013 = ╱69╱i╱ // 0x4d6 @0x13
0x04c3…04e3 at0014 = ╱6c╱l╱ // 0x4d7 @0x14
0x04c3…04e3 at0015 = ╱65╱e╱ // 0x4d8 @0x15
0x04c3…04e3 at0016 = ╱6e╱n╱ // 0x4d9 @0x16
0x04c3…04e3 at0017 = ╱20╱…╱ // 0x4da @0x17
0x04c3…04e3 at0018 = ╱53╱S╱ // 0x4db @0x18
0x04c3…04e3 at0019 = ╱59╱Y╱ // 0x4dc @0x19
0x04c3…04e3 at001a = ╱53╱S╱ // 0x4dd @0x1a
0x04c3…04e3 at001b = ╱50╱P╱ // 0x4de @0x1b
0x04c3…04e3 at001c = ╱41╱A╱ // 0x4df @0x1c
0x04c3…04e3 at001d = ╱52╱R╱ // 0x4e0 @0x1d
0x04c3…04e3 at001e = ╱41╱A╱ // 0x4e1 @0x1e
0x04c3…04e3 at001f = EOL // 0x4e2 @0x1f
0x04c3…04e3 }
0x04e3…04f7 9ae5 00400 DIM SYSPARA $ OF 17
0x04e3…04f7 LineComal80 {
0x04e3…04f7 ptr = 0x9ae5 // 0x4e3 @0x0
0x04e3…04f7 lno = 0x0190 // 0x4e5 @0x2
0x04e3…04f7 at0004 = ╱87╱ DIM ╱ // 0x4e7 @0x4
0x04e3…04f7 at0005 = ╱53╱S╱ // 0x4e8 @0x5
0x04e3…04f7 at0006 = ╱59╱Y╱ // 0x4e9 @0x6
0x04e3…04f7 at0007 = ╱53╱S╱ // 0x4ea @0x7
0x04e3…04f7 at0008 = ╱50╱P╱ // 0x4eb @0x8
0x04e3…04f7 at0009 = ╱41╱A╱ // 0x4ec @0x9
0x04e3…04f7 at000a = ╱52╱R╱ // 0x4ed @0xa
0x04e3…04f7 at000b = ╱41╱A╱ // 0x4ee @0xb
0x04e3…04f7 at000c = ╱ef╱ $ ╱ // 0x4ef @0xc
0x04e3…04f7 at000d = ╱ba╱ OF ╱ // 0x4f0 @0xd
0x04e3…04f7 at000e = ╱31╱1╱ // 0x4f1 @0xe
0x04e3…04f7 at000f = ╱37╱7╱ // 0x4f2 @0xf
0x04e3…04f7 at0010 = ╱f21100╱ // 0x4f3 @0x10
0x04e3…04f7 at0013 = EOL // 0x4f6 @0x13
0x04e3…04f7 }
0x04f7…051a 9b08 00410 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x04f7…051a LineComal80 {
0x04f7…051a ptr = 0x9b08 // 0x4f7 @0x0
0x04f7…051a lno = 0x019a // 0x4f9 @0x2
0x04f7…051a at0004 = ╱87╱ DIM ╱ // 0x4fb @0x4
0x04f7…051a at0005 = ╱53╱S╱ // 0x4fc @0x5
0x04f7…051a at0006 = ╱59╱Y╱ // 0x4fd @0x6
0x04f7…051a at0007 = ╱53╱S╱ // 0x4fe @0x7
0x04f7…051a at0008 = ╱54╱T╱ // 0x4ff @0x8
0x04f7…051a at0009 = ╱5f╱_╱ // 0x500 @0x9
0x04f7…051a at000a = ╱4e╱N╱ // 0x501 @0xa
0x04f7…051a at000b = ╱41╱A╱ // 0x502 @0xb
0x04f7…051a at000c = ╱56╱V╱ // 0x503 @0xc
0x04f7…051a at000d = ╱4e╱N╱ // 0x504 @0xd
0x04f7…051a at000e = ╱ef╱ $ ╱ // 0x505 @0xe
0x04f7…051a at000f = ╱ba╱ OF ╱ // 0x506 @0xf
0x04f7…051a at0010 = ╱33╱3╱ // 0x507 @0x10
0x04f7…051a at0011 = ╱30╱0╱ // 0x508 @0x11
0x04f7…051a at0012 = ╱f21e00╱ // 0x509 @0x12
0x04f7…051a at0015 = ╱ec╱ , ╱ // 0x50c @0x15
0x04f7…051a at0016 = ╱53╱S╱ // 0x50d @0x16
0x04f7…051a at0017 = ╱5f╱_╱ // 0x50e @0x17
0x04f7…051a at0018 = ╱4b╱K╱ // 0x50f @0x18
0x04f7…051a at0019 = ╱4f╱O╱ // 0x510 @0x19
0x04f7…051a at001a = ╱44╱D╱ // 0x511 @0x1a
0x04f7…051a at001b = ╱45╱E╱ // 0x512 @0x1b
0x04f7…051a at001c = ╱ef╱ $ ╱ // 0x513 @0x1c
0x04f7…051a at001d = ╱ba╱ OF ╱ // 0x514 @0x1d
0x04f7…051a at001e = ╱31╱1╱ // 0x515 @0x1e
0x04f7…051a at001f = ╱f20100╱ // 0x516 @0x1f
0x04f7…051a at0022 = EOL // 0x519 @0x22
0x04f7…051a }
0x051a…0539 9b27 00420 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x051a…0539 LineComal80 {
0x051a…0539 ptr = 0x9b27 // 0x51a @0x0
0x051a…0539 lno = 0x01a4 // 0x51c @0x2
0x051a…0539 at0004 = ╱87╱ DIM ╱ // 0x51e @0x4
0x051a…0539 at0005 = ╱44╱D╱ // 0x51f @0x5
0x051a…0539 at0006 = ╱41╱A╱ // 0x520 @0x6
0x051a…0539 at0007 = ╱54╱T╱ // 0x521 @0x7
0x051a…0539 at0008 = ╱41╱A╱ // 0x522 @0x8
0x051a…0539 at0009 = ╱46╱F╱ // 0x523 @0x9
0x051a…0539 at000a = ╱4c╱L╱ // 0x524 @0xa
0x051a…0539 at000b = ╱ef╱ $ ╱ // 0x525 @0xb
0x051a…0539 at000c = ╱ba╱ OF ╱ // 0x526 @0xc
0x051a…0539 at000d = ╱38╱8╱ // 0x527 @0xd
0x051a…0539 at000e = ╱f20800╱ // 0x528 @0xe
0x051a…0539 at0011 = ╱ec╱ , ╱ // 0x52b @0x11
0x051a…0539 at0012 = ╱54╱T╱ // 0x52c @0x12
0x051a…0539 at0013 = ╱5f╱_╱ // 0x52d @0x13
0x051a…0539 at0014 = ╱4b╱K╱ // 0x52e @0x14
0x051a…0539 at0015 = ╱4f╱O╱ // 0x52f @0x15
0x051a…0539 at0016 = ╱44╱D╱ // 0x530 @0x16
0x051a…0539 at0017 = ╱45╱E╱ // 0x531 @0x17
0x051a…0539 at0018 = ╱ef╱ $ ╱ // 0x532 @0x18
0x051a…0539 at0019 = ╱ba╱ OF ╱ // 0x533 @0x19
0x051a…0539 at001a = ╱31╱1╱ // 0x534 @0x1a
0x051a…0539 at001b = ╱f20100╱ // 0x535 @0x1b
0x051a…0539 at001e = EOL // 0x538 @0x1e
0x051a…0539 }
0x0539…0559 9b47 00430 // Variable…til…filen…@@PARAM
0x0539…0559 LineComal80 {
0x0539…0559 ptr = 0x9b47 // 0x539 @0x0
0x0539…0559 lno = 0x01ae // 0x53b @0x2
0x0539…0559 at0004 = ╱89╱ // ╱ // 0x53d @0x4
0x0539…0559 at0005 = ╱56╱V╱ // 0x53e @0x5
0x0539…0559 at0006 = ╱61╱a╱ // 0x53f @0x6
0x0539…0559 at0007 = ╱72╱r╱ // 0x540 @0x7
0x0539…0559 at0008 = ╱69╱i╱ // 0x541 @0x8
0x0539…0559 at0009 = ╱61╱a╱ // 0x542 @0x9
0x0539…0559 at000a = ╱62╱b╱ // 0x543 @0xa
0x0539…0559 at000b = ╱6c╱l╱ // 0x544 @0xb
0x0539…0559 at000c = ╱65╱e╱ // 0x545 @0xc
0x0539…0559 at000d = ╱20╱…╱ // 0x546 @0xd
0x0539…0559 at000e = ╱74╱t╱ // 0x547 @0xe
0x0539…0559 at000f = ╱69╱i╱ // 0x548 @0xf
0x0539…0559 at0010 = ╱6c╱l╱ // 0x549 @0x10
0x0539…0559 at0011 = ╱20╱…╱ // 0x54a @0x11
0x0539…0559 at0012 = ╱66╱f╱ // 0x54b @0x12
0x0539…0559 at0013 = ╱69╱i╱ // 0x54c @0x13
0x0539…0559 at0014 = ╱6c╱l╱ // 0x54d @0x14
0x0539…0559 at0015 = ╱65╱e╱ // 0x54e @0x15
0x0539…0559 at0016 = ╱6e╱n╱ // 0x54f @0x16
0x0539…0559 at0017 = ╱20╱…╱ // 0x550 @0x17
0x0539…0559 at0018 = ╱40╱@╱ // 0x551 @0x18
0x0539…0559 at0019 = ╱40╱@╱ // 0x552 @0x19
0x0539…0559 at001a = ╱50╱P╱ // 0x553 @0x1a
0x0539…0559 at001b = ╱41╱A╱ // 0x554 @0x1b
0x0539…0559 at001c = ╱52╱R╱ // 0x555 @0x1c
0x0539…0559 at001d = ╱41╱A╱ // 0x556 @0x1d
0x0539…0559 at001e = ╱4d╱M╱ // 0x557 @0x1e
0x0539…0559 at001f = EOL // 0x558 @0x1f
0x0539…0559 }
0x0559…056b 9b59 00440 DIM PARAM $ OF 17
0x0559…056b LineComal80 {
0x0559…056b ptr = 0x9b59 // 0x559 @0x0
0x0559…056b lno = 0x01b8 // 0x55b @0x2
0x0559…056b at0004 = ╱87╱ DIM ╱ // 0x55d @0x4
0x0559…056b at0005 = ╱50╱P╱ // 0x55e @0x5
0x0559…056b at0006 = ╱41╱A╱ // 0x55f @0x6
0x0559…056b at0007 = ╱52╱R╱ // 0x560 @0x7
0x0559…056b at0008 = ╱41╱A╱ // 0x561 @0x8
0x0559…056b at0009 = ╱4d╱M╱ // 0x562 @0x9
0x0559…056b at000a = ╱ef╱ $ ╱ // 0x563 @0xa
0x0559…056b at000b = ╱ba╱ OF ╱ // 0x564 @0xb
0x0559…056b at000c = ╱31╱1╱ // 0x565 @0xc
0x0559…056b at000d = ╱37╱7╱ // 0x566 @0xd
0x0559…056b at000e = ╱f21100╱ // 0x567 @0xe
0x0559…056b at0011 = EOL // 0x56a @0x11
0x0559…056b }
0x056b…0590 9b7e 00450 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
0x056b…0590 LineComal80 {
0x056b…0590 ptr = 0x9b7e // 0x56b @0x0
0x056b…0590 lno = 0x01c2 // 0x56d @0x2
0x056b…0590 at0004 = ╱87╱ DIM ╱ // 0x56f @0x4
0x056b…0590 at0005 = ╱46╱F╱ // 0x570 @0x5
0x056b…0590 at0006 = ╱49╱I╱ // 0x571 @0x6
0x056b…0590 at0007 = ╱52╱R╱ // 0x572 @0x7
0x056b…0590 at0008 = ╱4d╱M╱ // 0x573 @0x8
0x056b…0590 at0009 = ╱41╱A╱ // 0x574 @0x9
0x056b…0590 at000a = ╱4e╱N╱ // 0x575 @0xa
0x056b…0590 at000b = ╱41╱A╱ // 0x576 @0xb
0x056b…0590 at000c = ╱56╱V╱ // 0x577 @0xc
0x056b…0590 at000d = ╱4e╱N╱ // 0x578 @0xd
0x056b…0590 at000e = ╱ef╱ $ ╱ // 0x579 @0xe
0x056b…0590 at000f = ╱ba╱ OF ╱ // 0x57a @0xf
0x056b…0590 at0010 = ╱33╱3╱ // 0x57b @0x10
0x056b…0590 at0011 = ╱30╱0╱ // 0x57c @0x11
0x056b…0590 at0012 = ╱f21e00╱ // 0x57d @0x12
0x056b…0590 at0015 = ╱ec╱ , ╱ // 0x580 @0x15
0x056b…0590 at0016 = ╱53╱S╱ // 0x581 @0x16
0x056b…0590 at0017 = ╱59╱Y╱ // 0x582 @0x17
0x056b…0590 at0018 = ╱53╱S╱ // 0x583 @0x18
0x056b…0590 at0019 = ╱54╱T╱ // 0x584 @0x19
0x056b…0590 at001a = ╱5f╱_╱ // 0x585 @0x1a
0x056b…0590 at001b = ╱44╱D╱ // 0x586 @0x1b
0x056b…0590 at001c = ╱41╱A╱ // 0x587 @0x1c
0x056b…0590 at001d = ╱54╱T╱ // 0x588 @0x1d
0x056b…0590 at001e = ╱ef╱ $ ╱ // 0x589 @0x1e
0x056b…0590 at001f = ╱ba╱ OF ╱ // 0x58a @0x1f
0x056b…0590 at0020 = ╱36╱6╱ // 0x58b @0x20
0x056b…0590 at0021 = ╱f20600╱ // 0x58c @0x21
0x056b…0590 at0024 = EOL // 0x58f @0x24
0x056b…0590 }
0x0590…059a 9b88 00460 REAL MOMS
0x0590…059a LineComal80 {
0x0590…059a ptr = 0x9b88 // 0x590 @0x0
0x0590…059a lno = 0x01cc // 0x592 @0x2
0x0590…059a at0004 = ╱b3╱ REAL ╱ // 0x594 @0x4
0x0590…059a at0005 = ╱4d╱M╱ // 0x595 @0x5
0x0590…059a at0006 = ╱4f╱O╱ // 0x596 @0x6
0x0590…059a at0007 = ╱4d╱M╱ // 0x597 @0x7
0x0590…059a at0008 = ╱53╱S╱ // 0x598 @0x8
0x0590…059a at0009 = EOL // 0x599 @0x9
0x0590…059a }
0x059a…05ba 9ba8 00470 // Variable…til…filen…@@KONTO
0x059a…05ba LineComal80 {
0x059a…05ba ptr = 0x9ba8 // 0x59a @0x0
0x059a…05ba lno = 0x01d6 // 0x59c @0x2
0x059a…05ba at0004 = ╱89╱ // ╱ // 0x59e @0x4
0x059a…05ba at0005 = ╱56╱V╱ // 0x59f @0x5
0x059a…05ba at0006 = ╱61╱a╱ // 0x5a0 @0x6
0x059a…05ba at0007 = ╱72╱r╱ // 0x5a1 @0x7
0x059a…05ba at0008 = ╱69╱i╱ // 0x5a2 @0x8
0x059a…05ba at0009 = ╱61╱a╱ // 0x5a3 @0x9
0x059a…05ba at000a = ╱62╱b╱ // 0x5a4 @0xa
0x059a…05ba at000b = ╱6c╱l╱ // 0x5a5 @0xb
0x059a…05ba at000c = ╱65╱e╱ // 0x5a6 @0xc
0x059a…05ba at000d = ╱20╱…╱ // 0x5a7 @0xd
0x059a…05ba at000e = ╱74╱t╱ // 0x5a8 @0xe
0x059a…05ba at000f = ╱69╱i╱ // 0x5a9 @0xf
0x059a…05ba at0010 = ╱6c╱l╱ // 0x5aa @0x10
0x059a…05ba at0011 = ╱20╱…╱ // 0x5ab @0x11
0x059a…05ba at0012 = ╱66╱f╱ // 0x5ac @0x12
0x059a…05ba at0013 = ╱69╱i╱ // 0x5ad @0x13
0x059a…05ba at0014 = ╱6c╱l╱ // 0x5ae @0x14
0x059a…05ba at0015 = ╱65╱e╱ // 0x5af @0x15
0x059a…05ba at0016 = ╱6e╱n╱ // 0x5b0 @0x16
0x059a…05ba at0017 = ╱20╱…╱ // 0x5b1 @0x17
0x059a…05ba at0018 = ╱40╱@╱ // 0x5b2 @0x18
0x059a…05ba at0019 = ╱40╱@╱ // 0x5b3 @0x19
0x059a…05ba at001a = ╱4b╱K╱ // 0x5b4 @0x1a
0x059a…05ba at001b = ╱4f╱O╱ // 0x5b5 @0x1b
0x059a…05ba at001c = ╱4e╱N╱ // 0x5b6 @0x1c
0x059a…05ba at001d = ╱54╱T╱ // 0x5b7 @0x1d
0x059a…05ba at001e = ╱4f╱O╱ // 0x5b8 @0x1e
0x059a…05ba at001f = EOL // 0x5b9 @0x1f
0x059a…05ba }
0x05ba…05cc 9bba 00480 DIM KONTO $ OF 17
0x05ba…05cc LineComal80 {
0x05ba…05cc ptr = 0x9bba // 0x5ba @0x0
0x05ba…05cc lno = 0x01e0 // 0x5bc @0x2
0x05ba…05cc at0004 = ╱87╱ DIM ╱ // 0x5be @0x4
0x05ba…05cc at0005 = ╱4b╱K╱ // 0x5bf @0x5
0x05ba…05cc at0006 = ╱4f╱O╱ // 0x5c0 @0x6
0x05ba…05cc at0007 = ╱4e╱N╱ // 0x5c1 @0x7
0x05ba…05cc at0008 = ╱54╱T╱ // 0x5c2 @0x8
0x05ba…05cc at0009 = ╱4f╱O╱ // 0x5c3 @0x9
0x05ba…05cc at000a = ╱ef╱ $ ╱ // 0x5c4 @0xa
0x05ba…05cc at000b = ╱ba╱ OF ╱ // 0x5c5 @0xb
0x05ba…05cc at000c = ╱31╱1╱ // 0x5c6 @0xc
0x05ba…05cc at000d = ╱37╱7╱ // 0x5c7 @0xd
0x05ba…05cc at000e = ╱f21100╱ // 0x5c8 @0xe
0x05ba…05cc at0011 = EOL // 0x5cb @0x11
0x05ba…05cc }
0x05cc…05df 9bcd 00490 DIM ST_DATO $ OF 6
0x05cc…05df LineComal80 {
0x05cc…05df ptr = 0x9bcd // 0x5cc @0x0
0x05cc…05df lno = 0x01ea // 0x5ce @0x2
0x05cc…05df at0004 = ╱87╱ DIM ╱ // 0x5d0 @0x4
0x05cc…05df at0005 = ╱53╱S╱ // 0x5d1 @0x5
0x05cc…05df at0006 = ╱54╱T╱ // 0x5d2 @0x6
0x05cc…05df at0007 = ╱5f╱_╱ // 0x5d3 @0x7
0x05cc…05df at0008 = ╱44╱D╱ // 0x5d4 @0x8
0x05cc…05df at0009 = ╱41╱A╱ // 0x5d5 @0x9
0x05cc…05df at000a = ╱54╱T╱ // 0x5d6 @0xa
0x05cc…05df at000b = ╱4f╱O╱ // 0x5d7 @0xb
0x05cc…05df at000c = ╱ef╱ $ ╱ // 0x5d8 @0xc
0x05cc…05df at000d = ╱ba╱ OF ╱ // 0x5d9 @0xd
0x05cc…05df at000e = ╱36╱6╱ // 0x5da @0xe
0x05cc…05df at000f = ╱f20600╱ // 0x5db @0xf
0x05cc…05df at0012 = EOL // 0x5de @0x12
0x05cc…05df }
0x05df…0605 9bf3 00500 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
0x05df…0605 LineComal80 {
0x05df…0605 ptr = 0x9bf3 // 0x5df @0x0
0x05df…0605 lno = 0x01f4 // 0x5e1 @0x2
0x05df…0605 at0004 = ╱b2╱ INTEGER ╱ // 0x5e3 @0x4
0x05df…0605 at0005 = ╱4e╱N╱ // 0x5e4 @0x5
0x05df…0605 at0006 = ╱5f╱_╱ // 0x5e5 @0x6
0x05df…0605 at0007 = ╱46╱F╱ // 0x5e6 @0x7
0x05df…0605 at0008 = ╱52╱R╱ // 0x5e7 @0x8
0x05df…0605 at0009 = ╱49╱I╱ // 0x5e8 @0x9
0x05df…0605 at000a = ╱52╱R╱ // 0x5e9 @0xa
0x05df…0605 at000b = ╱45╱E╱ // 0x5ea @0xb
0x05df…0605 at000c = ╱43╱C╱ // 0x5eb @0xc
0x05df…0605 at000d = ╱ec╱ , ╱ // 0x5ec @0xd
0x05df…0605 at000e = ╱4e╱N╱ // 0x5ed @0xe
0x05df…0605 at000f = ╱5f╱_╱ // 0x5ee @0xf
0x05df…0605 at0010 = ╱4d╱M╱ // 0x5ef @0x10
0x05df…0605 at0011 = ╱41╱A╱ // 0x5f0 @0x11
0x05df…0605 at0012 = ╱58╱X╱ // 0x5f1 @0x12
0x05df…0605 at0013 = ╱52╱R╱ // 0x5f2 @0x13
0x05df…0605 at0014 = ╱45╱E╱ // 0x5f3 @0x14
0x05df…0605 at0015 = ╱43╱C╱ // 0x5f4 @0x15
0x05df…0605 at0016 = ╱ec╱ , ╱ // 0x5f5 @0x16
0x05df…0605 at0017 = ╱41╱A╱ // 0x5f6 @0x17
0x05df…0605 at0018 = ╱4e╱N╱ // 0x5f7 @0x18
0x05df…0605 at0019 = ╱54╱T╱ // 0x5f8 @0x19
0x05df…0605 at001a = ╱5f╱_╱ // 0x5f9 @0x1a
0x05df…0605 at001b = ╱50╱P╱ // 0x5fa @0x1b
0x05df…0605 at001c = ╱45╱E╱ // 0x5fb @0x1c
0x05df…0605 at001d = ╱52╱R╱ // 0x5fc @0x1d
0x05df…0605 at001e = ╱ec╱ , ╱ // 0x5fd @0x1e
0x05df…0605 at001f = ╱50╱P╱ // 0x5fe @0x1f
0x05df…0605 at0020 = ╱45╱E╱ // 0x5ff @0x20
0x05df…0605 at0021 = ╱52╱R╱ // 0x600 @0x21
0x05df…0605 at0022 = ╱5f╱_╱ // 0x601 @0x22
0x05df…0605 at0023 = ╱4e╱N╱ // 0x602 @0x23
0x05df…0605 at0024 = ╱52╱R╱ // 0x603 @0x24
0x05df…0605 at0025 = EOL // 0x604 @0x25
0x05df…0605 }
0x0605…0629 9c17 00510 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
0x0605…0629 LineComal80 {
0x0605…0629 ptr = 0x9c17 // 0x605 @0x0
0x0605…0629 lno = 0x01fe // 0x607 @0x2
0x0605…0629 at0004 = ╱87╱ DIM ╱ // 0x609 @0x4
0x0605…0629 at0005 = ╱4b╱K╱ // 0x60a @0x5
0x0605…0629 at0006 = ╱54╱T╱ // 0x60b @0x6
0x0605…0629 at0007 = ╱4f╱O╱ // 0x60c @0x7
0x0605…0629 at0008 = ╱5f╱_╱ // 0x60d @0x8
0x0605…0629 at0009 = ╱54╱T╱ // 0x60e @0x9
0x0605…0629 at000a = ╱59╱Y╱ // 0x60f @0xa
0x0605…0629 at000b = ╱50╱P╱ // 0x610 @0xb
0x0605…0629 at000c = ╱45╱E╱ // 0x611 @0xc
0x0605…0629 at000d = ╱ef╱ $ ╱ // 0x612 @0xd
0x0605…0629 at000e = ╱ba╱ OF ╱ // 0x613 @0xe
0x0605…0629 at000f = ╱31╱1╱ // 0x614 @0xf
0x0605…0629 at0010 = ╱f20100╱ // 0x615 @0x10
0x0605…0629 at0013 = ╱ec╱ , ╱ // 0x618 @0x13
0x0605…0629 at0014 = ╱4b╱K╱ // 0x619 @0x14
0x0605…0629 at0015 = ╱54╱T╱ // 0x61a @0x15
0x0605…0629 at0016 = ╱4f╱O╱ // 0x61b @0x16
0x0605…0629 at0017 = ╱5f╱_╱ // 0x61c @0x17
0x0605…0629 at0018 = ╱4e╱N╱ // 0x61d @0x18
0x0605…0629 at0019 = ╱41╱A╱ // 0x61e @0x19
0x0605…0629 at001a = ╱56╱V╱ // 0x61f @0x1a
0x0605…0629 at001b = ╱4e╱N╱ // 0x620 @0x1b
0x0605…0629 at001c = ╱ef╱ $ ╱ // 0x621 @0x1c
0x0605…0629 at001d = ╱ba╱ OF ╱ // 0x622 @0x1d
0x0605…0629 at001e = ╱34╱4╱ // 0x623 @0x1e
0x0605…0629 at001f = ╱30╱0╱ // 0x624 @0x1f
0x0605…0629 at0020 = ╱f22800╱ // 0x625 @0x20
0x0605…0629 at0023 = EOL // 0x628 @0x23
0x0605…0629 }
0x0629…0643 9c31 00520 REAL KTO_PRIMO , KTO_ULTIMO
0x0629…0643 LineComal80 {
0x0629…0643 ptr = 0x9c31 // 0x629 @0x0
0x0629…0643 lno = 0x0208 // 0x62b @0x2
0x0629…0643 at0004 = ╱b3╱ REAL ╱ // 0x62d @0x4
0x0629…0643 at0005 = ╱4b╱K╱ // 0x62e @0x5
0x0629…0643 at0006 = ╱54╱T╱ // 0x62f @0x6
0x0629…0643 at0007 = ╱4f╱O╱ // 0x630 @0x7
0x0629…0643 at0008 = ╱5f╱_╱ // 0x631 @0x8
0x0629…0643 at0009 = ╱50╱P╱ // 0x632 @0x9
0x0629…0643 at000a = ╱52╱R╱ // 0x633 @0xa
0x0629…0643 at000b = ╱49╱I╱ // 0x634 @0xb
0x0629…0643 at000c = ╱4d╱M╱ // 0x635 @0xc
0x0629…0643 at000d = ╱4f╱O╱ // 0x636 @0xd
0x0629…0643 at000e = ╱ec╱ , ╱ // 0x637 @0xe
0x0629…0643 at000f = ╱4b╱K╱ // 0x638 @0xf
0x0629…0643 at0010 = ╱54╱T╱ // 0x639 @0x10
0x0629…0643 at0011 = ╱4f╱O╱ // 0x63a @0x11
0x0629…0643 at0012 = ╱5f╱_╱ // 0x63b @0x12
0x0629…0643 at0013 = ╱55╱U╱ // 0x63c @0x13
0x0629…0643 at0014 = ╱4c╱L╱ // 0x63d @0x14
0x0629…0643 at0015 = ╱54╱T╱ // 0x63e @0x15
0x0629…0643 at0016 = ╱49╱I╱ // 0x63f @0x16
0x0629…0643 at0017 = ╱4d╱M╱ // 0x640 @0x17
0x0629…0643 at0018 = ╱4f╱O╱ // 0x641 @0x18
0x0629…0643 at0019 = EOL // 0x642 @0x19
0x0629…0643 }
0x0643…0656 9c44 00530 INTEGER KTO_FP , KTO_SP
0x0643…0656 LineComal80 {
0x0643…0656 ptr = 0x9c44 // 0x643 @0x0
0x0643…0656 lno = 0x0212 // 0x645 @0x2
0x0643…0656 at0004 = ╱b2╱ INTEGER ╱ // 0x647 @0x4
0x0643…0656 at0005 = ╱4b╱K╱ // 0x648 @0x5
0x0643…0656 at0006 = ╱54╱T╱ // 0x649 @0x6
0x0643…0656 at0007 = ╱4f╱O╱ // 0x64a @0x7
0x0643…0656 at0008 = ╱5f╱_╱ // 0x64b @0x8
0x0643…0656 at0009 = ╱46╱F╱ // 0x64c @0x9
0x0643…0656 at000a = ╱50╱P╱ // 0x64d @0xa
0x0643…0656 at000b = ╱ec╱ , ╱ // 0x64e @0xb
0x0643…0656 at000c = ╱4b╱K╱ // 0x64f @0xc
0x0643…0656 at000d = ╱54╱T╱ // 0x650 @0xd
0x0643…0656 at000e = ╱4f╱O╱ // 0x651 @0xe
0x0643…0656 at000f = ╱5f╱_╱ // 0x652 @0xf
0x0643…0656 at0010 = ╱53╱S╱ // 0x653 @0x10
0x0643…0656 at0011 = ╱50╱P╱ // 0x654 @0x11
0x0643…0656 at0012 = EOL // 0x655 @0x12
0x0643…0656 }
0x0656…0677 9c65 00540 // Variable…til…filen…@@KTOIDX
0x0656…0677 LineComal80 {
0x0656…0677 ptr = 0x9c65 // 0x656 @0x0
0x0656…0677 lno = 0x021c // 0x658 @0x2
0x0656…0677 at0004 = ╱89╱ // ╱ // 0x65a @0x4
0x0656…0677 at0005 = ╱56╱V╱ // 0x65b @0x5
0x0656…0677 at0006 = ╱61╱a╱ // 0x65c @0x6
0x0656…0677 at0007 = ╱72╱r╱ // 0x65d @0x7
0x0656…0677 at0008 = ╱69╱i╱ // 0x65e @0x8
0x0656…0677 at0009 = ╱61╱a╱ // 0x65f @0x9
0x0656…0677 at000a = ╱62╱b╱ // 0x660 @0xa
0x0656…0677 at000b = ╱6c╱l╱ // 0x661 @0xb
0x0656…0677 at000c = ╱65╱e╱ // 0x662 @0xc
0x0656…0677 at000d = ╱20╱…╱ // 0x663 @0xd
0x0656…0677 at000e = ╱74╱t╱ // 0x664 @0xe
0x0656…0677 at000f = ╱69╱i╱ // 0x665 @0xf
0x0656…0677 at0010 = ╱6c╱l╱ // 0x666 @0x10
0x0656…0677 at0011 = ╱20╱…╱ // 0x667 @0x11
0x0656…0677 at0012 = ╱66╱f╱ // 0x668 @0x12
0x0656…0677 at0013 = ╱69╱i╱ // 0x669 @0x13
0x0656…0677 at0014 = ╱6c╱l╱ // 0x66a @0x14
0x0656…0677 at0015 = ╱65╱e╱ // 0x66b @0x15
0x0656…0677 at0016 = ╱6e╱n╱ // 0x66c @0x16
0x0656…0677 at0017 = ╱20╱…╱ // 0x66d @0x17
0x0656…0677 at0018 = ╱40╱@╱ // 0x66e @0x18
0x0656…0677 at0019 = ╱40╱@╱ // 0x66f @0x19
0x0656…0677 at001a = ╱4b╱K╱ // 0x670 @0x1a
0x0656…0677 at001b = ╱54╱T╱ // 0x671 @0x1b
0x0656…0677 at001c = ╱4f╱O╱ // 0x672 @0x1c
0x0656…0677 at001d = ╱49╱I╱ // 0x673 @0x1d
0x0656…0677 at001e = ╱44╱D╱ // 0x674 @0x1e
0x0656…0677 at001f = ╱58╱X╱ // 0x675 @0x1f
0x0656…0677 at0020 = EOL // 0x676 @0x20
0x0656…0677 }
0x0677…068a 9c78 00550 DIM KTOIDX $ OF 17
0x0677…068a LineComal80 {
0x0677…068a ptr = 0x9c78 // 0x677 @0x0
0x0677…068a lno = 0x0226 // 0x679 @0x2
0x0677…068a at0004 = ╱87╱ DIM ╱ // 0x67b @0x4
0x0677…068a at0005 = ╱4b╱K╱ // 0x67c @0x5
0x0677…068a at0006 = ╱54╱T╱ // 0x67d @0x6
0x0677…068a at0007 = ╱4f╱O╱ // 0x67e @0x7
0x0677…068a at0008 = ╱49╱I╱ // 0x67f @0x8
0x0677…068a at0009 = ╱44╱D╱ // 0x680 @0x9
0x0677…068a at000a = ╱58╱X╱ // 0x681 @0xa
0x0677…068a at000b = ╱ef╱ $ ╱ // 0x682 @0xb
0x0677…068a at000c = ╱ba╱ OF ╱ // 0x683 @0xc
0x0677…068a at000d = ╱31╱1╱ // 0x684 @0xd
0x0677…068a at000e = ╱37╱7╱ // 0x685 @0xe
0x0677…068a at000f = ╱f21100╱ // 0x686 @0xf
0x0677…068a at0012 = EOL // 0x689 @0x12
0x0677…068a }
0x068a…06a1 9c8f 00560 INTEGER I_H\JREC , I_MAXREC
0x068a…06a1 LineComal80 {
0x068a…06a1 ptr = 0x9c8f // 0x68a @0x0
0x068a…06a1 lno = 0x0230 // 0x68c @0x2
0x068a…06a1 at0004 = ╱b2╱ INTEGER ╱ // 0x68e @0x4
0x068a…06a1 at0005 = ╱49╱I╱ // 0x68f @0x5
0x068a…06a1 at0006 = ╱5f╱_╱ // 0x690 @0x6
0x068a…06a1 at0007 = ╱48╱H╱ // 0x691 @0x7
0x068a…06a1 at0008 = ╱5c╱\╱ // 0x692 @0x8
0x068a…06a1 at0009 = ╱4a╱J╱ // 0x693 @0x9
0x068a…06a1 at000a = ╱52╱R╱ // 0x694 @0xa
0x068a…06a1 at000b = ╱45╱E╱ // 0x695 @0xb
0x068a…06a1 at000c = ╱43╱C╱ // 0x696 @0xc
0x068a…06a1 at000d = ╱ec╱ , ╱ // 0x697 @0xd
0x068a…06a1 at000e = ╱49╱I╱ // 0x698 @0xe
0x068a…06a1 at000f = ╱5f╱_╱ // 0x699 @0xf
0x068a…06a1 at0010 = ╱4d╱M╱ // 0x69a @0x10
0x068a…06a1 at0011 = ╱41╱A╱ // 0x69b @0x11
0x068a…06a1 at0012 = ╱58╱X╱ // 0x69c @0x12
0x068a…06a1 at0013 = ╱52╱R╱ // 0x69d @0x13
0x068a…06a1 at0014 = ╱45╱E╱ // 0x69e @0x14
0x068a…06a1 at0015 = ╱43╱C╱ // 0x69f @0x15
0x068a…06a1 at0016 = EOL // 0x6a0 @0x16
0x068a…06a1 }
0x06a1…06b2 9ca0 00570 DIM KTONR $ OF 8
0x06a1…06b2 LineComal80 {
0x06a1…06b2 ptr = 0x9ca0 // 0x6a1 @0x0
0x06a1…06b2 lno = 0x023a // 0x6a3 @0x2
0x06a1…06b2 at0004 = ╱87╱ DIM ╱ // 0x6a5 @0x4
0x06a1…06b2 at0005 = ╱4b╱K╱ // 0x6a6 @0x5
0x06a1…06b2 at0006 = ╱54╱T╱ // 0x6a7 @0x6
0x06a1…06b2 at0007 = ╱4f╱O╱ // 0x6a8 @0x7
0x06a1…06b2 at0008 = ╱4e╱N╱ // 0x6a9 @0x8
0x06a1…06b2 at0009 = ╱52╱R╱ // 0x6aa @0x9
0x06a1…06b2 at000a = ╱ef╱ $ ╱ // 0x6ab @0xa
0x06a1…06b2 at000b = ╱ba╱ OF ╱ // 0x6ac @0xb
0x06a1…06b2 at000c = ╱38╱8╱ // 0x6ad @0xc
0x06a1…06b2 at000d = ╱f20800╱ // 0x6ae @0xd
0x06a1…06b2 at0010 = EOL // 0x6b1 @0x10
0x06a1…06b2 }
0x06b2…06bd 9cab 00580 INTEGER RECNR
0x06b2…06bd LineComal80 {
0x06b2…06bd ptr = 0x9cab // 0x6b2 @0x0
0x06b2…06bd lno = 0x0244 // 0x6b4 @0x2
0x06b2…06bd at0004 = ╱b2╱ INTEGER ╱ // 0x6b6 @0x4
0x06b2…06bd at0005 = ╱52╱R╱ // 0x6b7 @0x5
0x06b2…06bd at0006 = ╱45╱E╱ // 0x6b8 @0x6
0x06b2…06bd at0007 = ╱43╱C╱ // 0x6b9 @0x7
0x06b2…06bd at0008 = ╱4e╱N╱ // 0x6ba @0x8
0x06b2…06bd at0009 = ╱52╱R╱ // 0x6bb @0x9
0x06b2…06bd at000a = EOL // 0x6bc @0xa
0x06b2…06bd }
0x06bd…06de 9ccc 00590 // Variable…til…filen…@@DG_POS
0x06bd…06de LineComal80 {
0x06bd…06de ptr = 0x9ccc // 0x6bd @0x0
0x06bd…06de lno = 0x024e // 0x6bf @0x2
0x06bd…06de at0004 = ╱89╱ // ╱ // 0x6c1 @0x4
0x06bd…06de at0005 = ╱56╱V╱ // 0x6c2 @0x5
0x06bd…06de at0006 = ╱61╱a╱ // 0x6c3 @0x6
0x06bd…06de at0007 = ╱72╱r╱ // 0x6c4 @0x7
0x06bd…06de at0008 = ╱69╱i╱ // 0x6c5 @0x8
0x06bd…06de at0009 = ╱61╱a╱ // 0x6c6 @0x9
0x06bd…06de at000a = ╱62╱b╱ // 0x6c7 @0xa
0x06bd…06de at000b = ╱6c╱l╱ // 0x6c8 @0xb
0x06bd…06de at000c = ╱65╱e╱ // 0x6c9 @0xc
0x06bd…06de at000d = ╱20╱…╱ // 0x6ca @0xd
0x06bd…06de at000e = ╱74╱t╱ // 0x6cb @0xe
0x06bd…06de at000f = ╱69╱i╱ // 0x6cc @0xf
0x06bd…06de at0010 = ╱6c╱l╱ // 0x6cd @0x10
0x06bd…06de at0011 = ╱20╱…╱ // 0x6ce @0x11
0x06bd…06de at0012 = ╱66╱f╱ // 0x6cf @0x12
0x06bd…06de at0013 = ╱69╱i╱ // 0x6d0 @0x13
0x06bd…06de at0014 = ╱6c╱l╱ // 0x6d1 @0x14
0x06bd…06de at0015 = ╱65╱e╱ // 0x6d2 @0x15
0x06bd…06de at0016 = ╱6e╱n╱ // 0x6d3 @0x16
0x06bd…06de at0017 = ╱20╱…╱ // 0x6d4 @0x17
0x06bd…06de at0018 = ╱40╱@╱ // 0x6d5 @0x18
0x06bd…06de at0019 = ╱40╱@╱ // 0x6d6 @0x19
0x06bd…06de at001a = ╱44╱D╱ // 0x6d7 @0x1a
0x06bd…06de at001b = ╱47╱G╱ // 0x6d8 @0x1b
0x06bd…06de at001c = ╱5f╱_╱ // 0x6d9 @0x1c
0x06bd…06de at001d = ╱50╱P╱ // 0x6da @0x1d
0x06bd…06de at001e = ╱4f╱O╱ // 0x6db @0x1e
0x06bd…06de at001f = ╱53╱S╱ // 0x6dc @0x1f
0x06bd…06de at0020 = EOL // 0x6dd @0x20
0x06bd…06de }
0x06de…06f1 9cdf 00600 DIM DG_POS $ OF 17
0x06de…06f1 LineComal80 {
0x06de…06f1 ptr = 0x9cdf // 0x6de @0x0
0x06de…06f1 lno = 0x0258 // 0x6e0 @0x2
0x06de…06f1 at0004 = ╱87╱ DIM ╱ // 0x6e2 @0x4
0x06de…06f1 at0005 = ╱44╱D╱ // 0x6e3 @0x5
0x06de…06f1 at0006 = ╱47╱G╱ // 0x6e4 @0x6
0x06de…06f1 at0007 = ╱5f╱_╱ // 0x6e5 @0x7
0x06de…06f1 at0008 = ╱50╱P╱ // 0x6e6 @0x8
0x06de…06f1 at0009 = ╱4f╱O╱ // 0x6e7 @0x9
0x06de…06f1 at000a = ╱53╱S╱ // 0x6e8 @0xa
0x06de…06f1 at000b = ╱ef╱ $ ╱ // 0x6e9 @0xb
0x06de…06f1 at000c = ╱ba╱ OF ╱ // 0x6ea @0xc
0x06de…06f1 at000d = ╱31╱1╱ // 0x6eb @0xd
0x06de…06f1 at000e = ╱37╱7╱ // 0x6ec @0xe
0x06de…06f1 at000f = ╱f21100╱ // 0x6ed @0xf
0x06de…06f1 at0012 = EOL // 0x6f0 @0x12
0x06de…06f1 }
0x06f1…0703 9cf1 00610 DIM P_BDAT $ OF 6
0x06f1…0703 LineComal80 {
0x06f1…0703 ptr = 0x9cf1 // 0x6f1 @0x0
0x06f1…0703 lno = 0x0262 // 0x6f3 @0x2
0x06f1…0703 at0004 = ╱87╱ DIM ╱ // 0x6f5 @0x4
0x06f1…0703 at0005 = ╱50╱P╱ // 0x6f6 @0x5
0x06f1…0703 at0006 = ╱5f╱_╱ // 0x6f7 @0x6
0x06f1…0703 at0007 = ╱42╱B╱ // 0x6f8 @0x7
0x06f1…0703 at0008 = ╱44╱D╱ // 0x6f9 @0x8
0x06f1…0703 at0009 = ╱41╱A╱ // 0x6fa @0x9
0x06f1…0703 at000a = ╱54╱T╱ // 0x6fb @0xa
0x06f1…0703 at000b = ╱ef╱ $ ╱ // 0x6fc @0xb
0x06f1…0703 at000c = ╱ba╱ OF ╱ // 0x6fd @0xc
0x06f1…0703 at000d = ╱36╱6╱ // 0x6fe @0xd
0x06f1…0703 at000e = ╱f20600╱ // 0x6ff @0xe
0x06f1…0703 at0011 = EOL // 0x702 @0x11
0x06f1…0703 }
0x0703…0715 9d03 00620 REAL P_DEB , P_KRED
0x0703…0715 LineComal80 {
0x0703…0715 ptr = 0x9d03 // 0x703 @0x0
0x0703…0715 lno = 0x026c // 0x705 @0x2
0x0703…0715 at0004 = ╱b3╱ REAL ╱ // 0x707 @0x4
0x0703…0715 at0005 = ╱50╱P╱ // 0x708 @0x5
0x0703…0715 at0006 = ╱5f╱_╱ // 0x709 @0x6
0x0703…0715 at0007 = ╱44╱D╱ // 0x70a @0x7
0x0703…0715 at0008 = ╱45╱E╱ // 0x70b @0x8
0x0703…0715 at0009 = ╱42╱B╱ // 0x70c @0x9
0x0703…0715 at000a = ╱ec╱ , ╱ // 0x70d @0xa
0x0703…0715 at000b = ╱50╱P╱ // 0x70e @0xb
0x0703…0715 at000c = ╱5f╱_╱ // 0x70f @0xc
0x0703…0715 at000d = ╱4b╱K╱ // 0x710 @0xd
0x0703…0715 at000e = ╱52╱R╱ // 0x711 @0xe
0x0703…0715 at000f = ╱45╱E╱ // 0x712 @0xf
0x0703…0715 at0010 = ╱44╱D╱ // 0x713 @0x10
0x0703…0715 at0011 = EOL // 0x714 @0x11
0x0703…0715 }
0x0715…0738 9d26 00630 INTEGER P_H\JREC , P_MAXREC , S_NR_DG_POS
0x0715…0738 LineComal80 {
0x0715…0738 ptr = 0x9d26 // 0x715 @0x0
0x0715…0738 lno = 0x0276 // 0x717 @0x2
0x0715…0738 at0004 = ╱b2╱ INTEGER ╱ // 0x719 @0x4
0x0715…0738 at0005 = ╱50╱P╱ // 0x71a @0x5
0x0715…0738 at0006 = ╱5f╱_╱ // 0x71b @0x6
0x0715…0738 at0007 = ╱48╱H╱ // 0x71c @0x7
0x0715…0738 at0008 = ╱5c╱\╱ // 0x71d @0x8
0x0715…0738 at0009 = ╱4a╱J╱ // 0x71e @0x9
0x0715…0738 at000a = ╱52╱R╱ // 0x71f @0xa
0x0715…0738 at000b = ╱45╱E╱ // 0x720 @0xb
0x0715…0738 at000c = ╱43╱C╱ // 0x721 @0xc
0x0715…0738 at000d = ╱ec╱ , ╱ // 0x722 @0xd
0x0715…0738 at000e = ╱50╱P╱ // 0x723 @0xe
0x0715…0738 at000f = ╱5f╱_╱ // 0x724 @0xf
0x0715…0738 at0010 = ╱4d╱M╱ // 0x725 @0x10
0x0715…0738 at0011 = ╱41╱A╱ // 0x726 @0x11
0x0715…0738 at0012 = ╱58╱X╱ // 0x727 @0x12
0x0715…0738 at0013 = ╱52╱R╱ // 0x728 @0x13
0x0715…0738 at0014 = ╱45╱E╱ // 0x729 @0x14
0x0715…0738 at0015 = ╱43╱C╱ // 0x72a @0x15
0x0715…0738 at0016 = ╱ec╱ , ╱ // 0x72b @0x16
0x0715…0738 at0017 = ╱53╱S╱ // 0x72c @0x17
0x0715…0738 at0018 = ╱5f╱_╱ // 0x72d @0x18
0x0715…0738 at0019 = ╱4e╱N╱ // 0x72e @0x19
0x0715…0738 at001a = ╱52╱R╱ // 0x72f @0x1a
0x0715…0738 at001b = ╱5f╱_╱ // 0x730 @0x1b
0x0715…0738 at001c = ╱44╱D╱ // 0x731 @0x1c
0x0715…0738 at001d = ╱47╱G╱ // 0x732 @0x1d
0x0715…0738 at001e = ╱5f╱_╱ // 0x733 @0x1e
0x0715…0738 at001f = ╱50╱P╱ // 0x734 @0x1f
0x0715…0738 at0020 = ╱4f╱O╱ // 0x735 @0x20
0x0715…0738 at0021 = ╱53╱S╱ // 0x736 @0x21
0x0715…0738 at0022 = EOL // 0x737 @0x22
0x0715…0738 }
0x0738…0770 (24,) 9d5e 00640 DIM P_BKTO $ OF 8 , P_MKOD $ OF 1 , P_BNR $ OF 5 , P_TXT $ OF 20
0x0738…0770 LineComal80 {
0x0738…0770 ptr = 0x9d5e // 0x738 @0x0
0x0738…0770 lno = 0x0280 // 0x73a @0x2
0x0738…0770 at0004 = ╱87╱ DIM ╱ // 0x73c @0x4
0x0738…0770 at0005 = ╱50╱P╱ // 0x73d @0x5
0x0738…0770 at0006 = ╱5f╱_╱ // 0x73e @0x6
0x0738…0770 at0007 = ╱42╱B╱ // 0x73f @0x7
0x0738…0770 at0008 = ╱4b╱K╱ // 0x740 @0x8
0x0738…0770 at0009 = ╱54╱T╱ // 0x741 @0x9
0x0738…0770 at000a = ╱4f╱O╱ // 0x742 @0xa
0x0738…0770 at000b = ╱ef╱ $ ╱ // 0x743 @0xb
0x0738…0770 at000c = ╱ba╱ OF ╱ // 0x744 @0xc
0x0738…0770 at000d = ╱38╱8╱ // 0x745 @0xd
0x0738…0770 at000e = ╱f20800╱ // 0x746 @0xe
0x0738…0770 at0011 = ╱ec╱ , ╱ // 0x749 @0x11
0x0738…0770 at0012 = ╱50╱P╱ // 0x74a @0x12
0x0738…0770 at0013 = ╱5f╱_╱ // 0x74b @0x13
0x0738…0770 at0014 = ╱4d╱M╱ // 0x74c @0x14
0x0738…0770 at0015 = ╱4b╱K╱ // 0x74d @0x15
0x0738…0770 at0016 = ╱4f╱O╱ // 0x74e @0x16
0x0738…0770 at0017 = ╱44╱D╱ // 0x74f @0x17
0x0738…0770 at0018 = ╱ef╱ $ ╱ // 0x750 @0x18
0x0738…0770 at0019 = ╱ba╱ OF ╱ // 0x751 @0x19
0x0738…0770 at001a = ╱31╱1╱ // 0x752 @0x1a
0x0738…0770 at001b = ╱f20100╱ // 0x753 @0x1b
0x0738…0770 at001e = ╱ec╱ , ╱ // 0x756 @0x1e
0x0738…0770 at001f = ╱50╱P╱ // 0x757 @0x1f
0x0738…0770 at0020 = ╱5f╱_╱ // 0x758 @0x20
0x0738…0770 at0021 = ╱42╱B╱ // 0x759 @0x21
0x0738…0770 at0022 = ╱4e╱N╱ // 0x75a @0x22
0x0738…0770 at0023 = ╱52╱R╱ // 0x75b @0x23
0x0738…0770 at0024 = ╱ef╱ $ ╱ // 0x75c @0x24
0x0738…0770 at0025 = ╱ba╱ OF ╱ // 0x75d @0x25
0x0738…0770 at0026 = ╱35╱5╱ // 0x75e @0x26
0x0738…0770 at0027 = ╱f20500╱ // 0x75f @0x27
0x0738…0770 at002a = ╱ec╱ , ╱ // 0x762 @0x2a
0x0738…0770 at002b = ╱50╱P╱ // 0x763 @0x2b
0x0738…0770 at002c = ╱5f╱_╱ // 0x764 @0x2c
0x0738…0770 at002d = ╱54╱T╱ // 0x765 @0x2d
0x0738…0770 at002e = ╱58╱X╱ // 0x766 @0x2e
0x0738…0770 at002f = ╱54╱T╱ // 0x767 @0x2f
0x0738…0770 at0030 = ╱ef╱ $ ╱ // 0x768 @0x30
0x0738…0770 at0031 = ╱ba╱ OF ╱ // 0x769 @0x31
0x0738…0770 at0032 = ╱32╱2╱ // 0x76a @0x32
0x0738…0770 at0033 = ╱30╱0╱ // 0x76b @0x33
0x0738…0770 at0034 = ╱f21400╱ // 0x76c @0x34
0x0738…0770 at0037 = EOL // 0x76f @0x37
0x0738…0770 }
0x0770…077b 9d69 00650 REAL P_BKR
0x0770…077b LineComal80 {
0x0770…077b ptr = 0x9d69 // 0x770 @0x0
0x0770…077b lno = 0x028a // 0x772 @0x2
0x0770…077b at0004 = ╱b3╱ REAL ╱ // 0x774 @0x4
0x0770…077b at0005 = ╱50╱P╱ // 0x775 @0x5
0x0770…077b at0006 = ╱5f╱_╱ // 0x776 @0x6
0x0770…077b at0007 = ╱42╱B╱ // 0x777 @0x7
0x0770…077b at0008 = ╱4b╱K╱ // 0x778 @0x8
0x0770…077b at0009 = ╱52╱R╱ // 0x779 @0x9
0x0770…077b at000a = EOL // 0x77a @0xa
0x0770…077b }
0x077b…0785 9d73 00660 INTEGER P_DK
0x077b…0785 LineComal80 {
0x077b…0785 ptr = 0x9d73 // 0x77b @0x0
0x077b…0785 lno = 0x0294 // 0x77d @0x2
0x077b…0785 at0004 = ╱b2╱ INTEGER ╱ // 0x77f @0x4
0x077b…0785 at0005 = ╱50╱P╱ // 0x780 @0x5
0x077b…0785 at0006 = ╱5f╱_╱ // 0x781 @0x6
0x077b…0785 at0007 = ╱44╱D╱ // 0x782 @0x7
0x077b…0785 at0008 = ╱4b╱K╱ // 0x783 @0x8
0x077b…0785 at0009 = EOL // 0x784 @0x9
0x077b…0785 }
0x0785…07a6 (25,) 9d94 00670 // Variable…til…filen…@@ST_KTO
0x0785…07a6 LineComal80 {
0x0785…07a6 ptr = 0x9d94 // 0x785 @0x0
0x0785…07a6 lno = 0x029e // 0x787 @0x2
0x0785…07a6 at0004 = ╱89╱ // ╱ // 0x789 @0x4
0x0785…07a6 at0005 = ╱56╱V╱ // 0x78a @0x5
0x0785…07a6 at0006 = ╱61╱a╱ // 0x78b @0x6
0x0785…07a6 at0007 = ╱72╱r╱ // 0x78c @0x7
0x0785…07a6 at0008 = ╱69╱i╱ // 0x78d @0x8
0x0785…07a6 at0009 = ╱61╱a╱ // 0x78e @0x9
0x0785…07a6 at000a = ╱62╱b╱ // 0x78f @0xa
0x0785…07a6 at000b = ╱6c╱l╱ // 0x790 @0xb
0x0785…07a6 at000c = ╱65╱e╱ // 0x791 @0xc
0x0785…07a6 at000d = ╱20╱…╱ // 0x792 @0xd
0x0785…07a6 at000e = ╱74╱t╱ // 0x793 @0xe
0x0785…07a6 at000f = ╱69╱i╱ // 0x794 @0xf
0x0785…07a6 at0010 = ╱6c╱l╱ // 0x795 @0x10
0x0785…07a6 at0011 = ╱20╱…╱ // 0x796 @0x11
0x0785…07a6 at0012 = ╱66╱f╱ // 0x797 @0x12
0x0785…07a6 at0013 = ╱69╱i╱ // 0x798 @0x13
0x0785…07a6 at0014 = ╱6c╱l╱ // 0x799 @0x14
0x0785…07a6 at0015 = ╱65╱e╱ // 0x79a @0x15
0x0785…07a6 at0016 = ╱6e╱n╱ // 0x79b @0x16
0x0785…07a6 at0017 = ╱20╱…╱ // 0x79c @0x17
0x0785…07a6 at0018 = ╱40╱@╱ // 0x79d @0x18
0x0785…07a6 at0019 = ╱40╱@╱ // 0x79e @0x19
0x0785…07a6 at001a = ╱53╱S╱ // 0x79f @0x1a
0x0785…07a6 at001b = ╱54╱T╱ // 0x7a0 @0x1b
0x0785…07a6 at001c = ╱5f╱_╱ // 0x7a1 @0x1c
0x0785…07a6 at001d = ╱4b╱K╱ // 0x7a2 @0x1d
0x0785…07a6 at001e = ╱54╱T╱ // 0x7a3 @0x1e
0x0785…07a6 at001f = ╱4f╱O╱ // 0x7a4 @0x1f
0x0785…07a6 at0020 = EOL // 0x7a5 @0x20
0x0785…07a6 }
0x07a6…07b9 9da7 00680 DIM ST_KTO $ OF 17
0x07a6…07b9 LineComal80 {
0x07a6…07b9 ptr = 0x9da7 // 0x7a6 @0x0
0x07a6…07b9 lno = 0x02a8 // 0x7a8 @0x2
0x07a6…07b9 at0004 = ╱87╱ DIM ╱ // 0x7aa @0x4
0x07a6…07b9 at0005 = ╱53╱S╱ // 0x7ab @0x5
0x07a6…07b9 at0006 = ╱54╱T╱ // 0x7ac @0x6
0x07a6…07b9 at0007 = ╱5f╱_╱ // 0x7ad @0x7
0x07a6…07b9 at0008 = ╱4b╱K╱ // 0x7ae @0x8
0x07a6…07b9 at0009 = ╱54╱T╱ // 0x7af @0x9
0x07a6…07b9 at000a = ╱4f╱O╱ // 0x7b0 @0xa
0x07a6…07b9 at000b = ╱ef╱ $ ╱ // 0x7b1 @0xb
0x07a6…07b9 at000c = ╱ba╱ OF ╱ // 0x7b2 @0xc
0x07a6…07b9 at000d = ╱31╱1╱ // 0x7b3 @0xd
0x07a6…07b9 at000e = ╱37╱7╱ // 0x7b4 @0xe
0x07a6…07b9 at000f = ╱f21100╱ // 0x7b5 @0xf
0x07a6…07b9 at0012 = EOL // 0x7b8 @0x12
0x07a6…07b9 }
0x07b9…07e1 9dcf 00690 DIM UDMOMS_KTO $ OF 8 , INDMOMS_KTO $ OF 8
0x07b9…07e1 LineComal80 {
0x07b9…07e1 ptr = 0x9dcf // 0x7b9 @0x0
0x07b9…07e1 lno = 0x02b2 // 0x7bb @0x2
0x07b9…07e1 at0004 = ╱87╱ DIM ╱ // 0x7bd @0x4
0x07b9…07e1 at0005 = ╱55╱U╱ // 0x7be @0x5
0x07b9…07e1 at0006 = ╱44╱D╱ // 0x7bf @0x6
0x07b9…07e1 at0007 = ╱4d╱M╱ // 0x7c0 @0x7
0x07b9…07e1 at0008 = ╱4f╱O╱ // 0x7c1 @0x8
0x07b9…07e1 at0009 = ╱4d╱M╱ // 0x7c2 @0x9
0x07b9…07e1 at000a = ╱53╱S╱ // 0x7c3 @0xa
0x07b9…07e1 at000b = ╱5f╱_╱ // 0x7c4 @0xb
0x07b9…07e1 at000c = ╱4b╱K╱ // 0x7c5 @0xc
0x07b9…07e1 at000d = ╱54╱T╱ // 0x7c6 @0xd
0x07b9…07e1 at000e = ╱4f╱O╱ // 0x7c7 @0xe
0x07b9…07e1 at000f = ╱ef╱ $ ╱ // 0x7c8 @0xf
0x07b9…07e1 at0010 = ╱ba╱ OF ╱ // 0x7c9 @0x10
0x07b9…07e1 at0011 = ╱38╱8╱ // 0x7ca @0x11
0x07b9…07e1 at0012 = ╱f20800╱ // 0x7cb @0x12
0x07b9…07e1 at0015 = ╱ec╱ , ╱ // 0x7ce @0x15
0x07b9…07e1 at0016 = ╱49╱I╱ // 0x7cf @0x16
0x07b9…07e1 at0017 = ╱4e╱N╱ // 0x7d0 @0x17
0x07b9…07e1 at0018 = ╱44╱D╱ // 0x7d1 @0x18
0x07b9…07e1 at0019 = ╱4d╱M╱ // 0x7d2 @0x19
0x07b9…07e1 at001a = ╱4f╱O╱ // 0x7d3 @0x1a
0x07b9…07e1 at001b = ╱4d╱M╱ // 0x7d4 @0x1b
0x07b9…07e1 at001c = ╱53╱S╱ // 0x7d5 @0x1c
0x07b9…07e1 at001d = ╱5f╱_╱ // 0x7d6 @0x1d
0x07b9…07e1 at001e = ╱4b╱K╱ // 0x7d7 @0x1e
0x07b9…07e1 at001f = ╱54╱T╱ // 0x7d8 @0x1f
0x07b9…07e1 at0020 = ╱4f╱O╱ // 0x7d9 @0x20
0x07b9…07e1 at0021 = ╱ef╱ $ ╱ // 0x7da @0x21
0x07b9…07e1 at0022 = ╱ba╱ OF ╱ // 0x7db @0x22
0x07b9…07e1 at0023 = ╱38╱8╱ // 0x7dc @0x23
0x07b9…07e1 at0024 = ╱f20800╱ // 0x7dd @0x24
0x07b9…07e1 at0027 = EOL // 0x7e0 @0x27
0x07b9…07e1 }
0x07e1…0800 9dee 00700 // Variable…til…file…@@TRANS
0x07e1…0800 LineComal80 {
0x07e1…0800 ptr = 0x9dee // 0x7e1 @0x0
0x07e1…0800 lno = 0x02bc // 0x7e3 @0x2
0x07e1…0800 at0004 = ╱89╱ // ╱ // 0x7e5 @0x4
0x07e1…0800 at0005 = ╱56╱V╱ // 0x7e6 @0x5
0x07e1…0800 at0006 = ╱61╱a╱ // 0x7e7 @0x6
0x07e1…0800 at0007 = ╱72╱r╱ // 0x7e8 @0x7
0x07e1…0800 at0008 = ╱69╱i╱ // 0x7e9 @0x8
0x07e1…0800 at0009 = ╱61╱a╱ // 0x7ea @0x9
0x07e1…0800 at000a = ╱62╱b╱ // 0x7eb @0xa
0x07e1…0800 at000b = ╱6c╱l╱ // 0x7ec @0xb
0x07e1…0800 at000c = ╱65╱e╱ // 0x7ed @0xc
0x07e1…0800 at000d = ╱20╱…╱ // 0x7ee @0xd
0x07e1…0800 at000e = ╱74╱t╱ // 0x7ef @0xe
0x07e1…0800 at000f = ╱69╱i╱ // 0x7f0 @0xf
0x07e1…0800 at0010 = ╱6c╱l╱ // 0x7f1 @0x10
0x07e1…0800 at0011 = ╱20╱…╱ // 0x7f2 @0x11
0x07e1…0800 at0012 = ╱66╱f╱ // 0x7f3 @0x12
0x07e1…0800 at0013 = ╱69╱i╱ // 0x7f4 @0x13
0x07e1…0800 at0014 = ╱6c╱l╱ // 0x7f5 @0x14
0x07e1…0800 at0015 = ╱65╱e╱ // 0x7f6 @0x15
0x07e1…0800 at0016 = ╱20╱…╱ // 0x7f7 @0x16
0x07e1…0800 at0017 = ╱40╱@╱ // 0x7f8 @0x17
0x07e1…0800 at0018 = ╱40╱@╱ // 0x7f9 @0x18
0x07e1…0800 at0019 = ╱54╱T╱ // 0x7fa @0x19
0x07e1…0800 at001a = ╱52╱R╱ // 0x7fb @0x1a
0x07e1…0800 at001b = ╱41╱A╱ // 0x7fc @0x1b
0x07e1…0800 at001c = ╱4e╱N╱ // 0x7fd @0x1c
0x07e1…0800 at001d = ╱53╱S╱ // 0x7fe @0x1d
0x07e1…0800 at001e = EOL // 0x7ff @0x1e
0x07e1…0800 }
0x0800…0812 9e00 00710 DIM TRANS $ OF 17
0x0800…0812 LineComal80 {
0x0800…0812 ptr = 0x9e00 // 0x800 @0x0
0x0800…0812 lno = 0x02c6 // 0x802 @0x2
0x0800…0812 at0004 = ╱87╱ DIM ╱ // 0x804 @0x4
0x0800…0812 at0005 = ╱54╱T╱ // 0x805 @0x5
0x0800…0812 at0006 = ╱52╱R╱ // 0x806 @0x6
0x0800…0812 at0007 = ╱41╱A╱ // 0x807 @0x7
0x0800…0812 at0008 = ╱4e╱N╱ // 0x808 @0x8
0x0800…0812 at0009 = ╱53╱S╱ // 0x809 @0x9
0x0800…0812 at000a = ╱ef╱ $ ╱ // 0x80a @0xa
0x0800…0812 at000b = ╱ba╱ OF ╱ // 0x80b @0xb
0x0800…0812 at000c = ╱31╱1╱ // 0x80c @0xc
0x0800…0812 at000d = ╱37╱7╱ // 0x80d @0xd
0x0800…0812 at000e = ╱f21100╱ // 0x80e @0xe
0x0800…0812 at0011 = EOL // 0x811 @0x11
0x0800…0812 }
0x0812…0829 9e17 00720 INTEGER T_H\JREC , T_MAXREC
0x0812…0829 LineComal80 {
0x0812…0829 ptr = 0x9e17 // 0x812 @0x0
0x0812…0829 lno = 0x02d0 // 0x814 @0x2
0x0812…0829 at0004 = ╱b2╱ INTEGER ╱ // 0x816 @0x4
0x0812…0829 at0005 = ╱54╱T╱ // 0x817 @0x5
0x0812…0829 at0006 = ╱5f╱_╱ // 0x818 @0x6
0x0812…0829 at0007 = ╱48╱H╱ // 0x819 @0x7
0x0812…0829 at0008 = ╱5c╱\╱ // 0x81a @0x8
0x0812…0829 at0009 = ╱4a╱J╱ // 0x81b @0x9
0x0812…0829 at000a = ╱52╱R╱ // 0x81c @0xa
0x0812…0829 at000b = ╱45╱E╱ // 0x81d @0xb
0x0812…0829 at000c = ╱43╱C╱ // 0x81e @0xc
0x0812…0829 at000d = ╱ec╱ , ╱ // 0x81f @0xd
0x0812…0829 at000e = ╱54╱T╱ // 0x820 @0xe
0x0812…0829 at000f = ╱5f╱_╱ // 0x821 @0xf
0x0812…0829 at0010 = ╱4d╱M╱ // 0x822 @0x10
0x0812…0829 at0011 = ╱41╱A╱ // 0x823 @0x11
0x0812…0829 at0012 = ╱58╱X╱ // 0x824 @0x12
0x0812…0829 at0013 = ╱52╱R╱ // 0x825 @0x13
0x0812…0829 at0014 = ╱45╱E╱ // 0x826 @0x14
0x0812…0829 at0015 = ╱43╱C╱ // 0x827 @0x15
0x0812…0829 at0016 = EOL // 0x828 @0x16
0x0812…0829 }
0x0829…085f 9e4d 00730 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
0x0829…085f LineComal80 {
0x0829…085f ptr = 0x9e4d // 0x829 @0x0
0x0829…085f lno = 0x02da // 0x82b @0x2
0x0829…085f at0004 = ╱87╱ DIM ╱ // 0x82d @0x4
0x0829…085f at0005 = ╱42╱B╱ // 0x82e @0x5
0x0829…085f at0006 = ╱4b╱K╱ // 0x82f @0x6
0x0829…085f at0007 = ╱54╱T╱ // 0x830 @0x7
0x0829…085f at0008 = ╱4f╱O╱ // 0x831 @0x8
0x0829…085f at0009 = ╱4e╱N╱ // 0x832 @0x9
0x0829…085f at000a = ╱52╱R╱ // 0x833 @0xa
0x0829…085f at000b = ╱ef╱ $ ╱ // 0x834 @0xb
0x0829…085f at000c = ╱ba╱ OF ╱ // 0x835 @0xc
0x0829…085f at000d = ╱38╱8╱ // 0x836 @0xd
0x0829…085f at000e = ╱f20800╱ // 0x837 @0xe
0x0829…085f at0011 = ╱ec╱ , ╱ // 0x83a @0x11
0x0829…085f at0012 = ╱42╱B╱ // 0x83b @0x12
0x0829…085f at0013 = ╱44╱D╱ // 0x83c @0x13
0x0829…085f at0014 = ╱41╱A╱ // 0x83d @0x14
0x0829…085f at0015 = ╱54╱T╱ // 0x83e @0x15
0x0829…085f at0016 = ╱4f╱O╱ // 0x83f @0x16
0x0829…085f at0017 = ╱ef╱ $ ╱ // 0x840 @0x17
0x0829…085f at0018 = ╱ba╱ OF ╱ // 0x841 @0x18
0x0829…085f at0019 = ╱36╱6╱ // 0x842 @0x19
0x0829…085f at001a = ╱f20600╱ // 0x843 @0x1a
0x0829…085f at001d = ╱ec╱ , ╱ // 0x846 @0x1d
0x0829…085f at001e = ╱42╱B╱ // 0x847 @0x1e
0x0829…085f at001f = ╱4c╱L╱ // 0x848 @0x1f
0x0829…085f at0020 = ╱47╱G╱ // 0x849 @0x20
0x0829…085f at0021 = ╱4e╱N╱ // 0x84a @0x21
0x0829…085f at0022 = ╱52╱R╱ // 0x84b @0x22
0x0829…085f at0023 = ╱ef╱ $ ╱ // 0x84c @0x23
0x0829…085f at0024 = ╱ba╱ OF ╱ // 0x84d @0x24
0x0829…085f at0025 = ╱35╱5╱ // 0x84e @0x25
0x0829…085f at0026 = ╱f20500╱ // 0x84f @0x26
0x0829…085f at0029 = ╱ec╱ , ╱ // 0x852 @0x29
0x0829…085f at002a = ╱42╱B╱ // 0x853 @0x2a
0x0829…085f at002b = ╱54╱T╱ // 0x854 @0x2b
0x0829…085f at002c = ╱58╱X╱ // 0x855 @0x2c
0x0829…085f at002d = ╱54╱T╱ // 0x856 @0x2d
0x0829…085f at002e = ╱ef╱ $ ╱ // 0x857 @0x2e
0x0829…085f at002f = ╱ba╱ OF ╱ // 0x858 @0x2f
0x0829…085f at0030 = ╱32╱2╱ // 0x859 @0x30
0x0829…085f at0031 = ╱30╱0╱ // 0x85a @0x31
0x0829…085f at0032 = ╱f21400╱ // 0x85b @0x32
0x0829…085f at0035 = EOL // 0x85e @0x35
0x0829…085f }
0x085f…0871 9e5f 00740 REAL BMOMS , BBEL\B
0x085f…0871 LineComal80 {
0x085f…0871 ptr = 0x9e5f // 0x85f @0x0
0x085f…0871 lno = 0x02e4 // 0x861 @0x2
0x085f…0871 at0004 = ╱b3╱ REAL ╱ // 0x863 @0x4
0x085f…0871 at0005 = ╱42╱B╱ // 0x864 @0x5
0x085f…0871 at0006 = ╱4d╱M╱ // 0x865 @0x6
0x085f…0871 at0007 = ╱4f╱O╱ // 0x866 @0x7
0x085f…0871 at0008 = ╱4d╱M╱ // 0x867 @0x8
0x085f…0871 at0009 = ╱53╱S╱ // 0x868 @0x9
0x085f…0871 at000a = ╱ec╱ , ╱ // 0x869 @0xa
0x085f…0871 at000b = ╱42╱B╱ // 0x86a @0xb
0x085f…0871 at000c = ╱42╱B╱ // 0x86b @0xc
0x085f…0871 at000d = ╱45╱E╱ // 0x86c @0xd
0x085f…0871 at000e = ╱4c╱L╱ // 0x86d @0xe
0x085f…0871 at000f = ╱5c╱\╱ // 0x86e @0xf
0x085f…0871 at0010 = ╱42╱B╱ // 0x86f @0x10
0x085f…0871 at0011 = EOL // 0x870 @0x11
0x085f…0871 }
0x0871…0880 9e6e 00750 INTEGER DK , NTRANS
0x0871…0880 LineComal80 {
0x0871…0880 ptr = 0x9e6e // 0x871 @0x0
0x0871…0880 lno = 0x02ee // 0x873 @0x2
0x0871…0880 at0004 = ╱b2╱ INTEGER ╱ // 0x875 @0x4
0x0871…0880 at0005 = ╱44╱D╱ // 0x876 @0x5
0x0871…0880 at0006 = ╱4b╱K╱ // 0x877 @0x6
0x0871…0880 at0007 = ╱ec╱ , ╱ // 0x878 @0x7
0x0871…0880 at0008 = ╱4e╱N╱ // 0x879 @0x8
0x0871…0880 at0009 = ╱54╱T╱ // 0x87a @0x9
0x0871…0880 at000a = ╱52╱R╱ // 0x87b @0xa
0x0871…0880 at000b = ╱41╱A╱ // 0x87c @0xb
0x0871…0880 at000c = ╱4e╱N╱ // 0x87d @0xc
0x0871…0880 at000d = ╱53╱S╱ // 0x87e @0xd
0x0871…0880 at000e = EOL // 0x87f @0xe
0x0871…0880 }
0x0880…0891 9e7f 00760 ENDPROC DIMENSIONER
0x0880…0891 LineComal80 {
0x0880…0891 ptr = 0x9e7f // 0x880 @0x0
0x0880…0891 lno = 0x02f8 // 0x882 @0x2
0x0880…0891 at0004 = ╱9f╱ ENDPROC ╱ // 0x884 @0x4
0x0880…0891 at0005 = ╱44╱D╱ // 0x885 @0x5
0x0880…0891 at0006 = ╱49╱I╱ // 0x886 @0x6
0x0880…0891 at0007 = ╱4d╱M╱ // 0x887 @0x7
0x0880…0891 at0008 = ╱45╱E╱ // 0x888 @0x8
0x0880…0891 at0009 = ╱4e╱N╱ // 0x889 @0x9
0x0880…0891 at000a = ╱53╱S╱ // 0x88a @0xa
0x0880…0891 at000b = ╱49╱I╱ // 0x88b @0xb
0x0880…0891 at000c = ╱4f╱O╱ // 0x88c @0xc
0x0880…0891 at000d = ╱4e╱N╱ // 0x88d @0xd
0x0880…0891 at000e = ╱45╱E╱ // 0x88e @0xe
0x0880…0891 at000f = ╱52╱R╱ // 0x88f @0xf
0x0880…0891 at0010 = EOL // 0x890 @0x10
0x0880…0891 }
0x0891…0896 9e84 00770
0x0891…0896 LineComal80 {
0x0891…0896 ptr = 0x9e84 // 0x891 @0x0
0x0891…0896 lno = 0x0302 // 0x893 @0x2
0x0891…0896 at0004 = EOL // 0x895 @0x4
0x0891…0896 }
0x0896…08a4 9e92 00780 PROC INITIER
0x0896…08a4 LineComal80 {
0x0896…08a4 ptr = 0x9e92 // 0x896 @0x0
0x0896…08a4 lno = 0x030c // 0x898 @0x2
0x0896…08a4 at0004 = ╱9e00╱ PROC ╱ // 0x89a @0x4
0x0896…08a4 at0006 = ╱49╱I╱ // 0x89c @0x6
0x0896…08a4 at0007 = ╱4e╱N╱ // 0x89d @0x7
0x0896…08a4 at0008 = ╱49╱I╱ // 0x89e @0x8
0x0896…08a4 at0009 = ╱54╱T╱ // 0x89f @0x9
0x0896…08a4 at000a = ╱49╱I╱ // 0x8a0 @0xa
0x0896…08a4 at000b = ╱45╱E╱ // 0x8a1 @0xb
0x0896…08a4 at000c = ╱52╱R╱ // 0x8a2 @0xc
0x0896…08a4 at000d = EOL // 0x8a3 @0xd
0x0896…08a4 }
0x08a4…08b6 9ea4 00790 LET PRGFL $ := "DP2"
0x08a4…08b6 LineComal80 {
0x08a4…08b6 ptr = 0x9ea4 // 0x8a4 @0x0
0x08a4…08b6 lno = 0x0316 // 0x8a6 @0x2
0x08a4…08b6 at0004 = ╱86╱ LET ╱ // 0x8a8 @0x4
0x08a4…08b6 at0005 = ╱50╱P╱ // 0x8a9 @0x5
0x08a4…08b6 at0006 = ╱52╱R╱ // 0x8aa @0x6
0x08a4…08b6 at0007 = ╱47╱G╱ // 0x8ab @0x7
0x08a4…08b6 at0008 = ╱46╱F╱ // 0x8ac @0x8
0x08a4…08b6 at0009 = ╱4c╱L╱ // 0x8ad @0x9
0x08a4…08b6 at000a = ╱ef╱ $ ╱ // 0x8ae @0xa
0x08a4…08b6 at000b = ╱f0╱ := ╱ // 0x8af @0xb
0x08a4…08b6 at000c = ╱22╱"╱ // 0x8b0 @0xc
0x08a4…08b6 at000d = ╱44╱D╱ // 0x8b1 @0xd
0x08a4…08b6 at000e = ╱50╱P╱ // 0x8b2 @0xe
0x08a4…08b6 at000f = ╱32╱2╱ // 0x8b3 @0xf
0x08a4…08b6 at0010 = ╱22╱"╱ // 0x8b4 @0x10
0x08a4…08b6 at0011 = EOL // 0x8b5 @0x11
0x08a4…08b6 }
0x08b6…08d4 9ec2 00800 LET PROGRAM $ := PRGFL $ + ":SYSKA"
0x08b6…08d4 LineComal80 {
0x08b6…08d4 ptr = 0x9ec2 // 0x8b6 @0x0
0x08b6…08d4 lno = 0x0320 // 0x8b8 @0x2
0x08b6…08d4 at0004 = ╱86╱ LET ╱ // 0x8ba @0x4
0x08b6…08d4 at0005 = ╱50╱P╱ // 0x8bb @0x5
0x08b6…08d4 at0006 = ╱52╱R╱ // 0x8bc @0x6
0x08b6…08d4 at0007 = ╱4f╱O╱ // 0x8bd @0x7
0x08b6…08d4 at0008 = ╱47╱G╱ // 0x8be @0x8
0x08b6…08d4 at0009 = ╱52╱R╱ // 0x8bf @0x9
0x08b6…08d4 at000a = ╱41╱A╱ // 0x8c0 @0xa
0x08b6…08d4 at000b = ╱4d╱M╱ // 0x8c1 @0xb
0x08b6…08d4 at000c = ╱ef╱ $ ╱ // 0x8c2 @0xc
0x08b6…08d4 at000d = ╱f0╱ := ╱ // 0x8c3 @0xd
0x08b6…08d4 at000e = ╱50╱P╱ // 0x8c4 @0xe
0x08b6…08d4 at000f = ╱52╱R╱ // 0x8c5 @0xf
0x08b6…08d4 at0010 = ╱47╱G╱ // 0x8c6 @0x10
0x08b6…08d4 at0011 = ╱46╱F╱ // 0x8c7 @0x11
0x08b6…08d4 at0012 = ╱4c╱L╱ // 0x8c8 @0x12
0x08b6…08d4 at0013 = ╱ef╱ $ ╱ // 0x8c9 @0x13
0x08b6…08d4 at0014 = ╱eb╱ + ╱ // 0x8ca @0x14
0x08b6…08d4 at0015 = ╱22╱"╱ // 0x8cb @0x15
0x08b6…08d4 at0016 = ╱3a╱:╱ // 0x8cc @0x16
0x08b6…08d4 at0017 = ╱53╱S╱ // 0x8cd @0x17
0x08b6…08d4 at0018 = ╱59╱Y╱ // 0x8ce @0x18
0x08b6…08d4 at0019 = ╱53╱S╱ // 0x8cf @0x19
0x08b6…08d4 at001a = ╱4b╱K╱ // 0x8d0 @0x1a
0x08b6…08d4 at001b = ╱41╱A╱ // 0x8d1 @0x1b
0x08b6…08d4 at001c = ╱22╱"╱ // 0x8d2 @0x1c
0x08b6…08d4 at001d = EOL // 0x8d3 @0x1d
0x08b6…08d4 }
0x08d4…08eb 9ed9 00810 LET TAL $ := "0123456789"
0x08d4…08eb LineComal80 {
0x08d4…08eb ptr = 0x9ed9 // 0x8d4 @0x0
0x08d4…08eb lno = 0x032a // 0x8d6 @0x2
0x08d4…08eb at0004 = ╱86╱ LET ╱ // 0x8d8 @0x4
0x08d4…08eb at0005 = ╱54╱T╱ // 0x8d9 @0x5
0x08d4…08eb at0006 = ╱41╱A╱ // 0x8da @0x6
0x08d4…08eb at0007 = ╱4c╱L╱ // 0x8db @0x7
0x08d4…08eb at0008 = ╱ef╱ $ ╱ // 0x8dc @0x8
0x08d4…08eb at0009 = ╱f0╱ := ╱ // 0x8dd @0x9
0x08d4…08eb at000a = ╱22╱"╱ // 0x8de @0xa
0x08d4…08eb at000b = ╱30╱0╱ // 0x8df @0xb
0x08d4…08eb at000c = ╱31╱1╱ // 0x8e0 @0xc
0x08d4…08eb at000d = ╱32╱2╱ // 0x8e1 @0xd
0x08d4…08eb at000e = ╱33╱3╱ // 0x8e2 @0xe
0x08d4…08eb at000f = ╱34╱4╱ // 0x8e3 @0xf
0x08d4…08eb at0010 = ╱35╱5╱ // 0x8e4 @0x10
0x08d4…08eb at0011 = ╱36╱6╱ // 0x8e5 @0x11
0x08d4…08eb at0012 = ╱37╱7╱ // 0x8e6 @0x12
0x08d4…08eb at0013 = ╱38╱8╱ // 0x8e7 @0x13
0x08d4…08eb at0014 = ╱39╱9╱ // 0x8e8 @0x14
0x08d4…08eb at0015 = ╱22╱"╱ // 0x8e9 @0x15
0x08d4…08eb at0016 = EOL // 0x8ea @0x16
0x08d4…08eb }
0x08eb…0913 9f01 00820 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
0x08eb…0913 LineComal80 {
0x08eb…0913 ptr = 0x9f01 // 0x8eb @0x0
0x08eb…0913 lno = 0x0334 // 0x8ed @0x2
0x08eb…0913 at0004 = ╱b400╱ FOR ╱ // 0x8ef @0x4
0x08eb…0913 at0006 = ╱49╱I╱ // 0x8f1 @0x6
0x08eb…0913 at0007 = ╱f0╱ := ╱ // 0x8f2 @0x7
0x08eb…0913 at0008 = ╱cc╱ // 0x8f3 @0x8
0x08eb…0913 at0009 = ╱ed╱ ( ╱ // 0x8f4 @0x9
0x08eb…0913 at000a = ╱22╱"╱ // 0x8f5 @0xa
0x08eb…0913 at000b = ╱41╱A╱ // 0x8f6 @0xb
0x08eb…0913 at000c = ╱22╱"╱ // 0x8f7 @0xc
0x08eb…0913 at000d = ╱ee╱ ) ╱ // 0x8f8 @0xd
0x08eb…0913 at000e = ╱b7cc╱ TO ╱ // 0x8f9 @0xe
0x08eb…0913 at0010 = ╱ed╱ ( ╱ // 0x8fb @0x10
0x08eb…0913 at0011 = ╱22╱"╱ // 0x8fc @0x11
0x08eb…0913 at0012 = ╱5d╱]╱ // 0x8fd @0x12
0x08eb…0913 at0013 = ╱22╱"╱ // 0x8fe @0x13
0x08eb…0913 at0014 = ╱ee╱ ) ╱ // 0x8ff @0x14
0x08eb…0913 at0015 = ╱bb╱ DO ╱ // 0x900 @0x15
0x08eb…0913 at0016 = ╱86╱ LET ╱ // 0x901 @0x16
0x08eb…0913 at0017 = ╱41╱A╱ // 0x902 @0x17
0x08eb…0913 at0018 = ╱4c╱L╱ // 0x903 @0x18
0x08eb…0913 at0019 = ╱46╱F╱ // 0x904 @0x19
0x08eb…0913 at001a = ╱41╱A╱ // 0x905 @0x1a
0x08eb…0913 at001b = ╱ef╱ $ ╱ // 0x906 @0x1b
0x08eb…0913 at001c = ╱f0╱ := ╱ // 0x907 @0x1c
0x08eb…0913 at001d = ╱41╱A╱ // 0x908 @0x1d
0x08eb…0913 at001e = ╱4c╱L╱ // 0x909 @0x1e
0x08eb…0913 at001f = ╱46╱F╱ // 0x90a @0x1f
0x08eb…0913 at0020 = ╱41╱A╱ // 0x90b @0x20
0x08eb…0913 at0021 = ╱ef╱ $ ╱ // 0x90c @0x21
0x08eb…0913 at0022 = ╱eb╱ + ╱ // 0x90d @0x22
0x08eb…0913 at0023 = ╱d0╱ CHR$ ╱ // 0x90e @0x23
0x08eb…0913 at0024 = ╱ed╱ ( ╱ // 0x90f @0x24
0x08eb…0913 at0025 = ╱49╱I╱ // 0x910 @0x25
0x08eb…0913 at0026 = ╱ee╱ ) ╱ // 0x911 @0x26
0x08eb…0913 at0027 = EOL // 0x912 @0x27
0x08eb…0913 }
0x0913…094d 9f3b 00830 LET SPC $ := "………………………………………………………………………………………………………………………"
0x0913…094d LineComal80 {
0x0913…094d ptr = 0x9f3b // 0x913 @0x0
0x0913…094d lno = 0x033e // 0x915 @0x2
0x0913…094d at0004 = ╱86╱ LET ╱ // 0x917 @0x4
0x0913…094d at0005 = ╱53╱S╱ // 0x918 @0x5
0x0913…094d at0006 = ╱50╱P╱ // 0x919 @0x6
0x0913…094d at0007 = ╱43╱C╱ // 0x91a @0x7
0x0913…094d at0008 = ╱ef╱ $ ╱ // 0x91b @0x8
0x0913…094d at0009 = ╱f0╱ := ╱ // 0x91c @0x9
0x0913…094d at000a = ╱22╱"╱ // 0x91d @0xa
0x0913…094d at000b = ╱20╱…╱ // 0x91e @0xb
0x0913…094d at000c = ╱20╱…╱ // 0x91f @0xc
0x0913…094d at000d = ╱20╱…╱ // 0x920 @0xd
0x0913…094d at000e = ╱20╱…╱ // 0x921 @0xe
0x0913…094d at000f = ╱20╱…╱ // 0x922 @0xf
0x0913…094d at0010 = ╱20╱…╱ // 0x923 @0x10
0x0913…094d at0011 = ╱20╱…╱ // 0x924 @0x11
0x0913…094d at0012 = ╱20╱…╱ // 0x925 @0x12
0x0913…094d at0013 = ╱20╱…╱ // 0x926 @0x13
0x0913…094d at0014 = ╱20╱…╱ // 0x927 @0x14
0x0913…094d at0015 = ╱20╱…╱ // 0x928 @0x15
0x0913…094d at0016 = ╱20╱…╱ // 0x929 @0x16
0x0913…094d at0017 = ╱20╱…╱ // 0x92a @0x17
0x0913…094d at0018 = ╱20╱…╱ // 0x92b @0x18
0x0913…094d at0019 = ╱20╱…╱ // 0x92c @0x19
0x0913…094d at001a = ╱20╱…╱ // 0x92d @0x1a
0x0913…094d at001b = ╱20╱…╱ // 0x92e @0x1b
0x0913…094d at001c = ╱20╱…╱ // 0x92f @0x1c
0x0913…094d at001d = ╱20╱…╱ // 0x930 @0x1d
0x0913…094d at001e = ╱20╱…╱ // 0x931 @0x1e
0x0913…094d at001f = ╱20╱…╱ // 0x932 @0x1f
0x0913…094d at0020 = ╱20╱…╱ // 0x933 @0x20
0x0913…094d at0021 = ╱20╱…╱ // 0x934 @0x21
0x0913…094d at0022 = ╱20╱…╱ // 0x935 @0x22
0x0913…094d at0023 = ╱20╱…╱ // 0x936 @0x23
0x0913…094d at0024 = ╱20╱…╱ // 0x937 @0x24
0x0913…094d at0025 = ╱20╱…╱ // 0x938 @0x25
0x0913…094d at0026 = ╱20╱…╱ // 0x939 @0x26
0x0913…094d at0027 = ╱20╱…╱ // 0x93a @0x27
0x0913…094d at0028 = ╱20╱…╱ // 0x93b @0x28
0x0913…094d at0029 = ╱20╱…╱ // 0x93c @0x29
0x0913…094d at002a = ╱20╱…╱ // 0x93d @0x2a
0x0913…094d at002b = ╱20╱…╱ // 0x93e @0x2b
0x0913…094d at002c = ╱20╱…╱ // 0x93f @0x2c
0x0913…094d at002d = ╱20╱…╱ // 0x940 @0x2d
0x0913…094d at002e = ╱20╱…╱ // 0x941 @0x2e
0x0913…094d at002f = ╱20╱…╱ // 0x942 @0x2f
0x0913…094d at0030 = ╱20╱…╱ // 0x943 @0x30
0x0913…094d at0031 = ╱20╱…╱ // 0x944 @0x31
0x0913…094d at0032 = ╱20╱…╱ // 0x945 @0x32
0x0913…094d at0033 = ╱20╱…╱ // 0x946 @0x33
0x0913…094d at0034 = ╱20╱…╱ // 0x947 @0x34
0x0913…094d at0035 = ╱20╱…╱ // 0x948 @0x35
0x0913…094d at0036 = ╱20╱…╱ // 0x949 @0x36
0x0913…094d at0037 = ╱20╱…╱ // 0x94a @0x37
0x0913…094d at0038 = ╱22╱"╱ // 0x94b @0x38
0x0913…094d at0039 = EOL // 0x94c @0x39
0x0913…094d }
0x094d…0974 9f62 00840 LET SPC $ := SPC $ + SPC $ ; NUL := 0 ; NULR := 0
0x094d…0974 LineComal80 {
0x094d…0974 ptr = 0x9f62 // 0x94d @0x0
0x094d…0974 lno = 0x0348 // 0x94f @0x2
0x094d…0974 at0004 = ╱86╱ LET ╱ // 0x951 @0x4
0x094d…0974 at0005 = ╱53╱S╱ // 0x952 @0x5
0x094d…0974 at0006 = ╱50╱P╱ // 0x953 @0x6
0x094d…0974 at0007 = ╱43╱C╱ // 0x954 @0x7
0x094d…0974 at0008 = ╱ef╱ $ ╱ // 0x955 @0x8
0x094d…0974 at0009 = ╱f0╱ := ╱ // 0x956 @0x9
0x094d…0974 at000a = ╱53╱S╱ // 0x957 @0xa
0x094d…0974 at000b = ╱50╱P╱ // 0x958 @0xb
0x094d…0974 at000c = ╱43╱C╱ // 0x959 @0xc
0x094d…0974 at000d = ╱ef╱ $ ╱ // 0x95a @0xd
0x094d…0974 at000e = ╱eb╱ + ╱ // 0x95b @0xe
0x094d…0974 at000f = ╱53╱S╱ // 0x95c @0xf
0x094d…0974 at0010 = ╱50╱P╱ // 0x95d @0x10
0x094d…0974 at0011 = ╱43╱C╱ // 0x95e @0x11
0x094d…0974 at0012 = ╱ef╱ $ ╱ // 0x95f @0x12
0x094d…0974 at0013 = ╱ea╱ ; ╱ // 0x960 @0x13
0x094d…0974 at0014 = ╱4e╱N╱ // 0x961 @0x14
0x094d…0974 at0015 = ╱55╱U╱ // 0x962 @0x15
0x094d…0974 at0016 = ╱4c╱L╱ // 0x963 @0x16
0x094d…0974 at0017 = ╱f0╱ := ╱ // 0x964 @0x17
0x094d…0974 at0018 = ╱30╱0╱ // 0x965 @0x18
0x094d…0974 at0019 = ╱f20000╱ // 0x966 @0x19
0x094d…0974 at001c = ╱ea╱ ; ╱ // 0x969 @0x1c
0x094d…0974 at001d = ╱4e╱N╱ // 0x96a @0x1d
0x094d…0974 at001e = ╱55╱U╱ // 0x96b @0x1e
0x094d…0974 at001f = ╱4c╱L╱ // 0x96c @0x1f
0x094d…0974 at0020 = ╱52╱R╱ // 0x96d @0x20
0x094d…0974 at0021 = ╱f0╱ := ╱ // 0x96e @0x21
0x094d…0974 at0022 = ╱30╱0╱ // 0x96f @0x22
0x094d…0974 at0023 = ╱f20000╱ // 0x970 @0x23
0x094d…0974 at0026 = EOL // 0x973 @0x26
0x094d…0974 }
0x0974…099f 9f8d 00850 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x0974…099f LineComal80 {
0x0974…099f ptr = 0x9f8d // 0x974 @0x0
0x0974…099f lno = 0x0352 // 0x976 @0x2
0x0974…099f at0004 = ╱86╱ LET ╱ // 0x978 @0x4
0x0974…099f at0005 = ╱46╱F╱ // 0x979 @0x5
0x0974…099f at0006 = ╱41╱A╱ // 0x97a @0x6
0x0974…099f at0007 = ╱4c╱L╱ // 0x97b @0x7
0x0974…099f at0008 = ╱53╱S╱ // 0x97c @0x8
0x0974…099f at0009 = ╱45╱E╱ // 0x97d @0x9
0x0974…099f at000a = ╱f0╱ := ╱ // 0x97e @0xa
0x0974…099f at000b = ╱30╱0╱ // 0x97f @0xb
0x0974…099f at000c = ╱f20000╱ // 0x980 @0xc
0x0974…099f at000f = ╱ea╱ ; ╱ // 0x983 @0xf
0x0974…099f at0010 = ╱54╱T╱ // 0x984 @0x10
0x0974…099f at0011 = ╱52╱R╱ // 0x985 @0x11
0x0974…099f at0012 = ╱55╱U╱ // 0x986 @0x12
0x0974…099f at0013 = ╱45╱E╱ // 0x987 @0x13
0x0974…099f at0014 = ╱f0╱ := ╱ // 0x988 @0x14
0x0974…099f at0015 = ╱31╱1╱ // 0x989 @0x15
0x0974…099f at0016 = ╱f20100╱ // 0x98a @0x16
0x0974…099f at0019 = ╱89╱ // ╱ // 0x98d @0x19
0x0974…099f at001a = ╱62╱b╱ // 0x98e @0x1a
0x0974…099f at001b = ╱6f╱o╱ // 0x98f @0x1b
0x0974…099f at001c = ╱6f╱o╱ // 0x990 @0x1c
0x0974…099f at001d = ╱6c╱l╱ // 0x991 @0x1d
0x0974…099f at001e = ╱73╱s╱ // 0x992 @0x1e
0x0974…099f at001f = ╱6b╱k╱ // 0x993 @0x1f
0x0974…099f at0020 = ╱65╱e╱ // 0x994 @0x20
0x0974…099f at0021 = ╱20╱…╱ // 0x995 @0x21
0x0974…099f at0022 = ╱76╱v╱ // 0x996 @0x22
0x0974…099f at0023 = ╱61╱a╱ // 0x997 @0x23
0x0974…099f at0024 = ╱72╱r╱ // 0x998 @0x24
0x0974…099f at0025 = ╱69╱i╱ // 0x999 @0x25
0x0974…099f at0026 = ╱61╱a╱ // 0x99a @0x26
0x0974…099f at0027 = ╱62╱b╱ // 0x99b @0x27
0x0974…099f at0028 = ╱6c╱l╱ // 0x99c @0x28
0x0974…099f at0029 = ╱65╱e╱ // 0x99d @0x29
0x0974…099f at002a = EOL // 0x99e @0x2a
0x0974…099f }
0x099f…09bc 9faa 00860 LET KREDIT := - 1 ; DEBET := 1
0x099f…09bc LineComal80 {
0x099f…09bc ptr = 0x9faa // 0x99f @0x0
0x099f…09bc lno = 0x035c // 0x9a1 @0x2
0x099f…09bc at0004 = ╱86╱ LET ╱ // 0x9a3 @0x4
0x099f…09bc at0005 = ╱4b╱K╱ // 0x9a4 @0x5
0x099f…09bc at0006 = ╱52╱R╱ // 0x9a5 @0x6
0x099f…09bc at0007 = ╱45╱E╱ // 0x9a6 @0x7
0x099f…09bc at0008 = ╱44╱D╱ // 0x9a7 @0x8
0x099f…09bc at0009 = ╱49╱I╱ // 0x9a8 @0x9
0x099f…09bc at000a = ╱54╱T╱ // 0x9a9 @0xa
0x099f…09bc at000b = ╱f0╱ := ╱ // 0x9aa @0xb
0x099f…09bc at000c = ╱de╱ - ╱ // 0x9ab @0xc
0x099f…09bc at000d = ╱31╱1╱ // 0x9ac @0xd
0x099f…09bc at000e = ╱f20100╱ // 0x9ad @0xe
0x099f…09bc at0011 = ╱ea╱ ; ╱ // 0x9b0 @0x11
0x099f…09bc at0012 = ╱44╱D╱ // 0x9b1 @0x12
0x099f…09bc at0013 = ╱45╱E╱ // 0x9b2 @0x13
0x099f…09bc at0014 = ╱42╱B╱ // 0x9b3 @0x14
0x099f…09bc at0015 = ╱45╱E╱ // 0x9b4 @0x15
0x099f…09bc at0016 = ╱54╱T╱ // 0x9b5 @0x16
0x099f…09bc at0017 = ╱f0╱ := ╱ // 0x9b6 @0x17
0x099f…09bc at0018 = ╱31╱1╱ // 0x9b7 @0x18
0x099f…09bc at0019 = ╱f20100╱ // 0x9b8 @0x19
0x099f…09bc at001c = EOL // 0x9bb @0x1c
0x099f…09bc }
0x09bc…09dc 9fca 00870 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x09bc…09dc LineComal80 {
0x09bc…09dc ptr = 0x9fca // 0x9bc @0x0
0x09bc…09dc lno = 0x0366 // 0x9be @0x2
0x09bc…09dc at0004 = ╱86╱ LET ╱ // 0x9c0 @0x4
0x09bc…09dc at0005 = ╱53╱S╱ // 0x9c1 @0x5
0x09bc…09dc at0006 = ╱59╱Y╱ // 0x9c2 @0x6
0x09bc…09dc at0007 = ╱53╱S╱ // 0x9c3 @0x7
0x09bc…09dc at0008 = ╱50╱P╱ // 0x9c4 @0x8
0x09bc…09dc at0009 = ╱41╱A╱ // 0x9c5 @0x9
0x09bc…09dc at000a = ╱52╱R╱ // 0x9c6 @0xa
0x09bc…09dc at000b = ╱41╱A╱ // 0x9c7 @0xb
0x09bc…09dc at000c = ╱ef╱ $ ╱ // 0x9c8 @0xc
0x09bc…09dc at000d = ╱f0╱ := ╱ // 0x9c9 @0xd
0x09bc…09dc at000e = ╱50╱P╱ // 0x9ca @0xe
0x09bc…09dc at000f = ╱52╱R╱ // 0x9cb @0xf
0x09bc…09dc at0010 = ╱47╱G╱ // 0x9cc @0x10
0x09bc…09dc at0011 = ╱46╱F╱ // 0x9cd @0x11
0x09bc…09dc at0012 = ╱4c╱L╱ // 0x9ce @0x12
0x09bc…09dc at0013 = ╱ef╱ $ ╱ // 0x9cf @0x13
0x09bc…09dc at0014 = ╱eb╱ + ╱ // 0x9d0 @0x14
0x09bc…09dc at0015 = ╱22╱"╱ // 0x9d1 @0x15
0x09bc…09dc at0016 = ╱3a╱:╱ // 0x9d2 @0x16
0x09bc…09dc at0017 = ╱53╱S╱ // 0x9d3 @0x17
0x09bc…09dc at0018 = ╱59╱Y╱ // 0x9d4 @0x18
0x09bc…09dc at0019 = ╱53╱S╱ // 0x9d5 @0x19
0x09bc…09dc at001a = ╱50╱P╱ // 0x9d6 @0x1a
0x09bc…09dc at001b = ╱41╱A╱ // 0x9d7 @0x1b
0x09bc…09dc at001c = ╱52╱R╱ // 0x9d8 @0x1c
0x09bc…09dc at001d = ╱41╱A╱ // 0x9d9 @0x1d
0x09bc…09dc at001e = ╱22╱"╱ // 0x9da @0x1e
0x09bc…09dc at001f = EOL // 0x9db @0x1f
0x09bc…09dc }
0x09dc…09f7 9fe5 00880 EXEC OPENFIL ( SYSPARA $ , "R" )
0x09dc…09f7 LineComal80 {
0x09dc…09f7 ptr = 0x9fe5 // 0x9dc @0x0
0x09dc…09f7 lno = 0x0370 // 0x9de @0x2
0x09dc…09f7 at0004 = ╱9d╱ EXEC ╱ // 0x9e0 @0x4
0x09dc…09f7 at0005 = ╱4f╱O╱ // 0x9e1 @0x5
0x09dc…09f7 at0006 = ╱50╱P╱ // 0x9e2 @0x6
0x09dc…09f7 at0007 = ╱45╱E╱ // 0x9e3 @0x7
0x09dc…09f7 at0008 = ╱4e╱N╱ // 0x9e4 @0x8
0x09dc…09f7 at0009 = ╱46╱F╱ // 0x9e5 @0x9
0x09dc…09f7 at000a = ╱49╱I╱ // 0x9e6 @0xa
0x09dc…09f7 at000b = ╱4c╱L╱ // 0x9e7 @0xb
0x09dc…09f7 at000c = ╱ed╱ ( ╱ // 0x9e8 @0xc
0x09dc…09f7 at000d = ╱53╱S╱ // 0x9e9 @0xd
0x09dc…09f7 at000e = ╱59╱Y╱ // 0x9ea @0xe
0x09dc…09f7 at000f = ╱53╱S╱ // 0x9eb @0xf
0x09dc…09f7 at0010 = ╱50╱P╱ // 0x9ec @0x10
0x09dc…09f7 at0011 = ╱41╱A╱ // 0x9ed @0x11
0x09dc…09f7 at0012 = ╱52╱R╱ // 0x9ee @0x12
0x09dc…09f7 at0013 = ╱41╱A╱ // 0x9ef @0x13
0x09dc…09f7 at0014 = ╱ef╱ $ ╱ // 0x9f0 @0x14
0x09dc…09f7 at0015 = ╱ec╱ , ╱ // 0x9f1 @0x15
0x09dc…09f7 at0016 = ╱22╱"╱ // 0x9f2 @0x16
0x09dc…09f7 at0017 = ╱52╱R╱ // 0x9f3 @0x17
0x09dc…09f7 at0018 = ╱22╱"╱ // 0x9f4 @0x18
0x09dc…09f7 at0019 = ╱ee╱ ) ╱ // 0x9f5 @0x19
0x09dc…09f7 at001a = EOL // 0x9f6 @0x1a
0x09dc…09f7 }
0x09f7…0a1d a00b 00890 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x09f7…0a1d LineComal80 {
0x09f7…0a1d ptr = 0xa00b // 0x9f7 @0x0
0x09f7…0a1d lno = 0x037a // 0x9f9 @0x2
0x09f7…0a1d at0004 = ╱a9╱ GET ╱ // 0x9fb @0x4
0x09f7…0a1d at0005 = ╱53╱S╱ // 0x9fc @0x5
0x09f7…0a1d at0006 = ╱59╱Y╱ // 0x9fd @0x6
0x09f7…0a1d at0007 = ╱53╱S╱ // 0x9fe @0x7
0x09f7…0a1d at0008 = ╱50╱P╱ // 0x9ff @0x8
0x09f7…0a1d at0009 = ╱41╱A╱ // 0xa00 @0x9
0x09f7…0a1d at000a = ╱52╱R╱ // 0xa01 @0xa
0x09f7…0a1d at000b = ╱41╱A╱ // 0xa02 @0xb
0x09f7…0a1d at000c = ╱ef╱ $ ╱ // 0xa03 @0xc
0x09f7…0a1d at000d = ╱ec╱ , ╱ // 0xa04 @0xd
0x09f7…0a1d at000e = ╱31╱1╱ // 0xa05 @0xe
0x09f7…0a1d at000f = ╱f20100╱ // 0xa06 @0xf
0x09f7…0a1d at0012 = ╱f1╱ : ╱ // 0xa09 @0x12
0x09f7…0a1d at0013 = ╱53╱S╱ // 0xa0a @0x13
0x09f7…0a1d at0014 = ╱59╱Y╱ // 0xa0b @0x14
0x09f7…0a1d at0015 = ╱53╱S╱ // 0xa0c @0x15
0x09f7…0a1d at0016 = ╱54╱T╱ // 0xa0d @0x16
0x09f7…0a1d at0017 = ╱5f╱_╱ // 0xa0e @0x17
0x09f7…0a1d at0018 = ╱4e╱N╱ // 0xa0f @0x18
0x09f7…0a1d at0019 = ╱41╱A╱ // 0xa10 @0x19
0x09f7…0a1d at001a = ╱56╱V╱ // 0xa11 @0x1a
0x09f7…0a1d at001b = ╱4e╱N╱ // 0xa12 @0x1b
0x09f7…0a1d at001c = ╱ef╱ $ ╱ // 0xa13 @0x1c
0x09f7…0a1d at001d = ╱ec╱ , ╱ // 0xa14 @0x1d
0x09f7…0a1d at001e = ╱53╱S╱ // 0xa15 @0x1e
0x09f7…0a1d at001f = ╱5f╱_╱ // 0xa16 @0x1f
0x09f7…0a1d at0020 = ╱4b╱K╱ // 0xa17 @0x20
0x09f7…0a1d at0021 = ╱4f╱O╱ // 0xa18 @0x21
0x09f7…0a1d at0022 = ╱44╱D╱ // 0xa19 @0x22
0x09f7…0a1d at0023 = ╱45╱E╱ // 0xa1a @0x23
0x09f7…0a1d at0024 = ╱ef╱ $ ╱ // 0xa1b @0x24
0x09f7…0a1d at0025 = EOL // 0xa1c @0x25
0x09f7…0a1d }
0x0a1d…0a2f a01d 00900 EXEC TERMINAL_IDX
0x0a1d…0a2f LineComal80 {
0x0a1d…0a2f ptr = 0xa01d // 0xa1d @0x0
0x0a1d…0a2f lno = 0x0384 // 0xa1f @0x2
0x0a1d…0a2f at0004 = ╱9d╱ EXEC ╱ // 0xa21 @0x4
0x0a1d…0a2f at0005 = ╱54╱T╱ // 0xa22 @0x5
0x0a1d…0a2f at0006 = ╱45╱E╱ // 0xa23 @0x6
0x0a1d…0a2f at0007 = ╱52╱R╱ // 0xa24 @0x7
0x0a1d…0a2f at0008 = ╱4d╱M╱ // 0xa25 @0x8
0x0a1d…0a2f at0009 = ╱49╱I╱ // 0xa26 @0x9
0x0a1d…0a2f at000a = ╱4e╱N╱ // 0xa27 @0xa
0x0a1d…0a2f at000b = ╱41╱A╱ // 0xa28 @0xb
0x0a1d…0a2f at000c = ╱4c╱L╱ // 0xa29 @0xc
0x0a1d…0a2f at000d = ╱5f╱_╱ // 0xa2a @0xd
0x0a1d…0a2f at000e = ╱49╱I╱ // 0xa2b @0xe
0x0a1d…0a2f at000f = ╱44╱D╱ // 0xa2c @0xf
0x0a1d…0a2f at0010 = ╱58╱X╱ // 0xa2d @0x10
0x0a1d…0a2f at0011 = EOL // 0xa2e @0x11
0x0a1d…0a2f }
0x0a2f…0a3d c15a 00910 CLOSE SYSPARA $
0x0a2f…0a3d LineComal80 {
0x0a2f…0a3d ptr = 0xc15a // 0xa2f @0x0
0x0a2f…0a3d lno = 0x038e // 0xa31 @0x2
0x0a2f…0a3d at0004 = ╱a8╱ CLOSE ╱ // 0xa33 @0x4
0x0a2f…0a3d at0005 = ╱53╱S╱ // 0xa34 @0x5
0x0a2f…0a3d at0006 = ╱59╱Y╱ // 0xa35 @0x6
0x0a2f…0a3d at0007 = ╱53╱S╱ // 0xa36 @0x7
0x0a2f…0a3d at0008 = ╱50╱P╱ // 0xa37 @0x8
0x0a2f…0a3d at0009 = ╱41╱A╱ // 0xa38 @0x9
0x0a2f…0a3d at000a = ╱52╱R╱ // 0xa39 @0xa
0x0a2f…0a3d at000b = ╱41╱A╱ // 0xa3a @0xb
0x0a2f…0a3d at000c = ╱ef╱ $ ╱ // 0xa3b @0xc
0x0a2f…0a3d at000d = EOL // 0xa3c @0xd
0x0a2f…0a3d }
0x0a3d…0a6d a05b 00930 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x0a3d…0a6d LineComal80 {
0x0a3d…0a6d ptr = 0xa05b // 0xa3d @0x0
0x0a3d…0a6d lno = 0x03a2 // 0xa3f @0x2
0x0a3d…0a6d at0004 = ╱86╱ LET ╱ // 0xa41 @0x4
0x0a3d…0a6d at0005 = ╱50╱P╱ // 0xa42 @0x5
0x0a3d…0a6d at0006 = ╱41╱A╱ // 0xa43 @0x6
0x0a3d…0a6d at0007 = ╱52╱R╱ // 0xa44 @0x7
0x0a3d…0a6d at0008 = ╱41╱A╱ // 0xa45 @0x8
0x0a3d…0a6d at0009 = ╱4d╱M╱ // 0xa46 @0x9
0x0a3d…0a6d at000a = ╱ef╱ $ ╱ // 0xa47 @0xa
0x0a3d…0a6d at000b = ╱f0╱ := ╱ // 0xa48 @0xb
0x0a3d…0a6d at000c = ╱44╱D╱ // 0xa49 @0xc
0x0a3d…0a6d at000d = ╱41╱A╱ // 0xa4a @0xd
0x0a3d…0a6d at000e = ╱54╱T╱ // 0xa4b @0xe
0x0a3d…0a6d at000f = ╱41╱A╱ // 0xa4c @0xf
0x0a3d…0a6d at0010 = ╱46╱F╱ // 0xa4d @0x10
0x0a3d…0a6d at0011 = ╱4c╱L╱ // 0xa4e @0x11
0x0a3d…0a6d at0012 = ╱ef╱ $ ╱ // 0xa4f @0x12
0x0a3d…0a6d at0013 = ╱eb╱ + ╱ // 0xa50 @0x13
0x0a3d…0a6d at0014 = ╱22╱"╱ // 0xa51 @0x14
0x0a3d…0a6d at0015 = ╱3a╱:╱ // 0xa52 @0x15
0x0a3d…0a6d at0016 = ╱22╱"╱ // 0xa53 @0x16
0x0a3d…0a6d at0017 = ╱eb╱ + ╱ // 0xa54 @0x17
0x0a3d…0a6d at0018 = ╱53╱S╱ // 0xa55 @0x18
0x0a3d…0a6d at0019 = ╱5f╱_╱ // 0xa56 @0x19
0x0a3d…0a6d at001a = ╱4b╱K╱ // 0xa57 @0x1a
0x0a3d…0a6d at001b = ╱4f╱O╱ // 0xa58 @0x1b
0x0a3d…0a6d at001c = ╱44╱D╱ // 0xa59 @0x1c
0x0a3d…0a6d at001d = ╱45╱E╱ // 0xa5a @0x1d
0x0a3d…0a6d at001e = ╱ef╱ $ ╱ // 0xa5b @0x1e
0x0a3d…0a6d at001f = ╱eb╱ + ╱ // 0xa5c @0x1f
0x0a3d…0a6d at0020 = ╱54╱T╱ // 0xa5d @0x20
0x0a3d…0a6d at0021 = ╱5f╱_╱ // 0xa5e @0x21
0x0a3d…0a6d at0022 = ╱4b╱K╱ // 0xa5f @0x22
0x0a3d…0a6d at0023 = ╱4f╱O╱ // 0xa60 @0x23
0x0a3d…0a6d at0024 = ╱44╱D╱ // 0xa61 @0x24
0x0a3d…0a6d at0025 = ╱45╱E╱ // 0xa62 @0x25
0x0a3d…0a6d at0026 = ╱ef╱ $ ╱ // 0xa63 @0x26
0x0a3d…0a6d at0027 = ╱eb╱ + ╱ // 0xa64 @0x27
0x0a3d…0a6d at0028 = ╱22╱"╱ // 0xa65 @0x28
0x0a3d…0a6d at0029 = ╱50╱P╱ // 0xa66 @0x29
0x0a3d…0a6d at002a = ╱41╱A╱ // 0xa67 @0x2a
0x0a3d…0a6d at002b = ╱52╱R╱ // 0xa68 @0x2b
0x0a3d…0a6d at002c = ╱41╱A╱ // 0xa69 @0x2c
0x0a3d…0a6d at002d = ╱4d╱M╱ // 0xa6a @0x2d
0x0a3d…0a6d at002e = ╱22╱"╱ // 0xa6b @0x2e
0x0a3d…0a6d at002f = EOL // 0xa6c @0x2f
0x0a3d…0a6d }
0x0a6d…0a86 a074 00940 EXEC OPENFIL ( PARAM $ , "R" )
0x0a6d…0a86 LineComal80 {
0x0a6d…0a86 ptr = 0xa074 // 0xa6d @0x0
0x0a6d…0a86 lno = 0x03ac // 0xa6f @0x2
0x0a6d…0a86 at0004 = ╱9d╱ EXEC ╱ // 0xa71 @0x4
0x0a6d…0a86 at0005 = ╱4f╱O╱ // 0xa72 @0x5
0x0a6d…0a86 at0006 = ╱50╱P╱ // 0xa73 @0x6
0x0a6d…0a86 at0007 = ╱45╱E╱ // 0xa74 @0x7
0x0a6d…0a86 at0008 = ╱4e╱N╱ // 0xa75 @0x8
0x0a6d…0a86 at0009 = ╱46╱F╱ // 0xa76 @0x9
0x0a6d…0a86 at000a = ╱49╱I╱ // 0xa77 @0xa
0x0a6d…0a86 at000b = ╱4c╱L╱ // 0xa78 @0xb
0x0a6d…0a86 at000c = ╱ed╱ ( ╱ // 0xa79 @0xc
0x0a6d…0a86 at000d = ╱50╱P╱ // 0xa7a @0xd
0x0a6d…0a86 at000e = ╱41╱A╱ // 0xa7b @0xe
0x0a6d…0a86 at000f = ╱52╱R╱ // 0xa7c @0xf
0x0a6d…0a86 at0010 = ╱41╱A╱ // 0xa7d @0x10
0x0a6d…0a86 at0011 = ╱4d╱M╱ // 0xa7e @0x11
0x0a6d…0a86 at0012 = ╱ef╱ $ ╱ // 0xa7f @0x12
0x0a6d…0a86 at0013 = ╱ec╱ , ╱ // 0xa80 @0x13
0x0a6d…0a86 at0014 = ╱22╱"╱ // 0xa81 @0x14
0x0a6d…0a86 at0015 = ╱52╱R╱ // 0xa82 @0x15
0x0a6d…0a86 at0016 = ╱22╱"╱ // 0xa83 @0x16
0x0a6d…0a86 at0017 = ╱ee╱ ) ╱ // 0xa84 @0x17
0x0a6d…0a86 at0018 = EOL // 0xa85 @0x18
0x0a6d…0a86 }
0x0a86…0ab1 a09f 00950 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x0a86…0ab1 LineComal80 {
0x0a86…0ab1 ptr = 0xa09f // 0xa86 @0x0
0x0a86…0ab1 lno = 0x03b6 // 0xa88 @0x2
0x0a86…0ab1 at0004 = ╱a9╱ GET ╱ // 0xa8a @0x4
0x0a86…0ab1 at0005 = ╱50╱P╱ // 0xa8b @0x5
0x0a86…0ab1 at0006 = ╱41╱A╱ // 0xa8c @0x6
0x0a86…0ab1 at0007 = ╱52╱R╱ // 0xa8d @0x7
0x0a86…0ab1 at0008 = ╱41╱A╱ // 0xa8e @0x8
0x0a86…0ab1 at0009 = ╱4d╱M╱ // 0xa8f @0x9
0x0a86…0ab1 at000a = ╱ef╱ $ ╱ // 0xa90 @0xa
0x0a86…0ab1 at000b = ╱ec╱ , ╱ // 0xa91 @0xb
0x0a86…0ab1 at000c = ╱31╱1╱ // 0xa92 @0xc
0x0a86…0ab1 at000d = ╱f20100╱ // 0xa93 @0xd
0x0a86…0ab1 at0010 = ╱f1╱ : ╱ // 0xa96 @0x10
0x0a86…0ab1 at0011 = ╱46╱F╱ // 0xa97 @0x11
0x0a86…0ab1 at0012 = ╱49╱I╱ // 0xa98 @0x12
0x0a86…0ab1 at0013 = ╱52╱R╱ // 0xa99 @0x13
0x0a86…0ab1 at0014 = ╱4d╱M╱ // 0xa9a @0x14
0x0a86…0ab1 at0015 = ╱41╱A╱ // 0xa9b @0x15
0x0a86…0ab1 at0016 = ╱4e╱N╱ // 0xa9c @0x16
0x0a86…0ab1 at0017 = ╱41╱A╱ // 0xa9d @0x17
0x0a86…0ab1 at0018 = ╱56╱V╱ // 0xa9e @0x18
0x0a86…0ab1 at0019 = ╱4e╱N╱ // 0xa9f @0x19
0x0a86…0ab1 at001a = ╱ef╱ $ ╱ // 0xaa0 @0x1a
0x0a86…0ab1 at001b = ╱ec╱ , ╱ // 0xaa1 @0x1b
0x0a86…0ab1 at001c = ╱53╱S╱ // 0xaa2 @0x1c
0x0a86…0ab1 at001d = ╱59╱Y╱ // 0xaa3 @0x1d
0x0a86…0ab1 at001e = ╱53╱S╱ // 0xaa4 @0x1e
0x0a86…0ab1 at001f = ╱54╱T╱ // 0xaa5 @0x1f
0x0a86…0ab1 at0020 = ╱5f╱_╱ // 0xaa6 @0x20
0x0a86…0ab1 at0021 = ╱44╱D╱ // 0xaa7 @0x21
0x0a86…0ab1 at0022 = ╱41╱A╱ // 0xaa8 @0x22
0x0a86…0ab1 at0023 = ╱54╱T╱ // 0xaa9 @0x23
0x0a86…0ab1 at0024 = ╱ef╱ $ ╱ // 0xaaa @0x24
0x0a86…0ab1 at0025 = ╱ec╱ , ╱ // 0xaab @0x25
0x0a86…0ab1 at0026 = ╱4d╱M╱ // 0xaac @0x26
0x0a86…0ab1 at0027 = ╱4f╱O╱ // 0xaad @0x27
0x0a86…0ab1 at0028 = ╱4d╱M╱ // 0xaae @0x28
0x0a86…0ab1 at0029 = ╱53╱S╱ // 0xaaf @0x29
0x0a86…0ab1 at002a = EOL // 0xab0 @0x2a
0x0a86…0ab1 }
0x0ab1…0abd a0ab 00960 CLOSE PARAM $
0x0ab1…0abd LineComal80 {
0x0ab1…0abd ptr = 0xa0ab // 0xab1 @0x0
0x0ab1…0abd lno = 0x03c0 // 0xab3 @0x2
0x0ab1…0abd at0004 = ╱a8╱ CLOSE ╱ // 0xab5 @0x4
0x0ab1…0abd at0005 = ╱50╱P╱ // 0xab6 @0x5
0x0ab1…0abd at0006 = ╱41╱A╱ // 0xab7 @0x6
0x0ab1…0abd at0007 = ╱52╱R╱ // 0xab8 @0x7
0x0ab1…0abd at0008 = ╱41╱A╱ // 0xab9 @0x8
0x0ab1…0abd at0009 = ╱4d╱M╱ // 0xaba @0x9
0x0ab1…0abd at000a = ╱ef╱ $ ╱ // 0xabb @0xa
0x0ab1…0abd at000b = EOL // 0xabc @0xb
0x0ab1…0abd }
0x0abd…0aef a0dd 00970 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x0abd…0aef LineComal80 {
0x0abd…0aef ptr = 0xa0dd // 0xabd @0x0
0x0abd…0aef lno = 0x03ca // 0xabf @0x2
0x0abd…0aef at0004 = ╱86╱ LET ╱ // 0xac1 @0x4
0x0abd…0aef at0005 = ╱4b╱K╱ // 0xac2 @0x5
0x0abd…0aef at0006 = ╱54╱T╱ // 0xac3 @0x6
0x0abd…0aef at0007 = ╱4f╱O╱ // 0xac4 @0x7
0x0abd…0aef at0008 = ╱49╱I╱ // 0xac5 @0x8
0x0abd…0aef at0009 = ╱44╱D╱ // 0xac6 @0x9
0x0abd…0aef at000a = ╱58╱X╱ // 0xac7 @0xa
0x0abd…0aef at000b = ╱ef╱ $ ╱ // 0xac8 @0xb
0x0abd…0aef at000c = ╱f0╱ := ╱ // 0xac9 @0xc
0x0abd…0aef at000d = ╱44╱D╱ // 0xaca @0xd
0x0abd…0aef at000e = ╱41╱A╱ // 0xacb @0xe
0x0abd…0aef at000f = ╱54╱T╱ // 0xacc @0xf
0x0abd…0aef at0010 = ╱41╱A╱ // 0xacd @0x10
0x0abd…0aef at0011 = ╱46╱F╱ // 0xace @0x11
0x0abd…0aef at0012 = ╱4c╱L╱ // 0xacf @0x12
0x0abd…0aef at0013 = ╱ef╱ $ ╱ // 0xad0 @0x13
0x0abd…0aef at0014 = ╱eb╱ + ╱ // 0xad1 @0x14
0x0abd…0aef at0015 = ╱22╱"╱ // 0xad2 @0x15
0x0abd…0aef at0016 = ╱3a╱:╱ // 0xad3 @0x16
0x0abd…0aef at0017 = ╱22╱"╱ // 0xad4 @0x17
0x0abd…0aef at0018 = ╱eb╱ + ╱ // 0xad5 @0x18
0x0abd…0aef at0019 = ╱53╱S╱ // 0xad6 @0x19
0x0abd…0aef at001a = ╱5f╱_╱ // 0xad7 @0x1a
0x0abd…0aef at001b = ╱4b╱K╱ // 0xad8 @0x1b
0x0abd…0aef at001c = ╱4f╱O╱ // 0xad9 @0x1c
0x0abd…0aef at001d = ╱44╱D╱ // 0xada @0x1d
0x0abd…0aef at001e = ╱45╱E╱ // 0xadb @0x1e
0x0abd…0aef at001f = ╱ef╱ $ ╱ // 0xadc @0x1f
0x0abd…0aef at0020 = ╱eb╱ + ╱ // 0xadd @0x20
0x0abd…0aef at0021 = ╱54╱T╱ // 0xade @0x21
0x0abd…0aef at0022 = ╱5f╱_╱ // 0xadf @0x22
0x0abd…0aef at0023 = ╱4b╱K╱ // 0xae0 @0x23
0x0abd…0aef at0024 = ╱4f╱O╱ // 0xae1 @0x24
0x0abd…0aef at0025 = ╱44╱D╱ // 0xae2 @0x25
0x0abd…0aef at0026 = ╱45╱E╱ // 0xae3 @0x26
0x0abd…0aef at0027 = ╱ef╱ $ ╱ // 0xae4 @0x27
0x0abd…0aef at0028 = ╱eb╱ + ╱ // 0xae5 @0x28
0x0abd…0aef at0029 = ╱22╱"╱ // 0xae6 @0x29
0x0abd…0aef at002a = ╱4b╱K╱ // 0xae7 @0x2a
0x0abd…0aef at002b = ╱54╱T╱ // 0xae8 @0x2b
0x0abd…0aef at002c = ╱4f╱O╱ // 0xae9 @0x2c
0x0abd…0aef at002d = ╱49╱I╱ // 0xaea @0x2d
0x0abd…0aef at002e = ╱44╱D╱ // 0xaeb @0x2e
0x0abd…0aef at002f = ╱58╱X╱ // 0xaec @0x2f
0x0abd…0aef at0030 = ╱22╱"╱ // 0xaed @0x30
0x0abd…0aef at0031 = EOL // 0xaee @0x31
0x0abd…0aef }
0x0aef…0b1f a10d 00980 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
0x0aef…0b1f LineComal80 {
0x0aef…0b1f ptr = 0xa10d // 0xaef @0x0
0x0aef…0b1f lno = 0x03d4 // 0xaf1 @0x2
0x0aef…0b1f at0004 = ╱86╱ LET ╱ // 0xaf3 @0x4
0x0aef…0b1f at0005 = ╱4b╱K╱ // 0xaf4 @0x5
0x0aef…0b1f at0006 = ╱4f╱O╱ // 0xaf5 @0x6
0x0aef…0b1f at0007 = ╱4e╱N╱ // 0xaf6 @0x7
0x0aef…0b1f at0008 = ╱54╱T╱ // 0xaf7 @0x8
0x0aef…0b1f at0009 = ╱4f╱O╱ // 0xaf8 @0x9
0x0aef…0b1f at000a = ╱ef╱ $ ╱ // 0xaf9 @0xa
0x0aef…0b1f at000b = ╱f0╱ := ╱ // 0xafa @0xb
0x0aef…0b1f at000c = ╱44╱D╱ // 0xafb @0xc
0x0aef…0b1f at000d = ╱41╱A╱ // 0xafc @0xd
0x0aef…0b1f at000e = ╱54╱T╱ // 0xafd @0xe
0x0aef…0b1f at000f = ╱41╱A╱ // 0xafe @0xf
0x0aef…0b1f at0010 = ╱46╱F╱ // 0xaff @0x10
0x0aef…0b1f at0011 = ╱4c╱L╱ // 0xb00 @0x11
0x0aef…0b1f at0012 = ╱ef╱ $ ╱ // 0xb01 @0x12
0x0aef…0b1f at0013 = ╱eb╱ + ╱ // 0xb02 @0x13
0x0aef…0b1f at0014 = ╱22╱"╱ // 0xb03 @0x14
0x0aef…0b1f at0015 = ╱3a╱:╱ // 0xb04 @0x15
0x0aef…0b1f at0016 = ╱22╱"╱ // 0xb05 @0x16
0x0aef…0b1f at0017 = ╱eb╱ + ╱ // 0xb06 @0x17
0x0aef…0b1f at0018 = ╱53╱S╱ // 0xb07 @0x18
0x0aef…0b1f at0019 = ╱5f╱_╱ // 0xb08 @0x19
0x0aef…0b1f at001a = ╱4b╱K╱ // 0xb09 @0x1a
0x0aef…0b1f at001b = ╱4f╱O╱ // 0xb0a @0x1b
0x0aef…0b1f at001c = ╱44╱D╱ // 0xb0b @0x1c
0x0aef…0b1f at001d = ╱45╱E╱ // 0xb0c @0x1d
0x0aef…0b1f at001e = ╱ef╱ $ ╱ // 0xb0d @0x1e
0x0aef…0b1f at001f = ╱eb╱ + ╱ // 0xb0e @0x1f
0x0aef…0b1f at0020 = ╱54╱T╱ // 0xb0f @0x20
0x0aef…0b1f at0021 = ╱5f╱_╱ // 0xb10 @0x21
0x0aef…0b1f at0022 = ╱4b╱K╱ // 0xb11 @0x22
0x0aef…0b1f at0023 = ╱4f╱O╱ // 0xb12 @0x23
0x0aef…0b1f at0024 = ╱44╱D╱ // 0xb13 @0x24
0x0aef…0b1f at0025 = ╱45╱E╱ // 0xb14 @0x25
0x0aef…0b1f at0026 = ╱ef╱ $ ╱ // 0xb15 @0x26
0x0aef…0b1f at0027 = ╱eb╱ + ╱ // 0xb16 @0x27
0x0aef…0b1f at0028 = ╱22╱"╱ // 0xb17 @0x28
0x0aef…0b1f at0029 = ╱4b╱K╱ // 0xb18 @0x29
0x0aef…0b1f at002a = ╱4f╱O╱ // 0xb19 @0x2a
0x0aef…0b1f at002b = ╱4e╱N╱ // 0xb1a @0x2b
0x0aef…0b1f at002c = ╱54╱T╱ // 0xb1b @0x2c
0x0aef…0b1f at002d = ╱4f╱O╱ // 0xb1c @0x2d
0x0aef…0b1f at002e = ╱22╱"╱ // 0xb1d @0x2e
0x0aef…0b1f at002f = EOL // 0xb1e @0x2f
0x0aef…0b1f }
0x0b1f…0b51 a13f 00990 LET DG_POS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DG_POS"
0x0b1f…0b51 LineComal80 {
0x0b1f…0b51 ptr = 0xa13f // 0xb1f @0x0
0x0b1f…0b51 lno = 0x03de // 0xb21 @0x2
0x0b1f…0b51 at0004 = ╱86╱ LET ╱ // 0xb23 @0x4
0x0b1f…0b51 at0005 = ╱44╱D╱ // 0xb24 @0x5
0x0b1f…0b51 at0006 = ╱47╱G╱ // 0xb25 @0x6
0x0b1f…0b51 at0007 = ╱5f╱_╱ // 0xb26 @0x7
0x0b1f…0b51 at0008 = ╱50╱P╱ // 0xb27 @0x8
0x0b1f…0b51 at0009 = ╱4f╱O╱ // 0xb28 @0x9
0x0b1f…0b51 at000a = ╱53╱S╱ // 0xb29 @0xa
0x0b1f…0b51 at000b = ╱ef╱ $ ╱ // 0xb2a @0xb
0x0b1f…0b51 at000c = ╱f0╱ := ╱ // 0xb2b @0xc
0x0b1f…0b51 at000d = ╱44╱D╱ // 0xb2c @0xd
0x0b1f…0b51 at000e = ╱41╱A╱ // 0xb2d @0xe
0x0b1f…0b51 at000f = ╱54╱T╱ // 0xb2e @0xf
0x0b1f…0b51 at0010 = ╱41╱A╱ // 0xb2f @0x10
0x0b1f…0b51 at0011 = ╱46╱F╱ // 0xb30 @0x11
0x0b1f…0b51 at0012 = ╱4c╱L╱ // 0xb31 @0x12
0x0b1f…0b51 at0013 = ╱ef╱ $ ╱ // 0xb32 @0x13
0x0b1f…0b51 at0014 = ╱eb╱ + ╱ // 0xb33 @0x14
0x0b1f…0b51 at0015 = ╱22╱"╱ // 0xb34 @0x15
0x0b1f…0b51 at0016 = ╱3a╱:╱ // 0xb35 @0x16
0x0b1f…0b51 at0017 = ╱22╱"╱ // 0xb36 @0x17
0x0b1f…0b51 at0018 = ╱eb╱ + ╱ // 0xb37 @0x18
0x0b1f…0b51 at0019 = ╱53╱S╱ // 0xb38 @0x19
0x0b1f…0b51 at001a = ╱5f╱_╱ // 0xb39 @0x1a
0x0b1f…0b51 at001b = ╱4b╱K╱ // 0xb3a @0x1b
0x0b1f…0b51 at001c = ╱4f╱O╱ // 0xb3b @0x1c
0x0b1f…0b51 at001d = ╱44╱D╱ // 0xb3c @0x1d
0x0b1f…0b51 at001e = ╱45╱E╱ // 0xb3d @0x1e
0x0b1f…0b51 at001f = ╱ef╱ $ ╱ // 0xb3e @0x1f
0x0b1f…0b51 at0020 = ╱eb╱ + ╱ // 0xb3f @0x20
0x0b1f…0b51 at0021 = ╱54╱T╱ // 0xb40 @0x21
0x0b1f…0b51 at0022 = ╱5f╱_╱ // 0xb41 @0x22
0x0b1f…0b51 at0023 = ╱4b╱K╱ // 0xb42 @0x23
0x0b1f…0b51 at0024 = ╱4f╱O╱ // 0xb43 @0x24
0x0b1f…0b51 at0025 = ╱44╱D╱ // 0xb44 @0x25
0x0b1f…0b51 at0026 = ╱45╱E╱ // 0xb45 @0x26
0x0b1f…0b51 at0027 = ╱ef╱ $ ╱ // 0xb46 @0x27
0x0b1f…0b51 at0028 = ╱eb╱ + ╱ // 0xb47 @0x28
0x0b1f…0b51 at0029 = ╱22╱"╱ // 0xb48 @0x29
0x0b1f…0b51 at002a = ╱44╱D╱ // 0xb49 @0x2a
0x0b1f…0b51 at002b = ╱47╱G╱ // 0xb4a @0x2b
0x0b1f…0b51 at002c = ╱5f╱_╱ // 0xb4b @0x2c
0x0b1f…0b51 at002d = ╱50╱P╱ // 0xb4c @0x2d
0x0b1f…0b51 at002e = ╱4f╱O╱ // 0xb4d @0x2e
0x0b1f…0b51 at002f = ╱53╱S╱ // 0xb4e @0x2f
0x0b1f…0b51 at0030 = ╱22╱"╱ // 0xb4f @0x30
0x0b1f…0b51 at0031 = EOL // 0xb50 @0x31
0x0b1f…0b51 }
0x0b51…0b81 a16f 01000 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
0x0b51…0b81 LineComal80 {
0x0b51…0b81 ptr = 0xa16f // 0xb51 @0x0
0x0b51…0b81 lno = 0x03e8 // 0xb53 @0x2
0x0b51…0b81 at0004 = ╱86╱ LET ╱ // 0xb55 @0x4
0x0b51…0b81 at0005 = ╱54╱T╱ // 0xb56 @0x5
0x0b51…0b81 at0006 = ╱52╱R╱ // 0xb57 @0x6
0x0b51…0b81 at0007 = ╱41╱A╱ // 0xb58 @0x7
0x0b51…0b81 at0008 = ╱4e╱N╱ // 0xb59 @0x8
0x0b51…0b81 at0009 = ╱53╱S╱ // 0xb5a @0x9
0x0b51…0b81 at000a = ╱ef╱ $ ╱ // 0xb5b @0xa
0x0b51…0b81 at000b = ╱f0╱ := ╱ // 0xb5c @0xb
0x0b51…0b81 at000c = ╱44╱D╱ // 0xb5d @0xc
0x0b51…0b81 at000d = ╱41╱A╱ // 0xb5e @0xd
0x0b51…0b81 at000e = ╱54╱T╱ // 0xb5f @0xe
0x0b51…0b81 at000f = ╱41╱A╱ // 0xb60 @0xf
0x0b51…0b81 at0010 = ╱46╱F╱ // 0xb61 @0x10
0x0b51…0b81 at0011 = ╱4c╱L╱ // 0xb62 @0x11
0x0b51…0b81 at0012 = ╱ef╱ $ ╱ // 0xb63 @0x12
0x0b51…0b81 at0013 = ╱eb╱ + ╱ // 0xb64 @0x13
0x0b51…0b81 at0014 = ╱22╱"╱ // 0xb65 @0x14
0x0b51…0b81 at0015 = ╱3a╱:╱ // 0xb66 @0x15
0x0b51…0b81 at0016 = ╱22╱"╱ // 0xb67 @0x16
0x0b51…0b81 at0017 = ╱eb╱ + ╱ // 0xb68 @0x17
0x0b51…0b81 at0018 = ╱53╱S╱ // 0xb69 @0x18
0x0b51…0b81 at0019 = ╱5f╱_╱ // 0xb6a @0x19
0x0b51…0b81 at001a = ╱4b╱K╱ // 0xb6b @0x1a
0x0b51…0b81 at001b = ╱4f╱O╱ // 0xb6c @0x1b
0x0b51…0b81 at001c = ╱44╱D╱ // 0xb6d @0x1c
0x0b51…0b81 at001d = ╱45╱E╱ // 0xb6e @0x1d
0x0b51…0b81 at001e = ╱ef╱ $ ╱ // 0xb6f @0x1e
0x0b51…0b81 at001f = ╱eb╱ + ╱ // 0xb70 @0x1f
0x0b51…0b81 at0020 = ╱54╱T╱ // 0xb71 @0x20
0x0b51…0b81 at0021 = ╱5f╱_╱ // 0xb72 @0x21
0x0b51…0b81 at0022 = ╱4b╱K╱ // 0xb73 @0x22
0x0b51…0b81 at0023 = ╱4f╱O╱ // 0xb74 @0x23
0x0b51…0b81 at0024 = ╱44╱D╱ // 0xb75 @0x24
0x0b51…0b81 at0025 = ╱45╱E╱ // 0xb76 @0x25
0x0b51…0b81 at0026 = ╱ef╱ $ ╱ // 0xb77 @0x26
0x0b51…0b81 at0027 = ╱eb╱ + ╱ // 0xb78 @0x27
0x0b51…0b81 at0028 = ╱22╱"╱ // 0xb79 @0x28
0x0b51…0b81 at0029 = ╱54╱T╱ // 0xb7a @0x29
0x0b51…0b81 at002a = ╱52╱R╱ // 0xb7b @0x2a
0x0b51…0b81 at002b = ╱41╱A╱ // 0xb7c @0x2b
0x0b51…0b81 at002c = ╱4e╱N╱ // 0xb7d @0x2c
0x0b51…0b81 at002d = ╱53╱S╱ // 0xb7e @0x2d
0x0b51…0b81 at002e = ╱22╱"╱ // 0xb7f @0x2e
0x0b51…0b81 at002f = EOL // 0xb80 @0x2f
0x0b51…0b81 }
0x0b81…0bb3 a1a1 01010 LET ST_KTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "ST_KTO"
0x0b81…0bb3 LineComal80 {
0x0b81…0bb3 ptr = 0xa1a1 // 0xb81 @0x0
0x0b81…0bb3 lno = 0x03f2 // 0xb83 @0x2
0x0b81…0bb3 at0004 = ╱86╱ LET ╱ // 0xb85 @0x4
0x0b81…0bb3 at0005 = ╱53╱S╱ // 0xb86 @0x5
0x0b81…0bb3 at0006 = ╱54╱T╱ // 0xb87 @0x6
0x0b81…0bb3 at0007 = ╱5f╱_╱ // 0xb88 @0x7
0x0b81…0bb3 at0008 = ╱4b╱K╱ // 0xb89 @0x8
0x0b81…0bb3 at0009 = ╱54╱T╱ // 0xb8a @0x9
0x0b81…0bb3 at000a = ╱4f╱O╱ // 0xb8b @0xa
0x0b81…0bb3 at000b = ╱ef╱ $ ╱ // 0xb8c @0xb
0x0b81…0bb3 at000c = ╱f0╱ := ╱ // 0xb8d @0xc
0x0b81…0bb3 at000d = ╱44╱D╱ // 0xb8e @0xd
0x0b81…0bb3 at000e = ╱41╱A╱ // 0xb8f @0xe
0x0b81…0bb3 at000f = ╱54╱T╱ // 0xb90 @0xf
0x0b81…0bb3 at0010 = ╱41╱A╱ // 0xb91 @0x10
0x0b81…0bb3 at0011 = ╱46╱F╱ // 0xb92 @0x11
0x0b81…0bb3 at0012 = ╱4c╱L╱ // 0xb93 @0x12
0x0b81…0bb3 at0013 = ╱ef╱ $ ╱ // 0xb94 @0x13
0x0b81…0bb3 at0014 = ╱eb╱ + ╱ // 0xb95 @0x14
0x0b81…0bb3 at0015 = ╱22╱"╱ // 0xb96 @0x15
0x0b81…0bb3 at0016 = ╱3a╱:╱ // 0xb97 @0x16
0x0b81…0bb3 at0017 = ╱22╱"╱ // 0xb98 @0x17
0x0b81…0bb3 at0018 = ╱eb╱ + ╱ // 0xb99 @0x18
0x0b81…0bb3 at0019 = ╱53╱S╱ // 0xb9a @0x19
0x0b81…0bb3 at001a = ╱5f╱_╱ // 0xb9b @0x1a
0x0b81…0bb3 at001b = ╱4b╱K╱ // 0xb9c @0x1b
0x0b81…0bb3 at001c = ╱4f╱O╱ // 0xb9d @0x1c
0x0b81…0bb3 at001d = ╱44╱D╱ // 0xb9e @0x1d
0x0b81…0bb3 at001e = ╱45╱E╱ // 0xb9f @0x1e
0x0b81…0bb3 at001f = ╱ef╱ $ ╱ // 0xba0 @0x1f
0x0b81…0bb3 at0020 = ╱eb╱ + ╱ // 0xba1 @0x20
0x0b81…0bb3 at0021 = ╱54╱T╱ // 0xba2 @0x21
0x0b81…0bb3 at0022 = ╱5f╱_╱ // 0xba3 @0x22
0x0b81…0bb3 at0023 = ╱4b╱K╱ // 0xba4 @0x23
0x0b81…0bb3 at0024 = ╱4f╱O╱ // 0xba5 @0x24
0x0b81…0bb3 at0025 = ╱44╱D╱ // 0xba6 @0x25
0x0b81…0bb3 at0026 = ╱45╱E╱ // 0xba7 @0x26
0x0b81…0bb3 at0027 = ╱ef╱ $ ╱ // 0xba8 @0x27
0x0b81…0bb3 at0028 = ╱eb╱ + ╱ // 0xba9 @0x28
0x0b81…0bb3 at0029 = ╱22╱"╱ // 0xbaa @0x29
0x0b81…0bb3 at002a = ╱53╱S╱ // 0xbab @0x2a
0x0b81…0bb3 at002b = ╱54╱T╱ // 0xbac @0x2b
0x0b81…0bb3 at002c = ╱5f╱_╱ // 0xbad @0x2c
0x0b81…0bb3 at002d = ╱4b╱K╱ // 0xbae @0x2d
0x0b81…0bb3 at002e = ╱54╱T╱ // 0xbaf @0x2e
0x0b81…0bb3 at002f = ╱4f╱O╱ // 0xbb0 @0x2f
0x0b81…0bb3 at0030 = ╱22╱"╱ // 0xbb1 @0x30
0x0b81…0bb3 at0031 = EOL // 0xbb2 @0x31
0x0b81…0bb3 }
0x0bb3…0bcd a1bb 01020 EXEC OPENFIL ( KTOIDX $ , "R" )
0x0bb3…0bcd LineComal80 {
0x0bb3…0bcd ptr = 0xa1bb // 0xbb3 @0x0
0x0bb3…0bcd lno = 0x03fc // 0xbb5 @0x2
0x0bb3…0bcd at0004 = ╱9d╱ EXEC ╱ // 0xbb7 @0x4
0x0bb3…0bcd at0005 = ╱4f╱O╱ // 0xbb8 @0x5
0x0bb3…0bcd at0006 = ╱50╱P╱ // 0xbb9 @0x6
0x0bb3…0bcd at0007 = ╱45╱E╱ // 0xbba @0x7
0x0bb3…0bcd at0008 = ╱4e╱N╱ // 0xbbb @0x8
0x0bb3…0bcd at0009 = ╱46╱F╱ // 0xbbc @0x9
0x0bb3…0bcd at000a = ╱49╱I╱ // 0xbbd @0xa
0x0bb3…0bcd at000b = ╱4c╱L╱ // 0xbbe @0xb
0x0bb3…0bcd at000c = ╱ed╱ ( ╱ // 0xbbf @0xc
0x0bb3…0bcd at000d = ╱4b╱K╱ // 0xbc0 @0xd
0x0bb3…0bcd at000e = ╱54╱T╱ // 0xbc1 @0xe
0x0bb3…0bcd at000f = ╱4f╱O╱ // 0xbc2 @0xf
0x0bb3…0bcd at0010 = ╱49╱I╱ // 0xbc3 @0x10
0x0bb3…0bcd at0011 = ╱44╱D╱ // 0xbc4 @0x11
0x0bb3…0bcd at0012 = ╱58╱X╱ // 0xbc5 @0x12
0x0bb3…0bcd at0013 = ╱ef╱ $ ╱ // 0xbc6 @0x13
0x0bb3…0bcd at0014 = ╱ec╱ , ╱ // 0xbc7 @0x14
0x0bb3…0bcd at0015 = ╱22╱"╱ // 0xbc8 @0x15
0x0bb3…0bcd at0016 = ╱52╱R╱ // 0xbc9 @0x16
0x0bb3…0bcd at0017 = ╱22╱"╱ // 0xbca @0x17
0x0bb3…0bcd at0018 = ╱ee╱ ) ╱ // 0xbcb @0x18
0x0bb3…0bcd at0019 = EOL // 0xbcc @0x19
0x0bb3…0bcd }
0x0bcd…0be6 a1d4 01030 EXEC OPENFIL ( KONTO $ , "W" )
0x0bcd…0be6 LineComal80 {
0x0bcd…0be6 ptr = 0xa1d4 // 0xbcd @0x0
0x0bcd…0be6 lno = 0x0406 // 0xbcf @0x2
0x0bcd…0be6 at0004 = ╱9d╱ EXEC ╱ // 0xbd1 @0x4
0x0bcd…0be6 at0005 = ╱4f╱O╱ // 0xbd2 @0x5
0x0bcd…0be6 at0006 = ╱50╱P╱ // 0xbd3 @0x6
0x0bcd…0be6 at0007 = ╱45╱E╱ // 0xbd4 @0x7
0x0bcd…0be6 at0008 = ╱4e╱N╱ // 0xbd5 @0x8
0x0bcd…0be6 at0009 = ╱46╱F╱ // 0xbd6 @0x9
0x0bcd…0be6 at000a = ╱49╱I╱ // 0xbd7 @0xa
0x0bcd…0be6 at000b = ╱4c╱L╱ // 0xbd8 @0xb
0x0bcd…0be6 at000c = ╱ed╱ ( ╱ // 0xbd9 @0xc
0x0bcd…0be6 at000d = ╱4b╱K╱ // 0xbda @0xd
0x0bcd…0be6 at000e = ╱4f╱O╱ // 0xbdb @0xe
0x0bcd…0be6 at000f = ╱4e╱N╱ // 0xbdc @0xf
0x0bcd…0be6 at0010 = ╱54╱T╱ // 0xbdd @0x10
0x0bcd…0be6 at0011 = ╱4f╱O╱ // 0xbde @0x11
0x0bcd…0be6 at0012 = ╱ef╱ $ ╱ // 0xbdf @0x12
0x0bcd…0be6 at0013 = ╱ec╱ , ╱ // 0xbe0 @0x13
0x0bcd…0be6 at0014 = ╱22╱"╱ // 0xbe1 @0x14
0x0bcd…0be6 at0015 = ╱57╱W╱ // 0xbe2 @0x15
0x0bcd…0be6 at0016 = ╱22╱"╱ // 0xbe3 @0x16
0x0bcd…0be6 at0017 = ╱ee╱ ) ╱ // 0xbe4 @0x17
0x0bcd…0be6 at0018 = EOL // 0xbe5 @0x18
0x0bcd…0be6 }
0x0be6…0c00 a1ee 01040 EXEC OPENFIL ( DG_POS $ , "W" )
0x0be6…0c00 LineComal80 {
0x0be6…0c00 ptr = 0xa1ee // 0xbe6 @0x0
0x0be6…0c00 lno = 0x0410 // 0xbe8 @0x2
0x0be6…0c00 at0004 = ╱9d╱ EXEC ╱ // 0xbea @0x4
0x0be6…0c00 at0005 = ╱4f╱O╱ // 0xbeb @0x5
0x0be6…0c00 at0006 = ╱50╱P╱ // 0xbec @0x6
0x0be6…0c00 at0007 = ╱45╱E╱ // 0xbed @0x7
0x0be6…0c00 at0008 = ╱4e╱N╱ // 0xbee @0x8
0x0be6…0c00 at0009 = ╱46╱F╱ // 0xbef @0x9
0x0be6…0c00 at000a = ╱49╱I╱ // 0xbf0 @0xa
0x0be6…0c00 at000b = ╱4c╱L╱ // 0xbf1 @0xb
0x0be6…0c00 at000c = ╱ed╱ ( ╱ // 0xbf2 @0xc
0x0be6…0c00 at000d = ╱44╱D╱ // 0xbf3 @0xd
0x0be6…0c00 at000e = ╱47╱G╱ // 0xbf4 @0xe
0x0be6…0c00 at000f = ╱5f╱_╱ // 0xbf5 @0xf
0x0be6…0c00 at0010 = ╱50╱P╱ // 0xbf6 @0x10
0x0be6…0c00 at0011 = ╱4f╱O╱ // 0xbf7 @0x11
0x0be6…0c00 at0012 = ╱53╱S╱ // 0xbf8 @0x12
0x0be6…0c00 at0013 = ╱ef╱ $ ╱ // 0xbf9 @0x13
0x0be6…0c00 at0014 = ╱ec╱ , ╱ // 0xbfa @0x14
0x0be6…0c00 at0015 = ╱22╱"╱ // 0xbfb @0x15
0x0be6…0c00 at0016 = ╱57╱W╱ // 0xbfc @0x16
0x0be6…0c00 at0017 = ╱22╱"╱ // 0xbfd @0x17
0x0be6…0c00 at0018 = ╱ee╱ ) ╱ // 0xbfe @0x18
0x0be6…0c00 at0019 = EOL // 0xbff @0x19
0x0be6…0c00 }
0x0c00…0c19 a207 01050 EXEC OPENFIL ( TRANS $ , "W" )
0x0c00…0c19 LineComal80 {
0x0c00…0c19 ptr = 0xa207 // 0xc00 @0x0
0x0c00…0c19 lno = 0x041a // 0xc02 @0x2
0x0c00…0c19 at0004 = ╱9d╱ EXEC ╱ // 0xc04 @0x4
0x0c00…0c19 at0005 = ╱4f╱O╱ // 0xc05 @0x5
0x0c00…0c19 at0006 = ╱50╱P╱ // 0xc06 @0x6
0x0c00…0c19 at0007 = ╱45╱E╱ // 0xc07 @0x7
0x0c00…0c19 at0008 = ╱4e╱N╱ // 0xc08 @0x8
0x0c00…0c19 at0009 = ╱46╱F╱ // 0xc09 @0x9
0x0c00…0c19 at000a = ╱49╱I╱ // 0xc0a @0xa
0x0c00…0c19 at000b = ╱4c╱L╱ // 0xc0b @0xb
0x0c00…0c19 at000c = ╱ed╱ ( ╱ // 0xc0c @0xc
0x0c00…0c19 at000d = ╱54╱T╱ // 0xc0d @0xd
0x0c00…0c19 at000e = ╱52╱R╱ // 0xc0e @0xe
0x0c00…0c19 at000f = ╱41╱A╱ // 0xc0f @0xf
0x0c00…0c19 at0010 = ╱4e╱N╱ // 0xc10 @0x10
0x0c00…0c19 at0011 = ╱53╱S╱ // 0xc11 @0x11
0x0c00…0c19 at0012 = ╱ef╱ $ ╱ // 0xc12 @0x12
0x0c00…0c19 at0013 = ╱ec╱ , ╱ // 0xc13 @0x13
0x0c00…0c19 at0014 = ╱22╱"╱ // 0xc14 @0x14
0x0c00…0c19 at0015 = ╱57╱W╱ // 0xc15 @0x15
0x0c00…0c19 at0016 = ╱22╱"╱ // 0xc16 @0x16
0x0c00…0c19 at0017 = ╱ee╱ ) ╱ // 0xc17 @0x17
0x0c00…0c19 at0018 = EOL // 0xc18 @0x18
0x0c00…0c19 }
0x0c19…0c33 a221 01060 EXEC OPENFIL ( ST_KTO $ , "R" )
0x0c19…0c33 LineComal80 {
0x0c19…0c33 ptr = 0xa221 // 0xc19 @0x0
0x0c19…0c33 lno = 0x0424 // 0xc1b @0x2
0x0c19…0c33 at0004 = ╱9d╱ EXEC ╱ // 0xc1d @0x4
0x0c19…0c33 at0005 = ╱4f╱O╱ // 0xc1e @0x5
0x0c19…0c33 at0006 = ╱50╱P╱ // 0xc1f @0x6
0x0c19…0c33 at0007 = ╱45╱E╱ // 0xc20 @0x7
0x0c19…0c33 at0008 = ╱4e╱N╱ // 0xc21 @0x8
0x0c19…0c33 at0009 = ╱46╱F╱ // 0xc22 @0x9
0x0c19…0c33 at000a = ╱49╱I╱ // 0xc23 @0xa
0x0c19…0c33 at000b = ╱4c╱L╱ // 0xc24 @0xb
0x0c19…0c33 at000c = ╱ed╱ ( ╱ // 0xc25 @0xc
0x0c19…0c33 at000d = ╱53╱S╱ // 0xc26 @0xd
0x0c19…0c33 at000e = ╱54╱T╱ // 0xc27 @0xe
0x0c19…0c33 at000f = ╱5f╱_╱ // 0xc28 @0xf
0x0c19…0c33 at0010 = ╱4b╱K╱ // 0xc29 @0x10
0x0c19…0c33 at0011 = ╱54╱T╱ // 0xc2a @0x11
0x0c19…0c33 at0012 = ╱4f╱O╱ // 0xc2b @0x12
0x0c19…0c33 at0013 = ╱ef╱ $ ╱ // 0xc2c @0x13
0x0c19…0c33 at0014 = ╱ec╱ , ╱ // 0xc2d @0x14
0x0c19…0c33 at0015 = ╱22╱"╱ // 0xc2e @0x15
0x0c19…0c33 at0016 = ╱52╱R╱ // 0xc2f @0x16
0x0c19…0c33 at0017 = ╱22╱"╱ // 0xc30 @0x17
0x0c19…0c33 at0018 = ╱ee╱ ) ╱ // 0xc31 @0x18
0x0c19…0c33 at0019 = EOL // 0xc32 @0x19
0x0c19…0c33 }
0x0c33…0c52 a240 01070 GET ST_KTO $ , 5 : INDMOMS_KTO $
0x0c33…0c52 LineComal80 {
0x0c33…0c52 ptr = 0xa240 // 0xc33 @0x0
0x0c33…0c52 lno = 0x042e // 0xc35 @0x2
0x0c33…0c52 at0004 = ╱a9╱ GET ╱ // 0xc37 @0x4
0x0c33…0c52 at0005 = ╱53╱S╱ // 0xc38 @0x5
0x0c33…0c52 at0006 = ╱54╱T╱ // 0xc39 @0x6
0x0c33…0c52 at0007 = ╱5f╱_╱ // 0xc3a @0x7
0x0c33…0c52 at0008 = ╱4b╱K╱ // 0xc3b @0x8
0x0c33…0c52 at0009 = ╱54╱T╱ // 0xc3c @0x9
0x0c33…0c52 at000a = ╱4f╱O╱ // 0xc3d @0xa
0x0c33…0c52 at000b = ╱ef╱ $ ╱ // 0xc3e @0xb
0x0c33…0c52 at000c = ╱ec╱ , ╱ // 0xc3f @0xc
0x0c33…0c52 at000d = ╱35╱5╱ // 0xc40 @0xd
0x0c33…0c52 at000e = ╱f20500╱ // 0xc41 @0xe
0x0c33…0c52 at0011 = ╱f1╱ : ╱ // 0xc44 @0x11
0x0c33…0c52 at0012 = ╱49╱I╱ // 0xc45 @0x12
0x0c33…0c52 at0013 = ╱4e╱N╱ // 0xc46 @0x13
0x0c33…0c52 at0014 = ╱44╱D╱ // 0xc47 @0x14
0x0c33…0c52 at0015 = ╱4d╱M╱ // 0xc48 @0x15
0x0c33…0c52 at0016 = ╱4f╱O╱ // 0xc49 @0x16
0x0c33…0c52 at0017 = ╱4d╱M╱ // 0xc4a @0x17
0x0c33…0c52 at0018 = ╱53╱S╱ // 0xc4b @0x18
0x0c33…0c52 at0019 = ╱5f╱_╱ // 0xc4c @0x19
0x0c33…0c52 at001a = ╱4b╱K╱ // 0xc4d @0x1a
0x0c33…0c52 at001b = ╱54╱T╱ // 0xc4e @0x1b
0x0c33…0c52 at001c = ╱4f╱O╱ // 0xc4f @0x1c
0x0c33…0c52 at001d = ╱ef╱ $ ╱ // 0xc50 @0x1d
0x0c33…0c52 at001e = EOL // 0xc51 @0x1e
0x0c33…0c52 }
0x0c52…0c70 a25e 01080 GET ST_KTO $ , 6 : UDMOMS_KTO $
0x0c52…0c70 LineComal80 {
0x0c52…0c70 ptr = 0xa25e // 0xc52 @0x0
0x0c52…0c70 lno = 0x0438 // 0xc54 @0x2
0x0c52…0c70 at0004 = ╱a9╱ GET ╱ // 0xc56 @0x4
0x0c52…0c70 at0005 = ╱53╱S╱ // 0xc57 @0x5
0x0c52…0c70 at0006 = ╱54╱T╱ // 0xc58 @0x6
0x0c52…0c70 at0007 = ╱5f╱_╱ // 0xc59 @0x7
0x0c52…0c70 at0008 = ╱4b╱K╱ // 0xc5a @0x8
0x0c52…0c70 at0009 = ╱54╱T╱ // 0xc5b @0x9
0x0c52…0c70 at000a = ╱4f╱O╱ // 0xc5c @0xa
0x0c52…0c70 at000b = ╱ef╱ $ ╱ // 0xc5d @0xb
0x0c52…0c70 at000c = ╱ec╱ , ╱ // 0xc5e @0xc
0x0c52…0c70 at000d = ╱36╱6╱ // 0xc5f @0xd
0x0c52…0c70 at000e = ╱f20600╱ // 0xc60 @0xe
0x0c52…0c70 at0011 = ╱f1╱ : ╱ // 0xc63 @0x11
0x0c52…0c70 at0012 = ╱55╱U╱ // 0xc64 @0x12
0x0c52…0c70 at0013 = ╱44╱D╱ // 0xc65 @0x13
0x0c52…0c70 at0014 = ╱4d╱M╱ // 0xc66 @0x14
0x0c52…0c70 at0015 = ╱4f╱O╱ // 0xc67 @0x15
0x0c52…0c70 at0016 = ╱4d╱M╱ // 0xc68 @0x16
0x0c52…0c70 at0017 = ╱53╱S╱ // 0xc69 @0x17
0x0c52…0c70 at0018 = ╱5f╱_╱ // 0xc6a @0x18
0x0c52…0c70 at0019 = ╱4b╱K╱ // 0xc6b @0x19
0x0c52…0c70 at001a = ╱54╱T╱ // 0xc6c @0x1a
0x0c52…0c70 at001b = ╱4f╱O╱ // 0xc6d @0x1b
0x0c52…0c70 at001c = ╱ef╱ $ ╱ // 0xc6e @0x1c
0x0c52…0c70 at001d = EOL // 0xc6f @0x1d
0x0c52…0c70 }
0x0c70…0c7d a26b 01090 CLOSE ST_KTO $
0x0c70…0c7d LineComal80 {
0x0c70…0c7d ptr = 0xa26b // 0xc70 @0x0
0x0c70…0c7d lno = 0x0442 // 0xc72 @0x2
0x0c70…0c7d at0004 = ╱a8╱ CLOSE ╱ // 0xc74 @0x4
0x0c70…0c7d at0005 = ╱53╱S╱ // 0xc75 @0x5
0x0c70…0c7d at0006 = ╱54╱T╱ // 0xc76 @0x6
0x0c70…0c7d at0007 = ╱5f╱_╱ // 0xc77 @0x7
0x0c70…0c7d at0008 = ╱4b╱K╱ // 0xc78 @0x8
0x0c70…0c7d at0009 = ╱54╱T╱ // 0xc79 @0x9
0x0c70…0c7d at000a = ╱4f╱O╱ // 0xc7a @0xa
0x0c70…0c7d at000b = ╱ef╱ $ ╱ // 0xc7b @0xb
0x0c70…0c7d at000c = EOL // 0xc7c @0xc
0x0c70…0c7d }
0x0c7d…0c8a a278 01100 ENDPROC INITIER
0x0c7d…0c8a LineComal80 {
0x0c7d…0c8a ptr = 0xa278 // 0xc7d @0x0
0x0c7d…0c8a lno = 0x044c // 0xc7f @0x2
0x0c7d…0c8a at0004 = ╱9f╱ ENDPROC ╱ // 0xc81 @0x4
0x0c7d…0c8a at0005 = ╱49╱I╱ // 0xc82 @0x5
0x0c7d…0c8a at0006 = ╱4e╱N╱ // 0xc83 @0x6
0x0c7d…0c8a at0007 = ╱49╱I╱ // 0xc84 @0x7
0x0c7d…0c8a at0008 = ╱54╱T╱ // 0xc85 @0x8
0x0c7d…0c8a at0009 = ╱49╱I╱ // 0xc86 @0x9
0x0c7d…0c8a at000a = ╱45╱E╱ // 0xc87 @0xa
0x0c7d…0c8a at000b = ╱52╱R╱ // 0xc88 @0xb
0x0c7d…0c8a at000c = EOL // 0xc89 @0xc
0x0c7d…0c8a }
0x0c8a…0c8f a27d 01110
0x0c8a…0c8f LineComal80 {
0x0c8a…0c8f ptr = 0xa27d // 0xc8a @0x0
0x0c8a…0c8f lno = 0x0456 // 0xc8c @0x2
0x0c8a…0c8f at0004 = EOL // 0xc8e @0x4
0x0c8a…0c8f }
0x0c8f…0ca2 a290 01120 PROC TERMINAL_IDX
0x0c8f…0ca2 LineComal80 {
0x0c8f…0ca2 ptr = 0xa290 // 0xc8f @0x0
0x0c8f…0ca2 lno = 0x0460 // 0xc91 @0x2
0x0c8f…0ca2 at0004 = ╱9e00╱ PROC ╱ // 0xc93 @0x4
0x0c8f…0ca2 at0006 = ╱54╱T╱ // 0xc95 @0x6
0x0c8f…0ca2 at0007 = ╱45╱E╱ // 0xc96 @0x7
0x0c8f…0ca2 at0008 = ╱52╱R╱ // 0xc97 @0x8
0x0c8f…0ca2 at0009 = ╱4d╱M╱ // 0xc98 @0x9
0x0c8f…0ca2 at000a = ╱49╱I╱ // 0xc99 @0xa
0x0c8f…0ca2 at000b = ╱4e╱N╱ // 0xc9a @0xb
0x0c8f…0ca2 at000c = ╱41╱A╱ // 0xc9b @0xc
0x0c8f…0ca2 at000d = ╱4c╱L╱ // 0xc9c @0xd
0x0c8f…0ca2 at000e = ╱5f╱_╱ // 0xc9d @0xe
0x0c8f…0ca2 at000f = ╱49╱I╱ // 0xc9e @0xf
0x0c8f…0ca2 at0010 = ╱44╱D╱ // 0xc9f @0x10
0x0c8f…0ca2 at0011 = ╱58╱X╱ // 0xca0 @0x11
0x0c8f…0ca2 at0012 = EOL // 0xca1 @0x12
0x0c8f…0ca2 }
0x0ca2…0cbc (42,) a2aa 01130 LET PPAR := 5 ; RESRV := 0
0x0ca2…0cbc LineComal80 {
0x0ca2…0cbc ptr = 0xa2aa // 0xca2 @0x0
0x0ca2…0cbc lno = 0x046a // 0xca4 @0x2
0x0ca2…0cbc at0004 = ╱86╱ LET ╱ // 0xca6 @0x4
0x0ca2…0cbc at0005 = ╱50╱P╱ // 0xca7 @0x5
0x0ca2…0cbc at0006 = ╱50╱P╱ // 0xca8 @0x6
0x0ca2…0cbc at0007 = ╱41╱A╱ // 0xca9 @0x7
0x0ca2…0cbc at0008 = ╱52╱R╱ // 0xcaa @0x8
0x0ca2…0cbc at0009 = ╱f0╱ := ╱ // 0xcab @0x9
0x0ca2…0cbc at000a = ╱35╱5╱ // 0xcac @0xa
0x0ca2…0cbc at000b = ╱f20500╱ // 0xcad @0xb
0x0ca2…0cbc at000e = ╱ea╱ ; ╱ // 0xcb0 @0xe
0x0ca2…0cbc at000f = ╱52╱R╱ // 0xcb1 @0xf
0x0ca2…0cbc at0010 = ╱45╱E╱ // 0xcb2 @0x10
0x0ca2…0cbc at0011 = ╱53╱S╱ // 0xcb3 @0x11
0x0ca2…0cbc at0012 = ╱52╱R╱ // 0xcb4 @0x12
0x0ca2…0cbc at0013 = ╱56╱V╱ // 0xcb5 @0x13
0x0ca2…0cbc at0014 = ╱f0╱ := ╱ // 0xcb6 @0x14
0x0ca2…0cbc at0015 = ╱30╱0╱ // 0xcb7 @0x15
0x0ca2…0cbc at0016 = ╱f20000╱ // 0xcb8 @0x16
0x0ca2…0cbc at0019 = EOL // 0xcbb @0x19
0x0ca2…0cbc }
0x0cbc…0cce a2bc 01140 CALL T"DDE:PRES"
0x0cbc…0cce LineComal80 {
0x0cbc…0cce ptr = 0xa2bc // 0xcbc @0x0
0x0cbc…0cce lno = 0x0474 // 0xcbe @0x2
0x0cbc…0cce at0004 = ╱ad4b╱ CALL ╱ // 0xcc0 @0x4
0x0cbc…0cce at0006 = ╱54╱T╱ // 0xcc2 @0x6
0x0cbc…0cce at0007 = ╱22╱"╱ // 0xcc3 @0x7
0x0cbc…0cce at0008 = ╱44╱D╱ // 0xcc4 @0x8
0x0cbc…0cce at0009 = ╱44╱D╱ // 0xcc5 @0x9
0x0cbc…0cce at000a = ╱45╱E╱ // 0xcc6 @0xa
0x0cbc…0cce at000b = ╱3a╱:╱ // 0xcc7 @0xb
0x0cbc…0cce at000c = ╱50╱P╱ // 0xcc8 @0xc
0x0cbc…0cce at000d = ╱52╱R╱ // 0xcc9 @0xd
0x0cbc…0cce at000e = ╱45╱E╱ // 0xcca @0xe
0x0cbc…0cce at000f = ╱53╱S╱ // 0xccb @0xf
0x0cbc…0cce at0010 = ╱22╱"╱ // 0xccc @0x10
0x0cbc…0cce at0011 = EOL // 0xccd @0x11
0x0cbc…0cce }
0x0cce…0cf7 a2e5 01150 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x0cce…0cf7 LineComal80 {
0x0cce…0cf7 ptr = 0xa2e5 // 0xcce @0x0
0x0cce…0cf7 lno = 0x047e // 0xcd0 @0x2
0x0cce…0cf7 at0004 = ╱a9╱ GET ╱ // 0xcd2 @0x4
0x0cce…0cf7 at0005 = ╱53╱S╱ // 0xcd3 @0x5
0x0cce…0cf7 at0006 = ╱59╱Y╱ // 0xcd4 @0x6
0x0cce…0cf7 at0007 = ╱53╱S╱ // 0xcd5 @0x7
0x0cce…0cf7 at0008 = ╱50╱P╱ // 0xcd6 @0x8
0x0cce…0cf7 at0009 = ╱41╱A╱ // 0xcd7 @0x9
0x0cce…0cf7 at000a = ╱52╱R╱ // 0xcd8 @0xa
0x0cce…0cf7 at000b = ╱41╱A╱ // 0xcd9 @0xb
0x0cce…0cf7 at000c = ╱ef╱ $ ╱ // 0xcda @0xc
0x0cce…0cf7 at000d = ╱ec╱ , ╱ // 0xcdb @0xd
0x0cce…0cf7 at000e = ╱31╱1╱ // 0xcdc @0xe
0x0cce…0cf7 at000f = ╱f20100╱ // 0xcdd @0xf
0x0cce…0cf7 at0012 = ╱e5╱ + ╱ // 0xce0 @0x12
0x0cce…0cf7 at0013 = ╱52╱R╱ // 0xce1 @0x13
0x0cce…0cf7 at0014 = ╱45╱E╱ // 0xce2 @0x14
0x0cce…0cf7 at0015 = ╱53╱S╱ // 0xce3 @0x15
0x0cce…0cf7 at0016 = ╱52╱R╱ // 0xce4 @0x16
0x0cce…0cf7 at0017 = ╱56╱V╱ // 0xce5 @0x17
0x0cce…0cf7 at0018 = ╱f1╱ : ╱ // 0xce6 @0x18
0x0cce…0cf7 at0019 = ╱44╱D╱ // 0xce7 @0x19
0x0cce…0cf7 at001a = ╱41╱A╱ // 0xce8 @0x1a
0x0cce…0cf7 at001b = ╱54╱T╱ // 0xce9 @0x1b
0x0cce…0cf7 at001c = ╱41╱A╱ // 0xcea @0x1c
0x0cce…0cf7 at001d = ╱46╱F╱ // 0xceb @0x1d
0x0cce…0cf7 at001e = ╱4c╱L╱ // 0xcec @0x1e
0x0cce…0cf7 at001f = ╱ef╱ $ ╱ // 0xced @0x1f
0x0cce…0cf7 at0020 = ╱ec╱ , ╱ // 0xcee @0x20
0x0cce…0cf7 at0021 = ╱54╱T╱ // 0xcef @0x21
0x0cce…0cf7 at0022 = ╱5f╱_╱ // 0xcf0 @0x22
0x0cce…0cf7 at0023 = ╱4b╱K╱ // 0xcf1 @0x23
0x0cce…0cf7 at0024 = ╱4f╱O╱ // 0xcf2 @0x24
0x0cce…0cf7 at0025 = ╱44╱D╱ // 0xcf3 @0x25
0x0cce…0cf7 at0026 = ╱45╱E╱ // 0xcf4 @0x26
0x0cce…0cf7 at0027 = ╱ef╱ $ ╱ // 0xcf5 @0x27
0x0cce…0cf7 at0028 = EOL // 0xcf6 @0x28
0x0cce…0cf7 }
0x0cf7…0d09 a2f7 01160 ENDPROC TERMINAL_IDX
0x0cf7…0d09 LineComal80 {
0x0cf7…0d09 ptr = 0xa2f7 // 0xcf7 @0x0
0x0cf7…0d09 lno = 0x0488 // 0xcf9 @0x2
0x0cf7…0d09 at0004 = ╱9f╱ ENDPROC ╱ // 0xcfb @0x4
0x0cf7…0d09 at0005 = ╱54╱T╱ // 0xcfc @0x5
0x0cf7…0d09 at0006 = ╱45╱E╱ // 0xcfd @0x6
0x0cf7…0d09 at0007 = ╱52╱R╱ // 0xcfe @0x7
0x0cf7…0d09 at0008 = ╱4d╱M╱ // 0xcff @0x8
0x0cf7…0d09 at0009 = ╱49╱I╱ // 0xd00 @0x9
0x0cf7…0d09 at000a = ╱4e╱N╱ // 0xd01 @0xa
0x0cf7…0d09 at000b = ╱41╱A╱ // 0xd02 @0xb
0x0cf7…0d09 at000c = ╱4c╱L╱ // 0xd03 @0xc
0x0cf7…0d09 at000d = ╱5f╱_╱ // 0xd04 @0xd
0x0cf7…0d09 at000e = ╱49╱I╱ // 0xd05 @0xe
0x0cf7…0d09 at000f = ╱44╱D╱ // 0xd06 @0xf
0x0cf7…0d09 at0010 = ╱58╱X╱ // 0xd07 @0x10
0x0cf7…0d09 at0011 = EOL // 0xd08 @0x11
0x0cf7…0d09 }
0x0d09…0d0e a2fc 01170
0x0d09…0d0e LineComal80 {
0x0d09…0d0e ptr = 0xa2fc // 0xd09 @0x0
0x0d09…0d0e lno = 0x0492 // 0xd0b @0x2
0x0d09…0d0e at0004 = EOL // 0xd0d @0x4
0x0d09…0d0e }
0x0d0e…0d29 a317 01180 PROC OPENFIL ( FNAVN $ , WAY $ )
0x0d0e…0d29 LineComal80 {
0x0d0e…0d29 ptr = 0xa317 // 0xd0e @0x0
0x0d0e…0d29 lno = 0x049c // 0xd10 @0x2
0x0d0e…0d29 at0004 = ╱9e00╱ PROC ╱ // 0xd12 @0x4
0x0d0e…0d29 at0006 = ╱4f╱O╱ // 0xd14 @0x6
0x0d0e…0d29 at0007 = ╱50╱P╱ // 0xd15 @0x7
0x0d0e…0d29 at0008 = ╱45╱E╱ // 0xd16 @0x8
0x0d0e…0d29 at0009 = ╱4e╱N╱ // 0xd17 @0x9
0x0d0e…0d29 at000a = ╱46╱F╱ // 0xd18 @0xa
0x0d0e…0d29 at000b = ╱49╱I╱ // 0xd19 @0xb
0x0d0e…0d29 at000c = ╱4c╱L╱ // 0xd1a @0xc
0x0d0e…0d29 at000d = ╱ed╱ ( ╱ // 0xd1b @0xd
0x0d0e…0d29 at000e = ╱46╱F╱ // 0xd1c @0xe
0x0d0e…0d29 at000f = ╱4e╱N╱ // 0xd1d @0xf
0x0d0e…0d29 at0010 = ╱41╱A╱ // 0xd1e @0x10
0x0d0e…0d29 at0011 = ╱56╱V╱ // 0xd1f @0x11
0x0d0e…0d29 at0012 = ╱4e╱N╱ // 0xd20 @0x12
0x0d0e…0d29 at0013 = ╱ef╱ $ ╱ // 0xd21 @0x13
0x0d0e…0d29 at0014 = ╱ec╱ , ╱ // 0xd22 @0x14
0x0d0e…0d29 at0015 = ╱57╱W╱ // 0xd23 @0x15
0x0d0e…0d29 at0016 = ╱41╱A╱ // 0xd24 @0x16
0x0d0e…0d29 at0017 = ╱59╱Y╱ // 0xd25 @0x17
0x0d0e…0d29 at0018 = ╱ef╱ $ ╱ // 0xd26 @0x18
0x0d0e…0d29 at0019 = ╱ee╱ ) ╱ // 0xd27 @0x19
0x0d0e…0d29 at001a = EOL // 0xd28 @0x1a
0x0d0e…0d29 }
0x0d29…0d30 a31e 01190 REPEAT
0x0d29…0d30 LineComal80 {
0x0d29…0d30 ptr = 0xa31e // 0xd29 @0x0
0x0d29…0d30 lno = 0x04a6 // 0xd2b @0x2
0x0d29…0d30 at0004 = ╱9700╱ REPEAT ╱ // 0xd2d @0x4
0x0d29…0d30 at0006 = EOL // 0xd2f @0x6
0x0d29…0d30 }
0x0d30…0d49 a337 01200 IF AY $ = "W" OR WAY $ = "w" THEN
0x0d30…0d49 LineComal80 {
0x0d30…0d49 ptr = 0xa337 // 0xd30 @0x0
0x0d30…0d49 lno = 0x04b0 // 0xd32 @0x2
0x0d30…0d49 at0004 = ╱9b0057╱ IF ╱ // 0xd34 @0x4
0x0d30…0d49 at0007 = ╱41╱A╱ // 0xd37 @0x7
0x0d30…0d49 at0008 = ╱59╱Y╱ // 0xd38 @0x8
0x0d30…0d49 at0009 = ╱ef╱ $ ╱ // 0xd39 @0x9
0x0d30…0d49 at000a = ╱df╱ = ╱ // 0xd3a @0xa
0x0d30…0d49 at000b = ╱22╱"╱ // 0xd3b @0xb
0x0d30…0d49 at000c = ╱57╱W╱ // 0xd3c @0xc
0x0d30…0d49 at000d = ╱22╱"╱ // 0xd3d @0xd
0x0d30…0d49 at000e = ╱d8╱ OR ╱ // 0xd3e @0xe
0x0d30…0d49 at000f = ╱57╱W╱ // 0xd3f @0xf
0x0d30…0d49 at0010 = ╱41╱A╱ // 0xd40 @0x10
0x0d30…0d49 at0011 = ╱59╱Y╱ // 0xd41 @0x11
0x0d30…0d49 at0012 = ╱ef╱ $ ╱ // 0xd42 @0x12
0x0d30…0d49 at0013 = ╱df╱ = ╱ // 0xd43 @0x13
0x0d30…0d49 at0014 = ╱22╱"╱ // 0xd44 @0x14
0x0d30…0d49 at0015 = ╱77╱w╱ // 0xd45 @0x15
0x0d30…0d49 at0016 = ╱22╱"╱ // 0xd46 @0x16
0x0d30…0d49 at0017 = ╱b5╱ THEN ╱ // 0xd47 @0x17
0x0d30…0d49 at0018 = EOL // 0xd48 @0x18
0x0d30…0d49 }
0x0d49…0d57 a345 01210 OPEN FNAVN $ , W
0x0d49…0d57 LineComal80 {
0x0d49…0d57 ptr = 0xa345 // 0xd49 @0x0
0x0d49…0d57 lno = 0x04ba // 0xd4b @0x2
0x0d49…0d57 at0004 = ╱a7╱ OPEN ╱ // 0xd4d @0x4
0x0d49…0d57 at0005 = ╱46╱F╱ // 0xd4e @0x5
0x0d49…0d57 at0006 = ╱4e╱N╱ // 0xd4f @0x6
0x0d49…0d57 at0007 = ╱41╱A╱ // 0xd50 @0x7
0x0d49…0d57 at0008 = ╱56╱V╱ // 0xd51 @0x8
0x0d49…0d57 at0009 = ╱4e╱N╱ // 0xd52 @0x9
0x0d49…0d57 at000a = ╱ef╱ $ ╱ // 0xd53 @0xa
0x0d49…0d57 at000b = ╱ec╱ , ╱ // 0xd54 @0xb
0x0d49…0d57 at000c = ╱57╱W╱ // 0xd55 @0xc
0x0d49…0d57 at000d = EOL // 0xd56 @0xd
0x0d49…0d57 }
0x0d57…0d5e a34c 01220 ELSE
0x0d57…0d5e LineComal80 {
0x0d57…0d5e ptr = 0xa34c // 0xd57 @0x0
0x0d57…0d5e lno = 0x04c4 // 0xd59 @0x2
0x0d57…0d5e at0004 = ╱9a00╱ ELSE ╱ // 0xd5b @0x4
0x0d57…0d5e at0006 = EOL // 0xd5d @0x6
0x0d57…0d5e }
0x0d5e…0d6c a35a 01230 OPEN FNAVN $ , R
0x0d5e…0d6c LineComal80 {
0x0d5e…0d6c ptr = 0xa35a // 0xd5e @0x0
0x0d5e…0d6c lno = 0x04ce // 0xd60 @0x2
0x0d5e…0d6c at0004 = ╱a7╱ OPEN ╱ // 0xd62 @0x4
0x0d5e…0d6c at0005 = ╱46╱F╱ // 0xd63 @0x5
0x0d5e…0d6c at0006 = ╱4e╱N╱ // 0xd64 @0x6
0x0d5e…0d6c at0007 = ╱41╱A╱ // 0xd65 @0x7
0x0d5e…0d6c at0008 = ╱56╱V╱ // 0xd66 @0x8
0x0d5e…0d6c at0009 = ╱4e╱N╱ // 0xd67 @0x9
0x0d5e…0d6c at000a = ╱ef╱ $ ╱ // 0xd68 @0xa
0x0d5e…0d6c at000b = ╱ec╱ , ╱ // 0xd69 @0xb
0x0d5e…0d6c at000c = ╱52╱R╱ // 0xd6a @0xc
0x0d5e…0d6c at000d = EOL // 0xd6b @0xd
0x0d5e…0d6c }
0x0d6c…0d72 a360 01240 ENDIF
0x0d6c…0d72 LineComal80 {
0x0d6c…0d72 ptr = 0xa360 // 0xd6c @0x0
0x0d6c…0d72 lno = 0x04d8 // 0xd6e @0x2
0x0d6c…0d72 at0004 = ╱9c╱ ENDIF ╱ // 0xd70 @0x4
0x0d6c…0d72 at0005 = EOL // 0xd71 @0x5
0x0d6c…0d72 }
0x0d72…0d83 a371 01250 IF ( FNAVN $ ) THEN
0x0d72…0d83 LineComal80 {
0x0d72…0d83 ptr = 0xa371 // 0xd72 @0x0
0x0d72…0d83 lno = 0x04e2 // 0xd74 @0x2
0x0d72…0d83 at0004 = ╱9b00cd╱ IF ╱ // 0xd76 @0x4
0x0d72…0d83 at0007 = ╱ed╱ ( ╱ // 0xd79 @0x7
0x0d72…0d83 at0008 = ╱46╱F╱ // 0xd7a @0x8
0x0d72…0d83 at0009 = ╱4e╱N╱ // 0xd7b @0x9
0x0d72…0d83 at000a = ╱41╱A╱ // 0xd7c @0xa
0x0d72…0d83 at000b = ╱56╱V╱ // 0xd7d @0xb
0x0d72…0d83 at000c = ╱4e╱N╱ // 0xd7e @0xc
0x0d72…0d83 at000d = ╱ef╱ $ ╱ // 0xd7f @0xd
0x0d72…0d83 at000e = ╱ee╱ ) ╱ // 0xd80 @0xe
0x0d72…0d83 at000f = ╱b5╱ THEN ╱ // 0xd81 @0xf
0x0d72…0d83 at0010 = EOL // 0xd82 @0x10
0x0d72…0d83 }
0x0d83…0d9b a389 01260 PRINT "<SC0123>" ; CHR$ ( 7 )
0x0d83…0d9b LineComal80 {
0x0d83…0d9b ptr = 0xa389 // 0xd83 @0x0
0x0d83…0d9b lno = 0x04ec // 0xd85 @0x2
0x0d83…0d9b at0004 = ╱92╱ PRINT ╱ // 0xd87 @0x4
0x0d83…0d9b at0005 = ╱22╱"╱ // 0xd88 @0x5
0x0d83…0d9b at0006 = ╱3c╱<╱ // 0xd89 @0x6
0x0d83…0d9b at0007 = ╱53╱S╱ // 0xd8a @0x7
0x0d83…0d9b at0008 = ╱43╱C╱ // 0xd8b @0x8
0x0d83…0d9b at0009 = ╱30╱0╱ // 0xd8c @0x9
0x0d83…0d9b at000a = ╱31╱1╱ // 0xd8d @0xa
0x0d83…0d9b at000b = ╱32╱2╱ // 0xd8e @0xb
0x0d83…0d9b at000c = ╱33╱3╱ // 0xd8f @0xc
0x0d83…0d9b at000d = ╱3e╱>╱ // 0xd90 @0xd
0x0d83…0d9b at000e = ╱22╱"╱ // 0xd91 @0xe
0x0d83…0d9b at000f = ╱ea╱ ; ╱ // 0xd92 @0xf
0x0d83…0d9b at0010 = ╱d0╱ CHR$ ╱ // 0xd93 @0x10
0x0d83…0d9b at0011 = ╱ed╱ ( ╱ // 0xd94 @0x11
0x0d83…0d9b at0012 = ╱37╱7╱ // 0xd95 @0x12
0x0d83…0d9b at0013 = ╱f20700╱ // 0xd96 @0x13
0x0d83…0d9b at0016 = ╱ee╱ ) ╱ // 0xd99 @0x16
0x0d83…0d9b at0017 = EOL // 0xd9a @0x17
0x0d83…0d9b }
0x0d9b…0db1 a39f 01270 IF ( FNAVN $ ) = 6 THEN
0x0d9b…0db1 LineComal80 {
0x0d9b…0db1 ptr = 0xa39f // 0xd9b @0x0
0x0d9b…0db1 lno = 0x04f6 // 0xd9d @0x2
0x0d9b…0db1 at0004 = ╱9b00cd╱ IF ╱ // 0xd9f @0x4
0x0d9b…0db1 at0007 = ╱ed╱ ( ╱ // 0xda2 @0x7
0x0d9b…0db1 at0008 = ╱46╱F╱ // 0xda3 @0x8
0x0d9b…0db1 at0009 = ╱4e╱N╱ // 0xda4 @0x9
0x0d9b…0db1 at000a = ╱41╱A╱ // 0xda5 @0xa
0x0d9b…0db1 at000b = ╱56╱V╱ // 0xda6 @0xb
0x0d9b…0db1 at000c = ╱4e╱N╱ // 0xda7 @0xc
0x0d9b…0db1 at000d = ╱ef╱ $ ╱ // 0xda8 @0xd
0x0d9b…0db1 at000e = ╱ee╱ ) ╱ // 0xda9 @0xe
0x0d9b…0db1 at000f = ╱df╱ = ╱ // 0xdaa @0xf
0x0d9b…0db1 at0010 = ╱36╱6╱ // 0xdab @0x10
0x0d9b…0db1 at0011 = ╱f20600╱ // 0xdac @0x11
0x0d9b…0db1 at0014 = ╱b5╱ THEN ╱ // 0xdaf @0x14
0x0d9b…0db1 at0015 = EOL // 0xdb0 @0x15
0x0d9b…0db1 }
0x0db1…0df6 a3e4 01280 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x0db1…0df6 LineComal80 {
0x0db1…0df6 ptr = 0xa3e4 // 0xdb1 @0x0
0x0db1…0df6 lno = 0x0500 // 0xdb3 @0x2
0x0db1…0df6 at0004 = ╱92╱ PRINT ╱ // 0xdb5 @0x4
0x0db1…0df6 at0005 = ╱22╱"╱ // 0xdb6 @0x5
0x0db1…0df6 at0006 = ╱3c╱<╱ // 0xdb7 @0x6
0x0db1…0df6 at0007 = ╱53╱S╱ // 0xdb8 @0x7
0x0db1…0df6 at0008 = ╱43╱C╱ // 0xdb9 @0x8
0x0db1…0df6 at0009 = ╱31╱1╱ // 0xdba @0x9
0x0db1…0df6 at000a = ╱36╱6╱ // 0xdbb @0xa
0x0db1…0df6 at000b = ╱30╱0╱ // 0xdbc @0xb
0x0db1…0df6 at000c = ╱32╱2╱ // 0xdbd @0xc
0x0db1…0df6 at000d = ╱3e╱>╱ // 0xdbe @0xd
0x0db1…0df6 at000e = ╱2a╱*╱ // 0xdbf @0xe
0x0db1…0df6 at000f = ╱2a╱*╱ // 0xdc0 @0xf
0x0db1…0df6 at0010 = ╱2a╱*╱ // 0xdc1 @0x10
0x0db1…0df6 at0011 = ╱20╱…╱ // 0xdc2 @0x11
0x0db1…0df6 at0012 = ╱46╱F╱ // 0xdc3 @0x12
0x0db1…0df6 at0013 = ╱65╱e╱ // 0xdc4 @0x13
0x0db1…0df6 at0014 = ╱6a╱j╱ // 0xdc5 @0x14
0x0db1…0df6 at0015 = ╱6c╱l╱ // 0xdc6 @0x15
0x0db1…0df6 at0016 = ╱20╱…╱ // 0xdc7 @0x16
0x0db1…0df6 at0017 = ╱6e╱n╱ // 0xdc8 @0x17
0x0db1…0df6 at0018 = ╱72╱r╱ // 0xdc9 @0x18
0x0db1…0df6 at0019 = ╱2e╱.╱ // 0xdca @0x19
0x0db1…0df6 at001a = ╱20╱…╱ // 0xdcb @0x1a
0x0db1…0df6 at001b = ╱36╱6╱ // 0xdcc @0x1b
0x0db1…0df6 at001c = ╱20╱…╱ // 0xdcd @0x1c
0x0db1…0df6 at001d = ╱2d╱-╱ // 0xdce @0x1d
0x0db1…0df6 at001e = ╱20╱…╱ // 0xdcf @0x1e
0x0db1…0df6 at001f = ╱69╱i╱ // 0xdd0 @0x1f
0x0db1…0df6 at0020 = ╱6e╱n╱ // 0xdd1 @0x20
0x0db1…0df6 at0021 = ╱64╱d╱ // 0xdd2 @0x21
0x0db1…0df6 at0022 = ╱73╱s╱ // 0xdd3 @0x22
0x0db1…0df6 at0023 = ╱7b╱{╱ // 0xdd4 @0x23
0x0db1…0df6 at0024 = ╱74╱t╱ // 0xdd5 @0x24
0x0db1…0df6 at0025 = ╱20╱…╱ // 0xdd6 @0x25
0x0db1…0df6 at0026 = ╱64╱d╱ // 0xdd7 @0x26
0x0db1…0df6 at0027 = ╱69╱i╱ // 0xdd8 @0x27
0x0db1…0df6 at0028 = ╱73╱s╱ // 0xdd9 @0x28
0x0db1…0df6 at0029 = ╱6b╱k╱ // 0xdda @0x29
0x0db1…0df6 at002a = ╱65╱e╱ // 0xddb @0x2a
0x0db1…0df6 at002b = ╱74╱t╱ // 0xddc @0x2b
0x0db1…0df6 at002c = ╱74╱t╱ // 0xddd @0x2c
0x0db1…0df6 at002d = ╱65╱e╱ // 0xdde @0x2d
0x0db1…0df6 at002e = ╱20╱…╱ // 0xddf @0x2e
0x0db1…0df6 at002f = ╱6f╱o╱ // 0xde0 @0x2f
0x0db1…0df6 at0030 = ╱67╱g╱ // 0xde1 @0x30
0x0db1…0df6 at0031 = ╱20╱…╱ // 0xde2 @0x31
0x0db1…0df6 at0032 = ╱74╱t╱ // 0xde3 @0x32
0x0db1…0df6 at0033 = ╱72╱r╱ // 0xde4 @0x33
0x0db1…0df6 at0034 = ╱79╱y╱ // 0xde5 @0x34
0x0db1…0df6 at0035 = ╱6b╱k╱ // 0xde6 @0x35
0x0db1…0df6 at0036 = ╱20╱…╱ // 0xde7 @0x36
0x0db1…0df6 at0037 = ╱3c╱<╱ // 0xde8 @0x37
0x0db1…0df6 at0038 = ╱52╱R╱ // 0xde9 @0x38
0x0db1…0df6 at0039 = ╱45╱E╱ // 0xdea @0x39
0x0db1…0df6 at003a = ╱54╱T╱ // 0xdeb @0x3a
0x0db1…0df6 at003b = ╱55╱U╱ // 0xdec @0x3b
0x0db1…0df6 at003c = ╱52╱R╱ // 0xded @0x3c
0x0db1…0df6 at003d = ╱4e╱N╱ // 0xdee @0x3d
0x0db1…0df6 at003e = ╱3e╱>╱ // 0xdef @0x3e
0x0db1…0df6 at003f = ╱20╱…╱ // 0xdf0 @0x3f
0x0db1…0df6 at0040 = ╱2a╱*╱ // 0xdf1 @0x40
0x0db1…0df6 at0041 = ╱2a╱*╱ // 0xdf2 @0x41
0x0db1…0df6 at0042 = ╱2a╱*╱ // 0xdf3 @0x42
0x0db1…0df6 at0043 = ╱22╱"╱ // 0xdf4 @0x43
0x0db1…0df6 at0044 = EOL // 0xdf5 @0x44
0x0db1…0df6 }
0x0df6…0e04 a3f2 01290 INPUT "" : SVAR $
0x0df6…0e04 LineComal80 {
0x0df6…0e04 ptr = 0xa3f2 // 0xdf6 @0x0
0x0df6…0e04 lno = 0x050a // 0xdf8 @0x2
0x0df6…0e04 at0004 = ╱91╱ INPUT ╱ // 0xdfa @0x4
0x0df6…0e04 at0005 = ╱22╱"╱ // 0xdfb @0x5
0x0df6…0e04 at0006 = ╱22╱"╱ // 0xdfc @0x6
0x0df6…0e04 at0007 = ╱f1╱ : ╱ // 0xdfd @0x7
0x0df6…0e04 at0008 = ╱53╱S╱ // 0xdfe @0x8
0x0df6…0e04 at0009 = ╱56╱V╱ // 0xdff @0x9
0x0df6…0e04 at000a = ╱41╱A╱ // 0xe00 @0xa
0x0df6…0e04 at000b = ╱52╱R╱ // 0xe01 @0xb
0x0df6…0e04 at000c = ╱ef╱ $ ╱ // 0xe02 @0xc
0x0df6…0e04 at000d = EOL // 0xe03 @0xd
0x0df6…0e04 }
0x0e04…0e0b a3f9 01300 ELSE
0x0e04…0e0b LineComal80 {
0x0e04…0e0b ptr = 0xa3f9 // 0xe04 @0x0
0x0e04…0e0b lno = 0x0514 // 0xe06 @0x2
0x0e04…0e0b at0004 = ╱9a00╱ ELSE ╱ // 0xe08 @0x4
0x0e04…0e0b at0006 = EOL // 0xe0a @0x6
0x0e04…0e0b }
0x0e0b…0e4c a43a 01310 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x0e0b…0e4c LineComal80 {
0x0e0b…0e4c ptr = 0xa43a // 0xe0b @0x0
0x0e0b…0e4c lno = 0x051e // 0xe0d @0x2
0x0e0b…0e4c at0004 = ╱92╱ PRINT ╱ // 0xe0f @0x4
0x0e0b…0e4c at0005 = ╱22╱"╱ // 0xe10 @0x5
0x0e0b…0e4c at0006 = ╱3c╱<╱ // 0xe11 @0x6
0x0e0b…0e4c at0007 = ╱53╱S╱ // 0xe12 @0x7
0x0e0b…0e4c at0008 = ╱43╱C╱ // 0xe13 @0x8
0x0e0b…0e4c at0009 = ╱31╱1╱ // 0xe14 @0x9
0x0e0b…0e4c at000a = ╱38╱8╱ // 0xe15 @0xa
0x0e0b…0e4c at000b = ╱30╱0╱ // 0xe16 @0xb
0x0e0b…0e4c at000c = ╱32╱2╱ // 0xe17 @0xc
0x0e0b…0e4c at000d = ╱3e╱>╱ // 0xe18 @0xd
0x0e0b…0e4c at000e = ╱2a╱*╱ // 0xe19 @0xe
0x0e0b…0e4c at000f = ╱2a╱*╱ // 0xe1a @0xf
0x0e0b…0e4c at0010 = ╱2a╱*╱ // 0xe1b @0x10
0x0e0b…0e4c at0011 = ╱20╱…╱ // 0xe1c @0x11
0x0e0b…0e4c at0012 = ╱46╱F╱ // 0xe1d @0x12
0x0e0b…0e4c at0013 = ╱65╱e╱ // 0xe1e @0x13
0x0e0b…0e4c at0014 = ╱6a╱j╱ // 0xe1f @0x14
0x0e0b…0e4c at0015 = ╱6c╱l╱ // 0xe20 @0x15
0x0e0b…0e4c at0016 = ╱20╱…╱ // 0xe21 @0x16
0x0e0b…0e4c at0017 = ╱6e╱n╱ // 0xe22 @0x17
0x0e0b…0e4c at0018 = ╱72╱r╱ // 0xe23 @0x18
0x0e0b…0e4c at0019 = ╱2e╱.╱ // 0xe24 @0x19
0x0e0b…0e4c at001a = ╱20╱…╱ // 0xe25 @0x1a
0x0e0b…0e4c at001b = ╱22╱"╱ // 0xe26 @0x1b
0x0e0b…0e4c at001c = ╱ea╱ ; ╱ // 0xe27 @0x1c
0x0e0b…0e4c at001d = ╱d0╱ CHR$ ╱ // 0xe28 @0x1d
0x0e0b…0e4c at001e = ╱ed╱ ( ╱ // 0xe29 @0x1e
0x0e0b…0e4c at001f = ╱cd╱ // 0xe2a @0x1f
0x0e0b…0e4c at0020 = ╱ed╱ ( ╱ // 0xe2b @0x20
0x0e0b…0e4c at0021 = ╱46╱F╱ // 0xe2c @0x21
0x0e0b…0e4c at0022 = ╱4e╱N╱ // 0xe2d @0x22
0x0e0b…0e4c at0023 = ╱41╱A╱ // 0xe2e @0x23
0x0e0b…0e4c at0024 = ╱56╱V╱ // 0xe2f @0x24
0x0e0b…0e4c at0025 = ╱4e╱N╱ // 0xe30 @0x25
0x0e0b…0e4c at0026 = ╱ef╱ $ ╱ // 0xe31 @0x26
0x0e0b…0e4c at0027 = ╱ee╱ ) ╱ // 0xe32 @0x27
0x0e0b…0e4c at0028 = ╱ec╱ , ╱ // 0xe33 @0x28
0x0e0b…0e4c at0029 = ╱32╱2╱ // 0xe34 @0x29
0x0e0b…0e4c at002a = ╱f20200╱ // 0xe35 @0x2a
0x0e0b…0e4c at002d = ╱ee╱ ) ╱ // 0xe38 @0x2d
0x0e0b…0e4c at002e = ╱ea╱ ; ╱ // 0xe39 @0x2e
0x0e0b…0e4c at002f = ╱22╱"╱ // 0xe3a @0x2f
0x0e0b…0e4c at0030 = ╱20╱…╱ // 0xe3b @0x30
0x0e0b…0e4c at0031 = ╱76╱v╱ // 0xe3c @0x31
0x0e0b…0e4c at0032 = ╱65╱e╱ // 0xe3d @0x32
0x0e0b…0e4c at0033 = ╱64╱d╱ // 0xe3e @0x33
0x0e0b…0e4c at0034 = ╱20╱…╱ // 0xe3f @0x34
0x0e0b…0e4c at0035 = ╱7d╱}╱ // 0xe40 @0x35
0x0e0b…0e4c at0036 = ╱62╱b╱ // 0xe41 @0x36
0x0e0b…0e4c at0037 = ╱6e╱n╱ // 0xe42 @0x37
0x0e0b…0e4c at0038 = ╱69╱i╱ // 0xe43 @0x38
0x0e0b…0e4c at0039 = ╱6e╱n╱ // 0xe44 @0x39
0x0e0b…0e4c at003a = ╱67╱g╱ // 0xe45 @0x3a
0x0e0b…0e4c at003b = ╱20╱…╱ // 0xe46 @0x3b
0x0e0b…0e4c at003c = ╱61╱a╱ // 0xe47 @0x3c
0x0e0b…0e4c at003d = ╱66╱f╱ // 0xe48 @0x3d
0x0e0b…0e4c at003e = ╱20╱…╱ // 0xe49 @0x3e
0x0e0b…0e4c at003f = ╱22╱"╱ // 0xe4a @0x3f
0x0e0b…0e4c at0040 = EOL // 0xe4b @0x40
0x0e0b…0e4c }
0x0e4c…0e65 a453 01320 PRINT "<S>" ; FNAVN $ ; "…***"
0x0e4c…0e65 LineComal80 {
0x0e4c…0e65 ptr = 0xa453 // 0xe4c @0x0
0x0e4c…0e65 lno = 0x0528 // 0xe4e @0x2
0x0e4c…0e65 at0004 = ╱92╱ PRINT ╱ // 0xe50 @0x4
0x0e4c…0e65 at0005 = ╱22╱"╱ // 0xe51 @0x5
0x0e4c…0e65 at0006 = ╱3c╱<╱ // 0xe52 @0x6
0x0e4c…0e65 at0007 = ╱53╱S╱ // 0xe53 @0x7
0x0e4c…0e65 at0008 = ╱3e╱>╱ // 0xe54 @0x8
0x0e4c…0e65 at0009 = ╱22╱"╱ // 0xe55 @0x9
0x0e4c…0e65 at000a = ╱ea╱ ; ╱ // 0xe56 @0xa
0x0e4c…0e65 at000b = ╱46╱F╱ // 0xe57 @0xb
0x0e4c…0e65 at000c = ╱4e╱N╱ // 0xe58 @0xc
0x0e4c…0e65 at000d = ╱41╱A╱ // 0xe59 @0xd
0x0e4c…0e65 at000e = ╱56╱V╱ // 0xe5a @0xe
0x0e4c…0e65 at000f = ╱4e╱N╱ // 0xe5b @0xf
0x0e4c…0e65 at0010 = ╱ef╱ $ ╱ // 0xe5c @0x10
0x0e4c…0e65 at0011 = ╱ea╱ ; ╱ // 0xe5d @0x11
0x0e4c…0e65 at0012 = ╱22╱"╱ // 0xe5e @0x12
0x0e4c…0e65 at0013 = ╱20╱…╱ // 0xe5f @0x13
0x0e4c…0e65 at0014 = ╱2a╱*╱ // 0xe60 @0x14
0x0e4c…0e65 at0015 = ╱2a╱*╱ // 0xe61 @0x15
0x0e4c…0e65 at0016 = ╱2a╱*╱ // 0xe62 @0x16
0x0e4c…0e65 at0017 = ╱22╱"╱ // 0xe63 @0x17
0x0e4c…0e65 at0018 = EOL // 0xe64 @0x18
0x0e4c…0e65 }
0x0e65…0e73 a461 01330 INPUT "" : SVAR $
0x0e65…0e73 LineComal80 {
0x0e65…0e73 ptr = 0xa461 // 0xe65 @0x0
0x0e65…0e73 lno = 0x0532 // 0xe67 @0x2
0x0e65…0e73 at0004 = ╱91╱ INPUT ╱ // 0xe69 @0x4
0x0e65…0e73 at0005 = ╱22╱"╱ // 0xe6a @0x5
0x0e65…0e73 at0006 = ╱22╱"╱ // 0xe6b @0x6
0x0e65…0e73 at0007 = ╱f1╱ : ╱ // 0xe6c @0x7
0x0e65…0e73 at0008 = ╱53╱S╱ // 0xe6d @0x8
0x0e65…0e73 at0009 = ╱56╱V╱ // 0xe6e @0x9
0x0e65…0e73 at000a = ╱41╱A╱ // 0xe6f @0xa
0x0e65…0e73 at000b = ╱52╱R╱ // 0xe70 @0xb
0x0e65…0e73 at000c = ╱ef╱ $ ╱ // 0xe71 @0xc
0x0e65…0e73 at000d = EOL // 0xe72 @0xd
0x0e65…0e73 }
0x0e73…0e87 a475 01340 PRINT "<C0102>" ; SPC $
0x0e73…0e87 LineComal80 {
0x0e73…0e87 ptr = 0xa475 // 0xe73 @0x0
0x0e73…0e87 lno = 0x053c // 0xe75 @0x2
0x0e73…0e87 at0004 = ╱92╱ PRINT ╱ // 0xe77 @0x4
0x0e73…0e87 at0005 = ╱22╱"╱ // 0xe78 @0x5
0x0e73…0e87 at0006 = ╱3c╱<╱ // 0xe79 @0x6
0x0e73…0e87 at0007 = ╱43╱C╱ // 0xe7a @0x7
0x0e73…0e87 at0008 = ╱30╱0╱ // 0xe7b @0x8
0x0e73…0e87 at0009 = ╱31╱1╱ // 0xe7c @0x9
0x0e73…0e87 at000a = ╱30╱0╱ // 0xe7d @0xa
0x0e73…0e87 at000b = ╱32╱2╱ // 0xe7e @0xb
0x0e73…0e87 at000c = ╱3e╱>╱ // 0xe7f @0xc
0x0e73…0e87 at000d = ╱22╱"╱ // 0xe80 @0xd
0x0e73…0e87 at000e = ╱ea╱ ; ╱ // 0xe81 @0xe
0x0e73…0e87 at000f = ╱53╱S╱ // 0xe82 @0xf
0x0e73…0e87 at0010 = ╱50╱P╱ // 0xe83 @0x10
0x0e73…0e87 at0011 = ╱43╱C╱ // 0xe84 @0x11
0x0e73…0e87 at0012 = ╱ef╱ $ ╱ // 0xe85 @0x12
0x0e73…0e87 at0013 = EOL // 0xe86 @0x13
0x0e73…0e87 }
0x0e87…0e8d a47b 01350 ENDIF
0x0e87…0e8d LineComal80 {
0x0e87…0e8d ptr = 0xa47b // 0xe87 @0x0
0x0e87…0e8d lno = 0x0546 // 0xe89 @0x2
0x0e87…0e8d at0004 = ╱9c╱ ENDIF ╱ // 0xe8b @0x4
0x0e87…0e8d at0005 = EOL // 0xe8c @0x5
0x0e87…0e8d }
0x0e8d…0e93 a481 01360 ENDIF
0x0e8d…0e93 LineComal80 {
0x0e8d…0e93 ptr = 0xa481 // 0xe8d @0x0
0x0e8d…0e93 lno = 0x0550 // 0xe8f @0x2
0x0e8d…0e93 at0004 = ╱9c╱ ENDIF ╱ // 0xe91 @0x4
0x0e8d…0e93 at0005 = EOL // 0xe92 @0x5
0x0e8d…0e93 }
0x0e93…0ea3 a491 01370 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x0e93…0ea3 LineComal80 {
0x0e93…0ea3 ptr = 0xa491 // 0xe93 @0x0
0x0e93…0ea3 lno = 0x055a // 0xe95 @0x2
0x0e93…0ea3 at0004 = ╱98╱ UNTIL ╱ // 0xe97 @0x4
0x0e93…0ea3 at0005 = ╱d7╱ NOT ╱ // 0xe98 @0x5
0x0e93…0ea3 at0006 = ╱cd╱ // 0xe99 @0x6
0x0e93…0ea3 at0007 = ╱ed╱ ( ╱ // 0xe9a @0x7
0x0e93…0ea3 at0008 = ╱46╱F╱ // 0xe9b @0x8
0x0e93…0ea3 at0009 = ╱4e╱N╱ // 0xe9c @0x9
0x0e93…0ea3 at000a = ╱41╱A╱ // 0xe9d @0xa
0x0e93…0ea3 at000b = ╱56╱V╱ // 0xe9e @0xb
0x0e93…0ea3 at000c = ╱4e╱N╱ // 0xe9f @0xc
0x0e93…0ea3 at000d = ╱ef╱ $ ╱ // 0xea0 @0xd
0x0e93…0ea3 at000e = ╱ee╱ ) ╱ // 0xea1 @0xe
0x0e93…0ea3 at000f = EOL // 0xea2 @0xf
0x0e93…0ea3 }
0x0ea3…0eb0 a49e 01380 ENDPROC OPENFIL
0x0ea3…0eb0 LineComal80 {
0x0ea3…0eb0 ptr = 0xa49e // 0xea3 @0x0
0x0ea3…0eb0 lno = 0x0564 // 0xea5 @0x2
0x0ea3…0eb0 at0004 = ╱9f╱ ENDPROC ╱ // 0xea7 @0x4
0x0ea3…0eb0 at0005 = ╱4f╱O╱ // 0xea8 @0x5
0x0ea3…0eb0 at0006 = ╱50╱P╱ // 0xea9 @0x6
0x0ea3…0eb0 at0007 = ╱45╱E╱ // 0xeaa @0x7
0x0ea3…0eb0 at0008 = ╱4e╱N╱ // 0xeab @0x8
0x0ea3…0eb0 at0009 = ╱46╱F╱ // 0xeac @0x9
0x0ea3…0eb0 at000a = ╱49╱I╱ // 0xead @0xa
0x0ea3…0eb0 at000b = ╱4c╱L╱ // 0xeae @0xb
0x0ea3…0eb0 at000c = EOL // 0xeaf @0xc
0x0ea3…0eb0 }
0x0eb0…0eb5 a4a3 01390
0x0eb0…0eb5 LineComal80 {
0x0eb0…0eb5 ptr = 0xa4a3 // 0xeb0 @0x0
0x0eb0…0eb5 lno = 0x056e // 0xeb2 @0x2
0x0eb0…0eb5 at0004 = EOL // 0xeb4 @0x4
0x0eb0…0eb5 }
0x0eb5…0ece a4bc 01400 PROC TAL_CONTROL ( REF RST $ )
0x0eb5…0ece LineComal80 {
0x0eb5…0ece ptr = 0xa4bc // 0xeb5 @0x0
0x0eb5…0ece lno = 0x0578 // 0xeb7 @0x2
0x0eb5…0ece at0004 = ╱9e00╱ PROC ╱ // 0xeb9 @0x4
0x0eb5…0ece at0006 = ╱54╱T╱ // 0xebb @0x6
0x0eb5…0ece at0007 = ╱41╱A╱ // 0xebc @0x7
0x0eb5…0ece at0008 = ╱4c╱L╱ // 0xebd @0x8
0x0eb5…0ece at0009 = ╱5f╱_╱ // 0xebe @0x9
0x0eb5…0ece at000a = ╱43╱C╱ // 0xebf @0xa
0x0eb5…0ece at000b = ╱4f╱O╱ // 0xec0 @0xb
0x0eb5…0ece at000c = ╱4e╱N╱ // 0xec1 @0xc
0x0eb5…0ece at000d = ╱54╱T╱ // 0xec2 @0xd
0x0eb5…0ece at000e = ╱52╱R╱ // 0xec3 @0xe
0x0eb5…0ece at000f = ╱4f╱O╱ // 0xec4 @0xf
0x0eb5…0ece at0010 = ╱4c╱L╱ // 0xec5 @0x10
0x0eb5…0ece at0011 = ╱ed╱ ( ╱ // 0xec6 @0x11
0x0eb5…0ece at0012 = ╱b6╱ REF ╱ // 0xec7 @0x12
0x0eb5…0ece at0013 = ╱52╱R╱ // 0xec8 @0x13
0x0eb5…0ece at0014 = ╱53╱S╱ // 0xec9 @0x14
0x0eb5…0ece at0015 = ╱54╱T╱ // 0xeca @0x15
0x0eb5…0ece at0016 = ╱ef╱ $ ╱ // 0xecb @0x16
0x0eb5…0ece at0017 = ╱ee╱ ) ╱ // 0xecc @0x17
0x0eb5…0ece at0018 = EOL // 0xecd @0x18
0x0eb5…0ece }
0x0ece…0ee2 a4d0 01410 LET J := 0 ; OK := TRUE
0x0ece…0ee2 LineComal80 {
0x0ece…0ee2 ptr = 0xa4d0 // 0xece @0x0
0x0ece…0ee2 lno = 0x0582 // 0xed0 @0x2
0x0ece…0ee2 at0004 = ╱86╱ LET ╱ // 0xed2 @0x4
0x0ece…0ee2 at0005 = ╱4a╱J╱ // 0xed3 @0x5
0x0ece…0ee2 at0006 = ╱f0╱ := ╱ // 0xed4 @0x6
0x0ece…0ee2 at0007 = ╱30╱0╱ // 0xed5 @0x7
0x0ece…0ee2 at0008 = ╱f20000╱ // 0xed6 @0x8
0x0ece…0ee2 at000b = ╱ea╱ ; ╱ // 0xed9 @0xb
0x0ece…0ee2 at000c = ╱4f╱O╱ // 0xeda @0xc
0x0ece…0ee2 at000d = ╱4b╱K╱ // 0xedb @0xd
0x0ece…0ee2 at000e = ╱f0╱ := ╱ // 0xedc @0xe
0x0ece…0ee2 at000f = ╱54╱T╱ // 0xedd @0xf
0x0ece…0ee2 at0010 = ╱52╱R╱ // 0xede @0x10
0x0ece…0ee2 at0011 = ╱55╱U╱ // 0xedf @0x11
0x0ece…0ee2 at0012 = ╱45╱E╱ // 0xee0 @0x12
0x0ece…0ee2 at0013 = EOL // 0xee1 @0x13
0x0ece…0ee2 }
0x0ee2…0ef8 a4e6 01420 FOR I := 1 TO ( RST $ ) DO
0x0ee2…0ef8 LineComal80 {
0x0ee2…0ef8 ptr = 0xa4e6 // 0xee2 @0x0
0x0ee2…0ef8 lno = 0x058c // 0xee4 @0x2
0x0ee2…0ef8 at0004 = ╱8300╱ FOR ╱ // 0xee6 @0x4
0x0ee2…0ef8 at0006 = ╱49╱I╱ // 0xee8 @0x6
0x0ee2…0ef8 at0007 = ╱f0╱ := ╱ // 0xee9 @0x7
0x0ee2…0ef8 at0008 = ╱31╱1╱ // 0xeea @0x8
0x0ee2…0ef8 at0009 = ╱f20100╱ // 0xeeb @0x9
0x0ee2…0ef8 at000c = ╱b7cb╱ TO ╱ // 0xeee @0xc
0x0ee2…0ef8 at000e = ╱ed╱ ( ╱ // 0xef0 @0xe
0x0ee2…0ef8 at000f = ╱52╱R╱ // 0xef1 @0xf
0x0ee2…0ef8 at0010 = ╱53╱S╱ // 0xef2 @0x10
0x0ee2…0ef8 at0011 = ╱54╱T╱ // 0xef3 @0x11
0x0ee2…0ef8 at0012 = ╱ef╱ $ ╱ // 0xef4 @0x12
0x0ee2…0ef8 at0013 = ╱ee╱ ) ╱ // 0xef5 @0x13
0x0ee2…0ef8 at0014 = ╱bb╱ DO ╱ // 0xef6 @0x14
0x0ee2…0ef8 at0015 = EOL // 0xef7 @0x15
0x0ee2…0ef8 }
0x0ef8…0f29 a517 01430 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
0x0ef8…0f29 LineComal80 {
0x0ef8…0f29 ptr = 0xa517 // 0xef8 @0x0
0x0ef8…0f29 lno = 0x0596 // 0xefa @0x2
0x0ef8…0f29 at0004 = ╱8200╱ IF ╱ // 0xefc @0x4
0x0ef8…0f29 at0006 = ╱52╱R╱ // 0xefe @0x6
0x0ef8…0f29 at0007 = ╱53╱S╱ // 0xeff @0x7
0x0ef8…0f29 at0008 = ╱54╱T╱ // 0xf00 @0x8
0x0ef8…0f29 at0009 = ╱ef╱ $ ╱ // 0xf01 @0x9
0x0ef8…0f29 at000a = ╱ed╱ ( ╱ // 0xf02 @0xa
0x0ef8…0f29 at000b = ╱49╱I╱ // 0xf03 @0xb
0x0ef8…0f29 at000c = ╱ee╱ ) ╱ // 0xf04 @0xc
0x0ef8…0f29 at000d = ╱dc╱ IN ╱ // 0xf05 @0xd
0x0ef8…0f29 at000e = ╱54╱T╱ // 0xf06 @0xe
0x0ef8…0f29 at000f = ╱41╱A╱ // 0xf07 @0xf
0x0ef8…0f29 at0010 = ╱4c╱L╱ // 0xf08 @0x10
0x0ef8…0f29 at0011 = ╱ef╱ $ ╱ // 0xf09 @0x11
0x0ef8…0f29 at0012 = ╱eb╱ + ╱ // 0xf0a @0x12
0x0ef8…0f29 at0013 = ╱22╱"╱ // 0xf0b @0x13
0x0ef8…0f29 at0014 = ╱2e╱.╱ // 0xf0c @0x14
0x0ef8…0f29 at0015 = ╱22╱"╱ // 0xf0d @0x15
0x0ef8…0f29 at0016 = ╱b5╱ THEN ╱ // 0xf0e @0x16
0x0ef8…0f29 at0017 = ╱86╱ LET ╱ // 0xf0f @0x17
0x0ef8…0f29 at0018 = ╱4a╱J╱ // 0xf10 @0x18
0x0ef8…0f29 at0019 = ╱f0╱ := ╱ // 0xf11 @0x19
0x0ef8…0f29 at001a = ╱4a╱J╱ // 0xf12 @0x1a
0x0ef8…0f29 at001b = ╱e5╱ + ╱ // 0xf13 @0x1b
0x0ef8…0f29 at001c = ╱31╱1╱ // 0xf14 @0x1c
0x0ef8…0f29 at001d = ╱f20100╱ // 0xf15 @0x1d
0x0ef8…0f29 at0020 = ╱ea╱ ; ╱ // 0xf18 @0x20
0x0ef8…0f29 at0021 = ╱52╱R╱ // 0xf19 @0x21
0x0ef8…0f29 at0022 = ╱53╱S╱ // 0xf1a @0x22
0x0ef8…0f29 at0023 = ╱54╱T╱ // 0xf1b @0x23
0x0ef8…0f29 at0024 = ╱ef╱ $ ╱ // 0xf1c @0x24
0x0ef8…0f29 at0025 = ╱ed╱ ( ╱ // 0xf1d @0x25
0x0ef8…0f29 at0026 = ╱4a╱J╱ // 0xf1e @0x26
0x0ef8…0f29 at0027 = ╱ee╱ ) ╱ // 0xf1f @0x27
0x0ef8…0f29 at0028 = ╱f0╱ := ╱ // 0xf20 @0x28
0x0ef8…0f29 at0029 = ╱52╱R╱ // 0xf21 @0x29
0x0ef8…0f29 at002a = ╱53╱S╱ // 0xf22 @0x2a
0x0ef8…0f29 at002b = ╱54╱T╱ // 0xf23 @0x2b
0x0ef8…0f29 at002c = ╱ef╱ $ ╱ // 0xf24 @0x2c
0x0ef8…0f29 at002d = ╱ed╱ ( ╱ // 0xf25 @0x2d
0x0ef8…0f29 at002e = ╱49╱I╱ // 0xf26 @0x2e
0x0ef8…0f29 at002f = ╱ee╱ ) ╱ // 0xf27 @0x2f
0x0ef8…0f29 at0030 = EOL // 0xf28 @0x30
0x0ef8…0f29 }
0x0f29…0f30 a51e 01440 NEXT I
0x0f29…0f30 LineComal80 {
0x0f29…0f30 ptr = 0xa51e // 0xf29 @0x0
0x0f29…0f30 lno = 0x05a0 // 0xf2b @0x2
0x0f29…0f30 at0004 = ╱84╱ NEXT ╱ // 0xf2d @0x4
0x0f29…0f30 at0005 = ╱49╱I╱ // 0xf2e @0x5
0x0f29…0f30 at0006 = EOL // 0xf2f @0x6
0x0f29…0f30 }
0x0f30…0f3e a52c 01450 IF = 0 THEN
0x0f30…0f3e LineComal80 {
0x0f30…0f3e ptr = 0xa52c // 0xf30 @0x0
0x0f30…0f3e lno = 0x05aa // 0xf32 @0x2
0x0f30…0f3e at0004 = ╱9b004a╱ IF ╱ // 0xf34 @0x4
0x0f30…0f3e at0007 = ╱df╱ = ╱ // 0xf37 @0x7
0x0f30…0f3e at0008 = ╱30╱0╱ // 0xf38 @0x8
0x0f30…0f3e at0009 = ╱f20000╱ // 0xf39 @0x9
0x0f30…0f3e at000c = ╱b5╱ THEN ╱ // 0xf3c @0xc
0x0f30…0f3e at000d = EOL // 0xf3d @0xd
0x0f30…0f3e }
0x0f3e…0f4c a53a 01460 LET OK := FALSE
0x0f3e…0f4c LineComal80 {
0x0f3e…0f4c ptr = 0xa53a // 0xf3e @0x0
0x0f3e…0f4c lno = 0x05b4 // 0xf40 @0x2
0x0f3e…0f4c at0004 = ╱86╱ LET ╱ // 0xf42 @0x4
0x0f3e…0f4c at0005 = ╱4f╱O╱ // 0xf43 @0x5
0x0f3e…0f4c at0006 = ╱4b╱K╱ // 0xf44 @0x6
0x0f3e…0f4c at0007 = ╱f0╱ := ╱ // 0xf45 @0x7
0x0f3e…0f4c at0008 = ╱46╱F╱ // 0xf46 @0x8
0x0f3e…0f4c at0009 = ╱41╱A╱ // 0xf47 @0x9
0x0f3e…0f4c at000a = ╱4c╱L╱ // 0xf48 @0xa
0x0f3e…0f4c at000b = ╱53╱S╱ // 0xf49 @0xb
0x0f3e…0f4c at000c = ╱45╱E╱ // 0xf4a @0xc
0x0f3e…0f4c at000d = EOL // 0xf4b @0xd
0x0f3e…0f4c }
0x0f4c…0f53 a541 01470 ELSE
0x0f4c…0f53 LineComal80 {
0x0f4c…0f53 ptr = 0xa541 // 0xf4c @0x0
0x0f4c…0f53 lno = 0x05be // 0xf4e @0x2
0x0f4c…0f53 at0004 = ╱9a00╱ ELSE ╱ // 0xf50 @0x4
0x0f4c…0f53 at0006 = EOL // 0xf52 @0x6
0x0f4c…0f53 }
0x0f53…0f6a a558 01480 LET RST $ := RST $ ( 1 : J )
0x0f53…0f6a LineComal80 {
0x0f53…0f6a ptr = 0xa558 // 0xf53 @0x0
0x0f53…0f6a lno = 0x05c8 // 0xf55 @0x2
0x0f53…0f6a at0004 = ╱86╱ LET ╱ // 0xf57 @0x4
0x0f53…0f6a at0005 = ╱52╱R╱ // 0xf58 @0x5
0x0f53…0f6a at0006 = ╱53╱S╱ // 0xf59 @0x6
0x0f53…0f6a at0007 = ╱54╱T╱ // 0xf5a @0x7
0x0f53…0f6a at0008 = ╱ef╱ $ ╱ // 0xf5b @0x8
0x0f53…0f6a at0009 = ╱f0╱ := ╱ // 0xf5c @0x9
0x0f53…0f6a at000a = ╱52╱R╱ // 0xf5d @0xa
0x0f53…0f6a at000b = ╱53╱S╱ // 0xf5e @0xb
0x0f53…0f6a at000c = ╱54╱T╱ // 0xf5f @0xc
0x0f53…0f6a at000d = ╱ef╱ $ ╱ // 0xf60 @0xd
0x0f53…0f6a at000e = ╱ed╱ ( ╱ // 0xf61 @0xe
0x0f53…0f6a at000f = ╱31╱1╱ // 0xf62 @0xf
0x0f53…0f6a at0010 = ╱f20100╱ // 0xf63 @0x10
0x0f53…0f6a at0013 = ╱f1╱ : ╱ // 0xf66 @0x13
0x0f53…0f6a at0014 = ╱4a╱J╱ // 0xf67 @0x14
0x0f53…0f6a at0015 = ╱ee╱ ) ╱ // 0xf68 @0x15
0x0f53…0f6a at0016 = EOL // 0xf69 @0x16
0x0f53…0f6a }
0x0f6a…0f70 a55e 01490 ENDIF
0x0f6a…0f70 LineComal80 {
0x0f6a…0f70 ptr = 0xa55e // 0xf6a @0x0
0x0f6a…0f70 lno = 0x05d2 // 0xf6c @0x2
0x0f6a…0f70 at0004 = ╱9c╱ ENDIF ╱ // 0xf6e @0x4
0x0f6a…0f70 at0005 = EOL // 0xf6f @0x5
0x0f6a…0f70 }
0x0f70…0f81 a56f 01500 ENDPROC TAL_CONTROL
0x0f70…0f81 LineComal80 {
0x0f70…0f81 ptr = 0xa56f // 0xf70 @0x0
0x0f70…0f81 lno = 0x05dc // 0xf72 @0x2
0x0f70…0f81 at0004 = ╱9f╱ ENDPROC ╱ // 0xf74 @0x4
0x0f70…0f81 at0005 = ╱54╱T╱ // 0xf75 @0x5
0x0f70…0f81 at0006 = ╱41╱A╱ // 0xf76 @0x6
0x0f70…0f81 at0007 = ╱4c╱L╱ // 0xf77 @0x7
0x0f70…0f81 at0008 = ╱5f╱_╱ // 0xf78 @0x8
0x0f70…0f81 at0009 = ╱43╱C╱ // 0xf79 @0x9
0x0f70…0f81 at000a = ╱4f╱O╱ // 0xf7a @0xa
0x0f70…0f81 at000b = ╱4e╱N╱ // 0xf7b @0xb
0x0f70…0f81 at000c = ╱54╱T╱ // 0xf7c @0xc
0x0f70…0f81 at000d = ╱52╱R╱ // 0xf7d @0xd
0x0f70…0f81 at000e = ╱4f╱O╱ // 0xf7e @0xe
0x0f70…0f81 at000f = ╱4c╱L╱ // 0xf7f @0xf
0x0f70…0f81 at0010 = EOL // 0xf80 @0x10
0x0f70…0f81 }
0x0f81…0f86 a574 01510
0x0f81…0f86 LineComal80 {
0x0f81…0f86 ptr = 0xa574 // 0xf81 @0x0
0x0f81…0f86 lno = 0x05e6 // 0xf83 @0x2
0x0f81…0f86 at0004 = EOL // 0xf85 @0x4
0x0f81…0f86 }
0x0f86…0f99 a587 01520 PROC DIV_POSHOVED
0x0f86…0f99 LineComal80 {
0x0f86…0f99 ptr = 0xa587 // 0xf86 @0x0
0x0f86…0f99 lno = 0x05f0 // 0xf88 @0x2
0x0f86…0f99 at0004 = ╱9e00╱ PROC ╱ // 0xf8a @0x4
0x0f86…0f99 at0006 = ╱44╱D╱ // 0xf8c @0x6
0x0f86…0f99 at0007 = ╱49╱I╱ // 0xf8d @0x7
0x0f86…0f99 at0008 = ╱56╱V╱ // 0xf8e @0x8
0x0f86…0f99 at0009 = ╱5f╱_╱ // 0xf8f @0x9
0x0f86…0f99 at000a = ╱50╱P╱ // 0xf90 @0xa
0x0f86…0f99 at000b = ╱4f╱O╱ // 0xf91 @0xb
0x0f86…0f99 at000c = ╱53╱S╱ // 0xf92 @0xc
0x0f86…0f99 at000d = ╱48╱H╱ // 0xf93 @0xd
0x0f86…0f99 at000e = ╱4f╱O╱ // 0xf94 @0xe
0x0f86…0f99 at000f = ╱56╱V╱ // 0xf95 @0xf
0x0f86…0f99 at0010 = ╱45╱E╱ // 0xf96 @0x10
0x0f86…0f99 at0011 = ╱44╱D╱ // 0xf97 @0x11
0x0f86…0f99 at0012 = EOL // 0xf98 @0x12
0x0f86…0f99 }
0x0f99…0fd2 c179 01530 EXEC OVERSKRIFT ( "BOGF\RING…AF…DIVERSE…POSTERINGER" , 4 )
0x0f99…0fd2 LineComal80 {
0x0f99…0fd2 ptr = 0xc179 // 0xf99 @0x0
0x0f99…0fd2 lno = 0x05fa // 0xf9b @0x2
0x0f99…0fd2 at0004 = ╱9d╱ EXEC ╱ // 0xf9d @0x4
0x0f99…0fd2 at0005 = ╱4f╱O╱ // 0xf9e @0x5
0x0f99…0fd2 at0006 = ╱56╱V╱ // 0xf9f @0x6
0x0f99…0fd2 at0007 = ╱45╱E╱ // 0xfa0 @0x7
0x0f99…0fd2 at0008 = ╱52╱R╱ // 0xfa1 @0x8
0x0f99…0fd2 at0009 = ╱53╱S╱ // 0xfa2 @0x9
0x0f99…0fd2 at000a = ╱4b╱K╱ // 0xfa3 @0xa
0x0f99…0fd2 at000b = ╱52╱R╱ // 0xfa4 @0xb
0x0f99…0fd2 at000c = ╱49╱I╱ // 0xfa5 @0xc
0x0f99…0fd2 at000d = ╱46╱F╱ // 0xfa6 @0xd
0x0f99…0fd2 at000e = ╱54╱T╱ // 0xfa7 @0xe
0x0f99…0fd2 at000f = ╱ed╱ ( ╱ // 0xfa8 @0xf
0x0f99…0fd2 at0010 = ╱22╱"╱ // 0xfa9 @0x10
0x0f99…0fd2 at0011 = ╱42╱B╱ // 0xfaa @0x11
0x0f99…0fd2 at0012 = ╱4f╱O╱ // 0xfab @0x12
0x0f99…0fd2 at0013 = ╱47╱G╱ // 0xfac @0x13
0x0f99…0fd2 at0014 = ╱46╱F╱ // 0xfad @0x14
0x0f99…0fd2 at0015 = ╱5c╱\╱ // 0xfae @0x15
0x0f99…0fd2 at0016 = ╱52╱R╱ // 0xfaf @0x16
0x0f99…0fd2 at0017 = ╱49╱I╱ // 0xfb0 @0x17
0x0f99…0fd2 at0018 = ╱4e╱N╱ // 0xfb1 @0x18
0x0f99…0fd2 at0019 = ╱47╱G╱ // 0xfb2 @0x19
0x0f99…0fd2 at001a = ╱20╱…╱ // 0xfb3 @0x1a
0x0f99…0fd2 at001b = ╱41╱A╱ // 0xfb4 @0x1b
0x0f99…0fd2 at001c = ╱46╱F╱ // 0xfb5 @0x1c
0x0f99…0fd2 at001d = ╱20╱…╱ // 0xfb6 @0x1d
0x0f99…0fd2 at001e = ╱44╱D╱ // 0xfb7 @0x1e
0x0f99…0fd2 at001f = ╱49╱I╱ // 0xfb8 @0x1f
0x0f99…0fd2 at0020 = ╱56╱V╱ // 0xfb9 @0x20
0x0f99…0fd2 at0021 = ╱45╱E╱ // 0xfba @0x21
0x0f99…0fd2 at0022 = ╱52╱R╱ // 0xfbb @0x22
0x0f99…0fd2 at0023 = ╱53╱S╱ // 0xfbc @0x23
0x0f99…0fd2 at0024 = ╱45╱E╱ // 0xfbd @0x24
0x0f99…0fd2 at0025 = ╱20╱…╱ // 0xfbe @0x25
0x0f99…0fd2 at0026 = ╱50╱P╱ // 0xfbf @0x26
0x0f99…0fd2 at0027 = ╱4f╱O╱ // 0xfc0 @0x27
0x0f99…0fd2 at0028 = ╱53╱S╱ // 0xfc1 @0x28
0x0f99…0fd2 at0029 = ╱54╱T╱ // 0xfc2 @0x29
0x0f99…0fd2 at002a = ╱45╱E╱ // 0xfc3 @0x2a
0x0f99…0fd2 at002b = ╱52╱R╱ // 0xfc4 @0x2b
0x0f99…0fd2 at002c = ╱49╱I╱ // 0xfc5 @0x2c
0x0f99…0fd2 at002d = ╱4e╱N╱ // 0xfc6 @0x2d
0x0f99…0fd2 at002e = ╱47╱G╱ // 0xfc7 @0x2e
0x0f99…0fd2 at002f = ╱45╱E╱ // 0xfc8 @0x2f
0x0f99…0fd2 at0030 = ╱52╱R╱ // 0xfc9 @0x30
0x0f99…0fd2 at0031 = ╱22╱"╱ // 0xfca @0x31
0x0f99…0fd2 at0032 = ╱ec╱ , ╱ // 0xfcb @0x32
0x0f99…0fd2 at0033 = ╱34╱4╱ // 0xfcc @0x33
0x0f99…0fd2 at0034 = ╱f20400╱ // 0xfcd @0x34
0x0f99…0fd2 at0037 = ╱ee╱ ) ╱ // 0xfd0 @0x37
0x0f99…0fd2 at0038 = EOL // 0xfd1 @0x38
0x0f99…0fd2 }
0x0fd2…1009 a5f7 01530 PRINT "<C0105>………BILAG……TEKST……………………………………………MOMS……KO"
0x0fd2…1009 LineComal80 {
0x0fd2…1009 ptr = 0xa5f7 // 0xfd2 @0x0
0x0fd2…1009 lno = 0x05fa // 0xfd4 @0x2
0x0fd2…1009 at0004 = ╱92╱ PRINT ╱ // 0xfd6 @0x4
0x0fd2…1009 at0005 = ╱22╱"╱ // 0xfd7 @0x5
0x0fd2…1009 at0006 = ╱3c╱<╱ // 0xfd8 @0x6
0x0fd2…1009 at0007 = ╱43╱C╱ // 0xfd9 @0x7
0x0fd2…1009 at0008 = ╱30╱0╱ // 0xfda @0x8
0x0fd2…1009 at0009 = ╱31╱1╱ // 0xfdb @0x9
0x0fd2…1009 at000a = ╱30╱0╱ // 0xfdc @0xa
0x0fd2…1009 at000b = ╱35╱5╱ // 0xfdd @0xb
0x0fd2…1009 at000c = ╱3e╱>╱ // 0xfde @0xc
0x0fd2…1009 at000d = ╱20╱…╱ // 0xfdf @0xd
0x0fd2…1009 at000e = ╱20╱…╱ // 0xfe0 @0xe
0x0fd2…1009 at000f = ╱20╱…╱ // 0xfe1 @0xf
0x0fd2…1009 at0010 = ╱42╱B╱ // 0xfe2 @0x10
0x0fd2…1009 at0011 = ╱49╱I╱ // 0xfe3 @0x11
0x0fd2…1009 at0012 = ╱4c╱L╱ // 0xfe4 @0x12
0x0fd2…1009 at0013 = ╱41╱A╱ // 0xfe5 @0x13
0x0fd2…1009 at0014 = ╱47╱G╱ // 0xfe6 @0x14
0x0fd2…1009 at0015 = ╱20╱…╱ // 0xfe7 @0x15
0x0fd2…1009 at0016 = ╱20╱…╱ // 0xfe8 @0x16
0x0fd2…1009 at0017 = ╱54╱T╱ // 0xfe9 @0x17
0x0fd2…1009 at0018 = ╱45╱E╱ // 0xfea @0x18
0x0fd2…1009 at0019 = ╱4b╱K╱ // 0xfeb @0x19
0x0fd2…1009 at001a = ╱53╱S╱ // 0xfec @0x1a
0x0fd2…1009 at001b = ╱54╱T╱ // 0xfed @0x1b
0x0fd2…1009 at001c = ╱20╱…╱ // 0xfee @0x1c
0x0fd2…1009 at001d = ╱20╱…╱ // 0xfef @0x1d
0x0fd2…1009 at001e = ╱20╱…╱ // 0xff0 @0x1e
0x0fd2…1009 at001f = ╱20╱…╱ // 0xff1 @0x1f
0x0fd2…1009 at0020 = ╱20╱…╱ // 0xff2 @0x20
0x0fd2…1009 at0021 = ╱20╱…╱ // 0xff3 @0x21
0x0fd2…1009 at0022 = ╱20╱…╱ // 0xff4 @0x22
0x0fd2…1009 at0023 = ╱20╱…╱ // 0xff5 @0x23
0x0fd2…1009 at0024 = ╱20╱…╱ // 0xff6 @0x24
0x0fd2…1009 at0025 = ╱20╱…╱ // 0xff7 @0x25
0x0fd2…1009 at0026 = ╱20╱…╱ // 0xff8 @0x26
0x0fd2…1009 at0027 = ╱20╱…╱ // 0xff9 @0x27
0x0fd2…1009 at0028 = ╱20╱…╱ // 0xffa @0x28
0x0fd2…1009 at0029 = ╱20╱…╱ // 0xffb @0x29
0x0fd2…1009 at002a = ╱20╱…╱ // 0xffc @0x2a
0x0fd2…1009 at002b = ╱20╱…╱ // 0xffd @0x2b
0x0fd2…1009 at002c = ╱20╱…╱ // 0xffe @0x2c
0x0fd2…1009 at002d = ╱4d╱M╱ // 0xfff @0x2d
0x0fd2…1009 at002e = ╱4f╱O╱ // 0x1000 @0x2e
0x0fd2…1009 at002f = ╱4d╱M╱ // 0x1001 @0x2f
0x0fd2…1009 at0030 = ╱53╱S╱ // 0x1002 @0x30
0x0fd2…1009 at0031 = ╱20╱…╱ // 0x1003 @0x31
0x0fd2…1009 at0032 = ╱20╱…╱ // 0x1004 @0x32
0x0fd2…1009 at0033 = ╱4b╱K╱ // 0x1005 @0x33
0x0fd2…1009 at0034 = ╱4f╱O╱ // 0x1006 @0x34
0x0fd2…1009 at0035 = ╱22╱"╱ // 0x1007 @0x35
0x0fd2…1009 at0036 = EOL // 0x1008 @0x36
0x0fd2…1009 }
0x1009…1040 a62e 01540 PRINT "<C0106>…………NR……………………………………………………………………KODE……NU"
0x1009…1040 LineComal80 {
0x1009…1040 ptr = 0xa62e // 0x1009 @0x0
0x1009…1040 lno = 0x0604 // 0x100b @0x2
0x1009…1040 at0004 = ╱92╱ PRINT ╱ // 0x100d @0x4
0x1009…1040 at0005 = ╱22╱"╱ // 0x100e @0x5
0x1009…1040 at0006 = ╱3c╱<╱ // 0x100f @0x6
0x1009…1040 at0007 = ╱43╱C╱ // 0x1010 @0x7
0x1009…1040 at0008 = ╱30╱0╱ // 0x1011 @0x8
0x1009…1040 at0009 = ╱31╱1╱ // 0x1012 @0x9
0x1009…1040 at000a = ╱30╱0╱ // 0x1013 @0xa
0x1009…1040 at000b = ╱36╱6╱ // 0x1014 @0xb
0x1009…1040 at000c = ╱3e╱>╱ // 0x1015 @0xc
0x1009…1040 at000d = ╱20╱…╱ // 0x1016 @0xd
0x1009…1040 at000e = ╱20╱…╱ // 0x1017 @0xe
0x1009…1040 at000f = ╱20╱…╱ // 0x1018 @0xf
0x1009…1040 at0010 = ╱20╱…╱ // 0x1019 @0x10
0x1009…1040 at0011 = ╱4e╱N╱ // 0x101a @0x11
0x1009…1040 at0012 = ╱52╱R╱ // 0x101b @0x12
0x1009…1040 at0013 = ╱20╱…╱ // 0x101c @0x13
0x1009…1040 at0014 = ╱20╱…╱ // 0x101d @0x14
0x1009…1040 at0015 = ╱20╱…╱ // 0x101e @0x15
0x1009…1040 at0016 = ╱20╱…╱ // 0x101f @0x16
0x1009…1040 at0017 = ╱20╱…╱ // 0x1020 @0x17
0x1009…1040 at0018 = ╱20╱…╱ // 0x1021 @0x18
0x1009…1040 at0019 = ╱20╱…╱ // 0x1022 @0x19
0x1009…1040 at001a = ╱20╱…╱ // 0x1023 @0x1a
0x1009…1040 at001b = ╱20╱…╱ // 0x1024 @0x1b
0x1009…1040 at001c = ╱20╱…╱ // 0x1025 @0x1c
0x1009…1040 at001d = ╱20╱…╱ // 0x1026 @0x1d
0x1009…1040 at001e = ╱20╱…╱ // 0x1027 @0x1e
0x1009…1040 at001f = ╱20╱…╱ // 0x1028 @0x1f
0x1009…1040 at0020 = ╱20╱…╱ // 0x1029 @0x20
0x1009…1040 at0021 = ╱20╱…╱ // 0x102a @0x21
0x1009…1040 at0022 = ╱20╱…╱ // 0x102b @0x22
0x1009…1040 at0023 = ╱20╱…╱ // 0x102c @0x23
0x1009…1040 at0024 = ╱20╱…╱ // 0x102d @0x24
0x1009…1040 at0025 = ╱20╱…╱ // 0x102e @0x25
0x1009…1040 at0026 = ╱20╱…╱ // 0x102f @0x26
0x1009…1040 at0027 = ╱20╱…╱ // 0x1030 @0x27
0x1009…1040 at0028 = ╱20╱…╱ // 0x1031 @0x28
0x1009…1040 at0029 = ╱20╱…╱ // 0x1032 @0x29
0x1009…1040 at002a = ╱20╱…╱ // 0x1033 @0x2a
0x1009…1040 at002b = ╱20╱…╱ // 0x1034 @0x2b
0x1009…1040 at002c = ╱20╱…╱ // 0x1035 @0x2c
0x1009…1040 at002d = ╱4b╱K╱ // 0x1036 @0x2d
0x1009…1040 at002e = ╱4f╱O╱ // 0x1037 @0x2e
0x1009…1040 at002f = ╱44╱D╱ // 0x1038 @0x2f
0x1009…1040 at0030 = ╱45╱E╱ // 0x1039 @0x30
0x1009…1040 at0031 = ╱20╱…╱ // 0x103a @0x31
0x1009…1040 at0032 = ╱20╱…╱ // 0x103b @0x32
0x1009…1040 at0033 = ╱4e╱N╱ // 0x103c @0x33
0x1009…1040 at0034 = ╱55╱U╱ // 0x103d @0x34
0x1009…1040 at0035 = ╱22╱"╱ // 0x103e @0x35
0x1009…1040 at0036 = EOL // 0x103f @0x36
0x1009…1040 }
0x1040…1077 a665 01550 PRINT "<C0107>----------------------------------------"
0x1040…1077 LineComal80 {
0x1040…1077 ptr = 0xa665 // 0x1040 @0x0
0x1040…1077 lno = 0x060e // 0x1042 @0x2
0x1040…1077 at0004 = ╱92╱ PRINT ╱ // 0x1044 @0x4
0x1040…1077 at0005 = ╱22╱"╱ // 0x1045 @0x5
0x1040…1077 at0006 = ╱3c╱<╱ // 0x1046 @0x6
0x1040…1077 at0007 = ╱43╱C╱ // 0x1047 @0x7
0x1040…1077 at0008 = ╱30╱0╱ // 0x1048 @0x8
0x1040…1077 at0009 = ╱31╱1╱ // 0x1049 @0x9
0x1040…1077 at000a = ╱30╱0╱ // 0x104a @0xa
0x1040…1077 at000b = ╱37╱7╱ // 0x104b @0xb
0x1040…1077 at000c = ╱3e╱>╱ // 0x104c @0xc
0x1040…1077 at000d = ╱2d╱-╱ // 0x104d @0xd
0x1040…1077 at000e = ╱2d╱-╱ // 0x104e @0xe
0x1040…1077 at000f = ╱2d╱-╱ // 0x104f @0xf
0x1040…1077 at0010 = ╱2d╱-╱ // 0x1050 @0x10
0x1040…1077 at0011 = ╱2d╱-╱ // 0x1051 @0x11
0x1040…1077 at0012 = ╱2d╱-╱ // 0x1052 @0x12
0x1040…1077 at0013 = ╱2d╱-╱ // 0x1053 @0x13
0x1040…1077 at0014 = ╱2d╱-╱ // 0x1054 @0x14
0x1040…1077 at0015 = ╱2d╱-╱ // 0x1055 @0x15
0x1040…1077 at0016 = ╱2d╱-╱ // 0x1056 @0x16
0x1040…1077 at0017 = ╱2d╱-╱ // 0x1057 @0x17
0x1040…1077 at0018 = ╱2d╱-╱ // 0x1058 @0x18
0x1040…1077 at0019 = ╱2d╱-╱ // 0x1059 @0x19
0x1040…1077 at001a = ╱2d╱-╱ // 0x105a @0x1a
0x1040…1077 at001b = ╱2d╱-╱ // 0x105b @0x1b
0x1040…1077 at001c = ╱2d╱-╱ // 0x105c @0x1c
0x1040…1077 at001d = ╱2d╱-╱ // 0x105d @0x1d
0x1040…1077 at001e = ╱2d╱-╱ // 0x105e @0x1e
0x1040…1077 at001f = ╱2d╱-╱ // 0x105f @0x1f
0x1040…1077 at0020 = ╱2d╱-╱ // 0x1060 @0x20
0x1040…1077 at0021 = ╱2d╱-╱ // 0x1061 @0x21
0x1040…1077 at0022 = ╱2d╱-╱ // 0x1062 @0x22
0x1040…1077 at0023 = ╱2d╱-╱ // 0x1063 @0x23
0x1040…1077 at0024 = ╱2d╱-╱ // 0x1064 @0x24
0x1040…1077 at0025 = ╱2d╱-╱ // 0x1065 @0x25
0x1040…1077 at0026 = ╱2d╱-╱ // 0x1066 @0x26
0x1040…1077 at0027 = ╱2d╱-╱ // 0x1067 @0x27
0x1040…1077 at0028 = ╱2d╱-╱ // 0x1068 @0x28
0x1040…1077 at0029 = ╱2d╱-╱ // 0x1069 @0x29
0x1040…1077 at002a = ╱2d╱-╱ // 0x106a @0x2a
0x1040…1077 at002b = ╱2d╱-╱ // 0x106b @0x2b
0x1040…1077 at002c = ╱2d╱-╱ // 0x106c @0x2c
0x1040…1077 at002d = ╱2d╱-╱ // 0x106d @0x2d
0x1040…1077 at002e = ╱2d╱-╱ // 0x106e @0x2e
0x1040…1077 at002f = ╱2d╱-╱ // 0x106f @0x2f
0x1040…1077 at0030 = ╱2d╱-╱ // 0x1070 @0x30
0x1040…1077 at0031 = ╱2d╱-╱ // 0x1071 @0x31
0x1040…1077 at0032 = ╱2d╱-╱ // 0x1072 @0x32
0x1040…1077 at0033 = ╱2d╱-╱ // 0x1073 @0x33
0x1040…1077 at0034 = ╱2d╱-╱ // 0x1074 @0x34
0x1040…1077 at0035 = ╱22╱"╱ // 0x1075 @0x35
0x1040…1077 at0036 = EOL // 0x1076 @0x36
0x1040…1077 }
0x1077…10ae a69c 01560 PRINT "<C4105>NTO-…………………DEBET………………KREDIT………………F/R/S…"
0x1077…10ae LineComal80 {
0x1077…10ae ptr = 0xa69c // 0x1077 @0x0
0x1077…10ae lno = 0x0618 // 0x1079 @0x2
0x1077…10ae at0004 = ╱92╱ PRINT ╱ // 0x107b @0x4
0x1077…10ae at0005 = ╱22╱"╱ // 0x107c @0x5
0x1077…10ae at0006 = ╱3c╱<╱ // 0x107d @0x6
0x1077…10ae at0007 = ╱43╱C╱ // 0x107e @0x7
0x1077…10ae at0008 = ╱34╱4╱ // 0x107f @0x8
0x1077…10ae at0009 = ╱31╱1╱ // 0x1080 @0x9
0x1077…10ae at000a = ╱30╱0╱ // 0x1081 @0xa
0x1077…10ae at000b = ╱35╱5╱ // 0x1082 @0xb
0x1077…10ae at000c = ╱3e╱>╱ // 0x1083 @0xc
0x1077…10ae at000d = ╱4e╱N╱ // 0x1084 @0xd
0x1077…10ae at000e = ╱54╱T╱ // 0x1085 @0xe
0x1077…10ae at000f = ╱4f╱O╱ // 0x1086 @0xf
0x1077…10ae at0010 = ╱2d╱-╱ // 0x1087 @0x10
0x1077…10ae at0011 = ╱20╱…╱ // 0x1088 @0x11
0x1077…10ae at0012 = ╱20╱…╱ // 0x1089 @0x12
0x1077…10ae at0013 = ╱20╱…╱ // 0x108a @0x13
0x1077…10ae at0014 = ╱20╱…╱ // 0x108b @0x14
0x1077…10ae at0015 = ╱20╱…╱ // 0x108c @0x15
0x1077…10ae at0016 = ╱20╱…╱ // 0x108d @0x16
0x1077…10ae at0017 = ╱20╱…╱ // 0x108e @0x17
0x1077…10ae at0018 = ╱44╱D╱ // 0x108f @0x18
0x1077…10ae at0019 = ╱45╱E╱ // 0x1090 @0x19
0x1077…10ae at001a = ╱42╱B╱ // 0x1091 @0x1a
0x1077…10ae at001b = ╱45╱E╱ // 0x1092 @0x1b
0x1077…10ae at001c = ╱54╱T╱ // 0x1093 @0x1c
0x1077…10ae at001d = ╱20╱…╱ // 0x1094 @0x1d
0x1077…10ae at001e = ╱20╱…╱ // 0x1095 @0x1e
0x1077…10ae at001f = ╱20╱…╱ // 0x1096 @0x1f
0x1077…10ae at0020 = ╱20╱…╱ // 0x1097 @0x20
0x1077…10ae at0021 = ╱20╱…╱ // 0x1098 @0x21
0x1077…10ae at0022 = ╱20╱…╱ // 0x1099 @0x22
0x1077…10ae at0023 = ╱4b╱K╱ // 0x109a @0x23
0x1077…10ae at0024 = ╱52╱R╱ // 0x109b @0x24
0x1077…10ae at0025 = ╱45╱E╱ // 0x109c @0x25
0x1077…10ae at0026 = ╱44╱D╱ // 0x109d @0x26
0x1077…10ae at0027 = ╱49╱I╱ // 0x109e @0x27
0x1077…10ae at0028 = ╱54╱T╱ // 0x109f @0x28
0x1077…10ae at0029 = ╱20╱…╱ // 0x10a0 @0x29
0x1077…10ae at002a = ╱20╱…╱ // 0x10a1 @0x2a
0x1077…10ae at002b = ╱20╱…╱ // 0x10a2 @0x2b
0x1077…10ae at002c = ╱20╱…╱ // 0x10a3 @0x2c
0x1077…10ae at002d = ╱20╱…╱ // 0x10a4 @0x2d
0x1077…10ae at002e = ╱20╱…╱ // 0x10a5 @0x2e
0x1077…10ae at002f = ╱46╱F╱ // 0x10a6 @0x2f
0x1077…10ae at0030 = ╱2f╱/╱ // 0x10a7 @0x30
0x1077…10ae at0031 = ╱52╱R╱ // 0x10a8 @0x31
0x1077…10ae at0032 = ╱2f╱/╱ // 0x10a9 @0x32
0x1077…10ae at0033 = ╱53╱S╱ // 0x10aa @0x33
0x1077…10ae at0034 = ╱20╱…╱ // 0x10ab @0x34
0x1077…10ae at0035 = ╱22╱"╱ // 0x10ac @0x35
0x1077…10ae at0036 = EOL // 0x10ad @0x36
0x1077…10ae }
0x10ae…10e4 a6d2 01570 PRINT "<C4106>MMER……………………………………………………………………………………………"
0x10ae…10e4 LineComal80 {
0x10ae…10e4 ptr = 0xa6d2 // 0x10ae @0x0
0x10ae…10e4 lno = 0x0622 // 0x10b0 @0x2
0x10ae…10e4 at0004 = ╱92╱ PRINT ╱ // 0x10b2 @0x4
0x10ae…10e4 at0005 = ╱22╱"╱ // 0x10b3 @0x5
0x10ae…10e4 at0006 = ╱3c╱<╱ // 0x10b4 @0x6
0x10ae…10e4 at0007 = ╱43╱C╱ // 0x10b5 @0x7
0x10ae…10e4 at0008 = ╱34╱4╱ // 0x10b6 @0x8
0x10ae…10e4 at0009 = ╱31╱1╱ // 0x10b7 @0x9
0x10ae…10e4 at000a = ╱30╱0╱ // 0x10b8 @0xa
0x10ae…10e4 at000b = ╱36╱6╱ // 0x10b9 @0xb
0x10ae…10e4 at000c = ╱3e╱>╱ // 0x10ba @0xc
0x10ae…10e4 at000d = ╱4d╱M╱ // 0x10bb @0xd
0x10ae…10e4 at000e = ╱4d╱M╱ // 0x10bc @0xe
0x10ae…10e4 at000f = ╱45╱E╱ // 0x10bd @0xf
0x10ae…10e4 at0010 = ╱52╱R╱ // 0x10be @0x10
0x10ae…10e4 at0011 = ╱20╱…╱ // 0x10bf @0x11
0x10ae…10e4 at0012 = ╱20╱…╱ // 0x10c0 @0x12
0x10ae…10e4 at0013 = ╱20╱…╱ // 0x10c1 @0x13
0x10ae…10e4 at0014 = ╱20╱…╱ // 0x10c2 @0x14
0x10ae…10e4 at0015 = ╱20╱…╱ // 0x10c3 @0x15
0x10ae…10e4 at0016 = ╱20╱…╱ // 0x10c4 @0x16
0x10ae…10e4 at0017 = ╱20╱…╱ // 0x10c5 @0x17
0x10ae…10e4 at0018 = ╱20╱…╱ // 0x10c6 @0x18
0x10ae…10e4 at0019 = ╱20╱…╱ // 0x10c7 @0x19
0x10ae…10e4 at001a = ╱20╱…╱ // 0x10c8 @0x1a
0x10ae…10e4 at001b = ╱20╱…╱ // 0x10c9 @0x1b
0x10ae…10e4 at001c = ╱20╱…╱ // 0x10ca @0x1c
0x10ae…10e4 at001d = ╱20╱…╱ // 0x10cb @0x1d
0x10ae…10e4 at001e = ╱20╱…╱ // 0x10cc @0x1e
0x10ae…10e4 at001f = ╱20╱…╱ // 0x10cd @0x1f
0x10ae…10e4 at0020 = ╱20╱…╱ // 0x10ce @0x20
0x10ae…10e4 at0021 = ╱20╱…╱ // 0x10cf @0x21
0x10ae…10e4 at0022 = ╱20╱…╱ // 0x10d0 @0x22
0x10ae…10e4 at0023 = ╱20╱…╱ // 0x10d1 @0x23
0x10ae…10e4 at0024 = ╱20╱…╱ // 0x10d2 @0x24
0x10ae…10e4 at0025 = ╱20╱…╱ // 0x10d3 @0x25
0x10ae…10e4 at0026 = ╱20╱…╱ // 0x10d4 @0x26
0x10ae…10e4 at0027 = ╱20╱…╱ // 0x10d5 @0x27
0x10ae…10e4 at0028 = ╱20╱…╱ // 0x10d6 @0x28
0x10ae…10e4 at0029 = ╱20╱…╱ // 0x10d7 @0x29
0x10ae…10e4 at002a = ╱20╱…╱ // 0x10d8 @0x2a
0x10ae…10e4 at002b = ╱20╱…╱ // 0x10d9 @0x2b
0x10ae…10e4 at002c = ╱20╱…╱ // 0x10da @0x2c
0x10ae…10e4 at002d = ╱20╱…╱ // 0x10db @0x2d
0x10ae…10e4 at002e = ╱20╱…╱ // 0x10dc @0x2e
0x10ae…10e4 at002f = ╱20╱…╱ // 0x10dd @0x2f
0x10ae…10e4 at0030 = ╱20╱…╱ // 0x10de @0x30
0x10ae…10e4 at0031 = ╱20╱…╱ // 0x10df @0x31
0x10ae…10e4 at0032 = ╱20╱…╱ // 0x10e0 @0x32
0x10ae…10e4 at0033 = ╱20╱…╱ // 0x10e1 @0x33
0x10ae…10e4 at0034 = ╱22╱"╱ // 0x10e2 @0x34
0x10ae…10e4 at0035 = EOL // 0x10e3 @0x35
0x10ae…10e4 }
0x10e4…111b a709 01580 PRINT "<C4107>----------------------------------------"
0x10e4…111b LineComal80 {
0x10e4…111b ptr = 0xa709 // 0x10e4 @0x0
0x10e4…111b lno = 0x062c // 0x10e6 @0x2
0x10e4…111b at0004 = ╱92╱ PRINT ╱ // 0x10e8 @0x4
0x10e4…111b at0005 = ╱22╱"╱ // 0x10e9 @0x5
0x10e4…111b at0006 = ╱3c╱<╱ // 0x10ea @0x6
0x10e4…111b at0007 = ╱43╱C╱ // 0x10eb @0x7
0x10e4…111b at0008 = ╱34╱4╱ // 0x10ec @0x8
0x10e4…111b at0009 = ╱31╱1╱ // 0x10ed @0x9
0x10e4…111b at000a = ╱30╱0╱ // 0x10ee @0xa
0x10e4…111b at000b = ╱37╱7╱ // 0x10ef @0xb
0x10e4…111b at000c = ╱3e╱>╱ // 0x10f0 @0xc
0x10e4…111b at000d = ╱2d╱-╱ // 0x10f1 @0xd
0x10e4…111b at000e = ╱2d╱-╱ // 0x10f2 @0xe
0x10e4…111b at000f = ╱2d╱-╱ // 0x10f3 @0xf
0x10e4…111b at0010 = ╱2d╱-╱ // 0x10f4 @0x10
0x10e4…111b at0011 = ╱2d╱-╱ // 0x10f5 @0x11
0x10e4…111b at0012 = ╱2d╱-╱ // 0x10f6 @0x12
0x10e4…111b at0013 = ╱2d╱-╱ // 0x10f7 @0x13
0x10e4…111b at0014 = ╱2d╱-╱ // 0x10f8 @0x14
0x10e4…111b at0015 = ╱2d╱-╱ // 0x10f9 @0x15
0x10e4…111b at0016 = ╱2d╱-╱ // 0x10fa @0x16
0x10e4…111b at0017 = ╱2d╱-╱ // 0x10fb @0x17
0x10e4…111b at0018 = ╱2d╱-╱ // 0x10fc @0x18
0x10e4…111b at0019 = ╱2d╱-╱ // 0x10fd @0x19
0x10e4…111b at001a = ╱2d╱-╱ // 0x10fe @0x1a
0x10e4…111b at001b = ╱2d╱-╱ // 0x10ff @0x1b
0x10e4…111b at001c = ╱2d╱-╱ // 0x1100 @0x1c
0x10e4…111b at001d = ╱2d╱-╱ // 0x1101 @0x1d
0x10e4…111b at001e = ╱2d╱-╱ // 0x1102 @0x1e
0x10e4…111b at001f = ╱2d╱-╱ // 0x1103 @0x1f
0x10e4…111b at0020 = ╱2d╱-╱ // 0x1104 @0x20
0x10e4…111b at0021 = ╱2d╱-╱ // 0x1105 @0x21
0x10e4…111b at0022 = ╱2d╱-╱ // 0x1106 @0x22
0x10e4…111b at0023 = ╱2d╱-╱ // 0x1107 @0x23
0x10e4…111b at0024 = ╱2d╱-╱ // 0x1108 @0x24
0x10e4…111b at0025 = ╱2d╱-╱ // 0x1109 @0x25
0x10e4…111b at0026 = ╱2d╱-╱ // 0x110a @0x26
0x10e4…111b at0027 = ╱2d╱-╱ // 0x110b @0x27
0x10e4…111b at0028 = ╱2d╱-╱ // 0x110c @0x28
0x10e4…111b at0029 = ╱2d╱-╱ // 0x110d @0x29
0x10e4…111b at002a = ╱2d╱-╱ // 0x110e @0x2a
0x10e4…111b at002b = ╱2d╱-╱ // 0x110f @0x2b
0x10e4…111b at002c = ╱2d╱-╱ // 0x1110 @0x2c
0x10e4…111b at002d = ╱2d╱-╱ // 0x1111 @0x2d
0x10e4…111b at002e = ╱2d╱-╱ // 0x1112 @0x2e
0x10e4…111b at002f = ╱2d╱-╱ // 0x1113 @0x2f
0x10e4…111b at0030 = ╱2d╱-╱ // 0x1114 @0x30
0x10e4…111b at0031 = ╱2d╱-╱ // 0x1115 @0x31
0x10e4…111b at0032 = ╱2d╱-╱ // 0x1116 @0x32
0x10e4…111b at0033 = ╱2d╱-╱ // 0x1117 @0x33
0x10e4…111b at0034 = ╱2d╱-╱ // 0x1118 @0x34
0x10e4…111b at0035 = ╱22╱"╱ // 0x1119 @0x35
0x10e4…111b at0036 = EOL // 0x111a @0x36
0x10e4…111b }
0x111b…112d a71b 01590 ENDPROC DIV_POSHOVED
0x111b…112d LineComal80 {
0x111b…112d ptr = 0xa71b // 0x111b @0x0
0x111b…112d lno = 0x0636 // 0x111d @0x2
0x111b…112d at0004 = ╱9f╱ ENDPROC ╱ // 0x111f @0x4
0x111b…112d at0005 = ╱44╱D╱ // 0x1120 @0x5
0x111b…112d at0006 = ╱49╱I╱ // 0x1121 @0x6
0x111b…112d at0007 = ╱56╱V╱ // 0x1122 @0x7
0x111b…112d at0008 = ╱5f╱_╱ // 0x1123 @0x8
0x111b…112d at0009 = ╱50╱P╱ // 0x1124 @0x9
0x111b…112d at000a = ╱4f╱O╱ // 0x1125 @0xa
0x111b…112d at000b = ╱53╱S╱ // 0x1126 @0xb
0x111b…112d at000c = ╱48╱H╱ // 0x1127 @0xc
0x111b…112d at000d = ╱4f╱O╱ // 0x1128 @0xd
0x111b…112d at000e = ╱56╱V╱ // 0x1129 @0xe
0x111b…112d at000f = ╱45╱E╱ // 0x112a @0xf
0x111b…112d at0010 = ╱44╱D╱ // 0x112b @0x10
0x111b…112d at0011 = EOL // 0x112c @0x11
0x111b…112d }
0x112d…1132 a720 01600
0x112d…1132 LineComal80 {
0x112d…1132 ptr = 0xa720 // 0x112d @0x0
0x112d…1132 lno = 0x0640 // 0x112f @0x2
0x112d…1132 at0004 = EOL // 0x1131 @0x4
0x112d…1132 }
0x1132…114a a738 01610 PROC OVERSKRIFT ( ST $ , L )
0x1132…114a LineComal80 {
0x1132…114a ptr = 0xa738 // 0x1132 @0x0
0x1132…114a lno = 0x064a // 0x1134 @0x2
0x1132…114a at0004 = ╱9e00╱ PROC ╱ // 0x1136 @0x4
0x1132…114a at0006 = ╱4f╱O╱ // 0x1138 @0x6
0x1132…114a at0007 = ╱56╱V╱ // 0x1139 @0x7
0x1132…114a at0008 = ╱45╱E╱ // 0x113a @0x8
0x1132…114a at0009 = ╱52╱R╱ // 0x113b @0x9
0x1132…114a at000a = ╱53╱S╱ // 0x113c @0xa
0x1132…114a at000b = ╱4b╱K╱ // 0x113d @0xb
0x1132…114a at000c = ╱52╱R╱ // 0x113e @0xc
0x1132…114a at000d = ╱49╱I╱ // 0x113f @0xd
0x1132…114a at000e = ╱46╱F╱ // 0x1140 @0xe
0x1132…114a at000f = ╱54╱T╱ // 0x1141 @0xf
0x1132…114a at0010 = ╱ed╱ ( ╱ // 0x1142 @0x10
0x1132…114a at0011 = ╱53╱S╱ // 0x1143 @0x11
0x1132…114a at0012 = ╱54╱T╱ // 0x1144 @0x12
0x1132…114a at0013 = ╱ef╱ $ ╱ // 0x1145 @0x13
0x1132…114a at0014 = ╱ec╱ , ╱ // 0x1146 @0x14
0x1132…114a at0015 = ╱4c╱L╱ // 0x1147 @0x15
0x1132…114a at0016 = ╱ee╱ ) ╱ // 0x1148 @0x16
0x1132…114a at0017 = EOL // 0x1149 @0x17
0x1132…114a }
0x114a…1170 a75e 01620 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x114a…1170 LineComal80 {
0x114a…1170 ptr = 0xa75e // 0x114a @0x0
0x114a…1170 lno = 0x0654 // 0x114c @0x2
0x114a…1170 at0004 = ╱92╱ PRINT ╱ // 0x114e @0x4
0x114a…1170 at0005 = ╱22╱"╱ // 0x114f @0x5
0x114a…1170 at0006 = ╱3c╱<╱ // 0x1150 @0x6
0x114a…1170 at0007 = ╱58╱X╱ // 0x1151 @0x7
0x114a…1170 at0008 = ╱43╱C╱ // 0x1152 @0x8
0x114a…1170 at0009 = ╱30╱0╱ // 0x1153 @0x9
0x114a…1170 at000a = ╱31╱1╱ // 0x1154 @0xa
0x114a…1170 at000b = ╱30╱0╱ // 0x1155 @0xb
0x114a…1170 at000c = ╱31╱1╱ // 0x1156 @0xc
0x114a…1170 at000d = ╱3e╱>╱ // 0x1157 @0xd
0x114a…1170 at000e = ╱46╱F╱ // 0x1158 @0xe
0x114a…1170 at000f = ╱69╱i╱ // 0x1159 @0xf
0x114a…1170 at0010 = ╱72╱r╱ // 0x115a @0x10
0x114a…1170 at0011 = ╱6d╱m╱ // 0x115b @0x11
0x114a…1170 at0012 = ╱61╱a╱ // 0x115c @0x12
0x114a…1170 at0013 = ╱6e╱n╱ // 0x115d @0x13
0x114a…1170 at0014 = ╱61╱a╱ // 0x115e @0x14
0x114a…1170 at0015 = ╱76╱v╱ // 0x115f @0x15
0x114a…1170 at0016 = ╱6e╱n╱ // 0x1160 @0x16
0x114a…1170 at0017 = ╱3a╱:╱ // 0x1161 @0x17
0x114a…1170 at0018 = ╱20╱…╱ // 0x1162 @0x18
0x114a…1170 at0019 = ╱22╱"╱ // 0x1163 @0x19
0x114a…1170 at001a = ╱ea╱ ; ╱ // 0x1164 @0x1a
0x114a…1170 at001b = ╱46╱F╱ // 0x1165 @0x1b
0x114a…1170 at001c = ╱49╱I╱ // 0x1166 @0x1c
0x114a…1170 at001d = ╱52╱R╱ // 0x1167 @0x1d
0x114a…1170 at001e = ╱4d╱M╱ // 0x1168 @0x1e
0x114a…1170 at001f = ╱41╱A╱ // 0x1169 @0x1f
0x114a…1170 at0020 = ╱4e╱N╱ // 0x116a @0x20
0x114a…1170 at0021 = ╱41╱A╱ // 0x116b @0x21
0x114a…1170 at0022 = ╱56╱V╱ // 0x116c @0x22
0x114a…1170 at0023 = ╱4e╱N╱ // 0x116d @0x23
0x114a…1170 at0024 = ╱ef╱ $ ╱ // 0x116e @0x24
0x114a…1170 at0025 = EOL // 0x116f @0x25
0x114a…1170 }
0x1170…11b8 a7a6 01630 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x1170…11b8 LineComal80 {
0x1170…11b8 ptr = 0xa7a6 // 0x1170 @0x0
0x1170…11b8 lno = 0x065e // 0x1172 @0x2
0x1170…11b8 at0004 = ╱92╱ PRINT ╱ // 0x1174 @0x4
0x1170…11b8 at0005 = ╱22╱"╱ // 0x1175 @0x5
0x1170…11b8 at0006 = ╱3c╱<╱ // 0x1176 @0x6
0x1170…11b8 at0007 = ╱53╱S╱ // 0x1177 @0x7
0x1170…11b8 at0008 = ╱43╱C╱ // 0x1178 @0x8
0x1170…11b8 at0009 = ╱36╱6╱ // 0x1179 @0x9
0x1170…11b8 at000a = ╱35╱5╱ // 0x117a @0xa
0x1170…11b8 at000b = ╱30╱0╱ // 0x117b @0xb
0x1170…11b8 at000c = ╱31╱1╱ // 0x117c @0xc
0x1170…11b8 at000d = ╱3e╱>╱ // 0x117d @0xd
0x1170…11b8 at000e = ╱44╱D╱ // 0x117e @0xe
0x1170…11b8 at000f = ╱61╱a╱ // 0x117f @0xf
0x1170…11b8 at0010 = ╱74╱t╱ // 0x1180 @0x10
0x1170…11b8 at0011 = ╱6f╱o╱ // 0x1181 @0x11
0x1170…11b8 at0012 = ╱3a╱:╱ // 0x1182 @0x12
0x1170…11b8 at0013 = ╱20╱…╱ // 0x1183 @0x13
0x1170…11b8 at0014 = ╱22╱"╱ // 0x1184 @0x14
0x1170…11b8 at0015 = ╱ea╱ ; ╱ // 0x1185 @0x15
0x1170…11b8 at0016 = ╱53╱S╱ // 0x1186 @0x16
0x1170…11b8 at0017 = ╱59╱Y╱ // 0x1187 @0x17
0x1170…11b8 at0018 = ╱53╱S╱ // 0x1188 @0x18
0x1170…11b8 at0019 = ╱54╱T╱ // 0x1189 @0x19
0x1170…11b8 at001a = ╱5f╱_╱ // 0x118a @0x1a
0x1170…11b8 at001b = ╱44╱D╱ // 0x118b @0x1b
0x1170…11b8 at001c = ╱41╱A╱ // 0x118c @0x1c
0x1170…11b8 at001d = ╱54╱T╱ // 0x118d @0x1d
0x1170…11b8 at001e = ╱ef╱ $ ╱ // 0x118e @0x1e
0x1170…11b8 at001f = ╱ed╱ ( ╱ // 0x118f @0x1f
0x1170…11b8 at0020 = ╱31╱1╱ // 0x1190 @0x20
0x1170…11b8 at0021 = ╱f20100╱ // 0x1191 @0x21
0x1170…11b8 at0024 = ╱f1╱ : ╱ // 0x1194 @0x24
0x1170…11b8 at0025 = ╱32╱2╱ // 0x1195 @0x25
0x1170…11b8 at0026 = ╱f20200╱ // 0x1196 @0x26
0x1170…11b8 at0029 = ╱ee╱ ) ╱ // 0x1199 @0x29
0x1170…11b8 at002a = ╱ea╱ ; ╱ // 0x119a @0x2a
0x1170…11b8 at002b = ╱22╱"╱ // 0x119b @0x2b
0x1170…11b8 at002c = ╱2e╱.╱ // 0x119c @0x2c
0x1170…11b8 at002d = ╱22╱"╱ // 0x119d @0x2d
0x1170…11b8 at002e = ╱ea╱ ; ╱ // 0x119e @0x2e
0x1170…11b8 at002f = ╱53╱S╱ // 0x119f @0x2f
0x1170…11b8 at0030 = ╱59╱Y╱ // 0x11a0 @0x30
0x1170…11b8 at0031 = ╱53╱S╱ // 0x11a1 @0x31
0x1170…11b8 at0032 = ╱54╱T╱ // 0x11a2 @0x32
0x1170…11b8 at0033 = ╱5f╱_╱ // 0x11a3 @0x33
0x1170…11b8 at0034 = ╱44╱D╱ // 0x11a4 @0x34
0x1170…11b8 at0035 = ╱41╱A╱ // 0x11a5 @0x35
0x1170…11b8 at0036 = ╱54╱T╱ // 0x11a6 @0x36
0x1170…11b8 at0037 = ╱ef╱ $ ╱ // 0x11a7 @0x37
0x1170…11b8 at0038 = ╱ed╱ ( ╱ // 0x11a8 @0x38
0x1170…11b8 at0039 = ╱33╱3╱ // 0x11a9 @0x39
0x1170…11b8 at003a = ╱f20300╱ // 0x11aa @0x3a
0x1170…11b8 at003d = ╱f1╱ : ╱ // 0x11ad @0x3d
0x1170…11b8 at003e = ╱32╱2╱ // 0x11ae @0x3e
0x1170…11b8 at003f = ╱f20200╱ // 0x11af @0x3f
0x1170…11b8 at0042 = ╱ee╱ ) ╱ // 0x11b2 @0x42
0x1170…11b8 at0043 = ╱ea╱ ; ╱ // 0x11b3 @0x43
0x1170…11b8 at0044 = ╱22╱"╱ // 0x11b4 @0x44
0x1170…11b8 at0045 = ╱2e╱.╱ // 0x11b5 @0x45
0x1170…11b8 at0046 = ╱22╱"╱ // 0x11b6 @0x46
0x1170…11b8 at0047 = EOL // 0x11b7 @0x47
0x1170…11b8 }
0x11b8…11d2 a7c0 01640 PRINT SYST_DAT $ ( 5 : 2 )
0x11b8…11d2 LineComal80 {
0x11b8…11d2 ptr = 0xa7c0 // 0x11b8 @0x0
0x11b8…11d2 lno = 0x0668 // 0x11ba @0x2
0x11b8…11d2 at0004 = ╱92╱ PRINT ╱ // 0x11bc @0x4
0x11b8…11d2 at0005 = ╱53╱S╱ // 0x11bd @0x5
0x11b8…11d2 at0006 = ╱59╱Y╱ // 0x11be @0x6
0x11b8…11d2 at0007 = ╱53╱S╱ // 0x11bf @0x7
0x11b8…11d2 at0008 = ╱54╱T╱ // 0x11c0 @0x8
0x11b8…11d2 at0009 = ╱5f╱_╱ // 0x11c1 @0x9
0x11b8…11d2 at000a = ╱44╱D╱ // 0x11c2 @0xa
0x11b8…11d2 at000b = ╱41╱A╱ // 0x11c3 @0xb
0x11b8…11d2 at000c = ╱54╱T╱ // 0x11c4 @0xc
0x11b8…11d2 at000d = ╱ef╱ $ ╱ // 0x11c5 @0xd
0x11b8…11d2 at000e = ╱ed╱ ( ╱ // 0x11c6 @0xe
0x11b8…11d2 at000f = ╱35╱5╱ // 0x11c7 @0xf
0x11b8…11d2 at0010 = ╱f20500╱ // 0x11c8 @0x10
0x11b8…11d2 at0013 = ╱f1╱ : ╱ // 0x11cb @0x13
0x11b8…11d2 at0014 = ╱32╱2╱ // 0x11cc @0x14
0x11b8…11d2 at0015 = ╱f20200╱ // 0x11cd @0x15
0x11b8…11d2 at0018 = ╱ee╱ ) ╱ // 0x11d0 @0x18
0x11b8…11d2 at0019 = EOL // 0x11d1 @0x19
0x11b8…11d2 }
0x11d2…11ee a7dc 01660 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
0x11d2…11ee LineComal80 {
0x11d2…11ee ptr = 0xa7dc // 0x11d2 @0x0
0x11d2…11ee lno = 0x067c // 0x11d4 @0x2
0x11d2…11ee at0004 = ╱a1╱ CURSOR ╱ // 0x11d6 @0x4
0x11d2…11ee at0005 = ╱33╱3╱ // 0x11d7 @0x5
0x11d2…11ee at0006 = ╱34╱4╱ // 0x11d8 @0x6
0x11d2…11ee at0007 = ╱f22200╱ // 0x11d9 @0x7
0x11d2…11ee at000a = ╱e6╱ - ╱ // 0x11dc @0xa
0x11d2…11ee at000b = ╱c6╱ INT ╱ // 0x11dd @0xb
0x11d2…11ee at000c = ╱ed╱ ( ╱ // 0x11de @0xc
0x11d2…11ee at000d = ╱cb╱ // 0x11df @0xd
0x11d2…11ee at000e = ╱ed╱ ( ╱ // 0x11e0 @0xe
0x11d2…11ee at000f = ╱53╱S╱ // 0x11e1 @0xf
0x11d2…11ee at0010 = ╱54╱T╱ // 0x11e2 @0x10
0x11d2…11ee at0011 = ╱ef╱ $ ╱ // 0x11e3 @0x11
0x11d2…11ee at0012 = ╱ee╱ ) ╱ // 0x11e4 @0x12
0x11d2…11ee at0013 = ╱e8╱ / ╱ // 0x11e5 @0x13
0x11d2…11ee at0014 = ╱32╱2╱ // 0x11e6 @0x14
0x11d2…11ee at0015 = ╱f20200╱ // 0x11e7 @0x15
0x11d2…11ee at0018 = ╱ee╱ ) ╱ // 0x11ea @0x18
0x11d2…11ee at0019 = ╱ec╱ , ╱ // 0x11eb @0x19
0x11d2…11ee at001a = ╱4c╱L╱ // 0x11ec @0x1a
0x11d2…11ee at001b = EOL // 0x11ed @0x1b
0x11d2…11ee }
0x11ee…1205 a7f3 01670 PRINT "***…" ; ST $ ; "…***"
0x11ee…1205 LineComal80 {
0x11ee…1205 ptr = 0xa7f3 // 0x11ee @0x0
0x11ee…1205 lno = 0x0686 // 0x11f0 @0x2
0x11ee…1205 at0004 = ╱92╱ PRINT ╱ // 0x11f2 @0x4
0x11ee…1205 at0005 = ╱22╱"╱ // 0x11f3 @0x5
0x11ee…1205 at0006 = ╱2a╱*╱ // 0x11f4 @0x6
0x11ee…1205 at0007 = ╱2a╱*╱ // 0x11f5 @0x7
0x11ee…1205 at0008 = ╱2a╱*╱ // 0x11f6 @0x8
0x11ee…1205 at0009 = ╱20╱…╱ // 0x11f7 @0x9
0x11ee…1205 at000a = ╱22╱"╱ // 0x11f8 @0xa
0x11ee…1205 at000b = ╱ea╱ ; ╱ // 0x11f9 @0xb
0x11ee…1205 at000c = ╱53╱S╱ // 0x11fa @0xc
0x11ee…1205 at000d = ╱54╱T╱ // 0x11fb @0xd
0x11ee…1205 at000e = ╱ef╱ $ ╱ // 0x11fc @0xe
0x11ee…1205 at000f = ╱ea╱ ; ╱ // 0x11fd @0xf
0x11ee…1205 at0010 = ╱22╱"╱ // 0x11fe @0x10
0x11ee…1205 at0011 = ╱20╱…╱ // 0x11ff @0x11
0x11ee…1205 at0012 = ╱2a╱*╱ // 0x1200 @0x12
0x11ee…1205 at0013 = ╱2a╱*╱ // 0x1201 @0x13
0x11ee…1205 at0014 = ╱2a╱*╱ // 0x1202 @0x14
0x11ee…1205 at0015 = ╱22╱"╱ // 0x1203 @0x15
0x11ee…1205 at0016 = EOL // 0x1204 @0x16
0x11ee…1205 }
0x1205…1215 a803 01680 ENDPROC OVERSKRIFT
0x1205…1215 LineComal80 {
0x1205…1215 ptr = 0xa803 // 0x1205 @0x0
0x1205…1215 lno = 0x0690 // 0x1207 @0x2
0x1205…1215 at0004 = ╱9f╱ ENDPROC ╱ // 0x1209 @0x4
0x1205…1215 at0005 = ╱4f╱O╱ // 0x120a @0x5
0x1205…1215 at0006 = ╱56╱V╱ // 0x120b @0x6
0x1205…1215 at0007 = ╱45╱E╱ // 0x120c @0x7
0x1205…1215 at0008 = ╱52╱R╱ // 0x120d @0x8
0x1205…1215 at0009 = ╱53╱S╱ // 0x120e @0x9
0x1205…1215 at000a = ╱4b╱K╱ // 0x120f @0xa
0x1205…1215 at000b = ╱52╱R╱ // 0x1210 @0xb
0x1205…1215 at000c = ╱49╱I╱ // 0x1211 @0xc
0x1205…1215 at000d = ╱46╱F╱ // 0x1212 @0xd
0x1205…1215 at000e = ╱54╱T╱ // 0x1213 @0xe
0x1205…1215 at000f = EOL // 0x1214 @0xf
0x1205…1215 }
0x1215…121a a808 01690
0x1215…121a LineComal80 {
0x1215…121a ptr = 0xa808 // 0x1215 @0x0
0x1215…121a lno = 0x069a // 0x1217 @0x2
0x1215…121a at0004 = EOL // 0x1219 @0x4
0x1215…121a }
0x121a…122d a81b 01700 PROC SL_FEJLLINIE
0x121a…122d LineComal80 {
0x121a…122d ptr = 0xa81b // 0x121a @0x0
0x121a…122d lno = 0x06a4 // 0x121c @0x2
0x121a…122d at0004 = ╱9e00╱ PROC ╱ // 0x121e @0x4
0x121a…122d at0006 = ╱53╱S╱ // 0x1220 @0x6
0x121a…122d at0007 = ╱4c╱L╱ // 0x1221 @0x7
0x121a…122d at0008 = ╱5f╱_╱ // 0x1222 @0x8
0x121a…122d at0009 = ╱46╱F╱ // 0x1223 @0x9
0x121a…122d at000a = ╱45╱E╱ // 0x1224 @0xa
0x121a…122d at000b = ╱4a╱J╱ // 0x1225 @0xb
0x121a…122d at000c = ╱4c╱L╱ // 0x1226 @0xc
0x121a…122d at000d = ╱4c╱L╱ // 0x1227 @0xd
0x121a…122d at000e = ╱49╱I╱ // 0x1228 @0xe
0x121a…122d at000f = ╱4e╱N╱ // 0x1229 @0xf
0x121a…122d at0010 = ╱49╱I╱ // 0x122a @0x10
0x121a…122d at0011 = ╱45╱E╱ // 0x122b @0x11
0x121a…122d at0012 = EOL // 0x122c @0x12
0x121a…122d }
0x122d…123a a828 01710 LET OK := TRUE
0x122d…123a LineComal80 {
0x122d…123a ptr = 0xa828 // 0x122d @0x0
0x122d…123a lno = 0x06ae // 0x122f @0x2
0x122d…123a at0004 = ╱86╱ LET ╱ // 0x1231 @0x4
0x122d…123a at0005 = ╱4f╱O╱ // 0x1232 @0x5
0x122d…123a at0006 = ╱4b╱K╱ // 0x1233 @0x6
0x122d…123a at0007 = ╱f0╱ := ╱ // 0x1234 @0x7
0x122d…123a at0008 = ╱54╱T╱ // 0x1235 @0x8
0x122d…123a at0009 = ╱52╱R╱ // 0x1236 @0x9
0x122d…123a at000a = ╱55╱U╱ // 0x1237 @0xa
0x122d…123a at000b = ╱45╱E╱ // 0x1238 @0xb
0x122d…123a at000c = EOL // 0x1239 @0xc
0x122d…123a }
0x123a…124e a83c 01720 PRINT "<C0102>" ; SPC $
0x123a…124e LineComal80 {
0x123a…124e ptr = 0xa83c // 0x123a @0x0
0x123a…124e lno = 0x06b8 // 0x123c @0x2
0x123a…124e at0004 = ╱92╱ PRINT ╱ // 0x123e @0x4
0x123a…124e at0005 = ╱22╱"╱ // 0x123f @0x5
0x123a…124e at0006 = ╱3c╱<╱ // 0x1240 @0x6
0x123a…124e at0007 = ╱43╱C╱ // 0x1241 @0x7
0x123a…124e at0008 = ╱30╱0╱ // 0x1242 @0x8
0x123a…124e at0009 = ╱31╱1╱ // 0x1243 @0x9
0x123a…124e at000a = ╱30╱0╱ // 0x1244 @0xa
0x123a…124e at000b = ╱32╱2╱ // 0x1245 @0xb
0x123a…124e at000c = ╱3e╱>╱ // 0x1246 @0xc
0x123a…124e at000d = ╱22╱"╱ // 0x1247 @0xd
0x123a…124e at000e = ╱ea╱ ; ╱ // 0x1248 @0xe
0x123a…124e at000f = ╱53╱S╱ // 0x1249 @0xf
0x123a…124e at0010 = ╱50╱P╱ // 0x124a @0x10
0x123a…124e at0011 = ╱43╱C╱ // 0x124b @0x11
0x123a…124e at0012 = ╱ef╱ $ ╱ // 0x124c @0x12
0x123a…124e at0013 = EOL // 0x124d @0x13
0x123a…124e }
0x124e…1260 a84e 01730 ENDPROC SL_FEJLLINIE
0x124e…1260 LineComal80 {
0x124e…1260 ptr = 0xa84e // 0x124e @0x0
0x124e…1260 lno = 0x06c2 // 0x1250 @0x2
0x124e…1260 at0004 = ╱9f╱ ENDPROC ╱ // 0x1252 @0x4
0x124e…1260 at0005 = ╱53╱S╱ // 0x1253 @0x5
0x124e…1260 at0006 = ╱4c╱L╱ // 0x1254 @0x6
0x124e…1260 at0007 = ╱5f╱_╱ // 0x1255 @0x7
0x124e…1260 at0008 = ╱46╱F╱ // 0x1256 @0x8
0x124e…1260 at0009 = ╱45╱E╱ // 0x1257 @0x9
0x124e…1260 at000a = ╱4a╱J╱ // 0x1258 @0xa
0x124e…1260 at000b = ╱4c╱L╱ // 0x1259 @0xb
0x124e…1260 at000c = ╱4c╱L╱ // 0x125a @0xc
0x124e…1260 at000d = ╱49╱I╱ // 0x125b @0xd
0x124e…1260 at000e = ╱4e╱N╱ // 0x125c @0xe
0x124e…1260 at000f = ╱49╱I╱ // 0x125d @0xf
0x124e…1260 at0010 = ╱45╱E╱ // 0x125e @0x10
0x124e…1260 at0011 = EOL // 0x125f @0x11
0x124e…1260 }
0x1260…1265 a853 01740
0x1260…1265 LineComal80 {
0x1260…1265 ptr = 0xa853 // 0x1260 @0x0
0x1260…1265 lno = 0x06cc // 0x1262 @0x2
0x1260…1265 at0004 = EOL // 0x1264 @0x4
0x1260…1265 }
0x1265…1275 a863 01750 PROC FEJL ( ST $ )
0x1265…1275 LineComal80 {
0x1265…1275 ptr = 0xa863 // 0x1265 @0x0
0x1265…1275 lno = 0x06d6 // 0x1267 @0x2
0x1265…1275 at0004 = ╱9e00╱ PROC ╱ // 0x1269 @0x4
0x1265…1275 at0006 = ╱46╱F╱ // 0x126b @0x6
0x1265…1275 at0007 = ╱45╱E╱ // 0x126c @0x7
0x1265…1275 at0008 = ╱4a╱J╱ // 0x126d @0x8
0x1265…1275 at0009 = ╱4c╱L╱ // 0x126e @0x9
0x1265…1275 at000a = ╱ed╱ ( ╱ // 0x126f @0xa
0x1265…1275 at000b = ╱53╱S╱ // 0x1270 @0xb
0x1265…1275 at000c = ╱54╱T╱ // 0x1271 @0xc
0x1265…1275 at000d = ╱ef╱ $ ╱ // 0x1272 @0xd
0x1265…1275 at000e = ╱ee╱ ) ╱ // 0x1273 @0xe
0x1265…1275 at000f = EOL // 0x1274 @0xf
0x1265…1275 }
0x1275…1283 a871 01760 LET OK := FALSE
0x1275…1283 LineComal80 {
0x1275…1283 ptr = 0xa871 // 0x1275 @0x0
0x1275…1283 lno = 0x06e0 // 0x1277 @0x2
0x1275…1283 at0004 = ╱86╱ LET ╱ // 0x1279 @0x4
0x1275…1283 at0005 = ╱4f╱O╱ // 0x127a @0x5
0x1275…1283 at0006 = ╱4b╱K╱ // 0x127b @0x6
0x1275…1283 at0007 = ╱f0╱ := ╱ // 0x127c @0x7
0x1275…1283 at0008 = ╱46╱F╱ // 0x127d @0x8
0x1275…1283 at0009 = ╱41╱A╱ // 0x127e @0x9
0x1275…1283 at000a = ╱4c╱L╱ // 0x127f @0xa
0x1275…1283 at000b = ╱53╱S╱ // 0x1280 @0xb
0x1275…1283 at000c = ╱45╱E╱ // 0x1281 @0xc
0x1275…1283 at000d = EOL // 0x1282 @0xd
0x1275…1283 }
0x1283…129f a88d 01770 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
0x1283…129f LineComal80 {
0x1283…129f ptr = 0xa88d // 0x1283 @0x0
0x1283…129f lno = 0x06ea // 0x1285 @0x2
0x1283…129f at0004 = ╱a1╱ CURSOR ╱ // 0x1287 @0x4
0x1283…129f at0005 = ╱33╱3╱ // 0x1288 @0x5
0x1283…129f at0006 = ╱36╱6╱ // 0x1289 @0x6
0x1283…129f at0007 = ╱f22400╱ // 0x128a @0x7
0x1283…129f at000a = ╱e6╱ - ╱ // 0x128d @0xa
0x1283…129f at000b = ╱cb╱ // 0x128e @0xb
0x1283…129f at000c = ╱ed╱ ( ╱ // 0x128f @0xc
0x1283…129f at000d = ╱53╱S╱ // 0x1290 @0xd
0x1283…129f at000e = ╱54╱T╱ // 0x1291 @0xe
0x1283…129f at000f = ╱ef╱ $ ╱ // 0x1292 @0xf
0x1283…129f at0010 = ╱ee╱ ) ╱ // 0x1293 @0x10
0x1283…129f at0011 = ╱e8╱ / ╱ // 0x1294 @0x11
0x1283…129f at0012 = ╱32╱2╱ // 0x1295 @0x12
0x1283…129f at0013 = ╱f20200╱ // 0x1296 @0x13
0x1283…129f at0016 = ╱ec╱ , ╱ // 0x1299 @0x16
0x1283…129f at0017 = ╱32╱2╱ // 0x129a @0x17
0x1283…129f at0018 = ╱f20200╱ // 0x129b @0x18
0x1283…129f at001b = EOL // 0x129e @0x1b
0x1283…129f }
0x129f…12be a8ac 01780 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
0x129f…12be LineComal80 {
0x129f…12be ptr = 0xa8ac // 0x129f @0x0
0x129f…12be lno = 0x06f4 // 0x12a1 @0x2
0x129f…12be at0004 = ╱92╱ PRINT ╱ // 0x12a3 @0x4
0x129f…12be at0005 = ╱22╱"╱ // 0x12a4 @0x5
0x129f…12be at0006 = ╱2a╱*╱ // 0x12a5 @0x6
0x129f…12be at0007 = ╱2a╱*╱ // 0x12a6 @0x7
0x129f…12be at0008 = ╱2a╱*╱ // 0x12a7 @0x8
0x129f…12be at0009 = ╱20╱…╱ // 0x12a8 @0x9
0x129f…12be at000a = ╱22╱"╱ // 0x12a9 @0xa
0x129f…12be at000b = ╱eb╱ + ╱ // 0x12aa @0xb
0x129f…12be at000c = ╱53╱S╱ // 0x12ab @0xc
0x129f…12be at000d = ╱54╱T╱ // 0x12ac @0xd
0x129f…12be at000e = ╱ef╱ $ ╱ // 0x12ad @0xe
0x129f…12be at000f = ╱eb╱ + ╱ // 0x12ae @0xf
0x129f…12be at0010 = ╱22╱"╱ // 0x12af @0x10
0x129f…12be at0011 = ╱20╱…╱ // 0x12b0 @0x11
0x129f…12be at0012 = ╱2a╱*╱ // 0x12b1 @0x12
0x129f…12be at0013 = ╱2a╱*╱ // 0x12b2 @0x13
0x129f…12be at0014 = ╱2a╱*╱ // 0x12b3 @0x14
0x129f…12be at0015 = ╱22╱"╱ // 0x12b4 @0x15
0x129f…12be at0016 = ╱ea╱ ; ╱ // 0x12b5 @0x16
0x129f…12be at0017 = ╱d0╱ CHR$ ╱ // 0x12b6 @0x17
0x129f…12be at0018 = ╱ed╱ ( ╱ // 0x12b7 @0x18
0x129f…12be at0019 = ╱37╱7╱ // 0x12b8 @0x19
0x129f…12be at001a = ╱f20700╱ // 0x12b9 @0x1a
0x129f…12be at001d = ╱ee╱ ) ╱ // 0x12bc @0x1d
0x129f…12be at001e = EOL // 0x12bd @0x1e
0x129f…12be }
0x12be…12c8 a8b6 01790 ENDPROC FEJL
0x12be…12c8 LineComal80 {
0x12be…12c8 ptr = 0xa8b6 // 0x12be @0x0
0x12be…12c8 lno = 0x06fe // 0x12c0 @0x2
0x12be…12c8 at0004 = ╱9f╱ ENDPROC ╱ // 0x12c2 @0x4
0x12be…12c8 at0005 = ╱46╱F╱ // 0x12c3 @0x5
0x12be…12c8 at0006 = ╱45╱E╱ // 0x12c4 @0x6
0x12be…12c8 at0007 = ╱4a╱J╱ // 0x12c5 @0x7
0x12be…12c8 at0008 = ╱4c╱L╱ // 0x12c6 @0x8
0x12be…12c8 at0009 = EOL // 0x12c7 @0x9
0x12be…12c8 }
0x12c8…12cd a8bb 01800
0x12c8…12cd LineComal80 {
0x12c8…12cd ptr = 0xa8bb // 0x12c8 @0x0
0x12c8…12cd lno = 0x0708 // 0x12ca @0x2
0x12c8…12cd at0004 = EOL // 0x12cc @0x4
0x12c8…12cd }
0x12cd…12e0 a8ce 01810 PROC L[S_KONTO ( P )
0x12cd…12e0 LineComal80 {
0x12cd…12e0 ptr = 0xa8ce // 0x12cd @0x0
0x12cd…12e0 lno = 0x0712 // 0x12cf @0x2
0x12cd…12e0 at0004 = ╱9e00╱ PROC ╱ // 0x12d1 @0x4
0x12cd…12e0 at0006 = ╱4c╱L╱ // 0x12d3 @0x6
0x12cd…12e0 at0007 = ╱5b╱[╱ // 0x12d4 @0x7
0x12cd…12e0 at0008 = ╱53╱S╱ // 0x12d5 @0x8
0x12cd…12e0 at0009 = ╱5f╱_╱ // 0x12d6 @0x9
0x12cd…12e0 at000a = ╱4b╱K╱ // 0x12d7 @0xa
0x12cd…12e0 at000b = ╱4f╱O╱ // 0x12d8 @0xb
0x12cd…12e0 at000c = ╱4e╱N╱ // 0x12d9 @0xc
0x12cd…12e0 at000d = ╱54╱T╱ // 0x12da @0xd
0x12cd…12e0 at000e = ╱4f╱O╱ // 0x12db @0xe
0x12cd…12e0 at000f = ╱ed╱ ( ╱ // 0x12dc @0xf
0x12cd…12e0 at0010 = ╱50╱P╱ // 0x12dd @0x10
0x12cd…12e0 at0011 = ╱ee╱ ) ╱ // 0x12de @0x11
0x12cd…12e0 at0012 = EOL // 0x12df @0x12
0x12cd…12e0 }
0x12e0…1325 a913 01820 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x12e0…1325 LineComal80 {
0x12e0…1325 ptr = 0xa913 // 0x12e0 @0x0
0x12e0…1325 lno = 0x071c // 0x12e2 @0x2
0x12e0…1325 at0004 = ╱a9╱ GET ╱ // 0x12e4 @0x4
0x12e0…1325 at0005 = ╱4b╱K╱ // 0x12e5 @0x5
0x12e0…1325 at0006 = ╱4f╱O╱ // 0x12e6 @0x6
0x12e0…1325 at0007 = ╱4e╱N╱ // 0x12e7 @0x7
0x12e0…1325 at0008 = ╱54╱T╱ // 0x12e8 @0x8
0x12e0…1325 at0009 = ╱4f╱O╱ // 0x12e9 @0x9
0x12e0…1325 at000a = ╱ef╱ $ ╱ // 0x12ea @0xa
0x12e0…1325 at000b = ╱ec╱ , ╱ // 0x12eb @0xb
0x12e0…1325 at000c = ╱50╱P╱ // 0x12ec @0xc
0x12e0…1325 at000d = ╱f1╱ : ╱ // 0x12ed @0xd
0x12e0…1325 at000e = ╱4b╱K╱ // 0x12ee @0xe
0x12e0…1325 at000f = ╱54╱T╱ // 0x12ef @0xf
0x12e0…1325 at0010 = ╱4f╱O╱ // 0x12f0 @0x10
0x12e0…1325 at0011 = ╱5f╱_╱ // 0x12f1 @0x11
0x12e0…1325 at0012 = ╱54╱T╱ // 0x12f2 @0x12
0x12e0…1325 at0013 = ╱59╱Y╱ // 0x12f3 @0x13
0x12e0…1325 at0014 = ╱50╱P╱ // 0x12f4 @0x14
0x12e0…1325 at0015 = ╱45╱E╱ // 0x12f5 @0x15
0x12e0…1325 at0016 = ╱ef╱ $ ╱ // 0x12f6 @0x16
0x12e0…1325 at0017 = ╱ec╱ , ╱ // 0x12f7 @0x17
0x12e0…1325 at0018 = ╱4b╱K╱ // 0x12f8 @0x18
0x12e0…1325 at0019 = ╱54╱T╱ // 0x12f9 @0x19
0x12e0…1325 at001a = ╱4f╱O╱ // 0x12fa @0x1a
0x12e0…1325 at001b = ╱5f╱_╱ // 0x12fb @0x1b
0x12e0…1325 at001c = ╱4e╱N╱ // 0x12fc @0x1c
0x12e0…1325 at001d = ╱41╱A╱ // 0x12fd @0x1d
0x12e0…1325 at001e = ╱56╱V╱ // 0x12fe @0x1e
0x12e0…1325 at001f = ╱4e╱N╱ // 0x12ff @0x1f
0x12e0…1325 at0020 = ╱ef╱ $ ╱ // 0x1300 @0x20
0x12e0…1325 at0021 = ╱ec╱ , ╱ // 0x1301 @0x21
0x12e0…1325 at0022 = ╱4b╱K╱ // 0x1302 @0x22
0x12e0…1325 at0023 = ╱54╱T╱ // 0x1303 @0x23
0x12e0…1325 at0024 = ╱4f╱O╱ // 0x1304 @0x24
0x12e0…1325 at0025 = ╱5f╱_╱ // 0x1305 @0x25
0x12e0…1325 at0026 = ╱50╱P╱ // 0x1306 @0x26
0x12e0…1325 at0027 = ╱52╱R╱ // 0x1307 @0x27
0x12e0…1325 at0028 = ╱49╱I╱ // 0x1308 @0x28
0x12e0…1325 at0029 = ╱4d╱M╱ // 0x1309 @0x29
0x12e0…1325 at002a = ╱4f╱O╱ // 0x130a @0x2a
0x12e0…1325 at002b = ╱ec╱ , ╱ // 0x130b @0x2b
0x12e0…1325 at002c = ╱4b╱K╱ // 0x130c @0x2c
0x12e0…1325 at002d = ╱54╱T╱ // 0x130d @0x2d
0x12e0…1325 at002e = ╱4f╱O╱ // 0x130e @0x2e
0x12e0…1325 at002f = ╱5f╱_╱ // 0x130f @0x2f
0x12e0…1325 at0030 = ╱55╱U╱ // 0x1310 @0x30
0x12e0…1325 at0031 = ╱4c╱L╱ // 0x1311 @0x31
0x12e0…1325 at0032 = ╱54╱T╱ // 0x1312 @0x32
0x12e0…1325 at0033 = ╱49╱I╱ // 0x1313 @0x33
0x12e0…1325 at0034 = ╱4d╱M╱ // 0x1314 @0x34
0x12e0…1325 at0035 = ╱4f╱O╱ // 0x1315 @0x35
0x12e0…1325 at0036 = ╱ec╱ , ╱ // 0x1316 @0x36
0x12e0…1325 at0037 = ╱4b╱K╱ // 0x1317 @0x37
0x12e0…1325 at0038 = ╱54╱T╱ // 0x1318 @0x38
0x12e0…1325 at0039 = ╱4f╱O╱ // 0x1319 @0x39
0x12e0…1325 at003a = ╱5f╱_╱ // 0x131a @0x3a
0x12e0…1325 at003b = ╱46╱F╱ // 0x131b @0x3b
0x12e0…1325 at003c = ╱50╱P╱ // 0x131c @0x3c
0x12e0…1325 at003d = ╱ec╱ , ╱ // 0x131d @0x3d
0x12e0…1325 at003e = ╱4b╱K╱ // 0x131e @0x3e
0x12e0…1325 at003f = ╱54╱T╱ // 0x131f @0x3f
0x12e0…1325 at0040 = ╱4f╱O╱ // 0x1320 @0x40
0x12e0…1325 at0041 = ╱5f╱_╱ // 0x1321 @0x41
0x12e0…1325 at0042 = ╱53╱S╱ // 0x1322 @0x42
0x12e0…1325 at0043 = ╱50╱P╱ // 0x1323 @0x43
0x12e0…1325 at0044 = EOL // 0x1324 @0x44
0x12e0…1325 }
0x1325…1334 a922 01830 ENDPROC L[S_KONTO
0x1325…1334 LineComal80 {
0x1325…1334 ptr = 0xa922 // 0x1325 @0x0
0x1325…1334 lno = 0x0726 // 0x1327 @0x2
0x1325…1334 at0004 = ╱9f╱ ENDPROC ╱ // 0x1329 @0x4
0x1325…1334 at0005 = ╱4c╱L╱ // 0x132a @0x5
0x1325…1334 at0006 = ╱5b╱[╱ // 0x132b @0x6
0x1325…1334 at0007 = ╱53╱S╱ // 0x132c @0x7
0x1325…1334 at0008 = ╱5f╱_╱ // 0x132d @0x8
0x1325…1334 at0009 = ╱4b╱K╱ // 0x132e @0x9
0x1325…1334 at000a = ╱4f╱O╱ // 0x132f @0xa
0x1325…1334 at000b = ╱4e╱N╱ // 0x1330 @0xb
0x1325…1334 at000c = ╱54╱T╱ // 0x1331 @0xc
0x1325…1334 at000d = ╱4f╱O╱ // 0x1332 @0xd
0x1325…1334 at000e = EOL // 0x1333 @0xe
0x1325…1334 }
0x1334…1339 a927 01840
0x1334…1339 LineComal80 {
0x1334…1339 ptr = 0xa927 // 0x1334 @0x0
0x1334…1339 lno = 0x0730 // 0x1336 @0x2
0x1334…1339 at0004 = EOL // 0x1338 @0x4
0x1334…1339 }
0x1339…134e a93c 01850 PROC ST_BGST ( REF RST $ )
0x1339…134e LineComal80 {
0x1339…134e ptr = 0xa93c // 0x1339 @0x0
0x1339…134e lno = 0x073a // 0x133b @0x2
0x1339…134e at0004 = ╱9e00╱ PROC ╱ // 0x133d @0x4
0x1339…134e at0006 = ╱53╱S╱ // 0x133f @0x6
0x1339…134e at0007 = ╱54╱T╱ // 0x1340 @0x7
0x1339…134e at0008 = ╱5f╱_╱ // 0x1341 @0x8
0x1339…134e at0009 = ╱42╱B╱ // 0x1342 @0x9
0x1339…134e at000a = ╱47╱G╱ // 0x1343 @0xa
0x1339…134e at000b = ╱53╱S╱ // 0x1344 @0xb
0x1339…134e at000c = ╱54╱T╱ // 0x1345 @0xc
0x1339…134e at000d = ╱ed╱ ( ╱ // 0x1346 @0xd
0x1339…134e at000e = ╱b6╱ REF ╱ // 0x1347 @0xe
0x1339…134e at000f = ╱52╱R╱ // 0x1348 @0xf
0x1339…134e at0010 = ╱53╱S╱ // 0x1349 @0x10
0x1339…134e at0011 = ╱54╱T╱ // 0x134a @0x11
0x1339…134e at0012 = ╱ef╱ $ ╱ // 0x134b @0x12
0x1339…134e at0013 = ╱ee╱ ) ╱ // 0x134c @0x13
0x1339…134e at0014 = EOL // 0x134d @0x14
0x1339…134e }
0x134e…1364 a952 01860 FOR I := 1 TO ( RST $ ) DO
0x134e…1364 LineComal80 {
0x134e…1364 ptr = 0xa952 // 0x134e @0x0
0x134e…1364 lno = 0x0744 // 0x1350 @0x2
0x134e…1364 at0004 = ╱8300╱ FOR ╱ // 0x1352 @0x4
0x134e…1364 at0006 = ╱49╱I╱ // 0x1354 @0x6
0x134e…1364 at0007 = ╱f0╱ := ╱ // 0x1355 @0x7
0x134e…1364 at0008 = ╱31╱1╱ // 0x1356 @0x8
0x134e…1364 at0009 = ╱f20100╱ // 0x1357 @0x9
0x134e…1364 at000c = ╱b7cb╱ TO ╱ // 0x135a @0xc
0x134e…1364 at000e = ╱ed╱ ( ╱ // 0x135c @0xe
0x134e…1364 at000f = ╱52╱R╱ // 0x135d @0xf
0x134e…1364 at0010 = ╱53╱S╱ // 0x135e @0x10
0x134e…1364 at0011 = ╱54╱T╱ // 0x135f @0x11
0x134e…1364 at0012 = ╱ef╱ $ ╱ // 0x1360 @0x12
0x134e…1364 at0013 = ╱ee╱ ) ╱ // 0x1361 @0x13
0x134e…1364 at0014 = ╱bb╱ DO ╱ // 0x1362 @0x14
0x134e…1364 at0015 = EOL // 0x1363 @0x15
0x134e…1364 }
0x1364…139f a98d 01870 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
0x1364…139f LineComal80 {
0x1364…139f ptr = 0xa98d // 0x1364 @0x0
0x1364…139f lno = 0x074e // 0x1366 @0x2
0x1364…139f at0004 = ╱8200╱ IF ╱ // 0x1368 @0x4
0x1364…139f at0006 = ╱52╱R╱ // 0x136a @0x6
0x1364…139f at0007 = ╱53╱S╱ // 0x136b @0x7
0x1364…139f at0008 = ╱54╱T╱ // 0x136c @0x8
0x1364…139f at0009 = ╱ef╱ $ ╱ // 0x136d @0x9
0x1364…139f at000a = ╱ed╱ ( ╱ // 0x136e @0xa
0x1364…139f at000b = ╱49╱I╱ // 0x136f @0xb
0x1364…139f at000c = ╱ee╱ ) ╱ // 0x1370 @0xc
0x1364…139f at000d = ╱e2╱ =< ╱ // 0x1371 @0xd
0x1364…139f at000e = ╱22╱"╱ // 0x1372 @0xe
0x1364…139f at000f = ╱7d╱}╱ // 0x1373 @0xf
0x1364…139f at0010 = ╱22╱"╱ // 0x1374 @0x10
0x1364…139f at0011 = ╱d9╱ AND ╱ // 0x1375 @0x11
0x1364…139f at0012 = ╱52╱R╱ // 0x1376 @0x12
0x1364…139f at0013 = ╱53╱S╱ // 0x1377 @0x13
0x1364…139f at0014 = ╱54╱T╱ // 0x1378 @0x14
0x1364…139f at0015 = ╱ef╱ $ ╱ // 0x1379 @0x15
0x1364…139f at0016 = ╱ed╱ ( ╱ // 0x137a @0x16
0x1364…139f at0017 = ╱49╱I╱ // 0x137b @0x17
0x1364…139f at0018 = ╱ee╱ ) ╱ // 0x137c @0x18
0x1364…139f at0019 = ╱e3╱ >= ╱ // 0x137d @0x19
0x1364…139f at001a = ╱22╱"╱ // 0x137e @0x1a
0x1364…139f at001b = ╱61╱a╱ // 0x137f @0x1b
0x1364…139f at001c = ╱22╱"╱ // 0x1380 @0x1c
0x1364…139f at001d = ╱b5╱ THEN ╱ // 0x1381 @0x1d
0x1364…139f at001e = ╱86╱ LET ╱ // 0x1382 @0x1e
0x1364…139f at001f = ╱52╱R╱ // 0x1383 @0x1f
0x1364…139f at0020 = ╱53╱S╱ // 0x1384 @0x20
0x1364…139f at0021 = ╱54╱T╱ // 0x1385 @0x21
0x1364…139f at0022 = ╱ef╱ $ ╱ // 0x1386 @0x22
0x1364…139f at0023 = ╱ed╱ ( ╱ // 0x1387 @0x23
0x1364…139f at0024 = ╱49╱I╱ // 0x1388 @0x24
0x1364…139f at0025 = ╱ee╱ ) ╱ // 0x1389 @0x25
0x1364…139f at0026 = ╱f0╱ := ╱ // 0x138a @0x26
0x1364…139f at0027 = ╱d0╱ CHR$ ╱ // 0x138b @0x27
0x1364…139f at0028 = ╱ed╱ ( ╱ // 0x138c @0x28
0x1364…139f at0029 = ╱cc╱ // 0x138d @0x29
0x1364…139f at002a = ╱ed╱ ( ╱ // 0x138e @0x2a
0x1364…139f at002b = ╱52╱R╱ // 0x138f @0x2b
0x1364…139f at002c = ╱53╱S╱ // 0x1390 @0x2c
0x1364…139f at002d = ╱54╱T╱ // 0x1391 @0x2d
0x1364…139f at002e = ╱ef╱ $ ╱ // 0x1392 @0x2e
0x1364…139f at002f = ╱ed╱ ( ╱ // 0x1393 @0x2f
0x1364…139f at0030 = ╱49╱I╱ // 0x1394 @0x30
0x1364…139f at0031 = ╱ee╱ ) ╱ // 0x1395 @0x31
0x1364…139f at0032 = ╱ee╱ ) ╱ // 0x1396 @0x32
0x1364…139f at0033 = ╱e6╱ - ╱ // 0x1397 @0x33
0x1364…139f at0034 = ╱33╱3╱ // 0x1398 @0x34
0x1364…139f at0035 = ╱32╱2╱ // 0x1399 @0x35
0x1364…139f at0036 = ╱f22000╱ // 0x139a @0x36
0x1364…139f at0039 = ╱ee╱ ) ╱ // 0x139d @0x39
0x1364…139f at003a = EOL // 0x139e @0x3a
0x1364…139f }
0x139f…13a6 a994 01880 NEXT I
0x139f…13a6 LineComal80 {
0x139f…13a6 ptr = 0xa994 // 0x139f @0x0
0x139f…13a6 lno = 0x0758 // 0x13a1 @0x2
0x139f…13a6 at0004 = ╱84╱ NEXT ╱ // 0x13a3 @0x4
0x139f…13a6 at0005 = ╱49╱I╱ // 0x13a4 @0x5
0x139f…13a6 at0006 = EOL // 0x13a5 @0x6
0x139f…13a6 }
0x13a6…13b3 a9a1 01890 ENDPROC ST_BGST
0x13a6…13b3 LineComal80 {
0x13a6…13b3 ptr = 0xa9a1 // 0x13a6 @0x0
0x13a6…13b3 lno = 0x0762 // 0x13a8 @0x2
0x13a6…13b3 at0004 = ╱9f╱ ENDPROC ╱ // 0x13aa @0x4
0x13a6…13b3 at0005 = ╱53╱S╱ // 0x13ab @0x5
0x13a6…13b3 at0006 = ╱54╱T╱ // 0x13ac @0x6
0x13a6…13b3 at0007 = ╱5f╱_╱ // 0x13ad @0x7
0x13a6…13b3 at0008 = ╱42╱B╱ // 0x13ae @0x8
0x13a6…13b3 at0009 = ╱47╱G╱ // 0x13af @0x9
0x13a6…13b3 at000a = ╱53╱S╱ // 0x13b0 @0xa
0x13a6…13b3 at000b = ╱54╱T╱ // 0x13b1 @0xb
0x13a6…13b3 at000c = EOL // 0x13b2 @0xc
0x13a6…13b3 }
0x13b3…13cd a9bb 01900 PROC FIND_KTO ( REF R_KTONR $ )
0x13b3…13cd LineComal80 {
0x13b3…13cd ptr = 0xa9bb // 0x13b3 @0x0
0x13b3…13cd lno = 0x076c // 0x13b5 @0x2
0x13b3…13cd at0004 = ╱9e00╱ PROC ╱ // 0x13b7 @0x4
0x13b3…13cd at0006 = ╱46╱F╱ // 0x13b9 @0x6
0x13b3…13cd at0007 = ╱49╱I╱ // 0x13ba @0x7
0x13b3…13cd at0008 = ╱4e╱N╱ // 0x13bb @0x8
0x13b3…13cd at0009 = ╱44╱D╱ // 0x13bc @0x9
0x13b3…13cd at000a = ╱5f╱_╱ // 0x13bd @0xa
0x13b3…13cd at000b = ╱4b╱K╱ // 0x13be @0xb
0x13b3…13cd at000c = ╱54╱T╱ // 0x13bf @0xc
0x13b3…13cd at000d = ╱4f╱O╱ // 0x13c0 @0xd
0x13b3…13cd at000e = ╱ed╱ ( ╱ // 0x13c1 @0xe
0x13b3…13cd at000f = ╱b6╱ REF ╱ // 0x13c2 @0xf
0x13b3…13cd at0010 = ╱52╱R╱ // 0x13c3 @0x10
0x13b3…13cd at0011 = ╱5f╱_╱ // 0x13c4 @0x11
0x13b3…13cd at0012 = ╱4b╱K╱ // 0x13c5 @0x12
0x13b3…13cd at0013 = ╱54╱T╱ // 0x13c6 @0x13
0x13b3…13cd at0014 = ╱4f╱O╱ // 0x13c7 @0x14
0x13b3…13cd at0015 = ╱4e╱N╱ // 0x13c8 @0x15
0x13b3…13cd at0016 = ╱52╱R╱ // 0x13c9 @0x16
0x13b3…13cd at0017 = ╱ef╱ $ ╱ // 0x13ca @0x17
0x13b3…13cd at0018 = ╱ee╱ ) ╱ // 0x13cb @0x18
0x13b3…13cd at0019 = EOL // 0x13cc @0x19
0x13b3…13cd }
0x13cd…13db a9c9 01910 LET OK := FALSE
0x13cd…13db LineComal80 {
0x13cd…13db ptr = 0xa9c9 // 0x13cd @0x0
0x13cd…13db lno = 0x0776 // 0x13cf @0x2
0x13cd…13db at0004 = ╱86╱ LET ╱ // 0x13d1 @0x4
0x13cd…13db at0005 = ╱4f╱O╱ // 0x13d2 @0x5
0x13cd…13db at0006 = ╱4b╱K╱ // 0x13d3 @0x6
0x13cd…13db at0007 = ╱f0╱ := ╱ // 0x13d4 @0x7
0x13cd…13db at0008 = ╱46╱F╱ // 0x13d5 @0x8
0x13cd…13db at0009 = ╱41╱A╱ // 0x13d6 @0x9
0x13cd…13db at000a = ╱4c╱L╱ // 0x13d7 @0xa
0x13cd…13db at000b = ╱53╱S╱ // 0x13d8 @0xb
0x13cd…13db at000c = ╱45╱E╱ // 0x13d9 @0xc
0x13cd…13db at000d = EOL // 0x13da @0xd
0x13cd…13db }
0x13db…13ff a9ed 01920 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x13db…13ff LineComal80 {
0x13db…13ff ptr = 0xa9ed // 0x13db @0x0
0x13db…13ff lno = 0x0780 // 0x13dd @0x2
0x13db…13ff at0004 = ╱a9╱ GET ╱ // 0x13df @0x4
0x13db…13ff at0005 = ╱4b╱K╱ // 0x13e0 @0x5
0x13db…13ff at0006 = ╱54╱T╱ // 0x13e1 @0x6
0x13db…13ff at0007 = ╱4f╱O╱ // 0x13e2 @0x7
0x13db…13ff at0008 = ╱49╱I╱ // 0x13e3 @0x8
0x13db…13ff at0009 = ╱44╱D╱ // 0x13e4 @0x9
0x13db…13ff at000a = ╱58╱X╱ // 0x13e5 @0xa
0x13db…13ff at000b = ╱ef╱ $ ╱ // 0x13e6 @0xb
0x13db…13ff at000c = ╱ec╱ , ╱ // 0x13e7 @0xc
0x13db…13ff at000d = ╱31╱1╱ // 0x13e8 @0xd
0x13db…13ff at000e = ╱f20100╱ // 0x13e9 @0xe
0x13db…13ff at0011 = ╱f1╱ : ╱ // 0x13ec @0x11
0x13db…13ff at0012 = ╱49╱I╱ // 0x13ed @0x12
0x13db…13ff at0013 = ╱5f╱_╱ // 0x13ee @0x13
0x13db…13ff at0014 = ╱48╱H╱ // 0x13ef @0x14
0x13db…13ff at0015 = ╱5c╱\╱ // 0x13f0 @0x15
0x13db…13ff at0016 = ╱4a╱J╱ // 0x13f1 @0x16
0x13db…13ff at0017 = ╱52╱R╱ // 0x13f2 @0x17
0x13db…13ff at0018 = ╱45╱E╱ // 0x13f3 @0x18
0x13db…13ff at0019 = ╱43╱C╱ // 0x13f4 @0x19
0x13db…13ff at001a = ╱ec╱ , ╱ // 0x13f5 @0x1a
0x13db…13ff at001b = ╱49╱I╱ // 0x13f6 @0x1b
0x13db…13ff at001c = ╱5f╱_╱ // 0x13f7 @0x1c
0x13db…13ff at001d = ╱4d╱M╱ // 0x13f8 @0x1d
0x13db…13ff at001e = ╱41╱A╱ // 0x13f9 @0x1e
0x13db…13ff at001f = ╱58╱X╱ // 0x13fa @0x1f
0x13db…13ff at0020 = ╱52╱R╱ // 0x13fb @0x20
0x13db…13ff at0021 = ╱45╱E╱ // 0x13fc @0x21
0x13db…13ff at0022 = ╱43╱C╱ // 0x13fd @0x22
0x13db…13ff at0023 = EOL // 0x13fe @0x23
0x13db…13ff }
0x13ff…1429 aa17 01930 LET LOW := 1 ; HIGH := I_H\JREC + 1 ; POS := 2
0x13ff…1429 LineComal80 {
0x13ff…1429 ptr = 0xaa17 // 0x13ff @0x0
0x13ff…1429 lno = 0x078a // 0x1401 @0x2
0x13ff…1429 at0004 = ╱86╱ LET ╱ // 0x1403 @0x4
0x13ff…1429 at0005 = ╱4c╱L╱ // 0x1404 @0x5
0x13ff…1429 at0006 = ╱4f╱O╱ // 0x1405 @0x6
0x13ff…1429 at0007 = ╱57╱W╱ // 0x1406 @0x7
0x13ff…1429 at0008 = ╱f0╱ := ╱ // 0x1407 @0x8
0x13ff…1429 at0009 = ╱31╱1╱ // 0x1408 @0x9
0x13ff…1429 at000a = ╱f20100╱ // 0x1409 @0xa
0x13ff…1429 at000d = ╱ea╱ ; ╱ // 0x140c @0xd
0x13ff…1429 at000e = ╱48╱H╱ // 0x140d @0xe
0x13ff…1429 at000f = ╱49╱I╱ // 0x140e @0xf
0x13ff…1429 at0010 = ╱47╱G╱ // 0x140f @0x10
0x13ff…1429 at0011 = ╱48╱H╱ // 0x1410 @0x11
0x13ff…1429 at0012 = ╱f0╱ := ╱ // 0x1411 @0x12
0x13ff…1429 at0013 = ╱49╱I╱ // 0x1412 @0x13
0x13ff…1429 at0014 = ╱5f╱_╱ // 0x1413 @0x14
0x13ff…1429 at0015 = ╱48╱H╱ // 0x1414 @0x15
0x13ff…1429 at0016 = ╱5c╱\╱ // 0x1415 @0x16
0x13ff…1429 at0017 = ╱4a╱J╱ // 0x1416 @0x17
0x13ff…1429 at0018 = ╱52╱R╱ // 0x1417 @0x18
0x13ff…1429 at0019 = ╱45╱E╱ // 0x1418 @0x19
0x13ff…1429 at001a = ╱43╱C╱ // 0x1419 @0x1a
0x13ff…1429 at001b = ╱e5╱ + ╱ // 0x141a @0x1b
0x13ff…1429 at001c = ╱31╱1╱ // 0x141b @0x1c
0x13ff…1429 at001d = ╱f20100╱ // 0x141c @0x1d
0x13ff…1429 at0020 = ╱ea╱ ; ╱ // 0x141f @0x20
0x13ff…1429 at0021 = ╱50╱P╱ // 0x1420 @0x21
0x13ff…1429 at0022 = ╱4f╱O╱ // 0x1421 @0x22
0x13ff…1429 at0023 = ╱53╱S╱ // 0x1422 @0x23
0x13ff…1429 at0024 = ╱f0╱ := ╱ // 0x1423 @0x24
0x13ff…1429 at0025 = ╱32╱2╱ // 0x1424 @0x25
0x13ff…1429 at0026 = ╱f20200╱ // 0x1425 @0x26
0x13ff…1429 at0029 = EOL // 0x1428 @0x29
0x13ff…1429 }
0x1429…143a aa28 01940 IF IGH > 1 THEN
0x1429…143a LineComal80 {
0x1429…143a ptr = 0xaa28 // 0x1429 @0x0
0x1429…143a lno = 0x0794 // 0x142b @0x2
0x1429…143a at0004 = ╱9b0048╱ IF ╱ // 0x142d @0x4
0x1429…143a at0007 = ╱49╱I╱ // 0x1430 @0x7
0x1429…143a at0008 = ╱47╱G╱ // 0x1431 @0x8
0x1429…143a at0009 = ╱48╱H╱ // 0x1432 @0x9
0x1429…143a at000a = ╱e1╱ > ╱ // 0x1433 @0xa
0x1429…143a at000b = ╱31╱1╱ // 0x1434 @0xb
0x1429…143a at000c = ╱f20100╱ // 0x1435 @0xc
0x1429…143a at000f = ╱b5╱ THEN ╱ // 0x1438 @0xf
0x1429…143a at0010 = EOL // 0x1439 @0x10
0x1429…143a }
0x143a…1441 aa2f 01950 REPEAT
0x143a…1441 LineComal80 {
0x143a…1441 ptr = 0xaa2f // 0x143a @0x0
0x143a…1441 lno = 0x079e // 0x143c @0x2
0x143a…1441 at0004 = ╱9700╱ REPEAT ╱ // 0x143e @0x4
0x143a…1441 at0006 = EOL // 0x1440 @0x6
0x143a…1441 }
0x1441…146d aa5b 01960 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x1441…146d LineComal80 {
0x1441…146d ptr = 0xaa5b // 0x1441 @0x0
0x1441…146d lno = 0x07a8 // 0x1443 @0x2
0x1441…146d at0004 = ╱86╱ LET ╱ // 0x1445 @0x4
0x1441…146d at0005 = ╱50╱P╱ // 0x1446 @0x5
0x1441…146d at0006 = ╱4f╱O╱ // 0x1447 @0x6
0x1441…146d at0007 = ╱53╱S╱ // 0x1448 @0x7
0x1441…146d at0008 = ╱f0╱ := ╱ // 0x1449 @0x8
0x1441…146d at0009 = ╱c6╱ INT ╱ // 0x144a @0x9
0x1441…146d at000a = ╱ed╱ ( ╱ // 0x144b @0xa
0x1441…146d at000b = ╱ed╱ ( ╱ // 0x144c @0xb
0x1441…146d at000c = ╱48╱H╱ // 0x144d @0xc
0x1441…146d at000d = ╱49╱I╱ // 0x144e @0xd
0x1441…146d at000e = ╱47╱G╱ // 0x144f @0xe
0x1441…146d at000f = ╱48╱H╱ // 0x1450 @0xf
0x1441…146d at0010 = ╱e6╱ - ╱ // 0x1451 @0x10
0x1441…146d at0011 = ╱4c╱L╱ // 0x1452 @0x11
0x1441…146d at0012 = ╱4f╱O╱ // 0x1453 @0x12
0x1441…146d at0013 = ╱57╱W╱ // 0x1454 @0x13
0x1441…146d at0014 = ╱ee╱ ) ╱ // 0x1455 @0x14
0x1441…146d at0015 = ╱e8╱ / ╱ // 0x1456 @0x15
0x1441…146d at0016 = ╱32╱2╱ // 0x1457 @0x16
0x1441…146d at0017 = ╱f20200╱ // 0x1458 @0x17
0x1441…146d at001a = ╱e5╱ + ╱ // 0x145b @0x1a
0x1441…146d at001b = ╱2e╱.╱ // 0x145c @0x1b
0x1441…146d at001c = ╱35╱5╱ // 0x145d @0x1c
0x1441…146d at001d = ╱f88000000000000005╱ // 0x145e @0x1d
0x1441…146d at0026 = ╱ee╱ ) ╱ // 0x1467 @0x26
0x1441…146d at0027 = ╱e5╱ + ╱ // 0x1468 @0x27
0x1441…146d at0028 = ╱4c╱L╱ // 0x1469 @0x28
0x1441…146d at0029 = ╱4f╱O╱ // 0x146a @0x29
0x1441…146d at002a = ╱57╱W╱ // 0x146b @0x2a
0x1441…146d at002b = EOL // 0x146c @0x2b
0x1441…146d }
0x146d…148b aa79 01970 GET KTOIDX $ , POS : KTONR $ , RECNR
0x146d…148b LineComal80 {
0x146d…148b ptr = 0xaa79 // 0x146d @0x0
0x146d…148b lno = 0x07b2 // 0x146f @0x2
0x146d…148b at0004 = ╱a9╱ GET ╱ // 0x1471 @0x4
0x146d…148b at0005 = ╱4b╱K╱ // 0x1472 @0x5
0x146d…148b at0006 = ╱54╱T╱ // 0x1473 @0x6
0x146d…148b at0007 = ╱4f╱O╱ // 0x1474 @0x7
0x146d…148b at0008 = ╱49╱I╱ // 0x1475 @0x8
0x146d…148b at0009 = ╱44╱D╱ // 0x1476 @0x9
0x146d…148b at000a = ╱58╱X╱ // 0x1477 @0xa
0x146d…148b at000b = ╱ef╱ $ ╱ // 0x1478 @0xb
0x146d…148b at000c = ╱ec╱ , ╱ // 0x1479 @0xc
0x146d…148b at000d = ╱50╱P╱ // 0x147a @0xd
0x146d…148b at000e = ╱4f╱O╱ // 0x147b @0xe
0x146d…148b at000f = ╱53╱S╱ // 0x147c @0xf
0x146d…148b at0010 = ╱f1╱ : ╱ // 0x147d @0x10
0x146d…148b at0011 = ╱4b╱K╱ // 0x147e @0x11
0x146d…148b at0012 = ╱54╱T╱ // 0x147f @0x12
0x146d…148b at0013 = ╱4f╱O╱ // 0x1480 @0x13
0x146d…148b at0014 = ╱4e╱N╱ // 0x1481 @0x14
0x146d…148b at0015 = ╱52╱R╱ // 0x1482 @0x15
0x146d…148b at0016 = ╱ef╱ $ ╱ // 0x1483 @0x16
0x146d…148b at0017 = ╱ec╱ , ╱ // 0x1484 @0x17
0x146d…148b at0018 = ╱52╱R╱ // 0x1485 @0x18
0x146d…148b at0019 = ╱45╱E╱ // 0x1486 @0x19
0x146d…148b at001a = ╱43╱C╱ // 0x1487 @0x1a
0x146d…148b at001b = ╱4e╱N╱ // 0x1488 @0x1b
0x146d…148b at001c = ╱52╱R╱ // 0x1489 @0x1c
0x146d…148b at001d = EOL // 0x148a @0x1d
0x146d…148b }
0x148b…14a2 aa90 01980 IF TONR $ > R_KTONR $ THEN
0x148b…14a2 LineComal80 {
0x148b…14a2 ptr = 0xaa90 // 0x148b @0x0
0x148b…14a2 lno = 0x07bc // 0x148d @0x2
0x148b…14a2 at0004 = ╱9b004b╱ IF ╱ // 0x148f @0x4
0x148b…14a2 at0007 = ╱54╱T╱ // 0x1492 @0x7
0x148b…14a2 at0008 = ╱4f╱O╱ // 0x1493 @0x8
0x148b…14a2 at0009 = ╱4e╱N╱ // 0x1494 @0x9
0x148b…14a2 at000a = ╱52╱R╱ // 0x1495 @0xa
0x148b…14a2 at000b = ╱ef╱ $ ╱ // 0x1496 @0xb
0x148b…14a2 at000c = ╱e1╱ > ╱ // 0x1497 @0xc
0x148b…14a2 at000d = ╱52╱R╱ // 0x1498 @0xd
0x148b…14a2 at000e = ╱5f╱_╱ // 0x1499 @0xe
0x148b…14a2 at000f = ╱4b╱K╱ // 0x149a @0xf
0x148b…14a2 at0010 = ╱54╱T╱ // 0x149b @0x10
0x148b…14a2 at0011 = ╱4f╱O╱ // 0x149c @0x11
0x148b…14a2 at0012 = ╱4e╱N╱ // 0x149d @0x12
0x148b…14a2 at0013 = ╱52╱R╱ // 0x149e @0x13
0x148b…14a2 at0014 = ╱ef╱ $ ╱ // 0x149f @0x14
0x148b…14a2 at0015 = ╱b5╱ THEN ╱ // 0x14a0 @0x15
0x148b…14a2 at0016 = EOL // 0x14a1 @0x16
0x148b…14a2 }
0x14a2…14b0 aa9e 01990 LET HIGH := POS
0x14a2…14b0 LineComal80 {
0x14a2…14b0 ptr = 0xaa9e // 0x14a2 @0x0
0x14a2…14b0 lno = 0x07c6 // 0x14a4 @0x2
0x14a2…14b0 at0004 = ╱86╱ LET ╱ // 0x14a6 @0x4
0x14a2…14b0 at0005 = ╱48╱H╱ // 0x14a7 @0x5
0x14a2…14b0 at0006 = ╱49╱I╱ // 0x14a8 @0x6
0x14a2…14b0 at0007 = ╱47╱G╱ // 0x14a9 @0x7
0x14a2…14b0 at0008 = ╱48╱H╱ // 0x14aa @0x8
0x14a2…14b0 at0009 = ╱f0╱ := ╱ // 0x14ab @0x9
0x14a2…14b0 at000a = ╱50╱P╱ // 0x14ac @0xa
0x14a2…14b0 at000b = ╱4f╱O╱ // 0x14ad @0xb
0x14a2…14b0 at000c = ╱53╱S╱ // 0x14ae @0xc
0x14a2…14b0 at000d = EOL // 0x14af @0xd
0x14a2…14b0 }
0x14b0…14b7 aaa5 02000 ELSE
0x14b0…14b7 LineComal80 {
0x14b0…14b7 ptr = 0xaaa5 // 0x14b0 @0x0
0x14b0…14b7 lno = 0x07d0 // 0x14b2 @0x2
0x14b0…14b7 at0004 = ╱9a00╱ ELSE ╱ // 0x14b4 @0x4
0x14b0…14b7 at0006 = EOL // 0x14b6 @0x6
0x14b0…14b7 }
0x14b7…14ce aabc 02010 IF TONR $ < R_KTONR $ THEN
0x14b7…14ce LineComal80 {
0x14b7…14ce ptr = 0xaabc // 0x14b7 @0x0
0x14b7…14ce lno = 0x07da // 0x14b9 @0x2
0x14b7…14ce at0004 = ╱9b004b╱ IF ╱ // 0x14bb @0x4
0x14b7…14ce at0007 = ╱54╱T╱ // 0x14be @0x7
0x14b7…14ce at0008 = ╱4f╱O╱ // 0x14bf @0x8
0x14b7…14ce at0009 = ╱4e╱N╱ // 0x14c0 @0x9
0x14b7…14ce at000a = ╱52╱R╱ // 0x14c1 @0xa
0x14b7…14ce at000b = ╱ef╱ $ ╱ // 0x14c2 @0xb
0x14b7…14ce at000c = ╱e0╱ < ╱ // 0x14c3 @0xc
0x14b7…14ce at000d = ╱52╱R╱ // 0x14c4 @0xd
0x14b7…14ce at000e = ╱5f╱_╱ // 0x14c5 @0xe
0x14b7…14ce at000f = ╱4b╱K╱ // 0x14c6 @0xf
0x14b7…14ce at0010 = ╱54╱T╱ // 0x14c7 @0x10
0x14b7…14ce at0011 = ╱4f╱O╱ // 0x14c8 @0x11
0x14b7…14ce at0012 = ╱4e╱N╱ // 0x14c9 @0x12
0x14b7…14ce at0013 = ╱52╱R╱ // 0x14ca @0x13
0x14b7…14ce at0014 = ╱ef╱ $ ╱ // 0x14cb @0x14
0x14b7…14ce at0015 = ╱b5╱ THEN ╱ // 0x14cc @0x15
0x14b7…14ce at0016 = EOL // 0x14cd @0x16
0x14b7…14ce }
0x14ce…14db aac9 02020 LET LOW := POS
0x14ce…14db LineComal80 {
0x14ce…14db ptr = 0xaac9 // 0x14ce @0x0
0x14ce…14db lno = 0x07e4 // 0x14d0 @0x2
0x14ce…14db at0004 = ╱86╱ LET ╱ // 0x14d2 @0x4
0x14ce…14db at0005 = ╱4c╱L╱ // 0x14d3 @0x5
0x14ce…14db at0006 = ╱4f╱O╱ // 0x14d4 @0x6
0x14ce…14db at0007 = ╱57╱W╱ // 0x14d5 @0x7
0x14ce…14db at0008 = ╱f0╱ := ╱ // 0x14d6 @0x8
0x14ce…14db at0009 = ╱50╱P╱ // 0x14d7 @0x9
0x14ce…14db at000a = ╱4f╱O╱ // 0x14d8 @0xa
0x14ce…14db at000b = ╱53╱S╱ // 0x14d9 @0xb
0x14ce…14db at000c = EOL // 0x14da @0xc
0x14ce…14db }
0x14db…14e1 aacf 02030 ENDIF
0x14db…14e1 LineComal80 {
0x14db…14e1 ptr = 0xaacf // 0x14db @0x0
0x14db…14e1 lno = 0x07ee // 0x14dd @0x2
0x14db…14e1 at0004 = ╱9c╱ ENDIF ╱ // 0x14df @0x4
0x14db…14e1 at0005 = EOL // 0x14e0 @0x5
0x14db…14e1 }
0x14e1…14e7 aad5 02040 ENDIF
0x14e1…14e7 LineComal80 {
0x14e1…14e7 ptr = 0xaad5 // 0x14e1 @0x0
0x14e1…14e7 lno = 0x07f8 // 0x14e3 @0x2
0x14e1…14e7 at0004 = ╱9c╱ ENDIF ╱ // 0x14e5 @0x4
0x14e1…14e7 at0005 = EOL // 0x14e6 @0x5
0x14e1…14e7 }
0x14e7…150a aaf8 02050 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
0x14e7…150a LineComal80 {
0x14e7…150a ptr = 0xaaf8 // 0x14e7 @0x0
0x14e7…150a lno = 0x0802 // 0x14e9 @0x2
0x14e7…150a at0004 = ╱98╱ UNTIL ╱ // 0x14eb @0x4
0x14e7…150a at0005 = ╱48╱H╱ // 0x14ec @0x5
0x14e7…150a at0006 = ╱49╱I╱ // 0x14ed @0x6
0x14e7…150a at0007 = ╱47╱G╱ // 0x14ee @0x7
0x14e7…150a at0008 = ╱48╱H╱ // 0x14ef @0x8
0x14e7…150a at0009 = ╱e6╱ - ╱ // 0x14f0 @0x9
0x14e7…150a at000a = ╱4c╱L╱ // 0x14f1 @0xa
0x14e7…150a at000b = ╱4f╱O╱ // 0x14f2 @0xb
0x14e7…150a at000c = ╱57╱W╱ // 0x14f3 @0xc
0x14e7…150a at000d = ╱e2╱ =< ╱ // 0x14f4 @0xd
0x14e7…150a at000e = ╱31╱1╱ // 0x14f5 @0xe
0x14e7…150a at000f = ╱f20100╱ // 0x14f6 @0xf
0x14e7…150a at0012 = ╱d8╱ OR ╱ // 0x14f9 @0x12
0x14e7…150a at0013 = ╱52╱R╱ // 0x14fa @0x13
0x14e7…150a at0014 = ╱5f╱_╱ // 0x14fb @0x14
0x14e7…150a at0015 = ╱4b╱K╱ // 0x14fc @0x15
0x14e7…150a at0016 = ╱54╱T╱ // 0x14fd @0x16
0x14e7…150a at0017 = ╱4f╱O╱ // 0x14fe @0x17
0x14e7…150a at0018 = ╱4e╱N╱ // 0x14ff @0x18
0x14e7…150a at0019 = ╱52╱R╱ // 0x1500 @0x19
0x14e7…150a at001a = ╱ef╱ $ ╱ // 0x1501 @0x1a
0x14e7…150a at001b = ╱df╱ = ╱ // 0x1502 @0x1b
0x14e7…150a at001c = ╱4b╱K╱ // 0x1503 @0x1c
0x14e7…150a at001d = ╱54╱T╱ // 0x1504 @0x1d
0x14e7…150a at001e = ╱4f╱O╱ // 0x1505 @0x1e
0x14e7…150a at001f = ╱4e╱N╱ // 0x1506 @0x1f
0x14e7…150a at0020 = ╱52╱R╱ // 0x1507 @0x20
0x14e7…150a at0021 = ╱ef╱ $ ╱ // 0x1508 @0x21
0x14e7…150a at0022 = EOL // 0x1509 @0x22
0x14e7…150a }
0x150a…1529 ab17 02060 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
0x150a…1529 LineComal80 {
0x150a…1529 ptr = 0xab17 // 0x150a @0x0
0x150a…1529 lno = 0x080c // 0x150c @0x2
0x150a…1529 at0004 = ╱8200╱ IF ╱ // 0x150e @0x4
0x150a…1529 at0006 = ╱4b╱K╱ // 0x1510 @0x6
0x150a…1529 at0007 = ╱54╱T╱ // 0x1511 @0x7
0x150a…1529 at0008 = ╱4f╱O╱ // 0x1512 @0x8
0x150a…1529 at0009 = ╱4e╱N╱ // 0x1513 @0x9
0x150a…1529 at000a = ╱52╱R╱ // 0x1514 @0xa
0x150a…1529 at000b = ╱ef╱ $ ╱ // 0x1515 @0xb
0x150a…1529 at000c = ╱df╱ = ╱ // 0x1516 @0xc
0x150a…1529 at000d = ╱52╱R╱ // 0x1517 @0xd
0x150a…1529 at000e = ╱5f╱_╱ // 0x1518 @0xe
0x150a…1529 at000f = ╱4b╱K╱ // 0x1519 @0xf
0x150a…1529 at0010 = ╱54╱T╱ // 0x151a @0x10
0x150a…1529 at0011 = ╱4f╱O╱ // 0x151b @0x11
0x150a…1529 at0012 = ╱4e╱N╱ // 0x151c @0x12
0x150a…1529 at0013 = ╱52╱R╱ // 0x151d @0x13
0x150a…1529 at0014 = ╱ef╱ $ ╱ // 0x151e @0x14
0x150a…1529 at0015 = ╱b5╱ THEN ╱ // 0x151f @0x15
0x150a…1529 at0016 = ╱86╱ LET ╱ // 0x1520 @0x16
0x150a…1529 at0017 = ╱4f╱O╱ // 0x1521 @0x17
0x150a…1529 at0018 = ╱4b╱K╱ // 0x1522 @0x18
0x150a…1529 at0019 = ╱f0╱ := ╱ // 0x1523 @0x19
0x150a…1529 at001a = ╱54╱T╱ // 0x1524 @0x1a
0x150a…1529 at001b = ╱52╱R╱ // 0x1525 @0x1b
0x150a…1529 at001c = ╱55╱U╱ // 0x1526 @0x1c
0x150a…1529 at001d = ╱45╱E╱ // 0x1527 @0x1d
0x150a…1529 at001e = EOL // 0x1528 @0x1e
0x150a…1529 }
0x1529…152f ab1d 02070 ENDIF
0x1529…152f LineComal80 {
0x1529…152f ptr = 0xab1d // 0x1529 @0x0
0x1529…152f lno = 0x0816 // 0x152b @0x2
0x1529…152f at0004 = ╱9c╱ ENDIF ╱ // 0x152d @0x4
0x1529…152f at0005 = EOL // 0x152e @0x5
0x1529…152f }
0x152f…1541 ab2f 02080 LET FIND_KTO := POS
0x152f…1541 LineComal80 {
0x152f…1541 ptr = 0xab2f // 0x152f @0x0
0x152f…1541 lno = 0x0820 // 0x1531 @0x2
0x152f…1541 at0004 = ╱86╱ LET ╱ // 0x1533 @0x4
0x152f…1541 at0005 = ╱46╱F╱ // 0x1534 @0x5
0x152f…1541 at0006 = ╱49╱I╱ // 0x1535 @0x6
0x152f…1541 at0007 = ╱4e╱N╱ // 0x1536 @0x7
0x152f…1541 at0008 = ╱44╱D╱ // 0x1537 @0x8
0x152f…1541 at0009 = ╱5f╱_╱ // 0x1538 @0x9
0x152f…1541 at000a = ╱4b╱K╱ // 0x1539 @0xa
0x152f…1541 at000b = ╱54╱T╱ // 0x153a @0xb
0x152f…1541 at000c = ╱4f╱O╱ // 0x153b @0xc
0x152f…1541 at000d = ╱f0╱ := ╱ // 0x153c @0xd
0x152f…1541 at000e = ╱50╱P╱ // 0x153d @0xe
0x152f…1541 at000f = ╱4f╱O╱ // 0x153e @0xf
0x152f…1541 at0010 = ╱53╱S╱ // 0x153f @0x10
0x152f…1541 at0011 = EOL // 0x1540 @0x11
0x152f…1541 }
0x1541…154f ab3d 02090 ENDPROC FIND_KTO
0x1541…154f LineComal80 {
0x1541…154f ptr = 0xab3d // 0x1541 @0x0
0x1541…154f lno = 0x082a // 0x1543 @0x2
0x1541…154f at0004 = ╱9f╱ ENDPROC ╱ // 0x1545 @0x4
0x1541…154f at0005 = ╱46╱F╱ // 0x1546 @0x5
0x1541…154f at0006 = ╱49╱I╱ // 0x1547 @0x6
0x1541…154f at0007 = ╱4e╱N╱ // 0x1548 @0x7
0x1541…154f at0008 = ╱44╱D╱ // 0x1549 @0x8
0x1541…154f at0009 = ╱5f╱_╱ // 0x154a @0x9
0x1541…154f at000a = ╱4b╱K╱ // 0x154b @0xa
0x1541…154f at000b = ╱54╱T╱ // 0x154c @0xb
0x1541…154f at000c = ╱4f╱O╱ // 0x154d @0xc
0x1541…154f at000d = EOL // 0x154e @0xd
0x1541…154f }
0x154f…1554 ab42 02100
0x154f…1554 LineComal80 {
0x154f…1554 ptr = 0xab42 // 0x154f @0x0
0x154f…1554 lno = 0x0834 // 0x1551 @0x2
0x154f…1554 at0004 = EOL // 0x1553 @0x4
0x154f…1554 }
0x1554…156a ab58 02110 PROC SKRIV_DG_POS ( P )
0x1554…156a LineComal80 {
0x1554…156a ptr = 0xab58 // 0x1554 @0x0
0x1554…156a lno = 0x083e // 0x1556 @0x2
0x1554…156a at0004 = ╱9e00╱ PROC ╱ // 0x1558 @0x4
0x1554…156a at0006 = ╱53╱S╱ // 0x155a @0x6
0x1554…156a at0007 = ╱4b╱K╱ // 0x155b @0x7
0x1554…156a at0008 = ╱52╱R╱ // 0x155c @0x8
0x1554…156a at0009 = ╱49╱I╱ // 0x155d @0x9
0x1554…156a at000a = ╱56╱V╱ // 0x155e @0xa
0x1554…156a at000b = ╱5f╱_╱ // 0x155f @0xb
0x1554…156a at000c = ╱44╱D╱ // 0x1560 @0xc
0x1554…156a at000d = ╱47╱G╱ // 0x1561 @0xd
0x1554…156a at000e = ╱5f╱_╱ // 0x1562 @0xe
0x1554…156a at000f = ╱50╱P╱ // 0x1563 @0xf
0x1554…156a at0010 = ╱4f╱O╱ // 0x1564 @0x10
0x1554…156a at0011 = ╱53╱S╱ // 0x1565 @0x11
0x1554…156a at0012 = ╱ed╱ ( ╱ // 0x1566 @0x12
0x1554…156a at0013 = ╱50╱P╱ // 0x1567 @0x13
0x1554…156a at0014 = ╱ee╱ ) ╱ // 0x1568 @0x14
0x1554…156a at0015 = EOL // 0x1569 @0x15
0x1554…156a }
0x156a…15a7 ab95 02120 PUT DG_POS $ , P + 1 : P_BKTO $ , P_MKOD $ , P_BNR $ , P_TXT $ , P_BKR , P_DK
0x156a…15a7 LineComal80 {
0x156a…15a7 ptr = 0xab95 // 0x156a @0x0
0x156a…15a7 lno = 0x0848 // 0x156c @0x2
0x156a…15a7 at0004 = ╱aa╱ PUT ╱ // 0x156e @0x4
0x156a…15a7 at0005 = ╱44╱D╱ // 0x156f @0x5
0x156a…15a7 at0006 = ╱47╱G╱ // 0x1570 @0x6
0x156a…15a7 at0007 = ╱5f╱_╱ // 0x1571 @0x7
0x156a…15a7 at0008 = ╱50╱P╱ // 0x1572 @0x8
0x156a…15a7 at0009 = ╱4f╱O╱ // 0x1573 @0x9
0x156a…15a7 at000a = ╱53╱S╱ // 0x1574 @0xa
0x156a…15a7 at000b = ╱ef╱ $ ╱ // 0x1575 @0xb
0x156a…15a7 at000c = ╱ec╱ , ╱ // 0x1576 @0xc
0x156a…15a7 at000d = ╱50╱P╱ // 0x1577 @0xd
0x156a…15a7 at000e = ╱e5╱ + ╱ // 0x1578 @0xe
0x156a…15a7 at000f = ╱31╱1╱ // 0x1579 @0xf
0x156a…15a7 at0010 = ╱f20100╱ // 0x157a @0x10
0x156a…15a7 at0013 = ╱f1╱ : ╱ // 0x157d @0x13
0x156a…15a7 at0014 = ╱50╱P╱ // 0x157e @0x14
0x156a…15a7 at0015 = ╱5f╱_╱ // 0x157f @0x15
0x156a…15a7 at0016 = ╱42╱B╱ // 0x1580 @0x16
0x156a…15a7 at0017 = ╱4b╱K╱ // 0x1581 @0x17
0x156a…15a7 at0018 = ╱54╱T╱ // 0x1582 @0x18
0x156a…15a7 at0019 = ╱4f╱O╱ // 0x1583 @0x19
0x156a…15a7 at001a = ╱ef╱ $ ╱ // 0x1584 @0x1a
0x156a…15a7 at001b = ╱ec╱ , ╱ // 0x1585 @0x1b
0x156a…15a7 at001c = ╱50╱P╱ // 0x1586 @0x1c
0x156a…15a7 at001d = ╱5f╱_╱ // 0x1587 @0x1d
0x156a…15a7 at001e = ╱4d╱M╱ // 0x1588 @0x1e
0x156a…15a7 at001f = ╱4b╱K╱ // 0x1589 @0x1f
0x156a…15a7 at0020 = ╱4f╱O╱ // 0x158a @0x20
0x156a…15a7 at0021 = ╱44╱D╱ // 0x158b @0x21
0x156a…15a7 at0022 = ╱ef╱ $ ╱ // 0x158c @0x22
0x156a…15a7 at0023 = ╱ec╱ , ╱ // 0x158d @0x23
0x156a…15a7 at0024 = ╱50╱P╱ // 0x158e @0x24
0x156a…15a7 at0025 = ╱5f╱_╱ // 0x158f @0x25
0x156a…15a7 at0026 = ╱42╱B╱ // 0x1590 @0x26
0x156a…15a7 at0027 = ╱4e╱N╱ // 0x1591 @0x27
0x156a…15a7 at0028 = ╱52╱R╱ // 0x1592 @0x28
0x156a…15a7 at0029 = ╱ef╱ $ ╱ // 0x1593 @0x29
0x156a…15a7 at002a = ╱ec╱ , ╱ // 0x1594 @0x2a
0x156a…15a7 at002b = ╱50╱P╱ // 0x1595 @0x2b
0x156a…15a7 at002c = ╱5f╱_╱ // 0x1596 @0x2c
0x156a…15a7 at002d = ╱54╱T╱ // 0x1597 @0x2d
0x156a…15a7 at002e = ╱58╱X╱ // 0x1598 @0x2e
0x156a…15a7 at002f = ╱54╱T╱ // 0x1599 @0x2f
0x156a…15a7 at0030 = ╱ef╱ $ ╱ // 0x159a @0x30
0x156a…15a7 at0031 = ╱ec╱ , ╱ // 0x159b @0x31
0x156a…15a7 at0032 = ╱50╱P╱ // 0x159c @0x32
0x156a…15a7 at0033 = ╱5f╱_╱ // 0x159d @0x33
0x156a…15a7 at0034 = ╱42╱B╱ // 0x159e @0x34
0x156a…15a7 at0035 = ╱4b╱K╱ // 0x159f @0x35
0x156a…15a7 at0036 = ╱52╱R╱ // 0x15a0 @0x36
0x156a…15a7 at0037 = ╱ec╱ , ╱ // 0x15a1 @0x37
0x156a…15a7 at0038 = ╱50╱P╱ // 0x15a2 @0x38
0x156a…15a7 at0039 = ╱5f╱_╱ // 0x15a3 @0x39
0x156a…15a7 at003a = ╱44╱D╱ // 0x15a4 @0x3a
0x156a…15a7 at003b = ╱4b╱K╱ // 0x15a5 @0x3b
0x156a…15a7 at003c = EOL // 0x15a6 @0x3c
0x156a…15a7 }
0x15a7…15b9 aba7 02130 ENDPROC SKRIV_DG_POS
0x15a7…15b9 LineComal80 {
0x15a7…15b9 ptr = 0xaba7 // 0x15a7 @0x0
0x15a7…15b9 lno = 0x0852 // 0x15a9 @0x2
0x15a7…15b9 at0004 = ╱9f╱ ENDPROC ╱ // 0x15ab @0x4
0x15a7…15b9 at0005 = ╱53╱S╱ // 0x15ac @0x5
0x15a7…15b9 at0006 = ╱4b╱K╱ // 0x15ad @0x6
0x15a7…15b9 at0007 = ╱52╱R╱ // 0x15ae @0x7
0x15a7…15b9 at0008 = ╱49╱I╱ // 0x15af @0x8
0x15a7…15b9 at0009 = ╱56╱V╱ // 0x15b0 @0x9
0x15a7…15b9 at000a = ╱5f╱_╱ // 0x15b1 @0xa
0x15a7…15b9 at000b = ╱44╱D╱ // 0x15b2 @0xb
0x15a7…15b9 at000c = ╱47╱G╱ // 0x15b3 @0xc
0x15a7…15b9 at000d = ╱5f╱_╱ // 0x15b4 @0xd
0x15a7…15b9 at000e = ╱50╱P╱ // 0x15b5 @0xe
0x15a7…15b9 at000f = ╱4f╱O╱ // 0x15b6 @0xf
0x15a7…15b9 at0010 = ╱53╱S╱ // 0x15b7 @0x10
0x15a7…15b9 at0011 = EOL // 0x15b8 @0x11
0x15a7…15b9 }
0x15b9…15be abac 02140
0x15b9…15be LineComal80 {
0x15b9…15be ptr = 0xabac // 0x15b9 @0x0
0x15b9…15be lno = 0x085c // 0x15bb @0x2
0x15b9…15be at0004 = EOL // 0x15bd @0x4
0x15b9…15be }
0x15be…15d2 abc0 02150 PROC L[S_DG_POS ( P )
0x15be…15d2 LineComal80 {
0x15be…15d2 ptr = 0xabc0 // 0x15be @0x0
0x15be…15d2 lno = 0x0866 // 0x15c0 @0x2
0x15be…15d2 at0004 = ╱9e00╱ PROC ╱ // 0x15c2 @0x4
0x15be…15d2 at0006 = ╱4c╱L╱ // 0x15c4 @0x6
0x15be…15d2 at0007 = ╱5b╱[╱ // 0x15c5 @0x7
0x15be…15d2 at0008 = ╱53╱S╱ // 0x15c6 @0x8
0x15be…15d2 at0009 = ╱5f╱_╱ // 0x15c7 @0x9
0x15be…15d2 at000a = ╱44╱D╱ // 0x15c8 @0xa
0x15be…15d2 at000b = ╱47╱G╱ // 0x15c9 @0xb
0x15be…15d2 at000c = ╱5f╱_╱ // 0x15ca @0xc
0x15be…15d2 at000d = ╱50╱P╱ // 0x15cb @0xd
0x15be…15d2 at000e = ╱4f╱O╱ // 0x15cc @0xe
0x15be…15d2 at000f = ╱53╱S╱ // 0x15cd @0xf
0x15be…15d2 at0010 = ╱ed╱ ( ╱ // 0x15ce @0x10
0x15be…15d2 at0011 = ╱50╱P╱ // 0x15cf @0x11
0x15be…15d2 at0012 = ╱ee╱ ) ╱ // 0x15d0 @0x12
0x15be…15d2 at0013 = EOL // 0x15d1 @0x13
0x15be…15d2 }
0x15d2…160f abfd 02160 GET DG_POS $ , P + 1 : P_BKTO $ , P_MKOD $ , P_BNR $ , P_TXT $ , P_BKR , P_DK
0x15d2…160f LineComal80 {
0x15d2…160f ptr = 0xabfd // 0x15d2 @0x0
0x15d2…160f lno = 0x0870 // 0x15d4 @0x2
0x15d2…160f at0004 = ╱a9╱ GET ╱ // 0x15d6 @0x4
0x15d2…160f at0005 = ╱44╱D╱ // 0x15d7 @0x5
0x15d2…160f at0006 = ╱47╱G╱ // 0x15d8 @0x6
0x15d2…160f at0007 = ╱5f╱_╱ // 0x15d9 @0x7
0x15d2…160f at0008 = ╱50╱P╱ // 0x15da @0x8
0x15d2…160f at0009 = ╱4f╱O╱ // 0x15db @0x9
0x15d2…160f at000a = ╱53╱S╱ // 0x15dc @0xa
0x15d2…160f at000b = ╱ef╱ $ ╱ // 0x15dd @0xb
0x15d2…160f at000c = ╱ec╱ , ╱ // 0x15de @0xc
0x15d2…160f at000d = ╱50╱P╱ // 0x15df @0xd
0x15d2…160f at000e = ╱e5╱ + ╱ // 0x15e0 @0xe
0x15d2…160f at000f = ╱31╱1╱ // 0x15e1 @0xf
0x15d2…160f at0010 = ╱f20100╱ // 0x15e2 @0x10
0x15d2…160f at0013 = ╱f1╱ : ╱ // 0x15e5 @0x13
0x15d2…160f at0014 = ╱50╱P╱ // 0x15e6 @0x14
0x15d2…160f at0015 = ╱5f╱_╱ // 0x15e7 @0x15
0x15d2…160f at0016 = ╱42╱B╱ // 0x15e8 @0x16
0x15d2…160f at0017 = ╱4b╱K╱ // 0x15e9 @0x17
0x15d2…160f at0018 = ╱54╱T╱ // 0x15ea @0x18
0x15d2…160f at0019 = ╱4f╱O╱ // 0x15eb @0x19
0x15d2…160f at001a = ╱ef╱ $ ╱ // 0x15ec @0x1a
0x15d2…160f at001b = ╱ec╱ , ╱ // 0x15ed @0x1b
0x15d2…160f at001c = ╱50╱P╱ // 0x15ee @0x1c
0x15d2…160f at001d = ╱5f╱_╱ // 0x15ef @0x1d
0x15d2…160f at001e = ╱4d╱M╱ // 0x15f0 @0x1e
0x15d2…160f at001f = ╱4b╱K╱ // 0x15f1 @0x1f
0x15d2…160f at0020 = ╱4f╱O╱ // 0x15f2 @0x20
0x15d2…160f at0021 = ╱44╱D╱ // 0x15f3 @0x21
0x15d2…160f at0022 = ╱ef╱ $ ╱ // 0x15f4 @0x22
0x15d2…160f at0023 = ╱ec╱ , ╱ // 0x15f5 @0x23
0x15d2…160f at0024 = ╱50╱P╱ // 0x15f6 @0x24
0x15d2…160f at0025 = ╱5f╱_╱ // 0x15f7 @0x25
0x15d2…160f at0026 = ╱42╱B╱ // 0x15f8 @0x26
0x15d2…160f at0027 = ╱4e╱N╱ // 0x15f9 @0x27
0x15d2…160f at0028 = ╱52╱R╱ // 0x15fa @0x28
0x15d2…160f at0029 = ╱ef╱ $ ╱ // 0x15fb @0x29
0x15d2…160f at002a = ╱ec╱ , ╱ // 0x15fc @0x2a
0x15d2…160f at002b = ╱50╱P╱ // 0x15fd @0x2b
0x15d2…160f at002c = ╱5f╱_╱ // 0x15fe @0x2c
0x15d2…160f at002d = ╱54╱T╱ // 0x15ff @0x2d
0x15d2…160f at002e = ╱58╱X╱ // 0x1600 @0x2e
0x15d2…160f at002f = ╱54╱T╱ // 0x1601 @0x2f
0x15d2…160f at0030 = ╱ef╱ $ ╱ // 0x1602 @0x30
0x15d2…160f at0031 = ╱ec╱ , ╱ // 0x1603 @0x31
0x15d2…160f at0032 = ╱50╱P╱ // 0x1604 @0x32
0x15d2…160f at0033 = ╱5f╱_╱ // 0x1605 @0x33
0x15d2…160f at0034 = ╱42╱B╱ // 0x1606 @0x34
0x15d2…160f at0035 = ╱4b╱K╱ // 0x1607 @0x35
0x15d2…160f at0036 = ╱52╱R╱ // 0x1608 @0x36
0x15d2…160f at0037 = ╱ec╱ , ╱ // 0x1609 @0x37
0x15d2…160f at0038 = ╱50╱P╱ // 0x160a @0x38
0x15d2…160f at0039 = ╱5f╱_╱ // 0x160b @0x39
0x15d2…160f at003a = ╱44╱D╱ // 0x160c @0x3a
0x15d2…160f at003b = ╱4b╱K╱ // 0x160d @0x3b
0x15d2…160f at003c = EOL // 0x160e @0x3c
0x15d2…160f }
0x160f…161f ac0d 02170 ENDPROC L[S_DG_POS
0x160f…161f LineComal80 {
0x160f…161f ptr = 0xac0d // 0x160f @0x0
0x160f…161f lno = 0x087a // 0x1611 @0x2
0x160f…161f at0004 = ╱9f╱ ENDPROC ╱ // 0x1613 @0x4
0x160f…161f at0005 = ╱4c╱L╱ // 0x1614 @0x5
0x160f…161f at0006 = ╱5b╱[╱ // 0x1615 @0x6
0x160f…161f at0007 = ╱53╱S╱ // 0x1616 @0x7
0x160f…161f at0008 = ╱5f╱_╱ // 0x1617 @0x8
0x160f…161f at0009 = ╱44╱D╱ // 0x1618 @0x9
0x160f…161f at000a = ╱47╱G╱ // 0x1619 @0xa
0x160f…161f at000b = ╱5f╱_╱ // 0x161a @0xb
0x160f…161f at000c = ╱50╱P╱ // 0x161b @0xc
0x160f…161f at000d = ╱4f╱O╱ // 0x161c @0xd
0x160f…161f at000e = ╱53╱S╱ // 0x161d @0xe
0x160f…161f at000f = EOL // 0x161e @0xf
0x160f…161f }
0x161f…1624 ac12 02180
0x161f…1624 LineComal80 {
0x161f…1624 ptr = 0xac12 // 0x161f @0x0
0x161f…1624 lno = 0x0884 // 0x1621 @0x2
0x161f…1624 at0004 = EOL // 0x1623 @0x4
0x161f…1624 }
0x1624…163b ac29 02190 PROC SKRIV_LIN ( R_LIN )
0x1624…163b LineComal80 {
0x1624…163b ptr = 0xac29 // 0x1624 @0x0
0x1624…163b lno = 0x088e // 0x1626 @0x2
0x1624…163b at0004 = ╱9e00╱ PROC ╱ // 0x1628 @0x4
0x1624…163b at0006 = ╱53╱S╱ // 0x162a @0x6
0x1624…163b at0007 = ╱4b╱K╱ // 0x162b @0x7
0x1624…163b at0008 = ╱52╱R╱ // 0x162c @0x8
0x1624…163b at0009 = ╱49╱I╱ // 0x162d @0x9
0x1624…163b at000a = ╱56╱V╱ // 0x162e @0xa
0x1624…163b at000b = ╱5f╱_╱ // 0x162f @0xb
0x1624…163b at000c = ╱4c╱L╱ // 0x1630 @0xc
0x1624…163b at000d = ╱49╱I╱ // 0x1631 @0xd
0x1624…163b at000e = ╱4e╱N╱ // 0x1632 @0xe
0x1624…163b at000f = ╱ed╱ ( ╱ // 0x1633 @0xf
0x1624…163b at0010 = ╱52╱R╱ // 0x1634 @0x10
0x1624…163b at0011 = ╱5f╱_╱ // 0x1635 @0x11
0x1624…163b at0012 = ╱4c╱L╱ // 0x1636 @0x12
0x1624…163b at0013 = ╱49╱I╱ // 0x1637 @0x13
0x1624…163b at0014 = ╱4e╱N╱ // 0x1638 @0x14
0x1624…163b at0015 = ╱ee╱ ) ╱ // 0x1639 @0x15
0x1624…163b at0016 = EOL // 0x163a @0x16
0x1624…163b }
0x163b…1652 ac40 02200 IF P_BNR $ = "*****" THEN EXIT
0x163b…1652 LineComal80 {
0x163b…1652 ptr = 0xac40 // 0x163b @0x0
0x163b…1652 lno = 0x0898 // 0x163d @0x2
0x163b…1652 at0004 = ╱8200╱ IF ╱ // 0x163f @0x4
0x163b…1652 at0006 = ╱50╱P╱ // 0x1641 @0x6
0x163b…1652 at0007 = ╱5f╱_╱ // 0x1642 @0x7
0x163b…1652 at0008 = ╱42╱B╱ // 0x1643 @0x8
0x163b…1652 at0009 = ╱4e╱N╱ // 0x1644 @0x9
0x163b…1652 at000a = ╱52╱R╱ // 0x1645 @0xa
0x163b…1652 at000b = ╱ef╱ $ ╱ // 0x1646 @0xb
0x163b…1652 at000c = ╱df╱ = ╱ // 0x1647 @0xc
0x163b…1652 at000d = ╱22╱"╱ // 0x1648 @0xd
0x163b…1652 at000e = ╱2a╱*╱ // 0x1649 @0xe
0x163b…1652 at000f = ╱2a╱*╱ // 0x164a @0xf
0x163b…1652 at0010 = ╱2a╱*╱ // 0x164b @0x10
0x163b…1652 at0011 = ╱2a╱*╱ // 0x164c @0x11
0x163b…1652 at0012 = ╱2a╱*╱ // 0x164d @0x12
0x163b…1652 at0013 = ╱22╱"╱ // 0x164e @0x13
0x163b…1652 at0014 = ╱b5╱ THEN ╱ // 0x164f @0x14
0x163b…1652 at0015 = ╱99╱ EXIT ╱ // 0x1650 @0x15
0x163b…1652 at0016 = EOL // 0x1651 @0x16
0x163b…1652 }
0x1652…166f ac5d 02210 LET R_SLIN := R_LIN MOD 12 + 7
0x1652…166f LineComal80 {
0x1652…166f ptr = 0xac5d // 0x1652 @0x0
0x1652…166f lno = 0x08a2 // 0x1654 @0x2
0x1652…166f at0004 = ╱86╱ LET ╱ // 0x1656 @0x4
0x1652…166f at0005 = ╱52╱R╱ // 0x1657 @0x5
0x1652…166f at0006 = ╱5f╱_╱ // 0x1658 @0x6
0x1652…166f at0007 = ╱53╱S╱ // 0x1659 @0x7
0x1652…166f at0008 = ╱4c╱L╱ // 0x165a @0x8
0x1652…166f at0009 = ╱49╱I╱ // 0x165b @0x9
0x1652…166f at000a = ╱4e╱N╱ // 0x165c @0xa
0x1652…166f at000b = ╱f0╱ := ╱ // 0x165d @0xb
0x1652…166f at000c = ╱52╱R╱ // 0x165e @0xc
0x1652…166f at000d = ╱5f╱_╱ // 0x165f @0xd
0x1652…166f at000e = ╱4c╱L╱ // 0x1660 @0xe
0x1652…166f at000f = ╱49╱I╱ // 0x1661 @0xf
0x1652…166f at0010 = ╱4e╱N╱ // 0x1662 @0x10
0x1652…166f at0011 = ╱db╱ MOD ╱ // 0x1663 @0x11
0x1652…166f at0012 = ╱31╱1╱ // 0x1664 @0x12
0x1652…166f at0013 = ╱32╱2╱ // 0x1665 @0x13
0x1652…166f at0014 = ╱f20c00╱ // 0x1666 @0x14
0x1652…166f at0017 = ╱e5╱ + ╱ // 0x1669 @0x17
0x1652…166f at0018 = ╱37╱7╱ // 0x166a @0x18
0x1652…166f at0019 = ╱f20700╱ // 0x166b @0x19
0x1652…166f at001c = EOL // 0x166e @0x1c
0x1652…166f }
0x166f…1696 ac84 02220 IF R_SLIN = 7 THEN LET R_SLIN := 12 + R_SLIN
0x166f…1696 LineComal80 {
0x166f…1696 ptr = 0xac84 // 0x166f @0x0
0x166f…1696 lno = 0x08ac // 0x1671 @0x2
0x166f…1696 at0004 = ╱8200╱ IF ╱ // 0x1673 @0x4
0x166f…1696 at0006 = ╱52╱R╱ // 0x1675 @0x6
0x166f…1696 at0007 = ╱5f╱_╱ // 0x1676 @0x7
0x166f…1696 at0008 = ╱53╱S╱ // 0x1677 @0x8
0x166f…1696 at0009 = ╱4c╱L╱ // 0x1678 @0x9
0x166f…1696 at000a = ╱49╱I╱ // 0x1679 @0xa
0x166f…1696 at000b = ╱4e╱N╱ // 0x167a @0xb
0x166f…1696 at000c = ╱df╱ = ╱ // 0x167b @0xc
0x166f…1696 at000d = ╱37╱7╱ // 0x167c @0xd
0x166f…1696 at000e = ╱f20700╱ // 0x167d @0xe
0x166f…1696 at0011 = ╱b5╱ THEN ╱ // 0x1680 @0x11
0x166f…1696 at0012 = ╱86╱ LET ╱ // 0x1681 @0x12
0x166f…1696 at0013 = ╱52╱R╱ // 0x1682 @0x13
0x166f…1696 at0014 = ╱5f╱_╱ // 0x1683 @0x14
0x166f…1696 at0015 = ╱53╱S╱ // 0x1684 @0x15
0x166f…1696 at0016 = ╱4c╱L╱ // 0x1685 @0x16
0x166f…1696 at0017 = ╱49╱I╱ // 0x1686 @0x17
0x166f…1696 at0018 = ╱4e╱N╱ // 0x1687 @0x18
0x166f…1696 at0019 = ╱f0╱ := ╱ // 0x1688 @0x19
0x166f…1696 at001a = ╱31╱1╱ // 0x1689 @0x1a
0x166f…1696 at001b = ╱32╱2╱ // 0x168a @0x1b
0x166f…1696 at001c = ╱f20c00╱ // 0x168b @0x1c
0x166f…1696 at001f = ╱e5╱ + ╱ // 0x168e @0x1f
0x166f…1696 at0020 = ╱52╱R╱ // 0x168f @0x20
0x166f…1696 at0021 = ╱5f╱_╱ // 0x1690 @0x21
0x166f…1696 at0022 = ╱53╱S╱ // 0x1691 @0x22
0x166f…1696 at0023 = ╱4c╱L╱ // 0x1692 @0x23
0x166f…1696 at0024 = ╱49╱I╱ // 0x1693 @0x24
0x166f…1696 at0025 = ╱4e╱N╱ // 0x1694 @0x25
0x166f…1696 at0026 = EOL // 0x1695 @0x26
0x166f…1696 }
0x1696…16a7 ac95 02230 CURSOR 1 , R_SLIN
0x1696…16a7 LineComal80 {
0x1696…16a7 ptr = 0xac95 // 0x1696 @0x0
0x1696…16a7 lno = 0x08b6 // 0x1698 @0x2
0x1696…16a7 at0004 = ╱a1╱ CURSOR ╱ // 0x169a @0x4
0x1696…16a7 at0005 = ╱31╱1╱ // 0x169b @0x5
0x1696…16a7 at0006 = ╱f20100╱ // 0x169c @0x6
0x1696…16a7 at0009 = ╱ec╱ , ╱ // 0x169f @0x9
0x1696…16a7 at000a = ╱52╱R╱ // 0x16a0 @0xa
0x1696…16a7 at000b = ╱5f╱_╱ // 0x16a1 @0xb
0x1696…16a7 at000c = ╱53╱S╱ // 0x16a2 @0xc
0x1696…16a7 at000d = ╱4c╱L╱ // 0x16a3 @0xd
0x1696…16a7 at000e = ╱49╱I╱ // 0x16a4 @0xe
0x1696…16a7 at000f = ╱4e╱N╱ // 0x16a5 @0xf
0x1696…16a7 at0010 = EOL // 0x16a6 @0x10
0x1696…16a7 }
0x16a7…16ba aca8 02240 PRINT CHR$ ( R_LIN , 2 )
0x16a7…16ba LineComal80 {
0x16a7…16ba ptr = 0xaca8 // 0x16a7 @0x0
0x16a7…16ba lno = 0x08c0 // 0x16a9 @0x2
0x16a7…16ba at0004 = ╱92╱ PRINT ╱ // 0x16ab @0x4
0x16a7…16ba at0005 = ╱d0╱ CHR$ ╱ // 0x16ac @0x5
0x16a7…16ba at0006 = ╱ed╱ ( ╱ // 0x16ad @0x6
0x16a7…16ba at0007 = ╱52╱R╱ // 0x16ae @0x7
0x16a7…16ba at0008 = ╱5f╱_╱ // 0x16af @0x8
0x16a7…16ba at0009 = ╱4c╱L╱ // 0x16b0 @0x9
0x16a7…16ba at000a = ╱49╱I╱ // 0x16b1 @0xa
0x16a7…16ba at000b = ╱4e╱N╱ // 0x16b2 @0xb
0x16a7…16ba at000c = ╱ec╱ , ╱ // 0x16b3 @0xc
0x16a7…16ba at000d = ╱32╱2╱ // 0x16b4 @0xd
0x16a7…16ba at000e = ╱f20200╱ // 0x16b5 @0xe
0x16a7…16ba at0011 = ╱ee╱ ) ╱ // 0x16b8 @0x11
0x16a7…16ba at0012 = EOL // 0x16b9 @0x12
0x16a7…16ba }
0x16ba…16cb acb9 02250 CURSOR 4 , R_SLIN
0x16ba…16cb LineComal80 {
0x16ba…16cb ptr = 0xacb9 // 0x16ba @0x0
0x16ba…16cb lno = 0x08ca // 0x16bc @0x2
0x16ba…16cb at0004 = ╱a1╱ CURSOR ╱ // 0x16be @0x4
0x16ba…16cb at0005 = ╱34╱4╱ // 0x16bf @0x5
0x16ba…16cb at0006 = ╱f20400╱ // 0x16c0 @0x6
0x16ba…16cb at0009 = ╱ec╱ , ╱ // 0x16c3 @0x9
0x16ba…16cb at000a = ╱52╱R╱ // 0x16c4 @0xa
0x16ba…16cb at000b = ╱5f╱_╱ // 0x16c5 @0xb
0x16ba…16cb at000c = ╱53╱S╱ // 0x16c6 @0xc
0x16ba…16cb at000d = ╱4c╱L╱ // 0x16c7 @0xd
0x16ba…16cb at000e = ╱49╱I╱ // 0x16c8 @0xe
0x16ba…16cb at000f = ╱4e╱N╱ // 0x16c9 @0xf
0x16ba…16cb at0010 = EOL // 0x16ca @0x10
0x16ba…16cb }
0x16cb…16d7 acc5 02260 PRINT P_BNR $
0x16cb…16d7 LineComal80 {
0x16cb…16d7 ptr = 0xacc5 // 0x16cb @0x0
0x16cb…16d7 lno = 0x08d4 // 0x16cd @0x2
0x16cb…16d7 at0004 = ╱92╱ PRINT ╱ // 0x16cf @0x4
0x16cb…16d7 at0005 = ╱50╱P╱ // 0x16d0 @0x5
0x16cb…16d7 at0006 = ╱5f╱_╱ // 0x16d1 @0x6
0x16cb…16d7 at0007 = ╱42╱B╱ // 0x16d2 @0x7
0x16cb…16d7 at0008 = ╱4e╱N╱ // 0x16d3 @0x8
0x16cb…16d7 at0009 = ╱52╱R╱ // 0x16d4 @0x9
0x16cb…16d7 at000a = ╱ef╱ $ ╱ // 0x16d5 @0xa
0x16cb…16d7 at000b = EOL // 0x16d6 @0xb
0x16cb…16d7 }
0x16d7…16e9 acd7 02270 CURSOR 11 , R_SLIN
0x16d7…16e9 LineComal80 {
0x16d7…16e9 ptr = 0xacd7 // 0x16d7 @0x0
0x16d7…16e9 lno = 0x08de // 0x16d9 @0x2
0x16d7…16e9 at0004 = ╱a1╱ CURSOR ╱ // 0x16db @0x4
0x16d7…16e9 at0005 = ╱31╱1╱ // 0x16dc @0x5
0x16d7…16e9 at0006 = ╱31╱1╱ // 0x16dd @0x6
0x16d7…16e9 at0007 = ╱f20b00╱ // 0x16de @0x7
0x16d7…16e9 at000a = ╱ec╱ , ╱ // 0x16e1 @0xa
0x16d7…16e9 at000b = ╱52╱R╱ // 0x16e2 @0xb
0x16d7…16e9 at000c = ╱5f╱_╱ // 0x16e3 @0xc
0x16d7…16e9 at000d = ╱53╱S╱ // 0x16e4 @0xd
0x16d7…16e9 at000e = ╱4c╱L╱ // 0x16e5 @0xe
0x16d7…16e9 at000f = ╱49╱I╱ // 0x16e6 @0xf
0x16d7…16e9 at0010 = ╱4e╱N╱ // 0x16e7 @0x10
0x16d7…16e9 at0011 = EOL // 0x16e8 @0x11
0x16d7…16e9 }
0x16e9…16f5 ace3 02280 PRINT P_TXT $
0x16e9…16f5 LineComal80 {
0x16e9…16f5 ptr = 0xace3 // 0x16e9 @0x0
0x16e9…16f5 lno = 0x08e8 // 0x16eb @0x2
0x16e9…16f5 at0004 = ╱92╱ PRINT ╱ // 0x16ed @0x4
0x16e9…16f5 at0005 = ╱50╱P╱ // 0x16ee @0x5
0x16e9…16f5 at0006 = ╱5f╱_╱ // 0x16ef @0x6
0x16e9…16f5 at0007 = ╱54╱T╱ // 0x16f0 @0x7
0x16e9…16f5 at0008 = ╱58╱X╱ // 0x16f1 @0x8
0x16e9…16f5 at0009 = ╱54╱T╱ // 0x16f2 @0x9
0x16e9…16f5 at000a = ╱ef╱ $ ╱ // 0x16f3 @0xa
0x16e9…16f5 at000b = EOL // 0x16f4 @0xb
0x16e9…16f5 }
0x16f5…1707 acf5 02290 CURSOR 34 , R_SLIN
0x16f5…1707 LineComal80 {
0x16f5…1707 ptr = 0xacf5 // 0x16f5 @0x0
0x16f5…1707 lno = 0x08f2 // 0x16f7 @0x2
0x16f5…1707 at0004 = ╱a1╱ CURSOR ╱ // 0x16f9 @0x4
0x16f5…1707 at0005 = ╱33╱3╱ // 0x16fa @0x5
0x16f5…1707 at0006 = ╱34╱4╱ // 0x16fb @0x6
0x16f5…1707 at0007 = ╱f22200╱ // 0x16fc @0x7
0x16f5…1707 at000a = ╱ec╱ , ╱ // 0x16ff @0xa
0x16f5…1707 at000b = ╱52╱R╱ // 0x1700 @0xb
0x16f5…1707 at000c = ╱5f╱_╱ // 0x1701 @0xc
0x16f5…1707 at000d = ╱53╱S╱ // 0x1702 @0xd
0x16f5…1707 at000e = ╱4c╱L╱ // 0x1703 @0xe
0x16f5…1707 at000f = ╱49╱I╱ // 0x1704 @0xf
0x16f5…1707 at0010 = ╱4e╱N╱ // 0x1705 @0x10
0x16f5…1707 at0011 = EOL // 0x1706 @0x11
0x16f5…1707 }
0x1707…1714 ad02 02300 PRINT P_MKOD $
0x1707…1714 LineComal80 {
0x1707…1714 ptr = 0xad02 // 0x1707 @0x0
0x1707…1714 lno = 0x08fc // 0x1709 @0x2
0x1707…1714 at0004 = ╱92╱ PRINT ╱ // 0x170b @0x4
0x1707…1714 at0005 = ╱50╱P╱ // 0x170c @0x5
0x1707…1714 at0006 = ╱5f╱_╱ // 0x170d @0x6
0x1707…1714 at0007 = ╱4d╱M╱ // 0x170e @0x7
0x1707…1714 at0008 = ╱4b╱K╱ // 0x170f @0x8
0x1707…1714 at0009 = ╱4f╱O╱ // 0x1710 @0x9
0x1707…1714 at000a = ╱44╱D╱ // 0x1711 @0xa
0x1707…1714 at000b = ╱ef╱ $ ╱ // 0x1712 @0xb
0x1707…1714 at000c = EOL // 0x1713 @0xc
0x1707…1714 }
0x1714…1726 ad14 02310 CURSOR 39 , R_SLIN
0x1714…1726 LineComal80 {
0x1714…1726 ptr = 0xad14 // 0x1714 @0x0
0x1714…1726 lno = 0x0906 // 0x1716 @0x2
0x1714…1726 at0004 = ╱a1╱ CURSOR ╱ // 0x1718 @0x4
0x1714…1726 at0005 = ╱33╱3╱ // 0x1719 @0x5
0x1714…1726 at0006 = ╱39╱9╱ // 0x171a @0x6
0x1714…1726 at0007 = ╱f22700╱ // 0x171b @0x7
0x1714…1726 at000a = ╱ec╱ , ╱ // 0x171e @0xa
0x1714…1726 at000b = ╱52╱R╱ // 0x171f @0xb
0x1714…1726 at000c = ╱5f╱_╱ // 0x1720 @0xc
0x1714…1726 at000d = ╱53╱S╱ // 0x1721 @0xd
0x1714…1726 at000e = ╱4c╱L╱ // 0x1722 @0xe
0x1714…1726 at000f = ╱49╱I╱ // 0x1723 @0xf
0x1714…1726 at0010 = ╱4e╱N╱ // 0x1724 @0x10
0x1714…1726 at0011 = EOL // 0x1725 @0x11
0x1714…1726 }
0x1726…1733 ad21 02320 PRINT P_BKTO $
0x1726…1733 LineComal80 {
0x1726…1733 ptr = 0xad21 // 0x1726 @0x0
0x1726…1733 lno = 0x0910 // 0x1728 @0x2
0x1726…1733 at0004 = ╱92╱ PRINT ╱ // 0x172a @0x4
0x1726…1733 at0005 = ╱50╱P╱ // 0x172b @0x5
0x1726…1733 at0006 = ╱5f╱_╱ // 0x172c @0x6
0x1726…1733 at0007 = ╱42╱B╱ // 0x172d @0x7
0x1726…1733 at0008 = ╱4b╱K╱ // 0x172e @0x8
0x1726…1733 at0009 = ╱54╱T╱ // 0x172f @0x9
0x1726…1733 at000a = ╱4f╱O╱ // 0x1730 @0xa
0x1726…1733 at000b = ╱ef╱ $ ╱ // 0x1731 @0xb
0x1726…1733 at000c = EOL // 0x1732 @0xc
0x1726…1733 }
0x1733…1745 ad33 02330 IF _DK = DEBET THEN
0x1733…1745 LineComal80 {
0x1733…1745 ptr = 0xad33 // 0x1733 @0x0
0x1733…1745 lno = 0x091a // 0x1735 @0x2
0x1733…1745 at0004 = ╱9b0050╱ IF ╱ // 0x1737 @0x4
0x1733…1745 at0007 = ╱5f╱_╱ // 0x173a @0x7
0x1733…1745 at0008 = ╱44╱D╱ // 0x173b @0x8
0x1733…1745 at0009 = ╱4b╱K╱ // 0x173c @0x9
0x1733…1745 at000a = ╱df╱ = ╱ // 0x173d @0xa
0x1733…1745 at000b = ╱44╱D╱ // 0x173e @0xb
0x1733…1745 at000c = ╱45╱E╱ // 0x173f @0xc
0x1733…1745 at000d = ╱42╱B╱ // 0x1740 @0xd
0x1733…1745 at000e = ╱45╱E╱ // 0x1741 @0xe
0x1733…1745 at000f = ╱54╱T╱ // 0x1742 @0xf
0x1733…1745 at0010 = ╱b5╱ THEN ╱ // 0x1743 @0x10
0x1733…1745 at0011 = EOL // 0x1744 @0x11
0x1733…1745 }
0x1745…1757 ad45 02340 CURSOR 49 , R_SLIN
0x1745…1757 LineComal80 {
0x1745…1757 ptr = 0xad45 // 0x1745 @0x0
0x1745…1757 lno = 0x0924 // 0x1747 @0x2
0x1745…1757 at0004 = ╱a1╱ CURSOR ╱ // 0x1749 @0x4
0x1745…1757 at0005 = ╱34╱4╱ // 0x174a @0x5
0x1745…1757 at0006 = ╱39╱9╱ // 0x174b @0x6
0x1745…1757 at0007 = ╱f23100╱ // 0x174c @0x7
0x1745…1757 at000a = ╱ec╱ , ╱ // 0x174f @0xa
0x1745…1757 at000b = ╱52╱R╱ // 0x1750 @0xb
0x1745…1757 at000c = ╱5f╱_╱ // 0x1751 @0xc
0x1745…1757 at000d = ╱53╱S╱ // 0x1752 @0xd
0x1745…1757 at000e = ╱4c╱L╱ // 0x1753 @0xe
0x1745…1757 at000f = ╱49╱I╱ // 0x1754 @0xf
0x1745…1757 at0010 = ╱4e╱N╱ // 0x1755 @0x10
0x1745…1757 at0011 = EOL // 0x1756 @0x11
0x1745…1757 }
0x1757…175e ad4c 02350 ELSE
0x1757…175e LineComal80 {
0x1757…175e ptr = 0xad4c // 0x1757 @0x0
0x1757…175e lno = 0x092e // 0x1759 @0x2
0x1757…175e at0004 = ╱9a00╱ ELSE ╱ // 0x175b @0x4
0x1757…175e at0006 = EOL // 0x175d @0x6
0x1757…175e }
0x175e…1770 ad5e 02360 CURSOR 61 , R_SLIN
0x175e…1770 LineComal80 {
0x175e…1770 ptr = 0xad5e // 0x175e @0x0
0x175e…1770 lno = 0x0938 // 0x1760 @0x2
0x175e…1770 at0004 = ╱a1╱ CURSOR ╱ // 0x1762 @0x4
0x175e…1770 at0005 = ╱36╱6╱ // 0x1763 @0x5
0x175e…1770 at0006 = ╱31╱1╱ // 0x1764 @0x6
0x175e…1770 at0007 = ╱f23d00╱ // 0x1765 @0x7
0x175e…1770 at000a = ╱ec╱ , ╱ // 0x1768 @0xa
0x175e…1770 at000b = ╱52╱R╱ // 0x1769 @0xb
0x175e…1770 at000c = ╱5f╱_╱ // 0x176a @0xc
0x175e…1770 at000d = ╱53╱S╱ // 0x176b @0xd
0x175e…1770 at000e = ╱4c╱L╱ // 0x176c @0xe
0x175e…1770 at000f = ╱49╱I╱ // 0x176d @0xf
0x175e…1770 at0010 = ╱4e╱N╱ // 0x176e @0x10
0x175e…1770 at0011 = EOL // 0x176f @0x11
0x175e…1770 }
0x1770…1776 ad64 02370 ENDIF
0x1770…1776 LineComal80 {
0x1770…1776 ptr = 0xad64 // 0x1770 @0x0
0x1770…1776 lno = 0x0942 // 0x1772 @0x2
0x1770…1776 at0004 = ╱9c╱ ENDIF ╱ // 0x1774 @0x4
0x1770…1776 at0005 = EOL // 0x1775 @0x5
0x1770…1776 }
0x1776…178e (78,) ad7c 02380 PRINT CHR$ ( P_BKR , 7 , 2 )
0x1776…178e LineComal80 {
0x1776…178e ptr = 0xad7c // 0x1776 @0x0
0x1776…178e lno = 0x094c // 0x1778 @0x2
0x1776…178e at0004 = ╱92╱ PRINT ╱ // 0x177a @0x4
0x1776…178e at0005 = ╱d0╱ CHR$ ╱ // 0x177b @0x5
0x1776…178e at0006 = ╱ed╱ ( ╱ // 0x177c @0x6
0x1776…178e at0007 = ╱50╱P╱ // 0x177d @0x7
0x1776…178e at0008 = ╱5f╱_╱ // 0x177e @0x8
0x1776…178e at0009 = ╱42╱B╱ // 0x177f @0x9
0x1776…178e at000a = ╱4b╱K╱ // 0x1780 @0xa
0x1776…178e at000b = ╱52╱R╱ // 0x1781 @0xb
0x1776…178e at000c = ╱ec╱ , ╱ // 0x1782 @0xc
0x1776…178e at000d = ╱37╱7╱ // 0x1783 @0xd
0x1776…178e at000e = ╱f20700╱ // 0x1784 @0xe
0x1776…178e at0011 = ╱ec╱ , ╱ // 0x1787 @0x11
0x1776…178e at0012 = ╱32╱2╱ // 0x1788 @0x12
0x1776…178e at0013 = ╱f20200╱ // 0x1789 @0x13
0x1776…178e at0016 = ╱ee╱ ) ╱ // 0x178c @0x16
0x1776…178e at0017 = EOL // 0x178d @0x17
0x1776…178e }
0x178e…179d ad8b 02390 ENDPROC SKRIV_LIN
0x178e…179d LineComal80 {
0x178e…179d ptr = 0xad8b // 0x178e @0x0
0x178e…179d lno = 0x0956 // 0x1790 @0x2
0x178e…179d at0004 = ╱9f╱ ENDPROC ╱ // 0x1792 @0x4
0x178e…179d at0005 = ╱53╱S╱ // 0x1793 @0x5
0x178e…179d at0006 = ╱4b╱K╱ // 0x1794 @0x6
0x178e…179d at0007 = ╱52╱R╱ // 0x1795 @0x7
0x178e…179d at0008 = ╱49╱I╱ // 0x1796 @0x8
0x178e…179d at0009 = ╱56╱V╱ // 0x1797 @0x9
0x178e…179d at000a = ╱5f╱_╱ // 0x1798 @0xa
0x178e…179d at000b = ╱4c╱L╱ // 0x1799 @0xb
0x178e…179d at000c = ╱49╱I╱ // 0x179a @0xc
0x178e…179d at000d = ╱4e╱N╱ // 0x179b @0xd
0x178e…179d at000e = EOL // 0x179c @0xe
0x178e…179d }
0x179d…17a2 ad90 02400
0x179d…17a2 LineComal80 {
0x179d…17a2 ptr = 0xad90 // 0x179d @0x0
0x179d…17a2 lno = 0x0960 // 0x179f @0x2
0x179d…17a2 at0004 = EOL // 0x17a1 @0x4
0x179d…17a2 }
0x17a2…17b7 ada5 02410 PROC UDSKRIV_POSTER
0x17a2…17b7 LineComal80 {
0x17a2…17b7 ptr = 0xada5 // 0x17a2 @0x0
0x17a2…17b7 lno = 0x096a // 0x17a4 @0x2
0x17a2…17b7 at0004 = ╱9e00╱ PROC ╱ // 0x17a6 @0x4
0x17a2…17b7 at0006 = ╱55╱U╱ // 0x17a8 @0x6
0x17a2…17b7 at0007 = ╱44╱D╱ // 0x17a9 @0x7
0x17a2…17b7 at0008 = ╱53╱S╱ // 0x17aa @0x8
0x17a2…17b7 at0009 = ╱4b╱K╱ // 0x17ab @0x9
0x17a2…17b7 at000a = ╱52╱R╱ // 0x17ac @0xa
0x17a2…17b7 at000b = ╱49╱I╱ // 0x17ad @0xb
0x17a2…17b7 at000c = ╱56╱V╱ // 0x17ae @0xc
0x17a2…17b7 at000d = ╱5f╱_╱ // 0x17af @0xd
0x17a2…17b7 at000e = ╱50╱P╱ // 0x17b0 @0xe
0x17a2…17b7 at000f = ╱4f╱O╱ // 0x17b1 @0xf
0x17a2…17b7 at0010 = ╱53╱S╱ // 0x17b2 @0x10
0x17a2…17b7 at0011 = ╱54╱T╱ // 0x17b3 @0x11
0x17a2…17b7 at0012 = ╱45╱E╱ // 0x17b4 @0x12
0x17a2…17b7 at0013 = ╱52╱R╱ // 0x17b5 @0x13
0x17a2…17b7 at0014 = EOL // 0x17b6 @0x14
0x17a2…17b7 }
0x17b7…17ee c379 02420 EXEC OVERSKRIFT ( "Udskrivning…af…konteringsliste" , 7 )
0x17b7…17ee LineComal80 {
0x17b7…17ee ptr = 0xc379 // 0x17b7 @0x0
0x17b7…17ee lno = 0x0974 // 0x17b9 @0x2
0x17b7…17ee at0004 = ╱9d╱ EXEC ╱ // 0x17bb @0x4
0x17b7…17ee at0005 = ╱4f╱O╱ // 0x17bc @0x5
0x17b7…17ee at0006 = ╱56╱V╱ // 0x17bd @0x6
0x17b7…17ee at0007 = ╱45╱E╱ // 0x17be @0x7
0x17b7…17ee at0008 = ╱52╱R╱ // 0x17bf @0x8
0x17b7…17ee at0009 = ╱53╱S╱ // 0x17c0 @0x9
0x17b7…17ee at000a = ╱4b╱K╱ // 0x17c1 @0xa
0x17b7…17ee at000b = ╱52╱R╱ // 0x17c2 @0xb
0x17b7…17ee at000c = ╱49╱I╱ // 0x17c3 @0xc
0x17b7…17ee at000d = ╱46╱F╱ // 0x17c4 @0xd
0x17b7…17ee at000e = ╱54╱T╱ // 0x17c5 @0xe
0x17b7…17ee at000f = ╱ed╱ ( ╱ // 0x17c6 @0xf
0x17b7…17ee at0010 = ╱22╱"╱ // 0x17c7 @0x10
0x17b7…17ee at0011 = ╱55╱U╱ // 0x17c8 @0x11
0x17b7…17ee at0012 = ╱64╱d╱ // 0x17c9 @0x12
0x17b7…17ee at0013 = ╱73╱s╱ // 0x17ca @0x13
0x17b7…17ee at0014 = ╱6b╱k╱ // 0x17cb @0x14
0x17b7…17ee at0015 = ╱72╱r╱ // 0x17cc @0x15
0x17b7…17ee at0016 = ╱69╱i╱ // 0x17cd @0x16
0x17b7…17ee at0017 = ╱76╱v╱ // 0x17ce @0x17
0x17b7…17ee at0018 = ╱6e╱n╱ // 0x17cf @0x18
0x17b7…17ee at0019 = ╱69╱i╱ // 0x17d0 @0x19
0x17b7…17ee at001a = ╱6e╱n╱ // 0x17d1 @0x1a
0x17b7…17ee at001b = ╱67╱g╱ // 0x17d2 @0x1b
0x17b7…17ee at001c = ╱20╱…╱ // 0x17d3 @0x1c
0x17b7…17ee at001d = ╱61╱a╱ // 0x17d4 @0x1d
0x17b7…17ee at001e = ╱66╱f╱ // 0x17d5 @0x1e
0x17b7…17ee at001f = ╱20╱…╱ // 0x17d6 @0x1f
0x17b7…17ee at0020 = ╱6b╱k╱ // 0x17d7 @0x20
0x17b7…17ee at0021 = ╱6f╱o╱ // 0x17d8 @0x21
0x17b7…17ee at0022 = ╱6e╱n╱ // 0x17d9 @0x22
0x17b7…17ee at0023 = ╱74╱t╱ // 0x17da @0x23
0x17b7…17ee at0024 = ╱65╱e╱ // 0x17db @0x24
0x17b7…17ee at0025 = ╱72╱r╱ // 0x17dc @0x25
0x17b7…17ee at0026 = ╱69╱i╱ // 0x17dd @0x26
0x17b7…17ee at0027 = ╱6e╱n╱ // 0x17de @0x27
0x17b7…17ee at0028 = ╱67╱g╱ // 0x17df @0x28
0x17b7…17ee at0029 = ╱73╱s╱ // 0x17e0 @0x29
0x17b7…17ee at002a = ╱6c╱l╱ // 0x17e1 @0x2a
0x17b7…17ee at002b = ╱69╱i╱ // 0x17e2 @0x2b
0x17b7…17ee at002c = ╱73╱s╱ // 0x17e3 @0x2c
0x17b7…17ee at002d = ╱74╱t╱ // 0x17e4 @0x2d
0x17b7…17ee at002e = ╱65╱e╱ // 0x17e5 @0x2e
0x17b7…17ee at002f = ╱22╱"╱ // 0x17e6 @0x2f
0x17b7…17ee at0030 = ╱ec╱ , ╱ // 0x17e7 @0x30
0x17b7…17ee at0031 = ╱37╱7╱ // 0x17e8 @0x31
0x17b7…17ee at0032 = ╱f20700╱ // 0x17e9 @0x32
0x17b7…17ee at0035 = ╱ee╱ ) ╱ // 0x17ec @0x35
0x17b7…17ee at0036 = EOL // 0x17ed @0x36
0x17b7…17ee }
0x17ee…1814 ae02 02420 EXEC PRINTRES ( "smal…EDB-liste" , 12 )
0x17ee…1814 LineComal80 {
0x17ee…1814 ptr = 0xae02 // 0x17ee @0x0
0x17ee…1814 lno = 0x0974 // 0x17f0 @0x2
0x17ee…1814 at0004 = ╱9d╱ EXEC ╱ // 0x17f2 @0x4
0x17ee…1814 at0005 = ╱50╱P╱ // 0x17f3 @0x5
0x17ee…1814 at0006 = ╱52╱R╱ // 0x17f4 @0x6
0x17ee…1814 at0007 = ╱49╱I╱ // 0x17f5 @0x7
0x17ee…1814 at0008 = ╱4e╱N╱ // 0x17f6 @0x8
0x17ee…1814 at0009 = ╱54╱T╱ // 0x17f7 @0x9
0x17ee…1814 at000a = ╱52╱R╱ // 0x17f8 @0xa
0x17ee…1814 at000b = ╱45╱E╱ // 0x17f9 @0xb
0x17ee…1814 at000c = ╱53╱S╱ // 0x17fa @0xc
0x17ee…1814 at000d = ╱ed╱ ( ╱ // 0x17fb @0xd
0x17ee…1814 at000e = ╱22╱"╱ // 0x17fc @0xe
0x17ee…1814 at000f = ╱73╱s╱ // 0x17fd @0xf
0x17ee…1814 at0010 = ╱6d╱m╱ // 0x17fe @0x10
0x17ee…1814 at0011 = ╱61╱a╱ // 0x17ff @0x11
0x17ee…1814 at0012 = ╱6c╱l╱ // 0x1800 @0x12
0x17ee…1814 at0013 = ╱20╱…╱ // 0x1801 @0x13
0x17ee…1814 at0014 = ╱45╱E╱ // 0x1802 @0x14
0x17ee…1814 at0015 = ╱44╱D╱ // 0x1803 @0x15
0x17ee…1814 at0016 = ╱42╱B╱ // 0x1804 @0x16
0x17ee…1814 at0017 = ╱2d╱-╱ // 0x1805 @0x17
0x17ee…1814 at0018 = ╱6c╱l╱ // 0x1806 @0x18
0x17ee…1814 at0019 = ╱69╱i╱ // 0x1807 @0x19
0x17ee…1814 at001a = ╱73╱s╱ // 0x1808 @0x1a
0x17ee…1814 at001b = ╱74╱t╱ // 0x1809 @0x1b
0x17ee…1814 at001c = ╱65╱e╱ // 0x180a @0x1c
0x17ee…1814 at001d = ╱22╱"╱ // 0x180b @0x1d
0x17ee…1814 at001e = ╱ec╱ , ╱ // 0x180c @0x1e
0x17ee…1814 at001f = ╱31╱1╱ // 0x180d @0x1f
0x17ee…1814 at0020 = ╱32╱2╱ // 0x180e @0x20
0x17ee…1814 at0021 = ╱f20c00╱ // 0x180f @0x21
0x17ee…1814 at0024 = ╱ee╱ ) ╱ // 0x1812 @0x24
0x17ee…1814 at0025 = EOL // 0x1813 @0x25
0x17ee…1814 }
0x1814…1834 ae22 02440 LET LIN_T := 100 ; MAX_LIN := 72
0x1814…1834 LineComal80 {
0x1814…1834 ptr = 0xae22 // 0x1814 @0x0
0x1814…1834 lno = 0x0988 // 0x1816 @0x2
0x1814…1834 at0004 = ╱86╱ LET ╱ // 0x1818 @0x4
0x1814…1834 at0005 = ╱4c╱L╱ // 0x1819 @0x5
0x1814…1834 at0006 = ╱49╱I╱ // 0x181a @0x6
0x1814…1834 at0007 = ╱4e╱N╱ // 0x181b @0x7
0x1814…1834 at0008 = ╱5f╱_╱ // 0x181c @0x8
0x1814…1834 at0009 = ╱54╱T╱ // 0x181d @0x9
0x1814…1834 at000a = ╱f0╱ := ╱ // 0x181e @0xa
0x1814…1834 at000b = ╱31╱1╱ // 0x181f @0xb
0x1814…1834 at000c = ╱30╱0╱ // 0x1820 @0xc
0x1814…1834 at000d = ╱30╱0╱ // 0x1821 @0xd
0x1814…1834 at000e = ╱f26400╱ // 0x1822 @0xe
0x1814…1834 at0011 = ╱ea╱ ; ╱ // 0x1825 @0x11
0x1814…1834 at0012 = ╱4d╱M╱ // 0x1826 @0x12
0x1814…1834 at0013 = ╱41╱A╱ // 0x1827 @0x13
0x1814…1834 at0014 = ╱58╱X╱ // 0x1828 @0x14
0x1814…1834 at0015 = ╱5f╱_╱ // 0x1829 @0x15
0x1814…1834 at0016 = ╱4c╱L╱ // 0x182a @0x16
0x1814…1834 at0017 = ╱49╱I╱ // 0x182b @0x17
0x1814…1834 at0018 = ╱4e╱N╱ // 0x182c @0x18
0x1814…1834 at0019 = ╱f0╱ := ╱ // 0x182d @0x19
0x1814…1834 at001a = ╱37╱7╱ // 0x182e @0x1a
0x1814…1834 at001b = ╱32╱2╱ // 0x182f @0x1b
0x1814…1834 at001c = ╱f24800╱ // 0x1830 @0x1c
0x1814…1834 at001f = EOL // 0x1833 @0x1f
0x1814…1834 }
0x1834…1879 ae67 02450 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x1834…1879 LineComal80 {
0x1834…1879 ptr = 0xae67 // 0x1834 @0x0
0x1834…1879 lno = 0x0992 // 0x1836 @0x2
0x1834…1879 at0004 = ╱a9╱ GET ╱ // 0x1838 @0x4
0x1834…1879 at0005 = ╱44╱D╱ // 0x1839 @0x5
0x1834…1879 at0006 = ╱47╱G╱ // 0x183a @0x6
0x1834…1879 at0007 = ╱5f╱_╱ // 0x183b @0x7
0x1834…1879 at0008 = ╱50╱P╱ // 0x183c @0x8
0x1834…1879 at0009 = ╱4f╱O╱ // 0x183d @0x9
0x1834…1879 at000a = ╱53╱S╱ // 0x183e @0xa
0x1834…1879 at000b = ╱ef╱ $ ╱ // 0x183f @0xb
0x1834…1879 at000c = ╱ec╱ , ╱ // 0x1840 @0xc
0x1834…1879 at000d = ╱31╱1╱ // 0x1841 @0xd
0x1834…1879 at000e = ╱f20100╱ // 0x1842 @0xe
0x1834…1879 at0011 = ╱f1╱ : ╱ // 0x1845 @0x11
0x1834…1879 at0012 = ╱50╱P╱ // 0x1846 @0x12
0x1834…1879 at0013 = ╱5f╱_╱ // 0x1847 @0x13
0x1834…1879 at0014 = ╱48╱H╱ // 0x1848 @0x14
0x1834…1879 at0015 = ╱5c╱\╱ // 0x1849 @0x15
0x1834…1879 at0016 = ╱4a╱J╱ // 0x184a @0x16
0x1834…1879 at0017 = ╱52╱R╱ // 0x184b @0x17
0x1834…1879 at0018 = ╱45╱E╱ // 0x184c @0x18
0x1834…1879 at0019 = ╱43╱C╱ // 0x184d @0x19
0x1834…1879 at001a = ╱ec╱ , ╱ // 0x184e @0x1a
0x1834…1879 at001b = ╱50╱P╱ // 0x184f @0x1b
0x1834…1879 at001c = ╱5f╱_╱ // 0x1850 @0x1c
0x1834…1879 at001d = ╱4d╱M╱ // 0x1851 @0x1d
0x1834…1879 at001e = ╱41╱A╱ // 0x1852 @0x1e
0x1834…1879 at001f = ╱58╱X╱ // 0x1853 @0x1f
0x1834…1879 at0020 = ╱52╱R╱ // 0x1854 @0x20
0x1834…1879 at0021 = ╱45╱E╱ // 0x1855 @0x21
0x1834…1879 at0022 = ╱43╱C╱ // 0x1856 @0x22
0x1834…1879 at0023 = ╱ec╱ , ╱ // 0x1857 @0x23
0x1834…1879 at0024 = ╱53╱S╱ // 0x1858 @0x24
0x1834…1879 at0025 = ╱5f╱_╱ // 0x1859 @0x25
0x1834…1879 at0026 = ╱4e╱N╱ // 0x185a @0x26
0x1834…1879 at0027 = ╱52╱R╱ // 0x185b @0x27
0x1834…1879 at0028 = ╱5f╱_╱ // 0x185c @0x28
0x1834…1879 at0029 = ╱44╱D╱ // 0x185d @0x29
0x1834…1879 at002a = ╱47╱G╱ // 0x185e @0x2a
0x1834…1879 at002b = ╱5f╱_╱ // 0x185f @0x2b
0x1834…1879 at002c = ╱50╱P╱ // 0x1860 @0x2c
0x1834…1879 at002d = ╱4f╱O╱ // 0x1861 @0x2d
0x1834…1879 at002e = ╱53╱S╱ // 0x1862 @0x2e
0x1834…1879 at002f = ╱ec╱ , ╱ // 0x1863 @0x2f
0x1834…1879 at0030 = ╱50╱P╱ // 0x1864 @0x30
0x1834…1879 at0031 = ╱5f╱_╱ // 0x1865 @0x31
0x1834…1879 at0032 = ╱44╱D╱ // 0x1866 @0x32
0x1834…1879 at0033 = ╱45╱E╱ // 0x1867 @0x33
0x1834…1879 at0034 = ╱42╱B╱ // 0x1868 @0x34
0x1834…1879 at0035 = ╱ec╱ , ╱ // 0x1869 @0x35
0x1834…1879 at0036 = ╱50╱P╱ // 0x186a @0x36
0x1834…1879 at0037 = ╱5f╱_╱ // 0x186b @0x37
0x1834…1879 at0038 = ╱4b╱K╱ // 0x186c @0x38
0x1834…1879 at0039 = ╱52╱R╱ // 0x186d @0x39
0x1834…1879 at003a = ╱45╱E╱ // 0x186e @0x3a
0x1834…1879 at003b = ╱44╱D╱ // 0x186f @0x3b
0x1834…1879 at003c = ╱ec╱ , ╱ // 0x1870 @0x3c
0x1834…1879 at003d = ╱50╱P╱ // 0x1871 @0x3d
0x1834…1879 at003e = ╱5f╱_╱ // 0x1872 @0x3e
0x1834…1879 at003f = ╱42╱B╱ // 0x1873 @0x3f
0x1834…1879 at0040 = ╱44╱D╱ // 0x1874 @0x40
0x1834…1879 at0041 = ╱41╱A╱ // 0x1875 @0x41
0x1834…1879 at0042 = ╱54╱T╱ // 0x1876 @0x42
0x1834…1879 at0043 = ╱ef╱ $ ╱ // 0x1877 @0x43
0x1834…1879 at0044 = EOL // 0x1878 @0x44
0x1834…1879 }
0x1879…1890 ae7e 02460 LET P_DEB , P_KRED := 0
0x1879…1890 LineComal80 {
0x1879…1890 ptr = 0xae7e // 0x1879 @0x0
0x1879…1890 lno = 0x099c // 0x187b @0x2
0x1879…1890 at0004 = ╱86╱ LET ╱ // 0x187d @0x4
0x1879…1890 at0005 = ╱50╱P╱ // 0x187e @0x5
0x1879…1890 at0006 = ╱5f╱_╱ // 0x187f @0x6
0x1879…1890 at0007 = ╱44╱D╱ // 0x1880 @0x7
0x1879…1890 at0008 = ╱45╱E╱ // 0x1881 @0x8
0x1879…1890 at0009 = ╱42╱B╱ // 0x1882 @0x9
0x1879…1890 at000a = ╱ec╱ , ╱ // 0x1883 @0xa
0x1879…1890 at000b = ╱50╱P╱ // 0x1884 @0xb
0x1879…1890 at000c = ╱5f╱_╱ // 0x1885 @0xc
0x1879…1890 at000d = ╱4b╱K╱ // 0x1886 @0xd
0x1879…1890 at000e = ╱52╱R╱ // 0x1887 @0xe
0x1879…1890 at000f = ╱45╱E╱ // 0x1888 @0xf
0x1879…1890 at0010 = ╱44╱D╱ // 0x1889 @0x10
0x1879…1890 at0011 = ╱f0╱ := ╱ // 0x188a @0x11
0x1879…1890 at0012 = ╱30╱0╱ // 0x188b @0x12
0x1879…1890 at0013 = ╱f20000╱ // 0x188c @0x13
0x1879…1890 at0016 = EOL // 0x188f @0x16
0x1879…1890 }
0x1890…18ac ae9a 02470 FOR J := 1 TO _H\JREC - 1 DO
0x1890…18ac LineComal80 {
0x1890…18ac ptr = 0xae9a // 0x1890 @0x0
0x1890…18ac lno = 0x09a6 // 0x1892 @0x2
0x1890…18ac at0004 = ╱8300╱ FOR ╱ // 0x1894 @0x4
0x1890…18ac at0006 = ╱4a╱J╱ // 0x1896 @0x6
0x1890…18ac at0007 = ╱f0╱ := ╱ // 0x1897 @0x7
0x1890…18ac at0008 = ╱31╱1╱ // 0x1898 @0x8
0x1890…18ac at0009 = ╱f20100╱ // 0x1899 @0x9
0x1890…18ac at000c = ╱b750╱ TO ╱ // 0x189c @0xc
0x1890…18ac at000e = ╱5f╱_╱ // 0x189e @0xe
0x1890…18ac at000f = ╱48╱H╱ // 0x189f @0xf
0x1890…18ac at0010 = ╱5c╱\╱ // 0x18a0 @0x10
0x1890…18ac at0011 = ╱4a╱J╱ // 0x18a1 @0x11
0x1890…18ac at0012 = ╱52╱R╱ // 0x18a2 @0x12
0x1890…18ac at0013 = ╱45╱E╱ // 0x18a3 @0x13
0x1890…18ac at0014 = ╱43╱C╱ // 0x18a4 @0x14
0x1890…18ac at0015 = ╱e6╱ - ╱ // 0x18a5 @0x15
0x1890…18ac at0016 = ╱31╱1╱ // 0x18a6 @0x16
0x1890…18ac at0017 = ╱f20100╱ // 0x18a7 @0x17
0x1890…18ac at001a = ╱bb╱ DO ╱ // 0x18aa @0x1a
0x1890…18ac at001b = EOL // 0x18ab @0x1b
0x1890…18ac }
0x18ac…18bf aead 02480 EXEC L[S_DG_POS ( J )
0x18ac…18bf LineComal80 {
0x18ac…18bf ptr = 0xaead // 0x18ac @0x0
0x18ac…18bf lno = 0x09b0 // 0x18ae @0x2
0x18ac…18bf at0004 = ╱9d╱ EXEC ╱ // 0x18b0 @0x4
0x18ac…18bf at0005 = ╱4c╱L╱ // 0x18b1 @0x5
0x18ac…18bf at0006 = ╱5b╱[╱ // 0x18b2 @0x6
0x18ac…18bf at0007 = ╱53╱S╱ // 0x18b3 @0x7
0x18ac…18bf at0008 = ╱5f╱_╱ // 0x18b4 @0x8
0x18ac…18bf at0009 = ╱44╱D╱ // 0x18b5 @0x9
0x18ac…18bf at000a = ╱47╱G╱ // 0x18b6 @0xa
0x18ac…18bf at000b = ╱5f╱_╱ // 0x18b7 @0xb
0x18ac…18bf at000c = ╱50╱P╱ // 0x18b8 @0xc
0x18ac…18bf at000d = ╱4f╱O╱ // 0x18b9 @0xd
0x18ac…18bf at000e = ╱53╱S╱ // 0x18ba @0xe
0x18ac…18bf at000f = ╱ed╱ ( ╱ // 0x18bb @0xf
0x18ac…18bf at0010 = ╱4a╱J╱ // 0x18bc @0x10
0x18ac…18bf at0011 = ╱ee╱ ) ╱ // 0x18bd @0x11
0x18ac…18bf at0012 = EOL // 0x18be @0x12
0x18ac…18bf }
0x18bf…18ce aebc 02490 EXEC PRINT_LIN
0x18bf…18ce LineComal80 {
0x18bf…18ce ptr = 0xaebc // 0x18bf @0x0
0x18bf…18ce lno = 0x09ba // 0x18c1 @0x2
0x18bf…18ce at0004 = ╱9d╱ EXEC ╱ // 0x18c3 @0x4
0x18bf…18ce at0005 = ╱50╱P╱ // 0x18c4 @0x5
0x18bf…18ce at0006 = ╱52╱R╱ // 0x18c5 @0x6
0x18bf…18ce at0007 = ╱49╱I╱ // 0x18c6 @0x7
0x18bf…18ce at0008 = ╱4e╱N╱ // 0x18c7 @0x8
0x18bf…18ce at0009 = ╱54╱T╱ // 0x18c8 @0x9
0x18bf…18ce at000a = ╱5f╱_╱ // 0x18c9 @0xa
0x18bf…18ce at000b = ╱4c╱L╱ // 0x18ca @0xb
0x18bf…18ce at000c = ╱49╱I╱ // 0x18cb @0xc
0x18bf…18ce at000d = ╱4e╱N╱ // 0x18cc @0xd
0x18bf…18ce at000e = EOL // 0x18cd @0xe
0x18bf…18ce }
0x18ce…18d5 aec3 02500 NEXT J
0x18ce…18d5 LineComal80 {
0x18ce…18d5 ptr = 0xaec3 // 0x18ce @0x0
0x18ce…18d5 lno = 0x09c4 // 0x18d0 @0x2
0x18ce…18d5 at0004 = ╱84╱ NEXT ╱ // 0x18d2 @0x4
0x18ce…18d5 at0005 = ╱4a╱J╱ // 0x18d3 @0x5
0x18ce…18d5 at0006 = EOL // 0x18d4 @0x6
0x18ce…18d5 }
0x18d5…18f0 aede 02510 IF LIN_T >< 100 THEN EXEC AFSLUT
0x18d5…18f0 LineComal80 {
0x18d5…18f0 ptr = 0xaede // 0x18d5 @0x0
0x18d5…18f0 lno = 0x09ce // 0x18d7 @0x2
0x18d5…18f0 at0004 = ╱8200╱ IF ╱ // 0x18d9 @0x4
0x18d5…18f0 at0006 = ╱4c╱L╱ // 0x18db @0x6
0x18d5…18f0 at0007 = ╱49╱I╱ // 0x18dc @0x7
0x18d5…18f0 at0008 = ╱4e╱N╱ // 0x18dd @0x8
0x18d5…18f0 at0009 = ╱5f╱_╱ // 0x18de @0x9
0x18d5…18f0 at000a = ╱54╱T╱ // 0x18df @0xa
0x18d5…18f0 at000b = ╱e4╱ >< ╱ // 0x18e0 @0xb
0x18d5…18f0 at000c = ╱31╱1╱ // 0x18e1 @0xc
0x18d5…18f0 at000d = ╱30╱0╱ // 0x18e2 @0xd
0x18d5…18f0 at000e = ╱30╱0╱ // 0x18e3 @0xe
0x18d5…18f0 at000f = ╱f26400╱ // 0x18e4 @0xf
0x18d5…18f0 at0012 = ╱b5╱ THEN ╱ // 0x18e7 @0x12
0x18d5…18f0 at0013 = ╱9d╱ EXEC ╱ // 0x18e8 @0x13
0x18d5…18f0 at0014 = ╱41╱A╱ // 0x18e9 @0x14
0x18d5…18f0 at0015 = ╱46╱F╱ // 0x18ea @0x15
0x18d5…18f0 at0016 = ╱53╱S╱ // 0x18eb @0x16
0x18d5…18f0 at0017 = ╱4c╱L╱ // 0x18ec @0x17
0x18d5…18f0 at0018 = ╱55╱U╱ // 0x18ed @0x18
0x18d5…18f0 at0019 = ╱54╱T╱ // 0x18ee @0x19
0x18d5…18f0 at001a = EOL // 0x18ef @0x1a
0x18d5…18f0 }
0x18f0…18fe aeec 02520 EXEC PRINTREL
0x18f0…18fe LineComal80 {
0x18f0…18fe ptr = 0xaeec // 0x18f0 @0x0
0x18f0…18fe lno = 0x09d8 // 0x18f2 @0x2
0x18f0…18fe at0004 = ╱9d╱ EXEC ╱ // 0x18f4 @0x4
0x18f0…18fe at0005 = ╱50╱P╱ // 0x18f5 @0x5
0x18f0…18fe at0006 = ╱52╱R╱ // 0x18f6 @0x6
0x18f0…18fe at0007 = ╱49╱I╱ // 0x18f7 @0x7
0x18f0…18fe at0008 = ╱4e╱N╱ // 0x18f8 @0x8
0x18f0…18fe at0009 = ╱54╱T╱ // 0x18f9 @0x9
0x18f0…18fe at000a = ╱52╱R╱ // 0x18fa @0xa
0x18f0…18fe at000b = ╱45╱E╱ // 0x18fb @0xb
0x18f0…18fe at000c = ╱4c╱L╱ // 0x18fc @0xc
0x18f0…18fe at000d = EOL // 0x18fd @0xd
0x18f0…18fe }
0x18fe…1943 af31 02530 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x18fe…1943 LineComal80 {
0x18fe…1943 ptr = 0xaf31 // 0x18fe @0x0
0x18fe…1943 lno = 0x09e2 // 0x1900 @0x2
0x18fe…1943 at0004 = ╱aa╱ PUT ╱ // 0x1902 @0x4
0x18fe…1943 at0005 = ╱44╱D╱ // 0x1903 @0x5
0x18fe…1943 at0006 = ╱47╱G╱ // 0x1904 @0x6
0x18fe…1943 at0007 = ╱5f╱_╱ // 0x1905 @0x7
0x18fe…1943 at0008 = ╱50╱P╱ // 0x1906 @0x8
0x18fe…1943 at0009 = ╱4f╱O╱ // 0x1907 @0x9
0x18fe…1943 at000a = ╱53╱S╱ // 0x1908 @0xa
0x18fe…1943 at000b = ╱ef╱ $ ╱ // 0x1909 @0xb
0x18fe…1943 at000c = ╱ec╱ , ╱ // 0x190a @0xc
0x18fe…1943 at000d = ╱31╱1╱ // 0x190b @0xd
0x18fe…1943 at000e = ╱f20100╱ // 0x190c @0xe
0x18fe…1943 at0011 = ╱f1╱ : ╱ // 0x190f @0x11
0x18fe…1943 at0012 = ╱50╱P╱ // 0x1910 @0x12
0x18fe…1943 at0013 = ╱5f╱_╱ // 0x1911 @0x13
0x18fe…1943 at0014 = ╱48╱H╱ // 0x1912 @0x14
0x18fe…1943 at0015 = ╱5c╱\╱ // 0x1913 @0x15
0x18fe…1943 at0016 = ╱4a╱J╱ // 0x1914 @0x16
0x18fe…1943 at0017 = ╱52╱R╱ // 0x1915 @0x17
0x18fe…1943 at0018 = ╱45╱E╱ // 0x1916 @0x18
0x18fe…1943 at0019 = ╱43╱C╱ // 0x1917 @0x19
0x18fe…1943 at001a = ╱ec╱ , ╱ // 0x1918 @0x1a
0x18fe…1943 at001b = ╱50╱P╱ // 0x1919 @0x1b
0x18fe…1943 at001c = ╱5f╱_╱ // 0x191a @0x1c
0x18fe…1943 at001d = ╱4d╱M╱ // 0x191b @0x1d
0x18fe…1943 at001e = ╱41╱A╱ // 0x191c @0x1e
0x18fe…1943 at001f = ╱58╱X╱ // 0x191d @0x1f
0x18fe…1943 at0020 = ╱52╱R╱ // 0x191e @0x20
0x18fe…1943 at0021 = ╱45╱E╱ // 0x191f @0x21
0x18fe…1943 at0022 = ╱43╱C╱ // 0x1920 @0x22
0x18fe…1943 at0023 = ╱ec╱ , ╱ // 0x1921 @0x23
0x18fe…1943 at0024 = ╱53╱S╱ // 0x1922 @0x24
0x18fe…1943 at0025 = ╱5f╱_╱ // 0x1923 @0x25
0x18fe…1943 at0026 = ╱4e╱N╱ // 0x1924 @0x26
0x18fe…1943 at0027 = ╱52╱R╱ // 0x1925 @0x27
0x18fe…1943 at0028 = ╱5f╱_╱ // 0x1926 @0x28
0x18fe…1943 at0029 = ╱44╱D╱ // 0x1927 @0x29
0x18fe…1943 at002a = ╱47╱G╱ // 0x1928 @0x2a
0x18fe…1943 at002b = ╱5f╱_╱ // 0x1929 @0x2b
0x18fe…1943 at002c = ╱50╱P╱ // 0x192a @0x2c
0x18fe…1943 at002d = ╱4f╱O╱ // 0x192b @0x2d
0x18fe…1943 at002e = ╱53╱S╱ // 0x192c @0x2e
0x18fe…1943 at002f = ╱ec╱ , ╱ // 0x192d @0x2f
0x18fe…1943 at0030 = ╱50╱P╱ // 0x192e @0x30
0x18fe…1943 at0031 = ╱5f╱_╱ // 0x192f @0x31
0x18fe…1943 at0032 = ╱44╱D╱ // 0x1930 @0x32
0x18fe…1943 at0033 = ╱45╱E╱ // 0x1931 @0x33
0x18fe…1943 at0034 = ╱42╱B╱ // 0x1932 @0x34
0x18fe…1943 at0035 = ╱ec╱ , ╱ // 0x1933 @0x35
0x18fe…1943 at0036 = ╱50╱P╱ // 0x1934 @0x36
0x18fe…1943 at0037 = ╱5f╱_╱ // 0x1935 @0x37
0x18fe…1943 at0038 = ╱4b╱K╱ // 0x1936 @0x38
0x18fe…1943 at0039 = ╱52╱R╱ // 0x1937 @0x39
0x18fe…1943 at003a = ╱45╱E╱ // 0x1938 @0x3a
0x18fe…1943 at003b = ╱44╱D╱ // 0x1939 @0x3b
0x18fe…1943 at003c = ╱ec╱ , ╱ // 0x193a @0x3c
0x18fe…1943 at003d = ╱50╱P╱ // 0x193b @0x3d
0x18fe…1943 at003e = ╱5f╱_╱ // 0x193c @0x3e
0x18fe…1943 at003f = ╱42╱B╱ // 0x193d @0x3f
0x18fe…1943 at0040 = ╱44╱D╱ // 0x193e @0x40
0x18fe…1943 at0041 = ╱41╱A╱ // 0x193f @0x41
0x18fe…1943 at0042 = ╱54╱T╱ // 0x1940 @0x42
0x18fe…1943 at0043 = ╱ef╱ $ ╱ // 0x1941 @0x43
0x18fe…1943 at0044 = EOL // 0x1942 @0x44
0x18fe…1943 }
0x1943…1957 af45 02540 ENDPROC UDSKRIV_POSTER
0x1943…1957 LineComal80 {
0x1943…1957 ptr = 0xaf45 // 0x1943 @0x0
0x1943…1957 lno = 0x09ec // 0x1945 @0x2
0x1943…1957 at0004 = ╱9f╱ ENDPROC ╱ // 0x1947 @0x4
0x1943…1957 at0005 = ╱55╱U╱ // 0x1948 @0x5
0x1943…1957 at0006 = ╱44╱D╱ // 0x1949 @0x6
0x1943…1957 at0007 = ╱53╱S╱ // 0x194a @0x7
0x1943…1957 at0008 = ╱4b╱K╱ // 0x194b @0x8
0x1943…1957 at0009 = ╱52╱R╱ // 0x194c @0x9
0x1943…1957 at000a = ╱49╱I╱ // 0x194d @0xa
0x1943…1957 at000b = ╱56╱V╱ // 0x194e @0xb
0x1943…1957 at000c = ╱5f╱_╱ // 0x194f @0xc
0x1943…1957 at000d = ╱50╱P╱ // 0x1950 @0xd
0x1943…1957 at000e = ╱4f╱O╱ // 0x1951 @0xe
0x1943…1957 at000f = ╱53╱S╱ // 0x1952 @0xf
0x1943…1957 at0010 = ╱54╱T╱ // 0x1953 @0x10
0x1943…1957 at0011 = ╱45╱E╱ // 0x1954 @0x11
0x1943…1957 at0012 = ╱52╱R╱ // 0x1955 @0x12
0x1943…1957 at0013 = EOL // 0x1956 @0x13
0x1943…1957 }
0x1957…195c af4a 02550
0x1957…195c LineComal80 {
0x1957…195c ptr = 0xaf4a // 0x1957 @0x0
0x1957…195c lno = 0x09f6 // 0x1959 @0x2
0x1957…195c at0004 = EOL // 0x195b @0x4
0x1957…195c }
0x195c…196c af5a 02560 PROC SIDESKIFT
0x195c…196c LineComal80 {
0x195c…196c ptr = 0xaf5a // 0x195c @0x0
0x195c…196c lno = 0x0a00 // 0x195e @0x2
0x195c…196c at0004 = ╱9e00╱ PROC ╱ // 0x1960 @0x4
0x195c…196c at0006 = ╱53╱S╱ // 0x1962 @0x6
0x195c…196c at0007 = ╱49╱I╱ // 0x1963 @0x7
0x195c…196c at0008 = ╱44╱D╱ // 0x1964 @0x8
0x195c…196c at0009 = ╱45╱E╱ // 0x1965 @0x9
0x195c…196c at000a = ╱53╱S╱ // 0x1966 @0xa
0x195c…196c at000b = ╱4b╱K╱ // 0x1967 @0xb
0x195c…196c at000c = ╱49╱I╱ // 0x1968 @0xc
0x195c…196c at000d = ╱46╱F╱ // 0x1969 @0xd
0x195c…196c at000e = ╱54╱T╱ // 0x196a @0xe
0x195c…196c at000f = EOL // 0x196b @0xf
0x195c…196c }
0x196c…1984 af72 02570 FOR I := LIN_T TO AX_LIN DO PRINT
0x196c…1984 LineComal80 {
0x196c…1984 ptr = 0xaf72 // 0x196c @0x0
0x196c…1984 lno = 0x0a0a // 0x196e @0x2
0x196c…1984 at0004 = ╱b400╱ FOR ╱ // 0x1970 @0x4
0x196c…1984 at0006 = ╱49╱I╱ // 0x1972 @0x6
0x196c…1984 at0007 = ╱f0╱ := ╱ // 0x1973 @0x7
0x196c…1984 at0008 = ╱4c╱L╱ // 0x1974 @0x8
0x196c…1984 at0009 = ╱49╱I╱ // 0x1975 @0x9
0x196c…1984 at000a = ╱4e╱N╱ // 0x1976 @0xa
0x196c…1984 at000b = ╱5f╱_╱ // 0x1977 @0xb
0x196c…1984 at000c = ╱54╱T╱ // 0x1978 @0xc
0x196c…1984 at000d = ╱b74d╱ TO ╱ // 0x1979 @0xd
0x196c…1984 at000f = ╱41╱A╱ // 0x197b @0xf
0x196c…1984 at0010 = ╱58╱X╱ // 0x197c @0x10
0x196c…1984 at0011 = ╱5f╱_╱ // 0x197d @0x11
0x196c…1984 at0012 = ╱4c╱L╱ // 0x197e @0x12
0x196c…1984 at0013 = ╱49╱I╱ // 0x197f @0x13
0x196c…1984 at0014 = ╱4e╱N╱ // 0x1980 @0x14
0x196c…1984 at0015 = ╱bb╱ DO ╱ // 0x1981 @0x15
0x196c…1984 at0016 = ╱92╱ PRINT ╱ // 0x1982 @0x16
0x196c…1984 at0017 = EOL // 0x1983 @0x17
0x196c…1984 }
0x1984…1994 af82 02580 LET LIN_T := 9
0x1984…1994 LineComal80 {
0x1984…1994 ptr = 0xaf82 // 0x1984 @0x0
0x1984…1994 lno = 0x0a14 // 0x1986 @0x2
0x1984…1994 at0004 = ╱86╱ LET ╱ // 0x1988 @0x4
0x1984…1994 at0005 = ╱4c╱L╱ // 0x1989 @0x5
0x1984…1994 at0006 = ╱49╱I╱ // 0x198a @0x6
0x1984…1994 at0007 = ╱4e╱N╱ // 0x198b @0x7
0x1984…1994 at0008 = ╱5f╱_╱ // 0x198c @0x8
0x1984…1994 at0009 = ╱54╱T╱ // 0x198d @0x9
0x1984…1994 at000a = ╱f0╱ := ╱ // 0x198e @0xa
0x1984…1994 at000b = ╱39╱9╱ // 0x198f @0xb
0x1984…1994 at000c = ╱f20900╱ // 0x1990 @0xc
0x1984…1994 at000f = EOL // 0x1993 @0xf
0x1984…1994 }
0x1994…19d0 afbe 02590 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 58 ) ; "SIDE:…" ; S_NR_DG_POS
0x1994…19d0 LineComal80 {
0x1994…19d0 ptr = 0xafbe // 0x1994 @0x0
0x1994…19d0 lno = 0x0a1e // 0x1996 @0x2
0x1994…19d0 at0004 = ╱92╱ PRINT ╱ // 0x1998 @0x4
0x1994…19d0 at0005 = ╱22╱"╱ // 0x1999 @0x5
0x1994…19d0 at0006 = ╱2a╱*╱ // 0x199a @0x6
0x1994…19d0 at0007 = ╱2a╱*╱ // 0x199b @0x7
0x1994…19d0 at0008 = ╱2a╱*╱ // 0x199c @0x8
0x1994…19d0 at0009 = ╱20╱…╱ // 0x199d @0x9
0x1994…19d0 at000a = ╱22╱"╱ // 0x199e @0xa
0x1994…19d0 at000b = ╱ea╱ ; ╱ // 0x199f @0xb
0x1994…19d0 at000c = ╱53╱S╱ // 0x19a0 @0xc
0x1994…19d0 at000d = ╱59╱Y╱ // 0x19a1 @0xd
0x1994…19d0 at000e = ╱53╱S╱ // 0x19a2 @0xe
0x1994…19d0 at000f = ╱54╱T╱ // 0x19a3 @0xf
0x1994…19d0 at0010 = ╱5f╱_╱ // 0x19a4 @0x10
0x1994…19d0 at0011 = ╱4e╱N╱ // 0x19a5 @0x11
0x1994…19d0 at0012 = ╱41╱A╱ // 0x19a6 @0x12
0x1994…19d0 at0013 = ╱56╱V╱ // 0x19a7 @0x13
0x1994…19d0 at0014 = ╱4e╱N╱ // 0x19a8 @0x14
0x1994…19d0 at0015 = ╱ef╱ $ ╱ // 0x19a9 @0x15
0x1994…19d0 at0016 = ╱ea╱ ; ╱ // 0x19aa @0x16
0x1994…19d0 at0017 = ╱22╱"╱ // 0x19ab @0x17
0x1994…19d0 at0018 = ╱20╱…╱ // 0x19ac @0x18
0x1994…19d0 at0019 = ╱2a╱*╱ // 0x19ad @0x19
0x1994…19d0 at001a = ╱2a╱*╱ // 0x19ae @0x1a
0x1994…19d0 at001b = ╱2a╱*╱ // 0x19af @0x1b
0x1994…19d0 at001c = ╱22╱"╱ // 0x19b0 @0x1c
0x1994…19d0 at001d = ╱ea╱ ; ╱ // 0x19b1 @0x1d
0x1994…19d0 at001e = ╱d2╱ TAB ╱ // 0x19b2 @0x1e
0x1994…19d0 at001f = ╱ed╱ ( ╱ // 0x19b3 @0x1f
0x1994…19d0 at0020 = ╱35╱5╱ // 0x19b4 @0x20
0x1994…19d0 at0021 = ╱38╱8╱ // 0x19b5 @0x21
0x1994…19d0 at0022 = ╱f23a00╱ // 0x19b6 @0x22
0x1994…19d0 at0025 = ╱ee╱ ) ╱ // 0x19b9 @0x25
0x1994…19d0 at0026 = ╱ea╱ ; ╱ // 0x19ba @0x26
0x1994…19d0 at0027 = ╱22╱"╱ // 0x19bb @0x27
0x1994…19d0 at0028 = ╱53╱S╱ // 0x19bc @0x28
0x1994…19d0 at0029 = ╱49╱I╱ // 0x19bd @0x29
0x1994…19d0 at002a = ╱44╱D╱ // 0x19be @0x2a
0x1994…19d0 at002b = ╱45╱E╱ // 0x19bf @0x2b
0x1994…19d0 at002c = ╱3a╱:╱ // 0x19c0 @0x2c
0x1994…19d0 at002d = ╱20╱…╱ // 0x19c1 @0x2d
0x1994…19d0 at002e = ╱22╱"╱ // 0x19c2 @0x2e
0x1994…19d0 at002f = ╱ea╱ ; ╱ // 0x19c3 @0x2f
0x1994…19d0 at0030 = ╱53╱S╱ // 0x19c4 @0x30
0x1994…19d0 at0031 = ╱5f╱_╱ // 0x19c5 @0x31
0x1994…19d0 at0032 = ╱4e╱N╱ // 0x19c6 @0x32
0x1994…19d0 at0033 = ╱52╱R╱ // 0x19c7 @0x33
0x1994…19d0 at0034 = ╱5f╱_╱ // 0x19c8 @0x34
0x1994…19d0 at0035 = ╱44╱D╱ // 0x19c9 @0x35
0x1994…19d0 at0036 = ╱47╱G╱ // 0x19ca @0x36
0x1994…19d0 at0037 = ╱5f╱_╱ // 0x19cb @0x37
0x1994…19d0 at0038 = ╱50╱P╱ // 0x19cc @0x38
0x1994…19d0 at0039 = ╱4f╱O╱ // 0x19cd @0x39
0x1994…19d0 at003a = ╱53╱S╱ // 0x19ce @0x3a
0x1994…19d0 at003b = EOL // 0x19cf @0x3b
0x1994…19d0 }
0x19d0…19d6 afc4 02600 PRINT
0x19d0…19d6 LineComal80 {
0x19d0…19d6 ptr = 0xafc4 // 0x19d0 @0x0
0x19d0…19d6 lno = 0x0a28 // 0x19d2 @0x2
0x19d0…19d6 at0004 = ╱92╱ PRINT ╱ // 0x19d4 @0x4
0x19d0…19d6 at0005 = EOL // 0x19d5 @0x5
0x19d0…19d6 }
0x19d6…19f4 afe2 02610 PRINT "Firmanavn:…" ; FIRMANAVN $
0x19d6…19f4 LineComal80 {
0x19d6…19f4 ptr = 0xafe2 // 0x19d6 @0x0
0x19d6…19f4 lno = 0x0a32 // 0x19d8 @0x2
0x19d6…19f4 at0004 = ╱92╱ PRINT ╱ // 0x19da @0x4
0x19d6…19f4 at0005 = ╱22╱"╱ // 0x19db @0x5
0x19d6…19f4 at0006 = ╱46╱F╱ // 0x19dc @0x6
0x19d6…19f4 at0007 = ╱69╱i╱ // 0x19dd @0x7
0x19d6…19f4 at0008 = ╱72╱r╱ // 0x19de @0x8
0x19d6…19f4 at0009 = ╱6d╱m╱ // 0x19df @0x9
0x19d6…19f4 at000a = ╱61╱a╱ // 0x19e0 @0xa
0x19d6…19f4 at000b = ╱6e╱n╱ // 0x19e1 @0xb
0x19d6…19f4 at000c = ╱61╱a╱ // 0x19e2 @0xc
0x19d6…19f4 at000d = ╱76╱v╱ // 0x19e3 @0xd
0x19d6…19f4 at000e = ╱6e╱n╱ // 0x19e4 @0xe
0x19d6…19f4 at000f = ╱3a╱:╱ // 0x19e5 @0xf
0x19d6…19f4 at0010 = ╱20╱…╱ // 0x19e6 @0x10
0x19d6…19f4 at0011 = ╱22╱"╱ // 0x19e7 @0x11
0x19d6…19f4 at0012 = ╱ea╱ ; ╱ // 0x19e8 @0x12
0x19d6…19f4 at0013 = ╱46╱F╱ // 0x19e9 @0x13
0x19d6…19f4 at0014 = ╱49╱I╱ // 0x19ea @0x14
0x19d6…19f4 at0015 = ╱52╱R╱ // 0x19eb @0x15
0x19d6…19f4 at0016 = ╱4d╱M╱ // 0x19ec @0x16
0x19d6…19f4 at0017 = ╱41╱A╱ // 0x19ed @0x17
0x19d6…19f4 at0018 = ╱4e╱N╱ // 0x19ee @0x18
0x19d6…19f4 at0019 = ╱41╱A╱ // 0x19ef @0x19
0x19d6…19f4 at001a = ╱56╱V╱ // 0x19f0 @0x1a
0x19d6…19f4 at001b = ╱4e╱N╱ // 0x19f1 @0x1b
0x19d6…19f4 at001c = ╱ef╱ $ ╱ // 0x19f2 @0x1c
0x19d6…19f4 at001d = EOL // 0x19f3 @0x1d
0x19d6…19f4 }
0x19f4…19fa afe8 02620 PRINT
0x19f4…19fa LineComal80 {
0x19f4…19fa ptr = 0xafe8 // 0x19f4 @0x0
0x19f4…19fa lno = 0x0a3c // 0x19f6 @0x2
0x19f4…19fa at0004 = ╱92╱ PRINT ╱ // 0x19f8 @0x4
0x19f4…19fa at0005 = EOL // 0x19f9 @0x5
0x19f4…19fa }
0x19fa…1a4b b039 02630 PRINT "<S>***…KONTERINGSLISTE…PR.…" ; P_BDAT $ ( 1 : 2 ) ; "." ; P_BDAT $ ( 3 : 2 ) ; "."
0x19fa…1a4b LineComal80 {
0x19fa…1a4b ptr = 0xb039 // 0x19fa @0x0
0x19fa…1a4b lno = 0x0a46 // 0x19fc @0x2
0x19fa…1a4b at0004 = ╱92╱ PRINT ╱ // 0x19fe @0x4
0x19fa…1a4b at0005 = ╱22╱"╱ // 0x19ff @0x5
0x19fa…1a4b at0006 = ╱3c╱<╱ // 0x1a00 @0x6
0x19fa…1a4b at0007 = ╱53╱S╱ // 0x1a01 @0x7
0x19fa…1a4b at0008 = ╱3e╱>╱ // 0x1a02 @0x8
0x19fa…1a4b at0009 = ╱2a╱*╱ // 0x1a03 @0x9
0x19fa…1a4b at000a = ╱2a╱*╱ // 0x1a04 @0xa
0x19fa…1a4b at000b = ╱2a╱*╱ // 0x1a05 @0xb
0x19fa…1a4b at000c = ╱20╱…╱ // 0x1a06 @0xc
0x19fa…1a4b at000d = ╱4b╱K╱ // 0x1a07 @0xd
0x19fa…1a4b at000e = ╱4f╱O╱ // 0x1a08 @0xe
0x19fa…1a4b at000f = ╱4e╱N╱ // 0x1a09 @0xf
0x19fa…1a4b at0010 = ╱54╱T╱ // 0x1a0a @0x10
0x19fa…1a4b at0011 = ╱45╱E╱ // 0x1a0b @0x11
0x19fa…1a4b at0012 = ╱52╱R╱ // 0x1a0c @0x12
0x19fa…1a4b at0013 = ╱49╱I╱ // 0x1a0d @0x13
0x19fa…1a4b at0014 = ╱4e╱N╱ // 0x1a0e @0x14
0x19fa…1a4b at0015 = ╱47╱G╱ // 0x1a0f @0x15
0x19fa…1a4b at0016 = ╱53╱S╱ // 0x1a10 @0x16
0x19fa…1a4b at0017 = ╱4c╱L╱ // 0x1a11 @0x17
0x19fa…1a4b at0018 = ╱49╱I╱ // 0x1a12 @0x18
0x19fa…1a4b at0019 = ╱53╱S╱ // 0x1a13 @0x19
0x19fa…1a4b at001a = ╱54╱T╱ // 0x1a14 @0x1a
0x19fa…1a4b at001b = ╱45╱E╱ // 0x1a15 @0x1b
0x19fa…1a4b at001c = ╱20╱…╱ // 0x1a16 @0x1c
0x19fa…1a4b at001d = ╱50╱P╱ // 0x1a17 @0x1d
0x19fa…1a4b at001e = ╱52╱R╱ // 0x1a18 @0x1e
0x19fa…1a4b at001f = ╱2e╱.╱ // 0x1a19 @0x1f
0x19fa…1a4b at0020 = ╱20╱…╱ // 0x1a1a @0x20
0x19fa…1a4b at0021 = ╱22╱"╱ // 0x1a1b @0x21
0x19fa…1a4b at0022 = ╱ea╱ ; ╱ // 0x1a1c @0x22
0x19fa…1a4b at0023 = ╱50╱P╱ // 0x1a1d @0x23
0x19fa…1a4b at0024 = ╱5f╱_╱ // 0x1a1e @0x24
0x19fa…1a4b at0025 = ╱42╱B╱ // 0x1a1f @0x25
0x19fa…1a4b at0026 = ╱44╱D╱ // 0x1a20 @0x26
0x19fa…1a4b at0027 = ╱41╱A╱ // 0x1a21 @0x27
0x19fa…1a4b at0028 = ╱54╱T╱ // 0x1a22 @0x28
0x19fa…1a4b at0029 = ╱ef╱ $ ╱ // 0x1a23 @0x29
0x19fa…1a4b at002a = ╱ed╱ ( ╱ // 0x1a24 @0x2a
0x19fa…1a4b at002b = ╱31╱1╱ // 0x1a25 @0x2b
0x19fa…1a4b at002c = ╱f20100╱ // 0x1a26 @0x2c
0x19fa…1a4b at002f = ╱f1╱ : ╱ // 0x1a29 @0x2f
0x19fa…1a4b at0030 = ╱32╱2╱ // 0x1a2a @0x30
0x19fa…1a4b at0031 = ╱f20200╱ // 0x1a2b @0x31
0x19fa…1a4b at0034 = ╱ee╱ ) ╱ // 0x1a2e @0x34
0x19fa…1a4b at0035 = ╱ea╱ ; ╱ // 0x1a2f @0x35
0x19fa…1a4b at0036 = ╱22╱"╱ // 0x1a30 @0x36
0x19fa…1a4b at0037 = ╱2e╱.╱ // 0x1a31 @0x37
0x19fa…1a4b at0038 = ╱22╱"╱ // 0x1a32 @0x38
0x19fa…1a4b at0039 = ╱ea╱ ; ╱ // 0x1a33 @0x39
0x19fa…1a4b at003a = ╱50╱P╱ // 0x1a34 @0x3a
0x19fa…1a4b at003b = ╱5f╱_╱ // 0x1a35 @0x3b
0x19fa…1a4b at003c = ╱42╱B╱ // 0x1a36 @0x3c
0x19fa…1a4b at003d = ╱44╱D╱ // 0x1a37 @0x3d
0x19fa…1a4b at003e = ╱41╱A╱ // 0x1a38 @0x3e
0x19fa…1a4b at003f = ╱54╱T╱ // 0x1a39 @0x3f
0x19fa…1a4b at0040 = ╱ef╱ $ ╱ // 0x1a3a @0x40
0x19fa…1a4b at0041 = ╱ed╱ ( ╱ // 0x1a3b @0x41
0x19fa…1a4b at0042 = ╱33╱3╱ // 0x1a3c @0x42
0x19fa…1a4b at0043 = ╱f20300╱ // 0x1a3d @0x43
0x19fa…1a4b at0046 = ╱f1╱ : ╱ // 0x1a40 @0x46
0x19fa…1a4b at0047 = ╱32╱2╱ // 0x1a41 @0x47
0x19fa…1a4b at0048 = ╱f20200╱ // 0x1a42 @0x48
0x19fa…1a4b at004b = ╱ee╱ ) ╱ // 0x1a45 @0x4b
0x19fa…1a4b at004c = ╱ea╱ ; ╱ // 0x1a46 @0x4c
0x19fa…1a4b at004d = ╱22╱"╱ // 0x1a47 @0x4d
0x19fa…1a4b at004e = ╱2e╱.╱ // 0x1a48 @0x4e
0x19fa…1a4b at004f = ╱22╱"╱ // 0x1a49 @0x4f
0x19fa…1a4b at0050 = EOL // 0x1a4a @0x50
0x19fa…1a4b }
0x1a4b…1a81 b06f 02640 PRINT "<S>" ; P_BDAT $ ( 5 : 2 ) ; "…**…**…UDSKREVET…PR.…"
0x1a4b…1a81 LineComal80 {
0x1a4b…1a81 ptr = 0xb06f // 0x1a4b @0x0
0x1a4b…1a81 lno = 0x0a50 // 0x1a4d @0x2
0x1a4b…1a81 at0004 = ╱92╱ PRINT ╱ // 0x1a4f @0x4
0x1a4b…1a81 at0005 = ╱22╱"╱ // 0x1a50 @0x5
0x1a4b…1a81 at0006 = ╱3c╱<╱ // 0x1a51 @0x6
0x1a4b…1a81 at0007 = ╱53╱S╱ // 0x1a52 @0x7
0x1a4b…1a81 at0008 = ╱3e╱>╱ // 0x1a53 @0x8
0x1a4b…1a81 at0009 = ╱22╱"╱ // 0x1a54 @0x9
0x1a4b…1a81 at000a = ╱ea╱ ; ╱ // 0x1a55 @0xa
0x1a4b…1a81 at000b = ╱50╱P╱ // 0x1a56 @0xb
0x1a4b…1a81 at000c = ╱5f╱_╱ // 0x1a57 @0xc
0x1a4b…1a81 at000d = ╱42╱B╱ // 0x1a58 @0xd
0x1a4b…1a81 at000e = ╱44╱D╱ // 0x1a59 @0xe
0x1a4b…1a81 at000f = ╱41╱A╱ // 0x1a5a @0xf
0x1a4b…1a81 at0010 = ╱54╱T╱ // 0x1a5b @0x10
0x1a4b…1a81 at0011 = ╱ef╱ $ ╱ // 0x1a5c @0x11
0x1a4b…1a81 at0012 = ╱ed╱ ( ╱ // 0x1a5d @0x12
0x1a4b…1a81 at0013 = ╱35╱5╱ // 0x1a5e @0x13
0x1a4b…1a81 at0014 = ╱f20500╱ // 0x1a5f @0x14
0x1a4b…1a81 at0017 = ╱f1╱ : ╱ // 0x1a62 @0x17
0x1a4b…1a81 at0018 = ╱32╱2╱ // 0x1a63 @0x18
0x1a4b…1a81 at0019 = ╱f20200╱ // 0x1a64 @0x19
0x1a4b…1a81 at001c = ╱ee╱ ) ╱ // 0x1a67 @0x1c
0x1a4b…1a81 at001d = ╱ea╱ ; ╱ // 0x1a68 @0x1d
0x1a4b…1a81 at001e = ╱22╱"╱ // 0x1a69 @0x1e
0x1a4b…1a81 at001f = ╱20╱…╱ // 0x1a6a @0x1f
0x1a4b…1a81 at0020 = ╱2a╱*╱ // 0x1a6b @0x20
0x1a4b…1a81 at0021 = ╱2a╱*╱ // 0x1a6c @0x21
0x1a4b…1a81 at0022 = ╱20╱…╱ // 0x1a6d @0x22
0x1a4b…1a81 at0023 = ╱2a╱*╱ // 0x1a6e @0x23
0x1a4b…1a81 at0024 = ╱2a╱*╱ // 0x1a6f @0x24
0x1a4b…1a81 at0025 = ╱20╱…╱ // 0x1a70 @0x25
0x1a4b…1a81 at0026 = ╱55╱U╱ // 0x1a71 @0x26
0x1a4b…1a81 at0027 = ╱44╱D╱ // 0x1a72 @0x27
0x1a4b…1a81 at0028 = ╱53╱S╱ // 0x1a73 @0x28
0x1a4b…1a81 at0029 = ╱4b╱K╱ // 0x1a74 @0x29
0x1a4b…1a81 at002a = ╱52╱R╱ // 0x1a75 @0x2a
0x1a4b…1a81 at002b = ╱45╱E╱ // 0x1a76 @0x2b
0x1a4b…1a81 at002c = ╱56╱V╱ // 0x1a77 @0x2c
0x1a4b…1a81 at002d = ╱45╱E╱ // 0x1a78 @0x2d
0x1a4b…1a81 at002e = ╱54╱T╱ // 0x1a79 @0x2e
0x1a4b…1a81 at002f = ╱20╱…╱ // 0x1a7a @0x2f
0x1a4b…1a81 at0030 = ╱50╱P╱ // 0x1a7b @0x30
0x1a4b…1a81 at0031 = ╱52╱R╱ // 0x1a7c @0x31
0x1a4b…1a81 at0032 = ╱2e╱.╱ // 0x1a7d @0x32
0x1a4b…1a81 at0033 = ╱20╱…╱ // 0x1a7e @0x33
0x1a4b…1a81 at0034 = ╱22╱"╱ // 0x1a7f @0x34
0x1a4b…1a81 at0035 = EOL // 0x1a80 @0x35
0x1a4b…1a81 }
0x1a81…1ad4 b0c2 02650 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
0x1a81…1ad4 LineComal80 {
0x1a81…1ad4 ptr = 0xb0c2 // 0x1a81 @0x0
0x1a81…1ad4 lno = 0x0a5a // 0x1a83 @0x2
0x1a81…1ad4 at0004 = ╱92╱ PRINT ╱ // 0x1a85 @0x4
0x1a81…1ad4 at0005 = ╱53╱S╱ // 0x1a86 @0x5
0x1a81…1ad4 at0006 = ╱59╱Y╱ // 0x1a87 @0x6
0x1a81…1ad4 at0007 = ╱53╱S╱ // 0x1a88 @0x7
0x1a81…1ad4 at0008 = ╱54╱T╱ // 0x1a89 @0x8
0x1a81…1ad4 at0009 = ╱5f╱_╱ // 0x1a8a @0x9
0x1a81…1ad4 at000a = ╱44╱D╱ // 0x1a8b @0xa
0x1a81…1ad4 at000b = ╱41╱A╱ // 0x1a8c @0xb
0x1a81…1ad4 at000c = ╱54╱T╱ // 0x1a8d @0xc
0x1a81…1ad4 at000d = ╱ef╱ $ ╱ // 0x1a8e @0xd
0x1a81…1ad4 at000e = ╱ed╱ ( ╱ // 0x1a8f @0xe
0x1a81…1ad4 at000f = ╱31╱1╱ // 0x1a90 @0xf
0x1a81…1ad4 at0010 = ╱f20100╱ // 0x1a91 @0x10
0x1a81…1ad4 at0013 = ╱f1╱ : ╱ // 0x1a94 @0x13
0x1a81…1ad4 at0014 = ╱32╱2╱ // 0x1a95 @0x14
0x1a81…1ad4 at0015 = ╱f20200╱ // 0x1a96 @0x15
0x1a81…1ad4 at0018 = ╱ee╱ ) ╱ // 0x1a99 @0x18
0x1a81…1ad4 at0019 = ╱ea╱ ; ╱ // 0x1a9a @0x19
0x1a81…1ad4 at001a = ╱22╱"╱ // 0x1a9b @0x1a
0x1a81…1ad4 at001b = ╱2e╱.╱ // 0x1a9c @0x1b
0x1a81…1ad4 at001c = ╱22╱"╱ // 0x1a9d @0x1c
0x1a81…1ad4 at001d = ╱ea╱ ; ╱ // 0x1a9e @0x1d
0x1a81…1ad4 at001e = ╱53╱S╱ // 0x1a9f @0x1e
0x1a81…1ad4 at001f = ╱59╱Y╱ // 0x1aa0 @0x1f
0x1a81…1ad4 at0020 = ╱53╱S╱ // 0x1aa1 @0x20
0x1a81…1ad4 at0021 = ╱54╱T╱ // 0x1aa2 @0x21
0x1a81…1ad4 at0022 = ╱5f╱_╱ // 0x1aa3 @0x22
0x1a81…1ad4 at0023 = ╱44╱D╱ // 0x1aa4 @0x23
0x1a81…1ad4 at0024 = ╱41╱A╱ // 0x1aa5 @0x24
0x1a81…1ad4 at0025 = ╱54╱T╱ // 0x1aa6 @0x25
0x1a81…1ad4 at0026 = ╱ef╱ $ ╱ // 0x1aa7 @0x26
0x1a81…1ad4 at0027 = ╱ed╱ ( ╱ // 0x1aa8 @0x27
0x1a81…1ad4 at0028 = ╱33╱3╱ // 0x1aa9 @0x28
0x1a81…1ad4 at0029 = ╱f20300╱ // 0x1aaa @0x29
0x1a81…1ad4 at002c = ╱f1╱ : ╱ // 0x1aad @0x2c
0x1a81…1ad4 at002d = ╱32╱2╱ // 0x1aae @0x2d
0x1a81…1ad4 at002e = ╱f20200╱ // 0x1aaf @0x2e
0x1a81…1ad4 at0031 = ╱ee╱ ) ╱ // 0x1ab2 @0x31
0x1a81…1ad4 at0032 = ╱ea╱ ; ╱ // 0x1ab3 @0x32
0x1a81…1ad4 at0033 = ╱22╱"╱ // 0x1ab4 @0x33
0x1a81…1ad4 at0034 = ╱2e╱.╱ // 0x1ab5 @0x34
0x1a81…1ad4 at0035 = ╱22╱"╱ // 0x1ab6 @0x35
0x1a81…1ad4 at0036 = ╱ea╱ ; ╱ // 0x1ab7 @0x36
0x1a81…1ad4 at0037 = ╱53╱S╱ // 0x1ab8 @0x37
0x1a81…1ad4 at0038 = ╱59╱Y╱ // 0x1ab9 @0x38
0x1a81…1ad4 at0039 = ╱53╱S╱ // 0x1aba @0x39
0x1a81…1ad4 at003a = ╱54╱T╱ // 0x1abb @0x3a
0x1a81…1ad4 at003b = ╱5f╱_╱ // 0x1abc @0x3b
0x1a81…1ad4 at003c = ╱44╱D╱ // 0x1abd @0x3c
0x1a81…1ad4 at003d = ╱41╱A╱ // 0x1abe @0x3d
0x1a81…1ad4 at003e = ╱54╱T╱ // 0x1abf @0x3e
0x1a81…1ad4 at003f = ╱ef╱ $ ╱ // 0x1ac0 @0x3f
0x1a81…1ad4 at0040 = ╱ed╱ ( ╱ // 0x1ac1 @0x40
0x1a81…1ad4 at0041 = ╱35╱5╱ // 0x1ac2 @0x41
0x1a81…1ad4 at0042 = ╱f20500╱ // 0x1ac3 @0x42
0x1a81…1ad4 at0045 = ╱f1╱ : ╱ // 0x1ac6 @0x45
0x1a81…1ad4 at0046 = ╱32╱2╱ // 0x1ac7 @0x46
0x1a81…1ad4 at0047 = ╱f20200╱ // 0x1ac8 @0x47
0x1a81…1ad4 at004a = ╱ee╱ ) ╱ // 0x1acb @0x4a
0x1a81…1ad4 at004b = ╱ea╱ ; ╱ // 0x1acc @0x4b
0x1a81…1ad4 at004c = ╱22╱"╱ // 0x1acd @0x4c
0x1a81…1ad4 at004d = ╱20╱…╱ // 0x1ace @0x4d
0x1a81…1ad4 at004e = ╱2a╱*╱ // 0x1acf @0x4e
0x1a81…1ad4 at004f = ╱2a╱*╱ // 0x1ad0 @0x4f
0x1a81…1ad4 at0050 = ╱2a╱*╱ // 0x1ad1 @0x50
0x1a81…1ad4 at0051 = ╱22╱"╱ // 0x1ad2 @0x51
0x1a81…1ad4 at0052 = EOL // 0x1ad3 @0x52
0x1a81…1ad4 }
0x1ad4…1ada c396 02660 PRINT
0x1ad4…1ada LineComal80 {
0x1ad4…1ada ptr = 0xc396 // 0x1ad4 @0x0
0x1ad4…1ada lno = 0x0a64 // 0x1ad6 @0x2
0x1ad4…1ada at0004 = ╱92╱ PRINT ╱ // 0x1ad8 @0x4
0x1ad4…1ada at0005 = EOL // 0x1ad9 @0x5
0x1ad4…1ada }
0x1ada…1b1a b108 02660 PRINT "<S>BILAG……TEKST……………………………………………MK……KONTONR……………DEBET………"
0x1ada…1b1a LineComal80 {
0x1ada…1b1a ptr = 0xb108 // 0x1ada @0x0
0x1ada…1b1a lno = 0x0a64 // 0x1adc @0x2
0x1ada…1b1a at0004 = ╱92╱ PRINT ╱ // 0x1ade @0x4
0x1ada…1b1a at0005 = ╱22╱"╱ // 0x1adf @0x5
0x1ada…1b1a at0006 = ╱3c╱<╱ // 0x1ae0 @0x6
0x1ada…1b1a at0007 = ╱53╱S╱ // 0x1ae1 @0x7
0x1ada…1b1a at0008 = ╱3e╱>╱ // 0x1ae2 @0x8
0x1ada…1b1a at0009 = ╱42╱B╱ // 0x1ae3 @0x9
0x1ada…1b1a at000a = ╱49╱I╱ // 0x1ae4 @0xa
0x1ada…1b1a at000b = ╱4c╱L╱ // 0x1ae5 @0xb
0x1ada…1b1a at000c = ╱41╱A╱ // 0x1ae6 @0xc
0x1ada…1b1a at000d = ╱47╱G╱ // 0x1ae7 @0xd
0x1ada…1b1a at000e = ╱20╱…╱ // 0x1ae8 @0xe
0x1ada…1b1a at000f = ╱20╱…╱ // 0x1ae9 @0xf
0x1ada…1b1a at0010 = ╱54╱T╱ // 0x1aea @0x10
0x1ada…1b1a at0011 = ╱45╱E╱ // 0x1aeb @0x11
0x1ada…1b1a at0012 = ╱4b╱K╱ // 0x1aec @0x12
0x1ada…1b1a at0013 = ╱53╱S╱ // 0x1aed @0x13
0x1ada…1b1a at0014 = ╱54╱T╱ // 0x1aee @0x14
0x1ada…1b1a at0015 = ╱20╱…╱ // 0x1aef @0x15
0x1ada…1b1a at0016 = ╱20╱…╱ // 0x1af0 @0x16
0x1ada…1b1a at0017 = ╱20╱…╱ // 0x1af1 @0x17
0x1ada…1b1a at0018 = ╱20╱…╱ // 0x1af2 @0x18
0x1ada…1b1a at0019 = ╱20╱…╱ // 0x1af3 @0x19
0x1ada…1b1a at001a = ╱20╱…╱ // 0x1af4 @0x1a
0x1ada…1b1a at001b = ╱20╱…╱ // 0x1af5 @0x1b
0x1ada…1b1a at001c = ╱20╱…╱ // 0x1af6 @0x1c
0x1ada…1b1a at001d = ╱20╱…╱ // 0x1af7 @0x1d
0x1ada…1b1a at001e = ╱20╱…╱ // 0x1af8 @0x1e
0x1ada…1b1a at001f = ╱20╱…╱ // 0x1af9 @0x1f
0x1ada…1b1a at0020 = ╱20╱…╱ // 0x1afa @0x20
0x1ada…1b1a at0021 = ╱20╱…╱ // 0x1afb @0x21
0x1ada…1b1a at0022 = ╱20╱…╱ // 0x1afc @0x22
0x1ada…1b1a at0023 = ╱20╱…╱ // 0x1afd @0x23
0x1ada…1b1a at0024 = ╱20╱…╱ // 0x1afe @0x24
0x1ada…1b1a at0025 = ╱20╱…╱ // 0x1aff @0x25
0x1ada…1b1a at0026 = ╱4d╱M╱ // 0x1b00 @0x26
0x1ada…1b1a at0027 = ╱4b╱K╱ // 0x1b01 @0x27
0x1ada…1b1a at0028 = ╱20╱…╱ // 0x1b02 @0x28
0x1ada…1b1a at0029 = ╱20╱…╱ // 0x1b03 @0x29
0x1ada…1b1a at002a = ╱4b╱K╱ // 0x1b04 @0x2a
0x1ada…1b1a at002b = ╱4f╱O╱ // 0x1b05 @0x2b
0x1ada…1b1a at002c = ╱4e╱N╱ // 0x1b06 @0x2c
0x1ada…1b1a at002d = ╱54╱T╱ // 0x1b07 @0x2d
0x1ada…1b1a at002e = ╱4f╱O╱ // 0x1b08 @0x2e
0x1ada…1b1a at002f = ╱4e╱N╱ // 0x1b09 @0x2f
0x1ada…1b1a at0030 = ╱52╱R╱ // 0x1b0a @0x30
0x1ada…1b1a at0031 = ╱20╱…╱ // 0x1b0b @0x31
0x1ada…1b1a at0032 = ╱20╱…╱ // 0x1b0c @0x32
0x1ada…1b1a at0033 = ╱20╱…╱ // 0x1b0d @0x33
0x1ada…1b1a at0034 = ╱20╱…╱ // 0x1b0e @0x34
0x1ada…1b1a at0035 = ╱20╱…╱ // 0x1b0f @0x35
0x1ada…1b1a at0036 = ╱44╱D╱ // 0x1b10 @0x36
0x1ada…1b1a at0037 = ╱45╱E╱ // 0x1b11 @0x37
0x1ada…1b1a at0038 = ╱42╱B╱ // 0x1b12 @0x38
0x1ada…1b1a at0039 = ╱45╱E╱ // 0x1b13 @0x39
0x1ada…1b1a at003a = ╱54╱T╱ // 0x1b14 @0x3a
0x1ada…1b1a at003b = ╱20╱…╱ // 0x1b15 @0x3b
0x1ada…1b1a at003c = ╱20╱…╱ // 0x1b16 @0x3c
0x1ada…1b1a at003d = ╱20╱…╱ // 0x1b17 @0x3d
0x1ada…1b1a at003e = ╱22╱"╱ // 0x1b18 @0x3e
0x1ada…1b1a at003f = EOL // 0x1b19 @0x3f
0x1ada…1b1a }
0x1b1a…1b2e c3d6 02680 PRINT "…………KREDIT……"
0x1b1a…1b2e LineComal80 {
0x1b1a…1b2e ptr = 0xc3d6 // 0x1b1a @0x0
0x1b1a…1b2e lno = 0x0a78 // 0x1b1c @0x2
0x1b1a…1b2e at0004 = ╱92╱ PRINT ╱ // 0x1b1e @0x4
0x1b1a…1b2e at0005 = ╱22╱"╱ // 0x1b1f @0x5
0x1b1a…1b2e at0006 = ╱20╱…╱ // 0x1b20 @0x6
0x1b1a…1b2e at0007 = ╱20╱…╱ // 0x1b21 @0x7
0x1b1a…1b2e at0008 = ╱20╱…╱ // 0x1b22 @0x8
0x1b1a…1b2e at0009 = ╱20╱…╱ // 0x1b23 @0x9
0x1b1a…1b2e at000a = ╱4b╱K╱ // 0x1b24 @0xa
0x1b1a…1b2e at000b = ╱52╱R╱ // 0x1b25 @0xb
0x1b1a…1b2e at000c = ╱45╱E╱ // 0x1b26 @0xc
0x1b1a…1b2e at000d = ╱44╱D╱ // 0x1b27 @0xd
0x1b1a…1b2e at000e = ╱49╱I╱ // 0x1b28 @0xe
0x1b1a…1b2e at000f = ╱54╱T╱ // 0x1b29 @0xf
0x1b1a…1b2e at0010 = ╱20╱…╱ // 0x1b2a @0x10
0x1b1a…1b2e at0011 = ╱20╱…╱ // 0x1b2b @0x11
0x1b1a…1b2e at0012 = ╱22╱"╱ // 0x1b2c @0x12
0x1b1a…1b2e at0013 = EOL // 0x1b2d @0x13
0x1b1a…1b2e }
0x1b2e…1b6e b15c 02680 PRINT "<S>-----……--------------------……--……--------……----------"
0x1b2e…1b6e LineComal80 {
0x1b2e…1b6e ptr = 0xb15c // 0x1b2e @0x0
0x1b2e…1b6e lno = 0x0a78 // 0x1b30 @0x2
0x1b2e…1b6e at0004 = ╱92╱ PRINT ╱ // 0x1b32 @0x4
0x1b2e…1b6e at0005 = ╱22╱"╱ // 0x1b33 @0x5
0x1b2e…1b6e at0006 = ╱3c╱<╱ // 0x1b34 @0x6
0x1b2e…1b6e at0007 = ╱53╱S╱ // 0x1b35 @0x7
0x1b2e…1b6e at0008 = ╱3e╱>╱ // 0x1b36 @0x8
0x1b2e…1b6e at0009 = ╱2d╱-╱ // 0x1b37 @0x9
0x1b2e…1b6e at000a = ╱2d╱-╱ // 0x1b38 @0xa
0x1b2e…1b6e at000b = ╱2d╱-╱ // 0x1b39 @0xb
0x1b2e…1b6e at000c = ╱2d╱-╱ // 0x1b3a @0xc
0x1b2e…1b6e at000d = ╱2d╱-╱ // 0x1b3b @0xd
0x1b2e…1b6e at000e = ╱20╱…╱ // 0x1b3c @0xe
0x1b2e…1b6e at000f = ╱20╱…╱ // 0x1b3d @0xf
0x1b2e…1b6e at0010 = ╱2d╱-╱ // 0x1b3e @0x10
0x1b2e…1b6e at0011 = ╱2d╱-╱ // 0x1b3f @0x11
0x1b2e…1b6e at0012 = ╱2d╱-╱ // 0x1b40 @0x12
0x1b2e…1b6e at0013 = ╱2d╱-╱ // 0x1b41 @0x13
0x1b2e…1b6e at0014 = ╱2d╱-╱ // 0x1b42 @0x14
0x1b2e…1b6e at0015 = ╱2d╱-╱ // 0x1b43 @0x15
0x1b2e…1b6e at0016 = ╱2d╱-╱ // 0x1b44 @0x16
0x1b2e…1b6e at0017 = ╱2d╱-╱ // 0x1b45 @0x17
0x1b2e…1b6e at0018 = ╱2d╱-╱ // 0x1b46 @0x18
0x1b2e…1b6e at0019 = ╱2d╱-╱ // 0x1b47 @0x19
0x1b2e…1b6e at001a = ╱2d╱-╱ // 0x1b48 @0x1a
0x1b2e…1b6e at001b = ╱2d╱-╱ // 0x1b49 @0x1b
0x1b2e…1b6e at001c = ╱2d╱-╱ // 0x1b4a @0x1c
0x1b2e…1b6e at001d = ╱2d╱-╱ // 0x1b4b @0x1d
0x1b2e…1b6e at001e = ╱2d╱-╱ // 0x1b4c @0x1e
0x1b2e…1b6e at001f = ╱2d╱-╱ // 0x1b4d @0x1f
0x1b2e…1b6e at0020 = ╱2d╱-╱ // 0x1b4e @0x20
0x1b2e…1b6e at0021 = ╱2d╱-╱ // 0x1b4f @0x21
0x1b2e…1b6e at0022 = ╱2d╱-╱ // 0x1b50 @0x22
0x1b2e…1b6e at0023 = ╱2d╱-╱ // 0x1b51 @0x23
0x1b2e…1b6e at0024 = ╱20╱…╱ // 0x1b52 @0x24
0x1b2e…1b6e at0025 = ╱20╱…╱ // 0x1b53 @0x25
0x1b2e…1b6e at0026 = ╱2d╱-╱ // 0x1b54 @0x26
0x1b2e…1b6e at0027 = ╱2d╱-╱ // 0x1b55 @0x27
0x1b2e…1b6e at0028 = ╱20╱…╱ // 0x1b56 @0x28
0x1b2e…1b6e at0029 = ╱20╱…╱ // 0x1b57 @0x29
0x1b2e…1b6e at002a = ╱2d╱-╱ // 0x1b58 @0x2a
0x1b2e…1b6e at002b = ╱2d╱-╱ // 0x1b59 @0x2b
0x1b2e…1b6e at002c = ╱2d╱-╱ // 0x1b5a @0x2c
0x1b2e…1b6e at002d = ╱2d╱-╱ // 0x1b5b @0x2d
0x1b2e…1b6e at002e = ╱2d╱-╱ // 0x1b5c @0x2e
0x1b2e…1b6e at002f = ╱2d╱-╱ // 0x1b5d @0x2f
0x1b2e…1b6e at0030 = ╱2d╱-╱ // 0x1b5e @0x30
0x1b2e…1b6e at0031 = ╱2d╱-╱ // 0x1b5f @0x31
0x1b2e…1b6e at0032 = ╱20╱…╱ // 0x1b60 @0x32
0x1b2e…1b6e at0033 = ╱20╱…╱ // 0x1b61 @0x33
0x1b2e…1b6e at0034 = ╱2d╱-╱ // 0x1b62 @0x34
0x1b2e…1b6e at0035 = ╱2d╱-╱ // 0x1b63 @0x35
0x1b2e…1b6e at0036 = ╱2d╱-╱ // 0x1b64 @0x36
0x1b2e…1b6e at0037 = ╱2d╱-╱ // 0x1b65 @0x37
0x1b2e…1b6e at0038 = ╱2d╱-╱ // 0x1b66 @0x38
0x1b2e…1b6e at0039 = ╱2d╱-╱ // 0x1b67 @0x39
0x1b2e…1b6e at003a = ╱2d╱-╱ // 0x1b68 @0x3a
0x1b2e…1b6e at003b = ╱2d╱-╱ // 0x1b69 @0x3b
0x1b2e…1b6e at003c = ╱2d╱-╱ // 0x1b6a @0x3c
0x1b2e…1b6e at003d = ╱2d╱-╱ // 0x1b6b @0x3d
0x1b2e…1b6e at003e = ╱22╱"╱ // 0x1b6c @0x3e
0x1b2e…1b6e at003f = EOL // 0x1b6d @0x3f
0x1b2e…1b6e }
0x1b6e…1b82 b170 02700 PRINT "……----------"
0x1b6e…1b82 LineComal80 {
0x1b6e…1b82 ptr = 0xb170 // 0x1b6e @0x0
0x1b6e…1b82 lno = 0x0a8c // 0x1b70 @0x2
0x1b6e…1b82 at0004 = ╱92╱ PRINT ╱ // 0x1b72 @0x4
0x1b6e…1b82 at0005 = ╱22╱"╱ // 0x1b73 @0x5
0x1b6e…1b82 at0006 = ╱20╱…╱ // 0x1b74 @0x6
0x1b6e…1b82 at0007 = ╱20╱…╱ // 0x1b75 @0x7
0x1b6e…1b82 at0008 = ╱2d╱-╱ // 0x1b76 @0x8
0x1b6e…1b82 at0009 = ╱2d╱-╱ // 0x1b77 @0x9
0x1b6e…1b82 at000a = ╱2d╱-╱ // 0x1b78 @0xa
0x1b6e…1b82 at000b = ╱2d╱-╱ // 0x1b79 @0xb
0x1b6e…1b82 at000c = ╱2d╱-╱ // 0x1b7a @0xc
0x1b6e…1b82 at000d = ╱2d╱-╱ // 0x1b7b @0xd
0x1b6e…1b82 at000e = ╱2d╱-╱ // 0x1b7c @0xe
0x1b6e…1b82 at000f = ╱2d╱-╱ // 0x1b7d @0xf
0x1b6e…1b82 at0010 = ╱2d╱-╱ // 0x1b7e @0x10
0x1b6e…1b82 at0011 = ╱2d╱-╱ // 0x1b7f @0x11
0x1b6e…1b82 at0012 = ╱22╱"╱ // 0x1b80 @0x12
0x1b6e…1b82 at0013 = EOL // 0x1b81 @0x13
0x1b6e…1b82 }
0x1b82…1ba0 b18e 02710 IF _DEB > 0 OR P_KRED > 0 THEN
0x1b82…1ba0 LineComal80 {
0x1b82…1ba0 ptr = 0xb18e // 0x1b82 @0x0
0x1b82…1ba0 lno = 0x0a96 // 0x1b84 @0x2
0x1b82…1ba0 at0004 = ╱9b0050╱ IF ╱ // 0x1b86 @0x4
0x1b82…1ba0 at0007 = ╱5f╱_╱ // 0x1b89 @0x7
0x1b82…1ba0 at0008 = ╱44╱D╱ // 0x1b8a @0x8
0x1b82…1ba0 at0009 = ╱45╱E╱ // 0x1b8b @0x9
0x1b82…1ba0 at000a = ╱42╱B╱ // 0x1b8c @0xa
0x1b82…1ba0 at000b = ╱e1╱ > ╱ // 0x1b8d @0xb
0x1b82…1ba0 at000c = ╱30╱0╱ // 0x1b8e @0xc
0x1b82…1ba0 at000d = ╱f20000╱ // 0x1b8f @0xd
0x1b82…1ba0 at0010 = ╱d8╱ OR ╱ // 0x1b92 @0x10
0x1b82…1ba0 at0011 = ╱50╱P╱ // 0x1b93 @0x11
0x1b82…1ba0 at0012 = ╱5f╱_╱ // 0x1b94 @0x12
0x1b82…1ba0 at0013 = ╱4b╱K╱ // 0x1b95 @0x13
0x1b82…1ba0 at0014 = ╱52╱R╱ // 0x1b96 @0x14
0x1b82…1ba0 at0015 = ╱45╱E╱ // 0x1b97 @0x15
0x1b82…1ba0 at0016 = ╱44╱D╱ // 0x1b98 @0x16
0x1b82…1ba0 at0017 = ╱e1╱ > ╱ // 0x1b99 @0x17
0x1b82…1ba0 at0018 = ╱30╱0╱ // 0x1b9a @0x18
0x1b82…1ba0 at0019 = ╱f20000╱ // 0x1b9b @0x19
0x1b82…1ba0 at001c = ╱b5╱ THEN ╱ // 0x1b9e @0x1c
0x1b82…1ba0 at001d = EOL // 0x1b9f @0x1d
0x1b82…1ba0 }
0x1ba0…1be9 b1d7 02720 PRINT TAB ( 8 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
0x1ba0…1be9 LineComal80 {
0x1ba0…1be9 ptr = 0xb1d7 // 0x1ba0 @0x0
0x1ba0…1be9 lno = 0x0aa0 // 0x1ba2 @0x2
0x1ba0…1be9 at0004 = ╱92╱ PRINT ╱ // 0x1ba4 @0x4
0x1ba0…1be9 at0005 = ╱d2╱ TAB ╱ // 0x1ba5 @0x5
0x1ba0…1be9 at0006 = ╱ed╱ ( ╱ // 0x1ba6 @0x6
0x1ba0…1be9 at0007 = ╱38╱8╱ // 0x1ba7 @0x7
0x1ba0…1be9 at0008 = ╱f20800╱ // 0x1ba8 @0x8
0x1ba0…1be9 at000b = ╱ee╱ ) ╱ // 0x1bab @0xb
0x1ba0…1be9 at000c = ╱ea╱ ; ╱ // 0x1bac @0xc
0x1ba0…1be9 at000d = ╱22╱"╱ // 0x1bad @0xd
0x1ba0…1be9 at000e = ╱54╱T╱ // 0x1bae @0xe
0x1ba0…1be9 at000f = ╱52╱R╱ // 0x1baf @0xf
0x1ba0…1be9 at0010 = ╱41╱A╱ // 0x1bb0 @0x10
0x1ba0…1be9 at0011 = ╱4e╱N╱ // 0x1bb1 @0x11
0x1ba0…1be9 at0012 = ╱53╱S╱ // 0x1bb2 @0x12
0x1ba0…1be9 at0013 = ╱50╱P╱ // 0x1bb3 @0x13
0x1ba0…1be9 at0014 = ╱4f╱O╱ // 0x1bb4 @0x14
0x1ba0…1be9 at0015 = ╱52╱R╱ // 0x1bb5 @0x15
0x1ba0…1be9 at0016 = ╱54╱T╱ // 0x1bb6 @0x16
0x1ba0…1be9 at0017 = ╱22╱"╱ // 0x1bb7 @0x17
0x1ba0…1be9 at0018 = ╱ea╱ ; ╱ // 0x1bb8 @0x18
0x1ba0…1be9 at0019 = ╱d2╱ TAB ╱ // 0x1bb9 @0x19
0x1ba0…1be9 at001a = ╱ed╱ ( ╱ // 0x1bba @0x1a
0x1ba0…1be9 at001b = ╱34╱4╱ // 0x1bbb @0x1b
0x1ba0…1be9 at001c = ╱31╱1╱ // 0x1bbc @0x1c
0x1ba0…1be9 at001d = ╱f22900╱ // 0x1bbd @0x1d
0x1ba0…1be9 at0020 = ╱ee╱ ) ╱ // 0x1bc0 @0x20
0x1ba0…1be9 at0021 = ╱ea╱ ; ╱ // 0x1bc1 @0x21
0x1ba0…1be9 at0022 = ╱d0╱ CHR$ ╱ // 0x1bc2 @0x22
0x1ba0…1be9 at0023 = ╱ed╱ ( ╱ // 0x1bc3 @0x23
0x1ba0…1be9 at0024 = ╱50╱P╱ // 0x1bc4 @0x24
0x1ba0…1be9 at0025 = ╱5f╱_╱ // 0x1bc5 @0x25
0x1ba0…1be9 at0026 = ╱44╱D╱ // 0x1bc6 @0x26
0x1ba0…1be9 at0027 = ╱45╱E╱ // 0x1bc7 @0x27
0x1ba0…1be9 at0028 = ╱42╱B╱ // 0x1bc8 @0x28
0x1ba0…1be9 at0029 = ╱ec╱ , ╱ // 0x1bc9 @0x29
0x1ba0…1be9 at002a = ╱39╱9╱ // 0x1bca @0x2a
0x1ba0…1be9 at002b = ╱f20900╱ // 0x1bcb @0x2b
0x1ba0…1be9 at002e = ╱ec╱ , ╱ // 0x1bce @0x2e
0x1ba0…1be9 at002f = ╱32╱2╱ // 0x1bcf @0x2f
0x1ba0…1be9 at0030 = ╱f20200╱ // 0x1bd0 @0x30
0x1ba0…1be9 at0033 = ╱ee╱ ) ╱ // 0x1bd3 @0x33
0x1ba0…1be9 at0034 = ╱ea╱ ; ╱ // 0x1bd4 @0x34
0x1ba0…1be9 at0035 = ╱d0╱ CHR$ ╱ // 0x1bd5 @0x35
0x1ba0…1be9 at0036 = ╱ed╱ ( ╱ // 0x1bd6 @0x36
0x1ba0…1be9 at0037 = ╱50╱P╱ // 0x1bd7 @0x37
0x1ba0…1be9 at0038 = ╱5f╱_╱ // 0x1bd8 @0x38
0x1ba0…1be9 at0039 = ╱4b╱K╱ // 0x1bd9 @0x39
0x1ba0…1be9 at003a = ╱52╱R╱ // 0x1bda @0x3a
0x1ba0…1be9 at003b = ╱45╱E╱ // 0x1bdb @0x3b
0x1ba0…1be9 at003c = ╱44╱D╱ // 0x1bdc @0x3c
0x1ba0…1be9 at003d = ╱ec╱ , ╱ // 0x1bdd @0x3d
0x1ba0…1be9 at003e = ╱39╱9╱ // 0x1bde @0x3e
0x1ba0…1be9 at003f = ╱f20900╱ // 0x1bdf @0x3f
0x1ba0…1be9 at0042 = ╱ec╱ , ╱ // 0x1be2 @0x42
0x1ba0…1be9 at0043 = ╱32╱2╱ // 0x1be3 @0x43
0x1ba0…1be9 at0044 = ╱f20200╱ // 0x1be4 @0x44
0x1ba0…1be9 at0047 = ╱ee╱ ) ╱ // 0x1be7 @0x47
0x1ba0…1be9 at0048 = EOL // 0x1be8 @0x48
0x1ba0…1be9 }
0x1be9…1bff b1ed 02730 LET LIN_T := LIN_T + 1
0x1be9…1bff LineComal80 {
0x1be9…1bff ptr = 0xb1ed // 0x1be9 @0x0
0x1be9…1bff lno = 0x0aaa // 0x1beb @0x2
0x1be9…1bff at0004 = ╱86╱ LET ╱ // 0x1bed @0x4
0x1be9…1bff at0005 = ╱4c╱L╱ // 0x1bee @0x5
0x1be9…1bff at0006 = ╱49╱I╱ // 0x1bef @0x6
0x1be9…1bff at0007 = ╱4e╱N╱ // 0x1bf0 @0x7
0x1be9…1bff at0008 = ╱5f╱_╱ // 0x1bf1 @0x8
0x1be9…1bff at0009 = ╱54╱T╱ // 0x1bf2 @0x9
0x1be9…1bff at000a = ╱f0╱ := ╱ // 0x1bf3 @0xa
0x1be9…1bff at000b = ╱4c╱L╱ // 0x1bf4 @0xb
0x1be9…1bff at000c = ╱49╱I╱ // 0x1bf5 @0xc
0x1be9…1bff at000d = ╱4e╱N╱ // 0x1bf6 @0xd
0x1be9…1bff at000e = ╱5f╱_╱ // 0x1bf7 @0xe
0x1be9…1bff at000f = ╱54╱T╱ // 0x1bf8 @0xf
0x1be9…1bff at0010 = ╱e5╱ + ╱ // 0x1bf9 @0x10
0x1be9…1bff at0011 = ╱31╱1╱ // 0x1bfa @0x11
0x1be9…1bff at0012 = ╱f20100╱ // 0x1bfb @0x12
0x1be9…1bff at0015 = EOL // 0x1bfe @0x15
0x1be9…1bff }
0x1bff…1c05 b1f3 02740 ENDIF
0x1bff…1c05 LineComal80 {
0x1bff…1c05 ptr = 0xb1f3 // 0x1bff @0x0
0x1bff…1c05 lno = 0x0ab4 // 0x1c01 @0x2
0x1bff…1c05 at0004 = ╱9c╱ ENDIF ╱ // 0x1c03 @0x4
0x1bff…1c05 at0005 = EOL // 0x1c04 @0x5
0x1bff…1c05 }
0x1c05…1c27 b215 02750 LET S_NR_DG_POS := S_NR_DG_POS + 1
0x1c05…1c27 LineComal80 {
0x1c05…1c27 ptr = 0xb215 // 0x1c05 @0x0
0x1c05…1c27 lno = 0x0abe // 0x1c07 @0x2
0x1c05…1c27 at0004 = ╱86╱ LET ╱ // 0x1c09 @0x4
0x1c05…1c27 at0005 = ╱53╱S╱ // 0x1c0a @0x5
0x1c05…1c27 at0006 = ╱5f╱_╱ // 0x1c0b @0x6
0x1c05…1c27 at0007 = ╱4e╱N╱ // 0x1c0c @0x7
0x1c05…1c27 at0008 = ╱52╱R╱ // 0x1c0d @0x8
0x1c05…1c27 at0009 = ╱5f╱_╱ // 0x1c0e @0x9
0x1c05…1c27 at000a = ╱44╱D╱ // 0x1c0f @0xa
0x1c05…1c27 at000b = ╱47╱G╱ // 0x1c10 @0xb
0x1c05…1c27 at000c = ╱5f╱_╱ // 0x1c11 @0xc
0x1c05…1c27 at000d = ╱50╱P╱ // 0x1c12 @0xd
0x1c05…1c27 at000e = ╱4f╱O╱ // 0x1c13 @0xe
0x1c05…1c27 at000f = ╱53╱S╱ // 0x1c14 @0xf
0x1c05…1c27 at0010 = ╱f0╱ := ╱ // 0x1c15 @0x10
0x1c05…1c27 at0011 = ╱53╱S╱ // 0x1c16 @0x11
0x1c05…1c27 at0012 = ╱5f╱_╱ // 0x1c17 @0x12
0x1c05…1c27 at0013 = ╱4e╱N╱ // 0x1c18 @0x13
0x1c05…1c27 at0014 = ╱52╱R╱ // 0x1c19 @0x14
0x1c05…1c27 at0015 = ╱5f╱_╱ // 0x1c1a @0x15
0x1c05…1c27 at0016 = ╱44╱D╱ // 0x1c1b @0x16
0x1c05…1c27 at0017 = ╱47╱G╱ // 0x1c1c @0x17
0x1c05…1c27 at0018 = ╱5f╱_╱ // 0x1c1d @0x18
0x1c05…1c27 at0019 = ╱50╱P╱ // 0x1c1e @0x19
0x1c05…1c27 at001a = ╱4f╱O╱ // 0x1c1f @0x1a
0x1c05…1c27 at001b = ╱53╱S╱ // 0x1c20 @0x1b
0x1c05…1c27 at001c = ╱e5╱ + ╱ // 0x1c21 @0x1c
0x1c05…1c27 at001d = ╱31╱1╱ // 0x1c22 @0x1d
0x1c05…1c27 at001e = ╱f20100╱ // 0x1c23 @0x1e
0x1c05…1c27 at0021 = EOL // 0x1c26 @0x21
0x1c05…1c27 }
0x1c27…1c36 b224 02760 ENDPROC SIDESKIFT
0x1c27…1c36 LineComal80 {
0x1c27…1c36 ptr = 0xb224 // 0x1c27 @0x0
0x1c27…1c36 lno = 0x0ac8 // 0x1c29 @0x2
0x1c27…1c36 at0004 = ╱9f╱ ENDPROC ╱ // 0x1c2b @0x4
0x1c27…1c36 at0005 = ╱53╱S╱ // 0x1c2c @0x5
0x1c27…1c36 at0006 = ╱49╱I╱ // 0x1c2d @0x6
0x1c27…1c36 at0007 = ╱44╱D╱ // 0x1c2e @0x7
0x1c27…1c36 at0008 = ╱45╱E╱ // 0x1c2f @0x8
0x1c27…1c36 at0009 = ╱53╱S╱ // 0x1c30 @0x9
0x1c27…1c36 at000a = ╱4b╱K╱ // 0x1c31 @0xa
0x1c27…1c36 at000b = ╱49╱I╱ // 0x1c32 @0xb
0x1c27…1c36 at000c = ╱46╱F╱ // 0x1c33 @0xc
0x1c27…1c36 at000d = ╱54╱T╱ // 0x1c34 @0xd
0x1c27…1c36 at000e = EOL // 0x1c35 @0xe
0x1c27…1c36 }
0x1c36…1c3b b229 02770
0x1c36…1c3b LineComal80 {
0x1c36…1c3b ptr = 0xb229 // 0x1c36 @0x0
0x1c36…1c3b lno = 0x0ad2 // 0x1c38 @0x2
0x1c36…1c3b at0004 = EOL // 0x1c3a @0x4
0x1c36…1c3b }
0x1c3b…1c4b b239 02780 PROC PRINT_LIN
0x1c3b…1c4b LineComal80 {
0x1c3b…1c4b ptr = 0xb239 // 0x1c3b @0x0
0x1c3b…1c4b lno = 0x0adc // 0x1c3d @0x2
0x1c3b…1c4b at0004 = ╱9e00╱ PROC ╱ // 0x1c3f @0x4
0x1c3b…1c4b at0006 = ╱50╱P╱ // 0x1c41 @0x6
0x1c3b…1c4b at0007 = ╱52╱R╱ // 0x1c42 @0x7
0x1c3b…1c4b at0008 = ╱49╱I╱ // 0x1c43 @0x8
0x1c3b…1c4b at0009 = ╱4e╱N╱ // 0x1c44 @0x9
0x1c3b…1c4b at000a = ╱54╱T╱ // 0x1c45 @0xa
0x1c3b…1c4b at000b = ╱5f╱_╱ // 0x1c46 @0xb
0x1c3b…1c4b at000c = ╱4c╱L╱ // 0x1c47 @0xc
0x1c3b…1c4b at000d = ╱49╱I╱ // 0x1c48 @0xd
0x1c3b…1c4b at000e = ╱4e╱N╱ // 0x1c49 @0xe
0x1c3b…1c4b at000f = EOL // 0x1c4a @0xf
0x1c3b…1c4b }
0x1c4b…1c62 b250 02790 IF P_BNR $ = "*****" THEN EXIT
0x1c4b…1c62 LineComal80 {
0x1c4b…1c62 ptr = 0xb250 // 0x1c4b @0x0
0x1c4b…1c62 lno = 0x0ae6 // 0x1c4d @0x2
0x1c4b…1c62 at0004 = ╱8200╱ IF ╱ // 0x1c4f @0x4
0x1c4b…1c62 at0006 = ╱50╱P╱ // 0x1c51 @0x6
0x1c4b…1c62 at0007 = ╱5f╱_╱ // 0x1c52 @0x7
0x1c4b…1c62 at0008 = ╱42╱B╱ // 0x1c53 @0x8
0x1c4b…1c62 at0009 = ╱4e╱N╱ // 0x1c54 @0x9
0x1c4b…1c62 at000a = ╱52╱R╱ // 0x1c55 @0xa
0x1c4b…1c62 at000b = ╱ef╱ $ ╱ // 0x1c56 @0xb
0x1c4b…1c62 at000c = ╱df╱ = ╱ // 0x1c57 @0xc
0x1c4b…1c62 at000d = ╱22╱"╱ // 0x1c58 @0xd
0x1c4b…1c62 at000e = ╱2a╱*╱ // 0x1c59 @0xe
0x1c4b…1c62 at000f = ╱2a╱*╱ // 0x1c5a @0xf
0x1c4b…1c62 at0010 = ╱2a╱*╱ // 0x1c5b @0x10
0x1c4b…1c62 at0011 = ╱2a╱*╱ // 0x1c5c @0x11
0x1c4b…1c62 at0012 = ╱2a╱*╱ // 0x1c5d @0x12
0x1c4b…1c62 at0013 = ╱22╱"╱ // 0x1c5e @0x13
0x1c4b…1c62 at0014 = ╱b5╱ THEN ╱ // 0x1c5f @0x14
0x1c4b…1c62 at0015 = ╱99╱ EXIT ╱ // 0x1c60 @0x15
0x1c4b…1c62 at0016 = EOL // 0x1c61 @0x16
0x1c4b…1c62 }
0x1c62…1c7c b26a 02800 IF IN_T + 5 > MAX_LIN THEN
0x1c62…1c7c LineComal80 {
0x1c62…1c7c ptr = 0xb26a // 0x1c62 @0x0
0x1c62…1c7c lno = 0x0af0 // 0x1c64 @0x2
0x1c62…1c7c at0004 = ╱9b004c╱ IF ╱ // 0x1c66 @0x4
0x1c62…1c7c at0007 = ╱49╱I╱ // 0x1c69 @0x7
0x1c62…1c7c at0008 = ╱4e╱N╱ // 0x1c6a @0x8
0x1c62…1c7c at0009 = ╱5f╱_╱ // 0x1c6b @0x9
0x1c62…1c7c at000a = ╱54╱T╱ // 0x1c6c @0xa
0x1c62…1c7c at000b = ╱e5╱ + ╱ // 0x1c6d @0xb
0x1c62…1c7c at000c = ╱35╱5╱ // 0x1c6e @0xc
0x1c62…1c7c at000d = ╱f20500╱ // 0x1c6f @0xd
0x1c62…1c7c at0010 = ╱e1╱ > ╱ // 0x1c72 @0x10
0x1c62…1c7c at0011 = ╱4d╱M╱ // 0x1c73 @0x11
0x1c62…1c7c at0012 = ╱41╱A╱ // 0x1c74 @0x12
0x1c62…1c7c at0013 = ╱58╱X╱ // 0x1c75 @0x13
0x1c62…1c7c at0014 = ╱5f╱_╱ // 0x1c76 @0x14
0x1c62…1c7c at0015 = ╱4c╱L╱ // 0x1c77 @0x15
0x1c62…1c7c at0016 = ╱49╱I╱ // 0x1c78 @0x16
0x1c62…1c7c at0017 = ╱4e╱N╱ // 0x1c79 @0x17
0x1c62…1c7c at0018 = ╱b5╱ THEN ╱ // 0x1c7a @0x18
0x1c62…1c7c at0019 = EOL // 0x1c7b @0x19
0x1c62…1c7c }
0x1c7c…1c9a c416 02810 IF _DEB > 0 OR P_KRED > 0 THEN
0x1c7c…1c9a LineComal80 {
0x1c7c…1c9a ptr = 0xc416 // 0x1c7c @0x0
0x1c7c…1c9a lno = 0x0afa // 0x1c7e @0x2
0x1c7c…1c9a at0004 = ╱9b0050╱ IF ╱ // 0x1c80 @0x4
0x1c7c…1c9a at0007 = ╱5f╱_╱ // 0x1c83 @0x7
0x1c7c…1c9a at0008 = ╱44╱D╱ // 0x1c84 @0x8
0x1c7c…1c9a at0009 = ╱45╱E╱ // 0x1c85 @0x9
0x1c7c…1c9a at000a = ╱42╱B╱ // 0x1c86 @0xa
0x1c7c…1c9a at000b = ╱e1╱ > ╱ // 0x1c87 @0xb
0x1c7c…1c9a at000c = ╱30╱0╱ // 0x1c88 @0xc
0x1c7c…1c9a at000d = ╱f20000╱ // 0x1c89 @0xd
0x1c7c…1c9a at0010 = ╱d8╱ OR ╱ // 0x1c8c @0x10
0x1c7c…1c9a at0011 = ╱50╱P╱ // 0x1c8d @0x11
0x1c7c…1c9a at0012 = ╱5f╱_╱ // 0x1c8e @0x12
0x1c7c…1c9a at0013 = ╱4b╱K╱ // 0x1c8f @0x13
0x1c7c…1c9a at0014 = ╱52╱R╱ // 0x1c90 @0x14
0x1c7c…1c9a at0015 = ╱45╱E╱ // 0x1c91 @0x15
0x1c7c…1c9a at0016 = ╱44╱D╱ // 0x1c92 @0x16
0x1c7c…1c9a at0017 = ╱e1╱ > ╱ // 0x1c93 @0x17
0x1c7c…1c9a at0018 = ╱30╱0╱ // 0x1c94 @0x18
0x1c7c…1c9a at0019 = ╱f20000╱ // 0x1c95 @0x19
0x1c7c…1c9a at001c = ╱b5╱ THEN ╱ // 0x1c98 @0x1c
0x1c7c…1c9a at001d = EOL // 0x1c99 @0x1d
0x1c7c…1c9a }
0x1c9a…1cdc b2ca 02810 PRINT "<S>-----……--------------------……--……--------……----------……"
0x1c9a…1cdc LineComal80 {
0x1c9a…1cdc ptr = 0xb2ca // 0x1c9a @0x0
0x1c9a…1cdc lno = 0x0afa // 0x1c9c @0x2
0x1c9a…1cdc at0004 = ╱92╱ PRINT ╱ // 0x1c9e @0x4
0x1c9a…1cdc at0005 = ╱22╱"╱ // 0x1c9f @0x5
0x1c9a…1cdc at0006 = ╱3c╱<╱ // 0x1ca0 @0x6
0x1c9a…1cdc at0007 = ╱53╱S╱ // 0x1ca1 @0x7
0x1c9a…1cdc at0008 = ╱3e╱>╱ // 0x1ca2 @0x8
0x1c9a…1cdc at0009 = ╱2d╱-╱ // 0x1ca3 @0x9
0x1c9a…1cdc at000a = ╱2d╱-╱ // 0x1ca4 @0xa
0x1c9a…1cdc at000b = ╱2d╱-╱ // 0x1ca5 @0xb
0x1c9a…1cdc at000c = ╱2d╱-╱ // 0x1ca6 @0xc
0x1c9a…1cdc at000d = ╱2d╱-╱ // 0x1ca7 @0xd
0x1c9a…1cdc at000e = ╱20╱…╱ // 0x1ca8 @0xe
0x1c9a…1cdc at000f = ╱20╱…╱ // 0x1ca9 @0xf
0x1c9a…1cdc at0010 = ╱2d╱-╱ // 0x1caa @0x10
0x1c9a…1cdc at0011 = ╱2d╱-╱ // 0x1cab @0x11
0x1c9a…1cdc at0012 = ╱2d╱-╱ // 0x1cac @0x12
0x1c9a…1cdc at0013 = ╱2d╱-╱ // 0x1cad @0x13
0x1c9a…1cdc at0014 = ╱2d╱-╱ // 0x1cae @0x14
0x1c9a…1cdc at0015 = ╱2d╱-╱ // 0x1caf @0x15
0x1c9a…1cdc at0016 = ╱2d╱-╱ // 0x1cb0 @0x16
0x1c9a…1cdc at0017 = ╱2d╱-╱ // 0x1cb1 @0x17
0x1c9a…1cdc at0018 = ╱2d╱-╱ // 0x1cb2 @0x18
0x1c9a…1cdc at0019 = ╱2d╱-╱ // 0x1cb3 @0x19
0x1c9a…1cdc at001a = ╱2d╱-╱ // 0x1cb4 @0x1a
0x1c9a…1cdc at001b = ╱2d╱-╱ // 0x1cb5 @0x1b
0x1c9a…1cdc at001c = ╱2d╱-╱ // 0x1cb6 @0x1c
0x1c9a…1cdc at001d = ╱2d╱-╱ // 0x1cb7 @0x1d
0x1c9a…1cdc at001e = ╱2d╱-╱ // 0x1cb8 @0x1e
0x1c9a…1cdc at001f = ╱2d╱-╱ // 0x1cb9 @0x1f
0x1c9a…1cdc at0020 = ╱2d╱-╱ // 0x1cba @0x20
0x1c9a…1cdc at0021 = ╱2d╱-╱ // 0x1cbb @0x21
0x1c9a…1cdc at0022 = ╱2d╱-╱ // 0x1cbc @0x22
0x1c9a…1cdc at0023 = ╱2d╱-╱ // 0x1cbd @0x23
0x1c9a…1cdc at0024 = ╱20╱…╱ // 0x1cbe @0x24
0x1c9a…1cdc at0025 = ╱20╱…╱ // 0x1cbf @0x25
0x1c9a…1cdc at0026 = ╱2d╱-╱ // 0x1cc0 @0x26
0x1c9a…1cdc at0027 = ╱2d╱-╱ // 0x1cc1 @0x27
0x1c9a…1cdc at0028 = ╱20╱…╱ // 0x1cc2 @0x28
0x1c9a…1cdc at0029 = ╱20╱…╱ // 0x1cc3 @0x29
0x1c9a…1cdc at002a = ╱2d╱-╱ // 0x1cc4 @0x2a
0x1c9a…1cdc at002b = ╱2d╱-╱ // 0x1cc5 @0x2b
0x1c9a…1cdc at002c = ╱2d╱-╱ // 0x1cc6 @0x2c
0x1c9a…1cdc at002d = ╱2d╱-╱ // 0x1cc7 @0x2d
0x1c9a…1cdc at002e = ╱2d╱-╱ // 0x1cc8 @0x2e
0x1c9a…1cdc at002f = ╱2d╱-╱ // 0x1cc9 @0x2f
0x1c9a…1cdc at0030 = ╱2d╱-╱ // 0x1cca @0x30
0x1c9a…1cdc at0031 = ╱2d╱-╱ // 0x1ccb @0x31
0x1c9a…1cdc at0032 = ╱20╱…╱ // 0x1ccc @0x32
0x1c9a…1cdc at0033 = ╱20╱…╱ // 0x1ccd @0x33
0x1c9a…1cdc at0034 = ╱2d╱-╱ // 0x1cce @0x34
0x1c9a…1cdc at0035 = ╱2d╱-╱ // 0x1ccf @0x35
0x1c9a…1cdc at0036 = ╱2d╱-╱ // 0x1cd0 @0x36
0x1c9a…1cdc at0037 = ╱2d╱-╱ // 0x1cd1 @0x37
0x1c9a…1cdc at0038 = ╱2d╱-╱ // 0x1cd2 @0x38
0x1c9a…1cdc at0039 = ╱2d╱-╱ // 0x1cd3 @0x39
0x1c9a…1cdc at003a = ╱2d╱-╱ // 0x1cd4 @0x3a
0x1c9a…1cdc at003b = ╱2d╱-╱ // 0x1cd5 @0x3b
0x1c9a…1cdc at003c = ╱2d╱-╱ // 0x1cd6 @0x3c
0x1c9a…1cdc at003d = ╱2d╱-╱ // 0x1cd7 @0x3d
0x1c9a…1cdc at003e = ╱20╱…╱ // 0x1cd8 @0x3e
0x1c9a…1cdc at003f = ╱20╱…╱ // 0x1cd9 @0x3f
0x1c9a…1cdc at0040 = ╱22╱"╱ // 0x1cda @0x40
0x1c9a…1cdc at0041 = EOL // 0x1cdb @0x41
0x1c9a…1cdc }
0x1cdc…1cee b2dc 02830 PRINT "----------"
0x1cdc…1cee LineComal80 {
0x1cdc…1cee ptr = 0xb2dc // 0x1cdc @0x0
0x1cdc…1cee lno = 0x0b0e // 0x1cde @0x2
0x1cdc…1cee at0004 = ╱92╱ PRINT ╱ // 0x1ce0 @0x4
0x1cdc…1cee at0005 = ╱22╱"╱ // 0x1ce1 @0x5
0x1cdc…1cee at0006 = ╱2d╱-╱ // 0x1ce2 @0x6
0x1cdc…1cee at0007 = ╱2d╱-╱ // 0x1ce3 @0x7
0x1cdc…1cee at0008 = ╱2d╱-╱ // 0x1ce4 @0x8
0x1cdc…1cee at0009 = ╱2d╱-╱ // 0x1ce5 @0x9
0x1cdc…1cee at000a = ╱2d╱-╱ // 0x1ce6 @0xa
0x1cdc…1cee at000b = ╱2d╱-╱ // 0x1ce7 @0xb
0x1cdc…1cee at000c = ╱2d╱-╱ // 0x1ce8 @0xc
0x1cdc…1cee at000d = ╱2d╱-╱ // 0x1ce9 @0xd
0x1cdc…1cee at000e = ╱2d╱-╱ // 0x1cea @0xe
0x1cdc…1cee at000f = ╱2d╱-╱ // 0x1ceb @0xf
0x1cdc…1cee at0010 = ╱22╱"╱ // 0x1cec @0x10
0x1cdc…1cee at0011 = EOL // 0x1ced @0x11
0x1cdc…1cee }
0x1cee…1d37 b325 02840 PRINT TAB ( 9 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
0x1cee…1d37 LineComal80 {
0x1cee…1d37 ptr = 0xb325 // 0x1cee @0x0
0x1cee…1d37 lno = 0x0b18 // 0x1cf0 @0x2
0x1cee…1d37 at0004 = ╱92╱ PRINT ╱ // 0x1cf2 @0x4
0x1cee…1d37 at0005 = ╱d2╱ TAB ╱ // 0x1cf3 @0x5
0x1cee…1d37 at0006 = ╱ed╱ ( ╱ // 0x1cf4 @0x6
0x1cee…1d37 at0007 = ╱39╱9╱ // 0x1cf5 @0x7
0x1cee…1d37 at0008 = ╱f20900╱ // 0x1cf6 @0x8
0x1cee…1d37 at000b = ╱ee╱ ) ╱ // 0x1cf9 @0xb
0x1cee…1d37 at000c = ╱ea╱ ; ╱ // 0x1cfa @0xc
0x1cee…1d37 at000d = ╱22╱"╱ // 0x1cfb @0xd
0x1cee…1d37 at000e = ╱54╱T╱ // 0x1cfc @0xe
0x1cee…1d37 at000f = ╱52╱R╱ // 0x1cfd @0xf
0x1cee…1d37 at0010 = ╱41╱A╱ // 0x1cfe @0x10
0x1cee…1d37 at0011 = ╱4e╱N╱ // 0x1cff @0x11
0x1cee…1d37 at0012 = ╱53╱S╱ // 0x1d00 @0x12
0x1cee…1d37 at0013 = ╱50╱P╱ // 0x1d01 @0x13
0x1cee…1d37 at0014 = ╱4f╱O╱ // 0x1d02 @0x14
0x1cee…1d37 at0015 = ╱52╱R╱ // 0x1d03 @0x15
0x1cee…1d37 at0016 = ╱54╱T╱ // 0x1d04 @0x16
0x1cee…1d37 at0017 = ╱22╱"╱ // 0x1d05 @0x17
0x1cee…1d37 at0018 = ╱ea╱ ; ╱ // 0x1d06 @0x18
0x1cee…1d37 at0019 = ╱d2╱ TAB ╱ // 0x1d07 @0x19
0x1cee…1d37 at001a = ╱ed╱ ( ╱ // 0x1d08 @0x1a
0x1cee…1d37 at001b = ╱34╱4╱ // 0x1d09 @0x1b
0x1cee…1d37 at001c = ╱31╱1╱ // 0x1d0a @0x1c
0x1cee…1d37 at001d = ╱f22900╱ // 0x1d0b @0x1d
0x1cee…1d37 at0020 = ╱ee╱ ) ╱ // 0x1d0e @0x20
0x1cee…1d37 at0021 = ╱ea╱ ; ╱ // 0x1d0f @0x21
0x1cee…1d37 at0022 = ╱d0╱ CHR$ ╱ // 0x1d10 @0x22
0x1cee…1d37 at0023 = ╱ed╱ ( ╱ // 0x1d11 @0x23
0x1cee…1d37 at0024 = ╱50╱P╱ // 0x1d12 @0x24
0x1cee…1d37 at0025 = ╱5f╱_╱ // 0x1d13 @0x25
0x1cee…1d37 at0026 = ╱44╱D╱ // 0x1d14 @0x26
0x1cee…1d37 at0027 = ╱45╱E╱ // 0x1d15 @0x27
0x1cee…1d37 at0028 = ╱42╱B╱ // 0x1d16 @0x28
0x1cee…1d37 at0029 = ╱ec╱ , ╱ // 0x1d17 @0x29
0x1cee…1d37 at002a = ╱39╱9╱ // 0x1d18 @0x2a
0x1cee…1d37 at002b = ╱f20900╱ // 0x1d19 @0x2b
0x1cee…1d37 at002e = ╱ec╱ , ╱ // 0x1d1c @0x2e
0x1cee…1d37 at002f = ╱32╱2╱ // 0x1d1d @0x2f
0x1cee…1d37 at0030 = ╱f20200╱ // 0x1d1e @0x30
0x1cee…1d37 at0033 = ╱ee╱ ) ╱ // 0x1d21 @0x33
0x1cee…1d37 at0034 = ╱ea╱ ; ╱ // 0x1d22 @0x34
0x1cee…1d37 at0035 = ╱d0╱ CHR$ ╱ // 0x1d23 @0x35
0x1cee…1d37 at0036 = ╱ed╱ ( ╱ // 0x1d24 @0x36
0x1cee…1d37 at0037 = ╱50╱P╱ // 0x1d25 @0x37
0x1cee…1d37 at0038 = ╱5f╱_╱ // 0x1d26 @0x38
0x1cee…1d37 at0039 = ╱4b╱K╱ // 0x1d27 @0x39
0x1cee…1d37 at003a = ╱52╱R╱ // 0x1d28 @0x3a
0x1cee…1d37 at003b = ╱45╱E╱ // 0x1d29 @0x3b
0x1cee…1d37 at003c = ╱44╱D╱ // 0x1d2a @0x3c
0x1cee…1d37 at003d = ╱ec╱ , ╱ // 0x1d2b @0x3d
0x1cee…1d37 at003e = ╱39╱9╱ // 0x1d2c @0x3e
0x1cee…1d37 at003f = ╱f20900╱ // 0x1d2d @0x3f
0x1cee…1d37 at0042 = ╱ec╱ , ╱ // 0x1d30 @0x42
0x1cee…1d37 at0043 = ╱32╱2╱ // 0x1d31 @0x43
0x1cee…1d37 at0044 = ╱f20200╱ // 0x1d32 @0x44
0x1cee…1d37 at0047 = ╱ee╱ ) ╱ // 0x1d35 @0x47
0x1cee…1d37 at0048 = EOL // 0x1d36 @0x48
0x1cee…1d37 }
0x1d37…1d4d b33b 02850 LET LIN_T := LIN_T + 2
0x1d37…1d4d LineComal80 {
0x1d37…1d4d ptr = 0xb33b // 0x1d37 @0x0
0x1d37…1d4d lno = 0x0b22 // 0x1d39 @0x2
0x1d37…1d4d at0004 = ╱86╱ LET ╱ // 0x1d3b @0x4
0x1d37…1d4d at0005 = ╱4c╱L╱ // 0x1d3c @0x5
0x1d37…1d4d at0006 = ╱49╱I╱ // 0x1d3d @0x6
0x1d37…1d4d at0007 = ╱4e╱N╱ // 0x1d3e @0x7
0x1d37…1d4d at0008 = ╱5f╱_╱ // 0x1d3f @0x8
0x1d37…1d4d at0009 = ╱54╱T╱ // 0x1d40 @0x9
0x1d37…1d4d at000a = ╱f0╱ := ╱ // 0x1d41 @0xa
0x1d37…1d4d at000b = ╱4c╱L╱ // 0x1d42 @0xb
0x1d37…1d4d at000c = ╱49╱I╱ // 0x1d43 @0xc
0x1d37…1d4d at000d = ╱4e╱N╱ // 0x1d44 @0xd
0x1d37…1d4d at000e = ╱5f╱_╱ // 0x1d45 @0xe
0x1d37…1d4d at000f = ╱54╱T╱ // 0x1d46 @0xf
0x1d37…1d4d at0010 = ╱e5╱ + ╱ // 0x1d47 @0x10
0x1d37…1d4d at0011 = ╱32╱2╱ // 0x1d48 @0x11
0x1d37…1d4d at0012 = ╱f20200╱ // 0x1d49 @0x12
0x1d37…1d4d at0015 = EOL // 0x1d4c @0x15
0x1d37…1d4d }
0x1d4d…1d53 b341 02860 ENDIF
0x1d4d…1d53 LineComal80 {
0x1d4d…1d53 ptr = 0xb341 // 0x1d4d @0x0
0x1d4d…1d53 lno = 0x0b2c // 0x1d4f @0x2
0x1d4d…1d53 at0004 = ╱9c╱ ENDIF ╱ // 0x1d51 @0x4
0x1d4d…1d53 at0005 = EOL // 0x1d52 @0x5
0x1d4d…1d53 }
0x1d53…1d62 b350 02870 EXEC SIDESKIFT
0x1d53…1d62 LineComal80 {
0x1d53…1d62 ptr = 0xb350 // 0x1d53 @0x0
0x1d53…1d62 lno = 0x0b36 // 0x1d55 @0x2
0x1d53…1d62 at0004 = ╱9d╱ EXEC ╱ // 0x1d57 @0x4
0x1d53…1d62 at0005 = ╱53╱S╱ // 0x1d58 @0x5
0x1d53…1d62 at0006 = ╱49╱I╱ // 0x1d59 @0x6
0x1d53…1d62 at0007 = ╱44╱D╱ // 0x1d5a @0x7
0x1d53…1d62 at0008 = ╱45╱E╱ // 0x1d5b @0x8
0x1d53…1d62 at0009 = ╱53╱S╱ // 0x1d5c @0x9
0x1d53…1d62 at000a = ╱4b╱K╱ // 0x1d5d @0xa
0x1d53…1d62 at000b = ╱49╱I╱ // 0x1d5e @0xb
0x1d53…1d62 at000c = ╱46╱F╱ // 0x1d5f @0xc
0x1d53…1d62 at000d = ╱54╱T╱ // 0x1d60 @0xd
0x1d53…1d62 at000e = EOL // 0x1d61 @0xe
0x1d53…1d62 }
0x1d62…1d68 b356 02880 ENDIF
0x1d62…1d68 LineComal80 {
0x1d62…1d68 ptr = 0xb356 // 0x1d62 @0x0
0x1d62…1d68 lno = 0x0b40 // 0x1d64 @0x2
0x1d62…1d68 at0004 = ╱9c╱ ENDIF ╱ // 0x1d66 @0x4
0x1d62…1d68 at0005 = EOL // 0x1d67 @0x5
0x1d62…1d68 }
0x1d68…1d7e b36c 02890 LET LIN_T := LIN_T + 1
0x1d68…1d7e LineComal80 {
0x1d68…1d7e ptr = 0xb36c // 0x1d68 @0x0
0x1d68…1d7e lno = 0x0b4a // 0x1d6a @0x2
0x1d68…1d7e at0004 = ╱86╱ LET ╱ // 0x1d6c @0x4
0x1d68…1d7e at0005 = ╱4c╱L╱ // 0x1d6d @0x5
0x1d68…1d7e at0006 = ╱49╱I╱ // 0x1d6e @0x6
0x1d68…1d7e at0007 = ╱4e╱N╱ // 0x1d6f @0x7
0x1d68…1d7e at0008 = ╱5f╱_╱ // 0x1d70 @0x8
0x1d68…1d7e at0009 = ╱54╱T╱ // 0x1d71 @0x9
0x1d68…1d7e at000a = ╱f0╱ := ╱ // 0x1d72 @0xa
0x1d68…1d7e at000b = ╱4c╱L╱ // 0x1d73 @0xb
0x1d68…1d7e at000c = ╱49╱I╱ // 0x1d74 @0xc
0x1d68…1d7e at000d = ╱4e╱N╱ // 0x1d75 @0xd
0x1d68…1d7e at000e = ╱5f╱_╱ // 0x1d76 @0xe
0x1d68…1d7e at000f = ╱54╱T╱ // 0x1d77 @0xf
0x1d68…1d7e at0010 = ╱e5╱ + ╱ // 0x1d78 @0x10
0x1d68…1d7e at0011 = ╱31╱1╱ // 0x1d79 @0x11
0x1d68…1d7e at0012 = ╱f20100╱ // 0x1d7a @0x12
0x1d68…1d7e at0015 = EOL // 0x1d7d @0x15
0x1d68…1d7e }
0x1d7e…1dba b3a8 02900 PRINT "<S>" ; P_BNR $ ; TAB ( 11 ) ; P_TXT $ ; TAB ( 33 ) ; P_MKOD $ ; TAB ( 37 )
0x1d7e…1dba LineComal80 {
0x1d7e…1dba ptr = 0xb3a8 // 0x1d7e @0x0
0x1d7e…1dba lno = 0x0b54 // 0x1d80 @0x2
0x1d7e…1dba at0004 = ╱92╱ PRINT ╱ // 0x1d82 @0x4
0x1d7e…1dba at0005 = ╱22╱"╱ // 0x1d83 @0x5
0x1d7e…1dba at0006 = ╱3c╱<╱ // 0x1d84 @0x6
0x1d7e…1dba at0007 = ╱53╱S╱ // 0x1d85 @0x7
0x1d7e…1dba at0008 = ╱3e╱>╱ // 0x1d86 @0x8
0x1d7e…1dba at0009 = ╱22╱"╱ // 0x1d87 @0x9
0x1d7e…1dba at000a = ╱ea╱ ; ╱ // 0x1d88 @0xa
0x1d7e…1dba at000b = ╱50╱P╱ // 0x1d89 @0xb
0x1d7e…1dba at000c = ╱5f╱_╱ // 0x1d8a @0xc
0x1d7e…1dba at000d = ╱42╱B╱ // 0x1d8b @0xd
0x1d7e…1dba at000e = ╱4e╱N╱ // 0x1d8c @0xe
0x1d7e…1dba at000f = ╱52╱R╱ // 0x1d8d @0xf
0x1d7e…1dba at0010 = ╱ef╱ $ ╱ // 0x1d8e @0x10
0x1d7e…1dba at0011 = ╱ea╱ ; ╱ // 0x1d8f @0x11
0x1d7e…1dba at0012 = ╱d2╱ TAB ╱ // 0x1d90 @0x12
0x1d7e…1dba at0013 = ╱ed╱ ( ╱ // 0x1d91 @0x13
0x1d7e…1dba at0014 = ╱31╱1╱ // 0x1d92 @0x14
0x1d7e…1dba at0015 = ╱31╱1╱ // 0x1d93 @0x15
0x1d7e…1dba at0016 = ╱f20b00╱ // 0x1d94 @0x16
0x1d7e…1dba at0019 = ╱ee╱ ) ╱ // 0x1d97 @0x19
0x1d7e…1dba at001a = ╱ea╱ ; ╱ // 0x1d98 @0x1a
0x1d7e…1dba at001b = ╱50╱P╱ // 0x1d99 @0x1b
0x1d7e…1dba at001c = ╱5f╱_╱ // 0x1d9a @0x1c
0x1d7e…1dba at001d = ╱54╱T╱ // 0x1d9b @0x1d
0x1d7e…1dba at001e = ╱58╱X╱ // 0x1d9c @0x1e
0x1d7e…1dba at001f = ╱54╱T╱ // 0x1d9d @0x1f
0x1d7e…1dba at0020 = ╱ef╱ $ ╱ // 0x1d9e @0x20
0x1d7e…1dba at0021 = ╱ea╱ ; ╱ // 0x1d9f @0x21
0x1d7e…1dba at0022 = ╱d2╱ TAB ╱ // 0x1da0 @0x22
0x1d7e…1dba at0023 = ╱ed╱ ( ╱ // 0x1da1 @0x23
0x1d7e…1dba at0024 = ╱33╱3╱ // 0x1da2 @0x24
0x1d7e…1dba at0025 = ╱33╱3╱ // 0x1da3 @0x25
0x1d7e…1dba at0026 = ╱f22100╱ // 0x1da4 @0x26
0x1d7e…1dba at0029 = ╱ee╱ ) ╱ // 0x1da7 @0x29
0x1d7e…1dba at002a = ╱ea╱ ; ╱ // 0x1da8 @0x2a
0x1d7e…1dba at002b = ╱50╱P╱ // 0x1da9 @0x2b
0x1d7e…1dba at002c = ╱5f╱_╱ // 0x1daa @0x2c
0x1d7e…1dba at002d = ╱4d╱M╱ // 0x1dab @0x2d
0x1d7e…1dba at002e = ╱4b╱K╱ // 0x1dac @0x2e
0x1d7e…1dba at002f = ╱4f╱O╱ // 0x1dad @0x2f
0x1d7e…1dba at0030 = ╱44╱D╱ // 0x1dae @0x30
0x1d7e…1dba at0031 = ╱ef╱ $ ╱ // 0x1daf @0x31
0x1d7e…1dba at0032 = ╱ea╱ ; ╱ // 0x1db0 @0x32
0x1d7e…1dba at0033 = ╱d2╱ TAB ╱ // 0x1db1 @0x33
0x1d7e…1dba at0034 = ╱ed╱ ( ╱ // 0x1db2 @0x34
0x1d7e…1dba at0035 = ╱33╱3╱ // 0x1db3 @0x35
0x1d7e…1dba at0036 = ╱37╱7╱ // 0x1db4 @0x36
0x1d7e…1dba at0037 = ╱f22500╱ // 0x1db5 @0x37
0x1d7e…1dba at003a = ╱ee╱ ) ╱ // 0x1db8 @0x3a
0x1d7e…1dba at003b = EOL // 0x1db9 @0x3b
0x1d7e…1dba }
0x1dba…1dd6 b3c4 02910 PRINT "<S>" ; P_BKTO $ ; TAB ( 14 )
0x1dba…1dd6 LineComal80 {
0x1dba…1dd6 ptr = 0xb3c4 // 0x1dba @0x0
0x1dba…1dd6 lno = 0x0b5e // 0x1dbc @0x2
0x1dba…1dd6 at0004 = ╱92╱ PRINT ╱ // 0x1dbe @0x4
0x1dba…1dd6 at0005 = ╱22╱"╱ // 0x1dbf @0x5
0x1dba…1dd6 at0006 = ╱3c╱<╱ // 0x1dc0 @0x6
0x1dba…1dd6 at0007 = ╱53╱S╱ // 0x1dc1 @0x7
0x1dba…1dd6 at0008 = ╱3e╱>╱ // 0x1dc2 @0x8
0x1dba…1dd6 at0009 = ╱22╱"╱ // 0x1dc3 @0x9
0x1dba…1dd6 at000a = ╱ea╱ ; ╱ // 0x1dc4 @0xa
0x1dba…1dd6 at000b = ╱50╱P╱ // 0x1dc5 @0xb
0x1dba…1dd6 at000c = ╱5f╱_╱ // 0x1dc6 @0xc
0x1dba…1dd6 at000d = ╱42╱B╱ // 0x1dc7 @0xd
0x1dba…1dd6 at000e = ╱4b╱K╱ // 0x1dc8 @0xe
0x1dba…1dd6 at000f = ╱54╱T╱ // 0x1dc9 @0xf
0x1dba…1dd6 at0010 = ╱4f╱O╱ // 0x1dca @0x10
0x1dba…1dd6 at0011 = ╱ef╱ $ ╱ // 0x1dcb @0x11
0x1dba…1dd6 at0012 = ╱ea╱ ; ╱ // 0x1dcc @0x12
0x1dba…1dd6 at0013 = ╱d2╱ TAB ╱ // 0x1dcd @0x13
0x1dba…1dd6 at0014 = ╱ed╱ ( ╱ // 0x1dce @0x14
0x1dba…1dd6 at0015 = ╱31╱1╱ // 0x1dcf @0x15
0x1dba…1dd6 at0016 = ╱34╱4╱ // 0x1dd0 @0x16
0x1dba…1dd6 at0017 = ╱f20e00╱ // 0x1dd1 @0x17
0x1dba…1dd6 at001a = ╱ee╱ ) ╱ // 0x1dd4 @0x1a
0x1dba…1dd6 at001b = EOL // 0x1dd5 @0x1b
0x1dba…1dd6 }
0x1dd6…1de8 b3d6 02920 IF _DK = DEBET THEN
0x1dd6…1de8 LineComal80 {
0x1dd6…1de8 ptr = 0xb3d6 // 0x1dd6 @0x0
0x1dd6…1de8 lno = 0x0b68 // 0x1dd8 @0x2
0x1dd6…1de8 at0004 = ╱9b0050╱ IF ╱ // 0x1dda @0x4
0x1dd6…1de8 at0007 = ╱5f╱_╱ // 0x1ddd @0x7
0x1dd6…1de8 at0008 = ╱44╱D╱ // 0x1dde @0x8
0x1dd6…1de8 at0009 = ╱4b╱K╱ // 0x1ddf @0x9
0x1dd6…1de8 at000a = ╱df╱ = ╱ // 0x1de0 @0xa
0x1dd6…1de8 at000b = ╱44╱D╱ // 0x1de1 @0xb
0x1dd6…1de8 at000c = ╱45╱E╱ // 0x1de2 @0xc
0x1dd6…1de8 at000d = ╱42╱B╱ // 0x1de3 @0xd
0x1dd6…1de8 at000e = ╱45╱E╱ // 0x1de4 @0xe
0x1dd6…1de8 at000f = ╱54╱T╱ // 0x1de5 @0xf
0x1dd6…1de8 at0010 = ╱b5╱ THEN ╱ // 0x1de6 @0x10
0x1dd6…1de8 at0011 = EOL // 0x1de7 @0x11
0x1dd6…1de8 }
0x1de8…1e00 b3ee 02930 PRINT CHR$ ( P_BKR , 7 , 2 )
0x1de8…1e00 LineComal80 {
0x1de8…1e00 ptr = 0xb3ee // 0x1de8 @0x0
0x1de8…1e00 lno = 0x0b72 // 0x1dea @0x2
0x1de8…1e00 at0004 = ╱92╱ PRINT ╱ // 0x1dec @0x4
0x1de8…1e00 at0005 = ╱d0╱ CHR$ ╱ // 0x1ded @0x5
0x1de8…1e00 at0006 = ╱ed╱ ( ╱ // 0x1dee @0x6
0x1de8…1e00 at0007 = ╱50╱P╱ // 0x1def @0x7
0x1de8…1e00 at0008 = ╱5f╱_╱ // 0x1df0 @0x8
0x1de8…1e00 at0009 = ╱42╱B╱ // 0x1df1 @0x9
0x1de8…1e00 at000a = ╱4b╱K╱ // 0x1df2 @0xa
0x1de8…1e00 at000b = ╱52╱R╱ // 0x1df3 @0xb
0x1de8…1e00 at000c = ╱ec╱ , ╱ // 0x1df4 @0xc
0x1de8…1e00 at000d = ╱37╱7╱ // 0x1df5 @0xd
0x1de8…1e00 at000e = ╱f20700╱ // 0x1df6 @0xe
0x1de8…1e00 at0011 = ╱ec╱ , ╱ // 0x1df9 @0x11
0x1de8…1e00 at0012 = ╱32╱2╱ // 0x1dfa @0x12
0x1de8…1e00 at0013 = ╱f20200╱ // 0x1dfb @0x13
0x1de8…1e00 at0016 = ╱ee╱ ) ╱ // 0x1dfe @0x16
0x1de8…1e00 at0017 = EOL // 0x1dff @0x17
0x1de8…1e00 }
0x1e00…1e17 b405 02940 LET P_DEB := P_DEB + P_BKR
0x1e00…1e17 LineComal80 {
0x1e00…1e17 ptr = 0xb405 // 0x1e00 @0x0
0x1e00…1e17 lno = 0x0b7c // 0x1e02 @0x2
0x1e00…1e17 at0004 = ╱86╱ LET ╱ // 0x1e04 @0x4
0x1e00…1e17 at0005 = ╱50╱P╱ // 0x1e05 @0x5
0x1e00…1e17 at0006 = ╱5f╱_╱ // 0x1e06 @0x6
0x1e00…1e17 at0007 = ╱44╱D╱ // 0x1e07 @0x7
0x1e00…1e17 at0008 = ╱45╱E╱ // 0x1e08 @0x8
0x1e00…1e17 at0009 = ╱42╱B╱ // 0x1e09 @0x9
0x1e00…1e17 at000a = ╱f0╱ := ╱ // 0x1e0a @0xa
0x1e00…1e17 at000b = ╱50╱P╱ // 0x1e0b @0xb
0x1e00…1e17 at000c = ╱5f╱_╱ // 0x1e0c @0xc
0x1e00…1e17 at000d = ╱44╱D╱ // 0x1e0d @0xd
0x1e00…1e17 at000e = ╱45╱E╱ // 0x1e0e @0xe
0x1e00…1e17 at000f = ╱42╱B╱ // 0x1e0f @0xf
0x1e00…1e17 at0010 = ╱e5╱ + ╱ // 0x1e10 @0x10
0x1e00…1e17 at0011 = ╱50╱P╱ // 0x1e11 @0x11
0x1e00…1e17 at0012 = ╱5f╱_╱ // 0x1e12 @0x12
0x1e00…1e17 at0013 = ╱42╱B╱ // 0x1e13 @0x13
0x1e00…1e17 at0014 = ╱4b╱K╱ // 0x1e14 @0x14
0x1e00…1e17 at0015 = ╱52╱R╱ // 0x1e15 @0x15
0x1e00…1e17 at0016 = EOL // 0x1e16 @0x16
0x1e00…1e17 }
0x1e17…1e1e b40c 02950 ELSE
0x1e17…1e1e LineComal80 {
0x1e17…1e1e ptr = 0xb40c // 0x1e17 @0x0
0x1e17…1e1e lno = 0x0b86 // 0x1e19 @0x2
0x1e17…1e1e at0004 = ╱9a00╱ ELSE ╱ // 0x1e1b @0x4
0x1e17…1e1e at0006 = EOL // 0x1e1d @0x6
0x1e17…1e1e }
0x1e1e…1e3f b42d 02960 PRINT TAB ( 13 ) ; CHR$ ( P_BKR , 7 , 2 )
0x1e1e…1e3f LineComal80 {
0x1e1e…1e3f ptr = 0xb42d // 0x1e1e @0x0
0x1e1e…1e3f lno = 0x0b90 // 0x1e20 @0x2
0x1e1e…1e3f at0004 = ╱92╱ PRINT ╱ // 0x1e22 @0x4
0x1e1e…1e3f at0005 = ╱d2╱ TAB ╱ // 0x1e23 @0x5
0x1e1e…1e3f at0006 = ╱ed╱ ( ╱ // 0x1e24 @0x6
0x1e1e…1e3f at0007 = ╱31╱1╱ // 0x1e25 @0x7
0x1e1e…1e3f at0008 = ╱33╱3╱ // 0x1e26 @0x8
0x1e1e…1e3f at0009 = ╱f20d00╱ // 0x1e27 @0x9
0x1e1e…1e3f at000c = ╱ee╱ ) ╱ // 0x1e2a @0xc
0x1e1e…1e3f at000d = ╱ea╱ ; ╱ // 0x1e2b @0xd
0x1e1e…1e3f at000e = ╱d0╱ CHR$ ╱ // 0x1e2c @0xe
0x1e1e…1e3f at000f = ╱ed╱ ( ╱ // 0x1e2d @0xf
0x1e1e…1e3f at0010 = ╱50╱P╱ // 0x1e2e @0x10
0x1e1e…1e3f at0011 = ╱5f╱_╱ // 0x1e2f @0x11
0x1e1e…1e3f at0012 = ╱42╱B╱ // 0x1e30 @0x12
0x1e1e…1e3f at0013 = ╱4b╱K╱ // 0x1e31 @0x13
0x1e1e…1e3f at0014 = ╱52╱R╱ // 0x1e32 @0x14
0x1e1e…1e3f at0015 = ╱ec╱ , ╱ // 0x1e33 @0x15
0x1e1e…1e3f at0016 = ╱37╱7╱ // 0x1e34 @0x16
0x1e1e…1e3f at0017 = ╱f20700╱ // 0x1e35 @0x17
0x1e1e…1e3f at001a = ╱ec╱ , ╱ // 0x1e38 @0x1a
0x1e1e…1e3f at001b = ╱32╱2╱ // 0x1e39 @0x1b
0x1e1e…1e3f at001c = ╱f20200╱ // 0x1e3a @0x1c
0x1e1e…1e3f at001f = ╱ee╱ ) ╱ // 0x1e3d @0x1f
0x1e1e…1e3f at0020 = EOL // 0x1e3e @0x20
0x1e1e…1e3f }
0x1e3f…1e58 b446 02970 LET P_KRED := P_KRED + P_BKR
0x1e3f…1e58 LineComal80 {
0x1e3f…1e58 ptr = 0xb446 // 0x1e3f @0x0
0x1e3f…1e58 lno = 0x0b9a // 0x1e41 @0x2
0x1e3f…1e58 at0004 = ╱86╱ LET ╱ // 0x1e43 @0x4
0x1e3f…1e58 at0005 = ╱50╱P╱ // 0x1e44 @0x5
0x1e3f…1e58 at0006 = ╱5f╱_╱ // 0x1e45 @0x6
0x1e3f…1e58 at0007 = ╱4b╱K╱ // 0x1e46 @0x7
0x1e3f…1e58 at0008 = ╱52╱R╱ // 0x1e47 @0x8
0x1e3f…1e58 at0009 = ╱45╱E╱ // 0x1e48 @0x9
0x1e3f…1e58 at000a = ╱44╱D╱ // 0x1e49 @0xa
0x1e3f…1e58 at000b = ╱f0╱ := ╱ // 0x1e4a @0xb
0x1e3f…1e58 at000c = ╱50╱P╱ // 0x1e4b @0xc
0x1e3f…1e58 at000d = ╱5f╱_╱ // 0x1e4c @0xd
0x1e3f…1e58 at000e = ╱4b╱K╱ // 0x1e4d @0xe
0x1e3f…1e58 at000f = ╱52╱R╱ // 0x1e4e @0xf
0x1e3f…1e58 at0010 = ╱45╱E╱ // 0x1e4f @0x10
0x1e3f…1e58 at0011 = ╱44╱D╱ // 0x1e50 @0x11
0x1e3f…1e58 at0012 = ╱e5╱ + ╱ // 0x1e51 @0x12
0x1e3f…1e58 at0013 = ╱50╱P╱ // 0x1e52 @0x13
0x1e3f…1e58 at0014 = ╱5f╱_╱ // 0x1e53 @0x14
0x1e3f…1e58 at0015 = ╱42╱B╱ // 0x1e54 @0x15
0x1e3f…1e58 at0016 = ╱4b╱K╱ // 0x1e55 @0x16
0x1e3f…1e58 at0017 = ╱52╱R╱ // 0x1e56 @0x17
0x1e3f…1e58 at0018 = EOL // 0x1e57 @0x18
0x1e3f…1e58 }
0x1e58…1e5e b44c 02980 ENDIF
0x1e58…1e5e LineComal80 {
0x1e58…1e5e ptr = 0xb44c // 0x1e58 @0x0
0x1e58…1e5e lno = 0x0ba4 // 0x1e5a @0x2
0x1e58…1e5e at0004 = ╱9c╱ ENDIF ╱ // 0x1e5c @0x4
0x1e58…1e5e at0005 = EOL // 0x1e5d @0x5
0x1e58…1e5e }
0x1e5e…1e6d b45b 02990 ENDPROC PRINT_LIN
0x1e5e…1e6d LineComal80 {
0x1e5e…1e6d ptr = 0xb45b // 0x1e5e @0x0
0x1e5e…1e6d lno = 0x0bae // 0x1e60 @0x2
0x1e5e…1e6d at0004 = ╱9f╱ ENDPROC ╱ // 0x1e62 @0x4
0x1e5e…1e6d at0005 = ╱50╱P╱ // 0x1e63 @0x5
0x1e5e…1e6d at0006 = ╱52╱R╱ // 0x1e64 @0x6
0x1e5e…1e6d at0007 = ╱49╱I╱ // 0x1e65 @0x7
0x1e5e…1e6d at0008 = ╱4e╱N╱ // 0x1e66 @0x8
0x1e5e…1e6d at0009 = ╱54╱T╱ // 0x1e67 @0x9
0x1e5e…1e6d at000a = ╱5f╱_╱ // 0x1e68 @0xa
0x1e5e…1e6d at000b = ╱4c╱L╱ // 0x1e69 @0xb
0x1e5e…1e6d at000c = ╱49╱I╱ // 0x1e6a @0xc
0x1e5e…1e6d at000d = ╱4e╱N╱ // 0x1e6b @0xd
0x1e5e…1e6d at000e = EOL // 0x1e6c @0xe
0x1e5e…1e6d }
0x1e6d…1e72 b460 03000
0x1e6d…1e72 LineComal80 {
0x1e6d…1e72 ptr = 0xb460 // 0x1e6d @0x0
0x1e6d…1e72 lno = 0x0bb8 // 0x1e6f @0x2
0x1e6d…1e72 at0004 = EOL // 0x1e71 @0x4
0x1e6d…1e72 }
0x1e72…1e7f b46d 03010 PROC AFSLUT
0x1e72…1e7f LineComal80 {
0x1e72…1e7f ptr = 0xb46d // 0x1e72 @0x0
0x1e72…1e7f lno = 0x0bc2 // 0x1e74 @0x2
0x1e72…1e7f at0004 = ╱9e00╱ PROC ╱ // 0x1e76 @0x4
0x1e72…1e7f at0006 = ╱41╱A╱ // 0x1e78 @0x6
0x1e72…1e7f at0007 = ╱46╱F╱ // 0x1e79 @0x7
0x1e72…1e7f at0008 = ╱53╱S╱ // 0x1e7a @0x8
0x1e72…1e7f at0009 = ╱4c╱L╱ // 0x1e7b @0x9
0x1e72…1e7f at000a = ╱55╱U╱ // 0x1e7c @0xa
0x1e72…1e7f at000b = ╱54╱T╱ // 0x1e7d @0xb
0x1e72…1e7f at000c = EOL // 0x1e7e @0xc
0x1e72…1e7f }
0x1e7f…1e95 c458 03020 LET LIN_T := LIN_T + 2
0x1e7f…1e95 LineComal80 {
0x1e7f…1e95 ptr = 0xc458 // 0x1e7f @0x0
0x1e7f…1e95 lno = 0x0bcc // 0x1e81 @0x2
0x1e7f…1e95 at0004 = ╱86╱ LET ╱ // 0x1e83 @0x4
0x1e7f…1e95 at0005 = ╱4c╱L╱ // 0x1e84 @0x5
0x1e7f…1e95 at0006 = ╱49╱I╱ // 0x1e85 @0x6
0x1e7f…1e95 at0007 = ╱4e╱N╱ // 0x1e86 @0x7
0x1e7f…1e95 at0008 = ╱5f╱_╱ // 0x1e87 @0x8
0x1e7f…1e95 at0009 = ╱54╱T╱ // 0x1e88 @0x9
0x1e7f…1e95 at000a = ╱f0╱ := ╱ // 0x1e89 @0xa
0x1e7f…1e95 at000b = ╱4c╱L╱ // 0x1e8a @0xb
0x1e7f…1e95 at000c = ╱49╱I╱ // 0x1e8b @0xc
0x1e7f…1e95 at000d = ╱4e╱N╱ // 0x1e8c @0xd
0x1e7f…1e95 at000e = ╱5f╱_╱ // 0x1e8d @0xe
0x1e7f…1e95 at000f = ╱54╱T╱ // 0x1e8e @0xf
0x1e7f…1e95 at0010 = ╱e5╱ + ╱ // 0x1e8f @0x10
0x1e7f…1e95 at0011 = ╱32╱2╱ // 0x1e90 @0x11
0x1e7f…1e95 at0012 = ╱f20200╱ // 0x1e91 @0x12
0x1e7f…1e95 at0015 = EOL // 0x1e94 @0x15
0x1e7f…1e95 }
0x1e95…1ed7 b4c5 03020 PRINT "<S>-----……--------------------……--……--------……----------……"
0x1e95…1ed7 LineComal80 {
0x1e95…1ed7 ptr = 0xb4c5 // 0x1e95 @0x0
0x1e95…1ed7 lno = 0x0bcc // 0x1e97 @0x2
0x1e95…1ed7 at0004 = ╱92╱ PRINT ╱ // 0x1e99 @0x4
0x1e95…1ed7 at0005 = ╱22╱"╱ // 0x1e9a @0x5
0x1e95…1ed7 at0006 = ╱3c╱<╱ // 0x1e9b @0x6
0x1e95…1ed7 at0007 = ╱53╱S╱ // 0x1e9c @0x7
0x1e95…1ed7 at0008 = ╱3e╱>╱ // 0x1e9d @0x8
0x1e95…1ed7 at0009 = ╱2d╱-╱ // 0x1e9e @0x9
0x1e95…1ed7 at000a = ╱2d╱-╱ // 0x1e9f @0xa
0x1e95…1ed7 at000b = ╱2d╱-╱ // 0x1ea0 @0xb
0x1e95…1ed7 at000c = ╱2d╱-╱ // 0x1ea1 @0xc
0x1e95…1ed7 at000d = ╱2d╱-╱ // 0x1ea2 @0xd
0x1e95…1ed7 at000e = ╱20╱…╱ // 0x1ea3 @0xe
0x1e95…1ed7 at000f = ╱20╱…╱ // 0x1ea4 @0xf
0x1e95…1ed7 at0010 = ╱2d╱-╱ // 0x1ea5 @0x10
0x1e95…1ed7 at0011 = ╱2d╱-╱ // 0x1ea6 @0x11
0x1e95…1ed7 at0012 = ╱2d╱-╱ // 0x1ea7 @0x12
0x1e95…1ed7 at0013 = ╱2d╱-╱ // 0x1ea8 @0x13
0x1e95…1ed7 at0014 = ╱2d╱-╱ // 0x1ea9 @0x14
0x1e95…1ed7 at0015 = ╱2d╱-╱ // 0x1eaa @0x15
0x1e95…1ed7 at0016 = ╱2d╱-╱ // 0x1eab @0x16
0x1e95…1ed7 at0017 = ╱2d╱-╱ // 0x1eac @0x17
0x1e95…1ed7 at0018 = ╱2d╱-╱ // 0x1ead @0x18
0x1e95…1ed7 at0019 = ╱2d╱-╱ // 0x1eae @0x19
0x1e95…1ed7 at001a = ╱2d╱-╱ // 0x1eaf @0x1a
0x1e95…1ed7 at001b = ╱2d╱-╱ // 0x1eb0 @0x1b
0x1e95…1ed7 at001c = ╱2d╱-╱ // 0x1eb1 @0x1c
0x1e95…1ed7 at001d = ╱2d╱-╱ // 0x1eb2 @0x1d
0x1e95…1ed7 at001e = ╱2d╱-╱ // 0x1eb3 @0x1e
0x1e95…1ed7 at001f = ╱2d╱-╱ // 0x1eb4 @0x1f
0x1e95…1ed7 at0020 = ╱2d╱-╱ // 0x1eb5 @0x20
0x1e95…1ed7 at0021 = ╱2d╱-╱ // 0x1eb6 @0x21
0x1e95…1ed7 at0022 = ╱2d╱-╱ // 0x1eb7 @0x22
0x1e95…1ed7 at0023 = ╱2d╱-╱ // 0x1eb8 @0x23
0x1e95…1ed7 at0024 = ╱20╱…╱ // 0x1eb9 @0x24
0x1e95…1ed7 at0025 = ╱20╱…╱ // 0x1eba @0x25
0x1e95…1ed7 at0026 = ╱2d╱-╱ // 0x1ebb @0x26
0x1e95…1ed7 at0027 = ╱2d╱-╱ // 0x1ebc @0x27
0x1e95…1ed7 at0028 = ╱20╱…╱ // 0x1ebd @0x28
0x1e95…1ed7 at0029 = ╱20╱…╱ // 0x1ebe @0x29
0x1e95…1ed7 at002a = ╱2d╱-╱ // 0x1ebf @0x2a
0x1e95…1ed7 at002b = ╱2d╱-╱ // 0x1ec0 @0x2b
0x1e95…1ed7 at002c = ╱2d╱-╱ // 0x1ec1 @0x2c
0x1e95…1ed7 at002d = ╱2d╱-╱ // 0x1ec2 @0x2d
0x1e95…1ed7 at002e = ╱2d╱-╱ // 0x1ec3 @0x2e
0x1e95…1ed7 at002f = ╱2d╱-╱ // 0x1ec4 @0x2f
0x1e95…1ed7 at0030 = ╱2d╱-╱ // 0x1ec5 @0x30
0x1e95…1ed7 at0031 = ╱2d╱-╱ // 0x1ec6 @0x31
0x1e95…1ed7 at0032 = ╱20╱…╱ // 0x1ec7 @0x32
0x1e95…1ed7 at0033 = ╱20╱…╱ // 0x1ec8 @0x33
0x1e95…1ed7 at0034 = ╱2d╱-╱ // 0x1ec9 @0x34
0x1e95…1ed7 at0035 = ╱2d╱-╱ // 0x1eca @0x35
0x1e95…1ed7 at0036 = ╱2d╱-╱ // 0x1ecb @0x36
0x1e95…1ed7 at0037 = ╱2d╱-╱ // 0x1ecc @0x37
0x1e95…1ed7 at0038 = ╱2d╱-╱ // 0x1ecd @0x38
0x1e95…1ed7 at0039 = ╱2d╱-╱ // 0x1ece @0x39
0x1e95…1ed7 at003a = ╱2d╱-╱ // 0x1ecf @0x3a
0x1e95…1ed7 at003b = ╱2d╱-╱ // 0x1ed0 @0x3b
0x1e95…1ed7 at003c = ╱2d╱-╱ // 0x1ed1 @0x3c
0x1e95…1ed7 at003d = ╱2d╱-╱ // 0x1ed2 @0x3d
0x1e95…1ed7 at003e = ╱20╱…╱ // 0x1ed3 @0x3e
0x1e95…1ed7 at003f = ╱20╱…╱ // 0x1ed4 @0x3f
0x1e95…1ed7 at0040 = ╱22╱"╱ // 0x1ed5 @0x40
0x1e95…1ed7 at0041 = EOL // 0x1ed6 @0x41
0x1e95…1ed7 }
0x1ed7…1ee9 b4d7 03040 PRINT "----------"
0x1ed7…1ee9 LineComal80 {
0x1ed7…1ee9 ptr = 0xb4d7 // 0x1ed7 @0x0
0x1ed7…1ee9 lno = 0x0be0 // 0x1ed9 @0x2
0x1ed7…1ee9 at0004 = ╱92╱ PRINT ╱ // 0x1edb @0x4
0x1ed7…1ee9 at0005 = ╱22╱"╱ // 0x1edc @0x5
0x1ed7…1ee9 at0006 = ╱2d╱-╱ // 0x1edd @0x6
0x1ed7…1ee9 at0007 = ╱2d╱-╱ // 0x1ede @0x7
0x1ed7…1ee9 at0008 = ╱2d╱-╱ // 0x1edf @0x8
0x1ed7…1ee9 at0009 = ╱2d╱-╱ // 0x1ee0 @0x9
0x1ed7…1ee9 at000a = ╱2d╱-╱ // 0x1ee1 @0xa
0x1ed7…1ee9 at000b = ╱2d╱-╱ // 0x1ee2 @0xb
0x1ed7…1ee9 at000c = ╱2d╱-╱ // 0x1ee3 @0xc
0x1ed7…1ee9 at000d = ╱2d╱-╱ // 0x1ee4 @0xd
0x1ed7…1ee9 at000e = ╱2d╱-╱ // 0x1ee5 @0xe
0x1ed7…1ee9 at000f = ╱2d╱-╱ // 0x1ee6 @0xf
0x1ed7…1ee9 at0010 = ╱22╱"╱ // 0x1ee7 @0x10
0x1ed7…1ee9 at0011 = EOL // 0x1ee8 @0x11
0x1ed7…1ee9 }
0x1ee9…1f28 b516 03050 PRINT TAB ( 8 ) ; "DEBET/KREDIT…TOTAL" ; TAB ( 42 ) ; CHR$ ( P_DEB , 9 , 2 ) ;
0x1ee9…1f28 LineComal80 {
0x1ee9…1f28 ptr = 0xb516 // 0x1ee9 @0x0
0x1ee9…1f28 lno = 0x0bea // 0x1eeb @0x2
0x1ee9…1f28 at0004 = ╱92╱ PRINT ╱ // 0x1eed @0x4
0x1ee9…1f28 at0005 = ╱d2╱ TAB ╱ // 0x1eee @0x5
0x1ee9…1f28 at0006 = ╱ed╱ ( ╱ // 0x1eef @0x6
0x1ee9…1f28 at0007 = ╱38╱8╱ // 0x1ef0 @0x7
0x1ee9…1f28 at0008 = ╱f20800╱ // 0x1ef1 @0x8
0x1ee9…1f28 at000b = ╱ee╱ ) ╱ // 0x1ef4 @0xb
0x1ee9…1f28 at000c = ╱ea╱ ; ╱ // 0x1ef5 @0xc
0x1ee9…1f28 at000d = ╱22╱"╱ // 0x1ef6 @0xd
0x1ee9…1f28 at000e = ╱44╱D╱ // 0x1ef7 @0xe
0x1ee9…1f28 at000f = ╱45╱E╱ // 0x1ef8 @0xf
0x1ee9…1f28 at0010 = ╱42╱B╱ // 0x1ef9 @0x10
0x1ee9…1f28 at0011 = ╱45╱E╱ // 0x1efa @0x11
0x1ee9…1f28 at0012 = ╱54╱T╱ // 0x1efb @0x12
0x1ee9…1f28 at0013 = ╱2f╱/╱ // 0x1efc @0x13
0x1ee9…1f28 at0014 = ╱4b╱K╱ // 0x1efd @0x14
0x1ee9…1f28 at0015 = ╱52╱R╱ // 0x1efe @0x15
0x1ee9…1f28 at0016 = ╱45╱E╱ // 0x1eff @0x16
0x1ee9…1f28 at0017 = ╱44╱D╱ // 0x1f00 @0x17
0x1ee9…1f28 at0018 = ╱49╱I╱ // 0x1f01 @0x18
0x1ee9…1f28 at0019 = ╱54╱T╱ // 0x1f02 @0x19
0x1ee9…1f28 at001a = ╱20╱…╱ // 0x1f03 @0x1a
0x1ee9…1f28 at001b = ╱54╱T╱ // 0x1f04 @0x1b
0x1ee9…1f28 at001c = ╱4f╱O╱ // 0x1f05 @0x1c
0x1ee9…1f28 at001d = ╱54╱T╱ // 0x1f06 @0x1d
0x1ee9…1f28 at001e = ╱41╱A╱ // 0x1f07 @0x1e
0x1ee9…1f28 at001f = ╱4c╱L╱ // 0x1f08 @0x1f
0x1ee9…1f28 at0020 = ╱22╱"╱ // 0x1f09 @0x20
0x1ee9…1f28 at0021 = ╱ea╱ ; ╱ // 0x1f0a @0x21
0x1ee9…1f28 at0022 = ╱d2╱ TAB ╱ // 0x1f0b @0x22
0x1ee9…1f28 at0023 = ╱ed╱ ( ╱ // 0x1f0c @0x23
0x1ee9…1f28 at0024 = ╱34╱4╱ // 0x1f0d @0x24
0x1ee9…1f28 at0025 = ╱32╱2╱ // 0x1f0e @0x25
0x1ee9…1f28 at0026 = ╱f22a00╱ // 0x1f0f @0x26
0x1ee9…1f28 at0029 = ╱ee╱ ) ╱ // 0x1f12 @0x29
0x1ee9…1f28 at002a = ╱ea╱ ; ╱ // 0x1f13 @0x2a
0x1ee9…1f28 at002b = ╱d0╱ CHR$ ╱ // 0x1f14 @0x2b
0x1ee9…1f28 at002c = ╱ed╱ ( ╱ // 0x1f15 @0x2c
0x1ee9…1f28 at002d = ╱50╱P╱ // 0x1f16 @0x2d
0x1ee9…1f28 at002e = ╱5f╱_╱ // 0x1f17 @0x2e
0x1ee9…1f28 at002f = ╱44╱D╱ // 0x1f18 @0x2f
0x1ee9…1f28 at0030 = ╱45╱E╱ // 0x1f19 @0x30
0x1ee9…1f28 at0031 = ╱42╱B╱ // 0x1f1a @0x31
0x1ee9…1f28 at0032 = ╱ec╱ , ╱ // 0x1f1b @0x32
0x1ee9…1f28 at0033 = ╱39╱9╱ // 0x1f1c @0x33
0x1ee9…1f28 at0034 = ╱f20900╱ // 0x1f1d @0x34
0x1ee9…1f28 at0037 = ╱ec╱ , ╱ // 0x1f20 @0x37
0x1ee9…1f28 at0038 = ╱32╱2╱ // 0x1f21 @0x38
0x1ee9…1f28 at0039 = ╱f20200╱ // 0x1f22 @0x39
0x1ee9…1f28 at003c = ╱ee╱ ) ╱ // 0x1f25 @0x3c
0x1ee9…1f28 at003d = ╱ea╱ ; ╱ // 0x1f26 @0x3d
0x1ee9…1f28 at003e = EOL // 0x1f27 @0x3e
0x1ee9…1f28 }
0x1f28…1f41 b52f 03060 PRINT CHR$ ( P_KRED , 9 , 2 )
0x1f28…1f41 LineComal80 {
0x1f28…1f41 ptr = 0xb52f // 0x1f28 @0x0
0x1f28…1f41 lno = 0x0bf4 // 0x1f2a @0x2
0x1f28…1f41 at0004 = ╱92╱ PRINT ╱ // 0x1f2c @0x4
0x1f28…1f41 at0005 = ╱d0╱ CHR$ ╱ // 0x1f2d @0x5
0x1f28…1f41 at0006 = ╱ed╱ ( ╱ // 0x1f2e @0x6
0x1f28…1f41 at0007 = ╱50╱P╱ // 0x1f2f @0x7
0x1f28…1f41 at0008 = ╱5f╱_╱ // 0x1f30 @0x8
0x1f28…1f41 at0009 = ╱4b╱K╱ // 0x1f31 @0x9
0x1f28…1f41 at000a = ╱52╱R╱ // 0x1f32 @0xa
0x1f28…1f41 at000b = ╱45╱E╱ // 0x1f33 @0xb
0x1f28…1f41 at000c = ╱44╱D╱ // 0x1f34 @0xc
0x1f28…1f41 at000d = ╱ec╱ , ╱ // 0x1f35 @0xd
0x1f28…1f41 at000e = ╱39╱9╱ // 0x1f36 @0xe
0x1f28…1f41 at000f = ╱f20900╱ // 0x1f37 @0xf
0x1f28…1f41 at0012 = ╱ec╱ , ╱ // 0x1f3a @0x12
0x1f28…1f41 at0013 = ╱32╱2╱ // 0x1f3b @0x13
0x1f28…1f41 at0014 = ╱f20200╱ // 0x1f3c @0x14
0x1f28…1f41 at0017 = ╱ee╱ ) ╱ // 0x1f3f @0x17
0x1f28…1f41 at0018 = EOL // 0x1f40 @0x18
0x1f28…1f41 }
0x1f41…1f55 b543 03070 IF _DEB > P_KRED THEN
0x1f41…1f55 LineComal80 {
0x1f41…1f55 ptr = 0xb543 // 0x1f41 @0x0
0x1f41…1f55 lno = 0x0bfe // 0x1f43 @0x2
0x1f41…1f55 at0004 = ╱9b0050╱ IF ╱ // 0x1f45 @0x4
0x1f41…1f55 at0007 = ╱5f╱_╱ // 0x1f48 @0x7
0x1f41…1f55 at0008 = ╱44╱D╱ // 0x1f49 @0x8
0x1f41…1f55 at0009 = ╱45╱E╱ // 0x1f4a @0x9
0x1f41…1f55 at000a = ╱42╱B╱ // 0x1f4b @0xa
0x1f41…1f55 at000b = ╱e1╱ > ╱ // 0x1f4c @0xb
0x1f41…1f55 at000c = ╱50╱P╱ // 0x1f4d @0xc
0x1f41…1f55 at000d = ╱5f╱_╱ // 0x1f4e @0xd
0x1f41…1f55 at000e = ╱4b╱K╱ // 0x1f4f @0xe
0x1f41…1f55 at000f = ╱52╱R╱ // 0x1f50 @0xf
0x1f41…1f55 at0010 = ╱45╱E╱ // 0x1f51 @0x10
0x1f41…1f55 at0011 = ╱44╱D╱ // 0x1f52 @0x11
0x1f41…1f55 at0012 = ╱b5╱ THEN ╱ // 0x1f53 @0x12
0x1f41…1f55 at0013 = EOL // 0x1f54 @0x13
0x1f41…1f55 }
0x1f55…1f93 b581 03080 PRINT TAB ( 11 ) ; "DIFFERENCE" ; TAB ( 42 ) ; CHR$ ( P_DEB - P_KRED , 9 , 2 )
0x1f55…1f93 LineComal80 {
0x1f55…1f93 ptr = 0xb581 // 0x1f55 @0x0
0x1f55…1f93 lno = 0x0c08 // 0x1f57 @0x2
0x1f55…1f93 at0004 = ╱92╱ PRINT ╱ // 0x1f59 @0x4
0x1f55…1f93 at0005 = ╱d2╱ TAB ╱ // 0x1f5a @0x5
0x1f55…1f93 at0006 = ╱ed╱ ( ╱ // 0x1f5b @0x6
0x1f55…1f93 at0007 = ╱31╱1╱ // 0x1f5c @0x7
0x1f55…1f93 at0008 = ╱31╱1╱ // 0x1f5d @0x8
0x1f55…1f93 at0009 = ╱f20b00╱ // 0x1f5e @0x9
0x1f55…1f93 at000c = ╱ee╱ ) ╱ // 0x1f61 @0xc
0x1f55…1f93 at000d = ╱ea╱ ; ╱ // 0x1f62 @0xd
0x1f55…1f93 at000e = ╱22╱"╱ // 0x1f63 @0xe
0x1f55…1f93 at000f = ╱44╱D╱ // 0x1f64 @0xf
0x1f55…1f93 at0010 = ╱49╱I╱ // 0x1f65 @0x10
0x1f55…1f93 at0011 = ╱46╱F╱ // 0x1f66 @0x11
0x1f55…1f93 at0012 = ╱46╱F╱ // 0x1f67 @0x12
0x1f55…1f93 at0013 = ╱45╱E╱ // 0x1f68 @0x13
0x1f55…1f93 at0014 = ╱52╱R╱ // 0x1f69 @0x14
0x1f55…1f93 at0015 = ╱45╱E╱ // 0x1f6a @0x15
0x1f55…1f93 at0016 = ╱4e╱N╱ // 0x1f6b @0x16
0x1f55…1f93 at0017 = ╱43╱C╱ // 0x1f6c @0x17
0x1f55…1f93 at0018 = ╱45╱E╱ // 0x1f6d @0x18
0x1f55…1f93 at0019 = ╱22╱"╱ // 0x1f6e @0x19
0x1f55…1f93 at001a = ╱ea╱ ; ╱ // 0x1f6f @0x1a
0x1f55…1f93 at001b = ╱d2╱ TAB ╱ // 0x1f70 @0x1b
0x1f55…1f93 at001c = ╱ed╱ ( ╱ // 0x1f71 @0x1c
0x1f55…1f93 at001d = ╱34╱4╱ // 0x1f72 @0x1d
0x1f55…1f93 at001e = ╱32╱2╱ // 0x1f73 @0x1e
0x1f55…1f93 at001f = ╱f22a00╱ // 0x1f74 @0x1f
0x1f55…1f93 at0022 = ╱ee╱ ) ╱ // 0x1f77 @0x22
0x1f55…1f93 at0023 = ╱ea╱ ; ╱ // 0x1f78 @0x23
0x1f55…1f93 at0024 = ╱d0╱ CHR$ ╱ // 0x1f79 @0x24
0x1f55…1f93 at0025 = ╱ed╱ ( ╱ // 0x1f7a @0x25
0x1f55…1f93 at0026 = ╱50╱P╱ // 0x1f7b @0x26
0x1f55…1f93 at0027 = ╱5f╱_╱ // 0x1f7c @0x27
0x1f55…1f93 at0028 = ╱44╱D╱ // 0x1f7d @0x28
0x1f55…1f93 at0029 = ╱45╱E╱ // 0x1f7e @0x29
0x1f55…1f93 at002a = ╱42╱B╱ // 0x1f7f @0x2a
0x1f55…1f93 at002b = ╱e6╱ - ╱ // 0x1f80 @0x2b
0x1f55…1f93 at002c = ╱50╱P╱ // 0x1f81 @0x2c
0x1f55…1f93 at002d = ╱5f╱_╱ // 0x1f82 @0x2d
0x1f55…1f93 at002e = ╱4b╱K╱ // 0x1f83 @0x2e
0x1f55…1f93 at002f = ╱52╱R╱ // 0x1f84 @0x2f
0x1f55…1f93 at0030 = ╱45╱E╱ // 0x1f85 @0x30
0x1f55…1f93 at0031 = ╱44╱D╱ // 0x1f86 @0x31
0x1f55…1f93 at0032 = ╱ec╱ , ╱ // 0x1f87 @0x32
0x1f55…1f93 at0033 = ╱39╱9╱ // 0x1f88 @0x33
0x1f55…1f93 at0034 = ╱f20900╱ // 0x1f89 @0x34
0x1f55…1f93 at0037 = ╱ec╱ , ╱ // 0x1f8c @0x37
0x1f55…1f93 at0038 = ╱32╱2╱ // 0x1f8d @0x38
0x1f55…1f93 at0039 = ╱f20200╱ // 0x1f8e @0x39
0x1f55…1f93 at003c = ╱ee╱ ) ╱ // 0x1f91 @0x3c
0x1f55…1f93 at003d = EOL // 0x1f92 @0x3d
0x1f55…1f93 }
0x1f93…1fa9 b597 03090 LET LIN_T := LIN_T + 1
0x1f93…1fa9 LineComal80 {
0x1f93…1fa9 ptr = 0xb597 // 0x1f93 @0x0
0x1f93…1fa9 lno = 0x0c12 // 0x1f95 @0x2
0x1f93…1fa9 at0004 = ╱86╱ LET ╱ // 0x1f97 @0x4
0x1f93…1fa9 at0005 = ╱4c╱L╱ // 0x1f98 @0x5
0x1f93…1fa9 at0006 = ╱49╱I╱ // 0x1f99 @0x6
0x1f93…1fa9 at0007 = ╱4e╱N╱ // 0x1f9a @0x7
0x1f93…1fa9 at0008 = ╱5f╱_╱ // 0x1f9b @0x8
0x1f93…1fa9 at0009 = ╱54╱T╱ // 0x1f9c @0x9
0x1f93…1fa9 at000a = ╱f0╱ := ╱ // 0x1f9d @0xa
0x1f93…1fa9 at000b = ╱4c╱L╱ // 0x1f9e @0xb
0x1f93…1fa9 at000c = ╱49╱I╱ // 0x1f9f @0xc
0x1f93…1fa9 at000d = ╱4e╱N╱ // 0x1fa0 @0xd
0x1f93…1fa9 at000e = ╱5f╱_╱ // 0x1fa1 @0xe
0x1f93…1fa9 at000f = ╱54╱T╱ // 0x1fa2 @0xf
0x1f93…1fa9 at0010 = ╱e5╱ + ╱ // 0x1fa3 @0x10
0x1f93…1fa9 at0011 = ╱31╱1╱ // 0x1fa4 @0x11
0x1f93…1fa9 at0012 = ╱f20100╱ // 0x1fa5 @0x12
0x1f93…1fa9 at0015 = EOL // 0x1fa8 @0x15
0x1f93…1fa9 }
0x1fa9…1fb0 b59e 03100 ELSE
0x1fa9…1fb0 LineComal80 {
0x1fa9…1fb0 ptr = 0xb59e // 0x1fa9 @0x0
0x1fa9…1fb0 lno = 0x0c1c // 0x1fab @0x2
0x1fa9…1fb0 at0004 = ╱9a00╱ ELSE ╱ // 0x1fad @0x4
0x1fa9…1fb0 at0006 = EOL // 0x1faf @0x6
0x1fa9…1fb0 }
0x1fb0…1fc4 b5b2 03110 IF _KRED > P_DEB THEN
0x1fb0…1fc4 LineComal80 {
0x1fb0…1fc4 ptr = 0xb5b2 // 0x1fb0 @0x0
0x1fb0…1fc4 lno = 0x0c26 // 0x1fb2 @0x2
0x1fb0…1fc4 at0004 = ╱9b0050╱ IF ╱ // 0x1fb4 @0x4
0x1fb0…1fc4 at0007 = ╱5f╱_╱ // 0x1fb7 @0x7
0x1fb0…1fc4 at0008 = ╱4b╱K╱ // 0x1fb8 @0x8
0x1fb0…1fc4 at0009 = ╱52╱R╱ // 0x1fb9 @0x9
0x1fb0…1fc4 at000a = ╱45╱E╱ // 0x1fba @0xa
0x1fb0…1fc4 at000b = ╱44╱D╱ // 0x1fbb @0xb
0x1fb0…1fc4 at000c = ╱e1╱ > ╱ // 0x1fbc @0xc
0x1fb0…1fc4 at000d = ╱50╱P╱ // 0x1fbd @0xd
0x1fb0…1fc4 at000e = ╱5f╱_╱ // 0x1fbe @0xe
0x1fb0…1fc4 at000f = ╱44╱D╱ // 0x1fbf @0xf
0x1fb0…1fc4 at0010 = ╱45╱E╱ // 0x1fc0 @0x10
0x1fb0…1fc4 at0011 = ╱42╱B╱ // 0x1fc1 @0x11
0x1fb0…1fc4 at0012 = ╱b5╱ THEN ╱ // 0x1fc2 @0x12
0x1fb0…1fc4 at0013 = EOL // 0x1fc3 @0x13
0x1fb0…1fc4 }
0x1fc4…2002 b5f0 03120 PRINT TAB ( 11 ) ; "DIFFERENCE" ; TAB ( 54 ) ; CHR$ ( P_KRED - P_DEB , 9 , 2 )
0x1fc4…2002 LineComal80 {
0x1fc4…2002 ptr = 0xb5f0 // 0x1fc4 @0x0
0x1fc4…2002 lno = 0x0c30 // 0x1fc6 @0x2
0x1fc4…2002 at0004 = ╱92╱ PRINT ╱ // 0x1fc8 @0x4
0x1fc4…2002 at0005 = ╱d2╱ TAB ╱ // 0x1fc9 @0x5
0x1fc4…2002 at0006 = ╱ed╱ ( ╱ // 0x1fca @0x6
0x1fc4…2002 at0007 = ╱31╱1╱ // 0x1fcb @0x7
0x1fc4…2002 at0008 = ╱31╱1╱ // 0x1fcc @0x8
0x1fc4…2002 at0009 = ╱f20b00╱ // 0x1fcd @0x9
0x1fc4…2002 at000c = ╱ee╱ ) ╱ // 0x1fd0 @0xc
0x1fc4…2002 at000d = ╱ea╱ ; ╱ // 0x1fd1 @0xd
0x1fc4…2002 at000e = ╱22╱"╱ // 0x1fd2 @0xe
0x1fc4…2002 at000f = ╱44╱D╱ // 0x1fd3 @0xf
0x1fc4…2002 at0010 = ╱49╱I╱ // 0x1fd4 @0x10
0x1fc4…2002 at0011 = ╱46╱F╱ // 0x1fd5 @0x11
0x1fc4…2002 at0012 = ╱46╱F╱ // 0x1fd6 @0x12
0x1fc4…2002 at0013 = ╱45╱E╱ // 0x1fd7 @0x13
0x1fc4…2002 at0014 = ╱52╱R╱ // 0x1fd8 @0x14
0x1fc4…2002 at0015 = ╱45╱E╱ // 0x1fd9 @0x15
0x1fc4…2002 at0016 = ╱4e╱N╱ // 0x1fda @0x16
0x1fc4…2002 at0017 = ╱43╱C╱ // 0x1fdb @0x17
0x1fc4…2002 at0018 = ╱45╱E╱ // 0x1fdc @0x18
0x1fc4…2002 at0019 = ╱22╱"╱ // 0x1fdd @0x19
0x1fc4…2002 at001a = ╱ea╱ ; ╱ // 0x1fde @0x1a
0x1fc4…2002 at001b = ╱d2╱ TAB ╱ // 0x1fdf @0x1b
0x1fc4…2002 at001c = ╱ed╱ ( ╱ // 0x1fe0 @0x1c
0x1fc4…2002 at001d = ╱35╱5╱ // 0x1fe1 @0x1d
0x1fc4…2002 at001e = ╱34╱4╱ // 0x1fe2 @0x1e
0x1fc4…2002 at001f = ╱f23600╱ // 0x1fe3 @0x1f
0x1fc4…2002 at0022 = ╱ee╱ ) ╱ // 0x1fe6 @0x22
0x1fc4…2002 at0023 = ╱ea╱ ; ╱ // 0x1fe7 @0x23
0x1fc4…2002 at0024 = ╱d0╱ CHR$ ╱ // 0x1fe8 @0x24
0x1fc4…2002 at0025 = ╱ed╱ ( ╱ // 0x1fe9 @0x25
0x1fc4…2002 at0026 = ╱50╱P╱ // 0x1fea @0x26
0x1fc4…2002 at0027 = ╱5f╱_╱ // 0x1feb @0x27
0x1fc4…2002 at0028 = ╱4b╱K╱ // 0x1fec @0x28
0x1fc4…2002 at0029 = ╱52╱R╱ // 0x1fed @0x29
0x1fc4…2002 at002a = ╱45╱E╱ // 0x1fee @0x2a
0x1fc4…2002 at002b = ╱44╱D╱ // 0x1fef @0x2b
0x1fc4…2002 at002c = ╱e6╱ - ╱ // 0x1ff0 @0x2c
0x1fc4…2002 at002d = ╱50╱P╱ // 0x1ff1 @0x2d
0x1fc4…2002 at002e = ╱5f╱_╱ // 0x1ff2 @0x2e
0x1fc4…2002 at002f = ╱44╱D╱ // 0x1ff3 @0x2f
0x1fc4…2002 at0030 = ╱45╱E╱ // 0x1ff4 @0x30
0x1fc4…2002 at0031 = ╱42╱B╱ // 0x1ff5 @0x31
0x1fc4…2002 at0032 = ╱ec╱ , ╱ // 0x1ff6 @0x32
0x1fc4…2002 at0033 = ╱39╱9╱ // 0x1ff7 @0x33
0x1fc4…2002 at0034 = ╱f20900╱ // 0x1ff8 @0x34
0x1fc4…2002 at0037 = ╱ec╱ , ╱ // 0x1ffb @0x37
0x1fc4…2002 at0038 = ╱32╱2╱ // 0x1ffc @0x38
0x1fc4…2002 at0039 = ╱f20200╱ // 0x1ffd @0x39
0x1fc4…2002 at003c = ╱ee╱ ) ╱ // 0x2000 @0x3c
0x1fc4…2002 at003d = EOL // 0x2001 @0x3d
0x1fc4…2002 }
0x2002…2018 b606 03130 LET LIN_T := LIN_T + 1
0x2002…2018 LineComal80 {
0x2002…2018 ptr = 0xb606 // 0x2002 @0x0
0x2002…2018 lno = 0x0c3a // 0x2004 @0x2
0x2002…2018 at0004 = ╱86╱ LET ╱ // 0x2006 @0x4
0x2002…2018 at0005 = ╱4c╱L╱ // 0x2007 @0x5
0x2002…2018 at0006 = ╱49╱I╱ // 0x2008 @0x6
0x2002…2018 at0007 = ╱4e╱N╱ // 0x2009 @0x7
0x2002…2018 at0008 = ╱5f╱_╱ // 0x200a @0x8
0x2002…2018 at0009 = ╱54╱T╱ // 0x200b @0x9
0x2002…2018 at000a = ╱f0╱ := ╱ // 0x200c @0xa
0x2002…2018 at000b = ╱4c╱L╱ // 0x200d @0xb
0x2002…2018 at000c = ╱49╱I╱ // 0x200e @0xc
0x2002…2018 at000d = ╱4e╱N╱ // 0x200f @0xd
0x2002…2018 at000e = ╱5f╱_╱ // 0x2010 @0xe
0x2002…2018 at000f = ╱54╱T╱ // 0x2011 @0xf
0x2002…2018 at0010 = ╱e5╱ + ╱ // 0x2012 @0x10
0x2002…2018 at0011 = ╱31╱1╱ // 0x2013 @0x11
0x2002…2018 at0012 = ╱f20100╱ // 0x2014 @0x12
0x2002…2018 at0015 = EOL // 0x2017 @0x15
0x2002…2018 }
0x2018…201e b60c 03140 ENDIF
0x2018…201e LineComal80 {
0x2018…201e ptr = 0xb60c // 0x2018 @0x0
0x2018…201e lno = 0x0c44 // 0x201a @0x2
0x2018…201e at0004 = ╱9c╱ ENDIF ╱ // 0x201c @0x4
0x2018…201e at0005 = EOL // 0x201d @0x5
0x2018…201e }
0x201e…2024 b612 03150 ENDIF
0x201e…2024 LineComal80 {
0x201e…2024 ptr = 0xb612 // 0x201e @0x0
0x201e…2024 lno = 0x0c4e // 0x2020 @0x2
0x201e…2024 at0004 = ╱9c╱ ENDIF ╱ // 0x2022 @0x4
0x201e…2024 at0005 = EOL // 0x2023 @0x5
0x201e…2024 }
0x2024…203c b62a 03160 FOR I := LIN_T TO AX_LIN DO PRINT
0x2024…203c LineComal80 {
0x2024…203c ptr = 0xb62a // 0x2024 @0x0
0x2024…203c lno = 0x0c58 // 0x2026 @0x2
0x2024…203c at0004 = ╱b400╱ FOR ╱ // 0x2028 @0x4
0x2024…203c at0006 = ╱49╱I╱ // 0x202a @0x6
0x2024…203c at0007 = ╱f0╱ := ╱ // 0x202b @0x7
0x2024…203c at0008 = ╱4c╱L╱ // 0x202c @0x8
0x2024…203c at0009 = ╱49╱I╱ // 0x202d @0x9
0x2024…203c at000a = ╱4e╱N╱ // 0x202e @0xa
0x2024…203c at000b = ╱5f╱_╱ // 0x202f @0xb
0x2024…203c at000c = ╱54╱T╱ // 0x2030 @0xc
0x2024…203c at000d = ╱b74d╱ TO ╱ // 0x2031 @0xd
0x2024…203c at000f = ╱41╱A╱ // 0x2033 @0xf
0x2024…203c at0010 = ╱58╱X╱ // 0x2034 @0x10
0x2024…203c at0011 = ╱5f╱_╱ // 0x2035 @0x11
0x2024…203c at0012 = ╱4c╱L╱ // 0x2036 @0x12
0x2024…203c at0013 = ╱49╱I╱ // 0x2037 @0x13
0x2024…203c at0014 = ╱4e╱N╱ // 0x2038 @0x14
0x2024…203c at0015 = ╱bb╱ DO ╱ // 0x2039 @0x15
0x2024…203c at0016 = ╱92╱ PRINT ╱ // 0x203a @0x16
0x2024…203c at0017 = EOL // 0x203b @0x17
0x2024…203c }
0x203c…2048 b636 03170 ENDPROC AFSLUT
0x203c…2048 LineComal80 {
0x203c…2048 ptr = 0xb636 // 0x203c @0x0
0x203c…2048 lno = 0x0c62 // 0x203e @0x2
0x203c…2048 at0004 = ╱9f╱ ENDPROC ╱ // 0x2040 @0x4
0x203c…2048 at0005 = ╱41╱A╱ // 0x2041 @0x5
0x203c…2048 at0006 = ╱46╱F╱ // 0x2042 @0x6
0x203c…2048 at0007 = ╱53╱S╱ // 0x2043 @0x7
0x203c…2048 at0008 = ╱4c╱L╱ // 0x2044 @0x8
0x203c…2048 at0009 = ╱55╱U╱ // 0x2045 @0x9
0x203c…2048 at000a = ╱54╱T╱ // 0x2046 @0xa
0x203c…2048 at000b = EOL // 0x2047 @0xb
0x203c…2048 }
0x2048…204d b63b 03180
0x2048…204d LineComal80 {
0x2048…204d ptr = 0xb63b // 0x2048 @0x0
0x2048…204d lno = 0x0c6c // 0x204a @0x2
0x2048…204d at0004 = EOL // 0x204c @0x4
0x2048…204d }
0x204d…2060 b64e 03190 PROC L[S_TRANS ( P )
0x204d…2060 LineComal80 {
0x204d…2060 ptr = 0xb64e // 0x204d @0x0
0x204d…2060 lno = 0x0c76 // 0x204f @0x2
0x204d…2060 at0004 = ╱9e00╱ PROC ╱ // 0x2051 @0x4
0x204d…2060 at0006 = ╱4c╱L╱ // 0x2053 @0x6
0x204d…2060 at0007 = ╱5b╱[╱ // 0x2054 @0x7
0x204d…2060 at0008 = ╱53╱S╱ // 0x2055 @0x8
0x204d…2060 at0009 = ╱5f╱_╱ // 0x2056 @0x9
0x204d…2060 at000a = ╱54╱T╱ // 0x2057 @0xa
0x204d…2060 at000b = ╱52╱R╱ // 0x2058 @0xb
0x204d…2060 at000c = ╱41╱A╱ // 0x2059 @0xc
0x204d…2060 at000d = ╱4e╱N╱ // 0x205a @0xd
0x204d…2060 at000e = ╱53╱S╱ // 0x205b @0xe
0x204d…2060 at000f = ╱ed╱ ( ╱ // 0x205c @0xf
0x204d…2060 at0010 = ╱50╱P╱ // 0x205d @0x10
0x204d…2060 at0011 = ╱ee╱ ) ╱ // 0x205e @0x11
0x204d…2060 at0012 = EOL // 0x205f @0x12
0x204d…2060 }
0x2060…20a1 b68f 03200 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
0x2060…20a1 LineComal80 {
0x2060…20a1 ptr = 0xb68f // 0x2060 @0x0
0x2060…20a1 lno = 0x0c80 // 0x2062 @0x2
0x2060…20a1 at0004 = ╱a9╱ GET ╱ // 0x2064 @0x4
0x2060…20a1 at0005 = ╱54╱T╱ // 0x2065 @0x5
0x2060…20a1 at0006 = ╱52╱R╱ // 0x2066 @0x6
0x2060…20a1 at0007 = ╱41╱A╱ // 0x2067 @0x7
0x2060…20a1 at0008 = ╱4e╱N╱ // 0x2068 @0x8
0x2060…20a1 at0009 = ╱53╱S╱ // 0x2069 @0x9
0x2060…20a1 at000a = ╱ef╱ $ ╱ // 0x206a @0xa
0x2060…20a1 at000b = ╱ec╱ , ╱ // 0x206b @0xb
0x2060…20a1 at000c = ╱50╱P╱ // 0x206c @0xc
0x2060…20a1 at000d = ╱f1╱ : ╱ // 0x206d @0xd
0x2060…20a1 at000e = ╱42╱B╱ // 0x206e @0xe
0x2060…20a1 at000f = ╱4b╱K╱ // 0x206f @0xf
0x2060…20a1 at0010 = ╱54╱T╱ // 0x2070 @0x10
0x2060…20a1 at0011 = ╱4f╱O╱ // 0x2071 @0x11
0x2060…20a1 at0012 = ╱4e╱N╱ // 0x2072 @0x12
0x2060…20a1 at0013 = ╱52╱R╱ // 0x2073 @0x13
0x2060…20a1 at0014 = ╱ef╱ $ ╱ // 0x2074 @0x14
0x2060…20a1 at0015 = ╱ec╱ , ╱ // 0x2075 @0x15
0x2060…20a1 at0016 = ╱42╱B╱ // 0x2076 @0x16
0x2060…20a1 at0017 = ╱44╱D╱ // 0x2077 @0x17
0x2060…20a1 at0018 = ╱41╱A╱ // 0x2078 @0x18
0x2060…20a1 at0019 = ╱54╱T╱ // 0x2079 @0x19
0x2060…20a1 at001a = ╱4f╱O╱ // 0x207a @0x1a
0x2060…20a1 at001b = ╱ef╱ $ ╱ // 0x207b @0x1b
0x2060…20a1 at001c = ╱ec╱ , ╱ // 0x207c @0x1c
0x2060…20a1 at001d = ╱42╱B╱ // 0x207d @0x1d
0x2060…20a1 at001e = ╱4c╱L╱ // 0x207e @0x1e
0x2060…20a1 at001f = ╱47╱G╱ // 0x207f @0x1f
0x2060…20a1 at0020 = ╱4e╱N╱ // 0x2080 @0x20
0x2060…20a1 at0021 = ╱52╱R╱ // 0x2081 @0x21
0x2060…20a1 at0022 = ╱ef╱ $ ╱ // 0x2082 @0x22
0x2060…20a1 at0023 = ╱ec╱ , ╱ // 0x2083 @0x23
0x2060…20a1 at0024 = ╱42╱B╱ // 0x2084 @0x24
0x2060…20a1 at0025 = ╱54╱T╱ // 0x2085 @0x25
0x2060…20a1 at0026 = ╱58╱X╱ // 0x2086 @0x26
0x2060…20a1 at0027 = ╱54╱T╱ // 0x2087 @0x27
0x2060…20a1 at0028 = ╱ef╱ $ ╱ // 0x2088 @0x28
0x2060…20a1 at0029 = ╱ec╱ , ╱ // 0x2089 @0x29
0x2060…20a1 at002a = ╱42╱B╱ // 0x208a @0x2a
0x2060…20a1 at002b = ╱4d╱M╱ // 0x208b @0x2b
0x2060…20a1 at002c = ╱4f╱O╱ // 0x208c @0x2c
0x2060…20a1 at002d = ╱4d╱M╱ // 0x208d @0x2d
0x2060…20a1 at002e = ╱53╱S╱ // 0x208e @0x2e
0x2060…20a1 at002f = ╱ec╱ , ╱ // 0x208f @0x2f
0x2060…20a1 at0030 = ╱42╱B╱ // 0x2090 @0x30
0x2060…20a1 at0031 = ╱42╱B╱ // 0x2091 @0x31
0x2060…20a1 at0032 = ╱45╱E╱ // 0x2092 @0x32
0x2060…20a1 at0033 = ╱4c╱L╱ // 0x2093 @0x33
0x2060…20a1 at0034 = ╱5c╱\╱ // 0x2094 @0x34
0x2060…20a1 at0035 = ╱42╱B╱ // 0x2095 @0x35
0x2060…20a1 at0036 = ╱ec╱ , ╱ // 0x2096 @0x36
0x2060…20a1 at0037 = ╱44╱D╱ // 0x2097 @0x37
0x2060…20a1 at0038 = ╱4b╱K╱ // 0x2098 @0x38
0x2060…20a1 at0039 = ╱ec╱ , ╱ // 0x2099 @0x39
0x2060…20a1 at003a = ╱4e╱N╱ // 0x209a @0x3a
0x2060…20a1 at003b = ╱54╱T╱ // 0x209b @0x3b
0x2060…20a1 at003c = ╱52╱R╱ // 0x209c @0x3c
0x2060…20a1 at003d = ╱41╱A╱ // 0x209d @0x3d
0x2060…20a1 at003e = ╱4e╱N╱ // 0x209e @0x3e
0x2060…20a1 at003f = ╱53╱S╱ // 0x209f @0x3f
0x2060…20a1 at0040 = EOL // 0x20a0 @0x40
0x2060…20a1 }
0x20a1…20b0 b69e 03210 ENDPROC L[S_TRANS
0x20a1…20b0 LineComal80 {
0x20a1…20b0 ptr = 0xb69e // 0x20a1 @0x0
0x20a1…20b0 lno = 0x0c8a // 0x20a3 @0x2
0x20a1…20b0 at0004 = ╱9f╱ ENDPROC ╱ // 0x20a5 @0x4
0x20a1…20b0 at0005 = ╱4c╱L╱ // 0x20a6 @0x5
0x20a1…20b0 at0006 = ╱5b╱[╱ // 0x20a7 @0x6
0x20a1…20b0 at0007 = ╱53╱S╱ // 0x20a8 @0x7
0x20a1…20b0 at0008 = ╱5f╱_╱ // 0x20a9 @0x8
0x20a1…20b0 at0009 = ╱54╱T╱ // 0x20aa @0x9
0x20a1…20b0 at000a = ╱52╱R╱ // 0x20ab @0xa
0x20a1…20b0 at000b = ╱41╱A╱ // 0x20ac @0xb
0x20a1…20b0 at000c = ╱4e╱N╱ // 0x20ad @0xc
0x20a1…20b0 at000d = ╱53╱S╱ // 0x20ae @0xd
0x20a1…20b0 at000e = EOL // 0x20af @0xe
0x20a1…20b0 }
0x20b0…20b5 b6a3 03220
0x20b0…20b5 LineComal80 {
0x20b0…20b5 ptr = 0xb6a3 // 0x20b0 @0x0
0x20b0…20b5 lno = 0x0c94 // 0x20b2 @0x2
0x20b0…20b5 at0004 = EOL // 0x20b4 @0x4
0x20b0…20b5 }
0x20b5…20ca b6b8 03230 PROC SKRIV_TRANS ( P )
0x20b5…20ca LineComal80 {
0x20b5…20ca ptr = 0xb6b8 // 0x20b5 @0x0
0x20b5…20ca lno = 0x0c9e // 0x20b7 @0x2
0x20b5…20ca at0004 = ╱9e00╱ PROC ╱ // 0x20b9 @0x4
0x20b5…20ca at0006 = ╱53╱S╱ // 0x20bb @0x6
0x20b5…20ca at0007 = ╱4b╱K╱ // 0x20bc @0x7
0x20b5…20ca at0008 = ╱52╱R╱ // 0x20bd @0x8
0x20b5…20ca at0009 = ╱49╱I╱ // 0x20be @0x9
0x20b5…20ca at000a = ╱56╱V╱ // 0x20bf @0xa
0x20b5…20ca at000b = ╱5f╱_╱ // 0x20c0 @0xb
0x20b5…20ca at000c = ╱54╱T╱ // 0x20c1 @0xc
0x20b5…20ca at000d = ╱52╱R╱ // 0x20c2 @0xd
0x20b5…20ca at000e = ╱41╱A╱ // 0x20c3 @0xe
0x20b5…20ca at000f = ╱4e╱N╱ // 0x20c4 @0xf
0x20b5…20ca at0010 = ╱53╱S╱ // 0x20c5 @0x10
0x20b5…20ca at0011 = ╱ed╱ ( ╱ // 0x20c6 @0x11
0x20b5…20ca at0012 = ╱50╱P╱ // 0x20c7 @0x12
0x20b5…20ca at0013 = ╱ee╱ ) ╱ // 0x20c8 @0x13
0x20b5…20ca at0014 = EOL // 0x20c9 @0x14
0x20b5…20ca }
0x20ca…210b b6f9 03240 PUT TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
0x20ca…210b LineComal80 {
0x20ca…210b ptr = 0xb6f9 // 0x20ca @0x0
0x20ca…210b lno = 0x0ca8 // 0x20cc @0x2
0x20ca…210b at0004 = ╱aa╱ PUT ╱ // 0x20ce @0x4
0x20ca…210b at0005 = ╱54╱T╱ // 0x20cf @0x5
0x20ca…210b at0006 = ╱52╱R╱ // 0x20d0 @0x6
0x20ca…210b at0007 = ╱41╱A╱ // 0x20d1 @0x7
0x20ca…210b at0008 = ╱4e╱N╱ // 0x20d2 @0x8
0x20ca…210b at0009 = ╱53╱S╱ // 0x20d3 @0x9
0x20ca…210b at000a = ╱ef╱ $ ╱ // 0x20d4 @0xa
0x20ca…210b at000b = ╱ec╱ , ╱ // 0x20d5 @0xb
0x20ca…210b at000c = ╱50╱P╱ // 0x20d6 @0xc
0x20ca…210b at000d = ╱f1╱ : ╱ // 0x20d7 @0xd
0x20ca…210b at000e = ╱42╱B╱ // 0x20d8 @0xe
0x20ca…210b at000f = ╱4b╱K╱ // 0x20d9 @0xf
0x20ca…210b at0010 = ╱54╱T╱ // 0x20da @0x10
0x20ca…210b at0011 = ╱4f╱O╱ // 0x20db @0x11
0x20ca…210b at0012 = ╱4e╱N╱ // 0x20dc @0x12
0x20ca…210b at0013 = ╱52╱R╱ // 0x20dd @0x13
0x20ca…210b at0014 = ╱ef╱ $ ╱ // 0x20de @0x14
0x20ca…210b at0015 = ╱ec╱ , ╱ // 0x20df @0x15
0x20ca…210b at0016 = ╱42╱B╱ // 0x20e0 @0x16
0x20ca…210b at0017 = ╱44╱D╱ // 0x20e1 @0x17
0x20ca…210b at0018 = ╱41╱A╱ // 0x20e2 @0x18
0x20ca…210b at0019 = ╱54╱T╱ // 0x20e3 @0x19
0x20ca…210b at001a = ╱4f╱O╱ // 0x20e4 @0x1a
0x20ca…210b at001b = ╱ef╱ $ ╱ // 0x20e5 @0x1b
0x20ca…210b at001c = ╱ec╱ , ╱ // 0x20e6 @0x1c
0x20ca…210b at001d = ╱42╱B╱ // 0x20e7 @0x1d
0x20ca…210b at001e = ╱4c╱L╱ // 0x20e8 @0x1e
0x20ca…210b at001f = ╱47╱G╱ // 0x20e9 @0x1f
0x20ca…210b at0020 = ╱4e╱N╱ // 0x20ea @0x20
0x20ca…210b at0021 = ╱52╱R╱ // 0x20eb @0x21
0x20ca…210b at0022 = ╱ef╱ $ ╱ // 0x20ec @0x22
0x20ca…210b at0023 = ╱ec╱ , ╱ // 0x20ed @0x23
0x20ca…210b at0024 = ╱42╱B╱ // 0x20ee @0x24
0x20ca…210b at0025 = ╱54╱T╱ // 0x20ef @0x25
0x20ca…210b at0026 = ╱58╱X╱ // 0x20f0 @0x26
0x20ca…210b at0027 = ╱54╱T╱ // 0x20f1 @0x27
0x20ca…210b at0028 = ╱ef╱ $ ╱ // 0x20f2 @0x28
0x20ca…210b at0029 = ╱ec╱ , ╱ // 0x20f3 @0x29
0x20ca…210b at002a = ╱42╱B╱ // 0x20f4 @0x2a
0x20ca…210b at002b = ╱4d╱M╱ // 0x20f5 @0x2b
0x20ca…210b at002c = ╱4f╱O╱ // 0x20f6 @0x2c
0x20ca…210b at002d = ╱4d╱M╱ // 0x20f7 @0x2d
0x20ca…210b at002e = ╱53╱S╱ // 0x20f8 @0x2e
0x20ca…210b at002f = ╱ec╱ , ╱ // 0x20f9 @0x2f
0x20ca…210b at0030 = ╱42╱B╱ // 0x20fa @0x30
0x20ca…210b at0031 = ╱42╱B╱ // 0x20fb @0x31
0x20ca…210b at0032 = ╱45╱E╱ // 0x20fc @0x32
0x20ca…210b at0033 = ╱4c╱L╱ // 0x20fd @0x33
0x20ca…210b at0034 = ╱5c╱\╱ // 0x20fe @0x34
0x20ca…210b at0035 = ╱42╱B╱ // 0x20ff @0x35
0x20ca…210b at0036 = ╱ec╱ , ╱ // 0x2100 @0x36
0x20ca…210b at0037 = ╱44╱D╱ // 0x2101 @0x37
0x20ca…210b at0038 = ╱4b╱K╱ // 0x2102 @0x38
0x20ca…210b at0039 = ╱ec╱ , ╱ // 0x2103 @0x39
0x20ca…210b at003a = ╱4e╱N╱ // 0x2104 @0x3a
0x20ca…210b at003b = ╱54╱T╱ // 0x2105 @0x3b
0x20ca…210b at003c = ╱52╱R╱ // 0x2106 @0x3c
0x20ca…210b at003d = ╱41╱A╱ // 0x2107 @0x3d
0x20ca…210b at003e = ╱4e╱N╱ // 0x2108 @0x3e
0x20ca…210b at003f = ╱53╱S╱ // 0x2109 @0x3f
0x20ca…210b at0040 = EOL // 0x210a @0x40
0x20ca…210b }
0x210b…211c b70a 03250 ENDPROC SKRIV_TRANS
0x210b…211c LineComal80 {
0x210b…211c ptr = 0xb70a // 0x210b @0x0
0x210b…211c lno = 0x0cb2 // 0x210d @0x2
0x210b…211c at0004 = ╱9f╱ ENDPROC ╱ // 0x210f @0x4
0x210b…211c at0005 = ╱53╱S╱ // 0x2110 @0x5
0x210b…211c at0006 = ╱4b╱K╱ // 0x2111 @0x6
0x210b…211c at0007 = ╱52╱R╱ // 0x2112 @0x7
0x210b…211c at0008 = ╱49╱I╱ // 0x2113 @0x8
0x210b…211c at0009 = ╱56╱V╱ // 0x2114 @0x9
0x210b…211c at000a = ╱5f╱_╱ // 0x2115 @0xa
0x210b…211c at000b = ╱54╱T╱ // 0x2116 @0xb
0x210b…211c at000c = ╱52╱R╱ // 0x2117 @0xc
0x210b…211c at000d = ╱41╱A╱ // 0x2118 @0xd
0x210b…211c at000e = ╱4e╱N╱ // 0x2119 @0xe
0x210b…211c at000f = ╱53╱S╱ // 0x211a @0xf
0x210b…211c at0010 = EOL // 0x211b @0x10
0x210b…211c }
0x211c…2121 b70f 03260
0x211c…2121 LineComal80 {
0x211c…2121 ptr = 0xb70f // 0x211c @0x0
0x211c…2121 lno = 0x0cbc // 0x211e @0x2
0x211c…2121 at0004 = EOL // 0x2120 @0x4
0x211c…2121 }
0x2121…2136 b724 03270 PROC SKRIV_KONTO ( P )
0x2121…2136 LineComal80 {
0x2121…2136 ptr = 0xb724 // 0x2121 @0x0
0x2121…2136 lno = 0x0cc6 // 0x2123 @0x2
0x2121…2136 at0004 = ╱9e00╱ PROC ╱ // 0x2125 @0x4
0x2121…2136 at0006 = ╱53╱S╱ // 0x2127 @0x6
0x2121…2136 at0007 = ╱4b╱K╱ // 0x2128 @0x7
0x2121…2136 at0008 = ╱52╱R╱ // 0x2129 @0x8
0x2121…2136 at0009 = ╱49╱I╱ // 0x212a @0x9
0x2121…2136 at000a = ╱56╱V╱ // 0x212b @0xa
0x2121…2136 at000b = ╱5f╱_╱ // 0x212c @0xb
0x2121…2136 at000c = ╱4b╱K╱ // 0x212d @0xc
0x2121…2136 at000d = ╱4f╱O╱ // 0x212e @0xd
0x2121…2136 at000e = ╱4e╱N╱ // 0x212f @0xe
0x2121…2136 at000f = ╱54╱T╱ // 0x2130 @0xf
0x2121…2136 at0010 = ╱4f╱O╱ // 0x2131 @0x10
0x2121…2136 at0011 = ╱ed╱ ( ╱ // 0x2132 @0x11
0x2121…2136 at0012 = ╱50╱P╱ // 0x2133 @0x12
0x2121…2136 at0013 = ╱ee╱ ) ╱ // 0x2134 @0x13
0x2121…2136 at0014 = EOL // 0x2135 @0x14
0x2121…2136 }
0x2136…217b b769 03280 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x2136…217b LineComal80 {
0x2136…217b ptr = 0xb769 // 0x2136 @0x0
0x2136…217b lno = 0x0cd0 // 0x2138 @0x2
0x2136…217b at0004 = ╱aa╱ PUT ╱ // 0x213a @0x4
0x2136…217b at0005 = ╱4b╱K╱ // 0x213b @0x5
0x2136…217b at0006 = ╱4f╱O╱ // 0x213c @0x6
0x2136…217b at0007 = ╱4e╱N╱ // 0x213d @0x7
0x2136…217b at0008 = ╱54╱T╱ // 0x213e @0x8
0x2136…217b at0009 = ╱4f╱O╱ // 0x213f @0x9
0x2136…217b at000a = ╱ef╱ $ ╱ // 0x2140 @0xa
0x2136…217b at000b = ╱ec╱ , ╱ // 0x2141 @0xb
0x2136…217b at000c = ╱50╱P╱ // 0x2142 @0xc
0x2136…217b at000d = ╱f1╱ : ╱ // 0x2143 @0xd
0x2136…217b at000e = ╱4b╱K╱ // 0x2144 @0xe
0x2136…217b at000f = ╱54╱T╱ // 0x2145 @0xf
0x2136…217b at0010 = ╱4f╱O╱ // 0x2146 @0x10
0x2136…217b at0011 = ╱5f╱_╱ // 0x2147 @0x11
0x2136…217b at0012 = ╱54╱T╱ // 0x2148 @0x12
0x2136…217b at0013 = ╱59╱Y╱ // 0x2149 @0x13
0x2136…217b at0014 = ╱50╱P╱ // 0x214a @0x14
0x2136…217b at0015 = ╱45╱E╱ // 0x214b @0x15
0x2136…217b at0016 = ╱ef╱ $ ╱ // 0x214c @0x16
0x2136…217b at0017 = ╱ec╱ , ╱ // 0x214d @0x17
0x2136…217b at0018 = ╱4b╱K╱ // 0x214e @0x18
0x2136…217b at0019 = ╱54╱T╱ // 0x214f @0x19
0x2136…217b at001a = ╱4f╱O╱ // 0x2150 @0x1a
0x2136…217b at001b = ╱5f╱_╱ // 0x2151 @0x1b
0x2136…217b at001c = ╱4e╱N╱ // 0x2152 @0x1c
0x2136…217b at001d = ╱41╱A╱ // 0x2153 @0x1d
0x2136…217b at001e = ╱56╱V╱ // 0x2154 @0x1e
0x2136…217b at001f = ╱4e╱N╱ // 0x2155 @0x1f
0x2136…217b at0020 = ╱ef╱ $ ╱ // 0x2156 @0x20
0x2136…217b at0021 = ╱ec╱ , ╱ // 0x2157 @0x21
0x2136…217b at0022 = ╱4b╱K╱ // 0x2158 @0x22
0x2136…217b at0023 = ╱54╱T╱ // 0x2159 @0x23
0x2136…217b at0024 = ╱4f╱O╱ // 0x215a @0x24
0x2136…217b at0025 = ╱5f╱_╱ // 0x215b @0x25
0x2136…217b at0026 = ╱50╱P╱ // 0x215c @0x26
0x2136…217b at0027 = ╱52╱R╱ // 0x215d @0x27
0x2136…217b at0028 = ╱49╱I╱ // 0x215e @0x28
0x2136…217b at0029 = ╱4d╱M╱ // 0x215f @0x29
0x2136…217b at002a = ╱4f╱O╱ // 0x2160 @0x2a
0x2136…217b at002b = ╱ec╱ , ╱ // 0x2161 @0x2b
0x2136…217b at002c = ╱4b╱K╱ // 0x2162 @0x2c
0x2136…217b at002d = ╱54╱T╱ // 0x2163 @0x2d
0x2136…217b at002e = ╱4f╱O╱ // 0x2164 @0x2e
0x2136…217b at002f = ╱5f╱_╱ // 0x2165 @0x2f
0x2136…217b at0030 = ╱55╱U╱ // 0x2166 @0x30
0x2136…217b at0031 = ╱4c╱L╱ // 0x2167 @0x31
0x2136…217b at0032 = ╱54╱T╱ // 0x2168 @0x32
0x2136…217b at0033 = ╱49╱I╱ // 0x2169 @0x33
0x2136…217b at0034 = ╱4d╱M╱ // 0x216a @0x34
0x2136…217b at0035 = ╱4f╱O╱ // 0x216b @0x35
0x2136…217b at0036 = ╱ec╱ , ╱ // 0x216c @0x36
0x2136…217b at0037 = ╱4b╱K╱ // 0x216d @0x37
0x2136…217b at0038 = ╱54╱T╱ // 0x216e @0x38
0x2136…217b at0039 = ╱4f╱O╱ // 0x216f @0x39
0x2136…217b at003a = ╱5f╱_╱ // 0x2170 @0x3a
0x2136…217b at003b = ╱46╱F╱ // 0x2171 @0x3b
0x2136…217b at003c = ╱50╱P╱ // 0x2172 @0x3c
0x2136…217b at003d = ╱ec╱ , ╱ // 0x2173 @0x3d
0x2136…217b at003e = ╱4b╱K╱ // 0x2174 @0x3e
0x2136…217b at003f = ╱54╱T╱ // 0x2175 @0x3f
0x2136…217b at0040 = ╱4f╱O╱ // 0x2176 @0x40
0x2136…217b at0041 = ╱5f╱_╱ // 0x2177 @0x41
0x2136…217b at0042 = ╱53╱S╱ // 0x2178 @0x42
0x2136…217b at0043 = ╱50╱P╱ // 0x2179 @0x43
0x2136…217b at0044 = EOL // 0x217a @0x44
0x2136…217b }
0x217b…218c b77a 03290 ENDPROC SKRIV_KONTO
0x217b…218c LineComal80 {
0x217b…218c ptr = 0xb77a // 0x217b @0x0
0x217b…218c lno = 0x0cda // 0x217d @0x2
0x217b…218c at0004 = ╱9f╱ ENDPROC ╱ // 0x217f @0x4
0x217b…218c at0005 = ╱53╱S╱ // 0x2180 @0x5
0x217b…218c at0006 = ╱4b╱K╱ // 0x2181 @0x6
0x217b…218c at0007 = ╱52╱R╱ // 0x2182 @0x7
0x217b…218c at0008 = ╱49╱I╱ // 0x2183 @0x8
0x217b…218c at0009 = ╱56╱V╱ // 0x2184 @0x9
0x217b…218c at000a = ╱5f╱_╱ // 0x2185 @0xa
0x217b…218c at000b = ╱4b╱K╱ // 0x2186 @0xb
0x217b…218c at000c = ╱4f╱O╱ // 0x2187 @0xc
0x217b…218c at000d = ╱4e╱N╱ // 0x2188 @0xd
0x217b…218c at000e = ╱54╱T╱ // 0x2189 @0xe
0x217b…218c at000f = ╱4f╱O╱ // 0x218a @0xf
0x217b…218c at0010 = EOL // 0x218b @0x10
0x217b…218c }
0x218c…2191 b77f 03300
0x218c…2191 LineComal80 {
0x218c…2191 ptr = 0xb77f // 0x218c @0x0
0x218c…2191 lno = 0x0ce4 // 0x218e @0x2
0x218c…2191 at0004 = EOL // 0x2190 @0x4
0x218c…2191 }
0x2191…21cb b7b9 03310 PROC BOGF\R ( REF Q_KTO $ , REF Q_DAT $ , REF Q_TXT $ , REF Q_M , REF Q_KR , Q_DK , QN $ )
0x2191…21cb LineComal80 {
0x2191…21cb ptr = 0xb7b9 // 0x2191 @0x0
0x2191…21cb lno = 0x0cee // 0x2193 @0x2
0x2191…21cb at0004 = ╱9e00╱ PROC ╱ // 0x2195 @0x4
0x2191…21cb at0006 = ╱42╱B╱ // 0x2197 @0x6
0x2191…21cb at0007 = ╱4f╱O╱ // 0x2198 @0x7
0x2191…21cb at0008 = ╱47╱G╱ // 0x2199 @0x8
0x2191…21cb at0009 = ╱46╱F╱ // 0x219a @0x9
0x2191…21cb at000a = ╱5c╱\╱ // 0x219b @0xa
0x2191…21cb at000b = ╱52╱R╱ // 0x219c @0xb
0x2191…21cb at000c = ╱ed╱ ( ╱ // 0x219d @0xc
0x2191…21cb at000d = ╱b6╱ REF ╱ // 0x219e @0xd
0x2191…21cb at000e = ╱51╱Q╱ // 0x219f @0xe
0x2191…21cb at000f = ╱5f╱_╱ // 0x21a0 @0xf
0x2191…21cb at0010 = ╱4b╱K╱ // 0x21a1 @0x10
0x2191…21cb at0011 = ╱54╱T╱ // 0x21a2 @0x11
0x2191…21cb at0012 = ╱4f╱O╱ // 0x21a3 @0x12
0x2191…21cb at0013 = ╱ef╱ $ ╱ // 0x21a4 @0x13
0x2191…21cb at0014 = ╱ec╱ , ╱ // 0x21a5 @0x14
0x2191…21cb at0015 = ╱b6╱ REF ╱ // 0x21a6 @0x15
0x2191…21cb at0016 = ╱51╱Q╱ // 0x21a7 @0x16
0x2191…21cb at0017 = ╱5f╱_╱ // 0x21a8 @0x17
0x2191…21cb at0018 = ╱44╱D╱ // 0x21a9 @0x18
0x2191…21cb at0019 = ╱41╱A╱ // 0x21aa @0x19
0x2191…21cb at001a = ╱54╱T╱ // 0x21ab @0x1a
0x2191…21cb at001b = ╱ef╱ $ ╱ // 0x21ac @0x1b
0x2191…21cb at001c = ╱ec╱ , ╱ // 0x21ad @0x1c
0x2191…21cb at001d = ╱b6╱ REF ╱ // 0x21ae @0x1d
0x2191…21cb at001e = ╱51╱Q╱ // 0x21af @0x1e
0x2191…21cb at001f = ╱5f╱_╱ // 0x21b0 @0x1f
0x2191…21cb at0020 = ╱54╱T╱ // 0x21b1 @0x20
0x2191…21cb at0021 = ╱58╱X╱ // 0x21b2 @0x21
0x2191…21cb at0022 = ╱54╱T╱ // 0x21b3 @0x22
0x2191…21cb at0023 = ╱ef╱ $ ╱ // 0x21b4 @0x23
0x2191…21cb at0024 = ╱ec╱ , ╱ // 0x21b5 @0x24
0x2191…21cb at0025 = ╱b6╱ REF ╱ // 0x21b6 @0x25
0x2191…21cb at0026 = ╱51╱Q╱ // 0x21b7 @0x26
0x2191…21cb at0027 = ╱5f╱_╱ // 0x21b8 @0x27
0x2191…21cb at0028 = ╱4d╱M╱ // 0x21b9 @0x28
0x2191…21cb at0029 = ╱ec╱ , ╱ // 0x21ba @0x29
0x2191…21cb at002a = ╱b6╱ REF ╱ // 0x21bb @0x2a
0x2191…21cb at002b = ╱51╱Q╱ // 0x21bc @0x2b
0x2191…21cb at002c = ╱5f╱_╱ // 0x21bd @0x2c
0x2191…21cb at002d = ╱4b╱K╱ // 0x21be @0x2d
0x2191…21cb at002e = ╱52╱R╱ // 0x21bf @0x2e
0x2191…21cb at002f = ╱ec╱ , ╱ // 0x21c0 @0x2f
0x2191…21cb at0030 = ╱51╱Q╱ // 0x21c1 @0x30
0x2191…21cb at0031 = ╱5f╱_╱ // 0x21c2 @0x31
0x2191…21cb at0032 = ╱44╱D╱ // 0x21c3 @0x32
0x2191…21cb at0033 = ╱4b╱K╱ // 0x21c4 @0x33
0x2191…21cb at0034 = ╱ec╱ , ╱ // 0x21c5 @0x34
0x2191…21cb at0035 = ╱51╱Q╱ // 0x21c6 @0x35
0x2191…21cb at0036 = ╱4e╱N╱ // 0x21c7 @0x36
0x2191…21cb at0037 = ╱ef╱ $ ╱ // 0x21c8 @0x37
0x2191…21cb at0038 = ╱ee╱ ) ╱ // 0x21c9 @0x38
0x2191…21cb at0039 = EOL // 0x21ca @0x39
0x2191…21cb }
0x21cb…21e1 b7cf 03320 EXEC FIND_KTO ( Q_KTO $ )
0x21cb…21e1 LineComal80 {
0x21cb…21e1 ptr = 0xb7cf // 0x21cb @0x0
0x21cb…21e1 lno = 0x0cf8 // 0x21cd @0x2
0x21cb…21e1 at0004 = ╱9d╱ EXEC ╱ // 0x21cf @0x4
0x21cb…21e1 at0005 = ╱46╱F╱ // 0x21d0 @0x5
0x21cb…21e1 at0006 = ╱49╱I╱ // 0x21d1 @0x6
0x21cb…21e1 at0007 = ╱4e╱N╱ // 0x21d2 @0x7
0x21cb…21e1 at0008 = ╱44╱D╱ // 0x21d3 @0x8
0x21cb…21e1 at0009 = ╱5f╱_╱ // 0x21d4 @0x9
0x21cb…21e1 at000a = ╱4b╱K╱ // 0x21d5 @0xa
0x21cb…21e1 at000b = ╱54╱T╱ // 0x21d6 @0xb
0x21cb…21e1 at000c = ╱4f╱O╱ // 0x21d7 @0xc
0x21cb…21e1 at000d = ╱ed╱ ( ╱ // 0x21d8 @0xd
0x21cb…21e1 at000e = ╱51╱Q╱ // 0x21d9 @0xe
0x21cb…21e1 at000f = ╱5f╱_╱ // 0x21da @0xf
0x21cb…21e1 at0010 = ╱4b╱K╱ // 0x21db @0x10
0x21cb…21e1 at0011 = ╱54╱T╱ // 0x21dc @0x11
0x21cb…21e1 at0012 = ╱4f╱O╱ // 0x21dd @0x12
0x21cb…21e1 at0013 = ╱ef╱ $ ╱ // 0x21de @0x13
0x21cb…21e1 at0014 = ╱ee╱ ) ╱ // 0x21df @0x14
0x21cb…21e1 at0015 = EOL // 0x21e0 @0x15
0x21cb…21e1 }
0x21e1…21ec b7da 03330 IF OK THEN
0x21e1…21ec LineComal80 {
0x21e1…21ec ptr = 0xb7da // 0x21e1 @0x0
0x21e1…21ec lno = 0x0d02 // 0x21e3 @0x2
0x21e1…21ec at0004 = ╱9b00d7╱ IF ╱ // 0x21e5 @0x4
0x21e1…21ec at0007 = ╱4f╱O╱ // 0x21e8 @0x7
0x21e1…21ec at0008 = ╱4b╱K╱ // 0x21e9 @0x8
0x21e1…21ec at0009 = ╱b5╱ THEN ╱ // 0x21ea @0x9
0x21e1…21ec at000a = EOL // 0x21eb @0xa
0x21e1…21ec }
0x21ec…2211 b7ff 03340 EXEC FEJL ( "UKENDT…KONTONR:…" + Q_KTO $ )
0x21ec…2211 LineComal80 {
0x21ec…2211 ptr = 0xb7ff // 0x21ec @0x0
0x21ec…2211 lno = 0x0d0c // 0x21ee @0x2
0x21ec…2211 at0004 = ╱9d╱ EXEC ╱ // 0x21f0 @0x4
0x21ec…2211 at0005 = ╱46╱F╱ // 0x21f1 @0x5
0x21ec…2211 at0006 = ╱45╱E╱ // 0x21f2 @0x6
0x21ec…2211 at0007 = ╱4a╱J╱ // 0x21f3 @0x7
0x21ec…2211 at0008 = ╱4c╱L╱ // 0x21f4 @0x8
0x21ec…2211 at0009 = ╱ed╱ ( ╱ // 0x21f5 @0x9
0x21ec…2211 at000a = ╱22╱"╱ // 0x21f6 @0xa
0x21ec…2211 at000b = ╱55╱U╱ // 0x21f7 @0xb
0x21ec…2211 at000c = ╱4b╱K╱ // 0x21f8 @0xc
0x21ec…2211 at000d = ╱45╱E╱ // 0x21f9 @0xd
0x21ec…2211 at000e = ╱4e╱N╱ // 0x21fa @0xe
0x21ec…2211 at000f = ╱44╱D╱ // 0x21fb @0xf
0x21ec…2211 at0010 = ╱54╱T╱ // 0x21fc @0x10
0x21ec…2211 at0011 = ╱20╱…╱ // 0x21fd @0x11
0x21ec…2211 at0012 = ╱4b╱K╱ // 0x21fe @0x12
0x21ec…2211 at0013 = ╱4f╱O╱ // 0x21ff @0x13
0x21ec…2211 at0014 = ╱4e╱N╱ // 0x2200 @0x14
0x21ec…2211 at0015 = ╱54╱T╱ // 0x2201 @0x15
0x21ec…2211 at0016 = ╱4f╱O╱ // 0x2202 @0x16
0x21ec…2211 at0017 = ╱4e╱N╱ // 0x2203 @0x17
0x21ec…2211 at0018 = ╱52╱R╱ // 0x2204 @0x18
0x21ec…2211 at0019 = ╱3a╱:╱ // 0x2205 @0x19
0x21ec…2211 at001a = ╱20╱…╱ // 0x2206 @0x1a
0x21ec…2211 at001b = ╱22╱"╱ // 0x2207 @0x1b
0x21ec…2211 at001c = ╱eb╱ + ╱ // 0x2208 @0x1c
0x21ec…2211 at001d = ╱51╱Q╱ // 0x2209 @0x1d
0x21ec…2211 at001e = ╱5f╱_╱ // 0x220a @0x1e
0x21ec…2211 at001f = ╱4b╱K╱ // 0x220b @0x1f
0x21ec…2211 at0020 = ╱54╱T╱ // 0x220c @0x20
0x21ec…2211 at0021 = ╱4f╱O╱ // 0x220d @0x21
0x21ec…2211 at0022 = ╱ef╱ $ ╱ // 0x220e @0x22
0x21ec…2211 at0023 = ╱ee╱ ) ╱ // 0x220f @0x23
0x21ec…2211 at0024 = EOL // 0x2210 @0x24
0x21ec…2211 }
0x2211…2217 b805 03350 EXIT
0x2211…2217 LineComal80 {
0x2211…2217 ptr = 0xb805 // 0x2211 @0x0
0x2211…2217 lno = 0x0d16 // 0x2213 @0x2
0x2211…2217 at0004 = ╱99╱ EXIT ╱ // 0x2215 @0x4
0x2211…2217 at0005 = EOL // 0x2216 @0x5
0x2211…2217 }
0x2217…221e b80c 03360 ELSE
0x2217…221e LineComal80 {
0x2217…221e ptr = 0xb80c // 0x2217 @0x0
0x2217…221e lno = 0x0d20 // 0x2219 @0x2
0x2217…221e at0004 = ╱9a00╱ ELSE ╱ // 0x221b @0x4
0x2217…221e at0006 = EOL // 0x221d @0x6
0x2217…221e }
0x221e…2234 b822 03370 EXEC L[S_KONTO ( RECNR )
0x221e…2234 LineComal80 {
0x221e…2234 ptr = 0xb822 // 0x221e @0x0
0x221e…2234 lno = 0x0d2a // 0x2220 @0x2
0x221e…2234 at0004 = ╱9d╱ EXEC ╱ // 0x2222 @0x4
0x221e…2234 at0005 = ╱4c╱L╱ // 0x2223 @0x5
0x221e…2234 at0006 = ╱5b╱[╱ // 0x2224 @0x6
0x221e…2234 at0007 = ╱53╱S╱ // 0x2225 @0x7
0x221e…2234 at0008 = ╱5f╱_╱ // 0x2226 @0x8
0x221e…2234 at0009 = ╱4b╱K╱ // 0x2227 @0x9
0x221e…2234 at000a = ╱4f╱O╱ // 0x2228 @0xa
0x221e…2234 at000b = ╱4e╱N╱ // 0x2229 @0xb
0x221e…2234 at000c = ╱54╱T╱ // 0x222a @0xc
0x221e…2234 at000d = ╱4f╱O╱ // 0x222b @0xd
0x221e…2234 at000e = ╱ed╱ ( ╱ // 0x222c @0xe
0x221e…2234 at000f = ╱52╱R╱ // 0x222d @0xf
0x221e…2234 at0010 = ╱45╱E╱ // 0x222e @0x10
0x221e…2234 at0011 = ╱43╱C╱ // 0x222f @0x11
0x221e…2234 at0012 = ╱4e╱N╱ // 0x2230 @0x12
0x221e…2234 at0013 = ╱52╱R╱ // 0x2231 @0x13
0x221e…2234 at0014 = ╱ee╱ ) ╱ // 0x2232 @0x14
0x221e…2234 at0015 = EOL // 0x2233 @0x15
0x221e…2234 }
0x2234…2249 b837 03380 IF TO_TYPE $ >< "A" THEN
0x2234…2249 LineComal80 {
0x2234…2249 ptr = 0xb837 // 0x2234 @0x0
0x2234…2249 lno = 0x0d34 // 0x2236 @0x2
0x2234…2249 at0004 = ╱9b004b╱ IF ╱ // 0x2238 @0x4
0x2234…2249 at0007 = ╱54╱T╱ // 0x223b @0x7
0x2234…2249 at0008 = ╱4f╱O╱ // 0x223c @0x8
0x2234…2249 at0009 = ╱5f╱_╱ // 0x223d @0x9
0x2234…2249 at000a = ╱54╱T╱ // 0x223e @0xa
0x2234…2249 at000b = ╱59╱Y╱ // 0x223f @0xb
0x2234…2249 at000c = ╱50╱P╱ // 0x2240 @0xc
0x2234…2249 at000d = ╱45╱E╱ // 0x2241 @0xd
0x2234…2249 at000e = ╱ef╱ $ ╱ // 0x2242 @0xe
0x2234…2249 at000f = ╱e4╱ >< ╱ // 0x2243 @0xf
0x2234…2249 at0010 = ╱22╱"╱ // 0x2244 @0x10
0x2234…2249 at0011 = ╱41╱A╱ // 0x2245 @0x11
0x2234…2249 at0012 = ╱22╱"╱ // 0x2246 @0x12
0x2234…2249 at0013 = ╱b5╱ THEN ╱ // 0x2247 @0x13
0x2234…2249 at0014 = EOL // 0x2248 @0x14
0x2234…2249 }
0x2249…226f b85d 03390 EXEC FEJL ( "ULOVLIG…KONTONR:…" + Q_KTO $ )
0x2249…226f LineComal80 {
0x2249…226f ptr = 0xb85d // 0x2249 @0x0
0x2249…226f lno = 0x0d3e // 0x224b @0x2
0x2249…226f at0004 = ╱9d╱ EXEC ╱ // 0x224d @0x4
0x2249…226f at0005 = ╱46╱F╱ // 0x224e @0x5
0x2249…226f at0006 = ╱45╱E╱ // 0x224f @0x6
0x2249…226f at0007 = ╱4a╱J╱ // 0x2250 @0x7
0x2249…226f at0008 = ╱4c╱L╱ // 0x2251 @0x8
0x2249…226f at0009 = ╱ed╱ ( ╱ // 0x2252 @0x9
0x2249…226f at000a = ╱22╱"╱ // 0x2253 @0xa
0x2249…226f at000b = ╱55╱U╱ // 0x2254 @0xb
0x2249…226f at000c = ╱4c╱L╱ // 0x2255 @0xc
0x2249…226f at000d = ╱4f╱O╱ // 0x2256 @0xd
0x2249…226f at000e = ╱56╱V╱ // 0x2257 @0xe
0x2249…226f at000f = ╱4c╱L╱ // 0x2258 @0xf
0x2249…226f at0010 = ╱49╱I╱ // 0x2259 @0x10
0x2249…226f at0011 = ╱47╱G╱ // 0x225a @0x11
0x2249…226f at0012 = ╱20╱…╱ // 0x225b @0x12
0x2249…226f at0013 = ╱4b╱K╱ // 0x225c @0x13
0x2249…226f at0014 = ╱4f╱O╱ // 0x225d @0x14
0x2249…226f at0015 = ╱4e╱N╱ // 0x225e @0x15
0x2249…226f at0016 = ╱54╱T╱ // 0x225f @0x16
0x2249…226f at0017 = ╱4f╱O╱ // 0x2260 @0x17
0x2249…226f at0018 = ╱4e╱N╱ // 0x2261 @0x18
0x2249…226f at0019 = ╱52╱R╱ // 0x2262 @0x19
0x2249…226f at001a = ╱3a╱:╱ // 0x2263 @0x1a
0x2249…226f at001b = ╱20╱…╱ // 0x2264 @0x1b
0x2249…226f at001c = ╱22╱"╱ // 0x2265 @0x1c
0x2249…226f at001d = ╱eb╱ + ╱ // 0x2266 @0x1d
0x2249…226f at001e = ╱51╱Q╱ // 0x2267 @0x1e
0x2249…226f at001f = ╱5f╱_╱ // 0x2268 @0x1f
0x2249…226f at0020 = ╱4b╱K╱ // 0x2269 @0x20
0x2249…226f at0021 = ╱54╱T╱ // 0x226a @0x21
0x2249…226f at0022 = ╱4f╱O╱ // 0x226b @0x22
0x2249…226f at0023 = ╱ef╱ $ ╱ // 0x226c @0x23
0x2249…226f at0024 = ╱ee╱ ) ╱ // 0x226d @0x24
0x2249…226f at0025 = EOL // 0x226e @0x25
0x2249…226f }
0x226f…2275 b863 03400 EXIT
0x226f…2275 LineComal80 {
0x226f…2275 ptr = 0xb863 // 0x226f @0x0
0x226f…2275 lno = 0x0d48 // 0x2271 @0x2
0x226f…2275 at0004 = ╱99╱ EXIT ╱ // 0x2273 @0x4
0x226f…2275 at0005 = EOL // 0x2274 @0x5
0x226f…2275 }
0x2275…227b b869 03410 ENDIF
0x2275…227b LineComal80 {
0x2275…227b ptr = 0xb869 // 0x2275 @0x0
0x2275…227b lno = 0x0d52 // 0x2277 @0x2
0x2275…227b at0004 = ╱9c╱ ENDIF ╱ // 0x2279 @0x4
0x2275…227b at0005 = EOL // 0x227a @0x5
0x2275…227b }
0x227b…2281 b86f 03420 ENDIF
0x227b…2281 LineComal80 {
0x227b…2281 ptr = 0xb86f // 0x227b @0x0
0x227b…2281 lno = 0x0d5c // 0x227d @0x2
0x227b…2281 at0004 = ╱9c╱ ENDIF ╱ // 0x227f @0x4
0x227b…2281 at0005 = EOL // 0x2280 @0x5
0x227b…2281 }
0x2281…22a4 b892 03430 GET TRANS $ , 1 : T_H\JREC , T_MAXREC
0x2281…22a4 LineComal80 {
0x2281…22a4 ptr = 0xb892 // 0x2281 @0x0
0x2281…22a4 lno = 0x0d66 // 0x2283 @0x2
0x2281…22a4 at0004 = ╱a9╱ GET ╱ // 0x2285 @0x4
0x2281…22a4 at0005 = ╱54╱T╱ // 0x2286 @0x5
0x2281…22a4 at0006 = ╱52╱R╱ // 0x2287 @0x6
0x2281…22a4 at0007 = ╱41╱A╱ // 0x2288 @0x7
0x2281…22a4 at0008 = ╱4e╱N╱ // 0x2289 @0x8
0x2281…22a4 at0009 = ╱53╱S╱ // 0x228a @0x9
0x2281…22a4 at000a = ╱ef╱ $ ╱ // 0x228b @0xa
0x2281…22a4 at000b = ╱ec╱ , ╱ // 0x228c @0xb
0x2281…22a4 at000c = ╱31╱1╱ // 0x228d @0xc
0x2281…22a4 at000d = ╱f20100╱ // 0x228e @0xd
0x2281…22a4 at0010 = ╱f1╱ : ╱ // 0x2291 @0x10
0x2281…22a4 at0011 = ╱54╱T╱ // 0x2292 @0x11
0x2281…22a4 at0012 = ╱5f╱_╱ // 0x2293 @0x12
0x2281…22a4 at0013 = ╱48╱H╱ // 0x2294 @0x13
0x2281…22a4 at0014 = ╱5c╱\╱ // 0x2295 @0x14
0x2281…22a4 at0015 = ╱4a╱J╱ // 0x2296 @0x15
0x2281…22a4 at0016 = ╱52╱R╱ // 0x2297 @0x16
0x2281…22a4 at0017 = ╱45╱E╱ // 0x2298 @0x17
0x2281…22a4 at0018 = ╱43╱C╱ // 0x2299 @0x18
0x2281…22a4 at0019 = ╱ec╱ , ╱ // 0x229a @0x19
0x2281…22a4 at001a = ╱54╱T╱ // 0x229b @0x1a
0x2281…22a4 at001b = ╱5f╱_╱ // 0x229c @0x1b
0x2281…22a4 at001c = ╱4d╱M╱ // 0x229d @0x1c
0x2281…22a4 at001d = ╱41╱A╱ // 0x229e @0x1d
0x2281…22a4 at001e = ╱58╱X╱ // 0x229f @0x1e
0x2281…22a4 at001f = ╱52╱R╱ // 0x22a0 @0x1f
0x2281…22a4 at0020 = ╱45╱E╱ // 0x22a1 @0x20
0x2281…22a4 at0021 = ╱43╱C╱ // 0x22a2 @0x21
0x2281…22a4 at0022 = EOL // 0x22a3 @0x22
0x2281…22a4 }
0x22a4…22bd b8ab 03440 IF _H\JREC = T_MAXREC THEN
0x22a4…22bd LineComal80 {
0x22a4…22bd ptr = 0xb8ab // 0x22a4 @0x0
0x22a4…22bd lno = 0x0d70 // 0x22a6 @0x2
0x22a4…22bd at0004 = ╱9b0054╱ IF ╱ // 0x22a8 @0x4
0x22a4…22bd at0007 = ╱5f╱_╱ // 0x22ab @0x7
0x22a4…22bd at0008 = ╱48╱H╱ // 0x22ac @0x8
0x22a4…22bd at0009 = ╱5c╱\╱ // 0x22ad @0x9
0x22a4…22bd at000a = ╱4a╱J╱ // 0x22ae @0xa
0x22a4…22bd at000b = ╱52╱R╱ // 0x22af @0xb
0x22a4…22bd at000c = ╱45╱E╱ // 0x22b0 @0xc
0x22a4…22bd at000d = ╱43╱C╱ // 0x22b1 @0xd
0x22a4…22bd at000e = ╱df╱ = ╱ // 0x22b2 @0xe
0x22a4…22bd at000f = ╱54╱T╱ // 0x22b3 @0xf
0x22a4…22bd at0010 = ╱5f╱_╱ // 0x22b4 @0x10
0x22a4…22bd at0011 = ╱4d╱M╱ // 0x22b5 @0x11
0x22a4…22bd at0012 = ╱41╱A╱ // 0x22b6 @0x12
0x22a4…22bd at0013 = ╱58╱X╱ // 0x22b7 @0x13
0x22a4…22bd at0014 = ╱52╱R╱ // 0x22b8 @0x14
0x22a4…22bd at0015 = ╱45╱E╱ // 0x22b9 @0x15
0x22a4…22bd at0016 = ╱43╱C╱ // 0x22ba @0x16
0x22a4…22bd at0017 = ╱b5╱ THEN ╱ // 0x22bb @0x17
0x22a4…22bd at0018 = EOL // 0x22bc @0x18
0x22a4…22bd }
0x22bd…22e4 b8d2 03450 EXEC FEJL ( "TRANSAKTIONSFILEN…ER…FULD" )
0x22bd…22e4 LineComal80 {
0x22bd…22e4 ptr = 0xb8d2 // 0x22bd @0x0
0x22bd…22e4 lno = 0x0d7a // 0x22bf @0x2
0x22bd…22e4 at0004 = ╱9d╱ EXEC ╱ // 0x22c1 @0x4
0x22bd…22e4 at0005 = ╱46╱F╱ // 0x22c2 @0x5
0x22bd…22e4 at0006 = ╱45╱E╱ // 0x22c3 @0x6
0x22bd…22e4 at0007 = ╱4a╱J╱ // 0x22c4 @0x7
0x22bd…22e4 at0008 = ╱4c╱L╱ // 0x22c5 @0x8
0x22bd…22e4 at0009 = ╱ed╱ ( ╱ // 0x22c6 @0x9
0x22bd…22e4 at000a = ╱22╱"╱ // 0x22c7 @0xa
0x22bd…22e4 at000b = ╱54╱T╱ // 0x22c8 @0xb
0x22bd…22e4 at000c = ╱52╱R╱ // 0x22c9 @0xc
0x22bd…22e4 at000d = ╱41╱A╱ // 0x22ca @0xd
0x22bd…22e4 at000e = ╱4e╱N╱ // 0x22cb @0xe
0x22bd…22e4 at000f = ╱53╱S╱ // 0x22cc @0xf
0x22bd…22e4 at0010 = ╱41╱A╱ // 0x22cd @0x10
0x22bd…22e4 at0011 = ╱4b╱K╱ // 0x22ce @0x11
0x22bd…22e4 at0012 = ╱54╱T╱ // 0x22cf @0x12
0x22bd…22e4 at0013 = ╱49╱I╱ // 0x22d0 @0x13
0x22bd…22e4 at0014 = ╱4f╱O╱ // 0x22d1 @0x14
0x22bd…22e4 at0015 = ╱4e╱N╱ // 0x22d2 @0x15
0x22bd…22e4 at0016 = ╱53╱S╱ // 0x22d3 @0x16
0x22bd…22e4 at0017 = ╱46╱F╱ // 0x22d4 @0x17
0x22bd…22e4 at0018 = ╱49╱I╱ // 0x22d5 @0x18
0x22bd…22e4 at0019 = ╱4c╱L╱ // 0x22d6 @0x19
0x22bd…22e4 at001a = ╱45╱E╱ // 0x22d7 @0x1a
0x22bd…22e4 at001b = ╱4e╱N╱ // 0x22d8 @0x1b
0x22bd…22e4 at001c = ╱20╱…╱ // 0x22d9 @0x1c
0x22bd…22e4 at001d = ╱45╱E╱ // 0x22da @0x1d
0x22bd…22e4 at001e = ╱52╱R╱ // 0x22db @0x1e
0x22bd…22e4 at001f = ╱20╱…╱ // 0x22dc @0x1f
0x22bd…22e4 at0020 = ╱46╱F╱ // 0x22dd @0x20
0x22bd…22e4 at0021 = ╱55╱U╱ // 0x22de @0x21
0x22bd…22e4 at0022 = ╱4c╱L╱ // 0x22df @0x22
0x22bd…22e4 at0023 = ╱44╱D╱ // 0x22e0 @0x23
0x22bd…22e4 at0024 = ╱22╱"╱ // 0x22e1 @0x24
0x22bd…22e4 at0025 = ╱ee╱ ) ╱ // 0x22e2 @0x25
0x22bd…22e4 at0026 = EOL // 0x22e3 @0x26
0x22bd…22e4 }
0x22e4…22ea (116,) b8d8 03460 EXIT
0x22e4…22ea LineComal80 {
0x22e4…22ea ptr = 0xb8d8 // 0x22e4 @0x0
0x22e4…22ea lno = 0x0d84 // 0x22e6 @0x2
0x22e4…22ea at0004 = ╱99╱ EXIT ╱ // 0x22e8 @0x4
0x22e4…22ea at0005 = EOL // 0x22e9 @0x5
0x22e4…22ea }
0x22ea…22f0 b8de 03470 ENDIF
0x22ea…22f0 LineComal80 {
0x22ea…22f0 ptr = 0xb8de // 0x22ea @0x0
0x22ea…22f0 lno = 0x0d8e // 0x22ec @0x2
0x22ea…22f0 at0004 = ╱9c╱ ENDIF ╱ // 0x22ee @0x4
0x22ea…22f0 at0005 = EOL // 0x22ef @0x5
0x22ea…22f0 }
0x22f0…230c b8fa 03480 LET T_H\JREC := T_H\JREC + 1
0x22f0…230c LineComal80 {
0x22f0…230c ptr = 0xb8fa // 0x22f0 @0x0
0x22f0…230c lno = 0x0d98 // 0x22f2 @0x2
0x22f0…230c at0004 = ╱86╱ LET ╱ // 0x22f4 @0x4
0x22f0…230c at0005 = ╱54╱T╱ // 0x22f5 @0x5
0x22f0…230c at0006 = ╱5f╱_╱ // 0x22f6 @0x6
0x22f0…230c at0007 = ╱48╱H╱ // 0x22f7 @0x7
0x22f0…230c at0008 = ╱5c╱\╱ // 0x22f8 @0x8
0x22f0…230c at0009 = ╱4a╱J╱ // 0x22f9 @0x9
0x22f0…230c at000a = ╱52╱R╱ // 0x22fa @0xa
0x22f0…230c at000b = ╱45╱E╱ // 0x22fb @0xb
0x22f0…230c at000c = ╱43╱C╱ // 0x22fc @0xc
0x22f0…230c at000d = ╱f0╱ := ╱ // 0x22fd @0xd
0x22f0…230c at000e = ╱54╱T╱ // 0x22fe @0xe
0x22f0…230c at000f = ╱5f╱_╱ // 0x22ff @0xf
0x22f0…230c at0010 = ╱48╱H╱ // 0x2300 @0x10
0x22f0…230c at0011 = ╱5c╱\╱ // 0x2301 @0x11
0x22f0…230c at0012 = ╱4a╱J╱ // 0x2302 @0x12
0x22f0…230c at0013 = ╱52╱R╱ // 0x2303 @0x13
0x22f0…230c at0014 = ╱45╱E╱ // 0x2304 @0x14
0x22f0…230c at0015 = ╱43╱C╱ // 0x2305 @0x15
0x22f0…230c at0016 = ╱e5╱ + ╱ // 0x2306 @0x16
0x22f0…230c at0017 = ╱31╱1╱ // 0x2307 @0x17
0x22f0…230c at0018 = ╱f20100╱ // 0x2308 @0x18
0x22f0…230c at001b = EOL // 0x230b @0x1b
0x22f0…230c }
0x230c…231f b90d 03490 IF TO_FP > 0 THEN
0x230c…231f LineComal80 {
0x230c…231f ptr = 0xb90d // 0x230c @0x0
0x230c…231f lno = 0x0da2 // 0x230e @0x2
0x230c…231f at0004 = ╱9b004b╱ IF ╱ // 0x2310 @0x4
0x230c…231f at0007 = ╱54╱T╱ // 0x2313 @0x7
0x230c…231f at0008 = ╱4f╱O╱ // 0x2314 @0x8
0x230c…231f at0009 = ╱5f╱_╱ // 0x2315 @0x9
0x230c…231f at000a = ╱46╱F╱ // 0x2316 @0xa
0x230c…231f at000b = ╱50╱P╱ // 0x2317 @0xb
0x230c…231f at000c = ╱e1╱ > ╱ // 0x2318 @0xc
0x230c…231f at000d = ╱30╱0╱ // 0x2319 @0xd
0x230c…231f at000e = ╱f20000╱ // 0x231a @0xe
0x230c…231f at0011 = ╱b5╱ THEN ╱ // 0x231d @0x11
0x230c…231f at0012 = EOL // 0x231e @0x12
0x230c…231f }
0x231f…2336 b924 03500 EXEC L[S_TRANS ( KTO_SP )
0x231f…2336 LineComal80 {
0x231f…2336 ptr = 0xb924 // 0x231f @0x0
0x231f…2336 lno = 0x0dac // 0x2321 @0x2
0x231f…2336 at0004 = ╱9d╱ EXEC ╱ // 0x2323 @0x4
0x231f…2336 at0005 = ╱4c╱L╱ // 0x2324 @0x5
0x231f…2336 at0006 = ╱5b╱[╱ // 0x2325 @0x6
0x231f…2336 at0007 = ╱53╱S╱ // 0x2326 @0x7
0x231f…2336 at0008 = ╱5f╱_╱ // 0x2327 @0x8
0x231f…2336 at0009 = ╱54╱T╱ // 0x2328 @0x9
0x231f…2336 at000a = ╱52╱R╱ // 0x2329 @0xa
0x231f…2336 at000b = ╱41╱A╱ // 0x232a @0xb
0x231f…2336 at000c = ╱4e╱N╱ // 0x232b @0xc
0x231f…2336 at000d = ╱53╱S╱ // 0x232c @0xd
0x231f…2336 at000e = ╱ed╱ ( ╱ // 0x232d @0xe
0x231f…2336 at000f = ╱4b╱K╱ // 0x232e @0xf
0x231f…2336 at0010 = ╱54╱T╱ // 0x232f @0x10
0x231f…2336 at0011 = ╱4f╱O╱ // 0x2330 @0x11
0x231f…2336 at0012 = ╱5f╱_╱ // 0x2331 @0x12
0x231f…2336 at0013 = ╱53╱S╱ // 0x2332 @0x13
0x231f…2336 at0014 = ╱50╱P╱ // 0x2333 @0x14
0x231f…2336 at0015 = ╱ee╱ ) ╱ // 0x2334 @0x15
0x231f…2336 at0016 = EOL // 0x2335 @0x16
0x231f…2336 }
0x2336…234b b939 03510 LET NTRANS := T_H\JREC
0x2336…234b LineComal80 {
0x2336…234b ptr = 0xb939 // 0x2336 @0x0
0x2336…234b lno = 0x0db6 // 0x2338 @0x2
0x2336…234b at0004 = ╱86╱ LET ╱ // 0x233a @0x4
0x2336…234b at0005 = ╱4e╱N╱ // 0x233b @0x5
0x2336…234b at0006 = ╱54╱T╱ // 0x233c @0x6
0x2336…234b at0007 = ╱52╱R╱ // 0x233d @0x7
0x2336…234b at0008 = ╱41╱A╱ // 0x233e @0x8
0x2336…234b at0009 = ╱4e╱N╱ // 0x233f @0x9
0x2336…234b at000a = ╱53╱S╱ // 0x2340 @0xa
0x2336…234b at000b = ╱f0╱ := ╱ // 0x2341 @0xb
0x2336…234b at000c = ╱54╱T╱ // 0x2342 @0xc
0x2336…234b at000d = ╱5f╱_╱ // 0x2343 @0xd
0x2336…234b at000e = ╱48╱H╱ // 0x2344 @0xe
0x2336…234b at000f = ╱5c╱\╱ // 0x2345 @0xf
0x2336…234b at0010 = ╱4a╱J╱ // 0x2346 @0x10
0x2336…234b at0011 = ╱52╱R╱ // 0x2347 @0x11
0x2336…234b at0012 = ╱45╱E╱ // 0x2348 @0x12
0x2336…234b at0013 = ╱43╱C╱ // 0x2349 @0x13
0x2336…234b at0014 = EOL // 0x234a @0x14
0x2336…234b }
0x234b…2364 b952 03520 EXEC SKRIV_TRANS ( KTO_SP )
0x234b…2364 LineComal80 {
0x234b…2364 ptr = 0xb952 // 0x234b @0x0
0x234b…2364 lno = 0x0dc0 // 0x234d @0x2
0x234b…2364 at0004 = ╱9d╱ EXEC ╱ // 0x234f @0x4
0x234b…2364 at0005 = ╱53╱S╱ // 0x2350 @0x5
0x234b…2364 at0006 = ╱4b╱K╱ // 0x2351 @0x6
0x234b…2364 at0007 = ╱52╱R╱ // 0x2352 @0x7
0x234b…2364 at0008 = ╱49╱I╱ // 0x2353 @0x8
0x234b…2364 at0009 = ╱56╱V╱ // 0x2354 @0x9
0x234b…2364 at000a = ╱5f╱_╱ // 0x2355 @0xa
0x234b…2364 at000b = ╱54╱T╱ // 0x2356 @0xb
0x234b…2364 at000c = ╱52╱R╱ // 0x2357 @0xc
0x234b…2364 at000d = ╱41╱A╱ // 0x2358 @0xd
0x234b…2364 at000e = ╱4e╱N╱ // 0x2359 @0xe
0x234b…2364 at000f = ╱53╱S╱ // 0x235a @0xf
0x234b…2364 at0010 = ╱ed╱ ( ╱ // 0x235b @0x10
0x234b…2364 at0011 = ╱4b╱K╱ // 0x235c @0x11
0x234b…2364 at0012 = ╱54╱T╱ // 0x235d @0x12
0x234b…2364 at0013 = ╱4f╱O╱ // 0x235e @0x13
0x234b…2364 at0014 = ╱5f╱_╱ // 0x235f @0x14
0x234b…2364 at0015 = ╱53╱S╱ // 0x2360 @0x15
0x234b…2364 at0016 = ╱50╱P╱ // 0x2361 @0x16
0x234b…2364 at0017 = ╱ee╱ ) ╱ // 0x2362 @0x17
0x234b…2364 at0018 = EOL // 0x2363 @0x18
0x234b…2364 }
0x2364…236b b959 03530 ELSE
0x2364…236b LineComal80 {
0x2364…236b ptr = 0xb959 // 0x2364 @0x0
0x2364…236b lno = 0x0dca // 0x2366 @0x2
0x2364…236b at0004 = ╱9a00╱ ELSE ╱ // 0x2368 @0x4
0x2364…236b at0006 = EOL // 0x236a @0x6
0x2364…236b }
0x236b…2380 b96e 03540 LET KTO_FP := T_H\JREC
0x236b…2380 LineComal80 {
0x236b…2380 ptr = 0xb96e // 0x236b @0x0
0x236b…2380 lno = 0x0dd4 // 0x236d @0x2
0x236b…2380 at0004 = ╱86╱ LET ╱ // 0x236f @0x4
0x236b…2380 at0005 = ╱4b╱K╱ // 0x2370 @0x5
0x236b…2380 at0006 = ╱54╱T╱ // 0x2371 @0x6
0x236b…2380 at0007 = ╱4f╱O╱ // 0x2372 @0x7
0x236b…2380 at0008 = ╱5f╱_╱ // 0x2373 @0x8
0x236b…2380 at0009 = ╱46╱F╱ // 0x2374 @0x9
0x236b…2380 at000a = ╱50╱P╱ // 0x2375 @0xa
0x236b…2380 at000b = ╱f0╱ := ╱ // 0x2376 @0xb
0x236b…2380 at000c = ╱54╱T╱ // 0x2377 @0xc
0x236b…2380 at000d = ╱5f╱_╱ // 0x2378 @0xd
0x236b…2380 at000e = ╱48╱H╱ // 0x2379 @0xe
0x236b…2380 at000f = ╱5c╱\╱ // 0x237a @0xf
0x236b…2380 at0010 = ╱4a╱J╱ // 0x237b @0x10
0x236b…2380 at0011 = ╱52╱R╱ // 0x237c @0x11
0x236b…2380 at0012 = ╱45╱E╱ // 0x237d @0x12
0x236b…2380 at0013 = ╱43╱C╱ // 0x237e @0x13
0x236b…2380 at0014 = EOL // 0x237f @0x14
0x236b…2380 }
0x2380…2386 b974 03550 ENDIF
0x2380…2386 LineComal80 {
0x2380…2386 ptr = 0xb974 // 0x2380 @0x0
0x2380…2386 lno = 0x0dde // 0x2382 @0x2
0x2380…2386 at0004 = ╱9c╱ ENDIF ╱ // 0x2384 @0x4
0x2380…2386 at0005 = EOL // 0x2385 @0x5
0x2380…2386 }
0x2386…23cb b9b9 03560 LET BKTONR $ := Q_KTO $ ; BDATO $ := Q_DAT $ ; BTXT $ := Q_TXT $ ; BMOMS := Q_M ; BBEL\B := Q_KR
0x2386…23cb LineComal80 {
0x2386…23cb ptr = 0xb9b9 // 0x2386 @0x0
0x2386…23cb lno = 0x0de8 // 0x2388 @0x2
0x2386…23cb at0004 = ╱86╱ LET ╱ // 0x238a @0x4
0x2386…23cb at0005 = ╱42╱B╱ // 0x238b @0x5
0x2386…23cb at0006 = ╱4b╱K╱ // 0x238c @0x6
0x2386…23cb at0007 = ╱54╱T╱ // 0x238d @0x7
0x2386…23cb at0008 = ╱4f╱O╱ // 0x238e @0x8
0x2386…23cb at0009 = ╱4e╱N╱ // 0x238f @0x9
0x2386…23cb at000a = ╱52╱R╱ // 0x2390 @0xa
0x2386…23cb at000b = ╱ef╱ $ ╱ // 0x2391 @0xb
0x2386…23cb at000c = ╱f0╱ := ╱ // 0x2392 @0xc
0x2386…23cb at000d = ╱51╱Q╱ // 0x2393 @0xd
0x2386…23cb at000e = ╱5f╱_╱ // 0x2394 @0xe
0x2386…23cb at000f = ╱4b╱K╱ // 0x2395 @0xf
0x2386…23cb at0010 = ╱54╱T╱ // 0x2396 @0x10
0x2386…23cb at0011 = ╱4f╱O╱ // 0x2397 @0x11
0x2386…23cb at0012 = ╱ef╱ $ ╱ // 0x2398 @0x12
0x2386…23cb at0013 = ╱ea╱ ; ╱ // 0x2399 @0x13
0x2386…23cb at0014 = ╱42╱B╱ // 0x239a @0x14
0x2386…23cb at0015 = ╱44╱D╱ // 0x239b @0x15
0x2386…23cb at0016 = ╱41╱A╱ // 0x239c @0x16
0x2386…23cb at0017 = ╱54╱T╱ // 0x239d @0x17
0x2386…23cb at0018 = ╱4f╱O╱ // 0x239e @0x18
0x2386…23cb at0019 = ╱ef╱ $ ╱ // 0x239f @0x19
0x2386…23cb at001a = ╱f0╱ := ╱ // 0x23a0 @0x1a
0x2386…23cb at001b = ╱51╱Q╱ // 0x23a1 @0x1b
0x2386…23cb at001c = ╱5f╱_╱ // 0x23a2 @0x1c
0x2386…23cb at001d = ╱44╱D╱ // 0x23a3 @0x1d
0x2386…23cb at001e = ╱41╱A╱ // 0x23a4 @0x1e
0x2386…23cb at001f = ╱54╱T╱ // 0x23a5 @0x1f
0x2386…23cb at0020 = ╱ef╱ $ ╱ // 0x23a6 @0x20
0x2386…23cb at0021 = ╱ea╱ ; ╱ // 0x23a7 @0x21
0x2386…23cb at0022 = ╱42╱B╱ // 0x23a8 @0x22
0x2386…23cb at0023 = ╱54╱T╱ // 0x23a9 @0x23
0x2386…23cb at0024 = ╱58╱X╱ // 0x23aa @0x24
0x2386…23cb at0025 = ╱54╱T╱ // 0x23ab @0x25
0x2386…23cb at0026 = ╱ef╱ $ ╱ // 0x23ac @0x26
0x2386…23cb at0027 = ╱f0╱ := ╱ // 0x23ad @0x27
0x2386…23cb at0028 = ╱51╱Q╱ // 0x23ae @0x28
0x2386…23cb at0029 = ╱5f╱_╱ // 0x23af @0x29
0x2386…23cb at002a = ╱54╱T╱ // 0x23b0 @0x2a
0x2386…23cb at002b = ╱58╱X╱ // 0x23b1 @0x2b
0x2386…23cb at002c = ╱54╱T╱ // 0x23b2 @0x2c
0x2386…23cb at002d = ╱ef╱ $ ╱ // 0x23b3 @0x2d
0x2386…23cb at002e = ╱ea╱ ; ╱ // 0x23b4 @0x2e
0x2386…23cb at002f = ╱42╱B╱ // 0x23b5 @0x2f
0x2386…23cb at0030 = ╱4d╱M╱ // 0x23b6 @0x30
0x2386…23cb at0031 = ╱4f╱O╱ // 0x23b7 @0x31
0x2386…23cb at0032 = ╱4d╱M╱ // 0x23b8 @0x32
0x2386…23cb at0033 = ╱53╱S╱ // 0x23b9 @0x33
0x2386…23cb at0034 = ╱f0╱ := ╱ // 0x23ba @0x34
0x2386…23cb at0035 = ╱51╱Q╱ // 0x23bb @0x35
0x2386…23cb at0036 = ╱5f╱_╱ // 0x23bc @0x36
0x2386…23cb at0037 = ╱4d╱M╱ // 0x23bd @0x37
0x2386…23cb at0038 = ╱ea╱ ; ╱ // 0x23be @0x38
0x2386…23cb at0039 = ╱42╱B╱ // 0x23bf @0x39
0x2386…23cb at003a = ╱42╱B╱ // 0x23c0 @0x3a
0x2386…23cb at003b = ╱45╱E╱ // 0x23c1 @0x3b
0x2386…23cb at003c = ╱4c╱L╱ // 0x23c2 @0x3c
0x2386…23cb at003d = ╱5c╱\╱ // 0x23c3 @0x3d
0x2386…23cb at003e = ╱42╱B╱ // 0x23c4 @0x3e
0x2386…23cb at003f = ╱f0╱ := ╱ // 0x23c5 @0x3f
0x2386…23cb at0040 = ╱51╱Q╱ // 0x23c6 @0x40
0x2386…23cb at0041 = ╱5f╱_╱ // 0x23c7 @0x41
0x2386…23cb at0042 = ╱4b╱K╱ // 0x23c8 @0x42
0x2386…23cb at0043 = ╱52╱R╱ // 0x23c9 @0x43
0x2386…23cb at0044 = EOL // 0x23ca @0x44
0x2386…23cb }
0x23cb…23ee (119,) b9dc 03570 LET DK := Q_DK ; NTRANS := NUL ; BLGNR $ := QN $
0x23cb…23ee LineComal80 {
0x23cb…23ee ptr = 0xb9dc // 0x23cb @0x0
0x23cb…23ee lno = 0x0df2 // 0x23cd @0x2
0x23cb…23ee at0004 = ╱86╱ LET ╱ // 0x23cf @0x4
0x23cb…23ee at0005 = ╱44╱D╱ // 0x23d0 @0x5
0x23cb…23ee at0006 = ╱4b╱K╱ // 0x23d1 @0x6
0x23cb…23ee at0007 = ╱f0╱ := ╱ // 0x23d2 @0x7
0x23cb…23ee at0008 = ╱51╱Q╱ // 0x23d3 @0x8
0x23cb…23ee at0009 = ╱5f╱_╱ // 0x23d4 @0x9
0x23cb…23ee at000a = ╱44╱D╱ // 0x23d5 @0xa
0x23cb…23ee at000b = ╱4b╱K╱ // 0x23d6 @0xb
0x23cb…23ee at000c = ╱ea╱ ; ╱ // 0x23d7 @0xc
0x23cb…23ee at000d = ╱4e╱N╱ // 0x23d8 @0xd
0x23cb…23ee at000e = ╱54╱T╱ // 0x23d9 @0xe
0x23cb…23ee at000f = ╱52╱R╱ // 0x23da @0xf
0x23cb…23ee at0010 = ╱41╱A╱ // 0x23db @0x10
0x23cb…23ee at0011 = ╱4e╱N╱ // 0x23dc @0x11
0x23cb…23ee at0012 = ╱53╱S╱ // 0x23dd @0x12
0x23cb…23ee at0013 = ╱f0╱ := ╱ // 0x23de @0x13
0x23cb…23ee at0014 = ╱4e╱N╱ // 0x23df @0x14
0x23cb…23ee at0015 = ╱55╱U╱ // 0x23e0 @0x15
0x23cb…23ee at0016 = ╱4c╱L╱ // 0x23e1 @0x16
0x23cb…23ee at0017 = ╱ea╱ ; ╱ // 0x23e2 @0x17
0x23cb…23ee at0018 = ╱42╱B╱ // 0x23e3 @0x18
0x23cb…23ee at0019 = ╱4c╱L╱ // 0x23e4 @0x19
0x23cb…23ee at001a = ╱47╱G╱ // 0x23e5 @0x1a
0x23cb…23ee at001b = ╱4e╱N╱ // 0x23e6 @0x1b
0x23cb…23ee at001c = ╱52╱R╱ // 0x23e7 @0x1c
0x23cb…23ee at001d = ╱ef╱ $ ╱ // 0x23e8 @0x1d
0x23cb…23ee at001e = ╱f0╱ := ╱ // 0x23e9 @0x1e
0x23cb…23ee at001f = ╱51╱Q╱ // 0x23ea @0x1f
0x23cb…23ee at0020 = ╱4e╱N╱ // 0x23eb @0x20
0x23cb…23ee at0021 = ╱ef╱ $ ╱ // 0x23ec @0x21
0x23cb…23ee at0022 = EOL // 0x23ed @0x22
0x23cb…23ee }
0x23ee…2409 b9f7 03580 EXEC SKRIV_TRANS ( T_H\JREC )
0x23ee…2409 LineComal80 {
0x23ee…2409 ptr = 0xb9f7 // 0x23ee @0x0
0x23ee…2409 lno = 0x0dfc // 0x23f0 @0x2
0x23ee…2409 at0004 = ╱9d╱ EXEC ╱ // 0x23f2 @0x4
0x23ee…2409 at0005 = ╱53╱S╱ // 0x23f3 @0x5
0x23ee…2409 at0006 = ╱4b╱K╱ // 0x23f4 @0x6
0x23ee…2409 at0007 = ╱52╱R╱ // 0x23f5 @0x7
0x23ee…2409 at0008 = ╱49╱I╱ // 0x23f6 @0x8
0x23ee…2409 at0009 = ╱56╱V╱ // 0x23f7 @0x9
0x23ee…2409 at000a = ╱5f╱_╱ // 0x23f8 @0xa
0x23ee…2409 at000b = ╱54╱T╱ // 0x23f9 @0xb
0x23ee…2409 at000c = ╱52╱R╱ // 0x23fa @0xc
0x23ee…2409 at000d = ╱41╱A╱ // 0x23fb @0xd
0x23ee…2409 at000e = ╱4e╱N╱ // 0x23fc @0xe
0x23ee…2409 at000f = ╱53╱S╱ // 0x23fd @0xf
0x23ee…2409 at0010 = ╱ed╱ ( ╱ // 0x23fe @0x10
0x23ee…2409 at0011 = ╱54╱T╱ // 0x23ff @0x11
0x23ee…2409 at0012 = ╱5f╱_╱ // 0x2400 @0x12
0x23ee…2409 at0013 = ╱48╱H╱ // 0x2401 @0x13
0x23ee…2409 at0014 = ╱5c╱\╱ // 0x2402 @0x14
0x23ee…2409 at0015 = ╱4a╱J╱ // 0x2403 @0x15
0x23ee…2409 at0016 = ╱52╱R╱ // 0x2404 @0x16
0x23ee…2409 at0017 = ╱45╱E╱ // 0x2405 @0x17
0x23ee…2409 at0018 = ╱43╱C╱ // 0x2406 @0x18
0x23ee…2409 at0019 = ╱ee╱ ) ╱ // 0x2407 @0x19
0x23ee…2409 at001a = EOL // 0x2408 @0x1a
0x23ee…2409 }
0x2409…241e ba0c 03590 LET KTO_SP := T_H\JREC
0x2409…241e LineComal80 {
0x2409…241e ptr = 0xba0c // 0x2409 @0x0
0x2409…241e lno = 0x0e06 // 0x240b @0x2
0x2409…241e at0004 = ╱86╱ LET ╱ // 0x240d @0x4
0x2409…241e at0005 = ╱4b╱K╱ // 0x240e @0x5
0x2409…241e at0006 = ╱54╱T╱ // 0x240f @0x6
0x2409…241e at0007 = ╱4f╱O╱ // 0x2410 @0x7
0x2409…241e at0008 = ╱5f╱_╱ // 0x2411 @0x8
0x2409…241e at0009 = ╱53╱S╱ // 0x2412 @0x9
0x2409…241e at000a = ╱50╱P╱ // 0x2413 @0xa
0x2409…241e at000b = ╱f0╱ := ╱ // 0x2414 @0xb
0x2409…241e at000c = ╱54╱T╱ // 0x2415 @0xc
0x2409…241e at000d = ╱5f╱_╱ // 0x2416 @0xd
0x2409…241e at000e = ╱48╱H╱ // 0x2417 @0xe
0x2409…241e at000f = ╱5c╱\╱ // 0x2418 @0xf
0x2409…241e at0010 = ╱4a╱J╱ // 0x2419 @0x10
0x2409…241e at0011 = ╱52╱R╱ // 0x241a @0x11
0x2409…241e at0012 = ╱45╱E╱ // 0x241b @0x12
0x2409…241e at0013 = ╱43╱C╱ // 0x241c @0x13
0x2409…241e at0014 = EOL // 0x241d @0x14
0x2409…241e }
0x241e…242e ba1c 03600 IF K = DEBET THEN
0x241e…242e LineComal80 {
0x241e…242e ptr = 0xba1c // 0x241e @0x0
0x241e…242e lno = 0x0e10 // 0x2420 @0x2
0x241e…242e at0004 = ╱9b0044╱ IF ╱ // 0x2422 @0x4
0x241e…242e at0007 = ╱4b╱K╱ // 0x2425 @0x7
0x241e…242e at0008 = ╱df╱ = ╱ // 0x2426 @0x8
0x241e…242e at0009 = ╱44╱D╱ // 0x2427 @0x9
0x241e…242e at000a = ╱45╱E╱ // 0x2428 @0xa
0x241e…242e at000b = ╱42╱B╱ // 0x2429 @0xb
0x241e…242e at000c = ╱45╱E╱ // 0x242a @0xc
0x241e…242e at000d = ╱54╱T╱ // 0x242b @0xd
0x241e…242e at000e = ╱b5╱ THEN ╱ // 0x242c @0xe
0x241e…242e at000f = EOL // 0x242d @0xf
0x241e…242e }
0x242e…2450 ba3e 03610 LET KTO_ULTIMO := KTO_ULTIMO + BBEL\B
0x242e…2450 LineComal80 {
0x242e…2450 ptr = 0xba3e // 0x242e @0x0
0x242e…2450 lno = 0x0e1a // 0x2430 @0x2
0x242e…2450 at0004 = ╱86╱ LET ╱ // 0x2432 @0x4
0x242e…2450 at0005 = ╱4b╱K╱ // 0x2433 @0x5
0x242e…2450 at0006 = ╱54╱T╱ // 0x2434 @0x6
0x242e…2450 at0007 = ╱4f╱O╱ // 0x2435 @0x7
0x242e…2450 at0008 = ╱5f╱_╱ // 0x2436 @0x8
0x242e…2450 at0009 = ╱55╱U╱ // 0x2437 @0x9
0x242e…2450 at000a = ╱4c╱L╱ // 0x2438 @0xa
0x242e…2450 at000b = ╱54╱T╱ // 0x2439 @0xb
0x242e…2450 at000c = ╱49╱I╱ // 0x243a @0xc
0x242e…2450 at000d = ╱4d╱M╱ // 0x243b @0xd
0x242e…2450 at000e = ╱4f╱O╱ // 0x243c @0xe
0x242e…2450 at000f = ╱f0╱ := ╱ // 0x243d @0xf
0x242e…2450 at0010 = ╱4b╱K╱ // 0x243e @0x10
0x242e…2450 at0011 = ╱54╱T╱ // 0x243f @0x11
0x242e…2450 at0012 = ╱4f╱O╱ // 0x2440 @0x12
0x242e…2450 at0013 = ╱5f╱_╱ // 0x2441 @0x13
0x242e…2450 at0014 = ╱55╱U╱ // 0x2442 @0x14
0x242e…2450 at0015 = ╱4c╱L╱ // 0x2443 @0x15
0x242e…2450 at0016 = ╱54╱T╱ // 0x2444 @0x16
0x242e…2450 at0017 = ╱49╱I╱ // 0x2445 @0x17
0x242e…2450 at0018 = ╱4d╱M╱ // 0x2446 @0x18
0x242e…2450 at0019 = ╱4f╱O╱ // 0x2447 @0x19
0x242e…2450 at001a = ╱e5╱ + ╱ // 0x2448 @0x1a
0x242e…2450 at001b = ╱42╱B╱ // 0x2449 @0x1b
0x242e…2450 at001c = ╱42╱B╱ // 0x244a @0x1c
0x242e…2450 at001d = ╱45╱E╱ // 0x244b @0x1d
0x242e…2450 at001e = ╱4c╱L╱ // 0x244c @0x1e
0x242e…2450 at001f = ╱5c╱\╱ // 0x244d @0x1f
0x242e…2450 at0020 = ╱42╱B╱ // 0x244e @0x20
0x242e…2450 at0021 = EOL // 0x244f @0x21
0x242e…2450 }
0x2450…2457 ba45 03620 ELSE
0x2450…2457 LineComal80 {
0x2450…2457 ptr = 0xba45 // 0x2450 @0x0
0x2450…2457 lno = 0x0e24 // 0x2452 @0x2
0x2450…2457 at0004 = ╱9a00╱ ELSE ╱ // 0x2454 @0x4
0x2450…2457 at0006 = EOL // 0x2456 @0x6
0x2450…2457 }
0x2457…2479 ba67 03630 LET KTO_ULTIMO := KTO_ULTIMO - BBEL\B
0x2457…2479 LineComal80 {
0x2457…2479 ptr = 0xba67 // 0x2457 @0x0
0x2457…2479 lno = 0x0e2e // 0x2459 @0x2
0x2457…2479 at0004 = ╱86╱ LET ╱ // 0x245b @0x4
0x2457…2479 at0005 = ╱4b╱K╱ // 0x245c @0x5
0x2457…2479 at0006 = ╱54╱T╱ // 0x245d @0x6
0x2457…2479 at0007 = ╱4f╱O╱ // 0x245e @0x7
0x2457…2479 at0008 = ╱5f╱_╱ // 0x245f @0x8
0x2457…2479 at0009 = ╱55╱U╱ // 0x2460 @0x9
0x2457…2479 at000a = ╱4c╱L╱ // 0x2461 @0xa
0x2457…2479 at000b = ╱54╱T╱ // 0x2462 @0xb
0x2457…2479 at000c = ╱49╱I╱ // 0x2463 @0xc
0x2457…2479 at000d = ╱4d╱M╱ // 0x2464 @0xd
0x2457…2479 at000e = ╱4f╱O╱ // 0x2465 @0xe
0x2457…2479 at000f = ╱f0╱ := ╱ // 0x2466 @0xf
0x2457…2479 at0010 = ╱4b╱K╱ // 0x2467 @0x10
0x2457…2479 at0011 = ╱54╱T╱ // 0x2468 @0x11
0x2457…2479 at0012 = ╱4f╱O╱ // 0x2469 @0x12
0x2457…2479 at0013 = ╱5f╱_╱ // 0x246a @0x13
0x2457…2479 at0014 = ╱55╱U╱ // 0x246b @0x14
0x2457…2479 at0015 = ╱4c╱L╱ // 0x246c @0x15
0x2457…2479 at0016 = ╱54╱T╱ // 0x246d @0x16
0x2457…2479 at0017 = ╱49╱I╱ // 0x246e @0x17
0x2457…2479 at0018 = ╱4d╱M╱ // 0x246f @0x18
0x2457…2479 at0019 = ╱4f╱O╱ // 0x2470 @0x19
0x2457…2479 at001a = ╱e6╱ - ╱ // 0x2471 @0x1a
0x2457…2479 at001b = ╱42╱B╱ // 0x2472 @0x1b
0x2457…2479 at001c = ╱42╱B╱ // 0x2473 @0x1c
0x2457…2479 at001d = ╱45╱E╱ // 0x2474 @0x1d
0x2457…2479 at001e = ╱4c╱L╱ // 0x2475 @0x1e
0x2457…2479 at001f = ╱5c╱\╱ // 0x2476 @0x1f
0x2457…2479 at0020 = ╱42╱B╱ // 0x2477 @0x20
0x2457…2479 at0021 = EOL // 0x2478 @0x21
0x2457…2479 }
0x2479…247f ba6d 03640 ENDIF
0x2479…247f LineComal80 {
0x2479…247f ptr = 0xba6d // 0x2479 @0x0
0x2479…247f lno = 0x0e38 // 0x247b @0x2
0x2479…247f at0004 = ╱9c╱ ENDIF ╱ // 0x247d @0x4
0x2479…247f at0005 = EOL // 0x247e @0x5
0x2479…247f }
0x247f…2497 ba85 03650 EXEC SKRIV_KONTO ( RECNR )
0x247f…2497 LineComal80 {
0x247f…2497 ptr = 0xba85 // 0x247f @0x0
0x247f…2497 lno = 0x0e42 // 0x2481 @0x2
0x247f…2497 at0004 = ╱9d╱ EXEC ╱ // 0x2483 @0x4
0x247f…2497 at0005 = ╱53╱S╱ // 0x2484 @0x5
0x247f…2497 at0006 = ╱4b╱K╱ // 0x2485 @0x6
0x247f…2497 at0007 = ╱52╱R╱ // 0x2486 @0x7
0x247f…2497 at0008 = ╱49╱I╱ // 0x2487 @0x8
0x247f…2497 at0009 = ╱56╱V╱ // 0x2488 @0x9
0x247f…2497 at000a = ╱5f╱_╱ // 0x2489 @0xa
0x247f…2497 at000b = ╱4b╱K╱ // 0x248a @0xb
0x247f…2497 at000c = ╱4f╱O╱ // 0x248b @0xc
0x247f…2497 at000d = ╱4e╱N╱ // 0x248c @0xd
0x247f…2497 at000e = ╱54╱T╱ // 0x248d @0xe
0x247f…2497 at000f = ╱4f╱O╱ // 0x248e @0xf
0x247f…2497 at0010 = ╱ed╱ ( ╱ // 0x248f @0x10
0x247f…2497 at0011 = ╱52╱R╱ // 0x2490 @0x11
0x247f…2497 at0012 = ╱45╱E╱ // 0x2491 @0x12
0x247f…2497 at0013 = ╱43╱C╱ // 0x2492 @0x13
0x247f…2497 at0014 = ╱4e╱N╱ // 0x2493 @0x14
0x247f…2497 at0015 = ╱52╱R╱ // 0x2494 @0x15
0x247f…2497 at0016 = ╱ee╱ ) ╱ // 0x2495 @0x16
0x247f…2497 at0017 = EOL // 0x2496 @0x17
0x247f…2497 }
0x2497…24ba baa8 03660 PUT TRANS $ , 1 : T_H\JREC , T_MAXREC
0x2497…24ba LineComal80 {
0x2497…24ba ptr = 0xbaa8 // 0x2497 @0x0
0x2497…24ba lno = 0x0e4c // 0x2499 @0x2
0x2497…24ba at0004 = ╱aa╱ PUT ╱ // 0x249b @0x4
0x2497…24ba at0005 = ╱54╱T╱ // 0x249c @0x5
0x2497…24ba at0006 = ╱52╱R╱ // 0x249d @0x6
0x2497…24ba at0007 = ╱41╱A╱ // 0x249e @0x7
0x2497…24ba at0008 = ╱4e╱N╱ // 0x249f @0x8
0x2497…24ba at0009 = ╱53╱S╱ // 0x24a0 @0x9
0x2497…24ba at000a = ╱ef╱ $ ╱ // 0x24a1 @0xa
0x2497…24ba at000b = ╱ec╱ , ╱ // 0x24a2 @0xb
0x2497…24ba at000c = ╱31╱1╱ // 0x24a3 @0xc
0x2497…24ba at000d = ╱f20100╱ // 0x24a4 @0xd
0x2497…24ba at0010 = ╱f1╱ : ╱ // 0x24a7 @0x10
0x2497…24ba at0011 = ╱54╱T╱ // 0x24a8 @0x11
0x2497…24ba at0012 = ╱5f╱_╱ // 0x24a9 @0x12
0x2497…24ba at0013 = ╱48╱H╱ // 0x24aa @0x13
0x2497…24ba at0014 = ╱5c╱\╱ // 0x24ab @0x14
0x2497…24ba at0015 = ╱4a╱J╱ // 0x24ac @0x15
0x2497…24ba at0016 = ╱52╱R╱ // 0x24ad @0x16
0x2497…24ba at0017 = ╱45╱E╱ // 0x24ae @0x17
0x2497…24ba at0018 = ╱43╱C╱ // 0x24af @0x18
0x2497…24ba at0019 = ╱ec╱ , ╱ // 0x24b0 @0x19
0x2497…24ba at001a = ╱54╱T╱ // 0x24b1 @0x1a
0x2497…24ba at001b = ╱5f╱_╱ // 0x24b2 @0x1b
0x2497…24ba at001c = ╱4d╱M╱ // 0x24b3 @0x1c
0x2497…24ba at001d = ╱41╱A╱ // 0x24b4 @0x1d
0x2497…24ba at001e = ╱58╱X╱ // 0x24b5 @0x1e
0x2497…24ba at001f = ╱52╱R╱ // 0x24b6 @0x1f
0x2497…24ba at0020 = ╱45╱E╱ // 0x24b7 @0x20
0x2497…24ba at0021 = ╱43╱C╱ // 0x24b8 @0x21
0x2497…24ba at0022 = EOL // 0x24b9 @0x22
0x2497…24ba }
0x24ba…24c6 bab4 03670 ENDPROC BOGF\R
0x24ba…24c6 LineComal80 {
0x24ba…24c6 ptr = 0xbab4 // 0x24ba @0x0
0x24ba…24c6 lno = 0x0e56 // 0x24bc @0x2
0x24ba…24c6 at0004 = ╱9f╱ ENDPROC ╱ // 0x24be @0x4
0x24ba…24c6 at0005 = ╱42╱B╱ // 0x24bf @0x5
0x24ba…24c6 at0006 = ╱4f╱O╱ // 0x24c0 @0x6
0x24ba…24c6 at0007 = ╱47╱G╱ // 0x24c1 @0x7
0x24ba…24c6 at0008 = ╱46╱F╱ // 0x24c2 @0x8
0x24ba…24c6 at0009 = ╱5c╱\╱ // 0x24c3 @0x9
0x24ba…24c6 at000a = ╱52╱R╱ // 0x24c4 @0xa
0x24ba…24c6 at000b = EOL // 0x24c5 @0xb
0x24ba…24c6 }
0x24c6…24cb bab9 03680
0x24c6…24cb LineComal80 {
0x24c6…24cb ptr = 0xbab9 // 0x24c6 @0x0
0x24c6…24cb lno = 0x0e60 // 0x24c8 @0x2
0x24c6…24cb at0004 = EOL // 0x24ca @0x4
0x24c6…24cb }
0x24cb…24df bacd 03690 PROC BOGF\R_POSTER
0x24cb…24df LineComal80 {
0x24cb…24df ptr = 0xbacd // 0x24cb @0x0
0x24cb…24df lno = 0x0e6a // 0x24cd @0x2
0x24cb…24df at0004 = ╱9e00╱ PROC ╱ // 0x24cf @0x4
0x24cb…24df at0006 = ╱42╱B╱ // 0x24d1 @0x6
0x24cb…24df at0007 = ╱4f╱O╱ // 0x24d2 @0x7
0x24cb…24df at0008 = ╱47╱G╱ // 0x24d3 @0x8
0x24cb…24df at0009 = ╱46╱F╱ // 0x24d4 @0x9
0x24cb…24df at000a = ╱5c╱\╱ // 0x24d5 @0xa
0x24cb…24df at000b = ╱52╱R╱ // 0x24d6 @0xb
0x24cb…24df at000c = ╱5f╱_╱ // 0x24d7 @0xc
0x24cb…24df at000d = ╱50╱P╱ // 0x24d8 @0xd
0x24cb…24df at000e = ╱4f╱O╱ // 0x24d9 @0xe
0x24cb…24df at000f = ╱53╱S╱ // 0x24da @0xf
0x24cb…24df at0010 = ╱54╱T╱ // 0x24db @0x10
0x24cb…24df at0011 = ╱45╱E╱ // 0x24dc @0x11
0x24cb…24df at0012 = ╱52╱R╱ // 0x24dd @0x12
0x24cb…24df at0013 = EOL // 0x24de @0x13
0x24cb…24df }
0x24df…24fb bae9 03700 FOR K := 1 TO _H\JREC - 1 DO
0x24df…24fb LineComal80 {
0x24df…24fb ptr = 0xbae9 // 0x24df @0x0
0x24df…24fb lno = 0x0e74 // 0x24e1 @0x2
0x24df…24fb at0004 = ╱8300╱ FOR ╱ // 0x24e3 @0x4
0x24df…24fb at0006 = ╱4b╱K╱ // 0x24e5 @0x6
0x24df…24fb at0007 = ╱f0╱ := ╱ // 0x24e6 @0x7
0x24df…24fb at0008 = ╱31╱1╱ // 0x24e7 @0x8
0x24df…24fb at0009 = ╱f20100╱ // 0x24e8 @0x9
0x24df…24fb at000c = ╱b750╱ TO ╱ // 0x24eb @0xc
0x24df…24fb at000e = ╱5f╱_╱ // 0x24ed @0xe
0x24df…24fb at000f = ╱48╱H╱ // 0x24ee @0xf
0x24df…24fb at0010 = ╱5c╱\╱ // 0x24ef @0x10
0x24df…24fb at0011 = ╱4a╱J╱ // 0x24f0 @0x11
0x24df…24fb at0012 = ╱52╱R╱ // 0x24f1 @0x12
0x24df…24fb at0013 = ╱45╱E╱ // 0x24f2 @0x13
0x24df…24fb at0014 = ╱43╱C╱ // 0x24f3 @0x14
0x24df…24fb at0015 = ╱e6╱ - ╱ // 0x24f4 @0x15
0x24df…24fb at0016 = ╱31╱1╱ // 0x24f5 @0x16
0x24df…24fb at0017 = ╱f20100╱ // 0x24f6 @0x17
0x24df…24fb at001a = ╱bb╱ DO ╱ // 0x24f9 @0x1a
0x24df…24fb at001b = EOL // 0x24fa @0x1b
0x24df…24fb }
0x24fb…250e bafc 03710 EXEC L[S_DG_POS ( K )
0x24fb…250e LineComal80 {
0x24fb…250e ptr = 0xbafc // 0x24fb @0x0
0x24fb…250e lno = 0x0e7e // 0x24fd @0x2
0x24fb…250e at0004 = ╱9d╱ EXEC ╱ // 0x24ff @0x4
0x24fb…250e at0005 = ╱4c╱L╱ // 0x2500 @0x5
0x24fb…250e at0006 = ╱5b╱[╱ // 0x2501 @0x6
0x24fb…250e at0007 = ╱53╱S╱ // 0x2502 @0x7
0x24fb…250e at0008 = ╱5f╱_╱ // 0x2503 @0x8
0x24fb…250e at0009 = ╱44╱D╱ // 0x2504 @0x9
0x24fb…250e at000a = ╱47╱G╱ // 0x2505 @0xa
0x24fb…250e at000b = ╱5f╱_╱ // 0x2506 @0xb
0x24fb…250e at000c = ╱50╱P╱ // 0x2507 @0xc
0x24fb…250e at000d = ╱4f╱O╱ // 0x2508 @0xd
0x24fb…250e at000e = ╱53╱S╱ // 0x2509 @0xe
0x24fb…250e at000f = ╱ed╱ ( ╱ // 0x250a @0xf
0x24fb…250e at0010 = ╱4b╱K╱ // 0x250b @0x10
0x24fb…250e at0011 = ╱ee╱ ) ╱ // 0x250c @0x11
0x24fb…250e at0012 = EOL // 0x250d @0x12
0x24fb…250e }
0x250e…2524 bb12 03720 IF _BNR $ >< "*****" THEN
0x250e…2524 LineComal80 {
0x250e…2524 ptr = 0xbb12 // 0x250e @0x0
0x250e…2524 lno = 0x0e88 // 0x2510 @0x2
0x250e…2524 at0004 = ╱9b0050╱ IF ╱ // 0x2512 @0x4
0x250e…2524 at0007 = ╱5f╱_╱ // 0x2515 @0x7
0x250e…2524 at0008 = ╱42╱B╱ // 0x2516 @0x8
0x250e…2524 at0009 = ╱4e╱N╱ // 0x2517 @0x9
0x250e…2524 at000a = ╱52╱R╱ // 0x2518 @0xa
0x250e…2524 at000b = ╱ef╱ $ ╱ // 0x2519 @0xb
0x250e…2524 at000c = ╱e4╱ >< ╱ // 0x251a @0xc
0x250e…2524 at000d = ╱22╱"╱ // 0x251b @0xd
0x250e…2524 at000e = ╱2a╱*╱ // 0x251c @0xe
0x250e…2524 at000f = ╱2a╱*╱ // 0x251d @0xf
0x250e…2524 at0010 = ╱2a╱*╱ // 0x251e @0x10
0x250e…2524 at0011 = ╱2a╱*╱ // 0x251f @0x11
0x250e…2524 at0012 = ╱2a╱*╱ // 0x2520 @0x12
0x250e…2524 at0013 = ╱22╱"╱ // 0x2521 @0x13
0x250e…2524 at0014 = ╱b5╱ THEN ╱ // 0x2522 @0x14
0x250e…2524 at0015 = EOL // 0x2523 @0x15
0x250e…2524 }
0x2524…254d bb3b 03730 IF ( K + 11 ) MOD 12 = 0 THEN EXEC DIV_POSHOVED
0x2524…254d LineComal80 {
0x2524…254d ptr = 0xbb3b // 0x2524 @0x0
0x2524…254d lno = 0x0e92 // 0x2526 @0x2
0x2524…254d at0004 = ╱8200╱ IF ╱ // 0x2528 @0x4
0x2524…254d at0006 = ╱ed╱ ( ╱ // 0x252a @0x6
0x2524…254d at0007 = ╱4b╱K╱ // 0x252b @0x7
0x2524…254d at0008 = ╱e5╱ + ╱ // 0x252c @0x8
0x2524…254d at0009 = ╱31╱1╱ // 0x252d @0x9
0x2524…254d at000a = ╱31╱1╱ // 0x252e @0xa
0x2524…254d at000b = ╱f20b00╱ // 0x252f @0xb
0x2524…254d at000e = ╱ee╱ ) ╱ // 0x2532 @0xe
0x2524…254d at000f = ╱db╱ MOD ╱ // 0x2533 @0xf
0x2524…254d at0010 = ╱31╱1╱ // 0x2534 @0x10
0x2524…254d at0011 = ╱32╱2╱ // 0x2535 @0x11
0x2524…254d at0012 = ╱f20c00╱ // 0x2536 @0x12
0x2524…254d at0015 = ╱df╱ = ╱ // 0x2539 @0x15
0x2524…254d at0016 = ╱30╱0╱ // 0x253a @0x16
0x2524…254d at0017 = ╱f20000╱ // 0x253b @0x17
0x2524…254d at001a = ╱b5╱ THEN ╱ // 0x253e @0x1a
0x2524…254d at001b = ╱9d╱ EXEC ╱ // 0x253f @0x1b
0x2524…254d at001c = ╱44╱D╱ // 0x2540 @0x1c
0x2524…254d at001d = ╱49╱I╱ // 0x2541 @0x1d
0x2524…254d at001e = ╱56╱V╱ // 0x2542 @0x1e
0x2524…254d at001f = ╱5f╱_╱ // 0x2543 @0x1f
0x2524…254d at0020 = ╱50╱P╱ // 0x2544 @0x20
0x2524…254d at0021 = ╱4f╱O╱ // 0x2545 @0x21
0x2524…254d at0022 = ╱53╱S╱ // 0x2546 @0x22
0x2524…254d at0023 = ╱48╱H╱ // 0x2547 @0x23
0x2524…254d at0024 = ╱4f╱O╱ // 0x2548 @0x24
0x2524…254d at0025 = ╱56╱V╱ // 0x2549 @0x25
0x2524…254d at0026 = ╱45╱E╱ // 0x254a @0x26
0x2524…254d at0027 = ╱44╱D╱ // 0x254b @0x27
0x2524…254d at0028 = EOL // 0x254c @0x28
0x2524…254d }
0x254d…255f bb4d 03740 EXEC SKRIV_LIN ( K )
0x254d…255f LineComal80 {
0x254d…255f ptr = 0xbb4d // 0x254d @0x0
0x254d…255f lno = 0x0e9c // 0x254f @0x2
0x254d…255f at0004 = ╱9d╱ EXEC ╱ // 0x2551 @0x4
0x254d…255f at0005 = ╱53╱S╱ // 0x2552 @0x5
0x254d…255f at0006 = ╱4b╱K╱ // 0x2553 @0x6
0x254d…255f at0007 = ╱52╱R╱ // 0x2554 @0x7
0x254d…255f at0008 = ╱49╱I╱ // 0x2555 @0x8
0x254d…255f at0009 = ╱56╱V╱ // 0x2556 @0x9
0x254d…255f at000a = ╱5f╱_╱ // 0x2557 @0xa
0x254d…255f at000b = ╱4c╱L╱ // 0x2558 @0xb
0x254d…255f at000c = ╱49╱I╱ // 0x2559 @0xc
0x254d…255f at000d = ╱4e╱N╱ // 0x255a @0xd
0x254d…255f at000e = ╱ed╱ ( ╱ // 0x255b @0xe
0x254d…255f at000f = ╱4b╱K╱ // 0x255c @0xf
0x254d…255f at0010 = ╱ee╱ ) ╱ // 0x255d @0x10
0x254d…255f at0011 = EOL // 0x255e @0x11
0x254d…255f }
0x255f…257e bb6c 03750 IF /" + P_MKOD $ + "/" IN "/I/U/" THEN
0x255f…257e LineComal80 {
0x255f…257e ptr = 0xbb6c // 0x255f @0x0
0x255f…257e lno = 0x0ea6 // 0x2561 @0x2
0x255f…257e at0004 = ╱9b0022╱ IF ╱ // 0x2563 @0x4
0x255f…257e at0007 = ╱2f╱/╱ // 0x2566 @0x7
0x255f…257e at0008 = ╱22╱"╱ // 0x2567 @0x8
0x255f…257e at0009 = ╱eb╱ + ╱ // 0x2568 @0x9
0x255f…257e at000a = ╱50╱P╱ // 0x2569 @0xa
0x255f…257e at000b = ╱5f╱_╱ // 0x256a @0xb
0x255f…257e at000c = ╱4d╱M╱ // 0x256b @0xc
0x255f…257e at000d = ╱4b╱K╱ // 0x256c @0xd
0x255f…257e at000e = ╱4f╱O╱ // 0x256d @0xe
0x255f…257e at000f = ╱44╱D╱ // 0x256e @0xf
0x255f…257e at0010 = ╱ef╱ $ ╱ // 0x256f @0x10
0x255f…257e at0011 = ╱eb╱ + ╱ // 0x2570 @0x11
0x255f…257e at0012 = ╱22╱"╱ // 0x2571 @0x12
0x255f…257e at0013 = ╱2f╱/╱ // 0x2572 @0x13
0x255f…257e at0014 = ╱22╱"╱ // 0x2573 @0x14
0x255f…257e at0015 = ╱dc╱ IN ╱ // 0x2574 @0x15
0x255f…257e at0016 = ╱22╱"╱ // 0x2575 @0x16
0x255f…257e at0017 = ╱2f╱/╱ // 0x2576 @0x17
0x255f…257e at0018 = ╱49╱I╱ // 0x2577 @0x18
0x255f…257e at0019 = ╱2f╱/╱ // 0x2578 @0x19
0x255f…257e at001a = ╱55╱U╱ // 0x2579 @0x1a
0x255f…257e at001b = ╱2f╱/╱ // 0x257a @0x1b
0x255f…257e at001c = ╱22╱"╱ // 0x257b @0x1c
0x255f…257e at001d = ╱b5╱ THEN ╱ // 0x257c @0x1d
0x255f…257e at001e = EOL // 0x257d @0x1e
0x255f…257e }
0x257e…25d7 bbc5 03760 LET MOMS_KR := INT ( MOMS * 100 * ( P_BKR / ( MOMS + 100 ) ) + .5 ) / 100 ; P_BKR := P_BKR - MOMS_KR
0x257e…25d7 LineComal80 {
0x257e…25d7 ptr = 0xbbc5 // 0x257e @0x0
0x257e…25d7 lno = 0x0eb0 // 0x2580 @0x2
0x257e…25d7 at0004 = ╱86╱ LET ╱ // 0x2582 @0x4
0x257e…25d7 at0005 = ╱4d╱M╱ // 0x2583 @0x5
0x257e…25d7 at0006 = ╱4f╱O╱ // 0x2584 @0x6
0x257e…25d7 at0007 = ╱4d╱M╱ // 0x2585 @0x7
0x257e…25d7 at0008 = ╱53╱S╱ // 0x2586 @0x8
0x257e…25d7 at0009 = ╱5f╱_╱ // 0x2587 @0x9
0x257e…25d7 at000a = ╱4b╱K╱ // 0x2588 @0xa
0x257e…25d7 at000b = ╱52╱R╱ // 0x2589 @0xb
0x257e…25d7 at000c = ╱f0╱ := ╱ // 0x258a @0xc
0x257e…25d7 at000d = ╱c6╱ INT ╱ // 0x258b @0xd
0x257e…25d7 at000e = ╱ed╱ ( ╱ // 0x258c @0xe
0x257e…25d7 at000f = ╱4d╱M╱ // 0x258d @0xf
0x257e…25d7 at0010 = ╱4f╱O╱ // 0x258e @0x10
0x257e…25d7 at0011 = ╱4d╱M╱ // 0x258f @0x11
0x257e…25d7 at0012 = ╱53╱S╱ // 0x2590 @0x12
0x257e…25d7 at0013 = ╱e7╱ * ╱ // 0x2591 @0x13
0x257e…25d7 at0014 = ╱31╱1╱ // 0x2592 @0x14
0x257e…25d7 at0015 = ╱30╱0╱ // 0x2593 @0x15
0x257e…25d7 at0016 = ╱30╱0╱ // 0x2594 @0x16
0x257e…25d7 at0017 = ╱f26400╱ // 0x2595 @0x17
0x257e…25d7 at001a = ╱e7╱ * ╱ // 0x2598 @0x1a
0x257e…25d7 at001b = ╱ed╱ ( ╱ // 0x2599 @0x1b
0x257e…25d7 at001c = ╱50╱P╱ // 0x259a @0x1c
0x257e…25d7 at001d = ╱5f╱_╱ // 0x259b @0x1d
0x257e…25d7 at001e = ╱42╱B╱ // 0x259c @0x1e
0x257e…25d7 at001f = ╱4b╱K╱ // 0x259d @0x1f
0x257e…25d7 at0020 = ╱52╱R╱ // 0x259e @0x20
0x257e…25d7 at0021 = ╱e8╱ / ╱ // 0x259f @0x21
0x257e…25d7 at0022 = ╱ed╱ ( ╱ // 0x25a0 @0x22
0x257e…25d7 at0023 = ╱4d╱M╱ // 0x25a1 @0x23
0x257e…25d7 at0024 = ╱4f╱O╱ // 0x25a2 @0x24
0x257e…25d7 at0025 = ╱4d╱M╱ // 0x25a3 @0x25
0x257e…25d7 at0026 = ╱53╱S╱ // 0x25a4 @0x26
0x257e…25d7 at0027 = ╱e5╱ + ╱ // 0x25a5 @0x27
0x257e…25d7 at0028 = ╱31╱1╱ // 0x25a6 @0x28
0x257e…25d7 at0029 = ╱30╱0╱ // 0x25a7 @0x29
0x257e…25d7 at002a = ╱30╱0╱ // 0x25a8 @0x2a
0x257e…25d7 at002b = ╱f26400╱ // 0x25a9 @0x2b
0x257e…25d7 at002e = ╱ee╱ ) ╱ // 0x25ac @0x2e
0x257e…25d7 at002f = ╱ee╱ ) ╱ // 0x25ad @0x2f
0x257e…25d7 at0030 = ╱e5╱ + ╱ // 0x25ae @0x30
0x257e…25d7 at0031 = ╱2e╱.╱ // 0x25af @0x31
0x257e…25d7 at0032 = ╱35╱5╱ // 0x25b0 @0x32
0x257e…25d7 at0033 = ╱f88000000000000005╱ // 0x25b1 @0x33
0x257e…25d7 at003c = ╱ee╱ ) ╱ // 0x25ba @0x3c
0x257e…25d7 at003d = ╱e8╱ / ╱ // 0x25bb @0x3d
0x257e…25d7 at003e = ╱31╱1╱ // 0x25bc @0x3e
0x257e…25d7 at003f = ╱30╱0╱ // 0x25bd @0x3f
0x257e…25d7 at0040 = ╱30╱0╱ // 0x25be @0x40
0x257e…25d7 at0041 = ╱f26400╱ // 0x25bf @0x41
0x257e…25d7 at0044 = ╱ea╱ ; ╱ // 0x25c2 @0x44
0x257e…25d7 at0045 = ╱50╱P╱ // 0x25c3 @0x45
0x257e…25d7 at0046 = ╱5f╱_╱ // 0x25c4 @0x46
0x257e…25d7 at0047 = ╱42╱B╱ // 0x25c5 @0x47
0x257e…25d7 at0048 = ╱4b╱K╱ // 0x25c6 @0x48
0x257e…25d7 at0049 = ╱52╱R╱ // 0x25c7 @0x49
0x257e…25d7 at004a = ╱f0╱ := ╱ // 0x25c8 @0x4a
0x257e…25d7 at004b = ╱50╱P╱ // 0x25c9 @0x4b
0x257e…25d7 at004c = ╱5f╱_╱ // 0x25ca @0x4c
0x257e…25d7 at004d = ╱42╱B╱ // 0x25cb @0x4d
0x257e…25d7 at004e = ╱4b╱K╱ // 0x25cc @0x4e
0x257e…25d7 at004f = ╱52╱R╱ // 0x25cd @0x4f
0x257e…25d7 at0050 = ╱e6╱ - ╱ // 0x25ce @0x50
0x257e…25d7 at0051 = ╱4d╱M╱ // 0x25cf @0x51
0x257e…25d7 at0052 = ╱4f╱O╱ // 0x25d0 @0x52
0x257e…25d7 at0053 = ╱4d╱M╱ // 0x25d1 @0x53
0x257e…25d7 at0054 = ╱53╱S╱ // 0x25d2 @0x54
0x257e…25d7 at0055 = ╱5f╱_╱ // 0x25d3 @0x55
0x257e…25d7 at0056 = ╱4b╱K╱ // 0x25d4 @0x56
0x257e…25d7 at0057 = ╱52╱R╱ // 0x25d5 @0x57
0x257e…25d7 at0058 = EOL // 0x25d6 @0x58
0x257e…25d7 }
0x25d7…25ea bbd8 03770 IF _MKOD $ = "I" THEN
0x25d7…25ea LineComal80 {
0x25d7…25ea ptr = 0xbbd8 // 0x25d7 @0x0
0x25d7…25ea lno = 0x0eba // 0x25d9 @0x2
0x25d7…25ea at0004 = ╱9b0050╱ IF ╱ // 0x25db @0x4
0x25d7…25ea at0007 = ╱5f╱_╱ // 0x25de @0x7
0x25d7…25ea at0008 = ╱4d╱M╱ // 0x25df @0x8
0x25d7…25ea at0009 = ╱4b╱K╱ // 0x25e0 @0x9
0x25d7…25ea at000a = ╱4f╱O╱ // 0x25e1 @0xa
0x25d7…25ea at000b = ╱44╱D╱ // 0x25e2 @0xb
0x25d7…25ea at000c = ╱ef╱ $ ╱ // 0x25e3 @0xc
0x25d7…25ea at000d = ╱df╱ = ╱ // 0x25e4 @0xd
0x25d7…25ea at000e = ╱22╱"╱ // 0x25e5 @0xe
0x25d7…25ea at000f = ╱49╱I╱ // 0x25e6 @0xf
0x25d7…25ea at0010 = ╱22╱"╱ // 0x25e7 @0x10
0x25d7…25ea at0011 = ╱b5╱ THEN ╱ // 0x25e8 @0x11
0x25d7…25ea at0012 = EOL // 0x25e9 @0x12
0x25d7…25ea }
0x25ea…262c bc1a 03780 EXEC BOGF\R ( INDMOMS_KTO $ , P_BDAT $ , P_TXT $ , NULR , MOMS_KR , P_DK , P_BNR $ )
0x25ea…262c LineComal80 {
0x25ea…262c ptr = 0xbc1a // 0x25ea @0x0
0x25ea…262c lno = 0x0ec4 // 0x25ec @0x2
0x25ea…262c at0004 = ╱9d╱ EXEC ╱ // 0x25ee @0x4
0x25ea…262c at0005 = ╱42╱B╱ // 0x25ef @0x5
0x25ea…262c at0006 = ╱4f╱O╱ // 0x25f0 @0x6
0x25ea…262c at0007 = ╱47╱G╱ // 0x25f1 @0x7
0x25ea…262c at0008 = ╱46╱F╱ // 0x25f2 @0x8
0x25ea…262c at0009 = ╱5c╱\╱ // 0x25f3 @0x9
0x25ea…262c at000a = ╱52╱R╱ // 0x25f4 @0xa
0x25ea…262c at000b = ╱ed╱ ( ╱ // 0x25f5 @0xb
0x25ea…262c at000c = ╱49╱I╱ // 0x25f6 @0xc
0x25ea…262c at000d = ╱4e╱N╱ // 0x25f7 @0xd
0x25ea…262c at000e = ╱44╱D╱ // 0x25f8 @0xe
0x25ea…262c at000f = ╱4d╱M╱ // 0x25f9 @0xf
0x25ea…262c at0010 = ╱4f╱O╱ // 0x25fa @0x10
0x25ea…262c at0011 = ╱4d╱M╱ // 0x25fb @0x11
0x25ea…262c at0012 = ╱53╱S╱ // 0x25fc @0x12
0x25ea…262c at0013 = ╱5f╱_╱ // 0x25fd @0x13
0x25ea…262c at0014 = ╱4b╱K╱ // 0x25fe @0x14
0x25ea…262c at0015 = ╱54╱T╱ // 0x25ff @0x15
0x25ea…262c at0016 = ╱4f╱O╱ // 0x2600 @0x16
0x25ea…262c at0017 = ╱ef╱ $ ╱ // 0x2601 @0x17
0x25ea…262c at0018 = ╱ec╱ , ╱ // 0x2602 @0x18
0x25ea…262c at0019 = ╱50╱P╱ // 0x2603 @0x19
0x25ea…262c at001a = ╱5f╱_╱ // 0x2604 @0x1a
0x25ea…262c at001b = ╱42╱B╱ // 0x2605 @0x1b
0x25ea…262c at001c = ╱44╱D╱ // 0x2606 @0x1c
0x25ea…262c at001d = ╱41╱A╱ // 0x2607 @0x1d
0x25ea…262c at001e = ╱54╱T╱ // 0x2608 @0x1e
0x25ea…262c at001f = ╱ef╱ $ ╱ // 0x2609 @0x1f
0x25ea…262c at0020 = ╱ec╱ , ╱ // 0x260a @0x20
0x25ea…262c at0021 = ╱50╱P╱ // 0x260b @0x21
0x25ea…262c at0022 = ╱5f╱_╱ // 0x260c @0x22
0x25ea…262c at0023 = ╱54╱T╱ // 0x260d @0x23
0x25ea…262c at0024 = ╱58╱X╱ // 0x260e @0x24
0x25ea…262c at0025 = ╱54╱T╱ // 0x260f @0x25
0x25ea…262c at0026 = ╱ef╱ $ ╱ // 0x2610 @0x26
0x25ea…262c at0027 = ╱ec╱ , ╱ // 0x2611 @0x27
0x25ea…262c at0028 = ╱4e╱N╱ // 0x2612 @0x28
0x25ea…262c at0029 = ╱55╱U╱ // 0x2613 @0x29
0x25ea…262c at002a = ╱4c╱L╱ // 0x2614 @0x2a
0x25ea…262c at002b = ╱52╱R╱ // 0x2615 @0x2b
0x25ea…262c at002c = ╱ec╱ , ╱ // 0x2616 @0x2c
0x25ea…262c at002d = ╱4d╱M╱ // 0x2617 @0x2d
0x25ea…262c at002e = ╱4f╱O╱ // 0x2618 @0x2e
0x25ea…262c at002f = ╱4d╱M╱ // 0x2619 @0x2f
0x25ea…262c at0030 = ╱53╱S╱ // 0x261a @0x30
0x25ea…262c at0031 = ╱5f╱_╱ // 0x261b @0x31
0x25ea…262c at0032 = ╱4b╱K╱ // 0x261c @0x32
0x25ea…262c at0033 = ╱52╱R╱ // 0x261d @0x33
0x25ea…262c at0034 = ╱ec╱ , ╱ // 0x261e @0x34
0x25ea…262c at0035 = ╱50╱P╱ // 0x261f @0x35
0x25ea…262c at0036 = ╱5f╱_╱ // 0x2620 @0x36
0x25ea…262c at0037 = ╱44╱D╱ // 0x2621 @0x37
0x25ea…262c at0038 = ╱4b╱K╱ // 0x2622 @0x38
0x25ea…262c at0039 = ╱ec╱ , ╱ // 0x2623 @0x39
0x25ea…262c at003a = ╱50╱P╱ // 0x2624 @0x3a
0x25ea…262c at003b = ╱5f╱_╱ // 0x2625 @0x3b
0x25ea…262c at003c = ╱42╱B╱ // 0x2626 @0x3c
0x25ea…262c at003d = ╱4e╱N╱ // 0x2627 @0x3d
0x25ea…262c at003e = ╱52╱R╱ // 0x2628 @0x3e
0x25ea…262c at003f = ╱ef╱ $ ╱ // 0x2629 @0x3f
0x25ea…262c at0040 = ╱ee╱ ) ╱ // 0x262a @0x40
0x25ea…262c at0041 = EOL // 0x262b @0x41
0x25ea…262c }
0x262c…2633 bc21 03790 ELSE
0x262c…2633 LineComal80 {
0x262c…2633 ptr = 0xbc21 // 0x262c @0x0
0x262c…2633 lno = 0x0ece // 0x262e @0x2
0x262c…2633 at0004 = ╱9a00╱ ELSE ╱ // 0x2630 @0x4
0x262c…2633 at0006 = EOL // 0x2632 @0x6
0x262c…2633 }
0x2633…2674 (127,) bc62 03800 EXEC BOGF\R ( UDMOMS_KTO $ , P_BDAT $ , P_TXT $ , NULR , MOMS_KR , P_DK , P_BNR $ )
0x2633…2674 LineComal80 {
0x2633…2674 ptr = 0xbc62 // 0x2633 @0x0
0x2633…2674 lno = 0x0ed8 // 0x2635 @0x2
0x2633…2674 at0004 = ╱9d╱ EXEC ╱ // 0x2637 @0x4
0x2633…2674 at0005 = ╱42╱B╱ // 0x2638 @0x5
0x2633…2674 at0006 = ╱4f╱O╱ // 0x2639 @0x6
0x2633…2674 at0007 = ╱47╱G╱ // 0x263a @0x7
0x2633…2674 at0008 = ╱46╱F╱ // 0x263b @0x8
0x2633…2674 at0009 = ╱5c╱\╱ // 0x263c @0x9
0x2633…2674 at000a = ╱52╱R╱ // 0x263d @0xa
0x2633…2674 at000b = ╱ed╱ ( ╱ // 0x263e @0xb
0x2633…2674 at000c = ╱55╱U╱ // 0x263f @0xc
0x2633…2674 at000d = ╱44╱D╱ // 0x2640 @0xd
0x2633…2674 at000e = ╱4d╱M╱ // 0x2641 @0xe
0x2633…2674 at000f = ╱4f╱O╱ // 0x2642 @0xf
0x2633…2674 at0010 = ╱4d╱M╱ // 0x2643 @0x10
0x2633…2674 at0011 = ╱53╱S╱ // 0x2644 @0x11
0x2633…2674 at0012 = ╱5f╱_╱ // 0x2645 @0x12
0x2633…2674 at0013 = ╱4b╱K╱ // 0x2646 @0x13
0x2633…2674 at0014 = ╱54╱T╱ // 0x2647 @0x14
0x2633…2674 at0015 = ╱4f╱O╱ // 0x2648 @0x15
0x2633…2674 at0016 = ╱ef╱ $ ╱ // 0x2649 @0x16
0x2633…2674 at0017 = ╱ec╱ , ╱ // 0x264a @0x17
0x2633…2674 at0018 = ╱50╱P╱ // 0x264b @0x18
0x2633…2674 at0019 = ╱5f╱_╱ // 0x264c @0x19
0x2633…2674 at001a = ╱42╱B╱ // 0x264d @0x1a
0x2633…2674 at001b = ╱44╱D╱ // 0x264e @0x1b
0x2633…2674 at001c = ╱41╱A╱ // 0x264f @0x1c
0x2633…2674 at001d = ╱54╱T╱ // 0x2650 @0x1d
0x2633…2674 at001e = ╱ef╱ $ ╱ // 0x2651 @0x1e
0x2633…2674 at001f = ╱ec╱ , ╱ // 0x2652 @0x1f
0x2633…2674 at0020 = ╱50╱P╱ // 0x2653 @0x20
0x2633…2674 at0021 = ╱5f╱_╱ // 0x2654 @0x21
0x2633…2674 at0022 = ╱54╱T╱ // 0x2655 @0x22
0x2633…2674 at0023 = ╱58╱X╱ // 0x2656 @0x23
0x2633…2674 at0024 = ╱54╱T╱ // 0x2657 @0x24
0x2633…2674 at0025 = ╱ef╱ $ ╱ // 0x2658 @0x25
0x2633…2674 at0026 = ╱ec╱ , ╱ // 0x2659 @0x26
0x2633…2674 at0027 = ╱4e╱N╱ // 0x265a @0x27
0x2633…2674 at0028 = ╱55╱U╱ // 0x265b @0x28
0x2633…2674 at0029 = ╱4c╱L╱ // 0x265c @0x29
0x2633…2674 at002a = ╱52╱R╱ // 0x265d @0x2a
0x2633…2674 at002b = ╱ec╱ , ╱ // 0x265e @0x2b
0x2633…2674 at002c = ╱4d╱M╱ // 0x265f @0x2c
0x2633…2674 at002d = ╱4f╱O╱ // 0x2660 @0x2d
0x2633…2674 at002e = ╱4d╱M╱ // 0x2661 @0x2e
0x2633…2674 at002f = ╱53╱S╱ // 0x2662 @0x2f
0x2633…2674 at0030 = ╱5f╱_╱ // 0x2663 @0x30
0x2633…2674 at0031 = ╱4b╱K╱ // 0x2664 @0x31
0x2633…2674 at0032 = ╱52╱R╱ // 0x2665 @0x32
0x2633…2674 at0033 = ╱ec╱ , ╱ // 0x2666 @0x33
0x2633…2674 at0034 = ╱50╱P╱ // 0x2667 @0x34
0x2633…2674 at0035 = ╱5f╱_╱ // 0x2668 @0x35
0x2633…2674 at0036 = ╱44╱D╱ // 0x2669 @0x36
0x2633…2674 at0037 = ╱4b╱K╱ // 0x266a @0x37
0x2633…2674 at0038 = ╱ec╱ , ╱ // 0x266b @0x38
0x2633…2674 at0039 = ╱50╱P╱ // 0x266c @0x39
0x2633…2674 at003a = ╱5f╱_╱ // 0x266d @0x3a
0x2633…2674 at003b = ╱42╱B╱ // 0x266e @0x3b
0x2633…2674 at003c = ╱4e╱N╱ // 0x266f @0x3c
0x2633…2674 at003d = ╱52╱R╱ // 0x2670 @0x3d
0x2633…2674 at003e = ╱ef╱ $ ╱ // 0x2671 @0x3e
0x2633…2674 at003f = ╱ee╱ ) ╱ // 0x2672 @0x3f
0x2633…2674 at0040 = EOL // 0x2673 @0x40
0x2633…2674 }
0x2674…267a bc68 03810 ENDIF
0x2674…267a LineComal80 {
0x2674…267a ptr = 0xbc68 // 0x2674 @0x0
0x2674…267a lno = 0x0ee2 // 0x2676 @0x2
0x2674…267a at0004 = ╱9c╱ ENDIF ╱ // 0x2678 @0x4
0x2674…267a at0005 = EOL // 0x2679 @0x5
0x2674…267a }
0x267a…2681 bc6f 03820 ELSE
0x267a…2681 LineComal80 {
0x267a…2681 ptr = 0xbc6f // 0x267a @0x0
0x267a…2681 lno = 0x0eec // 0x267c @0x2
0x267a…2681 at0004 = ╱9a00╱ ELSE ╱ // 0x267e @0x4
0x267a…2681 at0006 = EOL // 0x2680 @0x6
0x267a…2681 }
0x2681…2693 bc81 03830 LET MOMS_KR := 0
0x2681…2693 LineComal80 {
0x2681…2693 ptr = 0xbc81 // 0x2681 @0x0
0x2681…2693 lno = 0x0ef6 // 0x2683 @0x2
0x2681…2693 at0004 = ╱86╱ LET ╱ // 0x2685 @0x4
0x2681…2693 at0005 = ╱4d╱M╱ // 0x2686 @0x5
0x2681…2693 at0006 = ╱4f╱O╱ // 0x2687 @0x6
0x2681…2693 at0007 = ╱4d╱M╱ // 0x2688 @0x7
0x2681…2693 at0008 = ╱53╱S╱ // 0x2689 @0x8
0x2681…2693 at0009 = ╱5f╱_╱ // 0x268a @0x9
0x2681…2693 at000a = ╱4b╱K╱ // 0x268b @0xa
0x2681…2693 at000b = ╱52╱R╱ // 0x268c @0xb
0x2681…2693 at000c = ╱f0╱ := ╱ // 0x268d @0xc
0x2681…2693 at000d = ╱30╱0╱ // 0x268e @0xd
0x2681…2693 at000e = ╱f20000╱ // 0x268f @0xe
0x2681…2693 at0011 = EOL // 0x2692 @0x11
0x2681…2693 }
0x2693…2699 bc87 03840 ENDIF
0x2693…2699 LineComal80 {
0x2693…2699 ptr = 0xbc87 // 0x2693 @0x0
0x2693…2699 lno = 0x0f00 // 0x2695 @0x2
0x2693…2699 at0004 = ╱9c╱ ENDIF ╱ // 0x2697 @0x4
0x2693…2699 at0005 = EOL // 0x2698 @0x5
0x2693…2699 }
0x2699…26d7 bcc5 03850 EXEC BOGF\R ( P_BKTO $ , P_BDAT $ , P_TXT $ , MOMS_KR , P_BKR , P_DK , P_BNR $ )
0x2699…26d7 LineComal80 {
0x2699…26d7 ptr = 0xbcc5 // 0x2699 @0x0
0x2699…26d7 lno = 0x0f0a // 0x269b @0x2
0x2699…26d7 at0004 = ╱9d╱ EXEC ╱ // 0x269d @0x4
0x2699…26d7 at0005 = ╱42╱B╱ // 0x269e @0x5
0x2699…26d7 at0006 = ╱4f╱O╱ // 0x269f @0x6
0x2699…26d7 at0007 = ╱47╱G╱ // 0x26a0 @0x7
0x2699…26d7 at0008 = ╱46╱F╱ // 0x26a1 @0x8
0x2699…26d7 at0009 = ╱5c╱\╱ // 0x26a2 @0x9
0x2699…26d7 at000a = ╱52╱R╱ // 0x26a3 @0xa
0x2699…26d7 at000b = ╱ed╱ ( ╱ // 0x26a4 @0xb
0x2699…26d7 at000c = ╱50╱P╱ // 0x26a5 @0xc
0x2699…26d7 at000d = ╱5f╱_╱ // 0x26a6 @0xd
0x2699…26d7 at000e = ╱42╱B╱ // 0x26a7 @0xe
0x2699…26d7 at000f = ╱4b╱K╱ // 0x26a8 @0xf
0x2699…26d7 at0010 = ╱54╱T╱ // 0x26a9 @0x10
0x2699…26d7 at0011 = ╱4f╱O╱ // 0x26aa @0x11
0x2699…26d7 at0012 = ╱ef╱ $ ╱ // 0x26ab @0x12
0x2699…26d7 at0013 = ╱ec╱ , ╱ // 0x26ac @0x13
0x2699…26d7 at0014 = ╱50╱P╱ // 0x26ad @0x14
0x2699…26d7 at0015 = ╱5f╱_╱ // 0x26ae @0x15
0x2699…26d7 at0016 = ╱42╱B╱ // 0x26af @0x16
0x2699…26d7 at0017 = ╱44╱D╱ // 0x26b0 @0x17
0x2699…26d7 at0018 = ╱41╱A╱ // 0x26b1 @0x18
0x2699…26d7 at0019 = ╱54╱T╱ // 0x26b2 @0x19
0x2699…26d7 at001a = ╱ef╱ $ ╱ // 0x26b3 @0x1a
0x2699…26d7 at001b = ╱ec╱ , ╱ // 0x26b4 @0x1b
0x2699…26d7 at001c = ╱50╱P╱ // 0x26b5 @0x1c
0x2699…26d7 at001d = ╱5f╱_╱ // 0x26b6 @0x1d
0x2699…26d7 at001e = ╱54╱T╱ // 0x26b7 @0x1e
0x2699…26d7 at001f = ╱58╱X╱ // 0x26b8 @0x1f
0x2699…26d7 at0020 = ╱54╱T╱ // 0x26b9 @0x20
0x2699…26d7 at0021 = ╱ef╱ $ ╱ // 0x26ba @0x21
0x2699…26d7 at0022 = ╱ec╱ , ╱ // 0x26bb @0x22
0x2699…26d7 at0023 = ╱4d╱M╱ // 0x26bc @0x23
0x2699…26d7 at0024 = ╱4f╱O╱ // 0x26bd @0x24
0x2699…26d7 at0025 = ╱4d╱M╱ // 0x26be @0x25
0x2699…26d7 at0026 = ╱53╱S╱ // 0x26bf @0x26
0x2699…26d7 at0027 = ╱5f╱_╱ // 0x26c0 @0x27
0x2699…26d7 at0028 = ╱4b╱K╱ // 0x26c1 @0x28
0x2699…26d7 at0029 = ╱52╱R╱ // 0x26c2 @0x29
0x2699…26d7 at002a = ╱ec╱ , ╱ // 0x26c3 @0x2a
0x2699…26d7 at002b = ╱50╱P╱ // 0x26c4 @0x2b
0x2699…26d7 at002c = ╱5f╱_╱ // 0x26c5 @0x2c
0x2699…26d7 at002d = ╱42╱B╱ // 0x26c6 @0x2d
0x2699…26d7 at002e = ╱4b╱K╱ // 0x26c7 @0x2e
0x2699…26d7 at002f = ╱52╱R╱ // 0x26c8 @0x2f
0x2699…26d7 at0030 = ╱ec╱ , ╱ // 0x26c9 @0x30
0x2699…26d7 at0031 = ╱50╱P╱ // 0x26ca @0x31
0x2699…26d7 at0032 = ╱5f╱_╱ // 0x26cb @0x32
0x2699…26d7 at0033 = ╱44╱D╱ // 0x26cc @0x33
0x2699…26d7 at0034 = ╱4b╱K╱ // 0x26cd @0x34
0x2699…26d7 at0035 = ╱ec╱ , ╱ // 0x26ce @0x35
0x2699…26d7 at0036 = ╱50╱P╱ // 0x26cf @0x36
0x2699…26d7 at0037 = ╱5f╱_╱ // 0x26d0 @0x37
0x2699…26d7 at0038 = ╱42╱B╱ // 0x26d1 @0x38
0x2699…26d7 at0039 = ╱4e╱N╱ // 0x26d2 @0x39
0x2699…26d7 at003a = ╱52╱R╱ // 0x26d3 @0x3a
0x2699…26d7 at003b = ╱ef╱ $ ╱ // 0x26d4 @0x3b
0x2699…26d7 at003c = ╱ee╱ ) ╱ // 0x26d5 @0x3c
0x2699…26d7 at003d = EOL // 0x26d6 @0x3d
0x2699…26d7 }
0x26d7…26f6 bce4 03860 LET P_BKR := 0 ; P_BNR $ := "*****"
0x26d7…26f6 LineComal80 {
0x26d7…26f6 ptr = 0xbce4 // 0x26d7 @0x0
0x26d7…26f6 lno = 0x0f14 // 0x26d9 @0x2
0x26d7…26f6 at0004 = ╱86╱ LET ╱ // 0x26db @0x4
0x26d7…26f6 at0005 = ╱50╱P╱ // 0x26dc @0x5
0x26d7…26f6 at0006 = ╱5f╱_╱ // 0x26dd @0x6
0x26d7…26f6 at0007 = ╱42╱B╱ // 0x26de @0x7
0x26d7…26f6 at0008 = ╱4b╱K╱ // 0x26df @0x8
0x26d7…26f6 at0009 = ╱52╱R╱ // 0x26e0 @0x9
0x26d7…26f6 at000a = ╱f0╱ := ╱ // 0x26e1 @0xa
0x26d7…26f6 at000b = ╱30╱0╱ // 0x26e2 @0xb
0x26d7…26f6 at000c = ╱f20000╱ // 0x26e3 @0xc
0x26d7…26f6 at000f = ╱ea╱ ; ╱ // 0x26e6 @0xf
0x26d7…26f6 at0010 = ╱50╱P╱ // 0x26e7 @0x10
0x26d7…26f6 at0011 = ╱5f╱_╱ // 0x26e8 @0x11
0x26d7…26f6 at0012 = ╱42╱B╱ // 0x26e9 @0x12
0x26d7…26f6 at0013 = ╱4e╱N╱ // 0x26ea @0x13
0x26d7…26f6 at0014 = ╱52╱R╱ // 0x26eb @0x14
0x26d7…26f6 at0015 = ╱ef╱ $ ╱ // 0x26ec @0x15
0x26d7…26f6 at0016 = ╱f0╱ := ╱ // 0x26ed @0x16
0x26d7…26f6 at0017 = ╱22╱"╱ // 0x26ee @0x17
0x26d7…26f6 at0018 = ╱2a╱*╱ // 0x26ef @0x18
0x26d7…26f6 at0019 = ╱2a╱*╱ // 0x26f0 @0x19
0x26d7…26f6 at001a = ╱2a╱*╱ // 0x26f1 @0x1a
0x26d7…26f6 at001b = ╱2a╱*╱ // 0x26f2 @0x1b
0x26d7…26f6 at001c = ╱2a╱*╱ // 0x26f3 @0x1c
0x26d7…26f6 at001d = ╱22╱"╱ // 0x26f4 @0x1d
0x26d7…26f6 at001e = EOL // 0x26f5 @0x1e
0x26d7…26f6 }
0x26f6…2707 bcf5 03870 CURSOR 4 , R_SLIN
0x26f6…2707 LineComal80 {
0x26f6…2707 ptr = 0xbcf5 // 0x26f6 @0x0
0x26f6…2707 lno = 0x0f1e // 0x26f8 @0x2
0x26f6…2707 at0004 = ╱a1╱ CURSOR ╱ // 0x26fa @0x4
0x26f6…2707 at0005 = ╱34╱4╱ // 0x26fb @0x5
0x26f6…2707 at0006 = ╱f20400╱ // 0x26fc @0x6
0x26f6…2707 at0009 = ╱ec╱ , ╱ // 0x26ff @0x9
0x26f6…2707 at000a = ╱52╱R╱ // 0x2700 @0xa
0x26f6…2707 at000b = ╱5f╱_╱ // 0x2701 @0xb
0x26f6…2707 at000c = ╱53╱S╱ // 0x2702 @0xc
0x26f6…2707 at000d = ╱4c╱L╱ // 0x2703 @0xd
0x26f6…2707 at000e = ╱49╱I╱ // 0x2704 @0xe
0x26f6…2707 at000f = ╱4e╱N╱ // 0x2705 @0xf
0x26f6…2707 at0010 = EOL // 0x2706 @0x10
0x26f6…2707 }
0x2707…274d bd3b 03880 PRINT "*…*…*…*…*…*…*…*…*…*…*……B…O…G…F…\…R…T……*…*…*…*…*…*…*…*…*…*…*…*" ;
0x2707…274d LineComal80 {
0x2707…274d ptr = 0xbd3b // 0x2707 @0x0
0x2707…274d lno = 0x0f28 // 0x2709 @0x2
0x2707…274d at0004 = ╱92╱ PRINT ╱ // 0x270b @0x4
0x2707…274d at0005 = ╱22╱"╱ // 0x270c @0x5
0x2707…274d at0006 = ╱2a╱*╱ // 0x270d @0x6
0x2707…274d at0007 = ╱20╱…╱ // 0x270e @0x7
0x2707…274d at0008 = ╱2a╱*╱ // 0x270f @0x8
0x2707…274d at0009 = ╱20╱…╱ // 0x2710 @0x9
0x2707…274d at000a = ╱2a╱*╱ // 0x2711 @0xa
0x2707…274d at000b = ╱20╱…╱ // 0x2712 @0xb
0x2707…274d at000c = ╱2a╱*╱ // 0x2713 @0xc
0x2707…274d at000d = ╱20╱…╱ // 0x2714 @0xd
0x2707…274d at000e = ╱2a╱*╱ // 0x2715 @0xe
0x2707…274d at000f = ╱20╱…╱ // 0x2716 @0xf
0x2707…274d at0010 = ╱2a╱*╱ // 0x2717 @0x10
0x2707…274d at0011 = ╱20╱…╱ // 0x2718 @0x11
0x2707…274d at0012 = ╱2a╱*╱ // 0x2719 @0x12
0x2707…274d at0013 = ╱20╱…╱ // 0x271a @0x13
0x2707…274d at0014 = ╱2a╱*╱ // 0x271b @0x14
0x2707…274d at0015 = ╱20╱…╱ // 0x271c @0x15
0x2707…274d at0016 = ╱2a╱*╱ // 0x271d @0x16
0x2707…274d at0017 = ╱20╱…╱ // 0x271e @0x17
0x2707…274d at0018 = ╱2a╱*╱ // 0x271f @0x18
0x2707…274d at0019 = ╱20╱…╱ // 0x2720 @0x19
0x2707…274d at001a = ╱2a╱*╱ // 0x2721 @0x1a
0x2707…274d at001b = ╱20╱…╱ // 0x2722 @0x1b
0x2707…274d at001c = ╱20╱…╱ // 0x2723 @0x1c
0x2707…274d at001d = ╱42╱B╱ // 0x2724 @0x1d
0x2707…274d at001e = ╱20╱…╱ // 0x2725 @0x1e
0x2707…274d at001f = ╱4f╱O╱ // 0x2726 @0x1f
0x2707…274d at0020 = ╱20╱…╱ // 0x2727 @0x20
0x2707…274d at0021 = ╱47╱G╱ // 0x2728 @0x21
0x2707…274d at0022 = ╱20╱…╱ // 0x2729 @0x22
0x2707…274d at0023 = ╱46╱F╱ // 0x272a @0x23
0x2707…274d at0024 = ╱20╱…╱ // 0x272b @0x24
0x2707…274d at0025 = ╱5c╱\╱ // 0x272c @0x25
0x2707…274d at0026 = ╱20╱…╱ // 0x272d @0x26
0x2707…274d at0027 = ╱52╱R╱ // 0x272e @0x27
0x2707…274d at0028 = ╱20╱…╱ // 0x272f @0x28
0x2707…274d at0029 = ╱54╱T╱ // 0x2730 @0x29
0x2707…274d at002a = ╱20╱…╱ // 0x2731 @0x2a
0x2707…274d at002b = ╱20╱…╱ // 0x2732 @0x2b
0x2707…274d at002c = ╱2a╱*╱ // 0x2733 @0x2c
0x2707…274d at002d = ╱20╱…╱ // 0x2734 @0x2d
0x2707…274d at002e = ╱2a╱*╱ // 0x2735 @0x2e
0x2707…274d at002f = ╱20╱…╱ // 0x2736 @0x2f
0x2707…274d at0030 = ╱2a╱*╱ // 0x2737 @0x30
0x2707…274d at0031 = ╱20╱…╱ // 0x2738 @0x31
0x2707…274d at0032 = ╱2a╱*╱ // 0x2739 @0x32
0x2707…274d at0033 = ╱20╱…╱ // 0x273a @0x33
0x2707…274d at0034 = ╱2a╱*╱ // 0x273b @0x34
0x2707…274d at0035 = ╱20╱…╱ // 0x273c @0x35
0x2707…274d at0036 = ╱2a╱*╱ // 0x273d @0x36
0x2707…274d at0037 = ╱20╱…╱ // 0x273e @0x37
0x2707…274d at0038 = ╱2a╱*╱ // 0x273f @0x38
0x2707…274d at0039 = ╱20╱…╱ // 0x2740 @0x39
0x2707…274d at003a = ╱2a╱*╱ // 0x2741 @0x3a
0x2707…274d at003b = ╱20╱…╱ // 0x2742 @0x3b
0x2707…274d at003c = ╱2a╱*╱ // 0x2743 @0x3c
0x2707…274d at003d = ╱20╱…╱ // 0x2744 @0x3d
0x2707…274d at003e = ╱2a╱*╱ // 0x2745 @0x3e
0x2707…274d at003f = ╱20╱…╱ // 0x2746 @0x3f
0x2707…274d at0040 = ╱2a╱*╱ // 0x2747 @0x40
0x2707…274d at0041 = ╱20╱…╱ // 0x2748 @0x41
0x2707…274d at0042 = ╱2a╱*╱ // 0x2749 @0x42
0x2707…274d at0043 = ╱22╱"╱ // 0x274a @0x43
0x2707…274d at0044 = ╱ea╱ ; ╱ // 0x274b @0x44
0x2707…274d at0045 = EOL // 0x274c @0x45
0x2707…274d }
0x274d…2763 bd51 03890 PRINT SPC $ ( 1 : 10 )
0x274d…2763 LineComal80 {
0x274d…2763 ptr = 0xbd51 // 0x274d @0x0
0x274d…2763 lno = 0x0f32 // 0x274f @0x2
0x274d…2763 at0004 = ╱92╱ PRINT ╱ // 0x2751 @0x4
0x274d…2763 at0005 = ╱53╱S╱ // 0x2752 @0x5
0x274d…2763 at0006 = ╱50╱P╱ // 0x2753 @0x6
0x274d…2763 at0007 = ╱43╱C╱ // 0x2754 @0x7
0x274d…2763 at0008 = ╱ef╱ $ ╱ // 0x2755 @0x8
0x274d…2763 at0009 = ╱ed╱ ( ╱ // 0x2756 @0x9
0x274d…2763 at000a = ╱31╱1╱ // 0x2757 @0xa
0x274d…2763 at000b = ╱f20100╱ // 0x2758 @0xb
0x274d…2763 at000e = ╱f1╱ : ╱ // 0x275b @0xe
0x274d…2763 at000f = ╱31╱1╱ // 0x275c @0xf
0x274d…2763 at0010 = ╱30╱0╱ // 0x275d @0x10
0x274d…2763 at0011 = ╱f20a00╱ // 0x275e @0x11
0x274d…2763 at0014 = ╱ee╱ ) ╱ // 0x2761 @0x14
0x274d…2763 at0015 = EOL // 0x2762 @0x15
0x274d…2763 }
0x2763…2778 bd66 03900 EXEC SKRIV_DG_POS ( K )
0x2763…2778 LineComal80 {
0x2763…2778 ptr = 0xbd66 // 0x2763 @0x0
0x2763…2778 lno = 0x0f3c // 0x2765 @0x2
0x2763…2778 at0004 = ╱9d╱ EXEC ╱ // 0x2767 @0x4
0x2763…2778 at0005 = ╱53╱S╱ // 0x2768 @0x5
0x2763…2778 at0006 = ╱4b╱K╱ // 0x2769 @0x6
0x2763…2778 at0007 = ╱52╱R╱ // 0x276a @0x7
0x2763…2778 at0008 = ╱49╱I╱ // 0x276b @0x8
0x2763…2778 at0009 = ╱56╱V╱ // 0x276c @0x9
0x2763…2778 at000a = ╱5f╱_╱ // 0x276d @0xa
0x2763…2778 at000b = ╱44╱D╱ // 0x276e @0xb
0x2763…2778 at000c = ╱47╱G╱ // 0x276f @0xc
0x2763…2778 at000d = ╱5f╱_╱ // 0x2770 @0xd
0x2763…2778 at000e = ╱50╱P╱ // 0x2771 @0xe
0x2763…2778 at000f = ╱4f╱O╱ // 0x2772 @0xf
0x2763…2778 at0010 = ╱53╱S╱ // 0x2773 @0x10
0x2763…2778 at0011 = ╱ed╱ ( ╱ // 0x2774 @0x11
0x2763…2778 at0012 = ╱4b╱K╱ // 0x2775 @0x12
0x2763…2778 at0013 = ╱ee╱ ) ╱ // 0x2776 @0x13
0x2763…2778 at0014 = EOL // 0x2777 @0x14
0x2763…2778 }
0x2778…277e bd6c 03910 ENDIF
0x2778…277e LineComal80 {
0x2778…277e ptr = 0xbd6c // 0x2778 @0x0
0x2778…277e lno = 0x0f46 // 0x277a @0x2
0x2778…277e at0004 = ╱9c╱ ENDIF ╱ // 0x277c @0x4
0x2778…277e at0005 = EOL // 0x277d @0x5
0x2778…277e }
0x277e…2785 bd73 03920 NEXT K
0x277e…2785 LineComal80 {
0x277e…2785 ptr = 0xbd73 // 0x277e @0x0
0x277e…2785 lno = 0x0f50 // 0x2780 @0x2
0x277e…2785 at0004 = ╱84╱ NEXT ╱ // 0x2782 @0x4
0x277e…2785 at0005 = ╱4b╱K╱ // 0x2783 @0x5
0x277e…2785 at0006 = EOL // 0x2784 @0x6
0x277e…2785 }
0x2785…27aa bd98 03930 LET P_H\JREC := 1 ; P_DEB , P_KRED := 0
0x2785…27aa LineComal80 {
0x2785…27aa ptr = 0xbd98 // 0x2785 @0x0
0x2785…27aa lno = 0x0f5a // 0x2787 @0x2
0x2785…27aa at0004 = ╱86╱ LET ╱ // 0x2789 @0x4
0x2785…27aa at0005 = ╱50╱P╱ // 0x278a @0x5
0x2785…27aa at0006 = ╱5f╱_╱ // 0x278b @0x6
0x2785…27aa at0007 = ╱48╱H╱ // 0x278c @0x7
0x2785…27aa at0008 = ╱5c╱\╱ // 0x278d @0x8
0x2785…27aa at0009 = ╱4a╱J╱ // 0x278e @0x9
0x2785…27aa at000a = ╱52╱R╱ // 0x278f @0xa
0x2785…27aa at000b = ╱45╱E╱ // 0x2790 @0xb
0x2785…27aa at000c = ╱43╱C╱ // 0x2791 @0xc
0x2785…27aa at000d = ╱f0╱ := ╱ // 0x2792 @0xd
0x2785…27aa at000e = ╱31╱1╱ // 0x2793 @0xe
0x2785…27aa at000f = ╱f20100╱ // 0x2794 @0xf
0x2785…27aa at0012 = ╱ea╱ ; ╱ // 0x2797 @0x12
0x2785…27aa at0013 = ╱50╱P╱ // 0x2798 @0x13
0x2785…27aa at0014 = ╱5f╱_╱ // 0x2799 @0x14
0x2785…27aa at0015 = ╱44╱D╱ // 0x279a @0x15
0x2785…27aa at0016 = ╱45╱E╱ // 0x279b @0x16
0x2785…27aa at0017 = ╱42╱B╱ // 0x279c @0x17
0x2785…27aa at0018 = ╱ec╱ , ╱ // 0x279d @0x18
0x2785…27aa at0019 = ╱50╱P╱ // 0x279e @0x19
0x2785…27aa at001a = ╱5f╱_╱ // 0x279f @0x1a
0x2785…27aa at001b = ╱4b╱K╱ // 0x27a0 @0x1b
0x2785…27aa at001c = ╱52╱R╱ // 0x27a1 @0x1c
0x2785…27aa at001d = ╱45╱E╱ // 0x27a2 @0x1d
0x2785…27aa at001e = ╱44╱D╱ // 0x27a3 @0x1e
0x2785…27aa at001f = ╱f0╱ := ╱ // 0x27a4 @0x1f
0x2785…27aa at0020 = ╱30╱0╱ // 0x27a5 @0x20
0x2785…27aa at0021 = ╱f20000╱ // 0x27a6 @0x21
0x2785…27aa at0024 = EOL // 0x27a9 @0x24
0x2785…27aa }
0x27aa…27ef bddd 03940 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x27aa…27ef LineComal80 {
0x27aa…27ef ptr = 0xbddd // 0x27aa @0x0
0x27aa…27ef lno = 0x0f64 // 0x27ac @0x2
0x27aa…27ef at0004 = ╱aa╱ PUT ╱ // 0x27ae @0x4
0x27aa…27ef at0005 = ╱44╱D╱ // 0x27af @0x5
0x27aa…27ef at0006 = ╱47╱G╱ // 0x27b0 @0x6
0x27aa…27ef at0007 = ╱5f╱_╱ // 0x27b1 @0x7
0x27aa…27ef at0008 = ╱50╱P╱ // 0x27b2 @0x8
0x27aa…27ef at0009 = ╱4f╱O╱ // 0x27b3 @0x9
0x27aa…27ef at000a = ╱53╱S╱ // 0x27b4 @0xa
0x27aa…27ef at000b = ╱ef╱ $ ╱ // 0x27b5 @0xb
0x27aa…27ef at000c = ╱ec╱ , ╱ // 0x27b6 @0xc
0x27aa…27ef at000d = ╱31╱1╱ // 0x27b7 @0xd
0x27aa…27ef at000e = ╱f20100╱ // 0x27b8 @0xe
0x27aa…27ef at0011 = ╱f1╱ : ╱ // 0x27bb @0x11
0x27aa…27ef at0012 = ╱50╱P╱ // 0x27bc @0x12
0x27aa…27ef at0013 = ╱5f╱_╱ // 0x27bd @0x13
0x27aa…27ef at0014 = ╱48╱H╱ // 0x27be @0x14
0x27aa…27ef at0015 = ╱5c╱\╱ // 0x27bf @0x15
0x27aa…27ef at0016 = ╱4a╱J╱ // 0x27c0 @0x16
0x27aa…27ef at0017 = ╱52╱R╱ // 0x27c1 @0x17
0x27aa…27ef at0018 = ╱45╱E╱ // 0x27c2 @0x18
0x27aa…27ef at0019 = ╱43╱C╱ // 0x27c3 @0x19
0x27aa…27ef at001a = ╱ec╱ , ╱ // 0x27c4 @0x1a
0x27aa…27ef at001b = ╱50╱P╱ // 0x27c5 @0x1b
0x27aa…27ef at001c = ╱5f╱_╱ // 0x27c6 @0x1c
0x27aa…27ef at001d = ╱4d╱M╱ // 0x27c7 @0x1d
0x27aa…27ef at001e = ╱41╱A╱ // 0x27c8 @0x1e
0x27aa…27ef at001f = ╱58╱X╱ // 0x27c9 @0x1f
0x27aa…27ef at0020 = ╱52╱R╱ // 0x27ca @0x20
0x27aa…27ef at0021 = ╱45╱E╱ // 0x27cb @0x21
0x27aa…27ef at0022 = ╱43╱C╱ // 0x27cc @0x22
0x27aa…27ef at0023 = ╱ec╱ , ╱ // 0x27cd @0x23
0x27aa…27ef at0024 = ╱53╱S╱ // 0x27ce @0x24
0x27aa…27ef at0025 = ╱5f╱_╱ // 0x27cf @0x25
0x27aa…27ef at0026 = ╱4e╱N╱ // 0x27d0 @0x26
0x27aa…27ef at0027 = ╱52╱R╱ // 0x27d1 @0x27
0x27aa…27ef at0028 = ╱5f╱_╱ // 0x27d2 @0x28
0x27aa…27ef at0029 = ╱44╱D╱ // 0x27d3 @0x29
0x27aa…27ef at002a = ╱47╱G╱ // 0x27d4 @0x2a
0x27aa…27ef at002b = ╱5f╱_╱ // 0x27d5 @0x2b
0x27aa…27ef at002c = ╱50╱P╱ // 0x27d6 @0x2c
0x27aa…27ef at002d = ╱4f╱O╱ // 0x27d7 @0x2d
0x27aa…27ef at002e = ╱53╱S╱ // 0x27d8 @0x2e
0x27aa…27ef at002f = ╱ec╱ , ╱ // 0x27d9 @0x2f
0x27aa…27ef at0030 = ╱50╱P╱ // 0x27da @0x30
0x27aa…27ef at0031 = ╱5f╱_╱ // 0x27db @0x31
0x27aa…27ef at0032 = ╱44╱D╱ // 0x27dc @0x32
0x27aa…27ef at0033 = ╱45╱E╱ // 0x27dd @0x33
0x27aa…27ef at0034 = ╱42╱B╱ // 0x27de @0x34
0x27aa…27ef at0035 = ╱ec╱ , ╱ // 0x27df @0x35
0x27aa…27ef at0036 = ╱50╱P╱ // 0x27e0 @0x36
0x27aa…27ef at0037 = ╱5f╱_╱ // 0x27e1 @0x37
0x27aa…27ef at0038 = ╱4b╱K╱ // 0x27e2 @0x38
0x27aa…27ef at0039 = ╱52╱R╱ // 0x27e3 @0x39
0x27aa…27ef at003a = ╱45╱E╱ // 0x27e4 @0x3a
0x27aa…27ef at003b = ╱44╱D╱ // 0x27e5 @0x3b
0x27aa…27ef at003c = ╱ec╱ , ╱ // 0x27e6 @0x3c
0x27aa…27ef at003d = ╱50╱P╱ // 0x27e7 @0x3d
0x27aa…27ef at003e = ╱5f╱_╱ // 0x27e8 @0x3e
0x27aa…27ef at003f = ╱42╱B╱ // 0x27e9 @0x3f
0x27aa…27ef at0040 = ╱44╱D╱ // 0x27ea @0x40
0x27aa…27ef at0041 = ╱41╱A╱ // 0x27eb @0x41
0x27aa…27ef at0042 = ╱54╱T╱ // 0x27ec @0x42
0x27aa…27ef at0043 = ╱ef╱ $ ╱ // 0x27ed @0x43
0x27aa…27ef at0044 = EOL // 0x27ee @0x44
0x27aa…27ef }
0x27ef…2802 bdf0 03950 ENDPROC BOGF\R_POSTER
0x27ef…2802 LineComal80 {
0x27ef…2802 ptr = 0xbdf0 // 0x27ef @0x0
0x27ef…2802 lno = 0x0f6e // 0x27f1 @0x2
0x27ef…2802 at0004 = ╱9f╱ ENDPROC ╱ // 0x27f3 @0x4
0x27ef…2802 at0005 = ╱42╱B╱ // 0x27f4 @0x5
0x27ef…2802 at0006 = ╱4f╱O╱ // 0x27f5 @0x6
0x27ef…2802 at0007 = ╱47╱G╱ // 0x27f6 @0x7
0x27ef…2802 at0008 = ╱46╱F╱ // 0x27f7 @0x8
0x27ef…2802 at0009 = ╱5c╱\╱ // 0x27f8 @0x9
0x27ef…2802 at000a = ╱52╱R╱ // 0x27f9 @0xa
0x27ef…2802 at000b = ╱5f╱_╱ // 0x27fa @0xb
0x27ef…2802 at000c = ╱50╱P╱ // 0x27fb @0xc
0x27ef…2802 at000d = ╱4f╱O╱ // 0x27fc @0xd
0x27ef…2802 at000e = ╱53╱S╱ // 0x27fd @0xe
0x27ef…2802 at000f = ╱54╱T╱ // 0x27fe @0xf
0x27ef…2802 at0010 = ╱45╱E╱ // 0x27ff @0x10
0x27ef…2802 at0011 = ╱52╱R╱ // 0x2800 @0x11
0x27ef…2802 at0012 = EOL // 0x2801 @0x12
0x27ef…2802 }
0x2802…2811 bdff 03960 PROC FKT_MENU
0x2802…2811 LineComal80 {
0x2802…2811 ptr = 0xbdff // 0x2802 @0x0
0x2802…2811 lno = 0x0f78 // 0x2804 @0x2
0x2802…2811 at0004 = ╱9e00╱ PROC ╱ // 0x2806 @0x4
0x2802…2811 at0006 = ╱46╱F╱ // 0x2808 @0x6
0x2802…2811 at0007 = ╱4b╱K╱ // 0x2809 @0x7
0x2802…2811 at0008 = ╱54╱T╱ // 0x280a @0x8
0x2802…2811 at0009 = ╱5f╱_╱ // 0x280b @0x9
0x2802…2811 at000a = ╱4d╱M╱ // 0x280c @0xa
0x2802…2811 at000b = ╱45╱E╱ // 0x280d @0xb
0x2802…2811 at000c = ╱4e╱N╱ // 0x280e @0xc
0x2802…2811 at000d = ╱55╱U╱ // 0x280f @0xd
0x2802…2811 at000e = EOL // 0x2810 @0xe
0x2802…2811 }
0x2811…2825 be13 03970 EXEC UDSKRIV_POSTER
0x2811…2825 LineComal80 {
0x2811…2825 ptr = 0xbe13 // 0x2811 @0x0
0x2811…2825 lno = 0x0f82 // 0x2813 @0x2
0x2811…2825 at0004 = ╱9d╱ EXEC ╱ // 0x2815 @0x4
0x2811…2825 at0005 = ╱55╱U╱ // 0x2816 @0x5
0x2811…2825 at0006 = ╱44╱D╱ // 0x2817 @0x6
0x2811…2825 at0007 = ╱53╱S╱ // 0x2818 @0x7
0x2811…2825 at0008 = ╱4b╱K╱ // 0x2819 @0x8
0x2811…2825 at0009 = ╱52╱R╱ // 0x281a @0x9
0x2811…2825 at000a = ╱49╱I╱ // 0x281b @0xa
0x2811…2825 at000b = ╱56╱V╱ // 0x281c @0xb
0x2811…2825 at000c = ╱5f╱_╱ // 0x281d @0xc
0x2811…2825 at000d = ╱50╱P╱ // 0x281e @0xd
0x2811…2825 at000e = ╱4f╱O╱ // 0x281f @0xe
0x2811…2825 at000f = ╱53╱S╱ // 0x2820 @0xf
0x2811…2825 at0010 = ╱54╱T╱ // 0x2821 @0x10
0x2811…2825 at0011 = ╱45╱E╱ // 0x2822 @0x11
0x2811…2825 at0012 = ╱52╱R╱ // 0x2823 @0x12
0x2811…2825 at0013 = EOL // 0x2824 @0x13
0x2811…2825 }
0x2825…2838 be26 03980 EXEC BOGF\R_POSTER
0x2825…2838 LineComal80 {
0x2825…2838 ptr = 0xbe26 // 0x2825 @0x0
0x2825…2838 lno = 0x0f8c // 0x2827 @0x2
0x2825…2838 at0004 = ╱9d╱ EXEC ╱ // 0x2829 @0x4
0x2825…2838 at0005 = ╱42╱B╱ // 0x282a @0x5
0x2825…2838 at0006 = ╱4f╱O╱ // 0x282b @0x6
0x2825…2838 at0007 = ╱47╱G╱ // 0x282c @0x7
0x2825…2838 at0008 = ╱46╱F╱ // 0x282d @0x8
0x2825…2838 at0009 = ╱5c╱\╱ // 0x282e @0x9
0x2825…2838 at000a = ╱52╱R╱ // 0x282f @0xa
0x2825…2838 at000b = ╱5f╱_╱ // 0x2830 @0xb
0x2825…2838 at000c = ╱50╱P╱ // 0x2831 @0xc
0x2825…2838 at000d = ╱4f╱O╱ // 0x2832 @0xd
0x2825…2838 at000e = ╱53╱S╱ // 0x2833 @0xe
0x2825…2838 at000f = ╱54╱T╱ // 0x2834 @0xf
0x2825…2838 at0010 = ╱45╱E╱ // 0x2835 @0x10
0x2825…2838 at0011 = ╱52╱R╱ // 0x2836 @0x11
0x2825…2838 at0012 = EOL // 0x2837 @0x12
0x2825…2838 }
0x2838…2846 be34 03990 ENDPROC FKT_MENU
0x2838…2846 LineComal80 {
0x2838…2846 ptr = 0xbe34 // 0x2838 @0x0
0x2838…2846 lno = 0x0f96 // 0x283a @0x2
0x2838…2846 at0004 = ╱9f╱ ENDPROC ╱ // 0x283c @0x4
0x2838…2846 at0005 = ╱46╱F╱ // 0x283d @0x5
0x2838…2846 at0006 = ╱4b╱K╱ // 0x283e @0x6
0x2838…2846 at0007 = ╱54╱T╱ // 0x283f @0x7
0x2838…2846 at0008 = ╱5f╱_╱ // 0x2840 @0x8
0x2838…2846 at0009 = ╱4d╱M╱ // 0x2841 @0x9
0x2838…2846 at000a = ╱45╱E╱ // 0x2842 @0xa
0x2838…2846 at000b = ╱4e╱N╱ // 0x2843 @0xb
0x2838…2846 at000c = ╱55╱U╱ // 0x2844 @0xc
0x2838…2846 at000d = EOL // 0x2845 @0xd
0x2838…2846 }
0x2846…284c c11e 04000 //
0x2846…284c LineComal80 {
0x2846…284c ptr = 0xc11e // 0x2846 @0x0
0x2846…284c lno = 0x0fa0 // 0x2848 @0x2
0x2846…284c at0004 = ╱89╱ // ╱ // 0x284a @0x4
0x2846…284c at0005 = EOL // 0x284b @0x5
0x2846…284c }
0x284c…287f be6d 09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x284c…287f LineComal80 {
0x284c…287f ptr = 0xbe6d // 0x284c @0x0
0x284c…287f lno = 0x26ad // 0x284e @0x2
0x284c…287f at0004 = ╱9e00╱ PROC ╱ // 0x2850 @0x4
0x284c…287f at0006 = ╱50╱P╱ // 0x2852 @0x6
0x284c…287f at0007 = ╱52╱R╱ // 0x2853 @0x7
0x284c…287f at0008 = ╱49╱I╱ // 0x2854 @0x8
0x284c…287f at0009 = ╱4e╱N╱ // 0x2855 @0x9
0x284c…287f at000a = ╱54╱T╱ // 0x2856 @0xa
0x284c…287f at000b = ╱52╱R╱ // 0x2857 @0xb
0x284c…287f at000c = ╱45╱E╱ // 0x2858 @0xc
0x284c…287f at000d = ╱53╱S╱ // 0x2859 @0xd
0x284c…287f at000e = ╱ed╱ ( ╱ // 0x285a @0xe
0x284c…287f at000f = ╱50╱P╱ // 0x285b @0xf
0x284c…287f at0010 = ╱41╱A╱ // 0x285c @0x10
0x284c…287f at0011 = ╱47╱G╱ // 0x285d @0x11
0x284c…287f at0012 = ╱45╱E╱ // 0x285e @0x12
0x284c…287f at0013 = ╱54╱T╱ // 0x285f @0x13
0x284c…287f at0014 = ╱59╱Y╱ // 0x2860 @0x14
0x284c…287f at0015 = ╱50╱P╱ // 0x2861 @0x15
0x284c…287f at0016 = ╱45╱E╱ // 0x2862 @0x16
0x284c…287f at0017 = ╱ef╱ $ ╱ // 0x2863 @0x17
0x284c…287f at0018 = ╱ec╱ , ╱ // 0x2864 @0x18
0x284c…287f at0019 = ╱4c╱L╱ // 0x2865 @0x19
0x284c…287f at001a = ╱49╱I╱ // 0x2866 @0x1a
0x284c…287f at001b = ╱4e╱N╱ // 0x2867 @0x1b
0x284c…287f at001c = ╱45╱E╱ // 0x2868 @0x1c
0x284c…287f at001d = ╱ee╱ ) ╱ // 0x2869 @0x1d
0x284c…287f at001e = ╱89╱ // ╱ // 0x286a @0x1e
0x284c…287f at001f = ╱50╱P╱ // 0x286b @0x1f
0x284c…287f at0020 = ╱52╱R╱ // 0x286c @0x20
0x284c…287f at0021 = ╱49╱I╱ // 0x286d @0x21
0x284c…287f at0022 = ╱4e╱N╱ // 0x286e @0x22
0x284c…287f at0023 = ╱54╱T╱ // 0x286f @0x23
0x284c…287f at0024 = ╱45╱E╱ // 0x2870 @0x24
0x284c…287f at0025 = ╱52╱R╱ // 0x2871 @0x25
0x284c…287f at0026 = ╱20╱…╱ // 0x2872 @0x26
0x284c…287f at0027 = ╱52╱R╱ // 0x2873 @0x27
0x284c…287f at0028 = ╱45╱E╱ // 0x2874 @0x28
0x284c…287f at0029 = ╱53╱S╱ // 0x2875 @0x29
0x284c…287f at002a = ╱45╱E╱ // 0x2876 @0x2a
0x284c…287f at002b = ╱52╱R╱ // 0x2877 @0x2b
0x284c…287f at002c = ╱56╱V╱ // 0x2878 @0x2c
0x284c…287f at002d = ╱41╱A╱ // 0x2879 @0x2d
0x284c…287f at002e = ╱54╱T╱ // 0x287a @0x2e
0x284c…287f at002f = ╱49╱I╱ // 0x287b @0x2f
0x284c…287f at0030 = ╱4f╱O╱ // 0x287c @0x30
0x284c…287f at0031 = ╱4e╱N╱ // 0x287d @0x31
0x284c…287f at0032 = EOL // 0x287e @0x32
0x284c…287f }
0x287f…2897 be85 09902 LET PRTNR $ := "1" ; OK := TRUE
0x287f…2897 LineComal80 {
0x287f…2897 ptr = 0xbe85 // 0x287f @0x0
0x287f…2897 lno = 0x26ae // 0x2881 @0x2
0x287f…2897 at0004 = ╱86╱ LET ╱ // 0x2883 @0x4
0x287f…2897 at0005 = ╱50╱P╱ // 0x2884 @0x5
0x287f…2897 at0006 = ╱52╱R╱ // 0x2885 @0x6
0x287f…2897 at0007 = ╱54╱T╱ // 0x2886 @0x7
0x287f…2897 at0008 = ╱4e╱N╱ // 0x2887 @0x8
0x287f…2897 at0009 = ╱52╱R╱ // 0x2888 @0x9
0x287f…2897 at000a = ╱ef╱ $ ╱ // 0x2889 @0xa
0x287f…2897 at000b = ╱f0╱ := ╱ // 0x288a @0xb
0x287f…2897 at000c = ╱22╱"╱ // 0x288b @0xc
0x287f…2897 at000d = ╱31╱1╱ // 0x288c @0xd
0x287f…2897 at000e = ╱22╱"╱ // 0x288d @0xe
0x287f…2897 at000f = ╱ea╱ ; ╱ // 0x288e @0xf
0x287f…2897 at0010 = ╱4f╱O╱ // 0x288f @0x10
0x287f…2897 at0011 = ╱4b╱K╱ // 0x2890 @0x11
0x287f…2897 at0012 = ╱f0╱ := ╱ // 0x2891 @0x12
0x287f…2897 at0013 = ╱54╱T╱ // 0x2892 @0x13
0x287f…2897 at0014 = ╱52╱R╱ // 0x2893 @0x14
0x287f…2897 at0015 = ╱55╱U╱ // 0x2894 @0x15
0x287f…2897 at0016 = ╱45╱E╱ // 0x2895 @0x16
0x287f…2897 at0017 = EOL // 0x2896 @0x17
0x287f…2897 }
0x2897…289e be8c 09903 REPEAT
0x2897…289e LineComal80 {
0x2897…289e ptr = 0xbe8c // 0x2897 @0x0
0x2897…289e lno = 0x26af // 0x2899 @0x2
0x2897…289e at0004 = ╱9700╱ REPEAT ╱ // 0x289b @0x4
0x2897…289e at0006 = EOL // 0x289d @0x6
0x2897…289e }
0x289e…28ae be9c 09904 CURSOR 15 , LINE
0x289e…28ae LineComal80 {
0x289e…28ae ptr = 0xbe9c // 0x289e @0x0
0x289e…28ae lno = 0x26b0 // 0x28a0 @0x2
0x289e…28ae at0004 = ╱a1╱ CURSOR ╱ // 0x28a2 @0x4
0x289e…28ae at0005 = ╱31╱1╱ // 0x28a3 @0x5
0x289e…28ae at0006 = ╱35╱5╱ // 0x28a4 @0x6
0x289e…28ae at0007 = ╱f20f00╱ // 0x28a5 @0x7
0x289e…28ae at000a = ╱ec╱ , ╱ // 0x28a8 @0xa
0x289e…28ae at000b = ╱4c╱L╱ // 0x28a9 @0xb
0x289e…28ae at000c = ╱49╱I╱ // 0x28aa @0xc
0x289e…28ae at000d = ╱4e╱N╱ // 0x28ab @0xd
0x289e…28ae at000e = ╱45╱E╱ // 0x28ac @0xe
0x289e…28ae at000f = EOL // 0x28ad @0xf
0x289e…28ae }
0x28ae…28e7 bed5 09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x28ae…28e7 LineComal80 {
0x28ae…28e7 ptr = 0xbed5 // 0x28ae @0x0
0x28ae…28e7 lno = 0x26b1 // 0x28b0 @0x2
0x28ae…28e7 at0004 = ╱b1╱ EDIT ╱ // 0x28b2 @0x4
0x28ae…28e7 at0005 = ╱22╱"╱ // 0x28b3 @0x5
0x28ae…28e7 at0006 = ╱3c╱<╱ // 0x28b4 @0x6
0x28ae…28e7 at0007 = ╱5a╱Z╱ // 0x28b5 @0x7
0x28ae…28e7 at0008 = ╱3e╱>╱ // 0x28b6 @0x8
0x28ae…28e7 at0009 = ╱55╱U╱ // 0x28b7 @0x9
0x28ae…28e7 at000a = ╱64╱d╱ // 0x28b8 @0xa
0x28ae…28e7 at000b = ╱73╱s╱ // 0x28b9 @0xb
0x28ae…28e7 at000c = ╱6b╱k╱ // 0x28ba @0xc
0x28ae…28e7 at000d = ╱72╱r╱ // 0x28bb @0xd
0x28ae…28e7 at000e = ╱69╱i╱ // 0x28bc @0xe
0x28ae…28e7 at000f = ╱76╱v╱ // 0x28bd @0xf
0x28ae…28e7 at0010 = ╱6e╱n╱ // 0x28be @0x10
0x28ae…28e7 at0011 = ╱69╱i╱ // 0x28bf @0x11
0x28ae…28e7 at0012 = ╱6e╱n╱ // 0x28c0 @0x12
0x28ae…28e7 at0013 = ╱67╱g╱ // 0x28c1 @0x13
0x28ae…28e7 at0014 = ╱20╱…╱ // 0x28c2 @0x14
0x28ae…28e7 at0015 = ╱70╱p╱ // 0x28c3 @0x15
0x28ae…28e7 at0016 = ╱7d╱}╱ // 0x28c4 @0x16
0x28ae…28e7 at0017 = ╱20╱…╱ // 0x28c5 @0x17
0x28ae…28e7 at0018 = ╱70╱p╱ // 0x28c6 @0x18
0x28ae…28e7 at0019 = ╱72╱r╱ // 0x28c7 @0x19
0x28ae…28e7 at001a = ╱69╱i╱ // 0x28c8 @0x1a
0x28ae…28e7 at001b = ╱6e╱n╱ // 0x28c9 @0x1b
0x28ae…28e7 at001c = ╱74╱t╱ // 0x28ca @0x1c
0x28ae…28e7 at001d = ╱65╱e╱ // 0x28cb @0x1d
0x28ae…28e7 at001e = ╱72╱r╱ // 0x28cc @0x1e
0x28ae…28e7 at001f = ╱20╱…╱ // 0x28cd @0x1f
0x28ae…28e7 at0020 = ╱6e╱n╱ // 0x28ce @0x20
0x28ae…28e7 at0021 = ╱72╱r╱ // 0x28cf @0x21
0x28ae…28e7 at0022 = ╱2e╱.╱ // 0x28d0 @0x22
0x28ae…28e7 at0023 = ╱20╱…╱ // 0x28d1 @0x23
0x28ae…28e7 at0024 = ╱3f╱?╱ // 0x28d2 @0x24
0x28ae…28e7 at0025 = ╱20╱…╱ // 0x28d3 @0x25
0x28ae…28e7 at0026 = ╱28╱(╱ // 0x28d4 @0x26
0x28ae…28e7 at0027 = ╱31╱1╱ // 0x28d5 @0x27
0x28ae…28e7 at0028 = ╱2f╱/╱ // 0x28d6 @0x28
0x28ae…28e7 at0029 = ╱32╱2╱ // 0x28d7 @0x29
0x28ae…28e7 at002a = ╱2f╱/╱ // 0x28d8 @0x2a
0x28ae…28e7 at002b = ╱33╱3╱ // 0x28d9 @0x2b
0x28ae…28e7 at002c = ╱2f╱/╱ // 0x28da @0x2c
0x28ae…28e7 at002d = ╱34╱4╱ // 0x28db @0x2d
0x28ae…28e7 at002e = ╱29╱)╱ // 0x28dc @0x2e
0x28ae…28e7 at002f = ╱20╱…╱ // 0x28dd @0x2f
0x28ae…28e7 at0030 = ╱22╱"╱ // 0x28de @0x30
0x28ae…28e7 at0031 = ╱f1╱ : ╱ // 0x28df @0x31
0x28ae…28e7 at0032 = ╱50╱P╱ // 0x28e0 @0x32
0x28ae…28e7 at0033 = ╱52╱R╱ // 0x28e1 @0x33
0x28ae…28e7 at0034 = ╱54╱T╱ // 0x28e2 @0x34
0x28ae…28e7 at0035 = ╱4e╱N╱ // 0x28e3 @0x35
0x28ae…28e7 at0036 = ╱52╱R╱ // 0x28e4 @0x36
0x28ae…28e7 at0037 = ╱ef╱ $ ╱ // 0x28e5 @0x37
0x28ae…28e7 at0038 = EOL // 0x28e6 @0x38
0x28ae…28e7 }
0x28e7…2907 bef5 09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x28e7…2907 LineComal80 {
0x28e7…2907 ptr = 0xbef5 // 0x28e7 @0x0
0x28e7…2907 lno = 0x26b2 // 0x28e9 @0x2
0x28e7…2907 at0004 = ╱98╱ UNTIL ╱ // 0x28eb @0x4
0x28e7…2907 at0005 = ╱22╱"╱ // 0x28ec @0x5
0x28e7…2907 at0006 = ╱2f╱/╱ // 0x28ed @0x6
0x28e7…2907 at0007 = ╱22╱"╱ // 0x28ee @0x7
0x28e7…2907 at0008 = ╱eb╱ + ╱ // 0x28ef @0x8
0x28e7…2907 at0009 = ╱50╱P╱ // 0x28f0 @0x9
0x28e7…2907 at000a = ╱52╱R╱ // 0x28f1 @0xa
0x28e7…2907 at000b = ╱54╱T╱ // 0x28f2 @0xb
0x28e7…2907 at000c = ╱4e╱N╱ // 0x28f3 @0xc
0x28e7…2907 at000d = ╱52╱R╱ // 0x28f4 @0xd
0x28e7…2907 at000e = ╱ef╱ $ ╱ // 0x28f5 @0xe
0x28e7…2907 at000f = ╱eb╱ + ╱ // 0x28f6 @0xf
0x28e7…2907 at0010 = ╱22╱"╱ // 0x28f7 @0x10
0x28e7…2907 at0011 = ╱2f╱/╱ // 0x28f8 @0x11
0x28e7…2907 at0012 = ╱22╱"╱ // 0x28f9 @0x12
0x28e7…2907 at0013 = ╱dc╱ IN ╱ // 0x28fa @0x13
0x28e7…2907 at0014 = ╱22╱"╱ // 0x28fb @0x14
0x28e7…2907 at0015 = ╱2f╱/╱ // 0x28fc @0x15
0x28e7…2907 at0016 = ╱31╱1╱ // 0x28fd @0x16
0x28e7…2907 at0017 = ╱2f╱/╱ // 0x28fe @0x17
0x28e7…2907 at0018 = ╱32╱2╱ // 0x28ff @0x18
0x28e7…2907 at0019 = ╱2f╱/╱ // 0x2900 @0x19
0x28e7…2907 at001a = ╱33╱3╱ // 0x2901 @0x1a
0x28e7…2907 at001b = ╱2f╱/╱ // 0x2902 @0x1b
0x28e7…2907 at001c = ╱34╱4╱ // 0x2903 @0x1c
0x28e7…2907 at001d = ╱2f╱/╱ // 0x2904 @0x1d
0x28e7…2907 at001e = ╱22╱"╱ // 0x2905 @0x1e
0x28e7…2907 at001f = EOL // 0x2906 @0x1f
0x28e7…2907 }
0x2907…292b bf19 09907 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x2907…292b LineComal80 {
0x2907…292b ptr = 0xbf19 // 0x2907 @0x0
0x2907…292b lno = 0x26b3 // 0x2909 @0x2
0x2907…292b at0004 = ╱a1╱ CURSOR ╱ // 0x290b @0x4
0x2907…292b at0005 = ╱ed╱ ( ╱ // 0x290c @0x5
0x2907…292b at0006 = ╱33╱3╱ // 0x290d @0x6
0x2907…292b at0007 = ╱39╱9╱ // 0x290e @0x7
0x2907…292b at0008 = ╱f22700╱ // 0x290f @0x8
0x2907…292b at000b = ╱e6╱ - ╱ // 0x2912 @0xb
0x2907…292b at000c = ╱cb╱ // 0x2913 @0xc
0x2907…292b at000d = ╱ed╱ ( ╱ // 0x2914 @0xd
0x2907…292b at000e = ╱50╱P╱ // 0x2915 @0xe
0x2907…292b at000f = ╱41╱A╱ // 0x2916 @0xf
0x2907…292b at0010 = ╱47╱G╱ // 0x2917 @0x10
0x2907…292b at0011 = ╱45╱E╱ // 0x2918 @0x11
0x2907…292b at0012 = ╱54╱T╱ // 0x2919 @0x12
0x2907…292b at0013 = ╱59╱Y╱ // 0x291a @0x13
0x2907…292b at0014 = ╱50╱P╱ // 0x291b @0x14
0x2907…292b at0015 = ╱45╱E╱ // 0x291c @0x15
0x2907…292b at0016 = ╱ef╱ $ ╱ // 0x291d @0x16
0x2907…292b at0017 = ╱ee╱ ) ╱ // 0x291e @0x17
0x2907…292b at0018 = ╱ee╱ ) ╱ // 0x291f @0x18
0x2907…292b at0019 = ╱da╱ DIV ╱ // 0x2920 @0x19
0x2907…292b at001a = ╱32╱2╱ // 0x2921 @0x1a
0x2907…292b at001b = ╱f20200╱ // 0x2922 @0x1b
0x2907…292b at001e = ╱ec╱ , ╱ // 0x2925 @0x1e
0x2907…292b at001f = ╱4c╱L╱ // 0x2926 @0x1f
0x2907…292b at0020 = ╱49╱I╱ // 0x2927 @0x20
0x2907…292b at0021 = ╱4e╱N╱ // 0x2928 @0x21
0x2907…292b at0022 = ╱45╱E╱ // 0x2929 @0x22
0x2907…292b at0023 = EOL // 0x292a @0x23
0x2907…292b }
0x292b…296b bf59 09908 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x292b…296b LineComal80 {
0x292b…296b ptr = 0xbf59 // 0x292b @0x0
0x292b…296b lno = 0x26b4 // 0x292d @0x2
0x292b…296b at0004 = ╱92╱ PRINT ╱ // 0x292f @0x4
0x292b…296b at0005 = ╱22╱"╱ // 0x2930 @0x5
0x292b…296b at0006 = ╱3c╱<╱ // 0x2931 @0x6
0x292b…296b at0007 = ╱53╱S╱ // 0x2932 @0x7
0x292b…296b at0008 = ╱5a╱Z╱ // 0x2933 @0x8
0x292b…296b at0009 = ╱3e╱>╱ // 0x2934 @0x9
0x292b…296b at000a = ╱20╱…╱ // 0x2935 @0xa
0x292b…296b at000b = ╱20╱…╱ // 0x2936 @0xb
0x292b…296b at000c = ╱20╱…╱ // 0x2937 @0xc
0x292b…296b at000d = ╱20╱…╱ // 0x2938 @0xd
0x292b…296b at000e = ╱20╱…╱ // 0x2939 @0xe
0x292b…296b at000f = ╱4d╱M╱ // 0x293a @0xf
0x292b…296b at0010 = ╱6f╱o╱ // 0x293b @0x10
0x292b…296b at0011 = ╱6e╱n╱ // 0x293c @0x11
0x292b…296b at0012 = ╱74╱t╱ // 0x293d @0x12
0x292b…296b at0013 = ╱65╱e╱ // 0x293e @0x13
0x292b…296b at0014 = ╱72╱r╱ // 0x293f @0x14
0x292b…296b at0015 = ╱20╱…╱ // 0x2940 @0x15
0x292b…296b at0016 = ╱22╱"╱ // 0x2941 @0x16
0x292b…296b at0017 = ╱ea╱ ; ╱ // 0x2942 @0x17
0x292b…296b at0018 = ╱50╱P╱ // 0x2943 @0x18
0x292b…296b at0019 = ╱41╱A╱ // 0x2944 @0x19
0x292b…296b at001a = ╱47╱G╱ // 0x2945 @0x1a
0x292b…296b at001b = ╱45╱E╱ // 0x2946 @0x1b
0x292b…296b at001c = ╱54╱T╱ // 0x2947 @0x1c
0x292b…296b at001d = ╱59╱Y╱ // 0x2948 @0x1d
0x292b…296b at001e = ╱50╱P╱ // 0x2949 @0x1e
0x292b…296b at001f = ╱45╱E╱ // 0x294a @0x1f
0x292b…296b at0020 = ╱ef╱ $ ╱ // 0x294b @0x20
0x292b…296b at0021 = ╱ea╱ ; ╱ // 0x294c @0x21
0x292b…296b at0022 = ╱22╱"╱ // 0x294d @0x22
0x292b…296b at0023 = ╱20╱…╱ // 0x294e @0x23
0x292b…296b at0024 = ╱69╱i╱ // 0x294f @0x24
0x292b…296b at0025 = ╱20╱…╱ // 0x2950 @0x25
0x292b…296b at0026 = ╱70╱p╱ // 0x2951 @0x26
0x292b…296b at0027 = ╱72╱r╱ // 0x2952 @0x27
0x292b…296b at0028 = ╱69╱i╱ // 0x2953 @0x28
0x292b…296b at0029 = ╱6e╱n╱ // 0x2954 @0x29
0x292b…296b at002a = ╱74╱t╱ // 0x2955 @0x2a
0x292b…296b at002b = ╱65╱e╱ // 0x2956 @0x2b
0x292b…296b at002c = ╱72╱r╱ // 0x2957 @0x2c
0x292b…296b at002d = ╱65╱e╱ // 0x2958 @0x2d
0x292b…296b at002e = ╱6e╱n╱ // 0x2959 @0x2e
0x292b…296b at002f = ╱20╱…╱ // 0x295a @0x2f
0x292b…296b at0030 = ╱2d╱-╱ // 0x295b @0x30
0x292b…296b at0031 = ╱20╱…╱ // 0x295c @0x31
0x292b…296b at0032 = ╱74╱t╱ // 0x295d @0x32
0x292b…296b at0033 = ╱72╱r╱ // 0x295e @0x33
0x292b…296b at0034 = ╱79╱y╱ // 0x295f @0x34
0x292b…296b at0035 = ╱6b╱k╱ // 0x2960 @0x35
0x292b…296b at0036 = ╱20╱…╱ // 0x2961 @0x36
0x292b…296b at0037 = ╱52╱R╱ // 0x2962 @0x37
0x292b…296b at0038 = ╱45╱E╱ // 0x2963 @0x38
0x292b…296b at0039 = ╱54╱T╱ // 0x2964 @0x39
0x292b…296b at003a = ╱55╱U╱ // 0x2965 @0x3a
0x292b…296b at003b = ╱52╱R╱ // 0x2966 @0x3b
0x292b…296b at003c = ╱4e╱N╱ // 0x2967 @0x3c
0x292b…296b at003d = ╱20╱…╱ // 0x2968 @0x3d
0x292b…296b at003e = ╱22╱"╱ // 0x2969 @0x3e
0x292b…296b at003f = EOL // 0x296a @0x3f
0x292b…296b }
0x296b…2979 bf67 09909 INPUT "" : SVAR $
0x296b…2979 LineComal80 {
0x296b…2979 ptr = 0xbf67 // 0x296b @0x0
0x296b…2979 lno = 0x26b5 // 0x296d @0x2
0x296b…2979 at0004 = ╱91╱ INPUT ╱ // 0x296f @0x4
0x296b…2979 at0005 = ╱22╱"╱ // 0x2970 @0x5
0x296b…2979 at0006 = ╱22╱"╱ // 0x2971 @0x6
0x296b…2979 at0007 = ╱f1╱ : ╱ // 0x2972 @0x7
0x296b…2979 at0008 = ╱53╱S╱ // 0x2973 @0x8
0x296b…2979 at0009 = ╱56╱V╱ // 0x2974 @0x9
0x296b…2979 at000a = ╱41╱A╱ // 0x2975 @0xa
0x296b…2979 at000b = ╱52╱R╱ // 0x2976 @0xb
0x296b…2979 at000c = ╱ef╱ $ ╱ // 0x2977 @0xc
0x296b…2979 at000d = EOL // 0x2978 @0xd
0x296b…2979 }
0x2979…2989 bf77 09910 SELECT OUTPUT "P" + PRTNR $
0x2979…2989 LineComal80 {
0x2979…2989 ptr = 0xbf77 // 0x2979 @0x0
0x2979…2989 lno = 0x26b6 // 0x297b @0x2
0x2979…2989 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x297d @0x4
0x2979…2989 at0005 = ╱22╱"╱ // 0x297e @0x5
0x2979…2989 at0006 = ╱50╱P╱ // 0x297f @0x6
0x2979…2989 at0007 = ╱22╱"╱ // 0x2980 @0x7
0x2979…2989 at0008 = ╱eb╱ + ╱ // 0x2981 @0x8
0x2979…2989 at0009 = ╱50╱P╱ // 0x2982 @0x9
0x2979…2989 at000a = ╱52╱R╱ // 0x2983 @0xa
0x2979…2989 at000b = ╱54╱T╱ // 0x2984 @0xb
0x2979…2989 at000c = ╱4e╱N╱ // 0x2985 @0xc
0x2979…2989 at000d = ╱52╱R╱ // 0x2986 @0xd
0x2979…2989 at000e = ╱ef╱ $ ╱ // 0x2987 @0xe
0x2979…2989 at000f = EOL // 0x2988 @0xf
0x2979…2989 }
0x2989…2997 bf85 09911 IF ( "P" ) THEN
0x2989…2997 LineComal80 {
0x2989…2997 ptr = 0xbf85 // 0x2989 @0x0
0x2989…2997 lno = 0x26b7 // 0x298b @0x2
0x2989…2997 at0004 = ╱9b00cd╱ IF ╱ // 0x298d @0x4
0x2989…2997 at0007 = ╱ed╱ ( ╱ // 0x2990 @0x7
0x2989…2997 at0008 = ╱22╱"╱ // 0x2991 @0x8
0x2989…2997 at0009 = ╱50╱P╱ // 0x2992 @0x9
0x2989…2997 at000a = ╱22╱"╱ // 0x2993 @0xa
0x2989…2997 at000b = ╱ee╱ ) ╱ // 0x2994 @0xb
0x2989…2997 at000c = ╱b5╱ THEN ╱ // 0x2995 @0xc
0x2989…2997 at000d = EOL // 0x2996 @0xd
0x2989…2997 }
0x2997…29a7 bf95 09912 CURSOR 12 , LINE
0x2997…29a7 LineComal80 {
0x2997…29a7 ptr = 0xbf95 // 0x2997 @0x0
0x2997…29a7 lno = 0x26b8 // 0x2999 @0x2
0x2997…29a7 at0004 = ╱a1╱ CURSOR ╱ // 0x299b @0x4
0x2997…29a7 at0005 = ╱31╱1╱ // 0x299c @0x5
0x2997…29a7 at0006 = ╱32╱2╱ // 0x299d @0x6
0x2997…29a7 at0007 = ╱f20c00╱ // 0x299e @0x7
0x2997…29a7 at000a = ╱ec╱ , ╱ // 0x29a1 @0xa
0x2997…29a7 at000b = ╱4c╱L╱ // 0x29a2 @0xb
0x2997…29a7 at000c = ╱49╱I╱ // 0x29a3 @0xc
0x2997…29a7 at000d = ╱4e╱N╱ // 0x29a4 @0xd
0x2997…29a7 at000e = ╱45╱E╱ // 0x29a5 @0xe
0x2997…29a7 at000f = EOL // 0x29a6 @0xf
0x2997…29a7 }
0x29a7…29de bfcc 09913 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x29a7…29de LineComal80 {
0x29a7…29de ptr = 0xbfcc // 0x29a7 @0x0
0x29a7…29de lno = 0x26b9 // 0x29a9 @0x2
0x29a7…29de at0004 = ╱92╱ PRINT ╱ // 0x29ab @0x4
0x29a7…29de at0005 = ╱22╱"╱ // 0x29ac @0x5
0x29a7…29de at0006 = ╱3c╱<╱ // 0x29ad @0x6
0x29a7…29de at0007 = ╱53╱S╱ // 0x29ae @0x7
0x29a7…29de at0008 = ╱5a╱Z╱ // 0x29af @0x8
0x29a7…29de at0009 = ╱3e╱>╱ // 0x29b0 @0x9
0x29a7…29de at000a = ╱50╱P╱ // 0x29b1 @0xa
0x29a7…29de at000b = ╱72╱r╱ // 0x29b2 @0xb
0x29a7…29de at000c = ╱69╱i╱ // 0x29b3 @0xc
0x29a7…29de at000d = ╱6e╱n╱ // 0x29b4 @0xd
0x29a7…29de at000e = ╱74╱t╱ // 0x29b5 @0xe
0x29a7…29de at000f = ╱65╱e╱ // 0x29b6 @0xf
0x29a7…29de at0010 = ╱72╱r╱ // 0x29b7 @0x10
0x29a7…29de at0011 = ╱65╱e╱ // 0x29b8 @0x11
0x29a7…29de at0012 = ╱6e╱n╱ // 0x29b9 @0x12
0x29a7…29de at0013 = ╱20╱…╱ // 0x29ba @0x13
0x29a7…29de at0014 = ╱65╱e╱ // 0x29bb @0x14
0x29a7…29de at0015 = ╱72╱r╱ // 0x29bc @0x15
0x29a7…29de at0016 = ╱20╱…╱ // 0x29bd @0x16
0x29a7…29de at0017 = ╱72╱r╱ // 0x29be @0x17
0x29a7…29de at0018 = ╱65╱e╱ // 0x29bf @0x18
0x29a7…29de at0019 = ╱73╱s╱ // 0x29c0 @0x19
0x29a7…29de at001a = ╱65╱e╱ // 0x29c1 @0x1a
0x29a7…29de at001b = ╱72╱r╱ // 0x29c2 @0x1b
0x29a7…29de at001c = ╱76╱v╱ // 0x29c3 @0x1c
0x29a7…29de at001d = ╱65╱e╱ // 0x29c4 @0x1d
0x29a7…29de at001e = ╱72╱r╱ // 0x29c5 @0x1e
0x29a7…29de at001f = ╱65╱e╱ // 0x29c6 @0x1f
0x29a7…29de at0020 = ╱74╱t╱ // 0x29c7 @0x20
0x29a7…29de at0021 = ╱20╱…╱ // 0x29c8 @0x21
0x29a7…29de at0022 = ╱61╱a╱ // 0x29c9 @0x22
0x29a7…29de at0023 = ╱66╱f╱ // 0x29ca @0x23
0x29a7…29de at0024 = ╱20╱…╱ // 0x29cb @0x24
0x29a7…29de at0025 = ╱65╱e╱ // 0x29cc @0x25
0x29a7…29de at0026 = ╱6e╱n╱ // 0x29cd @0x26
0x29a7…29de at0027 = ╱20╱…╱ // 0x29ce @0x27
0x29a7…29de at0028 = ╱61╱a╱ // 0x29cf @0x28
0x29a7…29de at0029 = ╱6e╱n╱ // 0x29d0 @0x29
0x29a7…29de at002a = ╱64╱d╱ // 0x29d1 @0x2a
0x29a7…29de at002b = ╱65╱e╱ // 0x29d2 @0x2b
0x29a7…29de at002c = ╱6e╱n╱ // 0x29d3 @0x2c
0x29a7…29de at002d = ╱20╱…╱ // 0x29d4 @0x2d
0x29a7…29de at002e = ╱62╱b╱ // 0x29d5 @0x2e
0x29a7…29de at002f = ╱72╱r╱ // 0x29d6 @0x2f
0x29a7…29de at0030 = ╱75╱u╱ // 0x29d7 @0x30
0x29a7…29de at0031 = ╱67╱g╱ // 0x29d8 @0x31
0x29a7…29de at0032 = ╱65╱e╱ // 0x29d9 @0x32
0x29a7…29de at0033 = ╱72╱r╱ // 0x29da @0x33
0x29a7…29de at0034 = ╱2c╱,╱ // 0x29db @0x34
0x29a7…29de at0035 = ╱22╱"╱ // 0x29dc @0x35
0x29a7…29de at0036 = EOL // 0x29dd @0x36
0x29a7…29de }
0x29de…29f3 bfe1 09914 CURSOR 12 , LINE + 1
0x29de…29f3 LineComal80 {
0x29de…29f3 ptr = 0xbfe1 // 0x29de @0x0
0x29de…29f3 lno = 0x26ba // 0x29e0 @0x2
0x29de…29f3 at0004 = ╱a1╱ CURSOR ╱ // 0x29e2 @0x4
0x29de…29f3 at0005 = ╱31╱1╱ // 0x29e3 @0x5
0x29de…29f3 at0006 = ╱32╱2╱ // 0x29e4 @0x6
0x29de…29f3 at0007 = ╱f20c00╱ // 0x29e5 @0x7
0x29de…29f3 at000a = ╱ec╱ , ╱ // 0x29e8 @0xa
0x29de…29f3 at000b = ╱4c╱L╱ // 0x29e9 @0xb
0x29de…29f3 at000c = ╱49╱I╱ // 0x29ea @0xc
0x29de…29f3 at000d = ╱4e╱N╱ // 0x29eb @0xd
0x29de…29f3 at000e = ╱45╱E╱ // 0x29ec @0xe
0x29de…29f3 at000f = ╱e5╱ + ╱ // 0x29ed @0xf
0x29de…29f3 at0010 = ╱31╱1╱ // 0x29ee @0x10
0x29de…29f3 at0011 = ╱f20100╱ // 0x29ef @0x11
0x29de…29f3 at0014 = EOL // 0x29f2 @0x14
0x29de…29f3 }
0x29f3…2a34 c022 09915 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x29f3…2a34 LineComal80 {
0x29f3…2a34 ptr = 0xc022 // 0x29f3 @0x0
0x29f3…2a34 lno = 0x26bb // 0x29f5 @0x2
0x29f3…2a34 at0004 = ╱91╱ INPUT ╱ // 0x29f7 @0x4
0x29f3…2a34 at0005 = ╱22╱"╱ // 0x29f8 @0x5
0x29f3…2a34 at0006 = ╱3c╱<╱ // 0x29f9 @0x6
0x29f3…2a34 at0007 = ╱53╱S╱ // 0x29fa @0x7
0x29f3…2a34 at0008 = ╱5a╱Z╱ // 0x29fb @0x8
0x29f3…2a34 at0009 = ╱3e╱>╱ // 0x29fc @0x9
0x29f3…2a34 at000a = ╱53╱S╱ // 0x29fd @0xa
0x29f3…2a34 at000b = ╱6b╱k╱ // 0x29fe @0xb
0x29f3…2a34 at000c = ╱61╱a╱ // 0x29ff @0xc
0x29f3…2a34 at000d = ╱6c╱l╱ // 0x2a00 @0xd
0x29f3…2a34 at000e = ╱20╱…╱ // 0x2a01 @0xe
0x29f3…2a34 at000f = ╱64╱d╱ // 0x2a02 @0xf
0x29f3…2a34 at0010 = ╱65╱e╱ // 0x2a03 @0x10
0x29f3…2a34 at0011 = ╱72╱r╱ // 0x2a04 @0x11
0x29f3…2a34 at0012 = ╱20╱…╱ // 0x2a05 @0x12
0x29f3…2a34 at0013 = ╱76╱v╱ // 0x2a06 @0x13
0x29f3…2a34 at0014 = ╱65╱e╱ // 0x2a07 @0x14
0x29f3…2a34 at0015 = ╱6e╱n╱ // 0x2a08 @0x15
0x29f3…2a34 at0016 = ╱74╱t╱ // 0x2a09 @0x16
0x29f3…2a34 at0017 = ╱65╱e╱ // 0x2a0a @0x17
0x29f3…2a34 at0018 = ╱73╱s╱ // 0x2a0b @0x18
0x29f3…2a34 at0019 = ╱20╱…╱ // 0x2a0c @0x19
0x29f3…2a34 at001a = ╱70╱p╱ // 0x2a0d @0x1a
0x29f3…2a34 at001b = ╱7d╱}╱ // 0x2a0e @0x1b
0x29f3…2a34 at001c = ╱20╱…╱ // 0x2a0f @0x1c
0x29f3…2a34 at001d = ╱61╱a╱ // 0x2a10 @0x1d
0x29f3…2a34 at001e = ╱74╱t╱ // 0x2a11 @0x1e
0x29f3…2a34 at001f = ╱20╱…╱ // 0x2a12 @0x1f
0x29f3…2a34 at0020 = ╱64╱d╱ // 0x2a13 @0x20
0x29f3…2a34 at0021 = ╱65╱e╱ // 0x2a14 @0x21
0x29f3…2a34 at0022 = ╱6e╱n╱ // 0x2a15 @0x22
0x29f3…2a34 at0023 = ╱20╱…╱ // 0x2a16 @0x23
0x29f3…2a34 at0024 = ╱62╱b╱ // 0x2a17 @0x24
0x29f3…2a34 at0025 = ╱6c╱l╱ // 0x2a18 @0x25
0x29f3…2a34 at0026 = ╱69╱i╱ // 0x2a19 @0x26
0x29f3…2a34 at0027 = ╱76╱v╱ // 0x2a1a @0x27
0x29f3…2a34 at0028 = ╱65╱e╱ // 0x2a1b @0x28
0x29f3…2a34 at0029 = ╱72╱r╱ // 0x2a1c @0x29
0x29f3…2a34 at002a = ╱20╱…╱ // 0x2a1d @0x2a
0x29f3…2a34 at002b = ╱6c╱l╱ // 0x2a1e @0x2b
0x29f3…2a34 at002c = ╱65╱e╱ // 0x2a1f @0x2c
0x29f3…2a34 at002d = ╱64╱d╱ // 0x2a20 @0x2d
0x29f3…2a34 at002e = ╱69╱i╱ // 0x2a21 @0x2e
0x29f3…2a34 at002f = ╱67╱g╱ // 0x2a22 @0x2f
0x29f3…2a34 at0030 = ╱20╱…╱ // 0x2a23 @0x30
0x29f3…2a34 at0031 = ╱3f╱?╱ // 0x2a24 @0x31
0x29f3…2a34 at0032 = ╱20╱…╱ // 0x2a25 @0x32
0x29f3…2a34 at0033 = ╱28╱(╱ // 0x2a26 @0x33
0x29f3…2a34 at0034 = ╱6a╱j╱ // 0x2a27 @0x34
0x29f3…2a34 at0035 = ╱2f╱/╱ // 0x2a28 @0x35
0x29f3…2a34 at0036 = ╱6e╱n╱ // 0x2a29 @0x36
0x29f3…2a34 at0037 = ╱29╱)╱ // 0x2a2a @0x37
0x29f3…2a34 at0038 = ╱20╱…╱ // 0x2a2b @0x38
0x29f3…2a34 at0039 = ╱22╱"╱ // 0x2a2c @0x39
0x29f3…2a34 at003a = ╱f1╱ : ╱ // 0x2a2d @0x3a
0x29f3…2a34 at003b = ╱53╱S╱ // 0x2a2e @0x3b
0x29f3…2a34 at003c = ╱56╱V╱ // 0x2a2f @0x3c
0x29f3…2a34 at003d = ╱41╱A╱ // 0x2a30 @0x3d
0x29f3…2a34 at003e = ╱52╱R╱ // 0x2a31 @0x3e
0x29f3…2a34 at003f = ╱ef╱ $ ╱ // 0x2a32 @0x3f
0x29f3…2a34 at0040 = EOL // 0x2a33 @0x40
0x29f3…2a34 }
0x2a34…2a4f c03d 09916 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x2a34…2a4f LineComal80 {
0x2a34…2a4f ptr = 0xc03d // 0x2a34 @0x0
0x2a34…2a4f lno = 0x26bc // 0x2a36 @0x2
0x2a34…2a4f at0004 = ╱9b0053╱ IF ╱ // 0x2a38 @0x4
0x2a34…2a4f at0007 = ╱56╱V╱ // 0x2a3b @0x7
0x2a34…2a4f at0008 = ╱41╱A╱ // 0x2a3c @0x8
0x2a34…2a4f at0009 = ╱52╱R╱ // 0x2a3d @0x9
0x2a34…2a4f at000a = ╱ef╱ $ ╱ // 0x2a3e @0xa
0x2a34…2a4f at000b = ╱df╱ = ╱ // 0x2a3f @0xb
0x2a34…2a4f at000c = ╱22╱"╱ // 0x2a40 @0xc
0x2a34…2a4f at000d = ╱4a╱J╱ // 0x2a41 @0xd
0x2a34…2a4f at000e = ╱22╱"╱ // 0x2a42 @0xe
0x2a34…2a4f at000f = ╱d8╱ OR ╱ // 0x2a43 @0xf
0x2a34…2a4f at0010 = ╱53╱S╱ // 0x2a44 @0x10
0x2a34…2a4f at0011 = ╱56╱V╱ // 0x2a45 @0x11
0x2a34…2a4f at0012 = ╱41╱A╱ // 0x2a46 @0x12
0x2a34…2a4f at0013 = ╱52╱R╱ // 0x2a47 @0x13
0x2a34…2a4f at0014 = ╱ef╱ $ ╱ // 0x2a48 @0x14
0x2a34…2a4f at0015 = ╱df╱ = ╱ // 0x2a49 @0x15
0x2a34…2a4f at0016 = ╱22╱"╱ // 0x2a4a @0x16
0x2a34…2a4f at0017 = ╱6a╱j╱ // 0x2a4b @0x17
0x2a34…2a4f at0018 = ╱22╱"╱ // 0x2a4c @0x18
0x2a34…2a4f at0019 = ╱b5╱ THEN ╱ // 0x2a4d @0x19
0x2a34…2a4f at001a = EOL // 0x2a4e @0x1a
0x2a34…2a4f }
0x2a4f…2a5f c04d 09917 CURSOR 12 , LINE
0x2a4f…2a5f LineComal80 {
0x2a4f…2a5f ptr = 0xc04d // 0x2a4f @0x0
0x2a4f…2a5f lno = 0x26bd // 0x2a51 @0x2
0x2a4f…2a5f at0004 = ╱a1╱ CURSOR ╱ // 0x2a53 @0x4
0x2a4f…2a5f at0005 = ╱31╱1╱ // 0x2a54 @0x5
0x2a4f…2a5f at0006 = ╱32╱2╱ // 0x2a55 @0x6
0x2a4f…2a5f at0007 = ╱f20c00╱ // 0x2a56 @0x7
0x2a4f…2a5f at000a = ╱ec╱ , ╱ // 0x2a59 @0xa
0x2a4f…2a5f at000b = ╱4c╱L╱ // 0x2a5a @0xb
0x2a4f…2a5f at000c = ╱49╱I╱ // 0x2a5b @0xc
0x2a4f…2a5f at000d = ╱4e╱N╱ // 0x2a5c @0xd
0x2a4f…2a5f at000e = ╱45╱E╱ // 0x2a5d @0xe
0x2a4f…2a5f at000f = EOL // 0x2a5e @0xf
0x2a4f…2a5f }
0x2a5f…2a9a c088 09918 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x2a5f…2a9a LineComal80 {
0x2a5f…2a9a ptr = 0xc088 // 0x2a5f @0x0
0x2a5f…2a9a lno = 0x26be // 0x2a61 @0x2
0x2a5f…2a9a at0004 = ╱92╱ PRINT ╱ // 0x2a63 @0x4
0x2a5f…2a9a at0005 = ╱22╱"╱ // 0x2a64 @0x5
0x2a5f…2a9a at0006 = ╱3c╱<╱ // 0x2a65 @0x6
0x2a5f…2a9a at0007 = ╱5a╱Z╱ // 0x2a66 @0x7
0x2a5f…2a9a at0008 = ╱3e╱>╱ // 0x2a67 @0x8
0x2a5f…2a9a at0009 = ╱20╱…╱ // 0x2a68 @0x9
0x2a5f…2a9a at000a = ╱20╱…╱ // 0x2a69 @0xa
0x2a5f…2a9a at000b = ╱20╱…╱ // 0x2a6a @0xb
0x2a5f…2a9a at000c = ╱20╱…╱ // 0x2a6b @0xc
0x2a5f…2a9a at000d = ╱20╱…╱ // 0x2a6c @0xd
0x2a5f…2a9a at000e = ╱44╱D╱ // 0x2a6d @0xe
0x2a5f…2a9a at000f = ╱65╱e╱ // 0x2a6e @0xf
0x2a5f…2a9a at0010 = ╱72╱r╱ // 0x2a6f @0x10
0x2a5f…2a9a at0011 = ╱20╱…╱ // 0x2a70 @0x11
0x2a5f…2a9a at0012 = ╱76╱v╱ // 0x2a71 @0x12
0x2a5f…2a9a at0013 = ╱65╱e╱ // 0x2a72 @0x13
0x2a5f…2a9a at0014 = ╱6e╱n╱ // 0x2a73 @0x14
0x2a5f…2a9a at0015 = ╱74╱t╱ // 0x2a74 @0x15
0x2a5f…2a9a at0016 = ╱65╱e╱ // 0x2a75 @0x16
0x2a5f…2a9a at0017 = ╱73╱s╱ // 0x2a76 @0x17
0x2a5f…2a9a at0018 = ╱20╱…╱ // 0x2a77 @0x18
0x2a5f…2a9a at0019 = ╱70╱p╱ // 0x2a78 @0x19
0x2a5f…2a9a at001a = ╱7d╱}╱ // 0x2a79 @0x1a
0x2a5f…2a9a at001b = ╱20╱…╱ // 0x2a7a @0x1b
0x2a5f…2a9a at001c = ╱61╱a╱ // 0x2a7b @0x1c
0x2a5f…2a9a at001d = ╱74╱t╱ // 0x2a7c @0x1d
0x2a5f…2a9a at001e = ╱20╱…╱ // 0x2a7d @0x1e
0x2a5f…2a9a at001f = ╱70╱p╱ // 0x2a7e @0x1f
0x2a5f…2a9a at0020 = ╱72╱r╱ // 0x2a7f @0x20
0x2a5f…2a9a at0021 = ╱69╱i╱ // 0x2a80 @0x21
0x2a5f…2a9a at0022 = ╱6e╱n╱ // 0x2a81 @0x22
0x2a5f…2a9a at0023 = ╱74╱t╱ // 0x2a82 @0x23
0x2a5f…2a9a at0024 = ╱65╱e╱ // 0x2a83 @0x24
0x2a5f…2a9a at0025 = ╱72╱r╱ // 0x2a84 @0x25
0x2a5f…2a9a at0026 = ╱65╱e╱ // 0x2a85 @0x26
0x2a5f…2a9a at0027 = ╱6e╱n╱ // 0x2a86 @0x27
0x2a5f…2a9a at0028 = ╱20╱…╱ // 0x2a87 @0x28
0x2a5f…2a9a at0029 = ╱62╱b╱ // 0x2a88 @0x29
0x2a5f…2a9a at002a = ╱6c╱l╱ // 0x2a89 @0x2a
0x2a5f…2a9a at002b = ╱69╱i╱ // 0x2a8a @0x2b
0x2a5f…2a9a at002c = ╱76╱v╱ // 0x2a8b @0x2c
0x2a5f…2a9a at002d = ╱65╱e╱ // 0x2a8c @0x2d
0x2a5f…2a9a at002e = ╱72╱r╱ // 0x2a8d @0x2e
0x2a5f…2a9a at002f = ╱20╱…╱ // 0x2a8e @0x2f
0x2a5f…2a9a at0030 = ╱6c╱l╱ // 0x2a8f @0x30
0x2a5f…2a9a at0031 = ╱65╱e╱ // 0x2a90 @0x31
0x2a5f…2a9a at0032 = ╱64╱d╱ // 0x2a91 @0x32
0x2a5f…2a9a at0033 = ╱69╱i╱ // 0x2a92 @0x33
0x2a5f…2a9a at0034 = ╱67╱g╱ // 0x2a93 @0x34
0x2a5f…2a9a at0035 = ╱2e╱.╱ // 0x2a94 @0x35
0x2a5f…2a9a at0036 = ╱2e╱.╱ // 0x2a95 @0x36
0x2a5f…2a9a at0037 = ╱2e╱.╱ // 0x2a96 @0x37
0x2a5f…2a9a at0038 = ╱2e╱.╱ // 0x2a97 @0x38
0x2a5f…2a9a at0039 = ╱22╱"╱ // 0x2a98 @0x39
0x2a5f…2a9a at003a = EOL // 0x2a99 @0x3a
0x2a5f…2a9a }
0x2a9a…2aa6 c094 09919 PRINT "<SZ>"
0x2a9a…2aa6 LineComal80 {
0x2a9a…2aa6 ptr = 0xc094 // 0x2a9a @0x0
0x2a9a…2aa6 lno = 0x26bf // 0x2a9c @0x2
0x2a9a…2aa6 at0004 = ╱92╱ PRINT ╱ // 0x2a9e @0x4
0x2a9a…2aa6 at0005 = ╱22╱"╱ // 0x2a9f @0x5
0x2a9a…2aa6 at0006 = ╱3c╱<╱ // 0x2aa0 @0x6
0x2a9a…2aa6 at0007 = ╱53╱S╱ // 0x2aa1 @0x7
0x2a9a…2aa6 at0008 = ╱5a╱Z╱ // 0x2aa2 @0x8
0x2a9a…2aa6 at0009 = ╱3e╱>╱ // 0x2aa3 @0x9
0x2a9a…2aa6 at000a = ╱22╱"╱ // 0x2aa4 @0xa
0x2a9a…2aa6 at000b = EOL // 0x2aa5 @0xb
0x2a9a…2aa6 }
0x2aa6…2ab4 c0a2 09920 WHILE ╱cd╱ ( "P" ) DO
0x2aa6…2ab4 LineComal80 {
0x2aa6…2ab4 ptr = 0xc0a2 // 0x2aa6 @0x0
0x2aa6…2ab4 lno = 0x26c0 // 0x2aa8 @0x2
0x2aa6…2ab4 at0004 = ╱9300╱ WHILE ╱ // 0x2aaa @0x4
0x2aa6…2ab4 at0006 = ╱cd╱ // 0x2aac @0x6
0x2aa6…2ab4 at0007 = ╱ed╱ ( ╱ // 0x2aad @0x7
0x2aa6…2ab4 at0008 = ╱22╱"╱ // 0x2aae @0x8
0x2aa6…2ab4 at0009 = ╱50╱P╱ // 0x2aaf @0x9
0x2aa6…2ab4 at000a = ╱22╱"╱ // 0x2ab0 @0xa
0x2aa6…2ab4 at000b = ╱ee╱ ) ╱ // 0x2ab1 @0xb
0x2aa6…2ab4 at000c = ╱bb╱ DO ╱ // 0x2ab2 @0xc
0x2aa6…2ab4 at000d = EOL // 0x2ab3 @0xd
0x2aa6…2ab4 }
0x2ab4…2ac5 c0b3 09921 LET SEK := ╱ca╱ ( 5 )
0x2ab4…2ac5 LineComal80 {
0x2ab4…2ac5 ptr = 0xc0b3 // 0x2ab4 @0x0
0x2ab4…2ac5 lno = 0x26c1 // 0x2ab6 @0x2
0x2ab4…2ac5 at0004 = ╱86╱ LET ╱ // 0x2ab8 @0x4
0x2ab4…2ac5 at0005 = ╱53╱S╱ // 0x2ab9 @0x5
0x2ab4…2ac5 at0006 = ╱45╱E╱ // 0x2aba @0x6
0x2ab4…2ac5 at0007 = ╱4b╱K╱ // 0x2abb @0x7
0x2ab4…2ac5 at0008 = ╱f0╱ := ╱ // 0x2abc @0x8
0x2ab4…2ac5 at0009 = ╱ca╱ // 0x2abd @0x9
0x2ab4…2ac5 at000a = ╱ed╱ ( ╱ // 0x2abe @0xa
0x2ab4…2ac5 at000b = ╱35╱5╱ // 0x2abf @0xb
0x2ab4…2ac5 at000c = ╱f20500╱ // 0x2ac0 @0xc
0x2ab4…2ac5 at000f = ╱ee╱ ) ╱ // 0x2ac3 @0xf
0x2ab4…2ac5 at0010 = EOL // 0x2ac4 @0x10
0x2ab4…2ac5 }
0x2ac5…2ad5 c0c3 09922 SELECT OUTPUT "P" + PRTNR $
0x2ac5…2ad5 LineComal80 {
0x2ac5…2ad5 ptr = 0xc0c3 // 0x2ac5 @0x0
0x2ac5…2ad5 lno = 0x26c2 // 0x2ac7 @0x2
0x2ac5…2ad5 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2ac9 @0x4
0x2ac5…2ad5 at0005 = ╱22╱"╱ // 0x2aca @0x5
0x2ac5…2ad5 at0006 = ╱50╱P╱ // 0x2acb @0x6
0x2ac5…2ad5 at0007 = ╱22╱"╱ // 0x2acc @0x7
0x2ac5…2ad5 at0008 = ╱eb╱ + ╱ // 0x2acd @0x8
0x2ac5…2ad5 at0009 = ╱50╱P╱ // 0x2ace @0x9
0x2ac5…2ad5 at000a = ╱52╱R╱ // 0x2acf @0xa
0x2ac5…2ad5 at000b = ╱54╱T╱ // 0x2ad0 @0xb
0x2ac5…2ad5 at000c = ╱4e╱N╱ // 0x2ad1 @0xc
0x2ac5…2ad5 at000d = ╱52╱R╱ // 0x2ad2 @0xd
0x2ac5…2ad5 at000e = ╱ef╱ $ ╱ // 0x2ad3 @0xe
0x2ac5…2ad5 at000f = EOL // 0x2ad4 @0xf
0x2ac5…2ad5 }
0x2ad5…2adb c0c9 09923 ENDWHILE
0x2ad5…2adb LineComal80 {
0x2ad5…2adb ptr = 0xc0c9 // 0x2ad5 @0x0
0x2ad5…2adb lno = 0x26c3 // 0x2ad7 @0x2
0x2ad5…2adb at0004 = ╱94╱ ENDWHILE ╱ // 0x2ad9 @0x4
0x2ad5…2adb at0005 = EOL // 0x2ada @0x5
0x2ad5…2adb }
0x2adb…2ae2 c0d0 09924 ELSE
0x2adb…2ae2 LineComal80 {
0x2adb…2ae2 ptr = 0xc0d0 // 0x2adb @0x0
0x2adb…2ae2 lno = 0x26c4 // 0x2add @0x2
0x2adb…2ae2 at0004 = ╱9a00╱ ELSE ╱ // 0x2adf @0x4
0x2adb…2ae2 at0006 = EOL // 0x2ae1 @0x6
0x2adb…2ae2 }
0x2ae2…2af0 c0de 09925 LET OK := FALSE
0x2ae2…2af0 LineComal80 {
0x2ae2…2af0 ptr = 0xc0de // 0x2ae2 @0x0
0x2ae2…2af0 lno = 0x26c5 // 0x2ae4 @0x2
0x2ae2…2af0 at0004 = ╱86╱ LET ╱ // 0x2ae6 @0x4
0x2ae2…2af0 at0005 = ╱4f╱O╱ // 0x2ae7 @0x5
0x2ae2…2af0 at0006 = ╱4b╱K╱ // 0x2ae8 @0x6
0x2ae2…2af0 at0007 = ╱f0╱ := ╱ // 0x2ae9 @0x7
0x2ae2…2af0 at0008 = ╱46╱F╱ // 0x2aea @0x8
0x2ae2…2af0 at0009 = ╱41╱A╱ // 0x2aeb @0x9
0x2ae2…2af0 at000a = ╱4c╱L╱ // 0x2aec @0xa
0x2ae2…2af0 at000b = ╱53╱S╱ // 0x2aed @0xb
0x2ae2…2af0 at000c = ╱45╱E╱ // 0x2aee @0xc
0x2ae2…2af0 at000d = EOL // 0x2aef @0xd
0x2ae2…2af0 }
0x2af0…2af6 c0e4 09926 ENDIF
0x2af0…2af6 LineComal80 {
0x2af0…2af6 ptr = 0xc0e4 // 0x2af0 @0x0
0x2af0…2af6 lno = 0x26c6 // 0x2af2 @0x2
0x2af0…2af6 at0004 = ╱9c╱ ENDIF ╱ // 0x2af4 @0x4
0x2af0…2af6 at0005 = EOL // 0x2af5 @0x5
0x2af0…2af6 }
0x2af6…2afc c0ea 09927 ENDIF
0x2af6…2afc LineComal80 {
0x2af6…2afc ptr = 0xc0ea // 0x2af6 @0x0
0x2af6…2afc lno = 0x26c7 // 0x2af8 @0x2
0x2af6…2afc at0004 = ╱9c╱ ENDIF ╱ // 0x2afa @0x4
0x2af6…2afc at0005 = EOL // 0x2afb @0x5
0x2af6…2afc }
0x2afc…2b0b c0f9 09928 CURSOR 1 , LINE
0x2afc…2b0b LineComal80 {
0x2afc…2b0b ptr = 0xc0f9 // 0x2afc @0x0
0x2afc…2b0b lno = 0x26c8 // 0x2afe @0x2
0x2afc…2b0b at0004 = ╱a1╱ CURSOR ╱ // 0x2b00 @0x4
0x2afc…2b0b at0005 = ╱31╱1╱ // 0x2b01 @0x5
0x2afc…2b0b at0006 = ╱f20100╱ // 0x2b02 @0x6
0x2afc…2b0b at0009 = ╱ec╱ , ╱ // 0x2b05 @0x9
0x2afc…2b0b at000a = ╱4c╱L╱ // 0x2b06 @0xa
0x2afc…2b0b at000b = ╱49╱I╱ // 0x2b07 @0xb
0x2afc…2b0b at000c = ╱4e╱N╱ // 0x2b08 @0xc
0x2afc…2b0b at000d = ╱45╱E╱ // 0x2b09 @0xd
0x2afc…2b0b at000e = EOL // 0x2b0a @0xe
0x2afc…2b0b }
0x2b0b…2b16 c104 09929 PRINT "<Z>"
0x2b0b…2b16 LineComal80 {
0x2b0b…2b16 ptr = 0xc104 // 0x2b0b @0x0
0x2b0b…2b16 lno = 0x26c9 // 0x2b0d @0x2
0x2b0b…2b16 at0004 = ╱92╱ PRINT ╱ // 0x2b0f @0x4
0x2b0b…2b16 at0005 = ╱22╱"╱ // 0x2b10 @0x5
0x2b0b…2b16 at0006 = ╱3c╱<╱ // 0x2b11 @0x6
0x2b0b…2b16 at0007 = ╱5a╱Z╱ // 0x2b12 @0x7
0x2b0b…2b16 at0008 = ╱3e╱>╱ // 0x2b13 @0x8
0x2b0b…2b16 at0009 = ╱22╱"╱ // 0x2b14 @0x9
0x2b0b…2b16 at000a = EOL // 0x2b15 @0xa
0x2b0b…2b16 }
0x2b16…2b22 c110 09930 PRINT "<SZ>"
0x2b16…2b22 LineComal80 {
0x2b16…2b22 ptr = 0xc110 // 0x2b16 @0x0
0x2b16…2b22 lno = 0x26ca // 0x2b18 @0x2
0x2b16…2b22 at0004 = ╱92╱ PRINT ╱ // 0x2b1a @0x4
0x2b16…2b22 at0005 = ╱22╱"╱ // 0x2b1b @0x5
0x2b16…2b22 at0006 = ╱3c╱<╱ // 0x2b1c @0x6
0x2b16…2b22 at0007 = ╱53╱S╱ // 0x2b1d @0x7
0x2b16…2b22 at0008 = ╱5a╱Z╱ // 0x2b1e @0x8
0x2b16…2b22 at0009 = ╱3e╱>╱ // 0x2b1f @0x9
0x2b16…2b22 at000a = ╱22╱"╱ // 0x2b20 @0xa
0x2b16…2b22 at000b = EOL // 0x2b21 @0xb
0x2b16…2b22 }
0x2b22…2b30 c11e 09931 ENDPROC PRINTRES
0x2b22…2b30 LineComal80 {
0x2b22…2b30 ptr = 0xc11e // 0x2b22 @0x0
0x2b22…2b30 lno = 0x26cb // 0x2b24 @0x2
0x2b22…2b30 at0004 = ╱9f╱ ENDPROC ╱ // 0x2b26 @0x4
0x2b22…2b30 at0005 = ╱50╱P╱ // 0x2b27 @0x5
0x2b22…2b30 at0006 = ╱52╱R╱ // 0x2b28 @0x6
0x2b22…2b30 at0007 = ╱49╱I╱ // 0x2b29 @0x7
0x2b22…2b30 at0008 = ╱4e╱N╱ // 0x2b2a @0x8
0x2b22…2b30 at0009 = ╱54╱T╱ // 0x2b2b @0x9
0x2b22…2b30 at000a = ╱52╱R╱ // 0x2b2c @0xa
0x2b22…2b30 at000b = ╱45╱E╱ // 0x2b2d @0xb
0x2b22…2b30 at000c = ╱53╱S╱ // 0x2b2e @0xc
0x2b22…2b30 at000d = EOL // 0x2b2f @0xd
0x2b22…2b30 }
0x2b30…2b36 c124 04010 //
0x2b30…2b36 LineComal80 {
0x2b30…2b36 ptr = 0xc124 // 0x2b30 @0x0
0x2b30…2b36 lno = 0x0faa // 0x2b32 @0x2
0x2b30…2b36 at0004 = ╱89╱ // ╱ // 0x2b34 @0x4
0x2b30…2b36 at0005 = EOL // 0x2b35 @0x5
0x2b30…2b36 }
0x2b36…2b55 c143 04020 PROC PRINTREL // RELEASE…PRINTER
0x2b36…2b55 LineComal80 {
0x2b36…2b55 ptr = 0xc143 // 0x2b36 @0x0
0x2b36…2b55 lno = 0x0fb4 // 0x2b38 @0x2
0x2b36…2b55 at0004 = ╱9e00╱ PROC ╱ // 0x2b3a @0x4
0x2b36…2b55 at0006 = ╱50╱P╱ // 0x2b3c @0x6
0x2b36…2b55 at0007 = ╱52╱R╱ // 0x2b3d @0x7
0x2b36…2b55 at0008 = ╱49╱I╱ // 0x2b3e @0x8
0x2b36…2b55 at0009 = ╱4e╱N╱ // 0x2b3f @0x9
0x2b36…2b55 at000a = ╱54╱T╱ // 0x2b40 @0xa
0x2b36…2b55 at000b = ╱52╱R╱ // 0x2b41 @0xb
0x2b36…2b55 at000c = ╱45╱E╱ // 0x2b42 @0xc
0x2b36…2b55 at000d = ╱4c╱L╱ // 0x2b43 @0xd
0x2b36…2b55 at000e = ╱89╱ // ╱ // 0x2b44 @0xe
0x2b36…2b55 at000f = ╱52╱R╱ // 0x2b45 @0xf
0x2b36…2b55 at0010 = ╱45╱E╱ // 0x2b46 @0x10
0x2b36…2b55 at0011 = ╱4c╱L╱ // 0x2b47 @0x11
0x2b36…2b55 at0012 = ╱45╱E╱ // 0x2b48 @0x12
0x2b36…2b55 at0013 = ╱41╱A╱ // 0x2b49 @0x13
0x2b36…2b55 at0014 = ╱53╱S╱ // 0x2b4a @0x14
0x2b36…2b55 at0015 = ╱45╱E╱ // 0x2b4b @0x15
0x2b36…2b55 at0016 = ╱20╱…╱ // 0x2b4c @0x16
0x2b36…2b55 at0017 = ╱50╱P╱ // 0x2b4d @0x17
0x2b36…2b55 at0018 = ╱52╱R╱ // 0x2b4e @0x18
0x2b36…2b55 at0019 = ╱49╱I╱ // 0x2b4f @0x19
0x2b36…2b55 at001a = ╱4e╱N╱ // 0x2b50 @0x1a
0x2b36…2b55 at001b = ╱54╱T╱ // 0x2b51 @0x1b
0x2b36…2b55 at001c = ╱45╱E╱ // 0x2b52 @0x1c
0x2b36…2b55 at001d = ╱52╱R╱ // 0x2b53 @0x1d
0x2b36…2b55 at001e = EOL // 0x2b54 @0x1e
0x2b36…2b55 }
0x2b55…2b5e c14c 04030 SELECT OUTPUT "T"
0x2b55…2b5e LineComal80 {
0x2b55…2b5e ptr = 0xc14c // 0x2b55 @0x0
0x2b55…2b5e lno = 0x0fbe // 0x2b57 @0x2
0x2b55…2b5e at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2b59 @0x4
0x2b55…2b5e at0005 = ╱22╱"╱ // 0x2b5a @0x5
0x2b55…2b5e at0006 = ╱54╱T╱ // 0x2b5b @0x6
0x2b55…2b5e at0007 = ╱22╱"╱ // 0x2b5c @0x7
0x2b55…2b5e at0008 = EOL // 0x2b5d @0x8
0x2b55…2b5e }
0x2b5e…2b6c c49a 04040 ENDPROC PRINTREL
0x2b5e…2b6c LineComal80 {
0x2b5e…2b6c ptr = 0xc49a // 0x2b5e @0x0
0x2b5e…2b6c lno = 0x0fc8 // 0x2b60 @0x2
0x2b5e…2b6c at0004 = ╱9f╱ ENDPROC ╱ // 0x2b62 @0x4
0x2b5e…2b6c at0005 = ╱50╱P╱ // 0x2b63 @0x5
0x2b5e…2b6c at0006 = ╱52╱R╱ // 0x2b64 @0x6
0x2b5e…2b6c at0007 = ╱49╱I╱ // 0x2b65 @0x7
0x2b5e…2b6c at0008 = ╱4e╱N╱ // 0x2b66 @0x8
0x2b5e…2b6c at0009 = ╱54╱T╱ // 0x2b67 @0x9
0x2b5e…2b6c at000a = ╱52╱R╱ // 0x2b68 @0xa
0x2b5e…2b6c at000b = ╱45╱E╱ // 0x2b69 @0xb
0x2b5e…2b6c at000c = ╱4c╱L╱ // 0x2b6a @0xc
0x2b5e…2b6c at000d = EOL // 0x2b6b @0xd
0x2b5e…2b6c }
0x2b6c…2b8b a02b 00920 LET PROGRAM $ := PROGRAM $ + S_KODE $
0x2b6c…2b8b LineComal80 {
0x2b6c…2b8b ptr = 0xa02b // 0x2b6c @0x0
0x2b6c…2b8b lno = 0x0398 // 0x2b6e @0x2
0x2b6c…2b8b at0004 = ╱86╱ LET ╱ // 0x2b70 @0x4
0x2b6c…2b8b at0005 = ╱50╱P╱ // 0x2b71 @0x5
0x2b6c…2b8b at0006 = ╱52╱R╱ // 0x2b72 @0x6
0x2b6c…2b8b at0007 = ╱4f╱O╱ // 0x2b73 @0x7
0x2b6c…2b8b at0008 = ╱47╱G╱ // 0x2b74 @0x8
0x2b6c…2b8b at0009 = ╱52╱R╱ // 0x2b75 @0x9
0x2b6c…2b8b at000a = ╱41╱A╱ // 0x2b76 @0xa
0x2b6c…2b8b at000b = ╱4d╱M╱ // 0x2b77 @0xb
0x2b6c…2b8b at000c = ╱ef╱ $ ╱ // 0x2b78 @0xc
0x2b6c…2b8b at000d = ╱f0╱ := ╱ // 0x2b79 @0xd
0x2b6c…2b8b at000e = ╱50╱P╱ // 0x2b7a @0xe
0x2b6c…2b8b at000f = ╱52╱R╱ // 0x2b7b @0xf
0x2b6c…2b8b at0010 = ╱4f╱O╱ // 0x2b7c @0x10
0x2b6c…2b8b at0011 = ╱47╱G╱ // 0x2b7d @0x11
0x2b6c…2b8b at0012 = ╱52╱R╱ // 0x2b7e @0x12
0x2b6c…2b8b at0013 = ╱41╱A╱ // 0x2b7f @0x13
0x2b6c…2b8b at0014 = ╱4d╱M╱ // 0x2b80 @0x14
0x2b6c…2b8b at0015 = ╱ef╱ $ ╱ // 0x2b81 @0x15
0x2b6c…2b8b at0016 = ╱eb╱ + ╱ // 0x2b82 @0x16
0x2b6c…2b8b at0017 = ╱53╱S╱ // 0x2b83 @0x17
0x2b6c…2b8b at0018 = ╱5f╱_╱ // 0x2b84 @0x18
0x2b6c…2b8b at0019 = ╱4b╱K╱ // 0x2b85 @0x19
0x2b6c…2b8b at001a = ╱4f╱O╱ // 0x2b86 @0x1a
0x2b6c…2b8b at001b = ╱44╱D╱ // 0x2b87 @0x1b
0x2b6c…2b8b at001c = ╱45╱E╱ // 0x2b88 @0x1c
0x2b6c…2b8b at001d = ╱ef╱ $ ╱ // 0x2b89 @0x1d
0x2b6c…2b8b at001e = EOL // 0x2b8a @0x1e
0x2b6c…2b8b }
0x2b8b…2bc2 c1b0 01540 PRINT "<C0105>………BILAG……TEKST……………………………………………………………KO"
0x2b8b…2bc2 LineComal80 {
0x2b8b…2bc2 ptr = 0xc1b0 // 0x2b8b @0x0
0x2b8b…2bc2 lno = 0x0604 // 0x2b8d @0x2
0x2b8b…2bc2 at0004 = ╱92╱ PRINT ╱ // 0x2b8f @0x4
0x2b8b…2bc2 at0005 = ╱22╱"╱ // 0x2b90 @0x5
0x2b8b…2bc2 at0006 = ╱3c╱<╱ // 0x2b91 @0x6
0x2b8b…2bc2 at0007 = ╱43╱C╱ // 0x2b92 @0x7
0x2b8b…2bc2 at0008 = ╱30╱0╱ // 0x2b93 @0x8
0x2b8b…2bc2 at0009 = ╱31╱1╱ // 0x2b94 @0x9
0x2b8b…2bc2 at000a = ╱30╱0╱ // 0x2b95 @0xa
0x2b8b…2bc2 at000b = ╱35╱5╱ // 0x2b96 @0xb
0x2b8b…2bc2 at000c = ╱3e╱>╱ // 0x2b97 @0xc
0x2b8b…2bc2 at000d = ╱20╱…╱ // 0x2b98 @0xd
0x2b8b…2bc2 at000e = ╱20╱…╱ // 0x2b99 @0xe
0x2b8b…2bc2 at000f = ╱20╱…╱ // 0x2b9a @0xf
0x2b8b…2bc2 at0010 = ╱42╱B╱ // 0x2b9b @0x10
0x2b8b…2bc2 at0011 = ╱49╱I╱ // 0x2b9c @0x11
0x2b8b…2bc2 at0012 = ╱4c╱L╱ // 0x2b9d @0x12
0x2b8b…2bc2 at0013 = ╱41╱A╱ // 0x2b9e @0x13
0x2b8b…2bc2 at0014 = ╱47╱G╱ // 0x2b9f @0x14
0x2b8b…2bc2 at0015 = ╱20╱…╱ // 0x2ba0 @0x15
0x2b8b…2bc2 at0016 = ╱20╱…╱ // 0x2ba1 @0x16
0x2b8b…2bc2 at0017 = ╱54╱T╱ // 0x2ba2 @0x17
0x2b8b…2bc2 at0018 = ╱45╱E╱ // 0x2ba3 @0x18
0x2b8b…2bc2 at0019 = ╱4b╱K╱ // 0x2ba4 @0x19
0x2b8b…2bc2 at001a = ╱53╱S╱ // 0x2ba5 @0x1a
0x2b8b…2bc2 at001b = ╱54╱T╱ // 0x2ba6 @0x1b
0x2b8b…2bc2 at001c = ╱20╱…╱ // 0x2ba7 @0x1c
0x2b8b…2bc2 at001d = ╱20╱…╱ // 0x2ba8 @0x1d
0x2b8b…2bc2 at001e = ╱20╱…╱ // 0x2ba9 @0x1e
0x2b8b…2bc2 at001f = ╱20╱…╱ // 0x2baa @0x1f
0x2b8b…2bc2 at0020 = ╱20╱…╱ // 0x2bab @0x20
0x2b8b…2bc2 at0021 = ╱20╱…╱ // 0x2bac @0x21
0x2b8b…2bc2 at0022 = ╱20╱…╱ // 0x2bad @0x22
0x2b8b…2bc2 at0023 = ╱20╱…╱ // 0x2bae @0x23
0x2b8b…2bc2 at0024 = ╱20╱…╱ // 0x2baf @0x24
0x2b8b…2bc2 at0025 = ╱20╱…╱ // 0x2bb0 @0x25
0x2b8b…2bc2 at0026 = ╱20╱…╱ // 0x2bb1 @0x26
0x2b8b…2bc2 at0027 = ╱20╱…╱ // 0x2bb2 @0x27
0x2b8b…2bc2 at0028 = ╱20╱…╱ // 0x2bb3 @0x28
0x2b8b…2bc2 at0029 = ╱20╱…╱ // 0x2bb4 @0x29
0x2b8b…2bc2 at002a = ╱20╱…╱ // 0x2bb5 @0x2a
0x2b8b…2bc2 at002b = ╱20╱…╱ // 0x2bb6 @0x2b
0x2b8b…2bc2 at002c = ╱20╱…╱ // 0x2bb7 @0x2c
0x2b8b…2bc2 at002d = ╱20╱…╱ // 0x2bb8 @0x2d
0x2b8b…2bc2 at002e = ╱20╱…╱ // 0x2bb9 @0x2e
0x2b8b…2bc2 at002f = ╱20╱…╱ // 0x2bba @0x2f
0x2b8b…2bc2 at0030 = ╱20╱…╱ // 0x2bbb @0x30
0x2b8b…2bc2 at0031 = ╱20╱…╱ // 0x2bbc @0x31
0x2b8b…2bc2 at0032 = ╱20╱…╱ // 0x2bbd @0x32
0x2b8b…2bc2 at0033 = ╱4b╱K╱ // 0x2bbe @0x33
0x2b8b…2bc2 at0034 = ╱4f╱O╱ // 0x2bbf @0x34
0x2b8b…2bc2 at0035 = ╱22╱"╱ // 0x2bc0 @0x35
0x2b8b…2bc2 at0036 = EOL // 0x2bc1 @0x36
0x2b8b…2bc2 }
0x2bc2…2bf9 c1e7 01550 PRINT "<C0106>…………NR……………………………………………………………………………………NU"
0x2bc2…2bf9 LineComal80 {
0x2bc2…2bf9 ptr = 0xc1e7 // 0x2bc2 @0x0
0x2bc2…2bf9 lno = 0x060e // 0x2bc4 @0x2
0x2bc2…2bf9 at0004 = ╱92╱ PRINT ╱ // 0x2bc6 @0x4
0x2bc2…2bf9 at0005 = ╱22╱"╱ // 0x2bc7 @0x5
0x2bc2…2bf9 at0006 = ╱3c╱<╱ // 0x2bc8 @0x6
0x2bc2…2bf9 at0007 = ╱43╱C╱ // 0x2bc9 @0x7
0x2bc2…2bf9 at0008 = ╱30╱0╱ // 0x2bca @0x8
0x2bc2…2bf9 at0009 = ╱31╱1╱ // 0x2bcb @0x9
0x2bc2…2bf9 at000a = ╱30╱0╱ // 0x2bcc @0xa
0x2bc2…2bf9 at000b = ╱36╱6╱ // 0x2bcd @0xb
0x2bc2…2bf9 at000c = ╱3e╱>╱ // 0x2bce @0xc
0x2bc2…2bf9 at000d = ╱20╱…╱ // 0x2bcf @0xd
0x2bc2…2bf9 at000e = ╱20╱…╱ // 0x2bd0 @0xe
0x2bc2…2bf9 at000f = ╱20╱…╱ // 0x2bd1 @0xf
0x2bc2…2bf9 at0010 = ╱20╱…╱ // 0x2bd2 @0x10
0x2bc2…2bf9 at0011 = ╱4e╱N╱ // 0x2bd3 @0x11
0x2bc2…2bf9 at0012 = ╱52╱R╱ // 0x2bd4 @0x12
0x2bc2…2bf9 at0013 = ╱20╱…╱ // 0x2bd5 @0x13
0x2bc2…2bf9 at0014 = ╱20╱…╱ // 0x2bd6 @0x14
0x2bc2…2bf9 at0015 = ╱20╱…╱ // 0x2bd7 @0x15
0x2bc2…2bf9 at0016 = ╱20╱…╱ // 0x2bd8 @0x16
0x2bc2…2bf9 at0017 = ╱20╱…╱ // 0x2bd9 @0x17
0x2bc2…2bf9 at0018 = ╱20╱…╱ // 0x2bda @0x18
0x2bc2…2bf9 at0019 = ╱20╱…╱ // 0x2bdb @0x19
0x2bc2…2bf9 at001a = ╱20╱…╱ // 0x2bdc @0x1a
0x2bc2…2bf9 at001b = ╱20╱…╱ // 0x2bdd @0x1b
0x2bc2…2bf9 at001c = ╱20╱…╱ // 0x2bde @0x1c
0x2bc2…2bf9 at001d = ╱20╱…╱ // 0x2bdf @0x1d
0x2bc2…2bf9 at001e = ╱20╱…╱ // 0x2be0 @0x1e
0x2bc2…2bf9 at001f = ╱20╱…╱ // 0x2be1 @0x1f
0x2bc2…2bf9 at0020 = ╱20╱…╱ // 0x2be2 @0x20
0x2bc2…2bf9 at0021 = ╱20╱…╱ // 0x2be3 @0x21
0x2bc2…2bf9 at0022 = ╱20╱…╱ // 0x2be4 @0x22
0x2bc2…2bf9 at0023 = ╱20╱…╱ // 0x2be5 @0x23
0x2bc2…2bf9 at0024 = ╱20╱…╱ // 0x2be6 @0x24
0x2bc2…2bf9 at0025 = ╱20╱…╱ // 0x2be7 @0x25
0x2bc2…2bf9 at0026 = ╱20╱…╱ // 0x2be8 @0x26
0x2bc2…2bf9 at0027 = ╱20╱…╱ // 0x2be9 @0x27
0x2bc2…2bf9 at0028 = ╱20╱…╱ // 0x2bea @0x28
0x2bc2…2bf9 at0029 = ╱20╱…╱ // 0x2beb @0x29
0x2bc2…2bf9 at002a = ╱20╱…╱ // 0x2bec @0x2a
0x2bc2…2bf9 at002b = ╱20╱…╱ // 0x2bed @0x2b
0x2bc2…2bf9 at002c = ╱20╱…╱ // 0x2bee @0x2c
0x2bc2…2bf9 at002d = ╱20╱…╱ // 0x2bef @0x2d
0x2bc2…2bf9 at002e = ╱20╱…╱ // 0x2bf0 @0x2e
0x2bc2…2bf9 at002f = ╱20╱…╱ // 0x2bf1 @0x2f
0x2bc2…2bf9 at0030 = ╱20╱…╱ // 0x2bf2 @0x30
0x2bc2…2bf9 at0031 = ╱20╱…╱ // 0x2bf3 @0x31
0x2bc2…2bf9 at0032 = ╱20╱…╱ // 0x2bf4 @0x32
0x2bc2…2bf9 at0033 = ╱4e╱N╱ // 0x2bf5 @0x33
0x2bc2…2bf9 at0034 = ╱55╱U╱ // 0x2bf6 @0x34
0x2bc2…2bf9 at0035 = ╱22╱"╱ // 0x2bf7 @0x35
0x2bc2…2bf9 at0036 = EOL // 0x2bf8 @0x36
0x2bc2…2bf9 }
0x2bf9…2c30 c21e 01560 PRINT "<C0107>----------------------------------------"
0x2bf9…2c30 LineComal80 {
0x2bf9…2c30 ptr = 0xc21e // 0x2bf9 @0x0
0x2bf9…2c30 lno = 0x0618 // 0x2bfb @0x2
0x2bf9…2c30 at0004 = ╱92╱ PRINT ╱ // 0x2bfd @0x4
0x2bf9…2c30 at0005 = ╱22╱"╱ // 0x2bfe @0x5
0x2bf9…2c30 at0006 = ╱3c╱<╱ // 0x2bff @0x6
0x2bf9…2c30 at0007 = ╱43╱C╱ // 0x2c00 @0x7
0x2bf9…2c30 at0008 = ╱30╱0╱ // 0x2c01 @0x8
0x2bf9…2c30 at0009 = ╱31╱1╱ // 0x2c02 @0x9
0x2bf9…2c30 at000a = ╱30╱0╱ // 0x2c03 @0xa
0x2bf9…2c30 at000b = ╱37╱7╱ // 0x2c04 @0xb
0x2bf9…2c30 at000c = ╱3e╱>╱ // 0x2c05 @0xc
0x2bf9…2c30 at000d = ╱2d╱-╱ // 0x2c06 @0xd
0x2bf9…2c30 at000e = ╱2d╱-╱ // 0x2c07 @0xe
0x2bf9…2c30 at000f = ╱2d╱-╱ // 0x2c08 @0xf
0x2bf9…2c30 at0010 = ╱2d╱-╱ // 0x2c09 @0x10
0x2bf9…2c30 at0011 = ╱2d╱-╱ // 0x2c0a @0x11
0x2bf9…2c30 at0012 = ╱2d╱-╱ // 0x2c0b @0x12
0x2bf9…2c30 at0013 = ╱2d╱-╱ // 0x2c0c @0x13
0x2bf9…2c30 at0014 = ╱2d╱-╱ // 0x2c0d @0x14
0x2bf9…2c30 at0015 = ╱2d╱-╱ // 0x2c0e @0x15
0x2bf9…2c30 at0016 = ╱2d╱-╱ // 0x2c0f @0x16
0x2bf9…2c30 at0017 = ╱2d╱-╱ // 0x2c10 @0x17
0x2bf9…2c30 at0018 = ╱2d╱-╱ // 0x2c11 @0x18
0x2bf9…2c30 at0019 = ╱2d╱-╱ // 0x2c12 @0x19
0x2bf9…2c30 at001a = ╱2d╱-╱ // 0x2c13 @0x1a
0x2bf9…2c30 at001b = ╱2d╱-╱ // 0x2c14 @0x1b
0x2bf9…2c30 at001c = ╱2d╱-╱ // 0x2c15 @0x1c
0x2bf9…2c30 at001d = ╱2d╱-╱ // 0x2c16 @0x1d
0x2bf9…2c30 at001e = ╱2d╱-╱ // 0x2c17 @0x1e
0x2bf9…2c30 at001f = ╱2d╱-╱ // 0x2c18 @0x1f
0x2bf9…2c30 at0020 = ╱2d╱-╱ // 0x2c19 @0x20
0x2bf9…2c30 at0021 = ╱2d╱-╱ // 0x2c1a @0x21
0x2bf9…2c30 at0022 = ╱2d╱-╱ // 0x2c1b @0x22
0x2bf9…2c30 at0023 = ╱2d╱-╱ // 0x2c1c @0x23
0x2bf9…2c30 at0024 = ╱2d╱-╱ // 0x2c1d @0x24
0x2bf9…2c30 at0025 = ╱2d╱-╱ // 0x2c1e @0x25
0x2bf9…2c30 at0026 = ╱2d╱-╱ // 0x2c1f @0x26
0x2bf9…2c30 at0027 = ╱2d╱-╱ // 0x2c20 @0x27
0x2bf9…2c30 at0028 = ╱2d╱-╱ // 0x2c21 @0x28
0x2bf9…2c30 at0029 = ╱2d╱-╱ // 0x2c22 @0x29
0x2bf9…2c30 at002a = ╱2d╱-╱ // 0x2c23 @0x2a
0x2bf9…2c30 at002b = ╱2d╱-╱ // 0x2c24 @0x2b
0x2bf9…2c30 at002c = ╱2d╱-╱ // 0x2c25 @0x2c
0x2bf9…2c30 at002d = ╱2d╱-╱ // 0x2c26 @0x2d
0x2bf9…2c30 at002e = ╱2d╱-╱ // 0x2c27 @0x2e
0x2bf9…2c30 at002f = ╱2d╱-╱ // 0x2c28 @0x2f
0x2bf9…2c30 at0030 = ╱2d╱-╱ // 0x2c29 @0x30
0x2bf9…2c30 at0031 = ╱2d╱-╱ // 0x2c2a @0x31
0x2bf9…2c30 at0032 = ╱2d╱-╱ // 0x2c2b @0x32
0x2bf9…2c30 at0033 = ╱2d╱-╱ // 0x2c2c @0x33
0x2bf9…2c30 at0034 = ╱2d╱-╱ // 0x2c2d @0x34
0x2bf9…2c30 at0035 = ╱22╱"╱ // 0x2c2e @0x35
0x2bf9…2c30 at0036 = EOL // 0x2c2f @0x36
0x2bf9…2c30 }
0x2c30…2c67 c255 01570 PRINT "<C4105>NTO-…………………DEBET………………KREDIT………………F/R/S…"
0x2c30…2c67 LineComal80 {
0x2c30…2c67 ptr = 0xc255 // 0x2c30 @0x0
0x2c30…2c67 lno = 0x0622 // 0x2c32 @0x2
0x2c30…2c67 at0004 = ╱92╱ PRINT ╱ // 0x2c34 @0x4
0x2c30…2c67 at0005 = ╱22╱"╱ // 0x2c35 @0x5
0x2c30…2c67 at0006 = ╱3c╱<╱ // 0x2c36 @0x6
0x2c30…2c67 at0007 = ╱43╱C╱ // 0x2c37 @0x7
0x2c30…2c67 at0008 = ╱34╱4╱ // 0x2c38 @0x8
0x2c30…2c67 at0009 = ╱31╱1╱ // 0x2c39 @0x9
0x2c30…2c67 at000a = ╱30╱0╱ // 0x2c3a @0xa
0x2c30…2c67 at000b = ╱35╱5╱ // 0x2c3b @0xb
0x2c30…2c67 at000c = ╱3e╱>╱ // 0x2c3c @0xc
0x2c30…2c67 at000d = ╱4e╱N╱ // 0x2c3d @0xd
0x2c30…2c67 at000e = ╱54╱T╱ // 0x2c3e @0xe
0x2c30…2c67 at000f = ╱4f╱O╱ // 0x2c3f @0xf
0x2c30…2c67 at0010 = ╱2d╱-╱ // 0x2c40 @0x10
0x2c30…2c67 at0011 = ╱20╱…╱ // 0x2c41 @0x11
0x2c30…2c67 at0012 = ╱20╱…╱ // 0x2c42 @0x12
0x2c30…2c67 at0013 = ╱20╱…╱ // 0x2c43 @0x13
0x2c30…2c67 at0014 = ╱20╱…╱ // 0x2c44 @0x14
0x2c30…2c67 at0015 = ╱20╱…╱ // 0x2c45 @0x15
0x2c30…2c67 at0016 = ╱20╱…╱ // 0x2c46 @0x16
0x2c30…2c67 at0017 = ╱20╱…╱ // 0x2c47 @0x17
0x2c30…2c67 at0018 = ╱44╱D╱ // 0x2c48 @0x18
0x2c30…2c67 at0019 = ╱45╱E╱ // 0x2c49 @0x19
0x2c30…2c67 at001a = ╱42╱B╱ // 0x2c4a @0x1a
0x2c30…2c67 at001b = ╱45╱E╱ // 0x2c4b @0x1b
0x2c30…2c67 at001c = ╱54╱T╱ // 0x2c4c @0x1c
0x2c30…2c67 at001d = ╱20╱…╱ // 0x2c4d @0x1d
0x2c30…2c67 at001e = ╱20╱…╱ // 0x2c4e @0x1e
0x2c30…2c67 at001f = ╱20╱…╱ // 0x2c4f @0x1f
0x2c30…2c67 at0020 = ╱20╱…╱ // 0x2c50 @0x20
0x2c30…2c67 at0021 = ╱20╱…╱ // 0x2c51 @0x21
0x2c30…2c67 at0022 = ╱20╱…╱ // 0x2c52 @0x22
0x2c30…2c67 at0023 = ╱4b╱K╱ // 0x2c53 @0x23
0x2c30…2c67 at0024 = ╱52╱R╱ // 0x2c54 @0x24
0x2c30…2c67 at0025 = ╱45╱E╱ // 0x2c55 @0x25
0x2c30…2c67 at0026 = ╱44╱D╱ // 0x2c56 @0x26
0x2c30…2c67 at0027 = ╱49╱I╱ // 0x2c57 @0x27
0x2c30…2c67 at0028 = ╱54╱T╱ // 0x2c58 @0x28
0x2c30…2c67 at0029 = ╱20╱…╱ // 0x2c59 @0x29
0x2c30…2c67 at002a = ╱20╱…╱ // 0x2c5a @0x2a
0x2c30…2c67 at002b = ╱20╱…╱ // 0x2c5b @0x2b
0x2c30…2c67 at002c = ╱20╱…╱ // 0x2c5c @0x2c
0x2c30…2c67 at002d = ╱20╱…╱ // 0x2c5d @0x2d
0x2c30…2c67 at002e = ╱20╱…╱ // 0x2c5e @0x2e
0x2c30…2c67 at002f = ╱46╱F╱ // 0x2c5f @0x2f
0x2c30…2c67 at0030 = ╱2f╱/╱ // 0x2c60 @0x30
0x2c30…2c67 at0031 = ╱52╱R╱ // 0x2c61 @0x31
0x2c30…2c67 at0032 = ╱2f╱/╱ // 0x2c62 @0x32
0x2c30…2c67 at0033 = ╱53╱S╱ // 0x2c63 @0x33
0x2c30…2c67 at0034 = ╱20╱…╱ // 0x2c64 @0x34
0x2c30…2c67 at0035 = ╱22╱"╱ // 0x2c65 @0x35
0x2c30…2c67 at0036 = EOL // 0x2c66 @0x36
0x2c30…2c67 }
0x2c67…2c9d c28b 01580 PRINT "<C4106>MMER……………………………………………………………………………………………"
0x2c67…2c9d LineComal80 {
0x2c67…2c9d ptr = 0xc28b // 0x2c67 @0x0
0x2c67…2c9d lno = 0x062c // 0x2c69 @0x2
0x2c67…2c9d at0004 = ╱92╱ PRINT ╱ // 0x2c6b @0x4
0x2c67…2c9d at0005 = ╱22╱"╱ // 0x2c6c @0x5
0x2c67…2c9d at0006 = ╱3c╱<╱ // 0x2c6d @0x6
0x2c67…2c9d at0007 = ╱43╱C╱ // 0x2c6e @0x7
0x2c67…2c9d at0008 = ╱34╱4╱ // 0x2c6f @0x8
0x2c67…2c9d at0009 = ╱31╱1╱ // 0x2c70 @0x9
0x2c67…2c9d at000a = ╱30╱0╱ // 0x2c71 @0xa
0x2c67…2c9d at000b = ╱36╱6╱ // 0x2c72 @0xb
0x2c67…2c9d at000c = ╱3e╱>╱ // 0x2c73 @0xc
0x2c67…2c9d at000d = ╱4d╱M╱ // 0x2c74 @0xd
0x2c67…2c9d at000e = ╱4d╱M╱ // 0x2c75 @0xe
0x2c67…2c9d at000f = ╱45╱E╱ // 0x2c76 @0xf
0x2c67…2c9d at0010 = ╱52╱R╱ // 0x2c77 @0x10
0x2c67…2c9d at0011 = ╱20╱…╱ // 0x2c78 @0x11
0x2c67…2c9d at0012 = ╱20╱…╱ // 0x2c79 @0x12
0x2c67…2c9d at0013 = ╱20╱…╱ // 0x2c7a @0x13
0x2c67…2c9d at0014 = ╱20╱…╱ // 0x2c7b @0x14
0x2c67…2c9d at0015 = ╱20╱…╱ // 0x2c7c @0x15
0x2c67…2c9d at0016 = ╱20╱…╱ // 0x2c7d @0x16
0x2c67…2c9d at0017 = ╱20╱…╱ // 0x2c7e @0x17
0x2c67…2c9d at0018 = ╱20╱…╱ // 0x2c7f @0x18
0x2c67…2c9d at0019 = ╱20╱…╱ // 0x2c80 @0x19
0x2c67…2c9d at001a = ╱20╱…╱ // 0x2c81 @0x1a
0x2c67…2c9d at001b = ╱20╱…╱ // 0x2c82 @0x1b
0x2c67…2c9d at001c = ╱20╱…╱ // 0x2c83 @0x1c
0x2c67…2c9d at001d = ╱20╱…╱ // 0x2c84 @0x1d
0x2c67…2c9d at001e = ╱20╱…╱ // 0x2c85 @0x1e
0x2c67…2c9d at001f = ╱20╱…╱ // 0x2c86 @0x1f
0x2c67…2c9d at0020 = ╱20╱…╱ // 0x2c87 @0x20
0x2c67…2c9d at0021 = ╱20╱…╱ // 0x2c88 @0x21
0x2c67…2c9d at0022 = ╱20╱…╱ // 0x2c89 @0x22
0x2c67…2c9d at0023 = ╱20╱…╱ // 0x2c8a @0x23
0x2c67…2c9d at0024 = ╱20╱…╱ // 0x2c8b @0x24
0x2c67…2c9d at0025 = ╱20╱…╱ // 0x2c8c @0x25
0x2c67…2c9d at0026 = ╱20╱…╱ // 0x2c8d @0x26
0x2c67…2c9d at0027 = ╱20╱…╱ // 0x2c8e @0x27
0x2c67…2c9d at0028 = ╱20╱…╱ // 0x2c8f @0x28
0x2c67…2c9d at0029 = ╱20╱…╱ // 0x2c90 @0x29
0x2c67…2c9d at002a = ╱20╱…╱ // 0x2c91 @0x2a
0x2c67…2c9d at002b = ╱20╱…╱ // 0x2c92 @0x2b
0x2c67…2c9d at002c = ╱20╱…╱ // 0x2c93 @0x2c
0x2c67…2c9d at002d = ╱20╱…╱ // 0x2c94 @0x2d
0x2c67…2c9d at002e = ╱20╱…╱ // 0x2c95 @0x2e
0x2c67…2c9d at002f = ╱20╱…╱ // 0x2c96 @0x2f
0x2c67…2c9d at0030 = ╱20╱…╱ // 0x2c97 @0x30
0x2c67…2c9d at0031 = ╱20╱…╱ // 0x2c98 @0x31
0x2c67…2c9d at0032 = ╱20╱…╱ // 0x2c99 @0x32
0x2c67…2c9d at0033 = ╱20╱…╱ // 0x2c9a @0x33
0x2c67…2c9d at0034 = ╱22╱"╱ // 0x2c9b @0x34
0x2c67…2c9d at0035 = EOL // 0x2c9c @0x35
0x2c67…2c9d }
0x2c9d…2cd4 c2c2 01590 PRINT "<C4107>----------------------------------------"
0x2c9d…2cd4 LineComal80 {
0x2c9d…2cd4 ptr = 0xc2c2 // 0x2c9d @0x0
0x2c9d…2cd4 lno = 0x0636 // 0x2c9f @0x2
0x2c9d…2cd4 at0004 = ╱92╱ PRINT ╱ // 0x2ca1 @0x4
0x2c9d…2cd4 at0005 = ╱22╱"╱ // 0x2ca2 @0x5
0x2c9d…2cd4 at0006 = ╱3c╱<╱ // 0x2ca3 @0x6
0x2c9d…2cd4 at0007 = ╱43╱C╱ // 0x2ca4 @0x7
0x2c9d…2cd4 at0008 = ╱34╱4╱ // 0x2ca5 @0x8
0x2c9d…2cd4 at0009 = ╱31╱1╱ // 0x2ca6 @0x9
0x2c9d…2cd4 at000a = ╱30╱0╱ // 0x2ca7 @0xa
0x2c9d…2cd4 at000b = ╱37╱7╱ // 0x2ca8 @0xb
0x2c9d…2cd4 at000c = ╱3e╱>╱ // 0x2ca9 @0xc
0x2c9d…2cd4 at000d = ╱2d╱-╱ // 0x2caa @0xd
0x2c9d…2cd4 at000e = ╱2d╱-╱ // 0x2cab @0xe
0x2c9d…2cd4 at000f = ╱2d╱-╱ // 0x2cac @0xf
0x2c9d…2cd4 at0010 = ╱2d╱-╱ // 0x2cad @0x10
0x2c9d…2cd4 at0011 = ╱2d╱-╱ // 0x2cae @0x11
0x2c9d…2cd4 at0012 = ╱2d╱-╱ // 0x2caf @0x12
0x2c9d…2cd4 at0013 = ╱2d╱-╱ // 0x2cb0 @0x13
0x2c9d…2cd4 at0014 = ╱2d╱-╱ // 0x2cb1 @0x14
0x2c9d…2cd4 at0015 = ╱2d╱-╱ // 0x2cb2 @0x15
0x2c9d…2cd4 at0016 = ╱2d╱-╱ // 0x2cb3 @0x16
0x2c9d…2cd4 at0017 = ╱2d╱-╱ // 0x2cb4 @0x17
0x2c9d…2cd4 at0018 = ╱2d╱-╱ // 0x2cb5 @0x18
0x2c9d…2cd4 at0019 = ╱2d╱-╱ // 0x2cb6 @0x19
0x2c9d…2cd4 at001a = ╱2d╱-╱ // 0x2cb7 @0x1a
0x2c9d…2cd4 at001b = ╱2d╱-╱ // 0x2cb8 @0x1b
0x2c9d…2cd4 at001c = ╱2d╱-╱ // 0x2cb9 @0x1c
0x2c9d…2cd4 at001d = ╱2d╱-╱ // 0x2cba @0x1d
0x2c9d…2cd4 at001e = ╱2d╱-╱ // 0x2cbb @0x1e
0x2c9d…2cd4 at001f = ╱2d╱-╱ // 0x2cbc @0x1f
0x2c9d…2cd4 at0020 = ╱2d╱-╱ // 0x2cbd @0x20
0x2c9d…2cd4 at0021 = ╱2d╱-╱ // 0x2cbe @0x21
0x2c9d…2cd4 at0022 = ╱2d╱-╱ // 0x2cbf @0x22
0x2c9d…2cd4 at0023 = ╱2d╱-╱ // 0x2cc0 @0x23
0x2c9d…2cd4 at0024 = ╱2d╱-╱ // 0x2cc1 @0x24
0x2c9d…2cd4 at0025 = ╱2d╱-╱ // 0x2cc2 @0x25
0x2c9d…2cd4 at0026 = ╱2d╱-╱ // 0x2cc3 @0x26
0x2c9d…2cd4 at0027 = ╱2d╱-╱ // 0x2cc4 @0x27
0x2c9d…2cd4 at0028 = ╱2d╱-╱ // 0x2cc5 @0x28
0x2c9d…2cd4 at0029 = ╱2d╱-╱ // 0x2cc6 @0x29
0x2c9d…2cd4 at002a = ╱2d╱-╱ // 0x2cc7 @0x2a
0x2c9d…2cd4 at002b = ╱2d╱-╱ // 0x2cc8 @0x2b
0x2c9d…2cd4 at002c = ╱2d╱-╱ // 0x2cc9 @0x2c
0x2c9d…2cd4 at002d = ╱2d╱-╱ // 0x2cca @0x2d
0x2c9d…2cd4 at002e = ╱2d╱-╱ // 0x2ccb @0x2e
0x2c9d…2cd4 at002f = ╱2d╱-╱ // 0x2ccc @0x2f
0x2c9d…2cd4 at0030 = ╱2d╱-╱ // 0x2ccd @0x30
0x2c9d…2cd4 at0031 = ╱2d╱-╱ // 0x2cce @0x31
0x2c9d…2cd4 at0032 = ╱2d╱-╱ // 0x2ccf @0x32
0x2c9d…2cd4 at0033 = ╱2d╱-╱ // 0x2cd0 @0x33
0x2c9d…2cd4 at0034 = ╱2d╱-╱ // 0x2cd1 @0x34
0x2c9d…2cd4 at0035 = ╱22╱"╱ // 0x2cd2 @0x35
0x2c9d…2cd4 at0036 = EOL // 0x2cd3 @0x36
0x2c9d…2cd4 }
0x2cd4…2ce6 c2d4 01600 ENDPROC DIV_POSHOVED
0x2cd4…2ce6 LineComal80 {
0x2cd4…2ce6 ptr = 0xc2d4 // 0x2cd4 @0x0
0x2cd4…2ce6 lno = 0x0640 // 0x2cd6 @0x2
0x2cd4…2ce6 at0004 = ╱9f╱ ENDPROC ╱ // 0x2cd8 @0x4
0x2cd4…2ce6 at0005 = ╱44╱D╱ // 0x2cd9 @0x5
0x2cd4…2ce6 at0006 = ╱49╱I╱ // 0x2cda @0x6
0x2cd4…2ce6 at0007 = ╱56╱V╱ // 0x2cdb @0x7
0x2cd4…2ce6 at0008 = ╱5f╱_╱ // 0x2cdc @0x8
0x2cd4…2ce6 at0009 = ╱50╱P╱ // 0x2cdd @0x9
0x2cd4…2ce6 at000a = ╱4f╱O╱ // 0x2cde @0xa
0x2cd4…2ce6 at000b = ╱53╱S╱ // 0x2cdf @0xb
0x2cd4…2ce6 at000c = ╱48╱H╱ // 0x2ce0 @0xc
0x2cd4…2ce6 at000d = ╱4f╱O╱ // 0x2ce1 @0xd
0x2cd4…2ce6 at000e = ╱56╱V╱ // 0x2ce2 @0xe
0x2cd4…2ce6 at000f = ╱45╱E╱ // 0x2ce3 @0xf
0x2cd4…2ce6 at0010 = ╱44╱D╱ // 0x2ce4 @0x10
0x2cd4…2ce6 at0011 = EOL // 0x2ce5 @0x11
0x2cd4…2ce6 }
0x2ce6…2ceb c2d9 01610
0x2ce6…2ceb LineComal80 {
0x2ce6…2ceb ptr = 0xc2d9 // 0x2ce6 @0x0
0x2ce6…2ceb lno = 0x064a // 0x2ce8 @0x2
0x2ce6…2ceb at0004 = EOL // 0x2cea @0x4
0x2ce6…2ceb }
0x2ceb…2d03 c2f1 01620 PROC OVERSKRIFT ( ST $ , L )
0x2ceb…2d03 LineComal80 {
0x2ceb…2d03 ptr = 0xc2f1 // 0x2ceb @0x0
0x2ceb…2d03 lno = 0x0654 // 0x2ced @0x2
0x2ceb…2d03 at0004 = ╱9e00╱ PROC ╱ // 0x2cef @0x4
0x2ceb…2d03 at0006 = ╱4f╱O╱ // 0x2cf1 @0x6
0x2ceb…2d03 at0007 = ╱56╱V╱ // 0x2cf2 @0x7
0x2ceb…2d03 at0008 = ╱45╱E╱ // 0x2cf3 @0x8
0x2ceb…2d03 at0009 = ╱52╱R╱ // 0x2cf4 @0x9
0x2ceb…2d03 at000a = ╱53╱S╱ // 0x2cf5 @0xa
0x2ceb…2d03 at000b = ╱4b╱K╱ // 0x2cf6 @0xb
0x2ceb…2d03 at000c = ╱52╱R╱ // 0x2cf7 @0xc
0x2ceb…2d03 at000d = ╱49╱I╱ // 0x2cf8 @0xd
0x2ceb…2d03 at000e = ╱46╱F╱ // 0x2cf9 @0xe
0x2ceb…2d03 at000f = ╱54╱T╱ // 0x2cfa @0xf
0x2ceb…2d03 at0010 = ╱ed╱ ( ╱ // 0x2cfb @0x10
0x2ceb…2d03 at0011 = ╱53╱S╱ // 0x2cfc @0x11
0x2ceb…2d03 at0012 = ╱54╱T╱ // 0x2cfd @0x12
0x2ceb…2d03 at0013 = ╱ef╱ $ ╱ // 0x2cfe @0x13
0x2ceb…2d03 at0014 = ╱ec╱ , ╱ // 0x2cff @0x14
0x2ceb…2d03 at0015 = ╱4c╱L╱ // 0x2d00 @0x15
0x2ceb…2d03 at0016 = ╱ee╱ ) ╱ // 0x2d01 @0x16
0x2ceb…2d03 at0017 = EOL // 0x2d02 @0x17
0x2ceb…2d03 }
0x2d03…2d29 c317 01630 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x2d03…2d29 LineComal80 {
0x2d03…2d29 ptr = 0xc317 // 0x2d03 @0x0
0x2d03…2d29 lno = 0x065e // 0x2d05 @0x2
0x2d03…2d29 at0004 = ╱92╱ PRINT ╱ // 0x2d07 @0x4
0x2d03…2d29 at0005 = ╱22╱"╱ // 0x2d08 @0x5
0x2d03…2d29 at0006 = ╱3c╱<╱ // 0x2d09 @0x6
0x2d03…2d29 at0007 = ╱58╱X╱ // 0x2d0a @0x7
0x2d03…2d29 at0008 = ╱43╱C╱ // 0x2d0b @0x8
0x2d03…2d29 at0009 = ╱30╱0╱ // 0x2d0c @0x9
0x2d03…2d29 at000a = ╱31╱1╱ // 0x2d0d @0xa
0x2d03…2d29 at000b = ╱30╱0╱ // 0x2d0e @0xb
0x2d03…2d29 at000c = ╱31╱1╱ // 0x2d0f @0xc
0x2d03…2d29 at000d = ╱3e╱>╱ // 0x2d10 @0xd
0x2d03…2d29 at000e = ╱46╱F╱ // 0x2d11 @0xe
0x2d03…2d29 at000f = ╱69╱i╱ // 0x2d12 @0xf
0x2d03…2d29 at0010 = ╱72╱r╱ // 0x2d13 @0x10
0x2d03…2d29 at0011 = ╱6d╱m╱ // 0x2d14 @0x11
0x2d03…2d29 at0012 = ╱61╱a╱ // 0x2d15 @0x12
0x2d03…2d29 at0013 = ╱6e╱n╱ // 0x2d16 @0x13
0x2d03…2d29 at0014 = ╱61╱a╱ // 0x2d17 @0x14
0x2d03…2d29 at0015 = ╱76╱v╱ // 0x2d18 @0x15
0x2d03…2d29 at0016 = ╱6e╱n╱ // 0x2d19 @0x16
0x2d03…2d29 at0017 = ╱3a╱:╱ // 0x2d1a @0x17
0x2d03…2d29 at0018 = ╱20╱…╱ // 0x2d1b @0x18
0x2d03…2d29 at0019 = ╱22╱"╱ // 0x2d1c @0x19
0x2d03…2d29 at001a = ╱ea╱ ; ╱ // 0x2d1d @0x1a
0x2d03…2d29 at001b = ╱46╱F╱ // 0x2d1e @0x1b
0x2d03…2d29 at001c = ╱49╱I╱ // 0x2d1f @0x1c
0x2d03…2d29 at001d = ╱52╱R╱ // 0x2d20 @0x1d
0x2d03…2d29 at001e = ╱4d╱M╱ // 0x2d21 @0x1e
0x2d03…2d29 at001f = ╱41╱A╱ // 0x2d22 @0x1f
0x2d03…2d29 at0020 = ╱4e╱N╱ // 0x2d23 @0x20
0x2d03…2d29 at0021 = ╱41╱A╱ // 0x2d24 @0x21
0x2d03…2d29 at0022 = ╱56╱V╱ // 0x2d25 @0x22
0x2d03…2d29 at0023 = ╱4e╱N╱ // 0x2d26 @0x23
0x2d03…2d29 at0024 = ╱ef╱ $ ╱ // 0x2d27 @0x24
0x2d03…2d29 at0025 = EOL // 0x2d28 @0x25
0x2d03…2d29 }
0x2d29…2d71 c35f 01640 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x2d29…2d71 LineComal80 {
0x2d29…2d71 ptr = 0xc35f // 0x2d29 @0x0
0x2d29…2d71 lno = 0x0668 // 0x2d2b @0x2
0x2d29…2d71 at0004 = ╱92╱ PRINT ╱ // 0x2d2d @0x4
0x2d29…2d71 at0005 = ╱22╱"╱ // 0x2d2e @0x5
0x2d29…2d71 at0006 = ╱3c╱<╱ // 0x2d2f @0x6
0x2d29…2d71 at0007 = ╱53╱S╱ // 0x2d30 @0x7
0x2d29…2d71 at0008 = ╱43╱C╱ // 0x2d31 @0x8
0x2d29…2d71 at0009 = ╱36╱6╱ // 0x2d32 @0x9
0x2d29…2d71 at000a = ╱35╱5╱ // 0x2d33 @0xa
0x2d29…2d71 at000b = ╱30╱0╱ // 0x2d34 @0xb
0x2d29…2d71 at000c = ╱31╱1╱ // 0x2d35 @0xc
0x2d29…2d71 at000d = ╱3e╱>╱ // 0x2d36 @0xd
0x2d29…2d71 at000e = ╱44╱D╱ // 0x2d37 @0xe
0x2d29…2d71 at000f = ╱61╱a╱ // 0x2d38 @0xf
0x2d29…2d71 at0010 = ╱74╱t╱ // 0x2d39 @0x10
0x2d29…2d71 at0011 = ╱6f╱o╱ // 0x2d3a @0x11
0x2d29…2d71 at0012 = ╱3a╱:╱ // 0x2d3b @0x12
0x2d29…2d71 at0013 = ╱20╱…╱ // 0x2d3c @0x13
0x2d29…2d71 at0014 = ╱22╱"╱ // 0x2d3d @0x14
0x2d29…2d71 at0015 = ╱ea╱ ; ╱ // 0x2d3e @0x15
0x2d29…2d71 at0016 = ╱53╱S╱ // 0x2d3f @0x16
0x2d29…2d71 at0017 = ╱59╱Y╱ // 0x2d40 @0x17
0x2d29…2d71 at0018 = ╱53╱S╱ // 0x2d41 @0x18
0x2d29…2d71 at0019 = ╱54╱T╱ // 0x2d42 @0x19
0x2d29…2d71 at001a = ╱5f╱_╱ // 0x2d43 @0x1a
0x2d29…2d71 at001b = ╱44╱D╱ // 0x2d44 @0x1b
0x2d29…2d71 at001c = ╱41╱A╱ // 0x2d45 @0x1c
0x2d29…2d71 at001d = ╱54╱T╱ // 0x2d46 @0x1d
0x2d29…2d71 at001e = ╱ef╱ $ ╱ // 0x2d47 @0x1e
0x2d29…2d71 at001f = ╱ed╱ ( ╱ // 0x2d48 @0x1f
0x2d29…2d71 at0020 = ╱31╱1╱ // 0x2d49 @0x20
0x2d29…2d71 at0021 = ╱f20100╱ // 0x2d4a @0x21
0x2d29…2d71 at0024 = ╱f1╱ : ╱ // 0x2d4d @0x24
0x2d29…2d71 at0025 = ╱32╱2╱ // 0x2d4e @0x25
0x2d29…2d71 at0026 = ╱f20200╱ // 0x2d4f @0x26
0x2d29…2d71 at0029 = ╱ee╱ ) ╱ // 0x2d52 @0x29
0x2d29…2d71 at002a = ╱ea╱ ; ╱ // 0x2d53 @0x2a
0x2d29…2d71 at002b = ╱22╱"╱ // 0x2d54 @0x2b
0x2d29…2d71 at002c = ╱2e╱.╱ // 0x2d55 @0x2c
0x2d29…2d71 at002d = ╱22╱"╱ // 0x2d56 @0x2d
0x2d29…2d71 at002e = ╱ea╱ ; ╱ // 0x2d57 @0x2e
0x2d29…2d71 at002f = ╱53╱S╱ // 0x2d58 @0x2f
0x2d29…2d71 at0030 = ╱59╱Y╱ // 0x2d59 @0x30
0x2d29…2d71 at0031 = ╱53╱S╱ // 0x2d5a @0x31
0x2d29…2d71 at0032 = ╱54╱T╱ // 0x2d5b @0x32
0x2d29…2d71 at0033 = ╱5f╱_╱ // 0x2d5c @0x33
0x2d29…2d71 at0034 = ╱44╱D╱ // 0x2d5d @0x34
0x2d29…2d71 at0035 = ╱41╱A╱ // 0x2d5e @0x35
0x2d29…2d71 at0036 = ╱54╱T╱ // 0x2d5f @0x36
0x2d29…2d71 at0037 = ╱ef╱ $ ╱ // 0x2d60 @0x37
0x2d29…2d71 at0038 = ╱ed╱ ( ╱ // 0x2d61 @0x38
0x2d29…2d71 at0039 = ╱33╱3╱ // 0x2d62 @0x39
0x2d29…2d71 at003a = ╱f20300╱ // 0x2d63 @0x3a
0x2d29…2d71 at003d = ╱f1╱ : ╱ // 0x2d66 @0x3d
0x2d29…2d71 at003e = ╱32╱2╱ // 0x2d67 @0x3e
0x2d29…2d71 at003f = ╱f20200╱ // 0x2d68 @0x3f
0x2d29…2d71 at0042 = ╱ee╱ ) ╱ // 0x2d6b @0x42
0x2d29…2d71 at0043 = ╱ea╱ ; ╱ // 0x2d6c @0x43
0x2d29…2d71 at0044 = ╱22╱"╱ // 0x2d6d @0x44
0x2d29…2d71 at0045 = ╱2e╱.╱ // 0x2d6e @0x45
0x2d29…2d71 at0046 = ╱22╱"╱ // 0x2d6f @0x46
0x2d29…2d71 at0047 = EOL // 0x2d70 @0x47
0x2d29…2d71 }
0x2d71…2d8b a7c0 01650 PRINT SYST_DAT $ ( 5 : 2 )
0x2d71…2d8b LineComal80 {
0x2d71…2d8b ptr = 0xa7c0 // 0x2d71 @0x0
0x2d71…2d8b lno = 0x0672 // 0x2d73 @0x2
0x2d71…2d8b at0004 = ╱92╱ PRINT ╱ // 0x2d75 @0x4
0x2d71…2d8b at0005 = ╱53╱S╱ // 0x2d76 @0x5
0x2d71…2d8b at0006 = ╱59╱Y╱ // 0x2d77 @0x6
0x2d71…2d8b at0007 = ╱53╱S╱ // 0x2d78 @0x7
0x2d71…2d8b at0008 = ╱54╱T╱ // 0x2d79 @0x8
0x2d71…2d8b at0009 = ╱5f╱_╱ // 0x2d7a @0x9
0x2d71…2d8b at000a = ╱44╱D╱ // 0x2d7b @0xa
0x2d71…2d8b at000b = ╱41╱A╱ // 0x2d7c @0xb
0x2d71…2d8b at000c = ╱54╱T╱ // 0x2d7d @0xc
0x2d71…2d8b at000d = ╱ef╱ $ ╱ // 0x2d7e @0xd
0x2d71…2d8b at000e = ╱ed╱ ( ╱ // 0x2d7f @0xe
0x2d71…2d8b at000f = ╱35╱5╱ // 0x2d80 @0xf
0x2d71…2d8b at0010 = ╱f20500╱ // 0x2d81 @0x10
0x2d71…2d8b at0013 = ╱f1╱ : ╱ // 0x2d84 @0x13
0x2d71…2d8b at0014 = ╱32╱2╱ // 0x2d85 @0x14
0x2d71…2d8b at0015 = ╱f20200╱ // 0x2d86 @0x15
0x2d71…2d8b at0018 = ╱ee╱ ) ╱ // 0x2d89 @0x18
0x2d71…2d8b at0019 = EOL // 0x2d8a @0x19
0x2d71…2d8b }
0x2d8b…2da8 ae02 02430 EXEC PRINTRES ( "papir" , 12 )
0x2d8b…2da8 LineComal80 {
0x2d8b…2da8 ptr = 0xae02 // 0x2d8b @0x0
0x2d8b…2da8 lno = 0x097e // 0x2d8d @0x2
0x2d8b…2da8 at0004 = ╱9d╱ EXEC ╱ // 0x2d8f @0x4
0x2d8b…2da8 at0005 = ╱50╱P╱ // 0x2d90 @0x5
0x2d8b…2da8 at0006 = ╱52╱R╱ // 0x2d91 @0x6
0x2d8b…2da8 at0007 = ╱49╱I╱ // 0x2d92 @0x7
0x2d8b…2da8 at0008 = ╱4e╱N╱ // 0x2d93 @0x8
0x2d8b…2da8 at0009 = ╱54╱T╱ // 0x2d94 @0x9
0x2d8b…2da8 at000a = ╱52╱R╱ // 0x2d95 @0xa
0x2d8b…2da8 at000b = ╱45╱E╱ // 0x2d96 @0xb
0x2d8b…2da8 at000c = ╱53╱S╱ // 0x2d97 @0xc
0x2d8b…2da8 at000d = ╱ed╱ ( ╱ // 0x2d98 @0xd
0x2d8b…2da8 at000e = ╱22╱"╱ // 0x2d99 @0xe
0x2d8b…2da8 at000f = ╱70╱p╱ // 0x2d9a @0xf
0x2d8b…2da8 at0010 = ╱61╱a╱ // 0x2d9b @0x10
0x2d8b…2da8 at0011 = ╱70╱p╱ // 0x2d9c @0x11
0x2d8b…2da8 at0012 = ╱69╱i╱ // 0x2d9d @0x12
0x2d8b…2da8 at0013 = ╱72╱r╱ // 0x2d9e @0x13
0x2d8b…2da8 at0014 = ╱22╱"╱ // 0x2d9f @0x14
0x2d8b…2da8 at0015 = ╱ec╱ , ╱ // 0x2da0 @0x15
0x2d8b…2da8 at0016 = ╱31╱1╱ // 0x2da1 @0x16
0x2d8b…2da8 at0017 = ╱32╱2╱ // 0x2da2 @0x17
0x2d8b…2da8 at0018 = ╱f20c00╱ // 0x2da3 @0x18
0x2d8b…2da8 at001b = ╱ee╱ ) ╱ // 0x2da6 @0x1b
0x2d8b…2da8 at001c = EOL // 0x2da7 @0x1c
0x2d8b…2da8 }
0x2da8…2de8 b108 02670 PRINT "<S>BILAG……TEKST………………………………………………………KONTONR……………DEBET………"
0x2da8…2de8 LineComal80 {
0x2da8…2de8 ptr = 0xb108 // 0x2da8 @0x0
0x2da8…2de8 lno = 0x0a6e // 0x2daa @0x2
0x2da8…2de8 at0004 = ╱92╱ PRINT ╱ // 0x2dac @0x4
0x2da8…2de8 at0005 = ╱22╱"╱ // 0x2dad @0x5
0x2da8…2de8 at0006 = ╱3c╱<╱ // 0x2dae @0x6
0x2da8…2de8 at0007 = ╱53╱S╱ // 0x2daf @0x7
0x2da8…2de8 at0008 = ╱3e╱>╱ // 0x2db0 @0x8
0x2da8…2de8 at0009 = ╱42╱B╱ // 0x2db1 @0x9
0x2da8…2de8 at000a = ╱49╱I╱ // 0x2db2 @0xa
0x2da8…2de8 at000b = ╱4c╱L╱ // 0x2db3 @0xb
0x2da8…2de8 at000c = ╱41╱A╱ // 0x2db4 @0xc
0x2da8…2de8 at000d = ╱47╱G╱ // 0x2db5 @0xd
0x2da8…2de8 at000e = ╱20╱…╱ // 0x2db6 @0xe
0x2da8…2de8 at000f = ╱20╱…╱ // 0x2db7 @0xf
0x2da8…2de8 at0010 = ╱54╱T╱ // 0x2db8 @0x10
0x2da8…2de8 at0011 = ╱45╱E╱ // 0x2db9 @0x11
0x2da8…2de8 at0012 = ╱4b╱K╱ // 0x2dba @0x12
0x2da8…2de8 at0013 = ╱53╱S╱ // 0x2dbb @0x13
0x2da8…2de8 at0014 = ╱54╱T╱ // 0x2dbc @0x14
0x2da8…2de8 at0015 = ╱20╱…╱ // 0x2dbd @0x15
0x2da8…2de8 at0016 = ╱20╱…╱ // 0x2dbe @0x16
0x2da8…2de8 at0017 = ╱20╱…╱ // 0x2dbf @0x17
0x2da8…2de8 at0018 = ╱20╱…╱ // 0x2dc0 @0x18
0x2da8…2de8 at0019 = ╱20╱…╱ // 0x2dc1 @0x19
0x2da8…2de8 at001a = ╱20╱…╱ // 0x2dc2 @0x1a
0x2da8…2de8 at001b = ╱20╱…╱ // 0x2dc3 @0x1b
0x2da8…2de8 at001c = ╱20╱…╱ // 0x2dc4 @0x1c
0x2da8…2de8 at001d = ╱20╱…╱ // 0x2dc5 @0x1d
0x2da8…2de8 at001e = ╱20╱…╱ // 0x2dc6 @0x1e
0x2da8…2de8 at001f = ╱20╱…╱ // 0x2dc7 @0x1f
0x2da8…2de8 at0020 = ╱20╱…╱ // 0x2dc8 @0x20
0x2da8…2de8 at0021 = ╱20╱…╱ // 0x2dc9 @0x21
0x2da8…2de8 at0022 = ╱20╱…╱ // 0x2dca @0x22
0x2da8…2de8 at0023 = ╱20╱…╱ // 0x2dcb @0x23
0x2da8…2de8 at0024 = ╱20╱…╱ // 0x2dcc @0x24
0x2da8…2de8 at0025 = ╱20╱…╱ // 0x2dcd @0x25
0x2da8…2de8 at0026 = ╱20╱…╱ // 0x2dce @0x26
0x2da8…2de8 at0027 = ╱20╱…╱ // 0x2dcf @0x27
0x2da8…2de8 at0028 = ╱20╱…╱ // 0x2dd0 @0x28
0x2da8…2de8 at0029 = ╱20╱…╱ // 0x2dd1 @0x29
0x2da8…2de8 at002a = ╱4b╱K╱ // 0x2dd2 @0x2a
0x2da8…2de8 at002b = ╱4f╱O╱ // 0x2dd3 @0x2b
0x2da8…2de8 at002c = ╱4e╱N╱ // 0x2dd4 @0x2c
0x2da8…2de8 at002d = ╱54╱T╱ // 0x2dd5 @0x2d
0x2da8…2de8 at002e = ╱4f╱O╱ // 0x2dd6 @0x2e
0x2da8…2de8 at002f = ╱4e╱N╱ // 0x2dd7 @0x2f
0x2da8…2de8 at0030 = ╱52╱R╱ // 0x2dd8 @0x30
0x2da8…2de8 at0031 = ╱20╱…╱ // 0x2dd9 @0x31
0x2da8…2de8 at0032 = ╱20╱…╱ // 0x2dda @0x32
0x2da8…2de8 at0033 = ╱20╱…╱ // 0x2ddb @0x33
0x2da8…2de8 at0034 = ╱20╱…╱ // 0x2ddc @0x34
0x2da8…2de8 at0035 = ╱20╱…╱ // 0x2ddd @0x35
0x2da8…2de8 at0036 = ╱44╱D╱ // 0x2dde @0x36
0x2da8…2de8 at0037 = ╱45╱E╱ // 0x2ddf @0x37
0x2da8…2de8 at0038 = ╱42╱B╱ // 0x2de0 @0x38
0x2da8…2de8 at0039 = ╱45╱E╱ // 0x2de1 @0x39
0x2da8…2de8 at003a = ╱54╱T╱ // 0x2de2 @0x3a
0x2da8…2de8 at003b = ╱20╱…╱ // 0x2de3 @0x3b
0x2da8…2de8 at003c = ╱20╱…╱ // 0x2de4 @0x3c
0x2da8…2de8 at003d = ╱20╱…╱ // 0x2de5 @0x3d
0x2da8…2de8 at003e = ╱22╱"╱ // 0x2de6 @0x3e
0x2da8…2de8 at003f = EOL // 0x2de7 @0x3f
0x2da8…2de8 }
0x2de8…2e28 b15c 02690 PRINT "<S>-----……------------------------……--------……----------"
0x2de8…2e28 LineComal80 {
0x2de8…2e28 ptr = 0xb15c // 0x2de8 @0x0
0x2de8…2e28 lno = 0x0a82 // 0x2dea @0x2
0x2de8…2e28 at0004 = ╱92╱ PRINT ╱ // 0x2dec @0x4
0x2de8…2e28 at0005 = ╱22╱"╱ // 0x2ded @0x5
0x2de8…2e28 at0006 = ╱3c╱<╱ // 0x2dee @0x6
0x2de8…2e28 at0007 = ╱53╱S╱ // 0x2def @0x7
0x2de8…2e28 at0008 = ╱3e╱>╱ // 0x2df0 @0x8
0x2de8…2e28 at0009 = ╱2d╱-╱ // 0x2df1 @0x9
0x2de8…2e28 at000a = ╱2d╱-╱ // 0x2df2 @0xa
0x2de8…2e28 at000b = ╱2d╱-╱ // 0x2df3 @0xb
0x2de8…2e28 at000c = ╱2d╱-╱ // 0x2df4 @0xc
0x2de8…2e28 at000d = ╱2d╱-╱ // 0x2df5 @0xd
0x2de8…2e28 at000e = ╱20╱…╱ // 0x2df6 @0xe
0x2de8…2e28 at000f = ╱20╱…╱ // 0x2df7 @0xf
0x2de8…2e28 at0010 = ╱2d╱-╱ // 0x2df8 @0x10
0x2de8…2e28 at0011 = ╱2d╱-╱ // 0x2df9 @0x11
0x2de8…2e28 at0012 = ╱2d╱-╱ // 0x2dfa @0x12
0x2de8…2e28 at0013 = ╱2d╱-╱ // 0x2dfb @0x13
0x2de8…2e28 at0014 = ╱2d╱-╱ // 0x2dfc @0x14
0x2de8…2e28 at0015 = ╱2d╱-╱ // 0x2dfd @0x15
0x2de8…2e28 at0016 = ╱2d╱-╱ // 0x2dfe @0x16
0x2de8…2e28 at0017 = ╱2d╱-╱ // 0x2dff @0x17
0x2de8…2e28 at0018 = ╱2d╱-╱ // 0x2e00 @0x18
0x2de8…2e28 at0019 = ╱2d╱-╱ // 0x2e01 @0x19
0x2de8…2e28 at001a = ╱2d╱-╱ // 0x2e02 @0x1a
0x2de8…2e28 at001b = ╱2d╱-╱ // 0x2e03 @0x1b
0x2de8…2e28 at001c = ╱2d╱-╱ // 0x2e04 @0x1c
0x2de8…2e28 at001d = ╱2d╱-╱ // 0x2e05 @0x1d
0x2de8…2e28 at001e = ╱2d╱-╱ // 0x2e06 @0x1e
0x2de8…2e28 at001f = ╱2d╱-╱ // 0x2e07 @0x1f
0x2de8…2e28 at0020 = ╱2d╱-╱ // 0x2e08 @0x20
0x2de8…2e28 at0021 = ╱2d╱-╱ // 0x2e09 @0x21
0x2de8…2e28 at0022 = ╱2d╱-╱ // 0x2e0a @0x22
0x2de8…2e28 at0023 = ╱2d╱-╱ // 0x2e0b @0x23
0x2de8…2e28 at0024 = ╱2d╱-╱ // 0x2e0c @0x24
0x2de8…2e28 at0025 = ╱2d╱-╱ // 0x2e0d @0x25
0x2de8…2e28 at0026 = ╱2d╱-╱ // 0x2e0e @0x26
0x2de8…2e28 at0027 = ╱2d╱-╱ // 0x2e0f @0x27
0x2de8…2e28 at0028 = ╱20╱…╱ // 0x2e10 @0x28
0x2de8…2e28 at0029 = ╱20╱…╱ // 0x2e11 @0x29
0x2de8…2e28 at002a = ╱2d╱-╱ // 0x2e12 @0x2a
0x2de8…2e28 at002b = ╱2d╱-╱ // 0x2e13 @0x2b
0x2de8…2e28 at002c = ╱2d╱-╱ // 0x2e14 @0x2c
0x2de8…2e28 at002d = ╱2d╱-╱ // 0x2e15 @0x2d
0x2de8…2e28 at002e = ╱2d╱-╱ // 0x2e16 @0x2e
0x2de8…2e28 at002f = ╱2d╱-╱ // 0x2e17 @0x2f
0x2de8…2e28 at0030 = ╱2d╱-╱ // 0x2e18 @0x30
0x2de8…2e28 at0031 = ╱2d╱-╱ // 0x2e19 @0x31
0x2de8…2e28 at0032 = ╱20╱…╱ // 0x2e1a @0x32
0x2de8…2e28 at0033 = ╱20╱…╱ // 0x2e1b @0x33
0x2de8…2e28 at0034 = ╱2d╱-╱ // 0x2e1c @0x34
0x2de8…2e28 at0035 = ╱2d╱-╱ // 0x2e1d @0x35
0x2de8…2e28 at0036 = ╱2d╱-╱ // 0x2e1e @0x36
0x2de8…2e28 at0037 = ╱2d╱-╱ // 0x2e1f @0x37
0x2de8…2e28 at0038 = ╱2d╱-╱ // 0x2e20 @0x38
0x2de8…2e28 at0039 = ╱2d╱-╱ // 0x2e21 @0x39
0x2de8…2e28 at003a = ╱2d╱-╱ // 0x2e22 @0x3a
0x2de8…2e28 at003b = ╱2d╱-╱ // 0x2e23 @0x3b
0x2de8…2e28 at003c = ╱2d╱-╱ // 0x2e24 @0x3c
0x2de8…2e28 at003d = ╱2d╱-╱ // 0x2e25 @0x3d
0x2de8…2e28 at003e = ╱22╱"╱ // 0x2e26 @0x3e
0x2de8…2e28 at003f = EOL // 0x2e27 @0x3f
0x2de8…2e28 }
0x2e28…2e6a b2ca 02820 PRINT "<S>-----……------------------------……--------……----------……"
0x2e28…2e6a LineComal80 {
0x2e28…2e6a ptr = 0xb2ca // 0x2e28 @0x0
0x2e28…2e6a lno = 0x0b04 // 0x2e2a @0x2
0x2e28…2e6a at0004 = ╱92╱ PRINT ╱ // 0x2e2c @0x4
0x2e28…2e6a at0005 = ╱22╱"╱ // 0x2e2d @0x5
0x2e28…2e6a at0006 = ╱3c╱<╱ // 0x2e2e @0x6
0x2e28…2e6a at0007 = ╱53╱S╱ // 0x2e2f @0x7
0x2e28…2e6a at0008 = ╱3e╱>╱ // 0x2e30 @0x8
0x2e28…2e6a at0009 = ╱2d╱-╱ // 0x2e31 @0x9
0x2e28…2e6a at000a = ╱2d╱-╱ // 0x2e32 @0xa
0x2e28…2e6a at000b = ╱2d╱-╱ // 0x2e33 @0xb
0x2e28…2e6a at000c = ╱2d╱-╱ // 0x2e34 @0xc
0x2e28…2e6a at000d = ╱2d╱-╱ // 0x2e35 @0xd
0x2e28…2e6a at000e = ╱20╱…╱ // 0x2e36 @0xe
0x2e28…2e6a at000f = ╱20╱…╱ // 0x2e37 @0xf
0x2e28…2e6a at0010 = ╱2d╱-╱ // 0x2e38 @0x10
0x2e28…2e6a at0011 = ╱2d╱-╱ // 0x2e39 @0x11
0x2e28…2e6a at0012 = ╱2d╱-╱ // 0x2e3a @0x12
0x2e28…2e6a at0013 = ╱2d╱-╱ // 0x2e3b @0x13
0x2e28…2e6a at0014 = ╱2d╱-╱ // 0x2e3c @0x14
0x2e28…2e6a at0015 = ╱2d╱-╱ // 0x2e3d @0x15
0x2e28…2e6a at0016 = ╱2d╱-╱ // 0x2e3e @0x16
0x2e28…2e6a at0017 = ╱2d╱-╱ // 0x2e3f @0x17
0x2e28…2e6a at0018 = ╱2d╱-╱ // 0x2e40 @0x18
0x2e28…2e6a at0019 = ╱2d╱-╱ // 0x2e41 @0x19
0x2e28…2e6a at001a = ╱2d╱-╱ // 0x2e42 @0x1a
0x2e28…2e6a at001b = ╱2d╱-╱ // 0x2e43 @0x1b
0x2e28…2e6a at001c = ╱2d╱-╱ // 0x2e44 @0x1c
0x2e28…2e6a at001d = ╱2d╱-╱ // 0x2e45 @0x1d
0x2e28…2e6a at001e = ╱2d╱-╱ // 0x2e46 @0x1e
0x2e28…2e6a at001f = ╱2d╱-╱ // 0x2e47 @0x1f
0x2e28…2e6a at0020 = ╱2d╱-╱ // 0x2e48 @0x20
0x2e28…2e6a at0021 = ╱2d╱-╱ // 0x2e49 @0x21
0x2e28…2e6a at0022 = ╱2d╱-╱ // 0x2e4a @0x22
0x2e28…2e6a at0023 = ╱2d╱-╱ // 0x2e4b @0x23
0x2e28…2e6a at0024 = ╱2d╱-╱ // 0x2e4c @0x24
0x2e28…2e6a at0025 = ╱2d╱-╱ // 0x2e4d @0x25
0x2e28…2e6a at0026 = ╱2d╱-╱ // 0x2e4e @0x26
0x2e28…2e6a at0027 = ╱2d╱-╱ // 0x2e4f @0x27
0x2e28…2e6a at0028 = ╱20╱…╱ // 0x2e50 @0x28
0x2e28…2e6a at0029 = ╱20╱…╱ // 0x2e51 @0x29
0x2e28…2e6a at002a = ╱2d╱-╱ // 0x2e52 @0x2a
0x2e28…2e6a at002b = ╱2d╱-╱ // 0x2e53 @0x2b
0x2e28…2e6a at002c = ╱2d╱-╱ // 0x2e54 @0x2c
0x2e28…2e6a at002d = ╱2d╱-╱ // 0x2e55 @0x2d
0x2e28…2e6a at002e = ╱2d╱-╱ // 0x2e56 @0x2e
0x2e28…2e6a at002f = ╱2d╱-╱ // 0x2e57 @0x2f
0x2e28…2e6a at0030 = ╱2d╱-╱ // 0x2e58 @0x30
0x2e28…2e6a at0031 = ╱2d╱-╱ // 0x2e59 @0x31
0x2e28…2e6a at0032 = ╱20╱…╱ // 0x2e5a @0x32
0x2e28…2e6a at0033 = ╱20╱…╱ // 0x2e5b @0x33
0x2e28…2e6a at0034 = ╱2d╱-╱ // 0x2e5c @0x34
0x2e28…2e6a at0035 = ╱2d╱-╱ // 0x2e5d @0x35
0x2e28…2e6a at0036 = ╱2d╱-╱ // 0x2e5e @0x36
0x2e28…2e6a at0037 = ╱2d╱-╱ // 0x2e5f @0x37
0x2e28…2e6a at0038 = ╱2d╱-╱ // 0x2e60 @0x38
0x2e28…2e6a at0039 = ╱2d╱-╱ // 0x2e61 @0x39
0x2e28…2e6a at003a = ╱2d╱-╱ // 0x2e62 @0x3a
0x2e28…2e6a at003b = ╱2d╱-╱ // 0x2e63 @0x3b
0x2e28…2e6a at003c = ╱2d╱-╱ // 0x2e64 @0x3c
0x2e28…2e6a at003d = ╱2d╱-╱ // 0x2e65 @0x3d
0x2e28…2e6a at003e = ╱20╱…╱ // 0x2e66 @0x3e
0x2e28…2e6a at003f = ╱20╱…╱ // 0x2e67 @0x3f
0x2e28…2e6a at0040 = ╱22╱"╱ // 0x2e68 @0x40
0x2e28…2e6a at0041 = EOL // 0x2e69 @0x41
0x2e28…2e6a }
0x2e6a…2eac b4c5 03030 PRINT "<S>-----……------------------------……--------……----------……"
0x2e6a…2eac LineComal80 {
0x2e6a…2eac ptr = 0xb4c5 // 0x2e6a @0x0
0x2e6a…2eac lno = 0x0bd6 // 0x2e6c @0x2
0x2e6a…2eac at0004 = ╱92╱ PRINT ╱ // 0x2e6e @0x4
0x2e6a…2eac at0005 = ╱22╱"╱ // 0x2e6f @0x5
0x2e6a…2eac at0006 = ╱3c╱<╱ // 0x2e70 @0x6
0x2e6a…2eac at0007 = ╱53╱S╱ // 0x2e71 @0x7
0x2e6a…2eac at0008 = ╱3e╱>╱ // 0x2e72 @0x8
0x2e6a…2eac at0009 = ╱2d╱-╱ // 0x2e73 @0x9
0x2e6a…2eac at000a = ╱2d╱-╱ // 0x2e74 @0xa
0x2e6a…2eac at000b = ╱2d╱-╱ // 0x2e75 @0xb
0x2e6a…2eac at000c = ╱2d╱-╱ // 0x2e76 @0xc
0x2e6a…2eac at000d = ╱2d╱-╱ // 0x2e77 @0xd
0x2e6a…2eac at000e = ╱20╱…╱ // 0x2e78 @0xe
0x2e6a…2eac at000f = ╱20╱…╱ // 0x2e79 @0xf
0x2e6a…2eac at0010 = ╱2d╱-╱ // 0x2e7a @0x10
0x2e6a…2eac at0011 = ╱2d╱-╱ // 0x2e7b @0x11
0x2e6a…2eac at0012 = ╱2d╱-╱ // 0x2e7c @0x12
0x2e6a…2eac at0013 = ╱2d╱-╱ // 0x2e7d @0x13
0x2e6a…2eac at0014 = ╱2d╱-╱ // 0x2e7e @0x14
0x2e6a…2eac at0015 = ╱2d╱-╱ // 0x2e7f @0x15
0x2e6a…2eac at0016 = ╱2d╱-╱ // 0x2e80 @0x16
0x2e6a…2eac at0017 = ╱2d╱-╱ // 0x2e81 @0x17
0x2e6a…2eac at0018 = ╱2d╱-╱ // 0x2e82 @0x18
0x2e6a…2eac at0019 = ╱2d╱-╱ // 0x2e83 @0x19
0x2e6a…2eac at001a = ╱2d╱-╱ // 0x2e84 @0x1a
0x2e6a…2eac at001b = ╱2d╱-╱ // 0x2e85 @0x1b
0x2e6a…2eac at001c = ╱2d╱-╱ // 0x2e86 @0x1c
0x2e6a…2eac at001d = ╱2d╱-╱ // 0x2e87 @0x1d
0x2e6a…2eac at001e = ╱2d╱-╱ // 0x2e88 @0x1e
0x2e6a…2eac at001f = ╱2d╱-╱ // 0x2e89 @0x1f
0x2e6a…2eac at0020 = ╱2d╱-╱ // 0x2e8a @0x20
0x2e6a…2eac at0021 = ╱2d╱-╱ // 0x2e8b @0x21
0x2e6a…2eac at0022 = ╱2d╱-╱ // 0x2e8c @0x22
0x2e6a…2eac at0023 = ╱2d╱-╱ // 0x2e8d @0x23
0x2e6a…2eac at0024 = ╱2d╱-╱ // 0x2e8e @0x24
0x2e6a…2eac at0025 = ╱2d╱-╱ // 0x2e8f @0x25
0x2e6a…2eac at0026 = ╱2d╱-╱ // 0x2e90 @0x26
0x2e6a…2eac at0027 = ╱2d╱-╱ // 0x2e91 @0x27
0x2e6a…2eac at0028 = ╱20╱…╱ // 0x2e92 @0x28
0x2e6a…2eac at0029 = ╱20╱…╱ // 0x2e93 @0x29
0x2e6a…2eac at002a = ╱2d╱-╱ // 0x2e94 @0x2a
0x2e6a…2eac at002b = ╱2d╱-╱ // 0x2e95 @0x2b
0x2e6a…2eac at002c = ╱2d╱-╱ // 0x2e96 @0x2c
0x2e6a…2eac at002d = ╱2d╱-╱ // 0x2e97 @0x2d
0x2e6a…2eac at002e = ╱2d╱-╱ // 0x2e98 @0x2e
0x2e6a…2eac at002f = ╱2d╱-╱ // 0x2e99 @0x2f
0x2e6a…2eac at0030 = ╱2d╱-╱ // 0x2e9a @0x30
0x2e6a…2eac at0031 = ╱2d╱-╱ // 0x2e9b @0x31
0x2e6a…2eac at0032 = ╱20╱…╱ // 0x2e9c @0x32
0x2e6a…2eac at0033 = ╱20╱…╱ // 0x2e9d @0x33
0x2e6a…2eac at0034 = ╱2d╱-╱ // 0x2e9e @0x34
0x2e6a…2eac at0035 = ╱2d╱-╱ // 0x2e9f @0x35
0x2e6a…2eac at0036 = ╱2d╱-╱ // 0x2ea0 @0x36
0x2e6a…2eac at0037 = ╱2d╱-╱ // 0x2ea1 @0x37
0x2e6a…2eac at0038 = ╱2d╱-╱ // 0x2ea2 @0x38
0x2e6a…2eac at0039 = ╱2d╱-╱ // 0x2ea3 @0x39
0x2e6a…2eac at003a = ╱2d╱-╱ // 0x2ea4 @0x3a
0x2e6a…2eac at003b = ╱2d╱-╱ // 0x2ea5 @0x3b
0x2e6a…2eac at003c = ╱2d╱-╱ // 0x2ea6 @0x3c
0x2e6a…2eac at003d = ╱2d╱-╱ // 0x2ea7 @0x3d
0x2e6a…2eac at003e = ╱20╱…╱ // 0x2ea8 @0x3e
0x2e6a…2eac at003f = ╱20╱…╱ // 0x2ea9 @0x3f
0x2e6a…2eac at0040 = ╱22╱"╱ // 0x2eaa @0x40
0x2e6a…2eac at0041 = EOL // 0x2eab @0x41
0x2e6a…2eac }
0x2eac…2eb2 c4a0 04050 //
0x2eac…2eb2 LineComal80 {
0x2eac…2eb2 ptr = 0xc4a0 // 0x2eac @0x0
0x2eac…2eb2 lno = 0x0fd2 // 0x2eae @0x2
0x2eac…2eb2 at0004 = ╱89╱ // ╱ // 0x2eb0 @0x4
0x2eac…2eb2 at0005 = EOL // 0x2eb1 @0x5
0x2eac…2eb2 }
0x2eb2…2ee5 c4d3 04060 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x2eb2…2ee5 LineComal80 {
0x2eb2…2ee5 ptr = 0xc4d3 // 0x2eb2 @0x0
0x2eb2…2ee5 lno = 0x0fdc // 0x2eb4 @0x2
0x2eb2…2ee5 at0004 = ╱9e00╱ PROC ╱ // 0x2eb6 @0x4
0x2eb2…2ee5 at0006 = ╱50╱P╱ // 0x2eb8 @0x6
0x2eb2…2ee5 at0007 = ╱52╱R╱ // 0x2eb9 @0x7
0x2eb2…2ee5 at0008 = ╱49╱I╱ // 0x2eba @0x8
0x2eb2…2ee5 at0009 = ╱4e╱N╱ // 0x2ebb @0x9
0x2eb2…2ee5 at000a = ╱54╱T╱ // 0x2ebc @0xa
0x2eb2…2ee5 at000b = ╱52╱R╱ // 0x2ebd @0xb
0x2eb2…2ee5 at000c = ╱45╱E╱ // 0x2ebe @0xc
0x2eb2…2ee5 at000d = ╱53╱S╱ // 0x2ebf @0xd
0x2eb2…2ee5 at000e = ╱ed╱ ( ╱ // 0x2ec0 @0xe
0x2eb2…2ee5 at000f = ╱50╱P╱ // 0x2ec1 @0xf
0x2eb2…2ee5 at0010 = ╱41╱A╱ // 0x2ec2 @0x10
0x2eb2…2ee5 at0011 = ╱47╱G╱ // 0x2ec3 @0x11
0x2eb2…2ee5 at0012 = ╱45╱E╱ // 0x2ec4 @0x12
0x2eb2…2ee5 at0013 = ╱54╱T╱ // 0x2ec5 @0x13
0x2eb2…2ee5 at0014 = ╱59╱Y╱ // 0x2ec6 @0x14
0x2eb2…2ee5 at0015 = ╱50╱P╱ // 0x2ec7 @0x15
0x2eb2…2ee5 at0016 = ╱45╱E╱ // 0x2ec8 @0x16
0x2eb2…2ee5 at0017 = ╱ef╱ $ ╱ // 0x2ec9 @0x17
0x2eb2…2ee5 at0018 = ╱ec╱ , ╱ // 0x2eca @0x18
0x2eb2…2ee5 at0019 = ╱4c╱L╱ // 0x2ecb @0x19
0x2eb2…2ee5 at001a = ╱49╱I╱ // 0x2ecc @0x1a
0x2eb2…2ee5 at001b = ╱4e╱N╱ // 0x2ecd @0x1b
0x2eb2…2ee5 at001c = ╱45╱E╱ // 0x2ece @0x1c
0x2eb2…2ee5 at001d = ╱ee╱ ) ╱ // 0x2ecf @0x1d
0x2eb2…2ee5 at001e = ╱89╱ // ╱ // 0x2ed0 @0x1e
0x2eb2…2ee5 at001f = ╱50╱P╱ // 0x2ed1 @0x1f
0x2eb2…2ee5 at0020 = ╱52╱R╱ // 0x2ed2 @0x20
0x2eb2…2ee5 at0021 = ╱49╱I╱ // 0x2ed3 @0x21
0x2eb2…2ee5 at0022 = ╱4e╱N╱ // 0x2ed4 @0x22
0x2eb2…2ee5 at0023 = ╱54╱T╱ // 0x2ed5 @0x23
0x2eb2…2ee5 at0024 = ╱45╱E╱ // 0x2ed6 @0x24
0x2eb2…2ee5 at0025 = ╱52╱R╱ // 0x2ed7 @0x25
0x2eb2…2ee5 at0026 = ╱20╱…╱ // 0x2ed8 @0x26
0x2eb2…2ee5 at0027 = ╱52╱R╱ // 0x2ed9 @0x27
0x2eb2…2ee5 at0028 = ╱45╱E╱ // 0x2eda @0x28
0x2eb2…2ee5 at0029 = ╱53╱S╱ // 0x2edb @0x29
0x2eb2…2ee5 at002a = ╱45╱E╱ // 0x2edc @0x2a
0x2eb2…2ee5 at002b = ╱52╱R╱ // 0x2edd @0x2b
0x2eb2…2ee5 at002c = ╱56╱V╱ // 0x2ede @0x2c
0x2eb2…2ee5 at002d = ╱41╱A╱ // 0x2edf @0x2d
0x2eb2…2ee5 at002e = ╱54╱T╱ // 0x2ee0 @0x2e
0x2eb2…2ee5 at002f = ╱49╱I╱ // 0x2ee1 @0x2f
0x2eb2…2ee5 at0030 = ╱4f╱O╱ // 0x2ee2 @0x30
0x2eb2…2ee5 at0031 = ╱4e╱N╱ // 0x2ee3 @0x31
0x2eb2…2ee5 at0032 = EOL // 0x2ee4 @0x32
0x2eb2…2ee5 }
0x2ee5…2efd c4eb 04070 LET PRTNR $ := "1" ; OK := TRUE
0x2ee5…2efd LineComal80 {
0x2ee5…2efd ptr = 0xc4eb // 0x2ee5 @0x0
0x2ee5…2efd lno = 0x0fe6 // 0x2ee7 @0x2
0x2ee5…2efd at0004 = ╱86╱ LET ╱ // 0x2ee9 @0x4
0x2ee5…2efd at0005 = ╱50╱P╱ // 0x2eea @0x5
0x2ee5…2efd at0006 = ╱52╱R╱ // 0x2eeb @0x6
0x2ee5…2efd at0007 = ╱54╱T╱ // 0x2eec @0x7
0x2ee5…2efd at0008 = ╱4e╱N╱ // 0x2eed @0x8
0x2ee5…2efd at0009 = ╱52╱R╱ // 0x2eee @0x9
0x2ee5…2efd at000a = ╱ef╱ $ ╱ // 0x2eef @0xa
0x2ee5…2efd at000b = ╱f0╱ := ╱ // 0x2ef0 @0xb
0x2ee5…2efd at000c = ╱22╱"╱ // 0x2ef1 @0xc
0x2ee5…2efd at000d = ╱31╱1╱ // 0x2ef2 @0xd
0x2ee5…2efd at000e = ╱22╱"╱ // 0x2ef3 @0xe
0x2ee5…2efd at000f = ╱ea╱ ; ╱ // 0x2ef4 @0xf
0x2ee5…2efd at0010 = ╱4f╱O╱ // 0x2ef5 @0x10
0x2ee5…2efd at0011 = ╱4b╱K╱ // 0x2ef6 @0x11
0x2ee5…2efd at0012 = ╱f0╱ := ╱ // 0x2ef7 @0x12
0x2ee5…2efd at0013 = ╱54╱T╱ // 0x2ef8 @0x13
0x2ee5…2efd at0014 = ╱52╱R╱ // 0x2ef9 @0x14
0x2ee5…2efd at0015 = ╱55╱U╱ // 0x2efa @0x15
0x2ee5…2efd at0016 = ╱45╱E╱ // 0x2efb @0x16
0x2ee5…2efd at0017 = EOL // 0x2efc @0x17
0x2ee5…2efd }
0x2efd…2f04 c4f2 04080 REPEAT
0x2efd…2f04 LineComal80 {
0x2efd…2f04 ptr = 0xc4f2 // 0x2efd @0x0
0x2efd…2f04 lno = 0x0ff0 // 0x2eff @0x2
0x2efd…2f04 at0004 = ╱9700╱ REPEAT ╱ // 0x2f01 @0x4
0x2efd…2f04 at0006 = EOL // 0x2f03 @0x6
0x2efd…2f04 }
0x2f04…2f14 c502 04090 CURSOR 15 , LINE
0x2f04…2f14 LineComal80 {
0x2f04…2f14 ptr = 0xc502 // 0x2f04 @0x0
0x2f04…2f14 lno = 0x0ffa // 0x2f06 @0x2
0x2f04…2f14 at0004 = ╱a1╱ CURSOR ╱ // 0x2f08 @0x4
0x2f04…2f14 at0005 = ╱31╱1╱ // 0x2f09 @0x5
0x2f04…2f14 at0006 = ╱35╱5╱ // 0x2f0a @0x6
0x2f04…2f14 at0007 = ╱f20f00╱ // 0x2f0b @0x7
0x2f04…2f14 at000a = ╱ec╱ , ╱ // 0x2f0e @0xa
0x2f04…2f14 at000b = ╱4c╱L╱ // 0x2f0f @0xb
0x2f04…2f14 at000c = ╱49╱I╱ // 0x2f10 @0xc
0x2f04…2f14 at000d = ╱4e╱N╱ // 0x2f11 @0xd
0x2f04…2f14 at000e = ╱45╱E╱ // 0x2f12 @0xe
0x2f04…2f14 at000f = EOL // 0x2f13 @0xf
0x2f04…2f14 }
0x2f14…2f4d c53b 04100 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x2f14…2f4d LineComal80 {
0x2f14…2f4d ptr = 0xc53b // 0x2f14 @0x0
0x2f14…2f4d lno = 0x1004 // 0x2f16 @0x2
0x2f14…2f4d at0004 = ╱b1╱ EDIT ╱ // 0x2f18 @0x4
0x2f14…2f4d at0005 = ╱22╱"╱ // 0x2f19 @0x5
0x2f14…2f4d at0006 = ╱3c╱<╱ // 0x2f1a @0x6
0x2f14…2f4d at0007 = ╱5a╱Z╱ // 0x2f1b @0x7
0x2f14…2f4d at0008 = ╱3e╱>╱ // 0x2f1c @0x8
0x2f14…2f4d at0009 = ╱55╱U╱ // 0x2f1d @0x9
0x2f14…2f4d at000a = ╱64╱d╱ // 0x2f1e @0xa
0x2f14…2f4d at000b = ╱73╱s╱ // 0x2f1f @0xb
0x2f14…2f4d at000c = ╱6b╱k╱ // 0x2f20 @0xc
0x2f14…2f4d at000d = ╱72╱r╱ // 0x2f21 @0xd
0x2f14…2f4d at000e = ╱69╱i╱ // 0x2f22 @0xe
0x2f14…2f4d at000f = ╱76╱v╱ // 0x2f23 @0xf
0x2f14…2f4d at0010 = ╱6e╱n╱ // 0x2f24 @0x10
0x2f14…2f4d at0011 = ╱69╱i╱ // 0x2f25 @0x11
0x2f14…2f4d at0012 = ╱6e╱n╱ // 0x2f26 @0x12
0x2f14…2f4d at0013 = ╱67╱g╱ // 0x2f27 @0x13
0x2f14…2f4d at0014 = ╱20╱…╱ // 0x2f28 @0x14
0x2f14…2f4d at0015 = ╱70╱p╱ // 0x2f29 @0x15
0x2f14…2f4d at0016 = ╱7d╱}╱ // 0x2f2a @0x16
0x2f14…2f4d at0017 = ╱20╱…╱ // 0x2f2b @0x17
0x2f14…2f4d at0018 = ╱70╱p╱ // 0x2f2c @0x18
0x2f14…2f4d at0019 = ╱72╱r╱ // 0x2f2d @0x19
0x2f14…2f4d at001a = ╱69╱i╱ // 0x2f2e @0x1a
0x2f14…2f4d at001b = ╱6e╱n╱ // 0x2f2f @0x1b
0x2f14…2f4d at001c = ╱74╱t╱ // 0x2f30 @0x1c
0x2f14…2f4d at001d = ╱65╱e╱ // 0x2f31 @0x1d
0x2f14…2f4d at001e = ╱72╱r╱ // 0x2f32 @0x1e
0x2f14…2f4d at001f = ╱20╱…╱ // 0x2f33 @0x1f
0x2f14…2f4d at0020 = ╱6e╱n╱ // 0x2f34 @0x20
0x2f14…2f4d at0021 = ╱72╱r╱ // 0x2f35 @0x21
0x2f14…2f4d at0022 = ╱2e╱.╱ // 0x2f36 @0x22
0x2f14…2f4d at0023 = ╱20╱…╱ // 0x2f37 @0x23
0x2f14…2f4d at0024 = ╱3f╱?╱ // 0x2f38 @0x24
0x2f14…2f4d at0025 = ╱20╱…╱ // 0x2f39 @0x25
0x2f14…2f4d at0026 = ╱28╱(╱ // 0x2f3a @0x26
0x2f14…2f4d at0027 = ╱31╱1╱ // 0x2f3b @0x27
0x2f14…2f4d at0028 = ╱2f╱/╱ // 0x2f3c @0x28
0x2f14…2f4d at0029 = ╱32╱2╱ // 0x2f3d @0x29
0x2f14…2f4d at002a = ╱2f╱/╱ // 0x2f3e @0x2a
0x2f14…2f4d at002b = ╱33╱3╱ // 0x2f3f @0x2b
0x2f14…2f4d at002c = ╱2f╱/╱ // 0x2f40 @0x2c
0x2f14…2f4d at002d = ╱34╱4╱ // 0x2f41 @0x2d
0x2f14…2f4d at002e = ╱29╱)╱ // 0x2f42 @0x2e
0x2f14…2f4d at002f = ╱20╱…╱ // 0x2f43 @0x2f
0x2f14…2f4d at0030 = ╱22╱"╱ // 0x2f44 @0x30
0x2f14…2f4d at0031 = ╱f1╱ : ╱ // 0x2f45 @0x31
0x2f14…2f4d at0032 = ╱50╱P╱ // 0x2f46 @0x32
0x2f14…2f4d at0033 = ╱52╱R╱ // 0x2f47 @0x33
0x2f14…2f4d at0034 = ╱54╱T╱ // 0x2f48 @0x34
0x2f14…2f4d at0035 = ╱4e╱N╱ // 0x2f49 @0x35
0x2f14…2f4d at0036 = ╱52╱R╱ // 0x2f4a @0x36
0x2f14…2f4d at0037 = ╱ef╱ $ ╱ // 0x2f4b @0x37
0x2f14…2f4d at0038 = EOL // 0x2f4c @0x38
0x2f14…2f4d }
0x2f4d…2f6d c55b 04110 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x2f4d…2f6d LineComal80 {
0x2f4d…2f6d ptr = 0xc55b // 0x2f4d @0x0
0x2f4d…2f6d lno = 0x100e // 0x2f4f @0x2
0x2f4d…2f6d at0004 = ╱98╱ UNTIL ╱ // 0x2f51 @0x4
0x2f4d…2f6d at0005 = ╱22╱"╱ // 0x2f52 @0x5
0x2f4d…2f6d at0006 = ╱2f╱/╱ // 0x2f53 @0x6
0x2f4d…2f6d at0007 = ╱22╱"╱ // 0x2f54 @0x7
0x2f4d…2f6d at0008 = ╱eb╱ + ╱ // 0x2f55 @0x8
0x2f4d…2f6d at0009 = ╱50╱P╱ // 0x2f56 @0x9
0x2f4d…2f6d at000a = ╱52╱R╱ // 0x2f57 @0xa
0x2f4d…2f6d at000b = ╱54╱T╱ // 0x2f58 @0xb
0x2f4d…2f6d at000c = ╱4e╱N╱ // 0x2f59 @0xc
0x2f4d…2f6d at000d = ╱52╱R╱ // 0x2f5a @0xd
0x2f4d…2f6d at000e = ╱ef╱ $ ╱ // 0x2f5b @0xe
0x2f4d…2f6d at000f = ╱eb╱ + ╱ // 0x2f5c @0xf
0x2f4d…2f6d at0010 = ╱22╱"╱ // 0x2f5d @0x10
0x2f4d…2f6d at0011 = ╱2f╱/╱ // 0x2f5e @0x11
0x2f4d…2f6d at0012 = ╱22╱"╱ // 0x2f5f @0x12
0x2f4d…2f6d at0013 = ╱dc╱ IN ╱ // 0x2f60 @0x13
0x2f4d…2f6d at0014 = ╱22╱"╱ // 0x2f61 @0x14
0x2f4d…2f6d at0015 = ╱2f╱/╱ // 0x2f62 @0x15
0x2f4d…2f6d at0016 = ╱31╱1╱ // 0x2f63 @0x16
0x2f4d…2f6d at0017 = ╱2f╱/╱ // 0x2f64 @0x17
0x2f4d…2f6d at0018 = ╱32╱2╱ // 0x2f65 @0x18
0x2f4d…2f6d at0019 = ╱2f╱/╱ // 0x2f66 @0x19
0x2f4d…2f6d at001a = ╱33╱3╱ // 0x2f67 @0x1a
0x2f4d…2f6d at001b = ╱2f╱/╱ // 0x2f68 @0x1b
0x2f4d…2f6d at001c = ╱34╱4╱ // 0x2f69 @0x1c
0x2f4d…2f6d at001d = ╱2f╱/╱ // 0x2f6a @0x1d
0x2f4d…2f6d at001e = ╱22╱"╱ // 0x2f6b @0x1e
0x2f4d…2f6d at001f = EOL // 0x2f6c @0x1f
0x2f4d…2f6d }
0x2f6d…2f7c c56a 04120 CURSOR 1 , LINE
0x2f6d…2f7c LineComal80 {
0x2f6d…2f7c ptr = 0xc56a // 0x2f6d @0x0
0x2f6d…2f7c lno = 0x1018 // 0x2f6f @0x2
0x2f6d…2f7c at0004 = ╱a1╱ CURSOR ╱ // 0x2f71 @0x4
0x2f6d…2f7c at0005 = ╱31╱1╱ // 0x2f72 @0x5
0x2f6d…2f7c at0006 = ╱f20100╱ // 0x2f73 @0x6
0x2f6d…2f7c at0009 = ╱ec╱ , ╱ // 0x2f76 @0x9
0x2f6d…2f7c at000a = ╱4c╱L╱ // 0x2f77 @0xa
0x2f6d…2f7c at000b = ╱49╱I╱ // 0x2f78 @0xb
0x2f6d…2f7c at000c = ╱4e╱N╱ // 0x2f79 @0xc
0x2f6d…2f7c at000d = ╱45╱E╱ // 0x2f7a @0xd
0x2f6d…2f7c at000e = EOL // 0x2f7b @0xe
0x2f6d…2f7c }
0x2f7c…2f87 c575 04130 PRINT "<Z>"
0x2f7c…2f87 LineComal80 {
0x2f7c…2f87 ptr = 0xc575 // 0x2f7c @0x0
0x2f7c…2f87 lno = 0x1022 // 0x2f7e @0x2
0x2f7c…2f87 at0004 = ╱92╱ PRINT ╱ // 0x2f80 @0x4
0x2f7c…2f87 at0005 = ╱22╱"╱ // 0x2f81 @0x5
0x2f7c…2f87 at0006 = ╱3c╱<╱ // 0x2f82 @0x6
0x2f7c…2f87 at0007 = ╱5a╱Z╱ // 0x2f83 @0x7
0x2f7c…2f87 at0008 = ╱3e╱>╱ // 0x2f84 @0x8
0x2f7c…2f87 at0009 = ╱22╱"╱ // 0x2f85 @0x9
0x2f7c…2f87 at000a = EOL // 0x2f86 @0xa
0x2f7c…2f87 }
0x2f87…2fab c599 04140 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x2f87…2fab LineComal80 {
0x2f87…2fab ptr = 0xc599 // 0x2f87 @0x0
0x2f87…2fab lno = 0x102c // 0x2f89 @0x2
0x2f87…2fab at0004 = ╱a1╱ CURSOR ╱ // 0x2f8b @0x4
0x2f87…2fab at0005 = ╱ed╱ ( ╱ // 0x2f8c @0x5
0x2f87…2fab at0006 = ╱33╱3╱ // 0x2f8d @0x6
0x2f87…2fab at0007 = ╱39╱9╱ // 0x2f8e @0x7
0x2f87…2fab at0008 = ╱f22700╱ // 0x2f8f @0x8
0x2f87…2fab at000b = ╱e6╱ - ╱ // 0x2f92 @0xb
0x2f87…2fab at000c = ╱cb╱ // 0x2f93 @0xc
0x2f87…2fab at000d = ╱ed╱ ( ╱ // 0x2f94 @0xd
0x2f87…2fab at000e = ╱50╱P╱ // 0x2f95 @0xe
0x2f87…2fab at000f = ╱41╱A╱ // 0x2f96 @0xf
0x2f87…2fab at0010 = ╱47╱G╱ // 0x2f97 @0x10
0x2f87…2fab at0011 = ╱45╱E╱ // 0x2f98 @0x11
0x2f87…2fab at0012 = ╱54╱T╱ // 0x2f99 @0x12
0x2f87…2fab at0013 = ╱59╱Y╱ // 0x2f9a @0x13
0x2f87…2fab at0014 = ╱50╱P╱ // 0x2f9b @0x14
0x2f87…2fab at0015 = ╱45╱E╱ // 0x2f9c @0x15
0x2f87…2fab at0016 = ╱ef╱ $ ╱ // 0x2f9d @0x16
0x2f87…2fab at0017 = ╱ee╱ ) ╱ // 0x2f9e @0x17
0x2f87…2fab at0018 = ╱ee╱ ) ╱ // 0x2f9f @0x18
0x2f87…2fab at0019 = ╱da╱ DIV ╱ // 0x2fa0 @0x19
0x2f87…2fab at001a = ╱32╱2╱ // 0x2fa1 @0x1a
0x2f87…2fab at001b = ╱f20200╱ // 0x2fa2 @0x1b
0x2f87…2fab at001e = ╱ec╱ , ╱ // 0x2fa5 @0x1e
0x2f87…2fab at001f = ╱4c╱L╱ // 0x2fa6 @0x1f
0x2f87…2fab at0020 = ╱49╱I╱ // 0x2fa7 @0x20
0x2f87…2fab at0021 = ╱4e╱N╱ // 0x2fa8 @0x21
0x2f87…2fab at0022 = ╱45╱E╱ // 0x2fa9 @0x22
0x2f87…2fab at0023 = EOL // 0x2faa @0x23
0x2f87…2fab }
0x2fab…2feb c5d9 04150 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x2fab…2feb LineComal80 {
0x2fab…2feb ptr = 0xc5d9 // 0x2fab @0x0
0x2fab…2feb lno = 0x1036 // 0x2fad @0x2
0x2fab…2feb at0004 = ╱92╱ PRINT ╱ // 0x2faf @0x4
0x2fab…2feb at0005 = ╱22╱"╱ // 0x2fb0 @0x5
0x2fab…2feb at0006 = ╱3c╱<╱ // 0x2fb1 @0x6
0x2fab…2feb at0007 = ╱53╱S╱ // 0x2fb2 @0x7
0x2fab…2feb at0008 = ╱5a╱Z╱ // 0x2fb3 @0x8
0x2fab…2feb at0009 = ╱3e╱>╱ // 0x2fb4 @0x9
0x2fab…2feb at000a = ╱20╱…╱ // 0x2fb5 @0xa
0x2fab…2feb at000b = ╱20╱…╱ // 0x2fb6 @0xb
0x2fab…2feb at000c = ╱20╱…╱ // 0x2fb7 @0xc
0x2fab…2feb at000d = ╱20╱…╱ // 0x2fb8 @0xd
0x2fab…2feb at000e = ╱20╱…╱ // 0x2fb9 @0xe
0x2fab…2feb at000f = ╱4d╱M╱ // 0x2fba @0xf
0x2fab…2feb at0010 = ╱6f╱o╱ // 0x2fbb @0x10
0x2fab…2feb at0011 = ╱6e╱n╱ // 0x2fbc @0x11
0x2fab…2feb at0012 = ╱74╱t╱ // 0x2fbd @0x12
0x2fab…2feb at0013 = ╱65╱e╱ // 0x2fbe @0x13
0x2fab…2feb at0014 = ╱72╱r╱ // 0x2fbf @0x14
0x2fab…2feb at0015 = ╱20╱…╱ // 0x2fc0 @0x15
0x2fab…2feb at0016 = ╱22╱"╱ // 0x2fc1 @0x16
0x2fab…2feb at0017 = ╱ea╱ ; ╱ // 0x2fc2 @0x17
0x2fab…2feb at0018 = ╱50╱P╱ // 0x2fc3 @0x18
0x2fab…2feb at0019 = ╱41╱A╱ // 0x2fc4 @0x19
0x2fab…2feb at001a = ╱47╱G╱ // 0x2fc5 @0x1a
0x2fab…2feb at001b = ╱45╱E╱ // 0x2fc6 @0x1b
0x2fab…2feb at001c = ╱54╱T╱ // 0x2fc7 @0x1c
0x2fab…2feb at001d = ╱59╱Y╱ // 0x2fc8 @0x1d
0x2fab…2feb at001e = ╱50╱P╱ // 0x2fc9 @0x1e
0x2fab…2feb at001f = ╱45╱E╱ // 0x2fca @0x1f
0x2fab…2feb at0020 = ╱ef╱ $ ╱ // 0x2fcb @0x20
0x2fab…2feb at0021 = ╱ea╱ ; ╱ // 0x2fcc @0x21
0x2fab…2feb at0022 = ╱22╱"╱ // 0x2fcd @0x22
0x2fab…2feb at0023 = ╱20╱…╱ // 0x2fce @0x23
0x2fab…2feb at0024 = ╱69╱i╱ // 0x2fcf @0x24
0x2fab…2feb at0025 = ╱20╱…╱ // 0x2fd0 @0x25
0x2fab…2feb at0026 = ╱70╱p╱ // 0x2fd1 @0x26
0x2fab…2feb at0027 = ╱72╱r╱ // 0x2fd2 @0x27
0x2fab…2feb at0028 = ╱69╱i╱ // 0x2fd3 @0x28
0x2fab…2feb at0029 = ╱6e╱n╱ // 0x2fd4 @0x29
0x2fab…2feb at002a = ╱74╱t╱ // 0x2fd5 @0x2a
0x2fab…2feb at002b = ╱65╱e╱ // 0x2fd6 @0x2b
0x2fab…2feb at002c = ╱72╱r╱ // 0x2fd7 @0x2c
0x2fab…2feb at002d = ╱65╱e╱ // 0x2fd8 @0x2d
0x2fab…2feb at002e = ╱6e╱n╱ // 0x2fd9 @0x2e
0x2fab…2feb at002f = ╱20╱…╱ // 0x2fda @0x2f
0x2fab…2feb at0030 = ╱2d╱-╱ // 0x2fdb @0x30
0x2fab…2feb at0031 = ╱20╱…╱ // 0x2fdc @0x31
0x2fab…2feb at0032 = ╱74╱t╱ // 0x2fdd @0x32
0x2fab…2feb at0033 = ╱72╱r╱ // 0x2fde @0x33
0x2fab…2feb at0034 = ╱79╱y╱ // 0x2fdf @0x34
0x2fab…2feb at0035 = ╱6b╱k╱ // 0x2fe0 @0x35
0x2fab…2feb at0036 = ╱20╱…╱ // 0x2fe1 @0x36
0x2fab…2feb at0037 = ╱52╱R╱ // 0x2fe2 @0x37
0x2fab…2feb at0038 = ╱45╱E╱ // 0x2fe3 @0x38
0x2fab…2feb at0039 = ╱54╱T╱ // 0x2fe4 @0x39
0x2fab…2feb at003a = ╱55╱U╱ // 0x2fe5 @0x3a
0x2fab…2feb at003b = ╱52╱R╱ // 0x2fe6 @0x3b
0x2fab…2feb at003c = ╱4e╱N╱ // 0x2fe7 @0x3c
0x2fab…2feb at003d = ╱20╱…╱ // 0x2fe8 @0x3d
0x2fab…2feb at003e = ╱22╱"╱ // 0x2fe9 @0x3e
0x2fab…2feb at003f = EOL // 0x2fea @0x3f
0x2fab…2feb }
0x2feb…2ff9 c5e7 04160 INPUT "" : SVAR $
0x2feb…2ff9 LineComal80 {
0x2feb…2ff9 ptr = 0xc5e7 // 0x2feb @0x0
0x2feb…2ff9 lno = 0x1040 // 0x2fed @0x2
0x2feb…2ff9 at0004 = ╱91╱ INPUT ╱ // 0x2fef @0x4
0x2feb…2ff9 at0005 = ╱22╱"╱ // 0x2ff0 @0x5
0x2feb…2ff9 at0006 = ╱22╱"╱ // 0x2ff1 @0x6
0x2feb…2ff9 at0007 = ╱f1╱ : ╱ // 0x2ff2 @0x7
0x2feb…2ff9 at0008 = ╱53╱S╱ // 0x2ff3 @0x8
0x2feb…2ff9 at0009 = ╱56╱V╱ // 0x2ff4 @0x9
0x2feb…2ff9 at000a = ╱41╱A╱ // 0x2ff5 @0xa
0x2feb…2ff9 at000b = ╱52╱R╱ // 0x2ff6 @0xb
0x2feb…2ff9 at000c = ╱ef╱ $ ╱ // 0x2ff7 @0xc
0x2feb…2ff9 at000d = EOL // 0x2ff8 @0xd
0x2feb…2ff9 }
0x2ff9…3009 c5f7 04170 SELECT OUTPUT "P" + PRTNR $
0x2ff9…3009 LineComal80 {
0x2ff9…3009 ptr = 0xc5f7 // 0x2ff9 @0x0
0x2ff9…3009 lno = 0x104a // 0x2ffb @0x2
0x2ff9…3009 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2ffd @0x4
0x2ff9…3009 at0005 = ╱22╱"╱ // 0x2ffe @0x5
0x2ff9…3009 at0006 = ╱50╱P╱ // 0x2fff @0x6
0x2ff9…3009 at0007 = ╱22╱"╱ // 0x3000 @0x7
0x2ff9…3009 at0008 = ╱eb╱ + ╱ // 0x3001 @0x8
0x2ff9…3009 at0009 = ╱50╱P╱ // 0x3002 @0x9
0x2ff9…3009 at000a = ╱52╱R╱ // 0x3003 @0xa
0x2ff9…3009 at000b = ╱54╱T╱ // 0x3004 @0xb
0x2ff9…3009 at000c = ╱4e╱N╱ // 0x3005 @0xc
0x2ff9…3009 at000d = ╱52╱R╱ // 0x3006 @0xd
0x2ff9…3009 at000e = ╱ef╱ $ ╱ // 0x3007 @0xe
0x2ff9…3009 at000f = EOL // 0x3008 @0xf
0x2ff9…3009 }
0x3009…3017 c605 04180 IF ( "P" ) THEN
0x3009…3017 LineComal80 {
0x3009…3017 ptr = 0xc605 // 0x3009 @0x0
0x3009…3017 lno = 0x1054 // 0x300b @0x2
0x3009…3017 at0004 = ╱9b00cd╱ IF ╱ // 0x300d @0x4
0x3009…3017 at0007 = ╱ed╱ ( ╱ // 0x3010 @0x7
0x3009…3017 at0008 = ╱22╱"╱ // 0x3011 @0x8
0x3009…3017 at0009 = ╱50╱P╱ // 0x3012 @0x9
0x3009…3017 at000a = ╱22╱"╱ // 0x3013 @0xa
0x3009…3017 at000b = ╱ee╱ ) ╱ // 0x3014 @0xb
0x3009…3017 at000c = ╱b5╱ THEN ╱ // 0x3015 @0xc
0x3009…3017 at000d = EOL // 0x3016 @0xd
0x3009…3017 }
0x3017…3027 c615 04190 CURSOR 12 , LINE
0x3017…3027 LineComal80 {
0x3017…3027 ptr = 0xc615 // 0x3017 @0x0
0x3017…3027 lno = 0x105e // 0x3019 @0x2
0x3017…3027 at0004 = ╱a1╱ CURSOR ╱ // 0x301b @0x4
0x3017…3027 at0005 = ╱31╱1╱ // 0x301c @0x5
0x3017…3027 at0006 = ╱32╱2╱ // 0x301d @0x6
0x3017…3027 at0007 = ╱f20c00╱ // 0x301e @0x7
0x3017…3027 at000a = ╱ec╱ , ╱ // 0x3021 @0xa
0x3017…3027 at000b = ╱4c╱L╱ // 0x3022 @0xb
0x3017…3027 at000c = ╱49╱I╱ // 0x3023 @0xc
0x3017…3027 at000d = ╱4e╱N╱ // 0x3024 @0xd
0x3017…3027 at000e = ╱45╱E╱ // 0x3025 @0xe
0x3017…3027 at000f = EOL // 0x3026 @0xf
0x3017…3027 }
0x3027…305e c64c 04200 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x3027…305e LineComal80 {
0x3027…305e ptr = 0xc64c // 0x3027 @0x0
0x3027…305e lno = 0x1068 // 0x3029 @0x2
0x3027…305e at0004 = ╱92╱ PRINT ╱ // 0x302b @0x4
0x3027…305e at0005 = ╱22╱"╱ // 0x302c @0x5
0x3027…305e at0006 = ╱3c╱<╱ // 0x302d @0x6
0x3027…305e at0007 = ╱53╱S╱ // 0x302e @0x7
0x3027…305e at0008 = ╱5a╱Z╱ // 0x302f @0x8
0x3027…305e at0009 = ╱3e╱>╱ // 0x3030 @0x9
0x3027…305e at000a = ╱50╱P╱ // 0x3031 @0xa
0x3027…305e at000b = ╱72╱r╱ // 0x3032 @0xb
0x3027…305e at000c = ╱69╱i╱ // 0x3033 @0xc
0x3027…305e at000d = ╱6e╱n╱ // 0x3034 @0xd
0x3027…305e at000e = ╱74╱t╱ // 0x3035 @0xe
0x3027…305e at000f = ╱65╱e╱ // 0x3036 @0xf
0x3027…305e at0010 = ╱72╱r╱ // 0x3037 @0x10
0x3027…305e at0011 = ╱65╱e╱ // 0x3038 @0x11
0x3027…305e at0012 = ╱6e╱n╱ // 0x3039 @0x12
0x3027…305e at0013 = ╱20╱…╱ // 0x303a @0x13
0x3027…305e at0014 = ╱65╱e╱ // 0x303b @0x14
0x3027…305e at0015 = ╱72╱r╱ // 0x303c @0x15
0x3027…305e at0016 = ╱20╱…╱ // 0x303d @0x16
0x3027…305e at0017 = ╱72╱r╱ // 0x303e @0x17
0x3027…305e at0018 = ╱65╱e╱ // 0x303f @0x18
0x3027…305e at0019 = ╱73╱s╱ // 0x3040 @0x19
0x3027…305e at001a = ╱65╱e╱ // 0x3041 @0x1a
0x3027…305e at001b = ╱72╱r╱ // 0x3042 @0x1b
0x3027…305e at001c = ╱76╱v╱ // 0x3043 @0x1c
0x3027…305e at001d = ╱65╱e╱ // 0x3044 @0x1d
0x3027…305e at001e = ╱72╱r╱ // 0x3045 @0x1e
0x3027…305e at001f = ╱65╱e╱ // 0x3046 @0x1f
0x3027…305e at0020 = ╱74╱t╱ // 0x3047 @0x20
0x3027…305e at0021 = ╱20╱…╱ // 0x3048 @0x21
0x3027…305e at0022 = ╱61╱a╱ // 0x3049 @0x22
0x3027…305e at0023 = ╱66╱f╱ // 0x304a @0x23
0x3027…305e at0024 = ╱20╱…╱ // 0x304b @0x24
0x3027…305e at0025 = ╱65╱e╱ // 0x304c @0x25
0x3027…305e at0026 = ╱6e╱n╱ // 0x304d @0x26
0x3027…305e at0027 = ╱20╱…╱ // 0x304e @0x27
0x3027…305e at0028 = ╱61╱a╱ // 0x304f @0x28
0x3027…305e at0029 = ╱6e╱n╱ // 0x3050 @0x29
0x3027…305e at002a = ╱64╱d╱ // 0x3051 @0x2a
0x3027…305e at002b = ╱65╱e╱ // 0x3052 @0x2b
0x3027…305e at002c = ╱6e╱n╱ // 0x3053 @0x2c
0x3027…305e at002d = ╱20╱…╱ // 0x3054 @0x2d
0x3027…305e at002e = ╱62╱b╱ // 0x3055 @0x2e
0x3027…305e at002f = ╱72╱r╱ // 0x3056 @0x2f
0x3027…305e at0030 = ╱75╱u╱ // 0x3057 @0x30
0x3027…305e at0031 = ╱67╱g╱ // 0x3058 @0x31
0x3027…305e at0032 = ╱65╱e╱ // 0x3059 @0x32
0x3027…305e at0033 = ╱72╱r╱ // 0x305a @0x33
0x3027…305e at0034 = ╱2c╱,╱ // 0x305b @0x34
0x3027…305e at0035 = ╱22╱"╱ // 0x305c @0x35
0x3027…305e at0036 = EOL // 0x305d @0x36
0x3027…305e }
0x305e…3073 c661 04210 CURSOR 12 , LINE + 1
0x305e…3073 LineComal80 {
0x305e…3073 ptr = 0xc661 // 0x305e @0x0
0x305e…3073 lno = 0x1072 // 0x3060 @0x2
0x305e…3073 at0004 = ╱a1╱ CURSOR ╱ // 0x3062 @0x4
0x305e…3073 at0005 = ╱31╱1╱ // 0x3063 @0x5
0x305e…3073 at0006 = ╱32╱2╱ // 0x3064 @0x6
0x305e…3073 at0007 = ╱f20c00╱ // 0x3065 @0x7
0x305e…3073 at000a = ╱ec╱ , ╱ // 0x3068 @0xa
0x305e…3073 at000b = ╱4c╱L╱ // 0x3069 @0xb
0x305e…3073 at000c = ╱49╱I╱ // 0x306a @0xc
0x305e…3073 at000d = ╱4e╱N╱ // 0x306b @0xd
0x305e…3073 at000e = ╱45╱E╱ // 0x306c @0xe
0x305e…3073 at000f = ╱e5╱ + ╱ // 0x306d @0xf
0x305e…3073 at0010 = ╱31╱1╱ // 0x306e @0x10
0x305e…3073 at0011 = ╱f20100╱ // 0x306f @0x11
0x305e…3073 at0014 = EOL // 0x3072 @0x14
0x305e…3073 }
0x3073…30b4 c6a2 04220 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x3073…30b4 LineComal80 {
0x3073…30b4 ptr = 0xc6a2 // 0x3073 @0x0
0x3073…30b4 lno = 0x107c // 0x3075 @0x2
0x3073…30b4 at0004 = ╱91╱ INPUT ╱ // 0x3077 @0x4
0x3073…30b4 at0005 = ╱22╱"╱ // 0x3078 @0x5
0x3073…30b4 at0006 = ╱3c╱<╱ // 0x3079 @0x6
0x3073…30b4 at0007 = ╱53╱S╱ // 0x307a @0x7
0x3073…30b4 at0008 = ╱5a╱Z╱ // 0x307b @0x8
0x3073…30b4 at0009 = ╱3e╱>╱ // 0x307c @0x9
0x3073…30b4 at000a = ╱53╱S╱ // 0x307d @0xa
0x3073…30b4 at000b = ╱6b╱k╱ // 0x307e @0xb
0x3073…30b4 at000c = ╱61╱a╱ // 0x307f @0xc
0x3073…30b4 at000d = ╱6c╱l╱ // 0x3080 @0xd
0x3073…30b4 at000e = ╱20╱…╱ // 0x3081 @0xe
0x3073…30b4 at000f = ╱64╱d╱ // 0x3082 @0xf
0x3073…30b4 at0010 = ╱65╱e╱ // 0x3083 @0x10
0x3073…30b4 at0011 = ╱72╱r╱ // 0x3084 @0x11
0x3073…30b4 at0012 = ╱20╱…╱ // 0x3085 @0x12
0x3073…30b4 at0013 = ╱76╱v╱ // 0x3086 @0x13
0x3073…30b4 at0014 = ╱65╱e╱ // 0x3087 @0x14
0x3073…30b4 at0015 = ╱6e╱n╱ // 0x3088 @0x15
0x3073…30b4 at0016 = ╱74╱t╱ // 0x3089 @0x16
0x3073…30b4 at0017 = ╱65╱e╱ // 0x308a @0x17
0x3073…30b4 at0018 = ╱73╱s╱ // 0x308b @0x18
0x3073…30b4 at0019 = ╱20╱…╱ // 0x308c @0x19
0x3073…30b4 at001a = ╱70╱p╱ // 0x308d @0x1a
0x3073…30b4 at001b = ╱7d╱}╱ // 0x308e @0x1b
0x3073…30b4 at001c = ╱20╱…╱ // 0x308f @0x1c
0x3073…30b4 at001d = ╱61╱a╱ // 0x3090 @0x1d
0x3073…30b4 at001e = ╱74╱t╱ // 0x3091 @0x1e
0x3073…30b4 at001f = ╱20╱…╱ // 0x3092 @0x1f
0x3073…30b4 at0020 = ╱64╱d╱ // 0x3093 @0x20
0x3073…30b4 at0021 = ╱65╱e╱ // 0x3094 @0x21
0x3073…30b4 at0022 = ╱6e╱n╱ // 0x3095 @0x22
0x3073…30b4 at0023 = ╱20╱…╱ // 0x3096 @0x23
0x3073…30b4 at0024 = ╱62╱b╱ // 0x3097 @0x24
0x3073…30b4 at0025 = ╱6c╱l╱ // 0x3098 @0x25
0x3073…30b4 at0026 = ╱69╱i╱ // 0x3099 @0x26
0x3073…30b4 at0027 = ╱76╱v╱ // 0x309a @0x27
0x3073…30b4 at0028 = ╱65╱e╱ // 0x309b @0x28
0x3073…30b4 at0029 = ╱72╱r╱ // 0x309c @0x29
0x3073…30b4 at002a = ╱20╱…╱ // 0x309d @0x2a
0x3073…30b4 at002b = ╱6c╱l╱ // 0x309e @0x2b
0x3073…30b4 at002c = ╱65╱e╱ // 0x309f @0x2c
0x3073…30b4 at002d = ╱64╱d╱ // 0x30a0 @0x2d
0x3073…30b4 at002e = ╱69╱i╱ // 0x30a1 @0x2e
0x3073…30b4 at002f = ╱67╱g╱ // 0x30a2 @0x2f
0x3073…30b4 at0030 = ╱20╱…╱ // 0x30a3 @0x30
0x3073…30b4 at0031 = ╱3f╱?╱ // 0x30a4 @0x31
0x3073…30b4 at0032 = ╱20╱…╱ // 0x30a5 @0x32
0x3073…30b4 at0033 = ╱28╱(╱ // 0x30a6 @0x33
0x3073…30b4 at0034 = ╱6a╱j╱ // 0x30a7 @0x34
0x3073…30b4 at0035 = ╱2f╱/╱ // 0x30a8 @0x35
0x3073…30b4 at0036 = ╱6e╱n╱ // 0x30a9 @0x36
0x3073…30b4 at0037 = ╱29╱)╱ // 0x30aa @0x37
0x3073…30b4 at0038 = ╱20╱…╱ // 0x30ab @0x38
0x3073…30b4 at0039 = ╱22╱"╱ // 0x30ac @0x39
0x3073…30b4 at003a = ╱f1╱ : ╱ // 0x30ad @0x3a
0x3073…30b4 at003b = ╱53╱S╱ // 0x30ae @0x3b
0x3073…30b4 at003c = ╱56╱V╱ // 0x30af @0x3c
0x3073…30b4 at003d = ╱41╱A╱ // 0x30b0 @0x3d
0x3073…30b4 at003e = ╱52╱R╱ // 0x30b1 @0x3e
0x3073…30b4 at003f = ╱ef╱ $ ╱ // 0x30b2 @0x3f
0x3073…30b4 at0040 = EOL // 0x30b3 @0x40
0x3073…30b4 }
0x30b4…30cf c6bd 04230 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x30b4…30cf LineComal80 {
0x30b4…30cf ptr = 0xc6bd // 0x30b4 @0x0
0x30b4…30cf lno = 0x1086 // 0x30b6 @0x2
0x30b4…30cf at0004 = ╱9b0053╱ IF ╱ // 0x30b8 @0x4
0x30b4…30cf at0007 = ╱56╱V╱ // 0x30bb @0x7
0x30b4…30cf at0008 = ╱41╱A╱ // 0x30bc @0x8
0x30b4…30cf at0009 = ╱52╱R╱ // 0x30bd @0x9
0x30b4…30cf at000a = ╱ef╱ $ ╱ // 0x30be @0xa
0x30b4…30cf at000b = ╱df╱ = ╱ // 0x30bf @0xb
0x30b4…30cf at000c = ╱22╱"╱ // 0x30c0 @0xc
0x30b4…30cf at000d = ╱4a╱J╱ // 0x30c1 @0xd
0x30b4…30cf at000e = ╱22╱"╱ // 0x30c2 @0xe
0x30b4…30cf at000f = ╱d8╱ OR ╱ // 0x30c3 @0xf
0x30b4…30cf at0010 = ╱53╱S╱ // 0x30c4 @0x10
0x30b4…30cf at0011 = ╱56╱V╱ // 0x30c5 @0x11
0x30b4…30cf at0012 = ╱41╱A╱ // 0x30c6 @0x12
0x30b4…30cf at0013 = ╱52╱R╱ // 0x30c7 @0x13
0x30b4…30cf at0014 = ╱ef╱ $ ╱ // 0x30c8 @0x14
0x30b4…30cf at0015 = ╱df╱ = ╱ // 0x30c9 @0x15
0x30b4…30cf at0016 = ╱22╱"╱ // 0x30ca @0x16
0x30b4…30cf at0017 = ╱6a╱j╱ // 0x30cb @0x17
0x30b4…30cf at0018 = ╱22╱"╱ // 0x30cc @0x18
0x30b4…30cf at0019 = ╱b5╱ THEN ╱ // 0x30cd @0x19
0x30b4…30cf at001a = EOL // 0x30ce @0x1a
0x30b4…30cf }
0x30cf…30df c6cd 04240 CURSOR 12 , LINE
0x30cf…30df LineComal80 {
0x30cf…30df ptr = 0xc6cd // 0x30cf @0x0
0x30cf…30df lno = 0x1090 // 0x30d1 @0x2
0x30cf…30df at0004 = ╱a1╱ CURSOR ╱ // 0x30d3 @0x4
0x30cf…30df at0005 = ╱31╱1╱ // 0x30d4 @0x5
0x30cf…30df at0006 = ╱32╱2╱ // 0x30d5 @0x6
0x30cf…30df at0007 = ╱f20c00╱ // 0x30d6 @0x7
0x30cf…30df at000a = ╱ec╱ , ╱ // 0x30d9 @0xa
0x30cf…30df at000b = ╱4c╱L╱ // 0x30da @0xb
0x30cf…30df at000c = ╱49╱I╱ // 0x30db @0xc
0x30cf…30df at000d = ╱4e╱N╱ // 0x30dc @0xd
0x30cf…30df at000e = ╱45╱E╱ // 0x30dd @0xe
0x30cf…30df at000f = EOL // 0x30de @0xf
0x30cf…30df }
0x30df…311a c708 04250 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x30df…311a LineComal80 {
0x30df…311a ptr = 0xc708 // 0x30df @0x0
0x30df…311a lno = 0x109a // 0x30e1 @0x2
0x30df…311a at0004 = ╱92╱ PRINT ╱ // 0x30e3 @0x4
0x30df…311a at0005 = ╱22╱"╱ // 0x30e4 @0x5
0x30df…311a at0006 = ╱3c╱<╱ // 0x30e5 @0x6
0x30df…311a at0007 = ╱5a╱Z╱ // 0x30e6 @0x7
0x30df…311a at0008 = ╱3e╱>╱ // 0x30e7 @0x8
0x30df…311a at0009 = ╱20╱…╱ // 0x30e8 @0x9
0x30df…311a at000a = ╱20╱…╱ // 0x30e9 @0xa
0x30df…311a at000b = ╱20╱…╱ // 0x30ea @0xb
0x30df…311a at000c = ╱20╱…╱ // 0x30eb @0xc
0x30df…311a at000d = ╱20╱…╱ // 0x30ec @0xd
0x30df…311a at000e = ╱44╱D╱ // 0x30ed @0xe
0x30df…311a at000f = ╱65╱e╱ // 0x30ee @0xf
0x30df…311a at0010 = ╱72╱r╱ // 0x30ef @0x10
0x30df…311a at0011 = ╱20╱…╱ // 0x30f0 @0x11
0x30df…311a at0012 = ╱76╱v╱ // 0x30f1 @0x12
0x30df…311a at0013 = ╱65╱e╱ // 0x30f2 @0x13
0x30df…311a at0014 = ╱6e╱n╱ // 0x30f3 @0x14
0x30df…311a at0015 = ╱74╱t╱ // 0x30f4 @0x15
0x30df…311a at0016 = ╱65╱e╱ // 0x30f5 @0x16
0x30df…311a at0017 = ╱73╱s╱ // 0x30f6 @0x17
0x30df…311a at0018 = ╱20╱…╱ // 0x30f7 @0x18
0x30df…311a at0019 = ╱70╱p╱ // 0x30f8 @0x19
0x30df…311a at001a = ╱7d╱}╱ // 0x30f9 @0x1a
0x30df…311a at001b = ╱20╱…╱ // 0x30fa @0x1b
0x30df…311a at001c = ╱61╱a╱ // 0x30fb @0x1c
0x30df…311a at001d = ╱74╱t╱ // 0x30fc @0x1d
0x30df…311a at001e = ╱20╱…╱ // 0x30fd @0x1e
0x30df…311a at001f = ╱70╱p╱ // 0x30fe @0x1f
0x30df…311a at0020 = ╱72╱r╱ // 0x30ff @0x20
0x30df…311a at0021 = ╱69╱i╱ // 0x3100 @0x21
0x30df…311a at0022 = ╱6e╱n╱ // 0x3101 @0x22
0x30df…311a at0023 = ╱74╱t╱ // 0x3102 @0x23
0x30df…311a at0024 = ╱65╱e╱ // 0x3103 @0x24
0x30df…311a at0025 = ╱72╱r╱ // 0x3104 @0x25
0x30df…311a at0026 = ╱65╱e╱ // 0x3105 @0x26
0x30df…311a at0027 = ╱6e╱n╱ // 0x3106 @0x27
0x30df…311a at0028 = ╱20╱…╱ // 0x3107 @0x28
0x30df…311a at0029 = ╱62╱b╱ // 0x3108 @0x29
0x30df…311a at002a = ╱6c╱l╱ // 0x3109 @0x2a
0x30df…311a at002b = ╱69╱i╱ // 0x310a @0x2b
0x30df…311a at002c = ╱76╱v╱ // 0x310b @0x2c
0x30df…311a at002d = ╱65╱e╱ // 0x310c @0x2d
0x30df…311a at002e = ╱72╱r╱ // 0x310d @0x2e
0x30df…311a at002f = ╱20╱…╱ // 0x310e @0x2f
0x30df…311a at0030 = ╱6c╱l╱ // 0x310f @0x30
0x30df…311a at0031 = ╱65╱e╱ // 0x3110 @0x31
0x30df…311a at0032 = ╱64╱d╱ // 0x3111 @0x32
0x30df…311a at0033 = ╱69╱i╱ // 0x3112 @0x33
0x30df…311a at0034 = ╱67╱g╱ // 0x3113 @0x34
0x30df…311a at0035 = ╱2e╱.╱ // 0x3114 @0x35
0x30df…311a at0036 = ╱2e╱.╱ // 0x3115 @0x36
0x30df…311a at0037 = ╱2e╱.╱ // 0x3116 @0x37
0x30df…311a at0038 = ╱2e╱.╱ // 0x3117 @0x38
0x30df…311a at0039 = ╱22╱"╱ // 0x3118 @0x39
0x30df…311a at003a = EOL // 0x3119 @0x3a
0x30df…311a }
0x311a…3126 c714 04260 PRINT "<SZ>"
0x311a…3126 LineComal80 {
0x311a…3126 ptr = 0xc714 // 0x311a @0x0
0x311a…3126 lno = 0x10a4 // 0x311c @0x2
0x311a…3126 at0004 = ╱92╱ PRINT ╱ // 0x311e @0x4
0x311a…3126 at0005 = ╱22╱"╱ // 0x311f @0x5
0x311a…3126 at0006 = ╱3c╱<╱ // 0x3120 @0x6
0x311a…3126 at0007 = ╱53╱S╱ // 0x3121 @0x7
0x311a…3126 at0008 = ╱5a╱Z╱ // 0x3122 @0x8
0x311a…3126 at0009 = ╱3e╱>╱ // 0x3123 @0x9
0x311a…3126 at000a = ╱22╱"╱ // 0x3124 @0xa
0x311a…3126 at000b = EOL // 0x3125 @0xb
0x311a…3126 }
0x3126…3134 c722 04270 WHILE ╱cd╱ ( "P" ) DO
0x3126…3134 LineComal80 {
0x3126…3134 ptr = 0xc722 // 0x3126 @0x0
0x3126…3134 lno = 0x10ae // 0x3128 @0x2
0x3126…3134 at0004 = ╱9300╱ WHILE ╱ // 0x312a @0x4
0x3126…3134 at0006 = ╱cd╱ // 0x312c @0x6
0x3126…3134 at0007 = ╱ed╱ ( ╱ // 0x312d @0x7
0x3126…3134 at0008 = ╱22╱"╱ // 0x312e @0x8
0x3126…3134 at0009 = ╱50╱P╱ // 0x312f @0x9
0x3126…3134 at000a = ╱22╱"╱ // 0x3130 @0xa
0x3126…3134 at000b = ╱ee╱ ) ╱ // 0x3131 @0xb
0x3126…3134 at000c = ╱bb╱ DO ╱ // 0x3132 @0xc
0x3126…3134 at000d = EOL // 0x3133 @0xd
0x3126…3134 }
0x3134…3145 c733 04280 LET SEK := ╱ca╱ ( 5 )
0x3134…3145 LineComal80 {
0x3134…3145 ptr = 0xc733 // 0x3134 @0x0
0x3134…3145 lno = 0x10b8 // 0x3136 @0x2
0x3134…3145 at0004 = ╱86╱ LET ╱ // 0x3138 @0x4
0x3134…3145 at0005 = ╱53╱S╱ // 0x3139 @0x5
0x3134…3145 at0006 = ╱45╱E╱ // 0x313a @0x6
0x3134…3145 at0007 = ╱4b╱K╱ // 0x313b @0x7
0x3134…3145 at0008 = ╱f0╱ := ╱ // 0x313c @0x8
0x3134…3145 at0009 = ╱ca╱ // 0x313d @0x9
0x3134…3145 at000a = ╱ed╱ ( ╱ // 0x313e @0xa
0x3134…3145 at000b = ╱35╱5╱ // 0x313f @0xb
0x3134…3145 at000c = ╱f20500╱ // 0x3140 @0xc
0x3134…3145 at000f = ╱ee╱ ) ╱ // 0x3143 @0xf
0x3134…3145 at0010 = EOL // 0x3144 @0x10
0x3134…3145 }
0x3145…3155 c743 04290 SELECT OUTPUT "P" + PRTNR $
0x3145…3155 LineComal80 {
0x3145…3155 ptr = 0xc743 // 0x3145 @0x0
0x3145…3155 lno = 0x10c2 // 0x3147 @0x2
0x3145…3155 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x3149 @0x4
0x3145…3155 at0005 = ╱22╱"╱ // 0x314a @0x5
0x3145…3155 at0006 = ╱50╱P╱ // 0x314b @0x6
0x3145…3155 at0007 = ╱22╱"╱ // 0x314c @0x7
0x3145…3155 at0008 = ╱eb╱ + ╱ // 0x314d @0x8
0x3145…3155 at0009 = ╱50╱P╱ // 0x314e @0x9
0x3145…3155 at000a = ╱52╱R╱ // 0x314f @0xa
0x3145…3155 at000b = ╱54╱T╱ // 0x3150 @0xb
0x3145…3155 at000c = ╱4e╱N╱ // 0x3151 @0xc
0x3145…3155 at000d = ╱52╱R╱ // 0x3152 @0xd
0x3145…3155 at000e = ╱ef╱ $ ╱ // 0x3153 @0xe
0x3145…3155 at000f = EOL // 0x3154 @0xf
0x3145…3155 }
0x3155…315b c749 04300 ENDWHILE
0x3155…315b LineComal80 {
0x3155…315b ptr = 0xc749 // 0x3155 @0x0
0x3155…315b lno = 0x10cc // 0x3157 @0x2
0x3155…315b at0004 = ╱94╱ ENDWHILE ╱ // 0x3159 @0x4
0x3155…315b at0005 = EOL // 0x315a @0x5
0x3155…315b }
0x315b…3162 c750 04310 ELSE
0x315b…3162 LineComal80 {
0x315b…3162 ptr = 0xc750 // 0x315b @0x0
0x315b…3162 lno = 0x10d6 // 0x315d @0x2
0x315b…3162 at0004 = ╱9a00╱ ELSE ╱ // 0x315f @0x4
0x315b…3162 at0006 = EOL // 0x3161 @0x6
0x315b…3162 }
0x3162…3170 c75e 04320 LET OK := FALSE
0x3162…3170 LineComal80 {
0x3162…3170 ptr = 0xc75e // 0x3162 @0x0
0x3162…3170 lno = 0x10e0 // 0x3164 @0x2
0x3162…3170 at0004 = ╱86╱ LET ╱ // 0x3166 @0x4
0x3162…3170 at0005 = ╱4f╱O╱ // 0x3167 @0x5
0x3162…3170 at0006 = ╱4b╱K╱ // 0x3168 @0x6
0x3162…3170 at0007 = ╱f0╱ := ╱ // 0x3169 @0x7
0x3162…3170 at0008 = ╱46╱F╱ // 0x316a @0x8
0x3162…3170 at0009 = ╱41╱A╱ // 0x316b @0x9
0x3162…3170 at000a = ╱4c╱L╱ // 0x316c @0xa
0x3162…3170 at000b = ╱53╱S╱ // 0x316d @0xb
0x3162…3170 at000c = ╱45╱E╱ // 0x316e @0xc
0x3162…3170 at000d = EOL // 0x316f @0xd
0x3162…3170 }
0x3170…3176 c764 04330 ENDIF
0x3170…3176 LineComal80 {
0x3170…3176 ptr = 0xc764 // 0x3170 @0x0
0x3170…3176 lno = 0x10ea // 0x3172 @0x2
0x3170…3176 at0004 = ╱9c╱ ENDIF ╱ // 0x3174 @0x4
0x3170…3176 at0005 = EOL // 0x3175 @0x5
0x3170…3176 }
0x3176…317c c76a 04340 ENDIF
0x3176…317c LineComal80 {
0x3176…317c ptr = 0xc76a // 0x3176 @0x0
0x3176…317c lno = 0x10f4 // 0x3178 @0x2
0x3176…317c at0004 = ╱9c╱ ENDIF ╱ // 0x317a @0x4
0x3176…317c at0005 = EOL // 0x317b @0x5
0x3176…317c }
0x317c…318b c779 04350 CURSOR 1 , LINE
0x317c…318b LineComal80 {
0x317c…318b ptr = 0xc779 // 0x317c @0x0
0x317c…318b lno = 0x10fe // 0x317e @0x2
0x317c…318b at0004 = ╱a1╱ CURSOR ╱ // 0x3180 @0x4
0x317c…318b at0005 = ╱31╱1╱ // 0x3181 @0x5
0x317c…318b at0006 = ╱f20100╱ // 0x3182 @0x6
0x317c…318b at0009 = ╱ec╱ , ╱ // 0x3185 @0x9
0x317c…318b at000a = ╱4c╱L╱ // 0x3186 @0xa
0x317c…318b at000b = ╱49╱I╱ // 0x3187 @0xb
0x317c…318b at000c = ╱4e╱N╱ // 0x3188 @0xc
0x317c…318b at000d = ╱45╱E╱ // 0x3189 @0xd
0x317c…318b at000e = EOL // 0x318a @0xe
0x317c…318b }
0x318b…3196 c784 04360 PRINT "<Z>"
0x318b…3196 LineComal80 {
0x318b…3196 ptr = 0xc784 // 0x318b @0x0
0x318b…3196 lno = 0x1108 // 0x318d @0x2
0x318b…3196 at0004 = ╱92╱ PRINT ╱ // 0x318f @0x4
0x318b…3196 at0005 = ╱22╱"╱ // 0x3190 @0x5
0x318b…3196 at0006 = ╱3c╱<╱ // 0x3191 @0x6
0x318b…3196 at0007 = ╱5a╱Z╱ // 0x3192 @0x7
0x318b…3196 at0008 = ╱3e╱>╱ // 0x3193 @0x8
0x318b…3196 at0009 = ╱22╱"╱ // 0x3194 @0x9
0x318b…3196 at000a = EOL // 0x3195 @0xa
0x318b…3196 }
0x3196…31a2 c790 04370 PRINT "<SZ>"
0x3196…31a2 LineComal80 {
0x3196…31a2 ptr = 0xc790 // 0x3196 @0x0
0x3196…31a2 lno = 0x1112 // 0x3198 @0x2
0x3196…31a2 at0004 = ╱92╱ PRINT ╱ // 0x319a @0x4
0x3196…31a2 at0005 = ╱22╱"╱ // 0x319b @0x5
0x3196…31a2 at0006 = ╱3c╱<╱ // 0x319c @0x6
0x3196…31a2 at0007 = ╱53╱S╱ // 0x319d @0x7
0x3196…31a2 at0008 = ╱5a╱Z╱ // 0x319e @0x8
0x3196…31a2 at0009 = ╱3e╱>╱ // 0x319f @0x9
0x3196…31a2 at000a = ╱22╱"╱ // 0x31a0 @0xa
0x3196…31a2 at000b = EOL // 0x31a1 @0xb
0x3196…31a2 }
0x31a2…31b0 0000 04380 ENDPROC PRINTRES
0x31a2…31b0 LineComal80 {
0x31a2…31b0 ptr = 0x0000 // 0x31a2 @0x0
0x31a2…31b0 lno = 0x111c // 0x31a4 @0x2
0x31a2…31b0 at0004 = ╱9f╱ ENDPROC ╱ // 0x31a6 @0x4
0x31a2…31b0 at0005 = ╱50╱P╱ // 0x31a7 @0x5
0x31a2…31b0 at0006 = ╱52╱R╱ // 0x31a8 @0x6
0x31a2…31b0 at0007 = ╱49╱I╱ // 0x31a9 @0x7
0x31a2…31b0 at0008 = ╱4e╱N╱ // 0x31aa @0x8
0x31a2…31b0 at0009 = ╱54╱T╱ // 0x31ab @0x9
0x31a2…31b0 at000a = ╱52╱R╱ // 0x31ac @0xa
0x31a2…31b0 at000b = ╱45╱E╱ // 0x31ad @0xb
0x31a2…31b0 at000c = ╱53╱S╱ // 0x31ae @0xc
0x31a2…31b0 at000d = EOL // 0x31af @0xd
0x31a2…31b0 }
0x31b0…31b6 (166,) 95ee 38382 ╱00╱ ╱00╱
0x31b0…31b6 LineComal80 {
0x31b0…31b6 ptr = 0x95ee // 0x31b0 @0x0
0x31b0…31b6 lno = 0x95ee // 0x31b2 @0x2
0x31b0…31b6 at0004 = ╱00╱ // 0x31b4 @0x4
0x31b0…31b6 at0005 = ╱00╱ // 0x31b5 @0x5
0x31b0…31b6 }